(* Content-type: application/mathematica *) (*** Wolfram Notebook File ***) (* http://www.wolfram.com/nb *) (* CreatedBy='Mathematica 6.0' *) (*CacheID: 234*) (* Internal cache information: NotebookFileLineBreakTest NotebookFileLineBreakTest NotebookDataPosition[ 145, 7] NotebookDataLength[ 19454, 570] NotebookOptionsPosition[ 19081, 554] NotebookOutlinePosition[ 19422, 569] CellTagsIndexPosition[ 19379, 566] WindowFrame->Normal ContainsDynamic->False*) (* Beginning of Notebook Content *) Notebook[{ Cell[BoxData[ RowBox[{"Graphics3D", "[", RowBox[{ RowBox[{"{", RowBox[{ RowBox[{"Cuboid", "[", RowBox[{ RowBox[{"{", RowBox[{"0", ",", "25", ",", "0"}], "}"}], ",", RowBox[{"{", RowBox[{"25", ",", RowBox[{"-", "10"}], ",", "0"}], "}"}]}], "]"}], ",", RowBox[{"Cylinder", "[", RowBox[{ RowBox[{"{", RowBox[{ RowBox[{"{", RowBox[{"10", ",", "10", ",", "8"}], "}"}], ",", RowBox[{"{", RowBox[{"10", ",", "10", ",", "18"}], "}"}]}], "}"}], ",", "3"}], "]"}], ",", RowBox[{"Sphere", "[", RowBox[{ RowBox[{"{", RowBox[{"10", ",", "10", ",", "19.5"}], "}"}], ",", "3"}], "]"}], ",", RowBox[{"Sphere", "[", RowBox[{ RowBox[{"{", RowBox[{"10", ",", "10", ",", "8"}], "}"}], ",", "3"}], "]"}], ",", RowBox[{"Cylinder", "[", RowBox[{ RowBox[{"{", RowBox[{ RowBox[{"{", RowBox[{"8.5", ",", "10", ",", "3"}], "}"}], ",", RowBox[{"{", RowBox[{"8.5", ",", "10", ",", "8"}], "}"}]}], "}"}], ",", "1.25"}], "]"}], ",", RowBox[{"Cylinder", "[", RowBox[{ RowBox[{"{", RowBox[{ RowBox[{"{", RowBox[{"11.75", ",", "10", ",", "3"}], "}"}], ",", RowBox[{"{", RowBox[{"11.75", ",", "10", ",", "8"}], "}"}]}], "}"}], ",", "1.25"}], "]"}], ",", RowBox[{"Sphere", "[", RowBox[{ RowBox[{"{", RowBox[{"11.75", ",", "10", ",", "3"}], "}"}], ",", "1.25"}], "]"}], ",", RowBox[{"Sphere", "[", RowBox[{ RowBox[{"{", RowBox[{"8.5", ",", "10", ",", "3"}], "}"}], ",", "1.25"}], "]"}], ",", RowBox[{"Cylinder", "[", RowBox[{ RowBox[{"{", RowBox[{ RowBox[{"{", RowBox[{"8.5", ",", "10", ",", ".3"}], "}"}], ",", RowBox[{"{", RowBox[{"8.5", ",", "10", ",", "2.25"}], "}"}]}], "}"}], ",", "1"}], "]"}], ",", RowBox[{"Cylinder", "[", RowBox[{ RowBox[{"{", RowBox[{ RowBox[{"{", RowBox[{"11.75", ",", "10", ",", ".3"}], "}"}], ",", RowBox[{"{", RowBox[{"11.75", ",", "10", ",", "2.25"}], "}"}]}], "}"}], ",", "1"}], "]"}], ",", RowBox[{"Sphere", "[", RowBox[{ RowBox[{"{", RowBox[{"8.5", ",", "9.5", ",", ".3"}], "}"}], ",", ".9"}], "]"}], ",", RowBox[{"Sphere", "[", RowBox[{ RowBox[{"{", RowBox[{"11.75", ",", "9.5", ",", ".3"}], "}"}], ",", ".9"}], "]"}], ",", RowBox[{"Sphere", "[", RowBox[{ RowBox[{"{", RowBox[{"8.75", ",", "10", ",", "16"}], "}"}], ",", "2.5"}], "]"}], ",", RowBox[{"Sphere", "[", RowBox[{ RowBox[{"{", RowBox[{"11.5", ",", "10", ",", "16"}], "}"}], ",", "2.5"}], "]"}], ",", RowBox[{"Cylinder", "[", RowBox[{ RowBox[{"{", RowBox[{ RowBox[{"{", RowBox[{"15", ",", "10", ",", "12"}], "}"}], ",", RowBox[{"{", RowBox[{"12.5", ",", "10", ",", "16"}], "}"}]}], "}"}], ",", "1"}], "]"}], ",", RowBox[{"Cylinder", "[", RowBox[{ RowBox[{"{", RowBox[{ RowBox[{"{", RowBox[{"5", ",", "10", ",", "12"}], "}"}], ",", RowBox[{"{", RowBox[{"7.75", ",", "10", ",", "16"}], "}"}]}], "}"}], ",", "1"}], "]"}], ",", RowBox[{"Sphere", "[", RowBox[{ RowBox[{"{", RowBox[{"4.75", ",", "10", ",", "11.5"}], "}"}], ",", "1.05"}], "]"}], ",", RowBox[{"Sphere", "[", RowBox[{ RowBox[{"{", RowBox[{"15.25", ",", "10", ",", "11.5"}], "}"}], ",", "1.05"}], "]"}], ",", RowBox[{"Cylinder", "[", RowBox[{ RowBox[{"{", RowBox[{ RowBox[{"{", RowBox[{"15.5", ",", "10", ",", "11.2"}], "}"}], ",", RowBox[{"{", RowBox[{"14.5", ",", "6", ",", "11.2"}], "}"}]}], "}"}], ",", ".7"}], "]"}], ",", RowBox[{"Cylinder", "[", RowBox[{ RowBox[{"{", RowBox[{ RowBox[{"{", RowBox[{"4.5", ",", "10", ",", "11.2"}], "}"}], ",", RowBox[{"{", RowBox[{"5.5", ",", "6", ",", "11.2"}], "}"}]}], "}"}], ",", ".7"}], "]"}], ",", RowBox[{"Sphere", "[", RowBox[{ RowBox[{"{", RowBox[{"5.5", ",", "5.75", ",", "11.2"}], "}"}], ",", ".75"}], "]"}], ",", RowBox[{"Sphere", "[", RowBox[{ RowBox[{"{", RowBox[{"14.5", ",", "5.75", ",", "11.2"}], "}"}], ",", ".75"}], "]"}], ",", RowBox[{"Cylinder", "[", RowBox[{ RowBox[{"{", RowBox[{ RowBox[{"{", RowBox[{"5.5", ",", "5.75", ",", "11.2"}], "}"}], ",", RowBox[{"{", RowBox[{"6.5", ",", "4", ",", "14.5"}], "}"}]}], "}"}], ",", ".5"}], "]"}], ",", RowBox[{"Cylinder", "[", RowBox[{ RowBox[{"{", RowBox[{ RowBox[{"{", RowBox[{"14.5", ",", "5.75", ",", "11.2"}], "}"}], ",", RowBox[{"{", RowBox[{"14", ",", "4", ",", "14.5"}], "}"}]}], "}"}], ",", ".5"}], "]"}], ",", RowBox[{"Cylinder", "[", RowBox[{ RowBox[{"{", RowBox[{ RowBox[{"{", RowBox[{"12.5", ",", "0", ",", "0"}], "}"}], ",", RowBox[{"{", RowBox[{"11", ",", "0", ",", "3"}], "}"}]}], "}"}], ",", ".5"}], "]"}], ",", RowBox[{"Cylinder", "[", RowBox[{ RowBox[{"{", RowBox[{ RowBox[{"{", RowBox[{"8.5", ",", "0", ",", "0"}], "}"}], ",", RowBox[{"{", RowBox[{"10", ",", "0", ",", "3"}], "}"}]}], "}"}], ",", ".5"}], "]"}], ",", RowBox[{"Cylinder", "[", RowBox[{ RowBox[{"{", RowBox[{ RowBox[{"{", RowBox[{"10.5", ",", RowBox[{"-", "2"}], ",", "0"}], "}"}], ",", RowBox[{"{", RowBox[{"10.5", ",", "0", ",", "3"}], "}"}]}], "}"}], ",", ".5"}], "]"}], ",", RowBox[{"Cylinder", "[", RowBox[{ RowBox[{"{", RowBox[{ RowBox[{"{", RowBox[{"10.5", ",", "2", ",", "0"}], "}"}], ",", RowBox[{"{", RowBox[{"10.5", ",", "0", ",", "3"}], "}"}]}], "}"}], ",", ".5"}], "]"}], ",", RowBox[{"Cylinder", "[", RowBox[{ RowBox[{"{", RowBox[{ RowBox[{"{", RowBox[{"10.5", ",", "0", ",", "3"}], "}"}], ",", RowBox[{"{", RowBox[{"10.5", ",", "0", ",", "11.5"}], "}"}]}], "}"}], ",", ".5"}], "]"}], ",", RowBox[{"Cylinder", "[", RowBox[{ RowBox[{"{", RowBox[{ RowBox[{"{", RowBox[{"10.5", ",", "0", ",", "11.5"}], "}"}], ",", RowBox[{"{", RowBox[{"10.5", ",", "0", ",", "12.5"}], "}"}]}], "}"}], ",", "4"}], "]"}]}], "}"}], ",", RowBox[{"PlotRange", "\[Rule]", RowBox[{"{", RowBox[{ RowBox[{"{", RowBox[{"0", ",", "20"}], "}"}], ",", RowBox[{"{", RowBox[{ RowBox[{"-", "10"}], ",", "20"}], "}"}], ",", RowBox[{"{", RowBox[{"0", ",", "25"}], "}"}]}], "}"}]}], ",", RowBox[{"Axes", "\[Rule]", "True"}]}], "]"}]], "Input", CellChangeTimes->{{3.40701431071875*^9, 3.407014420171875*^9}, { 3.4070144616875*^9, 3.407014471703125*^9}, {3.4070145134375*^9, 3.407014603859375*^9}, {3.407014651890625*^9, 3.407014688640625*^9}, { 3.407014866125*^9, 3.407014900546875*^9}, {3.40701503690625*^9, 3.407015048578125*^9}, {3.407015084265625*^9, 3.407015101265625*^9}, { 3.40701521234375*^9, 3.4070152275*^9}, {3.407015350953125*^9, 3.4070153818125*^9}, {3.407015420328125*^9, 3.40701546321875*^9}, { 3.407015539125*^9, 3.407015550671875*^9}, {3.407015792296875*^9, 3.407015796421875*^9}, {3.40701623721875*^9, 3.407016498921875*^9}, { 3.407017146703125*^9, 3.407017189984375*^9}, {3.407017256453125*^9, 3.40701727378125*^9}, {3.407017366296875*^9, 3.407017379453125*^9}, { 3.40701745878125*^9, 3.407017555109375*^9}, {3.40701764053125*^9, 3.40701766696875*^9}, {3.4070177516875*^9, 3.4070178640625*^9}, { 3.407018638203125*^9, 3.407018653296875*^9}}], Cell[BoxData[ RowBox[{"Do", "[", RowBox[{ RowBox[{ RowBox[{"a", "[", "n", "]"}], "=", RowBox[{"Graphics3D", "[", RowBox[{ RowBox[{"{", RowBox[{ RowBox[{"Cuboid", "[", RowBox[{ RowBox[{"{", RowBox[{"0", ",", "25", ",", "0"}], "}"}], ",", RowBox[{"{", RowBox[{"25", ",", RowBox[{"-", "10"}], ",", "0"}], "}"}]}], "]"}], ",", RowBox[{"Cylinder", "[", RowBox[{ RowBox[{"{", RowBox[{ RowBox[{"{", RowBox[{"10", ",", "10", ",", "8"}], "}"}], ",", RowBox[{"{", RowBox[{"10", ",", "10", ",", "18"}], "}"}]}], "}"}], ",", "3"}], "]"}], ",", RowBox[{"Sphere", "[", RowBox[{ RowBox[{"{", RowBox[{"10", ",", "10", ",", "19.5"}], "}"}], ",", "3"}], "]"}], ",", RowBox[{"Sphere", "[", RowBox[{ RowBox[{"{", RowBox[{"10", ",", "10", ",", "8"}], "}"}], ",", "3"}], "]"}], ",", RowBox[{"Cylinder", "[", RowBox[{ RowBox[{"{", RowBox[{ RowBox[{"{", RowBox[{"8.5", ",", "10", ",", "3"}], "}"}], ",", RowBox[{"{", RowBox[{"8.5", ",", "10", ",", "8"}], "}"}]}], "}"}], ",", "1.25"}], "]"}], ",", RowBox[{"Cylinder", "[", RowBox[{ RowBox[{"{", RowBox[{ RowBox[{"{", RowBox[{"11.75", ",", "10", ",", "3"}], "}"}], ",", RowBox[{"{", RowBox[{"11.75", ",", "10", ",", "8"}], "}"}]}], "}"}], ",", "1.25"}], "]"}], ",", RowBox[{"Sphere", "[", RowBox[{ RowBox[{"{", RowBox[{"11.75", ",", "10", ",", "3"}], "}"}], ",", "1.25"}], "]"}], ",", RowBox[{"Sphere", "[", RowBox[{ RowBox[{"{", RowBox[{"8.5", ",", "10", ",", "3"}], "}"}], ",", "1.25"}], "]"}], ",", RowBox[{"Cylinder", "[", RowBox[{ RowBox[{"{", RowBox[{ RowBox[{"{", RowBox[{"8.5", ",", "10", ",", ".3"}], "}"}], ",", RowBox[{"{", RowBox[{"8.5", ",", "10", ",", "2.25"}], "}"}]}], "}"}], ",", "1"}], "]"}], ",", RowBox[{"Cylinder", "[", RowBox[{ RowBox[{"{", RowBox[{ RowBox[{"{", RowBox[{"11.75", ",", "10", ",", ".3"}], "}"}], ",", RowBox[{"{", RowBox[{"11.75", ",", "10", ",", "2.25"}], "}"}]}], "}"}], ",", "1"}], "]"}], ",", RowBox[{"Sphere", "[", RowBox[{ RowBox[{"{", RowBox[{"8.5", ",", "9.5", ",", ".3"}], "}"}], ",", ".9"}], "]"}], ",", RowBox[{"Sphere", "[", RowBox[{ RowBox[{"{", RowBox[{"11.75", ",", "9.5", ",", ".3"}], "}"}], ",", ".9"}], "]"}], ",", RowBox[{"Sphere", "[", RowBox[{ RowBox[{"{", RowBox[{"8.75", ",", "10", ",", "16"}], "}"}], ",", "2.5"}], "]"}], ",", RowBox[{"Sphere", "[", RowBox[{ RowBox[{"{", RowBox[{"11.5", ",", "10", ",", "16"}], "}"}], ",", "2.5"}], "]"}], ",", RowBox[{"Cylinder", "[", RowBox[{ RowBox[{"{", RowBox[{ RowBox[{"{", RowBox[{"15", ",", "10", ",", "12"}], "}"}], ",", RowBox[{"{", RowBox[{"12.5", ",", "10", ",", "16"}], "}"}]}], "}"}], ",", "1"}], "]"}], ",", RowBox[{"Cylinder", "[", RowBox[{ RowBox[{"{", RowBox[{ RowBox[{"{", RowBox[{"5", ",", "10", ",", "12"}], "}"}], ",", RowBox[{"{", RowBox[{"7.75", ",", "10", ",", "16"}], "}"}]}], "}"}], ",", "1"}], "]"}], ",", RowBox[{"Sphere", "[", RowBox[{ RowBox[{"{", RowBox[{"4.75", ",", "10", ",", "11.5"}], "}"}], ",", "1.05"}], "]"}], ",", RowBox[{"Sphere", "[", RowBox[{ RowBox[{"{", RowBox[{"15.25", ",", "10", ",", "11.5"}], "}"}], ",", "1.05"}], "]"}], ",", RowBox[{"Cylinder", "[", RowBox[{ RowBox[{"{", RowBox[{ RowBox[{"{", RowBox[{"15.5", ",", "10", ",", "11.2"}], "}"}], ",", RowBox[{"{", RowBox[{"14.5", ",", "6", ",", RowBox[{"11.2", "-", "n"}]}], "}"}]}], "}"}], ",", ".7"}], "]"}], ",", RowBox[{"Cylinder", "[", RowBox[{ RowBox[{"{", RowBox[{ RowBox[{"{", RowBox[{"4.5", ",", "10", ",", "11.2"}], "}"}], ",", RowBox[{"{", RowBox[{"5.5", ",", "6", ",", RowBox[{"11.2", "-", "n"}]}], "}"}]}], "}"}], ",", ".7"}], "]"}], ",", RowBox[{"Sphere", "[", RowBox[{ RowBox[{"{", RowBox[{"5.5", ",", "5.75", ",", RowBox[{"11.2", "-", "n"}]}], "}"}], ",", ".75"}], "]"}], ",", RowBox[{"Sphere", "[", RowBox[{ RowBox[{"{", RowBox[{"14.5", ",", "5.75", ",", RowBox[{"11.2", "-", "n"}]}], "}"}], ",", ".75"}], "]"}], ",", RowBox[{"Cylinder", "[", RowBox[{ RowBox[{"{", RowBox[{ RowBox[{"{", RowBox[{"5.5", ",", "5.75", ",", RowBox[{"11.2", "-", "n"}]}], "}"}], ",", RowBox[{"{", RowBox[{"6", ",", RowBox[{"4", "-", "n"}], ",", RowBox[{"14.5", "-", "n"}]}], "}"}]}], "}"}], ",", ".5"}], "]"}], ",", RowBox[{"Cylinder", "[", RowBox[{ RowBox[{"{", RowBox[{ RowBox[{"{", RowBox[{"14.5", ",", "5.75", ",", RowBox[{"11.2", "-", "n"}]}], "}"}], ",", RowBox[{"{", RowBox[{"14", ",", RowBox[{"4", "-", "n"}], ",", RowBox[{"14.5", "-", "n"}]}], "}"}]}], "}"}], ",", ".5"}], "]"}], ",", RowBox[{"Cylinder", "[", RowBox[{ RowBox[{"{", RowBox[{ RowBox[{"{", RowBox[{"12.5", ",", "0", ",", "0"}], "}"}], ",", RowBox[{"{", RowBox[{"11", ",", "0", ",", "3"}], "}"}]}], "}"}], ",", ".5"}], "]"}], ",", RowBox[{"Cylinder", "[", RowBox[{ RowBox[{"{", RowBox[{ RowBox[{"{", RowBox[{"8.5", ",", "0", ",", "0"}], "}"}], ",", RowBox[{"{", RowBox[{"10", ",", "0", ",", "3"}], "}"}]}], "}"}], ",", ".5"}], "]"}], ",", RowBox[{"Cylinder", "[", RowBox[{ RowBox[{"{", RowBox[{ RowBox[{"{", RowBox[{"10.5", ",", RowBox[{"-", "2"}], ",", "0"}], "}"}], ",", RowBox[{"{", RowBox[{"10.5", ",", "0", ",", "3"}], "}"}]}], "}"}], ",", ".5"}], "]"}], ",", RowBox[{"Cylinder", "[", RowBox[{ RowBox[{"{", RowBox[{ RowBox[{"{", RowBox[{"10.5", ",", "2", ",", "0"}], "}"}], ",", RowBox[{"{", RowBox[{"10.5", ",", "0", ",", "3"}], "}"}]}], "}"}], ",", ".5"}], "]"}], ",", RowBox[{"Cylinder", "[", RowBox[{ RowBox[{"{", RowBox[{ RowBox[{"{", RowBox[{"10.5", ",", "0", ",", "3"}], "}"}], ",", RowBox[{"{", RowBox[{"10.5", ",", "0", ",", "11.5"}], "}"}]}], "}"}], ",", ".5"}], "]"}], ",", RowBox[{"Cylinder", "[", RowBox[{ RowBox[{"{", RowBox[{ RowBox[{"{", RowBox[{"10.5", ",", "0", ",", "11.5"}], "}"}], ",", RowBox[{"{", RowBox[{"10.5", ",", "0", ",", "12.5"}], "}"}]}], "}"}], ",", "4"}], "]"}]}], "}"}], ",", RowBox[{"PlotRange", "\[Rule]", RowBox[{"{", RowBox[{ RowBox[{"{", RowBox[{"0", ",", "20"}], "}"}], ",", RowBox[{"{", RowBox[{ RowBox[{"-", "10"}], ",", "20"}], "}"}], ",", RowBox[{"{", RowBox[{"0", ",", "25"}], "}"}]}], "}"}]}], ",", RowBox[{"Axes", "\[Rule]", "True"}]}], "]"}]}], ",", RowBox[{"{", RowBox[{"n", ",", "0", ",", "2"}], "}"}]}], "]"}]], "Input", CellChangeTimes->{{3.407015590375*^9, 3.407015609140625*^9}, { 3.4070159254375*^9, 3.407015960859375*^9}, {3.407016006984375*^9, 3.4070160196875*^9}, {3.4070160535625*^9, 3.40701611053125*^9}, { 3.40701615325*^9, 3.407016219921875*^9}, {3.4070175724375*^9, 3.407017579890625*^9}, {3.407017610453125*^9, 3.407017612015625*^9}, { 3.407017689109375*^9, 3.407017693921875*^9}, {3.407017869375*^9, 3.4070178825625*^9}, {3.4070179219375*^9, 3.407017927609375*^9}, { 3.407017977421875*^9, 3.407018023046875*^9}, {3.407018118796875*^9, 3.407018138984375*^9}, {3.40701855425*^9, 3.4070185603125*^9}, { 3.407018670484375*^9, 3.407018677234375*^9}}], Cell[BoxData[ RowBox[{"SetDirectory", "[", "\"\\"", "]"}]], "Input"], Cell[BoxData[ RowBox[{ RowBox[{"Export", "[", RowBox[{"\"\\"", ",", RowBox[{"{", RowBox[{"Table", "[", RowBox[{ RowBox[{"a", "[", "n", "]"}], ",", RowBox[{"{", RowBox[{"n", ",", "0", ",", "2"}], "}"}]}], "]"}], "}"}]}], "]"}]}]], "Input", CellChangeTimes->{{3.40701564740625*^9, 3.4070156528125*^9}, { 3.407015731578125*^9, 3.4070157331875*^9}, {3.40701586271875*^9, 3.40701586328125*^9}, 3.407016112921875*^9, 3.40701788684375*^9, { 3.407018025828125*^9, 3.407018058*^9}, {3.40701892946875*^9, 3.407018930734375*^9}}] }, WindowSize->{795, 652}, WindowMargins->{{41, Automatic}, {Automatic, 43}}, FrontEndVersion->"6.0 for Microsoft Windows (32-bit) (June 19, 2007)", StyleDefinitions->"Default.nb" ] (* End of Notebook Content *) (* Internal cache information *) (*CellTagsOutline CellTagsIndex->{} *) (*CellTagsIndex CellTagsIndex->{} *) (*NotebookFileOutline Notebook[{ Cell[568, 21, 8449, 249, 332, "Input"], Cell[9020, 272, 9374, 260, 352, "Input"], Cell[18397, 534, 78, 1, 31, "Input"], Cell[18478, 537, 599, 15, 31, "Input"] } ] *) (* End of internal cache information *)