(* 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[      5538,        154]
NotebookOptionsPosition[      6079,        149]
NotebookOutlinePosition[      6432,        165]
CellTagsIndexPosition[      6389,        162]
WindowFrame->Normal*)

(* Beginning of Notebook Content *)
Notebook[{

Cell[CellGroupData[{
Cell[BoxData[
 RowBox[{"Graphics3D", "[", "\[IndentingNewLine]", "\t\t\t", 
  RowBox[{
   RowBox[{"{", "\[IndentingNewLine]", "\t\t\t", 
    RowBox[{"Magenta", ",", 
     RowBox[{"Cylinder", "[", 
      RowBox[{
       RowBox[{"{", 
        RowBox[{
         RowBox[{"{", 
          RowBox[{"2.5", ",", "2", ",", "2.6"}], "}"}], ",", 
         RowBox[{"{", 
          RowBox[{"2.5", ",", "2", ",", "1"}], "}"}]}], "}"}], ",", "0.5"}], 
      "]"}], ",", "\[IndentingNewLine]", "\t\t\t", "Brown", ",", 
     RowBox[{"Tube", "[", 
      RowBox[{
       RowBox[{"{", 
        RowBox[{
         RowBox[{"{", 
          RowBox[{"2.5", ",", "2", ",", "1.8"}], "}"}], ",", 
         RowBox[{"{", 
          RowBox[{"2.5", ",", "7", ",", "1.8"}], "}"}]}], "}"}], ",", "0.1"}],
       "]"}], ",", 
     RowBox[{"Boxed", "\[Rule]", "False"}], ",", "\[IndentingNewLine]", 
     "\t\t\t", "Green", ",", 
     RowBox[{"Cylinder", "[", 
      RowBox[{
       RowBox[{"{", 
        RowBox[{
         RowBox[{"{", 
          RowBox[{"4", ",", "2", ",", "3"}], "}"}], ",", 
         RowBox[{"{", 
          RowBox[{"5", ",", "2", ",", "3"}], "}"}]}], "}"}], ",", "0.5"}], 
      "]"}], ",", "\[IndentingNewLine]", "\t\t\t", "Blue", ",", 
     RowBox[{"Cylinder", "[", 
      RowBox[{
       RowBox[{"{", 
        RowBox[{
         RowBox[{"{", 
          RowBox[{"3", ",", "2", ",", "3"}], "}"}], ",", 
         RowBox[{"{", 
          RowBox[{"4", ",", "2", ",", "3"}], "}"}]}], "}"}], ",", "0.5"}], 
      "]"}], ",", "\[IndentingNewLine]", "\t\t\t", "Orange", ",", 
     RowBox[{"Cylinder", "[", 
      RowBox[{
       RowBox[{"{", 
        RowBox[{
         RowBox[{"{", 
          RowBox[{"2", ",", "2", ",", "3.2"}], "}"}], ",", 
         RowBox[{"{", 
          RowBox[{"3", ",", "2", ",", "3.2"}], "}"}]}], "}"}], ",", "0.5"}], 
      "]"}], ",", "\[IndentingNewLine]", "\t\t\t", "Yellow", ",", 
     RowBox[{"Cylinder", "[", 
      RowBox[{
       RowBox[{"{", 
        RowBox[{
         RowBox[{"{", 
          RowBox[{"1", ",", "2", ",", "3"}], "}"}], ",", 
         RowBox[{"{", 
          RowBox[{"2", ",", "2", ",", "3"}], "}"}]}], "}"}], ",", "0.5"}], 
      "]"}], ",", "\[IndentingNewLine]", "\t\t\t", "Red", ",", 
     RowBox[{"Cylinder", "[", 
      RowBox[{
       RowBox[{"{", 
        RowBox[{
         RowBox[{"{", 
          RowBox[{"0", ",", "2", ",", "3"}], "}"}], ",", 
         RowBox[{"{", 
          RowBox[{"1", ",", "2", ",", "3"}], "}"}]}], "}"}], ",", "0.5"}], 
      "]"}], ","}], "\[IndentingNewLine]", "\t\t\t", "}"}], ",", 
   RowBox[{"Boxed", "\[Rule]", "False"}]}], "\[IndentingNewLine]", "\t\t\t", 
  "\[IndentingNewLine]", "]"}]], "Input",
 CellChangeTimes->CompressedData["
1:eJwdyltIUwEAxvFT5iU09aH2IPggs5AspBxOSMKTwjRNm5AvOa9sWl4WqD2I
iESonaZIgVQPbYyYi6REKkQLL9DMYYhasI0RCjpw5dKH1NyU9j8PHz/+8KXU
Gsv0xwVBOBsepp2wilWHfnFlMEKPgdLCu/i72dCI2VMGI3ZbTrahL8oloTej
sx9jHg0tY/zjtz9w6ZXOgxPlyh2Mk7L+4fn6o6D8N58Tq8OecRRpcOLAXool
q6pb6FQWSfjMetiPkaHYJ/hyPPEFeuODwziujXqD27X+D1hcXfAZv0b/cqLU
OPcdXXbBjX2am15caKpYl1t3YxMdqocBHOuJ+4vqNc0B2nIXg5go+o7VhBXm
EiIw5HyQhlmtmRk4unxNhZm6rhxsudCe3HPkFysXTCloyn6nxhxj9BW5zfW3
0Tlpkw1EquvQ3p6nx4/3Lt/BvfQNI9a8nzfhdeXOU2x2FT9HX/Kl1zg0XfAJ
FUkXp1Btm/mC5q3733BE0bCEp/OTVrDB4XajocTzE62Lik0sHC6T9QxY/uDA
/tg+XvXMhjB1NDamN+yqVHEKtVszCbinLe9Ay25TJ/4HZDdYhA==
  "]],

Cell[BoxData[
 Graphics3DBox[{
   {RGBColor[1, 0, 1], CylinderBox[{{2.5, 2, 2.6}, {2.5, 2, 1}}, 0.5]}, 
   {RGBColor[0.6, 0.4, 0.2], TubeBox[{{2.5, 2, 1.8}, {2.5, 7, 1.8}}, 0.1]}, 
   {RGBColor[0, 1, 0], 
    StyleBox[{CylinderBox[{{4, 2, 3}, {5, 2, 3}}, 0.5], 
      {RGBColor[0, 0, 1], CylinderBox[{{3, 2, 3}, {4, 2, 3}}, 0.5]}, 
      {RGBColor[1, 0.5, 0], CylinderBox[{{2, 2, 3.2}, {3, 2, 3.2}}, 0.5]}, 
      {RGBColor[1, 1, 0], CylinderBox[{{1, 2, 3}, {2, 2, 3}}, 0.5]}, 
      {RGBColor[1, 0, 0], CylinderBox[{{0, 2, 3}, {1, 2, 3}}, 0.5]}},
     Boxed -> False]}},
  AutomaticImageSize->True,
  Boxed->False,
  ImageSize->{320.8770153703603, 349.65613345236375`},
  ViewPoint->{1.9205713180149822`, 1.7892496725149296`, 2.135413641855697},
  ViewVertical->{-0.366212954992824, 0.562046149470929, 
   1.5757379953667345`}]], "Output",
 CellChangeTimes->{3.623107609147105*^9}]
}, Open  ]],

Cell[BoxData[{
 RowBox[{
  RowBox[{"3", "D", " ", "34", " ", "\:8fd1\:5c71\:548c\:54c9"}], 
  "\[IndentingNewLine]"}], "\[IndentingNewLine]", 
 RowBox[{"\:3060\:308b\:307e\:843d\:3068\:3057\:3092\:30a4\:30e1", "\:30fc", 
  "\:30b8\:3057\:3066\:4f5c\:3063\:305f", "\:3002", 
  "\[IndentingNewLine]"}]}], "Input",
 CellChangeTimes->{{3.6231076163855057`*^9, 3.6231076698467054`*^9}}]
},
WindowSize->{707, 768},
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, 3309, 83, 272, "Input"],
Cell[4797, 120, 882, 17, 365, "Output"]
}, Open  ]],
Cell[5694, 140, 381, 7, 92, "Input"]
}
]
*)

(* End of internal cache information *)

(* NotebookSignature uxpTUiABXFreqBgs9AUd18qH *)