(* Content-type: application/vnd.wolfram.mathematica *)

(*** Wolfram Notebook File ***)
(* http://www.wolfram.com/nb *)

(* CreatedBy='Mathematica 9.0' *)

(*CacheID: 234*)
(* Internal cache information:
NotebookFileLineBreakTest
NotebookFileLineBreakTest
NotebookDataPosition[       157,          7]
NotebookDataLength[      5177,        148]
NotebookOptionsPosition[      4812,        130]
NotebookOutlinePosition[      5166,        146]
CellTagsIndexPosition[      5123,        143]
WindowFrame->Normal*)

(* Beginning of Notebook Content *)
Notebook[{

Cell[CellGroupData[{
Cell[BoxData[
 RowBox[{
  RowBox[{"Graphics3D", "[", 
   RowBox[{
    RowBox[{"{", "\[IndentingNewLine]", 
     RowBox[{"Orange", ",", 
      RowBox[{"Cylinder", "[", 
       RowBox[{"{", 
        RowBox[{
         RowBox[{"{", 
          RowBox[{"0", ",", "0", ",", "0"}], "}"}], ",", 
         RowBox[{"{", 
          RowBox[{"2.7", ",", "2.7", ",", "0"}], "}"}]}], "}"}], "]"}], ",", 
      "\[IndentingNewLine]", "LightYellow", ",", 
      RowBox[{"Sphere", "[", 
       RowBox[{
        RowBox[{"{", 
         RowBox[{"2.7", ",", "2.7", ",", "0"}], "}"}], ",", "0.9"}], "]"}], 
      ",", "\[IndentingNewLine]", "Brown", ",", 
      RowBox[{"Tube", "[", 
       RowBox[{
        RowBox[{"{", 
         RowBox[{
          RowBox[{"{", 
           RowBox[{"1.5", ",", "2", ",", "0"}], "}"}], ",", 
          RowBox[{"{", 
           RowBox[{"3", ",", "2", ",", 
            RowBox[{"-", "2"}]}], "}"}]}], "}"}], ",", "0.09"}], "]"}], ",", 
      "\[IndentingNewLine]", "Brown", ",", 
      RowBox[{"Tube", "[", 
       RowBox[{
        RowBox[{"{", 
         RowBox[{
          RowBox[{"{", 
           RowBox[{"1.5", ",", "2", ",", "0"}], "}"}], ",", 
          RowBox[{"{", 
           RowBox[{"3", ",", "2", ",", "2"}], "}"}]}], "}"}], ",", "0.09"}], 
       "]"}], ",", "\[IndentingNewLine]", "Black", ",", 
      RowBox[{"Sphere", "[", 
       RowBox[{
        RowBox[{"{", 
         RowBox[{"3.4", ",", "2.25", ",", "0.4"}], "}"}], ",", "0.07"}], 
       "]"}], ",", "\[IndentingNewLine]", "Black", ",", 
      RowBox[{"Sphere", "[", 
       RowBox[{
        RowBox[{"{", 
         RowBox[{"3.4", ",", "2.25", ",", 
          RowBox[{"-", "0.4"}]}], "}"}], ",", "0.07"}], "]"}], ",", 
      "\[IndentingNewLine]", "Brown", ",", 
      RowBox[{"Tube", "[", 
       RowBox[{
        RowBox[{"{", 
         RowBox[{
          RowBox[{"{", 
           RowBox[{"0", ",", "0", ",", 
            RowBox[{"-", "0.4"}]}], "}"}], ",", 
          RowBox[{"{", 
           RowBox[{
            RowBox[{"-", "1"}], ",", 
            RowBox[{"-", "1"}], ",", 
            RowBox[{"-", "1"}]}], "}"}]}], "}"}], ",", "0.09"}], "]"}], ",", 
      "\[IndentingNewLine]", "Brown", ",", 
      RowBox[{"Tube", "[", 
       RowBox[{
        RowBox[{"{", 
         RowBox[{
          RowBox[{"{", 
           RowBox[{"0", ",", "0", ",", "0.4"}], "}"}], ",", 
          RowBox[{"{", 
           RowBox[{
            RowBox[{"-", "1"}], ",", 
            RowBox[{"-", "1"}], ",", "1"}], "}"}]}], "}"}], ",", "0.09"}], 
       "]"}]}], "\[IndentingNewLine]", "}"}], ",", 
    RowBox[{"Boxed", "\[Rule]", "False"}]}], "\[IndentingNewLine]", "]"}], 
  "\[IndentingNewLine]"}]], "Input"],

Cell[BoxData[
 Graphics3DBox[{
   {RGBColor[1, 0.5, 0], CylinderBox[{{0, 0, 0}, {2.7, 2.7, 0}}]}, 
   {RGBColor[1, 1, 0.85], SphereBox[{2.7, 2.7, 0}, 0.9]}, 
   {RGBColor[0.6, 0.4, 0.2], TubeBox[{{1.5, 2, 0}, {3, 2, -2}}, 0.09]}, 
   {RGBColor[0.6, 0.4, 0.2], TubeBox[{{1.5, 2, 0}, {3, 2, 2}}, 0.09]}, 
   {GrayLevel[0], SphereBox[{3.4, 2.25, 0.4}, 0.07]}, 
   {GrayLevel[0], SphereBox[{3.4, 2.25, -0.4}, 0.07]}, 
   {RGBColor[0.6, 0.4, 0.2], TubeBox[{{0, 0, -0.4}, {-1, -1, -1}}, 0.09]}, 
   {RGBColor[0.6, 0.4, 0.2], TubeBox[{{0, 0, 0.4}, {-1, -1, 1}}, 0.09]}},
  AutomaticImageSize->True,
  Boxed->False,
  ImageSize->{343.9249074827312, 384.075980509998},
  ViewPoint->{2.0500614609418855`, -2.5663653896683014`, -0.813029331004419},
  ViewVertical->{0.9698555253679559, -0.07773803481932401, 
   0.25912605829905566`}]], "Output",
 CellChangeTimes->{3.622503341431814*^9}]
}, Open  ]],

Cell[BoxData[{
 RowBox[{"3", "G28", " ", 
  "\:4f0a\:85e4\:88d5\:4e5f"}], "\[IndentingNewLine]", "\:672c\:5f53\:306f\
\:9280\:9b42\:306b\:51fa\:3066\:304f\:308b\:30b8\:30e3\:30b9\:30bf\:30a6\:30a7\
\:30a4\:3092\:4f5c\:308d\:3046\:3068\:304a\:3082\:3063\:3066\:305f\:3051\:3069\
", "\[IndentingNewLine]", 
 RowBox[{"\:76ee\:306e\:90e8\:5206\:304c\:96e3\:3057\:304b\:3063\:305f\:304b\
\:3089", "\:3001", 
  "\:305f\:3060\:306e\:5186\:306b\:3057\:305f\:3089\:53ef\:611b\:3044\:304b\
\:3093\:3058\:306e\:306b\:4ed5\:4e0a\:304c\:3063\:305f"}]}], "Input",
 CellChangeTimes->{{3.622503500879414*^9, 3.622503625897814*^9}, {
  3.6225038860122137`*^9, 3.622503887821814*^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[579, 22, 2668, 74, 252, "Input"],
Cell[3250, 98, 877, 16, 399, "Output"]
}, Open  ]],
Cell[4142, 117, 666, 11, 72, "Input"]
}
]
*)

(* End of internal cache information *)
(* NotebookSignature #xDWFabfpCny0DwaK3oSdnnB *)