(* 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[    424730,       8436]
NotebookOptionsPosition[    417400,       8217]
NotebookOutlinePosition[    417937,       8238]
CellTagsIndexPosition[    417894,       8235]
WindowFrame->Normal*)

(* Beginning of Notebook Content *)
Notebook[{
Cell[BoxData[
 RowBox[{
  RowBox[{"(*", " ", 
   RowBox[{
    RowBox[{
     RowBox[{
     "Kimball", " ", "model", " ", "and", " ", "energy", " ", "derived", " ", 
      "from", " ", "Facio"}], "-", 
     RowBox[{"PDB", " ", "source"}]}], ",", " ", 
    RowBox[{"ES", " ", "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}}],

Cell[BoxData[
 RowBox[{
  RowBox[{"t1", "=", 
   RowBox[{"1.889726", "*", 
    RowBox[{"{", 
     RowBox[{
      RowBox[{"{", 
       RowBox[{"0.779000", ",", "6.964000", ",", 
        RowBox[{"-", "0.134000"}]}], "}"}], ",", 
      RowBox[{"{", 
       RowBox[{
        RowBox[{"-", "0.635000"}], ",", "6.488000", ",", "0.167000"}], "}"}], 
      ",", 
      RowBox[{"{", 
       RowBox[{
        RowBox[{"-", "1.620000"}], ",", "7.528000", ",", 
        RowBox[{"-", "0.364000"}]}], "}"}], ",", 
      RowBox[{"{", 
       RowBox[{
        RowBox[{"-", "1.381000"}], ",", "8.740000", ",", "0.350000"}], "}"}], 
      ",", 
      RowBox[{"{", 
       RowBox[{
        RowBox[{"-", "0.104000"}], ",", "9.287000", ",", "0.052000"}], "}"}], 
      ",", 
      RowBox[{"{", 
       RowBox[{"0.977000", ",", "8.324000", ",", "0.518000"}], "}"}], ",", 
      RowBox[{"{", 
       RowBox[{"0.942000", ",", "7.032000", ",", 
        RowBox[{"-", "1.231000"}]}], "}"}], ",", 
      RowBox[{"{", 
       RowBox[{"1.737000", ",", "6.076000", ",", "0.457000"}], "}"}], ",", 
      RowBox[{"{", 
       RowBox[{
        RowBox[{"-", "0.775000"}], ",", "6.374000", ",", "1.261000"}], "}"}], 
      ",", 
      RowBox[{"{", 
       RowBox[{
        RowBox[{"-", "0.907000"}], ",", "5.270000", ",", 
        RowBox[{"-", "0.529000"}]}], "}"}], ",", 
      RowBox[{"{", 
       RowBox[{
        RowBox[{"-", "3.084000"}], ",", "7.130000", ",", 
        RowBox[{"-", "0.166000"}]}], "}"}], ",", 
      RowBox[{"{", 
       RowBox[{
        RowBox[{"-", "1.453000"}], ",", "7.696000", ",", 
        RowBox[{"-", "1.450000"}]}], "}"}], ",", 
      RowBox[{"{", 
       RowBox[{
        RowBox[{"-", "0.083000"}], ",", "10.493000", ",", "0.819000"}], "}"}],
       ",", 
      RowBox[{"{", 
       RowBox[{
        RowBox[{"-", "0.011000"}], ",", "9.521000", ",", 
        RowBox[{"-", "1.026000"}]}], "}"}], ",", 
      RowBox[{"{", 
       RowBox[{"2.253000", ",", "8.828000", ",", "0.104000"}], "}"}], ",", 
      RowBox[{"{", 
       RowBox[{"0.948000", ",", "8.223000", ",", "1.624000"}], "}"}], ",", 
      RowBox[{"{", 
       RowBox[{"2.889000", ",", "8.151000", ",", "0.304000"}], "}"}], ",", 
      RowBox[{"{", 
       RowBox[{"1.596000", ",", "5.219000", ",", "0.067000"}], "}"}], ",", 
      RowBox[{"{", 
       RowBox[{
        RowBox[{"-", "0.762000"}], ",", "4.087000", ",", "0.249000"}], "}"}], 
      ",", 
      RowBox[{"{", 
       RowBox[{
        RowBox[{"-", "3.740000"}], ",", "8.018000", ",", 
        RowBox[{"-", "0.271000"}]}], "}"}], ",", 
      RowBox[{"{", 
       RowBox[{
        RowBox[{"-", "3.294000"}], ",", "6.541000", ",", "1.126000"}], "}"}], 
      ",", 
      RowBox[{"{", 
       RowBox[{
        RowBox[{"-", "3.397000"}], ",", "6.416000", ",", 
        RowBox[{"-", "0.958000"}]}], "}"}], ",", 
      RowBox[{"{", 
       RowBox[{
        RowBox[{"-", "3.253000"}], ",", "5.592000", ",", "1.019000"}], "}"}], 
      ",", 
      RowBox[{"{", 
       RowBox[{
        RowBox[{"-", "0.225000"}], ",", "10.283000", ",", "1.731000"}], "}"}],
       ",", 
      RowBox[{"{", 
       RowBox[{
        RowBox[{"-", "1.875000"}], ",", "3.130000", ",", 
        RowBox[{"-", "0.139000"}]}], "}"}], ",", 
      RowBox[{"{", 
       RowBox[{
        RowBox[{"-", "1.614000"}], ",", "1.754000", ",", "0.451000"}], "}"}], 
      ",", 
      RowBox[{"{", 
       RowBox[{
        RowBox[{"-", "0.232000"}], ",", "1.297000", ",", "0.007000"}], "}"}], 
      ",", 
      RowBox[{"{", 
       RowBox[{"0.790000", ",", "2.330000", ",", "0.477000"}], "}"}], ",", 
      RowBox[{"{", 
       RowBox[{"2.234000", ",", "1.944000", ",", "0.150000"}], "}"}], ",", 
      RowBox[{"{", 
       RowBox[{
        RowBox[{"-", "3.098000"}], ",", "3.633000", ",", "0.418000"}], "}"}], 
      ",", 
      RowBox[{"{", 
       RowBox[{
        RowBox[{"-", "2.624000"}], ",", "0.881000", ",", 
        RowBox[{"-", "0.074000"}]}], "}"}], ",", 
      RowBox[{"{", 
       RowBox[{"0.110000", ",", "0.065000", ",", "0.644000"}], "}"}], ",", 
      RowBox[{"{", 
       RowBox[{"0.485000", ",", "3.560000", ",", 
        RowBox[{"-", "0.179000"}]}], "}"}], ",", 
      RowBox[{"{", 
       RowBox[{"2.338000", ",", "1.398000", ",", 
        RowBox[{"-", "1.174000"}]}], "}"}], ",", 
      RowBox[{"{", 
       RowBox[{
        RowBox[{"-", "0.766000"}], ",", "4.286000", ",", "1.338000"}], "}"}], 
      ",", 
      RowBox[{"{", 
       RowBox[{
        RowBox[{"-", "1.954000"}], ",", "3.066000", ",", 
        RowBox[{"-", "1.244000"}]}], "}"}], ",", 
      RowBox[{"{", 
       RowBox[{
        RowBox[{"-", "1.675000"}], ",", "1.789000", ",", "1.561000"}], "}"}], 
      ",", 
      RowBox[{"{", 
       RowBox[{
        RowBox[{"-", "0.192000"}], ",", "1.214000", ",", 
        RowBox[{"-", "1.099000"}]}], "}"}], ",", 
      RowBox[{"{", 
       RowBox[{"0.716000", ",", "2.468000", ",", "1.578000"}], "}"}], ",", 
      RowBox[{"{", 
       RowBox[{"2.895000", ",", "2.831000", ",", "0.229000"}], "}"}], ",", 
      RowBox[{"{", 
       RowBox[{"2.611000", ",", "1.206000", ",", "0.890000"}], "}"}], ",", 
      RowBox[{"{", 
       RowBox[{
        RowBox[{"-", "3.758000"}], ",", "2.969000", ",", "0.252000"}], "}"}], 
      ",", 
      RowBox[{"{", 
       RowBox[{
        RowBox[{"-", "2.436000"}], ",", "0.008000", ",", "0.259000"}], "}"}], 
      ",", 
      RowBox[{"{", 
       RowBox[{
        RowBox[{"-", "0.079000"}], ",", 
        RowBox[{"-", "1.099000"}], ",", 
        RowBox[{"-", "0.152000"}]}], "}"}], ",", 
      RowBox[{"{", 
       RowBox[{"2.321000", ",", "0.447000", ",", 
        RowBox[{"-", "1.094000"}]}], "}"}], ",", 
      RowBox[{"{", 
       RowBox[{"1.064000", ",", 
        RowBox[{"-", "2.056000"}], ",", "0.142000"}], "}"}], ",", 
      RowBox[{"{", 
       RowBox[{"0.770000", ",", 
        RowBox[{"-", "3.425000"}], ",", 
        RowBox[{"-", "0.450000"}]}], "}"}], ",", 
      RowBox[{"{", 
       RowBox[{
        RowBox[{"-", "0.574000"}], ",", 
        RowBox[{"-", "3.895000"}], ",", "0.088000"}], "}"}], ",", 
      RowBox[{"{", 
       RowBox[{
        RowBox[{"-", "1.633000"}], ",", 
        RowBox[{"-", "2.866000"}], ",", 
        RowBox[{"-", "0.302000"}]}], "}"}], ",", 
      RowBox[{"{", 
       RowBox[{
        RowBox[{"-", "3.047000"}], ",", 
        RowBox[{"-", "3.262000"}], ",", "0.123000"}], "}"}], ",", 
      RowBox[{"{", 
       RowBox[{"2.242000", ",", 
        RowBox[{"-", "1.534000"}], ",", 
        RowBox[{"-", "0.492000"}]}], "}"}], ",", 
      RowBox[{"{", 
       RowBox[{"1.815000", ",", 
        RowBox[{"-", "4.304000"}], ",", 
        RowBox[{"-", "0.013000"}]}], "}"}], ",", 
      RowBox[{"{", 
       RowBox[{
        RowBox[{"-", "0.943000"}], ",", 
        RowBox[{"-", "5.128000"}], ",", 
        RowBox[{"-", "0.533000"}]}], "}"}], ",", 
      RowBox[{"{", 
       RowBox[{
        RowBox[{"-", "1.293000"}], ",", 
        RowBox[{"-", "1.641000"}], ",", "0.347000"}], "}"}], ",", 
      RowBox[{"{", 
       RowBox[{
        RowBox[{"-", "3.056000"}], ",", 
        RowBox[{"-", "3.779000"}], ",", "1.463000"}], "}"}], ",", 
      RowBox[{"{", 
       RowBox[{
        RowBox[{"-", "0.148000"}], ",", 
        RowBox[{"-", "0.876000"}], ",", 
        RowBox[{"-", "1.233000"}]}], "}"}], ",", 
      RowBox[{"{", 
       RowBox[{"1.220000", ",", 
        RowBox[{"-", "2.135000"}], ",", "1.238000"}], "}"}], ",", 
      RowBox[{"{", 
       RowBox[{"0.751000", ",", 
        RowBox[{"-", "3.373000"}], ",", 
        RowBox[{"-", "1.559000"}]}], "}"}], ",", 
      RowBox[{"{", 
       RowBox[{
        RowBox[{"-", "0.534000"}], ",", 
        RowBox[{"-", "3.984000"}], ",", "1.192000"}], "}"}], ",", 
      RowBox[{"{", 
       RowBox[{
        RowBox[{"-", "1.635000"}], ",", 
        RowBox[{"-", "2.715000"}], ",", 
        RowBox[{"-", "1.404000"}]}], "}"}], ",", 
      RowBox[{"{", 
       RowBox[{
        RowBox[{"-", "3.725000"}], ",", 
        RowBox[{"-", "2.385000"}], ",", "0.069000"}], "}"}], ",", 
      RowBox[{"{", 
       RowBox[{
        RowBox[{"-", "3.461000"}], ",", 
        RowBox[{"-", "4.020000"}], ",", 
        RowBox[{"-", "0.576000"}]}], "}"}], ",", 
      RowBox[{"{", 
       RowBox[{"2.919000", ",", 
        RowBox[{"-", "2.189000"}], ",", 
        RowBox[{"-", "0.375000"}]}], "}"}], ",", 
      RowBox[{"{", 
       RowBox[{"1.581000", ",", 
        RowBox[{"-", "5.178000"}], ",", 
        RowBox[{"-", "0.311000"}]}], "}"}], ",", 
      RowBox[{"{", 
       RowBox[{
        RowBox[{"-", "0.713000"}], ",", 
        RowBox[{"-", "6.288000"}], ",", "0.260000"}], "}"}], ",", 
      RowBox[{"{", 
       RowBox[{
        RowBox[{"-", "3.061000"}], ",", 
        RowBox[{"-", "4.731000"}], ",", "1.401000"}], "}"}], ",", 
      RowBox[{"{", 
       RowBox[{
        RowBox[{"-", "1.885000"}], ",", 
        RowBox[{"-", "7.232000"}], ",", "0.065000"}], "}"}], ",", 
      RowBox[{"{", 
       RowBox[{
        RowBox[{"-", "1.563000"}], ",", 
        RowBox[{"-", "8.576000"}], ",", "0.689000"}], "}"}], ",", 
      RowBox[{"{", 
       RowBox[{
        RowBox[{"-", "0.270000"}], ",", 
        RowBox[{"-", "9.093000"}], ",", "0.081000"}], "}"}], ",", 
      RowBox[{"{", 
       RowBox[{"0.840000", ",", 
        RowBox[{"-", "8.072000"}], ",", "0.320000"}], "}"}], ",", 
      RowBox[{"{", 
       RowBox[{"2.186000", ",", 
        RowBox[{"-", "8.499000"}], ",", 
        RowBox[{"-", "0.259000"}]}], "}"}], ",", 
      RowBox[{"{", 
       RowBox[{
        RowBox[{"-", "3.016000"}], ",", 
        RowBox[{"-", "6.681000"}], ",", "0.755000"}], "}"}], ",", 
      RowBox[{"{", 
       RowBox[{
        RowBox[{"-", "2.634000"}], ",", 
        RowBox[{"-", "9.474000"}], ",", "0.365000"}], "}"}], ",", 
      RowBox[{"{", 
       RowBox[{"0.056000", ",", 
        RowBox[{"-", "10.316000"}], ",", "0.757000"}], "}"}], ",", 
      RowBox[{"{", 
       RowBox[{"0.454000", ",", 
        RowBox[{"-", "6.852000"}], ",", 
        RowBox[{"-", "0.319000"}]}], "}"}], ",", 
      RowBox[{"{", 
       RowBox[{"2.012000", ",", 
        RowBox[{"-", "8.989000"}], ",", 
        RowBox[{"-", "1.595000"}]}], "}"}], ",", 
      RowBox[{"{", 
       RowBox[{
        RowBox[{"-", "0.559000"}], ",", 
        RowBox[{"-", "6.055000"}], ",", "1.331000"}], "}"}], ",", 
      RowBox[{"{", 
       RowBox[{
        RowBox[{"-", "2.111000"}], ",", 
        RowBox[{"-", "7.348000"}], ",", 
        RowBox[{"-", "1.016000"}]}], "}"}], ",", 
      RowBox[{"{", 
       RowBox[{
        RowBox[{"-", "1.463000"}], ",", 
        RowBox[{"-", "8.478000"}], ",", "1.791000"}], "}"}], ",", 
      RowBox[{"{", 
       RowBox[{
        RowBox[{"-", "0.413000"}], ",", 
        RowBox[{"-", "9.272000"}], ",", 
        RowBox[{"-", "1.006000"}]}], "}"}], ",", 
      RowBox[{"{", 
       RowBox[{"0.970000", ",", 
        RowBox[{"-", "7.895000"}], ",", "1.409000"}], "}"}], ",", 
      RowBox[{"{", 
       RowBox[{"2.896000", ",", 
        RowBox[{"-", "7.645000"}], ",", 
        RowBox[{"-", "0.257000"}]}], "}"}], ",", 
      RowBox[{"{", 
       RowBox[{"2.637000", ",", 
        RowBox[{"-", "9.298000"}], ",", "0.365000"}], "}"}], ",", 
      RowBox[{"{", 
       RowBox[{
        RowBox[{"-", "3.701000"}], ",", 
        RowBox[{"-", "7.338000"}], ",", "0.710000"}], "}"}], ",", 
      RowBox[{"{", 
       RowBox[{
        RowBox[{"-", "2.359000"}], ",", 
        RowBox[{"-", "10.336000"}], ",", "0.651000"}], "}"}], ",", 
      RowBox[{"{", 
       RowBox[{"0.219000", ",", 
        RowBox[{"-", "10.106000"}], ",", "1.667000"}], "}"}], ",", 
      RowBox[{"{", 
       RowBox[{"1.857000", ",", 
        RowBox[{"-", "9.923000"}], ",", 
        RowBox[{"-", "1.555000"}]}], "}"}]}], "}"}]}]}], ";"}]], "Input",
 CellChangeTimes->{
  3.57029749846047*^9, {3.570297893562364*^9, 3.5702979152152023`*^9}}],

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["87"], "Output",
 CellChangeTimes->{3.5703420340523496`*^9, 3.5703421633141766`*^9, 
  3.5703425121151896`*^9, 3.570342889058652*^9}]
}, Open  ]],

Cell[BoxData[
 RowBox[{
  RowBox[{"u", "=", " ", 
   RowBox[{"{", 
    RowBox[{
    "\"\<C\>\"", ",", "\"\<C\>\"", ",", "\"\<C\>\"", ",", "\"\<O\>\"", ",", 
     "\"\<C\>\"", ",", "\"\<C\>\"", ",", "\"\<H\>\"", ",", "\"\<O\>\"", ",", 
     "\"\<H\>\"", ",", "\"\<O\>\"", ",", "\"\<C\>\"", ",", "\"\<H\>\"", ",", 
     "\"\<O\>\"", ",", "\"\<H\>\"", ",", "\"\<O\>\"", ",", "\"\<H\>\"", ",", 
     "\"\<H\>\"", ",", "\"\<H\>\"", ",", "\"\<C\>\"", ",", "\"\<H\>\"", ",", 
     "\"\<O\>\"", ",", "\"\<H\>\"", ",", "\"\<H\>\"", ",", "\"\<H\>\"", ",", 
     "\"\<C\>\"", ",", "\"\<C\>\"", ",", "\"\<C\>\"", ",", "\"\<C\>\"", ",", 
     "\"\<C\>\"", ",", "\"\<O\>\"", ",", "\"\<O\>\"", ",", "\"\<O\>\"", ",", 
     "\"\<O\>\"", ",", "\"\<O\>\"", ",", "\"\<H\>\"", ",", "\"\<H\>\"", ",", 
     "\"\<H\>\"", ",", "\"\<H\>\"", ",", "\"\<H\>\"", ",", "\"\<H\>\"", ",", 
     "\"\<H\>\"", ",", "\"\<H\>\"", ",", "\"\<H\>\"", ",", "\"\<C\>\"", ",", 
     "\"\<H\>\"", ",", "\"\<C\>\"", ",", "\"\<C\>\"", ",", "\"\<C\>\"", ",", 
     "\"\<C\>\"", ",", "\"\<C\>\"", ",", "\"\<O\>\"", ",", "\"\<O\>\"", ",", 
     "\"\<O\>\"", ",", "\"\<O\>\"", ",", "\"\<O\>\"", ",", "\"\<H\>\"", ",", 
     "\"\<H\>\"", ",", "\"\<H\>\"", ",", "\"\<H\>\"", ",", "\"\<H\>\"", ",", 
     "\"\<H\>\"", ",", "\"\<H\>\"", ",", "\"\<H\>\"", ",", "\"\<H\>\"", ",", 
     "\"\<C\>\"", ",", "\"\<H\>\"", ",", "\"\<C\>\"", ",", "\"\<C\>\"", ",", 
     "\"\<C\>\"", ",", "\"\<C\>\"", ",", "\"\<C\>\"", ",", "\"\<O\>\"", ",", 
     "\"\<O\>\"", ",", "\"\<O\>\"", ",", "\"\<O\>\"", ",", "\"\<O\>\"", ",", 
     "\"\<H\>\"", ",", "\"\<H\>\"", ",", "\"\<H\>\"", ",", "\"\<H\>\"", ",", 
     "\"\<H\>\"", ",", "\"\<H\>\"", ",", "\"\<H\>\"", ",", "\"\<H\>\"", ",", 
     "\"\<H\>\"", ",", "\"\<H\>\"", ",", "\"\<H\>\""}], "}"}]}], 
  ";"}]], "Input",
 CellChangeTimes->{{3.567862912170579*^9, 3.567862949329844*^9}, {
   3.5678630095303497`*^9, 3.5678630107471523`*^9}, {3.5679573013548217`*^9, 
   3.5679573132576427`*^9}, 3.568114367533684*^9, {3.5682782383334675`*^9, 
   3.5682782435438766`*^9}, {3.568381606879155*^9, 3.5683816154123707`*^9}, 
   3.5688204675481253`*^9, {3.5688215945097046`*^9, 3.568821600578115*^9}, 
   3.568873215924739*^9, 3.5689108676002645`*^9, 3.5689997098393545`*^9, 
   3.5689998170271425`*^9, 3.5689998869308653`*^9, 3.5691460425981283`*^9, {
   3.5692345679268913`*^9, 3.5692345778017087`*^9}, {3.5692346191261816`*^9, 
   3.569234623525389*^9}, {3.5692348865282516`*^9, 3.5692349162463036`*^9}, {
   3.569234950394764*^9, 3.569234972609203*^9}, 3.569235038176118*^9, {
   3.5692351317918825`*^9, 3.5692352122724237`*^9}, {3.5692354169603834`*^9, 
   3.5692354469124355`*^9}, {3.569237150310628*^9, 3.5692371574866405`*^9}, 
   3.569237204505123*^9, 3.5692374658211823`*^9, 3.5692377287596436`*^9, {
   3.5692377715661187`*^9, 3.569237804872177*^9}, 3.56923802261736*^9, {
   3.5692382720773983`*^9, 3.569238274901003*^9}, {3.5693394646825705`*^9, 
   3.56933951020345*^9}, 3.5693403424025126`*^9, 3.5693404501831017`*^9, 
   3.569340738003607*^9, 3.569340852819809*^9, {3.569341165475558*^9, 
   3.569341165491158*^9}, 3.5693414971477404`*^9, {3.5693417327081537`*^9, 
   3.5693417367797613`*^9}, 3.5693420227750635`*^9, 3.569342614406103*^9, 
   3.569343567162176*^9, 3.569343662712344*^9, 3.5693437636133213`*^9, 
   3.5693440705226603`*^9, 3.569344266225004*^9, 3.570297362724632*^9, 
   3.570297460505604*^9}],

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\"\>", ",", "\<\"O\"\>", 
   ",", "\<\"C\"\>", ",", "\<\"C\"\>", ",", "\<\"Z\"\>", ",", "\<\"O\"\>", 
   ",", "\<\"Z\"\>", ",", "\<\"O\"\>", ",", "\<\"C\"\>", ",", "\<\"Z\"\>", 
   ",", "\<\"O\"\>", ",", "\<\"Z\"\>", ",", "\<\"O\"\>", ",", "\<\"Z\"\>", 
   ",", "\<\"Z\"\>", ",", "\<\"Z\"\>", ",", "\<\"C\"\>", ",", "\<\"Z\"\>", 
   ",", "\<\"O\"\>", ",", "\<\"Z\"\>", ",", "\<\"Z\"\>", ",", "\<\"Z\"\>", 
   ",", "\<\"C\"\>", ",", "\<\"C\"\>", ",", "\<\"C\"\>", ",", "\<\"C\"\>", 
   ",", "\<\"C\"\>", ",", "\<\"O\"\>", ",", "\<\"O\"\>", ",", "\<\"O\"\>", 
   ",", "\<\"O\"\>", ",", "\<\"O\"\>", ",", "\<\"Z\"\>", ",", "\<\"Z\"\>", 
   ",", "\<\"Z\"\>", ",", "\<\"Z\"\>", ",", "\<\"Z\"\>", ",", "\<\"Z\"\>", 
   ",", "\<\"Z\"\>", ",", "\<\"Z\"\>", ",", "\<\"Z\"\>", ",", "\<\"C\"\>", 
   ",", "\<\"Z\"\>", ",", "\<\"C\"\>", ",", "\<\"C\"\>", ",", "\<\"C\"\>", 
   ",", "\<\"C\"\>", ",", "\<\"C\"\>", ",", "\<\"O\"\>", ",", "\<\"O\"\>", 
   ",", "\<\"O\"\>", ",", "\<\"O\"\>", ",", "\<\"O\"\>", ",", "\<\"Z\"\>", 
   ",", "\<\"Z\"\>", ",", "\<\"Z\"\>", ",", "\<\"Z\"\>", ",", "\<\"Z\"\>", 
   ",", "\<\"Z\"\>", ",", "\<\"Z\"\>", ",", "\<\"Z\"\>", ",", "\<\"Z\"\>", 
   ",", "\<\"C\"\>", ",", "\<\"Z\"\>", ",", "\<\"C\"\>", ",", "\<\"C\"\>", 
   ",", "\<\"C\"\>", ",", "\<\"C\"\>", ",", "\<\"C\"\>", ",", "\<\"O\"\>", 
   ",", "\<\"O\"\>", ",", "\<\"O\"\>", ",", "\<\"O\"\>", ",", "\<\"O\"\>", 
   ",", "\<\"Z\"\>", ",", "\<\"Z\"\>", ",", "\<\"Z\"\>", ",", "\<\"Z\"\>", 
   ",", "\<\"Z\"\>", ",", "\<\"Z\"\>", ",", "\<\"Z\"\>", ",", "\<\"Z\"\>", 
   ",", "\<\"Z\"\>", ",", "\<\"Z\"\>", ",", "\<\"Z\"\>"}], "}"}]], "Output",
 CellChangeTimes->{3.57034203406795*^9, 3.570342163329777*^9, 
  3.5703425121307898`*^9, 3.5703428890898514`*^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\"\>", ",", "5"}], "}"}], ",", 
   RowBox[{"{", 
    RowBox[{"\<\"C\"\>", ",", "6"}], "}"}], ",", 
   RowBox[{"{", 
    RowBox[{"\<\"C\"\>", ",", "11"}], "}"}], ",", 
   RowBox[{"{", 
    RowBox[{"\<\"C\"\>", ",", "19"}], "}"}], ",", 
   RowBox[{"{", 
    RowBox[{"\<\"C\"\>", ",", "25"}], "}"}], ",", 
   RowBox[{"{", 
    RowBox[{"\<\"C\"\>", ",", "26"}], "}"}], ",", 
   RowBox[{"{", 
    RowBox[{"\<\"C\"\>", ",", "27"}], "}"}], ",", 
   RowBox[{"{", 
    RowBox[{"\<\"C\"\>", ",", "28"}], "}"}], ",", 
   RowBox[{"{", 
    RowBox[{"\<\"C\"\>", ",", "29"}], "}"}], ",", 
   RowBox[{"{", 
    RowBox[{"\<\"C\"\>", ",", "44"}], "}"}], ",", 
   RowBox[{"{", 
    RowBox[{"\<\"C\"\>", ",", "46"}], "}"}], ",", 
   RowBox[{"{", 
    RowBox[{"\<\"C\"\>", ",", "47"}], "}"}], ",", 
   RowBox[{"{", 
    RowBox[{"\<\"C\"\>", ",", "48"}], "}"}], ",", 
   RowBox[{"{", 
    RowBox[{"\<\"C\"\>", ",", "49"}], "}"}], ",", 
   RowBox[{"{", 
    RowBox[{"\<\"C\"\>", ",", "50"}], "}"}], ",", 
   RowBox[{"{", 
    RowBox[{"\<\"C\"\>", ",", "65"}], "}"}], ",", 
   RowBox[{"{", 
    RowBox[{"\<\"C\"\>", ",", "67"}], "}"}], ",", 
   RowBox[{"{", 
    RowBox[{"\<\"C\"\>", ",", "68"}], "}"}], ",", 
   RowBox[{"{", 
    RowBox[{"\<\"C\"\>", ",", "69"}], "}"}], ",", 
   RowBox[{"{", 
    RowBox[{"\<\"C\"\>", ",", "70"}], "}"}], ",", 
   RowBox[{"{", 
    RowBox[{"\<\"C\"\>", ",", "71"}], "}"}], ",", 
   RowBox[{"{", 
    RowBox[{"\<\"O\"\>", ",", "4"}], "}"}], ",", 
   RowBox[{"{", 
    RowBox[{"\<\"O\"\>", ",", "8"}], "}"}], ",", 
   RowBox[{"{", 
    RowBox[{"\<\"O\"\>", ",", "10"}], "}"}], ",", 
   RowBox[{"{", 
    RowBox[{"\<\"O\"\>", ",", "13"}], "}"}], ",", 
   RowBox[{"{", 
    RowBox[{"\<\"O\"\>", ",", "15"}], "}"}], ",", 
   RowBox[{"{", 
    RowBox[{"\<\"O\"\>", ",", "21"}], "}"}], ",", 
   RowBox[{"{", 
    RowBox[{"\<\"O\"\>", ",", "30"}], "}"}], ",", 
   RowBox[{"{", 
    RowBox[{"\<\"O\"\>", ",", "31"}], "}"}], ",", 
   RowBox[{"{", 
    RowBox[{"\<\"O\"\>", ",", "32"}], "}"}], ",", 
   RowBox[{"{", 
    RowBox[{"\<\"O\"\>", ",", "33"}], "}"}], ",", 
   RowBox[{"{", 
    RowBox[{"\<\"O\"\>", ",", "34"}], "}"}], ",", 
   RowBox[{"{", 
    RowBox[{"\<\"O\"\>", ",", "51"}], "}"}], ",", 
   RowBox[{"{", 
    RowBox[{"\<\"O\"\>", ",", "52"}], "}"}], ",", 
   RowBox[{"{", 
    RowBox[{"\<\"O\"\>", ",", "53"}], "}"}], ",", 
   RowBox[{"{", 
    RowBox[{"\<\"O\"\>", ",", "54"}], "}"}], ",", 
   RowBox[{"{", 
    RowBox[{"\<\"O\"\>", ",", "55"}], "}"}], ",", 
   RowBox[{"{", 
    RowBox[{"\<\"O\"\>", ",", "72"}], "}"}], ",", 
   RowBox[{"{", 
    RowBox[{"\<\"O\"\>", ",", "73"}], "}"}], ",", 
   RowBox[{"{", 
    RowBox[{"\<\"O\"\>", ",", "74"}], "}"}], ",", 
   RowBox[{"{", 
    RowBox[{"\<\"O\"\>", ",", "75"}], "}"}], ",", 
   RowBox[{"{", 
    RowBox[{"\<\"O\"\>", ",", "76"}], "}"}], ",", 
   RowBox[{"{", 
    RowBox[{"\<\"Z\"\>", ",", "7"}], "}"}], ",", 
   RowBox[{"{", 
    RowBox[{"\<\"Z\"\>", ",", "9"}], "}"}], ",", 
   RowBox[{"{", 
    RowBox[{"\<\"Z\"\>", ",", "12"}], "}"}], ",", 
   RowBox[{"{", 
    RowBox[{"\<\"Z\"\>", ",", "14"}], "}"}], ",", 
   RowBox[{"{", 
    RowBox[{"\<\"Z\"\>", ",", "16"}], "}"}], ",", 
   RowBox[{"{", 
    RowBox[{"\<\"Z\"\>", ",", "17"}], "}"}], ",", 
   RowBox[{"{", 
    RowBox[{"\<\"Z\"\>", ",", "18"}], "}"}], ",", 
   RowBox[{"{", 
    RowBox[{"\<\"Z\"\>", ",", "20"}], "}"}], ",", 
   RowBox[{"{", 
    RowBox[{"\<\"Z\"\>", ",", "22"}], "}"}], ",", 
   RowBox[{"{", 
    RowBox[{"\<\"Z\"\>", ",", "23"}], "}"}], ",", 
   RowBox[{"{", 
    RowBox[{"\<\"Z\"\>", ",", "24"}], "}"}], ",", 
   RowBox[{"{", 
    RowBox[{"\<\"Z\"\>", ",", "35"}], "}"}], ",", 
   RowBox[{"{", 
    RowBox[{"\<\"Z\"\>", ",", "36"}], "}"}], ",", 
   RowBox[{"{", 
    RowBox[{"\<\"Z\"\>", ",", "37"}], "}"}], ",", 
   RowBox[{"{", 
    RowBox[{"\<\"Z\"\>", ",", "38"}], "}"}], ",", 
   RowBox[{"{", 
    RowBox[{"\<\"Z\"\>", ",", "39"}], "}"}], ",", 
   RowBox[{"{", 
    RowBox[{"\<\"Z\"\>", ",", "40"}], "}"}], ",", 
   RowBox[{"{", 
    RowBox[{"\<\"Z\"\>", ",", "41"}], "}"}], ",", 
   RowBox[{"{", 
    RowBox[{"\<\"Z\"\>", ",", "42"}], "}"}], ",", 
   RowBox[{"{", 
    RowBox[{"\<\"Z\"\>", ",", "43"}], "}"}], ",", 
   RowBox[{"{", 
    RowBox[{"\<\"Z\"\>", ",", "45"}], "}"}], ",", 
   RowBox[{"{", 
    RowBox[{"\<\"Z\"\>", ",", "56"}], "}"}], ",", 
   RowBox[{"{", 
    RowBox[{"\<\"Z\"\>", ",", "57"}], "}"}], ",", 
   RowBox[{"{", 
    RowBox[{"\<\"Z\"\>", ",", "58"}], "}"}], ",", 
   RowBox[{"{", 
    RowBox[{"\<\"Z\"\>", ",", "59"}], "}"}], ",", 
   RowBox[{"{", 
    RowBox[{"\<\"Z\"\>", ",", "60"}], "}"}], ",", 
   RowBox[{"{", 
    RowBox[{"\<\"Z\"\>", ",", "61"}], "}"}], ",", 
   RowBox[{"{", 
    RowBox[{"\<\"Z\"\>", ",", "62"}], "}"}], ",", 
   RowBox[{"{", 
    RowBox[{"\<\"Z\"\>", ",", "63"}], "}"}], ",", 
   RowBox[{"{", 
    RowBox[{"\<\"Z\"\>", ",", "64"}], "}"}], ",", 
   RowBox[{"{", 
    RowBox[{"\<\"Z\"\>", ",", "66"}], "}"}], ",", 
   RowBox[{"{", 
    RowBox[{"\<\"Z\"\>", ",", "77"}], "}"}], ",", 
   RowBox[{"{", 
    RowBox[{"\<\"Z\"\>", ",", "78"}], "}"}], ",", 
   RowBox[{"{", 
    RowBox[{"\<\"Z\"\>", ",", "79"}], "}"}], ",", 
   RowBox[{"{", 
    RowBox[{"\<\"Z\"\>", ",", "80"}], "}"}], ",", 
   RowBox[{"{", 
    RowBox[{"\<\"Z\"\>", ",", "81"}], "}"}], ",", 
   RowBox[{"{", 
    RowBox[{"\<\"Z\"\>", ",", "82"}], "}"}], ",", 
   RowBox[{"{", 
    RowBox[{"\<\"Z\"\>", ",", "83"}], "}"}], ",", 
   RowBox[{"{", 
    RowBox[{"\<\"Z\"\>", ",", "84"}], "}"}], ",", 
   RowBox[{"{", 
    RowBox[{"\<\"Z\"\>", ",", "85"}], "}"}], ",", 
   RowBox[{"{", 
    RowBox[{"\<\"Z\"\>", ",", "86"}], "}"}], ",", 
   RowBox[{"{", 
    RowBox[{"\<\"Z\"\>", ",", "87"}], "}"}]}], "}"}]], "Output",
 CellChangeTimes->{3.5703420340991497`*^9, 3.5703421633609767`*^9, 
  3.5703425121619897`*^9, 3.5703428891054516`*^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", ",", "5", ",", "6", ",", "11", ",", "19", ",", 
   "25", ",", "26", ",", "27", ",", "28", ",", "29", ",", "44", ",", "46", 
   ",", "47", ",", "48", ",", "49", ",", "50", ",", "65", ",", "67", ",", 
   "68", ",", "69", ",", "70", ",", "71", ",", "4", ",", "8", ",", "10", ",", 
   "13", ",", "15", ",", "21", ",", "30", ",", "31", ",", "32", ",", "33", 
   ",", "34", ",", "51", ",", "52", ",", "53", ",", "54", ",", "55", ",", 
   "72", ",", "73", ",", "74", ",", "75", ",", "76", ",", "7", ",", "9", ",", 
   "12", ",", "14", ",", "16", ",", "17", ",", "18", ",", "20", ",", "22", 
   ",", "23", ",", "24", ",", "35", ",", "36", ",", "37", ",", "38", ",", 
   "39", ",", "40", ",", "41", ",", "42", ",", "43", ",", "45", ",", "56", 
   ",", "57", ",", "58", ",", "59", ",", "60", ",", "61", ",", "62", ",", 
   "63", ",", "64", ",", "66", ",", "77", ",", "78", ",", "79", ",", "80", 
   ",", "81", ",", "82", ",", "83", ",", "84", ",", "85", ",", "86", ",", 
   "87"}], "}"}]], "Output",
 CellChangeTimes->{3.57034203411475*^9, 3.570342163376577*^9, 
  3.5703425121775894`*^9, 3.570342889121052*^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.255", ",", 
      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}}],

Cell[BoxData[
 RowBox[{"{", 
  RowBox[{
  "0.255`", ",", "0.255`", ",", "0.255`", ",", "0.255`", ",", "0.255`", ",", 
   "0.255`", ",", "0.255`", ",", "0.255`", ",", "0.255`", ",", "0.255`", ",", 
   "0.255`", ",", "0.255`", ",", "0.255`", ",", "0.255`", ",", "0.255`", ",", 
   "0.255`", ",", "0.255`", ",", "0.255`", ",", "0.255`", ",", "0.255`", ",", 
   "0.255`", ",", "0.255`", ",", "0.255`", ",", "0.255`", ",", "0.178`", ",", 
   "0.178`", ",", "0.178`", ",", "0.178`", ",", "0.178`", ",", "0.178`", ",", 
   "0.178`", ",", "0.178`", ",", "0.178`", ",", "0.178`", ",", "0.178`", ",", 
   "0.178`", ",", "0.178`", ",", "0.178`", ",", "0.178`", ",", "0.178`", ",", 
   "0.178`", ",", "0.178`", ",", "0.178`", ",", "0.178`", ",", "0.178`", ",", 
   "0.1`", ",", "0.1`", ",", "0.1`", ",", "0.1`", ",", "0.1`", ",", "0.1`", 
   ",", "0.1`", ",", "0.1`", ",", "0.1`", ",", "0.1`", ",", "0.1`", ",", 
   "0.1`", ",", "0.1`", ",", "0.1`", ",", "0.1`", ",", "0.1`", ",", "0.1`", 
   ",", "0.1`", ",", "0.1`", ",", "0.1`", ",", "0.1`", ",", "0.1`", ",", 
   "0.1`", ",", "0.1`", ",", "0.1`", ",", "0.1`", ",", "0.1`", ",", "0.1`", 
   ",", "0.1`", ",", "0.1`", ",", "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.5703420341459503`*^9, 3.570342163407777*^9, 
  3.5703425121931896`*^9, 3.5703428891366515`*^9}],

Cell[BoxData[
 RowBox[{"{", 
  RowBox[{
  "0.255`", ",", "0.255`", ",", "0.255`", ",", "0.255`", ",", "0.255`", ",", 
   "0.255`", ",", "0.255`", ",", "0.255`", ",", "0.255`", ",", "0.255`", ",", 
   "0.255`", ",", "0.255`", ",", "0.255`", ",", "0.255`", ",", "0.255`", ",", 
   "0.255`", ",", "0.255`", ",", "0.255`", ",", "0.255`", ",", "0.255`", ",", 
   "0.255`", ",", "0.255`", ",", "0.255`", ",", "0.255`", ",", "0.178`", ",", 
   "0.178`", ",", "0.178`", ",", "0.178`", ",", "0.178`", ",", "0.178`", ",", 
   "0.178`", ",", "0.178`", ",", "0.178`", ",", "0.178`", ",", "0.178`", ",", 
   "0.178`", ",", "0.178`", ",", "0.178`", ",", "0.178`", ",", "0.178`", ",", 
   "0.178`", ",", "0.178`", ",", "0.178`", ",", "0.178`", ",", "0.178`", ",", 
   "0.6`", ",", "0.6`", ",", "0.6`", ",", "0.6`", ",", "0.6`", ",", "0.6`", 
   ",", "0.6`", ",", "0.6`", ",", "0.6`", ",", "0.6`", ",", "0.6`", ",", 
   "0.6`", ",", "0.6`", ",", "0.6`", ",", "0.6`", ",", "0.6`", ",", "0.6`", 
   ",", "0.6`", ",", "0.6`", ",", "0.6`", ",", "0.6`", ",", "0.6`", ",", 
   "0.6`", ",", "0.6`", ",", "0.6`", ",", "0.6`", ",", "0.6`", ",", "0.6`", 
   ",", "0.6`", ",", "0.6`", ",", "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.5703420341459503`*^9, 3.570342163407777*^9, 
  3.5703425121931896`*^9, 3.5703428891522512`*^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\"\>", ",", "\<\"C\"\>", ",", "\<\"C\"\>", ",", "\<\"C\"\>", 
   ",", "\<\"C\"\>", ",", "\<\"C\"\>", ",", "\<\"C\"\>", ",", "\<\"C\"\>", 
   ",", "\<\"C\"\>", ",", "\<\"C\"\>", ",", "\<\"C\"\>", ",", "\<\"C\"\>", 
   ",", "\<\"C\"\>", ",", "\<\"C\"\>", ",", "\<\"C\"\>", ",", "\<\"C\"\>", 
   ",", "\<\"C\"\>", ",", "\<\"C\"\>", ",", "\<\"C\"\>", ",", "\<\"C\"\>", 
   ",", "\<\"O\"\>", ",", "\<\"O\"\>", ",", "\<\"O\"\>", ",", "\<\"O\"\>", 
   ",", "\<\"O\"\>", ",", "\<\"O\"\>", ",", "\<\"O\"\>", ",", "\<\"O\"\>", 
   ",", "\<\"O\"\>", ",", "\<\"O\"\>", ",", "\<\"O\"\>", ",", "\<\"O\"\>", 
   ",", "\<\"O\"\>", ",", "\<\"O\"\>", ",", "\<\"O\"\>", ",", "\<\"O\"\>", 
   ",", "\<\"O\"\>", ",", "\<\"O\"\>", ",", "\<\"O\"\>", ",", "\<\"O\"\>", 
   ",", "\<\"O\"\>", ",", "\<\"H\"\>", ",", "\<\"H\"\>", ",", "\<\"H\"\>", 
   ",", "\<\"H\"\>", ",", "\<\"H\"\>", ",", "\<\"H\"\>", ",", "\<\"H\"\>", 
   ",", "\<\"H\"\>", ",", "\<\"H\"\>", ",", "\<\"H\"\>", ",", "\<\"H\"\>", 
   ",", "\<\"H\"\>", ",", "\<\"H\"\>", ",", "\<\"H\"\>", ",", "\<\"H\"\>", 
   ",", "\<\"H\"\>", ",", "\<\"H\"\>", ",", "\<\"H\"\>", ",", "\<\"H\"\>", 
   ",", "\<\"H\"\>", ",", "\<\"H\"\>", ",", "\<\"H\"\>", ",", "\<\"H\"\>", 
   ",", "\<\"H\"\>", ",", "\<\"H\"\>", ",", "\<\"H\"\>", ",", "\<\"H\"\>", 
   ",", "\<\"H\"\>", ",", "\<\"H\"\>", ",", "\<\"H\"\>", ",", "\<\"H\"\>", 
   ",", "\<\"H\"\>", ",", "\<\"H\"\>", ",", "\<\"H\"\>", ",", "\<\"H\"\>", 
   ",", "\<\"H\"\>", ",", "\<\"H\"\>", ",", "\<\"H\"\>", ",", "\<\"H\"\>", 
   ",", "\<\"H\"\>", ",", "\<\"H\"\>", ",", "\<\"H\"\>"}], "}"}]], "Output",
 CellChangeTimes->{3.57034203416155*^9, 3.570342163423377*^9, 
  3.57034251220879*^9, 3.5703428891678514`*^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.`", ",", "6.`", ",", 
   "6.`", ",", "6.`", ",", "6.`", ",", "6.`", ",", "6.`", ",", "6.`", ",", 
   "6.`", ",", "6.`", ",", "6.`", ",", "6.`", ",", "6.`", ",", "6.`", ",", 
   "6.`", ",", "6.`", ",", "6.`", ",", "6.`", ",", "6.`", ",", "6.`", ",", 
   "8.`", ",", "8.`", ",", "8.`", ",", "8.`", ",", "8.`", ",", "8.`", ",", 
   "8.`", ",", "8.`", ",", "8.`", ",", "8.`", ",", "8.`", ",", "8.`", ",", 
   "8.`", ",", "8.`", ",", "8.`", ",", "8.`", ",", "8.`", ",", "8.`", ",", 
   "8.`", ",", "8.`", ",", "8.`", ",", "1.`", ",", "1.`", ",", "1.`", ",", 
   "1.`", ",", "1.`", ",", "1.`", ",", "1.`", ",", "1.`", ",", "1.`", ",", 
   "1.`", ",", "1.`", ",", "1.`", ",", "1.`", ",", "1.`", ",", "1.`", ",", 
   "1.`", ",", "1.`", ",", "1.`", ",", "1.`", ",", "1.`", ",", "1.`", ",", 
   "1.`", ",", "1.`", ",", "1.`", ",", "1.`", ",", "1.`", ",", "1.`", ",", 
   "1.`", ",", "1.`", ",", "1.`", ",", "1.`", ",", "1.`", ",", "1.`", ",", 
   "1.`", ",", "1.`", ",", "1.`", ",", "1.`", ",", "1.`", ",", "1.`", ",", 
   "1.`", ",", "1.`", ",", "1.`"}], "}"}]], "Output",
 CellChangeTimes->{3.57034203417715*^9, 3.570342163454577*^9, 
  3.5703425122243896`*^9, 3.5703428891834517`*^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["45"], "Output",
 CellChangeTimes->{3.57034203420835*^9, 3.5703421634701767`*^9, 
  3.5703425122399893`*^9, 3.570342889199052*^9}],

Cell[BoxData["42"], "Output",
 CellChangeTimes->{3.57034203420835*^9, 3.5703421634701767`*^9, 
  3.5703425122399893`*^9, 3.570342889199052*^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\>\""}]}], 
  "]"}], "\[IndentingNewLine]"}], "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}}],

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}],

Cell[BoxData[
 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}}],

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[{
  StyleBox[
   RowBox[{"(*", " ", 
    RowBox[{"Distance", " ", "maTetrx", " ", "Bohr"}], " ", "*)"}], "Text"], 
  "\[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"}], "]"}], ",", 
         "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}],

Cell[BoxData[
 TagBox[
  RowBox[{"(", "\[NoBreak]", GridBox[{
     {"0.`", "0", "0", "0", "0", "0", "0", "0", "0", "0", "0", "0", "0", "0", 
      "0", "0", "0", "0", "0", "0", "0", "0", "0", "0", "0", "0", "0", "0", 
      "0", "0", "0", "0", "0", "0", "0", "0", "0", "0", "0", "0", "0", "0", 
      "0", "0", "0", "0", "0", "0", "0", "0", "0", "0", "0", "0", "0", "0", 
      "0", "0", "0", "0", "0", "0", "0", "0", "0", "0", "0", "0", "0", "0", 
      "0", "0", "0", "0", "0", "0", "0", "0", "0", "0", "0", "0", "0", "0", 
      "0", "0", "0"},
     {"2.8762182229850843`", "0.`", "0", "0", "0", "0", "0", "0", "0", "0", 
      "0", "0", "0", "0", "0", "0", "0", "0", "0", "0", "0", "0", "0", "0", 
      "0", "0", "0", "0", "0", "0", "0", "0", "0", "0", "0", "0", "0", "0", 
      "0", "0", "0", "0", "0", "0", "0", "0", "0", "0", "0", "0", "0", "0", 
      "0", "0", "0", "0", "0", "0", "0", "0", "0", "0", "0", "0", "0", "0", 
      "0", "0", "0", "0", "0", "0", "0", "0", "0", "0", "0", "0", "0", "0", 
      "0", "0", "0", "0", "0", "0", "0"},
     {"0", "2.8868841329321464`", "0.`", "0", "0", "0", "0", "0", "0", "0", 
      "0", "0", "0", "0", "0", "0", "0", "0", "0", "0", "0", "0", "0", "0", 
      "0", "0", "0", "0", "0", "0", "0", "0", "0", "0", "0", "0", "0", "0", 
      "0", "0", "0", "0", "0", "0", "0", "0", "0", "0", "0", "0", "0", "0", 
      "0", "0", "0", "0", "0", "0", "0", "0", "0", "0", "0", "0", "0", "0", 
      "0", "0", "0", "0", "0", "0", "0", "0", "0", "0", "0", "0", "0", "0", 
      "0", "0", "0", "0", "0", "0", "0"},
     {"0", "0", "0", "0.`", "0", "0", "0", "0", "0", "0", "0", "0", "0", "0", 
      "0", "0", "0", "0", "0", "0", "0", "0", "0", "0", "0", "0", "0", "0", 
      "0", "0", "0", "0", "0", "0", "0", "0", "0", "0", "0", "0", "0", "0", 
      "0", "0", "0", "0", "0", "0", "0", "0", "0", "0", "0", "0", "0", "0", 
      "0", "0", "0", "0", "0", "0", "0", "0", "0", "0", "0", "0", "0", "0", 
      "0", "0", "0", "0", "0", "0", "0", "0", "0", "0", "0", "0", "0", "0", 
      "0", "0", "0"},
     {"2.8745633372262285`", "0", "0", "2.8740527073847004`", "0.`", "0", "0",
       "0", "0", "0", "0", "0", "0", "0", "0", "0", "0", "0", "0", "0", "0", 
      "0", "0", "0", "0", "0", "0", "0", "0", "0", "0", "0", "0", "0", "0", 
      "0", "0", "0", "0", "0", "0", "0", "0", "0", "0", "0", "0", "0", "0", 
      "0", "0", "0", "0", "0", "0", "0", "0", "0", "0", "0", "0", "0", "0", 
      "0", "0", "0", "0", "0", "0", "0", "0", "0", "0", "0", "0", "0", "0", 
      "0", "0", "0", "0", "0", "0", "0", "0", "0", "0"},
     {"0", "0", "2.8912832502290104`", "0", "0", "0.`", "0", "0", "0", "0", 
      "0", "0", "0", "0", "0", "0", "0", "0", "0", "0", "0", "0", "0", "0", 
      "0", "0", "0", "0", "0", "0", "0", "0", "0", "0", "0", "0", "0", "0", 
      "0", "0", "0", "0", "0", "0", "0", "0", "0", "0", "0", "0", "0", "0", 
      "0", "0", "0", "0", "0", "0", "0", "0", "0", "0", "0", "0", "0", "0", 
      "0", "0", "0", "0", "0", "0", "0", "0", "0", "0", "0", "0", "0", "0", 
      "0", "0", "0", "0", "0", "0", "0"},
     {"0", "0", "0", "0", "0", "0", "0.`", "0", "0", "0", "0", "0", "0", "0", 
      "0", "0", "0", "0", "0", "0", "0", "0", "0", "0", "0", "0", "0", "0", 
      "0", "0", "0", "0", "0", "0", "0", "0", "0", "0", "0", "0", "0", "0", 
      "0", "0", "0", "0", "0", "0", "0", "0", "0", "0", "0", "0", "0", "0", 
      "0", "0", "0", "0", "0", "0", "0", "0", "0", "0", "0", "0", "0", "0", 
      "0", "0", "0", "0", "0", "0", "0", "0", "0", "0", "0", "0", "0", "0", 
      "0", "0", "0"},
     {"0", "0", "0", "0", "0", "0", "2.869125624798556`", "0.`", "0", "0", 
      "0", "0", "0", "0", "0", "0", "0", "0", "0", "0", "0", "0", "0", "0", 
      "0", "0", "0", "0", "0", "0", "0", "0", "0", "0", "0", "0", "0", "0", 
      "0", "0", "0", "0", "0", "0", "0", "0", "0", "0", "0", "0", "0", "0", 
      "0", "0", "0", "0", "0", "0", "0", "0", "0", "0", "0", "0", "0", "0", 
      "0", "0", "0", "0", "0", "0", "0", "0", "0", "0", "0", "0", "0", "0", 
      "0", "0", "0", "0", "0", "0", "0"},
     {"0", "0", "0", "0", "0", "0", "0", "2.8718843154435145`", "0.`", "0", 
      "0", "0", "0", "0", "0", "0", "0", "0", "0", "0", "0", "0", "0", "0", 
      "0", "0", "0", "0", "0", "0", "0", "0", "0", "0", "0", "0", "0", "0", 
      "0", "0", "0", "0", "0", "0", "0", "0", "0", "0", "0", "0", "0", "0", 
      "0", "0", "0", "0", "0", "0", "0", "0", "0", "0", "0", "0", "0", "0", 
      "0", "0", "0", "0", "0", "0", "0", "0", "0", "0", "0", "0", "0", "0", 
      "0", "0", "0", "0", "0", "0", "0"},
     {"0", "0", "0", "0", "0", "0", "0", "0", "2.875805987805802`", "0.`", 
      "0", "0", "0", "0", "0", "0", "0", "0", "0", "0", "0", "0", "0", "0", 
      "0", "0", "0", "0", "0", "0", "0", "0", "0", "0", "0", "0", "0", "0", 
      "0", "0", "0", "0", "0", "0", "0", "0", "0", "0", "0", "0", "0", "0", 
      "0", "0", "0", "0", "0", "0", "0", "0", "0", "0", "0", "0", "0", "0", 
      "0", "0", "0", "0", "0", "0", "0", "0", "0", "0", "0", "0", "0", "0", 
      "0", "0", "0", "0", "0", "0", "0"},
     {"0", "0", "0", "0", "0", "0", "0", "0", "0", "2.886071930752452`", 
      "0.`", "0", "0", "0", "0", "0", "0", "0", "0", "0", "0", "0", "0", "0", 
      "0", "0", "0", "0", "0", "0", "0", "0", "0", "0", "0", "0", "0", "0", 
      "0", "0", "0", "0", "0", "0", "0", "0", "0", "0", "0", "0", "0", "0", 
      "0", "0", "0", "0", "0", "0", "0", "0", "0", "0", "0", "0", "0", "0", 
      "0", "0", "0", "0", "0", "0", "0", "0", "0", "0", "0", "0", "0", "0", 
      "0", "0", "0", "0", "0", "0", "0"},
     {"0", "0", "0", "0", "0", "0", "0", "0", "0", "0", "2.8913802050506217`",
       "0.`", "0", "0", "0", "0", "0", "0", "0", "0", "0", "0", "0", "0", "0",
       "0", "0", "0", "0", "0", "0", "0", "0", "0", "0", "0", "0", "0", "0", 
      "0", "0", "0", "0", "0", "0", "0", "0", "0", "0", "0", "0", "0", "0", 
      "0", "0", "0", "0", "0", "0", "0", "0", "0", "0", "0", "0", "0", "0", 
      "0", "0", "0", "0", "0", "0", "0", "0", "0", "0", "0", "0", "0", "0", 
      "0", "0", "0", "0", "0", "0"},
     {"0", "0", "0", "0", "0", "0", "0", "0", "0", "0", "0", "0", "0.`", "0", 
      "0", "0", "0", "0", "0", "0", "0", "0", "0", "0", "0", "0", "0", "0", 
      "0", "0", "0", "0", "0", "0", "0", "0", "0", "0", "0", "0", "0", "0", 
      "0", "0", "0", "0", "0", "0", "0", "0", "0", "0", "0", "0", "0", "0", 
      "0", "0", "0", "0", "0", "0", "0", "0", "0", "0", "0", "0", "0", "0", 
      "0", "0", "0", "0", "0", "0", "0", "0", "0", "0", "0", "0", "0", "0", 
      "0", "0", "0"},
     {"0", "0", "0", "0", "0", "0", "0", "0", "0", "0", "0", "0", 
      "2.871347713662007`", "0.`", "0", "0", "0", "0", "0", "0", "0", "0", 
      "0", "0", "0", "0", "0", "0", "0", "0", "0", "0", "0", "0", "0", "0", 
      "0", "0", "0", "0", "0", "0", "0", "0", "0", "0", "0", "0", "0", "0", 
      "0", "0", "0", "0", "0", "0", "0", "0", "0", "0", "0", "0", "0", "0", 
      "0", "0", "0", "0", "0", "0", "0", "0", "0", "0", "0", "0", "0", "0", 
      "0", "0", "0", "0", "0", "0", "0", "0", "0"},
     {"0", "0", "0", "0", "0", "0", "0", "0", "0", "0", "0", "0", "0", 
      "2.872794381696381`", "0.`", "0", "0", "0", "0", "0", "0", "0", "0", 
      "0", "0", "0", "0", "0", "0", "0", "0", "0", "0", "0", "0", "0", "0", 
      "0", "0", "0", "0", "0", "0", "0", "0", "0", "0", "0", "0", "0", "0", 
      "0", "0", "0", "0", "0", "0", "0", "0", "0", "0", "0", "0", "0", "0", 
      "0", "0", "0", "0", "0", "0", "0", "0", "0", "0", "0", "0", "0", "0", 
      "0", "0", "0", "0", "0", "0", "0", "0"},
     {"0", "0", "0", "0", "0", "0", "0", "0", "0", "0", "0", "0", "0", "0", 
      "2.8762846469216963`", "0.`", "0", "0", "0", "0", "0", "0", "0", "0", 
      "0", "0", "0", "0", "0", "0", "0", "0", "0", "0", "0", "0", "0", "0", 
      "0", "0", "0", "0", "0", "0", "0", "0", "0", "0", "0", "0", "0", "0", 
      "0", "0", "0", "0", "0", "0", "0", "0", "0", "0", "0", "0", "0", "0", 
      "0", "0", "0", "0", "0", "0", "0", "0", "0", "0", "0", "0", "0", "0", 
      "0", "0", "0", "0", "0", "0", "0"},
     {"0", "0", "0", "0", "0", "0", "0", "0", "0", "0", "0", "0", "0", "0", 
      "0", "2.886040378302957`", "0.`", "0", "0", "0", "0", "0", "0", "0", 
      "0", "0", "0", "0", "0", "0", "0", "0", "0", "0", "0", "0", "0", "0", 
      "0", "0", "0", "0", "0", "0", "0", "0", "0", "0", "0", "0", "0", "0", 
      "0", "0", "0", "0", "0", "0", "0", "0", "0", "0", "0", "0", "0", "0", 
      "0", "0", "0", "0", "0", "0", "0", "0", "0", "0", "0", "0", "0", "0", 
      "0", "0", "0", "0", "0", "0", "0"},
     {"0", "0", "0", "0", "0", "0", "0", "0", "0", "0", "0", "0", "0", "0", 
      "0", "0", "2.8887705541151476`", "0.`", "0", "0", "0", "0", "0", "0", 
      "0", "0", "0", "0", "0", "0", "0", "0", "0", "0", "0", "0", "0", "0", 
      "0", "0", "0", "0", "0", "0", "0", "0", "0", "0", "0", "0", "0", "0", 
      "0", "0", "0", "0", "0", "0", "0", "0", "0", "0", "0", "0", "0", "0", 
      "0", "0", "0", "0", "0", "0", "0", "0", "0", "0", "0", "0", "0", "0", 
      "0", "0", "0", "0", "0", "0", "0"},
     {"0", "0", "0", "0", "0", "0", "0", "0", "0", "0", "0", "0", "0", "0", 
      "0", "0", "0", "0", "0.`", "0", "0", "0", "0", "0", "0", "0", "0", "0", 
      "0", "0", "0", "0", "0", "0", "0", "0", "0", "0", "0", "0", "0", "0", 
      "0", "0", "0", "0", "0", "0", "0", "0", "0", "0", "0", "0", "0", "0", 
      "0", "0", "0", "0", "0", "0", "0", "0", "0", "0", "0", "0", "0", "0", 
      "0", "0", "0", "0", "0", "0", "0", "0", "0", "0", "0", "0", "0", "0", 
      "0", "0", "0"},
     {"0", "0", "0", "0", "0", "0", "0", "0", "0", "0", "0", "0", "0", "0", 
      "0", "0", "0", "0", "2.8676210677719403`", "0.`", "0", "0", "0", "0", 
      "0", "0", "0", "0", "0", "0", "0", "0", "0", "0", "0", "0", "0", "0", 
      "0", "0", "0", "0", "0", "0", "0", "0", "0", "0", "0", "0", "0", "0", 
      "0", "0", "0", "0", "0", "0", "0", "0", "0", "0", "0", "0", "0", "0", 
      "0", "0", "0", "0", "0", "0", "0", "0", "0", "0", "0", "0", "0", "0", 
      "0", "0", "0", "0", "0", "0", "0"},
     {"0", "0", "0", "0", "0", "0", "0", "0", "0", "0", "0", "0", "0", "0", 
      "0", "0", "0", "0", "0", "2.865535044944369`", "0.`", "0", "0", "0", 
      "0", "0", "0", "0", "0", "0", "0", "0", "0", "0", "0", "0", "0", "0", 
      "0", "0", "0", "0", "0", "0", "0", "0", "0", "0", "0", "0", "0", "0", 
      "0", "0", "0", "0", "0", "0", "0", "0", "0", "0", "0", "0", "0", "0", 
      "0", "0", "0", "0", "0", "0", "0", "0", "0", "0", "0", "0", "0", "0", 
      "0", "0", "0", "0", "0", "0", "0"},
     {"0", "0", "0", "0", "0", "0", "0", "0", "0", "0", "0", "0", "0", "0", 
      "0", "0", "0", "0", "0", "0", "2.871389998785985`", "0.`", "0", "0", 
      "0", "0", "0", "0", "0", "0", "0", "0", "0", "0", "0", "0", "0", "0", 
      "0", "0", "0", "0", "0", "0", "0", "0", "0", "0", "0", "0", "0", "0", 
      "0", "0", "0", "0", "0", "0", "0", "0", "0", "0", "0", "0", "0", "0", 
      "0", "0", "0", "0", "0", "0", "0", "0", "0", "0", "0", "0", "0", "0", 
      "0", "0", "0", "0", "0", "0", "0"},
     {"0", "0", "0", "0", "0", "0", "0", "0", "0", "0", "0", "0", "0", "0", 
      "0", "0", "0", "0", "0", "0", "0", "2.8855701440590957`", "0.`", "0", 
      "0", "0", "0", "0", "0", "0", "0", "0", "0", "0", "0", "0", "0", "0", 
      "0", "0", "0", "0", "0", "0", "0", "0", "0", "0", "0", "0", "0", "0", 
      "0", "0", "0", "0", "0", "0", "0", "0", "0", "0", "0", "0", "0", "0", 
      "0", "0", "0", "0", "0", "0", "0", "0", "0", "0", "0", "0", "0", "0", 
      "0", "0", "0", "0", "0", "0", "0"},
     {"0", "0", "0", "0", "0", "0", "0", "0", "0", "0", "0", "0", "0", "0", 
      "0", "0", "0", "0", "0", "0", "0", "0", "2.8840995487981274`", "0.`", 
      "0", "0", "0", "0", "0", "0", "0", "0", "0", "0", "0", "0", "0", "0", 
      "0", "0", "0", "0", "0", "0", "0", "0", "0", "0", "0", "0", "0", "0", 
      "0", "0", "0", "0", "0", "0", "0", "0", "0", "0", "0", "0", "0", "0", 
      "0", "0", "0", "0", "0", "0", "0", "0", "0", "0", "0", "0", "0", "0", 
      "0", "0", "0", "0", "0", "0", "0"},
     {"0", "0", "2.696329106208919`", "2.6849688263171383`", "0", "0", "0", 
      "0", "0", "0", "0", "0", "0", "0", "0", "0", "0", "0", "0", "0", "0", 
      "0", "0", "0", "0.`", "0", "0", "0", "0", "0", "0", "0", "0", "0", "0", 
      "0", "0", "0", "0", "0", "0", "0", "0", "0", "0", "0", "0", "0", "0", 
      "0", "0", "0", "0", "0", "0", "0", "0", "0", "0", "0", "0", "0", "0", 
      "0", "0", "0", "0", "0", "0", "0", "0", "0", "0", "0", "0", "0", "0", 
      "0", "0", "0", "0", "0", "0", "0", "0", "0", "0"},
     {"2.7093616603521813`", "0", "0", "0", "0", "0", "0", "0", "0", "0", "0",
       "0", "0", "0", "0", "0", "0", "0", "0", "0", "0", "0", "0", "0", "0", 
      "0.`", "0", "0", "0", "0", "0", "0", "0", "0", "0", "0", "0", "0", "0", 
      "0", "0", "0", "0", "0", "0", "0", "0", "0", "0", "0", "0", "0", "0", 
      "0", "0", "0", "0", "0", "0", "0", "0", "0", "0", "0", "0", "0", "0", 
      "0", "0", "0", "0", "0", "0", "0", "0", "0", "0", "0", "0", "0", "0", 
      "0", "0", "0", "0", "0", "0"},
     {"0", "2.7003410918204795`", "0", "0", "0", "0", "2.6896570466110075`", 
      "0", "0", "0", "0", "0", "0", "0", "0", "0", "0", "0", "0", "0", "0", 
      "0", "0", "0", "0", "0", "0.`", "0", "0", "0", "0", "0", "0", "0", "0", 
      "0", "0", "0", "0", "0", "0", "0", "0", "0", "0", "0", "0", "0", "0", 
      "0", "0", "0", "0", "0", "0", "0", "0", "0", "0", "0", "0", "0", "0", 
      "0", "0", "0", "0", "0", "0", "0", "0", "0", "0", "0", "0", "0", "0", 
      "0", "0", "0", "0", "0", "0", "0", "0", "0", "0"},
     {"0", "0", "0", "2.7011622080325353`", "0", "0", "0", "0", "0", "0", "0",
       "0", "0", "0", "0", "0", "0", "0", "0", "0", "0", "0", "0", "0", "0", 
      "0", "0", "0.`", "0", "0", "0", "0", "0", "0", "0", "0", "0", "0", "0", 
      "0", "0", "0", "0", "0", "0", "0", "0", "0", "0", "0", "0", "0", "0", 
      "0", "0", "0", "0", "0", "0", "0", "0", "0", "0", "0", "0", "0", "0", 
      "0", "0", "0", "0", "0", "0", "0", "0", "0", "0", "0", "0", "0", "0", 
      "0", "0", "0", "0", "0", "0"},
     {"0", "0", "0", "0", "2.708042633861552`", "0", "0", "0", "0", "0", "0", 
      "0", "0", "0", "0", "0", "0", "0", "0", "0", "0", "0", "0", "0", "0", 
      "0", "0", "0", "0.`", "0", "0", "0", "0", "0", "0", "0", "0", "0", "0", 
      "0", "0", "0", "0", "0", "0", "0", "0", "0", "0", "0", "0", "0", "0", 
      "0", "0", "0", "0", "0", "0", "0", "0", "0", "0", "0", "0", "0", "0", 
      "0", "0", "0", "0", "0", "0", "0", "0", "0", "0", "0", "0", "0", "0", 
      "0", "0", "0", "0", "0", "0"},
     {"0", "0", "0", "0", "0", "2.7124546677866808`", "0", "0", "0", "0", "0",
       "0", "0", "0", "0", "0", "0", "0", "0", "0", "0", "0", "0", "0", "0", 
      "0", "0", "0", "0", "0.`", "0", "0", "0", "0", "0", "0", "0", "0", "0", 
      "0", "0", "0", "0", "0", "0", "0", "0", "0", "0", "0", "0", "0", "0", 
      "0", "0", "0", "0", "0", "0", "0", "0", "0", "0", "0", "0", "0", "0", 
      "0", "0", "0", "0", "0", "0", "0", "0", "0", "0", "0", "0", "0", "0", 
      "0", "0", "0", "0", "0", "0"},
     {"0", "0", "0", "0", "0", "0", "0", "2.711600096486365`", "0", "0", "0", 
      "0", "0", "0", "0", "0", "0", "0", "0", "0", "0", "0", "0", "0", "0", 
      "0", "0", "0", "0", "0", "0.`", "0", "0", "0", "0", "0", "0", "0", "0", 
      "0", "0", "0", "0", "0", "0", "0", "0", "0", "0", "0", "0", "0", "0", 
      "0", "0", "0", "0", "0", "0", "0", "0", "0", "0", "0", "0", "0", "0", 
      "0", "0", "0", "0", "0", "0", "0", "0", "0", "0", "0", "0", "0", "0", 
      "0", "0", "0", "0", "0", "0"},
     {"0", "0", "0", "0", "0", "0", "0", "0", "2.7108539369266222`", "0", "0",
       "0", "0", "0", "0", "0", "0", "0", "0", "0", "0", "0", "0", "0", "0", 
      "0", "0", "0", "0", "0", "0", "0.`", "0", "0", "0", "0", "0", "0", "0", 
      "0", "0", "0", "0", "0", "0", "0", "0", "0", "0", "0", "0", "0", "0", 
      "0", "0", "0", "0", "0", "0", "0", "0", "0", "0", "0", "0", "0", "0", 
      "0", "0", "0", "0", "0", "0", "0", "0", "0", "0", "0", "0", "0", "0", 
      "0", "0", "0", "0", "0", "0"},
     {"0", "0", "0", "0", "0", "0", "0", "0", "0", "2.6994370463488897`", "0",
       "0", "2.6886179186839763`", "0", "0", "0", "0", "0", "0", "0", "0", 
      "0", "0", "0", "0", "0", "0", "0", "0", "0", "0", "0", "0.`", "0", "0", 
      "0", "0", "0", "0", "0", "0", "0", "0", "0", "0", "0", "0", "0", "0", 
      "0", "0", "0", "0", "0", "0", "0", "0", "0", "0", "0", "0", "0", "0", 
      "0", "0", "0", "0", "0", "0", "0", "0", "0", "0", "0", "0", "0", "0", 
      "0", "0", "0", "0", "0", "0", "0", "0", "0", "0"},
     {"0", "0", "0", "0", "0", "0", "2.6830928416313737`", "0", "0", "0", 
      "2.696593976617802`", "0", "0", "0", "0", "0", "0", "0", "0", "0", "0", 
      "0", "0", "0", "0", "0", "0", "0", "0", "0", "0", "0", "0", "0.`", "0", 
      "0", "0", "0", "0", "0", "0", "0", "0", "0", "0", "0", "0", "0", "0", 
      "0", "0", "0", "0", "0", "0", "0", "0", "0", "0", "0", "0", "0", "0", 
      "0", "0", "0", "0", "0", "0", "0", "0", "0", "0", "0", "0", "0", "0", 
      "0", "0", "0", "0", "0", "0", "0", "0", "0", "0"},
     {"0", "0", "0", "0", "0", "0", "0", "0", "0", "0", "0", 
      "2.7135228324534224`", "0", "0", "0", "0", "0", "0", "0", "0", "0", "0",
       "0", "0", "0", "0", "0", "0", "0", "0", "0", "0", "0", "0", "0.`", "0",
       "0", "0", "0", "0", "0", "0", "0", "0", "0", "0", "0", "0", "0", "0", 
      "0", "0", "0", "0", "0", "0", "0", "0", "0", "0", "0", "0", "0", "0", 
      "0", "0", "0", "0", "0", "0", "0", "0", "0", "0", "0", "0", "0", "0", 
      "0", "0", "0", "0", "0", "0", "0", "0", "0"},
     {"0", "0", "0", "0", "0", "0", "0", "0", "0", "0", "0", "0", "0", 
      "2.7136649594499946`", "0", "0", "0", "0", "0", "0", "0", "0", "0", "0",
       "0", "0", "0", "0", "0", "0", "0", "0", "0", "0", "0", "0.`", "0", "0",
       "0", "0", "0", "0", "0", "0", "0", "0", "0", "0", "0", "0", "0", "0", 
      "0", "0", "0", "0", "0", "0", "0", "0", "0", "0", "0", "0", "0", "0", 
      "0", "0", "0", "0", "0", "0", "0", "0", "0", "0", "0", "0", "0", "0", 
      "0", "0", "0", "0", "0", "0", "0"},
     {"0", "0", "0", "0", "0", "0", "0", "0", "0", "0", "0", "0", "0", "0", 
      "2.7093919752495497`", "0", "0", "0", "0", "0", "0", "0", "0", "0", "0",
       "0", "0", "0", "0", "0", "0", "0", "0", "0", "0", "0", "0.`", "0", "0",
       "0", "0", "0", "0", "0", "0", "0", "0", "0", "0", "0", "0", "0", "0", 
      "0", "0", "0", "0", "0", "0", "0", "0", "0", "0", "0", "0", "0", "0", 
      "0", "0", "0", "0", "0", "0", "0", "0", "0", "0", "0", "0", "0", "0", 
      "0", "0", "0", "0", "0", "0"},
     {"0", "0", "0", "0", "0", "0", "0", "0", "0", "0", "0", "0", "0", "0", 
      "0", "2.7004515140845444`", "0", "0", "2.690686482888516`", "0", "0", 
      "0", "0", "0", "0", "0", "0", "0", "0", "0", "0", "0", "0", "0", "0", 
      "0", "0", "0.`", "0", "0", "0", "0", "0", "0", "0", "0", "0", "0", "0", 
      "0", "0", "0", "0", "0", "0", "0", "0", "0", "0", "0", "0", "0", "0", 
      "0", "0", "0", "0", "0", "0", "0", "0", "0", "0", "0", "0", "0", "0", 
      "0", "0", "0", "0", "0", "0", "0", "0", "0", "0"},
     {"0", "0", "0", "0", "0", "0", "0", "0", "0", "0", "0", "0", 
      "2.683518046694751`", "0", "0", "0", "2.6973652634941887`", "0", "0", 
      "0", "0", "0", "0", "0", "0", "0", "0", "0", "0", "0", "0", "0", "0", 
      "0", "0", "0", "0", "0", "0.`", "0", "0", "0", "0", "0", "0", "0", "0", 
      "0", "0", "0", "0", "0", "0", "0", "0", "0", "0", "0", "0", "0", "0", 
      "0", "0", "0", "0", "0", "0", "0", "0", "0", "0", "0", "0", "0", "0", 
      "0", "0", "0", "0", "0", "0", "0", "0", "0", "0", "0", "0"},
     {"0", "0", "0", "0", "0", "0", "0", "0", "0", "0", "0", "0", "0", "0", 
      "0", "0", "0", "2.7142215518618107`", "0", "0", "0", "0", "0", "0", "0",
       "0", "0", "0", "0", "0", "0", "0", "0", "0", "0", "0", "0", "0", "0", 
      "0.`", "0", "0", "0", "0", "0", "0", "0", "0", "0", "0", "0", "0", "0", 
      "0", "0", "0", "0", "0", "0", "0", "0", "0", "0", "0", "0", "0", "0", 
      "0", "0", "0", "0", "0", "0", "0", "0", "0", "0", "0", "0", "0", "0", 
      "0", "0", "0", "0", "0", "0"},
     {"0", "0", "0", "0", "0", "0", "0", "0", "0", "0", "0", "0", "0", "0", 
      "0", "0", "0", "0", "0", "2.711517785340986`", "0", "0", "0", "0", "0", 
      "0", "0", "0", "0", "0", "0", "0", "0", "0", "0", "0", "0", "0", "0", 
      "0", "0.`", "0", "0", "0", "0", "0", "0", "0", "0", "0", "0", "0", "0", 
      "0", "0", "0", "0", "0", "0", "0", "0", "0", "0", "0", "0", "0", "0", 
      "0", "0", "0", "0", "0", "0", "0", "0", "0", "0", "0", "0", "0", "0", 
      "0", "0", "0", "0", "0", "0"},
     {"0", "0", "0", "0", "0", "0", "0", "0", "0", "0", "0", "0", "0", "0", 
      "0", "0", "0", "0", "0", "0", "2.711227371660277`", "0", "0", "0", "0", 
      "0", "0", "0", "0", "0", "0", "0", "0", "0", "0", "0", "0", "0", "0", 
      "0", "0", "0.`", "0", "0", "0", "0", "0", "0", "0", "0", "0", "0", "0", 
      "0", "0", "0", "0", "0", "0", "0", "0", "0", "0", "0", "0", "0", "0", 
      "0", "0", "0", "0", "0", "0", "0", "0", "0", "0", "0", "0", "0", "0", 
      "0", "0", "0", "0", "0", "0"},
     {"0", "0", "0", "0", "0", "0", "0", "0", "0", "0", "0", "0", "0", "0", 
      "0", "0", "0", "0", "0", "0", "0", "2.711596145608474`", "0", "0", "0", 
      "0", "0", "0", "0", "0", "0", "0", "0", "0", "0", "0", "0", "0", "0", 
      "0", "0", "0", "0.`", "0", "0", "0", "0", "0", "0", "0", "0", "0", "0", 
      "0", "0", "0", "0", "0", "0", "0", "0", "0", "0", "0", "0", "0", "0", 
      "0", "0", "0", "0", "0", "0", "0", "0", "0", "0", "0", "0", "0", "0", 
      "0", "0", "0", "0", "0", "0"},
     {"0", "0", "0", "0", "0", "0", "0", "0", "0", "0", "0", "0", "0", "0", 
      "0", "0", "0", "0", "2.682629630795572`", "0", "0", "0", 
      "2.7028479534137686`", "0", "0", "0", "0", "0", "0", "0", "0", "0", "0",
       "0", "0", "0", "0", "0", "0", "0", "0", "0", "0", "0.`", "0", "0", "0",
       "0", "0", "0", "0", "0", "0", "0", "0", "0", "0", "0", "0", "0", "0", 
      "0", "0", "0", "0", "0", "0", "0", "0", "0", "0", "0", "0", "0", "0", 
      "0", "0", "0", "0", "0", "0", "0", "0", "0", "0", "0", "0"},
     {"0", "0", "0", "0", "0", "0", "0", "0", "0", "0", "0", "0", "0", "0", 
      "0", "0", "0", "0", "0", "0", "0", "0", "0", "2.7091527419445667`", "0",
       "0", "0", "0", "0", "0", "0", "0", "0", "0", "0", "0", "0", "0", "0", 
      "0", "0", "0", "0", "0", "0.`", "0", "0", "0", "0", "0", "0", "0", "0", 
      "0", "0", "0", "0", "0", "0", "0", "0", "0", "0", "0", "0", "0", "0", 
      "0", "0", "0", "0", "0", "0", "0", "0", "0", "0", "0", "0", "0", "0", 
      "0", "0", "0", "0", "0", "0"},
     {"2.0997245521509575`", "0", "0", "0", "0", "0", "0", "0", "0", "0", "0",
       "0", "0", "0", "0", "0", "0", "0", "0", "0", "0", "0", "0", "0", "0", 
      "0", "0", "0", "0", "0", "0", "0", "0", "0", "0", "0", "0", "0", "0", 
      "0", "0", "0", "0", "0", "0", "0.`", "0", "0", "0", "0", "0", "0", "0", 
      "0", "0", "0", "0", "0", "0", "0", "0", "0", "0", "0", "0", "0", "0", 
      "0", "0", "0", "0", "0", "0", "0", "0", "0", "0", "0", "0", "0", "0", 
      "0", "0", "0", "0", "0", "0"},
     {"0", "2.095323553103386`", "0", "0", "0", "0", "0", "0", "0", "0", "0", 
      "0", "0", "0", "0", "0", "0", "0", "0", "0", "0", "0", "0", "0", "0", 
      "0", "0", "0", "0", "0", "0", "0", "0", "0", "0", "0", "0", "0", "0", 
      "0", "0", "0", "0", "0", "0", "0", "0.`", "0", "0", "0", "0", "0", "0", 
      "0", "0", "0", "0", "0", "0", "0", "0", "0", "0", "0", "0", "0", "0", 
      "0", "0", "0", "0", "0", "0", "0", "0", "0", "0", "0", "0", "0", "0", 
      "0", "0", "0", "0", "0", "0"},
     {"0", "0", "2.1004956915632067`", "0", "0", "0", "0", "0", "0", "0", "0",
       "0", "0", "0", "0", "0", "0", "0", "0", "0", "0", "0", "0", "0", "0", 
      "0", "0", "0", "0", "0", "0", "0", "0", "0", "0", "0", "0", "0", "0", 
      "0", "0", "0", "0", "0", "0", "0", "0", "0.`", "0", "0", "0", "0", "0", 
      "0", "0", "0", "0", "0", "0", "0", "0", "0", "0", "0", "0", "0", "0", 
      "0", "0", "0", "0", "0", "0", "0", "0", "0", "0", "0", "0", "0", "0", 
      "0", "0", "0", "0", "0", "0"},
     {"0", "0", "0", "2.0919608231125486`", "0", "0", "0", "0", "0", "0", "0",
       "0", "0", "0", "0", "0", "0", "0", "0", "0", "0", "0", "0", "0", "0", 
      "0", "0", "0", "0", "0", "0", "0", "0", "0", "0", "0", "0", "0", "0", 
      "0", "0", "0", "0", "0", "0", "0", "0", "0", "0.`", "0", "0", "0", "0", 
      "0", "0", "0", "0", "0", "0", "0", "0", "0", "0", "0", "0", "0", "0", 
      "0", "0", "0", "0", "0", "0", "0", "0", "0", "0", "0", "0", "0", "0", 
      "0", "0", "0", "0", "0", "0"},
     {"0", "0", "0", "0", "2.0994490158264134`", "0", "0", "0", "0", "0", "0",
       "0", "0", "0", "0", "0", "0", "0", "0", "0", "0", "0", "0", "0", "0", 
      "0", "0", "0", "0", "0", "0", "0", "0", "0", "0", "0", "0", "0", "0", 
      "0", "0", "0", "0", "0", "0", "0", "0", "0", "0", "0.`", "0", "0", "0", 
      "0", "0", "0", "0", "0", "0", "0", "0", "0", "0", "0", "0", "0", "0", 
      "0", "0", "0", "0", "0", "0", "0", "0", "0", "0", "0", "0", "0", "0", 
      "0", "0", "0", "0", "0", "0"},
     {"0", "0", "0", "0", "0", "0", "0", "0", "0", "0", "0", "0", "0", "0", 
      "0", "0", "0", "0", "0", "0", "0", "0", "0", "0", "0", "0", "0", "0", 
      "1.795562913509712`", "0", "0", "0", "0", "0", "0", "0", "0", "0", "0", 
      "0", "0", "0", "0", "0", "0", "0", "0", "0", "0", "0", "0.`", "0", "0", 
      "0", "0", "0", "0", "0", "0", "0", "0", "0", "0", "0", "0", "0", "0", 
      "0", "0", "0", "0", "0", "0", "0", "0", "0", "0", "0", "0", "0", "0", 
      "0", "0", "0", "0", "0", "0"},
     {"0", "0", "0", "0", "0", "0", "0", "0", "0", "0", "0", "0", "0", "0", 
      "0", "0", "0", "0", "0", "0", "0", "0", "0", "0", "0", 
      "1.7991442030508649`", "0", "0", "0", "0", "0", "0", "0", "0", "0", "0",
       "0", "0", "0", "0", "0", "0", "0", "0", "0", "0", "0", "0", "0", "0", 
      "0", "0.`", "0", "0", "0", "0", "0", "0", "0", "0", "0", "0", "0", "0", 
      "0", "0", "0", "0", "0", "0", "0", "0", "0", "0", "0", "0", "0", "0", 
      "0", "0", "0", "0", "0", "0", "0", "0", "0"},
     {"0", "0", "0", "0", "0", "2.0957265817920403`", "0", "0", "0", "0", "0",
       "0", "0", "0", "0", "0", "0", "0", "0", "0", "0", "0", "0", "0", "0", 
      "0", "0", "0", "0", "0", "0", "0", "0", "0", "0", "0", "0", "0", "0", 
      "0", "0", "0", "0", "0", "0", "0", "0", "0", "0", "0", "0", "0", "0.`", 
      "0", "0", "0", "0", "0", "0", "0", "0", "0", "0", "0", "0", "0", "0", 
      "0", "0", "0", "0", "0", "0", "0", "0", "0", "0", "0", "0", "0", "0", 
      "0", "0", "0", "0", "0", "0"},
     {"0", "0", "0", "0", "0", "2.1000876265968413`", "0", "0", "0", "0", "0",
       "0", "0", "0", "0", "0", "0", "0", "0", "0", "0", "0", "0", "0", "0", 
      "0", "0", "0", "0", "0", "0", "0", "0", "0", "0", "0", "0", "0", "0", 
      "0", "0", "0", "0", "0", "0", "0", "0", "0", "0", "0", "0", "0", "0", 
      "0.`", "0", "0", "0", "0", "0", "0", "0", "0", "0", "0", "0", "0", "0", 
      "0", "0", "0", "0", "0", "0", "0", "0", "0", "0", "0", "0", "0", "0", 
      "0", "0", "0", "0", "0", "0"},
     {"0", "0", "0", "0", "0", "0", "0", "0", "0", "0", "0", "0", "0", "0", 
      "0", "0", "0", "0", "0", "0", "0", "0", "0", "0", "0", "0", "0", "0", 
      "0", "1.8063754328012642`", "0", "0", "0", "0", "0", "0", "0", "0", "0",
       "0", "0", "0", "0", "0", "0", "0", "0", "0", "0", "0", "0", "0", "0", 
      "0", "0.`", "0", "0", "0", "0", "0", "0", "0", "0", "0", "0", "0", "0", 
      "0", "0", "0", "0", "0", "0", "0", "0", "0", "0", "0", "0", "0", "0", 
      "0", "0", "0", "0", "0", "0"},
     {"0", "0", "0", "0", "0", "0", "0", "0", "0", "0", "0", "0", "0", "0", 
      "0", "0", "0", "0", "0", "0", "0", "0", "0", "0", "0", "0", "0", 
      "1.7887711510036548`", "0", "0", "0", "0", "0", "0", "0", "0", "0", "0",
       "0", "0", "0", "0", "0", "0", "0", "0", "0", "0", "0", "0", "0", "0", 
      "0", "0", "0", "0.`", "0", "0", "0", "0", "0", "0", "0", "0", "0", "0", 
      "0", "0", "0", "0", "0", "0", "0", "0", "0", "0", "0", "0", "0", "0", 
      "0", "0", "0", "0", "0", "0", "0"},
     {"0", "0", "0", "0", "0", "0", "2.0920026452160934`", "0", "0", "0", "0",
       "0", "0", "0", "0", "0", "0", "0", "0", "0", "0", "0", "0", "0", "0", 
      "0", "0", "0", "0", "0", "0", "0", "0", "0", "0", "0", "0", "0", "0", 
      "0", "0", "0", "0", "0", "0", "0", "0", "0", "0", "0", "0", "0", "0", 
      "0", "0", "0", "0.`", "0", "0", "0", "0", "0", "0", "0", "0", "0", "0", 
      "0", "0", "0", "0", "0", "0", "0", "0", "0", "0", "0", "0", "0", "0", 
      "0", "0", "0", "0", "0", "0"},
     {"0", "0", "0", "0", "0", "0", "0", "2.0969675596906816`", "0", "0", "0",
       "0", "0", "0", "0", "0", "0", "0", "0", "0", "0", "0", "0", "0", "0", 
      "0", "0", "0", "0", "0", "0", "0", "0", "0", "0", "0", "0", "0", "0", 
      "0", "0", "0", "0", "0", "0", "0", "0", "0", "0", "0", "0", "0", "0", 
      "0", "0", "0", "0", "0.`", "0", "0", "0", "0", "0", "0", "0", "0", "0", 
      "0", "0", "0", "0", "0", "0", "0", "0", "0", "0", "0", "0", "0", "0", 
      "0", "0", "0", "0", "0", "0"},
     {"0", "0", "0", "0", "0", "0", "0", "0", "2.1018018165824643`", "0", "0",
       "0", "0", "0", "0", "0", "0", "0", "0", "0", "0", "0", "0", "0", "0", 
      "0", "0", "0", "0", "0", "0", "0", "0", "0", "0", "0", "0", "0", "0", 
      "0", "0", "0", "0", "0", "0", "0", "0", "0", "0", "0", "0", "0", "0", 
      "0", "0", "0", "0", "0", "0.`", "0", "0", "0", "0", "0", "0", "0", "0", 
      "0", "0", "0", "0", "0", "0", "0", "0", "0", "0", "0", "0", "0", "0", 
      "0", "0", "0", "0", "0", "0"},
     {"0", "0", "0", "0", "0", "0", "0", "0", "0", "2.097276625234732`", "0", 
      "0", "0", "0", "0", "0", "0", "0", "0", "0", "0", "0", "0", "0", "0", 
      "0", "0", "0", "0", "0", "0", "0", "0", "0", "0", "0", "0", "0", "0", 
      "0", "0", "0", "0", "0", "0", "0", "0", "0", "0", "0", "0", "0", "0", 
      "0", "0", "0", "0", "0", "0", "0.`", "0", "0", "0", "0", "0", "0", "0", 
      "0", "0", "0", "0", "0", "0", "0", "0", "0", "0", "0", "0", "0", "0", 
      "0", "0", "0", "0", "0", "0"},
     {"0", "0", "0", "0", "0", "0", "0", "0", "0", "0", "2.101525702977231`", 
      "0", "0", "0", "0", "0", "0", "0", "0", "0", "0", "0", "0", "0", "0", 
      "0", "0", "0", "0", "0", "0", "0", "0", "0", "0", "0", "0", "0", "0", 
      "0", "0", "0", "0", "0", "0", "0", "0", "0", "0", "0", "0", "0", "0", 
      "0", "0", "0", "0", "0", "0", "0", "0.`", "0", "0", "0", "0", "0", "0", 
      "0", "0", "0", "0", "0", "0", "0", "0", "0", "0", "0", "0", "0", "0", 
      "0", "0", "0", "0", "0", "0"},
     {"0", "0", "0", "0", "0", "0", "0", "0", "0", "0", "0", 
      "2.095748733341614`", "0", "0", "0", "0", "0", "0", "0", "0", "0", "0", 
      "0", "0", "0", "0", "0", "0", "0", "0", "0", "0", "0", "0", "0", "0", 
      "0", "0", "0", "0", "0", "0", "0", "0", "0", "0", "0", "0", "0", "0", 
      "0", "0", "0", "0", "0", "0", "0", "0", "0", "0", "0", "0.`", "0", "0", 
      "0", "0", "0", "0", "0", "0", "0", "0", "0", "0", "0", "0", "0", "0", 
      "0", "0", "0", "0", "0", "0", "0", "0", "0"},
     {"0", "0", "0", "0", "0", "0", "0", "0", "0", "0", "0", 
      "2.099529809545039`", "0", "0", "0", "0", "0", "0", "0", "0", "0", "0", 
      "0", "0", "0", "0", "0", "0", "0", "0", "0", "0", "0", "0", "0", "0", 
      "0", "0", "0", "0", "0", "0", "0", "0", "0", "0", "0", "0", "0", "0", 
      "0", "0", "0", "0", "0", "0", "0", "0", "0", "0", "0", "0", "0.`", "0", 
      "0", "0", "0", "0", "0", "0", "0", "0", "0", "0", "0", "0", "0", "0", 
      "0", "0", "0", "0", "0", "0", "0", "0", "0"},
     {"0", "0", "0", "0", "0", "0", "0", "0", "0", "0", "0", "0", "0", "0", 
      "0", "0", "0", "0", "0", "0", "0", "0", "0", "0", "0", "0", "0", "0", 
      "0", "0", "1.7967826447111432`", "0", "0", "0", "0", "0", "0", "0", "0",
       "0", "0", "0", "0", "0", "0", "0", "0", "0", "0", "0", "0", "0", "0", 
      "0", "0", "0", "0", "0", "0", "0", "0", "0", "0", "0.`", "0", "0", "0", 
      "0", "0", "0", "0", "0", "0", "0", "0", "0", "0", "0", "0", "0", "0", 
      "0", "0", "0", "0", "0", "0"},
     {"0", "0", "0", "0", "0", "0", "0", "0", "0", "0", "0", "0", "0", "0", 
      "0", "0", "0", "0", "0", "0", "0", "0", "0", "0", "0", "0", "0", "0", 
      "0", "0", "0", "1.8010605652519145`", "0", "0", "0", "0", "0", "0", "0",
       "0", "0", "0", "0", "0", "0", "0", "0", "0", "0", "0", "0", "0", "0", 
      "0", "0", "0", "0", "0", "0", "0", "0", "0", "0", "0", "0.`", "0", "0", 
      "0", "0", "0", "0", "0", "0", "0", "0", "0", "0", "0", "0", "0", "0", 
      "0", "0", "0", "0", "0", "0"},
     {"0", "0", "0", "0", "0", "0", "0", "0", "0", "0", "0", "0", "0", "0", 
      "0", "0", "0", "0", "0", "0", "0", "0", "0", "0", "0", "0", "0", "0", 
      "0", "0", "0", "0", "0", "0", "1.803763017490433`", "0", "0", "0", "0", 
      "0", "0", "0", "0", "0", "0", "0", "0", "0", "0", "0", "0", "0", "0", 
      "0", "0", "0", "0", "0", "0", "0", "0", "0", "0", "0", "0", "0.`", "0", 
      "0", "0", "0", "0", "0", "0", "0", "0", "0", "0", "0", "0", "0", "0", 
      "0", "0", "0", "0", "0", "0"},
     {"0", "0", "0", "0", "0", "0", "0", "0", "0", "0", "0", "0", 
      "2.089878903319534`", "0", "0", "0", "0", "0", "0", "0", "0", "0", "0", 
      "0", "0", "0", "0", "0", "0", "0", "0", "0", "0", "0", "0", "0", "0", 
      "0", "0", "0", "0", "0", "0", "0", "0", "0", "0", "0", "0", "0", "0", 
      "0", "0", "0", "0", "0", "0", "0", "0", "0", "0", "0", "0", "0", "0", 
      "0", "0.`", "0", "0", "0", "0", "0", "0", "0", "0", "0", "0", "0", "0", 
      "0", "0", "0", "0", "0", "0", "0", "0"},
     {"0", "0", "0", "0", "0", "0", "0", "0", "0", "0", "0", "0", "0", 
      "2.097334516745512`", "0", "0", "0", "0", "0", "0", "0", "0", "0", "0", 
      "0", "0", "0", "0", "0", "0", "0", "0", "0", "0", "0", "0", "0", "0", 
      "0", "0", "0", "0", "0", "0", "0", "0", "0", "0", "0", "0", "0", "0", 
      "0", "0", "0", "0", "0", "0", "0", "0", "0", "0", "0", "0", "0", "0", 
      "0", "0.`", "0", "0", "0", "0", "0", "0", "0", "0", "0", "0", "0", "0", 
      "0", "0", "0", "0", "0", "0", "0"},
     {"0", "0", "0", "0", "0", "0", "0", "0", "0", "0", "0", "0", "0", "0", 
      "2.0983158752517537`", "0", "0", "0", "0", "0", "0", "0", "0", "0", "0",
       "0", "0", "0", "0", "0", "0", "0", "0", "0", "0", "0", "0", "0", "0", 
      "0", "0", "0", "0", "0", "0", "0", "0", "0", "0", "0", "0", "0", "0", 
      "0", "0", "0", "0", "0", "0", "0", "0", "0", "0", "0", "0", "0", "0", 
      "0", "0.`", "0", "0", "0", "0", "0", "0", "0", "0", "0", "0", "0", "0", 
      "0", "0", "0", "0", "0", "0"},
     {"0", "0", "0", "0", "0", "0", "0", "0", "0", "0", "0", "0", "0", "0", 
      "0", "2.0943902398361645`", "0", "0", "0", "0", "0", "0", "0", "0", "0",
       "0", "0", "0", "0", "0", "0", "0", "0", "0", "0", "0", "0", "0", "0", 
      "0", "0", "0", "0", "0", "0", "0", "0", "0", "0", "0", "0", "0", "0", 
      "0", "0", "0", "0", "0", "0", "0", "0", "0", "0", "0", "0", "0", "0", 
      "0", "0", "0.`", "0", "0", "0", "0", "0", "0", "0", "0", "0", "0", "0", 
      "0", "0", "0", "0", "0", "0"},
     {"0", "0", "0", "0", "0", "0", "0", "0", "0", "0", "0", "0", "0", "0", 
      "0", "0", "2.101940284517908`", "0", "0", "0", "0", "0", "0", "0", "0", 
      "0", "0", "0", "0", "0", "0", "0", "0", "0", "0", "0", "0", "0", "0", 
      "0", "0", "0", "0", "0", "0", "0", "0", "0", "0", "0", "0", "0", "0", 
      "0", "0", "0", "0", "0", "0", "0", "0", "0", "0", "0", "0", "0", "0", 
      "0", "0", "0", "0.`", "0", "0", "0", "0", "0", "0", "0", "0", "0", "0", 
      "0", "0", "0", "0", "0", "0"},
     {"0", "0", "0", "0", "0", "0", "0", "0", "0", "0", "0", "0", "0", "0", 
      "0", "0", "0", "2.0972800306619543`", "0", "0", "0", "0", "0", "0", "0",
       "0", "0", "0", "0", "0", "0", "0", "0", "0", "0", "0", "0", "0", "0", 
      "0", "0", "0", "0", "0", "0", "0", "0", "0", "0", "0", "0", "0", "0", 
      "0", "0", "0", "0", "0", "0", "0", "0", "0", "0", "0", "0", "0", "0", 
      "0", "0", "0", "0", "0.`", "0", "0", "0", "0", "0", "0", "0", "0", "0", 
      "0", "0", "0", "0", "0", "0"},
     {"0", "0", "0", "0", "0", "0", "0", "0", "0", "0", "0", "0", "0", "0", 
      "0", "0", "0", "2.0996896868982753`", "0", "0", "0", "0", "0", "0", "0",
       "0", "0", "0", "0", "0", "0", "0", "0", "0", "0", "0", "0", "0", "0", 
      "0", "0", "0", "0", "0", "0", "0", "0", "0", "0", "0", "0", "0", "0", 
      "0", "0", "0", "0", "0", "0", "0", "0", "0", "0", "0", "0", "0", "0", 
      "0", "0", "0", "0", "0", "0.`", "0", "0", "0", "0", "0", "0", "0", "0", 
      "0", "0", "0", "0", "0", "0"},
     {"0", "0", "0", "0", "0", "0", "0", "0", "0", "0", "0", "0", "0", "0", 
      "0", "0", "0", "0", "0", "0", "0", "0", "0", "0", "0", "0", "0", "0", 
      "0", "0", "0", "0", "0", "0", "0", "1.7937899931961785`", "0", "0", "0",
       "0", "0", "0", "0", "0", "0", "0", "0", "0", "0", "0", "0", "0", "0", 
      "0", "0", "0", "0", "0", "0", "0", "0", "0", "0", "0", "0", "0", "0", 
      "0", "0", "0", "0", "0", "0", "0.`", "0", "0", "0", "0", "0", "0", "0", 
      "0", "0", "0", "0", "0", "0"},
     {"0", "0", "0", "0", "0", "0", "0", "0", "0", "0", "0", "0", "0", "0", 
      "0", "0", "0", "0", "0", "0", "0", "0", "0", "0", "0", "0", "0", "0", 
      "0", "0", "0", "0", "0", "0", "0", "0", "1.8001423149608884`", "0", "0",
       "0", "0", "0", "0", "0", "0", "0", "0", "0", "0", "0", "0", "0", "0", 
      "0", "0", "0", "0", "0", "0", "0", "0", "0", "0", "0", "0", "0", "0", 
      "0", "0", "0", "0", "0", "0", "0", "0.`", "0", "0", "0", "0", "0", "0", 
      "0", "0", "0", "0", "0", "0"},
     {"0", "0", "0", "0", "0", "0", "0", "0", "0", "0", "0", "0", "0", "0", 
      "0", "0", "0", "0", "0", "0", "0", "0", "0", "0", "0", "0", "0", "0", 
      "0", "0", "0", "0", "0", "0", "0", "0", "0", "0", "0", 
      "1.8028550571947237`", "0", "0", "0", "0", "0", "0", "0", "0", "0", "0",
       "0", "0", "0", "0", "0", "0", "0", "0", "0", "0", "0", "0", "0", "0", 
      "0", "0", "0", "0", "0", "0", "0", "0", "0", "0", "0", "0.`", "0", "0", 
      "0", "0", "0", "0", "0", "0", "0", "0", "0"},
     {"0", "0", "0", "0", "0", "0", "0", "0", "0", "0", "0", "0", "0", "0", 
      "0", "0", "0", "0", "2.091582679199757`", "0", "0", "0", "0", "0", "0", 
      "0", "0", "0", "0", "0", "0", "0", "0", "0", "0", "0", "0", "0", "0", 
      "0", "0", "0", "0", "0", "0", "0", "0", "0", "0", "0", "0", "0", "0", 
      "0", "0", "0", "0", "0", "0", "0", "0", "0", "0", "0", "0", "0", "0", 
      "0", "0", "0", "0", "0", "0", "0", "0", "0", "0.`", "0", "0", "0", "0", 
      "0", "0", "0", "0", "0", "0"},
     {"0", "0", "0", "0", "0", "0", "0", "0", "0", "0", "0", "0", "0", "0", 
      "0", "0", "0", "0", "0", "2.098440959091709`", "0", "0", "0", "0", "0", 
      "0", "0", "0", "0", "0", "0", "0", "0", "0", "0", "0", "0", "0", "0", 
      "0", "0", "0", "0", "0", "0", "0", "0", "0", "0", "0", "0", "0", "0", 
      "0", "0", "0", "0", "0", "0", "0", "0", "0", "0", "0", "0", "0", "0", 
      "0", "0", "0", "0", "0", "0", "0", "0", "0", "0", "0.`", "0", "0", "0", 
      "0", "0", "0", "0", "0", "0"},
     {"0", "0", "0", "0", "0", "0", "0", "0", "0", "0", "0", "0", "0", "0", 
      "0", "0", "0", "0", "0", "0", "2.0992193745958576`", "0", "0", "0", "0",
       "0", "0", "0", "0", "0", "0", "0", "0", "0", "0", "0", "0", "0", "0", 
      "0", "0", "0", "0", "0", "0", "0", "0", "0", "0", "0", "0", "0", "0", 
      "0", "0", "0", "0", "0", "0", "0", "0", "0", "0", "0", "0", "0", "0", 
      "0", "0", "0", "0", "0", "0", "0", "0", "0", "0", "0", "0.`", "0", "0", 
      "0", "0", "0", "0", "0", "0"},
     {"0", "0", "0", "0", "0", "0", "0", "0", "0", "0", "0", "0", "0", "0", 
      "0", "0", "0", "0", "0", "0", "0", "2.0992627531971153`", "0", "0", "0",
       "0", "0", "0", "0", "0", "0", "0", "0", "0", "0", "0", "0", "0", "0", 
      "0", "0", "0", "0", "0", "0", "0", "0", "0", "0", "0", "0", "0", "0", 
      "0", "0", "0", "0", "0", "0", "0", "0", "0", "0", "0", "0", "0", "0", 
      "0", "0", "0", "0", "0", "0", "0", "0", "0", "0", "0", "0", "0.`", "0", 
      "0", "0", "0", "0", "0", "0"},
     {"0", "0", "0", "0", "0", "0", "0", "0", "0", "0", "0", "0", "0", "0", 
      "0", "0", "0", "0", "0", "0", "0", "0", "2.0993401520042063`", "0", "0",
       "0", "0", "0", "0", "0", "0", "0", "0", "0", "0", "0", "0", "0", "0", 
      "0", "0", "0", "0", "0", "0", "0", "0", "0", "0", "0", "0", "0", "0", 
      "0", "0", "0", "0", "0", "0", "0", "0", "0", "0", "0", "0", "0", "0", 
      "0", "0", "0", "0", "0", "0", "0", "0", "0", "0", "0", "0", "0", "0.`", 
      "0", "0", "0", "0", "0", "0"},
     {"0", "0", "0", "0", "0", "0", "0", "0", "0", "0", "0", "0", "0", "0", 
      "0", "0", "0", "0", "0", "0", "0", "0", "0", "2.0987191800805176`", "0",
       "0", "0", "0", "0", "0", "0", "0", "0", "0", "0", "0", "0", "0", "0", 
      "0", "0", "0", "0", "0", "0", "0", "0", "0", "0", "0", "0", "0", "0", 
      "0", "0", "0", "0", "0", "0", "0", "0", "0", "0", "0", "0", "0", "0", 
      "0", "0", "0", "0", "0", "0", "0", "0", "0", "0", "0", "0", "0", "0", 
      "0.`", "0", "0", "0", "0", "0"},
     {"0", "0", "0", "0", "0", "0", "0", "0", "0", "0", "0", "0", "0", "0", 
      "0", "0", "0", "0", "0", "0", "0", "0", "0", "2.0968108809698967`", "0",
       "0", "0", "0", "0", "0", "0", "0", "0", "0", "0", "0", "0", "0", "0", 
      "0", "0", "0", "0", "0", "0", "0", "0", "0", "0", "0", "0", "0", "0", 
      "0", "0", "0", "0", "0", "0", "0", "0", "0", "0", "0", "0", "0", "0", 
      "0", "0", "0", "0", "0", "0", "0", "0", "0", "0", "0", "0", "0", "0", 
      "0", "0.`", "0", "0", "0", "0"},
     {"0", "0", "0", "0", "0", "0", "0", "0", "0", "0", "0", "0", "0", "0", 
      "0", "0", "0", "0", "0", "0", "0", "0", "0", "0", "0", "0", "0", "0", 
      "0", "0", "0", "0", "0", "0", "0", "0", "0", "0", "0", "0", 
      "1.7956364986081583`", "0", "0", "0", "0", "0", "0", "0", "0", "0", "0",
       "0", "0", "0", "0", "0", "0", "0", "0", "0", "0", "0", "0", "0", "0", 
      "0", "0", "0", "0", "0", "0", "0", "0", "0", "0", "0", "0", "0", "0", 
      "0", "0", "0", "0", "0.`", "0", "0", "0"},
     {"0", "0", "0", "0", "0", "0", "0", "0", "0", "0", "0", "0", "0", "0", 
      "0", "0", "0", "0", "0", "0", "0", "0", "0", "0", "0", "0", "0", "0", 
      "0", "0", "0", "0", "0", "0", "0", "0", "0", "0", "0", "0", "0", 
      "1.7932145617559319`", "0", "0", "0", "0", "0", "0", "0", "0", "0", "0",
       "0", "0", "0", "0", "0", "0", "0", "0", "0", "0", "0", "0", "0", "0", 
      "0", "0", "0", "0", "0", "0", "0", "0", "0", "0", "0", "0", "0", "0", 
      "0", "0", "0", "0", "0.`", "0", "0"},
     {"0", "0", "0", "0", "0", "0", "0", "0", "0", "0", "0", "0", "0", "0", 
      "0", "0", "0", "0", "0", "0", "0", "0", "0", "0", "0", "0", "0", "0", 
      "0", "0", "0", "0", "0", "0", "0", "0", "0", "0", "0", "0", "0", "0", 
      "1.7915250317389662`", "0", "0", "0", "0", "0", "0", "0", "0", "0", "0",
       "0", "0", "0", "0", "0", "0", "0", "0", "0", "0", "0", "0", "0", "0", 
      "0", "0", "0", "0", "0", "0", "0", "0", "0", "0", "0", "0", "0", "0", 
      "0", "0", "0", "0", "0.`", "0"},
     {"0", "0", "0", "0", "0", "0", "0", "0", "0", "0", "0", "0", "0", "0", 
      "0", "0", "0", "0", "0", "0", "0", "0", "0", "0", "0", "0", "0", "0", 
      "0", "0", "0", "0", "0", "0", "0", "0", "0", "0", "0", "0", "0", "0", 
      "0", "0", "1.7907394954698164`", "0", "0", "0", "0", "0", "0", "0", "0",
       "0", "0", "0", "0", "0", "0", "0", "0", "0", "0", "0", "0", "0", "0", 
      "0", "0", "0", "0", "0", "0", "0", "0", "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.57034203434875*^9, 3.570342163610577*^9, 
  3.57034251239599*^9, 3.570342889355052*^9}]
}, Open  ]],

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", "<", "i"}], ",", 
     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}}],

Cell[BoxData[
 RowBox[{"{", 
  RowBox[{
  "0.255`", ",", "0.255`", ",", "0.255`", ",", "0.255`", ",", "0.255`", ",", 
   "0.255`", ",", "0.255`", ",", "0.255`", ",", "0.255`", ",", "0.255`", ",", 
   "0.255`", ",", "0.255`", ",", "0.255`", ",", "0.255`", ",", "0.255`", ",", 
   "0.255`", ",", "0.255`", ",", "0.255`", ",", "0.255`", ",", "0.255`", ",", 
   "0.255`", ",", "0.255`", ",", "0.255`", ",", "0.255`", ",", "0.178`", ",", 
   "0.178`", ",", "0.178`", ",", "0.178`", ",", "0.178`", ",", "0.178`", ",", 
   "0.178`", ",", "0.178`", ",", "0.178`", ",", "0.178`", ",", "0.178`", ",", 
   "0.178`", ",", "0.178`", ",", "0.178`", ",", "0.178`", ",", "0.178`", ",", 
   "0.178`", ",", "0.178`", ",", "0.178`", ",", "0.178`", ",", "0.178`", ",", 
   "0.5693`", ",", "0.5693`", ",", "0.5693`", ",", "0.5693`", ",", "0.5693`", 
   ",", "0.5241`", ",", "0.5241`", ",", "0.5693`", ",", "0.5693`", ",", 
   "0.5241`", ",", "0.5241`", ",", "0.5693`", ",", "0.5693`", ",", "0.5693`", 
   ",", "0.5693`", ",", "0.5693`", ",", "0.5693`", ",", "0.5693`", ",", 
   "0.5241`", ",", "0.5241`", ",", "0.5241`", ",", "0.5693`", ",", "0.5693`", 
   ",", "0.5693`", ",", "0.5693`", ",", "0.5693`", ",", "0.5693`", ",", 
   "0.5693`", ",", "0.5241`", ",", "0.5241`", ",", "0.5241`", ",", "0.5693`", 
   ",", "0.5693`", ",", "0.5693`", ",", "0.5693`", ",", "0.5693`", ",", 
   "0.5693`", ",", "0.5693`", ",", "0.5241`", ",", "0.5241`", ",", "0.5241`", 
   ",", "0.5241`"}], "}"}]], "Output",
 CellChangeTimes->{3.5703420344111505`*^9, 3.5703421636573772`*^9, 
  3.57034251242719*^9, 3.5703428894018517`*^9}]
}, Open  ]],

Cell[BoxData[{
 RowBox[{
  RowBox[{
   RowBox[{"Fij", "=", 
    RowBox[{"Dij", "-", "u2"}]}], ";"}], "\[IndentingNewLine]", 
  RowBox[{"(*", 
   RowBox[{
    RowBox[{"MatrixForm", "[", "Fij", "]"}], ";"}], 
   "*)"}]}], "\[IndentingNewLine]", 
 RowBox[{
  RowBox[{"Gij", "=", 
   RowBox[{"Table", "[", 
    RowBox[{
     RowBox[{"If", "[", 
      RowBox[{
       RowBox[{"i", "\[GreaterEqual]", "j"}], ",", 
       RowBox[{"If", "[", 
        RowBox[{
         RowBox[{
          RowBox[{"Fij", "[", 
           RowBox[{"[", 
            RowBox[{"i", ",", "j"}], "]"}], "]"}], ">", "0"}], ",", 
         RowBox[{"Fij", "[", 
          RowBox[{"[", 
           RowBox[{"i", ",", "j"}], "]"}], "]"}], ",", "0"}], "]"}], ",", 
       "\"\< \>\""}], "]"}], ",", 
     RowBox[{"{", 
      RowBox[{"i", ",", "1", ",", "n"}], "}"}], ",", 
     RowBox[{"{", 
      RowBox[{"j", ",", "1", ",", "n"}], "}"}]}], "]"}]}], 
  ";"}], "\[IndentingNewLine]", 
 RowBox[{
  RowBox[{"(*", 
   RowBox[{
    RowBox[{"MatrixForm", "[", "Gij", "]"}], ";"}], "*)"}]}]}], "Input",
 CellChangeTimes->{{3.567958596890297*^9, 3.567958603270708*^9}, {
   3.5679587604565845`*^9, 3.5679587707682023`*^9}, {3.5679588272871017`*^9, 
   3.567958828254304*^9}, {3.567959580066424*^9, 3.5679595814704266`*^9}, {
   3.567959624994503*^9, 3.5679596300177116`*^9}, {3.5679597079086485`*^9, 
   3.567959902877791*^9}, {3.5679599961659546`*^9, 3.5679600446196404`*^9}, {
   3.5679609611992497`*^9, 3.567960974006872*^9}, 3.567961975154231*^9, {
   3.5679622637079377`*^9, 3.5679622945179915`*^9}, 3.5681142413606625`*^9, 
   3.568121878697276*^9, {3.5681219332193723`*^9, 3.56812197189184*^9}, {
   3.5682778370003624`*^9, 3.5682778397927675`*^9}, {3.569341165522358*^9, 
   3.569341165537958*^9}, {3.5693418217531104`*^9, 3.5693418217531104`*^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[{"Lij", "=", 
    RowBox[{"Table", "[", 
     RowBox[{
      RowBox[{"If", "[", 
       RowBox[{
        RowBox[{"i", "\[LessEqual]", "j"}], ",", 
        RowBox[{"If", "[", 
         RowBox[{
          RowBox[{
           RowBox[{"Lij", "[", 
            RowBox[{"[", 
             RowBox[{"i", ",", "j"}], "]"}], "]"}], ">", "0"}], ",", 
          RowBox[{"If", "[", 
           RowBox[{
            RowBox[{
             RowBox[{"u", "[", 
              RowBox[{"[", "j", "]"}], "]"}], "\[NotEqual]", "\"\<H\>\""}], 
            ",", 
            RowBox[{"0.5", "*", 
             RowBox[{"Lij", "[", 
              RowBox[{"[", 
               RowBox[{"i", ",", "j"}], "]"}], "]"}]}], ",", 
            RowBox[{"Lij", "[", 
             RowBox[{"[", 
              RowBox[{"i", ",", "j"}], "]"}], "]"}]}], "]"}], ",", "0"}], 
         "]"}], ",", "\"\< \>\""}], "]"}], ",", 
      RowBox[{"{", 
       RowBox[{"i", ",", "1", ",", "n"}], "}"}], ",", 
      RowBox[{"{", 
       RowBox[{"j", ",", "1", ",", "n"}], "}"}]}], "]"}]}], ";"}], 
  "  "}], "\[IndentingNewLine]", 
 RowBox[{
  RowBox[{"Qij", "=", "Lij"}], ";"}], "\[IndentingNewLine]", 
 RowBox[{
  RowBox[{"(*", 
   RowBox[{
    RowBox[{"MatrixForm", "[", "Lij", "]"}], ";"}], "*)"}]}]}], "Input",
 CellChangeTimes->{{3.5679627617388124`*^9, 3.567962837461345*^9}, {
   3.567963118121438*^9, 3.567963118698639*^9}, {3.5679631520670977`*^9, 
   3.5679631541731014`*^9}, {3.5679631898191643`*^9, 
   3.5679632154656096`*^9}, {3.5679635823158536`*^9, 3.56796361468591*^9}, {
   3.567963691516045*^9, 3.567963693590849*^9}, {3.567963737957327*^9, 
   3.567963807299449*^9}, {3.568048114904332*^9, 3.5680481161835346`*^9}, 
   3.5680482221389203`*^9, {3.5680485003498087`*^9, 3.5680485123618298`*^9}, 
   3.5681142659931054`*^9, 3.5681219084621286`*^9, {3.568277848107582*^9, 
   3.5682778496519847`*^9}, {3.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}],

Cell[BoxData[{
 RowBox[{
  RowBox[{"Nij", "=", 
   RowBox[{"Table", "[", 
    RowBox[{
     RowBox[{"If", "[", 
      RowBox[{
       RowBox[{"i", "\[LessEqual]", "j"}], ",", 
       RowBox[{"If", "[", 
        RowBox[{
         RowBox[{
          RowBox[{"Lij", "[", 
           RowBox[{"[", 
            RowBox[{"i", ",", "j"}], "]"}], "]"}], ">", "0"}], ",", 
         RowBox[{"2.25", "/", 
          RowBox[{
           RowBox[{"Lij", "[", 
            RowBox[{"[", 
             RowBox[{"i", ",", "j"}], "]"}], "]"}], "^", "2"}]}], ",", "0"}], 
        "]"}], ",", "\"\< \>\""}], "]"}], ",", 
     RowBox[{"{", 
      RowBox[{"i", ",", "1", ",", "n"}], "}"}], ",", 
     RowBox[{"{", 
      RowBox[{"j", ",", "1", ",", "n"}], "}"}]}], "]"}]}], 
  ";"}], "\[IndentingNewLine]", 
 RowBox[{
  RowBox[{"(*", 
   RowBox[{"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}],

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["146.19934553660713`"], "Output",
 CellChangeTimes->{3.5703420344735503`*^9, 3.5703421637197776`*^9, 
  3.5703425124895897`*^9, 3.5703428894642525`*^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["2321.73880565393`"], "Output",
 CellChangeTimes->{3.57034203448915*^9, 3.5703421637353773`*^9, 
  3.57034251250519*^9, 3.570342889495452*^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["2467.938151190537`"], "Output",
 CellChangeTimes->{3.5703420345203505`*^9, 3.5703421637665777`*^9, 
  3.57034251252079*^9, 3.570342889511052*^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["65.13825184008753`"], "Output",
 CellChangeTimes->{3.570342034551551*^9, 3.570342163782178*^9, 
  3.5703425125519905`*^9, 3.5703428895266523`*^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["81.06109369651959`"], "Output",
 CellChangeTimes->{3.5703420345671506`*^9, 3.5703421637977777`*^9, 
  3.57034251256759*^9, 3.5703428895422525`*^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\
\"\>", "\<\"C\"\>", "\<\"C\"\>", "\<\"C\"\>", "\<\"C\"\>", "\<\"C\"\>", \
"\<\"C\"\>", "\<\"C\"\>", "\<\"C\"\>", "\<\"C\"\>", "\<\"C\"\>", "\<\"C\"\>", \
"\<\"C\"\>", "\<\"C\"\>", "\<\"C\"\>", "\<\"C\"\>", "\<\"C\"\>", "\<\"C\"\>", \
"\<\"C\"\>", "\<\"C\"\>", "\<\"O\"\>", "\<\"O\"\>", "\<\"O\"\>", "\<\"O\"\>", \
"\<\"O\"\>", "\<\"O\"\>", "\<\"O\"\>", "\<\"O\"\>", "\<\"O\"\>", "\<\"O\"\>", \
"\<\"O\"\>", "\<\"O\"\>", "\<\"O\"\>", "\<\"O\"\>", "\<\"O\"\>", "\<\"O\"\>", \
"\<\"O\"\>", "\<\"O\"\>", "\<\"O\"\>", "\<\"O\"\>", "\<\"O\"\>", "\<\"H\"\>", \
"\<\"H\"\>", "\<\"H\"\>", "\<\"H\"\>", "\<\"H\"\>", "\<\"H\"\>", "\<\"H\"\>", \
"\<\"H\"\>", "\<\"H\"\>", "\<\"H\"\>", "\<\"H\"\>", "\<\"H\"\>", "\<\"H\"\>", \
"\<\"H\"\>", "\<\"H\"\>", "\<\"H\"\>", "\<\"H\"\>", "\<\"H\"\>", "\<\"H\"\>", \
"\<\"H\"\>", "\<\"H\"\>", "\<\"H\"\>", "\<\"H\"\>", "\<\"H\"\>", "\<\"H\"\>", \
"\<\"H\"\>", "\<\"H\"\>", "\<\"H\"\>", "\<\"H\"\>", "\<\"H\"\>", "\<\"H\"\>", \
"\<\"H\"\>", "\<\"H\"\>", "\<\"H\"\>", "\<\"H\"\>", "\<\"H\"\>", "\<\"H\"\>", \
"\<\"H\"\>", "\<\"H\"\>", "\<\"H\"\>", "\<\"H\"\>", "\<\"H\"\>"},
     {"\<\"C\"\>", 
      "0", "\<\" \"\>", "\<\" \"\>", "\<\" \"\>", "\<\" \"\>", "\<\" \"\>", "\
\<\" \"\>", "\<\" \"\>", "\<\" \"\>", "\<\" \"\>", "\<\" \"\>", "\<\" \"\>", \
"\<\" \"\>", "\<\" \"\>", "\<\" \"\>", "\<\" \"\>", "\<\" \"\>", "\<\" \"\>", \
"\<\" \"\>", "\<\" \"\>", "\<\" \"\>", "\<\" \"\>", "\<\" \"\>", "\<\" \"\>", \
"\<\" \"\>", "\<\" \"\>", "\<\" \"\>", "\<\" \"\>", "\<\" \"\>", "\<\" \"\>", \
"\<\" \"\>", "\<\" \"\>", "\<\" \"\>", "\<\" \"\>", "\<\" \"\>", "\<\" \"\>", \
"\<\" \"\>", "\<\" \"\>", "\<\" \"\>", "\<\" \"\>", "\<\" \"\>", "\<\" \"\>", \
"\<\" \"\>", "\<\" \"\>", "\<\" \"\>", "\<\" \"\>", "\<\" \"\>", "\<\" \"\>", \
"\<\" \"\>", "\<\" \"\>", "\<\" \"\>", "\<\" \"\>", "\<\" \"\>", "\<\" \"\>", \
"\<\" \"\>", "\<\" \"\>", "\<\" \"\>", "\<\" \"\>", "\<\" \"\>", "\<\" \"\>", \
"\<\" \"\>", "\<\" \"\>", "\<\" \"\>", "\<\" \"\>", "\<\" \"\>", "\<\" \"\>", \
"\<\" \"\>", "\<\" \"\>", "\<\" \"\>", "\<\" \"\>", "\<\" \"\>", "\<\" \"\>", \
"\<\" \"\>", "\<\" \"\>", "\<\" \"\>", "\<\" \"\>", "\<\" \"\>", "\<\" \"\>", \
"\<\" \"\>", "\<\" \"\>", "\<\" \"\>", "\<\" \"\>", "\<\" \"\>", "\<\" \"\>", \
"\<\" \"\>", "\<\" \"\>", "\<\" \"\>"},
     {"\<\"C\"\>", "1.1831091114925423`", 
      "0", "\<\" \"\>", "\<\" \"\>", "\<\" \"\>", "\<\" \"\>", "\<\" \"\>", "\
\<\" \"\>", "\<\" \"\>", "\<\" \"\>", "\<\" \"\>", "\<\" \"\>", "\<\" \"\>", \
"\<\" \"\>", "\<\" \"\>", "\<\" \"\>", "\<\" \"\>", "\<\" \"\>", "\<\" \"\>", \
"\<\" \"\>", "\<\" \"\>", "\<\" \"\>", "\<\" \"\>", "\<\" \"\>", "\<\" \"\>", \
"\<\" \"\>", "\<\" \"\>", "\<\" \"\>", "\<\" \"\>", "\<\" \"\>", "\<\" \"\>", \
"\<\" \"\>", "\<\" \"\>", "\<\" \"\>", "\<\" \"\>", "\<\" \"\>", "\<\" \"\>", \
"\<\" \"\>", "\<\" \"\>", "\<\" \"\>", "\<\" \"\>", "\<\" \"\>", "\<\" \"\>", \
"\<\" \"\>", "\<\" \"\>", "\<\" \"\>", "\<\" \"\>", "\<\" \"\>", "\<\" \"\>", \
"\<\" \"\>", "\<\" \"\>", "\<\" \"\>", "\<\" \"\>", "\<\" \"\>", "\<\" \"\>", \
"\<\" \"\>", "\<\" \"\>", "\<\" \"\>", "\<\" \"\>", "\<\" \"\>", "\<\" \"\>", \
"\<\" \"\>", "\<\" \"\>", "\<\" \"\>", "\<\" \"\>", "\<\" \"\>", "\<\" \"\>", \
"\<\" \"\>", "\<\" \"\>", "\<\" \"\>", "\<\" \"\>", "\<\" \"\>", "\<\" \"\>", \
"\<\" \"\>", "\<\" \"\>", "\<\" \"\>", "\<\" \"\>", "\<\" \"\>", "\<\" \"\>", \
"\<\" \"\>", "\<\" \"\>", "\<\" \"\>", "\<\" \"\>", "\<\" \"\>", "\<\" \"\>", \
"\<\" \"\>", "\<\" \"\>"},
     {"\<\"C\"\>", "0", "1.1884420664660733`", 
      "0", "\<\" \"\>", "\<\" \"\>", "\<\" \"\>", "\<\" \"\>", "\<\" \"\>", "\
\<\" \"\>", "\<\" \"\>", "\<\" \"\>", "\<\" \"\>", "\<\" \"\>", "\<\" \"\>", \
"\<\" \"\>", "\<\" \"\>", "\<\" \"\>", "\<\" \"\>", "\<\" \"\>", "\<\" \"\>", \
"\<\" \"\>", "\<\" \"\>", "\<\" \"\>", "\<\" \"\>", "\<\" \"\>", "\<\" \"\>", \
"\<\" \"\>", "\<\" \"\>", "\<\" \"\>", "\<\" \"\>", "\<\" \"\>", "\<\" \"\>", \
"\<\" \"\>", "\<\" \"\>", "\<\" \"\>", "\<\" \"\>", "\<\" \"\>", "\<\" \"\>", \
"\<\" \"\>", "\<\" \"\>", "\<\" \"\>", "\<\" \"\>", "\<\" \"\>", "\<\" \"\>", \
"\<\" \"\>", "\<\" \"\>", "\<\" \"\>", "\<\" \"\>", "\<\" \"\>", "\<\" \"\>", \
"\<\" \"\>", "\<\" \"\>", "\<\" \"\>", "\<\" \"\>", "\<\" \"\>", "\<\" \"\>", \
"\<\" \"\>", "\<\" \"\>", "\<\" \"\>", "\<\" \"\>", "\<\" \"\>", "\<\" \"\>", \
"\<\" \"\>", "\<\" \"\>", "\<\" \"\>", "\<\" \"\>", "\<\" \"\>", "\<\" \"\>", \
"\<\" \"\>", "\<\" \"\>", "\<\" \"\>", "\<\" \"\>", "\<\" \"\>", "\<\" \"\>", \
"\<\" \"\>", "\<\" \"\>", "\<\" \"\>", "\<\" \"\>", "\<\" \"\>", "\<\" \"\>", \
"\<\" \"\>", "\<\" \"\>", "\<\" \"\>", "\<\" \"\>", "\<\" \"\>", "\<\" \"\>", \
"\<\" \"\>"},
     {"\<\"C\"\>", "0", "0", "0", 
      "0", "\<\" \"\>", "\<\" \"\>", "\<\" \"\>", "\<\" \"\>", "\<\" \"\>", "\
\<\" \"\>", "\<\" \"\>", "\<\" \"\>", "\<\" \"\>", "\<\" \"\>", "\<\" \"\>", \
"\<\" \"\>", "\<\" \"\>", "\<\" \"\>", "\<\" \"\>", "\<\" \"\>", "\<\" \"\>", \
"\<\" \"\>", "\<\" \"\>", "\<\" \"\>", "\<\" \"\>", "\<\" \"\>", "\<\" \"\>", \
"\<\" \"\>", "\<\" \"\>", "\<\" \"\>", "\<\" \"\>", "\<\" \"\>", "\<\" \"\>", \
"\<\" \"\>", "\<\" \"\>", "\<\" \"\>", "\<\" \"\>", "\<\" \"\>", "\<\" \"\>", \
"\<\" \"\>", "\<\" \"\>", "\<\" \"\>", "\<\" \"\>", "\<\" \"\>", "\<\" \"\>", \
"\<\" \"\>", "\<\" \"\>", "\<\" \"\>", "\<\" \"\>", "\<\" \"\>", "\<\" \"\>", \
"\<\" \"\>", "\<\" \"\>", "\<\" \"\>", "\<\" \"\>", "\<\" \"\>", "\<\" \"\>", \
"\<\" \"\>", "\<\" \"\>", "\<\" \"\>", "\<\" \"\>", "\<\" \"\>", "\<\" \"\>", \
"\<\" \"\>", "\<\" \"\>", "\<\" \"\>", "\<\" \"\>", "\<\" \"\>", "\<\" \"\>", \
"\<\" \"\>", "\<\" \"\>", "\<\" \"\>", "\<\" \"\>", "\<\" \"\>", "\<\" \"\>", \
"\<\" \"\>", "\<\" \"\>", "\<\" \"\>", "\<\" \"\>", "\<\" \"\>", "\<\" \"\>", \
"\<\" \"\>", "\<\" \"\>", "\<\" \"\>", "\<\" \"\>", "\<\" \"\>", "\<\" \"\>"},
     {"\<\"C\"\>", "1.1822816686131143`", "0", "0", "1.1820263536923503`", 
      "0", "\<\" \"\>", "\<\" \"\>", "\<\" \"\>", "\<\" \"\>", "\<\" \"\>", "\
\<\" \"\>", "\<\" \"\>", "\<\" \"\>", "\<\" \"\>", "\<\" \"\>", "\<\" \"\>", \
"\<\" \"\>", "\<\" \"\>", "\<\" \"\>", "\<\" \"\>", "\<\" \"\>", "\<\" \"\>", \
"\<\" \"\>", "\<\" \"\>", "\<\" \"\>", "\<\" \"\>", "\<\" \"\>", "\<\" \"\>", \
"\<\" \"\>", "\<\" \"\>", "\<\" \"\>", "\<\" \"\>", "\<\" \"\>", "\<\" \"\>", \
"\<\" \"\>", "\<\" \"\>", "\<\" \"\>", "\<\" \"\>", "\<\" \"\>", "\<\" \"\>", \
"\<\" \"\>", "\<\" \"\>", "\<\" \"\>", "\<\" \"\>", "\<\" \"\>", "\<\" \"\>", \
"\<\" \"\>", "\<\" \"\>", "\<\" \"\>", "\<\" \"\>", "\<\" \"\>", "\<\" \"\>", \
"\<\" \"\>", "\<\" \"\>", "\<\" \"\>", "\<\" \"\>", "\<\" \"\>", "\<\" \"\>", \
"\<\" \"\>", "\<\" \"\>", "\<\" \"\>", "\<\" \"\>", "\<\" \"\>", "\<\" \"\>", \
"\<\" \"\>", "\<\" \"\>", "\<\" \"\>", "\<\" \"\>", "\<\" \"\>", "\<\" \"\>", \
"\<\" \"\>", "\<\" \"\>", "\<\" \"\>", "\<\" \"\>", "\<\" \"\>", "\<\" \"\>", \
"\<\" \"\>", "\<\" \"\>", "\<\" \"\>", "\<\" \"\>", "\<\" \"\>", "\<\" \"\>", \
"\<\" \"\>", "\<\" \"\>", "\<\" \"\>", "\<\" \"\>", "\<\" \"\>"},
     {"\<\"C\"\>", "0", "0", "1.1906416251145053`", "0", "0", 
      "0", "\<\" \"\>", "\<\" \"\>", "\<\" \"\>", "\<\" \"\>", "\<\" \"\>", "\
\<\" \"\>", "\<\" \"\>", "\<\" \"\>", "\<\" \"\>", "\<\" \"\>", "\<\" \"\>", \
"\<\" \"\>", "\<\" \"\>", "\<\" \"\>", "\<\" \"\>", "\<\" \"\>", "\<\" \"\>", \
"\<\" \"\>", "\<\" \"\>", "\<\" \"\>", "\<\" \"\>", "\<\" \"\>", "\<\" \"\>", \
"\<\" \"\>", "\<\" \"\>", "\<\" \"\>", "\<\" \"\>", "\<\" \"\>", "\<\" \"\>", \
"\<\" \"\>", "\<\" \"\>", "\<\" \"\>", "\<\" \"\>", "\<\" \"\>", "\<\" \"\>", \
"\<\" \"\>", "\<\" \"\>", "\<\" \"\>", "\<\" \"\>", "\<\" \"\>", "\<\" \"\>", \
"\<\" \"\>", "\<\" \"\>", "\<\" \"\>", "\<\" \"\>", "\<\" \"\>", "\<\" \"\>", \
"\<\" \"\>", "\<\" \"\>", "\<\" \"\>", "\<\" \"\>", "\<\" \"\>", "\<\" \"\>", \
"\<\" \"\>", "\<\" \"\>", "\<\" \"\>", "\<\" \"\>", "\<\" \"\>", "\<\" \"\>", \
"\<\" \"\>", "\<\" \"\>", "\<\" \"\>", "\<\" \"\>", "\<\" \"\>", "\<\" \"\>", \
"\<\" \"\>", "\<\" \"\>", "\<\" \"\>", "\<\" \"\>", "\<\" \"\>", "\<\" \"\>", \
"\<\" \"\>", "\<\" \"\>", "\<\" \"\>", "\<\" \"\>", "\<\" \"\>", "\<\" \"\>", \
"\<\" \"\>", "\<\" \"\>", "\<\" \"\>", "\<\" \"\>"},
     {"\<\"C\"\>", "0", "0", "0", "0", "0", "0", 
      "0", "\<\" \"\>", "\<\" \"\>", "\<\" \"\>", "\<\" \"\>", "\<\" \"\>", "\
\<\" \"\>", "\<\" \"\>", "\<\" \"\>", "\<\" \"\>", "\<\" \"\>", "\<\" \"\>", \
"\<\" \"\>", "\<\" \"\>", "\<\" \"\>", "\<\" \"\>", "\<\" \"\>", "\<\" \"\>", \
"\<\" \"\>", "\<\" \"\>", "\<\" \"\>", "\<\" \"\>", "\<\" \"\>", "\<\" \"\>", \
"\<\" \"\>", "\<\" \"\>", "\<\" \"\>", "\<\" \"\>", "\<\" \"\>", "\<\" \"\>", \
"\<\" \"\>", "\<\" \"\>", "\<\" \"\>", "\<\" \"\>", "\<\" \"\>", "\<\" \"\>", \
"\<\" \"\>", "\<\" \"\>", "\<\" \"\>", "\<\" \"\>", "\<\" \"\>", "\<\" \"\>", \
"\<\" \"\>", "\<\" \"\>", "\<\" \"\>", "\<\" \"\>", "\<\" \"\>", "\<\" \"\>", \
"\<\" \"\>", "\<\" \"\>", "\<\" \"\>", "\<\" \"\>", "\<\" \"\>", "\<\" \"\>", \
"\<\" \"\>", "\<\" \"\>", "\<\" \"\>", "\<\" \"\>", "\<\" \"\>", "\<\" \"\>", \
"\<\" \"\>", "\<\" \"\>", "\<\" \"\>", "\<\" \"\>", "\<\" \"\>", "\<\" \"\>", \
"\<\" \"\>", "\<\" \"\>", "\<\" \"\>", "\<\" \"\>", "\<\" \"\>", "\<\" \"\>", \
"\<\" \"\>", "\<\" \"\>", "\<\" \"\>", "\<\" \"\>", "\<\" \"\>", "\<\" \"\>", \
"\<\" \"\>", "\<\" \"\>", "\<\" \"\>"},
     {"\<\"C\"\>", "0", "0", "0", "0", "0", "0", "1.179562812399278`", 
      "0", "\<\" \"\>", "\<\" \"\>", "\<\" \"\>", "\<\" \"\>", "\<\" \"\>", "\
\<\" \"\>", "\<\" \"\>", "\<\" \"\>", "\<\" \"\>", "\<\" \"\>", "\<\" \"\>", \
"\<\" \"\>", "\<\" \"\>", "\<\" \"\>", "\<\" \"\>", "\<\" \"\>", "\<\" \"\>", \
"\<\" \"\>", "\<\" \"\>", "\<\" \"\>", "\<\" \"\>", "\<\" \"\>", "\<\" \"\>", \
"\<\" \"\>", "\<\" \"\>", "\<\" \"\>", "\<\" \"\>", "\<\" \"\>", "\<\" \"\>", \
"\<\" \"\>", "\<\" \"\>", "\<\" \"\>", "\<\" \"\>", "\<\" \"\>", "\<\" \"\>", \
"\<\" \"\>", "\<\" \"\>", "\<\" \"\>", "\<\" \"\>", "\<\" \"\>", "\<\" \"\>", \
"\<\" \"\>", "\<\" \"\>", "\<\" \"\>", "\<\" \"\>", "\<\" \"\>", "\<\" \"\>", \
"\<\" \"\>", "\<\" \"\>", "\<\" \"\>", "\<\" \"\>", "\<\" \"\>", "\<\" \"\>", \
"\<\" \"\>", "\<\" \"\>", "\<\" \"\>", "\<\" \"\>", "\<\" \"\>", "\<\" \"\>", \
"\<\" \"\>", "\<\" \"\>", "\<\" \"\>", "\<\" \"\>", "\<\" \"\>", "\<\" \"\>", \
"\<\" \"\>", "\<\" \"\>", "\<\" \"\>", "\<\" \"\>", "\<\" \"\>", "\<\" \"\>", \
"\<\" \"\>", "\<\" \"\>", "\<\" \"\>", "\<\" \"\>", "\<\" \"\>", "\<\" \"\>", \
"\<\" \"\>", "\<\" \"\>"},
     {"\<\"C\"\>", "0", "0", "0", "0", "0", "0", "0", "1.1809421577217574`", 
      "0", "\<\" \"\>", "\<\" \"\>", "\<\" \"\>", "\<\" \"\>", "\<\" \"\>", "\
\<\" \"\>", "\<\" \"\>", "\<\" \"\>", "\<\" \"\>", "\<\" \"\>", "\<\" \"\>", \
"\<\" \"\>", "\<\" \"\>", "\<\" \"\>", "\<\" \"\>", "\<\" \"\>", "\<\" \"\>", \
"\<\" \"\>", "\<\" \"\>", "\<\" \"\>", "\<\" \"\>", "\<\" \"\>", "\<\" \"\>", \
"\<\" \"\>", "\<\" \"\>", "\<\" \"\>", "\<\" \"\>", "\<\" \"\>", "\<\" \"\>", \
"\<\" \"\>", "\<\" \"\>", "\<\" \"\>", "\<\" \"\>", "\<\" \"\>", "\<\" \"\>", \
"\<\" \"\>", "\<\" \"\>", "\<\" \"\>", "\<\" \"\>", "\<\" \"\>", "\<\" \"\>", \
"\<\" \"\>", "\<\" \"\>", "\<\" \"\>", "\<\" \"\>", "\<\" \"\>", "\<\" \"\>", \
"\<\" \"\>", "\<\" \"\>", "\<\" \"\>", "\<\" \"\>", "\<\" \"\>", "\<\" \"\>", \
"\<\" \"\>", "\<\" \"\>", "\<\" \"\>", "\<\" \"\>", "\<\" \"\>", "\<\" \"\>", \
"\<\" \"\>", "\<\" \"\>", "\<\" \"\>", "\<\" \"\>", "\<\" \"\>", "\<\" \"\>", \
"\<\" \"\>", "\<\" \"\>", "\<\" \"\>", "\<\" \"\>", "\<\" \"\>", "\<\" \"\>", \
"\<\" \"\>", "\<\" \"\>", "\<\" \"\>", "\<\" \"\>", "\<\" \"\>", "\<\" \"\>", \
"\<\" \"\>"},
     {"\<\"C\"\>", "0", "0", "0", "0", "0", "0", "0", "0", 
      "1.1829029939029012`", 
      "0", "\<\" \"\>", "\<\" \"\>", "\<\" \"\>", "\<\" \"\>", "\<\" \"\>", "\
\<\" \"\>", "\<\" \"\>", "\<\" \"\>", "\<\" \"\>", "\<\" \"\>", "\<\" \"\>", \
"\<\" \"\>", "\<\" \"\>", "\<\" \"\>", "\<\" \"\>", "\<\" \"\>", "\<\" \"\>", \
"\<\" \"\>", "\<\" \"\>", "\<\" \"\>", "\<\" \"\>", "\<\" \"\>", "\<\" \"\>", \
"\<\" \"\>", "\<\" \"\>", "\<\" \"\>", "\<\" \"\>", "\<\" \"\>", "\<\" \"\>", \
"\<\" \"\>", "\<\" \"\>", "\<\" \"\>", "\<\" \"\>", "\<\" \"\>", "\<\" \"\>", \
"\<\" \"\>", "\<\" \"\>", "\<\" \"\>", "\<\" \"\>", "\<\" \"\>", "\<\" \"\>", \
"\<\" \"\>", "\<\" \"\>", "\<\" \"\>", "\<\" \"\>", "\<\" \"\>", "\<\" \"\>", \
"\<\" \"\>", "\<\" \"\>", "\<\" \"\>", "\<\" \"\>", "\<\" \"\>", "\<\" \"\>", \
"\<\" \"\>", "\<\" \"\>", "\<\" \"\>", "\<\" \"\>", "\<\" \"\>", "\<\" \"\>", \
"\<\" \"\>", "\<\" \"\>", "\<\" \"\>", "\<\" \"\>", "\<\" \"\>", "\<\" \"\>", \
"\<\" \"\>", "\<\" \"\>", "\<\" \"\>", "\<\" \"\>", "\<\" \"\>", "\<\" \"\>", \
"\<\" \"\>", "\<\" \"\>", "\<\" \"\>", "\<\" \"\>", "\<\" \"\>", "\<\" \"\>"},
     {"\<\"C\"\>", "0", "0", "0", "0", "0", "0", "0", "0", "0", 
      "1.188035965376226`", 
      "0", "\<\" \"\>", "\<\" \"\>", "\<\" \"\>", "\<\" \"\>", "\<\" \"\>", "\
\<\" \"\>", "\<\" \"\>", "\<\" \"\>", "\<\" \"\>", "\<\" \"\>", "\<\" \"\>", \
"\<\" \"\>", "\<\" \"\>", "\<\" \"\>", "\<\" \"\>", "\<\" \"\>", "\<\" \"\>", \
"\<\" \"\>", "\<\" \"\>", "\<\" \"\>", "\<\" \"\>", "\<\" \"\>", "\<\" \"\>", \
"\<\" \"\>", "\<\" \"\>", "\<\" \"\>", "\<\" \"\>", "\<\" \"\>", "\<\" \"\>", \
"\<\" \"\>", "\<\" \"\>", "\<\" \"\>", "\<\" \"\>", "\<\" \"\>", "\<\" \"\>", \
"\<\" \"\>", "\<\" \"\>", "\<\" \"\>", "\<\" \"\>", "\<\" \"\>", "\<\" \"\>", \
"\<\" \"\>", "\<\" \"\>", "\<\" \"\>", "\<\" \"\>", "\<\" \"\>", "\<\" \"\>", \
"\<\" \"\>", "\<\" \"\>", "\<\" \"\>", "\<\" \"\>", "\<\" \"\>", "\<\" \"\>", \
"\<\" \"\>", "\<\" \"\>", "\<\" \"\>", "\<\" \"\>", "\<\" \"\>", "\<\" \"\>", \
"\<\" \"\>", "\<\" \"\>", "\<\" \"\>", "\<\" \"\>", "\<\" \"\>", "\<\" \"\>", \
"\<\" \"\>", "\<\" \"\>", "\<\" \"\>", "\<\" \"\>", "\<\" \"\>", "\<\" \"\>", \
"\<\" \"\>", "\<\" \"\>", "\<\" \"\>", "\<\" \"\>", "\<\" \"\>"},
     {"\<\"C\"\>", "0", "0", "0", "0", "0", "0", "0", "0", "0", "0", 
      "1.190690102525311`", 
      "0", "\<\" \"\>", "\<\" \"\>", "\<\" \"\>", "\<\" \"\>", "\<\" \"\>", "\
\<\" \"\>", "\<\" \"\>", "\<\" \"\>", "\<\" \"\>", "\<\" \"\>", "\<\" \"\>", \
"\<\" \"\>", "\<\" \"\>", "\<\" \"\>", "\<\" \"\>", "\<\" \"\>", "\<\" \"\>", \
"\<\" \"\>", "\<\" \"\>", "\<\" \"\>", "\<\" \"\>", "\<\" \"\>", "\<\" \"\>", \
"\<\" \"\>", "\<\" \"\>", "\<\" \"\>", "\<\" \"\>", "\<\" \"\>", "\<\" \"\>", \
"\<\" \"\>", "\<\" \"\>", "\<\" \"\>", "\<\" \"\>", "\<\" \"\>", "\<\" \"\>", \
"\<\" \"\>", "\<\" \"\>", "\<\" \"\>", "\<\" \"\>", "\<\" \"\>", "\<\" \"\>", \
"\<\" \"\>", "\<\" \"\>", "\<\" \"\>", "\<\" \"\>", "\<\" \"\>", "\<\" \"\>", \
"\<\" \"\>", "\<\" \"\>", "\<\" \"\>", "\<\" \"\>", "\<\" \"\>", "\<\" \"\>", \
"\<\" \"\>", "\<\" \"\>", "\<\" \"\>", "\<\" \"\>", "\<\" \"\>", "\<\" \"\>", \
"\<\" \"\>", "\<\" \"\>", "\<\" \"\>", "\<\" \"\>", "\<\" \"\>", "\<\" \"\>", \
"\<\" \"\>", "\<\" \"\>", "\<\" \"\>", "\<\" \"\>", "\<\" \"\>", "\<\" \"\>", \
"\<\" \"\>", "\<\" \"\>", "\<\" \"\>", "\<\" \"\>"},
     {"\<\"C\"\>", "0", "0", "0", "0", "0", "0", "0", "0", "0", "0", "0", "0",
       "0", "\<\" \"\>", "\<\" \"\>", "\<\" \"\>", "\<\" \"\>", "\<\" \"\>", \
"\<\" \"\>", "\<\" \"\>", "\<\" \"\>", "\<\" \"\>", "\<\" \"\>", "\<\" \"\>", \
"\<\" \"\>", "\<\" \"\>", "\<\" \"\>", "\<\" \"\>", "\<\" \"\>", "\<\" \"\>", \
"\<\" \"\>", "\<\" \"\>", "\<\" \"\>", "\<\" \"\>", "\<\" \"\>", "\<\" \"\>", \
"\<\" \"\>", "\<\" \"\>", "\<\" \"\>", "\<\" \"\>", "\<\" \"\>", "\<\" \"\>", \
"\<\" \"\>", "\<\" \"\>", "\<\" \"\>", "\<\" \"\>", "\<\" \"\>", "\<\" \"\>", \
"\<\" \"\>", "\<\" \"\>", "\<\" \"\>", "\<\" \"\>", "\<\" \"\>", "\<\" \"\>", \
"\<\" \"\>", "\<\" \"\>", "\<\" \"\>", "\<\" \"\>", "\<\" \"\>", "\<\" \"\>", \
"\<\" \"\>", "\<\" \"\>", "\<\" \"\>", "\<\" \"\>", "\<\" \"\>", "\<\" \"\>", \
"\<\" \"\>", "\<\" \"\>", "\<\" \"\>", "\<\" \"\>", "\<\" \"\>", "\<\" \"\>", \
"\<\" \"\>", "\<\" \"\>", "\<\" \"\>", "\<\" \"\>", "\<\" \"\>", "\<\" \"\>", \
"\<\" \"\>", "\<\" \"\>", "\<\" \"\>", "\<\" \"\>", "\<\" \"\>", "\<\" \"\>", \
"\<\" \"\>", "\<\" \"\>", "\<\" \"\>"},
     {"\<\"C\"\>", "0", "0", "0", "0", "0", "0", "0", "0", "0", "0", "0", "0",
       "1.1806738568310036`", 
      "0", "\<\" \"\>", "\<\" \"\>", "\<\" \"\>", "\<\" \"\>", "\<\" \"\>", "\
\<\" \"\>", "\<\" \"\>", "\<\" \"\>", "\<\" \"\>", "\<\" \"\>", "\<\" \"\>", \
"\<\" \"\>", "\<\" \"\>", "\<\" \"\>", "\<\" \"\>", "\<\" \"\>", "\<\" \"\>", \
"\<\" \"\>", "\<\" \"\>", "\<\" \"\>", "\<\" \"\>", "\<\" \"\>", "\<\" \"\>", \
"\<\" \"\>", "\<\" \"\>", "\<\" \"\>", "\<\" \"\>", "\<\" \"\>", "\<\" \"\>", \
"\<\" \"\>", "\<\" \"\>", "\<\" \"\>", "\<\" \"\>", "\<\" \"\>", "\<\" \"\>", \
"\<\" \"\>", "\<\" \"\>", "\<\" \"\>", "\<\" \"\>", "\<\" \"\>", "\<\" \"\>", \
"\<\" \"\>", "\<\" \"\>", "\<\" \"\>", "\<\" \"\>", "\<\" \"\>", "\<\" \"\>", \
"\<\" \"\>", "\<\" \"\>", "\<\" \"\>", "\<\" \"\>", "\<\" \"\>", "\<\" \"\>", \
"\<\" \"\>", "\<\" \"\>", "\<\" \"\>", "\<\" \"\>", "\<\" \"\>", "\<\" \"\>", \
"\<\" \"\>", "\<\" \"\>", "\<\" \"\>", "\<\" \"\>", "\<\" \"\>", "\<\" \"\>", \
"\<\" \"\>", "\<\" \"\>", "\<\" \"\>", "\<\" \"\>", "\<\" \"\>", "\<\" \"\>", \
"\<\" \"\>", "\<\" \"\>"},
     {"\<\"C\"\>", "0", "0", "0", "0", "0", "0", "0", "0", "0", "0", "0", "0",
       "0", "1.1813971908481906`", 
      "0", "\<\" \"\>", "\<\" \"\>", "\<\" \"\>", "\<\" \"\>", "\<\" \"\>", "\
\<\" \"\>", "\<\" \"\>", "\<\" \"\>", "\<\" \"\>", "\<\" \"\>", "\<\" \"\>", \
"\<\" \"\>", "\<\" \"\>", "\<\" \"\>", "\<\" \"\>", "\<\" \"\>", "\<\" \"\>", \
"\<\" \"\>", "\<\" \"\>", "\<\" \"\>", "\<\" \"\>", "\<\" \"\>", "\<\" \"\>", \
"\<\" \"\>", "\<\" \"\>", "\<\" \"\>", "\<\" \"\>", "\<\" \"\>", "\<\" \"\>", \
"\<\" \"\>", "\<\" \"\>", "\<\" \"\>", "\<\" \"\>", "\<\" \"\>", "\<\" \"\>", \
"\<\" \"\>", "\<\" \"\>", "\<\" \"\>", "\<\" \"\>", "\<\" \"\>", "\<\" \"\>", \
"\<\" \"\>", "\<\" \"\>", "\<\" \"\>", "\<\" \"\>", "\<\" \"\>", "\<\" \"\>", \
"\<\" \"\>", "\<\" \"\>", "\<\" \"\>", "\<\" \"\>", "\<\" \"\>", "\<\" \"\>", \
"\<\" \"\>", "\<\" \"\>", "\<\" \"\>", "\<\" \"\>", "\<\" \"\>", "\<\" \"\>", \
"\<\" \"\>", "\<\" \"\>", "\<\" \"\>", "\<\" \"\>", "\<\" \"\>", "\<\" \"\>", \
"\<\" \"\>", "\<\" \"\>", "\<\" \"\>", "\<\" \"\>", "\<\" \"\>", "\<\" \"\>", \
"\<\" \"\>"},
     {"\<\"C\"\>", "0", "0", "0", "0", "0", "0", "0", "0", "0", "0", "0", "0",
       "0", "0", "1.1831423234608482`", 
      "0", "\<\" \"\>", "\<\" \"\>", "\<\" \"\>", "\<\" \"\>", "\<\" \"\>", "\
\<\" \"\>", "\<\" \"\>", "\<\" \"\>", "\<\" \"\>", "\<\" \"\>", "\<\" \"\>", \
"\<\" \"\>", "\<\" \"\>", "\<\" \"\>", "\<\" \"\>", "\<\" \"\>", "\<\" \"\>", \
"\<\" \"\>", "\<\" \"\>", "\<\" \"\>", "\<\" \"\>", "\<\" \"\>", "\<\" \"\>", \
"\<\" \"\>", "\<\" \"\>", "\<\" \"\>", "\<\" \"\>", "\<\" \"\>", "\<\" \"\>", \
"\<\" \"\>", "\<\" \"\>", "\<\" \"\>", "\<\" \"\>", "\<\" \"\>", "\<\" \"\>", \
"\<\" \"\>", "\<\" \"\>", "\<\" \"\>", "\<\" \"\>", "\<\" \"\>", "\<\" \"\>", \
"\<\" \"\>", "\<\" \"\>", "\<\" \"\>", "\<\" \"\>", "\<\" \"\>", "\<\" \"\>", \
"\<\" \"\>", "\<\" \"\>", "\<\" \"\>", "\<\" \"\>", "\<\" \"\>", "\<\" \"\>", \
"\<\" \"\>", "\<\" \"\>", "\<\" \"\>", "\<\" \"\>", "\<\" \"\>", "\<\" \"\>", \
"\<\" \"\>", "\<\" \"\>", "\<\" \"\>", "\<\" \"\>", "\<\" \"\>", "\<\" \"\>", \
"\<\" \"\>", "\<\" \"\>", "\<\" \"\>", "\<\" \"\>", "\<\" \"\>", "\<\" \"\>"},
     {"\<\"C\"\>", "0", "0", "0", "0", "0", "0", "0", "0", "0", "0", "0", "0",
       "0", "0", "0", "1.1880201891514786`", 
      "0", "\<\" \"\>", "\<\" \"\>", "\<\" \"\>", "\<\" \"\>", "\<\" \"\>", "\
\<\" \"\>", "\<\" \"\>", "\<\" \"\>", "\<\" \"\>", "\<\" \"\>", "\<\" \"\>", \
"\<\" \"\>", "\<\" \"\>", "\<\" \"\>", "\<\" \"\>", "\<\" \"\>", "\<\" \"\>", \
"\<\" \"\>", "\<\" \"\>", "\<\" \"\>", "\<\" \"\>", "\<\" \"\>", "\<\" \"\>", \
"\<\" \"\>", "\<\" \"\>", "\<\" \"\>", "\<\" \"\>", "\<\" \"\>", "\<\" \"\>", \
"\<\" \"\>", "\<\" \"\>", "\<\" \"\>", "\<\" \"\>", "\<\" \"\>", "\<\" \"\>", \
"\<\" \"\>", "\<\" \"\>", "\<\" \"\>", "\<\" \"\>", "\<\" \"\>", "\<\" \"\>", \
"\<\" \"\>", "\<\" \"\>", "\<\" \"\>", "\<\" \"\>", "\<\" \"\>", "\<\" \"\>", \
"\<\" \"\>", "\<\" \"\>", "\<\" \"\>", "\<\" \"\>", "\<\" \"\>", "\<\" \"\>", \
"\<\" \"\>", "\<\" \"\>", "\<\" \"\>", "\<\" \"\>", "\<\" \"\>", "\<\" \"\>", \
"\<\" \"\>", "\<\" \"\>", "\<\" \"\>", "\<\" \"\>", "\<\" \"\>", "\<\" \"\>", \
"\<\" \"\>", "\<\" \"\>", "\<\" \"\>", "\<\" \"\>", "\<\" \"\>"},
     {"\<\"C\"\>", "0", "0", "0", "0", "0", "0", "0", "0", "0", "0", "0", "0",
       "0", "0", "0", "0", "1.189385277057574`", 
      "0", "\<\" \"\>", "\<\" \"\>", "\<\" \"\>", "\<\" \"\>", "\<\" \"\>", "\
\<\" \"\>", "\<\" \"\>", "\<\" \"\>", "\<\" \"\>", "\<\" \"\>", "\<\" \"\>", \
"\<\" \"\>", "\<\" \"\>", "\<\" \"\>", "\<\" \"\>", "\<\" \"\>", "\<\" \"\>", \
"\<\" \"\>", "\<\" \"\>", "\<\" \"\>", "\<\" \"\>", "\<\" \"\>", "\<\" \"\>", \
"\<\" \"\>", "\<\" \"\>", "\<\" \"\>", "\<\" \"\>", "\<\" \"\>", "\<\" \"\>", \
"\<\" \"\>", "\<\" \"\>", "\<\" \"\>", "\<\" \"\>", "\<\" \"\>", "\<\" \"\>", \
"\<\" \"\>", "\<\" \"\>", "\<\" \"\>", "\<\" \"\>", "\<\" \"\>", "\<\" \"\>", \
"\<\" \"\>", "\<\" \"\>", "\<\" \"\>", "\<\" \"\>", "\<\" \"\>", "\<\" \"\>", \
"\<\" \"\>", "\<\" \"\>", "\<\" \"\>", "\<\" \"\>", "\<\" \"\>", "\<\" \"\>", \
"\<\" \"\>", "\<\" \"\>", "\<\" \"\>", "\<\" \"\>", "\<\" \"\>", "\<\" \"\>", \
"\<\" \"\>", "\<\" \"\>", "\<\" \"\>", "\<\" \"\>", "\<\" \"\>", "\<\" \"\>", \
"\<\" \"\>", "\<\" \"\>", "\<\" \"\>", "\<\" \"\>"},
     {"\<\"C\"\>", "0", "0", "0", "0", "0", "0", "0", "0", "0", "0", "0", "0",
       "0", "0", "0", "0", "0", "0", 
      "0", "\<\" \"\>", "\<\" \"\>", "\<\" \"\>", "\<\" \"\>", "\<\" \"\>", "\
\<\" \"\>", "\<\" \"\>", "\<\" \"\>", "\<\" \"\>", "\<\" \"\>", "\<\" \"\>", \
"\<\" \"\>", "\<\" \"\>", "\<\" \"\>", "\<\" \"\>", "\<\" \"\>", "\<\" \"\>", \
"\<\" \"\>", "\<\" \"\>", "\<\" \"\>", "\<\" \"\>", "\<\" \"\>", "\<\" \"\>", \
"\<\" \"\>", "\<\" \"\>", "\<\" \"\>", "\<\" \"\>", "\<\" \"\>", "\<\" \"\>", \
"\<\" \"\>", "\<\" \"\>", "\<\" \"\>", "\<\" \"\>", "\<\" \"\>", "\<\" \"\>", \
"\<\" \"\>", "\<\" \"\>", "\<\" \"\>", "\<\" \"\>", "\<\" \"\>", "\<\" \"\>", \
"\<\" \"\>", "\<\" \"\>", "\<\" \"\>", "\<\" \"\>", "\<\" \"\>", "\<\" \"\>", \
"\<\" \"\>", "\<\" \"\>", "\<\" \"\>", "\<\" \"\>", "\<\" \"\>", "\<\" \"\>", \
"\<\" \"\>", "\<\" \"\>", "\<\" \"\>", "\<\" \"\>", "\<\" \"\>", "\<\" \"\>", \
"\<\" \"\>", "\<\" \"\>", "\<\" \"\>", "\<\" \"\>", "\<\" \"\>", "\<\" \"\>", \
"\<\" \"\>", "\<\" \"\>", "\<\" \"\>"},
     {"\<\"C\"\>", "0", "0", "0", "0", "0", "0", "0", "0", "0", "0", "0", "0",
       "0", "0", "0", "0", "0", "0", "1.1788105338859702`", 
      "0", "\<\" \"\>", "\<\" \"\>", "\<\" \"\>", "\<\" \"\>", "\<\" \"\>", "\
\<\" \"\>", "\<\" \"\>", "\<\" \"\>", "\<\" \"\>", "\<\" \"\>", "\<\" \"\>", \
"\<\" \"\>", "\<\" \"\>", "\<\" \"\>", "\<\" \"\>", "\<\" \"\>", "\<\" \"\>", \
"\<\" \"\>", "\<\" \"\>", "\<\" \"\>", "\<\" \"\>", "\<\" \"\>", "\<\" \"\>", \
"\<\" \"\>", "\<\" \"\>", "\<\" \"\>", "\<\" \"\>", "\<\" \"\>", "\<\" \"\>", \
"\<\" \"\>", "\<\" \"\>", "\<\" \"\>", "\<\" \"\>", "\<\" \"\>", "\<\" \"\>", \
"\<\" \"\>", "\<\" \"\>", "\<\" \"\>", "\<\" \"\>", "\<\" \"\>", "\<\" \"\>", \
"\<\" \"\>", "\<\" \"\>", "\<\" \"\>", "\<\" \"\>", "\<\" \"\>", "\<\" \"\>", \
"\<\" \"\>", "\<\" \"\>", "\<\" \"\>", "\<\" \"\>", "\<\" \"\>", "\<\" \"\>", \
"\<\" \"\>", "\<\" \"\>", "\<\" \"\>", "\<\" \"\>", "\<\" \"\>", "\<\" \"\>", \
"\<\" \"\>", "\<\" \"\>", "\<\" \"\>", "\<\" \"\>", "\<\" \"\>", "\<\" \"\>", \
"\<\" \"\>", "\<\" \"\>"},
     {"\<\"C\"\>", "0", "0", "0", "0", "0", "0", "0", "0", "0", "0", "0", "0",
       "0", "0", "0", "0", "0", "0", "0", "1.1777675224721846`", 
      "0", "\<\" \"\>", "\<\" \"\>", "\<\" \"\>", "\<\" \"\>", "\<\" \"\>", "\
\<\" \"\>", "\<\" \"\>", "\<\" \"\>", "\<\" \"\>", "\<\" \"\>", "\<\" \"\>", \
"\<\" \"\>", "\<\" \"\>", "\<\" \"\>", "\<\" \"\>", "\<\" \"\>", "\<\" \"\>", \
"\<\" \"\>", "\<\" \"\>", "\<\" \"\>", "\<\" \"\>", "\<\" \"\>", "\<\" \"\>", \
"\<\" \"\>", "\<\" \"\>", "\<\" \"\>", "\<\" \"\>", "\<\" \"\>", "\<\" \"\>", \
"\<\" \"\>", "\<\" \"\>", "\<\" \"\>", "\<\" \"\>", "\<\" \"\>", "\<\" \"\>", \
"\<\" \"\>", "\<\" \"\>", "\<\" \"\>", "\<\" \"\>", "\<\" \"\>", "\<\" \"\>", \
"\<\" \"\>", "\<\" \"\>", "\<\" \"\>", "\<\" \"\>", "\<\" \"\>", "\<\" \"\>", \
"\<\" \"\>", "\<\" \"\>", "\<\" \"\>", "\<\" \"\>", "\<\" \"\>", "\<\" \"\>", \
"\<\" \"\>", "\<\" \"\>", "\<\" \"\>", "\<\" \"\>", "\<\" \"\>", "\<\" \"\>", \
"\<\" \"\>", "\<\" \"\>", "\<\" \"\>", "\<\" \"\>", "\<\" \"\>", "\<\" \"\>", \
"\<\" \"\>"},
     {"\<\"C\"\>", "0", "0", "0", "0", "0", "0", "0", "0", "0", "0", "0", "0",
       "0", "0", "0", "0", "0", "0", "0", "0", "1.1806949993929927`", 
      "0", "\<\" \"\>", "\<\" \"\>", "\<\" \"\>", "\<\" \"\>", "\<\" \"\>", "\
\<\" \"\>", "\<\" \"\>", "\<\" \"\>", "\<\" \"\>", "\<\" \"\>", "\<\" \"\>", \
"\<\" \"\>", "\<\" \"\>", "\<\" \"\>", "\<\" \"\>", "\<\" \"\>", "\<\" \"\>", \
"\<\" \"\>", "\<\" \"\>", "\<\" \"\>", "\<\" \"\>", "\<\" \"\>", "\<\" \"\>", \
"\<\" \"\>", "\<\" \"\>", "\<\" \"\>", "\<\" \"\>", "\<\" \"\>", "\<\" \"\>", \
"\<\" \"\>", "\<\" \"\>", "\<\" \"\>", "\<\" \"\>", "\<\" \"\>", "\<\" \"\>", \
"\<\" \"\>", "\<\" \"\>", "\<\" \"\>", "\<\" \"\>", "\<\" \"\>", "\<\" \"\>", \
"\<\" \"\>", "\<\" \"\>", "\<\" \"\>", "\<\" \"\>", "\<\" \"\>", "\<\" \"\>", \
"\<\" \"\>", "\<\" \"\>", "\<\" \"\>", "\<\" \"\>", "\<\" \"\>", "\<\" \"\>", \
"\<\" \"\>", "\<\" \"\>", "\<\" \"\>", "\<\" \"\>", "\<\" \"\>", "\<\" \"\>", \
"\<\" \"\>", "\<\" \"\>", "\<\" \"\>", "\<\" \"\>", "\<\" \"\>", "\<\" \"\>"},
     {"\<\"C\"\>", "0", "0", "0", "0", "0", "0", "0", "0", "0", "0", "0", "0",
       "0", "0", "0", "0", "0", "0", "0", "0", "0", "1.187785072029548`", 
      "0", "\<\" \"\>", "\<\" \"\>", "\<\" \"\>", "\<\" \"\>", "\<\" \"\>", "\
\<\" \"\>", "\<\" \"\>", "\<\" \"\>", "\<\" \"\>", "\<\" \"\>", "\<\" \"\>", \
"\<\" \"\>", "\<\" \"\>", "\<\" \"\>", "\<\" \"\>", "\<\" \"\>", "\<\" \"\>", \
"\<\" \"\>", "\<\" \"\>", "\<\" \"\>", "\<\" \"\>", "\<\" \"\>", "\<\" \"\>", \
"\<\" \"\>", "\<\" \"\>", "\<\" \"\>", "\<\" \"\>", "\<\" \"\>", "\<\" \"\>", \
"\<\" \"\>", "\<\" \"\>", "\<\" \"\>", "\<\" \"\>", "\<\" \"\>", "\<\" \"\>", \
"\<\" \"\>", "\<\" \"\>", "\<\" \"\>", "\<\" \"\>", "\<\" \"\>", "\<\" \"\>", \
"\<\" \"\>", "\<\" \"\>", "\<\" \"\>", "\<\" \"\>", "\<\" \"\>", "\<\" \"\>", \
"\<\" \"\>", "\<\" \"\>", "\<\" \"\>", "\<\" \"\>", "\<\" \"\>", "\<\" \"\>", \
"\<\" \"\>", "\<\" \"\>", "\<\" \"\>", "\<\" \"\>", "\<\" \"\>", "\<\" \"\>", \
"\<\" \"\>", "\<\" \"\>", "\<\" \"\>", "\<\" \"\>", "\<\" \"\>"},
     {"\<\"C\"\>", "0", "0", "0", "0", "0", "0", "0", "0", "0", "0", "0", "0",
       "0", "0", "0", "0", "0", "0", "0", "0", "0", "0", 
      "1.1870497743990638`", 
      "0", "\<\" \"\>", "\<\" \"\>", "\<\" \"\>", "\<\" \"\>", "\<\" \"\>", "\
\<\" \"\>", "\<\" \"\>", "\<\" \"\>", "\<\" \"\>", "\<\" \"\>", "\<\" \"\>", \
"\<\" \"\>", "\<\" \"\>", "\<\" \"\>", "\<\" \"\>", "\<\" \"\>", "\<\" \"\>", \
"\<\" \"\>", "\<\" \"\>", "\<\" \"\>", "\<\" \"\>", "\<\" \"\>", "\<\" \"\>", \
"\<\" \"\>", "\<\" \"\>", "\<\" \"\>", "\<\" \"\>", "\<\" \"\>", "\<\" \"\>", \
"\<\" \"\>", "\<\" \"\>", "\<\" \"\>", "\<\" \"\>", "\<\" \"\>", "\<\" \"\>", \
"\<\" \"\>", "\<\" \"\>", "\<\" \"\>", "\<\" \"\>", "\<\" \"\>", "\<\" \"\>", \
"\<\" \"\>", "\<\" \"\>", "\<\" \"\>", "\<\" \"\>", "\<\" \"\>", "\<\" \"\>", \
"\<\" \"\>", "\<\" \"\>", "\<\" \"\>", "\<\" \"\>", "\<\" \"\>", "\<\" \"\>", \
"\<\" \"\>", "\<\" \"\>", "\<\" \"\>", "\<\" \"\>", "\<\" \"\>", "\<\" \"\>", \
"\<\" \"\>", "\<\" \"\>", "\<\" \"\>", "\<\" \"\>"},
     {"\<\"O\"\>", "0", "0", "1.1316645531044596`", "1.1259844131585692`", 
      "0", "0", "0", "0", "0", "0", "0", "0", "0", "0", "0", "0", "0", "0", 
      "0", "0", "0", "0", "0", "0", 
      "0", "\<\" \"\>", "\<\" \"\>", "\<\" \"\>", "\<\" \"\>", "\<\" \"\>", "\
\<\" \"\>", "\<\" \"\>", "\<\" \"\>", "\<\" \"\>", "\<\" \"\>", "\<\" \"\>", \
"\<\" \"\>", "\<\" \"\>", "\<\" \"\>", "\<\" \"\>", "\<\" \"\>", "\<\" \"\>", \
"\<\" \"\>", "\<\" \"\>", "\<\" \"\>", "\<\" \"\>", "\<\" \"\>", "\<\" \"\>", \
"\<\" \"\>", "\<\" \"\>", "\<\" \"\>", "\<\" \"\>", "\<\" \"\>", "\<\" \"\>", \
"\<\" \"\>", "\<\" \"\>", "\<\" \"\>", "\<\" \"\>", "\<\" \"\>", "\<\" \"\>", \
"\<\" \"\>", "\<\" \"\>", "\<\" \"\>", "\<\" \"\>", "\<\" \"\>", "\<\" \"\>", \
"\<\" \"\>", "\<\" \"\>", "\<\" \"\>", "\<\" \"\>", "\<\" \"\>", "\<\" \"\>", \
"\<\" \"\>", "\<\" \"\>", "\<\" \"\>", "\<\" \"\>", "\<\" \"\>", "\<\" \"\>", \
"\<\" \"\>", "\<\" \"\>", "\<\" \"\>", "\<\" \"\>", "\<\" \"\>", "\<\" \"\>", \
"\<\" \"\>", "\<\" \"\>", "\<\" \"\>"},
     {"\<\"O\"\>", "1.1381808301760907`", "0", "0", "0", "0", "0", "0", "0", 
      "0", "0", "0", "0", "0", "0", "0", "0", "0", "0", "0", "0", "0", "0", 
      "0", "0", "0", 
      "0", "\<\" \"\>", "\<\" \"\>", "\<\" \"\>", "\<\" \"\>", "\<\" \"\>", "\
\<\" \"\>", "\<\" \"\>", "\<\" \"\>", "\<\" \"\>", "\<\" \"\>", "\<\" \"\>", \
"\<\" \"\>", "\<\" \"\>", "\<\" \"\>", "\<\" \"\>", "\<\" \"\>", "\<\" \"\>", \
"\<\" \"\>", "\<\" \"\>", "\<\" \"\>", "\<\" \"\>", "\<\" \"\>", "\<\" \"\>", \
"\<\" \"\>", "\<\" \"\>", "\<\" \"\>", "\<\" \"\>", "\<\" \"\>", "\<\" \"\>", \
"\<\" \"\>", "\<\" \"\>", "\<\" \"\>", "\<\" \"\>", "\<\" \"\>", "\<\" \"\>", \
"\<\" \"\>", "\<\" \"\>", "\<\" \"\>", "\<\" \"\>", "\<\" \"\>", "\<\" \"\>", \
"\<\" \"\>", "\<\" \"\>", "\<\" \"\>", "\<\" \"\>", "\<\" \"\>", "\<\" \"\>", \
"\<\" \"\>", "\<\" \"\>", "\<\" \"\>", "\<\" \"\>", "\<\" \"\>", "\<\" \"\>", \
"\<\" \"\>", "\<\" \"\>", "\<\" \"\>", "\<\" \"\>", "\<\" \"\>", "\<\" \"\>", \
"\<\" \"\>", "\<\" \"\>"},
     {"\<\"O\"\>", "0", "1.1336705459102399`", "0", "0", "0", "0", 
      "1.1283285233055038`", "0", "0", "0", "0", "0", "0", "0", "0", "0", "0",
       "0", "0", "0", "0", "0", "0", "0", "0", "0", 
      "0", "\<\" \"\>", "\<\" \"\>", "\<\" \"\>", "\<\" \"\>", "\<\" \"\>", "\
\<\" \"\>", "\<\" \"\>", "\<\" \"\>", "\<\" \"\>", "\<\" \"\>", "\<\" \"\>", \
"\<\" \"\>", "\<\" \"\>", "\<\" \"\>", "\<\" \"\>", "\<\" \"\>", "\<\" \"\>", \
"\<\" \"\>", "\<\" \"\>", "\<\" \"\>", "\<\" \"\>", "\<\" \"\>", "\<\" \"\>", \
"\<\" \"\>", "\<\" \"\>", "\<\" \"\>", "\<\" \"\>", "\<\" \"\>", "\<\" \"\>", \
"\<\" \"\>", "\<\" \"\>", "\<\" \"\>", "\<\" \"\>", "\<\" \"\>", "\<\" \"\>", \
"\<\" \"\>", "\<\" \"\>", "\<\" \"\>", "\<\" \"\>", "\<\" \"\>", "\<\" \"\>", \
"\<\" \"\>", "\<\" \"\>", "\<\" \"\>", "\<\" \"\>", "\<\" \"\>", "\<\" \"\>", \
"\<\" \"\>", "\<\" \"\>", "\<\" \"\>", "\<\" \"\>", "\<\" \"\>", "\<\" \"\>", \
"\<\" \"\>", "\<\" \"\>", "\<\" \"\>", "\<\" \"\>", "\<\" \"\>", "\<\" \"\>", \
"\<\" \"\>"},
     {"\<\"O\"\>", "0", "0", "0", "1.1340811040162677`", "0", "0", "0", "0", 
      "0", "0", "0", "0", "0", "0", "0", "0", "0", "0", "0", "0", "0", "0", 
      "0", "0", "0", "0", "0", 
      "0", "\<\" \"\>", "\<\" \"\>", "\<\" \"\>", "\<\" \"\>", "\<\" \"\>", "\
\<\" \"\>", "\<\" \"\>", "\<\" \"\>", "\<\" \"\>", "\<\" \"\>", "\<\" \"\>", \
"\<\" \"\>", "\<\" \"\>", "\<\" \"\>", "\<\" \"\>", "\<\" \"\>", "\<\" \"\>", \
"\<\" \"\>", "\<\" \"\>", "\<\" \"\>", "\<\" \"\>", "\<\" \"\>", "\<\" \"\>", \
"\<\" \"\>", "\<\" \"\>", "\<\" \"\>", "\<\" \"\>", "\<\" \"\>", "\<\" \"\>", \
"\<\" \"\>", "\<\" \"\>", "\<\" \"\>", "\<\" \"\>", "\<\" \"\>", "\<\" \"\>", \
"\<\" \"\>", "\<\" \"\>", "\<\" \"\>", "\<\" \"\>", "\<\" \"\>", "\<\" \"\>", \
"\<\" \"\>", "\<\" \"\>", "\<\" \"\>", "\<\" \"\>", "\<\" \"\>", "\<\" \"\>", \
"\<\" \"\>", "\<\" \"\>", "\<\" \"\>", "\<\" \"\>", "\<\" \"\>", "\<\" \"\>", \
"\<\" \"\>", "\<\" \"\>", "\<\" \"\>", "\<\" \"\>", "\<\" \"\>", "\<\" \"\>"},
     {"\<\"O\"\>", "0", "0", "0", "0", "1.137521316930776`", "0", "0", "0", 
      "0", "0", "0", "0", "0", "0", "0", "0", "0", "0", "0", "0", "0", "0", 
      "0", "0", "0", "0", "0", "0", 
      "0", "\<\" \"\>", "\<\" \"\>", "\<\" \"\>", "\<\" \"\>", "\<\" \"\>", "\
\<\" \"\>", "\<\" \"\>", "\<\" \"\>", "\<\" \"\>", "\<\" \"\>", "\<\" \"\>", \
"\<\" \"\>", "\<\" \"\>", "\<\" \"\>", "\<\" \"\>", "\<\" \"\>", "\<\" \"\>", \
"\<\" \"\>", "\<\" \"\>", "\<\" \"\>", "\<\" \"\>", "\<\" \"\>", "\<\" \"\>", \
"\<\" \"\>", "\<\" \"\>", "\<\" \"\>", "\<\" \"\>", "\<\" \"\>", "\<\" \"\>", \
"\<\" \"\>", "\<\" \"\>", "\<\" \"\>", "\<\" \"\>", "\<\" \"\>", "\<\" \"\>", \
"\<\" \"\>", "\<\" \"\>", "\<\" \"\>", "\<\" \"\>", "\<\" \"\>", "\<\" \"\>", \
"\<\" \"\>", "\<\" \"\>", "\<\" \"\>", "\<\" \"\>", "\<\" \"\>", "\<\" \"\>", \
"\<\" \"\>", "\<\" \"\>", "\<\" \"\>", "\<\" \"\>", "\<\" \"\>", "\<\" \"\>", \
"\<\" \"\>", "\<\" \"\>", "\<\" \"\>", "\<\" \"\>", "\<\" \"\>"},
     {"\<\"O\"\>", "0", "0", "0", "0", "0", "1.1397273338933405`", "0", "0", 
      "0", "0", "0", "0", "0", "0", "0", "0", "0", "0", "0", "0", "0", "0", 
      "0", "0", "0", "0", "0", "0", "0", 
      "0", "\<\" \"\>", "\<\" \"\>", "\<\" \"\>", "\<\" \"\>", "\<\" \"\>", "\
\<\" \"\>", "\<\" \"\>", "\<\" \"\>", "\<\" \"\>", "\<\" \"\>", "\<\" \"\>", \
"\<\" \"\>", "\<\" \"\>", "\<\" \"\>", "\<\" \"\>", "\<\" \"\>", "\<\" \"\>", \
"\<\" \"\>", "\<\" \"\>", "\<\" \"\>", "\<\" \"\>", "\<\" \"\>", "\<\" \"\>", \
"\<\" \"\>", "\<\" \"\>", "\<\" \"\>", "\<\" \"\>", "\<\" \"\>", "\<\" \"\>", \
"\<\" \"\>", "\<\" \"\>", "\<\" \"\>", "\<\" \"\>", "\<\" \"\>", "\<\" \"\>", \
"\<\" \"\>", "\<\" \"\>", "\<\" \"\>", "\<\" \"\>", "\<\" \"\>", "\<\" \"\>", \
"\<\" \"\>", "\<\" \"\>", "\<\" \"\>", "\<\" \"\>", "\<\" \"\>", "\<\" \"\>", \
"\<\" \"\>", "\<\" \"\>", "\<\" \"\>", "\<\" \"\>", "\<\" \"\>", "\<\" \"\>", \
"\<\" \"\>", "\<\" \"\>", "\<\" \"\>", "\<\" \"\>"},
     {"\<\"O\"\>", "0", "0", "0", "0", "0", "0", "0", "1.1393000482431825`", 
      "0", "0", "0", "0", "0", "0", "0", "0", "0", "0", "0", "0", "0", "0", 
      "0", "0", "0", "0", "0", "0", "0", "0", 
      "0", "\<\" \"\>", "\<\" \"\>", "\<\" \"\>", "\<\" \"\>", "\<\" \"\>", "\
\<\" \"\>", "\<\" \"\>", "\<\" \"\>", "\<\" \"\>", "\<\" \"\>", "\<\" \"\>", \
"\<\" \"\>", "\<\" \"\>", "\<\" \"\>", "\<\" \"\>", "\<\" \"\>", "\<\" \"\>", \
"\<\" \"\>", "\<\" \"\>", "\<\" \"\>", "\<\" \"\>", "\<\" \"\>", "\<\" \"\>", \
"\<\" \"\>", "\<\" \"\>", "\<\" \"\>", "\<\" \"\>", "\<\" \"\>", "\<\" \"\>", \
"\<\" \"\>", "\<\" \"\>", "\<\" \"\>", "\<\" \"\>", "\<\" \"\>", "\<\" \"\>", \
"\<\" \"\>", "\<\" \"\>", "\<\" \"\>", "\<\" \"\>", "\<\" \"\>", "\<\" \"\>", \
"\<\" \"\>", "\<\" \"\>", "\<\" \"\>", "\<\" \"\>", "\<\" \"\>", "\<\" \"\>", \
"\<\" \"\>", "\<\" \"\>", "\<\" \"\>", "\<\" \"\>", "\<\" \"\>", "\<\" \"\>", \
"\<\" \"\>", "\<\" \"\>", "\<\" \"\>"},
     {"\<\"O\"\>", "0", "0", "0", "0", "0", "0", "0", "0", 
      "1.1389269684633112`", "0", "0", "0", "0", "0", "0", "0", "0", "0", "0",
       "0", "0", "0", "0", "0", "0", "0", "0", "0", "0", "0", "0", 
      "0", "\<\" \"\>", "\<\" \"\>", "\<\" \"\>", "\<\" \"\>", "\<\" \"\>", "\
\<\" \"\>", "\<\" \"\>", "\<\" \"\>", "\<\" \"\>", "\<\" \"\>", "\<\" \"\>", \
"\<\" \"\>", "\<\" \"\>", "\<\" \"\>", "\<\" \"\>", "\<\" \"\>", "\<\" \"\>", \
"\<\" \"\>", "\<\" \"\>", "\<\" \"\>", "\<\" \"\>", "\<\" \"\>", "\<\" \"\>", \
"\<\" \"\>", "\<\" \"\>", "\<\" \"\>", "\<\" \"\>", "\<\" \"\>", "\<\" \"\>", \
"\<\" \"\>", "\<\" \"\>", "\<\" \"\>", "\<\" \"\>", "\<\" \"\>", "\<\" \"\>", \
"\<\" \"\>", "\<\" \"\>", "\<\" \"\>", "\<\" \"\>", "\<\" \"\>", "\<\" \"\>", \
"\<\" \"\>", "\<\" \"\>", "\<\" \"\>", "\<\" \"\>", "\<\" \"\>", "\<\" \"\>", \
"\<\" \"\>", "\<\" \"\>", "\<\" \"\>", "\<\" \"\>", "\<\" \"\>", "\<\" \"\>", \
"\<\" \"\>", "\<\" \"\>"},
     {"\<\"O\"\>", "0", "0", "0", "0", "0", "0", "0", "0", "0", 
      "1.133218523174445`", "0", "0", "1.1278089593419882`", "0", "0", "0", 
      "0", "0", "0", "0", "0", "0", "0", "0", "0", "0", "0", "0", "0", "0", 
      "0", "0", 
      "0", "\<\" \"\>", "\<\" \"\>", "\<\" \"\>", "\<\" \"\>", "\<\" \"\>", "\
\<\" \"\>", "\<\" \"\>", "\<\" \"\>", "\<\" \"\>", "\<\" \"\>", "\<\" \"\>", \
"\<\" \"\>", "\<\" \"\>", "\<\" \"\>", "\<\" \"\>", "\<\" \"\>", "\<\" \"\>", \
"\<\" \"\>", "\<\" \"\>", "\<\" \"\>", "\<\" \"\>", "\<\" \"\>", "\<\" \"\>", \
"\<\" \"\>", "\<\" \"\>", "\<\" \"\>", "\<\" \"\>", "\<\" \"\>", "\<\" \"\>", \
"\<\" \"\>", "\<\" \"\>", "\<\" \"\>", "\<\" \"\>", "\<\" \"\>", "\<\" \"\>", \
"\<\" \"\>", "\<\" \"\>", "\<\" \"\>", "\<\" \"\>", "\<\" \"\>", "\<\" \"\>", \
"\<\" \"\>", "\<\" \"\>", "\<\" \"\>", "\<\" \"\>", "\<\" \"\>", "\<\" \"\>", \
"\<\" \"\>", "\<\" \"\>", "\<\" \"\>", "\<\" \"\>", "\<\" \"\>", "\<\" \"\>", \
"\<\" \"\>"},
     {"\<\"O\"\>", "0", "0", "0", "0", "0", "0", "1.125046420815687`", "0", 
      "0", "0", "1.1317969883089012`", "0", "0", "0", "0", "0", "0", "0", "0",
       "0", "0", "0", "0", "0", "0", "0", "0", "0", "0", "0", "0", "0", "0", 
      "0", "\<\" \"\>", "\<\" \"\>", "\<\" \"\>", "\<\" \"\>", "\<\" \"\>", "\
\<\" \"\>", "\<\" \"\>", "\<\" \"\>", "\<\" \"\>", "\<\" \"\>", "\<\" \"\>", \
"\<\" \"\>", "\<\" \"\>", "\<\" \"\>", "\<\" \"\>", "\<\" \"\>", "\<\" \"\>", \
"\<\" \"\>", "\<\" \"\>", "\<\" \"\>", "\<\" \"\>", "\<\" \"\>", "\<\" \"\>", \
"\<\" \"\>", "\<\" \"\>", "\<\" \"\>", "\<\" \"\>", "\<\" \"\>", "\<\" \"\>", \
"\<\" \"\>", "\<\" \"\>", "\<\" \"\>", "\<\" \"\>", "\<\" \"\>", "\<\" \"\>", \
"\<\" \"\>", "\<\" \"\>", "\<\" \"\>", "\<\" \"\>", "\<\" \"\>", "\<\" \"\>", \
"\<\" \"\>", "\<\" \"\>", "\<\" \"\>", "\<\" \"\>", "\<\" \"\>", "\<\" \"\>", \
"\<\" \"\>", "\<\" \"\>", "\<\" \"\>", "\<\" \"\>", "\<\" \"\>", "\<\" \"\>"},
     {"\<\"O\"\>", "0", "0", "0", "0", "0", "0", "0", "0", "0", "0", "0", 
      "1.1402614162267113`", "0", "0", "0", "0", "0", "0", "0", "0", "0", "0",
       "0", "0", "0", "0", "0", "0", "0", "0", "0", "0", "0", "0", 
      "0", "\<\" \"\>", "\<\" \"\>", "\<\" \"\>", "\<\" \"\>", "\<\" \"\>", "\
\<\" \"\>", "\<\" \"\>", "\<\" \"\>", "\<\" \"\>", "\<\" \"\>", "\<\" \"\>", \
"\<\" \"\>", "\<\" \"\>", "\<\" \"\>", "\<\" \"\>", "\<\" \"\>", "\<\" \"\>", \
"\<\" \"\>", "\<\" \"\>", "\<\" \"\>", "\<\" \"\>", "\<\" \"\>", "\<\" \"\>", \
"\<\" \"\>", "\<\" \"\>", "\<\" \"\>", "\<\" \"\>", "\<\" \"\>", "\<\" \"\>", \
"\<\" \"\>", "\<\" \"\>", "\<\" \"\>", "\<\" \"\>", "\<\" \"\>", "\<\" \"\>", \
"\<\" \"\>", "\<\" \"\>", "\<\" \"\>", "\<\" \"\>", "\<\" \"\>", "\<\" \"\>", \
"\<\" \"\>", "\<\" \"\>", "\<\" \"\>", "\<\" \"\>", "\<\" \"\>", "\<\" \"\>", \
"\<\" \"\>", "\<\" \"\>", "\<\" \"\>", "\<\" \"\>", "\<\" \"\>"},
     {"\<\"O\"\>", "0", "0", "0", "0", "0", "0", "0", "0", "0", "0", "0", "0",
       "0", "1.1403324797249974`", "0", "0", "0", "0", "0", "0", "0", "0", 
      "0", "0", "0", "0", "0", "0", "0", "0", "0", "0", "0", "0", "0", 
      "0", "\<\" \"\>", "\<\" \"\>", "\<\" \"\>", "\<\" \"\>", "\<\" \"\>", "\
\<\" \"\>", "\<\" \"\>", "\<\" \"\>", "\<\" \"\>", "\<\" \"\>", "\<\" \"\>", \
"\<\" \"\>", "\<\" \"\>", "\<\" \"\>", "\<\" \"\>", "\<\" \"\>", "\<\" \"\>", \
"\<\" \"\>", "\<\" \"\>", "\<\" \"\>", "\<\" \"\>", "\<\" \"\>", "\<\" \"\>", \
"\<\" \"\>", "\<\" \"\>", "\<\" \"\>", "\<\" \"\>", "\<\" \"\>", "\<\" \"\>", \
"\<\" \"\>", "\<\" \"\>", "\<\" \"\>", "\<\" \"\>", "\<\" \"\>", "\<\" \"\>", \
"\<\" \"\>", "\<\" \"\>", "\<\" \"\>", "\<\" \"\>", "\<\" \"\>", "\<\" \"\>", \
"\<\" \"\>", "\<\" \"\>", "\<\" \"\>", "\<\" \"\>", "\<\" \"\>", "\<\" \"\>", \
"\<\" \"\>", "\<\" \"\>", "\<\" \"\>", "\<\" \"\>"},
     {"\<\"O\"\>", "0", "0", "0", "0", "0", "0", "0", "0", "0", "0", "0", "0",
       "0", "0", "1.138195987624775`", "0", "0", "0", "0", "0", "0", "0", "0",
       "0", "0", "0", "0", "0", "0", "0", "0", "0", "0", "0", "0", "0", 
      "0", "\<\" \"\>", "\<\" \"\>", "\<\" \"\>", "\<\" \"\>", "\<\" \"\>", "\
\<\" \"\>", "\<\" \"\>", "\<\" \"\>", "\<\" \"\>", "\<\" \"\>", "\<\" \"\>", \
"\<\" \"\>", "\<\" \"\>", "\<\" \"\>", "\<\" \"\>", "\<\" \"\>", "\<\" \"\>", \
"\<\" \"\>", "\<\" \"\>", "\<\" \"\>", "\<\" \"\>", "\<\" \"\>", "\<\" \"\>", \
"\<\" \"\>", "\<\" \"\>", "\<\" \"\>", "\<\" \"\>", "\<\" \"\>", "\<\" \"\>", \
"\<\" \"\>", "\<\" \"\>", "\<\" \"\>", "\<\" \"\>", "\<\" \"\>", "\<\" \"\>", \
"\<\" \"\>", "\<\" \"\>", "\<\" \"\>", "\<\" \"\>", "\<\" \"\>", "\<\" \"\>", \
"\<\" \"\>", "\<\" \"\>", "\<\" \"\>", "\<\" \"\>", "\<\" \"\>", "\<\" \"\>", \
"\<\" \"\>", "\<\" \"\>", "\<\" \"\>"},
     {"\<\"O\"\>", "0", "0", "0", "0", "0", "0", "0", "0", "0", "0", "0", "0",
       "0", "0", "0", "1.1337257570422723`", "0", "0", "1.1288432414442582`", 
      "0", "0", "0", "0", "0", "0", "0", "0", "0", "0", "0", "0", "0", "0", 
      "0", "0", "0", "0", 
      "0", "\<\" \"\>", "\<\" \"\>", "\<\" \"\>", "\<\" \"\>", "\<\" \"\>", "\
\<\" \"\>", "\<\" \"\>", "\<\" \"\>", "\<\" \"\>", "\<\" \"\>", "\<\" \"\>", \
"\<\" \"\>", "\<\" \"\>", "\<\" \"\>", "\<\" \"\>", "\<\" \"\>", "\<\" \"\>", \
"\<\" \"\>", "\<\" \"\>", "\<\" \"\>", "\<\" \"\>", "\<\" \"\>", "\<\" \"\>", \
"\<\" \"\>", "\<\" \"\>", "\<\" \"\>", "\<\" \"\>", "\<\" \"\>", "\<\" \"\>", \
"\<\" \"\>", "\<\" \"\>", "\<\" \"\>", "\<\" \"\>", "\<\" \"\>", "\<\" \"\>", \
"\<\" \"\>", "\<\" \"\>", "\<\" \"\>", "\<\" \"\>", "\<\" \"\>", "\<\" \"\>", \
"\<\" \"\>", "\<\" \"\>", "\<\" \"\>", "\<\" \"\>", "\<\" \"\>", "\<\" \"\>", \
"\<\" \"\>", "\<\" \"\>"},
     {"\<\"O\"\>", "0", "0", "0", "0", "0", "0", "0", "0", "0", "0", "0", "0",
       "1.1252590233473756`", "0", "0", "0", "1.1321826317470944`", "0", "0", 
      "0", "0", "0", "0", "0", "0", "0", "0", "0", "0", "0", "0", "0", "0", 
      "0", "0", "0", "0", "0", 
      "0", "\<\" \"\>", "\<\" \"\>", "\<\" \"\>", "\<\" \"\>", "\<\" \"\>", "\
\<\" \"\>", "\<\" \"\>", "\<\" \"\>", "\<\" \"\>", "\<\" \"\>", "\<\" \"\>", \
"\<\" \"\>", "\<\" \"\>", "\<\" \"\>", "\<\" \"\>", "\<\" \"\>", "\<\" \"\>", \
"\<\" \"\>", "\<\" \"\>", "\<\" \"\>", "\<\" \"\>", "\<\" \"\>", "\<\" \"\>", \
"\<\" \"\>", "\<\" \"\>", "\<\" \"\>", "\<\" \"\>", "\<\" \"\>", "\<\" \"\>", \
"\<\" \"\>", "\<\" \"\>", "\<\" \"\>", "\<\" \"\>", "\<\" \"\>", "\<\" \"\>", \
"\<\" \"\>", "\<\" \"\>", "\<\" \"\>", "\<\" \"\>", "\<\" \"\>", "\<\" \"\>", \
"\<\" \"\>", "\<\" \"\>", "\<\" \"\>", "\<\" \"\>", "\<\" \"\>", "\<\" \"\>", \
"\<\" \"\>"},
     {"\<\"O\"\>", "0", "0", "0", "0", "0", "0", "0", "0", "0", "0", "0", "0",
       "0", "0", "0", "0", "0", "1.1406107759309054`", "0", "0", "0", "0", 
      "0", "0", "0", "0", "0", "0", "0", "0", "0", "0", "0", "0", "0", "0", 
      "0", "0", "0", 
      "0", "\<\" \"\>", "\<\" \"\>", "\<\" \"\>", "\<\" \"\>", "\<\" \"\>", "\
\<\" \"\>", "\<\" \"\>", "\<\" \"\>", "\<\" \"\>", "\<\" \"\>", "\<\" \"\>", \
"\<\" \"\>", "\<\" \"\>", "\<\" \"\>", "\<\" \"\>", "\<\" \"\>", "\<\" \"\>", \
"\<\" \"\>", "\<\" \"\>", "\<\" \"\>", "\<\" \"\>", "\<\" \"\>", "\<\" \"\>", \
"\<\" \"\>", "\<\" \"\>", "\<\" \"\>", "\<\" \"\>", "\<\" \"\>", "\<\" \"\>", \
"\<\" \"\>", "\<\" \"\>", "\<\" \"\>", "\<\" \"\>", "\<\" \"\>", "\<\" \"\>", \
"\<\" \"\>", "\<\" \"\>", "\<\" \"\>", "\<\" \"\>", "\<\" \"\>", "\<\" \"\>", \
"\<\" \"\>", "\<\" \"\>", "\<\" \"\>", "\<\" \"\>", "\<\" \"\>", "\<\" \"\>"},
     {"\<\"O\"\>", "0", "0", "0", "0", "0", "0", "0", "0", "0", "0", "0", "0",
       "0", "0", "0", "0", "0", "0", "0", "1.1392588926704932`", "0", "0", 
      "0", "0", "0", "0", "0", "0", "0", "0", "0", "0", "0", "0", "0", "0", 
      "0", "0", "0", "0", 
      "0", "\<\" \"\>", "\<\" \"\>", "\<\" \"\>", "\<\" \"\>", "\<\" \"\>", "\
\<\" \"\>", "\<\" \"\>", "\<\" \"\>", "\<\" \"\>", "\<\" \"\>", "\<\" \"\>", \
"\<\" \"\>", "\<\" \"\>", "\<\" \"\>", "\<\" \"\>", "\<\" \"\>", "\<\" \"\>", \
"\<\" \"\>", "\<\" \"\>", "\<\" \"\>", "\<\" \"\>", "\<\" \"\>", "\<\" \"\>", \
"\<\" \"\>", "\<\" \"\>", "\<\" \"\>", "\<\" \"\>", "\<\" \"\>", "\<\" \"\>", \
"\<\" \"\>", "\<\" \"\>", "\<\" \"\>", "\<\" \"\>", "\<\" \"\>", "\<\" \"\>", \
"\<\" \"\>", "\<\" \"\>", "\<\" \"\>", "\<\" \"\>", "\<\" \"\>", "\<\" \"\>", \
"\<\" \"\>", "\<\" \"\>", "\<\" \"\>", "\<\" \"\>", "\<\" \"\>"},
     {"\<\"O\"\>", "0", "0", "0", "0", "0", "0", "0", "0", "0", "0", "0", "0",
       "0", "0", "0", "0", "0", "0", "0", "0", "1.1391136858301385`", "0", 
      "0", "0", "0", "0", "0", "0", "0", "0", "0", "0", "0", "0", "0", "0", 
      "0", "0", "0", "0", "0", 
      "0", "\<\" \"\>", "\<\" \"\>", "\<\" \"\>", "\<\" \"\>", "\<\" \"\>", "\
\<\" \"\>", "\<\" \"\>", "\<\" \"\>", "\<\" \"\>", "\<\" \"\>", "\<\" \"\>", \
"\<\" \"\>", "\<\" \"\>", "\<\" \"\>", "\<\" \"\>", "\<\" \"\>", "\<\" \"\>", \
"\<\" \"\>", "\<\" \"\>", "\<\" \"\>", "\<\" \"\>", "\<\" \"\>", "\<\" \"\>", \
"\<\" \"\>", "\<\" \"\>", "\<\" \"\>", "\<\" \"\>", "\<\" \"\>", "\<\" \"\>", \
"\<\" \"\>", "\<\" \"\>", "\<\" \"\>", "\<\" \"\>", "\<\" \"\>", "\<\" \"\>", \
"\<\" \"\>", "\<\" \"\>", "\<\" \"\>", "\<\" \"\>", "\<\" \"\>", "\<\" \"\>", \
"\<\" \"\>", "\<\" \"\>", "\<\" \"\>", "\<\" \"\>"},
     {"\<\"O\"\>", "0", "0", "0", "0", "0", "0", "0", "0", "0", "0", "0", "0",
       "0", "0", "0", "0", "0", "0", "0", "0", "0", "1.139298072804237`", "0",
       "0", "0", "0", "0", "0", "0", "0", "0", "0", "0", "0", "0", "0", "0", 
      "0", "0", "0", "0", "0", 
      "0", "\<\" \"\>", "\<\" \"\>", "\<\" \"\>", "\<\" \"\>", "\<\" \"\>", "\
\<\" \"\>", "\<\" \"\>", "\<\" \"\>", "\<\" \"\>", "\<\" \"\>", "\<\" \"\>", \
"\<\" \"\>", "\<\" \"\>", "\<\" \"\>", "\<\" \"\>", "\<\" \"\>", "\<\" \"\>", \
"\<\" \"\>", "\<\" \"\>", "\<\" \"\>", "\<\" \"\>", "\<\" \"\>", "\<\" \"\>", \
"\<\" \"\>", "\<\" \"\>", "\<\" \"\>", "\<\" \"\>", "\<\" \"\>", "\<\" \"\>", \
"\<\" \"\>", "\<\" \"\>", "\<\" \"\>", "\<\" \"\>", "\<\" \"\>", "\<\" \"\>", \
"\<\" \"\>", "\<\" \"\>", "\<\" \"\>", "\<\" \"\>", "\<\" \"\>", "\<\" \"\>", \
"\<\" \"\>", "\<\" \"\>", "\<\" \"\>"},
     {"\<\"O\"\>", "0", "0", "0", "0", "0", "0", "0", "0", "0", "0", "0", "0",
       "0", "0", "0", "0", "0", "0", "1.1248148153977862`", "0", "0", "0", 
      "1.1349239767068844`", "0", "0", "0", "0", "0", "0", "0", "0", "0", "0",
       "0", "0", "0", "0", "0", "0", "0", "0", "0", "0", 
      "0", "\<\" \"\>", "\<\" \"\>", "\<\" \"\>", "\<\" \"\>", "\<\" \"\>", "\
\<\" \"\>", "\<\" \"\>", "\<\" \"\>", "\<\" \"\>", "\<\" \"\>", "\<\" \"\>", \
"\<\" \"\>", "\<\" \"\>", "\<\" \"\>", "\<\" \"\>", "\<\" \"\>", "\<\" \"\>", \
"\<\" \"\>", "\<\" \"\>", "\<\" \"\>", "\<\" \"\>", "\<\" \"\>", "\<\" \"\>", \
"\<\" \"\>", "\<\" \"\>", "\<\" \"\>", "\<\" \"\>", "\<\" \"\>", "\<\" \"\>", \
"\<\" \"\>", "\<\" \"\>", "\<\" \"\>", "\<\" \"\>", "\<\" \"\>", "\<\" \"\>", \
"\<\" \"\>", "\<\" \"\>", "\<\" \"\>", "\<\" \"\>", "\<\" \"\>", "\<\" \"\>", \
"\<\" \"\>", "\<\" \"\>"},
     {"\<\"O\"\>", "0", "0", "0", "0", "0", "0", "0", "0", "0", "0", "0", "0",
       "0", "0", "0", "0", "0", "0", "0", "0", "0", "0", "0", 
      "1.1380763709722834`", "0", "0", "0", "0", "0", "0", "0", "0", "0", "0",
       "0", "0", "0", "0", "0", "0", "0", "0", "0", "0", 
      "0", "\<\" \"\>", "\<\" \"\>", "\<\" \"\>", "\<\" \"\>", "\<\" \"\>", "\
\<\" \"\>", "\<\" \"\>", "\<\" \"\>", "\<\" \"\>", "\<\" \"\>", "\<\" \"\>", \
"\<\" \"\>", "\<\" \"\>", "\<\" \"\>", "\<\" \"\>", "\<\" \"\>", "\<\" \"\>", \
"\<\" \"\>", "\<\" \"\>", "\<\" \"\>", "\<\" \"\>", "\<\" \"\>", "\<\" \"\>", \
"\<\" \"\>", "\<\" \"\>", "\<\" \"\>", "\<\" \"\>", "\<\" \"\>", "\<\" \"\>", \
"\<\" \"\>", "\<\" \"\>", "\<\" \"\>", "\<\" \"\>", "\<\" \"\>", "\<\" \"\>", \
"\<\" \"\>", "\<\" \"\>", "\<\" \"\>", "\<\" \"\>", "\<\" \"\>", "\<\" \"\>", \
"\<\" \"\>"},
     {"\<\"H\"\>", "1.2754245521509575`", "0", "0", "0", "0", "0", "0", "0", 
      "0", "0", "0", "0", "0", "0", "0", "0", "0", "0", "0", "0", "0", "0", 
      "0", "0", "0", "0", "0", "0", "0", "0", "0", "0", "0", "0", "0", "0", 
      "0", "0", "0", "0", "0", "0", "0", "0", "0", 
      "0", "\<\" \"\>", "\<\" \"\>", "\<\" \"\>", "\<\" \"\>", "\<\" \"\>", "\
\<\" \"\>", "\<\" \"\>", "\<\" \"\>", "\<\" \"\>", "\<\" \"\>", "\<\" \"\>", \
"\<\" \"\>", "\<\" \"\>", "\<\" \"\>", "\<\" \"\>", "\<\" \"\>", "\<\" \"\>", \
"\<\" \"\>", "\<\" \"\>", "\<\" \"\>", "\<\" \"\>", "\<\" \"\>", "\<\" \"\>", \
"\<\" \"\>", "\<\" \"\>", "\<\" \"\>", "\<\" \"\>", "\<\" \"\>", "\<\" \"\>", \
"\<\" \"\>", "\<\" \"\>", "\<\" \"\>", "\<\" \"\>", "\<\" \"\>", "\<\" \"\>", \
"\<\" \"\>", "\<\" \"\>", "\<\" \"\>", "\<\" \"\>", "\<\" \"\>", "\<\" \"\>"},
     {"\<\"H\"\>", "0", "1.2710235531033858`", "0", "0", "0", "0", "0", "0", 
      "0", "0", "0", "0", "0", "0", "0", "0", "0", "0", "0", "0", "0", "0", 
      "0", "0", "0", "0", "0", "0", "0", "0", "0", "0", "0", "0", "0", "0", 
      "0", "0", "0", "0", "0", "0", "0", "0", "0", "0", 
      "0", "\<\" \"\>", "\<\" \"\>", "\<\" \"\>", "\<\" \"\>", "\<\" \"\>", "\
\<\" \"\>", "\<\" \"\>", "\<\" \"\>", "\<\" \"\>", "\<\" \"\>", "\<\" \"\>", \
"\<\" \"\>", "\<\" \"\>", "\<\" \"\>", "\<\" \"\>", "\<\" \"\>", "\<\" \"\>", \
"\<\" \"\>", "\<\" \"\>", "\<\" \"\>", "\<\" \"\>", "\<\" \"\>", "\<\" \"\>", \
"\<\" \"\>", "\<\" \"\>", "\<\" \"\>", "\<\" \"\>", "\<\" \"\>", "\<\" \"\>", \
"\<\" \"\>", "\<\" \"\>", "\<\" \"\>", "\<\" \"\>", "\<\" \"\>", "\<\" \"\>", \
"\<\" \"\>", "\<\" \"\>", "\<\" \"\>", "\<\" \"\>", "\<\" \"\>"},
     {"\<\"H\"\>", "0", "0", "1.2761956915632067`", "0", "0", "0", "0", "0", 
      "0", "0", "0", "0", "0", "0", "0", "0", "0", "0", "0", "0", "0", "0", 
      "0", "0", "0", "0", "0", "0", "0", "0", "0", "0", "0", "0", "0", "0", 
      "0", "0", "0", "0", "0", "0", "0", "0", "0", "0", "0", 
      "0", "\<\" \"\>", "\<\" \"\>", "\<\" \"\>", "\<\" \"\>", "\<\" \"\>", "\
\<\" \"\>", "\<\" \"\>", "\<\" \"\>", "\<\" \"\>", "\<\" \"\>", "\<\" \"\>", \
"\<\" \"\>", "\<\" \"\>", "\<\" \"\>", "\<\" \"\>", "\<\" \"\>", "\<\" \"\>", \
"\<\" \"\>", "\<\" \"\>", "\<\" \"\>", "\<\" \"\>", "\<\" \"\>", "\<\" \"\>", \
"\<\" \"\>", "\<\" \"\>", "\<\" \"\>", "\<\" \"\>", "\<\" \"\>", "\<\" \"\>", \
"\<\" \"\>", "\<\" \"\>", "\<\" \"\>", "\<\" \"\>", "\<\" \"\>", "\<\" \"\>", \
"\<\" \"\>", "\<\" \"\>", "\<\" \"\>", "\<\" \"\>"},
     {"\<\"H\"\>", "0", "0", "0", "1.2676608231125486`", "0", "0", "0", "0", 
      "0", "0", "0", "0", "0", "0", "0", "0", "0", "0", "0", "0", "0", "0", 
      "0", "0", "0", "0", "0", "0", "0", "0", "0", "0", "0", "0", "0", "0", 
      "0", "0", "0", "0", "0", "0", "0", "0", "0", "0", "0", "0", 
      "0", "\<\" \"\>", "\<\" \"\>", "\<\" \"\>", "\<\" \"\>", "\<\" \"\>", "\
\<\" \"\>", "\<\" \"\>", "\<\" \"\>", "\<\" \"\>", "\<\" \"\>", "\<\" \"\>", \
"\<\" \"\>", "\<\" \"\>", "\<\" \"\>", "\<\" \"\>", "\<\" \"\>", "\<\" \"\>", \
"\<\" \"\>", "\<\" \"\>", "\<\" \"\>", "\<\" \"\>", "\<\" \"\>", "\<\" \"\>", \
"\<\" \"\>", "\<\" \"\>", "\<\" \"\>", "\<\" \"\>", "\<\" \"\>", "\<\" \"\>", \
"\<\" \"\>", "\<\" \"\>", "\<\" \"\>", "\<\" \"\>", "\<\" \"\>", "\<\" \"\>", \
"\<\" \"\>", "\<\" \"\>", "\<\" \"\>"},
     {"\<\"H\"\>", "0", "0", "0", "0", "1.2751490158264134`", "0", "0", "0", 
      "0", "0", "0", "0", "0", "0", "0", "0", "0", "0", "0", "0", "0", "0", 
      "0", "0", "0", "0", "0", "0", "0", "0", "0", "0", "0", "0", "0", "0", 
      "0", "0", "0", "0", "0", "0", "0", "0", "0", "0", "0", "0", "0", 
      "0", "\<\" \"\>", "\<\" \"\>", "\<\" \"\>", "\<\" \"\>", "\<\" \"\>", "\
\<\" \"\>", "\<\" \"\>", "\<\" \"\>", "\<\" \"\>", "\<\" \"\>", "\<\" \"\>", \
"\<\" \"\>", "\<\" \"\>", "\<\" \"\>", "\<\" \"\>", "\<\" \"\>", "\<\" \"\>", \
"\<\" \"\>", "\<\" \"\>", "\<\" \"\>", "\<\" \"\>", "\<\" \"\>", "\<\" \"\>", \
"\<\" \"\>", "\<\" \"\>", "\<\" \"\>", "\<\" \"\>", "\<\" \"\>", "\<\" \"\>", \
"\<\" \"\>", "\<\" \"\>", "\<\" \"\>", "\<\" \"\>", "\<\" \"\>", "\<\" \"\>", \
"\<\" \"\>", "\<\" \"\>"},
     {"\<\"H\"\>", "0", "0", "0", "0", "0", "0", "0", "0", "0", "0", "0", "0",
       "0", "0", "0", "0", "0", "0", "0", "0", "0", "0", "0", "0", "0", "0", 
      "0", "0", "1.093462913509712`", "0", "0", "0", "0", "0", "0", "0", "0", 
      "0", "0", "0", "0", "0", "0", "0", "0", "0", "0", "0", "0", "0", 
      "0", "\<\" \"\>", "\<\" \"\>", "\<\" \"\>", "\<\" \"\>", "\<\" \"\>", "\
\<\" \"\>", "\<\" \"\>", "\<\" \"\>", "\<\" \"\>", "\<\" \"\>", "\<\" \"\>", \
"\<\" \"\>", "\<\" \"\>", "\<\" \"\>", "\<\" \"\>", "\<\" \"\>", "\<\" \"\>", \
"\<\" \"\>", "\<\" \"\>", "\<\" \"\>", "\<\" \"\>", "\<\" \"\>", "\<\" \"\>", \
"\<\" \"\>", "\<\" \"\>", "\<\" \"\>", "\<\" \"\>", "\<\" \"\>", "\<\" \"\>", \
"\<\" \"\>", "\<\" \"\>", "\<\" \"\>", "\<\" \"\>", "\<\" \"\>", "\<\" \"\>", \
"\<\" \"\>"},
     {"\<\"H\"\>", "0", "0", "0", "0", "0", "0", "0", "0", "0", "0", "0", "0",
       "0", "0", "0", "0", "0", "0", "0", "0", "0", "0", "0", "0", "0", 
      "1.097044203050865`", "0", "0", "0", "0", "0", "0", "0", "0", "0", "0", 
      "0", "0", "0", "0", "0", "0", "0", "0", "0", "0", "0", "0", "0", "0", 
      "0", "0", "\<\" \"\>", "\<\" \"\>", "\<\" \"\>", "\<\" \"\>", "\<\" \
\"\>", "\<\" \"\>", "\<\" \"\>", "\<\" \"\>", "\<\" \"\>", "\<\" \"\>", "\<\" \
\"\>", "\<\" \"\>", "\<\" \"\>", "\<\" \"\>", "\<\" \"\>", "\<\" \"\>", "\<\" \
\"\>", "\<\" \"\>", "\<\" \"\>", "\<\" \"\>", "\<\" \"\>", "\<\" \"\>", "\<\" \
\"\>", "\<\" \"\>", "\<\" \"\>", "\<\" \"\>", "\<\" \"\>", "\<\" \"\>", "\<\" \
\"\>", "\<\" \"\>", "\<\" \"\>", "\<\" \"\>", "\<\" \"\>", "\<\" \"\>", "\<\" \
\"\>"},
     {"\<\"H\"\>", "0", "0", "0", "0", "0", "1.2714265817920403`", "0", "0", 
      "0", "0", "0", "0", "0", "0", "0", "0", "0", "0", "0", "0", "0", "0", 
      "0", "0", "0", "0", "0", "0", "0", "0", "0", "0", "0", "0", "0", "0", 
      "0", "0", "0", "0", "0", "0", "0", "0", "0", "0", "0", "0", "0", "0", 
      "0", "0", 
      "0", "\<\" \"\>", "\<\" \"\>", "\<\" \"\>", "\<\" \"\>", "\<\" \"\>", "\
\<\" \"\>", "\<\" \"\>", "\<\" \"\>", "\<\" \"\>", "\<\" \"\>", "\<\" \"\>", \
"\<\" \"\>", "\<\" \"\>", "\<\" \"\>", "\<\" \"\>", "\<\" \"\>", "\<\" \"\>", \
"\<\" \"\>", "\<\" \"\>", "\<\" \"\>", "\<\" \"\>", "\<\" \"\>", "\<\" \"\>", \
"\<\" \"\>", "\<\" \"\>", "\<\" \"\>", "\<\" \"\>", "\<\" \"\>", "\<\" \"\>", \
"\<\" \"\>", "\<\" \"\>", "\<\" \"\>", "\<\" \"\>", "\<\" \"\>"},
     {"\<\"H\"\>", "0", "0", "0", "0", "0", "1.2757876265968413`", "0", "0", 
      "0", "0", "0", "0", "0", "0", "0", "0", "0", "0", "0", "0", "0", "0", 
      "0", "0", "0", "0", "0", "0", "0", "0", "0", "0", "0", "0", "0", "0", 
      "0", "0", "0", "0", "0", "0", "0", "0", "0", "0", "0", "0", "0", "0", 
      "0", "0", "0", 
      "0", "\<\" \"\>", "\<\" \"\>", "\<\" \"\>", "\<\" \"\>", "\<\" \"\>", "\
\<\" \"\>", "\<\" \"\>", "\<\" \"\>", "\<\" \"\>", "\<\" \"\>", "\<\" \"\>", \
"\<\" \"\>", "\<\" \"\>", "\<\" \"\>", "\<\" \"\>", "\<\" \"\>", "\<\" \"\>", \
"\<\" \"\>", "\<\" \"\>", "\<\" \"\>", "\<\" \"\>", "\<\" \"\>", "\<\" \"\>", \
"\<\" \"\>", "\<\" \"\>", "\<\" \"\>", "\<\" \"\>", "\<\" \"\>", "\<\" \"\>", \
"\<\" \"\>", "\<\" \"\>", "\<\" \"\>", "\<\" \"\>"},
     {"\<\"H\"\>", "0", "0", "0", "0", "0", "0", "0", "0", "0", "0", "0", "0",
       "0", "0", "0", "0", "0", "0", "0", "0", "0", "0", "0", "0", "0", "0", 
      "0", "0", "0", "1.1042754328012643`", "0", "0", "0", "0", "0", "0", "0",
       "0", "0", "0", "0", "0", "0", "0", "0", "0", "0", "0", "0", "0", "0", 
      "0", "0", "0", 
      "0", "\<\" \"\>", "\<\" \"\>", "\<\" \"\>", "\<\" \"\>", "\<\" \"\>", "\
\<\" \"\>", "\<\" \"\>", "\<\" \"\>", "\<\" \"\>", "\<\" \"\>", "\<\" \"\>", \
"\<\" \"\>", "\<\" \"\>", "\<\" \"\>", "\<\" \"\>", "\<\" \"\>", "\<\" \"\>", \
"\<\" \"\>", "\<\" \"\>", "\<\" \"\>", "\<\" \"\>", "\<\" \"\>", "\<\" \"\>", \
"\<\" \"\>", "\<\" \"\>", "\<\" \"\>", "\<\" \"\>", "\<\" \"\>", "\<\" \"\>", \
"\<\" \"\>", "\<\" \"\>", "\<\" \"\>"},
     {"\<\"H\"\>", "0", "0", "0", "0", "0", "0", "0", "0", "0", "0", "0", "0",
       "0", "0", "0", "0", "0", "0", "0", "0", "0", "0", "0", "0", "0", "0", 
      "0", "1.0866711510036549`", "0", "0", "0", "0", "0", "0", "0", "0", "0",
       "0", "0", "0", "0", "0", "0", "0", "0", "0", "0", "0", "0", "0", "0", 
      "0", "0", "0", "0", 
      "0", "\<\" \"\>", "\<\" \"\>", "\<\" \"\>", "\<\" \"\>", "\<\" \"\>", "\
\<\" \"\>", "\<\" \"\>", "\<\" \"\>", "\<\" \"\>", "\<\" \"\>", "\<\" \"\>", \
"\<\" \"\>", "\<\" \"\>", "\<\" \"\>", "\<\" \"\>", "\<\" \"\>", "\<\" \"\>", \
"\<\" \"\>", "\<\" \"\>", "\<\" \"\>", "\<\" \"\>", "\<\" \"\>", "\<\" \"\>", \
"\<\" \"\>", "\<\" \"\>", "\<\" \"\>", "\<\" \"\>", "\<\" \"\>", "\<\" \"\>", \
"\<\" \"\>", "\<\" \"\>"},
     {"\<\"H\"\>", "0", "0", "0", "0", "0", "0", "1.2677026452160933`", "0", 
      "0", "0", "0", "0", "0", "0", "0", "0", "0", "0", "0", "0", "0", "0", 
      "0", "0", "0", "0", "0", "0", "0", "0", "0", "0", "0", "0", "0", "0", 
      "0", "0", "0", "0", "0", "0", "0", "0", "0", "0", "0", "0", "0", "0", 
      "0", "0", "0", "0", "0", "0", 
      "0", "\<\" \"\>", "\<\" \"\>", "\<\" \"\>", "\<\" \"\>", "\<\" \"\>", "\
\<\" \"\>", "\<\" \"\>", "\<\" \"\>", "\<\" \"\>", "\<\" \"\>", "\<\" \"\>", \
"\<\" \"\>", "\<\" \"\>", "\<\" \"\>", "\<\" \"\>", "\<\" \"\>", "\<\" \"\>", \
"\<\" \"\>", "\<\" \"\>", "\<\" \"\>", "\<\" \"\>", "\<\" \"\>", "\<\" \"\>", \
"\<\" \"\>", "\<\" \"\>", "\<\" \"\>", "\<\" \"\>", "\<\" \"\>", "\<\" \"\>", \
"\<\" \"\>"},
     {"\<\"H\"\>", "0", "0", "0", "0", "0", "0", "0", "1.2726675596906816`", 
      "0", "0", "0", "0", "0", "0", "0", "0", "0", "0", "0", "0", "0", "0", 
      "0", "0", "0", "0", "0", "0", "0", "0", "0", "0", "0", "0", "0", "0", 
      "0", "0", "0", "0", "0", "0", "0", "0", "0", "0", "0", "0", "0", "0", 
      "0", "0", "0", "0", "0", "0", "0", 
      "0", "\<\" \"\>", "\<\" \"\>", "\<\" \"\>", "\<\" \"\>", "\<\" \"\>", "\
\<\" \"\>", "\<\" \"\>", "\<\" \"\>", "\<\" \"\>", "\<\" \"\>", "\<\" \"\>", \
"\<\" \"\>", "\<\" \"\>", "\<\" \"\>", "\<\" \"\>", "\<\" \"\>", "\<\" \"\>", \
"\<\" \"\>", "\<\" \"\>", "\<\" \"\>", "\<\" \"\>", "\<\" \"\>", "\<\" \"\>", \
"\<\" \"\>", "\<\" \"\>", "\<\" \"\>", "\<\" \"\>", "\<\" \"\>", "\<\" \"\>"},
     {"\<\"H\"\>", "0", "0", "0", "0", "0", "0", "0", "0", 
      "1.2775018165824643`", "0", "0", "0", "0", "0", "0", "0", "0", "0", "0",
       "0", "0", "0", "0", "0", "0", "0", "0", "0", "0", "0", "0", "0", "0", 
      "0", "0", "0", "0", "0", "0", "0", "0", "0", "0", "0", "0", "0", "0", 
      "0", "0", "0", "0", "0", "0", "0", "0", "0", "0", "0", 
      "0", "\<\" \"\>", "\<\" \"\>", "\<\" \"\>", "\<\" \"\>", "\<\" \"\>", "\
\<\" \"\>", "\<\" \"\>", "\<\" \"\>", "\<\" \"\>", "\<\" \"\>", "\<\" \"\>", \
"\<\" \"\>", "\<\" \"\>", "\<\" \"\>", "\<\" \"\>", "\<\" \"\>", "\<\" \"\>", \
"\<\" \"\>", "\<\" \"\>", "\<\" \"\>", "\<\" \"\>", "\<\" \"\>", "\<\" \"\>", \
"\<\" \"\>", "\<\" \"\>", "\<\" \"\>", "\<\" \"\>", "\<\" \"\>"},
     {"\<\"H\"\>", "0", "0", "0", "0", "0", "0", "0", "0", "0", 
      "1.2729766252347319`", "0", "0", "0", "0", "0", "0", "0", "0", "0", "0",
       "0", "0", "0", "0", "0", "0", "0", "0", "0", "0", "0", "0", "0", "0", 
      "0", "0", "0", "0", "0", "0", "0", "0", "0", "0", "0", "0", "0", "0", 
      "0", "0", "0", "0", "0", "0", "0", "0", "0", "0", "0", "0", "\<\" \"\>",
       "\<\" \"\>", "\<\" \"\>", "\<\" \"\>", "\<\" \"\>", "\<\" \"\>", "\<\" \
\"\>", "\<\" \"\>", "\<\" \"\>", "\<\" \"\>", "\<\" \"\>", "\<\" \"\>", "\<\" \
\"\>", "\<\" \"\>", "\<\" \"\>", "\<\" \"\>", "\<\" \"\>", "\<\" \"\>", "\<\" \
\"\>", "\<\" \"\>", "\<\" \"\>", "\<\" \"\>", "\<\" \"\>", "\<\" \"\>", "\<\" \
\"\>", "\<\" \"\>", "\<\" \"\>"},
     {"\<\"H\"\>", "0", "0", "0", "0", "0", "0", "0", "0", "0", "0", 
      "1.2772257029772311`", "0", "0", "0", "0", "0", "0", "0", "0", "0", "0",
       "0", "0", "0", "0", "0", "0", "0", "0", "0", "0", "0", "0", "0", "0", 
      "0", "0", "0", "0", "0", "0", "0", "0", "0", "0", "0", "0", "0", "0", 
      "0", "0", "0", "0", "0", "0", "0", "0", "0", "0", "0", 
      "0", "\<\" \"\>", "\<\" \"\>", "\<\" \"\>", "\<\" \"\>", "\<\" \"\>", "\
\<\" \"\>", "\<\" \"\>", "\<\" \"\>", "\<\" \"\>", "\<\" \"\>", "\<\" \"\>", \
"\<\" \"\>", "\<\" \"\>", "\<\" \"\>", "\<\" \"\>", "\<\" \"\>", "\<\" \"\>", \
"\<\" \"\>", "\<\" \"\>", "\<\" \"\>", "\<\" \"\>", "\<\" \"\>", "\<\" \"\>", \
"\<\" \"\>", "\<\" \"\>", "\<\" \"\>"},
     {"\<\"H\"\>", "0", "0", "0", "0", "0", "0", "0", "0", "0", "0", "0", 
      "1.271448733341614`", "0", "0", "0", "0", "0", "0", "0", "0", "0", "0", 
      "0", "0", "0", "0", "0", "0", "0", "0", "0", "0", "0", "0", "0", "0", 
      "0", "0", "0", "0", "0", "0", "0", "0", "0", "0", "0", "0", "0", "0", 
      "0", "0", "0", "0", "0", "0", "0", "0", "0", "0", "0", 
      "0", "\<\" \"\>", "\<\" \"\>", "\<\" \"\>", "\<\" \"\>", "\<\" \"\>", "\
\<\" \"\>", "\<\" \"\>", "\<\" \"\>", "\<\" \"\>", "\<\" \"\>", "\<\" \"\>", \
"\<\" \"\>", "\<\" \"\>", "\<\" \"\>", "\<\" \"\>", "\<\" \"\>", "\<\" \"\>", \
"\<\" \"\>", "\<\" \"\>", "\<\" \"\>", "\<\" \"\>", "\<\" \"\>", "\<\" \"\>", \
"\<\" \"\>", "\<\" \"\>"},
     {"\<\"H\"\>", "0", "0", "0", "0", "0", "0", "0", "0", "0", "0", "0", 
      "1.275229809545039`", "0", "0", "0", "0", "0", "0", "0", "0", "0", "0", 
      "0", "0", "0", "0", "0", "0", "0", "0", "0", "0", "0", "0", "0", "0", 
      "0", "0", "0", "0", "0", "0", "0", "0", "0", "0", "0", "0", "0", "0", 
      "0", "0", "0", "0", "0", "0", "0", "0", "0", "0", "0", "0", 
      "0", "\<\" \"\>", "\<\" \"\>", "\<\" \"\>", "\<\" \"\>", "\<\" \"\>", "\
\<\" \"\>", "\<\" \"\>", "\<\" \"\>", "\<\" \"\>", "\<\" \"\>", "\<\" \"\>", \
"\<\" \"\>", "\<\" \"\>", "\<\" \"\>", "\<\" \"\>", "\<\" \"\>", "\<\" \"\>", \
"\<\" \"\>", "\<\" \"\>", "\<\" \"\>", "\<\" \"\>", "\<\" \"\>", "\<\" \"\>", \
"\<\" \"\>"},
     {"\<\"H\"\>", "0", "0", "0", "0", "0", "0", "0", "0", "0", "0", "0", "0",
       "0", "0", "0", "0", "0", "0", "0", "0", "0", "0", "0", "0", "0", "0", 
      "0", "0", "0", "0", "1.0946826447111433`", "0", "0", "0", "0", "0", "0",
       "0", "0", "0", "0", "0", "0", "0", "0", "0", "0", "0", "0", "0", "0", 
      "0", "0", "0", "0", "0", "0", "0", "0", "0", "0", "0", "0", 
      "0", "\<\" \"\>", "\<\" \"\>", "\<\" \"\>", "\<\" \"\>", "\<\" \"\>", "\
\<\" \"\>", "\<\" \"\>", "\<\" \"\>", "\<\" \"\>", "\<\" \"\>", "\<\" \"\>", \
"\<\" \"\>", "\<\" \"\>", "\<\" \"\>", "\<\" \"\>", "\<\" \"\>", "\<\" \"\>", \
"\<\" \"\>", "\<\" \"\>", "\<\" \"\>", "\<\" \"\>", "\<\" \"\>", "\<\" \"\>"},
     {"\<\"H\"\>", "0", "0", "0", "0", "0", "0", "0", "0", "0", "0", "0", "0",
       "0", "0", "0", "0", "0", "0", "0", "0", "0", "0", "0", "0", "0", "0", 
      "0", "0", "0", "0", "0", "1.0989605652519145`", "0", "0", "0", "0", "0",
       "0", "0", "0", "0", "0", "0", "0", "0", "0", "0", "0", "0", "0", "0", 
      "0", "0", "0", "0", "0", "0", "0", "0", "0", "0", "0", "0", "0", 
      "0", "\<\" \"\>", "\<\" \"\>", "\<\" \"\>", "\<\" \"\>", "\<\" \"\>", "\
\<\" \"\>", "\<\" \"\>", "\<\" \"\>", "\<\" \"\>", "\<\" \"\>", "\<\" \"\>", \
"\<\" \"\>", "\<\" \"\>", "\<\" \"\>", "\<\" \"\>", "\<\" \"\>", "\<\" \"\>", \
"\<\" \"\>", "\<\" \"\>", "\<\" \"\>", "\<\" \"\>", "\<\" \"\>"},
     {"\<\"H\"\>", "0", "0", "0", "0", "0", "0", "0", "0", "0", "0", "0", "0",
       "0", "0", "0", "0", "0", "0", "0", "0", "0", "0", "0", "0", "0", "0", 
      "0", "0", "0", "0", "0", "0", "0", "0", "1.1016630174904332`", "0", "0",
       "0", "0", "0", "0", "0", "0", "0", "0", "0", "0", "0", "0", "0", "0", 
      "0", "0", "0", "0", "0", "0", "0", "0", "0", "0", "0", "0", "0", "0", 
      "0", "\<\" \"\>", "\<\" \"\>", "\<\" \"\>", "\<\" \"\>", "\<\" \"\>", "\
\<\" \"\>", "\<\" \"\>", "\<\" \"\>", "\<\" \"\>", "\<\" \"\>", "\<\" \"\>", \
"\<\" \"\>", "\<\" \"\>", "\<\" \"\>", "\<\" \"\>", "\<\" \"\>", "\<\" \"\>", \
"\<\" \"\>", "\<\" \"\>", "\<\" \"\>", "\<\" \"\>"},
     {"\<\"H\"\>", "0", "0", "0", "0", "0", "0", "0", "0", "0", "0", "0", "0",
       "1.265578903319534`", "0", "0", "0", "0", "0", "0", "0", "0", "0", "0",
       "0", "0", "0", "0", "0", "0", "0", "0", "0", "0", "0", "0", "0", "0", 
      "0", "0", "0", "0", "0", "0", "0", "0", "0", "0", "0", "0", "0", "0", 
      "0", "0", "0", "0", "0", "0", "0", "0", "0", "0", "0", "0", "0", "0", 
      "0", "0", "\<\" \"\>", "\<\" \"\>", "\<\" \"\>", "\<\" \"\>", "\<\" \
\"\>", "\<\" \"\>", "\<\" \"\>", "\<\" \"\>", "\<\" \"\>", "\<\" \"\>", "\<\" \
\"\>", "\<\" \"\>", "\<\" \"\>", "\<\" \"\>", "\<\" \"\>", "\<\" \"\>", "\<\" \
\"\>", "\<\" \"\>", "\<\" \"\>", "\<\" \"\>"},
     {"\<\"H\"\>", "0", "0", "0", "0", "0", "0", "0", "0", "0", "0", "0", "0",
       "0", "1.2730345167455122`", "0", "0", "0", "0", "0", "0", "0", "0", 
      "0", "0", "0", "0", "0", "0", "0", "0", "0", "0", "0", "0", "0", "0", 
      "0", "0", "0", "0", "0", "0", "0", "0", "0", "0", "0", "0", "0", "0", 
      "0", "0", "0", "0", "0", "0", "0", "0", "0", "0", "0", "0", "0", "0", 
      "0", "0", "0", 
      "0", "\<\" \"\>", "\<\" \"\>", "\<\" \"\>", "\<\" \"\>", "\<\" \"\>", "\
\<\" \"\>", "\<\" \"\>", "\<\" \"\>", "\<\" \"\>", "\<\" \"\>", "\<\" \"\>", \
"\<\" \"\>", "\<\" \"\>", "\<\" \"\>", "\<\" \"\>", "\<\" \"\>", "\<\" \"\>", \
"\<\" \"\>", "\<\" \"\>"},
     {"\<\"H\"\>", "0", "0", "0", "0", "0", "0", "0", "0", "0", "0", "0", "0",
       "0", "0", "1.2740158752517536`", "0", "0", "0", "0", "0", "0", "0", 
      "0", "0", "0", "0", "0", "0", "0", "0", "0", "0", "0", "0", "0", "0", 
      "0", "0", "0", "0", "0", "0", "0", "0", "0", "0", "0", "0", "0", "0", 
      "0", "0", "0", "0", "0", "0", "0", "0", "0", "0", "0", "0", "0", "0", 
      "0", "0", "0", "0", 
      "0", "\<\" \"\>", "\<\" \"\>", "\<\" \"\>", "\<\" \"\>", "\<\" \"\>", "\
\<\" \"\>", "\<\" \"\>", "\<\" \"\>", "\<\" \"\>", "\<\" \"\>", "\<\" \"\>", \
"\<\" \"\>", "\<\" \"\>", "\<\" \"\>", "\<\" \"\>", "\<\" \"\>", "\<\" \"\>", \
"\<\" \"\>"},
     {"\<\"H\"\>", "0", "0", "0", "0", "0", "0", "0", "0", "0", "0", "0", "0",
       "0", "0", "0", "1.2700902398361644`", "0", "0", "0", "0", "0", "0", 
      "0", "0", "0", "0", "0", "0", "0", "0", "0", "0", "0", "0", "0", "0", 
      "0", "0", "0", "0", "0", "0", "0", "0", "0", "0", "0", "0", "0", "0", 
      "0", "0", "0", "0", "0", "0", "0", "0", "0", "0", "0", "0", "0", "0", 
      "0", "0", "0", "0", "0", 
      "0", "\<\" \"\>", "\<\" \"\>", "\<\" \"\>", "\<\" \"\>", "\<\" \"\>", "\
\<\" \"\>", "\<\" \"\>", "\<\" \"\>", "\<\" \"\>", "\<\" \"\>", "\<\" \"\>", \
"\<\" \"\>", "\<\" \"\>", "\<\" \"\>", "\<\" \"\>", "\<\" \"\>", "\<\" \"\>"},
     {"\<\"H\"\>", "0", "0", "0", "0", "0", "0", "0", "0", "0", "0", "0", "0",
       "0", "0", "0", "0", "1.2776402845179078`", "0", "0", "0", "0", "0", 
      "0", "0", "0", "0", "0", "0", "0", "0", "0", "0", "0", "0", "0", "0", 
      "0", "0", "0", "0", "0", "0", "0", "0", "0", "0", "0", "0", "0", "0", 
      "0", "0", "0", "0", "0", "0", "0", "0", "0", "0", "0", "0", "0", "0", 
      "0", "0", "0", "0", "0", "0", 
      "0", "\<\" \"\>", "\<\" \"\>", "\<\" \"\>", "\<\" \"\>", "\<\" \"\>", "\
\<\" \"\>", "\<\" \"\>", "\<\" \"\>", "\<\" \"\>", "\<\" \"\>", "\<\" \"\>", \
"\<\" \"\>", "\<\" \"\>", "\<\" \"\>", "\<\" \"\>", "\<\" \"\>"},
     {"\<\"H\"\>", "0", "0", "0", "0", "0", "0", "0", "0", "0", "0", "0", "0",
       "0", "0", "0", "0", "0", "1.2729800306619543`", "0", "0", "0", "0", 
      "0", "0", "0", "0", "0", "0", "0", "0", "0", "0", "0", "0", "0", "0", 
      "0", "0", "0", "0", "0", "0", "0", "0", "0", "0", "0", "0", "0", "0", 
      "0", "0", "0", "0", "0", "0", "0", "0", "0", "0", "0", "0", "0", "0", 
      "0", "0", "0", "0", "0", "0", "0", 
      "0", "\<\" \"\>", "\<\" \"\>", "\<\" \"\>", "\<\" \"\>", "\<\" \"\>", "\
\<\" \"\>", "\<\" \"\>", "\<\" \"\>", "\<\" \"\>", "\<\" \"\>", "\<\" \"\>", \
"\<\" \"\>", "\<\" \"\>", "\<\" \"\>", "\<\" \"\>"},
     {"\<\"H\"\>", "0", "0", "0", "0", "0", "0", "0", "0", "0", "0", "0", "0",
       "0", "0", "0", "0", "0", "1.2753896868982753`", "0", "0", "0", "0", 
      "0", "0", "0", "0", "0", "0", "0", "0", "0", "0", "0", "0", "0", "0", 
      "0", "0", "0", "0", "0", "0", "0", "0", "0", "0", "0", "0", "0", "0", 
      "0", "0", "0", "0", "0", "0", "0", "0", "0", "0", "0", "0", "0", "0", 
      "0", "0", "0", "0", "0", "0", "0", "0", 
      "0", "\<\" \"\>", "\<\" \"\>", "\<\" \"\>", "\<\" \"\>", "\<\" \"\>", "\
\<\" \"\>", "\<\" \"\>", "\<\" \"\>", "\<\" \"\>", "\<\" \"\>", "\<\" \"\>", \
"\<\" \"\>", "\<\" \"\>", "\<\" \"\>"},
     {"\<\"H\"\>", "0", "0", "0", "0", "0", "0", "0", "0", "0", "0", "0", "0",
       "0", "0", "0", "0", "0", "0", "0", "0", "0", "0", "0", "0", "0", "0", 
      "0", "0", "0", "0", "0", "0", "0", "0", "0", "1.0916899931961785`", "0",
       "0", "0", "0", "0", "0", "0", "0", "0", "0", "0", "0", "0", "0", "0", 
      "0", "0", "0", "0", "0", "0", "0", "0", "0", "0", "0", "0", "0", "0", 
      "0", "0", "0", "0", "0", "0", "0", "0", 
      "0", "\<\" \"\>", "\<\" \"\>", "\<\" \"\>", "\<\" \"\>", "\<\" \"\>", "\
\<\" \"\>", "\<\" \"\>", "\<\" \"\>", "\<\" \"\>", "\<\" \"\>", "\<\" \"\>", \
"\<\" \"\>", "\<\" \"\>"},
     {"\<\"H\"\>", "0", "0", "0", "0", "0", "0", "0", "0", "0", "0", "0", "0",
       "0", "0", "0", "0", "0", "0", "0", "0", "0", "0", "0", "0", "0", "0", 
      "0", "0", "0", "0", "0", "0", "0", "0", "0", "0", "1.0980423149608884`",
       "0", "0", "0", "0", "0", "0", "0", "0", "0", "0", "0", "0", "0", "0", 
      "0", "0", "0", "0", "0", "0", "0", "0", "0", "0", "0", "0", "0", "0", 
      "0", "0", "0", "0", "0", "0", "0", "0", "0", 
      "0", "\<\" \"\>", "\<\" \"\>", "\<\" \"\>", "\<\" \"\>", "\<\" \"\>", "\
\<\" \"\>", "\<\" \"\>", "\<\" \"\>", "\<\" \"\>", "\<\" \"\>", "\<\" \"\>", \
"\<\" \"\>"},
     {"\<\"H\"\>", "0", "0", "0", "0", "0", "0", "0", "0", "0", "0", "0", "0",
       "0", "0", "0", "0", "0", "0", "0", "0", "0", "0", "0", "0", "0", "0", 
      "0", "0", "0", "0", "0", "0", "0", "0", "0", "0", "0", "0", "0", 
      "1.1007550571947238`", "0", "0", "0", "0", "0", "0", "0", "0", "0", "0",
       "0", "0", "0", "0", "0", "0", "0", "0", "0", "0", "0", "0", "0", "0", 
      "0", "0", "0", "0", "0", "0", "0", "0", "0", "0", "0", 
      "0", "\<\" \"\>", "\<\" \"\>", "\<\" \"\>", "\<\" \"\>", "\<\" \"\>", "\
\<\" \"\>", "\<\" \"\>", "\<\" \"\>", "\<\" \"\>", "\<\" \"\>", "\<\" \"\>"},
     {"\<\"H\"\>", "0", "0", "0", "0", "0", "0", "0", "0", "0", "0", "0", "0",
       "0", "0", "0", "0", "0", "0", "1.2672826791997571`", "0", "0", "0", 
      "0", "0", "0", "0", "0", "0", "0", "0", "0", "0", "0", "0", "0", "0", 
      "0", "0", "0", "0", "0", "0", "0", "0", "0", "0", "0", "0", "0", "0", 
      "0", "0", "0", "0", "0", "0", "0", "0", "0", "0", "0", "0", "0", "0", 
      "0", "0", "0", "0", "0", "0", "0", "0", "0", "0", "0", "0", 
      "0", "\<\" \"\>", "\<\" \"\>", "\<\" \"\>", "\<\" \"\>", "\<\" \"\>", "\
\<\" \"\>", "\<\" \"\>", "\<\" \"\>", "\<\" \"\>", "\<\" \"\>"},
     {"\<\"H\"\>", "0", "0", "0", "0", "0", "0", "0", "0", "0", "0", "0", "0",
       "0", "0", "0", "0", "0", "0", "0", "1.2741409590917088`", "0", "0", 
      "0", "0", "0", "0", "0", "0", "0", "0", "0", "0", "0", "0", "0", "0", 
      "0", "0", "0", "0", "0", "0", "0", "0", "0", "0", "0", "0", "0", "0", 
      "0", "0", "0", "0", "0", "0", "0", "0", "0", "0", "0", "0", "0", "0", 
      "0", "0", "0", "0", "0", "0", "0", "0", "0", "0", "0", "0", "0", 
      "0", "\<\" \"\>", "\<\" \"\>", "\<\" \"\>", "\<\" \"\>", "\<\" \"\>", "\
\<\" \"\>", "\<\" \"\>", "\<\" \"\>", "\<\" \"\>"},
     {"\<\"H\"\>", "0", "0", "0", "0", "0", "0", "0", "0", "0", "0", "0", "0",
       "0", "0", "0", "0", "0", "0", "0", "0", "1.2749193745958576`", "0", 
      "0", "0", "0", "0", "0", "0", "0", "0", "0", "0", "0", "0", "0", "0", 
      "0", "0", "0", "0", "0", "0", "0", "0", "0", "0", "0", "0", "0", "0", 
      "0", "0", "0", "0", "0", "0", "0", "0", "0", "0", "0", "0", "0", "0", 
      "0", "0", "0", "0", "0", "0", "0", "0", "0", "0", "0", "0", "0", "0", 
      "0", "\<\" \"\>", "\<\" \"\>", "\<\" \"\>", "\<\" \"\>", "\<\" \"\>", "\
\<\" \"\>", "\<\" \"\>", "\<\" \"\>"},
     {"\<\"H\"\>", "0", "0", "0", "0", "0", "0", "0", "0", "0", "0", "0", "0",
       "0", "0", "0", "0", "0", "0", "0", "0", "0", "1.2749627531971153`", 
      "0", "0", "0", "0", "0", "0", "0", "0", "0", "0", "0", "0", "0", "0", 
      "0", "0", "0", "0", "0", "0", "0", "0", "0", "0", "0", "0", "0", "0", 
      "0", "0", "0", "0", "0", "0", "0", "0", "0", "0", "0", "0", "0", "0", 
      "0", "0", "0", "0", "0", "0", "0", "0", "0", "0", "0", "0", "0", "0", 
      "0", "0", "\<\" \"\>", "\<\" \"\>", "\<\" \"\>", "\<\" \"\>", "\<\" \
\"\>", "\<\" \"\>", "\<\" \"\>"},
     {"\<\"H\"\>", "0", "0", "0", "0", "0", "0", "0", "0", "0", "0", "0", "0",
       "0", "0", "0", "0", "0", "0", "0", "0", "0", "0", 
      "1.2750401520042063`", "0", "0", "0", "0", "0", "0", "0", "0", "0", "0",
       "0", "0", "0", "0", "0", "0", "0", "0", "0", "0", "0", "0", "0", "0", 
      "0", "0", "0", "0", "0", "0", "0", "0", "0", "0", "0", "0", "0", "0", 
      "0", "0", "0", "0", "0", "0", "0", "0", "0", "0", "0", "0", "0", "0", 
      "0", "0", "0", "0", "0", 
      "0", "\<\" \"\>", "\<\" \"\>", "\<\" \"\>", "\<\" \"\>", "\<\" \"\>", "\
\<\" \"\>"},
     {"\<\"H\"\>", "0", "0", "0", "0", "0", "0", "0", "0", "0", "0", "0", "0",
       "0", "0", "0", "0", "0", "0", "0", "0", "0", "0", "0", 
      "1.2744191800805176`", "0", "0", "0", "0", "0", "0", "0", "0", "0", "0",
       "0", "0", "0", "0", "0", "0", "0", "0", "0", "0", "0", "0", "0", "0", 
      "0", "0", "0", "0", "0", "0", "0", "0", "0", "0", "0", "0", "0", "0", 
      "0", "0", "0", "0", "0", "0", "0", "0", "0", "0", "0", "0", "0", "0", 
      "0", "0", "0", "0", "0", 
      "0", "\<\" \"\>", "\<\" \"\>", "\<\" \"\>", "\<\" \"\>", "\<\" \"\>"},
     {"\<\"H\"\>", "0", "0", "0", "0", "0", "0", "0", "0", "0", "0", "0", "0",
       "0", "0", "0", "0", "0", "0", "0", "0", "0", "0", "0", 
      "1.2725108809698966`", "0", "0", "0", "0", "0", "0", "0", "0", "0", "0",
       "0", "0", "0", "0", "0", "0", "0", "0", "0", "0", "0", "0", "0", "0", 
      "0", "0", "0", "0", "0", "0", "0", "0", "0", "0", "0", "0", "0", "0", 
      "0", "0", "0", "0", "0", "0", "0", "0", "0", "0", "0", "0", "0", "0", 
      "0", "0", "0", "0", "0", "0", 
      "0", "\<\" \"\>", "\<\" \"\>", "\<\" \"\>", "\<\" \"\>"},
     {"\<\"H\"\>", "0", "0", "0", "0", "0", "0", "0", "0", "0", "0", "0", "0",
       "0", "0", "0", "0", "0", "0", "0", "0", "0", "0", "0", "0", "0", "0", 
      "0", "0", "0", "0", "0", "0", "0", "0", "0", "0", "0", "0", "0", "0", 
      "1.0935364986081584`", "0", "0", "0", "0", "0", "0", "0", "0", "0", "0",
       "0", "0", "0", "0", "0", "0", "0", "0", "0", "0", "0", "0", "0", "0", 
      "0", "0", "0", "0", "0", "0", "0", "0", "0", "0", "0", "0", "0", "0", 
      "0", "0", "0", "0", "0", "\<\" \"\>", "\<\" \"\>", "\<\" \"\>"},
     {"\<\"H\"\>", "0", "0", "0", "0", "0", "0", "0", "0", "0", "0", "0", "0",
       "0", "0", "0", "0", "0", "0", "0", "0", "0", "0", "0", "0", "0", "0", 
      "0", "0", "0", "0", "0", "0", "0", "0", "0", "0", "0", "0", "0", "0", 
      "0", "1.091114561755932`", "0", "0", "0", "0", "0", "0", "0", "0", "0", 
      "0", "0", "0", "0", "0", "0", "0", "0", "0", "0", "0", "0", "0", "0", 
      "0", "0", "0", "0", "0", "0", "0", "0", "0", "0", "0", "0", "0", "0", 
      "0", "0", "0", "0", "0", "0", "\<\" \"\>", "\<\" \"\>"},
     {"\<\"H\"\>", "0", "0", "0", "0", "0", "0", "0", "0", "0", "0", "0", "0",
       "0", "0", "0", "0", "0", "0", "0", "0", "0", "0", "0", "0", "0", "0", 
      "0", "0", "0", "0", "0", "0", "0", "0", "0", "0", "0", "0", "0", "0", 
      "0", "0", "1.0894250317389662`", "0", "0", "0", "0", "0", "0", "0", "0",
       "0", "0", "0", "0", "0", "0", "0", "0", "0", "0", "0", "0", "0", "0", 
      "0", "0", "0", "0", "0", "0", "0", "0", "0", "0", "0", "0", "0", "0", 
      "0", "0", "0", "0", "0", "0", "0", "\<\" \"\>"},
     {"\<\"H\"\>", "0", "0", "0", "0", "0", "0", "0", "0", "0", "0", "0", "0",
       "0", "0", "0", "0", "0", "0", "0", "0", "0", "0", "0", "0", "0", "0", 
      "0", "0", "0", "0", "0", "0", "0", "0", "0", "0", "0", "0", "0", "0", 
      "0", "0", "0", "0", "1.0886394954698164`", "0", "0", "0", "0", "0", "0",
       "0", "0", "0", "0", "0", "0", "0", "0", "0", "0", "0", "0", "0", "0", 
      "0", "0", "0", "0", "0", "0", "0", "0", "0", "0", "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.5703428896202526`*^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[CellGroupData[{

Cell[BoxData[
 RowBox[{"For", "[", 
  RowBox[{
   RowBox[{"i", "=", "2"}], ",", 
   RowBox[{"i", "<", 
    RowBox[{"n", "+", "2"}]}], ",", 
   RowBox[{"i", "++"}], ",", "\[IndentingNewLine]", 
   RowBox[{"For", "[", 
    RowBox[{
     RowBox[{"j", "=", "2"}], ",", 
     RowBox[{"j", "\[LessEqual]", "i"}], ",", 
     RowBox[{"j", "++"}], ",", "\[IndentingNewLine]", 
     RowBox[{"If", "[", 
      RowBox[{
       RowBox[{"(", 
        RowBox[{
         RowBox[{
          RowBox[{"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[{"Extract", "[", 
          RowBox[{"Pij", ",", 
           RowBox[{"{", 
            RowBox[{"i", ",", "j"}], "}"}]}], "]"}]}], "]"}]}], "]"}]}], 
    "]"}]}], "]"}]], "Input",
 CellChangeTimes->{{3.568108824079547*^9, 3.568109012824279*^9}, {
   3.568109558076436*^9, 3.568109588168889*^9}, {3.5681097523435774`*^9, 
   3.5681097637783976`*^9}, {3.5681100381828794`*^9, 
   3.5681101616726966`*^9}, {3.5681102015307665`*^9, 
   3.5681102288464146`*^9}, {3.568110263743676*^9, 3.568110267331682*^9}, {
   3.5681103163469687`*^9, 3.5681103268925867`*^9}, {3.5681106443375444`*^9, 
   3.5681106916368275`*^9}, 3.568110873002746*^9, {3.5681109388660617`*^9, 
   3.5681110268970165`*^9}, {3.568111092526332*^9, 3.568111123461186*^9}, {
   3.5681111884196997`*^9, 3.568111192756508*^9}, {3.5681112268113675`*^9, 
   3.568111366213212*^9}, {3.568111434946933*^9, 3.568111463354583*^9}, {
   3.568111544396725*^9, 3.568111547625931*^9}, {3.5681116856081734`*^9, 
   3.5681117131422215`*^9}, {3.568111864696488*^9, 3.5681119835998964`*^9}, 
   3.5681120218355637`*^9, {3.56811206543764*^9, 3.568112066389242*^9}, {
   3.568112332369709*^9, 3.5681123404505234`*^9}, {3.568112505935614*^9, 
   3.56811251481203*^9}, {3.5681125623609133`*^9, 3.568112569006525*^9}, {
   3.568112648067464*^9, 3.568112734210815*^9}, {3.568112764443668*^9, 
   3.5681127697320776`*^9}, {3.5681128018681335`*^9, 3.568112843426607*^9}, {
   3.568112884641879*^9, 3.5681128887602863`*^9}, {3.5681129663080225`*^9, 
   3.5681129699584293`*^9}, {3.568113133789917*^9, 3.568113227936082*^9}, {
   3.5681132946885996`*^9, 3.5681133044698167`*^9}, {3.568113502200164*^9, 
   3.568113507348173*^9}, 3.56811354556824*^9, {3.5681222886191964`*^9, 
   3.5681222896019983`*^9}, {3.568207424138049*^9, 3.5682074415164795`*^9}, 
   3.568277923134914*^9, 3.568883508322016*^9, 3.568883588350157*^9, 
   3.5688836441982546`*^9, {3.5703421313965206`*^9, 3.5703421386505337`*^9}, {
   3.570342288098796*^9, 3.5703424924279547`*^9}}],

Cell[CellGroupData[{

Cell[BoxData[
 InterpretationBox[
  RowBox[{"\<\"O\"\>", "\[InvisibleSpace]", "25", 
   "\[InvisibleSpace]", "\<\" \"\>", "\[InvisibleSpace]", "\<\"C\"\>", 
   "\[InvisibleSpace]", "3", "\[InvisibleSpace]", "\<\"  \"\>", 
   "\[InvisibleSpace]", "1.1316645531044596`"}],
  SequenceForm["O", 25, " ", "C", 3, "  ", 1.1316645531044596`],
  Editable->False]], "Print",
 CellChangeTimes->{3.5703421639069777`*^9, 3.57034251259879*^9, 
  3.5703428896358523`*^9}],

Cell[BoxData[
 InterpretationBox[
  RowBox[{"\<\"O\"\>", "\[InvisibleSpace]", "25", 
   "\[InvisibleSpace]", "\<\" \"\>", "\[InvisibleSpace]", "\<\"C\"\>", 
   "\[InvisibleSpace]", "4", "\[InvisibleSpace]", "\<\"  \"\>", 
   "\[InvisibleSpace]", "1.1259844131585692`"}],
  SequenceForm["O", 25, " ", "C", 4, "  ", 1.1259844131585692`],
  Editable->False]], "Print",
 CellChangeTimes->{3.5703421639069777`*^9, 3.57034251259879*^9, 
  3.5703428896358523`*^9}],

Cell[BoxData[
 InterpretationBox[
  RowBox[{"\<\"O\"\>", "\[InvisibleSpace]", "26", 
   "\[InvisibleSpace]", "\<\" \"\>", "\[InvisibleSpace]", "\<\"C\"\>", 
   "\[InvisibleSpace]", "1", "\[InvisibleSpace]", "\<\"  \"\>", 
   "\[InvisibleSpace]", "1.1381808301760907`"}],
  SequenceForm["O", 26, " ", "C", 1, "  ", 1.1381808301760907`],
  Editable->False]], "Print",
 CellChangeTimes->{3.5703421639069777`*^9, 3.57034251259879*^9, 
  3.5703428896358523`*^9}],

Cell[BoxData[
 InterpretationBox[
  RowBox[{"\<\"O\"\>", "\[InvisibleSpace]", "27", 
   "\[InvisibleSpace]", "\<\" \"\>", "\[InvisibleSpace]", "\<\"C\"\>", 
   "\[InvisibleSpace]", "2", "\[InvisibleSpace]", "\<\"  \"\>", 
   "\[InvisibleSpace]", "1.1336705459102399`"}],
  SequenceForm["O", 27, " ", "C", 2, "  ", 1.1336705459102399`],
  Editable->False]], "Print",
 CellChangeTimes->{3.5703421639069777`*^9, 3.57034251259879*^9, 
  3.570342889651452*^9}],

Cell[BoxData[
 InterpretationBox[
  RowBox[{"\<\"O\"\>", "\[InvisibleSpace]", "27", 
   "\[InvisibleSpace]", "\<\" \"\>", "\[InvisibleSpace]", "\<\"C\"\>", 
   "\[InvisibleSpace]", "7", "\[InvisibleSpace]", "\<\"  \"\>", 
   "\[InvisibleSpace]", "1.1283285233055038`"}],
  SequenceForm["O", 27, " ", "C", 7, "  ", 1.1283285233055038`],
  Editable->False]], "Print",
 CellChangeTimes->{3.5703421639069777`*^9, 3.57034251259879*^9, 
  3.570342889651452*^9}],

Cell[BoxData[
 InterpretationBox[
  RowBox[{"\<\"O\"\>", "\[InvisibleSpace]", "28", 
   "\[InvisibleSpace]", "\<\" \"\>", "\[InvisibleSpace]", "\<\"C\"\>", 
   "\[InvisibleSpace]", "4", "\[InvisibleSpace]", "\<\"  \"\>", 
   "\[InvisibleSpace]", "1.1340811040162677`"}],
  SequenceForm["O", 28, " ", "C", 4, "  ", 1.1340811040162677`],
  Editable->False]], "Print",
 CellChangeTimes->{3.5703421639069777`*^9, 3.57034251259879*^9, 
  3.570342889651452*^9}],

Cell[BoxData[
 InterpretationBox[
  RowBox[{"\<\"O\"\>", "\[InvisibleSpace]", "29", 
   "\[InvisibleSpace]", "\<\" \"\>", "\[InvisibleSpace]", "\<\"C\"\>", 
   "\[InvisibleSpace]", "5", "\[InvisibleSpace]", "\<\"  \"\>", 
   "\[InvisibleSpace]", "1.137521316930776`"}],
  SequenceForm["O", 29, " ", "C", 5, "  ", 1.137521316930776],
  Editable->False]], "Print",
 CellChangeTimes->{3.5703421639069777`*^9, 3.57034251259879*^9, 
  3.570342889651452*^9}],

Cell[BoxData[
 InterpretationBox[
  RowBox[{"\<\"O\"\>", "\[InvisibleSpace]", "30", 
   "\[InvisibleSpace]", "\<\" \"\>", "\[InvisibleSpace]", "\<\"C\"\>", 
   "\[InvisibleSpace]", "6", "\[InvisibleSpace]", "\<\"  \"\>", 
   "\[InvisibleSpace]", "1.1397273338933405`"}],
  SequenceForm["O", 30, " ", "C", 6, "  ", 1.1397273338933405`],
  Editable->False]], "Print",
 CellChangeTimes->{3.5703421639069777`*^9, 3.57034251259879*^9, 
  3.570342889651452*^9}],

Cell[BoxData[
 InterpretationBox[
  RowBox[{"\<\"O\"\>", "\[InvisibleSpace]", "31", 
   "\[InvisibleSpace]", "\<\" \"\>", "\[InvisibleSpace]", "\<\"C\"\>", 
   "\[InvisibleSpace]", "8", "\[InvisibleSpace]", "\<\"  \"\>", 
   "\[InvisibleSpace]", "1.1393000482431825`"}],
  SequenceForm["O", 31, " ", "C", 8, "  ", 1.1393000482431825`],
  Editable->False]], "Print",
 CellChangeTimes->{3.5703421639069777`*^9, 3.57034251259879*^9, 
  3.5703428896670523`*^9}],

Cell[BoxData[
 InterpretationBox[
  RowBox[{"\<\"O\"\>", "\[InvisibleSpace]", "32", 
   "\[InvisibleSpace]", "\<\" \"\>", "\[InvisibleSpace]", "\<\"C\"\>", 
   "\[InvisibleSpace]", "9", "\[InvisibleSpace]", "\<\"  \"\>", 
   "\[InvisibleSpace]", "1.1389269684633112`"}],
  SequenceForm["O", 32, " ", "C", 9, "  ", 1.1389269684633112`],
  Editable->False]], "Print",
 CellChangeTimes->{3.5703421639069777`*^9, 3.57034251259879*^9, 
  3.5703428896670523`*^9}],

Cell[BoxData[
 InterpretationBox[
  RowBox[{"\<\"O\"\>", "\[InvisibleSpace]", "33", 
   "\[InvisibleSpace]", "\<\" \"\>", "\[InvisibleSpace]", "\<\"C\"\>", 
   "\[InvisibleSpace]", "10", "\[InvisibleSpace]", "\<\"  \"\>", 
   "\[InvisibleSpace]", "1.133218523174445`"}],
  SequenceForm["O", 33, " ", "C", 10, "  ", 1.133218523174445],
  Editable->False]], "Print",
 CellChangeTimes->{3.5703421639069777`*^9, 3.57034251259879*^9, 
  3.5703428896670523`*^9}],

Cell[BoxData[
 InterpretationBox[
  RowBox[{"\<\"O\"\>", "\[InvisibleSpace]", "33", 
   "\[InvisibleSpace]", "\<\" \"\>", "\[InvisibleSpace]", "\<\"C\"\>", 
   "\[InvisibleSpace]", "13", "\[InvisibleSpace]", "\<\"  \"\>", 
   "\[InvisibleSpace]", "1.1278089593419882`"}],
  SequenceForm["O", 33, " ", "C", 13, "  ", 1.1278089593419882`],
  Editable->False]], "Print",
 CellChangeTimes->{3.5703421639069777`*^9, 3.57034251259879*^9, 
  3.5703428896670523`*^9}],

Cell[BoxData[
 InterpretationBox[
  RowBox[{"\<\"O\"\>", "\[InvisibleSpace]", "34", 
   "\[InvisibleSpace]", "\<\" \"\>", "\[InvisibleSpace]", "\<\"C\"\>", 
   "\[InvisibleSpace]", "7", "\[InvisibleSpace]", "\<\"  \"\>", 
   "\[InvisibleSpace]", "1.125046420815687`"}],
  SequenceForm["O", 34, " ", "C", 7, "  ", 1.125046420815687],
  Editable->False]], "Print",
 CellChangeTimes->{3.5703421639069777`*^9, 3.57034251259879*^9, 
  3.5703428896670523`*^9}],

Cell[BoxData[
 InterpretationBox[
  RowBox[{"\<\"O\"\>", "\[InvisibleSpace]", "34", 
   "\[InvisibleSpace]", "\<\" \"\>", "\[InvisibleSpace]", "\<\"C\"\>", 
   "\[InvisibleSpace]", "11", "\[InvisibleSpace]", "\<\"  \"\>", 
   "\[InvisibleSpace]", "1.1317969883089012`"}],
  SequenceForm["O", 34, " ", "C", 11, "  ", 1.1317969883089012`],
  Editable->False]], "Print",
 CellChangeTimes->{3.5703421639069777`*^9, 3.57034251259879*^9, 
  3.5703428896826525`*^9}],

Cell[BoxData[
 InterpretationBox[
  RowBox[{"\<\"O\"\>", "\[InvisibleSpace]", "35", 
   "\[InvisibleSpace]", "\<\" \"\>", "\[InvisibleSpace]", "\<\"C\"\>", 
   "\[InvisibleSpace]", "12", "\[InvisibleSpace]", "\<\"  \"\>", 
   "\[InvisibleSpace]", "1.1402614162267113`"}],
  SequenceForm["O", 35, " ", "C", 12, "  ", 1.1402614162267113`],
  Editable->False]], "Print",
 CellChangeTimes->{3.5703421639069777`*^9, 3.57034251259879*^9, 
  3.5703428896826525`*^9}],

Cell[BoxData[
 InterpretationBox[
  RowBox[{"\<\"O\"\>", "\[InvisibleSpace]", "36", 
   "\[InvisibleSpace]", "\<\" \"\>", "\[InvisibleSpace]", "\<\"C\"\>", 
   "\[InvisibleSpace]", "14", "\[InvisibleSpace]", "\<\"  \"\>", 
   "\[InvisibleSpace]", "1.1403324797249974`"}],
  SequenceForm["O", 36, " ", "C", 14, "  ", 1.1403324797249974`],
  Editable->False]], "Print",
 CellChangeTimes->{3.5703421639069777`*^9, 3.57034251259879*^9, 
  3.5703428896826525`*^9}],

Cell[BoxData[
 InterpretationBox[
  RowBox[{"\<\"O\"\>", "\[InvisibleSpace]", "37", 
   "\[InvisibleSpace]", "\<\" \"\>", "\[InvisibleSpace]", "\<\"C\"\>", 
   "\[InvisibleSpace]", "15", "\[InvisibleSpace]", "\<\"  \"\>", 
   "\[InvisibleSpace]", "1.138195987624775`"}],
  SequenceForm["O", 37, " ", "C", 15, "  ", 1.138195987624775],
  Editable->False]], "Print",
 CellChangeTimes->{3.5703421639069777`*^9, 3.57034251259879*^9, 
  3.5703428896826525`*^9}],

Cell[BoxData[
 InterpretationBox[
  RowBox[{"\<\"O\"\>", "\[InvisibleSpace]", "38", 
   "\[InvisibleSpace]", "\<\" \"\>", "\[InvisibleSpace]", "\<\"C\"\>", 
   "\[InvisibleSpace]", "16", "\[InvisibleSpace]", "\<\"  \"\>", 
   "\[InvisibleSpace]", "1.1337257570422723`"}],
  SequenceForm["O", 38, " ", "C", 16, "  ", 1.1337257570422723`],
  Editable->False]], "Print",
 CellChangeTimes->{3.5703421639069777`*^9, 3.57034251259879*^9, 
  3.5703428896826525`*^9}],

Cell[BoxData[
 InterpretationBox[
  RowBox[{"\<\"O\"\>", "\[InvisibleSpace]", "38", 
   "\[InvisibleSpace]", "\<\" \"\>", "\[InvisibleSpace]", "\<\"C\"\>", 
   "\[InvisibleSpace]", "19", "\[InvisibleSpace]", "\<\"  \"\>", 
   "\[InvisibleSpace]", "1.1288432414442582`"}],
  SequenceForm["O", 38, " ", "C", 19, "  ", 1.1288432414442582`],
  Editable->False]], "Print",
 CellChangeTimes->{3.5703421639069777`*^9, 3.57034251259879*^9, 
  3.5703428896982527`*^9}],

Cell[BoxData[
 InterpretationBox[
  RowBox[{"\<\"O\"\>", "\[InvisibleSpace]", "39", 
   "\[InvisibleSpace]", "\<\" \"\>", "\[InvisibleSpace]", "\<\"C\"\>", 
   "\[InvisibleSpace]", "13", "\[InvisibleSpace]", "\<\"  \"\>", 
   "\[InvisibleSpace]", "1.1252590233473756`"}],
  SequenceForm["O", 39, " ", "C", 13, "  ", 1.1252590233473756`],
  Editable->False]], "Print",
 CellChangeTimes->{3.5703421639069777`*^9, 3.57034251259879*^9, 
  3.5703428896982527`*^9}],

Cell[BoxData[
 InterpretationBox[
  RowBox[{"\<\"O\"\>", "\[InvisibleSpace]", "39", 
   "\[InvisibleSpace]", "\<\" \"\>", "\[InvisibleSpace]", "\<\"C\"\>", 
   "\[InvisibleSpace]", "17", "\[InvisibleSpace]", "\<\"  \"\>", 
   "\[InvisibleSpace]", "1.1321826317470944`"}],
  SequenceForm["O", 39, " ", "C", 17, "  ", 1.1321826317470944`],
  Editable->False]], "Print",
 CellChangeTimes->{3.5703421639069777`*^9, 3.57034251259879*^9, 
  3.5703428896982527`*^9}],

Cell[BoxData[
 InterpretationBox[
  RowBox[{"\<\"O\"\>", "\[InvisibleSpace]", "40", 
   "\[InvisibleSpace]", "\<\" \"\>", "\[InvisibleSpace]", "\<\"C\"\>", 
   "\[InvisibleSpace]", "18", "\[InvisibleSpace]", "\<\"  \"\>", 
   "\[InvisibleSpace]", "1.1406107759309054`"}],
  SequenceForm["O", 40, " ", "C", 18, "  ", 1.1406107759309054`],
  Editable->False]], "Print",
 CellChangeTimes->{3.5703421639069777`*^9, 3.57034251259879*^9, 
  3.5703428896982527`*^9}],

Cell[BoxData[
 InterpretationBox[
  RowBox[{"\<\"O\"\>", "\[InvisibleSpace]", "41", 
   "\[InvisibleSpace]", "\<\" \"\>", "\[InvisibleSpace]", "\<\"C\"\>", 
   "\[InvisibleSpace]", "20", "\[InvisibleSpace]", "\<\"  \"\>", 
   "\[InvisibleSpace]", "1.1392588926704932`"}],
  SequenceForm["O", 41, " ", "C", 20, "  ", 1.1392588926704932`],
  Editable->False]], "Print",
 CellChangeTimes->{3.5703421639069777`*^9, 3.57034251259879*^9, 
  3.5703428896982527`*^9}],

Cell[BoxData[
 InterpretationBox[
  RowBox[{"\<\"O\"\>", "\[InvisibleSpace]", "42", 
   "\[InvisibleSpace]", "\<\" \"\>", "\[InvisibleSpace]", "\<\"C\"\>", 
   "\[InvisibleSpace]", "21", "\[InvisibleSpace]", "\<\"  \"\>", 
   "\[InvisibleSpace]", "1.1391136858301385`"}],
  SequenceForm["O", 42, " ", "C", 21, "  ", 1.1391136858301385`],
  Editable->False]], "Print",
 CellChangeTimes->{3.5703421639069777`*^9, 3.57034251259879*^9, 
  3.570342889713853*^9}],

Cell[BoxData[
 InterpretationBox[
  RowBox[{"\<\"O\"\>", "\[InvisibleSpace]", "43", 
   "\[InvisibleSpace]", "\<\" \"\>", "\[InvisibleSpace]", "\<\"C\"\>", 
   "\[InvisibleSpace]", "22", "\[InvisibleSpace]", "\<\"  \"\>", 
   "\[InvisibleSpace]", "1.139298072804237`"}],
  SequenceForm["O", 43, " ", "C", 22, "  ", 1.139298072804237],
  Editable->False]], "Print",
 CellChangeTimes->{3.5703421639069777`*^9, 3.57034251259879*^9, 
  3.570342889713853*^9}],

Cell[BoxData[
 InterpretationBox[
  RowBox[{"\<\"O\"\>", "\[InvisibleSpace]", "44", 
   "\[InvisibleSpace]", "\<\" \"\>", "\[InvisibleSpace]", "\<\"C\"\>", 
   "\[InvisibleSpace]", "19", "\[InvisibleSpace]", "\<\"  \"\>", 
   "\[InvisibleSpace]", "1.1248148153977862`"}],
  SequenceForm["O", 44, " ", "C", 19, "  ", 1.1248148153977862`],
  Editable->False]], "Print",
 CellChangeTimes->{3.5703421639069777`*^9, 3.57034251259879*^9, 
  3.570342889713853*^9}],

Cell[BoxData[
 InterpretationBox[
  RowBox[{"\<\"O\"\>", "\[InvisibleSpace]", "44", 
   "\[InvisibleSpace]", "\<\" \"\>", "\[InvisibleSpace]", "\<\"C\"\>", 
   "\[InvisibleSpace]", "23", "\[InvisibleSpace]", "\<\"  \"\>", 
   "\[InvisibleSpace]", "1.1349239767068844`"}],
  SequenceForm["O", 44, " ", "C", 23, "  ", 1.1349239767068844`],
  Editable->False]], "Print",
 CellChangeTimes->{3.5703421639069777`*^9, 3.57034251259879*^9, 
  3.570342889713853*^9}],

Cell[BoxData[
 InterpretationBox[
  RowBox[{"\<\"O\"\>", "\[InvisibleSpace]", "45", 
   "\[InvisibleSpace]", "\<\" \"\>", "\[InvisibleSpace]", "\<\"C\"\>", 
   "\[InvisibleSpace]", "24", "\[InvisibleSpace]", "\<\"  \"\>", 
   "\[InvisibleSpace]", "1.1380763709722834`"}],
  SequenceForm["O", 45, " ", "C", 24, "  ", 1.1380763709722834`],
  Editable->False]], "Print",
 CellChangeTimes->{3.5703421639069777`*^9, 3.57034251259879*^9, 
  3.570342889713853*^9}],

Cell[BoxData[
 InterpretationBox[
  RowBox[{"\<\"H\"\>", "\[InvisibleSpace]", "51", 
   "\[InvisibleSpace]", "\<\" \"\>", "\[InvisibleSpace]", "\<\"O\"\>", 
   "\[InvisibleSpace]", "29", "\[InvisibleSpace]", "\<\"  \"\>", 
   "\[InvisibleSpace]", "1.093462913509712`"}],
  SequenceForm["H", 51, " ", "O", 29, "  ", 1.093462913509712],
  Editable->False]], "Print",
 CellChangeTimes->{3.5703421639069777`*^9, 3.57034251259879*^9, 
  3.570342889729453*^9}],

Cell[BoxData[
 InterpretationBox[
  RowBox[{"\<\"H\"\>", "\[InvisibleSpace]", "52", 
   "\[InvisibleSpace]", "\<\" \"\>", "\[InvisibleSpace]", "\<\"O\"\>", 
   "\[InvisibleSpace]", "26", "\[InvisibleSpace]", "\<\"  \"\>", 
   "\[InvisibleSpace]", "1.097044203050865`"}],
  SequenceForm["H", 52, " ", "O", 26, "  ", 1.097044203050865],
  Editable->False]], "Print",
 CellChangeTimes->{3.5703421639069777`*^9, 3.57034251259879*^9, 
  3.570342889729453*^9}],

Cell[BoxData[
 InterpretationBox[
  RowBox[{"\<\"H\"\>", "\[InvisibleSpace]", "55", 
   "\[InvisibleSpace]", "\<\" \"\>", "\[InvisibleSpace]", "\<\"O\"\>", 
   "\[InvisibleSpace]", "30", "\[InvisibleSpace]", "\<\"  \"\>", 
   "\[InvisibleSpace]", "1.1042754328012643`"}],
  SequenceForm["H", 55, " ", "O", 30, "  ", 1.1042754328012643`],
  Editable->False]], "Print",
 CellChangeTimes->{3.5703421639069777`*^9, 3.57034251259879*^9, 
  3.570342889729453*^9}],

Cell[BoxData[
 InterpretationBox[
  RowBox[{"\<\"H\"\>", "\[InvisibleSpace]", "56", 
   "\[InvisibleSpace]", "\<\" \"\>", "\[InvisibleSpace]", "\<\"O\"\>", 
   "\[InvisibleSpace]", "28", "\[InvisibleSpace]", "\<\"  \"\>", 
   "\[InvisibleSpace]", "1.0866711510036549`"}],
  SequenceForm["H", 56, " ", "O", 28, "  ", 1.0866711510036549`],
  Editable->False]], "Print",
 CellChangeTimes->{3.5703421639069777`*^9, 3.57034251259879*^9, 
  3.570342889729453*^9}],

Cell[BoxData[
 InterpretationBox[
  RowBox[{"\<\"H\"\>", "\[InvisibleSpace]", "64", 
   "\[InvisibleSpace]", "\<\" \"\>", "\[InvisibleSpace]", "\<\"O\"\>", 
   "\[InvisibleSpace]", "31", "\[InvisibleSpace]", "\<\"  \"\>", 
   "\[InvisibleSpace]", "1.0946826447111433`"}],
  SequenceForm["H", 64, " ", "O", 31, "  ", 1.0946826447111433`],
  Editable->False]], "Print",
 CellChangeTimes->{3.5703421639069777`*^9, 3.57034251259879*^9, 
  3.570342889745053*^9}],

Cell[BoxData[
 InterpretationBox[
  RowBox[{"\<\"H\"\>", "\[InvisibleSpace]", "65", 
   "\[InvisibleSpace]", "\<\" \"\>", "\[InvisibleSpace]", "\<\"O\"\>", 
   "\[InvisibleSpace]", "32", "\[InvisibleSpace]", "\<\"  \"\>", 
   "\[InvisibleSpace]", "1.0989605652519145`"}],
  SequenceForm["H", 65, " ", "O", 32, "  ", 1.0989605652519145`],
  Editable->False]], "Print",
 CellChangeTimes->{3.5703421639069777`*^9, 3.57034251259879*^9, 
  3.570342889745053*^9}],

Cell[BoxData[
 InterpretationBox[
  RowBox[{"\<\"H\"\>", "\[InvisibleSpace]", "66", 
   "\[InvisibleSpace]", "\<\" \"\>", "\[InvisibleSpace]", "\<\"O\"\>", 
   "\[InvisibleSpace]", "35", "\[InvisibleSpace]", "\<\"  \"\>", 
   "\[InvisibleSpace]", "1.1016630174904332`"}],
  SequenceForm["H", 66, " ", "O", 35, "  ", 1.1016630174904332`],
  Editable->False]], "Print",
 CellChangeTimes->{3.5703421639069777`*^9, 3.57034251259879*^9, 
  3.570342889745053*^9}],

Cell[BoxData[
 InterpretationBox[
  RowBox[{"\<\"H\"\>", "\[InvisibleSpace]", "74", 
   "\[InvisibleSpace]", "\<\" \"\>", "\[InvisibleSpace]", "\<\"O\"\>", 
   "\[InvisibleSpace]", "36", "\[InvisibleSpace]", "\<\"  \"\>", 
   "\[InvisibleSpace]", "1.0916899931961785`"}],
  SequenceForm["H", 74, " ", "O", 36, "  ", 1.0916899931961785`],
  Editable->False]], "Print",
 CellChangeTimes->{3.5703421639069777`*^9, 3.57034251259879*^9, 
  3.570342889745053*^9}],

Cell[BoxData[
 InterpretationBox[
  RowBox[{"\<\"H\"\>", "\[InvisibleSpace]", "75", 
   "\[InvisibleSpace]", "\<\" \"\>", "\[InvisibleSpace]", "\<\"O\"\>", 
   "\[InvisibleSpace]", "37", "\[InvisibleSpace]", "\<\"  \"\>", 
   "\[InvisibleSpace]", "1.0980423149608884`"}],
  SequenceForm["H", 75, " ", "O", 37, "  ", 1.0980423149608884`],
  Editable->False]], "Print",
 CellChangeTimes->{3.5703421639069777`*^9, 3.57034251259879*^9, 
  3.570342889745053*^9}],

Cell[BoxData[
 InterpretationBox[
  RowBox[{"\<\"H\"\>", "\[InvisibleSpace]", "76", 
   "\[InvisibleSpace]", "\<\" \"\>", "\[InvisibleSpace]", "\<\"O\"\>", 
   "\[InvisibleSpace]", "40", "\[InvisibleSpace]", "\<\"  \"\>", 
   "\[InvisibleSpace]", "1.1007550571947238`"}],
  SequenceForm["H", 76, " ", "O", 40, "  ", 1.1007550571947238`],
  Editable->False]], "Print",
 CellChangeTimes->{3.5703421639069777`*^9, 3.57034251259879*^9, 
  3.570342889745053*^9}],

Cell[BoxData[
 InterpretationBox[
  RowBox[{"\<\"H\"\>", "\[InvisibleSpace]", "84", 
   "\[InvisibleSpace]", "\<\" \"\>", "\[InvisibleSpace]", "\<\"O\"\>", 
   "\[InvisibleSpace]", "41", "\[InvisibleSpace]", "\<\"  \"\>", 
   "\[InvisibleSpace]", "1.0935364986081584`"}],
  SequenceForm["H", 84, " ", "O", 41, "  ", 1.0935364986081584`],
  Editable->False]], "Print",
 CellChangeTimes->{3.5703421639069777`*^9, 3.57034251259879*^9, 
  3.5703428897606525`*^9}],

Cell[BoxData[
 InterpretationBox[
  RowBox[{"\<\"H\"\>", "\[InvisibleSpace]", "85", 
   "\[InvisibleSpace]", "\<\" \"\>", "\[InvisibleSpace]", "\<\"O\"\>", 
   "\[InvisibleSpace]", "42", "\[InvisibleSpace]", "\<\"  \"\>", 
   "\[InvisibleSpace]", "1.091114561755932`"}],
  SequenceForm["H", 85, " ", "O", 42, "  ", 1.091114561755932],
  Editable->False]], "Print",
 CellChangeTimes->{3.5703421639069777`*^9, 3.57034251259879*^9, 
  3.5703428897606525`*^9}],

Cell[BoxData[
 InterpretationBox[
  RowBox[{"\<\"H\"\>", "\[InvisibleSpace]", "86", 
   "\[InvisibleSpace]", "\<\" \"\>", "\[InvisibleSpace]", "\<\"O\"\>", 
   "\[InvisibleSpace]", "43", "\[InvisibleSpace]", "\<\"  \"\>", 
   "\[InvisibleSpace]", "1.0894250317389662`"}],
  SequenceForm["H", 86, " ", "O", 43, "  ", 1.0894250317389662`],
  Editable->False]], "Print",
 CellChangeTimes->{3.5703421639069777`*^9, 3.57034251259879*^9, 
  3.5703428897606525`*^9}],

Cell[BoxData[
 InterpretationBox[
  RowBox[{"\<\"H\"\>", "\[InvisibleSpace]", "87", 
   "\[InvisibleSpace]", "\<\" \"\>", "\[InvisibleSpace]", "\<\"O\"\>", 
   "\[InvisibleSpace]", "45", "\[InvisibleSpace]", "\<\"  \"\>", 
   "\[InvisibleSpace]", "1.0886394954698164`"}],
  SequenceForm["H", 87, " ", "O", 45, "  ", 1.0886394954698164`],
  Editable->False]], "Print",
 CellChangeTimes->{3.5703421639069777`*^9, 3.57034251259879*^9, 
  3.5703428897606525`*^9}]
}, Open  ]]
}, Open  ]],

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

Cell[CellGroupData[{

Cell[BoxData[{
 RowBox[{"a", "=", 
  RowBox[{
  "ReadList", "[", "\"\<C:\\\\Kimb_Mathem\\\\tmp4\>\"", 
   "]"}]}], "\[IndentingNewLine]", 
 RowBox[{"nb", "=", 
  RowBox[{"Length", "[", "a", "]"}]}], "\[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.1831091114925423`"}], "}"}], ",", 
   RowBox[{"{", 
    RowBox[{"3", ",", "2", ",", "1.1884420664660733`"}], "}"}], ",", 
   RowBox[{"{", 
    RowBox[{"5", ",", "1", ",", "1.1822816686131143`"}], "}"}], ",", 
   RowBox[{"{", 
    RowBox[{"5", ",", "4", ",", "1.1820263536923503`"}], "}"}], ",", 
   RowBox[{"{", 
    RowBox[{"6", ",", "3", ",", "1.1906416251145053`"}], "}"}], ",", 
   RowBox[{"{", 
    RowBox[{"8", ",", "7", ",", "1.179562812399278`"}], "}"}], ",", 
   RowBox[{"{", 
    RowBox[{"9", ",", "8", ",", "1.1809421577217574`"}], "}"}], ",", 
   RowBox[{"{", 
    RowBox[{"10", ",", "9", ",", "1.1829029939029012`"}], "}"}], ",", 
   RowBox[{"{", 
    RowBox[{"11", ",", "10", ",", "1.188035965376226`"}], "}"}], ",", 
   RowBox[{"{", 
    RowBox[{"12", ",", "11", ",", "1.190690102525311`"}], "}"}], ",", 
   RowBox[{"{", 
    RowBox[{"14", ",", "13", ",", "1.1806738568310036`"}], "}"}], ",", 
   RowBox[{"{", 
    RowBox[{"15", ",", "14", ",", "1.1813971908481906`"}], "}"}], ",", 
   RowBox[{"{", 
    RowBox[{"16", ",", "15", ",", "1.1831423234608482`"}], "}"}], ",", 
   RowBox[{"{", 
    RowBox[{"17", ",", "16", ",", "1.1880201891514786`"}], "}"}], ",", 
   RowBox[{"{", 
    RowBox[{"18", ",", "17", ",", "1.189385277057574`"}], "}"}], ",", 
   RowBox[{"{", 
    RowBox[{"20", ",", "19", ",", "1.1788105338859702`"}], "}"}], ",", 
   RowBox[{"{", 
    RowBox[{"21", ",", "20", ",", "1.1777675224721846`"}], "}"}], ",", 
   RowBox[{"{", 
    RowBox[{"22", ",", "21", ",", "1.1806949993929927`"}], "}"}], ",", 
   RowBox[{"{", 
    RowBox[{"23", ",", "22", ",", "1.187785072029548`"}], "}"}], ",", 
   RowBox[{"{", 
    RowBox[{"24", ",", "23", ",", "1.1870497743990638`"}], "}"}], ",", 
   RowBox[{"{", 
    RowBox[{"25", ",", "3", ",", "1.1316645531044596`"}], "}"}], ",", 
   RowBox[{"{", 
    RowBox[{"25", ",", "4", ",", "1.1259844131585692`"}], "}"}], ",", 
   RowBox[{"{", 
    RowBox[{"26", ",", "1", ",", "1.1381808301760907`"}], "}"}], ",", 
   RowBox[{"{", 
    RowBox[{"27", ",", "2", ",", "1.1336705459102399`"}], "}"}], ",", 
   RowBox[{"{", 
    RowBox[{"27", ",", "7", ",", "1.1283285233055038`"}], "}"}], ",", 
   RowBox[{"{", 
    RowBox[{"28", ",", "4", ",", "1.1340811040162677`"}], "}"}], ",", 
   RowBox[{"{", 
    RowBox[{"29", ",", "5", ",", "1.137521316930776`"}], "}"}], ",", 
   RowBox[{"{", 
    RowBox[{"30", ",", "6", ",", "1.1397273338933405`"}], "}"}], ",", 
   RowBox[{"{", 
    RowBox[{"31", ",", "8", ",", "1.1393000482431825`"}], "}"}], ",", 
   RowBox[{"{", 
    RowBox[{"32", ",", "9", ",", "1.1389269684633112`"}], "}"}], ",", 
   RowBox[{"{", 
    RowBox[{"33", ",", "10", ",", "1.133218523174445`"}], "}"}], ",", 
   RowBox[{"{", 
    RowBox[{"33", ",", "13", ",", "1.1278089593419882`"}], "}"}], ",", 
   RowBox[{"{", 
    RowBox[{"34", ",", "7", ",", "1.125046420815687`"}], "}"}], ",", 
   RowBox[{"{", 
    RowBox[{"34", ",", "11", ",", "1.1317969883089012`"}], "}"}], ",", 
   RowBox[{"{", 
    RowBox[{"35", ",", "12", ",", "1.1402614162267113`"}], "}"}], ",", 
   RowBox[{"{", 
    RowBox[{"36", ",", "14", ",", "1.1403324797249974`"}], "}"}], ",", 
   RowBox[{"{", 
    RowBox[{"37", ",", "15", ",", "1.138195987624775`"}], "}"}], ",", 
   RowBox[{"{", 
    RowBox[{"38", ",", "16", ",", "1.1337257570422723`"}], "}"}], ",", 
   RowBox[{"{", 
    RowBox[{"38", ",", "19", ",", "1.1288432414442582`"}], "}"}], ",", 
   RowBox[{"{", 
    RowBox[{"39", ",", "13", ",", "1.1252590233473756`"}], "}"}], ",", 
   RowBox[{"{", 
    RowBox[{"39", ",", "17", ",", "1.1321826317470944`"}], "}"}], ",", 
   RowBox[{"{", 
    RowBox[{"40", ",", "18", ",", "1.1406107759309054`"}], "}"}], ",", 
   RowBox[{"{", 
    RowBox[{"41", ",", "20", ",", "1.1392588926704932`"}], "}"}], ",", 
   RowBox[{"{", 
    RowBox[{"42", ",", "21", ",", "1.1391136858301385`"}], "}"}], ",", 
   RowBox[{"{", 
    RowBox[{"43", ",", "22", ",", "1.139298072804237`"}], "}"}], ",", 
   RowBox[{"{", 
    RowBox[{"44", ",", "19", ",", "1.1248148153977862`"}], "}"}], ",", 
   RowBox[{"{", 
    RowBox[{"44", ",", "23", ",", "1.1349239767068844`"}], "}"}], ",", 
   RowBox[{"{", 
    RowBox[{"45", ",", "24", ",", "1.1380763709722834`"}], "}"}], ",", 
   RowBox[{"{", 
    RowBox[{"46", ",", "1", ",", "1.2754245521509575`"}], "}"}], ",", 
   RowBox[{"{", 
    RowBox[{"47", ",", "2", ",", "1.2710235531033858`"}], "}"}], ",", 
   RowBox[{"{", 
    RowBox[{"48", ",", "3", ",", "1.2761956915632067`"}], "}"}], ",", 
   RowBox[{"{", 
    RowBox[{"49", ",", "4", ",", "1.2676608231125486`"}], "}"}], ",", 
   RowBox[{"{", 
    RowBox[{"50", ",", "5", ",", "1.2751490158264134`"}], "}"}], ",", 
   RowBox[{"{", 
    RowBox[{"51", ",", "29", ",", "1.093462913509712`"}], "}"}], ",", 
   RowBox[{"{", 
    RowBox[{"52", ",", "26", ",", "1.097044203050865`"}], "}"}], ",", 
   RowBox[{"{", 
    RowBox[{"53", ",", "6", ",", "1.2714265817920403`"}], "}"}], ",", 
   RowBox[{"{", 
    RowBox[{"54", ",", "6", ",", "1.2757876265968413`"}], "}"}], ",", 
   RowBox[{"{", 
    RowBox[{"55", ",", "30", ",", "1.1042754328012643`"}], "}"}], ",", 
   RowBox[{"{", 
    RowBox[{"56", ",", "28", ",", "1.0866711510036549`"}], "}"}], ",", 
   RowBox[{"{", 
    RowBox[{"57", ",", "7", ",", "1.2677026452160933`"}], "}"}], ",", 
   RowBox[{"{", 
    RowBox[{"58", ",", "8", ",", "1.2726675596906816`"}], "}"}], ",", 
   RowBox[{"{", 
    RowBox[{"59", ",", "9", ",", "1.2775018165824643`"}], "}"}], ",", 
   RowBox[{"{", 
    RowBox[{"60", ",", "10", ",", "1.2729766252347319`"}], "}"}], ",", 
   RowBox[{"{", 
    RowBox[{"61", ",", "11", ",", "1.2772257029772311`"}], "}"}], ",", 
   RowBox[{"{", 
    RowBox[{"62", ",", "12", ",", "1.271448733341614`"}], "}"}], ",", 
   RowBox[{"{", 
    RowBox[{"63", ",", "12", ",", "1.275229809545039`"}], "}"}], ",", 
   RowBox[{"{", 
    RowBox[{"64", ",", "31", ",", "1.0946826447111433`"}], "}"}], ",", 
   RowBox[{"{", 
    RowBox[{"65", ",", "32", ",", "1.0989605652519145`"}], "}"}], ",", 
   RowBox[{"{", 
    RowBox[{"66", ",", "35", ",", "1.1016630174904332`"}], "}"}], ",", 
   RowBox[{"{", 
    RowBox[{"67", ",", "13", ",", "1.265578903319534`"}], "}"}], ",", 
   RowBox[{"{", 
    RowBox[{"68", ",", "14", ",", "1.2730345167455122`"}], "}"}], ",", 
   RowBox[{"{", 
    RowBox[{"69", ",", "15", ",", "1.2740158752517536`"}], "}"}], ",", 
   RowBox[{"{", 
    RowBox[{"70", ",", "16", ",", "1.2700902398361644`"}], "}"}], ",", 
   RowBox[{"{", 
    RowBox[{"71", ",", "17", ",", "1.2776402845179078`"}], "}"}], ",", 
   RowBox[{"{", 
    RowBox[{"72", ",", "18", ",", "1.2729800306619543`"}], "}"}], ",", 
   RowBox[{"{", 
    RowBox[{"73", ",", "18", ",", "1.2753896868982753`"}], "}"}], ",", 
   RowBox[{"{", 
    RowBox[{"74", ",", "36", ",", "1.0916899931961785`"}], "}"}], ",", 
   RowBox[{"{", 
    RowBox[{"75", ",", "37", ",", "1.0980423149608884`"}], "}"}], ",", 
   RowBox[{"{", 
    RowBox[{"76", ",", "40", ",", "1.1007550571947238`"}], "}"}], ",", 
   RowBox[{"{", 
    RowBox[{"77", ",", "19", ",", "1.2672826791997571`"}], "}"}], ",", 
   RowBox[{"{", 
    RowBox[{"78", ",", "20", ",", "1.2741409590917088`"}], "}"}], ",", 
   RowBox[{"{", 
    RowBox[{"79", ",", "21", ",", "1.2749193745958576`"}], "}"}], ",", 
   RowBox[{"{", 
    RowBox[{"80", ",", "22", ",", "1.2749627531971153`"}], "}"}], ",", 
   RowBox[{"{", 
    RowBox[{"81", ",", "23", ",", "1.2750401520042063`"}], "}"}], ",", 
   RowBox[{"{", 
    RowBox[{"82", ",", "24", ",", "1.2744191800805176`"}], "}"}], ",", 
   RowBox[{"{", 
    RowBox[{"83", ",", "24", ",", "1.2725108809698966`"}], "}"}], ",", 
   RowBox[{"{", 
    RowBox[{"84", ",", "41", ",", "1.0935364986081584`"}], "}"}], ",", 
   RowBox[{"{", 
    RowBox[{"85", ",", "42", ",", "1.091114561755932`"}], "}"}], ",", 
   RowBox[{"{", 
    RowBox[{"86", ",", "43", ",", "1.0894250317389662`"}], "}"}], ",", 
   RowBox[{"{", 
    RowBox[{"87", ",", "45", ",", "1.0886394954698164`"}], "}"}]}], 
  "}"}]], "Output",
 CellChangeTimes->{3.5703420347231507`*^9, 3.5703421642189784`*^9, 
  3.5703425127703905`*^9, 3.570342889823053*^9}],

Cell[BoxData["90"], "Output",
 CellChangeTimes->{3.5703420347231507`*^9, 3.5703421642189784`*^9, 
  3.5703425127703905`*^9, 3.5703428898386526`*^9}],

Cell[BoxData["48"], "Output",
 CellChangeTimes->{3.5703420347231507`*^9, 3.5703421642189784`*^9, 
  3.5703425127703905`*^9, 3.5703428898386526`*^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[{"Darker", "[", 
         RowBox[{"Orange", ",", "0.6"}], "]"}], ",", 
        RowBox[{"{", 
         RowBox[{
          RowBox[{"Opacity", "[", "0.4", "]"}], ",", 
          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}}],

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}}],

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.15"}], "]"}], "}"}], "]"}], ",", 
     RowBox[{"{", 
      RowBox[{"i", ",", "1", ",", "nb"}], "}"}]}], "]"}]}], 
  ";"}], "\[IndentingNewLine]", 
 RowBox[{"Show", "[", 
  RowBox[{"Plot1", ",", "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", "->", "False"}], ",", " ", 
     RowBox[{"SphericalRegion", "\[Rule]", "True"}]}], "}"}]}], 
  "]"}]}], "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}],

Cell[BoxData[
 Graphics3DBox[{
   {RGBColor[0.7333333333333333, 0.6, 0.4666666666666667], 
    SphereBox[{1.4720965540000002`, 13.160051864000001`, -0.253223284}, 
     0.255]}, 
   {RGBColor[0.7333333333333333, 0.6, 0.4666666666666667], 
    SphereBox[{-1.19997601, 12.260542288000002`, 0.315584242}, 0.255]}, 
   {RGBColor[0.7333333333333333, 0.6, 0.4666666666666667], 
    SphereBox[{-3.06135612, 14.225857328, -0.687860264}, 0.255]}, 
   {RGBColor[0.7333333333333333, 0.6, 0.4666666666666667], 
    SphereBox[{-0.196531504, 17.549885362, 0.098265752}, 0.255]}, 
   {RGBColor[0.7333333333333333, 0.6, 0.4666666666666667], 
    SphereBox[{1.846262302, 15.730079224, 0.978878068}, 0.255]}, 
   {RGBColor[0.7333333333333333, 0.6, 0.4666666666666667], 
    SphereBox[{-5.827914984, 13.47374638, -0.31369451600000003`}, 0.255]}, 
   {RGBColor[0.7333333333333333, 0.6, 0.4666666666666667], 
    SphereBox[{-1.4399712120000001`, 7.723310162, 0.470541774}, 0.255]}, 
   {RGBColor[0.7333333333333333, 0.6, 0.4666666666666667], 
    SphereBox[{-3.54323625, 5.91484238, -0.262671914}, 0.255]}, 
   {RGBColor[0.7333333333333333, 0.6, 0.4666666666666667], 
    SphereBox[{-3.050017764, 3.314579404, 0.852266426}, 0.255]}, 
   {RGBColor[0.7333333333333333, 0.6, 0.4666666666666667], 
    SphereBox[{-0.438416432, 2.450974622, 0.013228082}, 0.255]}, 
   {RGBColor[0.7333333333333333, 0.6, 0.4666666666666667], 
    SphereBox[{1.49288354, 4.40306158, 0.901399302}, 0.255]}, 
   {RGBColor[0.7333333333333333, 0.6, 0.4666666666666667], 
    SphereBox[{4.221647884, 3.673627344, 0.2834589}, 0.255]}, 
   {RGBColor[0.7333333333333333, 0.6, 0.4666666666666667], 
    SphereBox[{-0.149288354, -2.076808874, -0.287238352}, 0.255]}, 
   {RGBColor[0.7333333333333333, 0.6, 0.4666666666666667], 
    SphereBox[{2.010668464, -3.8852766560000003`, 0.268341092}, 0.255]}, 
   {RGBColor[0.7333333333333333, 0.6, 0.4666666666666667], 
    SphereBox[{1.45508902, -6.47231155, -0.8503767}, 0.255]}, 
   {RGBColor[0.7333333333333333, 0.6, 0.4666666666666667], 
    SphereBox[{-1.084702724, -7.36048277, 0.166295888}, 0.255]}, 
   {RGBColor[0.7333333333333333, 0.6, 0.4666666666666667], 
    SphereBox[{-3.085922558, -5.415954716, -0.570697252}, 0.255]}, 
   {RGBColor[0.7333333333333333, 0.6, 0.4666666666666667], 
    SphereBox[{-5.7579951220000005`, -6.164286212, 0.23243629799999999`}, 
     0.255]}, 
   {RGBColor[0.7333333333333333, 0.6, 0.4666666666666667], 
    SphereBox[{-1.347374638, -11.882597088, 0.49132876000000003`}, 0.255]}, 
   {RGBColor[0.7333333333333333, 0.6, 0.4666666666666667], 
    SphereBox[{-3.5621335100000002`, -13.666498432000001`, 
     0.12283219000000001`}, 0.255]}, 
   {RGBColor[0.7333333333333333, 0.6, 0.4666666666666667], 
    SphereBox[{-2.953641738, -16.206290176, 1.3020212139999998`}, 0.255]}, 
   {RGBColor[0.7333333333333333, 0.6, 0.4666666666666667], 
    SphereBox[{-0.5102260200000001, -17.183278518, 0.153067806}, 0.255]}, 
   {RGBColor[0.7333333333333333, 0.6, 0.4666666666666667], 
    SphereBox[{1.58736984, -15.253868271999998`, 0.60471232}, 0.255]}, 
   {RGBColor[0.7333333333333333, 0.6, 0.4666666666666667], 
    SphereBox[{4.130941036, -16.060781274, -0.489439034}, 0.255]}, 
   {RGBColor[1, 
     NCache[
      Rational[1, 3], 0.3333333333333333], 
     NCache[
      Rational[1, 3], 0.3333333333333333]], 
    SphereBox[{-2.609711606, 16.51620524, 0.6614040999999999}, 0.178]}, 
   {RGBColor[1, 
     NCache[
      Rational[1, 3], 0.3333333333333333], 
     NCache[
      Rational[1, 3], 0.3333333333333333]], 
    SphereBox[{3.2824540620000002`, 11.481975175999999`, 0.863604782}, 
     0.178]}, 
   {RGBColor[1, 
     NCache[
      Rational[1, 3], 0.3333333333333333], 
     NCache[
      Rational[1, 3], 0.3333333333333333]], 
    SphereBox[{-1.7139814820000001`, 9.958856019999999, -0.999665054}, 
     0.178]}, 
   {RGBColor[1, 
     NCache[
      Rational[1, 3], 0.3333333333333333], 
     NCache[
      Rational[1, 3], 0.3333333333333333]], 
    SphereBox[{-0.15684725800000002`, 19.828894918, 1.5476855939999998`}, 
     0.178]}, 
   {RGBColor[1, 
     NCache[
      Rational[1, 3], 0.3333333333333333], 
     NCache[
      Rational[1, 3], 0.3333333333333333]], 
    SphereBox[{4.257552678000001, 16.682501128, 0.196531504}, 0.178]}, 
   {RGBColor[1, 
     NCache[
      Rational[1, 3], 0.3333333333333333], 
     NCache[
      Rational[1, 3], 0.3333333333333333]], 
    SphereBox[{-6.224757444, 12.360697766000001`, 2.127831476}, 0.178]}, 
   {RGBColor[1, 
     NCache[
      Rational[1, 3], 0.3333333333333333], 
     NCache[
      Rational[1, 3], 0.3333333333333333]], 
    SphereBox[{-5.854371147999999, 6.865374558, 0.7899054679999999}, 0.178]}, 
   {RGBColor[1, 
     NCache[
      Rational[1, 3], 0.3333333333333333], 
     NCache[
      Rational[1, 3], 0.3333333333333333]], 
    SphereBox[{-4.958641024, 1.664848606, -0.139839724}, 0.178]}, 
   {RGBColor[1, 
     NCache[
      Rational[1, 3], 0.3333333333333333], 
     NCache[
      Rational[1, 3], 0.3333333333333333]], 
    SphereBox[{0.20786986, 0.12283219000000001`, 1.216983544}, 0.178]}, 
   {RGBColor[1, 
     NCache[
      Rational[1, 3], 0.3333333333333333], 
     NCache[
      Rational[1, 3], 0.3333333333333333]], 
    SphereBox[{0.91651711, 6.72742456, -0.338260954}, 0.178]}, 
   {RGBColor[1, 
     NCache[
      Rational[1, 3], 0.3333333333333333], 
     NCache[
      Rational[1, 3], 0.3333333333333333]], 
    SphereBox[{4.418179388, 2.641836948, -2.218538324}, 0.178]}, 
   {RGBColor[1, 
     NCache[
      Rational[1, 3], 0.3333333333333333], 
     NCache[
      Rational[1, 3], 0.3333333333333333]], 
    SphereBox[{4.236765692, -2.898839684, -0.9297451919999999}, 0.178]}, 
   {RGBColor[1, 
     NCache[
      Rational[1, 3], 0.3333333333333333], 
     NCache[
      Rational[1, 3], 0.3333333333333333]], 
    SphereBox[{3.42985269, -8.133380704, -0.024566438}, 0.178]}, 
   {RGBColor[1, 
     NCache[
      Rational[1, 3], 0.3333333333333333], 
     NCache[
      Rational[1, 3], 0.3333333333333333]], 
    SphereBox[{-1.7820116179999999`, -9.690514928, -1.007223958}, 0.178]}, 
   {RGBColor[1, 
     NCache[
      Rational[1, 3], 0.3333333333333333], 
     NCache[
      Rational[1, 3], 0.3333333333333333]], 
    SphereBox[{-2.443415718, -3.101040366, 0.6557349219999999}, 0.178]}, 
   {RGBColor[1, 
     NCache[
      Rational[1, 3], 0.3333333333333333], 
     NCache[
      Rational[1, 3], 0.3333333333333333]], 
    SphereBox[{-5.775002656, -7.141274554, 2.7646691380000004`}, 0.178]}, 
   {RGBColor[1, 
     NCache[
      Rational[1, 3], 0.3333333333333333], 
     NCache[
      Rational[1, 3], 0.3333333333333333]], 
    SphereBox[{-5.699413616, -12.625259406, 1.42674313}, 0.178]}, 
   {RGBColor[1, 
     NCache[
      Rational[1, 3], 0.3333333333333333], 
     NCache[
      Rational[1, 3], 0.3333333333333333]], 
    SphereBox[{-4.9775382839999995`, -17.903264124, 0.68974999}, 0.178]}, 
   {RGBColor[1, 
     NCache[
      Rational[1, 3], 0.3333333333333333], 
     NCache[
      Rational[1, 3], 0.3333333333333333]], 
    SphereBox[{0.105824656, -19.494413416, 1.430522582}, 0.178]}, 
   {RGBColor[1, 
     NCache[
      Rational[1, 3], 0.3333333333333333], 
     NCache[
      Rational[1, 3], 0.3333333333333333]], 
    SphereBox[{0.857935604, -12.948402552000001`, -0.602822594}, 0.178]}, 
   {RGBColor[1, 
     NCache[
      Rational[1, 3], 0.3333333333333333], 
     NCache[
      Rational[1, 3], 0.3333333333333333]], 
    SphereBox[{3.802128712, -16.986747014000002`, -3.01411297}, 0.178]}, 
   {RGBColor[0.7333333333333333, 0.6, 0.4666666666666667], 
    SphereBox[{1.780121892, 13.288553232, -2.326252706}, 0.1]}, 
   {RGBColor[0.7333333333333333, 0.6, 0.4666666666666667], 
    SphereBox[{-1.46453765, 12.045113524, 2.382944486}, 0.1]}, 
   {RGBColor[0.7333333333333333, 0.6, 0.4666666666666667], 
    SphereBox[{-2.745771878, 14.543331296, -2.7401027}, 0.1]}, 
   {RGBColor[0.7333333333333333, 0.6, 0.4666666666666667], 
    SphereBox[{-0.020786986, 17.992081246, -1.938858876}, 0.1]}, 
   {RGBColor[0.7333333333333333, 0.6, 0.4666666666666667], 
    SphereBox[{1.791460248, 15.539216898000001`, 3.0689150240000003`}, 0.1]}, 
   {RGBColor[0.7333333333333333, 0.6, 0.4666666666666667], 
    SphereBox[{5.459418414, 15.403156626, 0.574476704}, 0.1]}, 
   {RGBColor[0.7333333333333333, 0.6, 0.4666666666666667], 
    SphereBox[{3.016002696, 9.862479994000001, 0.126611642}, 0.1]}, 
   {RGBColor[0.7333333333333333, 0.6, 0.4666666666666667], 
    SphereBox[{-7.06757524, 15.151823068, -0.5121157460000001}, 0.1]}, 
   {RGBColor[0.7333333333333333, 0.6, 0.4666666666666667], 
    SphereBox[{-6.419399222, 12.124482016, -1.8103575079999998`}, 0.1]}, 
   {RGBColor[0.7333333333333333, 0.6, 0.4666666666666667], 
    SphereBox[{-6.147278678, 10.567347792, 1.925630794}, 0.1]}, 
   {RGBColor[0.7333333333333333, 0.6, 0.4666666666666667], 
    SphereBox[{-0.42518835, 19.432052457999998`, 3.2711157060000002`}, 0.1]}, 
   {RGBColor[0.7333333333333333, 0.6, 0.4666666666666667], 
    SphereBox[{-1.447530116, 8.099365636, 2.528453388}, 0.1]}, 
   {RGBColor[0.7333333333333333, 0.6, 0.4666666666666667], 
    SphereBox[{-3.692524604, 5.793899916, -2.350819144}, 0.1]}, 
   {RGBColor[0.7333333333333333, 0.6, 0.4666666666666667], 
    SphereBox[{-3.16529105, 3.380719814, 2.949862286}, 0.1]}, 
   {RGBColor[0.7333333333333333, 0.6, 0.4666666666666667], 
    SphereBox[{-0.362827392, 2.294127364, -2.076808874}, 0.1]}, 
   {RGBColor[0.7333333333333333, 0.6, 0.4666666666666667], 
    SphereBox[{1.353043816, 4.663843768, 2.981987628}, 0.1]}, 
   {RGBColor[0.7333333333333333, 0.6, 0.4666666666666667], 
    SphereBox[{5.47075677, 5.349814306, 0.432747254}, 0.1]}, 
   {RGBColor[0.7333333333333333, 0.6, 0.4666666666666667], 
    SphereBox[{4.934074586, 2.279009556, 1.68185614}, 0.1]}, 
   {RGBColor[0.7333333333333333, 0.6, 0.4666666666666667], 
    SphereBox[{-7.1015903080000005`, 5.610596494, 0.476210952}, 0.1]}, 
   {RGBColor[0.7333333333333333, 0.6, 0.4666666666666667], 
    SphereBox[{-4.603372536, 0.015117808, 0.489439034}, 0.1]}, 
   {RGBColor[0.7333333333333333, 0.6, 0.4666666666666667], 
    SphereBox[{4.386054046, 0.844707522, -2.067360244}, 0.1]}, 
   {RGBColor[0.7333333333333333, 0.6, 0.4666666666666667], 
    SphereBox[{-0.279679448, -1.655399976, -2.3300321580000003`}, 0.1]}, 
   {RGBColor[0.7333333333333333, 0.6, 0.4666666666666667], 
    SphereBox[{2.30546572, -4.03456501, 2.339480788}, 0.1]}, 
   {RGBColor[0.7333333333333333, 0.6, 0.4666666666666667], 
    SphereBox[{1.419184226, -6.374045798, -2.946082834}, 0.1]}, 
   {RGBColor[0.7333333333333333, 0.6, 0.4666666666666667], 
    SphereBox[{-1.0091136840000001`, -7.528668384, 2.252553392}, 0.1]}, 
   {RGBColor[0.7333333333333333, 0.6, 0.4666666666666667], 
    SphereBox[{-3.08970201, -5.13060609, -2.653175304}, 0.1]}, 
   {RGBColor[0.7333333333333333, 0.6, 0.4666666666666667], 
    SphereBox[{-7.03922935, -4.50699651, 0.130391094}, 0.1]}, 
   {RGBColor[0.7333333333333333, 0.6, 0.4666666666666667], 
    SphereBox[{-6.540341686, -7.5966985199999995`, -1.0884821759999999`}, 
     0.1]}, 
   {RGBColor[0.7333333333333333, 0.6, 0.4666666666666667], 
    SphereBox[{5.516110194, -4.136610214, -0.7086472500000001}, 0.1]}, 
   {RGBColor[0.7333333333333333, 0.6, 0.4666666666666667], 
    SphereBox[{2.987656806, -9.785001228, -0.587704786}, 0.1]}, 
   {RGBColor[0.7333333333333333, 0.6, 0.4666666666666667], 
    SphereBox[{-5.784451286, -8.940293706, 2.647506126}, 0.1]}, 
   {RGBColor[0.7333333333333333, 0.6, 0.4666666666666667], 
    SphereBox[{-1.056356834, -11.44229093, 2.515225306}, 0.1]}, 
   {RGBColor[0.7333333333333333, 0.6, 0.4666666666666667], 
    SphereBox[{-3.9892115860000006`, -13.885706648, -1.9199616160000001`}, 
     0.1]}, 
   {RGBColor[0.7333333333333333, 0.6, 0.4666666666666667], 
    SphereBox[{-2.7646691380000004`, -16.021097028, 3.3844992659999997`}, 
     0.1]}, 
   {RGBColor[0.7333333333333333, 0.6, 0.4666666666666667], 
    SphereBox[{-0.780456838, -17.521539472, -1.901064356}, 0.1]}, 
   {RGBColor[0.7333333333333333, 0.6, 0.4666666666666667], 
    SphereBox[{1.83303422, -14.91938677, 2.662623934}, 0.1]}, 
   {RGBColor[0.7333333333333333, 0.6, 0.4666666666666667], 
    SphereBox[{5.472646496, -14.44695527, -0.48565958200000003`}, 0.1]}, 
   {RGBColor[0.7333333333333333, 0.6, 0.4666666666666667], 
    SphereBox[{4.983207462, -17.570672348, 0.68974999}, 0.1]}, 
   {RGBColor[0.7333333333333333, 0.6, 0.4666666666666667], 
    SphereBox[{-6.993875926, -13.866809388, 1.34170546}, 0.1]}, 
   {RGBColor[0.7333333333333333, 0.6, 0.4666666666666667], 
    SphereBox[{-4.457863634, -19.532207936000002`, 1.230211626}, 0.1]}, 
   {RGBColor[0.7333333333333333, 0.6, 0.4666666666666667], 
    SphereBox[{0.413849994, -19.097570956, 3.150173242}, 0.1]}, 
   {RGBColor[0.7333333333333333, 0.6, 0.4666666666666667], 
    SphereBox[{3.509221182, -18.751751098, -2.93852393}, 0.1]}, 
   {RGBColor[0.4, 0.2, 0.], 
    {Opacity[0.4], 
     SphereBox[{0.13606027200000015`, 12.710297076000002`, 
      0.031180478999999983`}, 1.1831091114925423`]}}, 
   {RGBColor[0.4, 0.2, 0.], 
    {Opacity[0.4], 
     SphereBox[{-2.130666065, 13.243199808, -0.18613801099999994`}, 
      1.1884420664660733`]}}, 
   {RGBColor[0.4, 0.2, 0.], 
    {Opacity[0.4], 
     SphereBox[{1.659179428, 14.445065544000002`, 0.362827392}, 
      1.1822816686131143`]}}, 
   {RGBColor[0.4, 0.2, 0.], 
    {Opacity[0.4], 
     SphereBox[{0.8248653989999997, 16.639982293000003`, 0.5385719099999999}, 
      1.1820263536923503`]}}, 
   {RGBColor[0.4, 0.2, 0.], 
    {Opacity[0.4], 
     SphereBox[{-4.444635552, 13.849801853999999`, -0.50077739}, 
      1.1906416251145053`]}}, 
   {RGBColor[0.4, 0.2, 0.], 
    {Opacity[0.4], 
     SphereBox[{-2.4916037309999997`, 6.819076271, 0.10393493000000004`}, 
      1.179562812399278]}}, 
   {RGBColor[0.4, 0.2, 0.], 
    {Opacity[0.4], 
     SphereBox[{-3.296627007, 4.614710892, 0.29479725599999995`}, 
      1.1809421577217574`]}}, 
   {RGBColor[0.4, 0.2, 0.], 
    {Opacity[0.4], 
     SphereBox[{-1.744217098, 2.882777013, 0.43274725399999997`}, 
      1.1829029939029012`]}}, 
   {RGBColor[0.4, 0.2, 0.], 
    {Opacity[0.4], 
     SphereBox[{0.5272335539999997, 3.427018101, 0.4573136919999999}, 
      1.188035965376226]}}, 
   {RGBColor[0.4, 0.2, 0.], 
    {Opacity[0.4], 
     SphereBox[{2.8572657120000002`, 4.0383444619999995`, 0.592429101}, 
      1.190690102525311]}}, 
   {RGBColor[0.4, 0.2, 0.], 
    {Opacity[0.4], 
     SphereBox[{0.9306900550000001, -2.981042765, -0.009448629999999958}, 
      1.1806738568310036`]}}, 
   {RGBColor[0.4, 0.2, 0.], 
    {Opacity[0.4], 
     SphereBox[{1.732878742, -5.1787941029999995`, -0.291017804}, 
      1.1813971908481906`]}}, 
   {RGBColor[0.4, 0.2, 0.], 
    {Opacity[0.4], 
     SphereBox[{0.1851931480000002, -6.91639716, -0.34204040600000013`}, 
      1.1831423234608482`]}}, 
   {RGBColor[0.4, 0.2, 0.], 
    {Opacity[0.4], 
     SphereBox[{-2.085312641, -6.388218743, -0.2022006819999999}, 
      1.1880201891514786`]}}, 
   {RGBColor[0.4, 0.2, 0.], 
    {Opacity[0.4], 
     SphereBox[{-4.42195884, -5.790120464, -0.169130477}, 
      1.189385277057574]}}, 
   {RGBColor[0.4, 0.2, 0.], 
    {Opacity[0.4], 
     SphereBox[{-2.4547540740000002`, -12.77454776, 0.307080475}, 
      1.1788105338859702`]}}, 
   {RGBColor[0.4, 0.2, 0.], 
    {Opacity[0.4], 
     SphereBox[{-3.2578876240000003`, -14.936394304, 0.7124267019999998}, 
      1.1777675224721846`]}}, 
   {RGBColor[0.4, 0.2, 0.], 
    {Opacity[0.4], 
     SphereBox[{-1.731933879, -16.694784347000002`, 0.72754451}, 
      1.1806949993929927`]}}, 
   {RGBColor[0.4, 0.2, 0.], 
    {Opacity[0.4], 
     SphereBox[{0.5385719100000002, -16.218573395, 0.37889006300000005`}, 
      1.187785072029548]}}, 
   {RGBColor[0.4, 0.2, 0.], 
    {Opacity[0.4], 
     SphereBox[{2.859155438, -15.657324773, 0.057636643000000154`}, 
      1.1870497743990638`]}}, 
   {RGBColor[0.4, 0.2, 0.], 
    {Opacity[0.4], 
     SphereBox[{-2.8290849789416854`, 15.403734411525846`, 
      0.006037621839483309}, 1.1316645531044596`]}}, 
   {RGBColor[0.4, 0.2, 0.], 
    {Opacity[0.4], 
     SphereBox[{-1.4377243529976351`, 17.0182232724137, 0.3879098154309281}, 
      1.1259844131585692`]}}, 
   {RGBColor[0.4, 0.2, 0.], 
    {Opacity[0.4], 
     SphereBox[{2.4030004686819226`, 12.297168068344941`, 0.3210608637839416},
       1.1381808301760907`]}}, 
   {RGBColor[0.4, 0.2, 0.], 
    {Opacity[0.4], 
     SphereBox[{-1.464307157485476, 11.076882958451067`, -0.3607925177422473},
       1.1336705459102399`]}}, 
   {RGBColor[0.4, 0.2, 0.], 
    {Opacity[0.4], 
     SphereBox[{-1.5808985553753363`, 8.873082901400156, -0.2856063166621493},
       1.1283285233055038`]}}, 
   {RGBColor[0.4, 0.2, 0.], 
    {Opacity[0.4], 
     SphereBox[{-0.17612375651937584`, 18.721873145887272`, 
      0.8436344337923203}, 1.1340811040162677`]}}, 
   {RGBColor[0.4, 0.2, 0.], 
    {Opacity[0.4], 
     SphereBox[{3.086188589682549, 16.219830673053295`, 0.576582234849079}, 
      1.137521316930776]}}, 
   {RGBColor[0.4, 0.2, 0.], 
    {Opacity[0.4], 
     SphereBox[{-6.03196891079359, 12.901423699612264`, 0.9417229764634198}, 
      1.1397273338933405`]}}, 
   {RGBColor[0.4, 0.2, 0.], 
    {Opacity[0.4], 
     SphereBox[{-4.731617790461457, 6.403604370884802, 0.27856154310305126`}, 
      1.1393000482431825`]}}, 
   {RGBColor[0.4, 0.2, 0.], 
    {Opacity[0.4], 
     SphereBox[{-4.031435980049896, 2.4662842528994466`, 0.3421232938948562}, 
      1.1389269684633112`]}}, 
   {RGBColor[0.4, 0.2, 0.], 
    {Opacity[0.4], 
     SphereBox[{-0.10605580034844389`, 1.2536988962844529`, 
      0.6322740538188341}, 1.133218523174445]}}, 
   {RGBColor[0.4, 0.2, 0.], 
    {Opacity[0.4], 
     SphereBox[{0.03440512464181758, -0.9454903071265837, 0.4864124892639514},
       1.1278089593419882`]}}, 
   {RGBColor[0.4, 0.2, 0.], 
    {Opacity[0.4], 
     SphereBox[{-0.22791353586951457`, 7.21107728684301, 0.0545348089768663}, 
      1.125046420815687]}}, 
   {RGBColor[0.4, 0.2, 0.], 
    {Opacity[0.4], 
     SphereBox[{1.1964713859207725`, 5.598428627598197, 0.26387020994762855`},
       1.1317969883089012`]}}, 
   {RGBColor[0.4, 0.2, 0.], 
    {Opacity[0.4], 
     SphereBox[{4.322702063948166, 3.1430928992721276`, -1.00303854472473}, 
      1.1402614162267113`]}}, 
   {RGBColor[0.4, 0.2, 0.], 
    {Opacity[0.4], 
     SphereBox[{
      3.1552997326602754`, -3.3780631396666694`, -0.34769984546232147`}, 
      1.1403324797249974`]}}, 
   {RGBColor[0.4, 0.2, 0.], 
    {Opacity[0.4], 
     SphereBox[{2.470531911498847, -7.326449637681805, -0.4257369453732095}, 
      1.138195987624775]}}, 
   {RGBColor[0.4, 0.2, 0.], 
    {Opacity[0.4], 
     SphereBox[{-1.4432986168208115`, -8.55871782649881, -0.4371947608935608},
       1.1337257570422723`]}}, 
   {RGBColor[0.4, 0.2, 0.], 
    {Opacity[0.4], 
     SphereBox[{-1.5709121817011342`, -10.75519034585515, \
-0.27938981458695444`}, 1.1288432414442582`]}}, 
   {RGBColor[0.4, 0.2, 0.], 
    {Opacity[0.4], 
     SphereBox[{-1.3292655107660023`, -2.6036191037917407`, 
      0.19777697026213775`}, 1.1252590233473756`]}}, 
   {RGBColor[0.4, 0.2, 0.], 
    {Opacity[0.4], 
     SphereBox[{-2.7554985174411972`, -4.225456334574902, 
      0.06002393130194972}, 1.1321826317470944`]}}, 
   {RGBColor[0.4, 0.2, 0.], 
    {Opacity[0.4], 
     SphereBox[{-5.766740133145508, -6.666638518914218, 1.534471290775729}, 
      1.1406107759309054`]}}, 
   {RGBColor[0.4, 0.2, 0.], 
    {Opacity[0.4], 
     SphereBox[{-4.661120140302886, -13.131094689031928`, 0.7933014870017606},
       1.1392588926704932`]}}, 
   {RGBColor[0.4, 0.2, 0.], 
    {Opacity[0.4], 
     SphereBox[{-3.99432976843808, -17.07887453765583, 0.9871912215985639}, 
      1.1391136858301385`]}}, 
   {RGBColor[0.4, 0.2, 0.], 
    {Opacity[0.4], 
     SphereBox[{-0.19345382230837077`, -18.371660106272586`, 
      0.8099328539740532}, 1.139298072804237]}}, 
   {RGBColor[0.4, 0.2, 0.], 
    {Opacity[0.4], 
     SphereBox[{-0.2130698090633062, -12.430795822807452`, \
-0.07144972839275543}, 1.1248148153977862`]}}, 
   {RGBColor[0.4, 0.2, 0.], 
    {Opacity[0.4], 
     SphereBox[{
      1.2122624897079726`, -14.068295817709135`, -0.01625554745234592}, 
      1.1349239767068844`]}}, 
   {RGBColor[0.4, 0.2, 0.], 
    {Opacity[0.4], 
     SphereBox[{3.961862094101694, -16.53692312187454, -1.7876543580007886`}, 
      1.1380763709722834`]}}, 
   {Opacity[0.5], 
    SphereBox[{1.6966067353363496`, 
     13.253712553146453`, -1.7641905780243905`}, 1.2754245521509575`]}, 
   {Opacity[0.5], 
    SphereBox[{-1.3926561778383741`, 12.103645579903038`, 
     1.8212421249655808`}, 1.2710235531033858`]}, 
   {Opacity[0.5], 
    SphereBox[{-2.8313050736605416`, 
     14.457285925515144`, -2.1838808407943238`}, 1.2761956915632067`]}, 
   {Opacity[0.5], 
    SphereBox[{-0.06861357672388241, 
     17.871743372565717`, -1.3844818351360726`}, 1.2676608231125486`]}, 
   {Opacity[0.5], 
    SphereBox[{1.8063207228707931`, 15.590972344963799`, 2.502167258238024}, 
     1.2751490158264134`]}, 
   {Opacity[0.5], 
    SphereBox[{5.1086104152948115`, 15.776579605753792`, 0.4641597232750979}, 
     1.093462913509712]}, 
   {Opacity[0.5], 
    SphereBox[{3.09362135529579, 10.334247306173701`, 0.34130155069048196`}, 
     1.097044203050865]}, 
   {Opacity[0.5], 
    SphereBox[{-6.730823972028141, 14.695976839403947`, -0.4582150095106019}, 
     1.2714265817920403`]}, 
   {Opacity[0.5], 
    SphereBox[{-6.259057352247132, 12.490245897800472`, -1.4046362273473758`},
      1.2757876265968413`]}, 
   {Opacity[0.5], 
    SphereBox[{-6.169758291331338, 11.087668598132668`, 1.9842971019622713`}, 
     1.1042754328012643`]}, 
   {Opacity[0.5], 
    SphereBox[{-0.34656590227196604`, 19.548325091963992`, 
     2.7661602670706555`}, 1.0866711510036549`]}, 
   {Opacity[0.5], 
    SphereBox[{-1.4454730994579605`, 7.997029063033533, 1.9684306344297322`}, 
     1.2677026452160933`]}, 
   {Opacity[0.5], 
    SphereBox[{-3.651994716191561, 5.826734255490381, -1.7839137512363872`}, 
     1.2726675596906816`]}, 
   {Opacity[0.5], 
    SphereBox[{-3.134067800880106, 3.362804834996782, 2.381701523326519}, 
     1.2775018165824643`]}, 
   {Opacity[0.5], 
    SphereBox[{-0.3833458300325527, 2.336703122917547, -1.509474062399919}, 
     1.2729766252347319`]}, 
   {Opacity[0.5], 
    SphereBox[{1.3909261767821763`, 4.593198284379184, 2.4183595304165397`}, 
     1.2772257029772311`]}, 
   {Opacity[0.5], 
    SphereBox[{5.131442386798183, 4.894486230508303, 0.39219379519070563`}, 
     1.271448733341614]}, 
   {Opacity[0.5], 
    SphereBox[{4.740895846834354, 2.6571684671518487`, 1.302672407950721}, 
     1.275229809545039]}, 
   {Opacity[0.5], 
    SphereBox[{-6.737791401281884, 5.976600242577015, 0.5677118891442536}, 
     1.0946826447111433`]}, 
   {Opacity[0.5], 
    SphereBox[{-4.706753964783188, 0.4951815703815081, 0.3063219287616928}, 
     1.0989605652519145`]}, 
   {Opacity[0.5], 
    SphereBox[{4.395388360751405, 1.3668800707403699`, -2.111286431065436}, 
     1.1016630174904332`]}, 
   {Opacity[0.5], 
    SphereBox[{-0.24415985416310756`, -1.7701951850670583`, \
-1.7735585212220186`}, 1.265578903319534]}, 
   {Opacity[0.5], 
    SphereBox[{2.2254460204714657`, -3.994042213443883, 1.77729110413286}, 
     1.2730345167455122`]}, 
   {Opacity[0.5], 
    SphereBox[{1.4289256569567417`, -6.400706556407925, -2.37749089026176}, 
     1.2740158752517536`]}, 
   {Opacity[0.5], 
    SphereBox[{-1.0296603995325202`, -7.482951941940144, 1.685464043302448}, 
     1.2700902398361644`]}, 
   {Opacity[0.5], 
    SphereBox[{-3.088678364352477, -5.207891336387986, -2.08914655221483}, 
     1.2776402845179078`]}, 
   {Opacity[0.5], 
    SphereBox[{-6.691442390063047, -4.956862533399273, 0.15809094036665997`}, 
     1.2729800306619543`]}, 
   {Opacity[0.5], 
    SphereBox[{-6.328219913118816, -7.208320974483243, -0.7303345449759722}, 
     1.2753896868982753`]}, 
   {Opacity[0.5], 
    SphereBox[{5.142318135820718, -3.774965017386367, -0.7732464683264048}, 
     1.0916899931961785`]}, 
   {Opacity[0.5], 
    SphereBox[{3.116399328676289, -9.304142403986852, -0.42375063319002476`}, 
     1.0980423149608884`]}, 
   {Opacity[0.5], 
    SphereBox[{-5.78170451666697, -8.417308824991142, 2.6815660657295686`}, 
     1.1007550571947238`]}, 
   {Opacity[0.5], 
    SphereBox[{-1.1355678723513924`, -11.562136202310873`, 
     1.9643485392834983`}, 1.2672826791997571`]}, 
   {Opacity[0.5], 
    SphereBox[{-3.8733467351861663`, -13.826236193599978`, \
-1.3657585021515275`}, 1.2741409590917088`]}, 
   {Opacity[0.5], 
    SphereBox[{-2.8159177604555317`, -16.07132067800642, 2.8197394465400425`},
      1.2749193745958576`]}, 
   {Opacity[0.5], 
    SphereBox[{-0.7071728222410854, -17.429806333392687`, -1.344003341105313},
      1.2749627531971153`]}, 
   {Opacity[0.5], 
    SphereBox[{1.7664148437162277`, -15.010091613094058`, 
     2.1045585434382454`}, 1.2750401520042063`]}, 
   {Opacity[0.5], 
    SphereBox[{5.108694555393685, -14.884722815461682`, -0.4866847987341023}, 
     1.2744191800805176`]}, 
   {Opacity[0.5], 
    SphereBox[{4.75181068667548, -17.160725511006003`, 0.3695912587305976}, 
     1.2725108809698966`]}, 
   {Opacity[0.5], 
    SphereBox[{-6.616055750704573, -13.504432957096212`, 1.3665257634865609`},
      1.0935364986081584`]}, 
   {Opacity[0.5], 
    SphereBox[{-4.609748126728132, -19.056119089703092`, 1.0722517535627423`},
      1.091114561755932]}, 
   {Opacity[0.5], 
    SphereBox[{0.3237390121349573, -19.213664859016312`, 2.6470996622626455`},
      1.0894250317389662`]}, 
   {Opacity[0.5], 
    SphereBox[{3.594947127544483, -18.235183142267438`, -2.960646754656641}, 
     1.0886394954698164`]}, 
   TubeBox[{{-1.19997601, 12.260542288000002`, 0.315584242}, {
    1.4720965540000002`, 13.160051864000001`, -0.253223284}}, 0.15], 
   TubeBox[{{-3.06135612, 14.225857328, -0.687860264}, {-1.19997601, 
    12.260542288000002`, 0.315584242}}, 0.15], 
   TubeBox[{{1.846262302, 15.730079224, 0.978878068}, {1.4720965540000002`, 
    13.160051864000001`, -0.253223284}}, 0.15], 
   TubeBox[{{1.846262302, 15.730079224, 0.978878068}, {-0.196531504, 
    17.549885362, 0.098265752}}, 0.15], 
   TubeBox[{{-5.827914984, 13.47374638, -0.31369451600000003`}, {-3.06135612, 
    14.225857328, -0.687860264}}, 0.15], 
   TubeBox[{{-3.54323625, 5.91484238, -0.262671914}, {-1.4399712120000001`, 
    7.723310162, 0.470541774}}, 0.15], 
   TubeBox[{{-3.050017764, 3.314579404, 0.852266426}, {-3.54323625, 
    5.91484238, -0.262671914}}, 0.15], 
   TubeBox[{{-0.438416432, 2.450974622, 0.013228082}, {-3.050017764, 
    3.314579404, 0.852266426}}, 0.15], 
   TubeBox[{{1.49288354, 4.40306158, 0.901399302}, {-0.438416432, 2.450974622,
     0.013228082}}, 0.15], 
   TubeBox[{{4.221647884, 3.673627344, 0.2834589}, {1.49288354, 4.40306158, 
    0.901399302}}, 0.15], 
   TubeBox[{{2.010668464, -3.8852766560000003`, 
    0.268341092}, {-0.149288354, -2.076808874, -0.287238352}}, 0.15], 
   TubeBox[{{1.45508902, -6.47231155, -0.8503767}, {
    2.010668464, -3.8852766560000003`, 0.268341092}}, 0.15], 
   TubeBox[{{-1.084702724, -7.36048277, 0.166295888}, {
    1.45508902, -6.47231155, -0.8503767}}, 0.15], 
   TubeBox[{{-3.085922558, -5.415954716, -0.570697252}, {-1.084702724, \
-7.36048277, 0.166295888}}, 0.15], 
   TubeBox[{{-5.7579951220000005`, -6.164286212, 
    0.23243629799999999`}, {-3.085922558, -5.415954716, -0.570697252}}, 0.15],
    TubeBox[{{-3.5621335100000002`, -13.666498432000001`, 
    0.12283219000000001`}, {-1.347374638, -11.882597088, 
    0.49132876000000003`}}, 0.15], 
   TubeBox[{{-2.953641738, -16.206290176, 
    1.3020212139999998`}, {-3.5621335100000002`, -13.666498432000001`, 
    0.12283219000000001`}}, 0.15], 
   TubeBox[{{-0.5102260200000001, -17.183278518, 
    0.153067806}, {-2.953641738, -16.206290176, 1.3020212139999998`}}, 0.15], 
   TubeBox[{{1.58736984, -15.253868271999998`, 
    0.60471232}, {-0.5102260200000001, -17.183278518, 0.153067806}}, 0.15], 
   TubeBox[{{4.130941036, -16.060781274, -0.489439034}, {
    1.58736984, -15.253868271999998`, 0.60471232}}, 0.15], 
   TubeBox[{{-2.609711606, 16.51620524, 0.6614040999999999}, {-3.06135612, 
    14.225857328, -0.687860264}}, 0.15], 
   TubeBox[{{-2.609711606, 16.51620524, 0.6614040999999999}, {-0.196531504, 
    17.549885362, 0.098265752}}, 0.15], 
   TubeBox[{{3.2824540620000002`, 11.481975175999999`, 0.863604782}, {
    1.4720965540000002`, 13.160051864000001`, -0.253223284}}, 0.15], 
   TubeBox[{{-1.7139814820000001`, 
    9.958856019999999, -0.999665054}, {-1.19997601, 12.260542288000002`, 
    0.315584242}}, 0.15], 
   TubeBox[{{-1.7139814820000001`, 
    9.958856019999999, -0.999665054}, {-1.4399712120000001`, 7.723310162, 
    0.470541774}}, 0.15], 
   TubeBox[{{-0.15684725800000002`, 19.828894918, 
    1.5476855939999998`}, {-0.196531504, 17.549885362, 0.098265752}}, 0.15], 
   TubeBox[{{4.257552678000001, 16.682501128, 0.196531504}, {1.846262302, 
    15.730079224, 0.978878068}}, 0.15], 
   TubeBox[{{-6.224757444, 12.360697766000001`, 2.127831476}, {-5.827914984, 
    13.47374638, -0.31369451600000003`}}, 0.15], 
   TubeBox[{{-5.854371147999999, 6.865374558, 
    0.7899054679999999}, {-3.54323625, 5.91484238, -0.262671914}}, 0.15], 
   TubeBox[{{-4.958641024, 1.664848606, -0.139839724}, {-3.050017764, 
    3.314579404, 0.852266426}}, 0.15], 
   TubeBox[{{0.20786986, 0.12283219000000001`, 1.216983544}, {-0.438416432, 
    2.450974622, 0.013228082}}, 0.15], 
   TubeBox[{{0.20786986, 0.12283219000000001`, 
    1.216983544}, {-0.149288354, -2.076808874, -0.287238352}}, 0.15], 
   TubeBox[{{0.91651711, 6.72742456, -0.338260954}, {-1.4399712120000001`, 
    7.723310162, 0.470541774}}, 0.15], 
   TubeBox[{{0.91651711, 6.72742456, -0.338260954}, {1.49288354, 4.40306158, 
    0.901399302}}, 0.15], 
   TubeBox[{{4.418179388, 2.641836948, -2.218538324}, {4.221647884, 
    3.673627344, 0.2834589}}, 0.15], 
   TubeBox[{{4.236765692, -2.898839684, -0.9297451919999999}, {
    2.010668464, -3.8852766560000003`, 0.268341092}}, 0.15], 
   TubeBox[{{3.42985269, -8.133380704, -0.024566438}, {
    1.45508902, -6.47231155, -0.8503767}}, 0.15], 
   TubeBox[{{-1.7820116179999999`, -9.690514928, -1.007223958}, \
{-1.084702724, -7.36048277, 0.166295888}}, 0.15], 
   TubeBox[{{-1.7820116179999999`, -9.690514928, -1.007223958}, \
{-1.347374638, -11.882597088, 0.49132876000000003`}}, 0.15], 
   TubeBox[{{-2.443415718, -3.101040366, 
    0.6557349219999999}, {-0.149288354, -2.076808874, -0.287238352}}, 0.15], 
   TubeBox[{{-2.443415718, -3.101040366, 
    0.6557349219999999}, {-3.085922558, -5.415954716, -0.570697252}}, 0.15], 
   TubeBox[{{-5.775002656, -7.141274554, 
    2.7646691380000004`}, {-5.7579951220000005`, -6.164286212, 
    0.23243629799999999`}}, 0.15], 
   TubeBox[{{-5.699413616, -12.625259406, 
    1.42674313}, {-3.5621335100000002`, -13.666498432000001`, 
    0.12283219000000001`}}, 0.15], 
   TubeBox[{{-4.9775382839999995`, -17.903264124, 
    0.68974999}, {-2.953641738, -16.206290176, 1.3020212139999998`}}, 0.15], 
   TubeBox[{{0.105824656, -19.494413416, 
    1.430522582}, {-0.5102260200000001, -17.183278518, 0.153067806}}, 0.15], 
   TubeBox[{{
    0.857935604, -12.948402552000001`, -0.602822594}, {-1.347374638, \
-11.882597088, 0.49132876000000003`}}, 0.15], 
   TubeBox[{{0.857935604, -12.948402552000001`, -0.602822594}, {
    1.58736984, -15.253868271999998`, 0.60471232}}, 0.15], 
   TubeBox[{{3.802128712, -16.986747014000002`, -3.01411297}, {
    4.130941036, -16.060781274, -0.489439034}}, 0.15], 
   TubeBox[{{1.780121892, 13.288553232, -2.326252706}, {1.4720965540000002`, 
    13.160051864000001`, -0.253223284}}, 0.15], 
   TubeBox[{{-1.46453765, 12.045113524, 2.382944486}, {-1.19997601, 
    12.260542288000002`, 0.315584242}}, 0.15], 
   TubeBox[{{-2.745771878, 14.543331296, -2.7401027}, {-3.06135612, 
    14.225857328, -0.687860264}}, 0.15], 
   TubeBox[{{-0.020786986, 17.992081246, -1.938858876}, {-0.196531504, 
    17.549885362, 0.098265752}}, 0.15], 
   TubeBox[{{1.791460248, 15.539216898000001`, 3.0689150240000003`}, {
    1.846262302, 15.730079224, 0.978878068}}, 0.15], 
   TubeBox[{{5.459418414, 15.403156626, 0.574476704}, {4.257552678000001, 
    16.682501128, 0.196531504}}, 0.15], 
   TubeBox[{{3.016002696, 9.862479994000001, 0.126611642}, {
    3.2824540620000002`, 11.481975175999999`, 0.863604782}}, 0.15], 
   TubeBox[{{-7.06757524, 15.151823068, -0.5121157460000001}, {-5.827914984, 
    13.47374638, -0.31369451600000003`}}, 0.15], 
   TubeBox[{{-6.419399222, 12.124482016, -1.8103575079999998`}, {-5.827914984,
     13.47374638, -0.31369451600000003`}}, 0.15], 
   TubeBox[{{-6.147278678, 10.567347792, 1.925630794}, {-6.224757444, 
    12.360697766000001`, 2.127831476}}, 0.15], 
   TubeBox[{{-0.42518835, 19.432052457999998`, 
    3.2711157060000002`}, {-0.15684725800000002`, 19.828894918, 
    1.5476855939999998`}}, 0.15], 
   TubeBox[{{-1.447530116, 8.099365636, 2.528453388}, {-1.4399712120000001`, 
    7.723310162, 0.470541774}}, 0.15], 
   TubeBox[{{-3.692524604, 5.793899916, -2.350819144}, {-3.54323625, 
    5.91484238, -0.262671914}}, 0.15], 
   TubeBox[{{-3.16529105, 3.380719814, 2.949862286}, {-3.050017764, 
    3.314579404, 0.852266426}}, 0.15], 
   TubeBox[{{-0.362827392, 2.294127364, -2.076808874}, {-0.438416432, 
    2.450974622, 0.013228082}}, 0.15], 
   TubeBox[{{1.353043816, 4.663843768, 2.981987628}, {1.49288354, 4.40306158, 
    0.901399302}}, 0.15], 
   TubeBox[{{5.47075677, 5.349814306, 0.432747254}, {4.221647884, 3.673627344,
     0.2834589}}, 0.15], 
   TubeBox[{{4.934074586, 2.279009556, 1.68185614}, {4.221647884, 3.673627344,
     0.2834589}}, 0.15], 
   TubeBox[{{-7.1015903080000005`, 5.610596494, 
    0.476210952}, {-5.854371147999999, 6.865374558, 0.7899054679999999}}, 
    0.15], TubeBox[{{-4.603372536, 0.015117808, 0.489439034}, {-4.958641024, 
    1.664848606, -0.139839724}}, 0.15], 
   TubeBox[{{4.386054046, 0.844707522, -2.067360244}, {4.418179388, 
    2.641836948, -2.218538324}}, 0.15], 
   TubeBox[{{-0.279679448, -1.655399976, -2.3300321580000003`}, \
{-0.149288354, -2.076808874, -0.287238352}}, 0.15], 
   TubeBox[{{2.30546572, -4.03456501, 2.339480788}, {
    2.010668464, -3.8852766560000003`, 0.268341092}}, 0.15], 
   TubeBox[{{1.419184226, -6.374045798, -2.946082834}, {
    1.45508902, -6.47231155, -0.8503767}}, 0.15], 
   TubeBox[{{-1.0091136840000001`, -7.528668384, 
    2.252553392}, {-1.084702724, -7.36048277, 0.166295888}}, 0.15], 
   TubeBox[{{-3.08970201, -5.13060609, -2.653175304}, {-3.085922558, \
-5.415954716, -0.570697252}}, 0.15], 
   TubeBox[{{-7.03922935, -4.50699651, 
    0.130391094}, {-5.7579951220000005`, -6.164286212, 0.23243629799999999`}},
     0.15], TubeBox[{{-6.540341686, -7.5966985199999995`, \
-1.0884821759999999`}, {-5.7579951220000005`, -6.164286212, 
    0.23243629799999999`}}, 0.15], 
   TubeBox[{{5.516110194, -4.136610214, -0.7086472500000001}, {
    4.236765692, -2.898839684, -0.9297451919999999}}, 0.15], 
   TubeBox[{{2.987656806, -9.785001228, -0.587704786}, {
    3.42985269, -8.133380704, -0.024566438}}, 0.15], 
   TubeBox[{{-5.784451286, -8.940293706, 
    2.647506126}, {-5.775002656, -7.141274554, 2.7646691380000004`}}, 0.15], 
   TubeBox[{{-1.056356834, -11.44229093, 
    2.515225306}, {-1.347374638, -11.882597088, 0.49132876000000003`}}, 0.15],
    TubeBox[{{-3.9892115860000006`, -13.885706648, -1.9199616160000001`}, \
{-3.5621335100000002`, -13.666498432000001`, 0.12283219000000001`}}, 0.15], 
   TubeBox[{{-2.7646691380000004`, -16.021097028, 
    3.3844992659999997`}, {-2.953641738, -16.206290176, 1.3020212139999998`}},
     0.15], TubeBox[{{-0.780456838, -17.521539472, -1.901064356}, \
{-0.5102260200000001, -17.183278518, 0.153067806}}, 0.15], 
   TubeBox[{{1.83303422, -14.91938677, 2.662623934}, {
    1.58736984, -15.253868271999998`, 0.60471232}}, 0.15], 
   TubeBox[{{5.472646496, -14.44695527, -0.48565958200000003`}, {
    4.130941036, -16.060781274, -0.489439034}}, 0.15], 
   TubeBox[{{4.983207462, -17.570672348, 0.68974999}, {
    4.130941036, -16.060781274, -0.489439034}}, 0.15], 
   TubeBox[{{-6.993875926, -13.866809388, 
    1.34170546}, {-5.699413616, -12.625259406, 1.42674313}}, 0.15], 
   TubeBox[{{-4.457863634, -19.532207936000002`, 
    1.230211626}, {-4.9775382839999995`, -17.903264124, 0.68974999}}, 0.15], 
   TubeBox[{{0.413849994, -19.097570956, 3.150173242}, {
    0.105824656, -19.494413416, 1.430522582}}, 0.15], 
   TubeBox[{{3.509221182, -18.751751098, -2.93852393}, {
    3.802128712, -16.986747014000002`, -3.01411297}}, 0.15]},
  AspectRatio->Automatic,
  Boxed->False,
  SphericalRegion->True]], "Output",
 CellChangeTimes->{3.5703420348011513`*^9, 3.570342164312578*^9, 
  3.570342512832791*^9, 3.570342889932253*^9}],

Cell[BoxData[
 Graphics3DBox[{
   {RGBColor[0.7333333333333333, 0.6, 0.4666666666666667], 
    SphereBox[{1.4720965540000002`, 13.160051864000001`, -0.253223284}, 
     0.255]}, 
   {RGBColor[0.7333333333333333, 0.6, 0.4666666666666667], 
    SphereBox[{-1.19997601, 12.260542288000002`, 0.315584242}, 0.255]}, 
   {RGBColor[0.7333333333333333, 0.6, 0.4666666666666667], 
    SphereBox[{-3.06135612, 14.225857328, -0.687860264}, 0.255]}, 
   {RGBColor[0.7333333333333333, 0.6, 0.4666666666666667], 
    SphereBox[{-0.196531504, 17.549885362, 0.098265752}, 0.255]}, 
   {RGBColor[0.7333333333333333, 0.6, 0.4666666666666667], 
    SphereBox[{1.846262302, 15.730079224, 0.978878068}, 0.255]}, 
   {RGBColor[0.7333333333333333, 0.6, 0.4666666666666667], 
    SphereBox[{-5.827914984, 13.47374638, -0.31369451600000003`}, 0.255]}, 
   {RGBColor[0.7333333333333333, 0.6, 0.4666666666666667], 
    SphereBox[{-1.4399712120000001`, 7.723310162, 0.470541774}, 0.255]}, 
   {RGBColor[0.7333333333333333, 0.6, 0.4666666666666667], 
    SphereBox[{-3.54323625, 5.91484238, -0.262671914}, 0.255]}, 
   {RGBColor[0.7333333333333333, 0.6, 0.4666666666666667], 
    SphereBox[{-3.050017764, 3.314579404, 0.852266426}, 0.255]}, 
   {RGBColor[0.7333333333333333, 0.6, 0.4666666666666667], 
    SphereBox[{-0.438416432, 2.450974622, 0.013228082}, 0.255]}, 
   {RGBColor[0.7333333333333333, 0.6, 0.4666666666666667], 
    SphereBox[{1.49288354, 4.40306158, 0.901399302}, 0.255]}, 
   {RGBColor[0.7333333333333333, 0.6, 0.4666666666666667], 
    SphereBox[{4.221647884, 3.673627344, 0.2834589}, 0.255]}, 
   {RGBColor[0.7333333333333333, 0.6, 0.4666666666666667], 
    SphereBox[{-0.149288354, -2.076808874, -0.287238352}, 0.255]}, 
   {RGBColor[0.7333333333333333, 0.6, 0.4666666666666667], 
    SphereBox[{2.010668464, -3.8852766560000003`, 0.268341092}, 0.255]}, 
   {RGBColor[0.7333333333333333, 0.6, 0.4666666666666667], 
    SphereBox[{1.45508902, -6.47231155, -0.8503767}, 0.255]}, 
   {RGBColor[0.7333333333333333, 0.6, 0.4666666666666667], 
    SphereBox[{-1.084702724, -7.36048277, 0.166295888}, 0.255]}, 
   {RGBColor[0.7333333333333333, 0.6, 0.4666666666666667], 
    SphereBox[{-3.085922558, -5.415954716, -0.570697252}, 0.255]}, 
   {RGBColor[0.7333333333333333, 0.6, 0.4666666666666667], 
    SphereBox[{-5.7579951220000005`, -6.164286212, 0.23243629799999999`}, 
     0.255]}, 
   {RGBColor[0.7333333333333333, 0.6, 0.4666666666666667], 
    SphereBox[{-1.347374638, -11.882597088, 0.49132876000000003`}, 0.255]}, 
   {RGBColor[0.7333333333333333, 0.6, 0.4666666666666667], 
    SphereBox[{-3.5621335100000002`, -13.666498432000001`, 
     0.12283219000000001`}, 0.255]}, 
   {RGBColor[0.7333333333333333, 0.6, 0.4666666666666667], 
    SphereBox[{-2.953641738, -16.206290176, 1.3020212139999998`}, 0.255]}, 
   {RGBColor[0.7333333333333333, 0.6, 0.4666666666666667], 
    SphereBox[{-0.5102260200000001, -17.183278518, 0.153067806}, 0.255]}, 
   {RGBColor[0.7333333333333333, 0.6, 0.4666666666666667], 
    SphereBox[{1.58736984, -15.253868271999998`, 0.60471232}, 0.255]}, 
   {RGBColor[0.7333333333333333, 0.6, 0.4666666666666667], 
    SphereBox[{4.130941036, -16.060781274, -0.489439034}, 0.255]}, 
   {RGBColor[1, 
     NCache[
      Rational[1, 3], 0.3333333333333333], 
     NCache[
      Rational[1, 3], 0.3333333333333333]], 
    SphereBox[{-2.609711606, 16.51620524, 0.6614040999999999}, 0.178]}, 
   {RGBColor[1, 
     NCache[
      Rational[1, 3], 0.3333333333333333], 
     NCache[
      Rational[1, 3], 0.3333333333333333]], 
    SphereBox[{3.2824540620000002`, 11.481975175999999`, 0.863604782}, 
     0.178]}, 
   {RGBColor[1, 
     NCache[
      Rational[1, 3], 0.3333333333333333], 
     NCache[
      Rational[1, 3], 0.3333333333333333]], 
    SphereBox[{-1.7139814820000001`, 9.958856019999999, -0.999665054}, 
     0.178]}, 
   {RGBColor[1, 
     NCache[
      Rational[1, 3], 0.3333333333333333], 
     NCache[
      Rational[1, 3], 0.3333333333333333]], 
    SphereBox[{-0.15684725800000002`, 19.828894918, 1.5476855939999998`}, 
     0.178]}, 
   {RGBColor[1, 
     NCache[
      Rational[1, 3], 0.3333333333333333], 
     NCache[
      Rational[1, 3], 0.3333333333333333]], 
    SphereBox[{4.257552678000001, 16.682501128, 0.196531504}, 0.178]}, 
   {RGBColor[1, 
     NCache[
      Rational[1, 3], 0.3333333333333333], 
     NCache[
      Rational[1, 3], 0.3333333333333333]], 
    SphereBox[{-6.224757444, 12.360697766000001`, 2.127831476}, 0.178]}, 
   {RGBColor[1, 
     NCache[
      Rational[1, 3], 0.3333333333333333], 
     NCache[
      Rational[1, 3], 0.3333333333333333]], 
    SphereBox[{-5.854371147999999, 6.865374558, 0.7899054679999999}, 0.178]}, 
   {RGBColor[1, 
     NCache[
      Rational[1, 3], 0.3333333333333333], 
     NCache[
      Rational[1, 3], 0.3333333333333333]], 
    SphereBox[{-4.958641024, 1.664848606, -0.139839724}, 0.178]}, 
   {RGBColor[1, 
     NCache[
      Rational[1, 3], 0.3333333333333333], 
     NCache[
      Rational[1, 3], 0.3333333333333333]], 
    SphereBox[{0.20786986, 0.12283219000000001`, 1.216983544}, 0.178]}, 
   {RGBColor[1, 
     NCache[
      Rational[1, 3], 0.3333333333333333], 
     NCache[
      Rational[1, 3], 0.3333333333333333]], 
    SphereBox[{0.91651711, 6.72742456, -0.338260954}, 0.178]}, 
   {RGBColor[1, 
     NCache[
      Rational[1, 3], 0.3333333333333333], 
     NCache[
      Rational[1, 3], 0.3333333333333333]], 
    SphereBox[{4.418179388, 2.641836948, -2.218538324}, 0.178]}, 
   {RGBColor[1, 
     NCache[
      Rational[1, 3], 0.3333333333333333], 
     NCache[
      Rational[1, 3], 0.3333333333333333]], 
    SphereBox[{4.236765692, -2.898839684, -0.9297451919999999}, 0.178]}, 
   {RGBColor[1, 
     NCache[
      Rational[1, 3], 0.3333333333333333], 
     NCache[
      Rational[1, 3], 0.3333333333333333]], 
    SphereBox[{3.42985269, -8.133380704, -0.024566438}, 0.178]}, 
   {RGBColor[1, 
     NCache[
      Rational[1, 3], 0.3333333333333333], 
     NCache[
      Rational[1, 3], 0.3333333333333333]], 
    SphereBox[{-1.7820116179999999`, -9.690514928, -1.007223958}, 0.178]}, 
   {RGBColor[1, 
     NCache[
      Rational[1, 3], 0.3333333333333333], 
     NCache[
      Rational[1, 3], 0.3333333333333333]], 
    SphereBox[{-2.443415718, -3.101040366, 0.6557349219999999}, 0.178]}, 
   {RGBColor[1, 
     NCache[
      Rational[1, 3], 0.3333333333333333], 
     NCache[
      Rational[1, 3], 0.3333333333333333]], 
    SphereBox[{-5.775002656, -7.141274554, 2.7646691380000004`}, 0.178]}, 
   {RGBColor[1, 
     NCache[
      Rational[1, 3], 0.3333333333333333], 
     NCache[
      Rational[1, 3], 0.3333333333333333]], 
    SphereBox[{-5.699413616, -12.625259406, 1.42674313}, 0.178]}, 
   {RGBColor[1, 
     NCache[
      Rational[1, 3], 0.3333333333333333], 
     NCache[
      Rational[1, 3], 0.3333333333333333]], 
    SphereBox[{-4.9775382839999995`, -17.903264124, 0.68974999}, 0.178]}, 
   {RGBColor[1, 
     NCache[
      Rational[1, 3], 0.3333333333333333], 
     NCache[
      Rational[1, 3], 0.3333333333333333]], 
    SphereBox[{0.105824656, -19.494413416, 1.430522582}, 0.178]}, 
   {RGBColor[1, 
     NCache[
      Rational[1, 3], 0.3333333333333333], 
     NCache[
      Rational[1, 3], 0.3333333333333333]], 
    SphereBox[{0.857935604, -12.948402552000001`, -0.602822594}, 0.178]}, 
   {RGBColor[1, 
     NCache[
      Rational[1, 3], 0.3333333333333333], 
     NCache[
      Rational[1, 3], 0.3333333333333333]], 
    SphereBox[{3.802128712, -16.986747014000002`, -3.01411297}, 0.178]}, 
   {RGBColor[0.7333333333333333, 0.6, 0.4666666666666667], 
    SphereBox[{1.780121892, 13.288553232, -2.326252706}, 0.1]}, 
   {RGBColor[0.7333333333333333, 0.6, 0.4666666666666667], 
    SphereBox[{-1.46453765, 12.045113524, 2.382944486}, 0.1]}, 
   {RGBColor[0.7333333333333333, 0.6, 0.4666666666666667], 
    SphereBox[{-2.745771878, 14.543331296, -2.7401027}, 0.1]}, 
   {RGBColor[0.7333333333333333, 0.6, 0.4666666666666667], 
    SphereBox[{-0.020786986, 17.992081246, -1.938858876}, 0.1]}, 
   {RGBColor[0.7333333333333333, 0.6, 0.4666666666666667], 
    SphereBox[{1.791460248, 15.539216898000001`, 3.0689150240000003`}, 0.1]}, 
   {RGBColor[0.7333333333333333, 0.6, 0.4666666666666667], 
    SphereBox[{5.459418414, 15.403156626, 0.574476704}, 0.1]}, 
   {RGBColor[0.7333333333333333, 0.6, 0.4666666666666667], 
    SphereBox[{3.016002696, 9.862479994000001, 0.126611642}, 0.1]}, 
   {RGBColor[0.7333333333333333, 0.6, 0.4666666666666667], 
    SphereBox[{-7.06757524, 15.151823068, -0.5121157460000001}, 0.1]}, 
   {RGBColor[0.7333333333333333, 0.6, 0.4666666666666667], 
    SphereBox[{-6.419399222, 12.124482016, -1.8103575079999998`}, 0.1]}, 
   {RGBColor[0.7333333333333333, 0.6, 0.4666666666666667], 
    SphereBox[{-6.147278678, 10.567347792, 1.925630794}, 0.1]}, 
   {RGBColor[0.7333333333333333, 0.6, 0.4666666666666667], 
    SphereBox[{-0.42518835, 19.432052457999998`, 3.2711157060000002`}, 0.1]}, 
   {RGBColor[0.7333333333333333, 0.6, 0.4666666666666667], 
    SphereBox[{-1.447530116, 8.099365636, 2.528453388}, 0.1]}, 
   {RGBColor[0.7333333333333333, 0.6, 0.4666666666666667], 
    SphereBox[{-3.692524604, 5.793899916, -2.350819144}, 0.1]}, 
   {RGBColor[0.7333333333333333, 0.6, 0.4666666666666667], 
    SphereBox[{-3.16529105, 3.380719814, 2.949862286}, 0.1]}, 
   {RGBColor[0.7333333333333333, 0.6, 0.4666666666666667], 
    SphereBox[{-0.362827392, 2.294127364, -2.076808874}, 0.1]}, 
   {RGBColor[0.7333333333333333, 0.6, 0.4666666666666667], 
    SphereBox[{1.353043816, 4.663843768, 2.981987628}, 0.1]}, 
   {RGBColor[0.7333333333333333, 0.6, 0.4666666666666667], 
    SphereBox[{5.47075677, 5.349814306, 0.432747254}, 0.1]}, 
   {RGBColor[0.7333333333333333, 0.6, 0.4666666666666667], 
    SphereBox[{4.934074586, 2.279009556, 1.68185614}, 0.1]}, 
   {RGBColor[0.7333333333333333, 0.6, 0.4666666666666667], 
    SphereBox[{-7.1015903080000005`, 5.610596494, 0.476210952}, 0.1]}, 
   {RGBColor[0.7333333333333333, 0.6, 0.4666666666666667], 
    SphereBox[{-4.603372536, 0.015117808, 0.489439034}, 0.1]}, 
   {RGBColor[0.7333333333333333, 0.6, 0.4666666666666667], 
    SphereBox[{4.386054046, 0.844707522, -2.067360244}, 0.1]}, 
   {RGBColor[0.7333333333333333, 0.6, 0.4666666666666667], 
    SphereBox[{-0.279679448, -1.655399976, -2.3300321580000003`}, 0.1]}, 
   {RGBColor[0.7333333333333333, 0.6, 0.4666666666666667], 
    SphereBox[{2.30546572, -4.03456501, 2.339480788}, 0.1]}, 
   {RGBColor[0.7333333333333333, 0.6, 0.4666666666666667], 
    SphereBox[{1.419184226, -6.374045798, -2.946082834}, 0.1]}, 
   {RGBColor[0.7333333333333333, 0.6, 0.4666666666666667], 
    SphereBox[{-1.0091136840000001`, -7.528668384, 2.252553392}, 0.1]}, 
   {RGBColor[0.7333333333333333, 0.6, 0.4666666666666667], 
    SphereBox[{-3.08970201, -5.13060609, -2.653175304}, 0.1]}, 
   {RGBColor[0.7333333333333333, 0.6, 0.4666666666666667], 
    SphereBox[{-7.03922935, -4.50699651, 0.130391094}, 0.1]}, 
   {RGBColor[0.7333333333333333, 0.6, 0.4666666666666667], 
    SphereBox[{-6.540341686, -7.5966985199999995`, -1.0884821759999999`}, 
     0.1]}, 
   {RGBColor[0.7333333333333333, 0.6, 0.4666666666666667], 
    SphereBox[{5.516110194, -4.136610214, -0.7086472500000001}, 0.1]}, 
   {RGBColor[0.7333333333333333, 0.6, 0.4666666666666667], 
    SphereBox[{2.987656806, -9.785001228, -0.587704786}, 0.1]}, 
   {RGBColor[0.7333333333333333, 0.6, 0.4666666666666667], 
    SphereBox[{-5.784451286, -8.940293706, 2.647506126}, 0.1]}, 
   {RGBColor[0.7333333333333333, 0.6, 0.4666666666666667], 
    SphereBox[{-1.056356834, -11.44229093, 2.515225306}, 0.1]}, 
   {RGBColor[0.7333333333333333, 0.6, 0.4666666666666667], 
    SphereBox[{-3.9892115860000006`, -13.885706648, -1.9199616160000001`}, 
     0.1]}, 
   {RGBColor[0.7333333333333333, 0.6, 0.4666666666666667], 
    SphereBox[{-2.7646691380000004`, -16.021097028, 3.3844992659999997`}, 
     0.1]}, 
   {RGBColor[0.7333333333333333, 0.6, 0.4666666666666667], 
    SphereBox[{-0.780456838, -17.521539472, -1.901064356}, 0.1]}, 
   {RGBColor[0.7333333333333333, 0.6, 0.4666666666666667], 
    SphereBox[{1.83303422, -14.91938677, 2.662623934}, 0.1]}, 
   {RGBColor[0.7333333333333333, 0.6, 0.4666666666666667], 
    SphereBox[{5.472646496, -14.44695527, -0.48565958200000003`}, 0.1]}, 
   {RGBColor[0.7333333333333333, 0.6, 0.4666666666666667], 
    SphereBox[{4.983207462, -17.570672348, 0.68974999}, 0.1]}, 
   {RGBColor[0.7333333333333333, 0.6, 0.4666666666666667], 
    SphereBox[{-6.993875926, -13.866809388, 1.34170546}, 0.1]}, 
   {RGBColor[0.7333333333333333, 0.6, 0.4666666666666667], 
    SphereBox[{-4.457863634, -19.532207936000002`, 1.230211626}, 0.1]}, 
   {RGBColor[0.7333333333333333, 0.6, 0.4666666666666667], 
    SphereBox[{0.413849994, -19.097570956, 3.150173242}, 0.1]}, 
   {RGBColor[0.7333333333333333, 0.6, 0.4666666666666667], 
    SphereBox[{3.509221182, -18.751751098, -2.93852393}, 0.1]}, 
   Text3DBox["1", {0.8720965540000002, 13.160051864000001`, -0.253223284}, {1,
     0}], Text3DBox["2", {-1.79997601, 12.260542288000002`, 0.315584242}, {1, 
    0}], Text3DBox["3", {-3.66135612, 14.225857328, -0.687860264}, {1, 0}], 
   Text3DBox["4", {-0.796531504, 17.549885362, 0.098265752}, {1, 0}], 
   Text3DBox["5", {1.2462623019999999`, 15.730079224, 0.978878068}, {1, 0}], 
   Text3DBox["6", {-6.427914984, 13.47374638, -0.31369451600000003`}, {1, 0}],
    Text3DBox["7", {-2.039971212, 7.723310162, 0.470541774}, {1, 0}], 
   Text3DBox["8", {-4.14323625, 5.91484238, -0.262671914}, {1, 0}], 
   Text3DBox["9", {-3.650017764, 3.314579404, 0.852266426}, {1, 0}], 
   Text3DBox["10", {-1.038416432, 2.450974622, 0.013228082}, {1, 0}], 
   Text3DBox["11", {0.89288354, 4.40306158, 0.901399302}, {1, 0}], 
   Text3DBox["12", {3.621647884, 3.673627344, 0.2834589}, {1, 0}], 
   Text3DBox["13", {-0.7492883539999999, -2.076808874, -0.287238352}, {1, 0}],
    Text3DBox["14", {1.410668464, -3.8852766560000003`, 0.268341092}, {1, 0}],
    Text3DBox["15", {0.85508902, -6.47231155, -0.8503767}, {1, 0}], 
   Text3DBox["16", {-1.684702724, -7.36048277, 0.166295888}, {1, 0}], 
   Text3DBox["17", {-3.685922558, -5.415954716, -0.570697252}, {1, 0}], 
   Text3DBox["18", {-6.357995122, -6.164286212, 0.23243629799999999`}, {1, 
    0}], Text3DBox["19", {-1.9473746379999999`, -11.882597088, 
    0.49132876000000003`}, {1, 0}], 
   Text3DBox["20", {-4.16213351, -13.666498432000001`, 
    0.12283219000000001`}, {1, 0}], 
   Text3DBox["21", {-3.553641738, -16.206290176, 1.3020212139999998`}, {1, 
    0}], Text3DBox["22", {-1.11022602, -17.183278518, 0.153067806}, {1, 0}], 
   Text3DBox["23", {0.98736984, -15.253868271999998`, 0.60471232}, {1, 0}], 
   Text3DBox["24", {3.530941036, -16.060781274, -0.489439034}, {1, 0}], 
   Text3DBox["25", {-3.209711606, 16.51620524, 0.6614040999999999}, {1, 0}], 
   Text3DBox["26", {2.682454062, 11.481975175999999`, 0.863604782}, {1, 0}], 
   Text3DBox["27", {-2.313981482, 9.958856019999999, -0.999665054}, {1, 0}], 
   Text3DBox["28", {-0.756847258, 19.828894918, 1.5476855939999998`}, {1, 0}],
    Text3DBox["29", {3.6575526780000005`, 16.682501128, 0.196531504}, {1, 0}],
    Text3DBox["30", {-6.824757443999999, 12.360697766000001`, 2.127831476}, {
    1, 0}], Text3DBox["31", {-6.454371147999999, 6.865374558, 
    0.7899054679999999}, {1, 0}], 
   Text3DBox["32", {-5.558641024, 1.664848606, -0.139839724}, {1, 0}], 
   Text3DBox["33", {-0.39213014, 0.12283219000000001`, 1.216983544}, {1, 0}], 
   Text3DBox["34", {0.31651711000000005`, 6.72742456, -0.338260954}, {1, 0}], 
   Text3DBox["35", {3.8181793880000003`, 2.641836948, -2.218538324}, {1, 0}], 
   Text3DBox["36", {3.6367656919999996`, -2.898839684, -0.9297451919999999}, {
    1, 0}], Text3DBox["37", {2.82985269, -8.133380704, -0.024566438}, {1, 0}],
    Text3DBox["38", {-2.382011618, -9.690514928, -1.007223958}, {1, 0}], 
   Text3DBox["39", {-3.043415718, -3.101040366, 0.6557349219999999}, {1, 0}], 
   Text3DBox["40", {-6.3750026559999995`, -7.141274554, 
    2.7646691380000004`}, {1, 0}], 
   Text3DBox["41", {-6.299413616, -12.625259406, 1.42674313}, {1, 0}], 
   Text3DBox["42", {-5.577538283999999, -17.903264124, 0.68974999}, {1, 0}], 
   Text3DBox["43", {-0.49417534399999996`, -19.494413416, 1.430522582}, {1, 
    0}], Text3DBox["44", {
    0.25793560400000004`, -12.948402552000001`, -0.602822594}, {1, 0}], 
   Text3DBox["45", {3.202128712, -16.986747014000002`, -3.01411297}, {1, 0}], 
   Text3DBox["46", {1.1801218919999998`, 13.288553232, -2.326252706}, {1, 0}],
    Text3DBox["47", {-2.06453765, 12.045113524, 2.382944486}, {1, 0}], 
   Text3DBox["48", {-3.3457718780000003`, 14.543331296, -2.7401027}, {1, 0}], 
   Text3DBox["49", {-0.6207869859999999, 17.992081246, -1.938858876}, {1, 0}],
    Text3DBox["50", {1.1914602479999998`, 15.539216898000001`, 
    3.0689150240000003`}, {1, 0}], 
   Text3DBox["51", {4.859418414, 15.403156626, 0.574476704}, {1, 0}], 
   Text3DBox["52", {2.416002696, 9.862479994000001, 0.126611642}, {1, 0}], 
   Text3DBox["53", {-7.66757524, 15.151823068, -0.5121157460000001}, {1, 0}], 
   Text3DBox["54", {-7.019399222, 12.124482016, -1.8103575079999998`}, {1, 
    0}], Text3DBox["55", {-6.747278678, 10.567347792, 1.925630794}, {1, 0}], 
   Text3DBox["56", {-1.02518835, 19.432052457999998`, 3.2711157060000002`}, {
    1, 0}], Text3DBox["57", {-2.047530116, 8.099365636, 2.528453388}, {1, 0}],
    Text3DBox["58", {-4.292524604, 5.793899916, -2.350819144}, {1, 0}], 
   Text3DBox["59", {-3.76529105, 3.380719814, 2.949862286}, {1, 0}], 
   Text3DBox["60", {-0.962827392, 2.294127364, -2.076808874}, {1, 0}], 
   Text3DBox["61", {0.753043816, 4.663843768, 2.981987628}, {1, 0}], 
   Text3DBox["62", {4.870756770000001, 5.349814306, 0.432747254}, {1, 0}], 
   Text3DBox["63", {4.334074586000001, 2.279009556, 1.68185614}, {1, 0}], 
   Text3DBox["64", {-7.701590308, 5.610596494, 0.476210952}, {1, 0}], 
   Text3DBox["65", {-5.203372536, 0.015117808, 0.489439034}, {1, 0}], 
   Text3DBox["66", {3.786054046, 0.844707522, -2.067360244}, {1, 0}], 
   Text3DBox["67", {-0.879679448, -1.655399976, -2.3300321580000003`}, {1, 
    0}], Text3DBox["68", {1.7054657199999999`, -4.03456501, 2.339480788}, {1, 
    0}], Text3DBox["69", {0.8191842260000001, -6.374045798, -2.946082834}, {1,
     0}], Text3DBox["70", {-1.609113684, -7.528668384, 2.252553392}, {1, 0}], 
   Text3DBox["71", {-3.68970201, -5.13060609, -2.653175304}, {1, 0}], 
   Text3DBox["72", {-7.63922935, -4.50699651, 0.130391094}, {1, 0}], 
   Text3DBox[
    "73", {-7.140341685999999, -7.5966985199999995`, -1.0884821759999999`}, {
    1, 0}], Text3DBox["74", {
    4.916110194000001, -4.136610214, -0.7086472500000001}, {1, 0}], 
   Text3DBox["75", {2.387656806, -9.785001228, -0.587704786}, {1, 0}], 
   Text3DBox["76", {-6.384451286, -8.940293706, 2.647506126}, {1, 0}], 
   Text3DBox["77", {-1.656356834, -11.44229093, 2.515225306}, {1, 0}], 
   Text3DBox["78", {-4.589211586, -13.885706648, -1.9199616160000001`}, {1, 
    0}], Text3DBox["79", {-3.3646691380000004`, -16.021097028, 
    3.3844992659999997`}, {1, 0}], 
   Text3DBox["80", {-1.380456838, -17.521539472, -1.901064356}, {1, 0}], 
   Text3DBox["81", {1.23303422, -14.91938677, 2.662623934}, {1, 0}], 
   Text3DBox["82", {4.872646496000001, -14.44695527, -0.48565958200000003`}, {
    1, 0}], Text3DBox["83", {4.3832074620000006`, -17.570672348, 
    0.68974999}, {1, 0}], 
   Text3DBox["84", {-7.593875926, -13.866809388, 1.34170546}, {1, 0}], 
   Text3DBox["85", {-5.057863633999999, -19.532207936000002`, 1.230211626}, {
    1, 0}], Text3DBox["86", {-0.18615000599999998`, -19.097570956, 
    3.150173242}, {1, 0}], 
   Text3DBox["87", {2.909221182, -18.751751098, -2.93852393}, {1, 0}], 
   TubeBox[{{-1.19997601, 12.260542288000002`, 0.315584242}, {
    1.4720965540000002`, 13.160051864000001`, -0.253223284}}, 0.15], 
   TubeBox[{{-3.06135612, 14.225857328, -0.687860264}, {-1.19997601, 
    12.260542288000002`, 0.315584242}}, 0.15], 
   TubeBox[{{1.846262302, 15.730079224, 0.978878068}, {1.4720965540000002`, 
    13.160051864000001`, -0.253223284}}, 0.15], 
   TubeBox[{{1.846262302, 15.730079224, 0.978878068}, {-0.196531504, 
    17.549885362, 0.098265752}}, 0.15], 
   TubeBox[{{-5.827914984, 13.47374638, -0.31369451600000003`}, {-3.06135612, 
    14.225857328, -0.687860264}}, 0.15], 
   TubeBox[{{-3.54323625, 5.91484238, -0.262671914}, {-1.4399712120000001`, 
    7.723310162, 0.470541774}}, 0.15], 
   TubeBox[{{-3.050017764, 3.314579404, 0.852266426}, {-3.54323625, 
    5.91484238, -0.262671914}}, 0.15], 
   TubeBox[{{-0.438416432, 2.450974622, 0.013228082}, {-3.050017764, 
    3.314579404, 0.852266426}}, 0.15], 
   TubeBox[{{1.49288354, 4.40306158, 0.901399302}, {-0.438416432, 2.450974622,
     0.013228082}}, 0.15], 
   TubeBox[{{4.221647884, 3.673627344, 0.2834589}, {1.49288354, 4.40306158, 
    0.901399302}}, 0.15], 
   TubeBox[{{2.010668464, -3.8852766560000003`, 
    0.268341092}, {-0.149288354, -2.076808874, -0.287238352}}, 0.15], 
   TubeBox[{{1.45508902, -6.47231155, -0.8503767}, {
    2.010668464, -3.8852766560000003`, 0.268341092}}, 0.15], 
   TubeBox[{{-1.084702724, -7.36048277, 0.166295888}, {
    1.45508902, -6.47231155, -0.8503767}}, 0.15], 
   TubeBox[{{-3.085922558, -5.415954716, -0.570697252}, {-1.084702724, \
-7.36048277, 0.166295888}}, 0.15], 
   TubeBox[{{-5.7579951220000005`, -6.164286212, 
    0.23243629799999999`}, {-3.085922558, -5.415954716, -0.570697252}}, 0.15],
    TubeBox[{{-3.5621335100000002`, -13.666498432000001`, 
    0.12283219000000001`}, {-1.347374638, -11.882597088, 
    0.49132876000000003`}}, 0.15], 
   TubeBox[{{-2.953641738, -16.206290176, 
    1.3020212139999998`}, {-3.5621335100000002`, -13.666498432000001`, 
    0.12283219000000001`}}, 0.15], 
   TubeBox[{{-0.5102260200000001, -17.183278518, 
    0.153067806}, {-2.953641738, -16.206290176, 1.3020212139999998`}}, 0.15], 
   TubeBox[{{1.58736984, -15.253868271999998`, 
    0.60471232}, {-0.5102260200000001, -17.183278518, 0.153067806}}, 0.15], 
   TubeBox[{{4.130941036, -16.060781274, -0.489439034}, {
    1.58736984, -15.253868271999998`, 0.60471232}}, 0.15], 
   TubeBox[{{-2.609711606, 16.51620524, 0.6614040999999999}, {-3.06135612, 
    14.225857328, -0.687860264}}, 0.15], 
   TubeBox[{{-2.609711606, 16.51620524, 0.6614040999999999}, {-0.196531504, 
    17.549885362, 0.098265752}}, 0.15], 
   TubeBox[{{3.2824540620000002`, 11.481975175999999`, 0.863604782}, {
    1.4720965540000002`, 13.160051864000001`, -0.253223284}}, 0.15], 
   TubeBox[{{-1.7139814820000001`, 
    9.958856019999999, -0.999665054}, {-1.19997601, 12.260542288000002`, 
    0.315584242}}, 0.15], 
   TubeBox[{{-1.7139814820000001`, 
    9.958856019999999, -0.999665054}, {-1.4399712120000001`, 7.723310162, 
    0.470541774}}, 0.15], 
   TubeBox[{{-0.15684725800000002`, 19.828894918, 
    1.5476855939999998`}, {-0.196531504, 17.549885362, 0.098265752}}, 0.15], 
   TubeBox[{{4.257552678000001, 16.682501128, 0.196531504}, {1.846262302, 
    15.730079224, 0.978878068}}, 0.15], 
   TubeBox[{{-6.224757444, 12.360697766000001`, 2.127831476}, {-5.827914984, 
    13.47374638, -0.31369451600000003`}}, 0.15], 
   TubeBox[{{-5.854371147999999, 6.865374558, 
    0.7899054679999999}, {-3.54323625, 5.91484238, -0.262671914}}, 0.15], 
   TubeBox[{{-4.958641024, 1.664848606, -0.139839724}, {-3.050017764, 
    3.314579404, 0.852266426}}, 0.15], 
   TubeBox[{{0.20786986, 0.12283219000000001`, 1.216983544}, {-0.438416432, 
    2.450974622, 0.013228082}}, 0.15], 
   TubeBox[{{0.20786986, 0.12283219000000001`, 
    1.216983544}, {-0.149288354, -2.076808874, -0.287238352}}, 0.15], 
   TubeBox[{{0.91651711, 6.72742456, -0.338260954}, {-1.4399712120000001`, 
    7.723310162, 0.470541774}}, 0.15], 
   TubeBox[{{0.91651711, 6.72742456, -0.338260954}, {1.49288354, 4.40306158, 
    0.901399302}}, 0.15], 
   TubeBox[{{4.418179388, 2.641836948, -2.218538324}, {4.221647884, 
    3.673627344, 0.2834589}}, 0.15], 
   TubeBox[{{4.236765692, -2.898839684, -0.9297451919999999}, {
    2.010668464, -3.8852766560000003`, 0.268341092}}, 0.15], 
   TubeBox[{{3.42985269, -8.133380704, -0.024566438}, {
    1.45508902, -6.47231155, -0.8503767}}, 0.15], 
   TubeBox[{{-1.7820116179999999`, -9.690514928, -1.007223958}, \
{-1.084702724, -7.36048277, 0.166295888}}, 0.15], 
   TubeBox[{{-1.7820116179999999`, -9.690514928, -1.007223958}, \
{-1.347374638, -11.882597088, 0.49132876000000003`}}, 0.15], 
   TubeBox[{{-2.443415718, -3.101040366, 
    0.6557349219999999}, {-0.149288354, -2.076808874, -0.287238352}}, 0.15], 
   TubeBox[{{-2.443415718, -3.101040366, 
    0.6557349219999999}, {-3.085922558, -5.415954716, -0.570697252}}, 0.15], 
   TubeBox[{{-5.775002656, -7.141274554, 
    2.7646691380000004`}, {-5.7579951220000005`, -6.164286212, 
    0.23243629799999999`}}, 0.15], 
   TubeBox[{{-5.699413616, -12.625259406, 
    1.42674313}, {-3.5621335100000002`, -13.666498432000001`, 
    0.12283219000000001`}}, 0.15], 
   TubeBox[{{-4.9775382839999995`, -17.903264124, 
    0.68974999}, {-2.953641738, -16.206290176, 1.3020212139999998`}}, 0.15], 
   TubeBox[{{0.105824656, -19.494413416, 
    1.430522582}, {-0.5102260200000001, -17.183278518, 0.153067806}}, 0.15], 
   TubeBox[{{
    0.857935604, -12.948402552000001`, -0.602822594}, {-1.347374638, \
-11.882597088, 0.49132876000000003`}}, 0.15], 
   TubeBox[{{0.857935604, -12.948402552000001`, -0.602822594}, {
    1.58736984, -15.253868271999998`, 0.60471232}}, 0.15], 
   TubeBox[{{3.802128712, -16.986747014000002`, -3.01411297}, {
    4.130941036, -16.060781274, -0.489439034}}, 0.15], 
   TubeBox[{{1.780121892, 13.288553232, -2.326252706}, {1.4720965540000002`, 
    13.160051864000001`, -0.253223284}}, 0.15], 
   TubeBox[{{-1.46453765, 12.045113524, 2.382944486}, {-1.19997601, 
    12.260542288000002`, 0.315584242}}, 0.15], 
   TubeBox[{{-2.745771878, 14.543331296, -2.7401027}, {-3.06135612, 
    14.225857328, -0.687860264}}, 0.15], 
   TubeBox[{{-0.020786986, 17.992081246, -1.938858876}, {-0.196531504, 
    17.549885362, 0.098265752}}, 0.15], 
   TubeBox[{{1.791460248, 15.539216898000001`, 3.0689150240000003`}, {
    1.846262302, 15.730079224, 0.978878068}}, 0.15], 
   TubeBox[{{5.459418414, 15.403156626, 0.574476704}, {4.257552678000001, 
    16.682501128, 0.196531504}}, 0.15], 
   TubeBox[{{3.016002696, 9.862479994000001, 0.126611642}, {
    3.2824540620000002`, 11.481975175999999`, 0.863604782}}, 0.15], 
   TubeBox[{{-7.06757524, 15.151823068, -0.5121157460000001}, {-5.827914984, 
    13.47374638, -0.31369451600000003`}}, 0.15], 
   TubeBox[{{-6.419399222, 12.124482016, -1.8103575079999998`}, {-5.827914984,
     13.47374638, -0.31369451600000003`}}, 0.15], 
   TubeBox[{{-6.147278678, 10.567347792, 1.925630794}, {-6.224757444, 
    12.360697766000001`, 2.127831476}}, 0.15], 
   TubeBox[{{-0.42518835, 19.432052457999998`, 
    3.2711157060000002`}, {-0.15684725800000002`, 19.828894918, 
    1.5476855939999998`}}, 0.15], 
   TubeBox[{{-1.447530116, 8.099365636, 2.528453388}, {-1.4399712120000001`, 
    7.723310162, 0.470541774}}, 0.15], 
   TubeBox[{{-3.692524604, 5.793899916, -2.350819144}, {-3.54323625, 
    5.91484238, -0.262671914}}, 0.15], 
   TubeBox[{{-3.16529105, 3.380719814, 2.949862286}, {-3.050017764, 
    3.314579404, 0.852266426}}, 0.15], 
   TubeBox[{{-0.362827392, 2.294127364, -2.076808874}, {-0.438416432, 
    2.450974622, 0.013228082}}, 0.15], 
   TubeBox[{{1.353043816, 4.663843768, 2.981987628}, {1.49288354, 4.40306158, 
    0.901399302}}, 0.15], 
   TubeBox[{{5.47075677, 5.349814306, 0.432747254}, {4.221647884, 3.673627344,
     0.2834589}}, 0.15], 
   TubeBox[{{4.934074586, 2.279009556, 1.68185614}, {4.221647884, 3.673627344,
     0.2834589}}, 0.15], 
   TubeBox[{{-7.1015903080000005`, 5.610596494, 
    0.476210952}, {-5.854371147999999, 6.865374558, 0.7899054679999999}}, 
    0.15], TubeBox[{{-4.603372536, 0.015117808, 0.489439034}, {-4.958641024, 
    1.664848606, -0.139839724}}, 0.15], 
   TubeBox[{{4.386054046, 0.844707522, -2.067360244}, {4.418179388, 
    2.641836948, -2.218538324}}, 0.15], 
   TubeBox[{{-0.279679448, -1.655399976, -2.3300321580000003`}, \
{-0.149288354, -2.076808874, -0.287238352}}, 0.15], 
   TubeBox[{{2.30546572, -4.03456501, 2.339480788}, {
    2.010668464, -3.8852766560000003`, 0.268341092}}, 0.15], 
   TubeBox[{{1.419184226, -6.374045798, -2.946082834}, {
    1.45508902, -6.47231155, -0.8503767}}, 0.15], 
   TubeBox[{{-1.0091136840000001`, -7.528668384, 
    2.252553392}, {-1.084702724, -7.36048277, 0.166295888}}, 0.15], 
   TubeBox[{{-3.08970201, -5.13060609, -2.653175304}, {-3.085922558, \
-5.415954716, -0.570697252}}, 0.15], 
   TubeBox[{{-7.03922935, -4.50699651, 
    0.130391094}, {-5.7579951220000005`, -6.164286212, 0.23243629799999999`}},
     0.15], TubeBox[{{-6.540341686, -7.5966985199999995`, \
-1.0884821759999999`}, {-5.7579951220000005`, -6.164286212, 
    0.23243629799999999`}}, 0.15], 
   TubeBox[{{5.516110194, -4.136610214, -0.7086472500000001}, {
    4.236765692, -2.898839684, -0.9297451919999999}}, 0.15], 
   TubeBox[{{2.987656806, -9.785001228, -0.587704786}, {
    3.42985269, -8.133380704, -0.024566438}}, 0.15], 
   TubeBox[{{-5.784451286, -8.940293706, 
    2.647506126}, {-5.775002656, -7.141274554, 2.7646691380000004`}}, 0.15], 
   TubeBox[{{-1.056356834, -11.44229093, 
    2.515225306}, {-1.347374638, -11.882597088, 0.49132876000000003`}}, 0.15],
    TubeBox[{{-3.9892115860000006`, -13.885706648, -1.9199616160000001`}, \
{-3.5621335100000002`, -13.666498432000001`, 0.12283219000000001`}}, 0.15], 
   TubeBox[{{-2.7646691380000004`, -16.021097028, 
    3.3844992659999997`}, {-2.953641738, -16.206290176, 1.3020212139999998`}},
     0.15], 
   TubeBox[{{-0.780456838, -17.521539472, -1.901064356}, \
{-0.5102260200000001, -17.183278518, 0.153067806}}, 0.15], 
   TubeBox[{{1.83303422, -14.91938677, 2.662623934}, {
    1.58736984, -15.253868271999998`, 0.60471232}}, 0.15], 
   TubeBox[{{5.472646496, -14.44695527, -0.48565958200000003`}, {
    4.130941036, -16.060781274, -0.489439034}}, 0.15], 
   TubeBox[{{4.983207462, -17.570672348, 0.68974999}, {
    4.130941036, -16.060781274, -0.489439034}}, 0.15], 
   TubeBox[{{-6.993875926, -13.866809388, 
    1.34170546}, {-5.699413616, -12.625259406, 1.42674313}}, 0.15], 
   TubeBox[{{-4.457863634, -19.532207936000002`, 
    1.230211626}, {-4.9775382839999995`, -17.903264124, 0.68974999}}, 0.15], 
   TubeBox[{{0.413849994, -19.097570956, 3.150173242}, {
    0.105824656, -19.494413416, 1.430522582}}, 0.15], 
   TubeBox[{{3.509221182, -18.751751098, -2.93852393}, {
    3.802128712, -16.986747014000002`, -3.01411297}}, 0.15]},
  AspectRatio->Automatic,
  Boxed->False,
  SphericalRegion->True]], "Output",
 CellChangeTimes->{3.5703420348011513`*^9, 3.570342164312578*^9, 
  3.570342512832791*^9, 3.570342889994653*^9}]
}, 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}}],

Cell[BoxData["135"], "Output",
 CellChangeTimes->{3.5703420348791513`*^9, 3.5703421644061785`*^9, 
  3.5703425129107904`*^9, 3.570342890010253*^9}],

Cell[BoxData[
 TagBox[
  RowBox[{"(", "\[NoBreak]", GridBox[{
     {"1.4720965540000002`", "13.160051864000001`", 
      RowBox[{"-", "0.253223284`"}]},
     {
      RowBox[{"-", "1.19997601`"}], "12.260542288000002`", "0.315584242`"},
     {
      RowBox[{"-", "3.06135612`"}], "14.225857328`", 
      RowBox[{"-", "0.687860264`"}]},
     {
      RowBox[{"-", "0.196531504`"}], "17.549885362`", "0.098265752`"},
     {"1.846262302`", "15.730079224`", "0.978878068`"},
     {
      RowBox[{"-", "5.827914984`"}], "13.47374638`", 
      RowBox[{"-", "0.31369451600000003`"}]},
     {
      RowBox[{"-", "1.4399712120000001`"}], "7.723310162`", "0.470541774`"},
     {
      RowBox[{"-", "3.54323625`"}], "5.91484238`", 
      RowBox[{"-", "0.262671914`"}]},
     {
      RowBox[{"-", "3.050017764`"}], "3.314579404`", "0.852266426`"},
     {
      RowBox[{"-", "0.438416432`"}], "2.450974622`", "0.013228082`"},
     {"1.49288354`", "4.40306158`", "0.901399302`"},
     {"4.221647884`", "3.673627344`", "0.2834589`"},
     {
      RowBox[{"-", "0.149288354`"}], 
      RowBox[{"-", "2.076808874`"}], 
      RowBox[{"-", "0.287238352`"}]},
     {"2.010668464`", 
      RowBox[{"-", "3.8852766560000003`"}], "0.268341092`"},
     {"1.45508902`", 
      RowBox[{"-", "6.47231155`"}], 
      RowBox[{"-", "0.8503767`"}]},
     {
      RowBox[{"-", "1.084702724`"}], 
      RowBox[{"-", "7.36048277`"}], "0.166295888`"},
     {
      RowBox[{"-", "3.085922558`"}], 
      RowBox[{"-", "5.415954716`"}], 
      RowBox[{"-", "0.570697252`"}]},
     {
      RowBox[{"-", "5.7579951220000005`"}], 
      RowBox[{"-", "6.164286212`"}], "0.23243629799999999`"},
     {
      RowBox[{"-", "1.347374638`"}], 
      RowBox[{"-", "11.882597088`"}], "0.49132876000000003`"},
     {
      RowBox[{"-", "3.5621335100000002`"}], 
      RowBox[{"-", "13.666498432000001`"}], "0.12283219000000001`"},
     {
      RowBox[{"-", "2.953641738`"}], 
      RowBox[{"-", "16.206290176`"}], "1.3020212139999998`"},
     {
      RowBox[{"-", "0.5102260200000001`"}], 
      RowBox[{"-", "17.183278518`"}], "0.153067806`"},
     {"1.58736984`", 
      RowBox[{"-", "15.253868271999998`"}], "0.60471232`"},
     {"4.130941036`", 
      RowBox[{"-", "16.060781274`"}], 
      RowBox[{"-", "0.489439034`"}]},
     {
      RowBox[{"-", "2.609711606`"}], "16.51620524`", "0.6614040999999999`"},
     {"3.2824540620000002`", "11.481975175999999`", "0.863604782`"},
     {
      RowBox[{"-", "1.7139814820000001`"}], "9.958856019999999`", 
      RowBox[{"-", "0.999665054`"}]},
     {
      RowBox[{"-", "0.15684725800000002`"}], "19.828894918`", 
      "1.5476855939999998`"},
     {"4.257552678000001`", "16.682501128`", "0.196531504`"},
     {
      RowBox[{"-", "6.224757444`"}], "12.360697766000001`", "2.127831476`"},
     {
      RowBox[{"-", "5.854371147999999`"}], "6.865374558`", 
      "0.7899054679999999`"},
     {
      RowBox[{"-", "4.958641024`"}], "1.664848606`", 
      RowBox[{"-", "0.139839724`"}]},
     {"0.20786986`", "0.12283219000000001`", "1.216983544`"},
     {"0.91651711`", "6.72742456`", 
      RowBox[{"-", "0.338260954`"}]},
     {"4.418179388`", "2.641836948`", 
      RowBox[{"-", "2.218538324`"}]},
     {"4.236765692`", 
      RowBox[{"-", "2.898839684`"}], 
      RowBox[{"-", "0.9297451919999999`"}]},
     {"3.42985269`", 
      RowBox[{"-", "8.133380704`"}], 
      RowBox[{"-", "0.024566438`"}]},
     {
      RowBox[{"-", "1.7820116179999999`"}], 
      RowBox[{"-", "9.690514928`"}], 
      RowBox[{"-", "1.007223958`"}]},
     {
      RowBox[{"-", "2.443415718`"}], 
      RowBox[{"-", "3.101040366`"}], "0.6557349219999999`"},
     {
      RowBox[{"-", "5.775002656`"}], 
      RowBox[{"-", "7.141274554`"}], "2.7646691380000004`"},
     {
      RowBox[{"-", "5.699413616`"}], 
      RowBox[{"-", "12.625259406`"}], "1.42674313`"},
     {
      RowBox[{"-", "4.9775382839999995`"}], 
      RowBox[{"-", "17.903264124`"}], "0.68974999`"},
     {"0.105824656`", 
      RowBox[{"-", "19.494413416`"}], "1.430522582`"},
     {"0.857935604`", 
      RowBox[{"-", "12.948402552000001`"}], 
      RowBox[{"-", "0.602822594`"}]},
     {"3.802128712`", 
      RowBox[{"-", "16.986747014000002`"}], 
      RowBox[{"-", "3.01411297`"}]},
     {"0.13606027200000015`", "12.710297076000002`", "0.031180478999999983`"},
     {
      RowBox[{"-", "2.130666065`"}], "13.243199808`", 
      RowBox[{"-", "0.18613801099999994`"}]},
     {"1.659179428`", "14.445065544000002`", "0.362827392`"},
     {"0.8248653989999997`", "16.639982293000003`", "0.5385719099999999`"},
     {
      RowBox[{"-", "4.444635552`"}], "13.849801853999999`", 
      RowBox[{"-", "0.50077739`"}]},
     {
      RowBox[{"-", "2.4916037309999997`"}], "6.819076271`", 
      "0.10393493000000004`"},
     {
      RowBox[{"-", "3.296627007`"}], "4.614710892`", "0.29479725599999995`"},
     {
      RowBox[{"-", "1.744217098`"}], "2.882777013`", "0.43274725399999997`"},
     {"0.5272335539999997`", "3.427018101`", "0.4573136919999999`"},
     {"2.8572657120000002`", "4.0383444619999995`", "0.592429101`"},
     {"0.9306900550000001`", 
      RowBox[{"-", "2.981042765`"}], 
      RowBox[{"-", "0.009448629999999958`"}]},
     {"1.732878742`", 
      RowBox[{"-", "5.1787941029999995`"}], 
      RowBox[{"-", "0.291017804`"}]},
     {"0.1851931480000002`", 
      RowBox[{"-", "6.91639716`"}], 
      RowBox[{"-", "0.34204040600000013`"}]},
     {
      RowBox[{"-", "2.085312641`"}], 
      RowBox[{"-", "6.388218743`"}], 
      RowBox[{"-", "0.2022006819999999`"}]},
     {
      RowBox[{"-", "4.42195884`"}], 
      RowBox[{"-", "5.790120464`"}], 
      RowBox[{"-", "0.169130477`"}]},
     {
      RowBox[{"-", "2.4547540740000002`"}], 
      RowBox[{"-", "12.77454776`"}], "0.307080475`"},
     {
      RowBox[{"-", "3.2578876240000003`"}], 
      RowBox[{"-", "14.936394304`"}], "0.7124267019999998`"},
     {
      RowBox[{"-", "1.731933879`"}], 
      RowBox[{"-", "16.694784347000002`"}], "0.72754451`"},
     {"0.5385719100000002`", 
      RowBox[{"-", "16.218573395`"}], "0.37889006300000005`"},
     {"2.859155438`", 
      RowBox[{"-", "15.657324773`"}], "0.057636643000000154`"},
     {
      RowBox[{"-", "2.8290849789416854`"}], "15.403734411525846`", 
      "0.006037621839483309`"},
     {
      RowBox[{"-", "1.4377243529976351`"}], "17.0182232724137`", 
      "0.3879098154309281`"},
     {"2.4030004686819226`", "12.297168068344941`", "0.3210608637839416`"},
     {
      RowBox[{"-", "1.464307157485476`"}], "11.076882958451067`", 
      RowBox[{"-", "0.3607925177422473`"}]},
     {
      RowBox[{"-", "1.5808985553753363`"}], "8.873082901400156`", 
      RowBox[{"-", "0.2856063166621493`"}]},
     {
      RowBox[{"-", "0.17612375651937584`"}], "18.721873145887272`", 
      "0.8436344337923203`"},
     {"3.086188589682549`", "16.219830673053295`", "0.576582234849079`"},
     {
      RowBox[{"-", "6.03196891079359`"}], "12.901423699612264`", 
      "0.9417229764634198`"},
     {
      RowBox[{"-", "4.731617790461457`"}], "6.403604370884802`", 
      "0.27856154310305126`"},
     {
      RowBox[{"-", "4.031435980049896`"}], "2.4662842528994466`", 
      "0.3421232938948562`"},
     {
      RowBox[{"-", "0.10605580034844389`"}], "1.2536988962844529`", 
      "0.6322740538188341`"},
     {"0.03440512464181758`", 
      RowBox[{"-", "0.9454903071265837`"}], "0.4864124892639514`"},
     {
      RowBox[{"-", "0.22791353586951457`"}], "7.21107728684301`", 
      "0.0545348089768663`"},
     {"1.1964713859207725`", "5.598428627598197`", "0.26387020994762855`"},
     {"4.322702063948166`", "3.1430928992721276`", 
      RowBox[{"-", "1.00303854472473`"}]},
     {"3.1552997326602754`", 
      RowBox[{"-", "3.3780631396666694`"}], 
      RowBox[{"-", "0.34769984546232147`"}]},
     {"2.470531911498847`", 
      RowBox[{"-", "7.326449637681805`"}], 
      RowBox[{"-", "0.4257369453732095`"}]},
     {
      RowBox[{"-", "1.4432986168208115`"}], 
      RowBox[{"-", "8.55871782649881`"}], 
      RowBox[{"-", "0.4371947608935608`"}]},
     {
      RowBox[{"-", "1.5709121817011342`"}], 
      RowBox[{"-", "10.75519034585515`"}], 
      RowBox[{"-", "0.27938981458695444`"}]},
     {
      RowBox[{"-", "1.3292655107660023`"}], 
      RowBox[{"-", "2.6036191037917407`"}], "0.19777697026213775`"},
     {
      RowBox[{"-", "2.7554985174411972`"}], 
      RowBox[{"-", "4.225456334574902`"}], "0.06002393130194972`"},
     {
      RowBox[{"-", "5.766740133145508`"}], 
      RowBox[{"-", "6.666638518914218`"}], "1.534471290775729`"},
     {
      RowBox[{"-", "4.661120140302886`"}], 
      RowBox[{"-", "13.131094689031928`"}], "0.7933014870017606`"},
     {
      RowBox[{"-", "3.99432976843808`"}], 
      RowBox[{"-", "17.07887453765583`"}], "0.9871912215985639`"},
     {
      RowBox[{"-", "0.19345382230837077`"}], 
      RowBox[{"-", "18.371660106272586`"}], "0.8099328539740532`"},
     {
      RowBox[{"-", "0.2130698090633062`"}], 
      RowBox[{"-", "12.430795822807452`"}], 
      RowBox[{"-", "0.07144972839275543`"}]},
     {"1.2122624897079726`", 
      RowBox[{"-", "14.068295817709135`"}], 
      RowBox[{"-", "0.01625554745234592`"}]},
     {"3.961862094101694`", 
      RowBox[{"-", "16.53692312187454`"}], 
      RowBox[{"-", "1.7876543580007886`"}]},
     {"1.6966067353363496`", "13.253712553146453`", 
      RowBox[{"-", "1.7641905780243905`"}]},
     {
      RowBox[{"-", "1.3926561778383741`"}], "12.103645579903038`", 
      "1.8212421249655808`"},
     {
      RowBox[{"-", "2.8313050736605416`"}], "14.457285925515144`", 
      RowBox[{"-", "2.1838808407943238`"}]},
     {
      RowBox[{"-", "0.06861357672388241`"}], "17.871743372565717`", 
      RowBox[{"-", "1.3844818351360726`"}]},
     {"1.8063207228707931`", "15.590972344963799`", "2.502167258238024`"},
     {"5.1086104152948115`", "15.776579605753792`", "0.4641597232750979`"},
     {"3.09362135529579`", "10.334247306173701`", "0.34130155069048196`"},
     {
      RowBox[{"-", "6.730823972028141`"}], "14.695976839403947`", 
      RowBox[{"-", "0.4582150095106019`"}]},
     {
      RowBox[{"-", "6.259057352247132`"}], "12.490245897800472`", 
      RowBox[{"-", "1.4046362273473758`"}]},
     {
      RowBox[{"-", "6.169758291331338`"}], "11.087668598132668`", 
      "1.9842971019622713`"},
     {
      RowBox[{"-", "0.34656590227196604`"}], "19.548325091963992`", 
      "2.7661602670706555`"},
     {
      RowBox[{"-", "1.4454730994579605`"}], "7.997029063033533`", 
      "1.9684306344297322`"},
     {
      RowBox[{"-", "3.651994716191561`"}], "5.826734255490381`", 
      RowBox[{"-", "1.7839137512363872`"}]},
     {
      RowBox[{"-", "3.134067800880106`"}], "3.362804834996782`", 
      "2.381701523326519`"},
     {
      RowBox[{"-", "0.3833458300325527`"}], "2.336703122917547`", 
      RowBox[{"-", "1.509474062399919`"}]},
     {"1.3909261767821763`", "4.593198284379184`", "2.4183595304165397`"},
     {"5.131442386798183`", "4.894486230508303`", "0.39219379519070563`"},
     {"4.740895846834354`", "2.6571684671518487`", "1.302672407950721`"},
     {
      RowBox[{"-", "6.737791401281884`"}], "5.976600242577015`", 
      "0.5677118891442536`"},
     {
      RowBox[{"-", "4.706753964783188`"}], "0.4951815703815081`", 
      "0.3063219287616928`"},
     {"4.395388360751405`", "1.3668800707403699`", 
      RowBox[{"-", "2.111286431065436`"}]},
     {
      RowBox[{"-", "0.24415985416310756`"}], 
      RowBox[{"-", "1.7701951850670583`"}], 
      RowBox[{"-", "1.7735585212220186`"}]},
     {"2.2254460204714657`", 
      RowBox[{"-", "3.994042213443883`"}], "1.77729110413286`"},
     {"1.4289256569567417`", 
      RowBox[{"-", "6.400706556407925`"}], 
      RowBox[{"-", "2.37749089026176`"}]},
     {
      RowBox[{"-", "1.0296603995325202`"}], 
      RowBox[{"-", "7.482951941940144`"}], "1.685464043302448`"},
     {
      RowBox[{"-", "3.088678364352477`"}], 
      RowBox[{"-", "5.207891336387986`"}], 
      RowBox[{"-", "2.08914655221483`"}]},
     {
      RowBox[{"-", "6.691442390063047`"}], 
      RowBox[{"-", "4.956862533399273`"}], "0.15809094036665997`"},
     {
      RowBox[{"-", "6.328219913118816`"}], 
      RowBox[{"-", "7.208320974483243`"}], 
      RowBox[{"-", "0.7303345449759722`"}]},
     {"5.142318135820718`", 
      RowBox[{"-", "3.774965017386367`"}], 
      RowBox[{"-", "0.7732464683264048`"}]},
     {"3.116399328676289`", 
      RowBox[{"-", "9.304142403986852`"}], 
      RowBox[{"-", "0.42375063319002476`"}]},
     {
      RowBox[{"-", "5.78170451666697`"}], 
      RowBox[{"-", "8.417308824991142`"}], "2.6815660657295686`"},
     {
      RowBox[{"-", "1.1355678723513924`"}], 
      RowBox[{"-", "11.562136202310873`"}], "1.9643485392834983`"},
     {
      RowBox[{"-", "3.8733467351861663`"}], 
      RowBox[{"-", "13.826236193599978`"}], 
      RowBox[{"-", "1.3657585021515275`"}]},
     {
      RowBox[{"-", "2.8159177604555317`"}], 
      RowBox[{"-", "16.07132067800642`"}], "2.8197394465400425`"},
     {
      RowBox[{"-", "0.7071728222410854`"}], 
      RowBox[{"-", "17.429806333392687`"}], 
      RowBox[{"-", "1.344003341105313`"}]},
     {"1.7664148437162277`", 
      RowBox[{"-", "15.010091613094058`"}], "2.1045585434382454`"},
     {"5.108694555393685`", 
      RowBox[{"-", "14.884722815461682`"}], 
      RowBox[{"-", "0.4866847987341023`"}]},
     {"4.75181068667548`", 
      RowBox[{"-", "17.160725511006003`"}], "0.3695912587305976`"},
     {
      RowBox[{"-", "6.616055750704573`"}], 
      RowBox[{"-", "13.504432957096212`"}], "1.3665257634865609`"},
     {
      RowBox[{"-", "4.609748126728132`"}], 
      RowBox[{"-", "19.056119089703092`"}], "1.0722517535627423`"},
     {"0.3237390121349573`", 
      RowBox[{"-", "19.213664859016312`"}], "2.6470996622626455`"},
     {"3.594947127544483`", 
      RowBox[{"-", "18.235183142267438`"}], 
      RowBox[{"-", "2.960646754656641`"}]}
    },
    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.5703420348791513`*^9, 3.5703421644061785`*^9, 
  3.5703425129107904`*^9, 3.570342890010253*^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}}],

Cell[BoxData[
 TagBox[
  RowBox[{"(", "\[NoBreak]", GridBox[{
     {"1.4720965540000002`", "13.160051864000001`", 
      RowBox[{"-", "0.253223284`"}]},
     {
      RowBox[{"-", "1.19997601`"}], "12.260542288000002`", "0.315584242`"},
     {
      RowBox[{"-", "3.06135612`"}], "14.225857328`", 
      RowBox[{"-", "0.687860264`"}]},
     {
      RowBox[{"-", "0.196531504`"}], "17.549885362`", "0.098265752`"},
     {"1.846262302`", "15.730079224`", "0.978878068`"},
     {
      RowBox[{"-", "5.827914984`"}], "13.47374638`", 
      RowBox[{"-", "0.31369451600000003`"}]},
     {
      RowBox[{"-", "1.4399712120000001`"}], "7.723310162`", "0.470541774`"},
     {
      RowBox[{"-", "3.54323625`"}], "5.91484238`", 
      RowBox[{"-", "0.262671914`"}]},
     {
      RowBox[{"-", "3.050017764`"}], "3.314579404`", "0.852266426`"},
     {
      RowBox[{"-", "0.438416432`"}], "2.450974622`", "0.013228082`"},
     {"1.49288354`", "4.40306158`", "0.901399302`"},
     {"4.221647884`", "3.673627344`", "0.2834589`"},
     {
      RowBox[{"-", "0.149288354`"}], 
      RowBox[{"-", "2.076808874`"}], 
      RowBox[{"-", "0.287238352`"}]},
     {"2.010668464`", 
      RowBox[{"-", "3.8852766560000003`"}], "0.268341092`"},
     {"1.45508902`", 
      RowBox[{"-", "6.47231155`"}], 
      RowBox[{"-", "0.8503767`"}]},
     {
      RowBox[{"-", "1.084702724`"}], 
      RowBox[{"-", "7.36048277`"}], "0.166295888`"},
     {
      RowBox[{"-", "3.085922558`"}], 
      RowBox[{"-", "5.415954716`"}], 
      RowBox[{"-", "0.570697252`"}]},
     {
      RowBox[{"-", "5.7579951220000005`"}], 
      RowBox[{"-", "6.164286212`"}], "0.23243629799999999`"},
     {
      RowBox[{"-", "1.347374638`"}], 
      RowBox[{"-", "11.882597088`"}], "0.49132876000000003`"},
     {
      RowBox[{"-", "3.5621335100000002`"}], 
      RowBox[{"-", "13.666498432000001`"}], "0.12283219000000001`"},
     {
      RowBox[{"-", "2.953641738`"}], 
      RowBox[{"-", "16.206290176`"}], "1.3020212139999998`"},
     {
      RowBox[{"-", "0.5102260200000001`"}], 
      RowBox[{"-", "17.183278518`"}], "0.153067806`"},
     {"1.58736984`", 
      RowBox[{"-", "15.253868271999998`"}], "0.60471232`"},
     {"4.130941036`", 
      RowBox[{"-", "16.060781274`"}], 
      RowBox[{"-", "0.489439034`"}]},
     {
      RowBox[{"-", "2.609711606`"}], "16.51620524`", "0.6614040999999999`"},
     {"3.2824540620000002`", "11.481975175999999`", "0.863604782`"},
     {
      RowBox[{"-", "1.7139814820000001`"}], "9.958856019999999`", 
      RowBox[{"-", "0.999665054`"}]},
     {
      RowBox[{"-", "0.15684725800000002`"}], "19.828894918`", 
      "1.5476855939999998`"},
     {"4.257552678000001`", "16.682501128`", "0.196531504`"},
     {
      RowBox[{"-", "6.224757444`"}], "12.360697766000001`", "2.127831476`"},
     {
      RowBox[{"-", "5.854371147999999`"}], "6.865374558`", 
      "0.7899054679999999`"},
     {
      RowBox[{"-", "4.958641024`"}], "1.664848606`", 
      RowBox[{"-", "0.139839724`"}]},
     {"0.20786986`", "0.12283219000000001`", "1.216983544`"},
     {"0.91651711`", "6.72742456`", 
      RowBox[{"-", "0.338260954`"}]},
     {"4.418179388`", "2.641836948`", 
      RowBox[{"-", "2.218538324`"}]},
     {"4.236765692`", 
      RowBox[{"-", "2.898839684`"}], 
      RowBox[{"-", "0.9297451919999999`"}]},
     {"3.42985269`", 
      RowBox[{"-", "8.133380704`"}], 
      RowBox[{"-", "0.024566438`"}]},
     {
      RowBox[{"-", "1.7820116179999999`"}], 
      RowBox[{"-", "9.690514928`"}], 
      RowBox[{"-", "1.007223958`"}]},
     {
      RowBox[{"-", "2.443415718`"}], 
      RowBox[{"-", "3.101040366`"}], "0.6557349219999999`"},
     {
      RowBox[{"-", "5.775002656`"}], 
      RowBox[{"-", "7.141274554`"}], "2.7646691380000004`"},
     {
      RowBox[{"-", "5.699413616`"}], 
      RowBox[{"-", "12.625259406`"}], "1.42674313`"},
     {
      RowBox[{"-", "4.9775382839999995`"}], 
      RowBox[{"-", "17.903264124`"}], "0.68974999`"},
     {"0.105824656`", 
      RowBox[{"-", "19.494413416`"}], "1.430522582`"},
     {"0.857935604`", 
      RowBox[{"-", "12.948402552000001`"}], 
      RowBox[{"-", "0.602822594`"}]},
     {"3.802128712`", 
      RowBox[{"-", "16.986747014000002`"}], 
      RowBox[{"-", "3.01411297`"}]},
     {"0", "0", "0"},
     {"0", "0", "0"},
     {"0", "0", "0"},
     {"0", "0", "0"},
     {"0", "0", "0"},
     {"0", "0", "0"},
     {"0", "0", "0"},
     {"0", "0", "0"},
     {"0", "0", "0"},
     {"0", "0", "0"},
     {"0", "0", "0"},
     {"0", "0", "0"},
     {"0", "0", "0"},
     {"0", "0", "0"},
     {"0", "0", "0"},
     {"0", "0", "0"},
     {"0", "0", "0"},
     {"0", "0", "0"},
     {"0", "0", "0"},
     {"0", "0", "0"},
     {"0", "0", "0"},
     {"0", "0", "0"},
     {"0", "0", "0"},
     {"0", "0", "0"},
     {"0", "0", "0"},
     {"0", "0", "0"},
     {"0", "0", "0"},
     {"0", "0", "0"},
     {"0", "0", "0"},
     {"0", "0", "0"},
     {"0", "0", "0"},
     {"0", "0", "0"},
     {"0", "0", "0"},
     {"0", "0", "0"},
     {"0", "0", "0"},
     {"0", "0", "0"},
     {"0", "0", "0"},
     {"0", "0", "0"},
     {"0", "0", "0"},
     {"0", "0", "0"},
     {"0", "0", "0"},
     {"0", "0", "0"},
     {"0", "0", "0"},
     {"0", "0", "0"},
     {"0", "0", "0"},
     {"0", "0", "0"},
     {"0", "0", "0"},
     {"0", "0", "0"},
     {"1.780121892`", "13.288553232`", 
      RowBox[{"-", "2.326252706`"}]},
     {
      RowBox[{"-", "1.46453765`"}], "12.045113524`", "2.382944486`"},
     {
      RowBox[{"-", "2.745771878`"}], "14.543331296`", 
      RowBox[{"-", "2.7401027`"}]},
     {
      RowBox[{"-", "0.020786986`"}], "17.992081246`", 
      RowBox[{"-", "1.938858876`"}]},
     {"1.791460248`", "15.539216898000001`", "3.0689150240000003`"},
     {"5.459418414`", "15.403156626`", "0.574476704`"},
     {"3.016002696`", "9.862479994000001`", "0.126611642`"},
     {
      RowBox[{"-", "7.06757524`"}], "15.151823068`", 
      RowBox[{"-", "0.5121157460000001`"}]},
     {
      RowBox[{"-", "6.419399222`"}], "12.124482016`", 
      RowBox[{"-", "1.8103575079999998`"}]},
     {
      RowBox[{"-", "6.147278678`"}], "10.567347792`", "1.925630794`"},
     {
      RowBox[{"-", "0.42518835`"}], "19.432052457999998`", 
      "3.2711157060000002`"},
     {
      RowBox[{"-", "1.447530116`"}], "8.099365636`", "2.528453388`"},
     {
      RowBox[{"-", "3.692524604`"}], "5.793899916`", 
      RowBox[{"-", "2.350819144`"}]},
     {
      RowBox[{"-", "3.16529105`"}], "3.380719814`", "2.949862286`"},
     {
      RowBox[{"-", "0.362827392`"}], "2.294127364`", 
      RowBox[{"-", "2.076808874`"}]},
     {"1.353043816`", "4.663843768`", "2.981987628`"},
     {"5.47075677`", "5.349814306`", "0.432747254`"},
     {"4.934074586`", "2.279009556`", "1.68185614`"},
     {
      RowBox[{"-", "7.1015903080000005`"}], "5.610596494`", "0.476210952`"},
     {
      RowBox[{"-", "4.603372536`"}], "0.015117808`", "0.489439034`"},
     {"4.386054046`", "0.844707522`", 
      RowBox[{"-", "2.067360244`"}]},
     {
      RowBox[{"-", "0.279679448`"}], 
      RowBox[{"-", "1.655399976`"}], 
      RowBox[{"-", "2.3300321580000003`"}]},
     {"2.30546572`", 
      RowBox[{"-", "4.03456501`"}], "2.339480788`"},
     {"1.419184226`", 
      RowBox[{"-", "6.374045798`"}], 
      RowBox[{"-", "2.946082834`"}]},
     {
      RowBox[{"-", "1.0091136840000001`"}], 
      RowBox[{"-", "7.528668384`"}], "2.252553392`"},
     {
      RowBox[{"-", "3.08970201`"}], 
      RowBox[{"-", "5.13060609`"}], 
      RowBox[{"-", "2.653175304`"}]},
     {
      RowBox[{"-", "7.03922935`"}], 
      RowBox[{"-", "4.50699651`"}], "0.130391094`"},
     {
      RowBox[{"-", "6.540341686`"}], 
      RowBox[{"-", "7.5966985199999995`"}], 
      RowBox[{"-", "1.0884821759999999`"}]},
     {"5.516110194`", 
      RowBox[{"-", "4.136610214`"}], 
      RowBox[{"-", "0.7086472500000001`"}]},
     {"2.987656806`", 
      RowBox[{"-", "9.785001228`"}], 
      RowBox[{"-", "0.587704786`"}]},
     {
      RowBox[{"-", "5.784451286`"}], 
      RowBox[{"-", "8.940293706`"}], "2.647506126`"},
     {
      RowBox[{"-", "1.056356834`"}], 
      RowBox[{"-", "11.44229093`"}], "2.515225306`"},
     {
      RowBox[{"-", "3.9892115860000006`"}], 
      RowBox[{"-", "13.885706648`"}], 
      RowBox[{"-", "1.9199616160000001`"}]},
     {
      RowBox[{"-", "2.7646691380000004`"}], 
      RowBox[{"-", "16.021097028`"}], "3.3844992659999997`"},
     {
      RowBox[{"-", "0.780456838`"}], 
      RowBox[{"-", "17.521539472`"}], 
      RowBox[{"-", "1.901064356`"}]},
     {"1.83303422`", 
      RowBox[{"-", "14.91938677`"}], "2.662623934`"},
     {"5.472646496`", 
      RowBox[{"-", "14.44695527`"}], 
      RowBox[{"-", "0.48565958200000003`"}]},
     {"4.983207462`", 
      RowBox[{"-", "17.570672348`"}], "0.68974999`"},
     {
      RowBox[{"-", "6.993875926`"}], 
      RowBox[{"-", "13.866809388`"}], "1.34170546`"},
     {
      RowBox[{"-", "4.457863634`"}], 
      RowBox[{"-", "19.532207936000002`"}], "1.230211626`"},
     {"0.413849994`", 
      RowBox[{"-", "19.097570956`"}], "3.150173242`"},
     {"3.509221182`", 
      RowBox[{"-", "18.751751098`"}], 
      RowBox[{"-", "2.93852393`"}]}
    },
    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.5703420350507517`*^9, 3.570342164530979*^9, 
  3.570342513035591*^9, 3.5703428901506534`*^9}]
}, Open  ]],

Cell[BoxData[
 RowBox[{
  RowBox[{"(*", " ", 
   RowBox[{"nucleus", "-", 
    RowBox[{"cloud", " ", "distances"}]}], " ", "*)"}], "\[IndentingNewLine]", 
  RowBox[{
   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[{
            RowBox[{"-", "2"}], "/", "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}}],

Cell[CellGroupData[{

Cell[BoxData[
 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"}], "}"}]}], "]"}]}], 
   "]"}]}]], "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.5692132215357027`*^9, 3.5692134269568634`*^9}, {
   3.569213527889041*^9, 3.569213567871911*^9}, {3.5692136024727716`*^9, 
   3.5692136035959735`*^9}, {3.5692136633596783`*^9, 
   3.5692136641240797`*^9}, {3.5692137511410327`*^9, 3.569213751343833*^9}, {
   3.569213815132345*^9, 3.569213856659618*^9}, {3.5692138980308905`*^9, 
   3.5692139153313212`*^9}, {3.5692139536293883`*^9, 
   3.5692140116146903`*^9}, {3.569214080816412*^9, 3.5692141084596605`*^9}, {
   3.569233762887478*^9, 3.5692337633554783`*^9}}],

Cell[BoxData[
 RowBox[{"{", 
  RowBox[{
  "6.`", ",", "6.`", ",", "6.`", ",", "6.`", ",", "6.`", ",", "6.`", ",", 
   "6.`", ",", "6.`", ",", "6.`", ",", "6.`", ",", "6.`", ",", "6.`", ",", 
   "6.`", ",", "6.`", ",", "6.`", ",", "6.`", ",", "6.`", ",", "6.`", ",", 
   "6.`", ",", "6.`", ",", "6.`", ",", "6.`", ",", "6.`", ",", "6.`", ",", 
   "8.`", ",", "8.`", ",", "8.`", ",", "8.`", ",", "8.`", ",", "8.`", ",", 
   "8.`", ",", "8.`", ",", "8.`", ",", "8.`", ",", "8.`", ",", "8.`", ",", 
   "8.`", ",", "8.`", ",", "8.`", ",", "8.`", ",", "8.`", ",", "8.`", ",", 
   "8.`", ",", "8.`", ",", "8.`", ",", "0.`", ",", "0.`", ",", "0.`", ",", 
   "0.`", ",", "0.`", ",", "0.`", ",", "0.`", ",", "0.`", ",", "0.`", ",", 
   "0.`", ",", "0.`", ",", "0.`", ",", "0.`", ",", "0.`", ",", "0.`", ",", 
   "0.`", ",", "0.`", ",", "0.`", ",", "0.`", ",", "0.`", ",", "0.`", ",", 
   "0.`", ",", "0.`", ",", "0.`", ",", "0.`", ",", "0.`", ",", "0.`", ",", 
   "0.`", ",", "0.`", ",", "0.`", ",", "0.`", ",", "0.`", ",", "0.`", ",", 
   "0.`", ",", "0.`", ",", "0.`", ",", "0.`", ",", "0.`", ",", "0.`", ",", 
   "0.`", ",", "0.`", ",", "0.`", ",", "0.`", ",", "0.`", ",", "0.`", ",", 
   "0.`", ",", "0.`", ",", "0.`", ",", "1.`", ",", "1.`", ",", "1.`", ",", 
   "1.`", ",", "1.`", ",", "1.`", ",", "1.`", ",", "1.`", ",", "1.`", ",", 
   "1.`", ",", "1.`", ",", "1.`", ",", "1.`", ",", "1.`", ",", "1.`", ",", 
   "1.`", ",", "1.`", ",", "1.`", ",", "1.`", ",", "1.`", ",", "1.`", ",", 
   "1.`", ",", "1.`", ",", "1.`", ",", "1.`", ",", "1.`", ",", "1.`", ",", 
   "1.`", ",", "1.`", ",", "1.`", ",", "1.`", ",", "1.`", ",", "1.`", ",", 
   "1.`", ",", "1.`", ",", "1.`", ",", "1.`", ",", "1.`", ",", "1.`", ",", 
   "1.`", ",", "1.`", ",", "1.`"}], "}"}]], "Output",
 CellChangeTimes->{3.570342035222352*^9, 3.5703421646869793`*^9, 
  3.5703425132227917`*^9, 3.5703428903222537`*^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[{"4", "/", 
          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}}],

Cell[BoxData["4052.4034177679605`"], "Output",
 CellChangeTimes->{3.5703420352691517`*^9, 3.570342164733779*^9, 
  3.570342513253991*^9, 3.5703428903534536`*^9}]
}, Open  ]],

Cell[CellGroupData[{

Cell[BoxData[{
 RowBox[{
  RowBox[{
   RowBox[{"sc", "=", "0.24"}], ";"}], "   ", 
  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[{
   RowBox[{"sw", "=", "0.24"}], ";"}], "  ", 
  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}}],

Cell[BoxData["4260.08610899009`"], "Output",
 CellChangeTimes->{3.570342035284752*^9, 3.570342164749379*^9, 
  3.5703425132695913`*^9, 3.570342890369054*^9}]
}, Open  ]],

Cell[CellGroupData[{

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

Cell[BoxData[
 RowBox[{"-", "10839.8657665017`"}]], "Output",
 CellChangeTimes->{3.5703420353159523`*^9, 3.5703421647649794`*^9, 
  3.5703425132851915`*^9, 3.570342890384654*^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[{"-", "15365.444087717806`"}]], "Output",
 CellChangeTimes->{3.570342035331552*^9, 3.5703421647961793`*^9, 
  3.570342513316392*^9, 3.570342890400254*^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[{"-", "15462.450863936618`"}]], "Output",
 CellChangeTimes->{3.570342035362752*^9, 3.5703421648117795`*^9, 
  3.5703425133319917`*^9, 3.570342890415854*^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["6247.187839425834`"], "Output",
 CellChangeTimes->{3.570342035393952*^9, 3.5703421648429794`*^9, 
  3.5703425133631916`*^9, 3.570342890462654*^9}]
}, Open  ]],

Cell[BoxData[""], "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.5689102484819775`*^9}, {3.568910416821873*^9, 3.568910421314681*^9}, {
   3.5689104658527594`*^9, 3.568910491858005*^9}, {3.5689105421368933`*^9, 
   3.5689105444144974`*^9}, {3.568912692943871*^9, 3.56891270358309*^9}, {
   3.569081202041748*^9, 3.5690812220097833`*^9}, {3.569081528363121*^9, 
   3.5690815341975317`*^9}, {3.5690815797964115`*^9, 
   3.5690815808572135`*^9}, {3.569087876950272*^9, 3.569087906793124*^9}, {
   3.5691451539721675`*^9, 3.5691451954526405`*^9}, 3.56914526334396*^9, {
   3.5691715700987234`*^9, 3.5691716005343766`*^9}, 3.5692316175093093`*^9}],

Cell[CellGroupData[{

Cell[BoxData[{"Vee", "\[IndentingNewLine]", "Vnn", "\[IndentingNewLine]", \
"Vne", "\[IndentingNewLine]", 
 RowBox[{"Vtot", "=", 
  RowBox[{
  "Vne", "+", "Vee", "+", 
   "Vnn"}]}], "\[IndentingNewLine]", "Ttot", "\[IndentingNewLine]", 
 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}}],

Cell[BoxData["4260.08610899009`"], "Output",
 CellChangeTimes->{3.570342035425152*^9, 3.57034216487418*^9, 
  3.570342513378792*^9, 3.5703428904782543`*^9}],

Cell[BoxData["6247.187839425834`"], "Output",
 CellChangeTimes->{3.570342035425152*^9, 3.57034216487418*^9, 
  3.570342513378792*^9, 3.570342890493854*^9}],

Cell[BoxData[
 RowBox[{"-", "15462.450863936618`"}]], "Output",
 CellChangeTimes->{3.570342035425152*^9, 3.57034216487418*^9, 
  3.570342513378792*^9, 3.570342890493854*^9}],

Cell[BoxData[
 RowBox[{"-", "4955.176915520694`"}]], "Output",
 CellChangeTimes->{3.570342035425152*^9, 3.57034216487418*^9, 
  3.570342513378792*^9, 3.570342890493854*^9}],

Cell[BoxData["2467.938151190537`"], "Output",
 CellChangeTimes->{3.570342035425152*^9, 3.57034216487418*^9, 
  3.570342513378792*^9, 3.570342890493854*^9}],

Cell[BoxData["2.0078205416656445`"], "Output",
 CellChangeTimes->{3.570342035425152*^9, 3.57034216487418*^9, 
  3.570342513378792*^9, 3.570342890493854*^9}],

Cell[BoxData[
 RowBox[{"-", "2487.2387643301568`"}]], "Output",
 CellChangeTimes->{3.570342035425152*^9, 3.57034216487418*^9, 
  3.570342513378792*^9, 3.570342890493854*^9}]
}, Open  ]]
},
WindowSize->{1294, 939},
WindowMargins->{{172, Automatic}, {-24, Automatic}},
PrintingCopies->1,
PrintingPageRange->{32000, 32000},
PrintingOptions->{"Magnification"->1.,
"PaperOrientation"->"Portrait",
"PaperSize"->{595.2, 841.8}},
Magnification->0.8999999761581421,
FrontEndVersion->"9.0 for Microsoft Windows (64-bit) (January 25, 2013)",
StyleDefinitions->"Default.nb"
]
(* End of Notebook Content *)

(* Internal cache information *)
(*CellTagsOutline
CellTagsIndex->{}
*)
(*CellTagsIndex
CellTagsIndex->{}
*)
(*NotebookFileOutline
Notebook[{
Cell[557, 20, 1263, 26, 50, "Input"],
Cell[1823, 48, 11811, 327, 430, "Input"],
Cell[CellGroupData[{
Cell[13659, 379, 955, 14, 29, "Input"],
Cell[14617, 395, 146, 2, 28, "Output"]
}, Open  ]],
Cell[14778, 400, 3399, 49, 70, "Input"],
Cell[CellGroupData[{
Cell[18202, 453, 1560, 29, 29, "Input"],
Cell[19765, 484, 1817, 25, 48, "Output"]
}, Open  ]],
Cell[21597, 512, 1390, 22, 29, "Input"],
Cell[22990, 536, 1566, 28, 29, "Input"],
Cell[CellGroupData[{
Cell[24581, 568, 1234, 18, 29, "Input"],
Cell[25818, 588, 6079, 178, 105, "Output"]
}, Open  ]],
Cell[CellGroupData[{
Cell[31934, 771, 697, 14, 29, "Input"],
Cell[32634, 787, 1168, 18, 48, "Output"]
}, Open  ]],
Cell[33817, 808, 908, 24, 29, "Input"],
Cell[CellGroupData[{
Cell[34750, 836, 4677, 109, 50, "Input"],
Cell[39430, 947, 1458, 21, 67, "Output"],
Cell[40891, 970, 1458, 21, 67, "Output"]
}, Open  ]],
Cell[CellGroupData[{
Cell[42386, 996, 519, 12, 29, "Input"],
Cell[42908, 1010, 1814, 25, 48, "Output"]
}, Open  ]],
Cell[CellGroupData[{
Cell[44759, 1040, 1401, 38, 29, "Input"],
Cell[46163, 1080, 1270, 19, 48, "Output"]
}, Open  ]],
Cell[CellGroupData[{
Cell[47470, 1104, 827, 23, 90, "Input"],
Cell[48300, 1129, 143, 2, 28, "Output"],
Cell[48446, 1133, 143, 2, 28, "Output"]
}, Open  ]],
Cell[48604, 1138, 1796, 35, 90, "Input"],
Cell[50403, 1175, 935, 19, 29, "Input"],
Cell[51341, 1196, 4271, 83, 70, "Input"],
Cell[55615, 1281, 3240, 56, 29, "Input"],
Cell[58858, 1339, 2275, 53, 29, "Input"],
Cell[61136, 1394, 1254, 35, 70, "Input"],
Cell[CellGroupData[{
Cell[62415, 1433, 4022, 75, 70, "Input"],
Cell[66440, 1510, 44532, 626, 1327, "Output"]
}, Open  ]],
Cell[CellGroupData[{
Cell[111009, 2141, 3292, 75, 110, "Input"],
Cell[114304, 2218, 1591, 23, 86, "Output"]
}, Open  ]],
Cell[115910, 2244, 1808, 44, 90, "Input"],
Cell[117721, 2290, 561, 12, 50, "Input"],
Cell[118285, 2304, 2148, 49, 90, "Input"],
Cell[120436, 2355, 2230, 52, 70, "Input"],
Cell[122669, 2409, 1525, 36, 50, "Input"],
Cell[CellGroupData[{
Cell[124219, 2449, 923, 20, 29, "Input"],
Cell[125145, 2471, 165, 2, 28, "Output"]
}, Open  ]],
Cell[CellGroupData[{
Cell[125347, 2478, 711, 18, 29, "Input"],
Cell[126061, 2498, 155, 2, 28, "Output"]
}, Open  ]],
Cell[CellGroupData[{
Cell[126253, 2505, 507, 10, 29, "Input"],
Cell[126763, 2517, 159, 2, 28, "Output"]
}, Open  ]],
Cell[CellGroupData[{
Cell[126959, 2524, 823, 23, 29, "Input"],
Cell[127785, 2549, 160, 2, 28, "Output"]
}, Open  ]],
Cell[CellGroupData[{
Cell[127982, 2556, 204, 4, 29, "Input"],
Cell[128189, 2562, 161, 2, 28, "Output"]
}, Open  ]],
Cell[128365, 2567, 1971, 35, 90, "Input"],
Cell[CellGroupData[{
Cell[130361, 2606, 1770, 24, 29, "Input"],
Cell[132134, 2632, 76428, 1044, 1398, "Output"]
}, Open  ]],
Cell[208577, 3679, 1655, 24, 29, "Input"],
Cell[CellGroupData[{
Cell[210257, 3707, 3421, 71, 70, "Input"],
Cell[CellGroupData[{
Cell[213703, 3782, 457, 9, 21, "Print"],
Cell[214163, 3793, 457, 9, 21, "Print"],
Cell[214623, 3804, 457, 9, 21, "Print"],
Cell[215083, 3815, 455, 9, 21, "Print"],
Cell[215541, 3826, 455, 9, 21, "Print"],
Cell[215999, 3837, 455, 9, 21, "Print"],
Cell[216457, 3848, 452, 9, 21, "Print"],
Cell[216912, 3859, 455, 9, 21, "Print"],
Cell[217370, 3870, 457, 9, 21, "Print"],
Cell[217830, 3881, 457, 9, 21, "Print"],
Cell[218290, 3892, 456, 9, 21, "Print"],
Cell[218749, 3903, 459, 9, 21, "Print"],
Cell[219211, 3914, 454, 9, 21, "Print"],
Cell[219668, 3925, 459, 9, 21, "Print"],
Cell[220130, 3936, 459, 9, 21, "Print"],
Cell[220592, 3947, 459, 9, 21, "Print"],
Cell[221054, 3958, 456, 9, 21, "Print"],
Cell[221513, 3969, 459, 9, 21, "Print"],
Cell[221975, 3980, 459, 9, 21, "Print"],
Cell[222437, 3991, 459, 9, 21, "Print"],
Cell[222899, 4002, 459, 9, 21, "Print"],
Cell[223361, 4013, 459, 9, 21, "Print"],
Cell[223823, 4024, 459, 9, 21, "Print"],
Cell[224285, 4035, 457, 9, 21, "Print"],
Cell[224745, 4046, 454, 9, 21, "Print"],
Cell[225202, 4057, 457, 9, 21, "Print"],
Cell[225662, 4068, 457, 9, 21, "Print"],
Cell[226122, 4079, 457, 9, 21, "Print"],
Cell[226582, 4090, 454, 9, 21, "Print"],
Cell[227039, 4101, 454, 9, 21, "Print"],
Cell[227496, 4112, 457, 9, 21, "Print"],
Cell[227956, 4123, 457, 9, 21, "Print"],
Cell[228416, 4134, 457, 9, 21, "Print"],
Cell[228876, 4145, 457, 9, 21, "Print"],
Cell[229336, 4156, 457, 9, 21, "Print"],
Cell[229796, 4167, 457, 9, 21, "Print"],
Cell[230256, 4178, 457, 9, 21, "Print"],
Cell[230716, 4189, 457, 9, 21, "Print"],
Cell[231176, 4200, 459, 9, 21, "Print"],
Cell[231638, 4211, 456, 9, 21, "Print"],
Cell[232097, 4222, 459, 9, 21, "Print"],
Cell[232559, 4233, 459, 9, 21, "Print"]
}, Open  ]]
}, Open  ]],
Cell[233045, 4246, 2696, 53, 90, "Input"],
Cell[CellGroupData[{
Cell[235766, 4303, 939, 17, 70, "Input"],
Cell[236708, 4322, 8131, 185, 219, "Output"],
Cell[244842, 4509, 148, 2, 28, "Output"],
Cell[244993, 4513, 148, 2, 28, "Output"]
}, Open  ]],
Cell[245156, 4518, 10201, 233, 70, "Input"],
Cell[255360, 4753, 6183, 100, 29, "Input"],
Cell[261546, 4855, 10215, 234, 70, "Input"],
Cell[271764, 5091, 5881, 93, 29, "Input"],
Cell[CellGroupData[{
Cell[277670, 5188, 7550, 137, 90, "Input"],
Cell[285223, 5327, 36799, 782, 337, "Output"],
Cell[322025, 6111, 30794, 561, 337, "Output"]
}, Open  ]],
Cell[CellGroupData[{
Cell[352856, 6677, 3719, 87, 150, "Input"],
Cell[356578, 6766, 147, 2, 28, "Output"],
Cell[356728, 6770, 14477, 370, 2047, "Output"]
}, Open  ]],
Cell[371220, 7143, 3049, 67, 70, "Input"],
Cell[374272, 7212, 1841, 29, 50, "Input"],
Cell[CellGroupData[{
Cell[376138, 7245, 3365, 73, 110, "Input"],
Cell[379506, 7320, 9749, 285, 2047, "Output"]
}, Open  ]],
Cell[389270, 7608, 5037, 110, 90, "Input"],
Cell[CellGroupData[{
Cell[394332, 7722, 2891, 52, 29, "Input"],
Cell[397226, 7776, 1881, 27, 67, "Output"]
}, Open  ]],
Cell[399122, 7806, 1863, 27, 29, "Input"],
Cell[CellGroupData[{
Cell[401010, 7837, 2435, 46, 110, "Input"],
Cell[403448, 7885, 161, 2, 28, "Output"]
}, Open  ]],
Cell[CellGroupData[{
Cell[403646, 7892, 1844, 47, 110, "Input"],
Cell[405493, 7941, 157, 2, 28, "Output"]
}, Open  ]],
Cell[CellGroupData[{
Cell[405687, 7948, 455, 13, 50, "Input"],
Cell[406145, 7963, 178, 3, 28, "Output"]
}, Open  ]],
Cell[406338, 7969, 1381, 21, 29, "Input"],
Cell[CellGroupData[{
Cell[407744, 7994, 1709, 32, 50, "Input"],
Cell[409456, 8028, 176, 3, 28, "Output"]
}, Open  ]],
Cell[CellGroupData[{
Cell[409669, 8036, 1415, 43, 70, "Input"],
Cell[411087, 8081, 178, 3, 28, "Output"]
}, Open  ]],
Cell[CellGroupData[{
Cell[411302, 8089, 2550, 50, 90, "Input"],
Cell[413855, 8141, 160, 2, 28, "Output"]
}, Open  ]],
Cell[414030, 8146, 1499, 20, 29, "Input"],
Cell[CellGroupData[{
Cell[415554, 8170, 669, 13, 170, "Input"],
Cell[416226, 8185, 156, 2, 28, "Output"],
Cell[416385, 8189, 155, 2, 28, "Output"],
Cell[416543, 8193, 173, 3, 28, "Output"],
Cell[416719, 8198, 172, 3, 28, "Output"],
Cell[416894, 8203, 155, 2, 28, "Output"],
Cell[417052, 8207, 156, 2, 28, "Output"],
Cell[417211, 8211, 173, 3, 28, "Output"]
}, Open  ]]
}
]
*)

(* End of internal cache information *)