(* 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[     11420,        314]
NotebookOptionsPosition[     11105,        299]
NotebookOutlinePosition[     11467,        315]
CellTagsIndexPosition[     11424,        312]
WindowFrame->Normal
ContainsDynamic->False*)

(* Beginning of Notebook Content *)
Notebook[{
Cell[BoxData[
 RowBox[{"\[IndentingNewLine]", 
  RowBox[{
   RowBox[{"Do", " ", "[", 
    RowBox[{
     RowBox[{
      RowBox[{"f", "[", "x", "]"}], "=", 
      RowBox[{"Graphics3D", "[", 
       RowBox[{
        RowBox[{"{", 
         RowBox[{"Blue", ",", "Gray", ",", 
          RowBox[{"Table", "[", 
           RowBox[{
            RowBox[{"Sphere", "[", 
             RowBox[{
              RowBox[{"{", 
               RowBox[{
                RowBox[{"k", " ", 
                 RowBox[{"Cos", "[", 
                  RowBox[{"x", "/", "1"}], "]"}]}], ",", 
                RowBox[{"k", " ", 
                 RowBox[{"Sin", "[", 
                  RowBox[{"x", "/", "1"}], "]"}]}], ",", ".2"}], "}"}], ",", 
              ".289"}], "]"}], ",", 
            RowBox[{"{", 
             RowBox[{"k", ",", "4", ",", "4"}], "}"}]}], "]"}], ",", 
          "LightBlue", ",", 
          RowBox[{"Table", "[", 
           RowBox[{
            RowBox[{"Sphere", "[", 
             RowBox[{
              RowBox[{"{", 
               RowBox[{
                RowBox[{"k", " ", 
                 RowBox[{"Cos", "[", 
                  RowBox[{"x", "/", "2"}], "]"}]}], ",", 
                RowBox[{"k", " ", 
                 RowBox[{"Sin", "[", 
                  RowBox[{"x", "/", "2"}], "]"}]}], ",", ".2"}], "}"}], ",", 
              ".35"}], "]"}], ",", 
            RowBox[{"{", 
             RowBox[{"k", ",", "5", ",", "5"}], "}"}]}], "]"}], ",", "Blue", 
          ",", 
          RowBox[{"Table", "[", 
           RowBox[{
            RowBox[{"Sphere", "[", 
             RowBox[{
              RowBox[{"{", 
               RowBox[{
                RowBox[{"k", " ", 
                 RowBox[{"Cos", "[", 
                  RowBox[{"x", "/", "3"}], "]"}]}], ",", 
                RowBox[{"k", " ", 
                 RowBox[{"Sin", "[", 
                  RowBox[{"x", "/", "3"}], "]"}]}], ",", ".2"}], "}"}], ",", 
              ".35"}], "]"}], ",", 
            RowBox[{"{", 
             RowBox[{"k", ",", "6", ",", "6"}], "}"}]}], "]"}], ",", "Gray", 
          ",", 
          RowBox[{"Table", "[", 
           RowBox[{
            RowBox[{"Sphere", "[", 
             RowBox[{
              RowBox[{"{", 
               RowBox[{
                RowBox[{"k", " ", 
                 RowBox[{"Cos", "[", 
                  RowBox[{"x", "/", "4"}], "]"}]}], ",", 
                RowBox[{"k", " ", 
                 RowBox[{"Sin", "[", 
                  RowBox[{"x", "/", "4"}], "]"}]}], ",", ".2"}], "}"}], ",", 
              ".3"}], "]"}], ",", 
            RowBox[{"{", 
             RowBox[{"k", ",", "7", ",", "7"}], "}"}]}], "]"}], ",", "Brown", 
          ",", 
          RowBox[{"Table", "[", 
           RowBox[{
            RowBox[{"Sphere", "[", 
             RowBox[{
              RowBox[{"{", 
               RowBox[{
                RowBox[{"k", " ", 
                 RowBox[{"Cos", "[", 
                  RowBox[{"x", "/", "5"}], "]"}]}], ",", 
                RowBox[{"k", " ", 
                 RowBox[{"Sin", "[", 
                  RowBox[{"x", "/", "5"}], "]"}]}], ",", ".2"}], "}"}], ",", 
              ".5"}], "]"}], ",", 
            RowBox[{"{", 
             RowBox[{"k", ",", "8", ",", "8"}], "}"}]}], "]"}], ",", "Orange",
           ",", 
          RowBox[{"Table", "[", 
           RowBox[{
            RowBox[{"Sphere", "[", 
             RowBox[{
              RowBox[{"{", 
               RowBox[{
                RowBox[{"k", " ", 
                 RowBox[{"Cos", "[", 
                  RowBox[{"x", "/", "6"}], "]"}]}], ",", 
                RowBox[{"k", " ", 
                 RowBox[{"Sin", "[", 
                  RowBox[{"x", "/", "6"}], "]"}]}], ",", ".2"}], "}"}], ",", 
              ".45"}], "]"}], ",", 
            RowBox[{"{", 
             RowBox[{"k", ",", "9", ",", "9"}], "}"}]}], "]"}], ",", 
          "LightBlue", ",", 
          RowBox[{"Table", "[", 
           RowBox[{
            RowBox[{"Sphere", "[", 
             RowBox[{
              RowBox[{"{", 
               RowBox[{
                RowBox[{"k", " ", 
                 RowBox[{"Cos", "[", 
                  RowBox[{"x", "/", "7"}], "]"}]}], ",", 
                RowBox[{"k", " ", 
                 RowBox[{"Sin", "[", 
                  RowBox[{"x", "/", "7"}], "]"}]}], ",", ".2"}], "}"}], ",", 
              ".3"}], "]"}], ",", 
            RowBox[{"{", 
             RowBox[{"k", ",", "10", ",", "10"}], "}"}]}], "]"}], ",", "Blue",
           ",", 
          RowBox[{"Table", "[", 
           RowBox[{
            RowBox[{"Sphere", "[", 
             RowBox[{
              RowBox[{"{", 
               RowBox[{
                RowBox[{"k", " ", 
                 RowBox[{"Cos", "[", 
                  RowBox[{"x", "/", "8"}], "]"}]}], ",", 
                RowBox[{"k", " ", 
                 RowBox[{"Sin", "[", 
                  RowBox[{"x", "/", "8"}], "]"}]}], ",", ".2"}], "}"}], ",", 
              ".3"}], "]"}], ",", 
            RowBox[{"{", 
             RowBox[{"k", ",", "11", ",", "11"}], "}"}]}], "]"}], ",", "Gray",
           ",", 
          RowBox[{"Table", "[", 
           RowBox[{
            RowBox[{"Sphere", "[", 
             RowBox[{
              RowBox[{"{", 
               RowBox[{
                RowBox[{"k", " ", 
                 RowBox[{"Cos", "[", 
                  RowBox[{"x", "/", "9"}], "]"}]}], ",", 
                RowBox[{"k", " ", 
                 RowBox[{"Sin", "[", 
                  RowBox[{"x", "/", "9"}], "]"}]}], ",", ".2"}], "}"}], ",", 
              ".2"}], "]"}], ",", 
            RowBox[{"{", 
             RowBox[{"k", ",", "12", ",", "12"}], "}"}]}], "]"}], ",", 
          "Yellow", ",", 
          RowBox[{"Table", "[", 
           RowBox[{
            RowBox[{"Sphere", "[", 
             RowBox[{
              RowBox[{"{", 
               RowBox[{
                RowBox[{"k", " ", 
                 RowBox[{"Cos", "[", 
                  RowBox[{"x", "/", "1"}], "]"}]}], ",", 
                RowBox[{"k", " ", 
                 RowBox[{"Sin", "[", 
                  RowBox[{"x", "/", "1"}], "]"}]}], ",", ".2"}], "}"}], ",", 
              "2.5"}], "]"}], ",", 
            RowBox[{"{", 
             RowBox[{"k", ",", "0", ",", "0"}], "}"}]}], "]"}], ",", "White", 
          ",", 
          RowBox[{"Sphere", "[", 
           RowBox[{
            RowBox[{"{", 
             RowBox[{
              RowBox[{"-", "5"}], ",", 
              RowBox[{"-", "12"}], ",", 
              RowBox[{"-", "1"}]}], "}"}], ",", ".1"}], "]"}], ",", "White", 
          ",", 
          RowBox[{"Sphere", "[", 
           RowBox[{
            RowBox[{"{", 
             RowBox[{"5", ",", 
              RowBox[{"-", "12"}], ",", 
              RowBox[{"-", "1"}]}], "}"}], ",", ".1"}], "]"}], ",", "White", 
          ",", 
          RowBox[{"Sphere", "[", 
           RowBox[{
            RowBox[{"{", 
             RowBox[{
              RowBox[{"-", "7"}], ",", "5", ",", "8"}], "}"}], ",", ".1"}], 
           "]"}], ",", "White", ",", 
          RowBox[{"Sphere", "[", 
           RowBox[{
            RowBox[{"{", 
             RowBox[{"7", ",", "15", ",", "5"}], "}"}], ",", ".14"}], "]"}], 
          ",", "White", ",", 
          RowBox[{"Sphere", "[", 
           RowBox[{
            RowBox[{"{", 
             RowBox[{
              RowBox[{"-", "15"}], ",", "8", ",", "8"}], "}"}], ",", ".1"}], 
           "]"}], ",", "White", ",", 
          RowBox[{"Sphere", "[", 
           RowBox[{
            RowBox[{"{", 
             RowBox[{
              RowBox[{"-", "6"}], ",", "13", ",", "0"}], "}"}], ",", ".15"}], 
           "]"}], ",", "White", ",", 
          RowBox[{"Sphere", "[", 
           RowBox[{
            RowBox[{"{", 
             RowBox[{
              RowBox[{"-", "7"}], ",", 
              RowBox[{"-", "7"}], ",", "10"}], "}"}], ",", ".1"}], "]"}], ",",
           "White", ",", 
          RowBox[{"Sphere", "[", 
           RowBox[{
            RowBox[{"{", 
             RowBox[{
              RowBox[{"-", "10"}], ",", "15", ",", "10"}], "}"}], ",", ".1"}],
            "]"}], ",", "White", ",", 
          RowBox[{"Sphere", "[", 
           RowBox[{
            RowBox[{"{", 
             RowBox[{
              RowBox[{"-", "8"}], ",", "15", ",", "6"}], "}"}], ",", ".1"}], 
           "]"}], ",", "Gray", ",", 
          RowBox[{"Table", "[", 
           RowBox[{
            RowBox[{"Line", "[", 
             RowBox[{"Table", "[", 
              RowBox[{
               RowBox[{"{", 
                RowBox[{
                 RowBox[{"k", " ", 
                  RowBox[{"Cos", "[", "x", "]"}]}], ",", 
                 RowBox[{"k", " ", 
                  RowBox[{"Sin", "[", "x", "]"}]}], ",", "0"}], "}"}], ",", 
               RowBox[{"{", 
                RowBox[{"x", ",", "0", ",", "9", ",", ".1"}], "}"}]}], "]"}], 
             "]"}], ",", 
            RowBox[{"{", 
             RowBox[{"k", ",", "4", ",", "12"}], "}"}]}], "]"}]}], "}"}], ",",
         
        RowBox[{"Boxed", "\[Rule]", " ", "False"}], ",", "Gray", ",", 
        RowBox[{"Background", "\[Rule]", " ", "Black"}]}], "]"}]}], ",", 
     RowBox[{"{", 
      RowBox[{"x", ",", "15", ",", "135", ",", "1"}], "}"}]}], "]"}], 
   "\[IndentingNewLine]"}]}]], "Input",
 CellChangeTimes->{
  3.409429517206375*^9, {3.4094746104908857`*^9, 3.4094746231614723`*^9}, {
   3.4094746758617287`*^9, 3.409474849526984*^9}, 3.40947503237957*^9, {
   3.40949157690625*^9, 3.40949158209375*^9}, {3.40949180165625*^9, 
   3.409491855078125*^9}, {3.40949189853125*^9, 3.409491916484375*^9}, {
   3.409491960390625*^9, 3.409491983265625*^9}, {3.409492143328125*^9, 
   3.40949217375*^9}, {3.409492325953125*^9, 3.409492327328125*^9}, {
   3.409492364375*^9, 3.40949236915625*^9}, {3.409492427875*^9, 
   3.4094924288125*^9}, {3.40949279375*^9, 3.409492805515625*^9}, {
   3.40949283565625*^9, 3.40949285653125*^9}, {3.409493040921875*^9, 
   3.40949304790625*^9}, 3.4094931216875*^9, 3.409499777646082*^9, 
   3.4098509688125*^9}],

Cell[BoxData[
 RowBox[{
  RowBox[{"Export", "[", 
   RowBox[{"\"\<Omorogbe.gif\>\"", ",", 
    RowBox[{"{", 
     RowBox[{"Table", "[", 
      RowBox[{
       RowBox[{"f", "[", "x", "]"}], ",", 
       RowBox[{"{", 
        RowBox[{"x", ",", "15", ",", "135", ",", "1"}], "}"}]}], "]"}], 
     "}"}]}], "]"}], "\[IndentingNewLine]"}]], "Input",
 CellChangeTimes->{{3.40949290128125*^9, 3.409492967078125*^9}, {
  3.409493194234375*^9, 3.409493219*^9}, {3.409499716250993*^9, 
  3.4094997376118717`*^9}}]
},
WindowSize->{1272, 700},
WindowMargins->{{101, Automatic}, {Automatic, -2}},
Magnification->1.,
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, 10027, 261, 232, "Input"],
Cell[10598, 284, 503, 13, 52, "Input"]
}
]
*)

(* End of internal cache information *)