(* 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[    189552,       4145]
NotebookOptionsPosition[    184484,       4001]
NotebookOutlinePosition[    185021,       4022]
CellTagsIndexPosition[    184978,       4019]
WindowFrame->Normal*)

(* Beginning of Notebook Content *)
Notebook[{
Cell[BoxData[
 RowBox[{"(*", " ", 
  RowBox[{
   RowBox[{
   "Kimball", " ", "model", " ", "and", " ", "energy", " ", "derived", " ", 
    "from", " ", "experimental", " ", "molecule", " ", "data", " ", 
    "source"}], ",", " ", 
   RowBox[{"ES", " ", "end", " ", "january", " ", "2013"}]}], " ", 
  "*)"}]], "Input",
 CellChangeTimes->{{3.568278170270548*^9, 3.568278174310955*^9}, {
   3.5682782109554195`*^9, 3.5682782183342323`*^9}, 3.568284752749406*^9, 
   3.5682847957898817`*^9, {3.5682872948362713`*^9, 3.568287369232802*^9}, 
   3.568287617554038*^9, {3.568440273123003*^9, 3.56844028288862*^9}, {
   3.5684454185345354`*^9, 3.568445424275345*^9}, {3.5684462433847847`*^9, 
   3.568446245069587*^9}}],

Cell[CellGroupData[{

Cell[BoxData[{
 RowBox[{"t", "=", 
  RowBox[{"1.8897", "*", 
   RowBox[{
   "ReadList", "[", "\"\<C:\\\\Kimb_Mathem\\\\Centrohexaindane.crt\>\"", 
    "]"}]}]}], "\[IndentingNewLine]", 
 RowBox[{
  RowBox[{"u", "=", 
   RowBox[{"{", 
    RowBox[{
    "\"\<C\>\"", ",", "\"\<C\>\"", ",", "\"\<C\>\"", ",", "\"\<C\>\"", ",", 
     "\"\<C\>\"", ",", "\"\<C\>\"", ",", "\"\<C\>\"", ",", "\"\<C\>\"", ",", 
     "\"\<C\>\"", ",", "\"\<C\>\"", ",", "\"\<C\>\"", ",", "\"\<C\>\"", ",", 
     "\"\<C\>\"", ",", "\"\<C\>\"", ",", "\"\<C\>\"", ",", "\"\<C\>\"", ",", 
     "\"\<H\>\"", ",", "\"\<H\>\"", ",", "\"\<H\>\"", ",", "\"\<H\>\"", ",", 
     "\"\<C\>\"", ",", "\"\<C\>\"", ",", "\"\<C\>\"", ",", "\"\<C\>\"", ",", 
     "\"\<C\>\"", ",", "\"\<H\>\"", ",", "\"\<H\>\"", ",", "\"\<H\>\"", ",", 
     "\"\<H\>\"", ",", "\"\<C\>\"", ",", "\"\<C\>\"", ",", "\"\<C\>\"", ",", 
     "\"\<C\>\"", ",", "\"\<C\>\"", ",", "\"\<H\>\"", ",", "\"\<H\>\"", ",", 
     "\"\<H\>\"", ",", "\"\<H\>\"", ",", "\"\<C\>\"", ",", "\"\<C\>\"", ",", 
     "\"\<C\>\"", ",", "\"\<C\>\"", ",", "\"\<C\>\"", ",", "\"\<H\>\"", ",", 
     "\"\<H\>\"", ",", "\"\<H\>\"", ",", "\"\<H\>\"", ",", "\"\<C\>\"", ",", 
     "\"\<C\>\"", ",", "\"\<C\>\"", ",", "\"\<C\>\"", ",", "\"\<C\>\"", ",", 
     "\"\<H\>\"", ",", "\"\<H\>\"", ",", "\"\<H\>\"", ",", "\"\<H\>\"", ",", 
     "\"\<C\>\"", ",", "\"\<C\>\"", ",", "\"\<C\>\"", ",", "\"\<C\>\"", ",", 
     "\"\<C\>\"", ",", "\"\<H\>\"", ",", "\"\<H\>\"", ",", "\"\<H\>\"", ",", 
     "\"\<H\>\""}], "}"}]}], ";"}]}], "Input",
 CellChangeTimes->{{3.5678630319943895`*^9, 3.5678630956269007`*^9}, {
   3.5678632280087337`*^9, 3.567863228336334*^9}, {3.5678632621727934`*^9, 
   3.5678633509213495`*^9}, {3.5678644293824434`*^9, 3.567864451908883*^9}, {
   3.567864923404111*^9, 3.56786494544695*^9}, {3.5678650143210707`*^9, 
   3.5678650845367947`*^9}, 3.567869231084096*^9, 3.5678693210962543`*^9, {
   3.567869354027912*^9, 3.5678693684423375`*^9}, {3.5682782542610955`*^9, 
   3.5682782564138994`*^9}, 3.568284752702606*^9, 3.568284795821082*^9, 
   3.568287617554038*^9, 3.5684403212490873`*^9, 3.5684403611695576`*^9, {
   3.568445091452361*^9, 3.568445123943618*^9}, {3.5684451927865386`*^9, 
   3.5684451994945507`*^9}, {3.5684463891670403`*^9, 3.568446394096649*^9}, {
   3.568446460412366*^9, 3.568446462627569*^9}, {3.5684464974084306`*^9, 
   3.5684465180628667`*^9}, {3.568454520195232*^9, 3.5684545223636355`*^9}, 
   3.5684545551236935`*^9}],

Cell[BoxData[
 RowBox[{"{", 
  RowBox[{
   RowBox[{"{", 
    RowBox[{"0.`", ",", "0.`", ",", 
     RowBox[{"-", "0.0018897`"}]}], "}"}], ",", 
   RowBox[{"{", 
    RowBox[{"0.0056691`", ",", 
     RowBox[{"-", "2.4471615`"}], ",", 
     RowBox[{"-", "1.6648257`"}]}], "}"}], ",", 
   RowBox[{"{", 
    RowBox[{"0.0018897`", ",", "2.3848013999999997`", ",", 
     RowBox[{"-", "1.7555313000000001`"}]}], "}"}], ",", 
   RowBox[{"{", 
    RowBox[{"2.4150366`", ",", "0.0359043`", ",", "1.7120682`"}], "}"}], ",", 
   RowBox[{"{", 
    RowBox[{
     RowBox[{"-", "2.418816`"}], ",", "0.0302352`", ",", "1.7026197`"}], 
    "}"}], ",", 
   RowBox[{"{", 
    RowBox[{"3.7529442`", ",", "2.4358232999999996`", ",", "0.9108354`"}], 
    "}"}], ",", 
   RowBox[{"{", 
    RowBox[{"3.7586133`", ",", 
     RowBox[{"-", "2.3904704999999997`"}], ",", "1.0034307`"}], "}"}], ",", 
   RowBox[{"{", 
    RowBox[{
     RowBox[{"-", "2.4055880999999997`"}], ",", 
     RowBox[{"-", "3.7775103`"}], ",", 
     RowBox[{"-", "0.8862692999999999`"}]}], "}"}], ",", 
   RowBox[{"{", 
    RowBox[{"0.0075588`", ",", "1.2623196`", ",", 
     RowBox[{"-", "4.3897731`"}]}], "}"}], ",", 
   RowBox[{"{", 
    RowBox[{
     RowBox[{"-", "3.760503`"}], ",", "2.4263748`", ",", 
     "0.8976074999999999`"}], "}"}], ",", 
   RowBox[{"{", 
    RowBox[{
     RowBox[{"-", "1.3530251999999998`"}], ",", "0.08125709999999998`", ",", 
     "4.3576482`"}], "}"}], ",", 
   RowBox[{"{", 
    RowBox[{
     RowBox[{"-", "5.6426442`"}], ",", "6.935199`", ",", 
     RowBox[{"-", "1.0714598999999998`"}]}], "}"}], ",", 
   RowBox[{"{", 
    RowBox[{
     RowBox[{"-", "6.9616548`"}], ",", "5.6520927`", ",", 
     "0.8125709999999999`"}], "}"}], ",", 
   RowBox[{"{", 
    RowBox[{
     RowBox[{"-", "6.0243636`"}], ",", "3.3750042`", ",", "1.814112`"}], 
    "}"}], ",", 
   RowBox[{"{", 
    RowBox[{
     RowBox[{"-", "2.4150366`"}], ",", "3.7359369`", ",", 
     RowBox[{"-", "1.0279968`"}]}], "}"}], ",", 
   RowBox[{"{", 
    RowBox[{
     RowBox[{"-", "3.3466587`"}], ",", "5.9790108`", ",", 
     RowBox[{"-", "2.0106408`"}]}], "}"}], ",", 
   RowBox[{"{", 
    RowBox[{
     RowBox[{"-", "6.389075699999999`"}], ",", "8.6945097`", ",", 
     RowBox[{"-", "1.8330089999999999`"}]}], "}"}], ",", 
   RowBox[{"{", 
    RowBox[{
     RowBox[{"-", "8.7360831`"}], ",", "6.411752099999999`", ",", 
     "1.5230982`"}], "}"}], ",", 
   RowBox[{"{", 
    RowBox[{
     RowBox[{"-", "7.0655883`"}], ",", "2.3885807999999997`", ",", 
     "3.2842986`"}], "}"}], ",", 
   RowBox[{"{", 
    RowBox[{
     RowBox[{"-", "2.3318898`"}], ",", "6.990000299999999`", ",", 
     RowBox[{"-", "3.4808274`"}]}], "}"}], ",", 
   RowBox[{"{", 
    RowBox[{"5.6313059999999995`", ",", "6.948426899999999`", ",", 
     RowBox[{"-", "1.0506732`"}]}], "}"}], ",", 
   RowBox[{"{", 
    RowBox[{"3.3409896`", ",", "5.9865696`", ",", 
     RowBox[{"-", "1.9974128999999998`"}]}], "}"}], ",", 
   RowBox[{"{", 
    RowBox[{"2.4093674999999997`", ",", "3.741606`", ",", 
     RowBox[{"-", "1.0185483`"}]}], "}"}], ",", 
   RowBox[{"{", 
    RowBox[{
    "6.009246`", ",", "3.3901217999999997`", ",", "1.8386780999999999`"}], 
    "}"}], ",", 
   RowBox[{"{", 
    RowBox[{"6.9465372`", ",", "5.6691`", ",", "0.8390268`"}], "}"}], ",", 
   RowBox[{"{", 
    RowBox[{"6.3758478`", ",", "8.7096273`", ",", 
     RowBox[{"-", "1.8084429`"}]}], "}"}], ",", 
   RowBox[{"{", 
    RowBox[{"2.3262207`", ",", "6.997559099999999`", ",", 
     RowBox[{"-", "3.4713789`"}]}], "}"}], ",", 
   RowBox[{"{", 
    RowBox[{
    "7.0466913`", ",", "2.4055880999999997`", ",", "3.3126440999999995`"}], 
    "}"}], ",", 
   RowBox[{"{", 
    RowBox[{
    "8.717186100000001`", ",", "6.4325388`", ",", "1.5571127999999999`"}], 
    "}"}], ",", 
   RowBox[{"{", 
    RowBox[{"5.646423599999999`", ",", 
     RowBox[{"-", "6.9711033`"}], ",", 
     RowBox[{"-", "0.7861151999999999`"}]}], "}"}], ",", 
   RowBox[{"{", 
    RowBox[{"3.3542175`", ",", 
     RowBox[{"-", "6.0508194`"}], ",", 
     RowBox[{"-", "1.7687592`"}]}], "}"}], ",", 
   RowBox[{"{", 
    RowBox[{"2.418816`", ",", 
     RowBox[{"-", "3.7718412`"}], ",", 
     RowBox[{"-", "0.8768208000000001`"}]}], "}"}], ",", 
   RowBox[{"{", 
    RowBox[{"6.0168048`", ",", 
     RowBox[{"-", "3.3050853`"}], ",", "1.965288`"}], "}"}], ",", 
   RowBox[{"{", 
    RowBox[{"6.9578754`", ",", 
     RowBox[{"-", "5.6180781`"}], ",", "1.0544526`"}], "}"}], ",", 
   RowBox[{"{", 
    RowBox[{"6.3928551`", ",", 
     RowBox[{"-", "8.7587595`"}], ",", 
     RowBox[{"-", "1.4758557`"}]}], "}"}], ",", 
   RowBox[{"{", 
    RowBox[{"2.3413383000000003`", ",", 
     RowBox[{"-", "7.1184999`"}], ",", 
     RowBox[{"-", "3.2030415`"}]}], "}"}], ",", 
   RowBox[{"{", 
    RowBox[{"7.0523604`", ",", 
     RowBox[{"-", "2.2619709`"}], ",", "3.3995702999999997`"}], "}"}], ",", 
   RowBox[{"{", 
    RowBox[{"8.7285243`", ",", 
     RowBox[{"-", "6.349392`"}], ",", "1.7989943999999998`"}], "}"}], ",", 
   RowBox[{"{", 
    RowBox[{
     RowBox[{"-", "6.948426899999999`"}], ",", 
     RowBox[{"-", "5.6331957`"}], ",", "1.0261071`"}], "}"}], ",", 
   RowBox[{"{", 
    RowBox[{
     RowBox[{"-", "6.0149151`"}], ",", 
     RowBox[{"-", "3.3183132`"}], ",", "1.9426116`"}], "}"}], ",", 
   RowBox[{"{", 
    RowBox[{
     RowBox[{"-", "3.7548339`"}], ",", 
     RowBox[{"-", "2.3980292999999997`"}], ",", "0.9883131`"}], "}"}], ",", 
   RowBox[{"{", 
    RowBox[{
     RowBox[{"-", "3.3334308`"}], ",", 
     RowBox[{"-", "6.0564884999999995`"}], ",", 
     RowBox[{"-", "1.7819870999999998`"}]}], "}"}], ",", 
   RowBox[{"{", 
    RowBox[{
     RowBox[{"-", "5.6275266`"}], ",", 
     RowBox[{"-", "6.982441499999999`"}], ",", 
     RowBox[{"-", "0.8087915999999999`"}]}], "}"}], ",", 
   RowBox[{"{", 
    RowBox[{
     RowBox[{"-", "8.7228552`"}], ",", 
     RowBox[{"-", "6.368289`"}], ",", "1.7649798`"}], "}"}], ",", 
   RowBox[{"{", 
    RowBox[{
     RowBox[{"-", "7.0580295`"}], ",", 
     RowBox[{"-", "2.2789782`"}], ",", "3.3750042`"}], "}"}], ",", 
   RowBox[{"{", 
    RowBox[{
     RowBox[{"-", "2.3148825`"}], ",", 
     RowBox[{"-", "7.1222793`"}], ",", 
     RowBox[{"-", "3.2143797`"}]}], "}"}], ",", 
   RowBox[{"{", 
    RowBox[{
     RowBox[{"-", "6.370178699999999`"}], ",", 
     RowBox[{"-", "8.770097699999999`"}], ",", 
     RowBox[{"-", "1.5042012`"}]}], "}"}], ",", 
   RowBox[{"{", 
    RowBox[{
    "1.3001135999999998`", ",", "0.17007299999999997`", ",", "8.9061561`"}], 
    "}"}], ",", 
   RowBox[{"{", 
    RowBox[{
    "2.6606975999999998`", ",", "0.1284996`", ",", "6.6233984999999995`"}], 
    "}"}], ",", 
   RowBox[{"{", 
    RowBox[{
    "1.3379075999999999`", ",", "0.08503649999999999`", ",", "4.3633173`"}], 
    "}"}], ",", 
   RowBox[{"{", 
    RowBox[{
     RowBox[{"-", "2.6852637`"}], ",", "0.1228305`", ",", "6.61395`"}], "}"}],
    ",", 
   RowBox[{"{", 
    RowBox[{
     RowBox[{"-", "1.3322384999999999`"}], ",", "0.16629359999999999`", ",", 
     "8.9023767`"}], "}"}], ",", 
   RowBox[{"{", 
    RowBox[{"2.324331`", ",", "0.2059773`", ",", "10.6900329`"}], "}"}], ",", 
   RowBox[{"{", 
    RowBox[{"4.7148015`", ",", "0.132279`", ",", "6.6441852`"}], "}"}], ",", 
   RowBox[{"{", 
    RowBox[{
     RowBox[{"-", "4.7393676`"}], ",", "0.11905109999999999`", ",", 
     "6.6271779`"}], "}"}], ",", 
   RowBox[{"{", 
    RowBox[{
     RowBox[{"-", "2.3640147`"}], ",", "0.1984185`", ",", "10.6805844`"}], 
    "}"}], ",", 
   RowBox[{"{", 
    RowBox[{"0.020786699999999998`", ",", 
     RowBox[{"-", "1.4853042`"}], ",", 
     RowBox[{"-", "8.883479699999999`"}]}], "}"}], ",", 
   RowBox[{"{", 
    RowBox[{"0.0170073`", ",", 
     RowBox[{"-", "2.796756`"}], ",", 
     RowBox[{"-", "6.5704869`"}]}], "}"}], ",", 
   RowBox[{"{", 
    RowBox[{"0.0113382`", ",", 
     RowBox[{"-", "1.4267235`"}], ",", 
     RowBox[{"-", "4.3387512`"}]}], "}"}], ",", 
   RowBox[{"{", 
    RowBox[{"0.0094485`", ",", "2.5473156`", ",", 
     RowBox[{"-", "6.6725307`"}]}], "}"}], ",", 
   RowBox[{"{", 
    RowBox[{"0.0170073`", ",", "1.1489376`", ",", 
     RowBox[{"-", "8.9326119`"}]}], "}"}], ",", 
   RowBox[{"{", 
    RowBox[{"0.024566099999999997`", ",", 
     RowBox[{"-", "2.5454258999999997`"}], ",", 
     RowBox[{"-", "10.6446801`"}]}], "}"}], ",", 
   RowBox[{"{", 
    RowBox[{"0.018897`", ",", 
     RowBox[{"-", "4.850859900000001`"}], ",", 
     RowBox[{"-", "6.5497002`"}]}], "}"}], ",", 
   RowBox[{"{", 
    RowBox[{"0.0075588`", ",", "4.5995298`", ",", 
     RowBox[{"-", "6.7292217`"}]}], "}"}], ",", 
   RowBox[{"{", 
    RowBox[{"0.018897`", ",", "2.1429197999999996`", ",", 
     RowBox[{"-", "10.733495999999999`"}]}], "}"}]}], "}"}]], "Output",
 CellChangeTimes->{3.5684566179337163`*^9, 3.568456811795257*^9, 
  3.5684590150160923`*^9, 3.5684657047565107`*^9}]
}, Open  ]],

Cell[CellGroupData[{

Cell[BoxData[
 RowBox[{"\[IndentingNewLine]", 
  RowBox[{"n", "=", 
   RowBox[{"Length", "[", "u", "]"}]}]}]], "Input",
 CellChangeTimes->{{3.568277663590458*^9, 3.568277712652544*^9}, 
   3.5682785838808746`*^9}],

Cell[BoxData["65"], "Output",
 CellChangeTimes->{3.5684566179493165`*^9, 3.568456811810857*^9, 
  3.5684590150316925`*^9, 3.568465704772111*^9}]
}, Open  ]],

Cell[BoxData[
 RowBox[{
  RowBox[{"u1", "=", 
   RowBox[{"{", 
    RowBox[{
    "0.2555", ",", "0.2555", ",", "0.2555", ",", "0.2555", ",", "0.2555", ",",
      "0.2555", ",", "0.2555", ",", "0.2555", ",", "0.2555", ",", "0.2555", 
     ",", "0.2555", ",", "0.2555", ",", "0.2555", ",", "0.2555", ",", 
     "0.2555", ",", "0.2555", ",", "0.1", ",", "0.1", ",", "0.1", ",", "0.1", 
     ",", "0.2555", ",", "0.2555", ",", "0.2555", ",", "0.2555", ",", 
     "0.2555", ",", "0.1", ",", "0.1", ",", "0.1", ",", "0.1", ",", "0.2555", 
     ",", "0.2555", ",", "0.2555", ",", "0.2555", ",", "0.2555", ",", "0.1", 
     ",", "0.1", ",", "0.1", ",", "0.1", ",", "0.2555", ",", "0.2555", ",", 
     "0.2555", ",", "0.2555", ",", "0.2555", ",", "0.1", ",", "0.1", ",", 
     "0.1", ",", "0.1", ",", "0.2555", ",", "0.2555", ",", "0.2555", ",", 
     "0.2555", ",", "0.2555", ",", "0.1", ",", "0.1", ",", "0.1", ",", "0.1", 
     ",", "0.2555", ",", "0.2555", ",", "0.2555", ",", "0.2555", ",", 
     "0.2555", ",", "0.1", ",", "0.1", ",", "0.1", ",", "0.1"}], "}"}]}], 
  ";"}]], "Input",
 CellChangeTimes->{{3.5679480369450207`*^9, 3.567948069112277*^9}, {
   3.5679486805553513`*^9, 3.5679487948723516`*^9}, 3.567950206581231*^9, {
   3.5681216077716007`*^9, 3.5681216839309344`*^9}, {3.568266380090639*^9, 
   3.5682664108850937`*^9}, {3.568266481350417*^9, 3.56826649971165*^9}, 
   3.5682795170433135`*^9, {3.5682795636873956`*^9, 3.5682797843809834`*^9}, {
   3.568279837187076*^9, 3.5682798459854913`*^9}, {3.568279877201146*^9, 
   3.568279880711152*^9}, {3.5682799570264864`*^9, 3.5682799599124913`*^9}, {
   3.5682849151924915`*^9, 3.568284959231369*^9}, {3.5682849938634295`*^9, 
   3.568284994877432*^9}, {3.5682876470692897`*^9, 3.5682876697673297`*^9}, {
   3.568445224860195*^9, 3.5684453691136484`*^9}, 3.568445498515876*^9, {
   3.5684545984789696`*^9, 3.568454614812198*^9}}],

Cell[BoxData[
 RowBox[{
  RowBox[{"Plot1", "=", 
   RowBox[{"Table", "[", 
    RowBox[{
     RowBox[{"Graphics3D", "[", 
      RowBox[{"{", 
       RowBox[{"Sphere", "[", 
        RowBox[{
         RowBox[{"{", 
          RowBox[{
           RowBox[{"t", "[", 
            RowBox[{"[", 
             RowBox[{"i", ",", "1"}], "]"}], "]"}], ",", 
           RowBox[{"t", "[", 
            RowBox[{"[", 
             RowBox[{"i", ",", "2"}], "]"}], "]"}], ",", 
           RowBox[{"t", "[", 
            RowBox[{"[", 
             RowBox[{"i", ",", "3"}], "]"}], "]"}]}], "}"}], ",", 
         RowBox[{"u1", "[", 
          RowBox[{"[", "i", "]"}], "]"}]}], "]"}], "}"}], "]"}], ",", 
     RowBox[{"{", 
      RowBox[{"i", ",", "1", ",", "n"}], "}"}]}], "]"}]}], ";"}]], "Input",
 CellChangeTimes->{{3.5679440895764875`*^9, 3.5679441000441055`*^9}, {
   3.5679441319773617`*^9, 3.5679441523041973`*^9}, {3.567944240210352*^9, 
   3.5679442813476243`*^9}, {3.567944323966899*^9, 3.567944345931738*^9}, {
   3.567944397567828*^9, 3.567944456941533*^9}, {3.567944491557994*^9, 
   3.5679445468444905`*^9}, {3.5679446505690727`*^9, 3.567944683875131*^9}, {
   3.567944736244423*^9, 3.5679448177233667`*^9}, {3.567945549707852*^9, 
   3.5679455499730525`*^9}, {3.5679456039959474`*^9, 3.567945606195551*^9}, {
   3.567945704460124*^9, 3.5679457164877453`*^9}, {3.5679457857362666`*^9, 
   3.5679458050023003`*^9}, {3.567946353670864*^9, 3.5679464127169676`*^9}, {
   3.5679466013368993`*^9, 3.5679466311173515`*^9}, {3.5679467590999765`*^9, 
   3.567946915739851*^9}, {3.5679469466123056`*^9, 3.567946946815106*^9}, {
   3.5679471385082426`*^9, 3.5679471497870626`*^9}, {3.5679483907224417`*^9, 
   3.5679484036080647`*^9}, {3.567948441937332*^9, 3.5679484421869326`*^9}, {
   3.567948496740228*^9, 3.56794849772303*^9}, {3.567948847912445*^9, 
   3.5679488949933276`*^9}, {3.568011728877214*^9, 3.5680117308213253`*^9}, {
   3.568011766325356*^9, 3.568011773436763*^9}, {3.5681173314452896`*^9, 
   3.5681173370612993`*^9}, {3.568117919800323*^9, 3.5681179678952074`*^9}, {
   3.56811809459863*^9, 3.568118105409449*^9}, {3.5681181818963833`*^9, 
   3.5681182389144835`*^9}, {3.568118274888147*^9, 3.5681182883977704`*^9}, {
   3.568118518513775*^9, 3.56811852739019*^9}, {3.5681188250543127`*^9, 
   3.568118862634779*^9}, {3.568118972396572*^9, 3.5681189862493963`*^9}, {
   3.568119020694257*^9, 3.568119047136303*^9}, {3.5681190903015785`*^9, 
   3.568119136930061*^9}, {3.5681191671005135`*^9, 3.568119202808976*^9}, {
   3.5681194788046613`*^9, 3.568119487603077*^9}, {3.5681195353235607`*^9, 
   3.5681195410331707`*^9}, 3.56811959201406*^9, {3.5681196426985493`*^9, 
   3.568119659702579*^9}, {3.568119726813897*^9, 3.56811974027672*^9}, {
   3.5682659184078283`*^9, 3.5682659267694435`*^9}, {3.568265972477524*^9, 
   3.568266002725977*^9}, 3.568277802649102*^9, {3.5684463494649706`*^9, 
   3.568446352584976*^9}}],

Cell[BoxData[
 RowBox[{
  RowBox[{"Plot2", "=", 
   RowBox[{"Table", "[", 
    RowBox[{
     RowBox[{"Graphics3D", "[", 
      RowBox[{"Text", "[", 
       RowBox[{"i", ",", 
        RowBox[{"{", 
         RowBox[{
          RowBox[{
           RowBox[{"t", "[", 
            RowBox[{"[", 
             RowBox[{"i", ",", "1"}], "]"}], "]"}], "-", "0.5"}], ",", 
          RowBox[{"t", "[", 
           RowBox[{"[", 
            RowBox[{"i", ",", "2"}], "]"}], "]"}], ",", 
          RowBox[{"t", "[", 
           RowBox[{"[", 
            RowBox[{"i", ",", "3"}], "]"}], "]"}]}], "}"}], " ", ",", 
        RowBox[{"{", 
         RowBox[{"1", ",", "0"}], "}"}]}], "]"}], "]"}], ",", 
     RowBox[{"{", 
      RowBox[{"i", ",", "1", ",", "n"}], "}"}]}], "]"}]}], ";"}]], "Input",
 CellChangeTimes->{{3.5679440895764875`*^9, 3.5679441000441055`*^9}, {
   3.5679441319773617`*^9, 3.5679441523041973`*^9}, {3.567944240210352*^9, 
   3.5679442813476243`*^9}, {3.567944323966899*^9, 3.567944345931738*^9}, {
   3.567944397567828*^9, 3.567944456941533*^9}, {3.567944491557994*^9, 
   3.5679445468444905`*^9}, {3.5679446505690727`*^9, 3.567944683875131*^9}, {
   3.567944736244423*^9, 3.5679448177233667`*^9}, {3.567945549707852*^9, 
   3.5679455499730525`*^9}, {3.5679456039959474`*^9, 3.567945606195551*^9}, {
   3.567945704460124*^9, 3.5679457164877453`*^9}, {3.5679457857362666`*^9, 
   3.5679458050023003`*^9}, {3.567946353670864*^9, 3.5679464127169676`*^9}, {
   3.5679466013368993`*^9, 3.5679466311173515`*^9}, {3.5679467590999765`*^9, 
   3.567946915739851*^9}, {3.5679469466123056`*^9, 3.567946946815106*^9}, {
   3.5679471385082426`*^9, 3.5679471497870626`*^9}, {3.5679483907224417`*^9, 
   3.5679484036080647`*^9}, {3.567948441937332*^9, 3.5679484421869326`*^9}, {
   3.567948496740228*^9, 3.56794849772303*^9}, {3.567948847912445*^9, 
   3.5679488949933276`*^9}, {3.568011728877214*^9, 3.5680117308213253`*^9}, {
   3.568011766325356*^9, 3.568011773436763*^9}, {3.5681173314452896`*^9, 
   3.5681173370612993`*^9}, {3.568117919800323*^9, 3.5681179678952074`*^9}, {
   3.56811809459863*^9, 3.568118105409449*^9}, {3.5681181818963833`*^9, 
   3.5681182389144835`*^9}, {3.568118274888147*^9, 3.5681182883977704`*^9}, {
   3.568118518513775*^9, 3.56811852739019*^9}, {3.5681188250543127`*^9, 
   3.568118862634779*^9}, {3.568118972396572*^9, 3.5681189862493963`*^9}, {
   3.568119020694257*^9, 3.568119047136303*^9}, {3.5681190903015785`*^9, 
   3.568119136930061*^9}, {3.5681191671005135`*^9, 3.568119202808976*^9}, {
   3.5681194788046613`*^9, 3.568119487603077*^9}, {3.5681195353235607`*^9, 
   3.5681195410331707`*^9}, 3.56811959201406*^9, {3.5681196426985493`*^9, 
   3.568119659702579*^9}, {3.568119726813897*^9, 3.56811974027672*^9}, {
   3.5681199008322024`*^9, 3.568119920691037*^9}, {3.5681199536070952`*^9, 
   3.568119958521104*^9}, {3.568120000641178*^9, 3.568120067206495*^9}, {
   3.5681211528280015`*^9, 3.5681211643408213`*^9}, 3.5681213201694956`*^9, {
   3.568121503313817*^9, 3.568121508961027*^9}, {3.568266015439999*^9, 
   3.5682660461096525`*^9}, 3.568277806081108*^9, {3.5684373518756995`*^9, 
   3.5684373529209013`*^9}, {3.568437446021865*^9, 3.568437446755066*^9}, {
   3.568446360915391*^9, 3.5684463647685976`*^9}}],

Cell[CellGroupData[{

Cell[BoxData[
 RowBox[{"Show", "[", 
  RowBox[{"Plot1", ",", "Plot2", ",", 
   RowBox[{"{", 
    RowBox[{"AspectRatio", "\[Rule]", "Automatic"}], "}"}]}], "]"}]], "Input",
 CellChangeTimes->{{3.5679440895764875`*^9, 3.5679441000441055`*^9}, {
   3.5679441319773617`*^9, 3.5679441523041973`*^9}, {3.567944240210352*^9, 
   3.5679442813476243`*^9}, {3.567944323966899*^9, 3.567944345931738*^9}, {
   3.567944397567828*^9, 3.567944456941533*^9}, {3.567944491557994*^9, 
   3.5679445468444905`*^9}, {3.5679446505690727`*^9, 3.567944683875131*^9}, {
   3.567944736244423*^9, 3.5679448177233667`*^9}, {3.567945549707852*^9, 
   3.5679455499730525`*^9}, {3.5679456039959474`*^9, 3.567945606195551*^9}, {
   3.567945704460124*^9, 3.5679457164877453`*^9}, {3.5679457857362666`*^9, 
   3.5679458050023003`*^9}, {3.567946353670864*^9, 3.5679464127169676`*^9}, {
   3.5679466013368993`*^9, 3.5679466311173515`*^9}, {3.5679467590999765`*^9, 
   3.567946915739851*^9}, {3.5679469466123056`*^9, 3.567946946815106*^9}, {
   3.5679471385082426`*^9, 3.5679471497870626`*^9}, {3.5679483907224417`*^9, 
   3.5679484036080647`*^9}, {3.567948441937332*^9, 3.5679484421869326`*^9}, {
   3.567948496740228*^9, 3.56794849772303*^9}, {3.567948847912445*^9, 
   3.5679488949933276`*^9}, {3.568011728877214*^9, 3.5680117308213253`*^9}, {
   3.568011766325356*^9, 3.568011773436763*^9}, {3.5681173314452896`*^9, 
   3.5681173370612993`*^9}, {3.568117919800323*^9, 3.5681179678952074`*^9}, {
   3.56811809459863*^9, 3.568118105409449*^9}, {3.5681181818963833`*^9, 
   3.5681182389144835`*^9}, {3.568118274888147*^9, 3.5681182883977704`*^9}, {
   3.568118518513775*^9, 3.56811852739019*^9}, {3.5681188250543127`*^9, 
   3.568118862634779*^9}, {3.568118972396572*^9, 3.5681189862493963`*^9}, {
   3.568119020694257*^9, 3.568119047136303*^9}, {3.5681190903015785`*^9, 
   3.568119136930061*^9}, {3.5681191671005135`*^9, 3.568119202808976*^9}, {
   3.5681194788046613`*^9, 3.568119487603077*^9}, {3.5681195353235607`*^9, 
   3.5681195410331707`*^9}, 3.56811959201406*^9, {3.5681196426985493`*^9, 
   3.568119659702579*^9}, {3.568119726813897*^9, 3.56811974027672*^9}, {
   3.568120119762987*^9, 3.5681201279374013`*^9}, {3.5681212588145876`*^9, 
   3.5681212809978266`*^9}, 3.568121331261115*^9, {3.5682660696812944`*^9, 
   3.5682660793689113`*^9}, {3.5682661730782757`*^9, 3.5682661751998796`*^9}, 
   3.568266213092346*^9, {3.568266308392914*^9, 3.5682663102025166`*^9}, {
   3.568266350887388*^9, 3.5682663517297897`*^9}, 3.568266419574309*^9, {
   3.568434173286516*^9, 3.5684341800101285`*^9}}],

Cell[BoxData[
 Graphics3DBox[{SphereBox[{0., 0., -0.0018897}, 0.2555], 
   SphereBox[{0.0056691, -2.4471615, -1.6648257}, 0.2555], 
   SphereBox[{0.0018897, 2.3848013999999997`, -1.7555313000000001`}, 0.2555], 
   SphereBox[{2.4150366, 0.0359043, 1.7120682}, 0.2555], 
   SphereBox[{-2.418816, 0.0302352, 1.7026197}, 0.2555], 
   SphereBox[{3.7529442, 2.4358232999999996`, 0.9108354}, 0.2555], 
   SphereBox[{3.7586133, -2.3904704999999997`, 1.0034307}, 0.2555], 
   SphereBox[{-2.4055880999999997`, -3.7775103, -0.8862692999999999}, 0.2555],
    SphereBox[{0.0075588, 1.2623196, -4.3897731}, 0.2555], 
   SphereBox[{-3.760503, 2.4263748, 0.8976074999999999}, 0.2555], 
   SphereBox[{-1.3530251999999998`, 0.08125709999999998, 4.3576482}, 0.2555], 
   SphereBox[{-5.6426442, 6.935199, -1.0714598999999998`}, 0.2555], 
   SphereBox[{-6.9616548, 5.6520927, 0.8125709999999999}, 0.2555], 
   SphereBox[{-6.0243636, 3.3750042, 1.814112}, 0.2555], 
   SphereBox[{-2.4150366, 3.7359369, -1.0279968}, 0.2555], 
   SphereBox[{-3.3466587, 5.9790108, -2.0106408}, 0.2555], 
   SphereBox[{-6.389075699999999, 8.6945097, -1.8330089999999999`}, 0.1], 
   SphereBox[{-8.7360831, 6.411752099999999, 1.5230982}, 0.1], 
   SphereBox[{-7.0655883, 2.3885807999999997`, 3.2842986}, 0.1], 
   SphereBox[{-2.3318898, 6.990000299999999, -3.4808274}, 0.1], 
   SphereBox[{5.6313059999999995`, 6.948426899999999, -1.0506732}, 0.2555], 
   SphereBox[{3.3409896, 5.9865696, -1.9974128999999998`}, 0.2555], 
   SphereBox[{2.4093674999999997`, 3.741606, -1.0185483}, 0.2555], 
   SphereBox[{6.009246, 3.3901217999999997`, 1.8386780999999999`}, 0.2555], 
   SphereBox[{6.9465372, 5.6691, 0.8390268}, 0.2555], 
   SphereBox[{6.3758478, 8.7096273, -1.8084429}, 0.1], 
   SphereBox[{2.3262207, 6.997559099999999, -3.4713789}, 0.1], 
   SphereBox[{7.0466913, 2.4055880999999997`, 3.3126440999999995`}, 0.1], 
   SphereBox[{8.717186100000001, 6.4325388, 1.5571127999999999`}, 0.1], 
   SphereBox[{5.646423599999999, -6.9711033, -0.7861151999999999}, 0.2555], 
   SphereBox[{3.3542175, -6.0508194, -1.7687592}, 0.2555], 
   SphereBox[{2.418816, -3.7718412, -0.8768208000000001}, 0.2555], 
   SphereBox[{6.0168048, -3.3050853, 1.965288}, 0.2555], 
   SphereBox[{6.9578754, -5.6180781, 1.0544526}, 0.2555], 
   SphereBox[{6.3928551, -8.7587595, -1.4758557}, 0.1], 
   SphereBox[{2.3413383000000003`, -7.1184999, -3.2030415}, 0.1], 
   SphereBox[{7.0523604, -2.2619709, 3.3995702999999997`}, 0.1], 
   SphereBox[{8.7285243, -6.349392, 1.7989943999999998`}, 0.1], 
   SphereBox[{-6.948426899999999, -5.6331957, 1.0261071}, 0.2555], 
   SphereBox[{-6.0149151, -3.3183132, 1.9426116}, 0.2555], 
   SphereBox[{-3.7548339, -2.3980292999999997`, 0.9883131}, 0.2555], 
   SphereBox[{-3.3334308, -6.0564884999999995`, -1.7819870999999998`}, 
    0.2555], SphereBox[{-5.6275266, -6.982441499999999, -0.8087915999999999}, 
    0.2555], SphereBox[{-8.7228552, -6.368289, 1.7649798}, 0.1], 
   SphereBox[{-7.0580295, -2.2789782, 3.3750042}, 0.1], 
   SphereBox[{-2.3148825, -7.1222793, -3.2143797}, 0.1], 
   SphereBox[{-6.370178699999999, -8.770097699999999, -1.5042012}, 0.1], 
   SphereBox[{1.3001135999999998`, 0.17007299999999997`, 8.9061561}, 0.2555], 
   SphereBox[{2.6606975999999998`, 0.1284996, 6.6233984999999995`}, 0.2555], 
   SphereBox[{1.3379075999999999`, 0.08503649999999999, 4.3633173}, 0.2555], 
   SphereBox[{-2.6852637, 0.1228305, 6.61395}, 0.2555], 
   SphereBox[{-1.3322384999999999`, 0.16629359999999999`, 8.9023767}, 0.2555],
    SphereBox[{2.324331, 0.2059773, 10.6900329}, 0.1], 
   SphereBox[{4.7148015, 0.132279, 6.6441852}, 0.1], 
   SphereBox[{-4.7393676, 0.11905109999999999`, 6.6271779}, 0.1], 
   SphereBox[{-2.3640147, 0.1984185, 10.6805844}, 0.1], 
   SphereBox[{0.020786699999999998`, -1.4853042, -8.883479699999999}, 0.2555],
    SphereBox[{0.0170073, -2.796756, -6.5704869}, 0.2555], 
   SphereBox[{0.0113382, -1.4267235, -4.3387512}, 0.2555], 
   SphereBox[{0.0094485, 2.5473156, -6.6725307}, 0.2555], 
   SphereBox[{0.0170073, 1.1489376, -8.9326119}, 0.2555], 
   SphereBox[{0.024566099999999997`, -2.5454258999999997`, -10.6446801}, 0.1],
    SphereBox[{0.018897, -4.850859900000001, -6.5497002}, 0.1], 
   SphereBox[{0.0075588, 4.5995298, -6.7292217}, 0.1], 
   SphereBox[{0.018897, 2.1429197999999996`, -10.733495999999999`}, 0.1], 
   Text3DBox["1", {-0.5, 0., -0.0018897}, {1, 0}], 
   Text3DBox["2", {-0.4943309, -2.4471615, -1.6648257}, {1, 0}], 
   Text3DBox["3", {-0.4981103, 2.3848013999999997`, -1.7555313000000001`}, {1,
     0}], Text3DBox["4", {1.9150366, 0.0359043, 1.7120682}, {1, 0}], 
   Text3DBox["5", {-2.918816, 0.0302352, 1.7026197}, {1, 0}], 
   Text3DBox["6", {3.2529442, 2.4358232999999996`, 0.9108354}, {1, 0}], 
   Text3DBox["7", {3.2586133, -2.3904704999999997`, 1.0034307}, {1, 0}], 
   Text3DBox["8", {-2.9055880999999997`, -3.7775103, -0.8862692999999999}, {1,
     0}], Text3DBox["9", {-0.4924412, 1.2623196, -4.3897731}, {1, 0}], 
   Text3DBox["10", {-4.260503, 2.4263748, 0.8976074999999999}, {1, 0}], 
   Text3DBox["11", {-1.8530251999999998`, 0.08125709999999998, 4.3576482}, {1,
     0}], Text3DBox["12", {-6.1426442, 6.935199, -1.0714598999999998`}, {1, 
    0}], Text3DBox["13", {-7.4616548, 5.6520927, 0.8125709999999999}, {1, 0}],
    Text3DBox["14", {-6.5243636, 3.3750042, 1.814112}, {1, 0}], 
   Text3DBox["15", {-2.9150366, 3.7359369, -1.0279968}, {1, 0}], 
   Text3DBox["16", {-3.8466587, 5.9790108, -2.0106408}, {1, 0}], 
   Text3DBox["17", {-6.889075699999999, 8.6945097, -1.8330089999999999`}, {1, 
    0}], Text3DBox["18", {-9.2360831, 6.411752099999999, 1.5230982}, {1, 0}], 
   Text3DBox["19", {-7.5655883, 2.3885807999999997`, 3.2842986}, {1, 0}], 
   Text3DBox["20", {-2.8318898, 6.990000299999999, -3.4808274}, {1, 0}], 
   Text3DBox["21", {5.1313059999999995`, 6.948426899999999, -1.0506732}, {1, 
    0}], Text3DBox["22", {2.8409896, 5.9865696, -1.9974128999999998`}, {1, 
    0}], Text3DBox["23", {1.9093674999999997`, 3.741606, -1.0185483}, {1, 0}],
    Text3DBox["24", {5.509246, 3.3901217999999997`, 1.8386780999999999`}, {1, 
    0}], Text3DBox["25", {6.4465372, 5.6691, 0.8390268}, {1, 0}], 
   Text3DBox["26", {5.8758478, 8.7096273, -1.8084429}, {1, 0}], 
   Text3DBox["27", {1.8262207, 6.997559099999999, -3.4713789}, {1, 0}], 
   Text3DBox["28", {6.5466913, 2.4055880999999997`, 3.3126440999999995`}, {1, 
    0}], Text3DBox["29", {8.217186100000001, 6.4325388, 
    1.5571127999999999`}, {1, 0}], 
   Text3DBox["30", {5.146423599999999, -6.9711033, -0.7861151999999999}, {1, 
    0}], Text3DBox["31", {2.8542175, -6.0508194, -1.7687592}, {1, 0}], 
   Text3DBox["32", {1.918816, -3.7718412, -0.8768208000000001}, {1, 0}], 
   Text3DBox["33", {5.5168048, -3.3050853, 1.965288}, {1, 0}], 
   Text3DBox["34", {6.4578754, -5.6180781, 1.0544526}, {1, 0}], 
   Text3DBox["35", {5.8928551, -8.7587595, -1.4758557}, {1, 0}], 
   Text3DBox["36", {1.8413383000000003`, -7.1184999, -3.2030415}, {1, 0}], 
   Text3DBox["37", {6.5523604, -2.2619709, 3.3995702999999997`}, {1, 0}], 
   Text3DBox["38", {8.2285243, -6.349392, 1.7989943999999998`}, {1, 0}], 
   Text3DBox["39", {-7.448426899999999, -5.6331957, 1.0261071}, {1, 0}], 
   Text3DBox["40", {-6.5149151, -3.3183132, 1.9426116}, {1, 0}], 
   Text3DBox["41", {-4.2548338999999995`, -2.3980292999999997`, 0.9883131}, {
    1, 0}], Text3DBox[
    "42", {-3.8334308, -6.0564884999999995`, -1.7819870999999998`}, {1, 0}], 
   Text3DBox["43", {-6.1275266, -6.982441499999999, -0.8087915999999999}, {1, 
    0}], Text3DBox["44", {-9.2228552, -6.368289, 1.7649798}, {1, 0}], 
   Text3DBox["45", {-7.5580295, -2.2789782, 3.3750042}, {1, 0}], 
   Text3DBox["46", {-2.8148825, -7.1222793, -3.2143797}, {1, 0}], 
   Text3DBox["47", {-6.870178699999999, -8.770097699999999, -1.5042012}, {1, 
    0}], Text3DBox["48", {0.8001135999999998, 0.17007299999999997`, 
    8.9061561}, {1, 0}], 
   Text3DBox["49", {2.1606975999999998`, 0.1284996, 6.6233984999999995`}, {1, 
    0}], Text3DBox["50", {0.8379075999999999, 0.08503649999999999, 
    4.3633173}, {1, 0}], 
   Text3DBox["51", {-3.1852637, 0.1228305, 6.61395}, {1, 0}], 
   Text3DBox["52", {-1.8322384999999999`, 0.16629359999999999`, 8.9023767}, {
    1, 0}], Text3DBox["53", {1.824331, 0.2059773, 10.6900329}, {1, 0}], 
   Text3DBox["54", {4.2148015, 0.132279, 6.6441852}, {1, 0}], 
   Text3DBox["55", {-5.2393676, 0.11905109999999999`, 6.6271779}, {1, 0}], 
   Text3DBox["56", {-2.8640147, 0.1984185, 10.6805844}, {1, 0}], 
   Text3DBox["57", {-0.4792133, -1.4853042, -8.883479699999999}, {1, 0}], 
   Text3DBox["58", {-0.4829927, -2.796756, -6.5704869}, {1, 0}], 
   Text3DBox["59", {-0.4886618, -1.4267235, -4.3387512}, {1, 0}], 
   Text3DBox["60", {-0.4905515, 2.5473156, -6.6725307}, {1, 0}], 
   Text3DBox["61", {-0.4829927, 1.1489376, -8.9326119}, {1, 0}], 
   Text3DBox["62", {-0.4754339, -2.5454258999999997`, -10.6446801}, {1, 0}], 
   Text3DBox["63", {-0.481103, -4.850859900000001, -6.5497002}, {1, 0}], 
   Text3DBox["64", {-0.4924412, 4.5995298, -6.7292217}, {1, 0}], 
   Text3DBox["65", {-0.481103, 2.1429197999999996`, -10.733495999999999`}, {1,
     0}]},
  AspectRatio->Automatic,
  ImageSize->{400.00000105963386`, Automatic}]], "Output",
 CellChangeTimes->{3.5684566179961166`*^9, 3.5684568118576574`*^9, 
  3.5684590150784926`*^9, 3.5684657048189116`*^9}]
}, Open  ]],

Cell[BoxData[{
 RowBox[{
  RowBox[{"x", "=", 
   RowBox[{"Table", "[", 
    RowBox[{
     RowBox[{"t", "[", 
      RowBox[{"[", 
       RowBox[{"i", ",", "1"}], "]"}], "]"}], ",", 
     RowBox[{"{", 
      RowBox[{"i", ",", "1", ",", "n"}], "}"}]}], "]"}]}], 
  ";"}], "\[IndentingNewLine]", 
 RowBox[{
  RowBox[{"y", "=", 
   RowBox[{"Table", "[", 
    RowBox[{
     RowBox[{"t", "[", 
      RowBox[{"[", 
       RowBox[{"i", ",", "2"}], "]"}], "]"}], ",", 
     RowBox[{"{", 
      RowBox[{"i", ",", "1", ",", "n"}], "}"}]}], "]"}]}], 
  ";"}], "\[IndentingNewLine]", 
 RowBox[{
  RowBox[{"z", "=", 
   RowBox[{"Table", "[", 
    RowBox[{
     RowBox[{"t", "[", 
      RowBox[{"[", 
       RowBox[{"i", ",", "3"}], "]"}], "]"}], ",", 
     RowBox[{"{", 
      RowBox[{"i", ",", "1", ",", "n"}], "}"}]}], "]"}]}], ";"}]}], "Input",
 CellChangeTimes->{{3.5678630319943895`*^9, 3.5678630956269007`*^9}, {
  3.5678632280087337`*^9, 3.567863228336334*^9}, {3.5678632621727934`*^9, 
  3.5678633509213495`*^9}, {3.5678644293824434`*^9, 3.567864451908883*^9}, {
  3.567864923404111*^9, 3.56786494544695*^9}, {3.5678650143210707`*^9, 
  3.5678650845367947`*^9}, {3.567869231084096*^9, 3.567869278118179*^9}, {
  3.5682778102931156`*^9, 3.5682778156907253`*^9}}],

Cell[BoxData[
 RowBox[{
  StyleBox[
   RowBox[{"(*", " ", 
    RowBox[{"Distance", " ", "matrix", " ", "Bohr"}], " ", "*)"}], "Text"], 
  "\[IndentingNewLine]", 
  RowBox[{
   RowBox[{
    RowBox[{"Dij", "=", 
     RowBox[{"Table", "[", 
      RowBox[{
       RowBox[{"If", "[", 
        RowBox[{
         RowBox[{"i", "\[GreaterEqual]", "j"}], ",", 
         RowBox[{"If", "[", 
          RowBox[{
           RowBox[{
            RowBox[{"sq", "=", 
             RowBox[{"Sqrt", "[", 
              RowBox[{
               RowBox[{
                RowBox[{"(", 
                 RowBox[{
                  RowBox[{"x", "[", 
                   RowBox[{"[", "i", "]"}], "]"}], "-", 
                  RowBox[{"x", "[", 
                   RowBox[{"[", "j", "]"}], "]"}]}], ")"}], "^", "2"}], "+", 
               RowBox[{
                RowBox[{"(", 
                 RowBox[{
                  RowBox[{"y", "[", 
                   RowBox[{"[", "i", "]"}], "]"}], "-", 
                  RowBox[{"y", "[", 
                   RowBox[{"[", "j", "]"}], "]"}]}], ")"}], "^", "2"}], "+", 
               RowBox[{
                RowBox[{"(", 
                 RowBox[{
                  RowBox[{"z", "[", 
                   RowBox[{"[", "i", "]"}], "]"}], "-", 
                  RowBox[{"z", "[", 
                   RowBox[{"[", "j", "]"}], "]"}]}], ")"}], "^", "2"}]}], 
              "]"}]}], ";", " ", 
            RowBox[{"sq", "<", "3.0"}]}], ",", "sq", ",", "0"}], "]"}], ",", 
         "\"\< \>\""}], "]"}], ",", 
       RowBox[{"{", 
        RowBox[{"i", ",", "1", ",", "n"}], "}"}], ",", 
       RowBox[{"{", 
        RowBox[{"j", ",", "1", ",", "n"}], "}"}]}], "]"}]}], ";"}], 
   "\[IndentingNewLine]", 
   RowBox[{"(*", 
    RowBox[{"MatrixForm", "[", "Dij", "]"}], "*)"}]}]}]], "Input",
 CellChangeTimes->{{3.567863535157673*^9, 3.5678635412104836`*^9}, {
   3.5678638182825704`*^9, 3.567863827283786*^9}, {3.5679503910983553`*^9, 
   3.5679504266352177`*^9}, {3.5679504653700857`*^9, 3.5679505048069553`*^9}, 
   3.567950534915008*^9, {3.567951107623214*^9, 3.567951136046464*^9}, 
   3.567951302545556*^9, {3.5679562986474605`*^9, 3.567956305355472*^9}, {
   3.5679563590975666`*^9, 3.567956370688387*^9}, {3.567956414930065*^9, 
   3.567956430467692*^9}, {3.567956484740187*^9, 3.567956500667815*^9}, {
   3.5679565456270943`*^9, 3.5679565868267665`*^9}, {3.5679569267045636`*^9, 
   3.5679569448941956`*^9}, {3.567956976562251*^9, 3.567957000711094*^9}, {
   3.5679570348595533`*^9, 3.5679570632672033`*^9}, {3.5679573263928657`*^9, 
   3.5679573286548696`*^9}, {3.5679573611029263`*^9, 
   3.5679573637393312`*^9}, {3.5679592820903006`*^9, 3.567959317127962*^9}, {
   3.567959397655304*^9, 3.5679594004945087`*^9}, {3.5679594704762316`*^9, 
   3.5679594724574347`*^9}, {3.567959655898157*^9, 3.567959673073787*^9}, 
   3.5681143121223865`*^9, 3.568121866388855*^9, 3.568220668221574*^9, {
   3.568220718968463*^9, 3.568220723742071*^9}, {3.568220862051914*^9, 
   3.5682208641111183`*^9}, {3.568220906761593*^9, 3.5682209083527956`*^9}, {
   3.5682209451844606`*^9, 3.5682209651680956`*^9}, {3.568221147782016*^9, 
   3.5682211695908546`*^9}, {3.568221237279373*^9, 3.568221253612602*^9}, {
   3.568221305420293*^9, 3.568221306247094*^9}, {3.5682215161142635`*^9, 
   3.568221546206716*^9}, 3.56822158247678*^9, {3.568277819185131*^9, 
   3.5682778284359474`*^9}, {3.568286391407484*^9, 3.568286398053096*^9}, {
   3.5684355947354136`*^9, 3.5684355999146223`*^9}, {3.568435681081565*^9, 
   3.568435684560371*^9}, {3.5684465724289627`*^9, 3.5684465732869635`*^9}}],

Cell[BoxData[
 RowBox[{
  RowBox[{"u2", "=", 
   RowBox[{"{", 
    RowBox[{
    "0.2555", ",", "0.2555", ",", "0.2555", ",", "0.2555", ",", "0.2555", ",",
      "0.2555", ",", "0.2555", ",", "0.2555", ",", "0.2555", ",", "0.2555", 
     ",", "0.2555", ",", "0.2555", ",", "0.2555", ",", "0.2555", ",", 
     "0.2555", ",", "0.2555", ",", "0.56", ",", "0.56", ",", "0.56", ",", 
     "0.56", ",", "0.2555", ",", "0.2555", ",", "0.2555", ",", "0.2555", ",", 
     "0.2555", ",", "0.56", ",", "0.56", ",", "0.56", ",", "0.56", ",", 
     "0.2555", ",", "0.2555", ",", "0.2555", ",", "0.2555", ",", "0.2555", 
     ",", "0.56", ",", "0.56", ",", "0.56", ",", "0.56", ",", "0.2555", ",", 
     "0.2555", ",", "0.2555", ",", "0.2555", ",", "0.2555", ",", "0.56", ",", 
     "0.56", ",", "0.56", ",", "0.56", ",", "0.2555", ",", "0.2555", ",", 
     "0.2555", ",", "0.2555", ",", "0.2555", ",", "0.56", ",", "0.56", ",", 
     "0.56", ",", "0.56", ",", "0.2555", ",", "0.2555", ",", "0.2555", ",", 
     "0.2555", ",", "0.2555", ",", "0.56", ",", "0.56", ",", "0.56", ",", 
     "0.56"}], "}"}]}], ";"}]], "Input",
 CellChangeTimes->{{3.5679585418846006`*^9, 3.5679585738334565`*^9}, {
   3.567959075187137*^9, 3.5679590758579383`*^9}, {3.5681145227851562`*^9, 
   3.5681146476945763`*^9}, {3.568280038115429*^9, 3.5682801254131823`*^9}, {
   3.5682851622189255`*^9, 3.5682851860713673`*^9}, 3.5682852194866257`*^9, {
   3.5682876965057764`*^9, 3.5682876970205774`*^9}, {3.5684455403083487`*^9, 
   3.5684455585135813`*^9}, {3.5684455900724363`*^9, 3.5684457494735165`*^9}, 
   3.5684546467298546`*^9}],

Cell[BoxData[{
 RowBox[{
  RowBox[{
   RowBox[{"Fij", "=", 
    RowBox[{"Dij", "-", "u2"}]}], ";"}], "\[IndentingNewLine]", 
  RowBox[{"(*", 
   RowBox[{
    RowBox[{"MatrixForm", "[", "Fij", "]"}], ";"}], 
   "*)"}]}], "\[IndentingNewLine]", 
 RowBox[{
  RowBox[{"Gij", "=", 
   RowBox[{"Table", "[", 
    RowBox[{
     RowBox[{"If", "[", 
      RowBox[{
       RowBox[{"i", "\[GreaterEqual]", "j"}], ",", 
       RowBox[{"If", "[", 
        RowBox[{
         RowBox[{
          RowBox[{"Fij", "[", 
           RowBox[{"[", 
            RowBox[{"i", ",", "j"}], "]"}], "]"}], ">", "0"}], ",", 
         RowBox[{"Fij", "[", 
          RowBox[{"[", 
           RowBox[{"i", ",", "j"}], "]"}], "]"}], ",", "0"}], "]"}], ",", 
       "\"\< \>\""}], "]"}], ",", 
     RowBox[{"{", 
      RowBox[{"i", ",", "1", ",", "n"}], "}"}], ",", 
     RowBox[{"{", 
      RowBox[{"j", ",", "1", ",", "n"}], "}"}]}], "]"}]}], 
  ";"}], "\[IndentingNewLine]", 
 RowBox[{
  RowBox[{"(*", 
   RowBox[{
    RowBox[{"MatrixForm", "[", "Gij", "]"}], ";"}], "*)"}]}]}], "Input",
 CellChangeTimes->{{3.567958596890297*^9, 3.567958603270708*^9}, {
   3.5679587604565845`*^9, 3.5679587707682023`*^9}, {3.5679588272871017`*^9, 
   3.567958828254304*^9}, {3.567959580066424*^9, 3.5679595814704266`*^9}, {
   3.567959624994503*^9, 3.5679596300177116`*^9}, {3.5679597079086485`*^9, 
   3.567959902877791*^9}, {3.5679599961659546`*^9, 3.5679600446196404`*^9}, {
   3.5679609611992497`*^9, 3.567960974006872*^9}, 3.567961975154231*^9, {
   3.5679622637079377`*^9, 3.5679622945179915`*^9}, 3.5681142413606625`*^9, 
   3.568121878697276*^9, {3.5681219332193723`*^9, 3.56812197189184*^9}, {
   3.5682778370003624`*^9, 3.5682778397927675`*^9}}],

Cell[BoxData[{
 RowBox[{
  RowBox[{"Hij", "=", 
   RowBox[{"Transpose", "[", "Gij", "]"}]}], ";"}], "\[IndentingNewLine]", 
 RowBox[{
  RowBox[{"(*", 
   RowBox[{
    RowBox[{"MatrixForm", "[", "Hij", "]"}], ";"}], "*)"}]}]}], "Input",
 CellChangeTimes->{{3.5679601758938704`*^9, 3.5679601965327067`*^9}, {
   3.567960427147912*^9, 3.567960432217921*^9}, {3.5679605764089737`*^9, 
   3.5679605968294096`*^9}, {3.5679607389456596`*^9, 3.5679607643581038`*^9}, 
   3.5681142501278777`*^9, 3.5681218877140923`*^9}],

Cell[BoxData[{
 RowBox[{
  RowBox[{
   RowBox[{"Kij", "=", 
    RowBox[{"Hij", "-", "u2"}]}], ";"}], "\[IndentingNewLine]", 
  RowBox[{"(*", 
   RowBox[{
    RowBox[{"MatrixForm", "[", "Kij", "]"}], ";"}], 
   "*)"}]}], "\[IndentingNewLine]", 
 RowBox[{
  RowBox[{"Lij", "=", 
   RowBox[{"Table", "[", 
    RowBox[{
     RowBox[{"If", "[", 
      RowBox[{
       RowBox[{"i", "\[LessEqual]", "j"}], ",", 
       RowBox[{"If", "[", 
        RowBox[{
         RowBox[{
          RowBox[{"Kij", "[", 
           RowBox[{"[", 
            RowBox[{"i", ",", "j"}], "]"}], "]"}], ">", "0"}], ",", 
         RowBox[{"Kij", "[", 
          RowBox[{"[", 
           RowBox[{"i", ",", "j"}], "]"}], "]"}], ",", "0"}], "]"}], ",", 
       "\"\< \>\""}], "]"}], ",", 
     RowBox[{"{", 
      RowBox[{"i", ",", "1", ",", "n"}], "}"}], ",", 
     RowBox[{"{", 
      RowBox[{"j", ",", "1", ",", "n"}], "}"}]}], "]"}]}], 
  ";"}], "\[IndentingNewLine]", 
 RowBox[{
  RowBox[{"(*", 
   RowBox[{
    RowBox[{"MatrixForm", "[", "Lij", "]"}], ";"}], "*)"}]}]}], "Input",
 CellChangeTimes->{{3.5679602339571724`*^9, 3.567960257419614*^9}, {
   3.567960343406965*^9, 3.567960353500182*^9}, {3.5679604155258913`*^9, 
   3.567960421422702*^9}, {3.567960854323462*^9, 3.567960874197897*^9}, {
   3.5679611596939983`*^9, 3.567961170270817*^9}, {3.5679614000124207`*^9, 
   3.567961407016833*^9}, {3.5679615066074076`*^9, 3.567961509649413*^9}, 
   3.5679616124379935`*^9, 3.5679616766477065`*^9, {3.5679617424486217`*^9, 
   3.5679617456310277`*^9}, 3.567961801276325*^9, {3.5679618582788253`*^9, 
   3.5679618970760937`*^9}, {3.5679620279135237`*^9, 3.567962030113127*^9}, 
   3.567962107894864*^9, {3.567962149468937*^9, 3.5679621572533503`*^9}, 
   3.5679623389156694`*^9, {3.567962645815009*^9, 3.567962648888214*^9}, {
   3.567962691647889*^9, 3.567962693020692*^9}, {3.568048161486014*^9, 
   3.568048162827616*^9}, 3.5680482096900983`*^9, 3.5681142588638926`*^9, 
   3.568121899632513*^9, 3.5681219958534822`*^9, {3.568277844675576*^9, 
   3.5682778463603787`*^9}}],

Cell[BoxData[{
 RowBox[{
  RowBox[{
   RowBox[{"Lij", "=", 
    RowBox[{"Table", "[", 
     RowBox[{
      RowBox[{"If", "[", 
       RowBox[{
        RowBox[{"i", "\[LessEqual]", "j"}], ",", 
        RowBox[{"If", "[", 
         RowBox[{
          RowBox[{
           RowBox[{"Lij", "[", 
            RowBox[{"[", 
             RowBox[{"i", ",", "j"}], "]"}], "]"}], ">", "0"}], ",", 
          RowBox[{"If", "[", 
           RowBox[{
            RowBox[{
             RowBox[{"u", "[", 
              RowBox[{"[", "j", "]"}], "]"}], "\[NotEqual]", "\"\<H\>\""}], 
            ",", 
            RowBox[{"0.5", "*", 
             RowBox[{"Lij", "[", 
              RowBox[{"[", 
               RowBox[{"i", ",", "j"}], "]"}], "]"}]}], ",", 
            RowBox[{"Lij", "[", 
             RowBox[{"[", 
              RowBox[{"i", ",", "j"}], "]"}], "]"}]}], "]"}], ",", "0"}], 
         "]"}], ",", "\"\< \>\""}], "]"}], ",", 
      RowBox[{"{", 
       RowBox[{"i", ",", "1", ",", "n"}], "}"}], ",", 
      RowBox[{"{", 
       RowBox[{"j", ",", "1", ",", "n"}], "}"}]}], "]"}]}], ";"}], 
  " "}], "\[IndentingNewLine]", 
 RowBox[{
  RowBox[{"Qij", "=", "Lij"}], ";"}], "\[IndentingNewLine]", 
 RowBox[{
  RowBox[{"(*", 
   RowBox[{
    RowBox[{"MatrixForm", "[", "Lij", "]"}], ";"}], "*)"}]}]}], "Input",
 CellChangeTimes->{{3.5679627617388124`*^9, 3.567962837461345*^9}, {
   3.567963118121438*^9, 3.567963118698639*^9}, {3.5679631520670977`*^9, 
   3.5679631541731014`*^9}, {3.5679631898191643`*^9, 
   3.5679632154656096`*^9}, {3.5679635823158536`*^9, 3.56796361468591*^9}, {
   3.567963691516045*^9, 3.567963693590849*^9}, {3.567963737957327*^9, 
   3.567963807299449*^9}, {3.568048114904332*^9, 3.5680481161835346`*^9}, 
   3.5680482221389203`*^9, {3.5680485003498087`*^9, 3.5680485123618298`*^9}, 
   3.5681142659931054`*^9, 3.5681219084621286`*^9, {3.568277848107582*^9, 
   3.5682778496519847`*^9}, {3.568285867917365*^9, 3.568285868634966*^9}, {
   3.568435104598152*^9, 3.5684351068133564`*^9}, 3.568435374619027*^9, {
   3.5684458713097305`*^9, 3.568445889390162*^9}, {3.5684460750148883`*^9, 
   3.5684460856853065`*^9}}],

Cell[BoxData[{
 RowBox[{
  RowBox[{"Nij", "=", 
   RowBox[{"Table", "[", 
    RowBox[{
     RowBox[{"If", "[", 
      RowBox[{
       RowBox[{"i", "\[LessEqual]", "j"}], ",", 
       RowBox[{"If", "[", 
        RowBox[{
         RowBox[{
          RowBox[{"Lij", "[", 
           RowBox[{"[", 
            RowBox[{"i", ",", "j"}], "]"}], "]"}], ">", "0"}], ",", 
         RowBox[{"2.25", "/", 
          RowBox[{
           RowBox[{"Lij", "[", 
            RowBox[{"[", 
             RowBox[{"i", ",", "j"}], "]"}], "]"}], "^", "2"}]}], ",", "0"}], 
        "]"}], ",", "\"\< \>\""}], "]"}], ",", 
     RowBox[{"{", 
      RowBox[{"i", ",", "1", ",", "n"}], "}"}], ",", 
     RowBox[{"{", 
      RowBox[{"j", ",", "1", ",", "n"}], "}"}]}], "]"}]}], 
  ";"}], "\[IndentingNewLine]", 
 RowBox[{
  RowBox[{"(*", 
   RowBox[{
    RowBox[{"MatrixForm", "[", "Nij", "]"}], ";"}], "*)"}]}]}], "Input",
 CellChangeTimes->{{3.5679628944794455`*^9, 3.5679629710755796`*^9}, {
   3.567963889963994*^9, 3.567963933800071*^9}, {3.5680478391738477`*^9, 
   3.5680478414358516`*^9}, 3.568048231171336*^9, {3.5680482823550262`*^9, 
   3.56804828449223*^9}, 3.5680483349271183`*^9, 3.568114273059918*^9, 
   3.5681219175101447`*^9, {3.568277851305588*^9, 3.568277857295998*^9}}],

Cell[CellGroupData[{

Cell[BoxData[
 RowBox[{
  RowBox[{"(*", " ", 
   RowBox[{
    RowBox[{"Total", " ", "kinetic", " ", "energy", " ", "in", " ", "Eh"}], 
    ",", " ", 
    RowBox[{"=", " ", 
     RowBox[{"|", "Etot", "|"}]}]}], " ", "*)"}], "\[IndentingNewLine]", 
  RowBox[{"Tsigma", "=", 
   RowBox[{
    RowBox[{"Sum", "[", 
     RowBox[{
      RowBox[{"If", "[", 
       RowBox[{
        RowBox[{"i", "\[LessEqual]", "j"}], ",", 
        RowBox[{"Nij", "[", 
         RowBox[{"[", 
          RowBox[{"i", ",", "j"}], "]"}], "]"}], ",", "0"}], "]"}], ",", 
      RowBox[{"{", 
       RowBox[{"i", ",", "1", ",", "n"}], "}"}], ",", 
      RowBox[{"{", 
       RowBox[{"j", ",", "1", ",", "n"}], "}"}]}], "]"}], "+", 
    RowBox[{"Sum", "[", 
     RowBox[{
      RowBox[{"2.25", "/", 
       RowBox[{
        RowBox[{"u2", "[", 
         RowBox[{"[", "i", "]"}], "]"}], "^", "2"}]}], ",", 
      RowBox[{"{", 
       RowBox[{"i", ",", "1", ",", "n"}], "}"}]}], "]"}]}]}]}]], "Input",
 CellChangeTimes->{{3.567963992456174*^9, 3.567964003890994*^9}, {
  3.5679640974287586`*^9, 3.5679642038209453`*^9}, {3.56796433180357*^9, 
  3.567964353487608*^9}, {3.567964403641696*^9, 3.567964453046983*^9}, {
  3.5679646160984693`*^9, 3.5679646168316708`*^9}, {3.567964688747797*^9, 
  3.567964762255126*^9}, {3.568277859480002*^9, 3.568277863598409*^9}, {
  3.568286113290196*^9, 3.5682861137113967`*^9}, {3.5682870401502237`*^9, 
  3.5682870902263117`*^9}, {3.5682877146330085`*^9, 3.5682877152414093`*^9}, {
  3.5682877601382885`*^9, 3.5682877608402896`*^9}}],

Cell[BoxData["1717.0609255981456`"], "Output",
 CellChangeTimes->{3.5684566180741167`*^9, 3.5684568119356575`*^9, 
  3.5684590151564927`*^9, 3.568465704896911*^9}]
}, Open  ]],

Cell[BoxData[{
 RowBox[{
  RowBox[{"Mij", "=", 
   RowBox[{"Prepend", "[", 
    RowBox[{"Qij", ",", "u"}], "]"}]}], ";"}], "\[IndentingNewLine]", 
 RowBox[{
  RowBox[{"Oij", "=", 
   RowBox[{"Transpose", "[", "Mij", "]"}]}], ";"}], "\[IndentingNewLine]", 
 RowBox[{
  RowBox[{"Pij", "=", 
   RowBox[{"Prepend", "[", 
    RowBox[{"Oij", ",", 
     RowBox[{"Prepend", "[", 
      RowBox[{"u", ",", "\"\< \>\""}], "]"}]}], "]"}]}], ";"}]}], "Input",
 CellChangeTimes->{{3.568045828002715*^9, 3.56804588761042*^9}, 
   3.5680459828797874`*^9, {3.568046033938677*^9, 3.5680460518787084`*^9}, {
   3.568046989190755*^9, 3.5680470284404235`*^9}, {3.568047061028881*^9, 
   3.568047085567724*^9}, {3.5680471562982483`*^9, 3.568047169199471*^9}, {
   3.568047223393966*^9, 3.568047364059413*^9}, {3.568047417286707*^9, 
   3.5680474225127163`*^9}, {3.5680474583459787`*^9, 3.568047487861231*^9}, {
   3.5680475345521126`*^9, 3.5680475468605347`*^9}, {3.5680479168775845`*^9, 
   3.5680479311516094`*^9}, {3.568048066918648*^9, 3.568048067667449*^9}, {
   3.5680483816336*^9, 3.5680483930216208`*^9}, {3.568048424159275*^9, 
   3.568048450211321*^9}, {3.5680486326224413`*^9, 3.5680486370996494`*^9}, {
   3.5680487358166227`*^9, 3.5680487967191296`*^9}, 3.568048834377596*^9, 
   3.568048984418659*^9, {3.5680490255559316`*^9, 3.5680490790796256`*^9}, {
   3.5680491274553103`*^9, 3.5680491280949116`*^9}, {3.5680491782333994`*^9, 
   3.568049231944294*^9}, {3.568049361533722*^9, 3.5680493691933355`*^9}, {
   3.568049422171028*^9, 3.568049427490638*^9}, {3.568049476427923*^9, 
   3.5680495489368505`*^9}, {3.568049620634577*^9, 3.5680496274361887`*^9}, {
   3.5680496655314555`*^9, 3.568049693876705*^9}, 3.568049746573598*^9, {
   3.568049846460573*^9, 3.568049932759925*^9}, {3.568050009059659*^9, 
   3.5680500167348723`*^9}, {3.5680501572755194`*^9, 3.568050179911159*^9}, 
   3.5681087021497335`*^9, 3.5684466094478273`*^9}],

Cell[BoxData[
 RowBox[{"(*", 
  RowBox[{"MatrixForm", "[", "Pij", "]"}], "*)"}]], "Input",
 CellChangeTimes->{{3.568045828002715*^9, 3.56804588761042*^9}, 
   3.5680459828797874`*^9, {3.568046033938677*^9, 3.5680460518787084`*^9}, {
   3.568046989190755*^9, 3.5680470284404235`*^9}, {3.568047061028881*^9, 
   3.568047085567724*^9}, {3.5680471562982483`*^9, 3.568047169199471*^9}, {
   3.568047223393966*^9, 3.568047364059413*^9}, {3.568047417286707*^9, 
   3.5680474225127163`*^9}, {3.5680474583459787`*^9, 3.568047487861231*^9}, {
   3.5680475345521126`*^9, 3.5680475468605347`*^9}, {3.5680479168775845`*^9, 
   3.5680479311516094`*^9}, {3.568048066918648*^9, 3.568048067667449*^9}, {
   3.5680483816336*^9, 3.5680483930216208`*^9}, {3.568048424159275*^9, 
   3.568048450211321*^9}, {3.5680486326224413`*^9, 3.5680486370996494`*^9}, {
   3.5680487358166227`*^9, 3.5680487967191296`*^9}, 3.568048834377596*^9, 
   3.568048984418659*^9, {3.5680490255559316`*^9, 3.5680490790796256`*^9}, {
   3.5680491274553103`*^9, 3.5680491280949116`*^9}, {3.5680491782333994`*^9, 
   3.568049231944294*^9}, {3.568049361533722*^9, 3.5680493691933355`*^9}, {
   3.568049422171028*^9, 3.568049427490638*^9}, {3.568049476427923*^9, 
   3.5680495489368505`*^9}, {3.568049620634577*^9, 3.5680496274361887`*^9}, {
   3.5680496655314555`*^9, 3.568049693876705*^9}, 3.568049746573598*^9, {
   3.568049846460573*^9, 3.568049932759925*^9}, {3.568050009059659*^9, 
   3.5680500167348723`*^9}, {3.5680501572755194`*^9, 3.568050179911159*^9}, {
   3.5681087021497335`*^9, 3.5681087223049684`*^9}, 3.568114284401138*^9, 
   3.5681220092695055`*^9, {3.5684527601845407`*^9, 3.5684527891225915`*^9}, {
   3.568453532120696*^9, 3.568453538719508*^9}}],

Cell[BoxData[
 RowBox[{"(*", " ", 
  RowBox[{"sigma", " ", "bond", " ", "cloud", " ", "radii"}], " ", 
  "*)"}]], "Input",
 CellChangeTimes->{{3.568045828002715*^9, 3.56804588761042*^9}, 
   3.5680459828797874`*^9, {3.568046033938677*^9, 3.5680460518787084`*^9}, {
   3.568046989190755*^9, 3.5680470284404235`*^9}, {3.568047061028881*^9, 
   3.568047085567724*^9}, {3.5680471562982483`*^9, 3.568047169199471*^9}, {
   3.568047223393966*^9, 3.568047364059413*^9}, {3.568047417286707*^9, 
   3.5680474225127163`*^9}, {3.5680474583459787`*^9, 3.568047487861231*^9}, {
   3.5680475345521126`*^9, 3.5680475468605347`*^9}, {3.5680479168775845`*^9, 
   3.5680479311516094`*^9}, {3.568048066918648*^9, 3.568048067667449*^9}, {
   3.5680483816336*^9, 3.5680483930216208`*^9}, {3.568048424159275*^9, 
   3.568048450211321*^9}, {3.5680486326224413`*^9, 3.5680486370996494`*^9}, {
   3.5680487358166227`*^9, 3.5680487967191296`*^9}, 3.568048834377596*^9, 
   3.568048984418659*^9, {3.5680490255559316`*^9, 3.5680490790796256`*^9}, {
   3.5680491274553103`*^9, 3.5680491280949116`*^9}, {3.5680491782333994`*^9, 
   3.568049231944294*^9}, {3.568049361533722*^9, 3.5680493691933355`*^9}, {
   3.568049422171028*^9, 3.568049427490638*^9}, {3.568049476427923*^9, 
   3.5680495489368505`*^9}, {3.568049620634577*^9, 3.5680496274361887`*^9}, {
   3.5680496655314555`*^9, 3.568049693876705*^9}, 3.568049746573598*^9, {
   3.568049846460573*^9, 3.568049932759925*^9}, {3.568050009059659*^9, 
   3.5680500167348723`*^9}, {3.5680501572755194`*^9, 3.568050179911159*^9}, {
   3.5681087021497335`*^9, 3.5681087223049684`*^9}, {3.5681133837179556`*^9, 
   3.5681133888191648`*^9}}],

Cell[CellGroupData[{

Cell[BoxData[
 RowBox[{"For", "[", 
  RowBox[{
   RowBox[{"i", "=", "2"}], ",", 
   RowBox[{"i", "<", 
    RowBox[{"n", "+", "2"}]}], ",", 
   RowBox[{"i", "++"}], ",", "\[IndentingNewLine]", 
   RowBox[{"For", "[", 
    RowBox[{
     RowBox[{"j", "=", "2"}], ",", 
     RowBox[{"j", "\[LessEqual]", "i"}], ",", 
     RowBox[{"j", "++"}], ",", "\[IndentingNewLine]", 
     RowBox[{"If", "[", 
      RowBox[{
       RowBox[{"(", 
        RowBox[{
         RowBox[{"(", 
          RowBox[{
           RowBox[{"Pij", "[", 
            RowBox[{"[", 
             RowBox[{"i", ",", "j"}], "]"}], "]"}], ">", "0"}], " ", ")"}], "&&",
          " ", 
         RowBox[{"(", 
          RowBox[{
           RowBox[{
            RowBox[{"u", "[", 
             RowBox[{"[", 
              RowBox[{"i", "-", "1"}], "]"}], "]"}], "<>", " ", 
            RowBox[{"u", "[", 
             RowBox[{"[", 
              RowBox[{"j", "-", "1"}], "]"}], "]"}]}], "\[NotEqual]", 
           "\"\<HH\>\""}], ")"}]}], ")"}], ",", 
       RowBox[{"Print", "[", 
        RowBox[{
         RowBox[{"u", "[", 
          RowBox[{"[", 
           RowBox[{"i", "-", "1"}], "]"}], "]"}], ",", 
         RowBox[{"i", "-", "1"}], ",", "\"\< \>\"", ",", 
         RowBox[{"u", "[", 
          RowBox[{"[", 
           RowBox[{"j", "-", "1"}], "]"}], "]"}], ",", 
         RowBox[{"j", "-", "1"}], ",", "\"\<  \>\"", ",", 
         RowBox[{"Extract", "[", 
          RowBox[{"Pij", ",", 
           RowBox[{"{", 
            RowBox[{"i", ",", "j"}], "}"}]}], "]"}]}], "]"}]}], "]"}]}], 
    "]"}]}], "]"}]], "Input",
 CellChangeTimes->{{3.568108824079547*^9, 3.568109012824279*^9}, {
   3.568109558076436*^9, 3.568109588168889*^9}, {3.5681097523435774`*^9, 
   3.5681097637783976`*^9}, {3.5681100381828794`*^9, 
   3.5681101616726966`*^9}, {3.5681102015307665`*^9, 
   3.5681102288464146`*^9}, {3.568110263743676*^9, 3.568110267331682*^9}, {
   3.5681103163469687`*^9, 3.5681103268925867`*^9}, {3.5681106443375444`*^9, 
   3.5681106916368275`*^9}, 3.568110873002746*^9, {3.5681109388660617`*^9, 
   3.5681110268970165`*^9}, {3.568111092526332*^9, 3.568111123461186*^9}, {
   3.5681111884196997`*^9, 3.568111192756508*^9}, {3.5681112268113675`*^9, 
   3.568111366213212*^9}, {3.568111434946933*^9, 3.568111463354583*^9}, {
   3.568111544396725*^9, 3.568111547625931*^9}, {3.5681116856081734`*^9, 
   3.5681117131422215`*^9}, {3.568111864696488*^9, 3.5681119835998964`*^9}, 
   3.5681120218355637`*^9, {3.56811206543764*^9, 3.568112066389242*^9}, {
   3.568112332369709*^9, 3.5681123404505234`*^9}, {3.568112505935614*^9, 
   3.56811251481203*^9}, {3.5681125623609133`*^9, 3.568112569006525*^9}, {
   3.568112648067464*^9, 3.568112734210815*^9}, {3.568112764443668*^9, 
   3.5681127697320776`*^9}, {3.5681128018681335`*^9, 3.568112843426607*^9}, {
   3.568112884641879*^9, 3.5681128887602863`*^9}, {3.5681129663080225`*^9, 
   3.5681129699584293`*^9}, {3.568113133789917*^9, 3.568113227936082*^9}, {
   3.5681132946885996`*^9, 3.5681133044698167`*^9}, {3.568113502200164*^9, 
   3.568113507348173*^9}, 3.56811354556824*^9, {3.5681222886191964`*^9, 
   3.5681222896019983`*^9}, {3.568207424138049*^9, 3.5682074415164795`*^9}, 
   3.568277923134914*^9, {3.568453161760446*^9, 3.5684532394017825`*^9}, {
   3.5684533630319996`*^9, 3.568453367540407*^9}, {3.5684534484109497`*^9, 
   3.56845349439983*^9}, {3.5684537722831182`*^9, 3.5684537752783237`*^9}}],

Cell[CellGroupData[{

Cell[BoxData[
 InterpretationBox[
  RowBox[{"\<\"C\"\>", "\[InvisibleSpace]", "2", 
   "\[InvisibleSpace]", "\<\" \"\>", "\[InvisibleSpace]", "\<\"C\"\>", 
   "\[InvisibleSpace]", "1", "\[InvisibleSpace]", "\<\"  \"\>", 
   "\[InvisibleSpace]", "1.2238569283537577`"}],
  SequenceForm["C", 2, " ", "C", 1, "  ", 1.2238569283537577`],
  Editable->False]], "Print",
 CellChangeTimes->{3.568456618089717*^9, 3.568456811966857*^9, 
  3.568459015172093*^9, 3.568465704928111*^9}],

Cell[BoxData[
 InterpretationBox[
  RowBox[{"\<\"C\"\>", "\[InvisibleSpace]", "3", 
   "\[InvisibleSpace]", "\<\" \"\>", "\[InvisibleSpace]", "\<\"C\"\>", 
   "\[InvisibleSpace]", "1", "\[InvisibleSpace]", "\<\"  \"\>", 
   "\[InvisibleSpace]", "1.2245794024019967`"}],
  SequenceForm["C", 3, " ", "C", 1, "  ", 1.2245794024019967`],
  Editable->False]], "Print",
 CellChangeTimes->{3.568456618089717*^9, 3.568456811966857*^9, 
  3.568459015172093*^9, 3.568465704928111*^9}],

Cell[BoxData[
 InterpretationBox[
  RowBox[{"\<\"C\"\>", "\[InvisibleSpace]", "4", 
   "\[InvisibleSpace]", "\<\" \"\>", "\[InvisibleSpace]", "\<\"C\"\>", 
   "\[InvisibleSpace]", "1", "\[InvisibleSpace]", "\<\"  \"\>", 
   "\[InvisibleSpace]", "1.22532262451234`"}],
  SequenceForm["C", 4, " ", "C", 1, "  ", 1.22532262451234],
  Editable->False]], "Print",
 CellChangeTimes->{3.568456618089717*^9, 3.568456811966857*^9, 
  3.568459015172093*^9, 3.568465704928111*^9}],

Cell[BoxData[
 InterpretationBox[
  RowBox[{"\<\"C\"\>", "\[InvisibleSpace]", "5", 
   "\[InvisibleSpace]", "\<\" \"\>", "\[InvisibleSpace]", "\<\"C\"\>", 
   "\[InvisibleSpace]", "1", "\[InvisibleSpace]", "\<\"  \"\>", 
   "\[InvisibleSpace]", "1.224106138797028`"}],
  SequenceForm["C", 5, " ", "C", 1, "  ", 1.224106138797028],
  Editable->False]], "Print",
 CellChangeTimes->{3.568456618089717*^9, 3.568456811966857*^9, 
  3.568459015172093*^9, 3.568465704928111*^9}],

Cell[BoxData[
 InterpretationBox[
  RowBox[{"\<\"C\"\>", "\[InvisibleSpace]", "6", 
   "\[InvisibleSpace]", "\<\" \"\>", "\[InvisibleSpace]", "\<\"C\"\>", 
   "\[InvisibleSpace]", "4", "\[InvisibleSpace]", "\<\"  \"\>", 
   "\[InvisibleSpace]", "1.175546990187132`"}],
  SequenceForm["C", 6, " ", "C", 4, "  ", 1.175546990187132],
  Editable->False]], "Print",
 CellChangeTimes->{3.568456618089717*^9, 3.568456811966857*^9, 
  3.568459015172093*^9, 3.568465704928111*^9}],

Cell[BoxData[
 InterpretationBox[
  RowBox[{"\<\"C\"\>", "\[InvisibleSpace]", "7", 
   "\[InvisibleSpace]", "\<\" \"\>", "\[InvisibleSpace]", "\<\"C\"\>", 
   "\[InvisibleSpace]", "4", "\[InvisibleSpace]", "\<\"  \"\>", 
   "\[InvisibleSpace]", "1.175815839120089`"}],
  SequenceForm["C", 7, " ", "C", 4, "  ", 1.175815839120089],
  Editable->False]], "Print",
 CellChangeTimes->{3.568456618089717*^9, 3.568456811966857*^9, 
  3.568459015172093*^9, 3.568465704928111*^9}],

Cell[BoxData[
 InterpretationBox[
  RowBox[{"\<\"C\"\>", "\[InvisibleSpace]", "8", 
   "\[InvisibleSpace]", "\<\" \"\>", "\[InvisibleSpace]", "\<\"C\"\>", 
   "\[InvisibleSpace]", "2", "\[InvisibleSpace]", "\<\"  \"\>", 
   "\[InvisibleSpace]", "1.1754209693580422`"}],
  SequenceForm["C", 8, " ", "C", 2, "  ", 1.1754209693580422`],
  Editable->False]], "Print",
 CellChangeTimes->{3.568456618089717*^9, 3.568456811966857*^9, 
  3.568459015172093*^9, 3.568465704928111*^9}],

Cell[BoxData[
 InterpretationBox[
  RowBox[{"\<\"C\"\>", "\[InvisibleSpace]", "9", 
   "\[InvisibleSpace]", "\<\" \"\>", "\[InvisibleSpace]", "\<\"C\"\>", 
   "\[InvisibleSpace]", "3", "\[InvisibleSpace]", "\<\"  \"\>", 
   "\[InvisibleSpace]", "1.1762146530378608`"}],
  SequenceForm["C", 9, " ", "C", 3, "  ", 1.1762146530378608`],
  Editable->False]], "Print",
 CellChangeTimes->{3.568456618089717*^9, 3.568456811966857*^9, 
  3.568459015172093*^9, 3.5684657049437113`*^9}],

Cell[BoxData[
 InterpretationBox[
  RowBox[{"\<\"C\"\>", "\[InvisibleSpace]", "10", 
   "\[InvisibleSpace]", "\<\" \"\>", "\[InvisibleSpace]", "\<\"C\"\>", 
   "\[InvisibleSpace]", "5", "\[InvisibleSpace]", "\<\"  \"\>", 
   "\[InvisibleSpace]", "1.1753785440076667`"}],
  SequenceForm["C", 10, " ", "C", 5, "  ", 1.1753785440076667`],
  Editable->False]], "Print",
 CellChangeTimes->{3.568456618089717*^9, 3.568456811966857*^9, 
  3.568459015172093*^9, 3.5684657049437113`*^9}],

Cell[BoxData[
 InterpretationBox[
  RowBox[{"\<\"C\"\>", "\[InvisibleSpace]", "11", 
   "\[InvisibleSpace]", "\<\" \"\>", "\[InvisibleSpace]", "\<\"C\"\>", 
   "\[InvisibleSpace]", "5", "\[InvisibleSpace]", "\<\"  \"\>", 
   "\[InvisibleSpace]", "1.1752069580679771`"}],
  SequenceForm["C", 11, " ", "C", 5, "  ", 1.1752069580679771`],
  Editable->False]], "Print",
 CellChangeTimes->{3.568456618089717*^9, 3.568456811966857*^9, 
  3.568459015172093*^9, 3.5684657049437113`*^9}],

Cell[BoxData[
 InterpretationBox[
  RowBox[{"\<\"C\"\>", "\[InvisibleSpace]", "13", 
   "\[InvisibleSpace]", "\<\" \"\>", "\[InvisibleSpace]", "\<\"C\"\>", 
   "\[InvisibleSpace]", "12", "\[InvisibleSpace]", "\<\"  \"\>", 
   "\[InvisibleSpace]", "1.0612880592721496`"}],
  SequenceForm["C", 13, " ", "C", 12, "  ", 1.0612880592721496`],
  Editable->False]], "Print",
 CellChangeTimes->{3.568456618089717*^9, 3.568456811966857*^9, 
  3.568459015172093*^9, 3.5684657049437113`*^9}],

Cell[BoxData[
 InterpretationBox[
  RowBox[{"\<\"C\"\>", "\[InvisibleSpace]", "14", 
   "\[InvisibleSpace]", "\<\" \"\>", "\[InvisibleSpace]", "\<\"C\"\>", 
   "\[InvisibleSpace]", "10", "\[InvisibleSpace]", "\<\"  \"\>", 
   "\[InvisibleSpace]", "1.0545518170378767`"}],
  SequenceForm["C", 14, " ", "C", 10, "  ", 1.0545518170378767`],
  Editable->False]], "Print",
 CellChangeTimes->{3.568456618089717*^9, 3.568456811966857*^9, 
  3.568459015172093*^9, 3.5684657049437113`*^9}],

Cell[BoxData[
 InterpretationBox[
  RowBox[{"\<\"C\"\>", "\[InvisibleSpace]", "14", 
   "\[InvisibleSpace]", "\<\" \"\>", "\[InvisibleSpace]", "\<\"C\"\>", 
   "\[InvisibleSpace]", "13", "\[InvisibleSpace]", "\<\"  \"\>", 
   "\[InvisibleSpace]", "1.0736662052872366`"}],
  SequenceForm["C", 14, " ", "C", 13, "  ", 1.0736662052872366`],
  Editable->False]], "Print",
 CellChangeTimes->{3.568456618089717*^9, 3.568456811966857*^9, 
  3.568459015172093*^9, 3.5684657049437113`*^9}],

Cell[BoxData[
 InterpretationBox[
  RowBox[{"\<\"C\"\>", "\[InvisibleSpace]", "15", 
   "\[InvisibleSpace]", "\<\" \"\>", "\[InvisibleSpace]", "\<\"C\"\>", 
   "\[InvisibleSpace]", "3", "\[InvisibleSpace]", "\<\"  \"\>", 
   "\[InvisibleSpace]", "1.1759683307431386`"}],
  SequenceForm["C", 15, " ", "C", 3, "  ", 1.1759683307431386`],
  Editable->False]], "Print",
 CellChangeTimes->{3.568456618089717*^9, 3.568456811966857*^9, 
  3.568459015172093*^9, 3.5684657049437113`*^9}],

Cell[BoxData[
 InterpretationBox[
  RowBox[{"\<\"C\"\>", "\[InvisibleSpace]", "15", 
   "\[InvisibleSpace]", "\<\" \"\>", "\[InvisibleSpace]", "\<\"C\"\>", 
   "\[InvisibleSpace]", "10", "\[InvisibleSpace]", "\<\"  \"\>", 
   "\[InvisibleSpace]", "1.089229029160137`"}],
  SequenceForm["C", 15, " ", "C", 10, "  ", 1.089229029160137],
  Editable->False]], "Print",
 CellChangeTimes->{3.568456618089717*^9, 3.568456811966857*^9, 
  3.568459015172093*^9, 3.5684657049437113`*^9}],

Cell[BoxData[
 InterpretationBox[
  RowBox[{"\<\"C\"\>", "\[InvisibleSpace]", "16", 
   "\[InvisibleSpace]", "\<\" \"\>", "\[InvisibleSpace]", "\<\"C\"\>", 
   "\[InvisibleSpace]", "12", "\[InvisibleSpace]", "\<\"  \"\>", 
   "\[InvisibleSpace]", "1.0737766879918476`"}],
  SequenceForm["C", 16, " ", "C", 12, "  ", 1.0737766879918476`],
  Editable->False]], "Print",
 CellChangeTimes->{3.568456618089717*^9, 3.568456811966857*^9, 
  3.568459015172093*^9, 3.5684657049437113`*^9}],

Cell[BoxData[
 InterpretationBox[
  RowBox[{"\<\"C\"\>", "\[InvisibleSpace]", "16", 
   "\[InvisibleSpace]", "\<\" \"\>", "\[InvisibleSpace]", "\<\"C\"\>", 
   "\[InvisibleSpace]", "15", "\[InvisibleSpace]", "\<\"  \"\>", 
   "\[InvisibleSpace]", "1.0545467061144822`"}],
  SequenceForm["C", 16, " ", "C", 15, "  ", 1.0545467061144822`],
  Editable->False]], "Print",
 CellChangeTimes->{3.568456618089717*^9, 3.568456811966857*^9, 
  3.568459015172093*^9, 3.5684657049437113`*^9}],

Cell[BoxData[
 InterpretationBox[
  RowBox[{"\<\"H\"\>", "\[InvisibleSpace]", "17", 
   "\[InvisibleSpace]", "\<\" \"\>", "\[InvisibleSpace]", "\<\"C\"\>", 
   "\[InvisibleSpace]", "12", "\[InvisibleSpace]", "\<\"  \"\>", 
   "\[InvisibleSpace]", "1.2417533035670512`"}],
  SequenceForm["H", 17, " ", "C", 12, "  ", 1.2417533035670512`],
  Editable->False]], "Print",
 CellChangeTimes->{3.568456618089717*^9, 3.568456811966857*^9, 
  3.568459015172093*^9, 3.5684657049437113`*^9}],

Cell[BoxData[
 InterpretationBox[
  RowBox[{"\<\"H\"\>", "\[InvisibleSpace]", "18", 
   "\[InvisibleSpace]", "\<\" \"\>", "\[InvisibleSpace]", "\<\"C\"\>", 
   "\[InvisibleSpace]", "13", "\[InvisibleSpace]", "\<\"  \"\>", 
   "\[InvisibleSpace]", "1.241324517986182`"}],
  SequenceForm["H", 18, " ", "C", 13, "  ", 1.241324517986182],
  Editable->False]], "Print",
 CellChangeTimes->{3.568456618089717*^9, 3.568456811966857*^9, 
  3.568459015172093*^9, 3.5684657049437113`*^9}],

Cell[BoxData[
 InterpretationBox[
  RowBox[{"\<\"H\"\>", "\[InvisibleSpace]", "19", 
   "\[InvisibleSpace]", "\<\" \"\>", "\[InvisibleSpace]", "\<\"C\"\>", 
   "\[InvisibleSpace]", "14", "\[InvisibleSpace]", "\<\"  \"\>", 
   "\[InvisibleSpace]", "1.238430047196644`"}],
  SequenceForm["H", 19, " ", "C", 14, "  ", 1.238430047196644],
  Editable->False]], "Print",
 CellChangeTimes->{3.568456618089717*^9, 3.568456811966857*^9, 
  3.568459015172093*^9, 3.5684657049437113`*^9}],

Cell[BoxData[
 InterpretationBox[
  RowBox[{"\<\"H\"\>", "\[InvisibleSpace]", "20", 
   "\[InvisibleSpace]", "\<\" \"\>", "\[InvisibleSpace]", "\<\"C\"\>", 
   "\[InvisibleSpace]", "16", "\[InvisibleSpace]", "\<\"  \"\>", 
   "\[InvisibleSpace]", "1.2371335104779462`"}],
  SequenceForm["H", 20, " ", "C", 16, "  ", 1.2371335104779462`],
  Editable->False]], "Print",
 CellChangeTimes->{3.568456618089717*^9, 3.568456811966857*^9, 
  3.568459015172093*^9, 3.5684657049437113`*^9}],

Cell[BoxData[
 InterpretationBox[
  RowBox[{"\<\"C\"\>", "\[InvisibleSpace]", "22", 
   "\[InvisibleSpace]", "\<\" \"\>", "\[InvisibleSpace]", "\<\"C\"\>", 
   "\[InvisibleSpace]", "21", "\[InvisibleSpace]", "\<\"  \"\>", 
   "\[InvisibleSpace]", "1.0736947503308476`"}],
  SequenceForm["C", 22, " ", "C", 21, "  ", 1.0736947503308476`],
  Editable->False]], "Print",
 CellChangeTimes->{3.568456618089717*^9, 3.568456811966857*^9, 
  3.568459015172093*^9, 3.5684657049437113`*^9}],

Cell[BoxData[
 InterpretationBox[
  RowBox[{"\<\"C\"\>", "\[InvisibleSpace]", "23", 
   "\[InvisibleSpace]", "\<\" \"\>", "\[InvisibleSpace]", "\<\"C\"\>", 
   "\[InvisibleSpace]", "3", "\[InvisibleSpace]", "\<\"  \"\>", 
   "\[InvisibleSpace]", "1.1745360154872846`"}],
  SequenceForm["C", 23, " ", "C", 3, "  ", 1.1745360154872846`],
  Editable->False]], "Print",
 CellChangeTimes->{3.568456618089717*^9, 3.568456811966857*^9, 
  3.568459015172093*^9, 3.5684657049593115`*^9}],

Cell[BoxData[
 InterpretationBox[
  RowBox[{"\<\"C\"\>", "\[InvisibleSpace]", "23", 
   "\[InvisibleSpace]", "\<\" \"\>", "\[InvisibleSpace]", "\<\"C\"\>", 
   "\[InvisibleSpace]", "6", "\[InvisibleSpace]", "\<\"  \"\>", 
   "\[InvisibleSpace]", "1.0891921831991764`"}],
  SequenceForm["C", 23, " ", "C", 6, "  ", 1.0891921831991764`],
  Editable->False]], "Print",
 CellChangeTimes->{3.568456618089717*^9, 3.568456811966857*^9, 
  3.568459015172093*^9, 3.5684657049593115`*^9}],

Cell[BoxData[
 InterpretationBox[
  RowBox[{"\<\"C\"\>", "\[InvisibleSpace]", "23", 
   "\[InvisibleSpace]", "\<\" \"\>", "\[InvisibleSpace]", "\<\"C\"\>", 
   "\[InvisibleSpace]", "22", "\[InvisibleSpace]", "\<\"  \"\>", 
   "\[InvisibleSpace]", "1.0546485800918277`"}],
  SequenceForm["C", 23, " ", "C", 22, "  ", 1.0546485800918277`],
  Editable->False]], "Print",
 CellChangeTimes->{3.568456618089717*^9, 3.568456811966857*^9, 
  3.568459015172093*^9, 3.5684657049593115`*^9}],

Cell[BoxData[
 InterpretationBox[
  RowBox[{"\<\"C\"\>", "\[InvisibleSpace]", "24", 
   "\[InvisibleSpace]", "\<\" \"\>", "\[InvisibleSpace]", "\<\"C\"\>", 
   "\[InvisibleSpace]", "6", "\[InvisibleSpace]", "\<\"  \"\>", 
   "\[InvisibleSpace]", "1.0543163531320698`"}],
  SequenceForm["C", 24, " ", "C", 6, "  ", 1.0543163531320698`],
  Editable->False]], "Print",
 CellChangeTimes->{3.568456618089717*^9, 3.568456811966857*^9, 
  3.568459015172093*^9, 3.5684657049593115`*^9}],

Cell[BoxData[
 InterpretationBox[
  RowBox[{"\<\"C\"\>", "\[InvisibleSpace]", "25", 
   "\[InvisibleSpace]", "\<\" \"\>", "\[InvisibleSpace]", "\<\"C\"\>", 
   "\[InvisibleSpace]", "21", "\[InvisibleSpace]", "\<\"  \"\>", 
   "\[InvisibleSpace]", "1.061454490151145`"}],
  SequenceForm["C", 25, " ", "C", 21, "  ", 1.061454490151145],
  Editable->False]], "Print",
 CellChangeTimes->{3.568456618089717*^9, 3.568456811966857*^9, 
  3.568459015172093*^9, 3.5684657049593115`*^9}],

Cell[BoxData[
 InterpretationBox[
  RowBox[{"\<\"C\"\>", "\[InvisibleSpace]", "25", 
   "\[InvisibleSpace]", "\<\" \"\>", "\[InvisibleSpace]", "\<\"C\"\>", 
   "\[InvisibleSpace]", "24", "\[InvisibleSpace]", "\<\"  \"\>", 
   "\[InvisibleSpace]", "1.0741201667454103`"}],
  SequenceForm["C", 25, " ", "C", 24, "  ", 1.0741201667454103`],
  Editable->False]], "Print",
 CellChangeTimes->{3.568456618089717*^9, 3.568456811966857*^9, 
  3.568459015172093*^9, 3.5684657049593115`*^9}],

Cell[BoxData[
 InterpretationBox[
  RowBox[{"\<\"H\"\>", "\[InvisibleSpace]", "26", 
   "\[InvisibleSpace]", "\<\" \"\>", "\[InvisibleSpace]", "\<\"C\"\>", 
   "\[InvisibleSpace]", "21", "\[InvisibleSpace]", "\<\"  \"\>", 
   "\[InvisibleSpace]", "1.241289794593869`"}],
  SequenceForm["H", 26, " ", "C", 21, "  ", 1.241289794593869],
  Editable->False]], "Print",
 CellChangeTimes->{3.568456618089717*^9, 3.568456811966857*^9, 
  3.568459015172093*^9, 3.5684657049593115`*^9}],

Cell[BoxData[
 InterpretationBox[
  RowBox[{"\<\"H\"\>", "\[InvisibleSpace]", "27", 
   "\[InvisibleSpace]", "\<\" \"\>", "\[InvisibleSpace]", "\<\"C\"\>", 
   "\[InvisibleSpace]", "22", "\[InvisibleSpace]", "\<\"  \"\>", 
   "\[InvisibleSpace]", "1.2398421755691817`"}],
  SequenceForm["H", 27, " ", "C", 22, "  ", 1.2398421755691817`],
  Editable->False]], "Print",
 CellChangeTimes->{3.568456618089717*^9, 3.568456811966857*^9, 
  3.568459015172093*^9, 3.5684657049593115`*^9}],

Cell[BoxData[
 InterpretationBox[
  RowBox[{"\<\"H\"\>", "\[InvisibleSpace]", "28", 
   "\[InvisibleSpace]", "\<\" \"\>", "\[InvisibleSpace]", "\<\"C\"\>", 
   "\[InvisibleSpace]", "24", "\[InvisibleSpace]", "\<\"  \"\>", 
   "\[InvisibleSpace]", "1.2383196430270544`"}],
  SequenceForm["H", 28, " ", "C", 24, "  ", 1.2383196430270544`],
  Editable->False]], "Print",
 CellChangeTimes->{3.568456618089717*^9, 3.568456811966857*^9, 
  3.568459015172093*^9, 3.5684657049593115`*^9}],

Cell[BoxData[
 InterpretationBox[
  RowBox[{"\<\"H\"\>", "\[InvisibleSpace]", "29", 
   "\[InvisibleSpace]", "\<\" \"\>", "\[InvisibleSpace]", "\<\"C\"\>", 
   "\[InvisibleSpace]", "25", "\[InvisibleSpace]", "\<\"  \"\>", 
   "\[InvisibleSpace]", "1.2420917553811912`"}],
  SequenceForm["H", 29, " ", "C", 25, "  ", 1.2420917553811912`],
  Editable->False]], "Print",
 CellChangeTimes->{3.568456618089717*^9, 3.568456811966857*^9, 
  3.568459015172093*^9, 3.5684657049593115`*^9}],

Cell[BoxData[
 InterpretationBox[
  RowBox[{"\<\"C\"\>", "\[InvisibleSpace]", "31", 
   "\[InvisibleSpace]", "\<\" \"\>", "\[InvisibleSpace]", "\<\"C\"\>", 
   "\[InvisibleSpace]", "30", "\[InvisibleSpace]", "\<\"  \"\>", 
   "\[InvisibleSpace]", "1.073665197803909`"}],
  SequenceForm["C", 31, " ", "C", 30, "  ", 1.073665197803909],
  Editable->False]], "Print",
 CellChangeTimes->{3.568456618089717*^9, 3.568456811966857*^9, 
  3.568459015172093*^9, 3.5684657049593115`*^9}],

Cell[BoxData[
 InterpretationBox[
  RowBox[{"\<\"C\"\>", "\[InvisibleSpace]", "32", 
   "\[InvisibleSpace]", "\<\" \"\>", "\[InvisibleSpace]", "\<\"C\"\>", 
   "\[InvisibleSpace]", "2", "\[InvisibleSpace]", "\<\"  \"\>", 
   "\[InvisibleSpace]", "1.176195322947214`"}],
  SequenceForm["C", 32, " ", "C", 2, "  ", 1.176195322947214],
  Editable->False]], "Print",
 CellChangeTimes->{3.568456618089717*^9, 3.568456811966857*^9, 
  3.568459015172093*^9, 3.5684657049593115`*^9}],

Cell[BoxData[
 InterpretationBox[
  RowBox[{"\<\"C\"\>", "\[InvisibleSpace]", "32", 
   "\[InvisibleSpace]", "\<\" \"\>", "\[InvisibleSpace]", "\<\"C\"\>", 
   "\[InvisibleSpace]", "7", "\[InvisibleSpace]", "\<\"  \"\>", 
   "\[InvisibleSpace]", "1.0897311622132113`"}],
  SequenceForm["C", 32, " ", "C", 7, "  ", 1.0897311622132113`],
  Editable->False]], "Print",
 CellChangeTimes->{3.568456618089717*^9, 3.568456811966857*^9, 
  3.568459015172093*^9, 3.5684657049593115`*^9}],

Cell[BoxData[
 InterpretationBox[
  RowBox[{"\<\"C\"\>", "\[InvisibleSpace]", "32", 
   "\[InvisibleSpace]", "\<\" \"\>", "\[InvisibleSpace]", "\<\"C\"\>", 
   "\[InvisibleSpace]", "31", "\[InvisibleSpace]", "\<\"  \"\>", 
   "\[InvisibleSpace]", "1.0544877586901384`"}],
  SequenceForm["C", 32, " ", "C", 31, "  ", 1.0544877586901384`],
  Editable->False]], "Print",
 CellChangeTimes->{3.568456618089717*^9, 3.568456811966857*^9, 
  3.568459015172093*^9, 3.5684657049593115`*^9}],

Cell[BoxData[
 InterpretationBox[
  RowBox[{"\<\"C\"\>", "\[InvisibleSpace]", "33", 
   "\[InvisibleSpace]", "\<\" \"\>", "\[InvisibleSpace]", "\<\"C\"\>", 
   "\[InvisibleSpace]", "7", "\[InvisibleSpace]", "\<\"  \"\>", 
   "\[InvisibleSpace]", "1.05418684698047`"}],
  SequenceForm["C", 33, " ", "C", 7, "  ", 1.05418684698047],
  Editable->False]], "Print",
 CellChangeTimes->{3.568456618089717*^9, 3.568456811966857*^9, 
  3.568459015172093*^9, 3.5684657049749117`*^9}],

Cell[BoxData[
 InterpretationBox[
  RowBox[{"\<\"C\"\>", "\[InvisibleSpace]", "34", 
   "\[InvisibleSpace]", "\<\" \"\>", "\[InvisibleSpace]", "\<\"C\"\>", 
   "\[InvisibleSpace]", "30", "\[InvisibleSpace]", "\<\"  \"\>", 
   "\[InvisibleSpace]", "1.0615300719758758`"}],
  SequenceForm["C", 34, " ", "C", 30, "  ", 1.0615300719758758`],
  Editable->False]], "Print",
 CellChangeTimes->{3.568456618089717*^9, 3.568456811966857*^9, 
  3.568459015172093*^9, 3.5684657049749117`*^9}],

Cell[BoxData[
 InterpretationBox[
  RowBox[{"\<\"C\"\>", "\[InvisibleSpace]", "34", 
   "\[InvisibleSpace]", "\<\" \"\>", "\[InvisibleSpace]", "\<\"C\"\>", 
   "\[InvisibleSpace]", "33", "\[InvisibleSpace]", "\<\"  \"\>", 
   "\[InvisibleSpace]", "1.073519440502034`"}],
  SequenceForm["C", 34, " ", "C", 33, "  ", 1.073519440502034],
  Editable->False]], "Print",
 CellChangeTimes->{3.568456618089717*^9, 3.568456811966857*^9, 
  3.568459015172093*^9, 3.5684657049749117`*^9}],

Cell[BoxData[
 InterpretationBox[
  RowBox[{"\<\"H\"\>", "\[InvisibleSpace]", "35", 
   "\[InvisibleSpace]", "\<\" \"\>", "\[InvisibleSpace]", "\<\"C\"\>", 
   "\[InvisibleSpace]", "30", "\[InvisibleSpace]", "\<\"  \"\>", 
   "\[InvisibleSpace]", "1.2408600440902706`"}],
  SequenceForm["H", 35, " ", "C", 30, "  ", 1.2408600440902706`],
  Editable->False]], "Print",
 CellChangeTimes->{3.568456618089717*^9, 3.568456811966857*^9, 
  3.568459015172093*^9, 3.5684657049749117`*^9}],

Cell[BoxData[
 InterpretationBox[
  RowBox[{"\<\"H\"\>", "\[InvisibleSpace]", "36", 
   "\[InvisibleSpace]", "\<\" \"\>", "\[InvisibleSpace]", "\<\"C\"\>", 
   "\[InvisibleSpace]", "31", "\[InvisibleSpace]", "\<\"  \"\>", 
   "\[InvisibleSpace]", "1.239501615562912`"}],
  SequenceForm["H", 36, " ", "C", 31, "  ", 1.239501615562912],
  Editable->False]], "Print",
 CellChangeTimes->{3.568456618089717*^9, 3.568456811966857*^9, 
  3.568459015172093*^9, 3.5684657049749117`*^9}],

Cell[BoxData[
 InterpretationBox[
  RowBox[{"\<\"H\"\>", "\[InvisibleSpace]", "37", 
   "\[InvisibleSpace]", "\<\" \"\>", "\[InvisibleSpace]", "\<\"C\"\>", 
   "\[InvisibleSpace]", "33", "\[InvisibleSpace]", "\<\"  \"\>", 
   "\[InvisibleSpace]", "1.2381866285468215`"}],
  SequenceForm["H", 37, " ", "C", 33, "  ", 1.2381866285468215`],
  Editable->False]], "Print",
 CellChangeTimes->{3.568456618089717*^9, 3.568456811966857*^9, 
  3.568459015172093*^9, 3.5684657049749117`*^9}],

Cell[BoxData[
 InterpretationBox[
  RowBox[{"\<\"H\"\>", "\[InvisibleSpace]", "38", 
   "\[InvisibleSpace]", "\<\" \"\>", "\[InvisibleSpace]", "\<\"C\"\>", 
   "\[InvisibleSpace]", "34", "\[InvisibleSpace]", "\<\"  \"\>", 
   "\[InvisibleSpace]", "1.239824801424743`"}],
  SequenceForm["H", 38, " ", "C", 34, "  ", 1.239824801424743],
  Editable->False]], "Print",
 CellChangeTimes->{3.568456618089717*^9, 3.568456811966857*^9, 
  3.568459015172093*^9, 3.5684657049749117`*^9}],

Cell[BoxData[
 InterpretationBox[
  RowBox[{"\<\"C\"\>", "\[InvisibleSpace]", "40", 
   "\[InvisibleSpace]", "\<\" \"\>", "\[InvisibleSpace]", "\<\"C\"\>", 
   "\[InvisibleSpace]", "39", "\[InvisibleSpace]", "\<\"  \"\>", 
   "\[InvisibleSpace]", "1.0739835245374176`"}],
  SequenceForm["C", 40, " ", "C", 39, "  ", 1.0739835245374176`],
  Editable->False]], "Print",
 CellChangeTimes->{3.568456618089717*^9, 3.568456811966857*^9, 
  3.568459015172093*^9, 3.5684657049749117`*^9}],

Cell[BoxData[
 InterpretationBox[
  RowBox[{"\<\"C\"\>", "\[InvisibleSpace]", "41", 
   "\[InvisibleSpace]", "\<\" \"\>", "\[InvisibleSpace]", "\<\"C\"\>", 
   "\[InvisibleSpace]", "5", "\[InvisibleSpace]", "\<\"  \"\>", 
   "\[InvisibleSpace]", "1.1755526047183082`"}],
  SequenceForm["C", 41, " ", "C", 5, "  ", 1.1755526047183082`],
  Editable->False]], "Print",
 CellChangeTimes->{3.568456618089717*^9, 3.568456811966857*^9, 
  3.568459015172093*^9, 3.5684657049749117`*^9}],

Cell[BoxData[
 InterpretationBox[
  RowBox[{"\<\"C\"\>", "\[InvisibleSpace]", "41", 
   "\[InvisibleSpace]", "\<\" \"\>", "\[InvisibleSpace]", "\<\"C\"\>", 
   "\[InvisibleSpace]", "8", "\[InvisibleSpace]", "\<\"  \"\>", 
   "\[InvisibleSpace]", "1.0896292904929623`"}],
  SequenceForm["C", 41, " ", "C", 8, "  ", 1.0896292904929623`],
  Editable->False]], "Print",
 CellChangeTimes->{3.568456618089717*^9, 3.568456811966857*^9, 
  3.568459015172093*^9, 3.5684657049749117`*^9}],

Cell[BoxData[
 InterpretationBox[
  RowBox[{"\<\"C\"\>", "\[InvisibleSpace]", "41", 
   "\[InvisibleSpace]", "\<\" \"\>", "\[InvisibleSpace]", "\<\"C\"\>", 
   "\[InvisibleSpace]", "40", "\[InvisibleSpace]", "\<\"  \"\>", 
   "\[InvisibleSpace]", "1.054612124428182`"}],
  SequenceForm["C", 41, " ", "C", 40, "  ", 1.054612124428182],
  Editable->False]], "Print",
 CellChangeTimes->{3.568456618089717*^9, 3.568456811966857*^9, 
  3.568459015172093*^9, 3.5684657049749117`*^9}],

Cell[BoxData[
 InterpretationBox[
  RowBox[{"\<\"C\"\>", "\[InvisibleSpace]", "42", 
   "\[InvisibleSpace]", "\<\" \"\>", "\[InvisibleSpace]", "\<\"C\"\>", 
   "\[InvisibleSpace]", "8", "\[InvisibleSpace]", "\<\"  \"\>", 
   "\[InvisibleSpace]", "1.0537883648432234`"}],
  SequenceForm["C", 42, " ", "C", 8, "  ", 1.0537883648432234`],
  Editable->False]], "Print",
 CellChangeTimes->{3.568456618089717*^9, 3.568456811966857*^9, 
  3.568459015172093*^9, 3.5684657049749117`*^9}],

Cell[BoxData[
 InterpretationBox[
  RowBox[{"\<\"C\"\>", "\[InvisibleSpace]", "43", 
   "\[InvisibleSpace]", "\<\" \"\>", "\[InvisibleSpace]", "\<\"C\"\>", 
   "\[InvisibleSpace]", "39", "\[InvisibleSpace]", "\<\"  \"\>", 
   "\[InvisibleSpace]", "1.06094360595312`"}],
  SequenceForm["C", 43, " ", "C", 39, "  ", 1.06094360595312],
  Editable->False]], "Print",
 CellChangeTimes->{3.568456618089717*^9, 3.568456811966857*^9, 
  3.568459015172093*^9, 3.5684657049749117`*^9}],

Cell[BoxData[
 InterpretationBox[
  RowBox[{"\<\"C\"\>", "\[InvisibleSpace]", "43", 
   "\[InvisibleSpace]", "\<\" \"\>", "\[InvisibleSpace]", "\<\"C\"\>", 
   "\[InvisibleSpace]", "42", "\[InvisibleSpace]", "\<\"  \"\>", 
   "\[InvisibleSpace]", "1.0737266528894622`"}],
  SequenceForm["C", 43, " ", "C", 42, "  ", 1.0737266528894622`],
  Editable->False]], "Print",
 CellChangeTimes->{3.568456618089717*^9, 3.568456811966857*^9, 
  3.568459015172093*^9, 3.5684657049905114`*^9}],

Cell[BoxData[
 InterpretationBox[
  RowBox[{"\<\"H\"\>", "\[InvisibleSpace]", "44", 
   "\[InvisibleSpace]", "\<\" \"\>", "\[InvisibleSpace]", "\<\"C\"\>", 
   "\[InvisibleSpace]", "39", "\[InvisibleSpace]", "\<\"  \"\>", 
   "\[InvisibleSpace]", "1.2423850352609764`"}],
  SequenceForm["H", 44, " ", "C", 39, "  ", 1.2423850352609764`],
  Editable->False]], "Print",
 CellChangeTimes->{3.568456618089717*^9, 3.568456811966857*^9, 
  3.568459015172093*^9, 3.5684657049905114`*^9}],

Cell[BoxData[
 InterpretationBox[
  RowBox[{"\<\"H\"\>", "\[InvisibleSpace]", "45", 
   "\[InvisibleSpace]", "\<\" \"\>", "\[InvisibleSpace]", "\<\"C\"\>", 
   "\[InvisibleSpace]", "40", "\[InvisibleSpace]", "\<\"  \"\>", 
   "\[InvisibleSpace]", "1.2387768689363954`"}],
  SequenceForm["H", 45, " ", "C", 40, "  ", 1.2387768689363954`],
  Editable->False]], "Print",
 CellChangeTimes->{3.568456618089717*^9, 3.568456811966857*^9, 
  3.568459015172093*^9, 3.5684657049905114`*^9}],

Cell[BoxData[
 InterpretationBox[
  RowBox[{"\<\"H\"\>", "\[InvisibleSpace]", "46", 
   "\[InvisibleSpace]", "\<\" \"\>", "\[InvisibleSpace]", "\<\"C\"\>", 
   "\[InvisibleSpace]", "42", "\[InvisibleSpace]", "\<\"  \"\>", 
   "\[InvisibleSpace]", "1.2400046167139323`"}],
  SequenceForm["H", 46, " ", "C", 42, "  ", 1.2400046167139323`],
  Editable->False]], "Print",
 CellChangeTimes->{3.568456618089717*^9, 3.568456811966857*^9, 
  3.568459015172093*^9, 3.5684657049905114`*^9}],

Cell[BoxData[
 InterpretationBox[
  RowBox[{"\<\"H\"\>", "\[InvisibleSpace]", "47", 
   "\[InvisibleSpace]", "\<\" \"\>", "\[InvisibleSpace]", "\<\"C\"\>", 
   "\[InvisibleSpace]", "43", "\[InvisibleSpace]", "\<\"  \"\>", 
   "\[InvisibleSpace]", "1.2414009073859167`"}],
  SequenceForm["H", 47, " ", "C", 43, "  ", 1.2414009073859167`],
  Editable->False]], "Print",
 CellChangeTimes->{3.568456618089717*^9, 3.568456811966857*^9, 
  3.568459015172093*^9, 3.5684657049905114`*^9}],

Cell[BoxData[
 InterpretationBox[
  RowBox[{"\<\"C\"\>", "\[InvisibleSpace]", "49", 
   "\[InvisibleSpace]", "\<\" \"\>", "\[InvisibleSpace]", "\<\"C\"\>", 
   "\[InvisibleSpace]", "48", "\[InvisibleSpace]", "\<\"  \"\>", 
   "\[InvisibleSpace]", "1.0733998672775653`"}],
  SequenceForm["C", 49, " ", "C", 48, "  ", 1.0733998672775653`],
  Editable->False]], "Print",
 CellChangeTimes->{3.568456618089717*^9, 3.568456811966857*^9, 
  3.568459015172093*^9, 3.5684657049905114`*^9}],

Cell[BoxData[
 InterpretationBox[
  RowBox[{"\<\"C\"\>", "\[InvisibleSpace]", "50", 
   "\[InvisibleSpace]", "\<\" \"\>", "\[InvisibleSpace]", "\<\"C\"\>", 
   "\[InvisibleSpace]", "4", "\[InvisibleSpace]", "\<\"  \"\>", 
   "\[InvisibleSpace]", "1.175561026473771`"}],
  SequenceForm["C", 50, " ", "C", 4, "  ", 1.175561026473771],
  Editable->False]], "Print",
 CellChangeTimes->{3.568456618089717*^9, 3.568456811966857*^9, 
  3.568459015172093*^9, 3.5684657049905114`*^9}],

Cell[BoxData[
 InterpretationBox[
  RowBox[{"\<\"C\"\>", "\[InvisibleSpace]", "50", 
   "\[InvisibleSpace]", "\<\" \"\>", "\[InvisibleSpace]", "\<\"C\"\>", 
   "\[InvisibleSpace]", "11", "\[InvisibleSpace]", "\<\"  \"\>", 
   "\[InvisibleSpace]", "1.0899707128617673`"}],
  SequenceForm["C", 50, " ", "C", 11, "  ", 1.0899707128617673`],
  Editable->False]], "Print",
 CellChangeTimes->{3.568456618089717*^9, 3.568456811966857*^9, 
  3.568459015172093*^9, 3.5684657049905114`*^9}],

Cell[BoxData[
 InterpretationBox[
  RowBox[{"\<\"C\"\>", "\[InvisibleSpace]", "50", 
   "\[InvisibleSpace]", "\<\" \"\>", "\[InvisibleSpace]", "\<\"C\"\>", 
   "\[InvisibleSpace]", "49", "\[InvisibleSpace]", "\<\"  \"\>", 
   "\[InvisibleSpace]", "1.0540447162807238`"}],
  SequenceForm["C", 50, " ", "C", 49, "  ", 1.0540447162807238`],
  Editable->False]], "Print",
 CellChangeTimes->{3.568456618089717*^9, 3.568456811966857*^9, 
  3.568459015172093*^9, 3.5684657049905114`*^9}],

Cell[BoxData[
 InterpretationBox[
  RowBox[{"\<\"C\"\>", "\[InvisibleSpace]", "51", 
   "\[InvisibleSpace]", "\<\" \"\>", "\[InvisibleSpace]", "\<\"C\"\>", 
   "\[InvisibleSpace]", "11", "\[InvisibleSpace]", "\<\"  \"\>", 
   "\[InvisibleSpace]", "1.0547943926035335`"}],
  SequenceForm["C", 51, " ", "C", 11, "  ", 1.0547943926035335`],
  Editable->False]], "Print",
 CellChangeTimes->{3.568456618089717*^9, 3.568456811966857*^9, 
  3.568459015172093*^9, 3.5684657049905114`*^9}],

Cell[BoxData[
 InterpretationBox[
  RowBox[{"\<\"C\"\>", "\[InvisibleSpace]", "52", 
   "\[InvisibleSpace]", "\<\" \"\>", "\[InvisibleSpace]", "\<\"C\"\>", 
   "\[InvisibleSpace]", "48", "\[InvisibleSpace]", "\<\"  \"\>", 
   "\[InvisibleSpace]", "1.0606787631343173`"}],
  SequenceForm["C", 52, " ", "C", 48, "  ", 1.0606787631343173`],
  Editable->False]], "Print",
 CellChangeTimes->{3.568456618089717*^9, 3.568456811966857*^9, 
  3.568459015172093*^9, 3.5684657049905114`*^9}],

Cell[BoxData[
 InterpretationBox[
  RowBox[{"\<\"C\"\>", "\[InvisibleSpace]", "52", 
   "\[InvisibleSpace]", "\<\" \"\>", "\[InvisibleSpace]", "\<\"C\"\>", 
   "\[InvisibleSpace]", "51", "\[InvisibleSpace]", "\<\"  \"\>", 
   "\[InvisibleSpace]", "1.0739230886149016`"}],
  SequenceForm["C", 52, " ", "C", 51, "  ", 1.0739230886149016`],
  Editable->False]], "Print",
 CellChangeTimes->{3.568456618089717*^9, 3.568456811966857*^9, 
  3.568459015172093*^9, 3.5684657049905114`*^9}],

Cell[BoxData[
 InterpretationBox[
  RowBox[{"\<\"H\"\>", "\[InvisibleSpace]", "53", 
   "\[InvisibleSpace]", "\<\" \"\>", "\[InvisibleSpace]", "\<\"C\"\>", 
   "\[InvisibleSpace]", "48", "\[InvisibleSpace]", "\<\"  \"\>", 
   "\[InvisibleSpace]", "1.241810583941931`"}],
  SequenceForm["H", 53, " ", "C", 48, "  ", 1.241810583941931],
  Editable->False]], "Print",
 CellChangeTimes->{3.568456618089717*^9, 3.568456811966857*^9, 
  3.568459015172093*^9, 3.5684657049905114`*^9}],

Cell[BoxData[
 InterpretationBox[
  RowBox[{"\<\"H\"\>", "\[InvisibleSpace]", "54", 
   "\[InvisibleSpace]", "\<\" \"\>", "\[InvisibleSpace]", "\<\"C\"\>", 
   "\[InvisibleSpace]", "49", "\[InvisibleSpace]", "\<\"  \"\>", 
   "\[InvisibleSpace]", "1.238712550530363`"}],
  SequenceForm["H", 54, " ", "C", 49, "  ", 1.238712550530363],
  Editable->False]], "Print",
 CellChangeTimes->{3.568456618089717*^9, 3.568456811966857*^9, 
  3.568459015172093*^9, 3.5684657050061116`*^9}],

Cell[BoxData[
 InterpretationBox[
  RowBox[{"\<\"H\"\>", "\[InvisibleSpace]", "55", 
   "\[InvisibleSpace]", "\<\" \"\>", "\[InvisibleSpace]", "\<\"C\"\>", 
   "\[InvisibleSpace]", "51", "\[InvisibleSpace]", "\<\"  \"\>", 
   "\[InvisibleSpace]", "1.2386499685266354`"}],
  SequenceForm["H", 55, " ", "C", 51, "  ", 1.2386499685266354`],
  Editable->False]], "Print",
 CellChangeTimes->{3.568456618089717*^9, 3.568456811966857*^9, 
  3.568459015172093*^9, 3.5684657050061116`*^9}],

Cell[BoxData[
 InterpretationBox[
  RowBox[{"\<\"H\"\>", "\[InvisibleSpace]", "56", 
   "\[InvisibleSpace]", "\<\" \"\>", "\[InvisibleSpace]", "\<\"C\"\>", 
   "\[InvisibleSpace]", "52", "\[InvisibleSpace]", "\<\"  \"\>", 
   "\[InvisibleSpace]", "1.2406169131218543`"}],
  SequenceForm["H", 56, " ", "C", 52, "  ", 1.2406169131218543`],
  Editable->False]], "Print",
 CellChangeTimes->{3.568456618089717*^9, 3.568456811966857*^9, 
  3.568459015172093*^9, 3.5684657050061116`*^9}],

Cell[BoxData[
 InterpretationBox[
  RowBox[{"\<\"C\"\>", "\[InvisibleSpace]", "58", 
   "\[InvisibleSpace]", "\<\" \"\>", "\[InvisibleSpace]", "\<\"C\"\>", 
   "\[InvisibleSpace]", "57", "\[InvisibleSpace]", "\<\"  \"\>", 
   "\[InvisibleSpace]", "1.0739600220051218`"}],
  SequenceForm["C", 58, " ", "C", 57, "  ", 1.0739600220051218`],
  Editable->False]], "Print",
 CellChangeTimes->{3.568456618089717*^9, 3.568456811966857*^9, 
  3.568459015172093*^9, 3.5684657050061116`*^9}],

Cell[BoxData[
 InterpretationBox[
  RowBox[{"\<\"C\"\>", "\[InvisibleSpace]", "59", 
   "\[InvisibleSpace]", "\<\" \"\>", "\[InvisibleSpace]", "\<\"C\"\>", 
   "\[InvisibleSpace]", "2", "\[InvisibleSpace]", "\<\"  \"\>", 
   "\[InvisibleSpace]", "1.1755139263900491`"}],
  SequenceForm["C", 59, " ", "C", 2, "  ", 1.1755139263900491`],
  Editable->False]], "Print",
 CellChangeTimes->{3.568456618089717*^9, 3.568456811966857*^9, 
  3.568459015172093*^9, 3.5684657050061116`*^9}],

Cell[BoxData[
 InterpretationBox[
  RowBox[{"\<\"C\"\>", "\[InvisibleSpace]", "59", 
   "\[InvisibleSpace]", "\<\" \"\>", "\[InvisibleSpace]", "\<\"C\"\>", 
   "\[InvisibleSpace]", "9", "\[InvisibleSpace]", "\<\"  \"\>", 
   "\[InvisibleSpace]", "1.0892648783153116`"}],
  SequenceForm["C", 59, " ", "C", 9, "  ", 1.0892648783153116`],
  Editable->False]], "Print",
 CellChangeTimes->{3.568456618089717*^9, 3.568456811966857*^9, 
  3.568459015172093*^9, 3.5684657050061116`*^9}],

Cell[BoxData[
 InterpretationBox[
  RowBox[{"\<\"C\"\>", "\[InvisibleSpace]", "59", 
   "\[InvisibleSpace]", "\<\" \"\>", "\[InvisibleSpace]", "\<\"C\"\>", 
   "\[InvisibleSpace]", "58", "\[InvisibleSpace]", "\<\"  \"\>", 
   "\[InvisibleSpace]", "1.0538572301329332`"}],
  SequenceForm["C", 59, " ", "C", 58, "  ", 1.0538572301329332`],
  Editable->False]], "Print",
 CellChangeTimes->{3.568456618089717*^9, 3.568456811966857*^9, 
  3.568459015172093*^9, 3.5684657050061116`*^9}],

Cell[BoxData[
 InterpretationBox[
  RowBox[{"\<\"C\"\>", "\[InvisibleSpace]", "60", 
   "\[InvisibleSpace]", "\<\" \"\>", "\[InvisibleSpace]", "\<\"C\"\>", 
   "\[InvisibleSpace]", "9", "\[InvisibleSpace]", "\<\"  \"\>", 
   "\[InvisibleSpace]", "1.0542901121305515`"}],
  SequenceForm["C", 60, " ", "C", 9, "  ", 1.0542901121305515`],
  Editable->False]], "Print",
 CellChangeTimes->{3.568456618089717*^9, 3.568456811966857*^9, 
  3.568459015172093*^9, 3.5684657050061116`*^9}],

Cell[BoxData[
 InterpretationBox[
  RowBox[{"\<\"C\"\>", "\[InvisibleSpace]", "61", 
   "\[InvisibleSpace]", "\<\" \"\>", "\[InvisibleSpace]", "\<\"C\"\>", 
   "\[InvisibleSpace]", "57", "\[InvisibleSpace]", "\<\"  \"\>", 
   "\[InvisibleSpace]", "1.0618513310624882`"}],
  SequenceForm["C", 61, " ", "C", 57, "  ", 1.0618513310624882`],
  Editable->False]], "Print",
 CellChangeTimes->{3.568456618089717*^9, 3.568456811966857*^9, 
  3.568459015172093*^9, 3.5684657050061116`*^9}],

Cell[BoxData[
 InterpretationBox[
  RowBox[{"\<\"C\"\>", "\[InvisibleSpace]", "61", 
   "\[InvisibleSpace]", "\<\" \"\>", "\[InvisibleSpace]", "\<\"C\"\>", 
   "\[InvisibleSpace]", "60", "\[InvisibleSpace]", "\<\"  \"\>", 
   "\[InvisibleSpace]", "1.07336090289154`"}],
  SequenceForm["C", 61, " ", "C", 60, "  ", 1.07336090289154],
  Editable->False]], "Print",
 CellChangeTimes->{3.568456618089717*^9, 3.568456811966857*^9, 
  3.568459015172093*^9, 3.5684657050061116`*^9}],

Cell[BoxData[
 InterpretationBox[
  RowBox[{"\<\"H\"\>", "\[InvisibleSpace]", "62", 
   "\[InvisibleSpace]", "\<\" \"\>", "\[InvisibleSpace]", "\<\"C\"\>", 
   "\[InvisibleSpace]", "57", "\[InvisibleSpace]", "\<\"  \"\>", 
   "\[InvisibleSpace]", "1.2401505421971444`"}],
  SequenceForm["H", 62, " ", "C", 57, "  ", 1.2401505421971444`],
  Editable->False]], "Print",
 CellChangeTimes->{3.568456618089717*^9, 3.568456811966857*^9, 
  3.568459015172093*^9, 3.5684657050061116`*^9}],

Cell[BoxData[
 InterpretationBox[
  RowBox[{"\<\"H\"\>", "\[InvisibleSpace]", "63", 
   "\[InvisibleSpace]", "\<\" \"\>", "\[InvisibleSpace]", "\<\"C\"\>", 
   "\[InvisibleSpace]", "58", "\[InvisibleSpace]", "\<\"  \"\>", 
   "\[InvisibleSpace]", "1.2387099429849404`"}],
  SequenceForm["H", 63, " ", "C", 58, "  ", 1.2387099429849404`],
  Editable->False]], "Print",
 CellChangeTimes->{3.568456618089717*^9, 3.568456811966857*^9, 
  3.568459015172093*^9, 3.5684657050061116`*^9}],

Cell[BoxData[
 InterpretationBox[
  RowBox[{"\<\"H\"\>", "\[InvisibleSpace]", "64", 
   "\[InvisibleSpace]", "\<\" \"\>", "\[InvisibleSpace]", "\<\"C\"\>", 
   "\[InvisibleSpace]", "60", "\[InvisibleSpace]", "\<\"  \"\>", 
   "\[InvisibleSpace]", "1.2374979452324664`"}],
  SequenceForm["H", 64, " ", "C", 60, "  ", 1.2374979452324664`],
  Editable->False]], "Print",
 CellChangeTimes->{3.568456618089717*^9, 3.568456811966857*^9, 
  3.568459015172093*^9, 3.5684657050061116`*^9}],

Cell[BoxData[
 InterpretationBox[
  RowBox[{"\<\"H\"\>", "\[InvisibleSpace]", "65", 
   "\[InvisibleSpace]", "\<\" \"\>", "\[InvisibleSpace]", "\<\"C\"\>", 
   "\[InvisibleSpace]", "61", "\[InvisibleSpace]", "\<\"  \"\>", 
   "\[InvisibleSpace]", "1.2414851060510226`"}],
  SequenceForm["H", 65, " ", "C", 61, "  ", 1.2414851060510226`],
  Editable->False]], "Print",
 CellChangeTimes->{3.568456618089717*^9, 3.568456811966857*^9, 
  3.568459015172093*^9, 3.5684657050217113`*^9}]
}, Open  ]]
}, Open  ]],

Cell[BoxData[{
 RowBox[{
  RowBox[{"DeleteFile", "[", " ", "\"\<C:\\\\Kimb_Mathem\\\\tmp4\>\"", "]"}], 
  ";"}], "\[IndentingNewLine]", 
 RowBox[{"For", "[", 
  RowBox[{
   RowBox[{"i", "=", "2"}], ",", 
   RowBox[{"i", "<", 
    RowBox[{"n", "+", "2"}]}], ",", 
   RowBox[{"i", "++"}], ",", "\[IndentingNewLine]", 
   RowBox[{"For", "[", 
    RowBox[{
     RowBox[{"j", "=", "2"}], ",", 
     RowBox[{"j", "\[LessEqual]", "i"}], ",", 
     RowBox[{"j", "++"}], ",", "\[IndentingNewLine]", 
     RowBox[{"If", "[", 
      RowBox[{
       RowBox[{
        RowBox[{"Pij", "[", 
         RowBox[{"[", 
          RowBox[{"i", ",", "j"}], "]"}], "]"}], ">", "0"}], ",", 
       RowBox[{
        RowBox[{"{", 
         RowBox[{
          RowBox[{"i", "-", "1"}], ",", 
          RowBox[{"j", "-", "1"}], ",", 
          RowBox[{"Extract", "[", 
           RowBox[{"Pij", ",", 
            RowBox[{"{", 
             RowBox[{"i", ",", "j"}], "}"}]}], "]"}]}], "}"}], ">>>", " ", 
        "\"\<C:\\\\Kimb_Mathem\\\\tmp4\>\""}]}], "]"}]}], "]"}]}], 
  "]"}]}], "Input",
 CellChangeTimes->{{3.5681154444347754`*^9, 3.568115497147268*^9}, {
   3.568127214924899*^9, 3.568127265796589*^9}, {3.568128215276656*^9, 
   3.568128238536297*^9}, {3.568130718566253*^9, 3.5681307485339055`*^9}, 
   3.5681308175952272`*^9, {3.5681308916497574`*^9, 3.5681309458598523`*^9}, {
   3.5681309983383446`*^9, 3.5681310118947687`*^9}, {3.5681310723448744`*^9, 
   3.568131074357278*^9}, {3.5681315215476637`*^9, 3.568131584509374*^9}, {
   3.56813162789305*^9, 3.5681316427754765`*^9}, {3.5681317113063965`*^9, 
   3.568131715268804*^9}, {3.5681323203938665`*^9, 3.5681323260098763`*^9}, {
   3.568132387567585*^9, 3.568132440014877*^9}, {3.5681325121026034`*^9, 
   3.568132590945142*^9}, {3.56813274298981*^9, 3.5681327548302307`*^9}, {
   3.568132877867647*^9, 3.568132888335265*^9}, {3.568133052345154*^9, 
   3.568133072344389*^9}, {3.5681331740533676`*^9, 3.5681331951446047`*^9}, {
   3.568133267793932*^9, 3.5681332684803333`*^9}, {3.5681335079111547`*^9, 
   3.568133536833606*^9}, {3.5681336272201643`*^9, 3.5681336314945717`*^9}, {
   3.568133737994359*^9, 3.568133744000369*^9}, {3.568133978515581*^9, 
   3.5681339917912045`*^9}, {3.5681340324916763`*^9, 
   3.5681340418204927`*^9}, {3.568134244262048*^9, 3.5681342454944506`*^9}, {
   3.5681343354754086`*^9, 3.568134336099409*^9}, {3.5681345828762426`*^9, 
   3.568134583952645*^9}, {3.5681348406666956`*^9, 3.5681348474683075`*^9}, 
   3.568134889151581*^9, {3.5681352914606876`*^9, 3.568135296265496*^9}, {
   3.568135518877887*^9, 3.568135519595488*^9}, 3.5681357593679094`*^9, {
   3.5681787035360527`*^9, 3.568178728449296*^9}, 3.5682779128076954`*^9}],

Cell[CellGroupData[{

Cell[BoxData[{
 RowBox[{"a", "=", 
  RowBox[{
  "ReadList", "[", "\"\<C:\\\\Kimb_Mathem\\\\tmp4\>\"", 
   "]"}]}], "\[IndentingNewLine]", 
 RowBox[{"nb", "=", 
  RowBox[{"Length", "[", "a", "]"}]}]}], "Input",
 CellChangeTimes->{{3.5681343270045934`*^9, 3.568134331481801*^9}, 
   3.5681343823222904`*^9, {3.5681345934218616`*^9, 3.5681345986322703`*^9}, {
   3.568134635479535*^9, 3.5681346521559644`*^9}, {3.5681351451792307`*^9, 
   3.568135145428831*^9}, {3.5681351781888885`*^9, 3.5681352349417877`*^9}, {
   3.568135340163973*^9, 3.568135340335573*^9}, {3.568135523495495*^9, 
   3.5681355244314966`*^9}, {3.5681357674799232`*^9, 
   3.5681357771675406`*^9}, {3.568136284433632*^9, 3.5681362987700567`*^9}, {
   3.568136395053426*^9, 3.5681363965510283`*^9}, {3.568434030499466*^9, 
   3.568434039126281*^9}, 3.5684351874186983`*^9}],

Cell[BoxData[
 RowBox[{"{", 
  RowBox[{
   RowBox[{"{", 
    RowBox[{"2", ",", "1", ",", "1.2238569283537577`"}], "}"}], ",", 
   RowBox[{"{", 
    RowBox[{"3", ",", "1", ",", "1.2245794024019967`"}], "}"}], ",", 
   RowBox[{"{", 
    RowBox[{"4", ",", "1", ",", "1.22532262451234`"}], "}"}], ",", 
   RowBox[{"{", 
    RowBox[{"5", ",", "1", ",", "1.224106138797028`"}], "}"}], ",", 
   RowBox[{"{", 
    RowBox[{"6", ",", "4", ",", "1.175546990187132`"}], "}"}], ",", 
   RowBox[{"{", 
    RowBox[{"7", ",", "4", ",", "1.175815839120089`"}], "}"}], ",", 
   RowBox[{"{", 
    RowBox[{"8", ",", "2", ",", "1.1754209693580422`"}], "}"}], ",", 
   RowBox[{"{", 
    RowBox[{"9", ",", "3", ",", "1.1762146530378608`"}], "}"}], ",", 
   RowBox[{"{", 
    RowBox[{"10", ",", "5", ",", "1.1753785440076667`"}], "}"}], ",", 
   RowBox[{"{", 
    RowBox[{"11", ",", "5", ",", "1.1752069580679771`"}], "}"}], ",", 
   RowBox[{"{", 
    RowBox[{"13", ",", "12", ",", "1.0612880592721496`"}], "}"}], ",", 
   RowBox[{"{", 
    RowBox[{"14", ",", "10", ",", "1.0545518170378767`"}], "}"}], ",", 
   RowBox[{"{", 
    RowBox[{"14", ",", "13", ",", "1.0736662052872366`"}], "}"}], ",", 
   RowBox[{"{", 
    RowBox[{"15", ",", "3", ",", "1.1759683307431386`"}], "}"}], ",", 
   RowBox[{"{", 
    RowBox[{"15", ",", "10", ",", "1.089229029160137`"}], "}"}], ",", 
   RowBox[{"{", 
    RowBox[{"16", ",", "12", ",", "1.0737766879918476`"}], "}"}], ",", 
   RowBox[{"{", 
    RowBox[{"16", ",", "15", ",", "1.0545467061144822`"}], "}"}], ",", 
   RowBox[{"{", 
    RowBox[{"17", ",", "12", ",", "1.2417533035670512`"}], "}"}], ",", 
   RowBox[{"{", 
    RowBox[{"18", ",", "13", ",", "1.241324517986182`"}], "}"}], ",", 
   RowBox[{"{", 
    RowBox[{"19", ",", "14", ",", "1.238430047196644`"}], "}"}], ",", 
   RowBox[{"{", 
    RowBox[{"20", ",", "16", ",", "1.2371335104779462`"}], "}"}], ",", 
   RowBox[{"{", 
    RowBox[{"22", ",", "21", ",", "1.0736947503308476`"}], "}"}], ",", 
   RowBox[{"{", 
    RowBox[{"23", ",", "3", ",", "1.1745360154872846`"}], "}"}], ",", 
   RowBox[{"{", 
    RowBox[{"23", ",", "6", ",", "1.0891921831991764`"}], "}"}], ",", 
   RowBox[{"{", 
    RowBox[{"23", ",", "22", ",", "1.0546485800918277`"}], "}"}], ",", 
   RowBox[{"{", 
    RowBox[{"24", ",", "6", ",", "1.0543163531320698`"}], "}"}], ",", 
   RowBox[{"{", 
    RowBox[{"25", ",", "21", ",", "1.061454490151145`"}], "}"}], ",", 
   RowBox[{"{", 
    RowBox[{"25", ",", "24", ",", "1.0741201667454103`"}], "}"}], ",", 
   RowBox[{"{", 
    RowBox[{"26", ",", "21", ",", "1.241289794593869`"}], "}"}], ",", 
   RowBox[{"{", 
    RowBox[{"27", ",", "22", ",", "1.2398421755691817`"}], "}"}], ",", 
   RowBox[{"{", 
    RowBox[{"28", ",", "24", ",", "1.2383196430270544`"}], "}"}], ",", 
   RowBox[{"{", 
    RowBox[{"29", ",", "25", ",", "1.2420917553811912`"}], "}"}], ",", 
   RowBox[{"{", 
    RowBox[{"31", ",", "30", ",", "1.073665197803909`"}], "}"}], ",", 
   RowBox[{"{", 
    RowBox[{"32", ",", "2", ",", "1.176195322947214`"}], "}"}], ",", 
   RowBox[{"{", 
    RowBox[{"32", ",", "7", ",", "1.0897311622132113`"}], "}"}], ",", 
   RowBox[{"{", 
    RowBox[{"32", ",", "31", ",", "1.0544877586901384`"}], "}"}], ",", 
   RowBox[{"{", 
    RowBox[{"33", ",", "7", ",", "1.05418684698047`"}], "}"}], ",", 
   RowBox[{"{", 
    RowBox[{"34", ",", "30", ",", "1.0615300719758758`"}], "}"}], ",", 
   RowBox[{"{", 
    RowBox[{"34", ",", "33", ",", "1.073519440502034`"}], "}"}], ",", 
   RowBox[{"{", 
    RowBox[{"35", ",", "30", ",", "1.2408600440902706`"}], "}"}], ",", 
   RowBox[{"{", 
    RowBox[{"36", ",", "31", ",", "1.239501615562912`"}], "}"}], ",", 
   RowBox[{"{", 
    RowBox[{"37", ",", "33", ",", "1.2381866285468215`"}], "}"}], ",", 
   RowBox[{"{", 
    RowBox[{"38", ",", "34", ",", "1.239824801424743`"}], "}"}], ",", 
   RowBox[{"{", 
    RowBox[{"40", ",", "39", ",", "1.0739835245374176`"}], "}"}], ",", 
   RowBox[{"{", 
    RowBox[{"41", ",", "5", ",", "1.1755526047183082`"}], "}"}], ",", 
   RowBox[{"{", 
    RowBox[{"41", ",", "8", ",", "1.0896292904929623`"}], "}"}], ",", 
   RowBox[{"{", 
    RowBox[{"41", ",", "40", ",", "1.054612124428182`"}], "}"}], ",", 
   RowBox[{"{", 
    RowBox[{"42", ",", "8", ",", "1.0537883648432234`"}], "}"}], ",", 
   RowBox[{"{", 
    RowBox[{"43", ",", "39", ",", "1.06094360595312`"}], "}"}], ",", 
   RowBox[{"{", 
    RowBox[{"43", ",", "42", ",", "1.0737266528894622`"}], "}"}], ",", 
   RowBox[{"{", 
    RowBox[{"44", ",", "39", ",", "1.2423850352609764`"}], "}"}], ",", 
   RowBox[{"{", 
    RowBox[{"45", ",", "40", ",", "1.2387768689363954`"}], "}"}], ",", 
   RowBox[{"{", 
    RowBox[{"46", ",", "42", ",", "1.2400046167139323`"}], "}"}], ",", 
   RowBox[{"{", 
    RowBox[{"47", ",", "43", ",", "1.2414009073859167`"}], "}"}], ",", 
   RowBox[{"{", 
    RowBox[{"49", ",", "48", ",", "1.0733998672775653`"}], "}"}], ",", 
   RowBox[{"{", 
    RowBox[{"50", ",", "4", ",", "1.175561026473771`"}], "}"}], ",", 
   RowBox[{"{", 
    RowBox[{"50", ",", "11", ",", "1.0899707128617673`"}], "}"}], ",", 
   RowBox[{"{", 
    RowBox[{"50", ",", "49", ",", "1.0540447162807238`"}], "}"}], ",", 
   RowBox[{"{", 
    RowBox[{"51", ",", "11", ",", "1.0547943926035335`"}], "}"}], ",", 
   RowBox[{"{", 
    RowBox[{"52", ",", "48", ",", "1.0606787631343173`"}], "}"}], ",", 
   RowBox[{"{", 
    RowBox[{"52", ",", "51", ",", "1.0739230886149016`"}], "}"}], ",", 
   RowBox[{"{", 
    RowBox[{"53", ",", "48", ",", "1.241810583941931`"}], "}"}], ",", 
   RowBox[{"{", 
    RowBox[{"54", ",", "49", ",", "1.238712550530363`"}], "}"}], ",", 
   RowBox[{"{", 
    RowBox[{"55", ",", "51", ",", "1.2386499685266354`"}], "}"}], ",", 
   RowBox[{"{", 
    RowBox[{"56", ",", "52", ",", "1.2406169131218543`"}], "}"}], ",", 
   RowBox[{"{", 
    RowBox[{"58", ",", "57", ",", "1.0739600220051218`"}], "}"}], ",", 
   RowBox[{"{", 
    RowBox[{"59", ",", "2", ",", "1.1755139263900491`"}], "}"}], ",", 
   RowBox[{"{", 
    RowBox[{"59", ",", "9", ",", "1.0892648783153116`"}], "}"}], ",", 
   RowBox[{"{", 
    RowBox[{"59", ",", "58", ",", "1.0538572301329332`"}], "}"}], ",", 
   RowBox[{"{", 
    RowBox[{"60", ",", "9", ",", "1.0542901121305515`"}], "}"}], ",", 
   RowBox[{"{", 
    RowBox[{"61", ",", "57", ",", "1.0618513310624882`"}], "}"}], ",", 
   RowBox[{"{", 
    RowBox[{"61", ",", "60", ",", "1.07336090289154`"}], "}"}], ",", 
   RowBox[{"{", 
    RowBox[{"62", ",", "57", ",", "1.2401505421971444`"}], "}"}], ",", 
   RowBox[{"{", 
    RowBox[{"63", ",", "58", ",", "1.2387099429849404`"}], "}"}], ",", 
   RowBox[{"{", 
    RowBox[{"64", ",", "60", ",", "1.2374979452324664`"}], "}"}], ",", 
   RowBox[{"{", 
    RowBox[{"65", ",", "61", ",", "1.2414851060510226`"}], "}"}]}], 
  "}"}]], "Output",
 CellChangeTimes->{3.5684566182613173`*^9, 3.568456812107258*^9, 
  3.568459015328093*^9, 3.5684657050529118`*^9}],

Cell[BoxData["76"], "Output",
 CellChangeTimes->{3.5684566182613173`*^9, 3.568456812107258*^9, 
  3.568459015328093*^9, 3.5684657050685115`*^9}]
}, Open  ]],

Cell[CellGroupData[{

Cell[BoxData[
 RowBox[{" ", 
  RowBox[{
   RowBox[{
    RowBox[{"wx", "=", 
     RowBox[{"Table", "[", 
      RowBox[{
       RowBox[{"If", "[", 
        RowBox[{
         RowBox[{
          RowBox[{"u", "[", 
           RowBox[{"[", 
            RowBox[{"a", "[", 
             RowBox[{"[", 
              RowBox[{"i", ",", "1"}], "]"}], "]"}], "]"}], "]"}], 
          "\[NotEqual]", "\"\<H\>\""}], ",", 
         RowBox[{
          RowBox[{
           RowBox[{
            RowBox[{"(", 
             RowBox[{
              RowBox[{"a", "[", 
               RowBox[{"[", 
                RowBox[{"i", ",", "3"}], "]"}], "]"}], "+", 
              RowBox[{"u2", "[", 
               RowBox[{"[", 
                RowBox[{"a", "[", 
                 RowBox[{"[", 
                  RowBox[{"i", ",", "1"}], "]"}], "]"}], "]"}], "]"}]}], 
             ")"}], "/", 
            RowBox[{"(", 
             RowBox[{
              RowBox[{"u2", "[", 
               RowBox[{"[", 
                RowBox[{"a", "[", 
                 RowBox[{"[", 
                  RowBox[{"i", ",", "1"}], "]"}], "]"}], "]"}], "]"}], "+", 
              RowBox[{"2", "*", 
               RowBox[{"a", "[", 
                RowBox[{"[", 
                 RowBox[{"i", ",", "3"}], "]"}], "]"}]}], "+", 
              RowBox[{"u2", "[", 
               RowBox[{"[", 
                RowBox[{"a", "[", 
                 RowBox[{"[", 
                  RowBox[{"i", ",", "2"}], "]"}], "]"}], "]"}], "]"}]}], 
             ")"}]}], "*", 
           RowBox[{"(", 
            RowBox[{
             RowBox[{"x", "[", 
              RowBox[{"[", 
               RowBox[{"a", "[", 
                RowBox[{"[", 
                 RowBox[{"i", ",", "2"}], "]"}], "]"}], "]"}], "]"}], "-", 
             RowBox[{"x", "[", 
              RowBox[{"[", 
               RowBox[{"a", "[", 
                RowBox[{"[", 
                 RowBox[{"i", ",", "1"}], "]"}], "]"}], "]"}], "]"}]}], 
            ")"}]}], "+", 
          RowBox[{"x", "[", 
           RowBox[{"[", 
            RowBox[{"a", "[", 
             RowBox[{"[", 
              RowBox[{"i", ",", "1"}], "]"}], "]"}], "]"}], "]"}]}], ",", 
         "0"}], "]"}], ",", 
       RowBox[{"{", 
        RowBox[{"i", ",", "1", ",", "nb"}], "}"}]}], "]"}]}], ";"}], "\n", 
   RowBox[{
    RowBox[{"wy", "=", 
     RowBox[{"Table", "[", 
      RowBox[{
       RowBox[{"If", "[", 
        RowBox[{
         RowBox[{
          RowBox[{"u", "[", 
           RowBox[{"[", 
            RowBox[{"a", "[", 
             RowBox[{"[", 
              RowBox[{"i", ",", "1"}], "]"}], "]"}], "]"}], "]"}], 
          "\[NotEqual]", "\"\<H\>\""}], ",", 
         RowBox[{
          RowBox[{
           RowBox[{
            RowBox[{"(", 
             RowBox[{
              RowBox[{"a", "[", 
               RowBox[{"[", 
                RowBox[{"i", ",", "3"}], "]"}], "]"}], "+", 
              RowBox[{"u2", "[", 
               RowBox[{"[", 
                RowBox[{"a", "[", 
                 RowBox[{"[", 
                  RowBox[{"i", ",", "1"}], "]"}], "]"}], "]"}], "]"}]}], 
             ")"}], "/", 
            RowBox[{"(", 
             RowBox[{
              RowBox[{"u2", "[", 
               RowBox[{"[", 
                RowBox[{"a", "[", 
                 RowBox[{"[", 
                  RowBox[{"i", ",", "1"}], "]"}], "]"}], "]"}], "]"}], "+", 
              RowBox[{"2", "*", 
               RowBox[{"a", "[", 
                RowBox[{"[", 
                 RowBox[{"i", ",", "3"}], "]"}], "]"}]}], "+", 
              RowBox[{"u2", "[", 
               RowBox[{"[", 
                RowBox[{"a", "[", 
                 RowBox[{"[", 
                  RowBox[{"i", ",", "2"}], "]"}], "]"}], "]"}], "]"}]}], 
             ")"}]}], "*", 
           RowBox[{"(", 
            RowBox[{
             RowBox[{"y", "[", 
              RowBox[{"[", 
               RowBox[{"a", "[", 
                RowBox[{"[", 
                 RowBox[{"i", ",", "2"}], "]"}], "]"}], "]"}], "]"}], "-", 
             RowBox[{"y", "[", 
              RowBox[{"[", 
               RowBox[{"a", "[", 
                RowBox[{"[", 
                 RowBox[{"i", ",", "1"}], "]"}], "]"}], "]"}], "]"}]}], 
            ")"}]}], "+", 
          RowBox[{"y", "[", 
           RowBox[{"[", 
            RowBox[{"a", "[", 
             RowBox[{"[", 
              RowBox[{"i", ",", "1"}], "]"}], "]"}], "]"}], "]"}]}], ",", 
         "0"}], "]"}], ",", 
       RowBox[{"{", 
        RowBox[{"i", ",", "1", ",", "nb"}], "}"}]}], "]"}]}], ";", "   ", 
    RowBox[{"wz", "=", 
     RowBox[{"Table", "[", 
      RowBox[{
       RowBox[{"If", "[", 
        RowBox[{
         RowBox[{
          RowBox[{"u", "[", 
           RowBox[{"[", 
            RowBox[{"a", "[", 
             RowBox[{"[", 
              RowBox[{"i", ",", "1"}], "]"}], "]"}], "]"}], "]"}], 
          "\[NotEqual]", "\"\<H\>\""}], ",", 
         RowBox[{
          RowBox[{
           RowBox[{
            RowBox[{"(", 
             RowBox[{
              RowBox[{"a", "[", 
               RowBox[{"[", 
                RowBox[{"i", ",", "3"}], "]"}], "]"}], "+", 
              RowBox[{"u2", "[", 
               RowBox[{"[", 
                RowBox[{"a", "[", 
                 RowBox[{"[", 
                  RowBox[{"i", ",", "1"}], "]"}], "]"}], "]"}], "]"}]}], 
             ")"}], "/", 
            RowBox[{"(", 
             RowBox[{
              RowBox[{"u2", "[", 
               RowBox[{"[", 
                RowBox[{"a", "[", 
                 RowBox[{"[", 
                  RowBox[{"i", ",", "1"}], "]"}], "]"}], "]"}], "]"}], "+", 
              RowBox[{"2", "*", 
               RowBox[{"a", "[", 
                RowBox[{"[", 
                 RowBox[{"i", ",", "3"}], "]"}], "]"}]}], "+", 
              RowBox[{"u2", "[", 
               RowBox[{"[", 
                RowBox[{"a", "[", 
                 RowBox[{"[", 
                  RowBox[{"i", ",", "2"}], "]"}], "]"}], "]"}], "]"}]}], 
             ")"}]}], "*", 
           RowBox[{"(", 
            RowBox[{
             RowBox[{"z", "[", 
              RowBox[{"[", 
               RowBox[{"a", "[", 
                RowBox[{"[", 
                 RowBox[{"i", ",", "2"}], "]"}], "]"}], "]"}], "]"}], "-", 
             RowBox[{"z", "[", 
              RowBox[{"[", 
               RowBox[{"a", "[", 
                RowBox[{"[", 
                 RowBox[{"i", ",", "1"}], "]"}], "]"}], "]"}], "]"}]}], 
            ")"}]}], "+", 
          RowBox[{"z", "[", 
           RowBox[{"[", 
            RowBox[{"a", "[", 
             RowBox[{"[", 
              RowBox[{"i", ",", "1"}], "]"}], "]"}], "]"}], "]"}]}], ",", 
         "0"}], "]"}], ",", 
       RowBox[{"{", 
        RowBox[{"i", ",", "1", ",", "nb"}], "}"}]}], "]"}]}], ";"}], 
   "\[IndentingNewLine]", 
   RowBox[{
    RowBox[{"Plot7", "=", 
     RowBox[{"Table", "[", 
      RowBox[{
       RowBox[{"Graphics3D", "[", 
        RowBox[{"{", 
         RowBox[{
          RowBox[{"Darker", "[", "Gray", "]"}], ",", 
          RowBox[{"{", 
           RowBox[{
            RowBox[{"Opacity", "[", "0.3", "]"}], ",", 
            RowBox[{"If", "[", 
             RowBox[{
              RowBox[{
               RowBox[{"wx", "[", 
                RowBox[{"[", "i", "]"}], "]"}], "\[NotEqual]", "0"}], ",", 
              RowBox[{"Sphere", "[", 
               RowBox[{
                RowBox[{"{", 
                 RowBox[{
                  RowBox[{"wx", "[", 
                   RowBox[{"[", "i", "]"}], "]"}], ",", 
                  RowBox[{"wy", "[", 
                   RowBox[{"[", "i", "]"}], "]"}], ",", 
                  RowBox[{"wz", "[", 
                   RowBox[{"[", "i", "]"}], "]"}]}], "}"}], ",", 
                RowBox[{"a", "[", 
                 RowBox[{"[", 
                  RowBox[{"i", ",", "3"}], "]"}], "]"}]}], "]"}]}], "]"}]}], 
           "}"}]}], "}"}], "]"}], ",", 
       RowBox[{"{", 
        RowBox[{"i", ",", "1", ",", "nb"}], "}"}]}], "]"}]}], ";"}], 
   "\[IndentingNewLine]", "\[IndentingNewLine]", 
   RowBox[{
    RowBox[{"wx", "=", 
     RowBox[{"Table", "[", 
      RowBox[{
       RowBox[{"If", "[", 
        RowBox[{
         RowBox[{
          RowBox[{"u", "[", 
           RowBox[{"[", 
            RowBox[{"a", "[", 
             RowBox[{"[", 
              RowBox[{"i", ",", "1"}], "]"}], "]"}], "]"}], "]"}], 
          "\[Equal]", "\"\<H\>\""}], ",", 
         RowBox[{
          RowBox[{
           RowBox[{
            RowBox[{"(", 
             RowBox[{
              RowBox[{"a", "[", 
               RowBox[{"[", 
                RowBox[{"i", ",", "3"}], "]"}], "]"}], "+", 
              RowBox[{"u2", "[", 
               RowBox[{"[", 
                RowBox[{"a", "[", 
                 RowBox[{"[", 
                  RowBox[{"i", ",", "2"}], "]"}], "]"}], "]"}], "]"}]}], 
             ")"}], "/", 
            RowBox[{"(", 
             RowBox[{
              RowBox[{"u2", "[", 
               RowBox[{"[", 
                RowBox[{"a", "[", 
                 RowBox[{"[", 
                  RowBox[{"i", ",", "1"}], "]"}], "]"}], "]"}], "]"}], "+", 
              RowBox[{"a", "[", 
               RowBox[{"[", 
                RowBox[{"i", ",", "3"}], "]"}], "]"}], "+", 
              RowBox[{"u2", "[", 
               RowBox[{"[", 
                RowBox[{"a", "[", 
                 RowBox[{"[", 
                  RowBox[{"i", ",", "2"}], "]"}], "]"}], "]"}], "]"}]}], 
             ")"}]}], "*", 
           RowBox[{"(", 
            RowBox[{
             RowBox[{"x", "[", 
              RowBox[{"[", 
               RowBox[{"a", "[", 
                RowBox[{"[", 
                 RowBox[{"i", ",", "1"}], "]"}], "]"}], "]"}], "]"}], "-", 
             RowBox[{"x", "[", 
              RowBox[{"[", 
               RowBox[{"a", "[", 
                RowBox[{"[", 
                 RowBox[{"i", ",", "2"}], "]"}], "]"}], "]"}], "]"}]}], 
            ")"}]}], "+", 
          RowBox[{"x", "[", 
           RowBox[{"[", 
            RowBox[{"a", "[", 
             RowBox[{"[", 
              RowBox[{"i", ",", "2"}], "]"}], "]"}], "]"}], "]"}]}], ",", 
         "0"}], "]"}], ",", 
       RowBox[{"{", 
        RowBox[{"i", ",", "1", ",", "nb"}], "}"}]}], "]"}]}], ";"}], "\n", 
   RowBox[{
    RowBox[{"wy", "=", 
     RowBox[{"Table", "[", 
      RowBox[{
       RowBox[{"If", "[", 
        RowBox[{
         RowBox[{
          RowBox[{"u", "[", 
           RowBox[{"[", 
            RowBox[{"a", "[", 
             RowBox[{"[", 
              RowBox[{"i", ",", "1"}], "]"}], "]"}], "]"}], "]"}], 
          "\[Equal]", "\"\<H\>\""}], ",", 
         RowBox[{
          RowBox[{
           RowBox[{
            RowBox[{"(", 
             RowBox[{
              RowBox[{"a", "[", 
               RowBox[{"[", 
                RowBox[{"i", ",", "3"}], "]"}], "]"}], "+", 
              RowBox[{"u2", "[", 
               RowBox[{"[", 
                RowBox[{"a", "[", 
                 RowBox[{"[", 
                  RowBox[{"i", ",", "2"}], "]"}], "]"}], "]"}], "]"}]}], 
             ")"}], "/", 
            RowBox[{"(", 
             RowBox[{
              RowBox[{"u2", "[", 
               RowBox[{"[", 
                RowBox[{"a", "[", 
                 RowBox[{"[", 
                  RowBox[{"i", ",", "1"}], "]"}], "]"}], "]"}], "]"}], "+", 
              RowBox[{"a", "[", 
               RowBox[{"[", 
                RowBox[{"i", ",", "3"}], "]"}], "]"}], "+", 
              RowBox[{"u2", "[", 
               RowBox[{"[", 
                RowBox[{"a", "[", 
                 RowBox[{"[", 
                  RowBox[{"i", ",", "2"}], "]"}], "]"}], "]"}], "]"}]}], 
             ")"}]}], "*", 
           RowBox[{"(", 
            RowBox[{
             RowBox[{"y", "[", 
              RowBox[{"[", 
               RowBox[{"a", "[", 
                RowBox[{"[", 
                 RowBox[{"i", ",", "1"}], "]"}], "]"}], "]"}], "]"}], "-", 
             RowBox[{"y", "[", 
              RowBox[{"[", 
               RowBox[{"a", "[", 
                RowBox[{"[", 
                 RowBox[{"i", ",", "2"}], "]"}], "]"}], "]"}], "]"}]}], 
            ")"}]}], "+", 
          RowBox[{"y", "[", 
           RowBox[{"[", 
            RowBox[{"a", "[", 
             RowBox[{"[", 
              RowBox[{"i", ",", "2"}], "]"}], "]"}], "]"}], "]"}]}], ",", 
         "0"}], "]"}], ",", 
       RowBox[{"{", 
        RowBox[{"i", ",", "1", ",", "nb"}], "}"}]}], "]"}]}], ";"}], "\n", 
   RowBox[{
    RowBox[{"wz", "=", 
     RowBox[{"Table", "[", 
      RowBox[{
       RowBox[{"If", "[", 
        RowBox[{
         RowBox[{
          RowBox[{"u", "[", 
           RowBox[{"[", 
            RowBox[{"a", "[", 
             RowBox[{"[", 
              RowBox[{"i", ",", "1"}], "]"}], "]"}], "]"}], "]"}], 
          "\[Equal]", "\"\<H\>\""}], ",", 
         RowBox[{
          RowBox[{
           RowBox[{
            RowBox[{"(", 
             RowBox[{
              RowBox[{"a", "[", 
               RowBox[{"[", 
                RowBox[{"i", ",", "3"}], "]"}], "]"}], "+", 
              RowBox[{"u2", "[", 
               RowBox[{"[", 
                RowBox[{"a", "[", 
                 RowBox[{"[", 
                  RowBox[{"i", ",", "2"}], "]"}], "]"}], "]"}], "]"}]}], 
             ")"}], "/", 
            RowBox[{"(", 
             RowBox[{
              RowBox[{"u2", "[", 
               RowBox[{"[", 
                RowBox[{"a", "[", 
                 RowBox[{"[", 
                  RowBox[{"i", ",", "1"}], "]"}], "]"}], "]"}], "]"}], "+", 
              RowBox[{"a", "[", 
               RowBox[{"[", 
                RowBox[{"i", ",", "3"}], "]"}], "]"}], "+", 
              RowBox[{"u2", "[", 
               RowBox[{"[", 
                RowBox[{"a", "[", 
                 RowBox[{"[", 
                  RowBox[{"i", ",", "2"}], "]"}], "]"}], "]"}], "]"}]}], 
             ")"}]}], "*", 
           RowBox[{"(", 
            RowBox[{
             RowBox[{"z", "[", 
              RowBox[{"[", 
               RowBox[{"a", "[", 
                RowBox[{"[", 
                 RowBox[{"i", ",", "1"}], "]"}], "]"}], "]"}], "]"}], "-", 
             RowBox[{"z", "[", 
              RowBox[{"[", 
               RowBox[{"a", "[", 
                RowBox[{"[", 
                 RowBox[{"i", ",", "2"}], "]"}], "]"}], "]"}], "]"}]}], 
            ")"}]}], "+", 
          RowBox[{"z", "[", 
           RowBox[{"[", 
            RowBox[{"a", "[", 
             RowBox[{"[", 
              RowBox[{"i", ",", "2"}], "]"}], "]"}], "]"}], "]"}]}], ",", 
         "0"}], "]"}], ",", 
       RowBox[{"{", 
        RowBox[{"i", ",", "1", ",", "nb"}], "}"}]}], "]"}]}], ";"}], "\n", 
   RowBox[{
    RowBox[{"Plot8", "=", 
     RowBox[{"Table", "[", 
      RowBox[{
       RowBox[{"Graphics3D", "[", 
        RowBox[{"{", 
         RowBox[{
          RowBox[{"Opacity", "[", "0.5", "]"}], ",", 
          RowBox[{"If", "[", 
           RowBox[{
            RowBox[{
             RowBox[{"wx", "[", 
              RowBox[{"[", "i", "]"}], "]"}], "\[NotEqual]", "0"}], ",", 
            RowBox[{"Sphere", "[", 
             RowBox[{
              RowBox[{"{", 
               RowBox[{
                RowBox[{"wx", "[", 
                 RowBox[{"[", "i", "]"}], "]"}], ",", 
                RowBox[{"wy", "[", 
                 RowBox[{"[", "i", "]"}], "]"}], ",", 
                RowBox[{"wz", "[", 
                 RowBox[{"[", "i", "]"}], "]"}]}], "}"}], ",", 
              RowBox[{"a", "[", 
               RowBox[{"[", 
                RowBox[{"i", ",", "3"}], "]"}], "]"}]}], "]"}]}], "]"}]}], 
         "}"}], "]"}], ",", 
       RowBox[{"{", 
        RowBox[{"i", ",", "1", ",", "nb"}], "}"}]}], "]"}]}], ";"}], 
   "\[IndentingNewLine]", "\[IndentingNewLine]", 
   RowBox[{
    RowBox[{"Plot9", "=", " ", 
     RowBox[{"Table", "[", 
      RowBox[{
       RowBox[{"Graphics3D", "[", 
        RowBox[{"{", 
         RowBox[{
          RowBox[{"Darker", "[", 
           RowBox[{"Red", ",", "0.8"}], "]"}], ",", 
          RowBox[{"Cylinder", "[", 
           RowBox[{
            RowBox[{"{", 
             RowBox[{
              RowBox[{"{", 
               RowBox[{
                RowBox[{"x", "[", 
                 RowBox[{"[", 
                  RowBox[{"a", "[", 
                   RowBox[{"[", 
                    RowBox[{"i", ",", "1"}], "]"}], "]"}], "]"}], "]"}], ",", 
                RowBox[{"y", "[", 
                 RowBox[{"[", 
                  RowBox[{"a", "[", 
                   RowBox[{"[", 
                    RowBox[{"i", ",", "1"}], "]"}], "]"}], "]"}], "]"}], ",", 
                RowBox[{"z", "[", 
                 RowBox[{"[", 
                  RowBox[{"a", "[", 
                   RowBox[{"[", 
                    RowBox[{"i", ",", "1"}], "]"}], "]"}], "]"}], "]"}]}], 
               "}"}], ",", 
              RowBox[{"{", 
               RowBox[{
                RowBox[{"x", "[", 
                 RowBox[{"[", 
                  RowBox[{"a", "[", 
                   RowBox[{"[", 
                    RowBox[{"i", ",", "2"}], "]"}], "]"}], "]"}], "]"}], ",", 
                RowBox[{"y", "[", 
                 RowBox[{"[", 
                  RowBox[{"a", "[", 
                   RowBox[{"[", 
                    RowBox[{"i", ",", "2"}], "]"}], "]"}], "]"}], "]"}], ",", 
                RowBox[{"z", "[", 
                 RowBox[{"[", 
                  RowBox[{"a", "[", 
                   RowBox[{"[", 
                    RowBox[{"i", ",", "2"}], "]"}], "]"}], "]"}], "]"}]}], 
               "}"}]}], "}"}], ",", "0.05"}], "]"}]}], "}"}], "]"}], ",", 
       RowBox[{"{", 
        RowBox[{"i", ",", "1", ",", "nb"}], "}"}]}], "]"}]}], ";"}], 
   "\[IndentingNewLine]", "\[IndentingNewLine]", 
   RowBox[{"Show", "[", 
    RowBox[{"Plot1", ",", "Plot7", ",", "Plot8", ",", "Plot9", ",", 
     RowBox[{"{", 
      RowBox[{"AspectRatio", "\[Rule]", "Automatic"}], "}"}]}], 
    "]"}]}]}]], "Input",
 CellChangeTimes->{{3.5681365021632137`*^9, 3.5681365171392403`*^9}, {
   3.568136560351316*^9, 3.5681365863097615`*^9}, {3.5681369135895367`*^9, 
   3.5681369265999594`*^9}, {3.568137821916732*^9, 3.5681378378443604`*^9}, {
   3.5682072492149415`*^9, 3.5682072529901485`*^9}, 3.568209802830227*^9, {
   3.5682216503836985`*^9, 3.5682217583046885`*^9}, {3.5682217912831464`*^9, 
   3.568221843465238*^9}, {3.5682219760654707`*^9, 3.5682221133457117`*^9}, {
   3.568222159615393*^9, 3.5682221693498106`*^9}, {3.5682222565227633`*^9, 
   3.5682222578487663`*^9}, 3.5682224736283445`*^9, 3.5682227227607822`*^9, 
   3.5682227558640404`*^9, {3.568222818810151*^9, 3.5682228486062036`*^9}, {
   3.5682230057764797`*^9, 3.5682230079916835`*^9}, {3.568223041952943*^9, 
   3.5682230548229656`*^9}, 3.5682232619601297`*^9, 3.5682233000709963`*^9, {
   3.568223536645412*^9, 3.5682235381118145`*^9}, {3.568223591151908*^9, 
   3.568223591526308*^9}, {3.5682236491528096`*^9, 3.568223657483224*^9}, {
   3.568223713222122*^9, 3.5682237532361927`*^9}, {3.568223800379475*^9, 
   3.568223827648323*^9}, {3.5682238887380304`*^9, 3.5682238893152313`*^9}, {
   3.5682240287170763`*^9, 3.5682240612431335`*^9}, 3.5682241088076167`*^9, {
   3.568224198772975*^9, 3.5682242396450467`*^9}, {3.568224282170721*^9, 
   3.5682243185031853`*^9}, {3.568224437890195*^9, 3.568224439590598*^9}, {
   3.568224572253231*^9, 3.5682245867144566`*^9}, {3.5682247081762695`*^9, 
   3.568224733557514*^9}, {3.56822480520844*^9, 3.5682248433505073`*^9}, {
   3.568224884206979*^9, 3.5682248959069996`*^9}, {3.568224982830352*^9, 
   3.5682250047639904`*^9}, {3.56822503870965*^9, 3.5682250803305235`*^9}, {
   3.5682251223413973`*^9, 3.568225141451431*^9}, {3.568225234177994*^9, 
   3.5682252929588966`*^9}, {3.5682253775890455`*^9, 3.568225482140429*^9}, {
   3.56822551694409*^9, 3.5682255297205124`*^9}, {3.568225573197789*^9, 
   3.5682255809666023`*^9}, 3.568225660698343*^9, 3.5682257301964645`*^9, {
   3.568225765078126*^9, 3.5682257828933573`*^9}, {3.568225927026843*^9, 
   3.568225927416844*^9}, {3.568267062420238*^9, 3.568267081358671*^9}, {
   3.568267188328059*^9, 3.5682672830358257`*^9}, {3.5682676367040462`*^9, 
   3.568267747979042*^9}, 3.5682678404716043`*^9, 3.568267882030078*^9, {
   3.5682679252577534`*^9, 3.568267996612279*^9}, {3.5682680488879704`*^9, 
   3.568268061133992*^9}, {3.568268100914062*^9, 3.5682681150944867`*^9}, {
   3.5682681672609787`*^9, 3.5682681709113846`*^9}, {3.568268272904364*^9, 
   3.5682683182536435`*^9}, {3.5682685202739983`*^9, 3.568268599194537*^9}, {
   3.5682686348873997`*^9, 3.568268637773405*^9}, {3.5682686944951043`*^9, 
   3.568268872273017*^9}, {3.5682689420207396`*^9, 3.568269016947671*^9}, {
   3.5682695040741262`*^9, 3.568269601153097*^9}, {3.5682696652380095`*^9, 
   3.5682696728352227`*^9}, {3.5682697489633565`*^9, 
   3.5682698308635006`*^9}, {3.568271156491429*^9, 3.568271160063835*^9}, {
   3.568271244927984*^9, 3.568271369010602*^9}, {3.5682716250070515`*^9, 
   3.5682717312276382`*^9}, {3.5682717843301315`*^9, 
   3.5682718576814604`*^9}, {3.568271940673606*^9, 3.5682720536490045`*^9}, {
   3.5682722259669075`*^9, 3.5682723223126764`*^9}, {3.568272370813162*^9, 
   3.568272411466833*^9}, {3.5682725893539457`*^9, 3.568272622238803*^9}, {
   3.5682726936713285`*^9, 3.5682726960113325`*^9}, {3.568272741079812*^9, 
   3.56827275143823*^9}, {3.5682729218373294`*^9, 3.568272991070251*^9}, {
   3.5682734285574193`*^9, 3.5682734302890224`*^9}, {3.5682734898811274`*^9, 
   3.5682735111595645`*^9}, {3.5682736115925407`*^9, 
   3.5682736313577757`*^9}, {3.5682738601945777`*^9, 3.568273987272401*^9}, {
   3.5682763944346285`*^9, 3.5682764313910933`*^9}, 3.5682765128232365`*^9, {
   3.5682766527398825`*^9, 3.568276660976697*^9}, {3.5682774496048822`*^9, 
   3.568277461663703*^9}, {3.5682852978767633`*^9, 3.568285382460112*^9}, {
   3.568285675366227*^9, 3.568285707861084*^9}, {3.568285985822372*^9, 
   3.568285991485182*^9}, {3.568286358600627*^9, 3.568286369505046*^9}, {
   3.5682869898869357`*^9, 3.568287001134555*^9}, {3.568287775207915*^9, 
   3.568287810089576*^9}, {3.5684340013118143`*^9, 3.568434020406248*^9}, {
   3.568434057893114*^9, 3.568434066644729*^9}, {3.56843440309052*^9, 
   3.568434404634923*^9}, {3.5684350341016283`*^9, 3.5684350396708384`*^9}, {
   3.568435304325303*^9, 3.5684353124685173`*^9}, 3.56843766534265*^9, {
   3.568455231668482*^9, 3.5684552332440844`*^9}, {3.5684553122738233`*^9, 
   3.5684554605832834`*^9}, {3.5684554928129406`*^9, 
   3.5684555532942467`*^9}, {3.568455588831109*^9, 3.568455671495654*^9}, {
   3.5684557261269503`*^9, 3.5684557262985506`*^9}, {3.568455949737743*^9, 
   3.5684559614065633`*^9}, {3.568456133147265*^9, 3.568456137874073*^9}, {
   3.5684561721161337`*^9, 3.5684562189474154`*^9}, {3.5684562525030746`*^9, 
   3.568456280926325*^9}, {3.568456490075892*^9, 3.568456519856344*^9}, {
   3.5684565986364827`*^9, 3.5684566031292906`*^9}, 3.5684568070060487`*^9, 
   3.5684590069976788`*^9, {3.5684656822300715`*^9, 3.5684656973308983`*^9}}],

Cell[BoxData[
 Graphics3DBox[{SphereBox[{0., 0., -0.0018897}, 0.2555], 
   SphereBox[{0.0056691, -2.4471615, -1.6648257}, 0.2555], 
   SphereBox[{0.0018897, 2.3848013999999997`, -1.7555313000000001`}, 0.2555], 
   SphereBox[{2.4150366, 0.0359043, 1.7120682}, 0.2555], 
   SphereBox[{-2.418816, 0.0302352, 1.7026197}, 0.2555], 
   SphereBox[{3.7529442, 2.4358232999999996`, 0.9108354}, 0.2555], 
   SphereBox[{3.7586133, -2.3904704999999997`, 1.0034307}, 0.2555], 
   SphereBox[{-2.4055880999999997`, -3.7775103, -0.8862692999999999}, 0.2555],
    SphereBox[{0.0075588, 1.2623196, -4.3897731}, 0.2555], 
   SphereBox[{-3.760503, 2.4263748, 0.8976074999999999}, 0.2555], 
   SphereBox[{-1.3530251999999998`, 0.08125709999999998, 4.3576482}, 0.2555], 
   SphereBox[{-5.6426442, 6.935199, -1.0714598999999998`}, 0.2555], 
   SphereBox[{-6.9616548, 5.6520927, 0.8125709999999999}, 0.2555], 
   SphereBox[{-6.0243636, 3.3750042, 1.814112}, 0.2555], 
   SphereBox[{-2.4150366, 3.7359369, -1.0279968}, 0.2555], 
   SphereBox[{-3.3466587, 5.9790108, -2.0106408}, 0.2555], 
   SphereBox[{-6.389075699999999, 8.6945097, -1.8330089999999999`}, 0.1], 
   SphereBox[{-8.7360831, 6.411752099999999, 1.5230982}, 0.1], 
   SphereBox[{-7.0655883, 2.3885807999999997`, 3.2842986}, 0.1], 
   SphereBox[{-2.3318898, 6.990000299999999, -3.4808274}, 0.1], 
   SphereBox[{5.6313059999999995`, 6.948426899999999, -1.0506732}, 0.2555], 
   SphereBox[{3.3409896, 5.9865696, -1.9974128999999998`}, 0.2555], 
   SphereBox[{2.4093674999999997`, 3.741606, -1.0185483}, 0.2555], 
   SphereBox[{6.009246, 3.3901217999999997`, 1.8386780999999999`}, 0.2555], 
   SphereBox[{6.9465372, 5.6691, 0.8390268}, 0.2555], 
   SphereBox[{6.3758478, 8.7096273, -1.8084429}, 0.1], 
   SphereBox[{2.3262207, 6.997559099999999, -3.4713789}, 0.1], 
   SphereBox[{7.0466913, 2.4055880999999997`, 3.3126440999999995`}, 0.1], 
   SphereBox[{8.717186100000001, 6.4325388, 1.5571127999999999`}, 0.1], 
   SphereBox[{5.646423599999999, -6.9711033, -0.7861151999999999}, 0.2555], 
   SphereBox[{3.3542175, -6.0508194, -1.7687592}, 0.2555], 
   SphereBox[{2.418816, -3.7718412, -0.8768208000000001}, 0.2555], 
   SphereBox[{6.0168048, -3.3050853, 1.965288}, 0.2555], 
   SphereBox[{6.9578754, -5.6180781, 1.0544526}, 0.2555], 
   SphereBox[{6.3928551, -8.7587595, -1.4758557}, 0.1], 
   SphereBox[{2.3413383000000003`, -7.1184999, -3.2030415}, 0.1], 
   SphereBox[{7.0523604, -2.2619709, 3.3995702999999997`}, 0.1], 
   SphereBox[{8.7285243, -6.349392, 1.7989943999999998`}, 0.1], 
   SphereBox[{-6.948426899999999, -5.6331957, 1.0261071}, 0.2555], 
   SphereBox[{-6.0149151, -3.3183132, 1.9426116}, 0.2555], 
   SphereBox[{-3.7548339, -2.3980292999999997`, 0.9883131}, 0.2555], 
   SphereBox[{-3.3334308, -6.0564884999999995`, -1.7819870999999998`}, 
    0.2555], SphereBox[{-5.6275266, -6.982441499999999, -0.8087915999999999}, 
    0.2555], SphereBox[{-8.7228552, -6.368289, 1.7649798}, 0.1], 
   SphereBox[{-7.0580295, -2.2789782, 3.3750042}, 0.1], 
   SphereBox[{-2.3148825, -7.1222793, -3.2143797}, 0.1], 
   SphereBox[{-6.370178699999999, -8.770097699999999, -1.5042012}, 0.1], 
   SphereBox[{1.3001135999999998`, 0.17007299999999997`, 8.9061561}, 0.2555], 
   SphereBox[{2.6606975999999998`, 0.1284996, 6.6233984999999995`}, 0.2555], 
   SphereBox[{1.3379075999999999`, 0.08503649999999999, 4.3633173}, 0.2555], 
   SphereBox[{-2.6852637, 0.1228305, 6.61395}, 0.2555], 
   SphereBox[{-1.3322384999999999`, 0.16629359999999999`, 8.9023767}, 0.2555],
    SphereBox[{2.324331, 0.2059773, 10.6900329}, 0.1], 
   SphereBox[{4.7148015, 0.132279, 6.6441852}, 0.1], 
   SphereBox[{-4.7393676, 0.11905109999999999`, 6.6271779}, 0.1], 
   SphereBox[{-2.3640147, 0.1984185, 10.6805844}, 0.1], 
   SphereBox[{0.020786699999999998`, -1.4853042, -8.883479699999999}, 0.2555],
    SphereBox[{0.0170073, -2.796756, -6.5704869}, 0.2555], 
   SphereBox[{0.0113382, -1.4267235, -4.3387512}, 0.2555], 
   SphereBox[{0.0094485, 2.5473156, -6.6725307}, 0.2555], 
   SphereBox[{0.0170073, 1.1489376, -8.9326119}, 0.2555], 
   SphereBox[{0.024566099999999997`, -2.5454258999999997`, -10.6446801}, 0.1],
    SphereBox[{0.018897, -4.850859900000001, -6.5497002}, 0.1], 
   SphereBox[{0.0075588, 4.5995298, -6.7292217}, 0.1], 
   SphereBox[{0.018897, 2.1429197999999996`, -10.733495999999999`}, 0.1], 
   {RGBColor[
    0.33333333333333337`, 0.33333333333333337`, 0.33333333333333337`], 
    {Opacity[0.3], 
     SphereBox[{0.00283455, -1.22358075, -0.8333577}, 1.2238569283537577`]}}, 
   {RGBColor[
    0.33333333333333337`, 0.33333333333333337`, 0.33333333333333337`], 
    {Opacity[0.3], 
     SphereBox[{0.00094485, 1.1924006999999999`, -0.8787105000000001}, 
      1.2245794024019967`]}}, 
   {RGBColor[
    0.33333333333333337`, 0.33333333333333337`, 0.33333333333333337`], 
    {Opacity[0.3], 
     SphereBox[{1.2075183, 0.01795215, 0.85508925}, 1.22532262451234]}}, 
   {RGBColor[
    0.33333333333333337`, 0.33333333333333337`, 0.33333333333333337`], 
    {Opacity[0.3], 
     SphereBox[{-1.2094080000000003`, 0.015117600000000002`, 
      0.8503650000000001}, 1.224106138797028]}}, 
   {RGBColor[
    0.33333333333333337`, 0.33333333333333337`, 0.33333333333333337`], 
    {Opacity[0.3], 
     SphereBox[{3.0839904000000002`, 1.2358637999999997`, 1.3114518}, 
      1.175546990187132]}}, 
   {RGBColor[
    0.33333333333333337`, 0.33333333333333337`, 0.33333333333333337`], 
    {Opacity[0.3], 
     SphereBox[{3.08682495, -1.1772831, 1.35774945}, 1.175815839120089]}}, 
   {RGBColor[
    0.33333333333333337`, 0.33333333333333337`, 0.33333333333333337`], 
    {Opacity[0.3], 
     SphereBox[{-1.1999594999999998`, -3.1123358999999997`, -1.2755475}, 
      1.1754209693580422`]}}, 
   {RGBColor[
    0.33333333333333337`, 0.33333333333333337`, 0.33333333333333337`], 
    {Opacity[0.3], 
     SphereBox[{0.00472425, 1.8235605, -3.0726522000000003`}, 
      1.1762146530378608`]}}, 
   {RGBColor[
    0.33333333333333337`, 0.33333333333333337`, 0.33333333333333337`], 
    {Opacity[0.3], 
     SphereBox[{-3.0896595, 1.228305, 1.3001136}, 1.1753785440076667`]}}, 
   {RGBColor[
    0.33333333333333337`, 0.33333333333333337`, 0.33333333333333337`], 
    {Opacity[0.3], 
     SphereBox[{-1.8859206, 0.055746149999999994`, 3.03013395}, 
      1.1752069580679771`]}}, 
   {RGBColor[
    0.33333333333333337`, 0.33333333333333337`, 0.33333333333333337`], 
    {Opacity[0.3], 
     SphereBox[{-6.3021495000000005`, 6.29364585, -0.12944444999999993`}, 
      1.0612880592721496`]}}, 
   {RGBColor[
    0.33333333333333337`, 0.33333333333333337`, 0.33333333333333337`], 
    {Opacity[0.3], 
     SphereBox[{-4.8924333, 2.9006895, 1.35585975}, 1.0545518170378767`]}}, 
   {RGBColor[
    0.33333333333333337`, 0.33333333333333337`, 0.33333333333333337`], 
    {Opacity[0.3], 
     SphereBox[{-6.4930091999999995`, 4.51354845, 1.3133415}, 
      1.0736662052872366`]}}, 
   {RGBColor[
    0.33333333333333337`, 0.33333333333333337`, 0.33333333333333337`], 
    {Opacity[0.3], 
     SphereBox[{-1.20657345, 3.0603691499999996`, -1.39176405}, 
      1.1759683307431386`]}}, 
   {RGBColor[
    0.33333333333333337`, 0.33333333333333337`, 0.33333333333333337`], 
    {Opacity[0.3], 
     SphereBox[{-3.0877698000000002`, 3.08115585, -0.06519465000000002}, 
      1.089229029160137]}}, 
   {RGBColor[
    0.33333333333333337`, 0.33333333333333337`, 0.33333333333333337`], 
    {Opacity[0.3], 
     SphereBox[{-4.49465145, 6.4571049, -1.54105035}, 1.0737766879918476`]}}, 
   {RGBColor[
    0.33333333333333337`, 0.33333333333333337`, 0.33333333333333337`], 
    {Opacity[0.3], 
     SphereBox[{-2.8808476499999998`, 4.85747385, -1.5193188}, 
      1.0545467061144822`]}}, 
   {RGBColor[
    0.33333333333333337`, 0.33333333333333337`, 0.33333333333333337`], 
    {Opacity[0.3]}}, 
   {RGBColor[
    0.33333333333333337`, 0.33333333333333337`, 0.33333333333333337`], 
    {Opacity[0.3]}}, 
   {RGBColor[
    0.33333333333333337`, 0.33333333333333337`, 0.33333333333333337`], 
    {Opacity[0.3]}}, 
   {RGBColor[
    0.33333333333333337`, 0.33333333333333337`, 0.33333333333333337`], 
    {Opacity[0.3]}}, 
   {RGBColor[
    0.33333333333333337`, 0.33333333333333337`, 0.33333333333333337`], 
    {Opacity[0.3], 
     SphereBox[{4.4861477999999995`, 6.46749825, -1.52404305}, 
      1.0736947503308476`]}}, 
   {RGBColor[
    0.33333333333333337`, 0.33333333333333337`, 0.33333333333333337`], 
    {Opacity[0.3], 
     SphereBox[{1.2056285999999998`, 3.0632037, -1.3870398000000002`}, 
      1.1745360154872846`]}}, 
   {RGBColor[
    0.33333333333333337`, 0.33333333333333337`, 0.33333333333333337`], 
    {Opacity[0.3], 
     SphereBox[{3.08115585, 3.08871465, -0.053856450000000056`}, 
      1.0891921831991764`]}}, 
   {RGBColor[
    0.33333333333333337`, 0.33333333333333337`, 0.33333333333333337`], 
    {Opacity[0.3], 
     SphereBox[{2.8751785499999998`, 4.8640878, -1.5079805999999998`}, 
      1.0546485800918277`]}}, 
   {RGBColor[
    0.33333333333333337`, 0.33333333333333337`, 0.33333333333333337`], 
    {Opacity[0.3], 
     SphereBox[{4.8810951, 2.9129725499999997`, 1.37475675}, 
      1.0543163531320698`]}}, 
   {RGBColor[
    0.33333333333333337`, 0.33333333333333337`, 0.33333333333333337`], 
    {Opacity[0.3], 
     SphereBox[{6.2889216, 6.30876345, -0.1058232}, 1.061454490151145]}}, 
   {RGBColor[
    0.33333333333333337`, 0.33333333333333337`, 0.33333333333333337`], 
    {Opacity[0.3], 
     SphereBox[{6.4778915999999995`, 4.5296109, 1.3388524499999999`}, 
      1.0741201667454103`]}}, 
   {RGBColor[
    0.33333333333333337`, 0.33333333333333337`, 0.33333333333333337`], 
    {Opacity[0.3]}}, 
   {RGBColor[
    0.33333333333333337`, 0.33333333333333337`, 0.33333333333333337`], 
    {Opacity[0.3]}}, 
   {RGBColor[
    0.33333333333333337`, 0.33333333333333337`, 0.33333333333333337`], 
    {Opacity[0.3]}}, 
   {RGBColor[
    0.33333333333333337`, 0.33333333333333337`, 0.33333333333333337`], 
    {Opacity[0.3]}}, 
   {RGBColor[
    0.33333333333333337`, 0.33333333333333337`, 0.33333333333333337`], 
    {Opacity[0.3], 
     SphereBox[{4.50032055, -6.5109613500000005`, -1.2774372}, 
      1.073665197803909]}}, 
   {RGBColor[
    0.33333333333333337`, 0.33333333333333337`, 0.33333333333333337`], 
    {Opacity[0.3], 
     SphereBox[{1.2122425500000003`, -3.10950135, -1.2708232499999998`}, 
      1.176195322947214]}}, 
   {RGBColor[
    0.33333333333333337`, 0.33333333333333337`, 0.33333333333333337`], 
    {Opacity[0.3], 
     SphereBox[{3.08871465, -3.08115585, 0.06330494999999992}, 
      1.0897311622132113`]}}, 
   {RGBColor[
    0.33333333333333337`, 0.33333333333333337`, 0.33333333333333337`], 
    {Opacity[0.3], 
     SphereBox[{2.88651675, -4.9113302999999995`, -1.3227900000000001`}, 
      1.0544877586901384`]}}, 
   {RGBColor[
    0.33333333333333337`, 0.33333333333333337`, 0.33333333333333337`], 
    {Opacity[0.3], 
     SphereBox[{4.88770905, -2.8477778999999996`, 1.48435935}, 
      1.05418684698047]}}, 
   {RGBColor[
    0.33333333333333337`, 0.33333333333333337`, 0.33333333333333337`], 
    {Opacity[0.3], 
     SphereBox[{6.3021495, -6.2945907000000005`, 0.13416870000000003`}, 
      1.0615300719758758`]}}, 
   {RGBColor[
    0.33333333333333337`, 0.33333333333333337`, 0.33333333333333337`], 
    {Opacity[0.3], 
     SphereBox[{6.4873401, -4.4615817, 1.5098703}, 1.073519440502034]}}, 
   {RGBColor[
    0.33333333333333337`, 0.33333333333333337`, 0.33333333333333337`], 
    {Opacity[0.3]}}, 
   {RGBColor[
    0.33333333333333337`, 0.33333333333333337`, 0.33333333333333337`], 
    {Opacity[0.3]}}, 
   {RGBColor[
    0.33333333333333337`, 0.33333333333333337`, 0.33333333333333337`], 
    {Opacity[0.3]}}, 
   {RGBColor[
    0.33333333333333337`, 0.33333333333333337`, 0.33333333333333337`], 
    {Opacity[0.3]}}, 
   {RGBColor[
    0.33333333333333337`, 0.33333333333333337`, 0.33333333333333337`], 
    {Opacity[0.3], 
     SphereBox[{-6.4816709999999995`, -4.47575445, 1.48435935}, 
      1.0739835245374176`]}}, 
   {RGBColor[
    0.33333333333333337`, 0.33333333333333337`, 0.33333333333333337`], 
    {Opacity[0.3], 
     SphereBox[{-3.08682495, -1.18389705, 1.3454664}, 1.1755526047183082`]}}, 
   {RGBColor[
    0.33333333333333337`, 0.33333333333333337`, 0.33333333333333337`], 
    {Opacity[0.3], 
     SphereBox[{-3.080211, -3.0877698, 0.051021900000000064`}, 
      1.0896292904929623`]}}, 
   {RGBColor[
    0.33333333333333337`, 0.33333333333333337`, 0.33333333333333337`], 
    {Opacity[0.3], 
     SphereBox[{-4.8848745, -2.85817125, 1.4654623500000001`}, 
      1.054612124428182]}}, 
   {RGBColor[
    0.33333333333333337`, 0.33333333333333337`, 0.33333333333333337`], 
    {Opacity[0.3], 
     SphereBox[{-2.86950945, -4.9169994, -1.3341281999999999`}, 
      1.0537883648432234`]}}, 
   {RGBColor[
    0.33333333333333337`, 0.33333333333333337`, 0.33333333333333337`], 
    {Opacity[0.3], 
     SphereBox[{-6.28797675, -6.307818599999999, 0.10865775}, 
      1.06094360595312]}}, 
   {RGBColor[
    0.33333333333333337`, 0.33333333333333337`, 0.33333333333333337`], 
    {Opacity[0.3], 
     SphereBox[{-4.4804787, -6.519464999999999, -1.2953893499999998`}, 
      1.0737266528894622`]}}, 
   {RGBColor[
    0.33333333333333337`, 0.33333333333333337`, 0.33333333333333337`], 
    {Opacity[0.3]}}, 
   {RGBColor[
    0.33333333333333337`, 0.33333333333333337`, 0.33333333333333337`], 
    {Opacity[0.3]}}, 
   {RGBColor[
    0.33333333333333337`, 0.33333333333333337`, 0.33333333333333337`], 
    {Opacity[0.3]}}, 
   {RGBColor[
    0.33333333333333337`, 0.33333333333333337`, 0.33333333333333337`], 
    {Opacity[0.3]}}, 
   {RGBColor[
    0.33333333333333337`, 0.33333333333333337`, 0.33333333333333337`], 
    {Opacity[0.3], 
     SphereBox[{1.9804055999999997`, 0.14928629999999998`, 7.7647773}, 
      1.0733998672775653`]}}, 
   {RGBColor[
    0.33333333333333337`, 0.33333333333333337`, 0.33333333333333337`], 
    {Opacity[0.3], 
     SphereBox[{1.8764721, 0.060470399999999994`, 3.03769275}, 
      1.175561026473771]}}, 
   {RGBColor[
    0.33333333333333337`, 0.33333333333333337`, 0.33333333333333337`], 
    {Opacity[0.3], 
     SphereBox[{-0.007558799999999977, 0.08314679999999999, 4.36048275}, 
      1.0899707128617673`]}}, 
   {RGBColor[
    0.33333333333333337`, 0.33333333333333337`, 0.33333333333333337`], 
    {Opacity[0.3], 
     SphereBox[{1.9993025999999998`, 0.10676804999999999`, 
      5.4933578999999995`}, 1.0540447162807238`]}}, 
   {RGBColor[
    0.33333333333333337`, 0.33333333333333337`, 0.33333333333333337`], 
    {Opacity[0.3], 
     SphereBox[{-2.0191444499999998`, 0.10204379999999999`, 
      5.4857990999999995`}, 1.0547943926035335`]}}, 
   {RGBColor[
    0.33333333333333337`, 0.33333333333333337`, 0.33333333333333337`], 
    {Opacity[0.3], 
     SphereBox[{-0.016062450000000172`, 0.16818329999999998`, 
      8.904266400000001}, 1.0606787631343173`]}}, 
   {RGBColor[
    0.33333333333333337`, 0.33333333333333337`, 0.33333333333333337`], 
    {Opacity[0.3], 
     SphereBox[{-2.0087511, 0.14456205, 7.75816335}, 1.0739230886149016`]}}, 
   {RGBColor[
    0.33333333333333337`, 0.33333333333333337`, 0.33333333333333337`], 
    {Opacity[0.3]}}, 
   {RGBColor[
    0.33333333333333337`, 0.33333333333333337`, 0.33333333333333337`], 
    {Opacity[0.3]}}, 
   {RGBColor[
    0.33333333333333337`, 0.33333333333333337`, 0.33333333333333337`], 
    {Opacity[0.3]}}, 
   {RGBColor[
    0.33333333333333337`, 0.33333333333333337`, 0.33333333333333337`], 
    {Opacity[0.3]}}, 
   {RGBColor[
    0.33333333333333337`, 0.33333333333333337`, 0.33333333333333337`], 
    {Opacity[0.3], 
     SphereBox[{0.018896999999999997`, -2.1410301, -7.726983299999999}, 
      1.0739600220051218`]}}, 
   {RGBColor[
    0.33333333333333337`, 0.33333333333333337`, 0.33333333333333337`], 
    {Opacity[0.3], 
     SphereBox[{0.00850365, -1.9369425, -3.00178845}, 1.1755139263900491`]}}, 
   {RGBColor[
    0.33333333333333337`, 0.33333333333333337`, 0.33333333333333337`], 
    {Opacity[0.3], 
     SphereBox[{0.0094485, -0.08220194999999997, -4.36426215}, 
      1.0892648783153116`]}}, 
   {RGBColor[
    0.33333333333333337`, 0.33333333333333337`, 0.33333333333333337`], 
    {Opacity[0.3], 
     SphereBox[{0.01417275, -2.11173975, -5.45461905}, 1.0538572301329332`]}}, 
   {RGBColor[
    0.33333333333333337`, 0.33333333333333337`, 0.33333333333333337`], 
    {Opacity[0.3], 
     SphereBox[{0.00850365, 1.9048176, -5.5311519}, 1.0542901121305515`]}}, 
   {RGBColor[
    0.33333333333333337`, 0.33333333333333337`, 0.33333333333333337`], 
    {Opacity[0.3], 
     SphereBox[{0.018896999999999997`, -0.16818329999999992`, -8.9080458}, 
      1.0618513310624882`]}}, 
   {RGBColor[
    0.33333333333333337`, 0.33333333333333337`, 0.33333333333333337`], 
    {Opacity[0.3], 
     SphereBox[{0.0132279, 1.8481266, -7.8025713}, 1.07336090289154]}}, 
   {RGBColor[
    0.33333333333333337`, 0.33333333333333337`, 0.33333333333333337`], 
    {Opacity[0.3]}}, 
   {RGBColor[
    0.33333333333333337`, 0.33333333333333337`, 0.33333333333333337`], 
    {Opacity[0.3]}}, 
   {RGBColor[
    0.33333333333333337`, 0.33333333333333337`, 0.33333333333333337`], 
    {Opacity[0.3]}}, 
   {RGBColor[
    0.33333333333333337`, 0.33333333333333337`, 0.33333333333333337`], 
    {Opacity[0.3]}}, 
   {Opacity[0.5]}, 
   {Opacity[0.5]}, 
   {Opacity[0.5]}, 
   {Opacity[0.5]}, 
   {Opacity[0.5]}, 
   {Opacity[0.5]}, 
   {Opacity[0.5]}, 
   {Opacity[0.5]}, 
   {Opacity[0.5]}, 
   {Opacity[0.5]}, 
   {Opacity[0.5]}, 
   {Opacity[0.5]}, 
   {Opacity[0.5]}, 
   {Opacity[0.5]}, 
   {Opacity[0.5]}, 
   {Opacity[0.5]}, 
   {Opacity[0.5]}, 
   {Opacity[0.5], 
    SphereBox[{-6.185891367144522, 8.21561194332038, -1.625709541415803}, 
     1.2417533035670512`]}, 
   {Opacity[0.5], 
    SphereBox[{-8.252969524043163, 6.204923923711769, 1.3296469704368792`}, 
     1.241324517986182]}, 
   {Opacity[0.5], 
    SphereBox[{-6.78170042718961, 2.6575272058203696`, 2.883455106267725}, 
     1.238430047196644]}, 
   {Opacity[0.5], 
    SphereBox[{-2.608739311176343, 6.7141818856995465`, -3.079730715278967}, 
     1.2371335104779462`]}, 
   {Opacity[0.5]}, 
   {Opacity[0.5]}, 
   {Opacity[0.5]}, 
   {Opacity[0.5]}, 
   {Opacity[0.5]}, 
   {Opacity[0.5]}, 
   {Opacity[0.5]}, 
   {Opacity[0.5], 
    SphereBox[{6.173132185066521, 8.230107114421314, -1.6021257386083119`}, 
     1.241289794593869]}, 
   {Opacity[0.5], 
    SphereBox[{2.602705360683144, 6.722104177345471, -3.0697810688401264`}, 
     1.2398421755691817`]}, 
   {Opacity[0.5], 
    SphereBox[{6.763818668037181, 2.6740337124820193`, 2.9107485573205847`}, 
     1.2383196430270544`]}, 
   {Opacity[0.5], 
    SphereBox[{8.235281280248085, 6.224759133852963, 1.3616764803567472`}, 
     1.2420917553811912`]}, 
   {Opacity[0.5]}, 
   {Opacity[0.5]}, 
   {Opacity[0.5]}, 
   {Opacity[0.5]}, 
   {Opacity[0.5]}, 
   {Opacity[0.5]}, 
   {Opacity[0.5]}, 
   {Opacity[0.5], 
    SphereBox[{6.189582506175156, -8.271934503143537, -1.2880215310226126`}, 
     1.2408600440902706`]}, 
   {Opacity[0.5], 
    SphereBox[{2.617353826072775, -6.827550698076272, -2.812191156176798}, 
     1.239501615562912]}, 
   {Opacity[0.5], 
    SphereBox[{6.769984730830677, -2.5464077054406324`, 3.0084696925191308`}, 
     1.2381866285468215`]}, 
   {Opacity[0.5], 
    SphereBox[{8.246087955480315, -6.1501360071194044`, 1.5961342935530887`}, 
     1.239824801424743]}, 
   {Opacity[0.5]}, 
   {Opacity[0.5]}, 
   {Opacity[0.5]}, 
   {Opacity[0.5]}, 
   {Opacity[0.5]}, 
   {Opacity[0.5]}, 
   {Opacity[0.5]}, 
   {Opacity[0.5], 
    SphereBox[{-8.23999059338995, -6.168252437730235, 1.5639147721144522`}, 
     1.2423850352609764`]}, 
   {Opacity[0.5], 
    SphereBox[{-6.773674419712092, -2.562303008257879, 2.984531100619141}, 
     1.2387768689363954`]}, 
   {Opacity[0.5], 
    SphereBox[{-2.592374967475874, -6.83191612438517, -2.824139829226878}, 
     1.2400046167139323`]}, 
   {Opacity[0.5], 
    SphereBox[{-6.167988514509469, -8.28340071406096, -1.314872985596653}, 
     1.2414009073859167`]}, 
   {Opacity[0.5]}, 
   {Opacity[0.5]}, 
   {Opacity[0.5]}, 
   {Opacity[0.5]}, 
   {Opacity[0.5]}, 
   {Opacity[0.5]}, 
   {Opacity[0.5]}, 
   {Opacity[0.5], 
    SphereBox[{2.045538994321878, 0.19620414850943851`, 10.204461583837366`}, 
     1.241810583941931]}, 
   {Opacity[0.5], 
    SphereBox[{4.154831119280141, 0.131248695711647, 6.6385185264140585`}, 
     1.238712550530363]}, 
   {Opacity[0.5], 
    SphereBox[{-4.179380159148704, 0.12008143567773927`, 6.6235717251279125`},
      1.2386499685266354`]}, 
   {Opacity[0.5], 
    SphereBox[{-2.083002142633931, 0.18966902477065353`, 10.196275212304998`},
      1.2406169131218543`]}, 
   {Opacity[0.5]}, 
   {Opacity[0.5]}, 
   {Opacity[0.5]}, 
   {Opacity[0.5]}, 
   {Opacity[0.5]}, 
   {Opacity[0.5]}, 
   {Opacity[0.5]}, 
   {Opacity[0.5], 
    SphereBox[{
     0.023536516441630267`, -2.2566277118772904`, -10.164894161799706`}, 
     1.2401505421971444`]}, 
   {Opacity[0.5], 
    SphereBox[{0.01838184720190659, -4.290888808472461, -6.555366880779028}, 
     1.2387099429849404`]}, 
   {Opacity[0.5], 
    SphereBox[{0.008074256921161298, 4.039743583618829, -6.713757992365161}, 
     1.2374979452324664`]}, 
   {Opacity[0.5], 
    SphereBox[{0.018382542215698596`, 
     1.8723150054574607`, -10.24321773156076}, 1.2414851060510226`]}, 
   {RGBColor[0.19999999999999996`, 0., 0.], 
    CylinderBox[{{0.0056691, -2.4471615, -1.6648257}, {0., 0., -0.0018897}}, 
     0.05]}, 
   {RGBColor[0.19999999999999996`, 0., 0.], 
    CylinderBox[{{0.0018897, 2.3848013999999997`, -1.7555313000000001`}, {0., 
     0., -0.0018897}}, 0.05]}, 
   {RGBColor[0.19999999999999996`, 0., 0.], 
    CylinderBox[{{2.4150366, 0.0359043, 1.7120682}, {0., 0., -0.0018897}}, 
     0.05]}, 
   {RGBColor[0.19999999999999996`, 0., 0.], 
    CylinderBox[{{-2.418816, 0.0302352, 1.7026197}, {0., 0., -0.0018897}}, 
     0.05]}, 
   {RGBColor[0.19999999999999996`, 0., 0.], 
    CylinderBox[{{3.7529442, 2.4358232999999996`, 0.9108354}, {2.4150366, 
     0.0359043, 1.7120682}}, 0.05]}, 
   {RGBColor[0.19999999999999996`, 0., 0.], 
    CylinderBox[{{3.7586133, -2.3904704999999997`, 1.0034307}, {2.4150366, 
     0.0359043, 1.7120682}}, 0.05]}, 
   {RGBColor[0.19999999999999996`, 0., 0.], 
    CylinderBox[{{-2.4055880999999997`, -3.7775103, -0.8862692999999999}, {
     0.0056691, -2.4471615, -1.6648257}}, 0.05]}, 
   {RGBColor[0.19999999999999996`, 0., 0.], 
    CylinderBox[{{0.0075588, 1.2623196, -4.3897731}, {0.0018897, 
     2.3848013999999997`, -1.7555313000000001`}}, 0.05]}, 
   {RGBColor[0.19999999999999996`, 0., 0.], 
    CylinderBox[{{-3.760503, 2.4263748, 0.8976074999999999}, {-2.418816, 
     0.0302352, 1.7026197}}, 0.05]}, 
   {RGBColor[0.19999999999999996`, 0., 0.], 
    CylinderBox[{{-1.3530251999999998`, 0.08125709999999998, 
     4.3576482}, {-2.418816, 0.0302352, 1.7026197}}, 0.05]}, 
   {RGBColor[0.19999999999999996`, 0., 0.], 
    CylinderBox[{{-6.9616548, 5.6520927, 0.8125709999999999}, {-5.6426442, 
     6.935199, -1.0714598999999998`}}, 0.05]}, 
   {RGBColor[0.19999999999999996`, 0., 0.], 
    CylinderBox[{{-6.0243636, 3.3750042, 1.814112}, {-3.760503, 2.4263748, 
     0.8976074999999999}}, 0.05]}, 
   {RGBColor[0.19999999999999996`, 0., 0.], 
    CylinderBox[{{-6.0243636, 3.3750042, 1.814112}, {-6.9616548, 5.6520927, 
     0.8125709999999999}}, 0.05]}, 
   {RGBColor[0.19999999999999996`, 0., 0.], 
    CylinderBox[{{-2.4150366, 3.7359369, -1.0279968}, {0.0018897, 
     2.3848013999999997`, -1.7555313000000001`}}, 0.05]}, 
   {RGBColor[0.19999999999999996`, 0., 0.], 
    CylinderBox[{{-2.4150366, 3.7359369, -1.0279968}, {-3.760503, 2.4263748, 
     0.8976074999999999}}, 0.05]}, 
   {RGBColor[0.19999999999999996`, 0., 0.], 
    CylinderBox[{{-3.3466587, 5.9790108, -2.0106408}, {-5.6426442, 
     6.935199, -1.0714598999999998`}}, 0.05]}, 
   {RGBColor[0.19999999999999996`, 0., 0.], 
    CylinderBox[{{-3.3466587, 5.9790108, -2.0106408}, {-2.4150366, 
     3.7359369, -1.0279968}}, 0.05]}, 
   {RGBColor[0.19999999999999996`, 0., 0.], 
    CylinderBox[{{-6.389075699999999, 
     8.6945097, -1.8330089999999999`}, {-5.6426442, 
     6.935199, -1.0714598999999998`}}, 0.05]}, 
   {RGBColor[0.19999999999999996`, 0., 0.], 
    CylinderBox[{{-8.7360831, 6.411752099999999, 1.5230982}, {-6.9616548, 
     5.6520927, 0.8125709999999999}}, 0.05]}, 
   {RGBColor[0.19999999999999996`, 0., 0.], 
    CylinderBox[{{-7.0655883, 2.3885807999999997`, 3.2842986}, {-6.0243636, 
     3.3750042, 1.814112}}, 0.05]}, 
   {RGBColor[0.19999999999999996`, 0., 0.], 
    CylinderBox[{{-2.3318898, 6.990000299999999, -3.4808274}, {-3.3466587, 
     5.9790108, -2.0106408}}, 0.05]}, 
   {RGBColor[0.19999999999999996`, 0., 0.], 
    CylinderBox[{{3.3409896, 5.9865696, -1.9974128999999998`}, {
     5.6313059999999995`, 6.948426899999999, -1.0506732}}, 0.05]}, 
   {RGBColor[0.19999999999999996`, 0., 0.], 
    CylinderBox[{{2.4093674999999997`, 3.741606, -1.0185483}, {0.0018897, 
     2.3848013999999997`, -1.7555313000000001`}}, 0.05]}, 
   {RGBColor[0.19999999999999996`, 0., 0.], 
    CylinderBox[{{2.4093674999999997`, 3.741606, -1.0185483}, {3.7529442, 
     2.4358232999999996`, 0.9108354}}, 0.05]}, 
   {RGBColor[0.19999999999999996`, 0., 0.], 
    CylinderBox[{{2.4093674999999997`, 3.741606, -1.0185483}, {3.3409896, 
     5.9865696, -1.9974128999999998`}}, 0.05]}, 
   {RGBColor[0.19999999999999996`, 0., 0.], 
    CylinderBox[{{6.009246, 3.3901217999999997`, 1.8386780999999999`}, {
     3.7529442, 2.4358232999999996`, 0.9108354}}, 0.05]}, 
   {RGBColor[0.19999999999999996`, 0., 0.], 
    CylinderBox[{{6.9465372, 5.6691, 0.8390268}, {5.6313059999999995`, 
     6.948426899999999, -1.0506732}}, 0.05]}, 
   {RGBColor[0.19999999999999996`, 0., 0.], 
    CylinderBox[{{6.9465372, 5.6691, 0.8390268}, {6.009246, 
     3.3901217999999997`, 1.8386780999999999`}}, 0.05]}, 
   {RGBColor[0.19999999999999996`, 0., 0.], 
    CylinderBox[{{6.3758478, 8.7096273, -1.8084429}, {5.6313059999999995`, 
     6.948426899999999, -1.0506732}}, 0.05]}, 
   {RGBColor[0.19999999999999996`, 0., 0.], 
    CylinderBox[{{2.3262207, 6.997559099999999, -3.4713789}, {3.3409896, 
     5.9865696, -1.9974128999999998`}}, 0.05]}, 
   {RGBColor[0.19999999999999996`, 0., 0.], 
    CylinderBox[{{7.0466913, 2.4055880999999997`, 3.3126440999999995`}, {
     6.009246, 3.3901217999999997`, 1.8386780999999999`}}, 0.05]}, 
   {RGBColor[0.19999999999999996`, 0., 0.], 
    CylinderBox[{{8.717186100000001, 6.4325388, 1.5571127999999999`}, {
     6.9465372, 5.6691, 0.8390268}}, 0.05]}, 
   {RGBColor[0.19999999999999996`, 0., 0.], 
    CylinderBox[{{3.3542175, -6.0508194, -1.7687592}, {
     5.646423599999999, -6.9711033, -0.7861151999999999}}, 0.05]}, 
   {RGBColor[0.19999999999999996`, 0., 0.], 
    CylinderBox[{{2.418816, -3.7718412, -0.8768208000000001}, {
     0.0056691, -2.4471615, -1.6648257}}, 0.05]}, 
   {RGBColor[0.19999999999999996`, 0., 0.], 
    CylinderBox[{{2.418816, -3.7718412, -0.8768208000000001}, {
     3.7586133, -2.3904704999999997`, 1.0034307}}, 0.05]}, 
   {RGBColor[0.19999999999999996`, 0., 0.], 
    CylinderBox[{{2.418816, -3.7718412, -0.8768208000000001}, {
     3.3542175, -6.0508194, -1.7687592}}, 0.05]}, 
   {RGBColor[0.19999999999999996`, 0., 0.], 
    CylinderBox[{{6.0168048, -3.3050853, 1.965288}, {
     3.7586133, -2.3904704999999997`, 1.0034307}}, 0.05]}, 
   {RGBColor[0.19999999999999996`, 0., 0.], 
    CylinderBox[{{6.9578754, -5.6180781, 1.0544526}, {
     5.646423599999999, -6.9711033, -0.7861151999999999}}, 0.05]}, 
   {RGBColor[0.19999999999999996`, 0., 0.], 
    CylinderBox[{{6.9578754, -5.6180781, 1.0544526}, {6.0168048, -3.3050853, 
     1.965288}}, 0.05]}, 
   {RGBColor[0.19999999999999996`, 0., 0.], 
    CylinderBox[{{6.3928551, -8.7587595, -1.4758557}, {
     5.646423599999999, -6.9711033, -0.7861151999999999}}, 0.05]}, 
   {RGBColor[0.19999999999999996`, 0., 0.], 
    CylinderBox[{{2.3413383000000003`, -7.1184999, -3.2030415}, {
     3.3542175, -6.0508194, -1.7687592}}, 0.05]}, 
   {RGBColor[0.19999999999999996`, 0., 0.], 
    CylinderBox[{{7.0523604, -2.2619709, 3.3995702999999997`}, {
     6.0168048, -3.3050853, 1.965288}}, 0.05]}, 
   {RGBColor[0.19999999999999996`, 0., 0.], 
    CylinderBox[{{8.7285243, -6.349392, 1.7989943999999998`}, {
     6.9578754, -5.6180781, 1.0544526}}, 0.05]}, 
   {RGBColor[0.19999999999999996`, 0., 0.], 
    CylinderBox[{{-6.0149151, -3.3183132, 
     1.9426116}, {-6.948426899999999, -5.6331957, 1.0261071}}, 0.05]}, 
   {RGBColor[0.19999999999999996`, 0., 0.], 
    CylinderBox[{{-3.7548339, -2.3980292999999997`, 0.9883131}, {-2.418816, 
     0.0302352, 1.7026197}}, 0.05]}, 
   {RGBColor[0.19999999999999996`, 0., 0.], 
    CylinderBox[{{-3.7548339, -2.3980292999999997`, 
     0.9883131}, {-2.4055880999999997`, -3.7775103, -0.8862692999999999}}, 
     0.05]}, 
   {RGBColor[0.19999999999999996`, 0., 0.], 
    CylinderBox[{{-3.7548339, -2.3980292999999997`, 
     0.9883131}, {-6.0149151, -3.3183132, 1.9426116}}, 0.05]}, 
   {RGBColor[0.19999999999999996`, 0., 0.], 
    CylinderBox[{{-3.3334308, -6.0564884999999995`, -1.7819870999999998`}, \
{-2.4055880999999997`, -3.7775103, -0.8862692999999999}}, 0.05]}, 
   {RGBColor[0.19999999999999996`, 0., 0.], 
    CylinderBox[{{-5.6275266, -6.982441499999999, -0.8087915999999999}, \
{-6.948426899999999, -5.6331957, 1.0261071}}, 0.05]}, 
   {RGBColor[0.19999999999999996`, 0., 0.], 
    CylinderBox[{{-5.6275266, -6.982441499999999, -0.8087915999999999}, \
{-3.3334308, -6.0564884999999995`, -1.7819870999999998`}}, 0.05]}, 
   {RGBColor[0.19999999999999996`, 0., 0.], 
    CylinderBox[{{-8.7228552, -6.368289, 
     1.7649798}, {-6.948426899999999, -5.6331957, 1.0261071}}, 0.05]}, 
   {RGBColor[0.19999999999999996`, 0., 0.], 
    CylinderBox[{{-7.0580295, -2.2789782, 3.3750042}, {-6.0149151, -3.3183132,
      1.9426116}}, 0.05]}, 
   {RGBColor[0.19999999999999996`, 0., 0.], 
    CylinderBox[{{-2.3148825, -7.1222793, -3.2143797}, {-3.3334308, \
-6.0564884999999995`, -1.7819870999999998`}}, 0.05]}, 
   {RGBColor[0.19999999999999996`, 0., 0.], 
    CylinderBox[{{-6.370178699999999, -8.770097699999999, -1.5042012}, \
{-5.6275266, -6.982441499999999, -0.8087915999999999}}, 0.05]}, 
   {RGBColor[0.19999999999999996`, 0., 0.], 
    CylinderBox[{{2.6606975999999998`, 0.1284996, 6.6233984999999995`}, {
     1.3001135999999998`, 0.17007299999999997`, 8.9061561}}, 0.05]}, 
   {RGBColor[0.19999999999999996`, 0., 0.], 
    CylinderBox[{{1.3379075999999999`, 0.08503649999999999, 4.3633173}, {
     2.4150366, 0.0359043, 1.7120682}}, 0.05]}, 
   {RGBColor[0.19999999999999996`, 0., 0.], 
    CylinderBox[{{1.3379075999999999`, 0.08503649999999999, 
     4.3633173}, {-1.3530251999999998`, 0.08125709999999998, 4.3576482}}, 
     0.05]}, 
   {RGBColor[0.19999999999999996`, 0., 0.], 
    CylinderBox[{{1.3379075999999999`, 0.08503649999999999, 4.3633173}, {
     2.6606975999999998`, 0.1284996, 6.6233984999999995`}}, 0.05]}, 
   {RGBColor[0.19999999999999996`, 0., 0.], 
    CylinderBox[{{-2.6852637, 0.1228305, 6.61395}, {-1.3530251999999998`, 
     0.08125709999999998, 4.3576482}}, 0.05]}, 
   {RGBColor[0.19999999999999996`, 0., 0.], 
    CylinderBox[{{-1.3322384999999999`, 0.16629359999999999`, 8.9023767}, {
     1.3001135999999998`, 0.17007299999999997`, 8.9061561}}, 0.05]}, 
   {RGBColor[0.19999999999999996`, 0., 0.], 
    CylinderBox[{{-1.3322384999999999`, 0.16629359999999999`, 
     8.9023767}, {-2.6852637, 0.1228305, 6.61395}}, 0.05]}, 
   {RGBColor[0.19999999999999996`, 0., 0.], 
    CylinderBox[{{2.324331, 0.2059773, 10.6900329}, {1.3001135999999998`, 
     0.17007299999999997`, 8.9061561}}, 0.05]}, 
   {RGBColor[0.19999999999999996`, 0., 0.], 
    CylinderBox[{{4.7148015, 0.132279, 6.6441852}, {2.6606975999999998`, 
     0.1284996, 6.6233984999999995`}}, 0.05]}, 
   {RGBColor[0.19999999999999996`, 0., 0.], 
    CylinderBox[{{-4.7393676, 0.11905109999999999`, 6.6271779}, {-2.6852637, 
     0.1228305, 6.61395}}, 0.05]}, 
   {RGBColor[0.19999999999999996`, 0., 0.], 
    CylinderBox[{{-2.3640147, 0.1984185, 10.6805844}, {-1.3322384999999999`, 
     0.16629359999999999`, 8.9023767}}, 0.05]}, 
   {RGBColor[0.19999999999999996`, 0., 0.], 
    CylinderBox[{{0.0170073, -2.796756, -6.5704869}, {
     0.020786699999999998`, -1.4853042, -8.883479699999999}}, 0.05]}, 
   {RGBColor[0.19999999999999996`, 0., 0.], 
    CylinderBox[{{0.0113382, -1.4267235, -4.3387512}, {
     0.0056691, -2.4471615, -1.6648257}}, 0.05]}, 
   {RGBColor[0.19999999999999996`, 0., 0.], 
    CylinderBox[{{0.0113382, -1.4267235, -4.3387512}, {0.0075588, 
     1.2623196, -4.3897731}}, 0.05]}, 
   {RGBColor[0.19999999999999996`, 0., 0.], 
    CylinderBox[{{0.0113382, -1.4267235, -4.3387512}, {
     0.0170073, -2.796756, -6.5704869}}, 0.05]}, 
   {RGBColor[0.19999999999999996`, 0., 0.], 
    CylinderBox[{{0.0094485, 2.5473156, -6.6725307}, {0.0075588, 
     1.2623196, -4.3897731}}, 0.05]}, 
   {RGBColor[0.19999999999999996`, 0., 0.], 
    CylinderBox[{{0.0170073, 1.1489376, -8.9326119}, {
     0.020786699999999998`, -1.4853042, -8.883479699999999}}, 0.05]}, 
   {RGBColor[0.19999999999999996`, 0., 0.], 
    CylinderBox[{{0.0170073, 1.1489376, -8.9326119}, {0.0094485, 
     2.5473156, -6.6725307}}, 0.05]}, 
   {RGBColor[0.19999999999999996`, 0., 0.], 
    CylinderBox[{{0.024566099999999997`, -2.5454258999999997`, -10.6446801}, {
     0.020786699999999998`, -1.4853042, -8.883479699999999}}, 0.05]}, 
   {RGBColor[0.19999999999999996`, 0., 0.], 
    CylinderBox[{{0.018897, -4.850859900000001, -6.5497002}, {
     0.0170073, -2.796756, -6.5704869}}, 0.05]}, 
   {RGBColor[0.19999999999999996`, 0., 0.], 
    CylinderBox[{{0.0075588, 4.5995298, -6.7292217}, {0.0094485, 
     2.5473156, -6.6725307}}, 0.05]}, 
   {RGBColor[0.19999999999999996`, 0., 0.], 
    CylinderBox[{{0.018897, 2.1429197999999996`, -10.733495999999999`}, {
     0.0170073, 1.1489376, -8.9326119}}, 0.05]}},
  AspectRatio->Automatic,
  ImageSize->{402.259775970487, 496.66667982384047`},
  ViewPoint->{-0.09157095995603846, -2.908773852159748, 1.7264557440851136`},
  ViewVertical->{-0.6493458022545557, -0.9777331381377529, \
-0.2347075797886449}]], "Output",
 CellChangeTimes->{3.568456618323717*^9, 3.5684568121696577`*^9, 
  3.568459015406093*^9, 3.568465705130912*^9}]
}, Open  ]],

Cell[CellGroupData[{

Cell[BoxData[
 RowBox[{"Show", "[", 
  RowBox[{"Plot1", ",", "Plot2", ",", "Plot9", ",", 
   RowBox[{"{", 
    RowBox[{"AspectRatio", "\[Rule]", "Automatic"}], "}"}]}], "]"}]], "Input",
 CellChangeTimes->{{3.5684354673767896`*^9, 3.568435472852399*^9}}],

Cell[BoxData[
 Graphics3DBox[{SphereBox[{0., 0., -0.0018897}, 0.2555], 
   SphereBox[{0.0056691, -2.4471615, -1.6648257}, 0.2555], 
   SphereBox[{0.0018897, 2.3848013999999997`, -1.7555313000000001`}, 0.2555], 
   SphereBox[{2.4150366, 0.0359043, 1.7120682}, 0.2555], 
   SphereBox[{-2.418816, 0.0302352, 1.7026197}, 0.2555], 
   SphereBox[{3.7529442, 2.4358232999999996`, 0.9108354}, 0.2555], 
   SphereBox[{3.7586133, -2.3904704999999997`, 1.0034307}, 0.2555], 
   SphereBox[{-2.4055880999999997`, -3.7775103, -0.8862692999999999}, 0.2555],
    SphereBox[{0.0075588, 1.2623196, -4.3897731}, 0.2555], 
   SphereBox[{-3.760503, 2.4263748, 0.8976074999999999}, 0.2555], 
   SphereBox[{-1.3530251999999998`, 0.08125709999999998, 4.3576482}, 0.2555], 
   SphereBox[{-5.6426442, 6.935199, -1.0714598999999998`}, 0.2555], 
   SphereBox[{-6.9616548, 5.6520927, 0.8125709999999999}, 0.2555], 
   SphereBox[{-6.0243636, 3.3750042, 1.814112}, 0.2555], 
   SphereBox[{-2.4150366, 3.7359369, -1.0279968}, 0.2555], 
   SphereBox[{-3.3466587, 5.9790108, -2.0106408}, 0.2555], 
   SphereBox[{-6.389075699999999, 8.6945097, -1.8330089999999999`}, 0.1], 
   SphereBox[{-8.7360831, 6.411752099999999, 1.5230982}, 0.1], 
   SphereBox[{-7.0655883, 2.3885807999999997`, 3.2842986}, 0.1], 
   SphereBox[{-2.3318898, 6.990000299999999, -3.4808274}, 0.1], 
   SphereBox[{5.6313059999999995`, 6.948426899999999, -1.0506732}, 0.2555], 
   SphereBox[{3.3409896, 5.9865696, -1.9974128999999998`}, 0.2555], 
   SphereBox[{2.4093674999999997`, 3.741606, -1.0185483}, 0.2555], 
   SphereBox[{6.009246, 3.3901217999999997`, 1.8386780999999999`}, 0.2555], 
   SphereBox[{6.9465372, 5.6691, 0.8390268}, 0.2555], 
   SphereBox[{6.3758478, 8.7096273, -1.8084429}, 0.1], 
   SphereBox[{2.3262207, 6.997559099999999, -3.4713789}, 0.1], 
   SphereBox[{7.0466913, 2.4055880999999997`, 3.3126440999999995`}, 0.1], 
   SphereBox[{8.717186100000001, 6.4325388, 1.5571127999999999`}, 0.1], 
   SphereBox[{5.646423599999999, -6.9711033, -0.7861151999999999}, 0.2555], 
   SphereBox[{3.3542175, -6.0508194, -1.7687592}, 0.2555], 
   SphereBox[{2.418816, -3.7718412, -0.8768208000000001}, 0.2555], 
   SphereBox[{6.0168048, -3.3050853, 1.965288}, 0.2555], 
   SphereBox[{6.9578754, -5.6180781, 1.0544526}, 0.2555], 
   SphereBox[{6.3928551, -8.7587595, -1.4758557}, 0.1], 
   SphereBox[{2.3413383000000003`, -7.1184999, -3.2030415}, 0.1], 
   SphereBox[{7.0523604, -2.2619709, 3.3995702999999997`}, 0.1], 
   SphereBox[{8.7285243, -6.349392, 1.7989943999999998`}, 0.1], 
   SphereBox[{-6.948426899999999, -5.6331957, 1.0261071}, 0.2555], 
   SphereBox[{-6.0149151, -3.3183132, 1.9426116}, 0.2555], 
   SphereBox[{-3.7548339, -2.3980292999999997`, 0.9883131}, 0.2555], 
   SphereBox[{-3.3334308, -6.0564884999999995`, -1.7819870999999998`}, 
    0.2555], SphereBox[{-5.6275266, -6.982441499999999, -0.8087915999999999}, 
    0.2555], SphereBox[{-8.7228552, -6.368289, 1.7649798}, 0.1], 
   SphereBox[{-7.0580295, -2.2789782, 3.3750042}, 0.1], 
   SphereBox[{-2.3148825, -7.1222793, -3.2143797}, 0.1], 
   SphereBox[{-6.370178699999999, -8.770097699999999, -1.5042012}, 0.1], 
   SphereBox[{1.3001135999999998`, 0.17007299999999997`, 8.9061561}, 0.2555], 
   SphereBox[{2.6606975999999998`, 0.1284996, 6.6233984999999995`}, 0.2555], 
   SphereBox[{1.3379075999999999`, 0.08503649999999999, 4.3633173}, 0.2555], 
   SphereBox[{-2.6852637, 0.1228305, 6.61395}, 0.2555], 
   SphereBox[{-1.3322384999999999`, 0.16629359999999999`, 8.9023767}, 0.2555],
    SphereBox[{2.324331, 0.2059773, 10.6900329}, 0.1], 
   SphereBox[{4.7148015, 0.132279, 6.6441852}, 0.1], 
   SphereBox[{-4.7393676, 0.11905109999999999`, 6.6271779}, 0.1], 
   SphereBox[{-2.3640147, 0.1984185, 10.6805844}, 0.1], 
   SphereBox[{0.020786699999999998`, -1.4853042, -8.883479699999999}, 0.2555],
    SphereBox[{0.0170073, -2.796756, -6.5704869}, 0.2555], 
   SphereBox[{0.0113382, -1.4267235, -4.3387512}, 0.2555], 
   SphereBox[{0.0094485, 2.5473156, -6.6725307}, 0.2555], 
   SphereBox[{0.0170073, 1.1489376, -8.9326119}, 0.2555], 
   SphereBox[{0.024566099999999997`, -2.5454258999999997`, -10.6446801}, 0.1],
    SphereBox[{0.018897, -4.850859900000001, -6.5497002}, 0.1], 
   SphereBox[{0.0075588, 4.5995298, -6.7292217}, 0.1], 
   SphereBox[{0.018897, 2.1429197999999996`, -10.733495999999999`}, 0.1], 
   Text3DBox["1", {-0.5, 0., -0.0018897}, {1, 0}], 
   Text3DBox["2", {-0.4943309, -2.4471615, -1.6648257}, {1, 0}], 
   Text3DBox["3", {-0.4981103, 2.3848013999999997`, -1.7555313000000001`}, {1,
     0}], Text3DBox["4", {1.9150366, 0.0359043, 1.7120682}, {1, 0}], 
   Text3DBox["5", {-2.918816, 0.0302352, 1.7026197}, {1, 0}], 
   Text3DBox["6", {3.2529442, 2.4358232999999996`, 0.9108354}, {1, 0}], 
   Text3DBox["7", {3.2586133, -2.3904704999999997`, 1.0034307}, {1, 0}], 
   Text3DBox["8", {-2.9055880999999997`, -3.7775103, -0.8862692999999999}, {1,
     0}], Text3DBox["9", {-0.4924412, 1.2623196, -4.3897731}, {1, 0}], 
   Text3DBox["10", {-4.260503, 2.4263748, 0.8976074999999999}, {1, 0}], 
   Text3DBox["11", {-1.8530251999999998`, 0.08125709999999998, 4.3576482}, {1,
     0}], Text3DBox["12", {-6.1426442, 6.935199, -1.0714598999999998`}, {1, 
    0}], Text3DBox["13", {-7.4616548, 5.6520927, 0.8125709999999999}, {1, 0}],
    Text3DBox["14", {-6.5243636, 3.3750042, 1.814112}, {1, 0}], 
   Text3DBox["15", {-2.9150366, 3.7359369, -1.0279968}, {1, 0}], 
   Text3DBox["16", {-3.8466587, 5.9790108, -2.0106408}, {1, 0}], 
   Text3DBox["17", {-6.889075699999999, 8.6945097, -1.8330089999999999`}, {1, 
    0}], Text3DBox["18", {-9.2360831, 6.411752099999999, 1.5230982}, {1, 0}], 
   Text3DBox["19", {-7.5655883, 2.3885807999999997`, 3.2842986}, {1, 0}], 
   Text3DBox["20", {-2.8318898, 6.990000299999999, -3.4808274}, {1, 0}], 
   Text3DBox["21", {5.1313059999999995`, 6.948426899999999, -1.0506732}, {1, 
    0}], Text3DBox["22", {2.8409896, 5.9865696, -1.9974128999999998`}, {1, 
    0}], Text3DBox["23", {1.9093674999999997`, 3.741606, -1.0185483}, {1, 0}],
    Text3DBox["24", {5.509246, 3.3901217999999997`, 1.8386780999999999`}, {1, 
    0}], Text3DBox["25", {6.4465372, 5.6691, 0.8390268}, {1, 0}], 
   Text3DBox["26", {5.8758478, 8.7096273, -1.8084429}, {1, 0}], 
   Text3DBox["27", {1.8262207, 6.997559099999999, -3.4713789}, {1, 0}], 
   Text3DBox["28", {6.5466913, 2.4055880999999997`, 3.3126440999999995`}, {1, 
    0}], Text3DBox["29", {8.217186100000001, 6.4325388, 
    1.5571127999999999`}, {1, 0}], 
   Text3DBox["30", {5.146423599999999, -6.9711033, -0.7861151999999999}, {1, 
    0}], Text3DBox["31", {2.8542175, -6.0508194, -1.7687592}, {1, 0}], 
   Text3DBox["32", {1.918816, -3.7718412, -0.8768208000000001}, {1, 0}], 
   Text3DBox["33", {5.5168048, -3.3050853, 1.965288}, {1, 0}], 
   Text3DBox["34", {6.4578754, -5.6180781, 1.0544526}, {1, 0}], 
   Text3DBox["35", {5.8928551, -8.7587595, -1.4758557}, {1, 0}], 
   Text3DBox["36", {1.8413383000000003`, -7.1184999, -3.2030415}, {1, 0}], 
   Text3DBox["37", {6.5523604, -2.2619709, 3.3995702999999997`}, {1, 0}], 
   Text3DBox["38", {8.2285243, -6.349392, 1.7989943999999998`}, {1, 0}], 
   Text3DBox["39", {-7.448426899999999, -5.6331957, 1.0261071}, {1, 0}], 
   Text3DBox["40", {-6.5149151, -3.3183132, 1.9426116}, {1, 0}], 
   Text3DBox["41", {-4.2548338999999995`, -2.3980292999999997`, 0.9883131}, {
    1, 0}], Text3DBox[
    "42", {-3.8334308, -6.0564884999999995`, -1.7819870999999998`}, {1, 0}], 
   Text3DBox["43", {-6.1275266, -6.982441499999999, -0.8087915999999999}, {1, 
    0}], Text3DBox["44", {-9.2228552, -6.368289, 1.7649798}, {1, 0}], 
   Text3DBox["45", {-7.5580295, -2.2789782, 3.3750042}, {1, 0}], 
   Text3DBox["46", {-2.8148825, -7.1222793, -3.2143797}, {1, 0}], 
   Text3DBox["47", {-6.870178699999999, -8.770097699999999, -1.5042012}, {1, 
    0}], Text3DBox["48", {0.8001135999999998, 0.17007299999999997`, 
    8.9061561}, {1, 0}], 
   Text3DBox["49", {2.1606975999999998`, 0.1284996, 6.6233984999999995`}, {1, 
    0}], Text3DBox["50", {0.8379075999999999, 0.08503649999999999, 
    4.3633173}, {1, 0}], 
   Text3DBox["51", {-3.1852637, 0.1228305, 6.61395}, {1, 0}], 
   Text3DBox["52", {-1.8322384999999999`, 0.16629359999999999`, 8.9023767}, {
    1, 0}], Text3DBox["53", {1.824331, 0.2059773, 10.6900329}, {1, 0}], 
   Text3DBox["54", {4.2148015, 0.132279, 6.6441852}, {1, 0}], 
   Text3DBox["55", {-5.2393676, 0.11905109999999999`, 6.6271779}, {1, 0}], 
   Text3DBox["56", {-2.8640147, 0.1984185, 10.6805844}, {1, 0}], 
   Text3DBox["57", {-0.4792133, -1.4853042, -8.883479699999999}, {1, 0}], 
   Text3DBox["58", {-0.4829927, -2.796756, -6.5704869}, {1, 0}], 
   Text3DBox["59", {-0.4886618, -1.4267235, -4.3387512}, {1, 0}], 
   Text3DBox["60", {-0.4905515, 2.5473156, -6.6725307}, {1, 0}], 
   Text3DBox["61", {-0.4829927, 1.1489376, -8.9326119}, {1, 0}], 
   Text3DBox["62", {-0.4754339, -2.5454258999999997`, -10.6446801}, {1, 0}], 
   Text3DBox["63", {-0.481103, -4.850859900000001, -6.5497002}, {1, 0}], 
   Text3DBox["64", {-0.4924412, 4.5995298, -6.7292217}, {1, 0}], 
   Text3DBox["65", {-0.481103, 2.1429197999999996`, -10.733495999999999`}, {1,
     0}], 
   {RGBColor[0.19999999999999996`, 0., 0.], 
    CylinderBox[{{0.0056691, -2.4471615, -1.6648257}, {0., 0., -0.0018897}}, 
     0.05]}, 
   {RGBColor[0.19999999999999996`, 0., 0.], 
    CylinderBox[{{0.0018897, 2.3848013999999997`, -1.7555313000000001`}, {0., 
     0., -0.0018897}}, 0.05]}, 
   {RGBColor[0.19999999999999996`, 0., 0.], 
    CylinderBox[{{2.4150366, 0.0359043, 1.7120682}, {0., 0., -0.0018897}}, 
     0.05]}, 
   {RGBColor[0.19999999999999996`, 0., 0.], 
    CylinderBox[{{-2.418816, 0.0302352, 1.7026197}, {0., 0., -0.0018897}}, 
     0.05]}, 
   {RGBColor[0.19999999999999996`, 0., 0.], 
    CylinderBox[{{3.7529442, 2.4358232999999996`, 0.9108354}, {2.4150366, 
     0.0359043, 1.7120682}}, 0.05]}, 
   {RGBColor[0.19999999999999996`, 0., 0.], 
    CylinderBox[{{3.7586133, -2.3904704999999997`, 1.0034307}, {2.4150366, 
     0.0359043, 1.7120682}}, 0.05]}, 
   {RGBColor[0.19999999999999996`, 0., 0.], 
    CylinderBox[{{-2.4055880999999997`, -3.7775103, -0.8862692999999999}, {
     0.0056691, -2.4471615, -1.6648257}}, 0.05]}, 
   {RGBColor[0.19999999999999996`, 0., 0.], 
    CylinderBox[{{0.0075588, 1.2623196, -4.3897731}, {0.0018897, 
     2.3848013999999997`, -1.7555313000000001`}}, 0.05]}, 
   {RGBColor[0.19999999999999996`, 0., 0.], 
    CylinderBox[{{-3.760503, 2.4263748, 0.8976074999999999}, {-2.418816, 
     0.0302352, 1.7026197}}, 0.05]}, 
   {RGBColor[0.19999999999999996`, 0., 0.], 
    CylinderBox[{{-1.3530251999999998`, 0.08125709999999998, 
     4.3576482}, {-2.418816, 0.0302352, 1.7026197}}, 0.05]}, 
   {RGBColor[0.19999999999999996`, 0., 0.], 
    CylinderBox[{{-6.9616548, 5.6520927, 0.8125709999999999}, {-5.6426442, 
     6.935199, -1.0714598999999998`}}, 0.05]}, 
   {RGBColor[0.19999999999999996`, 0., 0.], 
    CylinderBox[{{-6.0243636, 3.3750042, 1.814112}, {-3.760503, 2.4263748, 
     0.8976074999999999}}, 0.05]}, 
   {RGBColor[0.19999999999999996`, 0., 0.], 
    CylinderBox[{{-6.0243636, 3.3750042, 1.814112}, {-6.9616548, 5.6520927, 
     0.8125709999999999}}, 0.05]}, 
   {RGBColor[0.19999999999999996`, 0., 0.], 
    CylinderBox[{{-2.4150366, 3.7359369, -1.0279968}, {0.0018897, 
     2.3848013999999997`, -1.7555313000000001`}}, 0.05]}, 
   {RGBColor[0.19999999999999996`, 0., 0.], 
    CylinderBox[{{-2.4150366, 3.7359369, -1.0279968}, {-3.760503, 2.4263748, 
     0.8976074999999999}}, 0.05]}, 
   {RGBColor[0.19999999999999996`, 0., 0.], 
    CylinderBox[{{-3.3466587, 5.9790108, -2.0106408}, {-5.6426442, 
     6.935199, -1.0714598999999998`}}, 0.05]}, 
   {RGBColor[0.19999999999999996`, 0., 0.], 
    CylinderBox[{{-3.3466587, 5.9790108, -2.0106408}, {-2.4150366, 
     3.7359369, -1.0279968}}, 0.05]}, 
   {RGBColor[0.19999999999999996`, 0., 0.], 
    CylinderBox[{{-6.389075699999999, 
     8.6945097, -1.8330089999999999`}, {-5.6426442, 
     6.935199, -1.0714598999999998`}}, 0.05]}, 
   {RGBColor[0.19999999999999996`, 0., 0.], 
    CylinderBox[{{-8.7360831, 6.411752099999999, 1.5230982}, {-6.9616548, 
     5.6520927, 0.8125709999999999}}, 0.05]}, 
   {RGBColor[0.19999999999999996`, 0., 0.], 
    CylinderBox[{{-7.0655883, 2.3885807999999997`, 3.2842986}, {-6.0243636, 
     3.3750042, 1.814112}}, 0.05]}, 
   {RGBColor[0.19999999999999996`, 0., 0.], 
    CylinderBox[{{-2.3318898, 6.990000299999999, -3.4808274}, {-3.3466587, 
     5.9790108, -2.0106408}}, 0.05]}, 
   {RGBColor[0.19999999999999996`, 0., 0.], 
    CylinderBox[{{3.3409896, 5.9865696, -1.9974128999999998`}, {
     5.6313059999999995`, 6.948426899999999, -1.0506732}}, 0.05]}, 
   {RGBColor[0.19999999999999996`, 0., 0.], 
    CylinderBox[{{2.4093674999999997`, 3.741606, -1.0185483}, {0.0018897, 
     2.3848013999999997`, -1.7555313000000001`}}, 0.05]}, 
   {RGBColor[0.19999999999999996`, 0., 0.], 
    CylinderBox[{{2.4093674999999997`, 3.741606, -1.0185483}, {3.7529442, 
     2.4358232999999996`, 0.9108354}}, 0.05]}, 
   {RGBColor[0.19999999999999996`, 0., 0.], 
    CylinderBox[{{2.4093674999999997`, 3.741606, -1.0185483}, {3.3409896, 
     5.9865696, -1.9974128999999998`}}, 0.05]}, 
   {RGBColor[0.19999999999999996`, 0., 0.], 
    CylinderBox[{{6.009246, 3.3901217999999997`, 1.8386780999999999`}, {
     3.7529442, 2.4358232999999996`, 0.9108354}}, 0.05]}, 
   {RGBColor[0.19999999999999996`, 0., 0.], 
    CylinderBox[{{6.9465372, 5.6691, 0.8390268}, {5.6313059999999995`, 
     6.948426899999999, -1.0506732}}, 0.05]}, 
   {RGBColor[0.19999999999999996`, 0., 0.], 
    CylinderBox[{{6.9465372, 5.6691, 0.8390268}, {6.009246, 
     3.3901217999999997`, 1.8386780999999999`}}, 0.05]}, 
   {RGBColor[0.19999999999999996`, 0., 0.], 
    CylinderBox[{{6.3758478, 8.7096273, -1.8084429}, {5.6313059999999995`, 
     6.948426899999999, -1.0506732}}, 0.05]}, 
   {RGBColor[0.19999999999999996`, 0., 0.], 
    CylinderBox[{{2.3262207, 6.997559099999999, -3.4713789}, {3.3409896, 
     5.9865696, -1.9974128999999998`}}, 0.05]}, 
   {RGBColor[0.19999999999999996`, 0., 0.], 
    CylinderBox[{{7.0466913, 2.4055880999999997`, 3.3126440999999995`}, {
     6.009246, 3.3901217999999997`, 1.8386780999999999`}}, 0.05]}, 
   {RGBColor[0.19999999999999996`, 0., 0.], 
    CylinderBox[{{8.717186100000001, 6.4325388, 1.5571127999999999`}, {
     6.9465372, 5.6691, 0.8390268}}, 0.05]}, 
   {RGBColor[0.19999999999999996`, 0., 0.], 
    CylinderBox[{{3.3542175, -6.0508194, -1.7687592}, {
     5.646423599999999, -6.9711033, -0.7861151999999999}}, 0.05]}, 
   {RGBColor[0.19999999999999996`, 0., 0.], 
    CylinderBox[{{2.418816, -3.7718412, -0.8768208000000001}, {
     0.0056691, -2.4471615, -1.6648257}}, 0.05]}, 
   {RGBColor[0.19999999999999996`, 0., 0.], 
    CylinderBox[{{2.418816, -3.7718412, -0.8768208000000001}, {
     3.7586133, -2.3904704999999997`, 1.0034307}}, 0.05]}, 
   {RGBColor[0.19999999999999996`, 0., 0.], 
    CylinderBox[{{2.418816, -3.7718412, -0.8768208000000001}, {
     3.3542175, -6.0508194, -1.7687592}}, 0.05]}, 
   {RGBColor[0.19999999999999996`, 0., 0.], 
    CylinderBox[{{6.0168048, -3.3050853, 1.965288}, {
     3.7586133, -2.3904704999999997`, 1.0034307}}, 0.05]}, 
   {RGBColor[0.19999999999999996`, 0., 0.], 
    CylinderBox[{{6.9578754, -5.6180781, 1.0544526}, {
     5.646423599999999, -6.9711033, -0.7861151999999999}}, 0.05]}, 
   {RGBColor[0.19999999999999996`, 0., 0.], 
    CylinderBox[{{6.9578754, -5.6180781, 1.0544526}, {6.0168048, -3.3050853, 
     1.965288}}, 0.05]}, 
   {RGBColor[0.19999999999999996`, 0., 0.], 
    CylinderBox[{{6.3928551, -8.7587595, -1.4758557}, {
     5.646423599999999, -6.9711033, -0.7861151999999999}}, 0.05]}, 
   {RGBColor[0.19999999999999996`, 0., 0.], 
    CylinderBox[{{2.3413383000000003`, -7.1184999, -3.2030415}, {
     3.3542175, -6.0508194, -1.7687592}}, 0.05]}, 
   {RGBColor[0.19999999999999996`, 0., 0.], 
    CylinderBox[{{7.0523604, -2.2619709, 3.3995702999999997`}, {
     6.0168048, -3.3050853, 1.965288}}, 0.05]}, 
   {RGBColor[0.19999999999999996`, 0., 0.], 
    CylinderBox[{{8.7285243, -6.349392, 1.7989943999999998`}, {
     6.9578754, -5.6180781, 1.0544526}}, 0.05]}, 
   {RGBColor[0.19999999999999996`, 0., 0.], 
    CylinderBox[{{-6.0149151, -3.3183132, 
     1.9426116}, {-6.948426899999999, -5.6331957, 1.0261071}}, 0.05]}, 
   {RGBColor[0.19999999999999996`, 0., 0.], 
    CylinderBox[{{-3.7548339, -2.3980292999999997`, 0.9883131}, {-2.418816, 
     0.0302352, 1.7026197}}, 0.05]}, 
   {RGBColor[0.19999999999999996`, 0., 0.], 
    CylinderBox[{{-3.7548339, -2.3980292999999997`, 
     0.9883131}, {-2.4055880999999997`, -3.7775103, -0.8862692999999999}}, 
     0.05]}, 
   {RGBColor[0.19999999999999996`, 0., 0.], 
    CylinderBox[{{-3.7548339, -2.3980292999999997`, 
     0.9883131}, {-6.0149151, -3.3183132, 1.9426116}}, 0.05]}, 
   {RGBColor[0.19999999999999996`, 0., 0.], 
    CylinderBox[{{-3.3334308, -6.0564884999999995`, -1.7819870999999998`}, \
{-2.4055880999999997`, -3.7775103, -0.8862692999999999}}, 0.05]}, 
   {RGBColor[0.19999999999999996`, 0., 0.], 
    CylinderBox[{{-5.6275266, -6.982441499999999, -0.8087915999999999}, \
{-6.948426899999999, -5.6331957, 1.0261071}}, 0.05]}, 
   {RGBColor[0.19999999999999996`, 0., 0.], 
    CylinderBox[{{-5.6275266, -6.982441499999999, -0.8087915999999999}, \
{-3.3334308, -6.0564884999999995`, -1.7819870999999998`}}, 0.05]}, 
   {RGBColor[0.19999999999999996`, 0., 0.], 
    CylinderBox[{{-8.7228552, -6.368289, 
     1.7649798}, {-6.948426899999999, -5.6331957, 1.0261071}}, 0.05]}, 
   {RGBColor[0.19999999999999996`, 0., 0.], 
    CylinderBox[{{-7.0580295, -2.2789782, 3.3750042}, {-6.0149151, -3.3183132,
      1.9426116}}, 0.05]}, 
   {RGBColor[0.19999999999999996`, 0., 0.], 
    CylinderBox[{{-2.3148825, -7.1222793, -3.2143797}, {-3.3334308, \
-6.0564884999999995`, -1.7819870999999998`}}, 0.05]}, 
   {RGBColor[0.19999999999999996`, 0., 0.], 
    CylinderBox[{{-6.370178699999999, -8.770097699999999, -1.5042012}, \
{-5.6275266, -6.982441499999999, -0.8087915999999999}}, 0.05]}, 
   {RGBColor[0.19999999999999996`, 0., 0.], 
    CylinderBox[{{2.6606975999999998`, 0.1284996, 6.6233984999999995`}, {
     1.3001135999999998`, 0.17007299999999997`, 8.9061561}}, 0.05]}, 
   {RGBColor[0.19999999999999996`, 0., 0.], 
    CylinderBox[{{1.3379075999999999`, 0.08503649999999999, 4.3633173}, {
     2.4150366, 0.0359043, 1.7120682}}, 0.05]}, 
   {RGBColor[0.19999999999999996`, 0., 0.], 
    CylinderBox[{{1.3379075999999999`, 0.08503649999999999, 
     4.3633173}, {-1.3530251999999998`, 0.08125709999999998, 4.3576482}}, 
     0.05]}, 
   {RGBColor[0.19999999999999996`, 0., 0.], 
    CylinderBox[{{1.3379075999999999`, 0.08503649999999999, 4.3633173}, {
     2.6606975999999998`, 0.1284996, 6.6233984999999995`}}, 0.05]}, 
   {RGBColor[0.19999999999999996`, 0., 0.], 
    CylinderBox[{{-2.6852637, 0.1228305, 6.61395}, {-1.3530251999999998`, 
     0.08125709999999998, 4.3576482}}, 0.05]}, 
   {RGBColor[0.19999999999999996`, 0., 0.], 
    CylinderBox[{{-1.3322384999999999`, 0.16629359999999999`, 8.9023767}, {
     1.3001135999999998`, 0.17007299999999997`, 8.9061561}}, 0.05]}, 
   {RGBColor[0.19999999999999996`, 0., 0.], 
    CylinderBox[{{-1.3322384999999999`, 0.16629359999999999`, 
     8.9023767}, {-2.6852637, 0.1228305, 6.61395}}, 0.05]}, 
   {RGBColor[0.19999999999999996`, 0., 0.], 
    CylinderBox[{{2.324331, 0.2059773, 10.6900329}, {1.3001135999999998`, 
     0.17007299999999997`, 8.9061561}}, 0.05]}, 
   {RGBColor[0.19999999999999996`, 0., 0.], 
    CylinderBox[{{4.7148015, 0.132279, 6.6441852}, {2.6606975999999998`, 
     0.1284996, 6.6233984999999995`}}, 0.05]}, 
   {RGBColor[0.19999999999999996`, 0., 0.], 
    CylinderBox[{{-4.7393676, 0.11905109999999999`, 6.6271779}, {-2.6852637, 
     0.1228305, 6.61395}}, 0.05]}, 
   {RGBColor[0.19999999999999996`, 0., 0.], 
    CylinderBox[{{-2.3640147, 0.1984185, 10.6805844}, {-1.3322384999999999`, 
     0.16629359999999999`, 8.9023767}}, 0.05]}, 
   {RGBColor[0.19999999999999996`, 0., 0.], 
    CylinderBox[{{0.0170073, -2.796756, -6.5704869}, {
     0.020786699999999998`, -1.4853042, -8.883479699999999}}, 0.05]}, 
   {RGBColor[0.19999999999999996`, 0., 0.], 
    CylinderBox[{{0.0113382, -1.4267235, -4.3387512}, {
     0.0056691, -2.4471615, -1.6648257}}, 0.05]}, 
   {RGBColor[0.19999999999999996`, 0., 0.], 
    CylinderBox[{{0.0113382, -1.4267235, -4.3387512}, {0.0075588, 
     1.2623196, -4.3897731}}, 0.05]}, 
   {RGBColor[0.19999999999999996`, 0., 0.], 
    CylinderBox[{{0.0113382, -1.4267235, -4.3387512}, {
     0.0170073, -2.796756, -6.5704869}}, 0.05]}, 
   {RGBColor[0.19999999999999996`, 0., 0.], 
    CylinderBox[{{0.0094485, 2.5473156, -6.6725307}, {0.0075588, 
     1.2623196, -4.3897731}}, 0.05]}, 
   {RGBColor[0.19999999999999996`, 0., 0.], 
    CylinderBox[{{0.0170073, 1.1489376, -8.9326119}, {
     0.020786699999999998`, -1.4853042, -8.883479699999999}}, 0.05]}, 
   {RGBColor[0.19999999999999996`, 0., 0.], 
    CylinderBox[{{0.0170073, 1.1489376, -8.9326119}, {0.0094485, 
     2.5473156, -6.6725307}}, 0.05]}, 
   {RGBColor[0.19999999999999996`, 0., 0.], 
    CylinderBox[{{0.024566099999999997`, -2.5454258999999997`, -10.6446801}, {
     0.020786699999999998`, -1.4853042, -8.883479699999999}}, 0.05]}, 
   {RGBColor[0.19999999999999996`, 0., 0.], 
    CylinderBox[{{0.018897, -4.850859900000001, -6.5497002}, {
     0.0170073, -2.796756, -6.5704869}}, 0.05]}, 
   {RGBColor[0.19999999999999996`, 0., 0.], 
    CylinderBox[{{0.0075588, 4.5995298, -6.7292217}, {0.0094485, 
     2.5473156, -6.6725307}}, 0.05]}, 
   {RGBColor[0.19999999999999996`, 0., 0.], 
    CylinderBox[{{0.018897, 2.1429197999999996`, -10.733495999999999`}, {
     0.0170073, 1.1489376, -8.9326119}}, 0.05]}},
  AspectRatio->Automatic,
  ImageSize->{354.44444429725627`, Automatic},
  ViewPoint->{1.3, -2.4, 2.},
  ViewVertical->{0.00926418703120009, 0.005087998695246962, 
   0.9999613969225702}]], "Output",
 CellChangeTimes->{3.5684566186201177`*^9, 3.5684568122164574`*^9, 
  3.5684590154684935`*^9, 3.5684657051621113`*^9}]
}, Open  ]]
},
WindowSize->{1470, 1002},
WindowMargins->{{210, Automatic}, {0, Automatic}},
PrintingCopies->1,
PrintingPageRange->{32000, 32000},
PrintingOptions->{"Magnification"->1.,
"PaperOrientation"->"Portrait",
"PaperSize"->{595.2, 841.8}},
Magnification->0.8999999761581421,
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[557, 20, 711, 14, 29, "Input"],
Cell[CellGroupData[{
Cell[1293, 38, 2469, 39, 70, "Input"],
Cell[3765, 79, 8799, 243, 219, "Output"]
}, Open  ]],
Cell[CellGroupData[{
Cell[12601, 327, 213, 5, 50, "Input"],
Cell[12817, 334, 144, 2, 28, "Output"]
}, Open  ]],
Cell[12976, 339, 1885, 29, 70, "Input"],
Cell[14864, 370, 2917, 52, 29, "Input"],
Cell[17784, 424, 3244, 56, 29, "Input"],
Cell[CellGroupData[{
Cell[21053, 484, 2566, 36, 29, "Input"],
Cell[23622, 522, 9317, 139, 442, "Output"]
}, Open  ]],
Cell[32954, 664, 1254, 35, 70, "Input"],
Cell[34211, 701, 3583, 74, 70, "Input"],
Cell[37797, 777, 1595, 25, 70, "Input"],
Cell[39395, 804, 1708, 43, 90, "Input"],
Cell[41106, 849, 511, 11, 50, "Input"],
Cell[41620, 862, 2048, 48, 90, "Input"],
Cell[43671, 912, 2133, 51, 70, "Input"],
Cell[45807, 965, 1261, 33, 50, "Input"],
Cell[CellGroupData[{
Cell[47093, 1002, 1534, 37, 50, "Input"],
Cell[48630, 1041, 163, 2, 28, "Output"]
}, Open  ]],
Cell[48808, 1046, 1923, 33, 70, "Input"],
Cell[50734, 1081, 1719, 24, 29, "Input"],
Cell[52456, 1107, 1655, 24, 29, "Input"],
Cell[CellGroupData[{
Cell[54136, 1135, 3414, 71, 70, "Input"],
Cell[CellGroupData[{
Cell[57575, 1210, 474, 9, 21, "Print"],
Cell[58052, 1221, 474, 9, 21, "Print"],
Cell[58529, 1232, 469, 9, 21, "Print"],
Cell[59001, 1243, 471, 9, 21, "Print"],
Cell[59475, 1254, 471, 9, 21, "Print"],
Cell[59949, 1265, 471, 9, 21, "Print"],
Cell[60423, 1276, 474, 9, 21, "Print"],
Cell[60900, 1287, 476, 9, 21, "Print"],
Cell[61379, 1298, 478, 9, 21, "Print"],
Cell[61860, 1309, 478, 9, 21, "Print"],
Cell[62341, 1320, 480, 9, 21, "Print"],
Cell[62824, 1331, 480, 9, 21, "Print"],
Cell[63307, 1342, 480, 9, 21, "Print"],
Cell[63790, 1353, 478, 9, 21, "Print"],
Cell[64271, 1364, 477, 9, 21, "Print"],
Cell[64751, 1375, 480, 9, 21, "Print"],
Cell[65234, 1386, 480, 9, 21, "Print"],
Cell[65717, 1397, 480, 9, 21, "Print"],
Cell[66200, 1408, 477, 9, 21, "Print"],
Cell[66680, 1419, 477, 9, 21, "Print"],
Cell[67160, 1430, 480, 9, 21, "Print"],
Cell[67643, 1441, 480, 9, 21, "Print"],
Cell[68126, 1452, 478, 9, 21, "Print"],
Cell[68607, 1463, 478, 9, 21, "Print"],
Cell[69088, 1474, 480, 9, 21, "Print"],
Cell[69571, 1485, 478, 9, 21, "Print"],
Cell[70052, 1496, 477, 9, 21, "Print"],
Cell[70532, 1507, 480, 9, 21, "Print"],
Cell[71015, 1518, 477, 9, 21, "Print"],
Cell[71495, 1529, 480, 9, 21, "Print"],
Cell[71978, 1540, 480, 9, 21, "Print"],
Cell[72461, 1551, 480, 9, 21, "Print"],
Cell[72944, 1562, 477, 9, 21, "Print"],
Cell[73424, 1573, 475, 9, 21, "Print"],
Cell[73902, 1584, 478, 9, 21, "Print"],
Cell[74383, 1595, 480, 9, 21, "Print"],
Cell[74866, 1606, 473, 9, 21, "Print"],
Cell[75342, 1617, 480, 9, 21, "Print"],
Cell[75825, 1628, 477, 9, 21, "Print"],
Cell[76305, 1639, 480, 9, 21, "Print"],
Cell[76788, 1650, 477, 9, 21, "Print"],
Cell[77268, 1661, 480, 9, 21, "Print"],
Cell[77751, 1672, 477, 9, 21, "Print"],
Cell[78231, 1683, 480, 9, 21, "Print"],
Cell[78714, 1694, 478, 9, 21, "Print"],
Cell[79195, 1705, 478, 9, 21, "Print"],
Cell[79676, 1716, 477, 9, 21, "Print"],
Cell[80156, 1727, 478, 9, 21, "Print"],
Cell[80637, 1738, 475, 9, 21, "Print"],
Cell[81115, 1749, 480, 9, 21, "Print"],
Cell[81598, 1760, 480, 9, 21, "Print"],
Cell[82081, 1771, 480, 9, 21, "Print"],
Cell[82564, 1782, 480, 9, 21, "Print"],
Cell[83047, 1793, 480, 9, 21, "Print"],
Cell[83530, 1804, 480, 9, 21, "Print"],
Cell[84013, 1815, 475, 9, 21, "Print"],
Cell[84491, 1826, 480, 9, 21, "Print"],
Cell[84974, 1837, 480, 9, 21, "Print"],
Cell[85457, 1848, 480, 9, 21, "Print"],
Cell[85940, 1859, 480, 9, 21, "Print"],
Cell[86423, 1870, 480, 9, 21, "Print"],
Cell[86906, 1881, 477, 9, 21, "Print"],
Cell[87386, 1892, 477, 9, 21, "Print"],
Cell[87866, 1903, 480, 9, 21, "Print"],
Cell[88349, 1914, 480, 9, 21, "Print"],
Cell[88832, 1925, 480, 9, 21, "Print"],
Cell[89315, 1936, 478, 9, 21, "Print"],
Cell[89796, 1947, 478, 9, 21, "Print"],
Cell[90277, 1958, 480, 9, 21, "Print"],
Cell[90760, 1969, 478, 9, 21, "Print"],
Cell[91241, 1980, 480, 9, 21, "Print"],
Cell[91724, 1991, 475, 9, 21, "Print"],
Cell[92202, 2002, 480, 9, 21, "Print"],
Cell[92685, 2013, 480, 9, 21, "Print"],
Cell[93168, 2024, 480, 9, 21, "Print"],
Cell[93651, 2035, 480, 9, 21, "Print"]
}, Open  ]]
}, Open  ]],
Cell[94158, 2048, 2696, 53, 90, "Input"],
Cell[CellGroupData[{
Cell[96879, 2105, 839, 15, 50, "Input"],
Cell[97721, 2122, 6878, 157, 162, "Output"],
Cell[104602, 2281, 144, 2, 28, "Output"]
}, Open  ]],
Cell[CellGroupData[{
Cell[104783, 2288, 23023, 577, 270, "Input"],
Cell[127809, 2867, 34333, 746, 492, "Output"]
}, Open  ]],
Cell[CellGroupData[{
Cell[162179, 3618, 253, 5, 29, "Input"],
Cell[162435, 3625, 22033, 373, 392, "Output"]
}, Open  ]]
}
]
*)

(* End of internal cache information *)