c²ryK    àyK       (+¼z ŠõM Â\Cè   (+¼z °bTä¹ <x ÿÿÿÿŠõM RN    ¼z     à~    øxÞ8Ààb² gÞLý     è¦|Ÿ    b Ÿ eŒY ¸ž¿N¹Cè(*CacheID: 234*)
(* Internal cache information:
NotebookFileLineBreakTest
NotebookFileLineBreakTest
NotebookDataPosition[       152,          0]
NotebookDataLength[     18937,        490]
NotebookOptionsPosition[     18651,        469]
NotebookOutlinePosition[     18992,        484]
CellTagsIndexPosition[     18949,        481]
WindowFrame->Normal
ContainsDynamic->False*)

(* Beginning of Notebook Content *)
Notebook[{
Cell[BoxData[
 RowBox[{"Do", "[", 
  RowBox[{
   RowBox[{
    RowBox[{"a", "[", "x", "]"}], "=", "\[IndentingNewLine]", 
    RowBox[{"Graphics3D", "[", 
     RowBox[{
      RowBox[{"{", 
       RowBox[{
        RowBox[{"{", 
         RowBox[{"Translate", "[", 
          RowBox[{
           RowBox[{"Scale", "[", 
            RowBox[{
             RowBox[{"PolyhedronData", "[", 
              RowBox[{"\"\<TruncatedIcosahedron\>\"", ",", "\"\<Faces\>\""}], 
              "]"}], ",", "\n", 
             RowBox[{"{", 
              RowBox[{".7", ",", ".7", ",", ".7"}], "}"}], ",", 
             RowBox[{"{", 
              RowBox[{"42.5", ",", "42.5", ",", 
               RowBox[{"Abs", "[", "x", "]"}]}], "}"}]}], "]"}], ",", 
           RowBox[{"{", 
            RowBox[{"0", ",", "0", ",", "0"}], "}"}]}], "]"}], "}"}], ",", 
        "\[IndentingNewLine]", 
        RowBox[{"{", 
         RowBox[{"{", 
          RowBox[{"Translate", "[", 
           RowBox[{
            RowBox[{"Scale", "[", 
             RowBox[{
              RowBox[{"PolyhedronData", "[", 
               RowBox[{"\"\<TruncatedIcosahedron\>\"", ",", "\"\<Faces\>\""}],
                "]"}], ",", "\n", 
              RowBox[{"{", 
               RowBox[{".7", ",", ".7", ",", ".7"}], "}"}], ",", 
              RowBox[{"{", 
               RowBox[{"42.5", ",", "20", ",", 
                RowBox[{
                 RowBox[{"Abs", "[", "x", "]"}], "-", "72"}]}], "}"}]}], 
             "]"}], ",", 
            RowBox[{"{", 
             RowBox[{"0", ",", "0", ",", "0"}], "}"}]}], "]"}], "}"}], "}"}], 
        ",", "\[IndentingNewLine]", 
        RowBox[{"{", 
         RowBox[{"Green", ",", 
          RowBox[{"Cuboid", "[", 
           RowBox[{
            RowBox[{"{", 
             RowBox[{"0", ",", "25", ",", "0"}], "}"}], ",", 
            RowBox[{"{", 
             RowBox[{"25", ",", "0", ",", "0"}], "}"}]}], "]"}]}], "}"}], ",",
         "\[IndentingNewLine]", 
        RowBox[{"{", 
         RowBox[{"Brown", ",", 
          RowBox[{"Cylinder", "[", 
           RowBox[{
            RowBox[{"{", 
             RowBox[{
              RowBox[{"{", 
               RowBox[{"12.5", ",", "12.5", ",", "19"}], "}"}], ",", 
              RowBox[{"{", 
               RowBox[{"12.5", ",", "12.5", ",", "18"}], "}"}]}], "}"}], ",", 
            "1.75"}], "]"}]}], "}"}], ",", "\[IndentingNewLine]", 
        RowBox[{"{", 
         RowBox[{"Blue", ",", 
          RowBox[{"Cylinder", "[", 
           RowBox[{
            RowBox[{"{", 
             RowBox[{
              RowBox[{"{", 
               RowBox[{"12.5", ",", "12.5", ",", "12"}], "}"}], ",", 
              RowBox[{"{", 
               RowBox[{"12.5", ",", "12.5", ",", "18"}], "}"}]}], "}"}], ",", 
            "2.5"}], "]"}]}], "}"}], ",", "\[IndentingNewLine]", 
        RowBox[{"{", 
         RowBox[{"Brown", ",", 
          RowBox[{"Sphere", "[", 
           RowBox[{
            RowBox[{"{", 
             RowBox[{"12.5", ",", "12.5", ",", "20.5"}], "}"}], ",", "2.5"}], 
           "]"}]}], "}"}], ",", "\[IndentingNewLine]", 
        RowBox[{"{", 
         RowBox[{"Black", ",", 
          RowBox[{"Sphere", "[", 
           RowBox[{
            RowBox[{"{", 
             RowBox[{"12.5", ",", "12.5", ",", "21"}], "}"}], ",", "2.25"}], 
           "]"}]}], "}"}], ",", "\[IndentingNewLine]", 
        RowBox[{"{", 
         RowBox[{"Black", ",", 
          RowBox[{"Sphere", "[", 
           RowBox[{
            RowBox[{"{", 
             RowBox[{"11.75", ",", "10.6", ",", "21"}], "}"}], ",", ".5"}], 
           "]"}]}], "}"}], ",", "\[IndentingNewLine]", 
        RowBox[{"{", 
         RowBox[{"Black", ",", 
          RowBox[{"Sphere", "[", 
           RowBox[{
            RowBox[{"{", 
             RowBox[{"13.25", ",", "10.6", ",", "21"}], "}"}], ",", ".5"}], 
           "]"}]}], "}"}], ",", "\[IndentingNewLine]", 
        RowBox[{"{", 
         RowBox[{"White", ",", 
          RowBox[{"Cylinder", "[", 
           RowBox[{
            RowBox[{"{", 
             RowBox[{
              RowBox[{"{", 
               RowBox[{"11.5", ",", "10.2", ",", "19.75"}], "}"}], ",", 
              RowBox[{"{", 
               RowBox[{"13.5", ",", "10.2", ",", "19.75"}], "}"}]}], "}"}], 
            ",", ".1"}], "]"}]}], "}"}], ",", "\[IndentingNewLine]", 
        RowBox[{"{", 
         RowBox[{"Yellow", ",", 
          RowBox[{"Sphere", "[", 
           RowBox[{
            RowBox[{"{", 
             RowBox[{"12.5", ",", "12.5", ",", "12"}], "}"}], ",", "2.5"}], 
           "]"}]}], "}"}], ",", "\[IndentingNewLine]", 
        RowBox[{"{", 
         RowBox[{"Yellow", ",", 
          RowBox[{"Sphere", "[", 
           RowBox[{
            RowBox[{"{", 
             RowBox[{"12", ",", "12.5", ",", "11"}], "}"}], ",", "1.5"}], 
           "]"}]}], "}"}], ",", "\[IndentingNewLine]", 
        RowBox[{"{", 
         RowBox[{"Yellow", ",", 
          RowBox[{"Sphere", "[", 
           RowBox[{
            RowBox[{"{", 
             RowBox[{"12", ",", "12.5", ",", "11"}], "}"}], ",", "1.5"}], 
           "]"}]}], "}"}], ",", "\[IndentingNewLine]", 
        RowBox[{"{", 
         RowBox[{"Yellow", ",", 
          RowBox[{"Cylinder", "[", 
           RowBox[{
            RowBox[{"{", 
             RowBox[{
              RowBox[{"{", 
               RowBox[{"13.75", ",", 
                RowBox[{
                 RowBox[{"2", 
                  RowBox[{"Sin", "[", 
                   RowBox[{
                    RowBox[{"(", 
                    RowBox[{"x", "-", "7.5"}], ")"}], "/", "3.75"}], "]"}]}], 
                 "+", "10.5"}], ",", "7"}], "}"}], ",", 
              RowBox[{"{", 
               RowBox[{"13.75", ",", "12.5", ",", "11.5"}], "}"}]}], "}"}], 
            ",", "1.25"}], "]"}]}], "}"}], ",", "\[IndentingNewLine]", 
        RowBox[{"{", 
         RowBox[{"Yellow", ",", 
          RowBox[{"Cylinder", "[", 
           RowBox[{
            RowBox[{"{", 
             RowBox[{
              RowBox[{"{", 
               RowBox[{"11.25", ",", 
                RowBox[{
                 RowBox[{
                  RowBox[{"-", "2"}], 
                  RowBox[{"Sin", "[", 
                   RowBox[{
                    RowBox[{"(", 
                    RowBox[{"x", "-", "7.5"}], ")"}], "/", "3.75"}], "]"}]}], 
                 "+", "10.5"}], ",", "7"}], "}"}], ",", 
              RowBox[{"{", 
               RowBox[{"11.25", ",", "12.5", ",", "11.5"}], "}"}]}], "}"}], 
            ",", "1.25"}], "]"}]}], "}"}], ",", "\[IndentingNewLine]", 
        RowBox[{"{", 
         RowBox[{"Brown", ",", 
          RowBox[{"Sphere", "[", 
           RowBox[{
            RowBox[{"{", 
             RowBox[{"13.75", ",", 
              RowBox[{
               RowBox[{"2", 
                RowBox[{"Sin", "[", 
                 RowBox[{
                  RowBox[{"(", 
                   RowBox[{"x", "-", "7.5"}], ")"}], "/", "3.75"}], "]"}]}], 
               "+", "10.5"}], ",", "6.5"}], "}"}], ",", "1.25"}], "]"}]}], 
         "}"}], ",", "\[IndentingNewLine]", 
        RowBox[{"{", 
         RowBox[{"Brown", ",", 
          RowBox[{"Sphere", "[", 
           RowBox[{
            RowBox[{"{", 
             RowBox[{"11.25", ",", 
              RowBox[{
               RowBox[{
                RowBox[{"-", "2"}], 
                RowBox[{"Sin", "[", 
                 RowBox[{
                  RowBox[{"(", 
                   RowBox[{"x", "-", "7.5"}], ")"}], "/", "3.75"}], "]"}]}], 
               "+", "10.5"}], ",", "6.5"}], "}"}], ",", "1.25"}], "]"}]}], 
         "}"}], ",", "\[IndentingNewLine]", 
        RowBox[{"{", 
         RowBox[{"Blue", ",", 
          RowBox[{"Cylinder", "[", 
           RowBox[{
            RowBox[{"{", 
             RowBox[{
              RowBox[{"{", 
               RowBox[{"13.75", ",", 
                RowBox[{
                 RowBox[{"2", 
                  RowBox[{"Sin", "[", 
                   RowBox[{
                    RowBox[{"(", 
                    RowBox[{"x", "-", "7.5"}], ")"}], "/", "3.75"}], "]"}]}], 
                 "+", "10.5"}], ",", "1.5"}], "}"}], ",", 
              RowBox[{"{", 
               RowBox[{"13.75", ",", 
                RowBox[{
                 RowBox[{"2", 
                  RowBox[{"Sin", "[", 
                   RowBox[{
                    RowBox[{"(", 
                    RowBox[{"x", "-", "7.5"}], ")"}], "/", "3.75"}], "]"}]}], 
                 "+", "10.5"}], ",", "6"}], "}"}]}], "}"}], ",", "1.25"}], 
           "]"}]}], "}"}], ",", "\[IndentingNewLine]", 
        RowBox[{"{", 
         RowBox[{"Blue", ",", 
          RowBox[{"Cylinder", "[", 
           RowBox[{
            RowBox[{"{", 
             RowBox[{
              RowBox[{"{", 
               RowBox[{"11.25", ",", 
                RowBox[{
                 RowBox[{
                  RowBox[{"-", "2"}], 
                  RowBox[{"Sin", "[", 
                   RowBox[{
                    RowBox[{"(", 
                    RowBox[{"x", "-", "7.5"}], ")"}], "/", "3.75"}], "]"}]}], 
                 "+", "10.5"}], ",", "1.5"}], "}"}], ",", 
              RowBox[{"{", 
               RowBox[{"11.25", ",", 
                RowBox[{
                 RowBox[{
                  RowBox[{"-", "2"}], 
                  RowBox[{"Sin", "[", 
                   RowBox[{
                    RowBox[{"(", 
                    RowBox[{"x", "-", "7.5"}], ")"}], "/", "3.75"}], "]"}]}], 
                 "+", "10.5"}], ",", "6"}], "}"}]}], "}"}], ",", "1.25"}], 
           "]"}]}], "}"}], ",", "\[IndentingNewLine]", 
        RowBox[{"{", 
         RowBox[{"Black", ",", 
          RowBox[{"Sphere", "[", 
           RowBox[{
            RowBox[{"{", 
             RowBox[{"13.75", ",", 
              RowBox[{
               RowBox[{"2", 
                RowBox[{"Sin", "[", 
                 RowBox[{
                  RowBox[{"(", 
                   RowBox[{"x", "-", "7.5"}], ")"}], "/", "3.75"}], "]"}]}], 
               "+", "10.5"}], ",", "1"}], "}"}], ",", "1.25"}], "]"}]}], 
         "}"}], ",", "\[IndentingNewLine]", 
        RowBox[{"{", 
         RowBox[{"Black", ",", 
          RowBox[{"Sphere", "[", 
           RowBox[{
            RowBox[{"{", 
             RowBox[{"11.25", ",", 
              RowBox[{
               RowBox[{
                RowBox[{"-", "2"}], 
                RowBox[{"Sin", "[", 
                 RowBox[{
                  RowBox[{"(", 
                   RowBox[{"x", "-", "7.5"}], ")"}], "/", "3.75"}], "]"}]}], 
               "+", "10.5"}], ",", "1"}], "}"}], ",", "1.25"}], "]"}]}], 
         "}"}], ",", "\[IndentingNewLine]", 
        RowBox[{"{", 
         RowBox[{"Black", ",", 
          RowBox[{"Sphere", "[", 
           RowBox[{
            RowBox[{"{", 
             RowBox[{"13.75", ",", 
              RowBox[{
               RowBox[{"2", 
                RowBox[{"Sin", "[", 
                 RowBox[{
                  RowBox[{"(", 
                   RowBox[{"x", "-", "7.5"}], ")"}], "/", "3.75"}], "]"}]}], 
               "+", "9"}], ",", "1"}], "}"}], ",", "1.15"}], "]"}]}], "}"}], 
        ",", "\[IndentingNewLine]", 
        RowBox[{"{", 
         RowBox[{"Black", ",", 
          RowBox[{"Sphere", "[", 
           RowBox[{
            RowBox[{"{", 
             RowBox[{"11.25", ",", 
              RowBox[{
               RowBox[{
                RowBox[{"-", "2"}], 
                RowBox[{"Sin", "[", 
                 RowBox[{
                  RowBox[{"(", 
                   RowBox[{"x", "-", "7.5"}], ")"}], "/", "3.75"}], "]"}]}], 
               "+", "9"}], ",", "1"}], "}"}], ",", "1.15"}], "]"}]}], "}"}], 
        ",", "\[IndentingNewLine]", 
        RowBox[{"{", 
         RowBox[{"Yellow", ",", 
          RowBox[{"Sphere", "[", 
           RowBox[{
            RowBox[{"{", 
             RowBox[{"10", ",", "12.5", ",", "17"}], "}"}], ",", "1"}], 
           "]"}]}], "}"}], ",", "\[IndentingNewLine]", 
        RowBox[{"{", 
         RowBox[{"Yellow", ",", 
          RowBox[{"Sphere", "[", 
           RowBox[{
            RowBox[{"{", 
             RowBox[{"15", ",", "12.5", ",", "17"}], "}"}], ",", "1"}], 
           "]"}]}], "}"}], ",", "\[IndentingNewLine]", 
        RowBox[{"{", 
         RowBox[{"Yellow", ",", 
          RowBox[{"Cylinder", "[", 
           RowBox[{
            RowBox[{"{", 
             RowBox[{
              RowBox[{"{", 
               RowBox[{"8", ",", "12.5", ",", "15"}], "}"}], ",", 
              RowBox[{"{", 
               RowBox[{"10.5", ",", "12.5", ",", "17"}], "}"}]}], "}"}], ",", 
            ".85"}], "]"}]}], "}"}], ",", "\[IndentingNewLine]", 
        RowBox[{"{", 
         RowBox[{"Yellow", ",", 
          RowBox[{"Cylinder", "[", 
           RowBox[{
            RowBox[{"{", 
             RowBox[{
              RowBox[{"{", 
               RowBox[{"17", ",", "12.5", ",", "15"}], "}"}], ",", 
              RowBox[{"{", 
               RowBox[{"14.5", ",", "12.5", ",", "17"}], "}"}]}], "}"}], ",", 
            ".85"}], "]"}]}], "}"}], ",", "\[IndentingNewLine]", 
        RowBox[{"{", 
         RowBox[{"Brown", ",", 
          RowBox[{"Sphere", "[", 
           RowBox[{
            RowBox[{"{", 
             RowBox[{"8", ",", "12.5", ",", "15"}], "}"}], ",", ".8"}], 
           "]"}]}], "}"}], ",", "\[IndentingNewLine]", 
        RowBox[{"{", 
         RowBox[{"Brown", ",", 
          RowBox[{"Sphere", "[", 
           RowBox[{
            RowBox[{"{", 
             RowBox[{"17", ",", "12.5", ",", "15"}], "}"}], ",", ".8"}], 
           "]"}]}], "}"}], ",", "\[IndentingNewLine]", 
        RowBox[{"{", 
         RowBox[{"Brown", ",", 
          RowBox[{"Cylinder", "[", 
           RowBox[{
            RowBox[{"{", 
             RowBox[{
              RowBox[{"{", 
               RowBox[{"8", ",", "12.5", ",", "15"}], "}"}], ",", 
              RowBox[{"{", 
               RowBox[{"8", ",", "11", ",", "13"}], "}"}]}], "}"}], ",", 
            ".75"}], "]"}]}], "}"}], ",", "\[IndentingNewLine]", 
        RowBox[{"{", 
         RowBox[{"Brown", ",", 
          RowBox[{"Cylinder", "[", 
           RowBox[{
            RowBox[{"{", 
             RowBox[{
              RowBox[{"{", 
               RowBox[{"17", ",", "12.5", ",", "15"}], "}"}], ",", 
              RowBox[{"{", 
               RowBox[{"17", ",", "11", ",", "13"}], "}"}]}], "}"}], ",", 
            ".75"}], "]"}]}], "}"}], ",", "\[IndentingNewLine]", 
        RowBox[{"{", 
         RowBox[{"Brown", ",", 
          RowBox[{"Sphere", "[", 
           RowBox[{
            RowBox[{"{", 
             RowBox[{"8", ",", "11", ",", "13"}], "}"}], ",", ".8"}], "]"}]}],
          "}"}], ",", "\[IndentingNewLine]", 
        RowBox[{"{", 
         RowBox[{"Brown", ",", 
          RowBox[{"Sphere", "[", 
           RowBox[{
            RowBox[{"{", 
             RowBox[{"17", ",", "11", ",", "13"}], "}"}], ",", ".8"}], 
           "]"}]}], "}"}]}], "}"}], ",", "\[IndentingNewLine]", 
      RowBox[{"PlotRange", "\[Rule]", 
       RowBox[{"{", 
        RowBox[{
         RowBox[{"{", 
          RowBox[{"0", ",", "25"}], "}"}], ",", 
         RowBox[{"{", 
          RowBox[{"0", ",", "25"}], "}"}], ",", 
         RowBox[{"{", 
          RowBox[{"0", ",", "30"}], "}"}]}], "}"}]}], ",", 
      RowBox[{"Axes", "\[Rule]", "True"}], ",", " ", 
      RowBox[{"AxesLabel", "\[Rule]", 
       RowBox[{"{", 
        RowBox[{"x", ",", "y", ",", "z"}], "}"}]}]}], "]"}]}], ",", 
   RowBox[{"{", 
    RowBox[{"x", ",", "80", ",", "90"}], "}"}]}], "]"}]], "Input",
 CellChangeTimes->{{3.407003096611454*^9, 3.407003102094776*^9}, {
   3.407003414284824*^9, 3.407003503986348*^9}, {3.40700380331949*^9, 
   3.407003856059362*^9}, {3.407006430765625*^9, 3.407006511484375*^9}, 
   3.4070065429375*^9, {3.40700657640625*^9, 3.407006576484375*^9}, {
   3.40700661125*^9, 3.407006649953125*^9}, {3.407007937375*^9, 
   3.407007951890625*^9}, {3.4070079911875*^9, 3.407008014921875*^9}, {
   3.40700807753125*^9, 3.4070080786875*^9}, {3.40700817359375*^9, 
   3.40700826425*^9}, {3.407008426375*^9, 3.407008427671875*^9}, {
   3.407009260578125*^9, 3.40700926840625*^9}, {3.407009308796875*^9, 
   3.407009309484375*^9}, 3.40701000996875*^9, 3.40701024921875*^9, {
   3.4070103179375*^9, 3.407010358984375*^9}, {3.407010402625*^9, 
   3.407010410359375*^9}, {3.4070107925625*^9, 3.4070107931875*^9}, {
   3.40701182175*^9, 3.40701182178125*^9}, {3.407011936921875*^9, 
   3.407011937546875*^9}, {3.4070119941875*^9, 3.407012044796875*^9}, {
   3.407012080265625*^9, 3.407012183796875*^9}, {3.40701321903125*^9, 
   3.407013675765625*^9}, {3.40701371225*^9, 3.4070138755*^9}, {
   3.40701393590625*^9, 3.40701397334375*^9}, {3.40701413703125*^9, 
   3.40701419503125*^9}, {3.407014249578125*^9, 3.4070142694375*^9}, {
   3.4070143041875*^9, 3.40701435325*^9}, {3.4070143875*^9, 
   3.40701447209375*^9}, {3.4070145260625*^9, 3.40701453890625*^9}, {
   3.407014579515625*^9, 3.407014608890625*^9}, {3.40701464290625*^9, 
   3.407014647328125*^9}, {3.407014745921875*^9, 3.40701478746875*^9}, {
   3.407014830546875*^9, 3.407014840375*^9}, {3.407015104890625*^9, 
   3.407015173125*^9}, 3.4070152876875*^9, {3.407015336359375*^9, 
   3.407015453515625*^9}, {3.407015491171875*^9, 3.4070156015625*^9}, {
   3.407015645796875*^9, 3.4070157125*^9}, {3.407015752640625*^9, 
   3.407016074546875*^9}, {3.407016222984375*^9, 3.40701629978125*^9}, {
   3.407016329875*^9, 3.40701635703125*^9}, {3.407016416953125*^9, 
   3.407016494359375*^9}, {3.407016633421875*^9, 3.4070166708125*^9}, {
   3.407017613140625*^9, 3.40701768628125*^9}, {3.407017718515625*^9, 
   3.407017790453125*^9}, {3.4070545520438137`*^9, 3.4070545613567305`*^9}}],

Cell[BoxData[
 RowBox[{"Export", "[", 
  RowBox[{"\"\<Pinto.gif\>\"", ",", 
   RowBox[{"Table", "[", 
    RowBox[{
     RowBox[{"a", "[", "x", "]"}], ",", 
     RowBox[{"{", 
      RowBox[{"x", ",", "80", ",", "90"}], "}"}]}], "]"}]}], "]"}]], "Input",
 CellChangeTimes->{{3.4070174358125*^9, 3.407017502921875*^9}, {
  3.4070545843421354`*^9, 3.4070545990459194`*^9}}]
},
WindowSize->{646, 960},
WindowMargins->{{58, Automatic}, {Automatic, 71}},
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[575, 14, 17700, 442, 872, "Input"],
Cell[18278, 458, 369, 9, 31, "Input"]
}
]
*)
      RowBox[{"Sin", "[", 
                 RowBox[{
                  RowBox[{"(", 
                   RowBox[{"x", "-", "7.5"}], ")"}], "/", "3.75"}], "]"}]}], 
               "+", "10.5"}], ",", "1.5"}], "}"}], ",", 
            RowBox[{"{", 
             RowBox[{"11.25", ",", 
              RowBox[{
               RowBox[{
                RowBox[{"-", "2"}], 
                RowBox[{"Sin", "[", 
                 RowBox[{
                  RowBox[{"(", 
                   RowBox[{"x", "-", "7.5"}], ")"}], "/", "3.75"}], "]"}]}], 
               "+", "10.5"}], ",", "6"}], "}"}]}], "}"}], ",", "1.25"}], 
         "]"}], ",", "\[IndentingNewLine]", 
        RowBox[{"Sphere", "[", 
         RowBox[{
          RowBox[{"{", 
           RowBox[{"13.75", ",", 
            RowBox[{
             RowBox[{"2", 
              RowBox[{"Sin", "[", 
               RowBox[{
                RowBox[{"(", 
                 RowBox[{"x", "-", "7.5"}], ")"}], "/", "3.75"}], "]"}]}], 
             "+", "10.5"}], ",", "1"}], "}"}], ",", "1.25"}], "]"}], ",", 
        "\[IndentingNewLine]", 
        RowBox[{"Sphere", "[", 
         RowBox[{
          RowBox[{"{", 
           RowBox[{"11.25", ",", 
            RowBox[{
             RowBox[{
              RowBox[{"-", "2"}], 
              RowBox[{"Sin", "[", 
               RowBox[{
                RowBox[{"(", 
                 RowBox[{"x", "-", "7.5"}], ")"}], "/", "3.75"}], "]"}]}], 
             "+", "10.5"}], ",", "1"}], "}"}], ",", "1.25"}], "]"}], ",", 
        "\[IndentingNewLine]", 
        RowBox[{"Sphere", "[", 
         RowBox[{
          RowBox[{"{", 
           RowBox[{"13.75", ",", 
            RowBox[{
             RowBox[{"2", 
              RowBox[{"Sin", "[", 
               RowBox[{
                RowBox[{"(", 
                 RowBox[{"x", "-", "7.5"}], ")"}], "/", "3.75"}], "]"}]}], 
             "+", "9"}], ",", "1"}], "}"}], ",", "1.15"}], "]"}], ",", 
        "\[IndentingNewLine]", 
        RowBox[{"Sphere", "[", 
         RowBox[{
          RowBox[{"{", 
           RowBox[{"11.25", ",", 
            RowBox[{
             RowBox[{
              RowBox[{"-", "2"}], 
              RowBox[{"Sin", "[", 
               RowBox[{
                RowBox[{"(", 
                 RowBox[{"x", "-", "7.5"}], ")"}], "/", "3.75"}], "]"}]}], 
             "+", "9"}], ",", "1"}], "}"}], ",", "1.15"}], "]"}], ",", 
        "\[IndentingNewLine]", 
        RowBox[{"Sphere", "[", 
         RowBox[{
          RowBox[{"{", 
           RowBox[{"10", ",", "12.5", ",", "17"}], "}"}], ",", "1"}], "]"}], 
        ",", "\[IndentingNewLine]", 
        RowBox[{"Sphere", "[", 
         RowBox[{
          RowBox[{"{", 
           RowBox[{"15", ",", "12.5", ",", "17"}], "}"}], ",", "1"}], "]"}], 
        ",", "\[IndentingNewLine]", 
        RowBox[{"Cylinder", "[", 
         RowBox[{
          RowBox[{"{", 
           RowBox[{
            RowBox[{"{", 
             RowBox[{"8", ",", "12.5", ",", "15"}], "}"}], ",", 
            RowBox[{"{", 
             RowBox[{"10.5", ",", "12.5", ",", "17"}], "}"}]}], "}"}], ",", 
          ".85"}], "]"}], ",", "\[IndentingNewLine]", 
        RowBox[{"Cylinder", "[", 
         RowBox[{
          RowBox[{"{", 
           RowBox[{
            RowBox[{"{", 
             RowBox[{"17", ",", "12.5", ",", "15"}], "}"}], ",", 
            RowBox[{"{", 
             RowBox[{"14.5", ",", "12.5", ",", "17"}], "}"}]}], "}"}], ",", 
          ".85"}], "]"}], ",", "\[IndentingNewLine]", 
        RowBox[{"Sphere", "[", 
         RowBox[{
          RowBox[{"{", 
           RowBox[{"8", ",", "12.5", ",", "15"}], "}"}], ",", ".8"}], "]"}], 
        ",", "\[IndentingNewLine]", 
        RowBox[{"Sphere", "[", 
         RowBox[{
          RowBox[{"{", 
           RowBox[{"17", ",", "12.5", ",", "15"}], "}"}], ",", ".8"}], "]"}], 
        ",", "\[IndentingNewLine]", 
        RowBox[{"Cylinder", "[", 
         RowBox[{
          RowBox[{"{", 
           RowBox[{
            RowBox[{"{", 
             RowBox[{"8", ",", "12.5", ",", "15"}], "}"}], ",", 
            RowBox[{"{", 
             RowBox[{"8", ",", "11", ",", "13"}], "}"}]}], "}"}], ",", 
          ".75"}], "]"}], ",", "\[IndentingNewLine]", 
        RowBox[{"Cylinder", "[", 
         RowBox[{
          RowBox[{"{", 
           RowBox[{
            RowBox[{"{", 
             RowBox[{"17", ",", "12.5", ",", "15"}], "}"}], ",", 
            RowBox[{"{", 
             RowBox[{"17", ",", "11", ",", "13"}], "}"}]}], "}"}], ",", 
          ".75"}], "]"}], ",", "\[IndentingNewLine]", 
        RowBox[{"Sphere", "[", 
         RowBox[{
          RowBox[{"{", 
           RowBox[{"8", ",", "11", ",", "13"}], "}"}], ",", ".8"}], "]"}], 
        ",", "\[IndentingNewLine]", 
        RowBox[{"Sphere", "[", 
         RowBox[{
          RowBox[{"{", 
           RowBox[{"17", ",", "11", ",", "13"}], "}"}], ",", ".8"}], "]"}]}], 
       "}"}], ",", "\[IndentingNewLine]", 
      RowBox[{"PlotRange", "\[Rule]", 
       RowBox[{"{", 
        RowBox[{
         RowBox[{"{", 
          RowBox[{"0", ",", "25"}], "}"}], ",", 
         RowBox[{"{", 
          RowBox[{"0", ",", "25"}], "}"}], ",", 
         RowBox[{"{", 
          RowBox[{"0", ",", "25"}], "}"}]}], "}"}]}], ",", 
      RowBox[{"Axes", "\[Rule]", "True"}], ",", " ", 
      RowBox[{"AxesLabel", "\[Rule]", 
       RowBox[{"{", 
        RowBox[{"x", ",", "y", ",", "z"}], "}"}]}]}], "]"}]}], ",", 
   RowBox[{"{", 
    RowBox[{"x", ",", 
     RowBox[{"-", "10"}], ",", "50"}], "}"}]}], "]"}]], "Input",
 CellChangeTimes->{{3.406543204864518*^9, 3.406543261657866*^9}, 
   3.406889338083776*^9, {3.4068897797393613`*^9, 3.406890101689372*^9}, {
   3.4068901442013397`*^9, 3.4068902517003527`*^9}, {3.4068903129519715`*^9, 
   3.4068903863476343`*^9}, {3.4068904994576015`*^9, 
   3.4068905291534615`*^9}, {3.4068905966255817`*^9, 3.406890758327354*^9}, {
   3.406890817687815*^9, 3.406890952647684*^9}, {3.406891144060946*^9, 
   3.4068911457176623`*^9}, {3.406891409260605*^9, 3.4068915120082808`*^9}, {
   3.406891560975191*^9, 3.4068916174129543`*^9}, {3.4068917379312577`*^9, 
   3.4068917791303563`*^9}, {3.406891814671612*^9, 3.4068918519321012`*^9}, {
   3.4068918837848186`*^9, 3.406891904024892*^9}, {3.406891959946885*^9, 
   3.406891970981241*^9}, {3.4068920071320434`*^9, 3.4068920161502075`*^9}, {
   3.4068920728693*^9, 3.4068922916965294`*^9}, {3.4068923689682827`*^9, 
   3.4068924728100166`*^9}, {3.4068925521448507`*^9, 3.406892566180052*^9}, {
   3.4068927220846233`*^9, 3.406892730602646*^9}, {3.4068927992157125`*^9, 
   3.406892866812867*^9}, {3.406893218036744*^9, 3.4068932683477826`*^9}, {
   3.4068936008788967`*^9, 3.406893602676278*^9}, {3.406893995208659*^9, 
   3.406894017089819*^9}, {3.406894312219779*^9, 3.4068943391961236`*^9}, {
   3.4069077222487993`*^9, 3.406907728130414*^9}, {3.4069085897947683`*^9, 
   3.4069087411722417`*^9}, {3.4069087939039593`*^9, 
   3.4069088759189425`*^9}, {3.4069089211933346`*^9, 3.4069089502737846`*^9}, 
   3.4069090027714863`*^9, {3.4069091215270596`*^9, 3.406909146738437*^9}, {
   3.4069092315148144`*^9, 3.406909277928087*^9}, {3.406909315635946*^9, 
   3.406909424079192*^9}, {3.4069095894352508`*^9, 3.4069096341324024`*^9}, {
   3.4069097605013123`*^9, 3.40690977181211*^9}, {3.4069101324159355`*^9, 
   3.40691015815775*^9}, {3.406910203213727*^9, 3.4069102232455397`*^9}, {
   3.40691028182767*^9, 3.4069103464942293`*^9}, {3.4069103832660217`*^9, 
   3.406910392470671*^9}, {3.406910588779312*^9, 3.4069107013935423`*^9}, {
   3.406911657226136*^9, 3.4069117049030976`*^9}, {3.406911903442696*^9, 
   3.4069119041135435`*^9}, {3.4069119752389584`*^9, 
   3.4069120276742554`*^9}, {3.4069120883469334`*^9, 
   3.4069122565267916`*^9}, {3.4069124681713142`*^9, 3.406912472196398*^9}, {
   3.40691251449098*^9, 3.4069125665518503`*^9}, {3.406912600172221*^9, 
   3.4069126868363314`*^9}, {3.406912719037002*^9, 3.406912829461588*^9}, {
   3.406921080765625*^9, 3.406921133875*^9}, {3.406921170859375*^9, 
   3.406921203546875*^9}, {3.4069212581875*^9, 3.406921268859375*^9}, {
   3.40692314909375*^9, 3.4069231494375*^9}, {3.4069232195625*^9, 
   3.406923253109375*^9}, {3.40692329278125*^9, 3.406923368390625*^9}, {
   3.406923414734375*^9, 3.406923501375*^9}, {3.4069943256615953`*^9, 
   3.4069944337832975`*^9}, {3.4069956517158575`*^9, 
   3.4069957365848703`*^9}, {3.4069958167500105`*^9, 3.406995830118676*^9}, {
   3.4069959417376633`*^9, 3.406996006259177*^9}, {3.4069960549167233`*^9, 
   3.406996109931772*^9}, {3.4069961509197016`*^9, 3.4069963059229593`*^9}, {
   3.4069963423210545`*^9, 3.406996346679453*^9}, 3.4069964177572775`*^9, 
   3.4069964586543646`*^9, 3.406996537714776*^9, {3.406996615635559*^9, 
   3.4069966663126783`*^9}, {3.406996707210551*^9, 3.406996783757371*^9}, {
   3.406996863444173*^9, 3.4069968879548473`*^9}, {3.4069969527076225`*^9, 
   3.4069969883255544`*^9}, 3.4069971594026456`*^9, 3.4069973007972536`*^9, {
   3.406997359785926*^9, 3.4069973604889154`*^9}, 3.407002608798882*^9, {
   3.4070027093264523`*^9, 3.4070027209492197`*^9}, {3.407002869608172*^9, 
   3.407002891119666*^9}, {3.4070029509987917`*^9, 3.407003029827404*^9}}],

Cell[CellGroupData[{

Cell[BoxData[
 RowBox[{"Graphics3D", "[", 
  RowBox[{
   RowBox[{"{", 
    RowBox[{"Translate", "[", 
     RowBox[{
      RowBox[{"Scale", "[", 
       RowBox[{
        RowBox[{"PolyhedronData", "[", 
         RowBox[{"\"\<TruncatedIcosahedron\>\"", ",", "\"\<Faces\>\""}], 
         "]"}], ",", "\n", 
        RowBox[{"{", 
         RowBox[{".2", ",", ".2", ",", ".2"}], "}"}], ",", 
        RowBox[{"{", 
         RowBox[{"0", ",", "0", ",", "0"}], "}"}]}], "]"}], ",", 
      RowBox[{"{", 
       RowBox[{"0", ",", "0", ",", "0"}], "}"}]}], "]"}], "}"}], ",", 
   "\[IndentingNewLine]", 
   RowBox[{"PlotRange", "\[Rule]", 
    RowBox[{"{", 
     RowBox[{
      RowBox[{"{", 
       RowBox[{
        RowBox[{"-", "3"}], ",", "3"}], "}"}], ",", 
      RowBox[{"{", 
       RowBox[{
        RowBox[{"-", "3"}], ",", "3"}], "}"}], ",", 
      RowBox[{"{", 
       RowBox[{
        RowBox[{"-", "3"}], ",", "3"}], "}"}]}], "}"}]}]}], "]"}]], "Input",
 CellChangeTimes->{{3.40693835653125*^9, 3.406938385890625*^9}, {
   3.40693852625*^9, 3.406938774296875*^9}, {3.40693884453125*^9, 
   3.40693885709375*^9}, {3.406938892671875*^9, 3.406938946484375*^9}, {
   3.4069393898125*^9, 3.406939505890625*^9}, {3.406993935441822*^9, 
   3.4069939741761837`*^9}, 3.4069949215111203`*^9}],

Cell[BoxData[
 Graphics3DBox[
  InterpretationBox[GraphicsComplex3DBox[CompressedData["
1:eJx1lM0rhFEYxSf+AEoshNBEWSg7i6mnLMTGwucCjRRWk0RNTTa2RtmQUEhJ
SVlNMZvb+KpBmcmM8TmKhShhYaFJ+bjvOTVPeevd/Hrec88999y3on+4dSDH
5XJ5ft7cn7eqJTEbXV0x4b3NLW/JtenMqfGVdcREcVFcMN9luVFcwAu3F+9v
njdMW29j82do3/Sl/empo1vyr+DTy0f+nSnOrfecHYbI2+28/DMval6UvoBD
v9TOkyt9PS+Yn3ndPS9fisjC/O+zQ/+K0+fycX7TdMEp84GO4tT3Drkb6nxX
BvrIWXHmb9eNOzxqet5ia8m8lOaiuc0nwfMCtzkkJJtHjNqvKC7ZPC7w023X
NYqL5vCj9iXwA25zShqX80DH4QKO/To5s8/oieLsT3kgeFHrvmQ/kQM4egLu
nAv78A/nfOV7emxy4ob5YF3F6ecxML/+MJumPnqiOPtjdU6MPzM8Eq1OMU/F
RXHBfLZPcvp31mUflE/2AXxusGh0PJOgH/hUXBSnH6VDP+q8eN+xL3CcF3jZ
33cH7Al667b58x7Bj+L0adc/MErHlP79N8K8X+ynw9FncPufCbP/6C045sG/
AQ6z+oI=
    "], Polygon3DBox[{{53, 11, 24, 23, 9}, {51, 39, 40, 52, 30}, {60, 28, 16, 
      12, 2}, {20, 42, 48, 55, 18}, {19, 17, 54, 47, 41}, {1, 10, 15, 27, 
      59}, {36, 26, 44, 50, 38}, {4, 58, 22, 32, 8}, {34, 29, 33, 45, 46}, {
      21, 57, 3, 6, 31}, {37, 49, 43, 25, 35}, {13, 5, 56, 7, 14}, {9, 59, 27,
       51, 30, 53}, {53, 30, 52, 28, 60, 11}, {11, 60, 2, 42, 20, 24}, {24, 
      20, 18, 17, 19, 23}, {23, 19, 41, 1, 59, 9}, {13, 25, 43, 3, 57, 5}, {5,
       57, 21, 33, 29, 56}, {56, 29, 34, 22, 58, 7}, {7, 58, 4, 44, 26, 14}, {
      14, 26, 36, 35, 25, 13}, {40, 38, 50, 16, 28, 52}, {16, 50, 44, 4, 8, 
      12}, {12, 8, 32, 48, 42, 2}, {48, 32, 22, 34, 46, 55}, {55, 46, 45, 54, 
      17, 18}, {54, 45, 33, 21, 31, 47}, {47, 31, 6, 10, 1, 41}, {10, 6, 3, 
      43, 49, 15}, {15, 49, 37, 39, 51, 27}, {39, 37, 35, 36, 38, 40}}],
    VertexColors->Automatic,
    VertexNormals->Automatic],
   Translate[
    Scale[
     GraphicsComplex[{{
       Rational[-1, 2] (1 - 2 5^Rational[-1, 2])^Rational[1, 2], -1 + 
        Rational[-1, 2] 5^Rational[1, 2], (Rational[9, 8] + 
         Rational[9, 8] 5^Rational[-1, 2])^Rational[1, 2]}, {
       Rational[-1, 2] (1 - 2 5^Rational[-1, 2])^Rational[1, 2], 
        Rational[1, 2] (2 + 5^Rational[1, 2]), (Rational[9, 8] + 
         Rational[9, 8] 5^Rational[-1, 2])^Rational[1, 2]}, {
       Rational[1, 2] (1 - 2 5^Rational[-1, 2])^Rational[1, 2], -1 + 
        Rational[-1, 2] 5^Rational[1, 2], 
        Rational[-3, 2] (Rational[1, 10] (5 + 5^Rational[1, 2]))^
         Rational[1, 2]}, {
       Rational[1, 2] (1 - 2 5^Rational[-1, 2])^Rational[1, 2], 
        Rational[1, 2] (2 + 5^Rational[1, 2]), 
        Rational[-3, 2] (Rational[1, 10] (5 + 5^Rational[1, 2]))^
         Rational[1, 2]}, {
       Rational[-1, 4] (2 - 2 5^Rational[-1, 2])^Rational[1, 2], (1 - 5^
         Rational[1, 2])^(-1), -(Rational[25, 8] + 
          Rational[41, 8] 5^Rational[-1, 2])^Rational[1, 2]}, {
       Rational[-1, 4] (2 - 2 5^Rational[-1, 2])^Rational[1, 2], 
        Rational[-3, 4] (1 + 5^Rational[1, 2]), 
        Root[1 - 20 #^2 + 80 #^4& , 1, 0]}, {
       Rational[-1, 4] (2 - 2 5^Rational[-1, 2])^Rational[1, 2], 
        Rational[1, 4] (1 + 
         5^Rational[1, 2]), -(Rational[25, 8] + 
          Rational[41, 8] 5^Rational[-1, 2])^Rational[1, 2]}, {
       Rational[-1, 4] (2 - 2 5^Rational[-1, 2])^Rational[1, 2], 
        Rational[3, 4] (1 + 5^Rational[1, 2]), 
        Root[1 - 20 #^2 + 80 #^4& , 1, 0]}, {
       Rational[1, 4] (2 - 2 5^Rational[-1, 2])^Rational[1, 2], (1 - 5^
         Rational[1, 2])^(-1), (Rational[25, 8] + 
         Rational[41, 8] 5^Rational[-1, 2])^Rational[1, 2]}, {
       Rational[1, 4] (2 - 2 5^Rational[-1, 2])^Rational[1, 2], 
        Rational[-3, 4] (1 + 5^Rational[1, 2]), (Rational[1, 8] + 
         Rational[1, 8] 5^Rational[-1, 2])^Rational[1, 2]}, {
       Rational[1, 4] (2 - 2 5^Rational[-1, 2])^Rational[1, 2], 
        Rational[1, 4] (1 + 5^Rational[1, 2]), (Rational[25, 8] + 
         Rational[41, 8] 5^Rational[-1, 2])^Rational[1, 2]}, {
       Rational[1, 4] (2 - 2 5^Rational[-1, 2])^Rational[1, 2], 
        Rational[3, 4] (1 + 5^Rational[1, 2]), (Rational[1, 8] + 
         Rational[1, 8] 5^Rational[-1, 2])^
        Rational[1, 2]}, {(Rational[1, 4] + Rational[1, 2] 5^Rational[-1, 2])^
        Rational[1, 2], 
        Rational[-1, 
         2], -(Rational[25, 8] + Rational[41, 8] 5^Rational[-1, 2])^
         Rational[1, 2]}, {(Rational[1, 4] + 
         Rational[1, 2] 5^Rational[-1, 2])^Rational[1, 2], 
        Rational[
        1, 2], -(Rational[25, 8] + Rational[41, 8] 5^Rational[-1, 2])^
         Rational[1, 2]}, {(Rational[5, 4] + 
         Rational[1, 2] 5^Rational[-1, 2])^Rational[1, 2], -1 + 
        Rational[-1, 2] 5^Rational[1, 2], (Rational[1, 8] + 
         Rational[1, 8] 5^Rational[-1, 2])^
        Rational[1, 2]}, {(Rational[5, 4] + Rational[1, 2] 5^Rational[-1, 2])^
        Rational[1, 2], 
        Rational[1, 2] (2 + 5^Rational[1, 2]), (Rational[1, 8] + 
         Rational[1, 8] 5^Rational[-1, 2])^Rational[1, 2]}, {
       Rational[-3, 2] (1 + 2 5^Rational[-1, 2])^Rational[1, 2], 
        Rational[-1, 2], (Rational[9, 8] + Rational[9, 8] 5^Rational[-1, 2])^
        Rational[1, 2]}, {
       Rational[-3, 2] (1 + 2 5^Rational[-1, 2])^Rational[1, 2], 
        Rational[1, 2], (Rational[9, 8] + Rational[9, 8] 5^Rational[-1, 2])^
        Rational[1, 2]}, {-(1 + 2 5^Rational[-1, 2])^Rational[1, 2], -1, 
        Rational[1, 4] (26 + 58 5^Rational[-1, 2])^
         Rational[1, 2]}, {-(1 + 2 5^Rational[-1, 2])^Rational[1, 2], 1, 
        Rational[1, 4] (26 + 58 5^Rational[-1, 2])^
         Rational[1, 2]}, {-(1 + 2 5^Rational[-1, 2])^
         Rational[1, 2], (-2)/(-1 + 5^Rational[1, 2]), 
        Rational[-3, 2] (Rational[1, 10] (5 + 5^Rational[1, 2]))^
         Rational[1, 2]}, {-(1 + 2 5^Rational[-1, 2])^Rational[1, 2], 
        Rational[1, 2] (1 + 5^Rational[1, 2]), 
        Rational[-3, 2] (Rational[1, 10] (5 + 5^Rational[1, 2]))^
         Rational[1, 2]}, {
       Rational[-1, 2] (1 + 2 5^Rational[-1, 2])^Rational[1, 2], 
        Rational[-1, 2], (Rational[25, 8] + 
         Rational[41, 8] 5^Rational[-1, 2])^Rational[1, 2]}, {
       Rational[-1, 2] (1 + 2 5^Rational[-1, 2])^Rational[1, 2], 
        Rational[1, 2], (Rational[25, 8] + Rational[41, 8] 5^Rational[-1, 2])^
        Rational[1, 2]}, {(1 + 2 5^Rational[-1, 2])^Rational[1, 2], -1, 
        Root[1 - 260 #^2 + 80 #^4& , 1, 0]}, {(1 + 2 5^Rational[-1, 2])^
        Rational[1, 2], 1, 
        Root[1 - 260 #^2 + 80 #^4& , 1, 0]}, {(1 + 2 5^Rational[-1, 2])^
        Rational[1, 2], (-2)/(-1 + 
        5^Rational[1, 2]), (Rational[9, 8] + 
         Rational[9, 8] 5^Rational[-1, 2])^
        Rational[1, 2]}, {(1 + 2 5^Rational[-1, 2])^Rational[1, 2], 
        Rational[1, 2] (1 + 5^Rational[1, 2]), (Rational[9, 8] + 
         Rational[9, 8] 5^Rational[-1, 2])^
        Rational[1, 2]}, {-(2 + 2 5^Rational[-1, 2])^Rational[1, 2], 0, 
        Root[1 - 260 #^2 + 80 #^4& , 1, 0]}, {(2 + 2 5^Rational[-1, 2])^
        Rational[1, 2], 0, 
        Rational[1, 4] (26 + 58 5^Rational[-1, 2])^Rational[1, 2]}, {
       Rational[-1, 2] (5 + 2 5^Rational[-1, 2])^Rational[1, 2], -1 + 
        Rational[-1, 2] 5^Rational[1, 2], 
        Root[1 - 20 #^2 + 80 #^4& , 1, 0]}, {
       Rational[-1, 2] (5 + 2 5^Rational[-1, 2])^Rational[1, 2], 
        Rational[1, 2] (2 + 5^Rational[1, 2]), 
        Root[
        1 - 20 #^2 + 80 #^4& , 1, 
         0]}, {-(Rational[17, 8] + Rational[31, 8] 5^Rational[-1, 2])^
         Rational[1, 2], (1 - 5^Rational[1, 2])^(-1), 
        Rational[-3, 2] (Rational[1, 10] (5 + 5^Rational[1, 2]))^
         Rational[1, 2]}, {-(Rational[17, 8] + 
          Rational[31, 8] 5^Rational[-1, 2])^Rational[1, 2], 
        Rational[1, 4] (1 + 5^Rational[1, 2]), 
        Rational[-3, 2] (Rational[1, 10] (5 + 5^Rational[1, 2]))^
         Rational[1, 2]}, {(Rational[9, 4] + 
         Rational[9, 2] 5^Rational[-1, 2])^Rational[1, 2], 
        Rational[-1, 2], 
        Rational[-3, 2] (Rational[1, 10] (5 + 5^Rational[1, 2]))^
         Rational[1, 2]}, {(Rational[9, 4] + 
         Rational[9, 2] 5^Rational[-1, 2])^Rational[1, 2], 
        Rational[1, 2], 
        Rational[-3, 2] (Rational[1, 10] (5 + 5^Rational[1, 2]))^
         Rational[1, 2]}, {(Rational[5, 2] + 
         Rational[11, 2] 5^Rational[-1, 2])^Rational[1, 2], -1, 
        Root[
        1 - 20 #^2 + 80 #^4& , 1, 0]}, {(Rational[5, 2] + 
         Rational[11, 2] 5^Rational[-1, 2])^Rational[1, 2], 1, 
        Root[
        1 - 20 #^2 + 80 #^4& , 1, 0]}, {(Rational[13, 4] + 
         Rational[11, 2] 5^Rational[-1, 2])^Rational[1, 2], 
        Rational[-1, 2], (Rational[1, 8] + Rational[1, 8] 5^Rational[-1, 2])^
        Rational[1, 2]}, {(Rational[13, 4] + 
         Rational[11, 2] 5^Rational[-1, 2])^Rational[1, 2], 
        Rational[1, 2], (Rational[1, 8] + Rational[1, 8] 5^Rational[-1, 2])^
        Rational[1, 2]}, {
       Rational[-1, 4] (10 + 22 5^Rational[-1, 2])^Rational[1, 2], 
        Rational[1, 4] (-5 - 5^Rational[1, 2]), (Rational[9, 8] + 
         Rational[9, 8] 5^Rational[-1, 2])^Rational[1, 2]}, {
       Rational[-1, 4] (10 + 22 5^Rational[-1, 2])^Rational[1, 2], 
        Rational[1, 4] (5 + 5^Rational[1, 2]), (Rational[9, 8] + 
         Rational[9, 8] 5^Rational[-1, 2])^Rational[1, 2]}, {
       Rational[1, 4] (10 + 22 5^Rational[-1, 2])^Rational[1, 2], 
        Rational[1, 4] (-5 - 5^Rational[1, 2]), 
        Rational[-3, 2] (Rational[1, 10] (5 + 5^Rational[1, 2]))^
         Rational[1, 2]}, {
       Rational[1, 4] (10 + 22 5^Rational[-1, 2])^Rational[1, 2], 
        Rational[1, 4] (5 + 5^Rational[1, 2]), 
        Rational[-3, 2] (Rational[1, 10] (5 + 5^Rational[1, 2]))^
         Rational[1, 2]}, {
       Rational[-1, 2] (13 + 22 5^Rational[-1, 2])^Rational[1, 2], 
        Rational[-1, 2], 
        Root[1 - 20 #^2 + 80 #^4& , 1, 0]}, {
       Rational[-1, 2] (13 + 22 5^Rational[-1, 2])^Rational[1, 2], 
        Rational[1, 2], 
        Root[1 - 20 #^2 + 80 #^4& , 1, 0]}, {
       Rational[-1, 4] (26 + 38 5^Rational[-1, 2])^Rational[1, 2], 
        Rational[1, 4] (-5 - 5^Rational[1, 2]), (Rational[1, 8] + 
         Rational[1, 8] 5^Rational[-1, 2])^Rational[1, 2]}, {
       Rational[-1, 4] (26 + 38 5^Rational[-1, 2])^Rational[1, 2], 
        Rational[1, 4] (5 + 5^Rational[1, 2]), (Rational[1, 8] + 
         Rational[1, 8] 5^Rational[-1, 2])^Rational[1, 2]}, {
       Rational[1, 4] (26 + 38 5^Rational[-1, 2])^Rational[1, 2], 
        Rational[1, 4] (-5 - 5^Rational[1, 2]), 
        Root[1 - 20 #^2 + 80 #^4& , 1, 0]}, {
       Rational[1, 4] (26 + 38 5^Rational[-1, 2])^Rational[1, 2], 
        Rational[1, 4] (5 + 5^Rational[1, 2]), 
        Root[1 - 20 #^2 + 80 #^4& , 1, 0]}, {
       Rational[1, 4] (34 + 62 5^Rational[-1, 2])^Rational[1, 2], (1 - 5^
         Rational[1, 2])^(-1), (Rational[9, 8] + 
         Rational[9, 8] 5^Rational[-1, 2])^Rational[1, 2]}, {
       Rational[1, 4] (34 + 62 5^Rational[-1, 2])^Rational[1, 2], 
        Rational[1, 4] (1 + 5^Rational[1, 2]), (Rational[9, 8] + 
         Rational[9, 8] 5^Rational[-1, 2])^
        Rational[1, 2]}, {(Rational[1, 10] (5 + 5^Rational[1, 2]))^
        Rational[1, 2], 
        0, (Rational[25, 8] + Rational[41, 8] 5^Rational[-1, 2])^
        Rational[1, 2]}, {
        Root[
        1 - 25 #^2 + 5 #^4& , 1, 0], -1, (Rational[1, 8] + 
         Rational[1, 8] 5^Rational[-1, 2])^Rational[1, 2]}, {
        Root[1 - 25 #^2 + 5 #^4& , 1, 0], 
        1, (Rational[1, 8] + Rational[1, 8] 5^Rational[-1, 2])^
        Rational[1, 2]}, {
        Root[1 - 5 #^2 + 5 #^4& , 1, 0], 
        0, -(Rational[25, 8] + Rational[41, 8] 5^Rational[-1, 2])^
         Rational[1, 2]}, {
        Root[1 - 5 #^2 + 5 #^4& , 2, 0], (-2)/(-1 + 5^Rational[1, 2]), 
        Root[1 - 260 #^2 + 80 #^4& , 1, 0]}, {
        Root[1 - 5 #^2 + 5 #^4& , 2, 0], 
        Rational[1, 2] (1 + 5^Rational[1, 2]), 
        Root[1 - 260 #^2 + 80 #^4& , 1, 0]}, {
        Root[1 - 5 #^2 + 5 #^4& , 3, 0], (-2)/(-1 + 5^Rational[1, 2]), 
        Rational[1, 4] (26 + 58 5^Rational[-1, 2])^Rational[1, 2]}, {
        Root[1 - 5 #^2 + 5 #^4& , 3, 0], 
        Rational[1, 2] (1 + 5^Rational[1, 2]), 
        Rational[1, 4] (26 + 58 5^Rational[-1, 2])^Rational[1, 2]}}, 
      Polygon[{{53, 11, 24, 23, 9}, {51, 39, 40, 52, 30}, {60, 28, 16, 12, 
        2}, {20, 42, 48, 55, 18}, {19, 17, 54, 47, 41}, {1, 10, 15, 27, 59}, {
        36, 26, 44, 50, 38}, {4, 58, 22, 32, 8}, {34, 29, 33, 45, 46}, {21, 
        57, 3, 6, 31}, {37, 49, 43, 25, 35}, {13, 5, 56, 7, 14}, {9, 59, 27, 
        51, 30, 53}, {53, 30, 52, 28, 60, 11}, {11, 60, 2, 42, 20, 24}, {24, 
        20, 18, 17, 19, 23}, {23, 19, 41, 1, 59, 9}, {13, 25, 43, 3, 57, 5}, {
        5, 57, 21, 33, 29, 56}, {56, 29, 34, 22, 58, 7}, {7, 58, 4, 44, 26, 
        14}, {14, 26, 36, 35, 25, 13}, {40, 38, 50, 16, 28, 52}, {16, 50, 44, 
        4, 8, 12}, {12, 8, 32, 48, 42, 2}, {48, 32, 22, 34, 46, 55}, {55, 46, 
        45, 54, 17, 18}, {54, 45, 33, 21, 31, 47}, {47, 31, 6, 10, 1, 41}, {
        10, 6, 3, 43, 49, 15}, {15, 49, 37, 39, 51, 27}, {39, 37, 35, 36, 38, 
        40}}]], {0.2, 0.2, 0.2}, {0, 0, 0}], {0, 0, 0}]],
  ImageSize->{348., 385.},
  PlotRange->{{-3, 3}, {-3, 3}, {-3, 3}},
  ViewPoint->{-3.2838221229287914`, 0.45997918063811943`, 0.674486040139425},
  ViewVertical->{-0.48502496549945495`, 0.869158611279004, 
   0.09650953984869004}]], "Output",
 CellChangeTimes->{{3.40693892546875*^9, 3.406938946984375*^9}, {
   3.406939392265625*^9, 3.406939506625*^9}, {3.4069939458679*^9, 
   3.406993975895627*^9}, 3.406994446210181*^9, 3.4069949221363726`*^9}]
}, Open  ]],

Cell[CellGroupData[{

Cell[BoxData[
 RowBox[{"Manipulate", "[", 
  RowBox[{
   RowBox[{"Graphics3D", "[", 
    RowBox[{
     RowBox[{"{", 
      RowBox[{
       RowBox[{"{", 
        RowBox[{"Translate", "[", 
         RowBox[{
          RowBox[{"Scale", "[", 
           RowBox[{
            RowBox[{"PolyhedronData", "[", 
             RowBox[{"\"\<TruncatedIcosahedron\>\"", ",", "\"\<Faces\>\""}], 
             "]"}], ",", "\n", 
            RowBox[{"{", 
             RowBox[{".7", ",", ".7", ",", ".7"}], "}"}], ",", 
            RowBox[{"{", 
             RowBox[{"42.5", ",", "40", ",", "85"}], "}"}]}], "]"}], ",", 
          RowBox[{"{", 
           RowBox[{"0", ",", "0", ",", "0"}], "}"}]}], "]"}], "}"}], ",", 
       "\[IndentingNewLine]", 
       RowBox[{"{", 
        RowBox[{"Green", ",", 
         RowBox[{"Cuboid", "[", 
          RowBox[{
           RowBox[{"{", 
            RowBox[{"0", ",", "25", ",", "0"}], "}"}], ",", 
           RowBox[{"{", 
            RowBox[{"25", ",", "0", ",", "0"}], "}"}]}], "]"}]}], "}"}], ",", 
       "\[IndentingNewLine]", 
       RowBox[{"Cylinder", "[", 
        RowBox[{
         RowBox[{"{", 
          RowBox[{
           RowBox[{"{", 
            RowBox[{"12.5", ",", "12.5", ",", "19"}], "}"}], ",", 
           RowBox[{"{", 
            RowBox[{"12.5", ",", "12.5", ",", "18"}], "}"}]}], "}"}], ",", 
         "1.75"}], "]"}], ",", "\[IndentingNewLine]", 
       RowBox[{"Cylinder", "[", 
        RowBox[{
         RowBox[{"{", 
          RowBox[{
           RowBox[{"{", 
            RowBox[{"12.5", ",", "12.5", ",", "12"}], "}"}], ",", 
           RowBox[{"{", 
            RowBox[{"12.5", ",", "12.5", ",", "18"}], "}"}]}], "}"}], ",", 
         "2.5"}], "]"}], ",", "\[IndentingNewLine]", 
       RowBox[{"Sphere", "[", 
        RowBox[{
         RowBox[{"{", 
          RowBox[{"12.5", ",", "12.5", ",", "20.5"}], "}"}], ",", "2.5"}], 
        "]"}], ",", "\[IndentingNewLine]", 
       RowBox[{"Sphere", "[", 
        RowBox[{
         RowBox[{"{", 
          RowBox[{"12.5", ",", "12.5", ",", "12"}], "}"}], ",", "2.5"}], 
        "]"}], ",", "\[IndentingNewLine]", 
       RowBox[{"Sphere", "[", 
        RowBox[{
         RowBox[{"{", 
          RowBox[{"12", ",", "12.5", ",", "11"}], "}"}], ",", "1.5"}], "]"}], 
       ",", "\[IndentingNewLine]", 
       RowBox[{"Sphere", "[", 
        RowBox[{
         RowBox[{"{", 
          RowBox[{"12", ",", "12.5", ",", "11"}], "}"}], ",", "1.5"}], "]"}], 
       ",", "\[IndentingNewLine]", 
       RowBox[{"Cylinder", "[", 
        RowBox[{
         RowBox[{"{", 
          RowBox[{
           RowBox[{"{", 
            RowBox[{"13.75", ",", 
             RowBox[{
              RowBox[{"2", 
               RowBox[{"Sin", "[", 
                RowBox[{
                 RowBox[{"(", 
                  RowBox[{"x", "-", "7.5"}], ")"}], "/", "3.75"}], "]"}]}], 
              "+", "10.5"}], ",", "7"}], "}"}], ",", 
           RowBox[{"{", 
            RowBox[{"13.75", ",", "12.5", ",", "11.5"}], "}"}]}], "}"}], ",", 
         "1.25"}], "]"}], ",", "\[IndentingNewLine]", 
       RowBox[{"Cylinder", "[", 
        RowBox[{
         RowBox[{"{", 
          RowBox[{
           RowBox[{"{", 
            RowBox[{"11.25", ",", 
             RowBox[{
              RowBox[{
               RowBox[{"-", "2"}], 
               RowBox[{"Sin", "[", 
                RowBox[{
                 RowBox[{"(", 
                  RowBox[{"x", "-", "7.5"}], ")"}], "/", "3.75"}], "]"}]}], 
              "+", "10.5"}], ",", "7"}], "}"}], ",", 
           RowBox[{"{", 
            RowBox[{"11.25", ",", "12.5", ",", "11.5"}], "}"}]}], "}"}], ",", 
         "1.25"}], "]"}], ",", "\[IndentingNewLine]", 
       RowBox[{"Sphere", "[", 
        RowBox[{
         RowBox[{"{", 
          RowBox[{"13.75", ",", 
           RowBox[{
            RowBox[{"2", 
             RowBox[{"Sin", "[", 
              RowBox[{
               RowBox[{"(", 
                RowBox[{"x", "-", "7.5"}], ")"}], "/", "3.75"}], "]"}]}], "+",
             "10.5"}], ",", "6.5"}], "}"}], ",", "1.25"}], "]"}], ",", 
       "\[IndentingNewLine]", 
       RowBox[{"Sphere", "[", 
        RowBox[{
         RowBox[{"{", 
          RowBox[{"11.25", ",", 
           RowBox[{
            RowBox[{
             RowBox[{"-", "2"}], 
             RowBox[{"Sin", "[", 
              RowBox[{
               RowBox[{"(", 
                RowBox[{"x", "-", "7.5"}], ")"}], "/", "3.75"}], "]"}]}], "+",
             "10.5"}], ",", "6.5"}], "}"}], ",", "1.25"}], "]"}], ",", 
       "\[IndentingNewLine]", 
       RowBox[{"Cylinder", "[", 
        RowBox[{
         RowBox[{"{", 
          RowBox[{
           RowBox[{"{", 
            RowBox[{"13.75", ",", 
             RowBox[{
              RowBox[{"2", 
               RowBox[{"Sin", "[", 
                RowBox[{
                 RowBox[{"(", 
                  RowBox[{"x", "-", "7.5"}], ")"}], "/", "3.75"}], "]"}]}], 
              "+", "10.5"}], ",", "1.5"}], "}"}], ",", 
           RowBox[{"{", 
            RowBox[{"13.75", ",", 
             RowBox[{
              RowBox[{"2", 
               RowBox[{"Sin", "[", 
                RowBox[{
                 RowBox[{"(", 
                  RowBox[{"x", "-", "7.5"}], ")"}], "/", "3.75"}], "]"}]}], 
              "+", "10.5"}], ",", "6"}], "}"}]}], "}"}], ",", "1.25"}], "]"}],
        ",", "\[IndentingNewLine]", 
       RowBox[{"Cylinder", "[", 
        RowBox[{
         RowBox[{"{", 
          RowBox[{
           RowBox[{"{", 
            RowBox[{"11.25", ",", 
             RowBox[{
              RowBox[{
               RowBox[{"-", "2"}], 
               RowBox[{"Sin", "[", 
                RowBox[{
                 RowBox[{"(", 
                  RowBox[{"x", "-", "7.5"}], ")"}], "/", "3.75"}], "]"}]}], 
              "+", "10.5"}], ",", "1.5"}], "}"}], ",", 
           RowBox[{"{", 
            RowBox[{"11.25", ",", 
             RowBox[{
              RowBox[{
               RowBox[{"-", "2"}], 
               RowBox[{"Sin", "[", 
                RowBox[{
                 RowBox[{"(", 
                  RowBox[{"x", "-", "7.5"}], ")"}], "/", "3.75"}], "]"}]}], 
              "+", "10.5"}], ",", "6"}], "}"}]}], "}"}], ",", "1.25"}], "]"}],
        ",", "\[IndentingNewLine]", 
       RowBox[{"Sphere", "[", 
        RowBox[{
         RowBox[{"{", 
          RowBox[{"13.75", ",", 
           RowBox[{
            RowBox[{"2", 
             RowBox[{"Sin", "[", 
              RowBox[{
               RowBox[{"(", 
                RowBox[{"x", "-", "7.5"}], ")"}], "/", "3.75"}], "]"}]}], "+",
             "10.5"}], ",", "1"}], "}"}], ",", "1.25"}], "]"}], ",", 
       "\[IndentingNewLine]", 
       RowBox[{"Sphere", "[", 
        RowBox[{
         RowBox[{"{", 
          RowBox[{"11.25", ",", 
           RowBox[{
            RowBox[{
             RowBox[{"-", "2"}], 
             RowBox[{"Sin", "[", 
              RowBox[{
               RowBox[{"(", 
                RowBox[{"x", "-", "7.5"}], ")"}], "/", "3.75"}], "]"}]}], "+",
             "10.5"}], ",", "1"}], "}"}], ",", "1.25"}], "]"}], ",", 
       "\[IndentingNewLine]", 
       RowBox[{"Sphere", "[", 
        RowBox[{
         RowBox[{"{", 
          RowBox[{"13.75", ",", 
           RowBox[{
            RowBox[{"2", 
             RowBox[{"Sin", "[", 
              RowBox[{
               RowBox[{"(", 
                RowBox[{"x", "-", "7.5"}], ")"}], "/", "3.75"}], "]"}]}], "+",
             "9"}], ",", "1"}], "}"}], ",", "1.15"}], "]"}], ",", 
       "\[IndentingNewLine]", 
       RowBox[{"Sphere", "[", 
        RowBox[{
         RowBox[{"{", 
          RowBox[{"11.25", ",", 
           RowBox[{
            RowBox[{
             RowBox[{"-", "2"}], 
             RowBox[{"Sin", "[", 
              RowBox[{
               RowBox[{"(", 
                RowBox[{"x", "-", "7.5"}], ")"}], "/", "3.75"}], "]"}]}], "+",
             "9"}], ",", "1"}], "}"}], ",", "1.15"}], "]"}], ",", 
       "\[IndentingNewLine]", 
       RowBox[{"Sphere", "[", 
        RowBox[{
         RowBox[{"{", 
          RowBox[{"10", ",", "12.5", ",", "17"}], "}"}], ",", "1"}], "]"}], 
       ",", "\[IndentingNewLine]", 
       RowBox[{"Sphere", "[", 
        RowBox[{
         RowBox[{"{", 
          RowBox[{"15", ",", "12.5", ",", "17"}], "}"}], ",", "1"}], "]"}], 
       ",", "\[IndentingNewLine]", 
       RowBox[{"Cylinder", "[", 
        RowBox[{
         RowBox[{"{", 
          RowBox[{
           RowBox[{"{", 
            RowBox[{"8", ",", "12.5", ",", "15"}], "}"}], ",", 
           RowBox[{"{", 
            RowBox[{"10.5", ",", "12.5", ",", "17"}], "}"}]}], "}"}], ",", 
         ".85"}], "]"}], ",", "\[IndentingNewLine]", 
       RowBox[{"Cylinder", "[", 
        RowBox[{
         RowBox[{"{", 
          RowBox[{
           RowBox[{"{", 
            RowBox[{"17", ",", "12.5", ",", "15"}], "}"}], ",", 
           RowBox[{"{", 
            RowBox[{"14.5", ",", "12.5", ",", "17"}], "}"}]}], "}"}], ",", 
         ".85"}], "]"}], ",", "\[IndentingNewLine]", 
       RowBox[{"Sphere", "[", 
        RowBox[{
         RowBox[{"{", 
          RowBox[{"8", ",", "12.5", ",", "15"}], "}"}], ",", ".8"}], "]"}], 
       ",", "\[IndentingNewLine]", 
       RowBox[{"Sphere", "[", 
        RowBox[{
         RowBox[{"{", 
          RowBox[{"17", ",", "12.5", ",", "15"}], "}"}], ",", ".8"}], "]"}], 
       ",", "\[IndentingNewLine]", 
       RowBox[{"Cylinder", "[", 
        RowBox[{
         RowBox[{"{", 
          RowBox[{
           RowBox[{"{", 
            RowBox[{"8", ",", "12.5", ",", "15"}], "}"}], ",", 
           RowBox[{"{", 
            RowBox[{"8", ",", "11", ",", "13"}], "}"}]}], "}"}], ",", ".75"}],
         "]"}], ",", "\[IndentingNewLine]", 
       RowBox[{"Cylinder", "[", 
        RowBox[{
         RowBox[{"{", 
          RowBox[{
           RowBox[{"{", 
            RowBox[{"17", ",", "12.5", ",", "15"}], "}"}], ",", 
           RowBox[{"{", 
            RowBox[{"17", ",", "11", ",", "13"}], "}"}]}], "}"}], ",", 
         ".75"}], "]"}], ",", "\[IndentingNewLine]", 
       RowBox[{"Sphere", "[", 
        RowBox[{
         RowBox[{"{", 
          RowBox[{"8", ",", "11", ",", "13"}], "}"}], ",", ".8"}], "]"}], ",",
        "\[IndentingNewLine]", 
       RowBox[{"Sphere", "[", 
        RowBox[{
         RowBox[{"{", 
          RowBox[{"17", ",", "11", ",", "13"}], "}"}], ",", ".8"}], "]"}]}], 
      "}"}], ",", "\[IndentingNewLine]", 
     RowBox[{"PlotRange", "\[Rule]", 
      RowBox[{"{", 
       RowBox[{
        RowBox[{"{", 
         RowBox[{"0", ",", "25"}], "}"}], ",", 
        RowBox[{"{", 
         RowBox[{"0", ",", "25"}], "}"}], ",", 
        RowBox[{"{", 
         RowBox[{"0", ",", "30"}], "}"}]}], "}"}]}], ",", 
     RowBox[{"Axes", "\[Rule]", "True"}], ",", " ", 
     RowBox[{"AxesLabel", "\[Rule]", 
      RowBox[{"{", 
       RowBox[{"x", ",", "y", ",", "z"}], "}"}]}]}], "]"}], ",", 
   RowBox[{"{", 
    RowBox[{"x", ",", 
     RowBox[{"-", "10"}], ",", "50"}], "}"}]}], "]"}]], "Input",
 CellChangeTimes->{{3.407003096611454*^9, 3.407003102094776*^9}, {
  3.407003414284824*^9, 3.407003503986348*^9}, {3.40700380331949*^9, 
  3.407003856059362*^9}}],

Cell[BoxData[
 TagBox[
  StyleBox[
   DynamicModuleBox[{$CellContext`x$$ = 14.670892715454102`, Typeset`show$$ = 
    True, Typeset`bookmarkList$$ = {}, Typeset`bookmarkMode$$ = "Menu", 
    Typeset`animator$$, Typeset`animvar$$ = 1, Typeset`name$$ = 
    "\"untitled\"", Typeset`specs$$ = {{
      Hold[$CellContext`x$$], -10, 50}}, Typeset`size$$ = {
    360., {212., 216.}}, Typeset`update$$ = 0, Typeset`initDone$$, 
    Typeset`skipInitDone$$ = True, $CellContext`x$184325$$ = 0}, 
    DynamicBox[Manipulate`ManipulateBoxes[
     1, StandardForm, "Variables" :> {$CellContext`x$$ = -10}, 
      "ControllerVariables" :> {
        Hold[$CellContext`x$$, $CellContext`x$184325$$, 0]}, 
      "OtherVariables" :> {
       Typeset`show$$, Typeset`bookmarkList$$, Typeset`bookmarkMode$$, 
        Typeset`animator$$, Typeset`animvar$$, Typeset`name$$, 
        Typeset`specs$$, Typeset`size$$, Typeset`update$$, Typeset`initDone$$,
         Typeset`skipInitDone$$}, "Body" :> Graphics3D[{{
          Translate[
           Scale[
            PolyhedronData["TruncatedIcosahedron", "Faces"], {0.7, 0.7, 
            0.7}, {42.5, 40, 85}], {0, 0, 0}]}, {Green, 
          Cuboid[{0, 25, 0}, {25, 0, 0}]}, 
         Cylinder[{{12.5, 12.5, 19}, {12.5, 12.5, 18}}, 1.75], 
         Cylinder[{{12.5, 12.5, 12}, {12.5, 12.5, 18}}, 2.5], 
         Sphere[{12.5, 12.5, 20.5}, 2.5], 
         Sphere[{12.5, 12.5, 12}, 2.5], 
         Sphere[{12, 12.5, 11}, 1.5], 
         Sphere[{12, 12.5, 11}, 1.5], 
         Cylinder[{{13.75, 2 Sin[($CellContext`x$$ - 7.5)/3.75] + 10.5, 7}, {
           13.75, 12.5, 11.5}}, 1.25], 
         Cylinder[{{
           11.25, (-2) Sin[($CellContext`x$$ - 7.5)/3.75] + 10.5, 7}, {11.25, 
           12.5, 11.5}}, 1.25], 
         Sphere[{13.75, 2 Sin[($CellContext`x$$ - 7.5)/3.75] + 10.5, 6.5}, 
          1.25], 
         Sphere[{11.25, (-2) Sin[($CellContext`x$$ - 7.5)/3.75] + 10.5, 6.5}, 
          1.25], 
         Cylinder[{{
           13.75, 2 Sin[($CellContext`x$$ - 7.5)/3.75] + 10.5, 1.5}, {
           13.75, 2 Sin[($CellContext`x$$ - 7.5)/3.75] + 10.5, 6}}, 1.25], 
         Cylinder[{{
           11.25, (-2) Sin[($CellContext`x$$ - 7.5)/3.75] + 10.5, 1.5}, {
           11.25, (-2) Sin[($CellContext`x$$ - 7.5)/3.75] + 10.5, 6}}, 1.25], 
         
         Sphere[{13.75, 2 Sin[($CellContext`x$$ - 7.5)/3.75] + 10.5, 1}, 
          1.25], 
         Sphere[{11.25, (-2) Sin[($CellContext`x$$ - 7.5)/3.75] + 10.5, 1}, 
          1.25], 
         Sphere[{13.75, 2 Sin[($CellContext`x$$ - 7.5)/3.75] + 9, 1}, 1.15], 
         Sphere[{11.25, (-2) Sin[($CellContext`x$$ - 7.5)/3.75] + 9, 1}, 
          1.15], 
         Sphere[{10, 12.5, 17}, 1], 
         Sphere[{15, 12.5, 17}, 1], 
         Cylinder[{{8, 12.5, 15}, {10.5, 12.5, 17}}, 0.85], 
         Cylinder[{{17, 12.5, 15}, {14.5, 12.5, 17}}, 0.85], 
         Sphere[{8, 12.5, 15}, 0.8], 
         Sphere[{17, 12.5, 15}, 0.8], 
         Cylinder[{{8, 12.5, 15}, {8, 11, 13}}, 0.75], 
         Cylinder[{{17, 12.5, 15}, {17, 11, 13}}, 0.75], 
         Sphere[{8, 11, 13}, 0.8], 
         Sphere[{17, 11, 13}, 0.8]}, PlotRange -> {{0, 25}, {0, 25}, {0, 30}},
         Axes -> True, 
        AxesLabel -> {$CellContext`x$$, $CellContext`y, $CellContext`z}], 
      "Specifications" :> {{$CellContext`x$$, -10, 50}}, "Options" :> {}, 
      "DefaultOptions" :> {}],
     ImageSizeCache->{404., {267., 272.}},
     SingleEvaluation->True],
    Deinitialization:>None,
    DynamicModuleValues:>{},
    SynchronousInitialization->True,
    UnsavedVariables:>{Typeset`initDone$$},
    UntrackedVariables:>{Typeset`size$$}], "Manipulate",
   Deployed->True,
   StripOnInput->False],
  Manipulate`InterpretManipulate[1]]], "Output",
 CellChangeTimes->{{3.407003104125636*^9, 3.407003107156304*^9}, {
  3.407003417190516*^9, 3.4070035454940023`*^9}, {3.407003578690752*^9, 
  3.407003593969068*^9}, {3.407003804600494*^9, 3.4070038661199303`*^9}}]
}, Open  ]],

Cell[CellGroupData[{

Cell[BoxData[
 RowBox[{"\[IndentingNewLine]", "\"\<FINISH\>\""}]], "Input",
 CellChangeTimes->{{3.407003125277824*^9, 3.407003146398768*^9}}],

Cell[BoxData["\<\"FINISH\"\>"], "Output",
 CellChangeTimes->{3.4070031358851624`*^9}]
}, Open  ]],

Cell[CellGroupData[{

Cell[BoxData[
 RowBox[{"Manipulate", "[", 
  RowBox[{
   RowBox[{"Graphics3D", "[", 
    RowBox[{
     RowBox[{"{", 
      RowBox[{
       RowBox[{"{", 
        RowBox[{"Translate", "[", 
         RowBox[{
          RowBox[{"Scale", "[", 
           RowBox[{
            RowBox[{"PolyhedronData", "[", 
             RowBox[{"\"\<TruncatedIcosahedron\>\"", ",", "\"\<Faces\>\""}], 
             "]"}], ",", "\n", 
            RowBox[{"{", 
             RowBox[{".7", ",", ".7", ",", ".7"}], "}"}], ",", 
            RowBox[{"{", 
             RowBox[{"20", ",", "20", ",", "6"}], "}"}]}], "]"}], ",", 
          RowBox[{"{", 
           RowBox[{"0", ",", "0", ",", "0"}], "}"}]}], "]"}], "}"}], ",", 
       "\[IndentingNewLine]", 
       RowBox[{"{", 
        RowBox[{"Green", ",", 
         RowBox[{"Cuboid", "[", 
          RowBox[{
           RowBox[{"{", 
            RowBox[{"0", ",", "25", ",", "0"}], "}"}], ",", 
           RowBox[{"{", 
            RowBox[{"25", ",", "0", ",", "0"}], "}"}]}], "]"}]}], "}"}], ",", 
       "\[IndentingNewLine]", 
       RowBox[{"Cylinder", "[", 
        RowBox[{
         RowBox[{"{", 
          RowBox[{
           RowBox[{"{", 
            RowBox[{"12.5", ",", "12.5", ",", "19"}], "}"}], ",", 
           RowBox[{"{", 
            RowBox[{"12.5", ",", "12.5", ",", "18"}], "}"}]}], "}"}], ",", 
         "1.75"}], "]"}], ",", "\[IndentingNewLine]", 
       RowBox[{"Cylinder", "[", 
        RowBox[{
         RowBox[{"{", 
          RowBox[{
           RowBox[{"{", 
            RowBox[{"12.5", ",", "12.5", ",", "12"}], "}"}], ",", 
           RowBox[{"{", 
            RowBox[{"12.5", ",", "12.5", ",", "18"}], "}"}]}], "}"}], ",", 
         "2.5"}], "]"}], ",", "\[IndentingNewLine]", 
       RowBox[{"Sphere", "[", 
        RowBox[{
         RowBox[{"{", 
          RowBox[{"12.5", ",", "12.5", ",", "20.5"}], "}"}], ",", "2.5"}], 
        "]"}], ",", "\[IndentingNewLine]", 
       RowBox[{"Sphere", "[", 
        RowBox[{
         RowBox[{"{", 
          RowBox[{"12.5", ",", "12.5", ",", "12"}], "}"}], ",", "2.5"}], 
        "]"}], ",", "\[IndentingNewLine]", 
       RowBox[{"Sphere", "[", 
        RowBox[{
         RowBox[{"{", 
          RowBox[{"12", ",", "12.5", ",", "11"}], "}"}], ",", "1.5"}], "]"}], 
       ",", "\[IndentingNewLine]", 
       RowBox[{"Sphere", "[", 
        RowBox[{
         RowBox[{"{", 
          RowBox[{"12", ",", "12.5", ",", "11"}], "}"}], ",", "1.5"}], "]"}], 
       ",", "\[IndentingNewLine]", 
       RowBox[{"Cylinder", "[", 
        RowBox[{
         RowBox[{"{", 
          RowBox[{
           RowBox[{"{", 
            RowBox[{"13.75", ",", 
             RowBox[{
              RowBox[{"2", 
               RowBox[{"Sin", "[", 
                RowBox[{
                 RowBox[{"(", 
                  RowBox[{"x", "-", "7.5"}], ")"}], "/", "3.75"}], "]"}]}], 
              "+", "10.5"}], ",", 
             RowBox[{
              RowBox[{"4", 
               RowBox[{"Sin", "[", 
                RowBox[{
                 RowBox[{"(", 
                  RowBox[{"x", "-", "5"}], ")"}], "/", "10"}], "]"}]}], "+", 
              "6"}]}], "}"}], ",", 
           RowBox[{"{", 
            RowBox[{"13.75", ",", "12.5", ",", "11.5"}], "}"}]}], "}"}], ",", 
         "1.25"}], "]"}], ",", "\[IndentingNewLine]", 
       RowBox[{"Cylinder", "[", 
        RowBox[{
         RowBox[{"{", 
          RowBox[{
           RowBox[{"{", 
            RowBox[{"11.25", ",", 
             RowBox[{
              RowBox[{
               RowBox[{"-", "2"}], 
               RowBox[{"Sin", "[", 
                RowBox[{
                 RowBox[{"(", 
                  RowBox[{"x", "-", "7.5"}], ")"}], "/", "3.75"}], "]"}]}], 
              "+", "10.5"}], ",", "7"}], "}"}], ",", 
           RowBox[{"{", 
            RowBox[{"11.25", ",", "12.5", ",", "11.5"}], "}"}]}], "}"}], ",", 
         "1.25"}], "]"}], ",", "\[IndentingNewLine]", 
       RowBox[{"Sphere", "[", 
        RowBox[{
         RowBox[{"{", 
          RowBox[{"13.75", ",", 
           RowBox[{
            RowBox[{"2", 
             RowBox[{"Sin", "[", 
              RowBox[{
               RowBox[{"(", 
                RowBox[{"x", "-", "7.5"}], ")"}], "/", "3.75"}], "]"}]}], "+",
             "10.5"}], ",", 
           RowBox[{
            RowBox[{"4", 
             RowBox[{"Sin", "[", 
              RowBox[{
               RowBox[{"(", 
                RowBox[{"x", "-", "5"}], ")"}], "/", "10"}], "]"}]}], "+", 
            "6"}]}], "}"}], ",", "1.25"}], "]"}], ",", "\[IndentingNewLine]", 
       
       RowBox[{"Sphere", "[", 
        RowBox[{
         RowBox[{"{", 
          RowBox[{"11.25", ",", 
           RowBox[{
            RowBox[{
             RowBox[{"-", "2"}], 
             RowBox[{"Sin", "[", 
              RowBox[{
               RowBox[{"(", 
                RowBox[{"x", "-", "7.5"}], ")"}], "/", "3.75"}], "]"}]}], "+",
             "10.5"}], ",", "6.5"}], "}"}], ",", "1.25"}], "]"}], ",", 
       "\[IndentingNewLine]", 
       RowBox[{"Cylinder", "[", 
        RowBox[{
         RowBox[{"{", 
          RowBox[{
           RowBox[{"{", 
            RowBox[{"13.75", ",", 
             RowBox[{
              RowBox[{"2", 
               RowBox[{"Sin", "[", 
                RowBox[{
                 RowBox[{"(", 
                  RowBox[{"x", "-", "7.5"}], ")"}], "/", "3.75"}], "]"}]}], 
              "+", "10.5"}], ",", "1.5"}], "}"}], ",", 
           RowBox[{"{", 
            RowBox[{"13.75", ",", 
             RowBox[{
              RowBox[{"2", 
               RowBox[{"Sin", "[", 
                RowBox[{
                 RowBox[{"(", 
                  RowBox[{"x", "-", "7.5"}], ")"}], "/", "3.75"}], "]"}]}], 
              "+", "10.5"}], ",", 
             RowBox[{
              RowBox[{"4", 
               RowBox[{"Sin", "[", 
                RowBox[{
                 RowBox[{"(", 
                  RowBox[{"x", "-", "5"}], ")"}], "/", "10"}], "]"}]}], "+", 
              "6"}]}], "}"}]}], "}"}], ",", "1.25"}], "]"}], ",", 
       "\[IndentingNewLine]", 
       RowBox[{"Cylinder", "[", 
        RowBox[{
         RowBox[{"{", 
          RowBox[{
           RowBox[{"{", 
            RowBox[{"11.25", ",", 
             RowBox[{
              RowBox[{
               RowBox[{"-", "2"}], 
               RowBox[{"Sin", "[", 
                RowBox[{
                 RowBox[{"(", 
                  RowBox[{"x", "-", "7.5"}], ")"}], "/", "3.75"}], "]"}]}], 
              "+", "10.5"}], ",", "1.5"}], "}"}], ",", 
           RowBox[{"{", 
            RowBox[{"11.25", ",", 
             RowBox[{
              RowBox[{
               RowBox[{"-", "2"}], 
               RowBox[{"Sin", "[", 
                RowBox[{
                 RowBox[{"(", 
                  RowBox[{"x", "-", "7.5"}], ")"}], "/", "3.75"}], "]"}]}], 
              "+", "10.5"}], ",", "6"}], "}"}]}], "}"}], ",", "1.25"}], "]"}],
        ",", "\[IndentingNewLine]", 
       RowBox[{"Sphere", "[", 
        RowBox[{
         RowBox[{"{", 
          RowBox[{"13.75", ",", 
           RowBox[{
            RowBox[{"2", 
             RowBox[{"Sin", "[", 
              RowBox[{
               RowBox[{"(", 
                RowBox[{"x", "-", "7.5"}], ")"}], "/", "3.75"}], "]"}]}], "+",
             "10.5"}], ",", "1"}], "}"}], ",", "1.25"}], "]"}], ",", 
       "\[IndentingNewLine]", 
       RowBox[{"Sphere", "[", 
        RowBox[{
         RowBox[{"{", 
          RowBox[{"11.25", ",", 
           RowBox[{
            RowBox[{
             RowBox[{"-", "2"}], 
             RowBox[{"Sin", "[", 
              RowBox[{
               RowBox[{"(", 
                RowBox[{"x", "-", "7.5"}], ")"}], "/", "3.75"}], "]"}]}], "+",
             "10.5"}], ",", "1"}], "}"}], ",", "1.25"}], "]"}], ",", 
       "\[IndentingNewLine]", 
       RowBox[{"Sphere", "[", 
        RowBox[{
         RowBox[{"{", 
          RowBox[{"13.75", ",", 
           RowBox[{
            RowBox[{"2", 
             RowBox[{"Sin", "[", 
              RowBox[{
               RowBox[{"(", 
                RowBox[{"x", "-", "7.5"}], ")"}], "/", "3.75"}], "]"}]}], "+",
             "9"}], ",", "1"}], "}"}], ",", "1.15"}], "]"}], ",", 
       "\[IndentingNewLine]", 
       RowBox[{"Sphere", "[", 
        RowBox[{
         RowBox[{"{", 
          RowBox[{"11.25", ",", 
           RowBox[{
            RowBox[{
             RowBox[{"-", "2"}], 
             RowBox[{"Sin", "[", 
              RowBox[{
               RowBox[{"(", 
                RowBox[{"x", "-", "7.5"}], ")"}], "/", "3.75"}], "]"}]}], "+",
             "9"}], ",", "1"}], "}"}], ",", "1.15"}], "]"}], ",", 
       "\[IndentingNewLine]", 
       RowBox[{"Sphere", "[", 
        RowBox[{
         RowBox[{"{", 
          RowBox[{"10", ",", "12.5", ",", "17"}], "}"}], ",", "1"}], "]"}], 
       ",", "\[IndentingNewLine]", 
       RowBox[{"Sphere", "[", 
        RowBox[{
         RowBox[{"{", 
          RowBox[{"15", ",", "12.5", ",", "17"}], "}"}], ",", "1"}], "]"}], 
       ",", "\[IndentingNewLine]", 
       RowBox[{"Cylinder", "[", 
        RowBox[{
         RowBox[{"{", 
          RowBox[{
           RowBox[{"{", 
            RowBox[{"8", ",", "12.5", ",", "15"}], "}"}], ",", 
           RowBox[{"{", 
            RowBox[{"10.5", ",", "12.5", ",", "17"}], "}"}]}], "}"}], ",", 
         ".85"}], "]"}], ",", "\[IndentingNewLine]", 
       RowBox[{"Cylinder", "[", 
        RowBox[{
         RowBox[{"{", 
          RowBox[{
           RowBox[{"{", 
            RowBox[{"17", ",", "12.5", ",", "15"}], "}"}], ",", 
           RowBox[{"{", 
            RowBox[{"14.5", ",", "12.5", ",", "17"}], "}"}]}], "}"}], ",", 
         ".85"}], "]"}], ",", "\[IndentingNewLine]", 
       RowBox[{"Sphere", "[", 
        RowBox[{
         RowBox[{"{", 
          RowBox[{"8", ",", "12.5", ",", "15"}], "}"}], ",", ".8"}], "]"}], 
       ",", "\[IndentingNewLine]", 
       RowBox[{"Sphere", "[", 
        RowBox[{
         RowBox[{"{", 
          RowBox[{"17", ",", "12.5", ",", "15"}], "}"}], ",", ".8"}], "]"}], 
       ",", "\[IndentingNewLine]", 
       RowBox[{"Cylinder", "[", 
        RowBox[{
         RowBox[{"{", 
          RowBox[{
           RowBox[{"{", 
            RowBox[{"8", ",", "12.5", ",", "15"}], "}"}], ",", 
           RowBox[{"{", 
            RowBox[{"8", ",", "11", ",", "13"}], "}"}]}], "}"}], ",", ".75"}],
         "]"}], ",", "\[IndentingNewLine]", 
       RowBox[{"Cylinder", "[", 
        RowBox[{
         RowBox[{"{", 
          RowBox[{
           RowBox[{"{", 
            RowBox[{"17", ",", "12.5", ",", "15"}], "}"}], ",", 
           RowBox[{"{", 
            RowBox[{"17", ",", "11", ",", "13"}], "}"}]}], "}"}], ",", 
         ".75"}], "]"}], ",", "\[IndentingNewLine]", 
       RowBox[{"Sphere", "[", 
        RowBox[{
         RowBox[{"{", 
          RowBox[{"8", ",", "11", ",", "13"}], "}"}], ",", ".8"}], "]"}], ",",
        "\[IndentingNewLine]", 
       RowBox[{"Sphere", "[", 
        RowBox[{
         RowBox[{"{", 
          RowBox[{"17", ",", "11", ",", "13"}], "}"}], ",", ".8"}], "]"}]}], 
      "}"}], ",", "\[IndentingNewLine]", 
     RowBox[{"PlotRange", "\[Rule]", 
      RowBox[{"{", 
       RowBox[{
        RowBox[{"{", 
         RowBox[{"0", ",", "25"}], "}"}], ",", 
        RowBox[{"{", 
         RowBox[{"0", ",", "25"}], "}"}], ",", 
        RowBox[{"{", 
         RowBox[{"0", ",", "25"}], "}"}]}], "}"}]}], ",", 
     RowBox[{"Axes", "\[Rule]", "True"}], ",", " ", 
     RowBox[{"AxesLabel", "\[Rule]", 
      RowBox[{"{", 
       RowBox[{"x", ",", "y", ",", "z"}], "}"}]}]}], "]"}], ",", 
   RowBox[{"{", 
    RowBox[{"x", ",", 
     RowBox[{"-", "10"}], ",", "50"}], "}"}]}], "]"}]], "Input",
 CellChangeTimes->{{3.4069977596935034`*^9, 3.40699776919168*^9}, {
   3.40699783511652*^9, 3.4069978849975653`*^9}, {3.4069979246930676`*^9, 
   3.406997936315836*^9}, {3.4069980815848136`*^9, 3.4069981112041254`*^9}, 
   3.4069981565235476`*^9, {3.4069985302486534`*^9, 3.4069985482295756`*^9}, {
   3.4069985807389574`*^9, 3.4069986163258734`*^9}, {3.4069986480229115`*^9, 
   3.4069986593019953`*^9}, 3.4069987040902696`*^9, {3.4069988039304714`*^9, 
   3.4069988182246017`*^9}, {3.406998939154504*^9, 3.4069989500430374`*^9}, {
   3.4069992286614075`*^9, 3.406999250688428*^9}, {3.4069994592421274`*^9, 
   3.4069994969848795`*^9}, {3.4069995612537875`*^9, 3.4069995762352858`*^9}, 
   3.4069997195515137`*^9, {3.4069997556539555`*^9, 3.4069997773060474`*^9}, 
   3.406999823765876*^9, 3.4069998649142237`*^9, {3.4069998950334396`*^9, 
   3.4069999105148416`*^9}, {3.4069999416182437`*^9, 
   3.4069999581463194`*^9}, {3.4070000174318094`*^9, 
   3.4070000765923233`*^9}, {3.4070001097578297`*^9, 3.407000113100938*^9}, {
   3.407000145047928*^9, 3.4070001693557596`*^9}, {3.4070002060674596`*^9, 
   3.4070003100006256`*^9}, {3.4070004494425974`*^9, 
   3.4070005163360014`*^9}, {3.4070005895875597`*^9, 
   3.4070006296579895`*^9}, {3.4070006830436983`*^9, 3.4070006878708963`*^9}, 
   3.40700074640653*^9, {3.407000786039544*^9, 3.4070008536359377`*^9}, 
   3.40700091996695*^9, {3.4070009741909122`*^9, 3.407001050551248*^9}, {
   3.40700109360548*^9, 3.407001096308086*^9}, {3.4070011477981977`*^9, 
   3.407001231922668*^9}, {3.407001348822094*^9, 3.407001356492496*^9}, {
   3.407001531661982*^9, 3.407001580121426*^9}, {3.407001693521524*^9, 
   3.407001696411594*^9}, {3.407001869878282*^9, 3.4070018736431837`*^9}}],

Cell[BoxData[
 TagBox[
  StyleBox[
   DynamicModuleBox[{$CellContext`x$$ = 45.78319892883519, Typeset`show$$ = 
    True, Typeset`bookmarkList$$ = {}, Typeset`bookmarkMode$$ = "Menu", 
    Typeset`animator$$, Typeset`animvar$$ = 1, Typeset`name$$ = 
    "\"untitled\"", Typeset`specs$$ = {{
      Hold[$CellContext`x$$], -10, 50}}, Typeset`size$$ = {
    360., {187., 191.}}, Typeset`update$$ = 0, Typeset`initDone$$, 
    Typeset`skipInitDone$$ = True, $CellContext`x$79440$$ = 0}, 
    DynamicBox[Manipulate`ManipulateBoxes[
     1, StandardForm, "Variables" :> {$CellContext`x$$ = -10}, 
      "ControllerVariables" :> {
        Hold[$CellContext`x$$, $CellContext`x$79440$$, 0]}, 
      "OtherVariables" :> {
       Typeset`show$$, Typeset`bookmarkList$$, Typeset`bookmarkMode$$, 
        Typeset`animator$$, Typeset`animvar$$, Typeset`name$$, 
        Typeset`specs$$, Typeset`size$$, Typeset`update$$, Typeset`initDone$$,
         Typeset`skipInitDone$$}, "Body" :> Graphics3D[{{
          Translate[
           Scale[
            PolyhedronData["TruncatedIcosahedron", "Faces"], {0.7, 0.7, 
            0.7}, {20, 20, 6}], {0, 0, 0}]}, {Green, 
          Cuboid[{0, 25, 0}, {25, 0, 0}]}, 
         Cylinder[{{12.5, 12.5, 19}, {12.5, 12.5, 18}}, 1.75], 
         Cylinder[{{12.5, 12.5, 12}, {12.5, 12.5, 18}}, 2.5], 
         Sphere[{12.5, 12.5, 20.5}, 2.5], 
         Sphere[{12.5, 12.5, 12}, 2.5], 
         Sphere[{12, 12.5, 11}, 1.5], 
         Sphere[{12, 12.5, 11}, 1.5], 
         Cylinder[{{
           13.75, 2 Sin[($CellContext`x$$ - 7.5)/3.75] + 10.5, 
            4 Sin[($CellContext`x$$ - 5)/10] + 6}, {13.75, 12.5, 11.5}}, 
          1.25], 
         Cylinder[{{
           11.25, (-2) Sin[($CellContext`x$$ - 7.5)/3.75] + 10.5, 7}, {11.25, 
           12.5, 11.5}}, 1.25], 
         Sphere[{
          13.75, 2 Sin[($CellContext`x$$ - 7.5)/3.75] + 10.5, 
           4 Sin[($CellContext`x$$ - 5)/10] + 6}, 1.25], 
         Sphere[{11.25, (-2) Sin[($CellContext`x$$ - 7.5)/3.75] + 10.5, 6.5}, 
          1.25], 
         Cylinder[{{
           13.75, 2 Sin[($CellContext`x$$ - 7.5)/3.75] + 10.5, 1.5}, {
           13.75, 2 Sin[($CellContext`x$$ - 7.5)/3.75] + 10.5, 
            4 Sin[($CellContext`x$$ - 5)/10] + 6}}, 1.25], 
         Cylinder[{{
           11.25, (-2) Sin[($CellContext`x$$ - 7.5)/3.75] + 10.5, 1.5}, {
           11.25, (-2) Sin[($CellContext`x$$ - 7.5)/3.75] + 10.5, 6}}, 1.25], 
         
         Sphere[{13.75, 2 Sin[($CellContext`x$$ - 7.5)/3.75] + 10.5, 1}, 
          1.25], 
         Sphere[{11.25, (-2) Sin[($CellContext`x$$ - 7.5)/3.75] + 10.5, 1}, 
          1.25], 
         Sphere[{13.75, 2 Sin[($CellContext`x$$ - 7.5)/3.75] + 9, 1}, 1.15], 
         Sphere[{11.25, (-2) Sin[($CellContext`x$$ - 7.5)/3.75] + 9, 1}, 
          1.15], 
         Sphere[{10, 12.5, 17}, 1], 
         Sphere[{15, 12.5, 17}, 1], 
         Cylinder[{{8, 12.5, 15}, {10.5, 12.5, 17}}, 0.85], 
         Cylinder[{{17, 12.5, 15}, {14.5, 12.5, 17}}, 0.85], 
         Sphere[{8, 12.5, 15}, 0.8], 
         Sphere[{17, 12.5, 15}, 0.8], 
         Cylinder[{{8, 12.5, 15}, {8, 11, 13}}, 0.75], 
         Cylinder[{{17, 12.5, 15}, {17, 11, 13}}, 0.75], 
         Sphere[{8, 11, 13}, 0.8], 
         Sphere[{17, 11, 13}, 0.8]}, PlotRange -> {{0, 25}, {0, 25}, {0, 25}},
         Axes -> True, 
        AxesLabel -> {$CellContext`x$$, $CellContext`y, $CellContext`z}], 
      "Specifications" :> {{$CellContext`x$$, -10, 50}}, "Options" :> {}, 
      "DefaultOptions" :> {}],
     ImageSizeCache->{404., {242., 247.}},
     SingleEvaluation->True],
    Deinitialization:>None,
    DynamicModuleValues:>{},
    SynchronousInitialization->True,
    UnsavedVariables:>{Typeset`initDone$$},
    UntrackedVariables:>{Typeset`size$$}], "Manipulate",
   Deployed->True,
   StripOnInput->False],
  Manipulate`InterpretManipulate[1]]], "Output",
 CellChangeTimes->{{3.407001851178748*^9, 3.4070018740806*^9}, 
   3.407001971452526*^9}]
}, Open  ]],

Cell[BoxData[""], "Input",
 CellChangeTimes->{{3.406998512080268*^9, 3.4069985208442097`*^9}}],

Cell[CellGroupData[{

Cell[BoxData[
 RowBox[{"Manipulate", "[", 
  RowBox[{
   RowBox[{"Graphics3D", "[", 
    RowBox[{
     RowBox[{"{", 
      RowBox[{
       RowBox[{"{", 
        RowBox[{"Translate", "[", 
         RowBox[{
          RowBox[{"Scale", "[", 
           RowBox[{
            RowBox[{"PolyhedronData", "[", 
             RowBox[{"\"\<TruncatedIcosahedron\>\"", ",", "\"\<Faces\>\""}], 
             "]"}], ",", "\n", 
            RowBox[{"{", 
             RowBox[{".7", ",", ".7", ",", ".7"}], "}"}], ",", 
            RowBox[{"{", 
             RowBox[{"20", ",", "20", ",", "6"}], "}"}]}], "]"}], ",", 
          RowBox[{"{", 
           RowBox[{"0", ",", "0", ",", "0"}], "}"}]}], "]"}], "}"}], ",", 
       "\[IndentingNewLine]", 
       RowBox[{"{", 
        RowBox[{"Green", ",", 
         RowBox[{"Cuboid", "[", 
          RowBox[{
           RowBox[{"{", 
            RowBox[{"0", ",", "25", ",", "0"}], "}"}], ",", 
           RowBox[{"{", 
            RowBox[{"25", ",", "0", ",", "0"}], "}"}]}], "]"}]}], "}"}], ",", 
       "\[IndentingNewLine]", 
       RowBox[{"Cylinder", "[", 
        RowBox[{
         RowBox[{"{", 
          RowBox[{
           RowBox[{"{", 
            RowBox[{"12.5", ",", "12.5", ",", "19"}], "}"}], ",", 
           RowBox[{"{", 
            RowBox[{"12.5", ",", "12.5", ",", "18"}], "}"}]}], "}"}], ",", 
         "1.75"}], "]"}], ",", "\[IndentingNewLine]", 
       RowBox[{"Cylinder", "[", 
        RowBox[{
         RowBox[{"{", 
          RowBox[{
           RowBox[{"{", 
            RowBox[{"12.5", ",", "12.5", ",", "12"}], "}"}], ",", 
           RowBox[{"{", 
            RowBox[{"12.5", ",", "12.5", ",", "18"}], "}"}]}], "}"}], ",", 
         "2.5"}], "]"}], ",", "\[IndentingNewLine]", 
       RowBox[{"Sphere", "[", 
        RowBox[{
         RowBox[{"{", 
          RowBox[{"12.5", ",", "12.5", ",", "20.5"}], "}"}], ",", "2.5"}], 
        "]"}], ",", "\[IndentingNewLine]", 
       RowBox[{"Sphere", "[", 
        RowBox[{
         RowBox[{"{", 
          RowBox[{"12.5", ",", "12.5", ",", "12"}], "}"}], ",", "2.5"}], 
        "]"}], ",", "\[IndentingNewLine]", 
       RowBox[{"Sphere", "[", 
        RowBox[{
         RowBox[{"{", 
          RowBox[{"12", ",", "12.5", ",", "11"}], "}"}], ",", "1.5"}], "]"}], 
       ",", "\[IndentingNewLine]", 
       RowBox[{"Sphere", "[", 
        RowBox[{
         RowBox[{"{", 
          RowBox[{"12", ",", "12.5", ",", "11"}], "}"}], ",", "1.5"}], "]"}], 
       ",", "\[IndentingNewLine]", 
       RowBox[{"Cylinder", "[", 
        RowBox[{
         RowBox[{"{", 
          RowBox[{
           RowBox[{"{", 
            RowBox[{"13.75", ",", 
             RowBox[{
              RowBox[{"2", 
               RowBox[{"Sin", "[", 
                RowBox[{
                 RowBox[{"(", 
                  RowBox[{"x", "-", "7.5"}], ")"}], "/", "3.75"}], "]"}]}], 
              "+", "10.5"}], ",", 
             RowBox[{
              RowBox[{"3", 
               RowBox[{"Sin", "[", 
                RowBox[{
                 RowBox[{"(", 
                  RowBox[{"x", "-", "5"}], ")"}], "/", "11"}], "]"}]}], "+", 
              "8"}]}], "}"}], ",", 
           RowBox[{"{", 
            RowBox[{"13.75", ",", "12.5", ",", "11.5"}], "}"}]}], "}"}], ",", 
         "1.25"}], "]"}], ",", "\[IndentingNewLine]", 
       RowBox[{"Cylinder", "[", 
        RowBox[{
         RowBox[{"{", 
          RowBox[{
           RowBox[{"{", 
            RowBox[{"11.25", ",", 
             RowBox[{
              RowBox[{
               RowBox[{"-", "2"}], 
               RowBox[{"Sin", "[", 
                RowBox[{
                 RowBox[{"(", 
                  RowBox[{"x", "-", "7.5"}], ")"}], "/", "3.75"}], "]"}]}], 
              "+", "10.5"}], ",", "7"}], "}"}], ",", 
           RowBox[{"{", 
            RowBox[{"11.25", ",", "12.5", ",", "11.5"}], "}"}]}], "}"}], ",", 
         "1.25"}], "]"}], ",", "\[IndentingNewLine]", 
       RowBox[{"Sphere", "[", 
        RowBox[{
         RowBox[{"{", 
          RowBox[{"13.75", ",", 
           RowBox[{
            RowBox[{"2", 
             RowBox[{"Sin", "[", 
              RowBox[{
               RowBox[{"(", 
                RowBox[{"x", "-", "7.5"}], ")"}], "/", "3.75"}], "]"}]}], "+",
             "10.5"}], ",", 
           RowBox[{
            RowBox[{"4", 
             RowBox[{"Sin", "[", 
              RowBox[{
               RowBox[{"(", 
                RowBox[{"x", "-", "5"}], ")"}], "/", "10"}], "]"}]}], "+", 
            "8"}]}], "}"}], ",", "1.25"}], "]"}], ",", "\[IndentingNewLine]", 
       
       RowBox[{"Sphere", "[", 
        RowBox[{
         RowBox[{"{", 
          RowBox[{"11.25", ",", 
           RowBox[{
            RowBox[{
             RowBox[{"-", "2"}], 
             RowBox[{"Sin", "[", 
              RowBox[{
               RowBox[{"(", 
                RowBox[{"x", "-", "7.5"}], ")"}], "/", "3.75"}], "]"}]}], "+",
             "10.5"}], ",", "6.5"}], "}"}], ",", "1.25"}], "]"}], ",", 
       "\[IndentingNewLine]", 
       RowBox[{"Cylinder", "[", 
        RowBox[{
         RowBox[{"{", 
          RowBox[{
           RowBox[{"{", 
            RowBox[{"13.75", ",", 
             RowBox[{
              RowBox[{"2", 
               RowBox[{"Sin", "[", 
                RowBox[{
                 RowBox[{"(", 
                  RowBox[{"x", "-", "7.5"}], ")"}], "/", "3.75"}], "]"}]}], 
              "+", "10.5"}], ",", "1.5"}], "}"}], ",", 
           RowBox[{"{", 
            RowBox[{"13.75", ",", 
             RowBox[{
              RowBox[{"2", 
               RowBox[{"Sin", "[", 
                RowBox[{
                 RowBox[{"(", 
                  RowBox[{"x", "-", "7.5"}], ")"}], "/", "3.75"}], "]"}]}], 
              "+", "10.5"}], ",", "6"}], "}"}]}], "}"}], ",", "1.25"}], "]"}],
        ",", "\[IndentingNewLine]", 
       RowBox[{"Cylinder", "[", 
        RowBox[{
         RowBox[{"{", 
          RowBox[{
           RowBox[{"{", 
            RowBox[{"11.25", ",", 
             RowBox[{
              RowBox[{
               RowBox[{"-", "2"}], 
               RowBox[{"Sin", "[", 
                RowBox[{
                 RowBox[{"(", 
                  RowBox[{"x", "-", "7.5"}], ")"}], "/", "3.75"}], "]"}]}], 
              "+", "10.5"}], ",", "1.5"}], "}"}], ",", 
           RowBox[{"{", 
            RowBox[{"11.25", ",", 
             RowBox[{
              RowBox[{
               RowBox[{"-", "2"}], 
               RowBox[{"Sin", "[", 
                RowBox[{
                 RowBox[{"(", 
                  RowBox[{"x", "-", "7.5"}], ")"}], "/", "3.75"}], "]"}]}], 
              "+", "10.5"}], ",", "6"}], "}"}]}], "}"}], ",", "1.25"}], "]"}],
        ",", "\[IndentingNewLine]", 
       RowBox[{"Sphere", "[", 
        RowBox[{
         RowBox[{"{", 
          RowBox[{"13.75", ",", 
           RowBox[{
            RowBox[{"2", 
             RowBox[{"Sin", "[", 
              RowBox[{
               RowBox[{"(", 
                RowBox[{"x", "-", "7.5"}], ")"}], "/", "3.75"}], "]"}]}], "+",
             "10.5"}], ",", "1"}], "}"}], ",", "1.25"}], "]"}], ",", 
       "\[IndentingNewLine]", 
       RowBox[{"Sphere", "[", 
        RowBox[{
         RowBox[{"{", 
          RowBox[{"11.25", ",", 
           RowBox[{
            RowBox[{
             RowBox[{"-", "2"}], 
             RowBox[{"Sin", "[", 
              RowBox[{
               RowBox[{"(", 
                RowBox[{"x", "-", "7.5"}], ")"}], "/", "3.75"}], "]"}]}], "+",
             "10.5"}], ",", "1"}], "}"}], ",", "1.25"}], "]"}], ",", 
       "\[IndentingNewLine]", 
       RowBox[{"Sphere", "[", 
        RowBox[{
         RowBox[{"{", 
          RowBox[{"13.75", ",", 
           RowBox[{
            RowBox[{"2", 
             RowBox[{"Sin", "[", 
              RowBox[{
               RowBox[{"(", 
                RowBox[{"x", "-", "7.5"}], ")"}], "/", "3.75"}], "]"}]}], "+",
             "9"}], ",", "1"}], "}"}], ",", "1.15"}], "]"}], ",", 
       "\[IndentingNewLine]", 
       RowBox[{"Sphere", "[", 
        RowBox[{
         RowBox[{"{", 
          RowBox[{"11.25", ",", 
           RowBox[{
            RowBox[{
             RowBox[{"-", "2"}], 
             RowBox[{"Sin", "[", 
              RowBox[{
               RowBox[{"(", 
                RowBox[{"x", "-", "7.5"}], ")"}], "/", "3.75"}], "]"}]}], "+",
             "9"}], ",", "1"}], "}"}], ",", "1.15"}], "]"}], ",", 
       "\[IndentingNewLine]", 
       RowBox[{"Sphere", "[", 
        RowBox[{
         RowBox[{"{", 
          RowBox[{"10", ",", "12.5", ",", "17"}], "}"}], ",", "1"}], "]"}], 
       ",", "\[IndentingNewLine]", 
       RowBox[{"Sphere", "[", 
        RowBox[{
         RowBox[{"{", 
          RowBox[{"15", ",", "12.5", ",", "17"}], "}"}], ",", "1"}], "]"}], 
       ",", "\[IndentingNewLine]", 
       RowBox[{"Cylinder", "[", 
        RowBox[{
         RowBox[{"{", 
          RowBox[{
           RowBox[{"{", 
            RowBox[{"8", ",", "12.5", ",", "15"}], "}"}], ",", 
           RowBox[{"{", 
            RowBox[{"10.5", ",", "12.5", ",", "17"}], "}"}]}], "}"}], ",", 
         ".85"}], "]"}], ",", "\[IndentingNewLine]", 
       RowBox[{"Cylinder", "[", 
        RowBox[{
         RowBox[{"{", 
          RowBox[{
           RowBox[{"{", 
            RowBox[{"17", ",", "12.5", ",", "15"}], "}"}], ",", 
           RowBox[{"{", 
            RowBox[{"14.5", ",", "12.5", ",", "17"}], "}"}]}], "}"}], ",", 
         ".85"}], "]"}], ",", "\[IndentingNewLine]", 
       RowBox[{"Sphere", "[", 
        RowBox[{
         RowBox[{"{", 
          RowBox[{"8", ",", "12.5", ",", "15"}], "}"}], ",", ".8"}], "]"}], 
       ",", "\[IndentingNewLine]", 
       RowBox[{"Sphere", "[", 
        RowBox[{
         RowBox[{"{", 
          RowBox[{"17", ",", "12.5", ",", "15"}], "}"}], ",", ".8"}], "]"}], 
       ",", "\[IndentingNewLine]", 
       RowBox[{"Cylinder", "[", 
        RowBox[{
         RowBox[{"{", 
          RowBox[{
           RowBox[{"{", 
            RowBox[{"8", ",", "12.5", ",", "15"}], "}"}], ",", 
           RowBox[{"{", 
            RowBox[{"8", ",", "11", ",", "13"}], "}"}]}], "}"}], ",", ".75"}],
         "]"}], ",", "\[IndentingNewLine]", 
       RowBox[{"Cylinder", "[", 
        RowBox[{
         RowBox[{"{", 
          RowBox[{
           RowBox[{"{", 
            RowBox[{"17", ",", "12.5", ",", "15"}], "}"}], ",", 
           RowBox[{"{", 
            RowBox[{"17", ",", "11", ",", "13"}], "}"}]}], "}"}], ",", 
         ".75"}], "]"}], ",", "\[IndentingNewLine]", 
       RowBox[{"Sphere", "[", 
        RowBox[{
         RowBox[{"{", 
          RowBox[{"8", ",", "11", ",", "13"}], "}"}], ",", ".8"}], "]"}], ",",
        "\[IndentingNewLine]", 
       RowBox[{"Sphere", "[", 
        RowBox[{
         RowBox[{"{", 
          RowBox[{"17", ",", "11", ",", "13"}], "}"}], ",", ".8"}], "]"}]}], 
      "}"}], ",", "\[IndentingNewLine]", 
     RowBox[{"PlotRange", "\[Rule]", 
      RowBox[{"{", 
       RowBox[{
        RowBox[{"{", 
         RowBox[{"0", ",", "25"}], "}"}], ",", 
        RowBox[{"{", 
         RowBox[{"0", ",", "25"}], "}"}], ",", 
        RowBox[{"{", 
         RowBox[{"0", ",", "25"}], "}"}]}], "}"}]}], ",", 
     RowBox[{"Axes", "\[Rule]", "True"}], ",", " ", 
     RowBox[{"AxesLabel", "\[Rule]", 
      RowBox[{"{", 
       RowBox[{"x", ",", "y", ",", "z"}], "}"}]}]}], "]"}], ",", 
   RowBox[{"{", 
    RowBox[{"x", ",", 
     RowBox[{"-", "10"}], ",", "50"}], "}"}]}], "]"}]], "Input",
 CellChangeTimes->{{3.40700209911551*^9, 3.4070021361396503`*^9}, {
  3.407002173726182*^9, 3.407002184614716*^9}, {3.4070023245253477`*^9, 
  3.407002344662106*^9}, {3.40700238296725*^9, 3.4070024281929398`*^9}, {
  3.407002459686892*^9, 3.407002477589704*^9}}],

Cell[BoxData[
 TagBox[
  StyleBox[
   DynamicModuleBox[{$CellContext`x$$ = -10., Typeset`show$$ = True, 
    Typeset`bookmarkList$$ = {}, Typeset`bookmarkMode$$ = "Menu", 
    Typeset`animator$$, Typeset`animvar$$ = 1, Typeset`name$$ = 
    "\"untitled\"", Typeset`specs$$ = {{
      Hold[$CellContext`x$$], -10, 50}}, Typeset`size$$ = {
    360., {187., 191.}}, Typeset`update$$ = 0, Typeset`initDone$$, 
    Typeset`skipInitDone$$ = True, $CellContext`x$115183$$ = 0}, 
    DynamicBox[Manipulate`ManipulateBoxes[
     1, StandardForm, "Variables" :> {$CellContext`x$$ = -10}, 
      "ControllerVariables" :> {
        Hold[$CellContext`x$$, $CellContext`x$115183$$, 0]}, 
      "OtherVariables" :> {
       Typeset`show$$, Typeset`bookmarkList$$, Typeset`bookmarkMode$$, 
        Typeset`animator$$, Typeset`animvar$$, Typeset`name$$, 
        Typeset`specs$$, Typeset`size$$, Typeset`update$$, Typeset`initDone$$,
         Typeset`skipInitDone$$}, "Body" :> Graphics3D[{{
          Translate[
           Scale[
            PolyhedronData["TruncatedIcosahedron", "Faces"], {0.7, 0.7, 
            0.7}, {20, 20, 6}], {0, 0, 0}]}, {Green, 
          Cuboid[{0, 25, 0}, {25, 0, 0}]}, 
         Cylinder[{{12.5, 12.5, 19}, {12.5, 12.5, 18}}, 1.75], 
         Cylinder[{{12.5, 12.5, 12}, {12.5, 12.5, 18}}, 2.5], 
         Sphere[{12.5, 12.5, 20.5}, 2.5], 
         Sphere[{12.5, 12.5, 12}, 2.5], 
         Sphere[{12, 12.5, 11}, 1.5], 
         Sphere[{12, 12.5, 11}, 1.5], 
         Cylinder[{{
           13.75, 2 Sin[($CellContext`x$$ - 7.5)/3.75] + 10.5, 
            3 Sin[($CellContext`x$$ - 5)/11] + 8}, {13.75, 12.5, 11.5}}, 
          1.25], 
         Cylinder[{{
           11.25, (-2) Sin[($CellContext`x$$ - 7.5)/3.75] + 10.5, 7}, {11.25, 
           12.5, 11.5}}, 1.25], 
         Sphere[{
          13.75, 2 Sin[($CellContext`x$$ - 7.5)/3.75] + 10.5, 
           4 Sin[($CellContext`x$$ - 5)/10] + 8}, 1.25], 
         Sphere[{11.25, (-2) Sin[($CellContext`x$$ - 7.5)/3.75] + 10.5, 6.5}, 
          1.25], 
         Cylinder[{{
           13.75, 2 Sin[($CellContext`x$$ - 7.5)/3.75] + 10.5, 1.5}, {
           13.75, 2 Sin[($CellContext`x$$ - 7.5)/3.75] + 10.5, 6}}, 1.25], 
         Cylinder[{{
           11.25, (-2) Sin[($CellContext`x$$ - 7.5)/3.75] + 10.5, 1.5}, {
           11.25, (-2) Sin[($CellContext`x$$ - 7.5)/3.75] + 10.5, 6}}, 1.25], 
         
         Sphere[{13.75, 2 Sin[($CellContext`x$$ - 7.5)/3.75] + 10.5, 1}, 
          1.25], 
         Sphere[{11.25, (-2) Sin[($CellContext`x$$ - 7.5)/3.75] + 10.5, 1}, 
          1.25], 
         Sphere[{13.75, 2 Sin[($CellContext`x$$ - 7.5)/3.75] + 9, 1}, 1.15], 
         Sphere[{11.25, (-2) Sin[($CellContext`x$$ - 7.5)/3.75] + 9, 1}, 
          1.15], 
         Sphere[{10, 12.5, 17}, 1], 
         Sphere[{15, 12.5, 17}, 1], 
         Cylinder[{{8, 12.5, 15}, {10.5, 12.5, 17}}, 0.85], 
         Cylinder[{{17, 12.5, 15}, {14.5, 12.5, 17}}, 0.85], 
         Sphere[{8, 12.5, 15}, 0.8], 
         Sphere[{17, 12.5, 15}, 0.8], 
         Cylinder[{{8, 12.5, 15}, {8, 11, 13}}, 0.75], 
         Cylinder[{{17, 12.5, 15}, {17, 11, 13}}, 0.75], 
         Sphere[{8, 11, 13}, 0.8], 
         Sphere[{17, 11, 13}, 0.8]}, PlotRange -> {{0, 25}, {0, 25}, {0, 25}},
         Axes -> True, 
        AxesLabel -> {$CellContext`x$$, $CellContext`y, $CellContext`z}], 
      "Specifications" :> {{$CellContext`x$$, -10, 50}}, "Options" :> {}, 
      "DefaultOptions" :> {}],
     ImageSizeCache->{404., {229., 234.}},
     SingleEvaluation->True],
    Deinitialization:>None,
    DynamicModuleValues:>{},
    SynchronousInitialization->True,
    UnsavedVariables:>{Typeset`initDone$$},
    UntrackedVariables:>{Typeset`size$$}], "Manipulate",
   Deployed->True,
   StripOnInput->False],
  Manipulate`InterpretManipulate[1]]], "Output",
 GeneratedCell->False,
 CellAutoOverwrite->False,
 CellChangeTimes->{
  3.4070020222240257`*^9, {3.40700209974039*^9, 3.4070021366083097`*^9}, {
   3.407002177741036*^9, 3.407002185145864*^9}, {3.4070022755347557`*^9, 
   3.407002290703718*^9}, {3.407002330883502*^9, 3.407002345833756*^9}, {
   3.4070023876226063`*^9, 3.40700242897404*^9}, {3.407002464935884*^9, 
   3.407002477902144*^9}}],

Cell[BoxData[
 TagBox[
  StyleBox[
   DynamicModuleBox[{$CellContext`x$$ = -0.6999999999999993, Typeset`show$$ = 
    True, Typeset`bookmarkList$$ = {}, Typeset`bookmarkMode$$ = "Menu", 
    Typeset`animator$$, Typeset`animvar$$ = 1, Typeset`name$$ = 
    "\"untitled\"", Typeset`specs$$ = {{
      Hold[$CellContext`x$$], -10, 50}}, Typeset`size$$ = {
    360., {187., 191.}}, Typeset`update$$ = 0, Typeset`initDone$$, 
    Typeset`skipInitDone$$ = True, $CellContext`x$114458$$ = 0}, 
    DynamicBox[Manipulate`ManipulateBoxes[
     1, StandardForm, "Variables" :> {$CellContext`x$$ = -10}, 
      "ControllerVariables" :> {
        Hold[$CellContext`x$$, $CellContext`x$114458$$, 0]}, 
      "OtherVariables" :> {
       Typeset`show$$, Typeset`bookmarkList$$, Typeset`bookmarkMode$$, 
        Typeset`animator$$, Typeset`animvar$$, Typeset`name$$, 
        Typeset`specs$$, Typeset`size$$, Typeset`update$$, Typeset`initDone$$,
         Typeset`skipInitDone$$}, "Body" :> Graphics3D[{{
          Translate[
           Scale[
            PolyhedronData["TruncatedIcosahedron", "Faces"], {0.7, 0.7, 
            0.7}, {20, 20, 6}], {0, 0, 0}]}, {Green, 
          Cuboid[{0, 25, 0}, {25, 0, 0}]}, 
         Cylinder[{{12.5, 12.5, 19}, {12.5, 12.5, 18}}, 1.75], 
         Cylinder[{{12.5, 12.5, 12}, {12.5, 12.5, 18}}, 2.5], 
         Sphere[{12.5, 12.5, 20.5}, 2.5], 
         Sphere[{12.5, 12.5, 12}, 2.5], 
         Sphere[{12, 12.5, 11}, 1.5], 
         Sphere[{12, 12.5, 11}, 1.5], 
         Cylinder[{{
           13.75, 2 Sin[($CellContext`x$$ - 7.5)/3.75] + 10.5, 
            Sin[($CellContext`x$$ - 5)/11] + 8}, {13.75, 12.5, 11.5}}, 1.25], 
         
         Cylinder[{{
           11.25, (-2) Sin[($CellContext`x$$ - 7.5)/3.75] + 10.5, 7}, {11.25, 
           12.5, 11.5}}, 1.25], 
         Sphere[{
          13.75, 2 Sin[($CellContext`x$$ - 7.5)/3.75] + 10.5, 
           4 Sin[($CellContext`x$$ - 5)/10] + 8}, 1.25], 
         Sphere[{11.25, (-2) Sin[($CellContext`x$$ - 7.5)/3.75] + 10.5, 6.5}, 
          1.25], 
         Cylinder[{{
           13.75, 2 Sin[($CellContext`x$$ - 7.5)/3.75] + 10.5, 1.5}, {
           13.75, 2 Sin[($CellContext`x$$ - 7.5)/3.75] + 10.5, 6}}, 1.25], 
         Cylinder[{{
           11.25, (-2) Sin[($CellContext`x$$ - 7.5)/3.75] + 10.5, 1.5}, {
           11.25, (-2) Sin[($CellContext`x$$ - 7.5)/3.75] + 10.5, 6}}, 1.25], 
         
         Sphere[{13.75, 2 Sin[($CellContext`x$$ - 7.5)/3.75] + 10.5, 1}, 
          1.25], 
         Sphere[{11.25, (-2) Sin[($CellContext`x$$ - 7.5)/3.75] + 10.5, 1}, 
          1.25], 
         Sphere[{13.75, 2 Sin[($CellContext`x$$ - 7.5)/3.75] + 9, 1}, 1.15], 
         Sphere[{11.25, (-2) Sin[($CellContext`x$$ - 7.5)/3.75] + 9, 1}, 
          1.15], 
         Sphere[{10, 12.5, 17}, 1], 
         Sphere[{15, 12.5, 17}, 1], 
         Cylinder[{{8, 12.5, 15}, {10.5, 12.5, 17}}, 0.85], 
         Cylinder[{{17, 12.5, 15}, {14.5, 12.5, 17}}, 0.85], 
         Sphere[{8, 12.5, 15}, 0.8], 
         Sphere[{17, 12.5, 15}, 0.8], 
         Cylinder[{{8, 12.5, 15}, {8, 11, 13}}, 0.75], 
         Cylinder[{{17, 12.5, 15}, {17, 11, 13}}, 0.75], 
         Sphere[{8, 11, 13}, 0.8], 
         Sphere[{17, 11, 13}, 0.8]}, PlotRange -> {{0, 25}, {0, 25}, {0, 25}},
         Axes -> True, 
        AxesLabel -> {$CellContext`x$$, $CellContext`y, $CellContext`z}], 
      "Specifications" :> {{$CellContext`x$$, -10, 50}}, "Options" :> {}, 
      "DefaultOptions" :> {}],
     ImageSizeCache->{404., {229., 234.}},
     SingleEvaluation->True],
    Deinitialization:>None,
    DynamicModuleValues:>{},
    SynchronousInitialization->True,
    UnsavedVariables:>{Typeset`initDone$$},
    UntrackedVariables:>{Typeset`size$$}], "Manipulate",
   Deployed->True,
   StripOnInput->False],
  Manipulate`InterpretManipulate[1]]], "Output",
 GeneratedCell->False,
 CellAutoOverwrite->False,
 CellChangeTimes->{
  3.4070020222240257`*^9, {3.40700209974039*^9, 3.4070021366083097`*^9}, {
   3.407002177741036*^9, 3.407002185145864*^9}, {3.4070022755347557`*^9, 
   3.407002290703718*^9}, {3.407002330883502*^9, 3.407002345833756*^9}, {
   3.4070023876226063`*^9, 3.40700242897404*^9}, {3.407002464935884*^9, 
   3.40700247021612*^9}}],

Cell[BoxData[
 TagBox[
  StyleBox[
   DynamicModuleBox[{$CellContext`x$$ = -10, Typeset`show$$ = True, 
    Typeset`bookmarkList$$ = {}, Typeset`bookmarkMode$$ = "Menu", 
    Typeset`animator$$, Typeset`animvar$$ = 1, Typeset`name$$ = 
    "\"untitled\"", Typeset`specs$$ = {{
      Hold[$CellContext`x$$], -10, 50}}, Typeset`size$$ = {
    360., {187., 191.}}, Typeset`update$$ = 0, Typeset`initDone$$, 
    Typeset`skipInitDone$$ = True, $CellContext`x$114363$$ = 0}, 
    DynamicBox[Manipulate`ManipulateBoxes[
     1, StandardForm, "Variables" :> {$CellContext`x$$ = -10}, 
      "ControllerVariables" :> {
        Hold[$CellContext`x$$, $CellContext`x$114363$$, 0]}, 
      "OtherVariables" :> {
       Typeset`show$$, Typeset`bookmarkList$$, Typeset`bookmarkMode$$, 
        Typeset`animator$$, Typeset`animvar$$, Typeset`name$$, 
        Typeset`specs$$, Typeset`size$$, Typeset`update$$, Typeset`initDone$$,
         Typeset`skipInitDone$$}, "Body" :> Graphics3D[{{
          Translate[
           Scale[
            PolyhedronData["TruncatedIcosahedron", "Faces"], {0.7, 0.7, 
            0.7}, {20, 20, 6}], {0, 0, 0}]}, {Green, 
          Cuboid[{0, 25, 0}, {25, 0, 0}]}, 
         Cylinder[{{12.5, 12.5, 19}, {12.5, 12.5, 18}}, 1.75], 
         Cylinder[{{12.5, 12.5, 12}, {12.5, 12.5, 18}}, 2.5], 
         Sphere[{12.5, 12.5, 20.5}, 2.5], 
         Sphere[{12.5, 12.5, 12}, 2.5], 
         Sphere[{12, 12.5, 11}, 1.5], 
         Sphere[{12, 12.5, 11}, 1.5], 
         Cylinder[{{
           13.75, 2 Sin[($CellContext`x$$ - 7.5)/3.75] + 10.5, 
            2 Sin[($CellContext`x$$ - 5)/11] + 8}, {13.75, 12.5, 11.5}}, 
          1.25], 
         Cylinder[{{
           11.25, (-2) Sin[($CellContext`x$$ - 7.5)/3.75] + 10.5, 7}, {11.25, 
           12.5, 11.5}}, 1.25], 
         Sphere[{
          13.75, 2 Sin[($CellContext`x$$ - 7.5)/3.75] + 10.5, 
           4 Sin[($CellContext`x$$ - 5)/10] + 8}, 1.25], 
         Sphere[{11.25, (-2) Sin[($CellContext`x$$ - 7.5)/3.75] + 10.5, 6.5}, 
          1.25], 
         Cylinder[{{
           13.75, 2 Sin[($CellContext`x$$ - 7.5)/3.75] + 10.5, 1.5}, {
           13.75, 2 Sin[($CellContext`x$$ - 7.5)/3.75] + 10.5, 6}}, 1.25], 
         Cylinder[{{
           11.25, (-2) Sin[($CellContext`x$$ - 7.5)/3.75] + 10.5, 1.5}, {
           11.25, (-2) Sin[($CellContext`x$$ - 7.5)/3.75] + 10.5, 6}}, 1.25], 
         
         Sphere[{13.75, 2 Sin[($CellContext`x$$ - 7.5)/3.75] + 10.5, 1}, 
          1.25], 
         Sphere[{11.25, (-2) Sin[($CellContext`x$$ - 7.5)/3.75] + 10.5, 1}, 
          1.25], 
         Sphere[{13.75, 2 Sin[($CellContext`x$$ - 7.5)/3.75] + 9, 1}, 1.15], 
         Sphere[{11.25, (-2) Sin[($CellContext`x$$ - 7.5)/3.75] + 9, 1}, 
          1.15], 
         Sphere[{10, 12.5, 17}, 1], 
         Sphere[{15, 12.5, 17}, 1], 
         Cylinder[{{8, 12.5, 15}, {10.5, 12.5, 17}}, 0.85], 
         Cylinder[{{17, 12.5, 15}, {14.5, 12.5, 17}}, 0.85], 
         Sphere[{8, 12.5, 15}, 0.8], 
         Sphere[{17, 12.5, 15}, 0.8], 
         Cylinder[{{8, 12.5, 15}, {8, 11, 13}}, 0.75], 
         Cylinder[{{17, 12.5, 15}, {17, 11, 13}}, 0.75], 
         Sphere[{8, 11, 13}, 0.8], 
         Sphere[{17, 11, 13}, 0.8]}, PlotRange -> {{0, 25}, {0, 25}, {0, 25}},
         Axes -> True, 
        AxesLabel -> {$CellContext`x$$, $CellContext`y, $CellContext`z}], 
      "Specifications" :> {{$CellContext`x$$, -10, 50}}, "Options" :> {}, 
      "DefaultOptions" :> {}],
     ImageSizeCache->{404., {229., 234.}},
     SingleEvaluation->True],
    Deinitialization:>None,
    DynamicModuleValues:>{},
    SynchronousInitialization->True,
    UnsavedVariables:>{Typeset`initDone$$},
    UntrackedVariables:>{Typeset`size$$}], "Manipulate",
   Deployed->True,
   StripOnInput->False],
  Manipulate`InterpretManipulate[1]]], "Output",
 GeneratedCell->False,
 CellAutoOverwrite->False,
 CellChangeTimes->{
  3.4070020222240257`*^9, {3.40700209974039*^9, 3.4070021366083097`*^9}, {
   3.407002177741036*^9, 3.407002185145864*^9}, {3.4070022755347557`*^9, 
   3.407002290703718*^9}, {3.407002330883502*^9, 3.407002345833756*^9}, {
   3.4070023876226063`*^9, 3.40700242897404*^9}, 3.407002464935884*^9}],

Cell[BoxData[
 TagBox[
  StyleBox[
   DynamicModuleBox[{$CellContext`x$$ = 1.9000000000000004`, Typeset`show$$ = 
    True, Typeset`bookmarkList$$ = {}, Typeset`bookmarkMode$$ = "Menu", 
    Typeset`animator$$, Typeset`animvar$$ = 1, Typeset`name$$ = 
    "\"untitled\"", Typeset`specs$$ = {{
      Hold[$CellContext`x$$], -10, 50}}, Typeset`size$$ = {
    360., {187., 191.}}, Typeset`update$$ = 0, Typeset`initDone$$, 
    Typeset`skipInitDone$$ = True, $CellContext`x$113530$$ = 0}, 
    DynamicBox[Manipulate`ManipulateBoxes[
     1, StandardForm, "Variables" :> {$CellContext`x$$ = -10}, 
      "ControllerVariables" :> {
        Hold[$CellContext`x$$, $CellContext`x$113530$$, 0]}, 
      "OtherVariables" :> {
       Typeset`show$$, Typeset`bookmarkList$$, Typeset`bookmarkMode$$, 
        Typeset`animator$$, Typeset`animvar$$, Typeset`name$$, 
        Typeset`specs$$, Typeset`size$$, Typeset`update$$, Typeset`initDone$$,
         Typeset`skipInitDone$$}, "Body" :> Graphics3D[{{
          Translate[
           Scale[
            PolyhedronData["TruncatedIcosahedron", "Faces"], {0.7, 0.7, 
            0.7}, {20, 20, 6}], {0, 0, 0}]}, {Green, 
          Cuboid[{0, 25, 0}, {25, 0, 0}]}, 
         Cylinder[{{12.5, 12.5, 19}, {12.5, 12.5, 18}}, 1.75], 
         Cylinder[{{12.5, 12.5, 12}, {12.5, 12.5, 18}}, 2.5], 
         Sphere[{12.5, 12.5, 20.5}, 2.5], 
         Sphere[{12.5, 12.5, 12}, 2.5], 
         Sphere[{12, 12.5, 11}, 1.5], 
         Sphere[{12, 12.5, 11}, 1.5], 
         Cylinder[{{
           13.75, 2 Sin[($CellContext`x$$ - 7.5)/3.75] + 10.5, 
            2 Sin[($CellContext`x$$ - 5)/11] + 9}, {13.75, 12.5, 11.5}}, 
          1.25], 
         Cylinder[{{
           11.25, (-2) Sin[($CellContext`x$$ - 7.5)/3.75] + 10.5, 7}, {11.25, 
           12.5, 11.5}}, 1.25], 
         Sphere[{
          13.75, 2 Sin[($CellContext`x$$ - 7.5)/3.75] + 10.5, 
           4 Sin[($CellContext`x$$ - 5)/10] + 8}, 1.25], 
         Sphere[{11.25, (-2) Sin[($CellContext`x$$ - 7.5)/3.75] + 10.5, 6.5}, 
          1.25], 
         Cylinder[{{
           13.75, 2 Sin[($CellContext`x$$ - 7.5)/3.75] + 10.5, 1.5}, {
           13.75, 2 Sin[($CellContext`x$$ - 7.5)/3.75] + 10.5, 6}}, 1.25], 
         Cylinder[{{
           11.25, (-2) Sin[($CellContext`x$$ - 7.5)/3.75] + 10.5, 1.5}, {
           11.25, (-2) Sin[($CellContext`x$$ - 7.5)/3.75] + 10.5, 6}}, 1.25], 
         
         Sphere[{13.75, 2 Sin[($CellContext`x$$ - 7.5)/3.75] + 10.5, 1}, 
          1.25], 
         Sphere[{11.25, (-2) Sin[($CellContext`x$$ - 7.5)/3.75] + 10.5, 1}, 
          1.25], 
         Sphere[{13.75, 2 Sin[($CellContext`x$$ - 7.5)/3.75] + 9, 1}, 1.15], 
         Sphere[{11.25, (-2) Sin[($CellContext`x$$ - 7.5)/3.75] + 9, 1}, 
          1.15], 
         Sphere[{10, 12.5, 17}, 1], 
         Sphere[{15, 12.5, 17}, 1], 
         Cylinder[{{8, 12.5, 15}, {10.5, 12.5, 17}}, 0.85], 
         Cylinder[{{17, 12.5, 15}, {14.5, 12.5, 17}}, 0.85], 
         Sphere[{8, 12.5, 15}, 0.8], 
         Sphere[{17, 12.5, 15}, 0.8], 
         Cylinder[{{8, 12.5, 15}, {8, 11, 13}}, 0.75], 
         Cylinder[{{17, 12.5, 15}, {17, 11, 13}}, 0.75], 
         Sphere[{8, 11, 13}, 0.8], 
         Sphere[{17, 11, 13}, 0.8]}, PlotRange -> {{0, 25}, {0, 25}, {0, 25}},
         Axes -> True, 
        AxesLabel -> {$CellContext`x$$, $CellContext`y, $CellContext`z}], 
      "Specifications" :> {{$CellContext`x$$, -10, 50}}, "Options" :> {}, 
      "DefaultOptions" :> {}],
     ImageSizeCache->{404., {229., 234.}},
     SingleEvaluation->True],
    Deinitialization:>None,
    DynamicModuleValues:>{},
    SynchronousInitialization->True,
    UnsavedVariables:>{Typeset`initDone$$},
    UntrackedVariables:>{Typeset`size$$}], "Manipulate",
   Deployed->True,
   StripOnInput->False],
  Manipulate`InterpretManipulate[1]]], "Output",
 GeneratedCell->False,
 CellAutoOverwrite->False,
 CellChangeTimes->{
  3.4070020222240257`*^9, {3.40700209974039*^9, 3.4070021366083097`*^9}, {
   3.407002177741036*^9, 3.407002185145864*^9}, {3.4070022755347557`*^9, 
   3.407002290703718*^9}, {3.407002330883502*^9, 3.407002345833756*^9}, {
   3.4070023876226063`*^9, 3.40700242897404*^9}}],

Cell[BoxData[
 TagBox[
  StyleBox[
   DynamicModuleBox[{$CellContext`x$$ = 2.200000000000001, Typeset`show$$ = 
    True, Typeset`bookmarkList$$ = {}, Typeset`bookmarkMode$$ = "Menu", 
    Typeset`animator$$, Typeset`animvar$$ = 1, Typeset`name$$ = 
    "\"untitled\"", Typeset`specs$$ = {{
      Hold[$CellContext`x$$], -10, 50}}, Typeset`size$$ = {
    360., {187., 191.}}, Typeset`update$$ = 0, Typeset`initDone$$, 
    Typeset`skipInitDone$$ = True, $CellContext`x$111923$$ = 0}, 
    DynamicBox[Manipulate`ManipulateBoxes[
     1, StandardForm, "Variables" :> {$CellContext`x$$ = -10}, 
      "ControllerVariables" :> {
        Hold[$CellContext`x$$, $CellContext`x$111923$$, 0]}, 
      "OtherVariables" :> {
       Typeset`show$$, Typeset`bookmarkList$$, Typeset`bookmarkMode$$, 
        Typeset`animator$$, Typeset`animvar$$, Typeset`name$$, 
        Typeset`specs$$, Typeset`size$$, Typeset`update$$, Typeset`initDone$$,
         Typeset`skipInitDone$$}, "Body" :> Graphics3D[{{
          Translate[
           Scale[
            PolyhedronData["TruncatedIcosahedron", "Faces"], {0.7, 0.7, 
            0.7}, {20, 20, 6}], {0, 0, 0}]}, {Green, 
          Cuboid[{0, 25, 0}, {25, 0, 0}]}, 
         Cylinder[{{12.5, 12.5, 19}, {12.5, 12.5, 18}}, 1.75], 
         Cylinder[{{12.5, 12.5, 12}, {12.5, 12.5, 18}}, 2.5], 
         Sphere[{12.5, 12.5, 20.5}, 2.5], 
         Sphere[{12.5, 12.5, 12}, 2.5], 
         Sphere[{12, 12.5, 11}, 1.5], 
         Sphere[{12, 12.5, 11}, 1.5], 
         Cylinder[{{
           13.75, 2 Sin[($CellContext`x$$ - 7.5)/3.75] + 10.5, 
            2 Sin[($CellContext`x$$ - 5)/11] + 8}, {13.75, 12.5, 11.5}}, 
          1.25], 
         Cylinder[{{
           11.25, (-2) Sin[($CellContext`x$$ - 7.5)/3.75] + 10.5, 7}, {11.25, 
           12.5, 11.5}}, 1.25], 
         Sphere[{
          13.75, 2 Sin[($CellContext`x$$ - 7.5)/3.75] + 10.5, 
           4 Sin[($CellContext`x$$ - 5)/10] + 8}, 1.25], 
         Sphere[{11.25, (-2) Sin[($CellContext`x$$ - 7.5)/3.75] + 10.5, 6.5}, 
          1.25], 
         Cylinder[{{
           13.75, 2 Sin[($CellContext`x$$ - 7.5)/3.75] + 10.5, 1.5}, {
           13.75, 2 Sin[($CellContext`x$$ - 7.5)/3.75] + 10.5, 6}}, 1.25], 
         Cylinder[{{
           11.25, (-2) Sin[($CellContext`x$$ - 7.5)/3.75] + 10.5, 1.5}, {
           11.25, (-2) Sin[($CellContext`x$$ - 7.5)/3.75] + 10.5, 6}}, 1.25], 
         
         Sphere[{13.75, 2 Sin[($CellContext`x$$ - 7.5)/3.75] + 10.5, 1}, 
          1.25], 
         Sphere[{11.25, (-2) Sin[($CellContext`x$$ - 7.5)/3.75] + 10.5, 1}, 
          1.25], 
         Sphere[{13.75, 2 Sin[($CellContext`x$$ - 7.5)/3.75] + 9, 1}, 1.15], 
         Sphere[{11.25, (-2) Sin[($CellContext`x$$ - 7.5)/3.75] + 9, 1}, 
          1.15], 
         Sphere[{10, 12.5, 17}, 1], 
         Sphere[{15, 12.5, 17}, 1], 
         Cylinder[{{8, 12.5, 15}, {10.5, 12.5, 17}}, 0.85], 
         Cylinder[{{17, 12.5, 15}, {14.5, 12.5, 17}}, 0.85], 
         Sphere[{8, 12.5, 15}, 0.8], 
         Sphere[{17, 12.5, 15}, 0.8], 
         Cylinder[{{8, 12.5, 15}, {8, 11, 13}}, 0.75], 
         Cylinder[{{17, 12.5, 15}, {17, 11, 13}}, 0.75], 
         Sphere[{8, 11, 13}, 0.8], 
         Sphere[{17, 11, 13}, 0.8]}, PlotRange -> {{0, 25}, {0, 25}, {0, 25}},
         Axes -> True, 
        AxesLabel -> {$CellContext`x$$, $CellContext`y, $CellContext`z}], 
      "Specifications" :> {{$CellContext`x$$, -10, 50}}, "Options" :> {}, 
      "DefaultOptions" :> {}],
     ImageSizeCache->{404., {229., 234.}},
     SingleEvaluation->True],
    Deinitialization:>None,
    DynamicModuleValues:>{},
    SynchronousInitialization->True,
    UnsavedVariables:>{Typeset`initDone$$},
    UntrackedVariables:>{Typeset`size$$}], "Manipulate",
   Deployed->True,
   StripOnInput->False],
  Manipulate`InterpretManipulate[1]]], "Output",
 GeneratedCell->False,
 CellAutoOverwrite->False,
 CellChangeTimes->{
  3.4070020222240257`*^9, {3.40700209974039*^9, 3.4070021366083097`*^9}, {
   3.407002177741036*^9, 3.407002185145864*^9}, {3.4070022755347557`*^9, 
   3.407002290703718*^9}, {3.407002330883502*^9, 3.407002345833756*^9}, {
   3.4070023876226063`*^9, 3.407002414617422*^9}}],

Cell[BoxData[
 TagBox[
  StyleBox[
   DynamicModuleBox[{$CellContext`x$$ = 1.5, Typeset`show$$ = True, 
    Typeset`bookmarkList$$ = {}, Typeset`bookmarkMode$$ = "Menu", 
    Typeset`animator$$, Typeset`animvar$$ = 1, Typeset`name$$ = 
    "\"untitled\"", Typeset`specs$$ = {{
      Hold[$CellContext`x$$], -10, 50}}, Typeset`size$$ = {
    360., {187., 191.}}, Typeset`update$$ = 0, Typeset`initDone$$, 
    Typeset`skipInitDone$$ = True, $CellContext`x$111486$$ = 0}, 
    DynamicBox[Manipulate`ManipulateBoxes[
     1, StandardForm, "Variables" :> {$CellContext`x$$ = -10}, 
      "ControllerVariables" :> {
        Hold[$CellContext`x$$, $CellContext`x$111486$$, 0]}, 
      "OtherVariables" :> {
       Typeset`show$$, Typeset`bookmarkList$$, Typeset`bookmarkMode$$, 
        Typeset`animator$$, Typeset`animvar$$, Typeset`name$$, 
        Typeset`specs$$, Typeset`size$$, Typeset`update$$, Typeset`initDone$$,
         Typeset`skipInitDone$$}, "Body" :> Graphics3D[{{
          Translate[
           Scale[
            PolyhedronData["TruncatedIcosahedron", "Faces"], {0.7, 0.7, 
            0.7}, {20, 20, 6}], {0, 0, 0}]}, {Green, 
          Cuboid[{0, 25, 0}, {25, 0, 0}]}, 
         Cylinder[{{12.5, 12.5, 19}, {12.5, 12.5, 18}}, 1.75], 
         Cylinder[{{12.5, 12.5, 12}, {12.5, 12.5, 18}}, 2.5], 
         Sphere[{12.5, 12.5, 20.5}, 2.5], 
         Sphere[{12.5, 12.5, 12}, 2.5], 
         Sphere[{12, 12.5, 11}, 1.5], 
         Sphere[{12, 12.5, 11}, 1.5], 
         Cylinder[{{
           13.75, 2 Sin[($CellContext`x$$ - 7.5)/3.75] + 10.5, 
            2 Sin[($CellContext`x$$ - 5)/10] + 8}, {13.75, 12.5, 11.5}}, 
          1.25], 
         Cylinder[{{
           11.25, (-2) Sin[($CellContext`x$$ - 7.5)/3.75] + 10.5, 7}, {11.25, 
           12.5, 11.5}}, 1.25], 
         Sphere[{
          13.75, 2 Sin[($CellContext`x$$ - 7.5)/3.75] + 10.5, 
           4 Sin[($CellContext`x$$ - 5)/10] + 8}, 1.25], 
         Sphere[{11.25, (-2) Sin[($CellContext`x$$ - 7.5)/3.75] + 10.5, 6.5}, 
          1.25], 
         Cylinder[{{
           13.75, 2 Sin[($CellContext`x$$ - 7.5)/3.75] + 10.5, 1.5}, {
           13.75, 2 Sin[($CellContext`x$$ - 7.5)/3.75] + 10.5, 6}}, 1.25], 
         Cylinder[{{
           11.25, (-2) Sin[($CellContext`x$$ - 7.5)/3.75] + 10.5, 1.5}, {
           11.25, (-2) Sin[($CellContext`x$$ - 7.5)/3.75] + 10.5, 6}}, 1.25], 
         
         Sphere[{13.75, 2 Sin[($CellContext`x$$ - 7.5)/3.75] + 10.5, 1}, 
          1.25], 
         Sphere[{11.25, (-2) Sin[($CellContext`x$$ - 7.5)/3.75] + 10.5, 1}, 
          1.25], 
         Sphere[{13.75, 2 Sin[($CellContext`x$$ - 7.5)/3.75] + 9, 1}, 1.15], 
         Sphere[{11.25, (-2) Sin[($CellContext`x$$ - 7.5)/3.75] + 9, 1}, 
          1.15], 
         Sphere[{10, 12.5, 17}, 1], 
         Sphere[{15, 12.5, 17}, 1], 
         Cylinder[{{8, 12.5, 15}, {10.5, 12.5, 17}}, 0.85], 
         Cylinder[{{17, 12.5, 15}, {14.5, 12.5, 17}}, 0.85], 
         Sphere[{8, 12.5, 15}, 0.8], 
         Sphere[{17, 12.5, 15}, 0.8], 
         Cylinder[{{8, 12.5, 15}, {8, 11, 13}}, 0.75], 
         Cylinder[{{17, 12.5, 15}, {17, 11, 13}}, 0.75], 
         Sphere[{8, 11, 13}, 0.8], 
         Sphere[{17, 11, 13}, 0.8]}, PlotRange -> {{0, 25}, {0, 25}, {0, 25}},
         Axes -> True, 
        AxesLabel -> {$CellContext`x$$, $CellContext`y, $CellContext`z}], 
      "Specifications" :> {{$CellContext`x$$, -10, 50}}, "Options" :> {}, 
      "DefaultOptions" :> {}],
     ImageSizeCache->{404., {229., 234.}},
     SingleEvaluation->True],
    Deinitialization:>None,
    DynamicModuleValues:>{},
    SynchronousInitialization->True,
    UnsavedVariables:>{Typeset`initDone$$},
    UntrackedVariables:>{Typeset`size$$}], "Manipulate",
   Deployed->True,
   StripOnInput->False],
  Manipulate`InterpretManipulate[1]]], "Output",
 GeneratedCell->False,
 CellAutoOverwrite->False,
 CellChangeTimes->{
  3.4070020222240257`*^9, {3.40700209974039*^9, 3.4070021366083097`*^9}, {
   3.407002177741036*^9, 3.407002185145864*^9}, {3.4070022755347557`*^9, 
   3.407002290703718*^9}, {3.407002330883502*^9, 3.407002345833756*^9}, {
   3.4070023876226063`*^9, 3.4070023988079576`*^9}}],

Cell[BoxData[
 TagBox[
  StyleBox[
   DynamicModuleBox[{$CellContext`x$$ = -10., Typeset`show$$ = True, 
    Typeset`bookmarkList$$ = {}, Typeset`bookmarkMode$$ = "Menu", 
    Typeset`animator$$, Typeset`animvar$$ = 1, Typeset`name$$ = 
    "\"untitled\"", Typeset`specs$$ = {{
      Hold[$CellContext`x$$], -10, 50}}, Typeset`size$$ = {
    360., {187., 191.}}, Typeset`update$$ = 0, Typeset`initDone$$, 
    Typeset`skipInitDone$$ = True, $CellContext`x$110941$$ = 0}, 
    DynamicBox[Manipulate`ManipulateBoxes[
     1, StandardForm, "Variables" :> {$CellContext`x$$ = -10}, 
      "ControllerVariables" :> {
        Hold[$CellContext`x$$, $CellContext`x$110941$$, 0]}, 
      "OtherVariables" :> {
       Typeset`show$$, Typeset`bookmarkList$$, Typeset`bookmarkMode$$, 
        Typeset`animator$$, Typeset`animvar$$, Typeset`name$$, 
        Typeset`specs$$, Typeset`size$$, Typeset`update$$, Typeset`initDone$$,
         Typeset`skipInitDone$$}, "Body" :> Graphics3D[{{
          Translate[
           Scale[
            PolyhedronData["TruncatedIcosahedron", "Faces"], {0.7, 0.7, 
            0.7}, {20, 20, 6}], {0, 0, 0}]}, {Green, 
          Cuboid[{0, 25, 0}, {25, 0, 0}]}, 
         Cylinder[{{12.5, 12.5, 19}, {12.5, 12.5, 18}}, 1.75], 
         Cylinder[{{12.5, 12.5, 12}, {12.5, 12.5, 18}}, 2.5], 
         Sphere[{12.5, 12.5, 20.5}, 2.5], 
         Sphere[{12.5, 12.5, 12}, 2.5], 
         Sphere[{12, 12.5, 11}, 1.5], 
         Sphere[{12, 12.5, 11}, 1.5], 
         Cylinder[{{
           13.75, 2 Sin[($CellContext`x$$ - 7.5)/3.75] + 10.5, 
            4 Sin[($CellContext`x$$ - 5)/10] + 8}, {13.75, 12.5, 11.5}}, 
          1.25], 
         Cylinder[{{
           11.25, (-2) Sin[($CellContext`x$$ - 7.5)/3.75] + 10.5, 7}, {11.25, 
           12.5, 11.5}}, 1.25], 
         Sphere[{
          13.75, 2 Sin[($CellContext`x$$ - 7.5)/3.75] + 10.5, 
           4 Sin[($CellContext`x$$ - 5)/10] + 8}, 1.25], 
         Sphere[{11.25, (-2) Sin[($CellContext`x$$ - 7.5)/3.75] + 10.5, 6.5}, 
          1.25], 
         Cylinder[{{
           13.75, 2 Sin[($CellContext`x$$ - 7.5)/3.75] + 10.5, 1.5}, {
           13.75, 2 Sin[($CellContext`x$$ - 7.5)/3.75] + 10.5, 6}}, 1.25], 
         Cylinder[{{
           11.25, (-2) Sin[($CellContext`x$$ - 7.5)/3.75] + 10.5, 1.5}, {
           11.25, (-2) Sin[($CellContext`x$$ - 7.5)/3.75] + 10.5, 6}}, 1.25], 
         
         Sphere[{13.75, 2 Sin[($CellContext`x$$ - 7.5)/3.75] + 10.5, 1}, 
          1.25], 
         Sphere[{11.25, (-2) Sin[($CellContext`x$$ - 7.5)/3.75] + 10.5, 1}, 
          1.25], 
         Sphere[{13.75, 2 Sin[($CellContext`x$$ - 7.5)/3.75] + 9, 1}, 1.15], 
         Sphere[{11.25, (-2) Sin[($CellContext`x$$ - 7.5)/3.75] + 9, 1}, 
          1.15], 
         Sphere[{10, 12.5, 17}, 1], 
         Sphere[{15, 12.5, 17}, 1], 
         Cylinder[{{8, 12.5, 15}, {10.5, 12.5, 17}}, 0.85], 
         Cylinder[{{17, 12.5, 15}, {14.5, 12.5, 17}}, 0.85], 
         Sphere[{8, 12.5, 15}, 0.8], 
         Sphere[{17, 12.5, 15}, 0.8], 
         Cylinder[{{8, 12.5, 15}, {8, 11, 13}}, 0.75], 
         Cylinder[{{17, 12.5, 15}, {17, 11, 13}}, 0.75], 
         Sphere[{8, 11, 13}, 0.8], 
         Sphere[{17, 11, 13}, 0.8]}, PlotRange -> {{0, 25}, {0, 25}, {0, 25}},
         Axes -> True, 
        AxesLabel -> {$CellContext`x$$, $CellContext`y, $CellContext`z}], 
      "Specifications" :> {{$CellContext`x$$, -10, 50}}, "Options" :> {}, 
      "DefaultOptions" :> {}],
     ImageSizeCache->{404., {229., 234.}},
     SingleEvaluation->True],
    Deinitialization:>None,
    DynamicModuleValues:>{},
    SynchronousInitialization->True,
    UnsavedVariables:>{Typeset`initDone$$},
    UntrackedVariables:>{Typeset`size$$}], "Manipulate",
   Deployed->True,
   StripOnInput->False],
  Manipulate`InterpretManipulate[1]]], "Output",
 GeneratedCell->False,
 CellAutoOverwrite->False,
 CellChangeTimes->{
  3.4070020222240257`*^9, {3.40700209974039*^9, 3.4070021366083097`*^9}, {
   3.407002177741036*^9, 3.407002185145864*^9}, {3.4070022755347557`*^9, 
   3.407002290703718*^9}, {3.407002330883502*^9, 3.407002345833756*^9}, 
   3.4070023876226063`*^9}],

Cell[BoxData[
 TagBox[
  StyleBox[
   DynamicModuleBox[{$CellContext`x$$ = 24.700000000000003`, Typeset`show$$ = 
    True, Typeset`bookmarkList$$ = {}, Typeset`bookmarkMode$$ = "Menu", 
    Typeset`animator$$, Typeset`animvar$$ = 1, Typeset`name$$ = 
    "\"untitled\"", Typeset`specs$$ = {{
      Hold[$CellContext`x$$], -10, 50}}, Typeset`size$$ = {
    360., {187., 191.}}, Typeset`update$$ = 0, Typeset`initDone$$, 
    Typeset`skipInitDone$$ = True, $CellContext`x$107282$$ = 0}, 
    DynamicBox[Manipulate`ManipulateBoxes[
     1, StandardForm, "Variables" :> {$CellContext`x$$ = -10}, 
      "ControllerVariables" :> {
        Hold[$CellContext`x$$, $CellContext`x$107282$$, 0]}, 
      "OtherVariables" :> {
       Typeset`show$$, Typeset`bookmarkList$$, Typeset`bookmarkMode$$, 
        Typeset`animator$$, Typeset`animvar$$, Typeset`name$$, 
        Typeset`specs$$, Typeset`size$$, Typeset`update$$, Typeset`initDone$$,
         Typeset`skipInitDone$$}, "Body" :> Graphics3D[{{
          Translate[
           Scale[
            PolyhedronData["TruncatedIcosahedron", "Faces"], {0.7, 0.7, 
            0.7}, {20, 20, 6}], {0, 0, 0}]}, {Green, 
          Cuboid[{0, 25, 0}, {25, 0, 0}]}, 
         Cylinder[{{12.5, 12.5, 19}, {12.5, 12.5, 18}}, 1.75], 
         Cylinder[{{12.5, 12.5, 12}, {12.5, 12.5, 18}}, 2.5], 
         Sphere[{12.5, 12.5, 20.5}, 2.5], 
         Sphere[{12.5, 12.5, 12}, 2.5], 
         Sphere[{12, 12.5, 11}, 1.5], 
         Sphere[{12, 12.5, 11}, 1.5], 
         Cylinder[{{13.75, 2 Sin[($CellContext`x$$ - 7.5)/3.75] + 10.5, 
            Abs[$CellContext`x$$]}, {13.75, 12.5, 11.5}}, 1.25], 
         Cylinder[{{
           11.25, (-2) Sin[($CellContext`x$$ - 7.5)/3.75] + 10.5, 7}, {11.25, 
           12.5, 11.5}}, 1.25], 
         Sphere[{
          13.75, 2 Sin[($CellContext`x$$ - 7.5)/3.75] + 10.5, 
           4 Sin[($CellContext`x$$ - 5)/10] + 8}, 1.25], 
         Sphere[{11.25, (-2) Sin[($CellContext`x$$ - 7.5)/3.75] + 10.5, 6.5}, 
          1.25], 
         Cylinder[{{
           13.75, 2 Sin[($CellContext`x$$ - 7.5)/3.75] + 10.5, 1.5}, {
           13.75, 2 Sin[($CellContext`x$$ - 7.5)/3.75] + 10.5, 6}}, 1.25], 
         Cylinder[{{
           11.25, (-2) Sin[($CellContext`x$$ - 7.5)/3.75] + 10.5, 1.5}, {
           11.25, (-2) Sin[($CellContext`x$$ - 7.5)/3.75] + 10.5, 6}}, 1.25], 
         
         Sphere[{13.75, 2 Sin[($CellContext`x$$ - 7.5)/3.75] + 10.5, 1}, 
          1.25], 
         Sphere[{11.25, (-2) Sin[($CellContext`x$$ - 7.5)/3.75] + 10.5, 1}, 
          1.25], 
         Sphere[{13.75, 2 Sin[($CellContext`x$$ - 7.5)/3.75] + 9, 1}, 1.15], 
         Sphere[{11.25, (-2) Sin[($CellContext`x$$ - 7.5)/3.75] + 9, 1}, 
          1.15], 
         Sphere[{10, 12.5, 17}, 1], 
         Sphere[{15, 12.5, 17}, 1], 
         Cylinder[{{8, 12.5, 15}, {10.5, 12.5, 17}}, 0.85], 
         Cylinder[{{17, 12.5, 15}, {14.5, 12.5, 17}}, 0.85], 
         Sphere[{8, 12.5, 15}, 0.8], 
         Sphere[{17, 12.5, 15}, 0.8], 
         Cylinder[{{8, 12.5, 15}, {8, 11, 13}}, 0.75], 
         Cylinder[{{17, 12.5, 15}, {17, 11, 13}}, 0.75], 
         Sphere[{8, 11, 13}, 0.8], 
         Sphere[{17, 11, 13}, 0.8]}, PlotRange -> {{0, 25}, {0, 25}, {0, 25}},
         Axes -> True, 
        AxesLabel -> {$CellContext`x$$, $CellContext`y, $CellContext`z}], 
      "Specifications" :> {{$CellContext`x$$, -10, 50}}, "Options" :> {}, 
      "DefaultOptions" :> {}],
     ImageSizeCache->{404., {229., 234.}},
     SingleEvaluation->True],
    Deinitialization:>None,
    DynamicModuleValues:>{},
    SynchronousInitialization->True,
    UnsavedVariables:>{Typeset`initDone$$},
    UntrackedVariables:>{Typeset`size$$}], "Manipulate",
   Deployed->True,
   StripOnInput->False],
  Manipulate`InterpretManipulate[1]]], "Output",
 GeneratedCell->False,
 CellAutoOverwrite->False,
 CellChangeTimes->{
  3.4070020222240257`*^9, {3.40700209974039*^9, 3.4070021366083097`*^9}, {
   3.407002177741036*^9, 3.407002185145864*^9}, {3.4070022755347557`*^9, 
   3.407002290703718*^9}, {3.407002330883502*^9, 3.407002345833756*^9}}],

Cell[BoxData[
 TagBox[
  StyleBox[
   DynamicModuleBox[{$CellContext`x$$ = 50., Typeset`show$$ = True, 
    Typeset`bookmarkList$$ = {}, Typeset`bookmarkMode$$ = "Menu", 
    Typeset`animator$$, Typeset`animvar$$ = 1, Typeset`name$$ = 
    "\"untitled\"", Typeset`specs$$ = {{
      Hold[$CellContext`x$$], -10, 50}}, Typeset`size$$ = {
    360., {187., 191.}}, Typeset`update$$ = 0, Typeset`initDone$$, 
    Typeset`skipInitDone$$ = True, $CellContext`x$106143$$ = 0}, 
    DynamicBox[Manipulate`ManipulateBoxes[
     1, StandardForm, "Variables" :> {$CellContext`x$$ = -10}, 
      "ControllerVariables" :> {
        Hold[$CellContext`x$$, $CellContext`x$106143$$, 0]}, 
      "OtherVariables" :> {
       Typeset`show$$, Typeset`bookmarkList$$, Typeset`bookmarkMode$$, 
        Typeset`animator$$, Typeset`animvar$$, Typeset`name$$, 
        Typeset`specs$$, Typeset`size$$, Typeset`update$$, Typeset`initDone$$,
         Typeset`skipInitDone$$}, "Body" :> Graphics3D[{{
          Translate[
           Scale[
            PolyhedronData["TruncatedIcosahedron", "Faces"], {0.7, 0.7, 
            0.7}, {20, 20, 6}], {0, 0, 0}]}, {Green, 
          Cuboid[{0, 25, 0}, {25, 0, 0}]}, 
         Cylinder[{{12.5, 12.5, 19}, {12.5, 12.5, 18}}, 1.75], 
         Cylinder[{{12.5, 12.5, 12}, {12.5, 12.5, 18}}, 2.5], 
         Sphere[{12.5, 12.5, 20.5}, 2.5], 
         Sphere[{12.5, 12.5, 12}, 2.5], 
         Sphere[{12, 12.5, 11}, 1.5], 
         Sphere[{12, 12.5, 11}, 1.5], 
         Cylinder[{{13.75, 2 Sin[($CellContext`x$$ - 7.5)/3.75] + 10.5, 
            $CellContext`abs[$CellContext`x$$]}, {13.75, 12.5, 11.5}}, 1.25], 
         
         Cylinder[{{
           11.25, (-2) Sin[($CellContext`x$$ - 7.5)/3.75] + 10.5, 7}, {11.25, 
           12.5, 11.5}}, 1.25], 
         Sphere[{
          13.75, 2 Sin[($CellContext`x$$ - 7.5)/3.75] + 10.5, 
           4 Sin[($CellContext`x$$ - 5)/10] + 8}, 1.25], 
         Sphere[{11.25, (-2) Sin[($CellContext`x$$ - 7.5)/3.75] + 10.5, 6.5}, 
          1.25], 
         Cylinder[{{
           13.75, 2 Sin[($CellContext`x$$ - 7.5)/3.75] + 10.5, 1.5}, {
           13.75, 2 Sin[($CellContext`x$$ - 7.5)/3.75] + 10.5, 6}}, 1.25], 
         Cylinder[{{
           11.25, (-2) Sin[($CellContext`x$$ - 7.5)/3.75] + 10.5, 1.5}, {
           11.25, (-2) Sin[($CellContext`x$$ - 7.5)/3.75] + 10.5, 6}}, 1.25], 
         
         Sphere[{13.75, 2 Sin[($CellContext`x$$ - 7.5)/3.75] + 10.5, 1}, 
          1.25], 
         Sphere[{11.25, (-2) Sin[($CellContext`x$$ - 7.5)/3.75] + 10.5, 1}, 
          1.25], 
         Sphere[{13.75, 2 Sin[($CellContext`x$$ - 7.5)/3.75] + 9, 1}, 1.15], 
         Sphere[{11.25, (-2) Sin[($CellContext`x$$ - 7.5)/3.75] + 9, 1}, 
          1.15], 
         Sphere[{10, 12.5, 17}, 1], 
         Sphere[{15, 12.5, 17}, 1], 
         Cylinder[{{8, 12.5, 15}, {10.5, 12.5, 17}}, 0.85], 
         Cylinder[{{17, 12.5, 15}, {14.5, 12.5, 17}}, 0.85], 
         Sphere[{8, 12.5, 15}, 0.8], 
         Sphere[{17, 12.5, 15}, 0.8], 
         Cylinder[{{8, 12.5, 15}, {8, 11, 13}}, 0.75], 
         Cylinder[{{17, 12.5, 15}, {17, 11, 13}}, 0.75], 
         Sphere[{8, 11, 13}, 0.8], 
         Sphere[{17, 11, 13}, 0.8]}, PlotRange -> {{0, 25}, {0, 25}, {0, 25}},
         Axes -> True, 
        AxesLabel -> {$CellContext`x$$, $CellContext`y, $CellContext`z}], 
      "Specifications" :> {{$CellContext`x$$, -10, 50}}, "Options" :> {}, 
      "DefaultOptions" :> {}],
     ImageSizeCache->{404., {229., 234.}},
     SingleEvaluation->True],
    Deinitialization:>None,
    DynamicModuleValues:>{},
    SynchronousInitialization->True,
    UnsavedVariables:>{Typeset`initDone$$},
    UntrackedVariables:>{Typeset`size$$}], "Manipulate",
   Deployed->True,
   StripOnInput->False],
  Manipulate`InterpretManipulate[1]]], "Output",
 GeneratedCell->False,
 CellAutoOverwrite->False,
 CellChangeTimes->{
  3.4070020222240257`*^9, {3.40700209974039*^9, 3.4070021366083097`*^9}, {
   3.407002177741036*^9, 3.407002185145864*^9}, {3.4070022755347557`*^9, 
   3.407002290703718*^9}, 3.407002330883502*^9}],

Cell[BoxData[
 TagBox[
  StyleBox[
   DynamicModuleBox[{$CellContext`x$$ = 13.892768859863281`, Typeset`show$$ = 
    True, Typeset`bookmarkList$$ = {}, Typeset`bookmarkMode$$ = "Menu", 
    Typeset`animator$$, Typeset`animvar$$ = 1, Typeset`name$$ = 
    "\"untitled\"", Typeset`specs$$ = {{
      Hold[$CellContext`x$$], -10, 50}}, Typeset`size$$ = {
    360., {187., 191.}}, Typeset`update$$ = 0, Typeset`initDone$$, 
    Typeset`skipInitDone$$ = True, $CellContext`x$98920$$ = 0}, 
    DynamicBox[Manipulate`ManipulateBoxes[
     1, StandardForm, "Variables" :> {$CellContext`x$$ = -10}, 
      "ControllerVariables" :> {
        Hold[$CellContext`x$$, $CellContext`x$98920$$, 0]}, 
      "OtherVariables" :> {
       Typeset`show$$, Typeset`bookmarkList$$, Typeset`bookmarkMode$$, 
        Typeset`animator$$, Typeset`animvar$$, Typeset`name$$, 
        Typeset`specs$$, Typeset`size$$, Typeset`update$$, Typeset`initDone$$,
         Typeset`skipInitDone$$}, "Body" :> Graphics3D[{{
          Translate[
           Scale[
            PolyhedronData["TruncatedIcosahedron", "Faces"], {0.7, 0.7, 
            0.7}, {20, 20, 6}], {0, 0, 0}]}, {Green, 
          Cuboid[{0, 25, 0}, {25, 0, 0}]}, 
         Cylinder[{{12.5, 12.5, 19}, {12.5, 12.5, 18}}, 1.75], 
         Cylinder[{{12.5, 12.5, 12}, {12.5, 12.5, 18}}, 2.5], 
         Sphere[{12.5, 12.5, 20.5}, 2.5], 
         Sphere[{12.5, 12.5, 12}, 2.5], 
         Sphere[{12, 12.5, 11}, 1.5], 
         Sphere[{12, 12.5, 11}, 1.5], 
         Cylinder[{{
           13.75, 2 Sin[($CellContext`x$$ - 7.5)/3.75] + 10.5, 
            4 Sin[($CellContext`x$$ - 5)/10] + 8}, {13.75, 12.5, 11.5}}, 
          1.25], 
         Cylinder[{{
           11.25, (-2) Sin[($CellContext`x$$ - 7.5)/3.75] + 10.5, 7}, {11.25, 
           12.5, 11.5}}, 1.25], 
         Sphere[{
          13.75, 2 Sin[($CellContext`x$$ - 7.5)/3.75] + 10.5, 
           4 Sin[($CellContext`x$$ - 5)/10] + 8}, 1.25], 
         Sphere[{11.25, (-2) Sin[($CellContext`x$$ - 7.5)/3.75] + 10.5, 6.5}, 
          1.25], 
         Cylinder[{{
           13.75, 2 Sin[($CellContext`x$$ - 7.5)/3.75] + 10.5, 1.5}, {
           13.75, 2 Sin[($CellContext`x$$ - 7.5)/3.75] + 10.5, 6}}, 1.25], 
         Cylinder[{{
           11.25, (-2) Sin[($CellContext`x$$ - 7.5)/3.75] + 10.5, 1.5}, {
           11.25, (-2) Sin[($CellContext`x$$ - 7.5)/3.75] + 10.5, 6}}, 1.25], 
         
         Sphere[{13.75, 2 Sin[($CellContext`x$$ - 7.5)/3.75] + 10.5, 1}, 
          1.25], 
         Sphere[{11.25, (-2) Sin[($CellContext`x$$ - 7.5)/3.75] + 10.5, 1}, 
          1.25], 
         Sphere[{13.75, 2 Sin[($CellContext`x$$ - 7.5)/3.75] + 9, 1}, 1.15], 
         Sphere[{11.25, (-2) Sin[($CellContext`x$$ - 7.5)/3.75] + 9, 1}, 
          1.15], 
         Sphere[{10, 12.5, 17}, 1], 
         Sphere[{15, 12.5, 17}, 1], 
         Cylinder[{{8, 12.5, 15}, {10.5, 12.5, 17}}, 0.85], 
         Cylinder[{{17, 12.5, 15}, {14.5, 12.5, 17}}, 0.85], 
         Sphere[{8, 12.5, 15}, 0.8], 
         Sphere[{17, 12.5, 15}, 0.8]