(* 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[     40580,       1038]
NotebookOptionsPosition[     39549,       1003]
NotebookOutlinePosition[     40155,       1025]
CellTagsIndexPosition[     40112,       1022]
WindowFrame->Normal*)

(* Beginning of Notebook Content *)
Notebook[{
Cell[BoxData[
 RowBox[{
  RowBox[{"(*", " ", 
   RowBox[{
    RowBox[{
     RowBox[{
      RowBox[{
       RowBox[{
        RowBox[{"[", 
         RowBox[{"Fe", 
          RowBox[{"(", "CN", ")"}], "6"}], "]"}], "--"}], "--"}], " ", 
      "computation"}], ";", " ", 
     RowBox[{"coordinates", " ", "and", " ", "radii", " ", "from", " ", 
      RowBox[{"FeCN6II8", ".", "exe"}]}]}], ",", " ", 
    RowBox[{"02.10", 
     RowBox[{".2012", "/", "15.02"}], ".2013"}]}], " ", "*)"}], 
  "\[IndentingNewLine]", "\[IndentingNewLine]", 
  RowBox[{
   RowBox[{"t", "=", 
    RowBox[{"{", 
     RowBox[{
      RowBox[{"{", 
       RowBox[{"0.00000", ",", "0.00000", ",", "0.00000", ",", "2.49901"}], 
       "}"}], ",", 
      RowBox[{"{", 
       RowBox[{"2.33848", ",", "0.00000", ",", "0.00000", ",", "1.69653"}], 
       "}"}], ",", 
      RowBox[{"{", 
       RowBox[{"4.29533", ",", "0.00000", ",", "0.00000", ",", "0.26032"}], 
       "}"}], ",", 
      RowBox[{"{", 
       RowBox[{"5.40207", ",", "0.00000", ",", "0.00000", ",", "0.84643"}], 
       "}"}], ",", 
      RowBox[{"{", 
       RowBox[{"5.40207", ",", "1.89008", ",", "0.00000", ",", "1.89008"}], 
       "}"}], ",", 
      RowBox[{"{", 
       RowBox[{"5.40207", ",", "0.00000", ",", "1.89008", ",", "1.89008"}], 
       "}"}], ",", 
      RowBox[{"{", 
       RowBox[{"5.40207", ",", 
        RowBox[{"-", "1.89008"}], ",", "0.00000", ",", "1.89008"}], "}"}], 
      ",", 
      RowBox[{"{", 
       RowBox[{"5.40207", ",", "0.00000", ",", 
        RowBox[{"-", "1.89008"}], ",", "1.89008"}], "}"}], ",", 
      RowBox[{"{", 
       RowBox[{"6.47226", ",", "0.00000", ",", "0.00000", ",", "0.22376"}], 
       "}"}], ",", 
      RowBox[{"{", 
       RowBox[{"7.79852", ",", "0.00000", ",", "0.00000", ",", "1.10250"}], 
       "}"}], ",", 
      RowBox[{"{", 
       RowBox[{"0.00000", ",", "2.33848", ",", "0.00000", ",", "1.69653"}], 
       "}"}], ",", 
      RowBox[{"{", 
       RowBox[{"0.00000", ",", "4.29533", ",", "0.00000", ",", "0.26032"}], 
       "}"}], ",", "\[IndentingNewLine]", 
      RowBox[{"{", 
       RowBox[{"0.00000", ",", "5.40207", ",", "0.00000", ",", "0.84643"}], 
       "}"}], ",", 
      RowBox[{"{", 
       RowBox[{"1.89008", ",", "5.40207", ",", "0.00000", ",", "1.89008"}], 
       "}"}], ",", 
      RowBox[{"{", 
       RowBox[{"0.00000", ",", "5.40207", ",", "1.89008", ",", "1.89008"}], 
       "}"}], ",", "\[IndentingNewLine]", 
      RowBox[{"{", 
       RowBox[{
        RowBox[{"-", "1.89008"}], ",", "5.40207", ",", "0.00000", ",", 
        "1.89008"}], "}"}], ",", 
      RowBox[{"{", 
       RowBox[{"0.00000", ",", "5.40207", ",", 
        RowBox[{"-", "1.89008"}], ",", "1.89008"}], "}"}], ",", 
      RowBox[{"{", 
       RowBox[{"0.00000", ",", "6.47226", ",", "0.00000", ",", "0.22376"}], 
       "}"}], ",", "\[IndentingNewLine]", 
      RowBox[{"{", 
       RowBox[{"0.00000", ",", "7.79852", ",", "0.00000", ",", "1.10250"}], 
       "}"}], ",", 
      RowBox[{"{", 
       RowBox[{
        RowBox[{"-", "2.33848"}], ",", "0.00000", ",", "0.00000", ",", 
        "1.69653"}], "}"}], ",", 
      RowBox[{"{", 
       RowBox[{
        RowBox[{"-", "4.29533"}], ",", "0.00000", ",", "0.00000", ",", 
        "0.26032"}], "}"}], ",", 
      RowBox[{"{", 
       RowBox[{
        RowBox[{"-", "5.40207"}], ",", "0.00000", ",", "0.00000", ",", 
        "0.84643"}], "}"}], ",", 
      RowBox[{"{", 
       RowBox[{
        RowBox[{"-", "5.40207"}], ",", 
        RowBox[{"-", "1.89008"}], ",", "0.00000", ",", "1.89008"}], "}"}], 
      ",", 
      RowBox[{"{", 
       RowBox[{
        RowBox[{"-", "5.40207"}], ",", "0.00000", ",", 
        RowBox[{"-", "1.89008"}], ",", "1.89008"}], "}"}], ",", 
      RowBox[{"{", 
       RowBox[{
        RowBox[{"-", "5.40207"}], ",", "1.89008", ",", "0.00000", ",", 
        "1.89008"}], "}"}], ",", 
      RowBox[{"{", 
       RowBox[{
        RowBox[{"-", "5.40207"}], ",", "0.00000", ",", "1.89008", ",", 
        "1.89008"}], "}"}], ",", 
      RowBox[{"{", 
       RowBox[{
        RowBox[{"-", "6.47226"}], ",", "0.00000", ",", "0.00000", ",", 
        "0.22376"}], "}"}], ",", 
      RowBox[{"{", 
       RowBox[{
        RowBox[{"-", "7.79852"}], ",", "0.00000", ",", "0.00000", ",", 
        "1.10250"}], "}"}]}], "}"}]}], ";"}]}]], "Input",
 CellChangeTimes->{{3.5699068612712393`*^9, 3.569906915512535*^9}, {
  3.5699219256869183`*^9, 3.5699219420825467`*^9}, {3.5699220074934616`*^9, 
  3.5699220249030924`*^9}, {3.5699220648703623`*^9, 3.5699220710947733`*^9}}],

Cell[BoxData[{
 RowBox[{
  RowBox[{"x", "=", 
   RowBox[{"Table", "[", 
    RowBox[{
     RowBox[{"t", "[", 
      RowBox[{"[", 
       RowBox[{"i", ",", "1"}], "]"}], "]"}], ",", 
     RowBox[{"{", 
      RowBox[{"i", ",", "1", ",", "28"}], "}"}]}], "]"}]}], 
  ";"}], "\[IndentingNewLine]", 
 RowBox[{
  RowBox[{"y", "=", 
   RowBox[{"Table", "[", 
    RowBox[{
     RowBox[{"t", "[", 
      RowBox[{"[", 
       RowBox[{"i", ",", "2"}], "]"}], "]"}], ",", 
     RowBox[{"{", 
      RowBox[{"i", ",", "1", ",", "28"}], "}"}]}], "]"}]}], 
  ";"}], "\[IndentingNewLine]", 
 RowBox[{
  RowBox[{"z", "=", 
   RowBox[{"Table", "[", 
    RowBox[{
     RowBox[{"t", "[", 
      RowBox[{"[", 
       RowBox[{"i", ",", "3"}], "]"}], "]"}], ",", 
     RowBox[{"{", 
      RowBox[{"i", ",", "1", ",", "28"}], "}"}]}], "]"}]}], 
  ";"}], "\[IndentingNewLine]", 
 RowBox[{
  RowBox[{"r", "=", 
   RowBox[{"Table", "[", 
    RowBox[{
     RowBox[{"t", "[", 
      RowBox[{"[", 
       RowBox[{"i", ",", "4"}], "]"}], "]"}], ",", 
     RowBox[{"{", 
      RowBox[{"i", ",", "1", ",", "28"}], "}"}]}], "]"}]}], 
  ";"}], "\[IndentingNewLine]"}], "Input"],

Cell[CellGroupData[{

Cell[BoxData[
 RowBox[{
  RowBox[{"(*", " ", 
   RowBox[{
   "one", " ", "of", " ", "the", " ", "three", " ", "sigmah", " ", "planes"}],
    " ", "*)"}], "\[IndentingNewLine]", 
  RowBox[{
   RowBox[{
    RowBox[{"plot2", "=", 
     RowBox[{"Table", "[", 
      RowBox[{
       RowBox[{"Graphics", "[", 
        RowBox[{"{", 
         RowBox[{"Circle", "[", 
          RowBox[{
           RowBox[{"{", 
            RowBox[{
             RowBox[{"x", "[", 
              RowBox[{"[", "i", "]"}], "]"}], ",", 
             RowBox[{"y", "[", 
              RowBox[{"[", "i", "]"}], "]"}]}], "}"}], ",", 
           RowBox[{"r", "[", 
            RowBox[{"[", "i", "]"}], "]"}]}], "]"}], "}"}], "]"}], ",", 
       RowBox[{"{", 
        RowBox[{"i", ",", "1", ",", "28"}], "}"}]}], "]"}]}], ";"}], 
   "\[IndentingNewLine]", "\[IndentingNewLine]", 
   RowBox[{
    RowBox[{"plot21", "=", 
     RowBox[{"Table", "[", 
      RowBox[{
       RowBox[{"Graphics", "[", 
        RowBox[{"{", 
         RowBox[{"Circle", "[", 
          RowBox[{
           RowBox[{"{", 
            RowBox[{
             RowBox[{"x", "[", 
              RowBox[{"[", "i", "]"}], "]"}], ",", 
             RowBox[{"-", 
              RowBox[{"y", "[", 
               RowBox[{"[", "i", "]"}], "]"}]}]}], "}"}], ",", 
           RowBox[{"r", "[", 
            RowBox[{"[", "i", "]"}], "]"}]}], "]"}], "}"}], "]"}], ",", 
       RowBox[{"{", 
        RowBox[{"i", ",", "11", ",", "19"}], "}"}]}], "]"}]}], ";"}], 
   "\[IndentingNewLine]", 
   RowBox[{
    RowBox[{"plot22", "=", 
     RowBox[{"Graphics", "[", 
      RowBox[{"{", 
       RowBox[{
        RowBox[{"Circle", "[", 
         RowBox[{
          RowBox[{"{", 
           RowBox[{
            RowBox[{"x", "[", 
             RowBox[{"[", "1", "]"}], "]"}], ",", 
            RowBox[{"y", "[", 
             RowBox[{"[", "1", "]"}], "]"}]}], "}"}], ",", "0.05"}], "]"}], 
        ",", 
        RowBox[{"Circle", "[", 
         RowBox[{
          RowBox[{"{", 
           RowBox[{
            RowBox[{"x", "[", 
             RowBox[{"[", "1", "]"}], "]"}], ",", 
            RowBox[{"y", "[", 
             RowBox[{"[", "1", "]"}], "]"}]}], "}"}], ",", "0.25"}], "]"}], 
        ",", 
        RowBox[{"Circle", "[", 
         RowBox[{
          RowBox[{"{", 
           RowBox[{
            RowBox[{"x", "[", 
             RowBox[{"[", "1", "]"}], "]"}], ",", 
            RowBox[{"y", "[", 
             RowBox[{"[", "1", "]"}], "]"}]}], "}"}], ",", "0.636"}], "]"}], 
        ",", "\[IndentingNewLine]", 
        RowBox[{"Disk", "[", 
         RowBox[{
          RowBox[{"{", 
           RowBox[{
            RowBox[{"x", "[", 
             RowBox[{"[", "3", "]"}], "]"}], ",", 
            RowBox[{"y", "[", 
             RowBox[{"[", "3", "]"}], "]"}]}], "}"}], ",", "0.1"}], "]"}], 
        ",", " ", 
        RowBox[{"Disk", "[", 
         RowBox[{
          RowBox[{"{", 
           RowBox[{
            RowBox[{"x", "[", 
             RowBox[{"[", "9", "]"}], "]"}], ",", 
            RowBox[{"y", "[", 
             RowBox[{"[", "9", "]"}], "]"}]}], "}"}], ",", "0.1"}], "]"}], 
        ",", " ", "\[IndentingNewLine]", 
        RowBox[{"Disk", "[", 
         RowBox[{
          RowBox[{"{", 
           RowBox[{
            RowBox[{"x", "[", 
             RowBox[{"[", "12", "]"}], "]"}], ",", 
            RowBox[{"y", "[", 
             RowBox[{"[", "12", "]"}], "]"}]}], "}"}], ",", "0.1"}], "]"}], 
        ",", " ", 
        RowBox[{"Disk", "[", 
         RowBox[{
          RowBox[{"{", 
           RowBox[{
            RowBox[{"x", "[", 
             RowBox[{"[", "12", "]"}], "]"}], ",", 
            RowBox[{"-", 
             RowBox[{"y", "[", 
              RowBox[{"[", "12", "]"}], "]"}]}]}], "}"}], ",", "0.1"}], "]"}],
         ",", 
        RowBox[{"Disk", "[", 
         RowBox[{
          RowBox[{"{", 
           RowBox[{
            RowBox[{"x", "[", 
             RowBox[{"[", "18", "]"}], "]"}], ",", 
            RowBox[{"y", "[", 
             RowBox[{"[", "18", "]"}], "]"}]}], "}"}], ",", "0.1"}], "]"}], 
        ",", 
        RowBox[{"Disk", "[", 
         RowBox[{
          RowBox[{"{", 
           RowBox[{
            RowBox[{"x", "[", 
             RowBox[{"[", "18", "]"}], "]"}], ",", 
            RowBox[{"-", 
             RowBox[{"y", "[", 
              RowBox[{"[", "18", "]"}], "]"}]}]}], "}"}], ",", "0.1"}], "]"}],
         ",", " ", 
        RowBox[{"Disk", "[", 
         RowBox[{
          RowBox[{"{", 
           RowBox[{
            RowBox[{"x", "[", 
             RowBox[{"[", "21", "]"}], "]"}], ",", 
            RowBox[{"y", "[", 
             RowBox[{"[", "21", "]"}], "]"}]}], "}"}], ",", "0.1"}], "]"}], 
        ",", " ", 
        RowBox[{"Disk", "[", 
         RowBox[{
          RowBox[{"{", 
           RowBox[{
            RowBox[{"x", "[", 
             RowBox[{"[", "27", "]"}], "]"}], ",", 
            RowBox[{"y", "[", 
             RowBox[{"[", "27", "]"}], "]"}]}], "}"}], ",", "0.1"}], "]"}], 
        ",", " ", "\[IndentingNewLine]", 
        RowBox[{"Disk", "[", 
         RowBox[{
          RowBox[{"{", 
           RowBox[{"0", ",", "0"}], "}"}], ",", "0.16"}], "]"}]}], " ", "}"}],
       " ", "]"}]}], ";"}], "\[IndentingNewLine]", "\[IndentingNewLine]", 
   RowBox[{"Show", "[", 
    RowBox[{"plot2", ",", "plot21", ",", "plot22", ",", 
     RowBox[{"{", 
      RowBox[{
       RowBox[{"AspectRatio", " ", "\[Rule]", " ", "Automatic"}], ",", 
       RowBox[{"Axes", " ", "->", " ", "True"}], ",", 
       RowBox[{"GridLines", " ", "->", " ", "Automatic"}], ",", " ", 
       RowBox[{"PlotRange", " ", "\[Rule]", " ", 
        RowBox[{"{", 
         RowBox[{
          RowBox[{"{", 
           RowBox[{
            RowBox[{"-", "10"}], ",", "10"}], "}"}], ",", 
          RowBox[{"{", 
           RowBox[{
            RowBox[{"-", "10"}], ",", "10"}], "}"}]}], "}"}]}], ",", " ", 
       RowBox[{"Frame", " ", "->", " ", "True"}]}], "}"}]}], 
    "]"}]}]}]], "Input",
 CellChangeTimes->{{3.5650245121308794`*^9, 3.565024520898095*^9}, 
   3.5699057858209505`*^9, {3.5699164608101196`*^9, 3.5699166991785383`*^9}, {
   3.5699218263303432`*^9, 3.5699218841908455`*^9}}],

Cell[BoxData[
 GraphicsBox[{CircleBox[{0., 0.}, 2.49901], CircleBox[{2.33848, 0.}, 1.69653],
    CircleBox[{4.29533, 0.}, 0.26032], CircleBox[{5.40207, 0.}, 0.84643], 
   CircleBox[{5.40207, 1.89008}, 1.89008], CircleBox[{5.40207, 0.}, 1.89008], 
   CircleBox[{5.40207, -1.89008}, 1.89008], CircleBox[{5.40207, 0.}, 1.89008],
    CircleBox[{6.47226, 0.}, 0.22376], CircleBox[{7.79852, 0.}, 1.1025], 
   CircleBox[{0., 2.33848}, 1.69653], CircleBox[{0., 4.29533}, 0.26032], 
   CircleBox[{0., 5.40207}, 0.84643], CircleBox[{1.89008, 5.40207}, 1.89008], 
   CircleBox[{0., 5.40207}, 1.89008], CircleBox[{-1.89008, 5.40207}, 1.89008],
    CircleBox[{0., 5.40207}, 1.89008], CircleBox[{0., 6.47226}, 0.22376], 
   CircleBox[{0., 7.79852}, 1.1025], CircleBox[{-2.33848, 0.}, 1.69653], 
   CircleBox[{-4.29533, 0.}, 0.26032], CircleBox[{-5.40207, 0.}, 0.84643], 
   CircleBox[{-5.40207, -1.89008}, 1.89008], 
   CircleBox[{-5.40207, 0.}, 1.89008], 
   CircleBox[{-5.40207, 1.89008}, 1.89008], 
   CircleBox[{-5.40207, 0.}, 1.89008], CircleBox[{-6.47226, 0.}, 0.22376], 
   CircleBox[{-7.79852, 0.}, 1.1025], CircleBox[{0., -2.33848}, 1.69653], 
   CircleBox[{0., -4.29533}, 0.26032], CircleBox[{0., -5.40207}, 0.84643], 
   CircleBox[{1.89008, -5.40207}, 1.89008], 
   CircleBox[{0., -5.40207}, 1.89008], 
   CircleBox[{-1.89008, -5.40207}, 1.89008], 
   CircleBox[{0., -5.40207}, 1.89008], CircleBox[{0., -6.47226}, 0.22376], 
   CircleBox[{0., -7.79852}, 1.1025], {CircleBox[{0., 0.}, 0.05], 
    CircleBox[{0., 0.}, 0.25], CircleBox[{0., 0.}, 0.636], 
    DiskBox[{4.29533, 0.}, 0.1], DiskBox[{6.47226, 0.}, 0.1], 
    DiskBox[{0., 4.29533}, 0.1], DiskBox[{0., -4.29533}, 0.1], 
    DiskBox[{0., 6.47226}, 0.1], DiskBox[{0., -6.47226}, 0.1], 
    DiskBox[{-4.29533, 0.}, 0.1], DiskBox[{-6.47226, 0.}, 0.1], 
    DiskBox[{0, 0}, 0.16]}},
  AspectRatio->Automatic,
  Axes->True,
  Frame->True,
  GridLines->Automatic,
  PlotRange->{{-10, 10}, {-10, 10}}]], "Output",
 CellChangeTimes->{
  3.569907103383665*^9, 3.5699072041754417`*^9, 3.5699073421888847`*^9, 
   3.569907374699342*^9, 3.569907405696596*^9, 3.5699074794535255`*^9, 
   3.5699075266124086`*^9, {3.5699075659868774`*^9, 3.569907578373299*^9}, 
   3.5699087913378296`*^9, 3.5699088679963646`*^9, 3.5699093662144394`*^9, 
   3.5699093963224926`*^9, 3.569909505803485*^9, 3.5699095622287836`*^9, 
   3.569909665485365*^9, 3.5699097971651964`*^9, 3.5699110047789173`*^9, 
   3.569911115601512*^9, 3.5699112906650195`*^9, 3.569911326607483*^9, 
   3.5699113988044095`*^9, 3.569921901350875*^9, 3.5699219582753754`*^9}]
}, Open  ]],

Cell[BoxData[
 RowBox[{
  RowBox[{"plot3", "=", 
   RowBox[{"Table", "[", 
    RowBox[{
     RowBox[{"Graphics3D", "[", 
      RowBox[{"{", 
       RowBox[{
        RowBox[{"Opacity", "[", "0.3", "]"}], ",", 
        RowBox[{"Sphere", "[", 
         RowBox[{
          RowBox[{"{", 
           RowBox[{
            RowBox[{"x", "[", 
             RowBox[{"[", "i", "]"}], "]"}], ",", 
            RowBox[{"y", "[", 
             RowBox[{"[", "i", "]"}], "]"}], ",", 
            RowBox[{"z", "[", 
             RowBox[{"[", "i", "]"}], "]"}]}], "}"}], ",", 
          RowBox[{"r", "[", 
           RowBox[{"[", "i", "]"}], "]"}]}], "]"}]}], "}"}], "]"}], ",", 
     RowBox[{"{", 
      RowBox[{"i", ",", "1", ",", "28"}], "}"}]}], "]"}]}], ";"}]], "Input",
 CellChangeTimes->{{3.569904912188216*^9, 3.5699050079099846`*^9}, {
   3.569905120261382*^9, 3.569905129465398*^9}, {3.569905180961088*^9, 
   3.569905226622369*^9}, {3.5699052931876855`*^9, 3.5699053148717237`*^9}, {
   3.5699053539965925`*^9, 3.5699054389231415`*^9}, 3.569905537530915*^9, {
   3.569905740456071*^9, 3.5699057428272753`*^9}, {3.5699059913513117`*^9, 
   3.569905998901725*^9}, {3.5699060985859003`*^9, 3.569906102236306*^9}, 
   3.569909499345073*^9}],

Cell[BoxData[
 RowBox[{
  RowBox[{"plot4", "=", 
   RowBox[{"Table", "[", 
    RowBox[{
     RowBox[{"Graphics3D", "[", 
      RowBox[{"{", 
       RowBox[{
        RowBox[{"Opacity", "[", "0.3", "]"}], ",", 
        RowBox[{"Sphere", "[", 
         RowBox[{
          RowBox[{"{", 
           RowBox[{
            RowBox[{"x", "[", 
             RowBox[{"[", 
              RowBox[{"i", "+", "10"}], "]"}], "]"}], ",", 
            RowBox[{"-", 
             RowBox[{"y", "[", 
              RowBox[{"[", 
               RowBox[{"i", "+", "10"}], "]"}], "]"}]}], ",", 
            RowBox[{"z", "[", 
             RowBox[{"[", 
              RowBox[{"i", "+", "10"}], "]"}], "]"}]}], "}"}], ",", 
          RowBox[{"r", "[", 
           RowBox[{"[", 
            RowBox[{"i", "+", "10"}], "]"}], "]"}]}], "]"}]}], "}"}], "]"}], 
     ",", 
     RowBox[{"{", 
      RowBox[{"i", ",", "1", ",", "9"}], "}"}]}], "]"}]}], ";"}]], "Input",
 CellChangeTimes->{{3.569904912188216*^9, 3.5699050079099846`*^9}, {
   3.569905120261382*^9, 3.569905129465398*^9}, {3.569905180961088*^9, 
   3.569905226622369*^9}, {3.5699052931876855`*^9, 3.5699053148717237`*^9}, {
   3.5699053539965925`*^9, 3.5699054930864363`*^9}, {3.569905578059786*^9, 
   3.5699056388218927`*^9}, {3.569905749316887*^9, 3.5699057514696903`*^9}, 
   3.569905948186036*^9, 3.5699060106017456`*^9, {3.569906116167131*^9, 
   3.5699061238111444`*^9}, {3.569906364394767*^9, 3.5699064898969874`*^9}, {
   3.5699071753153915`*^9, 3.569907195751427*^9}, {3.5699087828358145`*^9, 
   3.569908810401063*^9}, 3.569909543508751*^9, {3.569909656343749*^9, 
   3.5699096614449577`*^9}}],

Cell[BoxData[
 RowBox[{
  RowBox[{"plot5", " ", "=", " ", 
   RowBox[{"Graphics3D", "[", 
    RowBox[{"{", 
     RowBox[{
      RowBox[{"Darker", "[", 
       RowBox[{"Red", ",", "1.0"}], "]"}], ",", 
      RowBox[{"Sphere", "[", 
       RowBox[{
        RowBox[{"{", 
         RowBox[{
          RowBox[{"x", "[", 
           RowBox[{"[", "1", "]"}], "]"}], ",", 
          RowBox[{"y", "[", 
           RowBox[{"[", "1", "]"}], "]"}], ",", 
          RowBox[{"z", "[", 
           RowBox[{"[", "1", "]"}], "]"}]}], "}"}], ",", "0.05"}], "]"}], ",", 
      RowBox[{"Sphere", "[", 
       RowBox[{
        RowBox[{"{", 
         RowBox[{
          RowBox[{"x", "[", 
           RowBox[{"[", "1", "]"}], "]"}], ",", 
          RowBox[{"y", "[", 
           RowBox[{"[", "1", "]"}], "]"}], ",", 
          RowBox[{"z", "[", 
           RowBox[{"[", "1", "]"}], "]"}]}], "}"}], ",", "0.25"}], "]"}], ",", 
      RowBox[{"Sphere", "[", 
       RowBox[{
        RowBox[{"{", 
         RowBox[{
          RowBox[{"x", "[", 
           RowBox[{"[", "1", "]"}], "]"}], ",", 
          RowBox[{"y", "[", 
           RowBox[{"[", "1", "]"}], "]"}], ",", 
          RowBox[{"z", "[", 
           RowBox[{"[", "1", "]"}], "]"}]}], "}"}], ",", "0.636"}], "]"}]}], 
     "}"}], "]"}]}], ";"}]], "Input",
 CellChangeTimes->{{3.569904912188216*^9, 3.5699050079099846`*^9}, {
   3.569905120261382*^9, 3.569905129465398*^9}, {3.569905180961088*^9, 
   3.569905226622369*^9}, {3.5699052931876855`*^9, 3.5699053148717237`*^9}, {
   3.5699053539965925`*^9, 3.5699054930864363`*^9}, {3.569905578059786*^9, 
   3.5699056388218927`*^9}, {3.569905749316887*^9, 3.5699057514696903`*^9}, 
   3.569905948186036*^9, 3.5699060106017456`*^9, {3.569906116167131*^9, 
   3.5699061238111444`*^9}, {3.569906364394767*^9, 3.5699064898969874`*^9}, 
   3.5699065367750697`*^9, {3.5699065718127313`*^9, 3.5699065843707533`*^9}, {
   3.569906677112916*^9, 3.569906694257346*^9}, {3.569907270397558*^9, 
   3.569907284468783*^9}, {3.5699073554645076`*^9, 3.5699073994409847`*^9}, {
   3.5699074442910633`*^9, 3.5699074726207137`*^9}, {3.5699075573444624`*^9, 
   3.5699075599964666`*^9}, {3.5699088339415045`*^9, 3.5699088607579517`*^9}, 
   3.569908955637318*^9}],

Cell[BoxData[
 RowBox[{
  RowBox[{"plot6", "=", 
   RowBox[{"Table", "[", 
    RowBox[{
     RowBox[{"Graphics3D", "[", 
      RowBox[{"{", 
       RowBox[{
        RowBox[{"Opacity", "[", "0.3", "]"}], ",", 
        RowBox[{"{", 
         RowBox[{
          RowBox[{"Lighter", "[", "Yellow", "]"}], ",", 
          RowBox[{"Sphere", "[", 
           RowBox[{
            RowBox[{"{", 
             RowBox[{
              RowBox[{"x", "[", 
               RowBox[{"[", 
                RowBox[{"i", "+", "10"}], "]"}], "]"}], ",", 
              RowBox[{"-", 
               RowBox[{"z", "[", 
                RowBox[{"[", 
                 RowBox[{"i", "+", "10"}], "]"}], "]"}]}], ",", 
              RowBox[{"y", "[", 
               RowBox[{"[", 
                RowBox[{"i", "+", "10"}], "]"}], "]"}]}], "}"}], ",", 
            RowBox[{"r", "[", 
             RowBox[{"[", 
              RowBox[{"i", "+", "10"}], "]"}], "]"}]}], "]"}]}], "}"}]}], 
       "}"}], "]"}], ",", 
     RowBox[{"{", 
      RowBox[{"i", ",", "1", ",", "9"}], "}"}]}], "]"}]}], ";"}]], "Input",
 CellChangeTimes->{{3.569904912188216*^9, 3.5699050079099846`*^9}, {
   3.569905120261382*^9, 3.569905129465398*^9}, {3.569905180961088*^9, 
   3.569905226622369*^9}, {3.5699052931876855`*^9, 3.5699053148717237`*^9}, {
   3.5699053539965925`*^9, 3.5699054930864363`*^9}, {3.569905578059786*^9, 
   3.5699056388218927`*^9}, {3.569905749316887*^9, 3.5699057514696903`*^9}, 
   3.569905948186036*^9, 3.5699060106017456`*^9, {3.569906116167131*^9, 
   3.5699061238111444`*^9}, {3.569906364394767*^9, 3.5699064898969874`*^9}, 
   3.5699065367750697`*^9, {3.5699065718127313`*^9, 3.5699065843707533`*^9}, {
   3.569906677112916*^9, 3.569906694257346*^9}, {3.569907270397558*^9, 
   3.569907284468783*^9}, {3.5699073554645076`*^9, 3.5699073994409847`*^9}, {
   3.5699074442910633`*^9, 3.5699074726207137`*^9}, {3.5699075573444624`*^9, 
   3.5699075599964666`*^9}, {3.5699088339415045`*^9, 
   3.5699088607579517`*^9}, {3.569908955637318*^9, 3.569908961190928*^9}, 
   3.5699095519639654`*^9, {3.5699096284976997`*^9, 3.5699096367033143`*^9}, {
   3.5699097301474786`*^9, 3.569909767696745*^9}}],

Cell[BoxData[
 RowBox[{
  RowBox[{"plot7", "=", 
   RowBox[{"Table", "[", 
    RowBox[{
     RowBox[{"Graphics3D", "[", 
      RowBox[{"{", 
       RowBox[{
        RowBox[{"Opacity", "[", "0.3", "]"}], ",", 
        RowBox[{"{", 
         RowBox[{
          RowBox[{"Lighter", "[", "Yellow", "]"}], ",", 
          RowBox[{"Sphere", "[", 
           RowBox[{
            RowBox[{"{", 
             RowBox[{
              RowBox[{"x", "[", 
               RowBox[{"[", 
                RowBox[{"i", "+", "10"}], "]"}], "]"}], ",", 
              RowBox[{"-", 
               RowBox[{"z", "[", 
                RowBox[{"[", 
                 RowBox[{"i", "+", "10"}], "]"}], "]"}]}], ",", 
              RowBox[{"-", 
               RowBox[{"y", "[", 
                RowBox[{"[", 
                 RowBox[{"i", "+", "10"}], "]"}], "]"}]}]}], "}"}], ",", 
            RowBox[{"r", "[", 
             RowBox[{"[", 
              RowBox[{"i", "+", "10"}], "]"}], "]"}]}], "]"}]}], "}"}]}], 
       "}"}], "]"}], ",", 
     RowBox[{"{", 
      RowBox[{"i", ",", "1", ",", "9"}], "}"}]}], "]"}]}], ";"}]], "Input",
 CellChangeTimes->{{3.569904912188216*^9, 3.5699050079099846`*^9}, {
   3.569905120261382*^9, 3.569905129465398*^9}, {3.569905180961088*^9, 
   3.569905226622369*^9}, {3.5699052931876855`*^9, 3.5699053148717237`*^9}, {
   3.5699053539965925`*^9, 3.5699054930864363`*^9}, {3.569905578059786*^9, 
   3.5699056388218927`*^9}, {3.569905749316887*^9, 3.5699057514696903`*^9}, 
   3.569905948186036*^9, 3.5699060106017456`*^9, {3.569906116167131*^9, 
   3.5699061238111444`*^9}, {3.569906364394767*^9, 3.5699064898969874`*^9}, 
   3.5699065367750697`*^9, {3.5699065718127313`*^9, 3.5699065843707533`*^9}, {
   3.569906677112916*^9, 3.569906694257346*^9}, {3.569907270397558*^9, 
   3.569907284468783*^9}, {3.5699073554645076`*^9, 3.5699073994409847`*^9}, {
   3.5699074442910633`*^9, 3.5699074726207137`*^9}, {3.5699075573444624`*^9, 
   3.5699075599964666`*^9}, {3.5699088339415045`*^9, 
   3.5699088607579517`*^9}, {3.569908955637318*^9, 3.5699089647945347`*^9}, 
   3.5699095576111755`*^9, {3.5699096184824824`*^9, 3.5699096236616917`*^9}, 
   3.5699097374638915`*^9, {3.5699097731411543`*^9, 3.5699097922043877`*^9}}],

Cell[BoxData[
 RowBox[{
  RowBox[{
   RowBox[{"plot8", "=", 
    RowBox[{"Graphics3D", "[", 
     RowBox[{"{", 
      RowBox[{
       RowBox[{"Opacity", "[", "1.0", "]"}], ",", 
       RowBox[{"{", 
        RowBox[{
         RowBox[{"Darker", "[", 
          RowBox[{"Brown", ",", "0.5"}], "]"}], ",", 
         RowBox[{"Sphere", "[", 
          RowBox[{
           RowBox[{"{", 
            RowBox[{
             RowBox[{"x", "[", 
              RowBox[{"[", "3", "]"}], "]"}], ",", 
             RowBox[{"y", "[", 
              RowBox[{"[", "3", "]"}], "]"}], ",", 
             RowBox[{"z", "[", 
              RowBox[{"[", "3", "]"}], "]"}]}], "}"}], ",", 
           RowBox[{"r", "[", 
            RowBox[{"[", "3", "]"}], "]"}]}], "]"}], ",", " ", 
         RowBox[{"Sphere", "[", 
          RowBox[{
           RowBox[{"{", 
            RowBox[{
             RowBox[{"x", "[", 
              RowBox[{"[", "12", "]"}], "]"}], ",", 
             RowBox[{"y", "[", 
              RowBox[{"[", "12", "]"}], "]"}], ",", 
             RowBox[{"z", "[", 
              RowBox[{"[", "12", "]"}], "]"}]}], "}"}], ",", 
           RowBox[{"r", "[", 
            RowBox[{"[", "12", "]"}], "]"}]}], "]"}], ",", " ", 
         RowBox[{"Sphere", "[", 
          RowBox[{
           RowBox[{"{", 
            RowBox[{
             RowBox[{"x", "[", 
              RowBox[{"[", "12", "]"}], "]"}], ",", 
             RowBox[{"-", 
              RowBox[{"y", "[", 
               RowBox[{"[", "12", "]"}], "]"}]}], ",", 
             RowBox[{"z", "[", 
              RowBox[{"[", "12", "]"}], "]"}]}], "}"}], ",", 
           RowBox[{"r", "[", 
            RowBox[{"[", "12", "]"}], "]"}]}], "]"}], ",", " ", 
         RowBox[{"Sphere", "[", 
          RowBox[{
           RowBox[{"{", 
            RowBox[{
             RowBox[{"x", "[", 
              RowBox[{"[", "12", "]"}], "]"}], ",", 
             RowBox[{"-", 
              RowBox[{"z", "[", 
               RowBox[{"[", "12", "]"}], "]"}]}], ",", 
             RowBox[{"y", "[", 
              RowBox[{"[", "12", "]"}], "]"}]}], "}"}], ",", 
           RowBox[{"r", "[", 
            RowBox[{"[", "12", "]"}], "]"}]}], "]"}], ",", " ", 
         RowBox[{"Sphere", "[", 
          RowBox[{
           RowBox[{"{", 
            RowBox[{
             RowBox[{"x", "[", 
              RowBox[{"[", "12", "]"}], "]"}], ",", 
             RowBox[{"-", 
              RowBox[{"z", "[", 
               RowBox[{"[", "12", "]"}], "]"}]}], ",", 
             RowBox[{"-", 
              RowBox[{"y", "[", 
               RowBox[{"[", "12", "]"}], "]"}]}]}], "}"}], ",", 
           RowBox[{"r", "[", 
            RowBox[{"[", "12", "]"}], "]"}]}], "]"}], ",", " ", 
         RowBox[{"Sphere", "[", 
          RowBox[{
           RowBox[{"{", 
            RowBox[{
             RowBox[{"x", "[", 
              RowBox[{"[", "21", "]"}], "]"}], ",", 
             RowBox[{"y", "[", 
              RowBox[{"[", "21", "]"}], "]"}], ",", 
             RowBox[{"z", "[", 
              RowBox[{"[", "21", "]"}], "]"}]}], "}"}], ",", 
           RowBox[{"r", "[", 
            RowBox[{"[", "21", "]"}], "]"}]}], "]"}]}], "}"}], ",", 
       RowBox[{"{", 
        RowBox[{
         RowBox[{"Lighter", "[", "Blue", "]"}], ",", 
         RowBox[{"Sphere", "[", 
          RowBox[{
           RowBox[{"{", 
            RowBox[{
             RowBox[{"x", "[", 
              RowBox[{"[", "9", "]"}], "]"}], ",", 
             RowBox[{"y", "[", 
              RowBox[{"[", "9", "]"}], "]"}], ",", 
             RowBox[{"z", "[", 
              RowBox[{"[", "9", "]"}], "]"}]}], "}"}], ",", 
           RowBox[{"r", "[", 
            RowBox[{"[", "9", "]"}], "]"}]}], "]"}], ",", " ", 
         RowBox[{"Sphere", "[", 
          RowBox[{
           RowBox[{"{", 
            RowBox[{
             RowBox[{"x", "[", 
              RowBox[{"[", "18", "]"}], "]"}], ",", 
             RowBox[{"y", "[", 
              RowBox[{"[", "18", "]"}], "]"}], ",", 
             RowBox[{"z", "[", 
              RowBox[{"[", "18", "]"}], "]"}]}], "}"}], ",", 
           RowBox[{"r", "[", 
            RowBox[{"[", "18", "]"}], "]"}]}], "]"}], ",", 
         RowBox[{"Sphere", "[", 
          RowBox[{
           RowBox[{"{", 
            RowBox[{
             RowBox[{"x", "[", 
              RowBox[{"[", "18", "]"}], "]"}], ",", 
             RowBox[{"-", 
              RowBox[{"y", "[", 
               RowBox[{"[", "18", "]"}], "]"}]}], ",", 
             RowBox[{"z", "[", 
              RowBox[{"[", "18", "]"}], "]"}]}], "}"}], ",", 
           RowBox[{"r", "[", 
            RowBox[{"[", "18", "]"}], "]"}]}], "]"}], ",", " ", 
         RowBox[{"Sphere", "[", 
          RowBox[{
           RowBox[{"{", 
            RowBox[{
             RowBox[{"x", "[", 
              RowBox[{"[", "18", "]"}], "]"}], ",", 
             RowBox[{"-", 
              RowBox[{"z", "[", 
               RowBox[{"[", "18", "]"}], "]"}]}], ",", 
             RowBox[{"y", "[", 
              RowBox[{"[", "18", "]"}], "]"}]}], "}"}], ",", 
           RowBox[{"r", "[", 
            RowBox[{"[", "18", "]"}], "]"}]}], "]"}], ",", " ", 
         RowBox[{"Sphere", "[", 
          RowBox[{
           RowBox[{"{", 
            RowBox[{
             RowBox[{"x", "[", 
              RowBox[{"[", "18", "]"}], "]"}], ",", 
             RowBox[{"-", 
              RowBox[{"z", "[", 
               RowBox[{"[", "18", "]"}], "]"}]}], ",", 
             RowBox[{"-", 
              RowBox[{"y", "[", 
               RowBox[{"[", "18", "]"}], "]"}]}]}], "}"}], ",", 
           RowBox[{"r", "[", 
            RowBox[{"[", "18", "]"}], "]"}]}], "]"}], ",", " ", " ", 
         RowBox[{"Sphere", "[", 
          RowBox[{
           RowBox[{"{", 
            RowBox[{
             RowBox[{"x", "[", 
              RowBox[{"[", "27", "]"}], "]"}], ",", 
             RowBox[{"y", "[", 
              RowBox[{"[", "27", "]"}], "]"}], ",", 
             RowBox[{"z", "[", 
              RowBox[{"[", "27", "]"}], "]"}]}], "}"}], ",", 
           RowBox[{"r", "[", 
            RowBox[{"[", "27", "]"}], "]"}]}], "]"}]}], " ", "}"}]}], "}"}], 
     " ", "]"}]}], ";"}], "\[IndentingNewLine]"}]], "Input",
 CellChangeTimes->{{3.569904912188216*^9, 3.5699050079099846`*^9}, {
   3.569905120261382*^9, 3.569905129465398*^9}, {3.569905180961088*^9, 
   3.569905226622369*^9}, {3.5699052931876855`*^9, 3.5699053148717237`*^9}, {
   3.5699053539965925`*^9, 3.5699054930864363`*^9}, {3.569905578059786*^9, 
   3.5699056388218927`*^9}, {3.5699058693746977`*^9, 3.5699058705603*^9}, {
   3.569906498165002*^9, 3.569906500161805*^9}, 3.5699070063514943`*^9, {
   3.5699071545361547`*^9, 3.569907159840164*^9}, {3.5699073205672464`*^9, 
   3.5699073233908515`*^9}, {3.5699075147563877`*^9, 3.569907517735993*^9}, 
   3.56990757306929*^9, {3.5699090702819195`*^9, 3.5699093466052046`*^9}, {
   3.5699093878828773`*^9, 3.5699093884912786`*^9}, {3.56991060215781*^9, 
   3.5699109695228553`*^9}, {3.569911102310289*^9, 3.569911106959097*^9}, {
   3.5699112388573284`*^9, 3.5699112853454103`*^9}, 3.5699113184330683`*^9, {
   3.569911356762336*^9, 3.569911392345998*^9}}],

Cell[CellGroupData[{

Cell[BoxData[
 RowBox[{"Show", "[", 
  RowBox[{
  "plot5", ",", "plot3", ",", "plot4", ",", "plot6", ",", "plot7", ",", 
   "plot8", ",", 
   RowBox[{"{", 
    RowBox[{
     RowBox[{"AspectRatio", " ", "\[Rule]", " ", "Automatic"}], ",", 
     RowBox[{"Boxed", "\[Rule]", "False"}], ",", " ", 
     RowBox[{"SphericalRegion", "\[Rule]", "True"}]}], "}"}]}], 
  "]"}]], "Input",
 CellChangeTimes->{{3.569904912188216*^9, 3.5699050079099846`*^9}, {
   3.569905120261382*^9, 3.569905129465398*^9}, {3.569905180961088*^9, 
   3.569905226622369*^9}, {3.5699052931876855`*^9, 3.5699053148717237`*^9}, {
   3.5699053539965925`*^9, 3.5699054930864363`*^9}, {3.569905578059786*^9, 
   3.5699056388218927`*^9}, {3.5699058693746977`*^9, 3.5699058705603*^9}, {
   3.569906498165002*^9, 3.569906500161805*^9}, 3.5699070063514943`*^9, {
   3.5699071545361547`*^9, 3.569907159840164*^9}, {3.5699073205672464`*^9, 
   3.5699073233908515`*^9}, {3.5699075147563877`*^9, 3.569907517735993*^9}, 
   3.56990757306929*^9, {3.5699090702819195`*^9, 3.569909082902342*^9}, {
   3.5699093553100204`*^9, 3.5699093596312275`*^9}}],

Cell[BoxData[
 Graphics3DBox[{
   {RGBColor[0., 0., 0.], SphereBox[{0., 0., 0.}, 0.05], 
    SphereBox[{0., 0., 0.}, 0.25], SphereBox[{0., 0., 0.}, 0.636]}, 
   {Opacity[0.3], SphereBox[{0., 0., 0.}, 2.49901]}, 
   {Opacity[0.3], SphereBox[{2.33848, 0., 0.}, 1.69653]}, 
   {Opacity[0.3], SphereBox[{4.29533, 0., 0.}, 0.26032]}, 
   {Opacity[0.3], SphereBox[{5.40207, 0., 0.}, 0.84643]}, 
   {Opacity[0.3], SphereBox[{5.40207, 1.89008, 0.}, 1.89008]}, 
   {Opacity[0.3], SphereBox[{5.40207, 0., 1.89008}, 1.89008]}, 
   {Opacity[0.3], SphereBox[{5.40207, -1.89008, 0.}, 1.89008]}, 
   {Opacity[0.3], SphereBox[{5.40207, 0., -1.89008}, 1.89008]}, 
   {Opacity[0.3], SphereBox[{6.47226, 0., 0.}, 0.22376]}, 
   {Opacity[0.3], SphereBox[{7.79852, 0., 0.}, 1.1025]}, 
   {Opacity[0.3], SphereBox[{0., 2.33848, 0.}, 1.69653]}, 
   {Opacity[0.3], SphereBox[{0., 4.29533, 0.}, 0.26032]}, 
   {Opacity[0.3], SphereBox[{0., 5.40207, 0.}, 0.84643]}, 
   {Opacity[0.3], SphereBox[{1.89008, 5.40207, 0.}, 1.89008]}, 
   {Opacity[0.3], SphereBox[{0., 5.40207, 1.89008}, 1.89008]}, 
   {Opacity[0.3], SphereBox[{-1.89008, 5.40207, 0.}, 1.89008]}, 
   {Opacity[0.3], SphereBox[{0., 5.40207, -1.89008}, 1.89008]}, 
   {Opacity[0.3], SphereBox[{0., 6.47226, 0.}, 0.22376]}, 
   {Opacity[0.3], SphereBox[{0., 7.79852, 0.}, 1.1025]}, 
   {Opacity[0.3], SphereBox[{-2.33848, 0., 0.}, 1.69653]}, 
   {Opacity[0.3], SphereBox[{-4.29533, 0., 0.}, 0.26032]}, 
   {Opacity[0.3], SphereBox[{-5.40207, 0., 0.}, 0.84643]}, 
   {Opacity[0.3], SphereBox[{-5.40207, -1.89008, 0.}, 1.89008]}, 
   {Opacity[0.3], SphereBox[{-5.40207, 0., -1.89008}, 1.89008]}, 
   {Opacity[0.3], SphereBox[{-5.40207, 1.89008, 0.}, 1.89008]}, 
   {Opacity[0.3], SphereBox[{-5.40207, 0., 1.89008}, 1.89008]}, 
   {Opacity[0.3], SphereBox[{-6.47226, 0., 0.}, 0.22376]}, 
   {Opacity[0.3], SphereBox[{-7.79852, 0., 0.}, 1.1025]}, 
   {Opacity[0.3], SphereBox[{0., -2.33848, 0.}, 1.69653]}, 
   {Opacity[0.3], SphereBox[{0., -4.29533, 0.}, 0.26032]}, 
   {Opacity[0.3], SphereBox[{0., -5.40207, 0.}, 0.84643]}, 
   {Opacity[0.3], SphereBox[{1.89008, -5.40207, 0.}, 1.89008]}, 
   {Opacity[0.3], SphereBox[{0., -5.40207, 1.89008}, 1.89008]}, 
   {Opacity[0.3], SphereBox[{-1.89008, -5.40207, 0.}, 1.89008]}, 
   {Opacity[0.3], SphereBox[{0., -5.40207, -1.89008}, 1.89008]}, 
   {Opacity[0.3], SphereBox[{0., -6.47226, 0.}, 0.22376]}, 
   {Opacity[0.3], SphereBox[{0., -7.79852, 0.}, 1.1025]}, 
   {Opacity[0.3], 
    {RGBColor[1, 1, 
      NCache[
       Rational[1, 3], 0.3333333333333333]], 
     SphereBox[{0., 0., 2.33848}, 1.69653]}}, 
   {Opacity[0.3], 
    {RGBColor[1, 1, 
      NCache[
       Rational[1, 3], 0.3333333333333333]], 
     SphereBox[{0., 0., 4.29533}, 0.26032]}}, 
   {Opacity[0.3], 
    {RGBColor[1, 1, 
      NCache[
       Rational[1, 3], 0.3333333333333333]], 
     SphereBox[{0., 0., 5.40207}, 0.84643]}}, 
   {Opacity[0.3], 
    {RGBColor[1, 1, 
      NCache[
       Rational[1, 3], 0.3333333333333333]], 
     SphereBox[{1.89008, 0., 5.40207}, 1.89008]}}, 
   {Opacity[0.3], 
    {RGBColor[1, 1, 
      NCache[
       Rational[1, 3], 0.3333333333333333]], 
     SphereBox[{0., -1.89008, 5.40207}, 1.89008]}}, 
   {Opacity[0.3], 
    {RGBColor[1, 1, 
      NCache[
       Rational[1, 3], 0.3333333333333333]], 
     SphereBox[{-1.89008, 0., 5.40207}, 1.89008]}}, 
   {Opacity[0.3], 
    {RGBColor[1, 1, 
      NCache[
       Rational[1, 3], 0.3333333333333333]], 
     SphereBox[{0., 1.89008, 5.40207}, 1.89008]}}, 
   {Opacity[0.3], 
    {RGBColor[1, 1, 
      NCache[
       Rational[1, 3], 0.3333333333333333]], 
     SphereBox[{0., 0., 6.47226}, 0.22376]}}, 
   {Opacity[0.3], 
    {RGBColor[1, 1, 
      NCache[
       Rational[1, 3], 0.3333333333333333]], 
     SphereBox[{0., 0., 7.79852}, 1.1025]}}, 
   {Opacity[0.3], 
    {RGBColor[1, 1, 
      NCache[
       Rational[1, 3], 0.3333333333333333]], 
     SphereBox[{0., 0., -2.33848}, 1.69653]}}, 
   {Opacity[0.3], 
    {RGBColor[1, 1, 
      NCache[
       Rational[1, 3], 0.3333333333333333]], 
     SphereBox[{0., 0., -4.29533}, 0.26032]}}, 
   {Opacity[0.3], 
    {RGBColor[1, 1, 
      NCache[
       Rational[1, 3], 0.3333333333333333]], 
     SphereBox[{0., 0., -5.40207}, 0.84643]}}, 
   {Opacity[0.3], 
    {RGBColor[1, 1, 
      NCache[
       Rational[1, 3], 0.3333333333333333]], 
     SphereBox[{1.89008, 0., -5.40207}, 1.89008]}}, 
   {Opacity[0.3], 
    {RGBColor[1, 1, 
      NCache[
       Rational[1, 3], 0.3333333333333333]], 
     SphereBox[{0., -1.89008, -5.40207}, 1.89008]}}, 
   {Opacity[0.3], 
    {RGBColor[1, 1, 
      NCache[
       Rational[1, 3], 0.3333333333333333]], 
     SphereBox[{-1.89008, 0., -5.40207}, 1.89008]}}, 
   {Opacity[0.3], 
    {RGBColor[1, 1, 
      NCache[
       Rational[1, 3], 0.3333333333333333]], 
     SphereBox[{0., 1.89008, -5.40207}, 1.89008]}}, 
   {Opacity[0.3], 
    {RGBColor[1, 1, 
      NCache[
       Rational[1, 3], 0.3333333333333333]], 
     SphereBox[{0., 0., -6.47226}, 0.22376]}}, 
   {Opacity[0.3], 
    {RGBColor[1, 1, 
      NCache[
       Rational[1, 3], 0.3333333333333333]], 
     SphereBox[{0., 0., -7.79852}, 1.1025]}}, 
   {Opacity[1.], 
    {RGBColor[0.3, 0.2, 0.1], SphereBox[{4.29533, 0., 0.}, 0.26032], 
     SphereBox[{0., 4.29533, 0.}, 0.26032], 
     SphereBox[{0., -4.29533, 0.}, 0.26032], 
     SphereBox[{0., 0., 4.29533}, 0.26032], 
     SphereBox[{0., 0., -4.29533}, 0.26032], 
     SphereBox[{-4.29533, 0., 0.}, 0.26032]}, 
    {RGBColor[
      NCache[
       Rational[1, 3], 0.3333333333333333], 
      NCache[
       Rational[1, 3], 0.3333333333333333], 1], 
     SphereBox[{6.47226, 0., 0.}, 0.22376], 
     SphereBox[{0., 6.47226, 0.}, 0.22376], 
     SphereBox[{0., -6.47226, 0.}, 0.22376], 
     SphereBox[{0., 0., 6.47226}, 0.22376], 
     SphereBox[{0., 0., -6.47226}, 0.22376], 
     SphereBox[{-6.47226, 0., 0.}, 0.22376]}}},
  AspectRatio->Automatic,
  Boxed->False,
  ImageSize->{796., 796.},
  SphericalRegion->True,
  ViewPoint->{-1.4245370244626423`, -2.9595444141123295`, 0.8135054559323098},
  ViewVertical->{-0.16657811133427788`, -0.34132114730550284`, 
   0.9250684338071212}]], "Output",
 CellChangeTimes->{
  3.5699071033992653`*^9, 3.569907204206642*^9, 3.569907342220084*^9, 
   3.569907374995742*^9, 3.569907405727796*^9, 3.5699074795003257`*^9, 
   3.569907526940009*^9, {3.569907566314478*^9, 3.5699075784200993`*^9}, 
   3.5699087913690295`*^9, 3.569908868027564*^9, 3.5699093662612395`*^9, 
   3.5699093963692923`*^9, 3.5699095058502846`*^9, 3.5699095622755833`*^9, 
   3.5699096655165653`*^9, 3.569909797211996*^9, 3.569911004825718*^9, 
   3.569911115648312*^9, 3.56991129094582*^9, 3.5699113266542826`*^9, 
   3.56991139886681*^9, 3.5699219016316757`*^9, 3.5699219583065753`*^9}]
}, Open  ]]
},
WindowSize->{1052, 824},
WindowMargins->{{351, Automatic}, {Automatic, 16}},
PrintingCopies->1,
PrintingPageRange->{32000, 32000},
PrintingOptions->{"Magnification"->1.,
"PaperOrientation"->"Portrait",
"PaperSize"->{595.2, 841.8}},
PrivateNotebookOptions->{"VersionedStylesheet"->{"Default.nb"[8.] -> False}},
CellLabelAutoDelete->True,
FrontEndVersion->"9.0 for Microsoft Windows (64-bit) (January 25, 2013)",
StyleDefinitions->"Default.nb"
]
(* End of Notebook Content *)

(* Internal cache information *)
(*CellTagsOutline
CellTagsIndex->{}
*)
(*CellTagsIndex
CellTagsIndex->{}
*)
(*NotebookFileOutline
Notebook[{
Cell[557, 20, 4531, 119, 252, "Input"],
Cell[5091, 141, 1140, 40, 112, "Input"],
Cell[CellGroupData[{
Cell[6256, 185, 6181, 177, 252, "Input"],
Cell[12440, 364, 2572, 42, 371, "Output"]
}, Open  ]],
Cell[15027, 409, 1228, 29, 31, "Input"],
Cell[16258, 440, 1634, 38, 31, "Input"],
Cell[17895, 480, 2223, 51, 52, "Input"],
Cell[20121, 533, 2164, 46, 52, "Input"],
Cell[22288, 581, 2225, 47, 52, "Input"],
Cell[24516, 630, 7148, 180, 192, "Input"],
Cell[CellGroupData[{
Cell[31689, 814, 1102, 20, 31, "Input"],
Cell[32794, 836, 6739, 164, 811, "Output"]
}, Open  ]]
}
]
*)

(* End of internal cache information *)