(* 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[     15901,        478]
NotebookOptionsPosition[     14561,        426]
NotebookOutlinePosition[     14904,        441]
CellTagsIndexPosition[     14861,        438]
WindowFrame->Normal*)

(* Beginning of Notebook Content *)
Notebook[{

Cell[CellGroupData[{
Cell[BoxData[
 RowBox[{"Graphics3D", "[", 
  RowBox[{"{", 
   RowBox[{
    RowBox[{"Sphere", "[", 
     RowBox[{
      RowBox[{"{", 
       RowBox[{"0", ",", "0", ",", "0"}], "}"}], ",", "0.26"}], "]"}], ",", 
    RowBox[{"Sphere", "[", 
     RowBox[{
      RowBox[{"{", 
       RowBox[{
        RowBox[{"-", "0.864"}], ",", 
        RowBox[{"-", "0.864"}], ",", "0.864"}], "}"}], ",", "1.236"}], "]"}], 
    ",", 
    RowBox[{"Sphere", "[", 
     RowBox[{
      RowBox[{"{", 
       RowBox[{"0.864", ",", "0.864", ",", "0.864"}], "}"}], ",", "1.236"}], 
     "]"}], ",", 
    RowBox[{"Sphere", "[", 
     RowBox[{
      RowBox[{"{", 
       RowBox[{
        RowBox[{"-", "0.864"}], ",", "0.864", ",", 
        RowBox[{"-", "0.864"}]}], "}"}], ",", "1.236"}], "]"}], ",", 
    RowBox[{"Sphere", "[", 
     RowBox[{
      RowBox[{"{", 
       RowBox[{"0.864", ",", 
        RowBox[{"-", "0.864"}], ",", 
        RowBox[{"-", "0.864"}]}], "}"}], ",", "1.236"}], "]"}]}], "}"}], 
  "]"}]], "Input",
 CellChangeTimes->{{3.5655873626041803`*^9, 3.5655874243178887`*^9}, {
  3.5655876099114146`*^9, 3.5655876887383533`*^9}, {3.565587724025615*^9, 
  3.565587780903315*^9}, {3.5655879376835904`*^9, 3.565588028990551*^9}, {
  3.5655880614230075`*^9, 3.5655880908914595`*^9}, {3.565588123058716*^9, 
  3.5655881238387175`*^9}, {3.565588613398777*^9, 3.565588647094836*^9}, {
  3.5655887296969814`*^9, 3.5655887473406124`*^9}, {3.565588896305274*^9, 
  3.5655889454297605`*^9}, {3.5655892751675396`*^9, 3.5655892752143393`*^9}, {
  3.5655893441352606`*^9, 3.565589344150861*^9}}],

Cell[BoxData[
 Graphics3DBox[{SphereBox[{0, 0, 0}, 0.26], 
   SphereBox[{-0.864, -0.864, 0.864}, 1.236], 
   SphereBox[{0.864, 0.864, 0.864}, 1.236], 
   SphereBox[{-0.864, 0.864, -0.864}, 1.236], 
   SphereBox[{0.864, -0.864, -0.864}, 1.236]},
  AutomaticImageSize->True,
  ImageSize->{404.8896420341072, 428.0722388138594},
  ViewPoint->{-2.604834484765211, -1.4875846269847655`, -1.565863750310531},
  ViewVertical->{-0.15925455716583958`, -0.02679389644696928, \
-0.9868738891748537}]], "Output",
 CellChangeTimes->{
  3.5655874305111*^9, {3.565587636930662*^9, 3.5655876939019623`*^9}, 
   3.5655877285340233`*^9, {3.5655877614968805`*^9, 3.565587785754924*^9}, 
   3.5655879542820196`*^9, {3.5655880089133153`*^9, 3.5655880367905645`*^9}, 
   3.565588095243867*^9, 3.5655881278167243`*^9, 3.565588295127018*^9, 
   3.5655886545672493`*^9, 3.565588751053419*^9, 3.565588951357771*^9, 
   3.5655892865711594`*^9, 3.565589350484472*^9}]
}, Open  ]],

Cell[CellGroupData[{

Cell[BoxData[
 RowBox[{"Show", "[", 
  RowBox[{
   RowBox[{"Graphics3D", "[", 
    RowBox[{"{", 
     RowBox[{
      RowBox[{"Sphere", "[", 
       RowBox[{
        RowBox[{"{", 
         RowBox[{"0", ",", "0", ",", "0"}], "}"}], ",", 
        FractionBox["1", "3"]}], "]"}], ",", 
      RowBox[{"Sphere", "[", 
       RowBox[{
        RowBox[{"{", 
         RowBox[{
          RowBox[{"-", "0.5`"}], ",", 
          RowBox[{"-", "0.5`"}], ",", "0.5`"}], "}"}], ",", "0.75`"}], "]"}], 
      ",", 
      RowBox[{"Sphere", "[", 
       RowBox[{
        RowBox[{"{", 
         RowBox[{"0.5`", ",", "0.5`", ",", "0.5`"}], "}"}], ",", "0.75`"}], 
       "]"}], ",", 
      RowBox[{"Sphere", "[", 
       RowBox[{
        RowBox[{"{", 
         RowBox[{
          RowBox[{"-", "0.5`"}], ",", "0.5`", ",", 
          RowBox[{"-", "0.5`"}]}], "}"}], ",", "0.75`"}], "]"}], ",", 
      RowBox[{"Sphere", "[", 
       RowBox[{
        RowBox[{"{", 
         RowBox[{"0.5`", ",", 
          RowBox[{"-", "0.5`"}], ",", 
          RowBox[{"-", "0.5`"}]}], "}"}], ",", "0.75`"}], "]"}]}], "}"}], 
    "]"}], ",", 
   RowBox[{"ViewPoint", "\[Rule]", "Front"}]}], "]"}]], "Input",
 NumberMarks->False],

Cell[BoxData[
 Graphics3DBox[{
   SphereBox[{0, 0, 0}, NCache[Rational[1, 3], 0.3333333333333333]], 
   SphereBox[{-0.5, -0.5, 0.5}, 0.75], SphereBox[{0.5, 0.5, 0.5}, 0.75], 
   SphereBox[{-0.5, 0.5, -0.5}, 0.75], SphereBox[{0.5, -0.5, -0.5}, 0.75]},
  AutomaticImageSize->True,
  ImageSize->{371.83620197318925`, 382.4845292592761},
  ViewPoint->Front,
  ViewVertical->{0.2190251682593271, 
   0.5559229475654638, -0.8018588728941646}]], "Output",
 CellChangeTimes->{3.5655881410299473`*^9, 3.565588295142618*^9, 
  3.5655886545984497`*^9, 3.565588751084619*^9, 3.5655889514045706`*^9, 
  3.56558928660236*^9, 3.5655893505156717`*^9}]
}, Open  ]],

Cell[CellGroupData[{

Cell[BoxData[
 RowBox[{"Show", "[", 
  RowBox[{
   RowBox[{"Graphics3D", "[", 
    RowBox[{
     RowBox[{"{", 
      RowBox[{
       RowBox[{"Sphere", "[", 
        RowBox[{
         RowBox[{"{", 
          RowBox[{"0", ",", "0", ",", "0"}], "}"}], ",", 
         FractionBox["1", "3"]}], "]"}], ",", 
       RowBox[{"Sphere", "[", 
        RowBox[{
         RowBox[{"{", 
          RowBox[{
           RowBox[{"-", "0.5`"}], ",", 
           RowBox[{"-", "0.5`"}], ",", "0.5`"}], "}"}], ",", "0.75`"}], "]"}],
        ",", 
       RowBox[{"Sphere", "[", 
        RowBox[{
         RowBox[{"{", 
          RowBox[{"0.5`", ",", "0.5`", ",", "0.5`"}], "}"}], ",", "0.75`"}], 
        "]"}], ",", 
       RowBox[{"Sphere", "[", 
        RowBox[{
         RowBox[{"{", 
          RowBox[{
           RowBox[{"-", "0.5`"}], ",", "0.5`", ",", 
           RowBox[{"-", "0.5`"}]}], "}"}], ",", "0.75`"}], "]"}], ",", 
       RowBox[{"Sphere", "[", 
        RowBox[{
         RowBox[{"{", 
          RowBox[{"0.5`", ",", 
           RowBox[{"-", "0.5`"}], ",", 
           RowBox[{"-", "0.5`"}]}], "}"}], ",", "1"}], "]"}]}], "}"}], ",", 
     RowBox[{"{", 
      RowBox[{"ViewPoint", "\[Rule]", "Front"}], "}"}]}], "]"}], ",", 
   RowBox[{"Boxed", "\[Rule]", "False"}]}], "]"}]], "Input",
 CellChangeTimes->{{3.565588285314601*^9, 3.5655882878574057`*^9}},
 NumberMarks->False],

Cell[BoxData[
 Graphics3DBox[{
   SphereBox[{0, 0, 0}, NCache[Rational[1, 3], 0.3333333333333333]], 
   SphereBox[{-0.5, -0.5, 0.5}, 0.75], SphereBox[{0.5, 0.5, 0.5}, 0.75], 
   SphereBox[{-0.5, 0.5, -0.5}, 0.75], SphereBox[{0.5, -0.5, -0.5}, 1]},
  AutomaticImageSize->True,
  Boxed->False,
  ImageSize->{402.7894509720843, 406.0329824763322},
  ViewPoint->Front,
  ViewVertical->{
   0.6461923085642649, -0.7313415788308925, -0.21811693062557863`}]], "Output",
 CellChangeTimes->{3.565588264675765*^9, 3.565588295173818*^9, 
  3.56558865461405*^9, 3.565588751115819*^9, 3.565588951435771*^9, 
  3.5655892866335597`*^9, 3.565589350546872*^9}]
}, Open  ]],

Cell[CellGroupData[{

Cell[BoxData[
 RowBox[{"Show", "[", 
  RowBox[{
   RowBox[{"Graphics3D", "[", 
    RowBox[{
     RowBox[{"{", 
      RowBox[{
       RowBox[{"Sphere", "[", 
        RowBox[{
         RowBox[{"{", 
          RowBox[{"0", ",", "0", ",", "0"}], "}"}], ",", 
         FractionBox["1", "3"]}], "]"}], ",", 
       RowBox[{"Sphere", "[", 
        RowBox[{
         RowBox[{"{", 
          RowBox[{
           RowBox[{"-", "0.5`"}], ",", 
           RowBox[{"-", "0.5`"}], ",", "0.5`"}], "}"}], ",", "0.75`"}], "]"}],
        ",", 
       RowBox[{"Sphere", "[", 
        RowBox[{
         RowBox[{"{", 
          RowBox[{"0.5`", ",", "0.5`", ",", "0.5`"}], "}"}], ",", "0.75`"}], 
        "]"}], ",", 
       RowBox[{"Sphere", "[", 
        RowBox[{
         RowBox[{"{", 
          RowBox[{
           RowBox[{"-", "0.5`"}], ",", "0.5`", ",", 
           RowBox[{"-", "0.5`"}]}], "}"}], ",", "0.75`"}], "]"}], ",", 
       RowBox[{"Sphere", "[", 
        RowBox[{
         RowBox[{"{", 
          RowBox[{"0.5`", ",", 
           RowBox[{"-", "0.5`"}], ",", 
           RowBox[{"-", "0.5`"}]}], "}"}], ",", "1"}], "]"}]}], "}"}], ",", 
     RowBox[{"{", 
      RowBox[{
       RowBox[{"Boxed", "\[Rule]", "False"}], ",", 
       RowBox[{"ViewPoint", "\[Rule]", "Front"}]}], "}"}]}], "]"}], ",", 
   RowBox[{"Background", "\[Rule]", 
    RowBox[{"RGBColor", "[", 
     RowBox[{"0.84`", ",", "0.92`", ",", "1.`"}], "]"}]}]}], "]"}]], "Input",
 NumberMarks->False],

Cell[BoxData[
 Graphics3DBox[{
   SphereBox[{0, 0, 0}, NCache[Rational[1, 3], 0.3333333333333333]], 
   SphereBox[{-0.5, -0.5, 0.5}, 0.75], SphereBox[{0.5, 0.5, 0.5}, 0.75], 
   SphereBox[{-0.5, 0.5, -0.5}, 0.75], SphereBox[{0.5, -0.5, -0.5}, 1]},
  AutomaticImageSize->True,
  Background->RGBColor[0.84, 0.92, 1.],
  Boxed->False,
  ImageSize->{428.36501962731336`, 421.10901460190263`},
  ViewPoint->Front,
  ViewVertical->{0.0525216279745164, -0.552567397003229, 
   0.8318117277148612}]], "Output",
 CellChangeTimes->{3.5655883699291496`*^9, 3.5655886546452494`*^9, 
  3.5655887511470194`*^9, 3.5655889514513707`*^9, 3.5655892866491594`*^9, 
  3.5655893505624723`*^9}]
}, Open  ]],

Cell[CellGroupData[{

Cell[BoxData[
 RowBox[{"Show", "[", 
  RowBox[{"%19", ",", 
   RowBox[{"Background", "\[Rule]", 
    RowBox[{"RGBColor", "[", 
     RowBox[{"0.97`", ",", "0.93`", ",", "0.68`"}], "]"}]}]}], "]"}]], "Input",
 NumberMarks->False],

Cell[BoxData[
 Graphics3DBox[{
   SphereBox[{0, 0, 0}, NCache[Rational[1, 3], 0.3333333333333333]], 
   SphereBox[{-0.5, -0.5, 0.5}, 0.75], SphereBox[{0.5, 0.5, 0.5}, 0.75], 
   SphereBox[{-0.5, 0.5, -0.5}, 0.75], SphereBox[{0.5, -0.5, -0.5}, 1]},
  AutomaticImageSize->True,
  Background->RGBColor[0.97, 0.93, 0.68],
  Boxed->False,
  ImageSize->{403.2844994709755, 413.62504647204116`},
  ViewPoint->Front,
  ViewVertical->{0.03401731825524633, -0.2449531287217003, 
   0.9689379684934282}]], "Output",
 CellChangeTimes->{3.565588390006385*^9, 3.5655886546452494`*^9, 
  3.5655887511470194`*^9, 3.5655889514513707`*^9, 3.5655892866647596`*^9, 
  3.5655893505624723`*^9}]
}, Open  ]],

Cell[CellGroupData[{

Cell[BoxData[
 RowBox[{"Show", "[", 
  RowBox[{"%20", ",", 
   RowBox[{"Axes", "\[Rule]", "True"}], ",", 
   RowBox[{"AxesStyle", "\[Rule]", "Black"}]}], "]"}]], "Input",
 NumberMarks->False],

Cell[BoxData[
 Graphics3DBox[{
   SphereBox[{0, 0, 0}, NCache[Rational[1, 3], 0.3333333333333333]], 
   SphereBox[{-0.5, -0.5, 0.5}, 0.75], SphereBox[{0.5, 0.5, 0.5}, 0.75], 
   SphereBox[{-0.5, 0.5, -0.5}, 0.75], SphereBox[{0.5, -0.5, -0.5}, 1]},
  AutomaticImageSize->True,
  Axes->True,
  AxesStyle->GrayLevel[0],
  Background->RGBColor[0.97, 0.93, 0.68],
  Boxed->False,
  ImageSize->{363.5240321181064, 354.42503807412703`},
  ViewPoint->Front,
  ViewVertical->{-0.23409555172388333`, -0.04581402775421556, 
   0.9711335374314011}]], "Output",
 CellChangeTimes->{3.565588411331622*^9, 3.5655886546608496`*^9, 
  3.5655887511470194`*^9, 3.565588951466971*^9, 3.5655892866647596`*^9, 
  3.565589350578072*^9}]
}, Open  ]],

Cell[CellGroupData[{

Cell[BoxData[
 RowBox[{"Show", "[", 
  RowBox[{"%21", ",", 
   RowBox[{"Axes", "\[Rule]", "False"}]}], "]"}]], "Input",
 NumberMarks->False],

Cell[BoxData[
 Graphics3DBox[{
   SphereBox[{0, 0, 0}, NCache[Rational[1, 3], 0.3333333333333333]], 
   SphereBox[{-0.5, -0.5, 0.5}, 0.75], SphereBox[{0.5, 0.5, 0.5}, 0.75], 
   SphereBox[{-0.5, 0.5, -0.5}, 0.75], SphereBox[{0.5, -0.5, -0.5}, 1]},
  Axes->False,
  AxesStyle->GrayLevel[0],
  Background->RGBColor[0.97, 0.93, 0.68],
  Boxed->False,
  ViewPoint->Front]], "Output",
 CellChangeTimes->{3.5655884295836544`*^9, 3.5655886546608496`*^9, 
  3.565588751162619*^9, 3.565588951466971*^9, 3.56558928668036*^9, 
  3.565589350578072*^9}]
}, Open  ]],

Cell[CellGroupData[{

Cell[BoxData[
 RowBox[{"Show", "[", 
  RowBox[{"%22", ",", 
   RowBox[{"Background", "\[Rule]", "Black"}]}], "]"}]], "Input",
 NumberMarks->False],

Cell[BoxData[
 Graphics3DBox[{
   SphereBox[{0, 0, 0}, NCache[Rational[1, 3], 0.3333333333333333]], 
   SphereBox[{-0.5, -0.5, 0.5}, 0.75], SphereBox[{0.5, 0.5, 0.5}, 0.75], 
   SphereBox[{-0.5, 0.5, -0.5}, 0.75], SphereBox[{0.5, -0.5, -0.5}, 1]},
  AutomaticImageSize->True,
  Axes->False,
  AxesStyle->GrayLevel[0],
  Background->GrayLevel[0],
  Boxed->False,
  ImageSize->{392.05995442312906`, 419.78152330899104`},
  ViewPoint->Front,
  ViewVertical->{0.21191718970353993`, -0.5000459650743609, 
   0.8396696597597206}]], "Output",
 CellChangeTimes->{3.5655884369780674`*^9, 3.56558865467645*^9, 
  3.565588751162619*^9, 3.5655889514825706`*^9, 3.56558928668036*^9, 
  3.565589350593672*^9}]
}, Open  ]],

Cell[CellGroupData[{

Cell[BoxData[
 RowBox[{"Show", "[", 
  RowBox[{"%23", ",", 
   RowBox[{"Background", "\[Rule]", "LightGray"}]}], "]"}]], "Input",
 NumberMarks->False],

Cell[BoxData[
 Graphics3DBox[{
   SphereBox[{0, 0, 0}, NCache[Rational[1, 3], 0.3333333333333333]], 
   SphereBox[{-0.5, -0.5, 0.5}, 0.75], SphereBox[{0.5, 0.5, 0.5}, 0.75], 
   SphereBox[{-0.5, 0.5, -0.5}, 0.75], SphereBox[{0.5, -0.5, -0.5}, 1]},
  AutomaticImageSize->True,
  Axes->False,
  AxesStyle->GrayLevel[0],
  Background->GrayLevel[0.85],
  Boxed->False,
  ImageSize->{407.14433161340975`, 414.74898428125834`},
  ViewPoint->Front,
  ViewVertical->{-0.06866786530477142, 0.07438391493133367, 
   0.9948626827225826}]], "Output",
 CellChangeTimes->{3.5655884541068974`*^9, 3.56558865467645*^9, 
  3.5655887511782193`*^9, 3.5655889514825706`*^9, 3.56558928668036*^9, 
  3.565589350593672*^9}]
}, Open  ]],

Cell[CellGroupData[{

Cell[BoxData[
 RowBox[{"Show", "[", 
  RowBox[{"%24", ",", 
   RowBox[{"Background", "\[Rule]", 
    RowBox[{"RGBColor", "[", 
     RowBox[{"1.`", ",", "0.72`", ",", "0.41000000000000003`"}], "]"}]}]}], 
  "]"}]], "Input",
 NumberMarks->False],

Cell[BoxData[
 Graphics3DBox[{
   SphereBox[{0, 0, 0}, NCache[Rational[1, 3], 0.3333333333333333]], 
   SphereBox[{-0.5, -0.5, 0.5}, 0.75], SphereBox[{0.5, 0.5, 0.5}, 0.75], 
   SphereBox[{-0.5, 0.5, -0.5}, 0.75], SphereBox[{0.5, -0.5, -0.5}, 1]},
  AutomaticImageSize->True,
  Axes->False,
  AxesStyle->GrayLevel[0],
  Background->RGBColor[1., 0.72, 0.41000000000000003`],
  Boxed->False,
  ImageSize->{426.4492983118255, 445.9226023377751},
  ViewPoint->Front,
  ViewVertical->{-0.0968597008600894, 0.3317111586259486, 
   0.9383953887313836}]], "Output",
 CellChangeTimes->{3.565588487007355*^9, 3.56558865467645*^9, 
  3.5655887511782193`*^9, 3.5655889514825706`*^9, 3.56558928669596*^9, 
  3.565589350609272*^9}]
}, Open  ]]
},
WindowSize->{903, 817},
WindowMargins->{{0, Automatic}, {Automatic, 0}},
FrontEndVersion->"9.0 for Microsoft Windows (64-bit) (November 20, 2012)",
StyleDefinitions->"Default.nb"
]
(* End of Notebook Content *)

(* Internal cache information *)
(*CellTagsOutline
CellTagsIndex->{}
*)
(*CellTagsIndex
CellTagsIndex->{}
*)
(*NotebookFileOutline
Notebook[{
Cell[CellGroupData[{
Cell[579, 22, 1570, 40, 72, "Input"],
Cell[2152, 64, 939, 17, 475, "Output"]
}, Open  ]],
Cell[CellGroupData[{
Cell[3128, 86, 1187, 37, 103, "Input"],
Cell[4318, 125, 635, 12, 397, "Output"]
}, Open  ]],
Cell[CellGroupData[{
Cell[4990, 142, 1369, 40, 103, "Input"],
Cell[6362, 184, 643, 13, 421, "Output"]
}, Open  ]],
Cell[CellGroupData[{
Cell[7042, 202, 1455, 43, 103, "Input"],
Cell[8500, 247, 672, 14, 436, "Output"]
}, Open  ]],
Cell[CellGroupData[{
Cell[9209, 266, 227, 6, 31, "Input"],
Cell[9439, 274, 672, 14, 429, "Output"]
}, Open  ]],
Cell[CellGroupData[{
Cell[10148, 293, 191, 5, 31, "Input"],
Cell[10342, 300, 712, 16, 369, "Output"]
}, Open  ]],
Cell[CellGroupData[{
Cell[11091, 321, 140, 4, 31, "Input"],
Cell[11234, 327, 540, 12, 375, "Output"]
}, Open  ]],
Cell[CellGroupData[{
Cell[11811, 344, 146, 4, 31, "Input"],
Cell[11960, 350, 695, 16, 435, "Output"]
}, Open  ]],
Cell[CellGroupData[{
Cell[12692, 371, 150, 4, 31, "Input"],
Cell[12845, 377, 700, 16, 430, "Output"]
}, Open  ]],
Cell[CellGroupData[{
Cell[13582, 398, 243, 7, 31, "Input"],
Cell[13828, 407, 717, 16, 461, "Output"]
}, Open  ]]
}
]
*)

(* End of internal cache information *)