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

(*** Wolfram CDF File ***)
(* http://www.wolfram.com/cdf *)

(* CreatedBy='Mathematica 8.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.                                               *)
(*                                                                       *)
(*************************************************************************)

(*CacheID: 234*)
(* Internal cache information:
NotebookFileLineBreakTest
NotebookFileLineBreakTest
NotebookDataPosition[       835,         17]
NotebookDataLength[      4936,        156]
NotebookOptionsPosition[      5103,        142]
NotebookOutlinePosition[      5457,        158]
CellTagsIndexPosition[      5414,        155]
WindowFrame->Normal*)

(* Beginning of Notebook Content *)
Notebook[{

Cell[CellGroupData[{
Cell["\:4eba\:5f62", "Title",
 CellChangeTimes->{{3.5910533489509563`*^9, 3.5910533734382243`*^9}},
 Background->RGBColor[0.87, 0.94, 1]],

Cell[CellGroupData[{

Cell[BoxData[
 RowBox[{"Graphics3D", "[", "\[IndentingNewLine]", 
  RowBox[{
   RowBox[{"{", 
    RowBox[{"Orange", ",", 
     RowBox[{"Cylinder", "[", "]"}], ",", "\[IndentingNewLine]", "Yellow", 
     ",", 
     RowBox[{"Sphere", "[", 
      RowBox[{
       RowBox[{"{", 
        RowBox[{"0", ",", "0", ",", "1"}], "}"}], ",", "1"}], "]"}], ",", 
     "\[IndentingNewLine]", "White", ",", 
     RowBox[{"Sphere", "[", 
      RowBox[{
       RowBox[{"{", 
        RowBox[{"0.3", ",", 
         RowBox[{"-", "0.9"}], ",", "1.5"}], "}"}], ",", 
       RowBox[{"1", "/", "5"}]}], "]"}], ",", "\[IndentingNewLine]", "White", 
     ",", 
     RowBox[{"Sphere", "[", 
      RowBox[{
       RowBox[{"{", 
        RowBox[{
         RowBox[{"-", "0.3"}], ",", 
         RowBox[{"-", "0.9"}], ",", "1.5"}], "}"}], ",", 
       RowBox[{"1", "/", "5"}]}], "]"}], ",", "\[IndentingNewLine]", "Black", 
     ",", 
     RowBox[{"Sphere", "[", 
      RowBox[{
       RowBox[{"{", 
        RowBox[{"0.3", ",", 
         RowBox[{"-", "1.1"}], ",", "1.5"}], "}"}], ",", 
       RowBox[{"1", "/", "8"}]}], "]"}], ",", "\[IndentingNewLine]", "Black", 
     ",", 
     RowBox[{"Sphere", "[", 
      RowBox[{
       RowBox[{"{", 
        RowBox[{
         RowBox[{"-", "0.3"}], ",", 
         RowBox[{"-", "1.1"}], ",", "1.5"}], "}"}], ",", 
       RowBox[{"1", "/", "8"}]}], "]"}], ",", "\[IndentingNewLine]", "Yellow",
      ",", 
     RowBox[{"Tube", "[", 
      RowBox[{
       RowBox[{"{", 
        RowBox[{
         RowBox[{"{", 
          RowBox[{
           RowBox[{"-", "2"}], ",", "0", ",", "0"}], "}"}], ",", 
         RowBox[{"{", 
          RowBox[{"2", ",", "0", ",", "0"}], "}"}]}], "}"}], ",", "0.1"}], 
      "]"}], ",", "\[IndentingNewLine]", "Yellow", ",", 
     RowBox[{"Tube", "[", 
      RowBox[{
       RowBox[{"{", 
        RowBox[{
         RowBox[{"{", 
          RowBox[{"0.5", ",", "0", ",", 
           RowBox[{"-", "2"}]}], "}"}], ",", 
         RowBox[{"{", 
          RowBox[{"0.5", ",", "0", ",", "0"}], "}"}]}], "}"}], ",", "0.1"}], 
      "]"}], ",", "\[IndentingNewLine]", "Yellow", ",", 
     RowBox[{"Tube", "[", 
      RowBox[{
       RowBox[{"{", 
        RowBox[{
         RowBox[{"{", 
          RowBox[{
           RowBox[{"-", "0.5"}], ",", "0", ",", 
           RowBox[{"-", "2"}]}], "}"}], ",", 
         RowBox[{"{", 
          RowBox[{
           RowBox[{"-", "0.5"}], ",", "0", ",", "0"}], "}"}]}], "}"}], ",", 
       "0.1"}], "]"}]}], "}"}], ",", "\[IndentingNewLine]", 
   RowBox[{"Boxed", "\[Rule]", "False"}]}], "]"}]], "Input"],

Cell[BoxData[
 Graphics3DBox[{
   {RGBColor[1, 0.5, 0], CylinderBox[{{0, 0, -1}, {0, 0, 1}}]}, 
   {RGBColor[1, 1, 0], SphereBox[{0, 0, 1}, 1]}, 
   {GrayLevel[1], SphereBox[{0.3, -0.9, 1.5}, NCache[Rational[1, 5], 0.2]]}, 
   {GrayLevel[1], SphereBox[{-0.3, -0.9, 1.5}, NCache[Rational[1, 5], 0.2]]}, 
   {GrayLevel[0], SphereBox[{0.3, -1.1, 1.5}, NCache[Rational[1, 8], 0.125]]}, 
   {GrayLevel[0], 
    SphereBox[{-0.3, -1.1, 1.5}, NCache[Rational[1, 8], 0.125]]}, 
   {RGBColor[1, 1, 0], TubeBox[{{-2, 0, 0}, {2, 0, 0}}, 0.1]}, 
   {RGBColor[1, 1, 0], TubeBox[{{0.5, 0, -2}, {0.5, 0, 0}}, 0.1]}, 
   {RGBColor[1, 1, 0], TubeBox[{{-0.5, 0, -2}, {-0.5, 0, 0}}, 0.1]}},
  Boxed->False]], "Output",
 CellChangeTimes->{3.591053311921214*^9}]
}, Open  ]],

Cell[CellGroupData[{

Cell["\:ff13\:5e74J\:7d44\:ff13\:ff15\:756a\:677e\:6d66\:6cf0\:5730", \
"Subsection",
 CellChangeTimes->{{3.5910534023328886`*^9, 3.5910535050985537`*^9}}],

Cell["\:30b0\:30e9\:30d5\:30a3\:30c3\:30af\:30b9\:3067\:53ef\:611b\:304f\:3067\
\:304d\:307e\:3057\:305f", "Text",
 CellChangeTimes->{3.5910535438451586`*^9}]
}, Open  ]]
}, Open  ]]
},
WindowSize->{707, 504},
WindowMargins->{{0, Automatic}, {Automatic, 0}},
FrontEndVersion->"8.0 for Microsoft Windows (32-bit) (2011\:5e7410\:670815\
\:65e5)",
StyleDefinitions->"Default.nb"
]
(* End of Notebook Content *)

(* Internal cache information *)
(*CellTagsOutline
CellTagsIndex->{}
*)
(*CellTagsIndex
CellTagsIndex->{}
*)
(*NotebookFileOutline
Notebook[{
Cell[CellGroupData[{
Cell[1257, 32, 137, 2, 99, "Title"],
Cell[CellGroupData[{
Cell[1419, 38, 2560, 74, 232, "Input"],
Cell[3982, 114, 740, 13, 406, "Output"]
}, Open  ]],
Cell[CellGroupData[{
Cell[4759, 132, 155, 2, 36, "Subsection"],
Cell[4917, 136, 158, 2, 29, "Text"]
}, Open  ]]
}, Open  ]]
}
]
*)

(* End of internal cache information *)

(* NotebookSignature CuDSKBlLg6BhtDw22I9VjqZO *)