(* 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[    801388,      16038]
NotebookOptionsPosition[    793576,      15800]
NotebookOutlinePosition[    794076,      15820]
CellTagsIndexPosition[    794033,      15817]
WindowFrame->Normal*)

(* Beginning of Notebook Content *)
Notebook[{
Cell[BoxData[
 RowBox[{
  RowBox[{"(*", " ", 
   RowBox[{
    RowBox[{
    "Kimball", " ", "model", " ", "and", " ", "energy", " ", "derived", " ", 
     "from", " ", "Wolfram", " ", "source"}], ",", " ", 
    RowBox[{"ES", " ", "25", " ", "April", " ", "2013"}]}], " ", "*)"}], " ", 
  "\[IndentingNewLine]", 
  RowBox[{
   RowBox[{"Clear", "[", 
    RowBox[{
    "tw", ",", "n2", ",", "n", ",", "nb", ",", "bc", ",", "bh", ",", "u", ",",
      "u1", ",", "u2", ",", "Vee", ",", "Vne", ",", "Vnn"}], "]"}], ";"}], 
  " "}]], "Input",
 CellChangeTimes->{{3.568278170270548*^9, 3.568278174310955*^9}, {
   3.5682782109554195`*^9, 3.5682782183342323`*^9}, {3.5688220426984916`*^9, 
   3.5688220506389055`*^9}, {3.568822092353379*^9, 3.568822134660653*^9}, {
   3.5688728241768503`*^9, 3.568872825034852*^9}, {3.5688958900531473`*^9, 
   3.5688958965115585`*^9}, {3.5689027504159966`*^9, 3.568902751695199*^9}, {
   3.5689109808408637`*^9, 3.568910992618884*^9}, {3.569134574760273*^9, 
   3.569134584135889*^9}, 3.56923802266416*^9, {3.56933446475942*^9, 
   3.569334471239791*^9}, {3.5693395229642725`*^9, 3.569339531606688*^9}, {
   3.5694332905109916`*^9, 3.56943330667262*^9}, {3.570297588441428*^9, 
   3.5702976026530533`*^9}, {3.570558862041448*^9, 3.5705588713234644`*^9}, 
   3.5705590387585583`*^9, {3.570855141170933*^9, 3.570855146100541*^9}, {
   3.5708563212974052`*^9, 3.5708563224362073`*^9}, {3.5708588179101906`*^9, 
   3.570858820452995*^9}, 3.570949483910489*^9, {3.5719810762355733`*^9, 
   3.5719810786847773`*^9}, 3.5723256977094345`*^9, 3.572583124905918*^9, {
   3.5727976670013523`*^9, 3.572797667157352*^9}, 3.5728672700652885`*^9, {
   3.5732075583876934`*^9, 3.5732075588400946`*^9}, {3.573221345358634*^9, 
   3.57322135451585*^9}, {3.573369135900576*^9, 3.5733691365557775`*^9}, {
   3.574682961367374*^9, 3.5746829644717793`*^9}, 3.5747440056200757`*^9, {
   3.574833269418433*^9, 3.5748332704636354`*^9}, 3.574833303161292*^9, {
   3.575821465320308*^9, 3.5758214656791086`*^9}, {3.5758677834030266`*^9, 
   3.575867784105028*^9}}],

Cell[CellGroupData[{

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"}]}], "}"}]}], "}"}]}]}], ";"}], "\n", 
 RowBox[{"MatrixForm", "[", "t1", "]"}]}], "Input",
 CellChangeTimes->{
  3.57029749846047*^9, {3.570297893562364*^9, 3.5702979152152023`*^9}, {
   3.5704535321223855`*^9, 3.570453555038826*^9}, {3.570558892227501*^9, 
   3.5705589112283344`*^9}, {3.5705589864360666`*^9, 
   3.5705590132681136`*^9}, {3.5705590525489826`*^9, 
   3.5705590747322216`*^9}, {3.570595322227199*^9, 3.5705953504632483`*^9}, 
   3.570855059411189*^9, 3.570856566545436*^9, 3.5709425310226765`*^9, 
   3.5730457924857635`*^9, 3.5746613722339497`*^9, 3.574701612088543*^9, 
   3.574852285217162*^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[{"-", "2.609711606`"}], "16.51620524`", "0.6614040999999999`"},
     {
      RowBox[{"-", "0.196531504`"}], "17.549885362`", "0.098265752`"},
     {"1.846262302`", "15.730079224`", "0.978878068`"},
     {"1.780121892`", "13.288553232`", 
      RowBox[{"-", "2.326252706`"}]},
     {"3.2824540620000002`", "11.481975175999999`", "0.863604782`"},
     {
      RowBox[{"-", "1.46453765`"}], "12.045113524`", "2.382944486`"},
     {
      RowBox[{"-", "1.7139814820000001`"}], "9.958856019999999`", 
      RowBox[{"-", "0.999665054`"}]},
     {
      RowBox[{"-", "5.827914984`"}], "13.47374638`", 
      RowBox[{"-", "0.31369451600000003`"}]},
     {
      RowBox[{"-", "2.745771878`"}], "14.543331296`", 
      RowBox[{"-", "2.7401027`"}]},
     {
      RowBox[{"-", "0.15684725800000002`"}], "19.828894918`", 
      "1.5476855939999998`"},
     {
      RowBox[{"-", "0.020786986`"}], "17.992081246`", 
      RowBox[{"-", "1.938858876`"}]},
     {"4.257552678000001`", "16.682501128`", "0.196531504`"},
     {"1.791460248`", "15.539216898000001`", "3.0689150240000003`"},
     {"5.459418414`", "15.403156626`", "0.574476704`"},
     {"3.016002696`", "9.862479994000001`", "0.126611642`"},
     {
      RowBox[{"-", "1.4399712120000001`"}], "7.723310162`", "0.470541774`"},
     {
      RowBox[{"-", "7.06757524`"}], "15.151823068`", 
      RowBox[{"-", "0.5121157460000001`"}]},
     {
      RowBox[{"-", "6.224757444`"}], "12.360697766000001`", "2.127831476`"},
     {
      RowBox[{"-", "6.419399222`"}], "12.124482016`", 
      RowBox[{"-", "1.8103575079999998`"}]},
     {
      RowBox[{"-", "6.147278678`"}], "10.567347792`", "1.925630794`"},
     {
      RowBox[{"-", "0.42518835`"}], "19.432052457999998`", 
      "3.2711157060000002`"},
     {
      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[{"-", "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`"}]},
     {
      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`"},
     {
      RowBox[{"-", "0.149288354`"}], 
      RowBox[{"-", "2.076808874`"}], 
      RowBox[{"-", "0.287238352`"}]},
     {"4.386054046`", "0.844707522`", 
      RowBox[{"-", "2.067360244`"}]},
     {"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`"},
     {"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[{"-", "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[{"-", "1.347374638`"}], 
      RowBox[{"-", "11.882597088`"}], "0.49132876000000003`"},
     {
      RowBox[{"-", "5.784451286`"}], 
      RowBox[{"-", "8.940293706`"}], "2.647506126`"},
     {
      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[{"-", "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`"}]},
     {
      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.575869496643236*^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.57029749846047*^9, {3.570297893562364*^9, 3.5702979152152023`*^9}, {
   3.5704535321223855`*^9, 3.570453555038826*^9}, {3.570558892227501*^9, 
   3.5705589112283344`*^9}, {3.5705589864360666`*^9, 3.5705590132681136`*^9}, 
   3.5705592408949137`*^9, {3.5705593512807074`*^9, 3.5705593890483737`*^9}, {
   3.570559442712468*^9, 3.5705594826641383`*^9}, 3.5708550837628317`*^9, 
   3.570856587480673*^9, 3.5709425310226765`*^9, 3.5730457925169635`*^9, 
   3.57466137224955*^9, 3.574701612104143*^9, 3.574852309007204*^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.5758694966588364`*^9}]
}, Open  ]],

Cell[CellGroupData[{

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

Cell[BoxData[
 RowBox[{"{", 
  RowBox[{"\<\"C\"\>", ",", "\<\"C\"\>", ",", "\<\"C\"\>", ",", "\<\"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.5758694966744366`*^9}]
}, Open  ]],

Cell[BoxData[
 RowBox[{
  RowBox[{"num1", "=", 
   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, 
   3.5711137970191836`*^9}],

Cell[BoxData[
 RowBox[{
  RowBox[{"um", "=", 
   RowBox[{"Table", "[", 
    RowBox[{
     RowBox[{"{", 
      RowBox[{
       RowBox[{"un", "[", 
        RowBox[{"[", "i", "]"}], "]"}], ",", 
       RowBox[{"num1", "[", 
        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, 
   3.57111380070079*^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.5758694966900363`*^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.5758694967056365`*^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.12", ",", 
        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.25", ",", 
            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.2572", ",", 
      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.1786", 
            RowBox[{"(*", "0.18048", "*)"}], ",", 
            RowBox[{"If", "[", 
             RowBox[{
              RowBox[{
               RowBox[{"us", "[", 
                RowBox[{"[", 
                 RowBox[{"i", ",", "1"}], "]"}], "]"}], "\[Equal]", 
               "\"\<Cl\>\""}], ",", "0.48698"}], "]"}]}], "]"}]}], "]"}]}], 
       "]"}]}], "]"}], ",", 
    RowBox[{"{", 
     RowBox[{"i", ",", "1", ",", "n"}], "}"}]}], "]"}]}]}], "Input",
 CellChangeTimes->{{3.5679480369450207`*^9, 3.567948069112277*^9}, {
   3.5679486805553513`*^9, 3.5679487948723516`*^9}, 3.567950206581231*^9, {
   3.5681216077716007`*^9, 3.5681216839309344`*^9}, {3.568266380090639*^9, 
   3.5682664108850937`*^9}, {3.568266481350417*^9, 3.56826649971165*^9}, 
   3.5682795170433135`*^9, {3.5682795636873956`*^9, 3.5682797843809834`*^9}, {
   3.568279837187076*^9, 3.5682798459854913`*^9}, {3.568279877201146*^9, 
   3.568279880711152*^9}, {3.5682799570264864`*^9, 3.5682799599124913`*^9}, {
   3.5683770044498715`*^9, 3.5683771523693314`*^9}, 3.5688133425788107`*^9, {
   3.568814931192001*^9, 3.5688150075073347`*^9}, {3.5688765350957685`*^9, 
   3.5688765981198792`*^9}, {3.568876634452343*^9, 3.5688766352167444`*^9}, {
   3.568894358551657*^9, 3.5688944054453397`*^9}, {3.568894522929146*^9, 
   3.5688945259087515`*^9}, {3.5688946101644993`*^9, 
   3.5688946171221113`*^9}, {3.568894651067771*^9, 3.568894651956972*^9}, 
   3.5688946827982264`*^9, {3.568894734527918*^9, 3.568894735495119*^9}, {
   3.5688947726699843`*^9, 3.568894773496786*^9}, {3.5688948078948464`*^9, 
   3.568895097914956*^9}, {3.5689558039020233`*^9, 3.568955804619624*^9}, {
   3.5689559169086213`*^9, 3.5689559179070234`*^9}, {3.5689559496998787`*^9, 
   3.568955950589081*^9}, {3.568956090817727*^9, 3.568956118273775*^9}, 
   3.5689561556982408`*^9, {3.5690814230317364`*^9, 3.5690814238897376`*^9}, {
   3.569232478412421*^9, 3.5692324795356236`*^9}, {3.5692325096124763`*^9, 
   3.5692325115780797`*^9}, {3.5692325933846235`*^9, 3.569232594289425*^9}, {
   3.569235467676072*^9, 3.5692354683780737`*^9}, {3.5692358857568064`*^9, 
   3.5692358867552085`*^9}, {3.569236173312112*^9, 3.569236174060913*^9}, {
   3.569344745239445*^9, 3.569344781213108*^9}, {3.5693896312339673`*^9, 
   3.5693896351495743`*^9}, {3.5693896840088596`*^9, 
   3.5693896981112843`*^9}, {3.5693897680462074`*^9, 3.5693897743798184`*^9}, 
   3.570595843597315*^9, 3.5705958765133724`*^9, {3.5706006955110383`*^9, 
   3.57060069660304*^9}, {3.570600739659116*^9, 3.5706007402207165`*^9}, {
   3.5706007784563837`*^9, 3.5706008313872766`*^9}, {3.5706008641161346`*^9, 
   3.5706008892321787`*^9}, 3.5706010214580107`*^9, {3.5706011135917726`*^9, 
   3.570601115058175*^9}, {3.5706011509850388`*^9, 3.5706011750714808`*^9}, {
   3.5706012352719865`*^9, 3.570601260746831*^9}, 3.570856110868636*^9, 
   3.570856144034294*^9, 3.5708561753903494`*^9, {3.5708562115824127`*^9, 
   3.570856236261656*^9}, 3.5708568877188005`*^9, 3.570856960992129*^9, {
   3.5708570022854013`*^9, 3.570857003424204*^9}, 3.5708574863854513`*^9, 
   3.570857676003785*^9, {3.570857720697863*^9, 3.570857774736358*^9}, {
   3.570857815015629*^9, 3.570857815265229*^9}, {3.5708578488052883`*^9, 
   3.5708579513754683`*^9}, {3.5708579844319267`*^9, 3.570858009937971*^9}, {
   3.5708583084132957`*^9, 3.570858421435494*^9}, {3.5727961392438684`*^9, 
   3.57279614016427*^9}, {3.572796215855603*^9, 3.5727962193812094`*^9}, {
   3.5731452670909014`*^9, 3.573145275920517*^9}, {3.573366168242963*^9, 
   3.5733661753721757`*^9}, 3.573367679154417*^9, {3.5746744522844534`*^9, 
   3.574674453220455*^9}, 3.5746820022776895`*^9, {3.574682057033786*^9, 
   3.574682057704587*^9}, {3.574682089045042*^9, 3.574682170757985*^9}, 
   3.57468220769885*^9, {3.5746826561216383`*^9, 3.5746827960226836`*^9}, {
   3.5747437628680496`*^9, 3.5747437640692515`*^9}, 3.5747437976249104`*^9, {
   3.574743832756172*^9, 3.5747439364027543`*^9}, {3.57474397413922*^9, 
   3.5747439758396235`*^9}, {3.574872830481593*^9, 3.5748728311055937`*^9}, {
   3.575821657075845*^9, 3.575821657746646*^9}, {3.5758218405945673`*^9, 
   3.575821850484985*^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.25`", ",", 
   "0.25`", ",", "0.25`", ",", "0.25`", ",", "0.25`", ",", "0.25`", ",", 
   "0.25`", ",", "0.25`", ",", "0.25`", ",", "0.25`", ",", "0.25`", ",", 
   "0.25`", ",", "0.25`", ",", "0.25`", ",", "0.25`", ",", "0.25`", ",", 
   "0.25`", ",", "0.25`", ",", "0.25`", ",", "0.25`", ",", "0.25`", ",", 
   "0.12`", ",", "0.12`", ",", "0.12`", ",", "0.12`", ",", "0.12`", ",", 
   "0.12`", ",", "0.12`", ",", "0.12`", ",", "0.12`", ",", "0.12`", ",", 
   "0.12`", ",", "0.12`", ",", "0.12`", ",", "0.12`", ",", "0.12`", ",", 
   "0.12`", ",", "0.12`", ",", "0.12`", ",", "0.12`", ",", "0.12`", ",", 
   "0.12`", ",", "0.12`", ",", "0.12`", ",", "0.12`", ",", "0.12`", ",", 
   "0.12`", ",", "0.12`", ",", "0.12`", ",", "0.12`", ",", "0.12`", ",", 
   "0.12`", ",", "0.12`", ",", "0.12`", ",", "0.12`", ",", "0.12`", ",", 
   "0.12`", ",", "0.12`", ",", "0.12`", ",", "0.12`", ",", "0.12`", ",", 
   "0.12`", ",", "0.12`"}], "}"}]], "Output",
 CellChangeTimes->{3.575869496721236*^9}],

Cell[BoxData[
 RowBox[{"{", 
  RowBox[{
  "0.2572`", ",", "0.2572`", ",", "0.2572`", ",", "0.2572`", ",", "0.2572`", 
   ",", "0.2572`", ",", "0.2572`", ",", "0.2572`", ",", "0.2572`", ",", 
   "0.2572`", ",", "0.2572`", ",", "0.2572`", ",", "0.2572`", ",", "0.2572`", 
   ",", "0.2572`", ",", "0.2572`", ",", "0.2572`", ",", "0.2572`", ",", 
   "0.2572`", ",", "0.2572`", ",", "0.2572`", ",", "0.2572`", ",", "0.2572`", 
   ",", "0.2572`", ",", "0.1786`", ",", "0.1786`", ",", "0.1786`", ",", 
   "0.1786`", ",", "0.1786`", ",", "0.1786`", ",", "0.1786`", ",", "0.1786`", 
   ",", "0.1786`", ",", "0.1786`", ",", "0.1786`", ",", "0.1786`", ",", 
   "0.1786`", ",", "0.1786`", ",", "0.1786`", ",", "0.1786`", ",", "0.1786`", 
   ",", "0.1786`", ",", "0.1786`", ",", "0.1786`", ",", "0.1786`", ",", 
   "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.575869496721236*^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.5758694967368364`*^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\>\""}], 
              ",", "7.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}, 
   3.5733593979404716`*^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.5758694967524366`*^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.575869496768037*^9}],

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

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

Cell[BoxData[{
 RowBox[{
  RowBox[{"t", "=", 
   RowBox[{"Table", "[", 
    RowBox[{
     RowBox[{"t1", "[", 
      RowBox[{"[", 
       RowBox[{"num", "[", 
        RowBox[{"[", "i", "]"}], "]"}], "]"}], "]"}], ",", 
     RowBox[{"{", 
      RowBox[{"i", ",", "1", ",", "n"}], "}"}]}], "]"}]}], 
  ";"}], "\[IndentingNewLine]", 
 RowBox[{
  RowBox[{"Plot1o", "=", 
   RowBox[{"Table", "[", 
    RowBox[{
     RowBox[{"Graphics3D", "[", 
      RowBox[{"{", 
       RowBox[{
        RowBox[{"Opacity", "[", "0.8", "]"}], ",", 
        RowBox[{"If", "[", 
         RowBox[{
          RowBox[{
           RowBox[{"u", "[", 
            RowBox[{"[", "i", "]"}], "]"}], "\[Equal]", "\"\<N\>\""}], ",", 
          RowBox[{"Lighter", "[", "Blue", "]"}], ",", 
          RowBox[{"If", "[", 
           RowBox[{
            RowBox[{
             RowBox[{"u", "[", 
              RowBox[{"[", "i", "]"}], "]"}], "\[Equal]", "\"\<H\>\""}], ",", 
            RowBox[{"Lighter", "[", "White", "]"}], ",", 
            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[{"Darker", "[", "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"}], "}"}]}], "]"}]}], 
  ";"}], "\[IndentingNewLine]", 
 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"}], "}"}]}], "]"}]}], 
  ";"}], "\[IndentingNewLine]", 
 RowBox[{
  RowBox[{"(*", 
   RowBox[{"Show", "[", 
    RowBox[{"Plot1o", ",", "Plot2", ",", 
     RowBox[{"{", 
      RowBox[{
       RowBox[{"AspectRatio", "\[Rule]", "Automatic"}], ",", 
       RowBox[{"Boxed", "\[Rule]", "True"}], ",", " ", 
       RowBox[{"Axes", "\[Rule]", "Automatic"}], ",", 
       RowBox[{"AxesLabel", "\[Rule]", 
        RowBox[{"{", 
         RowBox[{"xl", ",", "yl", ",", "zl"}], "}"}]}], ",", 
       RowBox[{"SphericalRegion", "\[Rule]", "True"}]}], "}"}]}], "]"}], 
   "*)"}]}]}], "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}, {3.5725833074418383`*^9, 3.5725833223398647`*^9}, {
   3.572583642982828*^9, 3.572583671421678*^9}, {3.572584036290719*^9, 
   3.5725840766323895`*^9}, {3.572584986320788*^9, 3.572585000719613*^9}, {
   3.572585104865396*^9, 3.5725851158790154`*^9}, 3.5726667135591345`*^9, {
   3.5727958552609696`*^9, 3.5727958810478153`*^9}, {3.5727959717619743`*^9, 
   3.5727959736963778`*^9}, {3.572796004615632*^9, 3.572796064270137*^9}, 
   3.5733691180073442`*^9, {3.5747381333641615`*^9, 3.5747381348149643`*^9}, {
   3.5748523465408697`*^9, 3.574852347788872*^9}}],

Cell["(* Distance Matrix Bohr *)", "Text",
 CellChangeTimes->{{3.5678630319943895`*^9, 3.5678630956269007`*^9}, {
   3.5678632280087337`*^9, 3.567863228336334*^9}, {3.5678632621727934`*^9, 
   3.5678633509213495`*^9}, {3.5678644293824434`*^9, 3.567864451908883*^9}, {
   3.567864923404111*^9, 3.56786494544695*^9}, {3.5678650143210707`*^9, 
   3.5678650845367947`*^9}, {3.567869231084096*^9, 3.5678692412397137`*^9}, 
   3.5678693168686466`*^9, {3.5678704450470285`*^9, 3.5678704621290584`*^9}, 
   3.5682783281584253`*^9, 3.5688732159715385`*^9, 3.568910867647065*^9, 
   3.5689997098549547`*^9, 3.5689998170427427`*^9, 3.5689998869620657`*^9, 
   3.5691460426137285`*^9, 3.569237204536323*^9, 3.5692374658523817`*^9, 
   3.56923802264856*^9, 3.5693403424181123`*^9, 3.5693404502143016`*^9, 
   3.569340738019207*^9, 3.569340852851009*^9, 3.5693411655067577`*^9, 
   3.5693414978029413`*^9, 3.5693426144373026`*^9, 3.5693435671777763`*^9, 
   3.569343662743544*^9, 3.569343763644521*^9, 3.569344071177861*^9, 
   3.569344266271804*^9, 3.570297558707776*^9, {3.5703416079688015`*^9, 
   3.570341617375618*^9}, {3.5705956885798426`*^9, 3.5705957106070814`*^9}, {
   3.5705965150536942`*^9, 3.5705965239457097`*^9}, {3.5720162655168724`*^9, 
   3.5720163727202606`*^9}, {3.5720166425383344`*^9, 3.572016643427536*^9}, {
   3.5723503054303513`*^9, 3.572350361964851*^9}, 3.573368567997178*^9, {
   3.5746565325286493`*^9, 3.574656552839885*^9}}],

Cell[BoxData[{
 RowBox[{
  RowBox[{"dc", "=", 
   RowBox[{"Table", "[", 
    RowBox[{
     RowBox[{"Norm", "[", 
      RowBox[{
       RowBox[{"t", "[", 
        RowBox[{"[", "i", "]"}], "]"}], "-", 
       RowBox[{"t", "[", 
        RowBox[{"[", "j", "]"}], "]"}]}], "]"}], ",", 
     RowBox[{"{", 
      RowBox[{"i", ",", "1", ",", "n"}], "}"}], ",", 
     RowBox[{"{", 
      RowBox[{"j", ",", "1", ",", "n"}], "}"}]}], "]"}]}], 
  ";"}], "\[IndentingNewLine]", 
 RowBox[{
  RowBox[{"(*", 
   RowBox[{"MatrixForm", "[", 
    RowBox[{"Prepend", "[", 
     RowBox[{"dc", ",", "num1"}], "]"}], "]"}], "*)"}]}]}], "Input",
 CellChangeTimes->{{3.5678630319943895`*^9, 3.5678630956269007`*^9}, {
   3.5678632280087337`*^9, 3.567863228336334*^9}, {3.5678632621727934`*^9, 
   3.5678633509213495`*^9}, {3.5678644293824434`*^9, 3.567864451908883*^9}, {
   3.567864923404111*^9, 3.56786494544695*^9}, {3.5678650143210707`*^9, 
   3.5678650845367947`*^9}, {3.567869231084096*^9, 3.5678692412397137`*^9}, 
   3.5678693168686466`*^9, {3.5678704450470285`*^9, 3.5678704621290584`*^9}, 
   3.5682783281584253`*^9, 3.5688732159715385`*^9, 3.568910867647065*^9, 
   3.5689997098549547`*^9, 3.5689998170427427`*^9, 3.5689998869620657`*^9, 
   3.5691460426137285`*^9, 3.569237204536323*^9, 3.5692374658523817`*^9, 
   3.56923802264856*^9, 3.5693403424181123`*^9, 3.5693404502143016`*^9, 
   3.569340738019207*^9, 3.569340852851009*^9, 3.5693411655067577`*^9, 
   3.5693414978029413`*^9, 3.5693426144373026`*^9, 3.5693435671777763`*^9, 
   3.569343662743544*^9, 3.569343763644521*^9, 3.569344071177861*^9, 
   3.569344266271804*^9, 3.570297558707776*^9, {3.5703416079688015`*^9, 
   3.570341617375618*^9}, {3.5705956885798426`*^9, 3.5705957106070814`*^9}, {
   3.5705965150536942`*^9, 3.5705965239457097`*^9}, {3.5720162655168724`*^9, 
   3.5720163727202606`*^9}, {3.5720166425383344`*^9, 3.572016643427536*^9}, {
   3.5723503054303513`*^9, 3.572350361964851*^9}, 3.573368567997178*^9, 
   3.5746565325286493`*^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}, 3.571808490989086*^9, {
   3.572601938592864*^9, 3.572601945722077*^9}}],

Cell[CellGroupData[{

Cell[BoxData[
 RowBox[{
  RowBox[{"(*", " ", 
   RowBox[{"connected", " ", 
    RowBox[{"pairs", ":", " ", 
     RowBox[{
      RowBox[{"distance", " ", "criteria"}], " ", "<", " ", 
      RowBox[{"3.0", " ", "bohr"}]}]}]}], " ", "*)"}], "\[IndentingNewLine]", 
  RowBox[{
   RowBox[{
    RowBox[{"Dij", "=", 
     RowBox[{"Table", "[", 
      RowBox[{
       RowBox[{"If", "[", 
        RowBox[{
         RowBox[{"(", 
          RowBox[{
           RowBox[{
            RowBox[{"dc", "[", 
             RowBox[{"[", 
              RowBox[{"i", ",", "j"}], "]"}], "]"}], "<", "3.0"}], "||", 
           RowBox[{"(", 
            RowBox[{
             RowBox[{
              RowBox[{"u", "[", 
               RowBox[{"[", "i", "]"}], "]"}], "\[Equal]", "\"\<Cl\>\""}], 
             " ", "&&", " ", 
             RowBox[{
              RowBox[{"dc", "[", 
               RowBox[{"[", 
                RowBox[{"i", ",", "j"}], "]"}], "]"}], "<", "3.24"}]}], 
            ")"}]}], ")"}], ",", 
         RowBox[{"dc", "[", 
          RowBox[{"[", 
           RowBox[{"i", ",", "j"}], "]"}], "]"}], ",", "0"}], "]"}], ",", 
       RowBox[{"{", 
        RowBox[{"i", ",", "1", ",", "n"}], "}"}], ",", 
       RowBox[{"{", 
        RowBox[{"j", ",", "1", ",", "n"}], "}"}]}], "]"}]}], ";"}], 
   "\[IndentingNewLine]", 
   RowBox[{"MatrixForm", "[", 
    RowBox[{"Prepend", "[", 
     RowBox[{"Dij", ",", "num1"}], "]"}], "]"}]}]}]], "Input",
 CellChangeTimes->{{3.567863535157673*^9, 3.5678635412104836`*^9}, {
   3.5678638182825704`*^9, 3.567863827283786*^9}, {3.5679503910983553`*^9, 
   3.5679504266352177`*^9}, {3.5679504653700857`*^9, 3.5679505048069553`*^9}, 
   3.567950534915008*^9, {3.567951107623214*^9, 3.567951136046464*^9}, 
   3.567951302545556*^9, {3.5679562986474605`*^9, 3.567956305355472*^9}, {
   3.5679563590975666`*^9, 3.567956370688387*^9}, {3.567956414930065*^9, 
   3.567956430467692*^9}, {3.567956484740187*^9, 3.567956500667815*^9}, {
   3.5679565456270943`*^9, 3.5679565868267665`*^9}, {3.5679569267045636`*^9, 
   3.5679569448941956`*^9}, {3.567956976562251*^9, 3.567957000711094*^9}, {
   3.5679570348595533`*^9, 3.5679570632672033`*^9}, {3.5679573263928657`*^9, 
   3.5679573286548696`*^9}, {3.5679573611029263`*^9, 
   3.5679573637393312`*^9}, {3.5679592820903006`*^9, 3.567959317127962*^9}, {
   3.567959397655304*^9, 3.5679594004945087`*^9}, {3.5679594704762316`*^9, 
   3.5679594724574347`*^9}, {3.567959655898157*^9, 3.567959673073787*^9}, 
   3.5681143121223865`*^9, 3.568121866388855*^9, 3.568220668221574*^9, {
   3.568220718968463*^9, 3.568220723742071*^9}, {3.568220862051914*^9, 
   3.5682208641111183`*^9}, {3.568220906761593*^9, 3.5682209083527956`*^9}, {
   3.5682209451844606`*^9, 3.5682209651680956`*^9}, {3.568221147782016*^9, 
   3.5682211695908546`*^9}, {3.568221237279373*^9, 3.568221253612602*^9}, {
   3.568221305420293*^9, 3.568221306247094*^9}, {3.5682215161142635`*^9, 
   3.568221546206716*^9}, 3.56822158247678*^9, {3.568277819185131*^9, 
   3.5682778284359474`*^9}, 3.56882183684053*^9, {3.5688219650415554`*^9, 
   3.568821965915157*^9}, {3.5688769979329815`*^9, 3.5688771619984694`*^9}, {
   3.568877204212144*^9, 3.5688772091729527`*^9}, {3.568877282493081*^9, 
   3.5688772843338842`*^9}, {3.568877374112042*^9, 3.568877378074449*^9}, {
   3.56887744125456*^9, 3.5688774664954042`*^9}, {3.56887758366721*^9, 
   3.568877604867647*^9}, {3.568877667220957*^9, 3.5688776710429635`*^9}, {
   3.5688778111156096`*^9, 3.56887782262843*^9}, {3.569341165522358*^9, 
   3.569341165522358*^9}, 3.5693418217375107`*^9, {3.5693429625675144`*^9, 
   3.5693429673099227`*^9}, {3.569390288837522*^9, 3.5693903143123665`*^9}, {
   3.569390381798085*^9, 3.5693904158685455`*^9}, {3.5693905284539433`*^9, 
   3.569390564349606*^9}, {3.569390610868888*^9, 3.569390611056088*^9}, {
   3.569390743671921*^9, 3.569390761487152*^9}, {3.569390843761697*^9, 
   3.569390861608128*^9}, {3.5693909829451413`*^9, 3.5693909887171516`*^9}, 
   3.5703416480920715`*^9, {3.5703416810237293`*^9, 3.5703416997437625`*^9}, 
   3.570341888192094*^9, {3.5705964879252462`*^9, 3.570596509843285*^9}, {
   3.5705965495921545`*^9, 3.5705966388087115`*^9}, 3.570968886604662*^9, {
   3.5709689930904493`*^9, 3.5709689944320517`*^9}, {3.5709690501397495`*^9, 
   3.570969050904151*^9}, {3.5709692134876366`*^9, 3.5709692140804377`*^9}, {
   3.5709722325921392`*^9, 3.5709722334033403`*^9}, {3.5709723694355793`*^9, 
   3.570972545481889*^9}, {3.570972790558319*^9, 3.5709728063299465`*^9}, {
   3.570972844066413*^9, 3.570972866764453*^9}, {3.5709729633598228`*^9, 
   3.57097298434186*^9}, {3.5709731454589424`*^9, 3.5709731466289444`*^9}, 
   3.570973453029083*^9, {3.5709736099653587`*^9, 3.570973638404208*^9}, {
   3.571113899355363*^9, 3.571113958604267*^9}, 3.57111399989754*^9, {
   3.5711140388820086`*^9, 3.571114044841219*^9}, {3.571115985874628*^9, 
   3.5711159997742524`*^9}, {3.57313788224113*^9, 3.5731379093851776`*^9}, 
   3.573137959679666*^9}],

Cell[BoxData[
 TagBox[
  RowBox[{"(", "\[NoBreak]", GridBox[{
     {"1", "2", "3", "4", "5", "6", "7", "8", "9", "10", "11", "12", "13", 
      "14", "15", "16", "17", "18", "19", "20", "21", "22", "23", "24", "25", 
      "26", "27", "28", "29", "30", "31", "32", "33", "34", "35", "36", "37", 
      "38", "39", "40", "41", "42", "43", "44", "45", "46", "47", "48", "49", 
      "50", "51", "52", "53", "54", "55", "56", "57", "58", "59", "60", "61", 
      "62", "63", "64", "65", "66", "67", "68", "69", "70", "71", "72", "73", 
      "74", "75", "76", "77", "78", "79", "80", "81", "82", "83", "84", "85", 
      "86", "87"},
     {"0.`", "2.8762182229850843`", "0", "0", "2.874563337226229`", "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", 
      "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"},
     {"2.8762182229850843`", "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", "2.700341091820479`", "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", "2.8868841329321464`", "0.`", "0", "0", "2.891283250229011`", "0", 
      "0", "0", "0", "0", "0", "0", "0", "0", "0", "0", "0", "0", "0", "0", 
      "0", "0", "0", "2.696329106208919`", "0", "0", "0", "0", "0", "0", "0", 
      "0", "0", "0", "0", "0", "0", "0", "0", "0", "0", "0", "0", "0", "0", 
      "0", "2.100495691563207`", "0", "0", "0", "0", "0", "0", "0", "0", "0", 
      "0", "0", "0", "0", "0", "0", "0", "0", "0", "0", "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.874052707384701`", "0", "0", "0", "0", "0", 
      "0", "0", "0", "0", "0", "0", "0", "0", "0", "0", "0", "0", "0", "0", 
      "2.6849688263171383`", "0", "0", "2.7011622080325357`", "0", "0", "0", 
      "0", "0", "0", "0", "0", "0", "0", "0", "0", "0", "0", "0", "0", "0", 
      "0", "0", "0", "2.091960823112549`", "0", "0", "0", "0", "0", "0", "0", 
      "0", "0", "0", "0", "0", "0", "0", "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.874563337226229`", "0", "0", "2.874052707384701`", "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", "2.099449015826414`", "0", "0", "0", "0", "0", "0", "0", 
      "0", "0", "0", "0", "0", "0", "0", "0", "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.891283250229011`", "0", "0", "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", "2.0957265817920407`", "2.100087626596842`", "0", "0", 
      "0", "0", "0", "0", "0", "0", "0", "0", "0", "0", "0", "0", "0", "0", 
      "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", "2.689657046611008`", "0", "0", "0", "0", "0", "0", 
      "2.6830928416313737`", "0", "0", "0", "0", "0", "0", "0", "0", "0", "0",
       "0", "0", "0", "0", "0", "0", "0", "0", "0", "0", "0", "0", 
      "2.092002645216093`", "0", "0", "0", "0", "0", "0", "0", "0", "0", "0", 
      "0", "0", "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.`", 
      "2.8718843154435145`", "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", "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", "2.8718843154435145`", "0.`", 
      "2.875805987805802`", "0", "0", "0", "0", "0", "0", "0", "0", "0", "0", 
      "0", "0", "0", "0", "0", "0", "0", "0", "0", "0", "0", 
      "2.710853936926622`", "0", "0", "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.101801816582464`", "0", "0", "0", "0", "0", "0", "0", "0", 
      "0", "0", "0", "0", "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.`", 
      "2.886071930752452`", "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", "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", "2.886071930752452`", 
      "0.`", "2.891380205050622`", "0", "0", "0", "0", "0", "0", "0", "0", 
      "0", "0", "0", "0", "0", "0", "0", "0", "0", "0", "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", "2.1015257029772307`", "0", "0", "0", "0", "0", "0", "0", "0",
       "0", "0", "0", "0", "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.891380205050622`", 
      "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", 
      "2.095748733341614`", "2.0995298095450385`", "0", "0", "0", "0", "0", 
      "0", "0", "0", "0", "0", "0", "0", "0", "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", "2.6886179186839767`", "0", "0",
       "0", "0", "0", "2.683518046694751`", "0", "0", "0", "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.0898789033195335`", "0", "0", "0", "0",
       "0", "0", "0", "0", "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.`", "2.872794381696381`", "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", "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", 
      "2.872794381696381`", "0.`", "2.8762846469216963`", "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", "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", 
      "2.8762846469216963`", "0.`", "2.886040378302957`", "0", "0", "0", "0", 
      "0", "0", "0", "0", "0", "0", "0", "0", "0", "0", "0", "0", "0", "0", 
      "0", "0", "2.700451514084544`", "0", "0", "0", "0", "0", "0", "0", "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", "2.886040378302957`", "0.`", "2.888770554115148`", "0", "0", "0", 
      "0", "0", "0", "0", "0", "0", "0", "0", "0", "0", "0", "0", "0", "0", 
      "0", "0", "0", "2.697365263494189`", "0", "0", "0", "0", "0", "0", "0", 
      "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", "2.888770554115148`", "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", "2.0972800306619543`", 
      "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.`", "2.8676210677719407`", "0", "0", "0", "0", 
      "0", "0", "0", "0", "0", "0", "0", "0", "0", "0", "0", "0", "0", 
      "2.690686482888516`", "0", "0", "0", "0", "0", "2.682629630795572`", 
      "0", "0", "0", "0", "0", "0", "0", "0", "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.0915826791997567`", "0", "0", "0", "0", "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.8676210677719407`", "0.`", "2.865535044944369`", 
      "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", "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", "2.865535044944369`", "0.`", 
      "2.8713899987859857`", "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", "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", "2.8713899987859857`", "0.`", 
      "2.8855701440590953`", "0", "0", "0", "0", "0", "0", "0", "0", "0", "0",
       "0", "0", "0", "0", "0", "0", "0", "0", "0", "2.7115961456084743`", 
      "0", "0", "0", "0", "0", "0", "0", "0", "0", "0", "0", "0", "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.0992627531971157`", "0", "0",
       "0", "0", "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.8855701440590953`", "0.`", 
      "2.8840995487981274`", "0", "0", "0", "0", "0", "0", "0", "0", "0", "0",
       "0", "0", "0", "0", "0", "0", "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", "2.0993401520042068`", "0", "0",
       "0", "0", "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", "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", "2.098719180080517`", "2.096810880969897`", "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", 
      "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", "2.700341091820479`", "0", "0", "0", "0", "2.689657046611008`", 
      "0", "0", "0", "0", "0", "0", "0", "0", "0", "0", "0", "0", "0", "0", 
      "0", "0", "0", "0", "0", "0.`", "0", "0", "0", "0", "0", "0", "0", "0", 
      "0", "0", "0", "0", "0", "0", "0", "0", "0", "0", "0", "0", "0", "0", 
      "0", "0", "0", "0", "0", "0", "0", "0", "0", "0", "0", "0", "0", "0", 
      "0", "0", "0", "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.7011622080325357`", "0", "0", "0", "0", "0", "0", "0",
       "0", "0", "0", "0", "0", "0", "0", "0", "0", "0", "0", "0", "0", "0", 
      "0", "0", "0.`", "0", "0", "0", "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", "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", 
      "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", "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", "1.806375432801264`", "0", "0", "0", "0", "0", "0", "0", "0", "0", 
      "0", "0", "0", "0", "0", "0", "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", "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", "2.710853936926622`", "0", "0", 
      "0", "0", "0", "0", "0", "0", "0", "0", "0", "0", "0", "0", "0", "0", 
      "0", "0", "0", "0", "0", "0", "0.`", "0", "0", "0", "0", "0", "0", "0", 
      "0", "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", "2.6994370463488897`", "0",
       "0", "2.6886179186839767`", "0", "0", "0", "0", "0", "0", "0", "0", 
      "0", "0", "0", "0", "0", "0", "0", "0", "0", "0", "0", "0.`", "0", "0", 
      "0", "0", "0", "0", "0", "0", "0", "0", "0", "0", "0", "0", "0", "0", 
      "0", "0", "0", "0", "0", "0", "0", "0", "0", "0", "0", "0", "0", "0", 
      "0", "0", "0", "0", "0", "0", "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", "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", 
      "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", "1.7937899931961787`", "0", "0", "0",
       "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", "1.8001423149608882`", "0", "0", "0",
       "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.700451514084544`", "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.697365263494189`", "0", "0", 
      "0", "0", "0", "0", "0", "0", "0", "0", "0", "0", "0", "0", "0", "0", 
      "0", "0", "0", "0", "0", "0.`", "0", "0", "0", "0", "0", "0", "0", "0", 
      "0", "0", "0", "0", "0", "0", "0", "0", "0", "0", "0", "0", "0", "0", 
      "0", "0", "0", "0", "0", "0", "0", "0", "0", "0", "0", "0", "0", "0", 
      "0", "0", "0", "0", "0", "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", "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", "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", "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", "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", "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", "2.7115961456084743`", "0", "0", "0",
       "0", "0", "0", "0", "0", "0", "0", "0", "0", "0", "0", "0", "0", "0", 
      "0", "0", "0", "0.`", "0", "0", "0", "0", "0", "0", "0", "0", "0", "0", 
      "0", "0", "0", "0", "0", "0", "0", "0", "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.791525031738966`", "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", "1.7907394954698164`"},
     {"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.100495691563207`", "0", "0", "0", "0", "0", "0", "0", "0", 
      "0", "0", "0", "0", "0", "0", "0", "0", "0", "0", "0", "0", "0", "0", 
      "0", "0", "0", "0", "0", "0", "0", "0", "0", "0", "0", "0", "0", "0", 
      "0", "0", "0", "0", "0", "0", "0", "0", "0.`", "0", "0", "0", "0", "0", 
      "0", "0", "0", "0", "0", "0", "0", "0", "0", "0", "0", "0", "0", "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.091960823112549`", "0", "0", "0", "0", "0", "0", "0", 
      "0", "0", "0", "0", "0", "0", "0", "0", "0", "0", "0", "0", "0", "0", 
      "0", "0", "0", "0", "0", "0", "0", "0", "0", "0", "0", "0", "0", "0", 
      "0", "0", "0", "0", "0", "0", "0", "0", "0", "0.`", "0", "0", "0", "0", 
      "0", "0", "0", "0", "0", "0", "0", "0", "0", "0", "0", "0", "0", "0", 
      "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.099449015826414`", "0", "0", "0", "0", "0", "0", 
      "0", "0", "0", "0", "0", "0", "0", "0", "0", "0", "0", "0", "0", "0", 
      "0", "0", "0", "0", "0", "0", "0", "0", "0", "0", "0", "0", "0", "0", 
      "0", "0", "0", "0", "0", "0", "0", "0", "0", "0", "0.`", "0", "0", "0", 
      "0", "0", "0", "0", "0", "0", "0", "0", "0", "0", "0", "0", "0", "0", 
      "0", "0", "0", "0", "0", "0", "0", "0", "0", "0", "0", "0", "0", "0", 
      "0", "0", "0", "0", "0", "0"},
     {"0", "0", "0", "0", "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.0957265817920407`", "0", "0", "0", "0", "0",
       "0", "0", "0", "0", "0", "0", "0", "0", "0", "0", "0", "0", "0", "0", 
      "0", "0", "0", "0", "0", "0", "0", "0", "0", "0", "0", "0", "0", "0", 
      "0", "0", "0", "0", "0", "0", "0", "0", "0", "0", "0", "0", "0", "0.`", 
      "0", "0", "0", "0", "0", "0", "0", "0", "0", "0", "0", "0", "0", "0", 
      "0", "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.100087626596842`", "0", "0", "0", "0", "0", 
      "0", "0", "0", "0", "0", "0", "0", "0", "0", "0", "0", "0", "0", "0", 
      "0", "0", "0", "0", "0", "0", "0", "0", "0", "0", "0", "0", "0", "0", 
      "0", "0", "0", "0", "0", "0", "0", "0", "0", "0", "0", "0", "0", "0", 
      "0.`", "0", "0", "0", "0", "0", "0", "0", "0", "0", "0", "0", "0", "0", 
      "0", "0", "0", "0", "0", "0", "0", "0", "0", "0", "0", "0", "0", "0", 
      "0", "0", "0", "0", "0", "0"},
     {"0", "0", "0", "0", "0", "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.806375432801264`", "0", "0", "0", "0", "0", "0", "0", "0", "0", 
      "0", "0", "0", "0", "0", "0", "0", "0", "0", "0", "0", "0", "0", "0", 
      "0", "0.`", "0", "0", "0", "0", "0", "0", "0", "0", "0", "0", "0", "0", 
      "0", "0", "0", "0", "0", "0", "0", "0", "0", "0", "0", "0", "0", "0", 
      "0", "0", "0", "0", "0", "0"},
     {"0", "0", "0", "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.092002645216093`", "0", "0", "0", "0", 
      "0", "0", "0", "0", "0", "0", "0", "0", "0", "0", "0", "0", "0", "0", 
      "0", "0", "0", "0", "0", "0", "0", "0", "0", "0", "0", "0", "0", "0", 
      "0", "0", "0", "0", "0", "0", "0", "0", "0", "0", "0", "0", "0", "0", 
      "0", "0", "0", "0.`", "0", "0", "0", "0", "0", "0", "0", "0", "0", "0", 
      "0", "0", "0", "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.101801816582464`", "0", "0", 
      "0", "0", "0", "0", "0", "0", "0", "0", "0", "0", "0", "0", "0", "0", 
      "0", "0", "0", "0", "0", "0", "0", "0", "0", "0", "0", "0", "0", "0", 
      "0", "0", "0", "0", "0", "0", "0", "0", "0", "0", "0", "0", "0", "0", 
      "0", "0", "0", "0", "0", "0.`", "0", "0", "0", "0", "0", "0", "0", "0", 
      "0", "0", "0", "0", "0", "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.1015257029772307`",
       "0", "0", "0", "0", "0", "0", "0", "0", "0", "0", "0", "0", "0", "0", 
      "0", "0", "0", "0", "0", "0", "0", "0", "0", "0", "0", "0", "0", "0", 
      "0", "0", "0", "0", "0", "0", "0", "0", "0", "0", "0", "0", "0", "0", 
      "0", "0", "0", "0", "0", "0", "0", "0.`", "0", "0", "0", "0", "0", "0", 
      "0", "0", "0", "0", "0", "0", "0", "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.0995298095450385`", "0", "0", "0", "0", "0", "0", "0", "0", "0", "0",
       "0", "0", "0", "0", "0", "0", "0", "0", "0", "0", "0", "0", "0", "0", 
      "0", "0", "0", "0", "0", "0", "0", "0", "0", "0", "0", "0", "0", "0", 
      "0", "0", "0", "0", "0", "0", "0", "0", "0", "0", "0", "0", "0.`", "0", 
      "0", "0", "0", "0", "0", "0", "0", "0", "0", "0", "0", "0", "0", "0", 
      "0", "0", "0", "0", "0", "0", "0", "0", "0"},
     {"0", "0", "0", "0", "0", "0", "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.0898789033195335`", "0", "0", "0", "0", "0", "0", "0", "0", "0", "0",
       "0", "0", "0", "0", "0", "0", "0", "0", "0", "0", "0", "0", "0", "0", 
      "0", "0", "0", "0", "0", "0", "0", "0", "0", "0", "0", "0", "0", "0", 
      "0", "0", "0", "0", "0", "0", "0", "0", "0", "0", "0", "0", "0", "0", 
      "0", "0.`", "0", "0", "0", "0", "0", "0", "0", "0", "0", "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.7937899931961787`", "0", "0", "0",
       "0", "0", "0", "0", "0", "0", "0", "0", "0", "0", "0", "0", "0", "0", 
      "0", "0", "0", "0", "0", "0", "0", "0", "0", "0", "0", "0", "0", "0", 
      "0", "0", "0", "0", "0", "0", "0.`", "0", "0", "0", "0", "0", "0", "0", 
      "0", "0", "0", "0", "0", "0"},
     {"0", "0", "0", "0", "0", "0", "0", "0", "0", "0", "0", "0", "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.8001423149608882`", "0", "0",
       "0", "0", "0", "0", "0", "0", "0", "0", "0", "0", "0", "0", "0", "0", 
      "0", "0", "0", "0", "0", "0", "0", "0", "0", "0", "0", "0", "0", "0", 
      "0", "0", "0", "0", "0", "0", "0", "0.`", "0", "0", "0", "0", "0", "0", 
      "0", "0", "0", "0", "0", "0"},
     {"0", "0", "0", "0", "0", "0", "0", "0", "0", "0", "0", "0", "0", "0", 
      "0", "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.0915826791997567`", "0", "0", "0", "0", "0", "0",
       "0", "0", "0", "0", "0", "0", "0", "0", "0", "0", "0", "0", "0", "0", 
      "0", "0", "0", "0", "0", "0", "0", "0", "0", "0", "0", "0", "0", "0", 
      "0", "0", "0", "0", "0", "0", "0", "0", "0", "0", "0", "0", "0", "0", 
      "0", "0", "0", "0", "0", "0", "0", "0", "0", "0.`", "0", "0", "0", "0", 
      "0", "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.0992627531971157`", "0", "0", "0",
       "0", "0", "0", "0", "0", "0", "0", "0", "0", "0", "0", "0", "0", "0", 
      "0", "0", "0", "0", "0", "0", "0", "0", "0", "0", "0", "0", "0", "0", 
      "0", "0", "0", "0", "0", "0", "0", "0", "0", "0", "0", "0", "0", "0", 
      "0", "0", "0", "0", "0", "0", "0", "0", "0", "0", "0", "0", "0.`", "0", 
      "0", "0", "0", "0", "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.0993401520042068`", "0", "0",
       "0", "0", "0", "0", "0", "0", "0", "0", "0", "0", "0", "0", "0", "0", 
      "0", "0", "0", "0", "0", "0", "0", "0", "0", "0", "0", "0", "0", "0", 
      "0", "0", "0", "0", "0", "0", "0", "0", "0", "0", "0", "0", "0", "0", 
      "0", "0", "0", "0", "0", "0", "0", "0", "0", "0", "0", "0", "0", "0.`", 
      "0", "0", "0", "0", "0", "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.098719180080517`", "0", 
      "0", "0", "0", "0", "0", "0", "0", "0", "0", "0", "0", "0", "0", "0", 
      "0", "0", "0", "0", "0", "0", "0", "0", "0", "0", "0", "0", "0", "0", 
      "0", "0", "0", "0", "0", "0", "0", "0", "0", "0", "0", "0", "0", "0", 
      "0", "0", "0", "0", "0", "0", "0", "0", "0", "0", "0", "0", "0", "0", 
      "0.`", "0", "0", "0", "0", "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.096810880969897`", "0", 
      "0", "0", "0", "0", "0", "0", "0", "0", "0", "0", "0", "0", "0", "0", 
      "0", "0", "0", "0", "0", "0", "0", "0", "0", "0", "0", "0", "0", "0", 
      "0", "0", "0", "0", "0", "0", "0", "0", "0", "0", "0", "0", "0", "0", 
      "0", "0", "0", "0", "0", "0", "0", "0", "0", "0", "0", "0", "0", "0", 
      "0", "0.`", "0", "0", "0", "0"},
     {"0", "0", "0", "0", "0", "0", "0", "0", "0", "0", "0", "0", "0", "0", 
      "0", "0", "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.791525031738966`", "0", "0", "0", "0", "0", "0", "0", "0", "0", "0", 
      "0", "0", "0", "0", "0", "0", "0", "0", "0", "0", "0", "0", "0", "0", 
      "0", "0", "0", "0", "0", "0", "0", "0", "0", "0", "0", "0", "0", "0", 
      "0", "0", "0", "0", "0.`", "0"},
     {"0", "0", "0", "0", "0", "0", "0", "0", "0", "0", "0", "0", "0", "0", 
      "0", "0", "0", "0", "0", "0", "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.575869496924037*^9}]
}, Open  ]],

Cell[BoxData[""], "Input",
 CellChangeTimes->{{3.5711447475554733`*^9, 3.5711448173314643`*^9}, {
   3.5711448756027975`*^9, 3.57114492740276*^9}, {3.5711449591545763`*^9, 
   3.5711450128426466`*^9}, 3.571145059034289*^9, {3.571145091643154*^9, 
   3.5711451544367456`*^9}, {3.5711457670857873`*^9, 3.571145777413378*^9}, {
   3.571145816908637*^9, 3.5711458203728347`*^9}, {3.571145995427848*^9, 
   3.571146043099574*^9}, {3.571146121580063*^9, 3.571146129714528*^9}, {
   3.5711468466695356`*^9, 3.571146852041843*^9}, {3.5711478420384674`*^9, 
   3.571147850085928*^9}, {3.57114788911016*^9, 3.571147906822173*^9}, 
   3.571148086181432*^9, {3.571148123252552*^9, 3.5711481317480383`*^9}, {
   3.571148234499915*^9, 3.57114834630731*^9}, 3.571151990091008*^9, {
   3.5712017864539623`*^9, 3.5712018128960094`*^9}, {3.5712024819499846`*^9, 
   3.5712024821527843`*^9}, {3.571202538780884*^9, 3.5712025389368844`*^9}, {
   3.5712028115629635`*^9, 3.5712028346354036`*^9}, {3.5746569418109684`*^9, 
   3.574656960905402*^9}}],

Cell[CellGroupData[{

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

Cell[BoxData[
 RowBox[{"{", 
  RowBox[{
  "0.2572`", ",", "0.2572`", ",", "0.2572`", ",", "0.2572`", ",", "0.2572`", 
   ",", "0.2572`", ",", "0.2572`", ",", "0.2572`", ",", "0.2572`", ",", 
   "0.2572`", ",", "0.2572`", ",", "0.2572`", ",", "0.2572`", ",", "0.2572`", 
   ",", "0.2572`", ",", "0.2572`", ",", "0.2572`", ",", "0.2572`", ",", 
   "0.2572`", ",", "0.2572`", ",", "0.2572`", ",", "0.2572`", ",", "0.2572`", 
   ",", "0.2572`", ",", "0.1786`", ",", "0.1786`", ",", "0.1786`", ",", 
   "0.1786`", ",", "0.1786`", ",", "0.1786`", ",", "0.1786`", ",", "0.1786`", 
   ",", "0.1786`", ",", "0.1786`", ",", "0.1786`", ",", "0.1786`", ",", 
   "0.1786`", ",", "0.1786`", ",", "0.1786`", ",", "0.1786`", ",", "0.1786`", 
   ",", "0.1786`", ",", "0.1786`", ",", "0.1786`", ",", "0.1786`", ",", 
   "0.59`", ",", "0.59`", ",", "0.59`", ",", "0.59`", ",", "0.59`", ",", 
   "0.5241`", ",", "0.5241`", ",", "0.59`", ",", "0.59`", ",", "0.5241`", ",",
    "0.5241`", ",", "0.59`", ",", "0.59`", ",", "0.59`", ",", "0.59`", ",", 
   "0.59`", ",", "0.59`", ",", "0.59`", ",", "0.5241`", ",", "0.5241`", ",", 
   "0.5241`", ",", "0.59`", ",", "0.59`", ",", "0.59`", ",", "0.59`", ",", 
   "0.59`", ",", "0.59`", ",", "0.59`", ",", "0.5241`", ",", "0.5241`", ",", 
   "0.5241`", ",", "0.59`", ",", "0.59`", ",", "0.59`", ",", "0.59`", ",", 
   "0.59`", ",", "0.59`", ",", "0.59`", ",", "0.5241`", ",", "0.5241`", ",", 
   "0.5241`", ",", "0.5241`"}], "}"}]], "Output",
 CellChangeTimes->{3.575869496970837*^9}]
}, Open  ]],

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

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

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

Cell[BoxData[
 RowBox[{
  RowBox[{"(*", " ", 
   RowBox[{"determine", " ", "bond", " ", "cloud", " ", "radii"}], " ", 
   "*)"}], "\[IndentingNewLine]", 
  RowBox[{
   RowBox[{
    RowBox[{"Lij", "=", 
     RowBox[{"Table", "[", 
      RowBox[{
       RowBox[{"If", "[", 
        RowBox[{
         RowBox[{"i", "\[LessEqual]", "j"}], ",", 
         RowBox[{"If", "[", 
          RowBox[{
           RowBox[{
            RowBox[{"Lij", "[", 
             RowBox[{"[", 
              RowBox[{"i", ",", "j"}], "]"}], "]"}], ">", "0"}], ",", 
           RowBox[{"If", "[", 
            RowBox[{
             RowBox[{
              RowBox[{"u", "[", 
               RowBox[{"[", "j", "]"}], "]"}], "\[NotEqual]", "\"\<H\>\""}], 
             ",", 
             RowBox[{"0.5", "*", 
              RowBox[{"Lij", "[", 
               RowBox[{"[", 
                RowBox[{"i", ",", "j"}], "]"}], "]"}]}], ",", 
             RowBox[{"Lij", "[", 
              RowBox[{"[", 
               RowBox[{"i", ",", "j"}], "]"}], "]"}]}], "]"}], ",", "0"}], 
          "]"}], ",", "\"\< \>\""}], "]"}], ",", 
       RowBox[{"{", 
        RowBox[{"i", ",", "1", ",", "n"}], "}"}], ",", 
       RowBox[{"{", 
        RowBox[{"j", ",", "1", ",", "n"}], "}"}]}], "]"}]}], ";"}], "  ", 
   "\[IndentingNewLine]", 
   RowBox[{
    RowBox[{"Qij", "=", "Lij"}], ";"}], "\[IndentingNewLine]", 
   RowBox[{"(*", 
    RowBox[{
     RowBox[{"MatrixForm", "[", "Lij", "]"}], ";"}], "*)"}]}]}]], "Input",
 CellChangeTimes->{{3.5679627617388124`*^9, 3.567962837461345*^9}, {
   3.567963118121438*^9, 3.567963118698639*^9}, {3.5679631520670977`*^9, 
   3.5679631541731014`*^9}, {3.5679631898191643`*^9, 
   3.5679632154656096`*^9}, {3.5679635823158536`*^9, 3.56796361468591*^9}, {
   3.567963691516045*^9, 3.567963693590849*^9}, {3.567963737957327*^9, 
   3.567963807299449*^9}, {3.568048114904332*^9, 3.5680481161835346`*^9}, 
   3.5680482221389203`*^9, {3.5680485003498087`*^9, 3.5680485123618298`*^9}, 
   3.5681142659931054`*^9, 3.5681219084621286`*^9, {3.568277848107582*^9, 
   3.5682778496519847`*^9}, {3.5683793122399254`*^9, 3.568379313019926*^9}, {
   3.568379456758579*^9, 3.56837947986222*^9}, 3.5683796000760307`*^9, {
   3.5683796473285136`*^9, 3.5683796831617765`*^9}, {3.568381744939398*^9, 
   3.5683817743298492`*^9}, {3.56846523720809*^9, 3.568465240218895*^9}, 
   3.569341165537958*^9, 3.5693418217531104`*^9, {3.5705967846533675`*^9, 
   3.5705968020785985`*^9}}],

Cell[CellGroupData[{

Cell[BoxData[
 RowBox[{
  RowBox[{"(*", " ", 
   RowBox[{"determine", " ", "kinetic", " ", "energy"}], " ", "*)"}], 
  "\[IndentingNewLine]", 
  RowBox[{
   RowBox[{
    RowBox[{"Nij", "=", 
     RowBox[{"Table", "[", 
      RowBox[{
       RowBox[{"If", "[", 
        RowBox[{
         RowBox[{"i", "\[LessEqual]", "j"}], ",", 
         RowBox[{"If", "[", 
          RowBox[{
           RowBox[{
            RowBox[{"Lij", "[", 
             RowBox[{"[", 
              RowBox[{"i", ",", "j"}], "]"}], "]"}], ">", "0"}], ",", 
           RowBox[{"2.25", "/", 
            RowBox[{
             RowBox[{"Lij", "[", 
              RowBox[{"[", 
               RowBox[{"i", ",", "j"}], "]"}], "]"}], "^", "2"}]}], ",", 
           "0"}], "]"}], ",", "\"\< \>\""}], "]"}], ",", 
       RowBox[{"{", 
        RowBox[{"i", ",", "1", ",", "n"}], "}"}], ",", 
       RowBox[{"{", 
        RowBox[{"j", ",", "1", ",", "n"}], "}"}]}], "]"}]}], ";"}], 
   "\[IndentingNewLine]", 
   RowBox[{"(*", 
    RowBox[{"MatrixForm", "[", "Nij", "]"}], "*)"}], "\n", 
   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"}], "}"}]}], "]"}]}], "\n", 
   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"}], "}"}]}], "]"}]}], "\n", 
   RowBox[{"Ttot", "=", 
    RowBox[{"Tval", "+", "Tcor"}]}], "  ", 
   RowBox[{"(*", " ", 
    RowBox[{"plus", " ", "\[Pi]", " ", "and", " ", "lone", " ", 
     RowBox[{"pairs", ":", " ", 
      RowBox[{"+", " ", "8.7616"}]}]}], " ", "*)"}], "\n", 
   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"}], "}"}]}], "]"}]}], "\n", 
   RowBox[{"TvalC", "=", 
    RowBox[{"Tval", "-", "TvalH"}]}]}]}]], "Input",
 CellChangeTimes->{{3.5679628944794455`*^9, 3.5679629710755796`*^9}, {
   3.567963889963994*^9, 3.567963933800071*^9}, {3.5680478391738477`*^9, 
   3.5680478414358516`*^9}, 3.568048231171336*^9, {3.5680482823550262`*^9, 
   3.56804828449223*^9}, 3.5680483349271183`*^9, 3.568114273059918*^9, 
   3.5681219175101447`*^9, {3.568277851305588*^9, 3.568277857295998*^9}, {
   3.5688722635742655`*^9, 3.568872266616271*^9}, 3.5688723032763357`*^9, 
   3.5688725225503206`*^9, 3.5692365125035076`*^9, {3.5692366381461277`*^9, 
   3.5692366389105296`*^9}, {3.5692366963654304`*^9, 3.5692366986898346`*^9}, 
   3.5693411655535583`*^9, 3.5693418217687106`*^9, {3.5705968460394754`*^9, 
   3.5705968602823005`*^9}, 3.574657067547189*^9}],

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

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

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

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

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

Cell[CellGroupData[{

Cell[BoxData["81.28355061614184`"], "Input",
 CellChangeTimes->{{3.5750227820727663`*^9, 3.575022793757187*^9}}],

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

Cell[CellGroupData[{

Cell[BoxData[
 RowBox[{"MatrixForm", "[", 
  RowBox[{"Table", "[", 
   RowBox[{
    RowBox[{"Join", "[", 
     RowBox[{
      RowBox[{"{", "i", "}"}], ",", 
      RowBox[{"{", 
       RowBox[{"u", "[", 
        RowBox[{"[", "i", "]"}], "]"}], "}"}], ",", 
      RowBox[{"t", "[", 
       RowBox[{"[", "i", "]"}], "]"}]}], "]"}], ",", 
    RowBox[{"{", 
     RowBox[{"i", ",", "1", ",", "n"}], "}"}]}], "]"}], "]"}]], "Input",
 CellChangeTimes->{{3.5750227820727663`*^9, 3.5750228076412115`*^9}, {
  3.5758677700806036`*^9, 3.5758677723894076`*^9}}],

Cell[BoxData[
 TagBox[
  RowBox[{"(", "\[NoBreak]", GridBox[{
     {"1", "\<\"C\"\>", "1.4720965540000002`", "13.160051864000001`", 
      RowBox[{"-", "0.253223284`"}]},
     {"2", "\<\"C\"\>", 
      RowBox[{"-", "1.19997601`"}], "12.260542288000002`", "0.315584242`"},
     {"3", "\<\"C\"\>", 
      RowBox[{"-", "3.06135612`"}], "14.225857328`", 
      RowBox[{"-", "0.687860264`"}]},
     {"4", "\<\"C\"\>", 
      RowBox[{"-", "0.196531504`"}], "17.549885362`", "0.098265752`"},
     {"5", "\<\"C\"\>", "1.846262302`", "15.730079224`", "0.978878068`"},
     {"6", "\<\"C\"\>", 
      RowBox[{"-", "5.827914984`"}], "13.47374638`", 
      RowBox[{"-", "0.31369451600000003`"}]},
     {"7", "\<\"C\"\>", 
      RowBox[{"-", "1.4399712120000001`"}], "7.723310162`", "0.470541774`"},
     {"8", "\<\"C\"\>", 
      RowBox[{"-", "3.54323625`"}], "5.91484238`", 
      RowBox[{"-", "0.262671914`"}]},
     {"9", "\<\"C\"\>", 
      RowBox[{"-", "3.050017764`"}], "3.314579404`", "0.852266426`"},
     {"10", "\<\"C\"\>", 
      RowBox[{"-", "0.438416432`"}], "2.450974622`", "0.013228082`"},
     {"11", "\<\"C\"\>", "1.49288354`", "4.40306158`", "0.901399302`"},
     {"12", "\<\"C\"\>", "4.221647884`", "3.673627344`", "0.2834589`"},
     {"13", "\<\"C\"\>", 
      RowBox[{"-", "0.149288354`"}], 
      RowBox[{"-", "2.076808874`"}], 
      RowBox[{"-", "0.287238352`"}]},
     {"14", "\<\"C\"\>", "2.010668464`", 
      RowBox[{"-", "3.8852766560000003`"}], "0.268341092`"},
     {"15", "\<\"C\"\>", "1.45508902`", 
      RowBox[{"-", "6.47231155`"}], 
      RowBox[{"-", "0.8503767`"}]},
     {"16", "\<\"C\"\>", 
      RowBox[{"-", "1.084702724`"}], 
      RowBox[{"-", "7.36048277`"}], "0.166295888`"},
     {"17", "\<\"C\"\>", 
      RowBox[{"-", "3.085922558`"}], 
      RowBox[{"-", "5.415954716`"}], 
      RowBox[{"-", "0.570697252`"}]},
     {"18", "\<\"C\"\>", 
      RowBox[{"-", "5.7579951220000005`"}], 
      RowBox[{"-", "6.164286212`"}], "0.23243629799999999`"},
     {"19", "\<\"C\"\>", 
      RowBox[{"-", "1.347374638`"}], 
      RowBox[{"-", "11.882597088`"}], "0.49132876000000003`"},
     {"20", "\<\"C\"\>", 
      RowBox[{"-", "3.5621335100000002`"}], 
      RowBox[{"-", "13.666498432000001`"}], "0.12283219000000001`"},
     {"21", "\<\"C\"\>", 
      RowBox[{"-", "2.953641738`"}], 
      RowBox[{"-", "16.206290176`"}], "1.3020212139999998`"},
     {"22", "\<\"C\"\>", 
      RowBox[{"-", "0.5102260200000001`"}], 
      RowBox[{"-", "17.183278518`"}], "0.153067806`"},
     {"23", "\<\"C\"\>", "1.58736984`", 
      RowBox[{"-", "15.253868271999998`"}], "0.60471232`"},
     {"24", "\<\"C\"\>", "4.130941036`", 
      RowBox[{"-", "16.060781274`"}], 
      RowBox[{"-", "0.489439034`"}]},
     {"25", "\<\"O\"\>", 
      RowBox[{"-", "2.609711606`"}], "16.51620524`", "0.6614040999999999`"},
     {"26", "\<\"O\"\>", "3.2824540620000002`", "11.481975175999999`", 
      "0.863604782`"},
     {"27", "\<\"O\"\>", 
      RowBox[{"-", "1.7139814820000001`"}], "9.958856019999999`", 
      RowBox[{"-", "0.999665054`"}]},
     {"28", "\<\"O\"\>", 
      RowBox[{"-", "0.15684725800000002`"}], "19.828894918`", 
      "1.5476855939999998`"},
     {"29", "\<\"O\"\>", "4.257552678000001`", "16.682501128`", 
      "0.196531504`"},
     {"30", "\<\"O\"\>", 
      RowBox[{"-", "6.224757444`"}], "12.360697766000001`", "2.127831476`"},
     {"31", "\<\"O\"\>", 
      RowBox[{"-", "5.854371147999999`"}], "6.865374558`", 
      "0.7899054679999999`"},
     {"32", "\<\"O\"\>", 
      RowBox[{"-", "4.958641024`"}], "1.664848606`", 
      RowBox[{"-", "0.139839724`"}]},
     {"33", "\<\"O\"\>", "0.20786986`", "0.12283219000000001`", 
      "1.216983544`"},
     {"34", "\<\"O\"\>", "0.91651711`", "6.72742456`", 
      RowBox[{"-", "0.338260954`"}]},
     {"35", "\<\"O\"\>", "4.418179388`", "2.641836948`", 
      RowBox[{"-", "2.218538324`"}]},
     {"36", "\<\"O\"\>", "4.236765692`", 
      RowBox[{"-", "2.898839684`"}], 
      RowBox[{"-", "0.9297451919999999`"}]},
     {"37", "\<\"O\"\>", "3.42985269`", 
      RowBox[{"-", "8.133380704`"}], 
      RowBox[{"-", "0.024566438`"}]},
     {"38", "\<\"O\"\>", 
      RowBox[{"-", "1.7820116179999999`"}], 
      RowBox[{"-", "9.690514928`"}], 
      RowBox[{"-", "1.007223958`"}]},
     {"39", "\<\"O\"\>", 
      RowBox[{"-", "2.443415718`"}], 
      RowBox[{"-", "3.101040366`"}], "0.6557349219999999`"},
     {"40", "\<\"O\"\>", 
      RowBox[{"-", "5.775002656`"}], 
      RowBox[{"-", "7.141274554`"}], "2.7646691380000004`"},
     {"41", "\<\"O\"\>", 
      RowBox[{"-", "5.699413616`"}], 
      RowBox[{"-", "12.625259406`"}], "1.42674313`"},
     {"42", "\<\"O\"\>", 
      RowBox[{"-", "4.9775382839999995`"}], 
      RowBox[{"-", "17.903264124`"}], "0.68974999`"},
     {"43", "\<\"O\"\>", "0.105824656`", 
      RowBox[{"-", "19.494413416`"}], "1.430522582`"},
     {"44", "\<\"O\"\>", "0.857935604`", 
      RowBox[{"-", "12.948402552000001`"}], 
      RowBox[{"-", "0.602822594`"}]},
     {"45", "\<\"O\"\>", "3.802128712`", 
      RowBox[{"-", "16.986747014000002`"}], 
      RowBox[{"-", "3.01411297`"}]},
     {"46", "\<\"H\"\>", "1.780121892`", "13.288553232`", 
      RowBox[{"-", "2.326252706`"}]},
     {"47", "\<\"H\"\>", 
      RowBox[{"-", "1.46453765`"}], "12.045113524`", "2.382944486`"},
     {"48", "\<\"H\"\>", 
      RowBox[{"-", "2.745771878`"}], "14.543331296`", 
      RowBox[{"-", "2.7401027`"}]},
     {"49", "\<\"H\"\>", 
      RowBox[{"-", "0.020786986`"}], "17.992081246`", 
      RowBox[{"-", "1.938858876`"}]},
     {"50", "\<\"H\"\>", "1.791460248`", "15.539216898000001`", 
      "3.0689150240000003`"},
     {"51", "\<\"H\"\>", "5.459418414`", "15.403156626`", "0.574476704`"},
     {"52", "\<\"H\"\>", "3.016002696`", "9.862479994000001`", "0.126611642`"},
     {"53", "\<\"H\"\>", 
      RowBox[{"-", "7.06757524`"}], "15.151823068`", 
      RowBox[{"-", "0.5121157460000001`"}]},
     {"54", "\<\"H\"\>", 
      RowBox[{"-", "6.419399222`"}], "12.124482016`", 
      RowBox[{"-", "1.8103575079999998`"}]},
     {"55", "\<\"H\"\>", 
      RowBox[{"-", "6.147278678`"}], "10.567347792`", "1.925630794`"},
     {"56", "\<\"H\"\>", 
      RowBox[{"-", "0.42518835`"}], "19.432052457999998`", 
      "3.2711157060000002`"},
     {"57", "\<\"H\"\>", 
      RowBox[{"-", "1.447530116`"}], "8.099365636`", "2.528453388`"},
     {"58", "\<\"H\"\>", 
      RowBox[{"-", "3.692524604`"}], "5.793899916`", 
      RowBox[{"-", "2.350819144`"}]},
     {"59", "\<\"H\"\>", 
      RowBox[{"-", "3.16529105`"}], "3.380719814`", "2.949862286`"},
     {"60", "\<\"H\"\>", 
      RowBox[{"-", "0.362827392`"}], "2.294127364`", 
      RowBox[{"-", "2.076808874`"}]},
     {"61", "\<\"H\"\>", "1.353043816`", "4.663843768`", "2.981987628`"},
     {"62", "\<\"H\"\>", "5.47075677`", "5.349814306`", "0.432747254`"},
     {"63", "\<\"H\"\>", "4.934074586`", "2.279009556`", "1.68185614`"},
     {"64", "\<\"H\"\>", 
      RowBox[{"-", "7.1015903080000005`"}], "5.610596494`", "0.476210952`"},
     {"65", "\<\"H\"\>", 
      RowBox[{"-", "4.603372536`"}], "0.015117808`", "0.489439034`"},
     {"66", "\<\"H\"\>", "4.386054046`", "0.844707522`", 
      RowBox[{"-", "2.067360244`"}]},
     {"67", "\<\"H\"\>", 
      RowBox[{"-", "0.279679448`"}], 
      RowBox[{"-", "1.655399976`"}], 
      RowBox[{"-", "2.3300321580000003`"}]},
     {"68", "\<\"H\"\>", "2.30546572`", 
      RowBox[{"-", "4.03456501`"}], "2.339480788`"},
     {"69", "\<\"H\"\>", "1.419184226`", 
      RowBox[{"-", "6.374045798`"}], 
      RowBox[{"-", "2.946082834`"}]},
     {"70", "\<\"H\"\>", 
      RowBox[{"-", "1.0091136840000001`"}], 
      RowBox[{"-", "7.528668384`"}], "2.252553392`"},
     {"71", "\<\"H\"\>", 
      RowBox[{"-", "3.08970201`"}], 
      RowBox[{"-", "5.13060609`"}], 
      RowBox[{"-", "2.653175304`"}]},
     {"72", "\<\"H\"\>", 
      RowBox[{"-", "7.03922935`"}], 
      RowBox[{"-", "4.50699651`"}], "0.130391094`"},
     {"73", "\<\"H\"\>", 
      RowBox[{"-", "6.540341686`"}], 
      RowBox[{"-", "7.5966985199999995`"}], 
      RowBox[{"-", "1.0884821759999999`"}]},
     {"74", "\<\"H\"\>", "5.516110194`", 
      RowBox[{"-", "4.136610214`"}], 
      RowBox[{"-", "0.7086472500000001`"}]},
     {"75", "\<\"H\"\>", "2.987656806`", 
      RowBox[{"-", "9.785001228`"}], 
      RowBox[{"-", "0.587704786`"}]},
     {"76", "\<\"H\"\>", 
      RowBox[{"-", "5.784451286`"}], 
      RowBox[{"-", "8.940293706`"}], "2.647506126`"},
     {"77", "\<\"H\"\>", 
      RowBox[{"-", "1.056356834`"}], 
      RowBox[{"-", "11.44229093`"}], "2.515225306`"},
     {"78", "\<\"H\"\>", 
      RowBox[{"-", "3.9892115860000006`"}], 
      RowBox[{"-", "13.885706648`"}], 
      RowBox[{"-", "1.9199616160000001`"}]},
     {"79", "\<\"H\"\>", 
      RowBox[{"-", "2.7646691380000004`"}], 
      RowBox[{"-", "16.021097028`"}], "3.3844992659999997`"},
     {"80", "\<\"H\"\>", 
      RowBox[{"-", "0.780456838`"}], 
      RowBox[{"-", "17.521539472`"}], 
      RowBox[{"-", "1.901064356`"}]},
     {"81", "\<\"H\"\>", "1.83303422`", 
      RowBox[{"-", "14.91938677`"}], "2.662623934`"},
     {"82", "\<\"H\"\>", "5.472646496`", 
      RowBox[{"-", "14.44695527`"}], 
      RowBox[{"-", "0.48565958200000003`"}]},
     {"83", "\<\"H\"\>", "4.983207462`", 
      RowBox[{"-", "17.570672348`"}], "0.68974999`"},
     {"84", "\<\"H\"\>", 
      RowBox[{"-", "6.993875926`"}], 
      RowBox[{"-", "13.866809388`"}], "1.34170546`"},
     {"85", "\<\"H\"\>", 
      RowBox[{"-", "4.457863634`"}], 
      RowBox[{"-", "19.532207936000002`"}], "1.230211626`"},
     {"86", "\<\"H\"\>", "0.413849994`", 
      RowBox[{"-", "19.097570956`"}], "3.150173242`"},
     {"87", "\<\"H\"\>", "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.575869497080037*^9}]
}, Open  ]],

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

Cell[CellGroupData[{

Cell[BoxData[{
 RowBox[{
  RowBox[{"Eij", "=", 
   RowBox[{"Table", "[", 
    RowBox[{
     RowBox[{"If", "[", 
      RowBox[{
       RowBox[{"i", "\[GreaterEqual]", "j"}], ",", 
       RowBox[{"Dij", "[", 
        RowBox[{"[", 
         RowBox[{"i", ",", "j"}], "]"}], "]"}], ",", "0"}], "]"}], ",", 
     RowBox[{"{", 
      RowBox[{"i", ",", "1", ",", 
       RowBox[{"bc", "-", "1"}]}], "}"}], ",", 
     RowBox[{"{", 
      RowBox[{"j", ",", "1", ",", 
       RowBox[{"bc", "-", "1"}]}], "}"}]}], "]"}]}], 
  ";"}], "\[IndentingNewLine]", 
 RowBox[{"CD", "=", 
  RowBox[{"Select", "[", 
   RowBox[{
    RowBox[{"Flatten", "[", "Eij", "]"}], ",", 
    RowBox[{
     RowBox[{"(", 
      RowBox[{
       RowBox[{"#", "\[GreaterEqual]", "2.4"}], " ", "&&", 
       RowBox[{"#", "\[LessEqual]", "2.6"}]}], ")"}], " ", "&"}]}], 
   "]"}]}], "\[IndentingNewLine]", 
 RowBox[{
  RowBox[{"Mean", "[", "CD", "]"}], " ", "\[PlusMinus]", " ", 
  RowBox[{"StandardDeviation", "[", "CD", "]"}]}], "\n", 
 RowBox[{"CC", "=", 
  RowBox[{"Select", "[", 
   RowBox[{
    RowBox[{"Flatten", "[", "Eij", "]"}], ",", 
    RowBox[{
     RowBox[{"(", 
      RowBox[{"#", "\[GreaterEqual]", "2.6"}], ")"}], " ", "&"}]}], 
   "]"}]}], "\n", 
 RowBox[{
  RowBox[{
   RowBox[{"Mean", "[", "CC", "]"}], " ", "\[PlusMinus]", " ", 
   RowBox[{"StandardDeviation", "[", "CC", "]"}]}], " "}], "\n", 
 RowBox[{
  RowBox[{"Eij", "=", 
   RowBox[{"Table", "[", 
    RowBox[{
     RowBox[{"If", "[", 
      RowBox[{
       RowBox[{"i", "\[GreaterEqual]", "j"}], ",", 
       RowBox[{"Dij", "[", 
        RowBox[{"[", 
         RowBox[{"i", ",", "j"}], "]"}], "]"}], ",", "0"}], "]"}], ",", 
     RowBox[{"{", 
      RowBox[{"i", ",", 
       RowBox[{"bc", "+", "1"}], ",", "n"}], "}"}], ",", 
     RowBox[{"{", 
      RowBox[{"j", ",", "1", ",", 
       RowBox[{"bc", "-", "1"}]}], "}"}]}], "]"}]}], 
  ";"}], "\[IndentingNewLine]", 
 RowBox[{"CH", "=", 
  RowBox[{"Select", "[", 
   RowBox[{
    RowBox[{"Flatten", "[", "Eij", "]"}], ",", 
    RowBox[{
     RowBox[{"(", 
      RowBox[{
       RowBox[{"#", ">", "0"}], " ", "&&", 
       RowBox[{"#", "\[LessEqual]", "2.1"}]}], ")"}], " ", "&"}]}], 
   "]"}]}], "\[IndentingNewLine]", 
 RowBox[{
  RowBox[{"Mean", "[", "CH", "]"}], " ", "\[PlusMinus]", " ", 
  RowBox[{"StandardDeviation", "[", "CH", "]"}]}]}], "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.5726244549749556`*^9, 3.5726244687341795`*^9}, 
   3.572624583643982*^9, {3.574656664645282*^9, 3.5746566773749037`*^9}, {
   3.574656980265036*^9, 3.5746569955686626`*^9}}],

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

Cell[BoxData[
 RowBox[{
  StyleBox[
   RowBox[{"StandardDeviation", "::", "shlen"}], "MessageName"], 
  RowBox[{
  ":", " "}], "\<\"The argument \[NoBreak]\\!\\({}\\)\[NoBreak] should have \
at least two elements. \\!\\(\\*ButtonBox[\\\"\[RightSkeleton]\\\", \
ButtonStyle->\\\"Link\\\", ButtonFrame->None, \
ButtonData:>\\\"paclet:ref/StandardDeviation\\\", ButtonNote -> \
\\\"StandardDeviation::shlen\\\"]\\)\"\>"}]], "Message", "MSG",
 CellChangeTimes->{3.575869497220437*^9}],

Cell[BoxData[
 RowBox[{
  RowBox[{"Mean", "[", 
   RowBox[{"{", "}"}], "]"}], "\[PlusMinus]", 
  RowBox[{"StandardDeviation", "[", 
   RowBox[{"{", "}"}], "]"}]}]], "Output",
 CellChangeTimes->{3.5758694972360373`*^9}],

Cell[BoxData[
 RowBox[{"{", 
  RowBox[{
  "2.8762182229850843`", ",", "2.8868841329321464`", ",", 
   "2.874563337226229`", ",", "2.874052707384701`", ",", "2.891283250229011`",
    ",", "2.869125624798556`", ",", "2.8718843154435145`", ",", 
   "2.875805987805802`", ",", "2.886071930752452`", ",", "2.891380205050622`",
    ",", "2.871347713662007`", ",", "2.872794381696381`", ",", 
   "2.8762846469216963`", ",", "2.886040378302957`", ",", 
   "2.888770554115148`", ",", "2.8676210677719407`", ",", 
   "2.865535044944369`", ",", "2.8713899987859857`", ",", 
   "2.8855701440590953`", ",", "2.8840995487981274`", ",", 
   "2.696329106208919`", ",", "2.6849688263171383`", ",", 
   "2.7093616603521813`", ",", "2.700341091820479`", ",", 
   "2.689657046611008`", ",", "2.7011622080325357`", ",", 
   "2.708042633861552`", ",", "2.7124546677866808`", ",", 
   "2.711600096486365`", ",", "2.710853936926622`", ",", 
   "2.6994370463488897`", ",", "2.6886179186839767`", ",", 
   "2.6830928416313737`", ",", "2.696593976617802`", ",", 
   "2.7135228324534224`", ",", "2.7136649594499946`", ",", 
   "2.7093919752495497`", ",", "2.700451514084544`", ",", 
   "2.690686482888516`", ",", "2.683518046694751`", ",", "2.697365263494189`",
    ",", "2.7142215518618107`", ",", "2.711517785340986`", ",", 
   "2.711227371660277`", ",", "2.7115961456084743`", ",", 
   "2.682629630795572`", ",", "2.7028479534137686`"}], "}"}]], "Output",
 CellChangeTimes->{3.5758694972360373`*^9}],

Cell[BoxData[
 RowBox[{"2.776635697113771`", "\[PlusMinus]", 
  "0.0890056181380871`"}]], "Output",
 CellChangeTimes->{3.5758694972360373`*^9}],

Cell[BoxData[
 RowBox[{"{", 
  RowBox[{
  "2.0997245521509575`", ",", "2.095323553103386`", ",", "2.091960823112549`",
    ",", "2.099449015826414`", ",", "1.795562913509712`", ",", 
   "1.7991442030508649`", ",", "2.0957265817920407`", ",", 
   "1.806375432801264`", ",", "1.7887711510036548`", ",", 
   "2.092002645216093`", ",", "2.0969675596906816`", ",", 
   "2.097276625234732`", ",", "2.095748733341614`", ",", 
   "2.0995298095450385`", ",", "1.7967826447111432`", ",", 
   "1.8010605652519145`", ",", "1.803763017490433`", ",", 
   "2.0898789033195335`", ",", "2.097334516745512`", ",", 
   "2.0983158752517537`", ",", "2.0943902398361645`", ",", 
   "2.0972800306619543`", ",", "2.0996896868982753`", ",", 
   "1.7937899931961787`", ",", "1.8001423149608882`", ",", 
   "1.8028550571947237`", ",", "2.0915826791997567`", ",", 
   "2.098440959091709`", ",", "2.0992193745958576`", ",", 
   "2.0992627531971157`", ",", "2.0993401520042068`", ",", 
   "2.098719180080517`", ",", "2.096810880969897`", ",", 
   "1.7956364986081583`", ",", "1.7932145617559319`", ",", 
   "1.791525031738966`"}], "}"}]], "Output",
 CellChangeTimes->{3.5758694972360373`*^9}],

Cell[BoxData[
 RowBox[{"1.9886832921149897`", "\[PlusMinus]", 
  "0.14575651789751864`"}]], "Output",
 CellChangeTimes->{3.5758694972360373`*^9}]
}, Open  ]],

Cell[CellGroupData[{

Cell[BoxData[
 RowBox[{
  RowBox[{"(*", " ", 
   RowBox[{"count", " ", "C", " ", "atoms"}], " ", "*)"}], 
  "\[IndentingNewLine]", 
  RowBox[{
   RowBox[{
    RowBox[{"nc", "=", "0"}], ";"}], "  ", "\n", 
   RowBox[{"For", "[", 
    RowBox[{
     RowBox[{"i", "=", "1"}], ",", 
     RowBox[{"i", "<", 
      RowBox[{"bc", "+", "1"}]}], ",", 
     RowBox[{"i", "++"}], ",", 
     RowBox[{"If", "[", 
      RowBox[{
       RowBox[{
        RowBox[{"u", "[", 
         RowBox[{"[", "i", "]"}], "]"}], "\[Equal]", "\"\<C\>\""}], ",", 
       RowBox[{"nc", "=", 
        RowBox[{"nc", "+", "1"}]}], ",", "nc"}], "]"}]}], "]"}], 
   "\[IndentingNewLine]", 
   RowBox[{
    RowBox[{"cnt", "=", 
     RowBox[{"Table", "[", 
      RowBox[{"0", ",", 
       RowBox[{"{", "nc", "}"}]}], "]"}]}], ";"}], "\[IndentingNewLine]", 
   RowBox[{
    RowBox[{"pri", "=", "cnt"}], ";", " ", 
    RowBox[{"sec", "=", "cnt"}], ";", 
    RowBox[{"ter", "=", "cnt"}], ";", " ", 
    RowBox[{"qua", "=", "cnt"}], ";"}], "\[IndentingNewLine]", 
   "nc"}]}]], "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.5726244549749556`*^9, 3.5726244687341795`*^9}, 
   3.572624583643982*^9, {3.574656664645282*^9, 3.5746566836773148`*^9}, {
   3.5746567220533824`*^9, 3.5746567296193953`*^9}}],

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

Cell[CellGroupData[{

Cell[BoxData[
 RowBox[{
  RowBox[{"(*", " ", 
   RowBox[{"count", " ", "O", " ", "atoms"}], " ", "*)"}], 
  "\[IndentingNewLine]", 
  RowBox[{
   RowBox[{
    RowBox[{"no", "=", "0"}], ";"}], "  ", "\n", 
   RowBox[{"For", "[", 
    RowBox[{
     RowBox[{"i", "=", "1"}], ",", 
     RowBox[{"i", "<", 
      RowBox[{"bc", "+", "1"}]}], ",", 
     RowBox[{"i", "++"}], ",", 
     RowBox[{"If", "[", 
      RowBox[{
       RowBox[{
        RowBox[{"u", "[", 
         RowBox[{"[", "i", "]"}], "]"}], "\[Equal]", "\"\<O\>\""}], ",", 
       RowBox[{"no", "=", 
        RowBox[{"no", "+", "1"}]}], ",", "no"}], "]"}]}], "]"}], 
   "\[IndentingNewLine]", "no"}]}]], "Input",
 CellChangeTimes->{{3.5747778571769943`*^9, 3.5747779085322847`*^9}}],

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

Cell[CellGroupData[{

Cell[BoxData[
 RowBox[{
  RowBox[{"(*", " ", 
   RowBox[{
   "count", " ", "H", " ", "atoms", " ", "bonded", " ", "to", " ", "each", 
    " ", "C", " ", "atom"}], " ", "*)"}], "\[IndentingNewLine]", 
  RowBox[{
   RowBox[{
    RowBox[{"For", "[", 
     RowBox[{
      RowBox[{"j", "=", "1"}], ",", 
      RowBox[{"j", "\[LessEqual]", "nc"}], ",", 
      RowBox[{"j", "++"}], ",", "\[IndentingNewLine]", 
      RowBox[{"For", "[", 
       RowBox[{
        RowBox[{"i", "=", 
         RowBox[{"bc", "+", "1"}]}], ",", 
        RowBox[{"i", "\[LessEqual]", "n"}], ",", 
        RowBox[{"i", "++"}], ",", 
        RowBox[{"If", "[", " ", 
         RowBox[{
          RowBox[{
           RowBox[{"Dij", "[", 
            RowBox[{"[", 
             RowBox[{"i", ",", "j"}], "]"}], "]"}], "\[NotEqual]", "0"}], " ",
           ",", 
          RowBox[{
           RowBox[{"cnt", "[", 
            RowBox[{"[", "j", "]"}], "]"}], "=", 
           RowBox[{
            RowBox[{"cnt", "[", 
             RowBox[{"[", "j", "]"}], "]"}], "+", "1"}]}], ",", "0"}], 
         "]"}]}], "]"}]}], "]"}], ";"}], "\[IndentingNewLine]", 
   "cnt"}]}]], "Input",
 CellChangeTimes->{{3.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.5726244549749556`*^9, 3.5726244687341795`*^9}, 
   3.572624583643982*^9, {3.574656664645282*^9, 3.5746566836773148`*^9}, {
   3.5746567220533824`*^9, 3.5746567296193953`*^9}}],

Cell[BoxData[
 RowBox[{"{", 
  RowBox[{
  "1", ",", "1", ",", "1", ",", "1", ",", "1", ",", "2", ",", "1", ",", "1", 
   ",", "1", ",", "1", ",", "1", ",", "2", ",", "1", ",", "1", ",", "1", ",", 
   "1", ",", "1", ",", "2", ",", "1", ",", "1", ",", "1", ",", "1", ",", "1", 
   ",", "2"}], "}"}]], "Output",
 CellChangeTimes->{3.575869497282838*^9}]
}, Open  ]],

Cell[BoxData[
 RowBox[{
  RowBox[{"(*", " ", 
   RowBox[{
    RowBox[{"parse", " ", "into", " ", "prim"}], ",", " ", "sec", ",", " ", 
    "tert", ",", " ", 
    RowBox[{
    "and", " ", "quart", " ", "C", " ", "cores", " ", "with", " ", 
     "different", " ", "radii"}]}], " ", "*)"}], "\[IndentingNewLine]", 
  RowBox[{"(*", 
   RowBox[{
    RowBox[{"n1", "=", "0"}], ";", " ", 
    RowBox[{"n2", "=", "0"}], ";", " ", 
    RowBox[{"n3", "=", "0"}], ";", " ", 
    RowBox[{"n4", "=", "0"}], ";", "\n", 
    RowBox[{"For", "[", 
     RowBox[{
      RowBox[{"i", "=", "1"}], ",", 
      RowBox[{"i", "\[LessEqual]", "nc"}], ",", 
      RowBox[{"i", "++"}], ",", "\[IndentingNewLine]", 
      RowBox[{"If", "[", 
       RowBox[{
        RowBox[{
         RowBox[{"cnt", "[", 
          RowBox[{"[", "i", "]"}], "]"}], "\[Equal]", "3"}], ",", 
        RowBox[{
         RowBox[{"n1", "=", 
          RowBox[{"n1", "+", "1"}]}], ";", 
         RowBox[{
          RowBox[{"pri", "[", 
           RowBox[{"[", "n1", "]"}], "]"}], "=", "i"}]}], ",", 
        "\[IndentingNewLine]", 
        RowBox[{"If", "[", 
         RowBox[{
          RowBox[{
           RowBox[{"cnt", "[", 
            RowBox[{"[", "i", "]"}], "]"}], "\[Equal]", "2"}], ",", 
          RowBox[{
           RowBox[{"n2", "=", 
            RowBox[{"n2", "+", "1"}]}], ";", 
           RowBox[{
            RowBox[{"sec", "[", 
             RowBox[{"[", "n2", "]"}], "]"}], "=", "i"}]}], ",", 
          "\[IndentingNewLine]", 
          RowBox[{"If", "[", 
           RowBox[{
            RowBox[{
             RowBox[{"cnt", "[", 
              RowBox[{"[", "i", "]"}], "]"}], "\[Equal]", "1"}], ",", 
            RowBox[{
             RowBox[{"n3", "=", 
              RowBox[{"n3", "+", "1"}]}], ";", 
             RowBox[{
              RowBox[{"ter", "[", 
               RowBox[{"[", "n3", "]"}], "]"}], "=", "i"}]}], ",", 
            "\[IndentingNewLine]", 
            RowBox[{"If", "[", 
             RowBox[{
              RowBox[{
               RowBox[{"cnt", "[", 
                RowBox[{"[", "i", "]"}], "]"}], "=", "0"}], ",", 
              RowBox[{
               RowBox[{"n4", "=", 
                RowBox[{"n4", "+", "1"}]}], ";", 
               RowBox[{
                RowBox[{"qua", "[", 
                 RowBox[{"[", "n4", "]"}], "]"}], "=", "i"}]}]}], "]"}]}], 
           "]"}]}], "]"}]}], "]"}]}], "]"}], ";", "\[IndentingNewLine]", 
    RowBox[{
     RowBox[{"For", " ", "[", 
      RowBox[{
       RowBox[{"i", "=", "1"}], ",", " ", 
       RowBox[{"i", "\[LessEqual]", "nc"}], ",", 
       RowBox[{"i", "++"}], ",", 
       RowBox[{"If", "[", 
        RowBox[{
         RowBox[{
          RowBox[{"pri", "[", 
           RowBox[{"[", "i", "]"}], "]"}], "\[NotEqual]", "0"}], ",", 
         RowBox[{
          RowBox[{"u2", "[", 
           RowBox[{"[", 
            RowBox[{"pri", "[", 
             RowBox[{"[", "i", "]"}], "]"}], "]"}], "]"}], "=", "0.259"}]}], 
        "]"}]}], "]"}], "\[IndentingNewLine]", 
     RowBox[{"For", " ", "[", 
      RowBox[{
       RowBox[{"i", "=", "1"}], ",", " ", 
       RowBox[{"i", "\[LessEqual]", "nc"}], ",", 
       RowBox[{"i", "++"}], ",", 
       RowBox[{"If", "[", 
        RowBox[{
         RowBox[{
          RowBox[{"sec", "[", 
           RowBox[{"[", "i", "]"}], "]"}], "\[NotEqual]", "0"}], ",", 
         RowBox[{
          RowBox[{"u2", "[", 
           RowBox[{"[", 
            RowBox[{"sec", "[", 
             RowBox[{"[", "i", "]"}], "]"}], "]"}], "]"}], "=", "0.258"}]}], 
        "]"}]}], "]"}], "\[IndentingNewLine]", 
     RowBox[{"For", " ", "[", 
      RowBox[{
       RowBox[{"i", "=", "1"}], ",", " ", 
       RowBox[{"i", "\[LessEqual]", "nc"}], ",", 
       RowBox[{"i", "++"}], ",", 
       RowBox[{"If", "[", 
        RowBox[{
         RowBox[{
          RowBox[{"ter", "[", 
           RowBox[{"[", "i", "]"}], "]"}], "\[NotEqual]", "0"}], ",", 
         RowBox[{
          RowBox[{"u2", "[", 
           RowBox[{"[", 
            RowBox[{"ter", "[", 
             RowBox[{"[", "i", "]"}], "]"}], "]"}], "]"}], "=", "0.2595"}]}], 
        "]"}]}], "]"}], "\[IndentingNewLine]", 
     RowBox[{"For", " ", "[", 
      RowBox[{
       RowBox[{"i", "=", "1"}], ",", " ", 
       RowBox[{"i", "\[LessEqual]", "nc"}], ",", 
       RowBox[{"i", "++"}], ",", 
       RowBox[{"If", "[", 
        RowBox[{
         RowBox[{
          RowBox[{"qua", "[", 
           RowBox[{"[", "i", "]"}], "]"}], "\[NotEqual]", "0"}], ",", 
         RowBox[{
          RowBox[{"u2", "[", 
           RowBox[{"[", 
            RowBox[{"qua", "[", 
             RowBox[{"[", "i", "]"}], "]"}], "]"}], "]"}], "=", "0.2595"}]}], 
        "]"}]}], "]"}]}]}], "*)"}]}]], "Input",
 CellChangeTimes->{
  3.574656734486604*^9, 3.5746567701950665`*^9, 3.574656840972391*^9, {
   3.574674470271285*^9, 3.574674475481694*^9}, {3.574674526181783*^9, 
   3.574674528927388*^9}, {3.5746746901536713`*^9, 3.5746746947712793`*^9}, 
   3.575821611398965*^9}],

Cell[CellGroupData[{

Cell[BoxData[{
 RowBox[{
  RowBox[{"con", "=", 
   RowBox[{"Table", "[", 
    RowBox[{
     RowBox[{"{", "i", "}"}], ",", 
     RowBox[{"{", 
      RowBox[{"i", ",", "1", ",", "n"}], "}"}]}], "]"}]}], ";", " ", 
  RowBox[{"conj", "=", 
   RowBox[{"Table", "[", 
    RowBox[{"0", ",", 
     RowBox[{"{", "nc", "}"}]}], "]"}]}], ";"}], "\[IndentingNewLine]", 
 RowBox[{
  RowBox[{"For", "[", 
   RowBox[{
    RowBox[{"i", "=", "1"}], ",", 
    RowBox[{"i", "\[LessEqual]", "n"}], ",", 
    RowBox[{"i", "++"}], ",", "\[IndentingNewLine]", 
    RowBox[{"For", "[", 
     RowBox[{
      RowBox[{"j", "=", "1"}], ",", 
      RowBox[{"j", "\[LessEqual]", "n"}], ",", 
      RowBox[{"j", "++"}], ",", 
      RowBox[{"If", "[", " ", 
       RowBox[{
        RowBox[{
         RowBox[{"Dij", "[", 
          RowBox[{"[", 
           RowBox[{"i", ",", "j"}], "]"}], "]"}], "\[NotEqual]", "0"}], " ", 
        ",", 
        RowBox[{
         RowBox[{"con", "[", 
          RowBox[{"[", "i", "]"}], "]"}], "=", 
         RowBox[{"{", 
          RowBox[{
           RowBox[{"con", "[", 
            RowBox[{"[", "i", "]"}], "]"}], ",", "j"}], "}"}]}]}], "]"}]}], 
     "]"}]}], "]"}], ";"}], "\[IndentingNewLine]", 
 RowBox[{
  RowBox[{
   RowBox[{"conn", "=", 
    RowBox[{"Table", "[", 
     RowBox[{
      RowBox[{"Flatten", "[", 
       RowBox[{"con", "[", 
        RowBox[{"[", "i", "]"}], "]"}], "]"}], ",", 
      RowBox[{"{", 
       RowBox[{"i", ",", "1", ",", "n"}], "}"}]}], "]"}]}], ";"}], 
  "\[IndentingNewLine]", 
  RowBox[{"(*", 
   RowBox[{
    RowBox[{
     RowBox[{"conn", "[", 
      RowBox[{"[", "10", "]"}], "]"}], "=", 
     RowBox[{"{", 
      RowBox[{"10", ",", "7", ",", "11", ",", "17"}], "}"}]}], ";"}], "*)"}], 
  "\[IndentingNewLine]", 
  RowBox[{"(*", " ", 
   RowBox[{
   "identify", " ", "C", " ", "atoms", " ", "at", " ", "double", " ", 
    "bonds"}], " ", "*)"}]}], "\[IndentingNewLine]", 
 RowBox[{
  RowBox[{"j", "=", "0"}], ";"}], "\[IndentingNewLine]", 
 RowBox[{
  RowBox[{"For", "[", 
   RowBox[{
    RowBox[{"i", "=", "1"}], ",", 
    RowBox[{"i", "\[LessEqual]", "nc"}], ",", 
    RowBox[{"i", "++"}], ",", 
    RowBox[{"If", "[", 
     RowBox[{
      RowBox[{"(", 
       RowBox[{
        RowBox[{
         RowBox[{"Length", "[", 
          RowBox[{"conn", "[", 
           RowBox[{"[", "i", "]"}], "]"}], "]"}], "\[Equal]", "4"}], " ", "&&",
         " ", 
        RowBox[{
         RowBox[{"u", "[", 
          RowBox[{"[", 
           RowBox[{"conn", "[", 
            RowBox[{"[", 
             RowBox[{"i", ",", "4"}], "]"}], "]"}], "]"}], "]"}], 
         "\[NotEqual]", "\"\<O\>\""}]}], ")"}], ",", 
      RowBox[{
       RowBox[{"j", "=", 
        RowBox[{"j", "+", "1"}]}], ";", 
       RowBox[{
        RowBox[{"conj", "[", 
         RowBox[{"[", "j", "]"}], "]"}], "=", "i"}]}]}], "]"}]}], "]"}], 
  ";"}], "\[IndentingNewLine]", 
 RowBox[{"conj", "=", 
  RowBox[{"Take", "[", 
   RowBox[{"conj", ",", 
    RowBox[{"{", 
     RowBox[{"1", ",", "j"}], "}"}]}], "]"}]}], "\[IndentingNewLine]", 
 RowBox[{"nj", "=", 
  RowBox[{"Length", "[", "conj", "]"}]}], "\[IndentingNewLine]", 
 RowBox[{"MatrixForm", "[", 
  RowBox[{"conn", ",", " ", 
   RowBox[{"TableAlignments", "\[Rule]", "Left"}]}], "]"}]}], "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.5726244549749556`*^9, 3.5726244687341795`*^9}, {
   3.572624511540655*^9, 3.5726245129758577`*^9}, {3.5726259545431895`*^9, 
   3.5726259555883913`*^9}, {3.5726268385811424`*^9, 
   3.5726268436979513`*^9}, {3.5727156260686264`*^9, 3.5727156464110622`*^9}, 
   3.572767008717453*^9, 3.572767169428935*^9, {3.5727947272385855`*^9, 
   3.5727947348669987`*^9}, {3.5733216830258026`*^9, 3.573321731307887*^9}, 
   3.5746648213532076`*^9, 3.5747423225955195`*^9, {3.5747806605331182`*^9, 
   3.5747807483924723`*^9}, {3.5747809586028414`*^9, 3.57478099722851*^9}}],

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

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

Cell[BoxData[
 TagBox[
  RowBox[{"(", "\[NoBreak]", 
   TagBox[GridBox[{
      {
       RowBox[{"{", 
        RowBox[{"1", ",", "2", ",", "5", ",", "26", ",", "46"}], "}"}]},
      {
       RowBox[{"{", 
        RowBox[{"2", ",", "1", ",", "3", ",", "27", ",", "47"}], "}"}]},
      {
       RowBox[{"{", 
        RowBox[{"3", ",", "2", ",", "6", ",", "25", ",", "48"}], "}"}]},
      {
       RowBox[{"{", 
        RowBox[{"4", ",", "5", ",", "25", ",", "28", ",", "49"}], "}"}]},
      {
       RowBox[{"{", 
        RowBox[{"5", ",", "1", ",", "4", ",", "29", ",", "50"}], "}"}]},
      {
       RowBox[{"{", 
        RowBox[{"6", ",", "3", ",", "30", ",", "53", ",", "54"}], "}"}]},
      {
       RowBox[{"{", 
        RowBox[{"7", ",", "8", ",", "27", ",", "34", ",", "57"}], "}"}]},
      {
       RowBox[{"{", 
        RowBox[{"8", ",", "7", ",", "9", ",", "31", ",", "58"}], "}"}]},
      {
       RowBox[{"{", 
        RowBox[{"9", ",", "8", ",", "10", ",", "32", ",", "59"}], "}"}]},
      {
       RowBox[{"{", 
        RowBox[{"10", ",", "9", ",", "11", ",", "33", ",", "60"}], "}"}]},
      {
       RowBox[{"{", 
        RowBox[{"11", ",", "10", ",", "12", ",", "34", ",", "61"}], "}"}]},
      {
       RowBox[{"{", 
        RowBox[{"12", ",", "11", ",", "35", ",", "62", ",", "63"}], "}"}]},
      {
       RowBox[{"{", 
        RowBox[{"13", ",", "14", ",", "33", ",", "39", ",", "67"}], "}"}]},
      {
       RowBox[{"{", 
        RowBox[{"14", ",", "13", ",", "15", ",", "36", ",", "68"}], "}"}]},
      {
       RowBox[{"{", 
        RowBox[{"15", ",", "14", ",", "16", ",", "37", ",", "69"}], "}"}]},
      {
       RowBox[{"{", 
        RowBox[{"16", ",", "15", ",", "17", ",", "38", ",", "70"}], "}"}]},
      {
       RowBox[{"{", 
        RowBox[{"17", ",", "16", ",", "18", ",", "39", ",", "71"}], "}"}]},
      {
       RowBox[{"{", 
        RowBox[{"18", ",", "17", ",", "40", ",", "72", ",", "73"}], "}"}]},
      {
       RowBox[{"{", 
        RowBox[{"19", ",", "20", ",", "38", ",", "44", ",", "77"}], "}"}]},
      {
       RowBox[{"{", 
        RowBox[{"20", ",", "19", ",", "21", ",", "41", ",", "78"}], "}"}]},
      {
       RowBox[{"{", 
        RowBox[{"21", ",", "20", ",", "22", ",", "42", ",", "79"}], "}"}]},
      {
       RowBox[{"{", 
        RowBox[{"22", ",", "21", ",", "23", ",", "43", ",", "80"}], "}"}]},
      {
       RowBox[{"{", 
        RowBox[{"23", ",", "22", ",", "24", ",", "44", ",", "81"}], "}"}]},
      {
       RowBox[{"{", 
        RowBox[{"24", ",", "23", ",", "45", ",", "82", ",", "83"}], "}"}]},
      {
       RowBox[{"{", 
        RowBox[{"25", ",", "3", ",", "4"}], "}"}]},
      {
       RowBox[{"{", 
        RowBox[{"26", ",", "1", ",", "52"}], "}"}]},
      {
       RowBox[{"{", 
        RowBox[{"27", ",", "2", ",", "7"}], "}"}]},
      {
       RowBox[{"{", 
        RowBox[{"28", ",", "4", ",", "56"}], "}"}]},
      {
       RowBox[{"{", 
        RowBox[{"29", ",", "5", ",", "51"}], "}"}]},
      {
       RowBox[{"{", 
        RowBox[{"30", ",", "6", ",", "55"}], "}"}]},
      {
       RowBox[{"{", 
        RowBox[{"31", ",", "8", ",", "64"}], "}"}]},
      {
       RowBox[{"{", 
        RowBox[{"32", ",", "9", ",", "65"}], "}"}]},
      {
       RowBox[{"{", 
        RowBox[{"33", ",", "10", ",", "13"}], "}"}]},
      {
       RowBox[{"{", 
        RowBox[{"34", ",", "7", ",", "11"}], "}"}]},
      {
       RowBox[{"{", 
        RowBox[{"35", ",", "12", ",", "66"}], "}"}]},
      {
       RowBox[{"{", 
        RowBox[{"36", ",", "14", ",", "74"}], "}"}]},
      {
       RowBox[{"{", 
        RowBox[{"37", ",", "15", ",", "75"}], "}"}]},
      {
       RowBox[{"{", 
        RowBox[{"38", ",", "16", ",", "19"}], "}"}]},
      {
       RowBox[{"{", 
        RowBox[{"39", ",", "13", ",", "17"}], "}"}]},
      {
       RowBox[{"{", 
        RowBox[{"40", ",", "18", ",", "76"}], "}"}]},
      {
       RowBox[{"{", 
        RowBox[{"41", ",", "20", ",", "84"}], "}"}]},
      {
       RowBox[{"{", 
        RowBox[{"42", ",", "21", ",", "85"}], "}"}]},
      {
       RowBox[{"{", 
        RowBox[{"43", ",", "22", ",", "86"}], "}"}]},
      {
       RowBox[{"{", 
        RowBox[{"44", ",", "19", ",", "23"}], "}"}]},
      {
       RowBox[{"{", 
        RowBox[{"45", ",", "24", ",", "87"}], "}"}]},
      {
       RowBox[{"{", 
        RowBox[{"46", ",", "1"}], "}"}]},
      {
       RowBox[{"{", 
        RowBox[{"47", ",", "2"}], "}"}]},
      {
       RowBox[{"{", 
        RowBox[{"48", ",", "3"}], "}"}]},
      {
       RowBox[{"{", 
        RowBox[{"49", ",", "4"}], "}"}]},
      {
       RowBox[{"{", 
        RowBox[{"50", ",", "5"}], "}"}]},
      {
       RowBox[{"{", 
        RowBox[{"51", ",", "29"}], "}"}]},
      {
       RowBox[{"{", 
        RowBox[{"52", ",", "26"}], "}"}]},
      {
       RowBox[{"{", 
        RowBox[{"53", ",", "6"}], "}"}]},
      {
       RowBox[{"{", 
        RowBox[{"54", ",", "6"}], "}"}]},
      {
       RowBox[{"{", 
        RowBox[{"55", ",", "30"}], "}"}]},
      {
       RowBox[{"{", 
        RowBox[{"56", ",", "28"}], "}"}]},
      {
       RowBox[{"{", 
        RowBox[{"57", ",", "7"}], "}"}]},
      {
       RowBox[{"{", 
        RowBox[{"58", ",", "8"}], "}"}]},
      {
       RowBox[{"{", 
        RowBox[{"59", ",", "9"}], "}"}]},
      {
       RowBox[{"{", 
        RowBox[{"60", ",", "10"}], "}"}]},
      {
       RowBox[{"{", 
        RowBox[{"61", ",", "11"}], "}"}]},
      {
       RowBox[{"{", 
        RowBox[{"62", ",", "12"}], "}"}]},
      {
       RowBox[{"{", 
        RowBox[{"63", ",", "12"}], "}"}]},
      {
       RowBox[{"{", 
        RowBox[{"64", ",", "31"}], "}"}]},
      {
       RowBox[{"{", 
        RowBox[{"65", ",", "32"}], "}"}]},
      {
       RowBox[{"{", 
        RowBox[{"66", ",", "35"}], "}"}]},
      {
       RowBox[{"{", 
        RowBox[{"67", ",", "13"}], "}"}]},
      {
       RowBox[{"{", 
        RowBox[{"68", ",", "14"}], "}"}]},
      {
       RowBox[{"{", 
        RowBox[{"69", ",", "15"}], "}"}]},
      {
       RowBox[{"{", 
        RowBox[{"70", ",", "16"}], "}"}]},
      {
       RowBox[{"{", 
        RowBox[{"71", ",", "17"}], "}"}]},
      {
       RowBox[{"{", 
        RowBox[{"72", ",", "18"}], "}"}]},
      {
       RowBox[{"{", 
        RowBox[{"73", ",", "18"}], "}"}]},
      {
       RowBox[{"{", 
        RowBox[{"74", ",", "36"}], "}"}]},
      {
       RowBox[{"{", 
        RowBox[{"75", ",", "37"}], "}"}]},
      {
       RowBox[{"{", 
        RowBox[{"76", ",", "40"}], "}"}]},
      {
       RowBox[{"{", 
        RowBox[{"77", ",", "19"}], "}"}]},
      {
       RowBox[{"{", 
        RowBox[{"78", ",", "20"}], "}"}]},
      {
       RowBox[{"{", 
        RowBox[{"79", ",", "21"}], "}"}]},
      {
       RowBox[{"{", 
        RowBox[{"80", ",", "22"}], "}"}]},
      {
       RowBox[{"{", 
        RowBox[{"81", ",", "23"}], "}"}]},
      {
       RowBox[{"{", 
        RowBox[{"82", ",", "24"}], "}"}]},
      {
       RowBox[{"{", 
        RowBox[{"83", ",", "24"}], "}"}]},
      {
       RowBox[{"{", 
        RowBox[{"84", ",", "41"}], "}"}]},
      {
       RowBox[{"{", 
        RowBox[{"85", ",", "42"}], "}"}]},
      {
       RowBox[{"{", 
        RowBox[{"86", ",", "43"}], "}"}]},
      {
       RowBox[{"{", 
        RowBox[{"87", ",", "45"}], "}"}]}
     },
     GridBoxAlignment->{
      "Columns" -> {{Left}}, "ColumnsIndexed" -> {}, "Rows" -> {{Baseline}}, 
       "RowsIndexed" -> {}},
     GridBoxSpacings->{"Columns" -> {
         Offset[0.27999999999999997`], {
          Offset[0.5599999999999999]}, 
         Offset[0.27999999999999997`]}, "ColumnsIndexed" -> {}, "Rows" -> {
         Offset[0.2], {
          Offset[0.4]}, 
         Offset[0.2]}, "RowsIndexed" -> {}}],
    Column], "\[NoBreak]", ")"}],
  Function[BoxForm`e$, 
   MatrixForm[BoxForm`e$, TableAlignments -> Left]]]], "Output",
 CellChangeTimes->{3.5758694973140373`*^9}]
}, Open  ]],

Cell[CellGroupData[{

Cell[BoxData[
 RowBox[{"\[IndentingNewLine]", 
  RowBox[{
   RowBox[{
    RowBox[{"j", "=", "0"}], ";", " ", 
    RowBox[{"h", "=", "0"}], ";"}], "\[IndentingNewLine]", 
   RowBox[{
    RowBox[{"coco", "=", 
     RowBox[{"Table", "[", 
      RowBox[{
       RowBox[{"{", 
        RowBox[{"0", ",", "0", ",", "0", ",", "0"}], "}"}], ",", 
       RowBox[{"{", "no", "}"}]}], "]"}]}], ";"}], "\[IndentingNewLine]", 
   RowBox[{
    RowBox[{"coch", "=", "coco"}], ";"}], "\[IndentingNewLine]", 
   RowBox[{
    RowBox[{"For", "[", 
     RowBox[{
      RowBox[{"i", "=", 
       RowBox[{"nc", "+", "1"}]}], ",", " ", 
      RowBox[{"i", "\[LessEqual]", 
       RowBox[{"nc", "+", "no"}]}], ",", " ", 
      RowBox[{"i", "++"}], ",", 
      RowBox[{"If", "[", 
       RowBox[{
        RowBox[{
         RowBox[{"Length", "[", 
          RowBox[{"conn", "[", 
           RowBox[{"[", "i", "]"}], "]"}], "]"}], "\[Equal]", "2"}], ",", 
        RowBox[{
         RowBox[{"j", "=", 
          RowBox[{"j", "+", "1"}]}], ";", 
         RowBox[{
          RowBox[{"coco", "[", 
           RowBox[{"[", "j", "]"}], "]"}], "=", 
          RowBox[{"Join", "[", 
           RowBox[{
            RowBox[{"{", 
             RowBox[{"conn", "[", 
              RowBox[{"[", 
               RowBox[{"i", ",", "1"}], "]"}], "]"}], "}"}], ",", 
            RowBox[{"Take", "[", 
             RowBox[{
              RowBox[{"conn", "[", 
               RowBox[{"[", 
                RowBox[{"conn", "[", 
                 RowBox[{"[", 
                  RowBox[{"i", ",", "2"}], "]"}], "]"}], "]"}], "]"}], ",", 
              "3"}], "]"}]}], "]"}]}]}], ",", 
        RowBox[{
         RowBox[{"h", "=", 
          RowBox[{"h", "+", "1"}]}], ";", 
         RowBox[{
          RowBox[{"coch", "[", 
           RowBox[{"[", "h", "]"}], "]"}], "=", 
          RowBox[{"conn", "[", 
           RowBox[{"[", "i", "]"}], "]"}]}]}]}], "]"}]}], "]"}], ";"}], 
   "\[IndentingNewLine]", 
   RowBox[{
    RowBox[{"coco", "=", 
     RowBox[{"Take", "[", 
      RowBox[{"coco", ",", 
       RowBox[{"{", 
        RowBox[{"1", ",", "j"}], "}"}]}], "]"}]}], ";"}], 
   "\[IndentingNewLine]", 
   RowBox[{
    RowBox[{"coch", "=", 
     RowBox[{"Take", "[", 
      RowBox[{"coch", ",", 
       RowBox[{"{", 
        RowBox[{"1", ",", "h"}], "}"}]}], "]"}]}], ";"}], 
   "\[IndentingNewLine]", 
   RowBox[{"oj", "=", 
    RowBox[{"Length", "[", "coco", "]"}]}], "\[IndentingNewLine]", 
   RowBox[{"hj", "=", 
    RowBox[{"Length", "[", "coch", "]"}]}]}]}]], "Input",
 CellChangeTimes->{{3.568108824079547*^9, 3.568109012824279*^9}, {
   3.568109558076436*^9, 3.568109588168889*^9}, {3.5681097523435774`*^9, 
   3.5681097637783976`*^9}, {3.5681100381828794`*^9, 
   3.5681101616726966`*^9}, {3.5681102015307665`*^9, 
   3.5681102288464146`*^9}, {3.568110263743676*^9, 3.568110267331682*^9}, {
   3.5681103163469687`*^9, 3.5681103268925867`*^9}, {3.5681106443375444`*^9, 
   3.5681106916368275`*^9}, 3.568110873002746*^9, {3.5681109388660617`*^9, 
   3.5681110268970165`*^9}, {3.568111092526332*^9, 3.568111123461186*^9}, {
   3.5681111884196997`*^9, 3.568111192756508*^9}, {3.5681112268113675`*^9, 
   3.568111366213212*^9}, {3.568111434946933*^9, 3.568111463354583*^9}, {
   3.568111544396725*^9, 3.568111547625931*^9}, {3.5681116856081734`*^9, 
   3.5681117131422215`*^9}, {3.568111864696488*^9, 3.5681119835998964`*^9}, 
   3.5681120218355637`*^9, {3.56811206543764*^9, 3.568112066389242*^9}, {
   3.568112332369709*^9, 3.5681123404505234`*^9}, {3.568112505935614*^9, 
   3.56811251481203*^9}, {3.5681125623609133`*^9, 3.568112569006525*^9}, {
   3.568112648067464*^9, 3.568112734210815*^9}, {3.568112764443668*^9, 
   3.5681127697320776`*^9}, {3.5681128018681335`*^9, 3.568112843426607*^9}, {
   3.568112884641879*^9, 3.5681128887602863`*^9}, {3.5681129663080225`*^9, 
   3.5681129699584293`*^9}, {3.568113133789917*^9, 3.568113227936082*^9}, {
   3.5681132946885996`*^9, 3.5681133044698167`*^9}, {3.568113502200164*^9, 
   3.568113507348173*^9}, 3.56811354556824*^9, {3.5681222886191964`*^9, 
   3.5681222896019983`*^9}, {3.568207424138049*^9, 3.5682074415164795`*^9}, 
   3.568277923134914*^9, 3.568883508322016*^9, 3.568883588350157*^9, 
   3.5688836441982546`*^9, {3.5703421313965206`*^9, 3.5703421386505337`*^9}, {
   3.570342288098796*^9, 3.5703424924279547`*^9}, 3.5709745658726373`*^9, 
   3.5709746291463485`*^9, {3.5709747534473667`*^9, 3.5709747617933817`*^9}, {
   3.5709749537361183`*^9, 3.570975034747061*^9}, {3.5709751055243855`*^9, 
   3.5709751213584127`*^9}, {3.5709751694532976`*^9, 3.570975200060551*^9}, {
   3.571073358435503*^9, 3.5710734289632273`*^9}, {3.571204792969243*^9, 
   3.571204820940092*^9}, {3.5712048565705547`*^9, 3.571204860002561*^9}, 
   3.571204896881026*^9, {3.571204943556308*^9, 3.571204987485985*^9}, 
   3.5712053579722357`*^9, 3.5712054148187356`*^9, 3.5712055260469313`*^9, {
   3.571205631237916*^9, 3.5712056608311677`*^9}, {3.571206377683627*^9, 
   3.5712064172296963`*^9}, {3.571206525727887*^9, 3.571206547427525*^9}, {
   3.5712066764397516`*^9, 3.5712067106974115`*^9}, {3.571206757949895*^9, 
   3.5712067585114956`*^9}, {3.5712073458681273`*^9, 3.571207357053347*^9}, {
   3.5712075532392917`*^9, 3.5712076608170805`*^9}, {3.571208007434089*^9, 
   3.571208247690111*^9}, {3.571208301057805*^9, 3.5712083308850574`*^9}, {
   3.571208811958702*^9, 3.571208871488407*^9}, {3.5712089993618317`*^9, 
   3.5712089996582317`*^9}, {3.5712091105588264`*^9, 3.571209160744115*^9}, {
   3.5712092989135575`*^9, 3.5712093003643603`*^9}, {3.571209369940482*^9, 
   3.5712093926073227`*^9}, {3.5712094586578383`*^9, 
   3.5712094836958823`*^9}, {3.5712104228175316`*^9, 3.571210434267952*^9}, 
   3.571210475358424*^9, 3.5712108629099045`*^9, {3.571210903969177*^9, 
   3.5712109929361334`*^9}, {3.5712110295961976`*^9, 
   3.5712110392214146`*^9}, {3.571211240071767*^9, 3.5712112940946617`*^9}, {
   3.571211404496056*^9, 3.5712114190976815`*^9}, {3.5712115264882703`*^9, 
   3.5712115363942876`*^9}, {3.571211575924757*^9, 3.5712116183724318`*^9}, {
   3.5712116597281046`*^9, 3.571211695062166*^9}, {3.5712117551222715`*^9, 
   3.5712117807531166`*^9}, {3.571211826835598*^9, 3.5712118443232284`*^9}, {
   3.571211962540236*^9, 3.5712119670174437`*^9}, 3.5712123580321307`*^9, {
   3.5712123994658036`*^9, 3.571212411181424*^9}, {3.5712172605092583`*^9, 
   3.571217297153723*^9}, {3.571223622762637*^9, 3.57122364145147*^9}, {
   3.5712237454256525`*^9, 3.571223750745262*^9}, {3.571223964808838*^9, 
   3.571224009097316*^9}, {3.57122674689975*^9, 3.5712267784742055`*^9}, {
   3.5712269848157682`*^9, 3.57122698582977*^9}, {3.5712270624259043`*^9, 
   3.5712270629563055`*^9}, {3.571227212438168*^9, 3.571227212999769*^9}, {
   3.571227409778515*^9, 3.5712274489969835`*^9}, {3.571227502177477*^9, 
   3.571227514127098*^9}, {3.57122758356282*^9, 3.5712276390521173`*^9}, 
   3.5712276745889797`*^9, {3.571227712746647*^9, 3.5712277584703274`*^9}, {
   3.5712349496076813`*^9, 3.571234988008148*^9}, {3.5712351855668955`*^9, 
   3.5712353359043593`*^9}, {3.5712355859883986`*^9, 3.571235653661318*^9}, {
   3.5712356890109797`*^9, 3.571235702208603*^9}, {3.5712449764989214`*^9, 
   3.5712449799309273`*^9}, {3.5712450401778336`*^9, 3.571245051456653*^9}, {
   3.5712450868687153`*^9, 3.5712450934831266`*^9}, {3.571299135517318*^9, 
   3.571299166342972*^9}, {3.5713069890574045`*^9, 3.5713071726697273`*^9}, {
   3.571307301791154*^9, 3.571307304536759*^9}, {3.571307397731323*^9, 
   3.571307405702937*^9}, {3.571311846659932*^9, 3.5713118507939396`*^9}, {
   3.571317129094411*^9, 3.5713171472216425`*^9}, {3.5713172653138494`*^9, 
   3.5713172753602676`*^9}, {3.5713216932693615`*^9, 
   3.5713216983081703`*^9}, {3.5713370477995405`*^9, 
   3.5713370593279605`*^9}, {3.571404339740199*^9, 3.5714046172178864`*^9}, {
   3.571404755449729*^9, 3.571404853246301*^9}, {3.571405069743481*^9, 
   3.571405208989326*^9}, {3.571405268612631*^9, 3.571405277442246*^9}, {
   3.5714053796536255`*^9, 3.5714054114932814`*^9}, {3.571405595448805*^9, 
   3.5714056194884467`*^9}, {3.5714056687221336`*^9, 3.571405677660949*^9}, 
   3.5714067334520035`*^9, {3.57140676532286*^9, 3.5714067706580687`*^9}, {
   3.571406950729185*^9, 3.571406989495253*^9}, {3.5714071848855963`*^9, 
   3.571407190579606*^9}, 3.5714072350240846`*^9, {3.571412503236558*^9, 
   3.5714125080413666`*^9}, {3.571412540879424*^9, 3.571412607787942*^9}, {
   3.571412668378448*^9, 3.5714128101202965`*^9}, {3.5714128643147917`*^9, 
   3.571412873862009*^9}, {3.571412908150869*^9, 3.57141290869687*^9}, {
   3.571413012374652*^9, 3.5714130213290677`*^9}, {3.571413054603926*^9, 
   3.5714130713583555`*^9}, 3.5714133323156137`*^9, {3.571730171730853*^9, 
   3.571730182494872*^9}, {3.5717303501171665`*^9, 3.5717303600855846`*^9}, {
   3.5717305482375145`*^9, 3.5717305527147226`*^9}, {3.571760865342704*^9, 
   3.5717608700695124`*^9}, {3.57176111957635*^9, 3.5717611228835564`*^9}, 
   3.571761174316847*^9, {3.5717620076459103`*^9, 3.571762008441512*^9}, {
   3.571765525077688*^9, 3.571765573718574*^9}, {3.572601603410675*^9, 
   3.572601639665139*^9}, {3.57260238631365*^9, 3.5726023989340725`*^9}, 
   3.5726046985809116`*^9, {3.5726052623971024`*^9, 3.572605269729115*^9}, {
   3.572606450370389*^9, 3.5726064833176465`*^9}, {3.5726065169513054`*^9, 
   3.572606523955718*^9}, {3.5726066452459307`*^9, 3.572606662468361*^9}, {
   3.5726068118542233`*^9, 3.5726068309330573`*^9}, {3.5726082044218693`*^9, 
   3.5726082108178806`*^9}, {3.5726129520308228`*^9, 
   3.5726129692220526`*^9}, {3.5726130228861475`*^9, 
   3.5726130532750006`*^9}, {3.572624083881504*^9, 3.572624093631521*^9}, {
   3.5726247901883445`*^9, 3.572624801233164*^9}, {3.5726249931759005`*^9, 
   3.572625014937939*^9}, {3.572626882386019*^9, 3.5726268865668263`*^9}, {
   3.5726673740642943`*^9, 3.572667386154316*^9}, {3.572707186162225*^9, 
   3.5727071892978306`*^9}, {3.5727073766385593`*^9, 3.5727073777617617`*^9}, 
   3.5727091442464643`*^9, 3.572709305488347*^9, {3.5727105300904984`*^9, 
   3.5727105312605004`*^9}, 3.5727107350904584`*^9, 3.5727108467086544`*^9, 
   3.572710916331577*^9, {3.5728420867264705`*^9, 3.5728421164913225`*^9}, {
   3.572850453192765*^9, 3.5728504884332275`*^9}, {3.5731485879383316`*^9, 
   3.5731485959879456`*^9}, {3.5731825263710723`*^9, 3.573182535403488*^9}, {
   3.5733139065045433`*^9, 3.5733140549856043`*^9}, 3.574655628725462*^9, 
   3.574657123722888*^9, {3.5746628507577467`*^9, 3.574662854080552*^9}, {
   3.5747411461662536`*^9, 3.5747411501130605`*^9}, {3.5747732863761578`*^9, 
   3.5747733212266192`*^9}, {3.574777246966323*^9, 3.5747777516272087`*^9}, {
   3.574778090990205*^9, 3.5747782123584185`*^9}, {3.5747782626217065`*^9, 
   3.5747782672393146`*^9}, {3.57477829882937*^9, 3.57477835005986*^9}, {
   3.5747784095115643`*^9, 3.5747784447520266`*^9}, {3.5747785201625586`*^9, 
   3.574778535122985*^9}, {3.5747785781478605`*^9, 3.574778578319461*^9}, {
   3.5747786106427174`*^9, 3.574778688830055*^9}, {3.5747787248193183`*^9, 
   3.5747787708393993`*^9}, 3.574778803895857*^9, {3.5747790916071625`*^9, 
   3.5747790975975733`*^9}, {3.574779153835672*^9, 3.574779165457692*^9}, {
   3.5747792016185555`*^9, 3.574779212008174*^9}, {3.5747792458290334`*^9, 
   3.5747792599314585`*^9}, {3.5747792935339174`*^9, 3.574779301552331*^9}, {
   3.574779474915436*^9, 3.574779529047531*^9}, {3.5747795770176153`*^9, 
   3.574779592914043*^9}, {3.5747796386065235`*^9, 3.574779641742129*^9}, {
   3.574779726762278*^9, 3.57477972782308*^9}, 3.5747798402368774`*^9, {
   3.5747800908513174`*^9, 3.5747801971811047`*^9}, {3.5747802368675737`*^9, 
   3.5747802741828394`*^9}, {3.574780331856141*^9, 3.574780343462561*^9}, {
   3.574780380434626*^9, 3.5747803867058372`*^9}, {3.5747804240679026`*^9, 
   3.574780436781925*^9}, {3.574780765302902*^9, 3.574780854581859*^9}, {
   3.574785122296955*^9, 3.574785156398615*^9}, {3.574873161841775*^9, 
   3.5748731669117837`*^9}, {3.575821333188076*^9, 3.575821338117685*^9}}],

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

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

Cell[BoxData[{
 RowBox[{
  RowBox[{
   RowBox[{"Clear", "[", 
    RowBox[{
    "c", ",", "v", ",", "p", ",", "Q", ",", "P", ",", "v1", ",", "v2", ",", 
     "nk", ",", "nl", ",", "i"}], "]"}], ";"}], " "}], "\[IndentingNewLine]", 
 RowBox[{
  RowBox[{
   RowBox[{"P", "=", "3"}], ";", " ", 
   RowBox[{"c", "=", 
    RowBox[{"{", 
     RowBox[{"0", ",", "0", ",", "0", ",", "0", ",", "0"}], "}"}]}], ";"}], 
  " "}]}], "Input",
 CellChangeTimes->{{3.568108824079547*^9, 3.568109012824279*^9}, {
   3.568109558076436*^9, 3.568109588168889*^9}, {3.5681097523435774`*^9, 
   3.5681097637783976`*^9}, {3.5681100381828794`*^9, 
   3.5681101616726966`*^9}, {3.5681102015307665`*^9, 
   3.5681102288464146`*^9}, {3.568110263743676*^9, 3.568110267331682*^9}, {
   3.5681103163469687`*^9, 3.5681103268925867`*^9}, {3.5681106443375444`*^9, 
   3.5681106916368275`*^9}, 3.568110873002746*^9, {3.5681109388660617`*^9, 
   3.5681110268970165`*^9}, {3.568111092526332*^9, 3.568111123461186*^9}, {
   3.5681111884196997`*^9, 3.568111192756508*^9}, {3.5681112268113675`*^9, 
   3.568111366213212*^9}, {3.568111434946933*^9, 3.568111463354583*^9}, {
   3.568111544396725*^9, 3.568111547625931*^9}, {3.5681116856081734`*^9, 
   3.5681117131422215`*^9}, {3.568111864696488*^9, 3.5681119835998964`*^9}, 
   3.5681120218355637`*^9, {3.56811206543764*^9, 3.568112066389242*^9}, {
   3.568112332369709*^9, 3.5681123404505234`*^9}, {3.568112505935614*^9, 
   3.56811251481203*^9}, {3.5681125623609133`*^9, 3.568112569006525*^9}, {
   3.568112648067464*^9, 3.568112734210815*^9}, {3.568112764443668*^9, 
   3.5681127697320776`*^9}, {3.5681128018681335`*^9, 3.568112843426607*^9}, {
   3.568112884641879*^9, 3.5681128887602863`*^9}, {3.5681129663080225`*^9, 
   3.5681129699584293`*^9}, {3.568113133789917*^9, 3.568113227936082*^9}, {
   3.5681132946885996`*^9, 3.5681133044698167`*^9}, {3.568113502200164*^9, 
   3.568113507348173*^9}, 3.56811354556824*^9, {3.5681222886191964`*^9, 
   3.5681222896019983`*^9}, {3.568207424138049*^9, 3.5682074415164795`*^9}, 
   3.568277923134914*^9, 3.568883508322016*^9, 3.568883588350157*^9, 
   3.5688836441982546`*^9, {3.5703421313965206`*^9, 3.5703421386505337`*^9}, {
   3.570342288098796*^9, 3.5703424924279547`*^9}, 3.5709745658726373`*^9, 
   3.5709746291463485`*^9, {3.5709747534473667`*^9, 3.5709747617933817`*^9}, {
   3.5709749537361183`*^9, 3.570975034747061*^9}, {3.5709751055243855`*^9, 
   3.5709751213584127`*^9}, {3.5709751694532976`*^9, 3.570975200060551*^9}, {
   3.571073358435503*^9, 3.5710734289632273`*^9}, {3.571204792969243*^9, 
   3.571204820940092*^9}, {3.5712048565705547`*^9, 3.571204860002561*^9}, 
   3.571204896881026*^9, {3.571204943556308*^9, 3.571204987485985*^9}, 
   3.5712053579722357`*^9, 3.5712054148187356`*^9, 3.5712055260469313`*^9, {
   3.571205631237916*^9, 3.5712056608311677`*^9}, {3.571206377683627*^9, 
   3.5712064172296963`*^9}, {3.571206525727887*^9, 3.571206547427525*^9}, {
   3.5712066764397516`*^9, 3.5712067106974115`*^9}, {3.571206757949895*^9, 
   3.5712067585114956`*^9}, {3.5712073458681273`*^9, 3.571207357053347*^9}, {
   3.5712075532392917`*^9, 3.5712076608170805`*^9}, {3.571208007434089*^9, 
   3.571208247690111*^9}, {3.571208301057805*^9, 3.5712083308850574`*^9}, {
   3.571208811958702*^9, 3.571208871488407*^9}, {3.5712089993618317`*^9, 
   3.5712089996582317`*^9}, {3.5712091105588264`*^9, 3.571209160744115*^9}, {
   3.5712092989135575`*^9, 3.5712093003643603`*^9}, {3.571209369940482*^9, 
   3.5712093926073227`*^9}, {3.5712094586578383`*^9, 
   3.5712094836958823`*^9}, {3.5712104228175316`*^9, 3.571210434267952*^9}, 
   3.571210475358424*^9, 3.5712108629099045`*^9, {3.571210903969177*^9, 
   3.5712109929361334`*^9}, {3.5712110295961976`*^9, 
   3.5712110392214146`*^9}, {3.571211240071767*^9, 3.5712112940946617`*^9}, {
   3.571211404496056*^9, 3.5712114190976815`*^9}, {3.5712115264882703`*^9, 
   3.5712115363942876`*^9}, {3.571211575924757*^9, 3.5712116183724318`*^9}, {
   3.5712116597281046`*^9, 3.571211695062166*^9}, {3.5712117551222715`*^9, 
   3.5712117807531166`*^9}, {3.571211826835598*^9, 3.5712118443232284`*^9}, {
   3.571211962540236*^9, 3.5712119670174437`*^9}, 3.5712123580321307`*^9, {
   3.5712123994658036`*^9, 3.571212411181424*^9}, {3.5712172605092583`*^9, 
   3.571217297153723*^9}, {3.571223622762637*^9, 3.57122364145147*^9}, {
   3.5712237454256525`*^9, 3.571223750745262*^9}, {3.571223964808838*^9, 
   3.571224009097316*^9}, {3.57122674689975*^9, 3.5712267784742055`*^9}, {
   3.5712269848157682`*^9, 3.57122698582977*^9}, {3.5712270624259043`*^9, 
   3.5712270629563055`*^9}, {3.571227212438168*^9, 3.571227212999769*^9}, {
   3.571227409778515*^9, 3.5712274489969835`*^9}, {3.571227502177477*^9, 
   3.571227514127098*^9}, {3.57122758356282*^9, 3.5712276390521173`*^9}, 
   3.5712276745889797`*^9, {3.571227712746647*^9, 3.5712277584703274`*^9}, {
   3.5712349496076813`*^9, 3.571234988008148*^9}, {3.5712351855668955`*^9, 
   3.5712353359043593`*^9}, {3.5712355859883986`*^9, 3.571235653661318*^9}, {
   3.5712356890109797`*^9, 3.571235702208603*^9}, {3.5712449764989214`*^9, 
   3.5712449799309273`*^9}, {3.5712450401778336`*^9, 3.571245051456653*^9}, {
   3.5712450868687153`*^9, 3.5712450934831266`*^9}, {3.571299135517318*^9, 
   3.571299166342972*^9}, {3.5713069890574045`*^9, 3.5713071726697273`*^9}, {
   3.571307301791154*^9, 3.571307304536759*^9}, {3.571307397731323*^9, 
   3.571307405702937*^9}, {3.571311846659932*^9, 3.5713118507939396`*^9}, {
   3.571317129094411*^9, 3.5713171472216425`*^9}, {3.5713172653138494`*^9, 
   3.5713172753602676`*^9}, {3.5713216932693615`*^9, 
   3.5713216983081703`*^9}, {3.5713370477995405`*^9, 
   3.5713370593279605`*^9}, {3.571404339740199*^9, 3.5714046172178864`*^9}, {
   3.571404755449729*^9, 3.571404853246301*^9}, {3.571405069743481*^9, 
   3.571405208989326*^9}, {3.571405268612631*^9, 3.571405277442246*^9}, {
   3.5714053796536255`*^9, 3.5714054114932814`*^9}, {3.571405595448805*^9, 
   3.5714056194884467`*^9}, {3.5714056687221336`*^9, 3.571405677660949*^9}, 
   3.5714067334520035`*^9, {3.57140676532286*^9, 3.5714067706580687`*^9}, {
   3.571406950729185*^9, 3.571406989495253*^9}, {3.5714071848855963`*^9, 
   3.571407190579606*^9}, 3.5714072350240846`*^9, {3.571412503236558*^9, 
   3.5714125080413666`*^9}, {3.571412540879424*^9, 3.571412607787942*^9}, {
   3.571412668378448*^9, 3.5714128101202965`*^9}, {3.5714128643147917`*^9, 
   3.571412873862009*^9}, {3.571412908150869*^9, 3.57141290869687*^9}, {
   3.571413012374652*^9, 3.5714130213290677`*^9}, {3.571413054603926*^9, 
   3.5714130713583555`*^9}, 3.5714133323156137`*^9, {3.571730171730853*^9, 
   3.571730182494872*^9}, {3.5717303501171665`*^9, 3.5717303600855846`*^9}, {
   3.5717305482375145`*^9, 3.5717305527147226`*^9}, {3.571760865342704*^9, 
   3.5717608700695124`*^9}, {3.57176111957635*^9, 3.5717611228835564`*^9}, 
   3.571761174316847*^9, {3.5717620076459103`*^9, 3.571762008441512*^9}, {
   3.571765525077688*^9, 3.571765573718574*^9}, {3.572601603410675*^9, 
   3.572601639665139*^9}, {3.57260238631365*^9, 3.5726023989340725`*^9}, 
   3.5726046985809116`*^9, {3.5726052623971024`*^9, 3.572605269729115*^9}, {
   3.572606450370389*^9, 3.5726064833176465`*^9}, {3.5726065169513054`*^9, 
   3.572606523955718*^9}, {3.5726066452459307`*^9, 3.572606662468361*^9}, {
   3.5726068118542233`*^9, 3.5726068309330573`*^9}, {3.5726082044218693`*^9, 
   3.5726082108178806`*^9}, {3.5726129520308228`*^9, 
   3.5726129692220526`*^9}, {3.5726130228861475`*^9, 
   3.5726130532750006`*^9}, {3.572624083881504*^9, 3.572624093631521*^9}, {
   3.5726247901883445`*^9, 3.572624801233164*^9}, {3.5726249931759005`*^9, 
   3.572625014937939*^9}, {3.572626882386019*^9, 3.5726268865668263`*^9}, {
   3.5726673740642943`*^9, 3.572667386154316*^9}, {3.572707186162225*^9, 
   3.5727071892978306`*^9}, {3.5727073766385593`*^9, 3.5727073777617617`*^9}, 
   3.5727091442464643`*^9, 3.572709305488347*^9, {3.5727105300904984`*^9, 
   3.5727105312605004`*^9}, 3.5727107350904584`*^9, 3.5727108467086544`*^9, 
   3.572710916331577*^9, {3.5728420867264705`*^9, 3.5728421164913225`*^9}, {
   3.572850453192765*^9, 3.5728504884332275`*^9}, {3.5731485879383316`*^9, 
   3.5731485959879456`*^9}, {3.5731825263710723`*^9, 3.573182535403488*^9}, {
   3.5733139065045433`*^9, 3.5733140549856043`*^9}, 3.574655628725462*^9, 
   3.574657123722888*^9, {3.5746628507577467`*^9, 3.574662854080552*^9}, {
   3.5747411461662536`*^9, 3.5747411501130605`*^9}, {3.5747732863761578`*^9, 
   3.5747733212266192`*^9}, {3.574777246966323*^9, 3.574777607030555*^9}, {
   3.5747831833383493`*^9, 3.5747831840715504`*^9}, {3.5747851902662745`*^9, 
   3.574785199875891*^9}, 3.5748282451644087`*^9, {3.5748534446735983`*^9, 
   3.5748534455472*^9}, {3.5758212201970778`*^9, 3.5758212240502844`*^9}}],

Cell["\<\
(*-------------------------------------------------------------------------*)
(* next: O atoms in C-O-H and C-O-C: two doubly occ LP *)\
\>", "Text",
 CellChangeTimes->{{3.572794697520533*^9, 3.5727947043221455`*^9}, {
   3.5727948024151173`*^9, 3.572794803507119*^9}, {3.5727948673580313`*^9, 
   3.572794869838436*^9}, {3.572795260993526*^9, 3.5727952676703377`*^9}, {
   3.5727954366342344`*^9, 3.5727954702834935`*^9}, {3.5727973545484033`*^9, 
   3.5727973657024226`*^9}, {3.572803225319809*^9, 3.572803264553878*^9}, {
   3.57280330550395*^9, 3.5728033127111626`*^9}, 3.5728033508376293`*^9, {
   3.572803528365941*^9, 3.5728035301443443`*^9}, {3.572803715051469*^9, 
   3.572803769604765*^9}, {3.572840261866465*^9, 3.5728402628648667`*^9}, {
   3.5728405648813972`*^9, 3.572840578905822*^9}, {3.5728406372187243`*^9, 
   3.572840716170463*^9}, {3.5728407476825185`*^9, 3.572840785746585*^9}, {
   3.5728408298790627`*^9, 3.5728408871311636`*^9}, {3.5728409363336496`*^9, 
   3.572841070790286*^9}, {3.572841415987692*^9, 3.572841609740032*^9}, 
   3.5728416910629754`*^9, {3.5728417502806797`*^9, 3.572841879885707*^9}, {
   3.572841914564568*^9, 3.5728419300709953`*^9}, {3.572841986199894*^9, 
   3.572842001659521*^9}, {3.5728426453322515`*^9, 3.5728426487174573`*^9}, {
   3.572844776030794*^9, 3.572844786919613*^9}, {3.57284502999924*^9, 
   3.5728450550060835`*^9}, {3.572845459218394*^9, 3.572845496174859*^9}, {
   3.5728455656105804`*^9, 3.572845617574272*^9}, {3.5728456738279705`*^9, 
   3.572845681440784*^9}, {3.5728457322656736`*^9, 3.572845755291314*^9}, 
   3.572845978356106*^9, {3.572846145151599*^9, 3.572846189096876*^9}, {
   3.572846392926834*^9, 3.5728464086828613`*^9}, 3.572846518881455*^9, 
   3.5728469699562473`*^9, {3.5728470834620466`*^9, 3.572847089873658*^9}, {
   3.572847132180932*^9, 3.5728472650151653`*^9}, 3.5728473515485177`*^9, {
   3.572849422046554*^9, 3.572849426554962*^9}, {3.572849678776205*^9, 
   3.572849686077018*^9}, {3.5728503673146143`*^9, 3.5728503811830387`*^9}, {
   3.5728505998798227`*^9, 3.572850604637831*^9}, 3.5730459405924234`*^9, {
   3.5731485633994884`*^9, 3.5731485765503116`*^9}, {3.5731486137719765`*^9, 
   3.57314870088253*^9}, 3.5746558585762653`*^9, {3.574670156150858*^9, 
   3.5746701578512607`*^9}, {3.5746701931541224`*^9, 
   3.5746702231061754`*^9}, {3.574670271856261*^9, 3.574670280545476*^9}, {
   3.574670327688759*^9, 3.574670328952361*^9}, {3.5746703662988267`*^9, 
   3.574670379184449*^9}, {3.5746706373025026`*^9, 3.574670676068571*^9}, {
   3.574740867627764*^9, 3.574740880248186*^9}, {3.575020951503151*^9, 
   3.575020964841174*^9}}],

Cell[CellGroupData[{

Cell[BoxData[{
 RowBox[{
  StyleBox[
   RowBox[{
    RowBox[{"k", "=", "1"}], ";"}], "Input"], "\n", 
  RowBox[{"(*", 
   RowBox[{
    StyleBox[
     RowBox[{
      RowBox[{"Clear", "[", "conn", "]"}], ";"}], "Input"], "\n", 
    StyleBox[
     RowBox[{
      RowBox[{"conn", " ", "=", " ", 
       RowBox[{"{", 
        RowBox[{
         RowBox[{"{", 
          RowBox[{"48", ",", "22", ",", "5"}], "}"}], ",", 
         RowBox[{"{", 
          RowBox[{"21", ",", "25", ",", "54"}], "}"}]}], "}"}]}], ";"}], 
     "Input"]}], "*)"}]}], "\n", 
 StyleBox[
  RowBox[{
   RowBox[{"rlo", " ", "=", " ", "1.125"}], ";"}], "Input"], "\n", 
 RowBox[{
  RowBox[{"tpso", "=", 
   RowBox[{"Table", "[", 
    RowBox[{
     RowBox[{"{", 
      RowBox[{"0", ",", "0", ",", "0"}], "}"}], ",", 
     RowBox[{"{", "hj", "}"}]}], "]"}]}], ";"}], "\[IndentingNewLine]", 
 RowBox[{
  RowBox[{"tpsu", "=", "tpso"}], 
  ";"}], "\[IndentingNewLine]", "coch", "\[IndentingNewLine]", 
 RowBox[{
  RowBox[{"(*", 
   RowBox[{
    RowBox[{"coch", "[", 
     RowBox[{"[", "1", "]"}], "]"}], "=", 
    RowBox[{"RotateLeft", "[", 
     RowBox[{
      RowBox[{"coch", "[", 
       RowBox[{"[", "1", "]"}], "]"}], ",", 
      RowBox[{"-", "1"}]}], "]"}]}], "*)"}]}]}], "Input",
 CellChangeTimes->{{3.572794697520533*^9, 3.5727947043221455`*^9}, {
   3.5727948024151173`*^9, 3.572794803507119*^9}, {3.5727948673580313`*^9, 
   3.572794869838436*^9}, {3.572795260993526*^9, 3.5727952676703377`*^9}, {
   3.5727954366342344`*^9, 3.5727954702834935`*^9}, {3.5727973545484033`*^9, 
   3.5727973657024226`*^9}, {3.572803225319809*^9, 3.572803264553878*^9}, {
   3.57280330550395*^9, 3.5728033127111626`*^9}, 3.5728033508376293`*^9, {
   3.572803528365941*^9, 3.5728035301443443`*^9}, {3.572803715051469*^9, 
   3.572803769604765*^9}, {3.572840261866465*^9, 3.5728402628648667`*^9}, {
   3.5728405648813972`*^9, 3.572840578905822*^9}, {3.5728406372187243`*^9, 
   3.572840716170463*^9}, {3.5728407476825185`*^9, 3.572840785746585*^9}, {
   3.5728408298790627`*^9, 3.5728408871311636`*^9}, {3.5728409363336496`*^9, 
   3.572841070790286*^9}, {3.572841415987692*^9, 3.572841609740032*^9}, 
   3.5728416910629754`*^9, {3.5728417502806797`*^9, 3.572841879885707*^9}, {
   3.572841914564568*^9, 3.5728419300709953`*^9}, {3.572841986199894*^9, 
   3.572842001659521*^9}, {3.5728426453322515`*^9, 3.5728426487174573`*^9}, {
   3.572844776030794*^9, 3.572844786919613*^9}, {3.57284502999924*^9, 
   3.5728450550060835`*^9}, {3.572845459218394*^9, 3.572845496174859*^9}, {
   3.5728455656105804`*^9, 3.572845617574272*^9}, {3.5728456738279705`*^9, 
   3.572845681440784*^9}, {3.5728457322656736`*^9, 3.572845755291314*^9}, 
   3.572845978356106*^9, {3.572846145151599*^9, 3.572846189096876*^9}, {
   3.572846392926834*^9, 3.5728464086828613`*^9}, 3.572846518881455*^9, 
   3.5728469699562473`*^9, {3.5728470834620466`*^9, 3.572847089873658*^9}, {
   3.572847132180932*^9, 3.5728472650151653`*^9}, 3.5728473515485177`*^9, {
   3.572849422046554*^9, 3.572849426554962*^9}, {3.572849678776205*^9, 
   3.572849686077018*^9}, {3.5728503673146143`*^9, 3.5728503811830387`*^9}, {
   3.5728505998798227`*^9, 3.572850604637831*^9}, 3.5730459405924234`*^9, {
   3.5731485633994884`*^9, 3.5731485765503116`*^9}, {3.5731486137719765`*^9, 
   3.57314870088253*^9}, 3.5746558585762653`*^9, {3.574670156150858*^9, 
   3.5746701578512607`*^9}, {3.5746701931541224`*^9, 
   3.5746702231061754`*^9}, {3.574670271856261*^9, 3.574670280545476*^9}, {
   3.574670327688759*^9, 3.574670328952361*^9}, {3.5746703662988267`*^9, 
   3.574670446904168*^9}, {3.5746710892508965`*^9, 3.574671127018563*^9}, {
   3.574671266124007*^9, 3.574671266124007*^9}, {3.574671949327207*^9, 
   3.574671952228812*^9}, 3.5746720468897786`*^9, {3.574672142595947*^9, 
   3.5746721470419545`*^9}, {3.5747408907470045`*^9, 3.574740924458664*^9}, {
   3.574741956213276*^9, 3.5747419624688873`*^9}, {3.5748306614370527`*^9, 
   3.5748307091575365`*^9}, 3.5748307421983943`*^9, 3.574830849354983*^9, {
   3.5748316203083367`*^9, 3.574831676156435*^9}, {3.574831733065335*^9, 
   3.574831738228944*^9}, {3.5748530946245832`*^9, 3.574853097011388*^9}, 
   3.574853202997974*^9, {3.5758678771591916`*^9, 3.5758678776115923`*^9}}],

Cell[BoxData[
 RowBox[{"{", 
  RowBox[{
   RowBox[{"{", 
    RowBox[{"25", ",", "3", ",", "4"}], "}"}], ",", 
   RowBox[{"{", 
    RowBox[{"26", ",", "1", ",", "52"}], "}"}], ",", 
   RowBox[{"{", 
    RowBox[{"27", ",", "2", ",", "7"}], "}"}], ",", 
   RowBox[{"{", 
    RowBox[{"28", ",", "4", ",", "56"}], "}"}], ",", 
   RowBox[{"{", 
    RowBox[{"29", ",", "5", ",", "51"}], "}"}], ",", 
   RowBox[{"{", 
    RowBox[{"30", ",", "6", ",", "55"}], "}"}], ",", 
   RowBox[{"{", 
    RowBox[{"31", ",", "8", ",", "64"}], "}"}], ",", 
   RowBox[{"{", 
    RowBox[{"32", ",", "9", ",", "65"}], "}"}], ",", 
   RowBox[{"{", 
    RowBox[{"33", ",", "10", ",", "13"}], "}"}], ",", 
   RowBox[{"{", 
    RowBox[{"34", ",", "7", ",", "11"}], "}"}], ",", 
   RowBox[{"{", 
    RowBox[{"35", ",", "12", ",", "66"}], "}"}], ",", 
   RowBox[{"{", 
    RowBox[{"36", ",", "14", ",", "74"}], "}"}], ",", 
   RowBox[{"{", 
    RowBox[{"37", ",", "15", ",", "75"}], "}"}], ",", 
   RowBox[{"{", 
    RowBox[{"38", ",", "16", ",", "19"}], "}"}], ",", 
   RowBox[{"{", 
    RowBox[{"39", ",", "13", ",", "17"}], "}"}], ",", 
   RowBox[{"{", 
    RowBox[{"40", ",", "18", ",", "76"}], "}"}], ",", 
   RowBox[{"{", 
    RowBox[{"41", ",", "20", ",", "84"}], "}"}], ",", 
   RowBox[{"{", 
    RowBox[{"42", ",", "21", ",", "85"}], "}"}], ",", 
   RowBox[{"{", 
    RowBox[{"43", ",", "22", ",", "86"}], "}"}], ",", 
   RowBox[{"{", 
    RowBox[{"44", ",", "19", ",", "23"}], "}"}], ",", 
   RowBox[{"{", 
    RowBox[{"45", ",", "24", ",", "87"}], "}"}]}], "}"}]], "Output",
 CellChangeTimes->{3.575869497360838*^9}]
}, Open  ]],

Cell[BoxData[{
 RowBox[{
  RowBox[{
   RowBox[{"Plota", "=", " ", 
    RowBox[{"Table", "[", 
     RowBox[{
      RowBox[{"{", "0", "}"}], ",", " ", 
      RowBox[{"{", 
       RowBox[{"i", ",", " ", "1", ",", " ", "hj"}], "}"}]}], "]"}]}], ";"}], 
  " "}], "\n", 
 RowBox[{
  RowBox[{"Plotc", "=", " ", "Plota"}], ";"}], "\n", 
 RowBox[{
  RowBox[{
   RowBox[{"Plotd", " ", "=", "Plota"}], ";"}], " "}], "\n", 
 RowBox[{
  RowBox[{"Plote", "=", " ", "Plota"}], ";"}], "\[IndentingNewLine]", 
 RowBox[{
  RowBox[{
   RowBox[{"Plotb0", " ", "=", "Plota"}], ";"}], " "}]}], "Input",
 CellChangeTimes->{{3.575021815245468*^9, 3.575021824106284*^9}}],

Cell[BoxData[
 RowBox[{
  RowBox[{"Ok", "=", 
   RowBox[{"{", 
    RowBox[{
     RowBox[{"{", 
      RowBox[{
       RowBox[{"-", "1"}], ",", "1", ",", "1"}], "}"}], ",", 
     RowBox[{"{", 
      RowBox[{
       RowBox[{"-", "1"}], ",", "1", ",", "1"}], "}"}], ",", 
     RowBox[{"{", 
      RowBox[{"1", ",", "1", ",", "1"}], "}"}], ",", 
     RowBox[{"{", 
      RowBox[{
       RowBox[{"-", "1"}], ",", 
       RowBox[{"-", "1"}], ",", "1"}], "}"}], ",", 
     RowBox[{"{", 
      RowBox[{
       RowBox[{"-", "1"}], ",", "1", ",", "1"}], "}"}], ",", 
     RowBox[{"{", 
      RowBox[{"1", ",", "1", ",", "1"}], "}"}], ",", 
     RowBox[{"{", 
      RowBox[{"1", ",", "1", ",", "1"}], "}"}], ",", 
     RowBox[{"{", 
      RowBox[{"1", ",", "1", ",", "1"}], "}"}], ",", 
     RowBox[{"{", 
      RowBox[{
       RowBox[{"-", "1"}], ",", "1", ",", "1"}], "}"}], ",", 
     RowBox[{"{", 
      RowBox[{
       RowBox[{"-", "1"}], ",", "1", ",", "1"}], "}"}], ",", 
     RowBox[{"{", 
      RowBox[{
       RowBox[{"-", "1"}], ",", "1", ",", "1"}], "}"}], ",", 
     RowBox[{"{", 
      RowBox[{
       RowBox[{"-", "1"}], ",", "1", ",", "1"}], "}"}], ",", 
     RowBox[{"{", 
      RowBox[{
       RowBox[{"-", "1"}], ",", "1", ",", "1"}], "}"}], ",", 
     RowBox[{"{", 
      RowBox[{"1", ",", "1", ",", "1"}], "}"}], ",", 
     RowBox[{"{", 
      RowBox[{"1", ",", "1", ",", "1"}], "}"}], ",", 
     RowBox[{"{", 
      RowBox[{"1", ",", 
       RowBox[{"-", "1"}], ",", "1"}], "}"}], ",", 
     RowBox[{"{", 
      RowBox[{"1", ",", "1", ",", "1"}], "}"}], ",", 
     RowBox[{"{", 
      RowBox[{"1", ",", "1", ",", "1"}], "}"}], ",", 
     RowBox[{"{", 
      RowBox[{
       RowBox[{"-", "1"}], ",", 
       RowBox[{"-", "1"}], ",", "1"}], "}"}], ",", 
     RowBox[{"{", 
      RowBox[{
       RowBox[{"-", "1"}], ",", "1", ",", "1"}], "}"}], ",", 
     RowBox[{"{", 
      RowBox[{"1", ",", 
       RowBox[{"-", "1"}], ",", "1"}], "}"}]}], "}"}]}], ";"}]], "Input",
 CellChangeTimes->{{3.575021815245468*^9, 3.5750220381386595`*^9}, {
   3.575819072666505*^9, 3.5758190980633497`*^9}, 3.5758192699108515`*^9}],

Cell[BoxData[
 RowBox[{"<<", " ", "C:\\\\Kimb_Mathem\\\\OB1transformation.m"}]], "Input",
 CellChangeTimes->{{3.575021815245468*^9, 3.5750220381386595`*^9}, {
   3.575819072666505*^9, 3.5758190980633497`*^9}, 3.5758192699108515`*^9, 
   3.5758195423341303`*^9, {3.575820116276739*^9, 3.5758201173063407`*^9}, 
   3.575820188692066*^9, 3.5758206645553017`*^9}],

Cell[CellGroupData[{

Cell[BoxData[
 RowBox[{"    ", 
  RowBox[{"Table", "[", 
   RowBox[{
    RowBox[{"Show", "[", 
     RowBox[{
      RowBox[{"Plotd", "[", 
       RowBox[{"[", "i", "]"}], "]"}], ",", 
      RowBox[{"Plote", "[", 
       RowBox[{"[", "i", "]"}], "]"}], ",", " ", 
      RowBox[{"Plota", "[", 
       RowBox[{"[", "i", "]"}], "]"}], ",", " ", 
      RowBox[{"Plotb0", "[", 
       RowBox[{"[", "i", "]"}], "]"}], ",", " ", 
      RowBox[{"Plotc", "[", 
       RowBox[{"[", "i", "]"}], "]"}], ",", " ", 
      RowBox[{"{", 
       RowBox[{
        RowBox[{"Axes", " ", "->", " ", "Automatic"}], ",", " ", 
        RowBox[{"AxesLabel", " ", "->", " ", 
         RowBox[{"{", 
          RowBox[{"xl", ",", " ", "yl", ",", " ", "zl"}], "}"}]}], ",", " ", 
        "\n", "        ", 
        RowBox[{"AspectRatio", " ", "->", " ", "Automatic"}], ",", " ", 
        RowBox[{"Boxed", " ", "->", " ", "False"}], ",", " ", 
        RowBox[{"PlotRange", " ", "->", " ", "Automatic"}], ",", " ", 
        RowBox[{"SphericalRegion", " ", "->", " ", "True"}]}], "}"}]}], "]"}],
     ",", 
    RowBox[{"{", 
     RowBox[{"i", ",", "1", ",", "hj"}], "}"}]}], "]"}]}]], "Input"],

Cell[BoxData[
 RowBox[{"{", 
  RowBox[{
   Graphics3DBox[{
     {RGBColor[1, 
       NCache[
        Rational[1, 3], 0.3333333333333333], 
       NCache[
        Rational[1, 3], 0.3333333333333333]], Opacity[0.5], 
      SphereBox[{0.4497614691354145, 0.6652566879642429, 1.125}, 1.125]}, 
     {RGBColor[1, 
       NCache[
        Rational[1, 3], 0.3333333333333333], 
       NCache[
        Rational[1, 3], 0.3333333333333333]], Opacity[0.5], 
      SphereBox[{0.4497614691354145, 0.6652566879642429, -1.125}, 1.125]}, 
     {Opacity[0.5], 
      SphereBox[{-2.696329106208919, -2.422384120539085*^-16, \
-1.3549077275257637`*^-16}, 0.2572]}, 
     {Opacity[0.5], SphereBox[{0., 0., 0.}, 0.1786]}, 
     {Opacity[0.5], 
      SphereBox[{
       1.000458049535153, -2.49161419353301, -1.1102230246251565`*^-16}, 
       0.2572]}, 
     Text3DBox[
      "3", {-2.696329106208919, -2.422384120539085*^-16, \
-1.3549077275257637`*^-16}, {1, 0}], Text3DBox["25", {0., 0., 0.}, {1, 0}], 
     Text3DBox["4", {
      1.000458049535153, -2.49161419353301, -1.1102230246251565`*^-16}, {1, 
      0}], TubeBox[{{-2.696329106208919, -2.422384120539085*^-16, \
-1.3549077275257637`*^-16}, {0., 0., 0.}}, 0.02], 
     TubeBox[{{-2.696329106208919, -2.422384120539085*^-16, \
-1.3549077275257637`*^-16}, {
      1.000458049535153, -2.49161419353301, -1.1102230246251565`*^-16}}, 
      0.02], TubeBox[{{0., 0., 0.}, {
      1.000458049535153, -2.49161419353301, -1.1102230246251565`*^-16}}, 
      0.02]},
    AspectRatio->Automatic,
    Axes->Automatic,
    AxesLabel->{
      FormBox["xl", TraditionalForm], 
      FormBox["yl", TraditionalForm], 
      FormBox["zl", TraditionalForm]},
    Boxed->False,
    PlotRange->Automatic,
    SphericalRegion->True,
    ImageCache->GraphicsData["CompressedBitmap", "\<\
eJzlWnlUXNd5/4VFWNZiRbKdxZatNnZat1matOe0p6dN4qSJe9qkSdvU7X89
rk4bu4ltRUKuYqdyZFsWA3JkyVIyIIEisYMQMBpA7JsAoWGfYRkWsWmAgWHY
xSZ4/e579765b/TAzjk9yR9551zee/fd+93ft3/3Dt95IfLF/3z5hciX9r+w
77mDLxx48aX9h/Z969WD1BX6MQB2arH7wJ4VeuR/7FAUhX38rdx+xG6hDMg3
tY6X1Zvaoz6x9je/wU8P8b6lpSV4PB717csS1hA2WBsUrg5KTk7G888/rxLJ
z88Xg19Xb1vVIZWVleqQ5557Th3CnsW0+fl5fEmb8j/qbYs+xWKx6FRpWAhf
tLm5WZ3V1dWF/fv3q89/olH4vo7wSbUjwoDwyJEjGBwcVJ8ZkS2cVfadrcHe
vqgR+iudEH1Xe/gVGmA/zCA3uh4Lwi+kwugTyK18VkJCAl555RX1E8HhK/51
kC7YFWKin53ma39SfXjAVNxMQKyvpKTkQS7D3t5etXtmZkaX4Rc0Wl/hQ+QF
BKBd5os/yqd4vV5VaYw7RtVqtWK3iZC3sb8qlSf+X5jfwy13I+YZl6wvJzkH
bbZaNFntcMfZMRRvx12nGytjPjzISQse2EVGst0E2RP32Ui4wUY+RFq7JNMM
Rit0oTH/IFwNblw+lYFzRz6AI7Yc7otVGE6txuTVSsxfK8VifgFWbtZu5Qpg
LsEsmzmuIBWmCzvMRKJ7NVRf3ygSGNxdyEb4L3OmED5WWBR7Y6jTrIUqteq4
RrRdakP/FRfG89oxV+rCalUL1mvrodSWY621TrMHbiPMZthbsOBZe1wD+6yp
l8uiZDJgxFif5uU7CFARMqwOlWD79TuYaJ/CTM80FvunsTo8DWXED8XZDaW9
FUpbFdZnfRAuK+hvYBQStq/q8XzvBtGARSE9moWqtinkJhTkaujRjUnlU0Qq
ZYow9rdB8Q1C6JwRYKYj6/wBc8vjhvs1E/ifkuKHULMwSqZmtgq5tfASV22n
bOqCGaeDnKn3jkCr/V1aQEtGasDxqY/Jg2HV1jRqE3+xqcF+wkSsDCi7E3AR
IVw33FDmJwJS1Ci9f2EZkwuKAWCZbRA16dnc4wIKZ2LgCn9mY8E9rP41z3NC
r0LHOznDrsouUmOzIWCceHMAlYP30OZqFcDKbcNktY1kDn0c2BbVsmUrP3bs
GCP9hxsD/LikWTZD1qxkM7t5gB3tG4HSUkZu0KSSefNQMXKqF7E0MI3yzkX4
OqbQUejB9dhOcqcGAlgCr8cn8MnmzBrX9Cb4HpIUKtcSLpdL9hNGiLkOe9vN
I8Rqcx3FkBI4kxqRkDyFhTInfAXtuFRNMSixDTWxjbBbawljMWm5Vi5tWIpi
0vgDyW1VI9wpiWuTRCpMU+Z1NzehoaxCpB8vx0ilA1PZFfCkVeHnFxfRGFuB
MoKSZc0LwAkXrqVXRozkZzVY3w6Kb0J3p0+f1n19LzfAH0Z2YmTQpya04fhr
6KEElxyZidbLV9BNAZmUxBOl0f+e1pZ6Rvc6QdCsdBLsihrscU4w+sQ42sfX
DX5V1atgffWu5CUB0TNe+cJ/ZJJhP71JiszNzVXh7OPz3jpSi0K3YgigWbUK
5tdkBw0LFvFT2mKf2TTYPLp5sBGcykawV4TC1hWkVChcx1pfWuoiRpdk0qGG
Kna7njw00PicCaY9koEGq0cEG4fD8ft6SJ7Auxfm4b87r6cRp8OH9juTBhwi
2jER7dhwWVNEmxU0otZ+Wl+6CwePDcC3zCM/9VV0BMT3iIm2aP7mRcweyYTv
z3pygPmQRMw+TU5O4ine997pOYzOKoE8RX0suBiTUaihjN4WhIJfuyVrlwJN
hKFoFnpk9JiPP8PpH/+pC+X9CndMre/Uxbv34RA1CpPcNm56sjQEHi0n4M83
UBxzMcHOH3PSGYmduOpQeIjjfdcnsL4wLkEIU5cWSYruD26CIlQ3dw2rZotq
x0ZbKSYoSWfC5lkTsnI6ZnAyZVZ90+sNFopW5tS3T5noLFCDhBqfggxN40Yn
cX+oiNiweGK7vi/oEHvx+skx+FcCde4VClkLa7I6w/UqhLk5u1htvOOjANyl
u0u4yaA9G0Q1tgzB/DKfcubiCry8VhIo01LuYmzJWImxCCZnSK75YD/gWjfb
1nHUn9BZM0PILr6TFjTkuPtF3hf1swE4vVqfiGNOhxftQ1717TET9W/VFw7R
n6R9f8CS+DbbbFO61bR0FrtPVqaxYutP+fyfRRYhv9144lLRMaPT/DTvE6ph
SHf9ega5bXMth0pyoHShvn1JyKvxLi4X3lPfxKqXq5QgdGG6/LnGd+rC2x7s
z2ZgTPxZVuif6cq7g7d+4cfU8iqPW1TGJyzo40QJwkQvFKopGb+n3h64r3yS
NUOi+EtO4eUjnZhYkqtmCnGFY7QTHJFMJ0ydJlVhfLEnJRblvMyDqTjiiLFM
wDMtF4xapaQsTatvT/A+RoLFUW1Jo2Nwnj80pcnhUTD59k9qUNIrBwKKPTUK
Ftfk+kXbAYlzECIZau7NPKsFxc8gSwx4VmhgyAP6UZxkB6pomcDo+StC/20r
yKiRazkKQ0kL8C7LgAP7YDl5hWyKOkKPksFBSYNpQC1IsTguLlruWd1KJ2BJ
0LLOI3qfB+39w+rbPo5SPgYTK5mFxF38q/H0MSDJzWFvOI0YYDYiLrLir+lg
u3D4+AAmV6RywjWpA3qCmxzjX5TAwl035yHC5NNW9S1wbHafOEQMpq2W/vGr
nNCpc/MYmzdWPolSeHqSyzr4kPgj4Yy4D498D5aubl6CrtgYsTch2nePulDZ
p9mGSCCn4+f0RfZxMnIJHuTwEeaGHBIEWVwyPLNs9g0R3ZK6YGuWT4BCkVl4
B/cm+w2SNKvoH5GQhW8kFjNDFIuzQi0hd1l9E/lOjYSLPmnxLYakIGXth6X1
txvtJrBCD46+P4aplXU971+5oWCJxzqxR5J/vng4OKJt0Z8CYVgcl55NXMX4
okZMLJCWOIfxZXmBMMMhNMmOKzVwwPq3fK7lrUG0jy2qb4/rTPSh06/R+wyn
x4JzZmam8ewG/8ZnZKUPoLBLdlty5TavLkSBivkGY5kfu27RY522xcC/CgRU
DiSXrUlKCUVS5bpO72lJjCJlmdWd2g4Kz+uMDeN4nF9yAao5LwRqoKc4TBFx
+FHXR6B84KddmFyW6nLNFrcabFHMH/f4UOvyYbzBjWlqnxUSk85IzDadfM1/
4Z9OnvTpW8XgKlE3Hu6qedYCpKT1YbauFlNZRViw5ZHL+fRtp3TUvNnS3+ef
3nmjGuV9KwZHkoeH8EniWLkirgVXYzoxVuDG8o0OKA2NGMm2aTFmG8ab3fC1
uNFzyYbb1AYv23An0YbRJBvGqc2U1GDR6cbq2ATPpGH6YSLXkVkVwEH/s9C+
cxVZ9XIJt90wnLWUU1fVvrZiH66cGcXo7QWseyka9Htwu7BWs4Sd8DR3oTnB
BudFGzp+ZYObQPcS6H5qQwTcQ6DHkgk8tckUG6ZSbZgvrRHVl6h0mLIDMYRX
1v+kG+sEzqdqVedeUxmzKwI5bztx4pVy2BJnMNB1F6Mdc7h2YQg3cx08Fn4c
UyMTqLmQi/r4XDQS7lbC7SLcnYS7mzD3EeYBasOEe4QwjxHmCWqTqQw7FUdl
NTxnhav5kTkHy+qiZNxhhP4TS78aAQPm8VBwHkG29TocuX71OTd9FC0NA1i/
1Y7Z8m4M5Hbj1sV2GnMLaTQulMfl8vO5qCY26uJtcBAbdWdTURUdH4KcQ1Ek
vmz6m3UwCleoZfw4CtePnkFdTDzcsanwpeXCT23J1SVOZ9ixi3xezusLvpP4
R87L+1Yq/O5KVhPCnevcOx1wNinwzimBbsodtiKMpZWhM74c5eoPQHZ2ECpq
od7GLpQQGxXERpnlQgjyI6NIfPmRFmrRyKNmp2Y7FI1catkHo4kdC7FjQeqB
KOT/7xm441IwmZajewJThNixEX6+b/wex3/iTSeco2uSLsJRfKEe6Wc68ItT
w3B1KhhZUPhJXRhmG93wU1DyUHM3uMP4lJvXbqDwfA6K3jyDosNR1CxEvOhw
NLlv4eEYXI+MIQZiYD8Uo4LPIeBXfxytA0969QQ6Y1P0elquSrnhf5d/ykhx
I89lPJdgtWLVpU68/YMC5KVOof22ovPvJpEWHT2NEoJUetgSgtLXokmkpYSq
hFoxtSJqhYSugFoeIbxGjSHMInQZByxIeTUKZQnZvPYJUzcK0laEA/wH3TNn
cClPi36PcIAdBLAu3QPLgQrkXVuE807gZNFb14Qykln5axbWQugPA1j+Wgx1
xwSARmog8w9xMXIRZhLAK6+fgT0uhwPUth7M8dg+2nCmAHxHR9mNY2dH1Tcx
LcdaCMe1abz/Rj1a69bQNCpSxx4suLrQfz4FFSTGStYIZCVBrCBo5YcDUAXM
AoKYRxAZzGySY+4bH6CYLLuAYIr9iFxfBsH7Zeo9+JbkcjicslQlEqNbce5E
F5ytilpyP8bhLRI85sQD51PhOPYBhxlN92gVXjlBKo3k8A4xeORJBK0sKgGV
H6ShikJfGcFz2G/oimFZTzo55Pni2xxh9DuD+r55pwh+FxxIP9uB3PgRuNwK
PAuiQNmNKR5ifBQ0x6m53otH23sJaD2ZgGZqjTEJuEXtZnQCGs6loYUCcAMF
4nqKZCw4VxI6/8jEoxwcSxLSXkLLlfh7Du5qZj9KetZ5Ag04SfXlbrzz34Ww
Z8zANSDqt11Y9U5gmgEkYD6K7OMpWoZimWqIWn+ilsFYJmMZrY2ANREwB4mt
I6/mkxyUOIhgWdflcnFQfydMrmkR6VVarBE/FncSqJuZo4g+WAl73hLaRhRo
v83twBLldH8KB5Ss5XuW9wep3SYwrB7oIjAuAtNbUINZSmP8V5RvcfJzHp+e
VpyOIZyIu8PzPrP2IjTkzeL00Qa01a/BS8XS53llsEKlxEKbG/PU5qjNtFIt
Rs3fopYi/Ec6teoO5ZG9JbYAt+MLMJaUj6kMOw4do6GjvnDdeKuQdLINZ6N7
4HIqGCXj/XeNzLM8DbMfxNKs+TS0Arfi6lS6Y1cdmCuox69OUHlU14h7FXas
TWlMlcY3IvOXnbBd9KK9R8EQpZr/kEnuUH+pzbDWozTOhdaUbpXkYt8kSt4t
xWhlJ7zXSzGYdA3Hf1QE+5U5uIYU/JdMYhuSLGmosA0ZSlSXaxXWzHuIPlyN
npoZjPX0Y66pDC/KUyNQFGuD4u2jDdSCPrW4zK/mRLE/9XoWcDOjVH37gXHl
9dEeKO3VUDpaoJAS2LU84Mdsjx8TrklUx7uRZW1BUcp148rbsOr3GerqxVIH
Ju1NGEhvQkt8A4qtNUi3FpN8usXUr3O7vOfzYammFnPZdkxmFGD4UiE64opQ
QzVyDmVr9r8kL2lTvinMnpKijydFv8f3Q+3rb/f/+H6Xb/jY/wESgbJ8\
\>"]], ",", 
   Graphics3DBox[{
     {RGBColor[1, 
       NCache[
        Rational[1, 3], 0.3333333333333333], 
       NCache[
        Rational[1, 3], 0.3333333333333333]], Opacity[0.5], 
      SphereBox[{0.4785581723545745, 0.6448518556014627, 1.125}, 1.125]}, 
     {RGBColor[1, 
       NCache[
        Rational[1, 3], 0.3333333333333333], 
       NCache[
        Rational[1, 3], 0.3333333333333333]], Opacity[0.5], 
      SphereBox[{0.4785581723545745, 0.6448518556014627, -1.125}, 1.125]}, 
     {Opacity[0.5], 
      SphereBox[{-2.7093616603521813`, -9.740727000148815*^-17, \
-5.32707743038854*^-17}, 0.2572]}, 
     {Opacity[0.5], SphereBox[{0., 0., 0.}, 0.1786]}, 
     {Opacity[0.5], 
      SphereBox[{
       0.5212188087516272, -1.721990364890311, -2.220446049250313*^-16}, 
       0.5241]}, 
     Text3DBox[
      "1", {-2.7093616603521813`, -9.740727000148815*^-17, \
-5.32707743038854*^-17}, {1, 0}], Text3DBox["26", {0., 0., 0.}, {1, 0}], 
     Text3DBox["52", {
      0.5212188087516272, -1.721990364890311, -2.220446049250313*^-16}, {1, 
      0}], TubeBox[{{-2.7093616603521813`, -9.740727000148815*^-17, \
-5.32707743038854*^-17}, {0., 0., 0.}}, 0.02], 
     TubeBox[{{-2.7093616603521813`, -9.740727000148815*^-17, \
-5.32707743038854*^-17}, {
      0.5212188087516272, -1.721990364890311, -2.220446049250313*^-16}}, 
      0.02], TubeBox[{{0., 0., 0.}, {
      0.5212188087516272, -1.721990364890311, -2.220446049250313*^-16}}, 
      0.02]},
    AspectRatio->Automatic,
    Axes->Automatic,
    AxesLabel->{
      FormBox["xl", TraditionalForm], 
      FormBox["yl", TraditionalForm], 
      FormBox["zl", TraditionalForm]},
    Boxed->False,
    PlotRange->Automatic,
    SphericalRegion->True,
    ImageCache->GraphicsData["CompressedBitmap", "\<\
eJztWll0G9d5/iIusixZq21Ztps6PrXjnKTNaV66pU3itlHbNG2SByevrk5T
u7Ud7XXdxLa8iaSqOrQlG5Is0rLERaS4ACQALiAIcAH3HSQBcBFJESRAghJ3
keIy/e/MvYMBOKByevqQh845Fxjcmfnv9+//fwc/fPH4S//86ovHXz704lMH
j754+KWXDx176vu/OEpTcV8CUEzjwlNg5xKd8o9iSJLELv72fB1mX3EM3feU
iSPylzwjn7Hx3f/Vpd9ln/Fs5ndi37SHzy0tLalzO6Luuw+JnfJngkzC6XTi
hRdewMGDB3Ho0CEkqhjidZ58UiODLezCQ/LEtg2k2Df7za6y87a2Nr5sJMEn
FIK/lL8ekskEg0EkJyfLZCwWC4aHh+WrMzMzaGpqkkkxkgzt/Pw8h6BL9mcq
zqfkiUR5gYyMjGicCfLlePT398s0GXSi/yCf1pIOi/an+lefjCESxgujLXhh
5w9w7AySENc2FfSXFZLfUSfoTqFe5Rcdu/VRHJBPtuqiEKvt4I+ye3Jzc2US
hOprCo3v6hjVFh1Z79IHsJ8bmVAnA/D666/L6hRkhBjYrwe5htLS0vDaa6/J
9xqNRqHm5xS63+NUtYsJcHv0gTwcQxLMjsQCu/niQv/icSYpkthz/ycS2aOx
QQGEHUw6tGicxhbcbrf8ay+fY0Lk2sFXN1hFQoRViPO96g0KngfUhbXexSgy
NaSmpj7GZct+Cg0IJ3tWIfvXsaIWx8iws0e3yA/GRcjyCS4VMcdlyyn/VZTV
79vUf4oyjBhu7kO9wYI2Qwm6L5ag71IphtJL4b9agmCmFaHrFiz19GG514dH
NAYnwtEzysLPs6+4sOMe0F2YnbPFg/4Qqk11sNCidkMZXAY7Wi440HXJCW96
FW5ercZoVjWCuVWYyndixujAXFEFFs1lWLJYsdbvw9pUiCs2XlUFl/PvKZj+
UkfMj0VZD3uSHUyM9KRih4/IHFpy7MgxWGEy2FBucKLKUIPGC3XouNyA3itN
GMhswq2cZgTymzFlasKMuRHzJQ24W16HexU1WLU7sFZpw5rdivWbPtWxmOsy
IXDNcbB/tmnGeFSTa0TgDYcBmlGAb5clm20oplGOGwTabHCRhBvhutACr7kP
E+0BTHUFMN0d5E73IO72BbE8EMDKzQBWO/qwVtOCdVcjJFctDQek2lKsd9bt
1dH+TlXte2PLfF8Mj2UMkCASeGRRoJtpVJDca1BAsBtMPtz2z/EYS1l1dg6S
1weppYFGNaSmcqx31wnRRiU1vVS5JzbO3fdJOVrGE7hC7KZ6Amyn4YLD5MEk
gd3Nr0nzs5BueiB11kBqJaCjPjXPiBDJaBsMhs3rhU0wP6QJy9Ep/9SpU/Ia
cRrFsdSv/FJwuJt9sq0w/EH/TJwajGUw28W9IT+knhqstVq5NuNUSbBf0ZWT
BvTzakTSFjlaG2ZEREQSYtnGCdpNDQSthkHjkkmMzgfiW2CQFmYg9VZixn8L
WrtgkuF2sQncf4iR5pg8WZpjgIVZMbkF/dN8jdgZVdwv+d2YHejS2Fq8vAZz
Yp5CN0H2dVUrT+r4E8PIDrIBoW5t1tihyrNdndOzNL08LJ4NdoWfFbFAawTh
iksxEXwjihg7DmiMIFaJymTBwItFumo6IwFuCadrhXpZcguk6Vsq1MEOT5RX
J0SsKPLxrijjVLLZfaLwxvKXR/L9/JF1f3sk3hh2oRV2qlPC2sqS6nHu5hEa
/RoDSJBtL7rk2qMDU6kB8Qc6l/bGCMU8xAlEWtMRSX/VY4O0OBOOHltUHkRV
bb8pocu7jpHQHQ4iTvbcbEpELNA8yue0dbpelSfxnJIYm5HoYiw6VrPYR+dP
8EfXBimd+WpkBhKFWTV58OH5BVT0z6iqKGhdV5cQXQULjdmGUjk/PcLRCkNi
By0XtqM4HawJGgfeWM/u4vcIkqzwY5qlrBARudk8+/U4J7M25sN6F+nEU0cx
bzZew9W/vNSF0duS+niebRHSpJfrnnPgnyWulORlN9WJAsPj8UTYF5Plzt+E
u29EudJG1WjjPJ1/hQNZbTRD6rBD6iI+gmNbVD58+LfDHoxNhyNVQZWEuVXt
sgnoaR4jHupoVNKwyFo6oLEzZhDhKLZB+noBj3P0x/JX7N6PueMznNf1mRDW
G2ilZmKklcqm1ka4Kztx+N/7MD4rKULfjtaBUEQUuEPVQiOVOIVU6uQYankl
YdUwEa5puKlt13c9EVPCKla8TVOSJ27oXDZJGEpVuh/r08RYDWnIZUPXlWIc
/9UQAvW9WK1uwUp7H+4NjmOpP4BFXwBzngBmegI4d30Rc92d8FG96brYItef
FnKiPAoD2VRMsyKPcfg4lzazbhb7WW0ibE4vrnG9HNC5tJ/rQds9ifqYkeMp
RclIDyNQXIbSt3MxTpXuSoUDy+U1WCx1YdZSj9tFjZgoaIQ/twk3MxtRkD8K
f70PTcRBNZUi5QaH3BLksN6Fehji5Ms69paoamdr5Bnfa4iPzmGClViNNiMs
pPNN+Z595CQT+M+UAIJjIdxrqMNdsxULRWWYNVbgTn4lJnMdGMumCuOqE33p
ThSfbUVdVi3qqMSupL7LSrZWo/DAG1ClPRH2RrYn9nR0o5Yid5m3h2NkFl7k
Cz+bmppSyfy+6upTeOvDECaXRMjaTi2nD3ep7bxTUY+xq1QbpFvRf8mKngtW
tJOb55HLj1DrOkhp5WmNHYk6XUgqflP4j8XMLNs2bfMZcy6XC3+ocjCDd87f
kTkQNUiebYFitFK5PKNjIHGbItMz8h0aEWsLaHaelpamV+Z/UwBsnsf7F2YR
WpbUnb6CqnXMr2rdPV4GJzb0SPmbYwwHGC0yrfIjuurIAPMtgaxtEUnpczKy
XXyulRpScd8zGq6EUrdsCuvpGPlHKJD1GDab7Y84YXfHMtLylhBaXOK1YhzO
Zy9g2e+NAMDIsbCi5mXZ7JUnuPPot2GiRv5TTijnSg+uFK3Iv0SYqxqQsH5v
QaOLBJVGamqqSkPxMr51GtlKsYOxG705+id8ibcPG5FRtib/Uivr3jWMTk5q
lk1UQ6agwbtIXtM/oHKuVwuE81Jc+JbYmmBRmTTxbU7p1DEzrju0UTAOhS2r
KvVn+Zy2y+ewtqohNTqhKzgiYAnzYXuk4iCtfoc/+e4JG/JckcVvfjkJ5N68
BobSugko9M03QBC5uRyWyOboYj7G635xMGMgkeHPOaH3XnehsFnbnpBjO9ex
wB37OY37iP2APRqZbfSi+7TZegWTKEJ4rJfnhFI/eKMVxR3azTfyb69fffar
fE779iQCYORS22IJi+dSxiczK2FiQk6nf9UDS49CQ8TW81lzUTAit1VJqVtV
o0nUYtoaSzoaxJE1mV6dJjbCk98aQKlPofW4NiAsK/i+xue029d6skn4jX1B
T4ACTco7o7ANaDebKU70UJwIjmssSsm2IjyJwJx4H1QJOlIII42A8V+nJ1Ax
sBL2wqj76LnC5hWMNXsxReOuPyTEpE2yegVWQnQk0zWnyLl49ea/4BTPfjiN
WyFt9bljgyGww25yId9QLJ/fKrQjmFWO2XwL7ta4tnNPWxyfxHSHFzM05mjM
d3qx0Ol9lItHW5Cp26W6LO3WufQ8n/v1pwtyTxh2gB0R97GDbWhZqVhnx82C
bsxVdGPN1QapsQprI76t/LFgmxdD1lp4Pzeh/4oJN78wYZjG6FUTxq+ZEMww
IUTjdqYJS13efRqDiS7z9XZZODPhnlqwwFrbc2nLckuotDTbI0R93dCFis+H
5fNm5zBW/WyzeAzSoA9tV3I44d0YbfWgJc2I9nQT3DR6iQ8f8TFAPAwRDyM0
/MTHOPEwwXghPm5nmTCdZcRKcFJsgLKsxnI0s7VwQcBr/J9oML96tJc1gTxr
R7/4YkciTv2TBdeaFAEMuxdguTKIrqISRT570WWmov2yEU1pJrQR5E6C3E3D
Q7D7CPYgQR4iyLdo+AlygCBP0AhlcejZMnSxk6R9OyhKC8Ua8WMVeB+O/IcX
gXkRBnZusJeaa4M4+bMy+dxdN4F7TSOYrLwFT8EwHJd91CI1o660Po7HzNbi
Wjg/M6KWGGkgRlznsuBMuYyytz4iORQeS8KDKDiWjPyjybhxNAk5R5KQfeQ0
rG9+hLozlxVmiJE72UbxElC7p6CpEPkO2I9UXm7i5NsDCC4Iw9kKT5NP9W6r
eRldowpfK5UWNaGMUgvYfrkBJXLjquwtbOErT/knUX6pEJXEkOPjLJQRSMvx
pC30kUwltuV4Csw0immYjqXASKPgaArxlUx8JSP7cBIyfpEE78VMhIinRbdH
3VlnAYwdzLA4J/+ocjKKN06PYOKupLbPhdTIpb/ViI/eaIHFtoqOcbFjshX3
giHM2FwYTS+m1smMKopEVSaXzIko7n0tHpQQJ7aPslB6gjgoO5HMPlKIjbIT
Z2juDKzHzxBLZ4idMzI7hcRKPo1cDSseYmVBZUPZuPD7/cLAlC19vsHOOAng
zbNjcsskXpkWk5yvnm7HJ+950NUqITgnKmTSF6G0pGbCdiKJRjIq2DiZQt8p
pBMbYdyBcvosI4QlxxXE5mNnUESDoc07koKcw8nIIrTXXkvCpH/yYQ6UOTLb
9+LGo+z74Ycq0BBOfTwhNyhil6zsUh2yP3TjwtkRuN0SxufDpWIFAbSzcTKZ
gFUSxF30eQaVBM5Oo4KGTQPUQgCLaZgIZAGBvEEgr5M4jb/OhJeYFihFvmVV
HFWrHOXfqyin8d6nt2WU4n0biz2V6Z3I+6QPn34SQnefBP+CtJ/n1HnS1eCl
TDgIrIPAOgiqk4aDwDpORAIuJ6ClTKoE1HyUpEpgCzlYa2qWbD/MjsQWuPa9
AK+cfqAincMHF0ieS2vqzrabkNZcHcAHL9tguTEH95AIOgmyZzAPGbqUhaZ3
PobzBJOrk9S+MxLmcQVm2TEGk7yPIBYRRPMvP0YFmTZzVOaw/S0ekVlZIa15
XciB/p0A2rqIz64rPZnYpPUQ0PqccZw5Uk1RYwldfvHmfh8LS5iiEaI0MXQx
G93/nUYASa4EtZLCgJ2GjUY5gSulYX/zHKqS09BM8byewiELiyw8sjC5X6N0
zT9pOMK/5QhZ6/p5ofIHpofUaFCKJtM0Ut9oQnH5KtopGjzNswhlADkT3M4y
ysGUZQiWKcYylMzBMgjLJCyjsMzCMkwHjVZCyDIPy0CUiUSNykCxI/w+FH/D
L3W7V3DVusKTtPBuB76QvbtX9e5neUqWkWUZ5VwV4rkrkKGkYZaOWVpm6Zml
aZauuwhROyFiaZzSuahTWcQUKYEjOsgv3bjmQZZdaX+3cUSlF13IIjc2nB2G
u1tx46/zIocKF8zaauVChhUBrLBhBc7IF0rBwwofDyFhhRAVRPxvEN/nq71z
zITcWklj/9wd0zrIHX04f25CdsfRBelbXNWs6pvjVSBVg/zvQ3K5GceLBO/F
YtyiSM4i+lKPF++etKKgURJb4cyLqq/24/1/JS/KJS8alnBIIfNtrgnx94Bi
g5K1Pek18GfX4o6xGnetlXj35zdgcoSwdjuktp+9RLYuZwwph6tg4Tb/cy3Z
XSjPd8qv7CsutMpkh/J7ESrpxV1nD5zvW9Hu9EFqdqLq9DkyzjtknI0wla7I
xvmyllQ8MlOtyDP0YLjttlrwE+tJb3bCmO5GdaoLDZftGHR2IxCcekX78A6q
/myQlhciinCzOYT0eklRMBUA0tIi5gd7EXS7X4lcetxZTrUiBa2xW0r+V3TZ
1zKFos9bEfD0IGq9e911kNrsaiGxWu/BnKMP45Y+eHN95DDdMBlaSOQOzEwG
XolUxspUCMu2IqxVlsi70IslZG7GegxlNaDzszpUGqpwg9yZtRCvasyBWpd7
HjKSnCJMZpgxkm6h3G6By2BGEenW3exV3hT9dvzT8/+/gC/9D9Nr1RU=\
\>"]], ",", 
   Graphics3DBox[{
     {RGBColor[1, 
       NCache[
        Rational[1, 3], 0.3333333333333333], 
       NCache[
        Rational[1, 3], 0.3333333333333333]], Opacity[0.5], 
      SphereBox[{-0.4313876580956984, 0.6773156785744069, 1.125}, 1.125]}, 
     {RGBColor[1, 
       NCache[
        Rational[1, 3], 0.3333333333333333], 
       NCache[
        Rational[1, 3], 0.3333333333333333]], Opacity[0.5], 
      SphereBox[{-0.4313876580956984, 0.6773156785744069, -1.125}, 1.125]}, 
     {Opacity[0.5], 
      SphereBox[{
       2.7003410918204795`, -2.2757523823287768`*^-17, \
-1.086648367850005*^-16}, 0.2572]}, 
     {Opacity[0.5], SphereBox[{0., 0., 0.}, 0.1786]}, 
     {Opacity[0.5], 
      SphereBox[{-1.1372614883651346`, -2.4373943742172224`, \
-1.6653345369377348`*^-16}, 0.2572]}, 
     Text3DBox["2", {
      2.7003410918204795`, -2.2757523823287768`*^-17, \
-1.086648367850005*^-16}, {1, 0}], Text3DBox["27", {0., 0., 0.}, {1, 0}], 
     Text3DBox[
      "7", {-1.1372614883651346`, -2.4373943742172224`, \
-1.6653345369377348`*^-16}, {1, 0}], 
     TubeBox[{{
      2.7003410918204795`, -2.2757523823287768`*^-17, \
-1.086648367850005*^-16}, {0., 0., 0.}}, 0.02], 
     TubeBox[{{
      2.7003410918204795`, -2.2757523823287768`*^-17, \
-1.086648367850005*^-16}, {-1.1372614883651346`, -2.4373943742172224`, \
-1.6653345369377348`*^-16}}, 0.02], 
     TubeBox[{{0., 0., 
      0.}, {-1.1372614883651346`, -2.4373943742172224`, \
-1.6653345369377348`*^-16}}, 0.02]},
    AspectRatio->Automatic,
    Axes->Automatic,
    AxesLabel->{
      FormBox["xl", TraditionalForm], 
      FormBox["yl", TraditionalForm], 
      FormBox["zl", TraditionalForm]},
    Boxed->False,
    PlotRange->Automatic,
    SphericalRegion->True,
    ImageCache->GraphicsData["CompressedBitmap", "\<\
eJztWmlwW9d1/iKSkq1dsWMn9RKPHcdOmyZN2rEn06TTrEoykZPUjdvJtD8c
xRl70nhXokxiN2pjaxtHluoFMi1ZokSRliyKBMCdIsAFIMUNgAiQIEWRAklQ
BAFwAzeTkl7Pee/exwfoAXJn2n99Mxdv/8653/nOufddcsvjLz75xK8ef/Gp
rY/fs/n5x5998qmtL9zznWeep0tZHwNgp3bwHvCxQofixw5FUfjm//7ud7zL
YisPaRdeVnfqFfWI21/f8NbvebfCAPOSybN/c0OY67xJdnYr77L59hbtws9T
oHj7lLi2sLCgw39Ju/uEieVPqL856uN1dXV47LHHsHnzZmzduhVf1l77hclr
m9Tfm9XXIpEIdu/erb5WVlaGkpIS9XWG8ng80roZzAb1d+V11vm1mZmZFert
bOTn5+PUqVPYsWMHX/4rAx3ITgKkbb16sOo6THYtHA5j//799JL26tTUlHrO
z5DLAvirejTJXcmrdkbbPfrdtQaqJQnyNXJTd2qVsMYe8HV+jnr4RQ37ayZB
XGHC1V+ovzep1pgQ9nn79u2SKzz99NOIx+NrxKvcNX6Eb31BA/47EWsjqrS4
WpfeXWliwnvq5UZDpwVtWKcL867/WZ9uNrn2KYO02L5RWpJVvh4KhbBRMMt9
5/vMC+3XmZi/67rY5iTFVh6vMXHpdgMlRuqFudtNKM/RKck2AbxTM/eNj0jJ
rSmUGCUtKWHjfHy7oISframpUeND11Mp4XaH5sXXdUrM+r7JIDuzdBI5eYdB
43w7TSQMZh9JWw9y1GxiBI4rb36/X6RiluoEk7/M4zLzrImbzcuCiP8WvbPr
M3SMieQyRgTK8BkTWpplNwW/mlkV+G7N0k/T5BETRjY+K7pqcguf0xAe1iE/
beCF84FfYH64vzKvWltbdQc/I2xzH/gZKRBRkh/U8B8yZ+qONAWUC42s6V8w
YeCBjKifNKGDNw6lXuq1SMq3Pi+QuAey1Fgslsx2PmEIa+rIxEBsgGT1ZcGo
TBs+k537bEYDt2Soj3T+FUNHJDP3ZwTUitjq65hJzW6+Thn3sEDhzhlG6/tT
NbM+AxGcuCJfsgz+SmsPZSBHkxa+bVISDeH8pkEfokJoo0TWMoW4T79w5w1y
kR2h428JVOMkZb1JGfm4hv8Zk1ufTBG3kRV2lK99VzAsuy7G68wlXdi8M+ND
txkKuZE1rm+phfz7Bgp542trUxQktk3p+3vLR6hyVDm2CGA2zrd5UkTsrhVC
MCJKuxvTG92YpoKwUZkT/5BCshgw1mSwmKXrZXV62+tThhBJsbFUsk/sB589
akLzci3PSj4yHas1HasPrcvQcc45Hs+kLmiupgP9SGSTLLGGEOiD9428+GIa
2wYcfUwyJraB/FR5CeLTz9zwlwa25cDEeyPbcgDi9i/CAjvJM3oRmdV6B1fo
R4a5t1Yf1bM/T9NLZk4y/DND+ZLMSwY2pu/LA2mguSzI158UrwvClhVnmD/p
o6+x8vImiDHj5ReCFznU8UZdElOle9Mksew0n7vd7l8a+i2HOun4St1JUag+
LXzPJJexcAwDbT1oL6zGye2vYdrTg1lfDxZHY780EEFjsnDfVD6bDJVRsMKO
S1aSJgBrVMdrrW71VoulBj2HnQifcGK8qBYz1irMl5biw2Y3rsRiIhrLk04x
RmX246aMybQswqzlR5I/utgSeyk/JnXn18LfdgGnLXVaTc/zYvB0J+LlnZir
9eFKYzuuud1QmmqwVGfH0njsKeGAMVBZGZ1fpQ8vqUmpeZvkvPx8Pnz4sBwp
uBMrhbPHD5TDftCPQMWweivRN4kPQ5O4OjwB5WIYSqAbSlcHlE4nlrqbpLNM
BceOHc7sbMrX8zK1mTuQ9jUyxGKRGw2aOULxIwNhnD3lQzQ8p7+bI/CVyRiU
S15c6T6LpwQMC55FIwSz4sacX383W+g55XKmoinrGitJll8N5s/gcfhwbbAF
ysJMElS7Mw5Pfhe877bDe6AeHa9WoPP1GgwczkPxC1Ykuq8gcX4WibZxTLtH
MOnoJ8n5MXamhfLGgYFD5ei22NBGrb81+BMR/Aildg+lttNih8dSigu5pQgf
sWOqxo2lsZj6FMtSTN6Wy/LHjaSk1tE00ROxYDyeb8gVi1XCl6tdNRrO6BCU
uTkdsyeqYC6hINrgg9IfQp/Ng6rjdRqz96L6koLWUQWBMQV99Oggtct0HKVr
4yMKJgcVTPcrSPQqaKlbhN2WgNMWRfOZYapoF+A94oPv7SZ49tag7Q+lcP3W
iqptVrTlB5HwLyDRMYVE8xim6gcxUd2DKJm/fLIRg0ercOGgHeeJ0XqL7Wu6
oomA4HsuhN93Y6KkEfPlTiTKbDhreVOfZnLS3GZkcFU6/Rj4TR4IzQZH+eE+
22iH4nUYmL8JV4bimB8Yx1TvOAZqw6ipjKDfPYh4aTWUoZA2Ib4PvXEFjWEF
3oiCIDE5EFMQpn2EzmOXFUwMUwCJ8UQfteBVFBbNodo2gcaSy2j9YEDTaG4b
vK/XoeOVcjT/3gbnb6zwF/Qg0bWEhI802hrHtIs0WnsR8bJORIrOIZxfi4F3
y9BFbLZQ62sNigF0gzoOFFqq1Y44DnrUff/pboyVBzHr7MaVpk5MOZwoe30n
Lvm9xsU18R34UQqmmWLXCg+W4jEs1tpwraGSWgOWnOcwU9WOMasH/YUeeA61
ocbiwvuWKpy/EIP/4hXE7Y1QfD7xjUw6HSD9kSb9H0mnH8JmnYbTSjotGiKd
9pJOvfC+5YZnTxVa/92ORtJpOek00XNN1+l0cwRTdSGMVwURtXbg8vsNCB2p
RC/p1GthDdrWiVpZSK4WWtpQYulW+5uIzOvDnDI6CWVwGErvecz096m1PhgM
ysHpVgOnOSYyXOZZJXGDqArzLjdmiqm2FJVjrLAKoaM18L9TjQZLBc5Q/eFa
JEeS6LSC3nMhTNrOYam3R1shu1tT57C5OuOp6uyW6hxHY/EIWk71w3M8QOps
hWefA+1/LEPz76yoJXWeJ3VerAwh7w+NsO/xY8oVxkRtn9qjyOlmWePHBmI4
f+pk6ufRrakzCtPil3wtW394owhIgmZVk+1UX6gcD1O7QE2OOVMLpJXBOSx1
DWDe6fonUTM6GzqQ+3YHWqnr+15x44OiRRWcZSVnNZHwLMXZh7PHbfo147RV
FHKzCfF9wrMuYneWCnCkwasW4AnKzUelC3TsPOLHjq2l6rv+xnGEIwtYTrUc
DPsm0GwdouzwkSv1ND3q1Udy40yXpCW82aCz86B4rmeMIzuBpXM+LlePCPNd
ZN59IoSd/1aLsqJZ+EPkejcNn21uvfJNVAcxVBJE4EQA7nd8sFlayBUHuVLK
mpNeyo8hg9C16XKWBqM69rfCnRGiw9d7FTEbJ7n3ewLjjKUcLWfi2PdrN8oq
FnF+RAZiDa5yDam048PKGiTsdYh84MLFPBe87zTAYalFEaVBIeUop4GctHDi
yUVts6FWuyZW9LMxNqWgu4kCxFnTE/ym8MpGnT36igdv7vCjs+0aItOK6A99
5QR6MHrUTrXXDj8loZtaC9XbgEF9PLGX0ySK18r0jvy9eGNynvIyNE967ce8
wyX/4lCV24SCfX5YXgvRtI0kPSOXgZMnvznpLXxDQHUSszMUhNF6TZNxEsLD
Ik01TQbwHz8vhf1YHAGqBsMzyt0C1biwlsHSt0VfWP2TAxNYbCZLQ5fkiqGm
vEHs/JUDZWdIeYOK+EDL1teqkj5ETI1sFm8MU0g8XVdpQGnENa9Xfk+reiom
Pf3GjdLKJfgo0e8X94xLV5K45aIrPma/L/BHSRl+N9FEyljsCT5gUEbeqx68
8Z+kjHZSBjH6oLjH3+Vc4HgUlQVDGzzwA4E6QWEepjAvUpjnal33GsP8egBv
vzYIf4DCPKskrRTzxqja6Cr+AkAhvaSFdKTOo4Y0RgzfYQhpHYf0iTLYj8dp
gKUBNKF8STgic0TwID7AfyzudvLIwBFsUiN4m7AX4AgWDGHn0xTBkjn4hxQh
oSwdjM/EkoNcIRoiKhenry5PHMym+KuFjd7WixTAcezb7kZJ+SK85MpXhFty
lUfQIcw8JmbDvPkaQ+p+kUqSHDyKqEQ08UydJkuRY3bMONxYjMSyjBHd6cUb
fwygs0NRI/rVlApnmNBLnWgjykbVwjhFNTRAUQ30o/LVPPVa4FgHIjTZmT/b
hmuN9VhwlGph3h/AW38agr+L4jarfN1An1yqFxb+WZRByVInTdrsJ7Qhti+/
W/2o6adv5a6CVtTndqCZJogyBfv6+lRnRT7dZI7ob+iFI69TPe/wzuFS/Tyc
zjkM0HTz3JkOjHb58B2BKBeehGBENmpfReuSIimP1b2vgebVmoVodT+6Tvah
+p1O2PLq9UyWq03i70arDFFdXm3IEnOA0PF6tB50oJhqP81ytcVQsTy3CnOX
o5jw0mzgiBXD71nRtOM9+A/TXJpq86PGuK1DYiSK/nIXuuixHnr84lErLuVZ
MXTMipHjVkTyrYhSGz9hxUJnD5YiUbHaKAS3AV2lLrQeos8ystBJEN3Uegmm
n2BCBDNMMCP5Aopg4gVWTBSUYLbWhR8a+dsEL0G53i3BuUNWtJNHPoJqebMA
DXsOoZGaay81sR8hqFFq0QINcrywBDMEqVUF/KPQbjwcRU1uCeoItu6/ClD5
8gFKPNuLuyhVbC/uhvWF3Sihdub53ThN7eRzu1Dw7C40kYngwQJECTZObTES
3WJEvgW97UFU5BajghArCK9i225Uqm0PnXPbizJq9hf2kpU9KH5+D04/xxZ2
48Qzu2B/6QAihcWY9QflP2T8RKRB+cv76VNyF6q38X8EnN22ZwVqtu0lyVbT
bxVhSmwbYZcQbtFze3DyWQ3X9tJ+LFCYUtzlS725JwhtF2oJ10FuOn5NjSBr
qZ2lVmOEJ2gbQRcT9AfkcuEz1H57ANFwCnS22gPuSX9uAUOvgJOw19Hv3iT0
akKtpFZOyHZCLiHk0+S0/dVDqCQimdAk5JXMusp+jNoYacb/p0M4t+ONFar3
azRkQqwmxEqiuIwa+1y76zCcBwpQT0E/S8GPL/sspcZCnuDYEipLKEJSukxt
mFTaYylE+97DaKXmfasQgaOaFFmSLE2WKEv1keREYMhJghsnuBhBjTFkvpYA
nAicEBeOagnip+alhGmjxBnqCMpEkKWJoRI1LsRE3lwmiOFjWmpyivbS66EK
FyI099dGK/yrnPqNRvUapNH4f/KfT/+/kzt87L8BPNdceA==\
\>"]], ",", 
   Graphics3DBox[{
     {RGBColor[1, 
       NCache[
        Rational[1, 3], 0.3333333333333333], 
       NCache[
        Rational[1, 3], 0.3333333333333333]], Opacity[0.5], 
      SphereBox[{0.46561468935590566`, -0.6542589709404097, 1.125}, 1.125]}, 
     {RGBColor[1, 
       NCache[
        Rational[1, 3], 0.3333333333333333], 
       NCache[
        Rational[1, 3], 0.3333333333333333]], Opacity[0.5], 
      SphereBox[{0.46561468935590566`, -0.6542589709404097, -1.125}, 1.125]}, 
     {Opacity[0.5], 
      SphereBox[{-2.7011622080325353`, -1.0234830237533209`*^-17, 
       6.160565223575697*^-17}, 0.2572]}, 
     {Opacity[0.5], SphereBox[{0., 0., 0.}, 0.1786]}, 
     {Opacity[0.5], 
      SphereBox[{0.5860133550856447, 
       1.6900563831790363`, -5.551115123125783*^-17}, 0.5241]}, 
     Text3DBox["4", {-2.7011622080325353`, -1.0234830237533209`*^-17, 
      6.160565223575697*^-17}, {1, 0}], Text3DBox["28", {0., 0., 0.}, {1, 0}],
      Text3DBox["56", {0.5860133550856447, 
      1.6900563831790363`, -5.551115123125783*^-17}, {1, 0}], 
     TubeBox[{{-2.7011622080325353`, -1.0234830237533209`*^-17, 
      6.160565223575697*^-17}, {0., 0., 0.}}, 0.02], 
     TubeBox[{{-2.7011622080325353`, -1.0234830237533209`*^-17, 
      6.160565223575697*^-17}, {0.5860133550856447, 
      1.6900563831790363`, -5.551115123125783*^-17}}, 0.02], 
     TubeBox[{{0., 0., 0.}, {0.5860133550856447, 
      1.6900563831790363`, -5.551115123125783*^-17}}, 0.02]},
    AspectRatio->Automatic,
    Axes->Automatic,
    AxesLabel->{
      FormBox["xl", TraditionalForm], 
      FormBox["yl", TraditionalForm], 
      FormBox["zl", TraditionalForm]},
    Boxed->False,
    PlotRange->Automatic,
    SphericalRegion->True,
    ImageCache->GraphicsData["CompressedBitmap", "\<\
eJztWnlsHNd9/ixSohzJknxJdurGTnpYcd0WKdrETdHabdwIBZzWCFI3QIEC
hhHAAVpZpiTXdeGksgObh+zGslOvKFGWLFEiRcnkLo/lkktyeewu73NJLm+R
4rVcLg+JomhJ5PR7M+8th8shbaBFkT+6wI8zO8d73/e731v+4MVDL//kX148
9NOXXnxsX+KLB17+6UsHH/v+K4m8FHcXgHzK8ccgzjWeyj/50DRN3Pw1OLwq
DnEC1jPGhUT9oF/Rz4Q8/X94a5e8tri4GL32pAnrJvHwTv3CZv2hiooKvPDC
C9i3bx9eeukl/L7x8M/1w91rHvnggw/0x8R38WlublbjvylHDYVCSE5Oxv79
+/H6669jaGgIm+S9wsJCzM/PY25uTh9CnP+e8fqPo/Ae0y9sWTO33W4XcydI
iuKWgCK+PWGM8Q/6IX6VRvh5ZJ0BJZpNckABVL0VL/+qV8SHj8t5no5i5Wty
EvmNn13WKB7WTxKiQwodKRSjo6M6l21ST0I/QndCvUpP3zQGeibG6uKzKeaa
kJ3WKPZIXQgrZWRkRHUhyJt0ISZUb22X14LBoA5S3NtrjPeXEq95EgXqXmsA
D+gnWy2NIdRw5MgRMcN9JkcWmhK3d0Sjbc//ii7utfAL8RGaJ4Q4k6MJVYlv
ipR4RKAWr1B1Oywm3b3GVzav8hV1fl9MXG619BBlEEbVV+VkwkmUPfShdYLx
60P5a4tbj5p0oPxBkBMD00cela+IWwKG2R8sZng2yuVr6yQQMxdxXZx/TSpV
3DMllg3m+auoJzwSE1XmecS5iKDfMkWVyj5KcdvWn+R7FrceMqlLJTrxEfqh
HyjnUzOJb79jUqHNZpN6UXoyBsSffQn7JawxkiAnsqI4/2ZMUlfIVhRgSej+
LxcD5nzwuHxFzKBQqATG576x/mS7vsApVFnw+Xz4lkWa//r6Q99jUpEyTKwf
KDJimvr6ev3bH1okej77dZOf6Xa6xwTdnDfFuEo5yup/YvK3mLQmixv+dgO3
VRb9cwsNGPFo1Mz4Ff9fW9vEh3qwst93rSnLoZ+0yKlflYnJqrSLOwIxZ3gm
hre5eu2M0aQRFl/g8WtpCdWzB3lcAoq0dGOGMtvajTnKdcp8WzduUBbauh+2
0OCWKJCtFvN+xQD3Bxa37lsnUjboIoxQ2IHrY2EMOr3oOu1AD6XvjAODnzow
fNaBEcrYOQdClHCGA5HzDlx3e3E7FN5tgq9m2iyNF1PKEiwuqxS5ZX1OX1Rx
ZNr/Xf2xezFHHt2FXjSfcqDtEwc6yCVI6SWffvK5ctbgNEou4+QSooTPG5xm
LjgwX+qV9d/aSeI3IKebLM6Cw2ZTSKx9d6e0mtl1hSuITGyymkAjelvx7bel
J8ySre+kHXXpdjSScQsZt5NtJ9l2U6pS0lGdkr4JXp5sxWiGJH1ekr4gSNsx
l2kXxnxQzmTuouL+B3yfjAko645KxT21/IRMORUn7KgmrZp0B+pJy5N8Eq6f
HUPuwXfZPOUeTGJN/CwxCZcplygXX01CJsXJZ/yp6QiTV4ScZijzZV4oYmYv
XYfYFuvLVi2bZPnUBnlSOOepU6fkkiUeA41BlJNcJcmVJdMuBYeSxJ9kRmA+
/+YfSoHjYArslFzKZ4nJJJhMgsk6wYwDSag5ehJTJDZNuRUKPyCHNjtqtMyv
4bE5apJN0TPTAiGafWCkN1P/smVNBG6Qv5WnF6Xlwk2+xTRM0eGkOLgOJ9Pf
XYdT+DUFTtItpBRQ8hTtxBTaNRnZpJx1IBnnSbngzWMIk+5CIAiVccwd0gqX
e9a308MWt/aY/NLctcilhqoa35IaKCAdQaX4cBJKyKSEHNyHUzaJk028msrG
03UolbxSySsV+QdTdXMKTp9RopxeEZw+wHwg+KBFpaMpd0UZGWnT6EvioyaM
4fHAOj6o1sIrJZ+O8u5Jgk5CKQlQNqHscEocz1KpvBL+FTQEiSJB4qAkkZhq
GIYEskkgkwQy9idhrCUo596iO595lSRbGtk97okSeiDGnVSREm5lSneRSCRK
749lwW17/yTRJqGc0MtfS4GHUq5LKq+l8l6qTsRNKTmUGrVFASnkEb6dkvNq
Ci6RQtYrDKs3jqG7MfiQhUvJ5dtDFso28rXRZwnS5ookHEe1iOLen0qlhzJz
UffWMXiI3COUXvEaPcZD3Dsk8qNEfhTuQ0dRrJATdUGiUD49iKgvE3XOv3+I
ohO56F1BrbpoUS72rO/q201qN7u6ONIMVo3nUxL8FMGL8Kt/60NUHE5mHhXu
7tE9RgdPsO5DUuUHBXCGNEEbwJPhIOgyZrwSAu9jBnxIjquiTCprd2zi2W5S
tNlTBPzYhvYvZKjfZIoQqV9kyM730wVepgcCpqI9/CtQmzEXH5SYEw3Mrjc/
QsWHmahmRa0g5tIT9t+QqhH1WbmHEbaye1q/ron84Xa7vyfDc1ambVF3RY0a
TMtE4L1TqD3yEUGWMQtuQyn/llCBxRTPzz6CN5n3P8pEI0t7HWuhj8CqCGyG
pV8hM++OSWSPmjLCeouNffoz94vSr7cAohXQoZ03WgTRKoiWYfic0TeJ/qmX
Ejxj9FWiv2qmNBBWDWGJbuQRaVtlHzlXQtSosn39TZNtlTuKj1pwm237N/q3
XXpvJnq0iGxfRO82Tmwj54yeTvSrfZQe4hN9bIDYWomth/3gtbGwWsOLKU0t
ToJFsNxtgNy6YZezUkbjVh7Z2BcYWcay6h7cngjjZns3IhlGUz1BEmMkcZUy
RBIDZ4ymVTSvk81cM4yH5cosXleMKb1vwCAhWjZiOxgD8ioGqmcQHYv6MKs8
t3oMo2fYgp6GboxRIpQRavmascDZa0pLwslWKrAlwJjdyRWdbgx63dc4l8hq
5o+oJM/JHGgeSB0DJHDZlq+fB0+6MX7BjWs5Tiz6fHtNLiMISZfZgI/VKgdq
Abkl9rI6WrWXqjeT2xz6tR/E0FDDZNqKUWir1c+Hczpwzd2BO74WaHVezPmr
HpeghNerDRlS+UIasbfWUby0r1qgKId/PmaMQE0nlPME7BO4PnAdt0evQ+sa
g9bfj4G84ifkK+a9vBWn22bGlrCeLk2zrm5srZrdH+l/t616v/x8Dz454tTP
s1NbsdTQgPGyDjS4Q2hnKtkr/cwc5Kv2EL5U2Fkp8of6pR1rmOXbPPrx47e7
0VYU1s9nqifgLJxFZ+skOi81ovRixV7pZKoREYBMiW6HCdtmC13EhPiPVoI9
DsffHUCgVUNr26TUYwJuljYh5GhF19lmeI7XoqikB7Wn7FisaYAypAgcsZ6N
7o2bk6qlL62+Fh99+Hmp9eI0LzLfC+D4e1cR6NAwMa/Jd7bhTngKM1l5mMwo
RH96EepsTuQxssscPrT3L6H5iobF4QloE1ehQlu0TaooUmly62dXjNmE/FAi
cJ+sR/axLqQdm0BHUMP4DS26UXNjdArjzCf9FLVVMDKnsQQvYrmlGYudQZUg
zd2m0emYdqCel6Zsr+eC8VQrLv+qF2kfT6GjV8PoDe0BOca1RQ0tzVPQhq/K
Pc+4VZs+ctx/Mo1WcboTb//EhY/TZtAxoOHqvKbaxcEIgdZ34lZDo9wSNno0
Uze/solvODb+USolwKGrzvbhnZdLUXhpHoEraicwDn6CXhghytCY3LkwMqro
M9fJqKYZfixn6OAM3owhJP2zB077TQSuanLXOB5XZqiWiVtYDrTjVnfwG6Y6
KdKn3NfeYmHUu4xJ/l5O0sVJ/FljOHqgitH1OdpHNSiDzdzUUFs3jQm7R+ag
exCmvfsaetDqqEENva3ZVoTONBf60l0YPuNiC+VCOMuJmUuFuBXs1T10p8kB
VCumQxM/KBuAJCrlcd31vai9HMZ/HvbDWXwbbeOa3FKIQ/ckqRPBnRa1e3wv
K1oPsm0FzBtFcNvc8NrK0XC8AoETleg5XYUrGdUYy6pC+HIVZu2VmM/34Kaz
FJ+7XLjTUIPl6Sm5ko4X7auO0myoNUD/TgLN4YT19hkce6MBhaVLaJnQ8Ef6
vd2oaqezUU2TbR2sV/kUFz6zlcFpq4TH5qP6atCSXoeuTxvQf6ERI0xqodxG
zBQ04npRPRbddbhd7sdSRRWWK8uxXOXCcqt/u8nWIpTkRuo6+x/Sp56TeO1U
zum3GvDRz9vQVr+MBir227LY5bq6UdsYQmtmCS6+k8Nn/Si21dPUPRhtnECo
ZULulSRgaWgCy8Pj0GoaWXNrodVX8ViC5Q4/FMCYveyVRCsz3nelQWfpUhOy
r9oucebRgJ++04z/+kUQ7c2M0utqdcZlCZ/PtDlXpdC2tNLVfcTdciDtOutt
fze0Nh+0ZgKcm5Id+ZZVXaXwSfl7gNwP+o5Ui5iugvlUfJqOO9F7soh9qxOR
rAJcu5RHL++WatmMApr2XEorPk5m9Wg3crX+MxLzZSb9M5O0MqnW0Oi1aNQP
NfRb1U3jJeOadoOPd5FAqB/qZ02R7dT+udzw+basCoaCChkN5fpwwTO1GL1U
j9n8WiyW+HCn3IMljxN3mn3RHrKIVebC+wHY3meV6TRyvPqxQ0RXJh2nzBGQ
tlvp68RnrLAO2tSkOFU/3WkLcxgryda/KX9Q+yXmzKpAi0n6YwrjVzBV0oeb
Vb1YqgtCa2qD1lqLpl9mIfPtKtg+nECgWy8Oz0SH6CXGVgVhVc8kPp0Mzp7R
O/r50kBPFGx7sSeqcrWfZv61MN6MNB4Z7+XqQ0yPLax482aUnWpGeXovPNlB
hBqaEPB5ZVX9Dhy2PLgo5ZQqip9ST2mitFDaKR2ULko3pTetkBm1GAOnS7nI
q8AQ89fwBT+uXqzT08TYZy0Yt7djPK8TEwWcz9mLSdcAwu4rCJddxZRnFFOV
44hUTyLinULEP4Pp2jlM11/HdOMNTDfdxHTL55huu43p9juoPtOJs/tzcfGA
HTmvOpCX6EDhIQdchx0oec2Bsn91oPzfHKh4w4HzL5+D880iVP+HE95flERD
0PeeF/5f1qwKS7crhMG+ORlJKnxn9fZdfHvQrNmn4U53QosMRf1AXM27NIjz
6bMoqNXgPdEGb3oH6rI7MWjPR+W5PnjOD6I8cxilWSMovjgGZ3YI+dlh5GRP
4+LFWZw6O4vphnlSXiDlRUy33tIpTwconUuY7lrGNP1oukdDhHU70k9hmzA1
SGFNDw9RhjVMsvqGRhjSLJDjY5RxUYE1jFCuhjQMsyxdoQxS+il9YTobpYvS
we/tlFZKI5+t4zs+jlHB8Uo4RzCifofdjPZKLiEXZle1w1a/xinnzbRV68G+
Rp3sw0qpzr56pU3Vclxpmmax7EJ1dn70Z9s2D/N4D3P4wjXEJGpTOo2n8eY4
m0+mA/9u84TbcWeYibaRpm3xG0FW24mFym5MFfdiIKcHTZ92osTWgiybl8Ha
96ycfLmNr3Qyvc3PRdUQaBiVE5Xp9ERO221OzNtwq9GHpbJC3CkrxU0XC3ue
H6MXa9D1iZ8BVsWgc+t1V7z6rBx2qcvPTMJa0eKl1EMbG5eaTECESdnHWneJ
60pDq6X61GK5LPcZn5Ke/HlXN25U+DB1IR+jpwvQw3htYH4v5nQe1gox5feV
SVgStZoSSiU0vw/LXpb1yibcHhjH533jWOiZwHxwArMdE4i0j7PMjqP+RBOq
jjdwvBrkEkoW10MiZkQNEWPLPeYk/XA/G20/lsudWCp343apB4vF1Zh3+qgR
dh85NRi5WIuBjFoEP2HHkeZn5+FlB1LJTqScHUmJzrJMwjZ6YyTrh11Yikxh
qa8HC/lc4zpcmM1xYyq7FGMXyjD0aTl608sROF6GRr3rKmH3VcTiXYBO1gwO
Z2zY4ajU2+3JKSwEejDf1otrLb2YaerFVGMvy38vRvjGFYr8zfvX4n8J//8Q
c8Bd/w0MIeHd\
\>"]], ",", 
   Graphics3DBox[{
     {RGBColor[1, 
       NCache[
        Rational[1, 3], 0.3333333333333333], 
       NCache[
        Rational[1, 3], 0.3333333333333333]], Opacity[0.5], 
      SphereBox[{0.48027226062490447`, 0.6435762547470535, 1.125}, 1.125]}, 
     {RGBColor[1, 
       NCache[
        Rational[1, 3], 0.3333333333333333], 
       NCache[
        Rational[1, 3], 0.3333333333333333]], Opacity[0.5], 
      SphereBox[{0.48027226062490447`, 0.6435762547470535, -1.125}, 1.125]}, 
     {Opacity[0.5], 
      SphereBox[{-2.708042633861552, 
       2.116700286157216*^-16, -6.707909929428717*^-17}, 0.2572]}, 
     {Opacity[0.5], SphereBox[{0., 0., 0.}, 0.1786]}, 
     {Opacity[0.5], 
      SphereBox[{
       0.5110286707046895, -1.721306443980642, -5.551115123125783*^-17}, 
       0.5241]}, 
     Text3DBox["5", {-2.708042633861552, 
      2.116700286157216*^-16, -6.707909929428717*^-17}, {1, 0}], 
     Text3DBox["29", {0., 0., 0.}, {1, 0}], 
     Text3DBox["51", {
      0.5110286707046895, -1.721306443980642, -5.551115123125783*^-17}, {1, 
      0}], TubeBox[{{-2.708042633861552, 
      2.116700286157216*^-16, -6.707909929428717*^-17}, {0., 0., 0.}}, 0.02], 
     TubeBox[{{-2.708042633861552, 
      2.116700286157216*^-16, -6.707909929428717*^-17}, {
      0.5110286707046895, -1.721306443980642, -5.551115123125783*^-17}}, 
      0.02], TubeBox[{{0., 0., 0.}, {
      0.5110286707046895, -1.721306443980642, -5.551115123125783*^-17}}, 
      0.02]},
    AspectRatio->Automatic,
    Axes->Automatic,
    AxesLabel->{
      FormBox["xl", TraditionalForm], 
      FormBox["yl", TraditionalForm], 
      FormBox["zl", TraditionalForm]},
    Boxed->False,
    PlotRange->Automatic,
    SphericalRegion->True,
    ImageCache->GraphicsData["CompressedBitmap", "\<\
eJztWml0VNd9/wUtQMGstrEdO+H41I5zkjan+dItbWK3DUmbpMsHt199OE1C
WxPMVpw0uBhsI+G4BmJ3ACMwRAsSFtJoNm0jjZBGEjPamNEwMxJCAg2jkUYS
2oW21/+9796nN6Mn4dPTD/nQd87VvPW+33///e/TD1/b/9N/fv21/bt2vrZ9
x97X9vx0185927/7s710KuULACw0zmwH21doV/yxQFEUdvG352cP+0lh6F5W
T7zBf/gZvsfGd/5Xl77M/qayM88tf9NmcW56elo7tz7pvkdMsYH/TeNTuFwu
vPrqq9ixYwd27tyJdA1DqsGTz+p0sIpdeIyfWLtkKvbLjtnVjIwMtLS0iNcm
TvhFdcJfCjFisRi/fffu3Th06BB6enr4lZGREXg8Hj4Nm5ohHR8ff2z5Gf9J
g7idn0hfDmIav5yKzs5ONiW/hab/HXFaP/WiVv/R+Oqzy2jDZrPxuaUoTKw1
Ant2dja/rj4pQX9JnfLb2gm6U1pWPaJtkzGKp/nOakMU7G3s3HrxKLunoKCA
T0EIv6rO8R0Df1ploOuNxgC2CWGkNRkAaU29Gtj+OmGdrKwszerFxcXSwi+p
c74sPFb/IglsszGIx1fQgnzBJvFyaXv5uLDJS/8n2ths4H9sY5qhl6bo/MDv
9/OjLeIcU6CwDL6yxCPSEjxC7m/RblDxrNFezF6o90ZmgpMnTz4ldMsOpQWE
9vGiOu1fLZeshFgMuwxLk8nEHn1OKEOqVahUTPiXSY6+dcWQyTp5Dne9HQia
G9BqsiNw1o7OTxzoueBA5LIdsRwbpto7MB0IY7Y/jicEXCYRm49ljRfUF7+i
ZW81Vp8yfPGRI0f4y/sjcdSa6+Ggl1abytBgqkTzmSq0n3MhfNGF7ss1iOTW
oL/AhaHCaowUOzFuLsekxYGZhgbMdYS3Cj1I5QvN/q4K5y8MFPuUTrEMOXuS
bUyDFEGq5z2BRrcXtnwnCkwOWAhXhcmFWlMtPGfduJnVgOCnN9CV40Fvvgex
Qg8GzTcwYm3EhKMe02V1mKmowWylE3POUsw3N2BhKK6FkgxUYTQB9k9XLA1P
6uJN+gNzJSaCzDoq9m2IkV7zTFZcMZWjkHDbTW7S7w3Un2lC2NqB/rYoBn19
eNDeh7FgHybCfZju7MPM7T7M3oli1tWMheseLNTVY8F9nX6dUGrtUB7EtdjR
G3+DZvUty+t968pxmibkU7HbaDDd16GYcHvMYQxHxkRWpRIaiUJp8tKoh+Kt
htLowMJIXKo3qYoZ1cXNy+Pc9IgioxdcFjcVcBWNerjMIQlEid2H4muE0ubC
gtcuT8t0yGYkjCtTghWQPqZzCVkLJFKZYVJ05mIVXj1Scfi9YUJcyVHHIqOP
y4s9ASj+KijRDmG0FE1gRVnKhnQoX9Hyjp64SHdl2NgkMu9IPazVtOig4WZY
NIdK0fbka5V77Zi/Wap7baoWx0LqFRD+6BFli4WUdBhm0VhkRBpz2Qop71fC
riQvSuXvYOEuSuIKyL6mucGz4iY9RlmS9GWUDXYsaVpfdy/ZtEcg/Rx4h+8m
RWeioRfpknoVX09Cz7ZnRBVcjloywQmkpNVtNV7tnTLkjTD6PEHcbxvTrB6L
PEBvW6NOYWkJfi/9fWOSB6qF6RFZdSl5FZn5SYna1aRpK0V7Q6qwMdt2/Ws7
su2TlCLvrRO3Oc1tiPg8CZCZZmQYSJa02QCXSo/x+waXthjkJ7Ylk2C2L/FH
uyJY6HDpoj9xzlUCns/Twc/fH1Hg6lQwP/dQQFEtwLLFotpStMLDjozomYzd
9OXFSWZR+oCMRCL82O12f1E8Ou8vo/TfnmQJciJ2wue5A7nx48A8ugdHRYJJ
4cGcRzU8j/jGkwKudCC2kcoW/cdIT2m6UF3KRDeKe/ShICmbPg+z8+zoGXFu
LtwAJUBl7G5AvCGFRLmH/Yd70De+aLGCxgXtdekSPhfJTaOC5fMnBYRgMJjg
Y8wZNnwe0b6eFD/GhpF1kPa3i6fnR+JYaHZQvSN3aKdAHR/VWLzPE8WhoxHE
JhQtCvNsw1BGI7p3p6LKHBTCOBl/kfrRt3DrjVVv1C8Iif5IZJnl2jXWGb0g
ZJ33u6F4qLY0kRDNRC7CQfir7uAXGTH0TyrSOAX2GcS6Q7rQWY0h4icNxFMK
ia9c4T5WyWkB4zNPC9AsJ+p8bZ2m61WLnrzYhy6aWXVWHa1OX9J0sI38TlpW
XyZUerkNCzdJuDpicfVO+C65cPiDOPq9QSqmYcwR65vpYiwwRmwwhumBMWKH
MVwPjSPW2ocQscY6Yo+VJJ2FLFRArDKP2GWeycIlfEZoXHbfLHKl3xnlN2Gb
pw0ubdP5nZ7oStIsCooag09gYTiOaHYhCt+vQayhmTj3dTwsd2OytAGjthsY
KiF+fs2DewUe3Ca+XugYQefVWtwg0lNDdio1VaOIgucK5QSnuZ5L8yUDx0vX
TLQ6cU+sE6Sq9XmpPMs1ytQaair6Br9nK3zeMRwzjWIsFMa0zYopaynGSyow
So0Pa4BYI8QaItYYhbNqkH+6FYFrXrjJ2ZzUQFlJiBohxJd1TidrBKUEGWuG
uUtVPpftcYPKyDZB12XADQ4OatP8ngz35gm8lzWO+EMZHusxNxDH9K0wRqsa
eD/J+krWX3acc6D9jAOlh4thOXYJPdSH3vaGn9f5k0w2UlmpK0rw1LI1Zq1h
p87UIyk91Rn8gRSidRoZl0YQn57XSMgFx5w25wsGPpKyIjIjZ1+v07Le2VmH
TInJiL1/Q5zz+2ZwoWiGH0kG2HiXpp0e0YV9Kgcn1+PI/itjXEw0emR6+zOU
OvvrE803xbm3dhfhsk1Vlcalr0QR7b/Pj17USSWNumpFWM8/ohaxcxUVFX8o
Jv7PN0qQU6EWy03inLVtZont2HSSPC6SCfUJET/G3ZVkyX8iJnp7nx35NYkL
yEVVU1BmxnW2SNPmYLEv51ADTax8JjZMbGOiJdO6PxavOHqwCp/V62lhCq7V
LGBiTp/505csDIr1F8Hq12iSG1NDWZ8W+7EVLMGyM1niW2KmY4fqUdSkT4Qp
aKL6ImeXrqBv2QWs1VpWTS7uKo4EWNJ9WDGXG9Gub4sn3/15CyxtiigZ6rnT
2cOYH+jUwVC7NQmFfsVqRtLa8KJGVka37GOiD5Abk5mtTP6ZmOi9XwZgC+j7
E+olQkTGZ6f40Uu68JEraZt1OlsaRanCD5JOy18j8iTJCAMqXUca9fhbt1Ea
0ldrSpcUXncGhhMAymZnsckRABNftXY5ZYlyKtZRNReTeso8cg/lneocMrfm
X1+kyF8RypCdqGhWVmtOk67HtHo57egQJ3IzI74m17JPvBNDZZeKRdLYmzGa
e/gOP/qqOKdfgTbSTdrnjgUjBUo0v3p/CG29s/xINlJXro1jeEbRGUyttsnU
JP0RqNIMtLCINAHGf50eQ++gLgpVR12TAJztVwfGcN8bwiCNqUhcKktfao2Y
VlpyPjN0qsRzqdrNfy5mPHV2CpHhRO/Wa1sSfqfZzY/ziuJELq2I5ZZhtNCG
yVq39tVlMjqAB20hjNAYozF+M4SJmyHZeyb1AyvItMng0ssy9DxB/Mvr7bxp
f8YgARAZTBHhdPeaH+OVfsy7m6E0ujDqDwi3W49YSwiBC2aELprR+akZdy6Z
0UOj97IZ0d+YEcs2I05jKMeMaV9oq85nkhm/0UqLEGSxv35Fgx/C7gNBRMfk
9891Cfq+YvLBebGH77dU3sJcxxCUEDWOt0PoqqgVE29Cb3MQTVnFaCUZ/DRu
kRxhkuM2ydBNMtylESE5oiRDP5OF5BjKNeNBbjFmYwNyAUxyAuZoi5xAMP1/
0DB3YO8vwrw7f84A8+k3y1F9wcf3C1pVBfT4J1Cd1wlfiU0oaAt81jrUny+G
J8uMZsJ8kzC30wgS7g7C3UWYuwnzPRoRwtxHmPtpxHMF9jyOXa4useqn//zK
Spnqivh7DXk3Dr7dhdikTAUbEszEttrLXfzXduE+/PUDfL/f2Ytb13pQdT6M
fBN1HA63Gkhb0Wypg+uTYtSRII0kiPvXuXBlnkfZW6dQvO84imhc25eBwr0Z
uEoj/43jyKNhP3wK9SfOc2EGSZBhGvJjnn6ZWEcTxbLY32nCRPDz9+6hf0rR
GuMguZPc7JZp+HsVRDsH1NhPx6j9BkWrF63nG2HnTSxv0VeJpwcjAyg/V4Qq
kqf6dC7KCKNt//FV9CeDWLZtfyasNCw0zPsySbxMXNubKcTKQO6e48j+2XGE
zuYgTuJM+oPayirLXlyr5FhCjr/V5OjD4V9FMTCtaJ10EbVzHvMwTr3pha18
Dm1RuXaymkwex2iFG70XLAicsVIfa6G2z83bPsnvw01BOEiSilO5KD1AEpQd
yGB/MkmMsgMn4KBh33+CRDpB4pzg4hSRKIU0CkiUPCFKkESZ0MRQl9rluhzt
q0trYlmdSRLHkVMDvPWTHz4t1GFfercVHx+9BV/TAmJjkiSvRpBQ2k/moOLA
cRoZqGTjYCb9ZlKirSCM61FOf8sIoWO/iti67wRKaHC0b2Qif4+q+N/sPo6B
yMDjAigLZLYMJlxHVJkfakCHcey/hzhQuWhWdtaN3A/8ML3fQ4RM4dEt2WIl
AXSycTCDgFURxI309wSqCJyTRiWNCh1QGwG00DATyGsE8iqBvELqLP4wByES
WqKUJZcROUIqUP5AQzmKd88OUhO6oH0/Y+m+KqsNVz8Ow/TRAPxhBZEJZZuY
cJxs1XUuB9UEtvogmdzFsVYT1uoDiXjLCWcpUyrhtO4lpRLWIsL6GWG1n8zl
7sPcSFZB/bcBwZ3+RgKllv+TXDVeZTbyE9Day514Z1cFbAWj8HfLlJPGA4MF
SPe5XHjePg3XAaZWF1l9QyLM/SrMsn0MJgUfQSwhiNb/OI1K8mwWpyxeKW5l
UaXuQ//1TwD9awmU2vqsz1QiLddrbxHQ+iv3cWJPDU8Zvl75+X0rT0osOcWp
SnSfzYP/gywCmEEAM1FFWcBJo4JGOYErpeE8/GvUZGTBS9m8gZIhS4osObIk
uU1nc92/wgiE3xcIWV9/yaLv61kyKIWneBgn37wBq0gGz4saQvmf14Gh3GKe
Sll9YHXifrZaN1j9YHWE1RNWV1h9abuo1htWd1j9oTokWSoDxUut9nkT3xOX
AoE5ZJfPiXqnIisxVVFwt+Cjo+1acL8oKjJHllvMK1VcVK6+bLUK37usVmVW
nVmVZtXaR4haCRGr4lTNJVNlCVPWA4Foh7h0ZK8ZV1wqzV4rEJWerUMOj+Ju
HsVRiuKvCY5DvIUSZx3nMYwDMF7D+M3dSyrfYbyH8Z9uex3jQ+KfGr4r3vb2
/hKt3U7XRaMzq5WiMYSPP+pHuxqN35TReFMlfowAEhEU///DOxiVHq2Gl5J3
6KwF9yiZP6CkPt0ewrF/d6DIu/gVj73l+qUOCqVyWPPVUNqpzvUtYQ71u7mF
sm0ZGs5U88kjebUYLr6OKbsTR39SiBJXHPNDca0LVR0/gsw9LtgsU9zxf6yf
diPKC11U72tReaYZrZ/6+bRxxy1MuQJwvWNHqysMxesiz8ohDx3Ch282oKR0
Fq3kobv0U61Hzkk7Ck0B9LQMYiw2pdGO44d9KL7gR82Hbtw4X4muaj/6+gb/
LfHpyosVUB5OJPQJVmscFxsUzczK9CTGb99CzO9PeDoVURc93dWiPjkxKZl2
R9MgSi42oy8YQMITKZgJ1ENpqYLS5oH8xjRW3YGovQOhgjCFTQBmUzPpvBoj
A32Jj6/D7GAcDytKMF/twGxlNSYd5HXFDejObcTNT+pRZarBVYpq1kW8rj6q
NiBrMBMkX8m3YCDbirsXbFThbXCbrBRqFvi9IfXb0W/HP2v+/w/whf8BkSi6
yg==\
\>"]], ",", 
   Graphics3DBox[{
     {RGBColor[1, 
       NCache[
        Rational[1, 3], 0.3333333333333333], 
       NCache[
        Rational[1, 3], 0.3333333333333333]], Opacity[0.5], 
      SphereBox[{-0.4749559673794032, 0.6475095899295205, 1.125}, 1.125]}, 
     {RGBColor[1, 
       NCache[
        Rational[1, 3], 0.3333333333333333], 
       NCache[
        Rational[1, 3], 0.3333333333333333]], Opacity[0.5], 
      SphereBox[{-0.4749559673794032, 0.6475095899295205, -1.125}, 1.125]}, 
     {Opacity[0.5], 
      SphereBox[{2.7124546677866803`, -1.53258976974259*^-17, 
       1.658267410852189*^-16}, 0.2572]}, 
     {Opacity[0.5], SphereBox[{0., 0., 0.}, 0.1786]}, 
     {Opacity[0.5], 
      SphereBox[{-0.5425567607285234, -1.7229696357207596`, 0.}, 0.5241]}, 
     Text3DBox["6", {2.7124546677866803`, -1.53258976974259*^-17, 
      1.658267410852189*^-16}, {1, 0}], Text3DBox["30", {0., 0., 0.}, {1, 0}],
      Text3DBox["55", {-0.5425567607285234, -1.7229696357207596`, 0.}, {1, 
      0}], TubeBox[{{2.7124546677866803`, -1.53258976974259*^-17, 
      1.658267410852189*^-16}, {0., 0., 0.}}, 0.02], 
     TubeBox[{{2.7124546677866803`, -1.53258976974259*^-17, 
      1.658267410852189*^-16}, {-0.5425567607285234, -1.7229696357207596`, 
      0.}}, 0.02], 
     TubeBox[{{0., 0., 0.}, {-0.5425567607285234, -1.7229696357207596`, 0.}}, 
      0.02]},
    AspectRatio->Automatic,
    Axes->Automatic,
    AxesLabel->{
      FormBox["xl", TraditionalForm], 
      FormBox["yl", TraditionalForm], 
      FormBox["zl", TraditionalForm]},
    Boxed->False,
    PlotRange->Automatic,
    SphericalRegion->True,
    ImageCache->GraphicsData["CompressedBitmap", "\<\
eJztWntsW9d5/1UPP1I/m6TJsDQ10KZN1ge2oSvaDeiyrYvbZe2atnE3YMMQ
uNlSFEsTWy6CAe7mDQj0wNY66TpKtmXHlizZsi2JkkhKFKknRVEU9SIlkSL1
tMQ39bAetmyJd9+59xzqkr5SnD+2v3aBT/fyPn7ne/y+7zvnXn3ntbw3Xv+n
1/J+cvy1I0dPvPbWGz85fvLISz87QaeyPwaggaT4CNixRIf8TwMkSWIX/7d3
v2C7bDbmV5QTZ+SdfEY+YvJ7H3rpX9guSwXzrxr3/v6HwjykTbqyr7NdDrv8
Quro08qlf8gAZdsz/Ny9e/eQSCTkXx/XuI9D/KOGXk/Lf3fJEG1tbSgoKMDR
o0dx7NgxrKys5KTUyNF4+FkF9w2NS0/Kf/fKuOXl5TLeO++8g9raWhw/fhxO
p1Pe0xjYp/H8p7aH/kSGygyaqWwwGBhclnw5Rx71zTfflB+lSzsM8jp/Qn2J
tsPywW7Ncebm5mRzFK/kYmlpCf39/fJ5dh873qMNy4PxxylCkVIiUMovcZN8
9aDK2kgkIgeIbWw/PT2dzc1ifhSD5PJzTCnh4z0pwCPKaC9q8CRLw0dfUnlB
HUhh7dmzZ1MBZPcwlzMP/Y6C+idcIzWkGG5vKhmOaISUbWwg0v4Av0z2pkWB
e/qFj2bRHo1zz/Ar23BKdiVZdpA7g/1Ue1zt6ecfim9uWnzF8WMaavyWytki
2EwN5mSB/zR/jqmm0+nkX59XUP/8Ea19SiM52TAspsIscfwUZzELhSgMdI2P
+M2UlVrmPLFDBokseVZF1jNnzshjfk4B/54G5OFtmMLMSCV/OvXFCOx2do79
ek4Z4a9S6h/mPBVeZzRmJjPKZTF0Uf9End1iTU6Kl2wjmzj432+jKoMnvT6v
Kh2CYsIBn1UQ/vYRWEnHX9AwcF8qt5Qg4OspU5/NiIoWyb6sskxUHLp3v0ZE
Hlfwv6Zd7X6bU435VV0+GHAm1b68TTFl13ZuRDvr8PQONGQ6sXNfzfAhGzOz
lX74SE/uXMfU7BTGf4UjiUfYRop99LE/oUpqdVjVZBFJ93WVp0U7E57WSuSd
Rz6kslodY7YnTbJVVrO2z379ET/n9Xo1WtSTmZQ9kGFbZiKIGsyOX9R26P4U
mKIuXtqBFaKxfZNbxs6pr3E/HtBwlZIiSgbLV55ReUdd0xmGx+P5S42KtV/D
zwJur4L/3LbdY49mqxYMoACIEVXOwZZ3sjWAlR6iTJe2zcFP7uBPUde+xw3L
8OO+Rxldy+LHdy6xxzR8+5g2h7efKGgOfEhFSHVQmWGstKmTTWjBQsI21rT3
pizOSh2p5oEK+LajH9AwW1Bqm4R7VeV55gau3MHtzf5sSrH9GtkniJOZfX+n
GltEPTeFtCt1pIQBv8tzZrskZBDMn+yuaK8Pid4xLPT5cC8U590xO/UMi3CO
dnSV7s4bzOMPNXnBjfhcHBO9fnToDHDqTBgqboLvvBmTF824faUJ4atNiF8z
YeGGEasd3bjvG8Nf8xFFQ+OOzd5RkS/wfM00Wz0BszS14qauAUZdE1p1FjiK
2zBY0oHR0k6MX7bhdoUN4apOJKo7saRvx0p9K+4arFg3NeF+oxEbTjuS83H8
iLuJGS0ikrWjds8/QmVUEJ6AVW/HNV0j9LoWNOs6YdPZ4TrXg+FLvfCXuzB9
vQ+h6j7E6/qwZHRhtcmJe809eGC1Y7O1E5ttrUi2NyPZZkByoOuYRkx3Vva5
jFxQl1dSOJfbwvSsJC/eJB0NOgd51IVZVwjhgbDCSmLk5sIyNqfDkGZCkLpd
kBwOSD02klb63YSkrR7Jxfh35dv3IUB8nCVhvFxw+XCHeMmuiACyfGcB3aHC
KOmHz/AE226SJJKJoSnEyoWHMoEZdE3XhQ49ZcbcMk9UMmd5GVKAtBkkAwba
IfWZsemof5mPGSGaW/VdqNXVo01nRD/RPFBqRrC8CfNVJixX1xO1FWOYSmwT
RmVtTTX4qk2bJ2ydz0xQ16ItDOVcJfGmkviieEe4KHurPFDwVu5Amh6FNNxJ
1pix4bXj27wCMzPEZtK1o7ukG6OXe3G7qg/z9S6smXuwQRSbrCrDsb/4VuYc
9wlVU9u+lu5L6dpBA95J018dSa1zezlxpcQcJG8HNodM2FiKf4vzh22Vulbc
0jnlY9cVH/y3xpFwBLE2MIcH3X4k+0awZKPktjWIERhBmIe3+p9q5qTVPzNc
m8OLPCOTmNrz1VOqklPXEBPQ/nYXGb7Efz2a4WIKKa0tIulrwYPwGI7yiIan
57jl/WjXzyDVFohIEltbjQ8gMtAnx6OqqipFPm7qbrbL0conxfw0U7P4mIzE
omkJc0Xnmx0ZQfLu4keyT/hGCrqxGRtXdc2XUKero5JdR8WwDlaSNpIOEhuJ
ncRB0kPSS+Ii6ScZIBkicZN4SIZJRkhGSbwkPpKx4gb4SwzwnzMicKER46VN
mLjYjMlLFkx+0IKpy62YvtKO6fIOzFztxExFF25X2jF7zYHZ6z2Yu9GLuZsu
BG/1IVg9gFDNIEK1boT1HoTrhhGuH0GkwYuIwYeIcQxRkx/RxgBiTROImScR
a55CzDKNuHUG8ZbbiLfOIt4WRKI9RBLG6NV+2UejVVOY71Iyc757nmQByehq
Dg+xw0TwoyOplYf6PSAvKxnvw7bou3PYt32MGM+4LjaqSof46fXoGDaDgyKu
WxmkevhTaLgyjvbqCNqqo2itiaGllspnbQKW2nk06xdg1i+isW4Jpro7MNQt
o6FuBR31XtTWraFafxc39fdwvXYdFTXrKLt1H6VV6+i0rmPBs4GFYZIRJptY
GGWSxII3SWMv+JiV82MS5v2KZGE+wLSeH5eQYDIhSxYSk+x0fEpCfDolWYjN
sD+3KRWis3QUmZNnAUEJYS5ZCIVY6QvS32BYwhyXWSYReuQ2+zMTlac39HeK
y2SUTk9EWZ6PxyQEuPhJxkh8JF6SUZIRuqvOMKwEKAdlhiRKB2nFHyGT7ksi
36z6aaoHDky6fakcVJe5w6rcf3gikMMreMbp9L67O+2y4IPoVod4obgX8mHD
Z5ELl4DRWusIEvaQ5z0DUczXWni1z8b44FjqPrF+HHV60VVxG4U/VZZcHicV
utBiNr8c9ixgqi+Bat0I+aGHpIl1N8HejNdLad7I7Dg7JkI2AoGAbDSDFK+8
7i/F8cBthDRGM4W1pa2esZUKwgeTCWLKgJ+6mYcXbRa8YZqMKEXwT7mvq2ny
3HMrjl/ldcNkug83cS85QpOR3k4FmsrlHcsowlRw/NdH4LropoLZhxs6m2w8
zU7EPEf9ekwUitxUhd+j9kV6jNUFYstT6WssrXXXJ7nXH/ho/uw2k6009YjP
iVdfiWWirq0Xd+0ObPF3lNRukWckL3K963RWXPq3XvzXaTcarJsYCIv+8nFs
JOJYb6RJVpMZq4Y2msLb5Ho9fKGTekQbTVDNNK9rkCdpws3qd+u7NEK/+5H7
oxY/nuJM3CQubDgbaK7VDMndAclDQYsE9/Eh3FNJDFCdCda0IUY8VwxvJzHi
G9xwU3EnyguHoHt3HO4BmkEui+a4B+sjPsTK6jF7sQG+kgZqgGQkzUI7yFBy
nkhw1vdV74hzP8TcXI0obrlAtk+8GkmSfcluss9JgXW1kdhJaIk8F4S0tPwY
d8NUbwgWyxz6++IItThQUVDB9PtDftlN6Ww570LV2VGUnA3BMyIhtCKJz3Fq
qmpVD6771qxNKyIZ53IyTHmarUQoRKS+zQSpi2oWTROlzi4kO2h11UoEtfbh
Li1m746FsOIN4c5ICPPuEKYa/egn5buKnbDouomoHbhOZC193wj/4BQ2aNWz
5vF+VWVr+wde/PuPG6ErWcAw9aC5VenTqjLNNvZSYwdbD2lcUpYPTyE5SUXX
0kBiwoPmZtw300LW1IEVgw2LdXbEqu0IVnVj6mo3fJfscJ/votV5J9opUxpJ
8Vu0jLDqu+XsY4gO6qMDfVHEayz8i2wuRlgBvjqD/J+2wli9Bg81yc+oJgcP
rdw1rTiYCoLygv4gNvxjWLfbsao34E5NIxZumRG7bkGowoLpy1b4S60YLrEQ
0ZvRRYXNQoXRTrpGSVdB60Cc2m2fUlS/xPUdcwbguBnDL/O6YOQF9HmuL5vN
CnoJffjLoq/xLnA/EseqewzLQ34sUb1eIPi4y48w8WGWFo6LNLyYpMcpPxOd
LtztcvAhcmk1b5GL169PD6K+eUMuXi/wa+qPcGI5pdQHfIdDOml2MltNdIwG
uZdzYSzuQFnhIJWFQKosfJFzLPNzGo+EMs3Gd7ndE/M0/QjdxyYtTZPTgWc5
sOW8E9fPjqD4V0GRiDzsW52Tu4u/dBJvIaOrEhbCywrj3V7xKZwxvu3SCDHe
iN/oEjLjZ1ekP+BPCWX5lwKO+X1u+vK6hF5nDNEaK//ykothArSVTxP5WmCo
XpXJJ16Ai7LOSMiD+Eqqu7EX5DSBmnYFZHKkdXJ/rw9BkjjJHj6Qz+mXWfOf
eTYYjcQamuR9g6vNElTUVFKfN84fyrt9aU0iRmRYsznk42oqznYdW3GYEC03
YrGqHndHfaI51xKtL51x4v3TAxhybKKfePJnXEH116jd6tEOP9Sa7V7l2PzL
ZgxfGaA1yRDWrP1IdnWTNFE/bMeVgkH897t+mTvhZYm/vs9Oexm5WxULlbO2
zHPbh+Vj/W8mMXbZg3mDF2MXe+G57ISzrAuO1gRCq9K3uc/Un03oWGm7+IG8
O5BWIMSxpzOgHC8uIxJ/gJB/k5Y4D9Dds4LemlFExiZfVqUxW39zbuaqXbT/
IRcNWf3KsXuYGvQEFlqnEaiZREepD1U6JyITE3iZu4R9VGF8YrIrk1Nbkzpy
15qpHg8sZiq1HVRi7Ri6YJNLaiX1ZeWNMf6GB3BpkBZu5XoE3r2I4WJlXduu
tG1xqyDTcjCGSL8Po5f0GCOZ+EBPxVCP2St6BMv0iJDECOpOsw333L5X1W49
iFEq+32legxe1GOYnvbS0wGSSUKYIYRZejpETzNl4lf1mK/QY7GiFvc8Xo7B
k/EwhhpssF+ohZPg+gluiOBGCMpHUAGSSYKbIbjZcg5JcDGCS5AsVNZixWrj
WIoDyZsTLi9az9eik2C7Cbal4AJMv3gvCzUn82lmV32yALdOFOAGyfW381Hx
Vj7sRRfgLa5AlFDjhDpPcpeUfUWN/DhMJTWwnKtFc/55NOTlw5BXACOJQZZC
OleIehL9yUIarFAepurtAlSSlP0sH96Sq4gSdKyyJh06B/a6TqYkGk/lo+lU
QTbMpwopTk2niuhUEUx5RTRSEepPFsno1ScKcfPtQlx7qwBXCbnu9HsIVdZk
6Buy9xFOPppPFcBCYv15IUkRrIRoIWkmMbMROHoDQz9RhBpCv8H0JvTyN/Mx
YOxI13cXGwyBc1cJqgAtshSi5edFWXRQRE4WI5jzOPpJrjsh3yK9rxNy1T+/
h7qShzzBnMOcNHGuAo4z72ejVfYEw5VR89So5HNC1BNiNelrePcCmik+FKc0
0D1yMBMEyoLLgjxRUgn3f5TKqlvzCrMItpCKu5kAG0mMBGo+/Wu05JfKFGJU
YpRi1HolncCMgIyIjJCMmIygIZK5coW4k1fqELiiEJoRmxGcEZ0RnhGfJcD3
09NrnZRl6cLShqVPlHN/rkxJr0meGyztWPqxNHQRHEtLnl6v8jyn3JVzOM6z
MVSm5DjLdZbzLPdnTDa5FlBNUMrD/8G//P3/Tuzwsf8BkhvvIg==\
\>"]], ",", 
   Graphics3DBox[{
     {RGBColor[1, 
       NCache[
        Rational[1, 3], 0.3333333333333333], 
       NCache[
        Rational[1, 3], 0.3333333333333333]], Opacity[0.5], 
      SphereBox[{-0.4821322604425936, 0.6421840261486699, 1.125}, 1.125]}, 
     {RGBColor[1, 
       NCache[
        Rational[1, 3], 0.3333333333333333], 
       NCache[
        Rational[1, 3], 0.3333333333333333]], Opacity[0.5], 
      SphereBox[{-0.4821322604425936, 0.6421840261486699, -1.125}, 1.125]}, 
     {Opacity[0.5], SphereBox[{2.7116000964863654`, 0., 0.}, 0.2572]}, 
     {Opacity[0.5], SphereBox[{0., 0., 0.}, 0.1786]}, 
     {Opacity[0.5], 
      SphereBox[{-0.5014002800089895, -1.7254059323944835`, 0.}, 0.5241]}, 
     Text3DBox["8", {2.7116000964863654`, 0., 0.}, {1, 0}], 
     Text3DBox["31", {0., 0., 0.}, {1, 0}], 
     Text3DBox["64", {-0.5014002800089895, -1.7254059323944835`, 0.}, {1, 0}],
      TubeBox[{{2.7116000964863654`, 0., 0.}, {0., 0., 0.}}, 0.02], 
     TubeBox[{{2.7116000964863654`, 0., 
      0.}, {-0.5014002800089895, -1.7254059323944835`, 0.}}, 0.02], 
     TubeBox[{{0., 0., 0.}, {-0.5014002800089895, -1.7254059323944835`, 0.}}, 
      0.02]},
    AspectRatio->Automatic,
    Axes->Automatic,
    AxesLabel->{
      FormBox["xl", TraditionalForm], 
      FormBox["yl", TraditionalForm], 
      FormBox["zl", TraditionalForm]},
    Boxed->False,
    PlotRange->Automatic,
    SphericalRegion->True,
    ImageCache->GraphicsData["CompressedBitmap", "\<\
eJztWntsW9d5/1VPO3Fsp+4zWdKsa7Z0K7qt2Ia1xbYEzeJuXbBmS4wN2DAE
xtAkwPJw7CFbkCJOt1Sy0HSJC5SyZVuOLVuWLFukJOpBinpSlERK1FsUqbdE
kZRI2XpasiXdfd+955BXNEW7A7a/RuAc3nuOzu97f985h3r+5aOv/PO/vHz0
1cMvP3HwyMtvvvLq4befeO6NIzSU+hkAFdRynwA/K/QougooisKT/9tf7/NX
KtP8ljbwE/VLHVGfuP3uPaeO81eKDuaDBH/7e/eEuYub7cz+iL/SePqp6NPj
2tQrcaD8eUSMra2tIRKJqG97EvydgHg1AV9fVPt0hEIhZGdn4/XXX1fn3W43
jUoe0hKsfEwDfS3B1AG1363y1dDQgEOHDuHgwYMq6OHDh+H3+9Xv5eVlPJRg
/a/tDL1f7TPugjabzQyXok6noaCgAB9//LG6lKaSEPmRWKGfos8+9WFXlA7r
RtLRsZ8q1LewsBCdYpZY0t2JkfX2VB1qrxCJTcB8S5EmJiaYxAOCdyYhlbY7
uvgrGtqfRQeQGjW79kafb6pDmQmVxhyz0aXf8N+wsEzqtzWopxO4VEoCje6K
OvdXEliJP++88w7zLyVmCfW8CM19XaPyjNCtnoQk/2AC8o8mMRkrjWdJ0n1C
GaxPoWJ1hN+PHz+uvj/1qwm+O8HYl3UqkFZl8VmvZOkviSXMHA/x22/dZcv0
bbZMJvwXdgg5vfBGo1F9/qJwTKvVqv6NULsg/+f3KeCBJE4lQ+AxQYmp6vT7
mxqlZ6OCJpJIH+kyO/GHlUl2k3bQm+1xMcbsSKU+qdH6YZTWfh3fesMwv6wh
fpb5TibVWL5Iizotf4iQwP+n5B6fKgClKbj9ui53SAXxMn7+mob6D3EuHW9V
XkIu/TtxckfzqqpRzVD4dlQDj+s0IDUrUeXybwpppZZEIt2bwFCf1fD/OHG6
ezRJLZDa4PEY0buzKc8lL0bJefhSEleVJv8jgerxeKJKiK+l96b0+V/dDf5A
Zzyh5f8B4QPCU/R1nImyt0rHamlp+fYOGmZrJArC5ER3Ksb8Te9SWkmM376r
G7u7mn0u3lX33kdak/HztM5ldcrcFweG55LUCakPCvzvCeFYNXKan4W69ifQ
lqZBLXjVmccEhiztcnfFz8Ty98W03h10itmXQOsSOVMj9WQCLr58H0nD6XT+
lc7v+E8MBgNiukpNAJyh0XwsaSR+4T7Kwg+FYDwm0ymN770f6okkPhDnh7JU
iKjTlwq55IUE5WNPYi9PVPGTMPOwTv36+sKC6sLtUJz62eYPRhWQEn3S7ec0
xe5IeG+cFpJEI5lffXtJZwjWgODt4Z0l/lqUsYcShKbOt7eF5j8m0HZGFCkz
+rRLI6Kdo/YnLFCsRiZRWliCaZcXQZcPc9TmO3y46fZhqduH5V4vbofCfy+o
8nKp4vRkmUwUoM/fZTv+MCOz/jC8RMxqqITdUI0OgxV9p2rhPWvD+Hkb/AU2
hK7UInLVioXrNVgyVmKtpRUbXi8OCcqy8DE+6S0tKUNaZX/knts6c5EN1w1V
qDbUotHQgPbcZvTk2eHJd2C0oBXTRa0IXXNg3ujAYrkdK5VNWKtuwG1LLe5Y
q6mZsTXmPaSzkyy8qUkZfCpJuMujRYpIDCHSXqHBjCJisszQhFqDAy2Gdrjz
OjDwaSf8tT4s9AewPBjA6lAAK+0+rFo7sV7nwkZDO7aaHNhqboLSXEff1dhq
LMfWjfCLgkFJWmTPlKR8P6kLFr2LsXcSQIaYLiRDXzHU4xqxWmlwYdwVwMLM
0m4R48pUEMp0AIrTBcXVSo24a7dCaSV1LoSfV//sAcyT4FOuIYSozXcMYbFz
SJ2RFmRXIIUl5/g3dPGmPybqN1I8Htu/pqGPfLWQ2L9iaIPHFdgnI3lpEcqo
B0qPHUqXDVsuMzYXwn+pTj9Eq4bImcpRR7bqzK2G70wN/BdrECmqxOK1ctwZ
0thnvfGHqccSlpY88EQSx2CW+XQu64e+/slsW0ihZTMNiLEdio08YivhGSiD
LVD6anHbVf59kT80hyuD/DhyHejPd2KyqAORMhdWatqxUdeMsaKLePHZZ1T+
mC/hQZ/T1bsd8ipJI6vGzPg0Mdy7vWokPr3KJcoqFSSvHVt9NdhYDB9Uh/cQ
ikP9sxKKDUtuj/rsLRlGoHIUC/UjuOPwYatjAAvNjVi2V0qNCS/SVUQtn+5Y
UWOVJjWm4NgWUl+4ZDKnZ8l8V6ObFLywU5XUiEaFTVWF3fI2YCPkw0GhHDYy
fxpMExhz31Cf02Wd47PXSDdC3d2q6ouLi9V5dh4hnlo40pJSj4knDcJY+g8b
fL+QyT84iK3VGzvZUP8tg7Uprwpj57X0P/5pXQp19SmYuNBA3cXGFEwWNPH1
WnEFAleMmLxkx9Rlbi2EMFXoIH1PXaH8rLY2ytPc2uEv5uaE/6ozhToXiTpT
0kGtEzPXuLkxc92NwPUuBEq7CCpQ2k2dsYekDhh7ETRpLQXBsj7iMljWj2B5
P0LlAwhVDKRQN0id2UNzIfMQZiu5eTFb5U2hzkcws9U+asOYqxkmmLmaEeos
o8TInGUMc1Zu4whzq+U2gbBtgv4wbJtMRbhuip7qp+mvI/V+RBpkm0GkcQZn
/60WDR/1Qm5wIk1BRJpDWJ9aEl6YibYqL0J0FtOfVOSBQZxK4q66Yu6c3CV2
XCaKs/yQ78uN0HrIiy1/VwwxdftOjVa2t25ieEjByCUHbROIhZDazfCCIPXj
lPOD2ltAyUAgwI8z1M8EtZbCfTr8QZ7whxRMi5bKfSqmQkRwapZAJ7mb4G6c
u7FZmhhVuzl6HeFueI5W+OZozMtPQ9x55ji6B6m/kudSJTz5oROXr99Rn/tn
FcyvKTJP2EyTFJ1OjNFWSo7pE8zDugi8u2SliZQZN7w9rjK3TUvNyxrxsIi9
WzNebAxaoMz0R2HS4tIaFTrS7NDMJu6MU67yj2YKjjk/jXRr1epZQbTX6UFD
/iB+crheBeuzRzAze0sX1BkI9t8kg0VQahgkLbjUPEVVUdpafwUU3S4jM87h
tAKV1OFSMTw8rIrMO/IDAv52N+nYU087i4Gk+VsKP7ui4ObsMjbbW7HU5UmP
mrCXmB5W354Rwg+Q8PaCCWS9VofKkhX0jZNn1reoGxctGndhyTaoZobhq4Po
zO+DzeBW9z+FBgtXU/2VtzxOysDMiGbbTL1Otls6PpvGB2W0NMWNyZ8qbnto
G9hdDWWgEcokqWhlMVpknCSPr4c2A6PeqIpD/kXSRb9qxKcFxpBzGG1XZ/Hz
I3ZUmdfRNy3VuQd3wmGsV5fT3thC++QG2jPb1Uw9eNaONkMjqgjnCm2NbKYW
3mFIdcuLcz5HJ3KFjPuuWYn8RV4nb5HwSmcNlO4G2r7R88gQb+f2SMddUBBp
dWOluY14bCWZ64jP1j8RYhuJ9fzjTvzi3S6YazfRHRC39tSvDwxhrqAc/vwK
+E5VoNNQgXraBdpJTPJ9Gem8A+JdgTgqZtxD0vQEhoxJr4r2iIiUzZthKP0k
UlsVbajrqDVTa6MNdQdttAPYmgwKxe7C4swSpjuDcJu8yDs5iLq2G3Abm1GY
c4lt8h0hr5nMdSGrG7/8Tx96O2nHuiTvcbefRdN3liK2hUpklrixWGJ6VLjs
VjcFV2MFnV0s1OrpzNKMjXoH1m3tWLW4sFhFW9HyTgRL3ZgsdmP4UidtUTvQ
cdpJJ8xWOmnayWq8g7cg75NyeHomselqx0qPR1xZpsOa146i/+pH7s/96OtX
EFxWxC8wqdEbq9jZN6GUiW6ztPvpz2JrPkwkHbhjqcTtmhqsVdVixVyPxbJG
zJc2I3TVjulCO0Yv0HnzbDO6TzVRnDSQ89jozGShbayZHMgr3b2t7w4Guujc
ND6M3xc8aDm5Hx8crkSuIYJ+nwL/ivJV4S6cJHXXE4lOAkKO2AWW9hvDQ3RY
8WK1uRULJWZEiqsQKuTDjAXj5yzwnragN7cGTjrKN9FJr8PUiiGXF9Kpp28q
CLd1YbWlHd8Qyu7nDHpxHD99jaQrWUY/ZZynZKahnbNMhTH/Fpca3xUAa4Ew
brr5IOjFHBFbokOKTF+dBLY+6YcSmBC/BnGq8qmp6qMjzaikVNXrV/B1Maf/
AU0eXDQsPC90N72oYC60ii23C6t9nq9GM4EF+e87cfJdNyqsm+iiTPANoUmZ
2aVuxU2FuN38a8Hr0rqCro4QlIlR8YuCPt686HVr8fYtXdGUF3PRnzWj93AT
8wpm23uw1uYUuS4dltOUxFS/nlb9OkB+/Ye66sOIfPmx7R4Z+FsB2TqsYI3y
hhKcjN4QsqPVU0374LAZv4w52nd0OZxvLHgDItD+JlrSeOsWuoWtrg6sDXii
qTpC9pumE/MctV3bnGQMH5KTmMlJ+iYU/KnQA59j5GUocS28Q7uJe1DFXFhT
4Gyfo6Q3ob5fpSNsMwXREB01ghcrcbOoHEt1LZCV2OP0orU4hJ/pPOR7QiL9
zxmZelL7t4XPcFhLYuU/LkF3vhv+0m6sWLuwSXVkq8WK4v+4jHPvt+OTdztR
ZtlAV1B5TlCQGyGWKVNnAd225QH02LXd3ac5Y+gr8CFMR4z+063ozmtD+7kG
WM73sbP8hdCR/uewaJHBiyKk9Yxz620aVMfmvRGM+u9gMrSm+kuHawWDtSPo
LjXhBwJZ//M2UUnXq2TPNuTg6Kz23teHzY4RLDROYLRsHI58H6U0N8b6x36g
U7K8m8yId5vYUYHUs1Fbg5WqJoRKHBg414JaNbWb1ZsKTTz8nShxtwJzWKC9
a6jAhNGfnoMnt4wqAnmCtu14Sa+TPViamcMsZZXBfBN852kFtYlPTZi+YMLM
RRNC1MKEtGi1Y6136CV9qOyDx2xH51kTes6ZqPqYMESrh2n1GLVJQpim1QFa
PUstfMmE+csm3LxsxHqfR2BoAtOuvbfCDscZI5wE5ya4XoIbILghghomqDFq
kwTnL9AgQwQ3R3ARajcKjVi22QWWyA0ZGO2goM0zwk6wbQRbl30GVT/+JAWl
b2dRyFx/OxvXjmTjKrWit7JwmZoj5wwp7DJmCTVMqPPUbhGzL+iR01B1qhS1
hGzNykPF0awUmI9mc3eCYCuoL3/7BEzUSqkxieK3slH4ZhbM752E59QlzBLs
XGFpPKyjvJkZRPWxLNQcy06F5dgJslHNsRwaykHV0RyikUPoORr6kRO4+tYJ
XHkzGwVvZKHsvY8RKCzdBpqOcWM14WTBeiwbtYRn+9cT5Fu1hPcgjeXAQojV
1CqpVTDykRxcV5GJ5zeycfH1LEzYO7fzmsGE0PNRHmwEW0etnqDrj+Wk0Asj
26jXo5sJuZyQjYR8jZCLiOfif/8EjrLmeC2wYlhBo6cvo+34yVQVeo+Ky6i1
R3U8kxYqCNH0loZq/vAMrKeNqDy1XQuZqhEjBMpGZeOOnipE78/OqqynwEY2
ewBW6i2EWE3NTKiW936BuqyzaCXfaSYfqiNk8qkXtjsuOx47IDsiOyQ7Jjvo
dIHmsGMXytSYYEdmh+7J1xycHZ0dvqci6rgyrDg8OEw4XDhsZoXPczhxWHF4
cbB6zmth101wHWeNtLONhpWsCxSzauxyDHMsBy5qsc0xzrHupeUTVXaEKAeI
4P4/+xe7//8CPvPfWnN4zA==\
\>"]], ",", 
   Graphics3DBox[{
     {RGBColor[1, 
       NCache[
        Rational[1, 3], 0.3333333333333333], 
       NCache[
        Rational[1, 3], 0.3333333333333333]], Opacity[0.5], 
      SphereBox[{-0.4782286933194072, 0.6450962384683488, 1.125}, 1.125]}, 
     {RGBColor[1, 
       NCache[
        Rational[1, 3], 0.3333333333333333], 
       NCache[
        Rational[1, 3], 0.3333333333333333]], Opacity[0.5], 
      SphereBox[{-0.4782286933194072, 0.6450962384683488, -1.125}, 1.125]}, 
     {Opacity[0.5], 
      SphereBox[{2.7108539369266227`, -8.951686881479082*^-17, 
       6.567101218706653*^-17}, 0.2572]}, 
     {Opacity[0.5], SphereBox[{0., 0., 0.}, 0.1786]}, 
     {Opacity[0.5], 
      SphereBox[{-0.5235349130837881, -1.72329056008785, 
       1.1102230246251565`*^-16}, 0.5241]}, 
     Text3DBox["9", {2.7108539369266227`, -8.951686881479082*^-17, 
      6.567101218706653*^-17}, {1, 0}], Text3DBox["32", {0., 0., 0.}, {1, 0}],
      Text3DBox["65", {-0.5235349130837881, -1.72329056008785, 
      1.1102230246251565`*^-16}, {1, 0}], 
     TubeBox[{{2.7108539369266227`, -8.951686881479082*^-17, 
      6.567101218706653*^-17}, {0., 0., 0.}}, 0.02], 
     TubeBox[{{2.7108539369266227`, -8.951686881479082*^-17, 
      6.567101218706653*^-17}, {-0.5235349130837881, -1.72329056008785, 
      1.1102230246251565`*^-16}}, 0.02], 
     TubeBox[{{0., 0., 0.}, {-0.5235349130837881, -1.72329056008785, 
      1.1102230246251565`*^-16}}, 0.02]},
    AspectRatio->Automatic,
    Axes->Automatic,
    AxesLabel->{
      FormBox["xl", TraditionalForm], 
      FormBox["yl", TraditionalForm], 
      FormBox["zl", TraditionalForm]},
    Boxed->False,
    PlotRange->Automatic,
    SphericalRegion->True,
    ImageCache->GraphicsData["CompressedBitmap", "\<\
eJztWmtwG9d1/sKX3rJkO7YbJ7bbxo3dZjJpM+20zbRNW9dK66aNm1rtTNvp
aDRN5R91ZD1aOzNJK3fiiFLSGTuxA1ISaVOiRJF6kOCbAN8ACBIEQRIgCYAv
AXyAJABSJCXrQYroObv3LhfQElJ+pL+6M2d3ee/ec8859zuPe8Fv7Dty4F/+
bd+R1/fve27PoX0HD7y+//BzL3/nEDVlfgpANVHec+D3BL2KWzUSiQR3/qIf
/8mPTJ7zK2rDO8pDaVHemL78wK7/4keGjs0xg29/84Fs7pMmWdhv8yOLu1/U
3p5Ru/41hSlfT4u227dvIx6PK39tN/hOsDhgINeTyj1HYTE7O4vc3Fzs2bMH
e/fuRSgUytbEyDIY/DmV7+sGXY8r9y0K3+LiYoUf8/V4PNi/fz+mpqaU540b
N7DDYPxnN2a9Wydya2urxrqmpobZZSjdWcqs7733njKUutJM8m0xQt9F1y7l
ZZPhPFJ81SrZWFxc1Nr5O1ZzizFb/XoqgNppsATMg5+0BNuE4DyFtNgWbfCz
Krc/0hroS7ns6l90fWkDTVhKlviNN97QcMPf8N8mkwm/rrL6mgGkMgzMuVkD
97MGS8TXW2+9xfJLjUm7JKsKy72ozvLHwrb6KeT02wymf1oIsQEuFAOSZo8I
Y/Cf3CyH6+37ws+n+BaDtl8SOsoVZZuy+mKKp8QQFo6b+K8v3LeW2UlrmU75
J3T+lrrEUkv5/qQAZkFBgebr1Cem/7OHVPCxNO4hXeAZHXaPHTumzP5r6jQv
aVoaqbMrBUBsQb7YqTUfT+Yr5+LPpUWfV+f6pjaX9GleFRmWeFUYiRUVFcq7
jHQyoq5HiiwNsXyRgoL/P6eH+xd0QUICUUr9eZXDPz4Edmm5fsNAxx2a16kr
gt/TtH0mZYlkcJegY85fEprxN9LK1L/TYFEeVfn/rnFce9og4kvTSgSOjIzo
JlUtIoMQf8996VNOehmeSoNJlonl+R3B1e/3a0ZITZoPnunT6Zc8UzDUB5iv
6CzNQ4Slf/65H9VZWp+zWUu2NluV5XE4HCoYDBIUf2fkeOln1rulfo35SSpJ
rXkyl8ul/PVVXdv96evxVMju3CCOSUeQkZrfv2Zs0EdSmOHlNKiQ6e8loRm3
6ftEJNtlYCrVfKoHKz2f1VlHH/aFdf7SwBKPGNhZstuk8n9+w+Ryf7iQEV4s
gJxRZxysWyfTgHGOOufn0vrgEw+I/CzBN4ViKXbc+TCzG2n82Ab+xjZOSQhy
yKsG9t5ujGujpJ5GmN3C/Km5Xe98pOxenfm5iYXYphkgQ3vTlWyqYTeceKeB
FWQG38D/XtMtBFtAyLZ7Y40/rwm2w8AZJY5SnfGfdHPL5JajcdqkvW1WJ/my
0McoNfFQji4+nw/T3UHMEsWIFnqCWPQEsdwX/AcxmxzGps1OF7NEynn8vszP
I7ktOhXDSPcwWky1cJrq0ZtnweBpK0YLrAgXWRE5b0X0ogXzl+qxeKUWt2xO
rASCfycmlVlOmDcrrSxqGv9M2iDX2NCCutJmVJIsjaZGOEyt6Mlvx8AZO4Y/
diB03oHpUgeiVxxYMNuwXN2OT2pbcKe+CXcbGrBiqcFqdwfW5mN7DZYmM62A
LzxExFR95tPw0cqUkNEum5pQZ7KhzdSBrrwu9Bd0I3CuB+MXKb9f8WDO7MFC
jQfL9W7csnbjblMXVls7cK/NhrX2FqIGrLXRRjgUEKDN1OblRUov8fMpniGB
wfqS1NlCIVXYBpSZ2mA2OWE1uRHujmBpelkgczPWwjNITESQ6OpGwtVJZKP3
JiSctVjzOf5K+WwrgSWASaI5ogV3AEs9AaVHLiCDjCTJSCv2r+o8zKho4iXj
di7VJaZKCBElZOhWs59QuyRjQmJ5CYlRPxL9HUj0tiDhrsPqoOMVpXsHmswO
lJuqCN818OTVY6TAguniBsyX1WH5ahVhWRWffYEvnn09RKnhAs+lwUVy+bw5
qfRh8nWPkNjt9JxKjoFKENqqfEPLdIO0GHIi4SNEeGpxbzGGryt9uzBLLiqv
OlpAZ54Tgx93I1zmRrzSjU8shKgWO66VncPev/i6IhmfAIjg/7gut20QQ7Vy
LAuWyw6acDFdhki3FUxMDpAe5IrBDiH/dlqCDrJAM3mKSxnjLgpg+MoIYp1T
WGodw4pzGGs9g1i0t+GGvUay5/VnA6+nQRWqG6bRFNPKBZHZii/myRiTEZyy
hVS8oaT1QanRqG2rVHzKi7u+OuWvPaKthOJXickDlR/kvpaSAm+xRnsx29ur
rEdZWZkGPqGqkjmyjCRR1U9SNUOgSIJYXqzuLqHfpMf5cPo9qrXVmyopUlSi
iaiFqJWonchO1EHkJOok6iJyEYXP/wxuevYQ9ZoqM9BHL5vQT3cvkU/QANEg
0RBRBvx0fxEBugfzqhDMr8Zwfg2GT9Vi5HQdRs7UUypqwBi57VihFeMfNWL8
4yZcK2omakHobCtC59oQLrbR9HaELzgwUdJB5MTkxU5MlnZhssyFqUvdmLrs
xvTlHkxTVJ6+2otIeR8iFf1EXsyYiSp9RAOYqRrEbPUQZmv8RAHM1gYxVzdM
ss7VjxCeow2jiFrGELWOE11DtDGEGFNTGLHmCaJJxFqIWqcQb53OQLwtQjgc
Ku5B4XdbFOvO26OYd0TV94447s3czBLY6KyjzD80lLRzkWWc2KWknHWt4z49
XjYcRujgClpeFM1kmXTLb0Hi1vV1jpmaB4qyKdD3Cfrtq5gnIy4M3SNay8CC
n28B+nAhyAPn6T4/nMCk3c9/jVDH/ChBNz7Gt3H6M36N3mIheouF6RZVbhMs
2Rzd5yY1yqToRH2z03SbmWbQz0QSiOhoOsJInp6hT6dm6KvJWbpNzLIcE3MJ
hAVlIDRHHdfm6LvxOZ5pjO5j0QRGVcrASJSbh+keFBTgZn+U3X6I7oM0otk1
iaryIcUkPz3hQ3HVPeW9j/rm7yRkoGoyhygWdGLcG9CClz7C7da5/f1pM0sE
75TmZGfelNQtV1Tmqd0iRtzspwkn+5LYGO12JIxiywksOCjL2DtFqZCJ0b6A
9t1LYu4Blx/2c+P44YEmhY+vM05Wv4V1+XIw47uOaz1xXDUNkjFcRBbObhKE
KadMSSZJTTdp8ZypnLiw5szyUQnmAJWFg1bS3qdL8ZnJbySGlxDnm1jD3TBl
7JmJbDGcs2IJFXv8158IpQOuIJxlM/jxQRvqqm7TsARNQbVTt02Vh0y23DSE
mWo/hsuG4C70UVXbQ6nQodRjVJ1kinXRn5JJf8/RIvwmvS2SF1rv5+uWSt5b
Ge23nhATr1KpseohUAw0I+GnIurmkrZfnFriyugWlSV9WB32ZySZwkY1zag4
jchGBa1l4fc78ZO3e1BrXUV/JCEm3IbVeIwK9CrctVhws6YV8XI1Ug9SUe+k
Ar+Wxl40VSvFWo6YQx7IM3aNIJDz0HnSCCdPCR4rgw6qPWqR6CPlvQ4kxvxc
UW4Xdl68nUBX1zxuNrShherOEpNdghZ/IBSvJgXO/rAXP3vHD697De6ZhFZT
3xkMIFpchcnCaiW1uUnJZqpGbWausmLS27ke44pN7KJyHqButsFqrptA0e8z
QoB7A6RTJ+nnaiRQthNRFeCiAn+SCv2JmS2Cd9gdgcscxNXqCYR7x1Hyg/Nc
tn1VqGg55UTJ//iQ96MwfN4EZm7Io+HkY4bsjQVfL92MliOlLStFjyexRruj
tXbaJdkakLDTWtnaadfUgZWWLtxp6sZNSw8W6zxYdAxjeTCCa6W9tAvz0G7M
ja58F5UuTkKZDZeoDuWNRFVZB+K2btxoc4qT0Rx4KYK1FHpxbF818j+MYSBA
yeRm4lmhlDzmWd9zGypqdGT2y1KL8SBWrTVYsdbTZrURt+payB/asVhpJ59w
IHLJQX7RgZEiBwZO29GTZ1M2wFYKO5UULthHeCvH3LwhojBFqdAkEpGw+BE2
R4nDtrNjePdAI2pKlzEwnkBoee1XdIn+vg27oSLrJ2bqJnMnVoNB3HY4sVxe
i+uX6xErs2DmghUTZ60YLWzEUL6V6j6Lco7A5wldZieGuoPygGJSBJO1/l6s
BP1fFODyuwJwlkbwo4PtqOUYSon+BRloqKCV4FoHtzhL+X0h7Y3+IJZ61XOS
uFs9N5nuDmo/ILIPU421XNsq+GbTjrBBCVbvv92NGssq+ihYvSj69L/OyW2U
Gg/wDcFykKqJsGeUwqVPbGWzUWVqQdG7vfjwv4eUMOCaXsMXhYSpv7kJ44uT
1L8WXKNkn1hbN5aaO8RPGNloOOXABfI8E3ueT/W830pJl8JA6k5EO4H0jq2h
L7SGO6EJJKZDMuAxyJsL+nDpgyDyPojCF1RA/ttiFEsqfxQivoLn34jeiUWS
YIZWsK8Hd/z+x4SQPgVyI/jBAStBbgm+8fXzbxnGOcRt0XGTkbmzdQ7Xq1qS
onWwO4ApohjRZg0lfnSUTuPkwTYNJX8oxOLfbHWHsAIer4nkw9cAxeRQz4jy
LrfTDkJokLYYs8WE5rIqUkhWZoyPergqFvDe2y5UC3z8qdBI/gjFC7pJP9Wu
JC/i1eSr4j/K4C3qVXYanzT24h7VUWsOC/lzM+HFgw/eGVTwMruceFnMoD9v
FDN8K6VK2Qqvw4vSD3uUD4eKA4jTLsV/pgv9H7ngKrKjsynOaPlzYSNZWggb
CR//W+WxI0lwJl97EM1FXqV9YnYFzp5VuDpX0OW6CXdFAO5Ll/CK4Cz318Im
2XqTbE/Kxn2NlFy9NuV9lUqH660hjFaMw14YoMDsxvjA6CvCBPwrFYcqppxU
2Og2IZuw0kg1RW07IhTRfQV2WJQIX43rtMdW1cPfi2R4KxLFIpWus8VmjL5b
iKE8dT/bpmbj1/Q22Y7l6SjmPAEMfWRGkGjsYzNCRWZMnjVj+pwZs0RR4rRk
teO2N/CabqEodvprKHwXmNFXaMYAjfbT6BEaPU4UJg6TNDpCo1mW2Hkz5i+Y
cf1CBW77/IKH8Lrd8Fbb0XGmAi5i5yF2XmI3SOwCRYIlsQsTu6liwZLYRYld
nGihpAI3muyCl/htIAdjbkp1pytgJ7ZOYtucewZ1338/A+WHj5PLXD2ciyuH
cnGJqPTN47hA1HHyDPx5FzBHXGPEdZ7oFgn7qp7zY6jLL0fjqQpYj59G9ZHj
qDmSi1qiGoVOUNsJVB0+ATNRORFPU/ZmLkqIzn3nOPz55zFHrKMl5cmss9BR
ZWMhUX/0OBqO5mbCcvQErVPD0ZPUdBJ1R07SDCeJ+0mF+9VDJ3D5zRO4eDAX
xcS58nvvI1JSnsQ0G9cq6onPcViP5qKR+DX++wnCVyPx20ZtJ6mPuBPXWqJq
5nzoJMqJ8yWWmTm/cRy9BL8UtjQRRk5REUVsmxVits0K2ya68wSWI4L1YSE0
sb1CApcS27Lvvo/K/PtMwFZh64yduoDOYz/JRItiAuarcD2i50rGJo7mN5kr
Gf/dM7DSwtTmJ5tgk7KKcWLKq8qrO5ZfAu+PCxS5M9BEC7YVVrpbiGM9US1x
tXzvp2g+XqCAx0YgYjARqF5NRi4jjxHISGREMjIZoYxURuz42UoFwYxkRnT/
RyrCGemM+P5qDbnSr+6QsOwn7C/sN3MC9FPnVL8aF07B/sZ+x/7nLqjAEPnj
t5ITAzmt4ryxYtWZI+dU52YnZ2dnpw/X2THrkSfz/wf/t/f/D/nAp/4XimS7
Fw==\
\>"]], ",", 
   Graphics3DBox[{
     {RGBColor[1, 
       NCache[
        Rational[1, 3], 0.3333333333333333], 
       NCache[
        Rational[1, 3], 0.3333333333333333]], Opacity[0.5], 
      SphereBox[{0.43083345744337825`, 0.6776683347681115, 1.125}, 1.125]}, 
     {RGBColor[1, 
       NCache[
        Rational[1, 3], 0.3333333333333333], 
       NCache[
        Rational[1, 3], 0.3333333333333333]], Opacity[0.5], 
      SphereBox[{0.43083345744337825`, 0.6776683347681115, -1.125}, 1.125]}, 
     {Opacity[0.5], 
      SphereBox[{-2.6994370463488897`, 
       2.96032236993778*^-17, -1.0700280739626838`*^-16}, 0.2572]}, 
     {Opacity[0.5], SphereBox[{0., 0., 0.}, 0.1786]}, 
     {Opacity[0.5], 
      SphereBox[{1.1408067171930683`, -2.4345895643158695`, 0.}, 0.2572]}, 
     Text3DBox["10", {-2.6994370463488897`, 
      2.96032236993778*^-17, -1.0700280739626838`*^-16}, {1, 0}], 
     Text3DBox["33", {0., 0., 0.}, {1, 0}], 
     Text3DBox["13", {1.1408067171930683`, -2.4345895643158695`, 0.}, {1, 0}],
      TubeBox[{{-2.6994370463488897`, 
      2.96032236993778*^-17, -1.0700280739626838`*^-16}, {0., 0., 0.}}, 0.02],
      TubeBox[{{-2.6994370463488897`, 
      2.96032236993778*^-17, -1.0700280739626838`*^-16}, {
      1.1408067171930683`, -2.4345895643158695`, 0.}}, 0.02], 
     TubeBox[{{0., 0., 0.}, {1.1408067171930683`, -2.4345895643158695`, 0.}}, 
      0.02]},
    AspectRatio->Automatic,
    Axes->Automatic,
    AxesLabel->{
      FormBox["xl", TraditionalForm], 
      FormBox["yl", TraditionalForm], 
      FormBox["zl", TraditionalForm]},
    Boxed->False,
    PlotRange->Automatic,
    SphericalRegion->True,
    ImageCache->GraphicsData["CompressedBitmap", "\<\
eJztWmlwW9d1/kKQomXJlizJduN40aRO3bTTJE07k3TaeNImqTptnaWL2h/9
o1EXKxPLixYrju1asi1xsWzLshxINCmZFklQtEUSIsAdJE2CoriBIEAS4CIu
EhcQ4CYuIikSr+e+d+/DBQjQznSm+dM3c/neu++9c797lu+ce8Gn9hx8+j+e
2XNw3949O3e9sOe5p/ftPbDzr599gboMXwJgoXZ2J9i1Qpf8jwWKorCHv5XT
M+xkYEB+pHXsV09qj3rF2g//Dx9t4X2Li4uYm5tT774tYY1jL2svJagvZWVl
Yffu3aoQ9gF/+VfqaaP6Sk1NjfrKrl27YLVa1euKigrs3btX/eSPtU+OqKcN
YZ+wg41Ar8Wpj+MxMzOjfsW6SRr/eLcO7lG1IzEM3JEjRzA4OKjeM9HxXJbD
4dCHoetvabL+QpdFilB7+KGq6j7+raw1Oh6KgT45OTmE3qCiF18ZuBp7e3vV
GbFnQiff1OR+L8JE7IiLYrat0UE9qF7cFdUKYkTSyWYukatUvfuGJuNJjlEW
LIBsiz7o/fwTn8+nzn7//v3qtIxGI8e+Eb7hADzNXlQYi9BktMBzzoqh81b4
Llowa6vHnfEASdDEM/B5eXnCSCrY+JCl/7c60maxY42OmG+ICGB97J7BziW4
VmMF6o2foSPjKgZzrsGf34BZSz0Wy6qxXFaC5cb6eK4FpmKm0+HhYd24m6Mg
fnSN7yWE+d7nKH3LOpY+evSomIk25j0otZZDPlouuNGd58FIUTemK71Yqu1C
sKEdSlMTlEYbVge6ybc11Ewkm4mGQxgjPorGH9HQ/VWUR/fp87w3wl1EyLN4
1cy4SY8Q2fvY2WZuhMnYgEJjB9qswwgBob++KSiDQ1A8DgTbKgV6piDuSaSH
tcAe1gb4Sx3fTolPIv2D4WTcksjfEYJMxjrC1o/x4QUdrwCgTE9A6W/BrZEb
kJ0k0lqRTiKB+75uykdisA4DRUIMXIasOxFWOtYzTfpcRdj0VE9EsJQBPu91
jLkdfECtjw0pXOGu6I75qKTPiNl8WfJZYf1IdiLyiFSEu9KJuIjBjr/cjZIe
RTihb3iebNCM2fFRbhvN8CKON+ozfkyD92fr+vGDUbTMgLKzx+PZyklN/8RT
SxbuhLIQsn6hQ8E7uau6Nj3NE4TQSc3GtblhTcbinvD12BrcwUeOxe/sqciX
W0LMooFY7WrgXMmOjbhYMI+lwSm8dX4Jk12T6C4fRlVaFy4bWwlmDTn0VR2q
YDUxCHeEdaDeF0FQsrELCwsFNz6gvnYPViYDWKmxwPWRHSlZt3Hb5sBUcTuS
PpiDN8uJxrQWlBnrcclYSeCKVGbeJKUxNgS7eyI2oi1R1M4Ot9stZ2wGjlmD
3T3A+chZ0gXT61UIFBRjOr8CY6YqvHfEgfZzNtQay2CmHGEz10uo4lUZwmlI
/BNSKEs8GDtXMxxUNQn/lENac4O74WrqwcGjN+C/rWBpNIC5Ni+mW704/W9Z
GKZs20dtfDggajwRvUzU72lwnopBdqdOndJffYx//p/PdGBsNpwkXnnDG2Hx
8Kria9owf6CH2yOck6JVa8ICLGLDU4oBqSmTcPtWQkmI+n55lAqH0Vb1bmt0
rfPx/zDCHdjxUIypCwdlkr7Kvzv+Sjcqr8t8akDLiILgdJ96t433yRXd49pI
j6/LNA/EYBp2EEVG43NhjmOHq3ClXQnj52tDhGl+VL3bHsUcm/VEorkQ/igK
pu3cMeV6TpiIPWHKIUCP809NH3UipybItan11ZGugotTkm7ikZGRoVuGLBwt
F2+PDWprDGsxXxEaf4J/52qeQ2rWLSlLGVDdrWBleV4Kn3BrrV/YbJfcOFYt
9rlLAVbUCGL5moDa5MOxM1OYXA5qSYr6yjsU3Fm5o97dz/uYKGHETREo+LFN
cnWJYBLXpFpmR55q+YwMKpMceuMGAouMV7Q+q5NYZTUoqWyNETfxiJAVIiBp
dIDvxvBwluzo/ht8sP96lshlTuHEpvUVNClYWJUDJdxmd68zukH3dA2jJkDt
0IqqjbHWnepTkUSFK6amEv2MzEr6NyCvXsFcBDwmk+maQQwVHYbwqwjn0qbB
q6No9BC7YuI54lv80xOvdqOqPxgKdRae1TSbFUXypoQ1i3O9Nv48jFv1KEmI
8tKOGKZmZ7r/E4m4LG7tE8ECplIFU2EoN+h8I+zBy6NI9+cWj7YC5Kgf1KcW
rX6KZfpvc4G5mZ3IrdWUeq+Aaw7Cv6wN8ju8j9mHyWOmv1sfMU6/kvYWQl6k
f722UNkYtXQSOyEiBv5U4rz0/CXpe0J5aRljSzLKeNVjxC4Inbf+Zv64WbKw
nL25hYXn8Ayh3gk1MqZ73TiNyaVViFFNmfMYvq2JfkgKcLEkuldX3ubIIN78
G1jyOzqEbrx4nEhuKVSsmNImMTgXDkGEBdMxX4F9VQrEdYq1P+cS9j3fCd98
eFlkMt5E3y15pHh9z4FXsBv0+fKEs3MdfdO3T3LRb52cwvC0JnqbPpwH3il5
Gam5KDv0hBdrd4SXXV9MvWI/5sR/96C6XyvRtusoPkNHQJP+Fc4+IvewiQg3
NqyL5q51uSkUZ4ZQ/k4M2+sTsFkKZjuR3xdU9KINxZ0y7Rjg9IUyyVc4LDFl
XkutjzZRJ8lITtJmEIY2jitFsIc42L3YR8nN7FKTjSIlmoamZn3ohzkceeNM
2kCNjhLhW50hJa6PPOZnNAemcflg2hILMVfzPM6bNX56kPfZnX0Rc0jUF5py
XScGjL3JxwvPNXON5/ET0S3OcTyq5cdiEiy6WQYiAMJbGIW9eY4o7Paizts1
rlH908c4CLnijgjoxChT2Li+XrXCURCNrk/isiNJQ5hYUnSmLndO60LFOov5
kbzYZdN7QMaSGIZFtncIaXjmipbNfsTf/vmBTowvyNs9BlhaFyJgbVA5Rd72
4aa+/wtHUDR9CRAn357GyEw4p19uWtFB7OR9LF4YETEg8sgJUSYYQhM2VNJr
xHk90xJZ0ILLHowYKl6fLyfuHZG8Fm06EX3x+ss/4AO9fsSGEk84xWdUh9hL
rF7lmpn7YbS8v0vQzcdd+KQhfPmdVrJWrNi8Zfv8XGxoz+lvpLi/ULSs3j3K
+4yFwQhh8SLUhII26ASprYrwr7rfj+M45exQvBlwJueOLu93I7iQz3tDlPlq
S0P8iy7Zi5dSKaKWFanOiGRqA06lz68ZjWmYbZnwja0vMNovDnVh/HZ4oMiv
x0nMVWK8gpOnJzGQXoTp8nrc8QXE+lFU7xqMmKPuFpHxLkVGWA2yOex11ti2
HzsaztXD+FoHpq40YrmyDitVJbg1OHq3mLLTi1vUZtu9WBrz38+7xQKRl3Dr
YPpn4UZHe9A+shLSRMSSiWLSerYTDtMATK+1YaHhJoLt16F0tcPX5uFbH5vg
c3gxWGJH9wUz+j4yYyDTjBsfmzFy0Ywxav4sMyayzVh0efUNAHk7O1plwZH+
k4i3X1airFuuDO5Zoz13nVPtK/igAdXnXfjgwyG1f2poAe6yPrR98ik31BYM
t3rQklEI53kzOgi2h2D3ULtO0AcJ+s2LGnwfQfcT9Elq0zmFWHJ79F8lRYHG
DjqHGIpX8f/IsV+62EUcKAd1yPIdTR5cfvMajv9C2yBuvzqFidoxeK+MoPrC
dVwytqG/o1/T0H1wWexoSC9EU4YZDoLeTtA7CbaXYPdSq0tJh/vXObhJsEep
+Qh2IIfgU5syFWKR4IstE/mHEPaLGd+205aF+AeJRDKtyyHFixTQeDmAtw/b
Jc5MxGptHRYqmjGa74DrQgtKjXYqQ0vUvVkRVa1FdtR8WAg7TeMaTaP+/Rx8
lpIeh8IDSaS5ggPJyKd2+YVk5FHLfT4JOc+dwNXUdHjP5mCCZkEz2SbZQCz6
CTxfq/xMYqwTaT7JaxJgNtrw0ZsOvH+0He3NQfhmhQMmYtkXwGxVPcYyLehO
s8JutOBTYoAQ/h2YGPajLK0AVTSH6tM5sB5MQvGhZBQfZC2F7lNgoVZEzXwg
hSaUok7mk+fZZJKR/VwSTeZD+GkiC26PcCaPx6NW5byA4RP5qUSQL58cwuSy
oKwElJ6zI/sdN3791gDctKYfnVP0/xbobvGgmECWvfoeyg4loZwAUpFyKIVc
r+xQKkqpFR9MJbCpKDqQSrpPQf4LKQQyBbnPEchnk1D0yiks+fxiOcHchbuI
WEALdGfzVuFfDN9BcJFjsyD81NiDoswAOnoVDM0pwm5+0mLpq6dQSeAqDyXH
wXY4JY6uUglgBf0tp1ZG4EoYyAMcJAG8TADzCKCJtGh66T0mZzsXKbafuSvw
IPwJx/j2qRmMzspbiglq8NmzBnH8mUpY8+fhviEK5O1oOPYeqkhrVYeTUX04
hc6spVJfKmzUKmWQBM5C7QoBLKD2KQHMJQ2a382Glywhljdyccpz648FEx/r
wY2AvGpNgLepB435E3j7RTuuFC/DOSqMH495CuRxUwEaj50meKS/Gqa/alV/
VRxexcEQPCsZWIVH+jO/fBqV5L2l5CA9LR6xv8jKAKlU5QCf4gDfeKkCFT1B
Tp+hUMo8TqH0ejtcLVooPcz1t+zzq7EaoDaQloPGowSU/K+GGoOp6vEgB3mA
gaTQIYClr7yPz06bUEf0UE0gK9IK9b0z5oIMpfz7Ps8Tf89hdnStoqBF3uDi
gfKuGx+cpEDpoECZF8XhNszZ7CoxThBB+nM0wnSdTEf7Wxloo9ZKrSk1A9dS
6PqMSSXcViLeRmKuqwSxliBOjfjFskqsYJiVObK/EyHcsoCPS7VqSeyeqkFy
gYLkLAXJxxNw94nt6a0ashyOLFvLRCPUblBWGqAM1Ud0303U30XNTajaCFUz
oeqy2jE94heLJLaAYahYsc0R/a3EjmcvzkjpNgFuFhLZFBL7K2EpmIeLQuLr
XJt3yKSzlXY1lbOUzlL78EUt1bOU38sSEUtIhOR6sR2jDo/4EeqHfJCeZi9u
UvNTm2n1qr+aMSW8+s4Q253aIHt+AXn+ETucdXfgIM//puDoMT/m27XihxVB
09SmSMzCqB+/r432vfDCUWSnGmMpXOcqMJhZgcClcswWlMB4dhxjHV79vwNU
lz7hwOk3XHC1BtUf3fZoUp/kni2XHezINZah2KgVbn0mJ8avODFf4UD+cSfG
mlwIXi3FoqOe3LAe2ac68P7JQbi7FIyQG/67LHrLGtF5RgdsH3rV65nuKdzu
n0I65a2eMif6s6vRmVUK25lmuK8reFoWde8aUeMDfv2anQvyh2BqXoGlcAGu
m/TeTABzLvs+WcrGNVKUfqp3JwN6f+90EPLP7JXZderd54BR2mxQnE3q9co1
smV1L0asvejM7UZtWgcljWaqG8r3SeaMrEzvwoqtCvMl9QgUXEN/1jU40upR
bqwmexTD3ezlH/+Ae96yh7ytuh7jWRYMZFjgOmtFLaV3u/bT8c+1t3+7/6H4
/yfgS/8D1C8FYA==\
\>"]], ",", 
   Graphics3DBox[{
     {RGBColor[1, 
       NCache[
        Rational[1, 3], 0.3333333333333333], 
       NCache[
        Rational[1, 3], 0.3333333333333333]], Opacity[0.5], 
      SphereBox[{0.45102716934100145`, 0.6643992267577108, 1.125}, 1.125]}, 
     {RGBColor[1, 
       NCache[
        Rational[1, 3], 0.3333333333333333], 
       NCache[
        Rational[1, 3], 0.3333333333333333]], Opacity[0.5], 
      SphereBox[{0.45102716934100145`, 0.6643992267577108, -1.125}, 1.125]}, 
     {Opacity[0.5], 
      SphereBox[{-2.6830928416313737`, 
       1.0754106565527394`*^-16, -2.758388735849916*^-17}, 0.2572]}, 
     {Opacity[0.5], SphereBox[{0., 0., 0.}, 0.1786]}, 
     {Opacity[0.5], 
      SphereBox[{
       0.9952543381324191, -2.5062098629524248`, -1.1102230246251565`*^-16}, 
       0.2572]}, 
     Text3DBox["7", {-2.6830928416313737`, 
      1.0754106565527394`*^-16, -2.758388735849916*^-17}, {1, 0}], 
     Text3DBox["34", {0., 0., 0.}, {1, 0}], 
     Text3DBox["11", {
      0.9952543381324191, -2.5062098629524248`, -1.1102230246251565`*^-16}, {
      1, 0}], TubeBox[{{-2.6830928416313737`, 
      1.0754106565527394`*^-16, -2.758388735849916*^-17}, {0., 0., 0.}}, 
      0.02], TubeBox[{{-2.6830928416313737`, 
      1.0754106565527394`*^-16, -2.758388735849916*^-17}, {
      0.9952543381324191, -2.5062098629524248`, -1.1102230246251565`*^-16}}, 
      0.02], TubeBox[{{0., 0., 0.}, {
      0.9952543381324191, -2.5062098629524248`, -1.1102230246251565`*^-16}}, 
      0.02]},
    AspectRatio->Automatic,
    Axes->Automatic,
    AxesLabel->{
      FormBox["xl", TraditionalForm], 
      FormBox["yl", TraditionalForm], 
      FormBox["zl", TraditionalForm]},
    Boxed->False,
    PlotRange->Automatic,
    SphericalRegion->True,
    ImageCache->GraphicsData["CompressedBitmap", "\<\
eJzlWntQW9l5/8WA8dp4ba+9j2yyiTN5NGkzSbeZTtuZtGnSNu40SZ/ptn+1
s+Npx9s0m10/Ns52m816HwGRXa9x7BXOAn6AedleJCMBwpiXETJvhACJl2BB
gEAyDwmQwaB+595zro6ExOaPTvNH78zh3nPuPd/5fe/vHPG9Z48f+bcfPnv8
ucPPHjx09NkXjjx3+NjBb//oKA0lfQyAiVr2QbDnMD3yPyaEw2H28jdy+wG7
JTEgh9SB/1RuyojyxNq3/w9f7eVjoVAIXq9X6X1NwrqNfax+lKJ8VF9fj2ee
eUYhcvjwYfHxy8rtoahPDh06BLPZrD2/9tpr6OzsxO+pU36s3LZrS2dkZChU
CwoKEAwGt/FFFxYWWFe5M0rs+WmVwvc1hJ9WBlIVWmw++/DkyZPKcqzPIG3n
rLJnhpwR+l2V0Nc1QvReGeGXIqw9ylBylNzo+oSEX5YK40PDn6ThV2mof9kU
wS5JiKP44xj9sGtbHJ09HB/PE8rDDg0PW0CoQAiQZLJTkisTj8fj0eT6VZXW
n/BP5AUEoL3xF39MEoasAC7ofZwNp9Opyf4r/ytc71ce9sQ1PCF2Bqgwtwjd
Riva9eVwXijHWE45luwurE77sFNSC6PB1bKLDSdHzEs2k5QoM/kI4eyVrDOe
czA1qCzvgtfjw6XTJTh7Mgst2bVw5jZg/GojfNcbELh5GyumSqzamrE26yNd
R1R55swZhY6gtyuOWDkb34oj3T0aa3sSaHJsbEwLXtxLGFZVXezage6L3Rgp
dcBb3ovALQdWG7qxYW1B2FqHDbtNQGJwhREkaTJOjoPqUyrgb8b181hJGgwG
BWgSD2wyoSJ9FYr1d5UxR8UEZnrnsDAwj2X3PNbG57ExeQ/hnkGEe+0I2+9g
fWJgpxQZn3/+eWWJtDgYn1IxfkMTzlNx4gLDyC5iWYW3UzNO2bnYvbupneDa
UGscZUOpfMnw8jLCbgcWHTbNXgUsrvNYlUvo/jTOqyd5vBCxl1GTFK3Ik0Cm
cnbE1B6rA7eNIwJzEqe85JrUKAv3Dd9fwrDFxC17s/JT47sLN9M/3NI0Hk8g
ZXYnmaTFor7TB2/fkFhCINRl+OEevyfwKn+9niBq8i1RqEXAZsh3aNZ4MLFw
Dyh/H9qUHOSwxETBhJ3GLULDWteD8EgbwtPj2tipkzZUucJocAUFzjrjBBlK
B5orbRxnSpTDikjwpcQoH+HuJExAuJIcSCKRQRXabmx03tIin8O6gCuGFYTG
5nG5KQx//xw83X5YsvtRQuCK9LfhaHNxk03Vso4sA1YXsP4XEwOVg9JH5FoW
CCO8pWHd7aIgZEHP5Tq8cSGAaZsL/opevJO3gr58O5ovdMCsbyak1WTXzaIg
ys3NVbTNer8lubgiiYe56yRKOgxHa2vrx7liQ1Yrck+YMVHbirmyOkwWNyAv
bxD9ecWopWVv6M20tFVkD7a0MGWSFV/9u1Loi9WX0NVT3OoyM+dgd0xiuceF
2QorhijhGd4sh6OsEYOkDRa490syExr4grrUlzTPEwRjGY1VIXv+JCf4+k9a
UD0YjvKp0vowFh+oY4/GkfDn1YV/O07SenKLkM9qFxa2DvJ5PfZVFDaEuRzV
saJL8xhfkr0yWZkrKlKiyVf/7JYBR65w5PKKB5zPCgits3jr/SDuLQe0irOz
f0gj86gkdlF2pWm5Q32LL8dZf79kc7F5WbI5gePFV93whcIctDpmtq/F4EiO
imxEJl6GO5AY1FaVDQPJ7l/g837x9jwmF8J8hjqWbd7YhIjNYYzx+clbauWA
ZLGbM0ls2BA6Yxf5kBw2mCkwUX6Oj73xchtqhsNc6OrYz9/xxOSfiB7Z3F0x
KPi1XzLuTeEjToklMu8XhQVf7EVJU5i7ojrW5qF+YEKCoqqytLRUqFIU+rJM
BCo1OOIPtlCfiAm/oxm2D+l5QR7S1DFTVxir6+tRKBgdSf1boUjS7F41O9XH
lIFEmysmJkL1FQ2UE8dOjcJ/P5Kri4wP4F9VV/l4jJZY3Irk76TopxjTUulp
JDbHgtS4pRNbivW/yue9/e4iphZlkgS7LQCX2630nuACkm1UFEhpvw7AvZqD
pCQMG5tVzNKkWOZpYfP/1YHaEXXebj5m7Z/ZFAIZiwymvMPW6/Wx5s/VHG8z
x6E/rvG3f2t9CxrCQ1gTAi6+1IdrNnmTSDZgi8SVT/AxoX/NoyNFTezWn925
ST4RB/0eTkNWPzN5oX62ktVq/ZpmpH7oLgWlqUnIuhzSyD0pBT42latlT2K5
xbPJXXEkyBTNgglRFAbE04TSe1oD6MSJN8cUrxH1zzWLDxuLk1EAh4aGFHvh
JygPa6LbHeu+8cB8hDp/n4+9c5ZqtED06VQDC8SheaUnygxGWqhUHcNneIiM
VyIJ3TC7Zzz8ESfz5ivdqHOreVGcUly7E8byelhaLllBLkoGmq8aVcL9qCig
2apfF3Z6uR83WuXCm+z0MgWHkLzZjZxPqesKEfNE98kEWuYZ7RuaRu8h84oq
sANibGxWE/ZT0lrsYniT4rsvz14xUTPG+CKulBTJ1KnaGRdHp4zy5MYPmVTj
+3H6OO6tRoqjanswBmpy1AGHZkKJ0KZqMTE2+qgcRKEVJ40MobhEaPwmn376
vSVMB6NLuJyqSJD5NKchHy6K5eIFwH38bfRxY0SMW2NPOI0QMBmJi1kGQyK2
VG/9dw/qhwNK7zE+lpkV2bh/ilsXk4S8Yw0njuT7JIHHvHpI6UVOyiQ1QaiP
bQKkwCCAFl/ph6EjutLqnGZBYC4KaLzD4V8HaOomQPI9VsaapQnTl89uIi43
h5zrK0pPJI2KnjDWH9xXegc5mZgqTXbuBOch22Igi0uGFy+D/ZnkYS9nTmBu
NVIQFZk2sPAg2naZLkQlI4r3xyRkKYnEEs8c/5wv9O6FFXiXoqsxVv6MBuTF
t2u5hfWkau1Raf00TRhRK/z81V70TEfn+rtdTk2Cn+FAY9Lrgdi4tl17ikRd
cVRaku/EzW45IyThxt21TWsILrj4+BqRI5S/1FQyj7yykBTgknC+8L5GT+zi
REhiTs1D2z9LWn3ltIe0uqGljrIaXwyJyCEhZztFC3s7o+ll5YQwsxydiqyj
1F9Uc/Tn+ZigpdpMPK9XyP4Tf5X+Mycc0xuSrklyzZFtw+c4TJYpRcghbreg
/IzQyVUXTA6pMo1KPfLEs7pRuN0++NpcWPb4uGiif1oS2514m0y+8D9qkl/A
xZuqstTSKC3qc+EL7JSlVF+OBn0lrDXD8F61YPGGCYF6q9hlikDLBLrFyt+X
dP7TM5OYu7+mmbocCdReKm7qbejIs6MxuwXB2w6sN3cg3FKLwMQUDzI7Mdvl
wkRlE4YvGTF62YjxK0ZMUvPmGzF/qwkrPS6sTc8+wvXDEpt0LBivCIgBe/bi
KmZXJM+X0tSuKNhF59tQlTuK4UY/rpUG8GCSUtTAJIL2XngdLi6ZPVicnMWA
uQndeUb0UnNeNGKQ4I8Q/DGCPkHQp6h5C4zwXTXiHrVgTRPWvLMQfDCJSwla
wcSr6n8QJvvaAJlsSAooybH6Fb94vPEv19BqmMO7P7GhwBiEb3AZ7RY/yi+6
4B1yq1Lahw87nLDlGNCWa0QnAe8h4H0E3EVtiMC7CfyHBNxDwKeozRBwXyEx
QG2+yKAwsIcbrXAUeROnbnvw95yB0sIBVPRFV3qCgXJ9nfZ7TU85GWXHCO43
D8FbNQJH0SCqL/SgSN+A6ZFhVVWPwN3uRMP7BliJg7vEQTtxUJ+Rg0ZdDj44
lo4bR9NxnVoptZIX01H50yzYMnPgyi5UuSAO5ooM4jBG/kGUNf77LN9D/J1m
6ou4XLEaUYLKQhqKs/pw/vQEHP1hTC6pBhS6a0WoogrzZXUYvdKA1uxaGPRV
7FA1iYut+ldlqCUmGomJWgJvOp5OcjAfzyCSpuM6lFO7eUwHA7UPqF0/mkHM
ZKDohXSYiSHXhavwESMrDue+OCFLOzrD32oMuPCzX07BH/DzKJGi+G/DJSde
P1IJU+EcekfE4VwKAp0uLHS40KG/CTcFKnZqLkryAdJAJTFQnVWIqhPp22A5
kcH+6Ah81YlMVFKrOJ5JjGRqTNw4qsM1hYEMFPwoHU5iYNU7uy8m9skF665o
Ds7lr2lHiI/zaf3EQXPxJDJeqIfp5gp6PJFt06xnFuYzV1F9gom25kQG2WwN
YawhdKzdomahVkUoK6mZjzG0mTAQ0hsv6lBKSAtJ3PnPpyu0xAm1qGhZ5uEQ
/4a/yjg1hIk5uSxPQRkpvq2cdnqvtMDevI6OqUjJ3nwqC7cJXi2B24bal3Tk
OrUvZdJYpgazWkAkaCYGkeCVEbzrBK+YBGl49ypc7c79ahxQd05iryeFwb/m
S14jp6pyyocxKTCRg13JtONcOumZygq2s3iCf+EtKkPLqbOoeymDmg711OoI
Yh3BqhWSJHgWDtHMIRo4xMozZCNkK4NkM+K8O6bm5Ai/p1lqAPkWeQucgpqc
NpSc64MxZwoOVxiepUgs9BPCWXKF3ndyCBUZYj0pebcG8PZxDvAYA6iDmcAx
gLfSc3CHvK+OvJB5o59ULACKnTmvmzjA72oAB/D6+Wml97DkSo1XBvHGf1hg
KlmAY1TUF49QymtSgo6v0IAZCkAjF4rQ83Yu7NRuk5/fotaWmYu7ulxYqbX8
sojSpREtFNxYkGPBrrO8SWw85CJsRzSy9wofwHdfPoBRXcR2zQvdsQaUm0Kw
T4pibK+CbI5Q+QnVLAX5aQr2k9TGKfiPUhIYpmQwQK3/kpokuggVSxoseVAS
EfsKVtMxcbFKnSP6Dn+le30Ennk5IadQKKxGmzmArFfbYW9Zh3dR/Ka1G6Ee
JyEywk9oZgpURB5C8yGhcROSIZamCEkvNTuhmaIwJSpgOYqrYQx/xV9dLx5C
9YB82J8Cc3Yj8t/uwTndEBy0M5oim/oyB7o6PYtlu0v5lwy/pQkTrBKpImFR
leKntjQ1K36GU7c1OxSVNBmbcUdvgiPbjLE8M8nUhGbdLVwp8Yq4eju3E6Xv
9cN4cQa9Q2GMBTbwryqlb3GtsFDLrlvkll3v2+AubIHP0ILRPBPOnR/Een0V
HnRZla8dpN07+SN484fVMN0IwDEePixT242CrDJ8oG9XKPaXDGK22UMl3zBs
eVR9tvfCV2mB83IjfvFSI7oaVtFF8enfZRJJKDxdA1ebH5GCaTsy3xqDqTSI
rFNd8Pb6EBzoxrzDeiR65rStEeGZsaiZd/vUTClU1WsdR2tJQdRMXpD13UW4
16E8r4/fw4p7DvOue5iy+6kw6Eexvo2ENYKYqWtuF+QraGmH19CJwasdaLnQ
SjXHHaopKpSC+IisRNL7gAtBw02qi82YKaoikVvQnW1BLX3Oamc25Tl1yl9w
hYYmfZhvd2GGtDZOzU+f/ED95Df7z33/n2/42P8A7D65xg==\
\>"]], ",", 
   Graphics3DBox[{
     {RGBColor[1, 
       NCache[
        Rational[1, 3], 0.3333333333333333], 
       NCache[
        Rational[1, 3], 0.3333333333333333]], Opacity[0.5], 
      SphereBox[{0.47498445965127206`, 0.6474886895458403, 1.125}, 1.125]}, 
     {RGBColor[1, 
       NCache[
        Rational[1, 3], 0.3333333333333333], 
       NCache[
        Rational[1, 3], 0.3333333333333333]], Opacity[0.5], 
      SphereBox[{0.47498445965127206`, 0.6474886895458403, -1.125}, 1.125]}, 
     {Opacity[0.5], 
      SphereBox[{-2.713522832453422, -3.462306753779994*^-18, \
-8.31947127631124*^-17}, 0.2572]}, 
     {Opacity[0.5], SphereBox[{0., 0., 0.}, 0.1786]}, 
     {Opacity[0.5], 
      SphereBox[{
       0.5416206881581845, -1.7205255166446232`, -8.326672684688674*^-17}, 
       0.5241]}, 
     Text3DBox[
      "12", {-2.713522832453422, -3.462306753779994*^-18, \
-8.31947127631124*^-17}, {1, 0}], Text3DBox["35", {0., 0., 0.}, {1, 0}], 
     Text3DBox["66", {
      0.5416206881581845, -1.7205255166446232`, -8.326672684688674*^-17}, {1, 
      0}], TubeBox[{{-2.713522832453422, -3.462306753779994*^-18, \
-8.31947127631124*^-17}, {0., 0., 0.}}, 0.02], 
     TubeBox[{{-2.713522832453422, -3.462306753779994*^-18, \
-8.31947127631124*^-17}, {
      0.5416206881581845, -1.7205255166446232`, -8.326672684688674*^-17}}, 
      0.02], TubeBox[{{0., 0., 0.}, {
      0.5416206881581845, -1.7205255166446232`, -8.326672684688674*^-17}}, 
      0.02]},
    AspectRatio->Automatic,
    Axes->Automatic,
    AxesLabel->{
      FormBox["xl", TraditionalForm], 
      FormBox["yl", TraditionalForm], 
      FormBox["zl", TraditionalForm]},
    Boxed->False,
    PlotRange->Automatic,
    SphericalRegion->True,
    ImageCache->GraphicsData["CompressedBitmap", "\<\
eJztWnlwG9d9/sJTqqzbsiznUuvETpuk10ynk7ZOHLeNpkfaJplx+q9H0+bo
SNZttY4P2bJLUIpcUaoNSqZiUaJI6yIJEiAJErxvgCcAkSApHqIIErwPiYd5
oL/f7nuLBbyklZn8kT+6Mw9YvN197/vd33uL77905Kf/tu+lIz/b+9LuPYde
OvDTn+09vPt7Lx+irujPAbBSS94NPg/SqfiwIhgM8sXfgq+D/BXNsL6rdhxS
vpQe5Yzb87/pS1/izxju+dLqN20RffPz8xgbG1N+PRZxn24IRZIo7tisdMQp
DwYCAZhMJuzZswcvvvgi+vr6YrXJYwxm/aI62pvK13pljLS0NOVZHoMPHnNq
agp79+7FgwcPsNFgmC+ow7wmUPMwZWVl2jA2m015lK9mZ2cr8jFMPujaGiP+
qybmbqUj3nBsCU2VMFaB29TUhIGBAeU+Pl+vXIsJmySkzh8bX/2CgW7379+v
TEq6jRLAeXwpX5zo06tsvSbFl9WRv6N10J3SsuovOrYYg3lqFQ3w7HzOM0mP
4Xv4MJvN+AN1gOcNnCnKQPObjWffqVOFnF3Yj2eWI0nXVf1JfYQ0FWYuYZLf
V4f+rjCafj6Jb6sxlseVk3Wr+pmYYLNQGJtCmoeb3jRf+40oZ5uQQe8jfHg8
HmFg1SG4n39tF33SefnXs59yjdgw15Dn27QbtqyiBumOHGpOp/NJgfn48eNa
YqBbxHx/ayDllw1sLZ+k31Hi8vTAKAIuH0ZdHRhv6MBUUwfmB0d36gQ+ceKE
AuUZdbK/0bCrcbdDm0JmLX2q6GnvQWbqLZSbbagz56PZbMedi3Z0phSi73Ih
Bq7aEUi3Y+x6PiZv2vBJeyeWRkaFe0Qr40rtflUF8AJ/KcKqmW+XYjKZ8lhD
rDT5kIcEu222Is9cgBJzEarNpWhILofnYgU6PqpE79UqDGRUIXCzEuOZFZiy
lONBbinmbA4s5BdQs2JlbFRzYxkIfJAFBKa/NrDArkeJth1oqG9GsaUG1wmg
xVyMQnMFKszVqE+uQ8ulerSlunA3vQH9NxoxlNmIsZwGTOW58NDuxHxRHRaL
q7FUWoHl0mJqBVhpqhFeFatFjd6MX1ER/+WaNeWJNaJTZmRKE1EiRwTIizLI
wh+Tgm8Rfqu5BsVmJzyWDvgbhzDcMiSS6nos9gSw3DeEFXcHgjUuBGtrqVXQ
eRFWKknZE1LZ4dbfqJl9++o63x6hc+mSfJCXxInLEm+GuYT0XoUswtrlGtwk
1Bb0DyLY5KRWjWBDMVZqrVpCZ/vr6t4mAxDbVse3VShBX6TZY3lUNo4UmM9j
xYwZ5L0MNIOU6nX5t4nu4LAfQU8Ngs0OLLfVbNaZnEeTVtJGWtXWa8DdtEoS
OXv2LMOUo3G8yYCPFjg47jLIHRh1YGBa6Y3SiqVyJgtd8CFdbq/GSkuBABON
9vZ2TRGRFEoH+gVtsI2PVttYNXKMdQJqsaWOYFZqMI0Kx2rF5HekDLNTCPrK
Melr1VxFGlnAWEOMf9KFm57/MXhJDQi59M8McyGBnQors48KeIMEPNGP4Mhd
XUVUfUcf4aysDauj/rrmVl/UKV+6NR8sBylfllbH7VptjF8Xt9RewNMaEU2r
8TS1hOAbBhM8tUZ6k/mSzrcLQ7orWvW4ozWM6qjRcDvbcfpAFRa7mjSgHlev
9pDeI3g+4RGbNayqZdUK9xlJ2Zg+S4osC/fy/SbtOSN1RgmT8OF2duDn++7A
XBjE7FLIRTyue9S6dBLEKXNFFgKad4vBFOow+MNVHSick/NI/K3j5HrS94To
W/LaVd+VuSYq5DGxJEo35OF2zuBOZ7cWohwxGVT9OTPtMPAcI14obRy/uixr
MTipIfr+vEQc6FISBScMuc5wO/tx5LU+DM2EjHWlNBQn8QKZKkEVtQIuYVII
nUch5FLRBljjdIH7aQasX4UaUEY9CSZKqvx6Soy0PD1K6Zssc6cKwdGBGE2w
IRw/6UfgYVDDc806jOCMX4dHClZDzcFc6AnRHeFkmx5Ftm9oN6kVYf1qFUG5
Kj3sd8W9K21UUJuKEGwlObrbCahaEtzOUfzi9DCG54JaaN4sWsbkYlBgVSGM
UAkptbSTINXUipXaTZZ60sDdHjM2glGwCtG+JZxBv0Jh8qCrEIKkx2OlJhfB
+kIEXcSsXLVwW9pwImkcI/NyuA1o6Aqt86b8M+h1DaLe4iM2VEdMrkKxBrMk
Zku7BCyZ3VmKDeHhF7kWDnmuGrw6yv7pMs1ykFbUde5OhQQGW8kWlQVwX67E
SfM0RlxeLJU5sVDSgPmGTsx3DmLWN4iZtiFMegfx/q0F9BR0ovHDBlQnO4mA
1hIRrcRNivkMWnZkmHMVUaTPRqw0t66u+F0Gl3Y+Qgm5dOnSN5XbtsOd2YLS
X2Zjxm7HYlEx5u3lmM2vwrS1GuOWWgSoNN6/XofutDpYLf0YrPbCSaFeYS6n
FUEJrQwKianaKDqqxborfHEWp1kgXjtT+Y2aoBQ/izWQ4/GIoqKnHmxsNswf
i6Ttaf0El24vYHTuEyx1dmA2x4oH2fmYyirE+C0Hhq8XY+BaCXpTS9CRUoKU
47Wov1qEGgJfQos/G0VDu6tjt4AhVca+JMluRDSoyVVVtiLTDmEX/ZKPD16l
62iefqvgm6LvjZezkGpb0sXresx5O/DQ3YmZ1k5MNXeh64IVfTlkDlcnLDe9
6KNa8bR4QlJH4S8xayJ+0kDVWwwSkt5l5LKVz/9EPH/ikBXpjhXll2QWZ1KG
EJxWM+hXZHEjfUhfiF4TmZEzPxbhBJHMgkWXOZevS/X+keh7+6gDN6vUseRO
YFF7EEtLC2Eo9RZfG2UoY+i3w6SDqqkmJnJH6M/ErSfJ77Kc+iUMlSLvEu6N
jOrghB5nR9L2RFZD9LQu4I2WbmIR9OdivndfbUVOS/i+cHbjojbwV3WG44OH
CKVRNRmtuWEqrf0XYqCE1zuR1xZOjC3lpP/5SeXX0yJy9Dt5Yh3H4wi2/Bn5
+TkxsOlEP+ydejJHk5HGF5ZXwiaL3LZjxRF4Mdk6TV6jgh6qLNGqtVX9y+rH
Bw/H8vA0Qv9/JUY69e4wHN36XQGmI9PwBVQ0zwhjs6ByOHpc7C3EaznTaH0S
sQCQ5FOaUh5cl78jY/a9SbQMqOaXvO1a2UqEO4QvwWQuEMutiG3mkHrWxrnq
YzQbI5QHW5gZxXOastpx1jyL++NBbVWRkTdIi0af8utrok+YVOd3Gl+NCCRJ
kiK65XeUcHb9ZQlQOr0e3H/s98I/GdRSLfOxmSX1uWcFAkmNhDnC8IV72/q1
dRWNrq4uBQb7WwhGJw4c68DgtKTC0Whsv6cN+ozOqpIUSKvGaf4Tr0cVLr/e
miHM4RzLiHc9rwHsxZHX72LoQRByBZJ8e14bXxqRo0C+FDHSTtwjh4WRCkNo
/PjPd/sxPCtfDkWjvp9meDiiQxOjJB7dojbuMwDFGiggBDICwTBe/+WQQoN3
hAewOn4sks72oLtnFMMuHyYbfJgjyijVpLefEZmKi8xrRtqI6IvRbv62BnIC
b50fw8iC3ETeEDaLunuZo/RVtE3iXqoDEzftRMWsWB4bFQvvWEw0+zDV4sM0
tZlWHx5Sk5Es1RviXoaSGK3rX9BgzuCd5CmMLkjnD4fpyGLuXaH05Z/zInC9
EgsVHlqWOLFSVyT8bCNm/CMYbvKh7SMLOqjdvWwhBmlB/xULBq5aMERtOM2C
sWsWzBRVYTEwArkzI1+ThHEyQ0lCC2O50elunMWH6Q+JzS6qatZVovXIOOdA
5oVOZSh74Qxme8axQi3YdQ+BShcCzS0ioW2hxdMIfLYqNF2yoPVXFnhJinaS
opNaN0nSR5LcJyn81AIkycg1VZqJdAseOKrkuw6uH9K7Qq4rWPyPxE2e1gX8
KlON4M8b5FnN8+Jx+Z1GvPNWj7KnMz38CWryRlGb1YKAr02IuQ2TBL36w2zU
pWSjgeA3E3w3wb9D0H0EvYtaD8G/R9DvE/RBaoFrQgSCP5FBVbe4aqtwOSNy
oRI4/FAIcCO1DVfz1Uqoso3HFLwFF6pw7bRbOXfb/RhsGsCDqnvoz7uHhmvd
yE32kNeXY2ZsWFaKcQJfejEbFSRATYoFThKg1JSC8sQUUmDW4QTyyEz6vH3I
hFvUbhxKwMcHE5D/ehJqT6XAl5yOMRJgnNq8p13b5IpkLcK7xIbWD4QgJw7l
IKNkJWSJaBHPyecD8BL79T8MYvGuT74IHM2uQ+eVOlQlV+IWrYh4KSdJsDO3
Eg6SpIwkKTalRMF2JIGoq+2IiVoirNRyqeUcToSFWhY1FurGQRMJZMK1Awmw
vpaEURJkLCNLRoe0hnAqdSMM/yLwv300D7dqwt9VeaiuVqR24ORP7LBmTMFL
DOreTFBW7lmPD0OXc9B9MRcNtJy2URbyuHzynb3tQhbsJIX9jSQUHE2A/aiJ
5rEfTSQTFxw9hfwjp5BHzUqNRcmmlnkoETdJhOsHTEgXYgRCIkhTiBcjQoR/
FiK8c7ycSLV+QR6LNhKhOuM+EveVIc8yB0+/pKgxsDBAMn4RAXMcNUXBcSyR
1OwgbEWi2akVHFGx2g6fQi617EMhnB8TzrSXE+BIyZQ8ThZPxqi+Lxcb+rQK
+EUDrB4V4A4BMJNWwvWZY/ifV2phsy+idTBECbvt5AekuWJFcyUKuhJCVExN
oiwUCBVNErocQpZF7fbBREWLN/4rCTkXsnYImfnvAzLbkyZFOvm+mDDhjTYU
+PQ0OVZ5C3n5ZCP+9003Wp0raBiUJCueTYO6t5JQesyktDKCWHbsFEoJVJQC
dYMKlMDZ9WokgNkHGaQJWa+eU9yE3UXWI/2LL8GH/lFcSjzRi6Iu/cImFvkU
Q2mnW/GBqZsyYlDHb2IoCLIwQoHgPZOCMjZy2VFWYyl9MkpFnUdCCAsOM8JE
gdCEgv9OUcKQw7HgQpYEqN89FAD/QVw6/e4QmvvVjQX5KsWR0oAb59tgPjcE
r0/NBeq+zeOYo1QzrkRqNkYoh3rPXEL9ifMKwhJqxRTpDmqFhMpOLZ+QVZou
oSyB7qMUx6mOU14JIaQUuFPILQmmMLSoe38vQJ55bwL9Y/rlfpzCossv+yja
CyjaJ5Vo751e+T1RGyivK/md8zzj5LzP+Z/rANcDrgtdV9Q6wfWC6wbXDxdh
5HpSRRgn/CO7dLWaV1rCzOKfEX8n8CUlz2JgQv9SLRZ3OJTT+2HaXwpbthrK
z4qaq4BLz1bqKBcjrqv+NLXOcr3lusv1l+sw12Ouy40EjOs01WvJ1vk9IwPj
JjS2R+M37fggdRH+Kfk3mFh0OLuU2H3vlWrYCtTY/brgMcxL5tw+FVGaylu4
4jOPYT7DvIb5DfMc5jvMe8TfB76nTenDwVd8ijvHiymzzQ6Kxgacf7NVicZ6
/wr+VFxbGBpRmB0zPGZ6c4MjEH/J+VaoIhlx0Hh4kq3oTcnFUGouph3VaM6r
x7E3OxGYDQpGGIu85ApcVcLsrhZm6tt4se2wMYx7cEXjo4QSCB89aVUYuVWJ
B9YyNL6fhVcTejHU5oN8R1z0oQvXz93BB0mDWpD8u374rdrw/r4BZT86x1yv
9LVn3MFgbjshb8PAjTqUJFVg1EMkMzsdJWcr8fZP8mFNn4CnJ4if64fcpA3Z
WuWmIZtRl9MPv3tC63c7x5D0fj+KzjSjIikfHbm1qCnz7dOPEuJc7kofAt4O
lZKs07pPnp9AoXcJLYOClk2P4m6BLWyQ0FJvOaASzWD3HQTHxkPrAlJVb9ME
Si19qL6Zh3062+rXEouTo1h25QvbrsNKvRfzBGyssBO9WR1ovtKGouQWXDfX
oCq/WgzznCDtc85qLBXnUivCQmE5pnJr4L9RC99HNailRJurvAdQXmRIBN8W
LJn/qvOwrJpSRC78qVZ0XbShkW4tInJQRt7Aj6h/l/rt+PPo/38Bn/s/Fn7d
JQ==\
\>"]], ",", 
   Graphics3DBox[{
     {RGBColor[1, 
       NCache[
        Rational[1, 3], 0.3333333333333333], 
       NCache[
        Rational[1, 3], 0.3333333333333333]], Opacity[0.5], 
      SphereBox[{0.4818778908668271, 0.642374920349276, 1.125}, 1.125]}, 
     {RGBColor[1, 
       NCache[
        Rational[1, 3], 0.3333333333333333], 
       NCache[
        Rational[1, 3], 0.3333333333333333]], Opacity[0.5], 
      SphereBox[{0.4818778908668271, 0.642374920349276, -1.125}, 1.125]}, 
     {Opacity[0.5], SphereBox[{-2.7136649594499946`, 0., 0.}, 0.2572]}, 
     {Opacity[0.5], SphereBox[{0., 0., 0.}, 0.1786]}, 
     {Opacity[0.5], 
      SphereBox[{
       0.501929399737115, -1.7221351333069905`, -1.1102230246251565`*^-16}, 
       0.5241]}, Text3DBox["14", {-2.7136649594499946`, 0., 0.}, {1, 0}], 
     Text3DBox["36", {0., 0., 0.}, {1, 0}], 
     Text3DBox["74", {
      0.501929399737115, -1.7221351333069905`, -1.1102230246251565`*^-16}, {1,
       0}], TubeBox[{{-2.7136649594499946`, 0., 0.}, {0., 0., 0.}}, 0.02], 
     TubeBox[{{-2.7136649594499946`, 0., 0.}, {
      0.501929399737115, -1.7221351333069905`, -1.1102230246251565`*^-16}}, 
      0.02], TubeBox[{{0., 0., 0.}, {
      0.501929399737115, -1.7221351333069905`, -1.1102230246251565`*^-16}}, 
      0.02]},
    AspectRatio->Automatic,
    Axes->Automatic,
    AxesLabel->{
      FormBox["xl", TraditionalForm], 
      FormBox["yl", TraditionalForm], 
      FormBox["zl", TraditionalForm]},
    Boxed->False,
    PlotRange->Automatic,
    SphericalRegion->True,
    ImageCache->GraphicsData["CompressedBitmap", "\<\
eJzlWnlwG9d9/sJLliXLkizbsR3bmsZxksbNdNqZdtxM2sZto07b9Jxx+69H
0zaajmTdUe3GtmTVJijFjmUmASVRthRRgkRKJEHi4AHeN8FDBEACIEWK4gEe
4E2JpHhsf2/3vcUDtKA9nf6Rme7MA3bf7r73/e7vPeBHbxz+8b/ufePwnt1v
7Nx18I39P96z+9DOH755kLoSvwLARi1jJ9i5Qqf8wwZFUdjN35yv/ewrkaF7
Tes4oH6pPeoZaz/4X916kX0msZ4X4j+0jfctLi5ifn5evdoc89wXDPG4+pms
DpGVlYXXX39dvd/W1ka9AkOSwZvPSzpIYDe2qB0b1aEqKyvVoXbt2qW+xNDN
zMxg9+7d6vljBgN+TRvwp1yM2GHsdrsu5L59+3TE7DCbzeuM+C86xJ1qxwb1
3dHRUZhMJnXsTz75RIeWxDXC4Io5GQamkY3qvaSoSSL6/Wfju89LehEqPnbs
mDqgEEicb+BSyLraqMN/URvyT/QOelLYWLuiY6sximcl0WPVKmYSvsOeYaph
/b+tDfCnBm6VENefHpr9afUkJWp2dnAFi5EmJib0tzbyV/r7+6PAclt8Wxv6
B9xa8nwC3zZjLDvUk0cecgI2OLMDn+BxrjBmCoZBjMCujx8/rirsW/8nytku
KUeOQaYoSTlsYuY37OoJ3iesx66++ZB3JEd5hzjfrj+wVdKEUagxMF6v96sc
9oULF9TbXEF8vr+Il71izC3eJJW/KEnEuthcL2uj/XmMs2/TTcRinokvbMFe
tl66gUF3N1rNNngz7AiedaAv04GBi3ZMljTgvrcbC74gd79EFYtQ1ze0CV/T
c7gWp08/BJppgWmE3e1yB1FIk7nMTtSaS+A2u9Bxthz+CxXovViJgaxKjFyr
QDinHNO5ZZjNL8G9AieW6huw0h3kdkvSnZrHAMfyZwaqfCaOKqMiZwcsl3Jw
jYDlmYtRZC5DpbkKjRm1aD9fj87PGtFzuRF3rzUhlNOEcF4TpgsbMeeox0JR
LZZKqrBcWoYVVzFWSm1Ymwxvk5KgyN3CUi9pYL+3bnV4ap10MzQ0pF4n8ifL
rPWwkEKzzeWk3BpSbgMptxnucy3odXQj3BHClHcEs10jmA+MYKF7BEs9ISy1
duNBRStWq5qxVtOAtdoaKLXlWKt2Yu1WnYgRv98fXXdUpE/EV/kOrnLZ89hB
ocAGSeaiabBLcJ1UnUuQHWY3+twhTA/NYRMfQhkMQXG3UGugVgWlsQhr3nqR
meQaRprZYgBme3yc2+IUXBG++fn5D1U1AdpCer5ubsLY0CxPAyTW3CyUjiYo
t6qhtBDQmbB+T1RDYTvmwOvzg3WAb4nj0yyt0iRiNIZfFMgErrHRoTBhL6JW
TbL4d/BHlX4/FF8VVlrsem6Ua2gsK5IAvqZnnMdi9MlsLxUpPes0Nzfz6pQI
L2Ufi7mScM0YpvxEg75N4s5gF5TOMswMDnAwWoYSc64D+u+k8IrlFMI8ghFd
+TSPVOWT1PjFEDfrED1YHe2W3C0pyg1ovk3xUX5Hd5DnDSzODqZiUq0gshbK
AOvBSoqYiW4vUG6644+qh8a8SfMSvBIzIjue/YISyO0tzOOpbo8BuDG2mkd9
N9z0Qgn36/rsvRWICd8kfWp2EJF9XIethYlWqL50opXZjKApT/H3RtoaY9BH
cxElQitPHC7FiWsKVlYe6P46OjRN/t4rgU9RHU5MJ4oa9W2N6/b4rsGtJ6TI
i0eRRSl6imekFX8plPszUao3cm8h0Y16BR7vMnrD87pELIt4qaSzqycNXMiI
sCm8gGyIL856vIpFDh/+Wf7qym0yS3dNJEATI7Ik4+Qxd9TgV6oVPMrfZGHN
srnXHdCNLCZkk0R8ySiaUqQofZiVPm4QsoLDUUkVA/b09KC0tFS9eoaPtDpM
KvW6oNwl7783m8wf/eAtDwralYic1Ncaouv7k9yJhVSdJFUFNRtnbkmx/rXl
ywj2iv6QnNljKb/MJ5nNd/IZV9xE+TooH/nqoYwNi3k+/K8AbN7oFGW5MYux
8WFuMO1zlAqrxdyoFgdGbpiJnpFcTMTmZmPtG3kyF+tVKeJFsDBh5Nz/EvdA
VsLXmhxUzkmQtjpqzVCGQ0h9tw9Ov5LCZ3F6Hkjxos3VQ1SmxuonllDPhSgi
y9QJp5XdbJOu6AQ5h8iJkEfLU7p7x6sILOxJL9ry7lGsTYeJ05El6smdGqph
OtSFYvcs1jxBrN4JYbl3BCuTc4n88byqJUw31yLUFoKvIIgKopEO4mY3KdAt
RIstZgcT4jnJq5gRmD+Q+rbFV/ozBreeXifMRe2gNdN3eHpZmyJbtNej+v2b
qKm4jZXyKjxw1WKBFipzziZM2Zoxnu/G8A037ljcyEwfxO2mQbgzGB2uQynJ
UEAyXCeKz0KDUaEXJI8S/DxFt8EG/ewRTYqteilJNpBnh1SQJO6boHqZZnHx
qJb1tuP06Ul4Gv1Yctiw6HDivq0EcwVlmM6jNdCNKoSuVeFuVjV6Pq9G5/kq
lFX1oYGKfKW5FE5yqDySw+cO7uRoBNtmTpVsHBhabtV0r4r2ZBxHilk9izLC
2u/wEvbRmTncGlrW+1fGw1jqCmKuogHjFjtCWU5aSjrRm1kE/9kidFAcp+/J
hifHhV4ifhNkgd/iMEWp4qvFpHXRfzVu0fhybP53+fueZj8+yVjA4GSEsjkp
OS2vaEJ9w8A9jAp/BJmRn2+WEk4sMrEzJlKhzNm/K6Hc8x9eDE0rOnnzuO+h
y+eRUCbp43IpE9YFGskkj4mMy11WOADLg/LeiYD1ezqsIPYe9GN4RuzMJOJz
Z8QbXuLzi/e4ZdeH9fU4OYHpiJV+rp8/0DH04MCxboTmhAMkouEuDbqoEZuX
eR+TLUom1fW1fBW1qynPKe9qvqpP2I/D7/RhZD6yfewJKhgeH5OEfnjXjY/D
mXRs8hYrJZ68jbbz/lAHMIRjJwcwej/C2vPcK/pzX+dDyxaTtM8BPKLrwKj+
R0qR2p/EbcKUKLNLJiOzCdMTTfU9HeEI3jaFMLYgUmIisoumsTbaJdlES5PZ
2dnqzGRevqGwQU+xsSVcQxuFTHA8NpRwW3YwVH+swwnjnY/HML4Y4ajZ9iXM
LCsSnOgVurA6X4cheps4op71ccZ9jWZj/iwOpkuWtb+vI57C8fQJjC8p+s5b
tX9WN8+3eB+zBS14eDKOaO/h4EriThHTLb6NQpIACh4iNu9Yixh5BifN0wgT
RpGNnS1rRFfH1atv8iHljTqdIehMVZ5w4/oq05gyCye2faCrqmUeH56fVWGI
1FvoVrC0sirBiN6HE8ZN0d1og4xqQzwtSZijuZkRXxNb2p62BZy33Ed44QGe
E32dwYdsKf9kYKSdlC8dHUYqFGi8t5bwWe6ievU13peRPR+DJknNSSyqeXVK
+QJAyQYKiICMQuCjFeQlm8aWn9QNkKg/xybvUTDddwdjxPin3IFv8zdl0m/E
vlJiM5uRImL6kvSHRbZ4d38+soq1dKo51KYoFTPSSARYPe+8FUT/xRJMZjsx
l1uIlXBY37icag9g+lYAs9TmOgKYp/ZgZFwsMkXpjxA1Q2GMtgFe433HDxbg
WqXW96wBUldeDXLMVep5bpoHYYcPS1UdWGtoxGpdEfeyxzA3PI4+Ry26Prci
SO32RSvuXLJi4NdWDFEbuWzFWJYVE9TmSmuxPDqub8OzkJT4v9H+CpckspIW
G5onjtiRUydt0kvB/qg6hCXdhbyzQfW8wj6JRX8fVr0jtNbvx2h1I4ZbWrUZ
t2KGhAjYa9F6wYqOz6zwkSB+EqSbWi8J00+CDJAgw9RGSJDxKyQQtamrVsy7
akWZYhVOpIeI73Ly/0/8oZM/cSG3WQP+nIHE2tUGNOVN4v3UboxQ4ZkZe4A6
xwQactsx6vdxN9yOKcJdez4fjZn5aCHs7YTdQ9g7CXeAcPdQq0nLhPdXVzFI
uIepjV7h+An7lCUf05Z88XODzDoEe9HYJ/6RY/vv/6zTNxE0GrJZxVtAq4qL
J1vV847CYbS0hjFXO4i7jgG0XOlDQYZP3e6ZC4+K30wmCXz5uXxUkwD1mVY0
kQAVpkwUv3sG+YdSkac2E3Kp3ThoQvbBVFw7kIqr+z9Ew+lMBDKuIkwCTFJb
9Pq3cn+Jw1z49tc/cDk+eLsVdq9khUQe0WZTH7wdisrQVnuD4pe8sLUZ3Zeb
UZtRhxu0emIb+ZoVHkFzYQ1cJEglCVJmOg/74VQ4Dpvom7W0BNgOp5FPFhxK
g5VaHrWbTJ4DJpLHhCv7U2H/6Rla8uRjwpJn9BsVyaPtOeHvOf7UdzrZDoKU
aFJUol+W2YbsdD8y0kfho/vD9xRRvRd9AYxeKkDveRtaaOFnNxewXCR+mrCf
zUMxScHUX3wklZqJ5ik+kkYWLjpyCk5qjsOnSJhTuii5B9Nwg0S4vt9EZknF
5Tc/hD/jyhNS2WRisJIbtS0sdtBpyfleD0q65QW9JkfVpSBO/nsxbJYZ+HoV
3J1TxIatlQF95wxKCaDriCkBrqOkYxfB20x9p1BCrYhAOqnZD51CITXrQQ1s
DtM5gb3yZipcmbmC0LHyySgUy6sc4N/yW2kn7qL09lqk4pBcXQSwzjII095K
OPIX4B2IcMPe4hqUkfrKVPWVH03DFpQTojJqDGMsQhuhKyBk+dRuHkhDNqHL
fusMCs7mPckFZixXZHxSJ88nP+ITnvpgBO2D2rpJKD7X7EBT7gR+frQB9uJl
dIQEzUrGVFkNGk+cQQUBrDhqQiVBTKCzU5TMKwhYuQBK4IplNTKQBDCXAOa9
/anqK8xnBMWUuRFnRH/Db/3sZxMYCMvb7smwmsvUhPGL9zzoaF6DOyTSYRJm
CCKLBt9HmQxmAiqPMDVW0KdAWHaYIyRkzkMMYRpHaELxh5lqLLKYLDqbJwDK
f3rgAP+a3/o4fVZdxLMr8ZccZ0YNsk578CtTr54QXhCh5PWraWeC2jjlUd9H
F9B0PD2BoLFwKaN4d1ErpVZMwJwU7TWmC6hPt6hZjmU7lvVY9qMsKDZZ5V96
ddqEv+IYz5xbUJfwWtnVMLoyWyjau2D+dAS+gBrtfEdkO+bLatX8zvI8w8jy
fojy/xC1u1TH+qim9VALXtLqBasbrH6wOsLqCasrVF/EprLMMPVfYfGXHBwL
2V9eWkZoVtE5jBrGF/0UxkUUxtNqGN+ZXX2Z11ymw+mrpABej0azNHyDl7V6
28frV+CiVo9ZXW4jbKxOU70WG6Hs52W2GmJ5hmtslwRq3xE/RubE31mS0clC
9+oAUvdVwG7VQvcVXscWPQG1qo+zKsmrPaMxjM4wWsPoDaM5Y20BRnv4vwZ+
qM8WxMG3KcXeE9utyQg096hx+PFP6mArWsYtcvLf588zSsfo3Qw1/i+fV/VC
JHgM44vsqDYXwpNRiL7MQoQ+L1RzebujGUdPdGPsviJ2vfPNLlx8vwXp73Wo
QTVK5tD+boE/4o4jUw3GRHMoVbCj/VwV+i7XYCyHinRhBVp/cRNvpd7BSGeA
FzoqERnVuHy6g0Lith4S/yYPH2Eyw/1DfEW4CcMFXZgt7cTQ9XqU/bwSYa8P
SlMxik87cT29E788E1K9d4g0t0cebos+XEdth3reWDCgft8bX1D7Pc1juHJx
EI7UWlR+VIDAzWo0lPr3yqNEFqaeGjJPZ1Biiik4fpoYOREBzyD/fSl8F7ed
tjgjjPho7dXTkKCRAk3kyeH7qLD2oy7bgb2SITXqoIXqynQYay1OKLc07r/W
3InFmiAmSntwJ78b7Zf9cGV0qLv9tc46Mc73OTFfdNdhpdyG1XIXlkqqMWNr
QCinkWKjQf2bSaG6t67tSfNXtRXJRnVT9X5VHaUr8pxf29Bzzo5Wsx0u8qhK
sj97ZZ/2ilgazFKXcJH92q3fiP97/n/+wlf+B1JlysU=\
\>"]], ",", 
   Graphics3DBox[{
     {RGBColor[1, 
       NCache[
        Rational[1, 3], 0.3333333333333333], 
       NCache[
        Rational[1, 3], 0.3333333333333333]], Opacity[0.5], 
      SphereBox[{0.479096017367368, 0.6444523614222599, 1.125}, 1.125]}, 
     {RGBColor[1, 
       NCache[
        Rational[1, 3], 0.3333333333333333], 
       NCache[
        Rational[1, 3], 0.3333333333333333]], Opacity[0.5], 
      SphereBox[{0.479096017367368, 0.6444523614222599, -1.125}, 1.125]}, 
     {Opacity[0.5], SphereBox[{-2.7093919752495497`, 0., 0.}, 0.2572]}, 
     {Opacity[0.5], SphereBox[{0., 0., 0.}, 0.1786]}, 
     {Opacity[0.5], 
      SphereBox[{0.5186322709726899, -1.7238134822591613`, 0.}, 0.5241]}, 
     Text3DBox["15", {-2.7093919752495497`, 0., 0.}, {1, 0}], 
     Text3DBox["37", {0., 0., 0.}, {1, 0}], 
     Text3DBox["75", {0.5186322709726899, -1.7238134822591613`, 0.}, {1, 0}], 
     TubeBox[{{-2.7093919752495497`, 0., 0.}, {0., 0., 0.}}, 0.02], 
     TubeBox[{{-2.7093919752495497`, 0., 0.}, {
      0.5186322709726899, -1.7238134822591613`, 0.}}, 0.02], 
     TubeBox[{{0., 0., 0.}, {0.5186322709726899, -1.7238134822591613`, 0.}}, 
      0.02]},
    AspectRatio->Automatic,
    Axes->Automatic,
    AxesLabel->{
      FormBox["xl", TraditionalForm], 
      FormBox["yl", TraditionalForm], 
      FormBox["zl", TraditionalForm]},
    Boxed->False,
    PlotRange->Automatic,
    SphericalRegion->True,
    ImageCache->GraphicsData["CompressedBitmap", "\<\
eJztWmlwW9d1/kKKpFUtlmRbXhNrsjlJM11/ZNw2aeK2cbd0nXH716NpG7dj
2aIk20nsKpLtmKBsxVJkB6RFxlookaJkkiABbiBIcAUJihvABSRFiuIKAtzF
ReKCnvPevQ8P0APtZvojP/pmLoB333vnfmc/5z784PnDP/y3F58//ML+5/c9
m/z8yz98Yf+hfd9/KZmm4j8HwEojbR/4d4h+ig8rQqEQX/zN+XqZv+IZ3TPq
xEHlS5lRfvH43q916Un+3MIzX4h9024xt7KygqmpKeVse9R9n0Jip/KZqJDw
+/0wmUx49tln8dxzz2FoaChBg7HF4OHP68QQxxdUalsVallZWQqV1157TXno
9u3bmJubw/79+5XfOwwIPqESfENwwmScTqdChkHZbDblUb5aUFCgLcMHXduE
4r9qEPcpE0n30D516pQGTeU1QYHLa46Ojir3tba2EnN8bUvEImER/4vx1Sdi
SJmJk5TjBHCmL/lLFHN6kW3VuHhSpfyn2gTdKbWtntGxyxjMYzEkwKvLlaQV
8T0HDhyA2WzGN1QC3zUwsDgDyd9vvPrDOlHI1YX+eGVJSZqzak/qIySpCFMQ
Kvm6Svp7Qmn69SS+3cZYHlR+3GdoZzqd3y8ExqqQ6uGhV83X/k+Es0fwIG2E
Rc+H1+sVClYNgn2Kzx4QcwyYkfDZU/eYRkKEacjfe7QbdsUQgzRHdjWS/SMC
c2ZmphYi6Bax3l/ECmJRupZPEotP6jg6duyYstZXVWp/roFTHetBjYbedaQy
BnsGUVdUhU6LC83mYnjSStDzUSkGMkoxfK4E4xdLMHnZhoUqF+5092ItEHxI
rM0kpeS+oq79jBbV1fj2iKIOjjOsDhY9/+b1+WpXcy8sZhvKzaWoMdvRZK5E
e7oT3RnVuHGuBreyajCeU43A1WrM5FVh3uLAYlE5lq0luNvowvpUcI8QrLRv
PkiwAs6fGQj20RiCjXCih+CubUO22YpPzGUoJlyV5ho0mOvRctaFzl81ofeC
GzezmzF2tRmT+W7MFLmxUNyIpTKSk70OqxXVWHNUYN1RivWWBmxMB4WxJGjO
oFfel1XEf7xp0tgbI/xIp2Mhq7b+MByWemKgGFfMDhSYa1FmdqHa7EZTegsm
WscR6JjAtHcCc11+3AkuYKnXj5V+P+4OTGBtcBxrNS3YqHNjo74Bofoa+rZj
o8aKjdmg8LVIC9ihqf6B2MJ/IEr40iL5IEtJFJcdlgbCXoocsxPXzA0oMjdj
oHl8u2A/NLeA0Og4QtfdNOoRaq7EhsumQJOBm1dg6iI+7jQAsyc2zt0ieEYn
YzYz6dbRGc9L1sygs83VBLwRk6PzWvAM+ccQ8rgQaiOkPpfeEDhSyIDJ5DYv
GzbBvDNKttI42MJIApIaQ5fOHy9wZJMTMmyHpVuLcfGaPrdLJhbnEeomJjxk
CfPBaCPQ5z4DyM9oYWmHTrgGaUzLD263W+SvePhHg4SwghB2GSYFI1n9luRx
iXD31iE02a8pRK4t1t0E99/pInx0/cG6E9WeLKC8zf0EskMn3kiqRnPbNKBz
GLXnKmd6E9HnVBbQtthof1uzns/rzEGaMB+Mn4js1vAOknDn/ld4pbQmmqqi
1o9Vc6nVAr4ZRYyPx2JkUGkNwhIkff/ArShskZVAKLKo87QuYbrKp0H2d7ZH
Ofk9tnC/RkP1KDW3/VoxWQb3vUKZoembeqAKnTjBv56m/O1ppyB2YQmtA0HJ
QDblSXnbLqFiXsqg9toV09TwOzEtKLLQZkpsPLpCu7+/X3tEVgLrAZob8yhn
cVrciNcrI7h8Fx/kLmNjalBzTIfFq6QoPSm9/RhVepJ4UmxGNqvJWDyC/GPi
0dWxXgprDsX7koQMjr5UgAu2NY1kzY0Q1leXt2rAuwl4pRLy9+rCoIxiYRMy
cp9EnaveW8fer1ODQeEXr1vObldtQXKy3kqy7KpGaLhHFK7xOJZswyX7Rlg1
NOfxbWB4akYYropCZamaRgkH271iOsqkdn4Wxr6p3WQU6aMLUFkM7RM+sjFK
6mgtoyxTi9Ag5aPb8xrw44ftuFIdGfHzrq9rAGQq5tSbY24iZmpolCn1xKMG
BrbdWAVGCUbw9rQQmr7L4MJAlwlELZyEjS6qnNzEyXVSSQvlzV4f3nylDtdc
4Rb1avkiQgGfTj2JXOmgkCqeq2augpySA6llKUhmYpsm6rjoyCfBC0fZq3mO
PjHo0y+zQUL5hohqGx5CX1dCtV8l3v4vB/Idc1ivbcaqswWrA+O4c2MCy30T
uO2bwHz3BC7lzmNiZEGpLZs+akF1mlupOfNJBzlUg7JhEReP6wyLVSAMa3ds
kT9qcOnhz5A06Leabx7ExqAPVa9/jOuFbirKK3HXXoPlsnrcLnFhtqgRwYIm
jF9zYyjbjb6LTWjun0ZLegMV/HVU+FfDRvivkRa4IfA2+76gMyUZ4hM1+Sdp
v+5TGdil5Y8EA1YejMof+vqCifPc74kA/c4bfSjuolDU30tNkA1LRaVYsNgx
m+9A8FoVJnKcGM5yUvNETdTZKphP9qDp/TxqrsqpySqhZsvKTdc+AUMuxZaU
YOwKaixV5a3w9JBwadnXSevhNjvapX9XrvPTIZT2hnRGvh2rk0GsdPViqbMP
ExdtGDlXjMGMYvjSuQe14erbNtxs7MYghdip0eAXBTzZVwuz2bIp6kdiJofY
IUlf2f++eD71+DjsNyJrNU/nGoaCagz9ioE9GNUmYWRGNi27m1iFBIcWGXX1
RbyU8rumICoGVFqyGr3WuKHR/7KYk3SZy81RhmPG9qiYITsrETPidAKQZP5Q
zL33/hwq+tR52YVdKSHBBft0sLZo7LBR0RJxmyL7ks7/o/szTle8I0kEvyXW
e/+XSxiZ1m8fUeQtW8X8qjr3VTHHRs0HYwkHVDU2fabdz6eldbh78MJ/ejE6
G66MG3tnNE6+JOSp35bT0RHl8qdEaqP9vm9pAHrxYnIPxubCO12nzvmxMXMr
AkD0vpzYnhEA7tNkYJTuw3lHmd8SlRr5ELWjsgzz9ycavH4c/FEfxhdkAIxH
eXcIa2t3dApRS/Pc3FypFLGzkKQF1OhMrUKNgKXekqDpVh5sJt/R4AzhyNFB
TCyGC1FP+x0MBGZ1cCKbMaly0XghchM5LJvNccZ8jFbjWCcPVjnXGt/WEI/i
R28Pw78kk2E8cmrDzv41Maffbtutk969nrVFWETUtPyOE9rVX5YAZZQKg/Pj
9RPjmFwOaTHYM0nPTN1Qzp4SCKI27SLwRZra1s1lpXYlDINJhmEE8dNTAQRW
QlrAvVK4glnh9U/ptBr9hiVRs58kPapI/vXaDGOOLL+MSrLvagBn8eaH0wje
CeFxMVfXM3uPEuWbBJaxkXQSP7NbGIkwjGYBP0ufV9A8IX2ynVaYHdah2aJE
IvZlkYITPwVQgoEAwiAjEbQs4p2MKQRX1lQ3DLeROsMs8YQwdWsMk80+zDT7
vi4e1mvPqM5KjA5pRrKImtui3axFirYVZF5dVs5Um9p2j0lUWuqRebQS7W0D
GDpfjuncEizkFWEtGBTlQwJm2nyYa/dhnsZChw+LNKQfy/cz4bLMkBOj9v4Z
MdfpuYtzhXeVs8cMYFbk1yrntekt+CTFg2BxJ+5Ud2DD1Yj1+lJhZTuwMBbA
ZKsP3R9b0EvjxjkLbp63YPiCBaMXLVS5WTCZZcHUJQsWeNfbHxDpJkapZshJ
uF2W+5q5F7qRVbYWFrMuCW1F9hmHQqYpZxSV1mms9NzEuncCof4h+GsaMXb9
ughnuzBHHPhsdWjNtKDjVxZ0Ehc9xEUfjQHiZIg4GSEuxmj4iZPAJZWbmcsW
3K6ok8mJs4e0rrDhigL/n8VNx5ItyKlSg/DjQoJ6dnlkn6hXsRdM401TP/zk
bXOTd1FfPAVXXiv83Z2Czz2YJez1ZwvQmFGA64S/jfB7CH8XYfcR9n4ag4T/
FmEfIezjNPyXBA+EfyabqkRH3W5hc0bFhlrY4Z8EB8eP2HCtXv+GeruCttBc
qXz/7GAHOqxjyu+FuhHcKh5G86VBFKZ1KrsH80G/TBTTBL7qowLUEAMNGRa4
iYEqUwaqUzNIgvmHUsgk8+jzk2QTrtHITU5BzsEUlPz3abhOZMCXdhlTxMA0
jRVvj7bZFV2xCPMSG1v/KBh561XqWJtDYVXI8GdOvQlvRwgTt6UxJiBo4bbP
jbq0emrz7Mp2gayM3UW1qCA2nMSGw5QRB9vhFKpjbYdNNFJhpVFEo/BQKiw0
8mkwR7kHTcSNCZdeToH1jdMIEhdT2fnSN6QqhEmpG2L4BwH+7R83oLA98nUV
V5SOzDZcPeND2hk/OntCGFsMyay90umD/3whBs5acZ26PJu5kN8AyQ0RW3o+
yoiLsqOnUXokBWVHTLRO2ZFU0m/pkRMoOXwCxTSsNJiVAhp5yam4SixcedmE
y4INf5gF1gOzIRomwcLfCxbeeb0Ntk59s54IL7FQc74Pb/1HOWw5c+ikZmVo
YUNuw1oYIynfTtgqjpjiUPFKKkm6guDZxSijUXpYhWs7dAJFNAqSw1BzCGrW
SymoyMiTZZzMnZy11O07saMfj5Sj3Sj16XcyE9BNGBuyR5F6wIliyzK8w+GK
cKCMTIGE51CEV6mgqyREDhoSZblAqAiT0BUSsnwanxxMVQSZ++PTKEzPf0jw
zP8NkOGe7EDEkx+IBVOPDaC8X//mLAF51MY35U/j/VddsFEL0zEua6wk1g4a
j59G1SsmZTgJovOVE6giUHEK1G0qUAJXphcjASw4yCBNyP/JLxRLYYuRCUn/
hkeUQ38rLp14cxT2fjXRyDhTaHbg3Fst+OCYF57mDbjHNiC3fYIEMUC+0Hky
A05WsvMIi7GKPhmlIs7DYYSlhxhhqkBoQuk7GYonskeWpudLgPo3SALg34hL
76YGMBzQt34JKEmvRdZ7HooFg1oskO/KlynUTCvOWoAAxdDOk5loOnZGQVhJ
w0HOXkGjnFCV0SghZLWmTDhT6D4KcRzqOORVEkIKgQ8LvmV9KRQtEt9fC5An
T81iZEq/DSAcPqMFuWd6YP4FObxPcfgvitxAcV2J7xznGSfHfY7/nAc4H3Be
6L+g5gnOF5w3OH80E0bOJ3WEcWYs8KjAJ5s2oWbxt4e/EvhOmRcxOqN/q5ag
4Ks+7yNvLoM1m7x5UFbUu1RwlwuURMrJiBPrWJaaaDnhcuLlBMyJmBMyJ+YW
AsaJmhK23Ons6enRXrMJif2luPThx3eV3pbP7hOIuhTfHYHpQJXquyMhscm+
QylMlj0+FVGWWrhwyudChgsaLmy4wOFChwseLnzEnwi+L0s/In/gcA8mFuSm
agJ6qY9typ/Cz19tgLV0Fe3kjX8grt2ZCCilHZd4XOotjwcg/m/zdDgjbY8o
OPmoMRfBk1aEwYwijJ8rUkJ7W7ELyT/pgX8xlCDIW8wVipedOUYpmbzMPx+C
+iYef2RQe/DfAXLNxXDQY3wMXqzF5LVaLBQ50fLBFbx6nLrxLh/kK+HitBpc
fNeDX6YOwOtRfeTf9eT3RJDn11IWcyMaPmpX5scKuzFv78bIlXrYT1Yi4OlE
yF2O8vdKyaK78eHpCXjJokcXQy/oqe7UqHbUtRPVVrgKhzHaMaPNe9zjuJg5
jJKUejh/boUvrw6epoEX9VTCza2nthv+Tp+uV0zEUZMfDi9dGxFl2XwQN0qL
IyiE241xby9CfQ3q+dS0LMinx5ZQZbkF+0UHXtRpNS7cOGB1Noj15hKE2urU
6SSs1PZi2t6HoYI+tF/sQUVaB6nFhfoSlyTzbVGvL7vrsVZpxXqlHXfKazBn
bcD41Ub0nnOhMa0OVmVT3aq8GhePfkcUyGuBIBad9RTIyIQuWHHjLDmR2YYK
Mi0nGQI/ckB95Dfiz6D//wV87n8A/XnqGQ==\
\>"]], ",", 
   Graphics3DBox[{
     {RGBColor[1, 
       NCache[
        Rational[1, 3], 0.3333333333333333], 
       NCache[
        Rational[1, 3], 0.3333333333333333]], Opacity[0.5], 
      SphereBox[{-0.43273977277250053`, 0.6764526066627322, 1.125}, 1.125]}, 
     {RGBColor[1, 
       NCache[
        Rational[1, 3], 0.3333333333333333], 
       NCache[
        Rational[1, 3], 0.3333333333333333]], Opacity[0.5], 
      SphereBox[{-0.43273977277250053`, 0.6764526066627322, -1.125}, 1.125]}, 
     {Opacity[0.5], 
      SphereBox[{2.700451514084544, 1.024452361671977*^-16, 
       3.1692039755016067`*^-16}, 0.2572]}, 
     {Opacity[0.5], SphereBox[{0., 0., 0.}, 0.1786]}, 
     {Opacity[0.5], 
      SphereBox[{-1.127946316838481, -2.442853015539306, 
       2.220446049250313*^-16}, 0.2572]}, 
     Text3DBox["16", {2.700451514084544, 1.024452361671977*^-16, 
      3.1692039755016067`*^-16}, {1, 0}], 
     Text3DBox["38", {0., 0., 0.}, {1, 0}], 
     Text3DBox["19", {-1.127946316838481, -2.442853015539306, 
      2.220446049250313*^-16}, {1, 0}], 
     TubeBox[{{2.700451514084544, 1.024452361671977*^-16, 
      3.1692039755016067`*^-16}, {0., 0., 0.}}, 0.02], 
     TubeBox[{{2.700451514084544, 1.024452361671977*^-16, 
      3.1692039755016067`*^-16}, {-1.127946316838481, -2.442853015539306, 
      2.220446049250313*^-16}}, 0.02], 
     TubeBox[{{0., 0., 0.}, {-1.127946316838481, -2.442853015539306, 
      2.220446049250313*^-16}}, 0.02]},
    AspectRatio->Automatic,
    Axes->Automatic,
    AxesLabel->{
      FormBox["xl", TraditionalForm], 
      FormBox["yl", TraditionalForm], 
      FormBox["zl", TraditionalForm]},
    Boxed->False,
    PlotRange->Automatic,
    SphericalRegion->True,
    ImageCache->GraphicsData["CompressedBitmap", "\<\
eJztWmlwW9d1/sLFohZHUpQqdW1HSmJPmq2JPVMnmWk8k6aNmk5tTxLX7Uyn
nXGVzMhN48SW5HETO43dNhHF1IodxYZUi9oparWIjYsI7gAXgNhJACRFEiQB
EgtXgOJm8fXc9+4FH6BHWJlJ//XNXL77tu+c+53lnnvBJ549sO/7P3z2wHN7
n92958Vnf7zvub37d3/zRy/SrcIPATBRO7YbrC9Rl/8xQZIk9vD3f/oJOxUy
KV9Rbrwqn+Q7co+1P/3ARz9lpwIVzCsa7z72gTB3aJOt7D+zUxF7/JRyY28O
FDv+iN9bXFzE5OSkfPWo8vR7GpI/Jv8tll8/f/48nnnmGfl5Op0Wn31f47Md
8t+N8mfNzc3yZ3v27IHZbJb7Op0Oe/fulWEeWR9mm/z3niwYdjBN6NMC+XER
ZmdnZbQ333yTSXhERQeKsgDpUDA3IBaLobS0FM8//zxefvllhMNhGZfJKeKf
2mw2+R12uFyuLykYf5axJqkreFWu6NiVefrhdbRnfdK+hFPLLgkckUgkw8kX
FdyvaRiwQIOnz8l/SzTpZnDBYBD19fVb+KdsmOwRu/oTBfhxrowaVUjcmHG7
XfwtwR2T8dprr8nm3MY5YzoweZyzzRmn3PW7jalE497964yT0cfGyRyBBraN
q8kuxWPB7GYN8bvusGtxll1Ff5OGSn/I3UmLekYNk/kxFe+MKuVK8FKkgfpx
Reaf3yUvf6DyNGGbO+KkEAMDA7I+7GqnKg9wU2GLBvSDiiZfz3CjRcIOFQki
SwjihbPdn2MUdm89o6gEP/E7pAUWxqrhMknsEYvs+7l3iuGzz0h6iXaO4A7x
N5lBb81xPOH8IsCYKEokD3HJTCobu8KKANmtoP6DSntBFtOceQsZ72GNwYk4
I1GfUUC+nEHdlSfVitEy9VhfYPM4yWWDYz+mTcr9eTy9qqpKHsMXVZ4uCPh0
XtT7uFsINlg6Zoff7+fZtTCjJmuf5zDl5eWydKYFPc8vZOcH5Eemvt1uf5R/
zeZFdpvTkh97xzq0sMlI+PdXNRLvw3lRt+dkWuEkzJcLVGhMArv6sjYtD+d6
y9Z1tGXGEkYs0qD9Ma6PSCEsw4vRKV6Pv1zHcdlBw9Ay5uMavMi5QI53Javh
U5kbD3Izqqcf9hkjhT1hAyD4b3AuaMbLcEGvaGW3jyoiHtJ4dF8epsTI/0qV
VUQRQv38uZ3LfCDvSzvXSXFs2KoUJyo41r6lQeamHO/ix471h71DFSq5PKsy
3ZMa/kbMbOJuokYUcj+yvtDtGilR5DwS/LQqoQvqN+aRVJjxmC3ry/wwJ2id
2jKTN5kONLLvcgj2OstRbB4vyYRVYXYvR9RmlSPLL92bk49ySWaOTN5bqBq3
UOnbfNzq0lVMN1vuRosvaXAtQEgXMTuJkkrQwHnPdShOuVYBx+V9QT5t/ECe
Wf+fVCSz95jQjZlBFWR6qrqbnbmVP3sXWZ5YFesCZkGxHqHRbl1/CH+chzL6
cp/KTKLkuzfH1jzd3x0NApDZQNDwgALzSQ2Y3DGKEPkBH6gwJXMZ6hdnVOOZ
aDePh9wVkbqKCTlC8OltOLLvFXiPXkGi2oZbvhCWJ5L/oho+n3a4fdaZK3ke
L8wahPLuZhlFHA26G3Afb8LNMy2IXWrGbFUjbpnqsFhtwlKHDc9xHEECG3h+
yTkRm2PuNS8rXMvLJRkzqM3F5kGqGNZ8fzMqdTUw6Nrl10IXfIjqezBb58dS
swertm5IHVastpP2jQZu4bVylOfsgrzKb8jMGLnhpgwoS/kCnieYUYXy7NCy
znh4HJd0DgWvBPODs1gemcFqdBrS4BikQC81BySvBe+P9e1TRcPly5czqHlS
wXb+MHu5vEZ3/kGt+xn3bdVRlDMyb1tgPZ2EA0jxEUhDDgyaLkEMjTkhiwB1
NOUf2gZtyxVxwJzb2VxtyHosRsQcmhU2CsSDa8YKDCj9pfksOGPFCGxVUTgu
D8J9zg/P8S4MnKrD0OmraP+JHpaX9PBUBJHuWULaNYdUZxyzLSOYvhFCwuDC
+KU2jJyqRd8xI9w6A+qpPc3166Hot1P0t+uM6KHnwyeMmDhtxGJPKKsaFWWH
Orts0CBtY36zFmYtUIpzSFqO9in9QQ+kqSTWvrsH4RkJSykJU5YuSMEQmvRh
BFtbFEmfRGhSQuuYBHeMMlpCwnBSQoTOMbqeHJcwPSphblhCqp9a4H1c16fR
aJhE+/UIHBcH4D7theedDrjK6uH4uQnWf9Oj5qAeqdAq0r4FpJwzmGufwEzT
MKZqe5GociB6oRnD5dUIEp/d1Abtwceyo1SZ0rbgOiWQZl0DPP/TisGzVsSu
WJEyNmOpth5zxvdIE30mlMkzdqr5zfYhdQitsZ89aWpNpGvpkT9YnExipcPE
X6bJ392DVUc/lv0R3Lo5ienAJNwV/WitH4enYxyuszdwe7D/Ps53Ve8KbFEK
w7iEPuI5THxH6Rwnvqfo/gzje4i47pPQ1bwMoz5FJkug49oouiv74D7pgueo
Fa5DtbD/zIDWl/UwHCC+A7eR9t5CyjGFOVsUM42DmKz2I/ZeFyLnLRh814we
4rqDWtAeVCa4HXdQVKkz4aKuSe63v+tBb0UPxvRBCokAllpppB0uNB/7LczH
juSW+GJxchc5WcvPlaJgK26T/640GrHaQrw1t2LR0olZMznNNSdCZx3oONYB
I2nINJ1akDA6soRohQXL1na+c/cJmG9K6CTn9RPJA0TuCJE8Tv3EBJEcIZJH
iORBSXbS7pZFVBtm0aKPoetqGM6KANwnuuF+qwXOX1Sj8xUDmohk/4UgUmS8
tCeNlH0Ss20RTFv6kTR5yC3bMXrmBgaOG+EjglupbVKFdTbDrTSzeOR+xDuN
dHyBE1WC1dQCpNgUpBAlJXuL4m+8uqbYVxNcrOGra6SrFrabsJJIYqHNhtQ1
I6YuV2P8XC0GTtTBqaullGYm92pHLJIU06OPPDBFCWPC5oc0PIY5Z5Dvun0c
NygT2InEHiL1JpE6SucJIjZJ96aJ2NkwfUvkp4KrcLcsoNYwjbaqcdgpA7vO
9VDp0gXXkQZ0/4cZ7T/Vy5q75Qy8LPdPv9qB/oshuS8y8Kx7QMwZvupOxHzd
coXENhN4OfbR3EpGy79y7hVlXt7OuVuIJDFFWX2CWtgREvtgvRSYM+EZvN/l
hTQ28nSOT/fEVvlVEc7+egg1Foptcq35lCSm0wb9CFm9A7GgNyubi7jhtcw2
jVnhIa5ElOzh6b+NpMEKyeP+Tk6CC9n70XnupnxtvjwDX98CH24x5mILGHZO
4ZouQFrYqdVlJnqxKcrqfq7F1gwvn+GyE3OUqTqGMUlushwMPrnGchGO/rsH
3q7b6B+mRbejUblN5VJTAPHqEG5eCcB5yg+LzokrOpssu0FvE8WWqMK5GYsz
c4ASO8ruM/sxY5G8bGQe7/sHkKpr/RYfWe1xKyr+2wfd4SH4vfRKWpQwm7Bs
t2HlRg0WqpswXdWGsUobAuVWSn/NqKYa+iJlD9KkmEtgQcZqV26SYs0JWtbp
cf4FmytvkVXijVQF9g18Q3ioPYjGk15cfbsPb/82AT+l8ci8tIEH+Eo8idl6
GyInjeg/bqIQNKKRWpB8jkLwHjHg7GIrjzpf518M0jTe3hTHYrMTq0MDX+MU
9ZA61nPD+MUPLDBfTcNP8fkAR1OvZbRKfy5BbB3F58kNhpYRrWyi+a/zK1yC
7HrXknjjYBvM1cvwRsVWvbLbxFKXeg9IW8g3+RczxGjYGoA0Mo60O/goF6Kn
EuD0fzpx9OdeeO2riM1JfNlXqN6VzDcMsS/VRak/GZ7DSrcfo/qGL6h96Q0/
3ikbht+n+NLD/JlYk7FDECZ7Ol8L/zWHHppmldYq4mYbJL/v0yqXaDrpw9V3
+mE4k0QPVVJjaUk8Vm/+M3S+XOZr5Cc4doSqOFfbKGaMXVgJhT6htu95su+/
WmC6RvYdET9fKUtJthfFiOFoT3G0qVs0J4YXsNw7hHmL9YGMLQfQxWz5khXG
mmV4yJaPqGJVtf/E9xe+w5+y+SLaRNTcHELUHtypstuZ/3Lh6Ote+Bxkt5TY
Ns1eG3Min84kAGbJ8GDGhqoCgZvqiB9v/4pM1UMTOznmV7keLGjEsjezNYNn
BIlzSv6PXmxZK0+UlUg1BaH7mAnhkyYkzhuw2BsqzLXfsX4YzybhHyDyUpLW
Ri33tb+TT9sybsiOUFsfYl3y0osKqy4MXXRiptqJleYO3G6rh+eSAdaKMH75
wwaYrs/DPyqJ2GZLHpGpqc+F/G0mD6/ttFGGuVDmQ/dvXOinmjxSRcXb1SBs
79TCdIJm33HpLziJjH2Gq/6FtUTN1r13FC7sXFlqkfuB4DxuTazAbiEvccyj
2zQMr74aezgpYsXGiClRk7IlixR2jrV3yf1VKjPSrYMYMQ7CfiZE81U3bDUd
AlH8JMzySUmuu6gY2IClGhNumS2IX2lB8GQLmnQWOd1TfuX+yn9v2oApdwjx
GkrHp/UIHrkIJzWfySa/quxu4u+52hOuEPwn9Qic0qOfXh88o0f4rB5j1MbP
6RE/r0eygupwixWLvtC31Vxuw0w0gc4TVegupxUnofQQSohQBghliBBGCCFC
bYJQ4hUK0tQFPdINVqzEEk+pTE5ONkVoLe9WoZ0Q7YToIkQvIbaUnkDr4RNo
o1YAa9kJtk7VXcB4BUclxKnKKkxTI1Q8qYb9COzGNjQSbCvBNhCUYf8hWlqw
Vkr9UlRRu07t2ouluPxCKSpfOATzz96CjQTFCTJJba6hLQu1GObj11H3ZgWq
CamGkGoPlpJytQcPU9TXHCij+2UwUTPsL0PVi4fxHjUZ/celOPejQwgcq0Cs
8nq2skXob3USyCHcILj6g6UFsBDiFuqW0a0y1FGrFeiErN+vIF9RIfe/V5cF
eg+SDW2wvf4WYZWigfAaX2KtrIAuyqiosHBwGXg/BybQay8cxiUCrSDQlot1
OZrGSfkJoqbz9d+gkWnaJGvaRECN1Bh0PQHWUashQDM1A+OBQK8QqPnXFxiH
Oawu+IMy3wlqQ8cr4X+jnKKgkZBJzQMccT9DPAwTodW+ehT1vyTXINsyGzuM
wk6Ki25HilyNOQdzkji1CXKYKLljSFcJ56/K4SgrR9fhcvSS2/pOKU7HnI85
YSshMqd8Uh3qW2Xvnb5QhUmCS1Qo3h0lLx+lNkxef/OMEgW9BOclOCfBBcxW
OVqeyg4/5q4UVpgkmATBTLCAYYFDbeiMEpJBgolTmKaiCR5+/yimwokE5jwh
+Uph8P/kX6P+/yRO+ND/AthURRo=\
\>"]], ",", 
   Graphics3DBox[{
     {RGBColor[1, 
       NCache[
        Rational[1, 3], 0.3333333333333333], 
       NCache[
        Rational[1, 3], 0.3333333333333333]], Opacity[0.5], 
      SphereBox[{-0.45018884960331407`, 0.6649675478494008, 1.125}, 1.125]}, 
     {RGBColor[1, 
       NCache[
        Rational[1, 3], 0.3333333333333333], 
       NCache[
        Rational[1, 3], 0.3333333333333333]], Opacity[0.5], 
      SphereBox[{-0.45018884960331407`, 0.6649675478494008, -1.125}, 1.125]}, 
     {Opacity[0.5], 
      SphereBox[{
       2.6835180466947515`, -7.293806685074257*^-17, -2.372968533808827*^-16},
        0.2572]}, 
     {Opacity[0.5], SphereBox[{0., 0., 0.}, 0.1786]}, 
     {Opacity[0.5], 
      SphereBox[{-1.0018594593055028`, -2.5044075124678016`, \
-2.220446049250313*^-16}, 0.2572]}, 
     Text3DBox["13", {
      2.6835180466947515`, -7.293806685074257*^-17, -2.372968533808827*^-16}, \
{1, 0}], Text3DBox["39", {0., 0., 0.}, {1, 0}], 
     Text3DBox[
      "17", {-1.0018594593055028`, -2.5044075124678016`, \
-2.220446049250313*^-16}, {1, 0}], 
     TubeBox[{{
      2.6835180466947515`, -7.293806685074257*^-17, -2.372968533808827*^-16}, \
{0., 0., 0.}}, 0.02], 
     TubeBox[{{
      2.6835180466947515`, -7.293806685074257*^-17, -2.372968533808827*^-16}, \
{-1.0018594593055028`, -2.5044075124678016`, -2.220446049250313*^-16}}, 0.02],
      TubeBox[{{0., 0., 
      0.}, {-1.0018594593055028`, -2.5044075124678016`, \
-2.220446049250313*^-16}}, 0.02]},
    AspectRatio->Automatic,
    Axes->Automatic,
    AxesLabel->{
      FormBox["xl", TraditionalForm], 
      FormBox["yl", TraditionalForm], 
      FormBox["zl", TraditionalForm]},
    Boxed->False,
    PlotRange->Automatic,
    SphericalRegion->True,
    ImageCache->GraphicsData["CompressedBitmap", "\<\
eJztWmlwW9d1/sJVjBbLjp1xGze10yZOPZ44ids6M4mTps5YaaZ2JmnrpJn2
h6M4S2dix5bsqnWs1qnTcIkdS7EdaCElS6JIiZZMAAS4gztBElwBkAS4LwBJ
kCAokoBIiZRez33v3scL+BF2Ztp/fTMXb73fOee73z13IR978uCPn/rpkwd/
sv/Ju/c99+TPfvyT/QfufvSZ5+hR6ocA2KgcuxvsWqFL/mODoijs5f/i6UV2
SmXwD2kPDqsn9Yl6xcqfv++rn7NTigTzksG3f/G+MO/xJt7Z/eyUxl4/rj34
QQKU9OopAyt38mehUEh/9nnt8x8afH67+puO9fV1NDQ04IknnlDf79+/Hw9u
X+1W9Tcjrtq+fftgt9uRk5OjskRV2CtR5bNSfEiLQ6NjrwTIXCcQFZAddJ/K
ay0vL+Ppp59W7UWj0c9JFKk2b1Ef7FBhCgsLdb96enrY96pDLpcrnYfEblmk
7BX370s6FlJ1vrU7Oj6zTdzsTPdZ3M3JyUk1AnYQJRz6YYOWTDEg9z71N0s3
Irhg5DJP2VtGBAWCLN5+7J5ZDQaDghw8oFn5Mv9ENiHMf1gX4x+pzzLjmDt0
6BDMZrNO0V7uLDMmnn3m94sty+DZHxiQypljJgQMC09U2cOJFlX457v0zvPx
97RmelxriuudBv58VBJRorgFv+TM7RL17BXTGHvFzrsM6OAu/fUHZEXumaJB
2OH1enGXQUOk6bGnGaBpzYuv6nwYBX5rgvDkwEXvEeY+xuuzb1mPZN/sNsDU
XOUZK/7Vnm0605EjR5gZEQZToJD9H/J2FxY534l0S4Yf0yPewwkV6UUonOlK
aIy1nQC4x4DkHcbZizft96Q+lMjfyy+/rKLfK/HGvGDIWbqPf6wBPaQ/+Pg2
fYM5LvUN5qPg6JM8TobOeGKfCl3+mYb/l8ZhfIz7LxgSLDOGROa9j3/D7kVW
FQmJxcjuP53Uyp3Jc+iDPKSCggKVHHZ3b1LAO95HtsI9dv15DsHQ2TcsTAoj
uYHbpIQgD05yQiCQL0iNIaj4VFLgvQZUbNO6rFOwuy8Y0PPJRNXsSZLBmFc8
ZT3MvWKP2WvmNF1zuK8lqFmOWujpEclDMezs1scULYXhT/QHd0ktJec0JrDE
lnpESvElJSWiCxrlmI9odv7U4NWd78ME84Ks7+PG2CeMfPaYPklPmlO52buS
fnTHNizyJKc68VgCi4yOXQmK4cdt24f6ESlUee4jk0tt9rgxrzt51pARhd1b
tze6Nwm/rGswSdH5WxK/7BXnN5nRVF01O7c3vztJLiH8VIlYNltid99OIJvJ
eCsBp8ZfJZj7sCRo9aPdPHyjMUWImQx/h8cpi0A0/u4PYvGBJCMLGx+Zze9x
LkSmZs9YcIxrk8mUKCjOs9EkjRu9/4ORK7TFyj/zZ4JYrbuLAFP0K2luzc68
he8zYJN3UJnN70tpi33Cmdy7fST3bkMfc1HQ90OOOjIyIk92btF93iXL8Pdi
RaygWBXBDJ+e3MN7kTy0sCMx7H2PfB1vvHgUHSYbfMftmDplw3xhGVbrWnFt
wP8Ud54FIjI5eaAN6HxWkW4YvsaXFpvD4lTvHEerMHDKiekLbYiYnYhVNON6
jQMbNeXY6GzFRjgslp5iSqgZEFTJmdGAdjn3afrbo7fa7NQMLpoa1fvutwcw
dtmP+YohxBr82HQOQHH1Qelqh9JZi/XGMtkPdrBzmrHSeerckbS/bek0dSuj
a9MFcVAzpXBxyUsSWc/u1kG8Y/JioieyZSgDSnQNykIEyrAfylA3FG8trk35
f8CNMFrEIoKoSU0aRqY+6iT2YM1iXBgpvH2YwuSD3Wdw50T1s/99GfMT4fj8
kInR03UYP1mGXpMVIy4flBX6ZLITK2M+Xd/y+iAlqfcJa+st1pNHtG01MsSY
Ewd1g8yEsLovlUGZ7oWyHtuqdTsC0wqm/dTHSjsRG7qBUksMfdVD8Jnb4DnT
C+9vG9DzX2Vo/jcLvEWDiHmvIupawErjBJbK3QiVNGEi3wYP0TLu8n2XO8OI
lZaxycnINNBhlnq3tWaVFSbQhCj5bDGTt5T4/MbMkHY9Qj0mMC3xl46lVQXz
Tjep0I9iUy+mB73c2J0oHyW25hQMhxUEqMzPK1iaUbA6qSA2fBPF71ByLAuj
8/IE3Oc88LzVhN5f2uD8dwsGiomi/nXEuhax2jyFpUov5i+1ULqyo58omnL5
tHndLiwGw5js9CNEJdLlx0q3X5/7ydPJJOPUXpm/zPfwJJ8T5aO3h1G+zkgc
pzYiYWy22jhKFjaof6/WDWHWPgx/iR/tBV44aqbRUdZJIptBhDrI7ZzOkSUF
rlkFvgUFU0RniNFJ9ytTCqIjN9HXvA5HWQSu0in0ne8nJbWiL7sc7S9a4Lvg
Q2zgGmLdS1htCeBK9QAW3m3D9NsV8BGdDpP1fr2TCzqko9pkh8tUBf/JagTP
VWOxpAKr79qw4fcnzv8Sc3emsWRTErgWh8yr0Qh/C//dXAzjWpUVm7UVuF5d
h6i9hSJyYuJ8G9wnW1FvqqfMWQEvqaKfROhyziNW04Zrgz58gjPqIxadJMgB
YnSSrufoHKFvV6gvR8duoqvpOqrKrqDdHEAvCdJzoh19uRXoeMmK8hfMiA1u
INZLSnPOYLnWj7C5A4GzVRg6ZkWryaptldwaF7nD0kr9pBxmco8dntOdmLzY
g3BZD65Wd2KzoRUFhw7i0Ye/KK8f+FaSRmb6dhI0ympiyXlt0I/FIivmztow
UWBD/zE7WmgO4CSHQsGwGCNW1klUgRVsunpwc2L4s5wpz8wmmgIKvKS5cWJq
lphaJKaW6Vl0nLqzbwN26zKhzaDngh/ufBfcr1bBddiKmn+1IObfRKxvFdH2
OSw7hrFo7cJMYQ1GjpfRTMSqzX5v06NhjVZMcrtoaoP9mEd9PlEfxMpQBOvj
EWwOBKH0UEDNDUR+uT654XOiOySyduliU+m4m8e5EFMwE1wnpGEos4Gv8Dgd
lJr6QgpGKcYZijFM11eClLImFDWGUvMqmi1z6C4ZhvtUF9yv16LrP62oO2RR
s37MHUW0Yx4r9aOI2LRxZOxEGUoPn6WAOlQXMrjylUgEoZZWrM4FE2egYsG7
NcXYyiRp+tU9PJbJKyTh8U0EL9Yj5mjRFoG7tfQb2kq/7LhCau+wjKHy1DiK
S1bUZ52XxtBHI1TINcUFlEmKiMF6yoXQYJ8+jxVS5L5tzWfv4354SQyxKJFW
1YbN7s5vcuXpjdo0jOo3HCj+jRemV6fU53NRRSjP17lIFLmpNGB1ISTStJhp
sFGZZ5Qv81cRGnvmWmgk9vvwt3Km/cVT5bC8ObTVCciLjclFXB2NYMkXQV/R
COqOD+KyqZvMNVKxCS/EThVviAw9KWo7q/gr/l2AkvFw+xiUqQAR53uUD4cD
lK9bi6aR/dN62Euvwjut8Ey3Ext1NtxsqqdzG1YrujBb2o3hwi64jndQfm0m
sVeTJ2WsN0L8XUG4og8mCQOXto3It4LT4KbmbW8KYbXSibV+31e5V6WmSrjM
S3j9UDvKKjfQN8vn2DTz3FgIY41UuHzZjvniSkycroLnWBWaKUlZyRuHlh/S
hdZooirmI9QkSXz6Gq+xTBklEljGRjtllPGhL3GfbNTMZ7J78eYrlFe7aTRb
Fau3NFyhUTxMKWCGylinfwevIg/qYlssfXsHHuVo89TVA4E1bPbTZHlm6iGO
VnOyAxeODuB3rwfgHaCUFlP07XAx62LUJ7HwdW5hnMTgGdvE0IU6rFQ3f45b
8JAYGs/48cqPKmAruoL+MUXPP2yGK+3zG234cCPf4DU8YzfU3hUqd9LayXU/
NzJIRpwXZpD7TANl4DV4AmIbTwsjbhqtdga+lBV7RYtE/GwTrbB9A3x5ywRD
qbtsGUd+TmnceQM9JJhP8XdCAfL6S9smxDc55FREwZBzlKb103ysTYed+tm5
PDfe+tUQPL0K6/l8EzkjbtOZFZ5ptFEBYsunJ8jGmhCu2J246vbdxYFr87tw
8Y0BvHlkFv00AQ9SOz5goFYywBfefycrc3oZ153duDHq/6jUbE1nR/DKv1TB
dnEFXsr9DyZI0Ofz6czyPYd/2Jo/UWsGJ+WhWPzFwOfyo60khLwDjbDZ1tX+
KvZhxbKDdXkOqe327MJYRENaGwkgQktogcyGyQqavfXSfGPipBVrHj+uzYbT
uDUzJZRO+yqO/kc33B03EFpR8EVBJlmT/gTFNfHdBBlGo+JuJ1wnWjBZ1IZl
Wyuu1zqwXq39obn8WBMKX/XgrdxReD2kJarzFW4lYWrIc+gTuhRTeIDCXkPN
hBbY7zowXzuFAKXIsbON6D9Dyej0PPqHaZEVVUS6E38w43rJklnbHdeXxHXx
r7WNiclFUtnpEdguRTHUSV2zyoeQb5jnjPhRZ4fMzZav4hyq0/YYbvaMY7l5
GmPWKTQTdAkNLqHREYHIBhbWXdikbkeiYrY2C6k3bNZVYa2yGaHL7eg/5aSx
oZ7GBfvfcKD3rC/AN8syMHfOgrFfnUL/axfRRLpo1HL3t+MDWJ1ZQIgmT4On
LBg6TTXetmDyjIVmrhbMEsJ8oQVhKqs1LdgILXxLZvUWDNpa0FVgRh/V9lJt
H9UeptrjVKYIIUgIs1R7/jyhUIkUWRCtVZF4ftDan+bFfQTVetKMjgILugnO
TXD9BNf1VjGacvPRTMVjKkaQ4GbPc0iCixSbsUSFQT4uUUnzlsXgAhwnzGgi
2MbfFqEuJx+WA9lUckhsZvrNwrvP5eASlZJnc1D8bDbsLx1Fa14+jX5mhKlE
ikvjYdMw3OVD1YlSVBw+ivKD2SmoeD6H/eRSMi0/mAsbFeuBXDKQS/C5GvTP
clTowePnCbo0AXGBHK04fARVz2ejmoHVPJ/LfvIIsYp+Kw/mEXIebAfyVORS
Qn2Ho557Jpum7+fjEDOw4vWh5RdHUft8DhysvJBLJS+FbhhoLf1WE2AVlQoO
bCHQd58ldwm0iEAvvnIyDvQ2RAl0jvjwvJaPOgKtp5DrX8ijcx7d56nYNRy5
khDtVMoItZRQ3yFUyy9Povx4fPDpuE4Nx5heoDJ+ogje1wqodeoIe6eGSmi1
ByVUQrQSYm12PhxHi1BPrVt9Qm8loaeoo0XVxiJpZJ7KHOllhrTT9+sC9FDp
yitABxVnbgGtuyzoJc11kvba8jXBTFArPx6v9nWKf6nIrKp4geBChRrkNKl8
gtQ+SqofIskOEJyb4LoJroPgprt9Qu3/yKd/65ScIwSxQNVDVH2GyvRZreOM
EISPqZ8g5qhr8j73T5yva3MLiLr9WOnzY5nK2uwC/l775P/i35z+/yRO+ND/
AAVHROA=\
\>"]], ",", 
   Graphics3DBox[{
     {RGBColor[1, 
       NCache[
        Rational[1, 3], 0.3333333333333333], 
       NCache[
        Rational[1, 3], 0.3333333333333333]], Opacity[0.5], 
      SphereBox[{-0.4755557287369157, -0.6470692303498147, 1.125}, 1.125]}, 
     {RGBColor[1, 
       NCache[
        Rational[1, 3], 0.3333333333333333], 
       NCache[
        Rational[1, 3], 0.3333333333333333]], Opacity[0.5], 
      SphereBox[{-0.4755557287369157, -0.6470692303498147, -1.125}, 1.125]}, 
     {Opacity[0.5], 
      SphereBox[{2.7142215518618107`, 3.9203017716122885`*^-19, 
       1.1102161031267067`*^-16}, 0.2572]}, 
     {Opacity[0.5], SphereBox[{0., 0., 0.}, 0.1786]}, 
     {Opacity[0.5], 
      SphereBox[{-0.5383117707590063, 
       1.7206123313271044`, -1.6219664500383146`*^-16}, 0.5241]}, 
     Text3DBox["18", {2.7142215518618107`, 3.9203017716122885`*^-19, 
      1.1102161031267067`*^-16}, {1, 0}], 
     Text3DBox["40", {0., 0., 0.}, {1, 0}], 
     Text3DBox["76", {-0.5383117707590063, 
      1.7206123313271044`, -1.6219664500383146`*^-16}, {1, 0}], 
     TubeBox[{{2.7142215518618107`, 3.9203017716122885`*^-19, 
      1.1102161031267067`*^-16}, {0., 0., 0.}}, 0.02], 
     TubeBox[{{2.7142215518618107`, 3.9203017716122885`*^-19, 
      1.1102161031267067`*^-16}, {-0.5383117707590063, 
      1.7206123313271044`, -1.6219664500383146`*^-16}}, 0.02], 
     TubeBox[{{0., 0., 0.}, {-0.5383117707590063, 
      1.7206123313271044`, -1.6219664500383146`*^-16}}, 0.02]},
    AspectRatio->Automatic,
    Axes->Automatic,
    AxesLabel->{
      FormBox["xl", TraditionalForm], 
      FormBox["yl", TraditionalForm], 
      FormBox["zl", TraditionalForm]},
    Boxed->False,
    PlotRange->Automatic,
    SphericalRegion->True,
    ImageCache->GraphicsData["CompressedBitmap", "\<\
eJzdWntQXNd5/5mXJVu2ZMV27DqO7djNOImbptN6pmk6bdqmVhLHM5lMqrRp
0oxHfcjNWA8kZRQ3th6ZSDwieZDseJEQkmUhkNADFpblscACggV2xWtXwC4Y
Sbx3Wd4LQiC4/c6551zuLpe1O5n2j96Zcx/n3Pud7/e9z9l97fXdW//tzdd3
v7Hl9Wc3Jb6+Y+sbW3Y9+8r2ROqKvQ+AhVr6s2D3Ct2KkwWKorDB/+3LPnaJ
ZXP+qdpxkF94D79j7WufOLSfXWJ0ZA4YvPsnn0hmBTfhzP47u8Sx4VfVjv+I
IMWOp0Tf3NwcRkdH+dMfqaNbDWb+LD8n8Nf9fj+Sk5OxadMmbN68Gbdv3xZf
vmHw5aP8vJZ/mZWVxb9gX+bn5/P32P2WLVsQCoXw0upkHtExUFVVpZEpKipi
n8bw4Tg+AxtmVxp6SScRxIURpGMDv7nfkKbT6eRsxfF34jE5OclZZFf2XnNz
M76iEy/X6nrxspSQJEgSIjgqKEZE8hAnzowYe1/I4csq3b/W6IqP5cEl89VV
mGe0BgYGkJaWhgcFfSZrxgOTislkEvS/aWAWMQaiX6OZ2zMGSmDH3r17Gd8b
xcdSPuzpRZX03wjJ6OnKOR80mPMpMfMq6uZq2LZt20YBkL3W2dkpBfiQxvET
/zOoaw36nhSgpVJpWg5YzPW4YIFxxrqZrGno4VWdSK/X+DC9RhPI4zo3MhII
G2UyZ/dPGughTgsKcatz9vefUiSfieI47J7Z3+fFd0xs0r/XrT71tzShGKHf
EGF4TA/sYAateX8stwo51+d0vqVTWRQWvq+xoA8MMmax76UPMRakGGXwXLba
5WDBnhirjAcjWGLin63iVuxTIvMlHTo2xCiv1XhVlY2ffAqHyczMfFFwGPka
k9oLKqWva6Q/H6FmGfRZaAkP2Ql8nM3FRMR6RAB+XqX558YB+CmD3MDkLA1Z
b9RfM5DCF6JSfyKKlUotvqzLG2xcwHouKuHHoodBvTVKFH+ms0bWJ8QTfZ6N
OvHok66Usz4XfSNCPGz82ajU9T6lT8zsSqhidQRZMmRPf6FDoZPWM5GG8/Cn
CFZSOt8UNLu7u/WSWR9BDK9E0abMd5sihMD4TNAIrTHwQNUrVdPnI08LB9FH
e3Z4PB5RTq2AH2cs3/sNuuUs6hj+0ICjJ1dxZGk5TE6kj1cNxEapPRovXAix
BlMmqK89HTVFPB5F/gcOHOBM/EB8p088Mb8HR0by+Uz0YCmdTx+Wv2+st1U4
SzDuNioXorD5iFBjZNUg/ZaJjMz2HyLUyBARe6uwFq8JLUa709WGqoJWZelh
A8l9gsN/TziyfyCIKnMdSkyFaDBZ0J5OESizCP5zFkxXOnC33aspWq98yeRD
qwvvhYiX1q7QrFHUeE1zJRHHPC4v5FFtqkJrRi16ztXDf7keU4V1mCu1Y8FW
jPL09zV9CDtYDjVqhBCpZs2KvCdDDdMd6VG19o0aKMnCRVMNik0uft+e3YG+
fC/Gyry4U92BxXo3Ju2VSEv8TzRds+t1LhL5V4VwmOHocyJjlvo2C97kpDmm
In5/yeSGs7Cf34cCd2KFMhT/OJTePijeFoTaHNKIZVHCnkQR8pVV4k5Egfmj
CMvMIVnnmG7ELEc1Ot+ZQU9xEX9irDMyMkSI2V6MEk0YYyya/7OwB22qo+Xa
/Q1nJ79P2lqJFtuQFrEqzLdRnmXTRZ5YKV9dFBPukbBCw4wNiqI/ixBy7uHz
/D7159Uozr+jCrxWkUIODsyikibOIaWXZxdJR2LEmZkxTGLe53UmblTwyMjA
nn+qd/GjO2phyWqH29UHtW8trI2zuHNzHJO+cQQ8Y3Cc7oLF5MEFUyOxYuP2
KFmUfIjKSa1gRIFgrAW2jmGs6cOCtIN/EpZ/1WRF45Ug0vY0orh0Ae5B1bWX
JoIYvpiLN3d2oLeyEyFbCwKFbbh5sQ2tp5vJQRuRT16SYyohjdUliCl0Kzg1
1HEHX6fLTqtEL+LXaHn9Y36OR56pFKffacDxXzajuHwRrUNy6f0g3M5JHEnt
RPBqIULmEoxeKkd/ViU6MyrhJCGWmYrJtwoZm8K+VYOSgUnyro9soqhYEzXF
LYdx3h8XkS/YwSxE1tMiKv9UQDKbynHmoAvvv3MDVvsSWoZlQH0A+7aZcSr3
DoJzS7xnps2L6RYvvOkFaDIVoJfswufyrhWmIV1OVI3xqwPi+OOMkqEKMgxQ
jOCUAdIfDNS/iLFCkx1nD7Xgg1/74G5S4BpStCrtN28147JDn/PD13dGNYrg
M2K7ZFnS0Xlf9TNROsiDvOI5MV1oaARBEm3XGTN6PjTj9lkz+j8yY5Ca/5wZ
I1lmzLq9mB8eEVklHtb0GmSltCH98E14WhUMTy8vst0U1n6bHECpd0GsMmLD
0mAU0EblpmZXCZHd8hojIoB+WGKVkUAt79djanAE3UW1cJ82o50AewlwN7Wb
BLqXAPcT4CFqfgI9ct6MUWrj2WbMuTtFdolH6Yla5Bzx4MSRfiqpCXxI0VbG
bmcftu3qxMC4jNNxkVtuRo4Uhj9y7yKqWmN52SU36J4RQa2vqRONp/JxPdNM
wcoMD0HtIJg+ah8T1FsEtZdgDjC4BNV/XsDNZnDzEaqoxYJ/5IsCsS3Didy0
Dpw4NgxPh4KhGUUrh9zOKex7dwSBWVn3x4UFQSWsMtLy6yq61AkgvCY0qhO/
IGQ3TkqtyciHgxA7CXETIbYnZ6A65RRqqOUmJuHiziTkUItBXeopmr/DlK2i
zlZRj+XkY4IaocZzwt6YJVdmtuLy+104+UEQN3wKBmeU9YLJfdvNyLw8x5+e
EJKSQUiWC5SIRXH3aSKPkZqfFwK7XngNdgJpP5aN4neOwbwrCQWs7WagzLuS
SRD5dL5K7UpiMnJ3JuMCAT6/IwkOgtyZno0gARylNlVxTWyMqCCrzrTj1/9a
gvSTE7jxsYL+kPKI4PHQWy242hC+i6hPozrDXq/DGW+grmXsHNgLYobiE3ko
TcpAEQdi3Z1MAivek0wthZ5SqD8FFmqF1My7UpCXmKIBzNmRjKztSaTTDAQI
2EhOHub9I38gGPUQtpqzXfjN1nJYc6fhuaXg1tSi3ONl0I+kjKCpVxHiWLG+
ejgyDRqpKKIvTnv5eUHUknYexQSvdA9rybEoI2wP0zmVHlNpKJWQphLSVBTu
SiU1puAqoby0MwUXCOF5Qlj49jEME7qQp/OzwtZY/VibdQtJP7fDmjcLD8F4
TIPWh+2/8GJgQhFBIY6rSu7+abu7wjrDY47cYWs6epKYTIKN1FHO2i9S6M1y
Yvkh6ktVAexWAUjmzYmpgvlkzjxTTw2pZ44c61FBt4M4d1wYQOp2WmVY5uDu
lyW8Gk/2pwURuCMdXK1C5ZJMxJHlBc+XBbxBko7j4DFUEKOVe5Jj6JTCTozZ
Cjoztst26xjexRhOQT6zJ5J0LjGbTcxm//LYslL5DOsE216nDw2XAnh3dy2K
S+bRNqho+9T7dxTgTN5d/iTVHrFuEEXgN8RogPj1k802HDyu8mtn/No5v4xr
Pc8lzEKIX0siEzBZB/F7ifi98tYx7j/LUWW54K+kao8dbekWWudaEPioAHM3
vPLHIJ/zYzTmjSFtrxNW2z1eUMof1A79VyvyXKotfFH06VcgyxvxsXpM8Tyw
BLkf5uPmyWw0HjhOrxAwKuk4JsJRvltg2sUwkW8THjPhuUp4ig+dUrP/es2j
bHk1VGdX8vtbOS5MWJyYr6jDYnUZRiqqaKwMZ/Y78d7brSisWEQTVZGf0zv4
b0fR1CdtOpZbPzuYLUXWiSsQPcbzwTihYfkhSHkiQK3nRA7cRzJRf+A9QpRC
iFJgo1ZKaEqoWSk62d5+D/akTDRSPqo7pf5M2FxYq9PUg/w+570KlJxQF4LD
tn7MNfShI7McLSfKYE6r5yWlf1rRfopgjr1zrxeDkwq+JJShX9OTnRlVv+qU
+EtRHzBULNuxXM+yH8v9LBuyWqA/S60Nbn6k1gq+s2rt4KYaooUyK6spGghR
bUa+rg5Ry5ScIw3oqRvm96WXvfjgcDd63AsIdPnhNteIUMRQTOPA8SBG5hSx
+x7LUUgDM4Jwnwrhr/hlA0LltbwyGxWlC6vYWOXGKjhWybGKrvusWuGxSq+N
WG8m1r1U/Sn6HSjBur+mDkq3uvvRdNkP38djaLsyAOvJbtSbazUF7N9RiA/N
qqO/pEsa0tHJT6Jwr+4Ur6N60ospWy0vrlmRPXhOLbpZ8c2K8C5qncR1oJnW
PYMjcgmsp6hlpATcq3ZhsqQVFQ1TaM8qp8ViDRxlDU8LPg7/qg35TepXfyzk
q/8JQpq+0fag4PtbYijE1mGtXkxSWycCzl1/ELPVdRi7YEH/h1bkHnWg5HcF
PAD5B4JPaTrvxNEjY2juk38CSOC1a8TPFhouNVBB7i7ODFBOoFXfbWrWyu5l
F+9H4ls+DE3Jfx3E842XiB8p5J7iP4rP2oMKFofbdWWNapQHj49wo3xZ9OXm
5nJxMFIJ4STcnYsYDI7qyj8yjp2FOGuZ508v6yQtOQrbGYDYg4iFq3cJd/u9
/OlxqbS33ShoUZXwddGn25KU4pEkiilczy+oxeijOom/++44mnvn8bfq6z8W
Q44bfo3SRp0od/+qi4vy78Jf76LljDI/w59kZeh2hfC7jFEE7yrCPLTX3d0K
AiNDwlPVvgOJFpyzqqJRf6MVm2OxOG8e05iRvzknveNBYZva90r462XUfe9u
SHiSDmraBHoDCr6tvv4TMXTdc0uj/oD2+gD27Ovi69bv6F+/n3JICNM3b8Lv
8mH0ug8TTT5MtfhwdziohSUG/YPMMQ79u3o9bEA7fdZgrkelyYqLx51kri50
ZNjQc9pGoclGGd+GsUulmLxajJC5CPe6fFgcDeLAriJklSyom9X4kVAM2/7K
MVn47k+pqQLXTNW4fuIa8s50oetsHXqzHRi+RK6XX4cpyi6zxTWYL2O7xDYc
frMalmtBLI0HBdXNwjoqzA6+bZVrsqPQdA0VpnrUpzvRktlEfQS7uQfTHUOY
9Q5hprELs7YmzNtdGLpgRd3RSvRVtUJx2KDUFUGZCL6qd9T7BfUy7jZXTI0k
DR9uuYZFGlJTbNN1d0RqWsN1knKoBaFbZDhNLijNDrpWQnFZsTQZ/K5+lljO
f46pVpeyw/+Ywe9nRrSY5r4+A9NpprIlbUNECU1BuUVBwFOFhetFYoYfCmoe
VxfNUEMhbDIiQq5ZMdPUvHp/kLR43rYgN9SUfiLeUc6fvhNOve1aC1GeCKNi
tJHBjrzKEJL3tcPqWd5aUgbctMpv4E/fDic93NkBZdaAtH6NOULL9b7g8q4N
42WgzbmSXizuBbqgdFXrWFyxQ7NOozJJMqvGpH8gHDBRmSJT9JRC6axTU8xy
fb027Otartswdcdj0VsPpZVMzn0NSg/hGx5aLstdQ7CbO8WnNm6AYZ8/hsUJ
mtxRCKWxDIqziq6U7OsbSfPkfWRvCz3DmOv2Y9bnx1xgGuMUHkfahjHUNAR3
gQ9lJif5oAMXCBuzbTbFq+GuutTqwFI1mWq1DYt2ckEqhefKHJi2NmCsoBHD
VxrRe6ERXR81wn2qAc50B6rI+aymKlwylRNZKyP7PX2S2YClsSDuOR24a7Vi
1lKKabMN41crEMi1o/+8nWoFOzpO2tFMwaGOqJRToCggSnZikHLva/rI+QAW
AkHcafdhxtOFYEk9bp6ywEvLA7+rGwNk7rcpeI0NBNXfGv8P/pL4/++C+/4b
1FfAQQ==\
\>"]], ",", 
   Graphics3DBox[{
     {RGBColor[1, 
       NCache[
        Rational[1, 3], 0.3333333333333333], 
       NCache[
        Rational[1, 3], 0.3333333333333333]], Opacity[0.5], 
      SphereBox[{-0.48183630327111404`, 0.6424061152028578, 1.125}, 1.125]}, 
     {RGBColor[1, 
       NCache[
        Rational[1, 3], 0.3333333333333333], 
       NCache[
        Rational[1, 3], 0.3333333333333333]], Opacity[0.5], 
      SphereBox[{-0.48183630327111404`, 0.6424061152028578, -1.125}, 1.125]}, 
     {Opacity[0.5], SphereBox[{2.711517785340986, 0., 0.}, 0.2572]}, 
     {Opacity[0.5], SphereBox[{0., 0., 0.}, 0.1786]}, 
     {Opacity[0.5], 
      SphereBox[{-0.5026692829696092, -1.7238428081158055`, 
       1.1102230246251565`*^-16}, 0.5241]}, 
     Text3DBox["20", {2.711517785340986, 0., 0.}, {1, 0}], 
     Text3DBox["41", {0., 0., 0.}, {1, 0}], 
     Text3DBox["84", {-0.5026692829696092, -1.7238428081158055`, 
      1.1102230246251565`*^-16}, {1, 0}], 
     TubeBox[{{2.711517785340986, 0., 0.}, {0., 0., 0.}}, 0.02], 
     TubeBox[{{2.711517785340986, 0., 
      0.}, {-0.5026692829696092, -1.7238428081158055`, 
      1.1102230246251565`*^-16}}, 0.02], 
     TubeBox[{{0., 0., 0.}, {-0.5026692829696092, -1.7238428081158055`, 
      1.1102230246251565`*^-16}}, 0.02]},
    AspectRatio->Automatic,
    Axes->Automatic,
    AxesLabel->{
      FormBox["xl", TraditionalForm], 
      FormBox["yl", TraditionalForm], 
      FormBox["zl", TraditionalForm]},
    Boxed->False,
    PlotRange->Automatic,
    SphericalRegion->True,
    ImageCache->GraphicsData["CompressedBitmap", "\<\
eJztWnlsHNd5/2UpkpJ1Rznt+mgaN04bpG3QFk2Ctnbj2mhdo3FbCy3QojAE
I3YPH7JUGAEsVE7QkFKbVlaKLnVQlC1KlKiDXN5ccnnuLo9dLu9dLsnlIe69
pMRDEiWRnH7fzHvDITVcKwXavzrA92Z23rzf++7vvUe+/NqBN17/x9cOvLnv
tade3P/aO2+8ue+9p154ez+9yvgMgAqivKfAzwo9iqYCiqJw5//27Z/5lsFz
fkt78SP1pr5Rn5h+7VO7DvPNYoD50OTbX/9UmAe4WcvsD/i2ibuf0Z+e0Lre
WAfK16Pi3eLiIqanp9Vf20y+ExBvmvD1RbXNRDweR25uLt566y213+fz0VvJ
wyaTkY9roH9n0rVHbbeofDU1NWHv3r148cUXVdB9+/YhHA6r94WFBWw3Gf8L
G0PvUtusB6ArKysZzqJ2b0JhYSGOHTumDqWuNJP8QIwwdtG1U33YrM/DupHz
GNjPEOqbnZ3Vu5gllnSLObLRnqpD7RAisQmYbynSxMQET/GI4J2nkErbog9+
UkP7ff0FMnSza7/o+qb6KttUacwxG136DX/DwvJUv6JBPWviUhYTjW7WnftJ
Eyvx9f777zP/UmKW0MiL0NzXtVmeE7o1TiGn32oy/WNpTMYzcS9JulMog/Up
XzPx78OHD6v6febnE3yLybsvG1Qgrcri80WW/pIYwsyxqvnX1x6wZeYaW6YT
/gsbhJyIC7W3tLRUff6icMz8/Hz1G6F2Mf0fPqSAe9I4lQyBJwy+K3X7y9o0
z+tSmoljDHOZmvhiTZLRLCa4ci7mRWr0aW2u7+tz7TIwbYw1ZpbVwxaSyU5m
1NVksUn3WL5oIoH/t+ndPUMASjsw/aIhcfB7vvMwfv6qhvrX6/x5vUl5CPnz
r66TW0+qqkY1K+HbugaeMGjAmPSZVzn8m0JaqSWRRXeYGOqzGv7vmOe6x9IU
AqkNfr866YOplPvSV6L0PHwpjZ9Kk/+2SY5dX0g/fabP//xu8JsG4wkt/w8m
3iM8Zb092VulY7lcrm9voGG2hlkQpp90o0rMd/qdYVApT8a/vmui5tVS9rn1
rrrjIXKajJ9nDS5rUObOdWB4IU2RkPqgwP+eEI5VI7v5Wahrl4m2NA1qwav2
PC4wjHVd5jBi+SUTZew0UbWEy9bwnzaZ+ssPkSk6Ozv/xOBs/AnPuqqgDBPg
LG3Ox9OG3xceohB8Xwgma7F4v+NhZjeTeM8655P1QYSasT7IIa+Y1Ixt5q5t
VuPTMLPboH5jqWdBDTG210T9W3UFWPQnwwpOU+yGE+9Yp4U0IUjmV3+9ajAE
a0Dwtntjib+qM7bdJB5l0lofj39jou0sHSlbf9qsTaLtnHatqUrGtRur1e1o
xZQniJhnGEmiGe8wbvqGMd8zjIW+IO7FU38lZpVJkFWcmS59iarz+QcWBHwx
I4lwCkGarM5aBae1Bl6rHf0n6xHMd2D8rAPhwnokLtZj+rIds1drMV9ShUVX
G5aCQewVM8tqx/ikt01pGdLK+aOfupCrvOTANWs1aqz1aLY2oTOvBb2nnAgU
uDFW6MbUpTbEr7oxU+rCXLkTt6pasFjThHv2etyvq8FSXQVWxoJ7DXaS1TYj
LYPPpAl3uZmwiMQQJ+0VWStxiZgss7bAYXXDbe2A75QXgx93IVw/jNmBKBb8
UdweimKuxofbdV242+DBUlMHllvcWGltgdLaQPcarDSXY+VG6i8Eg3JqkT4t
afl+2hAsxkLJ3kkAWaK7iAx90dqIq8RqtdWDcU8Us5H5LSLGlesxKFMRKJ0e
KJ42IuKuow5KG6lzNvWy+tkjmCHBr3uGECe64R3CXNeQ2iMtyK5ACkvP8S9t
UP+MqycGWl20boLD1kYiNJII7Qh4ojtlJMeiUEJ+KL1OKN0OrHRWYHk29cdq
93b0E5vXrOVoIFt15dVg+HQtwudqMXOpCvNXy3F/SGOf9cYXz76asLTkgafS
OAazbFxbG9dAMtsWkZM4bIPi3QbFRm6qlSTZwO+C0leP5aD7eb1CkfI0ryuD
vNx5bRg424nJS15Ml3lxq7YDSw1OjBefw6vPP6cyyYcFwo0+Zyh6GyRXEkmW
jsh4mLjuX1s6zDetcohym6pS0InlfgrDuZTKOxViOYQvh82t3q9QsNTl9anP
wSsjiFaFMNsYwv22Yax4BzHrbMaCq0rXofArQ43UMuyGNXa19mSsqnx1JWks
ZTK907OUpLvZl65uapPqkmeokq8Em7AUD4p9Zrb+cZG1Tn1usk1izHdDfc6U
FZC3YqM9iPf0qPYoLi5W+9mthJjZugdsyMWqmNJKjGW82At2CdnCfj9W7tyU
8lk2gpYx3HyiEqMUN6P5doTy7RaEztSRJscK6okcGDvLBaMB4x8zNSJ20Ybw
hasWTJxrptGThS1ErZg8z+S04PoFFzVFbvLAqYttRO2U0pk6EC5m6rQgfNlD
3ZErXqIuRK4SXfMheq0b0ZJuCzU91JT2WhCz9ZG0sbJ+ogGNygcRJ7IgXuGn
pjJAYsWrhpBgqg5SR6J6mJqaEQuStaPU2EPEZ9I+hmQd0zhS9eMWamg3nnJM
UtNwnayQaphCqpEpjGmmJqYIppsjhDndHKUQnm6Jqao780OHep9pTWDGmdCe
nUncDS8IT8xGO/ESDwTWbFrkcllsUNYdea1aKr07bDhMlGx5kf/vFq/vJoJY
Cfds5O9rA4o6vB0rGAso6M1vJUMlptjnEmHKowYa96qqj5BnxiLkZrGokolo
lIdHqI3ENLJwS14Z445wXMGUoAxuyVXUJkGfTCYIaoKbcf45lqCOUII/DCUV
jAqycJuBkST1DvNTkJ+G+CnAjT/JyXYwoSno4imPej+e04XzJUvqcx/1TS8q
elpxUOAWUb4ao7WYfGfMR7sNgfpgzdsk0u2612tVvXYUGUkumOUcWibVPl2M
BLEUoNIcGUhrLLncGU4pGIstYXmEcuvkSLb4Ph6exWiPVv/+QNQgidHfGVCf
f/x6s3rvd00jnLhjyAtZiA3cxHjXNEqsflKPR81zVG+lQMYTJX0hjmwTZrek
d1qy5ciIWqF4rb9HvLvfQ4oZaoISHty4qEoNpG4rmI/P4V6LEylPIFM3bC9x
PKz+ek6EpZ8kd124rjPSP6Eg1uJS10OaUTZj3uFXE8vIZT+6Cvpp9eejguYm
Ddi5wBnPzuUuVUZ2lp6qs40KyV7DtjGiV4Vau3sy21HJv3ncC9DqsrcGymAz
lElaeNya0ytVT0TBRC8VveEBXb/x8BzxPaBa8FmBwUvwjqsp/MeBNlRX30Nf
WKpzG+6nUrhbU05L7lpafjdhpsRJGd0Ff74TbdZmWl7W0TqtkjBdvGaR6pYn
8Far1dQPsh664Jk5izyXXmovh+KrhdJDztFHC9kQufj8/DbRnZyn4G7x4Ea9
i3jkNWUDry1/V4hdZnWg4EMv/vNQHyocy+iOieN/au8ODiFZWI6pMxUYPlGB
LmsFGmlx6SQxyfFl/POaiuut2IFmfYqkmSaGXJVeFe1RESYrN1NQBtxQ2sm2
nQ1EtOjtbKd1upfW71EK7phgNhtTXTH4bEHk5/nh9Myg+1oTio4UqmvI7whh
q/NaUXikF9afhNDfTVl7Xh4Ir93fZm4swuoizMwm695t0j9+TPjrSg9FVgtF
cosdKy2NtA9qxVKjG3cdHbht92Cumla25V2IlfgwWezDyPkuDBR44T3ZSbvW
NtitTpSquwI7Th8vx3DvOJba3Jil2vNbgs8+iuj6010o/siPE8ei6B9UEF1Q
nhRCydOc1S21qaBmJ2PaWfdnsTKTwrLHjfv2KtyrrcVitQO3Khtpe9pCsdGK
+BUnpoqcCH1C21iqmD0nWtBOW9tGcrYq4vwKxUq/JyjdvXNMwXBPmBaGQ/gN
gxDNZwP40es1+K+8GxgYoSJ5S/mKcBfOkIZTD7NcKORYPRfT/l6xnfZAQdxu
bcPslSpMF1cjXsR7JDst7uwInrSjL68WndYatNAG0ku7sCFPENKpo7MUTa4u
zDe14RvCqwY5g56/jpy/b0RVyW01gz4jMw0tv2UqXPVvcVbyXQGwGE3hpi+I
GW8QSZosSpu4rULQvtAK+iZXcG98klL/2Nf0bFWlZqt/P+BCFWcrynJfF33G
P8bJ3ZCWDfCyQI2Q46cSt8iI7VjoCXxFjLTRxq3gQw9+dqgXZXVLajL4hlCm
TO5SveIMRByW/qmQd+Eu1VIf7azHR8UfKDJRldeCc2rUjapRF6PJv2VSNPU/
keonfNdvKEi2deO2q0Oku0zU0wLm0keDyDsWQb+fPPuWIjw/U/9LIB+rrDmW
Bv5cQHaMKlicpC1ndEI/e2RfazrrJ1+rRkUh+Rp9M7WgfMeQxvl8gQNHoMlz
C77i8TtY8XlwZyAgc/U05ZwpMmKSaPMaL5lEzj80oOoaecmkgt8TMLwLkmFJ
PG82TrJNd+o5WqJ5OhNU4cbVd5dpZ9xKkTR0qhqxwircvFSOuUaXrMZDncNo
v5LETw84dRf5nhApQOtwqSBRl/9sXRXajlBKy2QVh66g96wPkZJe3KrvxrKz
HSuuOlz+8UXVW44f6kZv+zK6yFteEBMYTxSNEzxQ3PjpEfS6utXfn/zrGPrP
jyBVPYzBU+3oye9AZ0EL7B/ThmdB+SOhL+Pf2fSKo5nYsBDcgr4Wvwo7E5xG
KHIfbd57qs94Pbfgrx+hGlGKlwSm8c/lhJ+5EWZsLKmJ0N+PZe8objZPIGQb
h7sgSHmtC2MDIbxkULM8+Mx60HNkKOkVJRv362vVA77YZTcG8l2op1zP525c
xbSh+EtRne9Ek5il5Wy80IbRn5yBP6+MSgS5hLYIeXWtE81Hkkj4huAvsGH4
rA0hoomPbZj6xIboORviRClCmqtzYrFv6FVj1OxEoNKJrnwbes/YqBzZMESj
R2j0GNEkIUzR6CiNThClztswc8GGmxdKcbc/IDCE+Xejr8IJ9+lSdBKcj+D6
CG6Q4IYIaoSgxogmCS5cqEHGCS5JcNNEN4pKseBwCiyRJvYgRMWv8VQpnATb
TrANuadRfegjlLyXQ5SLa0RX9+fiMtGld3Nwgch99DQCeReQINgUwc4Q3SFu
XzFCZ6H6RAllnFIVrvJADlEuqg7kWujhCOXoCmrL3zsCG1EJEc9S/G4uit6h
Tz84jsCJ80gQcrKoZC3yJrjLW1XUmoM5qD2YmwH7wSNkp9qDR+nVUVQfOEpz
HCX0oxr6/iO4/O4RXHwnF4Vv56Dsg2OIFpWsAc3EeGkN4eSg7mAu6gnP8U9H
yA3rCW8rvTsKOyHWEFURVTDy/qO4piITz2/n4txbOZhwdq3XAk2E3p+egoNg
G4gaCbrx4FEL/WBkB7VG9EpCLifkUkK+SsiXiOfiH34Ed1nrei2wYlhBoZMX
0H74eIYKvU3FZdT6AwaeSQsVhGh7V0Ot/JfTqDtZiqoTa7WQrdpxmkDZrmzf
0Iki9P1bPhrIeBY4yGaPoI5aOyHWEFUSqv2Dn6EhJx9t5D+t5EcNhEx+9cpa
52XnYydkZ2SnZOdkJ50q1Jx27JMyNS7Ymdmpews0J2dnZ6fvrdCdV4YWhwiH
CocMh05C+D2HFIcWhxgHbOCsFno9BOfNL6X1rh5aWrBu5bhV45fjmOM5ck6L
b47zURoepOET1U7EKQ+IAP8/+++9/78Bn/lvKqqITA==\
\>"]], ",", 
   Graphics3DBox[{
     {RGBColor[1, 
       NCache[
        Rational[1, 3], 0.3333333333333333], 
       NCache[
        Rational[1, 3], 0.3333333333333333]], Opacity[0.5], 
      SphereBox[{-0.48041753644106683`, 0.6434678163512894, 1.125}, 1.125]}, 
     {RGBColor[1, 
       NCache[
        Rational[1, 3], 0.3333333333333333], 
       NCache[
        Rational[1, 3], 0.3333333333333333]], Opacity[0.5], 
      SphereBox[{-0.48041753644106683`, 0.6434678163512894, -1.125}, 1.125]}, 
     {Opacity[0.5], 
      SphereBox[{2.711227371660277, 
       6.852832216122501*^-17, -8.734884490275568*^-17}, 0.2572]}, 
     {Opacity[0.5], SphereBox[{0., 0., 0.}, 0.1786]}, 
     {Opacity[0.5], 
      SphereBox[{-0.5095841055544682, -1.7192854631677, 
       1.1102230246251565`*^-16}, 0.5241]}, 
     Text3DBox["21", {2.711227371660277, 
      6.852832216122501*^-17, -8.734884490275568*^-17}, {1, 0}], 
     Text3DBox["42", {0., 0., 0.}, {1, 0}], 
     Text3DBox["85", {-0.5095841055544682, -1.7192854631677, 
      1.1102230246251565`*^-16}, {1, 0}], 
     TubeBox[{{2.711227371660277, 
      6.852832216122501*^-17, -8.734884490275568*^-17}, {0., 0., 0.}}, 0.02], 
     TubeBox[{{2.711227371660277, 
      6.852832216122501*^-17, -8.734884490275568*^-17}, {-0.5095841055544682, \
-1.7192854631677, 1.1102230246251565`*^-16}}, 0.02], 
     TubeBox[{{0., 0., 0.}, {-0.5095841055544682, -1.7192854631677, 
      1.1102230246251565`*^-16}}, 0.02]},
    AspectRatio->Automatic,
    Axes->Automatic,
    AxesLabel->{
      FormBox["xl", TraditionalForm], 
      FormBox["yl", TraditionalForm], 
      FormBox["zl", TraditionalForm]},
    Boxed->False,
    PlotRange->Automatic,
    SphericalRegion->True,
    ImageCache->GraphicsData["CompressedBitmap", "\<\
eJztWntsW+d1/1UPS06cOI6TJUubxkO7Nl2LYG+sK7YlSJdg6II222IMw4Yh
MNYlBZY0jj0EQ7rFGdJJNvpIW6yUbMmyLdmyZcsiLYqUSFFPkpJJiZJIUXzo
RUkURYqUJUtybMsWd86936Uu6SvGG7D9tQucy/v6fud85/190iuvH3rjH/7p
9UNvHnh938sHX//+G28eeHffS28fpEeFnwFgJKrYB75O06U4GZFOp/nl//bP
v/FPIfP8HfnBh9KP9ES6YvrNT331Af8UqGCOaHz7W58Kc4802cJ+l3+K+PWz
matn5Ff/mAPKx2fFs5s3b2JtbU26e1DjOwHxhoZcT0rnYsTjcdTV1WH//v3S
e4/Hg6KMDEUaIz8vg76p8eox6bxTkqurq0sCffnll9HS0oIDBw4gGo1Kvyzz
Lo3xT28PvUc679CEJrgC6XWRNJW33npLGqrT6fIw+a4YoX5FxyPSRWmGT3l5
eYaPSvxCob6VlRVJZfyKReLrUm1ktT0lh9qtmpJiAmYViUS2plSIVCqVgSkW
z5itosjSDOA+mcOfZB6gMOMK8h0dz0mPSjQVybNg7Slq429YAczqN2So5zXc
rEBDyyUZh9+nAlMYKtIpzsu0S6iDp68WSqj1KzK7F4Qe1LwUOR7QkONzKnuy
r6vtyZz4LU15txCaFasWiu+PHDkiPXv2v6eBUo1nT2mY/L333pO+IemeFEOU
eOG7L99j1OIso+ab/BN54lGZpV6vl66fEF5bXV0tfSPULtj/6X1O8LE83qXE
x+dVTqzo9ksym29mZqk1HXUOUGzJoKxJsmWBBq7Ci2VRNPrrMq9vZ3jt2UZo
FpbVwxZSMqE6Gj8nVKZ4LB80UYH/9xoZiw9Gy2SQ7BD4NVVW4ef8y8P4+osy
6t/m5Kdck/IQ8uevCvRAIJCdcSWNylbC1zMaeEbIqmiVkwDLKYY+p5oovxYT
fUjDRntl6D/QzoGf3cYhWdOKIvg5Xz+3TYplIfJXqPwyPJnHRRVr/75Gns0t
sJ/O6fEcD1BUl8cDflflr0LL/wPGe4WTKMVdMSerTlGjw+H4ukrDSvpXglQr
/vIzfUTD35VEQveFKpUyM777hoaat8rZ47le+vB9pDMldJ4XQirf8kENwcMZ
MDnj46WceMqt98yDYv5FMTlWTe5rerZbQ1tyPZPjVnrztEby54OvSeRvaSjj
YQ1VK3By+hXZLJv1r95HknC5XH+ucjb+hLluKahQA7hE5vl03vD7lfuoAd8R
E1MkEs8fuh/uWjPeq1Ea+ODfnNKgDHlVo1w8qO3a2zY42sLsUalfXeVzGsX9
YqjyCav/gYwCCjJXqi5Oxt2W8cP3H4JkfunuNW1DPLL9jL+YEewhjXhUklZu
PP6dhraLM0glmaudMhN52bR727aNdebz+TDnDmGBaNEdxtJAGCueMFaHQ1gf
CeFvBEtlLOu3SNvAssVEyXn8no6cD5YiEU0iTJzadS1w6FoxqLNg9LgV4ep2
RE61Y76uHYnzVixdbMNKYytWm1qwEQrjbjKJ/YKz6O4l/IxNthNILuNP5c14
p6rPoOWCDU06M9p07ejRdcJV2QPvCTuCNQ5M1TkRveBEotGBJb0D15t7sW7q
xs3WDtxus2LDYiZqxuZkaL/KSErfUZBXwGfzxLqymigQWSFO2qsnzTWQkEZd
Dzp0TvTprmKoyo2xM4OYqPcg0RVGXD+EJeMQrrcO4oZ1ALdsLtzp7Mfdbgc2
e7qx2dtOv2ZsDjuxeS35V8LpFdZK7swTuyL3f0nUP3XXw6OpTogmu0QIbcJ5
0uplErhV50bEHcPK/KqIxJ3YXF5FenYB6bEQ0hxXLgdRF9L9bdh0kmaXk3hF
1IRxd5CcNogE0bWBIFYHg9IbRWJ2C6U85pf+C9tUQ3UvxWjc0CtubzP002y6
cIHUHnTHdgsFpBfmkR7pR3q4B2mPFXevNuNbIqPYDA5yrWZ0khI8FW3k6xby
cwuWGsxYvWwk/5YnwErkQ7CWgvlRWdJ9eZwku78uzWqGmKLTsyRxB4kxlp0a
JZ0o+To9E0Da30uTsGAj4HwxU59E7mQryiP52AVnZR/8p9yYaRhEqnkANyzs
YnZMN9TitW++kLVpQRI9pip726RX+nqXEMbnniBxR/OZUOvZTvEsvU41KtiD
OyMmeT1EnZXynfJrMzglrfBhrfDBfTqIUOMEVsMp3Biax0bfODYHx7Bi78Ga
w6ywUzuXaOa22i2tipujbsVI6sWX0lcqyZ4Ki6KI4Z6RT6uiWs+U1jN9Yxmb
QRtuzgeFIkqyvqunPFKv80jPluZvkGFEleIl2sQw4sPDkqkaGhqkbzgwxKxL
Mg6SK4CsiaxZF4goYSylxPHBM39ETHUjNaV2W0lvxTnQ3borhDVC5yJ46ewT
NKq7UgA/XXwVY3QOCIpQFpqsOo1QhRHhyhaEj5swfsJM1IqJKqLqNkxSME6e
tGKqph1Tp2yYPtWB6dOdiJzpQqS2m6gHM3VEZ3uJ7Jg958BsvROz5/swd74f
cxeuItrgQvSim2gA85cGMd9IdNmD2OUhxJqGEdOPEHmxYCC64iMaxUKzn6YS
N45RiMdbAoibKKOZQkiYw0i0Mo1jsW0Ci5ZJoiksWpmmkWyPIGljmkGyY5Zo
DslOpmgBUl3zZJhUdwypngWZeuNECSzZmRaJ5ZIjSYHCx9h5L06+341A45zs
Af3LWLq6gmtEGwufCF8tQb85hDitgtWLHKVEiPyUs0225fT5PWTbYcSbfU3l
J3sUN1mkuIx580eE6oW7P42kZ530FaZnqUlyyNQUn6b5bTJCIRdZQaSfrZGc
IbdbnKG3i7MkeWKOGSainPwyRDabp9PCPA9fiKURE1QgnQsxT+f5BZkKEV0g
oLk4jZiN8/1sIo0ZQQWIJOjFdIIYTiWY1ySdJxfTmJCpEOOLPChM55CgAgQX
aVBAejFGZ39CpgKMMpovwRvZXjqPJGTNDhHjy01+nGkcku5rmjdxfCgNFwmY
+CSdyVo2Q4SSQT+mvKHMM3W626MK/Hu7mSKR2XMeZ9spexRZWOnOFR5bxbkI
txdCuBvqkJLYNggZvkW4RjPp60niVlcv4q5AiZhAPLqMOd+gdPeCKBK5IjrO
zqDse30wnUlI91PBJaGAHVjwXcP0YIrqt5+U4yKyYNwbUIRR71vRdLJUlFub
8vo7mXp8XCqFvKx4VMDfnAvijteMdIi6ihsrBZkJb13RyFEyZGSE6kfILzJ4
IcnZg2vxqGreO6j5MmVYm0234SX/XuhxyDbYiQ27D6u2MSwYAxhv8GPwpBc2
3SAu6RwE1ya1MepNe2UZrKSC4ky6L1WrIbviqFPAlpKyl2daSzZlb/VOyIm0
10qNYi+3LMr+WXI1jaVeN1Y7nRmFxqPXSW6nJPvzQm4DFbyaI2784v1htLTf
xXBM8f8HsUFLjFvmZuro27De0oVUU6+U7f1VvdRkd8FEpj+vM0p6UNSs3t7f
oWH1kvsullqu8aQw3N2VJO66jEgP0cRHyBW81GjG53cJFl7KTIHoXWxMR2gV
5xWTtkktzh+JiZsqelBbPgzdR+PweiiTrSrLYFpk+4NYrG3G3EkjQpVGWpMZ
aWXRjF6aKLV9SsBzv6bagMitzbnTLdaw4pYKpPk9JSKDu/tNJ83vahvSbur6
3dz9X5VXA7MxaXVQKnQxO7CAQUMITefGEPDMY6SmCbUfnv6GmGf7CTcu/NSP
yp9E4Rsl/15TNpmzF85auy5C+q1+TssmOc+KcibzBK+nyEjkpb0monaiLmx2
26k57pPWYbweu27mptmDhSYPNdAehM964KsZgLvShV5dHy1C7ZRxOiXXNV92
wtbqRzoyJTZVd8DrCqCrxo9/P2BGRcUSRsPU5q+nnxGTUqy0tVzXnKjWDoW8
f/4oLWWDuDvglJa2t9ss0lKXg4KXvktNdsQvOjBX78DkGQfGqu0YquAg6Sa/
6aCVqQUXaZXqc4cUd5+5lsaiy4vbA27xp95i+GkS9roIpd4OmBrX4aOK/AXh
JpwMVXspebaydmcMIG/nPCxtFWyEQlhtMmKl0YxUQyvi9RbM1XKXZ0XwuBUj
FRa4dK3UUJrhNvTRSi6khK+DdDlvoOySiOJrQtSgK4z+Swn8+F07TKZbUsQ9
K0TlTl61YFZvwfyhMNethSSuD4Ww7AkhNUA9njuEmDukLL2mltLUItzCpt+L
O+OBLwumep0VNR+4KFcNwUi5aojS/FfEO/Vf+D7++GNJALFb+oqYBxfE9dg1
rLV2C7UWo4UsxFnglx+FM1nga0LI3L/bid0VWUj5Tz2E6qOEOeOZwObYiPjL
UDGsJ67i/E9HUSFiLkYx99saBZLQ5YVJZuOQ0/ZihwtzFnsm2cm+PYoPD7Tg
l7qU4tu/p6o8DKr8OYpFFur+C8GTrTM2R/lwYpLSx/heMXKU/a12Gv/xPRv5
2xp8ka3tc87jvHfBkSPQ/lLlc5xFluKrovuQQyrkDiJKlHQHSzNuEkL/xTh+
dLAXphbZTf5YCMVLKCUuSeZSNZOHshx77ZZImFNh6beRUrGDSneoyox4nQkr
Dc243rlVi/UUbjUfXMXP3x/EFcsdyU9eVKU8RUslKt0XbWUymXmij5zs/Uvw
nh6Slis3bEPYtPdTWrZSPHfhTNkw/vOjYMZrXhIM1BuWJdnGVZc4WWUPwOvw
Svd1P4nAfzaMFK10gtVueE+54ap1or9zCbH19J8Jpan/gkdpYIfKzqoOaCd8
PSGZ3fJ1TI3fQJfrNlxXN9DvWodbH8TApYtiN6Yoq2QTfnEuZoFoBxTxh9sD
8rXXhzvuCSx3TmNCPwX7ySBlOTemRieg/OGB/1bI6xZ20B1qC9/z9we5lpRi
g3Os1YK1lh7EGpzwVdlhodpdTzV4OZWSd+bw16JSfxJbxMpwEPFaA8Z/eBL+
iivooYVut1yp5Z1oyIN2YXV+EQlPEGM1BoRPGTBJFDltwNwZA+YJgVGSdQZc
t9px0xt8TS3wbgRa7BisNmDkpAGjhBCk0eM0eopohhDmaHSMRseJkmcNWDpn
wPI5PW75AgJDBOQeeI12OKv0cBGch+C8BOcnuCBBjRPU1JkrmCG4aJ2AJLhF
gksRXavXY81mF1jCufZiciCAzhN62Am2n2A7yqvQ+q8/Q9O7ZUTluEzUeLAc
F4kuvFOGc0TOY1UIVJxDgmCTBLtE9AlJ+6oaegfMlU3URuhhJriWQ2VE5TAd
Ki+gi6PkF0Y6N797FAaiJiLm0vBOOeq/X47at8sQqDyLBCEv1jdlIxfBScWT
UVsPl6HtcHkhLIePkp3aDh+jR8dgPnSMeBwj9GMS+uWDR3HxnaM4T8h1hHzl
Bx8jVt+UBVqMaX0r4ZTBergc7YRn++ej5InthPcgPTsGCyG2EpmIjIx88JhA
JpnfJpnfKkPEPpirBWKEkR+fgI1gO4g6Cbrz8LECumFkG52z0Am5mZD1hNxI
yBdI5oZ/+RmcV3pztcCKYQVNHj+H/iM/L5Sgd0m4jNp+SI16FEZCNLwjo7b8
sArW43qYKrO1UCLZMUWgbFe272RlPbw/qkYHGa8ANrLZA7DS2UKIrUQthGr5
wS/QUVaNPvKfXvKjDkImv3o123nZ+dgJ2RnZKdk52UnniNhp2Xk5LtiZ2alH
amQnZ2dnpx8xZpxXCS0OEQ4VDhkOnYTwew4pDi0OMQ7YwCk59IYJbqBaj7nB
TGi9JrIUxa0UvxzHHM8c1xzfHOcTNDxEwyNm6tcoD4gA/z/7/8H//wE+818S
2vKV\
\>"]], ",", 
   Graphics3DBox[{
     {RGBColor[1, 
       NCache[
        Rational[1, 3], 0.3333333333333333], 
       NCache[
        Rational[1, 3], 0.3333333333333333]], Opacity[0.5], 
      SphereBox[{0.47423723529775574`, -0.6480361754232101, 1.125}, 1.125]}, 
     {RGBColor[1, 
       NCache[
        Rational[1, 3], 0.3333333333333333], 
       NCache[
        Rational[1, 3], 0.3333333333333333]], Opacity[0.5], 
      SphereBox[{0.47423723529775574`, -0.6480361754232101, -1.125}, 1.125]}, 
     {Opacity[0.5], 
      SphereBox[{-2.7115961456084743`, 
       1.23452142882811*^-17, -1.1033379957318034`*^-16}, 0.2572]}, 
     {Opacity[0.5], SphereBox[{0., 0., 0.}, 0.1786]}, 
     {Opacity[0.5], 
      SphereBox[{0.5418870027655551, 1.7076066337365488`, 
       1.6653345369377348`*^-16}, 0.5241]}, 
     Text3DBox["22", {-2.7115961456084743`, 
      1.23452142882811*^-17, -1.1033379957318034`*^-16}, {1, 0}], 
     Text3DBox["43", {0., 0., 0.}, {1, 0}], 
     Text3DBox["86", {0.5418870027655551, 1.7076066337365488`, 
      1.6653345369377348`*^-16}, {1, 0}], 
     TubeBox[{{-2.7115961456084743`, 
      1.23452142882811*^-17, -1.1033379957318034`*^-16}, {0., 0., 0.}}, 0.02],
      TubeBox[{{-2.7115961456084743`, 
      1.23452142882811*^-17, -1.1033379957318034`*^-16}, {0.5418870027655551, 
      1.7076066337365488`, 1.6653345369377348`*^-16}}, 0.02], 
     TubeBox[{{0., 0., 0.}, {0.5418870027655551, 1.7076066337365488`, 
      1.6653345369377348`*^-16}}, 0.02]},
    AspectRatio->Automatic,
    Axes->Automatic,
    AxesLabel->{
      FormBox["xl", TraditionalForm], 
      FormBox["yl", TraditionalForm], 
      FormBox["zl", TraditionalForm]},
    Boxed->False,
    PlotRange->Automatic,
    SphericalRegion->True,
    ImageCache->GraphicsData["CompressedBitmap", "\<\
eJztWnlsHOd1/1mUKMm2Dh+SGreunTqN3TZt06Zprga1k6YCihouergBChQw
1KJJgfoQqcBF4SB2m4qHmlqK7C6p+yIpkbLI5fJcLpfX7pK7vHe53Is3l7vL
PUiKh0gdnL5v5vuGw9UsY6D5I390gMeZneN9v99773vvfTN89Y3c7/3jv7yR
+/0jbzx/+Ogbb3/v+0dynv/Tt47SqaxHANSQFD0PdizRIf9TA0mS2MVfnN07
bJfF0L2inDgq7+Qz8hGTl3/el/bzc6urq1haWpJ//Xbm2/fKf3fIt1+7dg2v
v/66fL2vr088JvPYxk7ukU9sl29ubW2Vbz58+LB8jfTSIY4cOSIP+wXl2ffk
3ePpT6C2tlZFx85PTEzIxwyCwWDgT39XHfl5+cROWU8sFkN+fr6q5/3335d1
7eT02BgMPvv1m4qiv+XAtcxpe1Y+2L2J/Lvvvis/LdCFQiH5OJurEKNzonyA
P1aREgCunf+ibb/+8M9oSKUbhx0zozzGH2XXGayqqio2NB/25TSPsm2bjpf3
6QM4JB9kbwLANu4doWlhYUF9ao+OkV9S9L3CQ0k7iAD1hD6Ap+WDXbpuZezZ
KHa7/Sk+KLtFBNgedXb90s/FFk9qbKGdCMwuabZ488035V+CFEPLUJ88eZLB
26sz6KGHwmTHpjARx0+qN+zXmEZv5rBzTU1Nz/DBGGThj+3sr0xwe2Yo39G5
9JxOPLAx2Z5+P6exATvFYDyeeYQ/Ubk8x7kIFzMDsnkmZj1T6HK5nuPoxbDc
1Y9lHuJbahA8m2Eu8fkiY32B6xdTm9mMzLmF/m/rXPrMp5s0ghuTz+kYbrdq
HUUhvrGl1w5uEQ7hcFjki5c04LTW5iZ4ITOtp/ns1T7FNo/HwwtBNnw+36b8
yA24hdYnNBlWC1toYOeEe76YZiV2z69lVr03Q7DyWSiMyAJAOPx3eQAwzex2
PvJnNcGkqXMbqpk9foaL/0CjWmMarvo1Hp3MuOmFRmT6P9Khr5Q9/JYaGs9m
CD6GkIZ9WZ+gMrF4Td6cIZ/5GWmGoTl//vwrXDGrhgwsr9P7VJMp3sCvf4og
3rnJrtqCx2B/nkfMciSOVL8fcwN+zJNMXzFicdCPJZJlkrvROJ85m4vRDhXS
Lh0EylzH7+hcekoTqsJH2lAViYodf45HYKzPj6ELRvguGhG8ZMQIyfhlIyYJ
bJgkctWI2DUjEiSpEiNW3X7ci8UPaNyk6SW261emnTqnRdrbmZnPVgWEZQzW
NtH+83yeLszE0XO+Cv3njXATJS9R8hOdENEZJZkgOlNEZ4YkSnRmGS2ilCo1
Yr60CqseH88hG1HCk+9WvGRPZenAz9aE/sPP7tu6UgmFvLBokvBuuGts6DxX
BRcR7SWiAyQeIjtMZHs/LkVHwTnqG2z0dxfshWcxQ0SjRHSWJFHKCZdRUmm2
HdSJv23/B7JfSMtAuzM2RiIYGbnf4LNqvMeHtrNVsBO5LiJnP12K1vxzqMo5
Tqgqc/KoWN/KyccnR/Nxk6T8nTxcJyklqXvvFBxEViZI5ObKZI8Kh6blkwwc
s/VP6zVhnPDXNAkhfc6JvCiKT9OZKrQQvZaflqDxh6dQk5uH2ty8bXSQvw2m
3AKa3MacAqJbQDQLFIokMsW383DtrTz4i0uQJGqpssqHgpWXogzcNtLKNvVI
0+orNORfB9XJmSlZs8xPVvwiHylIfms8U4mmUyWoz83LQsOxfArwhmMFqCep
y1WkNrcQJuJVzTgeJY4kN9/Jxw2SMpVfKRLE7RBXzcJGBObm0NJ1x2d0Lh36
dAXi93jyDRCZ+pPkoWN5MMuSTxZrOlawjQ4LaPDGY4VErZCYFhKtQvJeoUIp
R1AqwI23NygNF5XgAFee3puz8TdKkJLvlby3XfWZbpuz86EGidFhqokKvszv
iYfjcqRZiIeFeDQz+UEBSSFxshCJPcSskIgVopFoNAhKOYxSoeqlCvLQdaJU
QnRK/vWUSkeMq22EeDN4SGV1IEMQpa1LRIVi8iXusrVYHJ0fnIKV8FsJu5Ww
t5BYZSncRoQKKScwIk25Ggo5nAJBryT5hDxSzjxC8Cv/u0QECe9wNEHCV2J6
ZejhDlAQ1zboX+XAl6mWjJ4pkYG3EPDWHzApICkkAgTcKtu++dgJAn8C5twT
MvB6Al1LYjpKtifQt8juFQS89sNS1BZXIkH+FDOD+VkUDBr6UOYJ8Hha05K+
SmfzS+R0bbP5Fe7lFSLD5uT4mVKFDEkW/S2g/qGFeDAuzBGW3A03yEzI9CYS
mQmxMJ8shYVyYENxpVj0sX5c2O5gevbZw8cXUS4Ch+U6vZX9N+W/B+TUz3Jk
gsT7k3MyXoa2RRaON1fBa2Z4cxjeAhWvJe8clSAj2ilXWwlvj6kDAjCzoYh6
DviFDPmFmZW1KaydJ37f4rOXuicZIStSrFjFScaKy+D5r/Po/NFpQkYISJoI
kZmk9YenYc8/D9fpMvRRpe+mwthJ6GyEbqDG9ss8HMrLy+W0zIuOMuk2vXXS
WWLIdj8s3/OkDIy1Baw9SDJgJUrrx9qHaeqZJknGrij9VOCS0m6wtoO1H70E
yklV21tj+1WNZ8QQ2apPefuaXljE+oQXFuHdZDKpevcwn4wM5pLFJnejrH1j
bRxr51hbN3VFafNYuxcieP6LShvI2sE+gjjT5xOvAFjRZBtz5E6dSfOoAnTX
ll3PRjmVz2/n1k5fJLGAFZHwGp+S96j7v0PNdIJ3otGrSsPNKLAGnDXiAYIe
pxXEUiT+We5mpkL0FrTPzox8p1pF0tsXhc0m5Ns09UlMM7Yx1K/qjKH82gFf
tx9TJAmS271+rM4keDe3OQD0ChnHmfa6ccOkW2PP+BiNxQwkNmZ/NmFf5XbX
ImASCydww2CSz7vPNCNcYsXCLTNWqmvwIJl4iY8vApSWjFuR0VvpqIGRnX5a
7PU6NuIgWjRRo5j8WZpldqHkYyMqDZ3yvSM3fUiZaWlpG4LU3YN1Z9NLXLdY
BPLA0VvcbuKw+dLurU2uTCeWWFg7nx4wG/c9iujEtKrAZ01ifmQJa9PLkGKL
kEanELN1IzYwKGJI+750o219XAt0ZyaralBsbnP1Wt+/VJULpO62XpSdcMl3
XP5xLz7+wIdZ2zBWHN0I9i+is3IQMb/vRR5z4mWvNrvu/9QzUc+0f6VC4oRr
DW24mj+A48eCcDdG5StL9jCspRE4elYwY/fD8lEVFpPxF3nAieW+MA/3/j4N
sB061tgAK4//1/xkQ7FNvqWocBIej5I5SMmapRPJ6h6ESnrgKO7ErbIeGK/3
Y7mxjX++UD64aF4U7E3PrnoGSDu3Xb35L7jNzWe7cONDL4pPRuAZlhBZ5q+O
yX23LXbMXjVh/FwN+gw1aKA5bjXa5av+WQmz3cNYtnWL6cEaEc3XCY5vf5q/
1EihwZvP9aHidADFH8fhCUiYWd54M+/2rWFgSsLd8SmsT4ZENGsXMzyG96WR
yobb5UPLRQ/+/R/qYCieg2dEwvSS9DTXMUvDLMZuY6mhFS/y4dJaQa767zUK
2y4H8ON/akJt+SI84xLGFh6ITtFHxoh1e7HU0c0VZqm9vKJeRC93x99xA3hI
r+3qGI7/sxV1lSvwTIr371nop+O7Y5NYnwgpb9S4UraxdJaeQjXqv8vVe0m9
o2waBW+1oc60Cve0xFstSgvcCIt1rfytiPINQ1RGMoJeklamH/6Gj+Bz+dFZ
EcNPcmyoq7+LwRnxJSgLwzEJUZcXi+0uvix7FKPdAUySzHQHMUgh5SuqxejZ
WkxdrMGSO4iVoSBWvYEnuQoGZqv694iCRsRTwBWC81YSJ991oq7pPgYi4rMn
qZoQ5gxyM+2Hh5C0GztRZ6iD1dAIh6EJfUXN8J61InSxhdq1FkSutyB5kwpa
pQVL1Y24U1OHu10OVtj2crOxDMFih71MIxNuAfQ1DrSSBrvwIyd++l4/qi33
0RuVoCyeDyK2JOF2dAG3a1vlylpGs+66oR5GgwVmQyvaDR1wFdvhPt8J/+Uu
jJc6MVPhRLzSiXlTF5brHVg123DP0ob7VgsetNRjvd+xjw8t3iyLF0h6OVWD
+M/5Y2z0S//Ri48+GIK7Zx2xRQl/KF87gBsmP6JOL+pOVKCCEqzJYEezwQl7
UQ8CNUHMDkSQckex4I1iyRfFnWAUayNR3BuL4B6ViHWbC+sOB6TOdhIzpCHH
Q2/fNS+e1Omu5Cl8nbthjBqoCEmSZKHH/xhHbjK04EpeP/7neBCeAQpJsu9X
edlrNjrIvvVqfqzIa0LgZhtS4UUlf+7mSqSZCKSgD1I/pb9eC6RwgKefjRW8
eCW+0Q7j99WJr5ucs+E724DpKw1IXq/D7Zsm3Omw4348sYOrritqx7UTbhgK
x1m1QISwf503LUps1MmKyqh5GeqekY9Z7GTwqXgZLi3dhuR1UFg08HyrtAls
Y1OOvwn6EvevNsOwfbNRaZXayc9sm7zRjaSpG3cau3C/pQPrbWbam/BgLiHf
33jGjrIPh2D4MAyPT0nz3+TDMl1lBqsmDLM3jRdxDmGuRW4hxCc6aYXQ+zvk
X2IKCh/wEOHfVZXvMU+oCiOTMzSVOlBbNCCfC34SQrIrjKW2Edx3BiH1eSEN
9mLk4nWU/6cNho9mMRSUEF4W/22RJYdLs9Gz0QWJjlkM0jOuIF8fD2ggzyM6
4JR/CYNrPxzxSP4y58Q2t82L5lu0LAivbDI+K0XWCwO4aQihr3EasV435j1t
mJueUozxDQzRLdWGatSTNJFYSdpIOkgcJF0kLpJukl6SfpJBEjfJEImXZJjE
RxKg7BMsqkHoTB1GKFhHz5sxdtGC8UtWWia2YuJaOyZLbJgqc2D6ehemy10I
V/Rg5pM+zNzqR6RqEBEyV9TkRbRmGLFaP2L1lBMaQphtHEXcPIa4ZQKJ5ikk
rNNItISRaIsg2R5FsmMWSVscF/7NhJQjJZsg5VxAynVbOe5ZUls/n32Nmt4U
kg4/b8KzKL1PIDbUx/OqxsIvKBZuJ4+HByGtbrZw0dkFXO2isL0xg/ryKMym
MAJmO4zlCdwqT6KifA6l1+dx8do8Ut2LMoxU7wrm+u5grn8VcwNrmBu8hzn3
fcx5SIaYPMCc9wFSw+tI+Uj8JNTxpIIsilIhFkBJ6lKSoyRjEhJMxtm1xASL
iDg1A3HqhmaZUBWPMQlTMmNCNTdKlS5CMsOEikmYZDpKaXKKivAzmKQGZYJk
nGSMZJRkhCQUlxAkCZD4SIZJvHTeQ+ImGSTpJw29JN2k0knSSUOUlneibVox
WQNBNQYyvuQXUyAWnqe500xO8Ys3hXJ25OsicTvb7kcCyrkQOWdqChu5PguT
/XNUsidQfaFD/SA8ePMmzbCFjSm50eY+yqdXLLxAo7fLs5cS5yFNgtP2yXdT
CdzvrOHpeRfWuwax1u6lBaEPk1U+uK960VLUT1VOrhsCgBQLQRqm4hUPq/8P
0mz00S0dJGZWZvj/p3yF2+QBDXTXXI17TQ1YbaDuoroDkXI7gpdscBW10dRt
oidr5CT/bZ5g1hconfY1QhqgkUaGIUUj6nvJBBWs4W6W3bo4T7PcOLDn+dBf
4yVgzcvemFRj5qKJZrXS2TfTrcPkGLr9O9wpDzxUkLsaIDlbSVhxpiLtCeDB
OBXtUSreyUXu78ewQivP+GAU0b4opnsilHB6aKXVRTnKRihaSBpUNPzd9nF5
9xSkCT/Vi1qSJupUWnGv2YY75k5qS51ImVyI3nJh6oYLoasuDF1woqeoEzaq
O01Esprqxg2ZaC2Z2A7lPR7yeNZfZ850ObBWX4c7tWbq3iyYq7RitqIV4dJW
jF1uhe9cKwaKWuCkyGwlmzcQ0kpSxzpDhvZXFJWFnOiaL0DtaRDztFybuVKL
8Qt1CFJm9FAb20OPTVFbO0aPJulR/r39F+K/EP9/l7bDI/8Lph8Rhg==\
\>"]], ",", 
   Graphics3DBox[{
     {RGBColor[1, 
       NCache[
        Rational[1, 3], 0.3333333333333333], 
       NCache[
        Rational[1, 3], 0.3333333333333333]], Opacity[0.5], 
      SphereBox[{0.44763813096729316`, 0.6666872907923991, 1.125}, 1.125]}, 
     {RGBColor[1, 
       NCache[
        Rational[1, 3], 0.3333333333333333], 
       NCache[
        Rational[1, 3], 0.3333333333333333]], Opacity[0.5], 
      SphereBox[{0.44763813096729316`, 0.6666872907923991, -1.125}, 1.125]}, 
     {Opacity[0.5], 
      SphereBox[{-2.682629630795572, 
       9.328142403724689*^-17, -2.3006158773244807`*^-16}, 0.2572]}, 
     {Opacity[0.5], SphereBox[{0., 0., 0.}, 0.1786]}, 
     {Opacity[0.5], 
      SphereBox[{
       1.0230934454368263`, -2.501732771735863, -1.3877787807814457`*^-16}, 
       0.2572]}, 
     Text3DBox["19", {-2.682629630795572, 
      9.328142403724689*^-17, -2.3006158773244807`*^-16}, {1, 0}], 
     Text3DBox["44", {0., 0., 0.}, {1, 0}], 
     Text3DBox["23", {
      1.0230934454368263`, -2.501732771735863, -1.3877787807814457`*^-16}, {1,
       0}], TubeBox[{{-2.682629630795572, 
      9.328142403724689*^-17, -2.3006158773244807`*^-16}, {0., 0., 0.}}, 
      0.02], TubeBox[{{-2.682629630795572, 
      9.328142403724689*^-17, -2.3006158773244807`*^-16}, {
      1.0230934454368263`, -2.501732771735863, -1.3877787807814457`*^-16}}, 
      0.02], TubeBox[{{0., 0., 0.}, {
      1.0230934454368263`, -2.501732771735863, -1.3877787807814457`*^-16}}, 
      0.02]},
    AspectRatio->Automatic,
    Axes->Automatic,
    AxesLabel->{
      FormBox["xl", TraditionalForm], 
      FormBox["yl", TraditionalForm], 
      FormBox["zl", TraditionalForm]},
    Boxed->False,
    PlotRange->Automatic,
    SphericalRegion->True,
    ImageCache->GraphicsData["CompressedBitmap", "\<\
eJzlWnlwG9d5/4WHLkvWQTtunNhxxknqdDJ1jnaazqR10yPOTJIeOdzkv3o0
bey2lh0djmJP5JGtRiRlWaZCW5BkUdRBEqIuggd4iCJIyQQpgjdAEuB9CARB
ELwv8dp+b/e9xQO4QNKZTvNHd+Zxd9/ufu/3He/3fe+B339x/0v/+sqL+1/e
/eJTz+998bWXXt6976lvv7qXuuI/AaCI2umnwK4VuuR/iqAoCnv4ezn9JzvF
MyDf1jpeUU9qj3rF2t/9Hz7azvsWFxfh9/vVu69LWOPYy9pLiepLVVVVeOGF
F1Qhu3fvFi+/oZ42h73y/PPPw2q16tfs3NTUhK9pn/xCPW3QP0lJSVGlZmVl
YXZ2No4POjU1xW7VM5PArr+qSfixjvBJtWOjKot9z148ePAgBgYGYLFY1OsN
XFU2FkPO7r6iCfqmLoieqz38UI21Q+1KCLMbHY9H4BdWYXoQyHg+HMMrvorn
khgs8TpZiKP4iwj/sCMuqs/W4XlMvdhk6AJhwLS0tC2SXRkO2a7ParL+kr8i
DyAA7TQe/FHJGLIDmKFJ8k6uhtvtFl344/8VrXepFzuias2eMkCmtLOwmgpR
YyqC67QVfees8F0qwlh2IRbbPZu5dCGGe2Yr604IRZgcKYlhkfJb7LNdClCj
+cHmhab1Q/B7x5Bx4grePXgSVaZKNJ+tRs/lWoxcq8VUgR0LpVVYKivDSn0N
uTvkTSbL6/Xq8rYaWJar8dcGBt6hq/YwF8oIgUWzPJvidIuQfLOpCPLRntOB
IYsHwTIP5u+4sVLjglLXQO0O1ly1W/ioDKyIggRdXoIBpic0uN/SoX02hh3F
RE/gE0HW22y6g2umFjgKh+BtnQjNdPLiyCSUgftQ3E4orruYIRNulmiRhwK2
GeD7jDbAczqtP2FACgwfO8icsUiBHa76foLaQiEwZzQHxOfKwjxBdsLf6oKI
3D179sjRFOl8Ce1fGTx6nNtMuFxIYy5nT5htCfQW6VPCqN7JvOnvXYYivEp9
o/0B+N0e9c7I+5uMZwuP0m/EjI3HopiazXaCvl2OgsVZWTycjhns+80SFlYV
YVK/d54s34o+Zw9NwZD3mSFMJpNmZikEDa34iPp387qUIJOR4N2tfLZHqA6l
uxHK8BCU+QXC2a/2ncpbQ2BJ4QyRgK6GcVwxtRHgagqZzs3cEkwsc14EsXwp
OuCdUs4QrhdfMwrhEnaGWC8eq5NjUBrL1TutbxO87nFcTu1FZ18veiu8sGe4
UUhxzACaTdYtfNYK3WVbHD58WL1/JjrK7QaeZgfPtGKmMGnMXewuSf27FUsN
dqzdKUPy/g7Y6gcwXdoEv6UF9Z3DaM5oQKWpFjdMNpXJiHcfljzPpLM4fUaa
4xI9xk60dP04j/q0l7PQdLYQUzdKEMgtx8DF2yjI9aDWVIZikxW2fDsbWuS3
jIwMlcW46f9QG/17Eu8xxxi4mXPPZjibFnCpbFW9m232YKqRGLneg9MfetBH
5wDllyTJZsIDX9SG+pI+64RAOamzI9KF7PozXKDT4cPbpyYxsbSmz9pjp6Z1
XyYZWJgP/EcG+erxGHzPch3z9+f4d3ve6EJgQeF21Ppyin1YHWmRhk5Qv2UW
ZiqRzC9ogz0dk2w+GRGCwv4MD8n7vNA0dRzto4sis6h9lV0K1pbn1btHJbOL
omubnjw0+sCXDcZPkmIussAVMedwOJ7mn77zSwfKuxUOWuu7XqNgblWRcCSE
eYHEGKW4pOigdsRwDmdh7tt4mDPbcaVa4V/wvqtL8D8IR8TkSN8nxvRKkhSx
0Wqu35qL2Ugul0u9E/ZzOoJIzpzjRhd9U+joH5JyT7gft0ag4McuKbjX0Qcb
m4WwcKUSSrXP6MO6ceC/hhB8EEqhNe7RiMjUXHn16lXhyod4DMo2Eag01sef
xXCfUEq4/cSHc/DNKJzSeEDVr61DEeG+WCji9bjX3tJkqB2fjkL4zEyE6lkO
4NeH3KjqX1bvRM7+0BIC9QcRXmIkGcrj8eFXEaGlKYlPReWCjWG1knAgX2RB
QMzN6kRek/adKMmS3/Pqsh7jBpI1FcXRtt8F4A59giQavJQUxcUsxsQwX9UD
bRoZliX1ThBBk4+4K+gOo0CRZkV5qK6uTKbI8OduNipjOfTHdP2SYvtbyBAz
hLVnddS9+NWJUTXfiOx9q13B6soDycAbwipuKR626Bji9CtpDyAUWXowrS9M
Nq0rneR1td1u/xP+afqlZYzOa58KrLk2BTOrchGulQDMwtxDO/5n4flQFNrj
PhexxDOGevc13pfyzhBc/jVJNyLpi9MYXggH2N3drRqUb6Vs1023NXImG4Ex
8GwwGNTx/ynvO/x6OYo75EzDvO1FW79PvRMVh1ijsdnNVzhaRbDZsKyVtkLU
6z8XohsXcLlcq5p28b6qtnEd1qe57kwWQ8+rJq076rpUFNEsIr6pKzGMI6cn
ML4wp5dD2fYQOT4hRpc2qhIj5grXNGpyE2X0q296MLYYXnr9JuuB4VjCiAnG
M5knsk0xWSk0leJDSXujvrfH0am9PM9phTWrnY4FMTwlL6TikXd7KgJqQtja
RN9ni4Z2o06PkUSkaRCGVmw5MoTiECz5Lf75kTdqUNEj1yzxqBui+8le9e6z
Bs6LiwkxYssxZMHYsKN+Rgow84iDBQVTQESE07mMqzVyJotHUbOClRUtkT7J
wTIjSOvX2DpsjECpTT92hHbJpK90izCmk+hAx+gYQ+r5SfVOlFrmYiLuFUXC
uNFwbzh8CKOClaPduA6VfI60sa690RbOczpuN35xdADjS6Hiw3zWi8E57b2n
uH8iarXQzEmSAUbJpRvDsEbiNspgf8uhnDg1h5FZTZzIHC19oVLySQ6PeYOF
DaNIUcd/UkKWGM02RjEpBj96qA2tPjmPUKJumY4YfIOaCuTFJU/Uj0rjb9WN
ETZCbpYbBS0yW8fjQkWIVz8nEYhUZz0SyWsb9KsE/UpsmLJFwPl8jT9FAko7
O7VuDJEhufn4GKFE+R1dXhcOnRzBxINVnYuvld3X5YkFiaAkNrN5kPyUP/rg
8rK+7BUiqvvofnpIEhHaIORqb9BpT9s+wk/4tynvDMA1PCM5hXi4TsHSqpYc
v8D7mCy2M6a5bf1k09ZN+Gf+6HpuP8o8ShhJmq8tYWJZ6/s8hyn/NkLaxpD8
grBh4zyyK1bDwlp+PY5DFH03TA44PWPqnsiCd+xpHvUymYgtEaOamo/+Y92D
Q/j1mfGwuF4/ujZpr5kKccdUirsfd8GfcwszN62Y+9gOsX0gOJe56HcY+rVf
udVlIbtT6SbqJCTtGzOdqDC1YtbWjtXaZiiOKsx4fRrVbEGg2YP7JdXouZCP
/ov5GLqUj2Fq/sv5mCyvxoLTg+WRwC7uJZbepA1Co8U5B/sj/ujddwPwTYeT
j0xecRwIO5z2ZvVcen4APXfHcSVrBivDxAn3xzDr7IDf1amNuB3TwwF0WavR
cj4fbZn5cFPrIh36SIcBwn+f8PuojWblYyw7H+PUZm9XY9kf0Ms8ZnZBxSFa
4SX2D/lLR968C1vPgxC7RCwiycUX3rqH9MOtcFbOYaxrDo2lYyjMdMPf3ced
shODjW7UnrOgPiMfTYTZSXjbCa+HWjdh7iPMg4TXS3h91EYJ71gO4aY2abao
uMXvsWKqCK5mOmjrCvxARCdl++t10va/nB/KztiRc8IFgd/X1IMHdgrN0h64
zJ0oO812cKvg6+vh7tmFvgY37nxkgZ10qCMdGkiHqpRzuJt6Djf3JePG3mRc
p3aVWu7Pk1Fy6CRqj52D53SOpgfpMGG2iL0ZMelE0PA9OW39iX/S59goPjLP
Sqz7sJprKzNdKvTCS0G4uhUMzoSS+aK1BBM3bWTQKjhOV8BiKkFFvl386nPr
bB5spMdd0sNG+Iv2J5OO1v0ptIYp2p+KQmoF+1JhoXZzbyrplEL6pMD8WjKs
pJPnTDbGSJclf0D85CczF+m0NVyHgym96iI1FP+JaCMd7NmDOPpKBax583AN
CSpNxIPhMUw1eDBar+3auqiJWreTnFBCCtw6mYPSA8lxKDuQwv6kEvjSA8dQ
Qq14/zFS5JiuxA1S4pqqQAqyXk2GmxTQwYfYT9St7JqvfP+Ra/D+qVn458P3
LTodPajLG8eJX9rRUr2MZp/4USEeAW8A1rRslB9gpr19IIUC9zZhvE3oynkr
o1ZKKEuoWfcxtMdgIaQ3fp6Kq4Q0h8x9ec9RVZZYv4jqliUgDvEf+KOjb7XA
6VtR7x7lEAtMNlw82oz0I22UKhSMzIQq95q3T6KC4NleTyGIttdTKbBsrx+j
Pq0xqLc4xGKCVsQgErw8gned4F0hQ1rez4anwS12lxk68Sus/osZ/p4PyGqU
Ipe8HmOhWAvzyTZ88B6tvmnBOzwXqh57z2bDRgArVYBVKsBKAlhJoGwcZDmB
K2M23MdtKAEsSctRI4Ui5hEOMKL45Nn/+/pUm8KFIo3mdnCAbKpVXejA2z8r
RmH2BFy9YhomIGjOQ4DmQdt75wgURWEVeXhbCN9+jm8fw5cKK2Fj+MqTz+Fj
NvVoCrKpGCT/CoDit2xeO3GA39MBenA4fZizgAawnQDWmL1Ifs2GovwFOO+L
GmMXZiqqVdIZy7FglAio94wZzuMZaKV2myZ5ObW7b6XjXmoG7NTq0s1oJFJj
5MZIjpFdf4NbLEPkQmxTOLIPs5b1tbbY+LxJrOMomMT7b9aipWYFDT5RkO3A
LCGbIFRBQhUgmh8huh+mNkT0309poIfSQSe1jgtammgmVCxtsPRBaUSECKvr
GPuzqp0j+i5/lHqkD95JsRzTEBUSoV9KbUH60Q44ad3HFgTaj0zbsOh0E6J8
BLO1hMkQeQnN4CUtoXazRJWpJdpWQuNr8uhVsMziGofx/3HagGkvpW1q4vH1
3B6Ud66J/10o/6gOV9LbYfloGC6qEL0U/1/mmJdGAphv9WCulf1XQTXus5Kk
lOxG5UqQ2pwvwNFr/7Wi1RRbwiqgPKq6qk1FaDtTjMHMYgRyilB7vAJZ10cT
pQi/c9GDI/9egsIrk3ANKPgXTchzfK7KpQ3j4lyq49jRfO4e+nMcCOY70J9Z
iox3G7F6pxSLtwvUdztIdG2uDyl7q1BQuIjWYQW7ZdHhy7ycD4o1HTZjpjOI
hRYvilJrMN/Qho7zuejMqUXaIQda763CT9XUv8mSHg6TxA5P/bh+zc7Hj4/i
OFUo6Smd8LuDmOlqwWx/90uylC3rpCijA+q/HIh+B6XagZk1scJusw+is9Km
3v0sNh6lrZaalrRXh0i93nFMusfRees+bp1pxxUqzV31PS9JHpU2Nh7Ccp9H
d+tKVS1my+rhz2tEZ1YD7p2pI66/SxVLsfovNFzI34hI8ngwm1eA6etFxAMl
6DtfhmbyYYXJiqumAvWTl+W4TcBEvZZ+B6kFvWP/oT39/f4H4f/nEz7x3ymR
19M=\
\>"]], ",", 
   Graphics3DBox[{
     {RGBColor[1, 
       NCache[
        Rational[1, 3], 0.3333333333333333], 
       NCache[
        Rational[1, 3], 0.3333333333333333]], Opacity[0.5], 
      SphereBox[{-0.4691369280964024, -0.6517379708872818, 1.125}, 1.125]}, 
     {RGBColor[1, 
       NCache[
        Rational[1, 3], 0.3333333333333333], 
       NCache[
        Rational[1, 3], 0.3333333333333333]], Opacity[0.5], 
      SphereBox[{-0.4691369280964024, -0.6517379708872818, -1.125}, 1.125]}, 
     {Opacity[0.5], SphereBox[{2.7091527419445662`, 0., 0.}, 0.2572]}, 
     {Opacity[0.5], SphereBox[{0., 0., 0.}, 0.1786]}, 
     {Opacity[0.5], 
      SphereBox[{-0.568372249901268, 1.6981463206030458`, 
       1.1102230246251565`*^-16}, 0.5241]}, 
     Text3DBox["24", {2.7091527419445662`, 0., 0.}, {1, 0}], 
     Text3DBox["45", {0., 0., 0.}, {1, 0}], 
     Text3DBox["87", {-0.568372249901268, 1.6981463206030458`, 
      1.1102230246251565`*^-16}, {1, 0}], 
     TubeBox[{{2.7091527419445662`, 0., 0.}, {0., 0., 0.}}, 0.02], 
     TubeBox[{{2.7091527419445662`, 0., 0.}, {-0.568372249901268, 
      1.6981463206030458`, 1.1102230246251565`*^-16}}, 0.02], 
     TubeBox[{{0., 0., 0.}, {-0.568372249901268, 1.6981463206030458`, 
      1.1102230246251565`*^-16}}, 0.02]},
    AspectRatio->Automatic,
    Axes->Automatic,
    AxesLabel->{
      FormBox["xl", TraditionalForm], 
      FormBox["yl", TraditionalForm], 
      FormBox["zl", TraditionalForm]},
    Boxed->False,
    PlotRange->Automatic,
    SphericalRegion->True,
    ImageCache->GraphicsData["CompressedBitmap", "\<\
eJzdWntQXNd5/5mHHpYtK1bi2nVcq4nbcRLHTdtJp006bdomUWrXHbd13LRx
0nrUjq14LNsSap3YUSK5lVmwZOuR8QISevEUQoIFdnktzwUEuzzELrA8BEKC
5bGLeCMkELffufecu2dXl5U6nfaP3pnD3nvuOd/5ft/7nMsLr8a9/q9vvhq3
fdurW7bufPXt17dv27Xlu2/tpK7o+wAUUUvaAnav0C3/UwRFUdjL/+2fX7Kf
aLbm72kdH6g/ao96x9rv3PXVXvYTJZHZZzD2a3clcwc3ocy+xn5i2OvntI7X
w0ix69d53+LiIubm5tSnr2pvtxus/Gvq31iMjY0hPT0dL7/8svq+tbVVTPuJ
wbTN6t/16irV1dXqtK1bt8Jqtarj2P22bdtUDp5Zncwm9e8aQzI0NUp9HYP8
/HyVGmPQbDY/I4kDMSEE6XpIvVmn0zSZTDrN4eFh7N27l9GO4bOFjNjSBPor
kmRVhW6UWJQFNDg4GGQxGhMTEzoTgjSbkpOTIwTxZY30n+qkaZrQmvZE17Nh
3MsSYdzv2LGDrXU/X4INYa+4hPgS3zKwiygD8a/T7e1JyWrEsoJHIaGgwqKF
tNSnp7U1/oxbkryAWHyDweKPS0iZ9cl6YsJlbwntZj6VDREW9aDO96P/PcDr
DfoeM1Aw44NdtOgjXNIMLes+dOgQ42Pjqr4kKzg2RMGRpPFIBIcSCmBKZveP
8fmMW6GEGD02xKzO2XfuUSSazNcaMiM0/xt83vT0tNrHGHtg9aW/rQvFCL0c
B4QtMKIMIdlClLQWd188IVmiiDYR1n9RX3/TKuAYKCbhd999V5eh7NWfDwsY
jDcSiBEcvuY/GUQ3drEViEo0nyn71xcNpLpeZ11TPF6JECPYBDaZPOdL3CFl
wxYepK2DP9JJP8l5FdJncYbxySc8w197vd6QpbgQOLk/NI7Ij69i20ziAjzr
Z/dfCxMAiwRfiEj90QjGythjfV+XnFgSw29GJPy5MPUxsdxFfb/PKfX19amc
c/FEXmczV6ecgtkajAAL+dzjvhkmGYZlS0TCq2VX9kvP0RJBJiz29A1OSZgB
F9ST4eay8R7CFaPL7r/FabJxjGmexR8KI4bvhikyPHEzXr4neb0IfbE6oXUG
vqj5J55iP+qbJwziPbs8Hg9j9zljCcQYi3itQbdYSHuH3zJg6rG7eDDrKy8v
fz5McjzLR+JFlUO0wZJrtGFPRMwTj0TwJRE6/tZABVH/A46M5LPZIB+wKywf
MDcTU16UXFzS2yqcrTHuNqoZIrD5GUmNsucyHqRS8/vGalyFtaA5R+l3UqWo
KWhVluRyNYLPM8mRgalPL3AUHa5uNFnqUWcuRHtSES4fK4LvVCGmy+uxNBYQ
7DLhCr0L/h5cXW5PhQ1af0c6NIoZf6WbKY9iY8MBZJkL1J5Ksx0tyTXoPeWA
L7sOk/m1WLBW4GZJMWYd1SHEiVgw0GjxgecY48pTZAiysr/hpihAsUtjoxDZ
5gr1uS65FZ40NwbPdyJg68R8ZQeW6y5BaWzCju+/iKKTKbpDM4vkGfxZLi/Z
cIzK7ZfC5Fp+oZobzDr4O6cw0zeNpakbWB6agjJyHUpnL5SuNoxYzwtT5ilI
feJ1yVfuEn3YW5LDD3h0ZVfWr7R9XYdrAsHYRn9vzGOsrkpMkcUuVns6QkwR
9dYrEs6sj20k5jldHnnmUpz4eSMqPqnnMYtS5fA87Bm1ISbDShPu9FoYw29z
AHJNwy5KPvgRt9Ew50PFMRsshwrF4h8dmMUJp4LxG4oew5gMssxt1Ox6EJWl
rNUNvMRaveqR8/iPgp6+EWf2tyLZ1Iki6zRa2sfU3pMZs1i8whQ+hUDnJIba
JlCS5MVZcyvxUYMKS0M098/U1FTd48mKOTdb7kELckEg7OAf1b8Pw5ZUi3TT
JSTtH4DnEvnjrIKVqQBWGkoRv7MNlqoZLFS6MWHrIGfogOeMG/XJLSgyN6jO
wpyGnCdWWkIklDV6xtwg5aiwwssghsmO8kOu6tKUemQdcCP5oyFK6ApG54Te
HoDbeRkHd1bBW1xP4aIMU3lVGMmuRd/JGrQkVVFYKccFs1UNM8TqGslHmeUw
Sa01iHPaVlyLLavmumA8V/t1O5b2OqLkE7bhdDp/zFHZj7mQc8iLlMOj8HQp
GJnjVQ9JzO28jp/u96lIKUrjhqcbvhOFuJxCUZyEzqI5i+osuq/jJsIcQNrL
rVkd1Vo9DoenRg1pCKoozi6TmAgE7GLO8WOuU7fTi8rUduz95yKkfDqBjh4F
vnlFCHbPmxeQkj6PwE1RBITaSuzqrIadpgQlHpn9VafRWsw1xcWrfu5IGzA3
4kegrRtDxXXoP2XB4GkLhs5Y4KM2lmbBVHkdFtzduDXq5wlHA199qgv/8S8l
SE6ZQsdlBUPzitiC/+dPm3HOoYH6rBRYRMyKAN6oDtXt7M4op8jlTugswiyC
nwhorGk++RBmfH70WevgPmFB50kLuqn1EfwBgn+VoA8R9BFqY+kW+KlNZFgw
mWnBotvL884aeEgMjjN92P+aHbacOXgGFAzOrtzP4TEpHUjwo8R7E+L0RewB
uMUa1a4hkgg/44ioaK0cYhGGfI7vhB/GFCFtPJ6P5lQL2gith5B2EdIeapcJ
7QChvUpIhxliQjpGSP3UJjIZ4nxMZ+WTQ/pFEuokVPUZgzC9UQ1b/g14rip6
2eR2+vDOv/dieErRD3fk865gIfiADHLtanqVRBBaOBoVk1/gBj1JeGuP5aOB
MDsJcwthvng0EzUJx1FLzbbnMM6+E4+6xONEp57+rkWXOVPDnanhvk6YpzTc
nG4svAS8IduHj96qRXHRTXiGFH5GG40sKp/2Hb2uptdH+XgWA8NPIDbdczQy
0vIXuRE1FzpQRQgdhLDCdDwKll3xlG8L4uLpzoR83i5Qy91pQs47JmQT4Iy3
49FAcL1JmQgQuAlqBPRJzm+3sxeNuX58EteA4pIluH1iYxCNfbvKkGZbUp/E
OSMLZ/LJBzfphySIsQZqCsJWMT3FVy9OzkPZoQwUEQib2kw0yrbbRMBscQmw
UiuiVkjNsisBeTsTcJ6Dy6KW/lY86fIYxgmUPysPCx7v45x0nrkEzvxJHKaw
ZLMv49JIMCabftGPwnY5NNxx3L0xPC8aqSasL0YfLHTWeLYUxXEfomR3PEp3
m6JRtjshiu4SyRVK4hIJYyLhS0ThrkRYCNsFarnvJCD7bRMyCFvhzw9jlHDN
ebzCwPIpz5/c68Kv9rhhrbyN1tFguHU7+/D6a5dwza/wQBCjn4/wbRvHtSnM
All7mq/QfDCF+IxHOanBrrYEGmknph+kvkR6l4hSYrqYmlVnPlFl/hyzurc1
xRS8fwgzHi+vKGNRYK7EaaoOP/3AC3eLVoQ9onN+He/FUx0wHzxFlLdqPHIE
N0Nf5vB8JJ2GfYdRQYxW7jZFofLfSMKVqoQr6C9juyxOYpiYLSRm85m0SdI5
xGzmWyak7fhwM+fTShVpGhWL5g/71WKR1SaPcp7OnurAsawFBBZXdCWznaj0
xYiz+k3uMOPE4BiZZ+O+I4xBVJE0qxiPVapAGacyn6pVEI9FxGMB8ZhHPJ4j
HrOZQD/JgO5Hmu5iqUQtgIuqpD6qmIZPFKhZO5YjKUmuQybVk0kHrsHToSER
X9j2/6wZ5xs0zYutuLzXi9WjVbQMKBYzFQ41kPipDaRkomnvERrCYHE0hMAe
x6VOSIpVNAkcjQkF7x1B6aFMlKfkSz60ER4q8c7Tboldl9MaMJHXgMWSGizZ
i+Evq1FHlR9rwtlDnUhmpaSXSsl55XE57yYG0HJVWLKWGNnF7D+8/LgD2cNq
3J/UwiMClAPHKSf0J2fBfSCVUJmoJRCyBJRTK6NoVELNRqiKCFVVfCocR7JY
/pFC/AZkHrXBmuRWlxsuvoL5uisYLbyI/jMlKP64AkmfBtDRq2B4XtE/CrCE
uvNnvfBNK/gSNzL24UZsUUlNRsWUtiT+mFdgDA3LZiybs+zGsjvLdizbD6dr
2Z9VAZep9ZzWqgNWJbBqgVUNrHpgF8usuqzWI+ugA41WbV/X3TyNo3EO5OUG
MN4zjjbbRQy1uvSvK+7meXxwNAD/osK/o0bLG13DkvA+DcWfqD+bMGevUyuw
CV6fsMqMIWCVGqvYWOXWR637lFbRscqulbjvpipv2ucPbmm0gE0JqmcEbdYA
BgIz6HdMoOzEIC5anJge8+kK2BdXhvSSZfXpq7xPPu+JwLf6+Yw8gUl/kVzx
eoZWSbKi2pemFdms2GZFdy81L/F8xVaHWZJyMD9qwl6nLeB00D61DXMVHTie
OwL3sRIUmhtRcrZc8Gv6ZT+sHo2PZ3nckTfp4oOkQekhsf4X3MFvUs0/196N
2UvdmKY2RW0tfydPY23JH4D4WDiaWYaCJCeacyuRo22YEfTOPmzfTpkpoOj7
CZZxmYdK5526ALQSGeLscZpiwwS1YWqFubWfl7LG+wk+jJHz/C7nkG01hLOI
cw1+4vgDPs3upt3/zIhU10Qj53QnUs8uqE9f532siGUXI7UmlERB1TJuLN9W
n0Ru2P+eCxeaNLn8AWeclYH8m2vQbfEPfIajI6BL8nNSHDv4kRbHvsH7hP40
miEkLPYZKDenuc8LEsOIe78XIzMK/jx0uOcaZYG+bvVJVEPulnl8mjoJP+1a
NRvg5ybRKHQu6AuLqvCD3aXILNec49uhwy+NkWD9Pdx1tb6Evf2wdWgkvhM6
3N11GyPjIzz+C9578ZM32jE0oWCrNvyH/FVW0bzOzAP68OvYc8CH8QWFf13R
h9f2ETMLAR6Hg1o+cU7D9Jfa8Fe43fSNz2CWLDZAJjbZ3I0bvoC+G/uQNJvv
0lZ+TjaEz2CcpnS7etBsuQiHuRjWmuvoOJKO3uNlGDxVhpGMMvizSzCVW4zZ
vCIs9fTgdiCgqvnjgxNoHbylHRcDL/M0xPymwtKAXLMNNqr2qqluakqqQc4R
NwYLnbiSVgff2Tr4z9dhyuLAvLWGEmUlbpWVo82ch917ejF6LfCC7EKf5We/
VmSb7VQb16DMzM7KG9GS4kLn6WY4PinHUG4rxi2tmLRSgV/ajJsVLixXN2I0
pwYZB9oRaG2BUmfFSns95/klLl6Nuk0vhQvNLgy4RjA1PKvHjNLGJXI7H7fg
tTDvKkJj5TCUZheUlgb6rYLiKsZyRwOel8nHqoyzq8LSSRKfCVZB0vb/QtE0
FpZWRJ5K2NcPZ38wUilz5CgDnVA8NVhptWF5OiB0GVzFHhLggpE4uFe1t2oW
xez0jTfdGJ5U9HSgDHVB8Vbh9miPIP13/JVv4Box7+Z5GneebfQQHU/9Vfzi
4DDbTwrLUyavQQn0ywYrSLaRYpTJq5Is1t0RnsWzmwRxcUARZxT9bT36kO+F
Uh0ZGMJKT5VE9d7/L6XC0kFVXAizL3ElLbcXQ+l2CPNQpaoSuV+f20nyr6T5
PeFqWfKSbVwqg+J2kAZJxLMz/OwhBl0uH01rpFbNjOR52ebXYaWLZjpLyaqq
qdF9kxNKZw9Wro5i+cpYLB822jaKoeYRtFp6qJxuouRVp/LCDJqq0udl99xM
xk+EHDYotXas1FRjuaoON+0XMV/ahCmrE/58F4bPudCf4ULXSSc5WBM5WgM5
nIM2b1XkgGVEuUh1Ge5Ff88j5sr1AJaJz1slNizaSjFfZMd0fhUCudUYya7B
YFoNelJr0J5UjSZisJoM1kYlcy65Bwnur+XwugG3vD1Y7OrFdOVFjKTZcPWk
DX3HbOhIsqGZzaCQNeDqRYAY0b4//h/8y+L/vx/c91/QdNZe\
\>"]]}], "}"}]], "Output",
 CellChangeTimes->{3.5758694977664385`*^9}]
}, 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, {
   3.572714864038488*^9, 3.572714889419732*^9}, {3.5727149730514793`*^9, 
   3.57271500191153*^9}, {3.572715036933592*^9, 3.5727150664176435`*^9}, {
   3.572715803191337*^9, 3.572715915183934*^9}, {3.5727159899548655`*^9, 
   3.572716037722149*^9}, {3.572767087700392*^9, 3.5727670990260115`*^9}, 
   3.5727756458897667`*^9, {3.5727757435615377`*^9, 3.5727758099084544`*^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.180909111492542`"}], "}"}], ",", 
   RowBox[{"{", 
    RowBox[{"3", ",", "2", ",", "1.186242066466073`"}], "}"}], ",", 
   RowBox[{"{", 
    RowBox[{"5", ",", "1", ",", "1.1800816686131144`"}], "}"}], ",", 
   RowBox[{"{", 
    RowBox[{"5", ",", "4", ",", "1.1798263536923503`"}], "}"}], ",", 
   RowBox[{"{", 
    RowBox[{"6", ",", "3", ",", "1.1884416251145054`"}], "}"}], ",", 
   RowBox[{"{", 
    RowBox[{"8", ",", "7", ",", "1.1773628123992779`"}], "}"}], ",", 
   RowBox[{"{", 
    RowBox[{"9", ",", "8", ",", "1.1787421577217572`"}], "}"}], ",", 
   RowBox[{"{", 
    RowBox[{"10", ",", "9", ",", "1.180702993902901`"}], "}"}], ",", 
   RowBox[{"{", 
    RowBox[{"11", ",", "10", ",", "1.1858359653762258`"}], "}"}], ",", 
   RowBox[{"{", 
    RowBox[{"12", ",", "11", ",", "1.188490102525311`"}], "}"}], ",", 
   RowBox[{"{", 
    RowBox[{"14", ",", "13", ",", "1.1784738568310034`"}], "}"}], ",", 
   RowBox[{"{", 
    RowBox[{"15", ",", "14", ",", "1.1791971908481904`"}], "}"}], ",", 
   RowBox[{"{", 
    RowBox[{"16", ",", "15", ",", "1.180942323460848`"}], "}"}], ",", 
   RowBox[{"{", 
    RowBox[{"17", ",", "16", ",", "1.1858201891514784`"}], "}"}], ",", 
   RowBox[{"{", 
    RowBox[{"18", ",", "17", ",", "1.187185277057574`"}], "}"}], ",", 
   RowBox[{"{", 
    RowBox[{"20", ",", "19", ",", "1.1766105338859703`"}], "}"}], ",", 
   RowBox[{"{", 
    RowBox[{"21", ",", "20", ",", "1.1755675224721844`"}], "}"}], ",", 
   RowBox[{"{", 
    RowBox[{"22", ",", "21", ",", "1.1784949993929927`"}], "}"}], ",", 
   RowBox[{"{", 
    RowBox[{"23", ",", "22", ",", "1.1855850720295475`"}], "}"}], ",", 
   RowBox[{"{", 
    RowBox[{"24", ",", "23", ",", "1.1848497743990636`"}], "}"}], ",", 
   RowBox[{"{", 
    RowBox[{"25", ",", "3", ",", "1.1302645531044595`"}], "}"}], ",", 
   RowBox[{"{", 
    RowBox[{"25", ",", "4", ",", "1.1245844131585692`"}], "}"}], ",", 
   RowBox[{"{", 
    RowBox[{"26", ",", "1", ",", "1.1367808301760907`"}], "}"}], ",", 
   RowBox[{"{", 
    RowBox[{"27", ",", "2", ",", "1.1322705459102396`"}], "}"}], ",", 
   RowBox[{"{", 
    RowBox[{"27", ",", "7", ",", "1.126928523305504`"}], "}"}], ",", 
   RowBox[{"{", 
    RowBox[{"28", ",", "4", ",", "1.1326811040162679`"}], "}"}], ",", 
   RowBox[{"{", 
    RowBox[{"29", ",", "5", ",", "1.136121316930776`"}], "}"}], ",", 
   RowBox[{"{", 
    RowBox[{"30", ",", "6", ",", "1.1383273338933404`"}], "}"}], ",", 
   RowBox[{"{", 
    RowBox[{"31", ",", "8", ",", "1.1379000482431825`"}], "}"}], ",", 
   RowBox[{"{", 
    RowBox[{"32", ",", "9", ",", "1.137526968463311`"}], "}"}], ",", 
   RowBox[{"{", 
    RowBox[{"33", ",", "10", ",", "1.1318185231744449`"}], "}"}], ",", 
   RowBox[{"{", 
    RowBox[{"33", ",", "13", ",", "1.1264089593419884`"}], "}"}], ",", 
   RowBox[{"{", 
    RowBox[{"34", ",", "7", ",", "1.1236464208156869`"}], "}"}], ",", 
   RowBox[{"{", 
    RowBox[{"34", ",", "11", ",", "1.1303969883089011`"}], "}"}], ",", 
   RowBox[{"{", 
    RowBox[{"35", ",", "12", ",", "1.1388614162267112`"}], "}"}], ",", 
   RowBox[{"{", 
    RowBox[{"36", ",", "14", ",", "1.1389324797249973`"}], "}"}], ",", 
   RowBox[{"{", 
    RowBox[{"37", ",", "15", ",", "1.1367959876247749`"}], "}"}], ",", 
   RowBox[{"{", 
    RowBox[{"38", ",", "16", ",", "1.132325757042272`"}], "}"}], ",", 
   RowBox[{"{", 
    RowBox[{"38", ",", "19", ",", "1.1274432414442581`"}], "}"}], ",", 
   RowBox[{"{", 
    RowBox[{"39", ",", "13", ",", "1.1238590233473755`"}], "}"}], ",", 
   RowBox[{"{", 
    RowBox[{"39", ",", "17", ",", "1.1307826317470946`"}], "}"}], ",", 
   RowBox[{"{", 
    RowBox[{"40", ",", "18", ",", "1.1392107759309054`"}], "}"}], ",", 
   RowBox[{"{", 
    RowBox[{"41", ",", "20", ",", "1.1378588926704931`"}], "}"}], ",", 
   RowBox[{"{", 
    RowBox[{"42", ",", "21", ",", "1.1377136858301384`"}], "}"}], ",", 
   RowBox[{"{", 
    RowBox[{"43", ",", "22", ",", "1.1378980728042372`"}], "}"}], ",", 
   RowBox[{"{", 
    RowBox[{"44", ",", "19", ",", "1.123414815397786`"}], "}"}], ",", 
   RowBox[{"{", 
    RowBox[{"44", ",", "23", ",", "1.1335239767068843`"}], "}"}], ",", 
   RowBox[{"{", 
    RowBox[{"45", ",", "24", ",", "1.1366763709722834`"}], "}"}], ",", 
   RowBox[{"{", 
    RowBox[{"46", ",", "1", ",", "1.2525245521509576`"}], "}"}], ",", 
   RowBox[{"{", 
    RowBox[{"47", ",", "2", ",", "1.2481235531033859`"}], "}"}], ",", 
   RowBox[{"{", 
    RowBox[{"48", ",", "3", ",", "1.2532956915632072`"}], "}"}], ",", 
   RowBox[{"{", 
    RowBox[{"49", ",", "4", ",", "1.244760823112549`"}], "}"}], ",", 
   RowBox[{"{", 
    RowBox[{"50", ",", "5", ",", "1.252249015826414`"}], "}"}], ",", 
   RowBox[{"{", 
    RowBox[{"51", ",", "29", ",", "1.0928629135097119`"}], "}"}], ",", 
   RowBox[{"{", 
    RowBox[{"52", ",", "26", ",", "1.0964442030508648`"}], "}"}], ",", 
   RowBox[{"{", 
    RowBox[{"53", ",", "6", ",", "1.2485265817920408`"}], "}"}], ",", 
   RowBox[{"{", 
    RowBox[{"54", ",", "6", ",", "1.2528876265968418`"}], "}"}], ",", 
   RowBox[{"{", 
    RowBox[{"55", ",", "30", ",", "1.103675432801264`"}], "}"}], ",", 
   RowBox[{"{", 
    RowBox[{"56", ",", "28", ",", "1.0860711510036547`"}], "}"}], ",", 
   RowBox[{"{", 
    RowBox[{"57", ",", "7", ",", "1.244802645216093`"}], "}"}], ",", 
   RowBox[{"{", 
    RowBox[{"58", ",", "8", ",", "1.2497675596906817`"}], "}"}], ",", 
   RowBox[{"{", 
    RowBox[{"59", ",", "9", ",", "1.254601816582464`"}], "}"}], ",", 
   RowBox[{"{", 
    RowBox[{"60", ",", "10", ",", "1.250076625234732`"}], "}"}], ",", 
   RowBox[{"{", 
    RowBox[{"61", ",", "11", ",", "1.2543257029772308`"}], "}"}], ",", 
   RowBox[{"{", 
    RowBox[{"62", ",", "12", ",", "1.248548733341614`"}], "}"}], ",", 
   RowBox[{"{", 
    RowBox[{"63", ",", "12", ",", "1.2523298095450386`"}], "}"}], ",", 
   RowBox[{"{", 
    RowBox[{"64", ",", "31", ",", "1.0940826447111431`"}], "}"}], ",", 
   RowBox[{"{", 
    RowBox[{"65", ",", "32", ",", "1.0983605652519144`"}], "}"}], ",", 
   RowBox[{"{", 
    RowBox[{"66", ",", "35", ",", "1.101063017490433`"}], "}"}], ",", 
   RowBox[{"{", 
    RowBox[{"67", ",", "13", ",", "1.2426789033195336`"}], "}"}], ",", 
   RowBox[{"{", 
    RowBox[{"68", ",", "14", ",", "1.2501345167455122`"}], "}"}], ",", 
   RowBox[{"{", 
    RowBox[{"69", ",", "15", ",", "1.2511158752517537`"}], "}"}], ",", 
   RowBox[{"{", 
    RowBox[{"70", ",", "16", ",", "1.2471902398361645`"}], "}"}], ",", 
   RowBox[{"{", 
    RowBox[{"71", ",", "17", ",", "1.2547402845179079`"}], "}"}], ",", 
   RowBox[{"{", 
    RowBox[{"72", ",", "18", ",", "1.2500800306619544`"}], "}"}], ",", 
   RowBox[{"{", 
    RowBox[{"73", ",", "18", ",", "1.2524896868982753`"}], "}"}], ",", 
   RowBox[{"{", 
    RowBox[{"74", ",", "36", ",", "1.0910899931961786`"}], "}"}], ",", 
   RowBox[{"{", 
    RowBox[{"75", ",", "37", ",", "1.097442314960888`"}], "}"}], ",", 
   RowBox[{"{", 
    RowBox[{"76", ",", "40", ",", "1.1001550571947236`"}], "}"}], ",", 
   RowBox[{"{", 
    RowBox[{"77", ",", "19", ",", "1.2443826791997568`"}], "}"}], ",", 
   RowBox[{"{", 
    RowBox[{"78", ",", "20", ",", "1.2512409590917088`"}], "}"}], ",", 
   RowBox[{"{", 
    RowBox[{"79", ",", "21", ",", "1.2520193745958577`"}], "}"}], ",", 
   RowBox[{"{", 
    RowBox[{"80", ",", "22", ",", "1.2520627531971158`"}], "}"}], ",", 
   RowBox[{"{", 
    RowBox[{"81", ",", "23", ",", "1.2521401520042068`"}], "}"}], ",", 
   RowBox[{"{", 
    RowBox[{"82", ",", "24", ",", "1.2515191800805172`"}], "}"}], ",", 
   RowBox[{"{", 
    RowBox[{"83", ",", "24", ",", "1.2496108809698971`"}], "}"}], ",", 
   RowBox[{"{", 
    RowBox[{"84", ",", "41", ",", "1.0929364986081582`"}], "}"}], ",", 
   RowBox[{"{", 
    RowBox[{"85", ",", "42", ",", "1.0905145617559318`"}], "}"}], ",", 
   RowBox[{"{", 
    RowBox[{"86", ",", "43", ",", "1.0888250317389658`"}], "}"}], ",", 
   RowBox[{"{", 
    RowBox[{"87", ",", "45", ",", "1.0880394954698163`"}], "}"}]}], 
  "}"}]], "Output",
 CellChangeTimes->{3.5758694979068384`*^9}],

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

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

Cell[CellGroupData[{

Cell[BoxData[{
 RowBox[{
  RowBox[{"data1", "=", 
   RowBox[{"Table", "[", 
    RowBox[{
     RowBox[{"a", "[", 
      RowBox[{"[", 
       RowBox[{"i", ",", "3"}], "]"}], "]"}], ",", 
     RowBox[{"{", 
      RowBox[{"i", ",", "1", ",", "nb"}], "}"}]}], "]"}]}], 
  ";"}], "\[IndentingNewLine]", 
 RowBox[{"Histogram", "[", 
  RowBox[{"data1", ",", 
   RowBox[{"{", 
    RowBox[{"1.08", ",", "1.26", ",", "0.001"}], "}"}]}], "]"}]}], "Input",
 CellChangeTimes->{
  3.5749175636273193`*^9, {3.574917602393388*^9, 3.574917633609042*^9}, {
   3.5749176659166994`*^9, 3.574917696726753*^9}, 3.5749189234661083`*^9, {
   3.574919002527047*^9, 3.5749190246790857`*^9}, {3.5749190622127514`*^9, 
   3.574919063008353*^9}, {3.5758651500560017`*^9, 3.5758651670132313`*^9}, {
   3.5758679948769984`*^9, 3.5758679976226034`*^9}, 3.575868062471917*^9, {
   3.57586838294328*^9, 3.5758683978413057`*^9}, {3.57586848557586*^9, 
   3.5758684954974775`*^9}, {3.5758685260891314`*^9, 
   3.5758685262451315`*^9}, {3.5758687865783887`*^9, 
   3.5758687987464104`*^9}, {3.575868916292617*^9, 3.575868937227854*^9}, 
   3.575869008753979*^9, {3.5758690441972413`*^9, 3.5758690483624487`*^9}}],

Cell[BoxData[
 GraphicsBox[
  {RGBColor[0.798413061722744, 0.824719615472648, 0.968322270542458], 
   EdgeForm[Opacity[0.385]], {}, 
   {RGBColor[0.798413061722744, 0.824719615472648, 0.968322270542458], 
    EdgeForm[Opacity[0.385]], RectangleBox[{1.086, 0}, {1.087, 1},
     RoundingRadius->0], RectangleBox[{1.088, 0}, {1.089, 2},
     RoundingRadius->0], RectangleBox[{1.09, 0}, {1.091, 1},
     RoundingRadius->0], RectangleBox[{1.091, 0}, {1.092, 1},
     RoundingRadius->0], RectangleBox[{1.092, 0}, {1.093, 2},
     RoundingRadius->0], RectangleBox[{1.094, 0}, {1.095, 1},
     RoundingRadius->0], RectangleBox[{1.096, 0}, {1.097, 1},
     RoundingRadius->0], RectangleBox[{1.097, 0}, {1.098, 1},
     RoundingRadius->0], RectangleBox[{1.098, 0}, {1.099, 1},
     RoundingRadius->0], RectangleBox[{1.1, 0}, {1.101, 1},
     RoundingRadius->0], RectangleBox[{1.101, 0}, {1.102, 1},
     RoundingRadius->0], RectangleBox[{1.103, 0}, {1.104, 1},
     RoundingRadius->0], RectangleBox[{1.123, 0}, {1.124, 3},
     RoundingRadius->0], RectangleBox[{1.124, 0}, {1.125, 1},
     RoundingRadius->0], RectangleBox[{1.1260000000000001`, 0}, {1.127, 2},
     RoundingRadius->0], RectangleBox[{1.127, 0}, {1.1280000000000001`, 1},
     RoundingRadius->0], RectangleBox[{1.1300000000000001`, 0}, {1.131, 3},
     RoundingRadius->0], RectangleBox[{1.131, 0}, {1.1320000000000001`, 1},
     RoundingRadius->0], RectangleBox[{1.1320000000000001`, 0}, {1.133, 3},
     RoundingRadius->0], RectangleBox[{1.133, 0}, {1.1340000000000001`, 1},
     RoundingRadius->0], RectangleBox[{1.1360000000000001`, 0}, {1.137, 4},
     RoundingRadius->0], RectangleBox[{1.137, 0}, {1.1380000000000001`, 5},
     RoundingRadius->0], RectangleBox[{1.1380000000000001`, 0}, {1.139, 3},
     RoundingRadius->0], RectangleBox[{1.139, 0}, {1.1400000000000001`, 1},
     RoundingRadius->0], RectangleBox[{1.175, 0}, {1.1760000000000002`, 1},
     RoundingRadius->0], RectangleBox[{1.1760000000000002`, 0}, {1.177, 1},
     RoundingRadius->0], RectangleBox[{1.177, 0}, {1.1780000000000002`, 1},
     RoundingRadius->0], RectangleBox[{1.1780000000000002`, 0}, {1.179, 3},
     RoundingRadius->0], RectangleBox[{1.179, 0}, {1.1800000000000002`, 2},
     RoundingRadius->0], RectangleBox[{1.1800000000000002`, 0}, {1.181, 4},
     RoundingRadius->0], RectangleBox[{1.1840000000000002`, 0}, {1.185, 1},
     RoundingRadius->0], RectangleBox[{1.185, 0}, {1.1860000000000002`, 3},
     RoundingRadius->0], RectangleBox[{1.1860000000000002`, 0}, {1.187, 1},
     RoundingRadius->0], RectangleBox[{1.187, 0}, {1.1880000000000002`, 1},
     RoundingRadius->0], RectangleBox[{1.1880000000000002`, 0}, {1.189, 2},
     RoundingRadius->0], RectangleBox[{1.242, 0}, {1.243, 1},
     RoundingRadius->0], RectangleBox[{1.244, 0}, {1.245, 3},
     RoundingRadius->0], RectangleBox[{1.247, 0}, {1.248, 1},
     RoundingRadius->0], RectangleBox[{1.248, 0}, {1.249, 3},
     RoundingRadius->0], RectangleBox[{1.249, 0}, {1.25, 2},
     RoundingRadius->0], RectangleBox[{1.25, 0}, {1.2510000000000001`, 3},
     RoundingRadius->0], RectangleBox[{1.2510000000000001`, 0}, {1.252, 3},
     RoundingRadius->0], RectangleBox[{1.252, 0}, {1.2530000000000001`, 8},
     RoundingRadius->0], RectangleBox[{1.2530000000000001`, 0}, {1.254, 1},
     RoundingRadius->0], RectangleBox[{1.254, 0}, {1.2550000000000001`, 3},
     RoundingRadius->0]}, {}, {}},
  AspectRatio->NCache[GoldenRatio^(-1), 0.6180339887498948],
  Axes->{True, True},
  AxesLabel->{None, None},
  AxesOrigin->{1.086, 0},
  FrameTicks->{{Automatic, Automatic}, {Automatic, Automatic}},
  GridLines->{None, None},
  PlotRange->{{1.08, 1.26}, {All, All}},
  PlotRangePadding->{{
     Scaled[0.02], 
     Scaled[0.02]}, {
     Scaled[0.02], 
     Scaled[0.1]}},
  Ticks->{Automatic, Automatic}]], "Output",
 CellChangeTimes->{3.5758694983436394`*^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[{"Brown", ",", "0.4"}], "]"}], ",", 
        RowBox[{"Opacity", "[", "0.5", "]"}], ",", 
        RowBox[{"Sphere", "[", 
         RowBox[{
          RowBox[{"{", 
           RowBox[{
            RowBox[{"wxc", "[", 
             RowBox[{"[", "i", "]"}], "]"}], ",", 
            RowBox[{"wyc", "[", 
             RowBox[{"[", "i", "]"}], "]"}], ",", 
            RowBox[{"wzc", "[", 
             RowBox[{"[", "i", "]"}], "]"}]}], "}"}], ",", 
          RowBox[{"a", "[", 
           RowBox[{"[", 
            RowBox[{"i", ",", "3"}], "]"}], "]"}]}], "]"}]}], "}"}], "]"}], 
     ",", 
     RowBox[{"{", 
      RowBox[{"i", ",", "1", ",", "cw"}], "}"}]}], "]"}]}], ";"}]], "Input",
 CellChangeTimes->{{3.5681365021632137`*^9, 3.5681365171392403`*^9}, {
   3.568136560351316*^9, 3.5681365863097615`*^9}, {3.5681369135895367`*^9, 
   3.5681369265999594`*^9}, {3.568137821916732*^9, 3.5681378378443604`*^9}, {
   3.5682072492149415`*^9, 3.5682072529901485`*^9}, 3.568209802830227*^9, {
   3.5682216503836985`*^9, 3.5682217583046885`*^9}, {3.5682217912831464`*^9, 
   3.568221843465238*^9}, {3.5682219760654707`*^9, 3.5682221133457117`*^9}, {
   3.568222159615393*^9, 3.5682221693498106`*^9}, {3.5682222565227633`*^9, 
   3.5682222578487663`*^9}, 3.5682224736283445`*^9, 3.5682227227607822`*^9, 
   3.5682227558640404`*^9, {3.568222818810151*^9, 3.5682228486062036`*^9}, {
   3.5682230057764797`*^9, 3.5682230079916835`*^9}, {3.568223041952943*^9, 
   3.5682230548229656`*^9}, 3.5682232619601297`*^9, 3.5682233000709963`*^9, {
   3.568223536645412*^9, 3.5682235381118145`*^9}, {3.568223591151908*^9, 
   3.568223591526308*^9}, {3.5682236491528096`*^9, 3.568223657483224*^9}, {
   3.568223713222122*^9, 3.5682237532361927`*^9}, {3.568223800379475*^9, 
   3.568223827648323*^9}, {3.5682238887380304`*^9, 3.5682238893152313`*^9}, {
   3.5682240287170763`*^9, 3.5682240612431335`*^9}, 3.5682241088076167`*^9, {
   3.568224198772975*^9, 3.5682242396450467`*^9}, {3.568224282170721*^9, 
   3.5682243185031853`*^9}, {3.568224437890195*^9, 3.568224439590598*^9}, {
   3.568224572253231*^9, 3.5682245867144566`*^9}, {3.5682247081762695`*^9, 
   3.568224733557514*^9}, {3.56822480520844*^9, 3.5682248433505073`*^9}, {
   3.568224884206979*^9, 3.5682248959069996`*^9}, {3.568224982830352*^9, 
   3.5682250047639904`*^9}, {3.56822503870965*^9, 3.5682250803305235`*^9}, {
   3.5682251223413973`*^9, 3.568225141451431*^9}, {3.568225234177994*^9, 
   3.5682252929588966`*^9}, {3.5682253775890455`*^9, 3.568225482140429*^9}, {
   3.56822551694409*^9, 3.5682255297205124`*^9}, {3.568225573197789*^9, 
   3.5682255809666023`*^9}, 3.568225660698343*^9, 3.5682257301964645`*^9, {
   3.568225765078126*^9, 3.5682257828933573`*^9}, {3.568225927026843*^9, 
   3.568225927416844*^9}, {3.568267062420238*^9, 3.568267081358671*^9}, {
   3.568267188328059*^9, 3.5682672830358257`*^9}, {3.5682676367040462`*^9, 
   3.568267747979042*^9}, 3.5682678404716043`*^9, 3.568267882030078*^9, {
   3.5682679252577534`*^9, 3.568267996612279*^9}, {3.5682680488879704`*^9, 
   3.568268061133992*^9}, {3.568268100914062*^9, 3.5682681150944867`*^9}, {
   3.5682681672609787`*^9, 3.5682681709113846`*^9}, {3.568268272904364*^9, 
   3.5682683182536435`*^9}, {3.5682685202739983`*^9, 3.568268599194537*^9}, {
   3.5682686348873997`*^9, 3.568268637773405*^9}, {3.5682686944951043`*^9, 
   3.568268872273017*^9}, {3.5682689420207396`*^9, 3.568269016947671*^9}, {
   3.5682695040741262`*^9, 3.568269601153097*^9}, {3.5682696652380095`*^9, 
   3.5682696728352227`*^9}, {3.5682697489633565`*^9, 
   3.5682698308635006`*^9}, {3.568271156491429*^9, 3.568271160063835*^9}, {
   3.568271244927984*^9, 3.568271369010602*^9}, {3.5682716250070515`*^9, 
   3.5682717312276382`*^9}, {3.5682717843301315`*^9, 
   3.5682718576814604`*^9}, {3.568271940673606*^9, 3.5682720536490045`*^9}, {
   3.5682722259669075`*^9, 3.5682723223126764`*^9}, {3.568272370813162*^9, 
   3.568272411466833*^9}, {3.5682725893539457`*^9, 3.568272622238803*^9}, {
   3.5682726936713285`*^9, 3.5682726960113325`*^9}, {3.568272741079812*^9, 
   3.56827275143823*^9}, {3.5682729218373294`*^9, 3.568272991070251*^9}, {
   3.5682734285574193`*^9, 3.5682734302890224`*^9}, {3.5682734898811274`*^9, 
   3.5682735111595645`*^9}, {3.5682736115925407`*^9, 
   3.5682736313577757`*^9}, {3.5682738601945777`*^9, 3.568273987272401*^9}, {
   3.5682763944346285`*^9, 3.5682764313910933`*^9}, 3.5682765128232365`*^9, {
   3.5682766527398825`*^9, 3.568276660976697*^9}, {3.5682774496048822`*^9, 
   3.568277461663703*^9}, {3.5683784032731285`*^9, 3.568378422991563*^9}, {
   3.568378459308427*^9, 3.5683784812420654`*^9}, {3.568378513440522*^9, 
   3.568378867046343*^9}, {3.568378915468828*^9, 3.56837896203491*^9}, {
   3.5683790764299107`*^9, 3.568379270041851*^9}, {3.568380233530743*^9, 
   3.568380234388745*^9}, 3.5683804214954734`*^9, 3.568380471867962*^9, 
   3.5683805399464817`*^9, {3.5683812396077104`*^9, 3.568381293537005*^9}, {
   3.568381339541486*^9, 3.5683813935175805`*^9}, 3.5684646396646404`*^9, 
   3.5684646988823442`*^9, 3.568465086387025*^9, {3.5684655859935026`*^9, 
   3.568465605087936*^9}, 3.568821235038273*^9, 3.5688233741452303`*^9, 
   3.568823449742963*^9, 3.5688274593312387`*^9, {3.5688284679978104`*^9, 
   3.5688284689026117`*^9}, {3.5688285131598897`*^9, 3.5688285201487017`*^9}, 
   3.5688285866360188`*^9, {3.5688292397623663`*^9, 3.568829246688778*^9}, {
   3.5688780328231993`*^9, 3.56887811871695*^9}, {3.568895331556566*^9, 
   3.5688953367201753`*^9}, 3.568895995276532*^9, {3.5693397032225895`*^9, 
   3.56933970331619*^9}, 3.569339737137049*^9, 3.569340055299608*^9, 
   3.569389360947892*^9, {3.570298060155057*^9, 3.570298071589877*^9}, {
   3.5704539766451664`*^9, 3.5704539773627677`*^9}, {3.5709509139026003`*^9, 
   3.570950950500265*^9}, {3.570950995397144*^9, 3.5709510449896307`*^9}, {
   3.570974064815357*^9, 3.5709741190878525`*^9}, {3.5709742487084804`*^9, 
   3.570974273528124*^9}, {3.5713747544125347`*^9, 3.571374762618149*^9}, 
   3.5713830670175667`*^9, {3.5758215281260185`*^9, 3.5758215341476293`*^9}}],

Cell[BoxData[{
 RowBox[{
  RowBox[{"wxh", "=", 
   RowBox[{"Table", "[", 
    RowBox[{
     RowBox[{
      RowBox[{
       RowBox[{
        RowBox[{"(", 
         RowBox[{
          RowBox[{"a", "[", 
           RowBox[{"[", 
            RowBox[{"i", ",", "3"}], "]"}], "]"}], "+", 
          RowBox[{"u2", "[", 
           RowBox[{"[", 
            RowBox[{"a", "[", 
             RowBox[{"[", 
              RowBox[{"i", ",", "2"}], "]"}], "]"}], "]"}], "]"}]}], ")"}], 
        "/", 
        RowBox[{"(", 
         RowBox[{
          RowBox[{"u2", "[", 
           RowBox[{"[", 
            RowBox[{"a", "[", 
             RowBox[{"[", 
              RowBox[{"i", ",", "1"}], "]"}], "]"}], "]"}], "]"}], "+", 
          RowBox[{"a", "[", 
           RowBox[{"[", 
            RowBox[{"i", ",", "3"}], "]"}], "]"}], "+", 
          RowBox[{"u2", "[", 
           RowBox[{"[", 
            RowBox[{"a", "[", 
             RowBox[{"[", 
              RowBox[{"i", ",", "2"}], "]"}], "]"}], "]"}], "]"}]}], ")"}]}], 
       "*", 
       RowBox[{"(", 
        RowBox[{
         RowBox[{"x", "[", 
          RowBox[{"[", 
           RowBox[{"a", "[", 
            RowBox[{"[", 
             RowBox[{"i", ",", "1"}], "]"}], "]"}], "]"}], "]"}], "-", 
         RowBox[{"x", "[", 
          RowBox[{"[", 
           RowBox[{"a", "[", 
            RowBox[{"[", 
             RowBox[{"i", ",", "2"}], "]"}], "]"}], "]"}], "]"}]}], ")"}]}], 
      "+", 
      RowBox[{"x", "[", 
       RowBox[{"[", 
        RowBox[{"a", "[", 
         RowBox[{"[", 
          RowBox[{"i", ",", "2"}], "]"}], "]"}], "]"}], "]"}]}], ",", 
     RowBox[{"{", 
      RowBox[{"i", ",", 
       RowBox[{"cw", "+", "1"}], ",", "nb"}], "}"}]}], "]"}]}], ";"}], "\n", 
 RowBox[{
  RowBox[{"wyh", "=", 
   RowBox[{"Table", "[", 
    RowBox[{
     RowBox[{
      RowBox[{
       RowBox[{
        RowBox[{"(", 
         RowBox[{
          RowBox[{"a", "[", 
           RowBox[{"[", 
            RowBox[{"i", ",", "3"}], "]"}], "]"}], "+", 
          RowBox[{"u2", "[", 
           RowBox[{"[", 
            RowBox[{"a", "[", 
             RowBox[{"[", 
              RowBox[{"i", ",", "2"}], "]"}], "]"}], "]"}], "]"}]}], ")"}], 
        "/", 
        RowBox[{"(", 
         RowBox[{
          RowBox[{"u2", "[", 
           RowBox[{"[", 
            RowBox[{"a", "[", 
             RowBox[{"[", 
              RowBox[{"i", ",", "1"}], "]"}], "]"}], "]"}], "]"}], "+", 
          RowBox[{"a", "[", 
           RowBox[{"[", 
            RowBox[{"i", ",", "3"}], "]"}], "]"}], "+", 
          RowBox[{"u2", "[", 
           RowBox[{"[", 
            RowBox[{"a", "[", 
             RowBox[{"[", 
              RowBox[{"i", ",", "2"}], "]"}], "]"}], "]"}], "]"}]}], ")"}]}], 
       "*", 
       RowBox[{"(", 
        RowBox[{
         RowBox[{"y", "[", 
          RowBox[{"[", 
           RowBox[{"a", "[", 
            RowBox[{"[", 
             RowBox[{"i", ",", "1"}], "]"}], "]"}], "]"}], "]"}], "-", 
         RowBox[{"y", "[", 
          RowBox[{"[", 
           RowBox[{"a", "[", 
            RowBox[{"[", 
             RowBox[{"i", ",", "2"}], "]"}], "]"}], "]"}], "]"}]}], ")"}]}], 
      "+", 
      RowBox[{"y", "[", 
       RowBox[{"[", 
        RowBox[{"a", "[", 
         RowBox[{"[", 
          RowBox[{"i", ",", "2"}], "]"}], "]"}], "]"}], "]"}]}], ",", 
     RowBox[{"{", 
      RowBox[{"i", ",", 
       RowBox[{"cw", "+", "1"}], ",", "nb"}], "}"}]}], "]"}]}], ";"}], "\n", 
 RowBox[{
  RowBox[{"wzh", "=", 
   RowBox[{"Table", "[", 
    RowBox[{
     RowBox[{
      RowBox[{
       RowBox[{
        RowBox[{"(", 
         RowBox[{
          RowBox[{"a", "[", 
           RowBox[{"[", 
            RowBox[{"i", ",", "3"}], "]"}], "]"}], "+", 
          RowBox[{"u2", "[", 
           RowBox[{"[", 
            RowBox[{"a", "[", 
             RowBox[{"[", 
              RowBox[{"i", ",", "2"}], "]"}], "]"}], "]"}], "]"}]}], ")"}], 
        "/", 
        RowBox[{"(", 
         RowBox[{
          RowBox[{"u2", "[", 
           RowBox[{"[", 
            RowBox[{"a", "[", 
             RowBox[{"[", 
              RowBox[{"i", ",", "1"}], "]"}], "]"}], "]"}], "]"}], "+", 
          RowBox[{"a", "[", 
           RowBox[{"[", 
            RowBox[{"i", ",", "3"}], "]"}], "]"}], "+", 
          RowBox[{"u2", "[", 
           RowBox[{"[", 
            RowBox[{"a", "[", 
             RowBox[{"[", 
              RowBox[{"i", ",", "2"}], "]"}], "]"}], "]"}], "]"}]}], ")"}]}], 
       "*", 
       RowBox[{"(", 
        RowBox[{
         RowBox[{"z", "[", 
          RowBox[{"[", 
           RowBox[{"a", "[", 
            RowBox[{"[", 
             RowBox[{"i", ",", "1"}], "]"}], "]"}], "]"}], "]"}], "-", 
         RowBox[{"z", "[", 
          RowBox[{"[", 
           RowBox[{"a", "[", 
            RowBox[{"[", 
             RowBox[{"i", ",", "2"}], "]"}], "]"}], "]"}], "]"}]}], ")"}]}], 
      "+", 
      RowBox[{"z", "[", 
       RowBox[{"[", 
        RowBox[{"a", "[", 
         RowBox[{"[", 
          RowBox[{"i", ",", "2"}], "]"}], "]"}], "]"}], "]"}]}], ",", 
     RowBox[{"{", 
      RowBox[{"i", ",", 
       RowBox[{"cw", "+", "1"}], ",", "nb"}], "}"}]}], "]"}]}], 
  ";"}]}], "Input",
 CellChangeTimes->{{3.5681365021632137`*^9, 3.5681365171392403`*^9}, {
   3.568136560351316*^9, 3.5681365863097615`*^9}, {3.5681369135895367`*^9, 
   3.5681369265999594`*^9}, {3.568137821916732*^9, 3.5681378378443604`*^9}, {
   3.5682072492149415`*^9, 3.5682072529901485`*^9}, 3.568209802830227*^9, {
   3.5682216503836985`*^9, 3.5682217583046885`*^9}, {3.5682217912831464`*^9, 
   3.568221843465238*^9}, {3.5682219760654707`*^9, 3.5682221133457117`*^9}, {
   3.568222159615393*^9, 3.5682221693498106`*^9}, {3.5682222565227633`*^9, 
   3.5682222578487663`*^9}, 3.5682224736283445`*^9, 3.5682227227607822`*^9, 
   3.5682227558640404`*^9, {3.568222818810151*^9, 3.5682228486062036`*^9}, {
   3.5682230057764797`*^9, 3.5682230079916835`*^9}, {3.568223041952943*^9, 
   3.5682230548229656`*^9}, 3.5682232619601297`*^9, 3.5682233000709963`*^9, {
   3.568223536645412*^9, 3.5682235381118145`*^9}, {3.568223591151908*^9, 
   3.568223591526308*^9}, {3.5682236491528096`*^9, 3.568223657483224*^9}, {
   3.568223713222122*^9, 3.5682237532361927`*^9}, {3.568223800379475*^9, 
   3.568223827648323*^9}, {3.5682238887380304`*^9, 3.5682238893152313`*^9}, {
   3.5682240287170763`*^9, 3.5682240612431335`*^9}, 3.5682241088076167`*^9, {
   3.568224198772975*^9, 3.5682242396450467`*^9}, {3.568224282170721*^9, 
   3.5682243185031853`*^9}, {3.568224437890195*^9, 3.568224439590598*^9}, {
   3.568224572253231*^9, 3.5682245867144566`*^9}, {3.5682247081762695`*^9, 
   3.568224733557514*^9}, {3.56822480520844*^9, 3.5682248433505073`*^9}, {
   3.568224884206979*^9, 3.5682248959069996`*^9}, {3.568224982830352*^9, 
   3.5682250047639904`*^9}, {3.56822503870965*^9, 3.5682250803305235`*^9}, {
   3.5682251223413973`*^9, 3.568225141451431*^9}, {3.568225234177994*^9, 
   3.5682252929588966`*^9}, {3.5682253775890455`*^9, 3.568225482140429*^9}, {
   3.56822551694409*^9, 3.5682255297205124`*^9}, {3.568225573197789*^9, 
   3.5682255809666023`*^9}, 3.568225660698343*^9, 3.5682257301964645`*^9, {
   3.568225765078126*^9, 3.5682257828933573`*^9}, {3.568225927026843*^9, 
   3.568225927416844*^9}, {3.568267062420238*^9, 3.568267081358671*^9}, {
   3.568267188328059*^9, 3.5682672830358257`*^9}, {3.5682676367040462`*^9, 
   3.568267747979042*^9}, 3.5682678404716043`*^9, 3.568267882030078*^9, {
   3.5682679252577534`*^9, 3.568267996612279*^9}, {3.5682680488879704`*^9, 
   3.568268061133992*^9}, {3.568268100914062*^9, 3.5682681150944867`*^9}, {
   3.5682681672609787`*^9, 3.5682681709113846`*^9}, {3.568268272904364*^9, 
   3.5682683182536435`*^9}, {3.5682685202739983`*^9, 3.568268599194537*^9}, {
   3.5682686348873997`*^9, 3.568268637773405*^9}, {3.5682686944951043`*^9, 
   3.568268872273017*^9}, {3.5682689420207396`*^9, 3.568269016947671*^9}, {
   3.5682695040741262`*^9, 3.568269601153097*^9}, {3.5682696652380095`*^9, 
   3.5682696728352227`*^9}, {3.5682697489633565`*^9, 
   3.5682698308635006`*^9}, {3.568271156491429*^9, 3.568271160063835*^9}, {
   3.568271244927984*^9, 3.568271369010602*^9}, {3.5682716250070515`*^9, 
   3.5682717312276382`*^9}, {3.5682717843301315`*^9, 
   3.5682718576814604`*^9}, {3.568271940673606*^9, 3.5682720536490045`*^9}, {
   3.5682722259669075`*^9, 3.5682723223126764`*^9}, {3.568272370813162*^9, 
   3.568272411466833*^9}, {3.5682725893539457`*^9, 3.568272622238803*^9}, {
   3.5682726936713285`*^9, 3.5682726960113325`*^9}, {3.568272741079812*^9, 
   3.56827275143823*^9}, {3.5682729218373294`*^9, 3.568272991070251*^9}, {
   3.5682734285574193`*^9, 3.5682734302890224`*^9}, {3.5682734898811274`*^9, 
   3.5682735111595645`*^9}, {3.5682736115925407`*^9, 
   3.5682736313577757`*^9}, {3.5682738601945777`*^9, 3.568273987272401*^9}, {
   3.5682763944346285`*^9, 3.5682764313910933`*^9}, 3.5682765128232365`*^9, {
   3.5682766527398825`*^9, 3.568276660976697*^9}, {3.5682774496048822`*^9, 
   3.568277461663703*^9}, {3.5683784032731285`*^9, 3.568378422991563*^9}, {
   3.568378459308427*^9, 3.5683784812420654`*^9}, {3.568378513440522*^9, 
   3.568378867046343*^9}, {3.568378915468828*^9, 3.56837896203491*^9}, {
   3.5683790764299107`*^9, 3.568379270041851*^9}, {3.568380233530743*^9, 
   3.568380234388745*^9}, 3.5683804214954734`*^9, 3.568380471867962*^9, 
   3.5683805399464817`*^9, {3.5683812396077104`*^9, 3.568381293537005*^9}, {
   3.568381339541486*^9, 3.5683813935175805`*^9}, 3.5684646396646404`*^9, 
   3.5684646988823442`*^9, 3.568465086387025*^9, {3.5684655859935026`*^9, 
   3.568465605087936*^9}, 3.568821235038273*^9, 3.5688233741452303`*^9, 
   3.568823449742963*^9, 3.5688274593312387`*^9, {3.5688284679978104`*^9, 
   3.5688284689026117`*^9}, {3.5688285131598897`*^9, 3.5688285201487017`*^9}, 
   3.5688285866360188`*^9, {3.5688292397623663`*^9, 3.568829246688778*^9}, {
   3.5688780328231993`*^9, 3.5688781280925665`*^9}, 3.568895312524533*^9, 
   3.5693395940691977`*^9, {3.5693396336776676`*^9, 3.5693396557829065`*^9}, {
   3.569340069402033*^9, 3.569340092412073*^9}, {3.569389186383586*^9, 
   3.5693891947764006`*^9}, {3.569389263291721*^9, 3.569389289686967*^9}, 
   3.569389336315449*^9}],

Cell[BoxData[
 RowBox[{
  RowBox[{"Plot8", "=", 
   RowBox[{"Table", "[", 
    RowBox[{
     RowBox[{"Graphics3D", "[", 
      RowBox[{"{", 
       RowBox[{
        RowBox[{"Opacity", "[", "0.5", "]"}], ",", 
        RowBox[{"Sphere", "[", 
         RowBox[{
          RowBox[{"{", 
           RowBox[{
            RowBox[{"wxh", "[", 
             RowBox[{"[", "i", "]"}], "]"}], ",", 
            RowBox[{"wyh", "[", 
             RowBox[{"[", "i", "]"}], "]"}], ",", 
            RowBox[{"wzh", "[", 
             RowBox[{"[", "i", "]"}], "]"}]}], "}"}], ",", 
          RowBox[{"a", "[", 
           RowBox[{"[", 
            RowBox[{
             RowBox[{"i", "+", "cw"}], ",", "3"}], "]"}], "]"}]}], "]"}]}], 
       "}"}], "]"}], ",", 
     RowBox[{"{", 
      RowBox[{"i", ",", "1", ",", "bh"}], "}"}]}], "]"}]}], ";"}]], "Input",
 CellChangeTimes->{{3.5681365021632137`*^9, 3.5681365171392403`*^9}, {
   3.568136560351316*^9, 3.5681365863097615`*^9}, {3.5681369135895367`*^9, 
   3.5681369265999594`*^9}, {3.568137821916732*^9, 3.5681378378443604`*^9}, {
   3.5682072492149415`*^9, 3.5682072529901485`*^9}, 3.568209802830227*^9, {
   3.5682216503836985`*^9, 3.5682217583046885`*^9}, {3.5682217912831464`*^9, 
   3.568221843465238*^9}, {3.5682219760654707`*^9, 3.5682221133457117`*^9}, {
   3.568222159615393*^9, 3.5682221693498106`*^9}, {3.5682222565227633`*^9, 
   3.5682222578487663`*^9}, 3.5682224736283445`*^9, 3.5682227227607822`*^9, 
   3.5682227558640404`*^9, {3.568222818810151*^9, 3.5682228486062036`*^9}, {
   3.5682230057764797`*^9, 3.5682230079916835`*^9}, {3.568223041952943*^9, 
   3.5682230548229656`*^9}, 3.5682232619601297`*^9, 3.5682233000709963`*^9, {
   3.568223536645412*^9, 3.5682235381118145`*^9}, {3.568223591151908*^9, 
   3.568223591526308*^9}, {3.5682236491528096`*^9, 3.568223657483224*^9}, {
   3.568223713222122*^9, 3.5682237532361927`*^9}, {3.568223800379475*^9, 
   3.568223827648323*^9}, {3.5682238887380304`*^9, 3.5682238893152313`*^9}, {
   3.5682240287170763`*^9, 3.5682240612431335`*^9}, 3.5682241088076167`*^9, {
   3.568224198772975*^9, 3.5682242396450467`*^9}, {3.568224282170721*^9, 
   3.5682243185031853`*^9}, {3.568224437890195*^9, 3.568224439590598*^9}, {
   3.568224572253231*^9, 3.5682245867144566`*^9}, {3.5682247081762695`*^9, 
   3.568224733557514*^9}, {3.56822480520844*^9, 3.5682248433505073`*^9}, {
   3.568224884206979*^9, 3.5682248959069996`*^9}, {3.568224982830352*^9, 
   3.5682250047639904`*^9}, {3.56822503870965*^9, 3.5682250803305235`*^9}, {
   3.5682251223413973`*^9, 3.568225141451431*^9}, {3.568225234177994*^9, 
   3.5682252929588966`*^9}, {3.5682253775890455`*^9, 3.568225482140429*^9}, {
   3.56822551694409*^9, 3.5682255297205124`*^9}, {3.568225573197789*^9, 
   3.5682255809666023`*^9}, 3.568225660698343*^9, 3.5682257301964645`*^9, {
   3.568225765078126*^9, 3.5682257828933573`*^9}, {3.568225927026843*^9, 
   3.568225927416844*^9}, {3.568267062420238*^9, 3.568267081358671*^9}, {
   3.568267188328059*^9, 3.5682672830358257`*^9}, {3.5682676367040462`*^9, 
   3.568267747979042*^9}, 3.5682678404716043`*^9, 3.568267882030078*^9, {
   3.5682679252577534`*^9, 3.568267996612279*^9}, {3.5682680488879704`*^9, 
   3.568268061133992*^9}, {3.568268100914062*^9, 3.5682681150944867`*^9}, {
   3.5682681672609787`*^9, 3.5682681709113846`*^9}, {3.568268272904364*^9, 
   3.5682683182536435`*^9}, {3.5682685202739983`*^9, 3.568268599194537*^9}, {
   3.5682686348873997`*^9, 3.568268637773405*^9}, {3.5682686944951043`*^9, 
   3.568268872273017*^9}, {3.5682689420207396`*^9, 3.568269016947671*^9}, {
   3.5682695040741262`*^9, 3.568269601153097*^9}, {3.5682696652380095`*^9, 
   3.5682696728352227`*^9}, {3.5682697489633565`*^9, 
   3.5682698308635006`*^9}, {3.568271156491429*^9, 3.568271160063835*^9}, {
   3.568271244927984*^9, 3.568271369010602*^9}, {3.5682716250070515`*^9, 
   3.5682717312276382`*^9}, {3.5682717843301315`*^9, 
   3.5682718576814604`*^9}, {3.568271940673606*^9, 3.5682720536490045`*^9}, {
   3.5682722259669075`*^9, 3.5682723223126764`*^9}, {3.568272370813162*^9, 
   3.568272411466833*^9}, {3.5682725893539457`*^9, 3.568272622238803*^9}, {
   3.5682726936713285`*^9, 3.5682726960113325`*^9}, {3.568272741079812*^9, 
   3.56827275143823*^9}, {3.5682729218373294`*^9, 3.568272991070251*^9}, {
   3.5682734285574193`*^9, 3.5682734302890224`*^9}, {3.5682734898811274`*^9, 
   3.5682735111595645`*^9}, {3.5682736115925407`*^9, 
   3.5682736313577757`*^9}, {3.5682738601945777`*^9, 3.568273987272401*^9}, {
   3.5682763944346285`*^9, 3.5682764313910933`*^9}, 3.5682765128232365`*^9, {
   3.5682766527398825`*^9, 3.568276660976697*^9}, {3.5682774496048822`*^9, 
   3.568277461663703*^9}, {3.5683784032731285`*^9, 3.568378422991563*^9}, {
   3.568378459308427*^9, 3.5683784812420654`*^9}, {3.568378513440522*^9, 
   3.568378867046343*^9}, {3.568378915468828*^9, 3.56837896203491*^9}, {
   3.5683790764299107`*^9, 3.568379270041851*^9}, {3.568380233530743*^9, 
   3.568380234388745*^9}, 3.5683804214954734`*^9, 3.568380471867962*^9, 
   3.5683805399464817`*^9, {3.5683812396077104`*^9, 3.568381293537005*^9}, {
   3.568381339541486*^9, 3.5683813935175805`*^9}, 3.5684646396646404`*^9, 
   3.5684646988823442`*^9, 3.568465086387025*^9, {3.5684655859935026`*^9, 
   3.568465605087936*^9}, 3.568821235038273*^9, 3.5688233741452303`*^9, 
   3.568823449742963*^9, 3.5688274593312387`*^9, {3.5688284679978104`*^9, 
   3.5688284689026117`*^9}, {3.5688285131598897`*^9, 3.5688285201487017`*^9}, 
   3.5688285866360188`*^9, {3.5688292397623663`*^9, 3.568829246688778*^9}, {
   3.5688780328231993`*^9, 3.568878147967001*^9}, {3.56889532230575*^9, 
   3.5688953242557535`*^9}, 3.56889600529175*^9, 3.5688961595292206`*^9, {
   3.5693396821781526`*^9, 3.5693396825213532`*^9}, 3.5693893658151007`*^9, {
   3.5693895413934093`*^9, 3.5693895427506113`*^9}, {3.5697651043452682`*^9, 
   3.5697651089940763`*^9}, {3.5704647001766*^9, 3.570464712141821*^9}}],

Cell[BoxData[{
 RowBox[{
  RowBox[{"If", "[", 
   RowBox[{
    RowBox[{"cj", "\[NotEqual]", " ", "0"}], ",", 
    RowBox[{
     RowBox[{"Plot8a", "=", 
      RowBox[{"Table", "[", 
       RowBox[{
        RowBox[{"Graphics3D", "[", 
         RowBox[{"{", 
          RowBox[{
           RowBox[{"Opacity", "[", "0.3", "]"}], ",", 
           RowBox[{"Lighter", "[", "Cyan", "]"}], ",", 
           RowBox[{"Sphere", "[", 
            RowBox[{
             RowBox[{"tpo", "[", 
              RowBox[{"[", "i", "]"}], "]"}], ",", "rpo"}], "]"}]}], "}"}], 
         "]"}], ",", 
        RowBox[{"{", 
         RowBox[{"i", ",", "1", ",", "cj"}], "}"}]}], "]"}]}], ";", 
     "\[IndentingNewLine]", 
     RowBox[{"Plot8b", "=", 
      RowBox[{"Table", "[", 
       RowBox[{
        RowBox[{"Graphics3D", "[", 
         RowBox[{"{", 
          RowBox[{
           RowBox[{"Opacity", "[", "0.3", "]"}], ",", 
           RowBox[{"Lighter", "[", "Yellow", "]"}], ",", 
           RowBox[{"Sphere", "[", 
            RowBox[{
             RowBox[{"tpu", "[", 
              RowBox[{"[", "i", "]"}], "]"}], ",", "rpi"}], "]"}]}], "}"}], 
         "]"}], ",", 
        RowBox[{"{", 
         RowBox[{"i", ",", "1", ",", "cj"}], "}"}]}], "]"}]}]}]}], "]"}], 
  ";"}], "\[IndentingNewLine]", 
 RowBox[{
  RowBox[{"If", "[", 
   RowBox[{
    RowBox[{"oj", "\[NotEqual]", "0"}], ",", 
    RowBox[{
     RowBox[{"Plot8d", "=", 
      RowBox[{"Table", "[", 
       RowBox[{
        RowBox[{"Graphics3D", "[", 
         RowBox[{"{", 
          RowBox[{
           RowBox[{"Opacity", "[", "0.4", "]"}], ",", 
           RowBox[{"Lighter", "[", "Red", "]"}], ",", 
           RowBox[{"Sphere", "[", 
            RowBox[{
             RowBox[{"tplo", "[", 
              RowBox[{"[", "i", "]"}], "]"}], ",", "rlo"}], "]"}]}], "}"}], 
         "]"}], ",", 
        RowBox[{"{", 
         RowBox[{"i", ",", "1", ",", "oj"}], "}"}]}], "]"}]}], ";", 
     "\[IndentingNewLine]", 
     RowBox[{"Plot8e", "=", 
      RowBox[{"Table", "[", 
       RowBox[{
        RowBox[{"Graphics3D", "[", 
         RowBox[{"{", 
          RowBox[{
           RowBox[{"Opacity", "[", "0.4", "]"}], ",", 
           RowBox[{"Lighter", "[", "Red", "]"}], ",", 
           RowBox[{"Sphere", "[", 
            RowBox[{
             RowBox[{"tplu", "[", 
              RowBox[{"[", "i", "]"}], "]"}], ",", "rlo"}], "]"}]}], "}"}], 
         "]"}], ",", 
        RowBox[{"{", 
         RowBox[{"i", ",", "1", ",", "oj"}], "}"}]}], "]"}]}]}]}], "]"}], 
  ";"}], "\[IndentingNewLine]", 
 RowBox[{
  RowBox[{"Plot8f", "=", 
   RowBox[{"Table", "[", 
    RowBox[{
     RowBox[{"Graphics3D", "[", 
      RowBox[{"{", 
       RowBox[{
        RowBox[{"Opacity", "[", "0.4", "]"}], ",", 
        RowBox[{"Lighter", "[", "Red", "]"}], ",", 
        RowBox[{"Sphere", "[", 
         RowBox[{
          RowBox[{"tpso", "[", 
           RowBox[{"[", "i", "]"}], "]"}], ",", "rlo"}], "]"}]}], "}"}], 
      "]"}], ",", 
     RowBox[{"{", 
      RowBox[{"i", ",", "1", ",", "hj"}], "}"}]}], "]"}]}], 
  ";"}], "\[IndentingNewLine]", 
 RowBox[{
  RowBox[{"Plot8g", "=", 
   RowBox[{"Table", "[", 
    RowBox[{
     RowBox[{"Graphics3D", "[", 
      RowBox[{"{", 
       RowBox[{
        RowBox[{"Opacity", "[", "0.4", "]"}], ",", 
        RowBox[{"Lighter", "[", "Red", "]"}], ",", 
        RowBox[{"Sphere", "[", 
         RowBox[{
          RowBox[{"tpsu", "[", 
           RowBox[{"[", "i", "]"}], "]"}], ",", "rlo"}], "]"}]}], "}"}], 
      "]"}], ",", 
     RowBox[{"{", 
      RowBox[{"i", ",", "1", ",", "hj"}], "}"}]}], "]"}]}], ";"}]}], "Input",
 CellChangeTimes->{{3.5681365021632137`*^9, 3.5681365171392403`*^9}, {
   3.568136560351316*^9, 3.5681365863097615`*^9}, {3.5681369135895367`*^9, 
   3.5681369265999594`*^9}, {3.568137821916732*^9, 3.5681378378443604`*^9}, {
   3.5682072492149415`*^9, 3.5682072529901485`*^9}, 3.568209802830227*^9, {
   3.5682216503836985`*^9, 3.5682217583046885`*^9}, {3.5682217912831464`*^9, 
   3.568221843465238*^9}, {3.5682219760654707`*^9, 3.5682221133457117`*^9}, {
   3.568222159615393*^9, 3.5682221693498106`*^9}, {3.5682222565227633`*^9, 
   3.5682222578487663`*^9}, 3.5682224736283445`*^9, 3.5682227227607822`*^9, 
   3.5682227558640404`*^9, {3.568222818810151*^9, 3.5682228486062036`*^9}, {
   3.5682230057764797`*^9, 3.5682230079916835`*^9}, {3.568223041952943*^9, 
   3.5682230548229656`*^9}, 3.5682232619601297`*^9, 3.5682233000709963`*^9, {
   3.568223536645412*^9, 3.5682235381118145`*^9}, {3.568223591151908*^9, 
   3.568223591526308*^9}, {3.5682236491528096`*^9, 3.568223657483224*^9}, {
   3.568223713222122*^9, 3.5682237532361927`*^9}, {3.568223800379475*^9, 
   3.568223827648323*^9}, {3.5682238887380304`*^9, 3.5682238893152313`*^9}, {
   3.5682240287170763`*^9, 3.5682240612431335`*^9}, 3.5682241088076167`*^9, {
   3.568224198772975*^9, 3.5682242396450467`*^9}, {3.568224282170721*^9, 
   3.5682243185031853`*^9}, {3.568224437890195*^9, 3.568224439590598*^9}, {
   3.568224572253231*^9, 3.5682245867144566`*^9}, {3.5682247081762695`*^9, 
   3.568224733557514*^9}, {3.56822480520844*^9, 3.5682248433505073`*^9}, {
   3.568224884206979*^9, 3.5682248959069996`*^9}, {3.568224982830352*^9, 
   3.5682250047639904`*^9}, {3.56822503870965*^9, 3.5682250803305235`*^9}, {
   3.5682251223413973`*^9, 3.568225141451431*^9}, {3.568225234177994*^9, 
   3.5682252929588966`*^9}, {3.5682253775890455`*^9, 3.568225482140429*^9}, {
   3.56822551694409*^9, 3.5682255297205124`*^9}, {3.568225573197789*^9, 
   3.5682255809666023`*^9}, 3.568225660698343*^9, 3.5682257301964645`*^9, {
   3.568225765078126*^9, 3.5682257828933573`*^9}, {3.568225927026843*^9, 
   3.568225927416844*^9}, {3.568267062420238*^9, 3.568267081358671*^9}, {
   3.568267188328059*^9, 3.5682672830358257`*^9}, {3.5682676367040462`*^9, 
   3.568267747979042*^9}, 3.5682678404716043`*^9, 3.568267882030078*^9, {
   3.5682679252577534`*^9, 3.568267996612279*^9}, {3.5682680488879704`*^9, 
   3.568268061133992*^9}, {3.568268100914062*^9, 3.5682681150944867`*^9}, {
   3.5682681672609787`*^9, 3.5682681709113846`*^9}, {3.568268272904364*^9, 
   3.5682683182536435`*^9}, {3.5682685202739983`*^9, 3.568268599194537*^9}, {
   3.5682686348873997`*^9, 3.568268637773405*^9}, {3.5682686944951043`*^9, 
   3.568268872273017*^9}, {3.5682689420207396`*^9, 3.568269016947671*^9}, {
   3.5682695040741262`*^9, 3.568269601153097*^9}, {3.5682696652380095`*^9, 
   3.5682696728352227`*^9}, {3.5682697489633565`*^9, 
   3.5682698308635006`*^9}, {3.568271156491429*^9, 3.568271160063835*^9}, {
   3.568271244927984*^9, 3.568271369010602*^9}, {3.5682716250070515`*^9, 
   3.5682717312276382`*^9}, {3.5682717843301315`*^9, 
   3.5682718576814604`*^9}, {3.568271940673606*^9, 3.5682720536490045`*^9}, {
   3.5682722259669075`*^9, 3.5682723223126764`*^9}, {3.568272370813162*^9, 
   3.568272411466833*^9}, {3.5682725893539457`*^9, 3.568272622238803*^9}, {
   3.5682726936713285`*^9, 3.5682726960113325`*^9}, {3.568272741079812*^9, 
   3.56827275143823*^9}, {3.5682729218373294`*^9, 3.568272991070251*^9}, {
   3.5682734285574193`*^9, 3.5682734302890224`*^9}, {3.5682734898811274`*^9, 
   3.5682735111595645`*^9}, {3.5682736115925407`*^9, 
   3.5682736313577757`*^9}, {3.5682738601945777`*^9, 3.568273987272401*^9}, {
   3.5682763944346285`*^9, 3.5682764313910933`*^9}, 3.5682765128232365`*^9, {
   3.5682766527398825`*^9, 3.568276660976697*^9}, {3.5682774496048822`*^9, 
   3.568277461663703*^9}, {3.5683784032731285`*^9, 3.568378422991563*^9}, {
   3.568378459308427*^9, 3.5683784812420654`*^9}, {3.568378513440522*^9, 
   3.568378867046343*^9}, {3.568378915468828*^9, 3.56837896203491*^9}, {
   3.5683790764299107`*^9, 3.568379270041851*^9}, {3.568380233530743*^9, 
   3.568380234388745*^9}, 3.5683804214954734`*^9, 3.568380471867962*^9, 
   3.5683805399464817`*^9, {3.5683812396077104`*^9, 3.568381293537005*^9}, {
   3.568381339541486*^9, 3.568381420224828*^9}, {3.5684645223056345`*^9, 
   3.5684645572340956`*^9}, {3.5684651558539467`*^9, 
   3.5684651618911576`*^9}, {3.5688209923798466`*^9, 3.568820997683856*^9}, {
   3.568821158754139*^9, 3.568821160750942*^9}, 3.56882222404881*^9, {
   3.568822649274357*^9, 3.5688226508031597`*^9}, 3.568822723109287*^9, {
   3.5693397221142225`*^9, 3.5693397223326235`*^9}, {3.5693899272912874`*^9, 
   3.5693899274472876`*^9}, {3.5693910617720795`*^9, 3.5693910848757205`*^9}, 
   3.5693911374166126`*^9, {3.569391214402748*^9, 3.5693912147147484`*^9}, 
   3.569391451944365*^9, {3.569391487793228*^9, 3.569391507620863*^9}, {
   3.5693923162258854`*^9, 3.5693923173958874`*^9}, {3.569406068526634*^9, 
   3.569406086092265*^9}, 3.569690172138941*^9, 3.569780036185542*^9, {
   3.570453906913044*^9, 3.5704539079894457`*^9}, {3.570454575670618*^9, 
   3.5704545899602437`*^9}, {3.570454765008151*^9, 3.570454772277764*^9}, 
   3.5708553779481487`*^9, {3.5709431726830034`*^9, 3.570943174555007*^9}, {
   3.5709495710522423`*^9, 3.5709495907082767`*^9}, {3.570949647617176*^9, 
   3.570949673138821*^9}, {3.570950759321929*^9, 3.5709507772775607`*^9}, {
   3.5709508127364225`*^9, 3.5709508405200715`*^9}, {3.570991123104905*^9, 
   3.570991124259307*^9}, {3.5709912161278687`*^9, 3.570991227937089*^9}, {
   3.5709912804155817`*^9, 3.570991308776431*^9}, {3.5709914026885962`*^9, 
   3.5709914215490294`*^9}, {3.570991574429298*^9, 3.5709916038821497`*^9}, 
   3.570991652445035*^9, 3.570991830004547*^9, 3.570991865276209*^9, {
   3.5709919181759014`*^9, 3.5709919260539155`*^9}, {3.570992027251293*^9, 
   3.570992050058533*^9}, 3.5709920901350036`*^9, 3.570992186979974*^9, {
   3.57122255431676*^9, 3.5712225562355638`*^9}, 3.571223175338251*^9, {
   3.5713153738729277`*^9, 3.571315375682531*^9}, 3.5713224026962075`*^9, {
   3.5713224627875133`*^9, 3.5713224654863176`*^9}, {3.5713224965147724`*^9, 
   3.571322572268505*^9}, {3.5713226259637995`*^9, 3.5713226549330506`*^9}, {
   3.5713308245340652`*^9, 3.571330884469371*^9}, {3.5713309160126257`*^9, 
   3.5713309422674723`*^9}, 3.571331071326499*^9, {3.5713311246629925`*^9, 
   3.5713311332274075`*^9}, {3.571331300334901*^9, 3.5713313470881834`*^9}, 
   3.5713314298931284`*^9, 3.571331594130217*^9, {3.571331632849485*^9, 
   3.5713316334578857`*^9}, {3.5713316704299507`*^9, 
   3.5713316709447517`*^9}, {3.571331783327349*^9, 3.571331790019761*^9}, {
   3.5713319475956383`*^9, 3.571331948360039*^9}, {3.5713326567416835`*^9, 
   3.571332681717327*^9}, {3.571332736801024*^9, 3.571332753305853*^9}, {
   3.571332796221528*^9, 3.5713328475768185`*^9}, {3.571332914344936*^9, 
   3.571332924672154*^9}, {3.5713330072586994`*^9, 3.5713330320471425`*^9}, {
   3.5713330798612266`*^9, 3.5713330883320417`*^9}, {3.5713331731961904`*^9, 
   3.571333178266199*^9}, {3.571333407851803*^9, 3.571333426837036*^9}, {
   3.571333542292839*^9, 3.571333557705666*^9}, {3.5713336117441607`*^9, 
   3.5713337055939255`*^9}, {3.5713337750608473`*^9, 3.571333798070888*^9}, {
   3.5713366694988756`*^9, 3.5713366834765005`*^9}, {3.5713369716090064`*^9, 
   3.57133697359021*^9}, {3.57138272164856*^9, 3.571382756233821*^9}, {
   3.57138283537276*^9, 3.571382866900415*^9}, {3.5713829070080853`*^9, 
   3.5713829086616883`*^9}, {3.571382939175342*^9, 3.5713830233374896`*^9}, {
   3.5713831045200324`*^9, 3.571383106126835*^9}, {3.571383198260597*^9, 
   3.5713832448422785`*^9}, 3.5716785972796593`*^9, 3.5718167268987517`*^9, {
   3.571838452469782*^9, 3.5718386879053955`*^9}, {3.571838766139532*^9, 
   3.571838773908346*^9}, 3.5718388425484667`*^9, {3.571838961763876*^9, 
   3.571838969236289*^9}, {3.571839027970392*^9, 3.5718390313399982`*^9}, {
   3.571839741203645*^9, 3.5718397450100517`*^9}, {3.572538612521628*^9, 
   3.572538701894185*^9}, {3.572538746213863*^9, 3.572538844837236*^9}, 
   3.5725397817592816`*^9, {3.5726093687611146`*^9, 3.5726094120667906`*^9}, {
   3.5726201406133776`*^9, 3.5726201439517837`*^9}, {3.5726204342214937`*^9, 
   3.572620455406331*^9}, {3.5726210034788933`*^9, 3.572621009968505*^9}, {
   3.5728421659278097`*^9, 3.5728422874676228`*^9}, {3.572844941796685*^9, 
   3.57284494451109*^9}, {3.572850660423529*^9, 3.5728506878327775`*^9}, 
   3.5731240021791506`*^9, {3.573124038683215*^9, 3.57312404156922*^9}, 
   3.5731241655738378`*^9, {3.573150838242284*^9, 3.5731508464166985`*^9}, {
   3.5732110436990156`*^9, 3.573211066116255*^9}, {3.573212991206436*^9, 
   3.573213000894053*^9}, {3.573213104540635*^9, 3.573213182462772*^9}, {
   3.5732202689099436`*^9, 3.573220322745638*^9}, {3.573220354086093*^9, 
   3.5732203696081204`*^9}, {3.573220402914179*^9, 3.573220410448992*^9}, {
   3.5746631320730405`*^9, 3.574663233114418*^9}, {3.5746640424906397`*^9, 
   3.574664047560649*^9}, {3.5746708183720207`*^9, 3.574670838917257*^9}, {
   3.5747409576711226`*^9, 3.574740975720354*^9}, {3.5747864634781103`*^9, 
   3.5747864662861156`*^9}, {3.574786586827527*^9, 3.574786630445204*^9}, {
   3.574786972070204*^9, 3.5747869752838097`*^9}, {3.5748281512990437`*^9, 
   3.5748281556358514`*^9}, {3.5748733140824423`*^9, 3.574873418805426*^9}}],

Cell[CellGroupData[{

Cell[BoxData[{
 RowBox[{
  RowBox[{"Plot9", "=", " ", 
   RowBox[{"Table", "[", 
    RowBox[{
     RowBox[{"Graphics3D", "[", 
      RowBox[{"{", 
       RowBox[{
        RowBox[{"Lighter", "[", 
         RowBox[{"Orange", ",", "0.5"}], "]"}], ",", 
        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[{
  RowBox[{"Plot9a", "=", " ", 
   RowBox[{"Graphics3D", "[", 
    RowBox[{"Tube", "[", 
     RowBox[{
      RowBox[{"{", 
       RowBox[{
        RowBox[{"{", 
         RowBox[{
          RowBox[{"x", "[", 
           RowBox[{"[", "21", "]"}], "]"}], ",", 
          RowBox[{"y", "[", 
           RowBox[{"[", "21", "]"}], "]"}], ",", 
          RowBox[{"z", "[", 
           RowBox[{"[", "21", "]"}], "]"}]}], "}"}], ",", 
        RowBox[{"{", 
         RowBox[{
          RowBox[{"nk", "[", 
           RowBox[{"[", 
            RowBox[{"2", ",", "1"}], "]"}], "]"}], ",", 
          RowBox[{"nk", "[", 
           RowBox[{"[", 
            RowBox[{"2", ",", "2"}], "]"}], "]"}], ",", 
          RowBox[{"nk", "[", 
           RowBox[{"[", 
            RowBox[{"2", ",", "3"}], "]"}], "]"}]}], "}"}]}], "}"}], ",", 
      "0.06"}], "]"}], "]"}]}], ";"}], "\[IndentingNewLine]", 
 RowBox[{
  RowBox[{"Plot9b", "=", " ", 
   RowBox[{"Graphics3D", "[", 
    RowBox[{"Tube", "[", 
     RowBox[{
      RowBox[{"{", 
       RowBox[{
        RowBox[{"{", 
         RowBox[{
          RowBox[{"x", "[", 
           RowBox[{"[", "21", "]"}], "]"}], ",", 
          RowBox[{"y", "[", 
           RowBox[{"[", "21", "]"}], "]"}], ",", 
          RowBox[{"z", "[", 
           RowBox[{"[", "21", "]"}], "]"}]}], "}"}], ",", 
        RowBox[{"{", 
         RowBox[{
          RowBox[{"nl", "[", 
           RowBox[{"[", 
            RowBox[{"2", ",", "1"}], "]"}], "]"}], ",", 
          RowBox[{"nl", "[", 
           RowBox[{"[", 
            RowBox[{"2", ",", "2"}], "]"}], "]"}], ",", 
          RowBox[{"nl", "[", 
           RowBox[{"[", 
            RowBox[{"2", ",", "3"}], "]"}], "]"}]}], "}"}]}], "}"}], ",", 
      "0.06"}], "]"}], "]"}]}], ";"}], "\[IndentingNewLine]", 
 RowBox[{"Show", "[", 
  RowBox[{"Plot1o", ",", "Plot2", ",", "Plot7", ",", "Plot8", ",", 
   RowBox[{"(*", 
    RowBox[{"Plot8a", ",", "Plot8b", ",", "Plot8d", ",", "Plot8e", ","}], 
    "*)"}], "Plot8f", ",", "Plot8g", ",", "Plot9", ",", 
   RowBox[{"{", 
    RowBox[{
     RowBox[{"AspectRatio", "\[Rule]", "Automatic"}], ",", 
     RowBox[{"Boxed", "\[Rule]", "False"}], ",", 
     RowBox[{"(*", " ", 
      RowBox[{
       RowBox[{"Axes", "\[Rule]", "Automatic"}], ",", 
       RowBox[{"AxesLabel", "\[Rule]", 
        RowBox[{"{", 
         RowBox[{"xl", ",", "yl", ",", "zl"}], "}"}]}], ","}], "*)"}], 
     RowBox[{"SphericalRegion", "\[Rule]", "True"}]}], "}"}]}], 
  "]"}], "\[IndentingNewLine]", 
 RowBox[{"Show", "[", 
  RowBox[{"Plot1o", ",", "Plot2", ",", "Plot9", ",", 
   RowBox[{"(*", 
    RowBox[{"Plot9a", ",", "Plot9b", ","}], "*)"}], 
   RowBox[{"{", 
    RowBox[{
     RowBox[{"Axes", "\[Rule]", "Automatic"}], ",", 
     RowBox[{"AxesLabel", "\[Rule]", 
      RowBox[{"{", 
       RowBox[{"xl", ",", "yl", ",", "zl"}], "}"}]}], ",", 
     RowBox[{"AspectRatio", "\[Rule]", "Automatic"}], ",", 
     RowBox[{"Boxed", "\[Rule]", "True"}], ",", " ", 
     RowBox[{"SphericalRegion", "\[Rule]", "True"}]}], "}"}]}], 
  "]"}], "\[IndentingNewLine]", 
 RowBox[{"Show", "[", 
  RowBox[{"Plot1o", ",", "Plot2", ",", "Plot7", ",", "Plot8", ",", 
   RowBox[{"{", 
    RowBox[{
     RowBox[{"Axes", "\[Rule]", "Automatic"}], ",", 
     RowBox[{"AxesLabel", "\[Rule]", 
      RowBox[{"{", 
       RowBox[{"xl", ",", "yl", ",", "zl"}], "}"}]}], ",", 
     RowBox[{"AspectRatio", "\[Rule]", "Automatic"}], ",", 
     RowBox[{"Boxed", "\[Rule]", "True"}], ",", " ", 
     RowBox[{"SphericalRegion", "\[Rule]", "True"}]}], "}"}]}], 
  "]"}], "\[IndentingNewLine]", 
 RowBox[{"Show", "[", 
  RowBox[{"Plot1o", ",", "Plot2", ",", 
   RowBox[{"(*", 
    RowBox[{"Plot8a", ",", "Plot8b", ","}], "*)"}], 
   RowBox[{"{", 
    RowBox[{
     RowBox[{"Axes", "\[Rule]", "Automatic"}], ",", 
     RowBox[{"AxesLabel", "\[Rule]", 
      RowBox[{"{", 
       RowBox[{"xl", ",", "yl", ",", "zl"}], "}"}]}], ",", 
     RowBox[{"AspectRatio", "\[Rule]", "Automatic"}], ",", 
     RowBox[{"Boxed", "\[Rule]", "True"}], ",", " ", 
     RowBox[{"SphericalRegion", "\[Rule]", "True"}]}], "}"}]}], 
  "]"}], "\[IndentingNewLine]", 
 RowBox[{"Show", "[", 
  RowBox[{"Plot1o", ",", "Plot2", ",", 
   RowBox[{"(*", 
    RowBox[{"Plot8c", ","}], "*)"}], 
   RowBox[{"(*", 
    RowBox[{"Plot8d", ",", "Plot8e", ","}], "*)"}], "Plot8f", ",", "Plot8g", 
   ",", 
   RowBox[{"{", 
    RowBox[{
     RowBox[{"Axes", "\[Rule]", "Automatic"}], ",", 
     RowBox[{"AxesLabel", "\[Rule]", 
      RowBox[{"{", 
       RowBox[{"xl", ",", "yl", ",", "zl"}], "}"}]}], ",", 
     RowBox[{"AspectRatio", "\[Rule]", "Automatic"}], ",", 
     RowBox[{"Boxed", "\[Rule]", "True"}], ",", " ", 
     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, {
   3.570453906913044*^9, 3.5704539079894457`*^9}, {3.570454575670618*^9, 
   3.5704545899602437`*^9}, {3.570454765008151*^9, 3.570454772277764*^9}, 
   3.5708553779481487`*^9, {3.5709431726830034`*^9, 3.570943174555007*^9}, {
   3.5709495710522423`*^9, 3.5709495907082767`*^9}, {3.570949647617176*^9, 
   3.570949673138821*^9}, {3.570950759321929*^9, 3.5709507772775607`*^9}, {
   3.5709508127364225`*^9, 3.5709508405200715`*^9}, {3.570991123104905*^9, 
   3.570991124259307*^9}, {3.5709912161278687`*^9, 3.570991227937089*^9}, {
   3.5709912804155817`*^9, 3.570991308776431*^9}, {3.5709914026885962`*^9, 
   3.5709914215490294`*^9}, {3.570991574429298*^9, 3.5709916038821497`*^9}, 
   3.570991652445035*^9, 3.570991830004547*^9, 3.570991865276209*^9, {
   3.5709919181759014`*^9, 3.5709919260539155`*^9}, {3.570992027251293*^9, 
   3.570992050058533*^9}, 3.5709920901350036`*^9, 3.570992186979974*^9, {
   3.57122255431676*^9, 3.5712225562355638`*^9}, 3.571223175338251*^9, {
   3.5713153738729277`*^9, 3.571315375682531*^9}, 3.5713224026962075`*^9, {
   3.5713224627875133`*^9, 3.5713224654863176`*^9}, {3.5713224965147724`*^9, 
   3.571322572268505*^9}, {3.5713226259637995`*^9, 3.5713226549330506`*^9}, {
   3.5713308245340652`*^9, 3.571330884469371*^9}, {3.5713309160126257`*^9, 
   3.5713309422674723`*^9}, 3.571331071326499*^9, {3.5713311246629925`*^9, 
   3.5713311332274075`*^9}, {3.571331300334901*^9, 3.5713313470881834`*^9}, 
   3.5713314298931284`*^9, 3.571331594130217*^9, {3.571331632849485*^9, 
   3.5713316334578857`*^9}, {3.5713316704299507`*^9, 
   3.5713316709447517`*^9}, {3.571331783327349*^9, 3.571331790019761*^9}, {
   3.5713319475956383`*^9, 3.571331948360039*^9}, {3.5713326567416835`*^9, 
   3.571332681717327*^9}, {3.571332736801024*^9, 3.571332753305853*^9}, {
   3.571332796221528*^9, 3.5713328475768185`*^9}, {3.571332914344936*^9, 
   3.571332924672154*^9}, {3.5713330072586994`*^9, 3.5713330320471425`*^9}, {
   3.5713330798612266`*^9, 3.5713330883320417`*^9}, {3.5713331731961904`*^9, 
   3.571333178266199*^9}, {3.571333407851803*^9, 3.571333426837036*^9}, {
   3.571333542292839*^9, 3.571333557705666*^9}, {3.5713336117441607`*^9, 
   3.5713337055939255`*^9}, {3.5713337750608473`*^9, 3.571333798070888*^9}, {
   3.5713366694988756`*^9, 3.5713366834765005`*^9}, {3.5713369716090064`*^9, 
   3.57133697359021*^9}, {3.57138272164856*^9, 3.571382756233821*^9}, {
   3.57138283537276*^9, 3.571382866900415*^9}, {3.5713829070080853`*^9, 
   3.5713829086616883`*^9}, {3.571382939175342*^9, 3.5713830233374896`*^9}, {
   3.5713831045200324`*^9, 3.571383106126835*^9}, {3.571383198260597*^9, 
   3.5713832448422785`*^9}, 3.5716785972796593`*^9, 3.5718167268987517`*^9, {
   3.571838452469782*^9, 3.5718386879053955`*^9}, 3.571838766139532*^9, {
   3.571838857446493*^9, 3.5718388645757055`*^9}, 3.5723437133735733`*^9, 
   3.5723437554312468`*^9, {3.5723449027196617`*^9, 3.572344929582909*^9}, 
   3.5723450406551046`*^9, {3.57234950163894*^9, 3.5723495196413713`*^9}, {
   3.572584520172369*^9, 3.5725845258195786`*^9}, {3.5726224003989472`*^9, 
   3.57262241340937*^9}, 3.572796748424938*^9, 3.5727968708695536`*^9, {
   3.572796971801731*^9, 3.572796995841373*^9}, {3.57279741546651*^9, 
   3.5727974308793373`*^9}, {3.572842795856916*^9, 3.5728428061217337`*^9}, {
   3.5728522627179437`*^9, 3.572852288426789*^9}, {3.5728523495164957`*^9, 
   3.572852453865079*^9}, {3.5728524960787535`*^9, 3.572852515110787*^9}, {
   3.572852550008048*^9, 3.572852634669397*^9}, {3.5728602362372026`*^9, 
   3.5728602649256525`*^9}, 3.572860311756935*^9, 3.5731241886618786`*^9, 
   3.5731408095114717`*^9, 3.5731408826443996`*^9, {3.573211072949067*^9, 
   3.5732110779254756`*^9}, {3.5732129727516036`*^9, 3.573212981300419*^9}, {
   3.5732130120948725`*^9, 3.57321301629128*^9}, {3.573213384015126*^9, 
   3.573213388164733*^9}, {3.573220427063021*^9, 3.57322044338065*^9}, {
   3.5733208085662665`*^9, 3.5733208285343018`*^9}, {3.57332089027921*^9, 
   3.5733208917144127`*^9}, {3.5733209483737125`*^9, 
   3.5733209652997417`*^9}, {3.5733210904587617`*^9, 
   3.5733211330312366`*^9}, {3.5746581574587035`*^9, 
   3.5746581598923078`*^9}, {3.5746632559372582`*^9, 3.5746632963569293`*^9}, 
   3.574669479281269*^9, {3.5746708530664816`*^9, 3.5746708831121345`*^9}, {
   3.5746734822639*^9, 3.5746735338531904`*^9}, 3.5747441301394944`*^9, 
   3.574873451690284*^9, 3.5748736424162188`*^9, 3.574873719277554*^9, {
   3.5748742212552357`*^9, 3.574874230069251*^9}}],

Cell[BoxData[
 Graphics3DBox[{
   {RGBColor[0.4, 0.2666666666666667, 0.13333333333333336`], Opacity[0.8], 
    SphereBox[{1.4720965540000002`, 13.160051864000001`, -0.253223284}, 
     0.255]}, 
   {RGBColor[0.4, 0.2666666666666667, 0.13333333333333336`], Opacity[0.8], 
    SphereBox[{-1.19997601, 12.260542288000002`, 0.315584242}, 0.255]}, 
   {RGBColor[0.4, 0.2666666666666667, 0.13333333333333336`], Opacity[0.8], 
    SphereBox[{-3.06135612, 14.225857328, -0.687860264}, 0.255]}, 
   {RGBColor[0.4, 0.2666666666666667, 0.13333333333333336`], Opacity[0.8], 
    SphereBox[{-0.196531504, 17.549885362, 0.098265752}, 0.255]}, 
   {RGBColor[0.4, 0.2666666666666667, 0.13333333333333336`], Opacity[0.8], 
    SphereBox[{1.846262302, 15.730079224, 0.978878068}, 0.255]}, 
   {RGBColor[0.4, 0.2666666666666667, 0.13333333333333336`], Opacity[0.8], 
    SphereBox[{-5.827914984, 13.47374638, -0.31369451600000003`}, 0.255]}, 
   {RGBColor[0.4, 0.2666666666666667, 0.13333333333333336`], Opacity[0.8], 
    SphereBox[{-1.4399712120000001`, 7.723310162, 0.470541774}, 0.255]}, 
   {RGBColor[0.4, 0.2666666666666667, 0.13333333333333336`], Opacity[0.8], 
    SphereBox[{-3.54323625, 5.91484238, -0.262671914}, 0.255]}, 
   {RGBColor[0.4, 0.2666666666666667, 0.13333333333333336`], Opacity[0.8], 
    SphereBox[{-3.050017764, 3.314579404, 0.852266426}, 0.255]}, 
   {RGBColor[0.4, 0.2666666666666667, 0.13333333333333336`], Opacity[0.8], 
    SphereBox[{-0.438416432, 2.450974622, 0.013228082}, 0.255]}, 
   {RGBColor[0.4, 0.2666666666666667, 0.13333333333333336`], Opacity[0.8], 
    SphereBox[{1.49288354, 4.40306158, 0.901399302}, 0.255]}, 
   {RGBColor[0.4, 0.2666666666666667, 0.13333333333333336`], Opacity[0.8], 
    SphereBox[{4.221647884, 3.673627344, 0.2834589}, 0.255]}, 
   {RGBColor[0.4, 0.2666666666666667, 0.13333333333333336`], Opacity[0.8], 
    SphereBox[{-0.149288354, -2.076808874, -0.287238352}, 0.255]}, 
   {RGBColor[0.4, 0.2666666666666667, 0.13333333333333336`], Opacity[0.8], 
    SphereBox[{2.010668464, -3.8852766560000003`, 0.268341092}, 0.255]}, 
   {RGBColor[0.4, 0.2666666666666667, 0.13333333333333336`], Opacity[0.8], 
    SphereBox[{1.45508902, -6.47231155, -0.8503767}, 0.255]}, 
   {RGBColor[0.4, 0.2666666666666667, 0.13333333333333336`], Opacity[0.8], 
    SphereBox[{-1.084702724, -7.36048277, 0.166295888}, 0.255]}, 
   {RGBColor[0.4, 0.2666666666666667, 0.13333333333333336`], Opacity[0.8], 
    SphereBox[{-3.085922558, -5.415954716, -0.570697252}, 0.255]}, 
   {RGBColor[0.4, 0.2666666666666667, 0.13333333333333336`], Opacity[0.8], 
    SphereBox[{-5.7579951220000005`, -6.164286212, 0.23243629799999999`}, 
     0.255]}, 
   {RGBColor[0.4, 0.2666666666666667, 0.13333333333333336`], Opacity[0.8], 
    SphereBox[{-1.347374638, -11.882597088, 0.49132876000000003`}, 0.255]}, 
   {RGBColor[0.4, 0.2666666666666667, 0.13333333333333336`], Opacity[0.8], 
    SphereBox[{-3.5621335100000002`, -13.666498432000001`, 
     0.12283219000000001`}, 0.255]}, 
   {RGBColor[0.4, 0.2666666666666667, 0.13333333333333336`], Opacity[0.8], 
    SphereBox[{-2.953641738, -16.206290176, 1.3020212139999998`}, 0.255]}, 
   {RGBColor[0.4, 0.2666666666666667, 0.13333333333333336`], Opacity[0.8], 
    SphereBox[{-0.5102260200000001, -17.183278518, 0.153067806}, 0.255]}, 
   {RGBColor[0.4, 0.2666666666666667, 0.13333333333333336`], Opacity[0.8], 
    SphereBox[{1.58736984, -15.253868271999998`, 0.60471232}, 0.255]}, 
   {RGBColor[0.4, 0.2666666666666667, 0.13333333333333336`], Opacity[0.8], 
    SphereBox[{4.130941036, -16.060781274, -0.489439034}, 0.255]}, 
   {RGBColor[1, 
     NCache[
      Rational[1, 3], 0.3333333333333333], 
     NCache[
      Rational[1, 3], 0.3333333333333333]], Opacity[0.8], 
    SphereBox[{-2.609711606, 16.51620524, 0.6614040999999999}, 0.25]}, 
   {RGBColor[1, 
     NCache[
      Rational[1, 3], 0.3333333333333333], 
     NCache[
      Rational[1, 3], 0.3333333333333333]], Opacity[0.8], 
    SphereBox[{3.2824540620000002`, 11.481975175999999`, 0.863604782}, 0.25]}, 
   {RGBColor[1, 
     NCache[
      Rational[1, 3], 0.3333333333333333], 
     NCache[
      Rational[1, 3], 0.3333333333333333]], Opacity[0.8], 
    SphereBox[{-1.7139814820000001`, 9.958856019999999, -0.999665054}, 0.25]}, 
   {RGBColor[1, 
     NCache[
      Rational[1, 3], 0.3333333333333333], 
     NCache[
      Rational[1, 3], 0.3333333333333333]], Opacity[0.8], 
    SphereBox[{-0.15684725800000002`, 19.828894918, 1.5476855939999998`}, 
     0.25]}, 
   {RGBColor[1, 
     NCache[
      Rational[1, 3], 0.3333333333333333], 
     NCache[
      Rational[1, 3], 0.3333333333333333]], Opacity[0.8], 
    SphereBox[{4.257552678000001, 16.682501128, 0.196531504}, 0.25]}, 
   {RGBColor[1, 
     NCache[
      Rational[1, 3], 0.3333333333333333], 
     NCache[
      Rational[1, 3], 0.3333333333333333]], Opacity[0.8], 
    SphereBox[{-6.224757444, 12.360697766000001`, 2.127831476}, 0.25]}, 
   {RGBColor[1, 
     NCache[
      Rational[1, 3], 0.3333333333333333], 
     NCache[
      Rational[1, 3], 0.3333333333333333]], Opacity[0.8], 
    SphereBox[{-5.854371147999999, 6.865374558, 0.7899054679999999}, 0.25]}, 
   {RGBColor[1, 
     NCache[
      Rational[1, 3], 0.3333333333333333], 
     NCache[
      Rational[1, 3], 0.3333333333333333]], Opacity[0.8], 
    SphereBox[{-4.958641024, 1.664848606, -0.139839724}, 0.25]}, 
   {RGBColor[1, 
     NCache[
      Rational[1, 3], 0.3333333333333333], 
     NCache[
      Rational[1, 3], 0.3333333333333333]], Opacity[0.8], 
    SphereBox[{0.20786986, 0.12283219000000001`, 1.216983544}, 0.25]}, 
   {RGBColor[1, 
     NCache[
      Rational[1, 3], 0.3333333333333333], 
     NCache[
      Rational[1, 3], 0.3333333333333333]], Opacity[0.8], 
    SphereBox[{0.91651711, 6.72742456, -0.338260954}, 0.25]}, 
   {RGBColor[1, 
     NCache[
      Rational[1, 3], 0.3333333333333333], 
     NCache[
      Rational[1, 3], 0.3333333333333333]], Opacity[0.8], 
    SphereBox[{4.418179388, 2.641836948, -2.218538324}, 0.25]}, 
   {RGBColor[1, 
     NCache[
      Rational[1, 3], 0.3333333333333333], 
     NCache[
      Rational[1, 3], 0.3333333333333333]], Opacity[0.8], 
    SphereBox[{4.236765692, -2.898839684, -0.9297451919999999}, 0.25]}, 
   {RGBColor[1, 
     NCache[
      Rational[1, 3], 0.3333333333333333], 
     NCache[
      Rational[1, 3], 0.3333333333333333]], Opacity[0.8], 
    SphereBox[{3.42985269, -8.133380704, -0.024566438}, 0.25]}, 
   {RGBColor[1, 
     NCache[
      Rational[1, 3], 0.3333333333333333], 
     NCache[
      Rational[1, 3], 0.3333333333333333]], Opacity[0.8], 
    SphereBox[{-1.7820116179999999`, -9.690514928, -1.007223958}, 0.25]}, 
   {RGBColor[1, 
     NCache[
      Rational[1, 3], 0.3333333333333333], 
     NCache[
      Rational[1, 3], 0.3333333333333333]], Opacity[0.8], 
    SphereBox[{-2.443415718, -3.101040366, 0.6557349219999999}, 0.25]}, 
   {RGBColor[1, 
     NCache[
      Rational[1, 3], 0.3333333333333333], 
     NCache[
      Rational[1, 3], 0.3333333333333333]], Opacity[0.8], 
    SphereBox[{-5.775002656, -7.141274554, 2.7646691380000004`}, 0.25]}, 
   {RGBColor[1, 
     NCache[
      Rational[1, 3], 0.3333333333333333], 
     NCache[
      Rational[1, 3], 0.3333333333333333]], Opacity[0.8], 
    SphereBox[{-5.699413616, -12.625259406, 1.42674313}, 0.25]}, 
   {RGBColor[1, 
     NCache[
      Rational[1, 3], 0.3333333333333333], 
     NCache[
      Rational[1, 3], 0.3333333333333333]], Opacity[0.8], 
    SphereBox[{-4.9775382839999995`, -17.903264124, 0.68974999}, 0.25]}, 
   {RGBColor[1, 
     NCache[
      Rational[1, 3], 0.3333333333333333], 
     NCache[
      Rational[1, 3], 0.3333333333333333]], Opacity[0.8], 
    SphereBox[{0.105824656, -19.494413416, 1.430522582}, 0.25]}, 
   {RGBColor[1, 
     NCache[
      Rational[1, 3], 0.3333333333333333], 
     NCache[
      Rational[1, 3], 0.3333333333333333]], Opacity[0.8], 
    SphereBox[{0.857935604, -12.948402552000001`, -0.602822594}, 0.25]}, 
   {RGBColor[1, 
     NCache[
      Rational[1, 3], 0.3333333333333333], 
     NCache[
      Rational[1, 3], 0.3333333333333333]], Opacity[0.8], 
    SphereBox[{3.802128712, -16.986747014000002`, -3.01411297}, 0.25]}, 
   {RGBColor[1, 1, 1], Opacity[0.8], 
    SphereBox[{1.780121892, 13.288553232, -2.326252706}, 0.12]}, 
   {RGBColor[1, 1, 1], Opacity[0.8], 
    SphereBox[{-1.46453765, 12.045113524, 2.382944486}, 0.12]}, 
   {RGBColor[1, 1, 1], Opacity[0.8], 
    SphereBox[{-2.745771878, 14.543331296, -2.7401027}, 0.12]}, 
   {RGBColor[1, 1, 1], Opacity[0.8], 
    SphereBox[{-0.020786986, 17.992081246, -1.938858876}, 0.12]}, 
   {RGBColor[1, 1, 1], Opacity[0.8], 
    SphereBox[{1.791460248, 15.539216898000001`, 3.0689150240000003`}, 0.12]}, 
   {RGBColor[1, 1, 1], Opacity[0.8], 
    SphereBox[{5.459418414, 15.403156626, 0.574476704}, 0.12]}, 
   {RGBColor[1, 1, 1], Opacity[0.8], 
    SphereBox[{3.016002696, 9.862479994000001, 0.126611642}, 0.12]}, 
   {RGBColor[1, 1, 1], Opacity[0.8], 
    SphereBox[{-7.06757524, 15.151823068, -0.5121157460000001}, 0.12]}, 
   {RGBColor[1, 1, 1], Opacity[0.8], 
    SphereBox[{-6.419399222, 12.124482016, -1.8103575079999998`}, 0.12]}, 
   {RGBColor[1, 1, 1], Opacity[0.8], 
    SphereBox[{-6.147278678, 10.567347792, 1.925630794}, 0.12]}, 
   {RGBColor[1, 1, 1], Opacity[0.8], 
    SphereBox[{-0.42518835, 19.432052457999998`, 3.2711157060000002`}, 0.12]}, 
   {RGBColor[1, 1, 1], Opacity[0.8], 
    SphereBox[{-1.447530116, 8.099365636, 2.528453388}, 0.12]}, 
   {RGBColor[1, 1, 1], Opacity[0.8], 
    SphereBox[{-3.692524604, 5.793899916, -2.350819144}, 0.12]}, 
   {RGBColor[1, 1, 1], Opacity[0.8], 
    SphereBox[{-3.16529105, 3.380719814, 2.949862286}, 0.12]}, 
   {RGBColor[1, 1, 1], Opacity[0.8], 
    SphereBox[{-0.362827392, 2.294127364, -2.076808874}, 0.12]}, 
   {RGBColor[1, 1, 1], Opacity[0.8], 
    SphereBox[{1.353043816, 4.663843768, 2.981987628}, 0.12]}, 
   {RGBColor[1, 1, 1], Opacity[0.8], 
    SphereBox[{5.47075677, 5.349814306, 0.432747254}, 0.12]}, 
   {RGBColor[1, 1, 1], Opacity[0.8], 
    SphereBox[{4.934074586, 2.279009556, 1.68185614}, 0.12]}, 
   {RGBColor[1, 1, 1], Opacity[0.8], 
    SphereBox[{-7.1015903080000005`, 5.610596494, 0.476210952}, 0.12]}, 
   {RGBColor[1, 1, 1], Opacity[0.8], 
    SphereBox[{-4.603372536, 0.015117808, 0.489439034}, 0.12]}, 
   {RGBColor[1, 1, 1], Opacity[0.8], 
    SphereBox[{4.386054046, 0.844707522, -2.067360244}, 0.12]}, 
   {RGBColor[1, 1, 1], Opacity[0.8], 
    SphereBox[{-0.279679448, -1.655399976, -2.3300321580000003`}, 0.12]}, 
   {RGBColor[1, 1, 1], Opacity[0.8], 
    SphereBox[{2.30546572, -4.03456501, 2.339480788}, 0.12]}, 
   {RGBColor[1, 1, 1], Opacity[0.8], 
    SphereBox[{1.419184226, -6.374045798, -2.946082834}, 0.12]}, 
   {RGBColor[1, 1, 1], Opacity[0.8], 
    SphereBox[{-1.0091136840000001`, -7.528668384, 2.252553392}, 0.12]}, 
   {RGBColor[1, 1, 1], Opacity[0.8], 
    SphereBox[{-3.08970201, -5.13060609, -2.653175304}, 0.12]}, 
   {RGBColor[1, 1, 1], Opacity[0.8], 
    SphereBox[{-7.03922935, -4.50699651, 0.130391094}, 0.12]}, 
   {RGBColor[1, 1, 1], Opacity[0.8], 
    SphereBox[{-6.540341686, -7.5966985199999995`, -1.0884821759999999`}, 
     0.12]}, 
   {RGBColor[1, 1, 1], Opacity[0.8], 
    SphereBox[{5.516110194, -4.136610214, -0.7086472500000001}, 0.12]}, 
   {RGBColor[1, 1, 1], Opacity[0.8], 
    SphereBox[{2.987656806, -9.785001228, -0.587704786}, 0.12]}, 
   {RGBColor[1, 1, 1], Opacity[0.8], 
    SphereBox[{-5.784451286, -8.940293706, 2.647506126}, 0.12]}, 
   {RGBColor[1, 1, 1], Opacity[0.8], 
    SphereBox[{-1.056356834, -11.44229093, 2.515225306}, 0.12]}, 
   {RGBColor[1, 1, 1], Opacity[0.8], 
    SphereBox[{-3.9892115860000006`, -13.885706648, -1.9199616160000001`}, 
     0.12]}, 
   {RGBColor[1, 1, 1], Opacity[0.8], 
    SphereBox[{-2.7646691380000004`, -16.021097028, 3.3844992659999997`}, 
     0.12]}, 
   {RGBColor[1, 1, 1], Opacity[0.8], 
    SphereBox[{-0.780456838, -17.521539472, -1.901064356}, 0.12]}, 
   {RGBColor[1, 1, 1], Opacity[0.8], 
    SphereBox[{1.83303422, -14.91938677, 2.662623934}, 0.12]}, 
   {RGBColor[1, 1, 1], Opacity[0.8], 
    SphereBox[{5.472646496, -14.44695527, -0.48565958200000003`}, 0.12]}, 
   {RGBColor[1, 1, 1], Opacity[0.8], 
    SphereBox[{4.983207462, -17.570672348, 0.68974999}, 0.12]}, 
   {RGBColor[1, 1, 1], Opacity[0.8], 
    SphereBox[{-6.993875926, -13.866809388, 1.34170546}, 0.12]}, 
   {RGBColor[1, 1, 1], Opacity[0.8], 
    SphereBox[{-4.457863634, -19.532207936000002`, 1.230211626}, 0.12]}, 
   {RGBColor[1, 1, 1], Opacity[0.8], 
    SphereBox[{0.413849994, -19.097570956, 3.150173242}, 0.12]}, 
   {RGBColor[1, 1, 1], Opacity[0.8], 
    SphereBox[{3.509221182, -18.751751098, -2.93852393}, 0.12]}, 
   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}], 
   {RGBColor[0.36, 0.24, 0.12], Opacity[0.5], 
    SphereBox[{0.13606027200000015`, 12.710297076000002`, 
     0.031180478999999983`}, 1.180909111492542]}, 
   {RGBColor[0.36, 0.24, 0.12], Opacity[0.5], 
    SphereBox[{-2.130666065, 13.243199808, -0.18613801099999994`}, 
     1.186242066466073]}, 
   {RGBColor[0.36, 0.24, 0.12], Opacity[0.5], 
    SphereBox[{1.659179428, 14.445065544000002`, 0.36282739200000014`}, 
     1.1800816686131144`]}, 
   {RGBColor[0.36, 0.24, 0.12], Opacity[0.5], 
    SphereBox[{0.8248653989999999, 16.639982293000003`, 0.5385719099999999}, 
     1.1798263536923503`]}, 
   {RGBColor[0.36, 0.24, 0.12], Opacity[0.5], 
    SphereBox[{-4.444635552, 13.849801853999999`, -0.50077739}, 
     1.1884416251145054`]}, 
   {RGBColor[0.36, 0.24, 0.12], Opacity[0.5], 
    SphereBox[{-2.4916037310000005`, 6.819076270999999, 0.10393492999999993`},
      1.1773628123992779`]}, 
   {RGBColor[0.36, 0.24, 0.12], Opacity[0.5], 
    SphereBox[{-3.296627007, 4.614710892, 0.29479725599999995`}, 
     1.1787421577217572`]}, 
   {RGBColor[0.36, 0.24, 0.12], Opacity[0.5], 
    SphereBox[{-1.744217098, 2.882777013, 0.43274725399999997`}, 
     1.180702993902901]}, 
   {RGBColor[0.36, 0.24, 0.12], Opacity[0.5], 
    SphereBox[{0.527233554, 3.4270181010000003`, 0.45731369200000005`}, 
     1.1858359653762258`]}, 
   {RGBColor[0.36, 0.24, 0.12], Opacity[0.5], 
    SphereBox[{2.8572657120000002`, 4.0383444619999995`, 0.5924291009999999}, 
     1.188490102525311]}, 
   {RGBColor[0.36, 0.24, 0.12], Opacity[0.5], 
    SphereBox[{0.9306900550000001, -2.981042765, -0.009448629999999958}, 
     1.1784738568310034`]}, 
   {RGBColor[0.36, 0.24, 0.12], Opacity[0.5], 
    SphereBox[{1.732878742, -5.1787941029999995`, -0.291017804}, 
     1.1791971908481904`]}, 
   {RGBColor[0.36, 0.24, 0.12], Opacity[0.5], 
    SphereBox[{0.18519314799999975`, -6.91639716, -0.3420404059999999}, 
     1.180942323460848]}, 
   {RGBColor[0.36, 0.24, 0.12], Opacity[0.5], 
    SphereBox[{-2.0853126410000002`, -6.3882187429999995`, \
-0.20220068200000002`}, 1.1858201891514784`]}, 
   {RGBColor[0.36, 0.24, 0.12], Opacity[0.5], 
    SphereBox[{-4.42195884, -5.790120464, -0.1691304769999999}, 
     1.187185277057574]}, 
   {RGBColor[0.36, 0.24, 0.12], Opacity[0.5], 
    SphereBox[{-2.4547540740000002`, -12.77454776, 0.307080475}, 
     1.1766105338859703`]}, 
   {RGBColor[0.36, 0.24, 0.12], Opacity[0.5], 
    SphereBox[{-3.257887624, -14.936394304, 0.712426702}, 
     1.1755675224721844`]}, 
   {RGBColor[0.36, 0.24, 0.12], Opacity[0.5], 
    SphereBox[{-1.7319338789999996`, -16.694784347000002`, 
     0.7275445099999999}, 1.1784949993929927`]}, 
   {RGBColor[0.36, 0.24, 0.12], Opacity[0.5], 
    SphereBox[{0.5385719100000002, -16.218573395, 0.37889006300000005`}, 
     1.1855850720295475`]}, 
   {RGBColor[0.36, 0.24, 0.12], Opacity[0.5], 
    SphereBox[{2.859155438, -15.657324773, 0.05763664299999993}, 
     1.1848497743990636`]}, 
   {RGBColor[0.36, 0.24, 0.12], Opacity[0.5], 
    SphereBox[{-2.828950976156058, 15.404413957032878`, 0.006437948153031003},
      1.1302645531044595`]}, 
   {RGBColor[0.36, 0.24, 0.12], Opacity[0.5], 
    SphereBox[{-1.4384433721768068`, 17.01791528220931, 0.3880776053411812}, 
     1.1245844131585692`]}, 
   {RGBColor[0.36, 0.24, 0.12], Opacity[0.5], 
    SphereBox[{2.403535017475313, 12.29667257844042, 0.3213906324028287}, 
     1.1367808301760907`]}, 
   {RGBColor[0.36, 0.24, 0.12], Opacity[0.5], 
    SphereBox[{-1.4644594361656937`, 
     11.076201063478623`, -0.36118217201221603`}, 1.1322705459102396`]}, 
   {RGBColor[0.36, 0.24, 0.12], Opacity[0.5], 
    SphereBox[{-1.5809800558091096`, 
     8.873747832525355, -0.28604360864473943`}, 1.126928523305504]}, 
   {RGBColor[0.36, 0.24, 0.12], Opacity[0.5], 
    SphereBox[{-0.17611200328341484`, 18.722548117438176`, 0.844063706743849},
      1.1326811040162679`]}, 
   {RGBColor[0.36, 0.24, 0.12], Opacity[0.5], 
    SphereBox[{3.086900924221407, 16.220112034031025`, 0.5763511169030858}, 
     1.136121316930776]}, 
   {RGBColor[0.36, 0.24, 0.12], Opacity[0.5], 
    SphereBox[{-6.032085953843846, 12.901095421723689`, 0.9424430698964259}, 
     1.1383273338933404`]}, 
   {RGBColor[0.36, 0.24, 0.12], Opacity[0.5], 
    SphereBox[{-4.732299641712604, 6.403884805209681, 0.27887208369740035`}, 
     1.1379000482431825`]}, 
   {RGBColor[0.36, 0.24, 0.12], Opacity[0.5], 
    SphereBox[{-4.031999233785998, 2.465797400907747, 0.3418305134874766}, 
     1.137526968463311]}, 
   {RGBColor[0.36, 0.24, 0.12], Opacity[0.5], 
    SphereBox[{-0.10586426817906094`, 1.2530089324462077`, 
     0.6326307964851994}, 1.1318185231744449`]}, 
   {RGBColor[0.36, 0.24, 0.12], Opacity[0.5], 
    SphereBox[{0.03451139729930988, -0.9448358025058374, 0.4868600714616439}, 
     1.1264089593419884`]}, 
   {RGBColor[0.36, 0.24, 0.12], Opacity[0.5], 
    SphereBox[{-0.2272109173732968, 7.210780350237151, 0.05429365363093108}, 
     1.1236464208156869`]}, 
   {RGBColor[0.36, 0.24, 0.12], Opacity[0.5], 
    SphereBox[{1.1963003949788664`, 5.599118197626211, 0.2635024392660208}, 
     1.1303969883089011`]}, 
   {RGBColor[0.36, 0.24, 0.12], Opacity[0.5], 
    SphereBox[{4.322760005308129, 3.1427887071323277`, -1.0037761828073217`}, 
     1.1388614162267112`]}, 
   {RGBColor[0.36, 0.24, 0.12], Opacity[0.5], 
    SphereBox[{3.155955995614255, -3.377772333841561, -0.3480530464069931}, 
     1.1389324797249973`]}, 
   {RGBColor[0.36, 0.24, 0.12], Opacity[0.5], 
    SphereBox[{2.4711149983871348`, -7.326940100241427, -0.4254931090381074}, 
     1.1367959876247749`]}, 
   {RGBColor[0.36, 0.24, 0.12], Opacity[0.5], 
    SphereBox[{-1.4435051923183868`, -8.559408090966317, -0.4375424123406998},
      1.132325757042272]}, 
   {RGBColor[0.36, 0.24, 0.12], Opacity[0.5], 
    SphereBox[{-1.571041408791028, -10.754538591836555`, \
-0.27983536711863144`}, 1.1274432414442581`]}, 
   {RGBColor[0.36, 0.24, 0.12], Opacity[0.5], 
    SphereBox[{-1.3299494271247763`, -2.603924443714686, 
     0.19805808580005224`}, 1.1238590233473755`]}, 
   {RGBColor[0.36, 0.24, 0.12], Opacity[0.5], 
    SphereBox[{-2.7553079590919234`, -4.224769764051783, 0.06038767356276942},
      1.1307826317470946`]}, 
   {RGBColor[0.36, 0.24, 0.12], Opacity[0.5], 
    SphereBox[{-5.76674514601087, -6.666926480179968, 1.5352176507295103`}, 
     1.1392107759309054`]}, 
   {RGBColor[0.36, 0.24, 0.12], Opacity[0.5], 
    SphereBox[{-4.661750718532557, -13.13078748425337, 0.7936861899004984}, 
     1.1378588926704931`]}, 
   {RGBColor[0.36, 0.24, 0.12], Opacity[0.5], 
    SphereBox[{-3.994926958203027, -17.079375262594134`, 0.987010559148664}, 
     1.1377136858301384`]}, 
   {RGBColor[0.36, 0.24, 0.12], Opacity[0.5], 
    SphereBox[{-0.19327206937971358`, -18.37234195851721, 0.8103097404150724},
      1.1378980728042372`]}, 
   {RGBColor[0.36, 0.24, 0.12], Opacity[0.5], 
    SphereBox[{-0.21241215279449188`, -12.431113661826828`, \
-0.07177602057753996}, 1.123414815397786]}, 
   {RGBColor[0.36, 0.24, 0.12], Opacity[0.5], 
    SphereBox[{
     1.2120465887772292`, -14.067613436529065`, -0.016612958578628545`}, 
     1.1335239767068843`]}, 
   {RGBColor[0.36, 0.24, 0.12], Opacity[0.5], 
    SphereBox[{
     3.9617649973765343`, -16.537196555181026`, -1.7883998822813243`}, 
     1.1366763709722834`]}, 
   {Opacity[0.5], 
    SphereBox[{1.69357008727217, 13.252445730641151`, -1.7437537502550335`}, 
     1.2525245521509576`]}, 
   {Opacity[0.5], 
    SphereBox[{-1.3900425356923254`, 12.105773831364822`, 1.800818378481456}, 
     1.2481235531033859`]}, 
   {Opacity[0.5], 
    SphereBox[{-2.834415098515931, 14.454157277756428`, -2.1636563677826297`},
      1.2532956915632072`]}, 
   {Opacity[0.5], 
    SphereBox[{-0.07035257273298895, 17.86736783422022, -1.3643244405358916`},
      1.244760823112549]}, 
   {Opacity[0.5], 
    SphereBox[{1.8068610563150675`, 15.592854195924891`, 2.4815600586046624`},
      1.252249015826414]}, 
   {Opacity[0.5], 
    SphereBox[{5.1086104152948115`, 15.776579605753792`, 0.4641597232750979}, 
     1.0928629135097119`]}, 
   {Opacity[0.5], 
    SphereBox[{3.09362135529579, 10.334247306173701`, 0.34130155069048196`}, 
     1.0964442030508648`]}, 
   {Opacity[0.5], 
    SphereBox[{-6.718579546862117, 14.679402068752378`, -0.4562551548727474}, 
     1.2485265817920408`]}, 
   {Opacity[0.5], 
    SphereBox[{-6.253227250887771, 12.503545234447705`, -1.3898840219907813`},
      1.2528876265968418`]}, 
   {Opacity[0.5], 
    SphereBox[{-6.169758291331338, 11.087668598132668`, 1.9842971019622713`}, 
     1.103675432801264]}, 
   {Opacity[0.5], 
    SphereBox[{-0.34656590227196604`, 19.548325091963992`, 
     2.7661602670706555`}, 1.0860711510036547`]}, 
   {Opacity[0.5], 
    SphereBox[{-1.4453983054259558`, 7.993308059941303, 1.9480679592164802`}, 
     1.244802645216093]}, 
   {Opacity[0.5], 
    SphereBox[{-3.650521031530337, 5.8279281266083345`, -1.7633008202154725`},
      1.2497675596906817`]}, 
   {Opacity[0.5], 
    SphereBox[{-3.132932509721171, 3.36215343843018, 2.361042946499994}, 
     1.254601816582464]}, 
   {Opacity[0.5], 
    SphereBox[{-0.38409188952187967`, 
     2.3382511963579002`, -1.4888455175200288`}, 1.250076625234732]}, 
   {Opacity[0.5], 
    SphereBox[{1.3923035961888002`, 4.590629583323588, 2.397865763299067}, 
     1.2543257029772308`]}, 
   {Opacity[0.5], 
    SphereBox[{5.119104765627838, 4.8779303001329675`, 0.3907192534774571}, 
     1.248548733341614]}, 
   {Opacity[0.5], 
    SphereBox[{4.733871782367941, 2.6709184925529437`, 1.2888851196081597`}, 
     1.2523298095450386`]}, 
   {Opacity[0.5], 
    SphereBox[{-6.737791401281884, 5.976600242577015, 0.5677118891442536}, 
     1.0940826447111431`]}, 
   {Opacity[0.5], 
    SphereBox[{-4.706753964783188, 0.4951815703815081, 0.3063219287616928}, 
     1.0983605652519144`]}, 
   {Opacity[0.5], 
    SphereBox[{4.395388360751405, 1.3668800707403699`, -2.111286431065436}, 
     1.101063017490433]}, 
   {Opacity[0.5], 
    SphereBox[{-0.24286834600849022`, -1.7743691896827056`, \
-1.7533248934663466`}, 1.2426789033195336`]}, 
   {Opacity[0.5], 
    SphereBox[{2.2225364687759788`, -3.9925687866237327`, 
     1.7568496383748244`}, 1.2501345167455122`]}, 
   {Opacity[0.5], 
    SphereBox[{1.4292798596983622`, -6.401675953384991, -2.3568166355008584`},
      1.2511158752517537`]}, 
   {Opacity[0.5], 
    SphereBox[{-1.0304074872042628`, -7.481289671870516, 1.6648444235623476`},
      1.2471902398361645`]}, 
   {Opacity[0.5], 
    SphereBox[{-3.0886411441436175`, -5.21070146215688, -2.0686382171332336`},
      1.2547402845179079`]}, 
   {Opacity[0.5], 
    SphereBox[{-6.678796702252236, -4.9732198611427565`, 
     0.15909811904185733`}, 1.2500800306619544`]}, 
   {Opacity[0.5], 
    SphereBox[{-6.320507071561394, -7.194199395013373, -0.7173121385782956}, 
     1.2524896868982753`]}, 
   {Opacity[0.5], 
    SphereBox[{5.142318135820718, -3.774965017386367, -0.7732464683264048}, 
     1.0910899931961786`]}, 
   {Opacity[0.5], 
    SphereBox[{3.116399328676289, -9.304142403986852, -0.42375063319002476`}, 
     1.097442314960888]}, 
   {Opacity[0.5], 
    SphereBox[{-5.78170451666697, -8.417308824991142, 2.6815660657295686`}, 
     1.1001550571947236`]}, 
   {Opacity[0.5], 
    SphereBox[{-1.1384480207685255`, -11.566493829461471`, 
     1.9443184162007097`}, 1.2443826791997568`]}, 
   {Opacity[0.5], 
    SphereBox[{-3.8691338379231306`, -13.824073821553466`, \
-1.345607431614617}, 1.2512409590917088`]}, 
   {Opacity[0.5], 
    SphereBox[{-2.8177811830531594`, -16.073146832152094`, 2.799204529514185},
      1.2520193745958577`]}, 
   {Opacity[0.5], 
    SphereBox[{-0.7045081829890047, -17.426470875867356`, \
-1.3237483560213157`}, 1.2520627531971158`]}, 
   {Opacity[0.5], 
    SphereBox[{1.7639925337055584`, -15.013389681339355`, 2.084267038810408}, 
     1.2521401520042068`]}, 
   {Opacity[0.5], 
    SphereBox[{5.095461101730325, -14.900640237191976`, -0.4867220760683653}, 
     1.2515191800805172`]}, 
   {Opacity[0.5], 
    SphereBox[{4.74339699749716, -17.1458196625504, 0.3579501455437426}, 
     1.2496108809698971`]}, 
   {Opacity[0.5], 
    SphereBox[{-6.616055750704573, -13.504432957096212`, 1.3665257634865609`},
      1.0929364986081582`]}, 
   {Opacity[0.5], 
    SphereBox[{-4.609748126728132, -19.056119089703092`, 1.0722517535627423`},
      1.0905145617559318`]}, 
   {Opacity[0.5], 
    SphereBox[{0.3237390121349573, -19.213664859016312`, 2.6470996622626455`},
      1.0888250317389658`]}, 
   {Opacity[0.5], 
    SphereBox[{3.594947127544483, -18.235183142267438`, -2.960646754656641}, 
     1.0880394954698163`]}, 
   {RGBColor[1, 
     NCache[
      Rational[1, 3], 0.3333333333333333], 
     NCache[
      Rational[1, 3], 0.3333333333333333]], Opacity[0.4], 
    SphereBox[{-2.6844142018633765`, 16.261329230222703`, 
     2.0178459829464366`}, 1.125]}, 
   {RGBColor[1, 
     NCache[
      Rational[1, 3], 0.3333333333333333], 
     NCache[
      Rational[1, 3], 0.3333333333333333]], Opacity[0.4], 
    SphereBox[{3.098071255159693, 11.421185373987079`, 2.2321019213879203`}, 
     1.125]}, 
   {RGBColor[1, 
     NCache[
      Rational[1, 3], 0.3333333333333333], 
     NCache[
      Rational[1, 3], 0.3333333333333333]], Opacity[0.4], 
    SphereBox[{-3.01337373109663, 10.010574688456543`, -1.4680471654439404`}, 
     1.125]}, 
   {RGBColor[1, 
     NCache[
      Rational[1, 3], 0.3333333333333333], 
     NCache[
      Rational[1, 3], 0.3333333333333333]], Opacity[0.4], 
    SphereBox[{1.0668761376361797`, 20.454069491986772`, 1.3989084350907284`},
      1.125]}, 
   {RGBColor[1, 
     NCache[
      Rational[1, 3], 0.3333333333333333], 
     NCache[
      Rational[1, 3], 0.3333333333333333]], Opacity[0.4], 
    SphereBox[{4.560647258705021, 17.843821693860495`, 0.8820568926302881}, 
     1.125]}, 
   {RGBColor[1, 
     NCache[
      Rational[1, 3], 0.3333333333333333], 
     NCache[
      Rational[1, 3], 0.3333333333333333]], Opacity[0.4], 
    SphereBox[{-5.245021820706192, 12.782311264184694`, 3.006942963012632}, 
     1.125]}, 
   {RGBColor[1, 
     NCache[
      Rational[1, 3], 0.3333333333333333], 
     NCache[
      Rational[1, 3], 0.3333333333333333]], Opacity[0.4], 
    SphereBox[{-5.714265767023774, 7.076822120196356, 2.148631801984414}, 
     1.125]}, 
   {RGBColor[1, 
     NCache[
      Rational[1, 3], 0.3333333333333333], 
     NCache[
      Rational[1, 3], 0.3333333333333333]], Opacity[0.4], 
    SphereBox[{-6.210470468765993, 2.0764644598510986`, 0.2772601082647682}, 
     1.125]}, 
   {RGBColor[1, 
     NCache[
      Rational[1, 3], 0.3333333333333333], 
     NCache[
      Rational[1, 3], 0.3333333333333333]], Opacity[0.4], 
    SphereBox[{-0.566278757025057, -0.003157401785744196, 2.355094866112145}, 
     1.125]}, 
   {RGBColor[1, 
     NCache[
      Rational[1, 3], 0.3333333333333333], 
     NCache[
      Rational[1, 3], 0.3333333333333333]], Opacity[0.4], 
    SphereBox[{1.9126348463882705`, 7.644995483975408, -0.06205470003817204}, 
     1.125]}, 
   {RGBColor[1, 
     NCache[
      Rational[1, 3], 0.3333333333333333], 
     NCache[
      Rational[1, 3], 0.3333333333333333]], Opacity[0.4], 
    SphereBox[{5.600508452932571, 3.0478330186939853`, -2.8082348669750443`}, 
     1.125]}, 
   {RGBColor[1, 
     NCache[
      Rational[1, 3], 0.3333333333333333], 
     NCache[
      Rational[1, 3], 0.3333333333333333]], Opacity[0.4], 
    SphereBox[{4.612928940433231, -1.706449098441856, -0.3405230420425619}, 
     1.125]}, 
   {RGBColor[1, 
     NCache[
      Rational[1, 3], 0.3333333333333333], 
     NCache[
      Rational[1, 3], 0.3333333333333333]], Opacity[0.4], 
    SphereBox[{3.5318308998767964`, -8.108420058768827, 1.3536404589860687`}, 
     1.125]}, 
   {RGBColor[1, 
     NCache[
      Rational[1, 3], 0.3333333333333333], 
     NCache[
      Rational[1, 3], 0.3333333333333333]], Opacity[0.4], 
    SphereBox[{-3.1289201453957842`, -9.63516154150201, -1.3125930157509829`},
      1.125]}, 
   {RGBColor[1, 
     NCache[
      Rational[1, 3], 0.3333333333333333], 
     NCache[
      Rational[1, 3], 0.3333333333333333]], Opacity[0.4], 
    SphereBox[{-2.309414448827892, -3.3321438921173954`, 2.0118734326530863`},
      1.125]}, 
   {RGBColor[1, 
     NCache[
      Rational[1, 3], 0.3333333333333333], 
     NCache[
      Rational[1, 3], 0.3333333333333333]], Opacity[0.4], 
    SphereBox[{-6.900668610103364, -6.7025218011915655`, 3.4361220564355257`},
      1.125]}, 
   {RGBColor[1, 
     NCache[
      Rational[1, 3], 0.3333333333333333], 
     NCache[
      Rational[1, 3], 0.3333333333333333]], Opacity[0.4], 
    SphereBox[{-5.376146954004887, -12.35560342485477, 2.743276896021647}, 
     1.125]}, 
   {RGBColor[1, 
     NCache[
      Rational[1, 3], 0.3333333333333333], 
     NCache[
      Rational[1, 3], 0.3333333333333333]], Opacity[0.4], 
    SphereBox[{-6.135085682008619, -17.52647573794737, 1.3444188937210568`}, 
     1.125]}, 
   {RGBColor[1, 
     NCache[
      Rational[1, 3], 0.3333333333333333], 
     NCache[
      Rational[1, 3], 0.3333333333333333]], Opacity[0.4], 
    SphereBox[{-0.9453946379045413, -20.38627958841066, 1.3305747624519806`}, 
     1.125]}, 
   {RGBColor[1, 
     NCache[
      Rational[1, 3], 0.3333333333333333], 
     NCache[
      Rational[1, 3], 0.3333333333333333]], Opacity[0.4], 
    SphereBox[{1.89426095324362, -12.040002727285845`, -0.4964441705562326}, 
     1.125]}, 
   {RGBColor[1, 
     NCache[
      Rational[1, 3], 0.3333333333333333], 
     NCache[
      Rational[1, 3], 0.3333333333333333]], Opacity[0.4], 
    SphereBox[{4.937915314890864, -16.73116590016154, -3.7591927824648943`}, 
     1.125]}, 
   {RGBColor[1, 
     NCache[
      Rational[1, 3], 0.3333333333333333], 
     NCache[
      Rational[1, 3], 0.3333333333333333]], Opacity[0.4], 
    SphereBox[{-3.5834783758328954`, 17.436984559118343`, 0.3231430122982511},
      1.125]}, 
   {RGBColor[1, 
     NCache[
      Rational[1, 3], 0.3333333333333333], 
     NCache[
      Rational[1, 3], 0.3333333333333333]], Opacity[0.4], 
    SphereBox[{4.5667717911991375`, 11.921119837360802`, 0.6025362529447371}, 
     1.125]}, 
   {RGBColor[1, 
     NCache[
      Rational[1, 3], 0.3333333333333333], 
     NCache[
      Rational[1, 3], 0.3333333333333333]], Opacity[0.4], 
    SphereBox[{-0.8514146988777641, 9.875439735995126, -2.0764645284691214`}, 
     1.125]}, 
   {RGBColor[1, 
     NCache[
      Rational[1, 3], 0.3333333333333333], 
     NCache[
      Rational[1, 3], 0.3333333333333333]], Opacity[0.4], 
    SphereBox[{-1.1524618505947597`, 20.679473784016686`, 
     1.1052559208335888`}, 1.125]}, 
   {RGBColor[1, 
     NCache[
      Rational[1, 3], 0.3333333333333333], 
     NCache[
      Rational[1, 3], 0.3333333333333333]], Opacity[0.4], 
    SphereBox[{4.2512775956519855`, 16.95006642707765, -1.1595091569209817`}, 
     1.125]}, 
   {RGBColor[1, 
     NCache[
      Rational[1, 3], 0.3333333333333333], 
     NCache[
      Rational[1, 3], 0.3333333333333333]], Opacity[0.4], 
    SphereBox[{-7.461365647501381, 12.729870573979506`, 2.622794534097891}, 
     1.125]}, 
   {RGBColor[1, 
     NCache[
      Rational[1, 3], 0.3333333333333333], 
     NCache[
      Rational[1, 3], 0.3333333333333333]], Opacity[0.4], 
    SphereBox[{-6.206033981651733, 8.056817337444024, 0.18387395500852532`}, 
     1.125]}, 
   {RGBColor[1, 
     NCache[
      Rational[1, 3], 0.3333333333333333], 
     NCache[
      Rational[1, 3], 0.3333333333333333]], Opacity[0.4], 
    SphereBox[{-4.922170194118721, 1.6677529804463838`, -1.5215554267322395`},
      1.125]}, 
   {RGBColor[1, 
     NCache[
      Rational[1, 3], 0.3333333333333333], 
     NCache[
      Rational[1, 3], 0.3333333333333333]], Opacity[0.4], 
    SphereBox[{1.5391943046377972`, 0.1824796104257056, 1.583718118790025}, 
     1.125]}, 
   {RGBColor[1, 
     NCache[
      Rational[1, 3], 0.3333333333333333], 
     NCache[
      Rational[1, 3], 0.3333333333333333]], Opacity[0.4], 
    SphereBox[{0.8705112235630224, 6.511558549644475, -1.702725011418273}, 
     1.125]}, 
   {RGBColor[1, 
     NCache[
      Rational[1, 3], 0.3333333333333333], 
     NCache[
      Rational[1, 3], 0.3333333333333333]], Opacity[0.4], 
    SphereBox[{3.3583583676340236`, 
     3.0722508324328257`, -2.9944249992805245`}, 1.125]}, 
   {RGBColor[1, 
     NCache[
      Rational[1, 3], 0.3333333333333333], 
     NCache[
      Rational[1, 3], 0.3333333333333333]], Opacity[0.4], 
    SphereBox[{
     4.0039526371294185`, -2.6813792470900832`, -2.2747306491186916`}, 
     1.125]}, 
   {RGBColor[1, 
     NCache[
      Rational[1, 3], 0.3333333333333333], 
     NCache[
      Rational[1, 3], 0.3333333333333333]], Opacity[0.4], 
    SphereBox[{4.6395330967577655`, -7.74860436348081, -0.571464345550421}, 
     1.125]}, 
   {RGBColor[1, 
     NCache[
      Rational[1, 3], 0.3333333333333333], 
     NCache[
      Rational[1, 3], 0.3333333333333333]], Opacity[0.4], 
    SphereBox[{-1.0606029002784867`, -9.817601765533508, \
-2.1793567310769815`}, 1.125]}, 
   {RGBColor[1, 
     NCache[
      Rational[1, 3], 0.3333333333333333], 
     NCache[
      Rational[1, 3], 0.3333333333333333]], Opacity[0.4], 
    SphereBox[{-3.4607763276058803`, -2.1873420404920116`, 
     0.4542166846460311}, 1.125]}, 
   {RGBColor[1, 
     NCache[
      Rational[1, 3], 0.3333333333333333], 
     NCache[
      Rational[1, 3], 0.3333333333333333]], Opacity[0.4], 
    SphereBox[{-4.6507268092599805`, -6.715009109459548, 3.4464157413855574`},
      1.125]}, 
   {RGBColor[1, 
     NCache[
      Rational[1, 3], 0.3333333333333333], 
     NCache[
      Rational[1, 3], 0.3333333333333333]], Opacity[0.4], 
    SphereBox[{-6.112788780239497, -11.455641589961473`, 0.8171596837063557}, 
     1.125]}, 
   {RGBColor[1, 
     NCache[
      Rational[1, 3], 0.3333333333333333], 
     NCache[
      Rational[1, 3], 0.3333333333333333]], Opacity[0.4], 
    SphereBox[{-5.2109727835440305`, -17.900877670036504`, \
-0.6725933878824294}, 1.125]}, 
   {RGBColor[1, 
     NCache[
      Rational[1, 3], 0.3333333333333333], 
     NCache[
      Rational[1, 3], 0.3333333333333333]], Opacity[0.4], 
    SphereBox[{1.2321798120773064`, -20.062700101095423`, 0.865853523239628}, 
     1.125]}, 
   {RGBColor[1, 
     NCache[
      Rational[1, 3], 0.3333333333333333], 
     NCache[
      Rational[1, 3], 0.3333333333333333]], Opacity[0.4], 
    SphereBox[{0.6170818725599547, -13.20036901341543, -1.9403498731136612`}, 
     1.125]}, 
   {RGBColor[1, 
     NCache[
      Rational[1, 3], 0.3333333333333333], 
     NCache[
      Rational[1, 3], 0.3333333333333333]], Opacity[0.4], 
    SphereBox[{2.724343981414462, -16.357342453377125`, -3.6080042172698867`},
      1.125]}, 
   {RGBColor[1., 0.75, 0.5], 
    TubeBox[{{-1.19997601, 12.260542288000002`, 0.315584242}, {
     1.4720965540000002`, 13.160051864000001`, -0.253223284}}, 0.15]}, 
   {RGBColor[1., 0.75, 0.5], 
    TubeBox[{{-3.06135612, 14.225857328, -0.687860264}, {-1.19997601, 
     12.260542288000002`, 0.315584242}}, 0.15]}, 
   {RGBColor[1., 0.75, 0.5], 
    TubeBox[{{1.846262302, 15.730079224, 0.978878068}, {1.4720965540000002`, 
     13.160051864000001`, -0.253223284}}, 0.15]}, 
   {RGBColor[1., 0.75, 0.5], 
    TubeBox[{{1.846262302, 15.730079224, 0.978878068}, {-0.196531504, 
     17.549885362, 0.098265752}}, 0.15]}, 
   {RGBColor[1., 0.75, 0.5], 
    TubeBox[{{-5.827914984, 13.47374638, -0.31369451600000003`}, {-3.06135612,
      14.225857328, -0.687860264}}, 0.15]}, 
   {RGBColor[1., 0.75, 0.5], 
    TubeBox[{{-3.54323625, 5.91484238, -0.262671914}, {-1.4399712120000001`, 
     7.723310162, 0.470541774}}, 0.15]}, 
   {RGBColor[1., 0.75, 0.5], 
    TubeBox[{{-3.050017764, 3.314579404, 0.852266426}, {-3.54323625, 
     5.91484238, -0.262671914}}, 0.15]}, 
   {RGBColor[1., 0.75, 0.5], 
    TubeBox[{{-0.438416432, 2.450974622, 0.013228082}, {-3.050017764, 
     3.314579404, 0.852266426}}, 0.15]}, 
   {RGBColor[1., 0.75, 0.5], 
    TubeBox[{{1.49288354, 4.40306158, 0.901399302}, {-0.438416432, 
     2.450974622, 0.013228082}}, 0.15]}, 
   {RGBColor[1., 0.75, 0.5], 
    TubeBox[{{4.221647884, 3.673627344, 0.2834589}, {1.49288354, 4.40306158, 
     0.901399302}}, 0.15]}, 
   {RGBColor[1., 0.75, 0.5], 
    TubeBox[{{2.010668464, -3.8852766560000003`, 
     0.268341092}, {-0.149288354, -2.076808874, -0.287238352}}, 0.15]}, 
   {RGBColor[1., 0.75, 0.5], 
    TubeBox[{{1.45508902, -6.47231155, -0.8503767}, {
     2.010668464, -3.8852766560000003`, 0.268341092}}, 0.15]}, 
   {RGBColor[1., 0.75, 0.5], 
    TubeBox[{{-1.084702724, -7.36048277, 0.166295888}, {
     1.45508902, -6.47231155, -0.8503767}}, 0.15]}, 
   {RGBColor[1., 0.75, 0.5], 
    TubeBox[{{-3.085922558, -5.415954716, -0.570697252}, {-1.084702724, \
-7.36048277, 0.166295888}}, 0.15]}, 
   {RGBColor[1., 0.75, 0.5], 
    TubeBox[{{-5.7579951220000005`, -6.164286212, 
     0.23243629799999999`}, {-3.085922558, -5.415954716, -0.570697252}}, 
     0.15]}, 
   {RGBColor[1., 0.75, 0.5], 
    TubeBox[{{-3.5621335100000002`, -13.666498432000001`, 
     0.12283219000000001`}, {-1.347374638, -11.882597088, 
     0.49132876000000003`}}, 0.15]}, 
   {RGBColor[1., 0.75, 0.5], 
    TubeBox[{{-2.953641738, -16.206290176, 
     1.3020212139999998`}, {-3.5621335100000002`, -13.666498432000001`, 
     0.12283219000000001`}}, 0.15]}, 
   {RGBColor[1., 0.75, 0.5], 
    TubeBox[{{-0.5102260200000001, -17.183278518, 
     0.153067806}, {-2.953641738, -16.206290176, 1.3020212139999998`}}, 
     0.15]}, 
   {RGBColor[1., 0.75, 0.5], 
    TubeBox[{{1.58736984, -15.253868271999998`, 
     0.60471232}, {-0.5102260200000001, -17.183278518, 0.153067806}}, 0.15]}, 
   {RGBColor[1., 0.75, 0.5], 
    TubeBox[{{4.130941036, -16.060781274, -0.489439034}, {
     1.58736984, -15.253868271999998`, 0.60471232}}, 0.15]}, 
   {RGBColor[1., 0.75, 0.5], 
    TubeBox[{{-2.609711606, 16.51620524, 0.6614040999999999}, {-3.06135612, 
     14.225857328, -0.687860264}}, 0.15]}, 
   {RGBColor[1., 0.75, 0.5], 
    TubeBox[{{-2.609711606, 16.51620524, 0.6614040999999999}, {-0.196531504, 
     17.549885362, 0.098265752}}, 0.15]}, 
   {RGBColor[1., 0.75, 0.5], 
    TubeBox[{{3.2824540620000002`, 11.481975175999999`, 0.863604782}, {
     1.4720965540000002`, 13.160051864000001`, -0.253223284}}, 0.15]}, 
   {RGBColor[1., 0.75, 0.5], 
    TubeBox[{{-1.7139814820000001`, 
     9.958856019999999, -0.999665054}, {-1.19997601, 12.260542288000002`, 
     0.315584242}}, 0.15]}, 
   {RGBColor[1., 0.75, 0.5], 
    TubeBox[{{-1.7139814820000001`, 
     9.958856019999999, -0.999665054}, {-1.4399712120000001`, 7.723310162, 
     0.470541774}}, 0.15]}, 
   {RGBColor[1., 0.75, 0.5], 
    TubeBox[{{-0.15684725800000002`, 19.828894918, 
     1.5476855939999998`}, {-0.196531504, 17.549885362, 0.098265752}}, 0.15]}, 
   {RGBColor[1., 0.75, 0.5], 
    TubeBox[{{4.257552678000001, 16.682501128, 0.196531504}, {1.846262302, 
     15.730079224, 0.978878068}}, 0.15]}, 
   {RGBColor[1., 0.75, 0.5], 
    TubeBox[{{-6.224757444, 12.360697766000001`, 2.127831476}, {-5.827914984, 
     13.47374638, -0.31369451600000003`}}, 0.15]}, 
   {RGBColor[1., 0.75, 0.5], 
    TubeBox[{{-5.854371147999999, 6.865374558, 
     0.7899054679999999}, {-3.54323625, 5.91484238, -0.262671914}}, 0.15]}, 
   {RGBColor[1., 0.75, 0.5], 
    TubeBox[{{-4.958641024, 1.664848606, -0.139839724}, {-3.050017764, 
     3.314579404, 0.852266426}}, 0.15]}, 
   {RGBColor[1., 0.75, 0.5], 
    TubeBox[{{0.20786986, 0.12283219000000001`, 1.216983544}, {-0.438416432, 
     2.450974622, 0.013228082}}, 0.15]}, 
   {RGBColor[1., 0.75, 0.5], 
    TubeBox[{{0.20786986, 0.12283219000000001`, 
     1.216983544}, {-0.149288354, -2.076808874, -0.287238352}}, 0.15]}, 
   {RGBColor[1., 0.75, 0.5], 
    TubeBox[{{0.91651711, 6.72742456, -0.338260954}, {-1.4399712120000001`, 
     7.723310162, 0.470541774}}, 0.15]}, 
   {RGBColor[1., 0.75, 0.5], 
    TubeBox[{{0.91651711, 6.72742456, -0.338260954}, {1.49288354, 4.40306158, 
     0.901399302}}, 0.15]}, 
   {RGBColor[1., 0.75, 0.5], 
    TubeBox[{{4.418179388, 2.641836948, -2.218538324}, {4.221647884, 
     3.673627344, 0.2834589}}, 0.15]}, 
   {RGBColor[1., 0.75, 0.5], 
    TubeBox[{{4.236765692, -2.898839684, -0.9297451919999999}, {
     2.010668464, -3.8852766560000003`, 0.268341092}}, 0.15]}, 
   {RGBColor[1., 0.75, 0.5], 
    TubeBox[{{3.42985269, -8.133380704, -0.024566438}, {
     1.45508902, -6.47231155, -0.8503767}}, 0.15]}, 
   {RGBColor[1., 0.75, 0.5], 
    TubeBox[{{-1.7820116179999999`, -9.690514928, -1.007223958}, \
{-1.084702724, -7.36048277, 0.166295888}}, 0.15]}, 
   {RGBColor[1., 0.75, 0.5], 
    TubeBox[{{-1.7820116179999999`, -9.690514928, -1.007223958}, \
{-1.347374638, -11.882597088, 0.49132876000000003`}}, 0.15]}, 
   {RGBColor[1., 0.75, 0.5], 
    TubeBox[{{-2.443415718, -3.101040366, 
     0.6557349219999999}, {-0.149288354, -2.076808874, -0.287238352}}, 0.15]}, 
   {RGBColor[1., 0.75, 0.5], 
    TubeBox[{{-2.443415718, -3.101040366, 
     0.6557349219999999}, {-3.085922558, -5.415954716, -0.570697252}}, 0.15]}, 
   {RGBColor[1., 0.75, 0.5], 
    TubeBox[{{-5.775002656, -7.141274554, 
     2.7646691380000004`}, {-5.7579951220000005`, -6.164286212, 
     0.23243629799999999`}}, 0.15]}, 
   {RGBColor[1., 0.75, 0.5], 
    TubeBox[{{-5.699413616, -12.625259406, 
     1.42674313}, {-3.5621335100000002`, -13.666498432000001`, 
     0.12283219000000001`}}, 0.15]}, 
   {RGBColor[1., 0.75, 0.5], 
    TubeBox[{{-4.9775382839999995`, -17.903264124, 
     0.68974999}, {-2.953641738, -16.206290176, 1.3020212139999998`}}, 0.15]}, 
   {RGBColor[1., 0.75, 0.5], 
    TubeBox[{{0.105824656, -19.494413416, 
     1.430522582}, {-0.5102260200000001, -17.183278518, 0.153067806}}, 0.15]}, 
   {RGBColor[1., 0.75, 0.5], 
    TubeBox[{{
     0.857935604, -12.948402552000001`, -0.602822594}, {-1.347374638, \
-11.882597088, 0.49132876000000003`}}, 0.15]}, 
   {RGBColor[1., 0.75, 0.5], 
    TubeBox[{{0.857935604, -12.948402552000001`, -0.602822594}, {
     1.58736984, -15.253868271999998`, 0.60471232}}, 0.15]}, 
   {RGBColor[1., 0.75, 0.5], 
    TubeBox[{{3.802128712, -16.986747014000002`, -3.01411297}, {
     4.130941036, -16.060781274, -0.489439034}}, 0.15]}, 
   {RGBColor[1., 0.75, 0.5], 
    TubeBox[{{1.780121892, 13.288553232, -2.326252706}, {1.4720965540000002`, 
     13.160051864000001`, -0.253223284}}, 0.15]}, 
   {RGBColor[1., 0.75, 0.5], 
    TubeBox[{{-1.46453765, 12.045113524, 2.382944486}, {-1.19997601, 
     12.260542288000002`, 0.315584242}}, 0.15]}, 
   {RGBColor[1., 0.75, 0.5], 
    TubeBox[{{-2.745771878, 14.543331296, -2.7401027}, {-3.06135612, 
     14.225857328, -0.687860264}}, 0.15]}, 
   {RGBColor[1., 0.75, 0.5], 
    TubeBox[{{-0.020786986, 17.992081246, -1.938858876}, {-0.196531504, 
     17.549885362, 0.098265752}}, 0.15]}, 
   {RGBColor[1., 0.75, 0.5], 
    TubeBox[{{1.791460248, 15.539216898000001`, 3.0689150240000003`}, {
     1.846262302, 15.730079224, 0.978878068}}, 0.15]}, 
   {RGBColor[1., 0.75, 0.5], 
    TubeBox[{{5.459418414, 15.403156626, 0.574476704}, {4.257552678000001, 
     16.682501128, 0.196531504}}, 0.15]}, 
   {RGBColor[1., 0.75, 0.5], 
    TubeBox[{{3.016002696, 9.862479994000001, 0.126611642}, {
     3.2824540620000002`, 11.481975175999999`, 0.863604782}}, 0.15]}, 
   {RGBColor[1., 0.75, 0.5], 
    TubeBox[{{-7.06757524, 15.151823068, -0.5121157460000001}, {-5.827914984, 
     13.47374638, -0.31369451600000003`}}, 0.15]}, 
   {RGBColor[1., 0.75, 0.5], 
    TubeBox[{{-6.419399222, 
     12.124482016, -1.8103575079999998`}, {-5.827914984, 
     13.47374638, -0.31369451600000003`}}, 0.15]}, 
   {RGBColor[1., 0.75, 0.5], 
    TubeBox[{{-6.147278678, 10.567347792, 1.925630794}, {-6.224757444, 
     12.360697766000001`, 2.127831476}}, 0.15]}, 
   {RGBColor[1., 0.75, 0.5], 
    TubeBox[{{-0.42518835, 19.432052457999998`, 
     3.2711157060000002`}, {-0.15684725800000002`, 19.828894918, 
     1.5476855939999998`}}, 0.15]}, 
   {RGBColor[1., 0.75, 0.5], 
    TubeBox[{{-1.447530116, 8.099365636, 2.528453388}, {-1.4399712120000001`, 
     7.723310162, 0.470541774}}, 0.15]}, 
   {RGBColor[1., 0.75, 0.5], 
    TubeBox[{{-3.692524604, 5.793899916, -2.350819144}, {-3.54323625, 
     5.91484238, -0.262671914}}, 0.15]}, 
   {RGBColor[1., 0.75, 0.5], 
    TubeBox[{{-3.16529105, 3.380719814, 2.949862286}, {-3.050017764, 
     3.314579404, 0.852266426}}, 0.15]}, 
   {RGBColor[1., 0.75, 0.5], 
    TubeBox[{{-0.362827392, 2.294127364, -2.076808874}, {-0.438416432, 
     2.450974622, 0.013228082}}, 0.15]}, 
   {RGBColor[1., 0.75, 0.5], 
    TubeBox[{{1.353043816, 4.663843768, 2.981987628}, {1.49288354, 4.40306158,
      0.901399302}}, 0.15]}, 
   {RGBColor[1., 0.75, 0.5], 
    TubeBox[{{5.47075677, 5.349814306, 0.432747254}, {4.221647884, 
     3.673627344, 0.2834589}}, 0.15]}, 
   {RGBColor[1., 0.75, 0.5], 
    TubeBox[{{4.934074586, 2.279009556, 1.68185614}, {4.221647884, 
     3.673627344, 0.2834589}}, 0.15]}, 
   {RGBColor[1., 0.75, 0.5], 
    TubeBox[{{-7.1015903080000005`, 5.610596494, 
     0.476210952}, {-5.854371147999999, 6.865374558, 0.7899054679999999}}, 
     0.15]}, 
   {RGBColor[1., 0.75, 0.5], 
    TubeBox[{{-4.603372536, 0.015117808, 0.489439034}, {-4.958641024, 
     1.664848606, -0.139839724}}, 0.15]}, 
   {RGBColor[1., 0.75, 0.5], 
    TubeBox[{{4.386054046, 0.844707522, -2.067360244}, {4.418179388, 
     2.641836948, -2.218538324}}, 0.15]}, 
   {RGBColor[1., 0.75, 0.5], 
    TubeBox[{{-0.279679448, -1.655399976, -2.3300321580000003`}, \
{-0.149288354, -2.076808874, -0.287238352}}, 0.15]}, 
   {RGBColor[1., 0.75, 0.5], 
    TubeBox[{{2.30546572, -4.03456501, 2.339480788}, {
     2.010668464, -3.8852766560000003`, 0.268341092}}, 0.15]}, 
   {RGBColor[1., 0.75, 0.5], 
    TubeBox[{{1.419184226, -6.374045798, -2.946082834}, {
     1.45508902, -6.47231155, -0.8503767}}, 0.15]}, 
   {RGBColor[1., 0.75, 0.5], 
    TubeBox[{{-1.0091136840000001`, -7.528668384, 
     2.252553392}, {-1.084702724, -7.36048277, 0.166295888}}, 0.15]}, 
   {RGBColor[1., 0.75, 0.5], 
    TubeBox[{{-3.08970201, -5.13060609, -2.653175304}, {-3.085922558, \
-5.415954716, -0.570697252}}, 0.15]}, 
   {RGBColor[1., 0.75, 0.5], 
    TubeBox[{{-7.03922935, -4.50699651, 
     0.130391094}, {-5.7579951220000005`, -6.164286212, 
     0.23243629799999999`}}, 0.15]}, 
   {RGBColor[1., 0.75, 0.5], 
    TubeBox[{{-6.540341686, -7.5966985199999995`, -1.0884821759999999`}, \
{-5.7579951220000005`, -6.164286212, 0.23243629799999999`}}, 0.15]}, 
   {RGBColor[1., 0.75, 0.5], 
    TubeBox[{{5.516110194, -4.136610214, -0.7086472500000001}, {
     4.236765692, -2.898839684, -0.9297451919999999}}, 0.15]}, 
   {RGBColor[1., 0.75, 0.5], 
    TubeBox[{{2.987656806, -9.785001228, -0.587704786}, {
     3.42985269, -8.133380704, -0.024566438}}, 0.15]}, 
   {RGBColor[1., 0.75, 0.5], 
    TubeBox[{{-5.784451286, -8.940293706, 
     2.647506126}, {-5.775002656, -7.141274554, 2.7646691380000004`}}, 0.15]}, 
   {RGBColor[1., 0.75, 0.5], 
    TubeBox[{{-1.056356834, -11.44229093, 
     2.515225306}, {-1.347374638, -11.882597088, 0.49132876000000003`}}, 
     0.15]}, 
   {RGBColor[1., 0.75, 0.5], 
    TubeBox[{{-3.9892115860000006`, -13.885706648, -1.9199616160000001`}, \
{-3.5621335100000002`, -13.666498432000001`, 0.12283219000000001`}}, 0.15]}, 
   {RGBColor[1., 0.75, 0.5], 
    TubeBox[{{-2.7646691380000004`, -16.021097028, 
     3.3844992659999997`}, {-2.953641738, -16.206290176, 
     1.3020212139999998`}}, 0.15]}, 
   {RGBColor[1., 0.75, 0.5], 
    TubeBox[{{-0.780456838, -17.521539472, -1.901064356}, \
{-0.5102260200000001, -17.183278518, 0.153067806}}, 0.15]}, 
   {RGBColor[1., 0.75, 0.5], 
    TubeBox[{{1.83303422, -14.91938677, 2.662623934}, {
     1.58736984, -15.253868271999998`, 0.60471232}}, 0.15]}, 
   {RGBColor[1., 0.75, 0.5], 
    TubeBox[{{5.472646496, -14.44695527, -0.48565958200000003`}, {
     4.130941036, -16.060781274, -0.489439034}}, 0.15]}, 
   {RGBColor[1., 0.75, 0.5], 
    TubeBox[{{4.983207462, -17.570672348, 0.68974999}, {
     4.130941036, -16.060781274, -0.489439034}}, 0.15]}, 
   {RGBColor[1., 0.75, 0.5], 
    TubeBox[{{-6.993875926, -13.866809388, 
     1.34170546}, {-5.699413616, -12.625259406, 1.42674313}}, 0.15]}, 
   {RGBColor[1., 0.75, 0.5], 
    TubeBox[{{-4.457863634, -19.532207936000002`, 
     1.230211626}, {-4.9775382839999995`, -17.903264124, 0.68974999}}, 0.15]}, 
   {RGBColor[1., 0.75, 0.5], 
    TubeBox[{{0.413849994, -19.097570956, 3.150173242}, {
     0.105824656, -19.494413416, 1.430522582}}, 0.15]}, 
   {RGBColor[1., 0.75, 0.5], 
    TubeBox[{{3.509221182, -18.751751098, -2.93852393}, {
     3.802128712, -16.986747014000002`, -3.01411297}}, 0.15]}},
  AspectRatio->Automatic,
  Boxed->False,
  SphericalRegion->True]], "Output",
 CellChangeTimes->{
  3.5758694984684396`*^9},ImageCache->GraphicsData["CompressedBitmap", "\<\
eJzsvHd4XGl23vlz94wkayTZsiV5pAmdczdzzmzmhEAAzATBDBIgco5VyJHI
kcg555wjERhAAiCIQII5s3t6WrPWau1d77m3Chz22OvH/6/r4eH9qgDU/e6J
73vu9909x50sT1847nTu5PH3tzkct7M8d9Lx/a22DvLRu/8G/o2lIu+jjP8b
zP333+Tffzun/Kd88r/H/3v8/99xinr4C262dJLr6EOZgy81IrX2crT1pT82
k9fTswO63w5TD3/GgwevGOqfYkRktFeke4qbHVN/rv74F7y4M0uRsw81zhpa
nTR0O2npd9QyoIiDlj57DT3y5TdiMris++YQ9fCXPHr0ksqyfjJiaimJrqXm
Yi2N4bU0h9TSFFhLvW8tl1P6fqb++t/QmZRGpYsPjS4auly0DLr4c905gJsu
AYyLjMn7URc/RmQGV+WyBmy8+N3U3T7dSYPVw2+4MjBOWlwNBfG11MbX0xbX
QF9cI4PxjQwnNHIloZ5BmVCfTKTTp4rv77xU//LVnbvUuHirZ++RM11xCeSm
azC33UKYdg/hrociwdxxD2LKTZmRllEnX67YeKKfQpB6eI+nj16QGV9JUWIj
9YntdCX2MJTSx0j6ZcayL3M7t1+kh4nsDm6mN3NNpjQQWMH3d59T5+xJk0yh
0zWAYTn9qGsok+5h3PUM54HII69wHos89ArjnqdMzSOQW25+jDv58LypnV7d
VLyVwztKhnxX/eBX6LKl6i48ffiUnLhSChJbqU3qpzP5CsNpNxjNHWWyaJw7
pePcKx/lfsUNZsuuMl0ywHheF6Mp9XR7J9Ak/tAqFulzCWbENYzbHhEywUge
el/kicg7PPe5KK711CeCR97h3PEKZcIjiFuuWsacPPVz9FIPP/vJzOT1jjr4
+CcfN5U0USgGLE8cojl5lMvpk3SF9TJZOsts9X0e1t3nScM9njbe4VHDFLO1
49yuuMZYQa+4UiQtTn4y4SAuy2Rvukcw7XmRB95RPPWN4oVvNK800bzWyFhz
kce+kcz6hDPpHcItjwCZtGi2pbXnfzppnZY/evNxflQxRfF9VCaO0XZplnTb
ehoOJTEbUsyDvJs8a33Jy/YXvOx4xtP2x9xvvcdU4xTjldfp1l6izdmfdpcQ
BtzCuelxkRnvaB76xPBMEyOTjeE7bQzfi7zSRvNUe5H7mkimfEK55SVadtfw
sq2dnj91hZ+9Ncln9x9TGFVPUew1qhLv0JH1lPrYGSo0Lcym1fMyLov7OVeZ
yBzjdtZNZmtmmaycYqb9IeMNE/QEp9Dl40+HSygDotFRzyh1ko98Y3muieW1
XxzfifzOTxnHyCSjZZIXmfYN55Z3MLc8/UQBHfyvq3W0d4SiyA6KY8aoTnlI
Z/5rrlT8QfxhhurEfh6V9fDPRVW8ji9lNn+aqbwJRnNuciV9kGvFV+m5mE13
cCRtLmEy40huekUzLSp9KLN9ro3jlV883yviH8dr/1ie+smMRbXTmghu+Ygv
ePv/9zP+sz+d8U+9+EP1o6KwboqiblOV9oSmzGc0RIn+Emdojx+nI3eER40D
/GtzM/9SUsvdohluF9xiJOcKg5e66IyQWUfGiveG0S+zvuEVJYaO4YEmTnQa
zwuZ8Wt/RfSz9n9r1r4yax8/XnR0/He+oGr2XXV6H1AUpExwkor0ZzIeoSF6
nL7k29zInGIyb4bGvCvMdg7xXy938F/rinhQdJnRvOsMZ/bQHVtMW+hFWsQR
emWC12SCt2WCs6LWxzLBZ366Sb6UCb58S61TGnEETTDjPlqetLfNqTVQPfyc
Qk0bRRG31QkWBl2lPvoGuun+kumsK/Rn9TLWO8T/dUOySX8lT4obuCI5tTe5
WM2h1Yft6HSLYFj8ckz8clr88r5Y+ZH45BORp37KVGJ4JH45q41kUhvGuCaI
6z6+vW/P5H3G2u+R6zuknjs3YJCaqKt0J41wNeMmNzOvqp/PSkYfLeqnv3OA
f56QMnijgad56fTGXKLs2HmKNuyjVXJPv0ck10VBt0RB06KguyL3tMrMYuQY
zV1RzKQ2gjFtCCMafx51dL49G118/Iry8Mu0xg/Rn3aFq5nD6qdTeb1MFw1J
/r5CT/sgzyYGuddYw5ivlpEVa8lfa0alKKVdMsplmcY1ydOjPtFMSPqblPQ3
JenvtgTouDjOiDaUYVHGeGb2XG3TaeOX6qnKrALUY6JbG3mBnVRH9dCW1Eef
1DfldT1vgJH8fq4X9jFcJK51qYasyGQ0mzZx8LOP2Pf1Nxh8+iUX1u0gwuQE
PVI+Br0iueod+Y4YIFLywFXxjkFNGL3iISOZot0/FljVfcUXLp5rJtGjldzg
dnSf/T0dlzrpyeykN6eT7vwO8lJL8ZQKeXT5boIXLcJ7+VccX7iAY998xbFl
qzkybxlH5y3lookFHVJdu6SydknBavcJo8EnmJnOnjlQ89a5f0mFbTzJtpVE
iwZUD41spyK+napUkfR2QiVqrU/ZYr56DbvfX4LX10uJXvUVZxcvFJmHg5kh
1ru2YykasVixEuv1WykQkNGWls94R+/g23jiz2i081TP0uocSp+EWJt7KlXe
hbrJ/CWFYdXYmdtyaPVaji9dwmmRfZ8txfqTlaStmYfVssWi6hXv4LLfWFTr
vM8IRzm/g4kBcZ7uw2+f6x+509hJs30ALXKuHsnrc+F8Tw3nOC4L3Dm2dJF6
onNLl+O+YjWeK1dz6INVJK1aQui6b3DauQn3Q3txP7gXt4PGuB4wkrMa4mSy
h5mxUYZ+ekqBpDTZaml2CqZDvHNIirMSsnckZB9IcPhu2yGnXMKJpUtxFk92
X7kWL7nWo5+tIWzZShI3zsPNZDeeR0zxPGwiIqc+JKc9aCSXbECSr/vcKZ3U
w7tcbep4k7T/vfr/3zIYm0WzQ5Au00qAjMiVT0iAzEi5Pbp4EceWLOXk0mXY
L1+D++p1uK1ZI/6zCo+FElxbFuB11Ez80PuoqVjM+6hM44hM47CxaMBQrn43
M+M39Xa1Uw//lhstHRI3mZQ5CkZ31NDooKFJ4HS9nYBbHVYXWKxT0qupe9TZ
BNAoSlJCeEDg1nVBMEkHLGR2izGX2R2X2Z1ZvgK7VauxWr2CU2KfM1+tI2b7
DtzNrfG0sMHbXOSIDV4HL+BxVJmhkSjKgJbSfPTTs1EPf8VzQf4dyRlUOPvS
LOi/21nLZQFSQ45+DDsqR3mvR/8jMRl/o88Qr6bvU20XJFk4lFaZaZ/oMmb/
MQ4vWsyRxUuxkFmdWrGCs6tWYLlmBVZ7DmN5QIv2mB/hp/yJOB1C9IkQYo+F
EHM4hIv7Qgje64aX2RFaygr0k7ygHv6d0JO7lDl7UeciOrTyoPa4M60WLnRZ
uNJzzJUJwdETrv4C1/24IfTlihCH/gtefD91l79Wv+M/8UJm3B2fT4VTKPUu
4YSYmbN/4WIOLlrKEZmthcz2hMzW9pAtbueC8T0VRMxxf3JO+ZJuGUL22RBy
z4jIzLNPhpBuHkyqWRBVQZn8yXQrpTTlnLAnxeAMhQaW1Ow5T4uBNZ0i3Xus
6dltzZCZAxMXfJh28+eWsIybAu2n4tPlr5Xv+Aeez9xnrKUPj71HMJ6/CJOF
SzET05/esQ2XMxq8rUVhF8KIPh9OyvEwys+GUXohmjK7WCodFImiwj6SUptQ
Ci2DqXe4xEhql54WWuvDYaSynhiD46QanqHY8DwNhjJLowsM7LXhqoktIyI3
9tpy3diWKwYXuGJmJ2RE4LKbgvG9eSpkRBdaf8/k6ChnjAw5a7KXc/tMcT3l
hI91MIE2UcTaJJBuk0LGqSTqLiQL/0ql3jOTJq90mrzTaPRKod4jgSrnKAYi
S7gaUcmDjjE9wHqX+/devgnlbt0lWKmH/0BVSRuxe8xJMTpDvtF5ao1t6Npr
Lwp25OZ+JyYOOjN1yInpQ45MHbRnfL8d101suHLAXiiNgvw13HTw+Fs9gzpt
YMDZvcbYHTmD73l/Ai7EEGmTSqptNnn2+WSdTSPPPIT6C1G0+ZfQEVhMZ1Ah
7YF5tPpnUa9JZTy3iyvxNTS7pZHiV0xmRC35YbWCukT8ainwruFW2xSduis5
oYfFT2ZmGWnqRP9694+16D+SYudPssEpMoysKTWyp9nEmf59btw45MHto57c
OebJPQsPHli4c18iYuaoE+OH7blqJsY8aCt0wU/czIsnza16g/2G6oJCThsZ
433aA+35i+JO6cTZFJBpX0qxayUFDkXknoyjwTZGeFgdPXIZfZHV9ERW0h5e
Sk9CAz1JHTSHVdLmm0mdfw510bW0RNbSJsS7I7SWdrnkZrnkRo8aJhtv0667
5GN6Ev1Mss9ccqyT5Ki8WpQEaacbzzR0vsHbWTEF6viS+GmOoQOVe11p3+/J
0GEfhnbbMH3AlQcntTw+peHpaV+enPJm9oSoRxLFjSP2DJqd54adl6jClxet
bbrE8M4bGK/Dnf9EiFUBCTaVZLvUUerdRF1AK/U+TQyGNDJ0sYnLsW1cjmul
N66J7oQW+tIG6UrppSOuWbRUQpdvPD1xjQzIz4fjlVaEYNb4eoZi6+gXzfQG
1HAtubtNpwhzffXvSEr/SQoekBSszuyq5GAdIOvT66QrR0wTV62OM/bYidO7
Um3mTechDX1mHvSvP839XSd5fCaIZ5aBPLcM4KmlH/fP+DJ12oubx124ctiG
ASkStzy1Cov8qz8htm/TnLHLo4TZpqC1zFI/S3BoINuznTK/bupDe2kI7GYg
vItrsZ0MCD4cTO6lX2Qo6wYDwsz6Mq/QnSKYPaae/rBsBuPquJneJ7CzjwnB
9xNZ3YxntHPjkq5HciWsSsbttOpmcVQ9/Dk9yenUuvgIX9YwIGn+uos/Yy5K
2g9kDrBNyOejojwVrG09IvSiUB1n7nEif68XNVKAuo4GcPVEMF0bzzG721K8
RMMLq1CREJ5ZBfHgfADTlhpGT3ly5Zgj/QfPCt9WaKxOSz9Xv/E92gpbhU11
E26ns0SCcxvZvj2UBg1SH3GFxvBhymxKeOyfx1haNzeF7k1WPeJ68R2GC6cZ
yBP2lSEUJ6WDASGzV5OqmSy4yUzRDe6WjIhc407xMFMF/YwJ0B1NbeR6ZBm/
v/+cFp1qjujZZ19SmqqaDikjQ6KSm6KS225KEytEndoDjxCRYHV8112H6mt2
naB8u6U6ztrjSr6JL9WHAuiSenz1ZBhtmy4wLeXq2XFPnl+I5MWFCJ5JuXko
CX1a0uLoWR+GT7jQb27FVSs7XrS3/zGe9IxeeeUH5+sZ3a9I9xsmQzNAcchV
aqNuiJqukeHSxIPSfh5WDvO86z8zXvaYGyJXiu8xnH9b9aCBrH4G02qFqLYy
Wz7Dg6oZHtVMi0zyoPoWdytvcLv0CmNCjsYu1TFT1jqnosN6x77d0kaDs7fA
PkEzLoHccA1m0j2UWQ+5JKEEyuuZUILn3mHq+KGXTl2NhpbU7bF6o6bUXQ6k
bLPk4jIDUlcakrl0NyVLd1K12oDOnceZPqnhiW0kD6TqTlsFclM8afiUG/0n
LnDVxo4fZ+/yV/8fPYWK4kKc9zvM0b9M7QC1cRP05z1iMO8+sY5VFOS0czO/
lcmUAbnaOwxlzjBUeI8rRXe4WjzBQMEwQzmNjOZ387DuCU8an/Cs6bHIQx43
3eNewwxTtROMl1+TvxenulTK7x89ofltbf1bycTuNCvtSRelPRnCuNqajBCt
RPJMmNtLn4vMGfqFbzhPhEiNnHXRf/YfaDCwJXDeTjznbUG7eCdRy/ao2spa
vofCZTupXLmTmvUm1K7fS8fOY4ye8GLSOogb57QMnnWn75QNl21t/1pf/OcU
VVlcoD/F+8Jtzqsj/5Pl6jHeo5ssv36KQxXuPkRVWB9l4d3k5rVzVbRxp2RM
yvIkQ2ljDKZIZkq6yrX8m1zOHxANNjFS1Ce18Xuet30vof6alx0vedL+nPtt
j5lummW89hZjZYOM5dfz/PqIXmGH9O71auaOYHYvyd7+dLsEcdUtjAnhu/e8
LvLUJ4qXvlF8J9T7dyI/aKN4LRT8mVDwKSctrQKtGowdSV+xg4AvVwuL3Ix2
4XYixLWSRWnJy3dxcfEWUpdvoXS9MVUb9lK53oiytQYMWbhx9byk/XNudJ6x
ZrqqUscl5qxz2tSAuZdOkX9BrEcnmf49FCkqCuqgNXqAyznXaL3Uw2jd9Nyf
9uUoSWrmrT/9K2b8KnmY2Mejkju87vkDr3p+5FnPDzzoes1M+xNuNc0wVjPC
WHk7L8bG/0RL04I9mqXQtzgF0OMSyjX3cG4LDbwvGnrmq/Rmo0U7MfzeT5Fo
vvOL4rnfRR6JptqM7cmQIEtYvI7ApWtxmL8Fn/nbCFqyk5gVe4hZtYfQJVtI
XLGFzPUSlBuMKF5vSOG6PeSs3UmvlQ+t511o9/ThyeSYnhX8uaBHHag4LVz5
nJmROrYzM8bPOE7va78m2r2VNL92cvxbqAhppz2ph+70HvoLrqm/cV1y0vWK
++q4u/QRl6se6sZF7erxkVSz71Mb+ENiGT9G5PBdci0v8vu4K/nrTvcLJtoE
6jeOM1bby7WC7J9o7RfMCMRuFhLW4hREr2sY14Vp3RbWel9Yq9IoVl4/+MXy
o3+s3k5/xyNtJHU7T5O0dBNJSzaQsGgFJ1ftxHnRdnwW7iB42S4iVu5Gu3QL
F1duIUM0lLPegOz1e0hfv5OkddtJ3m5Ms68EdlvbXCDeFlp/ynQ3x3Zv0yvn
A1VZjvv34mHsQMDBHPXTCJd6ErwaCLfPozqqjaakdupEmlJ1Chkquc1gqc61
Bqpm6au9S2/dLfV9b+kUHVIrB4uHJLkP8WN9P/+lvpP/p7qB/7usiCddt5no
fMRY223GmvqZ6emYS1+G+sT6VHD0aHMnt0QmBE/fEnk+Pftz9cdf6hTqoCg0
mB4J1GtCsm8Lyb7vG8MzbaxOof5xqkJ/DIjle/8YXogrKq/sNduJW7qe+GXr
SFyyinOfLCXvvSXkfbAK/wXb8BPFBi/dLhlvK/Grd5Agrhi3fhdR60Xp67bi
uf5bbvZdpzw7Xc335nsNOCFyytiA0yKnjAwI9/RQuJSuj/8fVYgc5eSM0cJ5
mC5cwIGFizAXln188WJOLFmM7fbN+JpEEHCilMAL5UTYl5PlL9hV6ftHN1KR
0Eh1UiOtuT1vEnRn+SQd1ZO0Si1oqblOX43OGA+6/0+e9P8rEx2vRMn3mWgf
Fw8d4ofhfh733+FWz2PGuiZF+ZdFo5N6ve9RD3/JzZYOCoXGVjsJjhUW3iFe
2y3SZa+hTcBrvdDd76Zn39WbabpR7GCvs0O3WzhXxQ4T3lE/00fdDwFx/F5R
f4Co3z9a/TT32x1EL11H3LK1BK1Yh/dvN9L7zXZ6dlqQvuUYzt+ewnW1Oe4r
DNGu2IRW/Np77XZcvt2GnRDn8zs2Y7JmGUcMd3DKxABLE0POi1jvNXyHC3sN
+YYLxoZYGRoQ7eHBlDBaZa7tAs7LnH3Yu+Br9okJDokJjokJTi1ZwtmlSzm3
fClWIjaSqj32ZOF5uJBwh3JS/Cu5FFxJVng1edHVFOlRe23GZRoLRtRxdeUY
lVWj1Jbf4GbTj+pns5JaH/X/gaeDf+D58B94MfzPPB3+PQ8Gf2Dm8mtu9YsZ
+m4z2tHLk+lbc/6/W6/YTpmucou1VUp4n8gVZ4HLzn7vcFMGP2NEqMWwcKx+
O/V+7rv6PNNkq5E8E0SH5JghMcWYt87lH+tDQrn3oNw1+V5sovOjrQycvECW
2CRp3WY1JDy+NcJxlyvBe30oEx5efsiVpMMaog4GErnXn/A9WnwFdDsa78bO
aCfWBtsxW/IlO+d/whkpVedNDbkgYmdqhL2IoyqGOIjYi53sJFRsxDjlgaHU
yBVmnjrP/gXzxCALMV+4mJOLl2K5bBlWK5Zhs3IZtquWYSdy4ps9aMziCLSu
IMClnEjvCuICxECh5aRd1CGIvNRminOv6MK85KYuGVW94lrjd+p4uvt33Ov/
gYcDP/B46Hc8Gf5ejt9xf/AV0wPPGR94yFj/GNc7OvTgc5d6+BvhyHP4XCP4
3J8betoy7RbIHbcgkUBm3PyZdFXoi4ZrDr6Mx6a/ozen0iRsdgikTUrmZQEV
NwRUTPlGz9Xp55L7lVsur0R+pv/s0rdb35T9uZhvWneAjsPnqbTyp/K0hrxj
WnIO+5J2QGxj6IyN2GPfsq8xnPcRe755HyuphjYi9kqC32cs0NRY6S2/g6sM
fonLPiOclKK5aR3m874h55Q1kSYHOLRgAUcXKulpKWeWLuP8iuViihXYr16B
w5oVHJu3Eu0uI9KsD+Bl7ovT2TI8nCrwE5OEiEkixCSRF8vmri4p9QZ5aTPU
5T/SX8lfMdL6gltdL5nqfcndyy+5N6DIC2bFCjODT5gYesjo4B1G+q8zdnVY
b42d+j7gZIsUIxdvUaewJdcARoUKlNlcpNYmiqtOETz2DOWJZ4gcg4U1iYXc
lQadhpuO3jxq0PUvXk3fo8HWX21mK6nrisTLuMSLboY/46EgmMciTwTFPPaL
0pXlTQSZnsX/mIf67uLpCF0uWH2W6wetKL8QqHY9upxDqDjnS/5JH/JOBBGy
4yyG8z/CeNFHGMx7X0xijL2Yw0lqrssBpfWua8F76I/uB41xO2DEySXzOLlo
Hh4bNxGz9zBH5kvOWrhESsYyzi5bgfXKlditXik2Wcnhb5bhsdWA5PMH8dm1
DnfDrfha7MP9pBXO57W42mhwl2zhZu9DVl4ddcJd8/1uUhg/TXnWXZpK7tNd
/ZDBRuG37UqJeMyElIrbfY+Z7H/EbQmN8cF7jAzd4crgBL1dl+fo/U59d77O
yZMW0XKufTih1nEkX0gg1zqRovOJlJyR4/FEGk/FCWKO5Kl3KPeFoE15+Kvd
uxsOnu/omctkQzf19kHCXpT7lFJThLGM+egS2YzAyzsCwHVB8ktitxoReMAB
zbkIIi11QCpydzDF61y5e/AChWcDqbILoNMjiCH/eGrsxVEkeHLNPQjeZo7x
4o/Zt/Ib7PbtxemACS4HTXA/ZIrHIeUOhek7eB02Ebih3Kiw37mRs8sXSECI
LJpPsulRjs5fLAZZKoZajuXyFVxYJQZZs4r9Xy3BYaPAhjMHiTy9E6f1K3Bc
txSf4/vwsTDD65icwlxOZW6M6xFDmssL1ItvSL5NTuht8pOnqMidprHsDp0C
rPqFvQy3znKtY5br3SJ9d7l2WXjj4DR9A1N09t7gu+9/0Ntjh76rOtXcRqmA
pHj7SOLsE8hzSKDaPpFmu0Q6RXpsRWwS6RD7NJ5IpN0ihoc+ocx4BQnz8WNc
Iuxpc9s7c92bmFyqHUJodAmj2z2CQWGT170juSls8h3GfCP5J25qwrmmCZMo
cFVt4XU8AM3xGKJPppB+LkP97NLmAKbNvRmy8qbCLpx6+a6eoEQavBKocYuh
xDqAgqOOotQFWCz8Ggexi/NBU9wOi9KOmOJ1xPRd9e7NP6p3b86vXMi5lYtE
/4s4t3Qhfpu3svvTz9j60ces//B9Nn/8ATs++4idn36J5eqdRJ4Um5wxxHHD
KhwVu6yXwDlggJfYxdPCFPdjJrgdk1x51JCZW6P69vXfUJc6TXr4JNkpU5Tk
TlErILe5WoBuwxTdLVP0dkzR0yO26JuiRaSua5zX3//Y9lObtMWnE2YbSYJj
guCsFOqd0ulyyWLQPZvrXtmizExGfdKlQKQy7JJEz4VEes9Ec9cnRBiDsoJI
w3RS6rv6ttF4Qw+l9iFUO4fRLEmsU2pLr1cE/d4iPuH0CKtvlT8NO3BM1b2H
+UUCjqcRfzafbLti9bO4nVHcPBEhmCKMGudYsUc0jdoUGgKzqfLLoFhsUmTt
g5eAL991K4mSohzwzTz8N6/Hy0DAmfm+d/AxNxN7+Mr/PuamWK9azPlVS8Qu
S6Sef4Px5+/x7QcfsP63v2Wj2GTLJx+w/bPPMV8q7M/8IP7Hd2Py1cecXy1x
s0GKzIbluBhtEXuY4SE2cbOQ0BSbOB410K+N+QVP7v2B6pKHpEisZOdMUVwi
MSP2qBZ71Ig9qtqnKG2fpP3KLB0/NUKSpP04h0RynbKpdS6iy6OMK76VjAVW
MRlaxZ3wCu6GlzITWsiEaOGaTyoDEjzdZ8KEZQRxy0PLDVf3n+uNMNrcS2ty
AUWuoVS4h1Ep1afMU9e3czx6GLtDJ9Sx+5Ek9ZgoCCbHpVYdJ1lcou9UMj+I
weq9L9Hif4m2iDK6EpuojyihSJNCgSTCbCt7QVEHCNxnRqwgqRTD7aRtXUuy
aDp8/XKCtqx/B99jZkKKL4gSrVZLUlo2H4PPfyPB8Cv2S3Vf/xtR/gfv8+3H
n2A6fxM+Bw6gObaHvV9/LE5uIv//hQTIYuw2LMNZlO8uyncV5Ttb7MXxmBFN
lYV/pk8FDx/9gcFrrylrekBMwSRxQgZHpl9zbeo1XTpdf/s/6sz/B+LsYkhz
zBMoXkmbRz2Dfs2MhrYyfbGd+7FtPI5v5XFCEw/j67gTXcl4eCFXtelcto9i
xDVIbePedPf4hR5Xhfq4vwFJ/qeS8DmaTcjpUl0N/4gKv07SrUuoPZPLa00y
/cFZdFysoiOuhZa4RqpE00VBWeR7R1Pu7Yf9AVNOmO7D6fABnA4dJNT8AEmS
Y7IO7iHPeDO5W1eQuGo+gasWYL1YcNaX74n8VtT8ayESS9n+wUese+9Dtn+x
Hqe9+wi+cIDDq+dhpKrY+JuPRHfGX3/ImdULcRAVu4h6HcW3HUTFtuaGXNfp
bqP+ZpLyequ7+K6eTeZezNchXIcqqtxa6fLr5lp4P5MxA4wH1vM4vJFXwhxf
pHbxJK2L2dRWJkSf1yOKxc2TuOaurJESPuHhLoxPh6jUtoDJbhXBOx+0RmOe
SsCpMkIsq4h3aCTbu1MQex8NYf3kWRbzUJvL/fhKepP6aE/spDG+mcroKgpD
8ygNTac8IBi7g2Y4HjJjjg16Hj/I26+iQ9spMlpL9rcL8V/+OTZfvS9UbBl7
P/2Eb4WQW+80kcJ+kIOrF7D7K4FOX3+EoSLfKMcPMVvwCXYHdov2pArs38UJ
g40yhzi1VzDe2Hn1f0GZv6Tgoi4Qcx2bqfHpoztkmJGYETF5Ek+1GbyKLOa7
pC5eC997mjvM/SxRdFoHI/G1DIfm0CcQs87KhiyND0HeHhwzNsDCyIAQTw9q
Cgt/9nYnT1GuyfqNnNl6XA8zlxBl10SiSyuZ3h2UBHZRG9ZDrksV49pCXiYW
0J3SS1uKIKLEVsqFf5bHVlIek0NZaAi2omCHw/twObJPl92P7VeP3sf3C9TY
j735fnxP6ZSecHY/Waf2km++kzyTdWSsX82R336A/6ZvSXI+i4lAm22ffczW
Lz5ix5cfsUsUvkuUvOvrD9j59fuY71jHvjWLRRaSfeYCbY5aOgRctNsL5bT1
ZTgmg9dTs0N/Gv06Pa/kprooULcIJ8+lk1r/YXoiRxlJvE25bzd38jv4sTCf
79M6eV0wxtOiMe4XXGcq+zI3hNYNRxdT4ebDvsXzOLFrm0r7rXS0H2uF7xsJ
jxFaGSmc/+1bX+byu8rLeOU69agxTcH/RJk6TvfqoMC/k8KAVqojlXE9PZpi
/jk5g47UTtovddIi0pDcQkVSDeXx2RSEBXDhgBn2oncn0buruU7nnhb7xaZe
x/cr/+0Tb1dee1d8w4nta3HYv0MiyAmDpZux3CqkyfggrrsMOL7aBLP5GzGZ
v4FNn3/I5i8/ZMtXcpRI2Ci5ZZPwOJsdW+hRFlkL5b8icl0RRxkry7pF+X02
PvwwPTv4P/X2d/7ohn9HScwtivyuUBt0ne7oCa6n3GE66x7FyT08EHb0nysb
eFk2yxNBOPeLx5jMH2YwpYkS/2RKPH0xX70Ma6lBNgqjNzV8V6X2H6rk3la8
32qPrl998+pV9ixfqY73rdqgHn0NEvG3KFHHqV4t5Ae0UR3eSe+lfpoTZBxY
yQ/FFcwWV3M5t4eurC6a0lspSyqnNDGDIAcbrCRJ20pacRDtO5uLBfRe7yEW
8FD0r7x+w96ln2G0+FNx4PcwXi44xPgsZw/5oDX0oHKvNaknfEg87EfsPj8C
ttqh3WTHqWVG7F/6lZpljBZ+zqml33DZxY9rwvZHXQK5LRVoUlj/lHDO2+pa
Fa3AJg1X7bz5/fQsA28b4ed/agT1OJcLCoN63yTCuUVxVy5NcTtnhmvZt+io
6ud3Xc38WFrJ4/IZ7pbeYqLwKiVhKRQFBlHo48q5Pdt1vVs9tVdeCrN33W8k
3N5Q5fZzydd05UYOrd6k+51tWvwO6+6rxrnVkuHTQG1MO+2pHbQktVGZ0c3D
octcLWigK7OVtswW6jMbaCioJzcukdMme7HcLzBP8o/dEbHEUZ0l1O8Wzulm
sU93Sb/FUKxgIHJwy06dkU5oCbDQ4PXlYdrX7aPjyDnKz2opUDoZR7VkHNSS
aqIl9FtL7JZvwFLQ/dnl8xhxEU7iqizwD2VW5L5HqHpP9L660F+5Vyp8xdmX
EXsviYa7l/+HIOSt+1B/VPt/pC3nsTq6fGmc0ZwJZgonqUrrZ7S7l3+5XMNs
RiPTkooaEqskhSVJjQslL9BD7ao4KR0VPYXXfadC4t+V/3XmcN5v+MbkxsvX
q6Mja7bpZ7JcQEsxIbblZPjVURHbSGVMPbXxouqkBppS6mlKrqUhtYa6rFrK
sippqGomSmrrSeO9nDYzwVKCQXnZihnsj+pM4HRMzCFQUHk5Wuh+bmFwkPMH
bNVxyCl/4k8GiQ2O07r2OD0WztQ6RdHqGELVWT/KRApOij0O+ZK+xwuXNZK1
ViwQ7hEqug7nvqeysyGCp17h6g3XJ17KDVjhjcrGAbHDLWcfZhIuza3H3Kwc
5u6ItqbfoChinIp03f2VppRRWuMGGc66yVjBKFMlY9SVSR661s2/1pYykSR5
JyKDvItJFERfJMTuLI7754i6ibqMUOHoysv7yF4Z6+zgftDozZKCPQt0Sejw
2p2c/Ha3Oj6+RELGOBc/q3KStJWkSeLJCaukKKqK0tgqyhMq1aRTnFxCfnoZ
meklNLfosO3tsTFO7N3LKTNTzh4wnTOvYoKfRvS7nDT508/+kdRT0UTt0tCw
3pb7R05T7Z5GpzZV+FocTbbhYopIys4HUnJcQ7KBJWdXLmBKeN19z0geC99W
dmwod29f+SjjCB4Lz7vrLfTQM1Bd0zXu7PkT1UsUvu31yrE5qZKoE1UkOreR
79+lft6ZOEBPUi+9CZ1cybpMk6TjoZo+HlV2MpQqSDMuh9LIBHJDAnBZtUZQ
oolKyT0Pq5RcoLfO05Sjj2Bm76N7dUb/GftW7GDXwpXsnLeQbV99rlPELwSi
lKG1LyFIKFicXzkpIWWkR5aREVtKWnwJyQlFxCQWExAQrocRX6i6D/bxwUJ8
/5SkoLMHTTl3WHfm8/oZnJGz+wvFU15ex3ULAxKFHGRaphJvEk75Zk8enXCk
xjGF1oACYQU5QpyTaHRLoNopmgob4W8nvGi11Kj7Tx56R/HMJ4pX+jvA34u8
0lzkiW8E94RgT3oF6/afuHnzrKUV/RroLX+sub+kUyBFlYsvqceySbzQRJZ3
q87/L7bSk9DOgOD0K9m9DEjq7U5u5UpGK0Wp5WQl5ZEZl0LMufNEbtxI1PJl
hK5eScAmId+GO1TKp/qW7zFT/kH9SnvDbZzasEEd7/lqPivf+4i1wvm+/fwz
QXdfsG/BtwQcOUDQ8V1YbDnDuZM5ONjmovUpITi4jGBhvn5CPd3F35xOHSMh
0OPn+oI2IdqvKCkmSOvD0QMmmIsPzLn6QFs/oY4XcTcP03/2Ky5ZZpNnm0/O
2TRydwbx4IyGFptgcfcievwK6PLPp9kng1rPVCpd4ym3CaTtQgAzXlE88onm
hW8Mr/UbaH6njeaVNoqnovn7onl1E43i8h7KJpq2/4HWP6PexYcuF436Lud0
MckOzeq4MrCOlot19Agr6k1roy+jjZ6sFoY7RslMLSEpKR8/TTAWhmbY7t2P
v6kp0QJtkndtUf8+bukCInbqVKyx0IW4g1jj9AZdgd3x2Xus/O1HrPnoEzZ+
9pnwwZW4GO8j2vYgFmvmYbroK9GR2aIvhQ/u33OaU0cdsT58Emth9ef2bOL0
9hVMT4zq2NmcgoMvaNBaRuFlkfhGwekXSihwLKfSQ1KYURR3zoUz5ZdKb2gV
ncHltAWX0hJURJ1fjhDcVKpdohnwjmVEUvljUe4LZQOQNlYUHMvv/ETZfsou
pSj9LqUwoYkK5dYqK6d+omDxhf7kS+okugQfXXERLPRmEdffkuDYQramhfKQ
Juqim6hPaqbhUjN1GU1UF3YRIdHtZu/OeTPhvVLBFJZ40tSM88K9nQ8eJEzA
ta5C/gNpaxYRtWfDmzS6WzDyji/eZ++yjaz58BORBZzaZETIuUMCcBZi+NUn
mCz4DBPRrqnI3oVfYLzwM07t2ISlkdjIYBMhLla6FTwf6Ex4UjR7NplAywJC
T+m6Yun2NRS51VPtK/xsXxLjVgncCc6lN6KJ7oh6WsNraAmvoi6khHK/bHXx
ZJ93PKPimg9Fs89Fo69EvvMT7c5trfLTa9ZXNOsjScNby/P2NubaKv2XJ7ky
MEV8WA2XgmtJ86thrGuK53df0fR2Rv97JtXFUF60i/YHBZkqd0AUbHTfM0yt
xzfdksh1KiPWt5XU0FYyolrIiG8hOb6JpqBLWO49oC6RPSd51Ha/6Vs8XbDL
sYO4HT34VtH6O/IN15G5cRH+yz7n/FcfCK5bx4p/fB+TJTvwlN93Prpdkoug
7a8+xnDep4Kev8Ro0RcYLvqcPYs+Y+fCTzhptB1vy+M8n779C33r7PbYTXEC
E7THQ/A7nUGIZRlxdg3EX6gl3bmJIi/hBH6d5NlXMWydwY8h8fRGddIV3U5r
VDONkQKXwpWlrNV0i5/3apMYlsC97xsriSKWF+p2sTjRvlhDuZkjvn1P2USk
EQv4BjHuo+H3d+/O9RQfP3pFQky1VKBaYUm11ETV0hRRS0uISKAgMU0tg5cu
82rmJQ1vG2Slbr2VsvBTjHFVgOqEu7LtU0CSt7LWKpLvfCP5ncj34h+vfMN5
KtF13zuYSU9l+bIvfuu+5ayxMZYSEhfEIA5iEGc9r/fUMxyF0/uc2C/gTve5
y7EDRJ7cT+rxvWQd2kHPYSOcP/2cA+99TOZ5QQ6Gm9ggGX/zV1+y5YuPhQp9
xO4FX7BbDLNLDLN90adsXvCxpJ59jLb30FpR9GZFw3FJdycVMTIgzNNT6WXo
W68fUFNcILzjCNpjkcKlcyT0qoi1bRCLtZLj0UmBTzeVAX3C8+tptyng9+Fp
9MT20xnXQ0tsO41iuf7oNrFkI93hZfSGXKLb15e7vrpNfk8kbp6JxZ6LxZ4p
t9+0F5nVRHBbIylfE8iIt49+Ln/N08cvxbFryE+opTqhTsBkPb2xDQyKXIlT
pJ4hMWV/eC3d2mp+d/flm3h7ekdZZNJFW2Imhfa+FNr5MtnYxUuhckVvm3cN
jY66lWG9LsFcd5OaL6Z9oAdjCib4QeRHkd/LVF9LiD/ThPPAN5RptV3sR6ZU
kTPbd3DWdC9WYl47Ma+j2j7Qm1jIq5eY11uVfXrsYobpqvkc2bpW+PZOoh38
ObbxALb7vPEWJutt5svZrdaYLd7Gms8+5tsvP2bz/M/EpJ+zUTLgwfUrOL5p
nfzORuxPmGNhYiDUzfAnrZMLb7dPDAzmlkvM1Rwrk31oD0cJZ897s6mv0LeH
Cv9+GsIGqAnuoNKukNcRWYwktdCX2CcgUni7gMhuYZS9Mc0SqxX0RKTT4ejK
bR9lt1CMZEGxtFa3qU953VM2nGrDGdcGv6tLO4ra/x3PHr0gR6B4gdCh2sRW
OhI76YzqoDNMYFZkK9eTOrmd1cNEZgejaS1cTxBrB1fww+xz5hZFvFB3x2RS
LtFZ76SlTaTLUUuPg5Zuey3tthquxWbyvVhddxuOTbrWEVNNutVurU6B9ElQ
jwj7mfKK5KG6HjBaxSQ/ioP+wU93/M7voiR++blYf0bZiaoEt7sPJ9Zu4IxC
mveZcOGg0jwyw+mo0rrQN+7U1sU+PPWWdxfWZrT0Uw5sNcDysAdO5n7CdjRc
2nKBZjNL0i18yZD38fuDCd/jj9M6S85tWYerBKyz0R7sDHdyevM6dn7+Gw5s
2yheZ4CVvmNjp1+LoewsU9dlqGsy5GdGuraNcuWnjfeoY+1+CXDzfILP16nv
U92EL/h2UhEoZk4cZihtkFzHQh5F5PIgrYLh1F76U7rpTOqgN7mL7rgWOuIq
6IpKo+2cAze8L0rhi1KWPjCjiEZ3W/e2NoJRbSjXtMLyM7N11v/bN9PJiS2m
MFGqQXQHRX6t5J4roMmvg66gLi6HdTEU3slwWDvjKb2MZ/RyK6db3QE/Xdyh
96S/5qV4QYXAwTqBg8r68z5nP4ad/LkuMqKKH9ccNQw5aBiw9VHbOflve8Ny
ppvaaHZQHq4QJN4QxoiQsim5oodyJS/FmX+QdPWjyB/85Sjyvb9+7aNc3R3J
BRPK/TtPKRFR0ZwyMlb5+3lBPzaSC+yFPDr9tIUiokOWzhbCdcxOYnfcC5+T
/oSdDMR/mw1Z8/czsdOYEqtgaqz9qT7pQ/YRLWn7/EjarcXb4JC6SsfWaKe6
ImT31+9jsXMT1mZGkr6NcFD6F/vUFSHoloR8LGPdDkBH/aLTxsKCN97gbuKD
/6EcNKf063VdGsjyaac2UrwhtZ/22C5SXQqYiS7iXmYlA6md9KW005HUKrym
hys5PbQllNEanUzV/tPqQhjl5v6I/ibyqJTHGxrdkorLmhBGM3PffQul3Ry4
QaFk+kRtA5c820k9X0PBjlDGTwdwRdPIzbirjCdc4VbCEKNxA1yN7uHapT7G
8nsYTa3kx8fP1GdH1Lp40yBUrFOFTgFcl4o97hKkNvemFHELZNI1QN2IdtPJ
l+v23vwo3pD3tjf8hqlG8QZ7jW5Np1SEEaFLU8IUH4g3vFD4in495x/UJYiK
N0SLN0RJ2lO8YQ5aa3gm3GWuo3B6n66TcUHyw1w7wdFcPENYnqMQPB1C+3ti
rSNIPBn5BhPPGB2h3C6aOtdo2mUu7VIpyoVrFZpLnjCV3GG4n/3Lv8Fg3ocY
zv+Akzs3Y/umcbgX1wN7xQOUpSc/V/tXSvdKWYSiNBKdzQyY66ke3bqFE+uP
4rYzDs8jueqnkQ7VZGvbqBPrV0UK1o9qojSqlenaXmaqWulNaaEruYm2pHr6
sjq4WtRDf06V/G4MmVsO0+gaTod4Qo9U1D5vEZ8IAQO6JfxDGXn6Qv9P6vu2
0lYSfCuJ9Wgj22uAbPsu0qzLuR1cwqx7LJNpk8xk3OZu5i0mM0cZvXSN4YR+
BuLaxQ1aeTEyqn9uhy/trn4MiOlHpKJPuIYyo9tK8I7aWvw59/RPEFG3JDr7
csPec84DNusXqihLfVocg+h2/ekC1OdifQX2/+CvrLJTlp/+gu8CotVc8FCq
w8wc+PRWweebnpLFXhNO7jN9w6itxQMuHDXDxtz0TfHVntNpJs06RT0W26ST
sdpGHfe6XKTJ8xItGiGAfgKUvcKpsxYvOO5NnJmtWP5jweWKfKhbgiSWdxYW
7yYs3kPXS9MtePlAbaPN7c5VXuelmBxauUwdbxCYf26dC+5mmer7cPtqcgKb
KY1sID+oklJhRdVRNTQUdqhGb0sSsp0k75MlJeS3M1jURnduOSNB4dRanJef
FVAoBigTxFwh9KXUM4TJjj79JX/ypnE194p3SyPapZZEt34KNDcFh0xTE3KL
ioBWHiXX8yqpmvsFj3lQ9IC7hbNM5N/meuZ1BpK6uZLeLM6QQLPkgBaJ7x5l
ob+LFGoJGl1rM4JHIk/07U3lAS73PUOZetPa9OZFczu5b3vC31Jv46su7+uU
yxj20K0juyt5QAGyLxXy5x+rrrn8neSB15IHnoknPJA8MK0AWt9AqYtzgPZD
KouLMZfKcFwsc+qQKWcOm3L6iFQK88NE+8RTlNCiqiHZOotcuzx1XOdVTPom
3aK0Wx7hdPoXiOTSHpRDT2ganQK3Sq21lBxzxW39dky+eY89X/4aO8k3jnIe
VzmPu9LLU5bXHDVVVte8ozby/gmH3Zs4vXKR+tXHFn7Flvf+kzpe+/5v2f35
Khy36xwxzLGKtIBqEj0LyfArIVdCsjC8hLKLZdTGVVKbUEF1UhllKcX0FUtR
KGigPSlDLt+f552dP/uTWyZzrz/eMvmVOn726Ln6LtaplRT3axQFTNF08SGX
k1/QlfiQlvjLvBYn+zGnmccVr7lX8YzJsvvcKJxgKGuQgZQ6+qIvqltjWiX6
+8T4I27hTLpHCF27yGOp58/UB+O8UB+M80yy0UNvQXNeYikPXYN1zNn9T+w/
1dBFk30Arc4hXJZvuuklcNYnWoW5TyQbKETmpb8iuhrwWOw/K3D3tlDVUVHA
k85O/lyHu8fHx8QJlK9tUR6lI+ylTBJYrkZn9EKXCvVY41lK+i7dNrAbQkua
vFLpCCygxT+HRjF6jW8SpS6RlNn4kWtuy74FH2Kx8DNCFi/F/+v5+G3ZiO8G
ZZWgsn7HTF2+oyzesd28Rl2EY7V6MVarFs1lovW//hVr3/stGz56X2+Nf0+g
XSUB9vmEOecS55VLil8eGYF5ZIbmkhuZJ6W6iLzEQioyq2mU3NuSXKg+t+OG
r5bfz+pW8r+r//63e9O6GvceyR5jFAffozn2OQNp3zOW9wMdyuNOcob4Q00X
/1IqcD9viqnqp9wou8NQ4XUGxertwcoDCvzEFsH0u4Rx4+2nCPnonyLkq3uK
0HNfQWeCPO4IGZ9Qu7j+YmGvufDeomchl2NFq47BdEmWGJbsMCYOMiVfNauJ
ljCOVlnMI61S2hWzRjApUPaG8NRBHw2/0IPH/ItFFEmJLI+/TmWEbtNJpr0O
SNX41HDJRFfO7wRcojesSnhxhVxKCS2hRTSE5ArjSqfAOYwCKxeOrVvK6Z07
0ZiaEW5iTJzRLlJ2bSZVrKc82iFq4yqCNq7AY8l8bNYuxXbNEo4v/hIjoQOG
n/2aA19/ytpf/5Z1H3yEwcKtku0v4HpYOL1FDh7WOQQ45RDumUO0NofYoGxi
w7JJiM4nNbGU0uxWKhOKBK6HcE2ucTwjS+e6fP7GhG+bU/XamDKizuj2lSR7
TlAU+pCmhBdcznzNzYLv6Yu9KcxukKsVQ/xrWyffl1bKz3uoim2lJrmBrpxa
6tzdxKwBtCkhJgF7Q9LstJfo3FvSqRTdlxJqr9XnLQn8EtM+EkZ51zeCCe9Q
HQ3z8PkTq76cukeVTSD1zqGqZYfEsjcEit7yUdZmKw9AUh7Oo/SKwhnThnFV
grVfgvV3s/f0y2Z+qXs4U6RuBUl53C2qo8fUcZZzvS4x+7WQfVq37vFuaB79
Uc10R9bTebGW1ouV1Ih1ayIKKPCKocDJB08BZDb7TTi3T0r/wf26+Pg1CeZ/
vI2UZ/QtudtWkLZmIQHLvsDxmw85+uV7HJ73OUaffsb6DyR0DfcRZG3G9i8+
ZP/645w+lsUFqxycxbAeYlhvbTZeAdlow4vIjylXl19ek1o0oOSjzJy/eBOb
Ovak21RcFNVAmnuTzooeE+SLFesTn9Kb9YLa6GGqwtqoDKumJLaG0eYh/kt/
B99VlVGT2Cw5rJxSgf2Zx04LoQ5UH5By2U307SE69tI9MeuprxRLfT9aafq/
UKJKE6Va8bbS7PeW9OvlOxecW/XETnkmRE98PtVOYepTLHoFSw55KY/NieS6
ZO9r8ufD6gNqQmjzCeQ7Md8v9HeD1UUp4c1yadfeoK4s7w5yPdso0XS8uUN8
wy6NF5FZ9EsA98S006WsH4upoyZSLkuCM1+TSIF3MGGWZ9Xmnb1wfOfDwuD0
d2S9ju0X1mWIs/EO5nJe5gllMc5uCvZvftM33/WffoPzqg1EnD+G4dKv2fjZ
h2z5/EO2z/+UrV8Jdt95HCPDExgZW3Bkyw5OL5tPv1xjj+DlNt8QBjNy9K75
062pc4FYFNmuO/1vyQq5S1X8QwpC+9VPUjVFZAfkyq8UU55cza1useCVDl7V
FlOWXEx+dCzaL5cRvc5I93gbsd6IWG9K4u++TyxPNLrHib3U971V60k+vCOk
bkLI7y1R/bj3XAxu10PosaZeCp1CqBII3Sj4q9UznDYpty3eYdR5hzDd2avf
5vcbbnbflMzRLjO8QaxLGwkuyk2GHsqDBykP6KM2pI9CjzqGHXP4zzGSReP6
6E3sUZsRjfFNEptVFIcVkBeQQnlIHKFW57ASuK0uU1NWUR39Y7fVyXAb1uuW
64vR33Fh51p1FHnajFBzC3Vsu2kzHpKBXbYbY7F2D0bzl7Lh09+w4ZPfcPjL
9zFa/BWnVy3FQoy0XwwYuN+C0LNWpAaF/NUfe2wfq1c31nvrTYCnuVwjzva6
Oo7xbCXRV5dforyySQvMluJaSFFMIeUZFYxfHuJfrrZzu+CSAMA9eC5aicvX
a7lkakmPWOiaWOi2xNes/vFpipWU/XHK3YlnYqGHEl8zQrkn1M5qAHczMvQW
2qkHZE/v3GektY/RNpH2Pp7dva/f/fzTRUY3Om7M7bUMulAjIL1dWGEfZaGD
NEhyaIsbolhTL4A7l/8jPo1uSe89KT20JndSJ4i2Jr5epIryqBxKQmMItrbk
vBjHRr/EzfnoH5e4nZOSprys16/AZv1K3Wn/AaNv3ldHJvM+wtTsgjqO2GVD
4kEHos8EkHDSnyRzP+IPaMgVu3ktWYXljrXsXfwpxkKLFGJsudeQ88aGnDMy
xFK3muyv9SlwrPsWRcE9FEXcojzpIUn2uv1FPhdKCXcrJ86nVH0f75/BpQjB
QbF55CRKbsip5krfAH3BEXy/cg0dXy/AacEG3JZspuasp/CFi4yqz4oTM/kq
z4tT2qIxPNbo0t9ca/SWNpgxjR9POjr0XOFdrjR1cq1J9wiSNJ3dDuhtc//B
Ky73TTHUM6XLN7ogKtC0Ee+ku/ccKzbK9OumNKyP+pgBOpIGKQ2qp1ng7e8T
0xnO6GUwq4eudLFVVh9tae3Up9RSnVhASUQUflanOStMxVq/IMtRf7tC6Wpa
rtGRxfPrVrzJrGdXL1J3JZmsWKL/7G9w2WZH0qIjDEkQZRzzI80igEwLfzLN
A0jbpyFhuze2KwwxESOZLBYjLfgAWxPDd7AzUdY2qY1LYwOsDQyYHh2dy+vP
Z19Q6NdFUditN72Lc7u12JuX4n6hjABn3U2+CP8soiPziY/NJyGhhFDPaJyW
GhC/cBuVy7dQ8M1q/L5Yg+cXa8nee4Y+5Tlb6kOvopj00fUw72oUieKO2GlK
wN+4gL+b2iCmMrP15fMvGG3pJN/Rl3JHjfr8qAYHEXsZC2+caehM1Zlun3r4
S4YGJ0mMriEnulboUy1V4bXUBOuSQHf6ZV7eeUVr2jVdJp9HurZDLrSLmhgJ
p6Q+6mJaaQgo5/eFJYwX9nElt4+BnF66s7ppzWijLr2GqpRciqMjOGlo/NPV
XId1QENpRZ5erQuzs2tXCN9foY6tNizHZOUSneOf0hJ2yk+Xm+Yf5/q2QxSf
DqbsTBDlZwMoOS3cw8KHjMPeXDL2RLPWgr1LPub45pU4mRm9oz7f7Oc4m+me
cmZvYoCd0R7FjPr6/A35Xq0UBY1SnHBfPc2+dds5uuU4p0y8sbLS2dDHtwhN
SDm+1kG4btuP46fL0Xy6keQlu6lZso2MJRtJXLSBhE/XEidSKjW0V+yo7PdS
tuEpW4sUyHdLCpXySL0bCtQTcDvgG6BCPeX2QXdyJpXCGJtctHQJt+gXGVQe
rOXgp3u0rp2Gbhsffjc9S7LOmKZ6Ov/4kaCjin6y48WQIi1xtXTH1HJZjDsQ
pTNqb1gtbVrd2Nc0E78zOpaX4ttEfkgrFdHtNCR20pzUTokE5eOBHobzOrmc
00lvdgedWW00ZzVRk1FJeWoGCVo3bo+OccJoL6dM1UViczFof9SM41KUTqxe
9oZXn1m/XB25WOg27YScDiFBv7UtdL4NV3aeZ/i0O/X2ceK5MVTbhlF+IZgC
Sz/yT/iQvc+Nk6uWY2WwVe0kuom4q6JsYzNW18A5mSnW3Y1uJclSJsZGCfTx
4Njc5mkJZGXz9MF1Wzm95TSxng0kBepI78H1urWDh9Zsxnz5Gl2OWf0tXovX
4PbZCvzmbyRm1WYurdhExrKN5KzcTK68zxLLZ3yzjvJ1plTvOk6nWF15Xpzy
BMNhQYfDggwHBNz3SvHr8A3k+9n7ElsCi1y81aeUKbsL+138uCoE+4ZzAKX2
4VyyiSLaKo6kc3FcOi1yLJYcxxJutU6RqLO8iZ4NPXn4nPTYMgoSa6lNbKBT
cPBQYisjyW2MX2pjIl2XhsdT67meoLO+dnsYvsd062NjvWqEUNcL3mmkMq6Z
SsHfHaktQoBbxOIimUJ2xerN2Q3UZNdQlllMblIyDgd1m4gVD7AQDzhhZspp
ie9zkqKtJL5P79rCkVXL5nCo11Erkuxi8D8ZofeIf0fB+TRitvjTt8eNG2Lp
No8MkUs0uiVS5xpHhdNFiuTzojM+FBxwVDuI6mq8Q8p6IM9Dah9Zfa6gkXiE
4F6zPTQXF+ir0F8QLJa3MBWrmxpy1lS/f9tEdzfygrHh3NRMV2/lwLqdHPl2
95vHIvgsXo3b58pO/U3Eyc8zV20ld8VWitdsp2zdDpHtlK7dSuHqTfQdsaJ6
gwmVu49RL+iyWdBli1c4TXp0OdPZO3eraSA5jUZlv7Wr8nAZ5aZAEN0CTLMd
oolzSCBTpMQ2nirreGrPx1F3No6ak7E0uZfK31Xx3cxL4t+2/3s0lbeTnyAk
QfBnl+TlK6mDjGUMM6XfoHxfeTpCse5BnNN5uqcqZFpG4Waga+oFO1cI/isl
TXJ5VpAQjcgaWi7V03ipjgZF0sWvsmqoyK6iMEt+51IuGqsTtFQU6hX9a10z
UTKAhXDKUwdNOb53N2ZSfk0lBdjv3EmupQtpconZzjmkWOcKRsok+1wupXaF
pB1OotkwkOdWHnRpi+nU5tPim0WDbwbV3imUiCMU2IWqLeacQ4d0+yW9j6hP
VTxigteRuQc8Kj5ggKPprrlFuKG+HpwU8yv7Ieb4iLJV/O3XwcWbMF26nTW/
fV+o0HoObtjJvrWbOTx/Ie5fL8JVfMBn0WZiVu8gZflWCf4t5K/eRvXG3dRu
kNS/YZfYfsf/S9lbgMeRZemC/9fV29OzM70z+wbfTBd1l11VZlmSJVvMzCxZ
ZLHFzMzMzMwpZmawOCWLZebC7umZnbdv570TEZkqu1/vfLvxfdcRSsmZGXH+
e85/7j2ATjlVHIQmsOm/q86+WCDmz3BZPstlnwhzao5Gx0m7c8WFZpkQjqAU
zJKbU+Cbi7LAIjQEFqPbvxQjvuWY8qvErH8F5gLIyfAvJqJdgWWy0/OxXfj+
9A3yORxonJN8jq79JXtfQr68ubSJxvwudBTNYLR4DUvlO9ip3cNxyz6edB7g
RfeBEPKPeKs4aP0pXNxPvwFB95oQ592ErJAmFES2ojmL3qqAlE12G1pLOtFa
wUMTOQjVNErLWomlOiHQRo9A2cRFP1zC3i4fHR3k3SVkYdiPKxpQ552ICrrF
moAOtAcOodqdh3qvTnQGkV/v04Z2oxy88knGXEofJhM6MJ7UjuGkFvTGE2ai
K9EeVU7qMxtD3sGoNJSCj542fV0aelrw09VEEJmBMEGpzSAzruhEWlQoKQId
OBMJuM8krAuQwG5OmRpw1VCZZHVuK8JeVo0FhdLFKzAhy6Dw5UVYfP4FAgkQ
YaLKSCNAFEtqIOOWEgrJEtTJqWFAUQ9DSszQoWttdClo4Dg8GQ9ZYETjrLj8
FwIgMAezODxOSmCBQLBFT6XFnzOG9UGE/MAGjAe2YD64HSvhHViL6sBGTDuN
ZqxF1mKHSPIWE4WQ1CoEgvqfcJcgpOS/+eDlsTYiPPnjxBTWMVm6jwe1Z9hv
e4LH3c/wsv8Z3g0/w7ejT/HN2CO8Hj3B06GHOOrdxGbtGJEfddy9JQMXrWT4
2TchxL0ZGZGd5IzwUJDQjOK0ZhRlNqEwvwV5pTykpBYh3NMFgbYGRAt0/1xg
tphlsV6vBAyS9iu8n4Yy7wZU+fWhPWgSw1GLGI9bRGfYCAZix1BtVorHfvk4
SanDVPogxtP7MZTeg/70LvRndKI7uQEdkYXoDY1Dk40GSjTE4KGkBA9FRXgo
KBKtVICzFJMrp41gCx30tzXCiYECKQamko+nIFGeZSdclD23TfmP7PYkSwTM
9aF99QpkPv4MGl9eJmh8DJeLIggh/RFP+iBdTBW5IopIvHYbWTfuEBW8gzZx
BXTQ6JdRx5CyLlbtPXAamYr98CRBkcVwDg5/y8EhMI5EnoSloDRi7ymo9Oeq
abQHdhBUejEfNoi1mBFsE1/ZTaGRNoy9tAHspHZjp2gU/LpZ7BT34tXSTt77
iPjTCSIcTj5jr5syO8nVX0RP4R56Eh6QIUvDTjJRh6RRPKrfxXeT3+LHmW/w
3cxbvJl+iWeTT7Dfs42Z7A40eIfC7vZtUqRiML+tDxejCAQHdyEqsg3Rkc2I
jmtGRGITguiOfO+5C3IRDeFrq49BXjO3jPQl3h49Bs8nCfmueSj2bEOlzwha
Q+YwGPcAs+nbWMvdw3zWBtGBLuz5V+EsuwvTOdOYzp/BVOE0JoqIu+b2oyO5
GR1xpWinZ1ztZo82OzUUKovCV1kJPkqK8FJUIO9CHq4ysnBTkCNaoMXCwJW0
gbuxAXxMDNnAf+YIseQ2LD9iw/+5yoq+8ncQICYCzU8+ge6Xv4XBjSsIvHgZ
4VclEH1JAolXZZBLbneRiDzKROXRwGCAVARPQhE8Io1tt+SwauvJNhTYjxA0
FAiNwuuxMeHe1DfHJxjxj2I/boJsw3JwukBaf4nJsCnilJPYSZjBw8xFdDgU
4NQ9GU9yevAwdwJ71UvYbd8Av34S26WNeX9sIv50fgq3SNZMM6s1ex19xSfI
dhzETBS3uPw4mYfXSc14G1sFYX7tYcsSVismMVfI1PmsQ5ShMSxExGiKyCLM
zAyZTgYIlZFCpKwUPGUkaNyCu4w4PXaambpK8CYE5CZFcIseF0nilchz46HE
ZxyN4UvoS9zEVOYelgsOsVl2jP7YOSz5N+NfMsuxUraGxbJVzJYvkh9K/mj2
ADrT29GRUgVefCpi7eyRZ2eGDnsVxGkpwF9NBX6qSvBSJskrycFVThqWd2RY
QuhGEvckifuSxAMsuLD+UOKu4TQi75oIo+qTRG+gUlUWLVYacJS8Ds0rF6F7
RwzBl24i5NJtxF6RQsoVaRK8AgldkYSuhNZbyuiQVEYneQudkoroJiXQo6CL
IV0r7DObBYIonTfj4z8XBNseDo9ixC/6J8GHcPagyreFPfcGk3cds4q1kAk8
jJnCciRZTpcmvCSG9rZ+CAcly9hv3sZe7z5XgK6pB3n/qW342R8B42M0J4+i
JWsHfWWP0ZF/goEKrtzTePkydhuX8bJtAb/vmGZf+2+tXfi/6mvxu9J8vMhK
xHFuDubDfWH68dewlddD6n1zeKnSkyanzUv6Nu5LS8CNgOAiKw5HGVHYSYsg
KylC4Ib/9QdfrjmBPJJUbv+qPesAwyWPMVfzAmvNr3HU/wP7+qB/K37IrsFx
z1MsVjzgsHkDndk8dGbWgJeSgQgjQzjpGKPU0Qw8e0XEaxMgNFTho64MTzV5
2BEeLW/dgZ2SCu4bG8LL1Ah+5sYItOQWKMLumsBLQRYRt7ncnloDNbQ66qPR
ywjZLkaIstOH7s3rMJCRhv+F6wi4cAuhlwgNpAZybsihlMxDnbgymiVU0CbJ
IaKL3IlhZQP0ElNoJxo5aXsfe1FkEiJjmDBtYRLEiC+HhPHANCwREirci8+X
s/rCVzETu0GsYAn7SSvIsalDQ8oE23LgrGoPB5Wb2O/Yx97QKfh9W+B3jeLV
zlru/y8wfITmeKIJGXz0lD8V/Pnf4+3Cv2F14BRn04/ZVw4mCBSz8/hhZhT/
OtGJf++nKRriiYnrmthX0kSxsSKsb0nA/rYEee+ScCAQ3CMQ2JI2CNNSw6DL
fab6B4eBD5u8NEb3oSWZw0B/9StMt3yLBz0/YG/4dzib+D37enNgG15mNeB1
yxgWKpcwXjLLvt5TMEL4ZXKYa9GRlgYXRSXYy9yBo5YWqlxMwLOVhYsETePr
v4Wx2CUyXeKwui0Nq1vSZAcM2WB1PwtjYZWe8BuiyFdWRK2lDhrdjIUV7SJt
jBHOFE2/S1zTSg8aItfg85ur8L94i4iiNOKuyrEwKCGlUE0wqGcW+wgCPXLa
GFMxwrAKwUBZDx2KOmggssiE6+xFRuPH0xP2CTDLF0yktLUhFyZncPUaDK7c
YK/bnMmnci0/x0Rv1AamU/awlrmPruAJ5IdMYqJpEaeNfJzVHeKglo/TqW+w
N/4U/NFd8Acn8WpvM/dPexGffSCJ8ao1tKTtoKvsCfv6au83nGmY+QEvF3/E
u5Xf4dsHXEWy57Ovsd20hkneJNZ7h7A+QCQhJAptsiaoZ7zoG9LgqZgj55YK
cuiZJNPziJJWZnPLHjI7qCHReDsmqDOsdv41diZP0BK3SjyFU0gTLW+w0v0O
/KFvcTTxPR7Pfs++fpLXhh+GlrHWsoGRIi4RvKtwmBwgHnku1cj09YDOta+h
f+Nr6Fz6HJ4GpqhzM0L73TuwF70AzWufQ+/qdahc+BLWt2XhoKYGmzuy8BC9
gxjSFPk66qgk61XuQVbOzRyxjkytHRq2ZDJsCQ5MvR1rrt6OhcIteBH3DL8s
A3/Gb7gsh1QiB4VEDkrFlNAiq40BFWMMqRpjWNUIQwwcVEgrKBPKlDQwbu+E
7ago9v6725rZtQwHZi3DiEwXDU7j/Z+wunoTMfpJKHLsZl/pjtnCZNpDDCas
ItFtAI3MkkD7Ok7rD3DaQFS+/QgnM99hb5opwLQH/tiU0FAYCnTD1tgZ6eAN
tJecYqTxGQeyf8Dx9Fs8XXiHl8vf4PUqB4Kz4SNskmlYbpjFQv0gBtNykS+r
h8yrymgk13lM0QhzqhZYULHAPI0pZXMMK5hiXNceq+4hwjInAuD9AvMLB1hd
PMTGwiG25okAzB5iffJQGKstBMTLk3dojFhES+ZD9rXRpmdY6HqJjcHXhPE3
7FdlFVT/PL5Z4YPf/1DwwP4ObcXtqMvOh/DQvv4VtL/+HIYiV2nWmxMgDJBr
JAYHWVm4yitD5pPPYfLFVTh9SQ9aRhHZRrooJMFnuJojztkM4bZMIlEkweAf
6F9B4SVbrvCSg7okLBQliG/oI/YGeQji6ki7o03410Ongh76FbTQqWyMHgJC
H+mEflVD9KkaoJuA0KqijQYVddQQc305NXW+qetGIGBS472NhGm//wX2N27C
WUQCPjLucJfNQN79UXTEbGCU5m2G5zAyUxcw1b6K/bpdHDbwcdi4hUfjL3E8
/w67C8/An9/F1sRY3vurSx+hNnQZzbkH6K09gRAEuxPPcTT7AmcLL/Bk+SX7
6v4gH6uNs5htmkSVRwgqTezQrmaGEXUSurolHqhbYUv9LnY0rLCtYYkNen1Z
1QyTyiYYlDPEA/dAbIeGCkzPX2CV2ZzI7UWNoFVcT1YfuXt9GEjpQ198H3iR
fTgYY/eczhuEDRVtoTGJi4zoqzvFZMdjLPc9xebIM+xNcsnXsxO7OF14jp2h
A0w3ck18Gkt4qMrjogxVLn8Fjatfs9eal37DhrJqS96E/10zPE7zgdMX/wzX
zz5Firg8YhRVkWxqiGQiFyH3TNh8GWZ3N9TGlEHER4ggQIh8UPEpmJxgewKE
C1tRUh/+JPw4UVUk3dZE+m0dFEvpo1tJF33yGqQFjNCpYkjK0hAdKvpoVdVB
vaomalTUkEv8JS06FI4mutyChmAxw9eYc1eZeGsfHW4920VMEu4SFvCUS4en
ThnyvUfYmitBgVOop3m7Ur+CrdoN7DSsYbdjG9t9+6y25S8/ws7iFl49foQP
UPFLvDz+ETUJu2gqPUR/0xH7MSvDp4SfM+zOnHFA+SesDZIZaBwl/duMYmtX
tKiaYkiNAcRdrGvYYFfTFgdatjjWZoYNDrQJIFqWWFU3xSxjHuV0cVJRzn5o
H28eVQV9aCWPo5/OE3l9mM1hNzh+hiVCByezqYQ+DIf0nGsJ5hiuPEZ95gF7
PUDfdpJ3wl6vjZ6x35g5dufOsDK4g/F2roFTdVkPstKL2Gu5S19B6Qr3/kzp
DBPy5Z3uRsPHJhGBZtFIMI1EqmkUCuyykGDhBRctA5gryHywqcwk4ITamjFp
bywowggUIQSKIDsjdmXESU8JLoZM0owB3MkjCbmtgRhxDSSRpsiU0kW5rD54
Stpol9dCI5HHRgJEg6ouqtW0UaaqgUIVFSK2ctyyhqBAMbOswYGBS1YXbpow
h6OYKFsE5/6dAHhqFiLQogrZHgNIKFjGSPkopkrmMV0yTedJzNfMYq6efO3G
CUw0jGCspYdtRZP3/hbU3+PF2e9RnrKPhvJD9DQdYqzrELMDh1iiaboydYjl
uUMskF7vqB1GgaEt6kjp8cguTKhZY1XDFrta9jjS4WpYPSHb8FTPHme6tpzO
+xWZDj2c1jRiqGsW9UW96Czqx3DREGYLBfsdxePYKRvDLn37vfJhNjNDqC+/
PXnznrvLvdZcdYje5kOM8g4FfyeOlZlDTAxsntuFfCINDgY27LWOuBQMJbn4
DA+bSIQ4xCPZOQWpNnGI0/ZDu4oLGm2iUGYZjzStcCSphMP/ttP5tjVbR4SQ
EGTDJeSE2HKpF1ztKyN2UcTPVh/Z0WFwMRAiwQiu+npwv6EEfzKnYSJqiBUl
iSvoo5nIdZmMBoqJOxaRashV1UKqliYiTXVgKXXlfFVD6MSy5QzMuZWNUMHK
BnMEGmjB69pVUkNKCNUoQIR9NfJ9usCL7idNS+cMMun0fEfLBjFVRROvYRSj
jSMYrBvATEQ6ZrzY2rC5728uf0Ws9QlKyw7RSEDgERD6BklTEBB6J7lyaV2p
Raimu2ggMtCrehfT6rZY17qHfR0HnOk5st/suYEjXtB4on8Px3p22NG9ixVt
c/Z3vRpmaCjsRnvxCIaLpzBXNIe1skXsVC4T013BccMyMd8lnDUt0HkGh3UT
4FcMYSO/Dw8bZz4SRHWtzb5DSe4haioP0UZg6CEwDPYfYmSUBvNVezZQUcc1
VDO8rQpTGS0I/cxgx3jEOMYh1yMDxa6pKLROQKaKO2ZvG2LO+j5anZNQbx+L
ItNwZKm5IE0/EB4WBAYrJg/HFP4EBmYDnKmhEWBrzNbQ8CUg+NgZYLCrBb0t
TRwQDA1hqqACEyIed+WU4CStBA8xFfiJqCJEUgc5ZC9KlFSReIcAckcF0aRG
QomFhhD50BP5/IOFDlYdECCDLYyFTUwCxcWQdUsEjTry6LqniUpnO/ib1yDa
uw+lMWOoTh5Gc/YIOguG0FNCFrhyAN215F3VDGM1Jhs7bKGgGKyRv7qeUozl
JZrizQvIT+rFNlG3LZr6xNWEyZCvTsiqjE6zcQptfjHooP82m1+Ng6Eprhuh
MLbkSyysf4NV/jdY3+dKvj1/9wf2NzMpWahSMEKDkiVhxwYzGvZY13bAga4T
zvSd8czAmb23l4ZOeGrogGMDe+zo22BVl0s27tezRltCA3qLFjFdvIaxmBFM
2aTjqGkXj9p28axzFy94fLzo2sYz3joedazgoHkO/JoxbBXw8GxuR0BW72KZ
SDBv6BkyyzeQWjyL9IpZpFTOoq5lFNWJcwLgqLHAuSvPJThFOMcjgmls5ZyM
cvdcVDjkosa5EGmi1nigZINN91D0++eh1zcDHR7JqLAORqVVGHJMA3GfbIow
bcfHmoYNDQKPF5ELD1tDZCdxfSiZDku26hrQlZCFgZQCzGUVYUPgcVRQhqui
MjyUVOBOzNaBXJA0shWtllLsUrmXmgppJkM4aNyB8Z2rLElxe29hhLUj9PmB
uhy5yL0jgSYjFXS66KHRxxCZrj81OcvwzEOM/xDSYkjhp42gPHcUVUWjqCgZ
JfekFsdM4xEaxyFJ2PSMwJC5BzpJB7RZBoCXzfG9oeQ+DBLf6yO+t1Cy8H6y
5VRJNToCY9AfGIsxAuG0fxxm/Wj4xmLKOwYTnlykRDiHKhvBlB/yC0O9th3q
FKzQo2qLKc17WNNxxEM9Z5wZuOCZoQt7Zy+MnPHYyBGHRvfOOfb43fsYMHRE
j38RyzbnyvaRopqHNbciPAkrw/OeR3jd/whvB89onODV4AGe9O/iuHsTu20L
hKBBrOU3/FwwF7qYJGhigvaCjFmWANCMd9EX0vqfw0CStI6UJqzktRHuGCH8
JkUuBSi7V4Qa12rwguqRI+OGHT137AUmYDyiCqPhpRiNKEF3QA5aPVPRzCgr
Mxe2kImrlTHu3zVmCpkIg9oOH/I/2CFwNbCCHkHHkKBjIasMWzlVOCmowU1J
DR6q6rAmsZtLSiLQ0gItHoaoNJfCXUkRuGsowV7jNtEfScaAfSS4CVdZOfhc
uo48OWnUm2twn/o1EpwNBUsoZI7YJRR9OMuKYoSNiohHdWgNmqPq8DA4DcdM
ontYGj3mNDylcciUgzdyx6ChG4b0nTCibY8JpjhC9gCWaCxn92OR6aFEAJoM
4+Hb4zdscmZXUCT66P2ZCsJzgXFYDozHuiA5c4tVZbFsyfMV7yjs5FQg7H30
XCL0RGDEPx4tOs7oVLXDmKYDlnWcwCf0HBN6HgnQ88TYGSfGTtgl9Dww4Kqi
DhCiBozd0BdQidHiQyxWP8ZY3h4a3dpoDlTjTUIt3o2+wbfjr2m8xOvxp3hG
HPWUUPSQDBG/ZRo71e344dmL89WhFGIL99g9bj3OKyQYeTGBa96EpY/hpqEF
9YsikP70C+iKycONzGi0UzwSXPKR6liKEqdqVLo0oi2oE8ORHShUDcS+RRCO
orIxk9CK6cQmTCY2YCiuith2B5Zz2zAcloOujjYkxUWhp5MLItkX4IcjWMwV
V1U8OyIPeuQqGd5WgrmMKmzJr3FU0oD+zevQuvoldK59CT0ahrduIvaeJdo8
dJGrdZV+9xk55RcE9s+Abs0ILlJy8L18EznKCqi21EGtuzFy3U0Q68CsvJjS
YBxvE8EKjCECjdWRZ04uaFAcpoISsRKUCj4h6Sg0A4/DMvEsPBMvmDY1ERmY
M/XCNI1xE0+MGzKN7VwxYxuGzVKmT9Acditm6DyBzZIRrOcSsmJa0RcYwSZ4
Mnv584TWtcBE7DD1w4KScRCczCZ5Mgmee0yrqYAYbLEJnqeh7wPqIoZ8CFB+
CZgMTMGMB2kz9XuY0XbCuh5nxA4JUCdGHKj2GEDZeuJpDJfbyYLK2AO9AbUY
K3+MpcZX2On4Bss1T0hK/Xid1IR36S34YfoHfDfzHd7MvMPzqVc4HX9EDvse
+F3L4Lf24+XmOvtt7Ml5cGRoo4mekB34mzC12znnkqnz5qKkDtlPv4Tcb75C
6F1/RDuSz+NciTT7GhQ6tqEugHxzmm5N7mUo1YvGyb0YnCaVYjGD9Dd5adOZ
PIyktmKuZBD8RsJzRQeeLa3/7D9ZkibC1Sjo58a9xhwfs5XmFL++CJVLFzh+
fpkgTlDSvf4lTKRlkOFigdb76rC9fQGWN0WgeeUaLL8Wg88VcaSpKqP4rj6K
7psgycVM4LGbEXxMWaedhRGNMLKsITaG8NVRQK65xbnv8IBgtEcwOg3LPP8+
ryOzsWUXhGVzP8wY+2BMxwND6q4YU3PEhLoN5qN7sBTbg92CKZw0rWG/fgn8
qmmsxNdi1DuOFJIwJCSZYJpK0GHKoJHSo/E4NJWUXwopwSS2geVeYDR2yI59
gKVfYiW/EiO+8WzyyjJ9PT4TQ+qbiF2XCOzc9eVkKolv43Lw/jFg4oF+Yy90
MzEH1c+x3PIN+N0/kt75A6aKDrCcOobf0cT//dBjfL/wB7yd/xHP597hbPo5
9kePwB9Yp78fxSv+FrcoQRByYRraEm68BQsSgeSDBpsZsoF6zMGcmbRfmU9+
A1nCUrBZMKLInkXaViDVrgXF3kNojx5HV8Qgmv0aUGFKT8CdnkRWAx7QE1ws
GMd03jBGs3vwsG9XsN81iNebWxxodP4YS+x5e3EdLbncKimvgIusNrqjhTsX
LkDuq4uQ/5LbgtAkMGkRmLRuMDVlLsJUXRMxzh5wJyfUSUwNaXJ3EUMzNcXc
GonOBBQH0/Pg/hAbM9bVDyMwhduxS0F0Te4+u/5jCB8CE3MwGd3Tgans9cOw
LPb8PDIHr6M48TBdJ+f1vDCp7Y0JLW+Ma3lhRN4Ws+QqbSZPYSdtEvz0cWwR
tTpoWMduyzpmoirpPZPZsJJFQVjJQUg6ATUDT95LOn0Wno5H4QSysGTsMW1F
2YTTcYS8DyglHBEpH/YWJLkx2VCkMo/Y5HOu8/xbQcWhb89rOmXhcWwGtpka
GIxiMvYEr+gUY7WvsdT2PXZ6/wWnI/+GF5P/jt6cDTwkz+3fy9rw49hjvFn6
Fzxf/A5ns6+wP3kK/tgW+IPjmGprgJOxNmvhmLgdJqHcT7CiEUL+bCiTVmxh
xIYDMgeTVG4teweWpB9CTKIQZp6HSMtqpLl0ozJsCm1RU+iNn8NIyjyqrXPx
hJj2aXYzZjMJUTljmCwcw1zVLPaHCdm9ZHV5EzgaG36vvrSwUj3T7rAlR1Dq
q4BbX3LTdYbcpWsCVSYO1WtfQ/XGVzBU1IKzRQi8bYiHWUUii0ataxqyLBOR
bJyIBL1khBl4nNd7ZVcJbLhVglDBSsH5ehE5iDGCu2U74gRxpuBhuABEUbl4
Hc11KVjU88Sstg+mtf0xpROAHqX7GFN1wKqeOY5Sh3GUt4qj/GU8zFvAZs4U
NqoXMZvcgtnYAkww5WDpvfkhGTgmTfdYkLj6MzZ19RdszaHHkeQ3hf+UtHpW
UibAENe3UxEDnnFssxgmfX2N3mVPkLT8NIbBC5fG/jo2B69is9lMHjZhNTYF
fUbkQtslobP4EUbr3mCx4zts9/+I49Hf49nUH/B6/g8Yq9zAE/Ls/+/aZnwz
fkqW5Aeczr/Bw5lH4E9tY4cgHelmxwX6GAsDfbgeDMzBlXY0ZrPRmWBC1srp
qiFcQRpWInIIM4pHuHkJ4uyake7WhTL/AbRGTqIzZhqDyXOocSihqVSK04JO
zObOYCKXqTo0hOmKOWx088Ef3gG/fxbHU+MfCUDzvlYSaqaWzGm0Zm8LTAkx
JVl1cha5CpLq17gweDNxcVgoasCHDGqYSzLiHBMQYRmJDEUXDBEBrbSLQ5FZ
NPKMIlBilYIikxSk64edrzQwhVMZUAWRJgoiMAWcx+EYYDiHA8uIfzIxJa6S
4V44VzPlGZMyJ+gdNqfFgCmA+EkwpvVCMGUYjGFDbyxZOuLb0jo8LZjDo1I+
jko3sFO8REZ/iKZVK2ZTCzETkYKV4HTwQzNxQu/N5Mm+EGi7N9FM5cMsPIli
1AuZ1vBktprRbkgYPkDTJewPTGPAJxGjZOIWQtPZchgPCY3H0UwKC71tDJMf
m01aKAunpIn2BWkSrUSnWpI20V54hqG6l5jreIfN/m9xMPodHhM9ejH/A2mg
H7BASvRtxxj+W1MDni59i5OF19hbOAN/dhObo8NwMtQ+X1DxMjGEnxnXNYI5
wrmuEVxaO0cUcqRuo0pfFSV3Tc6z76LvtSPTexAlQWNojJhEV9wU+lNmUetW
juexFTgu5bFhTeP5k5gsnsVo0QR68/qx2rsK/sg83hwd4IN638yT2Z3bF/zE
/WshqwlreV3cU/xpBTBAwwARLgmIcUtGoksS0mwTke+QgpTLJliRMUKbWzpa
XVNRbRuNBudk1N6LRa1tCvJMQwSFX03gZ0ODIORL8PEhXeRFEDra5+N4aEL4
0Ssk4V0BeoT1eZeI0c5oemNGKxDTuqGYNgjDtHEo5syCMGTqiqdds/hDSzte
VizjuJLMecUalnJJIWfUYza7jNRRBlZIDe2SnTxlEjkjc/FCoOaYTOtX0YxR
yiL0pJOCScFeBNm0sHABeOwEc49pLdLrl0JUK40FD1NNY4eU2EO2tchBdCY+
xUPi1nxBbsZidAJmiPU3xz5Aa94x+ohXT7e9wIPeV9gdeUPT+i0eExF6vvgO
u8NnGK+fwfd9w/jX/n4cLT3H7tIxtuceoLOqFM6GOnAx0mejTLzZegikzC0F
FUXlZeF/S/J8g63mrh57VejORaHEGacjxLCMvU71GkB+IFMpfwwd8ePoSxlH
rRchJ7kC+0SmJwsnMF0yg+nyeYyWTqGveABdha3gT8zh1dFDQRL1L8Gf2acJ
MU+6Zx+8kmfse1vIarOgcVDSFy4MRDpGIO4+g5c0pNlloNilCI1eJUgVccCK
oj3bXWUwqJRGMXi+uejwZdYb0tHsmIR8c3+2uIgH4caD3Hx3YtNuxKYPH/J/
JvR+vIRBLoJEXcINk0jIHLvOhA8tZ0yq+2BSMwhThJtJo3Dy00Ixa+qHNSZG
umaF3OQF/PcBHp7XEaGu3sJi4TQms9oxW1yP6fgMNoyKH5aNE3rfJwxuGPLC
1E+JYUhMDoebqAzsMcm/UQnYCRfixp49/RZ7Q3Po9Eulm0wXZHdwub9r9L8e
RNO1ILtjPCqJze5g/ldt8CKaMvbRWX6C0eZHWOh+go2hZ9hluoTOvMDZ/As8
XnyBrbFjUkYz+N3QIH7o52Fr+SFWZhdRU5gLZwNd1vvlAlKM4Kqlce6CpMkr
ooT8tUpHk/NtbWYthTliTaMRZ85taMaR2cohp6yciHRT/DC6yeg3R3XhXUsv
lsv7MF8+jYUqwkvFNEbLCU8VA+gubcZgVSV+ePcGQrslDEVJigyHDX2vQrrv
MItY5Ab2npccPsePsj5MRaXYV+NdYmmQk2iXj3zXKjR416HdpwEpUt5YVPck
NyYVE9GNmIipx3r+ANvPeTCuDm0+mWhxjoH/XWs4kml2oNHLaz2PEjganMKQ
N1eagjmYeig7EdlCJTSs6o1hjcD3lNA/YszMG/ycZZwUL2O2Yw3fLi3gf0zz
cNowgwd1i5gkKz5TUY+xCAaMmdgm0BwKs1qjuaxWxhS+INA8jmay9wk0MSls
bZG3U1MC0NwThFO+Pn6MsaImtAalope48xBR7pEIOpOB6yUVdTg1J3i4H+Hl
8Q+oid1579texXzvKdZGzs5vcH/2DPvzZ4gPTUFOWDRawgKR5+WF8fZFtOZ3
wI5cFAYsNpKysP7iBsLEZJCupYUCa2Pku1kgydUUMY6mbLcu5mAaRDEBK6zl
MvFEgilXPyDJuxc5wX2oiBlAXcIQujKG0UBTamNwjp7OJGYrJzFTOY7JylEM
Vw2ht6oHXeV1KI+PFjDjz7G/u4NkZmXqvVKA9w314G6gB5PrsjASUcJ9bU/y
4dVgLlgZv6dMvxOTQoxdIOKcUhBlW4g05wZUereh1bcD3cE8FBgmY5aIx15I
AbHUbho0YcpncMrjY79tnWvrXNGHI94I2OoCuIDF3DoM+CZjhFTMLMmBAcpm
RBZGNW0wrm3P3nO3hh+69ILQYxyIPlN/9rWtolU8rFzHYe0m5vpX8f32Av5j
pQsP8rowU9iMsYxCYt9chvoGmaU9QsoxIeURk1zLVpjMYdnIWUwWW9thLyYZ
u9Fx+N3ZmZDUOAnE//zkMdbH5rE+PifQz2J4efp7ZERNs18lPbgVhSFcHmK5
P117cgGhWrLyMKBhKC1Pc08OVlfIW/3kM9hLqEHn0ytw/eoWQmVVkWRkgDR7
c8Q7WyDCkTxTG1O2VgATsBIlgIMwbIU5mJ2jSCOus1CCJ+mPkF5UxA2gMXUI
renkdBcMY7awF+PFgxgvHyYaPojh6n701vSAV92BlrIq8patMdLWyELB3liX
m5cfM2uTeP+wFFWExS0VSH38KQzE5GFJtNeO2V9XM0S0TSTC7uYSahtQ4MVD
nW8Paj1aUONagTqXaoybxOFhRBUWM0exmDUMfu0DPBo4xUHPQ/BpfvMbJ7FT
1Yw/F6jx2bwGdJP5HyTzPxXCJel1qVujR5Nbn20gnVGn44d6A1/0RXCLBCsl
K9isWMFONY3aJYwQm3+2PIPtyi7MlTeh151ZvkvGJJmGZSI+m+QjMR4Ok2Z9
wlahzCZuyiCAS9nlExc9qq4Vrtx4sad/xotnb1GS142yDO5jq0naLaGcxNt8
qpFvxtUZj9cLh7OSGcxI4vpXRaD863+C9q//AUaf/RpGFy7A/Pp1BNuZkbUw
xH0LcnTInQz+KSRFoGCYJS4unjVMULef6XoVYGrHIcGpE4n+nciLZOrVd6Mh
vRdNNIYKejBa2Im+8h6a9N3g1XShtaYTDZWtSA0JRIiFLvJjQuFAVsnJhMms
4ETNdOgU1gAMZOoAmnLLidaSKtC+fJPtZGTGpN8pacOGzuEWiQi3q0Ly/Q4U
efWhLnAUdX7daAroQAMhf8AyA2/D0rCcN4dl4sknPY/waOQFDodOsdtDTlfn
Avgt3fjx5XOB6H+OXbLgzSR6XmAaBkLShSmpddp2KFByRZ5BHMq9WtGROMX+
ZqpgFgsls1iunMFyHZEoAntzfiMGSxtQFBGHeCNb9JMXMkjzf4p0yhIhiUnY
3mYTfbOwS4SSTxLfjEnDOhHJ5ZgE4UaCpzCE5tkbVBV0CdI2ubqX05kDmE7t
Q09Ig3Cfp9YhHpXW8SjVi4WvjC5MrlyF8a8/QcRXn8D061/D6uYlqP/mU2h+
cRFWkvK4b0APm9mfO485MWUiToQVXkIEjbaEh5vuPQSYtCDMlWQe2ImcKB5K
EnmoSO1EXRYP3UUd6CpuRmMlDzVVPJQTw0wODT0PeHXQVmAbh7PLfecJVYYI
Ypf6mCwac0NBUT0neXWYiEqzsXRKX12FwsWvYCmhgVCrPMQ6NyHVtQuFPsOo
DZlCR8w8BpKWSOTd6LArwJuIPCyTPl4ip/Ll1Pd4PPEGR2NPsTt4QP71A/C7
hvBye+0vBFzl5ckTbJM+HUsr4Sa2jT9myPesJM9LSGxbk8iryiJ3nfgyj55/
cXYdMjPLkJ5ajpLwKFiLXGP34cxFJeElrYlKh0CMBWdglvjfEvkNy+Q3rBD/
WxRwv52aRuJ+jwRSdvyjPAtm/HF8tRRq81tJ/gPE0ccxVTTD/vVO+SIOarh0
zR7/AvQKsoA6PVLR4piIasMIuEhKw49mTZPcF7C4fgHeCgowukS6/zefwOja
DVjfkROEnHD1X38KOWHCTUzYHJwAth+YAQqSuQ1jIdf0tCiA/30eooJ4SInh
IZtMbG4mD8V5hIDidpQWNCMttRixHm7nOy2OapKwZEMcmUg0A3gLIg2C3qv6
xz33P2OX6cIE5f6YQ+OTj6F18QLu3tE695CTXXqR6zOCipBJ4qqz6CMo9CTM
oNG5HC8iS7BUuo4D3hO8nP09Oe9M/O9L7I6dgD+6Af7AKF7ubnC97Ql6Q16x
7LtOktJnPFPmqAzoQW7UBKF8AsUZ/QiJLUNEYjnC/WJhK6GHAjkJhKhLs3to
XkyZDnV12IpLoZgw0EPTfTAsHcMslUtHP9PJcmou4n25f5hx9eG+GBe+sr28
g2bSp51MWiYD7FKuEMtRI58IBhe1PBpRR1S0hr0eCCkm05WNTpc4RJEayPr6
C1RpXEGgmhr8VVXgo6wE48tfkSr4GFYy8nDU1ICXlbBtjglX3dOGq+7px8aY
GMGTdL5w39dJT5ctC87UafcyM4aXQyy8vYvhF8lDUAIPfgkdSAyKJ/1rgzQb
nfMAVyZUwFLmKiwUJdlgI0/yVHwF1UXZan9cg1M2X5c5Qm9xq1k1atJos+D2
CI0krnG2yCAdMRYcCc3w6EdJwCjqIybIy51Cb/I0qt0r8CiqFBuNe3gz/y94
OPAG230vsNZzhrVhUgSTW+CPjP7qfJ2W9P4gKemRgBQh8eMA9kuk3c+CnYkH
nEzvw0tCEr40dP/5JvKk7yBNX/ZnbDfpP2PrFjP1Inz1ddCaVYyt8XlsCYrT
RL1P4f5fNq44HDRmN6OlYBI9hWuYKnl47sE98knBPMl4Ir7r3PPvDcjEQEQR
OQgV6KbrZmtv1EpeRK6uKEI1tRBEcvVXV4O3ijKMrjCbXddgLi0DVwsTuNOM
92TyVdhannRty7jcRshJjmTl/DPBjGBKrDvrG5C8DOFhxhUmep8nMPsWzvqm
KCFngWevgOS7muedMXVEfyOIPufiifzMBIyRPjuAadKpKI+EmyIoV5YRel2N
3lyqDHPo3+GcwhDtdIQbV7LXqZ59KGIXNEbQGj+KrpQxVPjV4nFmA46rB7DR
cor1lmOsNB9irmkXU42rmKwbw1RtC/lYb/+Kvau/wzzRfKbt7hBZ+GmS9jJD
7tyCYCF6A5ZiN+F66zY8JW7DmVlH/UoCWXekkWmoyFoqpiYxw0qYSiEBZM38
DLj6IDH/H2TMFQ1uzu5DS94yEYU9cpAeYaPpBWp8uvC4pAtv0goxkzpGcm1A
X3gF+gjDvdEF6CF3siMkH30ewWgzlEColjrCdXQRoqONQHLcmC70niqKiLK0
pedsBTuaVw4WxnCi+eRM88nJ2ggZSVHvecV/g3361k66+mwVcDdBXSNhFXBf
U5rjyrJwkL6F+/r6qHY1Roe1FAJVb+O+jgI7h10M9XHfiAv3EeI0+JoIcuVk
BDqM0+LZ7gLHkb4DwwWYIz82DIoi18+DZSJtm5Hk3oW8QPIeIvvRED+A1pQB
1NOzeDyyQORqCFPFM9hqfYi11l0stW1hvnWZhDyM8ZxODIf14tuTd38liNuZ
yq1HB1G43kCmAFsG0k1tYSYqAgsxUViJicFGTBxOMtKwvCmLJPKBs41VzosN
c52umRLUeggy0cFoa9OHwv3QUguLBezMbaElcwyt2ZsYKD7BXO0LbLV/g4Xa
pxjMm8S71iG8LW9FbxTT+qQJ/Yn16EuuRG9SITrITo2ExKCQyQnR1UA4zbhQ
Pfp4XR34aZF2VldBvK0t+G19eL7xgE2T7+xoxd4e/89+0mD/CGdB9W7hYSd1
C87STEKdJPxk6Gxshno3Q5SaSSJUXZkehzjM75CUJWThfPEG4iWkUKCjjgry
6crvmyGLRpyLCbnXbM6KcL0kxJrInI6i4CdOgDEuLUjz6zj/6I60IXRlDqIv
ewADuQNsvu1SwwoedGxiibeGRSLe0y0DWCBau5TRh/n4Hvxw9lYowFfHj7Ez
Mo8GcsT1CSdGN2/CWFQUd6Wk4U6YZwJUbaVUECUuhya9m2xz7J+xqbc/Z6t8
hLBC1KNZqi2QncN/NjH//PzlndkdtKROoy17l31trukttng/4njwD4L//Nfo
T+lEf0Yr+kjrdKeVoosowXh8Ikrv30ME0cBwAwI6GUg/DS14yanAQ0YBcdZ2
4PcM4wV/g8tWEkdqWCT7hk4096xkpWApyRU3ui8lCR+SWIAMzTFpaQRoayKb
uHPhF9eQ+sk1+P9WDAnKKsgy00cO6d0kZ/LO6RxmzfltbHyLnanAS+dWhZnA
BEf12yzzYj+DbFaQJrefnO3BVQkrj+1FdVwXe92a3o3OzG50ZXejm9jcQHk/
FrvXMNe9iumueSzVj+FhFbnMZaPYLOjHA3okPzx6TXyMubf/nXSKjiAckNH9
RudJsx5aJDsRebQYSCKcSZpl9kB+Tpf0xKyExVl0Yt4jSB9xKDvfwvgntCTO
oCWLS+SZbf4Gm90knuF/wVEfl8TD7+NicN81NaIvpwt9eW10LxUYSK3AeGYK
4iz1EaZN9y+rShxDATHiCkgQU0DiTTkUKZui3tgZy6WVv3pvehvcvgN90h3C
8hcuEuJwuSEKlyvkQl+WQPElZYzcUMaUqDzyxJWQIiKHaLpV7/fq+IUIzGW4
cKtf0Eg61NZIqD3ttJTOJ5CwzmPcPa4ga3ZoBwoiOC+/JrmdPO12NGXTyG9D
fWEzOku6Md44iqm2BTxq2cBZ8wMcNC5it3oKO8V9OGqdIOgyt/Rf0NvSSNpb
94OATV+yzgH0dZmATdfr8mg0kEYEsQOmFC9Tfzncmml1LgjYtNTFSEdjNCcm
D/b0azTHTLGV6HoquB2C9Z5vcTDyPZ5M/YDR7Gn2tbOZFfzHyhhet9Sjl/zF
zswmjOaSnctOQbCSAiIkSQ6SisikkX9LEUXiNMTk0apmimFzF7aq1aRHFNMY
489/wgTXe2g4KIL9Kd3UGoa3uLkUJiqF1NtKaJTTQbOoJhovq2JKUhtLEioo
/lISuRdEkX75FhsPzfQ/EW6nM8L6GesQf8I2nRZupweQF2QodZXlNczhRdj2
E5QAcFXh9iJSvJuQLKjmVpDQhpK0dpSRpEpJUvm5zago4GEzvRTPu07wvPsI
T7r2cdK5g71Wck7raE6VtuN3z1/+lWAqscISOFycsIzha05f1ZIRlinsr8qj
Tl+OphJ951/Qv0xUG8nKmsstDLmr97/IioNxc8oOeKWPBD/9A04m32Kmchkj
Ap/ixYMV/I/NYTxuoHmU24Kx4lKUBvojVlIO8TQSb8kgi0aVhDJqJZRQJ6GA
ZTsfzN11wU5ALNb8orHszXaCFaytcF3/VorL2ahN5lgKSsbCfa5KOE/NBCNq
ZphVs8CqqhVGJPWxIGOIFUVjTMvro+xrMeR9dR354neQLq3MchV/Qmgg3XEQ
M2yF3qox273ax1YftppKDMqFmx5MqranIWcgk1zyEOjNLY7GxrQjIakdiTSp
4jPaEejgj0rrMPxIzvrrQXIYq1cwRZNuMpEeQ1wdOXNlWMiqxZuNLcGk+mui
wSQjAy780PNcRlwnZAtxXaSa3EOitQNRZ2+iQfcQRkJiQu+ZvL8ga72Y9wX0
Mfut6mM2yRngMqZmOx9jfYBrULnZd8BWMmCO7vYZvOEv4z+2B7CZW4Ohgnyk
aeggWVKejKMMUsRlkXNLFk23VdFyRxUTejbYcvDDQ48QnIbEYz8oloQVhTXv
CEGZVq5IIlNghDlWg1PRpMKRtkESzKyaFdbU6D2UrbCtaIa127pYk9TBiqQW
+kUUUHTpJoolpVEmIY04NQ0ugcGacyyFe8HezF4wOYNH5GhwSwncVidz+NFT
Y6QUIijcWEoqp8xUnptgNpFwt4+Eh4kTEV5dYnByKNZxwllQAmruhqKJJNZh
FYouy2B0mweAZ+KNdkM3tBk7MQrjrwSCctIlbsv4NMRdmWKr3vSRfvbe8HVJ
gZ9NAlLt45F5LwFptilIs0xBskkKYs082Xy8AGtdgaDuMydhJ9vatP1zxT1U
zdXSWmrfQH8eF/HTRlO+q2cKR6OjWChrRo+6NhJuySGNpk0sUZh0MkMVt5XR
Jq1OT9kEuy5h2L8fipfhKXgWnoyTsEQ8DI7FbkAkXg1P/OIn0vcRRvwj2SrU
U4EpEJrIbpLUmJo1FkhKq9LG2LhjCL6UIfakDGjoY0dKF+u3tTEprowSsl/l
hJKyW9JcPbb3dmHv08hOjjp3/RmMuwgxbnYeEc4Iy1v/p5XCVG05uKvqwUZK
CqbiItC9dgFalz6D11Ux5NItdtpEYJDGOI3Ju2GYsgzCpLkfJszcMWRohwXv
aGznVP4fAoH1NpETqsc5Kh6Wdgh0S0aIOxlyGskOxLvsE1DtmIiKeymoJKGV
301BiUUyCvWSMNvW/77A3iOAgjP3GP8rahNH8P7RScyhPqsZ1dltaCrqwbBX
GGpu3kE8iSr9lgqKJNVQc0cDzdKaGFA3w55rFIktHC9CkvA2Mh0vI1PxKCIZ
B0zRluAYmmRhAi34jxjxi2JLTjMRfQ1KemhTMUOP6l2MK1lhRtIAa3eMsEti
O5QxxjGNI1kj7MsYYEdGFw+kNLEgr4cOmtC1YtLE41Vhb2kEeytmz7MNBw/5
wsKq6eFhBHR9znk3FTrvJqxGCiVGYitPxJLOHfby0GNKdV9nxpc0LsDs0m8R
cukW4q5JIpXmdZu6PRZtSaHbRmHFJhzLNkFYtvYhhe+OrYAYrPtGYo8MOSez
v0d6WATczKwRej8JkZ4pSPBIIUcwlY0hKTcLQ9u9GLS4ZaDVLZ3OaWikydfu
kYcBvyb0VE2hILMPFel9qEnpQ21CH0aqF7EzfijYCnH/yfZ/wkbqdwZyNXDy
fduQHcFJktmHaM/vR3PpCEpzepHul4VkZRsk3lZBJDl+0WJKSL2lhsLbGqii
pzpi6Iwt12gcesXjVWgq2xrvm+gMvIxKx2OS5lGEoBRTcAR+d3LC7Rn+LVt7
g2m0MUnCbFQyJGFaoEfFBiNSxpi7bYQNaRMSnilOZE1xJscMExzJGWNX1gAb
MtpYJWqzoG6KOVV9vOB1/5nAUjJJOU4C0LNVh99v8E5Cc5BTZje+6pwMUKAv
ygpO78ZFmFy7CLevvkb0ZUmkX7+DgpvKqLipinYZE2zZx2LzXjQZgDBs2vtj
j4zAgaCZzI4v3dXx6a8EEN3f5iPcNRZR7smI90hHlkcOStwLUOFUgBrLZAzc
z0CXfyl6AoppFKLTNxd9odUYCKxB7/0StCe2oTerD4Mkw+FkGiTDweg+9AX3
4puTd8F/Qo49QZFsFxzmeBAUh4kAjk8NxFRjOL4agwnVZK7iMGkbikpFR2SI
aSFVyRKZKrYo1riHOh1HTDpGY8E5Bsf+KfguOhvfC/rgfRuThVckyyfR6TiK
/KkL2uuxMaEch7xIj/omstV0GolytJLu5MmYYUjCEHN3TLBJ14ey5jiTN8dj
Go8UzHAib4I9BUNsyOliU8caS1oWWNQwxLKVwy8FkzCNJoIjqUymKvFPbeK5
VRZ9kavQFhFBrJUZ2pzV4Xzna+iIXITNpYsIucK0xZBC7g1ZlIupoV5cHc23
NDBAH7vnHEsjArtOATggvXQSloSHbGRuFE6LygXlyf8rRjvHUZnG9MMoQ7J7
MQrcK1DlUYMGj1q0u9diKrgG/eGNGIxowGhMMyYTujGZ1IuJuHZMhVZhLKQM
U9n9mM8i74/GEk3KRRLoLAl0JroXq/mTCHqft3DadTgoCrNMkdKgBGG0x6OQ
FDwNTcazMBqhSXgcmoATpnkNU8HWxAG1ZMbbnGLQ70aGzCOJeGMyngs62n0X
k4MfmF5msTn4NjYbr2IyOTlGfVAZSbCJ/3dstMewTzzb+aRBwRgtinfRLKaH
AUkjzEqZ0qQzx76cBQnPgoRIQ9Ecx4qm2FM0wqaSEbb0bLGsY4lFbWOs2zoy
FWe4NbP3W4OkhXPOu3DlkllAdzHQhOaNr6B2mfSnvDpKHI2Ra3YbGiTS8Ovi
SCAHM/GqLApJn1bd0kSzhCapcS10EXfasA7AoWskHjoH4nlkGk4jUrDPxsnG
YVdY++0jbI5MgT8y/d5Hf4TEqPBzqyVcG053q0VtYC9qfdrRGshDr28XNsi3
n8kYw1LOFFbzFrCUN4v57CnMpA9hNqEdcxFM6kUPNoqmsV1CXmPJBJ3HsFE4
jLWcfqwm8fDjozcIfG/ukkkTlqlk2r4uCdu+krifhKXiRXgaXkcwzZffRKSS
aF7SXT2muzoMjceUlQtaZA3ZqGSmdZ2we4awyfK3bINlpoUd08SQxM7Ei8dk
cGKPSmRLIL2aGBcY1b8VxA4no5aMZZOCFRpI5N2SxhiXIpdCygIPZCyxJWuF
XTlLHJDYj5RMwCeR7+kQm9W3w7KeFRZ1jbFm78TUlBHqYSFdSImIwj0jI3a1
hjl0pUShJvI1lK5ehMrVq/AwMkW1szaqJG8i49odJN5UQuI1BbbQXzFZmYbb
muiS0kYvjXE1cxy6ReJlaAoZVE/M2LhjxSNE0OslEq9HRz8SzKe90SkSYDR6
AmMxHBArlLnBjeswvn5d8BMn81zXdlR6dmM0dRXLJXto9e4kwfCwlDoGftUu
Nko2sVqygaWiVcznzWE+YxiLqc1Yy+7CXvU6DmrWcFi3SmMZD2vmwa8gX7Rw
AOtpLR/K/FMMCjrLThHzXg1KZntVnYWl40VEOt5EZuCbqAx8F8Wc0/E6Kg1P
Se7H4aRbrVzRSjLvsfTCLMl8g2R+EMEE8+ZwOQKxnNyZrBO2sbZA5ofRXFOq
3cgogZfyt3h39Ai93omo07QjF9QAZTf1SUEaY+C2GWakLbBM8l6XtcQmTfVN
OXO6NsW+1j0cGDpgg0jmioEVFvSM2ZIym8EhfyxvZjC9xZOiOWahxjStvXYJ
smRnb1+6AD2Sb6sIqX3yhLsui5O8lRF3VQEJInLkFaugmPhZF/G1XhkddEmo
YkTDEj0KTBkXXTTLaxNMiXVIq6BdSw/H7e0/E4SqzZVUkSGMJsExfXs5H8xE
5LpQ7jY3bsBHRR8xdxPOVU/B/V7U+I2gLWQC7cGjyLcsQLV5KjbIFB9kLWEj
ZwNrlQdYKdnCQvE6FguYWIg+rOQ247jpAGctB3jU+hBnbbs4btnCXuMD8Kun
wS/uwqvl7YAPRT/MdJ0NiMNMYDLWyDncJ7E/jsjE68gsEncWsaYs/EjjO9LS
b8jiPiPxn0Ym4yHx4GZpQ/SS6KeD0vAgLIO0dxZOSfTPSMszwXJMj8K3TLMc
Ev3z2EycxTD9qFLYNhAnVVWC4m9/wxaAbLYPQ94NXRTc0EOtuBEpUVOMSplj
VoZMMIl8WZ4ZZnigaotVdRcsqjpgzdAGy4ak2a3s2ajf7dAQrvr3Tzvt3GT6
HEUmdogRUzhXrOHX5OH9hSJRflucEHJ6bkojk0xzxBU5xIsqIJPcgSIpdTQS
o2u/pYpWUXn0KxqgT1EfXSTyVhJ5vZwmauRUUSMrjwQVJeSEhmGxpBKDTJFn
pv8nyZvnxDXOs7x54zxbzEnkJgKUTRBnmY44K67FeZHXMOqCJ9ESNInusAVU
erRhwKkE23EdOCrfw3b+NhZTZrGcMY/V3HksVTzASgUp/4IqPOp4hqddT/Gs
+wmedj/Cadcx9jt2wW9eBb9uDNvldQh432n6jCs36B9FyjqBTHsK1pn+ZGy/
4Sy8ITvNcC1hv+HvadK+Iek/Jxt9GsX1GB23cieX3JPNNlsSJAcdRDLtkJgw
fKarRA6eC1oksUo+Ng27sUnYiolnOnP9pWDhsqechywVJ6Rd1UWhqCEabpmC
d8ccgyT0UVkLzChbY1XHFesG7qTPXTCj5YB5AxtMG1hg3S+M7EYc3k5O/uKP
XMEZmnS8oGhhpbZWE66wSMpXEki6IMpeJ3wujqwvFZGnaYE8CVkUS8kRtZZG
xCUJpNB0zyc3sJHk3iyuxNZy7ZLWIPnro1uR3DsFpmKbJuoUVFEnJw9fQ/Ki
5WXgTzgYZed5PBHeJFiIcArdRvTmuXF3ExVDsIrZe8b9f0OxH9E6nzF0hMxh
Im0T7RGz53+/VvkEMwWH7xmGv8BSYRfmc4rxpOcbvOj/Bi8H3uHZ4GucDTzD
Qe8J+Lwd8NtI4TfxPpT7pzgcGmMdnFHyVmeDUrEeysid+JegaxnHzXLwu1im
8zC9RrJ/TvI7jU7DPttNNBaDjkHk1iVjgrQFk2nIpGHsse3KmFY8XDsepuHL
fmz6eQsvfnXNn56Zf4PXz16huYCH1qIJFGgEIlvSFhUy94jmOZHf5YxZbQ8s
6XpgxdALi8akbIzvY8TAEb2aVuxKFxNbuRcVi9eTk4IASm7rvY9mIVNlmTl4
Zg7nsy/3ohhyv+RCEXK+EkXmxZuI/PIa/K5KIO2OCkrkVVAgLoMsEXmUiCuT
U66IRnFFskUK6GU1gAGHAkWmUJsm6pVIAyjIsRvIznfEYX/jKoLklLBIdrTA
+C6saeYLQxLcxcThKc6tyCUY5QjZdLbrIEq8htCbuIyhtGX21Z7CBWzUPmKv
15ikleoX7PV8A7c0tVLbj6PceryOqcSz1A48LpzG89HvcDbyGgeDT8DvPwCf
yRrpGsAPr57B/321/zER6mh2yWKGBQEJi1T34yimXV0O2xnrewFB/54s9xum
wbAABA/ZYpWxeDM5gdn8RvT4p5KuS2fblqyGM9G1mdhmmu1GMxFw6XgQk4YF
ktBWdb2gMcP/smX3c4EyYI6WAqbYyCp6E+ZQqh2DYhVfNGoGoEsvEIO6Phg3
8MGEiS9GzPzQa+qFNiMCiE8iHoQQgYxJoo+N+aDr3xARWSEIuKf9GUqvc2ag
5MtbKBQAIferayi4JIKCr0SQ9JvrCPpCAom3lJAhyhRwVKD/I0tetxzb76GO
gMAjEHSROuhU0iPHkinUpoF6ZRWk62ggxFwfTmLX4Sh6HQ43rqHb0Q8hiiqw
uXkTdqJiwpnteUsC3pISCJRVh3DRqtB3HHm+nehInENPGldBZCx3Dg9quMKH
aw3PsNzyBg943NbYXMc2FtomCBwDeNw4j981jeO/13Xj3wpr8F37LA5GX5B7
QRphhAmOGsGPr59/CIRfY9Aris1BnyIgrIZyNvyMbPgLQcdpBgzfsZQ9B69J
GzD55+fdZaNi8GJign2n3eE5tBIY+ggMY/Q+U2RNZok6zhBtnCTgDEczrbZm
/1hVf4ABru1nS948uvL5mCw9xUjkAppc6pEr54EKVSfUGwajxTgQzWZBqDXz
J+gV4UFWF1aTK9Hp6UtcyQoWSnKwJ5XsYEBDX5eNeWFWXzhK9iWGAsPY/YoO
h0BkSWiwn1kuooQ6YnzMUfX1bZRc4iZp4WURFF65jiIGGxeuIOqCOELp99GE
h+QbCsgmJVFMDLFcRAa1N2XRKq2NVsJEs7Iu6lW0UKuijgJNdTbyzU9DAS63
ROAsTkP0BspMrGFF/M/2pij0v74E40uXz5WUz22uGY7wSHPpQyFxwcrIcTQn
TKAzbZJ9fThvEkvVXGOv1cYzrLQ+wlLnIyz2cGXOFnlTOBv6V9IGb3E4+AgH
/Sv4cWwB/8/0KPYnX4E/dcbFTo2O4gNi+Nfkdk+zbrfQxO/Q7D4WNJ9msiBe
s8SOI3fnvJ4ld4nYjIoW5mpsjc5jd3wBteRCTpQ306cuYHdy7pd/IvTi54KZ
IVzN5X5ijl+hP3wBE4kj+KahE98VN+JJ5R7OqrZxQDxou2wWqwWD6I0rQJGT
AyykJNisA6ES8NDXw309XWQTP+MesAgRanfkyJsgU6AMam8SxxPjSo7WXZZC
zZU77HXRNTEUXruJwktiKL0igtCbl+HxtTjCCTDhV6WRcEMOqQSAbBJ+7W11
tJGb0HxHGVXyGihT1UKBshpiyTIw++L+mopwI3fSReImXMVvwuLKF5D65J8g
++nHkP/sUyh//jk0fvs5tC/8BjbkDFpevgVfqftINq1Dqksn0skZLA4fRG3c
MFpSh89LgM7V7GG+8QDz7f+TsLcArjPL0gS/yOqe6a6t2Y7tme6qrUo0o2zL
lmyLJYuZmcliZmZmZoYneKInemKWTJJFtmTLbKcpKyuzqnp2Zic2Ys8PT3b2
VMy8iJvvSWlb+s+599A95/v2sTiwh0URd5l+Z2gPj8U/49nUz3g58xNez/0J
+9Ov8XjhJR4ukPIXudnGzclxifK5ss8/QUTJ9zgl3/Pk4+9SZL/Dss0W4hnF
dy/ZuI55Z5ROm4JiO4Y5jIntXs3MkiX/G9f8X0KQJYYg7z771XARNzG93vQG
c6VbmO2Yxx+HR/Bvgn48KZvFTs1trNevkA1shyA1F5XBfvA1N0IALYaVK4RZ
5tyVbbAp955hYoZB3yj2c6qUqsTMdlzRQZ+sHkTXJD2mCmi6II+aC9dQJUXr
Iq0Ll1F67gzMrpyGBynX74w8ws4rIo4SghQKAnMVjFCqbIgaFT3UKKmj6tp1
ZGooIZ65T3cwR5S5HnyuX4brFSkYnvwK+id+D8Wv/gCVb76G2jffQvPId9A7
doQUewymJ68jhDK+LHcbxGkmI8myFWmU6RdEDqA6cRBN6VzHPfOaF9zDZMM6
pjo4tIKJwW1MibhRoc3hj3go/ojHUx/xdOYjns99wPP5d3i8+D12V15ie+Ux
tpfv4u2zp7/Q7f/JZluDgRlkB5mhGMrcyFJvxTHc4vmkY1oUvz1i4jdy35vJ
pH+K23cam//L3zixn9qaYYD6kC6U3BxCbRjXzTyZfR8rxdtYr9jBYvV9zAgX
8aeFSfyPoTY8KZzEQKEQrbnl6MjLRl6QLwItjEmp3KwAw8QRKWFl4GcG4sm/
pl3mOirSpW6g5JIWGi7roktWH/20hqQ1IL6mg146mq1kn+ulFMlnK6JS+jrK
pBgNn4URadhQ5hQMLpyGxcVL8CANR5LNjlU2QISiHqINTBBlbI4S+tlNRnSM
lSlA1FVhtewucwFGp7+G4emvYHjqD1D88g9Q/fprqH/7HbSPHoHG0VOwOKeK
cEMLxFgbwkX+ArsrIrXSEOfUjdSgPuRH96E8WYi6DCGa8noP2ZAG2u+hr+f+
odlbFr7GXdEbbI29wYPJN9ifeYNHc6+wv0hHd+UZttcOsLW2h/Wl25JaDjdc
8BtWvb1BmRgOz8FMVB5WYvJxh9S7LiErTWKGFjmy0vXG1n/9pMJfWl5JK1+l
+wAawubQl8QFpmsl69ioXMdO3QYWy5YxJ5zB+1k6s+Vi9OfUs82yguJ85AR5
s6Mf4UyTpWQcgNs+HGuXZDhZHWlX9JBxQROll3TRcIU86FVDCGXozF7WglhO
H+PyBugm7TZKM6jqiii5eJ0WhfFS56B9+SS0SaOK57+Dk64mvM1MP7uu51oq
opn7TBsrhFtbo8zOHK0WlNhrMRHeaTid/Q5GZ76Cwek/wOTkKah99TU0SKOq
30nB+rI27T4bRNgZwPTMUfLQR2F34SSClGQRZZeECA8h4kL6kBEnRH6aEDXl
Yxib2MfQyC4am+6ivn0DDS0bGG45wHT3EywNPMXtkWfYED/D5tRTbM0/wdby
Y2ysPcK9W/u4s7qLn3/6M6/QQL4gy8x9d5MyReSExWSLp+NoxdPnhBzcauzA
H58+x+/5a7qPB9zQIHPvIvDIR7WTEA3BFC8kcNDoi5mTuFe2gK26NTrTa1gr
m8NG1RzElFJ2l7Wht7gaXVnpiFVSZHuNI21YkA3JPXSc7SesjThVNSSf4ajS
0i9ooURaDw2yhui6bozeqwYYlNHB6FVtiEiR0+qmmNAxRuM1ddRco3D6qjzK
KQyyVZGBvRaDNncVN02MJVf4nxoTLdl5tU/b8QRKnCzQaquLToPryJM7Dbfz
x+B+RRZKf/gOil9fga2cIcLsbeGuowBj0pfJ2aMwO3cUpueOsIj/AYaacFWQ
gaexP7x82hAU3o70vDFUNN9Cw+g+7u2+R1XGJpqK9yGoI12272OCHOvc4D6W
x/axOr2PtYV9rCzvY2l1Hwure7hzf5+/NgnmA5l7E4ukYY4Camt66Ss+vB0O
j2VvU1jvHMENsNb5itERy3FzzZKPvF0kxj2KaDbq57HROIf73SvorelGY0Ur
GsrqEG/lhExVDRTIyiDjqgzi9XV4ATGN9pqHWBaB0rKH+kk+p47MMyooOqeC
Gik1NJOJbL94A30yBqQbM8zommJAhalq6aFNRQstSirIVFNEkL4K23DkxyDL
GjEEL8zlpRl7ecm8JJeXbC+co4Q+1QIu2srwN9dHgYslGhz0sUIK0/vd/w29
3x+Fs6oJgp1sYHr1EnRPHaWDdxSGpCRjWkZ0GM0unICbIsMSQUvpCjwUpRGn
o4HFoGTMBSRho7gRf9x/ijcHfyblvERN6T5aGxjcyX2I+vcxRkoUT9Gao8+L
+xhZ2MMff/o3/oay+PPscDkiHfcpTd+Pyj7knO9KmsQoqWGuUIzFiiks105i
uWkCiy3jaKTAs7a6Ezmp2fCkcMNd3wJR+mbI19FBhbIcCpWuSaKdBHIYcQ5m
h9Y04qgMJZXXkXJKEfnnlCmuVEU9aaCDNDCqzsDAG0FwVR09SrS1VfXQqqqJ
RmWSvo4a/HTlScpGEAs74G7AkBiaHJKiMq8QOwsudD7GTvmYyJyEMS3m5Was
jSALFzhJUU6rdAkuKlehTD5L5ci3UD/2LbRPfgfd00egd4aiExK+/rlv4UqC
d1PihO+mII1RzwBsMuh4IUm4HZyIFf94/Gn/CSvP1aX36Bl8ibLmfdR376OZ
TkkLKaBxbA/bT3+I/kzosMBoaBR7zTBDW38tIgs7FH08icnFa4pAOn37URU+
hfaUSfTnTmK4dBIjNRMYbhBjsHkcxSUdiAmN5TAUrBgMBQv4WljAy9gCsaYW
KDGmCESLBHvtArK0KDZzJP2oKMDy5DGEf3cZwUeuIu6kPDLPKqHwvCpqL+tD
qGaGfsrUmKy+SUYFdTKKaFIhwdPxyldXg7+RBkIstVlWM+YJ9ra2OTpThvCS
n36Q3P9KOteYV7iTOQxIA7rSHKKU6Q0T6F83gKuyDfLMbJBtawMnGU3yMV9B
+TuKEU98B42T30LrNEUS52iRL3MmLbjQStTTxqRXCB5FZuBxZDr2IlKxHZ6M
zdAEPCqtQ8rnIv4tBe2xbDl/JjyT7fV6QKn4M8rcGLyeDwwFaWwNWqP7UZo6
hZr8STo9k6ggzy3OaYDvhYtsN5APPR7HgWFBrs+CdZ+xbAMl8/pXlFFA1mSo
hgYlaSQqXoLB2SPw+O48go8rIfiYHOJOKSH3gg7tXxO0qhlQgqyEqiukGhkl
lMgqkOUi062pBX8TPfgaq9PP0kJ5RuwXfIPkQIcAriamcLfgjo8v/RqSeSYG
9pR5eVrocFv+t4iyjUXSOWss65Fw7dNR5pCOQuMYSrENoERbXPH4N1Ah4aqe
pnX2W0Tp6qLW1gkHURy+2ovobFpZ9JkxBAxkXzJ2QuPwdnwKyZ8LVwrikE+t
WXforz9ggJEoM3pLmdFHpnpKi+lQ+EiZ0ZtEEjx56IdxmST0VHjywmWadz7x
t3ONcTH8hG4cP6UbSbFKqS1FoKbqaLxxGUnSpxB+RA6e31xH2Bkt5Mgbo1hZ
n2ImZeSQcHOvKCGL9m6qjDzCmXEI1evwMdWBl8kN+NvpScilHm5vw8mE894e
ZDuYwSHJcOiNK5zB8LEJY98THWKRbReHbJLsfX0bVFnEodo6BY3OmWgwTUK5
eiwFz3JktY/DlJbXNSnsRubgIDoXLyhIYY70G3bl4mVsNg5iPlHhPaus/YVg
f4fxYKaBihFsNu7Qjn0Qy6BLMcBARZxgkxjBcneIbyjlfJaYS+lKFnbjU1Fp
bnnom9j2P7ZHm+uK4gMIyTyFLeVswWZ6yLczwYSzDay/+gbOx87B64omQih5
9z+niDApJURcVECEtAJ8L8vC+tJZGEqfgL70cXiaacOOjHFOciyLheFkYggn
Y0MMCjqZ6RtJFN3f0w1HMlHONpJBmi/hY++LcLf4Q3+Q55BAoWgyhbCOeGji
jBaHZLQ7p6DDJRlt9P9arRPRoB+DcFkVeNOvEHdNFnv8WWbAK9/StnsXz1zT
5eEVBYNP4uisx0gammJ/IV8ZjAXG80CT2bhNYeRubAGexRfhDXM3n8QU+ZhW
DJJvEiffpyTfBwkk34RU3I+LhZuBMTxMTeFFvt+fdk4QT8Ut4bOP4gdMmZcR
GT5DmRMwUbwIZ7MQ2CpYIFjXBjdV5KF09CjUTp4lv38BumdOQ/f8CbbDQvfS
SeiQkDUuHoGy1Lew0bvBEbcy42amHH6EjzF9NjJCQUwM9re2ILlRdzfnwLKS
fNOQ6J0puUUtd8hFvVMBKmR9cWDnj1b7WAz4FULonYvumxnodk9Fl0M8KvTc
4XbpFLpUjbDPA529oa3HQDoyN2HvyWi+prTpSTxP2sZ0GsXE/0LAX+Hx2CzE
QWkc+iIJeJtUdED/wssE7iaUwZv5wBbNmNoJ/T/KrR8wFxeJKXg3O8MS6TKe
xZ33LP425ixRNuNZWI/CzHDyAjZTVoCLuedhb0i8sg9EZv7IpC1TTEc0RMkZ
GmevQ4E8nyoJWI0yFrWLJ6AoRTkq+XdrFVkOUI+WvxlHJMKQnAfz74G0q/05
snNIoBuSvOKR4puDDN9yZDlyfVy1zpVo9axBtXIknrtHo4+kOxJaA1FIJQaC
S9ETUIBeb5K0UyTKdawxq+2ITdcIsphFLPrXW7YxhEMAe52QjycMLR7Djhaf
jt24xF8a33/Cx0dPMRqQionQTCzyvQYP6BQcJHA1yX9/5bjPXDkmZeB+YjJf
+v3mkK/YzcIcN0nMvjyiNuvIScSBPAiGvys3epDtlYmSmxwYxoa2JarsM1kL
2OaQhmbjRARSIup9+Tj8jHThpqUCQymKY2kP26tdZetVgebGLOssg6T6BUtD
TsGIhRGLphrCk5E/JjGLujroPLkgxSsVqd5lyPKoRYlrI6pcmtDo2YIOvzbU
aafglV86xqI7MR7djtHoFgxFNaAnvAo9IUW0udMx5RKOWR0nbLpF4hmJmQFw
Y+GOSD7vSMyvEpkLerKvhz03CbyUS/ji0N7oPEaCMzDJgjLlYp2/3HvEXO4l
MBe89E7S3eMv99aT0vFydk7iYhgyYCfy225kJDxtScj25of7ND+xhvZQBvtV
mWcGatzS2c/7xjZoc05Di0sqOkngvV4ZEJI5TJLTgTN5PityLWYkZBPpo3BQ
u4YAcxMeU4LHGqD1Bf3XBEfhr6kKp8sX4HxJCo7nz8NU6hyCDB0ohEmlVYIU
h3oUOpMwPbvQ5NMLQXA/GozJXYUVYjxhABOJ/RhL6sVQQid64powEF2H2agq
lpF9WtcJ90iwLJYU7d3XidwtyfdMTTSRgaEjwSZls90Nzxoa+TuNf8DC/A5S
k7soem1CelAT8nybkO/RhAKPNtzq2eCz/VK+fMPglDFAJeKIHCxGfbpUY7DK
tkh198ly3E3KwSp7qdYigfSSjBD2CbtQlFaK9opBCCpHkHMzB0Uu2ZLpo3pZ
d7yw86BzmQuhTzYr6046owMBWWi3jka0vDxszn4Di7Nfw+TcVyyRd7CFKcLY
Io4ZC7rJAG4yxBFfwPOqNI6wdxo3r1B0Iy0F1W+/RKRZAGkjCzHWlUh1aEWJ
Ww/qfYcgjJjFRMoCGq3KKSyowniKGBOpYxhNE2EsfQCiVIYAugezSQ2YY+ob
5i64E5BMVreQbGkRRVNF7D31i0QGWCf/E7BOUirezMx+wQvwzeuPyEvvREpM
E3Kim1AZ0YRmEr0goAk93rRI9J1OtOhXe7v5hr8OK+ODz+3RRXSFZGOIv8aa
oxhmkXzsIol+NjGHNkgWfnz2nGtauoq3r96io6wHgooxtOWOIM+FQ0tscKtA
hxeHQPH2Zgi6PFPJNpZDFFSM/sBCCHxI7q6xaLAMgbn0SVheOgbzc18jXeoS
Yi9fQbSuNqLIBzBzkBGm+vC+dgU+16/A99pl+DGLZG5x6hsof0UBsHEYoszz
EWtVh3THTjJYg2gJmcFY6ipGk+bR4FiPN8lN2C/uwWrePBbzpjGdO4aRrH4s
F4xiJqMVM2lku509cTs6H5sMjA3JXJIlM/A1khcXdP8nlGZ2IDeuEcWxTWiI
bkZ3ZCtEYW0UxLVhmt5nwloxFdKMcb8miBxr8WH7FUI4SVfwF0Mb4iXsTC6j
JTILs3Wd2JtZxu7M4m94jzrVI4agbAhNOaPI9WlEhVcL+7NbfRgMsVb28w/B
8RgMroA4phmjUfUYjqqhXVaK7sBs9PjEwFnpKvQvn4CFmjZiDEyRQ6F/qZoy
iq9II1NLFcG0a33lZOBPK5CWJIAzPkEB8Te/RaR++CG+WqnfJLoTVjCSsYLB
xFnUu7fiDUlhv6yPpLiIhcJZTBVQvpo3xLKjzhYJMJVdjFHK1+Yic7FKm+ku
neX7zAU5ebv7ZC0kp/JhUxs+f9Xnd7LvJXGtqI/tQg8lbGNRItqMo1hJHMPt
lDHcSR2m9wEsJ3Rhkbb4rH81/njwlq9AoYWv1i8u7WNlcR8vn/3AR0z/AZ2F
HRCUTCE/tAuF3gLUBfSjJbBPcjU2YJGJnyhrmUwUYjKhBxNJXRhJakVvbC0E
EYXoCIhHlJEOTBUuwo/iFQ8zMwRYWCLA1ApZ5FgryTbUa1PKJyeNjOuXuLRC
9iJMT3PdeEYnfw8vBWdEG3BxRKqrCLURcxAkz0MQM4H+pEnUebfiVS5tispe
zBfOYK54GhNFE5irmsVa8yxWmwaxUFuHnuAsDIbTsSRLOUtpxyJJd4mOKrdP
//mwoD3VN42KRK7VqjJ2CB3Rk0hXS8e8cTzFa0KshQ9gJ3cBO4Ur2C5YwL3c
Sayl92M1phab1b0SILx3B88wUdmIjtAknsAkCQulTXhI4d9N7oc1sm9H8PrV
DxgUrqC+WITOAhF6c0XoyxChJ0mE6dplfP/4AwT55H3SxUjzbEeJbz8aQ8bQ
EzOF3shxDMTQCXUoxp/TijCVQqc0fRiTmYMQpXWjN7kFnXGVaIvMQGuQP8sS
40deN+izmc8gG0sE6WpLJprqFC4h8hJXjjA69Qe4XTFBlDaHGZztO4bqqEnU
hA2jLXYEPcmjqA5oxYuiTuzWdGGyYAzTxeMYKxnBrbZVLLfPYLVnFAfrd9iH
3aST3EyBbxelxMIYcixxOZ+wkiVwSyWRHIZlbdQ87ec7qHYfxXR4B0WDxdgm
zR+U3MNB1QM8rNpk4dduFc1gLbsHtzI4z8iwfsxXNdL5Zlg/Uj6xfgR/Yv2Y
4iZJ+bl+NLBvihjpW0JjOUcfNlJK4i8SYYFUssTMqWeLMJsuQkdQLVpTBlEW
KUKGRzdKA0bQFEGqSFjAWNoyOkJ6MeFRg7/mV2M6cwozuRMYzxnBIBnRbvI2
7Sl16EjMR09iHAfbaMHVUELZGoolm+Z7k4nxkecGtqOMOA6VKidTtFhrs5/7
FK7ClFLScGUOhjfDdxBZXt0oCxGiMboP7RScVCYM4/nQLObLhRjK68NoyRAW
6UAsdM5jY24Tm8u38ecff+R6bf7uUAu/4rVQGj6Duoh76Ivfw0zmU7RGzGAv
bwDv8jrwrOYRnjW/wqPmp9hq2MWt6ltYKx/DWmEVdnqEGIxIwDBJX8yA1TPs
GaSBuyxrRgo2aN1jmDOCE7EWkICfSQscHg7q+dBwvG8ebZUUBlQOQ1w+isVS
yQ3219iuHGMZ7SWvZIdG0kIfSoPG0RQ9B2HyMsaybqEjYgjT/s34a1kj1kpX
sFCygOkScnVF4+inwzRY3AVhbiW60xLgafoJ0oYrtnC1ai/SgjdpwVfh2t/x
9jfDhUsB7E6dReBVjvIryrYZKZ6tKAzqoMMhQEM8GcqMfjKcFFhld6ErrxP9
5X0Q1vRhRrSIlek72Nt+CElnP/OSWB9J5xHbJ7PC3d+WBPWTYpfRELmDgZRn
mMt/C3H6AfpSZ/ChfhTPSyfwsPEFHne+wVb7E9xuvo+1JrJ+tS0QevqxNzwM
bcAi02wYno5NWrvhGXgYkYG9iHQ8DJfUCROxERTHsE+4fRbqf0b3evbwd5Ws
d6/eoaO8H10VYoxXzGKpfAnrVavYrb+FR0238KSVuwp83LKABw1TqPVqZ79O
9xxgsZvqI6fRlTgPUfoi2qIHMBvagr/WNuFOzRrtqhUsVS9hunIWoxQ1DVb2
YLCsFk1pifAwNqHM1Ay+VlwZhwUzo4PDtNXdZJo6FK4djuwbnv8Geme5wVrN
y2qI0+cInuIdehBFkXWSXytyKQopiWqhQ9OCmpQWNGW3oLWgBV01vWiv60Vr
fS/qKtsw0tH5Ge7G3/3iGrQuulNiwhpiHqE/8zU5ox8wmXeAzoRF3KlbxX/t
GsG9oimI8xYwmDOBiepFrHUtYbGqBoNeAeyBmWM76zOwFZFJKsrC48hsPI3K
ZgdpnkZl4lFkOksWshuWgKfltTy8BZ/8/k/tUr/ie3T+veLai9ogKKezUL6C
6fJ1EvgWdpt2cdD+EC+6HuJ1L9cZ8qL3Ph533ZbUxXK8B1EdOob2WDEdtQnS
H3ldSi9/amrECj3Mas0CFmrmMFUzjZHaUQzWdmOgqgqz/b1wMzSBO18aOqS7
I725XpeBu9xVeMhfk/S5ml46js9f3jf8Dy/AE0w6EO80QQniMDIDu5Ab0YrS
+GaUpzWjMqcFVfRkdaS2mtpeFGaVIcrVFYHGhiiOieHbyL/FzuIDNJN9LPEQ
odT/LuriDtCRQnpKvAtB4gK64sVozpjCy/4V/PfeXvJrDIP8JHqLyK1WdZM9
T8OgdzAmSVeLdJTWI7JZ+iGmpvmc1kvyba9iclkKoqcxWXgYTTqLTKZjF4e/
HBy4fq6yv//3KvtMkWrs57cvXkNQ1AdB6RKGSjdRbVSGtcg+bBWu4YXwFb4f
fI33Im5C/PXwE/a9P2YQeVYcH0rmzT5UhFCoH0MBRuIo6uNGsFY/g6e9g5gl
27pQM4XZ2gmI68chahRhsKETvVXl7M9m6iAuTB2Eodbh6yABpLibuhrsv+1M
nshNkfNUzmocMkyEazKSXThAtX55O4xY+aLGOhmlVoVIcu5GbMA4ksOGkBTb
ggxKN9IyW5Ca24bUfAFC3UPgeE0RDrKK8FLXgJ+ONh5vb/2aV9z23A4EqfMo
cuhHqc9t8lL3URDIYMBNoT5mFBXh7WhN6MBQ3QL+PDOPH3p6MEQuRFjZD2F5
A6rtHOighWGSlLZMgcgmxdv7FG8/jcnHS4bph7kAiePYL57F5mCPlLfLFKOj
EvBhcuoXivuHv6m4z96/4P/Y9tI6BAXj6Cq6S5ZhCTWUeq2FC/AgtBH7fqVf
8Hbq48RHvJngiHIXKfAotOLQWVLcBSgM7KFnE6IjdQQjJePorZnEaP4Axgr7
IS4bINUNY5gi3f7mPvQ2tmPr7h0J/8QD0mBmfAJczM3hYcXV8n3o2NlckzlM
3AqDCxHrmvSZC/oNBq47YtYmAJ3OqWh3TEKjXTyJPRcZ7rVIdSyBh4073K0d
4WFoC3cF5S9wU0GZtu1NOSV4kAJdr8jDR0VN0sUp7OpkgaH7BeySBJupHmPI
8h86POhlkS1oTG5HS44QqyOr+O8rk1hsFUJY24PeshqkXryGUnUzTIVlYjUi
B1sM6UR0AUc6QZno98xVQDxTl83Hs7hc7MVlYzc2A7sxSfgwNf25/v5d35mE
RGh7cQsCvmdSkuVNVT6AiPLh7XIJufI/400ZByCxVC7GaCqH1BJj34Gkmx0o
Ik21UQTeldGL3sxuCjS60F/Yhb7STnqSbnQ3C9HZ1IuyvHyu0/mf8WBnB309
3XDgbwPsKZVPMXdAmXsoOf8iVIdXoDq4DAUuWahyyUO+VjSdLV/ujPkUsWWa
rpuZEuU1WEYhTEkf+QYKiFBThI+SKvyUVBBAy5+Wr6IShTaKuHlVDo2RGdzD
X+ARmWPhbGYEN1oepkYsuRYDcXnTiGOXL/bnsJ4irTkB5IUKkRvOWZqatFY0
59ERrBrEo6VV/LfVIUzUtSLRygpJF68j5coNDLhHkepySXX5eBxTSGF9IV6T
2r5nesppvUlgbhzysMdQPDBXYnHJzOQGZVRPsT0xhzYmowpNhjAkGb1BSdgf
m2Mrvraflyf/15ia/4itOdJyxjy68ncxUv0SS20f2b9xMPxXbA68x4PBZ4dt
TX8ZnMD/0919uEcXyS4E6TUjlExZTiTZoZhuVMd3oiGtE805nWihpLm5rAP1
Fe2oaxSiIK8Ujx9ucybsKNt1VRmYhfLQUlSHNaAtrAPdgR1ocK1CiUEaem9w
nYmj4Q0YDOK4hXsDKZn24UCbWmyikEaJdLulEmJVFRGkpoFgNXVaNxCkqooA
FWX4Kimg2iWMgvMZVqeuEkp4pphPevVjICtNGfpABrjyFPyNOd06aTjAS4sr
4sT79iAjmCsvFJBvrchrQV0ZPV73DDYmZrCtZ4GpyzJIuKyIcGkVtFp6Y4X0
uhmdj0exhXjKEjBwN0ffMwXQBKZdPA8PE0ivCdwkxnphMZumDUYwM44pFP5x
5IyLlKrNMYA//okULzXYfFb4/OLw2NLv/bmSmcUAEXXl7kJU8woL7Vzn+6PR
H/F88k/4fu5P7Nf7U6+wIbyNe5OUWs9N4y8TPViLD0fTCQUUWJQiIrAXcUGd
yIjpRF5KJ4qyaOV3IL+oA9lF7YgKjWC5LJif9+rVR9xa20dJvgg1lLY3ZIpQ
nyrCFsNm+uSjpIzSkk2hSXQrKkO60EaOeCh8FKMRw5wR/B2Go7iCVV9ELWWP
HN98r3cyUs3dUWFnilozZQQoqyFYXh5hpOEQDQ7KM+CGChp9ozAYVQgXA20W
TtmLNMz1vxojyMwYIRIInFPw1eESST1prtXH26Ubwf6cgjMyepCV04XkxCpE
uiYgR8MdS0oGeKZyAynSioiguDn7qjaWyF9ukIIfxHJMCc9JwczN1asErrL9
JJEUnJjDTljM2Tpi2DcEYxFMH0cylknBtz/LAtfpAN9hMsGgBOyW1HN8rqhj
3y5jsnYDgqytw1N3p+977Iy+w8Hkezyffc9+7/XiO2w0LWO1ZR5LLeNYHRhC
obE3BlTtsKpljCg5S9hr+eKmZRB8Ijvh558LP9dAeLn4I0ZPA3d6u9ifJupb
QW2ZCG2U8guLRRimlH+c1Clm4At4WtGlqmX2z26vkDMvpsyuZBHCkg30pd3C
ZM4G27/KHk9jDj12q24DUylDGEvuOwRn6YmqRW9YHrpIKt5aZmh1NkKltjRC
ZS4jUl0ZYdo6CGZwO7XUkWTjCFt5OTioKLK4yb7mHE0a2/dqIcHI/tT3Gsbj
aKt8d4RT+FFYaHuS1faHj4IlAk4qIOq0CtJPaaJFWgclF1WRdl4RqVIqyLqq
xbJDMUMdWzEFbBmd6d9/yrRx03rKUF+wJfRsrDFZirUDO6U6y8x9h6dhnRLK
7XCG0pBJKJnFcM+lsnSGm8Hx+H5sGlafa/ef8Pbxn9CadB9dpRzI0WLPU9wT
PceO+CX2p7lQ9snic6y1zmCxfRrz7eMQ0B4qVDQ+bEQQ3bBGk5wBMq+qo0Cf
6wCRoAJsNpNBpbiopUJEuakIIzwX/GKhCKu0bpGGbzGYBjkizKeJsFG/jLnG
KQgKxRRq30Zf8QPy+s+w1vgG2x0f8LjnB06JGng38kcs5nII4MNpQ+hL4fxh
b3w5hJHxcFTURDz5u25XbXjLnICHHNMcdR3e6ioI1NWEq5oK7BQVYU/fY8D4
mEsq9uLks0uqaJ5/nW1/teKamjVOHoXGUY5fXu+bk/A5IYvA04qIvKiGpAuK
yL6ogOJLTMurIiplb6D0iipKT8gj+5IaxGHZWKSje+ewaE9apjBpj2zyQzqy
O0ncHd2okQXGfJlhmRS25W09nOw05aBDoYXI9i9HsV85qrzKUeNehkqHMog9
s7EdEiPRLlfAOY974jdoynlI2TM3jrjQ9wi3Rh6R2+C0vbX0CNNt4xhvn0Ad
/ZhabWt0a1phlOF517DFIi3mtXTDBjNq9H1lruqyy8wVxidBRG6kvXIIvZUj
bGVgrnwSa6XTWC+fwVblDHarp2lNYrtyHOtlI7iTP0RnuBMCUpsgfwMDJY8x
Vfsat1o/YKfrTzjo//nwjP4w8BgP2rnfczhrDH0ZXHTam14DQWwcDM+fhuU1
JZQ4W0HopAyPy6dgeuEEjC8cg6XMWRhJX4C9sioclBThR6oNItVKSNWjbHgi
OlszSQHB4tuvofv1VzA4dgTaJ058wR/duEtySDsnwyLUFZyRQfkZWVTQewUz
XCIth7rLSmg8o0TBVAzGw3OwQHHwGn9vsEGx7wbfvn0nOQfTXoEYJaUyxYUZ
OqprlPcshOehOKQcFaEVaAquQFdgBQZ8yzHkScu1HH2OZei1KMazgTmerJ1T
riRhaK/fx5BgHxMD+7zk/g/ML+5TZDuOar8E1OjboUvDkjRqjXlNW6xp2uGe
lh37Jze0bPn09h+x5BsEASPZCjGGKmYxW76EVr1kbGaJ8LD+Dh413eHP+z/h
YeMctmoo2k7g7kAEOdsYKH2Kqfq3WGv/ETu9f8bjoX9DpSt35/OnnjU8E72D
mKJ57ndUY+txbellaE/kNGl47hScNHXR6GmOSvOrMLlImrx4DGbSZ6H83Tek
acYCK8NTR4NFrOZZ0RGkr4NwZSVEX+Wmr8pUlVBvoo1I1aswPH0cemdPIkz2
GkJPSSFRShbZ52WRyYAqnZJGzhlpVJyTRcP562iQuoba8zKoPCeNUVNbjOnY
oieEm41jbypi8zDPz8bNJuZiOjELd2vq6UAncv1llAdNheWiMqwMtZQitJI+
+4OrMB5YTcFTDeb9qzEXUIUZvwpMeZVi6mYFfnr63uLzGwhpvHz2F9y68wMq
GvfR3LOPDtE+OsX7mLn3CsMlTWhUM0aLugUGNeg8athhTcsBG9qO2NHhKqAP
dR3Y97vaHG75nJoRhPqWEJSNoZc0OlZ2F31xYjSalGDPPRUHZTN4LtjDq+4H
eN2zgxfd3NTKTusSRlM4/ERB9g6EZc8x2fAOq50/YqvvJ+wP/4yJ4rvYSxXg
x741vJv7CevtDzCUN4We/DFuU52B7tkTbI9wiIUVOr0MEa95HgaXjsFK9gpU
j3xL6zs4Uhzlokkxk5wivC9eRfh5aWTS51JdbdTYcBa32NsCuR4MF44Zbhw7
BuNTJxF7SRYRpMCYU7LIPXMNOadlkUEHs5AUXHvhOtrICrdekkczZTs1F2TR
LKuKNXd/3C9vwObEEloisiGIzkF3bI7kLB2IpyGmpEYcln44uN0SXof+0GZM
BHdQQCzAWkQ3bkd1kQHvJDfdhpXIBixTOng3swu8Mjv4YJMZWmxQNUX7DSsM
q9thQdORFOMkyWUf6TvTcsKeviN/KqSxcMMAfVY+EJTOo69kHZPlD7Fae4Aq
ZyGWfRvYO+E3/a/wdvAl3g49x6shrsj0oGcdi+VjqPXgsqPesmcQN3yPpc73
2Oj7iAfDP2Ck9BbupwvwcWAFr+c+Yo8yq5HSObTn96G5gAt8Q/kmce0zx2Fw
7hgMr15CsrM1Ojw1kKhyEQFaulD/6ghMvj4BxyMXEXpBDikqGsijtLTIwQJ5
HtbIdLOWFFI40FIzFrTU11ATtsfpMJ66gPDTMog/fZ0OoDyqzimg7Lw8akhf
7dLK6JRWQgdlMi3S8uiQU0crrX4tI2yHRf9HPkVnXmKKWRmayu4QrtWnIbQJ
HaHdGAkZoIRlALdD+nA/lhKA5HFspY5ik6LHe8lCrMU1kzcawrtbm+acutr5
JoRH4knSfDyGvCLRoWoLkboDFrSccU+XgyLYN3DFY0NmueCBIa/GK5jQNMUw
qVJQdAv9JbuYrnqK201vsEuir3frptitFR+qpvFh7CPej7/H6zFuKPzB4C62
hbfQGcbD/RYfYLj+BUbr9ugILaIrS4z65FGst86SaxRjvHQcy21rWGrfREdp
L5oKG1Gfx13Hqp09DdXTR6Fz4ST0ZC7AVMUYCXrqCDhzBNXX5REuo4xYdT0k
mJoiwcEKkY5WiCK3GSFpZnXguoVjHS2+YJFL/xnRjhT8OBrj5vETCD0hTWq7
ivhTcsik8LXqvDKaLyihiVbrRUZdpLYrSuhT1EGPsi7aKPBqVVDDlI0dV5j/
l19UnVh1OflBHJyBpoBM7uvgXnQHj5ICprHgN4D1MAr0g7sx51GGpxnD2KWA
YSNnHBsUVGyTRLbq2/EL/f0Dnd6pQ2s8dTMegzecMKvlgtu6btjSd5dUrfeN
6Usj+rYRZzKX3UMxYuiOrvx1NhyZqXuFO20f6Ej9iFukj6n4UfyU24ofhBIH
K4+n4ld4OPoY28PrWKjnoO7a8/ZQGC1GcdQAapOG0MZcHFPq0ts4DRGlMgwn
zVD1ADpLO1mw4NaKDgQ4ekDvMkftY3SNQhVjL/g5plGKEQ9/I+bKPh5pBtbk
5KxhS+mHvqw0bOg90Jrr9Gbvx3gkwRh2nsOCneWIZniwnUwR6WSMmLPnkHBJ
GcFHZRF9XA4ZpxVQeo7y1UuqZB+V0UKrjVa/jCb6rmmjV0Uf7craaFOmc6ev
zxdqfsvygzHVKNfPqlHMy+KsFAIUNFDsybWG1QcMoyd4DpPRqxS5zmEjdhYt
zi2YS+zDTw39eFiyhvvF89jqWMd27y1sdw3+UpMnDu3wJNnh5fBs3I+igNkl
Coukybv6Htg09MC2kTu2GFXa+2E/JBH7cVlY9gzHiNFN9PjXYaDsKWYa3uJO
5x/xoO/PeCr6NwhT17BfJMZ/bRpnf9XXMz/iyfRbPJjkJrC2x+dwf2SV/Rzr
1YvM0F6UxvaiNkWIliyh5EK2q7YXjaS9yqIWpEVnw1JOB65anMMNd01BAq0U
uyRkWqeiSIacNBmMPBNK5fVTECjrDvXTJ2BFWvS3smDxIEP5KzNuKocHC3fi
wI4lIy5xUpcRd04JsWdVkXJODXlSN1B5QZ28mi6G5LUxdE2LHZcVXdclLeqg
Q1YTbUraaFfTQJuKIueQ/wXen9F5MQUnZxlZ2J+7hCQLDr+s3m8C3WHLmIi/
h9W0LVS79qAkaBQTlHM/qtjGw0pSWv06doYPsD2yge0h8S+V93scjJPygpMx
EZJB+s/BfQqGH1Gm84pp0GXawULS8cfEQvxAuez3ifl4npCLvfjsQ+UJsrfR
X/4cU03vcUvwR+wM/ISDkZ/xcuJnSgGm8WPjMH4Srkq86O7cc2zPcRk/9z1D
hNh1I9qHY0gqTBCiMkOIunwhGkppVXIV4hI6gpHB3FiXlaIhIjy47ZvikohM
+yTyZumodstEk5QxnltaoMUxHY32GSg1TES0nAPMlRXhw3b9WvCt1QxyNUPk
xI9Z8Zw9DGevmzE3ARtLRy/urBrSmblJSv0br+ihVdYIYjVTLKmSIimHFsnp
o4/BNGWwReXV0a6ugVY1RbibcwzpnvwItb8ZFxoF8++hpFlnqUuI1OZIFAtd
RJSnr2E88T7yKXrI8J1AT80SaW8DD6t3sVuziYcURexMkvymtrAtnvyFIs8z
FLEQB5EiycsukiI3SJH7pMgXbImY6wP+mMQ3oJMy2Qb/RK5JddiQoe/dpLjx
GSbIGa52vcfmwAfsjX7E08mPuN9PGX3dDP5fhkNWvINHi2+ws/wM20ubuD8z
xROIc0W0ALtEBAYIERsjRFqqENk5QuQU0Xspp0k3Q2M2JTeUvnp4XOId45BF
Git1yUfjzSKU64ViVN4Ojzx90Oebj36/XHR7ZaHOIhI5hoHwsDCHNxlVP9Jk
oGQ061cs7U5J5ucogxTTnFFDmpQmiqV1USejj7arhui4bkThuClmVXQwoKAP
IYNEpKCFZoUbaFVRRYTsWXocg0/KY9JRWqEWJr/if+MgA53Dk+mvVY5yz3FE
WbQjykOM2ooV3Kpdx/3qTWzVbuDJ8Gvsz7zDzvwLbC9sYWtaorsO3oKOBSSx
gKhzPFQMM5zxhO9tf8Py7zJgb0xzMX2f7WvnEL6mA7PRkbKO7uLHGG14joXO
l7jT/5rO+hsWmOTJ9BuIapbxvGcS/zY8gr1V0tnqY2ytbKA6JwM36SG5wqcJ
As1NWeL3QAdvBHknIcw/iZOhJjuPaq8gixuUc/sYOFCgEY04pxSkOVEy7F5F
KqtEs2spyg0icUvXB5vBKRTYVWAkrByisFL0B+ZiwCcbCRaecLM0x00KWxnc
ZObly1tQHyczjPRzKUxHcRuMZRT4Q6iGpPNayCf9VZL+ai/roO6SJnpUzDCj
aQihvBbayaK2KGmhSUkNtfLXYST9HT2aIUuZxJQS2APHk2ZFctRpnNW2NkGk
kRf5wwyE6FQgw64LCS6jyC5YwVTpMmYLlzFfsoSVqlWs1NLnxgXcHr6H9elb
ePfixS+U+A8smsdYUDqllRyaxyaP1PckgcH9KfiCrfPK4BmD1ZXE4TlsJaWy
hJVNkbfRxrDZ1jyCuO0Ai71PcGfoKTbHnmF38hn2Zp5iqJ6M6fAw7aYxLIjX
MTexjLz4KNw041gJ/Eh/QRaUaVuZsZk2ww0VTLs0TEWJfdiEi5eQJycHi/OX
KMgPQ6xzKpJcipDtUIZqlyq0e9ahwjIN1cax2LeLxA5l0KPh9aTAGghDytAf
UYbt6hEsZlShr7sLGcmJcLIxY5GUP7si4lpdBEVd8NTjIrbw42qIOaeJtIu6
yL6ogVwKR4vPK6HyMkUwGiYY19JC2RXKKq4pokpRBd7XpVjSDS+eCCmAxzkP
40kDmGJQoD7XzxVx9iyKrl5GumY04s3rkH5TgOZQMcbixzCeM4PJ4gXMlc9i
qWYGy40zWGidxEKbGNPNfbhT1CBxhp18prJc0sribjFsZkxV6H4sg9aTj/1D
3AYGsyGHspRsbCRnYLexmf2b3z/+GfWJO2gu2YewYZ87NycxJ9zBSPsd9LWt
oLdtEYvCGfxppAeTHaMQZg/DmHJdV11d9ikZ9d3U1oavghL8pa8jQuoK0q8r
oZC+V8GXqEtuWiLZ0RnR9nEUQ+Yjw62Bzl876jw6IfAToMuvBbX6cXjtl4q1
xCaI4wQYiW1Df0wjuiOrcLtqGNsNPfj59Zv/6QL3HKe3giHEOHMYinaXtRF4
4gYCTyoh8pQiEs8oIPO8IvIuKqOErKZA1wjNamrIlLkOH+lz0D33FexvcKeW
ITkK5IcLfXQ5Uxl8Rgp517iyT5uDAVq9zZDr6IZwk3pEuXagIXMVbSlikswE
hguZDEqEuRoRpltIX+1iTLWNYSU+D6uBicy1h9nnqvsN3u8/O0TLmor8hJa1
HscU9eidVHebVLdCpnOzsZV76H/Fi5cfSTX3UJTCQUFVpM+jp40jsgn1T4Wx
liEMFFSge02J7LsV8nUoXyKPpHNMChbHpGHy1Xl4npRB5BVlpKjTBjc1QZ6D
paSFKp6dUTZHmms4HbpMRNmVkdVsQaGrAHXefegMoiwjQoR280z8QLZiMmkY
UymDGE3pRX9iO4ZSKQdLrMXt+m68u7/+d3+jV2l7cV0SXHlo+8L0qh7kjx3n
CyK/RtQ5RcRS0hcvrYrsG4ZoNNNDkNIFGFw8Co1TX0NP6izTTSn5J7xOXkCa
jBzKdDUPe6cLPCyR6sFwmZghhqGcsXJHpG0JcoLGURE/jqZMMbooTu+vGMVQ
3TgGmycw0DKB9eRi7ISnYJNyg/vB8dgvqYUpp7Uu/k53e3wRgrAcDJHGJmLy
MBNHKyEPUxRljicwcwAv2D/5+tVHDDKXTbQn2ik7ExaI2F+ujnLOVDOul9NS
xRIWGoYwl1OB/VUlKP7+a6j/7rfQ/N2/IvqCIsIUtRGpa4JoSyt2si7G0Rph
Tgx0hQXpxpIeniEC+c9sQp3uEocM9wrE2dUj2b4dhR4UkgaI0BE6Rjrrx5BT
CX7OrcJk+gQmM8Ywkj6EsRzKGrOFGMhsRn96Id7vbvNoeVLYmrtHAdYEBFkb
6Ck8wI0zsrh25DgUjp+EysmTMDjOkfTZ0qm3vXgZlnROcj1s0OV1A5onvoTF
xYsw/uoYHL+TQsQlOWRpaaOYvFeRuxUy3ayQ4GzFVQUcLDjaGQeOOjLawRj+
arKoC6xBQWQPslMmUJY3gerSCdRUTmAupwVPIrNoZbKjzw8jGEjsJGyHxOEv
j5+YcNrq4fut7k0sYWtqGbvTDMDUMt4/fcFbj4v4/vVHNFLO3FohQn+ZCOIS
EeYLOS3V2Cazk63Mq1g7GX7yRnCn/PnmdVUY/P5L+Bz5EibH/wCz86fhrHYD
ruo6cLyujJtaOod5s6TuwcYETN7MLp6XxKUaac7tZA/7UOA1iNqgMXRETqLW
txvzPrV4VdSJiaxpzBXMkT+fY9vcRYWDGCwke5FXguf3bnE3zl9zRQ9aA8wS
0OrsRGfyOClvA6XRo7S5tKB0UgpXj57EdTpmysePsr+CltRpaF88Da1Lp2BK
RtFFThph54+gU10VSWrk/MhDJzJksY5WLKQDQ3MSyT9WtIPFF/RsFmwZx5wl
nopyNEa8zg0WWG8qPI3S6kzcp9T6YWQ2P1WdixfROWyf3LPoLDyKImcUycGZ
f5iY4vUmOLx5+KxDmYMFe/vqPVrL+yGoFGGwYgTTZeNYpU1xr2yS+2P26HBL
R6tDGhqMExGmZAIPGUWEfPMdPdJJCiKOwU9JFdrffA0nOm831bTgLK90mB9L
JoOZV7QjU+HgCIGYV7p9DVJdupHrM4KqsGk0MK2sCXNoCBViPbwR+6UDWKOo
a5lBvilbwETZFETlwxikFHCwpAwPljg4vIHuTjhT8OpKi2VBN6V4gaETNTaC
lYwq4q0zEedSwKrMWlGXLKMaNM9fhupJrv9B6Tw9h5Y57PVdKYGJpzgjHgmW
8ch2yUW0qTds5DUpijT7RHhi+6mCwzxbFGmMyf8jKfePZMhzjFRRaG3FYgNM
hWVglfS1RXbtUVQenjFtcrRe8/PaL2Jz8JhtkWPwypNJdzG/OGt/ow2H5/md
6puBgM5Yb8UUJssXsFq+gvtVt7CYOYz+AG4cShRciaHAMgh9C9DjloZKU384
nzqPqovHUW0qjRB1LQTRpvS4LgcDsj62lPc4KinDx9QQwbZ8OnUEEU5cThxr
68d+pzxsFtmktMqwSbTGz0KYNo+aoE7sZXTgoH4Id8qmsVg+h9mKGYxX0REj
5z1U04GB8hJM9nYgJzEGbhSWe5DCvGn5mXHNNIEm3FSsN/lWqwuqMDwvx1LX
WynowF5Jj3NDxynlovTcPQ0hTklks5ORaJ+KDBk7zOk4oNQmFfnGyUjViEO8
RihLzuhn/aleI0n1GdIjBjoinCWmMkWSvSnEoYnsZPwMxe23wnOww7bG5eN5
TAFekU9+Q+t7iiJekm96THrbjcnkYMdj4vC/VdqvubCqtAddZTMYKrtN4eh9
tN/swIJxHO6kdmM0shNiSQe0IgZCy9EXVIQejxikXryCLr1zCCMjEq6lhxBN
HQSqa8Ls7EkSjgZslVXhrqcNPxsuhwrmR5klrEFBPGsQ8yoLnkaG1xBKyYM1
xokhSJtEVZIYDwcWsVI9itUKMVbJbk9Vj2O0boSlIB+sb6OoLBnuBmpsj4yn
BTfSfNgjw8zd8rTUYfR9l+s3oPD1l7hx/Aws5LRhq8g1zviqGyDSLZk2VBLi
XdKR45mJSlp5ZwyxrW1Comp3ycSXqDRPRJlhLHKNo+DNF2uYZudgnmY3hLQX
Qs8VzFLsmmK8qIjSZi51ngnLxq2IXNIe0x3HNDZSusw3Nn4fX4CXFDk+jsul
cJ5OXVwarfj/nfIkZYWl6gMIoufAGVLm9c/oD21AH6W4/eEl6IvIQ390GXop
ixea66DAWB6ROlqI0jVEmI4+gsmN+WtqIMHBHeZKN+Cgp8OmwD62Ftw/R7aU
JZM1RxHPHMR6Sp8JJLsLkRs0gMqYITSnDLMEnwP5IxgsGGFnhRZrmBZWikca
+zHQJERPfQuiSUJ2N66y1QtvljSYmZD+1PwiAX2T0LKaXboCJbLrBtLKMLqi
BN2zFyUYmYke2cj3zkW1Zz6a3AtRdsEaj0zt0O9XTKsQQp9ctLpmoNUxA0UW
YdxTkdL86Mj5OzAcuRbso5VkJbCtX48ZbGQGFpchDSGFrZF53KKjth/zqe3t
C7ap8e/xgsm34klhLEhCGnbi4yXHreuX/WyS4YGd5V1KYGbRXXgfY+UcnOt2
x3v05y7jedMo3pRzMxQDMU0YSKijwLoCvQnlFHxmYtiXYltjCpr0TRClb4xw
PTKFunoIID02UMqwPTqPpuJCNut1tpZMXP8Kon6GP2gHh04W/8J+jrHvQbKv
EPkRQlQl9KEpvR8d2X0Q5JElKBZiuK4P4w0CdNR1o6OBgtgAT9gqScFF78Zh
RYYtObHNLWZ8zP97trHFTl4WKn/4ClpHT0Pty6/JKYVRApWOeJ8C5HqV0NGq
QJNnDWX0Fai95onnDt4YC2/AWEQdRsKrsFM7h9VcIQb985Bo7QFXG3O425nD
w57eKXAU9Xf9im83Gmega9maRjbbo3ifaWGj0/WYThaDbsEUF18wfaekrP1E
ptOJKUyl4sPs3C+U9Tdt4x8Ov7eztAdBzhJ6CnbJczxnv7/T/SOeDv6M0bJF
/DQwwX6vP1mAgTRKaDMb0ZNSgYm0fFT6eCGMTlSUIYVNBrTFDYwQrK+PAH3S
XFoOtqcW8O7Rg0Mwi89/j8Og6DzKY6fJIwiRECBETnQfiuO7UZ7cgZqsDtQX
dKK+UggBnbD22g6EMM5K/Tr0L33HVyl4am52jNsMkTxqVChfpYhhcMSkKbG6
egmGR76B0Ylj8NE2oggiAnF0xBJdipDnWoMK5xoUUSbY4FREmXUI3niFY4p+
j+kEAcTx7dhru4vtpkW2DLNe0sKHcv+ExwyObCCH27DA9KNF8f1oZAMfsaPd
HLIANz6fw450b/OlJ15L3X/rSP0HCNJX0J2/h7EajqByu/cnHIj+LKnb/o+J
cSwWdqM/pwe9uS0Yyq7DdHExCrw9EW5oiAgjMjFG5CSMDCk80oe/kTbqMyks
ou3x8w/v/+MnK/tf4GHihc9fqYkdyM7oRG5uJ7ILBMjMrEZrqAuiNK7AQ+ES
zClZcNfR5ktEZnCWU0SwghJ8T55HyqXLEkiEFlsDtHqYos7HHBZXLkDr9Al4
m9pS4B2PROdCpDhUId+pCTVu7Wj0aEZPIB1IvQS8D03GbNoI5tJEuMdcp/Ts
YrvzLnubud3Yi59fv+bl/58w5JvMIjpIusWYfkCGm2UnjkF2oEUZ7TbbKZaN
zeRMfD83L0mEhZ83B717+hGCpKXPHM1/xv2+j9gf/gELVRxH3vfza/j/pvow
VMQMvHZBXNqCkYoyJNjZI1TbAKFq2oigFSKvjjBVDQSqqGF7ZRMH9zd53pff
Hh4B5sXMqZjJXoep9GXYm3BMCn72QeRrgxGueB1uymrIowxT4KqMHvo3zcno
OB07DyfKRMPPySBdQQWFdPwqyDBVukkQrH6LVA9LlqOW6yXQgPIRCigt/RBp
k44Y23Kk2Teg0FmAOi8hOgIG0Rs2jG6zLPxAPnoiaRS3y1bwfOglHg0cYEe4
g+2eVWx3jeDd5jov99/gw/4zCP3TMRCSzTZzzTFYnGShmLrPXZL7nUQGhzOX
VjZ2mtr4itEA+/Y79vdsjeKAVAeqn2K2jWuf3B5+Q1J/TNEFZ3T+ur6ED6Pd
GCvuwmR9MxrikhFOkoihHCOFVhatXGZdVkGNlg06bAJwr73/1/xogETYPxw8
QYO7N7xIKSaXOUx0x2uycJW7CperMnCVuQInSogrpBSxckEOCZevIUlTFym0
v1MdGDZpSvNdrFkOea5kwQV7kpSfS/dNYHb1LCLMgsnN5yLKsgZpdu0odu9F
nR9XvqjxbIXQvhg/ppdikoLAO+V38GL0HR4Nv8Du0D62RfewPTiF97tbPHHM
P2KqtA2C0GwMkgsYp809FcvgY3JlmsnEbPzp2QtJKXXgM3P/9vFPvB3hzEVv
0RCWZtfw33ZnsV7VDlFlIzJ0TUmSSoi4fB3JtAooy6wiaVbJKGPCMRSznpEc
uWFx/a/5mh3zOpiYgjg8HhMRKWjzCGa/l61nhgRSTCoDgalkiOKzGqg/r4NR
GR1UnVdE7BVVSlLlOGI/MtGhtp8Gh2MkNbtfsTfx7rpysJA/f3hBFWHegGT7
LhTf7Edt4CjaIiZR49uFQbdq/Jhfi4X8FSwULOJh33M8Gn+DHfETbE9sYnt8
Fu/3d37DF1A2JpbIH3EFlN2ZZXx4+kLSJdj3yez+nuXn6+N53fJvjqM6gmta
GEgfgjh/GFMUrA8U9qCzYgAzgnHM1nSjTNcMiRS+xV1WRPxleWRckUeVrCoa
rt6A2NIb93xj8YCfVmWoB1+NTv/jZ7q6XVFL9iuJf+LTWPKOQ5uGBbo0rSDS
tMakhjVGFMwwLGuEqeuGGJAzRO4RaaR/dxHBFCyxZHuHbIkWh9kxczMeyWP+
GMlwxZIYy1Ck2nDD6ikuAywxQ2v4BARxc6gNFkLkU8dOxs8XLWGhaAHLtbex
P/0WO7PPsD27he3pWfzlh/cSPIB+9u1L9p8bZikpOMlNUBqV48tJro1MuZCC
5n6SXH/dOJorBlFb0o86A1tEX2IkpoJsmRsoldFAzVVNdKia4ZZnPB5RYvgi
KgNPo9KxT3ttJzwBm8Gx+PnRk7/nK1+SAy6xqOMhMZRPclN8U14xaNcwQ6+m
JUa0rDGraYNVDVvc1bDDPead/doSDeflkXdcCrlnr7DX1AE2FhxZL5+3hvN5
K5OOMy9TBa5eGGbqg1RzLutPdxOR9CbRFzOO3pQ51Ef2YSK6EzuU1c0Uz2Ku
ZBqTZRPYm3/N4ZIvbZIjnvX6bP9RyP+RzNQoTws9F8E9xXY48/AcrNB4fDNy
MyZQmC/GZGYDRtJrMe8WgDpLe9Rbu6KVAsouc08MW3hhm3wiU6V6E5OD79mV
jZeUPR9EM9ysKdilA/xePMUNdHMbj6twjweTCENSMBXKD2adwwDtwWlNO6xq
OmBdy5HyRq6NcluHaam0xR1tKzRflEfphStIVNeBDx1wf+56mIU0DCYJBjlx
OTHzumnKXdAz4UOSQTn7OevmEAp8R9AVN4bulHG0JY1B1LSMO53TmCim5y0b
g7hqGLvLT3FvdhtrI/MYyC5BD2m7L4RWcDKLVfFgdNbtb7j3SRLnSkQaNsMz
DoEeX0Zn4zWtNzFZLMvfk6g0lrZ21s4Ng3aebDFpgf78vYgs7EXl4Hk0B/r3
jtaHuDy8J3f5Oi4bT2J58D+GNzU86h95U3kwPkPJVgp6bX3Qpm6KLg06zRr2
mGd6G7WcSHrO2NN1wb6eC/b0nLCrR9LUs8WajgUZDRdUyyhwN7a0H71Jkj4k
SR9Hc4md2tveZIm2OUFS8GsQyn5Ode9Dpg+drughdCf3Q5AxjL7cYZbeUlQ6
hOGqQQxRBnRvbgvTHeMYb6VsKDyFknh62tAULDGIE0HJmKGMer24wfWXW3Q8
jKNSmwlPw63wTOxE0vOTbJjB4bexuXjPLtpusdl4Ttttj+QyZ+/J4s9NhDKD
x1nYiMxh51df8kB/HxguLgoZPlIi84ayzqck04fs/CNt06jYQ8q8R6Mk0IBk
CEmgrTfMIVC3xbCGIxY0nbGu44pdXTc80nfDAa3HBi54aOCETQN73LNyZ4kJ
dyPjMZCUhP7ebgwKu7/AYF83z10tsSGexp8E6s/focXb9yLFpw/ZgUK0Jvai
JbUX7Uw6WdSH7gohumsoM6kRYIyEOdI+hqnkfHZs6E4YNzJ0n13JLIDEbUrA
l/zi4PJLqYp5lrLZsAzciaCnj8ol6eWRFPNpp+Wz0vmBfP7beIa9LAv7JJ1Z
By90q5qwXEeL4dnYoL/ziCl1MoidlBp+SChkGc5YqVIQ/DSeR+uMS8VurIQ+
+//CsF8SGpT1KemxROcNOwyrO2FByxXrJM0H+u54ZOCBA0N3HBi54qGRMzYN
HbAbGEfaYThJE/Fhauoz7iNKLPNiY0mOXGWKeTkpKsBLxRch1h2I8uxGEWV4
tZRMVqR3o45kWE8yrKvuQV1VF7pa6JQnF2I1IhXrYWlk8hmohwyygP9/e9f6
1OSVxn97m850Z51+2f2yne3sX9A6jGLddrS123VbRWAvdlsEVHDoIiQQQO4Q
kZACdre6guAliBiC3MFwMZILBAhCuCWEvAkSoIyKwura9vs+57wnaXT7Yf8A
M3OGF8h73vf8zvOcy3Oe5/mxUfAMXZ+Gi0XoZBbx9LCJYaqO39D0L3i/SNKs
WVo4SdJYWslVJmlFsqRtFTPmN/qdMFkhTJg3nCX+c9zcG0vjnkZgWc2zJa4W
ytkSN3gGVMYhJbIlFjOqoAqeQNJVWBiE8jGtiS+/exC6vYfR9H4cen6fCOv+
Y5j6KAmuA8lYjEqG71Ay96v0RB/FPAmyxIJ9GVVvYSkeDQ2JU6tfolvfjOSo
aMS9tw9/iYjAZzt2IDFyJ1L2sGQ4lchUdqBK3QYN7ZM1WgO+ONcKDc3bek2N
SJxxBk5Czk0K52NKeoolgWb5GH5GCqvhRLrstMmdWcCIdJHwgkRmyLw5tmyG
YhW8JI0MjftBySphiDC3tGrhlqaFIy0HLXtiuEnQRigy1rVFQnGZ0WQGg2Xp
vgd03xrd52eESyUsSyQzWlhEooPXMKz5CpfeOUwwHkH7B4kw7T+O8Y+TME2S
OB91Au7oZCpJWIxLo2dXc5e4BUHc9Mg89NPwnW1pSipi3tweEsbEnTuRHrkL
qrd3kVB+iIqUdFQrMpFyJI3vbHP3v8fHN3bwM0bj2xy1w0tStExtWcur+jEN
dJWE4ApNGz6aMhYYjW0OP/d5EcEBBSGYEcymKyMRIATXi+SQ4UclrLBMunJC
0kVha+uJisOAUpjEmY2O7pMYaxH3SfoHj1pkvkiBEkZII0ctuktOc4NCEEF/
vxldx3LQeOAEmvYloJeE0PxRMkYJwQkSwMlDSVghHVkPhrdywkpqTnEpnt0T
q6vvySX52kOsS2LfisAnETv4dWrk21Dt3g3FO7ug/PNh6FM/pj3wdmTujkDb
wU9CpzEOAtFFTfGTKq6Ik5j7rBSySYD+XiBOY/LU9L3c54B8HY5zVzGoLMNQ
VgUHxE01+Atl5zpGuntfiBQDJZR4tLQMnjodetPPoJ8RvTAKRxYpWCD7Bfm4
VYa+z0GkOtVfYF5N44zumsxGvA39aWpuK2VJe22ppFDH8jCRlMf7gVGJrRV/
ye2kSyGfsHIs6xpeEd3P1/W1tK7PkX3iKmOP4E/bZdziIyMR/+4eJL4fxb1h
1Z/Suu2tNzG8Pxotew/BSPsuM731RI58IrJE++rVAvk05AEv4kSkkLq/gCVg
psktP/95Cfw1DzA3ppdxmtkRmlWmGf8VpzliwepfcuPhKpM+Tm1EEkAABL2i
WMB3p7ICxixqPYHOPHJYskzGpOKiVs8TcNMkfVMEnKehSRCpb4PXaIVRUU5d
r+VpTKfoPpYtdlGA7heePMwU5lJrMUeoPQsEwvmSguoXtGYoY5KRc6QYRVQq
4opRHpOLCzEVMMRqoPswG400TPT8LQ1DKi0/hVjIpU7Jp6YViBh9kV6BnUL4
WHy+yKzspnkqIXwX8wss0qKyR6nBbWq1nXTWmR98e9JBenMvf3OZN4b5IH1t
sYXOmjYIMYNSi65sOQrKSmJqp/tGSb9G6D4rtdipa3pN2E9YIszuDK0cCEcA
TwiAObucSITpVJPUqivwn8BKkJ970y8zXzHVYh+mWtdVclbGK6oatGTUkNDX
4NKBDHRtj4IrlrYD8V/hxh81MOxN4MZkB4HkIpB8BFKAxua1Ihmode4sR7IQ
CnaXx+WEcOvCz7HQN4x2evN+aqiNGjouGFicBNAUNdRBb848fVYtw4IT75VQ
NkQ9LRVbaak4csUAycI24Ssijd2rcPeP4CYLI6N6TVSvjdAYITRYbkobDZCW
Ei2eBFZkBXsjNDixOZ8jopIJJ65lnsWlbHlT0aa6SPuZelgVl9EcnQvnvr9C
UhRgRFGL/vgKdB88hYGTWu58PRNmXuc6LjSEj49inF0oPY1vSTsEIt3CRPPQ
vwpTTTPaCFgj9eMgjW0mkrYBmhjv6po5hclv+XdlwjBTXTOa5XgqjoLXYn/1
+xXUT+TJl6aO3kxtaLPSnNWAvkw9rOl6TKRfR+3vjmP1sxSa/OrhLLxBk9Vl
DCUW4HYKbWBIpiZOyXZQlgubTR9+oXySiIl2k1zda2gUC6hbQv8mTXbM3LFj
dsiOnWIYGWDZtWlCupquQX1mDXSZN9Ca0QmT6hbsKQbMKG7i5h8y8G/aGnjK
B+Aq78VUWSvs+ZdgUVViQKXhFLoO6lNnPovlpSGE+tVVIkv5DCNhInCfLgeC
67ktceju77NgUFGGGuqjOkUDriq60KG8DXOODeNZg2g/Wo/hw6XYqqiF76wd
C2fNmK4yYlZno2mjBUbaOPdkVcJEYAxT/47Ro8fp0WP06FHqU3eDnomUWI0/
CG0Yw+zwv8KFlH+iNtWAqyf70KGywVzowN0yJ7rT27CYchYPaVPlPz+JhfOj
mK2zw9U5R8WK+e5+zJPc66ntnXlV6KWZ7hYt4HtpDFqy2MUu9ZHY3ITPtewn
44tmnwsnaHWcegftOWMYKnFiomIe9Z+eJ4Wtx/LFMUi1s/Do5mRSzH4PlVFs
SNLfw2t/MV2bfHLBPueOdqD2pBktuQ4MqGfo3UbRfLwOj881wn3RBe81LwK3
H8N7Zx0us5fKODaWJPyf1RvUk9AVOaEvnUbX6Ulczh6ArbQLy00j8HevYdX0
EPfM9+EZXoPLTtUPj+GbrcfB6h+GuiHMh2YbHixt4kaBA4ZqL3rqArBcX4Wx
zgN7ywKNBj74BtfgN69AGlmGm/GEORax5PKkhlX6g2dizycc6/vXPBrLF2C4
IMHY4IPV4Iej0w+n0Y85kx/zNh9mxyTMTEiYGnfj6ZOn4gkbP3SeI5she+uX
cLlKgr5eQm+TBFO7BFufhNEhKiMSRsbp93Evnjz9VuYzwzMxxqyvfofOzq9x
pUGCoVVCh1FCl4mKVYJ9dg0bW98Ijix8J1o4OreJCc8m7no3oZT/xZv2+cvr
l9cvr19e/+81fvRfJv+1eQ==\
\>"]],

Cell[BoxData[
 Graphics3DBox[{
   {RGBColor[0.4, 0.2666666666666667, 0.13333333333333336`], Opacity[0.8], 
    SphereBox[{1.4720965540000002`, 13.160051864000001`, -0.253223284}, 
     0.255]}, 
   {RGBColor[0.4, 0.2666666666666667, 0.13333333333333336`], Opacity[0.8], 
    SphereBox[{-1.19997601, 12.260542288000002`, 0.315584242}, 0.255]}, 
   {RGBColor[0.4, 0.2666666666666667, 0.13333333333333336`], Opacity[0.8], 
    SphereBox[{-3.06135612, 14.225857328, -0.687860264}, 0.255]}, 
   {RGBColor[0.4, 0.2666666666666667, 0.13333333333333336`], Opacity[0.8], 
    SphereBox[{-0.196531504, 17.549885362, 0.098265752}, 0.255]}, 
   {RGBColor[0.4, 0.2666666666666667, 0.13333333333333336`], Opacity[0.8], 
    SphereBox[{1.846262302, 15.730079224, 0.978878068}, 0.255]}, 
   {RGBColor[0.4, 0.2666666666666667, 0.13333333333333336`], Opacity[0.8], 
    SphereBox[{-5.827914984, 13.47374638, -0.31369451600000003`}, 0.255]}, 
   {RGBColor[0.4, 0.2666666666666667, 0.13333333333333336`], Opacity[0.8], 
    SphereBox[{-1.4399712120000001`, 7.723310162, 0.470541774}, 0.255]}, 
   {RGBColor[0.4, 0.2666666666666667, 0.13333333333333336`], Opacity[0.8], 
    SphereBox[{-3.54323625, 5.91484238, -0.262671914}, 0.255]}, 
   {RGBColor[0.4, 0.2666666666666667, 0.13333333333333336`], Opacity[0.8], 
    SphereBox[{-3.050017764, 3.314579404, 0.852266426}, 0.255]}, 
   {RGBColor[0.4, 0.2666666666666667, 0.13333333333333336`], Opacity[0.8], 
    SphereBox[{-0.438416432, 2.450974622, 0.013228082}, 0.255]}, 
   {RGBColor[0.4, 0.2666666666666667, 0.13333333333333336`], Opacity[0.8], 
    SphereBox[{1.49288354, 4.40306158, 0.901399302}, 0.255]}, 
   {RGBColor[0.4, 0.2666666666666667, 0.13333333333333336`], Opacity[0.8], 
    SphereBox[{4.221647884, 3.673627344, 0.2834589}, 0.255]}, 
   {RGBColor[0.4, 0.2666666666666667, 0.13333333333333336`], Opacity[0.8], 
    SphereBox[{-0.149288354, -2.076808874, -0.287238352}, 0.255]}, 
   {RGBColor[0.4, 0.2666666666666667, 0.13333333333333336`], Opacity[0.8], 
    SphereBox[{2.010668464, -3.8852766560000003`, 0.268341092}, 0.255]}, 
   {RGBColor[0.4, 0.2666666666666667, 0.13333333333333336`], Opacity[0.8], 
    SphereBox[{1.45508902, -6.47231155, -0.8503767}, 0.255]}, 
   {RGBColor[0.4, 0.2666666666666667, 0.13333333333333336`], Opacity[0.8], 
    SphereBox[{-1.084702724, -7.36048277, 0.166295888}, 0.255]}, 
   {RGBColor[0.4, 0.2666666666666667, 0.13333333333333336`], Opacity[0.8], 
    SphereBox[{-3.085922558, -5.415954716, -0.570697252}, 0.255]}, 
   {RGBColor[0.4, 0.2666666666666667, 0.13333333333333336`], Opacity[0.8], 
    SphereBox[{-5.7579951220000005`, -6.164286212, 0.23243629799999999`}, 
     0.255]}, 
   {RGBColor[0.4, 0.2666666666666667, 0.13333333333333336`], Opacity[0.8], 
    SphereBox[{-1.347374638, -11.882597088, 0.49132876000000003`}, 0.255]}, 
   {RGBColor[0.4, 0.2666666666666667, 0.13333333333333336`], Opacity[0.8], 
    SphereBox[{-3.5621335100000002`, -13.666498432000001`, 
     0.12283219000000001`}, 0.255]}, 
   {RGBColor[0.4, 0.2666666666666667, 0.13333333333333336`], Opacity[0.8], 
    SphereBox[{-2.953641738, -16.206290176, 1.3020212139999998`}, 0.255]}, 
   {RGBColor[0.4, 0.2666666666666667, 0.13333333333333336`], Opacity[0.8], 
    SphereBox[{-0.5102260200000001, -17.183278518, 0.153067806}, 0.255]}, 
   {RGBColor[0.4, 0.2666666666666667, 0.13333333333333336`], Opacity[0.8], 
    SphereBox[{1.58736984, -15.253868271999998`, 0.60471232}, 0.255]}, 
   {RGBColor[0.4, 0.2666666666666667, 0.13333333333333336`], Opacity[0.8], 
    SphereBox[{4.130941036, -16.060781274, -0.489439034}, 0.255]}, 
   {RGBColor[1, 
     NCache[
      Rational[1, 3], 0.3333333333333333], 
     NCache[
      Rational[1, 3], 0.3333333333333333]], Opacity[0.8], 
    SphereBox[{-2.609711606, 16.51620524, 0.6614040999999999}, 0.25]}, 
   {RGBColor[1, 
     NCache[
      Rational[1, 3], 0.3333333333333333], 
     NCache[
      Rational[1, 3], 0.3333333333333333]], Opacity[0.8], 
    SphereBox[{3.2824540620000002`, 11.481975175999999`, 0.863604782}, 0.25]}, 
   {RGBColor[1, 
     NCache[
      Rational[1, 3], 0.3333333333333333], 
     NCache[
      Rational[1, 3], 0.3333333333333333]], Opacity[0.8], 
    SphereBox[{-1.7139814820000001`, 9.958856019999999, -0.999665054}, 0.25]}, 
   {RGBColor[1, 
     NCache[
      Rational[1, 3], 0.3333333333333333], 
     NCache[
      Rational[1, 3], 0.3333333333333333]], Opacity[0.8], 
    SphereBox[{-0.15684725800000002`, 19.828894918, 1.5476855939999998`}, 
     0.25]}, 
   {RGBColor[1, 
     NCache[
      Rational[1, 3], 0.3333333333333333], 
     NCache[
      Rational[1, 3], 0.3333333333333333]], Opacity[0.8], 
    SphereBox[{4.257552678000001, 16.682501128, 0.196531504}, 0.25]}, 
   {RGBColor[1, 
     NCache[
      Rational[1, 3], 0.3333333333333333], 
     NCache[
      Rational[1, 3], 0.3333333333333333]], Opacity[0.8], 
    SphereBox[{-6.224757444, 12.360697766000001`, 2.127831476}, 0.25]}, 
   {RGBColor[1, 
     NCache[
      Rational[1, 3], 0.3333333333333333], 
     NCache[
      Rational[1, 3], 0.3333333333333333]], Opacity[0.8], 
    SphereBox[{-5.854371147999999, 6.865374558, 0.7899054679999999}, 0.25]}, 
   {RGBColor[1, 
     NCache[
      Rational[1, 3], 0.3333333333333333], 
     NCache[
      Rational[1, 3], 0.3333333333333333]], Opacity[0.8], 
    SphereBox[{-4.958641024, 1.664848606, -0.139839724}, 0.25]}, 
   {RGBColor[1, 
     NCache[
      Rational[1, 3], 0.3333333333333333], 
     NCache[
      Rational[1, 3], 0.3333333333333333]], Opacity[0.8], 
    SphereBox[{0.20786986, 0.12283219000000001`, 1.216983544}, 0.25]}, 
   {RGBColor[1, 
     NCache[
      Rational[1, 3], 0.3333333333333333], 
     NCache[
      Rational[1, 3], 0.3333333333333333]], Opacity[0.8], 
    SphereBox[{0.91651711, 6.72742456, -0.338260954}, 0.25]}, 
   {RGBColor[1, 
     NCache[
      Rational[1, 3], 0.3333333333333333], 
     NCache[
      Rational[1, 3], 0.3333333333333333]], Opacity[0.8], 
    SphereBox[{4.418179388, 2.641836948, -2.218538324}, 0.25]}, 
   {RGBColor[1, 
     NCache[
      Rational[1, 3], 0.3333333333333333], 
     NCache[
      Rational[1, 3], 0.3333333333333333]], Opacity[0.8], 
    SphereBox[{4.236765692, -2.898839684, -0.9297451919999999}, 0.25]}, 
   {RGBColor[1, 
     NCache[
      Rational[1, 3], 0.3333333333333333], 
     NCache[
      Rational[1, 3], 0.3333333333333333]], Opacity[0.8], 
    SphereBox[{3.42985269, -8.133380704, -0.024566438}, 0.25]}, 
   {RGBColor[1, 
     NCache[
      Rational[1, 3], 0.3333333333333333], 
     NCache[
      Rational[1, 3], 0.3333333333333333]], Opacity[0.8], 
    SphereBox[{-1.7820116179999999`, -9.690514928, -1.007223958}, 0.25]}, 
   {RGBColor[1, 
     NCache[
      Rational[1, 3], 0.3333333333333333], 
     NCache[
      Rational[1, 3], 0.3333333333333333]], Opacity[0.8], 
    SphereBox[{-2.443415718, -3.101040366, 0.6557349219999999}, 0.25]}, 
   {RGBColor[1, 
     NCache[
      Rational[1, 3], 0.3333333333333333], 
     NCache[
      Rational[1, 3], 0.3333333333333333]], Opacity[0.8], 
    SphereBox[{-5.775002656, -7.141274554, 2.7646691380000004`}, 0.25]}, 
   {RGBColor[1, 
     NCache[
      Rational[1, 3], 0.3333333333333333], 
     NCache[
      Rational[1, 3], 0.3333333333333333]], Opacity[0.8], 
    SphereBox[{-5.699413616, -12.625259406, 1.42674313}, 0.25]}, 
   {RGBColor[1, 
     NCache[
      Rational[1, 3], 0.3333333333333333], 
     NCache[
      Rational[1, 3], 0.3333333333333333]], Opacity[0.8], 
    SphereBox[{-4.9775382839999995`, -17.903264124, 0.68974999}, 0.25]}, 
   {RGBColor[1, 
     NCache[
      Rational[1, 3], 0.3333333333333333], 
     NCache[
      Rational[1, 3], 0.3333333333333333]], Opacity[0.8], 
    SphereBox[{0.105824656, -19.494413416, 1.430522582}, 0.25]}, 
   {RGBColor[1, 
     NCache[
      Rational[1, 3], 0.3333333333333333], 
     NCache[
      Rational[1, 3], 0.3333333333333333]], Opacity[0.8], 
    SphereBox[{0.857935604, -12.948402552000001`, -0.602822594}, 0.25]}, 
   {RGBColor[1, 
     NCache[
      Rational[1, 3], 0.3333333333333333], 
     NCache[
      Rational[1, 3], 0.3333333333333333]], Opacity[0.8], 
    SphereBox[{3.802128712, -16.986747014000002`, -3.01411297}, 0.25]}, 
   {RGBColor[1, 1, 1], Opacity[0.8], 
    SphereBox[{1.780121892, 13.288553232, -2.326252706}, 0.12]}, 
   {RGBColor[1, 1, 1], Opacity[0.8], 
    SphereBox[{-1.46453765, 12.045113524, 2.382944486}, 0.12]}, 
   {RGBColor[1, 1, 1], Opacity[0.8], 
    SphereBox[{-2.745771878, 14.543331296, -2.7401027}, 0.12]}, 
   {RGBColor[1, 1, 1], Opacity[0.8], 
    SphereBox[{-0.020786986, 17.992081246, -1.938858876}, 0.12]}, 
   {RGBColor[1, 1, 1], Opacity[0.8], 
    SphereBox[{1.791460248, 15.539216898000001`, 3.0689150240000003`}, 0.12]}, 
   {RGBColor[1, 1, 1], Opacity[0.8], 
    SphereBox[{5.459418414, 15.403156626, 0.574476704}, 0.12]}, 
   {RGBColor[1, 1, 1], Opacity[0.8], 
    SphereBox[{3.016002696, 9.862479994000001, 0.126611642}, 0.12]}, 
   {RGBColor[1, 1, 1], Opacity[0.8], 
    SphereBox[{-7.06757524, 15.151823068, -0.5121157460000001}, 0.12]}, 
   {RGBColor[1, 1, 1], Opacity[0.8], 
    SphereBox[{-6.419399222, 12.124482016, -1.8103575079999998`}, 0.12]}, 
   {RGBColor[1, 1, 1], Opacity[0.8], 
    SphereBox[{-6.147278678, 10.567347792, 1.925630794}, 0.12]}, 
   {RGBColor[1, 1, 1], Opacity[0.8], 
    SphereBox[{-0.42518835, 19.432052457999998`, 3.2711157060000002`}, 0.12]}, 
   {RGBColor[1, 1, 1], Opacity[0.8], 
    SphereBox[{-1.447530116, 8.099365636, 2.528453388}, 0.12]}, 
   {RGBColor[1, 1, 1], Opacity[0.8], 
    SphereBox[{-3.692524604, 5.793899916, -2.350819144}, 0.12]}, 
   {RGBColor[1, 1, 1], Opacity[0.8], 
    SphereBox[{-3.16529105, 3.380719814, 2.949862286}, 0.12]}, 
   {RGBColor[1, 1, 1], Opacity[0.8], 
    SphereBox[{-0.362827392, 2.294127364, -2.076808874}, 0.12]}, 
   {RGBColor[1, 1, 1], Opacity[0.8], 
    SphereBox[{1.353043816, 4.663843768, 2.981987628}, 0.12]}, 
   {RGBColor[1, 1, 1], Opacity[0.8], 
    SphereBox[{5.47075677, 5.349814306, 0.432747254}, 0.12]}, 
   {RGBColor[1, 1, 1], Opacity[0.8], 
    SphereBox[{4.934074586, 2.279009556, 1.68185614}, 0.12]}, 
   {RGBColor[1, 1, 1], Opacity[0.8], 
    SphereBox[{-7.1015903080000005`, 5.610596494, 0.476210952}, 0.12]}, 
   {RGBColor[1, 1, 1], Opacity[0.8], 
    SphereBox[{-4.603372536, 0.015117808, 0.489439034}, 0.12]}, 
   {RGBColor[1, 1, 1], Opacity[0.8], 
    SphereBox[{4.386054046, 0.844707522, -2.067360244}, 0.12]}, 
   {RGBColor[1, 1, 1], Opacity[0.8], 
    SphereBox[{-0.279679448, -1.655399976, -2.3300321580000003`}, 0.12]}, 
   {RGBColor[1, 1, 1], Opacity[0.8], 
    SphereBox[{2.30546572, -4.03456501, 2.339480788}, 0.12]}, 
   {RGBColor[1, 1, 1], Opacity[0.8], 
    SphereBox[{1.419184226, -6.374045798, -2.946082834}, 0.12]}, 
   {RGBColor[1, 1, 1], Opacity[0.8], 
    SphereBox[{-1.0091136840000001`, -7.528668384, 2.252553392}, 0.12]}, 
   {RGBColor[1, 1, 1], Opacity[0.8], 
    SphereBox[{-3.08970201, -5.13060609, -2.653175304}, 0.12]}, 
   {RGBColor[1, 1, 1], Opacity[0.8], 
    SphereBox[{-7.03922935, -4.50699651, 0.130391094}, 0.12]}, 
   {RGBColor[1, 1, 1], Opacity[0.8], 
    SphereBox[{-6.540341686, -7.5966985199999995`, -1.0884821759999999`}, 
     0.12]}, 
   {RGBColor[1, 1, 1], Opacity[0.8], 
    SphereBox[{5.516110194, -4.136610214, -0.7086472500000001}, 0.12]}, 
   {RGBColor[1, 1, 1], Opacity[0.8], 
    SphereBox[{2.987656806, -9.785001228, -0.587704786}, 0.12]}, 
   {RGBColor[1, 1, 1], Opacity[0.8], 
    SphereBox[{-5.784451286, -8.940293706, 2.647506126}, 0.12]}, 
   {RGBColor[1, 1, 1], Opacity[0.8], 
    SphereBox[{-1.056356834, -11.44229093, 2.515225306}, 0.12]}, 
   {RGBColor[1, 1, 1], Opacity[0.8], 
    SphereBox[{-3.9892115860000006`, -13.885706648, -1.9199616160000001`}, 
     0.12]}, 
   {RGBColor[1, 1, 1], Opacity[0.8], 
    SphereBox[{-2.7646691380000004`, -16.021097028, 3.3844992659999997`}, 
     0.12]}, 
   {RGBColor[1, 1, 1], Opacity[0.8], 
    SphereBox[{-0.780456838, -17.521539472, -1.901064356}, 0.12]}, 
   {RGBColor[1, 1, 1], Opacity[0.8], 
    SphereBox[{1.83303422, -14.91938677, 2.662623934}, 0.12]}, 
   {RGBColor[1, 1, 1], Opacity[0.8], 
    SphereBox[{5.472646496, -14.44695527, -0.48565958200000003`}, 0.12]}, 
   {RGBColor[1, 1, 1], Opacity[0.8], 
    SphereBox[{4.983207462, -17.570672348, 0.68974999}, 0.12]}, 
   {RGBColor[1, 1, 1], Opacity[0.8], 
    SphereBox[{-6.993875926, -13.866809388, 1.34170546}, 0.12]}, 
   {RGBColor[1, 1, 1], Opacity[0.8], 
    SphereBox[{-4.457863634, -19.532207936000002`, 1.230211626}, 0.12]}, 
   {RGBColor[1, 1, 1], Opacity[0.8], 
    SphereBox[{0.413849994, -19.097570956, 3.150173242}, 0.12]}, 
   {RGBColor[1, 1, 1], Opacity[0.8], 
    SphereBox[{3.509221182, -18.751751098, -2.93852393}, 0.12]}, 
   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}], 
   {RGBColor[1., 0.75, 0.5], 
    TubeBox[{{-1.19997601, 12.260542288000002`, 0.315584242}, {
     1.4720965540000002`, 13.160051864000001`, -0.253223284}}, 0.15]}, 
   {RGBColor[1., 0.75, 0.5], 
    TubeBox[{{-3.06135612, 14.225857328, -0.687860264}, {-1.19997601, 
     12.260542288000002`, 0.315584242}}, 0.15]}, 
   {RGBColor[1., 0.75, 0.5], 
    TubeBox[{{1.846262302, 15.730079224, 0.978878068}, {1.4720965540000002`, 
     13.160051864000001`, -0.253223284}}, 0.15]}, 
   {RGBColor[1., 0.75, 0.5], 
    TubeBox[{{1.846262302, 15.730079224, 0.978878068}, {-0.196531504, 
     17.549885362, 0.098265752}}, 0.15]}, 
   {RGBColor[1., 0.75, 0.5], 
    TubeBox[{{-5.827914984, 13.47374638, -0.31369451600000003`}, {-3.06135612,
      14.225857328, -0.687860264}}, 0.15]}, 
   {RGBColor[1., 0.75, 0.5], 
    TubeBox[{{-3.54323625, 5.91484238, -0.262671914}, {-1.4399712120000001`, 
     7.723310162, 0.470541774}}, 0.15]}, 
   {RGBColor[1., 0.75, 0.5], 
    TubeBox[{{-3.050017764, 3.314579404, 0.852266426}, {-3.54323625, 
     5.91484238, -0.262671914}}, 0.15]}, 
   {RGBColor[1., 0.75, 0.5], 
    TubeBox[{{-0.438416432, 2.450974622, 0.013228082}, {-3.050017764, 
     3.314579404, 0.852266426}}, 0.15]}, 
   {RGBColor[1., 0.75, 0.5], 
    TubeBox[{{1.49288354, 4.40306158, 0.901399302}, {-0.438416432, 
     2.450974622, 0.013228082}}, 0.15]}, 
   {RGBColor[1., 0.75, 0.5], 
    TubeBox[{{4.221647884, 3.673627344, 0.2834589}, {1.49288354, 4.40306158, 
     0.901399302}}, 0.15]}, 
   {RGBColor[1., 0.75, 0.5], 
    TubeBox[{{2.010668464, -3.8852766560000003`, 
     0.268341092}, {-0.149288354, -2.076808874, -0.287238352}}, 0.15]}, 
   {RGBColor[1., 0.75, 0.5], 
    TubeBox[{{1.45508902, -6.47231155, -0.8503767}, {
     2.010668464, -3.8852766560000003`, 0.268341092}}, 0.15]}, 
   {RGBColor[1., 0.75, 0.5], 
    TubeBox[{{-1.084702724, -7.36048277, 0.166295888}, {
     1.45508902, -6.47231155, -0.8503767}}, 0.15]}, 
   {RGBColor[1., 0.75, 0.5], 
    TubeBox[{{-3.085922558, -5.415954716, -0.570697252}, {-1.084702724, \
-7.36048277, 0.166295888}}, 0.15]}, 
   {RGBColor[1., 0.75, 0.5], 
    TubeBox[{{-5.7579951220000005`, -6.164286212, 
     0.23243629799999999`}, {-3.085922558, -5.415954716, -0.570697252}}, 
     0.15]}, 
   {RGBColor[1., 0.75, 0.5], 
    TubeBox[{{-3.5621335100000002`, -13.666498432000001`, 
     0.12283219000000001`}, {-1.347374638, -11.882597088, 
     0.49132876000000003`}}, 0.15]}, 
   {RGBColor[1., 0.75, 0.5], 
    TubeBox[{{-2.953641738, -16.206290176, 
     1.3020212139999998`}, {-3.5621335100000002`, -13.666498432000001`, 
     0.12283219000000001`}}, 0.15]}, 
   {RGBColor[1., 0.75, 0.5], 
    TubeBox[{{-0.5102260200000001, -17.183278518, 
     0.153067806}, {-2.953641738, -16.206290176, 1.3020212139999998`}}, 
     0.15]}, 
   {RGBColor[1., 0.75, 0.5], 
    TubeBox[{{1.58736984, -15.253868271999998`, 
     0.60471232}, {-0.5102260200000001, -17.183278518, 0.153067806}}, 0.15]}, 
   {RGBColor[1., 0.75, 0.5], 
    TubeBox[{{4.130941036, -16.060781274, -0.489439034}, {
     1.58736984, -15.253868271999998`, 0.60471232}}, 0.15]}, 
   {RGBColor[1., 0.75, 0.5], 
    TubeBox[{{-2.609711606, 16.51620524, 0.6614040999999999}, {-3.06135612, 
     14.225857328, -0.687860264}}, 0.15]}, 
   {RGBColor[1., 0.75, 0.5], 
    TubeBox[{{-2.609711606, 16.51620524, 0.6614040999999999}, {-0.196531504, 
     17.549885362, 0.098265752}}, 0.15]}, 
   {RGBColor[1., 0.75, 0.5], 
    TubeBox[{{3.2824540620000002`, 11.481975175999999`, 0.863604782}, {
     1.4720965540000002`, 13.160051864000001`, -0.253223284}}, 0.15]}, 
   {RGBColor[1., 0.75, 0.5], 
    TubeBox[{{-1.7139814820000001`, 
     9.958856019999999, -0.999665054}, {-1.19997601, 12.260542288000002`, 
     0.315584242}}, 0.15]}, 
   {RGBColor[1., 0.75, 0.5], 
    TubeBox[{{-1.7139814820000001`, 
     9.958856019999999, -0.999665054}, {-1.4399712120000001`, 7.723310162, 
     0.470541774}}, 0.15]}, 
   {RGBColor[1., 0.75, 0.5], 
    TubeBox[{{-0.15684725800000002`, 19.828894918, 
     1.5476855939999998`}, {-0.196531504, 17.549885362, 0.098265752}}, 0.15]}, 
   {RGBColor[1., 0.75, 0.5], 
    TubeBox[{{4.257552678000001, 16.682501128, 0.196531504}, {1.846262302, 
     15.730079224, 0.978878068}}, 0.15]}, 
   {RGBColor[1., 0.75, 0.5], 
    TubeBox[{{-6.224757444, 12.360697766000001`, 2.127831476}, {-5.827914984, 
     13.47374638, -0.31369451600000003`}}, 0.15]}, 
   {RGBColor[1., 0.75, 0.5], 
    TubeBox[{{-5.854371147999999, 6.865374558, 
     0.7899054679999999}, {-3.54323625, 5.91484238, -0.262671914}}, 0.15]}, 
   {RGBColor[1., 0.75, 0.5], 
    TubeBox[{{-4.958641024, 1.664848606, -0.139839724}, {-3.050017764, 
     3.314579404, 0.852266426}}, 0.15]}, 
   {RGBColor[1., 0.75, 0.5], 
    TubeBox[{{0.20786986, 0.12283219000000001`, 1.216983544}, {-0.438416432, 
     2.450974622, 0.013228082}}, 0.15]}, 
   {RGBColor[1., 0.75, 0.5], 
    TubeBox[{{0.20786986, 0.12283219000000001`, 
     1.216983544}, {-0.149288354, -2.076808874, -0.287238352}}, 0.15]}, 
   {RGBColor[1., 0.75, 0.5], 
    TubeBox[{{0.91651711, 6.72742456, -0.338260954}, {-1.4399712120000001`, 
     7.723310162, 0.470541774}}, 0.15]}, 
   {RGBColor[1., 0.75, 0.5], 
    TubeBox[{{0.91651711, 6.72742456, -0.338260954}, {1.49288354, 4.40306158, 
     0.901399302}}, 0.15]}, 
   {RGBColor[1., 0.75, 0.5], 
    TubeBox[{{4.418179388, 2.641836948, -2.218538324}, {4.221647884, 
     3.673627344, 0.2834589}}, 0.15]}, 
   {RGBColor[1., 0.75, 0.5], 
    TubeBox[{{4.236765692, -2.898839684, -0.9297451919999999}, {
     2.010668464, -3.8852766560000003`, 0.268341092}}, 0.15]}, 
   {RGBColor[1., 0.75, 0.5], 
    TubeBox[{{3.42985269, -8.133380704, -0.024566438}, {
     1.45508902, -6.47231155, -0.8503767}}, 0.15]}, 
   {RGBColor[1., 0.75, 0.5], 
    TubeBox[{{-1.7820116179999999`, -9.690514928, -1.007223958}, \
{-1.084702724, -7.36048277, 0.166295888}}, 0.15]}, 
   {RGBColor[1., 0.75, 0.5], 
    TubeBox[{{-1.7820116179999999`, -9.690514928, -1.007223958}, \
{-1.347374638, -11.882597088, 0.49132876000000003`}}, 0.15]}, 
   {RGBColor[1., 0.75, 0.5], 
    TubeBox[{{-2.443415718, -3.101040366, 
     0.6557349219999999}, {-0.149288354, -2.076808874, -0.287238352}}, 0.15]}, 
   {RGBColor[1., 0.75, 0.5], 
    TubeBox[{{-2.443415718, -3.101040366, 
     0.6557349219999999}, {-3.085922558, -5.415954716, -0.570697252}}, 0.15]}, 
   {RGBColor[1., 0.75, 0.5], 
    TubeBox[{{-5.775002656, -7.141274554, 
     2.7646691380000004`}, {-5.7579951220000005`, -6.164286212, 
     0.23243629799999999`}}, 0.15]}, 
   {RGBColor[1., 0.75, 0.5], 
    TubeBox[{{-5.699413616, -12.625259406, 
     1.42674313}, {-3.5621335100000002`, -13.666498432000001`, 
     0.12283219000000001`}}, 0.15]}, 
   {RGBColor[1., 0.75, 0.5], 
    TubeBox[{{-4.9775382839999995`, -17.903264124, 
     0.68974999}, {-2.953641738, -16.206290176, 1.3020212139999998`}}, 0.15]}, 
   {RGBColor[1., 0.75, 0.5], 
    TubeBox[{{0.105824656, -19.494413416, 
     1.430522582}, {-0.5102260200000001, -17.183278518, 0.153067806}}, 0.15]}, 
   {RGBColor[1., 0.75, 0.5], 
    TubeBox[{{
     0.857935604, -12.948402552000001`, -0.602822594}, {-1.347374638, \
-11.882597088, 0.49132876000000003`}}, 0.15]}, 
   {RGBColor[1., 0.75, 0.5], 
    TubeBox[{{0.857935604, -12.948402552000001`, -0.602822594}, {
     1.58736984, -15.253868271999998`, 0.60471232}}, 0.15]}, 
   {RGBColor[1., 0.75, 0.5], 
    TubeBox[{{3.802128712, -16.986747014000002`, -3.01411297}, {
     4.130941036, -16.060781274, -0.489439034}}, 0.15]}, 
   {RGBColor[1., 0.75, 0.5], 
    TubeBox[{{1.780121892, 13.288553232, -2.326252706}, {1.4720965540000002`, 
     13.160051864000001`, -0.253223284}}, 0.15]}, 
   {RGBColor[1., 0.75, 0.5], 
    TubeBox[{{-1.46453765, 12.045113524, 2.382944486}, {-1.19997601, 
     12.260542288000002`, 0.315584242}}, 0.15]}, 
   {RGBColor[1., 0.75, 0.5], 
    TubeBox[{{-2.745771878, 14.543331296, -2.7401027}, {-3.06135612, 
     14.225857328, -0.687860264}}, 0.15]}, 
   {RGBColor[1., 0.75, 0.5], 
    TubeBox[{{-0.020786986, 17.992081246, -1.938858876}, {-0.196531504, 
     17.549885362, 0.098265752}}, 0.15]}, 
   {RGBColor[1., 0.75, 0.5], 
    TubeBox[{{1.791460248, 15.539216898000001`, 3.0689150240000003`}, {
     1.846262302, 15.730079224, 0.978878068}}, 0.15]}, 
   {RGBColor[1., 0.75, 0.5], 
    TubeBox[{{5.459418414, 15.403156626, 0.574476704}, {4.257552678000001, 
     16.682501128, 0.196531504}}, 0.15]}, 
   {RGBColor[1., 0.75, 0.5], 
    TubeBox[{{3.016002696, 9.862479994000001, 0.126611642}, {
     3.2824540620000002`, 11.481975175999999`, 0.863604782}}, 0.15]}, 
   {RGBColor[1., 0.75, 0.5], 
    TubeBox[{{-7.06757524, 15.151823068, -0.5121157460000001}, {-5.827914984, 
     13.47374638, -0.31369451600000003`}}, 0.15]}, 
   {RGBColor[1., 0.75, 0.5], 
    TubeBox[{{-6.419399222, 
     12.124482016, -1.8103575079999998`}, {-5.827914984, 
     13.47374638, -0.31369451600000003`}}, 0.15]}, 
   {RGBColor[1., 0.75, 0.5], 
    TubeBox[{{-6.147278678, 10.567347792, 1.925630794}, {-6.224757444, 
     12.360697766000001`, 2.127831476}}, 0.15]}, 
   {RGBColor[1., 0.75, 0.5], 
    TubeBox[{{-0.42518835, 19.432052457999998`, 
     3.2711157060000002`}, {-0.15684725800000002`, 19.828894918, 
     1.5476855939999998`}}, 0.15]}, 
   {RGBColor[1., 0.75, 0.5], 
    TubeBox[{{-1.447530116, 8.099365636, 2.528453388}, {-1.4399712120000001`, 
     7.723310162, 0.470541774}}, 0.15]}, 
   {RGBColor[1., 0.75, 0.5], 
    TubeBox[{{-3.692524604, 5.793899916, -2.350819144}, {-3.54323625, 
     5.91484238, -0.262671914}}, 0.15]}, 
   {RGBColor[1., 0.75, 0.5], 
    TubeBox[{{-3.16529105, 3.380719814, 2.949862286}, {-3.050017764, 
     3.314579404, 0.852266426}}, 0.15]}, 
   {RGBColor[1., 0.75, 0.5], 
    TubeBox[{{-0.362827392, 2.294127364, -2.076808874}, {-0.438416432, 
     2.450974622, 0.013228082}}, 0.15]}, 
   {RGBColor[1., 0.75, 0.5], 
    TubeBox[{{1.353043816, 4.663843768, 2.981987628}, {1.49288354, 4.40306158,
      0.901399302}}, 0.15]}, 
   {RGBColor[1., 0.75, 0.5], 
    TubeBox[{{5.47075677, 5.349814306, 0.432747254}, {4.221647884, 
     3.673627344, 0.2834589}}, 0.15]}, 
   {RGBColor[1., 0.75, 0.5], 
    TubeBox[{{4.934074586, 2.279009556, 1.68185614}, {4.221647884, 
     3.673627344, 0.2834589}}, 0.15]}, 
   {RGBColor[1., 0.75, 0.5], 
    TubeBox[{{-7.1015903080000005`, 5.610596494, 
     0.476210952}, {-5.854371147999999, 6.865374558, 0.7899054679999999}}, 
     0.15]}, 
   {RGBColor[1., 0.75, 0.5], 
    TubeBox[{{-4.603372536, 0.015117808, 0.489439034}, {-4.958641024, 
     1.664848606, -0.139839724}}, 0.15]}, 
   {RGBColor[1., 0.75, 0.5], 
    TubeBox[{{4.386054046, 0.844707522, -2.067360244}, {4.418179388, 
     2.641836948, -2.218538324}}, 0.15]}, 
   {RGBColor[1., 0.75, 0.5], 
    TubeBox[{{-0.279679448, -1.655399976, -2.3300321580000003`}, \
{-0.149288354, -2.076808874, -0.287238352}}, 0.15]}, 
   {RGBColor[1., 0.75, 0.5], 
    TubeBox[{{2.30546572, -4.03456501, 2.339480788}, {
     2.010668464, -3.8852766560000003`, 0.268341092}}, 0.15]}, 
   {RGBColor[1., 0.75, 0.5], 
    TubeBox[{{1.419184226, -6.374045798, -2.946082834}, {
     1.45508902, -6.47231155, -0.8503767}}, 0.15]}, 
   {RGBColor[1., 0.75, 0.5], 
    TubeBox[{{-1.0091136840000001`, -7.528668384, 
     2.252553392}, {-1.084702724, -7.36048277, 0.166295888}}, 0.15]}, 
   {RGBColor[1., 0.75, 0.5], 
    TubeBox[{{-3.08970201, -5.13060609, -2.653175304}, {-3.085922558, \
-5.415954716, -0.570697252}}, 0.15]}, 
   {RGBColor[1., 0.75, 0.5], 
    TubeBox[{{-7.03922935, -4.50699651, 
     0.130391094}, {-5.7579951220000005`, -6.164286212, 
     0.23243629799999999`}}, 0.15]}, 
   {RGBColor[1., 0.75, 0.5], 
    TubeBox[{{-6.540341686, -7.5966985199999995`, -1.0884821759999999`}, \
{-5.7579951220000005`, -6.164286212, 0.23243629799999999`}}, 0.15]}, 
   {RGBColor[1., 0.75, 0.5], 
    TubeBox[{{5.516110194, -4.136610214, -0.7086472500000001}, {
     4.236765692, -2.898839684, -0.9297451919999999}}, 0.15]}, 
   {RGBColor[1., 0.75, 0.5], 
    TubeBox[{{2.987656806, -9.785001228, -0.587704786}, {
     3.42985269, -8.133380704, -0.024566438}}, 0.15]}, 
   {RGBColor[1., 0.75, 0.5], 
    TubeBox[{{-5.784451286, -8.940293706, 
     2.647506126}, {-5.775002656, -7.141274554, 2.7646691380000004`}}, 0.15]}, 
   {RGBColor[1., 0.75, 0.5], 
    TubeBox[{{-1.056356834, -11.44229093, 
     2.515225306}, {-1.347374638, -11.882597088, 0.49132876000000003`}}, 
     0.15]}, 
   {RGBColor[1., 0.75, 0.5], 
    TubeBox[{{-3.9892115860000006`, -13.885706648, -1.9199616160000001`}, \
{-3.5621335100000002`, -13.666498432000001`, 0.12283219000000001`}}, 0.15]}, 
   {RGBColor[1., 0.75, 0.5], 
    TubeBox[{{-2.7646691380000004`, -16.021097028, 
     3.3844992659999997`}, {-2.953641738, -16.206290176, 
     1.3020212139999998`}}, 0.15]}, 
   {RGBColor[1., 0.75, 0.5], 
    TubeBox[{{-0.780456838, -17.521539472, -1.901064356}, \
{-0.5102260200000001, -17.183278518, 0.153067806}}, 0.15]}, 
   {RGBColor[1., 0.75, 0.5], 
    TubeBox[{{1.83303422, -14.91938677, 2.662623934}, {
     1.58736984, -15.253868271999998`, 0.60471232}}, 0.15]}, 
   {RGBColor[1., 0.75, 0.5], 
    TubeBox[{{5.472646496, -14.44695527, -0.48565958200000003`}, {
     4.130941036, -16.060781274, -0.489439034}}, 0.15]}, 
   {RGBColor[1., 0.75, 0.5], 
    TubeBox[{{4.983207462, -17.570672348, 0.68974999}, {
     4.130941036, -16.060781274, -0.489439034}}, 0.15]}, 
   {RGBColor[1., 0.75, 0.5], 
    TubeBox[{{-6.993875926, -13.866809388, 
     1.34170546}, {-5.699413616, -12.625259406, 1.42674313}}, 0.15]}, 
   {RGBColor[1., 0.75, 0.5], 
    TubeBox[{{-4.457863634, -19.532207936000002`, 
     1.230211626}, {-4.9775382839999995`, -17.903264124, 0.68974999}}, 0.15]}, 
   {RGBColor[1., 0.75, 0.5], 
    TubeBox[{{0.413849994, -19.097570956, 3.150173242}, {
     0.105824656, -19.494413416, 1.430522582}}, 0.15]}, 
   {RGBColor[1., 0.75, 0.5], 
    TubeBox[{{3.509221182, -18.751751098, -2.93852393}, {
     3.802128712, -16.986747014000002`, -3.01411297}}, 0.15]}},
  AspectRatio->Automatic,
  Axes->Automatic,
  AxesLabel->{
    FormBox["xl", TraditionalForm], 
    FormBox["yl", TraditionalForm], 
    FormBox["zl", TraditionalForm]},
  Boxed->True,
  SphericalRegion->True]], "Output",
 CellChangeTimes->{
  3.57586949853084*^9},ImageCache->GraphicsData["CompressedBitmap", "\<\
eJzsvXdcVMf6P/7+BmtMucnNvUk+96YTk9gTLGADG2JH7KIICAgoiIh0pAjS
2wIqvQgKgth7jF1RsWLDLth778p35pwzZ2cPZ9F8vr8/f+cl7u7ZPTPzvOeZ
p80zM0PsvJwd3ey8XCbbfd/f087D2WXyzO/Np3uSWwb/B/g/zvTve9D3dQD7
r478q3Oh/9E7///7/9f3YfTFgEJbK96IEF6EO8I7+nfx/+WrvvTlA+EbA/GO
dAm/7iJ/K9XfT1ESvT5QKb2zyr0a8Qlz4aWxzlesKBO5vq/pu0Zy8cK9bX+v
DSMUFb3r93/VQ6SxDiLs/VC5aY2Ee410Smm48IEqX416T3qkIgbI7esr/ej5
8+fYtm0bioqK8I+/V1ic8NJUKOLGjRuIjo5G//79sXbtWpiamgqvHwm/aaKk
8j2ojRFePpQbOHr0aKH0Q4cO4fHjx7h9+zZmzpwp3Cf3PpIpM1D2eaTUBr4k
etH2kZIMpK6mBaampgqk0ItWVCWWMEEu8heJZkavu7u7UA79sdQSaSyIuJw+
fRpGRkYyLpMnTxZaf1Qs2FqdCX5SaTFHu4jax3jw4AFCQ0OFAukd9tMvv/wS
aWlpOvdZxUcarPj7hqFqIlF29uxZocArV66wr3DixAmsXr1aot5AYCj6G/rp
cIOVfsvhRZ+ilfr6+uLSpUvCZ1pDM6lhK1aswJ9//ik/LtXaSKqUorF7927h
06EGK/2PHoglchhjUohZv7aQ7jFKxU/1f9dwxV9xFdNfUy6iF6VUhlgskD31
oUrFjbjfMR44qOTWL4UbzXSIZMhSJCWm+KdK+Y2lezzvHBDL92wYOp4BcnJy
hE+fq9TAKGUNoZ8qxRo8pCawUUYv+kob0VR6jDE3/ftMpfimXDNoy+in/WLx
biqwsOFFWVrC8z8NlMr3t1Sq6/vBQp+kfUA//Y9KDc2ke7wY2ifW4KyAhY1O
2p0/6UW4iSycFEJor1iqox402MCWAGQVbN++Hfv37+cqEOUB3x8801SItdi/
Pzr0qzt37uBHlRpbcL3KmGaPWIOthA4vRuh17Ngx/FNXOyg0DtN7y5YtEwQ2
/fSRikQR/xcNGwOtnG6uFzpKDcPhM3VxoKYB2dirqqjEsfm5eFl1QGYLtTby
zCi1satKsd+oSB6utUyi8J33D/VGq4HI7JnitOXY5eqNunlOeJ7k3lSl3R+r
yK5dYtm/0xehvsYqdbARyeP9gdBYXXnAnuVknEiKwAKN9La+CaoOnkNajAa3
18SjbskM1C30xaPKysYqVHyigtdO/eh/9Q5eod/qajsDoZfY85+8f1c0ZsSc
uoi5EfE4vyoZb1cE4FWEJd5WVzZSIeZTFWG8Q6zDWAbua4X84ZvP6yNqFGlJ
/lvGXxOpigVFZdi3NBUv18xB3fyJeLo8RyaVbzcburyU3861W1H8v/RIIfpK
Pv+oKyaEZ5tLLVr75y6sKEzF47XEMi10xev5HjIFai3iB6XUIq2HIurD+sYt
zwysAKKRjCQRffJ8DTHsNLi+JhF1ZbNQVxyI50cqWf3/4CQgb73RJki28CDu
J8x+ZRZBY67l9DP91EYFRPGTyKNVVeexZFk5Tq1IwZuVs/EmbgRiZ3liX4zm
U0k5MI5g1fBCcavYKgvpp0o4kpOT5Z92Um2JOKb4e5qcEmxfkooXayKQNM0B
1b374doUF7Dm8HKC/vHDd4vYnH56uERhG/LS5Q9ZbjVSaRP9SwhMRHFeKiKn
TME1q9G4ZWGOLzjuZaNOcn/6cB2lNIqZ5cQ6if79roBHnwj9QBIjvu3HYfpk
J1waMx43R5v/S/opr+42iwWZ6ekcigZtGe2k7roD5wNt7Y1wZv9xONk7YueI
iXjmbMpq4seHVFMPDncVGcMblrQh9FNX3Yr1KNLpUz2wyMIOz6cMxL+5+pny
Ef0JdFPpdzZ+yM/48cG4qJs+iHUgcJ86HWHd7XBr0kjUrc1iTeBZbxMvtNSN
MWqa0s+kfyylgp2cnODc2hbHRo3HmySPL1Wk+Eax4M56ZDflIaXxRRlgGFdD
iHUE1lpMwisX869U5O0GsQYjPehRrlU4Nqzfh0qNopUUa5ZCY2KH+/bD8WJ1
BhgtvB0s1dRBGmINmV2sCt5gZ0bkEK5a+s6jrR3Ojh1LuiZf1hBKm1kqb73Y
gnaK0cnLN14TMv9ntKLGcS2tsXWwDV679JZqbKrDVkz+M+5YJ1bbumH1NUn6
mtVSrFmG3J52eOw4FG+qK79WYTuxB/GrQh8ptTuvjwgKE6UmP3z4EJGRYnyl
quIY/H+3w+UJhNi1ObJvw8u2NWJtv3Do8XJNaUew/pqgUh39s/vVBvuGT8AL
F1PZNOQF2Gq+ukZCZ4wYMQIHDx6kVTvoKbVEsxylfWwFYfEfrjWMo1brEkFL
9fLywjfffCMEXqjnMlkaxcqiizVLENHRDjdFOcCXzkTRqvqlU3iOHj2KkJAQ
oe2TpcdYwEor1g0EYVA1UhAG+K9Kf6/ki28iFE0HGP1EG0urIB5kBxVx3rqB
WqmAWEMExEvn/pKXoSuDVvC1NhWGMxs5lG6uZmlk/S2bkYmveRO8ccq8D56W
ZIgd94H8hPiAWuMbCYInWRI8r9ZksPbTIcAk3HK+/c2EspSjg6Oh7f+ehMmG
ltjfeyBexLpKA6iewc97L8oo1ORWo5FiNBC3J1hIj6vLCsLGEkktORZkvfUB
NzypzuG7p60urvWbx5RkqHUA1psMxgs7E7EpjZVKWrfxjWBpOA4F7hF4WRKK
JxULv+bEoh4xhGU8ES0ETqYcrSSZyRFKSEZGhvA7Jkr/F51UrClGQYeheGzd
k+MzGOiUwTiOUckD2+uHjrB1mYPiwtlYOLkTNqVo5GHDS/1/yKyrNSnmi7UI
MVPO3mws4EEfVFNFPOGt/reE05GyCNGtLXFzZB9iXqd/rc4BHyia1hxGXxvC
coQ3Iub5YOnM3thqbYr7NoNwy88T93IzcbuiUlYX7xF9UGuiOKTxneIrfsCw
kAcfRGTAPH36VARGIfTY7zxbWuLcIHPUrcrA1yrVixzQROhtelEZw3h8+/bt
Yos/QbC1Owa37gVL84HwmmkNv1EmuFKUhMd5kXg9LxB1kW54Se7fHmuBK97T
cSszA9cqKpkpxKvSpgqU/w5KXymeVettkaFojfQTHVEUN97zoIqN4tZFuudA
ZFclL7vYsKCyg11iVR/KMoXqs6qKIwjr7Yo9MfGYH2yP0oULsLikGNv27mVF
HClKxfWiRK4IA+JEmePMTDdcnZ8BNfdFT8CkAVx+UO1ZEQ2qiKmnw2QKVfNN
VdBgk5dhRP5tkOTfl1KPvXjxQpBFDBAa2KTP6I5wqViKkLfXLHgOdcDWsBhc
WpGEp3cuSg36R73xu2f/PqxdtUx4f2KRyH7PsufgbbI33oY44anrCNQM7oMn
i3NwMS2dhcx5cfr/JWIGAmKUfyg6bAaDUs+QYg49FacLfxfF6RcqSFFhxpCS
x1oj6YesYhoqnd5tAmY4u+JAQQye3WVujZ6I2YfC7coD+/Hn2uXYXJCGM4tS
cHdhHF5khuJtghfeBE7Gm+wAHihmpH38t4H6Vv0JNv54O6yFClY/qZRsIIoc
UcTmjnfGKsMuONTKGE/2i9MoxZrFiCHi+tbI3ni+Ol0Sp00EcKkhlJeXh/j4
eEFYET3fQvqaQunUdiRWzpiDqoUJCA3ypm1oJDNoY6lOvjErtuzE4UP7sWBe
MnYWpuHComS83pUpT/zwYr2FiqCdz8lvHdeZTQbQAgj8DJy//vpLBudHVXD0
D+UNydmI/dEch9tb4KVpL1zpbiJ33Uwi6M8PFgX9JxxeVJAzZqR2EKn3Y4kF
o+1CsWRKMM4UanC5okCn3/QYSfoj0AbYtGe3fI+hR9UWE/zFYiEtuZI5W/Qj
FXy+a1DcfyANhw1JhYhpOwb7uo/HqyEjcHewGR6UpwvfUtF+oM9API91bcGB
ojJCP5WaFWHjh3ybAJzM1eD6vsUMer5ZTHApR42+kfRvqWY+IkYpl0IROrjo
PvmJCijfqtSqZUc2rLzbj0UQMaovDLXAg6hheJplhUeproJ030ilu72JPDWt
BxE27xNm7Yn5xAg6uiAZN/ctYVpbshBYWxXD4kupHVSGNhQjptJ7sUjHzxLU
vDFM32sFvAoQWpnaSIsE2MXU0r6+Q3HNcyD2L/PB/UU2uOfTA7mdu2JJj1by
nANDgQoXhgIRLv+UyJ1NLKD4gR44kJyIs6uimD1BbTBqCtBPrGf4eAgfFWD0
LtKll9m/DCYK2acq9H6jEDFqjNdC594yEys8ndAdC8oKsHZJEK4udcbTBAuU
mraEyy9fS8/oygkqUyU58YXUQGrmhEpmzsVV8Xh065xsT/EultIlE+ZgeVp1
TdnP9dGopi7qOSn0/0+Fz8WaUiS3G4UbI/vi+Yp0RCZlIys/FNXLZuBJ9giE
m7XCEndn+E+bBi8PD1kl/1sm7yB8Tex1bJVmDZDHa4RCnrym9SxP5svRV7Uu
NdQr1kTSPH8dg5MDB+Ht8kzhrqlxb8wKngWPaU5wdnTAam8PXPVyxU270ag2
74t7BTk4k5oObc9VwuMPa2zwi8TFco1gXHzIkcY8CEYab6cv5ElrIhhFdAAr
QrDMyKDswwJGajpfpOqfwr2JhqOxqc9w7LK3gttkFzg7OGHi2FGwszTFRGIb
ZyelYmtaCk5q4nA1JhR3gmbi7jRbXB4xGDWeM3AtPQPXCWWfclQyvX9uSQpu
VW+RZ5h5ncao5G3tApFKrSxh6pvSy2UufcHRyXr4OwkahY5krx9ITEGvgJmB
8LR1QKKDLRJG2mJnfBxq1kRKfPwRjp+7hJ179iEyIgErUtNwIC0JFxIjcTPc
H/dmkQ62JR3cT+zg0ynpH0mNjLYLQYlWg6tJSTbyeAEkEf1NwzqeN+3+zZHP
hL7W5GGamMoRdtGnU8NTEdpxLGos++Oyvz2urErEszvnm0pEr9m2B4ULlyAn
Wdnfnrgzlfb3IFzy9BD6mziTTTkNnTdR1tD/4JrGOJAnmpm++e9BdCM5ACFZ
bZ/o0siLIgYFyzzTo0WZIeX88xgcNB+CR17DcO/MlhZaldUMB1OTwF83bUfh
FOntu/nZqE5JZ+6AQhF/rtInhtJP2SypJKfy3ot2etEgjOT76PEVxF+LsUQm
Q1j1xyqOYo3pYDxPmPlVw7CwOks1C+HUfhJWdxtOVZVY52c6WmzttgoUFpYi
NzkN2wib0Iuyyd1Awiauk1BrNQjRbdth6Nf/QViviUxDgyWH8R77T5LI4E0S
Fu99H5BEBmDKXY/bqZxI5RtQmrURu8Oj8LZsFu7Nd9PxG6lrwy7J+pBkp8x0
1Mk5hMBeUzF3uAfmdRiF26P64M2pyo+55unK3BY4cb5GuB8dmYRVRLhQdruY
EImAHqaY0qY1/MyMsDrETtDrXyhAo4rvR6lq5QS0ZL/mNogbC8rwcVoWn9WO
rsaSBOEf5mGb6ROD3Svn4smiSXh94cBnEsK84UIvyXDRYZ8PFL1B/5zbj8PG
oGj8FR8C79/GoHbcCNSty5XNTF0UZSqaYt32CkJ2GXr9boyxhOdW9e+CWX0N
8fxUpRzK4RWrmvTNUaocFgilwpY3BOmwachh5x5uIqOVnlmE0ORYnFwzG49T
hn7C8ZdaXEKLkJo5qUUtYlIQFjuH4kKJBvfPbIVHby9cS5uLZ0SJfSK1n28j
K4dZ11MmTITbz5aoHmiB/e6muB/TH0+PVTLM+ECUGmbZYoGC7SJoVDa46Ze6
RnMDWGkDvKRdFImkeUXILojDtVVeeF4yU7KNmuiLd2mf/0BSYYqqsERTgKTh
3jielYw7+0XH5sTpGpw/tp8Orxbvli3sNhvvtobDsMdsEG75DMTZcnfcCeuH
Bwdk4Hj7hgeOGahZYh0tFF3Ev37BQclMG0XOmY6W559lXOcXNx/rlkbhwdIp
ODO0K57ulzLPmurzq8APK75IZRNFWBqhYn42/Hs6oyIuAZfXxHymopkbKVoY
bO2P1V2G4IVdN2QWhOHC0mk4N6s3jkx0xoO9lYxwZi7VcZYDb+SLtjc+Uu88
ZmtTVbJgwQLZ5qcc+bnMMCKln+s8TMHznOKDGWHROLAqDE/zxuBhd2NcnpeB
mgoxFEZ1Au+aUeRIXxso+pMHTHR6P9S5x977/zwIju3GYJ1/FC6vSMbzOxe+
5FDW1RxaIGmkM7v9UDyyNkN4Sh4KCkNRU+aCx679cHPaNMaMvCXCgORdigxu
FL9H3ORzCXBmiksuxz9VHheZ7ZN68E7vPB7Fvv64M9MZd52dcHGqE9ZMtIYX
aZGXqytW5+RTOJuodG0dH3pi4fzzizWo2SnS8S+tNFGLOjQTZp3CW1nixoi+
WNPPGNaTZmHxolDcipyMWgsLXl8wPafmoqRzqCmro68MDwoTTRnWdqCBPP2h
O6YbS58V5EIzIQA5fSZh0QRHzJjiDHcXFxT6+OBkoB+uuLuidvxIHDXrjZvZ
WbhTUfk35m+0U9YFiB82C8cyknGrwEvJe2qPa+81xfSWljg9yAJL+veBdw9n
lI6YhlNj7XBtUbHsovCWi5oqkeD8VKWVn0vVMM9HOR1Lh7RC7pBq1cYgr0A8
PWbA33OW8PnEuRrs2rUfcZEarI7X4EBMLM6FzMYVT3dcnjQOJ/v2w2GXqQ3j
UD9Fr6riAHy6O2F3TDyurIlFrVNvca5MEZVjAR87olT29hqIMxMtUJmShD/T
01B75PhXCgi1Mer6s/GSW7VAbJvWkvtId+BIMkoZAvxCfcCJI6e5WpBfHtKs
b0VamqHqzEVs3bEPEaGJKI9Pwd7YeJyeE4rLs2bgymQbxSw0M5fs247CGt9I
XF6ejIxBY3G2bzc8W5b+pV7QiMFgHYA1xkSb2HclBkMCnt0+K0/+snwZitgP
Ehex+X+W7MirFGnWQBnu0rZQvMdyi76WWq0noN9I0W+Ud8Ux3gIbt+1FSVE5
FselYidRnaciwlHrOwtXp9jj/LDBOD/dQ1A4tUThMHU8Z6Iv8u1n49wiDa7s
yYaj4RDs7WqGV2Xp+ErRZO3obqpzL9DaC7kdqMowxaOzW+WcHjWDhc+4mScC
oYxy80KNdyW+5JBRsW/5OB7LIzDgBemqLXtQsHApJ7c/xqUAX1wliuLSKEvs
626GitQU9Pv314gZPFPwve/uF0P2IcS8WNGBuOljOkqxIDGYOOaXkYgkcv8m
kfuv1qTLvawWluHTEdNE0r/TM8iZe8BGIX3084bJ/0hBPq1ZOcGkVShizHHf
7v2YF52CjfHJOBIVjQuzAzD8x1/g8NtviBtugQMZXnh0U0wZpxN1836zwI2h
XWQEbMjIWuUXhRlEVp8d1B91qzPl3qwfqtCVzToINKuHADP2pSCN2rQgZ2H+
gyOewa5/dk1XGzI5HTtXg76tjDCpTSuE9WkD794/4dXpSknoHoUvsaeo6Hi+
LJ0tUllCtP4860CcLdLIWVEvY6eqpYTUSXYrn9TBLAE11SVNyf5XXe8y2ng7
/lMVwcFF+JnpwLtfaqYl4xPmpnf7sR3m/mqBWyPMsHxqV7ycPxRXgsVVXg5E
WFSIwuILXWkqwt5UGCPepq7Yl5yI+/tKMNpwMNaZiIJVuZJXpLT+vcYKyJTa
ngnaFE7Q6jjbDCWm1+iP1dw/bjQxa6X+PKk6Wmwuzq/lAFwZ2hvHYiegeqUv
XhSMw9P0qaL8aE/kx+hOYNNMqn2qlQXRkyOx0jcKV1cm4vntc4JhvqT7GLx0
HyyvJeSLUON35lkusA9AzcSRuBnsxmsONQ9II7aHRc+opUkDhbxGb9owdv+R
HqVf0YufR9W/KKs5PAwH4NyAPqhKCkBQ1BzsWzEbj5dMxl3vnljRqTduDOny
PtiVaIqQOi5QCJQ/PrdNEl4rUewVSRg1+G9i1xRuA/1xKSMWdWkuuF+apyNj
1DyfZB5AbYaJNjNJff6RFMcSwxhwMmWNRZVVp7WajvXti7pVosefsrgQ68vC
cHvZNDyP64+o37/F3DGW3HpC3nqf1cMFe5OE0cioXr95D+7eqpVko6rs4iac
iRl29AKiA5JwLS8edSlTUHf+CD9QfpKKYMONXsTB0cGlkc6UA/kl41TmBPPm
ICmTpU/welUZe1W+2hlaCO9fxrvKFuSqv7YhvzACNStn4mXGcIQYfYcyR2uc
T0nH5YpKPWElPklnuXckrq5IIu70ORZU0GVm7QPsasxwO3YBcbOTcSM/DnUa
R9SdO8wT9IMEAR1myuUURIQl8fh9KNylS1pp6J/mfN29e1dnMEpiv6Ve4Jop
qRRexxmai6BNMRaJaIG8oiWImReBzenOiBjyBw55OOC6mxNqJ4zCSfP+OD19
Bq5lZOK4Jh16ol7MJyzRFApfnVmowZNz2/8tq4p6Uy6sAJZDVZxbjsQQDW7l
k5GY7CBgxybo1KaAEnm0RHOVJr7Tr+3s7HTioq30QqQbraKvpRIBLx1MpIb+
A7NtfDDI2AROlt0whVhHxSni5MVRTQLOx87F1bAA3PCejmtOtrgwYhgOmfbB
oanTUJMmzG02lccXQ4m6eOy6tCKkoRRWLhZGgxDZSOhiCc0cDe7kx6Au0R51
Zw+xxAU1aa+d2HPTHZ7jx4/nQWqngpFaRE8UtiJGz227SST9i9zLh8bKGzUF
iShO88ehg+LC7qrT57F5114c2V8JTYIGq9LSiA2ejJNJsaiJCsW1IG9c93DB
FeIwnx44ADu6muJGVhadGAWbJIy0j8CyWWxUnmcOlBp3o6GQRXMBwPL2PXDE
cSjmRWhwLz8adfGT8PDIrnqWB+/IfK9SpquuGuCB66C4p22WfjAfT+ghN93V
aAL2Rsbgwdq5cvbCqYs12F2xH6UlS6WGfIKz8ZEyH113nYyaMVao6tMPJ9ym
48p8whNkwFbu2Q2/ca5IGuWP0wUaXNuV8T+6o1JfDPtDAa7lBK7XxCw8duoS
0iNTcL+AQBY3EQ8P72SQqfk/36mrGaFWcV2Q7DTUR66RDnLgHXiCoKbVANwf
0xMP16WjLKUEixxm41ZpIh5Vb9CJ667bUYED+yoRE5XABM/FmHBcDfHDjZnT
JA+xEcZ8/wuy7WxQuyoMVyoqmXGjaDjXh+oTcxSrlR0IVtPEddfHqmuQTVyv
B/lRqIuxxsNDO2S3Tc1d0g5UNVtF3B5B5k01ZmNz5rx0oyG6CGLb37Qyw5HQ
KQgwc8WJtAQ821+kOhtVx5zpj5GeJM7OVqYmYWT7jsL7cPN28O71PR57dsWV
cR1R6++EJUZG2GpohAt2ztBGXLSzKzqLLX7vgTduXeWxQGdT8mNS8DA/EnVR
Y7EsOAxhvn56Mfr2fTBSU4it1GllkWA+EYQFlfx+HoDLxNBfNXQQ1ntH4P7K
eLy4ffadc3jSDBq98hYvhfFv7YX3By3NUOTSHbWlU3C/aCKeZ1nhVaI5ns/u
iWfmvXA/O+NbPXJtLUXN3YRJ45NnalAUl4rauT4416UHykeNRoRffdCYBtDj
YarxsoTgLyoI/qbyc+U6Ggohc8mmE1v/rEUfHHedgJo8Yo1WZKrOLbL3ijgd
ET7TfxmF00MGESs4E1v2b8GJY5uRnumLrSVeuLDAGW8njsHdIHc11OhYpNfr
6SasO8OmhiHdZAKuDyOia9hwlIWGUNpYjgU1VCmXSaBpVw5wHatrt0hC7Fe9
WKnLPkXghAlgt1bDcZEQdCd6GpH6kQ3NfjbclTt7D8OrmGlydPjMnqMoco3A
UksXXIoMRV0sMa3OHtauGNKuJxIxezWdGT7NEGg9DaO/tYSviSP2jZ2KqyOt
8ezoEUbBj1J/KtdiUxDVcvIl9vpNBbJf300wl5/Cbs8LysbF3Hg8WzsHj09v
+kSXKCbg+V5ToFXaxQrPJvWUubbqwFnMnRGHa/OIQIqciLfVB6TVl7oBUZ7J
XniwxO0PCWBusGzliBHjwuHv7IGj+eW4XXVC+JYLCDFHQJmEIc0UNZdbrw26
TBGbr2bK/tIQdrqZKyzDlWbZ+Zs6Y20W1QWLxHoM6iFXrClBfLuRuDOmL16z
LTsISlUXofFPxN154XgbMgqvj1dKKH3EA02cgWz8ZdRDvhdoPR2WbV0wctJc
zC8pwfVrZ5TRbmqAqUn+puo0BopvWqugYqhHmupBh+8hX6sZWOsVLoj8l3fO
yjFfz19H4dzQgYJEaixhcezkJeSFJOHx/BC88LXEwwOVohrUoskmvQOtZ8Ky
gxtGO0Uha2mx2uovnnTm6KjNZ2pJb6OPdNW5kkbYuWEH4oZ5kWGTiAd7s1kw
d5LhSFT0GSqIDlZhNdHOy+YSk5uuCcsN+gdPC0NTuljcY8B37RH5y+8I6Ngf
lh1nYNzUaOQvX9ycI1WZLss7K40bJLWt9AQfsmsnPTHl97HYHR5NZGcUZXBG
1hJNKcqNrYin0kPrTQTk4s/YJLxM80FdurdakFJ/ZLmJYE93/vxrWBIFZ2ns
hYkzYrF4VaHaehlGIu9J6JlnlUhsp1LKp4o+1G3WF1KzaKQ63zYQN0oScadq
DZM0LJGLjuRkMpLvje2LV9Vy+mVc1CJUJCbgdYonXidPV5tH5Rcq8bJqkyYD
1t+2hcU3v8Kyhy/sfGJRviaP5a7xeRhN3xNifiMS5kfoWT4l4dVe+g0f89Zj
oemPADZGQrs+qOpFjLCFubicli4kJIsd2kwQlb49puCYJl4QlQpRzqwrmlfv
ReTDhWFUPmQ0k26nJC9BFXnybRLR6+FuajlpPMAnSWUFE11RamKBqgn2uBHm
h/HdjTF5lCXmOAzE1mBbVgRvRTR5T4DZPUpTQru+uB86Q06T46WtNk0iSISv
gwrOH0ngqQlYzvKnnlE5yt1D8SA5BE/nzsITX2c8mDIOV6wG4KCpGe4VZONS
ajquklYx2TN30mys9pyDeyuoCD7HdDavJtgkpD0RXfv7DcXLmKnSNkmNULCg
DOdSY4lv70StHT2ujqjmWiC+rSm2DxiJix7uuJcchrsl8Ti4NBZ7t6xCv55d
MN/TCW/TZ+Dl2nx51zB+ekeNv3VWOgVaz0GpexjeLvaR80xp8LS0tFR4iGAe
JuL3uz6gufiRWrZMU/y1pQJrlpdjWWaacP9cdiJuLojCw8TZ0hPNUTvMAnt7
muJuXhYupKRjc3I6dsXPFyZDL+QQD3pfDtQ0MtsiIth6tlDSc9vunGpjo6hq
3xmEucXiShrxeKMm4e3pgxKTaFeyMAanl8DgoX64nxOFK8sScXx7Me7c0q6Y
zE0vw4VMGoGmnXhIiTxtGNM7ajzIKT3qBluZ+SIqIQWXq7ezoa1vextJHYWK
xfzB1cumnT9UlzFadSuOf3ESdv2uPThysBIbVy7D6iyxdy5kJeLW/Eg8SgjC
0zmeeOLlgI19LbDqZzNctCJW9hxn1WU56kmtauynlfv0uj+uD16cqmxICNKg
f4JPAm7Pj8DbsDF4c6JSpJNZg4phwpyiK6f3KKoV7ego7wTcyonG25jxeEUs
RGX/aRMb1AcmYwMqrCzbTIarVwK2/rWETYOzPW+p3cDI4m2JELFTjFR6r/m7
ek9AnpNhonDevKcCVaQf/1q1DOuy03A4NwVrXb2w19wGT8dMwj2rIcrJX9pl
+rO51buMTkX7/DZK/G51hv4JtcaIdglE5uwkPJwfilf+w/H0cKUkjJrjhDTS
ljBVIo+0JJzYUYy7ZKQxIKqOX0L2nGQ8yZmDuuI5n3BUvGMN6Qf1uivQOhjj
xkYgMycZ92+dY7PS/ARasPh0R31d8479EfWn2OiydCMkOEag3IJuL+aAa/5B
agvB/l7vGGB6Z0fx/oEVqiqWdY2HYUdsGTIESyKS8Gw+UaP5s+Vpoo3EdBIG
kwWnc4rjcWhpHB1NTFstW7RFyCt7mUOsnRwf1iv1Zqw5IazrpdKY/PCe3giN
0eDsie2q+xPMFoHspALNv9+rL7Zkl+NYYbnEdfV79KO/CfDZ0+IChzd3z3Pk
cWEYcXo3gOB728oEoaNdsD6GWvN+qMv0wcKEeIH1D6Zm62H9EsL6NfI0aExE
EfamJuNNphcex03/SK6RNIVfI8zNjzbCUqI3LVvbwsUzAX9tLuU3c2MmlIRr
ZxVc/9Ugrp8pMKQNaPGeGDa414CeAIGYZxv3c0c8sha2hkQsgWRXQiISzLth
xq/fIK97d4lNQwU2PVwusClL+1uQVooz6Qmom+eKuvOHeQ1F7VNtTerr4OeP
d4b7D4MwdlQ40rOpzDgv77rGu8GSJdpFH6B6tAi/Bob1J1srrcBDFxcVZBWc
+IGeYrJ/7YRnk01YkLvTD20xsW0bBHX5BdGD2gtceFLiwi+llodOj8X17Bhi
r9ooFwCxZQtqAQvK6EUTXZDcqh8SOk1CcJQG1Q7WUNtjTfKYjFXwU/OimukS
LLxrcO5XbNnStp3xaqrIR1Rxt/2qJWaRoVpp0Qn+g3+Tt5OqqrqA1OBkPMqJ
wIvgEdrNGCQLhzaPXrR5DNfzpLw1dm7Y038Ybs10wav5s7HS0hlnxk3Bdf8g
lr7Je9sB4sMmKkT/pEIMI7SxCiD/w/WJlivo1Zw43+nY9Duh3FOc+wm0DoR5
K0sEGRrj9nATPPtL2guM1HeyugZLozV4kUPUYEGA2tAWPzXDgg49UWU1Gg9m
e+B1bhjur4zF43N7sKVgOaqLytlGuPx2efSiVpFEeFcF4dRbUduoQr8SNcC6
vIUomWgtgCBW+akSNPnzXGsn7O1MxuiabEH7WBrPxKgBtggjQNwZQYA4XynP
R0TNzsd2TTJeZ/ngVeqMFhwXUc7Zp8kUJZODA+6Ee+H1orm4vCoWd87ulveQ
plTT1Ai2ZbokfP3FNnV7T+L1G8WNENGH+KqeDjhmN1jOGlMspaHzWD2MURU2
legEB0yYFgP3SXaINDTBvVEm8p4ryUklOL4gCXXz3VF34WhTraJphBKbqfjT
bCCuujriRXIAs6yPH9YeMcDi6byO8RPp7K5C5w8NiES2u3Hc7AJs9QzBc08b
rHQcx63ZbwY3QyNcMjeG5c9WGDkmHDELYjAv0JvoCRM8GGOsiLQrwGNmpb9T
FC5nxaEuyR51pw+I9bbAGjJaNtq7Y9/A4bjjPQ2v04PxZDnxG/cU4/7tSzqh
zJ84spkkE3etl/Zp1SVbbZ5eTZyz6G1aRCH2ewXh1fQxyPGfIVT5XwkCHyK2
ZrTqA8s+AfCOScC16xcJT2ciqaUJHo4z/hu777Ctai4Qtr4jrQUSBOTh80jw
T8K9nEi8iRiNp0e0advbiI2YY2SGE6PG4lHIDLzOn4O7hP0fnd0jj1Z+2pIB
xYt8H7FRPVWAeo+FsUqsfMeE4bi3HxHvlsjy8RCw+kRXS6hKlebYu3MnHL//
A5Z/uMPRLx4bN4nrtymaab+Y4LG18ftG7cSquPq8CaOyL9lCPhqTL5yrwfMc
4sIXBWNxbBwOpGRhhUk/XLS3xbMYInEWR+LiyhjcPLOrKQcni6hpp0G075hW
5V0Zb7FVpvog1hMvZxZI1aHziLANxwWfWXjuOBALZgq4NrQIk9mgxv/+Dyx/
m4CxjlFIzwpleFBMM341wZOJ78BUL+cWk+EZJKHKenBF6XZsStRAM9QUAR1+
wPpR/fEyJRDPl0bjbkUJntyp0TH+GQb6TKQGBgvr8TzbGbjsN134xGxi3nGZ
JRZiplJrG6nWY0cvQOMUgWuEW2/5OzChot/l041ynyFDtdDGHSVdB2OIYVsM
H+COOSlxCB7bhUc75zcTPJ0koc2la6kDzMUFm6Djd+0woU0rhBgbInp4B1zc
vZiYhRdZZJU3V7TMrzYg9BHUSMjPThkfgJd5RFuU+KptuCYh2asBJE8ev4iC
qeFEXE/Fde+JDEn9vp1oIuzRZGGBUT9sH2aDai9v1GoiMWOsJcb374FZxHm7
5G9FFYMsDApaERPB3rjBRcjvAiDhZ551GwtrV9p+0xruRB9X9+yIpf6T5MXF
vI/1N7BlAyguYRF2Lk3B69X+PLZsbQcVwV5iQb0bwDZiZjaWTw/DIy8nXHQb
w7BVM7Y3aTKYbXDUZTouRYehJj8RLGf48rULyEpfgEBHH9yaF4E3oaPx8lil
AO3i1iZ44WDMzSZxGZnaU8JYTVQI6GxVEGjtAcsuMzHebiYcDbviYOeOeL0q
nc2eMUtZLFindDbXFKsp4tFi+5rxm0pxO+3PFJvURy9wjRFL7Je/iP3ybKYt
jtiNEuQyb04XkbG7pNsQOdHrckac8O7I1iXantU6VFXHLiIzMBGP5gXjkecQ
AbXSNiZ46Wgs+2kKiDhN1JQg5A5LI3c4zYzHqg0lmGDYDds6EJTK02UBxmI3
WgbV5SwZq+Qi7CBYvVoTQLH6WMKKPxOB/kmujoRVXw4rNtHPsEoJL8ReYui8
9BiLbVkpAlZNpSqPETm3R0pmoFf1LHGkXlicDH38oSW8CU4Rj2ZZRCJepPmj
ZORI7Ld1RV30SG34iOllylTFv2r1dbEmD5btXWHvFodla0uFe1YEtVVtOuHl
knS2ZJgltkmXwhXXyWOMTSrkcPNjsPMTijPE9vdTgEUVPwPLe3Qojnn749W0
4diSoRG+E3urBf4kdll0WzOs7zcaVS4e8hg8VJaMq9X7UHv1vAIgPfq3MaIC
87A9LgFHQv2xJFmDu7uzJC+zqQDVitZGeB43hYjww8SzcISNcyxKV5XJIolm
5xT92hl3JxjJ64bfNSvI0uT5exS07WUiaFc9zXF04hQ2EcyrCQk4cxXgftDt
CE5wfCqcZTNnUjjO+XjjhdMguI0ZLTyzglC4iIzQ0u5DUDnRGedDglCbGYfq
Ug0OkRF651ZNg4pUj75LjitGVVIc3ia64lF5LsMzmDim69sa4YivMyxb2cLa
LgqpmTG4c+0UZ/jkIO3nLrg7wkh1vxn9eNZf3xeTsFDA9EnGDDwz74sH2TlQ
A1U8Ywz9uepYF6q5cDLx9V1wOn2T5BiOQBMTTPvhv8Qw/gk7htui2tsHtSlR
wmg+t6Mc507ukTfyUI7oBvBlOq9gfikupkajLsaWqm4uXqo3KWQ0MSazWhnB
8tfxGGM9FwkL4nHrxnkDDvZwQ2NcG2SkumON1gBX2/KT/p0lNo7H0OnYY2GP
16PH4EHRIp0DcJgyFo1J8fhJqG3/9Tc4rRkWJKRg5He/EWnQEhH9OgiZ7wfL
kogU2ItLV84pAmg6nndV5VlEecTpKGk1W+pdeShd/vlvWLYchVGjwhGVmoib
Ny424lD1IibPhd5GqpvZqDkBujgbIGpCEBb2dsTroPGqW6iK5yvJJ4LyeKrt
NKtbfFPkJ6UhkvDGXauOCBzaFqVZcfJYYwpXq5RDqFLWD1L9BJUtRMBEjZyE
od/9gZHDQjEnKQnb1hazUexKwDnWtaOwqJcHSHfxQz2OYI9ToRzV1QHPfG2g
NsclrbYYpMBGTuhR61Vus++/xYllhNINRLi99jDG4igxU5ATXAzLU6e0erou
00fNwGSNkKjfSApeZecGdu9emDfGd+2CacSG/4BHw45YhBVGHfFmebq8dwNv
6yhCZozBfDra476nHeq25UJ5bBSLZlJ/TwJzMAcm66a/4ypouUXcZ5Bejyor
G/w9u+dBU9zJWLqbOFQelrxyYCBHBRClHitmVL1InC4mCnxWr3k0Bkavtd37
4/SEScL7JxnhuFsWL7z3cncWXk/MccGr9FngURtDTKRN7ToJK/jZTAmfbsUG
ybR2Nrg+jbDjjiJ512U9EdNpIgZDFKVpAX4vfuRyRw3wItQSTw5XSiCCT8ZI
R15LIzy17YxLi6co8014MKkyP0qVeZIrHpfnNufAPEf6r2SiK5Z37YcTYyfg
doCncP/eEhHAG2cq5H5lrxVzY0hRzjpgjm7ZFwdGWONlhpe8HQJvRDGHwvbX
sTjj4Ii67SWyluKnp6aKtQxVQfBvRAqZ0DlJxN6GjFS8Wh2KuhUhcroesWIq
OxnhRWB33Dq7Xblumocufx7R0ymynmaa57TE9vSqGjkON309wKY7b5/Zi6vX
LzQwFCTJsCi0noZaWrQFu1OT8PLMVih3HqHNYjCWpixH5QQnvM71k6Uur1Kk
RVXDVGBUl/2cxIyJyMeu4jTilgahrtSfxS3pSJ9DRu+tYR1xIcsZ96s3qKbW
aE0ZpRFLyth/pp7CZiEjmtJ0MCUThZ164bDlaFz3csPjZOJDLo7FueWJuEtg
vXnzksJtEdmhEV6vz5P5E9pNRPiGsS2WaB7dJisn1IVYykKWn+ySTly3VMGu
oYwXPSyokFhc3KoxSskQXtvGCK/cjPHn0kQ8u3a83r4H2mwldeEs1vOxoOEz
JA1f2b0zjo+1RdYfZtg/eASuekwVMqQeFcXgEoHyPoGS+gVNJejVyqWvmnBx
TV1d1Hh9ZP5H0VxtXpCBcEBS8QAnvA0eA/7UC+ZCinsjYLg+oBWJ9PqtOBHl
E8vElVavsjwY+HT65Zwp0TgRI1G5cq4ytKovcYXLBGmONfnLkdSbOACmQ/G8
tzmeu9ngcUE0rhAgHxIg79+u4TbBh+6K5g8kIfkkJVDJNLLoPEnM7oJOPYRE
MX7DJt1pdgNhhWOKqSNeBEzQmdlnPpAEp5UKnGoLsPlQ7fkVGtSVeeBRkmiL
Ut2SRXTL44mdUJocgmMlHh+qYKdNa2vQRW+C9Um58G0zHoeGOuHFJDs8zEnE
yeM72ZaVSmR2R8QIr2/PHKiH1gRDM1T1J7bypnyobT7B0JrdZTIezSJC+8JB
VbSkhSAjVNBSbqamHc5iUy+vSkJdMRlSK3MRQ2dqjcgQ9uuGTKJpbp/ZIgvp
98101MPT6ZNDUWIxGdsHj8ODo0c+l4eEJHb9J0aIzy0KY8UxkKwJSEfMKUgF
shrhKZRPwvndFren2xNtvFDWeCyhVlIl0vqskSqlqKe5y90uRkciQxJwc3UC
6godUWxshCt9OqAqNQhVR/Z+rMCJlvm+++B9zVXB7h2ruigKgJSZeL0hjwdk
PAHkcD8REDb/pBbjcWptjRpnB2LrLZaPKOC32uNOCdWKKK2eGyW2eZQKWNqp
Xi4MWJ9KMfOs6uh5JMdqcG9NHJ7OGoWX3X/H8wOVMuI8Yk1URKV2axdJ1yTP
KWT1MVLHGZriIIVkY4GclMHv3M+gmztxDo7ZEjbYXqp6DODf0ImiaJLOT9SF
RxgzTbkWcxdLcVqeR5w/j0DcGmmDFyOH4UFBHpSBc1pWW6lFNJE62T0GT1ID
8SbTmxE01rAnDvTVJZyXaux39MDFHWOIjRU8SPVAwmZ/m/AxKoTrZ3g9s8qN
cbaiCgkmNjg83Ak1I8fjydHDcmRcDYcVJduwK4La7C54e/Yg8xTmWHugso+I
g1KNUxy0IZAyrBxC7aWRqkco/n0cxurDoSFdwrrlzIETOLhwGa4fPS5Lal4B
sOVNvhPCcSN5DuoWh8mkLNUsFPaeqttQIK97UNsHjG4hlNPHSYjY/JcjmXkp
fyO4IJE8TqWlzd9Fstr+cG2kn9JJ2dKAWEHYvdmYb8BRSHcxpBR+o/I4ayKL
uzz1tZF/xzsQelbLNUDheH0U6omNsLVlPBN8rytTuVlgAySFLUR1HHHNYybI
/VRGqK2QqNXukaJqg+lWxOjgIydqZ11qYy1a4SoJeWu9I+7dBxqJ1X+sxEWQ
WEluMXhMzMUHcTNxV8pyoXTuNiN0ri+Q9LR+o529StEdRmmPr9rC8cfvkWwz
UqaUqnqW/28rPjzhPalq6Kyw+veaYXnuCuSZjcV5k964btwNTw/sF/a532VK
qVqo2PGAm4xqJuvpjMQEmP3nN9gQo35+m9+wfMp43GTn6TWTj8bhTxPizvqd
JNI3kaOPjXo1+hRbJHDhtmbYkLwQMe3H4eoQG7wdMxSXp7sQWgqwo6dAi3bC
jmNEGQvxC9EJZ6fCjbAYin4//g47QtmfxJjc4ToYLz3H4MKQ3niQn0kPemBZ
wlQKqZxezstjG7FSG4V8o9jopVRPAifX4mY4u+co5naxwdZRU3HaaiQe543B
ngndEdXqD9Stey+yRUeW5lJMMRkHNycXTBlpjXl97PEq1AZrs9JwqSAJTzPD
8DZmOl54jEb1oF64l5vxNUcnE1FiV2LS/xudbINLvsXs/anK49hTUI4FpYXY
XBaEu8V2qJraCa6//Acn9+7mMtAVRot8W1QUs63d4NXVESU+MdiUl4BUTQIC
3efKkmn1nztRvqRM+iT+/9x9BB4Ez8SdbO3p2byAFgeqNGx1qf9NZTAp9qrR
me1VkM2ctui0XBQvCsWVpa7Y4mqCTcTxfbiv8guVkog4mjPRGxEDPbE6MhEn
ti7HnZvn5OxjbmM7fqJv+dJy4fVyQQKepYfgbeQ0PJs6HPeDPHErUzudwFub
otSFHUc2s1caXL9voDP9/X1DP9XdwZ6GvYb/3BcWvQcg1HcS/C274HKQL247
WeNIHzPUzk9X8xeZzUofn9TKUvhuc1oKju1cAj40xLhTxl0r2Nfv2IPVy5Zh
W24arubH4/mCYNTNdcVTZ0s8KMljPj1vkoo6GPYq6LRUJ9mAQ4d9pV0xdgg5
xkNxY1I/PDlS+VVDoGm3GacUW7cahhyHEJTGBGFJQQZWrVyFSL94bImKx4WQ
INyeZo8LA/viZmbm59rB0kRnDNFrR34aHt66zM9fczsaKfe1Y39/7qrA+hXL
sTMvDTcL4lF3arNOrJkJSgmtySpo/axOK59rorv1CO3pk1joF4Ony4PwPHYg
XlZL6/4Uvpmexfl8ih+FcAJhmlynUBwsTMWTO7XMpa4+V4vF+eVYE5Uo7Oh8
a4YLrlgNxL38bKomPpMaE0Jse3oiyrLgeOwoThKCVI21w9WAP6WuwWVE2/dp
VyWyPSUVEQLRtIWDCoyGfJV85+qPlYkS8+TFS5iXHY3La3zxar4lahZn4khS
Rr0VPFrkGlj8yLxuCuvE1sOR7xyGQ0UCrNqtGk9fQk5WKUoik3EsIkLYh+7G
eEtcnD4N9yuklSRiEeN+GYA4Kx+sT9DgxI5yyf8Ro7N8rF7bNrXQhe72hVxc
QXSOpE1edKP/eo9G4+MKTOjqLhpqQii8gMjESJxeE4TX+WNxxcIYtxdkvm/A
hQXAIqynYkfnrngr7/hLBFxrKxS4zMGhRSKoYplNsX3rPmSFJ+PA3Ghc9ffC
LfsxuD5rBh7tl4aGgOgBOLUbhSyHUGzNTEPtqT26y2UZL0nX91JreCtd9Kul
rYRUIFPfy4YBRX7GEklD/P1xaFUoXoRMxHXzfridk40bFZXNVHGHdqPPCYZ9
cNC0D+rWZgmA2LYZgcKpc3B4cQoFhB0uum5zBRJCkrArMhY1s/1x29kGJ/v1
wtUFbJO+xgiitoKJA4q9o7GL4Pngdm29Jb+8W8EH1MXAihTaVDlEQWexHEc+
mHTJmDQbOaOm4dx4Z+wOmIOz09xwwWoYzk6dRn0R5bknenz0pkT8eGKbSV9U
BbrCvs1IFLmF43BxipDfrLM0kP58xbqdOjLhlrsDLg02x+3sTNkWoaCGTZiF
cIsZWDWXWRjn+XiY0jPhJb0EjLM+YFR5XbtuTAtRc/yVU45DhWXY+GcFEv0T
sTVwLqo9PHFx7Ehcmj6dWkiySlBIpHeMrSYoJg5RahszTG47CounR+BwSQoe
36nRv1hdNFUW5i7FisgknAqfg5szp+LqqME4kDEPfb/6CjZEE6eOD8SfqSk4
vrOUpZ/wTroaYJKP6/IegCnZgfstGx6rNuxBhHc8NgRF48RMH1yaOB6Hepqh
Zl66LkfpZPfQ1BvHdqNRPGMujohI6M/54PZGqKq+iMwFJVg0NxlH585FgLEJ
HH75BWk205lBAeUxN0ocmJUthr2l6VSVJVAK3f6Byu9Yeujps7UozirD8tmx
ODorABcn2+Fk3764np7JCcNKIgzHYsnMSBxZoiEkX6q3+7dYozx6xJhpLKHV
7Lc/4Px7G4QN6oDy0R3wkjt/i491Mzp5b0KcBpFm39XShHXvNZM69viZGmSn
l2Lx7Hgc8A3GhSlOODvQAreys+jmL004sujxYqVeUThSqsGdWcNUd5dWmpL8
uKGv7tZO2NBjGC5OM8WfGms8Tx9GRJUxDrTsiCf7KpkdzlpJP7GENH6PZUK0
RO+096CX6p7mzEo4dZHpIezxDxPk4vnhQ3DadSqVj1ppdQAuHcajzDsKR8s0
mD9wNG6NNNVPskrvCtvULsS67sNQ59cPC1csxPalAbhbMhnP3AbgQV6eMreS
NpTt4qcIEzAnQQrVub0n2aK1JeZIJgckYltghLCJ8cUxI4hhNB1bklNQmJSG
qb9PQLlvNI6UJePR7YtwN+yH2iFmeHO2Uj1RXtfdZq+U3tXdCL2+5sIOcI5D
3ZAf648bM+xxf9Ei1axGNeElTihLaXXv2bmsXauJqIr0ScDGoCic9PSG1bc/
YOx3hljmR8hbmkTIuyAU4UhIrDbvjbr1GQ0f3NJMJm1lV5E0z56uKPKJwP7M
DFxavJSf8mURKZ4qFnMW8xGk5Mt3U9VgiLoJlq3ajuAZQRj0Wwe4d2yD8MG/
Y0+KJ2NHatAckAwaJkN02VYrqemuMMtNhuGtT3+sDk9A7e5yFq5RUzO82BHz
U6TsXbWMe93Ahp6gNHOcK3dXwOpHY1T1648Fo3/HoQQrPPAxw8uTlaJFYkz3
gs/WTqQys0/LgAUoNyaUeFugZucyNtmhpiR481NMVpISu9VS4XWp0OMAcvZp
M5y0sEBtYTjKiiNwc5UnXi+wxLbh3RBk2B6HA+3k5d80OEE4sbTLMLzxtmBx
XT6DlDWYtxPF/DR4vkeDKc2N5ZYZcFYHfWdvaCq+/ytfOHOofN0iHFk5G8+X
TMZ9bzOkGH2LU/t2f8XpgfGtR2B6T1uUdCZNnmUhTwPwR6YyG58f1FKbvVRI
bM21WXfmQWuCObGWbsmXZ1rX7diBJYspwDOxbUZvlPc0QpXrNFRp0uWDsMMn
hSDDcQ7ibadhcSfSZK8BcpP54fad9HvB2pSiz6zpYr6ltD5Mvel8uF07LURU
Ye3w/qjbmiczCt0frfsffRHua4+Zll2xwXcmLvnOwuXJNjhlTozm3Gy6Npad
gRM60R+aicE4uDAVuSERKOw4DK9nDviuAdVBW8wWx3CmkJiBKy3UVCeCH+2i
+PlCxt/NsJf4XqKFssKMLvbYGR2PxWmhWJybhk1b92JFUTnWRCfhaHgEarxn
4rKtNY736StYFLcqKtnRncHWMxEzMgD7clLxlHicdJF8QceheO05kFtAKHR0
E60UVheyvEASc7ClFb+6GbJqVLLTTBiVHoa9xffbcoXPdsSQX+sfhfPLo+Ss
+y3b92HtonJsiE7EsTlzUOs1A5dtxuJIr964kZlJ/U1OFnA7XzZF2BBv7E5P
wc3qHZK8ykOu0VC8IlSzzFReqXLv1VwS2gdHU9Jlj5BnQl5sMDknJvxL68bV
weFFZRMtHzfB7XH9BVTomamLXMJwkehS+djrD4lhdQE7duxDQlgSNkcn4GRY
KGo93VFrPQqVPXvhWnqmlor6hyDRy9/cA9s0GtRULNKuRMlD9h8EnxkSPk30
FVI+rxzHnIn5uzAIme1M8TJ55gcqJDFU+JirhdgCP5Wf60WF/O/zcx/cndAf
xSN7IW2MP6oLNXhxt4YFuKrOXMKenfuQGpEsqQoD7OxmisvzM6AlQtwvkV6b
4pJQW7HEgKM802gYoXyQqgOhx39nXEInl8ujkvEqx0+I/r4KsYCBotv1CWoJ
D//3xIOllwa27IP7kwgek5xxeEEyandmcbYjcRcy52qEd2eCZ+OKu4vwfoOD
E/p8/T9w6yLuJrUz0R+7iPQuHO+EBT91xN6WnZAz0RsLnUPwZpEPn4SjjD3q
2gSNEBO6EIfnJaFuHnGCN+bzewWoqSlmpYkrkKR9Q95NPast9Ne+eGhvjp2x
Cbi9d4ngKYiD9WPsiYwV3ln/0ppIgAHC+4dTTfDYvSuezOiGp17d8dLWlLgE
BdiwaTfu3arVf2iz0s02gI+9n7BnzvOw0VBLImdzJYrj08X1a9J2OLpE/aQr
gPmYG/czxk+Rv/XFYwdz3Nq1VFodoz12jBdiZy7UCu+tWrVFSO82wvvasqm4
UOaGM2XuOFHmQeBwwNsYn8+U1XKXtkkMe9s2Flgwm4ij3BC8zfFR27jxW4lJ
1VLBBNXSSLdocbsqaa8lXXA+U9Sv20fi8NfvAfMl0c+B1q6Ia90PT6eYEz14
ni315PGr00bbZv5qqYsDzWTfdwy781ai3CUQL9Nm4c2GAplcv5+7IX+YAzYn
0o29ZqLu4lEdFlFqUt7GZPFMRVO4unUpFzcYlPb7UsszfOeeFuInSXwS1XaK
qDZ6gmNj1d/Rq6kOpoFj3YX9j/MGOOLNXBuupxrM2BOLujyW+DKbc2SmivbL
RWVcHN4mONF1A/+VMBF2jG3VEy88BkATV4wz6fGoS7bDy+OVOsjqJMTgf51v
JYEarAJqQ4cI6Gyu4NzOCjXTXHDb1gqHepnhZqZwGo9a4EJNswa7+iDMwgNH
0pOxMD4G13cVaR0wzroxwBkr4rj/mSe1QCw9R1OCy6mReDF7JBiGNDl50e+9
8DZANEjCp8cKW7/UlYTJfc0bafoxfPeshwRgiAqAH6sQq8LsbI3omVOXUJyU
giMpCbgWG4IHAW64M3kUU0Y3K5Trp7SmHA0nzTR2wK64BBxdnsiywiKs/XBo
0HAhf4/5lHRFZLJXHJ7Mm423md5fqMgmguBm4z54myua8lXHLwqRUmF3xC1F
MoL8SigeQWYpKzfrfQeCoSoIamcCFLOjjCMO761EQWIKDqYmSqW2wGnzPsK7
OxxgdFTZtxuN9UHRuLV7qeycsL3CSjTF2NHXCnXrC3Vro0uETl7CmogEvE6d
gUfLpVl1/WelhVmLlkfd1iJZhEb55WBfKjEVFkzDbmsHOl+IhuwF3uEwUPS1
os4GEA3Th6hahJHbTFcrOE6cr8GBvftZRtLlhHDcDxaXf9Frnf0UJHzfFcVT
iblenoSnt88Jj0kksRgEPe90bQ8r4oSY6ZMB9IoLK8SxxFjUxdri9Ukpn0l9
9DgYdhHf7ypiqQieRCZvs7TBPTPiJE11V7NT1DwWte2HJN08Rx98eteaiAaT
um6mwY99FfsxLzIRe1KTUZMYgeVmI3G4y1A8mGKPh3+t4OcGWLCDxcmKNUUy
7HyCmBo6AbbhuJkWjrpFc4QFRJuMTFB35oB2CylJXyo519PQRHxfe0QYMIHW
U2BpaAbbr/shv4cdHo61Rc2AQbIAqL9HeFM5x0556DX1hczE2sJVJLBiuzc1
BiXV7t6zH3ONJ+GYlTPujBmP6wW5cj/wkUGWh0JjqvR6Oc1Ct4flGe/D55Hh
H49n8/xx0ob4Tpa9Uben6NMGNJ/YsuYI7vIHAacL+bOA5a92sOw+CxNGeyO4
pz02D7PD06rj9Ra/UWD+I7E1byiy00k4/WMqVhqhDytVhNQtnc3zy5DdZ6KW
dXjI6KWzDLziEKLaW2lZTVcg6AidRlhWtEXI2HmjccNz936iH/mx8tfCvifb
pXW4g783JphZCduRWA4KRGjiQqzZuV1nSYyaXmbuk7jHGubqBUZ9UpUlHKh9
p7ui0wD+rYdzY00VACZ1NNGLcDo5Gm8j6Xk94qGXbJOGnI798Kc56U37qZjR
25zp8TjiwJ27fFGCqj4V30hU0JNNabyFClM3NzcsXbqUER8pPcaHY/6poirV
MjeY5uSnwBj35E9yw8PF2cInFhOY8Yslbk4YCt2SmRFbQno13CUa99KIsimY
/ZEkAFeR23QfuNQOYrSr0toJ1d6+OB8/F6dzErG7KBnJoUEYaGqMuMmWOB88
XIZPIXHZMh7lCbnsPGY6pshvJWSiVJAxVEhl5SuvIuhnOgTyxnrjuac13p6s
NNAFVjHImLhyMRyKmtGWxMLPlSPL9oZGWGNhiaLZCXiR5oO3mxZKRlELlBOE
KjQZiGltimXdB2PPSDuc8PDCuag54pgs0uDW8f04c2KvXEcIBTqbcP7iYLl7
eOvhCw4qxjkMLul0bwoIr2aY/SZu8YhoDj42GfGDioZk8XEldAk+OTg03RtP
nAbom4phMtHWcBBOWVJ7Pl9UKOIvm8DbsBPuT+qLlclp2BMbL6wjrztzkC1G
ZLJk6SR3LDa2wPYh1qhymY6zYcE4Ny8WVYUaVG1eqrPDA135WhyRjFfZfni1
oeAfuj1qwMsH/jxhdnAuO92UGbROTk4yReKWoIhRaCEKHJNe9eQ0J4Sb6ihR
miA4Z9Rs3PCaiidz3eTIl5rQYko40iYYJ+wdiClUKmH7Tx0On9/KGK9mikGn
BYkluJQShZRe7WD7ww86Eup0YCDOE0l2Mj8Zp/9ahisn9xMqauVzHqMD83Ak
LRF1qY54faqS39iNy7/SP0SaC0Lhxs498rnEKqwpSyyWw8RBHKsP4ncs/dWF
eEnmepQ6BQmD+81JZoU3DPGJoxewLiMZdXfOSzwgChPqZm7qTJqXIzpK86IT
YPpDG3gatUKYaVtZ2u0i0u76if04dGQXm+D3s4/A7WwirZbMkYcya+a7yKEs
GusdgjnEJHs+Z7LOAbyf6McvToEfRUM85KyJDkJ0DB8Wx7AyEqbbnk+kfqVX
tTkx7nYUCmZj/+9NiZZvi0WmnREwuB32blkubxxedeQC8kOTiC8ZgLd/LeRJ
p5d24Y3Wv+IF/zQ7YpG2moTp7rG4QPyrz/STG69AVUtuM/ne4qwyYbzdJOPt
8Vw3pXJXk1wGWhkmuia3x/dBoGl3YXcgS/MATDPsjOsj+6Ju90J1XwvanUVX
Lt2BfRoypua74u3pA821YlBroNOLmQf37t2TTzTnR0/ltt3EBrXGWNtILF1T
Km8htGzZMpw+fZqHJUEvLNpxkp1YijIyRl5IY0RutzYGLqq4+pYefaWb0NLL
p4Mp6azJGDE2DPNLFiPwZ2M8tO/3tw+CyEkrxfUsopqWRtYz4/hXyihiK6mA
biaIbsZU1YQvVyVnwPKXMRhjHYHilWX/1A9Sol6QGsvDJ9JjvjBMHjsOkNhQ
T3pHU2Lu9hP2K7SeNhfb928X5EZqq2546WEumr3a+IuBVu40QrydLxYEJeJ5
zmzUbVvELxDn1DvLBWL5+fQ6SxzN6f8lDsrPIzBq1BwULiv7Qj+5Se8gNyIg
WjtMItz4OZKPBUNmlyYTob/1REGXgVg3YCIsfmoLy16+cA2OxMY1JUJRlOhl
f/TE20Dz987RhjbGSAVLKLGnCofZYEcSaXE6Ga7npPzBpvWsQ3qxlGClQEny
C0TyZFes6TEQgYaD4TrQF1nhYXhAvEmGEh1VtDwOpWQFStTm4VGaOsFPGjXj
hVEjEvkZVgqWXhYiWpsJTdg42BZ7nDxxKDAUhxPisDdbg76dOmNE727IdbDA
q/niLpNLiHW4uxsRq38urHcwlV6YKMrZv3XE65lmmJ9cgtrMWLwIHyM+9a93
WYY6HVLFOW0bTAfjgJ0j/F2csXVuAFb7BmDjIEdUj7CWk38o3LRcDjKNCmQt
65FCG+Q+JoiNJlHDfoS1pO59mmzEtu2Nkm7D8KflZOx18cKh4DAcThb3Hjqw
oRznj+3Hteu1TDtmZC7AhgjikqZQBjmEScScPN2/t7CBwXvC+IkA47o/OqFu
bZ6wI02ybwKe5YTgZqyjYBkyB4SpXelxPuV2l0acht3ceyiqHaYI729lR6O6
NAmXD21DYICfANnG3LJ/60cwRQVBQ/W2i5V/iiV5y+XRWuY0Dkd27xb6cgPd
DWrCVCS174OynlbYMtIJ+9x8cDgsHIdSErAzN0Uckk0lXkqcW4SzxCJ8Ez4W
7kSr3RhNtNqehQ0d8cYyGOYQf+9Qty54tHqeQJGrnT82xyfjbcYM3Ni7iZvY
bILj3EZJW/sNxxlnF9yIDGLC8071Pty6WSNXxc8qNQBcqgpwagdRQJuyFO4f
A5sOPTD15+/h1fInLOs1EtvGOGO/hx8OR8zFwXmJ2JaXgitHK1F9bD/DIdI1
Gg/nhSC4pTEeOfTTHklKDPGagSZYHzJB5pOUuMU4nx6HNzHjsV/KDjhF6N9P
BGj672bYYTEC56ZOxc1o4gTkx+FQSQJuEwCu37gkO068a8vGHjWpmSsnAZCm
AsCPDQHQDBkJibD6ti1iO/yKOebtcWBBEjbnaXC5qhInju1jWu4Y8abcB9th
QetueDXD/As9IpjS7K2zu/mHiPGMx8FQNzj//A2iW7fHnkGjcd7dDTfjgnG9
IA7Xti3Fzep9akd8Ko+X4Uidp0KqdqNU+aQ0gnPur0Z46W4GZ4vWqjlgvCnD
nMdAG2+sNCKKK8icrnETLbMWMrlKUcrEARUh8To7ZDdFu6++g1Wr9gjo8hvy
RvfGtcJ4XNm+FNdIFytjH/TTP/XTPF+FZsUZAcI79VNPxJGXQkbphX6d8WTB
WD7k0uw9QCkj0m1vdzO8jbJFXUHgR3p4gEba6eDUjndx1/slbTtxqllUW5aG
fdDj294YZ9gOu82NMT/AUW2vXXaPd8LF80ewQAUTtUNnGwqW0j3GqjXp2nuc
uhCPKF3cyog41L1wfYtoJnLIaeMY+v3gxnBqMwxX3CbjcoKHMJ/+al2+vARA
n4KW9y2SU4Y35kkxejfieoyHZR9/TPGLFgT1NcseykRoCgWf/M64VEIuXeXn
+hdSqE2U040SxuFhwGSpX6E1Y6cRIVA7oAtuptvg7qn1allT73vcHNMZZ09e
wpb8BKxIz8GBOOLZxtvTKSMDDsV3sWH9YsV1tad6GSOwmwlhx8Gw7OSBcY6R
WLtDFNUehl1ww6rHvxRo0aI/1w9uhr6h+t5sKU7+nSnVCHskvTktz2syT1Uw
rum+pD69sa8sqJE+iPX68izLLldTguupEXhTGNyQoaj/nOGmcBw9Ar3+/Y2s
062GhyIupwSXrl6SSfQkQN4aJQYdlWjKKTDkHrWxqG7j0MxUQVO7uZp2yPIH
lpaVLsfd1YRN1kcqkfMkzHl9aBfsSvJA9Y485dy2vOVLQ1YjP3iXFK1Cuk88
ns/zw85QF5ntON++uTBw/yJddiwlC5l/mCGodWdY/NAHlqa+mDwrGjv275B7
yZtAdWeMCJXa3m9MwPF+nQRVFvdzNjWmnBLQx3h8Sgw9Qiw3JZWfPGosnMS1
rr0R3gT2Rcq8FDKytZs98nmfenY55ALqHwrAqUUF8+evENJ/3yZNoSkyYttF
83q35Jks7twXO8ytcMLWQchyvhoXhvlOthjdoytmuDpgR3EaI8XP0Bj3xolI
qu0L96l+JLMVSNLGaZegqs0hM1Y5fb4W24vEo2jrao+y2350m8wRxji+MBon
qyqaccCxnGlt1pi0xJW7mHqZT+zJ2pRIPPQbIS+Ko/7mAaKe49p0x4pu/bFv
yBhpxrg5riZH4GJeAioXJ+POif04d2Kf8JSnozcSXRxQl2on93wggeu+tQiX
2g5xTITxrrIEV44KXPq3QGiK5LQSnF0mJm++OlUpbLP81+9GeBuijRXw0Eiy
jLJNE1nQ04utaJaTB3X3A66qOI2kGTT3JRD3Ij2wLSkdm0ldVfT0FGJ+bzQd
hMOjbXB++nRciQjClfnROFuYJK87rTqmPIDXAGGTI/EkK5j4l4Vyt1BxHEzg
e2jTQ94/jLdhPuagY36LBF2eCrktdAcMm4FmipJd91fHom5dBKnZCPfGmqBu
/2Ipev+RTu3vslzBVPc/dMCjf6vzylFsPRUnjXvjbsfOOG4zGZe8vXAlNlQI
NZxclIzjm5eyyYOGBEv5oq04GB+LN4nWOriFGZrgkW2PevuuUeHFcOP9PQm3
fBXclIFG7bisvyNE1bELKEhLxcvVobg3oTseTe4OdnAKZWFqbipMCbWsQeVK
U/a3ISkXs9uMxelBtngxfjwOSgPwwsl93AGQOts6xxC/8nlWIF5uypclNAUo
8mcTPJncQ3VDto/0A1SgAEgtGUgLkBpVjTC183Ds8PHFk2HDcX+A2Scqteld
CM/QynEMw4ohjjjnH1rPClLWfyKJcPSKWB3y41qa4KljT53N2VhuRQv95C9U
UU3v3F2NzXJvSClGbg871IxzxHW/ADW6G9yzQxcO5Wo57e/EGQWNRwxeZvmh
7tIR4S6lOukXEzyb0oPftFi5PSDvJEpEF+oj+v0ayoblX1nlOFW0TPjEaKfq
mlpn4gip401L4d27iIz1zcbZlBjUlc+ViCzG0nEeqEuxY4un6m8Tp0pkEWtl
vV2Y383YX6hQo53vVhvM9KJqJMs7Dq+zvFF3Xpz53rttL17eqcV3Kq3hlxYx
t1Vq/CKVn2sTHLXy4Et9DW1wDwHtd0lB+ahJo/ONofIBhvWMDYVXLR5pisUq
TfyJo4h1x4+6uOmMK5p0uiggDm8yPfHmTCV7nN9MlLkUvAMltaBYpQU/qrSA
LZ+YF16I6/Mj8aowUKelTEo2UFWJSlU/NFAVPVZweQixUDPc5b1X+KqYRczb
lFJVS1Sq+l6lKrbe0mNEIG6nR6Bu71KdqnTWYKpXVapS1XcqVQnVK5KB5bBN
5gZsDI9H3QIXae8j3RHaSH/1ZSrVf6tSvZKh31cteY8Nw8XZM1Ddqytd5G+o
Uh0TZbyxKrVuqcrPlXJW5u/3E5ysYU7fmqK87UA862eOB7n5DDZ+fRR7nNcl
UsPKVRr2X5WG/aTaAmgDMHPHTEdp+854NcEKDxYVt5SENm8T0j+pCZJkWtZA
7byU+FFRe8OYGCDU2gkHe5jgnsZP2o+tiY6NV78ly1W47T8qLflOKk0prt/Z
UQZCiOq6VU+83VuEXyUu5IcxE7tSi1aotOh/VFqkSE/RGU80BhDZsiOeufaR
phG1pyRKOW1SbSulJ/jA/9cqtTGZJASDOpDuDu6vs/CZ/pY+LxW7SqXYrxoo
ls7pHDUlvLmtUL5HXQk2HyYVu1ql2P/b3rmzNBAEcXxMROMLA4oHggoWioVF
IKCdoJ9BLAQFO0HsxNZaCz+AlY2VjYjv+IjGV6EfQPwE+gXszuzN7GWy/u9c
wTLdQcJvHrd3Ozs7NxukYFerrv+YnTKLYxkPyVlQk30SMUfOG9C4rA+IiYas
M5m2qFuwNVqkr5UZeaX9TB3aMkNjhtQYHgPRNtzRU4p9w/72ZOjVz2FhgsKd
NXkV1pejuWu1aaaeAHV6/0GdzYV1ep+fo7CyFx9WnXRjxEN81B+dKo3sE4SS
z3/V6GC/TC+72xR+vsXH96XdL/ka+Qyog9K1tZbote2TIUcMGpHSd+AciEH1
SQPAQmR1v5/PpenHBZCeB9JR19ogxZd2sEmboxIQ0w3ETCrlk/xW/a+0Zbt0
qDpDrqlFP5dIB9ArQO0C1IKH+YuMvAZIu4jWuepxP/OXmHoDqB2AOpZivspL
yHkMZUBtB9QRD/PlsKBbgLRLLR33DfuZLwV3d4CaA9RBRXWzxcp8OT2zAqit
gGojCW1+JmJm67Jicr7wPcCiID/wcwF3SqAHQEXxfI/jgoRNLv7kmh6dmcFQ
UZieB5ONqX3Wk80GI58cpPk5C5CdfubzJ1b0DKgZQM35mS+bPJza5uhSr3WF
6JaOoSmWa46J99uaY4oQMkqdlM0yLrkkPqimLfqXiVDsUgQYIIVT9CpyTQyu
1OJ6B4qmieXGdeO6cU1N3w7JOaA=\
\>"]],

Cell[BoxData[
 Graphics3DBox[{
   {RGBColor[0.4, 0.2666666666666667, 0.13333333333333336`], Opacity[0.8], 
    SphereBox[{1.4720965540000002`, 13.160051864000001`, -0.253223284}, 
     0.255]}, 
   {RGBColor[0.4, 0.2666666666666667, 0.13333333333333336`], Opacity[0.8], 
    SphereBox[{-1.19997601, 12.260542288000002`, 0.315584242}, 0.255]}, 
   {RGBColor[0.4, 0.2666666666666667, 0.13333333333333336`], Opacity[0.8], 
    SphereBox[{-3.06135612, 14.225857328, -0.687860264}, 0.255]}, 
   {RGBColor[0.4, 0.2666666666666667, 0.13333333333333336`], Opacity[0.8], 
    SphereBox[{-0.196531504, 17.549885362, 0.098265752}, 0.255]}, 
   {RGBColor[0.4, 0.2666666666666667, 0.13333333333333336`], Opacity[0.8], 
    SphereBox[{1.846262302, 15.730079224, 0.978878068}, 0.255]}, 
   {RGBColor[0.4, 0.2666666666666667, 0.13333333333333336`], Opacity[0.8], 
    SphereBox[{-5.827914984, 13.47374638, -0.31369451600000003`}, 0.255]}, 
   {RGBColor[0.4, 0.2666666666666667, 0.13333333333333336`], Opacity[0.8], 
    SphereBox[{-1.4399712120000001`, 7.723310162, 0.470541774}, 0.255]}, 
   {RGBColor[0.4, 0.2666666666666667, 0.13333333333333336`], Opacity[0.8], 
    SphereBox[{-3.54323625, 5.91484238, -0.262671914}, 0.255]}, 
   {RGBColor[0.4, 0.2666666666666667, 0.13333333333333336`], Opacity[0.8], 
    SphereBox[{-3.050017764, 3.314579404, 0.852266426}, 0.255]}, 
   {RGBColor[0.4, 0.2666666666666667, 0.13333333333333336`], Opacity[0.8], 
    SphereBox[{-0.438416432, 2.450974622, 0.013228082}, 0.255]}, 
   {RGBColor[0.4, 0.2666666666666667, 0.13333333333333336`], Opacity[0.8], 
    SphereBox[{1.49288354, 4.40306158, 0.901399302}, 0.255]}, 
   {RGBColor[0.4, 0.2666666666666667, 0.13333333333333336`], Opacity[0.8], 
    SphereBox[{4.221647884, 3.673627344, 0.2834589}, 0.255]}, 
   {RGBColor[0.4, 0.2666666666666667, 0.13333333333333336`], Opacity[0.8], 
    SphereBox[{-0.149288354, -2.076808874, -0.287238352}, 0.255]}, 
   {RGBColor[0.4, 0.2666666666666667, 0.13333333333333336`], Opacity[0.8], 
    SphereBox[{2.010668464, -3.8852766560000003`, 0.268341092}, 0.255]}, 
   {RGBColor[0.4, 0.2666666666666667, 0.13333333333333336`], Opacity[0.8], 
    SphereBox[{1.45508902, -6.47231155, -0.8503767}, 0.255]}, 
   {RGBColor[0.4, 0.2666666666666667, 0.13333333333333336`], Opacity[0.8], 
    SphereBox[{-1.084702724, -7.36048277, 0.166295888}, 0.255]}, 
   {RGBColor[0.4, 0.2666666666666667, 0.13333333333333336`], Opacity[0.8], 
    SphereBox[{-3.085922558, -5.415954716, -0.570697252}, 0.255]}, 
   {RGBColor[0.4, 0.2666666666666667, 0.13333333333333336`], Opacity[0.8], 
    SphereBox[{-5.7579951220000005`, -6.164286212, 0.23243629799999999`}, 
     0.255]}, 
   {RGBColor[0.4, 0.2666666666666667, 0.13333333333333336`], Opacity[0.8], 
    SphereBox[{-1.347374638, -11.882597088, 0.49132876000000003`}, 0.255]}, 
   {RGBColor[0.4, 0.2666666666666667, 0.13333333333333336`], Opacity[0.8], 
    SphereBox[{-3.5621335100000002`, -13.666498432000001`, 
     0.12283219000000001`}, 0.255]}, 
   {RGBColor[0.4, 0.2666666666666667, 0.13333333333333336`], Opacity[0.8], 
    SphereBox[{-2.953641738, -16.206290176, 1.3020212139999998`}, 0.255]}, 
   {RGBColor[0.4, 0.2666666666666667, 0.13333333333333336`], Opacity[0.8], 
    SphereBox[{-0.5102260200000001, -17.183278518, 0.153067806}, 0.255]}, 
   {RGBColor[0.4, 0.2666666666666667, 0.13333333333333336`], Opacity[0.8], 
    SphereBox[{1.58736984, -15.253868271999998`, 0.60471232}, 0.255]}, 
   {RGBColor[0.4, 0.2666666666666667, 0.13333333333333336`], Opacity[0.8], 
    SphereBox[{4.130941036, -16.060781274, -0.489439034}, 0.255]}, 
   {RGBColor[1, 
     NCache[
      Rational[1, 3], 0.3333333333333333], 
     NCache[
      Rational[1, 3], 0.3333333333333333]], Opacity[0.8], 
    SphereBox[{-2.609711606, 16.51620524, 0.6614040999999999}, 0.25]}, 
   {RGBColor[1, 
     NCache[
      Rational[1, 3], 0.3333333333333333], 
     NCache[
      Rational[1, 3], 0.3333333333333333]], Opacity[0.8], 
    SphereBox[{3.2824540620000002`, 11.481975175999999`, 0.863604782}, 0.25]}, 
   {RGBColor[1, 
     NCache[
      Rational[1, 3], 0.3333333333333333], 
     NCache[
      Rational[1, 3], 0.3333333333333333]], Opacity[0.8], 
    SphereBox[{-1.7139814820000001`, 9.958856019999999, -0.999665054}, 0.25]}, 
   {RGBColor[1, 
     NCache[
      Rational[1, 3], 0.3333333333333333], 
     NCache[
      Rational[1, 3], 0.3333333333333333]], Opacity[0.8], 
    SphereBox[{-0.15684725800000002`, 19.828894918, 1.5476855939999998`}, 
     0.25]}, 
   {RGBColor[1, 
     NCache[
      Rational[1, 3], 0.3333333333333333], 
     NCache[
      Rational[1, 3], 0.3333333333333333]], Opacity[0.8], 
    SphereBox[{4.257552678000001, 16.682501128, 0.196531504}, 0.25]}, 
   {RGBColor[1, 
     NCache[
      Rational[1, 3], 0.3333333333333333], 
     NCache[
      Rational[1, 3], 0.3333333333333333]], Opacity[0.8], 
    SphereBox[{-6.224757444, 12.360697766000001`, 2.127831476}, 0.25]}, 
   {RGBColor[1, 
     NCache[
      Rational[1, 3], 0.3333333333333333], 
     NCache[
      Rational[1, 3], 0.3333333333333333]], Opacity[0.8], 
    SphereBox[{-5.854371147999999, 6.865374558, 0.7899054679999999}, 0.25]}, 
   {RGBColor[1, 
     NCache[
      Rational[1, 3], 0.3333333333333333], 
     NCache[
      Rational[1, 3], 0.3333333333333333]], Opacity[0.8], 
    SphereBox[{-4.958641024, 1.664848606, -0.139839724}, 0.25]}, 
   {RGBColor[1, 
     NCache[
      Rational[1, 3], 0.3333333333333333], 
     NCache[
      Rational[1, 3], 0.3333333333333333]], Opacity[0.8], 
    SphereBox[{0.20786986, 0.12283219000000001`, 1.216983544}, 0.25]}, 
   {RGBColor[1, 
     NCache[
      Rational[1, 3], 0.3333333333333333], 
     NCache[
      Rational[1, 3], 0.3333333333333333]], Opacity[0.8], 
    SphereBox[{0.91651711, 6.72742456, -0.338260954}, 0.25]}, 
   {RGBColor[1, 
     NCache[
      Rational[1, 3], 0.3333333333333333], 
     NCache[
      Rational[1, 3], 0.3333333333333333]], Opacity[0.8], 
    SphereBox[{4.418179388, 2.641836948, -2.218538324}, 0.25]}, 
   {RGBColor[1, 
     NCache[
      Rational[1, 3], 0.3333333333333333], 
     NCache[
      Rational[1, 3], 0.3333333333333333]], Opacity[0.8], 
    SphereBox[{4.236765692, -2.898839684, -0.9297451919999999}, 0.25]}, 
   {RGBColor[1, 
     NCache[
      Rational[1, 3], 0.3333333333333333], 
     NCache[
      Rational[1, 3], 0.3333333333333333]], Opacity[0.8], 
    SphereBox[{3.42985269, -8.133380704, -0.024566438}, 0.25]}, 
   {RGBColor[1, 
     NCache[
      Rational[1, 3], 0.3333333333333333], 
     NCache[
      Rational[1, 3], 0.3333333333333333]], Opacity[0.8], 
    SphereBox[{-1.7820116179999999`, -9.690514928, -1.007223958}, 0.25]}, 
   {RGBColor[1, 
     NCache[
      Rational[1, 3], 0.3333333333333333], 
     NCache[
      Rational[1, 3], 0.3333333333333333]], Opacity[0.8], 
    SphereBox[{-2.443415718, -3.101040366, 0.6557349219999999}, 0.25]}, 
   {RGBColor[1, 
     NCache[
      Rational[1, 3], 0.3333333333333333], 
     NCache[
      Rational[1, 3], 0.3333333333333333]], Opacity[0.8], 
    SphereBox[{-5.775002656, -7.141274554, 2.7646691380000004`}, 0.25]}, 
   {RGBColor[1, 
     NCache[
      Rational[1, 3], 0.3333333333333333], 
     NCache[
      Rational[1, 3], 0.3333333333333333]], Opacity[0.8], 
    SphereBox[{-5.699413616, -12.625259406, 1.42674313}, 0.25]}, 
   {RGBColor[1, 
     NCache[
      Rational[1, 3], 0.3333333333333333], 
     NCache[
      Rational[1, 3], 0.3333333333333333]], Opacity[0.8], 
    SphereBox[{-4.9775382839999995`, -17.903264124, 0.68974999}, 0.25]}, 
   {RGBColor[1, 
     NCache[
      Rational[1, 3], 0.3333333333333333], 
     NCache[
      Rational[1, 3], 0.3333333333333333]], Opacity[0.8], 
    SphereBox[{0.105824656, -19.494413416, 1.430522582}, 0.25]}, 
   {RGBColor[1, 
     NCache[
      Rational[1, 3], 0.3333333333333333], 
     NCache[
      Rational[1, 3], 0.3333333333333333]], Opacity[0.8], 
    SphereBox[{0.857935604, -12.948402552000001`, -0.602822594}, 0.25]}, 
   {RGBColor[1, 
     NCache[
      Rational[1, 3], 0.3333333333333333], 
     NCache[
      Rational[1, 3], 0.3333333333333333]], Opacity[0.8], 
    SphereBox[{3.802128712, -16.986747014000002`, -3.01411297}, 0.25]}, 
   {RGBColor[1, 1, 1], Opacity[0.8], 
    SphereBox[{1.780121892, 13.288553232, -2.326252706}, 0.12]}, 
   {RGBColor[1, 1, 1], Opacity[0.8], 
    SphereBox[{-1.46453765, 12.045113524, 2.382944486}, 0.12]}, 
   {RGBColor[1, 1, 1], Opacity[0.8], 
    SphereBox[{-2.745771878, 14.543331296, -2.7401027}, 0.12]}, 
   {RGBColor[1, 1, 1], Opacity[0.8], 
    SphereBox[{-0.020786986, 17.992081246, -1.938858876}, 0.12]}, 
   {RGBColor[1, 1, 1], Opacity[0.8], 
    SphereBox[{1.791460248, 15.539216898000001`, 3.0689150240000003`}, 0.12]}, 
   {RGBColor[1, 1, 1], Opacity[0.8], 
    SphereBox[{5.459418414, 15.403156626, 0.574476704}, 0.12]}, 
   {RGBColor[1, 1, 1], Opacity[0.8], 
    SphereBox[{3.016002696, 9.862479994000001, 0.126611642}, 0.12]}, 
   {RGBColor[1, 1, 1], Opacity[0.8], 
    SphereBox[{-7.06757524, 15.151823068, -0.5121157460000001}, 0.12]}, 
   {RGBColor[1, 1, 1], Opacity[0.8], 
    SphereBox[{-6.419399222, 12.124482016, -1.8103575079999998`}, 0.12]}, 
   {RGBColor[1, 1, 1], Opacity[0.8], 
    SphereBox[{-6.147278678, 10.567347792, 1.925630794}, 0.12]}, 
   {RGBColor[1, 1, 1], Opacity[0.8], 
    SphereBox[{-0.42518835, 19.432052457999998`, 3.2711157060000002`}, 0.12]}, 
   {RGBColor[1, 1, 1], Opacity[0.8], 
    SphereBox[{-1.447530116, 8.099365636, 2.528453388}, 0.12]}, 
   {RGBColor[1, 1, 1], Opacity[0.8], 
    SphereBox[{-3.692524604, 5.793899916, -2.350819144}, 0.12]}, 
   {RGBColor[1, 1, 1], Opacity[0.8], 
    SphereBox[{-3.16529105, 3.380719814, 2.949862286}, 0.12]}, 
   {RGBColor[1, 1, 1], Opacity[0.8], 
    SphereBox[{-0.362827392, 2.294127364, -2.076808874}, 0.12]}, 
   {RGBColor[1, 1, 1], Opacity[0.8], 
    SphereBox[{1.353043816, 4.663843768, 2.981987628}, 0.12]}, 
   {RGBColor[1, 1, 1], Opacity[0.8], 
    SphereBox[{5.47075677, 5.349814306, 0.432747254}, 0.12]}, 
   {RGBColor[1, 1, 1], Opacity[0.8], 
    SphereBox[{4.934074586, 2.279009556, 1.68185614}, 0.12]}, 
   {RGBColor[1, 1, 1], Opacity[0.8], 
    SphereBox[{-7.1015903080000005`, 5.610596494, 0.476210952}, 0.12]}, 
   {RGBColor[1, 1, 1], Opacity[0.8], 
    SphereBox[{-4.603372536, 0.015117808, 0.489439034}, 0.12]}, 
   {RGBColor[1, 1, 1], Opacity[0.8], 
    SphereBox[{4.386054046, 0.844707522, -2.067360244}, 0.12]}, 
   {RGBColor[1, 1, 1], Opacity[0.8], 
    SphereBox[{-0.279679448, -1.655399976, -2.3300321580000003`}, 0.12]}, 
   {RGBColor[1, 1, 1], Opacity[0.8], 
    SphereBox[{2.30546572, -4.03456501, 2.339480788}, 0.12]}, 
   {RGBColor[1, 1, 1], Opacity[0.8], 
    SphereBox[{1.419184226, -6.374045798, -2.946082834}, 0.12]}, 
   {RGBColor[1, 1, 1], Opacity[0.8], 
    SphereBox[{-1.0091136840000001`, -7.528668384, 2.252553392}, 0.12]}, 
   {RGBColor[1, 1, 1], Opacity[0.8], 
    SphereBox[{-3.08970201, -5.13060609, -2.653175304}, 0.12]}, 
   {RGBColor[1, 1, 1], Opacity[0.8], 
    SphereBox[{-7.03922935, -4.50699651, 0.130391094}, 0.12]}, 
   {RGBColor[1, 1, 1], Opacity[0.8], 
    SphereBox[{-6.540341686, -7.5966985199999995`, -1.0884821759999999`}, 
     0.12]}, 
   {RGBColor[1, 1, 1], Opacity[0.8], 
    SphereBox[{5.516110194, -4.136610214, -0.7086472500000001}, 0.12]}, 
   {RGBColor[1, 1, 1], Opacity[0.8], 
    SphereBox[{2.987656806, -9.785001228, -0.587704786}, 0.12]}, 
   {RGBColor[1, 1, 1], Opacity[0.8], 
    SphereBox[{-5.784451286, -8.940293706, 2.647506126}, 0.12]}, 
   {RGBColor[1, 1, 1], Opacity[0.8], 
    SphereBox[{-1.056356834, -11.44229093, 2.515225306}, 0.12]}, 
   {RGBColor[1, 1, 1], Opacity[0.8], 
    SphereBox[{-3.9892115860000006`, -13.885706648, -1.9199616160000001`}, 
     0.12]}, 
   {RGBColor[1, 1, 1], Opacity[0.8], 
    SphereBox[{-2.7646691380000004`, -16.021097028, 3.3844992659999997`}, 
     0.12]}, 
   {RGBColor[1, 1, 1], Opacity[0.8], 
    SphereBox[{-0.780456838, -17.521539472, -1.901064356}, 0.12]}, 
   {RGBColor[1, 1, 1], Opacity[0.8], 
    SphereBox[{1.83303422, -14.91938677, 2.662623934}, 0.12]}, 
   {RGBColor[1, 1, 1], Opacity[0.8], 
    SphereBox[{5.472646496, -14.44695527, -0.48565958200000003`}, 0.12]}, 
   {RGBColor[1, 1, 1], Opacity[0.8], 
    SphereBox[{4.983207462, -17.570672348, 0.68974999}, 0.12]}, 
   {RGBColor[1, 1, 1], Opacity[0.8], 
    SphereBox[{-6.993875926, -13.866809388, 1.34170546}, 0.12]}, 
   {RGBColor[1, 1, 1], Opacity[0.8], 
    SphereBox[{-4.457863634, -19.532207936000002`, 1.230211626}, 0.12]}, 
   {RGBColor[1, 1, 1], Opacity[0.8], 
    SphereBox[{0.413849994, -19.097570956, 3.150173242}, 0.12]}, 
   {RGBColor[1, 1, 1], Opacity[0.8], 
    SphereBox[{3.509221182, -18.751751098, -2.93852393}, 0.12]}, 
   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}], 
   {RGBColor[0.36, 0.24, 0.12], Opacity[0.5], 
    SphereBox[{0.13606027200000015`, 12.710297076000002`, 
     0.031180478999999983`}, 1.180909111492542]}, 
   {RGBColor[0.36, 0.24, 0.12], Opacity[0.5], 
    SphereBox[{-2.130666065, 13.243199808, -0.18613801099999994`}, 
     1.186242066466073]}, 
   {RGBColor[0.36, 0.24, 0.12], Opacity[0.5], 
    SphereBox[{1.659179428, 14.445065544000002`, 0.36282739200000014`}, 
     1.1800816686131144`]}, 
   {RGBColor[0.36, 0.24, 0.12], Opacity[0.5], 
    SphereBox[{0.8248653989999999, 16.639982293000003`, 0.5385719099999999}, 
     1.1798263536923503`]}, 
   {RGBColor[0.36, 0.24, 0.12], Opacity[0.5], 
    SphereBox[{-4.444635552, 13.849801853999999`, -0.50077739}, 
     1.1884416251145054`]}, 
   {RGBColor[0.36, 0.24, 0.12], Opacity[0.5], 
    SphereBox[{-2.4916037310000005`, 6.819076270999999, 0.10393492999999993`},
      1.1773628123992779`]}, 
   {RGBColor[0.36, 0.24, 0.12], Opacity[0.5], 
    SphereBox[{-3.296627007, 4.614710892, 0.29479725599999995`}, 
     1.1787421577217572`]}, 
   {RGBColor[0.36, 0.24, 0.12], Opacity[0.5], 
    SphereBox[{-1.744217098, 2.882777013, 0.43274725399999997`}, 
     1.180702993902901]}, 
   {RGBColor[0.36, 0.24, 0.12], Opacity[0.5], 
    SphereBox[{0.527233554, 3.4270181010000003`, 0.45731369200000005`}, 
     1.1858359653762258`]}, 
   {RGBColor[0.36, 0.24, 0.12], Opacity[0.5], 
    SphereBox[{2.8572657120000002`, 4.0383444619999995`, 0.5924291009999999}, 
     1.188490102525311]}, 
   {RGBColor[0.36, 0.24, 0.12], Opacity[0.5], 
    SphereBox[{0.9306900550000001, -2.981042765, -0.009448629999999958}, 
     1.1784738568310034`]}, 
   {RGBColor[0.36, 0.24, 0.12], Opacity[0.5], 
    SphereBox[{1.732878742, -5.1787941029999995`, -0.291017804}, 
     1.1791971908481904`]}, 
   {RGBColor[0.36, 0.24, 0.12], Opacity[0.5], 
    SphereBox[{0.18519314799999975`, -6.91639716, -0.3420404059999999}, 
     1.180942323460848]}, 
   {RGBColor[0.36, 0.24, 0.12], Opacity[0.5], 
    SphereBox[{-2.0853126410000002`, -6.3882187429999995`, \
-0.20220068200000002`}, 1.1858201891514784`]}, 
   {RGBColor[0.36, 0.24, 0.12], Opacity[0.5], 
    SphereBox[{-4.42195884, -5.790120464, -0.1691304769999999}, 
     1.187185277057574]}, 
   {RGBColor[0.36, 0.24, 0.12], Opacity[0.5], 
    SphereBox[{-2.4547540740000002`, -12.77454776, 0.307080475}, 
     1.1766105338859703`]}, 
   {RGBColor[0.36, 0.24, 0.12], Opacity[0.5], 
    SphereBox[{-3.257887624, -14.936394304, 0.712426702}, 
     1.1755675224721844`]}, 
   {RGBColor[0.36, 0.24, 0.12], Opacity[0.5], 
    SphereBox[{-1.7319338789999996`, -16.694784347000002`, 
     0.7275445099999999}, 1.1784949993929927`]}, 
   {RGBColor[0.36, 0.24, 0.12], Opacity[0.5], 
    SphereBox[{0.5385719100000002, -16.218573395, 0.37889006300000005`}, 
     1.1855850720295475`]}, 
   {RGBColor[0.36, 0.24, 0.12], Opacity[0.5], 
    SphereBox[{2.859155438, -15.657324773, 0.05763664299999993}, 
     1.1848497743990636`]}, 
   {RGBColor[0.36, 0.24, 0.12], Opacity[0.5], 
    SphereBox[{-2.828950976156058, 15.404413957032878`, 0.006437948153031003},
      1.1302645531044595`]}, 
   {RGBColor[0.36, 0.24, 0.12], Opacity[0.5], 
    SphereBox[{-1.4384433721768068`, 17.01791528220931, 0.3880776053411812}, 
     1.1245844131585692`]}, 
   {RGBColor[0.36, 0.24, 0.12], Opacity[0.5], 
    SphereBox[{2.403535017475313, 12.29667257844042, 0.3213906324028287}, 
     1.1367808301760907`]}, 
   {RGBColor[0.36, 0.24, 0.12], Opacity[0.5], 
    SphereBox[{-1.4644594361656937`, 
     11.076201063478623`, -0.36118217201221603`}, 1.1322705459102396`]}, 
   {RGBColor[0.36, 0.24, 0.12], Opacity[0.5], 
    SphereBox[{-1.5809800558091096`, 
     8.873747832525355, -0.28604360864473943`}, 1.126928523305504]}, 
   {RGBColor[0.36, 0.24, 0.12], Opacity[0.5], 
    SphereBox[{-0.17611200328341484`, 18.722548117438176`, 0.844063706743849},
      1.1326811040162679`]}, 
   {RGBColor[0.36, 0.24, 0.12], Opacity[0.5], 
    SphereBox[{3.086900924221407, 16.220112034031025`, 0.5763511169030858}, 
     1.136121316930776]}, 
   {RGBColor[0.36, 0.24, 0.12], Opacity[0.5], 
    SphereBox[{-6.032085953843846, 12.901095421723689`, 0.9424430698964259}, 
     1.1383273338933404`]}, 
   {RGBColor[0.36, 0.24, 0.12], Opacity[0.5], 
    SphereBox[{-4.732299641712604, 6.403884805209681, 0.27887208369740035`}, 
     1.1379000482431825`]}, 
   {RGBColor[0.36, 0.24, 0.12], Opacity[0.5], 
    SphereBox[{-4.031999233785998, 2.465797400907747, 0.3418305134874766}, 
     1.137526968463311]}, 
   {RGBColor[0.36, 0.24, 0.12], Opacity[0.5], 
    SphereBox[{-0.10586426817906094`, 1.2530089324462077`, 
     0.6326307964851994}, 1.1318185231744449`]}, 
   {RGBColor[0.36, 0.24, 0.12], Opacity[0.5], 
    SphereBox[{0.03451139729930988, -0.9448358025058374, 0.4868600714616439}, 
     1.1264089593419884`]}, 
   {RGBColor[0.36, 0.24, 0.12], Opacity[0.5], 
    SphereBox[{-0.2272109173732968, 7.210780350237151, 0.05429365363093108}, 
     1.1236464208156869`]}, 
   {RGBColor[0.36, 0.24, 0.12], Opacity[0.5], 
    SphereBox[{1.1963003949788664`, 5.599118197626211, 0.2635024392660208}, 
     1.1303969883089011`]}, 
   {RGBColor[0.36, 0.24, 0.12], Opacity[0.5], 
    SphereBox[{4.322760005308129, 3.1427887071323277`, -1.0037761828073217`}, 
     1.1388614162267112`]}, 
   {RGBColor[0.36, 0.24, 0.12], Opacity[0.5], 
    SphereBox[{3.155955995614255, -3.377772333841561, -0.3480530464069931}, 
     1.1389324797249973`]}, 
   {RGBColor[0.36, 0.24, 0.12], Opacity[0.5], 
    SphereBox[{2.4711149983871348`, -7.326940100241427, -0.4254931090381074}, 
     1.1367959876247749`]}, 
   {RGBColor[0.36, 0.24, 0.12], Opacity[0.5], 
    SphereBox[{-1.4435051923183868`, -8.559408090966317, -0.4375424123406998},
      1.132325757042272]}, 
   {RGBColor[0.36, 0.24, 0.12], Opacity[0.5], 
    SphereBox[{-1.571041408791028, -10.754538591836555`, \
-0.27983536711863144`}, 1.1274432414442581`]}, 
   {RGBColor[0.36, 0.24, 0.12], Opacity[0.5], 
    SphereBox[{-1.3299494271247763`, -2.603924443714686, 
     0.19805808580005224`}, 1.1238590233473755`]}, 
   {RGBColor[0.36, 0.24, 0.12], Opacity[0.5], 
    SphereBox[{-2.7553079590919234`, -4.224769764051783, 0.06038767356276942},
      1.1307826317470946`]}, 
   {RGBColor[0.36, 0.24, 0.12], Opacity[0.5], 
    SphereBox[{-5.76674514601087, -6.666926480179968, 1.5352176507295103`}, 
     1.1392107759309054`]}, 
   {RGBColor[0.36, 0.24, 0.12], Opacity[0.5], 
    SphereBox[{-4.661750718532557, -13.13078748425337, 0.7936861899004984}, 
     1.1378588926704931`]}, 
   {RGBColor[0.36, 0.24, 0.12], Opacity[0.5], 
    SphereBox[{-3.994926958203027, -17.079375262594134`, 0.987010559148664}, 
     1.1377136858301384`]}, 
   {RGBColor[0.36, 0.24, 0.12], Opacity[0.5], 
    SphereBox[{-0.19327206937971358`, -18.37234195851721, 0.8103097404150724},
      1.1378980728042372`]}, 
   {RGBColor[0.36, 0.24, 0.12], Opacity[0.5], 
    SphereBox[{-0.21241215279449188`, -12.431113661826828`, \
-0.07177602057753996}, 1.123414815397786]}, 
   {RGBColor[0.36, 0.24, 0.12], Opacity[0.5], 
    SphereBox[{
     1.2120465887772292`, -14.067613436529065`, -0.016612958578628545`}, 
     1.1335239767068843`]}, 
   {RGBColor[0.36, 0.24, 0.12], Opacity[0.5], 
    SphereBox[{
     3.9617649973765343`, -16.537196555181026`, -1.7883998822813243`}, 
     1.1366763709722834`]}, 
   {Opacity[0.5], 
    SphereBox[{1.69357008727217, 13.252445730641151`, -1.7437537502550335`}, 
     1.2525245521509576`]}, 
   {Opacity[0.5], 
    SphereBox[{-1.3900425356923254`, 12.105773831364822`, 1.800818378481456}, 
     1.2481235531033859`]}, 
   {Opacity[0.5], 
    SphereBox[{-2.834415098515931, 14.454157277756428`, -2.1636563677826297`},
      1.2532956915632072`]}, 
   {Opacity[0.5], 
    SphereBox[{-0.07035257273298895, 17.86736783422022, -1.3643244405358916`},
      1.244760823112549]}, 
   {Opacity[0.5], 
    SphereBox[{1.8068610563150675`, 15.592854195924891`, 2.4815600586046624`},
      1.252249015826414]}, 
   {Opacity[0.5], 
    SphereBox[{5.1086104152948115`, 15.776579605753792`, 0.4641597232750979}, 
     1.0928629135097119`]}, 
   {Opacity[0.5], 
    SphereBox[{3.09362135529579, 10.334247306173701`, 0.34130155069048196`}, 
     1.0964442030508648`]}, 
   {Opacity[0.5], 
    SphereBox[{-6.718579546862117, 14.679402068752378`, -0.4562551548727474}, 
     1.2485265817920408`]}, 
   {Opacity[0.5], 
    SphereBox[{-6.253227250887771, 12.503545234447705`, -1.3898840219907813`},
      1.2528876265968418`]}, 
   {Opacity[0.5], 
    SphereBox[{-6.169758291331338, 11.087668598132668`, 1.9842971019622713`}, 
     1.103675432801264]}, 
   {Opacity[0.5], 
    SphereBox[{-0.34656590227196604`, 19.548325091963992`, 
     2.7661602670706555`}, 1.0860711510036547`]}, 
   {Opacity[0.5], 
    SphereBox[{-1.4453983054259558`, 7.993308059941303, 1.9480679592164802`}, 
     1.244802645216093]}, 
   {Opacity[0.5], 
    SphereBox[{-3.650521031530337, 5.8279281266083345`, -1.7633008202154725`},
      1.2497675596906817`]}, 
   {Opacity[0.5], 
    SphereBox[{-3.132932509721171, 3.36215343843018, 2.361042946499994}, 
     1.254601816582464]}, 
   {Opacity[0.5], 
    SphereBox[{-0.38409188952187967`, 
     2.3382511963579002`, -1.4888455175200288`}, 1.250076625234732]}, 
   {Opacity[0.5], 
    SphereBox[{1.3923035961888002`, 4.590629583323588, 2.397865763299067}, 
     1.2543257029772308`]}, 
   {Opacity[0.5], 
    SphereBox[{5.119104765627838, 4.8779303001329675`, 0.3907192534774571}, 
     1.248548733341614]}, 
   {Opacity[0.5], 
    SphereBox[{4.733871782367941, 2.6709184925529437`, 1.2888851196081597`}, 
     1.2523298095450386`]}, 
   {Opacity[0.5], 
    SphereBox[{-6.737791401281884, 5.976600242577015, 0.5677118891442536}, 
     1.0940826447111431`]}, 
   {Opacity[0.5], 
    SphereBox[{-4.706753964783188, 0.4951815703815081, 0.3063219287616928}, 
     1.0983605652519144`]}, 
   {Opacity[0.5], 
    SphereBox[{4.395388360751405, 1.3668800707403699`, -2.111286431065436}, 
     1.101063017490433]}, 
   {Opacity[0.5], 
    SphereBox[{-0.24286834600849022`, -1.7743691896827056`, \
-1.7533248934663466`}, 1.2426789033195336`]}, 
   {Opacity[0.5], 
    SphereBox[{2.2225364687759788`, -3.9925687866237327`, 
     1.7568496383748244`}, 1.2501345167455122`]}, 
   {Opacity[0.5], 
    SphereBox[{1.4292798596983622`, -6.401675953384991, -2.3568166355008584`},
      1.2511158752517537`]}, 
   {Opacity[0.5], 
    SphereBox[{-1.0304074872042628`, -7.481289671870516, 1.6648444235623476`},
      1.2471902398361645`]}, 
   {Opacity[0.5], 
    SphereBox[{-3.0886411441436175`, -5.21070146215688, -2.0686382171332336`},
      1.2547402845179079`]}, 
   {Opacity[0.5], 
    SphereBox[{-6.678796702252236, -4.9732198611427565`, 
     0.15909811904185733`}, 1.2500800306619544`]}, 
   {Opacity[0.5], 
    SphereBox[{-6.320507071561394, -7.194199395013373, -0.7173121385782956}, 
     1.2524896868982753`]}, 
   {Opacity[0.5], 
    SphereBox[{5.142318135820718, -3.774965017386367, -0.7732464683264048}, 
     1.0910899931961786`]}, 
   {Opacity[0.5], 
    SphereBox[{3.116399328676289, -9.304142403986852, -0.42375063319002476`}, 
     1.097442314960888]}, 
   {Opacity[0.5], 
    SphereBox[{-5.78170451666697, -8.417308824991142, 2.6815660657295686`}, 
     1.1001550571947236`]}, 
   {Opacity[0.5], 
    SphereBox[{-1.1384480207685255`, -11.566493829461471`, 
     1.9443184162007097`}, 1.2443826791997568`]}, 
   {Opacity[0.5], 
    SphereBox[{-3.8691338379231306`, -13.824073821553466`, \
-1.345607431614617}, 1.2512409590917088`]}, 
   {Opacity[0.5], 
    SphereBox[{-2.8177811830531594`, -16.073146832152094`, 2.799204529514185},
      1.2520193745958577`]}, 
   {Opacity[0.5], 
    SphereBox[{-0.7045081829890047, -17.426470875867356`, \
-1.3237483560213157`}, 1.2520627531971158`]}, 
   {Opacity[0.5], 
    SphereBox[{1.7639925337055584`, -15.013389681339355`, 2.084267038810408}, 
     1.2521401520042068`]}, 
   {Opacity[0.5], 
    SphereBox[{5.095461101730325, -14.900640237191976`, -0.4867220760683653}, 
     1.2515191800805172`]}, 
   {Opacity[0.5], 
    SphereBox[{4.74339699749716, -17.1458196625504, 0.3579501455437426}, 
     1.2496108809698971`]}, 
   {Opacity[0.5], 
    SphereBox[{-6.616055750704573, -13.504432957096212`, 1.3665257634865609`},
      1.0929364986081582`]}, 
   {Opacity[0.5], 
    SphereBox[{-4.609748126728132, -19.056119089703092`, 1.0722517535627423`},
      1.0905145617559318`]}, 
   {Opacity[0.5], 
    SphereBox[{0.3237390121349573, -19.213664859016312`, 2.6470996622626455`},
      1.0888250317389658`]}, 
   {Opacity[0.5], 
    SphereBox[{3.594947127544483, -18.235183142267438`, -2.960646754656641}, 
     1.0880394954698163`]}},
  AspectRatio->Automatic,
  Axes->Automatic,
  AxesLabel->{
    FormBox["xl", TraditionalForm], 
    FormBox["yl", TraditionalForm], 
    FormBox["zl", TraditionalForm]},
  Boxed->True,
  SphericalRegion->True]], "Output",
 CellChangeTimes->{3.57586949859324*^9}],

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

Cell[BoxData[
 Graphics3DBox[{
   {RGBColor[0.4, 0.2666666666666667, 0.13333333333333336`], Opacity[0.8], 
    SphereBox[{1.4720965540000002`, 13.160051864000001`, -0.253223284}, 
     0.255]}, 
   {RGBColor[0.4, 0.2666666666666667, 0.13333333333333336`], Opacity[0.8], 
    SphereBox[{-1.19997601, 12.260542288000002`, 0.315584242}, 0.255]}, 
   {RGBColor[0.4, 0.2666666666666667, 0.13333333333333336`], Opacity[0.8], 
    SphereBox[{-3.06135612, 14.225857328, -0.687860264}, 0.255]}, 
   {RGBColor[0.4, 0.2666666666666667, 0.13333333333333336`], Opacity[0.8], 
    SphereBox[{-0.196531504, 17.549885362, 0.098265752}, 0.255]}, 
   {RGBColor[0.4, 0.2666666666666667, 0.13333333333333336`], Opacity[0.8], 
    SphereBox[{1.846262302, 15.730079224, 0.978878068}, 0.255]}, 
   {RGBColor[0.4, 0.2666666666666667, 0.13333333333333336`], Opacity[0.8], 
    SphereBox[{-5.827914984, 13.47374638, -0.31369451600000003`}, 0.255]}, 
   {RGBColor[0.4, 0.2666666666666667, 0.13333333333333336`], Opacity[0.8], 
    SphereBox[{-1.4399712120000001`, 7.723310162, 0.470541774}, 0.255]}, 
   {RGBColor[0.4, 0.2666666666666667, 0.13333333333333336`], Opacity[0.8], 
    SphereBox[{-3.54323625, 5.91484238, -0.262671914}, 0.255]}, 
   {RGBColor[0.4, 0.2666666666666667, 0.13333333333333336`], Opacity[0.8], 
    SphereBox[{-3.050017764, 3.314579404, 0.852266426}, 0.255]}, 
   {RGBColor[0.4, 0.2666666666666667, 0.13333333333333336`], Opacity[0.8], 
    SphereBox[{-0.438416432, 2.450974622, 0.013228082}, 0.255]}, 
   {RGBColor[0.4, 0.2666666666666667, 0.13333333333333336`], Opacity[0.8], 
    SphereBox[{1.49288354, 4.40306158, 0.901399302}, 0.255]}, 
   {RGBColor[0.4, 0.2666666666666667, 0.13333333333333336`], Opacity[0.8], 
    SphereBox[{4.221647884, 3.673627344, 0.2834589}, 0.255]}, 
   {RGBColor[0.4, 0.2666666666666667, 0.13333333333333336`], Opacity[0.8], 
    SphereBox[{-0.149288354, -2.076808874, -0.287238352}, 0.255]}, 
   {RGBColor[0.4, 0.2666666666666667, 0.13333333333333336`], Opacity[0.8], 
    SphereBox[{2.010668464, -3.8852766560000003`, 0.268341092}, 0.255]}, 
   {RGBColor[0.4, 0.2666666666666667, 0.13333333333333336`], Opacity[0.8], 
    SphereBox[{1.45508902, -6.47231155, -0.8503767}, 0.255]}, 
   {RGBColor[0.4, 0.2666666666666667, 0.13333333333333336`], Opacity[0.8], 
    SphereBox[{-1.084702724, -7.36048277, 0.166295888}, 0.255]}, 
   {RGBColor[0.4, 0.2666666666666667, 0.13333333333333336`], Opacity[0.8], 
    SphereBox[{-3.085922558, -5.415954716, -0.570697252}, 0.255]}, 
   {RGBColor[0.4, 0.2666666666666667, 0.13333333333333336`], Opacity[0.8], 
    SphereBox[{-5.7579951220000005`, -6.164286212, 0.23243629799999999`}, 
     0.255]}, 
   {RGBColor[0.4, 0.2666666666666667, 0.13333333333333336`], Opacity[0.8], 
    SphereBox[{-1.347374638, -11.882597088, 0.49132876000000003`}, 0.255]}, 
   {RGBColor[0.4, 0.2666666666666667, 0.13333333333333336`], Opacity[0.8], 
    SphereBox[{-3.5621335100000002`, -13.666498432000001`, 
     0.12283219000000001`}, 0.255]}, 
   {RGBColor[0.4, 0.2666666666666667, 0.13333333333333336`], Opacity[0.8], 
    SphereBox[{-2.953641738, -16.206290176, 1.3020212139999998`}, 0.255]}, 
   {RGBColor[0.4, 0.2666666666666667, 0.13333333333333336`], Opacity[0.8], 
    SphereBox[{-0.5102260200000001, -17.183278518, 0.153067806}, 0.255]}, 
   {RGBColor[0.4, 0.2666666666666667, 0.13333333333333336`], Opacity[0.8], 
    SphereBox[{1.58736984, -15.253868271999998`, 0.60471232}, 0.255]}, 
   {RGBColor[0.4, 0.2666666666666667, 0.13333333333333336`], Opacity[0.8], 
    SphereBox[{4.130941036, -16.060781274, -0.489439034}, 0.255]}, 
   {RGBColor[1, 
     NCache[
      Rational[1, 3], 0.3333333333333333], 
     NCache[
      Rational[1, 3], 0.3333333333333333]], Opacity[0.8], 
    SphereBox[{-2.609711606, 16.51620524, 0.6614040999999999}, 0.25]}, 
   {RGBColor[1, 
     NCache[
      Rational[1, 3], 0.3333333333333333], 
     NCache[
      Rational[1, 3], 0.3333333333333333]], Opacity[0.8], 
    SphereBox[{3.2824540620000002`, 11.481975175999999`, 0.863604782}, 0.25]}, 
   {RGBColor[1, 
     NCache[
      Rational[1, 3], 0.3333333333333333], 
     NCache[
      Rational[1, 3], 0.3333333333333333]], Opacity[0.8], 
    SphereBox[{-1.7139814820000001`, 9.958856019999999, -0.999665054}, 0.25]}, 
   {RGBColor[1, 
     NCache[
      Rational[1, 3], 0.3333333333333333], 
     NCache[
      Rational[1, 3], 0.3333333333333333]], Opacity[0.8], 
    SphereBox[{-0.15684725800000002`, 19.828894918, 1.5476855939999998`}, 
     0.25]}, 
   {RGBColor[1, 
     NCache[
      Rational[1, 3], 0.3333333333333333], 
     NCache[
      Rational[1, 3], 0.3333333333333333]], Opacity[0.8], 
    SphereBox[{4.257552678000001, 16.682501128, 0.196531504}, 0.25]}, 
   {RGBColor[1, 
     NCache[
      Rational[1, 3], 0.3333333333333333], 
     NCache[
      Rational[1, 3], 0.3333333333333333]], Opacity[0.8], 
    SphereBox[{-6.224757444, 12.360697766000001`, 2.127831476}, 0.25]}, 
   {RGBColor[1, 
     NCache[
      Rational[1, 3], 0.3333333333333333], 
     NCache[
      Rational[1, 3], 0.3333333333333333]], Opacity[0.8], 
    SphereBox[{-5.854371147999999, 6.865374558, 0.7899054679999999}, 0.25]}, 
   {RGBColor[1, 
     NCache[
      Rational[1, 3], 0.3333333333333333], 
     NCache[
      Rational[1, 3], 0.3333333333333333]], Opacity[0.8], 
    SphereBox[{-4.958641024, 1.664848606, -0.139839724}, 0.25]}, 
   {RGBColor[1, 
     NCache[
      Rational[1, 3], 0.3333333333333333], 
     NCache[
      Rational[1, 3], 0.3333333333333333]], Opacity[0.8], 
    SphereBox[{0.20786986, 0.12283219000000001`, 1.216983544}, 0.25]}, 
   {RGBColor[1, 
     NCache[
      Rational[1, 3], 0.3333333333333333], 
     NCache[
      Rational[1, 3], 0.3333333333333333]], Opacity[0.8], 
    SphereBox[{0.91651711, 6.72742456, -0.338260954}, 0.25]}, 
   {RGBColor[1, 
     NCache[
      Rational[1, 3], 0.3333333333333333], 
     NCache[
      Rational[1, 3], 0.3333333333333333]], Opacity[0.8], 
    SphereBox[{4.418179388, 2.641836948, -2.218538324}, 0.25]}, 
   {RGBColor[1, 
     NCache[
      Rational[1, 3], 0.3333333333333333], 
     NCache[
      Rational[1, 3], 0.3333333333333333]], Opacity[0.8], 
    SphereBox[{4.236765692, -2.898839684, -0.9297451919999999}, 0.25]}, 
   {RGBColor[1, 
     NCache[
      Rational[1, 3], 0.3333333333333333], 
     NCache[
      Rational[1, 3], 0.3333333333333333]], Opacity[0.8], 
    SphereBox[{3.42985269, -8.133380704, -0.024566438}, 0.25]}, 
   {RGBColor[1, 
     NCache[
      Rational[1, 3], 0.3333333333333333], 
     NCache[
      Rational[1, 3], 0.3333333333333333]], Opacity[0.8], 
    SphereBox[{-1.7820116179999999`, -9.690514928, -1.007223958}, 0.25]}, 
   {RGBColor[1, 
     NCache[
      Rational[1, 3], 0.3333333333333333], 
     NCache[
      Rational[1, 3], 0.3333333333333333]], Opacity[0.8], 
    SphereBox[{-2.443415718, -3.101040366, 0.6557349219999999}, 0.25]}, 
   {RGBColor[1, 
     NCache[
      Rational[1, 3], 0.3333333333333333], 
     NCache[
      Rational[1, 3], 0.3333333333333333]], Opacity[0.8], 
    SphereBox[{-5.775002656, -7.141274554, 2.7646691380000004`}, 0.25]}, 
   {RGBColor[1, 
     NCache[
      Rational[1, 3], 0.3333333333333333], 
     NCache[
      Rational[1, 3], 0.3333333333333333]], Opacity[0.8], 
    SphereBox[{-5.699413616, -12.625259406, 1.42674313}, 0.25]}, 
   {RGBColor[1, 
     NCache[
      Rational[1, 3], 0.3333333333333333], 
     NCache[
      Rational[1, 3], 0.3333333333333333]], Opacity[0.8], 
    SphereBox[{-4.9775382839999995`, -17.903264124, 0.68974999}, 0.25]}, 
   {RGBColor[1, 
     NCache[
      Rational[1, 3], 0.3333333333333333], 
     NCache[
      Rational[1, 3], 0.3333333333333333]], Opacity[0.8], 
    SphereBox[{0.105824656, -19.494413416, 1.430522582}, 0.25]}, 
   {RGBColor[1, 
     NCache[
      Rational[1, 3], 0.3333333333333333], 
     NCache[
      Rational[1, 3], 0.3333333333333333]], Opacity[0.8], 
    SphereBox[{0.857935604, -12.948402552000001`, -0.602822594}, 0.25]}, 
   {RGBColor[1, 
     NCache[
      Rational[1, 3], 0.3333333333333333], 
     NCache[
      Rational[1, 3], 0.3333333333333333]], Opacity[0.8], 
    SphereBox[{3.802128712, -16.986747014000002`, -3.01411297}, 0.25]}, 
   {RGBColor[1, 1, 1], Opacity[0.8], 
    SphereBox[{1.780121892, 13.288553232, -2.326252706}, 0.12]}, 
   {RGBColor[1, 1, 1], Opacity[0.8], 
    SphereBox[{-1.46453765, 12.045113524, 2.382944486}, 0.12]}, 
   {RGBColor[1, 1, 1], Opacity[0.8], 
    SphereBox[{-2.745771878, 14.543331296, -2.7401027}, 0.12]}, 
   {RGBColor[1, 1, 1], Opacity[0.8], 
    SphereBox[{-0.020786986, 17.992081246, -1.938858876}, 0.12]}, 
   {RGBColor[1, 1, 1], Opacity[0.8], 
    SphereBox[{1.791460248, 15.539216898000001`, 3.0689150240000003`}, 0.12]}, 
   {RGBColor[1, 1, 1], Opacity[0.8], 
    SphereBox[{5.459418414, 15.403156626, 0.574476704}, 0.12]}, 
   {RGBColor[1, 1, 1], Opacity[0.8], 
    SphereBox[{3.016002696, 9.862479994000001, 0.126611642}, 0.12]}, 
   {RGBColor[1, 1, 1], Opacity[0.8], 
    SphereBox[{-7.06757524, 15.151823068, -0.5121157460000001}, 0.12]}, 
   {RGBColor[1, 1, 1], Opacity[0.8], 
    SphereBox[{-6.419399222, 12.124482016, -1.8103575079999998`}, 0.12]}, 
   {RGBColor[1, 1, 1], Opacity[0.8], 
    SphereBox[{-6.147278678, 10.567347792, 1.925630794}, 0.12]}, 
   {RGBColor[1, 1, 1], Opacity[0.8], 
    SphereBox[{-0.42518835, 19.432052457999998`, 3.2711157060000002`}, 0.12]}, 
   {RGBColor[1, 1, 1], Opacity[0.8], 
    SphereBox[{-1.447530116, 8.099365636, 2.528453388}, 0.12]}, 
   {RGBColor[1, 1, 1], Opacity[0.8], 
    SphereBox[{-3.692524604, 5.793899916, -2.350819144}, 0.12]}, 
   {RGBColor[1, 1, 1], Opacity[0.8], 
    SphereBox[{-3.16529105, 3.380719814, 2.949862286}, 0.12]}, 
   {RGBColor[1, 1, 1], Opacity[0.8], 
    SphereBox[{-0.362827392, 2.294127364, -2.076808874}, 0.12]}, 
   {RGBColor[1, 1, 1], Opacity[0.8], 
    SphereBox[{1.353043816, 4.663843768, 2.981987628}, 0.12]}, 
   {RGBColor[1, 1, 1], Opacity[0.8], 
    SphereBox[{5.47075677, 5.349814306, 0.432747254}, 0.12]}, 
   {RGBColor[1, 1, 1], Opacity[0.8], 
    SphereBox[{4.934074586, 2.279009556, 1.68185614}, 0.12]}, 
   {RGBColor[1, 1, 1], Opacity[0.8], 
    SphereBox[{-7.1015903080000005`, 5.610596494, 0.476210952}, 0.12]}, 
   {RGBColor[1, 1, 1], Opacity[0.8], 
    SphereBox[{-4.603372536, 0.015117808, 0.489439034}, 0.12]}, 
   {RGBColor[1, 1, 1], Opacity[0.8], 
    SphereBox[{4.386054046, 0.844707522, -2.067360244}, 0.12]}, 
   {RGBColor[1, 1, 1], Opacity[0.8], 
    SphereBox[{-0.279679448, -1.655399976, -2.3300321580000003`}, 0.12]}, 
   {RGBColor[1, 1, 1], Opacity[0.8], 
    SphereBox[{2.30546572, -4.03456501, 2.339480788}, 0.12]}, 
   {RGBColor[1, 1, 1], Opacity[0.8], 
    SphereBox[{1.419184226, -6.374045798, -2.946082834}, 0.12]}, 
   {RGBColor[1, 1, 1], Opacity[0.8], 
    SphereBox[{-1.0091136840000001`, -7.528668384, 2.252553392}, 0.12]}, 
   {RGBColor[1, 1, 1], Opacity[0.8], 
    SphereBox[{-3.08970201, -5.13060609, -2.653175304}, 0.12]}, 
   {RGBColor[1, 1, 1], Opacity[0.8], 
    SphereBox[{-7.03922935, -4.50699651, 0.130391094}, 0.12]}, 
   {RGBColor[1, 1, 1], Opacity[0.8], 
    SphereBox[{-6.540341686, -7.5966985199999995`, -1.0884821759999999`}, 
     0.12]}, 
   {RGBColor[1, 1, 1], Opacity[0.8], 
    SphereBox[{5.516110194, -4.136610214, -0.7086472500000001}, 0.12]}, 
   {RGBColor[1, 1, 1], Opacity[0.8], 
    SphereBox[{2.987656806, -9.785001228, -0.587704786}, 0.12]}, 
   {RGBColor[1, 1, 1], Opacity[0.8], 
    SphereBox[{-5.784451286, -8.940293706, 2.647506126}, 0.12]}, 
   {RGBColor[1, 1, 1], Opacity[0.8], 
    SphereBox[{-1.056356834, -11.44229093, 2.515225306}, 0.12]}, 
   {RGBColor[1, 1, 1], Opacity[0.8], 
    SphereBox[{-3.9892115860000006`, -13.885706648, -1.9199616160000001`}, 
     0.12]}, 
   {RGBColor[1, 1, 1], Opacity[0.8], 
    SphereBox[{-2.7646691380000004`, -16.021097028, 3.3844992659999997`}, 
     0.12]}, 
   {RGBColor[1, 1, 1], Opacity[0.8], 
    SphereBox[{-0.780456838, -17.521539472, -1.901064356}, 0.12]}, 
   {RGBColor[1, 1, 1], Opacity[0.8], 
    SphereBox[{1.83303422, -14.91938677, 2.662623934}, 0.12]}, 
   {RGBColor[1, 1, 1], Opacity[0.8], 
    SphereBox[{5.472646496, -14.44695527, -0.48565958200000003`}, 0.12]}, 
   {RGBColor[1, 1, 1], Opacity[0.8], 
    SphereBox[{4.983207462, -17.570672348, 0.68974999}, 0.12]}, 
   {RGBColor[1, 1, 1], Opacity[0.8], 
    SphereBox[{-6.993875926, -13.866809388, 1.34170546}, 0.12]}, 
   {RGBColor[1, 1, 1], Opacity[0.8], 
    SphereBox[{-4.457863634, -19.532207936000002`, 1.230211626}, 0.12]}, 
   {RGBColor[1, 1, 1], Opacity[0.8], 
    SphereBox[{0.413849994, -19.097570956, 3.150173242}, 0.12]}, 
   {RGBColor[1, 1, 1], Opacity[0.8], 
    SphereBox[{3.509221182, -18.751751098, -2.93852393}, 0.12]}, 
   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}], 
   {RGBColor[1, 
     NCache[
      Rational[1, 3], 0.3333333333333333], 
     NCache[
      Rational[1, 3], 0.3333333333333333]], Opacity[0.4], 
    SphereBox[{-2.6844142018633765`, 16.261329230222703`, 
     2.0178459829464366`}, 1.125]}, 
   {RGBColor[1, 
     NCache[
      Rational[1, 3], 0.3333333333333333], 
     NCache[
      Rational[1, 3], 0.3333333333333333]], Opacity[0.4], 
    SphereBox[{3.098071255159693, 11.421185373987079`, 2.2321019213879203`}, 
     1.125]}, 
   {RGBColor[1, 
     NCache[
      Rational[1, 3], 0.3333333333333333], 
     NCache[
      Rational[1, 3], 0.3333333333333333]], Opacity[0.4], 
    SphereBox[{-3.01337373109663, 10.010574688456543`, -1.4680471654439404`}, 
     1.125]}, 
   {RGBColor[1, 
     NCache[
      Rational[1, 3], 0.3333333333333333], 
     NCache[
      Rational[1, 3], 0.3333333333333333]], Opacity[0.4], 
    SphereBox[{1.0668761376361797`, 20.454069491986772`, 1.3989084350907284`},
      1.125]}, 
   {RGBColor[1, 
     NCache[
      Rational[1, 3], 0.3333333333333333], 
     NCache[
      Rational[1, 3], 0.3333333333333333]], Opacity[0.4], 
    SphereBox[{4.560647258705021, 17.843821693860495`, 0.8820568926302881}, 
     1.125]}, 
   {RGBColor[1, 
     NCache[
      Rational[1, 3], 0.3333333333333333], 
     NCache[
      Rational[1, 3], 0.3333333333333333]], Opacity[0.4], 
    SphereBox[{-5.245021820706192, 12.782311264184694`, 3.006942963012632}, 
     1.125]}, 
   {RGBColor[1, 
     NCache[
      Rational[1, 3], 0.3333333333333333], 
     NCache[
      Rational[1, 3], 0.3333333333333333]], Opacity[0.4], 
    SphereBox[{-5.714265767023774, 7.076822120196356, 2.148631801984414}, 
     1.125]}, 
   {RGBColor[1, 
     NCache[
      Rational[1, 3], 0.3333333333333333], 
     NCache[
      Rational[1, 3], 0.3333333333333333]], Opacity[0.4], 
    SphereBox[{-6.210470468765993, 2.0764644598510986`, 0.2772601082647682}, 
     1.125]}, 
   {RGBColor[1, 
     NCache[
      Rational[1, 3], 0.3333333333333333], 
     NCache[
      Rational[1, 3], 0.3333333333333333]], Opacity[0.4], 
    SphereBox[{-0.566278757025057, -0.003157401785744196, 2.355094866112145}, 
     1.125]}, 
   {RGBColor[1, 
     NCache[
      Rational[1, 3], 0.3333333333333333], 
     NCache[
      Rational[1, 3], 0.3333333333333333]], Opacity[0.4], 
    SphereBox[{1.9126348463882705`, 7.644995483975408, -0.06205470003817204}, 
     1.125]}, 
   {RGBColor[1, 
     NCache[
      Rational[1, 3], 0.3333333333333333], 
     NCache[
      Rational[1, 3], 0.3333333333333333]], Opacity[0.4], 
    SphereBox[{5.600508452932571, 3.0478330186939853`, -2.8082348669750443`}, 
     1.125]}, 
   {RGBColor[1, 
     NCache[
      Rational[1, 3], 0.3333333333333333], 
     NCache[
      Rational[1, 3], 0.3333333333333333]], Opacity[0.4], 
    SphereBox[{4.612928940433231, -1.706449098441856, -0.3405230420425619}, 
     1.125]}, 
   {RGBColor[1, 
     NCache[
      Rational[1, 3], 0.3333333333333333], 
     NCache[
      Rational[1, 3], 0.3333333333333333]], Opacity[0.4], 
    SphereBox[{3.5318308998767964`, -8.108420058768827, 1.3536404589860687`}, 
     1.125]}, 
   {RGBColor[1, 
     NCache[
      Rational[1, 3], 0.3333333333333333], 
     NCache[
      Rational[1, 3], 0.3333333333333333]], Opacity[0.4], 
    SphereBox[{-3.1289201453957842`, -9.63516154150201, -1.3125930157509829`},
      1.125]}, 
   {RGBColor[1, 
     NCache[
      Rational[1, 3], 0.3333333333333333], 
     NCache[
      Rational[1, 3], 0.3333333333333333]], Opacity[0.4], 
    SphereBox[{-2.309414448827892, -3.3321438921173954`, 2.0118734326530863`},
      1.125]}, 
   {RGBColor[1, 
     NCache[
      Rational[1, 3], 0.3333333333333333], 
     NCache[
      Rational[1, 3], 0.3333333333333333]], Opacity[0.4], 
    SphereBox[{-6.900668610103364, -6.7025218011915655`, 3.4361220564355257`},
      1.125]}, 
   {RGBColor[1, 
     NCache[
      Rational[1, 3], 0.3333333333333333], 
     NCache[
      Rational[1, 3], 0.3333333333333333]], Opacity[0.4], 
    SphereBox[{-5.376146954004887, -12.35560342485477, 2.743276896021647}, 
     1.125]}, 
   {RGBColor[1, 
     NCache[
      Rational[1, 3], 0.3333333333333333], 
     NCache[
      Rational[1, 3], 0.3333333333333333]], Opacity[0.4], 
    SphereBox[{-6.135085682008619, -17.52647573794737, 1.3444188937210568`}, 
     1.125]}, 
   {RGBColor[1, 
     NCache[
      Rational[1, 3], 0.3333333333333333], 
     NCache[
      Rational[1, 3], 0.3333333333333333]], Opacity[0.4], 
    SphereBox[{-0.9453946379045413, -20.38627958841066, 1.3305747624519806`}, 
     1.125]}, 
   {RGBColor[1, 
     NCache[
      Rational[1, 3], 0.3333333333333333], 
     NCache[
      Rational[1, 3], 0.3333333333333333]], Opacity[0.4], 
    SphereBox[{1.89426095324362, -12.040002727285845`, -0.4964441705562326}, 
     1.125]}, 
   {RGBColor[1, 
     NCache[
      Rational[1, 3], 0.3333333333333333], 
     NCache[
      Rational[1, 3], 0.3333333333333333]], Opacity[0.4], 
    SphereBox[{4.937915314890864, -16.73116590016154, -3.7591927824648943`}, 
     1.125]}, 
   {RGBColor[1, 
     NCache[
      Rational[1, 3], 0.3333333333333333], 
     NCache[
      Rational[1, 3], 0.3333333333333333]], Opacity[0.4], 
    SphereBox[{-3.5834783758328954`, 17.436984559118343`, 0.3231430122982511},
      1.125]}, 
   {RGBColor[1, 
     NCache[
      Rational[1, 3], 0.3333333333333333], 
     NCache[
      Rational[1, 3], 0.3333333333333333]], Opacity[0.4], 
    SphereBox[{4.5667717911991375`, 11.921119837360802`, 0.6025362529447371}, 
     1.125]}, 
   {RGBColor[1, 
     NCache[
      Rational[1, 3], 0.3333333333333333], 
     NCache[
      Rational[1, 3], 0.3333333333333333]], Opacity[0.4], 
    SphereBox[{-0.8514146988777641, 9.875439735995126, -2.0764645284691214`}, 
     1.125]}, 
   {RGBColor[1, 
     NCache[
      Rational[1, 3], 0.3333333333333333], 
     NCache[
      Rational[1, 3], 0.3333333333333333]], Opacity[0.4], 
    SphereBox[{-1.1524618505947597`, 20.679473784016686`, 
     1.1052559208335888`}, 1.125]}, 
   {RGBColor[1, 
     NCache[
      Rational[1, 3], 0.3333333333333333], 
     NCache[
      Rational[1, 3], 0.3333333333333333]], Opacity[0.4], 
    SphereBox[{4.2512775956519855`, 16.95006642707765, -1.1595091569209817`}, 
     1.125]}, 
   {RGBColor[1, 
     NCache[
      Rational[1, 3], 0.3333333333333333], 
     NCache[
      Rational[1, 3], 0.3333333333333333]], Opacity[0.4], 
    SphereBox[{-7.461365647501381, 12.729870573979506`, 2.622794534097891}, 
     1.125]}, 
   {RGBColor[1, 
     NCache[
      Rational[1, 3], 0.3333333333333333], 
     NCache[
      Rational[1, 3], 0.3333333333333333]], Opacity[0.4], 
    SphereBox[{-6.206033981651733, 8.056817337444024, 0.18387395500852532`}, 
     1.125]}, 
   {RGBColor[1, 
     NCache[
      Rational[1, 3], 0.3333333333333333], 
     NCache[
      Rational[1, 3], 0.3333333333333333]], Opacity[0.4], 
    SphereBox[{-4.922170194118721, 1.6677529804463838`, -1.5215554267322395`},
      1.125]}, 
   {RGBColor[1, 
     NCache[
      Rational[1, 3], 0.3333333333333333], 
     NCache[
      Rational[1, 3], 0.3333333333333333]], Opacity[0.4], 
    SphereBox[{1.5391943046377972`, 0.1824796104257056, 1.583718118790025}, 
     1.125]}, 
   {RGBColor[1, 
     NCache[
      Rational[1, 3], 0.3333333333333333], 
     NCache[
      Rational[1, 3], 0.3333333333333333]], Opacity[0.4], 
    SphereBox[{0.8705112235630224, 6.511558549644475, -1.702725011418273}, 
     1.125]}, 
   {RGBColor[1, 
     NCache[
      Rational[1, 3], 0.3333333333333333], 
     NCache[
      Rational[1, 3], 0.3333333333333333]], Opacity[0.4], 
    SphereBox[{3.3583583676340236`, 
     3.0722508324328257`, -2.9944249992805245`}, 1.125]}, 
   {RGBColor[1, 
     NCache[
      Rational[1, 3], 0.3333333333333333], 
     NCache[
      Rational[1, 3], 0.3333333333333333]], Opacity[0.4], 
    SphereBox[{
     4.0039526371294185`, -2.6813792470900832`, -2.2747306491186916`}, 
     1.125]}, 
   {RGBColor[1, 
     NCache[
      Rational[1, 3], 0.3333333333333333], 
     NCache[
      Rational[1, 3], 0.3333333333333333]], Opacity[0.4], 
    SphereBox[{4.6395330967577655`, -7.74860436348081, -0.571464345550421}, 
     1.125]}, 
   {RGBColor[1, 
     NCache[
      Rational[1, 3], 0.3333333333333333], 
     NCache[
      Rational[1, 3], 0.3333333333333333]], Opacity[0.4], 
    SphereBox[{-1.0606029002784867`, -9.817601765533508, \
-2.1793567310769815`}, 1.125]}, 
   {RGBColor[1, 
     NCache[
      Rational[1, 3], 0.3333333333333333], 
     NCache[
      Rational[1, 3], 0.3333333333333333]], Opacity[0.4], 
    SphereBox[{-3.4607763276058803`, -2.1873420404920116`, 
     0.4542166846460311}, 1.125]}, 
   {RGBColor[1, 
     NCache[
      Rational[1, 3], 0.3333333333333333], 
     NCache[
      Rational[1, 3], 0.3333333333333333]], Opacity[0.4], 
    SphereBox[{-4.6507268092599805`, -6.715009109459548, 3.4464157413855574`},
      1.125]}, 
   {RGBColor[1, 
     NCache[
      Rational[1, 3], 0.3333333333333333], 
     NCache[
      Rational[1, 3], 0.3333333333333333]], Opacity[0.4], 
    SphereBox[{-6.112788780239497, -11.455641589961473`, 0.8171596837063557}, 
     1.125]}, 
   {RGBColor[1, 
     NCache[
      Rational[1, 3], 0.3333333333333333], 
     NCache[
      Rational[1, 3], 0.3333333333333333]], Opacity[0.4], 
    SphereBox[{-5.2109727835440305`, -17.900877670036504`, \
-0.6725933878824294}, 1.125]}, 
   {RGBColor[1, 
     NCache[
      Rational[1, 3], 0.3333333333333333], 
     NCache[
      Rational[1, 3], 0.3333333333333333]], Opacity[0.4], 
    SphereBox[{1.2321798120773064`, -20.062700101095423`, 0.865853523239628}, 
     1.125]}, 
   {RGBColor[1, 
     NCache[
      Rational[1, 3], 0.3333333333333333], 
     NCache[
      Rational[1, 3], 0.3333333333333333]], Opacity[0.4], 
    SphereBox[{0.6170818725599547, -13.20036901341543, -1.9403498731136612`}, 
     1.125]}, 
   {RGBColor[1, 
     NCache[
      Rational[1, 3], 0.3333333333333333], 
     NCache[
      Rational[1, 3], 0.3333333333333333]], Opacity[0.4], 
    SphereBox[{2.724343981414462, -16.357342453377125`, -3.6080042172698867`},
      1.125]}},
  AspectRatio->Automatic,
  Axes->Automatic,
  AxesLabel->{
    FormBox["xl", TraditionalForm], 
    FormBox["yl", TraditionalForm], 
    FormBox["zl", TraditionalForm]},
  Boxed->True,
  SphericalRegion->True]], "Output",
 CellChangeTimes->{3.57586949868684*^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", ",", "tpso", ",", "tpsu"}], "]"}]}],
   ";"}], "\[IndentingNewLine]", 
 RowBox[{
  RowBox[{"bt", "=", 
   RowBox[{"Length", "[", "tw", "]"}]}], "\[IndentingNewLine]", 
  RowBox[{"(*", 
   RowBox[{"MatrixForm", "[", "tw", "]"}], "*)"}]}], "\[IndentingNewLine]", 
 RowBox[{
  RowBox[{"(*", " ", 
   RowBox[{"coordinates", " ", "of", " ", "clouds"}], " ", "*)"}]}]}], "Input",
 CellChangeTimes->{{3.568895397419882*^9, 3.5688955157148895`*^9}, {
   3.568895549629349*^9, 3.5688955855718126`*^9}, {3.568895617317868*^9, 
   3.568895845234268*^9}, {3.5688960797194805`*^9, 3.5688961015127187`*^9}, {
   3.568896219074525*^9, 3.5688962276233397`*^9}, {3.568896262910602*^9, 
   3.5688962903198504`*^9}, 3.5688964250728865`*^9, 3.568896456912543*^9, {
   3.5688981540863237`*^9, 3.5688981869399815`*^9}, {3.5689021233572955`*^9, 
   3.5689021341525145`*^9}, {3.5689111169043026`*^9, 
   3.5689111218495116`*^9}, {3.568911235261711*^9, 3.568911242437723*^9}, 
   3.5689112948850155`*^9, {3.5689116510180407`*^9, 3.568911800419503*^9}, {
   3.568911871820829*^9, 3.5689119012892804`*^9}, {3.5689119993042526`*^9, 
   3.5689120006770554`*^9}, {3.568912144306507*^9, 3.568912165085744*^9}, {
   3.5689528310632005`*^9, 3.5689528569592457`*^9}, {3.5689534065794115`*^9, 
   3.5689534297298517`*^9}, {3.568954496214126*^9, 3.5689545054337425`*^9}, 
   3.5689569073699613`*^9, {3.56913308739126*^9, 3.5691332012870607`*^9}, {
   3.569135511323518*^9, 3.5691355127119203`*^9}, {3.569136204167535*^9, 
   3.569136290747687*^9}, {3.5691598050571885`*^9, 3.569159843199256*^9}, {
   3.5692215417755947`*^9, 3.569221597186892*^9}, {3.5692216819730406`*^9, 
   3.5692217090546885`*^9}, {3.5692217693019943`*^9, 
   3.5692218260704937`*^9}, {3.5692219780303607`*^9, 3.569221989433981*^9}, {
   3.569222055468897*^9, 3.5692220728005276`*^9}, {3.5693401536421804`*^9, 
   3.5693401889450426`*^9}, 3.5693411655535583`*^9, {3.569341634303181*^9, 
   3.569341638733589*^9}, {3.5704549882757435`*^9, 3.5704550487414494`*^9}, {
   3.570455928146194*^9, 3.5704559415310173`*^9}, {3.5708553973857827`*^9, 
   3.5708554057785974`*^9}, {3.5718402591869545`*^9, 3.5718402726497784`*^9}, 
   3.572328636723397*^9, {3.572328748419593*^9, 3.57232875246*^9}, {
   3.5725921859362335`*^9, 3.5725921932682457`*^9}, {3.5725923978158054`*^9, 
   3.5725924023086133`*^9}, 3.5725926630786715`*^9, {3.5726167873570023`*^9, 
   3.57261679757502*^9}, 3.572620232450739*^9, {3.5726252144466896`*^9, 
   3.57262521482109*^9}, {3.572842310446463*^9, 3.5728423195412793`*^9}, 
   3.572851092419488*^9, {3.572851145927582*^9, 3.5728511735708303`*^9}, {
   3.5728512529593697`*^9, 3.572851265595392*^9}, 3.5728513850916023`*^9, 
   3.573124143499799*^9, {3.5733124027399025`*^9, 3.573312472362825*^9}, {
   3.5733130968319216`*^9, 3.5733130974091225`*^9}, {3.573316202329376*^9, 
   3.573316209786189*^9}, 3.573368517265889*^9, 3.5746700189174166`*^9, {
   3.574670900474965*^9, 3.5746709256066093`*^9}, 3.5758638957513986`*^9}],

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

Cell[CellGroupData[{

Cell[BoxData[
 RowBox[{
  RowBox[{"(*", " ", 
   RowBox[{"cloud", "-", 
    RowBox[{"cloud", " ", "distances"}]}], " ", "*)"}], "\[IndentingNewLine]", 
  RowBox[{
   RowBox[{
    RowBox[{"dw", "=", 
     RowBox[{"Table", "[", 
      RowBox[{
       RowBox[{"Norm", "[", 
        RowBox[{
         RowBox[{"tw", "[", 
          RowBox[{"[", "i", "]"}], "]"}], "-", 
         RowBox[{"tw", "[", 
          RowBox[{"[", "j", "]"}], "]"}]}], "]"}], ",", 
       RowBox[{"{", 
        RowBox[{"i", ",", "1", ",", "bt"}], "}"}], ",", 
       RowBox[{"{", 
        RowBox[{"j", ",", "1", ",", "bt"}], "}"}]}], "]"}]}], ";"}], 
   "\[IndentingNewLine]", 
   RowBox[{"(*", 
    RowBox[{"MatrixForm", "[", "dw", "]"}], "*)"}], "\[IndentingNewLine]", 
   RowBox[{"Length", "[", "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}, {3.5720164790812473`*^9, 
   3.572016508424899*^9}, {3.57235540487335*^9, 3.572355408040156*^9}, {
   3.572356807768214*^9, 3.5723568154122276`*^9}, {3.572621722359356*^9, 
   3.572621725962962*^9}}],

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

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[{"t", "[", 
      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[{
   RowBox[{"tv3", "=", " ", 
    RowBox[{"Table", "[", 
     RowBox[{
      RowBox[{"t", "[", 
       RowBox[{"[", "i", "]"}], "]"}], ",", 
      RowBox[{"{", 
       RowBox[{"i", ",", 
        RowBox[{"bc", "+", "1"}], ",", "n"}], "}"}]}], "]"}]}], ";"}], 
  "\[IndentingNewLine]", 
  RowBox[{"(*", 
   RowBox[{
    RowBox[{"tv4", " ", "=", 
     RowBox[{"Table", "[", 
      RowBox[{
       RowBox[{"{", 
        RowBox[{"0", ",", "0", ",", "0"}], "}"}], ",", 
       RowBox[{"{", 
        RowBox[{"i", ",", "1", ",", "cj"}], "}"}]}], "]"}]}], ";", " ", 
    "\[IndentingNewLine]", 
    RowBox[{"tv5", " ", "=", 
     RowBox[{"Table", "[", 
      RowBox[{
       RowBox[{"{", 
        RowBox[{"0", ",", "0", ",", "0"}], "}"}], ",", 
       RowBox[{"{", 
        RowBox[{"i", ",", "1", ",", "cj"}], "}"}]}], "]"}]}], ";"}], " ", 
   "*)"}]}], "\[IndentingNewLine]", 
 RowBox[{
  RowBox[{
   RowBox[{"tv6", " ", "=", 
    RowBox[{"Table", "[", 
     RowBox[{
      RowBox[{"{", 
       RowBox[{"0", ",", "0", ",", "0"}], "}"}], ",", 
      RowBox[{"{", 
       RowBox[{"i", ",", "1", ",", 
        RowBox[{"2", "*", "hj"}]}], "}"}]}], "]"}]}], ";"}], 
  " "}], "\[IndentingNewLine]", 
 RowBox[{
  RowBox[{
   RowBox[{"tv", "  ", "=", " ", 
    RowBox[{"Join", "[", 
     RowBox[{"tv1", ",", "tv2", ",", "tv3", ",", 
      RowBox[{"(*", 
       RowBox[{"tv4", ",", "tv5", ","}], "*)"}], "tv6"}], "]"}]}], ";"}], 
  "\[IndentingNewLine]", 
  RowBox[{"(*", 
   RowBox[{"MatrixForm", "[", "tv", "]"}], "*)"}]}], "\[IndentingNewLine]", 
 RowBox[{"Length", "[", "tv", "]"}]}], "Input",
 CellChangeTimes->{{3.5688982251756487`*^9, 3.5688986440675845`*^9}, {
   3.5688986873108606`*^9, 3.56889871560931*^9}, {3.5688987970414534`*^9, 
   3.5688988526711507`*^9}, {3.568898887147211*^9, 3.568898888644814*^9}, {
   3.5688989206248703`*^9, 3.568899041759083*^9}, {3.5688990876855636`*^9, 
   3.568899258349863*^9}, 3.568899300267137*^9, {3.568899351326027*^9, 
   3.5688993831032825`*^9}, {3.5688994370481772`*^9, 3.568899468217032*^9}, {
   3.5688995813016305`*^9, 3.5688997165538683`*^9}, {3.5688998495129013`*^9, 
   3.568899932364647*^9}, {3.568899967667509*^9, 3.568900024529609*^9}, {
   3.5689000794261055`*^9, 3.568900136257005*^9}, {3.5689001767858763`*^9, 
   3.56890020149632*^9}, {3.568902068726*^9, 3.568902074139209*^9}, 
   3.56890216040736*^9, 3.568902344113283*^9, {3.5689024237982235`*^9, 
   3.56890243907065*^9}, 3.5689025770684924`*^9, 3.568910195129884*^9, 
   3.568910620995032*^9, {3.568912393532545*^9, 3.5689124022841606`*^9}, {
   3.5691332074958715`*^9, 3.5691332081666727`*^9}, {3.5691352237838125`*^9, 
   3.5691352313342257`*^9}, {3.5691489965881166`*^9, 
   3.5691490103317413`*^9}, {3.5691490440122004`*^9, 
   3.5691491273631463`*^9}, {3.5691523435842266`*^9, 3.56915234531583*^9}, {
   3.5691524837816734`*^9, 3.5691526041202846`*^9}, {3.5691595921324143`*^9, 
   3.5691596901941867`*^9}, {3.569159772406331*^9, 3.5691597832951508`*^9}, {
   3.5691598700313025`*^9, 3.569159885147729*^9}, {3.569160485733184*^9, 
   3.569160486887586*^9}, {3.5691672792073207`*^9, 3.5691672793789206`*^9}, {
   3.5691673418102303`*^9, 3.5691674875144863`*^9}, {3.569168259700243*^9, 
   3.569168260386644*^9}, {3.569168321257951*^9, 3.569168337466379*^9}, {
   3.5691685152754917`*^9, 3.569168656096939*^9}, {3.5691687137702403`*^9, 
   3.569168772566744*^9}, {3.5691697249898825`*^9, 3.569169747063921*^9}, {
   3.569169944981469*^9, 3.5691699696763124`*^9}, 3.569341165569158*^9, {
   3.5693417833614435`*^9, 3.5693417874486504`*^9}, {3.5704552110753345`*^9, 
   3.5704552378605814`*^9}, {3.5704560776724567`*^9, 3.570456083070066*^9}, {
   3.570855427306635*^9, 3.570855434529448*^9}, {3.57184030784344*^9, 
   3.5718403245666695`*^9}, {3.5723553440956435`*^9, 
   3.5723553601792717`*^9}, {3.5723567913257856`*^9, 3.572356801543803*^9}, {
   3.5723587125159597`*^9, 3.572358735884801*^9}, {3.5726205042656164`*^9, 
   3.5726205078692226`*^9}, {3.5726209578956137`*^9, 
   3.5726209632776227`*^9}, {3.5726266468256054`*^9, 
   3.5726266628780336`*^9}, {3.57284236531176*^9, 3.57284238273699*^9}, {
   3.572842728620798*^9, 3.572842734502008*^9}, 3.5731240921601086`*^9, {
   3.5733125819686174`*^9, 3.573312582608218*^9}, {3.5733126196738834`*^9, 
   3.5733126474263325`*^9}, {3.5733131200291624`*^9, 3.5733131288743777`*^9}, 
   3.573368536719124*^9, {3.5746698693443537`*^9, 3.5746698885011873`*^9}, {
   3.574740991757182*^9, 3.5747410134412203`*^9}, {3.5748285231568966`*^9, 
   3.5748285315497117`*^9}, {3.5748737997424955`*^9, 
   3.5748738036893024`*^9}, {3.5758639271698537`*^9, 3.575863942754281*^9}}],

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

Cell[CellGroupData[{

Cell[BoxData[{
 RowBox[{
  RowBox[{"ow", "=", 
   RowBox[{"Join", "[", 
    RowBox[{
     RowBox[{"Table", "[", 
      RowBox[{
       RowBox[{"-", "2.0"}], ",", 
       RowBox[{"{", 
        RowBox[{"i", ",", "1", ",", 
         RowBox[{"bc", "+", "nb"}]}], "}"}]}], "]"}], ",", 
     RowBox[{"(*", 
      RowBox[{
       RowBox[{"Table", "[", 
        RowBox[{
         RowBox[{"-", "0.5"}], ",", 
         RowBox[{"{", 
          RowBox[{"i", ",", "1", ",", 
           RowBox[{"2", "*", "cj"}]}], "}"}]}], "]"}], ","}], "*)"}], 
     RowBox[{"Table", "[", 
      RowBox[{
       RowBox[{"-", "2.0"}], ",", 
       RowBox[{"{", 
        RowBox[{"i", ",", "1", ",", 
         RowBox[{"2", "*", "hj"}]}], "}"}]}], "]"}]}], "]"}]}], 
  ";"}], "\[IndentingNewLine]", "ow", "\[IndentingNewLine]", 
 RowBox[{"cnv", "=", 
  RowBox[{"Join", "[", 
   RowBox[{
    RowBox[{"Table", "[", 
     RowBox[{
      RowBox[{"cn", "[", 
       RowBox[{"[", "i", "]"}], "]"}], ",", 
      RowBox[{"{", 
       RowBox[{"i", ",", "1", ",", "bc"}], "}"}]}], "]"}], ",", 
    RowBox[{"Table", "[", 
     RowBox[{"0.0", ",", 
      RowBox[{"{", 
       RowBox[{"i", ",", "1", ",", "cw"}], "}"}]}], "]"}], ",", 
    RowBox[{"Table", "[", 
     RowBox[{
      RowBox[{"cn", "[", 
       RowBox[{"[", "i", "]"}], "]"}], ",", 
      RowBox[{"{", 
       RowBox[{"i", ",", 
        RowBox[{"bc", "+", "1"}], ",", "n"}], "}"}]}], "]"}], ",", 
    RowBox[{"(*", 
     RowBox[{
      RowBox[{"Table", "[", 
       RowBox[{"0.0", ",", 
        RowBox[{"{", 
         RowBox[{"i", ",", "1", ",", 
          RowBox[{"2", "*", "cj"}]}], "}"}]}], "]"}], ","}], "*)"}], 
    RowBox[{"Table", "[", 
     RowBox[{"0.0", ",", 
      RowBox[{"{", 
       RowBox[{"i", ",", "1", ",", 
        RowBox[{"2", "*", "hj"}]}], "}"}]}], "]"}]}], "]"}]}]}], "Input",
 CellChangeTimes->{{3.5688982251756487`*^9, 3.5688986440675845`*^9}, {
   3.5688986873108606`*^9, 3.56889871560931*^9}, {3.5688987970414534`*^9, 
   3.5688988526711507`*^9}, {3.568898887147211*^9, 3.568898888644814*^9}, {
   3.5688989206248703`*^9, 3.568899041759083*^9}, {3.5688990876855636`*^9, 
   3.568899258349863*^9}, 3.568899300267137*^9, {3.568899351326027*^9, 
   3.5688993831032825`*^9}, {3.5688994370481772`*^9, 3.568899468217032*^9}, {
   3.5688995813016305`*^9, 3.5688997165538683`*^9}, {3.5688998495129013`*^9, 
   3.568899932364647*^9}, {3.568899967667509*^9, 3.568900024529609*^9}, {
   3.5689000794261055`*^9, 3.568900136257005*^9}, {3.5689001767858763`*^9, 
   3.56890020149632*^9}, {3.568902068726*^9, 3.568902074139209*^9}, 
   3.56890216040736*^9, 3.568902344113283*^9, {3.5689024237982235`*^9, 
   3.56890243907065*^9}, 3.5689025770684924`*^9, 3.568910195129884*^9, 
   3.568910620995032*^9, {3.568912393532545*^9, 3.5689124022841606`*^9}, {
   3.5691332074958715`*^9, 3.5691332081666727`*^9}, {3.5691352237838125`*^9, 
   3.5691352313342257`*^9}, {3.5691489965881166`*^9, 
   3.5691490103317413`*^9}, {3.5691490440122004`*^9, 
   3.5691491273631463`*^9}, {3.5691523435842266`*^9, 3.56915234531583*^9}, {
   3.5691524837816734`*^9, 3.5691526041202846`*^9}, {3.5691595921324143`*^9, 
   3.5691596901941867`*^9}, {3.569159772406331*^9, 3.5691597832951508`*^9}, {
   3.5691598700313025`*^9, 3.569159885147729*^9}, {3.569160485733184*^9, 
   3.569160486887586*^9}, {3.5691672792073207`*^9, 3.5691672793789206`*^9}, {
   3.5691673418102303`*^9, 3.5691674875144863`*^9}, {3.569168259700243*^9, 
   3.569168260386644*^9}, {3.569168321257951*^9, 3.569168337466379*^9}, {
   3.5691685152754917`*^9, 3.569168656096939*^9}, {3.5691687137702403`*^9, 
   3.569168772566744*^9}, {3.5691697249898825`*^9, 3.569169747063921*^9}, {
   3.569169944981469*^9, 3.5691699655579047`*^9}, {3.56921753575448*^9, 
   3.569217541807291*^9}, {3.569217576283351*^9, 3.5692176436130695`*^9}, {
   3.5692176921603546`*^9, 3.569217692768756*^9}, {3.5692177389136367`*^9, 
   3.569217740192839*^9}, {3.5692222042775583`*^9, 3.5692222070231633`*^9}, {
   3.569230669979245*^9, 3.5692306709620466`*^9}, {3.5692308816872168`*^9, 
   3.5692309970650196`*^9}, {3.5692310297158766`*^9, 3.569231090602784*^9}, {
   3.5692311251880445`*^9, 3.569231148868886*^9}, 3.56923793753481*^9, 
   3.569341165569158*^9, 3.5693418217375107`*^9, {3.5703412254249296`*^9, 
   3.5703412423509593`*^9}, {3.5704553045038986`*^9, 3.570455320681127*^9}, {
   3.57045550485505*^9, 3.5704555063370533`*^9}, {3.5704556421508913`*^9, 
   3.5704556424784923`*^9}, 3.5704557137862177`*^9, {3.5704564711051474`*^9, 
   3.5704564908079824`*^9}, {3.570456521602436*^9, 3.5704565228348384`*^9}, {
   3.5704569127419233`*^9, 3.5704569202767363`*^9}, 3.5704636205455036`*^9, 
   3.570596993178934*^9, {3.570855461377095*^9, 3.5708554743563175`*^9}, 
   3.570855611589759*^9, {3.571840408884818*^9, 3.571840415296429*^9}, {
   3.571840465559717*^9, 3.571840473905732*^9}, {3.5720165322617407`*^9, 
   3.5720165635241957`*^9}, {3.5721934404423375`*^9, 3.57219344758715*^9}, 
   3.572193479551606*^9, {3.5721935303764954`*^9, 3.572193534214102*^9}, {
   3.5726206642250977`*^9, 3.5726206651142993`*^9}, {3.572620782223705*^9, 
   3.572620782738506*^9}, {3.572620924963956*^9, 3.5726209465699935`*^9}, {
   3.572842408289835*^9, 3.5728424357302833`*^9}, {3.5728424783807583`*^9, 
   3.57284247916076*^9}, 3.5728451195121975`*^9, {3.5731249170427575`*^9, 
   3.573124927962777*^9}, {3.5731450428093076`*^9, 3.5731450615449405`*^9}, {
   3.5731451273458557`*^9, 3.573145132259865*^9}, {3.573312700185625*^9, 
   3.573312779979765*^9}, {3.5733131504804153`*^9, 3.5733131516816177`*^9}, {
   3.5733132756862354`*^9, 3.5733132772462387`*^9}, {3.5733147916812983`*^9, 
   3.573314840275384*^9}, {3.5733593507659893`*^9, 3.573359359377204*^9}, {
   3.5746698998736076`*^9, 3.574669995361375*^9}, {3.5747410251880407`*^9, 
   3.574741049430484*^9}, {3.574828384379053*^9, 3.574828403270686*^9}, 
   3.5748284615211887`*^9, {3.5748284935168447`*^9, 3.5748284944996467`*^9}, {
   3.574873818805729*^9, 3.574873834936157*^9}, {3.575863966076322*^9, 
   3.5758639815047493`*^9}}],

Cell[BoxData[
 RowBox[{"{", 
  RowBox[{
   RowBox[{"-", "2.`"}], ",", 
   RowBox[{"-", "2.`"}], ",", 
   RowBox[{"-", "2.`"}], ",", 
   RowBox[{"-", "2.`"}], ",", 
   RowBox[{"-", "2.`"}], ",", 
   RowBox[{"-", "2.`"}], ",", 
   RowBox[{"-", "2.`"}], ",", 
   RowBox[{"-", "2.`"}], ",", 
   RowBox[{"-", "2.`"}], ",", 
   RowBox[{"-", "2.`"}], ",", 
   RowBox[{"-", "2.`"}], ",", 
   RowBox[{"-", "2.`"}], ",", 
   RowBox[{"-", "2.`"}], ",", 
   RowBox[{"-", "2.`"}], ",", 
   RowBox[{"-", "2.`"}], ",", 
   RowBox[{"-", "2.`"}], ",", 
   RowBox[{"-", "2.`"}], ",", 
   RowBox[{"-", "2.`"}], ",", 
   RowBox[{"-", "2.`"}], ",", 
   RowBox[{"-", "2.`"}], ",", 
   RowBox[{"-", "2.`"}], ",", 
   RowBox[{"-", "2.`"}], ",", 
   RowBox[{"-", "2.`"}], ",", 
   RowBox[{"-", "2.`"}], ",", 
   RowBox[{"-", "2.`"}], ",", 
   RowBox[{"-", "2.`"}], ",", 
   RowBox[{"-", "2.`"}], ",", 
   RowBox[{"-", "2.`"}], ",", 
   RowBox[{"-", "2.`"}], ",", 
   RowBox[{"-", "2.`"}], ",", 
   RowBox[{"-", "2.`"}], ",", 
   RowBox[{"-", "2.`"}], ",", 
   RowBox[{"-", "2.`"}], ",", 
   RowBox[{"-", "2.`"}], ",", 
   RowBox[{"-", "2.`"}], ",", 
   RowBox[{"-", "2.`"}], ",", 
   RowBox[{"-", "2.`"}], ",", 
   RowBox[{"-", "2.`"}], ",", 
   RowBox[{"-", "2.`"}], ",", 
   RowBox[{"-", "2.`"}], ",", 
   RowBox[{"-", "2.`"}], ",", 
   RowBox[{"-", "2.`"}], ",", 
   RowBox[{"-", "2.`"}], ",", 
   RowBox[{"-", "2.`"}], ",", 
   RowBox[{"-", "2.`"}], ",", 
   RowBox[{"-", "2.`"}], ",", 
   RowBox[{"-", "2.`"}], ",", 
   RowBox[{"-", "2.`"}], ",", 
   RowBox[{"-", "2.`"}], ",", 
   RowBox[{"-", "2.`"}], ",", 
   RowBox[{"-", "2.`"}], ",", 
   RowBox[{"-", "2.`"}], ",", 
   RowBox[{"-", "2.`"}], ",", 
   RowBox[{"-", "2.`"}], ",", 
   RowBox[{"-", "2.`"}], ",", 
   RowBox[{"-", "2.`"}], ",", 
   RowBox[{"-", "2.`"}], ",", 
   RowBox[{"-", "2.`"}], ",", 
   RowBox[{"-", "2.`"}], ",", 
   RowBox[{"-", "2.`"}], ",", 
   RowBox[{"-", "2.`"}], ",", 
   RowBox[{"-", "2.`"}], ",", 
   RowBox[{"-", "2.`"}], ",", 
   RowBox[{"-", "2.`"}], ",", 
   RowBox[{"-", "2.`"}], ",", 
   RowBox[{"-", "2.`"}], ",", 
   RowBox[{"-", "2.`"}], ",", 
   RowBox[{"-", "2.`"}], ",", 
   RowBox[{"-", "2.`"}], ",", 
   RowBox[{"-", "2.`"}], ",", 
   RowBox[{"-", "2.`"}], ",", 
   RowBox[{"-", "2.`"}], ",", 
   RowBox[{"-", "2.`"}], ",", 
   RowBox[{"-", "2.`"}], ",", 
   RowBox[{"-", "2.`"}], ",", 
   RowBox[{"-", "2.`"}], ",", 
   RowBox[{"-", "2.`"}], ",", 
   RowBox[{"-", "2.`"}], ",", 
   RowBox[{"-", "2.`"}], ",", 
   RowBox[{"-", "2.`"}], ",", 
   RowBox[{"-", "2.`"}], ",", 
   RowBox[{"-", "2.`"}], ",", 
   RowBox[{"-", "2.`"}], ",", 
   RowBox[{"-", "2.`"}], ",", 
   RowBox[{"-", "2.`"}], ",", 
   RowBox[{"-", "2.`"}], ",", 
   RowBox[{"-", "2.`"}], ",", 
   RowBox[{"-", "2.`"}], ",", 
   RowBox[{"-", "2.`"}], ",", 
   RowBox[{"-", "2.`"}], ",", 
   RowBox[{"-", "2.`"}], ",", 
   RowBox[{"-", "2.`"}], ",", 
   RowBox[{"-", "2.`"}], ",", 
   RowBox[{"-", "2.`"}], ",", 
   RowBox[{"-", "2.`"}], ",", 
   RowBox[{"-", "2.`"}], ",", 
   RowBox[{"-", "2.`"}], ",", 
   RowBox[{"-", "2.`"}], ",", 
   RowBox[{"-", "2.`"}], ",", 
   RowBox[{"-", "2.`"}], ",", 
   RowBox[{"-", "2.`"}], ",", 
   RowBox[{"-", "2.`"}], ",", 
   RowBox[{"-", "2.`"}], ",", 
   RowBox[{"-", "2.`"}], ",", 
   RowBox[{"-", "2.`"}], ",", 
   RowBox[{"-", "2.`"}], ",", 
   RowBox[{"-", "2.`"}], ",", 
   RowBox[{"-", "2.`"}], ",", 
   RowBox[{"-", "2.`"}], ",", 
   RowBox[{"-", "2.`"}], ",", 
   RowBox[{"-", "2.`"}], ",", 
   RowBox[{"-", "2.`"}], ",", 
   RowBox[{"-", "2.`"}], ",", 
   RowBox[{"-", "2.`"}], ",", 
   RowBox[{"-", "2.`"}], ",", 
   RowBox[{"-", "2.`"}], ",", 
   RowBox[{"-", "2.`"}], ",", 
   RowBox[{"-", "2.`"}], ",", 
   RowBox[{"-", "2.`"}], ",", 
   RowBox[{"-", "2.`"}], ",", 
   RowBox[{"-", "2.`"}], ",", 
   RowBox[{"-", "2.`"}], ",", 
   RowBox[{"-", "2.`"}], ",", 
   RowBox[{"-", "2.`"}], ",", 
   RowBox[{"-", "2.`"}], ",", 
   RowBox[{"-", "2.`"}], ",", 
   RowBox[{"-", "2.`"}], ",", 
   RowBox[{"-", "2.`"}], ",", 
   RowBox[{"-", "2.`"}], ",", 
   RowBox[{"-", "2.`"}], ",", 
   RowBox[{"-", "2.`"}], ",", 
   RowBox[{"-", "2.`"}], ",", 
   RowBox[{"-", "2.`"}], ",", 
   RowBox[{"-", "2.`"}], ",", 
   RowBox[{"-", "2.`"}], ",", 
   RowBox[{"-", "2.`"}], ",", 
   RowBox[{"-", "2.`"}], ",", 
   RowBox[{"-", "2.`"}], ",", 
   RowBox[{"-", "2.`"}], ",", 
   RowBox[{"-", "2.`"}], ",", 
   RowBox[{"-", "2.`"}], ",", 
   RowBox[{"-", "2.`"}], ",", 
   RowBox[{"-", "2.`"}], ",", 
   RowBox[{"-", "2.`"}], ",", 
   RowBox[{"-", "2.`"}], ",", 
   RowBox[{"-", "2.`"}], ",", 
   RowBox[{"-", "2.`"}], ",", 
   RowBox[{"-", "2.`"}], ",", 
   RowBox[{"-", "2.`"}], ",", 
   RowBox[{"-", "2.`"}], ",", 
   RowBox[{"-", "2.`"}], ",", 
   RowBox[{"-", "2.`"}], ",", 
   RowBox[{"-", "2.`"}], ",", 
   RowBox[{"-", "2.`"}], ",", 
   RowBox[{"-", "2.`"}], ",", 
   RowBox[{"-", "2.`"}], ",", 
   RowBox[{"-", "2.`"}], ",", 
   RowBox[{"-", "2.`"}], ",", 
   RowBox[{"-", "2.`"}], ",", 
   RowBox[{"-", "2.`"}], ",", 
   RowBox[{"-", "2.`"}], ",", 
   RowBox[{"-", "2.`"}], ",", 
   RowBox[{"-", "2.`"}], ",", 
   RowBox[{"-", "2.`"}], ",", 
   RowBox[{"-", "2.`"}], ",", 
   RowBox[{"-", "2.`"}], ",", 
   RowBox[{"-", "2.`"}], ",", 
   RowBox[{"-", "2.`"}], ",", 
   RowBox[{"-", "2.`"}], ",", 
   RowBox[{"-", "2.`"}], ",", 
   RowBox[{"-", "2.`"}], ",", 
   RowBox[{"-", "2.`"}], ",", 
   RowBox[{"-", "2.`"}], ",", 
   RowBox[{"-", "2.`"}], ",", 
   RowBox[{"-", "2.`"}], ",", 
   RowBox[{"-", "2.`"}], ",", 
   RowBox[{"-", "2.`"}]}], "}"}]], "Output",
 CellChangeTimes->{3.5758694989364405`*^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.`", ",", "0.`", ",", "0.`", ",", "0.`", ",", 
   "0.`", ",", "0.`", ",", "0.`", ",", "0.`", ",", "0.`", ",", "0.`", ",", 
   "0.`", ",", "0.`", ",", "0.`", ",", "0.`", ",", "0.`", ",", "0.`", ",", 
   "0.`", ",", "0.`", ",", "0.`", ",", "0.`", ",", "0.`", ",", "0.`", ",", 
   "0.`", ",", "0.`", ",", "0.`", ",", "0.`", ",", "0.`", ",", "0.`", ",", 
   "0.`", ",", "0.`", ",", "0.`", ",", "0.`", ",", "0.`", ",", "0.`", ",", 
   "0.`", ",", "0.`", ",", "0.`", ",", "0.`", ",", "0.`", ",", "0.`", ",", 
   "0.`", ",", "0.`", ",", "0.`"}], "}"}]], "Output",
 CellChangeTimes->{3.5758694989364405`*^9}]
}, Open  ]],

Cell[CellGroupData[{

Cell[BoxData[
 RowBox[{
  RowBox[{"(*", " ", 
   RowBox[{"nucleus", "-", 
    RowBox[{"cloud", " ", "distances"}]}], " ", "*)"}], "\[IndentingNewLine]", 
  RowBox[{
   RowBox[{
    RowBox[{"dcw", "=", 
     RowBox[{"Table", "[", 
      RowBox[{
       RowBox[{
        RowBox[{"sq", "=", 
         RowBox[{"Norm", "[", 
          RowBox[{
           RowBox[{"tw", "[", 
            RowBox[{"[", "i", "]"}], "]"}], "-", 
           RowBox[{"tv", "[", 
            RowBox[{"[", "j", "]"}], "]"}]}], "]"}]}], ";", 
        RowBox[{"If", "[", 
         RowBox[{
          RowBox[{"(", 
           RowBox[{
            RowBox[{"sq", ">", " ", "0.1"}], " ", "&&", " ", 
            RowBox[{"i", "\[NotEqual]", "j"}]}], ")"}], ",", 
          RowBox[{"1", "/", "sq"}], ",", "0"}], "]"}]}], ",", 
       RowBox[{"{", 
        RowBox[{"i", ",", "1", ",", "bt"}], "}"}], ",", 
       RowBox[{"{", 
        RowBox[{"j", ",", "1", ",", "bt"}], "}"}]}], "]"}]}], ";"}], 
   "\[IndentingNewLine]", 
   RowBox[{"Length", "[", "dcw", "]"}], "\[IndentingNewLine]", 
   RowBox[{"(*", 
    RowBox[{"MatrixForm", "[", "dcw", "]"}], "*)"}], "  "}]}]], "Input",
 CellChangeTimes->{{3.5688982251756487`*^9, 3.5688986440675845`*^9}, {
   3.5688986873108606`*^9, 3.56889871560931*^9}, {3.5688987970414534`*^9, 
   3.5688988526711507`*^9}, {3.568898887147211*^9, 3.568898888644814*^9}, {
   3.5688989206248703`*^9, 3.568899041759083*^9}, {3.5688990876855636`*^9, 
   3.568899258349863*^9}, 3.568899300267137*^9, {3.568899351326027*^9, 
   3.5688993831032825`*^9}, {3.5688994370481772`*^9, 3.568899468217032*^9}, {
   3.5688995813016305`*^9, 3.5688997165538683`*^9}, {3.5688998495129013`*^9, 
   3.568899932364647*^9}, {3.568899967667509*^9, 3.568900024529609*^9}, {
   3.5689000794261055`*^9, 3.568900136257005*^9}, {3.5689001767858763`*^9, 
   3.56890020149632*^9}, {3.568902068726*^9, 3.568902074139209*^9}, 
   3.56890216040736*^9, 3.568902344113283*^9, {3.5689024237982235`*^9, 
   3.56890243907065*^9}, 3.5689025770684924`*^9, 3.568910195129884*^9, 
   3.568910620995032*^9, {3.568912393532545*^9, 3.5689124022841606`*^9}, {
   3.5691332074958715`*^9, 3.5691332081666727`*^9}, {3.5691352237838125`*^9, 
   3.5691352313342257`*^9}, {3.5691489965881166`*^9, 
   3.5691490103317413`*^9}, {3.5691490440122004`*^9, 
   3.5691491273631463`*^9}, {3.5691523435842266`*^9, 3.56915234531583*^9}, {
   3.5691524837816734`*^9, 3.5691526041202846`*^9}, {3.5691595921324143`*^9, 
   3.5691596901941867`*^9}, {3.569159772406331*^9, 3.5691597832951508`*^9}, {
   3.5691598700313025`*^9, 3.569159885147729*^9}, {3.569160485733184*^9, 
   3.569160486887586*^9}, {3.5691672792073207`*^9, 3.5691672793789206`*^9}, {
   3.5691673418102303`*^9, 3.5691674875144863`*^9}, {3.569168259700243*^9, 
   3.569168260386644*^9}, {3.569168321257951*^9, 3.569168337466379*^9}, {
   3.5691685152754917`*^9, 3.569168656096939*^9}, {3.5691687137702403`*^9, 
   3.569168772566744*^9}, {3.5691697249898825`*^9, 3.569169747063921*^9}, {
   3.569169944981469*^9, 3.5691699655579047`*^9}, {3.56921753575448*^9, 
   3.569217541807291*^9}, {3.569217576283351*^9, 3.5692176436130695`*^9}, {
   3.5692176921603546`*^9, 3.569217692768756*^9}, {3.5692177389136367`*^9, 
   3.569217740192839*^9}, {3.5692222042775583`*^9, 3.5692222070231633`*^9}, {
   3.569230669979245*^9, 3.5692306709620466`*^9}, {3.5692308816872168`*^9, 
   3.5692309970650196`*^9}, {3.5692310297158766`*^9, 3.569231090602784*^9}, {
   3.5692311251880445`*^9, 3.569231148868886*^9}, 3.56923793753481*^9, 
   3.569341165569158*^9, 3.5693418217375107`*^9, {3.5703412254249296`*^9, 
   3.5703412423509593`*^9}, {3.5704553045038986`*^9, 3.570455320681127*^9}, {
   3.57045550485505*^9, 3.5704555063370533`*^9}, {3.5704556421508913`*^9, 
   3.5704556424784923`*^9}, 3.5704557137862177`*^9, {3.5704564711051474`*^9, 
   3.5704564908079824`*^9}, {3.570456521602436*^9, 3.5704565228348384`*^9}, {
   3.5704569127419233`*^9, 3.5704569202767363`*^9}, 3.5704636205455036`*^9, 
   3.570596993178934*^9, {3.570855461377095*^9, 3.5708554743563175`*^9}, 
   3.570855611589759*^9, {3.571840408884818*^9, 3.571840415296429*^9}, {
   3.571840465559717*^9, 3.571840473905732*^9}, {3.5720165322617407`*^9, 
   3.5720165635241957`*^9}, {3.5721934404423375`*^9, 3.57219344758715*^9}, 
   3.572193479551606*^9, 3.5721935303764954`*^9, {3.5721935661785583`*^9, 
   3.5721935879405966`*^9}, {3.5721936909943776`*^9, 3.572193697218788*^9}, {
   3.5721937395728626`*^9, 3.57219374339487*^9}, {3.5721937963725624`*^9, 
   3.5721938223154078`*^9}, {3.572193859786674*^9, 3.572193861533877*^9}, 
   3.5723554650270557`*^9, {3.5723567325136824`*^9, 3.5723567701565485`*^9}, 
   3.572621740954589*^9}],

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

Cell[CellGroupData[{

Cell[BoxData[{
 RowBox[{"Elcharge", "=", 
  RowBox[{"Sum", "[", 
   RowBox[{
    RowBox[{"ow", "[", 
     RowBox[{"[", "i", "]"}], "]"}], ",", 
    RowBox[{"{", 
     RowBox[{"i", ",", "1", ",", 
      RowBox[{"Length", "[", "ow", "]"}]}], "}"}]}], 
   "]"}]}], "\[IndentingNewLine]", 
 RowBox[{"Length", "[", "ow", "]"}], "\[IndentingNewLine]", 
 RowBox[{"Nuccharge", "=", 
  RowBox[{"Sum", "[", 
   RowBox[{
    RowBox[{"cnv", "[", 
     RowBox[{"[", "i", "]"}], "]"}], ",", 
    RowBox[{"{", 
     RowBox[{"i", ",", "1", ",", 
      RowBox[{"Length", "[", "cnv", "]"}]}], "}"}]}], 
   "]"}]}], "\[IndentingNewLine]", 
 RowBox[{"Length", "[", "cnv", "]"}], "\[IndentingNewLine]"}], "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, {3.573315125131884*^9, 
   3.57331521983965*^9}, {3.573315279213355*^9, 3.573315294797782*^9}, {
   3.5733153507238803`*^9, 3.5733153551854877`*^9}, {3.5733153963695602`*^9, 
   3.5733154277724156`*^9}, {3.5733182525629773`*^9, 3.5733182928434477`*^9}}],

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

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

Cell[BoxData["354.`"], "Output",
 CellChangeTimes->{3.5758694991704407`*^9}],

Cell[BoxData["177"], "Output",
 CellChangeTimes->{3.5758694991704407`*^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, {3.573315125131884*^9, 
   3.57331521983965*^9}, {3.573315279213355*^9, 3.573315294797782*^9}, {
   3.5733153507238803`*^9, 3.5733153551854877`*^9}, {3.5733153963695602`*^9, 
   3.5733154277724156`*^9}}],

Cell[CellGroupData[{

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

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

Cell[CellGroupData[{

Cell[BoxData[
 RowBox[{
  RowBox[{"(*", " ", 
   RowBox[{
   "half", " ", "cloud", " ", "with", " ", "other", " ", "common", " ", 
    RowBox[{"halfcloud", ":", " ", 
     RowBox[{"subtract", " ", "WW"}]}]}], " ", "*)"}], "\[IndentingNewLine]", 
  RowBox[{
   RowBox[{
    RowBox[{"For", " ", "[", 
     RowBox[{
      RowBox[{"i", "=", 
       RowBox[{"nb", "+", "bc", "+", "1"}]}], ",", 
      RowBox[{"i", "<", 
       RowBox[{"nb", "+", "bc", "+", "cj"}]}], ",", 
      RowBox[{"i", "++"}], ",", 
      RowBox[{"Vee", "=", 
       RowBox[{"Vee", "-", 
        RowBox[{
         RowBox[{"ow", "[", 
          RowBox[{"[", "i", "]"}], "]"}], "*", 
         RowBox[{
          RowBox[{"ow", "[", 
           RowBox[{"[", 
            RowBox[{"i", "+", "cj"}], "]"}], "]"}], "/", 
          RowBox[{"(", 
           RowBox[{"rpo", "+", "rpi"}], ")"}]}]}]}]}]}], "]"}], ";"}], 
   "\[IndentingNewLine]", "Vee", "\[IndentingNewLine]"}]}]], "Input",
 CellChangeTimes->{{3.571840548723463*^9, 3.571840579798718*^9}, {
   3.5718477253093*^9, 3.5718477304573092`*^9}, {3.572620810756155*^9, 
   3.5726208298349886`*^9}, {3.5726208600522413`*^9, 
   3.5726208972739067`*^9}, {3.57279778559276*^9, 3.57279781975682*^9}, 
   3.5733150956478324`*^9, {3.5733650408599825`*^9, 3.573365073947641*^9}, {
   3.573365126847334*^9, 3.573365203209468*^9}, {3.57467280495751*^9, 
   3.574672834457162*^9}, {3.574672996697447*^9, 3.5746729984914503`*^9}, {
   3.574743538820456*^9, 3.574743544140065*^9}, {3.574828627021879*^9, 
   3.5748286276614804`*^9}, {3.5748512413081284`*^9, 3.57485124786014*^9}, {
   3.574851313707855*^9, 3.5748513247994747`*^9}}],

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

Cell[CellGroupData[{

Cell[BoxData[{
 RowBox[{
  RowBox[{
   RowBox[{"sc", "=", "0.3396"}], ";"}], "   ", 
  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.3396"}], ";"}], "  ", 
  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]", 
 RowBox[{"For", "[", 
  RowBox[{
   RowBox[{"i", "=", "1"}], " ", ",", 
   RowBox[{"i", "\[LessEqual]", 
    RowBox[{"2", "*", "hj"}]}], ",", 
   RowBox[{"i", "++"}], ",", 
   RowBox[{"Vee", "=", 
    RowBox[{"Vee", "+", 
     RowBox[{"3", "*", 
      RowBox[{"sw", "/", "rlo"}]}]}]}]}], 
  "]"}], "\[IndentingNewLine]", "Vee"}], "Input",
 CellChangeTimes->{{3.5689548890696163`*^9, 3.568955116299615*^9}, {
   3.5689552553894596`*^9, 3.5689552575266633`*^9}, {3.5689552936875267`*^9, 
   3.5689553203323736`*^9}, {3.568955404229321*^9, 3.568955433245372*^9}, 
   3.5689554882822685`*^9, 3.5689562157115464`*^9, {3.568956283961666*^9, 
   3.5689562858180695`*^9}, {3.5689566111878405`*^9, 
   3.5689566291278725`*^9}, {3.5689566695319433`*^9, 
   3.5689567220104356`*^9}, {3.5690810958835616`*^9, 3.569081104525977*^9}, {
   3.5691717160681796`*^9, 3.569171751714242*^9}, {3.5691717855663013`*^9, 
   3.5691719006789036`*^9}, 3.569234247377528*^9, {3.569235622381544*^9, 
   3.569235625142749*^9}, {3.5692356799612455`*^9, 3.569235740536152*^9}, {
   3.57045575500149*^9, 3.5704557604770994`*^9}, {3.57046440981329*^9, 
   3.5704644333849316`*^9}, {3.5705963024877205`*^9, 
   3.5705963300061693`*^9}, {3.5706010463712544`*^9, 3.570601069225295*^9}, {
   3.5706012097659416`*^9, 3.5706012109983435`*^9}, {3.570601290948484*^9, 
   3.570601291619285*^9}, {3.570601333099758*^9, 3.570601444951955*^9}, 
   3.5706014761208096`*^9, {3.570601526633698*^9, 3.570601615179454*^9}, {
   3.5708576202336864`*^9, 3.5708576267544985`*^9}, {3.5708577990100007`*^9, 
   3.5708578016152053`*^9}, {3.5708580423548284`*^9, 3.570858044429632*^9}, {
   3.570858075754487*^9, 3.5708581072821426`*^9}, {3.570858449889944*^9, 
   3.5708585756105647`*^9}, {3.572795632149378*^9, 3.5727956355657835`*^9}, {
   3.5728516649872932`*^9, 3.5728517189321885`*^9}, {3.572851825152775*^9, 
   3.572851850284419*^9}, {3.5728520019946856`*^9, 3.572852210645052*^9}, 
   3.573124800838154*^9, {3.573322145410615*^9, 3.573322167859054*^9}, {
   3.573322202803116*^9, 3.573322232630368*^9}, {3.5733683306427617`*^9, 
   3.5733683367267723`*^9}, {3.5733684056944933`*^9, 3.573368412932906*^9}, {
   3.5733695833093615`*^9, 3.5733696100478086`*^9}, {3.5733696433694673`*^9, 
   3.573369694568757*^9}, {3.5733697316344223`*^9, 3.5733697335688257`*^9}, {
   3.573369920425954*^9, 3.5733699263851643`*^9}, {3.57336995814682*^9, 
   3.573370085162243*^9}, {3.5733701175791*^9, 3.573370122087508*^9}, {
   3.5733701577803707`*^9, 3.5733701630219803`*^9}, {3.573370193660434*^9, 
   3.573370198262442*^9}, {3.5746729482125616`*^9, 3.5746729642181897`*^9}, {
   3.5746730450731316`*^9, 3.5746730625763626`*^9}, {3.574674580516679*^9, 
   3.5746746053675222`*^9}, {3.574674636692377*^9, 3.574674639859183*^9}, {
   3.574743595854156*^9, 3.574743647131446*^9}, {3.5758219158646994`*^9, 
   3.575821942930747*^9}, {3.575822061974556*^9, 3.575822075874181*^9}, {
   3.575822160535529*^9, 3.575822163780335*^9}, {3.575822207023611*^9, 
   3.5758222384576664`*^9}, {3.5758222971137695`*^9, 3.5758223393586435`*^9}}],

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

Cell[CellGroupData[{

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

Cell[BoxData[
 RowBox[{"-", "13703.176911167138`"}]], "Output",
 CellChangeTimes->{3.575869499279641*^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[{"-", "18204.752149020194`"}]], "Output",
 CellChangeTimes->{3.5758694992952414`*^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[{"-", "18302.39368077465`"}]], "Output",
 CellChangeTimes->{3.5758694992952414`*^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.575869499342041*^9}]
}, Open  ]],

Cell[CellGroupData[{

Cell[BoxData[
 RowBox[{
  RowBox[{"(*", " ", 
   RowBox[{
    RowBox[{
    "now", " ", "add", " ", "the", " ", "energy", " ", "terms", " ", "of", 
     " ", 
     RowBox[{"Cl", "[", "Ne", "]"}], "7"}], "+", " ", 
    RowBox[{"from", " ", "Ne_s24b2", 
     RowBox[{"_atoms", ".", "nb"}]}]}], " ", "*)"}], "\[IndentingNewLine]", 
  RowBox[{
  "Vee", "\[IndentingNewLine]", "Vnn", "\[IndentingNewLine]", "Vne", 
   "\[IndentingNewLine]", 
   RowBox[{"Tlp", " ", "=", 
    RowBox[{"2", "*", "hj", "*", "2.25", "*", 
     RowBox[{"(", 
      RowBox[{"1", "/", 
       RowBox[{"rlo", "^", "2"}]}], ")"}]}]}], "\[IndentingNewLine]", 
   RowBox[{"Vtot", "=", 
    RowBox[{"Vne", "+", "Vee", "+", "Vnn"}]}], "\[IndentingNewLine]", 
   RowBox[{"Ttot", " ", "=", 
    RowBox[{"Ttot", "+", "Tlp"}]}], "\[IndentingNewLine]", 
   RowBox[{"Vir", "   ", "=", 
    RowBox[{
     RowBox[{"-", "Vtot"}], "/", "Ttot"}]}], "\[IndentingNewLine]", 
   RowBox[{"Etot", "=", 
    RowBox[{"Ttot", "+", "Vtot"}]}], "\[IndentingNewLine]"}]}]], "Input",
 CellChangeTimes->{{3.5689074950860367`*^9, 3.5689075109980645`*^9}, {
   3.568910298074465*^9, 3.5689103015064707`*^9}, {3.568910724064413*^9, 
   3.5689107693044925`*^9}, {3.568955368910859*^9, 3.568955378629676*^9}, {
   3.568955601366867*^9, 3.568955616218093*^9}, {3.5704638504275074`*^9, 
   3.570463876370353*^9}, {3.570464305074706*^9, 3.5704643133895206`*^9}, {
   3.570464352171189*^9, 3.570464353231991*^9}, {3.570712404698539*^9, 
   3.5707124150569572`*^9}, {3.570809962851386*^9, 3.5708101493809137`*^9}, {
   3.5708102160710306`*^9, 3.570810245165082*^9}, {3.5708102767551374`*^9, 
   3.5708103693413*^9}, {3.570810404207361*^9, 3.5708104232081947`*^9}, {
   3.5708104788690925`*^9, 3.5708104825818987`*^9}, {3.5708105169643593`*^9, 
   3.570810517884761*^9}, {3.570810561767638*^9, 3.5708105625476394`*^9}, {
   3.5708106179589367`*^9, 3.570810645648985*^9}, {3.5708552812279787`*^9, 
   3.570855300572013*^9}, {3.5718406368324184`*^9, 3.5718406454592333`*^9}, 
   3.57184067742369*^9, {3.572851887958485*^9, 3.5728519643206196`*^9}, 
   3.573124110349741*^9, 3.5731249811744704`*^9, {3.573321827294856*^9, 
   3.573321828074857*^9}, {3.5733218842973557`*^9, 3.573322060546466*^9}, {
   3.5733223511749763`*^9, 3.573322362562996*^9}, {3.5733662939947844`*^9, 
   3.573366334227255*^9}, {3.573366373336523*^9, 3.5733663802005353`*^9}, {
   3.5733670479305086`*^9, 3.573367141577473*^9}, {3.573367235162038*^9, 
   3.5733672396704454`*^9}, {3.5733673160013795`*^9, 3.573367336141015*^9}, {
   3.57337971917793*^9, 3.573379817005702*^9}, {3.5733798503429604`*^9, 
   3.5733798602021775`*^9}, 3.574672644355228*^9, {3.5746726806096916`*^9, 
   3.5746727600450315`*^9}, {3.5747435066375995`*^9, 3.574743512113209*^9}, {
   3.574828574792988*^9, 3.57482858761621*^9}, {3.5748738967434654`*^9, 
   3.5748739009086733`*^9}, 3.5758222723721256`*^9, 3.5758640435928583`*^9}],

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

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

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

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

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

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

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

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

(* Internal cache information *)
(*CellTagsOutline
CellTagsIndex->{}
*)
(*CellTagsIndex
CellTagsIndex->{}
*)
(*NotebookFileOutline
Notebook[{
Cell[557, 20, 2062, 35, 52, "Input"],
Cell[CellGroupData[{
Cell[2644, 59, 12293, 335, 612, "Input"],
Cell[14940, 396, 8620, 236, 1331, "Output"]
}, Open  ]],
Cell[23575, 635, 2344, 35, 92, "Input"],
Cell[CellGroupData[{
Cell[25944, 674, 955, 14, 31, "Input"],
Cell[26902, 690, 73, 1, 31, "Output"]
}, Open  ]],
Cell[CellGroupData[{
Cell[27012, 696, 1560, 29, 31, "Input"],
Cell[28575, 727, 1747, 24, 52, "Output"]
}, Open  ]],
Cell[30337, 754, 1419, 23, 31, "Input"],
Cell[31759, 779, 1592, 29, 31, "Input"],
Cell[CellGroupData[{
Cell[33376, 812, 1234, 18, 31, "Input"],
Cell[34613, 832, 6004, 177, 132, "Output"]
}, Open  ]],
Cell[CellGroupData[{
Cell[40654, 1014, 697, 14, 31, "Input"],
Cell[41354, 1030, 1100, 17, 72, "Output"]
}, Open  ]],
Cell[42469, 1050, 908, 24, 31, "Input"],
Cell[CellGroupData[{
Cell[43402, 1078, 6489, 134, 152, "Input"],
Cell[49894, 1214, 1408, 21, 112, "Output"],
Cell[51305, 1237, 1432, 21, 112, "Output"]
}, Open  ]],
Cell[CellGroupData[{
Cell[52774, 1263, 519, 12, 31, "Input"],
Cell[53296, 1277, 1747, 24, 52, "Output"]
}, Open  ]],
Cell[CellGroupData[{
Cell[55080, 1306, 1428, 39, 52, "Input"],
Cell[56511, 1347, 1200, 18, 72, "Output"]
}, Open  ]],
Cell[CellGroupData[{
Cell[57748, 1370, 827, 23, 92, "Input"],
Cell[58578, 1395, 71, 1, 31, "Output"],
Cell[58652, 1398, 71, 1, 31, "Output"]
}, Open  ]],
Cell[58738, 1402, 1824, 35, 72, "Input"],
Cell[60565, 1439, 5113, 126, 212, "Input"],
Cell[65681, 1567, 1442, 19, 30, "Text"],
Cell[67126, 1588, 1997, 39, 52, "Input"],
Cell[69126, 1629, 1331, 36, 72, "Input"],
Cell[CellGroupData[{
Cell[70482, 1669, 4977, 90, 72, "Input"],
Cell[75462, 1761, 46764, 657, 1346, "Output"]
}, Open  ]],
Cell[122241, 2421, 1027, 14, 31, "Input"],
Cell[CellGroupData[{
Cell[123293, 2439, 3846, 83, 132, "Input"],
Cell[127142, 2524, 1506, 22, 112, "Output"]
}, Open  ]],
Cell[128663, 2549, 2072, 49, 112, "Input"],
Cell[130738, 2600, 561, 12, 52, "Input"],
Cell[131302, 2614, 2148, 49, 92, "Input"],
Cell[133453, 2665, 2452, 56, 92, "Input"],
Cell[CellGroupData[{
Cell[135930, 2725, 3677, 96, 172, "Input"],
Cell[139610, 2823, 89, 1, 31, "Output"],
Cell[139702, 2826, 89, 1, 31, "Output"],
Cell[139794, 2829, 90, 1, 31, "Output"],
Cell[139887, 2832, 87, 1, 31, "Output"],
Cell[139977, 2835, 87, 1, 31, "Output"]
}, Open  ]],
Cell[CellGroupData[{
Cell[140101, 2841, 112, 1, 31, "Input"],
Cell[140216, 2844, 87, 1, 31, "Output"]
}, Open  ]],
Cell[CellGroupData[{
Cell[140340, 2850, 548, 15, 31, "Input"],
Cell[140891, 2867, 10292, 240, 1331, "Output"]
}, Open  ]],
Cell[151198, 3110, 2075, 35, 72, "Input"],
Cell[CellGroupData[{
Cell[153298, 3149, 3969, 94, 172, "Input"],
Cell[157270, 3245, 89, 2, 31, "Output"],
Cell[157362, 3249, 480, 10, 21, "Message"],
Cell[157845, 3261, 218, 6, 31, "Output"],
Cell[158066, 3269, 1474, 25, 92, "Output"],
Cell[159543, 3296, 143, 3, 31, "Output"],
Cell[159689, 3301, 1162, 21, 72, "Output"],
Cell[160854, 3324, 145, 3, 31, "Output"]
}, Open  ]],
Cell[CellGroupData[{
Cell[161036, 3332, 2672, 54, 132, "Input"],
Cell[163711, 3388, 73, 1, 31, "Output"]
}, Open  ]],
Cell[CellGroupData[{
Cell[163821, 3394, 739, 22, 92, "Input"],
Cell[164563, 3418, 73, 1, 31, "Output"]
}, Open  ]],
Cell[CellGroupData[{
Cell[164673, 3424, 2771, 55, 92, "Input"],
Cell[167447, 3481, 350, 7, 31, "Output"]
}, Open  ]],
Cell[167812, 3491, 4987, 137, 232, "Input"],
Cell[CellGroupData[{
Cell[172824, 3632, 5267, 128, 232, "Input"],
Cell[178094, 3762, 89, 2, 31, "Output"],
Cell[178186, 3766, 72, 1, 31, "Output"],
Cell[178261, 3769, 7910, 279, 1331, "Output"]
}, Open  ]],
Cell[CellGroupData[{
Cell[186208, 4053, 12033, 203, 212, "Input"],
Cell[198244, 4258, 72, 1, 31, "Output"],
Cell[198319, 4261, 73, 1, 31, "Output"]
}, Open  ]],
Cell[198407, 4265, 8800, 126, 52, "Input"],
Cell[207210, 4393, 2644, 37, 49, "Text"],
Cell[CellGroupData[{
Cell[209879, 4434, 4232, 82, 172, "Input"],
Cell[214114, 4518, 1596, 45, 72, "Output"]
}, Open  ]],
Cell[215725, 4566, 646, 20, 112, "Input"],
Cell[216374, 4588, 2119, 63, 52, "Input"],
Cell[218496, 4653, 359, 5, 31, "Input"],
Cell[CellGroupData[{
Cell[218880, 4662, 1159, 29, 52, "Input"],
Cell[220042, 4693, 157613, 2893, 910, "Output"]
}, Open  ]],
Cell[377670, 7589, 3073, 58, 92, "Input"],
Cell[CellGroupData[{
Cell[380768, 7651, 939, 17, 72, "Input"],
Cell[381710, 7670, 8054, 184, 312, "Output"],
Cell[389767, 7856, 73, 1, 31, "Output"],
Cell[389843, 7859, 73, 1, 31, "Output"]
}, Open  ]],
Cell[CellGroupData[{
Cell[389953, 7865, 1174, 25, 52, "Input"],
Cell[391130, 7892, 3855, 64, 248, "Output"]
}, Open  ]],
Cell[395000, 7959, 10201, 233, 132, "Input"],
Cell[405204, 8194, 6271, 98, 31, "Input"],
Cell[411478, 8294, 10215, 234, 132, "Input"],
Cell[421696, 8530, 5925, 93, 31, "Input"],
Cell[427624, 8625, 13011, 233, 132, "Input"],
Cell[CellGroupData[{
Cell[440660, 8862, 16149, 309, 372, "Input"],
Cell[456812, 9173, 131575, 2458, 375, 56112, 1219, "CachedBoxData", \
"BoxData", "Output"],
Cell[588390, 11633, 63728, 1153, 375, 33587, 657, "CachedBoxData", "BoxData", \
"Output"],
Cell[652121, 12788, 32321, 645, 375, "Output"],
Cell[684445, 13435, 19726, 373, 375, "Output"],
Cell[704174, 13810, 29800, 668, 375, "Output"]
}, Open  ]],
Cell[CellGroupData[{
Cell[734011, 14483, 4818, 102, 152, "Input"],
Cell[738832, 14587, 71, 1, 31, "Output"]
}, Open  ]],
Cell[CellGroupData[{
Cell[738940, 14593, 2499, 47, 92, "Input"],
Cell[741442, 14642, 74, 1, 31, "Output"]
}, Open  ]],
Cell[741531, 14646, 1841, 29, 52, "Input"],
Cell[CellGroupData[{
Cell[743397, 14679, 5167, 111, 192, "Input"],
Cell[748567, 14792, 74, 1, 31, "Output"]
}, Open  ]],
Cell[CellGroupData[{
Cell[748678, 14798, 6032, 114, 92, "Input"],
Cell[754713, 14914, 5584, 180, 172, "Output"],
Cell[760300, 15096, 2340, 33, 132, "Output"]
}, Open  ]],
Cell[CellGroupData[{
Cell[762677, 15134, 4670, 80, 92, "Input"],
Cell[767350, 15216, 74, 1, 31, "Output"]
}, Open  ]],
Cell[CellGroupData[{
Cell[767461, 15222, 2695, 47, 112, "Input"],
Cell[770159, 15271, 93, 2, 31, "Output"],
Cell[770255, 15275, 74, 1, 31, "Output"],
Cell[770332, 15278, 76, 1, 31, "Output"],
Cell[770411, 15281, 74, 1, 31, "Output"]
}, Open  ]],
Cell[770500, 15285, 2066, 30, 31, "Input"],
Cell[CellGroupData[{
Cell[772591, 15319, 2963, 56, 112, "Input"],
Cell[775557, 15377, 87, 1, 31, "Output"]
}, Open  ]],
Cell[CellGroupData[{
Cell[775681, 15383, 1636, 37, 92, "Input"],
Cell[777320, 15422, 89, 1, 31, "Output"]
}, Open  ]],
Cell[CellGroupData[{
Cell[777446, 15428, 4189, 85, 132, "Input"],
Cell[781638, 15515, 87, 1, 31, "Output"]
}, Open  ]],
Cell[CellGroupData[{
Cell[781762, 15521, 499, 15, 52, "Input"],
Cell[782264, 15538, 105, 2, 31, "Output"]
}, Open  ]],
Cell[782384, 15543, 1381, 21, 31, "Input"],
Cell[CellGroupData[{
Cell[783790, 15568, 1709, 32, 52, "Input"],
Cell[785502, 15602, 107, 2, 31, "Output"]
}, Open  ]],
Cell[CellGroupData[{
Cell[785646, 15609, 1415, 43, 72, "Input"],
Cell[787064, 15654, 106, 2, 31, "Output"]
}, Open  ]],
Cell[CellGroupData[{
Cell[787207, 15661, 2550, 50, 92, "Input"],
Cell[789760, 15713, 87, 1, 31, "Output"]
}, Open  ]],
Cell[CellGroupData[{
Cell[789884, 15719, 2905, 51, 212, "Input"],
Cell[792792, 15772, 87, 1, 31, "Output"],
Cell[792882, 15775, 87, 1, 31, "Output"],
Cell[792972, 15778, 104, 2, 31, "Output"],
Cell[793079, 15782, 87, 1, 31, "Output"],
Cell[793169, 15785, 104, 2, 31, "Output"],
Cell[793276, 15789, 87, 1, 31, "Output"],
Cell[793366, 15792, 87, 1, 31, "Output"],
Cell[793456, 15795, 104, 2, 63, "Output"]
}, Open  ]]
}
]
*)

(* End of internal cache information *)