(* 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[     14492,        377]
NotebookOptionsPosition[     15026,        372]
NotebookOutlinePosition[     15380,        388]
CellTagsIndexPosition[     15337,        385]
WindowFrame->Normal*)

(* Beginning of Notebook Content *)
Notebook[{

Cell[CellGroupData[{
Cell[BoxData[
 RowBox[{
  RowBox[{"Graphics3D", "[", 
   RowBox[{
    RowBox[{"{", "\[IndentingNewLine]", "           ", 
     RowBox[{"Green", ",", 
      RowBox[{"Cuboid", "[", 
       RowBox[{"{", 
        RowBox[{
         RowBox[{"{", 
          RowBox[{"0", ",", "0", ",", "0"}], "}"}], ",", 
         RowBox[{"{", 
          RowBox[{"5", ",", "0.1", ",", "2"}], "}"}]}], "}"}], "]"}], ",", 
      "\[IndentingNewLine]", "           ", "White", ",", 
      RowBox[{"Cuboid", "[", 
       RowBox[{"{", 
        RowBox[{
         RowBox[{"{", 
          RowBox[{
           RowBox[{"-", "0.05"}], ",", 
           RowBox[{"-", "0.025"}], ",", "2"}], "}"}], ",", 
         RowBox[{"{", 
          RowBox[{"5.05", ",", "0.1", ",", "2.05"}], "}"}]}], "}"}], "]"}], 
      ",", "\[IndentingNewLine]", "           ", 
      RowBox[{"Cylinder", "[", 
       RowBox[{
        RowBox[{"{", 
         RowBox[{
          RowBox[{"{", 
           RowBox[{
            RowBox[{"-", "0.05"}], ",", 
            RowBox[{"-", "0.025"}], ",", "2.025"}], "}"}], ",", 
          RowBox[{"{", 
           RowBox[{"5.05", ",", 
            RowBox[{"-", "0.025"}], ",", "2.025"}], "}"}]}], "}"}], ",", 
        "0.025"}], "]"}], ",", "\[IndentingNewLine]", "           ", 
      RowBox[{"Cuboid", "[", 
       RowBox[{"{", 
        RowBox[{
         RowBox[{"{", 
          RowBox[{
           RowBox[{"-", "0.05"}], ",", 
           RowBox[{"-", "0.3"}], ",", "0.1"}], "}"}], ",", 
         RowBox[{"{", 
          RowBox[{"5.05", ",", "0.1", ",", "0"}], "}"}]}], "}"}], "]"}], ",", 
      "\[IndentingNewLine]", "           ", 
      RowBox[{"Cuboid", "[", 
       RowBox[{"{", 
        RowBox[{
         RowBox[{"{", 
          RowBox[{
           RowBox[{"-", "0.05"}], ",", 
           RowBox[{"-", "0.4"}], ",", "0"}], "}"}], ",", 
         RowBox[{"{", 
          RowBox[{"5.05", ",", 
           RowBox[{"-", "0.3"}], ",", "0.15"}], "}"}]}], "}"}], "]"}], ",", 
      "\[IndentingNewLine]", "          ", 
      RowBox[{"Cylinder", "[", 
       RowBox[{
        RowBox[{"{", 
         RowBox[{
          RowBox[{"{", 
           RowBox[{
            RowBox[{"-", "0.05"}], ",", 
            RowBox[{"-", "0.35"}], ",", "0.15"}], "}"}], ",", 
          RowBox[{"{", 
           RowBox[{"5.05", ",", 
            RowBox[{"-", "0.35"}], ",", "0.15"}], "}"}]}], "}"}], ",", 
        "0.05"}], "]"}], ",", "\[IndentingNewLine]", "          ", 
      RowBox[{"Cuboid", "[", 
       RowBox[{"{", 
        RowBox[{
         RowBox[{"{", 
          RowBox[{
           RowBox[{"-", "0.05"}], ",", "0", ",", "0"}], "}"}], ",", 
         RowBox[{"{", 
          RowBox[{"0", ",", "0.1", ",", "2"}], "}"}]}], "}"}], "]"}], ",", 
      "\[IndentingNewLine]", "         ", 
      RowBox[{"Cuboid", "[", 
       RowBox[{"{", 
        RowBox[{
         RowBox[{"{", 
          RowBox[{"5", ",", "0", ",", "0"}], "}"}], ",", 
         RowBox[{"{", 
          RowBox[{"5.05", ",", "0.1", ",", "2.05"}], "}"}]}], "}"}], "]"}], 
      ",", "\[IndentingNewLine]", "         ", 
      RowBox[{"Cuboid", "[", 
       RowBox[{"{", 
        RowBox[{
         RowBox[{"{", 
          RowBox[{"2.25", ",", 
           RowBox[{"-", "0.3"}], ",", 
           RowBox[{"-", "0.2"}]}], "}"}], ",", 
         RowBox[{"{", 
          RowBox[{"2.75", ",", "0", ",", "0"}], "}"}]}], "}"}], "]"}], ",", 
      "\[IndentingNewLine]", "         ", 
      RowBox[{"Cylinder", "[", 
       RowBox[{
        RowBox[{"{", 
         RowBox[{
          RowBox[{"{", 
           RowBox[{"2.25", ",", 
            RowBox[{"-", "0.3"}], ",", 
            RowBox[{"-", "0.1"}]}], "}"}], ",", 
          RowBox[{"{", 
           RowBox[{"2.75", ",", 
            RowBox[{"-", "0.3"}], ",", 
            RowBox[{"-", "0.1"}]}], "}"}]}], "}"}], ",", "0.1"}], "]"}], ",", 
      "\[IndentingNewLine]", "         ", 
      RowBox[{"Cuboid", "[", 
       RowBox[{"{", 
        RowBox[{
         RowBox[{"{", 
          RowBox[{"2.35", ",", 
           RowBox[{"-", "0.42"}], ",", 
           RowBox[{"-", "0.09"}]}], "}"}], ",", 
         RowBox[{"{", 
          RowBox[{"2.65", ",", 
           RowBox[{"-", "0.39"}], ",", 
           RowBox[{"-", "0.11"}]}], "}"}]}], "}"}], "]"}], ",", "    ", 
      "\[IndentingNewLine]", "         ", "Orange", ",", 
      RowBox[{"Cuboid", "[", 
       RowBox[{"{", 
        RowBox[{
         RowBox[{"{", 
          RowBox[{"1.5", ",", 
           RowBox[{"-", "0.3"}], ",", "0.2"}], "}"}], ",", 
         RowBox[{"{", 
          RowBox[{"2.1", ",", "0", ",", "0.3"}], "}"}]}], "}"}], "]"}], ",", 
      "\[IndentingNewLine]", "          ", "Black", ",", 
      RowBox[{"Cuboid", "[", 
       RowBox[{"{", 
        RowBox[{
         RowBox[{"{", 
          RowBox[{"1.6", ",", 
           RowBox[{"-", "0.28"}], ",", "0.17"}], "}"}], ",", 
         RowBox[{"{", 
          RowBox[{"2", ",", 
           RowBox[{"-", "0.02"}], ",", "0.2"}], "}"}]}], "}"}], "]"}], ",", 
      "\[IndentingNewLine]", "          ", 
      RowBox[{"Cylinder", "[", 
       RowBox[{
        RowBox[{"{", 
         RowBox[{
          RowBox[{"{", 
           RowBox[{"1.6", ",", 
            RowBox[{"-", "0.15"}], ",", "0.15"}], "}"}], ",", 
          RowBox[{"{", 
           RowBox[{"2", ",", 
            RowBox[{"-", "0.15"}], ",", "0.15"}], "}"}]}], "}"}], ",", 
        "0.13"}], "]"}], ",", "\[IndentingNewLine]", "          ", 
      RowBox[{"Sphere", "[", 
       RowBox[{
        RowBox[{"{", 
         RowBox[{"1.6", ",", 
          RowBox[{"-", "0.3"}], ",", "0.25"}], "}"}], ",", "0.025"}], "]"}], 
      ",", "\[IndentingNewLine]", "          ", 
      RowBox[{"Sphere", "[", 
       RowBox[{
        RowBox[{"{", 
         RowBox[{"1.7", ",", 
          RowBox[{"-", "0.3"}], ",", "0.25"}], "}"}], ",", "0.025"}], "]"}], 
      ",", "\[IndentingNewLine]", "          ", 
      RowBox[{"Sphere", "[", 
       RowBox[{
        RowBox[{"{", 
         RowBox[{"1.8", ",", 
          RowBox[{"-", "0.3"}], ",", "0.25"}], "}"}], ",", "0.025"}], "]"}], 
      ",", "\[IndentingNewLine]", "          ", 
      RowBox[{"Sphere", "[", 
       RowBox[{
        RowBox[{"{", 
         RowBox[{"1.9", ",", 
          RowBox[{"-", "0.3"}], ",", "0.25"}], "}"}], ",", "0.025"}], "]"}], 
      ",", "\[IndentingNewLine]", "          ", 
      RowBox[{"Sphere", "[", 
       RowBox[{
        RowBox[{"{", 
         RowBox[{"2", ",", 
          RowBox[{"-", "0.3"}], ",", "0.25"}], "}"}], ",", "0.025"}], "]"}], 
      ",", "\[IndentingNewLine]", "          ", 
      RowBox[{"Sphere", "[", 
       RowBox[{
        RowBox[{"{", 
         RowBox[{"1.5", ",", 
          RowBox[{"-", "0.15"}], ",", "0.25"}], "}"}], ",", "0.03"}], "]"}], 
      ",", "\[IndentingNewLine]", "          ", 
      RowBox[{"Sphere", "[", 
       RowBox[{
        RowBox[{"{", 
         RowBox[{"2.1", ",", 
          RowBox[{"-", "0.15"}], ",", "0.25"}], "}"}], ",", "0.03"}], "]"}], 
      ",", "\[IndentingNewLine]", "          ", "Orange", ",", 
      RowBox[{"Cuboid", "[", 
       RowBox[{"{", 
        RowBox[{
         RowBox[{"{", 
          RowBox[{"3.5", ",", 
           RowBox[{"-", "0.3"}], ",", "0.2"}], "}"}], ",", 
         RowBox[{"{", 
          RowBox[{"4.1", ",", "0", ",", "0.3"}], "}"}]}], "}"}], "]"}], ",", 
      "\[IndentingNewLine]", "          ", "Black", ",", 
      RowBox[{"Cuboid", "[", 
       RowBox[{"{", 
        RowBox[{
         RowBox[{"{", 
          RowBox[{"3.6", ",", 
           RowBox[{"-", "0.28"}], ",", "0.17"}], "}"}], ",", 
         RowBox[{"{", 
          RowBox[{"4", ",", 
           RowBox[{"-", "0.02"}], ",", "0.2"}], "}"}]}], "}"}], "]"}], ",", 
      "\[IndentingNewLine]", "          ", 
      RowBox[{"Cylinder", "[", 
       RowBox[{
        RowBox[{"{", 
         RowBox[{
          RowBox[{"{", 
           RowBox[{"3.6", ",", 
            RowBox[{"-", "0.15"}], ",", "0.15"}], "}"}], ",", 
          RowBox[{"{", 
           RowBox[{"4", ",", 
            RowBox[{"-", "0.15"}], ",", "0.15"}], "}"}]}], "}"}], ",", 
        "0.13"}], "]"}], ",", "\[IndentingNewLine]", "          ", 
      RowBox[{"Sphere", "[", 
       RowBox[{
        RowBox[{"{", 
         RowBox[{"3.6", ",", 
          RowBox[{"-", "0.3"}], ",", "0.25"}], "}"}], ",", "0.025"}], "]"}], 
      ",", "\[IndentingNewLine]", "          ", 
      RowBox[{"Sphere", "[", 
       RowBox[{
        RowBox[{"{", 
         RowBox[{"3.7", ",", 
          RowBox[{"-", "0.3"}], ",", "0.25"}], "}"}], ",", "0.025"}], "]"}], 
      ",", "\[IndentingNewLine]", "          ", 
      RowBox[{"Sphere", "[", 
       RowBox[{
        RowBox[{"{", 
         RowBox[{"3.8", ",", 
          RowBox[{"-", "0.3"}], ",", "0.25"}], "}"}], ",", "0.025"}], "]"}], 
      ",", "\[IndentingNewLine]", "          ", 
      RowBox[{"Sphere", "[", 
       RowBox[{
        RowBox[{"{", 
         RowBox[{"3.9", ",", 
          RowBox[{"-", "0.3"}], ",", "0.25"}], "}"}], ",", "0.025"}], "]"}], 
      ",", "\[IndentingNewLine]", "          ", 
      RowBox[{"Sphere", "[", 
       RowBox[{
        RowBox[{"{", 
         RowBox[{"4", ",", 
          RowBox[{"-", "0.3"}], ",", "0.25"}], "}"}], ",", "0.025"}], "]"}], 
      ",", "\[IndentingNewLine]", "          ", 
      RowBox[{"Sphere", "[", 
       RowBox[{
        RowBox[{"{", 
         RowBox[{"3.5", ",", 
          RowBox[{"-", "0.15"}], ",", "0.25"}], "}"}], ",", "0.03"}], "]"}], 
      ",", "\[IndentingNewLine]", "          ", 
      RowBox[{"Sphere", "[", 
       RowBox[{
        RowBox[{"{", 
         RowBox[{"4.1", ",", 
          RowBox[{"-", "0.15"}], ",", "0.25"}], "}"}], ",", "0.03"}], "]"}]}],
      "\[IndentingNewLine]", "       ", "}"}], ",", 
    RowBox[{"Boxed", "\[Rule]", "False"}]}], "\[IndentingNewLine]", "]"}], 
  " "}]], "Input",
 CellChangeTimes->CompressedData["
1:eJwdxUsogwEAB/BZzZtpWluizRRhF5vH1dKYtZV2QGSzFWJ5RAjFx2oZkaZY
GRcZaZOWx0wb1rAJ2YnD+pqMAxeRlLz23+HXL1vTrWihUigUTgQ2v8dblD/P
oq5C0oXX3MUeTErkH7hf6P/ClmpzrCpykD6SjI1LNgHe0OWV4Q7pdx3mueRN
eHifq8b1pyttOHZ9dAhzV3PHsLhCH91Uz5rE0zL1Mh7ocVmwalG5hdl7h3b8
ZKPv4JXLoAuTMRw3viPyvZiouo8+mnnmw2oP8xYnGAIkbhSFwjhOaXzBoewt
anPk15OMONz7+JGIaa3FaXhiwRn92hpg49LAURau9Cl4WNtH8PHchUyAGRZt
OT6eqhHj9hmHFHeWJKtwAX9+HHvetg3YSviiM3T6Wew/IHaxiZnjxA6rxosH
FVeXWEzaSdygooWxoL32E98UCX/xZpLoD4ceUmnqyLJzQQr2sxnpWOJmsPA/
zJQWjg==
  "]],

Cell[BoxData[
 Graphics3DBox[{
   {RGBColor[0, 1, 0], CuboidBox[{{0, 0, 0}, {5, 0.1, 2}}]}, 
   {GrayLevel[1], CuboidBox[{{-0.05, -0.025, 2}, {5.05, 0.1, 2.05}}], 
    CylinderBox[{{-0.05, -0.025, 2.025}, {5.05, -0.025, 2.025}}, 0.025], 
    CuboidBox[{{-0.05, -0.3, 0.1}, {5.05, 0.1, 0}}], 
    CuboidBox[{{-0.05, -0.4, 0}, {5.05, -0.3, 0.15}}], 
    CylinderBox[{{-0.05, -0.35, 0.15}, {5.05, -0.35, 0.15}}, 0.05], 
    CuboidBox[{{-0.05, 0, 0}, {0, 0.1, 2}}], 
    CuboidBox[{{5, 0, 0}, {5.05, 0.1, 2.05}}], 
    CuboidBox[{{2.25, -0.3, -0.2}, {2.75, 0, 0}}], 
    CylinderBox[{{2.25, -0.3, -0.1}, {2.75, -0.3, -0.1}}, 0.1], 
    CuboidBox[{{2.35, -0.42, -0.09}, {2.65, -0.39, -0.11}}]}, 
   {RGBColor[1, 0.5, 0], CuboidBox[{{1.5, -0.3, 0.2}, {2.1, 0, 0.3}}]}, 
   {GrayLevel[0], CuboidBox[{{1.6, -0.28, 0.17}, {2, -0.02, 0.2}}], 
    CylinderBox[{{1.6, -0.15, 0.15}, {2, -0.15, 0.15}}, 0.13], 
    SphereBox[{1.6, -0.3, 0.25}, 0.025], SphereBox[{1.7, -0.3, 0.25}, 0.025], 
    SphereBox[{1.8, -0.3, 0.25}, 0.025], SphereBox[{1.9, -0.3, 0.25}, 0.025], 
    SphereBox[{2, -0.3, 0.25}, 0.025], SphereBox[{1.5, -0.15, 0.25}, 0.03], 
    SphereBox[{2.1, -0.15, 0.25}, 0.03]}, 
   {RGBColor[1, 0.5, 0], CuboidBox[{{3.5, -0.3, 0.2}, {4.1, 0, 0.3}}]}, 
   {GrayLevel[0], CuboidBox[{{3.6, -0.28, 0.17}, {4, -0.02, 0.2}}], 
    CylinderBox[{{3.6, -0.15, 0.15}, {4, -0.15, 0.15}}, 0.13], 
    SphereBox[{3.6, -0.3, 0.25}, 0.025], SphereBox[{3.7, -0.3, 0.25}, 0.025], 
    SphereBox[{3.8, -0.3, 0.25}, 0.025], SphereBox[{3.9, -0.3, 0.25}, 0.025], 
    SphereBox[{4, -0.3, 0.25}, 0.025], SphereBox[{3.5, -0.15, 0.25}, 0.03], 
    SphereBox[{4.1, -0.15, 0.25}, 0.03]}},
  AutomaticImageSize->True,
  Boxed->False,
  ImageSize->{472.42758260615375`, 441.9404703193766},
  ViewPoint->{-2.70125158646632, -1.8692775952268006`, 0.8118134875673866},
  ViewVertical->{-0.33538015904598295`, -1.9962162625617268`, 
   2.0849555257145282`}]], "Output",
 CellChangeTimes->{{3.622501724508978*^9, 3.622501747529978*^9}, 
   3.622501782437978*^9, {3.622502053113978*^9, 3.622502073381978*^9}, {
   3.6225023857950706`*^9, 3.622502422035694*^9}, {3.622502816880175*^9, 
   3.6225028463691235`*^9}, 3.6225030007125564`*^9, {3.6225031638218656`*^9, 
   3.622503178798363*^9}, {3.622503309827465*^9, 3.6225033987743587`*^9}, {
   3.6225034307135525`*^9, 3.622503437354216*^9}, 3.622503503852865*^9, {
   3.6225036472172003`*^9, 3.6225036845499334`*^9}, {3.622503744791957*^9, 
   3.6225037777212496`*^9}, {3.6225038150849857`*^9, 3.6225038527007465`*^9}, 
   3.622503977140189*^9, {3.6225040415776324`*^9, 3.622504080124487*^9}, {
   3.622504325320004*^9, 3.622504379337405*^9}, 3.622504436011072*^9, 
   3.6225045543199015`*^9, {3.622504606051074*^9, 3.6225046345079193`*^9}}]
}, Open  ]],

Cell[BoxData[{
 RowBox[{
  RowBox[{"3", "C", "  ", "\:9f4b\:85e4"}], "\:3000"}], "\[IndentingNewLine]", 
 RowBox[{"\:3000\:3000", 
  RowBox[{
  "\:3067\:304d\:308b\:9650\:308a\:7d30\:304b\:304f\:4f5c\:308a\:307e\:3057\
\:305f", "\:3002", 
   "\:3088\:304f\:898b\:308b\:3068\:9ed2\:677f\:6d88\:3057\:306b\:30b7\:30ea\
\:30f3\:30c0", "\:30fc", "\:5165\:3063\:3066\:3044\:307e\:3059", 
   "\:3002"}]}]}], "Input",
 CellChangeTimes->{{3.622505266163726*^9, 3.6225053697584467`*^9}}]
},
WindowSize->{1264, 888},
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, 10290, 277, 692, "Input"],
Cell[11778, 314, 2751, 43, 457, "Output"]
}, Open  ]],
Cell[14544, 360, 478, 10, 52, "Input"]
}
]
*)

(* End of internal cache information *)

(* NotebookSignature vuDZrz7kZI5gqBws1z3uO86w *)