(* 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[     44759,       1178]
NotebookOptionsPosition[     44094,       1153]
NotebookOutlinePosition[     44578,       1171]
CellTagsIndexPosition[     44535,       1168]
WindowFrame->Normal*)

(* Beginning of Notebook Content *)
Notebook[{
Cell[BoxData[
 RowBox[{
  StyleBox[
   RowBox[{"(*", " ", 
    RowBox[{
     RowBox[{
      RowBox[{"Si", 
       RowBox[{"(", "CH3", ")"}], "4", " ", "computation"}], ";", " ", 
      RowBox[{"coordinates", " ", "and", " ", "radii", " ", "from", " ", 
       RowBox[{"Sime40D7", ".", "exe"}]}]}], ",", " ", 
     RowBox[{"12.02", ".2012"}]}], " ", "*)"}], "Text",
   FontColor->GrayLevel[0]], "\[IndentingNewLine]", 
  RowBox[{
   RowBox[{
    RowBox[{"t", "=", 
     RowBox[{"{", 
      RowBox[{
       RowBox[{"{", 
        RowBox[{"0.00000", ",", "0.00000", ",", "0.00000", ",", "0.59670"}], 
        "}"}], ",", 
       RowBox[{"{", 
        RowBox[{"1.93276", ",", "0.00000", ",", "0.00000", ",", "1.33606"}], 
        "}"}], ",", 
       RowBox[{"{", 
        RowBox[{"3.54930", ",", "0.00000", ",", "0.00000", ",", "0.28048"}], 
        "}"}], ",", 
       RowBox[{"{", 
        RowBox[{"4.02033", ",", 
         RowBox[{"-", "1.33227"}], ",", "0.00000", ",", "1.13260"}], "}"}], 
       ",", 
       RowBox[{"{", 
        RowBox[{"4.02033", ",", "0.66614", ",", "1.15378", ",", "1.13260"}], 
        "}"}], ",", 
       RowBox[{"{", 
        RowBox[{"4.02033", ",", "0.66614", ",", 
         RowBox[{"-", "1.15378"}], ",", "1.13260"}], "}"}], ",", 
       RowBox[{"{", 
        RowBox[{
         RowBox[{"-", "0.64425"}], ",", "1.82222", ",", "0.00000", ",", 
         "1.33606"}], "}"}], ",", 
       RowBox[{"{", 
        RowBox[{
         RowBox[{"-", "1.18310"}], ",", "3.34631", ",", "0.00000", ",", 
         "0.28048"}], "}"}], ",", 
       RowBox[{"{", 
        RowBox[{
         RowBox[{"-", "2.59619"}], ",", "3.34631", ",", "0.00000", ",", 
         "1.13260"}], "}"}], ",", 
       RowBox[{"{", 
        RowBox[{
         RowBox[{"-", "0.71207"}], ",", "4.01245", ",", "1.15378", ",", 
         "1.13260"}], "}"}], ",", 
       RowBox[{"{", 
        RowBox[{
         RowBox[{"-", "0.71207"}], ",", "4.01245", ",", 
         RowBox[{"-", "1.15378"}], ",", "1.13260"}], "}"}], ",", 
       RowBox[{"{", 
        RowBox[{
         RowBox[{"-", "0.64425"}], ",", 
         RowBox[{"-", "0.91111"}], ",", "1.57809", ",", "1.33606"}], "}"}], 
       ",", 
       RowBox[{"{", 
        RowBox[{
         RowBox[{"-", "1.18310"}], ",", 
         RowBox[{"-", "1.67316"}], ",", "2.89799", ",", "0.28048"}], "}"}], 
       ",", 
       RowBox[{"{", 
        RowBox[{
         RowBox[{"-", "2.59619"}], ",", 
         RowBox[{"-", "1.67316"}], ",", "2.89799", ",", "1.13260"}], "}"}], 
       ",", 
       RowBox[{"{", 
        RowBox[{
         RowBox[{"-", "0.71207"}], ",", 
         RowBox[{"-", "3.00543"}], ",", "2.89799", ",", "1.13260"}], "}"}], 
       ",", 
       RowBox[{"{", 
        RowBox[{
         RowBox[{"-", "0.71207"}], ",", 
         RowBox[{"-", "1.00702"}], ",", "4.05177", ",", "1.13260"}], "}"}], 
       ",", 
       RowBox[{"{", 
        RowBox[{
         RowBox[{"-", "0.64425"}], ",", 
         RowBox[{"-", "0.91111"}], ",", 
         RowBox[{"-", "1.57809"}], ",", "1.33606"}], "}"}], ",", 
       RowBox[{"{", 
        RowBox[{
         RowBox[{"-", "1.18310"}], ",", 
         RowBox[{"-", "1.67316"}], ",", 
         RowBox[{"-", "2.89799"}], ",", "0.28048"}], "}"}], ",", 
       RowBox[{"{", 
        RowBox[{
         RowBox[{"-", "2.59619"}], ",", 
         RowBox[{"-", "1.67316"}], ",", 
         RowBox[{"-", "2.89799"}], ",", "1.13260"}], "}"}], ",", 
       RowBox[{"{", 
        RowBox[{
         RowBox[{"-", "0.71207"}], ",", 
         RowBox[{"-", "1.00702"}], ",", 
         RowBox[{"-", "4.05177"}], ",", "1.13260"}], "}"}], ",", 
       RowBox[{"{", 
        RowBox[{
         RowBox[{"-", "0.71207"}], ",", 
         RowBox[{"-", "3.00543"}], ",", 
         RowBox[{"-", "2.89799"}], ",", "1.13260"}], "}"}]}], "}"}]}], ";"}], 
   "\[IndentingNewLine]", 
   RowBox[{
    RowBox[{"u", "=", 
     RowBox[{"{", 
      RowBox[{
       RowBox[{"{", 
        RowBox[{"0.00000", ",", "0.00000", ",", "0.00000"}], "}"}], ",", 
       RowBox[{"{", 
        RowBox[{"3.54930", ",", "0.00000", ",", "0.00000"}], "}"}], ",", 
       RowBox[{"{", 
        RowBox[{"4.20661", ",", 
         RowBox[{"-", "1.85915"}], ",", "0.00000"}], "}"}], ",", 
       RowBox[{"{", 
        RowBox[{"4.20661", ",", "0.92957", ",", "1.61007"}], "}"}], ",", 
       RowBox[{"{", 
        RowBox[{"4.20661", ",", "0.92957", ",", 
         RowBox[{"-", "1.61007"}]}], "}"}], ",", 
       RowBox[{"{", 
        RowBox[{
         RowBox[{"-", "1.18310"}], ",", "3.34631", ",", "0.00000"}], "}"}], 
       ",", 
       RowBox[{"{", 
        RowBox[{
         RowBox[{"-", "3.15502"}], ",", "3.34631", ",", "0.00000"}], "}"}], 
       ",", 
       RowBox[{"{", 
        RowBox[{
         RowBox[{"-", "0.52579"}], ",", "4.27589", ",", "1.61007"}], "}"}], 
       ",", 
       RowBox[{"{", 
        RowBox[{
         RowBox[{"-", "0.52579"}], ",", "4.27589", ",", 
         RowBox[{"-", "1.61007"}]}], "}"}], ",", 
       RowBox[{"{", 
        RowBox[{
         RowBox[{"-", "1.18310"}], ",", 
         RowBox[{"-", "1.67316"}], ",", "2.89799"}], "}"}], ",", 
       RowBox[{"{", 
        RowBox[{
         RowBox[{"-", "3.15502"}], ",", 
         RowBox[{"-", "1.67316"}], ",", "2.89799"}], "}"}], ",", 
       RowBox[{"{", 
        RowBox[{
         RowBox[{"-", "0.52579"}], ",", 
         RowBox[{"-", "3.53230"}], ",", "2.89799"}], "}"}], ",", 
       RowBox[{"{", 
        RowBox[{
         RowBox[{"-", "0.52579"}], ",", 
         RowBox[{"-", "0.74358"}], ",", "4.50806"}], "}"}], ",", 
       RowBox[{"{", 
        RowBox[{
         RowBox[{"-", "1.18310"}], ",", 
         RowBox[{"-", "1.67316"}], ",", 
         RowBox[{"-", "2.89799"}]}], "}"}], ",", 
       RowBox[{"{", 
        RowBox[{
         RowBox[{"-", "3.15502"}], ",", 
         RowBox[{"-", "1.67316"}], ",", 
         RowBox[{"-", "2.89799"}]}], "}"}], ",", 
       RowBox[{"{", 
        RowBox[{
         RowBox[{"-", "0.52579"}], ",", 
         RowBox[{"-", "0.74358"}], ",", 
         RowBox[{"-", "4.50806"}]}], "}"}], ",", 
       RowBox[{"{", 
        RowBox[{
         RowBox[{"-", "0.52579"}], ",", 
         RowBox[{"-", "3.53230"}], ",", 
         RowBox[{"-", "2.89799"}]}], "}"}]}], "}"}]}], ";"}]}]}]], "Input"],

Cell[BoxData[{
 RowBox[{
  RowBox[{"x", "=", 
   RowBox[{"Table", "[", 
    RowBox[{
     RowBox[{"t", "[", 
      RowBox[{"[", 
       RowBox[{"i", ",", "1"}], "]"}], "]"}], ",", 
     RowBox[{"{", 
      RowBox[{"i", ",", "1", ",", "21"}], "}"}]}], "]"}]}], 
  ";"}], "\[IndentingNewLine]", 
 RowBox[{
  RowBox[{"y", "=", 
   RowBox[{"Table", "[", 
    RowBox[{
     RowBox[{"t", "[", 
      RowBox[{"[", 
       RowBox[{"i", ",", "2"}], "]"}], "]"}], ",", 
     RowBox[{"{", 
      RowBox[{"i", ",", "1", ",", "21"}], "}"}]}], "]"}]}], 
  ";"}], "\[IndentingNewLine]", 
 RowBox[{
  RowBox[{"z", "=", 
   RowBox[{"Table", "[", 
    RowBox[{
     RowBox[{"t", "[", 
      RowBox[{"[", 
       RowBox[{"i", ",", "3"}], "]"}], "]"}], ",", 
     RowBox[{"{", 
      RowBox[{"i", ",", "1", ",", "21"}], "}"}]}], "]"}]}], 
  ";"}], "\[IndentingNewLine]", 
 RowBox[{
  RowBox[{
   RowBox[{"r", "=", 
    RowBox[{"Table", "[", 
     RowBox[{
      RowBox[{"t", "[", 
       RowBox[{"[", 
        RowBox[{"i", ",", "4"}], "]"}], "]"}], ",", 
      RowBox[{"{", 
       RowBox[{"i", ",", "1", ",", "21"}], "}"}]}], "]"}]}], ";"}], 
  "\[IndentingNewLine]"}], "\[IndentingNewLine]", 
 RowBox[{
  RowBox[{"h", "=", 
   RowBox[{"Table", "[", 
    RowBox[{
     RowBox[{"u", "[", 
      RowBox[{"[", 
       RowBox[{"i", ",", "1"}], "]"}], "]"}], ",", 
     RowBox[{"{", 
      RowBox[{"i", ",", "1", ",", "17"}], "}"}]}], "]"}]}], 
  ";"}], "\[IndentingNewLine]", 
 RowBox[{
  RowBox[{"k", "=", 
   RowBox[{"Table", "[", 
    RowBox[{
     RowBox[{"u", "[", 
      RowBox[{"[", 
       RowBox[{"i", ",", "2"}], "]"}], "]"}], ",", 
     RowBox[{"{", 
      RowBox[{"i", ",", "1", ",", "17"}], "}"}]}], "]"}]}], 
  ";"}], "\[IndentingNewLine]", 
 RowBox[{
  RowBox[{"l", "=", 
   RowBox[{"Table", "[", 
    RowBox[{
     RowBox[{"u", "[", 
      RowBox[{"[", 
       RowBox[{"i", ",", "3"}], "]"}], "]"}], ",", 
     RowBox[{"{", 
      RowBox[{"i", ",", "1", ",", "17"}], "}"}]}], "]"}]}], 
  ";"}], "\[IndentingNewLine]"}], "Input",
 CellChangeTimes->{3.5788441931312857`*^9}],

Cell[CellGroupData[{

Cell[BoxData[
 RowBox[{
  StyleBox[
   RowBox[{"(*", " ", 
    RowBox[{"xy", " ", "plane"}], " ", "*)"}], "Text",
   FontColor->GrayLevel[0]], "\[IndentingNewLine]", 
  RowBox[{
   RowBox[{
    RowBox[{"Clear", "[", 
     RowBox[{"plot2", ",", "plot2a", ",", "plot2b"}], "]"}], ";"}], 
   "\[IndentingNewLine]", 
   RowBox[{
    RowBox[{"plot2", "=", 
     RowBox[{"Table", "[", 
      RowBox[{
       RowBox[{"Graphics", "[", 
        RowBox[{"{", 
         RowBox[{"Circle", "[", 
          RowBox[{
           RowBox[{"{", 
            RowBox[{
             RowBox[{"t", "[", 
              RowBox[{"[", 
               RowBox[{"i", ",", "1"}], "]"}], "]"}], ",", 
             RowBox[{"t", "[", 
              RowBox[{"[", 
               RowBox[{"i", ",", "2"}], "]"}], "]"}]}], "}"}], ",", 
           RowBox[{"t", "[", 
            RowBox[{"[", 
             RowBox[{"i", ",", "4"}], "]"}], "]"}]}], "]"}], "}"}], "]"}], 
       ",", 
       RowBox[{"{", 
        RowBox[{"i", ",", "1", ",", "21"}], "}"}]}], "]"}]}], ";"}], 
   "\[IndentingNewLine]", 
   RowBox[{
    RowBox[{"plot2a", "=", 
     RowBox[{"Table", "[", 
      RowBox[{
       RowBox[{"Graphics", "[", 
        RowBox[{"{", 
         RowBox[{"Disk", "[", 
          RowBox[{
           RowBox[{"{", 
            RowBox[{
             RowBox[{"h", "[", 
              RowBox[{"[", "i", "]"}], "]"}], ",", 
             RowBox[{"k", "[", 
              RowBox[{"[", "i", "]"}], "]"}]}], "}"}], ",", "0.08"}], "]"}], 
         "}"}], "]"}], ",", 
       RowBox[{"{", 
        RowBox[{"i", ",", "1", ",", "17"}], "}"}]}], "]"}]}], ";"}], 
   "\[IndentingNewLine]", 
   RowBox[{
    RowBox[{"plot2b", "=", 
     RowBox[{"Graphics", "[", 
      RowBox[{"{", 
       RowBox[{
        RowBox[{"Thickness", "[", "0.006", "]"}], ",", 
        RowBox[{"Line", "[", 
         RowBox[{"{", 
          RowBox[{
           RowBox[{"{", 
            RowBox[{
             RowBox[{"h", "[", 
              RowBox[{"[", "2", "]"}], "]"}], ",", 
             RowBox[{"k", "[", 
              RowBox[{"[", "2", "]"}], "]"}]}], "}"}], ",", 
           RowBox[{"{", 
            RowBox[{
             RowBox[{"h", "[", 
              RowBox[{"[", "1", "]"}], "]"}], ",", 
             RowBox[{"k", "[", 
              RowBox[{"[", "1", "]"}], "]"}]}], "}"}]}], "}"}], "]"}], ",", 
        RowBox[{"Line", "[", 
         RowBox[{"{", 
          RowBox[{
           RowBox[{"{", 
            RowBox[{
             RowBox[{"h", "[", 
              RowBox[{"[", "1", "]"}], "]"}], ",", 
             RowBox[{"k", "[", 
              RowBox[{"[", "1", "]"}], "]"}]}], "}"}], ",", 
           RowBox[{"{", 
            RowBox[{
             RowBox[{"h", "[", 
              RowBox[{"[", "6", "]"}], "]"}], ",", 
             RowBox[{"k", "[", 
              RowBox[{"[", "6", "]"}], "]"}]}], "}"}]}], "}"}], "]"}], ",", 
        RowBox[{"Line", "[", 
         RowBox[{"{", 
          RowBox[{
           RowBox[{"{", 
            RowBox[{
             RowBox[{"h", "[", 
              RowBox[{"[", "1", "]"}], "]"}], ",", 
             RowBox[{"k", "[", 
              RowBox[{"[", "1", "]"}], "]"}]}], "}"}], ",", 
           RowBox[{"{", 
            RowBox[{
             RowBox[{"h", "[", 
              RowBox[{"[", "10", "]"}], "]"}], ",", 
             RowBox[{"k", "[", 
              RowBox[{"[", "10", "]"}], "]"}]}], "}"}]}], "}"}], "]"}], ",", 
        RowBox[{"Line", "[", 
         RowBox[{"{", 
          RowBox[{
           RowBox[{"{", 
            RowBox[{
             RowBox[{"h", "[", 
              RowBox[{"[", "1", "]"}], "]"}], ",", 
             RowBox[{"k", "[", 
              RowBox[{"[", "1", "]"}], "]"}]}], "}"}], ",", 
           RowBox[{"{", 
            RowBox[{
             RowBox[{"h", "[", 
              RowBox[{"[", "14", "]"}], "]"}], ",", 
             RowBox[{"k", "[", 
              RowBox[{"[", "14", "]"}], "]"}]}], "}"}]}], "}"}], "]"}], ",", 
        RowBox[{"Line", "[", 
         RowBox[{"{", 
          RowBox[{
           RowBox[{"{", 
            RowBox[{
             RowBox[{"h", "[", 
              RowBox[{"[", "2", "]"}], "]"}], ",", 
             RowBox[{"k", "[", 
              RowBox[{"[", "2", "]"}], "]"}]}], "}"}], ",", 
           RowBox[{"{", 
            RowBox[{
             RowBox[{"h", "[", 
              RowBox[{"[", "3", "]"}], "]"}], ",", 
             RowBox[{"k", "[", 
              RowBox[{"[", "3", "]"}], "]"}]}], "}"}]}], "}"}], "]"}], ",", 
        RowBox[{"Line", "[", 
         RowBox[{"{", 
          RowBox[{
           RowBox[{"{", 
            RowBox[{
             RowBox[{"h", "[", 
              RowBox[{"[", "2", "]"}], "]"}], ",", 
             RowBox[{"k", "[", 
              RowBox[{"[", "2", "]"}], "]"}]}], "}"}], ",", 
           RowBox[{"{", 
            RowBox[{
             RowBox[{"h", "[", 
              RowBox[{"[", "4", "]"}], "]"}], ",", 
             RowBox[{"k", "[", 
              RowBox[{"[", "4", "]"}], "]"}]}], "}"}]}], "}"}], "]"}], ",", 
        RowBox[{"Line", "[", 
         RowBox[{"{", 
          RowBox[{
           RowBox[{"{", 
            RowBox[{
             RowBox[{"h", "[", 
              RowBox[{"[", "2", "]"}], "]"}], ",", 
             RowBox[{"k", "[", 
              RowBox[{"[", "2", "]"}], "]"}]}], "}"}], ",", 
           RowBox[{"{", 
            RowBox[{
             RowBox[{"h", "[", 
              RowBox[{"[", "5", "]"}], "]"}], ",", 
             RowBox[{"k", "[", 
              RowBox[{"[", "5", "]"}], "]"}]}], "}"}]}], "}"}], "]"}], ",", 
        RowBox[{"Line", "[", 
         RowBox[{"{", 
          RowBox[{
           RowBox[{"{", 
            RowBox[{
             RowBox[{"h", "[", 
              RowBox[{"[", "6", "]"}], "]"}], ",", 
             RowBox[{"k", "[", 
              RowBox[{"[", "6", "]"}], "]"}]}], "}"}], ",", 
           RowBox[{"{", 
            RowBox[{
             RowBox[{"h", "[", 
              RowBox[{"[", "7", "]"}], "]"}], ",", 
             RowBox[{"k", "[", 
              RowBox[{"[", "7", "]"}], "]"}]}], "}"}]}], "}"}], "]"}], ",", 
        RowBox[{"Line", "[", 
         RowBox[{"{", 
          RowBox[{
           RowBox[{"{", 
            RowBox[{
             RowBox[{"h", "[", 
              RowBox[{"[", "6", "]"}], "]"}], ",", 
             RowBox[{"k", "[", 
              RowBox[{"[", "6", "]"}], "]"}]}], "}"}], ",", 
           RowBox[{"{", 
            RowBox[{
             RowBox[{"h", "[", 
              RowBox[{"[", "8", "]"}], "]"}], ",", 
             RowBox[{"k", "[", 
              RowBox[{"[", "8", "]"}], "]"}]}], "}"}]}], "}"}], "]"}], ",", 
        RowBox[{"Line", "[", 
         RowBox[{"{", 
          RowBox[{
           RowBox[{"{", 
            RowBox[{
             RowBox[{"h", "[", 
              RowBox[{"[", "6", "]"}], "]"}], ",", 
             RowBox[{"k", "[", 
              RowBox[{"[", "6", "]"}], "]"}]}], "}"}], ",", 
           RowBox[{"{", 
            RowBox[{
             RowBox[{"h", "[", 
              RowBox[{"[", "9", "]"}], "]"}], ",", 
             RowBox[{"k", "[", 
              RowBox[{"[", "9", "]"}], "]"}]}], "}"}]}], "}"}], "]"}], ",", 
        RowBox[{"Line", "[", 
         RowBox[{"{", 
          RowBox[{
           RowBox[{"{", 
            RowBox[{
             RowBox[{"h", "[", 
              RowBox[{"[", "10", "]"}], "]"}], ",", 
             RowBox[{"k", "[", 
              RowBox[{"[", "10", "]"}], "]"}]}], "}"}], ",", 
           RowBox[{"{", 
            RowBox[{
             RowBox[{"h", "[", 
              RowBox[{"[", "11", "]"}], "]"}], ",", 
             RowBox[{"k", "[", 
              RowBox[{"[", "11", "]"}], "]"}]}], "}"}]}], "}"}], "]"}], ",", 
        RowBox[{"Line", "[", 
         RowBox[{"{", 
          RowBox[{
           RowBox[{"{", 
            RowBox[{
             RowBox[{"h", "[", 
              RowBox[{"[", "10", "]"}], "]"}], ",", 
             RowBox[{"k", "[", 
              RowBox[{"[", "10", "]"}], "]"}]}], "}"}], ",", 
           RowBox[{"{", 
            RowBox[{
             RowBox[{"h", "[", 
              RowBox[{"[", "12", "]"}], "]"}], ",", 
             RowBox[{"k", "[", 
              RowBox[{"[", "12", "]"}], "]"}]}], "}"}]}], "}"}], "]"}], ",", 
        RowBox[{"Line", "[", 
         RowBox[{"{", 
          RowBox[{
           RowBox[{"{", 
            RowBox[{
             RowBox[{"h", "[", 
              RowBox[{"[", "10", "]"}], "]"}], ",", 
             RowBox[{"k", "[", 
              RowBox[{"[", "10", "]"}], "]"}]}], "}"}], ",", 
           RowBox[{"{", 
            RowBox[{
             RowBox[{"h", "[", 
              RowBox[{"[", "13", "]"}], "]"}], ",", 
             RowBox[{"k", "[", 
              RowBox[{"[", "13", "]"}], "]"}]}], "}"}]}], "}"}], "]"}], ",", 
        RowBox[{"Line", "[", 
         RowBox[{"{", 
          RowBox[{
           RowBox[{"{", 
            RowBox[{
             RowBox[{"h", "[", 
              RowBox[{"[", "14", "]"}], "]"}], ",", 
             RowBox[{"k", "[", 
              RowBox[{"[", "14", "]"}], "]"}]}], "}"}], ",", 
           RowBox[{"{", 
            RowBox[{
             RowBox[{"h", "[", 
              RowBox[{"[", "15", "]"}], "]"}], ",", 
             RowBox[{"k", "[", 
              RowBox[{"[", "15", "]"}], "]"}]}], "}"}]}], "}"}], "]"}], ",", 
        RowBox[{"Line", "[", 
         RowBox[{"{", 
          RowBox[{
           RowBox[{"{", 
            RowBox[{
             RowBox[{"h", "[", 
              RowBox[{"[", "14", "]"}], "]"}], ",", 
             RowBox[{"k", "[", 
              RowBox[{"[", "14", "]"}], "]"}]}], "}"}], ",", 
           RowBox[{"{", 
            RowBox[{
             RowBox[{"h", "[", 
              RowBox[{"[", "16", "]"}], "]"}], ",", 
             RowBox[{"k", "[", 
              RowBox[{"[", "16", "]"}], "]"}]}], "}"}]}], "}"}], "]"}], ",", 
        RowBox[{"Line", "[", 
         RowBox[{"{", 
          RowBox[{
           RowBox[{"{", 
            RowBox[{
             RowBox[{"h", "[", 
              RowBox[{"[", "14", "]"}], "]"}], ",", 
             RowBox[{"k", "[", 
              RowBox[{"[", "14", "]"}], "]"}]}], "}"}], ",", 
           RowBox[{"{", 
            RowBox[{
             RowBox[{"h", "[", 
              RowBox[{"[", "17", "]"}], "]"}], ",", 
             RowBox[{"k", "[", 
              RowBox[{"[", "17", "]"}], "]"}]}], "}"}]}], "}"}], "]"}]}], " ",
        "}"}], " ", "]"}]}], ";"}], "\[IndentingNewLine]", 
   "\[IndentingNewLine]", 
   RowBox[{"Show", "[", 
    RowBox[{"plot2", ",", "plot2a", ",", "plot2b", ",", 
     RowBox[{"{", 
      RowBox[{
       RowBox[{"AspectRatio", " ", "\[Rule]", " ", "Automatic"}], ",", 
       RowBox[{"Axes", " ", "->", " ", "True"}], ",", 
       RowBox[{"GridLines", " ", "->", " ", "Automatic"}], ",", " ", 
       RowBox[{"PlotRange", " ", "\[Rule]", " ", 
        RowBox[{"{", 
         RowBox[{
          RowBox[{"{", 
           RowBox[{
            RowBox[{"-", "5.5"}], ",", "5.5"}], "}"}], ",", 
          RowBox[{"{", 
           RowBox[{
            RowBox[{"-", "5.5"}], ",", "5.5"}], "}"}]}], "}"}]}], ",", " ", 
       RowBox[{"Frame", " ", "->", " ", "True"}]}], "}"}]}], "]"}], 
   "\[IndentingNewLine]"}]}]], "Input",
 CellChangeTimes->{{3.5788332297116423`*^9, 3.5788333119861865`*^9}, {
   3.5788333616254735`*^9, 3.578833369784288*^9}, {3.5788334077859545`*^9, 
   3.5788335936758814`*^9}, 3.5788336329099503`*^9, {3.578833907813633*^9, 
   3.578833921307657*^9}, {3.5788346378169155`*^9, 3.5788346987506223`*^9}, {
   3.57883474865511*^9, 3.5788347727415524`*^9}, {3.578834814892826*^9, 
   3.5788348423176746`*^9}, {3.578834877417736*^9, 3.578834938257843*^9}, 
   3.5788349926395383`*^9, {3.578838876363147*^9, 3.578838886503165*^9}, {
   3.5788397868587465`*^9, 3.578839838229636*^9}, {3.578839907977359*^9, 
   3.578839911284565*^9}, {3.578839946493827*^9, 3.5788400479408045`*^9}, 
   3.578840280225213*^9, {3.578840320941284*^9, 3.5788403240300894`*^9}, {
   3.5788403772573833`*^9, 3.5788404076462364`*^9}, {3.5788404907631826`*^9, 
   3.578840595423766*^9}, {3.578840739443219*^9, 3.5788409147407274`*^9}, {
   3.5788409470951843`*^9, 3.578841080475418*^9}, {3.5788411732019815`*^9, 
   3.578841326612651*^9}, {3.5788413992151785`*^9, 3.5788414152520065`*^9}, {
   3.578841450804469*^9, 3.5788414564048786`*^9}}],

Cell[BoxData[
 GraphicsBox[{CircleBox[{0., 0.}, 0.5967], CircleBox[{1.93276, 0.}, 1.33606], 
   CircleBox[{3.5493, 0.}, 0.28048], CircleBox[{4.02033, -1.33227}, 1.1326], 
   CircleBox[{4.02033, 0.66614}, 1.1326], 
   CircleBox[{4.02033, 0.66614}, 1.1326], 
   CircleBox[{-0.64425, 1.82222}, 1.33606], 
   CircleBox[{-1.1831, 3.34631}, 0.28048], 
   CircleBox[{-2.59619, 3.34631}, 1.1326], 
   CircleBox[{-0.71207, 4.01245}, 1.1326], 
   CircleBox[{-0.71207, 4.01245}, 1.1326], 
   CircleBox[{-0.64425, -0.91111}, 1.33606], 
   CircleBox[{-1.1831, -1.67316}, 0.28048], 
   CircleBox[{-2.59619, -1.67316}, 1.1326], 
   CircleBox[{-0.71207, -3.00543}, 1.1326], 
   CircleBox[{-0.71207, -1.00702}, 1.1326], 
   CircleBox[{-0.64425, -0.91111}, 1.33606], 
   CircleBox[{-1.1831, -1.67316}, 0.28048], 
   CircleBox[{-2.59619, -1.67316}, 1.1326], 
   CircleBox[{-0.71207, -1.00702}, 1.1326], 
   CircleBox[{-0.71207, -3.00543}, 1.1326], DiskBox[{0., 0.}, 0.08], 
   DiskBox[{3.5493, 0.}, 0.08], DiskBox[{4.20661, -1.85915}, 0.08], 
   DiskBox[{4.20661, 0.92957}, 0.08], DiskBox[{4.20661, 0.92957}, 0.08], 
   DiskBox[{-1.1831, 3.34631}, 0.08], DiskBox[{-3.15502, 3.34631}, 0.08], 
   DiskBox[{-0.52579, 4.27589}, 0.08], DiskBox[{-0.52579, 4.27589}, 0.08], 
   DiskBox[{-1.1831, -1.67316}, 0.08], DiskBox[{-3.15502, -1.67316}, 0.08], 
   DiskBox[{-0.52579, -3.5323}, 0.08], DiskBox[{-0.52579, -0.74358}, 0.08], 
   DiskBox[{-1.1831, -1.67316}, 0.08], DiskBox[{-3.15502, -1.67316}, 0.08], 
   DiskBox[{-0.52579, -0.74358}, 0.08], DiskBox[{-0.52579, -3.5323}, 0.08], 
   {Thickness[0.006], LineBox[{{3.5493, 0.}, {0., 0.}}], 
    LineBox[{{0., 0.}, {-1.1831, 3.34631}}], 
    LineBox[{{0., 0.}, {-1.1831, -1.67316}}], 
    LineBox[{{0., 0.}, {-1.1831, -1.67316}}], 
    LineBox[{{3.5493, 0.}, {4.20661, -1.85915}}], 
    LineBox[{{3.5493, 0.}, {4.20661, 0.92957}}], 
    LineBox[{{3.5493, 0.}, {4.20661, 0.92957}}], 
    LineBox[{{-1.1831, 3.34631}, {-3.15502, 3.34631}}], 
    LineBox[{{-1.1831, 3.34631}, {-0.52579, 4.27589}}], 
    LineBox[{{-1.1831, 3.34631}, {-0.52579, 4.27589}}], 
    LineBox[{{-1.1831, -1.67316}, {-3.15502, -1.67316}}], 
    LineBox[{{-1.1831, -1.67316}, {-0.52579, -3.5323}}], 
    LineBox[{{-1.1831, -1.67316}, {-0.52579, -0.74358}}], 
    LineBox[{{-1.1831, -1.67316}, {-3.15502, -1.67316}}], 
    LineBox[{{-1.1831, -1.67316}, {-0.52579, -0.74358}}], 
    LineBox[{{-1.1831, -1.67316}, {-0.52579, -3.5323}}]}},
  AspectRatio->Automatic,
  Axes->True,
  Frame->True,
  GridLines->Automatic,
  PlotRange->{{-5.5, 5.5}, {-5.5, 5.5}}]], "Output",
 CellChangeTimes->{
  3.578842222054223*^9, 3.5788425784524493`*^9, {3.578843506224079*^9, 
   3.578843545520548*^9}, 3.5788435949102345`*^9, 3.578843712331641*^9, 
   3.57884378026976*^9, 3.5788438665603123`*^9, 3.57884393931884*^9, 
   3.5788439877725253`*^9}]
}, Open  ]],

Cell[CellGroupData[{

Cell[BoxData[
 RowBox[{"\[IndentingNewLine]", 
  RowBox[{
   RowBox[{
    RowBox[{"plot3", "=", 
     RowBox[{"Table", "[", 
      RowBox[{
       RowBox[{"Graphics3D", "[", 
        RowBox[{"{", 
         RowBox[{
          RowBox[{"Opacity", "[", "0.6", "]"}], ",", 
          RowBox[{"Sphere", "[", 
           RowBox[{
            RowBox[{"{", 
             RowBox[{
              RowBox[{"t", "[", 
               RowBox[{"[", 
                RowBox[{"i", ",", "1"}], "]"}], "]"}], ",", 
              RowBox[{"t", "[", 
               RowBox[{"[", 
                RowBox[{"i", ",", "2"}], "]"}], "]"}], ",", 
              RowBox[{"t", "[", 
               RowBox[{"[", 
                RowBox[{"i", ",", "3"}], "]"}], "]"}]}], "}"}], ",", 
            RowBox[{"r", "[", 
             RowBox[{"[", "i", "]"}], "]"}]}], "]"}]}], "}"}], "]"}], ",", 
       RowBox[{"{", 
        RowBox[{"i", ",", "1", ",", "21"}], "}"}]}], "]"}]}], ";"}], 
   "\[IndentingNewLine]", 
   RowBox[{
    RowBox[{"plot3a", "=", 
     RowBox[{"Table", "[", 
      RowBox[{
       RowBox[{"Graphics3D", "[", 
        RowBox[{"{", 
         RowBox[{
          RowBox[{"Darker", "[", 
           RowBox[{"Red", ",", "1.0"}], "]"}], ",", 
          RowBox[{"Sphere", "[", 
           RowBox[{
            RowBox[{"{", 
             RowBox[{
              RowBox[{"u", "[", 
               RowBox[{"[", 
                RowBox[{"i", ",", "1"}], "]"}], "]"}], ",", 
              RowBox[{"u", "[", 
               RowBox[{"[", 
                RowBox[{"i", ",", "2"}], "]"}], "]"}], ",", 
              RowBox[{"u", "[", 
               RowBox[{"[", 
                RowBox[{"i", ",", "3"}], "]"}], "]"}]}], "}"}], ",", "0.15"}],
            "]"}]}], "}"}], "]"}], ",", 
       RowBox[{"{", 
        RowBox[{"i", ",", "1", ",", "17"}], "}"}]}], "]"}]}], ";"}], 
   "\[IndentingNewLine]", 
   RowBox[{
    RowBox[{"plot3b", "=", 
     RowBox[{"Graphics3D", "[", 
      RowBox[{"{", " ", 
       RowBox[{
        RowBox[{"Tube", " ", "[", 
         RowBox[{
          RowBox[{"{", 
           RowBox[{
            RowBox[{"{", 
             RowBox[{
              RowBox[{"h", "[", 
               RowBox[{"[", "2", "]"}], "]"}], ",", 
              RowBox[{"k", "[", 
               RowBox[{"[", "2", "]"}], "]"}], ",", 
              RowBox[{"l", "[", 
               RowBox[{"[", "2", "]"}], "]"}]}], "}"}], ",", 
            RowBox[{"{", 
             RowBox[{
              RowBox[{"h", "[", 
               RowBox[{"[", "1", "]"}], "]"}], ",", 
              RowBox[{"k", "[", 
               RowBox[{"[", "1", "]"}], "]"}], ",", 
              RowBox[{"l", "[", 
               RowBox[{"[", "1", "]"}], "]"}]}], "}"}]}], "}"}], ",", 
          "0.08"}], "]"}], ",", " ", 
        RowBox[{"Tube", " ", "[", 
         RowBox[{
          RowBox[{"{", 
           RowBox[{
            RowBox[{"{", 
             RowBox[{
              RowBox[{"h", "[", 
               RowBox[{"[", "1", "]"}], "]"}], ",", 
              RowBox[{"k", "[", 
               RowBox[{"[", "1", "]"}], "]"}], ",", 
              RowBox[{"l", "[", 
               RowBox[{"[", "1", "]"}], "]"}]}], "}"}], ",", 
            RowBox[{"{", 
             RowBox[{
              RowBox[{"h", "[", 
               RowBox[{"[", "6", "]"}], "]"}], ",", 
              RowBox[{"k", "[", 
               RowBox[{"[", "6", "]"}], "]"}], ",", 
              RowBox[{"l", "[", 
               RowBox[{"[", "6", "]"}], "]"}]}], "}"}]}], "}"}], ",", 
          "0.08"}], "]"}], ",", " ", 
        RowBox[{"Tube", " ", "[", 
         RowBox[{
          RowBox[{"{", 
           RowBox[{
            RowBox[{"{", 
             RowBox[{
              RowBox[{"h", "[", 
               RowBox[{"[", "1", "]"}], "]"}], ",", 
              RowBox[{"k", "[", 
               RowBox[{"[", "1", "]"}], "]"}], ",", 
              RowBox[{"l", "[", 
               RowBox[{"[", "1", "]"}], "]"}]}], "}"}], ",", 
            RowBox[{"{", 
             RowBox[{
              RowBox[{"h", "[", 
               RowBox[{"[", "10", "]"}], "]"}], ",", 
              RowBox[{"k", "[", 
               RowBox[{"[", "10", "]"}], "]"}], ",", 
              RowBox[{"l", "[", 
               RowBox[{"[", "10", "]"}], "]"}]}], "}"}]}], "}"}], ",", 
          "0.08"}], "]"}], ",", " ", 
        RowBox[{"Tube", " ", "[", 
         RowBox[{
          RowBox[{"{", 
           RowBox[{
            RowBox[{"{", 
             RowBox[{
              RowBox[{"h", "[", 
               RowBox[{"[", "1", "]"}], "]"}], ",", 
              RowBox[{"k", "[", 
               RowBox[{"[", "1", "]"}], "]"}], ",", 
              RowBox[{"l", "[", 
               RowBox[{"[", "1", "]"}], "]"}]}], "}"}], ",", 
            RowBox[{"{", 
             RowBox[{
              RowBox[{"h", "[", 
               RowBox[{"[", "14", "]"}], "]"}], ",", 
              RowBox[{"k", "[", 
               RowBox[{"[", "14", "]"}], "]"}], ",", 
              RowBox[{"l", "[", 
               RowBox[{"[", "14", "]"}], "]"}]}], "}"}]}], "}"}], ",", 
          "0.08"}], "]"}], ",", " ", 
        RowBox[{"Tube", " ", "[", 
         RowBox[{
          RowBox[{"{", 
           RowBox[{
            RowBox[{"{", 
             RowBox[{
              RowBox[{"h", "[", 
               RowBox[{"[", "2", "]"}], "]"}], ",", 
              RowBox[{"k", "[", 
               RowBox[{"[", "2", "]"}], "]"}], ",", 
              RowBox[{"l", "[", 
               RowBox[{"[", "2", "]"}], "]"}]}], "}"}], ",", 
            RowBox[{"{", 
             RowBox[{
              RowBox[{"h", "[", 
               RowBox[{"[", "3", "]"}], "]"}], ",", 
              RowBox[{"k", "[", 
               RowBox[{"[", "3", "]"}], "]"}], ",", 
              RowBox[{"l", "[", 
               RowBox[{"[", "3", "]"}], "]"}]}], "}"}]}], "}"}], ",", 
          "0.08"}], "]"}], ",", " ", 
        RowBox[{"Tube", " ", "[", 
         RowBox[{
          RowBox[{"{", 
           RowBox[{
            RowBox[{"{", 
             RowBox[{
              RowBox[{"h", "[", 
               RowBox[{"[", "2", "]"}], "]"}], ",", 
              RowBox[{"k", "[", 
               RowBox[{"[", "2", "]"}], "]"}], ",", 
              RowBox[{"l", "[", 
               RowBox[{"[", "2", "]"}], "]"}]}], "}"}], ",", 
            RowBox[{"{", 
             RowBox[{
              RowBox[{"h", "[", 
               RowBox[{"[", "4", "]"}], "]"}], ",", 
              RowBox[{"k", "[", 
               RowBox[{"[", "4", "]"}], "]"}], ",", 
              RowBox[{"l", "[", 
               RowBox[{"[", "4", "]"}], "]"}]}], "}"}]}], "}"}], ",", 
          "0.08"}], "]"}], ",", " ", 
        RowBox[{"Tube", " ", "[", 
         RowBox[{
          RowBox[{"{", 
           RowBox[{
            RowBox[{"{", 
             RowBox[{
              RowBox[{"h", "[", 
               RowBox[{"[", "2", "]"}], "]"}], ",", 
              RowBox[{"k", "[", 
               RowBox[{"[", "2", "]"}], "]"}], ",", 
              RowBox[{"l", "[", 
               RowBox[{"[", "2", "]"}], "]"}]}], "}"}], ",", 
            RowBox[{"{", 
             RowBox[{
              RowBox[{"h", "[", 
               RowBox[{"[", "5", "]"}], "]"}], ",", 
              RowBox[{"k", "[", 
               RowBox[{"[", "5", "]"}], "]"}], ",", 
              RowBox[{"l", "[", 
               RowBox[{"[", "5", "]"}], "]"}]}], "}"}]}], "}"}], ",", 
          "0.08"}], "]"}], ",", " ", 
        RowBox[{"Tube", " ", "[", 
         RowBox[{
          RowBox[{"{", 
           RowBox[{
            RowBox[{"{", 
             RowBox[{
              RowBox[{"h", "[", 
               RowBox[{"[", "6", "]"}], "]"}], ",", 
              RowBox[{"k", "[", 
               RowBox[{"[", "6", "]"}], "]"}], ",", 
              RowBox[{"l", "[", 
               RowBox[{"[", "6", "]"}], "]"}]}], "}"}], ",", 
            RowBox[{"{", 
             RowBox[{
              RowBox[{"h", "[", 
               RowBox[{"[", "7", "]"}], "]"}], ",", 
              RowBox[{"k", "[", 
               RowBox[{"[", "7", "]"}], "]"}], ",", 
              RowBox[{"l", "[", 
               RowBox[{"[", "7", "]"}], "]"}]}], "}"}]}], "}"}], ",", 
          "0.08"}], "]"}], ",", " ", "\[IndentingNewLine]", 
        RowBox[{"Tube", " ", "[", 
         RowBox[{
          RowBox[{"{", 
           RowBox[{
            RowBox[{"{", 
             RowBox[{
              RowBox[{"h", "[", 
               RowBox[{"[", "6", "]"}], "]"}], ",", 
              RowBox[{"k", "[", 
               RowBox[{"[", "6", "]"}], "]"}], ",", 
              RowBox[{"l", "[", 
               RowBox[{"[", "6", "]"}], "]"}]}], "}"}], ",", 
            RowBox[{"{", 
             RowBox[{
              RowBox[{"h", "[", 
               RowBox[{"[", "8", "]"}], "]"}], ",", 
              RowBox[{"k", "[", 
               RowBox[{"[", "8", "]"}], "]"}], ",", 
              RowBox[{"l", "[", 
               RowBox[{"[", "8", "]"}], "]"}]}], "}"}]}], "}"}], ",", 
          "0.08"}], "]"}], ",", " ", "\[IndentingNewLine]", 
        RowBox[{"Tube", " ", "[", 
         RowBox[{
          RowBox[{"{", 
           RowBox[{
            RowBox[{"{", 
             RowBox[{
              RowBox[{"h", "[", 
               RowBox[{"[", "6", "]"}], "]"}], ",", 
              RowBox[{"k", "[", 
               RowBox[{"[", "6", "]"}], "]"}], ",", 
              RowBox[{"l", "[", 
               RowBox[{"[", "6", "]"}], "]"}]}], "}"}], ",", 
            RowBox[{"{", 
             RowBox[{
              RowBox[{"h", "[", 
               RowBox[{"[", "9", "]"}], "]"}], ",", 
              RowBox[{"k", "[", 
               RowBox[{"[", "9", "]"}], "]"}], ",", 
              RowBox[{"l", "[", 
               RowBox[{"[", "9", "]"}], "]"}]}], "}"}]}], "}"}], ",", 
          "0.08"}], "]"}], ",", " ", 
        RowBox[{"Tube", " ", "[", 
         RowBox[{
          RowBox[{"{", 
           RowBox[{
            RowBox[{"{", 
             RowBox[{
              RowBox[{"h", "[", 
               RowBox[{"[", "10", "]"}], "]"}], ",", 
              RowBox[{"k", "[", 
               RowBox[{"[", "10", "]"}], "]"}], ",", 
              RowBox[{"l", "[", 
               RowBox[{"[", "10", "]"}], "]"}]}], "}"}], ",", 
            RowBox[{"{", 
             RowBox[{
              RowBox[{"h", "[", 
               RowBox[{"[", "11", "]"}], "]"}], ",", 
              RowBox[{"k", "[", 
               RowBox[{"[", "11", "]"}], "]"}], ",", 
              RowBox[{"l", "[", 
               RowBox[{"[", "11", "]"}], "]"}]}], "}"}]}], "}"}], ",", 
          "0.08"}], "]"}], ",", " ", 
        RowBox[{"Tube", " ", "[", 
         RowBox[{
          RowBox[{"{", 
           RowBox[{
            RowBox[{"{", 
             RowBox[{
              RowBox[{"h", "[", 
               RowBox[{"[", "10", "]"}], "]"}], ",", 
              RowBox[{"k", "[", 
               RowBox[{"[", "10", "]"}], "]"}], ",", 
              RowBox[{"l", "[", 
               RowBox[{"[", "10", "]"}], "]"}]}], "}"}], ",", 
            RowBox[{"{", 
             RowBox[{
              RowBox[{"h", "[", 
               RowBox[{"[", "12", "]"}], "]"}], ",", 
              RowBox[{"k", "[", 
               RowBox[{"[", "12", "]"}], "]"}], ",", 
              RowBox[{"l", "[", 
               RowBox[{"[", "12", "]"}], "]"}]}], "}"}]}], "}"}], ",", 
          "0.08"}], "]"}], ",", " ", 
        RowBox[{"Tube", " ", "[", 
         RowBox[{
          RowBox[{"{", 
           RowBox[{
            RowBox[{"{", 
             RowBox[{
              RowBox[{"h", "[", 
               RowBox[{"[", "10", "]"}], "]"}], ",", 
              RowBox[{"k", "[", 
               RowBox[{"[", "10", "]"}], "]"}], ",", 
              RowBox[{"l", "[", 
               RowBox[{"[", "10", "]"}], "]"}]}], "}"}], ",", 
            RowBox[{"{", 
             RowBox[{
              RowBox[{"h", "[", 
               RowBox[{"[", "13", "]"}], "]"}], ",", 
              RowBox[{"k", "[", 
               RowBox[{"[", "13", "]"}], "]"}], ",", 
              RowBox[{"l", "[", 
               RowBox[{"[", "13", "]"}], "]"}]}], "}"}]}], "}"}], ",", 
          "0.08"}], "]"}], ",", " ", 
        RowBox[{"Tube", " ", "[", 
         RowBox[{
          RowBox[{"{", 
           RowBox[{
            RowBox[{"{", 
             RowBox[{
              RowBox[{"h", "[", 
               RowBox[{"[", "14", "]"}], "]"}], ",", 
              RowBox[{"k", "[", 
               RowBox[{"[", "14", "]"}], "]"}], ",", 
              RowBox[{"l", "[", 
               RowBox[{"[", "14", "]"}], "]"}]}], "}"}], ",", 
            RowBox[{"{", 
             RowBox[{
              RowBox[{"h", "[", 
               RowBox[{"[", "15", "]"}], "]"}], ",", 
              RowBox[{"k", "[", 
               RowBox[{"[", "15", "]"}], "]"}], ",", 
              RowBox[{"l", "[", 
               RowBox[{"[", "15", "]"}], "]"}]}], "}"}]}], "}"}], ",", 
          "0.08"}], "]"}], ",", " ", 
        RowBox[{"Tube", " ", "[", 
         RowBox[{
          RowBox[{"{", 
           RowBox[{
            RowBox[{"{", 
             RowBox[{
              RowBox[{"h", "[", 
               RowBox[{"[", "14", "]"}], "]"}], ",", 
              RowBox[{"k", "[", 
               RowBox[{"[", "14", "]"}], "]"}], ",", 
              RowBox[{"l", "[", 
               RowBox[{"[", "14", "]"}], "]"}]}], "}"}], ",", 
            RowBox[{"{", 
             RowBox[{
              RowBox[{"h", "[", 
               RowBox[{"[", "16", "]"}], "]"}], ",", 
              RowBox[{"k", "[", 
               RowBox[{"[", "16", "]"}], "]"}], ",", 
              RowBox[{"l", "[", 
               RowBox[{"[", "16", "]"}], "]"}]}], "}"}]}], "}"}], ",", 
          "0.08"}], "]"}], ",", " ", 
        RowBox[{"Tube", " ", "[", 
         RowBox[{
          RowBox[{"{", 
           RowBox[{
            RowBox[{"{", 
             RowBox[{
              RowBox[{"h", "[", 
               RowBox[{"[", "14", "]"}], "]"}], ",", 
              RowBox[{"k", "[", 
               RowBox[{"[", "14", "]"}], "]"}], ",", 
              RowBox[{"l", "[", 
               RowBox[{"[", "14", "]"}], "]"}]}], "}"}], ",", 
            RowBox[{"{", 
             RowBox[{
              RowBox[{"h", "[", 
               RowBox[{"[", "17", "]"}], "]"}], ",", 
              RowBox[{"k", "[", 
               RowBox[{"[", "17", "]"}], "]"}], ",", 
              RowBox[{"l", "[", 
               RowBox[{"[", "17", "]"}], "]"}]}], "}"}]}], "}"}], ",", 
          "0.08"}], "]"}]}], " ", "}"}], " ", "]"}]}], ";"}], 
   "\[IndentingNewLine]", "\[IndentingNewLine]", 
   RowBox[{"Show", "[", 
    RowBox[{"plot3", ",", "plot3a", ",", "plot3b", ",", 
     RowBox[{"{", 
      RowBox[{
       RowBox[{"AspectRatio", "\[Rule]", "Automatic"}], ",", 
       RowBox[{"SphericalRegion", "\[Rule]", "True"}]}], "}"}]}], 
    "]"}]}]}]], "Input",
 CellChangeTimes->{{3.5788417541626015`*^9, 3.5788417906354656`*^9}, 
   3.5788418215079203`*^9, {3.5788420223738728`*^9, 3.578842028879084*^9}, 
   3.5788420679103527`*^9, {3.578842098299206*^9, 3.5788421088604245`*^9}, {
   3.578842181431752*^9, 3.5788422038177915`*^9}, {3.5788423843257084`*^9, 
   3.5788424372722015`*^9}, {3.57884247057826*^9, 3.578842557142812*^9}, {
   3.578842660726994*^9, 3.5788426803362284`*^9}, 3.578842796057232*^9, {
   3.578842831531694*^9, 3.578842876756173*^9}, {3.5788429166366434`*^9, 
   3.578843537829735*^9}, {3.57884358637702*^9, 3.5788435865954204`*^9}, {
   3.578843686560396*^9, 3.578843703080825*^9}, 3.5788437755273523`*^9, {
   3.5788438473654785`*^9, 3.5788438584258976`*^9}, {3.5788439163244*^9, 
   3.5788439282428207`*^9}, {3.5788439783033085`*^9, 3.5788439818289146`*^9}}],

Cell[BoxData[
 Graphics3DBox[{
   {Opacity[0.6], SphereBox[{0., 0., 0.}, 0.5967]}, 
   {Opacity[0.6], SphereBox[{1.93276, 0., 0.}, 1.33606]}, 
   {Opacity[0.6], SphereBox[{3.5493, 0., 0.}, 0.28048]}, 
   {Opacity[0.6], SphereBox[{4.02033, -1.33227, 0.}, 1.1326]}, 
   {Opacity[0.6], SphereBox[{4.02033, 0.66614, 1.15378}, 1.1326]}, 
   {Opacity[0.6], SphereBox[{4.02033, 0.66614, -1.15378}, 1.1326]}, 
   {Opacity[0.6], SphereBox[{-0.64425, 1.82222, 0.}, 1.33606]}, 
   {Opacity[0.6], SphereBox[{-1.1831, 3.34631, 0.}, 0.28048]}, 
   {Opacity[0.6], SphereBox[{-2.59619, 3.34631, 0.}, 1.1326]}, 
   {Opacity[0.6], SphereBox[{-0.71207, 4.01245, 1.15378}, 1.1326]}, 
   {Opacity[0.6], SphereBox[{-0.71207, 4.01245, -1.15378}, 1.1326]}, 
   {Opacity[0.6], SphereBox[{-0.64425, -0.91111, 1.57809}, 1.33606]}, 
   {Opacity[0.6], SphereBox[{-1.1831, -1.67316, 2.89799}, 0.28048]}, 
   {Opacity[0.6], SphereBox[{-2.59619, -1.67316, 2.89799}, 1.1326]}, 
   {Opacity[0.6], SphereBox[{-0.71207, -3.00543, 2.89799}, 1.1326]}, 
   {Opacity[0.6], SphereBox[{-0.71207, -1.00702, 4.05177}, 1.1326]}, 
   {Opacity[0.6], SphereBox[{-0.64425, -0.91111, -1.57809}, 1.33606]}, 
   {Opacity[0.6], SphereBox[{-1.1831, -1.67316, -2.89799}, 0.28048]}, 
   {Opacity[0.6], SphereBox[{-2.59619, -1.67316, -2.89799}, 1.1326]}, 
   {Opacity[0.6], SphereBox[{-0.71207, -1.00702, -4.05177}, 1.1326]}, 
   {Opacity[0.6], SphereBox[{-0.71207, -3.00543, -2.89799}, 1.1326]}, 
   {RGBColor[0., 0., 0.], SphereBox[{0., 0., 0.}, 0.15]}, 
   {RGBColor[0., 0., 0.], SphereBox[{3.5493, 0., 0.}, 0.15]}, 
   {RGBColor[0., 0., 0.], SphereBox[{4.20661, -1.85915, 0.}, 0.15]}, 
   {RGBColor[0., 0., 0.], SphereBox[{4.20661, 0.92957, 1.61007}, 0.15]}, 
   {RGBColor[0., 0., 0.], SphereBox[{4.20661, 0.92957, -1.61007}, 0.15]}, 
   {RGBColor[0., 0., 0.], SphereBox[{-1.1831, 3.34631, 0.}, 0.15]}, 
   {RGBColor[0., 0., 0.], SphereBox[{-3.15502, 3.34631, 0.}, 0.15]}, 
   {RGBColor[0., 0., 0.], SphereBox[{-0.52579, 4.27589, 1.61007}, 0.15]}, 
   {RGBColor[0., 0., 0.], SphereBox[{-0.52579, 4.27589, -1.61007}, 0.15]}, 
   {RGBColor[0., 0., 0.], SphereBox[{-1.1831, -1.67316, 2.89799}, 0.15]}, 
   {RGBColor[0., 0., 0.], SphereBox[{-3.15502, -1.67316, 2.89799}, 0.15]}, 
   {RGBColor[0., 0., 0.], SphereBox[{-0.52579, -3.5323, 2.89799}, 0.15]}, 
   {RGBColor[0., 0., 0.], SphereBox[{-0.52579, -0.74358, 4.50806}, 0.15]}, 
   {RGBColor[0., 0., 0.], SphereBox[{-1.1831, -1.67316, -2.89799}, 0.15]}, 
   {RGBColor[0., 0., 0.], SphereBox[{-3.15502, -1.67316, -2.89799}, 0.15]}, 
   {RGBColor[0., 0., 0.], SphereBox[{-0.52579, -0.74358, -4.50806}, 0.15]}, 
   {RGBColor[0., 0., 0.], SphereBox[{-0.52579, -3.5323, -2.89799}, 0.15]}, {
    TubeBox[{{3.5493, 0., 0.}, {0., 0., 0.}}, 0.08], 
    TubeBox[{{0., 0., 0.}, {-1.1831, 3.34631, 0.}}, 0.08], 
    TubeBox[{{0., 0., 0.}, {-1.1831, -1.67316, 2.89799}}, 0.08], 
    TubeBox[{{0., 0., 0.}, {-1.1831, -1.67316, -2.89799}}, 0.08], 
    TubeBox[{{3.5493, 0., 0.}, {4.20661, -1.85915, 0.}}, 0.08], 
    TubeBox[{{3.5493, 0., 0.}, {4.20661, 0.92957, 1.61007}}, 0.08], 
    TubeBox[{{3.5493, 0., 0.}, {4.20661, 0.92957, -1.61007}}, 0.08], 
    TubeBox[{{-1.1831, 3.34631, 0.}, {-3.15502, 3.34631, 0.}}, 0.08], 
    TubeBox[{{-1.1831, 3.34631, 0.}, {-0.52579, 4.27589, 1.61007}}, 0.08], 
    TubeBox[{{-1.1831, 3.34631, 0.}, {-0.52579, 4.27589, -1.61007}}, 0.08], 
    TubeBox[{{-1.1831, -1.67316, 2.89799}, {-3.15502, -1.67316, 2.89799}}, 
     0.08], TubeBox[{{-1.1831, -1.67316, 2.89799}, {-0.52579, -3.5323, 
     2.89799}}, 0.08], 
    TubeBox[{{-1.1831, -1.67316, 2.89799}, {-0.52579, -0.74358, 4.50806}}, 
     0.08], TubeBox[{{-1.1831, -1.67316, -2.89799}, {-3.15502, -1.67316, \
-2.89799}}, 0.08], 
    TubeBox[{{-1.1831, -1.67316, -2.89799}, {-0.52579, -0.74358, -4.50806}}, 
     0.08], TubeBox[{{-1.1831, -1.67316, -2.89799}, {-0.52579, -3.5323, \
-2.89799}}, 0.08]}},
  AspectRatio->Automatic,
  ImageSize->{543.2931443744861, 498.},
  SphericalRegion->True,
  ViewPoint->{1.6017645192107999`, 
   0.019855184343917198`, -2.9805966175670364`},
  ViewVertical->{1.1556367561671343`, 
   0.03188462001296409, -0.13884550443969726`}]], "Output",
 CellChangeTimes->{
  3.578842222054223*^9, 3.5788425784836493`*^9, {3.5788435064424796`*^9, 
   3.5788435455673485`*^9}, 3.578843594941435*^9, 3.578843712362841*^9, 
   3.5788437803165607`*^9, 3.578843866591512*^9, 3.57884393939684*^9, 
   3.5788439878193254`*^9}]
}, Open  ]]
},
WindowSize->{873, 785},
WindowMargins->{{Automatic, 422}, {Automatic, 6}},
PrintingCopies->1,
PrintingPageRange->{Automatic, Automatic},
PrivateNotebookOptions->{"VersionedStylesheet"->{"Default.nb"[8.] -> False}},
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, 6226, 174, 372, "Input"],
Cell[6786, 196, 2065, 72, 192, "Input"],
Cell[CellGroupData[{
Cell[8876, 272, 12302, 332, 392, "Input"],
Cell[21181, 606, 2824, 53, 375, "Output"]
}, Open  ]],
Cell[CellGroupData[{
Cell[24042, 664, 15621, 414, 472, "Input"],
Cell[39666, 1080, 4412, 70, 545, "Output"]
}, Open  ]]
}
]
*)

(* End of internal cache information *)