(* 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[     14759,        420]
NotebookOptionsPosition[     15295,        415]
NotebookOutlinePosition[     15648,        431]
CellTagsIndexPosition[     15605,        428]
WindowFrame->Normal*)

(* Beginning of Notebook Content *)
Notebook[{

Cell[CellGroupData[{
Cell[BoxData[
 RowBox[{"Graphics3D", "[", 
  RowBox[{
   RowBox[{"{", "\[IndentingNewLine]", 
    RowBox[{"Purple", ",", 
     RowBox[{"Cylinder", "[", 
      RowBox[{
       RowBox[{"{", 
        RowBox[{
         RowBox[{"{", 
          RowBox[{"0", ",", "0", ",", "0"}], "}"}], ",", 
         RowBox[{"{", 
          RowBox[{"0", ",", "0", ",", "0.01"}], "}"}]}], "}"}], ",", "0.5"}], 
      "]"}], ",", "\[IndentingNewLine]", 
     RowBox[{"Cylinder", "[", 
      RowBox[{
       RowBox[{"{", 
        RowBox[{
         RowBox[{"{", 
          RowBox[{"0", ",", "0", ",", "0"}], "}"}], ",", 
         RowBox[{"{", 
          RowBox[{"0", ",", "0", ",", "0.02"}], "}"}]}], "}"}], ",", "0.49"}],
       "]"}], ",", "\[IndentingNewLine]", 
     RowBox[{"Cylinder", "[", 
      RowBox[{
       RowBox[{"{", 
        RowBox[{
         RowBox[{"{", 
          RowBox[{"0", ",", "0", ",", "0"}], "}"}], ",", 
         RowBox[{"{", 
          RowBox[{"0", ",", "0", ",", "0.03"}], "}"}]}], "}"}], ",", "0.48"}],
       "]"}], ",", "\[IndentingNewLine]", 
     RowBox[{"Cylinder", "[", 
      RowBox[{
       RowBox[{"{", 
        RowBox[{
         RowBox[{"{", 
          RowBox[{"0", ",", "0", ",", "0"}], "}"}], ",", 
         RowBox[{"{", 
          RowBox[{"0", ",", "0", ",", "0.04"}], "}"}]}], "}"}], ",", "0.47"}],
       "]"}], ",", "\[IndentingNewLine]", 
     RowBox[{"Cylinder", "[", 
      RowBox[{
       RowBox[{"{", 
        RowBox[{
         RowBox[{"{", 
          RowBox[{"0", ",", "0", ",", "0"}], "}"}], ",", 
         RowBox[{"{", 
          RowBox[{"0", ",", "0", ",", "0.05"}], "}"}]}], "}"}], ",", "0.46"}],
       "]"}], ",", "\[IndentingNewLine]", 
     RowBox[{"Cylinder", "[", 
      RowBox[{
       RowBox[{"{", 
        RowBox[{
         RowBox[{"{", 
          RowBox[{"0", ",", "0", ",", "0"}], "}"}], ",", 
         RowBox[{"{", 
          RowBox[{"0", ",", "0", ",", "0.06"}], "}"}]}], "}"}], ",", "0.45"}],
       "]"}], ",", "\[IndentingNewLine]", 
     RowBox[{"Cylinder", "[", 
      RowBox[{
       RowBox[{"{", 
        RowBox[{
         RowBox[{"{", 
          RowBox[{"0", ",", "0", ",", "0"}], "}"}], ",", 
         RowBox[{"{", 
          RowBox[{"0", ",", "0", ",", "0.07"}], "}"}]}], "}"}], ",", "0.44"}],
       "]"}], ",", "\[IndentingNewLine]", 
     RowBox[{"Cylinder", "[", 
      RowBox[{
       RowBox[{"{", 
        RowBox[{
         RowBox[{"{", 
          RowBox[{"0", ",", "0", ",", "0"}], "}"}], ",", 
         RowBox[{"{", 
          RowBox[{"0", ",", "0", ",", "0.08"}], "}"}]}], "}"}], ",", "0.43"}],
       "]"}], ",", "\[IndentingNewLine]", 
     RowBox[{"Cylinder", "[", 
      RowBox[{
       RowBox[{"{", 
        RowBox[{
         RowBox[{"{", 
          RowBox[{"0", ",", "0", ",", "0"}], "}"}], ",", 
         RowBox[{"{", 
          RowBox[{"0", ",", "0", ",", "0.09"}], "}"}]}], "}"}], ",", "0.42"}],
       "]"}], ",", "\[IndentingNewLine]", 
     RowBox[{"Cylinder", "[", 
      RowBox[{
       RowBox[{"{", 
        RowBox[{
         RowBox[{"{", 
          RowBox[{"0", ",", "0", ",", "0"}], "}"}], ",", 
         RowBox[{"{", 
          RowBox[{"0", ",", "0", ",", "0.1"}], "}"}]}], "}"}], ",", "0.41"}], 
      "]"}], ",", "\[IndentingNewLine]", 
     RowBox[{"Cylinder", "[", 
      RowBox[{
       RowBox[{"{", 
        RowBox[{
         RowBox[{"{", 
          RowBox[{"0", ",", "0", ",", "0"}], "}"}], ",", 
         RowBox[{"{", 
          RowBox[{"0", ",", "0", ",", "0.11"}], "}"}]}], "}"}], ",", "0.40"}],
       "]"}], ",", "\[IndentingNewLine]", 
     RowBox[{"Cylinder", "[", 
      RowBox[{
       RowBox[{"{", 
        RowBox[{
         RowBox[{"{", 
          RowBox[{"0", ",", "0", ",", "0"}], "}"}], ",", 
         RowBox[{"{", 
          RowBox[{"0", ",", "0", ",", "0.12"}], "}"}]}], "}"}], ",", "0.39"}],
       "]"}], ",", "\[IndentingNewLine]", 
     RowBox[{"Cylinder", "[", 
      RowBox[{
       RowBox[{"{", 
        RowBox[{
         RowBox[{"{", 
          RowBox[{"0", ",", "0", ",", "0"}], "}"}], ",", 
         RowBox[{"{", 
          RowBox[{"0", ",", "0", ",", "0.13"}], "}"}]}], "}"}], ",", "0.38"}],
       "]"}], ",", "\[IndentingNewLine]", 
     RowBox[{"Cylinder", "[", 
      RowBox[{
       RowBox[{"{", 
        RowBox[{
         RowBox[{"{", 
          RowBox[{"0", ",", "0", ",", "0"}], "}"}], ",", 
         RowBox[{"{", 
          RowBox[{"0", ",", "0", ",", "0.14"}], "}"}]}], "}"}], ",", "0.37"}],
       "]"}], ",", "\[IndentingNewLine]", 
     RowBox[{"Cylinder", "[", 
      RowBox[{
       RowBox[{"{", 
        RowBox[{
         RowBox[{"{", 
          RowBox[{"0", ",", "0", ",", "0"}], "}"}], ",", 
         RowBox[{"{", 
          RowBox[{"0", ",", "0", ",", "0.15"}], "}"}]}], "}"}], ",", "0.36"}],
       "]"}], ",", "\[IndentingNewLine]", 
     RowBox[{"Cylinder", "[", 
      RowBox[{
       RowBox[{"{", 
        RowBox[{
         RowBox[{"{", 
          RowBox[{"0", ",", "0", ",", "0"}], "}"}], ",", 
         RowBox[{"{", 
          RowBox[{"0", ",", "0", ",", "0.16"}], "}"}]}], "}"}], ",", "0.35"}],
       "]"}], ",", "\[IndentingNewLine]", 
     RowBox[{"Cylinder", "[", 
      RowBox[{
       RowBox[{"{", 
        RowBox[{
         RowBox[{"{", 
          RowBox[{"0", ",", "0", ",", "0"}], "}"}], ",", 
         RowBox[{"{", 
          RowBox[{"0", ",", "0", ",", "0.17"}], "}"}]}], "}"}], ",", "0.34"}],
       "]"}], ",", "\[IndentingNewLine]", 
     RowBox[{"Cylinder", "[", 
      RowBox[{
       RowBox[{"{", 
        RowBox[{
         RowBox[{"{", 
          RowBox[{"0", ",", "0", ",", "0"}], "}"}], ",", 
         RowBox[{"{", 
          RowBox[{"0", ",", "0", ",", "0.18"}], "}"}]}], "}"}], ",", "0.33"}],
       "]"}], ",", "\[IndentingNewLine]", 
     RowBox[{"Cylinder", "[", 
      RowBox[{
       RowBox[{"{", 
        RowBox[{
         RowBox[{"{", 
          RowBox[{"0", ",", "0", ",", "0"}], "}"}], ",", 
         RowBox[{"{", 
          RowBox[{"0", ",", "0", ",", "0.19"}], "}"}]}], "}"}], ",", "0.32"}],
       "]"}], ",", "\[IndentingNewLine]", "LightCyan", ",", 
     RowBox[{"Sphere", "[", 
      RowBox[{
       RowBox[{"{", 
        RowBox[{"0", ",", "0", ",", "0.15"}], "}"}], ",", "0.27"}], "]"}], 
     ",", "\[IndentingNewLine]", "Yellow", ",", 
     RowBox[{"Sphere", "[", 
      RowBox[{
       RowBox[{"{", 
        RowBox[{"0.27", ",", "0", ",", 
         RowBox[{"-", "0.05"}]}], "}"}], ",", "0.1"}], "]"}], ",", 
     "\[IndentingNewLine]", 
     RowBox[{"Sphere", "[", 
      RowBox[{
       RowBox[{"{", 
        RowBox[{
         RowBox[{"-", "0.27"}], ",", "0", ",", 
         RowBox[{"-", "0.05"}]}], "}"}], ",", "0.1"}], "]"}], ",", 
     "\[IndentingNewLine]", 
     RowBox[{"Sphere", "[", 
      RowBox[{
       RowBox[{"{", 
        RowBox[{"0", ",", 
         RowBox[{"-", "0.27"}], ",", 
         RowBox[{"-", "0.05"}]}], "}"}], ",", "0.1"}], "]"}], ",", 
     "\[IndentingNewLine]", 
     RowBox[{"Sphere", "[", 
      RowBox[{
       RowBox[{"{", 
        RowBox[{"0", ",", "0.27", ",", 
         RowBox[{"-", "0.05"}]}], "}"}], ",", "0.1"}], "]"}], ",", 
     "\[IndentingNewLine]", "Yellow", ",", 
     RowBox[{"{", 
      RowBox[{
       RowBox[{"Opacity", "[", "0.2", "]"}], ",", 
       RowBox[{"Cone", "[", 
        RowBox[{
         RowBox[{"{", 
          RowBox[{
           RowBox[{"{", 
            RowBox[{"0", ",", "0", ",", 
             RowBox[{"-", "0.9"}]}], "}"}], ",", 
           RowBox[{"{", 
            RowBox[{"0", ",", "0", ",", "0.2"}], "}"}]}], "}"}], ",", "0.3"}],
         "]"}]}], "}"}], ",", "\[IndentingNewLine]", "Gray", ",", 
     RowBox[{"Cylinder", "[", 
      RowBox[{
       RowBox[{"{", 
        RowBox[{
         RowBox[{"{", 
          RowBox[{"0", ",", "0", ",", 
           RowBox[{"-", "0.35"}]}], "}"}], ",", 
         RowBox[{"{", 
          RowBox[{"0", ",", "0", ",", 
           RowBox[{"-", "0.49"}]}], "}"}]}], "}"}], ",", "0.04"}], "]"}], ",",
      "\[IndentingNewLine]", "Black", ",", 
     RowBox[{"Sphere", "[", 
      RowBox[{
       RowBox[{"{", 
        RowBox[{"0.04", ",", 
         RowBox[{"-", "0.035"}], ",", 
         RowBox[{"-", "0.33"}]}], "}"}], ",", "0.01"}], "]"}], ",", 
     "\[IndentingNewLine]", "Black", ",", 
     RowBox[{"Sphere", "[", 
      RowBox[{
       RowBox[{"{", 
        RowBox[{"0.051", ",", "0.015", ",", 
         RowBox[{"-", "0.33"}]}], "}"}], ",", "0.01"}], "]"}], ",", 
     "\[IndentingNewLine]", "Cyan", ",", 
     RowBox[{"Sphere", "[", 
      RowBox[{
       RowBox[{"{", 
        RowBox[{"0", ",", "0", ",", 
         RowBox[{"-", "0.33"}]}], "}"}], ",", "0.06"}], "]"}], ",", 
     "\[IndentingNewLine]", "Cyan", ",", 
     RowBox[{"Tube", "[", 
      RowBox[{
       RowBox[{"{", 
        RowBox[{
         RowBox[{"{", 
          RowBox[{"0", ",", "0", ",", 
           RowBox[{"-", "0.35"}]}], "}"}], ",", 
         RowBox[{"{", 
          RowBox[{
           RowBox[{"-", "0.005"}], ",", 
           RowBox[{"-", "0.09"}], ",", 
           RowBox[{"-", "0.47"}]}], "}"}]}], "}"}], ",", "0.01"}], "]"}], ",",
      "\[IndentingNewLine]", "Cyan", ",", 
     RowBox[{"Tube", "[", 
      RowBox[{
       RowBox[{"{", 
        RowBox[{
         RowBox[{"{", 
          RowBox[{"0", ",", "0", ",", 
           RowBox[{"-", "0.35"}]}], "}"}], ",", 
         RowBox[{"{", 
          RowBox[{"0.005", ",", "0.09", ",", 
           RowBox[{"-", "0.47"}]}], "}"}]}], "}"}], ",", "0.01"}], "]"}], ",",
      "\[IndentingNewLine]", "Cyan", ",", 
     RowBox[{"Tube", "[", 
      RowBox[{
       RowBox[{"{", 
        RowBox[{
         RowBox[{"{", 
          RowBox[{
           RowBox[{"-", "0.025"}], ",", "0", ",", 
           RowBox[{"-", "0.4"}]}], "}"}], ",", 
         RowBox[{"{", 
          RowBox[{
           RowBox[{"-", "0.001"}], ",", "0.03", ",", 
           RowBox[{"-", "0.57"}]}], "}"}]}], "}"}], ",", "0.01"}], "]"}], ",",
      "\[IndentingNewLine]", "Cyan", ",", 
     RowBox[{"Tube", "[", 
      RowBox[{
       RowBox[{"{", 
        RowBox[{
         RowBox[{"{", 
          RowBox[{"0.025", ",", "0", ",", 
           RowBox[{"-", "0.4"}]}], "}"}], ",", 
         RowBox[{"{", 
          RowBox[{"0.001", ",", 
           RowBox[{"-", "0.03"}], ",", 
           RowBox[{"-", "0.57"}]}], "}"}]}], "}"}], ",", "0.01"}], "]"}], ",",
      "\[IndentingNewLine]", "Cyan", ",", 
     RowBox[{"Cone", "[", 
      RowBox[{
       RowBox[{"{", 
        RowBox[{
         RowBox[{"{", 
          RowBox[{"0.01", ",", "0", ",", 
           RowBox[{"-", "0.4"}]}], "}"}], ",", 
         RowBox[{"{", 
          RowBox[{
           RowBox[{"-", "0.05"}], ",", 
           RowBox[{"-", "0.1"}], ",", 
           RowBox[{"-", "0.27"}]}], "}"}]}], "}"}], ",", "0.02"}], "]"}], ",",
      "\[IndentingNewLine]", "Cyan", ",", 
     RowBox[{"Cone", "[", 
      RowBox[{
       RowBox[{"{", 
        RowBox[{
         RowBox[{"{", 
          RowBox[{"0.01", ",", "0", ",", 
           RowBox[{"-", "0.4"}]}], "}"}], ",", 
         RowBox[{"{", 
          RowBox[{"0.025", ",", "0.1", ",", 
           RowBox[{"-", "0.27"}]}], "}"}]}], "}"}], ",", "0.02"}], "]"}]}], 
    "\[IndentingNewLine]", "\[IndentingNewLine]", "}"}], ",", 
   RowBox[{"Boxed", "\[Rule]", "False"}]}], "]"}]], "Input"],

Cell[BoxData[
 Graphics3DBox[{
   {RGBColor[0.5, 0, 0.5], CylinderBox[{{0, 0, 0}, {0, 0, 0.01}}, 0.5], 
    CylinderBox[{{0, 0, 0}, {0, 0, 0.02}}, 0.49], 
    CylinderBox[{{0, 0, 0}, {0, 0, 0.03}}, 0.48], 
    CylinderBox[{{0, 0, 0}, {0, 0, 0.04}}, 0.47], 
    CylinderBox[{{0, 0, 0}, {0, 0, 0.05}}, 0.46], 
    CylinderBox[{{0, 0, 0}, {0, 0, 0.06}}, 0.45], 
    CylinderBox[{{0, 0, 0}, {0, 0, 0.07}}, 0.44], 
    CylinderBox[{{0, 0, 0}, {0, 0, 0.08}}, 0.43], 
    CylinderBox[{{0, 0, 0}, {0, 0, 0.09}}, 0.42], 
    CylinderBox[{{0, 0, 0}, {0, 0, 0.1}}, 0.41], 
    CylinderBox[{{0, 0, 0}, {0, 0, 0.11}}, 0.4], 
    CylinderBox[{{0, 0, 0}, {0, 0, 0.12}}, 0.39], 
    CylinderBox[{{0, 0, 0}, {0, 0, 0.13}}, 0.38], 
    CylinderBox[{{0, 0, 0}, {0, 0, 0.14}}, 0.37], 
    CylinderBox[{{0, 0, 0}, {0, 0, 0.15}}, 0.36], 
    CylinderBox[{{0, 0, 0}, {0, 0, 0.16}}, 0.35], 
    CylinderBox[{{0, 0, 0}, {0, 0, 0.17}}, 0.34], 
    CylinderBox[{{0, 0, 0}, {0, 0, 0.18}}, 0.33], 
    CylinderBox[{{0, 0, 0}, {0, 0, 0.19}}, 0.32]}, 
   {RGBColor[0.9, 1, 1], SphereBox[{0, 0, 0.15}, 0.27]}, 
   {RGBColor[1, 1, 0], SphereBox[{0.27, 0, -0.05}, 0.1], 
    SphereBox[{-0.27, 0, -0.05}, 0.1], SphereBox[{0, -0.27, -0.05}, 0.1], 
    SphereBox[{0, 0.27, -0.05}, 0.1]}, 
   {RGBColor[1, 1, 0], 
    {Opacity[0.2], ConeBox[{{0, 0, -0.9}, {0, 0, 0.2}}, 0.3]}}, 
   {GrayLevel[0.5], CylinderBox[{{0, 0, -0.35}, {0, 0, -0.49}}, 0.04]}, 
   {GrayLevel[0], SphereBox[{0.04, -0.035, -0.33}, 0.01]}, 
   {GrayLevel[0], SphereBox[{0.051, 0.015, -0.33}, 0.01]}, 
   {RGBColor[0, 1, 1], SphereBox[{0, 0, -0.33}, 0.06]}, 
   {RGBColor[0, 1, 1], 
    TubeBox[{{0, 0, -0.35}, {-0.005, -0.09, -0.47}}, 0.01]}, 
   {RGBColor[0, 1, 1], TubeBox[{{0, 0, -0.35}, {0.005, 0.09, -0.47}}, 0.01]}, 
   {RGBColor[0, 1, 1], 
    TubeBox[{{-0.025, 0, -0.4}, {-0.001, 0.03, -0.57}}, 0.01]}, 
   {RGBColor[0, 1, 1], 
    TubeBox[{{0.025, 0, -0.4}, {0.001, -0.03, -0.57}}, 0.01]}, 
   {RGBColor[0, 1, 1], 
    ConeBox[{{0.01, 0, -0.4}, {-0.05, -0.1, -0.27}}, 0.02]}, 
   {RGBColor[0, 1, 1], ConeBox[{{0.01, 0, -0.4}, {0.025, 0.1, -0.27}}, 0.02]}},
  AutomaticImageSize->True,
  Boxed->False,
  ImageSize->{346.0631831912271, 370.3948428076715},
  ViewPoint->{2.2956910253440515`, -2.4170334655066235`, 0.5811642992956639},
  ViewVertical->{0.44907044950648556`, -0.3817302516118464, 
   0.894779313425344}]], "Output",
 CellChangeTimes->{3.6231073274040728`*^9}]
}, Open  ]],

Cell[BoxData[{
 RowBox[{"\:4e09\:5e74A\:7d44", "\:3000", 
  "\:5c0f\:6c60\:62d3\:751f"}], "\[IndentingNewLine]", "UFO"}], "Input",
 CellChangeTimes->{{3.623107343659273*^9, 3.6231073854516726`*^9}}]
},
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[CellGroupData[{
Cell[1485, 35, 11177, 323, 772, "Input"],
Cell[12665, 360, 2413, 47, 385, "Output"]
}, Open  ]],
Cell[15093, 410, 198, 3, 52, "Input"]
}
]
*)

(* End of internal cache information *)

(* NotebookSignature ExppAXOFgqA@tBKUq7dCXrZ1 *)