(* 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[     10765,        278]
NotebookOptionsPosition[     11050,        266]
NotebookOutlinePosition[     11573,        287]
CellTagsIndexPosition[     11530,        284]
WindowFrame->Normal*)

(* Beginning of Notebook Content *)
Notebook[{

Cell[CellGroupData[{
Cell["\:30de\:30b9\:30b3\:30c3\:30c8\:ff08\:ff09", "Title",
 CellChangeTimes->{{3.5898406624551716`*^9, 3.589840732541847*^9}, {
   3.589840839776434*^9, 3.5898409249213047`*^9}, {3.5898409660430007`*^9, 
   3.589840974874395*^9}, {3.589841026851*^9, 3.589841448589839*^9}, {
   3.589841490211198*^9, 3.589841509329115*^9}, {3.589841968538005*^9, 
   3.5898419944396677`*^9}, {3.5898421596790915`*^9, 
   3.5898423819441833`*^9}, {3.589843976533685*^9, 3.589844161898225*^9}, {
   3.5898442389783325`*^9, 3.589844305204509*^9}, {3.5898443357974806`*^9, 
   3.5898444052229977`*^9}, {3.589844435647994*^9, 3.5898444579213104`*^9}, {
   3.589844546328025*^9, 3.5898447547080975`*^9}, {3.5898449703120794`*^9, 
   3.5898449918324366`*^9}, {3.5898450274490385`*^9, 3.589845084017617*^9}, {
   3.5898451267546096`*^9, 3.589845144298252*^9}, {3.591050500644355*^9, 
   3.591050591852935*^9}, {3.5910508111211205`*^9, 3.5910510362166777`*^9}, {
   3.5910511863132615`*^9, 3.591051220506957*^9}, 3.591051327614586*^9, {
   3.5910525575510163`*^9, 3.591052559651683*^9}, {3.5910528352716417`*^9, 
   3.5910528365900517`*^9}}],

Cell[BoxData[
 RowBox[{
  RowBox[{"Graphics3D", "[", 
   RowBox[{
    RowBox[{"{", "\[IndentingNewLine]", 
     RowBox[{"Yellow", ",", 
      RowBox[{"Sphere", "[", 
       RowBox[{
        RowBox[{"{", 
         RowBox[{"0", ",", "1", ",", "0.2"}], "}"}], ",", "0.6"}], "]"}], ",",
       "\[IndentingNewLine]", "Yellow", ",", 
      RowBox[{"Sphere", "[", 
       RowBox[{
        RowBox[{"{", 
         RowBox[{"0", ",", "1", ",", "0"}], "}"}], ",", "0.5"}], "]"}], ",", 
      "\[IndentingNewLine]", "Yellow", ",", 
      RowBox[{"Sphere", "[", 
       RowBox[{
        RowBox[{"{", 
         RowBox[{"0", ",", "1", ",", 
          RowBox[{"-", "0.2"}]}], "}"}], ",", "0.4"}], "]"}], ",", 
      "\[IndentingNewLine]", "Yellow", ",", 
      RowBox[{"Sphere", "[", 
       RowBox[{
        RowBox[{"{", 
         RowBox[{"0", ",", "1", ",", 
          RowBox[{"-", "0.4"}]}], "}"}], ",", "0.3"}], "]"}], ",", 
      "\[IndentingNewLine]", "Yellow", ",", 
      RowBox[{"Sphere", "[", 
       RowBox[{
        RowBox[{"{", 
         RowBox[{"0", ",", "1", ",", 
          RowBox[{"-", "0.6"}]}], "}"}], ",", "0.2"}], "]"}], ",", 
      "\[IndentingNewLine]", "Yellow", ",", 
      RowBox[{"Sphere", "[", 
       RowBox[{
        RowBox[{"{", 
         RowBox[{"0", ",", "1", ",", 
          RowBox[{"-", "0.8"}]}], "}"}], ",", "0.1"}], "]"}], ",", 
      "\[IndentingNewLine]", "Yellow", ",", 
      RowBox[{"Sphere", "[", 
       RowBox[{
        RowBox[{"{", 
         RowBox[{"0", ",", "0", ",", "0.2"}], "}"}], ",", "0.6"}], "]"}], ",",
       "\[IndentingNewLine]", "Yellow", ",", 
      RowBox[{"Sphere", "[", 
       RowBox[{
        RowBox[{"{", 
         RowBox[{"0", ",", "0", ",", "0"}], "}"}], ",", "0.5"}], "]"}], ",", 
      "\[IndentingNewLine]", "Yellow", ",", 
      RowBox[{"Sphere", "[", 
       RowBox[{
        RowBox[{"{", 
         RowBox[{"0", ",", "0", ",", 
          RowBox[{"-", "0.2"}]}], "}"}], ",", "0.4"}], "]"}], ",", 
      "\[IndentingNewLine]", "Yellow", ",", 
      RowBox[{"Sphere", "[", 
       RowBox[{
        RowBox[{"{", 
         RowBox[{"0", ",", "0", ",", 
          RowBox[{"-", "0.4"}]}], "}"}], ",", "0.3"}], "]"}], ",", 
      "\[IndentingNewLine]", "Yellow", ",", 
      RowBox[{"Sphere", "[", 
       RowBox[{
        RowBox[{"{", 
         RowBox[{"0", ",", "0", ",", 
          RowBox[{"-", "0.6"}]}], "}"}], ",", "0.2"}], "]"}], ",", 
      "\[IndentingNewLine]", "Yellow", ",", 
      RowBox[{"Sphere", "[", 
       RowBox[{
        RowBox[{"{", 
         RowBox[{"0", ",", "0", ",", 
          RowBox[{"-", "0.8"}]}], "}"}], ",", "0.1"}], "]"}], ",", 
      "\[IndentingNewLine]", "Blue", ",", 
      RowBox[{"Sphere", "[", 
       RowBox[{
        RowBox[{"{", 
         RowBox[{"0", ",", "0.5", ",", "1"}], "}"}], ",", "1"}], "]"}], ",", 
      "\[IndentingNewLine]", "Green", ",", 
      RowBox[{"Sphere", "[", 
       RowBox[{
        RowBox[{"{", 
         RowBox[{"0", ",", 
          RowBox[{"-", "1"}], ",", "1"}], "}"}], ",", "0.6"}], "]"}], ",", 
      "\[IndentingNewLine]", "Green", ",", 
      RowBox[{"Sphere", "[", 
       RowBox[{
        RowBox[{"{", 
         RowBox[{"0", ",", 
          RowBox[{"-", "1"}], ",", "0.8"}], "}"}], ",", "0.5"}], "]"}], ",", 
      "\[IndentingNewLine]", "Green", ",", 
      RowBox[{"Sphere", "[", 
       RowBox[{
        RowBox[{"{", 
         RowBox[{"0", ",", 
          RowBox[{"-", "1"}], ",", "0.6"}], "}"}], ",", "0.4"}], "]"}], ",", 
      "\[IndentingNewLine]", "Green", ",", 
      RowBox[{"Sphere", "[", 
       RowBox[{
        RowBox[{"{", 
         RowBox[{"0", ",", 
          RowBox[{"-", "1"}], ",", "0.4"}], "}"}], ",", "0.3"}], "]"}], ",", 
      "\[IndentingNewLine]", "Green", ",", 
      RowBox[{"Sphere", "[", 
       RowBox[{
        RowBox[{"{", 
         RowBox[{"0", ",", 
          RowBox[{"-", "1"}], ",", "0.2"}], "}"}], ",", "0.2"}], "]"}], ",", 
      "\[IndentingNewLine]", "Green", ",", 
      RowBox[{"Sphere", "[", 
       RowBox[{
        RowBox[{"{", 
         RowBox[{"0", ",", 
          RowBox[{"-", "1"}], ",", "0"}], "}"}], ",", "0.1"}], "]"}], ",", 
      "\[IndentingNewLine]", "Green", ",", 
      RowBox[{"Sphere", "[", 
       RowBox[{
        RowBox[{"{", 
         RowBox[{"0", ",", "2", ",", "1"}], "}"}], ",", "0.6"}], "]"}], ",", 
      "\[IndentingNewLine]", "Green", ",", 
      RowBox[{"Sphere", "[", 
       RowBox[{
        RowBox[{"{", 
         RowBox[{"0", ",", "2", ",", "0.8"}], "}"}], ",", "0.5"}], "]"}], ",",
       "\[IndentingNewLine]", "Green", ",", 
      RowBox[{"Sphere", "[", 
       RowBox[{
        RowBox[{"{", 
         RowBox[{"0", ",", "2", ",", "0.6"}], "}"}], ",", "0.4"}], "]"}], ",",
       "\[IndentingNewLine]", "Green", ",", 
      RowBox[{"Sphere", "[", 
       RowBox[{
        RowBox[{"{", 
         RowBox[{"0", ",", "2", ",", "0.4"}], "}"}], ",", "0.3"}], "]"}], ",",
       "\[IndentingNewLine]", "Green", ",", 
      RowBox[{"Sphere", "[", 
       RowBox[{
        RowBox[{"{", 
         RowBox[{"0", ",", "2", ",", "0.2"}], "}"}], ",", "0.2"}], "]"}], ",",
       "\[IndentingNewLine]", "Green", ",", 
      RowBox[{"Sphere", "[", 
       RowBox[{
        RowBox[{"{", 
         RowBox[{"0", ",", "2", ",", "0"}], "}"}], ",", "0.1"}], "]"}], ",", 
      "\[IndentingNewLine]", "White", ",", 
      RowBox[{"Sphere", "[", 
       RowBox[{
        RowBox[{"{", 
         RowBox[{"0", ",", "0.5", ",", "1.1"}], "}"}], ",", "1"}], "]"}]}], 
     "\[IndentingNewLine]", "}"}], ",", "\[IndentingNewLine]", 
    RowBox[{"Boxed", "\[Rule]", "False"}]}], "]"}], "\[IndentingNewLine]"}]], \
"Input",
 CellChangeTimes->{{3.5910512234826574`*^9, 3.5910512326812525`*^9}, {
   3.591051278392969*^9, 3.591051305254352*^9}, {3.591051416057435*^9, 
   3.591051795896239*^9}, {3.5910518409594927`*^9, 3.5910518631556573`*^9}, {
   3.591051924715638*^9, 3.591051956157275*^9}, {3.5910519922524114`*^9, 
   3.5910519943960485`*^9}, {3.5910521671935053`*^9, 
   3.5910522712639933`*^9}, {3.5910523458456216`*^9, 3.5910524438396187`*^9}, 
   3.591052550105418*^9}],

Cell[BoxData[
 Graphics3DBox[{
   {RGBColor[1, 1, 0], SphereBox[{0, 1, 0.2}, 0.6]}, 
   {RGBColor[1, 1, 0], SphereBox[{0, 1, 0}, 0.5]}, 
   {RGBColor[1, 1, 0], SphereBox[{0, 1, -0.2}, 0.4]}, 
   {RGBColor[1, 1, 0], SphereBox[{0, 1, -0.4}, 0.3]}, 
   {RGBColor[1, 1, 0], SphereBox[{0, 1, -0.6}, 0.2]}, 
   {RGBColor[1, 1, 0], SphereBox[{0, 1, -0.8}, 0.1]}, 
   {RGBColor[1, 1, 0], SphereBox[{0, 0, 0.2}, 0.6]}, 
   {RGBColor[1, 1, 0], SphereBox[{0, 0, 0}, 0.5]}, 
   {RGBColor[1, 1, 0], SphereBox[{0, 0, -0.2}, 0.4]}, 
   {RGBColor[1, 1, 0], SphereBox[{0, 0, -0.4}, 0.3]}, 
   {RGBColor[1, 1, 0], SphereBox[{0, 0, -0.6}, 0.2]}, 
   {RGBColor[1, 1, 0], SphereBox[{0, 0, -0.8}, 0.1]}, 
   {RGBColor[0, 0, 1], SphereBox[{0, 0.5, 1}, 1]}, 
   {RGBColor[0, 1, 0], SphereBox[{0, -1, 1}, 0.6]}, 
   {RGBColor[0, 1, 0], SphereBox[{0, -1, 0.8}, 0.5]}, 
   {RGBColor[0, 1, 0], SphereBox[{0, -1, 0.6}, 0.4]}, 
   {RGBColor[0, 1, 0], SphereBox[{0, -1, 0.4}, 0.3]}, 
   {RGBColor[0, 1, 0], SphereBox[{0, -1, 0.2}, 0.2]}, 
   {RGBColor[0, 1, 0], SphereBox[{0, -1, 0}, 0.1]}, 
   {RGBColor[0, 1, 0], SphereBox[{0, 2, 1}, 0.6]}, 
   {RGBColor[0, 1, 0], SphereBox[{0, 2, 0.8}, 0.5]}, 
   {RGBColor[0, 1, 0], SphereBox[{0, 2, 0.6}, 0.4]}, 
   {RGBColor[0, 1, 0], SphereBox[{0, 2, 0.4}, 0.3]}, 
   {RGBColor[0, 1, 0], SphereBox[{0, 2, 0.2}, 0.2]}, 
   {RGBColor[0, 1, 0], SphereBox[{0, 2, 0}, 0.1]}, 
   {GrayLevel[1], SphereBox[{0, 0.5, 1.1}, 1]}},
  AutomaticImageSize->True,
  Boxed->False,
  ImageSize->{358.45976191190266`, 255.06215477531953`},
  ViewPoint->{3.369673063455424, 0.052455216338550374`, 0.3042234305602061},
  ViewVertical->{1.1117205896408506`, 0.008679245512381827, 
   1.1876672052284023`}]], "Output",
 CellChangeTimes->{{3.591052233594529*^9, 3.5910522597657056`*^9}, {
  3.5910523474052515`*^9, 3.5910524355238695`*^9}}],

Cell[BoxData[{"\:ff13\:5e74B\:7d44\:67f3\:6fa4\:4e00\:661f", "\
\[IndentingNewLine]", 
 RowBox[{"\:304b\:308f\:3044\:3044", 
  RowBox[{"\:ff08", "\:5c0f\:4e26\:611f", "\:ff09"}]}]}], "Section", "Input",
 CellChangeTimes->{{3.5910513633015027`*^9, 3.591051369207003*^9}, 
   3.5910525703122487`*^9, {3.591052871978129*^9, 3.5910528974400444`*^9}, {
   3.591052982213807*^9, 3.5910530302840123`*^9}},
 Background->GrayLevel[1]],

Cell["\<\

\
\>", "Section",
 CellChangeTimes->{
  3.5910513733038397`*^9, {3.591052918724065*^9, 3.5910529405149403`*^9}}]
}, Open  ]]
},
WindowSize->{1008, 632},
WindowMargins->{{0, Automatic}, {Automatic, 0}},
PrintingCopies->1,
PrintingPageRange->{32000, 32000},
PrintingOptions->{"Magnification"->1.,
"PaperOrientation"->"Portrait",
"PaperSize"->{595.1999999999999, 841.92}},
FrontEndVersion->"9.0 for Microsoft Windows (32-bit) (2012\:5e7412\:670811\
\:65e5)",
StyleDefinitions->"Default.nb"
]
(* End of Notebook Content *)

(* Internal cache information *)
(*CellTagsOutline
CellTagsIndex->{}
*)
(*CellTagsIndex
CellTagsIndex->{}
*)
(*NotebookFileOutline
Notebook[{
Cell[CellGroupData[{
Cell[1485, 35, 1116, 15, 84, "Title"],
Cell[2604, 52, 6047, 158, 612, "Input"],
Cell[8654, 212, 1826, 35, 270, "Output"],
Cell[10483, 249, 425, 7, 57, "Section"],
Cell[10911, 258, 123, 5, 105, "Section"]
}, Open  ]]
}
]
*)

(* End of internal cache information *)

(* NotebookSignature euDoq1#uaQvU4BKXbsQMtkdf *)