(* 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[     14872,        370]
NotebookOptionsPosition[     15239,        360]
NotebookOutlinePosition[     15800,        382]
CellTagsIndexPosition[     15757,        379]
WindowFrame->Normal*)

(* Beginning of Notebook Content *)
Notebook[{

Cell[CellGroupData[{
Cell[BoxData[
 RowBox[{
  RowBox[{"Graphics3D", "[", 
   RowBox[{"{", "\[IndentingNewLine]", 
    RowBox[{"Yellow", ",", 
     RowBox[{"Sphere", "[", 
      RowBox[{"{", 
       RowBox[{"0", ",", "0", ",", "2"}], "}"}], "]"}], ",", 
     "\[IndentingNewLine]", "Red", ",", 
     RowBox[{"Sphere", "[", 
      RowBox[{"{", 
       RowBox[{"0", ",", "0", ",", "1.99999"}], "}"}], "]"}], ",", 
     "\[IndentingNewLine]", "Blue", ",", 
     RowBox[{"Polygon", "[", 
      RowBox[{"{", 
       RowBox[{
        RowBox[{"{", 
         RowBox[{
          RowBox[{"-", "2.999"}], ",", 
          RowBox[{"-", "2.999"}], ",", 
          RowBox[{"-", "2"}]}], "}"}], ",", 
        RowBox[{"{", 
         RowBox[{
          RowBox[{"-", "2.999"}], ",", "2.999", ",", 
          RowBox[{"-", "2"}]}], "}"}], ",", 
        RowBox[{"{", 
         RowBox[{"2.999", ",", "2.999", ",", 
          RowBox[{"-", "2"}]}], "}"}], ",", 
        RowBox[{"{", 
         RowBox[{"2.999", ",", 
          RowBox[{"-", "2.999"}], ",", 
          RowBox[{"-", "2"}]}], "}"}]}], "}"}], "]"}], ",", 
     "\[IndentingNewLine]", "Purple", ",", 
     RowBox[{"Polygon", "[", 
      RowBox[{"{", 
       RowBox[{
        RowBox[{"{", 
         RowBox[{
          RowBox[{"-", "2.99"}], ",", 
          RowBox[{"-", "2.99"}], ",", 
          RowBox[{"-", "2"}]}], "}"}], ",", 
        RowBox[{"{", 
         RowBox[{
          RowBox[{"-", "2.99"}], ",", "2.99", ",", 
          RowBox[{"-", "2"}]}], "}"}], ",", 
        RowBox[{"{", 
         RowBox[{"2.99", ",", "2.99", ",", 
          RowBox[{"-", "2"}]}], "}"}], ",", 
        RowBox[{"{", 
         RowBox[{"2.99", ",", 
          RowBox[{"-", "2.99"}], ",", 
          RowBox[{"-", "2"}]}], "}"}]}], "}"}], "]"}], ",", 
     "\[IndentingNewLine]", "Black", ",", 
     RowBox[{"Polygon", "[", 
      RowBox[{"{", 
       RowBox[{
        RowBox[{"{", 
         RowBox[{
          RowBox[{"-", "3"}], ",", 
          RowBox[{"-", "3"}], ",", 
          RowBox[{"-", "2"}]}], "}"}], ",", 
        RowBox[{"{", 
         RowBox[{
          RowBox[{"-", "3"}], ",", "3", ",", 
          RowBox[{"-", "2"}]}], "}"}], ",", 
        RowBox[{"{", 
         RowBox[{"3", ",", "3", ",", 
          RowBox[{"-", "2"}]}], "}"}], ",", 
        RowBox[{"{", 
         RowBox[{"3", ",", 
          RowBox[{"-", "3"}], ",", 
          RowBox[{"-", "2"}]}], "}"}]}], "}"}], "]"}], ",", 
     "\[IndentingNewLine]", "Black", ",", 
     RowBox[{"Cone", "[", 
      RowBox[{
       RowBox[{"{", 
        RowBox[{
         RowBox[{"{", 
          RowBox[{"0", ",", "0", ",", 
           RowBox[{"-", "2"}]}], "}"}], ",", 
         RowBox[{"{", 
          RowBox[{"0", ",", "0", ",", "1"}], "}"}]}], "}"}], ",", "0.7"}], 
      "]"}], ",", "\[IndentingNewLine]", "White", ",", 
     RowBox[{"Cone", "[", 
      RowBox[{
       RowBox[{"{", 
        RowBox[{
         RowBox[{"{", 
          RowBox[{"0", ",", "0", ",", 
           RowBox[{"-", "1.9"}]}], "}"}], ",", 
         RowBox[{"{", 
          RowBox[{"0", ",", "0", ",", "1"}], "}"}]}], "}"}], ",", "0.7"}], 
      "]"}], ",", "\[IndentingNewLine]", "Black", ",", 
     RowBox[{"Cone", "[", 
      RowBox[{
       RowBox[{"{", 
        RowBox[{
         RowBox[{"{", 
          RowBox[{"0", ",", "0", ",", 
           RowBox[{"-", "1.8"}]}], "}"}], ",", 
         RowBox[{"{", 
          RowBox[{"0", ",", "0", ",", "1"}], "}"}]}], "}"}], ",", "0.7"}], 
      "]"}], ",", "\[IndentingNewLine]", "White", ",", 
     RowBox[{"Cone", "[", 
      RowBox[{
       RowBox[{"{", 
        RowBox[{
         RowBox[{"{", 
          RowBox[{"0", ",", "0", ",", 
           RowBox[{"-", "1.7"}]}], "}"}], ",", 
         RowBox[{"{", 
          RowBox[{"0", ",", "0", ",", "1"}], "}"}]}], "}"}], ",", "0.7"}], 
      "]"}], ",", "\[IndentingNewLine]", "White", ",", 
     RowBox[{"Cylinder", "[", 
      RowBox[{
       RowBox[{"{", 
        RowBox[{
         RowBox[{"{", 
          RowBox[{"0", ",", "0", ",", "1.99"}], "}"}], ",", 
         RowBox[{"{", 
          RowBox[{"0", ",", "0", ",", "2.01"}], "}"}]}], "}"}], ",", 
       "1.999"}], "]"}], ",", "\[IndentingNewLine]", "Yellow", ",", 
     RowBox[{"Cylinder", "[", 
      RowBox[{
       RowBox[{"{", 
        RowBox[{
         RowBox[{"{", 
          RowBox[{"0", ",", "0", ",", "1.99"}], "}"}], ",", 
         RowBox[{"{", 
          RowBox[{"0", ",", "0", ",", "2.01"}], "}"}]}], "}"}], ",", "2"}], 
      "]"}], ",", "\[IndentingNewLine]", "Red", ",", 
     RowBox[{"Cylinder", "[", 
      RowBox[{
       RowBox[{"{", 
        RowBox[{
         RowBox[{"{", 
          RowBox[{"0", ",", "0", ",", "1.99"}], "}"}], ",", 
         RowBox[{"{", 
          RowBox[{"0", ",", "0", ",", "2.01"}], "}"}]}], "}"}], ",", 
       "1.99999"}], "]"}], ",", "\[IndentingNewLine]", 
     RowBox[{"Sphere", "[", 
      RowBox[{
       RowBox[{"{", 
        RowBox[{"2", ",", "2", ",", "2"}], "}"}], ",", 
       RowBox[{"1", "/", "4"}]}], "]"}], ",", "\[IndentingNewLine]", "Blue", 
     ",", 
     RowBox[{"Sphere", "[", 
      RowBox[{
       RowBox[{"{", 
        RowBox[{
         RowBox[{"-", "2"}], ",", 
         RowBox[{"-", "2"}], ",", "2"}], "}"}], ",", 
       RowBox[{"1", "/", "4"}]}], "]"}], ",", "\[IndentingNewLine]", "Red", 
     ",", 
     RowBox[{"Sphere", "[", 
      RowBox[{
       RowBox[{"{", 
        RowBox[{
         RowBox[{"-", "2"}], ",", "2", ",", "2"}], "}"}], ",", 
       RowBox[{"1", "/", "4"}]}], "]"}], ",", "\[IndentingNewLine]", "Green", 
     ",", 
     RowBox[{"Sphere", "[", 
      RowBox[{
       RowBox[{"{", 
        RowBox[{"2", ",", 
         RowBox[{"-", "2"}], ",", "2"}], "}"}], ",", 
       RowBox[{"1", "/", "4"}]}], "]"}], ",", "\[IndentingNewLine]", "Purple",
      ",", 
     RowBox[{"Sphere", "[", 
      RowBox[{
       RowBox[{"{", 
        RowBox[{"0", ",", 
         RowBox[{"-", "2.8"}], ",", "2"}], "}"}], ",", 
       RowBox[{"1", "/", "4"}]}], "]"}], ",", "\[IndentingNewLine]", "Pink", 
     ",", 
     RowBox[{"Sphere", "[", 
      RowBox[{
       RowBox[{"{", 
        RowBox[{"0", ",", "2.8", ",", "2"}], "}"}], ",", 
       RowBox[{"1", "/", "4"}]}], "]"}], ",", "\[IndentingNewLine]", "Orange",
      ",", 
     RowBox[{"Sphere", "[", 
      RowBox[{
       RowBox[{"{", 
        RowBox[{"2.8", ",", "0", ",", "2"}], "}"}], ",", 
       RowBox[{"1", "/", "4"}]}], "]"}], ",", "\[IndentingNewLine]", "Black", 
     ",", 
     RowBox[{"Sphere", "[", 
      RowBox[{
       RowBox[{"{", 
        RowBox[{
         RowBox[{"-", "2.8"}], ",", "0", ",", "2"}], "}"}], ",", 
       RowBox[{"1", "/", "4"}]}], "]"}], ",", "\[IndentingNewLine]", "Black", 
     ",", 
     RowBox[{"Polygon", "[", 
      RowBox[{"{", 
       RowBox[{
        RowBox[{"{", 
         RowBox[{
          RowBox[{"-", "3"}], ",", 
          RowBox[{"-", "3"}], ",", "3"}], "}"}], ",", 
        RowBox[{"{", 
         RowBox[{
          RowBox[{"-", "3"}], ",", "3", ",", "3"}], "}"}], ",", 
        RowBox[{"{", 
         RowBox[{
          RowBox[{"-", "3"}], ",", "3", ",", 
          RowBox[{"-", "2"}]}], "}"}], ",", 
        RowBox[{"{", 
         RowBox[{
          RowBox[{"-", "3"}], ",", 
          RowBox[{"-", "3"}], ",", 
          RowBox[{"-", "2"}]}], "}"}]}], "}"}], "]"}], ",", 
     "\[IndentingNewLine]", 
     RowBox[{"Polygon", "[", 
      RowBox[{"{", 
       RowBox[{
        RowBox[{"{", 
         RowBox[{"3", ",", "3", ",", "3"}], "}"}], ",", 
        RowBox[{"{", 
         RowBox[{
          RowBox[{"-", "3"}], ",", "3", ",", "3"}], "}"}], ",", 
        RowBox[{"{", 
         RowBox[{
          RowBox[{"-", "3"}], ",", "3", ",", 
          RowBox[{"-", "2"}]}], "}"}], ",", 
        RowBox[{"{", 
         RowBox[{"3", ",", "3", ",", 
          RowBox[{"-", "2"}]}], "}"}]}], "}"}], "]"}], ","}], 
    "\[IndentingNewLine]", "}"}], "]"}], "\[IndentingNewLine]"}]], "Input",
 CellChangeTimes->{{3.621290494004097*^9, 3.6212905274294395`*^9}, {
   3.621290694807175*^9, 3.621290721143809*^9}, {3.621290781433837*^9, 
   3.621290790825776*^9}, {3.621290841499843*^9, 3.621290914317124*^9}, {
   3.6212909460943017`*^9, 3.6212911685777397`*^9}, {3.6212912869792757`*^9, 
   3.621291424067682*^9}, {3.6212914608201036`*^9, 3.6212914679334755`*^9}, {
   3.621291525028505*^9, 3.6212916040581045`*^9}, {3.621291655709705*^9, 
   3.6212917155825047`*^9}, {3.6212917514001045`*^9, 
   3.6212917628193045`*^9}, {3.621291843408905*^9, 3.6212919584121046`*^9}, {
   3.621292098578105*^9, 3.621292173988505*^9}, {3.6212922641239624`*^9, 
   3.6212924679782286`*^9}, {3.621292509831687*^9, 3.621292519175787*^9}, {
   3.6212925522632895`*^9, 3.6212926090160894`*^9}, {3.621292652072089*^9, 
   3.621292665956089*^9}, {3.6212927040356894`*^9, 3.621292960905289*^9}, 
   3.6212929929632893`*^9, {3.6212931000104895`*^9, 3.6212933444900837`*^9}, {
   3.621293374706315*^9, 3.6212933797917523`*^9}, 3.6212934472283907`*^9, {
   3.6212935217472024`*^9, 3.6212935557235217`*^9}, {3.6212935916188917`*^9, 
   3.6212938194242315`*^9}, {3.6212938783453507`*^9, 3.621293884803751*^9}, {
   3.621293917641751*^9, 3.621293959371751*^9}, {3.621294004939351*^9, 
   3.6212940350161505`*^9}, {3.6212941110349507`*^9, 
   3.6212941968665667`*^9}, {3.6212942342912064`*^9, 
   3.6212942351024113`*^9}, {3.6212943010582523`*^9, 
   3.6212943232717977`*^9}, {3.621294364875397*^9, 3.621294377230122*^9}, {
   3.6212944150274687`*^9, 3.6212944490029616`*^9}, {3.6212945127109113`*^9, 
   3.62129474311959*^9}, {3.621294812570345*^9, 3.6212948623964252`*^9}, {
   3.621294902940775*^9, 3.621294990456775*^9}, {3.621295032888775*^9, 
   3.621295059829975*^9}, {3.6212951447563753`*^9, 3.6212951512303753`*^9}, {
   3.6212952504000893`*^9, 3.6212953211605597`*^9}, {3.621295375883606*^9, 
   3.621295419874196*^9}, {3.622498839345853*^9, 3.622498900003982*^9}, {
   3.6224989488408203`*^9, 3.6224989785697927`*^9}, {3.6224990619331284`*^9, 
   3.62249915176011*^9}, {3.6224992658085136`*^9, 3.6224997287167997`*^9}, {
   3.6224997726701946`*^9, 3.6224997841593437`*^9}, {3.622499867712698*^9, 
   3.622499984703396*^9}, {3.622500016982623*^9, 3.6225000799929237`*^9}, {
   3.622500169241848*^9, 3.6225002177056932`*^9}, {3.622500252684191*^9, 
   3.622500453243559*^9}, {3.6225004950362267`*^9, 3.6225007666078644`*^9}, {
   3.6225008004095974`*^9, 3.622500828471119*^9}, {3.62250086657801*^9, 
   3.622500896870103*^9}, {3.6225011215898905`*^9, 3.622501668234666*^9}, {
   3.622501711227804*^9, 3.622501779990841*^9}, {3.622501832436696*^9, 
   3.622501893540329*^9}, {3.622501961882177*^9, 3.622502001895158*^9}, {
   3.622502036667335*^9, 3.622502169453684*^9}, {3.62250220439746*^9, 
   3.6225022721322255`*^9}, {3.622502349601637*^9, 3.6225024951652374`*^9}, {
   3.6225025491568375`*^9, 3.622502555100437*^9}, {3.6225025964716372`*^9, 
   3.6225026352532372`*^9}, {3.6225026764840374`*^9, 3.622503484438342*^9}, {
   3.6225036071315556`*^9, 3.622503735035929*^9}, {3.6225037677488956`*^9, 
   3.622504085782251*^9}, {3.6225041279331803`*^9, 3.6225042189273973`*^9}, {
   3.6225043831163445`*^9, 3.622504418824516*^9}, {3.622504480210122*^9, 
   3.6225046060701156`*^9}, 3.622504637223116*^9, {3.6225046714026365`*^9, 
   3.6225048156235523`*^9}, {3.62370885314538*^9, 3.623708889714348*^9}, {
   3.6237090593842335`*^9, 3.62370909618427*^9}, {3.6237091302955008`*^9, 
   3.6237091709490685`*^9}, {3.623709275353452*^9, 3.6237092812656345`*^9}}],

Cell[BoxData[
 Graphics3DBox[{
   {RGBColor[1, 1, 0], SphereBox[{0, 0, 2}]}, 
   {RGBColor[1, 0, 0], SphereBox[{0, 0, 1.99999}]}, 
   {RGBColor[0, 0, 1], 
    Polygon3DBox[{{-2.999, -2.999, -2}, {-2.999, 2.999, -2}, {
      2.999, 2.999, -2}, {2.999, -2.999, -2}}]}, 
   {RGBColor[0.5, 0, 0.5], 
    Polygon3DBox[{{-2.99, -2.99, -2}, {-2.99, 2.99, -2}, {2.99, 2.99, -2}, {
      2.99, -2.99, -2}}]}, 
   {GrayLevel[0], 
    Polygon3DBox[{{-3, -3, -2}, {-3, 3, -2}, {3, 3, -2}, {3, -3, -2}}]}, 
   {GrayLevel[0], ConeBox[{{0, 0, -2}, {0, 0, 1}}, 0.7]}, 
   {GrayLevel[1], ConeBox[{{0, 0, -1.9}, {0, 0, 1}}, 0.7]}, 
   {GrayLevel[0], ConeBox[{{0, 0, -1.8}, {0, 0, 1}}, 0.7]}, 
   {GrayLevel[1], ConeBox[{{0, 0, -1.7}, {0, 0, 1}}, 0.7]}, 
   {GrayLevel[1], CylinderBox[{{0, 0, 1.99}, {0, 0, 2.01}}, 1.999]}, 
   {RGBColor[1, 1, 0], CylinderBox[{{0, 0, 1.99}, {0, 0, 2.01}}, 2]}, 
   {RGBColor[1, 0, 0], CylinderBox[{{0, 0, 1.99}, {0, 0, 2.01}}, 1.99999], 
    SphereBox[{2, 2, 2}, NCache[Rational[1, 4], 0.25]]}, 
   {RGBColor[0, 0, 1], SphereBox[{-2, -2, 2}, NCache[Rational[1, 4], 0.25]]}, 
   {RGBColor[1, 0, 0], SphereBox[{-2, 2, 2}, NCache[Rational[1, 4], 0.25]]}, 
   {RGBColor[0, 1, 0], SphereBox[{2, -2, 2}, NCache[Rational[1, 4], 0.25]]}, 
   {RGBColor[0.5, 0, 0.5], 
    SphereBox[{0, -2.8, 2}, NCache[Rational[1, 4], 0.25]]}, 
   {RGBColor[1, 0.5, 0.5], 
    SphereBox[{0, 2.8, 2}, NCache[Rational[1, 4], 0.25]]}, 
   {RGBColor[1, 0.5, 0], 
    SphereBox[{2.8, 0, 2}, NCache[Rational[1, 4], 0.25]]}, 
   {GrayLevel[0], SphereBox[{-2.8, 0, 2}, NCache[Rational[1, 4], 0.25]]}, 
   {GrayLevel[0], 
    Polygon3DBox[{{-3, -3, 3}, {-3, 3, 3}, {-3, 3, -2}, {-3, -3, -2}}], 
    Polygon3DBox[{{3, 3, 3}, {-3, 3, 3}, {-3, 3, -2}, {3, 3, -2}}]}},
  AutomaticImageSize->True,
  ImageSize->{423.81218547066766`, 435.1452685133262},
  ViewPoint->{0.8469746735788314, -2.694838090399988, 1.8629228563860092`},
  ViewVertical->{-0.15905102579388022`, -0.11423995645654234`, 
   1.1963790545111475`}]], "Output",
 CellChangeTimes->{
  3.622504219520193*^9, {3.62250440094703*^9, 3.622504420337706*^9}, {
   3.622504561033204*^9, 3.6225045756815104`*^9}, 3.6225048163411384`*^9, {
   3.6237088562563133`*^9, 3.623708864435766*^9}, {3.623709078996115*^9, 
   3.6237091018009543`*^9}, {3.6237091353285065`*^9, 3.6237091718881626`*^9}, 
   3.6237092820157843`*^9}]
}, Open  ]]
},
WindowToolbars->"EditBar",
WindowSize->{1264, 896},
WindowMargins->{{-8, Automatic}, {Automatic, 0}},
PrintingCopies->1,
PrintingPageRange->{Automatic, Automatic},
PrivateNotebookOptions->{"VersionedStylesheet"->{"Default.nb"[8.] -> False}},
ShowSelection->True,
Magnification->1,
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, 11382, 277, 512, "Input"],
Cell[12870, 314, 2353, 43, 450, "Output"]
}, Open  ]]
}
]
*)

(* End of internal cache information *)

(* NotebookSignature 4xDd3tdu8KVVrA1Ldd3wRFg2 *)