(* 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[     13082,        368]
NotebookOptionsPosition[     12789,        354]
NotebookOutlinePosition[     13130,        369]
CellTagsIndexPosition[     13087,        366]
WindowFrame->Normal
ContainsDynamic->False*)

(* Beginning of Notebook Content *)
Notebook[{
Cell[BoxData[
 RowBox[{"Manipulate", "[", 
  RowBox[{
   RowBox[{"Graphics3D", "[", 
    RowBox[{
     RowBox[{"{", 
      RowBox[{
       RowBox[{"{", 
        RowBox[{
         RowBox[{"RGBColor", "[", 
          RowBox[{"0", ",", "0", ",", "5", ",", "1"}], "]"}], ",", 
         RowBox[{"Cuboid", "[", 
          RowBox[{"{", 
           RowBox[{
            RowBox[{"{", 
             RowBox[{"48", ",", "24", ",", "10"}], "}"}], ",", 
            RowBox[{"{", 
             RowBox[{"40", ",", "15", ",", "0"}], "}"}]}], "}"}], "]"}]}], 
        "}"}], ",", 
       RowBox[{"{", 
        RowBox[{"Blue", ",", 
         RowBox[{"Cylinder", "[", 
          RowBox[{
           RowBox[{"{", 
            RowBox[{
             RowBox[{"{", 
              RowBox[{"40", ",", "20", ",", 
               RowBox[{
                RowBox[{"Abs", "[", 
                 RowBox[{".5", "x"}], "]"}], "+", "10"}]}], "}"}], ",", 
             RowBox[{"{", 
              RowBox[{"48", ",", "20", ",", 
               RowBox[{
                RowBox[{"Abs", "[", 
                 RowBox[{".5", "x"}], "]"}], "+", "10"}]}], "}"}]}], "}"}], 
           ",", "1"}], "]"}]}], "}"}], ",", 
       RowBox[{"{", 
        RowBox[{"Blue", ",", 
         RowBox[{"Cylinder", "[", 
          RowBox[{
           RowBox[{"{", 
            RowBox[{
             RowBox[{"{", 
              RowBox[{"44", ",", "20", ",", "10"}], "}"}], ",", 
             RowBox[{"{", 
              RowBox[{"44", ",", "20", ",", 
               RowBox[{
                RowBox[{"Abs", "[", 
                 RowBox[{".5", "x"}], "]"}], "+", "10"}]}], "}"}]}], "}"}], 
           ",", ".75"}], "]"}]}], "}"}], ",", 
       RowBox[{"Sphere", "[", 
        RowBox[{
         RowBox[{"{", 
          RowBox[{"44", ",", "28", ",", "22"}], "}"}], ",", "3"}], "]"}], ",",
        
       RowBox[{"Cylinder", "[", 
        RowBox[{
         RowBox[{"{", 
          RowBox[{
           RowBox[{"{", 
            RowBox[{"44", ",", "28", ",", "0"}], "}"}], ",", 
           RowBox[{"{", 
            RowBox[{"44", ",", "28", ",", "17"}], "}"}]}], "}"}], ",", "3"}], 
        "]"}], ",", 
       RowBox[{"Cylinder", "[", 
        RowBox[{
         RowBox[{"{", 
          RowBox[{
           RowBox[{"{", 
            RowBox[{"47", ",", "29", ",", "16"}], "}"}], ",", 
           RowBox[{"{", 
            RowBox[{"47", ",", "20", ",", 
             RowBox[{
              RowBox[{"Abs", "[", 
               RowBox[{".5", "x"}], "]"}], "+", "10"}]}], "}"}]}], "}"}], ",",
          ".8"}], "]"}], ",", 
       RowBox[{"Cylinder", "[", 
        RowBox[{
         RowBox[{"{", 
          RowBox[{
           RowBox[{"{", 
            RowBox[{"41", ",", "29", ",", "16"}], "}"}], ",", 
           RowBox[{"{", 
            RowBox[{"41", ",", "20", ",", 
             RowBox[{
              RowBox[{"Abs", "[", 
               RowBox[{".5", "x"}], "]"}], "+", "10"}]}], "}"}]}], "}"}], ",",
          ".8"}], "]"}], ",", 
       RowBox[{"{", 
        RowBox[{"Red", ",", 
         RowBox[{"Opacity", "[", 
          RowBox[{
           RowBox[{"Abs", "[", 
            RowBox[{".8", "x"}], "]"}], "+", ".2"}], "]"}], ",", 
         RowBox[{"Sphere", "[", 
          RowBox[{
           RowBox[{"{", 
            RowBox[{
             RowBox[{
              RowBox[{"Cos", "[", "x", "]"}], "+", "17"}], ",", 
             RowBox[{
              RowBox[{"Sin", "[", "x", "]"}], "+", "25"}], ",", 
             RowBox[{"24", "+", 
              RowBox[{"1.5", 
               RowBox[{"Sin", "[", "x", "]"}]}]}]}], "}"}], ",", 
           RowBox[{
            RowBox[{
             RowBox[{"-", ".02"}], 
             RowBox[{"x", "^", "2"}]}], "+", 
            RowBox[{"0", "x"}], "+", "10"}]}], "]"}]}], "}"}], ",", 
       RowBox[{"{", 
        RowBox[{"Red", ",", 
         RowBox[{"Opacity", "[", 
          RowBox[{
           RowBox[{"Abs", "[", 
            RowBox[{".7", "x"}], "]"}], "+", ".2"}], "]"}], ",", 
         RowBox[{"Sphere", "[", 
          RowBox[{
           RowBox[{"{", 
            RowBox[{
             RowBox[{
              RowBox[{"Cos", "[", "x", "]"}], "+", "17"}], ",", 
             RowBox[{
              RowBox[{"Sin", "[", "x", "]"}], "+", "25"}], ",", 
             RowBox[{
              RowBox[{"(", 
               RowBox[{
                RowBox[{"Abs", "[", 
                 RowBox[{".5", "x"}], "]"}], "+", "13.5"}], ")"}], "+", 
              RowBox[{"Sin", "[", "x", "]"}]}]}], "}"}], ",", "3.1"}], 
          "]"}]}], "}"}], ",", 
       RowBox[{"{", 
        RowBox[{
         RowBox[{"Thickness", "[", ".005", "]"}], ",", 
         RowBox[{"Line", "[", 
          RowBox[{"{", 
           RowBox[{
            RowBox[{"{", 
             RowBox[{"44", ",", "15", ",", "0"}], "}"}], ",", 
            RowBox[{"{", 
             RowBox[{"43", ",", "9", ",", "0"}], "}"}], ",", 
            RowBox[{"{", 
             RowBox[{"36", ",", "5", ",", "0"}], "}"}], ",", 
            RowBox[{"{", 
             RowBox[{"26", ",", "5", ",", "0"}], "}"}], ",", 
            RowBox[{"{", 
             RowBox[{"16", ",", "10", ",", "0"}], "}"}], ",", 
            RowBox[{"{", 
             RowBox[{"10", ",", "16", ",", "0"}], "}"}], ",", 
            RowBox[{"{", 
             RowBox[{"10", ",", "22", ",", "0"}], "}"}], ",", 
            RowBox[{"{", 
             RowBox[{"11", ",", "25", ",", "0"}], "}"}], ",", 
            RowBox[{"{", 
             RowBox[{"13", ",", "27", ",", "0"}], "}"}], ",", 
            RowBox[{"{", 
             RowBox[{"15", ",", "28", ",", "0"}], "}"}], ",", 
            RowBox[{"{", 
             RowBox[{"17", ",", "27", ",", "0"}], "}"}], ",", 
            RowBox[{"{", 
             RowBox[{
              RowBox[{
               RowBox[{
                RowBox[{"-", ".5"}], 
                RowBox[{"Cos", "[", "x", "]"}]}], "+", "17"}], ",", 
              RowBox[{
               RowBox[{
                RowBox[{"-", ".5"}], 
                RowBox[{"Sin", "[", "x", "]"}]}], "+", "25"}], ",", 
              RowBox[{
               RowBox[{"Sin", "[", "x", "]"}], "+", "7"}]}], "}"}], ",", 
            RowBox[{"{", 
             RowBox[{
              RowBox[{
               RowBox[{"Cos", "[", "x", "]"}], "+", "17"}], ",", 
              RowBox[{
               RowBox[{"Sin", "[", "x", "]"}], "+", "25"}], ",", 
              RowBox[{
               RowBox[{"(", 
                RowBox[{
                 RowBox[{"Abs", "[", 
                  RowBox[{".5", "x"}], "]"}], "+", "10"}], ")"}], "+", 
               RowBox[{"Sin", "[", "x", "]"}]}]}], "}"}]}], "}"}], "]"}], ",",
          
         RowBox[{"{", 
          RowBox[{
           RowBox[{"RGBColor", "[", 
            RowBox[{"2", ",", "0", ",", ".5", ",", ".1"}], "]"}], ",", 
           RowBox[{"Cuboid", "[", 
            RowBox[{
             RowBox[{"{", 
              RowBox[{"0", ",", "0", ",", "0"}], "}"}], ",", 
             RowBox[{"{", 
              RowBox[{"50", ",", "50", ",", "0"}], "}"}]}], "]"}]}], "}"}], 
         ",", 
         RowBox[{"{", 
          RowBox[{
           RowBox[{"RGBColor", "[", 
            RowBox[{"0", ",", "2", ",", ".5", ",", ".1"}], "]"}], ",", 
           RowBox[{"Cuboid", "[", 
            RowBox[{
             RowBox[{"{", 
              RowBox[{"0", ",", "50", ",", "0"}], "}"}], ",", 
             RowBox[{"{", 
              RowBox[{"50", ",", "50", ",", "50"}], "}"}]}], "]"}]}], "}"}], 
         ",", 
         RowBox[{"{", 
          RowBox[{
           RowBox[{"RGBColor", "[", 
            RowBox[{"0", ",", "0", ",", "2", ",", ".9"}], "]"}], ",", 
           RowBox[{"Sphere", "[", 
            RowBox[{
             RowBox[{"{", 
              RowBox[{
               RowBox[{
                RowBox[{"Cos", "[", "x", "]"}], "+", "8.5"}], ",", 
               RowBox[{
                RowBox[{"Sin", "[", "x", "]"}], "+", "45"}], ",", 
               RowBox[{
                RowBox[{"3", 
                 RowBox[{"Sin", "[", "x", "]"}]}], "+", "42"}]}], "}"}], ",", 
             "3"}], "]"}]}], "}"}], ",", 
         RowBox[{"{", 
          RowBox[{
           RowBox[{"RGBColor", "[", 
            RowBox[{"0", ",", "0", ",", "2", ",", ".8"}], "]"}], ",", 
           RowBox[{"Sphere", "[", 
            RowBox[{
             RowBox[{"{", 
              RowBox[{
               RowBox[{
                RowBox[{"Cos", "[", "x", "]"}], "+", "8.5"}], ",", 
               RowBox[{
                RowBox[{"Sin", "[", "x", "]"}], "+", "45"}], ",", 
               RowBox[{
                RowBox[{"3", 
                 RowBox[{"Sin", "[", "x", "]"}]}], "+", "40"}]}], "}"}], ",", 
             "2"}], "]"}]}], "}"}], ",", 
         RowBox[{"{", 
          RowBox[{
           RowBox[{"RGBColor", "[", 
            RowBox[{"3", ",", "2", ",", "0", ",", ".9"}], "]"}], ",", 
           RowBox[{"Sphere", "[", 
            RowBox[{
             RowBox[{"{", 
              RowBox[{
               RowBox[{
                RowBox[{"Sin", "[", "x", "]"}], "+", "25"}], ",", 
               RowBox[{
                RowBox[{"Cos", "[", "x", "]"}], "+", "35"}], ",", 
               RowBox[{
                RowBox[{"2", 
                 RowBox[{"Sin", "[", "x", "]"}]}], "+", "45"}]}], "}"}], ",", 
             "3"}], "]"}]}], "}"}], ",", 
         RowBox[{"{", 
          RowBox[{
           RowBox[{"RGBColor", "[", 
            RowBox[{"3", ",", "2", ",", "0", ",", ".8"}], "]"}], ",", 
           RowBox[{"Sphere", "[", 
            RowBox[{
             RowBox[{"{", 
              RowBox[{
               RowBox[{
                RowBox[{"Sin", "[", "x", "]"}], "+", "25"}], ",", 
               RowBox[{
                RowBox[{"Cos", "[", "x", "]"}], "+", "35"}], ",", 
               RowBox[{
                RowBox[{"2", 
                 RowBox[{"Sin", "[", "x", "]"}]}], "+", "43"}]}], "}"}], ",", 
             "2"}], "]"}]}], "}"}], ",", 
         RowBox[{"{", 
          RowBox[{
           RowBox[{"RGBColor", "[", 
            RowBox[{"2", ",", "0", ",", "3", ",", ".9"}], "]"}], ",", 
           RowBox[{"Sphere", "[", 
            RowBox[{
             RowBox[{"{", 
              RowBox[{
               RowBox[{
                RowBox[{".5", 
                 RowBox[{"Sin", "[", "x", "]"}]}], "+", "30"}], ",", 
               RowBox[{
                RowBox[{".5", 
                 RowBox[{"Sin", "[", "x", "]"}]}], "+", "40"}], ",", 
               RowBox[{
                RowBox[{"1.5", 
                 RowBox[{"Sin", "[", "x", "]"}]}], "+", "39"}]}], "}"}], ",", 
             "3"}], "]"}]}], "}"}], ",", 
         RowBox[{"{", 
          RowBox[{
           RowBox[{"RGBColor", "[", 
            RowBox[{"2", ",", "0", ",", "3", ",", ".8"}], "]"}], ",", 
           RowBox[{"Sphere", "[", 
            RowBox[{
             RowBox[{"{", 
              RowBox[{
               RowBox[{
                RowBox[{".5", 
                 RowBox[{"Sin", "[", "x", "]"}]}], "+", "30"}], ",", 
               RowBox[{
                RowBox[{".5", 
                 RowBox[{"Sin", "[", "x", "]"}]}], "+", "40"}], ",", 
               RowBox[{
                RowBox[{"1.5", 
                 RowBox[{"Sin", "[", "x", "]"}]}], "+", "37"}]}], "}"}], ",", 
             "2"}], "]"}]}], "}"}]}], "}"}]}], "}"}], ",", 
     RowBox[{"PlotRange", "\[Rule]", 
      RowBox[{"{", 
       RowBox[{
        RowBox[{"{", 
         RowBox[{"0", ",", "50"}], "}"}], ",", 
        RowBox[{"{", 
         RowBox[{"0", ",", "50"}], "}"}], ",", 
        RowBox[{"{", 
         RowBox[{"0", ",", "50"}], "}"}]}], "}"}]}], ",", 
     RowBox[{"Axes", "\[Rule]", "True"}], ",", 
     RowBox[{"AxesLabel", "\[Rule]", 
      RowBox[{"{", 
       RowBox[{"x", ",", "y", ",", "z"}], "}"}]}], ",", 
     RowBox[{"ViewPoint", "\[Rule]", 
      RowBox[{"{", 
       RowBox[{".5", ",", 
        RowBox[{"-", "2"}], ",", ".5"}], "}"}]}]}], "]"}], ",", 
   RowBox[{"{", 
    RowBox[{"x", ",", 
     RowBox[{"-", "17"}], ",", "17"}], "}"}]}], "]"}]], "Input"],

Cell[BoxData[
 RowBox[{"Made", " ", "by", " ", 
  RowBox[{"E", ".", " ", "Kahl"}]}]], "Input",
 CellChangeTimes->{{3.406537981508669*^9, 3.406537987121717*^9}, {
  3.40985084446875*^9, 3.409850844703125*^9}}]
},
WindowSize->{616, 750},
WindowMargins->{{18, Automatic}, {Automatic, 23}},
FrontEndVersion->"6.0 for Microsoft Windows (32-bit) (June 19, 2007)",
StyleDefinitions->"Default.nb"
]
(* End of Notebook Content *)

(* Internal cache information *)
(*CellTagsOutline
CellTagsIndex->{}
*)
(*CellTagsIndex
CellTagsIndex->{}
*)
(*NotebookFileOutline
Notebook[{
Cell[568, 21, 12006, 325, 612, "Input"],
Cell[12577, 348, 208, 4, 31, "Input"]
}
]
*)

(* End of internal cache information *)