(* Content-type: application/vnd.wolfram.cdf.text *) (*** Wolfram CDF File ***) (* http://www.wolfram.com/cdf *) (* CreatedBy='Mathematica 9.0' *) (*************************************************************************) (* *) (* The Mathematica License under which this file was created prohibits *) (* restricting third parties in receipt of this file from republishing *) (* or redistributing it by any means, including but not limited to *) (* rights management or terms of use, without the express consent of *) (* Wolfram Research, Inc. For additional information concerning CDF *) (* licensing and redistribution see: *) (* *) (* www.wolfram.com/cdf/adopting-cdf/licensing-options.html *) (* *) (*************************************************************************) (*CacheID: 234*) (* Internal cache information: NotebookFileLineBreakTest NotebookFileLineBreakTest NotebookDataPosition[ 1063, 20] NotebookDataLength[ 49483, 1353] NotebookOptionsPosition[ 49768, 1343] NotebookOutlinePosition[ 50232, 1363] CellTagsIndexPosition[ 50189, 1360] WindowFrame->Normal*) (* Beginning of Notebook Content *) Notebook[{ Cell[BoxData[ RowBox[{"Graphics3D", "[", "\[IndentingNewLine]", RowBox[{ RowBox[{"{", "\[IndentingNewLine]", RowBox[{"Pink", ",", RowBox[{"Sphere", "[", RowBox[{ RowBox[{"{", RowBox[{ RowBox[{"-", "1"}], ",", "0", ",", RowBox[{"-", "1.5"}]}], "}"}], ",", RowBox[{"1", "/", "5"}]}], "]"}], ",", "\[IndentingNewLine]", "Pink", ",", RowBox[{"Sphere", "[", RowBox[{ RowBox[{"{", RowBox[{"1", ",", "0", ",", RowBox[{"-", "1.5"}]}], "}"}], ",", RowBox[{"1", "/", "5"}]}], "]"}], ",", "\[IndentingNewLine]", "LightYellow", ",", RowBox[{"Cylinder", "[", RowBox[{ RowBox[{"{", RowBox[{ RowBox[{"{", RowBox[{ RowBox[{"-", "0.3"}], ",", "0", ",", RowBox[{"-", "0.8"}]}], "}"}], ",", RowBox[{"{", RowBox[{ RowBox[{"-", "1"}], ",", "0", ",", RowBox[{"-", "1.5"}]}], "}"}]}], "}"}], ",", "0.1"}], "]"}], ",", "\[IndentingNewLine]", "LightYellow", ",", RowBox[{"Cylinder", "[", RowBox[{ RowBox[{"{", RowBox[{ RowBox[{"{", RowBox[{"0.3", ",", "0", ",", RowBox[{"-", "0.8"}]}], "}"}], ",", RowBox[{"{", RowBox[{"1", ",", "0", ",", RowBox[{"-", "1.5"}]}], "}"}]}], "}"}], ",", "0.1"}], "]"}], ",", "\[IndentingNewLine]", "Black", ",", RowBox[{"Cylinder", "[", RowBox[{ RowBox[{"{", RowBox[{ RowBox[{"{", RowBox[{"0", ",", "0", ",", RowBox[{"-", "1.5"}]}], "}"}], ",", RowBox[{"{", RowBox[{"0", ",", "0", ",", RowBox[{"-", "1.3"}]}], "}"}]}], "}"}], ",", "0.61"}], "]"}], ",", "\[IndentingNewLine]", "Yellow", ",", RowBox[{"Tube", "[", RowBox[{ RowBox[{"{", RowBox[{ RowBox[{"{", RowBox[{ RowBox[{"-", "0.1"}], ",", RowBox[{"-", "0.53"}], ",", RowBox[{"-", "1.4"}]}], "}"}], ",", RowBox[{"{", RowBox[{"0.1", ",", RowBox[{"-", "0.53"}], ",", RowBox[{"-", "1.4"}]}], "}"}]}], "}"}], ",", "0.11"}], "]"}], ",", "\[IndentingNewLine]", "Black", ",", RowBox[{"Tube", "[", RowBox[{ RowBox[{"{", RowBox[{ RowBox[{"{", RowBox[{ RowBox[{"-", "0.08"}], ",", RowBox[{"-", "0.57"}], ",", RowBox[{"-", "1.4"}]}], "}"}], ",", RowBox[{"{", RowBox[{"0.08", ",", RowBox[{"-", "0.57"}], ",", RowBox[{"-", "1.4"}]}], "}"}]}], "}"}], ",", "0.08"}], "]"}], ",", "\[IndentingNewLine]", "Pink", ",", RowBox[{"Sphere", "[", RowBox[{ RowBox[{"{", RowBox[{ RowBox[{"-", "0.3"}], ",", "0", ",", RowBox[{"-", "2.5"}]}], "}"}], ",", RowBox[{"1", "/", "5"}]}], "]"}], ",", "\[IndentingNewLine]", "Pink", ",", RowBox[{"Sphere", "[", RowBox[{ RowBox[{"{", RowBox[{"0.3", ",", "0", ",", RowBox[{"-", "2.5"}]}], "}"}], ",", RowBox[{"1", "/", "5"}]}], "]"}], ",", "\[IndentingNewLine]", "LightYellow", ",", RowBox[{"Cylinder", "[", RowBox[{ RowBox[{"{", RowBox[{ RowBox[{"{", RowBox[{ RowBox[{"-", "0.3"}], ",", "0", ",", RowBox[{"-", "1.4"}]}], "}"}], ",", RowBox[{"{", RowBox[{ RowBox[{"-", "0.3"}], ",", "0", ",", RowBox[{"-", "2.5"}]}], "}"}]}], "}"}], ",", "0.1"}], "]"}], ",", "\[IndentingNewLine]", "LightYellow", ",", RowBox[{"Cylinder", "[", RowBox[{ RowBox[{"{", RowBox[{ RowBox[{"{", RowBox[{"0.3", ",", "0", ",", RowBox[{"-", "1.4"}]}], "}"}], ",", RowBox[{"{", RowBox[{"0.3", ",", "0", ",", RowBox[{"-", "2.5"}]}], "}"}]}], "}"}], ",", "0.1"}], "]"}], ",", "\[IndentingNewLine]", "Blue", ",", RowBox[{"Tube", "[", RowBox[{ RowBox[{"{", RowBox[{ RowBox[{"{", RowBox[{"0", ",", "0", ",", RowBox[{"-", "1.0"}]}], "}"}], ",", RowBox[{"{", RowBox[{"0", ",", "0", ",", RowBox[{"-", "1.4"}]}], "}"}]}], "}"}], ",", "0.6"}], "]"}], ",", "\[IndentingNewLine]", "Black", ",", RowBox[{"Tube", "[", RowBox[{ RowBox[{"{", RowBox[{ RowBox[{"{", RowBox[{ RowBox[{"-", "0.3"}], ",", RowBox[{"-", "1.05"}], ",", "0"}], "}"}], ",", RowBox[{"{", RowBox[{ RowBox[{"-", "0.3"}], ",", RowBox[{"-", "0.95"}], ",", "0.6"}], "}"}]}], "}"}], ",", "0.05"}], "]"}], ",", "\[IndentingNewLine]", "Black", ",", RowBox[{"Tube", "[", RowBox[{ RowBox[{"{", RowBox[{ RowBox[{"{", RowBox[{"0.3", ",", RowBox[{"-", "1.05"}], ",", "0"}], "}"}], ",", RowBox[{"{", RowBox[{"0.3", ",", RowBox[{"-", "0.95"}], ",", "0.6"}], "}"}]}], "}"}], ",", "0.05"}], "]"}], ",", "\[IndentingNewLine]", "Blue", ",", RowBox[{"Sphere", "[", RowBox[{"{", RowBox[{"0", ",", "0", ",", "0"}], "}"}], "]"}], ",", "\[IndentingNewLine]", "LightYellow", ",", RowBox[{"Sphere", "[", RowBox[{ RowBox[{"{", RowBox[{"0", ",", RowBox[{"-", "0.19"}], ",", "0"}], "}"}], ",", "0.9"}], "]"}], ",", "\[IndentingNewLine]", "White", ",", RowBox[{"Cylinder", "[", RowBox[{ RowBox[{"{", RowBox[{ RowBox[{"{", RowBox[{"0", ",", "0", ",", "0.5"}], "}"}], ",", RowBox[{"{", RowBox[{"0", ",", "1", ",", "1.2"}], "}"}]}], "}"}], ",", "0.1"}], "]"}], ",", "\[IndentingNewLine]", "Pink", ",", RowBox[{"Sphere", "[", RowBox[{ RowBox[{"{", RowBox[{"0", ",", "1", ",", "1.2"}], "}"}], ",", RowBox[{"1", "/", "4"}]}], "]"}], ",", "\[IndentingNewLine]", "\[IndentingNewLine]", "Pink", ",", RowBox[{"Sphere", "[", RowBox[{ RowBox[{"{", RowBox[{ RowBox[{"-", "6"}], ",", "0", ",", RowBox[{"-", "1.5"}]}], "}"}], ",", RowBox[{"1", "/", "5"}]}], "]"}], ",", "\[IndentingNewLine]", "Pink", ",", RowBox[{"Sphere", "[", RowBox[{ RowBox[{"{", RowBox[{ RowBox[{"-", "4"}], ",", "0", ",", RowBox[{"-", "1.5"}]}], "}"}], ",", RowBox[{"1", "/", "5"}]}], "]"}], ",", "\[IndentingNewLine]", "LightYellow", ",", RowBox[{"Cylinder", "[", RowBox[{ RowBox[{"{", RowBox[{ RowBox[{"{", RowBox[{ RowBox[{"-", "5.3"}], ",", "0", ",", RowBox[{"-", "0.8"}]}], "}"}], ",", RowBox[{"{", RowBox[{ RowBox[{"-", "6"}], ",", "0", ",", RowBox[{"-", "1.5"}]}], "}"}]}], "}"}], ",", "0.1"}], "]"}], ",", "\[IndentingNewLine]", "LightYellow", ",", RowBox[{"Cylinder", "[", RowBox[{ RowBox[{"{", RowBox[{ RowBox[{"{", RowBox[{ RowBox[{"-", "4.7"}], ",", "0", ",", RowBox[{"-", "0.8"}]}], "}"}], ",", RowBox[{"{", RowBox[{ RowBox[{"-", "4"}], ",", "0", ",", RowBox[{"-", "1.5"}]}], "}"}]}], "}"}], ",", "0.1"}], "]"}], ",", "\[IndentingNewLine]", "Black", ",", RowBox[{"Cylinder", "[", RowBox[{ RowBox[{"{", RowBox[{ RowBox[{"{", RowBox[{ RowBox[{"-", "5"}], ",", "0", ",", RowBox[{"-", "1.5"}]}], "}"}], ",", RowBox[{"{", RowBox[{ RowBox[{"-", "5"}], ",", "0", ",", RowBox[{"-", "1.3"}]}], "}"}]}], "}"}], ",", "0.61"}], "]"}], ",", "\[IndentingNewLine]", "Yellow", ",", RowBox[{"Tube", "[", RowBox[{ RowBox[{"{", RowBox[{ RowBox[{"{", RowBox[{ RowBox[{"-", "5.1"}], ",", RowBox[{"-", "0.53"}], ",", RowBox[{"-", "1.4"}]}], "}"}], ",", RowBox[{"{", RowBox[{ RowBox[{"-", "4.9"}], ",", RowBox[{"-", "0.53"}], ",", RowBox[{"-", "1.4"}]}], "}"}]}], "}"}], ",", "0.11"}], "]"}], ",", "\[IndentingNewLine]", "Black", ",", RowBox[{"Tube", "[", RowBox[{ RowBox[{"{", RowBox[{ RowBox[{"{", RowBox[{ RowBox[{"-", "5.08"}], ",", RowBox[{"-", "0.57"}], ",", RowBox[{"-", "1.4"}]}], "}"}], ",", RowBox[{"{", RowBox[{ RowBox[{"-", "4.92"}], ",", RowBox[{"-", "0.57"}], ",", RowBox[{"-", "1.4"}]}], "}"}]}], "}"}], ",", "0.08"}], "]"}], ",", "\[IndentingNewLine]", "Pink", ",", RowBox[{"Sphere", "[", RowBox[{ RowBox[{"{", RowBox[{ RowBox[{"-", "5.3"}], ",", "0", ",", RowBox[{"-", "2.5"}]}], "}"}], ",", RowBox[{"1", "/", "5"}]}], "]"}], ",", "\[IndentingNewLine]", "Pink", ",", RowBox[{"Sphere", "[", RowBox[{ RowBox[{"{", RowBox[{ RowBox[{"-", "4.7"}], ",", "0", ",", RowBox[{"-", "2.5"}]}], "}"}], ",", RowBox[{"1", "/", "5"}]}], "]"}], ",", "\[IndentingNewLine]", "LightYellow", ",", RowBox[{"Cylinder", "[", RowBox[{ RowBox[{"{", RowBox[{ RowBox[{"{", RowBox[{ RowBox[{"-", "5.3"}], ",", "0", ",", RowBox[{"-", "1.4"}]}], "}"}], ",", RowBox[{"{", RowBox[{ RowBox[{"-", "5.3"}], ",", "0", ",", RowBox[{"-", "2.5"}]}], "}"}]}], "}"}], ",", "0.1"}], "]"}], ",", "\[IndentingNewLine]", "LightYellow", ",", RowBox[{"Cylinder", "[", RowBox[{ RowBox[{"{", RowBox[{ RowBox[{"{", RowBox[{ RowBox[{"-", "4.7"}], ",", "0", ",", RowBox[{"-", "1.4"}]}], "}"}], ",", RowBox[{"{", RowBox[{ RowBox[{"-", "4.7"}], ",", "0", ",", RowBox[{"-", "2.5"}]}], "}"}]}], "}"}], ",", "0.1"}], "]"}], ",", "\[IndentingNewLine]", "Red", ",", RowBox[{"Tube", "[", RowBox[{ RowBox[{"{", RowBox[{ RowBox[{"{", RowBox[{ RowBox[{"-", "5"}], ",", "0", ",", RowBox[{"-", "1.0"}]}], "}"}], ",", RowBox[{"{", RowBox[{ RowBox[{"-", "5"}], ",", "0", ",", RowBox[{"-", "1.4"}]}], "}"}]}], "}"}], ",", "0.6"}], "]"}], ",", "\[IndentingNewLine]", "Black", ",", RowBox[{"Tube", "[", RowBox[{ RowBox[{"{", RowBox[{ RowBox[{"{", RowBox[{ RowBox[{"-", "5.3"}], ",", RowBox[{"-", "1.05"}], ",", "0"}], "}"}], ",", RowBox[{"{", RowBox[{ RowBox[{"-", "5.3"}], ",", RowBox[{"-", "0.95"}], ",", "0.6"}], "}"}]}], "}"}], ",", "0.05"}], "]"}], ",", "\[IndentingNewLine]", "Black", ",", RowBox[{"Tube", "[", RowBox[{ RowBox[{"{", RowBox[{ RowBox[{"{", RowBox[{ RowBox[{"-", "4.7"}], ",", RowBox[{"-", "1.05"}], ",", "0"}], "}"}], ",", RowBox[{"{", RowBox[{ RowBox[{"-", "4.7"}], ",", RowBox[{"-", "0.95"}], ",", "0.6"}], "}"}]}], "}"}], ",", "0.05"}], "]"}], ",", "\[IndentingNewLine]", "Red", ",", RowBox[{"Sphere", "[", RowBox[{"{", RowBox[{ RowBox[{"-", "5"}], ",", "0", ",", "0"}], "}"}], "]"}], ",", "\[IndentingNewLine]", "LightYellow", ",", RowBox[{"Sphere", "[", RowBox[{ RowBox[{"{", RowBox[{ RowBox[{"-", "5"}], ",", RowBox[{"-", "0.19"}], ",", "0"}], "}"}], ",", "0.9"}], "]"}], ",", "\[IndentingNewLine]", "White", ",", RowBox[{"Cylinder", "[", RowBox[{ RowBox[{"{", RowBox[{ RowBox[{"{", RowBox[{ RowBox[{"-", "5"}], ",", "0", ",", "0.5"}], "}"}], ",", RowBox[{"{", RowBox[{ RowBox[{"-", "5"}], ",", "1", ",", "1.2"}], "}"}]}], "}"}], ",", "0.1"}], "]"}], ",", "\[IndentingNewLine]", "Pink", ",", RowBox[{"Sphere", "[", RowBox[{ RowBox[{"{", RowBox[{ RowBox[{"-", "5"}], ",", "1", ",", "1.2"}], "}"}], ",", RowBox[{"1", "/", "4"}]}], "]"}], ",", "\[IndentingNewLine]", "\[IndentingNewLine]", "Pink", ",", RowBox[{"Sphere", "[", RowBox[{ RowBox[{"{", RowBox[{ RowBox[{"-", "3.5"}], ",", "0.5", ",", RowBox[{"-", "1.5"}]}], "}"}], ",", RowBox[{"1", "/", "5"}]}], "]"}], ",", "\[IndentingNewLine]", "Pink", ",", RowBox[{"Sphere", "[", RowBox[{ RowBox[{"{", RowBox[{ RowBox[{"-", "1.5"}], ",", "0.5", ",", RowBox[{"-", "1.5"}]}], "}"}], ",", RowBox[{"1", "/", "5"}]}], "]"}], ",", "\[IndentingNewLine]", "LightYellow", ",", RowBox[{"Cylinder", "[", RowBox[{ RowBox[{"{", RowBox[{ RowBox[{"{", RowBox[{ RowBox[{"-", "2.8"}], ",", "0.5", ",", RowBox[{"-", "0.8"}]}], "}"}], ",", RowBox[{"{", RowBox[{ RowBox[{"-", "3.5"}], ",", "0.5", ",", RowBox[{"-", "1.5"}]}], "}"}]}], "}"}], ",", "0.1"}], "]"}], ",", "\[IndentingNewLine]", "LightYellow", ",", RowBox[{"Cylinder", "[", RowBox[{ RowBox[{"{", RowBox[{ RowBox[{"{", RowBox[{ RowBox[{"-", "2.2"}], ",", "0.5", ",", RowBox[{"-", "0.8"}]}], "}"}], ",", RowBox[{"{", RowBox[{ RowBox[{"-", "1.5"}], ",", "0.5", ",", RowBox[{"-", "1.5"}]}], "}"}]}], "}"}], ",", "0.1"}], "]"}], ",", "\[IndentingNewLine]", "Black", ",", RowBox[{"Cylinder", "[", RowBox[{ RowBox[{"{", RowBox[{ RowBox[{"{", RowBox[{ RowBox[{"-", "2.5"}], ",", "0.5", ",", RowBox[{"-", "1.5"}]}], "}"}], ",", RowBox[{"{", RowBox[{ RowBox[{"-", "2.5"}], ",", "0.5", ",", RowBox[{"-", "1.3"}]}], "}"}]}], "}"}], ",", "0.61"}], "]"}], ",", "\[IndentingNewLine]", "Yellow", ",", RowBox[{"Tube", "[", RowBox[{ RowBox[{"{", RowBox[{ RowBox[{"{", RowBox[{ RowBox[{"-", "2.6"}], ",", RowBox[{"-", "0.03"}], ",", RowBox[{"-", "1.4"}]}], "}"}], ",", RowBox[{"{", RowBox[{ RowBox[{"-", "2.4"}], ",", RowBox[{"-", "0.03"}], ",", RowBox[{"-", "1.4"}]}], "}"}]}], "}"}], ",", "0.11"}], "]"}], ",", "\[IndentingNewLine]", "Black", ",", RowBox[{"Tube", "[", RowBox[{ RowBox[{"{", RowBox[{ RowBox[{"{", RowBox[{ RowBox[{"-", "2.58"}], ",", RowBox[{"-", "0.07"}], ",", RowBox[{"-", "1.4"}]}], "}"}], ",", RowBox[{"{", RowBox[{ RowBox[{"-", "2.42"}], ",", RowBox[{"-", "0.07"}], ",", RowBox[{"-", "1.4"}]}], "}"}]}], "}"}], ",", "0.08"}], "]"}], ",", "\[IndentingNewLine]", "Pink", ",", RowBox[{"Sphere", "[", RowBox[{ RowBox[{"{", RowBox[{ RowBox[{"-", "2.8"}], ",", "0.5", ",", RowBox[{"-", "2.5"}]}], "}"}], ",", RowBox[{"1", "/", "5"}]}], "]"}], ",", "\[IndentingNewLine]", "Pink", ",", RowBox[{"Sphere", "[", RowBox[{ RowBox[{"{", RowBox[{ RowBox[{"-", "2.2"}], ",", "0.5", ",", RowBox[{"-", "2.5"}]}], "}"}], ",", RowBox[{"1", "/", "5"}]}], "]"}], ",", "\[IndentingNewLine]", "LightYellow", ",", RowBox[{"Cylinder", "[", RowBox[{ RowBox[{"{", RowBox[{ RowBox[{"{", RowBox[{ RowBox[{"-", "2.8"}], ",", "0.5", ",", RowBox[{"-", "1.4"}]}], "}"}], ",", RowBox[{"{", RowBox[{ RowBox[{"-", "2.8"}], ",", "0.5", ",", RowBox[{"-", "2.5"}]}], "}"}]}], "}"}], ",", "0.1"}], "]"}], ",", "\[IndentingNewLine]", "LightYellow", ",", RowBox[{"Cylinder", "[", RowBox[{ RowBox[{"{", RowBox[{ RowBox[{"{", RowBox[{ RowBox[{"-", "2.2"}], ",", "0.5", ",", RowBox[{"-", "1.4"}]}], "}"}], ",", RowBox[{"{", RowBox[{ RowBox[{"-", "2.2"}], ",", "0.5", ",", RowBox[{"-", "2.5"}]}], "}"}]}], "}"}], ",", "0.1"}], "]"}], ",", "\[IndentingNewLine]", "Green", ",", RowBox[{"Tube", "[", RowBox[{ RowBox[{"{", RowBox[{ RowBox[{"{", RowBox[{ RowBox[{"-", "2.5"}], ",", "0.5", ",", RowBox[{"-", "1.0"}]}], "}"}], ",", RowBox[{"{", RowBox[{ RowBox[{"-", "2.5"}], ",", "0.5", ",", RowBox[{"-", "1.4"}]}], "}"}]}], "}"}], ",", "0.6"}], "]"}], ",", "\[IndentingNewLine]", "Black", ",", RowBox[{"Tube", "[", RowBox[{ RowBox[{"{", RowBox[{ RowBox[{"{", RowBox[{ RowBox[{"-", "2.8"}], ",", RowBox[{"-", "0.55"}], ",", "0"}], "}"}], ",", RowBox[{"{", RowBox[{ RowBox[{"-", "2.8"}], ",", RowBox[{"-", "0.45"}], ",", "0.6"}], "}"}]}], "}"}], ",", "0.05"}], "]"}], ",", "\[IndentingNewLine]", "Black", ",", RowBox[{"Tube", "[", RowBox[{ RowBox[{"{", RowBox[{ RowBox[{"{", RowBox[{ RowBox[{"-", "2.2"}], ",", RowBox[{"-", "0.55"}], ",", "0"}], "}"}], ",", RowBox[{"{", RowBox[{ RowBox[{"-", "2.2"}], ",", RowBox[{"-", "0.45"}], ",", "0.6"}], "}"}]}], "}"}], ",", "0.05"}], "]"}], ",", "\[IndentingNewLine]", "Green", ",", RowBox[{"Sphere", "[", RowBox[{"{", RowBox[{ RowBox[{"-", "2.5"}], ",", "0.5", ",", "0"}], "}"}], "]"}], ",", "\[IndentingNewLine]", "LightYellow", ",", RowBox[{"Sphere", "[", RowBox[{ RowBox[{"{", RowBox[{ RowBox[{"-", "2.5"}], ",", "0.31", ",", "0"}], "}"}], ",", "0.9"}], "]"}], ",", "\[IndentingNewLine]", "White", ",", RowBox[{"Cylinder", "[", RowBox[{ RowBox[{"{", RowBox[{ RowBox[{"{", RowBox[{ RowBox[{"-", "2.5"}], ",", "0.5", ",", "0.5"}], "}"}], ",", RowBox[{"{", RowBox[{ RowBox[{"-", "2.5"}], ",", "1.5", ",", "1.2"}], "}"}]}], "}"}], ",", "0.1"}], "]"}], ",", "\[IndentingNewLine]", "Pink", ",", RowBox[{"Sphere", "[", RowBox[{ RowBox[{"{", RowBox[{ RowBox[{"-", "2.5"}], ",", "1.5", ",", "1.2"}], "}"}], ",", RowBox[{"1", "/", "4"}]}], "]"}], ",", "\[IndentingNewLine]", "\[IndentingNewLine]", "Pink", ",", RowBox[{"Sphere", "[", RowBox[{ RowBox[{"{", RowBox[{"3.5", ",", "0.5", ",", RowBox[{"-", "1.5"}]}], "}"}], ",", RowBox[{"1", "/", "5"}]}], "]"}], ",", "\[IndentingNewLine]", "Pink", ",", RowBox[{"Sphere", "[", RowBox[{ RowBox[{"{", RowBox[{"1.5", ",", "0.5", ",", RowBox[{"-", "1.5"}]}], "}"}], ",", RowBox[{"1", "/", "5"}]}], "]"}], ",", "\[IndentingNewLine]", "LightYellow", ",", RowBox[{"Cylinder", "[", RowBox[{ RowBox[{"{", RowBox[{ RowBox[{"{", RowBox[{"2.8", ",", "0.5", ",", RowBox[{"-", "0.8"}]}], "}"}], ",", RowBox[{"{", RowBox[{"3.5", ",", "0.5", ",", RowBox[{"-", "1.5"}]}], "}"}]}], "}"}], ",", "0.1"}], "]"}], ",", "\[IndentingNewLine]", "LightYellow", ",", RowBox[{"Cylinder", "[", RowBox[{ RowBox[{"{", RowBox[{ RowBox[{"{", RowBox[{"2.2", ",", "0.5", ",", RowBox[{"-", "0.8"}]}], "}"}], ",", RowBox[{"{", RowBox[{"1.5", ",", "0.5", ",", RowBox[{"-", "1.5"}]}], "}"}]}], "}"}], ",", "0.1"}], "]"}], ",", "\[IndentingNewLine]", "Black", ",", RowBox[{"Cylinder", "[", RowBox[{ RowBox[{"{", RowBox[{ RowBox[{"{", RowBox[{"2.5", ",", "0.5", ",", RowBox[{"-", "1.5"}]}], "}"}], ",", RowBox[{"{", RowBox[{"2.5", ",", "0.5", ",", RowBox[{"-", "1.3"}]}], "}"}]}], "}"}], ",", "0.61"}], "]"}], ",", "\[IndentingNewLine]", "Yellow", ",", RowBox[{"Tube", "[", RowBox[{ RowBox[{"{", RowBox[{ RowBox[{"{", RowBox[{"2.6", ",", RowBox[{"-", "0.03"}], ",", RowBox[{"-", "1.4"}]}], "}"}], ",", RowBox[{"{", RowBox[{"2.4", ",", RowBox[{"-", "0.03"}], ",", RowBox[{"-", "1.4"}]}], "}"}]}], "}"}], ",", "0.11"}], "]"}], ",", "\[IndentingNewLine]", "Black", ",", RowBox[{"Tube", "[", RowBox[{ RowBox[{"{", RowBox[{ RowBox[{"{", RowBox[{"2.58", ",", RowBox[{"-", "0.07"}], ",", RowBox[{"-", "1.4"}]}], "}"}], ",", RowBox[{"{", RowBox[{"2.42", ",", RowBox[{"-", "0.07"}], ",", RowBox[{"-", "1.4"}]}], "}"}]}], "}"}], ",", "0.08"}], "]"}], ",", "\[IndentingNewLine]", "Pink", ",", RowBox[{"Sphere", "[", RowBox[{ RowBox[{"{", RowBox[{"2.8", ",", "0.5", ",", RowBox[{"-", "2.5"}]}], "}"}], ",", RowBox[{"1", "/", "5"}]}], "]"}], ",", "\[IndentingNewLine]", "Pink", ",", RowBox[{"Sphere", "[", RowBox[{ RowBox[{"{", RowBox[{"2.2", ",", "0.5", ",", RowBox[{"-", "2.5"}]}], "}"}], ",", RowBox[{"1", "/", "5"}]}], "]"}], ",", "\[IndentingNewLine]", "LightYellow", ",", RowBox[{"Cylinder", "[", RowBox[{ RowBox[{"{", RowBox[{ RowBox[{"{", RowBox[{"2.8", ",", "0.5", ",", RowBox[{"-", "1.4"}]}], "}"}], ",", RowBox[{"{", RowBox[{"2.8", ",", "0.5", ",", RowBox[{"-", "2.5"}]}], "}"}]}], "}"}], ",", "0.1"}], "]"}], ",", "\[IndentingNewLine]", "LightYellow", ",", RowBox[{"Cylinder", "[", RowBox[{ RowBox[{"{", RowBox[{ RowBox[{"{", RowBox[{"2.2", ",", "0.5", ",", RowBox[{"-", "1.4"}]}], "}"}], ",", RowBox[{"{", RowBox[{"2.2", ",", "0.5", ",", RowBox[{"-", "2.5"}]}], "}"}]}], "}"}], ",", "0.1"}], "]"}], ",", "\[IndentingNewLine]", "Yellow", ",", RowBox[{"Tube", "[", RowBox[{ RowBox[{"{", RowBox[{ RowBox[{"{", RowBox[{"2.5", ",", "0.5", ",", RowBox[{"-", "1.0"}]}], "}"}], ",", RowBox[{"{", RowBox[{"2.5", ",", "0.5", ",", RowBox[{"-", "1.4"}]}], "}"}]}], "}"}], ",", "0.6"}], "]"}], ",", "\[IndentingNewLine]", "Black", ",", RowBox[{"Tube", "[", RowBox[{ RowBox[{"{", RowBox[{ RowBox[{"{", RowBox[{"2.8", ",", RowBox[{"-", "0.55"}], ",", "0"}], "}"}], ",", RowBox[{"{", RowBox[{"2.8", ",", RowBox[{"-", "0.45"}], ",", "0.6"}], "}"}]}], "}"}], ",", "0.05"}], "]"}], ",", "\[IndentingNewLine]", "Black", ",", RowBox[{"Tube", "[", RowBox[{ RowBox[{"{", RowBox[{ RowBox[{"{", RowBox[{"2.2", ",", RowBox[{"-", "0.55"}], ",", "0"}], "}"}], ",", RowBox[{"{", RowBox[{"2.2", ",", RowBox[{"-", "0.45"}], ",", "0.6"}], "}"}]}], "}"}], ",", "0.05"}], "]"}], ",", "\[IndentingNewLine]", "Yellow", ",", RowBox[{"Sphere", "[", RowBox[{"{", RowBox[{"2.5", ",", "0.5", ",", "0"}], "}"}], "]"}], ",", "\[IndentingNewLine]", "LightYellow", ",", RowBox[{"Sphere", "[", RowBox[{ RowBox[{"{", RowBox[{"2.5", ",", "0.31", ",", "0"}], "}"}], ",", "0.9"}], "]"}], ",", "\[IndentingNewLine]", "White", ",", RowBox[{"Cylinder", "[", RowBox[{ RowBox[{"{", RowBox[{ RowBox[{"{", RowBox[{"2.5", ",", "0.5", ",", "0.5"}], "}"}], ",", RowBox[{"{", RowBox[{"2.5", ",", "1.5", ",", "1.2"}], "}"}]}], "}"}], ",", "0.1"}], "]"}], ",", "\[IndentingNewLine]", "Pink", ",", RowBox[{"Sphere", "[", RowBox[{ RowBox[{"{", RowBox[{"2.5", ",", "1.5", ",", "1.2"}], "}"}], ",", RowBox[{"1", "/", "4"}]}], "]"}], ",", "\[IndentingNewLine]", "\[IndentingNewLine]", "Pink", ",", RowBox[{"Sphere", "[", RowBox[{ RowBox[{"{", RowBox[{"6", ",", "0", ",", RowBox[{"-", "1.5"}]}], "}"}], ",", RowBox[{"1", "/", "5"}]}], "]"}], ",", "\[IndentingNewLine]", "Pink", ",", RowBox[{"Sphere", "[", RowBox[{ RowBox[{"{", RowBox[{"4", ",", "0", ",", RowBox[{"-", "1.5"}]}], "}"}], ",", RowBox[{"1", "/", "5"}]}], "]"}], ",", "\[IndentingNewLine]", "LightYellow", ",", RowBox[{"Cylinder", "[", RowBox[{ RowBox[{"{", RowBox[{ RowBox[{"{", RowBox[{"5.3", ",", "0", ",", RowBox[{"-", "0.8"}]}], "}"}], ",", RowBox[{"{", RowBox[{"6", ",", "0", ",", RowBox[{"-", "1.5"}]}], "}"}]}], "}"}], ",", "0.1"}], "]"}], ",", "\[IndentingNewLine]", "LightYellow", ",", RowBox[{"Cylinder", "[", RowBox[{ RowBox[{"{", RowBox[{ RowBox[{"{", RowBox[{"4.7", ",", "0", ",", RowBox[{"-", "0.8"}]}], "}"}], ",", RowBox[{"{", RowBox[{"4", ",", "0", ",", RowBox[{"-", "1.5"}]}], "}"}]}], "}"}], ",", "0.1"}], "]"}], ",", "\[IndentingNewLine]", "Black", ",", RowBox[{"Cylinder", "[", RowBox[{ RowBox[{"{", RowBox[{ RowBox[{"{", RowBox[{"5", ",", "0", ",", RowBox[{"-", "1.5"}]}], "}"}], ",", RowBox[{"{", RowBox[{"5", ",", "0", ",", RowBox[{"-", "1.3"}]}], "}"}]}], "}"}], ",", "0.61"}], "]"}], ",", "\[IndentingNewLine]", "Yellow", ",", RowBox[{"Tube", "[", RowBox[{ RowBox[{"{", RowBox[{ RowBox[{"{", RowBox[{"5.1", ",", RowBox[{"-", "0.53"}], ",", RowBox[{"-", "1.4"}]}], "}"}], ",", RowBox[{"{", RowBox[{"4.9", ",", RowBox[{"-", "0.53"}], ",", RowBox[{"-", "1.4"}]}], "}"}]}], "}"}], ",", "0.11"}], "]"}], ",", "\[IndentingNewLine]", "Black", ",", RowBox[{"Tube", "[", RowBox[{ RowBox[{"{", RowBox[{ RowBox[{"{", RowBox[{"5.08", ",", RowBox[{"-", "0.57"}], ",", RowBox[{"-", "1.4"}]}], "}"}], ",", RowBox[{"{", RowBox[{"4.92", ",", RowBox[{"-", "0.57"}], ",", RowBox[{"-", "1.4"}]}], "}"}]}], "}"}], ",", "0.08"}], "]"}], ",", "\[IndentingNewLine]", "Pink", ",", RowBox[{"Sphere", "[", RowBox[{ RowBox[{"{", RowBox[{"5.3", ",", "0", ",", RowBox[{"-", "2.5"}]}], "}"}], ",", RowBox[{"1", "/", "5"}]}], "]"}], ",", "\[IndentingNewLine]", "Pink", ",", RowBox[{"Sphere", "[", RowBox[{ RowBox[{"{", RowBox[{"4.7", ",", "0", ",", RowBox[{"-", "2.5"}]}], "}"}], ",", RowBox[{"1", "/", "5"}]}], "]"}], ",", "\[IndentingNewLine]", "LightYellow", ",", RowBox[{"Cylinder", "[", RowBox[{ RowBox[{"{", RowBox[{ RowBox[{"{", RowBox[{"5.3", ",", "0", ",", RowBox[{"-", "1.4"}]}], "}"}], ",", RowBox[{"{", RowBox[{"5.3", ",", "0", ",", RowBox[{"-", "2.5"}]}], "}"}]}], "}"}], ",", "0.1"}], "]"}], ",", "\[IndentingNewLine]", "LightYellow", ",", RowBox[{"Cylinder", "[", RowBox[{ RowBox[{"{", RowBox[{ RowBox[{"{", RowBox[{"4.7", ",", "0", ",", RowBox[{"-", "1.4"}]}], "}"}], ",", RowBox[{"{", RowBox[{"4.7", ",", "0", ",", RowBox[{"-", "2.5"}]}], "}"}]}], "}"}], ",", "0.1"}], "]"}], ",", "\[IndentingNewLine]", "Black", ",", RowBox[{"Tube", "[", RowBox[{ RowBox[{"{", RowBox[{ RowBox[{"{", RowBox[{"5", ",", "0", ",", RowBox[{"-", "1.0"}]}], "}"}], ",", RowBox[{"{", RowBox[{"5", ",", "0", ",", RowBox[{"-", "1.4"}]}], "}"}]}], "}"}], ",", "0.6"}], "]"}], ",", "\[IndentingNewLine]", "Black", ",", RowBox[{"Tube", "[", RowBox[{ RowBox[{"{", RowBox[{ RowBox[{"{", RowBox[{"5.3", ",", RowBox[{"-", "1.05"}], ",", "0"}], "}"}], ",", RowBox[{"{", RowBox[{"5.3", ",", RowBox[{"-", "0.95"}], ",", "0.6"}], "}"}]}], "}"}], ",", "0.05"}], "]"}], ",", "\[IndentingNewLine]", "Black", ",", RowBox[{"Tube", "[", RowBox[{ RowBox[{"{", RowBox[{ RowBox[{"{", RowBox[{"4.7", ",", RowBox[{"-", "1.05"}], ",", "0"}], "}"}], ",", RowBox[{"{", RowBox[{"4.7", ",", RowBox[{"-", "0.95"}], ",", "0.6"}], "}"}]}], "}"}], ",", "0.05"}], "]"}], ",", "\[IndentingNewLine]", "Black", ",", RowBox[{"Sphere", "[", RowBox[{"{", RowBox[{"5", ",", "0", ",", "0"}], "}"}], "]"}], ",", "\[IndentingNewLine]", "LightYellow", ",", RowBox[{"Sphere", "[", RowBox[{ RowBox[{"{", RowBox[{"5", ",", RowBox[{"-", "0.19"}], ",", "0"}], "}"}], ",", "0.9"}], "]"}], ",", "\[IndentingNewLine]", "White", ",", RowBox[{"Cylinder", "[", RowBox[{ RowBox[{"{", RowBox[{ RowBox[{"{", RowBox[{"5", ",", "0", ",", "0.5"}], "}"}], ",", RowBox[{"{", RowBox[{"5", ",", "1", ",", "1.2"}], "}"}]}], "}"}], ",", "0.1"}], "]"}], ",", "\[IndentingNewLine]", "Pink", ",", RowBox[{"Sphere", "[", RowBox[{ RowBox[{"{", RowBox[{"5", ",", "1", ",", "1.2"}], "}"}], ",", RowBox[{"1", "/", "4"}]}], "]"}], ",", "\[IndentingNewLine]", "\[IndentingNewLine]", RowBox[{"RGBColor", "[", RowBox[{"0.1", ",", "0.1", ",", "0.1"}], "]"}], ",", RowBox[{"Sphere", "[", RowBox[{ RowBox[{"{", RowBox[{"1.5", ",", RowBox[{"-", "1.5"}], ",", RowBox[{"-", "2.2"}]}], "}"}], ",", "0.5"}], "]"}], ",", "\[IndentingNewLine]", "White", ",", RowBox[{"Tube", "[", RowBox[{ RowBox[{"{", RowBox[{ RowBox[{"{", RowBox[{"1.5", ",", RowBox[{"-", "1.5"}], ",", RowBox[{"-", "2.0"}]}], "}"}], ",", RowBox[{"{", RowBox[{"1.9", ",", RowBox[{"-", "1"}], ",", RowBox[{"-", "1.8"}]}], "}"}]}], "}"}], ",", "0.11"}], "]"}], ",", "\[IndentingNewLine]", "Red", ",", RowBox[{"Cone", "[", RowBox[{ RowBox[{"{", RowBox[{ RowBox[{"{", RowBox[{"1.9", ",", RowBox[{"-", "0.97"}], ",", RowBox[{"-", "1.8"}]}], "}"}], ",", RowBox[{"{", RowBox[{"2.3", ",", RowBox[{"-", "0.47"}], ",", RowBox[{"-", "1.6"}]}], "}"}]}], "}"}], ",", "0.04"}], "]"}], ",", "\[IndentingNewLine]", "Red", ",", RowBox[{"Cone", "[", RowBox[{ RowBox[{"{", RowBox[{ RowBox[{"{", RowBox[{"1.9", ",", RowBox[{"-", "0.97"}], ",", RowBox[{"-", "1.8"}]}], "}"}], ",", RowBox[{"{", RowBox[{"2.2", ",", RowBox[{"-", "0.53"}], ",", RowBox[{"-", "1.5"}]}], "}"}]}], "}"}], ",", "0.04"}], "]"}], ",", "\[IndentingNewLine]", "Red", ",", RowBox[{"Cone", "[", RowBox[{ RowBox[{"{", RowBox[{ RowBox[{"{", RowBox[{"1.9", ",", RowBox[{"-", "0.97"}], ",", RowBox[{"-", "1.8"}]}], "}"}], ",", RowBox[{"{", RowBox[{"2.5", ",", RowBox[{"-", "0.73"}], ",", RowBox[{"-", "1.4"}]}], "}"}]}], "}"}], ",", "0.04"}], "]"}], ",", "\[IndentingNewLine]", "Red", ",", RowBox[{"Cone", "[", RowBox[{ RowBox[{"{", RowBox[{ RowBox[{"{", RowBox[{"1.9", ",", RowBox[{"-", "0.97"}], ",", RowBox[{"-", "1.8"}]}], "}"}], ",", RowBox[{"{", RowBox[{"2.1", ",", RowBox[{"-", "0.60"}], ",", RowBox[{"-", "1.3"}]}], "}"}]}], "}"}], ",", "0.04"}], "]"}], ",", "\[IndentingNewLine]", "Red", ",", RowBox[{"Cone", "[", RowBox[{ RowBox[{"{", RowBox[{ RowBox[{"{", RowBox[{"1.9", ",", RowBox[{"-", "0.97"}], ",", RowBox[{"-", "1.8"}]}], "}"}], ",", RowBox[{"{", RowBox[{"2.6", ",", RowBox[{"-", "0.65"}], ",", RowBox[{"-", "1.4"}]}], "}"}]}], "}"}], ",", "0.04"}], "]"}], ",", "\[IndentingNewLine]", "\[IndentingNewLine]", RowBox[{"RGBColor", "[", RowBox[{"0.1", ",", "0.1", ",", "0.1"}], "]"}], ",", RowBox[{"Sphere", "[", RowBox[{ RowBox[{"{", RowBox[{ RowBox[{"-", "1.5"}], ",", RowBox[{"-", "1.5"}], ",", RowBox[{"-", "2.2"}]}], "}"}], ",", "0.5"}], "]"}], ",", "\[IndentingNewLine]", "White", ",", RowBox[{"Tube", "[", RowBox[{ RowBox[{"{", RowBox[{ RowBox[{"{", RowBox[{ RowBox[{"-", "1.5"}], ",", RowBox[{"-", "1.5"}], ",", RowBox[{"-", "2.0"}]}], "}"}], ",", RowBox[{"{", RowBox[{ RowBox[{"-", "1.9"}], ",", RowBox[{"-", "1"}], ",", RowBox[{"-", "1.8"}]}], "}"}]}], "}"}], ",", "0.11"}], "]"}], ",", "\[IndentingNewLine]", "Red", ",", RowBox[{"Cone", "[", RowBox[{ RowBox[{"{", RowBox[{ RowBox[{"{", RowBox[{ RowBox[{"-", "1.9"}], ",", RowBox[{"-", "0.97"}], ",", RowBox[{"-", "1.8"}]}], "}"}], ",", RowBox[{"{", RowBox[{ RowBox[{"-", "2.3"}], ",", RowBox[{"-", "0.47"}], ",", RowBox[{"-", "1.6"}]}], "}"}]}], "}"}], ",", "0.04"}], "]"}], ",", "\[IndentingNewLine]", "Red", ",", RowBox[{"Cone", "[", RowBox[{ RowBox[{"{", RowBox[{ RowBox[{"{", RowBox[{ RowBox[{"-", "1.9"}], ",", RowBox[{"-", "0.97"}], ",", RowBox[{"-", "1.8"}]}], "}"}], ",", RowBox[{"{", RowBox[{ RowBox[{"-", "2.2"}], ",", RowBox[{"-", "0.53"}], ",", RowBox[{"-", "1.5"}]}], "}"}]}], "}"}], ",", "0.04"}], "]"}], ",", "\[IndentingNewLine]", "Red", ",", RowBox[{"Cone", "[", RowBox[{ RowBox[{"{", RowBox[{ RowBox[{"{", RowBox[{ RowBox[{"-", "1.9"}], ",", RowBox[{"-", "0.97"}], ",", RowBox[{"-", "1.8"}]}], "}"}], ",", RowBox[{"{", RowBox[{ RowBox[{"-", "2.5"}], ",", RowBox[{"-", "0.73"}], ",", RowBox[{"-", "1.4"}]}], "}"}]}], "}"}], ",", "0.04"}], "]"}], ",", "\[IndentingNewLine]", "Red", ",", RowBox[{"Cone", "[", RowBox[{ RowBox[{"{", RowBox[{ RowBox[{"{", RowBox[{ RowBox[{"-", "1.9"}], ",", RowBox[{"-", "0.97"}], ",", RowBox[{"-", "1.8"}]}], "}"}], ",", RowBox[{"{", RowBox[{ RowBox[{"-", "2.1"}], ",", RowBox[{"-", "0.60"}], ",", RowBox[{"-", "1.3"}]}], "}"}]}], "}"}], ",", "0.04"}], "]"}], ",", "\[IndentingNewLine]", "Red", ",", RowBox[{"Cone", "[", RowBox[{ RowBox[{"{", RowBox[{ RowBox[{"{", RowBox[{ RowBox[{"-", "1.9"}], ",", RowBox[{"-", "0.97"}], ",", RowBox[{"-", "1.8"}]}], "}"}], ",", RowBox[{"{", RowBox[{ RowBox[{"-", "2.6"}], ",", RowBox[{"-", "0.65"}], ",", RowBox[{"-", "1.4"}]}], "}"}]}], "}"}], ",", "0.04"}], "]"}], ",", "\[IndentingNewLine]", "\[IndentingNewLine]", RowBox[{"RGBColor", "[", RowBox[{"0.1", ",", "0.5", ",", "0.1"}], "]"}], ",", RowBox[{"Cylinder", "[", RowBox[{ RowBox[{"{", RowBox[{ RowBox[{"{", RowBox[{"0", ",", "0", ",", RowBox[{"-", "2.7"}]}], "}"}], ",", RowBox[{"{", RowBox[{"0", ",", "0", ",", RowBox[{"-", "3.2"}]}], "}"}]}], "}"}], ",", "6"}], "]"}], ","}], "\[IndentingNewLine]", "\[IndentingNewLine]", "}"}], ",", " ", RowBox[{"Boxed", "\[Rule]", "False"}]}], "\[IndentingNewLine]", "]"}]], "Input", CellChangeTimes->{ 3.622503190529391*^9, {3.62250323406927*^9, 3.6225033200102205`*^9}, { 3.6225033772478933`*^9, 3.622503377591096*^9}}], Cell[BoxData[{ Graphics3DBox[{ {RGBColor[1, 0.5, 0.5], SphereBox[{-1, 0, -1.5}, NCache[Rational[1, 5], 0.2]]}, {RGBColor[1, 0.5, 0.5], SphereBox[{1, 0, -1.5}, NCache[Rational[1, 5], 0.2]]}, {RGBColor[1, 1, 0.85], CylinderBox[{{-0.3, 0, -0.8}, {-1, 0, -1.5}}, 0.1]}, {RGBColor[1, 1, 0.85], CylinderBox[{{0.3, 0, -0.8}, {1, 0, -1.5}}, 0.1]}, {GrayLevel[0], CylinderBox[{{0, 0, -1.5}, {0, 0, -1.3}}, 0.61]}, {RGBColor[1, 1, 0], TubeBox[{{-0.1, -0.53, -1.4}, {0.1, -0.53, -1.4}}, 0.11]}, {GrayLevel[0], TubeBox[{{-0.08, -0.57, -1.4}, {0.08, -0.57, -1.4}}, 0.08]}, {RGBColor[1, 0.5, 0.5], SphereBox[{-0.3, 0, -2.5}, NCache[Rational[1, 5], 0.2]]}, {RGBColor[1, 0.5, 0.5], SphereBox[{0.3, 0, -2.5}, NCache[Rational[1, 5], 0.2]]}, {RGBColor[1, 1, 0.85], CylinderBox[{{-0.3, 0, -1.4}, {-0.3, 0, -2.5}}, 0.1]}, {RGBColor[1, 1, 0.85], CylinderBox[{{0.3, 0, -1.4}, {0.3, 0, -2.5}}, 0.1]}, {RGBColor[0, 0, 1], TubeBox[{{0, 0, -1.}, {0, 0, -1.4}}, 0.6]}, {GrayLevel[0], TubeBox[{{-0.3, -1.05, 0}, {-0.3, -0.95, 0.6}}, 0.05]}, {GrayLevel[0], TubeBox[{{0.3, -1.05, 0}, {0.3, -0.95, 0.6}}, 0.05]}, {RGBColor[0, 0, 1], SphereBox[{0, 0, 0}]}, {RGBColor[1, 1, 0.85], SphereBox[{0, -0.19, 0}, 0.9]}, {GrayLevel[1], CylinderBox[{{0, 0, 0.5}, {0, 1, 1.2}}, 0.1]}, {RGBColor[1, 0.5, 0.5], SphereBox[{0, 1, 1.2}, NCache[Rational[1, 4], 0.25]]}, {RGBColor[1, 0.5, 0.5], SphereBox[{-6, 0, -1.5}, NCache[Rational[1, 5], 0.2]]}, {RGBColor[1, 0.5, 0.5], SphereBox[{-4, 0, -1.5}, NCache[Rational[1, 5], 0.2]]}, {RGBColor[1, 1, 0.85], CylinderBox[{{-5.3, 0, -0.8}, {-6, 0, -1.5}}, 0.1]}, {RGBColor[1, 1, 0.85], CylinderBox[{{-4.7, 0, -0.8}, {-4, 0, -1.5}}, 0.1]}, {GrayLevel[0], CylinderBox[{{-5, 0, -1.5}, {-5, 0, -1.3}}, 0.61]}, {RGBColor[1, 1, 0], TubeBox[{{-5.1, -0.53, -1.4}, {-4.9, -0.53, -1.4}}, 0.11]}, {GrayLevel[0], TubeBox[{{-5.08, -0.57, -1.4}, {-4.92, -0.57, -1.4}}, 0.08]}, {RGBColor[1, 0.5, 0.5], SphereBox[{-5.3, 0, -2.5}, NCache[Rational[1, 5], 0.2]]}, {RGBColor[1, 0.5, 0.5], SphereBox[{-4.7, 0, -2.5}, NCache[Rational[1, 5], 0.2]]}, {RGBColor[1, 1, 0.85], CylinderBox[{{-5.3, 0, -1.4}, {-5.3, 0, -2.5}}, 0.1]}, {RGBColor[1, 1, 0.85], CylinderBox[{{-4.7, 0, -1.4}, {-4.7, 0, -2.5}}, 0.1]}, {RGBColor[1, 0, 0], TubeBox[{{-5, 0, -1.}, {-5, 0, -1.4}}, 0.6]}, {GrayLevel[0], TubeBox[{{-5.3, -1.05, 0}, {-5.3, -0.95, 0.6}}, 0.05]}, {GrayLevel[0], TubeBox[{{-4.7, -1.05, 0}, {-4.7, -0.95, 0.6}}, 0.05]}, {RGBColor[1, 0, 0], SphereBox[{-5, 0, 0}]}, {RGBColor[1, 1, 0.85], SphereBox[{-5, -0.19, 0}, 0.9]}, {GrayLevel[1], CylinderBox[{{-5, 0, 0.5}, {-5, 1, 1.2}}, 0.1]}, {RGBColor[1, 0.5, 0.5], SphereBox[{-5, 1, 1.2}, NCache[Rational[1, 4], 0.25]]}, {RGBColor[1, 0.5, 0.5], SphereBox[{-3.5, 0.5, -1.5}, NCache[Rational[1, 5], 0.2]]}, {RGBColor[1, 0.5, 0.5], SphereBox[{-1.5, 0.5, -1.5}, NCache[Rational[1, 5], 0.2]]}, {RGBColor[1, 1, 0.85], CylinderBox[{{-2.8, 0.5, -0.8}, {-3.5, 0.5, -1.5}}, 0.1]}, {RGBColor[1, 1, 0.85], CylinderBox[{{-2.2, 0.5, -0.8}, {-1.5, 0.5, -1.5}}, 0.1]}, {GrayLevel[0], CylinderBox[{{-2.5, 0.5, -1.5}, {-2.5, 0.5, -1.3}}, 0.61]}, {RGBColor[1, 1, 0], TubeBox[{{-2.6, -0.03, -1.4}, {-2.4, -0.03, -1.4}}, 0.11]}, {GrayLevel[0], TubeBox[{{-2.58, -0.07, -1.4}, {-2.42, -0.07, -1.4}}, 0.08]}, {RGBColor[1, 0.5, 0.5], SphereBox[{-2.8, 0.5, -2.5}, NCache[Rational[1, 5], 0.2]]}, {RGBColor[1, 0.5, 0.5], SphereBox[{-2.2, 0.5, -2.5}, NCache[Rational[1, 5], 0.2]]}, {RGBColor[1, 1, 0.85], CylinderBox[{{-2.8, 0.5, -1.4}, {-2.8, 0.5, -2.5}}, 0.1]}, {RGBColor[1, 1, 0.85], CylinderBox[{{-2.2, 0.5, -1.4}, {-2.2, 0.5, -2.5}}, 0.1]}, {RGBColor[0, 1, 0], TubeBox[{{-2.5, 0.5, -1.}, {-2.5, 0.5, -1.4}}, 0.6]}, {GrayLevel[0], TubeBox[{{-2.8, -0.55, 0}, {-2.8, -0.45, 0.6}}, 0.05]}, {GrayLevel[0], TubeBox[{{-2.2, -0.55, 0}, {-2.2, -0.45, 0.6}}, 0.05]}, {RGBColor[0, 1, 0], SphereBox[{-2.5, 0.5, 0}]}, {RGBColor[1, 1, 0.85], SphereBox[{-2.5, 0.31, 0}, 0.9]}, {GrayLevel[1], CylinderBox[{{-2.5, 0.5, 0.5}, {-2.5, 1.5, 1.2}}, 0.1]}, {RGBColor[1, 0.5, 0.5], SphereBox[{-2.5, 1.5, 1.2}, NCache[Rational[1, 4], 0.25]]}, {RGBColor[1, 0.5, 0.5], SphereBox[{3.5, 0.5, -1.5}, NCache[Rational[1, 5], 0.2]]}, {RGBColor[1, 0.5, 0.5], SphereBox[{1.5, 0.5, -1.5}, NCache[Rational[1, 5], 0.2]]}, {RGBColor[1, 1, 0.85], CylinderBox[{{2.8, 0.5, -0.8}, {3.5, 0.5, -1.5}}, 0.1]}, {RGBColor[1, 1, 0.85], CylinderBox[{{2.2, 0.5, -0.8}, {1.5, 0.5, -1.5}}, 0.1]}, {GrayLevel[0], CylinderBox[{{2.5, 0.5, -1.5}, {2.5, 0.5, -1.3}}, 0.61]}, {RGBColor[1, 1, 0], TubeBox[{{2.6, -0.03, -1.4}, {2.4, -0.03, -1.4}}, 0.11]}, {GrayLevel[0], TubeBox[{{2.58, -0.07, -1.4}, {2.42, -0.07, -1.4}}, 0.08]}, {RGBColor[1, 0.5, 0.5], SphereBox[{2.8, 0.5, -2.5}, NCache[Rational[1, 5], 0.2]]}, {RGBColor[1, 0.5, 0.5], SphereBox[{2.2, 0.5, -2.5}, NCache[Rational[1, 5], 0.2]]}, {RGBColor[1, 1, 0.85], CylinderBox[{{2.8, 0.5, -1.4}, {2.8, 0.5, -2.5}}, 0.1]}, {RGBColor[1, 1, 0.85], CylinderBox[{{2.2, 0.5, -1.4}, {2.2, 0.5, -2.5}}, 0.1]}, {RGBColor[1, 1, 0], TubeBox[{{2.5, 0.5, -1.}, {2.5, 0.5, -1.4}}, 0.6]}, {GrayLevel[0], TubeBox[{{2.8, -0.55, 0}, {2.8, -0.45, 0.6}}, 0.05]}, {GrayLevel[0], TubeBox[{{2.2, -0.55, 0}, {2.2, -0.45, 0.6}}, 0.05]}, {RGBColor[1, 1, 0], SphereBox[{2.5, 0.5, 0}]}, {RGBColor[1, 1, 0.85], SphereBox[{2.5, 0.31, 0}, 0.9]}, {GrayLevel[1], CylinderBox[{{2.5, 0.5, 0.5}, {2.5, 1.5, 1.2}}, 0.1]}, {RGBColor[1, 0.5, 0.5], SphereBox[{2.5, 1.5, 1.2}, NCache[Rational[1, 4], 0.25]]}, {RGBColor[1, 0.5, 0.5], SphereBox[{6, 0, -1.5}, NCache[Rational[1, 5], 0.2]]}, {RGBColor[1, 0.5, 0.5], SphereBox[{4, 0, -1.5}, NCache[Rational[1, 5], 0.2]]}, {RGBColor[1, 1, 0.85], CylinderBox[{{5.3, 0, -0.8}, {6, 0, -1.5}}, 0.1]}, {RGBColor[1, 1, 0.85], CylinderBox[{{4.7, 0, -0.8}, {4, 0, -1.5}}, 0.1]}, {GrayLevel[0], CylinderBox[{{5, 0, -1.5}, {5, 0, -1.3}}, 0.61]}, {RGBColor[1, 1, 0], TubeBox[{{5.1, -0.53, -1.4}, {4.9, -0.53, -1.4}}, 0.11]}, {GrayLevel[0], TubeBox[{{5.08, -0.57, -1.4}, {4.92, -0.57, -1.4}}, 0.08]}, {RGBColor[1, 0.5, 0.5], SphereBox[{5.3, 0, -2.5}, NCache[Rational[1, 5], 0.2]]}, {RGBColor[1, 0.5, 0.5], SphereBox[{4.7, 0, -2.5}, NCache[Rational[1, 5], 0.2]]}, {RGBColor[1, 1, 0.85], CylinderBox[{{5.3, 0, -1.4}, {5.3, 0, -2.5}}, 0.1]}, {RGBColor[1, 1, 0.85], CylinderBox[{{4.7, 0, -1.4}, {4.7, 0, -2.5}}, 0.1]}, {GrayLevel[0], TubeBox[{{5, 0, -1.}, {5, 0, -1.4}}, 0.6]}, {GrayLevel[0], TubeBox[{{5.3, -1.05, 0}, {5.3, -0.95, 0.6}}, 0.05]}, {GrayLevel[0], TubeBox[{{4.7, -1.05, 0}, {4.7, -0.95, 0.6}}, 0.05]}, {GrayLevel[0], SphereBox[{5, 0, 0}]}, {RGBColor[1, 1, 0.85], SphereBox[{5, -0.19, 0}, 0.9]}, {GrayLevel[1], CylinderBox[{{5, 0, 0.5}, {5, 1, 1.2}}, 0.1]}, {RGBColor[1, 0.5, 0.5], SphereBox[{5, 1, 1.2}, NCache[Rational[1, 4], 0.25]]}, {RGBColor[0.1, 0.1, 0.1], SphereBox[{1.5, -1.5, -2.2}, 0.5]}, {GrayLevel[1], TubeBox[{{1.5, -1.5, -2.}, {1.9, -1, -1.8}}, 0.11]}, {RGBColor[1, 0, 0], ConeBox[{{1.9, -0.97, -1.8}, {2.3, -0.47, -1.6}}, 0.04]}, {RGBColor[1, 0, 0], ConeBox[{{1.9, -0.97, -1.8}, {2.2, -0.53, -1.5}}, 0.04]}, {RGBColor[1, 0, 0], ConeBox[{{1.9, -0.97, -1.8}, {2.5, -0.73, -1.4}}, 0.04]}, {RGBColor[1, 0, 0], ConeBox[{{1.9, -0.97, -1.8}, {2.1, -0.6, -1.3}}, 0.04]}, {RGBColor[1, 0, 0], ConeBox[{{1.9, -0.97, -1.8}, {2.6, -0.65, -1.4}}, 0.04]}, {RGBColor[0.1, 0.1, 0.1], SphereBox[{-1.5, -1.5, -2.2}, 0.5]}, {GrayLevel[1], TubeBox[{{-1.5, -1.5, -2.}, {-1.9, -1, -1.8}}, 0.11]}, {RGBColor[1, 0, 0], ConeBox[{{-1.9, -0.97, -1.8}, {-2.3, -0.47, -1.6}}, 0.04]}, {RGBColor[1, 0, 0], ConeBox[{{-1.9, -0.97, -1.8}, {-2.2, -0.53, -1.5}}, 0.04]}, {RGBColor[1, 0, 0], ConeBox[{{-1.9, -0.97, -1.8}, {-2.5, -0.73, -1.4}}, 0.04]}, {RGBColor[1, 0, 0], ConeBox[{{-1.9, -0.97, -1.8}, {-2.1, -0.6, -1.3}}, 0.04]}, {RGBColor[1, 0, 0], ConeBox[{{-1.9, -0.97, -1.8}, {-2.6, -0.65, -1.4}}, 0.04]}, {RGBColor[0.1, 0.5, 0.1], CylinderBox[{{0, 0, -2.7}, {0, 0, -3.2}}, 6]}}, Boxed->False, ImageSize->{923., Automatic}], "\[IndentingNewLine]", RowBox[{"\:ff13\:5e74K\:7d44\:ff12\:ff18\:756a", "\:3000", "\:4f0a\:6771\:771f\:4e00"}]}], "Input", CellChangeTimes->{{3.6225033906795797`*^9, 3.6225034049848714`*^9}, { 3.6225036424495935`*^9, 3.622503643650801*^9}}], Cell[BoxData[ RowBox[{"\:3000", RowBox[{ "\:ff13D\:30b0\:30e9\:30d5\:30a3\:30c3\:30af\:3092\:4f7f\:3063\:3066\:61d0\ \:304b\:3057\:3044\:30b2", "\:30fc", "\:30e0\:306e\:30dc\:30f3\:30d0", "\:30fc", "\:30de\:30f3\:3092\:4f5c\:3063\:3066\:307f\:307e\:3057\:305f", "\:3002", "\:30dc\:30f3\:30d0", "\:30fc", "\:30de\:30f3\:306f\:305f\:304f\:3055\:3093\:306e\:8272\:306e\:30dc\:30f3\ \:30d0", "\:30fc", "\:30de\:30f3\:304c\:3044\:308b\:306e\:3067\:305d\:308c\:3092\:5fe0\:5b9f\ \:306b\:518d\:73fe\:3067\:304d\:305f\:306e\:3067\:3088\:304b\:3063\:305f\:3068\ \:601d\:3044\:307e\:3059", "\:3002", "\:30d9\:30eb\:30c8\:3084", "\:3001", "\:30dc\:30e0\:306e\:708e\:306a\:3069", "\:3001", "\:30d7\:30ed\:30b0\:30e9\:30df\:30f3\:30b0\:306e\:5ea7\:6a19\:306b\:82e6\ \:6226\:3057\:3064\:3064\:3082", "\:3001", "\:7d30\:304b\:3044\:3068\:3053\:307e\:3067\:9811\:5f35\:3063\:3066\:518d\ \:73fe\:3057\:305f\:306e\:3067\:898b\:3066\:304f\:3060\:3055\:3044", "\:3002"}]}]], "Input", CellChangeTimes->{{3.622503231089651*^9, 3.622503233226865*^9}, { 3.622503409072098*^9, 3.622503462830042*^9}, {3.622503498569871*^9, 3.622503636084753*^9}}], Cell[BoxData[""], "Input", CellChangeTimes->{{3.6225032006382556`*^9, 3.6225032151619487`*^9}}], Cell[BoxData[""], "Input", CellChangeTimes->{{3.622503185818161*^9, 3.6225031858493605`*^9}}], Cell[BoxData[""], "Input", CellChangeTimes->{{3.622502829893008*^9, 3.6225028299242077`*^9}}] }, WindowToolbars->"EditBar", WindowSize->{1264, 888}, WindowMargins->{{0, Automatic}, {Automatic, 0}}, PrintingCopies->1, PrintingPageRange->{Automatic, Automatic}, ShowSelection->True, FrontEndVersion->"9.0 for Microsoft Windows (32-bit) (2013\:5e741\:670828\ \:65e5)", StyleDefinitions->"Default.nb" ] (* End of Notebook Content *) (* Internal cache information *) (*CellTagsOutline CellTagsIndex->{} *) (*CellTagsIndex CellTagsIndex->{} *) (*NotebookFileOutline Notebook[{ Cell[1463, 33, 38116, 1110, 2352, "Input"], Cell[39582, 1145, 8721, 165, 785, InheritFromParent], Cell[48306, 1312, 1165, 20, 72, InheritFromParent], Cell[49474, 1334, 96, 1, 31, InheritFromParent], Cell[49573, 1337, 94, 1, 31, InheritFromParent], Cell[49670, 1340, 94, 1, 31, InheritFromParent] } ] *) (* End of internal cache information *) (* NotebookSignature ZxDZSS895n6d2BKVaWt@ydzv *)