(* 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[     16473,        449]
NotebookOptionsPosition[     17009,        444]
NotebookOutlinePosition[     17362,        460]
CellTagsIndexPosition[     17319,        457]
WindowFrame->Normal*)

(* Beginning of Notebook Content *)
Notebook[{

Cell[CellGroupData[{
Cell[BoxData[
 RowBox[{
  RowBox[{"Graphics3D", "[", "\[IndentingNewLine]", "\t", 
   RowBox[{
    RowBox[{"{", 
     RowBox[{
      RowBox[{"RGBColor", "[", 
       RowBox[{"0.4706", ",", "0.5289", ",", "0.51"}], "]"}], ",", 
      "\[IndentingNewLine]", "\t", 
      RowBox[{"Cylinder", "[", 
       RowBox[{
        RowBox[{"{", 
         RowBox[{
          RowBox[{"{", 
           RowBox[{"0", ",", "0", ",", "0"}], "}"}], ",", 
          RowBox[{"{", 
           RowBox[{"0", ",", "2", ",", "0"}], "}"}]}], "}"}], ",", "0.7"}], 
       "]"}], ",", "\[IndentingNewLine]", "\t", 
      RowBox[{"Cuboid", "[", 
       RowBox[{
        RowBox[{"{", 
         RowBox[{
          RowBox[{"-", "1"}], ",", "1.8", ",", "0.8"}], "}"}], ",", 
        RowBox[{"{", 
         RowBox[{"1", ",", "3", ",", 
          RowBox[{"-", "1"}]}], "}"}]}], "]"}], ",", "\[IndentingNewLine]", 
      "\t", 
      RowBox[{"Cuboid", "[", 
       RowBox[{
        RowBox[{"{", 
         RowBox[{
          RowBox[{"-", "0.9"}], ",", "1.8", ",", "1.3"}], "}"}], ",", 
        RowBox[{"{", 
         RowBox[{"0.9", ",", "2.8", ",", "0"}], "}"}]}], "]"}], ",", 
      "\[IndentingNewLine]", "\[IndentingNewLine]", "\t", 
      RowBox[{"Cuboid", "[", 
       RowBox[{
        RowBox[{"{", 
         RowBox[{
          RowBox[{"-", "1.05"}], ",", "2.65", ",", "0.85"}], "}"}], ",", 
        RowBox[{"{", 
         RowBox[{"1.05", ",", "2.75", ",", 
          RowBox[{"-", "1.05"}]}], "}"}]}], "]"}], ",", "\[IndentingNewLine]",
       "\t", 
      RowBox[{"Cuboid", "[", 
       RowBox[{
        RowBox[{"{", 
         RowBox[{
          RowBox[{"-", "1.05"}], ",", "2.2", ",", "0.85"}], "}"}], ",", 
        RowBox[{"{", 
         RowBox[{"1.05", ",", "2.3", ",", 
          RowBox[{"-", "1.05"}]}], "}"}]}], "]"}], ",", "\[IndentingNewLine]",
       "\t", 
      RowBox[{"Cuboid", "[", 
       RowBox[{
        RowBox[{"{", 
         RowBox[{
          RowBox[{"-", "0.95"}], ",", "2.2", ",", "1.35"}], "}"}], ",", 
        RowBox[{"{", 
         RowBox[{
          RowBox[{"-", "0.75"}], ",", "2.3", ",", "0"}], "}"}]}], "]"}], ",", 
      "\[IndentingNewLine]", "\t", 
      RowBox[{"Cuboid", "[", 
       RowBox[{
        RowBox[{"{", 
         RowBox[{"0.75", ",", "2.2", ",", "1.35"}], "}"}], ",", 
        RowBox[{"{", 
         RowBox[{"0.95", ",", "2.3", ",", "0"}], "}"}]}], "]"}], ",", 
      "\[IndentingNewLine]", "\[IndentingNewLine]", "\t", 
      RowBox[{"Cylinder", "[", 
       RowBox[{
        RowBox[{"{", 
         RowBox[{
          RowBox[{"{", 
           RowBox[{
            RowBox[{"-", "0.7"}], ",", "2.5", ",", "1.1"}], "}"}], ",", 
          RowBox[{"{", 
           RowBox[{
            RowBox[{"-", "0.7"}], ",", "2.83", ",", "1.1"}], "}"}]}], "}"}], 
        ",", "0.1"}], "]"}], ",", "\[IndentingNewLine]", "\t", 
      RowBox[{"Cylinder", "[", 
       RowBox[{
        RowBox[{"{", 
         RowBox[{
          RowBox[{"{", 
           RowBox[{"0.7", ",", "2.5", ",", "1.1"}], "}"}], ",", 
          RowBox[{"{", 
           RowBox[{"0.7", ",", "2.83", ",", "1.1"}], "}"}]}], "}"}], ",", 
        "0.1"}], "]"}], ",", "\[IndentingNewLine]", "\t", 
      RowBox[{"Cylinder", "[", 
       RowBox[{
        RowBox[{"{", 
         RowBox[{
          RowBox[{"{", 
           RowBox[{
            RowBox[{"-", "0.8"}], ",", "2.5", ",", "0"}], "}"}], ",", 
          RowBox[{"{", 
           RowBox[{
            RowBox[{"-", "0.8"}], ",", "3.05", ",", "0"}], "}"}]}], "}"}], 
        ",", "0.1"}], "]"}], ",", "\[IndentingNewLine]", "\t", 
      RowBox[{"Cylinder", "[", 
       RowBox[{
        RowBox[{"{", 
         RowBox[{
          RowBox[{"{", 
           RowBox[{"0.8", ",", "2.5", ",", "0"}], "}"}], ",", 
          RowBox[{"{", 
           RowBox[{"0.8", ",", "3.03", ",", "0"}], "}"}]}], "}"}], ",", 
        "0.1"}], "]"}], ",", "\[IndentingNewLine]", "\t", 
      RowBox[{"Cylinder", "[", 
       RowBox[{
        RowBox[{"{", 
         RowBox[{
          RowBox[{"{", 
           RowBox[{
            RowBox[{"-", "0.4"}], ",", "2.5", ",", "0.5"}], "}"}], ",", 
          RowBox[{"{", 
           RowBox[{
            RowBox[{"-", "0.4"}], ",", "3.03", ",", "0.5"}], "}"}]}], "}"}], 
        ",", "0.1"}], "]"}], ",", "\[IndentingNewLine]", "\t", 
      RowBox[{"Cylinder", "[", 
       RowBox[{
        RowBox[{"{", 
         RowBox[{
          RowBox[{"{", 
           RowBox[{"0.4", ",", "2.5", ",", "0.5"}], "}"}], ",", 
          RowBox[{"{", 
           RowBox[{"0.4", ",", "3.03", ",", "0.5"}], "}"}]}], "}"}], ",", 
        "0.1"}], "]"}], ",", "\[IndentingNewLine]", "\t", 
      RowBox[{"Cylinder", "[", 
       RowBox[{
        RowBox[{"{", 
         RowBox[{
          RowBox[{"{", 
           RowBox[{
            RowBox[{"-", "0.4"}], ",", "2.5", ",", 
            RowBox[{"-", "0.15"}]}], "}"}], ",", 
          RowBox[{"{", 
           RowBox[{
            RowBox[{"-", "0.4"}], ",", "3.03", ",", 
            RowBox[{"-", "0.15"}]}], "}"}]}], "}"}], ",", "0.1"}], "]"}], ",",
       "\[IndentingNewLine]", "\t", 
      RowBox[{"Cylinder", "[", 
       RowBox[{
        RowBox[{"{", 
         RowBox[{
          RowBox[{"{", 
           RowBox[{"0.4", ",", "2.5", ",", 
            RowBox[{"-", "0.15"}]}], "}"}], ",", 
          RowBox[{"{", 
           RowBox[{"0.4", ",", "3.03", ",", 
            RowBox[{"-", "0.15"}]}], "}"}]}], "}"}], ",", "0.1"}], "]"}], ",",
       "\[IndentingNewLine]", "\t", 
      RowBox[{"Cylinder", "[", 
       RowBox[{
        RowBox[{"{", 
         RowBox[{
          RowBox[{"{", 
           RowBox[{
            RowBox[{"-", "0.4"}], ",", "2.5", ",", 
            RowBox[{"-", "0.8"}]}], "}"}], ",", 
          RowBox[{"{", 
           RowBox[{
            RowBox[{"-", "0.4"}], ",", "3.03", ",", 
            RowBox[{"-", "0.8"}]}], "}"}]}], "}"}], ",", "0.1"}], "]"}], ",", 
      "\[IndentingNewLine]", "\t", 
      RowBox[{"Cylinder", "[", 
       RowBox[{
        RowBox[{"{", 
         RowBox[{
          RowBox[{"{", 
           RowBox[{"0.4", ",", "2.5", ",", 
            RowBox[{"-", "0.8"}]}], "}"}], ",", 
          RowBox[{"{", 
           RowBox[{"0.4", ",", "3.03", ",", 
            RowBox[{"-", "0.8"}]}], "}"}]}], "}"}], ",", "0.1"}], "]"}], ",", 
      "\[IndentingNewLine]", "\[IndentingNewLine]", "\t", 
      RowBox[{"Cylinder", "[", 
       RowBox[{
        RowBox[{"{", 
         RowBox[{
          RowBox[{"{", 
           RowBox[{
            RowBox[{"-", "0.3"}], ",", "2.8", ",", "0.8"}], "}"}], ",", 
          RowBox[{"{", 
           RowBox[{
            RowBox[{"-", "0.3"}], ",", "4", ",", "2.3"}], "}"}]}], "}"}], ",",
         "0.15"}], "]"}], ",", "\[IndentingNewLine]", "\t", 
      RowBox[{"Cylinder", "[", 
       RowBox[{
        RowBox[{"{", 
         RowBox[{
          RowBox[{"{", 
           RowBox[{"0.3", ",", "2.8", ",", "0.8"}], "}"}], ",", 
          RowBox[{"{", 
           RowBox[{"0.3", ",", "3.313", ",", "2.6499"}], "}"}]}], "}"}], ",", 
        "0.15"}], "]"}], ",", "\[IndentingNewLine]", "\[IndentingNewLine]", 
      "\t", 
      RowBox[{"Cylinder", "[", 
       RowBox[{
        RowBox[{"{", 
         RowBox[{
          RowBox[{"{", 
           RowBox[{
            RowBox[{"-", "0.3"}], ",", "2.8", ",", "0.8"}], "}"}], ",", 
          RowBox[{"{", 
           RowBox[{
            RowBox[{"-", "0.3"}], ",", "3.2", ",", "1.3"}], "}"}]}], "}"}], 
        ",", "0.19"}], "]"}], ",", "\[IndentingNewLine]", "\t", 
      RowBox[{"Cylinder", "[", 
       RowBox[{
        RowBox[{"{", 
         RowBox[{
          RowBox[{"{", 
           RowBox[{"0.3", ",", "2.8", ",", "0.8"}], "}"}], ",", 
          RowBox[{"{", 
           RowBox[{"0.3", ",", "2.9666", ",", "1.4"}], "}"}]}], "}"}], ",", 
        "0.19"}], "]"}], ",", "\[IndentingNewLine]", "\[IndentingNewLine]", 
      "\t", 
      RowBox[{"Cuboid", "[", 
       RowBox[{
        RowBox[{"{", 
         RowBox[{
          RowBox[{"-", "0.5"}], ",", "1.4", ",", "0.8"}], "}"}], ",", 
        RowBox[{"{", 
         RowBox[{
          RowBox[{"-", "0.3"}], ",", "1", ",", "0.6"}], "}"}]}], "]"}], ",", 
      "\[IndentingNewLine]", "\t", 
      RowBox[{"Cuboid", "[", 
       RowBox[{
        RowBox[{"{", 
         RowBox[{"0.3", ",", "1.4", ",", "0.8"}], "}"}], ",", 
        RowBox[{"{", 
         RowBox[{"0.5", ",", "1", ",", "0.6"}], "}"}]}], "]"}], ",", 
      "\[IndentingNewLine]", "\t", 
      RowBox[{"Cylinder", "[", 
       RowBox[{
        RowBox[{"{", 
         RowBox[{
          RowBox[{"{", 
           RowBox[{"0", ",", "0.7", ",", "0"}], "}"}], ",", 
          RowBox[{"{", 
           RowBox[{"0", ",", "0.7", ",", 
            RowBox[{"-", "1.5"}]}], "}"}]}], "}"}], ",", "0.1"}], "]"}], ",", 
      "\[IndentingNewLine]", "\[IndentingNewLine]", "\t", 
      RowBox[{"Cylinder", "[", 
       RowBox[{
        RowBox[{"{", 
         RowBox[{
          RowBox[{"{", 
           RowBox[{"0", ",", "1", ",", 
            RowBox[{"-", "1.3"}]}], "}"}], ",", 
          RowBox[{"{", 
           RowBox[{
            RowBox[{"-", "0.02"}], ",", "1", ",", 
            RowBox[{"-", "1.35"}]}], "}"}]}], "}"}], ",", "0.3"}], "]"}], ",",
       "\[IndentingNewLine]", "\t", 
      RowBox[{"Cylinder", "[", 
       RowBox[{
        RowBox[{"{", 
         RowBox[{
          RowBox[{"{", 
           RowBox[{
            RowBox[{"-", "0.2598"}], ",", "0.55", ",", 
            RowBox[{"-", "1.3"}]}], "}"}], ",", 
          RowBox[{"{", 
           RowBox[{
            RowBox[{"-", "0.2698"}], ",", "0.532679", ",", 
            RowBox[{"-", "1.35"}]}], "}"}]}], "}"}], ",", "0.3"}], "]"}], ",",
       "\[IndentingNewLine]", "\t", 
      RowBox[{"Cylinder", "[", 
       RowBox[{
        RowBox[{"{", 
         RowBox[{
          RowBox[{"{", 
           RowBox[{"0.2598", ",", "0.55", ",", 
            RowBox[{"-", "1.3"}]}], "}"}], ",", 
          RowBox[{"{", 
           RowBox[{"0.2848", ",", "0.56732", ",", 
            RowBox[{"-", "1.35"}]}], "}"}]}], "}"}], ",", "0.3"}], "]"}], ",",
       "\[IndentingNewLine]", "\[IndentingNewLine]", "\t", 
      RowBox[{"RGBColor", "[", 
       RowBox[{"0.05", ",", "0.05", ",", "0.05"}], "]"}], ",", 
      "\[IndentingNewLine]", "\t", 
      RowBox[{"Cuboid", "[", 
       RowBox[{
        RowBox[{"{", 
         RowBox[{
          RowBox[{"-", "0.6"}], ",", "2.2", ",", "1.3"}], "}"}], ",", 
        RowBox[{"{", 
         RowBox[{
          RowBox[{"-", "0.4"}], ",", "2.6", ",", "1.35"}], "}"}]}], "]"}], 
      ",", "\[IndentingNewLine]", "\t", 
      RowBox[{"Cuboid", "[", 
       RowBox[{
        RowBox[{"{", 
         RowBox[{"0.6", ",", "2.2", ",", "1.3"}], "}"}], ",", 
        RowBox[{"{", 
         RowBox[{"0.4", ",", "2.6", ",", "1.35"}], "}"}]}], "]"}], ",", 
      "\[IndentingNewLine]", "\[IndentingNewLine]", "\t", 
      RowBox[{"Cylinder", "[", 
       RowBox[{
        RowBox[{"{", 
         RowBox[{
          RowBox[{"{", 
           RowBox[{
            RowBox[{"-", "0.3"}], ",", "2", ",", "1.3"}], "}"}], ",", 
          RowBox[{"{", 
           RowBox[{
            RowBox[{"-", "0.15"}], ",", "1.9", ",", "1.3"}], "}"}]}], "}"}], 
        ",", "0.02"}], "]"}], ",", "\[IndentingNewLine]", "\t", 
      RowBox[{"Cylinder", "[", 
       RowBox[{
        RowBox[{"{", 
         RowBox[{
          RowBox[{"{", 
           RowBox[{
            RowBox[{"-", "0.15"}], ",", "1.9", ",", "1.3"}], "}"}], ",", 
          RowBox[{"{", 
           RowBox[{"0", ",", "2", ",", "1.3"}], "}"}]}], "}"}], ",", "0.02"}],
        "]"}], ",", "\[IndentingNewLine]", "\t", 
      RowBox[{"Cylinder", "[", 
       RowBox[{
        RowBox[{"{", 
         RowBox[{
          RowBox[{"{", 
           RowBox[{"0.15", ",", "1.9", ",", "1.3"}], "}"}], ",", 
          RowBox[{"{", 
           RowBox[{"0", ",", "2", ",", "1.3"}], "}"}]}], "}"}], ",", "0.02"}],
        "]"}], ",", "\[IndentingNewLine]", "\t", 
      RowBox[{"Cylinder", "[", 
       RowBox[{
        RowBox[{"{", 
         RowBox[{
          RowBox[{"{", 
           RowBox[{"0.3", ",", "2", ",", "1.3"}], "}"}], ",", 
          RowBox[{"{", 
           RowBox[{"0.15", ",", "1.9", ",", "1.3"}], "}"}]}], "}"}], ",", 
        "0.02"}], "]"}], ",", "\[IndentingNewLine]", "\[IndentingNewLine]", 
      "\t", 
      RowBox[{"RGBColor", "[", 
       RowBox[{"0.95", ",", "0.95", ",", "0.95"}], "]"}], ",", 
      RowBox[{"Cylinder", "[", 
       RowBox[{
        RowBox[{"{", 
         RowBox[{
          RowBox[{"{", 
           RowBox[{"0", ",", 
            RowBox[{"-", "0.1"}], ",", "0"}], "}"}], ",", 
          RowBox[{"{", 
           RowBox[{"0", ",", "0.4", ",", "0"}], "}"}]}], "}"}], ",", "1.2"}], 
       "]"}]}], "\[IndentingNewLine]", "}"}], ",", 
    RowBox[{"Boxed", "\[Rule]", "False"}]}], "\[IndentingNewLine]", "\t", 
   "]"}], "\[IndentingNewLine]"}]], "Input"],

Cell[BoxData[
 Graphics3DBox[{
   {RGBColor[0.4706, 0.5289, 0.51], CylinderBox[{{0, 0, 0}, {0, 2, 0}}, 0.7], 
    CuboidBox[{-1, 1.8, 0.8}, {1, 3, -1}], 
    CuboidBox[{-0.9, 1.8, 1.3}, {0.9, 2.8, 0}], 
    CuboidBox[{-1.05, 2.65, 0.85}, {1.05, 2.75, -1.05}], 
    CuboidBox[{-1.05, 2.2, 0.85}, {1.05, 2.3, -1.05}], 
    CuboidBox[{-0.95, 2.2, 1.35}, {-0.75, 2.3, 0}], 
    CuboidBox[{0.75, 2.2, 1.35}, {0.95, 2.3, 0}], 
    CylinderBox[{{-0.7, 2.5, 1.1}, {-0.7, 2.83, 1.1}}, 0.1], 
    CylinderBox[{{0.7, 2.5, 1.1}, {0.7, 2.83, 1.1}}, 0.1], 
    CylinderBox[{{-0.8, 2.5, 0}, {-0.8, 3.05, 0}}, 0.1], 
    CylinderBox[{{0.8, 2.5, 0}, {0.8, 3.03, 0}}, 0.1], 
    CylinderBox[{{-0.4, 2.5, 0.5}, {-0.4, 3.03, 0.5}}, 0.1], 
    CylinderBox[{{0.4, 2.5, 0.5}, {0.4, 3.03, 0.5}}, 0.1], 
    CylinderBox[{{-0.4, 2.5, -0.15}, {-0.4, 3.03, -0.15}}, 0.1], 
    CylinderBox[{{0.4, 2.5, -0.15}, {0.4, 3.03, -0.15}}, 0.1], 
    CylinderBox[{{-0.4, 2.5, -0.8}, {-0.4, 3.03, -0.8}}, 0.1], 
    CylinderBox[{{0.4, 2.5, -0.8}, {0.4, 3.03, -0.8}}, 0.1], 
    CylinderBox[{{-0.3, 2.8, 0.8}, {-0.3, 4, 2.3}}, 0.15], 
    CylinderBox[{{0.3, 2.8, 0.8}, {0.3, 3.313, 2.6499}}, 0.15], 
    CylinderBox[{{-0.3, 2.8, 0.8}, {-0.3, 3.2, 1.3}}, 0.19], 
    CylinderBox[{{0.3, 2.8, 0.8}, {0.3, 2.9666, 1.4}}, 0.19], 
    CuboidBox[{-0.5, 1.4, 0.8}, {-0.3, 1, 0.6}], 
    CuboidBox[{0.3, 1.4, 0.8}, {0.5, 1, 0.6}], 
    CylinderBox[{{0, 0.7, 0}, {0, 0.7, -1.5}}, 0.1], 
    CylinderBox[{{0, 1, -1.3}, {-0.02, 1, -1.35}}, 0.3], 
    CylinderBox[{{-0.2598, 0.55, -1.3}, {-0.2698, 0.532679, -1.35}}, 0.3], 
    CylinderBox[{{0.2598, 0.55, -1.3}, {0.2848, 0.56732, -1.35}}, 0.3]}, 
   {RGBColor[0.05, 0.05, 0.05], 
    CuboidBox[{-0.6, 2.2, 1.3}, {-0.4, 2.6, 1.35}], 
    CuboidBox[{0.6, 2.2, 1.3}, {0.4, 2.6, 1.35}], 
    CylinderBox[{{-0.3, 2, 1.3}, {-0.15, 1.9, 1.3}}, 0.02], 
    CylinderBox[{{-0.15, 1.9, 1.3}, {0, 2, 1.3}}, 0.02], 
    CylinderBox[{{0.15, 1.9, 1.3}, {0, 2, 1.3}}, 0.02], 
    CylinderBox[{{0.3, 2, 1.3}, {0.15, 1.9, 1.3}}, 0.02]}, 
   {RGBColor[0.95, 0.95, 0.95], 
    CylinderBox[{{0, -0.1, 0}, {0, 0.4, 0}}, 1.2]}},
  AutomaticImageSize->True,
  Boxed->False,
  ImageSize->{364.28436366799906`, 416.3771306223318},
  ViewPoint->{-1.9730730545910888`, 0.7784656531437227, 2.636469978611951},
  ViewVertical->{-0.3791823221583575, 0.9206772829073618, 
   0.3268936368173692}]], "Output",
 CellChangeTimes->{3.623714686719738*^9}]
}, Open  ]],

Cell[BoxData[{
 RowBox[{"3", "D", " ", 
  "\:829d\:7530"}], "\[IndentingNewLine]", "\:9023\:88c5\:7832\:3061\:3083\
\:3093\:3092\:4f5c\:308a\:307e\:3057\:305f"}], "Input",
 CellChangeTimes->{{3.623714736724094*^9, 3.62371476375924*^9}, {
  3.623714839451411*^9, 3.6237148454106874`*^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, 12800, 353, 992, "Input"],
Cell[14288, 390, 2415, 44, 431, "Output"]
}, Open  ]],
Cell[16718, 437, 287, 5, 52, "Input"]
}
]
*)

(* End of internal cache information *)

(* NotebookSignature IvTFG6CSLu3rAAKD52bxlk9x *)