(* 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[    234296,       5113]
NotebookOptionsPosition[    228116,       4914]
NotebookOutlinePosition[    228616,       4934]
CellTagsIndexPosition[    228573,       4931]
WindowFrame->Normal*)

(* Beginning of Notebook Content *)
Notebook[{
Cell[BoxData[
 RowBox[{
  RowBox[{"(*", " ", 
   RowBox[{
    RowBox[{
    "Kimball", " ", "model", " ", "and", " ", "energy", " ", "derived", " ", 
     "from", " ", "Wolfram", " ", "source"}], ",", " ", 
    RowBox[{"ES", " ", "27", " ", "February", " ", "2013"}]}], " ", "*)"}], 
  " ", "\[IndentingNewLine]", 
  RowBox[{
   RowBox[{"Clear", "[", 
    RowBox[{
    "tw", ",", "n2", ",", "n", ",", "nb", ",", "bc", ",", "bh", ",", "u", ",",
      "u1", ",", "u2", ",", "Vee", ",", "Vne", ",", "Vnn"}], "]"}], 
   ";"}]}]], "Input",
 CellChangeTimes->{{3.568278170270548*^9, 3.568278174310955*^9}, {
   3.5682782109554195`*^9, 3.5682782183342323`*^9}, {3.5688220426984916`*^9, 
   3.5688220506389055`*^9}, {3.568822092353379*^9, 3.568822134660653*^9}, {
   3.5688728241768503`*^9, 3.568872825034852*^9}, {3.5688958900531473`*^9, 
   3.5688958965115585`*^9}, {3.5689027504159966`*^9, 3.568902751695199*^9}, {
   3.5689109808408637`*^9, 3.568910992618884*^9}, {3.569134574760273*^9, 
   3.569134584135889*^9}, 3.56923802266416*^9, {3.56933446475942*^9, 
   3.569334471239791*^9}, {3.5693395229642725`*^9, 3.569339531606688*^9}, {
   3.5694332905109916`*^9, 3.56943330667262*^9}, {3.570297588441428*^9, 
   3.5702976026530533`*^9}, {3.570558862041448*^9, 3.5705588713234644`*^9}, 
   3.5705590387585583`*^9, {3.570855141170933*^9, 3.570855146100541*^9}, {
   3.5708563212974052`*^9, 3.5708563224362073`*^9}, {3.5708588179101906`*^9, 
   3.570858820452995*^9}, 3.570949483910489*^9}],

Cell[CellGroupData[{

Cell[BoxData[
 RowBox[{
  RowBox[{"ChemicalData", "[", 
   RowBox[{"\"\<Pentane\>\"", ",", "\"\<MoleculePlot\>\""}], "]"}], 
  "\[IndentingNewLine]"}]], "Input",
 CellChangeTimes->{{3.570856547809803*^9, 3.5708565502590075`*^9}, 
   3.5708567094884872`*^9, 3.5709425310070767`*^9, {3.571043490110433*^9, 
   3.5710434917172356`*^9}, 3.571043529531702*^9, 3.5710448378904*^9, 
   3.5710449557330074`*^9, 3.5710450687240057`*^9, 3.571045145959741*^9, 
   3.5710452246306796`*^9, 3.5710452982472086`*^9}],

Cell[BoxData[
 Graphics3DBox[
  {AbsoluteThickness[3], EdgeForm[None], Specularity[
    GrayLevel[1], 100], GraphicsComplex3DBox[CompressedData["
1:eJxTTMoPSmViYGCQBWJmIJ4swRLGx2vsIBuVYn1/vcuBbxox/YdEzQ8c/gpk
KEUeAMrqbpor4RC0Q6719cHIA2fPAEFLuMO7GnvTOKUgh4lvgYx5bg5pICCW
e+D64gJbrnavA0LNB04tTPU6ANIW+CLb4U0gkOVt6WAMAs0xDn9Wfrzk22R4
4GGVyDr3iVEHnv8GCtz1clg2+4jChlmhDrNmAsHHsANAW3Z5+oRBzNkRegAs
X2QF4TdkHoCYFwVxr1GMA9Cx75fzRUDMTYyDuOtZosMckDYPuwNgfwjaOVQD
pR9KxULs2RnrANbPlH8AHB69FgfA6md4OABVVYnMyznAAAI/kg98WH7M2/yl
7wGwvqnFB/oPATXqGxwA+087BiLOWeTQOz1PqFnB6ADImqolLhB/v85wAAWL
6zV3iDsmpjuA9f8ucACrM4l2sOUChiBrikPCSzVDjjUv7H8EP146uyTowI1z
34EsPQeg7m2fY70cQoDCR5YEHKgFBZCgzwE7kL7c8ANqbI1Tnb1VDhSADDJI
PgD256XIAyq3f9Zl7fF1cACF54sISDx9jnK4qwLU8D3KgQMUcM9lHR6Bwo3T
32HLibJ98+eFOxhxrJGJagmBuI8n74BAhOWWE2nOBxLAEfZnP8ha21s5kHQz
M+oA0PbuHHWfA+BwFyiEhI+/44FdnjxM2utDIOr+5js0gP3H4wCO1qxgB7B4
ZpaDhD7QRYlqEHUvkxxeg8L1fZ6DByhCDwdA+MqJDgCO8Eoh
    "], {
     {RGBColor[0.65, 0.7, 0.7], SphereBox[6, 24.], SphereBox[7, 24.], 
      SphereBox[8, 24.], SphereBox[9, 24.], SphereBox[10, 24.], 
      SphereBox[11, 24.], SphereBox[12, 24.], SphereBox[13, 24.], 
      SphereBox[14, 24.], SphereBox[15, 24.], SphereBox[16, 24.], 
      SphereBox[17, 24.]}, 
     {RGBColor[0.4, 0.4, 0.4], SphereBox[1, 34.], SphereBox[2, 34.], 
      SphereBox[3, 34.], SphereBox[4, 34.], SphereBox[5, 34.]}, 
     {RGBColor[0.65, 0.7, 0.7], CylinderBox[{18, 6}, 15.], 
      CylinderBox[{19, 7}, 15.], CylinderBox[{20, 8}, 15.], 
      CylinderBox[{21, 9}, 15.], CylinderBox[{22, 10}, 15.], 
      CylinderBox[{23, 11}, 15.], CylinderBox[{24, 12}, 15.], 
      CylinderBox[{25, 13}, 15.], CylinderBox[{26, 14}, 15.], 
      CylinderBox[{27, 15}, 15.], CylinderBox[{28, 16}, 15.], 
      CylinderBox[{29, 17}, 15.]}, 
     {RGBColor[0.4, 0.4, 0.4], CylinderBox[{1, 2}, 15.], 
      CylinderBox[{1, 3}, 15.], CylinderBox[{1, 18}, 15.], 
      CylinderBox[{1, 19}, 15.], CylinderBox[{2, 4}, 15.], 
      CylinderBox[{2, 20}, 15.], CylinderBox[{2, 21}, 15.], 
      CylinderBox[{3, 5}, 15.], CylinderBox[{3, 22}, 15.], 
      CylinderBox[{3, 23}, 15.], CylinderBox[{4, 24}, 15.], 
      CylinderBox[{4, 25}, 15.], CylinderBox[{4, 26}, 15.], 
      CylinderBox[{5, 27}, 15.], CylinderBox[{5, 28}, 15.], 
      CylinderBox[{5, 29}, 15.]}}]},
  Boxed->False,
  ImageSize->212.25397398309377`,
  Lighting->"Neutral",
  ViewPoint->{1.3, -2.4, -2.}]], "Output",
 CellChangeTimes->{3.571045315251239*^9}]
}, Open  ]],

Cell[CellGroupData[{

Cell[BoxData[{
 RowBox[{
  RowBox[{"t1", "=", 
   RowBox[{"0.01889726", "*", 
    RowBox[{"ChemicalData", "[", 
     RowBox[{"\"\<Pentane\>\"", ",", "\"\<AtomPositions\>\""}], "]"}]}]}], 
  ";"}], "\n", 
 RowBox[{"MatrixForm", "[", "t1", "]"}]}], "Input",
 CellChangeTimes->{
  3.57029749846047*^9, {3.570297893562364*^9, 3.5702979152152023`*^9}, {
   3.5704535321223855`*^9, 3.570453555038826*^9}, {3.570558892227501*^9, 
   3.5705589112283344`*^9}, {3.5705589864360666`*^9, 
   3.5705590132681136`*^9}, {3.5705590525489826`*^9, 
   3.5705590747322216`*^9}, {3.570595322227199*^9, 3.5705953504632483`*^9}, 
   3.570855059411189*^9, 3.570856566545436*^9, 3.5709425310226765`*^9, 
   3.5710435245240936`*^9, 3.571044837906*^9, 3.571044955748607*^9, 
   3.5710450687240057`*^9, 3.571045145975341*^9, 3.5710452246462793`*^9, 
   3.571045298262809*^9}],

Cell[BoxData[
 TagBox[
  RowBox[{"(", "\[NoBreak]", GridBox[{
     {"0.36001170025999996`", 
      RowBox[{"-", "0.78185523524`"}], 
      RowBox[{"-", "0.4362432471`"}]},
     {
      RowBox[{"-", "1.8999305204`"}], "0.11629373804`", 
      RowBox[{"-", "1.9469846977999998`"}]},
     {"1.7777597345`", "1.37075054862`", "0.8548364533599999`"},
     {
      RowBox[{"-", "4.3973924019999995`"}], 
      RowBox[{"-", "1.0025941293`"}], 
      RowBox[{"-", "0.9976619444399999`"}]},
     {"4.2190022676`", "0.4780061917`", "2.1552325029999997`"},
     {
      RowBox[{"-", "0.33087212534`"}], 
      RowBox[{"-", "2.0082118201999997`"}], "1.01540647158`"},
     {"1.63304451742`", 
      RowBox[{"-", "1.7342960365`"}], 
      RowBox[{"-", "1.6854844139199998`"}]},
     {
      RowBox[{"-", "1.6417939487999997`"}], 
      RowBox[{"-", "0.49979473248`"}], 
      RowBox[{"-", "3.8552300125999994`"}]},
     {
      RowBox[{"-", "2.004054423`"}], "2.1314219554`", 
      RowBox[{"-", "1.81846443254`"}]},
     {"2.2963950351999998`", "2.7060876319999996`", 
      RowBox[{"-", "0.57226572458`"}]},
     {"0.5682406082`", "2.2000190092`", "2.246884214`"},
     {
      RowBox[{"-", "4.6880322608`"}], 
      RowBox[{"-", "0.46394663025999994`"}], "0.92957511666`"},
     {
      RowBox[{"-", "4.3263387043999995`"}], 
      RowBox[{"-", "3.018837285`"}], 
      RowBox[{"-", "1.13047188772`"}]},
     {
      RowBox[{"-", "5.921456421`"}], 
      RowBox[{"-", "0.30585215309999997`"}], 
      RowBox[{"-", "2.1293432568`"}]},
     {"5.453749236`", 
      RowBox[{"-", "0.34255063201999997`"}], "0.7801733790999998`"},
     {"3.7671687809999996`", 
      RowBox[{"-", "0.9009079732399999`"}], "3.5632673456`"},
     {"5.1345745146`", "2.0563998332`", "3.0267741341999996`"}
    },
    GridBoxAlignment->{
     "Columns" -> {{Center}}, "ColumnsIndexed" -> {}, "Rows" -> {{Baseline}}, 
      "RowsIndexed" -> {}},
    GridBoxSpacings->{"Columns" -> {
        Offset[0.27999999999999997`], {
         Offset[0.7]}, 
        Offset[0.27999999999999997`]}, "ColumnsIndexed" -> {}, "Rows" -> {
        Offset[0.2], {
         Offset[0.4]}, 
        Offset[0.2]}, "RowsIndexed" -> {}}], "\[NoBreak]", ")"}],
  Function[BoxForm`e$, 
   MatrixForm[BoxForm`e$]]]], "Output",
 CellChangeTimes->{3.5710453152824388`*^9}]
}, Open  ]],

Cell[CellGroupData[{

Cell[BoxData[
 RowBox[{"u", "=", 
  RowBox[{"ChemicalData", "\[NoBreak]", "[", 
   RowBox[{"\"\<Pentane\>\"", ",", "\"\<VertexTypes\>\""}], "]"}]}]], "Input",
 CellChangeTimes->{
  3.57029749846047*^9, {3.570297893562364*^9, 3.5702979152152023`*^9}, {
   3.5704535321223855`*^9, 3.570453555038826*^9}, {3.570558892227501*^9, 
   3.5705589112283344`*^9}, {3.5705589864360666`*^9, 3.5705590132681136`*^9}, 
   3.5705592408949137`*^9, {3.5705593512807074`*^9, 3.5705593890483737`*^9}, {
   3.570559442712468*^9, 3.5705594826641383`*^9}, 3.5708550837628317`*^9, 
   3.570856587480673*^9, 3.5709425310226765`*^9, 3.5710435245552936`*^9, 
   3.5710448379216003`*^9, 3.571044955764207*^9, 3.571045068739606*^9, 
   3.571045145975341*^9, 3.5710452246462793`*^9, 3.571045298278409*^9}],

Cell[BoxData[
 RowBox[{"{", 
  RowBox[{"\<\"C\"\>", ",", "\<\"C\"\>", ",", "\<\"C\"\>", ",", "\<\"C\"\>", 
   ",", "\<\"C\"\>", ",", "\<\"H\"\>", ",", "\<\"H\"\>", ",", "\<\"H\"\>", 
   ",", "\<\"H\"\>", ",", "\<\"H\"\>", ",", "\<\"H\"\>", ",", "\<\"H\"\>", 
   ",", "\<\"H\"\>", ",", "\<\"H\"\>", ",", "\<\"H\"\>", ",", "\<\"H\"\>", 
   ",", "\<\"H\"\>"}], "}"}]], "Output",
 CellChangeTimes->{3.5710453152980385`*^9}]
}, Open  ]],

Cell[CellGroupData[{

Cell[BoxData[
 RowBox[{"n", "=", 
  RowBox[{"Length", "[", "t1", "]"}]}]], "Input",
 CellChangeTimes->{{3.568278170270548*^9, 3.568278174310955*^9}, {
   3.5682782109554195`*^9, 3.5682782183342323`*^9}, {3.5688220426984916`*^9, 
   3.5688220506389055`*^9}, {3.568822092353379*^9, 3.568822123693834*^9}, 
   3.568873215924739*^9, 3.5689108676002645`*^9, 3.5689997098237543`*^9, 
   3.5689998170115423`*^9, 3.568999886915265*^9, 3.5691460425981283`*^9, {
   3.5692371678918586`*^9, 3.569237204489523*^9}, 3.569237465805582*^9, 
   3.56923802261736*^9, 3.5693403424025126`*^9, 3.5693404501675014`*^9, 
   3.569340737988007*^9, 3.569340852819809*^9, 3.569341165475558*^9, 
   3.56934149694494*^9, 3.569342614390503*^9, 3.569343567162176*^9, 
   3.569343662712344*^9, 3.569343763597721*^9, 3.5693440703198595`*^9, 
   3.569344266209404*^9, 3.5702973471714044`*^9, 3.5702974395391665`*^9, {
   3.570297637207114*^9, 3.570297637987115*^9}, 3.570297920051211*^9}],

Cell[BoxData["17"], "Output",
 CellChangeTimes->{3.5710453153136387`*^9}]
}, Open  ]],

Cell[CellGroupData[{

Cell[BoxData[
 RowBox[{"un", "=", 
  RowBox[{"Table", "[", 
   RowBox[{
    RowBox[{"If", "[", 
     RowBox[{
      RowBox[{
       RowBox[{"u", "[", 
        RowBox[{"[", "i", "]"}], "]"}], "\[Equal]", "\"\<H\>\""}], ",", 
      "\"\<Z\>\"", ",", 
      RowBox[{"u", "[", 
       RowBox[{"[", "i", "]"}], "]"}]}], "]"}], ",", 
    RowBox[{"{", 
     RowBox[{"i", ",", "1", ",", "n"}], "}"}]}], "]"}]}]], "Input",
 CellChangeTimes->{{3.568807971988578*^9, 3.5688080897687845`*^9}, {
   3.5688081769573374`*^9, 3.5688081865669546`*^9}, {3.568808274317109*^9, 
   3.5688082853151283`*^9}, {3.5688085365847692`*^9, 3.568808578330443*^9}, {
   3.568808822704872*^9, 3.5688088761037655`*^9}, {3.56880890727262*^9, 
   3.568808937365073*^9}, {3.568809097608555*^9, 3.5688091594002633`*^9}, 
   3.5688092418308077`*^9, {3.5688092753552666`*^9, 3.568809302577315*^9}, {
   3.5688096257786827`*^9, 3.568809703201618*^9}, {3.5688097456336927`*^9, 
   3.568809788268568*^9}, 3.568809850575077*^9, {3.568809946562046*^9, 
   3.5688099535664577`*^9}, {3.5688100003197403`*^9, 3.568810008556555*^9}, {
   3.568810075371472*^9, 3.56881007981748*^9}, {3.568813431920168*^9, 
   3.568813533086345*^9}, {3.5688135960324554`*^9, 3.5688136045344706`*^9}, {
   3.5688136407889347`*^9, 3.568813707494652*^9}, {3.568813812529636*^9, 
   3.5688138275524626`*^9}, {3.5688140611940727`*^9, 3.568814062738476*^9}, {
   3.568814121113778*^9, 3.5688141965555105`*^9}, {3.568814326675339*^9, 
   3.568814331074547*^9}, 3.568814589473401*^9, 3.5688146762563534`*^9, 
   3.56881472549004*^9}],

Cell[BoxData[
 RowBox[{"{", 
  RowBox[{"\<\"C\"\>", ",", "\<\"C\"\>", ",", "\<\"C\"\>", ",", "\<\"C\"\>", 
   ",", "\<\"C\"\>", ",", "\<\"Z\"\>", ",", "\<\"Z\"\>", ",", "\<\"Z\"\>", 
   ",", "\<\"Z\"\>", ",", "\<\"Z\"\>", ",", "\<\"Z\"\>", ",", "\<\"Z\"\>", 
   ",", "\<\"Z\"\>", ",", "\<\"Z\"\>", ",", "\<\"Z\"\>", ",", "\<\"Z\"\>", 
   ",", "\<\"Z\"\>"}], "}"}]], "Output",
 CellChangeTimes->{3.571045315329239*^9}]
}, Open  ]],

Cell[BoxData[
 RowBox[{
  RowBox[{"num", "=", 
   RowBox[{"Table", "[", 
    RowBox[{"i", ",", 
     RowBox[{"{", 
      RowBox[{"i", ",", "1", ",", "n"}], "}"}]}], "]"}]}], ";"}]], "Input",
 CellChangeTimes->{{3.568807971988578*^9, 3.5688080897687845`*^9}, {
   3.5688081769573374`*^9, 3.5688081865669546`*^9}, {3.568808274317109*^9, 
   3.5688082853151283`*^9}, {3.5688085365847692`*^9, 3.568808578330443*^9}, {
   3.568808822704872*^9, 3.5688088761037655`*^9}, {3.56880890727262*^9, 
   3.568808937365073*^9}, {3.568809097608555*^9, 3.5688091594002633`*^9}, 
   3.5688092418308077`*^9, {3.5688092753552666`*^9, 3.568809302577315*^9}, {
   3.5688096257786827`*^9, 3.568809703201618*^9}, {3.5688097456336927`*^9, 
   3.568809788268568*^9}, 3.568809850575077*^9, {3.568809946562046*^9, 
   3.5688099535664577`*^9}, {3.5688100003197403`*^9, 3.568810008556555*^9}, {
   3.568810075371472*^9, 3.56881007981748*^9}, {3.568813431920168*^9, 
   3.568813533086345*^9}, {3.5688135960324554`*^9, 3.5688136045344706`*^9}, {
   3.5688136407889347`*^9, 3.568813707494652*^9}, {3.568813812529636*^9, 
   3.5688138275524626`*^9}, {3.5688140611940727`*^9, 3.568814062738476*^9}, {
   3.568814121113778*^9, 3.5688141965555105`*^9}, {3.568814326675339*^9, 
   3.568814331074547*^9}, 3.568814589473401*^9, {3.5688146762563534`*^9, 
   3.5688146829331646`*^9}, 3.5688147231032352`*^9, 3.5688216336189733`*^9}],

Cell[BoxData[
 RowBox[{
  RowBox[{"um", "=", 
   RowBox[{"Table", "[", 
    RowBox[{
     RowBox[{"{", 
      RowBox[{
       RowBox[{"un", "[", 
        RowBox[{"[", "i", "]"}], "]"}], ",", 
       RowBox[{"num", "[", 
        RowBox[{"[", "i", "]"}], "]"}]}], "}"}], ",", 
     RowBox[{"{", 
      RowBox[{"i", ",", "1", ",", "n"}], "}"}]}], "]"}]}], ";"}]], "Input",
 CellChangeTimes->{{3.568807971988578*^9, 3.5688080897687845`*^9}, {
   3.5688081769573374`*^9, 3.5688081865669546`*^9}, {3.568808274317109*^9, 
   3.5688082853151283`*^9}, {3.5688085365847692`*^9, 3.568808578330443*^9}, {
   3.568808822704872*^9, 3.5688088761037655`*^9}, {3.56880890727262*^9, 
   3.568808937365073*^9}, {3.568809097608555*^9, 3.5688091594002633`*^9}, 
   3.5688092418308077`*^9, {3.5688092753552666`*^9, 3.568809302577315*^9}, {
   3.5688096257786827`*^9, 3.568809703201618*^9}, {3.5688097456336927`*^9, 
   3.568809788268568*^9}, 3.568809850575077*^9, {3.568809946562046*^9, 
   3.5688099535664577`*^9}, {3.5688100003197403`*^9, 3.568810008556555*^9}, {
   3.568810075371472*^9, 3.56881007981748*^9}, {3.568813431920168*^9, 
   3.568813533086345*^9}, {3.5688135960324554`*^9, 3.5688136045344706`*^9}, {
   3.5688136407889347`*^9, 3.568813707494652*^9}, {3.568813812529636*^9, 
   3.5688138275524626`*^9}, {3.5688140611940727`*^9, 3.568814062738476*^9}, {
   3.568814121113778*^9, 3.5688141965555105`*^9}, {3.568814326675339*^9, 
   3.568814331074547*^9}, 3.568814589473401*^9, {3.5688146762563534`*^9, 
   3.5688146885023746`*^9}, 3.5688147203576307`*^9, 3.56882164316619*^9}],

Cell[CellGroupData[{

Cell[BoxData[
 RowBox[{"us", "=", 
  RowBox[{"Sort", "[", "um", "]"}]}]], "Input",
 CellChangeTimes->{{3.568807971988578*^9, 3.5688080897687845`*^9}, {
   3.5688081769573374`*^9, 3.5688081865669546`*^9}, {3.568808274317109*^9, 
   3.5688082853151283`*^9}, {3.5688085365847692`*^9, 3.568808578330443*^9}, {
   3.568808822704872*^9, 3.5688088761037655`*^9}, {3.56880890727262*^9, 
   3.568808937365073*^9}, {3.568809097608555*^9, 3.5688091594002633`*^9}, 
   3.5688092418308077`*^9, {3.5688092753552666`*^9, 3.568809302577315*^9}, {
   3.5688096257786827`*^9, 3.568809703201618*^9}, {3.5688097456336927`*^9, 
   3.568809788268568*^9}, 3.568809850575077*^9, {3.568809946562046*^9, 
   3.5688099535664577`*^9}, {3.5688100003197403`*^9, 3.568810008556555*^9}, {
   3.568810075371472*^9, 3.56881007981748*^9}, {3.568813431920168*^9, 
   3.568813533086345*^9}, {3.5688135960324554`*^9, 3.5688136045344706`*^9}, {
   3.5688136407889347`*^9, 3.568813707494652*^9}, {3.568813812529636*^9, 
   3.5688138275524626`*^9}, {3.5688140611940727`*^9, 3.568814062738476*^9}, {
   3.568814121113778*^9, 3.5688141965555105`*^9}, {3.568814326675339*^9, 
   3.568814331074547*^9}, 3.568814589473401*^9, {3.5688146762563534`*^9, 
   3.5688146945707855`*^9}}],

Cell[BoxData[
 RowBox[{"{", 
  RowBox[{
   RowBox[{"{", 
    RowBox[{"\<\"C\"\>", ",", "1"}], "}"}], ",", 
   RowBox[{"{", 
    RowBox[{"\<\"C\"\>", ",", "2"}], "}"}], ",", 
   RowBox[{"{", 
    RowBox[{"\<\"C\"\>", ",", "3"}], "}"}], ",", 
   RowBox[{"{", 
    RowBox[{"\<\"C\"\>", ",", "4"}], "}"}], ",", 
   RowBox[{"{", 
    RowBox[{"\<\"C\"\>", ",", "5"}], "}"}], ",", 
   RowBox[{"{", 
    RowBox[{"\<\"Z\"\>", ",", "6"}], "}"}], ",", 
   RowBox[{"{", 
    RowBox[{"\<\"Z\"\>", ",", "7"}], "}"}], ",", 
   RowBox[{"{", 
    RowBox[{"\<\"Z\"\>", ",", "8"}], "}"}], ",", 
   RowBox[{"{", 
    RowBox[{"\<\"Z\"\>", ",", "9"}], "}"}], ",", 
   RowBox[{"{", 
    RowBox[{"\<\"Z\"\>", ",", "10"}], "}"}], ",", 
   RowBox[{"{", 
    RowBox[{"\<\"Z\"\>", ",", "11"}], "}"}], ",", 
   RowBox[{"{", 
    RowBox[{"\<\"Z\"\>", ",", "12"}], "}"}], ",", 
   RowBox[{"{", 
    RowBox[{"\<\"Z\"\>", ",", "13"}], "}"}], ",", 
   RowBox[{"{", 
    RowBox[{"\<\"Z\"\>", ",", "14"}], "}"}], ",", 
   RowBox[{"{", 
    RowBox[{"\<\"Z\"\>", ",", "15"}], "}"}], ",", 
   RowBox[{"{", 
    RowBox[{"\<\"Z\"\>", ",", "16"}], "}"}], ",", 
   RowBox[{"{", 
    RowBox[{"\<\"Z\"\>", ",", "17"}], "}"}]}], "}"}]], "Output",
 CellChangeTimes->{3.571045315360439*^9}]
}, Open  ]],

Cell[CellGroupData[{

Cell[BoxData[
 RowBox[{"num", "=", 
  RowBox[{"Table", "[", 
   RowBox[{
    RowBox[{"us", "[", 
     RowBox[{"[", 
      RowBox[{"i", ",", "2"}], "]"}], "]"}], ",", 
    RowBox[{"{", 
     RowBox[{"i", ",", "1", ",", "n"}], "}"}]}], "]"}]}]], "Input",
 CellChangeTimes->{{3.56881016518083*^9, 3.5688102745058217`*^9}, {
   3.5688103430679426`*^9, 3.5688103543155622`*^9}, {3.5688124958093233`*^9, 
   3.568812496386524*^9}, {3.5688126345871673`*^9, 3.568812635491969*^9}, {
   3.568812673025635*^9, 3.5688126732128353`*^9}, {3.5688127492161684`*^9, 
   3.568812848541543*^9}, 3.5688129280080824`*^9, {3.568813062152718*^9, 
   3.5688131360032477`*^9}, 3.568813172678912*^9, 3.568821701869093*^9}],

Cell[BoxData[
 RowBox[{"{", 
  RowBox[{
  "1", ",", "2", ",", "3", ",", "4", ",", "5", ",", "6", ",", "7", ",", "8", 
   ",", "9", ",", "10", ",", "11", ",", "12", ",", "13", ",", "14", ",", "15",
    ",", "16", ",", "17"}], "}"}]], "Output",
 CellChangeTimes->{3.5710453153760386`*^9}]
}, Open  ]],

Cell[BoxData[
 RowBox[{
  RowBox[{"For", "[", 
   RowBox[{
    RowBox[{"i", "=", "1"}], ",", 
    RowBox[{"i", "<", 
     RowBox[{"n", "+", "1"}]}], ",", 
    RowBox[{"i", "++"}], ",", 
    RowBox[{"If", "[", 
     RowBox[{
      RowBox[{
       RowBox[{"us", "[", 
        RowBox[{"[", 
         RowBox[{"i", ",", "1"}], "]"}], "]"}], "\[Equal]", "\"\<Z\>\""}], 
      ",", 
      RowBox[{
       RowBox[{"us", "[", 
        RowBox[{"[", 
         RowBox[{"i", ",", "1"}], "]"}], "]"}], "=", "\"\<H\>\""}]}], "]"}]}],
    "]"}], ";"}]], "Input",
 CellChangeTimes->{{3.568277663590458*^9, 3.568277712652544*^9}, 
   3.5682785838808746`*^9, {3.56880682872497*^9, 3.568806862015428*^9}, 
   3.5688069650848093`*^9, 3.568807273668951*^9, 3.5688073087846127`*^9, {
   3.568807384553946*^9, 3.5688073893119545`*^9}, {3.56881489654434*^9, 
   3.5688149048591547`*^9}, {3.568821714349115*^9, 3.568821718951123*^9}}],

Cell[CellGroupData[{

Cell[BoxData[{
 RowBox[{"u1", "=", 
  RowBox[{"Table", "[", 
   RowBox[{
    RowBox[{"If", "[", 
     RowBox[{
      RowBox[{
       RowBox[{"us", "[", 
        RowBox[{"[", 
         RowBox[{"i", ",", "1"}], "]"}], "]"}], "\[Equal]", "\"\<C\>\""}], 
      ",", "0.255", ",", 
      RowBox[{"If", "[", 
       RowBox[{
        RowBox[{
         RowBox[{"us", "[", 
          RowBox[{"[", 
           RowBox[{"i", ",", "1"}], "]"}], "]"}], "\[Equal]", "\"\<H\>\""}], 
        ",", "0.1", ",", 
        RowBox[{"If", "[", 
         RowBox[{
          RowBox[{
           RowBox[{"us", "[", 
            RowBox[{"[", 
             RowBox[{"i", ",", "1"}], "]"}], "]"}], "\[Equal]", "\"\<N\>\""}],
           ",", "0.24", ",", 
          RowBox[{"If", "[", 
           RowBox[{
            RowBox[{
             RowBox[{"us", "[", 
              RowBox[{"[", 
               RowBox[{"i", ",", "1"}], "]"}], "]"}], "\[Equal]", 
             "\"\<O\>\""}], ",", "0.178", ",", 
            RowBox[{"If", "[", 
             RowBox[{
              RowBox[{
               RowBox[{"us", "[", 
                RowBox[{"[", 
                 RowBox[{"i", ",", "1"}], "]"}], "]"}], "\[Equal]", 
               "\"\<Cl\>\""}], ",", "0.5"}], "]"}]}], "]"}]}], "]"}]}], 
       "]"}]}], "]"}], ",", 
    RowBox[{"{", 
     RowBox[{"i", ",", "1", ",", "n"}], "}"}]}], 
   "]"}]}], "\[IndentingNewLine]", 
 RowBox[{"u2", "=", 
  RowBox[{"Table", "[", 
   RowBox[{
    RowBox[{"If", "[", 
     RowBox[{
      RowBox[{
       RowBox[{"us", "[", 
        RowBox[{"[", 
         RowBox[{"i", ",", "1"}], "]"}], "]"}], "\[Equal]", "\"\<C\>\""}], 
      ",", "0.2557", ",", 
      RowBox[{"If", "[", 
       RowBox[{
        RowBox[{
         RowBox[{"us", "[", 
          RowBox[{"[", 
           RowBox[{"i", ",", "1"}], "]"}], "]"}], "\[Equal]", "\"\<H\>\""}], 
        ",", "0.6", ",", 
        RowBox[{"If", "[", 
         RowBox[{
          RowBox[{
           RowBox[{"us", "[", 
            RowBox[{"[", 
             RowBox[{"i", ",", "1"}], "]"}], "]"}], "\[Equal]", "\"\<N\>\""}],
           ",", "0.22522", ",", 
          RowBox[{"If", "[", 
           RowBox[{
            RowBox[{
             RowBox[{"us", "[", 
              RowBox[{"[", 
               RowBox[{"i", ",", "1"}], "]"}], "]"}], "\[Equal]", 
             "\"\<O\>\""}], ",", "0.178", ",", 
            RowBox[{"If", "[", 
             RowBox[{
              RowBox[{
               RowBox[{"us", "[", 
                RowBox[{"[", 
                 RowBox[{"i", ",", "1"}], "]"}], "]"}], "\[Equal]", 
               "\"\<Cl\>\""}], ",", "0.5"}], "]"}]}], "]"}]}], "]"}]}], 
       "]"}]}], "]"}], ",", 
    RowBox[{"{", 
     RowBox[{"i", ",", "1", ",", "n"}], "}"}]}], "]"}]}]}], "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.5683770044498715`*^9, 3.5683771523693314`*^9}, 3.5688133425788107`*^9, {
   3.568814931192001*^9, 3.5688150075073347`*^9}, {3.5688765350957685`*^9, 
   3.5688765981198792`*^9}, {3.568876634452343*^9, 3.5688766352167444`*^9}, {
   3.568894358551657*^9, 3.5688944054453397`*^9}, {3.568894522929146*^9, 
   3.5688945259087515`*^9}, {3.5688946101644993`*^9, 
   3.5688946171221113`*^9}, {3.568894651067771*^9, 3.568894651956972*^9}, 
   3.5688946827982264`*^9, {3.568894734527918*^9, 3.568894735495119*^9}, {
   3.5688947726699843`*^9, 3.568894773496786*^9}, {3.5688948078948464`*^9, 
   3.568895097914956*^9}, {3.5689558039020233`*^9, 3.568955804619624*^9}, {
   3.5689559169086213`*^9, 3.5689559179070234`*^9}, {3.5689559496998787`*^9, 
   3.568955950589081*^9}, {3.568956090817727*^9, 3.568956118273775*^9}, 
   3.5689561556982408`*^9, {3.5690814230317364`*^9, 3.5690814238897376`*^9}, {
   3.569232478412421*^9, 3.5692324795356236`*^9}, {3.5692325096124763`*^9, 
   3.5692325115780797`*^9}, {3.5692325933846235`*^9, 3.569232594289425*^9}, {
   3.569235467676072*^9, 3.5692354683780737`*^9}, {3.5692358857568064`*^9, 
   3.5692358867552085`*^9}, {3.569236173312112*^9, 3.569236174060913*^9}, {
   3.569344745239445*^9, 3.569344781213108*^9}, {3.5693896312339673`*^9, 
   3.5693896351495743`*^9}, {3.5693896840088596`*^9, 
   3.5693896981112843`*^9}, {3.5693897680462074`*^9, 3.5693897743798184`*^9}, 
   3.570595843597315*^9, 3.5705958765133724`*^9, {3.5706006955110383`*^9, 
   3.57060069660304*^9}, {3.570600739659116*^9, 3.5706007402207165`*^9}, {
   3.5706007784563837`*^9, 3.5706008313872766`*^9}, {3.5706008641161346`*^9, 
   3.5706008892321787`*^9}, 3.5706010214580107`*^9, {3.5706011135917726`*^9, 
   3.570601115058175*^9}, {3.5706011509850388`*^9, 3.5706011750714808`*^9}, {
   3.5706012352719865`*^9, 3.570601260746831*^9}, 3.570856110868636*^9, 
   3.570856144034294*^9, 3.5708561753903494`*^9, {3.5708562115824127`*^9, 
   3.570856236261656*^9}, 3.5708568877188005`*^9, 3.570856960992129*^9, {
   3.5708570022854013`*^9, 3.570857003424204*^9}, 3.5708574863854513`*^9, 
   3.570857676003785*^9, {3.570857720697863*^9, 3.570857774736358*^9}, {
   3.570857815015629*^9, 3.570857815265229*^9}, {3.5708578488052883`*^9, 
   3.5708579513754683`*^9}, {3.5708579844319267`*^9, 3.570858009937971*^9}, {
   3.5708583084132957`*^9, 3.570858421435494*^9}}],

Cell[BoxData[
 RowBox[{"{", 
  RowBox[{
  "0.255`", ",", "0.255`", ",", "0.255`", ",", "0.255`", ",", "0.255`", ",", 
   "0.1`", ",", "0.1`", ",", "0.1`", ",", "0.1`", ",", "0.1`", ",", "0.1`", 
   ",", "0.1`", ",", "0.1`", ",", "0.1`", ",", "0.1`", ",", "0.1`", ",", 
   "0.1`"}], "}"}]], "Output",
 CellChangeTimes->{3.5710453153916388`*^9}],

Cell[BoxData[
 RowBox[{"{", 
  RowBox[{
  "0.2557`", ",", "0.2557`", ",", "0.2557`", ",", "0.2557`", ",", "0.2557`", 
   ",", "0.6`", ",", "0.6`", ",", "0.6`", ",", "0.6`", ",", "0.6`", ",", 
   "0.6`", ",", "0.6`", ",", "0.6`", ",", "0.6`", ",", "0.6`", ",", "0.6`", 
   ",", "0.6`"}], "}"}]], "Output",
 CellChangeTimes->{3.5710453153916388`*^9}]
}, Open  ]],

Cell[CellGroupData[{

Cell[BoxData[
 RowBox[{"u", "=", 
  RowBox[{"Table", "[", 
   RowBox[{
    RowBox[{"us", "[", 
     RowBox[{"[", 
      RowBox[{"i", ",", "1"}], "]"}], "]"}], ",", 
    RowBox[{"{", 
     RowBox[{"i", ",", "1", ",", "n"}], "}"}]}], "]"}]}]], "Input",
 CellChangeTimes->{{3.5679472243083935`*^9, 3.567947394894693*^9}, {
  3.567947453425996*^9, 3.567947471241227*^9}, {3.5679475415037503`*^9, 
  3.5679475448733563`*^9}, {3.5679488138107853`*^9, 3.567948820877598*^9}, {
  3.568820296244224*^9, 3.5688203477867146`*^9}}],

Cell[BoxData[
 RowBox[{"{", 
  RowBox[{"\<\"C\"\>", ",", "\<\"C\"\>", ",", "\<\"C\"\>", ",", "\<\"C\"\>", 
   ",", "\<\"C\"\>", ",", "\<\"H\"\>", ",", "\<\"H\"\>", ",", "\<\"H\"\>", 
   ",", "\<\"H\"\>", ",", "\<\"H\"\>", ",", "\<\"H\"\>", ",", "\<\"H\"\>", 
   ",", "\<\"H\"\>", ",", "\<\"H\"\>", ",", "\<\"H\"\>", ",", "\<\"H\"\>", 
   ",", "\<\"H\"\>"}], "}"}]], "Output",
 CellChangeTimes->{3.571045315407239*^9}]
}, Open  ]],

Cell[CellGroupData[{

Cell[BoxData[
 RowBox[{"cn", "=", 
  RowBox[{"Table", "[", 
   RowBox[{
    RowBox[{"If", "[", 
     RowBox[{
      RowBox[{
       RowBox[{"u", "[", 
        RowBox[{"[", "i", "]"}], "]"}], "\[Equal]", "\"\<C\>\""}], ",", "6.0",
       ",", 
      RowBox[{"If", "[", 
       RowBox[{
        RowBox[{
         RowBox[{"u", "[", 
          RowBox[{"[", "i", "]"}], "]"}], "\[Equal]", "\"\<H\>\""}], ",", 
        "1.0", ",", 
        RowBox[{"If", "[", 
         RowBox[{
          RowBox[{
           RowBox[{"u", "[", 
            RowBox[{"[", "i", "]"}], "]"}], "\[Equal]", "\"\<N\>\""}], ",", 
          "7.0", ",", 
          RowBox[{"If", "[", 
           RowBox[{
            RowBox[{
             RowBox[{"u", "[", 
              RowBox[{"[", "i", "]"}], "]"}], "\[Equal]", "\"\<O\>\""}], ",", 
            "8.0", ",", 
            RowBox[{"If", "[", 
             RowBox[{
              RowBox[{
               RowBox[{"u", "[", 
                RowBox[{"[", "i", "]"}], "]"}], "\[Equal]", "\"\<Cl\>\""}], 
              ",", "17.0"}], "]"}]}], "]"}]}], "]"}]}], "]"}]}], "]"}], ",", 
    RowBox[{"{", 
     RowBox[{"i", ",", "1", ",", "n"}], "}"}]}], "]"}]}]], "Input",
 CellChangeTimes->{{3.5688224161787477`*^9, 3.5688224173799496`*^9}, {
   3.5688224905908785`*^9, 3.568822500434496*^9}, 3.5692358293003073`*^9, 
   3.5692358676919746`*^9, {3.569344570581538*^9, 3.5693446110324097`*^9}}],

Cell[BoxData[
 RowBox[{"{", 
  RowBox[{
  "6.`", ",", "6.`", ",", "6.`", ",", "6.`", ",", "6.`", ",", "1.`", ",", 
   "1.`", ",", "1.`", ",", "1.`", ",", "1.`", ",", "1.`", ",", "1.`", ",", 
   "1.`", ",", "1.`", ",", "1.`", ",", "1.`", ",", "1.`"}], "}"}]], "Output",
 CellChangeTimes->{3.571045315422839*^9}]
}, Open  ]],

Cell[CellGroupData[{

Cell[BoxData[{
 RowBox[{
  RowBox[{"bc", "=", "0"}], ";"}], "\[IndentingNewLine]", 
 RowBox[{
  RowBox[{"For", "[", 
   RowBox[{
    RowBox[{"i", "=", "1"}], ",", " ", 
    RowBox[{"i", "<", 
     RowBox[{"n", "+", "1"}]}], ",", 
    RowBox[{"i", "++"}], ",", 
    RowBox[{"If", "[", 
     RowBox[{
      RowBox[{
       RowBox[{"u", "[", 
        RowBox[{"[", "i", "]"}], "]"}], "\[NotEqual]", "\"\<H\>\""}], ",", 
      " ", 
      RowBox[{"bc", "=", 
       RowBox[{"bc", "+", "1"}]}]}], "]"}]}], "]"}], 
  ";"}], "\[IndentingNewLine]", "bc", "\[IndentingNewLine]", 
 RowBox[{"bh", "=", 
  RowBox[{"n", "-", "bc"}]}]}], "Input",
 CellChangeTimes->{{3.5688281182607965`*^9, 3.5688281434392405`*^9}, {
   3.5691376772313223`*^9, 3.569137733516221*^9}, {3.569234042049968*^9, 
   3.569234051519184*^9}, 3.5692372799312553`*^9}],

Cell[BoxData["5"], "Output",
 CellChangeTimes->{3.571045315438439*^9}],

Cell[BoxData["12"], "Output",
 CellChangeTimes->{3.571045315438439*^9}]
}, Open  ]],

Cell[CellGroupData[{

Cell[BoxData[
 RowBox[{
  RowBox[{"ChemicalData", "\[NoBreak]", "[", 
   RowBox[{"\"\<Pentane\>\"", ",", "\"\<MolecularFormulaString\>\""}], "]"}], 
  "\[IndentingNewLine]"}]], "Input",
 CellChangeTimes->{{3.5708566311295495`*^9, 3.5708566338907547`*^9}, 
   3.5709425310382767`*^9, 3.5710435245552936`*^9, 3.5710448379216003`*^9, 
   3.571044955764207*^9, 3.571045068739606*^9, 3.571045145990941*^9, 
   3.5710452246462793`*^9, 3.571045298278409*^9}],

Cell[BoxData["\<\"CH3(CH2)3CH3\"\>"], "Output",
 CellChangeTimes->{3.571045315454039*^9}]
}, Open  ]],

Cell[BoxData[{
 RowBox[{
  RowBox[{"DeleteFile", "[", " ", "\"\<C:\\\\Kimb_Mathem\\\\tmp3\>\"", "]"}], 
  ";"}], "\[IndentingNewLine]", 
 RowBox[{"For", "[", 
  RowBox[{
   RowBox[{"i", "=", "1"}], ",", 
   RowBox[{"i", "<", 
    RowBox[{"n", "+", "1"}]}], ",", 
   RowBox[{"i", "++"}], ",", "\[IndentingNewLine]", 
   RowBox[{
    RowBox[{"{", 
     RowBox[{
      RowBox[{"u", "[", 
       RowBox[{"[", "i", "]"}], "]"}], ",", 
      RowBox[{"Extract", "[", 
       RowBox[{"t1", ",", 
        RowBox[{"{", "i", "}"}]}], "]"}]}], "}"}], ">>>", " ", 
    "\"\<C:\\\\Kimb_Mathem\\\\tmp3\>\""}]}], "]"}]}], "Input",
 CellChangeTimes->{{3.567869377256353*^9, 3.5678694101568108`*^9}, {
   3.5678695244894114`*^9, 3.56786953511303*^9}, 3.56786988243204*^9, 
   3.5678699252853155`*^9, {3.567870069179968*^9, 3.5678700766835814`*^9}, {
   3.5678703216664114`*^9, 3.567870325738019*^9}, 3.5679271251072817`*^9, {
   3.567942840466694*^9, 3.567942854381918*^9}, {3.567942932272855*^9, 
   3.567942950509287*^9}, 3.5679430681802936`*^9, {3.568278272060727*^9, 
   3.56827827391713*^9}, 3.5688732159559383`*^9, 3.568910867631465*^9, 
   3.5689997098549547`*^9, 3.5689998170427427`*^9, 3.5689998869620657`*^9, {
   3.569059200815255*^9, 3.5690592031552596`*^9}, 3.5691460426137285`*^9, 
   3.569237204520723*^9, 3.569237465836782*^9, 3.56923802264856*^9, 
   3.5693403424181123`*^9, 3.569340450198702*^9, 3.569340738019207*^9, 
   3.569340852851009*^9, {3.5693411655067577`*^9, 3.5693411655067577`*^9}, 
   3.5693414976001415`*^9, {3.5693416978420925`*^9, 3.569341705314506*^9}, 
   3.569342614421703*^9, 3.5693435671777763`*^9, 3.569343662727944*^9, 
   3.5693437636289215`*^9, 3.5693440709750605`*^9, 3.5693442662562037`*^9, {
   3.5702975520309644`*^9, 3.570297552764166*^9}, {3.5705591717487917`*^9, 
   3.5705591791432047`*^9}}],

Cell[BoxData[
 RowBox[{
  RowBox[{"t", "=", 
   RowBox[{"Table", "[", 
    RowBox[{
     RowBox[{"t1", "[", 
      RowBox[{"[", 
       RowBox[{"num", "[", 
        RowBox[{"[", "i", "]"}], "]"}], "]"}], "]"}], ",", 
     RowBox[{"{", 
      RowBox[{"i", ",", "1", ",", "n"}], "}"}]}], "]"}]}], ";"}]], "Input",
 CellChangeTimes->{{3.567869377256353*^9, 3.567869394073182*^9}, {
   3.5678694248832364`*^9, 3.5678694526200852`*^9}, {3.5678694891241493`*^9, 
   3.5678694955045605`*^9}, {3.567869596046737*^9, 3.567869602645549*^9}, 
   3.56786971175214*^9, {3.5678697908910794`*^9, 3.567869798800293*^9}, {
   3.5679434548425727`*^9, 3.5679434621121855`*^9}, 3.568011875875622*^9, 
   3.56811435956207*^9, {3.5682782821071444`*^9, 3.5682782839479475`*^9}, {
   3.5688205455482616`*^9, 3.5688206262784038`*^9}, 3.5688208026055136`*^9, 
   3.5688732159559383`*^9, 3.568910867631465*^9, {3.5689830694736805`*^9, 
   3.568983072687286*^9}}],

Cell[BoxData[
 RowBox[{
  RowBox[{"Plot1", "=", 
   RowBox[{"Table", "[", 
    RowBox[{
     RowBox[{"Graphics3D", "[", 
      RowBox[{"{", 
       RowBox[{
        RowBox[{"If", "[", 
         RowBox[{
          RowBox[{
           RowBox[{"u", "[", 
            RowBox[{"[", "i", "]"}], "]"}], "\[Equal]", "\"\<N\>\""}], ",", 
          RowBox[{"Lighter", "[", "Blue", "]"}], ",", 
          RowBox[{"If", "[", 
           RowBox[{
            RowBox[{
             RowBox[{"u", "[", 
              RowBox[{"[", "i", "]"}], "]"}], "\[Equal]", "\"\<O\>\""}], ",", 
            RowBox[{"Lighter", "[", "Red", "]"}], ",", 
            RowBox[{"If", "[", 
             RowBox[{
              RowBox[{
               RowBox[{"u", "[", 
                RowBox[{"[", "i", "]"}], "]"}], "\[Equal]", "\"\<Cl\>\""}], 
              ",", 
              RowBox[{"Lighter", "[", "Green", "]"}], ",", 
              RowBox[{"If", "[", 
               RowBox[{
                RowBox[{
                 RowBox[{"u", "[", 
                  RowBox[{"[", "i", "]"}], "]"}], "\[Equal]", "\"\<B\>\""}], 
                ",", 
                RowBox[{"Lighter", "[", "Orange", "]"}], ",", 
                RowBox[{"Lighter", "[", "Brown", "]"}]}], "]"}]}], "]"}]}], 
           "]"}]}], "]"}], ",", 
        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.568820898608082*^9, 
   3.568820922429324*^9}, 3.5688217528499823`*^9, 3.568821789307246*^9, {
   3.569406212748887*^9, 3.569406252544557*^9}, {3.569492717066082*^9, 
   3.5694927471737347`*^9}, {3.5694931324008117`*^9, 3.5694931369404197`*^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.6"}], ",", 
          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.568381589141924*^9, 
   3.568381589391525*^9}, 3.5688217602599955`*^9, {3.568821800305266*^9, 
   3.568821801397268*^9}, 3.5693901242572327`*^9, {3.570559203182847*^9, 
   3.5705592101248593`*^9}}],

Cell[CellGroupData[{

Cell[BoxData[
 RowBox[{"\[IndentingNewLine]", 
  RowBox[{"ChemicalData", "\[NoBreak]", "[", 
   RowBox[{"\"\<Pentane\>\"", ",", "\"\<CHStructureDiagram\>\""}], 
   "]"}]}]], "Input",
 CellChangeTimes->{{3.570856658569998*^9, 3.5708566598024*^9}, 
   3.5709425310382767`*^9, 3.5710435245708933`*^9, 3.5710448379216003`*^9, 
   3.571044955764207*^9, 3.5710450687552056`*^9, 3.571045145990941*^9, 
   3.5710452246462793`*^9, 3.571045298278409*^9}],

Cell[BoxData[
 GraphicsBox[{{
    {GrayLevel[0], AbsoluteThickness[0.55], InsetBox[
      StyleBox["\<\"C\"\>",
       StripOnInput->False,
       ScriptSizeMultipliers->0.8,
       ScriptMinSize->8,
       FontSize->Scaled[0.062367806237362725`],
       FontWeight->Plain], {373.21, -25.}], 
     LineBox[{{390.53038105257474`, -14.999779992739736`}, {416.51, 0.}}], 
     {GrayLevel[0], InsetBox[
       StyleBox["\<\"C\"\>",
        StripOnInput->False,
        ScriptSizeMultipliers->0.8,
        ScriptMinSize->8,
        FontSize->Scaled[0.062367806237362725`],
        FontWeight->Plain], {459.80999999999995`, 25.}], 
      LineBox[{{416.51, 0.}, {442.4896189474252, 14.999779992739725`}}]}}, 
    {GrayLevel[0], AbsoluteThickness[0.55], InsetBox[
      StyleBox["\<\"C\"\>",
       StripOnInput->False,
       ScriptSizeMultipliers->0.8,
       ScriptMinSize->8,
       FontSize->Scaled[0.062367806237362725`],
       FontWeight->Plain], {373.21, -25.}], 
     LineBox[{{355.8891189793737, -15.000645987399652`}, {329.905, 0.}}], 
     {GrayLevel[0], InsetBox[
       StyleBox["\<\"C\"\>",
        StripOnInput->False,
        ScriptSizeMultipliers->0.8,
        ScriptMinSize->8,
        FontSize->Scaled[0.062367806237362725`],
        FontWeight->Plain], {286.6, 25.}], 
      LineBox[{{329.905, 0.}, {303.9208810206263, 15.000645987399642`}}]}}, 
    {GrayLevel[0], AbsoluteThickness[0.55], InsetBox[
      StyleBox["\<\"C\"\>",
       StripOnInput->False,
       ScriptSizeMultipliers->0.8,
       ScriptMinSize->8,
       FontSize->Scaled[0.062367806237362725`],
       FontWeight->Plain], {373.21, -25.}], 
     LineBox[{{360.3521356756475, -40.31911632622926}, {353.28, -48.745}}], 
     {GrayLevel[0], InsetBox[
       StyleBox["\<\"H\"\>",
        StripOnInput->False,
        ScriptSizeMultipliers->0.8,
        ScriptMinSize->8,
        FontSize->Scaled[0.062367806237362725`],
        FontWeight->Plain], {333.34999999999997`, -72.49}], 
      LineBox[{{353.28, -48.745}, {
       346.20786432435244`, -57.17088367377073}}]}}, 
    {GrayLevel[0], AbsoluteThickness[0.55], InsetBox[
      StyleBox["\<\"C\"\>",
       StripOnInput->False,
       ScriptSizeMultipliers->0.8,
       ScriptMinSize->8,
       FontSize->Scaled[0.062367806237362725`],
       FontWeight->Plain], {373.21, -25.}], 
     LineBox[{{386.06597151649373`, -40.32070482605489}, {393.135, -48.745}}], 
     {GrayLevel[0], InsetBox[
       StyleBox["\<\"H\"\>",
        StripOnInput->False,
        ScriptSizeMultipliers->0.8,
        ScriptMinSize->8,
        FontSize->Scaled[0.062367806237362725`],
        FontWeight->Plain], {413.06, -72.49}], 
      LineBox[{{393.135, -48.745}, {
       400.20402848350625`, -57.1692951739451}}]}}, 
    {GrayLevel[0], AbsoluteThickness[0.55], InsetBox[
      StyleBox["\<\"C\"\>",
       StripOnInput->False,
       ScriptSizeMultipliers->0.8,
       ScriptMinSize->8,
       FontSize->Scaled[0.062367806237362725`],
       FontWeight->Plain], {459.80999999999995`, 25.}], 
     LineBox[{{477.1303810525747, 14.999779992739736`}, {503.10999999999996`, 
      0.}}], 
     {GrayLevel[0], InsetBox[
       StyleBox["\<\"C\"\>",
        StripOnInput->False,
        ScriptSizeMultipliers->0.8,
        ScriptMinSize->8,
        FontSize->Scaled[0.062367806237362725`],
        FontWeight->Plain], {546.41, -25.}], 
      LineBox[{{503.10999999999996`, 0.}, {
       529.0896189474252, -14.999779992739736`}}]}}, 
    {GrayLevel[0], AbsoluteThickness[0.55], InsetBox[
      StyleBox["\<\"C\"\>",
       StripOnInput->False,
       ScriptSizeMultipliers->0.8,
       ScriptMinSize->8,
       FontSize->Scaled[0.062367806237362725`],
       FontWeight->Plain], {459.80999999999995`, 25.}], 
     LineBox[{{446.95213567564747`, 40.31911632622926}, {439.87999999999994`, 
      48.745}}], 
     {GrayLevel[0], InsetBox[
       StyleBox["\<\"H\"\>",
        StripOnInput->False,
        ScriptSizeMultipliers->0.8,
        ScriptMinSize->8,
        FontSize->Scaled[0.062367806237362725`],
        FontWeight->Plain], {419.94999999999993`, 72.49}], 
      LineBox[{{439.87999999999994`, 48.745}, {432.8078643243524, 
       57.17088367377073}}]}}, 
    {GrayLevel[0], AbsoluteThickness[0.55], InsetBox[
      StyleBox["\<\"C\"\>",
       StripOnInput->False,
       ScriptSizeMultipliers->0.8,
       ScriptMinSize->8,
       FontSize->Scaled[0.062367806237362725`],
       FontWeight->Plain], {459.80999999999995`, 25.}], 
     LineBox[{{472.6659715164937, 40.32070482605489}, {479.73499999999996`, 
      48.745}}], 
     {GrayLevel[0], InsetBox[
       StyleBox["\<\"H\"\>",
        StripOnInput->False,
        ScriptSizeMultipliers->0.8,
        ScriptMinSize->8,
        FontSize->Scaled[0.062367806237362725`],
        FontWeight->Plain], {499.65999999999997`, 72.49}], 
      LineBox[{{479.73499999999996`, 48.745}, {486.8040284835062, 
       57.1692951739451}}]}}, 
    {GrayLevel[0], AbsoluteThickness[0.55], InsetBox[
      StyleBox["\<\"C\"\>",
       StripOnInput->False,
       ScriptSizeMultipliers->0.8,
       ScriptMinSize->8,
       FontSize->Scaled[0.062367806237362725`],
       FontWeight->Plain], {286.6, 25.}], 
     LineBox[{{269.27961894742526`, 14.999779992739736`}, {243.3, 0.}}], 
     {GrayLevel[0], InsetBox[
       StyleBox["\<\"C\"\>",
        StripOnInput->False,
        ScriptSizeMultipliers->0.8,
        ScriptMinSize->8,
        FontSize->Scaled[0.062367806237362725`],
        FontWeight->Plain], {200., -25.}], 
      LineBox[{{243.3, 0.}, {217.3203810525748, -14.999779992739736`}}]}}, 
    {GrayLevel[0], AbsoluteThickness[0.55], InsetBox[
      StyleBox["\<\"C\"\>",
       StripOnInput->False,
       ScriptSizeMultipliers->0.8,
       ScriptMinSize->8,
       FontSize->Scaled[0.062367806237362725`],
       FontWeight->Plain], {286.6, 25.}], 
     LineBox[{{273.74402848350627`, 40.32070482605489}, {266.675, 48.745}}], 
     {GrayLevel[0], InsetBox[
       StyleBox["\<\"H\"\>",
        StripOnInput->False,
        ScriptSizeMultipliers->0.8,
        ScriptMinSize->8,
        FontSize->Scaled[0.062367806237362725`],
        FontWeight->Plain], {246.74999999999997`, 72.49}], 
      LineBox[{{266.675, 48.745}, {259.6059715164937, 
       57.169295173945116`}}]}}, 
    {GrayLevel[0], AbsoluteThickness[0.55], InsetBox[
      StyleBox["\<\"C\"\>",
       StripOnInput->False,
       ScriptSizeMultipliers->0.8,
       ScriptMinSize->8,
       FontSize->Scaled[0.062367806237362725`],
       FontWeight->Plain], {286.6, 25.}], 
     LineBox[{{299.4578643243525, 40.31911632622926}, {306.53000000000003`, 
      48.745}}], 
     {GrayLevel[0], InsetBox[
       StyleBox["\<\"H\"\>",
        StripOnInput->False,
        ScriptSizeMultipliers->0.8,
        ScriptMinSize->8,
        FontSize->Scaled[0.062367806237362725`],
        FontWeight->Plain], {326.46000000000004`, 72.49}], 
      LineBox[{{306.53000000000003`, 48.745}, {313.60213567564756`, 
       57.17088367377073}}]}}, 
    {GrayLevel[0], AbsoluteThickness[0.55], InsetBox[
      StyleBox["\<\"C\"\>",
       StripOnInput->False,
       ScriptSizeMultipliers->0.8,
       ScriptMinSize->8,
       FontSize->Scaled[0.062367806237362725`],
       FontWeight->Plain], {546.41, -25.}], 
     LineBox[{{536.4095006129586, -42.320219744846895`}, {530.91, -51.845}}], 
     {GrayLevel[0], InsetBox[
       StyleBox["\<\"H\"\>",
        StripOnInput->False,
        ScriptSizeMultipliers->0.8,
        ScriptMinSize->8,
        FontSize->Scaled[0.062367806237362725`],
        FontWeight->Plain], {515.41, -78.69}], 
      LineBox[{{530.91, -51.845}, {525.4104993870413, -61.3697802551531}}]}}, 
    {GrayLevel[0], AbsoluteThickness[0.55], InsetBox[
      StyleBox["\<\"C\"\>",
       StripOnInput->False,
       ScriptSizeMultipliers->0.8,
       ScriptMinSize->8,
       FontSize->Scaled[0.062367806237362725`],
       FontWeight->Plain], {546.41, -25.}], 
     LineBox[{{563.7302197448469, -35.00049938704141}, {573.255, -40.5}}], 
     {GrayLevel[0], InsetBox[
       StyleBox["\<\"H\"\>",
        StripOnInput->False,
        ScriptSizeMultipliers->0.8,
        ScriptMinSize->8,
        FontSize->Scaled[0.062367806237362725`],
        FontWeight->Plain], {600.1, -56.00000000000001}], 
      LineBox[{{573.255, -40.5}, {582.7797802551531, -45.99950061295859}}]}}, 
    {GrayLevel[0], AbsoluteThickness[0.55], InsetBox[
      StyleBox["\<\"C\"\>",
       StripOnInput->False,
       ScriptSizeMultipliers->0.8,
       ScriptMinSize->8,
       FontSize->Scaled[0.062367806237362725`],
       FontWeight->Plain], {546.41, -25.}], 
     LineBox[{{556.4104993870413, -7.679780255153105}, {561.91, 
      1.8449999999999989`}}], 
     {GrayLevel[0], InsetBox[
       StyleBox["\<\"H\"\>",
        StripOnInput->False,
        ScriptSizeMultipliers->0.8,
        ScriptMinSize->8,
        FontSize->Scaled[0.062367806237362725`],
        FontWeight->Plain], {577.41, 28.689999999999998`}], 
      LineBox[{{561.91, 1.8449999999999989`}, {567.4095006129586, 
       11.369780255153103`}}]}}, 
    {GrayLevel[0], AbsoluteThickness[0.55], InsetBox[
      StyleBox["\<\"C\"\>",
       StripOnInput->False,
       ScriptSizeMultipliers->0.8,
       ScriptMinSize->8,
       FontSize->Scaled[0.062367806237362725`],
       FontWeight->Plain], {200., -25.}], 
     LineBox[{{189.99950061295857`, -7.679780255153105}, {184.5, 
      1.8449999999999989`}}], 
     {GrayLevel[0], InsetBox[
       StyleBox["\<\"H\"\>",
        StripOnInput->False,
        ScriptSizeMultipliers->0.8,
        ScriptMinSize->8,
        FontSize->Scaled[0.062367806237362725`],
        FontWeight->Plain], {169., 28.689999999999998`}], 
      LineBox[{{184.5, 1.8449999999999989`}, {179.00049938704143`, 
       11.369780255153103`}}]}}, 
    {GrayLevel[0], AbsoluteThickness[0.55], InsetBox[
      StyleBox["\<\"C\"\>",
       StripOnInput->False,
       ScriptSizeMultipliers->0.8,
       ScriptMinSize->8,
       FontSize->Scaled[0.062367806237362725`],
       FontWeight->Plain], {200., -25.}], 
     LineBox[{{182.6797802551531, -35.000499387041415`}, {173.155, -40.5}}], 
     {GrayLevel[0], InsetBox[
       StyleBox["\<\"H\"\>",
        StripOnInput->False,
        ScriptSizeMultipliers->0.8,
        ScriptMinSize->8,
        FontSize->Scaled[0.062367806237362725`],
        FontWeight->Plain], {146.31, -56.00000000000001}], 
      LineBox[{{173.155, -40.5}, {
       163.6302197448469, -45.999500612958585`}}]}}, 
    {GrayLevel[0], AbsoluteThickness[0.55], InsetBox[
      StyleBox["\<\"C\"\>",
       StripOnInput->False,
       ScriptSizeMultipliers->0.8,
       ScriptMinSize->8,
       FontSize->Scaled[0.062367806237362725`],
       FontWeight->Plain], {200., -25.}], 
     LineBox[{{210.00049938704143`, -42.320219744846895`}, {215.5, -51.845}}], 
     {GrayLevel[0], InsetBox[
       StyleBox["\<\"H\"\>",
        StripOnInput->False,
        ScriptSizeMultipliers->0.8,
        ScriptMinSize->8,
        FontSize->Scaled[0.062367806237362725`],
        FontWeight->Plain], {231., -78.69}], 
      LineBox[{{215.5, -51.845}, {
       220.99950061295857`, -61.3697802551531}}]}}}, {}, {}},
  ImageSize->{{0., 184.45535498740156`}, {0., 76.00774181924366}},
  PlotRange->{{123.81, 618.1}, {-108.69, 94.99}}]], "Output",
 CellChangeTimes->{3.5710453155164394`*^9}]
}, Open  ]],

Cell[BoxData[
 RowBox[{
  StyleBox[
   RowBox[{"(*", " ", 
    RowBox[{"Distance", " ", "Matrix", " ", "Bohr"}], " ", "*)"}], "Text"], 
  "\[IndentingNewLine]", 
  RowBox[{
   RowBox[{"dc", "=", 
    RowBox[{"Table", "[", 
     RowBox[{
      RowBox[{"Sqrt", "[", 
       RowBox[{
        RowBox[{
         RowBox[{"(", 
          RowBox[{
           RowBox[{"t", "[", 
            RowBox[{"[", 
             RowBox[{"i", ",", "1"}], "]"}], "]"}], "-", 
           RowBox[{"t", "[", 
            RowBox[{"[", 
             RowBox[{"j", ",", "1"}], "]"}], "]"}]}], ")"}], "^", "2"}], "+", 
        RowBox[{
         RowBox[{"(", 
          RowBox[{
           RowBox[{"t", "[", 
            RowBox[{"[", 
             RowBox[{"i", ",", "2"}], "]"}], "]"}], "-", 
           RowBox[{"t", "[", 
            RowBox[{"[", 
             RowBox[{"j", ",", "2"}], "]"}], "]"}]}], ")"}], "^", "2"}], "+", 
        RowBox[{
         RowBox[{"(", 
          RowBox[{
           RowBox[{"t", "[", 
            RowBox[{"[", 
             RowBox[{"i", ",", "3"}], "]"}], "]"}], "-", 
           RowBox[{"t", "[", 
            RowBox[{"[", 
             RowBox[{"j", ",", "3"}], "]"}], "]"}]}], ")"}], "^", "2"}]}], 
       "]"}], ",", 
      RowBox[{"{", 
       RowBox[{"i", ",", "1", ",", "n"}], "}"}], ",", 
      RowBox[{"{", 
       RowBox[{"j", ",", "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.5678692412397137`*^9}, 
   3.5678693168686466`*^9, {3.5678704450470285`*^9, 3.5678704621290584`*^9}, 
   3.5682783281584253`*^9, 3.5688732159715385`*^9, 3.568910867647065*^9, 
   3.5689997098549547`*^9, 3.5689998170427427`*^9, 3.5689998869620657`*^9, 
   3.5691460426137285`*^9, 3.569237204536323*^9, 3.5692374658523817`*^9, 
   3.56923802264856*^9, 3.5693403424181123`*^9, 3.5693404502143016`*^9, 
   3.569340738019207*^9, 3.569340852851009*^9, 3.5693411655067577`*^9, 
   3.5693414978029413`*^9, 3.5693426144373026`*^9, 3.5693435671777763`*^9, 
   3.569343662743544*^9, 3.569343763644521*^9, 3.569344071177861*^9, 
   3.569344266271804*^9, 3.570297558707776*^9, {3.5703416079688015`*^9, 
   3.570341617375618*^9}, {3.5705956885798426`*^9, 3.5705957106070814`*^9}, {
   3.5705965150536942`*^9, 3.5705965239457097`*^9}}],

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[CellGroupData[{

Cell[BoxData[
 RowBox[{
  RowBox[{"(*", " ", 
   RowBox[{"connected", " ", 
    RowBox[{"pairs", ":", " ", 
     RowBox[{
      RowBox[{"distance", " ", "criteria"}], " ", "<", " ", 
      RowBox[{"3.0", " ", "bohr"}]}]}]}], " ", "*)"}], "\[IndentingNewLine]", 
  RowBox[{
   RowBox[{
    RowBox[{"Dij", "=", 
     RowBox[{"Table", "[", 
      RowBox[{
       RowBox[{"If", "[", 
        RowBox[{
         RowBox[{"i", "\[GreaterEqual]", "j"}], ",", 
         RowBox[{"If", "[", 
          RowBox[{
           RowBox[{"(", 
            RowBox[{
             RowBox[{
              RowBox[{"dc", "[", 
               RowBox[{"[", 
                RowBox[{"i", ",", "j"}], "]"}], "]"}], "<", "3.0"}], "||", 
             RowBox[{"(", 
              RowBox[{
               RowBox[{
                RowBox[{"u", "[", 
                 RowBox[{"[", "i", "]"}], "]"}], "\[Equal]", "\"\<Cl\>\""}], 
               " ", "&&", " ", 
               RowBox[{"j", "\[Equal]", "10"}], " ", "&&", " ", 
               RowBox[{"i", "\[Equal]", " ", "17"}]}], ")"}]}], ")"}], ",", 
           RowBox[{"dc", "[", 
            RowBox[{"[", 
             RowBox[{"i", ",", "j"}], "]"}], "]"}], ",", "0"}], "]"}], ",", 
         "\"\< \>\""}], "]"}], ",", 
       RowBox[{"{", 
        RowBox[{"i", ",", "1", ",", "n"}], "}"}], ",", 
       RowBox[{"{", 
        RowBox[{"j", ",", "1", ",", "n"}], "}"}]}], "]"}]}], ";"}], 
   "\[IndentingNewLine]", 
   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.56882183684053*^9, {3.5688219650415554`*^9, 
   3.568821965915157*^9}, {3.5688769979329815`*^9, 3.5688771619984694`*^9}, {
   3.568877204212144*^9, 3.5688772091729527`*^9}, {3.568877282493081*^9, 
   3.5688772843338842`*^9}, {3.568877374112042*^9, 3.568877378074449*^9}, {
   3.56887744125456*^9, 3.5688774664954042`*^9}, {3.56887758366721*^9, 
   3.568877604867647*^9}, {3.568877667220957*^9, 3.5688776710429635`*^9}, {
   3.5688778111156096`*^9, 3.56887782262843*^9}, {3.569341165522358*^9, 
   3.569341165522358*^9}, 3.5693418217375107`*^9, {3.5693429625675144`*^9, 
   3.5693429673099227`*^9}, {3.569390288837522*^9, 3.5693903143123665`*^9}, {
   3.569390381798085*^9, 3.5693904158685455`*^9}, {3.5693905284539433`*^9, 
   3.569390564349606*^9}, {3.569390610868888*^9, 3.569390611056088*^9}, {
   3.569390743671921*^9, 3.569390761487152*^9}, {3.569390843761697*^9, 
   3.569390861608128*^9}, {3.5693909829451413`*^9, 3.5693909887171516`*^9}, 
   3.5703416480920715`*^9, {3.5703416810237293`*^9, 3.5703416997437625`*^9}, 
   3.570341888192094*^9, {3.5705964879252462`*^9, 3.570596509843285*^9}, {
   3.5705965495921545`*^9, 3.5705966388087115`*^9}, 3.570968886604662*^9, {
   3.5709689930904493`*^9, 3.5709689944320517`*^9}, {3.5709690501397495`*^9, 
   3.570969050904151*^9}, {3.5709692134876366`*^9, 3.5709692140804377`*^9}, {
   3.5709722325921392`*^9, 3.5709722334033403`*^9}, {3.5709723694355793`*^9, 
   3.570972545481889*^9}, {3.570972790558319*^9, 3.5709728063299465`*^9}, {
   3.570972844066413*^9, 3.570972866764453*^9}, {3.5709729633598228`*^9, 
   3.57097298434186*^9}, {3.5709731454589424`*^9, 3.5709731466289444`*^9}, 
   3.570973453029083*^9, {3.5709736099653587`*^9, 3.570973638404208*^9}}],

Cell[BoxData[
 TagBox[
  RowBox[{"(", "\[NoBreak]", GridBox[{
     {"0.`", "\<\" \"\>", "\<\" \"\>", "\<\" \"\>", "\<\" \"\>", "\<\" \"\>", \
"\<\" \"\>", "\<\" \"\>", "\<\" \"\>", "\<\" \"\>", "\<\" \"\>", "\<\" \"\>", \
"\<\" \"\>", "\<\" \"\>", "\<\" \"\>", "\<\" \"\>", "\<\" \"\>"},
     {"2.86292685023364`", 
      "0.`", "\<\" \"\>", "\<\" \"\>", "\<\" \"\>", "\<\" \"\>", "\<\" \"\>", \
"\<\" \"\>", "\<\" \"\>", "\<\" \"\>", "\<\" \"\>", "\<\" \"\>", "\<\" \"\>", \
"\<\" \"\>", "\<\" \"\>", "\<\" \"\>", "\<\" \"\>"},
     {"2.8828125055644516`", "0", 
      "0.`", "\<\" \"\>", "\<\" \"\>", "\<\" \"\>", "\<\" \"\>", "\<\" \"\>", \
"\<\" \"\>", "\<\" \"\>", "\<\" \"\>", "\<\" \"\>", "\<\" \"\>", "\<\" \"\>", \
"\<\" \"\>", "\<\" \"\>", "\<\" \"\>"},
     {"0", "2.896625553945949`", "0", 
      "0.`", "\<\" \"\>", "\<\" \"\>", "\<\" \"\>", "\<\" \"\>", "\<\" \"\>", \
"\<\" \"\>", "\<\" \"\>", "\<\" \"\>", "\<\" \"\>", "\<\" \"\>", "\<\" \"\>", \
"\<\" \"\>", "\<\" \"\>"},
     {"0", "0", "2.906490577680981`", "0", 
      "0.`", "\<\" \"\>", "\<\" \"\>", "\<\" \"\>", "\<\" \"\>", "\<\" \"\>", \
"\<\" \"\>", "\<\" \"\>", "\<\" \"\>", "\<\" \"\>", "\<\" \"\>", "\<\" \"\>", \
"\<\" \"\>"},
     {"2.02201825899129`", "0", "0", "0", "0", 
      "0.`", "\<\" \"\>", "\<\" \"\>", "\<\" \"\>", "\<\" \"\>", "\<\" \"\>", \
"\<\" \"\>", "\<\" \"\>", "\<\" \"\>", "\<\" \"\>", "\<\" \"\>", "\<\" \"\>"},
     {"2.021969219931132`", "0", "0", "0", "0", "0", 
      "0.`", "\<\" \"\>", "\<\" \"\>", "\<\" \"\>", "\<\" \"\>", "\<\" \"\>", \
"\<\" \"\>", "\<\" \"\>", "\<\" \"\>", "\<\" \"\>", "\<\" \"\>"},
     {"0", "2.021781312249479`", "0", "0", "0", "0", "0", 
      "0.`", "\<\" \"\>", "\<\" \"\>", "\<\" \"\>", "\<\" \"\>", "\<\" \"\>", \
"\<\" \"\>", "\<\" \"\>", "\<\" \"\>", "\<\" \"\>"},
     {"0", "2.021905284150483`", "0", "0", "0", "0", "0", "0", 
      "0.`", "\<\" \"\>", "\<\" \"\>", "\<\" \"\>", "\<\" \"\>", "\<\" \"\>", \
"\<\" \"\>", "\<\" \"\>", "\<\" \"\>"},
     {"0", "0", "2.022060416422584`", "0", "0", "0", "0", "0", "0", 
      "0.`", "\<\" \"\>", "\<\" \"\>", "\<\" \"\>", "\<\" \"\>", "\<\" \"\>", \
"\<\" \"\>", "\<\" \"\>"},
     {"0", "0", "2.021984091060332`", "0", "0", "0", "0", "0", "0", "0", 
      "0.`", "\<\" \"\>", "\<\" \"\>", "\<\" \"\>", "\<\" \"\>", "\<\" \"\>", \
"\<\" \"\>"},
     {"0", "0", "0", "2.0220918241817545`", "0", "0", "0", "0", "0", "0", "0",
       "0.`", "\<\" \"\>", "\<\" \"\>", "\<\" \"\>", "\<\" \"\>", "\<\" \"\>"},
     {"0", "0", "0", "2.0218614126303915`", "0", "0", "0", "0", "0", "0", "0",
       "0", "0.`", "\<\" \"\>", "\<\" \"\>", "\<\" \"\>", "\<\" \"\>"},
     {"0", "0", "0", "2.0221085797143457`", "0", "0", "0", "0", "0", "0", "0",
       "0", "0", "0.`", "\<\" \"\>", "\<\" \"\>", "\<\" \"\>"},
     {"0", "0", "0", "0", "2.022053701350951`", "0", "0", "0", "0", "0", "0", 
      "0", "0", "0", "0.`", "\<\" \"\>", "\<\" \"\>"},
     {"0", "0", "0", "0", "2.021909961363487`", "0", "0", "0", "0", "0", "0", 
      "0", "0", "0", "0", "0.`", "\<\" \"\>"},
     {"0", "0", "0", "0", "2.0221730494492838`", "0", "0", "0", "0", "0", "0",
       "0", "0", "0", "0", "0", "0.`"}
    },
    GridBoxAlignment->{
     "Columns" -> {{Center}}, "ColumnsIndexed" -> {}, "Rows" -> {{Baseline}}, 
      "RowsIndexed" -> {}},
    GridBoxSpacings->{"Columns" -> {
        Offset[0.27999999999999997`], {
         Offset[0.7]}, 
        Offset[0.27999999999999997`]}, "ColumnsIndexed" -> {}, "Rows" -> {
        Offset[0.2], {
         Offset[0.4]}, 
        Offset[0.2]}, "RowsIndexed" -> {}}], "\[NoBreak]", ")"}],
  Function[BoxForm`e$, 
   MatrixForm[BoxForm`e$]]]], "Output",
 CellChangeTimes->{3.571045315547639*^9}]
}, Open  ]],

Cell[CellGroupData[{

Cell[BoxData[{
 RowBox[{
  RowBox[{
   RowBox[{"nc", "=", "0"}], ";"}], "  ", 
  RowBox[{"(*", " ", 
   RowBox[{
    RowBox[{"parse", " ", "into", " ", "prim"}], ",", " ", "sec", ",", " ", 
    "tert", ",", " ", 
    RowBox[{
    "and", " ", "quart", " ", "C", " ", "cores", " ", "with", " ", 
     "different", " ", "radii"}]}], " ", "*)"}]}], "\[IndentingNewLine]", 
 RowBox[{"For", "[", 
  RowBox[{
   RowBox[{"i", "=", "1"}], ",", 
   RowBox[{"i", "<", 
    RowBox[{"bc", "+", "1"}]}], ",", 
   RowBox[{"i", "++"}], ",", 
   RowBox[{"If", "[", 
    RowBox[{
     RowBox[{
      RowBox[{"u", "[", 
       RowBox[{"[", "i", "]"}], "]"}], "\[Equal]", "\"\<C\>\""}], ",", 
     RowBox[{"nc", "=", 
      RowBox[{"nc", "+", "1"}]}], ",", "nc"}], "]"}]}], "]"}], "\n", 
 RowBox[{
  RowBox[{"cnt", "=", 
   RowBox[{"Table", "[", 
    RowBox[{"0", ",", 
     RowBox[{"{", 
      RowBox[{"i", ",", "1", ",", "nc"}], "}"}]}], "]"}]}], 
  ";"}], "\[IndentingNewLine]", 
 RowBox[{
  RowBox[{"pri", "=", "cnt"}], ";", " ", 
  RowBox[{"sec", "=", "cnt"}], ";", 
  RowBox[{"ter", "=", "cnt"}], ";", " ", 
  RowBox[{"qua", "=", "cnt"}], ";"}], "\[IndentingNewLine]", "nc"}], "Input",
 CellChangeTimes->{{3.5688800293771057`*^9, 3.5688801774057655`*^9}, {
   3.5688802290574565`*^9, 3.568880330208034*^9}, {3.5688803807053227`*^9, 
   3.5688804136525807`*^9}, 3.568880491434317*^9, 3.5688805648948464`*^9, {
   3.5688806280437574`*^9, 3.568880655234605*^9}, {3.568880712424306*^9, 
   3.568880716324312*^9}, {3.5688808087544746`*^9, 3.568880827786508*^9}, 
   3.5688808733385878`*^9, {3.568881358936241*^9, 3.5688813959239063`*^9}, {
   3.568881446561595*^9, 3.5688815849182377`*^9}, {3.5688816223739033`*^9, 
   3.568881642607139*^9}, 3.568881728953291*^9, {3.568881797624612*^9, 
   3.568881809870633*^9}, 3.568881863612727*^9, {3.568883098916497*^9, 
   3.5688831014749017`*^9}, {3.56888372124679*^9, 3.568883843239004*^9}, 
   3.568888211750622*^9, {3.5688882521546926`*^9, 3.5688885232519693`*^9}, {
   3.5688885890840845`*^9, 3.5688885895052853`*^9}, {3.568888675773437*^9, 
   3.5688886914514647`*^9}, {3.568888736285943*^9, 3.5688887717760057`*^9}, {
   3.5688888256429005`*^9, 3.5688888541441507`*^9}, {3.568892442649892*^9, 
   3.5688924499507046`*^9}, {3.568892758441247*^9, 3.5688927597360487`*^9}, {
   3.5688928234309607`*^9, 3.5688928379389863`*^9}, {3.5708938149488974`*^9, 
   3.5708938463361526`*^9}, {3.570893920483083*^9, 3.5708939282050962`*^9}, {
   3.570894700000852*^9, 3.5708947833985987`*^9}}],

Cell[BoxData["5"], "Output",
 CellChangeTimes->{3.571045315563239*^9}]
}, Open  ]],

Cell[CellGroupData[{

Cell[BoxData[{
 RowBox[{
  RowBox[{"For", "[", 
   RowBox[{
    RowBox[{"j", "=", "1"}], ",", 
    RowBox[{"j", "<", 
     RowBox[{"nc", "+", "1"}]}], ",", 
    RowBox[{"j", "++"}], ",", "\[IndentingNewLine]", 
    RowBox[{"For", "[", 
     RowBox[{
      RowBox[{"i", "=", 
       RowBox[{"bc", "+", "1"}]}], ",", 
      RowBox[{"i", "<", 
       RowBox[{"n", "+", "1"}]}], ",", 
      RowBox[{"i", "++"}], ",", 
      RowBox[{"If", "[", " ", 
       RowBox[{
        RowBox[{
         RowBox[{"Dij", "[", 
          RowBox[{"[", 
           RowBox[{"i", ",", "j"}], "]"}], "]"}], "\[NotEqual]", "0"}], " ", 
        ",", 
        RowBox[{
         RowBox[{"cnt", "[", 
          RowBox[{"[", "j", "]"}], "]"}], "=", 
         RowBox[{
          RowBox[{"cnt", "[", 
           RowBox[{"[", "j", "]"}], "]"}], "+", "1"}]}], ",", "0"}], "]"}]}], 
     "]"}]}], "]"}], ";"}], "\[IndentingNewLine]", "cnt"}], "Input",
 CellChangeTimes->{{3.5688800293771057`*^9, 3.5688801774057655`*^9}, {
   3.5688802290574565`*^9, 3.568880330208034*^9}, {3.5688803807053227`*^9, 
   3.5688804136525807`*^9}, 3.568880491434317*^9, 3.5688805648948464`*^9, {
   3.5688806280437574`*^9, 3.568880655234605*^9}, {3.568880712424306*^9, 
   3.568880716324312*^9}, {3.5688808087544746`*^9, 3.568880827786508*^9}, 
   3.5688808733385878`*^9, {3.568881358936241*^9, 3.5688813959239063`*^9}, {
   3.568881446561595*^9, 3.5688815849182377`*^9}, {3.5688816223739033`*^9, 
   3.568881642607139*^9}, 3.568881728953291*^9, {3.568881797624612*^9, 
   3.568881809870633*^9}, 3.568881863612727*^9, {3.568883098916497*^9, 
   3.5688831014749017`*^9}, {3.56888372124679*^9, 3.568883843239004*^9}, 
   3.568888211750622*^9, {3.5688882521546926`*^9, 3.5688885232519693`*^9}, {
   3.5688885890840845`*^9, 3.5688885895052853`*^9}, {3.568888675773437*^9, 
   3.5688886914514647`*^9}, {3.568888736285943*^9, 3.5688887717760057`*^9}, {
   3.5688888256429005`*^9, 3.5688888541441507`*^9}, {3.568892442649892*^9, 
   3.5688924499507046`*^9}, {3.568892758441247*^9, 3.5688927597360487`*^9}, {
   3.5688928234309607`*^9, 3.5688928379389863`*^9}, {3.5708938149488974`*^9, 
   3.5708938463361526`*^9}, {3.570893920483083*^9, 3.5708939282050962`*^9}, {
   3.570894700000852*^9, 3.570894821930666*^9}, 3.5709437180911617`*^9}],

Cell[BoxData[
 RowBox[{"{", 
  RowBox[{"2", ",", "2", ",", "2", ",", "3", ",", "3"}], "}"}]], "Output",
 CellChangeTimes->{3.5710453155788393`*^9}]
}, Open  ]],

Cell[BoxData[{
 RowBox[{
  RowBox[{"n1", "=", "0"}], ";", " ", 
  RowBox[{"n2", "=", "0"}], ";", " ", 
  RowBox[{"n3", "=", "0"}], ";", " ", 
  RowBox[{"n4", "=", "0"}], ";"}], "\n", 
 RowBox[{
  RowBox[{"For", "[", 
   RowBox[{
    RowBox[{"i", "=", "1"}], ",", 
    RowBox[{"i", "<", 
     RowBox[{"nc", "+", "1"}]}], ",", 
    RowBox[{"i", "++"}], ",", 
    RowBox[{"If", "[", 
     RowBox[{
      RowBox[{"(", 
       RowBox[{
        RowBox[{
         RowBox[{"cnt", "[", 
          RowBox[{"[", "i", "]"}], "]"}], "\[Equal]", "3"}], " ", "||", " ", 
        RowBox[{
         RowBox[{"cnt", "[", 
          RowBox[{"[", "i", "]"}], "]"}], "\[Equal]", "4"}]}], ")"}], ",", 
      RowBox[{
       RowBox[{"n1", "=", 
        RowBox[{"n1", "+", "1"}]}], ";", 
       RowBox[{
        RowBox[{"pri", "[", 
         RowBox[{"[", "n1", "]"}], "]"}], "=", "i"}]}], ",", 
      RowBox[{"If", "[", 
       RowBox[{
        RowBox[{
         RowBox[{"cnt", "[", 
          RowBox[{"[", "i", "]"}], "]"}], "\[Equal]", "2"}], ",", 
        RowBox[{
         RowBox[{"n2", "=", 
          RowBox[{"n2", "+", "1"}]}], ";", 
         RowBox[{
          RowBox[{"sec", "[", 
           RowBox[{"[", "n2", "]"}], "]"}], "=", "i"}]}], ",", 
        RowBox[{"If", "[", 
         RowBox[{
          RowBox[{
           RowBox[{"cnt", "[", 
            RowBox[{"[", "i", "]"}], "]"}], "\[Equal]", "1"}], ",", 
          RowBox[{
           RowBox[{"n3", "=", 
            RowBox[{"n3", "+", "1"}]}], ";", 
           RowBox[{
            RowBox[{"ter", "[", 
             RowBox[{"[", "n3", "]"}], "]"}], "=", "i"}]}], ",", 
          RowBox[{"If", "[", 
           RowBox[{
            RowBox[{
             RowBox[{"cnt", "[", 
              RowBox[{"[", "i", "]"}], "]"}], "=", "0"}], ",", 
            RowBox[{
             RowBox[{"n4", "=", 
              RowBox[{"n4", "+", "1"}]}], ";", 
             RowBox[{
              RowBox[{"qua", "[", 
               RowBox[{"[", "n4", "]"}], "]"}], "=", "i"}]}]}], "]"}]}], 
         "]"}]}], "]"}]}], "]"}]}], "]"}], ";"}], "\[IndentingNewLine]", 
 RowBox[{"For", " ", "[", 
  RowBox[{
   RowBox[{"i", "=", "1"}], ",", " ", 
   RowBox[{"i", "<", 
    RowBox[{"nc", "+", "1"}]}], ",", 
   RowBox[{"i", "++"}], ",", 
   RowBox[{"If", "[", 
    RowBox[{
     RowBox[{
      RowBox[{"pri", "[", 
       RowBox[{"[", "i", "]"}], "]"}], "\[NotEqual]", "0"}], ",", 
     RowBox[{
      RowBox[{"u2", "[", 
       RowBox[{"[", 
        RowBox[{"pri", "[", 
         RowBox[{"[", "i", "]"}], "]"}], "]"}], "]"}], "=", "0.254"}]}], 
    "]"}]}], "]"}], "\[IndentingNewLine]", 
 RowBox[{"For", " ", "[", 
  RowBox[{
   RowBox[{"i", "=", "1"}], ",", " ", 
   RowBox[{"i", "<", 
    RowBox[{"nc", "+", "1"}]}], ",", 
   RowBox[{"i", "++"}], ",", 
   RowBox[{"If", "[", 
    RowBox[{
     RowBox[{
      RowBox[{"sec", "[", 
       RowBox[{"[", "i", "]"}], "]"}], "\[NotEqual]", "0"}], ",", 
     RowBox[{
      RowBox[{"u2", "[", 
       RowBox[{"[", 
        RowBox[{"sec", "[", 
         RowBox[{"[", "i", "]"}], "]"}], "]"}], "]"}], "=", "0.2557"}]}], 
    "]"}]}], "]"}], "\[IndentingNewLine]", 
 RowBox[{"For", " ", "[", 
  RowBox[{
   RowBox[{"i", "=", "1"}], ",", " ", 
   RowBox[{"i", "<", 
    RowBox[{"nc", "+", "1"}]}], ",", 
   RowBox[{"i", "++"}], ",", 
   RowBox[{"If", "[", 
    RowBox[{
     RowBox[{
      RowBox[{"ter", "[", 
       RowBox[{"[", "i", "]"}], "]"}], "\[NotEqual]", "0"}], ",", 
     RowBox[{
      RowBox[{"u2", "[", 
       RowBox[{"[", 
        RowBox[{"ter", "[", 
         RowBox[{"[", "i", "]"}], "]"}], "]"}], "]"}], "=", "0.2567"}]}], 
    "]"}]}], "]"}], "\[IndentingNewLine]", 
 RowBox[{"For", " ", "[", 
  RowBox[{
   RowBox[{"i", "=", "1"}], ",", " ", 
   RowBox[{"i", "<", 
    RowBox[{"nc", "+", "1"}]}], ",", 
   RowBox[{"i", "++"}], ",", 
   RowBox[{"If", "[", 
    RowBox[{
     RowBox[{
      RowBox[{"qua", "[", 
       RowBox[{"[", "i", "]"}], "]"}], "\[NotEqual]", "0"}], ",", 
     RowBox[{
      RowBox[{"u2", "[", 
       RowBox[{"[", 
        RowBox[{"qua", "[", 
         RowBox[{"[", "i", "]"}], "]"}], "]"}], "]"}], "=", "0.2577"}]}], 
    "]"}]}], "]"}]}], "Input",
 CellChangeTimes->{{3.5688800293771057`*^9, 3.5688801774057655`*^9}, {
   3.5688802290574565`*^9, 3.568880330208034*^9}, {3.5688803807053227`*^9, 
   3.5688804136525807`*^9}, 3.568880491434317*^9, 3.5688805648948464`*^9, {
   3.5688806280437574`*^9, 3.568880655234605*^9}, {3.568880712424306*^9, 
   3.568880716324312*^9}, {3.5688808087544746`*^9, 3.568880827786508*^9}, 
   3.5688808733385878`*^9, {3.568881358936241*^9, 3.5688813959239063`*^9}, {
   3.568881446561595*^9, 3.5688815849182377`*^9}, {3.5688816223739033`*^9, 
   3.568881642607139*^9}, 3.568881728953291*^9, {3.568881797624612*^9, 
   3.568881809870633*^9}, 3.568881863612727*^9, {3.568883098916497*^9, 
   3.5688831014749017`*^9}, {3.56888372124679*^9, 3.568883843239004*^9}, 
   3.568888211750622*^9, {3.5688882521546926`*^9, 3.5688885232519693`*^9}, {
   3.5688885890840845`*^9, 3.5688885895052853`*^9}, {3.568888675773437*^9, 
   3.5688886914514647`*^9}, {3.568888736285943*^9, 3.5688887717760057`*^9}, {
   3.5688888256429005`*^9, 3.5688888541441507`*^9}, {3.568892442649892*^9, 
   3.5688924499507046`*^9}, {3.568892758441247*^9, 3.5688927597360487`*^9}, {
   3.5688928234309607`*^9, 3.5688928379389863`*^9}, {3.5708938149488974`*^9, 
   3.5708938463361526`*^9}, {3.570893920483083*^9, 3.5708939282050962`*^9}, {
   3.570894700000852*^9, 3.5708948169698577`*^9}, {3.570894956839703*^9, 
   3.5708949736409326`*^9}, {3.5708961320833673`*^9, 3.570896139696181*^9}, 
   3.570896314088887*^9, {3.5708963602181683`*^9, 3.5708963666609793`*^9}, {
   3.570896482038782*^9, 3.570896483645585*^9}, {3.5708965159376416`*^9, 
   3.570896521194851*^9}, {3.5709435995777535`*^9, 3.5709436285158043`*^9}, {
   3.5709436695594764`*^9, 3.5709437026783347`*^9}, {3.57094471360691*^9, 
   3.5709447144805117`*^9}, {3.5710437875405555`*^9, 3.5710438014245796`*^9}, 
   3.5710438399722476`*^9, {3.5710439678924723`*^9, 3.5710439893581095`*^9}, {
   3.5710441470743866`*^9, 3.5710441826580496`*^9}, 3.571044214450905*^9}],

Cell[CellGroupData[{

Cell[BoxData[{
 RowBox[{"For", "[", 
  RowBox[{
   RowBox[{"i", "=", "1"}], " ", ",", 
   RowBox[{"i", "<", 
    RowBox[{"n", "+", "1"}]}], ",", 
   RowBox[{"i", "++"}], ",", "\[IndentingNewLine]", 
   RowBox[{"For", "[", 
    RowBox[{
     RowBox[{"j", "=", "1"}], ",", " ", 
     RowBox[{"j", "<", 
      RowBox[{"bc", "+", "1"}]}], ",", 
     RowBox[{"j", "++"}], ",", "\[IndentingNewLine]", 
     RowBox[{"If", "[", 
      RowBox[{
       RowBox[{"(", 
        RowBox[{
         RowBox[{
          RowBox[{"Dij", "[", 
           RowBox[{"[", 
            RowBox[{"i", ",", "j"}], "]"}], "]"}], "\[NotEqual]", "0"}], "  ",
          "&&", " ", 
         RowBox[{
          RowBox[{"u", "[", 
           RowBox[{"[", "i", "]"}], "]"}], "\[Equal]", " ", "\"\<H\>\""}]}], 
        ")"}], ",", 
       RowBox[{"If", "[", 
        RowBox[{
         RowBox[{
          RowBox[{"u", "[", 
           RowBox[{"[", "j", "]"}], "]"}], "\[Equal]", "\"\<C\>\""}], ",", 
         RowBox[{
          RowBox[{"u2", "[", 
           RowBox[{"[", "i", "]"}], "]"}], "=", "0.5693"}], ",", 
         RowBox[{"If", "[", 
          RowBox[{
           RowBox[{
            RowBox[{"u", "[", 
             RowBox[{"[", "j", "]"}], "]"}], "\[Equal]", "\"\<F\>\""}], ",", 
           RowBox[{
            RowBox[{"u2", "[", 
             RowBox[{"[", "i", "]"}], "]"}], "=", "0.5"}], ",", 
           RowBox[{"If", "[", 
            RowBox[{
             RowBox[{
              RowBox[{"u", "[", 
               RowBox[{"[", "j", "]"}], "]"}], "\[Equal]", "\"\<N\>\""}], ",", 
             RowBox[{
              RowBox[{"u2", "[", 
               RowBox[{"[", "i", "]"}], "]"}], "=", "0.5541"}], ",", 
             RowBox[{"If", "[", 
              RowBox[{
               RowBox[{
                RowBox[{"u", "[", 
                 RowBox[{"[", "j", "]"}], "]"}], "\[Equal]", "\"\<O\>\""}], 
               ",", 
               RowBox[{
                RowBox[{"u2", "[", 
                 RowBox[{"[", "i", "]"}], "]"}], "=", "0.5241"}]}], "]"}]}], 
            "]"}]}], "]"}]}], "]"}]}], "]"}]}], "]"}]}], 
  "]"}], "\[IndentingNewLine]", "u2"}], "Input",
 CellChangeTimes->{{3.5688800293771057`*^9, 3.5688801774057655`*^9}, {
   3.5688802290574565`*^9, 3.568880330208034*^9}, {3.5688803807053227`*^9, 
   3.5688804136525807`*^9}, 3.568880491434317*^9, 3.5688805648948464`*^9, {
   3.5688806280437574`*^9, 3.568880655234605*^9}, {3.568880712424306*^9, 
   3.568880716324312*^9}, {3.5688808087544746`*^9, 3.568880827786508*^9}, 
   3.5688808733385878`*^9, {3.568881358936241*^9, 3.5688813959239063`*^9}, {
   3.568881446561595*^9, 3.5688815849182377`*^9}, {3.5688816223739033`*^9, 
   3.568881642607139*^9}, 3.568881728953291*^9, {3.568881797624612*^9, 
   3.568881809870633*^9}, 3.568881863612727*^9, {3.568883098916497*^9, 
   3.5688831014749017`*^9}, {3.56888372124679*^9, 3.568883843239004*^9}, 
   3.568888211750622*^9, {3.5688882521546926`*^9, 3.5688885232519693`*^9}, {
   3.5688885890840845`*^9, 3.5688885895052853`*^9}, {3.568888675773437*^9, 
   3.5688886914514647`*^9}, {3.568888736285943*^9, 3.5688887717760057`*^9}, {
   3.5688888256429005`*^9, 3.5688888541441507`*^9}, {3.568892442649892*^9, 
   3.5688924499507046`*^9}, {3.568892758441247*^9, 3.5688927597360487`*^9}, {
   3.5688928234309607`*^9, 3.5688928379389863`*^9}, {3.5708938149488974`*^9, 
   3.5708938463361526`*^9}, {3.570893920483083*^9, 3.5708939282050962`*^9}, {
   3.570894700000852*^9, 3.57089481264865*^9}, {3.570973331551669*^9, 
   3.570973355887712*^9}, {3.5709734060886*^9, 3.5709734077266035`*^9}, 
   3.5709737061863275`*^9}],

Cell[BoxData[
 RowBox[{"{", 
  RowBox[{
  "0.2557`", ",", "0.2557`", ",", "0.2557`", ",", "0.254`", ",", "0.254`", 
   ",", "0.5693`", ",", "0.5693`", ",", "0.5693`", ",", "0.5693`", ",", 
   "0.5693`", ",", "0.5693`", ",", "0.5693`", ",", "0.5693`", ",", "0.5693`", 
   ",", "0.5693`", ",", "0.5693`", ",", "0.5693`"}], "}"}]], "Output",
 CellChangeTimes->{3.5710453155944395`*^9}]
}, Open  ]],

Cell[BoxData[
 RowBox[{
  RowBox[{"(*", " ", 
   RowBox[{
   "subtract", " ", "core", " ", "radii", " ", "from", " ", "pair", " ", 
    "distances"}], " ", "*)"}], "\[IndentingNewLine]", 
  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[{"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}, {3.569341165522358*^9, 
   3.569341165537958*^9}, {3.5693418217531104`*^9, 3.5693418217531104`*^9}, {
   3.57059671735485*^9, 3.570596744467697*^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, 3.569341165537958*^9, 
   3.5693418217531104`*^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}, {3.569341165537958*^9, 3.569341165537958*^9}, {
   3.5693418217531104`*^9, 3.5693418217531104`*^9}}],

Cell[BoxData[
 RowBox[{
  RowBox[{"(*", " ", 
   RowBox[{"determine", " ", "bond", " ", "cloud", " ", "radii"}], " ", 
   "*)"}], "\[IndentingNewLine]", 
  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[{"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.5683793122399254`*^9, 3.568379313019926*^9}, {
   3.568379456758579*^9, 3.56837947986222*^9}, 3.5683796000760307`*^9, {
   3.5683796473285136`*^9, 3.5683796831617765`*^9}, {3.568381744939398*^9, 
   3.5683817743298492`*^9}, {3.56846523720809*^9, 3.568465240218895*^9}, 
   3.569341165537958*^9, 3.5693418217531104`*^9, {3.5705967846533675`*^9, 
   3.5705968020785985`*^9}}],

Cell[BoxData[
 RowBox[{
  RowBox[{"(*", " ", 
   RowBox[{"determine", " ", "kinetic", " ", "energy"}], " ", "*)"}], 
  "\[IndentingNewLine]", 
  RowBox[{
   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[{"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}, {
   3.5688722635742655`*^9, 3.568872266616271*^9}, 3.5688723032763357`*^9, 
   3.5688725225503206`*^9, 3.5692365125035076`*^9, {3.5692366381461277`*^9, 
   3.5692366389105296`*^9}, {3.5692366963654304`*^9, 3.5692366986898346`*^9}, 
   3.5693411655535583`*^9, 3.5693418217687106`*^9, {3.5705968460394754`*^9, 
   3.5705968602823005`*^9}}],

Cell[CellGroupData[{

Cell[BoxData[
 RowBox[{"Tval", "=", 
  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"}], "}"}]}], "]"}]}]], "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.568379511358675*^9, 3.5683795129030776`*^9}, 3.5688214977895346`*^9, {
   3.56882774467134*^9, 3.56882781892747*^9}}],

Cell[BoxData["25.191948718213446`"], "Output",
 CellChangeTimes->{3.571045315625639*^9}]
}, Open  ]],

Cell[CellGroupData[{

Cell[BoxData[
 RowBox[{"Tcor", "=", 
  RowBox[{"Sum", "[", 
   RowBox[{
    RowBox[{"If", "[", 
     RowBox[{
      RowBox[{
       RowBox[{"u", "[", 
        RowBox[{"[", "i", "]"}], "]"}], "\[NotEqual]", "\"\<H\>\""}], ",", 
      RowBox[{"2.25", "/", 
       RowBox[{
        RowBox[{"u2", "[", 
         RowBox[{"[", "i", "]"}], "]"}], "^", "2"}]}], ",", "0"}], "]"}], ",", 
    RowBox[{"{", 
     RowBox[{"i", ",", "1", ",", "n"}], "}"}]}], "]"}]}]], "Input",
 CellChangeTimes->{
  3.5688724058309155`*^9, {3.568872452646598*^9, 3.568872478480243*^9}, {
   3.5688764461756124`*^9, 3.5688764647552447`*^9}, {3.5692363452556133`*^9, 
   3.5692363456924143`*^9}, 3.569236415892538*^9, 3.5692365043134933`*^9}],

Cell[BoxData["172.98878948133665`"], "Output",
 CellChangeTimes->{3.571045315641239*^9}]
}, Open  ]],

Cell[CellGroupData[{

Cell[BoxData[
 RowBox[{"Ttot", "=", 
  RowBox[{"Tval", "+", "Tcor", "  ", 
   RowBox[{"(*", " ", 
    RowBox[{"plus", " ", "\[Pi]", " ", "and", " ", "lone", " ", 
     RowBox[{"pairs", ":", " ", 
      RowBox[{"+", " ", "8.7616"}]}]}], " ", "*)"}]}]}]], "Input",
 CellChangeTimes->{
  3.5688724058309155`*^9, {3.568872452646598*^9, 3.568872478480243*^9}, {
   3.5688764461756124`*^9, 3.568876459248435*^9}, {3.568876733122516*^9, 
   3.5688767685033784`*^9}, {3.568895188410715*^9, 3.5688952349923964`*^9}}],

Cell[BoxData["198.1807381995501`"], "Output",
 CellChangeTimes->{3.5710453156568394`*^9}]
}, Open  ]],

Cell[CellGroupData[{

Cell[BoxData[
 RowBox[{"TvalH", "=", 
  RowBox[{"Sum", "[", 
   RowBox[{
    RowBox[{"If", "[", 
     RowBox[{
      RowBox[{"(", 
       RowBox[{
        RowBox[{"i", "\[LessEqual]", "j"}], " ", "&&", " ", 
        RowBox[{
         RowBox[{"u", "[", 
          RowBox[{"[", "j", "]"}], "]"}], "\[Equal]", " ", "\"\<H\>\""}]}], 
       ")"}], ",", 
      RowBox[{"Nij", "[", 
       RowBox[{"[", 
        RowBox[{"i", ",", "j"}], "]"}], "]"}], ",", "0"}], "]"}], ",", 
    RowBox[{"{", 
     RowBox[{"i", ",", "1", ",", "n"}], "}"}], ",", 
    RowBox[{"{", 
     RowBox[{"j", ",", "1", ",", "n"}], "}"}]}], "]"}]}]], "Input",
 CellChangeTimes->{
  3.5688724058309155`*^9, {3.568872452646598*^9, 3.568872478480243*^9}, {
   3.5688764461756124`*^9, 3.568876459248435*^9}, {3.568876733122516*^9, 
   3.5688767642445707`*^9}}],

Cell[BoxData["18.81761708673598`"], "Output",
 CellChangeTimes->{3.5710453156724396`*^9}]
}, Open  ]],

Cell[CellGroupData[{

Cell[BoxData[
 RowBox[{"TvalC", "=", 
  RowBox[{"Tval", "-", "TvalH"}]}]], "Input",
 CellChangeTimes->{{3.5688726088808727`*^9, 3.568872610581275*^9}, {
  3.5688726952426243`*^9, 3.5688727146490583`*^9}}],

Cell[BoxData["6.374331631477467`"], "Output",
 CellChangeTimes->{3.5710453156880393`*^9}]
}, Open  ]],

Cell[BoxData[
 RowBox[{"\[IndentingNewLine]", 
  RowBox[{
   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}],

Cell[CellGroupData[{

Cell[BoxData[
 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.5693411655535583`*^9, 3.5693418217687106`*^9, {
   3.570340755052903*^9, 3.5703407609185133`*^9}, 3.570342272888769*^9, {
   3.5703428806034365`*^9, 3.5703428850182447`*^9}}],

Cell[BoxData[
 TagBox[
  RowBox[{"(", "\[NoBreak]", GridBox[{
     {"\<\" \"\>", "\<\"C\"\>", "\<\"C\"\>", "\<\"C\"\>", "\<\"C\"\>", "\<\"C\
\"\>", "\<\"H\"\>", "\<\"H\"\>", "\<\"H\"\>", "\<\"H\"\>", "\<\"H\"\>", \
"\<\"H\"\>", "\<\"H\"\>", "\<\"H\"\>", "\<\"H\"\>", "\<\"H\"\>", "\<\"H\"\>", \
"\<\"H\"\>"},
     {"\<\"C\"\>", 
      "0", "\<\" \"\>", "\<\" \"\>", "\<\" \"\>", "\<\" \"\>", "\<\" \"\>", "\
\<\" \"\>", "\<\" \"\>", "\<\" \"\>", "\<\" \"\>", "\<\" \"\>", "\<\" \"\>", \
"\<\" \"\>", "\<\" \"\>", "\<\" \"\>", "\<\" \"\>", "\<\" \"\>"},
     {"\<\"C\"\>", "1.1757634251168199`", 
      "0", "\<\" \"\>", "\<\" \"\>", "\<\" \"\>", "\<\" \"\>", "\<\" \"\>", "\
\<\" \"\>", "\<\" \"\>", "\<\" \"\>", "\<\" \"\>", "\<\" \"\>", "\<\" \"\>", \
"\<\" \"\>", "\<\" \"\>", "\<\" \"\>", "\<\" \"\>"},
     {"\<\"C\"\>", "1.1857062527822257`", "0", 
      "0", "\<\" \"\>", "\<\" \"\>", "\<\" \"\>", "\<\" \"\>", "\<\" \"\>", "\
\<\" \"\>", "\<\" \"\>", "\<\" \"\>", "\<\" \"\>", "\<\" \"\>", "\<\" \"\>", \
"\<\" \"\>", "\<\" \"\>", "\<\" \"\>"},
     {"\<\"C\"\>", "0", "1.1934627769729744`", "0", 
      "0", "\<\" \"\>", "\<\" \"\>", "\<\" \"\>", "\<\" \"\>", "\<\" \"\>", "\
\<\" \"\>", "\<\" \"\>", "\<\" \"\>", "\<\" \"\>", "\<\" \"\>", "\<\" \"\>", \
"\<\" \"\>", "\<\" \"\>"},
     {"\<\"C\"\>", "0", "0", "1.1983952888404905`", "0", 
      "0", "\<\" \"\>", "\<\" \"\>", "\<\" \"\>", "\<\" \"\>", "\<\" \"\>", "\
\<\" \"\>", "\<\" \"\>", "\<\" \"\>", "\<\" \"\>", "\<\" \"\>", "\<\" \"\>", \
"\<\" \"\>"},
     {"\<\"H\"\>", "1.1970182589912897`", "0", "0", "0", "0", 
      "0", "\<\" \"\>", "\<\" \"\>", "\<\" \"\>", "\<\" \"\>", "\<\" \"\>", "\
\<\" \"\>", "\<\" \"\>", "\<\" \"\>", "\<\" \"\>", "\<\" \"\>", "\<\" \"\>"},
     {"\<\"H\"\>", "1.1969692199311317`", "0", "0", "0", "0", "0", 
      "0", "\<\" \"\>", "\<\" \"\>", "\<\" \"\>", "\<\" \"\>", "\<\" \"\>", "\
\<\" \"\>", "\<\" \"\>", "\<\" \"\>", "\<\" \"\>", "\<\" \"\>"},
     {"\<\"H\"\>", "0", "1.1967813122494788`", "0", "0", "0", "0", "0", 
      "0", "\<\" \"\>", "\<\" \"\>", "\<\" \"\>", "\<\" \"\>", "\<\" \"\>", "\
\<\" \"\>", "\<\" \"\>", "\<\" \"\>", "\<\" \"\>"},
     {"\<\"H\"\>", "0", "1.1969052841504828`", "0", "0", "0", "0", "0", "0", 
      "0", "\<\" \"\>", "\<\" \"\>", "\<\" \"\>", "\<\" \"\>", "\<\" \"\>", "\
\<\" \"\>", "\<\" \"\>", "\<\" \"\>"},
     {"\<\"H\"\>", "0", "0", "1.197060416422584`", "0", "0", "0", "0", "0", 
      "0", "0", "\<\" \"\>", "\<\" \"\>", "\<\" \"\>", "\<\" \"\>", "\<\" \
\"\>", "\<\" \"\>", "\<\" \"\>"},
     {"\<\"H\"\>", "0", "0", "1.1969840910603318`", "0", "0", "0", "0", "0", 
      "0", "0", 
      "0", "\<\" \"\>", "\<\" \"\>", "\<\" \"\>", "\<\" \"\>", "\<\" \"\>", "\
\<\" \"\>"},
     {"\<\"H\"\>", "0", "0", "0", "1.1987918241817543`", "0", "0", "0", "0", 
      "0", "0", "0", 
      "0", "\<\" \"\>", "\<\" \"\>", "\<\" \"\>", "\<\" \"\>", "\<\" \"\>"},
     {"\<\"H\"\>", "0", "0", "0", "1.1985614126303914`", "0", "0", "0", "0", 
      "0", "0", "0", "0", 
      "0", "\<\" \"\>", "\<\" \"\>", "\<\" \"\>", "\<\" \"\>"},
     {"\<\"H\"\>", "0", "0", "0", "1.1988085797143455`", "0", "0", "0", "0", 
      "0", "0", "0", "0", "0", "0", "\<\" \"\>", "\<\" \"\>", "\<\" \"\>"},
     {"\<\"H\"\>", "0", "0", "0", "0", "1.198753701350951`", "0", "0", "0", 
      "0", "0", "0", "0", "0", "0", "0", "\<\" \"\>", "\<\" \"\>"},
     {"\<\"H\"\>", "0", "0", "0", "0", "1.1986099613634869`", "0", "0", "0", 
      "0", "0", "0", "0", "0", "0", "0", "0", "\<\" \"\>"},
     {"\<\"H\"\>", "0", "0", "0", "0", "1.1988730494492836`", "0", "0", "0", 
      "0", "0", "0", "0", "0", "0", "0", "0", "0"}
    },
    GridBoxAlignment->{
     "Columns" -> {{Center}}, "ColumnsIndexed" -> {}, "Rows" -> {{Baseline}}, 
      "RowsIndexed" -> {}},
    GridBoxSpacings->{"Columns" -> {
        Offset[0.27999999999999997`], {
         Offset[0.7]}, 
        Offset[0.27999999999999997`]}, "ColumnsIndexed" -> {}, "Rows" -> {
        Offset[0.2], {
         Offset[0.4]}, 
        Offset[0.2]}, "RowsIndexed" -> {}}], "\[NoBreak]", ")"}],
  Function[BoxForm`e$, 
   MatrixForm[BoxForm`e$]]]], "Output",
 CellChangeTimes->{3.5710453157036395`*^9}]
}, Open  ]],

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[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[{"Pij", "[", 
           RowBox[{"[", 
            RowBox[{"i", ",", "j"}], "]"}], "]"}], ">", "0"}], " ", "&&", " ", 
         RowBox[{"(", " ", 
          RowBox[{
           RowBox[{
            RowBox[{"u", "[", 
             RowBox[{"[", 
              RowBox[{"i", "-", "1"}], "]"}], "]"}], "\[Equal]", 
            "\"\<O\>\""}], " ", "||", "  ", 
           RowBox[{
            RowBox[{"u", "[", 
             RowBox[{"[", 
              RowBox[{"j", "-", "1"}], "]"}], "]"}], "\[Equal]", 
            "\"\<O\>\""}]}], " ", ")"}]}], ")"}], " ", ",", 
       RowBox[{"Print", "[", 
        RowBox[{
         RowBox[{"u", "[", 
          RowBox[{"[", 
           RowBox[{"i", "-", "1"}], "]"}], "]"}], ",", 
         RowBox[{"i", "-", "1"}], ",", "\"\< \>\"", ",", 
         RowBox[{"u", "[", 
          RowBox[{"[", 
           RowBox[{"j", "-", "1"}], "]"}], "]"}], ",", 
         RowBox[{"j", "-", "1"}], ",", "\"\<  \>\"", ",", 
         RowBox[{"t", "[", 
          RowBox[{"[", 
           RowBox[{"i", "-", "1"}], "]"}], "]"}], ",", "\"\< \>\"", ",", 
         RowBox[{"t", "[", 
          RowBox[{"[", 
           RowBox[{"j", "-", "1"}], "]"}], "]"}]}], "]"}]}], "]"}]}], "]"}]}],
   "]"}]], "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.568883508322016*^9, 3.568883588350157*^9, 
   3.5688836441982546`*^9, {3.5703421313965206`*^9, 3.5703421386505337`*^9}, {
   3.570342288098796*^9, 3.5703424924279547`*^9}, 3.5709745658726373`*^9, 
   3.5709746291463485`*^9, {3.5709747534473667`*^9, 3.5709747617933817`*^9}, {
   3.5709749537361183`*^9, 3.570975034747061*^9}, {3.5709751055243855`*^9, 
   3.5709751213584127`*^9}, {3.5709751694532976`*^9, 3.570975200060551*^9}}],

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", "]"}]}], "\[IndentingNewLine]", 
 RowBox[{"cw", "=", 
  RowBox[{"nb", "-", "bh"}]}]}], "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.568381170343589*^9, 
   3.568381179844005*^9}, {3.5689533222924633`*^9, 3.568953376658559*^9}}],

Cell[BoxData[
 RowBox[{"{", 
  RowBox[{
   RowBox[{"{", 
    RowBox[{"2", ",", "1", ",", "1.1757634251168199`"}], "}"}], ",", 
   RowBox[{"{", 
    RowBox[{"3", ",", "1", ",", "1.1857062527822257`"}], "}"}], ",", 
   RowBox[{"{", 
    RowBox[{"4", ",", "2", ",", "1.1934627769729744`"}], "}"}], ",", 
   RowBox[{"{", 
    RowBox[{"5", ",", "3", ",", "1.1983952888404905`"}], "}"}], ",", 
   RowBox[{"{", 
    RowBox[{"6", ",", "1", ",", "1.1970182589912897`"}], "}"}], ",", 
   RowBox[{"{", 
    RowBox[{"7", ",", "1", ",", "1.1969692199311317`"}], "}"}], ",", 
   RowBox[{"{", 
    RowBox[{"8", ",", "2", ",", "1.1967813122494788`"}], "}"}], ",", 
   RowBox[{"{", 
    RowBox[{"9", ",", "2", ",", "1.1969052841504828`"}], "}"}], ",", 
   RowBox[{"{", 
    RowBox[{"10", ",", "3", ",", "1.197060416422584`"}], "}"}], ",", 
   RowBox[{"{", 
    RowBox[{"11", ",", "3", ",", "1.1969840910603318`"}], "}"}], ",", 
   RowBox[{"{", 
    RowBox[{"12", ",", "4", ",", "1.1987918241817543`"}], "}"}], ",", 
   RowBox[{"{", 
    RowBox[{"13", ",", "4", ",", "1.1985614126303914`"}], "}"}], ",", 
   RowBox[{"{", 
    RowBox[{"14", ",", "4", ",", "1.1988085797143455`"}], "}"}], ",", 
   RowBox[{"{", 
    RowBox[{"15", ",", "5", ",", "1.198753701350951`"}], "}"}], ",", 
   RowBox[{"{", 
    RowBox[{"16", ",", "5", ",", "1.1986099613634869`"}], "}"}], ",", 
   RowBox[{"{", 
    RowBox[{"17", ",", "5", ",", "1.1988730494492836`"}], "}"}]}], 
  "}"}]], "Output",
 CellChangeTimes->{3.5710453157348394`*^9}],

Cell[BoxData["16"], "Output",
 CellChangeTimes->{3.5710453157348394`*^9}],

Cell[BoxData["4"], "Output",
 CellChangeTimes->{3.5710453157348394`*^9}]
}, Open  ]],

Cell[BoxData[{
 RowBox[{
  RowBox[{"wxc", "=", 
   RowBox[{"Table", "[", 
    RowBox[{
     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"}], "]"}], "]"}], "]"}], "]"}]}], ",", 
     RowBox[{"{", 
      RowBox[{"i", ",", "1", ",", "cw"}], "}"}]}], "]"}]}], ";"}], "\n", 
 RowBox[{
  RowBox[{
   RowBox[{"wyc", "=", 
    RowBox[{"Table", "[", 
     RowBox[{
      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"}], "]"}], "]"}], "]"}], "]"}]}], ",", 
      RowBox[{"{", 
       RowBox[{"i", ",", "1", ",", "cw"}], "}"}]}], "]"}]}], ";"}], 
  "   "}], "\n", 
 RowBox[{
  RowBox[{"wzc", "=", 
   RowBox[{"Table", "[", 
    RowBox[{
     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"}], "]"}], "]"}], "]"}], "]"}]}], ",", 
     RowBox[{"{", 
      RowBox[{"i", ",", "1", ",", "cw"}], "}"}]}], "]"}]}], ";"}]}], "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.5683784032731285`*^9, 3.568378422991563*^9}, {
   3.568378459308427*^9, 3.5683784812420654`*^9}, {3.568378513440522*^9, 
   3.568378867046343*^9}, {3.568378915468828*^9, 3.56837896203491*^9}, {
   3.5683790764299107`*^9, 3.568379270041851*^9}, {3.568380233530743*^9, 
   3.568380234388745*^9}, 3.5683804214954734`*^9, 3.568380471867962*^9, 
   3.5683805399464817`*^9, {3.5683812396077104`*^9, 3.568381293537005*^9}, {
   3.568381339541486*^9, 3.5683813935175805`*^9}, 3.5684646396646404`*^9, 
   3.5684646988823442`*^9, 3.568465086387025*^9, {3.5684655859935026`*^9, 
   3.568465605087936*^9}, 3.568821235038273*^9, 3.5688233741452303`*^9, 
   3.568823449742963*^9, 3.5688274593312387`*^9, {3.5688284679978104`*^9, 
   3.5688284689026117`*^9}, {3.5688285131598897`*^9, 3.5688285201487017`*^9}, 
   3.5688285866360188`*^9, {3.5688292397623663`*^9, 3.568829246688778*^9}, {
   3.5688780328231993`*^9, 3.568878075458074*^9}, 3.5688953020257144`*^9, 
   3.5693395777359695`*^9, {3.569339615191635*^9, 3.569339617079238*^9}, {
   3.5693396917877693`*^9, 3.56933969216217*^9}, 3.5693893483274703`*^9}],

Cell[BoxData[
 RowBox[{
  RowBox[{"Plot7", "=", 
   RowBox[{"Table", "[", 
    RowBox[{
     RowBox[{"Graphics3D", "[", 
      RowBox[{"{", 
       RowBox[{
        RowBox[{"Lighter", "[", 
         RowBox[{"Brown", ",", "0.6"}], "]"}], ",", 
        RowBox[{"Opacity", "[", "0.6", "]"}], ",", 
        RowBox[{"If", "[", 
         RowBox[{
          RowBox[{
           RowBox[{"wxc", "[", 
            RowBox[{"[", "i", "]"}], "]"}], "\[NotEqual]", "0"}], ",", 
          RowBox[{"Sphere", "[", 
           RowBox[{
            RowBox[{"{", 
             RowBox[{
              RowBox[{"wxc", "[", 
               RowBox[{"[", "i", "]"}], "]"}], ",", 
              RowBox[{"wyc", "[", 
               RowBox[{"[", "i", "]"}], "]"}], ",", 
              RowBox[{"wzc", "[", 
               RowBox[{"[", "i", "]"}], "]"}]}], "}"}], ",", 
            RowBox[{"a", "[", 
             RowBox[{"[", 
              RowBox[{"i", ",", "3"}], "]"}], "]"}]}], "]"}]}], "]"}]}], 
       "}"}], "]"}], ",", 
     RowBox[{"{", 
      RowBox[{"i", ",", "1", ",", "cw"}], "}"}]}], "]"}]}], ";"}]], "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.5683784032731285`*^9, 3.568378422991563*^9}, {
   3.568378459308427*^9, 3.5683784812420654`*^9}, {3.568378513440522*^9, 
   3.568378867046343*^9}, {3.568378915468828*^9, 3.56837896203491*^9}, {
   3.5683790764299107`*^9, 3.568379270041851*^9}, {3.568380233530743*^9, 
   3.568380234388745*^9}, 3.5683804214954734`*^9, 3.568380471867962*^9, 
   3.5683805399464817`*^9, {3.5683812396077104`*^9, 3.568381293537005*^9}, {
   3.568381339541486*^9, 3.5683813935175805`*^9}, 3.5684646396646404`*^9, 
   3.5684646988823442`*^9, 3.568465086387025*^9, {3.5684655859935026`*^9, 
   3.568465605087936*^9}, 3.568821235038273*^9, 3.5688233741452303`*^9, 
   3.568823449742963*^9, 3.5688274593312387`*^9, {3.5688284679978104`*^9, 
   3.5688284689026117`*^9}, {3.5688285131598897`*^9, 3.5688285201487017`*^9}, 
   3.5688285866360188`*^9, {3.5688292397623663`*^9, 3.568829246688778*^9}, {
   3.5688780328231993`*^9, 3.56887811871695*^9}, {3.568895331556566*^9, 
   3.5688953367201753`*^9}, 3.568895995276532*^9, {3.5693397032225895`*^9, 
   3.56933970331619*^9}, 3.569339737137049*^9, 3.569340055299608*^9, 
   3.569389360947892*^9, {3.570298060155057*^9, 3.570298071589877*^9}, {
   3.5704539766451664`*^9, 3.5704539773627677`*^9}, {3.5709509139026003`*^9, 
   3.570950950500265*^9}, {3.570950995397144*^9, 3.5709510449896307`*^9}, {
   3.570974064815357*^9, 3.5709741190878525`*^9}, {3.5709742487084804`*^9, 
   3.570974273528124*^9}}],

Cell[BoxData[{
 RowBox[{
  RowBox[{"wxh", "=", 
   RowBox[{"Table", "[", 
    RowBox[{
     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"}], "]"}], "]"}], "]"}], "]"}]}], ",", 
     RowBox[{"{", 
      RowBox[{"i", ",", 
       RowBox[{"cw", "+", "1"}], ",", "nb"}], "}"}]}], "]"}]}], ";"}], "\n", 
 RowBox[{
  RowBox[{"wyh", "=", 
   RowBox[{"Table", "[", 
    RowBox[{
     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"}], "]"}], "]"}], "]"}], "]"}]}], ",", 
     RowBox[{"{", 
      RowBox[{"i", ",", 
       RowBox[{"cw", "+", "1"}], ",", "nb"}], "}"}]}], "]"}]}], ";"}], "\n", 
 RowBox[{
  RowBox[{"wzh", "=", 
   RowBox[{"Table", "[", 
    RowBox[{
     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"}], "]"}], "]"}], "]"}], "]"}]}], ",", 
     RowBox[{"{", 
      RowBox[{"i", ",", 
       RowBox[{"cw", "+", "1"}], ",", "nb"}], "}"}]}], "]"}]}], 
  ";"}]}], "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.5683784032731285`*^9, 3.568378422991563*^9}, {
   3.568378459308427*^9, 3.5683784812420654`*^9}, {3.568378513440522*^9, 
   3.568378867046343*^9}, {3.568378915468828*^9, 3.56837896203491*^9}, {
   3.5683790764299107`*^9, 3.568379270041851*^9}, {3.568380233530743*^9, 
   3.568380234388745*^9}, 3.5683804214954734`*^9, 3.568380471867962*^9, 
   3.5683805399464817`*^9, {3.5683812396077104`*^9, 3.568381293537005*^9}, {
   3.568381339541486*^9, 3.5683813935175805`*^9}, 3.5684646396646404`*^9, 
   3.5684646988823442`*^9, 3.568465086387025*^9, {3.5684655859935026`*^9, 
   3.568465605087936*^9}, 3.568821235038273*^9, 3.5688233741452303`*^9, 
   3.568823449742963*^9, 3.5688274593312387`*^9, {3.5688284679978104`*^9, 
   3.5688284689026117`*^9}, {3.5688285131598897`*^9, 3.5688285201487017`*^9}, 
   3.5688285866360188`*^9, {3.5688292397623663`*^9, 3.568829246688778*^9}, {
   3.5688780328231993`*^9, 3.5688781280925665`*^9}, 3.568895312524533*^9, 
   3.5693395940691977`*^9, {3.5693396336776676`*^9, 3.5693396557829065`*^9}, {
   3.569340069402033*^9, 3.569340092412073*^9}, {3.569389186383586*^9, 
   3.5693891947764006`*^9}, {3.569389263291721*^9, 3.569389289686967*^9}, 
   3.569389336315449*^9}],

Cell[BoxData[
 RowBox[{
  RowBox[{"Plot8", "=", 
   RowBox[{"Table", "[", 
    RowBox[{
     RowBox[{"Graphics3D", "[", 
      RowBox[{"{", 
       RowBox[{
        RowBox[{"Opacity", "[", "0.5", "]"}], ",", 
        RowBox[{"Sphere", "[", 
         RowBox[{
          RowBox[{"{", 
           RowBox[{
            RowBox[{"wxh", "[", 
             RowBox[{"[", "i", "]"}], "]"}], ",", 
            RowBox[{"wyh", "[", 
             RowBox[{"[", "i", "]"}], "]"}], ",", 
            RowBox[{"wzh", "[", 
             RowBox[{"[", "i", "]"}], "]"}]}], "}"}], ",", 
          RowBox[{"a", "[", 
           RowBox[{"[", 
            RowBox[{
             RowBox[{"i", "+", "cw"}], ",", "3"}], "]"}], "]"}]}], "]"}]}], 
       "}"}], "]"}], ",", 
     RowBox[{"{", 
      RowBox[{"i", ",", "1", ",", "bh"}], "}"}]}], "]"}]}], ";"}]], "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.5683784032731285`*^9, 3.568378422991563*^9}, {
   3.568378459308427*^9, 3.5683784812420654`*^9}, {3.568378513440522*^9, 
   3.568378867046343*^9}, {3.568378915468828*^9, 3.56837896203491*^9}, {
   3.5683790764299107`*^9, 3.568379270041851*^9}, {3.568380233530743*^9, 
   3.568380234388745*^9}, 3.5683804214954734`*^9, 3.568380471867962*^9, 
   3.5683805399464817`*^9, {3.5683812396077104`*^9, 3.568381293537005*^9}, {
   3.568381339541486*^9, 3.5683813935175805`*^9}, 3.5684646396646404`*^9, 
   3.5684646988823442`*^9, 3.568465086387025*^9, {3.5684655859935026`*^9, 
   3.568465605087936*^9}, 3.568821235038273*^9, 3.5688233741452303`*^9, 
   3.568823449742963*^9, 3.5688274593312387`*^9, {3.5688284679978104`*^9, 
   3.5688284689026117`*^9}, {3.5688285131598897`*^9, 3.5688285201487017`*^9}, 
   3.5688285866360188`*^9, {3.5688292397623663`*^9, 3.568829246688778*^9}, {
   3.5688780328231993`*^9, 3.568878147967001*^9}, {3.56889532230575*^9, 
   3.5688953242557535`*^9}, 3.56889600529175*^9, 3.5688961595292206`*^9, {
   3.5693396821781526`*^9, 3.5693396825213532`*^9}, 3.5693893658151007`*^9, {
   3.5693895413934093`*^9, 3.5693895427506113`*^9}, {3.5697651043452682`*^9, 
   3.5697651089940763`*^9}, {3.5704647001766*^9, 3.570464712141821*^9}}],

Cell[CellGroupData[{

Cell[BoxData[{
 RowBox[{
  RowBox[{"Plot9", "=", " ", 
   RowBox[{"Table", "[", 
    RowBox[{
     RowBox[{"Graphics3D", "[", 
      RowBox[{"{", 
       RowBox[{"(*", 
        RowBox[{
         RowBox[{"Darker", "[", 
          RowBox[{"Red", ",", "0.8"}], "]"}], ","}], "*)"}], 
       RowBox[{"Tube", "[", 
        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.1"}], "]"}], "}"}], "]"}], ",", 
     RowBox[{"{", 
      RowBox[{"i", ",", "1", ",", "nb"}], "}"}]}], "]"}]}], 
  ";"}], "\[IndentingNewLine]", 
 RowBox[{"Show", "[", 
  RowBox[{
  "Plot1", ",", "Plot2", ",", "Plot7", ",", "Plot8", ",", "Plot9", ",", 
   RowBox[{"{", 
    RowBox[{
     RowBox[{"AspectRatio", "\[Rule]", "Automatic"}], ",", 
     RowBox[{"Boxed", "->", "False"}], ",", " ", 
     RowBox[{"SphericalRegion", "\[Rule]", "True"}]}], "}"}]}], 
  "]"}], "\[IndentingNewLine]", 
 RowBox[{"Show", "[", 
  RowBox[{"Plot1", ",", "Plot2", ",", "Plot9", ",", 
   RowBox[{"{", 
    RowBox[{
     RowBox[{"AspectRatio", "\[Rule]", "Automatic"}], ",", 
     RowBox[{"Boxed", "\[Rule]", "True"}], ",", " ", 
     RowBox[{"SphericalRegion", "\[Rule]", "True"}]}], "}"}]}], 
  "]"}], "\[IndentingNewLine]"}], "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.5683784032731285`*^9, 3.568378422991563*^9}, {
   3.568378459308427*^9, 3.5683784812420654`*^9}, {3.568378513440522*^9, 
   3.568378867046343*^9}, {3.568378915468828*^9, 3.56837896203491*^9}, {
   3.5683790764299107`*^9, 3.568379270041851*^9}, {3.568380233530743*^9, 
   3.568380234388745*^9}, 3.5683804214954734`*^9, 3.568380471867962*^9, 
   3.5683805399464817`*^9, {3.5683812396077104`*^9, 3.568381293537005*^9}, {
   3.568381339541486*^9, 3.568381420224828*^9}, {3.5684645223056345`*^9, 
   3.5684645572340956`*^9}, {3.5684651558539467`*^9, 
   3.5684651618911576`*^9}, {3.5688209923798466`*^9, 3.568820997683856*^9}, {
   3.568821158754139*^9, 3.568821160750942*^9}, 3.56882222404881*^9, {
   3.568822649274357*^9, 3.5688226508031597`*^9}, 3.568822723109287*^9, {
   3.5693397221142225`*^9, 3.5693397223326235`*^9}, {3.5693899272912874`*^9, 
   3.5693899274472876`*^9}, {3.5693910617720795`*^9, 3.5693910848757205`*^9}, 
   3.5693911374166126`*^9, {3.569391214402748*^9, 3.5693912147147484`*^9}, 
   3.569391451944365*^9, {3.569391487793228*^9, 3.569391507620863*^9}, {
   3.5693923162258854`*^9, 3.5693923173958874`*^9}, {3.569406068526634*^9, 
   3.569406086092265*^9}, 3.569690172138941*^9, 3.569780036185542*^9, {
   3.570453906913044*^9, 3.5704539079894457`*^9}, {3.570454575670618*^9, 
   3.5704545899602437`*^9}, {3.570454765008151*^9, 3.570454772277764*^9}, 
   3.5708553779481487`*^9, {3.5709431726830034`*^9, 3.570943174555007*^9}, {
   3.5709495710522423`*^9, 3.5709495907082767`*^9}, {3.570949647617176*^9, 
   3.570949673138821*^9}, {3.570950759321929*^9, 3.5709507772775607`*^9}, {
   3.5709508127364225`*^9, 3.5709508405200715`*^9}, {3.570991123104905*^9, 
   3.570991124259307*^9}, {3.5709912161278687`*^9, 3.570991227937089*^9}, {
   3.5709912804155817`*^9, 3.570991308776431*^9}, {3.5709914026885962`*^9, 
   3.5709914215490294`*^9}, {3.570991574429298*^9, 3.5709916038821497`*^9}, 
   3.570991652445035*^9, 3.570991830004547*^9, 3.570991865276209*^9, {
   3.5709919181759014`*^9, 3.5709919260539155`*^9}, {3.570992027251293*^9, 
   3.570992050058533*^9}, 3.5709920901350036`*^9, 3.570992186979974*^9, 
   3.5710436291378775`*^9}],

Cell[BoxData[
 Graphics3DBox[{
   {RGBColor[0.7333333333333333, 0.6, 0.4666666666666667], 
    SphereBox[{0.36001170025999996`, -0.78185523524, -0.4362432471}, 0.255]}, 
   {RGBColor[0.7333333333333333, 0.6, 0.4666666666666667], 
    SphereBox[{-1.8999305204, 0.11629373804, -1.9469846977999998`}, 0.255]}, 
   {RGBColor[0.7333333333333333, 0.6, 0.4666666666666667], 
    SphereBox[{1.7777597345, 1.37075054862, 0.8548364533599999}, 0.255]}, 
   {RGBColor[0.7333333333333333, 0.6, 0.4666666666666667], 
    SphereBox[{-4.3973924019999995`, -1.0025941293, -0.9976619444399999}, 
     0.255]}, 
   {RGBColor[0.7333333333333333, 0.6, 0.4666666666666667], 
    SphereBox[{4.2190022676, 0.4780061917, 2.1552325029999997`}, 0.255]}, 
   {RGBColor[0.7333333333333333, 0.6, 0.4666666666666667], 
    SphereBox[{-0.33087212534, -2.0082118201999997`, 1.01540647158}, 0.1]}, 
   {RGBColor[0.7333333333333333, 0.6, 0.4666666666666667], 
    SphereBox[{1.63304451742, -1.7342960365, -1.6854844139199998`}, 0.1]}, 
   {RGBColor[0.7333333333333333, 0.6, 0.4666666666666667], 
    SphereBox[{-1.6417939487999997`, -0.49979473248, -3.8552300125999994`}, 
     0.1]}, 
   {RGBColor[0.7333333333333333, 0.6, 0.4666666666666667], 
    SphereBox[{-2.004054423, 2.1314219554, -1.81846443254}, 0.1]}, 
   {RGBColor[0.7333333333333333, 0.6, 0.4666666666666667], 
    SphereBox[{2.2963950351999998`, 2.7060876319999996`, -0.57226572458}, 
     0.1]}, 
   {RGBColor[0.7333333333333333, 0.6, 0.4666666666666667], 
    SphereBox[{0.5682406082, 2.2000190092, 2.246884214}, 0.1]}, 
   {RGBColor[0.7333333333333333, 0.6, 0.4666666666666667], 
    SphereBox[{-4.6880322608, -0.46394663025999994`, 0.92957511666}, 0.1]}, 
   {RGBColor[0.7333333333333333, 0.6, 0.4666666666666667], 
    SphereBox[{-4.3263387043999995`, -3.018837285, -1.13047188772}, 0.1]}, 
   {RGBColor[0.7333333333333333, 0.6, 0.4666666666666667], 
    SphereBox[{-5.921456421, -0.30585215309999997`, -2.1293432568}, 0.1]}, 
   {RGBColor[0.7333333333333333, 0.6, 0.4666666666666667], 
    SphereBox[{5.453749236, -0.34255063201999997`, 0.7801733790999998}, 0.1]}, 
   {RGBColor[0.7333333333333333, 0.6, 0.4666666666666667], 
    SphereBox[{3.7671687809999996`, -0.9009079732399999, 3.5632673456}, 0.1]}, 
   {RGBColor[0.7333333333333333, 0.6, 0.4666666666666667], 
    SphereBox[{5.1345745146, 2.0563998332, 3.0267741341999996`}, 0.1]}, 
   Text3DBox["1", {-0.23998829974000002`, -0.78185523524, -0.4362432471}, {1, 
    0}], Text3DBox["2", {-2.4999305204, 
    0.11629373804, -1.9469846977999998`}, {1, 0}], 
   Text3DBox["3", {1.1777597345, 1.37075054862, 0.8548364533599999}, {1, 0}], 
   Text3DBox["4", {-4.997392401999999, -1.0025941293, -0.9976619444399999}, {
    1, 0}], Text3DBox["5", {3.6190022675999995`, 0.4780061917, 
    2.1552325029999997`}, {1, 0}], 
   Text3DBox["6", {-0.93087212534, -2.0082118201999997`, 1.01540647158}, {1, 
    0}], Text3DBox["7", {
    1.03304451742, -1.7342960365, -1.6854844139199998`}, {1, 0}], 
   Text3DBox["8", {-2.2417939488, -0.49979473248, -3.8552300125999994`}, {1, 
    0}], Text3DBox["9", {-2.604054423, 2.1314219554, -1.81846443254}, {1, 0}],
    Text3DBox["10", {1.6963950351999997`, 
    2.7060876319999996`, -0.57226572458}, {1, 0}], 
   Text3DBox["11", {-0.03175939179999998, 2.2000190092, 2.246884214}, {1, 0}],
    Text3DBox["12", {-5.2880322608, -0.46394663025999994`, 0.92957511666}, {1,
     0}], Text3DBox[
    "13", {-4.926338704399999, -3.018837285, -1.13047188772}, {1, 0}], 
   Text3DBox["14", {-6.521456421, -0.30585215309999997`, -2.1293432568}, {1, 
    0}], Text3DBox["15", {4.8537492360000005`, -0.34255063201999997`, 
    0.7801733790999998}, {1, 0}], 
   Text3DBox["16", {3.1671687809999995`, -0.9009079732399999, 3.5632673456}, {
    1, 0}], Text3DBox["17", {4.5345745146, 2.0563998332, 
    3.0267741341999996`}, {1, 0}], 
   {RGBColor[0.84, 0.76, 0.6799999999999999], Opacity[0.6], 
    SphereBox[{-0.76995941007, -0.3327807486, -1.19161397245}, 
     1.1757634251168199`]}, 
   {RGBColor[0.84, 0.76, 0.6799999999999999], Opacity[0.6], 
    SphereBox[{1.06888571738, 0.29444765669000006`, 0.20929660312999998`}, 
     1.1857062527822257`]}, 
   {RGBColor[0.84, 0.76, 0.6799999999999999], Opacity[0.6], 
    SphereBox[{-3.1493943286555353`, -0.44347852756988204`, \
-1.4720447471982665`}, 1.1934627769729744`]}, 
   {RGBColor[0.84, 0.76, 0.6799999999999999], Opacity[0.6], 
    SphereBox[{2.9990949397667013`, 0.9241172880463304, 1.5054147775866733`}, 
     1.1983952888404905`]}, 
   {Opacity[0.5], 
    SphereBox[{-0.13635352484511964`, -1.662930663260291, 0.6066939482535307},
      1.1970182589912897`]}, 
   {Opacity[0.5], 
    SphereBox[{
     1.2746129569069904`, -1.4661294675866579`, -1.3337515639536441`}, 
     1.1969692199311317`]}, 
   {Opacity[0.5], 
    SphereBox[{-1.7144809151506641`, -0.3263144633025212, \
-3.3178998616417203`}, 1.1967813122494788`]}, 
   {Opacity[0.5], 
    SphereBox[{-1.9747366610776922`, 1.5640301477144796`, -1.8546513833265}, 
     1.1969052841504828`]}, 
   {Opacity[0.5], 
    SphereBox[{2.1503761159379926`, 2.3301308132056393`, -0.1704729476170732},
      1.197060416422584]}, 
   {Opacity[0.5], 
    SphereBox[{0.9087869268614381, 1.9665342173584268`, 1.8549460213919822`}, 
     1.1969840910603318`]}, 
   {Opacity[0.5], 
    SphereBox[{-4.606205476459088, -0.6155975184819331, 0.3869805392212602}, 
     1.1987918241817543`]}, 
   {Opacity[0.5], 
    SphereBox[{-4.34634545154448, -2.4511192300583957`, -1.0930762975786663`},
      1.1985614126303914`]}, 
   {Opacity[0.5], 
    SphereBox[{-5.492374790705316, -0.5020113559389958, -1.8107321903173283`},
      1.1988085797143455`]}, 
   {Opacity[0.5], 
    SphereBox[{5.106111856913342, -0.11152659965543232`, 1.1673150058101414`},
      1.198753701350951]}, 
   {Opacity[0.5], 
    SphereBox[{3.8943894826319934`, -0.5126533777826621, 3.1668133732620722`},
      1.1986099613634869`]}, 
   {Opacity[0.5], 
    SphereBox[{4.8768145368577125`, 1.61203652791776, 2.7814100439322127`}, 
     1.1988730494492836`]}, 
   TubeBox[{{-1.8999305204, 0.11629373804, -1.9469846977999998`}, {
    0.36001170025999996`, -0.78185523524, -0.4362432471}}, 0.1], 
   TubeBox[{{1.7777597345, 1.37075054862, 0.8548364533599999}, {
    0.36001170025999996`, -0.78185523524, -0.4362432471}}, 0.1], 
   TubeBox[{{-4.3973924019999995`, -1.0025941293, -0.9976619444399999}, \
{-1.8999305204, 0.11629373804, -1.9469846977999998`}}, 0.1], 
   TubeBox[{{4.2190022676, 0.4780061917, 2.1552325029999997`}, {1.7777597345, 
    1.37075054862, 0.8548364533599999}}, 0.1], 
   TubeBox[{{-0.33087212534, -2.0082118201999997`, 1.01540647158}, {
    0.36001170025999996`, -0.78185523524, -0.4362432471}}, 0.1], 
   TubeBox[{{1.63304451742, -1.7342960365, -1.6854844139199998`}, {
    0.36001170025999996`, -0.78185523524, -0.4362432471}}, 0.1], 
   TubeBox[{{-1.6417939487999997`, -0.49979473248, -3.8552300125999994`}, \
{-1.8999305204, 0.11629373804, -1.9469846977999998`}}, 0.1], 
   TubeBox[{{-2.004054423, 2.1314219554, -1.81846443254}, {-1.8999305204, 
    0.11629373804, -1.9469846977999998`}}, 0.1], 
   TubeBox[{{2.2963950351999998`, 2.7060876319999996`, -0.57226572458}, {
    1.7777597345, 1.37075054862, 0.8548364533599999}}, 0.1], 
   TubeBox[{{0.5682406082, 2.2000190092, 2.246884214}, {1.7777597345, 
    1.37075054862, 0.8548364533599999}}, 0.1], 
   TubeBox[{{-4.6880322608, -0.46394663025999994`, 
    0.92957511666}, {-4.3973924019999995`, -1.0025941293, \
-0.9976619444399999}}, 0.1], 
   TubeBox[{{-4.3263387043999995`, -3.018837285, -1.13047188772}, \
{-4.3973924019999995`, -1.0025941293, -0.9976619444399999}}, 0.1], 
   TubeBox[{{-5.921456421, -0.30585215309999997`, -2.1293432568}, \
{-4.3973924019999995`, -1.0025941293, -0.9976619444399999}}, 0.1], 
   TubeBox[{{5.453749236, -0.34255063201999997`, 0.7801733790999998}, {
    4.2190022676, 0.4780061917, 2.1552325029999997`}}, 0.1], 
   TubeBox[{{3.7671687809999996`, -0.9009079732399999, 3.5632673456}, {
    4.2190022676, 0.4780061917, 2.1552325029999997`}}, 0.1], 
   TubeBox[{{5.1345745146, 2.0563998332, 3.0267741341999996`}, {4.2190022676, 
    0.4780061917, 2.1552325029999997`}}, 0.1]},
  AspectRatio->Automatic,
  Boxed->False,
  SphericalRegion->True]], "Output",
 CellChangeTimes->{3.5710453157816396`*^9}],

Cell[BoxData[
 Graphics3DBox[{
   {RGBColor[0.7333333333333333, 0.6, 0.4666666666666667], 
    SphereBox[{0.36001170025999996`, -0.78185523524, -0.4362432471}, 0.255]}, 
   {RGBColor[0.7333333333333333, 0.6, 0.4666666666666667], 
    SphereBox[{-1.8999305204, 0.11629373804, -1.9469846977999998`}, 0.255]}, 
   {RGBColor[0.7333333333333333, 0.6, 0.4666666666666667], 
    SphereBox[{1.7777597345, 1.37075054862, 0.8548364533599999}, 0.255]}, 
   {RGBColor[0.7333333333333333, 0.6, 0.4666666666666667], 
    SphereBox[{-4.3973924019999995`, -1.0025941293, -0.9976619444399999}, 
     0.255]}, 
   {RGBColor[0.7333333333333333, 0.6, 0.4666666666666667], 
    SphereBox[{4.2190022676, 0.4780061917, 2.1552325029999997`}, 0.255]}, 
   {RGBColor[0.7333333333333333, 0.6, 0.4666666666666667], 
    SphereBox[{-0.33087212534, -2.0082118201999997`, 1.01540647158}, 0.1]}, 
   {RGBColor[0.7333333333333333, 0.6, 0.4666666666666667], 
    SphereBox[{1.63304451742, -1.7342960365, -1.6854844139199998`}, 0.1]}, 
   {RGBColor[0.7333333333333333, 0.6, 0.4666666666666667], 
    SphereBox[{-1.6417939487999997`, -0.49979473248, -3.8552300125999994`}, 
     0.1]}, 
   {RGBColor[0.7333333333333333, 0.6, 0.4666666666666667], 
    SphereBox[{-2.004054423, 2.1314219554, -1.81846443254}, 0.1]}, 
   {RGBColor[0.7333333333333333, 0.6, 0.4666666666666667], 
    SphereBox[{2.2963950351999998`, 2.7060876319999996`, -0.57226572458}, 
     0.1]}, 
   {RGBColor[0.7333333333333333, 0.6, 0.4666666666666667], 
    SphereBox[{0.5682406082, 2.2000190092, 2.246884214}, 0.1]}, 
   {RGBColor[0.7333333333333333, 0.6, 0.4666666666666667], 
    SphereBox[{-4.6880322608, -0.46394663025999994`, 0.92957511666}, 0.1]}, 
   {RGBColor[0.7333333333333333, 0.6, 0.4666666666666667], 
    SphereBox[{-4.3263387043999995`, -3.018837285, -1.13047188772}, 0.1]}, 
   {RGBColor[0.7333333333333333, 0.6, 0.4666666666666667], 
    SphereBox[{-5.921456421, -0.30585215309999997`, -2.1293432568}, 0.1]}, 
   {RGBColor[0.7333333333333333, 0.6, 0.4666666666666667], 
    SphereBox[{5.453749236, -0.34255063201999997`, 0.7801733790999998}, 0.1]}, 
   {RGBColor[0.7333333333333333, 0.6, 0.4666666666666667], 
    SphereBox[{3.7671687809999996`, -0.9009079732399999, 3.5632673456}, 0.1]}, 
   {RGBColor[0.7333333333333333, 0.6, 0.4666666666666667], 
    SphereBox[{5.1345745146, 2.0563998332, 3.0267741341999996`}, 0.1]}, 
   Text3DBox["1", {-0.23998829974000002`, -0.78185523524, -0.4362432471}, {1, 
    0}], Text3DBox["2", {-2.4999305204, 
    0.11629373804, -1.9469846977999998`}, {1, 0}], 
   Text3DBox["3", {1.1777597345, 1.37075054862, 0.8548364533599999}, {1, 0}], 
   Text3DBox["4", {-4.997392401999999, -1.0025941293, -0.9976619444399999}, {
    1, 0}], Text3DBox["5", {3.6190022675999995`, 0.4780061917, 
    2.1552325029999997`}, {1, 0}], 
   Text3DBox["6", {-0.93087212534, -2.0082118201999997`, 1.01540647158}, {1, 
    0}], Text3DBox["7", {
    1.03304451742, -1.7342960365, -1.6854844139199998`}, {1, 0}], 
   Text3DBox["8", {-2.2417939488, -0.49979473248, -3.8552300125999994`}, {1, 
    0}], Text3DBox["9", {-2.604054423, 2.1314219554, -1.81846443254}, {1, 0}],
    Text3DBox["10", {1.6963950351999997`, 
    2.7060876319999996`, -0.57226572458}, {1, 0}], 
   Text3DBox["11", {-0.03175939179999998, 2.2000190092, 2.246884214}, {1, 0}],
    Text3DBox["12", {-5.2880322608, -0.46394663025999994`, 0.92957511666}, {1,
     0}], Text3DBox[
    "13", {-4.926338704399999, -3.018837285, -1.13047188772}, {1, 0}], 
   Text3DBox["14", {-6.521456421, -0.30585215309999997`, -2.1293432568}, {1, 
    0}], Text3DBox["15", {4.8537492360000005`, -0.34255063201999997`, 
    0.7801733790999998}, {1, 0}], 
   Text3DBox["16", {3.1671687809999995`, -0.9009079732399999, 3.5632673456}, {
    1, 0}], Text3DBox["17", {4.5345745146, 2.0563998332, 
    3.0267741341999996`}, {1, 0}], 
   TubeBox[{{-1.8999305204, 0.11629373804, -1.9469846977999998`}, {
    0.36001170025999996`, -0.78185523524, -0.4362432471}}, 0.1], 
   TubeBox[{{1.7777597345, 1.37075054862, 0.8548364533599999}, {
    0.36001170025999996`, -0.78185523524, -0.4362432471}}, 0.1], 
   TubeBox[{{-4.3973924019999995`, -1.0025941293, -0.9976619444399999}, \
{-1.8999305204, 0.11629373804, -1.9469846977999998`}}, 0.1], 
   TubeBox[{{4.2190022676, 0.4780061917, 2.1552325029999997`}, {1.7777597345, 
    1.37075054862, 0.8548364533599999}}, 0.1], 
   TubeBox[{{-0.33087212534, -2.0082118201999997`, 1.01540647158}, {
    0.36001170025999996`, -0.78185523524, -0.4362432471}}, 0.1], 
   TubeBox[{{1.63304451742, -1.7342960365, -1.6854844139199998`}, {
    0.36001170025999996`, -0.78185523524, -0.4362432471}}, 0.1], 
   TubeBox[{{-1.6417939487999997`, -0.49979473248, -3.8552300125999994`}, \
{-1.8999305204, 0.11629373804, -1.9469846977999998`}}, 0.1], 
   TubeBox[{{-2.004054423, 2.1314219554, -1.81846443254}, {-1.8999305204, 
    0.11629373804, -1.9469846977999998`}}, 0.1], 
   TubeBox[{{2.2963950351999998`, 2.7060876319999996`, -0.57226572458}, {
    1.7777597345, 1.37075054862, 0.8548364533599999}}, 0.1], 
   TubeBox[{{0.5682406082, 2.2000190092, 2.246884214}, {1.7777597345, 
    1.37075054862, 0.8548364533599999}}, 0.1], 
   TubeBox[{{-4.6880322608, -0.46394663025999994`, 
    0.92957511666}, {-4.3973924019999995`, -1.0025941293, \
-0.9976619444399999}}, 0.1], 
   TubeBox[{{-4.3263387043999995`, -3.018837285, -1.13047188772}, \
{-4.3973924019999995`, -1.0025941293, -0.9976619444399999}}, 0.1], 
   TubeBox[{{-5.921456421, -0.30585215309999997`, -2.1293432568}, \
{-4.3973924019999995`, -1.0025941293, -0.9976619444399999}}, 0.1], 
   TubeBox[{{5.453749236, -0.34255063201999997`, 0.7801733790999998}, {
    4.2190022676, 0.4780061917, 2.1552325029999997`}}, 0.1], 
   TubeBox[{{3.7671687809999996`, -0.9009079732399999, 3.5632673456}, {
    4.2190022676, 0.4780061917, 2.1552325029999997`}}, 0.1], 
   TubeBox[{{5.1345745146, 2.0563998332, 3.0267741341999996`}, {4.2190022676, 
    0.4780061917, 2.1552325029999997`}}, 0.1]},
  AspectRatio->Automatic,
  Boxed->True,
  SphericalRegion->True]], "Output",
 CellChangeTimes->{
  3.5710453157972393`*^9},ImageCache->GraphicsData["CompressedBitmap", "\<\
eJztfXdcVUfa/3c10fRstmSzWbNmN8m+m2R3wa7YY0s08SoW7IrlAoogiigW
FBFQkKJYY8GCBSsoKKCIDXvvHRsIKlIECwjn95wz5869mOcSbvLuP7/PyyeT
3MyZZ+b7PFOeMnPm/ODs7TpspLO32xDnTzuMdh7l6jZkzKftPUdTVvXfAL9x
VdOnUH8rgOlfCv2juKn/UnP+7/fP/v699rs6jEaj9ktN3Syef6D+q5r2uLqW
bSpoWeg99V9aHdVlccvnb8vnNdjnb8rcN1+Bo/7X0aJkDVmTVideqwCcfne1
KFxdFn7v5wv/RmLQWMbrFQqbsHQRFGWyZk5+1Zi8HwRhiST80DbC5xLen5lC
1Zm87wVhsWyxVhVb1AkLJWHtKrbYSRDmS6h/Zwq9xuR1FIS5ssXPbSN8IAn/
hyn0OpP3nSDMllC/YgrVYPK+FYSZssV/2UZ4RxLaMYVqMnkdBOEtCbUuU+gN
Jq+9ILwhW6xvG+FVSdiIKfTqTFVTO0F4WUJ1sI3wgmyxeRUJ2wrCs5KwFVPo
LSavjSA8LaG2sY3whGyxHVPobSbvG0F4VBJ+yxR6h8lrLQgPS6idbCNMly3+
wBR6l8kTQsQ+SdiFKfQek9dSEO6RULvZRpgqW+zBFHqfyWshCFMkYS/bCJMk
1L5Mod8yeWJoIlG2OKCKhM0E4VZJ6GwbYZyEOpQp9AGT11QQbpItGplCv2Py
xLzFeknoZhvhOgnVnSnE6cwmgnC1bNGDKfQHJq+xIFwpCb1sI1wuoXozhf7I
5InVEEtliz5MIU69NxSEP0pCX9sIF0qok5hCf2LyGgjCebLFKVVsUSecIwmn
VbFFoWMQKaEGMoU+YvLqCcIw2WKwbYQhkjCEKcQZTUKPYoaEGsYU+pjJqyMI
A2WLEbYRTpOEc5hCf2Hy7AXhVAl1HlOIs++EkYHJssUFthFOkIQ/MoU+YfL+
IwjHS6hLbSMcK1tcXkXCfwvC0ZJwFVPor0yeMN0wSkJdYxvhSNniOqYQZzV/
LQiHS8INTKFPmTxhnsJVQt1sG+Ew2WIcU+hvTN6XgnCwJNzGFOIM/H8KwkES
6nbbCPvLFpOYQp8xecLoRx9JuNM2wl4S6m6mEOeL/EMQ9pAt7q0i4ReC0FES
HrCNsIuEeshqIa4y4UZqT45Y5YcTmHCxtCfHbSP8VkI9ZVX03KAQzoD25IzV
UcKNX2Fha0/O20bYSkK9ZHUmcFNN2ILakyu2ETpIwutMIc4ZFcuJsFo0qBlM
oa+ZPLGACY2uPblTxRZ1wrqSMNOaVLXAig7QXgLMtjZCtSwugCBWd7Gga08e
WBslWlYN61V8JQvlWpOllsX5lHoV/5SM5DOFaskqOM9Lr8LMbSFT6M/yKeef
6FWYuS1mCn0on3LGuF4Ft7o/ZfJ+LyvjLEJhJIjxq0llvV6oYy17bK/rggtt
jOA809/KajkjzLJai0fqf8fpee61GiC6bgMstbPXjYTX4FDLAVHtUnAzgNbB
Ndu4dt+V7XL2TYV2fxIYHKtnG+w2YevAA3g6jxb47WtMKl2EmkVp0f2vw9Eu
EdG+T7HGcxIOB3pjj19nPTxVseG3JCzOQNBhcY+4UN1Q0Rv0945EvAFxAw6g
aC5574lrOcRv64gNdka4tT6LHXPL8fgMPXtSrsf+KjZSQyLmtHYliLkpPljH
aQmI/t6W8NdjU7/9eDJHhR/7KQP/LQl/PmY45+DERgWlt+lZcSEL3xwF5tRj
JfC5gKPzz8GPxYY++1Ewm+AnrK8Mfje7XYiZUoLb+yg/V8HzrCNW4NP/cbqr
EuRcxNOZGSprEdt7P/Ij90PZtoED+6aU9XCM+vYydv2ooOA8PSsqs7AoOK1T
CTpu2R74c3Jdg7VO+5EXoULd+Fe+tHlkRCPCNRdn4xW8vKuizRVTUZvn/2Ga
/4t1tFxIdsDPoY1BTI99yA0ntFs36drGAmAPu/1YH1iGeweJNk9B7rVEEea1
qhm5KHMloLmo7gBmAKzCym778GgWWaHxm7+W4huLcZ1vYG+0gqLL6sQqs7DJ
uN6zER2ndEdITCsQ7bgPD0JVTFvMmNZhnkc+Lm5XUJZFJIWZFuYeV2ElmDiX
jovYDpeYorG0y15khxCmuLiv9ex+DQ5jS2g5so9S8QKllYTDWQQ2wuGqcJNw
luLHzntxf4YKJ/4rKSJ/TO5xGwdjFDy7RiRPX1rYp5yJYSMmLlLsKjEtxsLv
9yAzmDBt2WrC1MVuC34cW4SrOxWU56iD/YaF6cvZLDZi4mLJLhLTIszruAd3
g9KhbN72lZ49pNlJJESW49FJVeUpjSUcLtZnIxxOykbZPwsQ9W0a7kwnOJu2
4f7q4bpPoj4LQ0C/TByNVVCSoU65pyKS9po1u4kD9rF1YFxYeZhsfB4i26fh
VgAB25iAoo2jJTBHu+1YPvEZbqYRzSNaTh+eFVEsrSouGmMjMC5sPVQCi0J4
uzTc9CdgGxLxfLOP7jcK42X4N+eQPL8ceWfVNb5cxKy0qrhIiI3AuME5RDYe
idA2u3FjqgpsO0rjJ1oAW4CQIQ9wajOZJXfUrswXTWtVcVGISoBxAuZi2YMt
xtGM1rtxbQoBW7+DdOUUCay7XSrW+Jfizn6ieUwuwL0DwkPVquIceRuBcfPH
WQKbiaCWqbgymYDFErCEaXrsQH3mjtHfXcHuxQoKLwh98z8SGOdE2wiMc2cG
ycYDEdAiFZcmHYSyLomMzkALYMsROfwxzm2jgX9PHWMPRThFq4oDYSMwLoA+
UDY+FVOb7cLFiQRsbTK5HzMksJ72B7AhuAyZh4T9kHl+g/DytKq4jWUbgXFx
9gES2ARMdtiJ874EbE0KAQvVA0/qs3EY3+UG9i9XUHxF7cqXFs42t3FtIzBu
KTRZYxOa7MTZ8QRqNYHaEW7GFIv5owpwaQeZDvdVVX3HwntvwFT4b6sNs5i4
SH9/HdO4Rik47XMQ5TE7CVPkF3p2/4ZHETerHDnHNNPhYwmn8a+Ho6knzUM3
gfBumIyT3gRiFYFImv25FEwA/Jzu4NBq8j6uqwZDiRiRWn1Nfz0SLq+Pjsmr
fhKOjyFMK3cRpigTpi528VjiU4xru6j4A3WhuioWPK2WllUcQDomzu/n7NHe
OibPekk46pWO8hUqpnmf69nDmp9C4pxy5J7SDIbfSTjf/Ho4nKLqpbfrXmcH
Do8iOMtTCc6Cz2S3RSBwQBaOrSdb4ZY6x4qE3aHVwp1GsBETFy9y0jG52W/H
QY90lEXvJkyLTJgc7ZKwYtJzZOwRZkJJ9glhwmq1cAcdbMTERR566piMZKMc
GEmYlqmYFv9dyskI97YXkLKgHPnnhIVgDr5wESMbMXG6vIeOaYhdIvaNIExL
0wjTUjOmRQgd+hCnt+jGQdFj4WBqtXSu4pT7yDombuugu47J2S4Be4YTpiWE
accyE6budmlYO60Udw8Iu6DgVqoIfWi1dP31mLiwiymY5VjLHiF/tcecT+3R
Wcc5wG4bdrum4+XiPYRz+d+k7DwwptNVpC1R8OSiMBOqSZzdfz1OoV3fqJBn
sAvCpLpOeDwrDQeHdMIdT/0QDbl/dluxyyUdpT+qMFeYYa7E7BF5OJ9A6iZT
XTGyoa3GTrYh5LaBPxLsqn8iOGXxJ3zgmrK8ocF5TOvpi23jJuBE8Egoh1bD
BL03rbIpw9JRspCgb1/5Nz27V510bJxRhqzD1Fy+0odBYPK3ulK/xduJfE6W
lTBhUuGWwZPqTF5NC4YM9icxwhiC6JmzUPZUVQ13oKQt0gNmr8HJLg47hqTj
xQI1ThsjFvkagtTOF75db+LASjJ5r6pa7iXH2Lt6Tc1qNYX3Pzojpj2N/Llz
/0u8vWHJm3s5lh1XcIPmXrnKW9ZVskJD9Vj6a2hOou5DyYPS+Fr2ZtNFD6Sp
Ed8FXoW4kkz02WrPZXAMmuLU6rLYr+4urJ+Qh43Dx+CYn9sv68GK4S+lQmxJ
5yxAwTryze7mq2KndOcsuUuT9aOQb8CBOGpFaaDgDLP+bo8fv7LHCjt7LP7K
3myLVNP7UyXoohI0Pob48HI8OEGVFio9K5kW70q2Z2BSx3PYN/clilSy/LL/
jYFbjcl720IEvecoiL+s4METsWApNw6jdImXfqjzTeKoLrrRkPOq/Q1mft0O
Sxq3w4Y23yDxu2bY0bEe1ra0t9iXqW4huGb6sBhNKZBW0CgS3osbqqCfO1UC
VAVlyjdtBDjSCFrkmoVLG2kE3VRFmlOJu/KrBr6lbIatULCTEOcVqavkcyiX
0/A0zKgfBn2LuKyHb2q1w8DaBky064E5LZ2w5nsnJPbsoY3ibpT29m9k3l96
XYxCVTpvkGZpiJF/bYrpX7TAfPsWWO3QDFtaN8LWNjTAGtn3rKKMzDHlkXBr
ehDbphfjwV4q/5A/GlKJjD6Sk6SaHLDvW8hjDIl/PxkFRcWqU/AEypkEZI8z
6mdc1bHSAW1r98Sw/wyEf6uhWNjFBRv6uxC0EZTcKLlS86pk3iE72oielNTx
1apWKwz45DuM/7Izwht1wYq2XRHX2YCdPTpib+9vsNupvu3SWIAZPa/h2LJy
lJwX3WejNOwsOPcn1+xYloIX6iKR9xjK0ViccDSKk3baOlNDpxlIPEVqfPVA
h38MhUuzkZjWeTQW9fem1cybgG3WFkQ1XmywW61pYzV8a7Bbohlf6qaRGlZS
jWiD3SwtLqHqeNUXMthNoTRJ0xgGOx9KoymN0gwPtfuFnIfrsnbRxplDrbb4
rlZXDPtnb0xpMgDzvh2Etd2dsWPgQOwz9sGREd0odcC2vvbSNuSWzbf1Fc6g
9dsOxHg/QkYiPVe3Lx5fqUS21s+ZCf03K03BWfKkyp6pgzYTyr6ljV/pbfVP
TNa6cCUA8yhtazQZh3svwxWfFGJyINrYe2Boh3GY2nsSFrhNwXofElaLbBia
ZcLQ5C4MDW/DUD8DhrrXKV2Foc4lShdIc5+ldJoYO0HpGKXDlNIp7ae0h1Iq
pZ2UkiglUtpKKU7beVU3A9VNKnU/xYEWSYda3dDps4Fwa+SCad+6Y2FPD6wf
4oGUke5IH+uKExOccXJCT6SNatVDl8Arstb+32h6eUQdx37waXsKqREvUHBE
0YIpnIdYiazrmnrOqQALDym4kqur8eybZPlHCFl/KoF4kmwXUUps6o+j/Vbg
qm8qsqIuIm/9QxSnleHZaQXNG49Ff8MU+A4OxOzRwYiZEoxtMwNhmErafhKl
8ZS8KXlRGklpOCUjpSHlMAx6CUP/Uhj6lBCkFzB0fwZD12LR2X+Aof1jGNo8
gqFVDnXffRiaWnRfvQwScXv4Ebyd9Yy428eIad3HYcFgX6z39EWy73ik+4/B
iSB3nAxyRtqkTt3lAH5N/jKtEV1o+s0dfAfn1pJA1P2IJ3m2yraeSbbe5Vh5
UsGtPF229y5A2ewvjsV+CG8CvNTeVWPx+KAYXJ+0B9nzLyN/Uy6K95bjGdkg
ReQpP6Y1+3aBAocm49C1WwA8XEIQNC4Mi6aHYV14CLbOm47E+b6ICR0idcqb
ehvqnyGqDIYwkvMMStOViv0xVsFgwrGe0uVORjz39YUSPQ/Kni2Y6x6ANeMD
kDjNH3tDJuFwxFhKboj3+4Gz1N6Qg9MNgxvuxZYphbifqo4oPl5QiQDr6wJ0
JMQbaZ3OKlTNEEoZx1G2wruurrsnEOjl9iOQ0mYmTg5ZhxtT9msM52/JR/H+
cjwl97notoJccu0zSIBHqB/mXdRegoLDl65o0dUffUmYY8eHY0ZgOOZHhGJp
VADmh4+GknmJBDFS7mhZzkhhrf1WW/UWUjrewoi8EZ4oj5pFZvxaKOfIP8m5
gLAxMxE9NQSbQ2YgeXYA0uZNxK457iiftRT3Bxh7VyrECEzrcgkHF5Vrc0sp
KLFViA10IfZfoCCRPIhHqr1SVALl6j68mOMq9pPfw1RiIKaOB1I7hOG0ywZk
TDuoMVsQX4ji9HLt9xNazh/SAnGD+uEgCTHw2NMaJu3e2w/dPYPgNjkYYwL8
EU0uwW3VcC5+CeXaflx3McpNyp9aWb/DNGo+tb4Rmf2NeBkcAGVjNOnRJNIg
p4jp2xjuGgp/6p+508OxMjwUG+cGYcv8SbgXX4pn626Qs7MZhZ6e3OsTJll2
p3U52iMH1+MoX4085d9mg0UfWpdlQ12Ww1cr2J2hoFAdjIXFUM4n4dFkPdj/
ljYgAimtreeFPZ0icXb4FtwKOoKHy26hMKEITw/RoLwk1htq4RqJc1+uBVgL
r+F19IhSsPUKjV7NznwG5cQGXZIf/0Q/qOpvM6WrnY14MWEClOXzoeyNg3L9
MOnh68jIy0ZzR384ucyE5/gwTCNpRoSFYB6NyhnRCpK3KLi+VcGTjTkoX5yK
F5OmYlcdY09GFDXlCPXGqJZHkTTzGR6nK9phEC7cVYlUG+lSHU8dc5CG2DN1
jczPJ0434eJA/dzLe2TnGxGirlH1x2KfYS7Oe2zFnZnH8WjFHRRuf4qnR0iq
5KwUZirIIW/0Cok19aF4O1NrsIYO2Wu9ggN39HZy70NJjtCX/belRNXGllA6
2dKI/JGjoMwLg7JjHfW0Oqcv4klhlj5234VDt7HoNMIfA8ZPw+CJ4q0IQ7cc
+NCM20RW8TmS6OMtT2jJOoay4Lm41c0I7gUhs0iXIbxfBk6Rz192Se31IltF
2livKjBFwUlaeF+q5lNuDpT0FXpV76EvsReuDpgGpBi7LcRFr0TcnXUKuasy
8STpOZ4eK0cxLRgFZNrep9l+ieSZ/MBCnm+a9Fu9owihFf6cyU7LvAhlyfA3
pE6l9SGIGtrT0Ij7A13wcuZ0KJuWQzmWrM3vcprfCTezpHc1eJaC5esUHCW5
3Y8vwYs1l1AeuRqPXVxYub1uwkFt9K27C7G+ebibrIYiFJTcP2Kj6Jrodc7e
p+AiqVwtYJNzG8quubqT8B6GUktRlOIbTsQhpyW47J2EzIgzeLzmPop2luAp
uejF1xXkk+izaBW8QKJLyLYQ3bsmyKNeakvlnQJ9qby6F6d7GWvqq6qH2gal
612MKJk0EcrKBWQBx8v5fPNxjh7TqgnDFAWRNGLSaBbd2lqGp+vvQVmYiKc+
48CFF1+Xoy34ldDCSzY2rIuM28JyMHEztBRLjtISImNBV6DEB32sS82dOFlA
KaHJFBzpE40r43Yia/Z55MU+QFEqIT5FUlM96hwFmSS1sySULZmKNo60kwSm
V5t70pK4jZbEx+qSWPiUBlKszs6b6EENRFM63dqIAk9S4PMjyJCNhXJhrzZx
C2nifqAvtQbXEkxdTF2zWcFlGmz5mx6jbNkBlE4Lwdm2RsdKpOZIxr0WdNhg
DjrYKLWmJqmRDbbmjEWc6fZplK8Z/6EutdHEzGJK25sH4NiAlbg2cTfuzyWT
e8MjaXIXky7Ko9l3lyR2itLa24pZkXyoQx5NUA+YltdHWbSczdKXsDcRSg3s
a2REtrMrykKCyDxdAeV4CpmqhKXgDuJvZOo79zXhPofw0hJ6iiT2MO45SmPO
CFOGVDcXb39NDjR3uDmkY9v0IhmD4AL+lYismS6ynuEK4mhlzFHjUkU0ba4f
RMkC99/pIhuvjgF7NyS3DsYJ5zW47rcX2QuuaP2rWtRPX7Goj5Pkl9+wEJlo
+31a2Y5oK9t508p27zzKFrlpJnsCpRvk5Zf4TYayaiGU/Vuh3DiizcsbNC//
pIurV5CChWQvHIhXXrVWwL2YahbXfBGkWGoOUtgorua6uJyX0sptClUVkglx
cRfyp+vXCryneUwr64zErnYhODUsFjf9DyBn0XUUxOn2M7VeRPrykYX9PPfC
S7O4RLTtHW01W66vZr3USinRPEKh1xhaiiJJ0a6nebgPygNtHn5smobkfFiz
Pnbas/tK1S2W/J5220XAIcEUcLjM7dn80bqcWuizwDOWDLHbeggrvxDKqXjc
HG6Ecy17jKE0gVIN09CglgMora47Cru/C8cZ103ImH4ID5bcRMFWYTM/vaD8
xGaefqTYwsgT9qewGCMopTcx4sGQ4SibFQxly0oygfQ5WHgHm69l1jJJzDG7
MuuCe1G6uhxWfvBpcwqp4eaYwT9sE5fmd4lQfHWyql9dHP+MydQTR8kKK1FX
msePtM2bqSS72Z/bY+m/RIR84T/FW4FqLTMoxdYbg70/zME59zjcDj6Kh9G3
yVYuNtnKKLyn4AHpFdVY3purn8LUcH2m957qBu6wNyKjhxGlU/2gxCyCcmCb
mJR5N0gr5ei+U+UmhtVT2FpUIOaVqMBjW6X3qQAug1bc1ooq3HBK0/VonqcW
sXtDE9afNNtULaWuTGdzTLGxe5ht3xYrm7XBlratsP27JtjRsQ421vfB/q7z
ccFzG+6EnMCjlXfxZMczYSyTCi2oaCxbiPVzfWg21wf++fZGFI32hrJoNpSU
DbSIqBP5EgpIoZbMdf27VTPkrm6G+IidEyGNirexVJNcu2Jwwz3mmEEO/6pV
JeL9GyNUbpvjDdOaZXeK0kFKu/UI3kY97LpID7MGUpqoh1Jdqmt98DsYvruP
eekiXhbYsAcWt3XCxi49kdLLEfsGfI/0QW2Q2rcucmOy8CT5hdmYvm82ppNy
LCxCMYre1kLesxqtxbK23ZHWh2Zy3CooJ3eSUX1GWwU2XCWzrrgUyuXdusHx
s3ZMG9nIa/pUsRSYmIQ/DTNUInfufNXfGRm/Zg6ofQJDvxcwdH0CQ/tcGJpl
wdAwQ4RZtQ449EoHrKL0o3ZS0aHWD3D8ex94NXBGaPthWEHTe+ugYdjjNhhH
RvXDidHdcNizHWdvW4xmTddUM2+pvUP1OmFUm1FY4+qDw36eUG4e1ZaJa7RM
qAZmwhWTwiyCcnj151WwflrK5t7Qe6bCQQa7OCyrGH/4RTKuGBa2iIK/r9sD
WrDPh3rVtQyGviT1LhZSb3BTSt3hk74EygXebTwQ1n00Vg4ZgwSP0dg3zlPb
Vz011RnHJnfT7PDNmRZjtZa5dy1xmPdoT8C513QsmhyKUpJgvvSVhRGaTirx
ubpmPaKhvC0IJtE6vWIpPdcspU0o9PAULobmBLyjC0HsjnvDs2LwgXvX5GdF
yu9qmI5D/zTm9y4MweWa3WIwlsHh02FwdBgNr86+CB00Gcs9/LB1wmSkBUzA
kZneOB46Aodm9LdQ+7V5AZqOqDt08IbbxJmURuoNkqVT9xBCd9PQpkW6XBXe
3TN4Fun6uWkJqMSGSrE3ml+ftLwe6tUgw/+i7N4V/UV/b+h6xOGz4ejY2hcj
nPwR6BqIH8cFY+O0ICSHBmDf7Ek4EDUGO8MGvy6RctXT3x9No0w1Nk8In0db
EC/t0s/qkDS63ofPfN4+yuhmNB8B/71JurSoq6xVCB1kHbFRIH+T7JtevrLE
/mr4UwRGdOF8MgTN2kzCgL5B8B0ZiohJYVgxYxY2R85A4jx/Sj5YFtTffGBI
fzeT/v6ky0Nbs0jD5Jn2Xw+t1E0TYe5Er+XNnX/JmWVyFLWIwHfnNNaKjouI
APeG7R+sS6KhlMRbepc4NPZGh96BMHrMgt/kCETMDMfi2TMRPdcfUbM8NPIv
GamZ2BtjuXA8JJsiLkCyZ/CzbnP8s6IKkK57pua6a5jJdf/F7JleRvKwi8dR
jz1QoslgT17Cve34lST6k5zTByvO6TunURTqYjrJpar1KZxa9ye13kbYvRbr
cQ3Nw3Z9xcM28peDVcJcI6YX3tLZ9KoTj+OjiM3lxGbKYo7NV2UjZuoKy5l6
MUVfaszq9CSjTmu/sl7WYH3iyhnkzqi305nxrrcVJ72ImRXJxMyPHDOv7jVb
ykKdcOqGSj5NuJeFd7/UOapMi30s51oNvWJ122VXHSOy+hr1znjD7NSOsXBq
c7VrySxniY3cjq+/DafHELcrVW4Xctw2kouKaburg0sA3KdOMI9fFZ43p2p2
aaom2c74nqykmhwJFjZRDS3uHEPpQjsjno71oLEUisOj2psmusFu8k8cVO6d
Qs7tqoIYJjZMwNmxJIZVSSSG+VZH8E8Vj4OJ/65ZlSmX93hq0yWUltk1LDo8
WD0OVN+InEFGlIdNhpKwBMqFFKSFDjBJRnU+o0zO51XhfHJv+XLRjypIxq9x
As77kGRiVMnMtUEyzfShX5maedeCVK3SKM7lcK7Z67pYhugb0lc6qrtZZKGv
CiettpHmwxHk5d8xDxhXOJPTuNnCaeReIf6FYvFvkoiL40ksq3fQyh5lg1ia
62KpTD2Zg9vckPmpbExn6EwBo4ONjXg0zBXls6dC2RGtWUHluZf+LGUTjmmG
io5djSrK5vc/L5vpTbfjsi/JZs12ks1sq2uKtgi0NEF3EWptG6/WzC+8v2Zt
Jv1ULNX0ukeSSOLUwKzBiJd+XlDWzoZydAt5z8fwIP+eyQQwuWLXLLaCuTel
uXhrJWJpK6XuixnNd+DqxL2EYLu2wcjJZoK+CmhKMPZVJbhEK1yzMiG8XSFb
HRPzKR1tZkSemxuUeQE0kVdAuZKGssdX9HNsKrwx8GxRccuWeweZ28+oEvdT
EdoiCdcn08BYl0jch7HcT9TznAKFwlSfyat6NYXpYV4ldTWiWB5BpP72UTdG
KN3qTv09zRvK+rlQjseT/X4S9/L0eKkKaSk5OzcrODvc7ZjcVmGVOA5CeKsk
3PQjjmOJ46RQlmNf82SvaUWFTkGidgJSsKduZi2jdKqlkcQxAsqiICipMVCu
70Vp3rVPdPloG591dgrvJUl4Ly+yDtvIIfeeYTvTEmY3E5HfJCNjKnG4PoE4
1O6d08r6vjJhaYZ3yRQacsOrGjJK1ZAml0C1fXbaG3GvtxFlQeOgbJ4P5RRV
nn0a13Pv/0Uvph5UVIOQ3Si5UZpIaW/US5Nrwr1rzh3rqBKXYYhqm4zb/sTl
hm20oAZJLn0kl6YzVVa1nV6zesS5h47Zh9KIWiLi3U+3f863MaJ49EgoS0iW
e9ZCubkfJXk3xJh9U2O7KaUfKBlr1cHE2vUQ9kV9LP53Xayub491De3Zd9q5
40FV4n025rdPwd1pxPvGrVC2B0jex0jeRYN/sKrS1H5youRJKaC2PeZ8bo8l
X1H60h57yLrJHkBdHULrXvwiKGdoZcw5i/MPs2uJia2y/CbV0Qi9a7WAV+02
CPq6PRY2ao+1rdth23etkfJDE2zvxDNe+5cyHoVF36YgczoxvokYT/SXjHvK
CSvCJh/8RHmpkL+v1RAunzSD32ctMceuFVY2aYHNrR2Q0L4eNn9jrxm4yv5Y
0jTpeJGfIex8MWvVeG8dSi3Qvta3cP7UAN9/d0d4055Y3sEJWxx7YGcfRxwY
1Anpzq2q3N2/qwrX87C4405kBRLXm+PxMsFPcu0uu/tP+lg0KajmtVqiJwH1
+qIzZtTviiWtHbHx+65I7vEDaQuVoXf1s8Uttbhtp9pOMP57ACY3G4w5HYci
pucwJAwagj1ug3DEsw+Oe3Wh302r3J1VYmwBln2/E9nBxNiWODzfOkEy5iYZ
+1iXnTgE3QatanVBvy96YVyDAQhv64wVXZ2xtd8gjRlxaNpdP0g9SlOf6iUj
6tvC6tvE4tC1n6b3DHbT9G2bIP1wdqi2qoidhNkQh7fnaSgNdouEEfMh1Fe1
xaZDDMS5b/XYcCzEWXD1KPFm7VixQ63vNSmrp+WSyGvMcDRibs9RWDPYC9tH
jsI+n5E4NskFp/z6I318R+56CeuXBfyMWH/ECsMuPJghxFoU5yPFapRi/UD8
koGtJoS4MaWu+Kb2AAwkxL5tRiDS0QMxAz2ROFwVaAKl7ZR2UErWD1Pv0ncD
1APWeyEOW6fr2zTqAeyj0A5j25/QXq0y1DlF6QwMdc/CUO88pQsw1L9E6TIM
Da5SugZDwxuarA2NMmBochsGhzswNL0LQ/N7MLTIgqHVfRhaZ8PwTQ76q+dJ
1bNfZEc9dnWBMnsSopwnYvXIiUgcPwF7p47D0WAvnJjpgr3+juy1GdwLKFUS
8xLEdN2FRyFpUOK2IH/zaCnmwXIxMtkiP/UlVYG3otQP33zphoHNveBr8EHk
AF+sGjEBCT6+MHz7GIaO+TB0KoDhh0IYOj8hfV2knrKGwfEpDN2fw9DjBQxO
JTD0Uk9iv4ShbxkM/cthGEBG5iBKzuppbUpD9ZPbLpTc9JPc7vqpbk8R4TSM
pt9jxAljbVNCPW3sS2miIvfQk/WhXDKZtGEMLZbp6xAxIgArx01HvH8AUmdO
wcEIXxyK9EBWf6OtAududmgvBb4Ma7ulIjc0Tb1ECJnrRkiBD5Tj+i+MwIVh
/hEc/joELep6oW+HCRjbawpmuQZg+dgAxE2dpgE3zCRGQxVx9DqcUiQlWk8N
cymRkWRYQGkRJdIqhqWUohV0IdXaNUZBt7XKW0zTpoPHA0h2K14ZqEoiadZz
pFkfnMXM0SFY7BeC9TNmYntkIFLn+SElipTaovUoGDmcEyP3UtnPilHcMRTb
IxV5YWnqnVGc8Wu+31TX9jI4rIa/h8Gh8Tg4dp4Kj0FBCPSciUWTQxAbbAl8
1IeS8HVdu6sjaPqrI2hVCI0gsqduHUBx3k24uYViyrhwzA4IR3TYLMTODcbG
+ZNxP1lBafw9KMu244XvaHZUca/+VEkcK7CxZyryw1VxbOTE4STFYf3mMrJ9
G41F267T4Dw0BL7eYQjzD8fSWWFYFzUDG+b7cQuBiBD8EYP0wXFK9Qa1wUEO
V4I6OMhBeXAGB+/noLlTAHq5hcBjfBimBlD1s0IwJ3IaImjspSUquE0iep6Q
S5NyL8qmB7Ai4s5QVklEK7G5VyoKI9LU69s4EXWTC97nDJ+ml1BVzeTQaSI6
DQ7GsDGz4OsfhhkhIQiPmCYOCIgjqGKomU5mp9B4UY/hyvFygMZLxn48y7sp
Jtc76Og+BU5jJ8n2DJ7lCFimYDtZfddILkXbn5B7ewzKrCj1vDVnwnCj54Oq
iCYGcX1240nkbvUaPk40XeToMW8Eme5v62eXgs1+BXio3mbwsPyv+oBy1g9k
aePBzTQeForxkHMax3Ny5GaNoXc+xi5UsJHM+/PEa96O5+QUXCC3fAUeDmF5
5YZBlXhdjW39dqNojsprrNVPyGhZ4lUGEV+Z+N05HFr4Ei/UuxEKi2Bym9Qe
Vg8bp9Q19bB7hR5+nndDHpk10lK8cqOC4zsUPEwuQ/mWDCg/bkKR1wjWJOXO
m1SJx7VIHLAbT6OIx8R1HI/ma4obSx5X4Ue3LHFaQL1r4eF5fTy9qQVGV3Fd
eVZ05bmH2fqVWTXRO0jBgnUK0rcryKSuLNl6nxySZJRMGsfyyO0IVYHHrnbr
sGNQGp7NTVUv7uR4bC+nc1OdaDAZdwmBxcjTglDlH1t0oRoO3/lqF+5fQ124
T3WSdcfuDXQhMyKUtOWuBAUZxN6zxDwoq9NRHjwD2+sauXvxfiGHPcgeT3FO
w/P5qeplqhyH5oM2LWQvTkdA18s4vqwcpWrgqTBfH0VvaofItV5srvdiJPXi
NrUXE6gXT+Hio2wdEE3I4WXwW0JuZ7yivSn/ZHsxlNiTUCIWIKM7yyYXsNLZ
5O7gEq9010Avu/XYNSQNJQuIzR3aBy3UcmbWWkvWNmC55wPcVt/zVA/73TsA
k79oOtRn6sEXag+unCl68OY+lOZdN+92fX8XXvMUxJJHfSZJweOkEvLDL0OZ
r20ccKxxFnQVWOtHiHcPS0Ppwl3EWoyJNfPNh20ka0YMb3QIKaHP8ETdgsov
k6ypHuNsu/FYZOeAuJb25l47owauTuHyo/v6PK0JZzL5otcrOErrSw71Wlnc
bShL4vFs7Ej2xkZu+FWBr0HkIe512YOXi9SLf1aZ+Gom51t7yVcEQnpdx5kY
/fRigfmYckvygCc3GYgNvZxxeEQv6irq+5tamFH3GWuiZ4CCuWsU7KO1RD0l
8WJbDnVrKkqnTGLDqb+QnyHk7e5326NFRJWklSZ+msh+6iin5Fas8clFVoqi
7vqY30s37zy+r9fZ4l/u2BhBGm3sZByZ4U1ddRLXcu9/ahqE5JkEL1eQvE3B
DeLsaWIBlDWHoMwMw4mW7A2dHHO//XnmXOy2IH04OdFL1NuslpuYayiZ+152
1gh4tTyOPbNf4OlJsXVTXWe8Cjsi8pbUAWUY6RKCJcFh2Dp/ijwyOKQEE8jj
iKMF5SIxXLDjKZT1Z0iVLMa9PizDHFdVYHi4XRwOuRPDS4nh5GgTw3Xl6DRI
hhdi9qBbuBhLFdwUmzI2MNxAH6TuUQrWbFJwitaS3KRSKJuvQVkYi/wRbuwu
B/c5nyqwpR74ODKS2FqmHvhYZmLLfIljNx16X7tkbJqcjwdpmjlmw6ZWQ52j
fiEKFpNQDtEyojotL+PvUrMJeD5+FHtV7i/kSD3bcczTdIRlqYkj8+2PPWRH
+cC3wxmkLyjFC/XyysJi9sBTdfOueU10m6IgcrWlW/GIlPoelE3zZ5ngLrDU
meD4+1ZnQj3TcUI900EmjpK82MSE+abIXpKJ5VjokolrW3T76tFF+eqFJRN6
/+h73DRxRpEbEG12A4o1N+AolNDZuNjRyO0icpeEVsJKA7mM6cPf9FfhqoV+
9VyxdMBoHBg/EiemOJkY/UJOq776QBtkl4ZtAUV4fEAzssxvupt/NTXx1qcA
PosUbNLN/nzN7D8PJSpaPZfA8cbdzFoJb6YhzUnY9F8Th52+9cNsnxDsiJyO
xEhXE4fmTwqYr3T0h7/hEo4tLUOperVWYYH+hcSacNFN/BO0GjxMUk38m2Ti
b8QTz+HsRvgv4qeql+q8jq4egRgywVvmq3XVlgyZrxuN1d5UvpUgTKuXWUf0
y/jJng9WsNDCni/dmkUzNgklE8dWmaH3bWOIe0+BCy2b74E03zRrhEuDdCSH
PEOhei1XXpn+ekVNdCXLfdYqC8s94TFZ7gdQHhjEMsLFHv5LjHwoJ5FRMjJL
O3h2mgCXqUdvCh/o15EJ23zKUkvbvIhs8xNQwuepL4hxR1G4Rn+WlyrpDK5m
8w1Mw3V2upFOXu39SBtA6r0M98/F6vfXETs/3IPXfAXraWE8q9njL8gevwRl
3io8GubCHTiykZ0GcuExb+hbXSO1LHfZDa7wbH4MuyNeaO/YKgWl+iuHNTFY
NbY3CGP7QXI5Gdu3oCyOQ/EYd/aUFOf86qA53cO9hWb+RoenBDgfEQMycGGd
yYa5q38AuKL1fE/zxLOhrNiJUr8JLEBuY7sSgNxLX2/JgTxaH0K97XZgw8R8
5OxW1BtKu+vYVPt3xgrG/l04h8XGeS82YjNfHDlWCm8MxrU7jQPzSvFc/aJH
wVPTLflWRru8d2hoKSbq1uwlgh/nPgYnprr+l5Cbr5ccL5Evw/xh93CV7E5F
/ZhH7hWYnElO1b2v16PaquOGBmPN9JlImzeBWyo4vO/9HN6KX4QxoZ2oPxto
txvx/k+Qu1+zCNoyguWEbZowBrdgTAoO1kVvZdDZiFgDPFlK0w9TfriAI4vL
UKLeqF1YiKqC5KIenNVfCSDztzamSkBrsNQ9Gxk0OxT1Ju2cE1UGxEWbOHu3
EkCVf1vDLDUjhtU7gKQZT1FwSOha0zm9KigOTnA24mwrcXLDwoxzJoK6X8Up
Wm7K1Eu2Cx8JSrNG0JBxAWXOAtUBcQqktexJbgiYADnabcaqMQ/Fyan7Cgpv
JOkfYahYnmOqksZbSGlwmmaSRa+NbHoEqeHPUay/a8F9rda6FWH907laFmf/
mRuPQli/mzi/lvLVyxcL7rGNc5y/a71x8zcpOO0/SR+TTnaJWO+bh+xUTRON
qCLTlbRr/uQEFyCcKJkehbFtTmL/3BI8147EPgP3mV/rNgPbuPmdIm7gmhtf
grlD7uIKuSTawdPH18R3OF8pz030Shr/j2yc2wZ3kXPKHCEzhYf62+1C3NRC
PFK/4/SonPtssY1YvpZYuKNJrnpe1Rym1zCkZx7CBk1Gih+JsPCJJ1MlF4nX
8XGD3/zJP+4spJtN+KrDodUEjBsdhlURofDSO/kV3av9//vWAZk/s/ePXwFo
qi4wS1qj6cM5bLtmR5p7o+S/1+5fZQdwN5ZXtV1/vt33rLf7F8mvvbWB+YpT
Mv2Vcup/K2ngI9lAPeZpkai2cox/lFU0/KVVfCDF26QqVVh1q7Ws5szTfNnA
b61XYb4+vxXz9JGs4g/WqzC/b9yGeZotq/jIehWvy0LtmaeZsoFa1qswv3LJ
fQ7xtmygNl+F+l9N3JwjcUNSf2ZBrRXnboa5Iov/j/Xu5/zUi5IH/QvOH8h2
uOJnZTv6R605Nc5J45Qk1D9OzoWbv2PyjklC/Vvx3OYK9x2Gw5IzEWfGh5Iz
rvgB2Y4Y2Kx1zn2DYo8kFNuf7FGAtkzeLkkoqsXHEiBXPFnyI8TEnsdqzeQl
ynZEfI09D8dNxXhJKIacWJ6rWZu5m2RxETpgzx9zq8Z6yZmIwLNn9JsxeWtk
iyKizb7CwH3uZaUkHCgIP5OcccWXyeIiesm+E8V94Gax5Ex4DeybiY2YvAWy
RRGXE1duaAC54lGyuLDS2A80c5onUhKKKBD7tjP3daMwyZk47Ctsu2rmCV6x
+EzZjrgDkf0+BPd5p0BJKHwycB+55PL8JaEwB9jaORR+krNAQWj+7jNXfIJs
R7z2wkqLk6qPJJwlCLn+4fpxtCSMFIT1JUCuuKfkZ64ozpkP3LgcIdtZIAi5
kcfNBBdJKDbZLD7tzRUfIotHi+IOTCFuZg+SnImDDexU59aSfrLFNYKQW1y4
1auXJBTfiBbLWTWzkq9YvIcsvlkUb8kU4pZxR8nZVkHIrbfcEcLOssVEQdha
AuSKm+NZyaI4Z05xirC9JEwVhJzG4uJG5sNCewVhOwmQK95StnNAFO/AFOJM
iaaS8LAg5HQ+Z7w0koTHBSFnlHAhrvqSs9OCsKPkjCtuL9s5J4pzd4tZ/bap
RnhJEHLmI7ftYvZurwnCzhIgV9zse2aI4pzdyYWg/ybbuSMIuZsfuUjwJ5Iw
SxA6SoBc8T/L4g9Ece4q0xrWxqWW9VgQWr85lhkvWosFgpC7/ZgLDr0vCcW3
7sURb40zqxsRWvEXonhvHZJlITWp/2/+8pe4tlx+iM6ysFEPvGq5WtZvROG+
krpaxeeCf/G5v+oyVwRLof12+7/f/7/+xm/+H7I6uBg=\
\>"]]
}, Open  ]],

Cell[CellGroupData[{

Cell[BoxData[{
 RowBox[{
  RowBox[{
   RowBox[{"tc", "=", 
    RowBox[{"Table", "[", 
     RowBox[{
      RowBox[{"{", 
       RowBox[{
        RowBox[{"x", "[", 
         RowBox[{"[", "i", "]"}], "]"}], ",", 
        RowBox[{"y", "[", 
         RowBox[{"[", "i", "]"}], "]"}], ",", 
        RowBox[{"z", "[", 
         RowBox[{"[", "i", "]"}], "]"}]}], "}"}], ",", 
      RowBox[{"{", 
       RowBox[{"i", ",", "1", ",", "bc"}], "}"}]}], "]"}]}], ";"}], "   ", 
  RowBox[{"(*", " ", 
   RowBox[{"core", " ", "clouds"}], " ", "*)"}]}], "\[IndentingNewLine]", 
 RowBox[{
  RowBox[{
   RowBox[{"twc", "=", 
    RowBox[{"Table", "[", 
     RowBox[{
      RowBox[{"{", 
       RowBox[{
        RowBox[{"wxc", "[", 
         RowBox[{"[", "i", "]"}], "]"}], ",", 
        RowBox[{"wyc", "[", 
         RowBox[{"[", "i", "]"}], "]"}], ",", 
        RowBox[{"wzc", "[", 
         RowBox[{"[", "i", "]"}], "]"}]}], "}"}], ",", 
      RowBox[{"{", 
       RowBox[{"i", ",", "1", ",", "cw"}], "}"}]}], "]"}]}], ";"}], "  ", 
  RowBox[{"(*", " ", 
   RowBox[{"Bond", " ", "c\[ODoubleDot]ouds", " ", "between", " ", "cores"}], 
   " ", "*)"}]}], "\[IndentingNewLine]", 
 RowBox[{
  RowBox[{
   RowBox[{"twh", "=", 
    RowBox[{"Table", "[", 
     RowBox[{
      RowBox[{"{", 
       RowBox[{
        RowBox[{"wxh", "[", 
         RowBox[{"[", "i", "]"}], "]"}], ",", 
        RowBox[{"wyh", "[", 
         RowBox[{"[", "i", "]"}], "]"}], ",", 
        RowBox[{"wzh", "[", 
         RowBox[{"[", "i", "]"}], "]"}]}], "}"}], ",", 
      RowBox[{"{", 
       RowBox[{"i", ",", "1", ",", "bh"}], "}"}]}], "]"}]}], ";"}], " ", 
  RowBox[{"(*", " ", 
   RowBox[{"H", "-", 
    RowBox[{"bonding", " ", "clouds"}]}], " ", "*)"}], 
  " "}], "\[IndentingNewLine]", 
 RowBox[{
  RowBox[{"tw", "=", 
   RowBox[{"Join", "[", 
    RowBox[{"tc", ",", "twc", ",", "twh"}], "]"}]}], 
  ";"}], "\[IndentingNewLine]", 
 RowBox[{"bt", "=", 
  RowBox[{"Length", "[", "tw", "]"}]}], "\[IndentingNewLine]", 
 RowBox[{"MatrixForm", "[", "tw", "]"}], "\[IndentingNewLine]", 
 RowBox[{
  RowBox[{"(*", " ", 
   RowBox[{"coordinates", " ", "of", " ", "clouds"}], " ", "*)"}]}]}], "Input",
 CellChangeTimes->{{3.568895397419882*^9, 3.5688955157148895`*^9}, {
   3.568895549629349*^9, 3.5688955855718126`*^9}, {3.568895617317868*^9, 
   3.568895845234268*^9}, {3.5688960797194805`*^9, 3.5688961015127187`*^9}, {
   3.568896219074525*^9, 3.5688962276233397`*^9}, {3.568896262910602*^9, 
   3.5688962903198504`*^9}, 3.5688964250728865`*^9, 3.568896456912543*^9, {
   3.5688981540863237`*^9, 3.5688981869399815`*^9}, {3.5689021233572955`*^9, 
   3.5689021341525145`*^9}, {3.5689111169043026`*^9, 
   3.5689111218495116`*^9}, {3.568911235261711*^9, 3.568911242437723*^9}, 
   3.5689112948850155`*^9, {3.5689116510180407`*^9, 3.568911800419503*^9}, {
   3.568911871820829*^9, 3.5689119012892804`*^9}, {3.5689119993042526`*^9, 
   3.5689120006770554`*^9}, {3.568912144306507*^9, 3.568912165085744*^9}, {
   3.5689528310632005`*^9, 3.5689528569592457`*^9}, {3.5689534065794115`*^9, 
   3.5689534297298517`*^9}, {3.568954496214126*^9, 3.5689545054337425`*^9}, 
   3.5689569073699613`*^9, {3.56913308739126*^9, 3.5691332012870607`*^9}, {
   3.569135511323518*^9, 3.5691355127119203`*^9}, {3.569136204167535*^9, 
   3.569136290747687*^9}, {3.5691598050571885`*^9, 3.569159843199256*^9}, {
   3.5692215417755947`*^9, 3.569221597186892*^9}, {3.5692216819730406`*^9, 
   3.5692217090546885`*^9}, {3.5692217693019943`*^9, 
   3.5692218260704937`*^9}, {3.5692219780303607`*^9, 3.569221989433981*^9}, {
   3.569222055468897*^9, 3.5692220728005276`*^9}, {3.5693401536421804`*^9, 
   3.5693401889450426`*^9}, 3.5693411655535583`*^9, {3.569341634303181*^9, 
   3.569341638733589*^9}, {3.5704549882757435`*^9, 3.5704550487414494`*^9}, {
   3.570455928146194*^9, 3.5704559415310173`*^9}, {3.5708553973857827`*^9, 
   3.5708554057785974`*^9}}],

Cell[BoxData["21"], "Output",
 CellChangeTimes->{3.5710453158128395`*^9}],

Cell[BoxData[
 TagBox[
  RowBox[{"(", "\[NoBreak]", GridBox[{
     {"0.36001170025999996`", 
      RowBox[{"-", "0.78185523524`"}], 
      RowBox[{"-", "0.4362432471`"}]},
     {
      RowBox[{"-", "1.8999305204`"}], "0.11629373804`", 
      RowBox[{"-", "1.9469846977999998`"}]},
     {"1.7777597345`", "1.37075054862`", "0.8548364533599999`"},
     {
      RowBox[{"-", "4.3973924019999995`"}], 
      RowBox[{"-", "1.0025941293`"}], 
      RowBox[{"-", "0.9976619444399999`"}]},
     {"4.2190022676`", "0.4780061917`", "2.1552325029999997`"},
     {
      RowBox[{"-", "0.76995941007`"}], 
      RowBox[{"-", "0.3327807486`"}], 
      RowBox[{"-", "1.19161397245`"}]},
     {"1.06888571738`", "0.29444765669000006`", "0.20929660312999998`"},
     {
      RowBox[{"-", "3.1493943286555353`"}], 
      RowBox[{"-", "0.44347852756988204`"}], 
      RowBox[{"-", "1.4720447471982665`"}]},
     {"2.9990949397667013`", "0.9241172880463304`", "1.5054147775866733`"},
     {
      RowBox[{"-", "0.13635352484511964`"}], 
      RowBox[{"-", "1.662930663260291`"}], "0.6066939482535307`"},
     {"1.2746129569069904`", 
      RowBox[{"-", "1.4661294675866579`"}], 
      RowBox[{"-", "1.3337515639536441`"}]},
     {
      RowBox[{"-", "1.7144809151506641`"}], 
      RowBox[{"-", "0.3263144633025212`"}], 
      RowBox[{"-", "3.3178998616417203`"}]},
     {
      RowBox[{"-", "1.9747366610776922`"}], "1.5640301477144796`", 
      RowBox[{"-", "1.8546513833265`"}]},
     {"2.1503761159379926`", "2.3301308132056393`", 
      RowBox[{"-", "0.1704729476170732`"}]},
     {"0.9087869268614381`", "1.9665342173584268`", "1.8549460213919822`"},
     {
      RowBox[{"-", "4.606205476459088`"}], 
      RowBox[{"-", "0.6155975184819331`"}], "0.3869805392212602`"},
     {
      RowBox[{"-", "4.34634545154448`"}], 
      RowBox[{"-", "2.4511192300583957`"}], 
      RowBox[{"-", "1.0930762975786663`"}]},
     {
      RowBox[{"-", "5.492374790705316`"}], 
      RowBox[{"-", "0.5020113559389958`"}], 
      RowBox[{"-", "1.8107321903173283`"}]},
     {"5.106111856913342`", 
      RowBox[{"-", "0.11152659965543232`"}], "1.1673150058101414`"},
     {"3.8943894826319934`", 
      RowBox[{"-", "0.5126533777826621`"}], "3.1668133732620722`"},
     {"4.8768145368577125`", "1.61203652791776`", "2.7814100439322127`"}
    },
    GridBoxAlignment->{
     "Columns" -> {{Center}}, "ColumnsIndexed" -> {}, "Rows" -> {{Baseline}}, 
      "RowsIndexed" -> {}},
    GridBoxSpacings->{"Columns" -> {
        Offset[0.27999999999999997`], {
         Offset[0.7]}, 
        Offset[0.27999999999999997`]}, "ColumnsIndexed" -> {}, "Rows" -> {
        Offset[0.2], {
         Offset[0.4]}, 
        Offset[0.2]}, "RowsIndexed" -> {}}], "\[NoBreak]", ")"}],
  Function[BoxForm`e$, 
   MatrixForm[BoxForm`e$]]]], "Output",
 CellChangeTimes->{3.5710453158128395`*^9}]
}, Open  ]],

Cell[BoxData[
 RowBox[{
  RowBox[{"(*", " ", 
   RowBox[{"cloud", "-", 
    RowBox[{"cloud", " ", "distances"}]}], " ", "*)"}], "\[IndentingNewLine]", 
  RowBox[{
   RowBox[{
    RowBox[{"dw", "=", 
     RowBox[{"Table", "[", 
      RowBox[{
       RowBox[{"Sqrt", "[", 
        RowBox[{
         RowBox[{
          RowBox[{"(", 
           RowBox[{
            RowBox[{"tw", "[", 
             RowBox[{"[", 
              RowBox[{"i", ",", "1"}], "]"}], "]"}], "-", 
            RowBox[{"tw", "[", 
             RowBox[{"[", 
              RowBox[{"j", ",", "1"}], "]"}], "]"}]}], ")"}], "^", "2"}], "+", 
         RowBox[{
          RowBox[{"(", 
           RowBox[{
            RowBox[{"tw", "[", 
             RowBox[{"[", 
              RowBox[{"i", ",", "2"}], "]"}], "]"}], "-", 
            RowBox[{"tw", "[", 
             RowBox[{"[", 
              RowBox[{"j", ",", "2"}], "]"}], "]"}]}], ")"}], "^", "2"}], "+", 
         RowBox[{
          RowBox[{"(", 
           RowBox[{
            RowBox[{"tw", "[", 
             RowBox[{"[", 
              RowBox[{"i", ",", "3"}], "]"}], "]"}], "-", 
            RowBox[{"tw", "[", 
             RowBox[{"[", 
              RowBox[{"j", ",", "3"}], "]"}], "]"}]}], ")"}], "^", "2"}]}], 
        "]"}], ",", 
       RowBox[{"{", 
        RowBox[{"i", ",", "1", ",", "bt"}], "}"}], ",", 
       RowBox[{"{", 
        RowBox[{"j", ",", "1", ",", "bt"}], "}"}]}], "]"}]}], ";"}], 
   "\[IndentingNewLine]", 
   RowBox[{"(*", 
    RowBox[{"MatrixForm", "[", "dw", "]"}], "*)"}]}]}]], "Input",
 CellChangeTimes->{{3.5688982251756487`*^9, 3.5688986440675845`*^9}, {
   3.5688986873108606`*^9, 3.56889871560931*^9}, {3.5688987970414534`*^9, 
   3.5688988526711507`*^9}, {3.568898887147211*^9, 3.568898888644814*^9}, {
   3.5688989206248703`*^9, 3.568899041759083*^9}, {3.5688990876855636`*^9, 
   3.568899258349863*^9}, 3.568899300267137*^9, {3.568899351326027*^9, 
   3.5688993831032825`*^9}, {3.5688994370481772`*^9, 3.568899468217032*^9}, {
   3.5688995813016305`*^9, 3.5688997165538683`*^9}, {3.5688998495129013`*^9, 
   3.568899932364647*^9}, {3.568899967667509*^9, 3.568900024529609*^9}, {
   3.5689000794261055`*^9, 3.568900136257005*^9}, {3.5689001767858763`*^9, 
   3.56890020149632*^9}, {3.568902068726*^9, 3.568902074139209*^9}, 
   3.56890216040736*^9, 3.568902344113283*^9, {3.5689024237982235`*^9, 
   3.56890243907065*^9}, 3.5689025770684924`*^9, 3.568910195129884*^9, 
   3.568910620995032*^9, {3.568912393532545*^9, 3.5689124022841606`*^9}, {
   3.5691332074958715`*^9, 3.5691332081666727`*^9}, {3.5691352237838125`*^9, 
   3.5691352313342257`*^9}, {3.5691489965881166`*^9, 
   3.5691490103317413`*^9}, {3.5691490440122004`*^9, 
   3.5691491351943607`*^9}, {3.569149201666077*^9, 3.5691492026956787`*^9}, {
   3.5691494320784817`*^9, 3.5691494680989447`*^9}, {3.569152288984131*^9, 
   3.5691522953957424`*^9}, {3.5691595058486633`*^9, 3.569159537672719*^9}, 
   3.569237911685565*^9, 3.5693411655535583`*^9, 3.5693418217687106`*^9, {
   3.5703410302061863`*^9, 3.570341063621445*^9}}],

Cell[BoxData[
 RowBox[{
  RowBox[{"(*", " ", 
   RowBox[{"nucleus", "-", 
    RowBox[{"nucleus", " ", "distances"}]}], " ", "*)"}], 
  "\[IndentingNewLine]", 
  RowBox[{"(*", 
   RowBox[{"MatrixForm", "[", "dc", "]"}], " ", "*)"}], " "}]], "Input",
 CellChangeTimes->{{3.5688982251756487`*^9, 3.5688986440675845`*^9}, {
   3.5688986873108606`*^9, 3.56889871560931*^9}, {3.5688987970414534`*^9, 
   3.5688988526711507`*^9}, {3.568898887147211*^9, 3.568898888644814*^9}, {
   3.5688989206248703`*^9, 3.568899041759083*^9}, {3.5688990876855636`*^9, 
   3.568899258349863*^9}, 3.568899300267137*^9, {3.568899351326027*^9, 
   3.5688993831032825`*^9}, {3.5688994370481772`*^9, 3.568899468217032*^9}, {
   3.5688995813016305`*^9, 3.5688997165538683`*^9}, {3.5688998495129013`*^9, 
   3.568899932364647*^9}, {3.568899967667509*^9, 3.568900024529609*^9}, {
   3.5689000794261055`*^9, 3.568900136257005*^9}, {3.5689001767858763`*^9, 
   3.56890020149632*^9}, {3.568902068726*^9, 3.568902074139209*^9}, 
   3.56890216040736*^9, 3.568902344113283*^9, {3.5689024237982235`*^9, 
   3.56890243907065*^9}, 3.5689025770684924`*^9, 3.568910195129884*^9, 
   3.568910620995032*^9, {3.568912393532545*^9, 3.5689124022841606`*^9}, {
   3.5691332074958715`*^9, 3.5691332081666727`*^9}, {3.5691352237838125`*^9, 
   3.5691352313342257`*^9}, {3.5691489965881166`*^9, 
   3.5691490103317413`*^9}, {3.5691490440122004`*^9, 
   3.5691491273631463`*^9}, {3.5691523435842266`*^9, 3.56915234531583*^9}, {
   3.5691524837816734`*^9, 3.569152599175076*^9}, {3.569159470889002*^9, 
   3.569159489874235*^9}, {3.569160442895509*^9, 3.5691604484335184`*^9}, 
   3.569237923385586*^9, 3.569341165569158*^9, 3.5693418217843103`*^9, {
   3.570341048161818*^9, 3.570341058286236*^9}, {3.57034131095988*^9, 
   3.570341315156287*^9}, 3.5703415891395683`*^9, 3.570341976207448*^9}],

Cell[CellGroupData[{

Cell[BoxData[{
 RowBox[{
  RowBox[{"tv1", "=", 
   RowBox[{"Table", "[", 
    RowBox[{
     RowBox[{"{", 
      RowBox[{
       RowBox[{"x", "[", 
        RowBox[{"[", "i", "]"}], "]"}], ",", 
       RowBox[{"y", "[", 
        RowBox[{"[", "i", "]"}], "]"}], ",", 
       RowBox[{"z", "[", 
        RowBox[{"[", "i", "]"}], "]"}]}], "}"}], ",", 
     RowBox[{"{", 
      RowBox[{"i", ",", "1", ",", "bc"}], "}"}]}], "]"}]}], 
  ";"}], "\[IndentingNewLine]", 
 RowBox[{
  RowBox[{"tv2", "=", 
   RowBox[{"Table", "[", 
    RowBox[{
     RowBox[{"{", 
      RowBox[{"0", ",", "0", ",", "0"}], "}"}], ",", 
     RowBox[{"{", 
      RowBox[{"i", ",", "1", ",", "cw"}], "}"}]}], "]"}]}], 
  ";"}], "\[IndentingNewLine]", 
 RowBox[{
  RowBox[{"tv3", "=", " ", 
   RowBox[{"Table", "[", 
    RowBox[{
     RowBox[{"{", 
      RowBox[{
       RowBox[{"x", "[", 
        RowBox[{"[", "i", "]"}], "]"}], ",", 
       RowBox[{"y", "[", 
        RowBox[{"[", "i", "]"}], "]"}], ",", 
       RowBox[{"z", "[", 
        RowBox[{"[", "i", "]"}], "]"}]}], "}"}], ",", 
     RowBox[{"{", 
      RowBox[{"i", ",", 
       RowBox[{"bc", "+", "1"}], ",", "n"}], "}"}]}], "]"}]}], 
  ";"}], "\[IndentingNewLine]", 
 RowBox[{
  RowBox[{"tv", "  ", "=", " ", 
   RowBox[{"Join", "[", 
    RowBox[{"tv1", ",", "tv2", ",", "tv3"}], "]"}]}], 
  ";"}], "\[IndentingNewLine]", 
 RowBox[{"MatrixForm", "[", "tv", "]"}]}], "Input",
 CellChangeTimes->{{3.5688982251756487`*^9, 3.5688986440675845`*^9}, {
   3.5688986873108606`*^9, 3.56889871560931*^9}, {3.5688987970414534`*^9, 
   3.5688988526711507`*^9}, {3.568898887147211*^9, 3.568898888644814*^9}, {
   3.5688989206248703`*^9, 3.568899041759083*^9}, {3.5688990876855636`*^9, 
   3.568899258349863*^9}, 3.568899300267137*^9, {3.568899351326027*^9, 
   3.5688993831032825`*^9}, {3.5688994370481772`*^9, 3.568899468217032*^9}, {
   3.5688995813016305`*^9, 3.5688997165538683`*^9}, {3.5688998495129013`*^9, 
   3.568899932364647*^9}, {3.568899967667509*^9, 3.568900024529609*^9}, {
   3.5689000794261055`*^9, 3.568900136257005*^9}, {3.5689001767858763`*^9, 
   3.56890020149632*^9}, {3.568902068726*^9, 3.568902074139209*^9}, 
   3.56890216040736*^9, 3.568902344113283*^9, {3.5689024237982235`*^9, 
   3.56890243907065*^9}, 3.5689025770684924`*^9, 3.568910195129884*^9, 
   3.568910620995032*^9, {3.568912393532545*^9, 3.5689124022841606`*^9}, {
   3.5691332074958715`*^9, 3.5691332081666727`*^9}, {3.5691352237838125`*^9, 
   3.5691352313342257`*^9}, {3.5691489965881166`*^9, 
   3.5691490103317413`*^9}, {3.5691490440122004`*^9, 
   3.5691491273631463`*^9}, {3.5691523435842266`*^9, 3.56915234531583*^9}, {
   3.5691524837816734`*^9, 3.5691526041202846`*^9}, {3.5691595921324143`*^9, 
   3.5691596901941867`*^9}, {3.569159772406331*^9, 3.5691597832951508`*^9}, {
   3.5691598700313025`*^9, 3.569159885147729*^9}, {3.569160485733184*^9, 
   3.569160486887586*^9}, {3.5691672792073207`*^9, 3.5691672793789206`*^9}, {
   3.5691673418102303`*^9, 3.5691674875144863`*^9}, {3.569168259700243*^9, 
   3.569168260386644*^9}, {3.569168321257951*^9, 3.569168337466379*^9}, {
   3.5691685152754917`*^9, 3.569168656096939*^9}, {3.5691687137702403`*^9, 
   3.569168772566744*^9}, {3.5691697249898825`*^9, 3.569169747063921*^9}, {
   3.569169944981469*^9, 3.5691699696763124`*^9}, 3.569341165569158*^9, {
   3.5693417833614435`*^9, 3.5693417874486504`*^9}, {3.5704552110753345`*^9, 
   3.5704552378605814`*^9}, {3.5704560776724567`*^9, 3.570456083070066*^9}, {
   3.570855427306635*^9, 3.570855434529448*^9}}],

Cell[BoxData[
 TagBox[
  RowBox[{"(", "\[NoBreak]", GridBox[{
     {"0.36001170025999996`", 
      RowBox[{"-", "0.78185523524`"}], 
      RowBox[{"-", "0.4362432471`"}]},
     {
      RowBox[{"-", "1.8999305204`"}], "0.11629373804`", 
      RowBox[{"-", "1.9469846977999998`"}]},
     {"1.7777597345`", "1.37075054862`", "0.8548364533599999`"},
     {
      RowBox[{"-", "4.3973924019999995`"}], 
      RowBox[{"-", "1.0025941293`"}], 
      RowBox[{"-", "0.9976619444399999`"}]},
     {"4.2190022676`", "0.4780061917`", "2.1552325029999997`"},
     {"0", "0", "0"},
     {"0", "0", "0"},
     {"0", "0", "0"},
     {"0", "0", "0"},
     {
      RowBox[{"-", "0.33087212534`"}], 
      RowBox[{"-", "2.0082118201999997`"}], "1.01540647158`"},
     {"1.63304451742`", 
      RowBox[{"-", "1.7342960365`"}], 
      RowBox[{"-", "1.6854844139199998`"}]},
     {
      RowBox[{"-", "1.6417939487999997`"}], 
      RowBox[{"-", "0.49979473248`"}], 
      RowBox[{"-", "3.8552300125999994`"}]},
     {
      RowBox[{"-", "2.004054423`"}], "2.1314219554`", 
      RowBox[{"-", "1.81846443254`"}]},
     {"2.2963950351999998`", "2.7060876319999996`", 
      RowBox[{"-", "0.57226572458`"}]},
     {"0.5682406082`", "2.2000190092`", "2.246884214`"},
     {
      RowBox[{"-", "4.6880322608`"}], 
      RowBox[{"-", "0.46394663025999994`"}], "0.92957511666`"},
     {
      RowBox[{"-", "4.3263387043999995`"}], 
      RowBox[{"-", "3.018837285`"}], 
      RowBox[{"-", "1.13047188772`"}]},
     {
      RowBox[{"-", "5.921456421`"}], 
      RowBox[{"-", "0.30585215309999997`"}], 
      RowBox[{"-", "2.1293432568`"}]},
     {"5.453749236`", 
      RowBox[{"-", "0.34255063201999997`"}], "0.7801733790999998`"},
     {"3.7671687809999996`", 
      RowBox[{"-", "0.9009079732399999`"}], "3.5632673456`"},
     {"5.1345745146`", "2.0563998332`", "3.0267741341999996`"}
    },
    GridBoxAlignment->{
     "Columns" -> {{Center}}, "ColumnsIndexed" -> {}, "Rows" -> {{Baseline}}, 
      "RowsIndexed" -> {}},
    GridBoxSpacings->{"Columns" -> {
        Offset[0.27999999999999997`], {
         Offset[0.7]}, 
        Offset[0.27999999999999997`]}, "ColumnsIndexed" -> {}, "Rows" -> {
        Offset[0.2], {
         Offset[0.4]}, 
        Offset[0.2]}, "RowsIndexed" -> {}}], "\[NoBreak]", ")"}],
  Function[BoxForm`e$, 
   MatrixForm[BoxForm`e$]]]], "Output",
 CellChangeTimes->{3.57104531584404*^9}]
}, Open  ]],

Cell[CellGroupData[{

Cell[BoxData[
 RowBox[{"\[IndentingNewLine]", 
  RowBox[{
   RowBox[{"ow", "=", 
    RowBox[{"Join", "[", 
     RowBox[{"Table", "[", 
      RowBox[{
       RowBox[{"-", "2.0"}], ",", 
       RowBox[{"{", 
        RowBox[{"i", ",", "1", ",", 
         RowBox[{"bc", "+", "nb"}]}], "}"}]}], "]"}], "]"}]}], 
   RowBox[{"(*", " ", 
    RowBox[{"nucleus", "-", 
     RowBox[{"cloud", " ", "distances"}]}], " ", "*)"}], 
   "\[IndentingNewLine]", 
   RowBox[{"cnv", "=", 
    RowBox[{"Join", "[", 
     RowBox[{
      RowBox[{"Table", "[", 
       RowBox[{
        RowBox[{"cn", "[", 
         RowBox[{"[", "i", "]"}], "]"}], ",", 
        RowBox[{"{", 
         RowBox[{"i", ",", "1", ",", "bc"}], "}"}]}], "]"}], ",", 
      RowBox[{"Table", "[", 
       RowBox[{"0.0", ",", 
        RowBox[{"{", 
         RowBox[{"i", ",", "1", ",", "cw"}], "}"}]}], "]"}], ",", 
      RowBox[{"Table", "[", 
       RowBox[{
        RowBox[{"cn", "[", 
         RowBox[{"[", "i", "]"}], "]"}], ",", 
        RowBox[{"{", 
         RowBox[{"i", ",", 
          RowBox[{"bc", "+", "1"}], ",", "n"}], "}"}]}], "]"}]}], "]"}]}], 
   "\[IndentingNewLine]", 
   RowBox[{
    RowBox[{"dcw", "=", 
     RowBox[{"Table", "[", 
      RowBox[{
       RowBox[{
        RowBox[{"sq", "=", 
         RowBox[{"Sqrt", "[", 
          RowBox[{
           RowBox[{
            RowBox[{"(", 
             RowBox[{
              RowBox[{"tw", "[", 
               RowBox[{"[", 
                RowBox[{"i", ",", "1"}], "]"}], "]"}], "-", 
              RowBox[{"tv", "[", 
               RowBox[{"[", 
                RowBox[{"j", ",", "1"}], "]"}], "]"}]}], ")"}], "^", "2"}], 
           "+", 
           RowBox[{
            RowBox[{"(", 
             RowBox[{
              RowBox[{"tw", "[", 
               RowBox[{"[", 
                RowBox[{"i", ",", "2"}], "]"}], "]"}], "-", 
              RowBox[{"tv", "[", 
               RowBox[{"[", 
                RowBox[{"j", ",", "2"}], "]"}], "]"}]}], ")"}], "^", "2"}], 
           "+", 
           RowBox[{
            RowBox[{"(", 
             RowBox[{
              RowBox[{"tw", "[", 
               RowBox[{"[", 
                RowBox[{"i", ",", "3"}], "]"}], "]"}], "-", 
              RowBox[{"tv", "[", 
               RowBox[{"[", 
                RowBox[{"j", ",", "3"}], "]"}], "]"}]}], ")"}], "^", "2"}]}], 
          "]"}]}], ";", 
        RowBox[{"If", "[", 
         RowBox[{
          RowBox[{"sq", ">", " ", "0.1"}], ",", 
          StyleBox[
           RowBox[{"1", "/", "sq"}],
           FontColor->RGBColor[1, 0, 0]], ",", "0"}], "]"}]}], ",", 
       RowBox[{"{", 
        RowBox[{"i", ",", "1", ",", "bt"}], "}"}], ",", 
       RowBox[{"{", 
        RowBox[{"j", ",", "1", ",", "bt"}], "}"}]}], "]"}]}], ";"}], 
   "\[IndentingNewLine]", 
   RowBox[{
    RowBox[{"dcw", "=", 
     RowBox[{"Table", "[", 
      RowBox[{
       RowBox[{"If", "[", 
        RowBox[{
         RowBox[{"i", "\[Equal]", " ", "j"}], ",", 
         RowBox[{
          RowBox[{"dcw", "[", 
           RowBox[{"[", 
            RowBox[{"i", ",", "j"}], "]"}], "]"}], "=", "0.0"}], ",", 
         RowBox[{"dcw", "[", 
          RowBox[{"[", 
           RowBox[{"i", ",", "j"}], "]"}], "]"}]}], "]"}], ",", 
       RowBox[{"{", 
        RowBox[{"i", ",", "1", ",", "bt"}], "}"}], ",", 
       RowBox[{"{", 
        RowBox[{"j", ",", "1", ",", "bt"}], "}"}]}], "]"}]}], ";"}], 
   "\[IndentingNewLine]", 
   RowBox[{"(*", 
    RowBox[{"MatrixForm", "[", "dcw", "]"}], "*)"}], "  "}]}]], "Input",
 CellChangeTimes->{{3.5688982251756487`*^9, 3.5688986440675845`*^9}, {
   3.5688986873108606`*^9, 3.56889871560931*^9}, {3.5688987970414534`*^9, 
   3.5688988526711507`*^9}, {3.568898887147211*^9, 3.568898888644814*^9}, {
   3.5688989206248703`*^9, 3.568899041759083*^9}, {3.5688990876855636`*^9, 
   3.568899258349863*^9}, 3.568899300267137*^9, {3.568899351326027*^9, 
   3.5688993831032825`*^9}, {3.5688994370481772`*^9, 3.568899468217032*^9}, {
   3.5688995813016305`*^9, 3.5688997165538683`*^9}, {3.5688998495129013`*^9, 
   3.568899932364647*^9}, {3.568899967667509*^9, 3.568900024529609*^9}, {
   3.5689000794261055`*^9, 3.568900136257005*^9}, {3.5689001767858763`*^9, 
   3.56890020149632*^9}, {3.568902068726*^9, 3.568902074139209*^9}, 
   3.56890216040736*^9, 3.568902344113283*^9, {3.5689024237982235`*^9, 
   3.56890243907065*^9}, 3.5689025770684924`*^9, 3.568910195129884*^9, 
   3.568910620995032*^9, {3.568912393532545*^9, 3.5689124022841606`*^9}, {
   3.5691332074958715`*^9, 3.5691332081666727`*^9}, {3.5691352237838125`*^9, 
   3.5691352313342257`*^9}, {3.5691489965881166`*^9, 
   3.5691490103317413`*^9}, {3.5691490440122004`*^9, 
   3.5691491273631463`*^9}, {3.5691523435842266`*^9, 3.56915234531583*^9}, {
   3.5691524837816734`*^9, 3.5691526041202846`*^9}, {3.5691595921324143`*^9, 
   3.5691596901941867`*^9}, {3.569159772406331*^9, 3.5691597832951508`*^9}, {
   3.5691598700313025`*^9, 3.569159885147729*^9}, {3.569160485733184*^9, 
   3.569160486887586*^9}, {3.5691672792073207`*^9, 3.5691672793789206`*^9}, {
   3.5691673418102303`*^9, 3.5691674875144863`*^9}, {3.569168259700243*^9, 
   3.569168260386644*^9}, {3.569168321257951*^9, 3.569168337466379*^9}, {
   3.5691685152754917`*^9, 3.569168656096939*^9}, {3.5691687137702403`*^9, 
   3.569168772566744*^9}, {3.5691697249898825`*^9, 3.569169747063921*^9}, {
   3.569169944981469*^9, 3.5691699655579047`*^9}, {3.56921753575448*^9, 
   3.569217541807291*^9}, {3.569217576283351*^9, 3.5692176436130695`*^9}, {
   3.5692176921603546`*^9, 3.569217692768756*^9}, {3.5692177389136367`*^9, 
   3.569217740192839*^9}, {3.5692222042775583`*^9, 3.5692222070231633`*^9}, {
   3.569230669979245*^9, 3.5692306709620466`*^9}, {3.5692308816872168`*^9, 
   3.5692309970650196`*^9}, {3.5692310297158766`*^9, 3.569231090602784*^9}, {
   3.5692311251880445`*^9, 3.569231148868886*^9}, 3.56923793753481*^9, 
   3.569341165569158*^9, 3.5693418217375107`*^9, {3.5703412254249296`*^9, 
   3.5703412423509593`*^9}, {3.5704553045038986`*^9, 3.570455320681127*^9}, {
   3.57045550485505*^9, 3.5704555063370533`*^9}, {3.5704556421508913`*^9, 
   3.5704556424784923`*^9}, 3.5704557137862177`*^9, {3.5704564711051474`*^9, 
   3.5704564908079824`*^9}, {3.570456521602436*^9, 3.5704565228348384`*^9}, {
   3.5704569127419233`*^9, 3.5704569202767363`*^9}, 3.5704636205455036`*^9, 
   3.570596993178934*^9, {3.570855461377095*^9, 3.5708554743563175`*^9}, 
   3.570855611589759*^9}],

Cell[BoxData[
 RowBox[{"{", 
  RowBox[{
   RowBox[{"-", "2.`"}], ",", 
   RowBox[{"-", "2.`"}], ",", 
   RowBox[{"-", "2.`"}], ",", 
   RowBox[{"-", "2.`"}], ",", 
   RowBox[{"-", "2.`"}], ",", 
   RowBox[{"-", "2.`"}], ",", 
   RowBox[{"-", "2.`"}], ",", 
   RowBox[{"-", "2.`"}], ",", 
   RowBox[{"-", "2.`"}], ",", 
   RowBox[{"-", "2.`"}], ",", 
   RowBox[{"-", "2.`"}], ",", 
   RowBox[{"-", "2.`"}], ",", 
   RowBox[{"-", "2.`"}], ",", 
   RowBox[{"-", "2.`"}], ",", 
   RowBox[{"-", "2.`"}], ",", 
   RowBox[{"-", "2.`"}], ",", 
   RowBox[{"-", "2.`"}], ",", 
   RowBox[{"-", "2.`"}], ",", 
   RowBox[{"-", "2.`"}], ",", 
   RowBox[{"-", "2.`"}], ",", 
   RowBox[{"-", "2.`"}]}], "}"}]], "Output",
 CellChangeTimes->{3.5710453158596396`*^9}],

Cell[BoxData[
 RowBox[{"{", 
  RowBox[{
  "6.`", ",", "6.`", ",", "6.`", ",", "6.`", ",", "6.`", ",", "0.`", ",", 
   "0.`", ",", "0.`", ",", "0.`", ",", "1.`", ",", "1.`", ",", "1.`", ",", 
   "1.`", ",", "1.`", ",", "1.`", ",", "1.`", ",", "1.`", ",", "1.`", ",", 
   "1.`", ",", "1.`", ",", "1.`"}], "}"}]], "Output",
 CellChangeTimes->{3.5710453158596396`*^9}]
}, Open  ]],

Cell[BoxData[
 RowBox[{
  RowBox[{"Vee", "=", "0.0"}], ";", " ", 
  RowBox[{"Vnn", "=", "0.0"}], ";"}]], "Input",
 CellChangeTimes->{{3.5688982251756487`*^9, 3.5688986440675845`*^9}, {
   3.5688986873108606`*^9, 3.56889871560931*^9}, {3.5688987970414534`*^9, 
   3.5688988526711507`*^9}, {3.568898887147211*^9, 3.568898888644814*^9}, {
   3.5688989206248703`*^9, 3.568899041759083*^9}, {3.5688990876855636`*^9, 
   3.568899258349863*^9}, 3.568899300267137*^9, {3.568899351326027*^9, 
   3.5688993831032825`*^9}, {3.5688994370481772`*^9, 3.568899468217032*^9}, {
   3.5688995813016305`*^9, 3.5688997165538683`*^9}, {3.5688998495129013`*^9, 
   3.568899932364647*^9}, {3.568899967667509*^9, 3.568900024529609*^9}, {
   3.5689000794261055`*^9, 3.568900136257005*^9}, {3.5689001767858763`*^9, 
   3.56890020149632*^9}, {3.568902068726*^9, 3.568902074139209*^9}, 
   3.56890216040736*^9, 3.568902344113283*^9, {3.5689024237982235`*^9, 
   3.56890243907065*^9}, 3.5689025770684924`*^9, {3.568910195129884*^9, 
   3.568910199825492*^9}, 3.568910617609826*^9, {3.56891263539537*^9, 
   3.568912638842976*^9}, {3.568952611212014*^9, 3.5689526227248344`*^9}, {
   3.5689527476498537`*^9, 3.5689527480086546`*^9}, {3.5689530637688093`*^9, 
   3.5689530642368097`*^9}, {3.569133363948546*^9, 3.569133373698563*^9}, {
   3.5691350563331184`*^9, 3.56913505725352*^9}, 3.5691351502452836`*^9, {
   3.569135237792637*^9, 3.5691352453118505`*^9}, {3.5691353071659594`*^9, 
   3.5691353166039753`*^9}, {3.5691447439722476`*^9, 
   3.5691448093675623`*^9}, {3.569146067386572*^9, 3.569146078244191*^9}, {
   3.5691478509845047`*^9, 3.5691478547909117`*^9}, {3.569159874789311*^9, 
   3.56915988004652*^9}, {3.5691671967299757`*^9, 3.569167196901576*^9}, 
   3.5691672337020407`*^9, {3.5691672688489027`*^9, 3.5691672717661076`*^9}, 
   3.569171387282002*^9, 3.5692335989467897`*^9}],

Cell[CellGroupData[{

Cell[BoxData[
 RowBox[{
  RowBox[{"(*", " ", 
   RowBox[{"all", " ", "clouds", " ", "repulsion"}], " ", "*)"}], 
  "\[IndentingNewLine]", 
  RowBox[{
   RowBox[{"For", "[", 
    RowBox[{
     RowBox[{"i", "=", "1"}], ",", 
     RowBox[{"i", "<", "bt"}], ",", 
     RowBox[{"i", "++"}], ",", "\[IndentingNewLine]", 
     RowBox[{"For", "[", 
      RowBox[{
       RowBox[{"j", "=", 
        RowBox[{"i", "+", "1"}]}], ",", 
       RowBox[{"j", "<", 
        RowBox[{"bt", "+", "1"}]}], ",", 
       RowBox[{"j", "++"}], ",", "\[IndentingNewLine]", 
       RowBox[{"Vee", "=", 
        RowBox[{"Vee", "+", 
         RowBox[{
          RowBox[{"ow", "[", 
           RowBox[{"[", "i", "]"}], "]"}], "*", 
          RowBox[{
           RowBox[{"ow", "[", 
            RowBox[{"[", "j", "]"}], "]"}], "/", 
           RowBox[{"dw", "[", 
            RowBox[{"[", 
             RowBox[{"i", ",", "j"}], "]"}], "]"}]}]}]}]}]}], "]"}]}], "]"}], 
   "\[IndentingNewLine]", "Vee"}]}]], "Input",
 CellChangeTimes->{{3.5688982251756487`*^9, 3.5688986440675845`*^9}, {
   3.5688986873108606`*^9, 3.56889871560931*^9}, {3.5688987970414534`*^9, 
   3.5688988526711507`*^9}, {3.568898887147211*^9, 3.568898888644814*^9}, {
   3.5688989206248703`*^9, 3.568899041759083*^9}, {3.5688990876855636`*^9, 
   3.568899258349863*^9}, 3.568899300267137*^9, {3.568899351326027*^9, 
   3.5688993831032825`*^9}, {3.5688994370481772`*^9, 3.568899468217032*^9}, {
   3.5688995813016305`*^9, 3.5688997165538683`*^9}, {3.5688998495129013`*^9, 
   3.568899932364647*^9}, {3.568899967667509*^9, 3.568900024529609*^9}, {
   3.5689000794261055`*^9, 3.568900136257005*^9}, {3.5689001767858763`*^9, 
   3.56890020149632*^9}, {3.568902068726*^9, 3.568902074139209*^9}, 
   3.56890216040736*^9, 3.568902344113283*^9, {3.5689024237982235`*^9, 
   3.56890243907065*^9}, 3.5689025770684924`*^9, {3.568910195129884*^9, 
   3.568910199825492*^9}, 3.568910617609826*^9, {3.56891263539537*^9, 
   3.568912638842976*^9}, {3.568952611212014*^9, 3.5689526227248344`*^9}, {
   3.5689527476498537`*^9, 3.5689527480086546`*^9}, {3.5689530637688093`*^9, 
   3.5689530642368097`*^9}, {3.569133363948546*^9, 3.569133373698563*^9}, {
   3.5691350563331184`*^9, 3.56913505725352*^9}, 3.5691351502452836`*^9, {
   3.569135237792637*^9, 3.5691352453118505`*^9}, {3.5691353071659594`*^9, 
   3.5691353166039753`*^9}, {3.5691447439722476`*^9, 
   3.5691448093675623`*^9}, {3.569146067386572*^9, 3.569146078244191*^9}, {
   3.5691478509845047`*^9, 3.5691478969889855`*^9}, {3.569149270524598*^9, 
   3.569149283675421*^9}, {3.5691523005437512`*^9, 3.5691523013861527`*^9}, {
   3.570457123841494*^9, 3.5704571330923104`*^9}, {3.570457176959587*^9, 
   3.570457191296013*^9}, {3.570463789649801*^9, 3.570463797637015*^9}, {
   3.5704639300032473`*^9, 3.5704639472412777`*^9}, {3.570464099403945*^9, 
   3.5704641196371803`*^9}, {3.570464183737693*^9, 3.5704641855628963`*^9}, {
   3.570855532092019*^9, 3.5708555433240385`*^9}}],

Cell[BoxData["228.94093165026837`"], "Output",
 CellChangeTimes->{3.57104531587524*^9}]
}, Open  ]],

Cell[CellGroupData[{

Cell[BoxData[{
 RowBox[{
  RowBox[{"sc", "=", "0.4118"}], ";", "   ", 
  RowBox[{"(*", " ", 
   RowBox[{"core", " ", "clouds"}], " ", "*)"}], "\[IndentingNewLine]", 
  RowBox[{"For", "[", 
   RowBox[{
    RowBox[{"i", "=", "1"}], " ", ",", 
    RowBox[{"i", "<", 
     RowBox[{"bc", "+", "1"}]}], ",", 
    RowBox[{"i", "++"}], ",", 
    RowBox[{"Vee", "=", 
     RowBox[{"Vee", "+", 
      RowBox[{"3", "*", 
       RowBox[{"sc", "/", 
        RowBox[{"u2", "[", 
         RowBox[{"[", "i", "]"}], "]"}]}]}]}]}]}], 
   "]"}]}], "\[IndentingNewLine]", 
 RowBox[{
  RowBox[{"sw", "=", "0.4246"}], ";", "  ", 
  RowBox[{"(*", " ", 
   RowBox[{"bonding", " ", "clouds"}], " ", "*)"}], "\[IndentingNewLine]", 
  RowBox[{"For", "[", 
   RowBox[{
    RowBox[{"i", "=", "1"}], " ", ",", 
    RowBox[{"i", "<", 
     RowBox[{"nb", "+", "1"}]}], ",", 
    RowBox[{"i", "++"}], ",", 
    RowBox[{"Vee", "=", 
     RowBox[{"Vee", "+", 
      RowBox[{"3", "*", 
       RowBox[{"sw", "/", 
        RowBox[{"a", "[", 
         RowBox[{"[", 
          RowBox[{"i", ",", "3"}], "]"}], "]"}]}]}]}]}]}], 
   "]"}]}], "\[IndentingNewLine]", "Vee"}], "Input",
 CellChangeTimes->{{3.5689548890696163`*^9, 3.568955116299615*^9}, {
   3.5689552553894596`*^9, 3.5689552575266633`*^9}, {3.5689552936875267`*^9, 
   3.5689553203323736`*^9}, {3.568955404229321*^9, 3.568955433245372*^9}, 
   3.5689554882822685`*^9, 3.5689562157115464`*^9, {3.568956283961666*^9, 
   3.5689562858180695`*^9}, {3.5689566111878405`*^9, 
   3.5689566291278725`*^9}, {3.5689566695319433`*^9, 
   3.5689567220104356`*^9}, {3.5690810958835616`*^9, 3.569081104525977*^9}, {
   3.5691717160681796`*^9, 3.569171751714242*^9}, {3.5691717855663013`*^9, 
   3.5691719006789036`*^9}, 3.569234247377528*^9, {3.569235622381544*^9, 
   3.569235625142749*^9}, {3.5692356799612455`*^9, 3.569235740536152*^9}, {
   3.57045575500149*^9, 3.5704557604770994`*^9}, {3.57046440981329*^9, 
   3.5704644333849316`*^9}, {3.5705963024877205`*^9, 
   3.5705963300061693`*^9}, {3.5706010463712544`*^9, 3.570601069225295*^9}, {
   3.5706012097659416`*^9, 3.5706012109983435`*^9}, {3.570601290948484*^9, 
   3.570601291619285*^9}, {3.570601333099758*^9, 3.570601444951955*^9}, 
   3.5706014761208096`*^9, {3.570601526633698*^9, 3.570601615179454*^9}, {
   3.5708576202336864`*^9, 3.5708576267544985`*^9}, {3.5708577990100007`*^9, 
   3.5708578016152053`*^9}, {3.5708580423548284`*^9, 3.570858044429632*^9}, {
   3.570858075754487*^9, 3.5708581072821426`*^9}, {3.570858449889944*^9, 
   3.5708585756105647`*^9}, {3.5710442384281473`*^9, 3.571044290017438*^9}, {
   3.571044322761895*^9, 3.5710446121424036`*^9}, {3.5710446451208615`*^9, 
   3.571044670751707*^9}}],

Cell[BoxData["270.2116773698183`"], "Output",
 CellChangeTimes->{3.5710453158908396`*^9}]
}, Open  ]],

Cell[CellGroupData[{

Cell[BoxData[
 RowBox[{
  RowBox[{"(*", " ", 
   RowBox[{
    RowBox[{"all", " ", "nuclei", " ", "with", " ", "all", " ", "clouds"}], 
    ",", " ", 
    RowBox[{
     RowBox[{"except", " ", "i"}], " ", "=", " ", "j"}]}], " ", "*)"}], 
  "\[IndentingNewLine]", 
  RowBox[{"Vne", "=", 
   RowBox[{"cnv", ".", 
    RowBox[{"(", 
     RowBox[{"ow", ".", "dcw"}], ")"}]}]}]}]], "Input",
 CellChangeTimes->{
  3.569233528637466*^9, 3.5692342309507*^9, {3.5704557844231415`*^9, 
   3.570455793127957*^9}}],

Cell[BoxData[
 RowBox[{"-", "472.98249613248396`"}]], "Output",
 CellChangeTimes->{3.57104531590644*^9}]
}, Open  ]],

Cell[BoxData[
 RowBox[{"(*", " ", 
  RowBox[{
  "core", " ", "nuclei", " ", "in", " ", "their", " ", "cloud", " ", 
   "centers"}], " ", "*)"}]], "Input",
 CellChangeTimes->{{3.5688982251756487`*^9, 3.5688986440675845`*^9}, {
   3.5688986873108606`*^9, 3.56889871560931*^9}, {3.5688987970414534`*^9, 
   3.5688988526711507`*^9}, {3.568898887147211*^9, 3.568898888644814*^9}, {
   3.5688989206248703`*^9, 3.568899041759083*^9}, {3.5688990876855636`*^9, 
   3.568899258349863*^9}, 3.568899300267137*^9, {3.568899351326027*^9, 
   3.5688993831032825`*^9}, {3.5688994370481772`*^9, 3.568899468217032*^9}, {
   3.5688995813016305`*^9, 3.5688997165538683`*^9}, {3.5688998495129013`*^9, 
   3.568899932364647*^9}, {3.568899967667509*^9, 3.568900024529609*^9}, {
   3.5689000794261055`*^9, 3.568900136257005*^9}, {3.5689001767858763`*^9, 
   3.56890020149632*^9}, {3.568902068726*^9, 3.568902074139209*^9}, 
   3.56890216040736*^9, 3.568902344113283*^9, {3.5689024237982235`*^9, 
   3.56890243907065*^9}, 3.5689025770684924`*^9, {3.568910195129884*^9, 
   3.5689102262831383`*^9}, {3.5689126851126575`*^9, 
   3.5689126875306616`*^9}, {3.5690878255169816`*^9, 3.569087857185037*^9}, {
   3.5691452963224173`*^9, 3.569145370484948*^9}, {3.5691454640695124`*^9, 
   3.5691454653799143`*^9}, {3.5691523784970884`*^9, 3.569152451988817*^9}, {
   3.569152629610729*^9, 3.5691526609667845`*^9}}],

Cell[CellGroupData[{

Cell[BoxData[{
 RowBox[{"For", "[", 
  RowBox[{
   RowBox[{"i", "=", "1"}], ",", 
   RowBox[{"i", "<", 
    RowBox[{"bc", "+", "1"}]}], ",", 
   RowBox[{"i", "++"}], ",", 
   RowBox[{"Vne", "=", 
    RowBox[{"Vne", "-", 
     RowBox[{"3", "*", 
      RowBox[{
       RowBox[{"cn", "[", 
        RowBox[{"[", "i", "]"}], "]"}], "/", 
       RowBox[{"u2", "[", 
        RowBox[{"[", "i", "]"}], "]"}]}]}]}]}]}], 
  "]"}], "\[IndentingNewLine]", "Vne"}], "Input",
 CellChangeTimes->{{3.5688982251756487`*^9, 3.5688986440675845`*^9}, {
   3.5688986873108606`*^9, 3.56889871560931*^9}, {3.5688987970414534`*^9, 
   3.5688988526711507`*^9}, {3.568898887147211*^9, 3.568898888644814*^9}, {
   3.5688989206248703`*^9, 3.568899041759083*^9}, {3.5688990876855636`*^9, 
   3.568899258349863*^9}, 3.568899300267137*^9, {3.568899351326027*^9, 
   3.5688993831032825`*^9}, {3.5688994370481772`*^9, 3.568899468217032*^9}, {
   3.5688995813016305`*^9, 3.5688997165538683`*^9}, {3.5688998495129013`*^9, 
   3.568899932364647*^9}, {3.568899967667509*^9, 3.568900024529609*^9}, {
   3.5689000794261055`*^9, 3.568900136257005*^9}, {3.5689001767858763`*^9, 
   3.56890020149632*^9}, {3.568902068726*^9, 3.568902074139209*^9}, 
   3.56890216040736*^9, 3.568902344113283*^9, {3.5689024237982235`*^9, 
   3.56890243907065*^9}, 3.5689025770684924`*^9, {3.568910195129884*^9, 
   3.5689102262831383`*^9}, {3.5689126851126575`*^9, 
   3.5689126875306616`*^9}, {3.5690878255169816`*^9, 3.569087857185037*^9}, {
   3.5691452963224173`*^9, 3.569145370484948*^9}, {3.5691454640695124`*^9, 
   3.5691454653799143`*^9}, {3.5691523784970884`*^9, 3.569152451988817*^9}, {
   3.569152629610729*^9, 3.5691526649915915`*^9}, 3.569170044088443*^9}],

Cell[BoxData[
 RowBox[{"-", "825.8997619983024`"}]], "Output",
 CellChangeTimes->{3.57104531592204*^9}]
}, Open  ]],

Cell[CellGroupData[{

Cell[BoxData[
 RowBox[{
  RowBox[{"(*", " ", 
   RowBox[{
    RowBox[{
    "protons", " ", "in", " ", "their", " ", "bonding", " ", "cloud"}], ",", 
    " ", 
    RowBox[{"distance", " ", 
     RowBox[{"u2", "[", 
      RowBox[{"[", 
       RowBox[{"a", "[", 
        RowBox[{"[", 
         RowBox[{"i", ",", "1"}], "]"}], "]"}], "]"}], "]"}], " ", "to", " ", 
     "cloud", " ", "center"}]}], " ", "*)"}], "\[IndentingNewLine]", 
  RowBox[{
   RowBox[{"For", "[", 
    RowBox[{
     RowBox[{"i", "=", 
      RowBox[{"cw", "+", "1"}]}], ",", 
     RowBox[{"i", "<", 
      RowBox[{"nb", "+", "1"}]}], ",", 
     RowBox[{"i", "++"}], ",", 
     RowBox[{"Vne", "=", 
      RowBox[{"Vne", "-", 
       RowBox[{
        RowBox[{"(", 
         RowBox[{"3", "-", 
          RowBox[{
           RowBox[{"(", 
            RowBox[{
             RowBox[{"u2", "[", 
              RowBox[{"[", 
               RowBox[{"a", "[", 
                RowBox[{"[", 
                 RowBox[{"i", ",", "1"}], "]"}], "]"}], "]"}], "]"}], "/", 
             RowBox[{"a", "[", 
              RowBox[{"[", 
               RowBox[{"i", ",", "3"}], "]"}], "]"}]}], ")"}], "^", "2"}]}], 
         ")"}], "/", 
        RowBox[{"a", "[", 
         RowBox[{"[", 
          RowBox[{"i", ",", "3"}], "]"}], "]"}]}]}]}]}], "]"}], 
   "\[IndentingNewLine]", "Vne"}]}]], "Input",
 CellChangeTimes->{{3.5692316245917215`*^9, 3.5692316336397376`*^9}}],

Cell[BoxData[
 RowBox[{"-", "853.6908990545813`"}]], "Output",
 CellChangeTimes->{3.57104531593764*^9}]
}, Open  ]],

Cell[CellGroupData[{

Cell[BoxData[
 RowBox[{
  RowBox[{"(*", " ", 
   RowBox[{"nucleus", "-", "nucleus"}], " ", "*)"}], "\[IndentingNewLine]", 
  RowBox[{
   RowBox[{"For", "[", 
    RowBox[{
     RowBox[{"i", "=", "1"}], ",", 
     RowBox[{"i", "<", "n"}], ",", 
     RowBox[{"i", "++"}], ",", "\[IndentingNewLine]", 
     RowBox[{"For", "[", 
      RowBox[{
       RowBox[{"j", "=", 
        RowBox[{"i", "+", "1"}]}], ",", 
       RowBox[{"j", "<", 
        RowBox[{"n", "+", "1"}]}], ",", 
       RowBox[{"j", "++"}], ",", 
       RowBox[{"Vnn", "=", 
        RowBox[{"Vnn", "+", 
         RowBox[{
          RowBox[{"cn", "[", 
           RowBox[{"[", "i", "]"}], "]"}], "*", 
          RowBox[{
           RowBox[{"cn", "[", 
            RowBox[{"[", "j", "]"}], "]"}], "/", 
           RowBox[{"dc", "[", 
            RowBox[{"[", 
             RowBox[{"i", ",", "j"}], "]"}], "]"}]}]}]}]}]}], "]"}]}], "]"}], 
   "\[IndentingNewLine]", "Vnn"}]}]], "Input",
 CellChangeTimes->{{3.5688982251756487`*^9, 3.5688986440675845`*^9}, {
   3.5688986873108606`*^9, 3.56889871560931*^9}, {3.5688987970414534`*^9, 
   3.5688988526711507`*^9}, {3.568898887147211*^9, 3.568898888644814*^9}, {
   3.5688989206248703`*^9, 3.568899041759083*^9}, {3.5688990876855636`*^9, 
   3.568899258349863*^9}, 3.568899300267137*^9, {3.568899351326027*^9, 
   3.5688993831032825`*^9}, {3.5688994370481772`*^9, 3.568899468217032*^9}, {
   3.5688995813016305`*^9, 3.5688997165538683`*^9}, {3.5688998495129013`*^9, 
   3.568899932364647*^9}, {3.568899967667509*^9, 3.568900024529609*^9}, {
   3.5689000794261055`*^9, 3.568900136257005*^9}, {3.5689001767858763`*^9, 
   3.56890020149632*^9}, {3.568902068726*^9, 3.568902074139209*^9}, 
   3.56890216040736*^9, 3.568902344113283*^9, {3.5689024237982235`*^9, 
   3.56890243907065*^9}, 3.5689025770684924`*^9, {3.568910195129884*^9, 
   3.5689102262831383`*^9}, {3.5689126851126575`*^9, 
   3.5689126875306616`*^9}, {3.5690878255169816`*^9, 3.569087857185037*^9}, {
   3.5691452963224173`*^9, 3.569145370484948*^9}, {3.5691454640695124`*^9, 
   3.5691454653799143`*^9}, {3.5691523784970884`*^9, 3.569152451988817*^9}, {
   3.569152629610729*^9, 3.5691526609667845`*^9}, 3.5691527650033674`*^9, {
   3.5691528050174375`*^9, 3.5691528220994673`*^9}, {3.5691528694611506`*^9, 
   3.5691529180864363`*^9}, {3.5691531888249116`*^9, 3.569153192974519*^9}, 
   3.569153245359411*^9, {3.5691532970111017`*^9, 3.5691533046239147`*^9}, {
   3.5691708905147295`*^9, 3.56917090235515*^9}, {3.5691714357512875`*^9, 
   3.569171449775712*^9}, 3.56917197825784*^9}],

Cell[BoxData["187.60906622216044`"], "Output",
 CellChangeTimes->{3.57104531595324*^9}]
}, Open  ]],

Cell[CellGroupData[{

Cell[BoxData[{"Vee", "\[IndentingNewLine]", "Vnn", "\[IndentingNewLine]", \
"Vne", "\[IndentingNewLine]", 
 RowBox[{"Vtot", "=", 
  RowBox[{
  "Vne", "+", "Vee", "+", 
   "Vnn"}]}], "\[IndentingNewLine]", "Ttot", "\[IndentingNewLine]", 
 RowBox[{"Vir", "   ", "=", 
  RowBox[{
   RowBox[{"-", "Vtot"}], "/", "Ttot"}]}], "\[IndentingNewLine]", 
 RowBox[{"Etot", "=", 
  RowBox[{"Ttot", "+", "Vtot"}]}], "\[IndentingNewLine]"}], "Input",
 CellChangeTimes->{{3.5689074950860367`*^9, 3.5689075109980645`*^9}, {
  3.568910298074465*^9, 3.5689103015064707`*^9}, {3.568910724064413*^9, 
  3.5689107693044925`*^9}, {3.568955368910859*^9, 3.568955378629676*^9}, {
  3.568955601366867*^9, 3.568955616218093*^9}, {3.5704638504275074`*^9, 
  3.570463876370353*^9}, {3.570464305074706*^9, 3.5704643133895206`*^9}, {
  3.570464352171189*^9, 3.570464353231991*^9}, {3.570712404698539*^9, 
  3.5707124150569572`*^9}, {3.570809962851386*^9, 3.5708101493809137`*^9}, {
  3.5708102160710306`*^9, 3.570810245165082*^9}, {3.5708102767551374`*^9, 
  3.5708103693413*^9}, {3.570810404207361*^9, 3.5708104232081947`*^9}, {
  3.5708104788690925`*^9, 3.5708104825818987`*^9}, {3.5708105169643593`*^9, 
  3.570810517884761*^9}, {3.570810561767638*^9, 3.5708105625476394`*^9}, {
  3.5708106179589367`*^9, 3.570810645648985*^9}, {3.5708552812279787`*^9, 
  3.570855300572013*^9}}],

Cell[BoxData["270.2116773698183`"], "Output",
 CellChangeTimes->{3.5710453159688396`*^9}],

Cell[BoxData["187.60906622216044`"], "Output",
 CellChangeTimes->{3.5710453159688396`*^9}],

Cell[BoxData[
 RowBox[{"-", "853.6908990545813`"}]], "Output",
 CellChangeTimes->{3.5710453159688396`*^9}],

Cell[BoxData[
 RowBox[{"-", "395.8701554626026`"}]], "Output",
 CellChangeTimes->{3.57104531598444*^9}],

Cell[BoxData["198.1807381995501`"], "Output",
 CellChangeTimes->{3.57104531598444*^9}],

Cell[BoxData["1.9975208441498342`"], "Output",
 CellChangeTimes->{3.57104531598444*^9}],

Cell[BoxData[
 RowBox[{"-", "197.68941726305252`"}]], "Output",
 CellChangeTimes->{3.57104531598444*^9}]
}, Open  ]]
},
WindowSize->{1409, 939},
WindowMargins->{{Automatic, 60}, {Automatic, 15}},
PrintingCopies->1,
PrintingPageRange->{32000, 32000},
PrintingOptions->{"Magnification"->1.,
"PaperOrientation"->"Portrait",
"PaperSize"->{595.2, 841.8}},
FrontEndVersion->"9.0 for Microsoft Windows (64-bit) (January 25, 2013)",
StyleDefinitions->"Default.nb"
]
(* End of Notebook Content *)

(* Internal cache information *)
(*CellTagsOutline
CellTagsIndex->{}
*)
(*CellTagsIndex
CellTagsIndex->{}
*)
(*NotebookFileOutline
Notebook[{
Cell[557, 20, 1480, 27, 52, "Input"],
Cell[CellGroupData[{
Cell[2062, 51, 501, 9, 52, "Input"],
Cell[2566, 62, 2456, 45, 210, "Output"]
}, Open  ]],
Cell[CellGroupData[{
Cell[5059, 112, 848, 17, 52, "Input"],
Cell[5910, 131, 2305, 60, 281, "Output"]
}, Open  ]],
Cell[CellGroupData[{
Cell[8252, 196, 776, 12, 31, "Input"],
Cell[9031, 210, 419, 7, 31, "Output"]
}, Open  ]],
Cell[CellGroupData[{
Cell[9487, 222, 955, 14, 31, "Input"],
Cell[10445, 238, 73, 1, 31, "Output"]
}, Open  ]],
Cell[CellGroupData[{
Cell[10555, 244, 1560, 29, 31, "Input"],
Cell[12118, 275, 417, 7, 31, "Output"]
}, Open  ]],
Cell[12550, 285, 1390, 22, 31, "Input"],
Cell[13943, 309, 1566, 28, 31, "Input"],
Cell[CellGroupData[{
Cell[15534, 341, 1234, 18, 31, "Input"],
Cell[16771, 361, 1242, 37, 31, "Output"]
}, Open  ]],
Cell[CellGroupData[{
Cell[18050, 403, 697, 14, 31, "Input"],
Cell[18750, 419, 286, 6, 31, "Output"]
}, Open  ]],
Cell[19051, 428, 908, 24, 31, "Input"],
Cell[CellGroupData[{
Cell[19984, 456, 5635, 122, 52, "Input"],
Cell[25622, 580, 343, 7, 31, "Output"],
Cell[25968, 589, 348, 7, 31, "Output"]
}, Open  ]],
Cell[CellGroupData[{
Cell[26353, 601, 519, 12, 31, "Input"],
Cell[26875, 615, 417, 7, 31, "Output"]
}, Open  ]],
Cell[CellGroupData[{
Cell[27329, 627, 1401, 38, 31, "Input"],
Cell[28733, 667, 310, 6, 31, "Output"]
}, Open  ]],
Cell[CellGroupData[{
Cell[29080, 678, 827, 23, 92, "Input"],
Cell[29910, 703, 70, 1, 31, "Output"],
Cell[29983, 706, 71, 1, 31, "Output"]
}, Open  ]],
Cell[CellGroupData[{
Cell[30091, 712, 451, 8, 52, "Input"],
Cell[30545, 722, 89, 1, 31, "Output"]
}, Open  ]],
Cell[30649, 726, 1824, 35, 72, "Input"],
Cell[32476, 763, 935, 19, 31, "Input"],
Cell[33414, 784, 4271, 83, 92, "Input"],
Cell[37688, 869, 3292, 57, 31, "Input"],
Cell[CellGroupData[{
Cell[41005, 930, 444, 8, 52, "Input"],
Cell[41452, 940, 11279, 277, 91, "Output"]
}, Open  ]],
Cell[52746, 1220, 2567, 59, 52, "Input"],
Cell[55316, 1281, 1254, 35, 72, "Input"],
Cell[CellGroupData[{
Cell[56595, 1320, 4783, 85, 72, "Input"],
Cell[61381, 1407, 3698, 65, 281, "Output"]
}, Open  ]],
Cell[CellGroupData[{
Cell[65116, 1477, 2506, 53, 112, "Input"],
Cell[67625, 1532, 70, 1, 31, "Output"]
}, Open  ]],
Cell[CellGroupData[{
Cell[67732, 1538, 2272, 46, 72, "Input"],
Cell[70007, 1586, 147, 3, 31, "Output"]
}, Open  ]],
Cell[70169, 1592, 6123, 156, 152, "Input"],
Cell[CellGroupData[{
Cell[76317, 1752, 3596, 80, 112, "Input"],
Cell[79916, 1834, 382, 7, 31, "Output"]
}, Open  ]],
Cell[80313, 1844, 2072, 49, 112, "Input"],
Cell[82388, 1895, 561, 12, 52, "Input"],
Cell[82952, 1909, 2148, 49, 92, "Input"],
Cell[85103, 1960, 2452, 56, 92, "Input"],
Cell[87558, 2018, 1759, 41, 72, "Input"],
Cell[CellGroupData[{
Cell[89342, 2063, 923, 20, 31, "Input"],
Cell[90268, 2085, 88, 1, 31, "Output"]
}, Open  ]],
Cell[CellGroupData[{
Cell[90393, 2091, 711, 18, 31, "Input"],
Cell[91107, 2111, 88, 1, 31, "Output"]
}, Open  ]],
Cell[CellGroupData[{
Cell[91232, 2117, 507, 10, 31, "Input"],
Cell[91742, 2129, 89, 1, 31, "Output"]
}, Open  ]],
Cell[CellGroupData[{
Cell[91868, 2135, 823, 23, 31, "Input"],
Cell[92694, 2160, 89, 1, 31, "Output"]
}, Open  ]],
Cell[CellGroupData[{
Cell[92820, 2166, 204, 4, 31, "Input"],
Cell[93027, 2172, 89, 1, 31, "Output"]
}, Open  ]],
Cell[93131, 2176, 1971, 35, 92, "Input"],
Cell[CellGroupData[{
Cell[95127, 2215, 1770, 24, 31, "Input"],
Cell[96900, 2241, 4173, 73, 296, "Output"]
}, Open  ]],
Cell[101088, 2317, 1655, 24, 31, "Input"],
Cell[102746, 2343, 3760, 76, 72, "Input"],
Cell[106509, 2421, 2696, 53, 92, "Input"],
Cell[CellGroupData[{
Cell[109230, 2478, 939, 17, 72, "Input"],
Cell[110172, 2497, 1498, 36, 52, "Output"],
Cell[111673, 2535, 73, 1, 31, "Output"],
Cell[111749, 2538, 72, 1, 31, "Output"]
}, Open  ]],
Cell[111836, 2542, 10201, 233, 72, "Input"],
Cell[122040, 2777, 6352, 102, 31, "Input"],
Cell[128395, 2881, 10215, 234, 72, "Input"],
Cell[138613, 3117, 5925, 93, 31, "Input"],
Cell[CellGroupData[{
Cell[144563, 3214, 8525, 151, 112, "Input"],
Cell[153091, 3367, 8269, 148, 375, "Output"],
Cell[161363, 3517, 23507, 386, 375, 6035, 98, "CachedBoxData", "BoxData", \
"Output"]
}, Open  ]],
Cell[CellGroupData[{
Cell[184907, 3908, 3879, 89, 152, "Input"],
Cell[188789, 3999, 73, 1, 31, "Output"],
Cell[188865, 4002, 2840, 70, 341, "Output"]
}, Open  ]],
Cell[191720, 4075, 3049, 67, 72, "Input"],
Cell[194772, 4144, 1841, 29, 52, "Input"],
Cell[CellGroupData[{
Cell[196638, 4177, 3517, 75, 112, "Input"],
Cell[200158, 4254, 2390, 64, 341, "Output"]
}, Open  ]],
Cell[CellGroupData[{
Cell[202585, 4323, 6437, 145, 132, "Input"],
Cell[209025, 4470, 748, 24, 31, "Output"],
Cell[209776, 4496, 364, 7, 31, "Output"]
}, Open  ]],
Cell[210155, 4506, 1863, 27, 31, "Input"],
Cell[CellGroupData[{
Cell[212043, 4537, 2963, 56, 112, "Input"],
Cell[215009, 4595, 87, 1, 31, "Output"]
}, Open  ]],
Cell[CellGroupData[{
Cell[215133, 4601, 2687, 57, 112, "Input"],
Cell[217823, 4660, 89, 1, 31, "Output"]
}, Open  ]],
Cell[CellGroupData[{
Cell[217949, 4666, 499, 15, 52, "Input"],
Cell[218451, 4683, 104, 2, 31, "Output"]
}, Open  ]],
Cell[218570, 4688, 1381, 21, 31, "Input"],
Cell[CellGroupData[{
Cell[219976, 4713, 1709, 32, 52, "Input"],
Cell[221688, 4747, 103, 2, 31, "Output"]
}, Open  ]],
Cell[CellGroupData[{
Cell[221828, 4754, 1415, 43, 72, "Input"],
Cell[223246, 4799, 103, 2, 31, "Output"]
}, Open  ]],
Cell[CellGroupData[{
Cell[223386, 4806, 2550, 50, 92, "Input"],
Cell[225939, 4858, 87, 1, 31, "Output"]
}, Open  ]],
Cell[CellGroupData[{
Cell[226063, 4864, 1351, 23, 172, "Input"],
Cell[227417, 4889, 89, 1, 31, "Output"],
Cell[227509, 4892, 90, 1, 31, "Output"],
Cell[227602, 4895, 106, 2, 31, "Output"],
Cell[227711, 4899, 103, 2, 31, "Output"],
Cell[227817, 4903, 86, 1, 31, "Output"],
Cell[227906, 4906, 87, 1, 31, "Output"],
Cell[227996, 4909, 104, 2, 63, "Output"]
}, Open  ]]
}
]
*)

(* End of internal cache information *)