(* 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[     32437,        809]
NotebookOptionsPosition[     32144,        795]
NotebookOutlinePosition[     32483,        810]
CellTagsIndexPosition[     32440,        807]
WindowFrame->Normal
ContainsDynamic->False*)

(* Beginning of Notebook Content *)
Notebook[{
Cell[BoxData[
 RowBox[{"Do", "[", 
  RowBox[{
   RowBox[{
    RowBox[{"a", "[", "x", "]"}], "=", 
    RowBox[{"Graphics3D", "[", 
     RowBox[{
      RowBox[{"{", 
       RowBox[{
        RowBox[{"{", 
         RowBox[{
          RowBox[{"Hue", "[", 
           RowBox[{".07", ",", ".4", ",", "1", ",", "1"}], "]"}], ",", 
          RowBox[{"Sphere", "[", 
           RowBox[{
            RowBox[{"{", 
             RowBox[{"0", ",", "0", ",", "0"}], "}"}], ",", "5"}], "]"}]}], 
         "}"}], ",", 
        RowBox[{"{", 
         RowBox[{
          RowBox[{"Hue", "[", "1", "]"}], ",", 
          RowBox[{"Sphere", "[", 
           RowBox[{
            RowBox[{"{", 
             RowBox[{"0", ",", "0", ",", "4"}], "}"}], ",", "2"}], "]"}]}], 
         "}"}], ",", 
        RowBox[{"{", 
         RowBox[{
          RowBox[{"Hue", "[", 
           RowBox[{"0", ",", "0"}], "]"}], ",", 
          RowBox[{"Sphere", "[", 
           RowBox[{
            RowBox[{"{", 
             RowBox[{"2", ",", "2", ",", "3"}], "}"}], ",", "1.5"}], "]"}]}], 
         "}"}], ",", 
        RowBox[{"{", 
         RowBox[{
          RowBox[{"Hue", "[", 
           RowBox[{"0", ",", "0"}], "]"}], ",", 
          RowBox[{"Sphere", "[", 
           RowBox[{
            RowBox[{"{", 
             RowBox[{
              RowBox[{"-", "2"}], ",", "2", ",", "3"}], "}"}], ",", "1.5"}], 
           "]"}]}], "}"}], ",", 
        RowBox[{"{", 
         RowBox[{
          RowBox[{"Hue", "[", 
           RowBox[{"0", ",", "0", ",", "0"}], "]"}], ",", 
          RowBox[{"Sphere", "[", 
           RowBox[{
            RowBox[{"-", 
             RowBox[{"{", 
              RowBox[{
               RowBox[{"2.3", "-", 
                RowBox[{
                 RowBox[{"(", 
                  RowBox[{"Sin", "[", 
                   RowBox[{"\[Pi]", "*", 
                    RowBox[{"x", "/", "10"}]}], "]"}], ")"}], "/", "2"}]}], 
               ",", 
               RowBox[{
                RowBox[{"-", "2.3"}], "-", 
                RowBox[{
                 RowBox[{"(", 
                  RowBox[{"Cos", "[", 
                   RowBox[{"\[Pi]", "*", 
                    RowBox[{"x", "/", "10"}]}], "]"}], ")"}], "/", "2"}]}], 
               ",", 
               RowBox[{"-", "4.2"}]}], "}"}]}], ",", ".5"}], "]"}]}], "}"}], 
        ",", 
        RowBox[{"{", 
         RowBox[{
          RowBox[{"Hue", "[", 
           RowBox[{"0", ",", "0", ",", "0"}], "]"}], ",", 
          RowBox[{"Sphere", "[", 
           RowBox[{
            RowBox[{"{", 
             RowBox[{
              RowBox[{"2.3", "-", 
               RowBox[{
                RowBox[{"(", 
                 RowBox[{"Sin", "[", 
                  RowBox[{"\[Pi]", "*", 
                   RowBox[{"x", "/", "10"}]}], "]"}], ")"}], "/", "2"}]}], 
              ",", 
              RowBox[{"2.3", "-", 
               RowBox[{
                RowBox[{"(", 
                 RowBox[{"Cos", "[", 
                  RowBox[{"\[Pi]", "*", 
                   RowBox[{"x", "/", "10"}]}], "]"}], ")"}], "/", "2"}]}], 
              ",", "4.2"}], "}"}], ",", ".5"}], "]"}]}], "}"}], ",", 
        RowBox[{"{", 
         RowBox[{
          RowBox[{"Hue", "[", 
           RowBox[{".07", ",", ".4", ",", "1", ",", "1"}], "]"}], ",", 
          RowBox[{"Cylinder", "[", 
           RowBox[{
            RowBox[{"{", 
             RowBox[{
              RowBox[{"{", 
               RowBox[{"0", ",", "0", ",", "0"}], "}"}], ",", 
              RowBox[{"{", 
               RowBox[{"0", ",", 
                RowBox[{"-", "6"}], ",", "0"}], "}"}]}], "}"}], ",", "2"}], 
           "]"}]}], "}"}], ",", 
        RowBox[{"{", 
         RowBox[{"Black", ",", 
          RowBox[{"Sphere", "[", 
           RowBox[{
            RowBox[{"{", 
             RowBox[{"0", ",", 
              RowBox[{"-", "10"}], ",", "0"}], "}"}], ",", "5"}], "]"}], ",", 
          
          RowBox[{"Cylinder", "[", 
           RowBox[{
            RowBox[{"{", 
             RowBox[{
              RowBox[{"{", 
               RowBox[{"0", ",", 
                RowBox[{"-", "10"}], ",", "0"}], "}"}], ",", 
              RowBox[{"{", 
               RowBox[{"0", ",", 
                RowBox[{"-", "15"}], ",", "0"}], "}"}]}], "}"}], ",", "5"}], 
           "]"}]}], "}"}], ",", 
        RowBox[{"{", 
         RowBox[{"Blue", ",", 
          RowBox[{"Sphere", "[", 
           RowBox[{
            RowBox[{"{", 
             RowBox[{"0", ",", 
              RowBox[{"-", "15"}], ",", "0"}], "}"}], ",", "5"}], "]"}]}], 
         "}"}], ",", 
        RowBox[{"{", 
         RowBox[{"Blue", ",", 
          RowBox[{"Cylinder", "[", 
           RowBox[{
            RowBox[{"{", 
             RowBox[{
              RowBox[{"{", 
               RowBox[{"2.5", ",", 
                RowBox[{"-", "17.5"}], ",", "0"}], "}"}], ",", 
              RowBox[{"{", 
               RowBox[{"3.5", ",", 
                RowBox[{"-", "27.5"}], ",", 
                RowBox[{"2", 
                 RowBox[{"(", 
                  RowBox[{"Cos", "[", 
                   RowBox[{"\[Pi]", "*", 
                    RowBox[{"x", "/", "10"}]}], "]"}], ")"}]}]}], "}"}]}], 
             "}"}], ",", "2"}], "]"}], ",", 
          RowBox[{"Cylinder", "[", 
           RowBox[{
            RowBox[{"{", 
             RowBox[{
              RowBox[{"{", 
               RowBox[{
                RowBox[{"-", "2.5"}], ",", 
                RowBox[{"-", "17.5"}], ",", "0"}], "}"}], ",", 
              RowBox[{"{", 
               RowBox[{
                RowBox[{"-", "3.5"}], ",", 
                RowBox[{"-", "27.5"}], ",", 
                RowBox[{
                 RowBox[{"-", "2"}], 
                 RowBox[{"(", 
                  RowBox[{"Cos", "[", 
                   RowBox[{"\[Pi]", "*", 
                    RowBox[{"x", "/", "10"}]}], "]"}], ")"}]}]}], "}"}]}], 
             "}"}], ",", "2"}], "]"}]}], "}"}], ",", 
        RowBox[{"{", 
         RowBox[{
          RowBox[{"Hue", "[", 
           RowBox[{".07", ",", ".4", ",", "1", ",", "1"}], "]"}], ",", 
          RowBox[{"Cylinder", "[", 
           RowBox[{
            RowBox[{"{", 
             RowBox[{
              RowBox[{"{", 
               RowBox[{"2.5", ",", 
                RowBox[{"-", "9"}], ",", "0"}], "}"}], ",", 
              RowBox[{"{", 
               RowBox[{"10", ",", 
                RowBox[{
                 RowBox[{"-", "9"}], "-", 
                 RowBox[{"4", 
                  RowBox[{"(", 
                   RowBox[{"Cos", "[", 
                    RowBox[{"\[Pi]", "*", 
                    RowBox[{"x", "/", "10"}]}], "]"}], ")"}]}]}], ",", 
                RowBox[{
                 RowBox[{"-", "4"}], 
                 RowBox[{"(", 
                  RowBox[{"Sin", "[", 
                   RowBox[{"\[Pi]", "*", 
                    RowBox[{"x", "/", "10"}]}], "]"}], ")"}]}]}], "}"}]}], 
             "}"}], ",", "1.5"}], "]"}], ",", 
          RowBox[{"Cylinder", "[", 
           RowBox[{
            RowBox[{"{", 
             RowBox[{
              RowBox[{"{", 
               RowBox[{
                RowBox[{"-", "2.5"}], ",", 
                RowBox[{"-", "9"}], ",", "0"}], "}"}], ",", 
              RowBox[{"{", 
               RowBox[{
                RowBox[{"-", "10"}], ",", 
                RowBox[{
                 RowBox[{"-", "9"}], "+", 
                 RowBox[{"4", 
                  RowBox[{"(", 
                   RowBox[{"Cos", "[", 
                    RowBox[{"\[Pi]", "*", 
                    RowBox[{"x", "/", "10"}]}], "]"}], ")"}]}]}], ",", 
                RowBox[{"4", 
                 RowBox[{"(", 
                  RowBox[{"Sin", "[", 
                   RowBox[{"\[Pi]", "*", 
                    RowBox[{"x", "/", "10"}]}], "]"}], ")"}]}]}], "}"}]}], 
             "}"}], ",", "1.5"}], "]"}], ",", 
          RowBox[{"Sphere", "[", 
           RowBox[{
            RowBox[{"{", 
             RowBox[{"9.75", ",", 
              RowBox[{
               RowBox[{"-", "9"}], "-", 
               RowBox[{"4", 
                RowBox[{"(", 
                 RowBox[{"Cos", "[", 
                  RowBox[{"\[Pi]", "*", 
                   RowBox[{"x", "/", "10"}]}], "]"}], ")"}]}]}], ",", 
              RowBox[{
               RowBox[{"-", "4"}], 
               RowBox[{"(", 
                RowBox[{"Sin", "[", 
                 RowBox[{"\[Pi]", "*", 
                  RowBox[{"x", "/", "10"}]}], "]"}], ")"}]}]}], "}"}], ",", 
            "2"}], "]"}], ",", 
          RowBox[{"Sphere", "[", 
           RowBox[{
            RowBox[{"{", 
             RowBox[{
              RowBox[{"-", "9.75"}], ",", 
              RowBox[{
               RowBox[{"-", "9"}], "+", 
               RowBox[{"4", 
                RowBox[{"(", 
                 RowBox[{"Cos", "[", 
                  RowBox[{"\[Pi]", "*", 
                   RowBox[{"x", "/", "10"}]}], "]"}], ")"}]}]}], ",", 
              RowBox[{"4", 
               RowBox[{"(", 
                RowBox[{"Sin", "[", 
                 RowBox[{"\[Pi]", "*", 
                  RowBox[{"x", "/", "10"}]}], "]"}], ")"}]}]}], "}"}], ",", 
            "2"}], "]"}]}], "}"}], ",", 
        RowBox[{"{", 
         RowBox[{
          RowBox[{"Hue", "[", 
           RowBox[{"1", ",", "1", ",", "0"}], "]"}], ",", 
          RowBox[{"Cylinder", "[", 
           RowBox[{
            RowBox[{"{", 
             RowBox[{
              RowBox[{"{", 
               RowBox[{"2.5", ",", 
                RowBox[{"-", "9"}], ",", "0"}], "}"}], ",", 
              RowBox[{"{", 
               RowBox[{"6.25", ",", 
                RowBox[{
                 RowBox[{"-", "9"}], "-", 
                 RowBox[{"2", 
                  RowBox[{"(", 
                   RowBox[{"Cos", "[", 
                    RowBox[{"\[Pi]", "*", 
                    RowBox[{"x", "/", "10"}]}], "]"}], ")"}]}]}], ",", 
                RowBox[{
                 RowBox[{"-", "2"}], 
                 RowBox[{"(", 
                  RowBox[{"Sin", "[", 
                   RowBox[{"\[Pi]", "*", 
                    RowBox[{"x", "/", "10"}]}], "]"}], ")"}]}]}], "}"}]}], 
             "}"}], ",", "2"}], "]"}], ",", 
          RowBox[{"Cylinder", "[", 
           RowBox[{
            RowBox[{"{", 
             RowBox[{
              RowBox[{"{", 
               RowBox[{
                RowBox[{"-", "2.5"}], ",", 
                RowBox[{"-", "9"}], ",", "0"}], "}"}], ",", 
              RowBox[{"{", 
               RowBox[{
                RowBox[{"-", "6.25"}], ",", 
                RowBox[{
                 RowBox[{"-", "9"}], "+", 
                 RowBox[{"2", 
                  RowBox[{"(", 
                   RowBox[{"Cos", "[", 
                    RowBox[{"\[Pi]", "*", 
                    RowBox[{"x", "/", "10"}]}], "]"}], ")"}]}]}], ",", 
                RowBox[{"2", 
                 RowBox[{"(", 
                  RowBox[{"Sin", "[", 
                   RowBox[{"\[Pi]", "*", 
                    RowBox[{"x", "/", "10"}]}], "]"}], ")"}]}]}], "}"}]}], 
             "}"}], ",", "2"}], "]"}]}], "}"}], ",", 
        RowBox[{"{", 
         RowBox[{"Yellow", ",", 
          RowBox[{"Sphere", "[", 
           RowBox[{
            RowBox[{"{", 
             RowBox[{
              RowBox[{"3.75", 
               RowBox[{"Cos", "[", 
                RowBox[{"\[Pi]", "*", 
                 RowBox[{"x", "/", "10"}]}], "]"}]}], ",", 
              RowBox[{"4", "-", 
               RowBox[{"3.75", 
                RowBox[{"Sin", "[", 
                 RowBox[{"\[Pi]", "*", 
                  RowBox[{"x", "/", "10"}]}], "]"}]}]}], ",", 
              RowBox[{"7", "+", 
               RowBox[{"4.5", 
                RowBox[{"Sin", "[", 
                 RowBox[{"\[Pi]", "*", 
                  RowBox[{"x", "/", "10"}]}], "]"}]}]}]}], "}"}], ",", "1"}], 
           "]"}], ",", 
          RowBox[{"Sphere", "[", 
           RowBox[{
            RowBox[{"{", 
             RowBox[{
              RowBox[{"3.75", 
               RowBox[{"Cos", "[", 
                RowBox[{
                 RowBox[{
                  RowBox[{"(", 
                   RowBox[{"2", "/", "3"}], ")"}], "\[Pi]"}], "+", 
                 RowBox[{"\[Pi]", "*", 
                  RowBox[{"x", "/", "10"}]}]}], "]"}]}], ",", 
              RowBox[{"4", "-", 
               RowBox[{"3.75", 
                RowBox[{"Sin", "[", 
                 RowBox[{
                  RowBox[{
                   RowBox[{"(", 
                    RowBox[{"2", "/", "3"}], ")"}], "\[Pi]"}], "+", 
                  RowBox[{"\[Pi]", "*", 
                   RowBox[{"x", "/", "10"}]}]}], "]"}]}]}], ",", 
              RowBox[{"7", "+", 
               RowBox[{"4.5", 
                RowBox[{"Sin", "[", 
                 RowBox[{
                  RowBox[{
                   RowBox[{"(", 
                    RowBox[{"2", "/", "3"}], ")"}], "\[Pi]"}], "+", 
                  RowBox[{"\[Pi]", "*", 
                   RowBox[{"x", "/", "10"}]}]}], "]"}]}]}]}], "}"}], ",", 
            "1"}], "]"}], ",", 
          RowBox[{"Sphere", "[", 
           RowBox[{
            RowBox[{"{", 
             RowBox[{
              RowBox[{"3.75", 
               RowBox[{"Cos", "[", 
                RowBox[{
                 RowBox[{
                  RowBox[{"(", 
                   RowBox[{"4", "/", "3"}], ")"}], "\[Pi]"}], "+", 
                 RowBox[{"\[Pi]", "*", 
                  RowBox[{"x", "/", "10"}]}]}], "]"}]}], ",", 
              RowBox[{"4", "-", 
               RowBox[{"3.75", 
                RowBox[{"Sin", "[", 
                 RowBox[{
                  RowBox[{
                   RowBox[{"(", 
                    RowBox[{"4", "/", "3"}], ")"}], "\[Pi]"}], "+", 
                  RowBox[{"\[Pi]", "*", 
                   RowBox[{"x", "/", "10"}]}]}], "]"}]}]}], ",", 
              RowBox[{"7", "+", 
               RowBox[{"4.5", 
                RowBox[{"Sin", "[", 
                 RowBox[{
                  RowBox[{
                   RowBox[{"(", 
                    RowBox[{"4", "/", "3"}], ")"}], "\[Pi]"}], "+", 
                  RowBox[{"\[Pi]", "*", 
                   RowBox[{"x", "/", "10"}]}]}], "]"}]}]}]}], "}"}], ",", 
            "1"}], "]"}], ",", 
          RowBox[{"Sphere", "[", 
           RowBox[{
            RowBox[{"{", 
             RowBox[{
              RowBox[{"3.75", 
               RowBox[{"Cos", "[", 
                RowBox[{
                 RowBox[{
                  RowBox[{"(", 
                   RowBox[{"5", "/", "3"}], ")"}], "\[Pi]"}], "+", 
                 RowBox[{"\[Pi]", "*", 
                  RowBox[{"x", "/", "10"}]}]}], "]"}]}], ",", 
              RowBox[{"4", "-", 
               RowBox[{"3.75", 
                RowBox[{"Sin", "[", 
                 RowBox[{
                  RowBox[{
                   RowBox[{"(", 
                    RowBox[{"5", "/", "3"}], ")"}], "\[Pi]"}], "+", 
                  RowBox[{"\[Pi]", "*", 
                   RowBox[{"x", "/", "10"}]}]}], "]"}]}]}], ",", 
              RowBox[{"7", "+", 
               RowBox[{"4.5", 
                RowBox[{"Sin", "[", 
                 RowBox[{
                  RowBox[{
                   RowBox[{"(", 
                    RowBox[{"5", "/", "3"}], ")"}], "\[Pi]"}], "+", 
                  RowBox[{"\[Pi]", "*", 
                   RowBox[{"x", "/", "10"}]}]}], "]"}]}]}]}], "}"}], ",", 
            ".5"}], "]"}], ",", 
          RowBox[{"Sphere", "[", 
           RowBox[{
            RowBox[{"{", 
             RowBox[{
              RowBox[{"3.75", 
               RowBox[{"Cos", "[", 
                RowBox[{
                 RowBox[{
                  RowBox[{"(", 
                   RowBox[{"1", "/", "3"}], ")"}], "\[Pi]"}], "+", 
                 RowBox[{"\[Pi]", "*", 
                  RowBox[{"x", "/", "10"}]}]}], "]"}]}], ",", 
              RowBox[{"4", "-", 
               RowBox[{"3.75", 
                RowBox[{"Sin", "[", 
                 RowBox[{
                  RowBox[{
                   RowBox[{"(", 
                    RowBox[{"1", "/", "3"}], ")"}], "\[Pi]"}], "+", 
                  RowBox[{"\[Pi]", "*", 
                   RowBox[{"x", "/", "10"}]}]}], "]"}]}]}], ",", 
              RowBox[{"7", "+", 
               RowBox[{"4.5", 
                RowBox[{"Sin", "[", 
                 RowBox[{
                  RowBox[{
                   RowBox[{"(", 
                    RowBox[{"1", "/", "3"}], ")"}], "\[Pi]"}], "+", 
                  RowBox[{"\[Pi]", "*", 
                   RowBox[{"x", "/", "10"}]}]}], "]"}]}]}]}], "}"}], ",", 
            ".5"}], "]"}], ",", 
          RowBox[{"Sphere", "[", 
           RowBox[{
            RowBox[{"{", 
             RowBox[{
              RowBox[{"3.75", 
               RowBox[{"Cos", "[", 
                RowBox[{"\[Pi]", "+", 
                 RowBox[{"\[Pi]", "*", 
                  RowBox[{"x", "/", "10"}]}]}], "]"}]}], ",", 
              RowBox[{"4", "-", 
               RowBox[{"3.75", 
                RowBox[{"Sin", "[", 
                 RowBox[{"\[Pi]", "+", 
                  RowBox[{"\[Pi]", "*", 
                   RowBox[{"x", "/", "10"}]}]}], "]"}]}]}], ",", 
              RowBox[{"7", "+", 
               RowBox[{"4.5", 
                RowBox[{"Sin", "[", 
                 RowBox[{"\[Pi]", "+", 
                  RowBox[{"\[Pi]", "*", 
                   RowBox[{"x", "/", "10"}]}]}], "]"}]}]}]}], "}"}], ",", 
            ".5"}], "]"}]}], "}"}], ",", 
        RowBox[{"{", 
         RowBox[{"Yellow", ",", 
          RowBox[{"Thickness", "[", ".005", "]"}], ",", 
          RowBox[{"Line", "[", 
           RowBox[{"{", 
            RowBox[{
             RowBox[{"{", 
              RowBox[{
               RowBox[{"3.75", 
                RowBox[{"Cos", "[", 
                 RowBox[{"\[Pi]", "*", 
                  RowBox[{"x", "/", "10"}]}], "]"}]}], ",", 
               RowBox[{"4", "-", 
                RowBox[{"3.75", 
                 RowBox[{"Sin", "[", 
                  RowBox[{"\[Pi]", "*", 
                   RowBox[{"x", "/", "10"}]}], "]"}]}]}], ",", 
               RowBox[{"7", "+", 
                RowBox[{"4.5", 
                 RowBox[{"Sin", "[", 
                  RowBox[{"\[Pi]", "*", 
                   RowBox[{"x", "/", "10"}]}], "]"}]}]}]}], "}"}], ",", 
             RowBox[{"{", 
              RowBox[{
               RowBox[{"3.75", 
                RowBox[{"Cos", "[", 
                 RowBox[{
                  RowBox[{
                   RowBox[{"(", 
                    RowBox[{"1", "/", "3"}], ")"}], "\[Pi]"}], "+", 
                  RowBox[{"\[Pi]", "*", 
                   RowBox[{"x", "/", "10"}]}]}], "]"}]}], ",", 
               RowBox[{"4", "-", 
                RowBox[{"3.75", 
                 RowBox[{"Sin", "[", 
                  RowBox[{
                   RowBox[{
                    RowBox[{"(", 
                    RowBox[{"1", "/", "3"}], ")"}], "\[Pi]"}], "+", 
                   RowBox[{"\[Pi]", "*", 
                    RowBox[{"x", "/", "10"}]}]}], "]"}]}]}], ",", 
               RowBox[{"7", "+", 
                RowBox[{"4.5", 
                 RowBox[{"Sin", "[", 
                  RowBox[{
                   RowBox[{
                    RowBox[{"(", 
                    RowBox[{"1", "/", "3"}], ")"}], "\[Pi]"}], "+", 
                   RowBox[{"\[Pi]", "*", 
                    RowBox[{"x", "/", "10"}]}]}], "]"}]}]}]}], "}"}], ",", 
             RowBox[{"{", 
              RowBox[{
               RowBox[{"3.75", 
                RowBox[{"Cos", "[", 
                 RowBox[{
                  RowBox[{
                   RowBox[{"(", 
                    RowBox[{"2", "/", "3"}], ")"}], "\[Pi]"}], "+", 
                  RowBox[{"\[Pi]", "*", 
                   RowBox[{"x", "/", "10"}]}]}], "]"}]}], ",", 
               RowBox[{"4", "-", 
                RowBox[{"3.75", 
                 RowBox[{"Sin", "[", 
                  RowBox[{
                   RowBox[{
                    RowBox[{"(", 
                    RowBox[{"2", "/", "3"}], ")"}], "\[Pi]"}], "+", 
                   RowBox[{"\[Pi]", "*", 
                    RowBox[{"x", "/", "10"}]}]}], "]"}]}]}], ",", 
               RowBox[{"7", "+", 
                RowBox[{"4.5", 
                 RowBox[{"Sin", "[", 
                  RowBox[{
                   RowBox[{
                    RowBox[{"(", 
                    RowBox[{"2", "/", "3"}], ")"}], "\[Pi]"}], "+", 
                   RowBox[{"\[Pi]", "*", 
                    RowBox[{"x", "/", "10"}]}]}], "]"}]}]}]}], "}"}], ",", 
             RowBox[{"{", 
              RowBox[{
               RowBox[{"3.75", 
                RowBox[{"Cos", "[", 
                 RowBox[{"\[Pi]", "+", 
                  RowBox[{"\[Pi]", "*", 
                   RowBox[{"x", "/", "10"}]}]}], "]"}]}], ",", 
               RowBox[{"4", "-", 
                RowBox[{"3.75", 
                 RowBox[{"Sin", "[", 
                  RowBox[{"\[Pi]", "+", 
                   RowBox[{"\[Pi]", "*", 
                    RowBox[{"x", "/", "10"}]}]}], "]"}]}]}], ",", 
               RowBox[{"7", "+", 
                RowBox[{"4.5", 
                 RowBox[{"Sin", "[", 
                  RowBox[{"\[Pi]", "+", 
                   RowBox[{"\[Pi]", "*", 
                    RowBox[{"x", "/", "10"}]}]}], "]"}]}]}]}], "}"}], ",", 
             RowBox[{"{", 
              RowBox[{
               RowBox[{"3.75", 
                RowBox[{"Cos", "[", 
                 RowBox[{
                  RowBox[{
                   RowBox[{"(", 
                    RowBox[{"4", "/", "3"}], ")"}], "\[Pi]"}], "+", 
                  RowBox[{"\[Pi]", "*", 
                   RowBox[{"x", "/", "10"}]}]}], "]"}]}], ",", 
               RowBox[{"4", "-", 
                RowBox[{"3.75", 
                 RowBox[{"Sin", "[", 
                  RowBox[{
                   RowBox[{
                    RowBox[{"(", 
                    RowBox[{"4", "/", "3"}], ")"}], "\[Pi]"}], "+", 
                   RowBox[{"\[Pi]", "*", 
                    RowBox[{"x", "/", "10"}]}]}], "]"}]}]}], ",", 
               RowBox[{"7", "+", 
                RowBox[{"4.5", 
                 RowBox[{"Sin", "[", 
                  RowBox[{
                   RowBox[{
                    RowBox[{"(", 
                    RowBox[{"4", "/", "3"}], ")"}], "\[Pi]"}], "+", 
                   RowBox[{"\[Pi]", "*", 
                    RowBox[{"x", "/", "10"}]}]}], "]"}]}]}]}], "}"}], ",", 
             RowBox[{"{", 
              RowBox[{
               RowBox[{"3.75", 
                RowBox[{"Cos", "[", 
                 RowBox[{
                  RowBox[{
                   RowBox[{"(", 
                    RowBox[{"5", "/", "3"}], ")"}], "\[Pi]"}], "+", 
                  RowBox[{"\[Pi]", "*", 
                   RowBox[{"x", "/", "10"}]}]}], "]"}]}], ",", 
               RowBox[{"4", "-", 
                RowBox[{"3.75", 
                 RowBox[{"Sin", "[", 
                  RowBox[{
                   RowBox[{
                    RowBox[{"(", 
                    RowBox[{"5", "/", "3"}], ")"}], "\[Pi]"}], "+", 
                   RowBox[{"\[Pi]", "*", 
                    RowBox[{"x", "/", "10"}]}]}], "]"}]}]}], ",", 
               RowBox[{"7", "+", 
                RowBox[{"4.5", 
                 RowBox[{"Sin", "[", 
                  RowBox[{
                   RowBox[{
                    RowBox[{"(", 
                    RowBox[{"5", "/", "3"}], ")"}], "\[Pi]"}], "+", 
                   RowBox[{"\[Pi]", "*", 
                    RowBox[{"x", "/", "10"}]}]}], "]"}]}]}]}], "}"}], ",", 
             RowBox[{"{", 
              RowBox[{
               RowBox[{"3.75", 
                RowBox[{"Cos", "[", 
                 RowBox[{"\[Pi]", "*", 
                  RowBox[{"x", "/", "10"}]}], "]"}]}], ",", 
               RowBox[{"4", "-", 
                RowBox[{"3.75", 
                 RowBox[{"Sin", "[", 
                  RowBox[{"\[Pi]", "*", 
                   RowBox[{"x", "/", "10"}]}], "]"}]}]}], ",", 
               RowBox[{"7", "+", 
                RowBox[{"4.5", 
                 RowBox[{"Sin", "[", 
                  RowBox[{"\[Pi]", "*", 
                   RowBox[{"x", "/", "10"}]}], "]"}]}]}]}], "}"}]}], "}"}], 
           "]"}]}], "}"}], ",", 
        RowBox[{"{", 
         RowBox[{
          RowBox[{"Hue", "[", 
           RowBox[{"{", 
            RowBox[{".3", ",", "1", ",", ".5"}], "}"}], "]"}], ",", 
          RowBox[{"Polygon", "[", 
           RowBox[{"{", 
            RowBox[{
             RowBox[{"{", 
              RowBox[{
               RowBox[{"-", "14"}], ",", 
               RowBox[{"-", "30"}], ",", 
               RowBox[{"-", "5"}]}], "}"}], ",", 
             RowBox[{"{", 
              RowBox[{
               RowBox[{"-", "14"}], ",", "10", ",", 
               RowBox[{"-", "5"}]}], "}"}], ",", 
             RowBox[{"{", 
              RowBox[{"14", ",", "10", ",", 
               RowBox[{"-", "5"}]}], "}"}], ",", 
             RowBox[{"{", 
              RowBox[{"14", ",", 
               RowBox[{"-", "30"}], ",", 
               RowBox[{"-", "5"}]}], "}"}]}], "}"}], "]"}]}], "}"}]}], "}"}], 
      ",", 
      RowBox[{"PlotRange", "\[Rule]", 
       RowBox[{"{", 
        RowBox[{
         RowBox[{"{", 
          RowBox[{
           RowBox[{"-", "14"}], ",", "14"}], "}"}], ",", 
         RowBox[{"{", 
          RowBox[{
           RowBox[{"-", "30"}], ",", "10"}], "}"}], ",", 
         RowBox[{"{", 
          RowBox[{
           RowBox[{"-", "5"}], ",", "13"}], "}"}]}], "}"}]}]}], "]"}]}], ",", 
   
   RowBox[{"{", 
    RowBox[{"x", ",", "0", ",", "60"}], "}"}]}], "]"}]], "Input",
 CellChangeTimes->{{3.4069112677528095`*^9, 3.406911270026078*^9}, 
   3.406911347197045*^9, {3.406911633538784*^9, 3.4069117219058495`*^9}, {
   3.4069117520892515`*^9, 3.4069119345716476`*^9}, {3.406912011211851*^9, 
   3.4069120585599346`*^9}, {3.4069167039846973`*^9, 
   3.4069167064382257`*^9}, {3.4069167438420095`*^9, 3.40691683804747*^9}, {
   3.4069169121840734`*^9, 3.4069169174416337`*^9}, {3.406916974914275*^9, 
   3.406917015342408*^9}, {3.4069170732857265`*^9, 3.406917118741088*^9}, {
   3.406917153240696*^9, 3.4069171839148035`*^9}, {3.40691752863048*^9, 
   3.4069176684315042`*^9}, {3.4069177538443213`*^9, 3.406917922246472*^9}, {
   3.4069179675315886`*^9, 3.406918322852515*^9}, {3.4069183555194883`*^9, 
   3.4069183609873505`*^9}, {3.4069183920620337`*^9, 3.406918570748973*^9}, {
   3.4069186098151474`*^9, 3.406918612959669*^9}, {3.4069186665266943`*^9, 
   3.406918733372814*^9}, {3.4069187915965357`*^9, 3.4069188352493057`*^9}, 
   3.40691889159032*^9, {3.4069190197045393`*^9, 3.406919169419819*^9}, {
   3.406919208395864*^9, 3.406919248733867*^9}, {3.4069195061840625`*^9, 
   3.4069197873784*^9}, {3.4069198924194417`*^9, 3.4069200023475103`*^9}, {
   3.406920035114627*^9, 3.4069200631849904`*^9}, {3.406920258595978*^9, 
   3.4069202701325665`*^9}, {3.406920419457285*^9, 3.406920420618955*^9}, {
   3.4069213441268945`*^9, 3.4069213591685233`*^9}, {3.4069215245062675`*^9, 
   3.4069215380257072`*^9}, {3.40692160474164*^9, 3.4069216054526625`*^9}, {
   3.406921660211402*^9, 3.406921737512555*^9}, {3.4069217861524963`*^9, 
   3.40692189975585*^9}, {3.4069219378205843`*^9, 3.406921965400242*^9}, {
   3.4069220160230336`*^9, 3.406922050462555*^9}, {3.406922107114016*^9, 
   3.4069222398949456`*^9}, {3.4069225494100065`*^9, 
   3.4069225973188963`*^9}, {3.4069226602093277`*^9, 
   3.4069226951295404`*^9}, {3.4069227407651615`*^9, 
   3.4069227434189777`*^9}, {3.4069227912177086`*^9, 
   3.4069228205699153`*^9}, {3.406922861268437*^9, 3.406922892743696*^9}, {
   3.4069229527099233`*^9, 3.4069230932219696`*^9}, {3.406923166457277*^9, 
   3.4069232075964317`*^9}, {3.406923261043285*^9, 3.4069233544976654`*^9}, {
   3.406923396087469*^9, 3.406923432860346*^9}, {3.406923499355962*^9, 
   3.4069235388126974`*^9}, {3.406923580202213*^9, 3.4069236418108015`*^9}, {
   3.406923830932746*^9, 3.4069238650317774`*^9}, {3.406923920721856*^9, 
   3.4069239568137536`*^9}, {3.406924508386877*^9, 3.4069245090077696`*^9}, {
   3.4069245730498576`*^9, 3.406924600008622*^9}, 3.4069247788157344`*^9, {
   3.4069248181823406`*^9, 3.4069248892945952`*^9}, {3.4069249500920177`*^9, 
   3.406924971232416*^9}, {3.406925072277712*^9, 3.406925085346504*^9}, {
   3.40692515919269*^9, 3.4069251619666786`*^9}, {3.406925202615128*^9, 
   3.406925242252123*^9}, {3.4069252757102337`*^9, 3.406925277292509*^9}, {
   3.406925332301608*^9, 3.4069253342343874`*^9}, {3.406925384897237*^9, 
   3.406925395742832*^9}, {3.4069254341079984`*^9, 3.40692554615912*^9}, {
   3.4069255827817807`*^9, 3.4069256184230304`*^9}, 3.4069271064627266`*^9, {
   3.40692714946456*^9, 3.4069271530897727`*^9}, {3.406927184414816*^9, 
   3.406927215509528*^9}, {3.4069272629076834`*^9, 3.4069272664127235`*^9}, {
   3.4069273250770783`*^9, 3.406927485878299*^9}, {3.4069275243636384`*^9, 
   3.4069275273779726`*^9}, {3.406927562738819*^9, 3.4069275663940754`*^9}, {
   3.406927655392048*^9, 3.406927680187702*^9}, {3.406927717261011*^9, 
   3.406927753983816*^9}, {3.4069277870613794`*^9, 3.4069278358615503`*^9}, {
   3.406927876810432*^9, 3.4069279892421007`*^9}, {3.4069280692872*^9, 
   3.4069280780397854`*^9}, {3.4069281252276382`*^9, 
   3.4069281856545277`*^9}, {3.406928240062763*^9, 3.4069282562260046`*^9}, {
   3.4069283285199585`*^9, 3.406928547144325*^9}, 3.406928668879371*^9, {
   3.4069289689007807`*^9, 3.4069290601519938`*^9}, {3.40692909159721*^9, 
   3.4069290935400033`*^9}, {3.406929133597603*^9, 3.406929157471933*^9}, {
   3.406929190128891*^9, 3.406929191500864*^9}, {3.406929284344366*^9, 
   3.4069293594523664`*^9}, {3.4069294309351535`*^9, 
   3.4069294471785107`*^9}, {3.4069296019610767`*^9, 3.406929618785269*^9}, {
   3.40692966483148*^9, 3.4069296652120275`*^9}, {3.406929802209019*^9, 
   3.4069298242406993`*^9}, {3.4069298575686226`*^9, 3.40692989416124*^9}, {
   3.4069299461059327`*^9, 3.4069299687885485`*^9}, {3.4069300058818865`*^9, 
   3.4069300728782225`*^9}, {3.4069301182734976`*^9, 
   3.4069301422479715`*^9}, {3.4069301767676077`*^9, 3.406930510777891*^9}, {
   3.4069305751804976`*^9, 3.406930632242549*^9}, {3.4069307246854753`*^9, 
   3.4069307495312014`*^9}, {3.406930827933939*^9, 3.4069309190249214`*^9}, 
   3.4069309991401215`*^9, {3.4069311106805086`*^9, 3.4069311770960093`*^9}, {
   3.4069312176343007`*^9, 3.406931239565837*^9}, {3.4069313485926094`*^9, 
   3.4069313607901487`*^9}, {3.4069314001367264`*^9, 3.4069314160596223`*^9}, 
   3.4069314570385475`*^9, {3.4069314879429855`*^9, 3.4069315261479216`*^9}, {
   3.406931570802131*^9, 3.406931608977024*^9}, {3.406931651337936*^9, 
   3.406931726776411*^9}, {3.4069318197200575`*^9, 3.4069318927350483`*^9}, {
   3.406931967212141*^9, 3.4069323001809263`*^9}, {3.4069323460468783`*^9, 
   3.406932346737872*^9}, {3.406932779269822*^9, 3.4069328099439297`*^9}, {
   3.4069333851209936`*^9, 3.4069333904186115`*^9}}],

Cell[BoxData[
 RowBox[{"Export", "[", 
  RowBox[{"\"\<Pilachowski.gif\>\"", ",", 
   RowBox[{"{", 
    RowBox[{"Table", "[", 
     RowBox[{
      RowBox[{"a", "[", "x", "]"}], ",", 
      RowBox[{"{", 
       RowBox[{"x", ",", "0", ",", "60"}], "}"}]}], "]"}], "}"}]}], 
  "]"}]], "Input",
 CellChangeTimes->{{3.4069330402651153`*^9, 3.4069330909179506`*^9}, {
  3.4069331314562416`*^9, 3.4069331345607057`*^9}, {3.4069331998946514`*^9, 
  3.406933201486941*^9}, {3.406933397078187*^9, 3.4069334263102207`*^9}}]
},
WindowSize->{615, 527},
WindowMargins->{{0, Automatic}, {Automatic, 0}},
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, 31058, 758, 1092, "Input"],
Cell[31629, 781, 511, 12, 31, "Input"]
}
]
*)

(* End of internal cache information *)