(* 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[ 30748, 811] NotebookOptionsPosition[ 31237, 805] NotebookOutlinePosition[ 31590, 821] CellTagsIndexPosition[ 31547, 818] WindowFrame->Normal*) (* Beginning of Notebook Content *) Notebook[{ Cell[BoxData[""], "Input", CellChangeTimes->{{3.6225032701878805`*^9, 3.622503535065366*^9}, { 3.6225035698988485`*^9, 3.622503576795538*^9}, {3.6225036101088696`*^9, 3.6225036403498926`*^9}, {3.6225036819030476`*^9, 3.6225036868945465`*^9}, {3.6225037195688143`*^9, 3.622503778914748*^9}, { 3.6225038482103257`*^9, 3.622503910926326*^9}, {3.6225039684433255`*^9, 3.622504138431326*^9}, {3.622504791459326*^9, 3.6225049695903254`*^9}, { 3.6225050228923626`*^9, 3.6225052831833663`*^9}, 3.623103981805443*^9, { 3.623104041290805*^9, 3.623105013450344*^9}, {3.6231050488938885`*^9, 3.623105289283925*^9}, {3.6231053345504513`*^9, 3.623105441321127*^9}, { 3.62310547575557*^9, 3.623106176837432*^9}, {3.6231062082424316`*^9, 3.623106268316432*^9}, {3.623106303743432*^9, 3.6231065001294317`*^9}, { 3.6231065350704317`*^9, 3.623106538845432*^9}, {3.623106578219432*^9, 3.623106609449432*^9}, {3.6231066413674316`*^9, 3.6231070113312197`*^9}, { 3.623107054296811*^9, 3.623107583137498*^9}, {3.623107613655549*^9, 3.6231077750196843`*^9}, {3.62310782568075*^9, 3.6231078462888107`*^9}, { 3.623107891042285*^9, 3.6231079429794784`*^9}, {3.6231079760857887`*^9, 3.623108110121191*^9}, {3.6231081430994883`*^9, 3.6231083087370505`*^9}, { 3.6231083394591227`*^9, 3.623108387028879*^9}, {3.6231084665498304`*^9, 3.6231084883420095`*^9}, {3.6231086933350773`*^9, 3.6231086980775385`*^9}, {3.6231088155314445`*^9, 3.6231088965100126`*^9}, {3.6231089280963674`*^9, 3.6231091420100822`*^9}, {3.623109185841448*^9, 3.623109207961397*^9}, 3.6231093855449667`*^9}], Cell[BoxData[""], "Input", CellChangeTimes->{{3.6231093812395325`*^9, 3.6231093812551317`*^9}}], Cell[CellGroupData[{ Cell[BoxData[ RowBox[{"Graphics3D", "[", "\[IndentingNewLine]", RowBox[{ RowBox[{"{", "\[IndentingNewLine]", "\[IndentingNewLine]", RowBox[{"Black", ",", "\[IndentingNewLine]", RowBox[{"Sphere", "[", RowBox[{ RowBox[{"{", RowBox[{ RowBox[{"-", "0.6"}], ",", "0.6", ",", "0.9"}], "}"}], ",", "0.36"}], "]"}], ",", "\[IndentingNewLine]", RowBox[{"Sphere", "[", RowBox[{ RowBox[{"{", RowBox[{ RowBox[{"-", "0.5"}], ",", "0.7", ",", "0.9"}], "}"}], ",", "0.4"}], "]"}], ",", "\[IndentingNewLine]", RowBox[{"Sphere", "[", RowBox[{ RowBox[{"{", RowBox[{ RowBox[{"-", "0.3"}], ",", "0.9", ",", "0.9"}], "}"}], ",", "0.42"}], "]"}], ",", "\[IndentingNewLine]", RowBox[{"Sphere", "[", RowBox[{ RowBox[{"{", RowBox[{"0", ",", "1", ",", "0.9"}], "}"}], ",", "0.46"}], "]"}], ",", "\[IndentingNewLine]", RowBox[{"Sphere", "[", RowBox[{ RowBox[{"{", RowBox[{"0.1", ",", "1", ",", "0.9"}], "}"}], ",", "0.48"}], "]"}], ",", "\[IndentingNewLine]", RowBox[{"Sphere", "[", RowBox[{ RowBox[{"{", RowBox[{"0.2", ",", "1", ",", "0.9"}], "}"}], ",", "0.49"}], "]"}], ",", "\[IndentingNewLine]", RowBox[{"Sphere", "[", RowBox[{ RowBox[{"{", RowBox[{"0.3", ",", "1", ",", "0.9"}], "}"}], ",", "0.48"}], "]"}], ",", "\[IndentingNewLine]", RowBox[{"Sphere", "[", RowBox[{ RowBox[{"{", RowBox[{"0.4", ",", "1", ",", "0.9"}], "}"}], ",", "0.46"}], "]"}], ",", "\[IndentingNewLine]", RowBox[{"Sphere", "[", RowBox[{ RowBox[{"{", RowBox[{"0.45", ",", "1", ",", "0.9"}], "}"}], ",", "0.45"}], "]"}], ",", "\[IndentingNewLine]", RowBox[{"Sphere", "[", RowBox[{ RowBox[{"{", RowBox[{"0.5", ",", "1", ",", "0.9"}], "}"}], ",", "0.44"}], "]"}], ",", "\[IndentingNewLine]", RowBox[{"Sphere", "[", RowBox[{ RowBox[{"{", RowBox[{"0.55", ",", "1", ",", "0.9"}], "}"}], ",", "0.43"}], "]"}], ",", "\[IndentingNewLine]", "\[IndentingNewLine]", "\[IndentingNewLine]", "\[IndentingNewLine]", RowBox[{"Sphere", "[", RowBox[{ RowBox[{"{", RowBox[{ RowBox[{"-", "0.6"}], ",", "0.6", ",", "1"}], "}"}], ",", "0.36"}], "]"}], ",", "\[IndentingNewLine]", RowBox[{"Sphere", "[", RowBox[{ RowBox[{"{", RowBox[{ RowBox[{"-", "0.5"}], ",", "0.7", ",", "1"}], "}"}], ",", "0.4"}], "]"}], ",", "\[IndentingNewLine]", RowBox[{"Sphere", "[", RowBox[{ RowBox[{"{", RowBox[{ RowBox[{"-", "0.3"}], ",", "0.9", ",", "1"}], "}"}], ",", "0.42"}], "]"}], ",", "\[IndentingNewLine]", RowBox[{"Sphere", "[", RowBox[{ RowBox[{"{", RowBox[{"0", ",", "1", ",", "1"}], "}"}], ",", "0.46"}], "]"}], ",", "\[IndentingNewLine]", RowBox[{"Sphere", "[", RowBox[{ RowBox[{"{", RowBox[{"0.1", ",", "1", ",", "1"}], "}"}], ",", "0.48"}], "]"}], ",", "\[IndentingNewLine]", RowBox[{"Sphere", "[", RowBox[{ RowBox[{"{", RowBox[{"0.2", ",", "1", ",", "1"}], "}"}], ",", "0.49"}], "]"}], ",", "\[IndentingNewLine]", RowBox[{"Sphere", "[", RowBox[{ RowBox[{"{", RowBox[{"0.3", ",", "1", ",", "1"}], "}"}], ",", "0.48"}], "]"}], ",", "\[IndentingNewLine]", RowBox[{"Sphere", "[", RowBox[{ RowBox[{"{", RowBox[{"0.4", ",", "1", ",", "1"}], "}"}], ",", "0.46"}], "]"}], ",", "\[IndentingNewLine]", RowBox[{"Sphere", "[", RowBox[{ RowBox[{"{", RowBox[{"0.45", ",", "1", ",", "1"}], "}"}], ",", "0.45"}], "]"}], ",", "\[IndentingNewLine]", RowBox[{"Sphere", "[", RowBox[{ RowBox[{"{", RowBox[{"0.5", ",", "1", ",", "1"}], "}"}], ",", "0.44"}], "]"}], ",", "\[IndentingNewLine]", RowBox[{"Sphere", "[", RowBox[{ RowBox[{"{", RowBox[{"0.55", ",", "1", ",", "1"}], "}"}], ",", "0.43"}], "]"}], ",", "\[IndentingNewLine]", "\[IndentingNewLine]", RowBox[{"Sphere", "[", RowBox[{ RowBox[{"{", RowBox[{ RowBox[{"-", "0.6"}], ",", "0.6", ",", "1.1"}], "}"}], ",", "0.36"}], "]"}], ",", "\[IndentingNewLine]", RowBox[{"Sphere", "[", RowBox[{ RowBox[{"{", RowBox[{ RowBox[{"-", "0.5"}], ",", "0.7", ",", "1.1"}], "}"}], ",", "0.4"}], "]"}], ",", "\[IndentingNewLine]", RowBox[{"Sphere", "[", RowBox[{ RowBox[{"{", RowBox[{ RowBox[{"-", "0.3"}], ",", "0.9", ",", "1.1"}], "}"}], ",", "0.42"}], "]"}], ",", "\[IndentingNewLine]", RowBox[{"Sphere", "[", RowBox[{ RowBox[{"{", RowBox[{"0", ",", "1", ",", "1.1"}], "}"}], ",", "0.46"}], "]"}], ",", "\[IndentingNewLine]", RowBox[{"Sphere", "[", RowBox[{ RowBox[{"{", RowBox[{"0.1", ",", "1", ",", "1.1"}], "}"}], ",", "0.48"}], "]"}], ",", "\[IndentingNewLine]", RowBox[{"Sphere", "[", RowBox[{ RowBox[{"{", RowBox[{"0.2", ",", "1", ",", "1.1"}], "}"}], ",", "0.49"}], "]"}], ",", "\[IndentingNewLine]", RowBox[{"Sphere", "[", RowBox[{ RowBox[{"{", RowBox[{"0.3", ",", "1", ",", "1.1"}], "}"}], ",", "0.48"}], "]"}], ",", "\[IndentingNewLine]", RowBox[{"Sphere", "[", RowBox[{ RowBox[{"{", RowBox[{"0.4", ",", "1", ",", "1.1"}], "}"}], ",", "0.46"}], "]"}], ",", "\[IndentingNewLine]", RowBox[{"Sphere", "[", RowBox[{ RowBox[{"{", RowBox[{"0.45", ",", "1", ",", "1.1"}], "}"}], ",", "0.45"}], "]"}], ",", "\[IndentingNewLine]", RowBox[{"Sphere", "[", RowBox[{ RowBox[{"{", RowBox[{"0.5", ",", "1", ",", "1.1"}], "}"}], ",", "0.44"}], "]"}], ",", "\[IndentingNewLine]", RowBox[{"Sphere", "[", RowBox[{ RowBox[{"{", RowBox[{"0.55", ",", "1", ",", "1.1"}], "}"}], ",", "0.43"}], "]"}], ",", "\[IndentingNewLine]", "\[IndentingNewLine]", RowBox[{"Sphere", "[", RowBox[{ RowBox[{"{", RowBox[{"1.15", ",", "1", ",", "1"}], "}"}], ",", "0.38"}], "]"}], ",", "\[IndentingNewLine]", RowBox[{"Sphere", "[", RowBox[{ RowBox[{"{", RowBox[{"1.35", ",", "1", ",", "1"}], "}"}], ",", "0.5"}], "]"}], ",", "\[IndentingNewLine]", RowBox[{"Sphere", "[", RowBox[{ RowBox[{"{", RowBox[{"1.45", ",", "1", ",", "1"}], "}"}], ",", "0.6"}], "]"}], ",", "\[IndentingNewLine]", RowBox[{"Sphere", "[", RowBox[{ RowBox[{"{", RowBox[{"1.65", ",", "1", ",", "1"}], "}"}], ",", "0.65"}], "]"}], ",", "\[IndentingNewLine]", RowBox[{"Sphere", "[", RowBox[{ RowBox[{"{", RowBox[{"1.85", ",", "1", ",", "1"}], "}"}], ",", "0.61"}], "]"}], ",", "\[IndentingNewLine]", RowBox[{"Sphere", "[", RowBox[{ RowBox[{"{", RowBox[{"2.05", ",", "1", ",", "1"}], "}"}], ",", "0.53"}], "]"}], ",", "\[IndentingNewLine]", "\[IndentingNewLine]", RowBox[{"Sphere", "[", RowBox[{ RowBox[{"{", RowBox[{ RowBox[{"-", "1.2"}], ",", "0.1", ",", "1"}], "}"}], ",", "0.53"}], "]"}], ",", "\[IndentingNewLine]", "\[IndentingNewLine]", RowBox[{"Cylinder", "[", RowBox[{ RowBox[{"{", RowBox[{ RowBox[{"{", RowBox[{ RowBox[{"-", "1.5"}], ",", "0.1", ",", "0.7"}], "}"}], ",", RowBox[{"{", RowBox[{ RowBox[{"-", "2"}], ",", "0.4", ",", "0.5"}], "}"}]}], "}"}], ",", "0.02"}], "]"}], ",", "\[IndentingNewLine]", RowBox[{"Cylinder", "[", RowBox[{ RowBox[{"{", RowBox[{ RowBox[{"{", RowBox[{ RowBox[{"-", "2"}], ",", "0.4", ",", "0.5"}], "}"}], ",", RowBox[{"{", RowBox[{ RowBox[{"-", "2.7"}], ",", RowBox[{"-", "0.2"}], ",", "0.3"}], "}"}]}], "}"}], ",", "0.02"}], "]"}], ",", "\[IndentingNewLine]", RowBox[{"Cylinder", "[", RowBox[{ RowBox[{"{", RowBox[{ RowBox[{"{", RowBox[{ RowBox[{"-", "1.5"}], ",", "0.1", ",", "1.2"}], "}"}], ",", RowBox[{"{", RowBox[{ RowBox[{"-", "2"}], ",", "0.4", ",", "1.5"}], "}"}]}], "}"}], ",", "0.02"}], "]"}], ",", "\[IndentingNewLine]", RowBox[{"Cylinder", "[", RowBox[{ RowBox[{"{", RowBox[{ RowBox[{"{", RowBox[{ RowBox[{"-", "2"}], ",", "0.4", ",", "1.5"}], "}"}], ",", RowBox[{"{", RowBox[{ RowBox[{"-", "2.7"}], ",", RowBox[{"-", "0.2"}], ",", "1.6"}], "}"}]}], "}"}], ",", "0.02"}], "]"}], ",", "\[IndentingNewLine]", "\[IndentingNewLine]", RowBox[{"Cylinder", "[", RowBox[{ RowBox[{"{", RowBox[{ RowBox[{"{", RowBox[{ RowBox[{"-", "1.2"}], ",", "0.2", ",", "0.7"}], "}"}], ",", RowBox[{"{", RowBox[{ RowBox[{"-", "1.4"}], ",", RowBox[{"-", "0.4"}], ",", "0.5"}], "}"}]}], "}"}], ",", "0.03"}], "]"}], ",", "\[IndentingNewLine]", RowBox[{"Cylinder", "[", RowBox[{ RowBox[{"{", RowBox[{ RowBox[{"{", RowBox[{ RowBox[{"-", "1.4"}], ",", RowBox[{"-", "0.4"}], ",", "0.5"}], "}"}], ",", RowBox[{"{", RowBox[{ RowBox[{"-", "1.6"}], ",", RowBox[{"-", "0.6"}], ",", "0.7"}], "}"}]}], "}"}], ",", "0.03"}], "]"}], ",", "\[IndentingNewLine]", RowBox[{"Cylinder", "[", RowBox[{ RowBox[{"{", RowBox[{ RowBox[{"{", RowBox[{ RowBox[{"-", "1.2"}], ",", "0.2", ",", "0.7"}], "}"}], ",", RowBox[{"{", RowBox[{ RowBox[{"-", "1.4"}], ",", RowBox[{"-", "0.4"}], ",", "0.56"}], "}"}]}], "}"}], ",", "0.03"}], "]"}], ",", "\[IndentingNewLine]", RowBox[{"Cylinder", "[", RowBox[{ RowBox[{"{", RowBox[{ RowBox[{"{", RowBox[{ RowBox[{"-", "1.4"}], ",", RowBox[{"-", "0.4"}], ",", "0.56"}], "}"}], ",", RowBox[{"{", RowBox[{ RowBox[{"-", "1.6"}], ",", RowBox[{"-", "0.6"}], ",", "0.7"}], "}"}]}], "}"}], ",", "0.03"}], "]"}], ",", "\[IndentingNewLine]", RowBox[{"Cylinder", "[", RowBox[{ RowBox[{"{", RowBox[{ RowBox[{"{", RowBox[{ RowBox[{"-", "1.2"}], ",", "0.2", ",", "0.7"}], "}"}], ",", RowBox[{"{", RowBox[{ RowBox[{"-", "1.4"}], ",", RowBox[{"-", "0.4"}], ",", "0.62"}], "}"}]}], "}"}], ",", "0.03"}], "]"}], ",", "\[IndentingNewLine]", RowBox[{"Cylinder", "[", RowBox[{ RowBox[{"{", RowBox[{ RowBox[{"{", RowBox[{ RowBox[{"-", "1.4"}], ",", RowBox[{"-", "0.4"}], ",", "0.62"}], "}"}], ",", RowBox[{"{", RowBox[{ RowBox[{"-", "1.6"}], ",", RowBox[{"-", "0.6"}], ",", "0.7"}], "}"}]}], "}"}], ",", "0.03"}], "]"}], ",", "\[IndentingNewLine]", RowBox[{"Cone", "[", RowBox[{ RowBox[{"{", RowBox[{ RowBox[{"{", RowBox[{ RowBox[{"-", "1.6"}], ",", RowBox[{"-", "0.6"}], ",", "0.7"}], "}"}], ",", RowBox[{"{", RowBox[{ RowBox[{"-", "1.8"}], ",", RowBox[{"-", "0.76"}], ",", "0.78"}], "}"}]}], "}"}], ",", "0.03"}], "]"}], ",", "\[IndentingNewLine]", "\[IndentingNewLine]", RowBox[{"Cylinder", "[", RowBox[{ RowBox[{"{", RowBox[{ RowBox[{"{", RowBox[{ RowBox[{"-", "1.2"}], ",", "0.2", ",", "1.2"}], "}"}], ",", RowBox[{"{", RowBox[{ RowBox[{"-", "1.4"}], ",", RowBox[{"-", "0.4"}], ",", "1.5"}], "}"}]}], "}"}], ",", "0.03"}], "]"}], ",", "\[IndentingNewLine]", RowBox[{"Cylinder", "[", RowBox[{ RowBox[{"{", RowBox[{ RowBox[{"{", RowBox[{ RowBox[{"-", "1.4"}], ",", RowBox[{"-", "0.4"}], ",", "1.5"}], "}"}], ",", RowBox[{"{", RowBox[{ RowBox[{"-", "1.6"}], ",", RowBox[{"-", "0.6"}], ",", "1.3"}], "}"}]}], "}"}], ",", "0.03"}], "]"}], ",", "\[IndentingNewLine]", RowBox[{"Cylinder", "[", RowBox[{ RowBox[{"{", RowBox[{ RowBox[{"{", RowBox[{ RowBox[{"-", "1.2"}], ",", "0.2", ",", "1.2"}], "}"}], ",", RowBox[{"{", RowBox[{ RowBox[{"-", "1.4"}], ",", RowBox[{"-", "0.4"}], ",", "1.48"}], "}"}]}], "}"}], ",", "0.03"}], "]"}], ",", "\[IndentingNewLine]", RowBox[{"Cylinder", "[", RowBox[{ RowBox[{"{", RowBox[{ RowBox[{"{", RowBox[{ RowBox[{"-", "1.4"}], ",", RowBox[{"-", "0.4"}], ",", "1.48"}], "}"}], ",", RowBox[{"{", RowBox[{ RowBox[{"-", "1.6"}], ",", RowBox[{"-", "0.6"}], ",", "1.3"}], "}"}]}], "}"}], ",", "0.03"}], "]"}], ",", "\[IndentingNewLine]", RowBox[{"Cylinder", "[", RowBox[{ RowBox[{"{", RowBox[{ RowBox[{"{", RowBox[{ RowBox[{"-", "1.2"}], ",", "0.2", ",", "1.2"}], "}"}], ",", RowBox[{"{", RowBox[{ RowBox[{"-", "1.4"}], ",", RowBox[{"-", "0.4"}], ",", "1.42"}], "}"}]}], "}"}], ",", "0.03"}], "]"}], ",", "\[IndentingNewLine]", RowBox[{"Cylinder", "[", RowBox[{ RowBox[{"{", RowBox[{ RowBox[{"{", RowBox[{ RowBox[{"-", "1.4"}], ",", RowBox[{"-", "0.4"}], ",", "1.42"}], "}"}], ",", RowBox[{"{", RowBox[{ RowBox[{"-", "1.6"}], ",", RowBox[{"-", "0.6"}], ",", "1.3"}], "}"}]}], "}"}], ",", "0.03"}], "]"}], ",", "\[IndentingNewLine]", RowBox[{"Cone", "[", RowBox[{ RowBox[{"{", RowBox[{ RowBox[{"{", RowBox[{ RowBox[{"-", "1.6"}], ",", RowBox[{"-", "0.6"}], ",", "1.3"}], "}"}], ",", RowBox[{"{", RowBox[{ RowBox[{"-", "1.8"}], ",", RowBox[{"-", "0.76"}], ",", "1.2"}], "}"}]}], "}"}], ",", "0.03"}], "]"}], ",", "\[IndentingNewLine]", "\[IndentingNewLine]", RowBox[{"Cylinder", "[", RowBox[{ RowBox[{"{", RowBox[{ RowBox[{"{", RowBox[{ RowBox[{"-", "0.3"}], ",", "0.6", ",", "0.7"}], "}"}], ",", RowBox[{"{", RowBox[{ RowBox[{"-", "0.4"}], ",", RowBox[{"-", "0.2"}], ",", "0.4"}], "}"}]}], "}"}], ",", "0.03"}], "]"}], ",", "\[IndentingNewLine]", RowBox[{"Cylinder", "[", RowBox[{ RowBox[{"{", RowBox[{ RowBox[{"{", RowBox[{ RowBox[{"-", "0.4"}], ",", RowBox[{"-", "0.2"}], ",", "0.4"}], "}"}], ",", RowBox[{"{", RowBox[{ RowBox[{"-", "0.6"}], ",", "0.1", ",", RowBox[{"-", "0.3"}]}], "}"}]}], "}"}], ",", "0.03"}], "]"}], ",", "\[IndentingNewLine]", RowBox[{"Cylinder", "[", RowBox[{ RowBox[{"{", RowBox[{ RowBox[{"{", RowBox[{ RowBox[{"-", "0.6"}], ",", "0.1", ",", RowBox[{"-", "0.3"}]}], "}"}], ",", RowBox[{"{", RowBox[{ RowBox[{"-", "0.7"}], ",", RowBox[{"-", "1.2"}], ",", RowBox[{"-", "0.4"}]}], "}"}]}], "}"}], ",", "0.03"}], "]"}], ",", "\[IndentingNewLine]", "\[IndentingNewLine]", RowBox[{"Cylinder", "[", RowBox[{ RowBox[{"{", RowBox[{ RowBox[{"{", RowBox[{"0.1", ",", "0.6", ",", "0.7"}], "}"}], ",", RowBox[{"{", RowBox[{"0.2", ",", RowBox[{"-", "0.2"}], ",", "0.4"}], "}"}]}], "}"}], ",", "0.03"}], "]"}], ",", "\[IndentingNewLine]", RowBox[{"Cylinder", "[", RowBox[{ RowBox[{"{", RowBox[{ RowBox[{"{", RowBox[{"0.2", ",", RowBox[{"-", "0.2"}], ",", "0.4"}], "}"}], ",", RowBox[{"{", RowBox[{"0", ",", "0.1", ",", RowBox[{"-", "0.3"}]}], "}"}]}], "}"}], ",", "0.03"}], "]"}], ",", "\[IndentingNewLine]", RowBox[{"Cylinder", "[", RowBox[{ RowBox[{"{", RowBox[{ RowBox[{"{", RowBox[{"0", ",", "0.1", ",", RowBox[{"-", "0.3"}]}], "}"}], ",", RowBox[{"{", RowBox[{"0.4", ",", RowBox[{"-", "0.8"}], ",", RowBox[{"-", "0.4"}]}], "}"}]}], "}"}], ",", "0.03"}], "]"}], ",", "\[IndentingNewLine]", "\[IndentingNewLine]", RowBox[{"Cylinder", "[", RowBox[{ RowBox[{"{", RowBox[{ RowBox[{"{", RowBox[{"0.5", ",", "0.6", ",", "0.7"}], "}"}], ",", RowBox[{"{", RowBox[{"1", ",", "0", ",", "0.4"}], "}"}]}], "}"}], ",", "0.03"}], "]"}], ",", "\[IndentingNewLine]", RowBox[{"Cylinder", "[", RowBox[{ RowBox[{"{", RowBox[{ RowBox[{"{", RowBox[{"1", ",", "0", ",", "0.4"}], "}"}], ",", RowBox[{"{", RowBox[{"1.2", ",", "0.4", ",", RowBox[{"-", "0.3"}]}], "}"}]}], "}"}], ",", "0.03"}], "]"}], ",", "\[IndentingNewLine]", RowBox[{"Cylinder", "[", RowBox[{ RowBox[{"{", RowBox[{ RowBox[{"{", RowBox[{"1.2", ",", "0.4", ",", RowBox[{"-", "0.3"}]}], "}"}], ",", RowBox[{"{", RowBox[{"2", ",", RowBox[{"-", "0.5"}], ",", RowBox[{"-", "0.4"}]}], "}"}]}], "}"}], ",", "0.03"}], "]"}], ",", "\[IndentingNewLine]", "\[IndentingNewLine]", RowBox[{"Cylinder", "[", RowBox[{ RowBox[{"{", RowBox[{ RowBox[{"{", RowBox[{ RowBox[{"-", "0.3"}], ",", "0.6", ",", "1.2"}], "}"}], ",", RowBox[{"{", RowBox[{ RowBox[{"-", "0.4"}], ",", RowBox[{"-", "0.2"}], ",", "1.5"}], "}"}]}], "}"}], ",", "0.03"}], "]"}], ",", "\[IndentingNewLine]", RowBox[{"Cylinder", "[", RowBox[{ RowBox[{"{", RowBox[{ RowBox[{"{", RowBox[{ RowBox[{"-", "0.4"}], ",", RowBox[{"-", "0.2"}], ",", "1.5"}], "}"}], ",", RowBox[{"{", RowBox[{ RowBox[{"-", "0.6"}], ",", "0.1", ",", "2.2"}], "}"}]}], "}"}], ",", "0.03"}], "]"}], ",", "\[IndentingNewLine]", RowBox[{"Cylinder", "[", RowBox[{ RowBox[{"{", RowBox[{ RowBox[{"{", RowBox[{ RowBox[{"-", "0.6"}], ",", "0.1", ",", "2.2"}], "}"}], ",", RowBox[{"{", RowBox[{ RowBox[{"-", "0.7"}], ",", RowBox[{"-", "1.2"}], ",", "2.3"}], "}"}]}], "}"}], ",", "0.03"}], "]"}], ",", "\[IndentingNewLine]", "\[IndentingNewLine]", RowBox[{"Cylinder", "[", RowBox[{ RowBox[{"{", RowBox[{ RowBox[{"{", RowBox[{"0.1", ",", "0.6", ",", "1.2"}], "}"}], ",", RowBox[{"{", RowBox[{"0.2", ",", RowBox[{"-", "0.2"}], ",", "1.5"}], "}"}]}], "}"}], ",", "0.03"}], "]"}], ",", "\[IndentingNewLine]", RowBox[{"Cylinder", "[", RowBox[{ RowBox[{"{", RowBox[{ RowBox[{"{", RowBox[{"0.2", ",", RowBox[{"-", "0.2"}], ",", "1.5"}], "}"}], ",", RowBox[{"{", RowBox[{"0", ",", "0.1", ",", "2.2"}], "}"}]}], "}"}], ",", "0.03"}], "]"}], ",", "\[IndentingNewLine]", RowBox[{"Cylinder", "[", RowBox[{ RowBox[{"{", RowBox[{ RowBox[{"{", RowBox[{"0", ",", "0.1", ",", "2.2"}], "}"}], ",", RowBox[{"{", RowBox[{"0.4", ",", RowBox[{"-", "0.8"}], ",", "2.3"}], "}"}]}], "}"}], ",", "0.03"}], "]"}], ",", "\[IndentingNewLine]", "\[IndentingNewLine]", RowBox[{"Cylinder", "[", RowBox[{ RowBox[{"{", RowBox[{ RowBox[{"{", RowBox[{"0.5", ",", "0.6", ",", "1.2"}], "}"}], ",", RowBox[{"{", RowBox[{"1", ",", "0", ",", "1.5"}], "}"}]}], "}"}], ",", "0.03"}], "]"}], ",", "\[IndentingNewLine]", RowBox[{"Cylinder", "[", RowBox[{ RowBox[{"{", RowBox[{ RowBox[{"{", RowBox[{"1", ",", "0", ",", "1.5"}], "}"}], ",", RowBox[{"{", RowBox[{"1.2", ",", "0.4", ",", "2.2"}], "}"}]}], "}"}], ",", "0.03"}], "]"}], ",", "\[IndentingNewLine]", RowBox[{"Cylinder", "[", RowBox[{ RowBox[{"{", RowBox[{ RowBox[{"{", RowBox[{"1.2", ",", "0.4", ",", "2.2"}], "}"}], ",", RowBox[{"{", RowBox[{"2", ",", RowBox[{"-", "0.5"}], ",", "2.3"}], "}"}]}], "}"}], ",", "0.03"}], "]"}], ",", "\[IndentingNewLine]", "\[IndentingNewLine]", "Red", ",", "\[IndentingNewLine]", RowBox[{"Sphere", "[", RowBox[{ RowBox[{"{", RowBox[{ RowBox[{"-", "1.65"}], ",", "0.07", ",", "0.8"}], "}"}], ",", "0.07"}], "]"}], ",", "\[IndentingNewLine]", RowBox[{"Sphere", "[", RowBox[{ RowBox[{"{", RowBox[{ RowBox[{"-", "1.65"}], ",", "0.07", ",", "1.2"}], "}"}], ",", "0.07"}], "]"}], ","}], "\[IndentingNewLine]", "\[IndentingNewLine]", "}"}], ",", RowBox[{"Boxed", "\[Rule]", "False"}]}], "\[IndentingNewLine]", "]"}]], "Input", CellChangeTimes->{{3.6225032701878805`*^9, 3.622503535065366*^9}, { 3.6225035698988485`*^9, 3.622503576795538*^9}, {3.6225036101088696`*^9, 3.6225036403498926`*^9}, {3.6225036819030476`*^9, 3.6225036868945465`*^9}, {3.6225037195688143`*^9, 3.622503778914748*^9}, { 3.6225038482103257`*^9, 3.622503910926326*^9}, {3.6225039684433255`*^9, 3.622504138431326*^9}, {3.622504791459326*^9, 3.6225049695903254`*^9}, { 3.6225050228923626`*^9, 3.6225052831833663`*^9}, 3.623103981805443*^9, { 3.623104041290805*^9, 3.623105013450344*^9}, {3.6231050488938885`*^9, 3.623105289283925*^9}, {3.6231053345504513`*^9, 3.623105441321127*^9}, { 3.62310547575557*^9, 3.623106176837432*^9}, {3.6231062082424316`*^9, 3.623106268316432*^9}, {3.623106303743432*^9, 3.6231065001294317`*^9}, { 3.6231065350704317`*^9, 3.623106538845432*^9}, {3.623106578219432*^9, 3.623106609449432*^9}, {3.6231066413674316`*^9, 3.6231070113312197`*^9}, { 3.623107054296811*^9, 3.623107583137498*^9}, {3.623107613655549*^9, 3.6231077750196843`*^9}, {3.62310782568075*^9, 3.6231078462888107`*^9}, { 3.623107891042285*^9, 3.6231079429794784`*^9}, {3.6231079760857887`*^9, 3.623108110121191*^9}, {3.6231081430994883`*^9, 3.6231083087370505`*^9}, { 3.6231083394591227`*^9, 3.623108387028879*^9}, {3.6231084665498304`*^9, 3.6231084883420095`*^9}, {3.6231086933350773`*^9, 3.6231086980775385`*^9}, {3.6231092266182795`*^9, 3.623109355126137*^9}}], Cell[BoxData[ Graphics3DBox[{ {GrayLevel[0], SphereBox[{-0.6, 0.6, 0.9}, 0.36], SphereBox[{-0.5, 0.7, 0.9}, 0.4], SphereBox[{-0.3, 0.9, 0.9}, 0.42], SphereBox[{0, 1, 0.9}, 0.46], SphereBox[{0.1, 1, 0.9}, 0.48], SphereBox[{0.2, 1, 0.9}, 0.49], SphereBox[{0.3, 1, 0.9}, 0.48], SphereBox[{0.4, 1, 0.9}, 0.46], SphereBox[{0.45, 1, 0.9}, 0.45], SphereBox[{0.5, 1, 0.9}, 0.44], SphereBox[{0.55, 1, 0.9}, 0.43], SphereBox[{-0.6, 0.6, 1}, 0.36], SphereBox[{-0.5, 0.7, 1}, 0.4], SphereBox[{-0.3, 0.9, 1}, 0.42], SphereBox[{0, 1, 1}, 0.46], SphereBox[{0.1, 1, 1}, 0.48], SphereBox[{0.2, 1, 1}, 0.49], SphereBox[{0.3, 1, 1}, 0.48], SphereBox[{0.4, 1, 1}, 0.46], SphereBox[{0.45, 1, 1}, 0.45], SphereBox[{0.5, 1, 1}, 0.44], SphereBox[{0.55, 1, 1}, 0.43], SphereBox[{-0.6, 0.6, 1.1}, 0.36], SphereBox[{-0.5, 0.7, 1.1}, 0.4], SphereBox[{-0.3, 0.9, 1.1}, 0.42], SphereBox[{0, 1, 1.1}, 0.46], SphereBox[{0.1, 1, 1.1}, 0.48], SphereBox[{0.2, 1, 1.1}, 0.49], SphereBox[{0.3, 1, 1.1}, 0.48], SphereBox[{0.4, 1, 1.1}, 0.46], SphereBox[{0.45, 1, 1.1}, 0.45], SphereBox[{0.5, 1, 1.1}, 0.44], SphereBox[{0.55, 1, 1.1}, 0.43], SphereBox[{1.15, 1, 1}, 0.38], SphereBox[{1.35, 1, 1}, 0.5], SphereBox[{1.45, 1, 1}, 0.6], SphereBox[{1.65, 1, 1}, 0.65], SphereBox[{1.85, 1, 1}, 0.61], SphereBox[{2.05, 1, 1}, 0.53], SphereBox[{-1.2, 0.1, 1}, 0.53], CylinderBox[{{-1.5, 0.1, 0.7}, {-2, 0.4, 0.5}}, 0.02], CylinderBox[{{-2, 0.4, 0.5}, {-2.7, -0.2, 0.3}}, 0.02], CylinderBox[{{-1.5, 0.1, 1.2}, {-2, 0.4, 1.5}}, 0.02], CylinderBox[{{-2, 0.4, 1.5}, {-2.7, -0.2, 1.6}}, 0.02], CylinderBox[{{-1.2, 0.2, 0.7}, {-1.4, -0.4, 0.5}}, 0.03], CylinderBox[{{-1.4, -0.4, 0.5}, {-1.6, -0.6, 0.7}}, 0.03], CylinderBox[{{-1.2, 0.2, 0.7}, {-1.4, -0.4, 0.56}}, 0.03], CylinderBox[{{-1.4, -0.4, 0.56}, {-1.6, -0.6, 0.7}}, 0.03], CylinderBox[{{-1.2, 0.2, 0.7}, {-1.4, -0.4, 0.62}}, 0.03], CylinderBox[{{-1.4, -0.4, 0.62}, {-1.6, -0.6, 0.7}}, 0.03], ConeBox[{{-1.6, -0.6, 0.7}, {-1.8, -0.76, 0.78}}, 0.03], CylinderBox[{{-1.2, 0.2, 1.2}, {-1.4, -0.4, 1.5}}, 0.03], CylinderBox[{{-1.4, -0.4, 1.5}, {-1.6, -0.6, 1.3}}, 0.03], CylinderBox[{{-1.2, 0.2, 1.2}, {-1.4, -0.4, 1.48}}, 0.03], CylinderBox[{{-1.4, -0.4, 1.48}, {-1.6, -0.6, 1.3}}, 0.03], CylinderBox[{{-1.2, 0.2, 1.2}, {-1.4, -0.4, 1.42}}, 0.03], CylinderBox[{{-1.4, -0.4, 1.42}, {-1.6, -0.6, 1.3}}, 0.03], ConeBox[{{-1.6, -0.6, 1.3}, {-1.8, -0.76, 1.2}}, 0.03], CylinderBox[{{-0.3, 0.6, 0.7}, {-0.4, -0.2, 0.4}}, 0.03], CylinderBox[{{-0.4, -0.2, 0.4}, {-0.6, 0.1, -0.3}}, 0.03], CylinderBox[{{-0.6, 0.1, -0.3}, {-0.7, -1.2, -0.4}}, 0.03], CylinderBox[{{0.1, 0.6, 0.7}, {0.2, -0.2, 0.4}}, 0.03], CylinderBox[{{0.2, -0.2, 0.4}, {0, 0.1, -0.3}}, 0.03], CylinderBox[{{0, 0.1, -0.3}, {0.4, -0.8, -0.4}}, 0.03], CylinderBox[{{0.5, 0.6, 0.7}, {1, 0, 0.4}}, 0.03], CylinderBox[{{1, 0, 0.4}, {1.2, 0.4, -0.3}}, 0.03], CylinderBox[{{1.2, 0.4, -0.3}, {2, -0.5, -0.4}}, 0.03], CylinderBox[{{-0.3, 0.6, 1.2}, {-0.4, -0.2, 1.5}}, 0.03], CylinderBox[{{-0.4, -0.2, 1.5}, {-0.6, 0.1, 2.2}}, 0.03], CylinderBox[{{-0.6, 0.1, 2.2}, {-0.7, -1.2, 2.3}}, 0.03], CylinderBox[{{0.1, 0.6, 1.2}, {0.2, -0.2, 1.5}}, 0.03], CylinderBox[{{0.2, -0.2, 1.5}, {0, 0.1, 2.2}}, 0.03], CylinderBox[{{0, 0.1, 2.2}, {0.4, -0.8, 2.3}}, 0.03], CylinderBox[{{0.5, 0.6, 1.2}, {1, 0, 1.5}}, 0.03], CylinderBox[{{1, 0, 1.5}, {1.2, 0.4, 2.2}}, 0.03], CylinderBox[{{1.2, 0.4, 2.2}, {2, -0.5, 2.3}}, 0.03]}, {RGBColor[1, 0, 0], SphereBox[{-1.65, 0.07, 0.8}, 0.07], SphereBox[{-1.65, 0.07, 1.2}, 0.07]}}, AutomaticImageSize->True, Boxed->False, ImageSize->{410.20616230484677`, 404.6260923557023}, ViewPoint->{-3.31720633861178, -0.4002686236209187, 0.5347215499850907}, ViewVertical->{-0.686319628935181, 1.3483977920823407`, 0.05113535898396776}]], "Output", CellChangeTimes->{{3.6231093167516127`*^9, 3.6231093556253176`*^9}}] }, Open ]] }, WindowSize->{707, 760}, WindowMargins->{{0, Automatic}, {Automatic, 0}}, 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, 1626, 23, 31, "Input"], Cell[3092, 58, 96, 1, 31, InheritFromParent], Cell[CellGroupData[{ Cell[3213, 63, 23914, 670, 2052, "Input"], Cell[27130, 735, 4091, 67, 420, "Output"] }, Open ]] } ] *) (* End of internal cache information *) (* NotebookSignature 0u05W9ZP3lKqNDwaJd9aJhwx *)