(* 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[      4656,        142]
NotebookOptionsPosition[      4714,        125]
NotebookOutlinePosition[      5199,        146]
CellTagsIndexPosition[      5156,        143]
WindowFrame->Normal*)

(* Beginning of Notebook Content *)
Notebook[{

Cell[CellGroupData[{
Cell[TextData[{
 "\:ff13\:6bb5\:30a2\:30a4\:30b9\:30af\:30ea\:30fc\:30e0\n",
 StyleBox["\:ff5e\:3088\:3082\:304e\:4e32\:56e3\:5b50\:3092\:523a\:3057\:3066\
\:ff5e", "Subtitle"]
}], "Title",
 CellChangeTimes->{{3.591051506396694*^9, 3.5910515077160807`*^9}, {
  3.5910515468298874`*^9, 3.5910515486053467`*^9}, {3.5910516299824944`*^9, 
  3.5910517077706375`*^9}, {3.5910517721588526`*^9, 3.591051821665636*^9}, {
  3.591051873183239*^9, 3.5910518819736156`*^9}},
 Background->RGBColor[0.88, 1, 0.88]],

Cell[BoxData[
 RowBox[{
  RowBox[{"Graphics3D", "[", "\[IndentingNewLine]", 
   RowBox[{
    RowBox[{"{", "\[IndentingNewLine]", 
     RowBox[{"Black", ",", 
      RowBox[{"Sphere", "[", 
       RowBox[{"{", 
        RowBox[{"0", ",", "0", ",", "0"}], "}"}], "]"}], ",", 
      "\[IndentingNewLine]", "Pink", ",", 
      RowBox[{"Sphere", "[", 
       RowBox[{"{", 
        RowBox[{"0.9", ",", "0.9", ",", "0.9"}], "}"}], "]"}], ",", 
      "\[IndentingNewLine]", "White", ",", 
      RowBox[{"Sphere", "[", 
       RowBox[{"{", 
        RowBox[{"1.8", ",", "1.8", ",", "1.8"}], "}"}], "]"}], ",", 
      "\[IndentingNewLine]", "Brown", ",", 
      RowBox[{"Cone", "[", 
       RowBox[{
        RowBox[{"{", 
         RowBox[{
          RowBox[{"{", 
           RowBox[{"0", ",", "0", ",", "0"}], "}"}], ",", 
          RowBox[{"{", 
           RowBox[{
            RowBox[{"-", "1"}], ",", 
            RowBox[{"-", "1"}], ",", 
            RowBox[{"-", "1"}]}], "}"}]}], "}"}], "3"}], "]"}], ",", 
      "\[IndentingNewLine]", 
      RowBox[{"Tube", "[", 
       RowBox[{
        RowBox[{"{", 
         RowBox[{
          RowBox[{"{", 
           RowBox[{"2", ",", "2", ",", "2"}], "}"}], ",", 
          RowBox[{"{", 
           RowBox[{"6", ",", "6", ",", "6"}], "}"}]}], "}"}], ",", "0.1"}], 
       "]"}], ",", "\[IndentingNewLine]", "Green", ",", 
      RowBox[{"Sphere", "[", 
       RowBox[{"{", 
        RowBox[{"3.2", ",", "3.2", ",", "3.2"}], "}"}], "]"}], ",", 
      "\[IndentingNewLine]", "Green", ",", 
      RowBox[{"Sphere", "[", 
       RowBox[{"{", 
        RowBox[{"4.1", ",", "4.1", ",", "4.1"}], "}"}], "]"}], ",", 
      "\[IndentingNewLine]", "Green", ",", 
      RowBox[{"Sphere", "[", 
       RowBox[{"{", 
        RowBox[{"5", ",", "5", ",", "5"}], "}"}], "]"}]}], "\n", "}"}], ",", 
    RowBox[{"Boxed", "\[Rule]", "False"}]}], "]"}], 
  "\[IndentingNewLine]"}]], "Input"],

Cell[BoxData[
 Graphics3DBox[{
   {GrayLevel[0], SphereBox[{0, 0, 0}]}, 
   {RGBColor[1, 0.5, 0.5], SphereBox[{0.9, 0.9, 0.9}]}, 
   {GrayLevel[1], SphereBox[{1.8, 1.8, 1.8}]}, 
   {RGBColor[0.6, 0.4, 0.2], ConeBox[{{0, 0, 0}, {-3, -3, -3}}], 
    TubeBox[{{2, 2, 2}, {6, 6, 6}}, 0.1]}, 
   {RGBColor[0, 1, 0], SphereBox[{3.2, 3.2, 3.2}]}, 
   {RGBColor[0, 1, 0], SphereBox[{4.1, 4.1, 4.1}]}, 
   {RGBColor[0, 1, 0], SphereBox[{5, 5, 5}]}},
  Boxed->False]], "Input",
 CellChangeTimes->{{3.5910519793337994`*^9, 3.5910519825184927`*^9}}],

Cell[CellGroupData[{

Cell[TextData[StyleBox["\:ff13\:5e74K\:7d44\:677e\:4e95\:79c0\:5fd7\:90ce", \
"Subsubsection"]], "Subsubtitle",
 CellChangeTimes->{{3.5910521722806616`*^9, 3.5910521895772247`*^9}, {
  3.5910522259585037`*^9, 3.591052239896539*^9}}],

Cell[BoxData[
 StyleBox[
  RowBox[{"\:304a\:8179\:304c\:7a7a\:304d\:307e\:3057\:305f", "\:3002"}], 
  "Subsubsection"]], "Input",
 CellChangeTimes->{{3.5910520221772413`*^9, 3.5910520338651905`*^9}, 
   3.591052296054946*^9}]
}, Open  ]]
}, Open  ]]
},
WindowToolbars->"EditBar",
WindowSize->{1008, 730},
WindowMargins->{{-1, Automatic}, {Automatic, -2}},
PrintingCopies->1,
PrintingPageRange->{Automatic, Automatic},
ShowSelection->True,
Magnification->1,
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, 500, 9, 139, "Title"],
Cell[1760, 43, 1901, 51, 252, "Input"],
Cell[3664, 96, 537, 11, 406, InheritFromParent],
Cell[CellGroupData[{
Cell[4226, 111, 232, 3, 29, "Subsubtitle"],
Cell[4461, 116, 225, 5, 30, "Input"]
}, Open  ]]
}, Open  ]]
}
]
*)

(* End of internal cache information *)

(* NotebookSignature QuThvjUwMnbFlD1RfCiEMYqH *)