(* 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[ 321646, 6687] NotebookOptionsPosition[ 315424, 6488] NotebookOutlinePosition[ 315924, 6508] CellTagsIndexPosition[ 315881, 6505] WindowFrame->Normal*) (* Beginning of Notebook Content *) Notebook[{ Cell[BoxData[ RowBox[{ RowBox[{"(*", " ", RowBox[{ RowBox[{ "Kimball", " ", "model", " ", "and", " ", "energy", " ", "derived", " ", "from", " ", "Wolfram", " ", "source"}], ",", " ", RowBox[{"ES", " ", "27", " ", "February", " ", "2013"}]}], " ", "*)"}], " ", "\[IndentingNewLine]", RowBox[{ RowBox[{"Clear", "[", RowBox[{ "tw", ",", "n2", ",", "n", ",", "nb", ",", "bc", ",", "bh", ",", "u", ",", "u1", ",", "u2", ",", "Vee", ",", "Vne", ",", "Vnn"}], "]"}], ";"}]}]], "Input", CellChangeTimes->{{3.568278170270548*^9, 3.568278174310955*^9}, { 3.5682782109554195`*^9, 3.5682782183342323`*^9}, {3.5688220426984916`*^9, 3.5688220506389055`*^9}, {3.568822092353379*^9, 3.568822134660653*^9}, { 3.5688728241768503`*^9, 3.568872825034852*^9}, {3.5688958900531473`*^9, 3.5688958965115585`*^9}, {3.5689027504159966`*^9, 3.568902751695199*^9}, { 3.5689109808408637`*^9, 3.568910992618884*^9}, {3.569134574760273*^9, 3.569134584135889*^9}, 3.56923802266416*^9, {3.56933446475942*^9, 3.569334471239791*^9}, {3.5693395229642725`*^9, 3.569339531606688*^9}, { 3.5694332905109916`*^9, 3.56943330667262*^9}, {3.570297588441428*^9, 3.5702976026530533`*^9}, {3.570558862041448*^9, 3.5705588713234644`*^9}, 3.5705590387585583`*^9, {3.570855141170933*^9, 3.570855146100541*^9}, { 3.5708563212974052`*^9, 3.5708563224362073`*^9}, {3.5708588179101906`*^9, 3.570858820452995*^9}, 3.570949483910489*^9}], Cell[CellGroupData[{ Cell[BoxData[ RowBox[{ RowBox[{"ChemicalData", "[", RowBox[{"\"\\"", ",", "\"\\""}], "]"}], "\[IndentingNewLine]"}]], "Input", CellChangeTimes->{{3.570856547809803*^9, 3.5708565502590075`*^9}, 3.5708567094884872`*^9, 3.5709425310070767`*^9, {3.571043490110433*^9, 3.5710434917172356`*^9}, 3.571043529531702*^9, 3.5710448378904*^9, 3.5710449557330074`*^9, 3.5710450687240057`*^9, 3.571045145959741*^9}], Cell[BoxData[ Graphics3DBox[ {AbsoluteThickness[3], EdgeForm[None], Specularity[ GrayLevel[1], 100], GraphicsComplex3DBox[CompressedData[" 1:eJwtVAlME0EURa1Gq8EKiIoCisRo8Ag12qgoX1ALRbGAFLoWBKGlW4V2wVJA oi2GeFuNB5F4xKhREyVqjMELvhgTDzR4xIt4A2q8xZvUuDOfSTazM/vn/f/e +7OjltpTzT39/Pymyk8v+fE2/RhrCtfjGrxxYO7POBTtX6qvL1KC/4TTez8f 0YNz+1CFYWI87B10+NLlISq08JGPnzuO+Z8b1hL7siKoTrtNoH1DPjSJlzc2 VD1oNDHgPQL4sVFZjHVaOXJLGqbWh1W/72FE/n1FMSQwgLVpwNcDjCDNVD48 eLwM70S0/lmljMdbzfIYb6P5UBkoDHJlvjiQoxwz1Ta4IpfvXe7G6vcp9WGD s5CfTxBptrohnH3wzwKeP1kk/JNzqI5TuXi/tiP0yLXRWLtbHuWLkcEqNWpa r88ErsuYeVRfcy5cHXmy2LotlOrWmKDwTdexrwFq0mlXJvJ8lgIMYgnbjMRf lYGHZNiHaVnY9/gIIX+xmtajRdJlVgHweIVA+xszgJXp8JngU2XslOwnamDl pgwVKW8vieo7ZaE8Z0yk5yInjmMvCcnoUVz1RmsCCa/LAdyfOgtwvxtNhDff SbxiksH2TNqwpS0QuM6RFXjzwNyznel6yldgJfxHTlw/O6e95VUScpz+JeTL iAqIZsRMevKh0Eq4LU64uEIW5kES6e9fQnl3rCb9dy+jeo/a8KdsY9NrD2pY gvpMyvdBIJ7OKnwa2cezs386rTdLxOu5B8jHTOC+/RIIf9Nq8n3Xsm7eNuIh VYGrYX/IpN7pFLdVon2XDmVTP1baDdjpu1/2zqIkXZvTsShA7oBBMRgcer09 1pQI+s01RQEXkmD6mWulDTUG0IcF2xZ0/o2NWhv8+LbdAOPZrIkBb9u38Ls1 ichk8naYsSvDULvjeyKwsg+2dPNbl4uFildOX0gE8n6emkfzDTOsst/b7wvR Ie+fICNwHFsuaF2qGWnuCJjMRx5wHRol5HxicpBvtwrUV29LkN9PYwrW9h2+ L3tKN169BNynaTnAdW8X6D69KIGVjHhqCsSfEJ9JOh3paC3HTcz3uCiK04l0 3+NcyH8TpVrk51QO6oeccvK9NAq5vgtF6u/pLpBRIlpFLXAfAx2wlREb7ibe AWY6/1skfcZ6MPt84oCebwTkcUvyiJfkQd5vKiP1UXQRnY/0kK8vBOrj/Dzy f4ib+mOgmer/J1J/FnqA93k/I90LTRH8B/qNaNs= "], { {RGBColor[0.65, 0.7, 0.7], SphereBox[11, 24.], SphereBox[12, 24.], SphereBox[13, 24.], SphereBox[14, 24.], SphereBox[15, 24.], SphereBox[16, 24.], SphereBox[17, 24.], SphereBox[18, 24.], SphereBox[19, 24.], SphereBox[20, 24.], SphereBox[21, 24.], SphereBox[22, 24.], SphereBox[23, 24.], SphereBox[24, 24.], SphereBox[25, 24.], SphereBox[26, 24.], SphereBox[27, 24.], SphereBox[28, 24.], SphereBox[29, 24.], SphereBox[30, 24.], SphereBox[31, 24.], SphereBox[32, 24.]}, {RGBColor[0.4, 0.4, 0.4], SphereBox[1, 34.], SphereBox[2, 34.], SphereBox[3, 34.], SphereBox[4, 34.], SphereBox[5, 34.], SphereBox[6, 34.], SphereBox[7, 34.], SphereBox[8, 34.], SphereBox[9, 34.], SphereBox[10, 34.]}, {RGBColor[0.65, 0.7, 0.7], CylinderBox[{33, 11}, 15.], CylinderBox[{34, 12}, 15.], CylinderBox[{35, 13}, 15.], CylinderBox[{36, 14}, 15.], CylinderBox[{37, 15}, 15.], CylinderBox[{38, 16}, 15.], CylinderBox[{39, 17}, 15.], CylinderBox[{40, 18}, 15.], CylinderBox[{41, 19}, 15.], CylinderBox[{42, 20}, 15.], CylinderBox[{43, 21}, 15.], CylinderBox[{44, 22}, 15.], CylinderBox[{45, 23}, 15.], CylinderBox[{46, 24}, 15.], CylinderBox[{47, 25}, 15.], CylinderBox[{48, 26}, 15.], CylinderBox[{49, 27}, 15.], CylinderBox[{50, 28}, 15.], CylinderBox[{51, 29}, 15.], CylinderBox[{52, 30}, 15.], CylinderBox[{53, 31}, 15.], CylinderBox[{54, 32}, 15.]}, {RGBColor[0.4, 0.4, 0.4], CylinderBox[{1, 2}, 15.], CylinderBox[{1, 3}, 15.], CylinderBox[{1, 33}, 15.], CylinderBox[{1, 34}, 15.], CylinderBox[{2, 4}, 15.], CylinderBox[{2, 35}, 15.], CylinderBox[{2, 36}, 15.], CylinderBox[{3, 5}, 15.], CylinderBox[{3, 37}, 15.], CylinderBox[{3, 38}, 15.], CylinderBox[{4, 6}, 15.], CylinderBox[{4, 39}, 15.], CylinderBox[{4, 40}, 15.], CylinderBox[{5, 7}, 15.], CylinderBox[{5, 41}, 15.], CylinderBox[{5, 42}, 15.], CylinderBox[{6, 8}, 15.], CylinderBox[{6, 43}, 15.], CylinderBox[{6, 44}, 15.], CylinderBox[{7, 9}, 15.], CylinderBox[{7, 45}, 15.], CylinderBox[{7, 46}, 15.], CylinderBox[{8, 10}, 15.], CylinderBox[{8, 47}, 15.], CylinderBox[{8, 48}, 15.], CylinderBox[{9, 49}, 15.], CylinderBox[{9, 50}, 15.], CylinderBox[{9, 51}, 15.], CylinderBox[{10, 52}, 15.], CylinderBox[{10, 53}, 15.], CylinderBox[{10, 54}, 15.]}}]}, Boxed->False, ImageSize->346.7783976238927, Lighting->"Neutral", ViewPoint->{1.3, -2.4, -2.}]], "Output", CellChangeTimes->{3.571045163556572*^9}] }, Open ]], Cell[CellGroupData[{ Cell[BoxData[{ RowBox[{ RowBox[{"t1", "=", RowBox[{"0.01889726", "*", RowBox[{"ChemicalData", "[", RowBox[{"\"\\"", ",", "\"\\""}], "]"}]}]}], ";"}], "\n", RowBox[{"MatrixForm", "[", "t1", "]"}]}], "Input", CellChangeTimes->{ 3.57029749846047*^9, {3.570297893562364*^9, 3.5702979152152023`*^9}, { 3.5704535321223855`*^9, 3.570453555038826*^9}, {3.570558892227501*^9, 3.5705589112283344`*^9}, {3.5705589864360666`*^9, 3.5705590132681136`*^9}, {3.5705590525489826`*^9, 3.5705590747322216`*^9}, {3.570595322227199*^9, 3.5705953504632483`*^9}, 3.570855059411189*^9, 3.570856566545436*^9, 3.5709425310226765`*^9, 3.5710435245240936`*^9, 3.571044837906*^9, 3.571044955748607*^9, 3.5710450687240057`*^9, 3.571045145975341*^9}], Cell[BoxData[ TagBox[ RowBox[{"(", "\[NoBreak]", GridBox[{ { RowBox[{"-", "1.2186842973999998`"}], RowBox[{"-", "0.7166596882399999`"}], "0.06219844156399999`"}, {"1.2590110502399998`", "0.72493668812`", RowBox[{"-", "0.076027456432`"}]}, { RowBox[{"-", "3.0840328319999997`"}], "0.0047539836982`", RowBox[{"-", "2.0082118201999997`"}]}, {"3.0745842019999996`", RowBox[{"-", "0.006646733259799999`"}], "2.0114243544`"}, { RowBox[{"-", "5.588864645`"}], RowBox[{"-", "1.4781436771999998`"}], RowBox[{"-", "1.8902929177999999`"}]}, {"5.5796049876`", "1.4762539512`", "1.8933164794`"}, { RowBox[{"-", "7.4604492754`"}], RowBox[{"-", "0.71964545532`"}], RowBox[{"-", "3.957086244`"}]}, {"7.451189618`", "0.71775572932`", "3.9602987782`"}, { RowBox[{"-", "9.931832938200001`"}], RowBox[{"-", "2.1983182558`"}], RowBox[{"-", "3.8223487802`"}]}, {"9.9225732808`", "2.1964285298`", "3.8255613144`"}, { RowBox[{"-", "0.7819686188`"}], RowBox[{"-", "2.6750961256`"}], RowBox[{"-", "0.186929806194`"}]}, { RowBox[{"-", "2.076808874`"}], RowBox[{"-", "0.3442135909`"}], "1.854766069`"}, {"0.8371297207399999`", "2.6905918788`", "0.13968854592`"}, {"2.1329337362`", "0.34154907724`", RowBox[{"-", "1.85852662374`"}]}, { RowBox[{"-", "3.5377560446`"}], "1.9571892181999997`", RowBox[{"-", "1.7432722349999998`"}]}, { RowBox[{"-", "2.2168375706`"}], RowBox[{"-", "0.34689700182`"}], RowBox[{"-", "3.8006169312`"}]}, {"3.5137565243999997`", RowBox[{"-", "1.9666378481999998`"}], "1.7798384331`"}, {"2.1913262695999998`", "0.35627004278`", "3.7938139175999996`"}, { RowBox[{"-", "5.1444010898`"}], RowBox[{"-", "3.430797553`"}], RowBox[{"-", "2.1697833932`"}]}, { RowBox[{"-", "6.4488789476`"}], RowBox[{"-", "1.1446070382`"}], RowBox[{"-", "0.09078054731399998`"}]}, {"5.1351414324`", "3.4289078269999997`", "2.1729959273999997`"}, {"6.4396192902`", "1.1427173121999998`", "0.09397985343200001`"}, { RowBox[{"-", "7.904723858`"}], "1.23480366018`", RowBox[{"-", "3.6895010424`"}]}, { RowBox[{"-", "6.6047813426`"}], RowBox[{"-", "1.0539379847199999`"}], RowBox[{"-", "5.758184094599999`"}]}, {"7.895275228`", RowBox[{"-", "1.2366933861799998`"}], "3.6927135765999997`"}, {"6.595332712599999`", "1.05204825872`", "5.7613966288`"}, { RowBox[{"-", "9.548218560199999`"}], RowBox[{"-", "4.1727039806`"}], RowBox[{"-", "4.0304076127999995`"}]}, { RowBox[{"-", "10.8181144322`"}], RowBox[{"-", "1.8687311441399999`"}], RowBox[{"-", "2.0350459294`"}]}, { RowBox[{"-", "11.162611482`"}], RowBox[{"-", "1.59079024406`"}], RowBox[{"-", "5.307295471`"}]}, {"10.8088547748`", "1.8666713428`", "2.0382584636`"}, {"9.538769930199999`", "4.1708142546`", "4.033620147`"}, {"11.1533518246`", "1.58890051806`", "5.310508005199999`"} }, 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.5710451635877724`*^9}] }, Open ]], Cell[CellGroupData[{ Cell[BoxData[ RowBox[{"u", "=", RowBox[{"ChemicalData", "\[NoBreak]", "[", RowBox[{"\"\\"", ",", "\"\\""}], "]"}]}]], "Input", CellChangeTimes->{ 3.57029749846047*^9, {3.570297893562364*^9, 3.5702979152152023`*^9}, { 3.5704535321223855`*^9, 3.570453555038826*^9}, {3.570558892227501*^9, 3.5705589112283344`*^9}, {3.5705589864360666`*^9, 3.5705590132681136`*^9}, 3.5705592408949137`*^9, {3.5705593512807074`*^9, 3.5705593890483737`*^9}, { 3.570559442712468*^9, 3.5705594826641383`*^9}, 3.5708550837628317`*^9, 3.570856587480673*^9, 3.5709425310226765`*^9, 3.5710435245552936`*^9, 3.5710448379216003`*^9, 3.571044955764207*^9, 3.571045068739606*^9, 3.571045145975341*^9}], Cell[BoxData[ RowBox[{"{", RowBox[{"\<\"C\"\>", ",", "\<\"C\"\>", ",", "\<\"C\"\>", ",", "\<\"C\"\>", ",", "\<\"C\"\>", ",", "\<\"C\"\>", ",", "\<\"C\"\>", ",", "\<\"C\"\>", ",", "\<\"C\"\>", ",", "\<\"C\"\>", ",", "\<\"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.5710451635877724`*^9}] }, Open ]], Cell[CellGroupData[{ Cell[BoxData[ RowBox[{"n", "=", RowBox[{"Length", "[", "t1", "]"}]}]], "Input", CellChangeTimes->{{3.568278170270548*^9, 3.568278174310955*^9}, { 3.5682782109554195`*^9, 3.5682782183342323`*^9}, {3.5688220426984916`*^9, 3.5688220506389055`*^9}, {3.568822092353379*^9, 3.568822123693834*^9}, 3.568873215924739*^9, 3.5689108676002645`*^9, 3.5689997098237543`*^9, 3.5689998170115423`*^9, 3.568999886915265*^9, 3.5691460425981283`*^9, { 3.5692371678918586`*^9, 3.569237204489523*^9}, 3.569237465805582*^9, 3.56923802261736*^9, 3.5693403424025126`*^9, 3.5693404501675014`*^9, 3.569340737988007*^9, 3.569340852819809*^9, 3.569341165475558*^9, 3.56934149694494*^9, 3.569342614390503*^9, 3.569343567162176*^9, 3.569343662712344*^9, 3.569343763597721*^9, 3.5693440703198595`*^9, 3.569344266209404*^9, 3.5702973471714044`*^9, 3.5702974395391665`*^9, { 3.570297637207114*^9, 3.570297637987115*^9}, 3.570297920051211*^9}], Cell[BoxData["32"], "Output", CellChangeTimes->{3.5710451636033726`*^9}] }, Open ]], Cell[CellGroupData[{ Cell[BoxData[ RowBox[{"un", "=", RowBox[{"Table", "[", RowBox[{ RowBox[{"If", "[", RowBox[{ RowBox[{ RowBox[{"u", "[", RowBox[{"[", "i", "]"}], "]"}], "\[Equal]", "\"\\""}], ",", "\"\\"", ",", RowBox[{"u", "[", RowBox[{"[", "i", "]"}], "]"}]}], "]"}], ",", RowBox[{"{", RowBox[{"i", ",", "1", ",", "n"}], "}"}]}], "]"}]}]], "Input", CellChangeTimes->{{3.568807971988578*^9, 3.5688080897687845`*^9}, { 3.5688081769573374`*^9, 3.5688081865669546`*^9}, {3.568808274317109*^9, 3.5688082853151283`*^9}, {3.5688085365847692`*^9, 3.568808578330443*^9}, { 3.568808822704872*^9, 3.5688088761037655`*^9}, {3.56880890727262*^9, 3.568808937365073*^9}, {3.568809097608555*^9, 3.5688091594002633`*^9}, 3.5688092418308077`*^9, {3.5688092753552666`*^9, 3.568809302577315*^9}, { 3.5688096257786827`*^9, 3.568809703201618*^9}, {3.5688097456336927`*^9, 3.568809788268568*^9}, 3.568809850575077*^9, {3.568809946562046*^9, 3.5688099535664577`*^9}, {3.5688100003197403`*^9, 3.568810008556555*^9}, { 3.568810075371472*^9, 3.56881007981748*^9}, {3.568813431920168*^9, 3.568813533086345*^9}, {3.5688135960324554`*^9, 3.5688136045344706`*^9}, { 3.5688136407889347`*^9, 3.568813707494652*^9}, {3.568813812529636*^9, 3.5688138275524626`*^9}, {3.5688140611940727`*^9, 3.568814062738476*^9}, { 3.568814121113778*^9, 3.5688141965555105`*^9}, {3.568814326675339*^9, 3.568814331074547*^9}, 3.568814589473401*^9, 3.5688146762563534`*^9, 3.56881472549004*^9}], Cell[BoxData[ RowBox[{"{", RowBox[{"\<\"C\"\>", ",", "\<\"C\"\>", ",", "\<\"C\"\>", ",", "\<\"C\"\>", ",", "\<\"C\"\>", ",", "\<\"C\"\>", ",", "\<\"C\"\>", ",", "\<\"C\"\>", ",", "\<\"C\"\>", ",", "\<\"C\"\>", ",", "\<\"Z\"\>", ",", "\<\"Z\"\>", ",", "\<\"Z\"\>", ",", "\<\"Z\"\>", ",", "\<\"Z\"\>", ",", "\<\"Z\"\>", ",", "\<\"Z\"\>", ",", "\<\"Z\"\>", ",", "\<\"Z\"\>", ",", "\<\"Z\"\>", ",", "\<\"Z\"\>", ",", "\<\"Z\"\>", ",", "\<\"Z\"\>", ",", "\<\"Z\"\>", ",", "\<\"Z\"\>", ",", "\<\"Z\"\>", ",", "\<\"Z\"\>", ",", "\<\"Z\"\>", ",", "\<\"Z\"\>", ",", "\<\"Z\"\>", ",", "\<\"Z\"\>", ",", "\<\"Z\"\>"}], "}"}]], "Output", CellChangeTimes->{3.5710451636189723`*^9}] }, Open ]], Cell[BoxData[ RowBox[{ RowBox[{"num", "=", RowBox[{"Table", "[", RowBox[{"i", ",", RowBox[{"{", RowBox[{"i", ",", "1", ",", "n"}], "}"}]}], "]"}]}], ";"}]], "Input", CellChangeTimes->{{3.568807971988578*^9, 3.5688080897687845`*^9}, { 3.5688081769573374`*^9, 3.5688081865669546`*^9}, {3.568808274317109*^9, 3.5688082853151283`*^9}, {3.5688085365847692`*^9, 3.568808578330443*^9}, { 3.568808822704872*^9, 3.5688088761037655`*^9}, {3.56880890727262*^9, 3.568808937365073*^9}, {3.568809097608555*^9, 3.5688091594002633`*^9}, 3.5688092418308077`*^9, {3.5688092753552666`*^9, 3.568809302577315*^9}, { 3.5688096257786827`*^9, 3.568809703201618*^9}, {3.5688097456336927`*^9, 3.568809788268568*^9}, 3.568809850575077*^9, {3.568809946562046*^9, 3.5688099535664577`*^9}, {3.5688100003197403`*^9, 3.568810008556555*^9}, { 3.568810075371472*^9, 3.56881007981748*^9}, {3.568813431920168*^9, 3.568813533086345*^9}, {3.5688135960324554`*^9, 3.5688136045344706`*^9}, { 3.5688136407889347`*^9, 3.568813707494652*^9}, {3.568813812529636*^9, 3.5688138275524626`*^9}, {3.5688140611940727`*^9, 3.568814062738476*^9}, { 3.568814121113778*^9, 3.5688141965555105`*^9}, {3.568814326675339*^9, 3.568814331074547*^9}, 3.568814589473401*^9, {3.5688146762563534`*^9, 3.5688146829331646`*^9}, 3.5688147231032352`*^9, 3.5688216336189733`*^9}], Cell[BoxData[ RowBox[{ RowBox[{"um", "=", RowBox[{"Table", "[", RowBox[{ RowBox[{"{", RowBox[{ RowBox[{"un", "[", RowBox[{"[", "i", "]"}], "]"}], ",", RowBox[{"num", "[", RowBox[{"[", "i", "]"}], "]"}]}], "}"}], ",", RowBox[{"{", RowBox[{"i", ",", "1", ",", "n"}], "}"}]}], "]"}]}], ";"}]], "Input", CellChangeTimes->{{3.568807971988578*^9, 3.5688080897687845`*^9}, { 3.5688081769573374`*^9, 3.5688081865669546`*^9}, {3.568808274317109*^9, 3.5688082853151283`*^9}, {3.5688085365847692`*^9, 3.568808578330443*^9}, { 3.568808822704872*^9, 3.5688088761037655`*^9}, {3.56880890727262*^9, 3.568808937365073*^9}, {3.568809097608555*^9, 3.5688091594002633`*^9}, 3.5688092418308077`*^9, {3.5688092753552666`*^9, 3.568809302577315*^9}, { 3.5688096257786827`*^9, 3.568809703201618*^9}, {3.5688097456336927`*^9, 3.568809788268568*^9}, 3.568809850575077*^9, {3.568809946562046*^9, 3.5688099535664577`*^9}, {3.5688100003197403`*^9, 3.568810008556555*^9}, { 3.568810075371472*^9, 3.56881007981748*^9}, {3.568813431920168*^9, 3.568813533086345*^9}, {3.5688135960324554`*^9, 3.5688136045344706`*^9}, { 3.5688136407889347`*^9, 3.568813707494652*^9}, {3.568813812529636*^9, 3.5688138275524626`*^9}, {3.5688140611940727`*^9, 3.568814062738476*^9}, { 3.568814121113778*^9, 3.5688141965555105`*^9}, {3.568814326675339*^9, 3.568814331074547*^9}, 3.568814589473401*^9, {3.5688146762563534`*^9, 3.5688146885023746`*^9}, 3.5688147203576307`*^9, 3.56882164316619*^9}], Cell[CellGroupData[{ Cell[BoxData[ RowBox[{"us", "=", RowBox[{"Sort", "[", "um", "]"}]}]], "Input", CellChangeTimes->{{3.568807971988578*^9, 3.5688080897687845`*^9}, { 3.5688081769573374`*^9, 3.5688081865669546`*^9}, {3.568808274317109*^9, 3.5688082853151283`*^9}, {3.5688085365847692`*^9, 3.568808578330443*^9}, { 3.568808822704872*^9, 3.5688088761037655`*^9}, {3.56880890727262*^9, 3.568808937365073*^9}, {3.568809097608555*^9, 3.5688091594002633`*^9}, 3.5688092418308077`*^9, {3.5688092753552666`*^9, 3.568809302577315*^9}, { 3.5688096257786827`*^9, 3.568809703201618*^9}, {3.5688097456336927`*^9, 3.568809788268568*^9}, 3.568809850575077*^9, {3.568809946562046*^9, 3.5688099535664577`*^9}, {3.5688100003197403`*^9, 3.568810008556555*^9}, { 3.568810075371472*^9, 3.56881007981748*^9}, {3.568813431920168*^9, 3.568813533086345*^9}, {3.5688135960324554`*^9, 3.5688136045344706`*^9}, { 3.5688136407889347`*^9, 3.568813707494652*^9}, {3.568813812529636*^9, 3.5688138275524626`*^9}, {3.5688140611940727`*^9, 3.568814062738476*^9}, { 3.568814121113778*^9, 3.5688141965555105`*^9}, {3.568814326675339*^9, 3.568814331074547*^9}, 3.568814589473401*^9, {3.5688146762563534`*^9, 3.5688146945707855`*^9}}], Cell[BoxData[ RowBox[{"{", RowBox[{ RowBox[{"{", RowBox[{"\<\"C\"\>", ",", "1"}], "}"}], ",", RowBox[{"{", RowBox[{"\<\"C\"\>", ",", "2"}], "}"}], ",", RowBox[{"{", RowBox[{"\<\"C\"\>", ",", "3"}], "}"}], ",", RowBox[{"{", RowBox[{"\<\"C\"\>", ",", "4"}], "}"}], ",", RowBox[{"{", RowBox[{"\<\"C\"\>", ",", "5"}], "}"}], ",", RowBox[{"{", RowBox[{"\<\"C\"\>", ",", "6"}], "}"}], ",", RowBox[{"{", RowBox[{"\<\"C\"\>", ",", "7"}], "}"}], ",", RowBox[{"{", RowBox[{"\<\"C\"\>", ",", "8"}], "}"}], ",", RowBox[{"{", RowBox[{"\<\"C\"\>", ",", "9"}], "}"}], ",", RowBox[{"{", RowBox[{"\<\"C\"\>", ",", "10"}], "}"}], ",", RowBox[{"{", RowBox[{"\<\"Z\"\>", ",", "11"}], "}"}], ",", RowBox[{"{", RowBox[{"\<\"Z\"\>", ",", "12"}], "}"}], ",", RowBox[{"{", RowBox[{"\<\"Z\"\>", ",", "13"}], "}"}], ",", RowBox[{"{", RowBox[{"\<\"Z\"\>", ",", "14"}], "}"}], ",", RowBox[{"{", RowBox[{"\<\"Z\"\>", ",", "15"}], "}"}], ",", RowBox[{"{", RowBox[{"\<\"Z\"\>", ",", "16"}], "}"}], ",", RowBox[{"{", RowBox[{"\<\"Z\"\>", ",", "17"}], "}"}], ",", RowBox[{"{", RowBox[{"\<\"Z\"\>", ",", "18"}], "}"}], ",", RowBox[{"{", RowBox[{"\<\"Z\"\>", ",", "19"}], "}"}], ",", RowBox[{"{", RowBox[{"\<\"Z\"\>", ",", "20"}], "}"}], ",", RowBox[{"{", RowBox[{"\<\"Z\"\>", ",", "21"}], "}"}], ",", RowBox[{"{", RowBox[{"\<\"Z\"\>", ",", "22"}], "}"}], ",", RowBox[{"{", RowBox[{"\<\"Z\"\>", ",", "23"}], "}"}], ",", RowBox[{"{", RowBox[{"\<\"Z\"\>", ",", "24"}], "}"}], ",", RowBox[{"{", RowBox[{"\<\"Z\"\>", ",", "25"}], "}"}], ",", RowBox[{"{", RowBox[{"\<\"Z\"\>", ",", "26"}], "}"}], ",", RowBox[{"{", RowBox[{"\<\"Z\"\>", ",", "27"}], "}"}], ",", RowBox[{"{", RowBox[{"\<\"Z\"\>", ",", "28"}], "}"}], ",", RowBox[{"{", RowBox[{"\<\"Z\"\>", ",", "29"}], "}"}], ",", RowBox[{"{", RowBox[{"\<\"Z\"\>", ",", "30"}], "}"}], ",", RowBox[{"{", RowBox[{"\<\"Z\"\>", ",", "31"}], "}"}], ",", RowBox[{"{", RowBox[{"\<\"Z\"\>", ",", "32"}], "}"}]}], "}"}]], "Output", CellChangeTimes->{3.5710451636345725`*^9}] }, Open ]], Cell[CellGroupData[{ Cell[BoxData[ RowBox[{"num", "=", RowBox[{"Table", "[", RowBox[{ RowBox[{"us", "[", RowBox[{"[", RowBox[{"i", ",", "2"}], "]"}], "]"}], ",", RowBox[{"{", RowBox[{"i", ",", "1", ",", "n"}], "}"}]}], "]"}]}]], "Input", CellChangeTimes->{{3.56881016518083*^9, 3.5688102745058217`*^9}, { 3.5688103430679426`*^9, 3.5688103543155622`*^9}, {3.5688124958093233`*^9, 3.568812496386524*^9}, {3.5688126345871673`*^9, 3.568812635491969*^9}, { 3.568812673025635*^9, 3.5688126732128353`*^9}, {3.5688127492161684`*^9, 3.568812848541543*^9}, 3.5688129280080824`*^9, {3.568813062152718*^9, 3.5688131360032477`*^9}, 3.568813172678912*^9, 3.568821701869093*^9}], Cell[BoxData[ RowBox[{"{", RowBox[{ "1", ",", "2", ",", "3", ",", "4", ",", "5", ",", "6", ",", "7", ",", "8", ",", "9", ",", "10", ",", "11", ",", "12", ",", "13", ",", "14", ",", "15", ",", "16", ",", "17", ",", "18", ",", "19", ",", "20", ",", "21", ",", "22", ",", "23", ",", "24", ",", "25", ",", "26", ",", "27", ",", "28", ",", "29", ",", "30", ",", "31", ",", "32"}], "}"}]], "Output", CellChangeTimes->{3.571045163650172*^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]", "\"\\""}], ",", RowBox[{ RowBox[{"us", "[", RowBox[{"[", RowBox[{"i", ",", "1"}], "]"}], "]"}], "=", "\"\\""}]}], "]"}]}], "]"}], ";"}]], "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]", "\"\\""}], ",", "0.255", ",", RowBox[{"If", "[", RowBox[{ RowBox[{ RowBox[{"us", "[", RowBox[{"[", RowBox[{"i", ",", "1"}], "]"}], "]"}], "\[Equal]", "\"\\""}], ",", "0.1", ",", RowBox[{"If", "[", RowBox[{ RowBox[{ RowBox[{"us", "[", RowBox[{"[", RowBox[{"i", ",", "1"}], "]"}], "]"}], "\[Equal]", "\"\\""}], ",", "0.24", ",", RowBox[{"If", "[", RowBox[{ RowBox[{ RowBox[{"us", "[", RowBox[{"[", RowBox[{"i", ",", "1"}], "]"}], "]"}], "\[Equal]", "\"\\""}], ",", "0.178", ",", RowBox[{"If", "[", RowBox[{ RowBox[{ RowBox[{"us", "[", RowBox[{"[", RowBox[{"i", ",", "1"}], "]"}], "]"}], "\[Equal]", "\"\\""}], ",", "0.5"}], "]"}]}], "]"}]}], "]"}]}], "]"}]}], "]"}], ",", RowBox[{"{", RowBox[{"i", ",", "1", ",", "n"}], "}"}]}], "]"}]}], "\[IndentingNewLine]", RowBox[{"u2", "=", RowBox[{"Table", "[", RowBox[{ RowBox[{"If", "[", RowBox[{ RowBox[{ RowBox[{"us", "[", RowBox[{"[", RowBox[{"i", ",", "1"}], "]"}], "]"}], "\[Equal]", "\"\\""}], ",", "0.2557", ",", RowBox[{"If", "[", RowBox[{ RowBox[{ RowBox[{"us", "[", RowBox[{"[", RowBox[{"i", ",", "1"}], "]"}], "]"}], "\[Equal]", "\"\\""}], ",", "0.6", ",", RowBox[{"If", "[", RowBox[{ RowBox[{ RowBox[{"us", "[", RowBox[{"[", RowBox[{"i", ",", "1"}], "]"}], "]"}], "\[Equal]", "\"\\""}], ",", "0.22522", ",", RowBox[{"If", "[", RowBox[{ RowBox[{ RowBox[{"us", "[", RowBox[{"[", RowBox[{"i", ",", "1"}], "]"}], "]"}], "\[Equal]", "\"\\""}], ",", "0.178", ",", RowBox[{"If", "[", RowBox[{ RowBox[{ RowBox[{"us", "[", RowBox[{"[", RowBox[{"i", ",", "1"}], "]"}], "]"}], "\[Equal]", "\"\\""}], ",", "0.5"}], "]"}]}], "]"}]}], "]"}]}], "]"}]}], "]"}], ",", RowBox[{"{", RowBox[{"i", ",", "1", ",", "n"}], "}"}]}], "]"}]}]}], "Input", CellChangeTimes->{{3.5679480369450207`*^9, 3.567948069112277*^9}, { 3.5679486805553513`*^9, 3.5679487948723516`*^9}, 3.567950206581231*^9, { 3.5681216077716007`*^9, 3.5681216839309344`*^9}, {3.568266380090639*^9, 3.5682664108850937`*^9}, {3.568266481350417*^9, 3.56826649971165*^9}, 3.5682795170433135`*^9, {3.5682795636873956`*^9, 3.5682797843809834`*^9}, { 3.568279837187076*^9, 3.5682798459854913`*^9}, {3.568279877201146*^9, 3.568279880711152*^9}, {3.5682799570264864`*^9, 3.5682799599124913`*^9}, { 3.5683770044498715`*^9, 3.5683771523693314`*^9}, 3.5688133425788107`*^9, { 3.568814931192001*^9, 3.5688150075073347`*^9}, {3.5688765350957685`*^9, 3.5688765981198792`*^9}, {3.568876634452343*^9, 3.5688766352167444`*^9}, { 3.568894358551657*^9, 3.5688944054453397`*^9}, {3.568894522929146*^9, 3.5688945259087515`*^9}, {3.5688946101644993`*^9, 3.5688946171221113`*^9}, {3.568894651067771*^9, 3.568894651956972*^9}, 3.5688946827982264`*^9, {3.568894734527918*^9, 3.568894735495119*^9}, { 3.5688947726699843`*^9, 3.568894773496786*^9}, {3.5688948078948464`*^9, 3.568895097914956*^9}, {3.5689558039020233`*^9, 3.568955804619624*^9}, { 3.5689559169086213`*^9, 3.5689559179070234`*^9}, {3.5689559496998787`*^9, 3.568955950589081*^9}, {3.568956090817727*^9, 3.568956118273775*^9}, 3.5689561556982408`*^9, {3.5690814230317364`*^9, 3.5690814238897376`*^9}, { 3.569232478412421*^9, 3.5692324795356236`*^9}, {3.5692325096124763`*^9, 3.5692325115780797`*^9}, {3.5692325933846235`*^9, 3.569232594289425*^9}, { 3.569235467676072*^9, 3.5692354683780737`*^9}, {3.5692358857568064`*^9, 3.5692358867552085`*^9}, {3.569236173312112*^9, 3.569236174060913*^9}, { 3.569344745239445*^9, 3.569344781213108*^9}, {3.5693896312339673`*^9, 3.5693896351495743`*^9}, {3.5693896840088596`*^9, 3.5693896981112843`*^9}, {3.5693897680462074`*^9, 3.5693897743798184`*^9}, 3.570595843597315*^9, 3.5705958765133724`*^9, {3.5706006955110383`*^9, 3.57060069660304*^9}, {3.570600739659116*^9, 3.5706007402207165`*^9}, { 3.5706007784563837`*^9, 3.5706008313872766`*^9}, {3.5706008641161346`*^9, 3.5706008892321787`*^9}, 3.5706010214580107`*^9, {3.5706011135917726`*^9, 3.570601115058175*^9}, {3.5706011509850388`*^9, 3.5706011750714808`*^9}, { 3.5706012352719865`*^9, 3.570601260746831*^9}, 3.570856110868636*^9, 3.570856144034294*^9, 3.5708561753903494`*^9, {3.5708562115824127`*^9, 3.570856236261656*^9}, 3.5708568877188005`*^9, 3.570856960992129*^9, { 3.5708570022854013`*^9, 3.570857003424204*^9}, 3.5708574863854513`*^9, 3.570857676003785*^9, {3.570857720697863*^9, 3.570857774736358*^9}, { 3.570857815015629*^9, 3.570857815265229*^9}, {3.5708578488052883`*^9, 3.5708579513754683`*^9}, {3.5708579844319267`*^9, 3.570858009937971*^9}, { 3.5708583084132957`*^9, 3.570858421435494*^9}}], Cell[BoxData[ RowBox[{"{", RowBox[{ "0.255`", ",", "0.255`", ",", "0.255`", ",", "0.255`", ",", "0.255`", ",", "0.255`", ",", "0.255`", ",", "0.255`", ",", "0.255`", ",", "0.255`", ",", "0.1`", ",", "0.1`", ",", "0.1`", ",", "0.1`", ",", "0.1`", ",", "0.1`", ",", "0.1`", ",", "0.1`", ",", "0.1`", ",", "0.1`", ",", "0.1`", ",", "0.1`", ",", "0.1`", ",", "0.1`", ",", "0.1`", ",", "0.1`", ",", "0.1`", ",", "0.1`", ",", "0.1`", ",", "0.1`", ",", "0.1`", ",", "0.1`"}], "}"}]], "Output", CellChangeTimes->{3.571045163650172*^9}], Cell[BoxData[ RowBox[{"{", RowBox[{ "0.2557`", ",", "0.2557`", ",", "0.2557`", ",", "0.2557`", ",", "0.2557`", ",", "0.2557`", ",", "0.2557`", ",", "0.2557`", ",", "0.2557`", ",", "0.2557`", ",", "0.6`", ",", "0.6`", ",", "0.6`", ",", "0.6`", ",", "0.6`", ",", "0.6`", ",", "0.6`", ",", "0.6`", ",", "0.6`", ",", "0.6`", ",", "0.6`", ",", "0.6`", ",", "0.6`", ",", "0.6`", ",", "0.6`", ",", "0.6`", ",", "0.6`", ",", "0.6`", ",", "0.6`", ",", "0.6`", ",", "0.6`", ",", "0.6`"}], "}"}]], "Output", CellChangeTimes->{3.571045163650172*^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\"\>", ",", "\<\"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.5710451636657724`*^9}] }, Open ]], Cell[CellGroupData[{ Cell[BoxData[ RowBox[{"cn", "=", RowBox[{"Table", "[", RowBox[{ RowBox[{"If", "[", RowBox[{ RowBox[{ RowBox[{"u", "[", RowBox[{"[", "i", "]"}], "]"}], "\[Equal]", "\"\\""}], ",", "6.0", ",", RowBox[{"If", "[", RowBox[{ RowBox[{ RowBox[{"u", "[", RowBox[{"[", "i", "]"}], "]"}], "\[Equal]", "\"\\""}], ",", "1.0", ",", RowBox[{"If", "[", RowBox[{ RowBox[{ RowBox[{"u", "[", RowBox[{"[", "i", "]"}], "]"}], "\[Equal]", "\"\\""}], ",", "7.0", ",", RowBox[{"If", "[", RowBox[{ RowBox[{ RowBox[{"u", "[", RowBox[{"[", "i", "]"}], "]"}], "\[Equal]", "\"\\""}], ",", "8.0", ",", RowBox[{"If", "[", RowBox[{ RowBox[{ RowBox[{"u", "[", RowBox[{"[", "i", "]"}], "]"}], "\[Equal]", "\"\\""}], ",", "17.0"}], "]"}]}], "]"}]}], "]"}]}], "]"}]}], "]"}], ",", RowBox[{"{", RowBox[{"i", ",", "1", ",", "n"}], "}"}]}], "]"}]}]], "Input", CellChangeTimes->{{3.5688224161787477`*^9, 3.5688224173799496`*^9}, { 3.5688224905908785`*^9, 3.568822500434496*^9}, 3.5692358293003073`*^9, 3.5692358676919746`*^9, {3.569344570581538*^9, 3.5693446110324097`*^9}}], Cell[BoxData[ RowBox[{"{", RowBox[{ "6.`", ",", "6.`", ",", "6.`", ",", "6.`", ",", "6.`", ",", "6.`", ",", "6.`", ",", "6.`", ",", "6.`", ",", "6.`", ",", "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.5710451636813726`*^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]", "\"\\""}], ",", " ", 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["10"], "Output", CellChangeTimes->{3.5710451636969724`*^9}], Cell[BoxData["22"], "Output", CellChangeTimes->{3.5710451636969724`*^9}] }, Open ]], Cell[CellGroupData[{ Cell[BoxData[ RowBox[{ RowBox[{"ChemicalData", "\[NoBreak]", "[", RowBox[{"\"\\"", ",", "\"\\""}], "]"}], "\[IndentingNewLine]"}]], "Input", CellChangeTimes->{{3.5708566311295495`*^9, 3.5708566338907547`*^9}, 3.5709425310382767`*^9, 3.5710435245552936`*^9, 3.5710448379216003`*^9, 3.571044955764207*^9, 3.571045068739606*^9, 3.571045145990941*^9}], Cell[BoxData["\<\"CH3(CH2)8CH3\"\>"], "Output", CellChangeTimes->{3.5710451636969724`*^9}] }, Open ]], Cell[BoxData[{ RowBox[{ RowBox[{"DeleteFile", "[", " ", "\"\\"", "]"}], ";"}], "\[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", "}"}]}], "]"}]}], "}"}], ">>>", " ", "\"\\""}]}], "]"}]}], "Input", CellChangeTimes->{{3.567869377256353*^9, 3.5678694101568108`*^9}, { 3.5678695244894114`*^9, 3.56786953511303*^9}, 3.56786988243204*^9, 3.5678699252853155`*^9, {3.567870069179968*^9, 3.5678700766835814`*^9}, { 3.5678703216664114`*^9, 3.567870325738019*^9}, 3.5679271251072817`*^9, { 3.567942840466694*^9, 3.567942854381918*^9}, {3.567942932272855*^9, 3.567942950509287*^9}, 3.5679430681802936`*^9, {3.568278272060727*^9, 3.56827827391713*^9}, 3.5688732159559383`*^9, 3.568910867631465*^9, 3.5689997098549547`*^9, 3.5689998170427427`*^9, 3.5689998869620657`*^9, { 3.569059200815255*^9, 3.5690592031552596`*^9}, 3.5691460426137285`*^9, 3.569237204520723*^9, 3.569237465836782*^9, 3.56923802264856*^9, 3.5693403424181123`*^9, 3.569340450198702*^9, 3.569340738019207*^9, 3.569340852851009*^9, {3.5693411655067577`*^9, 3.5693411655067577`*^9}, 3.5693414976001415`*^9, {3.5693416978420925`*^9, 3.569341705314506*^9}, 3.569342614421703*^9, 3.5693435671777763`*^9, 3.569343662727944*^9, 3.5693437636289215`*^9, 3.5693440709750605`*^9, 3.5693442662562037`*^9, { 3.5702975520309644`*^9, 3.570297552764166*^9}, {3.5705591717487917`*^9, 3.5705591791432047`*^9}}], Cell[BoxData[ RowBox[{ RowBox[{"t", "=", RowBox[{"Table", "[", RowBox[{ RowBox[{"t1", "[", RowBox[{"[", RowBox[{"num", "[", RowBox[{"[", "i", "]"}], "]"}], "]"}], "]"}], ",", RowBox[{"{", RowBox[{"i", ",", "1", ",", "n"}], "}"}]}], "]"}]}], ";"}]], "Input", CellChangeTimes->{{3.567869377256353*^9, 3.567869394073182*^9}, { 3.5678694248832364`*^9, 3.5678694526200852`*^9}, {3.5678694891241493`*^9, 3.5678694955045605`*^9}, {3.567869596046737*^9, 3.567869602645549*^9}, 3.56786971175214*^9, {3.5678697908910794`*^9, 3.567869798800293*^9}, { 3.5679434548425727`*^9, 3.5679434621121855`*^9}, 3.568011875875622*^9, 3.56811435956207*^9, {3.5682782821071444`*^9, 3.5682782839479475`*^9}, { 3.5688205455482616`*^9, 3.5688206262784038`*^9}, 3.5688208026055136`*^9, 3.5688732159559383`*^9, 3.568910867631465*^9, {3.5689830694736805`*^9, 3.568983072687286*^9}}], Cell[BoxData[ RowBox[{ RowBox[{"Plot1", "=", RowBox[{"Table", "[", RowBox[{ RowBox[{"Graphics3D", "[", RowBox[{"{", RowBox[{ RowBox[{"If", "[", RowBox[{ RowBox[{ RowBox[{"u", "[", RowBox[{"[", "i", "]"}], "]"}], "\[Equal]", "\"\\""}], ",", RowBox[{"Lighter", "[", "Blue", "]"}], ",", RowBox[{"If", "[", RowBox[{ RowBox[{ RowBox[{"u", "[", RowBox[{"[", "i", "]"}], "]"}], "\[Equal]", "\"\\""}], ",", RowBox[{"Lighter", "[", "Red", "]"}], ",", RowBox[{"If", "[", RowBox[{ RowBox[{ RowBox[{"u", "[", RowBox[{"[", "i", "]"}], "]"}], "\[Equal]", "\"\\""}], ",", RowBox[{"Lighter", "[", "Green", "]"}], ",", RowBox[{"If", "[", RowBox[{ RowBox[{ RowBox[{"u", "[", RowBox[{"[", "i", "]"}], "]"}], "\[Equal]", "\"\\""}], ",", RowBox[{"Lighter", "[", "Orange", "]"}], ",", RowBox[{"Lighter", "[", "Brown", "]"}]}], "]"}]}], "]"}]}], "]"}]}], "]"}], ",", RowBox[{"Sphere", "[", RowBox[{ RowBox[{"{", RowBox[{ RowBox[{"t", "[", RowBox[{"[", RowBox[{"i", ",", "1"}], "]"}], "]"}], ",", RowBox[{"t", "[", RowBox[{"[", RowBox[{"i", ",", "2"}], "]"}], "]"}], ",", RowBox[{"t", "[", RowBox[{"[", RowBox[{"i", ",", "3"}], "]"}], "]"}]}], "}"}], ",", RowBox[{"u1", "[", RowBox[{"[", "i", "]"}], "]"}]}], "]"}]}], "}"}], "]"}], ",", RowBox[{"{", RowBox[{"i", ",", "1", ",", "n"}], "}"}]}], "]"}]}], ";"}]], "Input", CellChangeTimes->{{3.5679440895764875`*^9, 3.5679441000441055`*^9}, { 3.5679441319773617`*^9, 3.5679441523041973`*^9}, {3.567944240210352*^9, 3.5679442813476243`*^9}, {3.567944323966899*^9, 3.567944345931738*^9}, { 3.567944397567828*^9, 3.567944456941533*^9}, {3.567944491557994*^9, 3.5679445468444905`*^9}, {3.5679446505690727`*^9, 3.567944683875131*^9}, { 3.567944736244423*^9, 3.5679448177233667`*^9}, {3.567945549707852*^9, 3.5679455499730525`*^9}, {3.5679456039959474`*^9, 3.567945606195551*^9}, { 3.567945704460124*^9, 3.5679457164877453`*^9}, {3.5679457857362666`*^9, 3.5679458050023003`*^9}, {3.567946353670864*^9, 3.5679464127169676`*^9}, { 3.5679466013368993`*^9, 3.5679466311173515`*^9}, {3.5679467590999765`*^9, 3.567946915739851*^9}, {3.5679469466123056`*^9, 3.567946946815106*^9}, { 3.5679471385082426`*^9, 3.5679471497870626`*^9}, {3.5679483907224417`*^9, 3.5679484036080647`*^9}, {3.567948441937332*^9, 3.5679484421869326`*^9}, { 3.567948496740228*^9, 3.56794849772303*^9}, {3.567948847912445*^9, 3.5679488949933276`*^9}, {3.568011728877214*^9, 3.5680117308213253`*^9}, { 3.568011766325356*^9, 3.568011773436763*^9}, {3.5681173314452896`*^9, 3.5681173370612993`*^9}, {3.568117919800323*^9, 3.5681179678952074`*^9}, { 3.56811809459863*^9, 3.568118105409449*^9}, {3.5681181818963833`*^9, 3.5681182389144835`*^9}, {3.568118274888147*^9, 3.5681182883977704`*^9}, { 3.568118518513775*^9, 3.56811852739019*^9}, {3.5681188250543127`*^9, 3.568118862634779*^9}, {3.568118972396572*^9, 3.5681189862493963`*^9}, { 3.568119020694257*^9, 3.568119047136303*^9}, {3.5681190903015785`*^9, 3.568119136930061*^9}, {3.5681191671005135`*^9, 3.568119202808976*^9}, { 3.5681194788046613`*^9, 3.568119487603077*^9}, {3.5681195353235607`*^9, 3.5681195410331707`*^9}, 3.56811959201406*^9, {3.5681196426985493`*^9, 3.568119659702579*^9}, {3.568119726813897*^9, 3.56811974027672*^9}, { 3.5682659184078283`*^9, 3.5682659267694435`*^9}, {3.568265972477524*^9, 3.568266002725977*^9}, 3.568277802649102*^9, {3.568820898608082*^9, 3.568820922429324*^9}, 3.5688217528499823`*^9, 3.568821789307246*^9, { 3.569406212748887*^9, 3.569406252544557*^9}, {3.569492717066082*^9, 3.5694927471737347`*^9}, {3.5694931324008117`*^9, 3.5694931369404197`*^9}}], Cell[BoxData[ RowBox[{ RowBox[{"Plot2", "=", RowBox[{"Table", "[", RowBox[{ RowBox[{"Graphics3D", "[", RowBox[{"Text", "[", RowBox[{"i", ",", RowBox[{"{", RowBox[{ RowBox[{ RowBox[{"t", "[", RowBox[{"[", RowBox[{"i", ",", "1"}], "]"}], "]"}], "-", "0.6"}], ",", RowBox[{"t", "[", RowBox[{"[", RowBox[{"i", ",", "2"}], "]"}], "]"}], ",", RowBox[{"t", "[", RowBox[{"[", RowBox[{"i", ",", "3"}], "]"}], "]"}]}], "}"}], " ", ",", RowBox[{"{", RowBox[{"1", ",", "0"}], "}"}]}], "]"}], "]"}], ",", RowBox[{"{", RowBox[{"i", ",", "1", ",", "n"}], "}"}]}], "]"}]}], ";"}]], "Input", CellChangeTimes->{{3.5679440895764875`*^9, 3.5679441000441055`*^9}, { 3.5679441319773617`*^9, 3.5679441523041973`*^9}, {3.567944240210352*^9, 3.5679442813476243`*^9}, {3.567944323966899*^9, 3.567944345931738*^9}, { 3.567944397567828*^9, 3.567944456941533*^9}, {3.567944491557994*^9, 3.5679445468444905`*^9}, {3.5679446505690727`*^9, 3.567944683875131*^9}, { 3.567944736244423*^9, 3.5679448177233667`*^9}, {3.567945549707852*^9, 3.5679455499730525`*^9}, {3.5679456039959474`*^9, 3.567945606195551*^9}, { 3.567945704460124*^9, 3.5679457164877453`*^9}, {3.5679457857362666`*^9, 3.5679458050023003`*^9}, {3.567946353670864*^9, 3.5679464127169676`*^9}, { 3.5679466013368993`*^9, 3.5679466311173515`*^9}, {3.5679467590999765`*^9, 3.567946915739851*^9}, {3.5679469466123056`*^9, 3.567946946815106*^9}, { 3.5679471385082426`*^9, 3.5679471497870626`*^9}, {3.5679483907224417`*^9, 3.5679484036080647`*^9}, {3.567948441937332*^9, 3.5679484421869326`*^9}, { 3.567948496740228*^9, 3.56794849772303*^9}, {3.567948847912445*^9, 3.5679488949933276`*^9}, {3.568011728877214*^9, 3.5680117308213253`*^9}, { 3.568011766325356*^9, 3.568011773436763*^9}, {3.5681173314452896`*^9, 3.5681173370612993`*^9}, {3.568117919800323*^9, 3.5681179678952074`*^9}, { 3.56811809459863*^9, 3.568118105409449*^9}, {3.5681181818963833`*^9, 3.5681182389144835`*^9}, {3.568118274888147*^9, 3.5681182883977704`*^9}, { 3.568118518513775*^9, 3.56811852739019*^9}, {3.5681188250543127`*^9, 3.568118862634779*^9}, {3.568118972396572*^9, 3.5681189862493963`*^9}, { 3.568119020694257*^9, 3.568119047136303*^9}, {3.5681190903015785`*^9, 3.568119136930061*^9}, {3.5681191671005135`*^9, 3.568119202808976*^9}, { 3.5681194788046613`*^9, 3.568119487603077*^9}, {3.5681195353235607`*^9, 3.5681195410331707`*^9}, 3.56811959201406*^9, {3.5681196426985493`*^9, 3.568119659702579*^9}, {3.568119726813897*^9, 3.56811974027672*^9}, { 3.5681199008322024`*^9, 3.568119920691037*^9}, {3.5681199536070952`*^9, 3.568119958521104*^9}, {3.568120000641178*^9, 3.568120067206495*^9}, { 3.5681211528280015`*^9, 3.5681211643408213`*^9}, 3.5681213201694956`*^9, { 3.568121503313817*^9, 3.568121508961027*^9}, {3.568266015439999*^9, 3.5682660461096525`*^9}, 3.568277806081108*^9, {3.568381589141924*^9, 3.568381589391525*^9}, 3.5688217602599955`*^9, {3.568821800305266*^9, 3.568821801397268*^9}, 3.5693901242572327`*^9, {3.570559203182847*^9, 3.5705592101248593`*^9}}], Cell[CellGroupData[{ Cell[BoxData[ RowBox[{"\[IndentingNewLine]", RowBox[{"ChemicalData", "\[NoBreak]", "[", RowBox[{"\"\\"", ",", "\"\\""}], "]"}]}]], "Input", CellChangeTimes->{{3.570856658569998*^9, 3.5708566598024*^9}, 3.5709425310382767`*^9, 3.5710435245708933`*^9, 3.5710448379216003`*^9, 3.571044955764207*^9, 3.5710450687552056`*^9, 3.571045145990941*^9}], Cell[BoxData[ GraphicsBox[{{ {GrayLevel[0], AbsoluteThickness[0.55], InsetBox[ StyleBox["\<\"C\"\>", StripOnInput->False, ScriptSizeMultipliers->0.8, ScriptMinSize->8, FontSize->Scaled[0.033445116505044746`], FontWeight->Plain], {546.41, -25.}], LineBox[{{564.1622077822088, -14.750457400572246`}, {589.71, 0.}}], {GrayLevel[0], InsetBox[ StyleBox["\<\"C\"\>", StripOnInput->False, ScriptSizeMultipliers->0.8, ScriptMinSize->8, FontSize->Scaled[0.033445116505044746`], FontWeight->Plain], {633.01, 25.}], LineBox[{{589.71, 0.}, {615.2577922177911, 14.750457400572229`}}]}}, {GrayLevel[0], AbsoluteThickness[0.55], InsetBox[ StyleBox["\<\"C\"\>", StripOnInput->False, ScriptSizeMultipliers->0.8, ScriptMinSize->8, FontSize->Scaled[0.033445116505044746`], FontWeight->Plain], {546.41, -25.}], LineBox[{{528.6577922177911, -14.75045740057224}, {503.10999999999996`, 0.}}], {GrayLevel[0], InsetBox[ StyleBox["\<\"C\"\>", StripOnInput->False, ScriptSizeMultipliers->0.8, ScriptMinSize->8, FontSize->Scaled[0.033445116505044746`], FontWeight->Plain], {459.80999999999995`, 25.}], LineBox[{{503.10999999999996`, 0.}, {477.5622077822088, 14.75045740057224}}]}}, {GrayLevel[0], AbsoluteThickness[0.55], InsetBox[ StyleBox["\<\"C\"\>", StripOnInput->False, ScriptSizeMultipliers->0.8, ScriptMinSize->8, FontSize->Scaled[0.033445116505044746`], FontWeight->Plain], {546.41, -25.}], LineBox[{{533.2335071208765, -40.70267620651373}, {526.485, -48.745}}], {GrayLevel[0], InsetBox[ StyleBox["\<\"H\"\>", StripOnInput->False, ScriptSizeMultipliers->0.8, ScriptMinSize->8, FontSize->Scaled[0.033445116505044746`], FontWeight->Plain], {506.56, -72.49}], LineBox[{{526.485, -48.745}, { 519.7364928791235, -56.78732379348629}}]}}, {GrayLevel[0], AbsoluteThickness[0.55], InsetBox[ StyleBox["\<\"C\"\>", StripOnInput->False, ScriptSizeMultipliers->0.8, ScriptMinSize->8, FontSize->Scaled[0.033445116505044746`], FontWeight->Plain], {546.41, -25.}], LineBox[{{559.5864928791234, -40.70267620651369}, {566.335, -48.745}}], {GrayLevel[0], InsetBox[ StyleBox["\<\"H\"\>", StripOnInput->False, ScriptSizeMultipliers->0.8, ScriptMinSize->8, FontSize->Scaled[0.033445116505044746`], FontWeight->Plain], {586.26, -72.49}], LineBox[{{566.335, -48.745}, { 573.0835071208766, -56.787323793486266`}}]}}, {GrayLevel[0], AbsoluteThickness[0.55], InsetBox[ StyleBox["\<\"C\"\>", StripOnInput->False, ScriptSizeMultipliers->0.8, ScriptMinSize->8, FontSize->Scaled[0.033445116505044746`], FontWeight->Plain], {633.01, 25.}], LineBox[{{650.7627202153193, 14.751344985960493`}, {676.315, 0.}}], {GrayLevel[0], InsetBox[ StyleBox["\<\"C\"\>", StripOnInput->False, ScriptSizeMultipliers->0.8, ScriptMinSize->8, FontSize->Scaled[0.033445116505044746`], FontWeight->Plain], {719.62, -25.}], LineBox[{{676.315, 0.}, {701.8672797846807, -14.751344985960474`}}]}}, {GrayLevel[0], AbsoluteThickness[0.55], InsetBox[ StyleBox["\<\"C\"\>", StripOnInput->False, ScriptSizeMultipliers->0.8, ScriptMinSize->8, FontSize->Scaled[0.033445116505044746`], FontWeight->Plain], {633.01, 25.}], LineBox[{{646.1884328779201, 40.701048102669965`}, {652.94, 48.745}}], {GrayLevel[0], InsetBox[ StyleBox["\<\"H\"\>", StripOnInput->False, ScriptSizeMultipliers->0.8, ScriptMinSize->8, FontSize->Scaled[0.033445116505044746`], FontWeight->Plain], {672.87, 72.49}], LineBox[{{652.94, 48.745}, {659.69156712208, 56.788951897329994`}}]}}, {GrayLevel[0], AbsoluteThickness[0.55], InsetBox[ StyleBox["\<\"C\"\>", StripOnInput->False, ScriptSizeMultipliers->0.8, ScriptMinSize->8, FontSize->Scaled[0.033445116505044746`], FontWeight->Plain], {633.01, 25.}], LineBox[{{619.8335071208766, 40.70267620651373}, {613.085, 48.745}}], {GrayLevel[0], InsetBox[ StyleBox["\<\"H\"\>", StripOnInput->False, ScriptSizeMultipliers->0.8, ScriptMinSize->8, FontSize->Scaled[0.033445116505044746`], FontWeight->Plain], {593.1600000000001, 72.49}], LineBox[{{613.085, 48.745}, {606.3364928791235, 56.787323793486266`}}]}}, {GrayLevel[0], AbsoluteThickness[0.55], InsetBox[ StyleBox["\<\"C\"\>", StripOnInput->False, ScriptSizeMultipliers->0.8, ScriptMinSize->8, FontSize->Scaled[0.033445116505044746`], FontWeight->Plain], {459.80999999999995`, 25.}], LineBox[{{442.0577922177911, 14.750457400572229`}, {416.51, 0.}}], {GrayLevel[0], InsetBox[ StyleBox["\<\"C\"\>", StripOnInput->False, ScriptSizeMultipliers->0.8, ScriptMinSize->8, FontSize->Scaled[0.033445116505044746`], FontWeight->Plain], {373.21, -25.}], LineBox[{{416.51, 0.}, {390.96220778220885`, -14.75045740057224}}]}}, {GrayLevel[0], AbsoluteThickness[0.55], InsetBox[ StyleBox["\<\"C\"\>", StripOnInput->False, ScriptSizeMultipliers->0.8, ScriptMinSize->8, FontSize->Scaled[0.033445116505044746`], FontWeight->Plain], {459.80999999999995`, 25.}], LineBox[{{446.63156712207984`, 40.70104810266998}, {439.87999999999994`, 48.745}}], {GrayLevel[0], InsetBox[ StyleBox["\<\"H\"\>", StripOnInput->False, ScriptSizeMultipliers->0.8, ScriptMinSize->8, FontSize->Scaled[0.033445116505044746`], FontWeight->Plain], {419.94999999999993`, 72.49}], LineBox[{{439.87999999999994`, 48.745}, {433.12843287792003`, 56.788951897330016`}}]}}, {GrayLevel[0], AbsoluteThickness[0.55], InsetBox[ StyleBox["\<\"C\"\>", StripOnInput->False, ScriptSizeMultipliers->0.8, ScriptMinSize->8, FontSize->Scaled[0.033445116505044746`], FontWeight->Plain], {459.80999999999995`, 25.}], LineBox[{{472.9864928791234, 40.70267620651371}, {479.73499999999996`, 48.745}}], {GrayLevel[0], InsetBox[ StyleBox["\<\"H\"\>", StripOnInput->False, ScriptSizeMultipliers->0.8, ScriptMinSize->8, FontSize->Scaled[0.033445116505044746`], FontWeight->Plain], {499.65999999999997`, 72.49}], LineBox[{{479.73499999999996`, 48.745}, {486.48350712087654`, 56.78732379348629}}]}}, {GrayLevel[0], AbsoluteThickness[0.55], InsetBox[ StyleBox["\<\"C\"\>", StripOnInput->False, ScriptSizeMultipliers->0.8, ScriptMinSize->8, FontSize->Scaled[0.033445116505044746`], FontWeight->Plain], {719.62, -25.}], LineBox[{{737.3722077822089, -14.750457400572246`}, {762.9200000000001, 0.}}], {GrayLevel[0], InsetBox[ StyleBox["\<\"C\"\>", StripOnInput->False, ScriptSizeMultipliers->0.8, ScriptMinSize->8, FontSize->Scaled[0.033445116505044746`], FontWeight->Plain], {806.22, 25.}], LineBox[{{762.9200000000001, 0.}, {788.4677922177912, 14.750457400572229`}}]}}, {GrayLevel[0], AbsoluteThickness[0.55], InsetBox[ StyleBox["\<\"C\"\>", StripOnInput->False, ScriptSizeMultipliers->0.8, ScriptMinSize->8, FontSize->Scaled[0.033445116505044746`], FontWeight->Plain], {719.62, -25.}], LineBox[{{732.7964928791234, -40.70267620651373}, {739.545, -48.745}}], {GrayLevel[0], InsetBox[ StyleBox["\<\"H\"\>", StripOnInput->False, ScriptSizeMultipliers->0.8, ScriptMinSize->8, FontSize->Scaled[0.033445116505044746`], FontWeight->Plain], {759.4699999999999, -72.49}], LineBox[{{739.545, -48.745}, { 746.2935071208765, -56.787323793486266`}}]}}, {GrayLevel[0], AbsoluteThickness[0.55], InsetBox[ StyleBox["\<\"C\"\>", StripOnInput->False, ScriptSizeMultipliers->0.8, ScriptMinSize->8, FontSize->Scaled[0.033445116505044746`], FontWeight->Plain], {719.62, -25.}], LineBox[{{706.44156712208, -40.70104810267}, {699.69, -48.745}}], {GrayLevel[0], InsetBox[ StyleBox["\<\"H\"\>", StripOnInput->False, ScriptSizeMultipliers->0.8, ScriptMinSize->8, FontSize->Scaled[0.033445116505044746`], FontWeight->Plain], {679.76, -72.49}], LineBox[{{699.69, -48.745}, {692.9384328779201, -56.78895189733003}}]}}, {GrayLevel[0], AbsoluteThickness[0.55], InsetBox[ StyleBox["\<\"C\"\>", StripOnInput->False, ScriptSizeMultipliers->0.8, ScriptMinSize->8, FontSize->Scaled[0.033445116505044746`], FontWeight->Plain], {373.21, -25.}], LineBox[{{355.45727978468074`, -14.751344985960484`}, {329.905, 0.}}], {GrayLevel[0], InsetBox[ StyleBox["\<\"C\"\>", StripOnInput->False, ScriptSizeMultipliers->0.8, ScriptMinSize->8, FontSize->Scaled[0.033445116505044746`], FontWeight->Plain], {286.6, 25.}], LineBox[{{329.905, 0.}, {304.35272021531927`, 14.751344985960474`}}]}}, {GrayLevel[0], AbsoluteThickness[0.55], InsetBox[ StyleBox["\<\"C\"\>", StripOnInput->False, ScriptSizeMultipliers->0.8, ScriptMinSize->8, FontSize->Scaled[0.033445116505044746`], FontWeight->Plain], {373.21, -25.}], LineBox[{{360.0315671220799, -40.70104810266998}, {353.28, -48.745}}], {GrayLevel[0], InsetBox[ StyleBox["\<\"H\"\>", StripOnInput->False, ScriptSizeMultipliers->0.8, ScriptMinSize->8, FontSize->Scaled[0.033445116505044746`], FontWeight->Plain], {333.34999999999997`, -72.49}], LineBox[{{353.28, -48.745}, { 346.52843287792007`, -56.788951897330016`}}]}}, {GrayLevel[0], AbsoluteThickness[0.55], InsetBox[ StyleBox["\<\"C\"\>", StripOnInput->False, ScriptSizeMultipliers->0.8, ScriptMinSize->8, FontSize->Scaled[0.033445116505044746`], FontWeight->Plain], {373.21, -25.}], LineBox[{{386.3864928791234, -40.70267620651371}, {393.135, -48.745}}], {GrayLevel[0], InsetBox[ StyleBox["\<\"H\"\>", StripOnInput->False, ScriptSizeMultipliers->0.8, ScriptMinSize->8, FontSize->Scaled[0.033445116505044746`], FontWeight->Plain], {413.06, -72.49}], LineBox[{{393.135, -48.745}, { 399.8835071208766, -56.78732379348629}}]}}, {GrayLevel[0], AbsoluteThickness[0.55], InsetBox[ StyleBox["\<\"C\"\>", StripOnInput->False, ScriptSizeMultipliers->0.8, ScriptMinSize->8, FontSize->Scaled[0.033445116505044746`], FontWeight->Plain], {806.22, 25.}], LineBox[{{823.9722077822089, 14.750457400572229`}, {849.52, 0.}}], {GrayLevel[0], InsetBox[ StyleBox["\<\"C\"\>", StripOnInput->False, ScriptSizeMultipliers->0.8, ScriptMinSize->8, FontSize->Scaled[0.033445116505044746`], FontWeight->Plain], {892.82, -25.}], LineBox[{{849.52, 0.}, {875.0677922177912, -14.750457400572246`}}]}}, {GrayLevel[0], AbsoluteThickness[0.55], InsetBox[ StyleBox["\<\"C\"\>", StripOnInput->False, ScriptSizeMultipliers->0.8, ScriptMinSize->8, FontSize->Scaled[0.033445116505044746`], FontWeight->Plain], {806.22, 25.}], LineBox[{{819.3964928791235, 40.70267620651373}, {826.145, 48.745}}], {GrayLevel[0], InsetBox[ StyleBox["\<\"H\"\>", StripOnInput->False, ScriptSizeMultipliers->0.8, ScriptMinSize->8, FontSize->Scaled[0.033445116505044746`], FontWeight->Plain], {846.0699999999999, 72.49}], LineBox[{{826.145, 48.745}, {832.8935071208765, 56.787323793486266`}}]}}, {GrayLevel[0], AbsoluteThickness[0.55], InsetBox[ StyleBox["\<\"C\"\>", StripOnInput->False, ScriptSizeMultipliers->0.8, ScriptMinSize->8, FontSize->Scaled[0.033445116505044746`], FontWeight->Plain], {806.22, 25.}], LineBox[{{793.0415671220799, 40.701048102669965`}, {786.29, 48.745}}], {GrayLevel[0], InsetBox[ StyleBox["\<\"H\"\>", StripOnInput->False, ScriptSizeMultipliers->0.8, ScriptMinSize->8, FontSize->Scaled[0.033445116505044746`], FontWeight->Plain], {766.36, 72.49}], LineBox[{{786.29, 48.745}, {779.5384328779201, 56.788951897329994`}}]}}, {GrayLevel[0], AbsoluteThickness[0.55], InsetBox[ StyleBox["\<\"C\"\>", StripOnInput->False, ScriptSizeMultipliers->0.8, ScriptMinSize->8, FontSize->Scaled[0.033445116505044746`], FontWeight->Plain], {286.6, 25.}], LineBox[{{268.84779221779115`, 14.75045740057224}, {243.3, 0.}}], {GrayLevel[0], InsetBox[ StyleBox["\<\"C\"\>", StripOnInput->False, ScriptSizeMultipliers->0.8, ScriptMinSize->8, FontSize->Scaled[0.033445116505044746`], FontWeight->Plain], {200., -25.}], LineBox[{{243.3, 0.}, {217.7522077822089, -14.75045740057224}}]}}, {GrayLevel[0], AbsoluteThickness[0.55], InsetBox[ StyleBox["\<\"C\"\>", StripOnInput->False, ScriptSizeMultipliers->0.8, ScriptMinSize->8, FontSize->Scaled[0.033445116505044746`], FontWeight->Plain], {286.6, 25.}], LineBox[{{299.7784328779201, 40.70104810266998}, {306.53000000000003`, 48.745}}], {GrayLevel[0], InsetBox[ StyleBox["\<\"H\"\>", StripOnInput->False, ScriptSizeMultipliers->0.8, ScriptMinSize->8, FontSize->Scaled[0.033445116505044746`], FontWeight->Plain], {326.46000000000004`, 72.49}], LineBox[{{306.53000000000003`, 48.745}, {313.28156712207993`, 56.788951897330016`}}]}}, {GrayLevel[0], AbsoluteThickness[0.55], InsetBox[ StyleBox["\<\"C\"\>", StripOnInput->False, ScriptSizeMultipliers->0.8, ScriptMinSize->8, FontSize->Scaled[0.033445116505044746`], FontWeight->Plain], {286.6, 25.}], LineBox[{{273.4235071208766, 40.70267620651371}, {266.675, 48.745}}], {GrayLevel[0], InsetBox[ StyleBox["\<\"H\"\>", StripOnInput->False, ScriptSizeMultipliers->0.8, ScriptMinSize->8, FontSize->Scaled[0.033445116505044746`], FontWeight->Plain], {246.74999999999997`, 72.49}], LineBox[{{266.675, 48.745}, {259.92649287912343`, 56.787323793486294`}}]}}, {GrayLevel[0], AbsoluteThickness[0.55], InsetBox[ StyleBox["\<\"C\"\>", StripOnInput->False, ScriptSizeMultipliers->0.8, ScriptMinSize->8, FontSize->Scaled[0.033445116505044746`], FontWeight->Plain], {892.82, -25.}], LineBox[{{910.5722077822089, -14.750457400572229`}, {936.12, 0.}}], {GrayLevel[0], InsetBox[ StyleBox["\<\"C\"\>", StripOnInput->False, ScriptSizeMultipliers->0.8, ScriptMinSize->8, FontSize->Scaled[0.033445116505044746`], FontWeight->Plain], {979.42, 25.}], LineBox[{{936.12, 0.}, {961.6677922177911, 14.750457400572229`}}]}}, {GrayLevel[0], AbsoluteThickness[0.55], InsetBox[ StyleBox["\<\"C\"\>", StripOnInput->False, ScriptSizeMultipliers->0.8, ScriptMinSize->8, FontSize->Scaled[0.033445116505044746`], FontWeight->Plain], {892.82, -25.}], LineBox[{{879.6435071208766, -40.70267620651369}, {872.895, -48.745}}], {GrayLevel[0], InsetBox[ StyleBox["\<\"H\"\>", StripOnInput->False, ScriptSizeMultipliers->0.8, ScriptMinSize->8, FontSize->Scaled[0.033445116505044746`], FontWeight->Plain], {852.97, -72.49}], LineBox[{{872.895, -48.745}, { 866.1464928791235, -56.787323793486266`}}]}}, {GrayLevel[0], AbsoluteThickness[0.55], InsetBox[ StyleBox["\<\"C\"\>", StripOnInput->False, ScriptSizeMultipliers->0.8, ScriptMinSize->8, FontSize->Scaled[0.033445116505044746`], FontWeight->Plain], {892.82, -25.}], LineBox[{{905.9964928791235, -40.70267620651369}, { 912.7450000000001, -48.745}}], {GrayLevel[0], InsetBox[ StyleBox["\<\"H\"\>", StripOnInput->False, ScriptSizeMultipliers->0.8, ScriptMinSize->8, FontSize->Scaled[0.033445116505044746`], FontWeight->Plain], {932.6700000000001, -72.49}], LineBox[{{912.7450000000001, -48.745}, { 919.4935071208766, -56.787323793486266`}}]}}, {GrayLevel[0], AbsoluteThickness[0.55], InsetBox[ StyleBox["\<\"C\"\>", StripOnInput->False, ScriptSizeMultipliers->0.8, ScriptMinSize->8, FontSize->Scaled[0.033445116505044746`], FontWeight->Plain], {200., -25.}], LineBox[{{189.7501710553752, -7.247957547196606}, {184.5, 1.8449999999999989`}}], {GrayLevel[0], InsetBox[ StyleBox["\<\"H\"\>", StripOnInput->False, ScriptSizeMultipliers->0.8, ScriptMinSize->8, FontSize->Scaled[0.033445116505044746`], FontWeight->Plain], {169., 28.689999999999998`}], LineBox[{{184.5, 1.8449999999999989`}, {179.2498289446248, 10.937957547196604`}}]}}, {GrayLevel[0], AbsoluteThickness[0.55], InsetBox[ StyleBox["\<\"C\"\>", StripOnInput->False, ScriptSizeMultipliers->0.8, ScriptMinSize->8, FontSize->Scaled[0.033445116505044746`], FontWeight->Plain], {200., -25.}], LineBox[{{182.24795754719662`, -35.249828944624795`}, {173.155, -40.5}}], {GrayLevel[0], InsetBox[ StyleBox["\<\"H\"\>", StripOnInput->False, ScriptSizeMultipliers->0.8, ScriptMinSize->8, FontSize->Scaled[0.033445116505044746`], FontWeight->Plain], {146.31, -56.00000000000001}], LineBox[{{173.155, -40.5}, { 164.06204245280338`, -45.750171055375205`}}]}}, {GrayLevel[0], AbsoluteThickness[0.55], InsetBox[ StyleBox["\<\"C\"\>", StripOnInput->False, ScriptSizeMultipliers->0.8, ScriptMinSize->8, FontSize->Scaled[0.033445116505044746`], FontWeight->Plain], {200., -25.}], LineBox[{{210.2498289446248, -42.752042452803394`}, {215.5, -51.845}}], {GrayLevel[0], InsetBox[ StyleBox["\<\"H\"\>", StripOnInput->False, ScriptSizeMultipliers->0.8, ScriptMinSize->8, FontSize->Scaled[0.033445116505044746`], FontWeight->Plain], {231., -78.69}], LineBox[{{215.5, -51.845}, {220.7501710553752, -60.9379575471966}}]}}, {GrayLevel[0], AbsoluteThickness[0.55], InsetBox[ StyleBox["\<\"C\"\>", StripOnInput->False, ScriptSizeMultipliers->0.8, ScriptMinSize->8, FontSize->Scaled[0.033445116505044746`], FontWeight->Plain], {979.42, 25.}], LineBox[{{989.6698289446248, 7.247957547196641}, { 994.9200000000001, -1.8449999999999989`}}], {GrayLevel[0], InsetBox[ StyleBox["\<\"H\"\>", StripOnInput->False, ScriptSizeMultipliers->0.8, ScriptMinSize->8, FontSize->Scaled[0.033445116505044746`], FontWeight->Plain], {1010.4200000000001`, -28.689999999999998`}], LineBox[{{994.9200000000001, -1.8449999999999989`}, { 1000.1701710553752`, -10.937957547196604`}}]}}, {GrayLevel[0], AbsoluteThickness[0.55], InsetBox[ StyleBox["\<\"C\"\>", StripOnInput->False, ScriptSizeMultipliers->0.8, ScriptMinSize->8, FontSize->Scaled[0.033445116505044746`], FontWeight->Plain], {979.42, 25.}], LineBox[{{997.172868961288, 35.24839735195398}, {1006.27, 40.5}}], {GrayLevel[0], InsetBox[ StyleBox["\<\"H\"\>", StripOnInput->False, ScriptSizeMultipliers->0.8, ScriptMinSize->8, FontSize->Scaled[0.033445116505044746`], FontWeight->Plain], {1033.1200000000001`, 56.00000000000001}], LineBox[{{1006.27, 40.5}, {1015.367131038712, 45.751602648046045`}}]}}, {GrayLevel[0], AbsoluteThickness[0.55], InsetBox[ StyleBox["\<\"C\"\>", StripOnInput->False, ScriptSizeMultipliers->0.8, ScriptMinSize->8, FontSize->Scaled[0.033445116505044746`], FontWeight->Plain], {979.42, 25.}], LineBox[{{969.1701710553751, 42.752042452803394`}, {963.92, 51.845}}], {GrayLevel[0], InsetBox[ StyleBox["\<\"H\"\>", StripOnInput->False, ScriptSizeMultipliers->0.8, ScriptMinSize->8, FontSize->Scaled[0.033445116505044746`], FontWeight->Plain], {948.42, 78.69}], LineBox[{{963.92, 51.845}, {958.6698289446248, 60.9379575471966}}]}}}, {}, {}}, ImageSize->{{0., 358.7967767488554}, {0., 81.92665888880661}}, PlotRange->{{126.31, 1053.1200000000001`}, {-109.68726842804053`, 101.9379513210304}}]], "Output", CellChangeTimes->{3.571045163806173*^9}] }, Open ]], Cell[BoxData[ RowBox[{ StyleBox[ RowBox[{"(*", " ", RowBox[{"Distance", " ", "Matrix", " ", "Bohr"}], " ", "*)"}], "Text"], "\[IndentingNewLine]", RowBox[{ RowBox[{"dc", "=", RowBox[{"Table", "[", RowBox[{ RowBox[{"Sqrt", "[", RowBox[{ RowBox[{ RowBox[{"(", RowBox[{ RowBox[{"t", "[", RowBox[{"[", RowBox[{"i", ",", "1"}], "]"}], "]"}], "-", RowBox[{"t", "[", RowBox[{"[", RowBox[{"j", ",", "1"}], "]"}], "]"}]}], ")"}], "^", "2"}], "+", RowBox[{ RowBox[{"(", RowBox[{ RowBox[{"t", "[", RowBox[{"[", RowBox[{"i", ",", "2"}], "]"}], "]"}], "-", RowBox[{"t", "[", RowBox[{"[", RowBox[{"j", ",", "2"}], "]"}], "]"}]}], ")"}], "^", "2"}], "+", RowBox[{ RowBox[{"(", RowBox[{ RowBox[{"t", "[", RowBox[{"[", RowBox[{"i", ",", "3"}], "]"}], "]"}], "-", RowBox[{"t", "[", RowBox[{"[", RowBox[{"j", ",", "3"}], "]"}], "]"}]}], ")"}], "^", "2"}]}], "]"}], ",", RowBox[{"{", RowBox[{"i", ",", "1", ",", "n"}], "}"}], ",", RowBox[{"{", RowBox[{"j", ",", "1", ",", "n"}], "}"}]}], "]"}]}], ";"}]}]], "Input", CellChangeTimes->{{3.5678630319943895`*^9, 3.5678630956269007`*^9}, { 3.5678632280087337`*^9, 3.567863228336334*^9}, {3.5678632621727934`*^9, 3.5678633509213495`*^9}, {3.5678644293824434`*^9, 3.567864451908883*^9}, { 3.567864923404111*^9, 3.56786494544695*^9}, {3.5678650143210707`*^9, 3.5678650845367947`*^9}, {3.567869231084096*^9, 3.5678692412397137`*^9}, 3.5678693168686466`*^9, {3.5678704450470285`*^9, 3.5678704621290584`*^9}, 3.5682783281584253`*^9, 3.5688732159715385`*^9, 3.568910867647065*^9, 3.5689997098549547`*^9, 3.5689998170427427`*^9, 3.5689998869620657`*^9, 3.5691460426137285`*^9, 3.569237204536323*^9, 3.5692374658523817`*^9, 3.56923802264856*^9, 3.5693403424181123`*^9, 3.5693404502143016`*^9, 3.569340738019207*^9, 3.569340852851009*^9, 3.5693411655067577`*^9, 3.5693414978029413`*^9, 3.5693426144373026`*^9, 3.5693435671777763`*^9, 3.569343662743544*^9, 3.569343763644521*^9, 3.569344071177861*^9, 3.569344266271804*^9, 3.570297558707776*^9, {3.5703416079688015`*^9, 3.570341617375618*^9}, {3.5705956885798426`*^9, 3.5705957106070814`*^9}, { 3.5705965150536942`*^9, 3.5705965239457097`*^9}}], Cell[BoxData[{ RowBox[{ RowBox[{"x", "=", RowBox[{"Table", "[", RowBox[{ RowBox[{"t", "[", RowBox[{"[", RowBox[{"i", ",", "1"}], "]"}], "]"}], ",", RowBox[{"{", RowBox[{"i", ",", "1", ",", "n"}], "}"}]}], "]"}]}], ";"}], "\[IndentingNewLine]", RowBox[{ RowBox[{"y", "=", RowBox[{"Table", "[", RowBox[{ RowBox[{"t", "[", RowBox[{"[", RowBox[{"i", ",", "2"}], "]"}], "]"}], ",", RowBox[{"{", RowBox[{"i", ",", "1", ",", "n"}], "}"}]}], "]"}]}], ";"}], "\[IndentingNewLine]", RowBox[{ RowBox[{"z", "=", RowBox[{"Table", "[", RowBox[{ RowBox[{"t", "[", RowBox[{"[", RowBox[{"i", ",", "3"}], "]"}], "]"}], ",", RowBox[{"{", RowBox[{"i", ",", "1", ",", "n"}], "}"}]}], "]"}]}], ";"}]}], "Input", CellChangeTimes->{{3.5678630319943895`*^9, 3.5678630956269007`*^9}, { 3.5678632280087337`*^9, 3.567863228336334*^9}, {3.5678632621727934`*^9, 3.5678633509213495`*^9}, {3.5678644293824434`*^9, 3.567864451908883*^9}, { 3.567864923404111*^9, 3.56786494544695*^9}, {3.5678650143210707`*^9, 3.5678650845367947`*^9}, {3.567869231084096*^9, 3.567869278118179*^9}, { 3.5682778102931156`*^9, 3.5682778156907253`*^9}}], Cell[CellGroupData[{ Cell[BoxData[ RowBox[{ RowBox[{"(*", " ", RowBox[{"connected", " ", RowBox[{"pairs", ":", " ", RowBox[{ RowBox[{"distance", " ", "criteria"}], " ", "<", " ", RowBox[{"3.0", " ", "bohr"}]}]}]}], " ", "*)"}], "\[IndentingNewLine]", RowBox[{ RowBox[{ RowBox[{"Dij", "=", RowBox[{"Table", "[", RowBox[{ RowBox[{"If", "[", RowBox[{ RowBox[{"i", "\[GreaterEqual]", "j"}], ",", RowBox[{"If", "[", RowBox[{ RowBox[{"(", RowBox[{ RowBox[{ RowBox[{"dc", "[", RowBox[{"[", RowBox[{"i", ",", "j"}], "]"}], "]"}], "<", "3.0"}], "||", RowBox[{"(", RowBox[{ RowBox[{ RowBox[{"u", "[", RowBox[{"[", "i", "]"}], "]"}], "\[Equal]", "\"\\""}], " ", "&&", " ", RowBox[{"j", "\[Equal]", "10"}], " ", "&&", " ", RowBox[{"i", "\[Equal]", " ", "17"}]}], ")"}]}], ")"}], ",", RowBox[{"dc", "[", RowBox[{"[", RowBox[{"i", ",", "j"}], "]"}], "]"}], ",", "0"}], "]"}], ",", "\"\< \>\""}], "]"}], ",", RowBox[{"{", RowBox[{"i", ",", "1", ",", "n"}], "}"}], ",", RowBox[{"{", RowBox[{"j", ",", "1", ",", "n"}], "}"}]}], "]"}]}], ";"}], "\[IndentingNewLine]", RowBox[{"MatrixForm", "[", "Dij", "]"}]}]}]], "Input", CellChangeTimes->{{3.567863535157673*^9, 3.5678635412104836`*^9}, { 3.5678638182825704`*^9, 3.567863827283786*^9}, {3.5679503910983553`*^9, 3.5679504266352177`*^9}, {3.5679504653700857`*^9, 3.5679505048069553`*^9}, 3.567950534915008*^9, {3.567951107623214*^9, 3.567951136046464*^9}, 3.567951302545556*^9, {3.5679562986474605`*^9, 3.567956305355472*^9}, { 3.5679563590975666`*^9, 3.567956370688387*^9}, {3.567956414930065*^9, 3.567956430467692*^9}, {3.567956484740187*^9, 3.567956500667815*^9}, { 3.5679565456270943`*^9, 3.5679565868267665`*^9}, {3.5679569267045636`*^9, 3.5679569448941956`*^9}, {3.567956976562251*^9, 3.567957000711094*^9}, { 3.5679570348595533`*^9, 3.5679570632672033`*^9}, {3.5679573263928657`*^9, 3.5679573286548696`*^9}, {3.5679573611029263`*^9, 3.5679573637393312`*^9}, {3.5679592820903006`*^9, 3.567959317127962*^9}, { 3.567959397655304*^9, 3.5679594004945087`*^9}, {3.5679594704762316`*^9, 3.5679594724574347`*^9}, {3.567959655898157*^9, 3.567959673073787*^9}, 3.5681143121223865`*^9, 3.568121866388855*^9, 3.568220668221574*^9, { 3.568220718968463*^9, 3.568220723742071*^9}, {3.568220862051914*^9, 3.5682208641111183`*^9}, {3.568220906761593*^9, 3.5682209083527956`*^9}, { 3.5682209451844606`*^9, 3.5682209651680956`*^9}, {3.568221147782016*^9, 3.5682211695908546`*^9}, {3.568221237279373*^9, 3.568221253612602*^9}, { 3.568221305420293*^9, 3.568221306247094*^9}, {3.5682215161142635`*^9, 3.568221546206716*^9}, 3.56822158247678*^9, {3.568277819185131*^9, 3.5682778284359474`*^9}, 3.56882183684053*^9, {3.5688219650415554`*^9, 3.568821965915157*^9}, {3.5688769979329815`*^9, 3.5688771619984694`*^9}, { 3.568877204212144*^9, 3.5688772091729527`*^9}, {3.568877282493081*^9, 3.5688772843338842`*^9}, {3.568877374112042*^9, 3.568877378074449*^9}, { 3.56887744125456*^9, 3.5688774664954042`*^9}, {3.56887758366721*^9, 3.568877604867647*^9}, {3.568877667220957*^9, 3.5688776710429635`*^9}, { 3.5688778111156096`*^9, 3.56887782262843*^9}, {3.569341165522358*^9, 3.569341165522358*^9}, 3.5693418217375107`*^9, {3.5693429625675144`*^9, 3.5693429673099227`*^9}, {3.569390288837522*^9, 3.5693903143123665`*^9}, { 3.569390381798085*^9, 3.5693904158685455`*^9}, {3.5693905284539433`*^9, 3.569390564349606*^9}, {3.569390610868888*^9, 3.569390611056088*^9}, { 3.569390743671921*^9, 3.569390761487152*^9}, {3.569390843761697*^9, 3.569390861608128*^9}, {3.5693909829451413`*^9, 3.5693909887171516`*^9}, 3.5703416480920715`*^9, {3.5703416810237293`*^9, 3.5703416997437625`*^9}, 3.570341888192094*^9, {3.5705964879252462`*^9, 3.570596509843285*^9}, { 3.5705965495921545`*^9, 3.5705966388087115`*^9}, 3.570968886604662*^9, { 3.5709689930904493`*^9, 3.5709689944320517`*^9}, {3.5709690501397495`*^9, 3.570969050904151*^9}, {3.5709692134876366`*^9, 3.5709692140804377`*^9}, { 3.5709722325921392`*^9, 3.5709722334033403`*^9}, {3.5709723694355793`*^9, 3.570972545481889*^9}, {3.570972790558319*^9, 3.5709728063299465`*^9}, { 3.570972844066413*^9, 3.570972866764453*^9}, {3.5709729633598228`*^9, 3.57097298434186*^9}, {3.5709731454589424`*^9, 3.5709731466289444`*^9}, 3.570973453029083*^9, {3.5709736099653587`*^9, 3.570973638404208*^9}}], Cell[BoxData[ TagBox[ RowBox[{"(", "\[NoBreak]", GridBox[{ {"0.`", "\<\" \"\>", "\<\" \"\>", "\<\" \"\>", "\<\" \"\>", "\<\" \"\>", \ "\<\" \"\>", "\<\" \"\>", "\<\" \"\>", "\<\" \"\>", "\<\" \"\>", "\<\" \"\>", \ "\<\" \"\>", "\<\" \"\>", "\<\" \"\>", "\<\" \"\>", "\<\" \"\>", "\<\" \"\>", \ "\<\" \"\>", "\<\" \"\>", "\<\" \"\>", "\<\" \"\>", "\<\" \"\>", "\<\" \"\>", \ "\<\" \"\>", "\<\" \"\>", "\<\" \"\>", "\<\" \"\>", "\<\" \"\>", "\<\" \"\>", \ "\<\" \"\>", "\<\" \"\>"}, {"2.869892114161782`", "0.`", "\<\" \"\>", "\<\" \"\>", "\<\" \"\>", "\<\" \"\>", "\<\" \"\>", \ "\<\" \"\>", "\<\" \"\>", "\<\" \"\>", "\<\" \"\>", "\<\" \"\>", "\<\" \"\>", \ "\<\" \"\>", "\<\" \"\>", "\<\" \"\>", "\<\" \"\>", "\<\" \"\>", "\<\" \"\>", \ "\<\" \"\>", "\<\" \"\>", "\<\" \"\>", "\<\" \"\>", "\<\" \"\>", "\<\" \"\>", \ "\<\" \"\>", "\<\" \"\>", "\<\" \"\>", "\<\" \"\>", "\<\" \"\>", "\<\" \"\>", \ "\<\" \"\>"}, {"2.878638826530935`", "0", "0.`", "\<\" \"\>", "\<\" \"\>", "\<\" \"\>", "\<\" \"\>", "\<\" \"\>", \ "\<\" \"\>", "\<\" \"\>", "\<\" \"\>", "\<\" \"\>", "\<\" \"\>", "\<\" \"\>", \ "\<\" \"\>", "\<\" \"\>", "\<\" \"\>", "\<\" \"\>", "\<\" \"\>", "\<\" \"\>", \ "\<\" \"\>", "\<\" \"\>", "\<\" \"\>", "\<\" \"\>", "\<\" \"\>", "\<\" \"\>", \ "\<\" \"\>", "\<\" \"\>", "\<\" \"\>", "\<\" \"\>", "\<\" \"\>", "\<\" \"\>"}, {"0", "2.861638557605644`", "0", "0.`", "\<\" \"\>", "\<\" \"\>", "\<\" \"\>", "\<\" \"\>", "\<\" \"\>", \ "\<\" \"\>", "\<\" \"\>", "\<\" \"\>", "\<\" \"\>", "\<\" \"\>", "\<\" \"\>", \ "\<\" \"\>", "\<\" \"\>", "\<\" \"\>", "\<\" \"\>", "\<\" \"\>", "\<\" \"\>", \ "\<\" \"\>", "\<\" \"\>", "\<\" \"\>", "\<\" \"\>", "\<\" \"\>", "\<\" \"\>", \ "\<\" \"\>", "\<\" \"\>", "\<\" \"\>", "\<\" \"\>", "\<\" \"\>"}, {"0", "0", "2.9132580990460566`", "0", "0.`", "\<\" \"\>", "\<\" \"\>", "\<\" \"\>", "\<\" \"\>", "\<\" \"\>", \ "\<\" \"\>", "\<\" \"\>", "\<\" \"\>", "\<\" \"\>", "\<\" \"\>", "\<\" \"\>", \ "\<\" \"\>", "\<\" \"\>", "\<\" \"\>", "\<\" \"\>", "\<\" \"\>", "\<\" \"\>", \ "\<\" \"\>", "\<\" \"\>", "\<\" \"\>", "\<\" \"\>", "\<\" \"\>", "\<\" \"\>", \ "\<\" \"\>", "\<\" \"\>", "\<\" \"\>", "\<\" \"\>"}, {"0", "0", "0", "2.913429773719696`", "0", "0.`", "\<\" \"\>", "\<\" \"\>", "\<\" \"\>", "\<\" \"\>", "\<\" \"\>", \ "\<\" \"\>", "\<\" \"\>", "\<\" \"\>", "\<\" \"\>", "\<\" \"\>", "\<\" \"\>", \ "\<\" \"\>", "\<\" \"\>", "\<\" \"\>", "\<\" \"\>", "\<\" \"\>", "\<\" \"\>", \ "\<\" \"\>", "\<\" \"\>", "\<\" \"\>", "\<\" \"\>", "\<\" \"\>", "\<\" \"\>", \ "\<\" \"\>", "\<\" \"\>", "\<\" \"\>"}, {"0", "0", "0", "0", "2.8895991477313054`", "0", "0.`", "\<\" \"\>", "\<\" \"\>", "\<\" \"\>", "\<\" \"\>", "\<\" \"\>", \ "\<\" \"\>", "\<\" \"\>", "\<\" \"\>", "\<\" \"\>", "\<\" \"\>", "\<\" \"\>", \ "\<\" \"\>", "\<\" \"\>", "\<\" \"\>", "\<\" \"\>", "\<\" \"\>", "\<\" \"\>", \ "\<\" \"\>", "\<\" \"\>", "\<\" \"\>", "\<\" \"\>", "\<\" \"\>", "\<\" \"\>", \ "\<\" \"\>", "\<\" \"\>"}, {"0", "0", "0", "0", "0", "2.889734313894127`", "0", "0.`", "\<\" \"\>", "\<\" \"\>", "\<\" \"\>", "\<\" \"\>", "\<\" \"\>", \ "\<\" \"\>", "\<\" \"\>", "\<\" \"\>", "\<\" \"\>", "\<\" \"\>", "\<\" \"\>", \ "\<\" \"\>", "\<\" \"\>", "\<\" \"\>", "\<\" \"\>", "\<\" \"\>", "\<\" \"\>", \ "\<\" \"\>", "\<\" \"\>", "\<\" \"\>", "\<\" \"\>", "\<\" \"\>", "\<\" \"\>", \ "\<\" \"\>"}, {"0", "0", "0", "0", "0", "0", "2.8831171748275115`", "0", "0.`", "\<\" \"\>", "\<\" \"\>", "\<\" \"\>", "\<\" \"\>", "\<\" \"\>", \ "\<\" \"\>", "\<\" \"\>", "\<\" \"\>", "\<\" \"\>", "\<\" \"\>", "\<\" \"\>", \ "\<\" \"\>", "\<\" \"\>", "\<\" \"\>", "\<\" \"\>", "\<\" \"\>", "\<\" \"\>", \ "\<\" \"\>", "\<\" \"\>", "\<\" \"\>", "\<\" \"\>", "\<\" \"\>", "\<\" \"\>"}, {"0", "0", "0", "0", "0", "0", "0", "2.8831171748275106`", "0", "0.`", "\<\" \"\>", "\<\" \"\>", "\<\" \"\>", "\<\" \"\>", "\<\" \"\>", \ "\<\" \"\>", "\<\" \"\>", "\<\" \"\>", "\<\" \"\>", "\<\" \"\>", "\<\" \"\>", \ "\<\" \"\>", "\<\" \"\>", "\<\" \"\>", "\<\" \"\>", "\<\" \"\>", "\<\" \"\>", \ "\<\" \"\>", "\<\" \"\>", "\<\" \"\>", "\<\" \"\>", "\<\" \"\>"}, {"2.0219442986752525`", "0", "0", "0", "0", "0", "0", "0", "0", "0", "0.`", "\<\" \"\>", "\<\" \"\>", "\<\" \"\>", "\<\" \"\>", "\<\" \"\>", \ "\<\" \"\>", "\<\" \"\>", "\<\" \"\>", "\<\" \"\>", "\<\" \"\>", "\<\" \"\>", \ "\<\" \"\>", "\<\" \"\>", "\<\" \"\>", "\<\" \"\>", "\<\" \"\>", "\<\" \"\>", \ "\<\" \"\>", "\<\" \"\>", "\<\" \"\>", "\<\" \"\>"}, {"2.021977394364303`", "0", "0", "0", "0", "0", "0", "0", "0", "0", "0", "0.`", "\<\" \"\>", "\<\" \"\>", "\<\" \"\>", "\<\" \"\>", "\<\" \"\>", \ "\<\" \"\>", "\<\" \"\>", "\<\" \"\>", "\<\" \"\>", "\<\" \"\>", "\<\" \"\>", \ "\<\" \"\>", "\<\" \"\>", "\<\" \"\>", "\<\" \"\>", "\<\" \"\>", "\<\" \"\>", \ "\<\" \"\>", "\<\" \"\>", "\<\" \"\>"}, {"0", "2.021958846885525`", "0", "0", "0", "0", "0", "0", "0", "0", "0", "0", "0.`", "\<\" \"\>", "\<\" \"\>", "\<\" \"\>", "\<\" \"\>", "\<\" \ \"\>", "\<\" \"\>", "\<\" \"\>", "\<\" \"\>", "\<\" \"\>", "\<\" \"\>", "\<\" \ \"\>", "\<\" \"\>", "\<\" \"\>", "\<\" \"\>", "\<\" \"\>", "\<\" \"\>", "\<\" \ \"\>", "\<\" \"\>", "\<\" \"\>"}, {"0", "2.0218877819170697`", "0", "0", "0", "0", "0", "0", "0", "0", "0", "0", "0", "0.`", "\<\" \"\>", "\<\" \"\>", "\<\" \"\>", "\<\" \"\>", "\<\" \"\>", \ "\<\" \"\>", "\<\" \"\>", "\<\" \"\>", "\<\" \"\>", "\<\" \"\>", "\<\" \"\>", \ "\<\" \"\>", "\<\" \"\>", "\<\" \"\>", "\<\" \"\>", "\<\" \"\>", "\<\" \"\>", \ "\<\" \"\>"}, {"0", "0", "2.021895418260329`", "0", "0", "0", "0", "0", "0", "0", "0", "0", "0", "0", "0.`", "\<\" \"\>", "\<\" \"\>", "\<\" \"\>", "\<\" \"\>", "\<\" \"\>", \ "\<\" \"\>", "\<\" \"\>", "\<\" \"\>", "\<\" \"\>", "\<\" \"\>", "\<\" \"\>", \ "\<\" \"\>", "\<\" \"\>", "\<\" \"\>", "\<\" \"\>", "\<\" \"\>", "\<\" \"\>"}, {"0", "0", "2.021979752358925`", "0", "0", "0", "0", "0", "0", "0", "0", "0", "0", "0", "0", "0.`", "\<\" \"\>", "\<\" \"\>", "\<\" \"\>", "\<\" \"\>", "\<\" \"\>", \ "\<\" \"\>", "\<\" \"\>", "\<\" \"\>", "\<\" \"\>", "\<\" \"\>", "\<\" \"\>", \ "\<\" \"\>", "\<\" \"\>", "\<\" \"\>", "\<\" \"\>", "\<\" \"\>"}, {"0", "0", "0", "2.0218975093587477`", "0", "0", "0", "0", "0", "0", "0", "0", "0", "0", "0", "0", "0.`", "\<\" \"\>", "\<\" \"\>", "\<\" \"\>", "\<\" \"\>", "\<\" \"\>", \ "\<\" \"\>", "\<\" \"\>", "\<\" \"\>", "\<\" \"\>", "\<\" \"\>", "\<\" \"\>", \ "\<\" \"\>", "\<\" \"\>", "\<\" \"\>", "\<\" \"\>"}, {"0", "0", "0", "2.0220696616296214`", "0", "0", "0", "0", "0", "0", "0", "0", "0", "0", "0", "0", "0", "0.`", "\<\" \"\>", "\<\" \"\>", "\<\" \"\>", "\<\" \"\>", "\<\" \"\>", \ "\<\" \"\>", "\<\" \"\>", "\<\" \"\>", "\<\" \"\>", "\<\" \"\>", "\<\" \"\>", \ "\<\" \"\>", "\<\" \"\>", "\<\" \"\>"}, {"0", "0", "0", "0", "2.0220088863348513`", "0", "0", "0", "0", "0", "0", "0", "0", "0", "0", "0", "0", "0", "0.`", "\<\" \"\>", "\<\" \"\>", "\<\" \"\>", "\<\" \"\>", "\<\" \"\>", \ "\<\" \"\>", "\<\" \"\>", "\<\" \"\>", "\<\" \"\>", "\<\" \"\>", "\<\" \"\>", \ "\<\" \"\>", "\<\" \"\>"}, {"0", "0", "0", "0", "2.0221562901428074`", "0", "0", "0", "0", "0", "0", "0", "0", "0", "0", "0", "0", "0", "0", "0.`", "\<\" \"\>", "\<\" \"\>", "\<\" \"\>", "\<\" \"\>", "\<\" \"\>", \ "\<\" \"\>", "\<\" \"\>", "\<\" \"\>", "\<\" \"\>", "\<\" \"\>", "\<\" \"\>", \ "\<\" \"\>"}, {"0", "0", "0", "0", "0", "2.022035015574995`", "0", "0", "0", "0", "0", "0", "0", "0", "0", "0", "0", "0", "0", "0", "0.`", "\<\" \"\>", "\<\" \"\>", "\<\" \"\>", "\<\" \"\>", "\<\" \"\>", \ "\<\" \"\>", "\<\" \"\>", "\<\" \"\>", "\<\" \"\>", "\<\" \"\>", "\<\" \"\>"}, {"0", "0", "0", "0", "0", "2.0219998970776154`", "0", "0", "0", "0", "0", "0", "0", "0", "0", "0", "0", "0", "0", "0", "0", "0.`", "\<\" \"\>", "\<\" \"\>", "\<\" \"\>", "\<\" \"\>", "\<\" \"\>", \ "\<\" \"\>", "\<\" \"\>", "\<\" \"\>", "\<\" \"\>", "\<\" \"\>"}, {"0", "0", "0", "0", "0", "0", "2.0220912664710387`", "0", "0", "0", "0", "0", "0", "0", "0", "0", "0", "0", "0", "0", "0", "0", "0.`", "\<\" \"\>", "\<\" \"\>", "\<\" \"\>", "\<\" \"\>", "\<\" \"\>", \ "\<\" \"\>", "\<\" \"\>", "\<\" \"\>", "\<\" \"\>"}, {"0", "0", "0", "0", "0", "0", "2.0218488009420517`", "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.0220497556200527`", "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.021928783406937`", "0", "0", "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.022040419755556`", "0", "0", "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.0220222627995614`", "0", "0", "0", "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.0221208627194063`", "0", "0", "0", "0", "0", "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.0220499918307735`", "0", "0", "0", "0", "0", "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.0220762794832154`", "0", "0", "0", "0", "0", "0", "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.022120862719406`", "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.571045163837373*^9}] }, Open ]], Cell[CellGroupData[{ Cell[BoxData[{ RowBox[{ RowBox[{ RowBox[{"nc", "=", "0"}], ";"}], " ", RowBox[{"(*", " ", RowBox[{ RowBox[{"parse", " ", "into", " ", "prim"}], ",", " ", "sec", ",", " ", "tert", ",", " ", RowBox[{ "and", " ", "quart", " ", "C", " ", "cores", " ", "with", " ", "different", " ", "radii"}]}], " ", "*)"}]}], "\[IndentingNewLine]", RowBox[{"For", "[", RowBox[{ RowBox[{"i", "=", "1"}], ",", RowBox[{"i", "<", RowBox[{"bc", "+", "1"}]}], ",", RowBox[{"i", "++"}], ",", RowBox[{"If", "[", RowBox[{ RowBox[{ RowBox[{"u", "[", RowBox[{"[", "i", "]"}], "]"}], "\[Equal]", "\"\\""}], ",", RowBox[{"nc", "=", RowBox[{"nc", "+", "1"}]}], ",", "nc"}], "]"}]}], "]"}], "\n", RowBox[{ RowBox[{"cnt", "=", RowBox[{"Table", "[", RowBox[{"0", ",", RowBox[{"{", RowBox[{"i", ",", "1", ",", "nc"}], "}"}]}], "]"}]}], ";"}], "\[IndentingNewLine]", RowBox[{ RowBox[{"pri", "=", "cnt"}], ";", " ", RowBox[{"sec", "=", "cnt"}], ";", RowBox[{"ter", "=", "cnt"}], ";", " ", RowBox[{"qua", "=", "cnt"}], ";"}], "\[IndentingNewLine]", "nc"}], "Input", CellChangeTimes->{{3.5688800293771057`*^9, 3.5688801774057655`*^9}, { 3.5688802290574565`*^9, 3.568880330208034*^9}, {3.5688803807053227`*^9, 3.5688804136525807`*^9}, 3.568880491434317*^9, 3.5688805648948464`*^9, { 3.5688806280437574`*^9, 3.568880655234605*^9}, {3.568880712424306*^9, 3.568880716324312*^9}, {3.5688808087544746`*^9, 3.568880827786508*^9}, 3.5688808733385878`*^9, {3.568881358936241*^9, 3.5688813959239063`*^9}, { 3.568881446561595*^9, 3.5688815849182377`*^9}, {3.5688816223739033`*^9, 3.568881642607139*^9}, 3.568881728953291*^9, {3.568881797624612*^9, 3.568881809870633*^9}, 3.568881863612727*^9, {3.568883098916497*^9, 3.5688831014749017`*^9}, {3.56888372124679*^9, 3.568883843239004*^9}, 3.568888211750622*^9, {3.5688882521546926`*^9, 3.5688885232519693`*^9}, { 3.5688885890840845`*^9, 3.5688885895052853`*^9}, {3.568888675773437*^9, 3.5688886914514647`*^9}, {3.568888736285943*^9, 3.5688887717760057`*^9}, { 3.5688888256429005`*^9, 3.5688888541441507`*^9}, {3.568892442649892*^9, 3.5688924499507046`*^9}, {3.568892758441247*^9, 3.5688927597360487`*^9}, { 3.5688928234309607`*^9, 3.5688928379389863`*^9}, {3.5708938149488974`*^9, 3.5708938463361526`*^9}, {3.570893920483083*^9, 3.5708939282050962`*^9}, { 3.570894700000852*^9, 3.5708947833985987`*^9}}], Cell[BoxData["10"], "Output", CellChangeTimes->{3.5710451638685727`*^9}] }, Open ]], Cell[CellGroupData[{ Cell[BoxData[{ RowBox[{ RowBox[{"For", "[", RowBox[{ RowBox[{"j", "=", "1"}], ",", RowBox[{"j", "<", RowBox[{"nc", "+", "1"}]}], ",", RowBox[{"j", "++"}], ",", "\[IndentingNewLine]", RowBox[{"For", "[", RowBox[{ RowBox[{"i", "=", RowBox[{"bc", "+", "1"}]}], ",", RowBox[{"i", "<", RowBox[{"n", "+", "1"}]}], ",", RowBox[{"i", "++"}], ",", RowBox[{"If", "[", " ", RowBox[{ RowBox[{ RowBox[{"Dij", "[", RowBox[{"[", RowBox[{"i", ",", "j"}], "]"}], "]"}], "\[NotEqual]", "0"}], " ", ",", RowBox[{ RowBox[{"cnt", "[", RowBox[{"[", "j", "]"}], "]"}], "=", RowBox[{ RowBox[{"cnt", "[", RowBox[{"[", "j", "]"}], "]"}], "+", "1"}]}], ",", "0"}], "]"}]}], "]"}]}], "]"}], ";"}], "\[IndentingNewLine]", "cnt"}], "Input", CellChangeTimes->{{3.5688800293771057`*^9, 3.5688801774057655`*^9}, { 3.5688802290574565`*^9, 3.568880330208034*^9}, {3.5688803807053227`*^9, 3.5688804136525807`*^9}, 3.568880491434317*^9, 3.5688805648948464`*^9, { 3.5688806280437574`*^9, 3.568880655234605*^9}, {3.568880712424306*^9, 3.568880716324312*^9}, {3.5688808087544746`*^9, 3.568880827786508*^9}, 3.5688808733385878`*^9, {3.568881358936241*^9, 3.5688813959239063`*^9}, { 3.568881446561595*^9, 3.5688815849182377`*^9}, {3.5688816223739033`*^9, 3.568881642607139*^9}, 3.568881728953291*^9, {3.568881797624612*^9, 3.568881809870633*^9}, 3.568881863612727*^9, {3.568883098916497*^9, 3.5688831014749017`*^9}, {3.56888372124679*^9, 3.568883843239004*^9}, 3.568888211750622*^9, {3.5688882521546926`*^9, 3.5688885232519693`*^9}, { 3.5688885890840845`*^9, 3.5688885895052853`*^9}, {3.568888675773437*^9, 3.5688886914514647`*^9}, {3.568888736285943*^9, 3.5688887717760057`*^9}, { 3.5688888256429005`*^9, 3.5688888541441507`*^9}, {3.568892442649892*^9, 3.5688924499507046`*^9}, {3.568892758441247*^9, 3.5688927597360487`*^9}, { 3.5688928234309607`*^9, 3.5688928379389863`*^9}, {3.5708938149488974`*^9, 3.5708938463361526`*^9}, {3.570893920483083*^9, 3.5708939282050962`*^9}, { 3.570894700000852*^9, 3.570894821930666*^9}, 3.5709437180911617`*^9}], Cell[BoxData[ RowBox[{"{", RowBox[{ "2", ",", "2", ",", "2", ",", "2", ",", "2", ",", "2", ",", "2", ",", "2", ",", "3", ",", "3"}], "}"}]], "Output", CellChangeTimes->{3.571045163884173*^9}] }, Open ]], Cell[BoxData[{ RowBox[{ RowBox[{"n1", "=", "0"}], ";", " ", RowBox[{"n2", "=", "0"}], ";", " ", RowBox[{"n3", "=", "0"}], ";", " ", RowBox[{"n4", "=", "0"}], ";"}], "\n", RowBox[{ RowBox[{"For", "[", RowBox[{ RowBox[{"i", "=", "1"}], ",", RowBox[{"i", "<", RowBox[{"nc", "+", "1"}]}], ",", RowBox[{"i", "++"}], ",", RowBox[{"If", "[", RowBox[{ RowBox[{"(", RowBox[{ RowBox[{ RowBox[{"cnt", "[", RowBox[{"[", "i", "]"}], "]"}], "\[Equal]", "3"}], " ", "||", " ", RowBox[{ RowBox[{"cnt", "[", RowBox[{"[", "i", "]"}], "]"}], "\[Equal]", "4"}]}], ")"}], ",", RowBox[{ RowBox[{"n1", "=", RowBox[{"n1", "+", "1"}]}], ";", RowBox[{ RowBox[{"pri", "[", RowBox[{"[", "n1", "]"}], "]"}], "=", "i"}]}], ",", RowBox[{"If", "[", RowBox[{ RowBox[{ RowBox[{"cnt", "[", RowBox[{"[", "i", "]"}], "]"}], "\[Equal]", "2"}], ",", RowBox[{ RowBox[{"n2", "=", RowBox[{"n2", "+", "1"}]}], ";", RowBox[{ RowBox[{"sec", "[", RowBox[{"[", "n2", "]"}], "]"}], "=", "i"}]}], ",", RowBox[{"If", "[", RowBox[{ RowBox[{ RowBox[{"cnt", "[", RowBox[{"[", "i", "]"}], "]"}], "\[Equal]", "1"}], ",", RowBox[{ RowBox[{"n3", "=", RowBox[{"n3", "+", "1"}]}], ";", RowBox[{ RowBox[{"ter", "[", RowBox[{"[", "n3", "]"}], "]"}], "=", "i"}]}], ",", RowBox[{"If", "[", RowBox[{ RowBox[{ RowBox[{"cnt", "[", RowBox[{"[", "i", "]"}], "]"}], "=", "0"}], ",", RowBox[{ RowBox[{"n4", "=", RowBox[{"n4", "+", "1"}]}], ";", RowBox[{ RowBox[{"qua", "[", RowBox[{"[", "n4", "]"}], "]"}], "=", "i"}]}]}], "]"}]}], "]"}]}], "]"}]}], "]"}]}], "]"}], ";"}], "\[IndentingNewLine]", RowBox[{"For", " ", "[", RowBox[{ RowBox[{"i", "=", "1"}], ",", " ", RowBox[{"i", "<", RowBox[{"nc", "+", "1"}]}], ",", RowBox[{"i", "++"}], ",", RowBox[{"If", "[", RowBox[{ RowBox[{ RowBox[{"pri", "[", RowBox[{"[", "i", "]"}], "]"}], "\[NotEqual]", "0"}], ",", RowBox[{ RowBox[{"u2", "[", RowBox[{"[", RowBox[{"pri", "[", RowBox[{"[", "i", "]"}], "]"}], "]"}], "]"}], "=", "0.254"}]}], "]"}]}], "]"}], "\[IndentingNewLine]", RowBox[{"For", " ", "[", RowBox[{ RowBox[{"i", "=", "1"}], ",", " ", RowBox[{"i", "<", RowBox[{"nc", "+", "1"}]}], ",", RowBox[{"i", "++"}], ",", RowBox[{"If", "[", RowBox[{ RowBox[{ RowBox[{"sec", "[", RowBox[{"[", "i", "]"}], "]"}], "\[NotEqual]", "0"}], ",", RowBox[{ RowBox[{"u2", "[", RowBox[{"[", RowBox[{"sec", "[", RowBox[{"[", "i", "]"}], "]"}], "]"}], "]"}], "=", "0.2557"}]}], "]"}]}], "]"}], "\[IndentingNewLine]", RowBox[{"For", " ", "[", RowBox[{ RowBox[{"i", "=", "1"}], ",", " ", RowBox[{"i", "<", RowBox[{"nc", "+", "1"}]}], ",", RowBox[{"i", "++"}], ",", RowBox[{"If", "[", RowBox[{ RowBox[{ RowBox[{"ter", "[", RowBox[{"[", "i", "]"}], "]"}], "\[NotEqual]", "0"}], ",", RowBox[{ RowBox[{"u2", "[", RowBox[{"[", RowBox[{"ter", "[", RowBox[{"[", "i", "]"}], "]"}], "]"}], "]"}], "=", "0.2567"}]}], "]"}]}], "]"}], "\[IndentingNewLine]", RowBox[{"For", " ", "[", RowBox[{ RowBox[{"i", "=", "1"}], ",", " ", RowBox[{"i", "<", RowBox[{"nc", "+", "1"}]}], ",", RowBox[{"i", "++"}], ",", RowBox[{"If", "[", RowBox[{ RowBox[{ RowBox[{"qua", "[", RowBox[{"[", "i", "]"}], "]"}], "\[NotEqual]", "0"}], ",", RowBox[{ RowBox[{"u2", "[", RowBox[{"[", RowBox[{"qua", "[", RowBox[{"[", "i", "]"}], "]"}], "]"}], "]"}], "=", "0.2577"}]}], "]"}]}], "]"}]}], "Input", CellChangeTimes->{{3.5688800293771057`*^9, 3.5688801774057655`*^9}, { 3.5688802290574565`*^9, 3.568880330208034*^9}, {3.5688803807053227`*^9, 3.5688804136525807`*^9}, 3.568880491434317*^9, 3.5688805648948464`*^9, { 3.5688806280437574`*^9, 3.568880655234605*^9}, {3.568880712424306*^9, 3.568880716324312*^9}, {3.5688808087544746`*^9, 3.568880827786508*^9}, 3.5688808733385878`*^9, {3.568881358936241*^9, 3.5688813959239063`*^9}, { 3.568881446561595*^9, 3.5688815849182377`*^9}, {3.5688816223739033`*^9, 3.568881642607139*^9}, 3.568881728953291*^9, {3.568881797624612*^9, 3.568881809870633*^9}, 3.568881863612727*^9, {3.568883098916497*^9, 3.5688831014749017`*^9}, {3.56888372124679*^9, 3.568883843239004*^9}, 3.568888211750622*^9, {3.5688882521546926`*^9, 3.5688885232519693`*^9}, { 3.5688885890840845`*^9, 3.5688885895052853`*^9}, {3.568888675773437*^9, 3.5688886914514647`*^9}, {3.568888736285943*^9, 3.5688887717760057`*^9}, { 3.5688888256429005`*^9, 3.5688888541441507`*^9}, {3.568892442649892*^9, 3.5688924499507046`*^9}, {3.568892758441247*^9, 3.5688927597360487`*^9}, { 3.5688928234309607`*^9, 3.5688928379389863`*^9}, {3.5708938149488974`*^9, 3.5708938463361526`*^9}, {3.570893920483083*^9, 3.5708939282050962`*^9}, { 3.570894700000852*^9, 3.5708948169698577`*^9}, {3.570894956839703*^9, 3.5708949736409326`*^9}, {3.5708961320833673`*^9, 3.570896139696181*^9}, 3.570896314088887*^9, {3.5708963602181683`*^9, 3.5708963666609793`*^9}, { 3.570896482038782*^9, 3.570896483645585*^9}, {3.5708965159376416`*^9, 3.570896521194851*^9}, {3.5709435995777535`*^9, 3.5709436285158043`*^9}, { 3.5709436695594764`*^9, 3.5709437026783347`*^9}, {3.57094471360691*^9, 3.5709447144805117`*^9}, {3.5710437875405555`*^9, 3.5710438014245796`*^9}, 3.5710438399722476`*^9, {3.5710439678924723`*^9, 3.5710439893581095`*^9}, { 3.5710441470743866`*^9, 3.5710441826580496`*^9}, 3.571044214450905*^9}], Cell[CellGroupData[{ Cell[BoxData[{ RowBox[{"For", "[", RowBox[{ RowBox[{"i", "=", "1"}], " ", ",", RowBox[{"i", "<", RowBox[{"n", "+", "1"}]}], ",", RowBox[{"i", "++"}], ",", "\[IndentingNewLine]", RowBox[{"For", "[", RowBox[{ RowBox[{"j", "=", "1"}], ",", " ", RowBox[{"j", "<", RowBox[{"bc", "+", "1"}]}], ",", RowBox[{"j", "++"}], ",", "\[IndentingNewLine]", RowBox[{"If", "[", RowBox[{ RowBox[{"(", RowBox[{ RowBox[{ RowBox[{"Dij", "[", RowBox[{"[", RowBox[{"i", ",", "j"}], "]"}], "]"}], "\[NotEqual]", "0"}], " ", "&&", " ", RowBox[{ RowBox[{"u", "[", RowBox[{"[", "i", "]"}], "]"}], "\[Equal]", " ", "\"\\""}]}], ")"}], ",", RowBox[{"If", "[", RowBox[{ RowBox[{ RowBox[{"u", "[", RowBox[{"[", "j", "]"}], "]"}], "\[Equal]", "\"\\""}], ",", RowBox[{ RowBox[{"u2", "[", RowBox[{"[", "i", "]"}], "]"}], "=", "0.5693"}], ",", RowBox[{"If", "[", RowBox[{ RowBox[{ RowBox[{"u", "[", RowBox[{"[", "j", "]"}], "]"}], "\[Equal]", "\"\\""}], ",", RowBox[{ RowBox[{"u2", "[", RowBox[{"[", "i", "]"}], "]"}], "=", "0.5"}], ",", RowBox[{"If", "[", RowBox[{ RowBox[{ RowBox[{"u", "[", RowBox[{"[", "j", "]"}], "]"}], "\[Equal]", "\"\\""}], ",", RowBox[{ RowBox[{"u2", "[", RowBox[{"[", "i", "]"}], "]"}], "=", "0.5541"}], ",", RowBox[{"If", "[", RowBox[{ RowBox[{ RowBox[{"u", "[", RowBox[{"[", "j", "]"}], "]"}], "\[Equal]", "\"\\""}], ",", RowBox[{ RowBox[{"u2", "[", RowBox[{"[", "i", "]"}], "]"}], "=", "0.5241"}]}], "]"}]}], "]"}]}], "]"}]}], "]"}]}], "]"}]}], "]"}]}], "]"}], "\[IndentingNewLine]", "u2"}], "Input", CellChangeTimes->{{3.5688800293771057`*^9, 3.5688801774057655`*^9}, { 3.5688802290574565`*^9, 3.568880330208034*^9}, {3.5688803807053227`*^9, 3.5688804136525807`*^9}, 3.568880491434317*^9, 3.5688805648948464`*^9, { 3.5688806280437574`*^9, 3.568880655234605*^9}, {3.568880712424306*^9, 3.568880716324312*^9}, {3.5688808087544746`*^9, 3.568880827786508*^9}, 3.5688808733385878`*^9, {3.568881358936241*^9, 3.5688813959239063`*^9}, { 3.568881446561595*^9, 3.5688815849182377`*^9}, {3.5688816223739033`*^9, 3.568881642607139*^9}, 3.568881728953291*^9, {3.568881797624612*^9, 3.568881809870633*^9}, 3.568881863612727*^9, {3.568883098916497*^9, 3.5688831014749017`*^9}, {3.56888372124679*^9, 3.568883843239004*^9}, 3.568888211750622*^9, {3.5688882521546926`*^9, 3.5688885232519693`*^9}, { 3.5688885890840845`*^9, 3.5688885895052853`*^9}, {3.568888675773437*^9, 3.5688886914514647`*^9}, {3.568888736285943*^9, 3.5688887717760057`*^9}, { 3.5688888256429005`*^9, 3.5688888541441507`*^9}, {3.568892442649892*^9, 3.5688924499507046`*^9}, {3.568892758441247*^9, 3.5688927597360487`*^9}, { 3.5688928234309607`*^9, 3.5688928379389863`*^9}, {3.5708938149488974`*^9, 3.5708938463361526`*^9}, {3.570893920483083*^9, 3.5708939282050962`*^9}, { 3.570894700000852*^9, 3.57089481264865*^9}, {3.570973331551669*^9, 3.570973355887712*^9}, {3.5709734060886*^9, 3.5709734077266035`*^9}, 3.5709737061863275`*^9}], Cell[BoxData[ RowBox[{"{", RowBox[{ "0.2557`", ",", "0.2557`", ",", "0.2557`", ",", "0.2557`", ",", "0.2557`", ",", "0.2557`", ",", "0.2557`", ",", "0.2557`", ",", "0.254`", ",", "0.254`", ",", "0.5693`", ",", "0.5693`", ",", "0.5693`", ",", "0.5693`", ",", "0.5693`", ",", "0.5693`", ",", "0.5693`", ",", "0.5693`", ",", "0.5693`", ",", "0.5693`", ",", "0.5693`", ",", "0.5693`", ",", "0.5693`", ",", "0.5693`", ",", "0.5693`", ",", "0.5693`", ",", "0.5693`", ",", "0.5693`", ",", "0.5693`", ",", "0.5693`", ",", "0.5693`", ",", "0.5693`"}], "}"}]], "Output", CellChangeTimes->{3.5710451638997726`*^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]", "\"\\""}], ",", RowBox[{"0.5", "*", RowBox[{"Lij", "[", RowBox[{"[", RowBox[{"i", ",", "j"}], "]"}], "]"}]}], ",", RowBox[{"Lij", "[", RowBox[{"[", RowBox[{"i", ",", "j"}], "]"}], "]"}]}], "]"}], ",", "0"}], "]"}], ",", "\"\< \>\""}], "]"}], ",", RowBox[{"{", RowBox[{"i", ",", "1", ",", "n"}], "}"}], ",", RowBox[{"{", RowBox[{"j", ",", "1", ",", "n"}], "}"}]}], "]"}]}], ";"}], " ", "\[IndentingNewLine]", RowBox[{ RowBox[{"Qij", "=", "Lij"}], ";"}], "\[IndentingNewLine]", RowBox[{"(*", RowBox[{ RowBox[{"MatrixForm", "[", "Lij", "]"}], ";"}], "*)"}]}]}]], "Input", CellChangeTimes->{{3.5679627617388124`*^9, 3.567962837461345*^9}, { 3.567963118121438*^9, 3.567963118698639*^9}, {3.5679631520670977`*^9, 3.5679631541731014`*^9}, {3.5679631898191643`*^9, 3.5679632154656096`*^9}, {3.5679635823158536`*^9, 3.56796361468591*^9}, { 3.567963691516045*^9, 3.567963693590849*^9}, {3.567963737957327*^9, 3.567963807299449*^9}, {3.568048114904332*^9, 3.5680481161835346`*^9}, 3.5680482221389203`*^9, {3.5680485003498087`*^9, 3.5680485123618298`*^9}, 3.5681142659931054`*^9, 3.5681219084621286`*^9, {3.568277848107582*^9, 3.5682778496519847`*^9}, {3.5683793122399254`*^9, 3.568379313019926*^9}, { 3.568379456758579*^9, 3.56837947986222*^9}, 3.5683796000760307`*^9, { 3.5683796473285136`*^9, 3.5683796831617765`*^9}, {3.568381744939398*^9, 3.5683817743298492`*^9}, {3.56846523720809*^9, 3.568465240218895*^9}, 3.569341165537958*^9, 3.5693418217531104`*^9, {3.5705967846533675`*^9, 3.5705968020785985`*^9}}], Cell[BoxData[ RowBox[{ RowBox[{"(*", " ", RowBox[{"determine", " ", "kinetic", " ", "energy"}], " ", "*)"}], "\[IndentingNewLine]", RowBox[{ RowBox[{ RowBox[{"Nij", "=", RowBox[{"Table", "[", RowBox[{ RowBox[{"If", "[", RowBox[{ RowBox[{"i", "\[LessEqual]", "j"}], ",", RowBox[{"If", "[", RowBox[{ RowBox[{ RowBox[{"Lij", "[", RowBox[{"[", RowBox[{"i", ",", "j"}], "]"}], "]"}], ">", "0"}], ",", RowBox[{"2.25", "/", RowBox[{ RowBox[{"Lij", "[", RowBox[{"[", RowBox[{"i", ",", "j"}], "]"}], "]"}], "^", "2"}]}], ",", "0"}], "]"}], ",", "\"\< \>\""}], "]"}], ",", RowBox[{"{", RowBox[{"i", ",", "1", ",", "n"}], "}"}], ",", RowBox[{"{", RowBox[{"j", ",", "1", ",", "n"}], "}"}]}], "]"}]}], ";"}], "\[IndentingNewLine]", RowBox[{"(*", RowBox[{"MatrixForm", "[", "Nij", "]"}], "*)"}]}]}]], "Input", CellChangeTimes->{{3.5679628944794455`*^9, 3.5679629710755796`*^9}, { 3.567963889963994*^9, 3.567963933800071*^9}, {3.5680478391738477`*^9, 3.5680478414358516`*^9}, 3.568048231171336*^9, {3.5680482823550262`*^9, 3.56804828449223*^9}, 3.5680483349271183`*^9, 3.568114273059918*^9, 3.5681219175101447`*^9, {3.568277851305588*^9, 3.568277857295998*^9}, { 3.5688722635742655`*^9, 3.568872266616271*^9}, 3.5688723032763357`*^9, 3.5688725225503206`*^9, 3.5692365125035076`*^9, {3.5692366381461277`*^9, 3.5692366389105296`*^9}, {3.5692366963654304`*^9, 3.5692366986898346`*^9}, 3.5693411655535583`*^9, 3.5693418217687106`*^9, {3.5705968460394754`*^9, 3.5705968602823005`*^9}}], Cell[CellGroupData[{ Cell[BoxData[ RowBox[{"Tval", "=", RowBox[{"Sum", "[", RowBox[{ RowBox[{"If", "[", RowBox[{ RowBox[{"i", "\[LessEqual]", "j"}], ",", RowBox[{"Nij", "[", RowBox[{"[", RowBox[{"i", ",", "j"}], "]"}], "]"}], ",", "0"}], "]"}], ",", RowBox[{"{", RowBox[{"i", ",", "1", ",", "n"}], "}"}], ",", RowBox[{"{", RowBox[{"j", ",", "1", ",", "n"}], "}"}]}], "]"}]}]], "Input", CellChangeTimes->{{3.567963992456174*^9, 3.567964003890994*^9}, { 3.5679640974287586`*^9, 3.5679642038209453`*^9}, {3.56796433180357*^9, 3.567964353487608*^9}, {3.567964403641696*^9, 3.567964453046983*^9}, { 3.5679646160984693`*^9, 3.5679646168316708`*^9}, {3.567964688747797*^9, 3.567964762255126*^9}, {3.568277859480002*^9, 3.568277863598409*^9}, { 3.568379511358675*^9, 3.5683795129030776`*^9}, 3.5688214977895346`*^9, { 3.56882774467134*^9, 3.56882781892747*^9}}], Cell[BoxData["48.871508921895305`"], "Output", CellChangeTimes->{3.571045163930973*^9}] }, Open ]], Cell[CellGroupData[{ Cell[BoxData[ RowBox[{"Tcor", "=", RowBox[{"Sum", "[", RowBox[{ RowBox[{"If", "[", RowBox[{ RowBox[{ RowBox[{"u", "[", RowBox[{"[", "i", "]"}], "]"}], "\[NotEqual]", "\"\\""}], ",", RowBox[{"2.25", "/", RowBox[{ RowBox[{"u2", "[", RowBox[{"[", "i", "]"}], "]"}], "^", "2"}]}], ",", "0"}], "]"}], ",", RowBox[{"{", RowBox[{"i", ",", "1", ",", "n"}], "}"}]}], "]"}]}]], "Input", CellChangeTimes->{ 3.5688724058309155`*^9, {3.568872452646598*^9, 3.568872478480243*^9}, { 3.5688764461756124`*^9, 3.5688764647552447`*^9}, {3.5692363452556133`*^9, 3.5692363456924143`*^9}, 3.569236415892538*^9, 3.5692365043134933`*^9}], Cell[BoxData["345.05320611643276`"], "Output", CellChangeTimes->{3.571045163930973*^9}] }, Open ]], Cell[CellGroupData[{ Cell[BoxData[ RowBox[{"Ttot", "=", RowBox[{"Tval", "+", "Tcor", " ", RowBox[{"(*", " ", RowBox[{"plus", " ", "\[Pi]", " ", "and", " ", "lone", " ", RowBox[{"pairs", ":", " ", RowBox[{"+", " ", "8.7616"}]}]}], " ", "*)"}]}]}]], "Input", CellChangeTimes->{ 3.5688724058309155`*^9, {3.568872452646598*^9, 3.568872478480243*^9}, { 3.5688764461756124`*^9, 3.568876459248435*^9}, {3.568876733122516*^9, 3.5688767685033784`*^9}, {3.568895188410715*^9, 3.5688952349923964`*^9}}], Cell[BoxData["393.9247150383281`"], "Output", CellChangeTimes->{3.571045163946573*^9}] }, Open ]], Cell[CellGroupData[{ Cell[BoxData[ RowBox[{"TvalH", "=", RowBox[{"Sum", "[", RowBox[{ RowBox[{"If", "[", RowBox[{ RowBox[{"(", RowBox[{ RowBox[{"i", "\[LessEqual]", "j"}], " ", "&&", " ", RowBox[{ RowBox[{"u", "[", RowBox[{"[", "j", "]"}], "]"}], "\[Equal]", " ", "\"\\""}]}], ")"}], ",", RowBox[{"Nij", "[", RowBox[{"[", RowBox[{"i", ",", "j"}], "]"}], "]"}], ",", "0"}], "]"}], ",", RowBox[{"{", RowBox[{"i", ",", "1", ",", "n"}], "}"}], ",", RowBox[{"{", RowBox[{"j", ",", "1", ",", "n"}], "}"}]}], "]"}]}]], "Input", CellChangeTimes->{ 3.5688724058309155`*^9, {3.568872452646598*^9, 3.568872478480243*^9}, { 3.5688764461756124`*^9, 3.568876459248435*^9}, {3.568876733122516*^9, 3.5688767642445707`*^9}}], Cell[BoxData["34.520401254284565`"], "Output", CellChangeTimes->{3.5710451639621725`*^9}] }, Open ]], Cell[CellGroupData[{ Cell[BoxData[ RowBox[{"TvalC", "=", RowBox[{"Tval", "-", "TvalH"}]}]], "Input", CellChangeTimes->{{3.5688726088808727`*^9, 3.568872610581275*^9}, { 3.5688726952426243`*^9, 3.5688727146490583`*^9}}], Cell[BoxData["14.35110766761074`"], "Output", CellChangeTimes->{3.5710451639777727`*^9}] }, Open ]], Cell[BoxData[ RowBox[{"\[IndentingNewLine]", RowBox[{ RowBox[{ RowBox[{"Mij", "=", RowBox[{"Prepend", "[", RowBox[{"Qij", ",", "u"}], "]"}]}], ";"}], "\[IndentingNewLine]", RowBox[{ RowBox[{"Oij", "=", RowBox[{"Transpose", "[", "Mij", "]"}]}], ";"}], "\[IndentingNewLine]", RowBox[{ RowBox[{"Pij", "=", RowBox[{"Prepend", "[", RowBox[{"Oij", ",", RowBox[{"Prepend", "[", RowBox[{"u", ",", "\"\< \>\""}], "]"}]}], "]"}]}], ";"}]}]}]], "Input", CellChangeTimes->{{3.568045828002715*^9, 3.56804588761042*^9}, 3.5680459828797874`*^9, {3.568046033938677*^9, 3.5680460518787084`*^9}, { 3.568046989190755*^9, 3.5680470284404235`*^9}, {3.568047061028881*^9, 3.568047085567724*^9}, {3.5680471562982483`*^9, 3.568047169199471*^9}, { 3.568047223393966*^9, 3.568047364059413*^9}, {3.568047417286707*^9, 3.5680474225127163`*^9}, {3.5680474583459787`*^9, 3.568047487861231*^9}, { 3.5680475345521126`*^9, 3.5680475468605347`*^9}, {3.5680479168775845`*^9, 3.5680479311516094`*^9}, {3.568048066918648*^9, 3.568048067667449*^9}, { 3.5680483816336*^9, 3.5680483930216208`*^9}, {3.568048424159275*^9, 3.568048450211321*^9}, {3.5680486326224413`*^9, 3.5680486370996494`*^9}, { 3.5680487358166227`*^9, 3.5680487967191296`*^9}, 3.568048834377596*^9, 3.568048984418659*^9, {3.5680490255559316`*^9, 3.5680490790796256`*^9}, { 3.5680491274553103`*^9, 3.5680491280949116`*^9}, {3.5680491782333994`*^9, 3.568049231944294*^9}, {3.568049361533722*^9, 3.5680493691933355`*^9}, { 3.568049422171028*^9, 3.568049427490638*^9}, {3.568049476427923*^9, 3.5680495489368505`*^9}, {3.568049620634577*^9, 3.5680496274361887`*^9}, { 3.5680496655314555`*^9, 3.568049693876705*^9}, 3.568049746573598*^9, { 3.568049846460573*^9, 3.568049932759925*^9}, {3.568050009059659*^9, 3.5680500167348723`*^9}, {3.5680501572755194`*^9, 3.568050179911159*^9}, 3.5681087021497335`*^9}], Cell[CellGroupData[{ Cell[BoxData[ RowBox[{"MatrixForm", "[", "Pij", "]"}]], "Input", CellChangeTimes->{{3.568045828002715*^9, 3.56804588761042*^9}, 3.5680459828797874`*^9, {3.568046033938677*^9, 3.5680460518787084`*^9}, { 3.568046989190755*^9, 3.5680470284404235`*^9}, {3.568047061028881*^9, 3.568047085567724*^9}, {3.5680471562982483`*^9, 3.568047169199471*^9}, { 3.568047223393966*^9, 3.568047364059413*^9}, {3.568047417286707*^9, 3.5680474225127163`*^9}, {3.5680474583459787`*^9, 3.568047487861231*^9}, { 3.5680475345521126`*^9, 3.5680475468605347`*^9}, {3.5680479168775845`*^9, 3.5680479311516094`*^9}, {3.568048066918648*^9, 3.568048067667449*^9}, { 3.5680483816336*^9, 3.5680483930216208`*^9}, {3.568048424159275*^9, 3.568048450211321*^9}, {3.5680486326224413`*^9, 3.5680486370996494`*^9}, { 3.5680487358166227`*^9, 3.5680487967191296`*^9}, 3.568048834377596*^9, 3.568048984418659*^9, {3.5680490255559316`*^9, 3.5680490790796256`*^9}, { 3.5680491274553103`*^9, 3.5680491280949116`*^9}, {3.5680491782333994`*^9, 3.568049231944294*^9}, {3.568049361533722*^9, 3.5680493691933355`*^9}, { 3.568049422171028*^9, 3.568049427490638*^9}, {3.568049476427923*^9, 3.5680495489368505`*^9}, {3.568049620634577*^9, 3.5680496274361887`*^9}, { 3.5680496655314555`*^9, 3.568049693876705*^9}, 3.568049746573598*^9, { 3.568049846460573*^9, 3.568049932759925*^9}, {3.568050009059659*^9, 3.5680500167348723`*^9}, {3.5680501572755194`*^9, 3.568050179911159*^9}, { 3.5681087021497335`*^9, 3.5681087223049684`*^9}, 3.568114284401138*^9, 3.5681220092695055`*^9, 3.5693411655535583`*^9, 3.5693418217687106`*^9, { 3.570340755052903*^9, 3.5703407609185133`*^9}, 3.570342272888769*^9, { 3.5703428806034365`*^9, 3.5703428850182447`*^9}}], Cell[BoxData[ TagBox[ RowBox[{"(", "\[NoBreak]", GridBox[{ {"\<\" \"\>", "\<\"C\"\>", "\<\"C\"\>", "\<\"C\"\>", "\<\"C\"\>", "\<\"C\ \"\>", "\<\"C\"\>", "\<\"C\"\>", "\<\"C\"\>", "\<\"C\"\>", "\<\"C\"\>", \ "\<\"H\"\>", "\<\"H\"\>", "\<\"H\"\>", "\<\"H\"\>", "\<\"H\"\>", "\<\"H\"\>", \ "\<\"H\"\>", "\<\"H\"\>", "\<\"H\"\>", "\<\"H\"\>", "\<\"H\"\>", "\<\"H\"\>", \ "\<\"H\"\>", "\<\"H\"\>", "\<\"H\"\>", "\<\"H\"\>", "\<\"H\"\>", "\<\"H\"\>", \ "\<\"H\"\>", "\<\"H\"\>", "\<\"H\"\>", "\<\"H\"\>"}, {"\<\"C\"\>", "0", "\<\" \"\>", "\<\" \"\>", "\<\" \"\>", "\<\" \"\>", "\<\" \"\>", "\ \<\" \"\>", "\<\" \"\>", "\<\" \"\>", "\<\" \"\>", "\<\" \"\>", "\<\" \"\>", \ "\<\" \"\>", "\<\" \"\>", "\<\" \"\>", "\<\" \"\>", "\<\" \"\>", "\<\" \"\>", \ "\<\" \"\>", "\<\" \"\>", "\<\" \"\>", "\<\" \"\>", "\<\" \"\>", "\<\" \"\>", \ "\<\" \"\>", "\<\" \"\>", "\<\" \"\>", "\<\" \"\>", "\<\" \"\>", "\<\" \"\>", \ "\<\" \"\>", "\<\" \"\>"}, {"\<\"C\"\>", "1.179246057080891`", "0", "\<\" \"\>", "\<\" \"\>", "\<\" \"\>", "\<\" \"\>", "\<\" \"\>", "\ \<\" \"\>", "\<\" \"\>", "\<\" \"\>", "\<\" \"\>", "\<\" \"\>", "\<\" \"\>", \ "\<\" \"\>", "\<\" \"\>", "\<\" \"\>", "\<\" \"\>", "\<\" \"\>", "\<\" \"\>", \ "\<\" \"\>", "\<\" \"\>", "\<\" \"\>", "\<\" \"\>", "\<\" \"\>", "\<\" \"\>", \ "\<\" \"\>", "\<\" \"\>", "\<\" \"\>", "\<\" \"\>", "\<\" \"\>", "\<\" \"\>", \ "\<\" \"\>"}, {"\<\"C\"\>", "1.1836194132654674`", "0", "0", "\<\" \"\>", "\<\" \"\>", "\<\" \"\>", "\<\" \"\>", "\<\" \"\>", "\ \<\" \"\>", "\<\" \"\>", "\<\" \"\>", "\<\" \"\>", "\<\" \"\>", "\<\" \"\>", \ "\<\" \"\>", "\<\" \"\>", "\<\" \"\>", "\<\" \"\>", "\<\" \"\>", "\<\" \"\>", \ "\<\" \"\>", "\<\" \"\>", "\<\" \"\>", "\<\" \"\>", "\<\" \"\>", "\<\" \"\>", \ "\<\" \"\>", "\<\" \"\>", "\<\" \"\>", "\<\" \"\>", "\<\" \"\>", "\<\" \"\>"}, {"\<\"C\"\>", "0", "1.175119278802822`", "0", "0", "\<\" \"\>", "\<\" \"\>", "\<\" \"\>", "\<\" \"\>", "\<\" \"\>", "\ \<\" \"\>", "\<\" \"\>", "\<\" \"\>", "\<\" \"\>", "\<\" \"\>", "\<\" \"\>", \ "\<\" \"\>", "\<\" \"\>", "\<\" \"\>", "\<\" \"\>", "\<\" \"\>", "\<\" \"\>", \ "\<\" \"\>", "\<\" \"\>", "\<\" \"\>", "\<\" \"\>", "\<\" \"\>", "\<\" \"\>", \ "\<\" \"\>", "\<\" \"\>", "\<\" \"\>", "\<\" \"\>", "\<\" \"\>"}, {"\<\"C\"\>", "0", "0", "1.2009290495230283`", "0", "0", "\<\" \"\>", "\<\" \"\>", "\<\" \"\>", "\<\" \"\>", "\<\" \"\>", "\ \<\" \"\>", "\<\" \"\>", "\<\" \"\>", "\<\" \"\>", "\<\" \"\>", "\<\" \"\>", \ "\<\" \"\>", "\<\" \"\>", "\<\" \"\>", "\<\" \"\>", "\<\" \"\>", "\<\" \"\>", \ "\<\" \"\>", "\<\" \"\>", "\<\" \"\>", "\<\" \"\>", "\<\" \"\>", "\<\" \"\>", \ "\<\" \"\>", "\<\" \"\>", "\<\" \"\>", "\<\" \"\>"}, {"\<\"C\"\>", "0", "0", "0", "1.201014886859848`", "0", "0", "\<\" \"\>", "\<\" \"\>", "\<\" \"\>", "\<\" \"\>", "\<\" \"\>", "\ \<\" \"\>", "\<\" \"\>", "\<\" \"\>", "\<\" \"\>", "\<\" \"\>", "\<\" \"\>", \ "\<\" \"\>", "\<\" \"\>", "\<\" \"\>", "\<\" \"\>", "\<\" \"\>", "\<\" \"\>", \ "\<\" \"\>", "\<\" \"\>", "\<\" \"\>", "\<\" \"\>", "\<\" \"\>", "\<\" \"\>", \ "\<\" \"\>", "\<\" \"\>", "\<\" \"\>"}, {"\<\"C\"\>", "0", "0", "0", "0", "1.1890995738656527`", "0", "0", "\<\" \"\>", "\<\" \"\>", "\<\" \"\>", "\<\" \"\>", "\<\" \"\>", "\ \<\" \"\>", "\<\" \"\>", "\<\" \"\>", "\<\" \"\>", "\<\" \"\>", "\<\" \"\>", \ "\<\" \"\>", "\<\" \"\>", "\<\" \"\>", "\<\" \"\>", "\<\" \"\>", "\<\" \"\>", \ "\<\" \"\>", "\<\" \"\>", "\<\" \"\>", "\<\" \"\>", "\<\" \"\>", "\<\" \"\>", \ "\<\" \"\>", "\<\" \"\>"}, {"\<\"C\"\>", "0", "0", "0", "0", "0", "1.1891671569470634`", "0", "0", "\<\" \"\>", "\<\" \"\>", "\<\" \"\>", "\<\" \"\>", "\<\" \"\>", "\ \<\" \"\>", "\<\" \"\>", "\<\" \"\>", "\<\" \"\>", "\<\" \"\>", "\<\" \"\>", \ "\<\" \"\>", "\<\" \"\>", "\<\" \"\>", "\<\" \"\>", "\<\" \"\>", "\<\" \"\>", \ "\<\" \"\>", "\<\" \"\>", "\<\" \"\>", "\<\" \"\>", "\<\" \"\>", "\<\" \"\>", \ "\<\" \"\>"}, {"\<\"C\"\>", "0", "0", "0", "0", "0", "0", "1.1867085874137557`", "0", "0", "\<\" \"\>", "\<\" \"\>", "\<\" \"\>", "\<\" \"\>", "\<\" \"\>", "\ \<\" \"\>", "\<\" \"\>", "\<\" \"\>", "\<\" \"\>", "\<\" \"\>", "\<\" \"\>", \ "\<\" \"\>", "\<\" \"\>", "\<\" \"\>", "\<\" \"\>", "\<\" \"\>", "\<\" \"\>", \ "\<\" \"\>", "\<\" \"\>", "\<\" \"\>", "\<\" \"\>", "\<\" \"\>", "\<\" \"\>"}, {"\<\"C\"\>", "0", "0", "0", "0", "0", "0", "0", "1.1867085874137553`", "0", "0", "\<\" \"\>", "\<\" \"\>", "\<\" \"\>", "\<\" \"\>", "\<\" \ \"\>", "\<\" \"\>", "\<\" \"\>", "\<\" \"\>", "\<\" \"\>", "\<\" \"\>", "\<\" \ \"\>", "\<\" \"\>", "\<\" \"\>", "\<\" \"\>", "\<\" \"\>", "\<\" \"\>", "\<\" \ \"\>", "\<\" \"\>", "\<\" \"\>", "\<\" \"\>", "\<\" \"\>", "\<\" \"\>"}, {"\<\"H\"\>", "1.1969442986752523`", "0", "0", "0", "0", "0", "0", "0", "0", "0", "0", "\<\" \"\>", "\<\" \"\>", "\<\" \"\>", "\<\" \"\>", "\<\" \"\>", "\ \<\" \"\>", "\<\" \"\>", "\<\" \"\>", "\<\" \"\>", "\<\" \"\>", "\<\" \"\>", \ "\<\" \"\>", "\<\" \"\>", "\<\" \"\>", "\<\" \"\>", "\<\" \"\>", "\<\" \"\>", \ "\<\" \"\>", "\<\" \"\>", "\<\" \"\>", "\<\" \"\>"}, {"\<\"H\"\>", "1.196977394364303`", "0", "0", "0", "0", "0", "0", "0", "0", "0", "0", "0", "\<\" \"\>", "\<\" \"\>", "\<\" \"\>", "\<\" \"\>", "\<\" \"\>", "\ \<\" \"\>", "\<\" \"\>", "\<\" \"\>", "\<\" \"\>", "\<\" \"\>", "\<\" \"\>", \ "\<\" \"\>", "\<\" \"\>", "\<\" \"\>", "\<\" \"\>", "\<\" \"\>", "\<\" \"\>", \ "\<\" \"\>", "\<\" \"\>", "\<\" \"\>"}, {"\<\"H\"\>", "0", "1.1969588468855248`", "0", "0", "0", "0", "0", "0", "0", "0", "0", "0", "0", "\<\" \"\>", "\<\" \"\>", "\<\" \"\>", "\<\" \"\>", "\<\" \"\>", "\ \<\" \"\>", "\<\" \"\>", "\<\" \"\>", "\<\" \"\>", "\<\" \"\>", "\<\" \"\>", \ "\<\" \"\>", "\<\" \"\>", "\<\" \"\>", "\<\" \"\>", "\<\" \"\>", "\<\" \"\>", \ "\<\" \"\>", "\<\" \"\>"}, {"\<\"H\"\>", "0", "1.1968877819170696`", "0", "0", "0", "0", "0", "0", "0", "0", "0", "0", "0", "0", "\<\" \"\>", "\<\" \"\>", "\<\" \"\>", "\<\" \"\>", "\<\" \"\>", "\ \<\" \"\>", "\<\" \"\>", "\<\" \"\>", "\<\" \"\>", "\<\" \"\>", "\<\" \"\>", \ "\<\" \"\>", "\<\" \"\>", "\<\" \"\>", "\<\" \"\>", "\<\" \"\>", "\<\" \"\>", \ "\<\" \"\>"}, {"\<\"H\"\>", "0", "0", "1.1968954182603286`", "0", "0", "0", "0", "0", "0", "0", "0", "0", "0", "0", "0", "\<\" \"\>", "\<\" \"\>", "\<\" \"\>", "\<\" \"\>", "\<\" \"\>", "\ \<\" \"\>", "\<\" \"\>", "\<\" \"\>", "\<\" \"\>", "\<\" \"\>", "\<\" \"\>", \ "\<\" \"\>", "\<\" \"\>", "\<\" \"\>", "\<\" \"\>", "\<\" \"\>", "\<\" \"\>"}, {"\<\"H\"\>", "0", "0", "1.1969797523589247`", "0", "0", "0", "0", "0", "0", "0", "0", "0", "0", "0", "0", "0", "\<\" \"\>", "\<\" \"\>", "\<\" \"\>", "\<\" \"\>", "\<\" \"\>", "\ \<\" \"\>", "\<\" \"\>", "\<\" \"\>", "\<\" \"\>", "\<\" \"\>", "\<\" \"\>", \ "\<\" \"\>", "\<\" \"\>", "\<\" \"\>", "\<\" \"\>", "\<\" \"\>"}, {"\<\"H\"\>", "0", "0", "0", "1.1968975093587475`", "0", "0", "0", "0", "0", "0", "0", "0", "0", "0", "0", "0", "0", "\<\" \"\>", "\<\" \"\>", "\<\" \"\>", "\<\" \"\>", "\<\" \"\>", "\ \<\" \"\>", "\<\" \"\>", "\<\" \"\>", "\<\" \"\>", "\<\" \"\>", "\<\" \"\>", \ "\<\" \"\>", "\<\" \"\>", "\<\" \"\>", "\<\" \"\>"}, {"\<\"H\"\>", "0", "0", "0", "1.1970696616296213`", "0", "0", "0", "0", "0", "0", "0", "0", "0", "0", "0", "0", "0", "0", "\<\" \"\>", "\<\" \"\>", "\<\" \"\>", "\<\" \"\>", "\<\" \"\>", "\ \<\" \"\>", "\<\" \"\>", "\<\" \"\>", "\<\" \"\>", "\<\" \"\>", "\<\" \"\>", \ "\<\" \"\>", "\<\" \"\>", "\<\" \"\>"}, {"\<\"H\"\>", "0", "0", "0", "0", "1.1970088863348511`", "0", "0", "0", "0", "0", "0", "0", "0", "0", "0", "0", "0", "0", "0", "\<\" \"\>", "\<\" \"\>", "\<\" \"\>", "\<\" \"\>", "\<\" \"\>", "\ \<\" \"\>", "\<\" \"\>", "\<\" \"\>", "\<\" \"\>", "\<\" \"\>", "\<\" \"\>", \ "\<\" \"\>", "\<\" \"\>"}, {"\<\"H\"\>", "0", "0", "0", "0", "1.1971562901428072`", "0", "0", "0", "0", "0", "0", "0", "0", "0", "0", "0", "0", "0", "0", "0", "\<\" \"\>", "\<\" \"\>", "\<\" \"\>", "\<\" \"\>", "\<\" \"\>", "\ \<\" \"\>", "\<\" \"\>", "\<\" \"\>", "\<\" \"\>", "\<\" \"\>", "\<\" \"\>", \ "\<\" \"\>"}, {"\<\"H\"\>", "0", "0", "0", "0", "0", "1.1970350155749947`", "0", "0", "0", "0", "0", "0", "0", "0", "0", "0", "0", "0", "0", "0", "0", "\<\" \"\>", "\<\" \"\>", "\<\" \"\>", "\<\" \"\>", "\<\" \"\>", "\ \<\" \"\>", "\<\" \"\>", "\<\" \"\>", "\<\" \"\>", "\<\" \"\>", "\<\" \"\>"}, {"\<\"H\"\>", "0", "0", "0", "0", "0", "1.1969998970776152`", "0", "0", "0", "0", "0", "0", "0", "0", "0", "0", "0", "0", "0", "0", "0", "0", "\<\" \"\>", "\<\" \"\>", "\<\" \"\>", "\<\" \"\>", "\<\" \"\>", "\ \<\" \"\>", "\<\" \"\>", "\<\" \"\>", "\<\" \"\>", "\<\" \"\>"}, {"\<\"H\"\>", "0", "0", "0", "0", "0", "0", "1.1970912664710385`", "0", "0", "0", "0", "0", "0", "0", "0", "0", "0", "0", "0", "0", "0", "0", "0", "\<\" \"\>", "\<\" \"\>", "\<\" \"\>", "\<\" \"\>", "\<\" \"\>", "\ \<\" \"\>", "\<\" \"\>", "\<\" \"\>", "\<\" \"\>"}, {"\<\"H\"\>", "0", "0", "0", "0", "0", "0", "1.1968488009420515`", "0", "0", "0", "0", "0", "0", "0", "0", "0", "0", "0", "0", "0", "0", "0", "0", "0", "\<\" \"\>", "\<\" \"\>", "\<\" \"\>", "\<\" \"\>", "\<\" \ \"\>", "\<\" \"\>", "\<\" \"\>", "\<\" \"\>"}, {"\<\"H\"\>", "0", "0", "0", "0", "0", "0", "0", "1.1970497556200526`", "0", "0", "0", "0", "0", "0", "0", "0", "0", "0", "0", "0", "0", "0", "0", "0", "0", "\<\" \"\>", "\<\" \"\>", "\<\" \"\>", "\<\" \"\>", "\<\" \"\>", "\ \<\" \"\>", "\<\" \"\>"}, {"\<\"H\"\>", "0", "0", "0", "0", "0", "0", "0", "1.1969287834069369`", "0", "0", "0", "0", "0", "0", "0", "0", "0", "0", "0", "0", "0", "0", "0", "0", "0", "0", "\<\" \"\>", "\<\" \"\>", "\<\" \"\>", "\<\" \"\>", "\<\" \"\>", "\ \<\" \"\>"}, {"\<\"H\"\>", "0", "0", "0", "0", "0", "0", "0", "0", "1.198740419755556`", "0", "0", "0", "0", "0", "0", "0", "0", "0", "0", "0", "0", "0", "0", "0", "0", "0", "0", "\<\" \"\>", "\<\" \"\>", "\<\" \"\>", "\<\" \"\>", "\<\" \"\>"}, {"\<\"H\"\>", "0", "0", "0", "0", "0", "0", "0", "0", "1.1987222627995613`", "0", "0", "0", "0", "0", "0", "0", "0", "0", "0", "0", "0", "0", "0", "0", "0", "0", "0", "0", "\<\" \"\>", "\<\" \"\>", "\<\" \"\>", "\<\" \"\>"}, {"\<\"H\"\>", "0", "0", "0", "0", "0", "0", "0", "0", "1.1988208627194061`", "0", "0", "0", "0", "0", "0", "0", "0", "0", "0", "0", "0", "0", "0", "0", "0", "0", "0", "0", "0", "\<\" \"\>", "\<\" \"\>", "\<\" \"\>"}, {"\<\"H\"\>", "0", "0", "0", "0", "0", "0", "0", "0", "0", "1.1987499918307734`", "0", "0", "0", "0", "0", "0", "0", "0", "0", "0", "0", "0", "0", "0", "0", "0", "0", "0", "0", "0", "\<\" \"\>", "\<\" \"\>"}, {"\<\"H\"\>", "0", "0", "0", "0", "0", "0", "0", "0", "0", "1.1987762794832153`", "0", "0", "0", "0", "0", "0", "0", "0", "0", "0", "0", "0", "0", "0", "0", "0", "0", "0", "0", "0", "0", "\<\" \"\>"}, {"\<\"H\"\>", "0", "0", "0", "0", "0", "0", "0", "0", "0", "1.1988208627194057`", "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.571045163993373*^9}] }, Open ]], Cell[BoxData[ RowBox[{"(*", " ", RowBox[{"sigma", " ", "bond", " ", "cloud", " ", "radii"}], " ", "*)"}]], "Input", CellChangeTimes->{{3.568045828002715*^9, 3.56804588761042*^9}, 3.5680459828797874`*^9, {3.568046033938677*^9, 3.5680460518787084`*^9}, { 3.568046989190755*^9, 3.5680470284404235`*^9}, {3.568047061028881*^9, 3.568047085567724*^9}, {3.5680471562982483`*^9, 3.568047169199471*^9}, { 3.568047223393966*^9, 3.568047364059413*^9}, {3.568047417286707*^9, 3.5680474225127163`*^9}, {3.5680474583459787`*^9, 3.568047487861231*^9}, { 3.5680475345521126`*^9, 3.5680475468605347`*^9}, {3.5680479168775845`*^9, 3.5680479311516094`*^9}, {3.568048066918648*^9, 3.568048067667449*^9}, { 3.5680483816336*^9, 3.5680483930216208`*^9}, {3.568048424159275*^9, 3.568048450211321*^9}, {3.5680486326224413`*^9, 3.5680486370996494`*^9}, { 3.5680487358166227`*^9, 3.5680487967191296`*^9}, 3.568048834377596*^9, 3.568048984418659*^9, {3.5680490255559316`*^9, 3.5680490790796256`*^9}, { 3.5680491274553103`*^9, 3.5680491280949116`*^9}, {3.5680491782333994`*^9, 3.568049231944294*^9}, {3.568049361533722*^9, 3.5680493691933355`*^9}, { 3.568049422171028*^9, 3.568049427490638*^9}, {3.568049476427923*^9, 3.5680495489368505`*^9}, {3.568049620634577*^9, 3.5680496274361887`*^9}, { 3.5680496655314555`*^9, 3.568049693876705*^9}, 3.568049746573598*^9, { 3.568049846460573*^9, 3.568049932759925*^9}, {3.568050009059659*^9, 3.5680500167348723`*^9}, {3.5680501572755194`*^9, 3.568050179911159*^9}, { 3.5681087021497335`*^9, 3.5681087223049684`*^9}, {3.5681133837179556`*^9, 3.5681133888191648`*^9}}], Cell[BoxData[ RowBox[{"For", "[", RowBox[{ RowBox[{"i", "=", "2"}], ",", RowBox[{"i", "<", RowBox[{"n", "+", "2"}]}], ",", RowBox[{"i", "++"}], ",", "\[IndentingNewLine]", RowBox[{"For", "[", RowBox[{ RowBox[{"j", "=", "2"}], ",", RowBox[{"j", "\[LessEqual]", "i"}], ",", RowBox[{"j", "++"}], ",", "\[IndentingNewLine]", RowBox[{"If", "[", RowBox[{ RowBox[{"(", RowBox[{ RowBox[{ RowBox[{"Pij", "[", RowBox[{"[", RowBox[{"i", ",", "j"}], "]"}], "]"}], ">", "0"}], " ", "&&", " ", RowBox[{"(", " ", RowBox[{ RowBox[{ RowBox[{"u", "[", RowBox[{"[", RowBox[{"i", "-", "1"}], "]"}], "]"}], "\[Equal]", "\"\\""}], " ", "||", " ", RowBox[{ RowBox[{"u", "[", RowBox[{"[", RowBox[{"j", "-", "1"}], "]"}], "]"}], "\[Equal]", "\"\\""}]}], " ", ")"}]}], ")"}], " ", ",", RowBox[{"Print", "[", RowBox[{ RowBox[{"u", "[", RowBox[{"[", RowBox[{"i", "-", "1"}], "]"}], "]"}], ",", RowBox[{"i", "-", "1"}], ",", "\"\< \>\"", ",", RowBox[{"u", "[", RowBox[{"[", RowBox[{"j", "-", "1"}], "]"}], "]"}], ",", RowBox[{"j", "-", "1"}], ",", "\"\< \>\"", ",", RowBox[{"t", "[", RowBox[{"[", RowBox[{"i", "-", "1"}], "]"}], "]"}], ",", "\"\< \>\"", ",", RowBox[{"t", "[", RowBox[{"[", RowBox[{"j", "-", "1"}], "]"}], "]"}]}], "]"}]}], "]"}]}], "]"}]}], "]"}]], "Input", CellChangeTimes->{{3.568108824079547*^9, 3.568109012824279*^9}, { 3.568109558076436*^9, 3.568109588168889*^9}, {3.5681097523435774`*^9, 3.5681097637783976`*^9}, {3.5681100381828794`*^9, 3.5681101616726966`*^9}, {3.5681102015307665`*^9, 3.5681102288464146`*^9}, {3.568110263743676*^9, 3.568110267331682*^9}, { 3.5681103163469687`*^9, 3.5681103268925867`*^9}, {3.5681106443375444`*^9, 3.5681106916368275`*^9}, 3.568110873002746*^9, {3.5681109388660617`*^9, 3.5681110268970165`*^9}, {3.568111092526332*^9, 3.568111123461186*^9}, { 3.5681111884196997`*^9, 3.568111192756508*^9}, {3.5681112268113675`*^9, 3.568111366213212*^9}, {3.568111434946933*^9, 3.568111463354583*^9}, { 3.568111544396725*^9, 3.568111547625931*^9}, {3.5681116856081734`*^9, 3.5681117131422215`*^9}, {3.568111864696488*^9, 3.5681119835998964`*^9}, 3.5681120218355637`*^9, {3.56811206543764*^9, 3.568112066389242*^9}, { 3.568112332369709*^9, 3.5681123404505234`*^9}, {3.568112505935614*^9, 3.56811251481203*^9}, {3.5681125623609133`*^9, 3.568112569006525*^9}, { 3.568112648067464*^9, 3.568112734210815*^9}, {3.568112764443668*^9, 3.5681127697320776`*^9}, {3.5681128018681335`*^9, 3.568112843426607*^9}, { 3.568112884641879*^9, 3.5681128887602863`*^9}, {3.5681129663080225`*^9, 3.5681129699584293`*^9}, {3.568113133789917*^9, 3.568113227936082*^9}, { 3.5681132946885996`*^9, 3.5681133044698167`*^9}, {3.568113502200164*^9, 3.568113507348173*^9}, 3.56811354556824*^9, {3.5681222886191964`*^9, 3.5681222896019983`*^9}, {3.568207424138049*^9, 3.5682074415164795`*^9}, 3.568277923134914*^9, 3.568883508322016*^9, 3.568883588350157*^9, 3.5688836441982546`*^9, {3.5703421313965206`*^9, 3.5703421386505337`*^9}, { 3.570342288098796*^9, 3.5703424924279547`*^9}, 3.5709745658726373`*^9, 3.5709746291463485`*^9, {3.5709747534473667`*^9, 3.5709747617933817`*^9}, { 3.5709749537361183`*^9, 3.570975034747061*^9}, {3.5709751055243855`*^9, 3.5709751213584127`*^9}, {3.5709751694532976`*^9, 3.570975200060551*^9}}], Cell[BoxData[{ RowBox[{ RowBox[{"DeleteFile", "[", " ", "\"\\"", "]"}], ";"}], "\[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"}], "}"}]}], "]"}]}], "}"}], ">>>", " ", "\"\\""}]}], "]"}]}], "]"}]}], "]"}]}], "Input", CellChangeTimes->{{3.5681154444347754`*^9, 3.568115497147268*^9}, { 3.568127214924899*^9, 3.568127265796589*^9}, {3.568128215276656*^9, 3.568128238536297*^9}, {3.568130718566253*^9, 3.5681307485339055`*^9}, 3.5681308175952272`*^9, {3.5681308916497574`*^9, 3.5681309458598523`*^9}, { 3.5681309983383446`*^9, 3.5681310118947687`*^9}, {3.5681310723448744`*^9, 3.568131074357278*^9}, {3.5681315215476637`*^9, 3.568131584509374*^9}, { 3.56813162789305*^9, 3.5681316427754765`*^9}, {3.5681317113063965`*^9, 3.568131715268804*^9}, {3.5681323203938665`*^9, 3.5681323260098763`*^9}, { 3.568132387567585*^9, 3.568132440014877*^9}, {3.5681325121026034`*^9, 3.568132590945142*^9}, {3.56813274298981*^9, 3.5681327548302307`*^9}, { 3.568132877867647*^9, 3.568132888335265*^9}, {3.568133052345154*^9, 3.568133072344389*^9}, {3.5681331740533676`*^9, 3.5681331951446047`*^9}, { 3.568133267793932*^9, 3.5681332684803333`*^9}, {3.5681335079111547`*^9, 3.568133536833606*^9}, {3.5681336272201643`*^9, 3.5681336314945717`*^9}, { 3.568133737994359*^9, 3.568133744000369*^9}, {3.568133978515581*^9, 3.5681339917912045`*^9}, {3.5681340324916763`*^9, 3.5681340418204927`*^9}, {3.568134244262048*^9, 3.5681342454944506`*^9}, { 3.5681343354754086`*^9, 3.568134336099409*^9}, {3.5681345828762426`*^9, 3.568134583952645*^9}, {3.5681348406666956`*^9, 3.5681348474683075`*^9}, 3.568134889151581*^9, {3.5681352914606876`*^9, 3.568135296265496*^9}, { 3.568135518877887*^9, 3.568135519595488*^9}, 3.5681357593679094`*^9, { 3.5681787035360527`*^9, 3.568178728449296*^9}, 3.5682779128076954`*^9}], Cell[CellGroupData[{ Cell[BoxData[{ RowBox[{"a", "=", RowBox[{ "ReadList", "[", "\"\\"", "]"}]}], "\[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.179246057080891`"}], "}"}], ",", RowBox[{"{", RowBox[{"3", ",", "1", ",", "1.1836194132654674`"}], "}"}], ",", RowBox[{"{", RowBox[{"4", ",", "2", ",", "1.175119278802822`"}], "}"}], ",", RowBox[{"{", RowBox[{"5", ",", "3", ",", "1.2009290495230283`"}], "}"}], ",", RowBox[{"{", RowBox[{"6", ",", "4", ",", "1.201014886859848`"}], "}"}], ",", RowBox[{"{", RowBox[{"7", ",", "5", ",", "1.1890995738656527`"}], "}"}], ",", RowBox[{"{", RowBox[{"8", ",", "6", ",", "1.1891671569470634`"}], "}"}], ",", RowBox[{"{", RowBox[{"9", ",", "7", ",", "1.1867085874137557`"}], "}"}], ",", RowBox[{"{", RowBox[{"10", ",", "8", ",", "1.1867085874137553`"}], "}"}], ",", RowBox[{"{", RowBox[{"11", ",", "1", ",", "1.1969442986752523`"}], "}"}], ",", RowBox[{"{", RowBox[{"12", ",", "1", ",", "1.196977394364303`"}], "}"}], ",", RowBox[{"{", RowBox[{"13", ",", "2", ",", "1.1969588468855248`"}], "}"}], ",", RowBox[{"{", RowBox[{"14", ",", "2", ",", "1.1968877819170696`"}], "}"}], ",", RowBox[{"{", RowBox[{"15", ",", "3", ",", "1.1968954182603286`"}], "}"}], ",", RowBox[{"{", RowBox[{"16", ",", "3", ",", "1.1969797523589247`"}], "}"}], ",", RowBox[{"{", RowBox[{"17", ",", "4", ",", "1.1968975093587475`"}], "}"}], ",", RowBox[{"{", RowBox[{"18", ",", "4", ",", "1.1970696616296213`"}], "}"}], ",", RowBox[{"{", RowBox[{"19", ",", "5", ",", "1.1970088863348511`"}], "}"}], ",", RowBox[{"{", RowBox[{"20", ",", "5", ",", "1.1971562901428072`"}], "}"}], ",", RowBox[{"{", RowBox[{"21", ",", "6", ",", "1.1970350155749947`"}], "}"}], ",", RowBox[{"{", RowBox[{"22", ",", "6", ",", "1.1969998970776152`"}], "}"}], ",", RowBox[{"{", RowBox[{"23", ",", "7", ",", "1.1970912664710385`"}], "}"}], ",", RowBox[{"{", RowBox[{"24", ",", "7", ",", "1.1968488009420515`"}], "}"}], ",", RowBox[{"{", RowBox[{"25", ",", "8", ",", "1.1970497556200526`"}], "}"}], ",", RowBox[{"{", RowBox[{"26", ",", "8", ",", "1.1969287834069369`"}], "}"}], ",", RowBox[{"{", RowBox[{"27", ",", "9", ",", "1.198740419755556`"}], "}"}], ",", RowBox[{"{", RowBox[{"28", ",", "9", ",", "1.1987222627995613`"}], "}"}], ",", RowBox[{"{", RowBox[{"29", ",", "9", ",", "1.1988208627194061`"}], "}"}], ",", RowBox[{"{", RowBox[{"30", ",", "10", ",", "1.1987499918307734`"}], "}"}], ",", RowBox[{"{", RowBox[{"31", ",", "10", ",", "1.1987762794832153`"}], "}"}], ",", RowBox[{"{", RowBox[{"32", ",", "10", ",", "1.1988208627194057`"}], "}"}]}], "}"}]], "Output", CellChangeTimes->{3.5710451640245733`*^9}], Cell[BoxData["31"], "Output", CellChangeTimes->{3.5710451640245733`*^9}], Cell[BoxData["9"], "Output", CellChangeTimes->{3.5710451640401735`*^9}] }, Open ]], Cell[BoxData[{ RowBox[{ RowBox[{"wxc", "=", RowBox[{"Table", "[", RowBox[{ RowBox[{ RowBox[{ RowBox[{ RowBox[{"(", RowBox[{ RowBox[{"a", "[", RowBox[{"[", RowBox[{"i", ",", "3"}], "]"}], "]"}], "+", RowBox[{"u2", "[", RowBox[{"[", RowBox[{"a", "[", RowBox[{"[", RowBox[{"i", ",", "1"}], "]"}], "]"}], "]"}], "]"}]}], ")"}], "/", RowBox[{"(", RowBox[{ RowBox[{"u2", "[", RowBox[{"[", RowBox[{"a", "[", RowBox[{"[", RowBox[{"i", ",", "1"}], "]"}], "]"}], "]"}], "]"}], "+", RowBox[{"2", "*", RowBox[{"a", "[", RowBox[{"[", RowBox[{"i", ",", "3"}], "]"}], "]"}]}], "+", RowBox[{"u2", "[", RowBox[{"[", RowBox[{"a", "[", RowBox[{"[", RowBox[{"i", ",", "2"}], "]"}], "]"}], "]"}], "]"}]}], ")"}]}], "*", RowBox[{"(", RowBox[{ RowBox[{"x", "[", RowBox[{"[", RowBox[{"a", "[", RowBox[{"[", RowBox[{"i", ",", "2"}], "]"}], "]"}], "]"}], "]"}], "-", RowBox[{"x", "[", RowBox[{"[", RowBox[{"a", "[", RowBox[{"[", RowBox[{"i", ",", "1"}], "]"}], "]"}], "]"}], "]"}]}], ")"}]}], "+", RowBox[{"x", "[", RowBox[{"[", RowBox[{"a", "[", RowBox[{"[", RowBox[{"i", ",", "1"}], "]"}], "]"}], "]"}], "]"}]}], ",", RowBox[{"{", RowBox[{"i", ",", "1", ",", "cw"}], "}"}]}], "]"}]}], ";"}], "\n", RowBox[{ RowBox[{ RowBox[{"wyc", "=", RowBox[{"Table", "[", RowBox[{ RowBox[{ RowBox[{ RowBox[{ RowBox[{"(", RowBox[{ RowBox[{"a", "[", RowBox[{"[", RowBox[{"i", ",", "3"}], "]"}], "]"}], "+", RowBox[{"u2", "[", RowBox[{"[", RowBox[{"a", "[", RowBox[{"[", RowBox[{"i", ",", "1"}], "]"}], "]"}], "]"}], "]"}]}], ")"}], "/", RowBox[{"(", RowBox[{ RowBox[{"u2", "[", RowBox[{"[", RowBox[{"a", "[", RowBox[{"[", RowBox[{"i", ",", "1"}], "]"}], "]"}], "]"}], "]"}], "+", RowBox[{"2", "*", RowBox[{"a", "[", RowBox[{"[", RowBox[{"i", ",", "3"}], "]"}], "]"}]}], "+", RowBox[{"u2", "[", RowBox[{"[", RowBox[{"a", "[", RowBox[{"[", RowBox[{"i", ",", "2"}], "]"}], "]"}], "]"}], "]"}]}], ")"}]}], "*", RowBox[{"(", RowBox[{ RowBox[{"y", "[", RowBox[{"[", RowBox[{"a", "[", RowBox[{"[", RowBox[{"i", ",", "2"}], "]"}], "]"}], "]"}], "]"}], "-", RowBox[{"y", "[", RowBox[{"[", RowBox[{"a", "[", RowBox[{"[", RowBox[{"i", ",", "1"}], "]"}], "]"}], "]"}], "]"}]}], ")"}]}], "+", RowBox[{"y", "[", RowBox[{"[", RowBox[{"a", "[", RowBox[{"[", RowBox[{"i", ",", "1"}], "]"}], "]"}], "]"}], "]"}]}], ",", RowBox[{"{", RowBox[{"i", ",", "1", ",", "cw"}], "}"}]}], "]"}]}], ";"}], " "}], "\n", RowBox[{ RowBox[{"wzc", "=", RowBox[{"Table", "[", RowBox[{ RowBox[{ RowBox[{ RowBox[{ RowBox[{"(", RowBox[{ RowBox[{"a", "[", RowBox[{"[", RowBox[{"i", ",", "3"}], "]"}], "]"}], "+", RowBox[{"u2", "[", RowBox[{"[", RowBox[{"a", "[", RowBox[{"[", RowBox[{"i", ",", "1"}], "]"}], "]"}], "]"}], "]"}]}], ")"}], "/", RowBox[{"(", RowBox[{ RowBox[{"u2", "[", RowBox[{"[", RowBox[{"a", "[", RowBox[{"[", RowBox[{"i", ",", "1"}], "]"}], "]"}], "]"}], "]"}], "+", RowBox[{"2", "*", RowBox[{"a", "[", RowBox[{"[", RowBox[{"i", ",", "3"}], "]"}], "]"}]}], "+", RowBox[{"u2", "[", RowBox[{"[", RowBox[{"a", "[", RowBox[{"[", RowBox[{"i", ",", "2"}], "]"}], "]"}], "]"}], "]"}]}], ")"}]}], "*", RowBox[{"(", RowBox[{ RowBox[{"z", "[", RowBox[{"[", RowBox[{"a", "[", RowBox[{"[", RowBox[{"i", ",", "2"}], "]"}], "]"}], "]"}], "]"}], "-", RowBox[{"z", "[", RowBox[{"[", RowBox[{"a", "[", RowBox[{"[", RowBox[{"i", ",", "1"}], "]"}], "]"}], "]"}], "]"}]}], ")"}]}], "+", RowBox[{"z", "[", RowBox[{"[", RowBox[{"a", "[", RowBox[{"[", RowBox[{"i", ",", "1"}], "]"}], "]"}], "]"}], "]"}]}], ",", RowBox[{"{", RowBox[{"i", ",", "1", ",", "cw"}], "}"}]}], "]"}]}], ";"}]}], "Input", CellChangeTimes->{{3.5681365021632137`*^9, 3.5681365171392403`*^9}, { 3.568136560351316*^9, 3.5681365863097615`*^9}, {3.5681369135895367`*^9, 3.5681369265999594`*^9}, {3.568137821916732*^9, 3.5681378378443604`*^9}, { 3.5682072492149415`*^9, 3.5682072529901485`*^9}, 3.568209802830227*^9, { 3.5682216503836985`*^9, 3.5682217583046885`*^9}, {3.5682217912831464`*^9, 3.568221843465238*^9}, {3.5682219760654707`*^9, 3.5682221133457117`*^9}, { 3.568222159615393*^9, 3.5682221693498106`*^9}, {3.5682222565227633`*^9, 3.5682222578487663`*^9}, 3.5682224736283445`*^9, 3.5682227227607822`*^9, 3.5682227558640404`*^9, {3.568222818810151*^9, 3.5682228486062036`*^9}, { 3.5682230057764797`*^9, 3.5682230079916835`*^9}, {3.568223041952943*^9, 3.5682230548229656`*^9}, 3.5682232619601297`*^9, 3.5682233000709963`*^9, { 3.568223536645412*^9, 3.5682235381118145`*^9}, {3.568223591151908*^9, 3.568223591526308*^9}, {3.5682236491528096`*^9, 3.568223657483224*^9}, { 3.568223713222122*^9, 3.5682237532361927`*^9}, {3.568223800379475*^9, 3.568223827648323*^9}, {3.5682238887380304`*^9, 3.5682238893152313`*^9}, { 3.5682240287170763`*^9, 3.5682240612431335`*^9}, 3.5682241088076167`*^9, { 3.568224198772975*^9, 3.5682242396450467`*^9}, {3.568224282170721*^9, 3.5682243185031853`*^9}, {3.568224437890195*^9, 3.568224439590598*^9}, { 3.568224572253231*^9, 3.5682245867144566`*^9}, {3.5682247081762695`*^9, 3.568224733557514*^9}, {3.56822480520844*^9, 3.5682248433505073`*^9}, { 3.568224884206979*^9, 3.5682248959069996`*^9}, {3.568224982830352*^9, 3.5682250047639904`*^9}, {3.56822503870965*^9, 3.5682250803305235`*^9}, { 3.5682251223413973`*^9, 3.568225141451431*^9}, {3.568225234177994*^9, 3.5682252929588966`*^9}, {3.5682253775890455`*^9, 3.568225482140429*^9}, { 3.56822551694409*^9, 3.5682255297205124`*^9}, {3.568225573197789*^9, 3.5682255809666023`*^9}, 3.568225660698343*^9, 3.5682257301964645`*^9, { 3.568225765078126*^9, 3.5682257828933573`*^9}, {3.568225927026843*^9, 3.568225927416844*^9}, {3.568267062420238*^9, 3.568267081358671*^9}, { 3.568267188328059*^9, 3.5682672830358257`*^9}, {3.5682676367040462`*^9, 3.568267747979042*^9}, 3.5682678404716043`*^9, 3.568267882030078*^9, { 3.5682679252577534`*^9, 3.568267996612279*^9}, {3.5682680488879704`*^9, 3.568268061133992*^9}, {3.568268100914062*^9, 3.5682681150944867`*^9}, { 3.5682681672609787`*^9, 3.5682681709113846`*^9}, {3.568268272904364*^9, 3.5682683182536435`*^9}, {3.5682685202739983`*^9, 3.568268599194537*^9}, { 3.5682686348873997`*^9, 3.568268637773405*^9}, {3.5682686944951043`*^9, 3.568268872273017*^9}, {3.5682689420207396`*^9, 3.568269016947671*^9}, { 3.5682695040741262`*^9, 3.568269601153097*^9}, {3.5682696652380095`*^9, 3.5682696728352227`*^9}, {3.5682697489633565`*^9, 3.5682698308635006`*^9}, {3.568271156491429*^9, 3.568271160063835*^9}, { 3.568271244927984*^9, 3.568271369010602*^9}, {3.5682716250070515`*^9, 3.5682717312276382`*^9}, {3.5682717843301315`*^9, 3.5682718576814604`*^9}, {3.568271940673606*^9, 3.5682720536490045`*^9}, { 3.5682722259669075`*^9, 3.5682723223126764`*^9}, {3.568272370813162*^9, 3.568272411466833*^9}, {3.5682725893539457`*^9, 3.568272622238803*^9}, { 3.5682726936713285`*^9, 3.5682726960113325`*^9}, {3.568272741079812*^9, 3.56827275143823*^9}, {3.5682729218373294`*^9, 3.568272991070251*^9}, { 3.5682734285574193`*^9, 3.5682734302890224`*^9}, {3.5682734898811274`*^9, 3.5682735111595645`*^9}, {3.5682736115925407`*^9, 3.5682736313577757`*^9}, {3.5682738601945777`*^9, 3.568273987272401*^9}, { 3.5682763944346285`*^9, 3.5682764313910933`*^9}, 3.5682765128232365`*^9, { 3.5682766527398825`*^9, 3.568276660976697*^9}, {3.5682774496048822`*^9, 3.568277461663703*^9}, {3.5683784032731285`*^9, 3.568378422991563*^9}, { 3.568378459308427*^9, 3.5683784812420654`*^9}, {3.568378513440522*^9, 3.568378867046343*^9}, {3.568378915468828*^9, 3.56837896203491*^9}, { 3.5683790764299107`*^9, 3.568379270041851*^9}, {3.568380233530743*^9, 3.568380234388745*^9}, 3.5683804214954734`*^9, 3.568380471867962*^9, 3.5683805399464817`*^9, {3.5683812396077104`*^9, 3.568381293537005*^9}, { 3.568381339541486*^9, 3.5683813935175805`*^9}, 3.5684646396646404`*^9, 3.5684646988823442`*^9, 3.568465086387025*^9, {3.5684655859935026`*^9, 3.568465605087936*^9}, 3.568821235038273*^9, 3.5688233741452303`*^9, 3.568823449742963*^9, 3.5688274593312387`*^9, {3.5688284679978104`*^9, 3.5688284689026117`*^9}, {3.5688285131598897`*^9, 3.5688285201487017`*^9}, 3.5688285866360188`*^9, {3.5688292397623663`*^9, 3.568829246688778*^9}, { 3.5688780328231993`*^9, 3.568878075458074*^9}, 3.5688953020257144`*^9, 3.5693395777359695`*^9, {3.569339615191635*^9, 3.569339617079238*^9}, { 3.5693396917877693`*^9, 3.56933969216217*^9}, 3.5693893483274703`*^9}], Cell[BoxData[ RowBox[{ RowBox[{"Plot7", "=", RowBox[{"Table", "[", RowBox[{ RowBox[{"Graphics3D", "[", RowBox[{"{", RowBox[{ RowBox[{"Lighter", "[", RowBox[{"Brown", ",", "0.6"}], "]"}], ",", RowBox[{"Opacity", "[", "0.6", "]"}], ",", RowBox[{"If", "[", RowBox[{ RowBox[{ RowBox[{"wxc", "[", RowBox[{"[", "i", "]"}], "]"}], "\[NotEqual]", "0"}], ",", RowBox[{"Sphere", "[", RowBox[{ RowBox[{"{", RowBox[{ RowBox[{"wxc", "[", RowBox[{"[", "i", "]"}], "]"}], ",", RowBox[{"wyc", "[", RowBox[{"[", "i", "]"}], "]"}], ",", RowBox[{"wzc", "[", RowBox[{"[", "i", "]"}], "]"}]}], "}"}], ",", RowBox[{"a", "[", RowBox[{"[", RowBox[{"i", ",", "3"}], "]"}], "]"}]}], "]"}]}], "]"}]}], "}"}], "]"}], ",", RowBox[{"{", RowBox[{"i", ",", "1", ",", "cw"}], "}"}]}], "]"}]}], ";"}]], "Input", CellChangeTimes->{{3.5681365021632137`*^9, 3.5681365171392403`*^9}, { 3.568136560351316*^9, 3.5681365863097615`*^9}, {3.5681369135895367`*^9, 3.5681369265999594`*^9}, {3.568137821916732*^9, 3.5681378378443604`*^9}, { 3.5682072492149415`*^9, 3.5682072529901485`*^9}, 3.568209802830227*^9, { 3.5682216503836985`*^9, 3.5682217583046885`*^9}, {3.5682217912831464`*^9, 3.568221843465238*^9}, {3.5682219760654707`*^9, 3.5682221133457117`*^9}, { 3.568222159615393*^9, 3.5682221693498106`*^9}, {3.5682222565227633`*^9, 3.5682222578487663`*^9}, 3.5682224736283445`*^9, 3.5682227227607822`*^9, 3.5682227558640404`*^9, {3.568222818810151*^9, 3.5682228486062036`*^9}, { 3.5682230057764797`*^9, 3.5682230079916835`*^9}, {3.568223041952943*^9, 3.5682230548229656`*^9}, 3.5682232619601297`*^9, 3.5682233000709963`*^9, { 3.568223536645412*^9, 3.5682235381118145`*^9}, {3.568223591151908*^9, 3.568223591526308*^9}, {3.5682236491528096`*^9, 3.568223657483224*^9}, { 3.568223713222122*^9, 3.5682237532361927`*^9}, {3.568223800379475*^9, 3.568223827648323*^9}, {3.5682238887380304`*^9, 3.5682238893152313`*^9}, { 3.5682240287170763`*^9, 3.5682240612431335`*^9}, 3.5682241088076167`*^9, { 3.568224198772975*^9, 3.5682242396450467`*^9}, {3.568224282170721*^9, 3.5682243185031853`*^9}, {3.568224437890195*^9, 3.568224439590598*^9}, { 3.568224572253231*^9, 3.5682245867144566`*^9}, {3.5682247081762695`*^9, 3.568224733557514*^9}, {3.56822480520844*^9, 3.5682248433505073`*^9}, { 3.568224884206979*^9, 3.5682248959069996`*^9}, {3.568224982830352*^9, 3.5682250047639904`*^9}, {3.56822503870965*^9, 3.5682250803305235`*^9}, { 3.5682251223413973`*^9, 3.568225141451431*^9}, {3.568225234177994*^9, 3.5682252929588966`*^9}, {3.5682253775890455`*^9, 3.568225482140429*^9}, { 3.56822551694409*^9, 3.5682255297205124`*^9}, {3.568225573197789*^9, 3.5682255809666023`*^9}, 3.568225660698343*^9, 3.5682257301964645`*^9, { 3.568225765078126*^9, 3.5682257828933573`*^9}, {3.568225927026843*^9, 3.568225927416844*^9}, {3.568267062420238*^9, 3.568267081358671*^9}, { 3.568267188328059*^9, 3.5682672830358257`*^9}, {3.5682676367040462`*^9, 3.568267747979042*^9}, 3.5682678404716043`*^9, 3.568267882030078*^9, { 3.5682679252577534`*^9, 3.568267996612279*^9}, {3.5682680488879704`*^9, 3.568268061133992*^9}, {3.568268100914062*^9, 3.5682681150944867`*^9}, { 3.5682681672609787`*^9, 3.5682681709113846`*^9}, {3.568268272904364*^9, 3.5682683182536435`*^9}, {3.5682685202739983`*^9, 3.568268599194537*^9}, { 3.5682686348873997`*^9, 3.568268637773405*^9}, {3.5682686944951043`*^9, 3.568268872273017*^9}, {3.5682689420207396`*^9, 3.568269016947671*^9}, { 3.5682695040741262`*^9, 3.568269601153097*^9}, {3.5682696652380095`*^9, 3.5682696728352227`*^9}, {3.5682697489633565`*^9, 3.5682698308635006`*^9}, {3.568271156491429*^9, 3.568271160063835*^9}, { 3.568271244927984*^9, 3.568271369010602*^9}, {3.5682716250070515`*^9, 3.5682717312276382`*^9}, {3.5682717843301315`*^9, 3.5682718576814604`*^9}, {3.568271940673606*^9, 3.5682720536490045`*^9}, { 3.5682722259669075`*^9, 3.5682723223126764`*^9}, {3.568272370813162*^9, 3.568272411466833*^9}, {3.5682725893539457`*^9, 3.568272622238803*^9}, { 3.5682726936713285`*^9, 3.5682726960113325`*^9}, {3.568272741079812*^9, 3.56827275143823*^9}, {3.5682729218373294`*^9, 3.568272991070251*^9}, { 3.5682734285574193`*^9, 3.5682734302890224`*^9}, {3.5682734898811274`*^9, 3.5682735111595645`*^9}, {3.5682736115925407`*^9, 3.5682736313577757`*^9}, {3.5682738601945777`*^9, 3.568273987272401*^9}, { 3.5682763944346285`*^9, 3.5682764313910933`*^9}, 3.5682765128232365`*^9, { 3.5682766527398825`*^9, 3.568276660976697*^9}, {3.5682774496048822`*^9, 3.568277461663703*^9}, {3.5683784032731285`*^9, 3.568378422991563*^9}, { 3.568378459308427*^9, 3.5683784812420654`*^9}, {3.568378513440522*^9, 3.568378867046343*^9}, {3.568378915468828*^9, 3.56837896203491*^9}, { 3.5683790764299107`*^9, 3.568379270041851*^9}, {3.568380233530743*^9, 3.568380234388745*^9}, 3.5683804214954734`*^9, 3.568380471867962*^9, 3.5683805399464817`*^9, {3.5683812396077104`*^9, 3.568381293537005*^9}, { 3.568381339541486*^9, 3.5683813935175805`*^9}, 3.5684646396646404`*^9, 3.5684646988823442`*^9, 3.568465086387025*^9, {3.5684655859935026`*^9, 3.568465605087936*^9}, 3.568821235038273*^9, 3.5688233741452303`*^9, 3.568823449742963*^9, 3.5688274593312387`*^9, {3.5688284679978104`*^9, 3.5688284689026117`*^9}, {3.5688285131598897`*^9, 3.5688285201487017`*^9}, 3.5688285866360188`*^9, {3.5688292397623663`*^9, 3.568829246688778*^9}, { 3.5688780328231993`*^9, 3.56887811871695*^9}, {3.568895331556566*^9, 3.5688953367201753`*^9}, 3.568895995276532*^9, {3.5693397032225895`*^9, 3.56933970331619*^9}, 3.569339737137049*^9, 3.569340055299608*^9, 3.569389360947892*^9, {3.570298060155057*^9, 3.570298071589877*^9}, { 3.5704539766451664`*^9, 3.5704539773627677`*^9}, {3.5709509139026003`*^9, 3.570950950500265*^9}, {3.570950995397144*^9, 3.5709510449896307`*^9}, { 3.570974064815357*^9, 3.5709741190878525`*^9}, {3.5709742487084804`*^9, 3.570974273528124*^9}}], Cell[BoxData[{ RowBox[{ RowBox[{"wxh", "=", RowBox[{"Table", "[", RowBox[{ RowBox[{ RowBox[{ RowBox[{ RowBox[{"(", RowBox[{ RowBox[{"a", "[", RowBox[{"[", RowBox[{"i", ",", "3"}], "]"}], "]"}], "+", RowBox[{"u2", "[", RowBox[{"[", RowBox[{"a", "[", RowBox[{"[", RowBox[{"i", ",", "2"}], "]"}], "]"}], "]"}], "]"}]}], ")"}], "/", RowBox[{"(", RowBox[{ RowBox[{"u2", "[", RowBox[{"[", RowBox[{"a", "[", RowBox[{"[", RowBox[{"i", ",", "1"}], "]"}], "]"}], "]"}], "]"}], "+", RowBox[{"a", "[", RowBox[{"[", RowBox[{"i", ",", "3"}], "]"}], "]"}], "+", RowBox[{"u2", "[", RowBox[{"[", RowBox[{"a", "[", RowBox[{"[", RowBox[{"i", ",", "2"}], "]"}], "]"}], "]"}], "]"}]}], ")"}]}], "*", RowBox[{"(", RowBox[{ RowBox[{"x", "[", RowBox[{"[", RowBox[{"a", "[", RowBox[{"[", RowBox[{"i", ",", "1"}], "]"}], "]"}], "]"}], "]"}], "-", RowBox[{"x", "[", RowBox[{"[", RowBox[{"a", "[", RowBox[{"[", RowBox[{"i", ",", "2"}], "]"}], "]"}], "]"}], "]"}]}], ")"}]}], "+", RowBox[{"x", "[", RowBox[{"[", RowBox[{"a", "[", RowBox[{"[", RowBox[{"i", ",", "2"}], "]"}], "]"}], "]"}], "]"}]}], ",", RowBox[{"{", RowBox[{"i", ",", RowBox[{"cw", "+", "1"}], ",", "nb"}], "}"}]}], "]"}]}], ";"}], "\n", RowBox[{ RowBox[{"wyh", "=", RowBox[{"Table", "[", RowBox[{ RowBox[{ RowBox[{ RowBox[{ RowBox[{"(", RowBox[{ RowBox[{"a", "[", RowBox[{"[", RowBox[{"i", ",", "3"}], "]"}], "]"}], "+", RowBox[{"u2", "[", RowBox[{"[", RowBox[{"a", "[", RowBox[{"[", RowBox[{"i", ",", "2"}], "]"}], "]"}], "]"}], "]"}]}], ")"}], "/", RowBox[{"(", RowBox[{ RowBox[{"u2", "[", RowBox[{"[", RowBox[{"a", "[", RowBox[{"[", RowBox[{"i", ",", "1"}], "]"}], "]"}], "]"}], "]"}], "+", RowBox[{"a", "[", RowBox[{"[", RowBox[{"i", ",", "3"}], "]"}], "]"}], "+", RowBox[{"u2", "[", RowBox[{"[", RowBox[{"a", "[", RowBox[{"[", RowBox[{"i", ",", "2"}], "]"}], "]"}], "]"}], "]"}]}], ")"}]}], "*", RowBox[{"(", RowBox[{ RowBox[{"y", "[", RowBox[{"[", RowBox[{"a", "[", RowBox[{"[", RowBox[{"i", ",", "1"}], "]"}], "]"}], "]"}], "]"}], "-", RowBox[{"y", "[", RowBox[{"[", RowBox[{"a", "[", RowBox[{"[", RowBox[{"i", ",", "2"}], "]"}], "]"}], "]"}], "]"}]}], ")"}]}], "+", RowBox[{"y", "[", RowBox[{"[", RowBox[{"a", "[", RowBox[{"[", RowBox[{"i", ",", "2"}], "]"}], "]"}], "]"}], "]"}]}], ",", RowBox[{"{", RowBox[{"i", ",", RowBox[{"cw", "+", "1"}], ",", "nb"}], "}"}]}], "]"}]}], ";"}], "\n", RowBox[{ RowBox[{"wzh", "=", RowBox[{"Table", "[", RowBox[{ RowBox[{ RowBox[{ RowBox[{ RowBox[{"(", RowBox[{ RowBox[{"a", "[", RowBox[{"[", RowBox[{"i", ",", "3"}], "]"}], "]"}], "+", RowBox[{"u2", "[", RowBox[{"[", RowBox[{"a", "[", RowBox[{"[", RowBox[{"i", ",", "2"}], "]"}], "]"}], "]"}], "]"}]}], ")"}], "/", RowBox[{"(", RowBox[{ RowBox[{"u2", "[", RowBox[{"[", RowBox[{"a", "[", RowBox[{"[", RowBox[{"i", ",", "1"}], "]"}], "]"}], "]"}], "]"}], "+", RowBox[{"a", "[", RowBox[{"[", RowBox[{"i", ",", "3"}], "]"}], "]"}], "+", RowBox[{"u2", "[", RowBox[{"[", RowBox[{"a", "[", RowBox[{"[", RowBox[{"i", ",", "2"}], "]"}], "]"}], "]"}], "]"}]}], ")"}]}], "*", RowBox[{"(", RowBox[{ RowBox[{"z", "[", RowBox[{"[", RowBox[{"a", "[", RowBox[{"[", RowBox[{"i", ",", "1"}], "]"}], "]"}], "]"}], "]"}], "-", RowBox[{"z", "[", RowBox[{"[", RowBox[{"a", "[", RowBox[{"[", RowBox[{"i", ",", "2"}], "]"}], "]"}], "]"}], "]"}]}], ")"}]}], "+", RowBox[{"z", "[", RowBox[{"[", RowBox[{"a", "[", RowBox[{"[", RowBox[{"i", ",", "2"}], "]"}], "]"}], "]"}], "]"}]}], ",", RowBox[{"{", RowBox[{"i", ",", RowBox[{"cw", "+", "1"}], ",", "nb"}], "}"}]}], "]"}]}], ";"}]}], "Input", CellChangeTimes->{{3.5681365021632137`*^9, 3.5681365171392403`*^9}, { 3.568136560351316*^9, 3.5681365863097615`*^9}, {3.5681369135895367`*^9, 3.5681369265999594`*^9}, {3.568137821916732*^9, 3.5681378378443604`*^9}, { 3.5682072492149415`*^9, 3.5682072529901485`*^9}, 3.568209802830227*^9, { 3.5682216503836985`*^9, 3.5682217583046885`*^9}, {3.5682217912831464`*^9, 3.568221843465238*^9}, {3.5682219760654707`*^9, 3.5682221133457117`*^9}, { 3.568222159615393*^9, 3.5682221693498106`*^9}, {3.5682222565227633`*^9, 3.5682222578487663`*^9}, 3.5682224736283445`*^9, 3.5682227227607822`*^9, 3.5682227558640404`*^9, {3.568222818810151*^9, 3.5682228486062036`*^9}, { 3.5682230057764797`*^9, 3.5682230079916835`*^9}, {3.568223041952943*^9, 3.5682230548229656`*^9}, 3.5682232619601297`*^9, 3.5682233000709963`*^9, { 3.568223536645412*^9, 3.5682235381118145`*^9}, {3.568223591151908*^9, 3.568223591526308*^9}, {3.5682236491528096`*^9, 3.568223657483224*^9}, { 3.568223713222122*^9, 3.5682237532361927`*^9}, {3.568223800379475*^9, 3.568223827648323*^9}, {3.5682238887380304`*^9, 3.5682238893152313`*^9}, { 3.5682240287170763`*^9, 3.5682240612431335`*^9}, 3.5682241088076167`*^9, { 3.568224198772975*^9, 3.5682242396450467`*^9}, {3.568224282170721*^9, 3.5682243185031853`*^9}, {3.568224437890195*^9, 3.568224439590598*^9}, { 3.568224572253231*^9, 3.5682245867144566`*^9}, {3.5682247081762695`*^9, 3.568224733557514*^9}, {3.56822480520844*^9, 3.5682248433505073`*^9}, { 3.568224884206979*^9, 3.5682248959069996`*^9}, {3.568224982830352*^9, 3.5682250047639904`*^9}, {3.56822503870965*^9, 3.5682250803305235`*^9}, { 3.5682251223413973`*^9, 3.568225141451431*^9}, {3.568225234177994*^9, 3.5682252929588966`*^9}, {3.5682253775890455`*^9, 3.568225482140429*^9}, { 3.56822551694409*^9, 3.5682255297205124`*^9}, {3.568225573197789*^9, 3.5682255809666023`*^9}, 3.568225660698343*^9, 3.5682257301964645`*^9, { 3.568225765078126*^9, 3.5682257828933573`*^9}, {3.568225927026843*^9, 3.568225927416844*^9}, {3.568267062420238*^9, 3.568267081358671*^9}, { 3.568267188328059*^9, 3.5682672830358257`*^9}, {3.5682676367040462`*^9, 3.568267747979042*^9}, 3.5682678404716043`*^9, 3.568267882030078*^9, { 3.5682679252577534`*^9, 3.568267996612279*^9}, {3.5682680488879704`*^9, 3.568268061133992*^9}, {3.568268100914062*^9, 3.5682681150944867`*^9}, { 3.5682681672609787`*^9, 3.5682681709113846`*^9}, {3.568268272904364*^9, 3.5682683182536435`*^9}, {3.5682685202739983`*^9, 3.568268599194537*^9}, { 3.5682686348873997`*^9, 3.568268637773405*^9}, {3.5682686944951043`*^9, 3.568268872273017*^9}, {3.5682689420207396`*^9, 3.568269016947671*^9}, { 3.5682695040741262`*^9, 3.568269601153097*^9}, {3.5682696652380095`*^9, 3.5682696728352227`*^9}, {3.5682697489633565`*^9, 3.5682698308635006`*^9}, {3.568271156491429*^9, 3.568271160063835*^9}, { 3.568271244927984*^9, 3.568271369010602*^9}, {3.5682716250070515`*^9, 3.5682717312276382`*^9}, {3.5682717843301315`*^9, 3.5682718576814604`*^9}, {3.568271940673606*^9, 3.5682720536490045`*^9}, { 3.5682722259669075`*^9, 3.5682723223126764`*^9}, {3.568272370813162*^9, 3.568272411466833*^9}, {3.5682725893539457`*^9, 3.568272622238803*^9}, { 3.5682726936713285`*^9, 3.5682726960113325`*^9}, {3.568272741079812*^9, 3.56827275143823*^9}, {3.5682729218373294`*^9, 3.568272991070251*^9}, { 3.5682734285574193`*^9, 3.5682734302890224`*^9}, {3.5682734898811274`*^9, 3.5682735111595645`*^9}, {3.5682736115925407`*^9, 3.5682736313577757`*^9}, {3.5682738601945777`*^9, 3.568273987272401*^9}, { 3.5682763944346285`*^9, 3.5682764313910933`*^9}, 3.5682765128232365`*^9, { 3.5682766527398825`*^9, 3.568276660976697*^9}, {3.5682774496048822`*^9, 3.568277461663703*^9}, {3.5683784032731285`*^9, 3.568378422991563*^9}, { 3.568378459308427*^9, 3.5683784812420654`*^9}, {3.568378513440522*^9, 3.568378867046343*^9}, {3.568378915468828*^9, 3.56837896203491*^9}, { 3.5683790764299107`*^9, 3.568379270041851*^9}, {3.568380233530743*^9, 3.568380234388745*^9}, 3.5683804214954734`*^9, 3.568380471867962*^9, 3.5683805399464817`*^9, {3.5683812396077104`*^9, 3.568381293537005*^9}, { 3.568381339541486*^9, 3.5683813935175805`*^9}, 3.5684646396646404`*^9, 3.5684646988823442`*^9, 3.568465086387025*^9, {3.5684655859935026`*^9, 3.568465605087936*^9}, 3.568821235038273*^9, 3.5688233741452303`*^9, 3.568823449742963*^9, 3.5688274593312387`*^9, {3.5688284679978104`*^9, 3.5688284689026117`*^9}, {3.5688285131598897`*^9, 3.5688285201487017`*^9}, 3.5688285866360188`*^9, {3.5688292397623663`*^9, 3.568829246688778*^9}, { 3.5688780328231993`*^9, 3.5688781280925665`*^9}, 3.568895312524533*^9, 3.5693395940691977`*^9, {3.5693396336776676`*^9, 3.5693396557829065`*^9}, { 3.569340069402033*^9, 3.569340092412073*^9}, {3.569389186383586*^9, 3.5693891947764006`*^9}, {3.569389263291721*^9, 3.569389289686967*^9}, 3.569389336315449*^9}], Cell[BoxData[ RowBox[{ RowBox[{"Plot8", "=", RowBox[{"Table", "[", RowBox[{ RowBox[{"Graphics3D", "[", RowBox[{"{", RowBox[{ RowBox[{"Opacity", "[", "0.5", "]"}], ",", RowBox[{"Sphere", "[", RowBox[{ RowBox[{"{", RowBox[{ RowBox[{"wxh", "[", RowBox[{"[", "i", "]"}], "]"}], ",", RowBox[{"wyh", "[", RowBox[{"[", "i", "]"}], "]"}], ",", RowBox[{"wzh", "[", RowBox[{"[", "i", "]"}], "]"}]}], "}"}], ",", RowBox[{"a", "[", RowBox[{"[", RowBox[{ RowBox[{"i", "+", "cw"}], ",", "3"}], "]"}], "]"}]}], "]"}]}], "}"}], "]"}], ",", RowBox[{"{", RowBox[{"i", ",", "1", ",", "bh"}], "}"}]}], "]"}]}], ";"}]], "Input", CellChangeTimes->{{3.5681365021632137`*^9, 3.5681365171392403`*^9}, { 3.568136560351316*^9, 3.5681365863097615`*^9}, {3.5681369135895367`*^9, 3.5681369265999594`*^9}, {3.568137821916732*^9, 3.5681378378443604`*^9}, { 3.5682072492149415`*^9, 3.5682072529901485`*^9}, 3.568209802830227*^9, { 3.5682216503836985`*^9, 3.5682217583046885`*^9}, {3.5682217912831464`*^9, 3.568221843465238*^9}, {3.5682219760654707`*^9, 3.5682221133457117`*^9}, { 3.568222159615393*^9, 3.5682221693498106`*^9}, {3.5682222565227633`*^9, 3.5682222578487663`*^9}, 3.5682224736283445`*^9, 3.5682227227607822`*^9, 3.5682227558640404`*^9, {3.568222818810151*^9, 3.5682228486062036`*^9}, { 3.5682230057764797`*^9, 3.5682230079916835`*^9}, {3.568223041952943*^9, 3.5682230548229656`*^9}, 3.5682232619601297`*^9, 3.5682233000709963`*^9, { 3.568223536645412*^9, 3.5682235381118145`*^9}, {3.568223591151908*^9, 3.568223591526308*^9}, {3.5682236491528096`*^9, 3.568223657483224*^9}, { 3.568223713222122*^9, 3.5682237532361927`*^9}, {3.568223800379475*^9, 3.568223827648323*^9}, {3.5682238887380304`*^9, 3.5682238893152313`*^9}, { 3.5682240287170763`*^9, 3.5682240612431335`*^9}, 3.5682241088076167`*^9, { 3.568224198772975*^9, 3.5682242396450467`*^9}, {3.568224282170721*^9, 3.5682243185031853`*^9}, {3.568224437890195*^9, 3.568224439590598*^9}, { 3.568224572253231*^9, 3.5682245867144566`*^9}, {3.5682247081762695`*^9, 3.568224733557514*^9}, {3.56822480520844*^9, 3.5682248433505073`*^9}, { 3.568224884206979*^9, 3.5682248959069996`*^9}, {3.568224982830352*^9, 3.5682250047639904`*^9}, {3.56822503870965*^9, 3.5682250803305235`*^9}, { 3.5682251223413973`*^9, 3.568225141451431*^9}, {3.568225234177994*^9, 3.5682252929588966`*^9}, {3.5682253775890455`*^9, 3.568225482140429*^9}, { 3.56822551694409*^9, 3.5682255297205124`*^9}, {3.568225573197789*^9, 3.5682255809666023`*^9}, 3.568225660698343*^9, 3.5682257301964645`*^9, { 3.568225765078126*^9, 3.5682257828933573`*^9}, {3.568225927026843*^9, 3.568225927416844*^9}, {3.568267062420238*^9, 3.568267081358671*^9}, { 3.568267188328059*^9, 3.5682672830358257`*^9}, {3.5682676367040462`*^9, 3.568267747979042*^9}, 3.5682678404716043`*^9, 3.568267882030078*^9, { 3.5682679252577534`*^9, 3.568267996612279*^9}, {3.5682680488879704`*^9, 3.568268061133992*^9}, {3.568268100914062*^9, 3.5682681150944867`*^9}, { 3.5682681672609787`*^9, 3.5682681709113846`*^9}, {3.568268272904364*^9, 3.5682683182536435`*^9}, {3.5682685202739983`*^9, 3.568268599194537*^9}, { 3.5682686348873997`*^9, 3.568268637773405*^9}, {3.5682686944951043`*^9, 3.568268872273017*^9}, {3.5682689420207396`*^9, 3.568269016947671*^9}, { 3.5682695040741262`*^9, 3.568269601153097*^9}, {3.5682696652380095`*^9, 3.5682696728352227`*^9}, {3.5682697489633565`*^9, 3.5682698308635006`*^9}, {3.568271156491429*^9, 3.568271160063835*^9}, { 3.568271244927984*^9, 3.568271369010602*^9}, {3.5682716250070515`*^9, 3.5682717312276382`*^9}, {3.5682717843301315`*^9, 3.5682718576814604`*^9}, {3.568271940673606*^9, 3.5682720536490045`*^9}, { 3.5682722259669075`*^9, 3.5682723223126764`*^9}, {3.568272370813162*^9, 3.568272411466833*^9}, {3.5682725893539457`*^9, 3.568272622238803*^9}, { 3.5682726936713285`*^9, 3.5682726960113325`*^9}, {3.568272741079812*^9, 3.56827275143823*^9}, {3.5682729218373294`*^9, 3.568272991070251*^9}, { 3.5682734285574193`*^9, 3.5682734302890224`*^9}, {3.5682734898811274`*^9, 3.5682735111595645`*^9}, {3.5682736115925407`*^9, 3.5682736313577757`*^9}, {3.5682738601945777`*^9, 3.568273987272401*^9}, { 3.5682763944346285`*^9, 3.5682764313910933`*^9}, 3.5682765128232365`*^9, { 3.5682766527398825`*^9, 3.568276660976697*^9}, {3.5682774496048822`*^9, 3.568277461663703*^9}, {3.5683784032731285`*^9, 3.568378422991563*^9}, { 3.568378459308427*^9, 3.5683784812420654`*^9}, {3.568378513440522*^9, 3.568378867046343*^9}, {3.568378915468828*^9, 3.56837896203491*^9}, { 3.5683790764299107`*^9, 3.568379270041851*^9}, {3.568380233530743*^9, 3.568380234388745*^9}, 3.5683804214954734`*^9, 3.568380471867962*^9, 3.5683805399464817`*^9, {3.5683812396077104`*^9, 3.568381293537005*^9}, { 3.568381339541486*^9, 3.5683813935175805`*^9}, 3.5684646396646404`*^9, 3.5684646988823442`*^9, 3.568465086387025*^9, {3.5684655859935026`*^9, 3.568465605087936*^9}, 3.568821235038273*^9, 3.5688233741452303`*^9, 3.568823449742963*^9, 3.5688274593312387`*^9, {3.5688284679978104`*^9, 3.5688284689026117`*^9}, {3.5688285131598897`*^9, 3.5688285201487017`*^9}, 3.5688285866360188`*^9, {3.5688292397623663`*^9, 3.568829246688778*^9}, { 3.5688780328231993`*^9, 3.568878147967001*^9}, {3.56889532230575*^9, 3.5688953242557535`*^9}, 3.56889600529175*^9, 3.5688961595292206`*^9, { 3.5693396821781526`*^9, 3.5693396825213532`*^9}, 3.5693893658151007`*^9, { 3.5693895413934093`*^9, 3.5693895427506113`*^9}, {3.5697651043452682`*^9, 3.5697651089940763`*^9}, {3.5704647001766*^9, 3.570464712141821*^9}}], Cell[CellGroupData[{ Cell[BoxData[{ RowBox[{ RowBox[{"Plot9", "=", " ", RowBox[{"Table", "[", RowBox[{ RowBox[{"Graphics3D", "[", RowBox[{"{", RowBox[{"(*", RowBox[{ RowBox[{"Darker", "[", RowBox[{"Red", ",", "0.8"}], "]"}], ","}], "*)"}], RowBox[{"Tube", "[", RowBox[{ RowBox[{"{", RowBox[{ RowBox[{"{", RowBox[{ RowBox[{"x", "[", RowBox[{"[", RowBox[{"a", "[", RowBox[{"[", RowBox[{"i", ",", "1"}], "]"}], "]"}], "]"}], "]"}], ",", RowBox[{"y", "[", RowBox[{"[", RowBox[{"a", "[", RowBox[{"[", RowBox[{"i", ",", "1"}], "]"}], "]"}], "]"}], "]"}], ",", RowBox[{"z", "[", RowBox[{"[", RowBox[{"a", "[", RowBox[{"[", RowBox[{"i", ",", "1"}], "]"}], "]"}], "]"}], "]"}]}], "}"}], ",", RowBox[{"{", RowBox[{ RowBox[{"x", "[", RowBox[{"[", RowBox[{"a", "[", RowBox[{"[", RowBox[{"i", ",", "2"}], "]"}], "]"}], "]"}], "]"}], ",", RowBox[{"y", "[", RowBox[{"[", RowBox[{"a", "[", RowBox[{"[", RowBox[{"i", ",", "2"}], "]"}], "]"}], "]"}], "]"}], ",", RowBox[{"z", "[", RowBox[{"[", RowBox[{"a", "[", RowBox[{"[", RowBox[{"i", ",", "2"}], "]"}], "]"}], "]"}], "]"}]}], "}"}]}], "}"}], ",", "0.1"}], "]"}], "}"}], "]"}], ",", RowBox[{"{", RowBox[{"i", ",", "1", ",", "nb"}], "}"}]}], "]"}]}], ";"}], "\[IndentingNewLine]", RowBox[{"Show", "[", RowBox[{ "Plot1", ",", "Plot2", ",", "Plot7", ",", "Plot8", ",", "Plot9", ",", RowBox[{"{", RowBox[{ RowBox[{"AspectRatio", "\[Rule]", "Automatic"}], ",", RowBox[{"Boxed", "->", "False"}], ",", " ", RowBox[{"SphericalRegion", "\[Rule]", "True"}]}], "}"}]}], "]"}], "\[IndentingNewLine]", RowBox[{"Show", "[", RowBox[{"Plot1", ",", "Plot2", ",", "Plot9", ",", RowBox[{"{", RowBox[{ RowBox[{"AspectRatio", "\[Rule]", "Automatic"}], ",", RowBox[{"Boxed", "\[Rule]", "True"}], ",", " ", RowBox[{"SphericalRegion", "\[Rule]", "True"}]}], "}"}]}], "]"}], "\[IndentingNewLine]"}], "Input", CellChangeTimes->{{3.5681365021632137`*^9, 3.5681365171392403`*^9}, { 3.568136560351316*^9, 3.5681365863097615`*^9}, {3.5681369135895367`*^9, 3.5681369265999594`*^9}, {3.568137821916732*^9, 3.5681378378443604`*^9}, { 3.5682072492149415`*^9, 3.5682072529901485`*^9}, 3.568209802830227*^9, { 3.5682216503836985`*^9, 3.5682217583046885`*^9}, {3.5682217912831464`*^9, 3.568221843465238*^9}, {3.5682219760654707`*^9, 3.5682221133457117`*^9}, { 3.568222159615393*^9, 3.5682221693498106`*^9}, {3.5682222565227633`*^9, 3.5682222578487663`*^9}, 3.5682224736283445`*^9, 3.5682227227607822`*^9, 3.5682227558640404`*^9, {3.568222818810151*^9, 3.5682228486062036`*^9}, { 3.5682230057764797`*^9, 3.5682230079916835`*^9}, {3.568223041952943*^9, 3.5682230548229656`*^9}, 3.5682232619601297`*^9, 3.5682233000709963`*^9, { 3.568223536645412*^9, 3.5682235381118145`*^9}, {3.568223591151908*^9, 3.568223591526308*^9}, {3.5682236491528096`*^9, 3.568223657483224*^9}, { 3.568223713222122*^9, 3.5682237532361927`*^9}, {3.568223800379475*^9, 3.568223827648323*^9}, {3.5682238887380304`*^9, 3.5682238893152313`*^9}, { 3.5682240287170763`*^9, 3.5682240612431335`*^9}, 3.5682241088076167`*^9, { 3.568224198772975*^9, 3.5682242396450467`*^9}, {3.568224282170721*^9, 3.5682243185031853`*^9}, {3.568224437890195*^9, 3.568224439590598*^9}, { 3.568224572253231*^9, 3.5682245867144566`*^9}, {3.5682247081762695`*^9, 3.568224733557514*^9}, {3.56822480520844*^9, 3.5682248433505073`*^9}, { 3.568224884206979*^9, 3.5682248959069996`*^9}, {3.568224982830352*^9, 3.5682250047639904`*^9}, {3.56822503870965*^9, 3.5682250803305235`*^9}, { 3.5682251223413973`*^9, 3.568225141451431*^9}, {3.568225234177994*^9, 3.5682252929588966`*^9}, {3.5682253775890455`*^9, 3.568225482140429*^9}, { 3.56822551694409*^9, 3.5682255297205124`*^9}, {3.568225573197789*^9, 3.5682255809666023`*^9}, 3.568225660698343*^9, 3.5682257301964645`*^9, { 3.568225765078126*^9, 3.5682257828933573`*^9}, {3.568225927026843*^9, 3.568225927416844*^9}, {3.568267062420238*^9, 3.568267081358671*^9}, { 3.568267188328059*^9, 3.5682672830358257`*^9}, {3.5682676367040462`*^9, 3.568267747979042*^9}, 3.5682678404716043`*^9, 3.568267882030078*^9, { 3.5682679252577534`*^9, 3.568267996612279*^9}, {3.5682680488879704`*^9, 3.568268061133992*^9}, {3.568268100914062*^9, 3.5682681150944867`*^9}, { 3.5682681672609787`*^9, 3.5682681709113846`*^9}, {3.568268272904364*^9, 3.5682683182536435`*^9}, {3.5682685202739983`*^9, 3.568268599194537*^9}, { 3.5682686348873997`*^9, 3.568268637773405*^9}, {3.5682686944951043`*^9, 3.568268872273017*^9}, {3.5682689420207396`*^9, 3.568269016947671*^9}, { 3.5682695040741262`*^9, 3.568269601153097*^9}, {3.5682696652380095`*^9, 3.5682696728352227`*^9}, {3.5682697489633565`*^9, 3.5682698308635006`*^9}, {3.568271156491429*^9, 3.568271160063835*^9}, { 3.568271244927984*^9, 3.568271369010602*^9}, {3.5682716250070515`*^9, 3.5682717312276382`*^9}, {3.5682717843301315`*^9, 3.5682718576814604`*^9}, {3.568271940673606*^9, 3.5682720536490045`*^9}, { 3.5682722259669075`*^9, 3.5682723223126764`*^9}, {3.568272370813162*^9, 3.568272411466833*^9}, {3.5682725893539457`*^9, 3.568272622238803*^9}, { 3.5682726936713285`*^9, 3.5682726960113325`*^9}, {3.568272741079812*^9, 3.56827275143823*^9}, {3.5682729218373294`*^9, 3.568272991070251*^9}, { 3.5682734285574193`*^9, 3.5682734302890224`*^9}, {3.5682734898811274`*^9, 3.5682735111595645`*^9}, {3.5682736115925407`*^9, 3.5682736313577757`*^9}, {3.5682738601945777`*^9, 3.568273987272401*^9}, { 3.5682763944346285`*^9, 3.5682764313910933`*^9}, 3.5682765128232365`*^9, { 3.5682766527398825`*^9, 3.568276660976697*^9}, {3.5682774496048822`*^9, 3.568277461663703*^9}, {3.5683784032731285`*^9, 3.568378422991563*^9}, { 3.568378459308427*^9, 3.5683784812420654`*^9}, {3.568378513440522*^9, 3.568378867046343*^9}, {3.568378915468828*^9, 3.56837896203491*^9}, { 3.5683790764299107`*^9, 3.568379270041851*^9}, {3.568380233530743*^9, 3.568380234388745*^9}, 3.5683804214954734`*^9, 3.568380471867962*^9, 3.5683805399464817`*^9, {3.5683812396077104`*^9, 3.568381293537005*^9}, { 3.568381339541486*^9, 3.568381420224828*^9}, {3.5684645223056345`*^9, 3.5684645572340956`*^9}, {3.5684651558539467`*^9, 3.5684651618911576`*^9}, {3.5688209923798466`*^9, 3.568820997683856*^9}, { 3.568821158754139*^9, 3.568821160750942*^9}, 3.56882222404881*^9, { 3.568822649274357*^9, 3.5688226508031597`*^9}, 3.568822723109287*^9, { 3.5693397221142225`*^9, 3.5693397223326235`*^9}, {3.5693899272912874`*^9, 3.5693899274472876`*^9}, {3.5693910617720795`*^9, 3.5693910848757205`*^9}, 3.5693911374166126`*^9, {3.569391214402748*^9, 3.5693912147147484`*^9}, 3.569391451944365*^9, {3.569391487793228*^9, 3.569391507620863*^9}, { 3.5693923162258854`*^9, 3.5693923173958874`*^9}, {3.569406068526634*^9, 3.569406086092265*^9}, 3.569690172138941*^9, 3.569780036185542*^9, { 3.570453906913044*^9, 3.5704539079894457`*^9}, {3.570454575670618*^9, 3.5704545899602437`*^9}, {3.570454765008151*^9, 3.570454772277764*^9}, 3.5708553779481487`*^9, {3.5709431726830034`*^9, 3.570943174555007*^9}, { 3.5709495710522423`*^9, 3.5709495907082767`*^9}, {3.570949647617176*^9, 3.570949673138821*^9}, {3.570950759321929*^9, 3.5709507772775607`*^9}, { 3.5709508127364225`*^9, 3.5709508405200715`*^9}, {3.570991123104905*^9, 3.570991124259307*^9}, {3.5709912161278687`*^9, 3.570991227937089*^9}, { 3.5709912804155817`*^9, 3.570991308776431*^9}, {3.5709914026885962`*^9, 3.5709914215490294`*^9}, {3.570991574429298*^9, 3.5709916038821497`*^9}, 3.570991652445035*^9, 3.570991830004547*^9, 3.570991865276209*^9, { 3.5709919181759014`*^9, 3.5709919260539155`*^9}, {3.570992027251293*^9, 3.570992050058533*^9}, 3.5709920901350036`*^9, 3.570992186979974*^9, 3.5710436291378775`*^9}], Cell[BoxData[ Graphics3DBox[{ {RGBColor[0.7333333333333333, 0.6, 0.4666666666666667], SphereBox[{-1.2186842973999998`, -0.7166596882399999, 0.06219844156399999}, 0.255]}, {RGBColor[0.7333333333333333, 0.6, 0.4666666666666667], SphereBox[{1.2590110502399998`, 0.72493668812, -0.076027456432}, 0.255]}, {RGBColor[0.7333333333333333, 0.6, 0.4666666666666667], SphereBox[{-3.0840328319999997`, 0.0047539836982, -2.0082118201999997`}, 0.255]}, {RGBColor[0.7333333333333333, 0.6, 0.4666666666666667], SphereBox[{3.0745842019999996`, -0.006646733259799999, 2.0114243544}, 0.255]}, {RGBColor[0.7333333333333333, 0.6, 0.4666666666666667], SphereBox[{-5.588864645, -1.4781436771999998`, -1.8902929177999999`}, 0.255]}, {RGBColor[0.7333333333333333, 0.6, 0.4666666666666667], SphereBox[{5.5796049876, 1.4762539512, 1.8933164794}, 0.255]}, {RGBColor[0.7333333333333333, 0.6, 0.4666666666666667], SphereBox[{-7.4604492754, -0.71964545532, -3.957086244}, 0.255]}, {RGBColor[0.7333333333333333, 0.6, 0.4666666666666667], SphereBox[{7.451189618, 0.71775572932, 3.9602987782}, 0.255]}, {RGBColor[0.7333333333333333, 0.6, 0.4666666666666667], SphereBox[{-9.931832938200001, -2.1983182558, -3.8223487802}, 0.255]}, {RGBColor[0.7333333333333333, 0.6, 0.4666666666666667], SphereBox[{9.9225732808, 2.1964285298, 3.8255613144}, 0.255]}, {RGBColor[0.7333333333333333, 0.6, 0.4666666666666667], SphereBox[{-0.7819686188, -2.6750961256, -0.186929806194}, 0.1]}, {RGBColor[0.7333333333333333, 0.6, 0.4666666666666667], SphereBox[{-2.076808874, -0.3442135909, 1.854766069}, 0.1]}, {RGBColor[0.7333333333333333, 0.6, 0.4666666666666667], SphereBox[{0.8371297207399999, 2.6905918788, 0.13968854592}, 0.1]}, {RGBColor[0.7333333333333333, 0.6, 0.4666666666666667], SphereBox[{2.1329337362, 0.34154907724, -1.85852662374}, 0.1]}, {RGBColor[0.7333333333333333, 0.6, 0.4666666666666667], SphereBox[{-3.5377560446, 1.9571892181999997`, -1.7432722349999998`}, 0.1]}, {RGBColor[0.7333333333333333, 0.6, 0.4666666666666667], SphereBox[{-2.2168375706, -0.34689700182, -3.8006169312}, 0.1]}, {RGBColor[0.7333333333333333, 0.6, 0.4666666666666667], SphereBox[{3.5137565243999997`, -1.9666378481999998`, 1.7798384331}, 0.1]}, {RGBColor[0.7333333333333333, 0.6, 0.4666666666666667], SphereBox[{2.1913262695999998`, 0.35627004278, 3.7938139175999996`}, 0.1]}, {RGBColor[0.7333333333333333, 0.6, 0.4666666666666667], SphereBox[{-5.1444010898, -3.430797553, -2.1697833932}, 0.1]}, {RGBColor[0.7333333333333333, 0.6, 0.4666666666666667], SphereBox[{-6.4488789476, -1.1446070382, -0.09078054731399998}, 0.1]}, {RGBColor[0.7333333333333333, 0.6, 0.4666666666666667], SphereBox[{5.1351414324, 3.4289078269999997`, 2.1729959273999997`}, 0.1]}, {RGBColor[0.7333333333333333, 0.6, 0.4666666666666667], SphereBox[{6.4396192902, 1.1427173121999998`, 0.09397985343200001}, 0.1]}, {RGBColor[0.7333333333333333, 0.6, 0.4666666666666667], SphereBox[{-7.904723858, 1.23480366018, -3.6895010424}, 0.1]}, {RGBColor[0.7333333333333333, 0.6, 0.4666666666666667], SphereBox[{-6.6047813426, -1.0539379847199999`, -5.758184094599999}, 0.1]}, {RGBColor[0.7333333333333333, 0.6, 0.4666666666666667], SphereBox[{7.895275228, -1.2366933861799998`, 3.6927135765999997`}, 0.1]}, {RGBColor[0.7333333333333333, 0.6, 0.4666666666666667], SphereBox[{6.595332712599999, 1.05204825872, 5.7613966288}, 0.1]}, {RGBColor[0.7333333333333333, 0.6, 0.4666666666666667], SphereBox[{-9.548218560199999, -4.1727039806, -4.0304076127999995`}, 0.1]}, {RGBColor[0.7333333333333333, 0.6, 0.4666666666666667], SphereBox[{-10.8181144322, -1.8687311441399999`, -2.0350459294}, 0.1]}, {RGBColor[0.7333333333333333, 0.6, 0.4666666666666667], SphereBox[{-11.162611482, -1.59079024406, -5.307295471}, 0.1]}, {RGBColor[0.7333333333333333, 0.6, 0.4666666666666667], SphereBox[{10.8088547748, 1.8666713428, 2.0382584636}, 0.1]}, {RGBColor[0.7333333333333333, 0.6, 0.4666666666666667], SphereBox[{9.538769930199999, 4.1708142546, 4.033620147}, 0.1]}, {RGBColor[0.7333333333333333, 0.6, 0.4666666666666667], SphereBox[{11.1533518246, 1.58890051806, 5.310508005199999}, 0.1]}, Text3DBox["1", {-1.8186842974, -0.7166596882399999, 0.06219844156399999}, { 1, 0}], Text3DBox["2", {0.6590110502399998, 0.72493668812, -0.076027456432}, {1, 0}], Text3DBox["3", {-3.6840328319999998`, 0.0047539836982, -2.0082118201999997`}, {1, 0}], Text3DBox["4", {2.4745842019999995`, -0.006646733259799999, 2.0114243544}, {1, 0}], Text3DBox[ "5", {-6.188864645, -1.4781436771999998`, -1.8902929177999999`}, {1, 0}], Text3DBox["6", {4.9796049876, 1.4762539512, 1.8933164794}, {1, 0}], Text3DBox["7", {-8.0604492754, -0.71964545532, -3.957086244}, {1, 0}], Text3DBox["8", {6.851189618, 0.71775572932, 3.9602987782}, {1, 0}], Text3DBox["9", {-10.5318329382, -2.1983182558, -3.8223487802}, {1, 0}], Text3DBox["10", {9.3225732808, 2.1964285298, 3.8255613144}, {1, 0}], Text3DBox["11", {-1.3819686188, -2.6750961256, -0.186929806194}, {1, 0}], Text3DBox["12", {-2.6768088740000002`, -0.3442135909, 1.854766069}, {1, 0}], Text3DBox["13", {0.23712972073999994`, 2.6905918788, 0.13968854592}, {1, 0}], Text3DBox["14", {1.5329337362, 0.34154907724, -1.85852662374}, {1, 0}], Text3DBox["15", {-4.1377560446, 1.9571892181999997`, -1.7432722349999998`}, {1, 0}], Text3DBox["16", {-2.8168375706, -0.34689700182, -3.8006169312}, {1, 0}], Text3DBox["17", {2.9137565243999997`, -1.9666378481999998`, 1.7798384331}, {1, 0}], Text3DBox["18", {1.5913262695999997`, 0.35627004278, 3.7938139175999996`}, {1, 0}], Text3DBox["19", {-5.744401089799999, -3.430797553, -2.1697833932}, {1, 0}], Text3DBox["20", {-7.0488789476, -1.1446070382, -0.09078054731399998}, {1, 0}], Text3DBox["21", {4.535141432400001, 3.4289078269999997`, 2.1729959273999997`}, {1, 0}], Text3DBox["22", {5.8396192902, 1.1427173121999998`, 0.09397985343200001}, { 1, 0}], Text3DBox["23", {-8.504723858, 1.23480366018, -3.6895010424}, {1, 0}], Text3DBox[ "24", {-7.2047813426, -1.0539379847199999`, -5.758184094599999}, {1, 0}], Text3DBox["25", {7.295275228, -1.2366933861799998`, 3.6927135765999997`}, { 1, 0}], Text3DBox["26", {5.9953327126, 1.05204825872, 5.7613966288}, {1, 0}], Text3DBox[ "27", {-10.148218560199998`, -4.1727039806, -4.0304076127999995`}, {1, 0}], Text3DBox[ "28", {-11.4181144322, -1.8687311441399999`, -2.0350459294}, {1, 0}], Text3DBox["29", {-11.762611482, -1.59079024406, -5.307295471}, {1, 0}], Text3DBox["30", {10.2088547748, 1.8666713428, 2.0382584636}, {1, 0}], Text3DBox["31", {8.9387699302, 4.1708142546, 4.033620147}, {1, 0}], Text3DBox["32", {10.5533518246, 1.58890051806, 5.310508005199999}, {1, 0}], {RGBColor[0.84, 0.76, 0.6799999999999999], Opacity[0.6], SphereBox[{0.02016337641999999, 0.00413849994000004, -0.006914507434000003}, 1.179246057080891]}, {RGBColor[0.84, 0.76, 0.6799999999999999], Opacity[0.6], SphereBox[{-2.1513585646999998`, -0.35595285227089996`, \ -0.9730066893179998}, 1.1836194132654674`]}, {RGBColor[0.84, 0.76, 0.6799999999999999], Opacity[0.6], SphereBox[{2.1667976261199997`, 0.35914497743010004`, 0.9676984489839999}, 1.175119278802822]}, {RGBColor[0.84, 0.76, 0.6799999999999999], Opacity[0.6], SphereBox[{-4.3364487385, -0.7366948467508999, -1.9492523689999999`}, 1.2009290495230283`]}, {RGBColor[0.84, 0.76, 0.6799999999999999], Opacity[0.6], SphereBox[{4.3270945948, 0.7348036089701, 1.9523704169}, 1.201014886859848]}, {RGBColor[0.84, 0.76, 0.6799999999999999], Opacity[0.6], SphereBox[{-6.5246569602, -1.0988945662599998`, -2.9236895809}, 1.1890995738656527`]}, {RGBColor[0.84, 0.76, 0.6799999999999999], Opacity[0.6], SphereBox[{6.5153973028, 1.09700484026, 2.9268076288}, 1.1891671569470634`]}, {RGBColor[0.84, 0.76, 0.6799999999999999], Opacity[0.6], SphereBox[{-8.696869719612453, -1.4594177975645017`, \ -3.8896777888292187`}, 1.1867085874137557`]}, {RGBColor[0.84, 0.76, 0.6799999999999999], Opacity[0.6], SphereBox[{8.687610062212451, 1.4575280715645018`, 3.8928903230292184`}, 1.1867085874137553`]}, {Opacity[0.5], SphereBox[{-0.904930579715478, -2.1236774418511257`, \ -0.11678508878434955`}, 1.1969442986752523`]}, {Opacity[0.5], SphereBox[{-1.8351986943708796`, -0.4490780487355061, 1.3500577803990998`}, 1.196977394364303]}, {Opacity[0.5], SphereBox[{0.9559140576488845, 2.137144660139827, 0.0789518398648018}, 1.1969588468855248`]}, {Opacity[0.5], SphereBox[{1.8868645974640725`, 0.44949896883439727`, -1.356630927537575}, 1.1968877819170696`]}, {Opacity[0.5], SphereBox[{-3.4100023425042556`, 1.4074469471787587`, -1.8178706066527417`}, 1.1968954182603286`]}, {Opacity[0.5], SphereBox[{-2.461001371814654, -0.2478876493168626, -3.295954988615342}, 1.1969797523589247`]}, {Opacity[0.5], SphereBox[{3.3901000076947514`, -1.4147686577140075`, 1.845045430183598}, 1.1968975093587475`]}, {Opacity[0.5], SphereBox[{2.4400015504061385`, 0.25409328570776896`, 3.2919942238551343`}, 1.1970696616296213`]}, {Opacity[0.5], SphereBox[{-5.269540550702179, -2.881024572769463, -2.0910923801581958`}, 1.1970088863348511`]}, {Opacity[0.5], SphereBox[{-6.206758125951935, -1.2385079940797703`, -0.5973993470138645}, 1.1971562901428072`]}, {Opacity[0.5], SphereBox[{5.260279276218895, 2.8791419510728575`, 2.094252726357498}, 1.1970350155749947`]}, {Opacity[0.5], SphereBox[{6.197479741539387, 1.2366255309180798`, 0.6005883565501688}, 1.1969998970776152`]}, {Opacity[0.5], SphereBox[{-7.779642698673504, 0.6845476455758805, -3.764837036277634}, 1.1970912664710385`]}, {Opacity[0.5], SphereBox[{-6.845715162139853, -0.9598099090207951, -5.251041816765561}, 1.1968488009420515`]}, {Opacity[0.5], SphereBox[{7.770244705348259, -0.6864260753180297, 3.768051117057389}, 1.1970497556200526`]}, {Opacity[0.5], SphereBox[{6.83631020905921, 0.9579239064929426, 5.25427441225049}, 1.1969287834069369`]}, {Opacity[0.5], SphereBox[{-9.656224148645062, -3.6168210308098456`, \ -3.9718292123674805`}, 1.198740419755556]}, {Opacity[0.5], SphereBox[{-10.568582038903985`, -1.9615263354294628`, \ -2.5382607216801105`}, 1.1987222627995613`]}, {Opacity[0.5], SphereBox[{-10.81610290385149, -1.761831304690991, -4.889229386693076}, 1.1988208627194061`]}, {Opacity[0.5], SphereBox[{10.559325803423102`, 1.9595131455830892`, 2.541466355131495}, 1.1987499918307734`]}, {Opacity[0.5], SphereBox[{9.64682680704167, 3.6149411629004584`, 3.9750427854034074`}, 1.1987762794832153`]}, {Opacity[0.5], SphereBox[{10.80684324645149, 1.759941578690991, 4.892441920893075}, 1.1988208627194057`]}, TubeBox[{{1.2590110502399998`, 0.72493668812, -0.076027456432}, {-1.2186842973999998`, \ -0.7166596882399999, 0.06219844156399999}}, 0.1], TubeBox[{{-3.0840328319999997`, 0.0047539836982, -2.0082118201999997`}, {-1.2186842973999998`, \ -0.7166596882399999, 0.06219844156399999}}, 0.1], TubeBox[{{3.0745842019999996`, -0.006646733259799999, 2.0114243544}, { 1.2590110502399998`, 0.72493668812, -0.076027456432}}, 0.1], TubeBox[{{-5.588864645, -1.4781436771999998`, -1.8902929177999999`}, \ {-3.0840328319999997`, 0.0047539836982, -2.0082118201999997`}}, 0.1], TubeBox[{{5.5796049876, 1.4762539512, 1.8933164794}, { 3.0745842019999996`, -0.006646733259799999, 2.0114243544}}, 0.1], TubeBox[{{-7.4604492754, -0.71964545532, -3.957086244}, {-5.588864645, \ -1.4781436771999998`, -1.8902929177999999`}}, 0.1], TubeBox[{{7.451189618, 0.71775572932, 3.9602987782}, {5.5796049876, 1.4762539512, 1.8933164794}}, 0.1], TubeBox[{{-9.931832938200001, -2.1983182558, -3.8223487802}, \ {-7.4604492754, -0.71964545532, -3.957086244}}, 0.1], TubeBox[{{9.9225732808, 2.1964285298, 3.8255613144}, {7.451189618, 0.71775572932, 3.9602987782}}, 0.1], TubeBox[{{-0.7819686188, -2.6750961256, -0.186929806194}, \ {-1.2186842973999998`, -0.7166596882399999, 0.06219844156399999}}, 0.1], TubeBox[{{-2.076808874, -0.3442135909, 1.854766069}, {-1.2186842973999998`, -0.7166596882399999, 0.06219844156399999}}, 0.1], TubeBox[{{0.8371297207399999, 2.6905918788, 0.13968854592}, { 1.2590110502399998`, 0.72493668812, -0.076027456432}}, 0.1], TubeBox[{{2.1329337362, 0.34154907724, -1.85852662374}, { 1.2590110502399998`, 0.72493668812, -0.076027456432}}, 0.1], TubeBox[{{-3.5377560446, 1.9571892181999997`, -1.7432722349999998`}, {-3.0840328319999997`, 0.0047539836982, -2.0082118201999997`}}, 0.1], TubeBox[{{-2.2168375706, -0.34689700182, -3.8006169312}, \ {-3.0840328319999997`, 0.0047539836982, -2.0082118201999997`}}, 0.1], TubeBox[{{3.5137565243999997`, -1.9666378481999998`, 1.7798384331}, { 3.0745842019999996`, -0.006646733259799999, 2.0114243544}}, 0.1], TubeBox[{{2.1913262695999998`, 0.35627004278, 3.7938139175999996`}, { 3.0745842019999996`, -0.006646733259799999, 2.0114243544}}, 0.1], TubeBox[{{-5.1444010898, -3.430797553, -2.1697833932}, {-5.588864645, \ -1.4781436771999998`, -1.8902929177999999`}}, 0.1], TubeBox[{{-6.4488789476, -1.1446070382, -0.09078054731399998}, \ {-5.588864645, -1.4781436771999998`, -1.8902929177999999`}}, 0.1], TubeBox[{{5.1351414324, 3.4289078269999997`, 2.1729959273999997`}, { 5.5796049876, 1.4762539512, 1.8933164794}}, 0.1], TubeBox[{{6.4396192902, 1.1427173121999998`, 0.09397985343200001}, { 5.5796049876, 1.4762539512, 1.8933164794}}, 0.1], TubeBox[{{-7.904723858, 1.23480366018, -3.6895010424}, {-7.4604492754, -0.71964545532, \ -3.957086244}}, 0.1], TubeBox[{{-6.6047813426, -1.0539379847199999`, -5.758184094599999}, \ {-7.4604492754, -0.71964545532, -3.957086244}}, 0.1], TubeBox[{{7.895275228, -1.2366933861799998`, 3.6927135765999997`}, { 7.451189618, 0.71775572932, 3.9602987782}}, 0.1], TubeBox[{{6.595332712599999, 1.05204825872, 5.7613966288}, {7.451189618, 0.71775572932, 3.9602987782}}, 0.1], TubeBox[{{-9.548218560199999, -4.1727039806, -4.0304076127999995`}, \ {-9.931832938200001, -2.1983182558, -3.8223487802}}, 0.1], TubeBox[{{-10.8181144322, -1.8687311441399999`, -2.0350459294}, \ {-9.931832938200001, -2.1983182558, -3.8223487802}}, 0.1], TubeBox[{{-11.162611482, -1.59079024406, -5.307295471}, \ {-9.931832938200001, -2.1983182558, -3.8223487802}}, 0.1], TubeBox[{{10.8088547748, 1.8666713428, 2.0382584636}, {9.9225732808, 2.1964285298, 3.8255613144}}, 0.1], TubeBox[{{9.538769930199999, 4.1708142546, 4.033620147}, {9.9225732808, 2.1964285298, 3.8255613144}}, 0.1], TubeBox[{{11.1533518246, 1.58890051806, 5.310508005199999}, {9.9225732808, 2.1964285298, 3.8255613144}}, 0.1]}, AspectRatio->Automatic, Boxed->False, SphericalRegion->True]], "Output", CellChangeTimes->{ 3.571045164086973*^9},ImageCache->GraphicsData["CompressedBitmap", "\<\ eJzsvGd4ZGl6HXa0syRFS37MTJpLiRT1WDYdKFo25UeP5SDJZvJwNRs4O7uT Z3p6OuduoJFzDlWojCqgcs45IhdQqIRCoZBDA51zz/Skndldsn2qCr3slf/5 9+KZd+6t2924977fe857zv2+W3/97qVjH5x+99Lx99/9gz+/8O65Y8ffv/gH f3b2Ag+99A+Af3CsHH+A8v4z4Pn/nvG/Z8fL/ysf+fn+z/d/vv/z/Z/v/3z/ ///+h5XNP0R3rwfD/X7IGKo+P8Z7/FB3+jHW5oei0fdV9W9/UNn8YwiHfZAL /dAwLAI/nMN+eIf88A/4EexldHG/ww9Xsx/2Ov8Pq//6/crmlyEadkAm8mFc zH/N8Ij8CI34Eedvm+Jvmhn042uY4+/6BczyWqa6/Ui0+xFp5G+97MPn1V/3 XmXzn/FCHBgT+6CT+OGQ+hHgNs6Y4a9d4K9NjwSQE/lfQl5c/o258iFec5J3 OsM7TNT78Fn1N/7byuYX0dXjxTBvQ8IkyHgrUp5c1Oz//cof/waUQivUEg9M PJlLFkBIGsakNIp5SRwZSQJLsgmsKCawqpzA+liCEWdEsaYKozQaREHmR4ZX keIdzrZ4Pq2e/N8c5nZwwM0MMfO8RiO3NubVxYx4eb0+XpSXF+TiBVmZW8NV 3zcq/+y3oBw2QCt2Qi8NwCmLIsSLmJRNY142i5wiiaJyAWvqBWxqU9jRL2DX OI89Y5Ixi13DNI9NYEMTRUkVqlxglkOcbHV+Ur24/6Wy+RUMD9ggEXLomFsL w80I8lZiHLoJXuz0UHX4ZsrDxuwleLERllCgjoVwwfub5V/z9bKYwW9DJ7LA KPHBKk1UjkzIFjAvTyOnzKKozmNdt4RtYwF7lgIObAVcty8h+e0W3HRkccOR xoGdd2GZxaZxEqu88uJoAEsCN1NqxtPqZf/rw4qTCuxQirzQsyycjCAjIX6h RETlimOR4JeQ5/9zvJ0M858q3wpvY6KVFXrFh8r143dRlWPPKluT2A0rR94t na98npUXkFGuYFm9inXDGnYs69i3b+CGawO3PRsI/8CGL8dncNdXwh1fEbe8 SzhwZbHrSGGDt1PSJbAy6sPSsK1acL+E3j4fBBx+KbOq5OWomFUVS0DJEshW L+RPD2tTIbASV9Xa9DCi0iCmWZ8LkgiyLIuCLMbaZC0qo1hXRRhhRpC16seK 3I8lZmaxjI7yXTd4qjf8UuXGjEILzOIoquP368hrtrBq3MW2dQ/7zmu46dnH Hf8+7gWvYePqFH7kW8SDyA7uhbdwJ7SOG8ES9nwFbLoyWLXO8UZZbXIHFgd1 qFbxf47BQRfEPL2CA6Dl1syacrCm3ISKl3fvIxV4y8TCAXE0sAZrfFisZuB/ PgTC6LARGrGjmgFZBFFZHDOySSzKp7GkmMWKahYb6jlsaeewq5/FnmGGMc2Y JBDi2NZG+OchjgHroJyNAR+mGl2/cTj02n5l5f4topnKNigpVbap8WsoGK5j 3XoTe65buOG7jdvBO7gfvgPl20Y8kS7hJxNJPErcwIPEAe7G93Azuo398Dq2 /UWsMSslywxK6gAKcv3vHgJOOkKmZUVqWK3WMuBYrUEmJ8rkJJiYSZbFdBls ZIZJlkWcYIuwLEI1TNIZ10I1N/9TZfM7kPWNQTtihaGMA2kcEdkMc5NkblJY Uqaxqs5iS5fFnimHfQthZsvipj2DW4TbLdbnTXsSB1bmyzyBbQOHb5xkwarJ DHkwWW/99cppvg7jgLGao5EUHOLlr1U+/AYW9bewbLmLDed9XPM9xM3QI9yL PsLD+CPEjs/gK9cmPp5+gCfT9/Fw+i7uTd3CrcnrOIjtYSeyiXX/MkrOFEom 1rDG+juVs/06xINmKMVeUrK/emOSag+IMV1TTNccU7XAOlo8BHWa2/RwFdyV JsC0TbUwbRddmP/ZfGkFBhiJJhtZPSBNkqIyWBjNI69axqq2iC1jCdesq6Sj Vdx2rWJxZBpZ0RQ5ZBL3WOp3fTnc8qRxnQOxZydVmSZQ0oRRVPiQHXD86mG/ eU4npn5HZd8qzMIpWq/m7TeRNt1D0fEIm96PsB98itvRT3A/8Ql66t3oO22B vM6G0To3RmvckF92QXLOiVvM38HkTezGd7ERXkPJm0PJMc3ceTAjlhIn5RP+ JkT9WvKFG1qixVzuZ4yQNIQJSRizBHtKHEOWlbLEWJbHeeVV/lhRhLEsC/J4 tZctMpkLXT5MXnUgWU3i//D3ZF+Ft6pvtFoW/J0uSRJhaQ4z8hWkx9ZQ1G5i w7zFBpKC7uUhIi+NonwRa4pFbIymsKWcx4ZiDmvyGRQlk+zicex7M9h2zmPN MoWSNoSizImFPiMqaa0m73dhGZyDdXgZLtEWIsrrlaMZ6yMU3R9jK/Apehpd EDR7IW/1ov+kFqZaO5wtVriaPPA0eOC+6obzihuWCy4YTlNpHLVhI7aFUoDF 6EkyqUEsjst/65B9ysyjl3phZm7cZJ8w2WdSOokkW3GarXiJ91BUJrE6liTL JLGpmWPMko2m+XkS6+NxlJQRoiqIPPOa6XVj+qplrprSP65s/unP9J/yVjeo qRaOaBZecRYxeQlzyi1ktbuI9GUwJcij56/HET6hxCPzJLbGCthVF3BNzd6j yWNPw/4znsamagElXmGeGU4JYthwEW2WSeLcR/Vk+rXKyb4Bc08Qlv4ULEMl uCU8xfhNzBgfIGN/gq46CwZbPJC0EZHtXlg6qMzOWhBqdiLa6kO8xYuJpnJ4 EGcBR2pdCFx2wn3OAduHNoy9oUMpyNN6wsgYlKhwSrUB/RblghsmWRjPfyaI yaQ0hQxlQ4GyoTSew4Y2T27KU+Dwvsw5XDNncc2S5jbFY8y6fhprmgRHgRVM 2Zjrcxxm919WNv/kp1kth3HQDouwKlD84iISik3Mq6/B35tHQrBCzbfKMV1D yHAfj2fu46BNhRv6NdwykhHIDjeNRRwYmG19jtIrjZWxBeRYwwvCGLmM5UMW XVFZ8WuHfG/uDMHSu8iyXaOi2ENEfRsz5ofoa7BA0OqmFPVC1+GFo9OLQDlY rtMdTsy1+7DQ4f0aUvzDX+auB8k2N2ZaXEg0OBC+YoPvjAW2d7Ws3CgWzUpU O9p/We3tYjvhH6zse6nDYtJMZT89uozC2ArhVcKmYRU75jVcs61Re61h60oE uzV1uOks4rqzgH1HDjs2FpF5HiUmuTQWwQoHLNtvwh9WzvULVNZ+DLCHD1N4 C9iqhlkJymr2/+Q/yb5poOwtZiufA7J1TKr24OrJI8Sim5ZsIK3YYjZ3IDx5 F9vTH+HT2U3csezinm0H923buGPfZL9aZ78q8bIL1GKUlZoFZBRTSApDKNnI Gno3UjIVKbhKxKfea8DF9xpR+24T6t9uwtU3G3H2tbpfOKx7UxvrvouDM7QG h+waQpo76Ks3QtjigKKdJNrpgYMkGOwKwHTeQiUaQLrfi2xvBPn+CJYHCOxB tszBAPKUFZl+Fxa6HZhptyPRaEH0khGeI0pMGyQ/MzpmdjcLIVlJBXXEhHSl sp8b38CKbgsbph3sWHc5Aru44d6F8lU9nggX8FUwSkW2hVs+yk/vKq652bKc eaxZF1l45REKcoQsJJSq9ejrd0LAzli2H0qGlqRuLA8DBYaVo2bjqFmovMw0 YsZan/z/O3DqjlGYeacW0nhFHcm2YWrPwNO/gtjIBubku8ipDrCmZWsy3ILP +jk+KXyOr5xuPHTdxEP3Ddz3HOCO5xrvZAfXnOvYshWxaspQb84hxRaUHHKj ZA0iqx6nMi2f+x/h3NF6XPmwCS0fNqP7w1YMHm2F4EgbRO+3QfxuK8Rv8/Mb LRj8ftPhv/kGDE0BshNZbGCNjmkfPTVqCJosZC4nNB3luw0h0BVFoieBYE0I mZ4J5IemURTMYJWNfl3M4KisURyssqWtiEL0HxzVQcKxx4KZNiMSV8aRqLHg uXqsKscYR7NqFkLSVUyxkMs/Bd01rJsPsG27gWvMxQ3vTdz238TEkTh+aFmm krxOLc3chKm1QzvYD2xix7eGdXeB+SBj0sGVxtwkb83vVU73X0BC9SijDCrb NQO7iZ3Sx82B9VM5hjiwEarGCCEZ5u2GOLD+JkYt/84FD6QvdHG8/DOkWP7R tmurdzNArTKyVt3vLsA7tI6EZI8y6QYKJK8N/T3S7wPcsj/E+uKP8FXpMZ74 H+BxgCIvSJEXoMjzH+DAyxp2r2PdXsCykZQ+PokFiovkkB45g65y3otHa1Fz vAEtJ5rRc6IFguOtkB5rg/JYO9RH26E70g79B4z3uP9OG9RvtUL5g2ZIX22s /HtNrQ/mliTruQQbyXW4XgdxM7HbFoCxIwZP5yRiXbO0fEnMts6iMDKPFfEi 1mWL2KIQ2VEy2CJ3VPPYpo3YHCWFyGNYJnNmhcTygAVzbeNI9zifS2F9/6Hm YcFYRNmXDqVwmvW/bGJ27HfpFu7huu8+bgUe4G74ATbb8vgyuopH8Xt4EL9D p8AMxW7gILKPXY77hp9yzpXnmJfbB43KmKHqFn6NPtdJKUxzSPmrZVgPn66U LXrZMVQsOkE9y5ij9J0jsGdZA9ME9wQN5QTHP3bFI3lBbVR1VBUz2lYDzN2T h37wn8HaW4JPsENZfB0p1R0sa3n15ke0u09wh/rKYnmGp9vP8LcLOXwUeYxH kYe4H7mH2+HbuB48wK5vmxKjhKI1i6xuFotjIRpVE3IWA2qP1aLhRAPaTzZh 8GQLJCdboTrRBu3xdpg43tYTHXAc76Btd3HvJbh43Hm8rXJl1Wv+PQhervmp VBi4rISw3gxZsw/jbQnY2mfJ0wuY7E3DWzeD3CAF8mgG64oCtimP9iiP9rUF HOjyjBz22Lx3tAsUabToYxNs+iGkRS4ke7Uoil1Y7DE/l0emfn11zEnBlpFl eCSblc+z6luUNNTy1oc0wY/pgZ7QFH+EO5GPMfpeEI9V2/hqroDHk0/wcIre aPIhbk+yOBK3sRs9wGZoG6s+NmNnmt2LYDfY2SAOn0mNODAu8UFDyBgYdoaP FRBhBUyOBDE7EsI8u96ikLKK2xw/Z3k8e/g0LEVGmGdFJGmGZpvc4moF/I+V zV9ivJEDT3BYepcgujKN8dY8QbQBv3AfE/LbNL/3sGzgXVFY77s4+HQqD3hn y/ln+Mn1H+Oj+Md4HOcxOr07sXu4EbmFvdA1bHg36GwKyFIyLOojWFRa2GCa 0XSyHp2nGjF8qhmyUwTyyU4YT3bDdroH7tO98J3rRfB8H0IXemjbuhG+2MH9 dvjPtVYybT/WBPO7Dej7NyfZfgqVY6J6FxRNURbxLJztaYS785geWIb1chD+ hgiiLVG4/vwi5jrjbMoxLPZSJrFx3zSv4MC8TP2Yp9/LYFWfJLFNUH8EOQIc BZUPy6JDBVetvK9TuGRgE6zCI95FTHmzevjXseL8CFveT+niPsPNyOeE9ueI nsnjc98NtNFo9Fz1YIhbAZ2c4JILA3RyexM3sUkHvBpar7o49wxH34vfOXQc KqGFWPdAL/NTG/spTHg/0ghikhimxAnMi3it4ik6qikUZFN0cVNYGS3HBCNR cXQFauqcOFB97tXnxXyLQ1StgH9V2fwxpQ9Hv4ejXzOHsbZljv42fCMHmFDc woL6HgomQp8Uv+9+jNuBJ7jtewS17hke33iGv9vexZOJJ3gwwdFPPMCNGEmP zWzDv00btkLbkKIgJf0OSqBvrauM/BBHXX6qC+rTfTCfGYDzzDC85wUIXhIi ekWIeK0AE3XDmKwbwlR9P7e9SNR2VSXShWZ4TzfC/kFdlal+B4rGaehbFuHq XILmQgS22jh8DRNItE+h/3srmLmixiODF/nBGSyXe/zQFGOSnxNUaVH25ALW zBkUOPipsRhWbeRePSW80kn7q/3VQ+Rbel1siDOUP3nYKXe80n3Exm5jjtjI 2j7CivsTbPm/wH74h6T0r2g+Pei+YIO01QEljZGWRtTAY6Z6D8ysA9MVF/QX nBg/Y2eTs6IUoun089TuYPVZZPX+fht6iRNG2k6TLFQ54pNNICqdplCepUVJ IkNNv6RIYYUdbHWcHU1NW61ZpCUpPxGmtaYFXVNP04qUCyKKAothaZCs1mbB yAvuqGrn/4IqOPdTZjX1bcE7so8EO/689g6WzPew4XyAa96HuBV8hNshDn38 CVIFdoJHLAmHDw9Ib3cmHuB6/C6p7SY2grtY9q0i606TLvVwC8Sof+M8Wn9w CZJTvRg/NQTTaSEc58XwXZIiXCNDvE6GyUYZZpplmGuRYb5VwhAh2Srg54Gq QaxvR+RKc2V/8N0OCC64K/vy+nkITvowej4KQ80k7HXTiLQl2QgXkOpLYd55 D08mr6MkXMTaSArrIwtYF9HXjFAVCKeRGaLmsy/zXtMc0BWsVp7eUVHrAjSW uuf1YO5yEylzdHPkmWGmSX4dMaJl1vQIGcdTrHg+w1bwh+hrdGC41YuWMwao GpwwddrZoHxw8ZiPdRGgWQ7SLPvrXPBdoVm+YIf9rA3WYxYY3zewJkKHT3Sq ElMvssBE62Uhrq0shfJPRDqPKeki5qVZeqA8Cqol+mX6Iu0ytvTL6Pn3x3Dj uBC75iX65jx2TFnsGNMUcPNY1ZJzWBor5JflYTuS7Vrhi+L///mpPCz/DB/x YeRiEorm5cpn9whJcPQASd1N5M13sMbk7lLwXA89oOjdwLZ5F5rhp7hzj/Ly /n3cn7pf6XsHibvYYXGsh/ZQCKwi40vDJZGTWIVoefMqet9ogIpFYTgrhv28 DL7LowjXqRBvHMN0yzg98TgWOsex2KVCulvJUDCk/CyqXNdcWx8mmzoq++Lj gxg6oqrs95xwQ3wmjLHLk7DWz8HTnEKiK4tkH2XK0BJ0kie4P0/HaXFjS5bH tjyHbUWW0mGRGSLQJHNIj0xifiiG7fAG1vwU6M4FFggJQ2fF8+ow0aRbulkd fUVYhTvwKG4gqr2PWfMTZJyfouj7HMMtTojo+aX0+iMXaODbXXBzP0ibH+Xx BCtkss2DqWYP78WNiUYn4vU0/FdtCFy2sFMa4T6qOayOKl2YafYt0sBPH+TP SZfZzUpYGltFSUMJrueYmDawZ9mE/zU3PhldwIFjHdcda7SYJVyzF7FtzWOd pqxEQiyVn1nJPFgW0gq/KBy+/tOyGHzbD+G5ZPX8/wFhxR5mtAfIWG6yJ97G pu8uroXuIUczWzCuU0SuI5Z7hh99xu5RiOPW5B3sUwZvR29gNbKLpXAJHqUN DskotAOD6KLQH36zHZrTMlguKOG+Mka8qBFv1mKqTc+erkeqR490nx7Zfh3N txZLA2puVcgNKCpXleohbXT2V/alJ0SQnKganL5jAUjOxaGtmYW9aRGB9hwm +5axMFhCfmQdK1Ka8MnP8Fn6DnZVq9gbK2F3nEab2Foby2GZlLuknEdaOoWZ oTDWQsyyh5lz0jywgr5+OI157mgjrhyl9jnagvYjreh+vxV977Wi/x3GWy3o eb0J7a/Wv3Toto0sDEsHi6e3Wjyu0ZuIUH/PWJ4g7foYgmYbxO1ujHZ6oOmi PKizw9/jQrjTh4nO8tRnAMmOAAFC8VeOLi/33Uh2lp9H2DDZakG8wYjoZQ1m SEG+E89d7Deq4lbM4pVUH4y5JfnKdlK2Rt+3gdw4G7t2F+vGPWxbrmHPvo8D 5z6WLs7iM2cWNz17uOXdxXXPNvY9dLGuNWw4inQ0WRbUXOXJUUlhRWpQSZdR ncLroSzpp2Utz4NJaFsUtK2jFKvKw3kwRb0XR1/ULH9UxfL3fJXtyNU8xjqK VX0g38aEmhbVdIAlOyuKRnsrcBvXIneQNWyS1EtYKz81uk/1+smn5KHyc/Tr 2Ixfw0psG5nIMlxKM8zSMbS+1Ya+t7ox8nYv9OdUsFNI+GgrI80GTHaYMNdt xkKfBRlaw/yQBQWBqYKT5REDt1o8t1fZQSkbjwAjHzQeHvtzdB2xQnA2CtlF ipe6FGxNWYS7Vujg1pASbJBntrAqJ2/YfoRPSl/hqcmBfSJoj5y6o2NKyezl SdQiG31ONUc7ncB6dAOlIJnfSxvDRjw/VhV6l441oO54M1qPs9KOEU201WJa ajnt9ChttYqWWkVLrXy7FfLXacdea8Lwd+qrtrDeBnMrVU9XgcJ3B06WYkh7 D1OWRxA0mSBpo8XudFXKUHzRDE8LXWZfeb4qirmuOJEXR7YvgXx/nIKrHFHm KsycBJAe8DAvdv49I6ZaNcwjr5ll/RsvEIxFFGY5ztHt5p5PmUzLd7GouoYl ksyq8QaNyS3sOm5Tnt6G5PsW3GJD/iKawZ3gLcZN3Axcx0GA/tq3g03PBlYr 1ZiuPiXT+KiJxvH7h3OUQoEPYgplmbA6Sa+jdTLRUNtYmQ6aaSer0smqdPA2 7Q08XuPDkRcr87vVHt1WnewZupiDpKXqUVySdUTGtjBt4OXbePluXr7/OrZC NyiTbmDRuIEMvYh5/hk++iH58foSNhJ7WElsIxdfQzKSg1lhhJxKuvO9QQy+ NQDJe5ROl7Rw1RkQbDEj1mHFdI+dbs+B9JADOYEDBZEDy+wKKxIbShILw8R9 HY+psTQyisywBCOsAvlxFTrf0bIyXRCen8DY1QUYGrJwNRcQ6V3H9NAWFkU7 KMj3sMb0y658gt2lv8NXpfvYJxlcM+5i37JNjbGODdMKVgw55DUL9H3kRnEI JSKrFGJH8QQxXnseV080oPFEM7pOtGDoRCs5mdVIo68+1gH9hx0wHu2A+YOO r8HCi/tDmN5vg/6dFmjeaIbq1YbqY+TGKVjaaVcpv+yK6whQoQ7WaSBusUDe 7oSKfGjqCkF7OYBIZwIT3VOY653BImVbfmiOIJ3DyghDNIsV8QzTQmdA3iuI I6R/H5Ugi7PXgAIban7Yg8UO+68dPuzW9cqq9TkywRpdZBTxvEBnVNeR1t7G svEu1q33sV0WzJ6HuO57CMfb03iq38LdyEPcizxg3MetyF1cj9yma2Y1+HfJ WXSDTuLYSlFqjqKkNbEplM/7q5AI3ZU5YwW9/xi3eoaVxepisfpYrEHSaJj4 i3YzSP2RDn5msYYaGVf98FMkv/filEjDT/v4c4mna64Wb9/xDIbrqsVrErAp K9YR1WxixrSFlGMHS55drPhZDJRwG5E9JI2rSFJYZu88w+df/hghgRnBEdJk rAjdqAVKkQYd7w+j8/0RDL0rhOyDEVhqjfA0WRAuPyUvPy0vPzUfdiMr9CDP LrQs9WBF7iYVOrGqcGCNnaP8syLTY1miRm5EAcG7Leh8fYRCwYDuIx5KqRlI z89Af5WesCXPVKxgcngbC/TrSxQnpTGCT5RHPP4MP7z2DDdtB7hZ7mJ2djPb FvlkDavmAv1gGmn1DOYUEUxIXChFU/ANi9Fwsh6tp5rQc6oZwpOkzJNtGGfx 6k90wHK8E3aG62QnPKc64K1EO/fb4GKR24+1wPJ+Ewxv1ENfm4C5JUtTuQ6b bB9e9Q2MNOoga7FhlAZB0xmFrXMSzvopTPQlMdubYtck3QsyWBZlsCrNYF1W fqpFIU8hsqFawFp5+nGUXo/GPy/xs0VQiIzHmMMAlkkGqU7jz86gCmcZedhG 1uBlfso/s+N3kTE8QNHymJ37I+y4P8a+/yluBJ8idXUFn4b2cS/2FPfjH+Ne 4iPcjj+i7WeJR+9gK3yAtcAOQV5CqeybHJMsYefvHU5CjIo8GONljTPKU/pm VrGTFewbYZWygmOs4AlW8HR59dSA/2uVJWK/UFmmM1WeySfzTlEPJGrcePcF j/Lic8wximNz2yyeP60ZblqBsq8Es2iVsnKtevg/Yt6+jox7A3nfBv3HJpZD G0iYipAGnuHg82cIjDoQGLPBpdBCKjag5Qct6DgiQc8ROYbfF0N2TAJbvQXe VjsiXS4OkAdzQ16khD5IX++FhprB8l4P3B/0IHCsCzEWxNTp9srZF841YfF8 PdLna5A5dxFd3xtB9+tG9LzvQ++JOGQXkjDUZ+HuKCDWv4JZgi8t26La3EFG xJ4vX4JS+He4tUMNs3UDB5YdXHfuYs+5jS0HPYl1BQVTDhldEsnxKKaVbvik eviEIrSdakQvC3eERakoP4M52QPTiT7YTw3AdXoAvrODCF4YRPjiACKX+igR e7jt4ud2BM63wHOm+dBpvARzzyp5b6fyqZrX34aqLQZ9xwzkF+MYPeWA7pwH tos+eGsCCNWFEGsMYbI5hKmWEGZag9jWLGFbm8emNosNTQqr4zPIj8awaVlk c6dcVNN/KDzUVuZDb/V7MPfq6LojpP0FapIi7IIt3t8+4srbmKNMzpieoGh/ ik33Z2z6n+Mg+AVGmNvdkX18NruP+xNf4MHk57g/+SnuTHyMGxOPcS1Bno7d wlr4GkoB6ih/WUfx/M7DVXi/WVlKUX4Eqz18DGthuMsLzkQBxEaCmBSEMcNI CiKUcBGkheWoPpJNC4NYHPbTWDBY0wu0eXO0c++8uL6pFqamaVh6Cmh6cwHd F4oYbi1htL8Eo3iVqnQVQe1qJc/TtjXMUVjP+yjKg2uQ9RuhHPbCpAjApmZo vNCPqtH+H4fQ/soYOr5lRO+rdgjfcEP5fgCGk2E4zscQIAXFGycx2zZNpTaD pUE2QlLChmQWO/JZHKhmcVM9jTvaKdzTV581PDRH8MgcQsOr76DrVSLidQt6 jwTRf3wS0kvUDI056OozcLXlMCNawaJ8A3MjBWTkBRTHClSuBcxnqG/uEWmk 22tWOlLrOrac61izsXItS8gY55HUl9fdWeGVKeAZEZJuWyE41Qn5qT5oTg3C dGYY9rMj8JwXIXBJjEiNGPFaESbqRJisE2KqXoDJ+kFM1PfxeBf/vI2V3VS5 h/GXL8HQVoRpeAOCmuqTAWlzGGOtUxhk1UpOeqE9F4TtUgS+2hiiDXEM/qUN e/URzHdMkkYnke6eQIYKN9MVw3xnGBvGPA3OIjt9CVsu+kMb6c9IJa6m4ZHb kRGof+V5AfcYyfoJFnEalqFVOEZ24ZPdRHzsHub0j5GxPkXR+Rk2vV9gN/Al DsJfQfNhFo8pJm5PLKK70YsBxkijB5J6D+RX3VDUuKC45IT0nB3iU1YIjxpp BiggvMHqDNJvQy2yV9avGGT+SlilQWY4jKAkirgogWlqmaRwCinRNDKUQ3nJ DKXPNJbl05Uny8vyCRRkceT493OiECWRH9leN1JsWG+/WMj/ELqr0zB35mEd 2YR37ADtl4roaVuBdKAEtbhUZZDTCNlXEXGvIupbRTiwigFCRTIahWI8gmGy 7uLQUVw5o8flM15cpluqvTSJlvpZ9LUvYKR3EQpBFloJdbEyD4d6CT59AWG2 7ri9gCnXEma9S5j357AYyiITTiMbrU5dZ2MzjAlc/f4xtH1Liu7XzGTfIHqP TUDCGtY1Z6GpX4atPQd/bw5TQ/nKk5SMahnLZedlWobK9Az3KXV+sreNa/Y1 7NhWsW5ZwZqDNWzNI2NZwLypXMNj7HFi2IRDrK1uSFm746cEMJ4Ww35OCu9F GYI1CkTrRpFoGMVU0yhNuQJzrXIkW6XcihhCzDQPYrKxF/G66kRY8Ewtxl65 gr7TAgguV2elxI0J9J4kzk/RQJ+O0Bsk4KqdRKRpFlNtcxg4ySKjOH7omEae kqIwQBE8MMuYxlL/JDK9cdyknNsPbGPHt451FzW7rbyggDJC7adV0uJ5EZs6 zbD0Uv32ZysrWuzCa/ApbiGmfoA54xNkbJ+g6P4cm/4vsRv6CgfRHyFRvwdB C/1FmxdShqrVC12LF8YmD8wNbljqXLDWOGG+ZIfxvA360xbojhmhfk/9W3// iPolGCjHnv88n38JUrzHWbXToiTmxQtIS1LIyxaxTHm0oqTdG0uzu6SxNp5i LFRWaa2oZrA8OomiLErX7mc+6Js6jHjrZ2l59FwIRipJM+nCqdxF2LCPacd1 tLVW12qIJSWoVNW1ot0jSQxJkhiUJqF3lnC+L4LLgz4oewbhkdLWDB1HzSvn 0fxqF1q+L0D7uxL0H1NAXW+HpdUFT7cPoYEgEoLyIr0IFuQxZJQxLI3FUFRT yWmjWNVFsKYPYU0X4L63ct5ltRV5lQF13z2Bxldr0PGKCT1v+TjkUxBemsd4 Uxq2bg5VewneXlq6oSxTlaPCLaJgLFI0FGlUishukJo/+gkd9Qq27UUaGNK2 OY8lB/+ufR4+igm3XA27SEoh0UshMQTlKRF0Z6SwnhuF+7IKwdpxROvVmGhW Y5rGfq5dTYocR6prDIvdSoaC+1J2QRGS7UOYbumt3EOspgGBM5d5zSIILtoq x9pPWNB3wgPhiRDUFyZhq52BryGJeOsiZjup0HszmLQ+wKPpuygOk3KF6cqT /dWRFFvZPIocj9zwDA4iB9g5nGFfJTWUbORGE82Vxvorzx+7tZGWu8tzYbmK KLdSL3hHbyOmeYhZ08dIOz5F0fM5NgJfYCf8Q9SdHsfQVQekXU4oO6prtyzt HjhbPfC0eOBvcsNf72KXdcJf44Dvig2eixa4zhrhPKVF6JL/8NntN35qwso/ Zpoey+FKOBv5t/wTZTVPSTJIku3SsiVqpAKWyUYlDt/wX9Bk/HUNlt49gS1D gbGETX0OGzqaBGqqlXHqGAV1lNjLFFmeV3d1WXkNNDUZGGnwLVLKKO0OEtY9 NNaaK6cVNNlxrHaqsn+pK4nzXTMw1ztgqnWg40+asXRGjZ/s+HGQvom99A1s pvfR+N0ONH9/GK3vSiG6ZMJYgx0mpsVFFR8cDCEupCSVsGnykhZVbCfjdNya OIq6OFb0HBFD9dZX9D4eq87pZMaNqP/OWTT+Db3XXxnR9QMv/ekUxJfnWNkp GDsy8A3S09HXBYaK3OYwLc9gUckUWErYsJWgDT/Do4+e4cd7FCG2cgXksMwm nbEuIOVMUmCZ4JRrYRRKMXxymEQthvqMAqbzKjgvq+G/qiWR6jDRqsd0hwHJ LgNFk4EVaECmT4dsv4YxzlDxsxyLPWL+neHK9U81tbK6azDyYRvajogrxzqO OVnpQZ4nDv3lWTjqUgiy8Ux0FpDsIxKHVmjxP8at5FN84gxjnQ1oQ8Zrl+Wx ochRVNAHlhdIjsxiN7qPjdBWdQlB2XfZy77r+QPoX8bpIw24cKQJtUea0fh+ C1rfa0H7Oy1oe6sZba83kTHqD/3T70PXqIGlg8TeRbbo34BNtA/P6B1EtY8w Y36CRcdTFLyfYj34KUbaXGg7b4KCpK7ptbEpeOBgeDneoTYPoi1uxAmDRJOL 4WQ4+NmGWIMFkTojQpc1mKarm2wg6521H76EUYVDdSqjrLMnCIO5yrGQhPkR FzAnKVJYlpBTrqE4vo5V7QY29JsY+aYSB63TzNcE9iwb2LOWX9KgILOQyUwc cz1zoyEcyKglmYukr8W/OFwg2NXrRy9jsNsPYaef98Zo9lenOw5fN/mvoGkp QS/YRN1FLdppAIeaqjylbbXBSjNY/vG12BEkcsKs/FAd9/9MiP1mDWzUZsYT Nqxn9lBMb6PulQ7K6CE0vC2G4JIZygYHDO1eOHoD8A+FER2JYlIax6wigZQq gYw6gZyWaNEnsGxgPzBEGKFDQ/YmFtVEybcvoP5b9URhO9q/60XvB5MYujAL RX2SKEnB0Z9GeCSLSXkeIcrzOKtpenQRyTG2S5JFyVZA4cYz/PCzL1lFWSzb 08g5FrBgn4VrzAO70gKTVIem79WSk8U0eQrozo7BekkDz1U9Qk1GcrMZU50W zHVb6XasSA9YWM0W8rAZS8NGLAn03Gr4mWgZZC/ol1SfPLR3U+I0QnKsGz3H qu9idB/1YuhEDPJzMzDULsJFexFqW8ZUdwnzA2vIcSwE713DEk3dJ5n72Bzd wNboOvZYFdvjK1in5VghC+TlRLl4GpvRPawG11HyUa57WAmOAPMqq65BO9aI 2mNEyLFWorMVfUfbMPRBe+XxqPi9dkjeaYP0rVaIXm/ByGtNGPpuPeVHFTXm lijJP0NJtFZpHG42jrD2PqbMj5FyPEHe+xFErA9ZhxtDl63Qdrlg7HLDSbT4 O32ItJdfhAtgqiPAPAQxx+1chx9zdIqznS6GDTPtBppnTeXthhQrdZ4IS1z8 +7kb84ihkjOLpLwKcQ52NgyPuPoEb1qyjgXFJrKqbRTUuyjp9mhZrmHbsg/7 qz48kWax79ivvO1zUHmYsIMdxyaZkv3SwkZjIHLKU8Vj5RfdzPjnh490ymtK hQIihVv5kB9jA3TI/TQYZHtjl5/Mz20Lt42MWt8fv4imX4T0xAKaLujQftWC wUYrRputMLRYq5rum4gSVBOMOcZCuw2D//ooNo8qcV+opMCwsaNa4Thjhfod Ay6/3Ibabw+g67gaA2w7MrYpbXmROsHkIZhCIrocgml6dAJzYxNIqenftBPI EUx5gilPMC0RTHm2nQzbTkpnR1JnRM1fn0fdt5oIrC40/rkDnW9NoO/ULES1 sxhvTcLQvQC3YBERySImlFnMqrOIKfKYUC1iZjyJBU0Spnm2ns+f4fPNWaSd 85h3Uo87pmBRuWAatdHHKNH0aiNEJ+RQnRmDgeRirzXC12RGuNXKlmDHTI8D 8/1OLA46kRU4kR8pP9u3V9YnLYvMDAM/65AXjj9/HpbsGWDNtPOSuw5l8l/R goQw9GEY4xfmYarLwdW8jHDnKqb6NrEwvIW8aIddZRdu+4/x8cqPcVfhwp52 F/u6bezqyLLaEhl0CQXK6YxiDrM0jqvhrerylcB8ZW2/tbkOtScaUX+imfqN ODreBuHxdkiPtWP0aAfGPuiA5v12aMtrORla4krzZivGXm+G6rsNGHy5BsaG MCzNKYqxEizCPThpLYLae5gw3ce84yFELWbI2qlCLqghb6Bl6CVvdpE3acWj neTNzhgxE8d8N7mzJ4FFWpvFgTjSg1FGkOEl7zhoaqPIS0OVFzJyPJbucCJ+ Wffrhy7HIjRVIUVnYRFnyq88wSeqLomdke1SYOwjr75OsXIDa6Zb2LLexo79 NuZPJ/HUuoLrntuMW5UFv/ue69j17GPTtUOXSAqyMmXGxepKM62HTkXxB4ev Cjxf3FsOJa9MLSSiiDIrEeYgwtx9fnjZp3zsU372KW8zo6G6wNd7wfvfv4iy 72BUaEPHeT0Ga63MlRX6JsKGpj3Q6kCsjR252YmZDkdlvXqm3w7r/9GJJ+0a 3BC2YbbLSl6yIsB/5yLXaN5Wo/UHYnR8OI6eC0aMsL+pKHgNPQHYB8PwsWeF pTEkRhOYJszmCLMF9qxFqrsMYZbRR5AmzNKE2YLehTm9FVM6Pa68fAFXv9mM q4RZ65ujaH4lhM4jtPoX5iCm3ld3zsPcPw/PyAJCtHUJVRozmjRCo3lEVSnE x2cwoZ1G4f4zfPzZJwiKCB+xEWH7FDQKJ+QifQViza+2QnJKhfFzWpiuUIhT ifjJy9FOByZ7yLMDbiwMeZAWepETeVAQu4kHNy2iAysy+2Gv/Rb/jF5mWMYe JMDF77yBzjd60PW2iorKgs53yInHElCdn4OZPctNnxjq2sDkwDbmBXvIi6/x 9+1D0vl32F1iry3exTUjuZd8vGvcoYDfwKp+BcvaHLJj5Tdnp7AW30EpRnUX ScE3JIOtvQEtJ5vRdbIVQyfbIP5Pps/MDCv37dzaiTv7h+2wHW2F5UgLTO82 wfA6cfZvT8JEXWDpXIZleAc2+Q341LcQN96BsEELWasFo8RDd3ncWwPUDiF4 iKlw5yQpaRqz3bNY6J1Dun+O/X2OvXiOOJolh8xgSTyBJVJuThjAurrcNyax MhrDsiSI5WEXsl3PF8tUX3kyDigJNmcVbKKFytY+sg6/uPqAeU55g336NrXP XSrbe9ig59smDwi+b8FWVxGfREq44X+Im4EHuBW4j4PAXewFCEjvAdY8zJ1z jdqmvLKaPd/MHqbV//7hS4bPV1UrGWPiwzk1gs4pqL75/nxOLcaWGy+/h8m2 HGdbi7Vyy9aWIPDiNRS8p234b1/0Vv8KKoG58ua2WeqFR0YHe9UNC7Wuj90w 2hqkSgpivjeERWY2OxREXhDA8vtj+FRprqw6Tw07MDdgRZxKyt9Y9hw+jPy7 dup3FTrO6tFPREupvdU8bhoIwSmMwM/uH5bHEVcmMEVvNUNvNUf0JXVRzOvD jACSei9mDE5MGKjD9Vpc/MsLqHm5GXXfFaHlTSX6j1Lh/U2CKiiJ/svz1aK/ BCfBF5AvEnDsdRqCULcA//giFH0WWNxbcFFSe1VOeMZtMEp5ed0GvP1Hp/Hu H13CB390FWf+JQXWn9J2/K/t6P93nRD9eReUL/dA+0oPLH/TC/f3exF8sxex d3sxdaQXyQ97kD7ehfypTiyfaUfpXBtWz1eX/G1crMX6xUsUu6+j67UedL8+ hvYf2NH9XhgjJ6cwdonNoz4HT8caor2bmGGBL47sYq5vCelhNjDxEqamnuGL vWfYNxN85cUsll1sm7fJ5LQV+mXkSDALqhlMKVgwE6vwS03wj8igb72M7lMt GD7VCunJDqhOdEF7vAfmE72wneyju++Dp7yW+QzjbDf8Zzu53w7v6Va4CFrn h42wv1cPyf95EabWJZgHNijY9uAeO0DYcB0S2kx5a3ka0AvB5QBt1SSF4hTk p8xQn6LNOuOA/bwL7otu+C67eS9lK1h9q7JYXgqqmOd2BjmWwnZlnd8CVjWz lXV+JVkARYEdmV79C1OBLxF80wxaPmHpUCz8FhLyW9RK96iHHmLZ9Air1ifY dFanBDVvTeGBahf3QzO4FXqKW2Fa1fATXA8/qqz32g7exJp/n4KA4sBVZLDT OXh+s/WfHq62eL6ovRzlb3gwMuwEn6f8IjTBFyX4EgPlF6EDmO6jLmZ8rfJi wy9WZgbL84JzBGT5BbnZRjcmLlj/6MUnd31QDGigE9kq30VQ/uaEiGyKbbvs tWMItEwQypP8TVNIDU0hOzKFJckkFC+342G7G1/a6FbkYWSk5S8ScJPFQigq qRLYmxeo3ht/oEDrcR06L1kw3MgO0+GhBw7APEQciiLwyWLsTjHEVOyG4zFM qqOY0kYYQUzq/MSeGzEDHaLBSEc5hLP/11lc/IsGdkARmt5UofeoHmKK26vf i6P1xDy6rixA2LwARXe6MjxWSRqu0TQZOw2/NgW/YQHDPW4oRQHolUGYNCwc jRdSkQKd3xtH52vsTN93o+/NAITvRdktEtCdm4atZpZ8NI9I2wJdFZ3gAJWd IF0pqlV5BluqDHYJhANdCjeNKdw2z+OebRYP7NXnQg8dETxw+NHyg+Po+l4/ el7XouMHLvS8H4Pw9BwEJ5MYu5iGt6OIaP8GZgRbSPTSww8VkKE7WZYXMKp9 hju7z/BVaRP7tl1cs21j27qJdfM6iqYV5HRZpOjbZ9TkN6UXAQWBKJYRhOx+ pzrY0XswRuDpTg3CcnKIpkAAz1kB/OcFCF0UIHx5GNErQ4wBRi8il7t5vA2B 803wn6qv8ts/gWlkC7bRasORNBkgJ7WOtoXRedKAodNWyE45oDntgfmsD64L FJuXgwjXhhGrC2OCgnWyMYzpphBWx/KMLFYoTPbtJezZitiyLJFXaKJ05VWV xIHci6Lo8I1mntvSr4WFPsUyzIYsWIJ1eB0OCt+A9CYSyntIah4ha/gIRctT qsfPsOX+HLu+LxA7V8QT903cjHyBW9HPcTv6KW7HPkFzjQNtV13orHWi54od fRdt6D9vwcAZEwW5jg3Rfbiq5LehZXsqv2NQDsPh2+IOcQBeUQihkQjiAgrq oRhmhsqv6CVoFCjoBAmKpHLEGFF+DmORLSxNwGZ6vFhsc2KWHua/eRGRr0In NMIk9sBKKxaQzmGSlLUgz2JJyZRpCtgm7U4PprAgSiErS2FpdAGJ14z4ciyO JdUssrRvt5wLOLDPYtc8QWqLoqgKYokITVKnNryrRjNvsbPWDkGLG/IuLzTk D6MgRG4JV17c9isiCKoiCI+HEVEHEdH6EdGxgRsc8LEjOvV6jA4OQdDViUt/ 1o3ab4nQ8IYKnUcNEBCRo5dd0LOLN5ycR8vVFLpaqtNKSuEiNESMYYwxnoJB u4Dm7gB6qYMEZAKRsvySziUE2r+D06esOHXKj5Onozh7fhJXrs6iqZko71rE 4EAGIlKxQpKHWrHE37cEi7YAp7EAr6WAgG0JISd1ryuHmCeDhHexytjfQdw7 jYg7gcuvvouGV0+i9ZVedL2qRsdrZUDGITybZNfKQXE5C0O5O7L7TAs3kBhc RlK0TEtXxPLYMta07H7FZ/jy9o+wY9pgF1nDtm0D61Z2RnMROWMOKUMSHjlN iIpSWzEGn0SC/lNdEJ/qh5Ig1J0Ygfm0GM6zEpoSKYKXZYjUyhC/KsNEvRST DRJMNYi4FTAGkajrRbS2A5FLzQidras+VmtZgX5gk2qi+iKluNGKtpNKEqKO LtwO0RkvHTOJ7hyH9jJJvSaO6NUEHK/PYv7EAOZaJjHfRgvSTsffRivYFsNN T3V56jX3JrYpC9ft9GGWw+Wp41GURu0kedXhTNfvw9Jbnq6NwTJYfi2+CCsJ zCU6QFB2G4mxBxRWT5A1PUXR9hnWXF9Qcn6Jgfe8WO69hieTt3Ez9iVux3+I /mYPBhjDzW6IGl0V2zp61QFVjR3jl61QXzRh7KwBqpNqWOqIxEse/O7hq8J6 iQtGmY/hr4SZltUpicArjiMkmkBCOIWpkRnMCWeRElKSi5PIiueRlySRlyWx JJtjzNDqTlMVTFCix1AQEDa0O7lOK2bqx/FfV5Fa/YIMB8YHVDCOOGAVR+GS zCEizbB3skSUJRQ1a9g0buAaOfqGYxO3mcp7vk08CGxirz6GH3tn8DBYwoNg EXf8S7S/GVxzLWDLNoNVusAVlZda11Y5U90HOjSet6KzzlV5UULWXX6KFICO l2cmAdmpm52KINyqANzjPri1Xrh0Lth1dpi0JujUGvR3UUAOTuH8v+/ElW+K cPV1lsgHepId9THRqiZazW1BuLoiCPTHKqV0tnkGNR0zaOiZQWP/DOoHZ9Cr WMCrb3ajq2GIfrsfDmk9gtJRauOzqPtmPa6+0lb5JgnJBQ7VVZ6fDOPs8MHf G6RaYQOg/i5/tcYCe3+aiM+pyjN3USyPR1As6wdNkFsfltXVCcycyoyUUou6 77xXmd+o/24tOr81jt7XPBSycQydSUJRm4H88gq0DQXY23II9OQRFxYxKy0i o1pBQVvEqrEIS+QZntx7hh/l57BlLmGjPKtno4skY+RY3ilLEm6FBW65Fr5R dWVSWsB+qTgphPq0hKJSRlGpgPeyEsFaFaJ1Y0g0jmGqaQwzLSrMtY5irk3B kGK2VcRjw/yzfiTqO2l/DhdWfOs41B3r6DsrhKCmusi+g/lqP25jn/axgYag PROD7dIUfLUziDbMYqolCcFRCyY7zbg5oECmm6Xbw+idRaGPbrJ3ms7uAPv+ a9jx7mDDvU4hWYZsujoxTfZeUWqqaP1nMHeZYOmLs5+midoSy2KHt3qdkuEe EupHSBo+RtbyKYqOL7Dm/hJb/q8wcjSN6+P38GThWqUEy/PTIoaszVN5uKEh Yg1ErLHeAQuH3Vpjhe2yGbYLBljPaOArv1tNxPou+2CjPv+Nv39/6yXaSWtl Ss9M+D5fIlr+XiyPZIrQnUV8ZJ4UnEJyJI0UNVdGmkVenkNhNAfL/36EWMkx ymIiw1isfNvX8ugciuWvIiM+inTThT7Dz8L3T6Ef0sM8EoRdPAOvJIO4rIjk 6Do9zTbLZQ87tmu47trHHd8B7gcO8Ci0D82bBnyuSONvEwk8jm3jYYywjqxR 368w/UvY8aRZUvQR+gg9hgMLPEf5bFdoF+sI4VZCuI/5GyGE5YTwGCGsFQeh lwdgoHQ2EvaGcTch68CY2gKFSosBkQjmbtri/lmOVYFWVIia15Sof1+HrlMW CC6RJet90NEuV9NH73VBB+ElHWTn1VCe15I1tVCd1kJ5QoPQK1IU2scRGzVz zDW03XJc+qszqH25Ac30mGX4jlw0Q1XngKHFA3tX+eunqOOGw0iwUU9LD6cm lXFkKDrylO5LGrIlpfsypfuyxs/PHuTGq8tkF8Z0qH3lA9R/+yIhXI/2v9ag 52/cGGC3FZyZh6wmA31LHs7uAixtK3CXv+diMIspYQ6L6hLyhhWsWFYg77yH 9QN23AefUPayA5uWsGovoGDPIWOnxB8Lw6O0EsIGeEa1GGSHFZ8UUfbKYDgz ylocYwdUI3BVg0iDFolmHaZadZht1yLZqcV8lwaprnGkupVY6FZgvlOCuQ4h plv7MdXYWbmXMP209EKGtClC+9GhKnxPmNF53EOqCGP0dBz6C9Nw1CQRaEgh 0ZrGbEcGPWceYCnwEA9ZK3mKl6XBNFYELFfaiOJwCvnBJA5Ct7DLOtv07WDV vUYI5/9+hbPOcvg9HV/HsXcbceadRpx7qxEX3misHv5DmNsNsHQn2IzLcyyr bMS7lKg3ERglrDWPMWd8ioz1Myw7v8Cq94fYDPwQzvMbEDSYIKaNlnSUw4PR sktr98BIaFvJ3o4mF1x0b556O3x1VvhrWDZXDPBf1GCio/rlhAnCO1HnQ/i8 88X5egtBXd2S0KRVM+QXpxAdyWBKlMOcqICUZBlZ+QplbAnLqhK0f2nA3e4p 6qsS1rUrjGJFa61qmA01NcgYMzI6iZI0SHBbmbnxwwnKQ2D/LkxDJCHhBNVs CgFKtgn5BhbG97BkOMC67SZ2XZQcvju4F7qDR9G7eBK/g9TZafzEu4Knkzcr 7z4+miwvg9ylLNnCAQdtN1Agry5WvxBI4yP/6F86nOC5eMGMOvJeexutY/nL Ewd9FKc+SCXkR5kHUoULYiomAS1Zv1RdnQ/772Dq9MLSM08KLuL0/9aPS99R oOZtLZqPm9F3wYGrZ8fQzByXf0YuazF6RQs1tyaG9aIWNsLaflaDrj+pxfqH Y9jvEWP8PRXkb7DUZTKc/b9PofGVdjR9pw+9hHR5/lRR7yRNcFy7qBT6wwgO RxCj0JmSxTGnoG1R0a7QemXVceS0hLU2yng+f/odpEhJSbWOXf4E4VzDaELL awJ0fduF/ndi7GBzEF1KQd2Uga2zvOJgCY6eErcFRIQZTJBmFxQZFAjpoqmI YPYZPn36jCWex4qZHocdK+9MY5H+xTteVjR2KhsjbApe/wkR5KflUJ9RwXSB 3Zl58NXpEW40It5ixFS7CbOdJiS7TUhRkC6S8dP9eoYG6b5xfh7FQo8Uc11C zLb1Ve4oUVcL9/lT6Draio4PqqsO2o5a0XssANGpOIXzNEyX5uG6mkGoKYeJ tgJmu5aR6isibP0YD+efUiRSXYhXsMZCXpcWuJ/DsjiNrHAeu+Fb2AzuY9W/ hZK7vPIgXV3xbXEdzov+Y5w9Wo8LHzbj8tEW1PM6Wj9oReeRNvS814q+yutv 3L7RjN7vN6Hju3XVf/bPYWymBu5kF+96Dvc92CW3aP7vI659Ul2PY/sEBden KPk+Q+cxH/ovGaDocpJJPZVX41QMXSc7SwdFGqvX0+qCv9mFYJOTaXVQfNgQ a7Qg3mhArF6DhYHql8bN9XLbWf7+Ti8mrzgOp1d/D6aRw6++ozuuTrPO8pqq 1i8sWsLECEWZuETxt04ftUG7ukmxt02Bso3YW2E8Vi5SNG9jy7TF2MQmfdU6 fdWqoUgGzBH/xL5yAiWFDyWZ7l+8+F7RN6DuksM8GKh8b5J9JE9ZuoYp5Q4W ddcp8W5jw1X95r1boUe4H32MJ4nHhPtj3BKs4G9nVvHp7H18PHsPj2dv4/7M Tdye2sf1xA72CP/NAM13+RurjGWZakb1S5F+CSdrDLjQYkVdpx1NfXa0DDKG rWgcNh7+nX8EIwFn6UxWgG4X7+DMn4lx6ftq1Bwxoe6sEs0XKGcvqSG5ojns 3xboTo7CcXoU3jMKhBhBEoGLJHGnif363BhspwmCD0eheUuOvvZG1L/chvpv daP7BPsee7e0zolxntfUVZ6UCMM3HEWEQE9QVk0T6HME+sL4BBY1CWQI9AyB ntWFuA0gTfuQ0jro2izwCUSo/eZJ1L1yldGC5lfFaPtLG3pfj2Lw+DSEF+cx 2lBeXrQIZ38WASGlt2QJfsEyIgRCQp7CrJL9zbgEmf7vsPvwGb54cBt56yKy tnksUCsl3bNwU/LblU5YyhxJoJfneUdPqaA7r4H1sh7uq0YEmiyIlud6O2yY 6bYj2WtHqt+O9KANmSErskNm5IaMyA7r+FnN4wR8n5SEUF1iNN3ahAvffqOy 33tcjt4T1ZnL4Q8jdORTGDs/D3NNFh7aiHDrCia71pDsW8fi0CYU4i9wPfUF ngaTWJdvYoPVu6lYxbqiiBV5ns6RpCVKYityA2uhXZTKX1NTXkBRftPQ+f8y 9p6xcWVpluBB9WAx82O3F4ud2R5gtrG72MYA82OmeweN3ekeTA+6uquqy2RV ZmVlVnopUylHSZQhRW+D3gYjyPCW4SPI8I4+gmQ4eu+NRImUo7zSTPegtedF UFlmF9gVcPWCkUpGvPe+851z3v3ud6nNbl7FzQuVKL5QjYoLNRCdr0XzORE6 zoog+VKEni9EkH8uguJULRSf1ED+cTVkH1Sh51cV6OS1FyLJXhOFXZQm4gXN vkNk3YGPaM+WHVmfIO16hln3Myz6n6M8TwFZhQvalj6oGjzQcWSRTtJxi2jH aoMIUy8OVIcwxOMIrZ+weCRG8hcmOuO1VsxQ601JItnS/EyH0BvDjzQzxUSp 47faffwr2Lvd2YKKbOQy8fV1z2VfD3QTf90bmJRtIa3awYx2j9pwn0i+hbaf K7FQlMCTvhlsOW5j23GLYz/bTnXDsYVV+zqWrUyYJqLeSNxRXy5TT852d//J 76K+t8FIZA3A0ZFCH1NxRL6JmP4WMpZDLLoeYMP3GPuhpzgceI6Hwy/xdOwl HBfG8K1rD/81OYVXiWd4nniCx4lHeDhxH0fxuzgYu4Xd4U1sRJYolZiyXTQS lr7c845cie0nhHJuNdCbP1WEZeMNHSSEspYy00w4u8jZ5gsquMlZwesqDBSq 6Ab1mP9MhsdSHaJ0kMEiNdw3lLBe7EHwihkdf9kE0SdySko9mumiJSW8hdVC og7C0RqGh1AOEsoDsiGMEMoxQnmCnJ3QDyPFy5QilFPk7CShnOj1YsLUhzGT DV5JN27+9DJK6NLL3+5A5a/laPxMh7p3Qmj+Iob2/ElIiiehq03C2pSBu4Oc 1z2NIeU04toZXtgZDNL9j6gn+HkTGNl8jedfv4avww5vpw1jrlE4tR44dX5Y CWVFpwatF+SEloY8aoCJ5OMs5veocCJU48JQXT/GmtyYaHEjKXTboEubEvdj pou3WeLCnITijoQy02USlgYQhqrvFgyPN4hQ9N5naD7TfKJN3kLHl2H0XBgh jDOwFs/BU7GEiIgh2LiOROsmQ3gLnXmPMBP7Bzyfe4YNzS42tSQbLeGsJVw1 i1lHOc2UNSGNYTXKUI1scMxjmbD3t3XDUVWIsrxqVF+sYaqtRccFEaTnCdtz dVB/WQe9ULch1GycFsEkDPK38VQ1jORvwwcV0PyyBLYKUlQ1dV/dIgN3G47u A9qWe9n162PWR0i6jjHteYz5wBO0XOuFRtQHTYObgzHQ4CeEQ3DXRxAQMaWL BnkdhzAqYhw0jGC8aZhpkfasJcLUF8SSapwjjkXlKOYVw5jrGcC8JEz7QXsm pNAK8/9w8nQ9i15piAiOnbyeR78kt5pmSLqNuGyP0u0WHd8B3d1dLJoO6cCO IH/Xj4P2JTwNpbDTdw+7/Ucch9jpv4PNvltYdTEbOohmGzncSixZY1g2B4hm HX4Hyv8KJqFgvmUk21XN3bWKiHIHceMdZOz3seg+xmbgGfajL3A4/AqPxr4m WX+N2do1/H3sEF8zOb9KvcLz9As8ST3Fw+Qxjibv42D8ALujO9gcpIwIMpl4 +fEuH2KqrtzzkL/InqGtKtfQ2Mkz9fMMOyuszNO5Fazt5CDFDRN6C6xwFjLY bzoQLnEStGYezfSQTsi/X4v75Ra8MCiZSw0YqKKHbHYyn9oxSoEauaalUO6B 6Est6vPNaCtyoodKS1fnh5ne2tlB7yohsAnqAXrrYXrrUXrruG4I4wT1hCGK CXrr8V4/4iYPRsxOuLq6qXNkKPi7PNz8SQn5X0xQK9FwSg/xeQvqPhxB0/lJ NF+dRE/FyRT1H/MjMrT+GQxr0gjIpxFWJRHVxdA98Br7L14j2O3glbchQN1t 0nhhVPugkJKWz3Wj/bwKPXnMb9fMsNAHuigQfVUUi6SFoUYvYq0+TAh1Q2If MhIfpqVezPYIXfncubT5PiL5JRjJL8ToFTLiLz5A6Tufou6DetR+pED9J3Y0 n/Kj88wgFJfiMBRMw1G2AH/1KgbrNxBv2Waq2KGjnsGcdA9+32s8XX2NDeb7 LcMetow72DBu0CuuYkE3jxl1BknFBFYHb2N5iDpzcBF+qYXqRAZHbTFqL9XQ GtXSWpCBCWX1eUKYUDYRxhYO+9k6OM/mSkNc52qz5SGOs7kFqvZT5ej5/iXY ysdhr52DnSnGIb2FftUhQoYjDFvuY8L5ACmqTlm1GVJeLn2jG1oysJaqzFwf hYvQ9deNICyKEcZxKo5xQniCqmOC5znBlBhHRjyGTOcQ1vRTHBms6lPZlRmL mni2z/5STxiLYg/mWmzflYvY2jU0wLmnL3ZJrtmivUtYRpWbIxjquY1x5d1s 27oZw33Mmx4Sl4+w5jiG//QkjqnHd9yPses5zq7L3vc+xK73HrY8d7HmvkVF s00QMWW65jioyR0DVMa234dzrYMGN8YrMwu3ZB0R9T5j95Cu5CEWvU+wEX6B /YFXOBz9Go/i30JxxYcjwyH+fu4uvsp8i1dT1FuZr/Ak8wIP009wlHyIg8lD 7MX3sTG8jpUIPz00QWMVwIhGkjv5XAcoW/0cHF0baCsxQFJphawmVyUvzbdA fc0Jc0E/+oq8CJT6Ea30E65ejAp1pE1+DP1Si5e07nHCd7TRgsVuoRmxl/zj pJQ0YaRCC+M7IlSf0qA2z4QGYXa7vA9yoedvUxCWtjChGYW3m3CWDxJLwgz3 EIa0AxjRRznCGCU3D5t8GDL3IWK2w9olhblLgSt/cxZFP65D2c+7UPFrFepP G8kxNsiv9lETxNGQl0BzYRI91bkZbms75ZY0A78iQ7ymENYRy0b+9wYbNORV oU+JR+OD30hzZ3RBJQmgq9WBsr+sR/l/bEPNf5ag6QdySN/SQP0eOfpjE1xf 2OC/4MBAfh9ihW4kSryYrvJhgbJxtSmATRrAXXEAt6U5k3ekzK2veah146HO xWFD9QdnUPPhJTR91A7RB9RFH7voZcOo/XgAXWdiMBbNwVmxDL9oHYNNWxgn qEfq5sld8+TpeXT3vMbe8mt8NU9J2LuLLROBbdrEau86Fg3LmNXNMngTWBk9 wPLoFgIKH3OZFQEpddOlarQISyHz6iC/2ADNhSYYzzfDcqEFjost6LvYCrdQ fnKlhfaqCf4rDTzWwXu5Bp5LVfBcqID7yzJofniDtDCdrVe2d+2hT3Ebfv0B Bsx3MeY4RGcxE9ZVFZSU2foWH0SX1PxsA9ryzOi5yOuf54Qxrw/WPDftGg32 VS/z4hTz4hSmKZNnupPYNC9hi+Z2y7yADfMc1il3V4yZE6M7SpMbxpKghdp7 //C3n5jbmRTsXens4t43C4tDkgMMy48wQUuQ1h9jxvQYi9anWHE8Q8sHVqRL l3Hs38euj7CjRdj3P8MtagzBEm/572PNd4fsSM3j2eSR0tvL7+Gm2Xb14/c0 t7HKRRkSy3ZE7JduIKK9jZj5HjKULov8tRuRl9gf+ooOmsie+Abu64v4KnqM h6lZfDX9LV5yPJ/+Go+nX+Jh5imO0sc4SFA3jN/CxugmVoYWsBxNYMkfPOkN /U+gv5Frt9N0XQ5xaW/urDthFQkpNEZ6GIfluh99JWH4K6NURkRb4wDGmgcw 3hbF5g0fvrGHsaOdwJY2jjX1CFVRhMzEu9Jpx6Kw/QMVqO69elSeNaL2qg2N wgx5lQeKej/vMFN2ZxgOGiK3MK0ojyKoiiKsjiCiCyNqCCJCcg6Z3AiQnD1m K/Q0z8q2juydKvxhHUp+1oXy91WoPd1LZWzPtqrX3fSi8rNxVOcl0ViS6zut ap6CsXMKNtkUHFSjfZoU+g1JtNa7IekIQsfvbTJEYDOFYKHCrz2r43Ch5lwA NReiqL88jPaCGHrKhHaFSZgb03C2T8EnJdsrqOi1s9RVs0hYZpFxzGKWJmzR O42VACkmlMFGNPfIZmtoHNvDY9gaHkLxrz9D1ScXOQpQ/0EbRO8T1R/2E9VR 1H4yhpaz45Bf5udUrSBQT1S3bJLWFjDSvIDJjgVMSReoQOeRzLzGq71/IJVt YEt41GPZwKp5DYu9S5g1zjFyU4jrRxHQMHsKdSwqK4I9ciK6DuJLDZDltUBz sY3I6iCyOuG81EV3JYHvqgSBa13ZWpZwQScihe0crYgUNCF0oy67ND94uRz+ 88XQ/6wQ1vqlkwY6/zMGbbd/x8mJLmvRcNmE1kt2SIlg9UWa5zwq78tB9OeH 4bsehvQvrqH/b69hoIixVhzGLK/rjn2TYwO7woJt+2p2jnHNStlrFkwsEa05 eXQls5xMnf/xSVELZTep3t45w7FCMbgFt/gWQj2HdHgPMKE9Rqb3KWYtz7Fo f4kV1yu0fzKCLfE+Ho/uYjfwFfaDr3Ar9JLjGfaCT7AVfIj1wD0s+5khA5Tg QdJ1cJav40S47/cArSsVekIIgJ6nr91EiIAeo4BJ9z3Cgv8J1iP8rSMvcDdG wE68wlzXLbyafoSXU1/x+BVeznyFZzOv8HjmJR5MPcdh+jFuJ2kGJm5jPUbh NcqrMDSJhWAg19P+hKfbb6jRVWKDrCLHJY6acfoaeszGDBJtM/R+c1iSzef6 0moWsn1pde9q8KxjDH8fCGDPNIVdUxobQskQo2ZOHUWy24NlwwCWFN5s06mS jzQov2BB1Q0nGsvcEAsz6PRR2tYgennlrfRDToqofkUIHnUIXl0QXoMwi86c 3dsPR68Dtl4zutvEvFOx7F26/n36zx+LUfaeElWnjGgkR0vI0aoiH3rL6dNr IijPz6GotX4a0vZpKMQpqHtS0KlSMGiTqKAmqemMolUxBAmlfpcmiDHpZRT+ 5DSl/E00fy5Fyxk12rOz6TZoi1zZKVYXdYaPAjLcEsYQbUOMWmNCSs8vG0BG EcW0MopZNSNSqPnRMKupeR3UubrhjNJME6dH0dsfoOzdCxzXUPN2A0TvMuI/ IJo/G4DoszSaz01RK01Be3MGzrK5bFVaqHERI+2LmJQu8nPolXk/7MHXOL5N nh4ZwJpQ8WBdw6plBYvktFkT0WxOw6cYoKXqh19jy86qC0Uw7Zea6CPaiSwx jBcksF7qIUfK4L4qh/+GHOFCOSI35RgslmGopAdDpVIMl3bx2MH3Woi6BgwU 1iB6tQy2X92A6qfnaaPWc0JXuZU9Bs07qKWor73QibrLubVSzZec6MzzQEkk 915hBr0cRf+1QfgLhlHwl3Uwf6LEVFE3RstHEasYwWTVKPZoYrPrfvr2sNu3 g23XFtada1ixkyMt07lyNf0glnmO8zL1H74BdrOJRjYCe/skB/1B+xqcnbvw kKZD8nsYUT/CpP4pMqYXmLW9wqLza6z0fwPrl/M4stzDTuAb7Ia+wX74a9wK f4XbkRfYIwy3wo+ZpO9jJXQXyxHSdXSDY56v+TWCwT/5vamwKgqFxjmKxA0E COoRyxGSfQ8wR9JfjT7GzsgT3Ik/hbhgBId8/+XqHTybekF2foEXMy/wdPY5 jmee48H0UxxmjnEreR87kwdYm6BIiJOlRyYwE/LmstlA9hr/dqekzutGdFFn y8oGoa882c6gfhajrQtIipcwJ1vBiopxo1vDjmGNeF5D/EwY31ozOOD1vWVf YEadZVxNMYsmMasfw3pfOvcQQdimSEFN3mZA4ccalFy0orzAhfoyD9qJcWlj AEpiXNsZglEagllOtlQFYSMmrDofzHo3jAYXdHorVBodbxgzfNtEdoq9X7JB xu5EybtKlH1mgOi8Fe3Et4xsrSO+LTVh6Kuj2fMpKIjjQnEc16rjKK6Po6wp jvKTapn8ulF8eaUNrU0d0HaL4Jf3wCNtQclbhWg6JUXzlxqyjAnSG3ZoSvpg qvTCKQrA2xhGiMEz2EkFIx3EuLAaWDGItFJY6z6AGQ0xriXGtUEOP3/OVcuk NFbmhS4Uv32K2L6C8ndvUnE0ofGXOrS870bTp1F0XJyE7HoGXflLUN+ch7l8 Bu7aWQwyTIa7ljAhW0JGw3tjWERP1z9gffs1vj44xgoZes3G+2VdwoKF5to2 g7Q9BT9zbkDvYXjZEVAZs1UzEjKz8qI0WzVjuaSAM19FEaiGX1j7XqTNVc6U aeilNBirVCNWpeSQcxB7lWK+LxS7NWK4qAaD10tg+6gQBtEKjO05A2tTb6L6 ixLUnG1A3UUZdXeukqaV2O7OC1N7D8KSP4L+6zH4qITCxeMYpBqydh/iIHKE 8ZpJpOqTSNcnkKmfRLImjgPv3dwCJI+wAGkHK33ruQVIwkMrC+PNFMSyrhff AZxe0N4SJYMnOJgL2zYYO/twS+8ipHiAYe0TTBqfI215iVnHV1js+wb1p/w8 7z3cCx9jJ/QtdsPfZtsh70cJ8ugr7EZfYCv6BGuRh1gZOCJn0mwPEeDD/B6D VBCR0AnA/+1vHkXnwGcqjX0nYHyaPQxZ7mCyj/6e0n4l+oAi7hFuxY7hLl/D 8fgxHtFRP556gqfTT76HpzNP8M/waPox7k8d406alj9Fu5+8jbUEP318Douj MSSCLvxORby53cBUnptFeVMR76yZI1UsYbRjlVS8gTkl9bxuG5vGbewyJe/b trEjSuHvI7O407fBtEro960wpS5ikSG1G1zBpm+eIifJy07BpPdiTm7MTXsq UXDJgsKbLlSRCRtFPrQTtZL2AGRdQSh7iHiFHyqVF0q1G3KNC1K1FW09uV1W bI3UWc3J3ESceAtX/6oZN38hR8nHepSftaDxihNiOl5lmR+G6hBKrxqyJ1Vf IEyqGYlSIxTXjFBdNWafaKsv6dHz581YvmGA5LQGHqUG/XIp7JIm1H3ciMZP pWg6o0UbES654YCqpJ/WyQtHXRDupjCC9CUD4kGMdA8iLhNm4IeQVA8RfUS5 dgDTutw6/2ltAFO63BOMpI4Ib5ei5O0zKBdWMr9Tgsr32lBHB9/yy360fzqA jvMT6L5O9i6dg7VmAb0VS3AQ4d7GGQxQVSWVq/yMVczoV4jyFQzPvMbLR6+x ZFqgDp/Fkn0e8/YZTDvTWR3uVRPdBjpsfR9/tlCRiOlwu6nDFegls9qvatF/ QwffTQNCJUYMlBsxVNmL0WojYrUGxGv12XbEE3UaDiXGRTK+J8FYVTtZthGj JdUYKiyk9/oSmvoNaDtyKBedKaOvaUf9BTUa83JTy60Xw+i5NATd5Rhs18fh uZlEsDiJgbI0Rqoy6Kh9RPQ8ytbeTzVPY7plGrMtU5htTmfRfouaeMd/F5t0 uiuebSz3CaueTrpdOMjiFufJxO0/wbnTFbh0qgL5n1bg6ptCGwK/jsCntbQ3 CYsvF5kENuHovIX+7iMElQ8xrHuCCbJ6mqw+Q1YXCm7qz8QwLznCvcn72Caj 70a+wh4Bvz9Apzz4ArsDz7E1+BRrQ8cEO2W70H57jMJ5jMJ5hF9t8A3w/93J mqw3VPvbR0v1THZ7HuFP1LSPuPMAGd9dLIYPscHfujt2n/RxBw+XHuJ++iG9 90OC/iGxe8y//ylZ/gGOMvdxkL6HvfQhNlP7WE2uYWliGjOjw29WUVvbHLAz btuvDEAqdE4pnWF8LSHYvIER8TYSsj0qTl5fw21smm9jl/7KcNqPF9oV/EMs jdvMsLveXWyeLPM8GNyjtNmkZ1nBqpdeyTnB+xDGot7yXYPgKwUW3KhwokzU j9omN+rbyGZiN5ql/WjsdqK+20rGVb+pybERYvbG5Hfdpf2qA1z7gRQ3aVtL PjfTbjvQnC2yUaPyhj6XvP4XdN80Ql1ohO6SirwldLYwMLr1sF/RY+DH3dir 0cNwVg3tKRUUH8oha6lC7a/rUf+xBI1faNBEpHcS6fJSN/WBD1Z+jb7mCHzt Awh3DWKoewij8mHElcOYJNKT1P0p3SAyuihHOPc1/hMSlCXBTgVC4m6U/Pw8 7UAhSn9RhspfiVH3gRxNP3eh7aMo2r6MQ3ItDVVxJltB52qYh7V2GX2N8/C3 TSMqnkK8e4q/egnTpHNN4DXuPqRc3yK9m3hPLWnMuDLI9CXh14Xh1XoRMNL+ 6NzoU/aii9Qq52XQX9LAwsvgvNELT5EZwVIzoidlN6O1VsTqLNketZONZiQa e5FsNCDZpOVrNd+XY7xOgvHadoxXNmCsvAKRonwGThpX3ruWPeO6M9UQfSnJ nf6/Rst55vVzA5BdHIMhn+x6Pc2PnUaobBZDVfMYEy2g6cv7SPif42H8iC6P p9NJR9I5j4XOWcx3TNEHPySV3MNm4A5W/Xu5p1pCBY5HeKo1xhjzZkMl/2w5 rp2rwvWz1Sg+W4OKMzWo+aIW9Z/XoPFUDRUTx8dVaPqgEo2/etPN4I9hqWLe qyP7NzDIGnJJwN5xC31MAgHVIwzpn2Dc9BxJ2wtMu15my3Dk5+hgrY+wQZ++ FXmJbbL9DoG/N0h3TfDvDj3BJhPA6shDAp/sH2cSiDMJjDMJxJgEhsJ/8ltN HcnFv6+3jSVTsLTkEkDQsI0R+y6SRNts6DZWBu9gc/QuYunXiPvCuJs8wlH6 iGd0L3NE9r8/xZ8zh7iTuZvtVrOdIfund7CYWsLsRArjg5Hf9FFo8/BsaS3E 09lJQm3JIgNvHb6WHQx17WNScUD2OsRS7xHWbfew7byH8WtT+Na/i1u+I+wx A2/57mCN3+3e2D3cGbmD/aE9XpUNrAobXQpb77mGmQVcOXmTe/Ap0PfS7zyq ufYzBcV/L4rO2lB6RZWtpREV6NFeqCddG6ApMkCbp4A5T0mDqYQ7XwHvdT2a /v11rBKwRx1KuK6oYb2oRO+ZHvR/qUXFuzWo+3UX6k+rSDu9aKU4l5K6NVU+ mIRJeALaQ0AHmQKjBPQQAT1GQI+rhzFBQCcI6CQBnaRBSegDFIEejPe64OtS wC+RoeitCyj9OYX5O22ofFfKz1JB9GMrBXoY7eSJzisJ9BSloKucgq1+Bp5W KioxTQlFZkA8g4g0jWFZGinDHE3OPczsk76ffoMM0Zy2TSLdn8jW1Hj52W6t Dx5DGH06SoOLPei+oIQqTwtjvgG2Gyb0FVngK7Uh9Fu1NbEGJ8YbaayaHdnu 3alWG9KtFo5evtbxPTUmm2RINEgwWddKZOf6rVWcv4HavJLsa6FtTt2Z3Pxp 01k3Ws+GIT47AkXeBAzMWI6bM/CWLSBStYRhCvtJUkeKAtpn/xoP0l+TK9ex IF3DonQFS1IqQ8ksZrumyJsPsRk+wlrwdu6xllBnE5jFsp/n2yzJ1tgUXahG 6YUaVJ0Xof6cCC1nRbyuInR9IYL0tAg9n9Wi55Ma9AidvE9qbKRvv6mxYYyJ hMn5efIHBT15va/niPzxEAP6x4iZnyJhf4aMUGvjeYb+0m0K92M6cuGpN935 wFNsDz7BzhC9NaG8Q9W9OfoAazFy+vghlico6CcJ6UkG+fgkFgaDbx6u59ro /MHvYPpNNbylawP9mk1EzFuI9W0jRRzNCY04h+hVKBW2mSn2aMtvJQ9wO3WA g+y4zdd8P3OLWN7DWmYHC+kNzCTnMBmb+K6TkL0lmNsntGMe7q51RJV7MNfw 89r2GGoHiKkOkRY2uTE/wKqd2avvEXY6hc2a9rHje5idO3gy+QyPJp7g3vhD 3IkdYZ/faWtoG2tCu3//NLMu/ZPTczJBeSF7VvYaeu3GHD17VHcwYLyXfT// FyqU5slReVUDEeHcQjh3F+ZqanqpMI3kZutlFfoId991Fb2dAaa/bMT9ckF9 auC/yf92XUa/15td+xqr9EH8H1tQ95mSStKI5ms2dBb3QU6vrSc/W5rDcLVH 4SE/BwnnqGwYw4TzqGoIMSrxOJV4nHAe14cQN/oR63XzOjGVEMpuiRI3f3Ie xT8jnH/Rjqp3Zaj9UIvW072o/7kfLZ+NouXCBLoKE1CUp2EUTTF9TMPbOYNw N323eIEpYQahHipYxSTGVBPopxo/fvkavlY7/O02jBPKfVT/fYSzSx+EyxBE 84VuwlmJnjwdnYgRvdfNsN+0wS3UZ1c6Eanpy9bXjDb2I97cj8mWfiTb+pFq dyHT4eSwY6rDwqOJ7+mRaFMT1j1INHViorERY3Xl3/UHPvejT1BHqNR/2o3G z4y5t/8W4vMxaoMkDNen4ShegLdiGcPCHH3zFn/dNtKdO1DI/57h9w94FpzE omwTS3JaavkqlmQk655ZZJjJNqP3sRq5ixUhnCPr2XIbf5cJ/g4ZHNW8rBdr Iboo4imLaGzqID1bB9mXdVB9UZfty687JYKeiNZ/VgP9J9XQf1QF/QcV0L1T CluFF/aqOENtjqG2Tsrah7PnLnyq+4jqH2HEfIxx+zFSrscoO8/bLL6LvSSt d+gxTcQx1geOsTn4iKHMMBf6347ewwYFx+rEXSwnDrCc5HdO0iAn5onsxJs6 9D87WZL2+xJdXZjbKUJYqufWbyJq30TMvYlUYAsz0W0sDu1gdXSXH7GLrYld 7EzuYTuxi+0ktTKZeD1Dv5LZwlxmE+nUKiYmZr5rj2enn7S3JoniRXi6t7K7 /cbJvhkidtH9lNF1nxH8EGme8pz9MUlxEk9th/gv05t4kfgaz5Nf4UniZbai +d7kY9wZf4D9GFl6hJljYA3LYXqk4DiR7D9B8enckxih/KGel1dY8qe8hYjx MPt+V6UFslr6dArshmtaiEnGygITjIUWWArscN90wF/kQKjUiWi5A4MkoPH3 NXgisSNaZUCmldHazOivM2JK2LO61Q/jW1WooeoWndWjLt+C5pvO7DJBVS39 Or29tS0CVyf9qpRIluV6PAyqBjGspsfW5mbeRyhvR3p9GDT3wylRwCGV0a+r cP2HZ1HyUxHKf95JUpaj9mMdmr8wQ3rRgfr3BtFwehyt1KJdJSmoqtPZc3S2 Z+CVTMHfnUZEnubnTsMvTyKkjkHs+kesHb/G7MgUv4cNYZUFVq0HVl0QJk0A GoULreflDGkNZHlGaK+aYSq0wyEUFlX0IVjjRrTOg+FGL8aavRhv8yHRLsxV epCm75nq6udw4c2y1oyY5NxJcm5XckgJwVYU/eoTlLx3Cud++DEu/+hL1H9Y j8ZPFMxKFrR+6kbb58OQnJuA8koGvTdm4SxZgr9yFdFawrh1F6MiQpRqrqP8 HzA7+RrP5p5iSegPr9rGiophr1zFgnIB0/IpwuQhVgdIcIPCE6tNBGQeBHqE ZhAKmi0KKkK4laPrQh16COPfdDmqg+lMHSwkaCuH7cta2L6ogfWLKtg+r4Tt 03LI/yaPcTYKe8U0Y22VbLULZ/cdxtsRQvp7GDLdR8z2AJOuB/yc6SxT7c7s YSn0gGmFrMUUszZ4H+tDVKOjh1iP3yWED7CS4HdNEcJp4irN1JOkfxifeAPj f3vSguv3RfbJMecE/sfsW9r2TZgVREAvOZqoHiWqJwObyNDVzg5uYmGE7mNM eGTOMcmR3KSu3sRcmv+GYzK1gdHJJXgisTeAttXTXDSlsyv0PN3biGoPEDff R8Z5jAXPc6wHX2JPWNE+/A0ejH2LsbJNvBo5xrPEf8Hz1Lcc3+BJ6is8Sr7A vcQT3Jl8hH3mrq2xW1jlDVoeZM6KTlI9BU8AndsA2VQUg03Y4bB9HS75HgL6 3ORoT7UVSpELmjovWkg50mtWqG84YSogkIrc8JZ4ESz3UdH5MFDrhfQHldi+ 0YcXvcLuGlEquiBmGLiCmlxQhjHfLbST8sIkNMM8rUVNninbKKKtrB/d1V6o 6wMwtoRh7SCoJaTn7gH4ZQMIKaMEUxQRbZg5PDfpHjZ5EDS7YGawmbp6oOsQ Z5v2F/24FmU/60TFLxmEHxvQdMYCcZ4TymtuiD6Kof58kvIiA0l5rpymt2WK ii8DV1cKnp4U/MokgtokpCI7VI1u2CReShUfAgYGt8mV7dCvkYbR3eZC2X+o Q8VftKDmP3Wi+ftSSH4sg/IXShjf08D+kQ6e05QnZ3sxlGdGLN+MZIEV08U2 zJdbsVJlw4Yo11B0v9mCg9Zcm7ojsQH3urS436XCEc+r+r3TqH7/S5xnsrr6 46to+HU9mj9WZzuMt3/qR8cXowRYEqqr0zDdXICrbAWB6g24i2cRqqB5rp1l ElnAlGQBA4Ov8XT9NZbUDH7NFlY0BLSGilu9hBkV/x0T2arwJGrkNgLKAQ6e t8JKiaRAQ15tDswXycUXGqA+3wj92WaYzjXDyuE43wzXhSb0X2zMbvTgzqvj 6xr0U527z1XAfaYM+h9dg60sRbW9CFvrFq/tLfTTNvp0d3hP72LYeoi48wjq m7SE4WPM+I9QWdKH6tI+iHhspIRrLepDW6ELbTc4rjr5vWwEMtU1CVIA9AKl 7r/+rcdm2WT5B795gp2rLempWIGqYxNG5SZcRqYu2yYG+zcx5t/ERIj0PECQ EsBTMR7HSb0EcIIAjnMMJQj48dU/evNkrJagrRc2MF9Gf88OIjyZmOUB0q4n WPARtCHhUd9L+t1XuB/7CuuKu3g58wBPk2Tg1Nd4lv4Kj9Ov8DD1EkfJZ7iT OMbeuLDFN0Er5I8R2oahBDNb4AS0v9llTNgQwdpysn/D/wkp5bC82g5lrSBz I3AItYbCFr/18ewWv7aiAPrLQvBVhbEsTWFFloTpp1o8aR3AK5sJqypKdsrg BVkEm+ZxrBpGGR8D1HF+zHf0Qf/rumyhTFW+DXVFLrRXeLLLCNWNARhaQ7Cc FMu4eiJwK8LwqsO8t0H4DH74eokjUz/6zU5oxXJefSlxl4JDvIjCH9Si5Mcd KCdmK4nZ+jNWdBCzsuse6Ir8KP8wfnLSBdA0p9DbkYK1m/8vseoiVltFbkja gtDJmTv0ETjNIbisPriDmxB9aePwoPZsECLqvaZLw+i8Pga50KmwMgGLKIW+ 5jRl9xSiJPZR+TQm1NO0P9OYMU1jwTqNFec0NvpzhTp7/hRuBXP1lXeiMY5h 3BmI4iASQM3H5zjyceGH+bj6s2LU/6qe4kKNyrctqPmlB00fRCHJo5i4PgtT 8RJcFWvwk3jd5XMI186T+OcxTuc/Ta1scLzG3Y3XeB4dwrKOONVRkOlWsKhd xIxWKIVLYmXsHgLqMQSFwhmNUDhDVy8j2RN/XRebiNMWaC60wXChA5bznbBf FMOV1wn3ZTG8Vzrhv9rB0YbAtRb4rzUicLUOgSs1CF4qR+B8CXrfKoC1ag7W pnVYxduwyfZoSfcRMN5C1HIbVy4E4W67jaZaN+orXGjkaC93QVLmgqzUBWWJ C+piJzQUbeoCJ1TXHFBf5rhgx3x6FemJzAlU/0P28N+hu3MTKmLSTEz2kVT9 xGSEmBwkqQ6TwUZGeSQmB0mqYeLSx6NreOVfnmDRwsDO7XC+jD7ZDkK6uxi1 3EeqjwrYR4EffoqdwWc4GH0O+fUMHnge4sXiDh4Te0/THJkXeJwtPX2Oo9QT HCSJxcl72By/jRV+3HJMmP6mhQ/7fodAhVe6awmYRLl+5+03lQSjCbKqfqhr wvSAo3CJxhGsS2BE6CZE0pnqnM7uuLMkm8Wqcg7r6lmMfx7AK8M4NvRTWNcL LdknMKccwo5jChu2JJZNcQZBlIbKg7lOK4o/VNPEmLOdIkTFbrTS30rq/FA0 BaFtC8EoJii7w7ApQrCrQ3Bog3Do/bAZPbCQpM1GO6Rt3bxeVFoEgKNjBdf+ ugJFP2hH2TsyVHykRw3B2EIwSglGFcFoLM+dc9WVXD+6pqoUOhtT6GlnYEtS 0JJE9Ookqkjooo4oOhWDkOmHoDYNQGkMoPitUyh7+zqaPxej5QsG65c6EjSv 1TV7rt6lzEMT6INHFESQCn+AgmC4PYIxcQQTFAWJ7ghSTFAZgn1KHsx+h2m5 F1OKXL1LSm5BSmFApKEdRe8INS9nUPpuHi7+sBD5b1Wi6q0aVPysl8d+1LwT QO0HTAqnY+ghifZSDTurVuGvW4e7egGhhgUMty5gXDyPVPc8xJ3/iOXl13ix RYdlWMOSYQVL+iW+nscME0bKSCegmUBQF4Nf44Ff6yAwSaByBToutqDnYjtU F8QwnJfAQj/vyOtG3+UeeK/K4L/eg+CNHoQLuxEplCByU8xxUtFW2Ijo9VpE 8itg+9UlCqhCmOpWsk1gzNIt2JXbcOt2KFB2ceOKGU3l/Whr7EN7lROSSifk HJoKJ/TlTvTSfZlLHLDQiVkLebzBkc/XBKblnA1eCqUTVP7lyURMB2WunIg0 EJEWItJBRLrCHNFNOCl1LRyGyPo//25++nu/4dt/CXvLUnbhVIBqVqhFSVCy z/rouMnwW4OPcWv0CSK1WzieeJTdZfRR6imO008JRB4zT/Ag/QSHqce4nXiI XYJxI0EwCoJ6fB5LY3FkQv25B8bf+41E/0toi+dgbFr/7qlxT2UQ6qphmGom 0FebRqhe2NVyDokOmhnJIhbkyzQ5y1jXLkP2rhjblRP4xpvIlupumGiEjWkc eFew517EZt8cVu1pwpF8SU26rHDQfGlx4yMlii5YUHLdSc3iRhPDuKPBD2lL EPJOfr40BK0sCL0yAL3GD73OA42uD2qdHXKNEbbGfl6tMZr6mWztUH/XLgq/ 34rin/eg7AMdKj43o/6iEx28RbKbfmjLglCUR/FmKqu4KIVLxXEUVMVRVhdH VVMc1a1x1HTEcaN2GEWSYZRRlxu6G+CTdaLgJ79G42cNaD4lRvNpJVrP6dF+ yYKe6w5oivthEp6l1ATgrg8h0BRGpDWCoc4oRrsGsg1dJnuEpi5RpBWEozL8 ZsV4WulCklQUaWYkt3Sg5J2PUS5Unr1fjor363DxpzUo+GUTmt5Vov19F2p+ MUwUUpp/Pon2CwnIrzITVa3Aywjvr1tEsGWRH7uIePcCkT2PzqJpjGboTe/+ IxaMKxxEoHEBC72zpOwMUuYEPWIcAUqPgJ4SVudCSGujnZBBQgoUqlR0F2Uw XZTDflmJvnwVPNfVCBSoEbqpRrRYhYESFQZLFRgqk3F0cwiVaO0YLmnCcKEI wzfKYf91HgwVi9kwM5C4jLJN1BSb0FThQCWzWQf9fFuVAxIOJYeO75srHXBy OMoccJU60Eck9t90wE0k9nO4rttPOisEMHjD/caX/tXJg+Ja4wZqTasnD5uE v//5/+OR05ujpSynUhxS8qTmFgZNdzDhOsS09x7F5H1sDNAyjzzEvPYuHi7e xxGF530S3oP0MSPqYfoR/inupR/ibupBtgZsO0UbndrHSpK2eXIGC2Oj/+Jk 2UfTxU50FvRCXEz+KRuCqmIcvVUZAo3CRigMaVtBomsNM7INLKiF4pBNrBu3 oP3QjaeyeXwbHcOWTVj4vYSj0C7uBLexH9jAlncZa8Kmf3aB+4TCEA/mFfo3 y+ivXTDgBv1jcTk9Qq0HjU3Clqk+dIr9EEt96JJ50aVwo5MB2a6wfu9EZNjq 3LA3xrPbu9vb1tEn3aN0OkThj7tRQutWeqoX1ZQozfn96Cr0QlEWQNeNQA5l +RDdMKLluhGd1+iIrxogu0LVfUkP2UU9uv+8GYvCfzulogJWwNnTQeIVo/6T ejR+SpR9rkLzWQPaLlsgpZNWl7hhrPTBVhtEf0MY/hY63fYoBjsHMSIZRKx7 EBOyQUwqiDS64LQygrQqR8AptQdJTR8mGdrhth5E6YBL3j6F8ncuoeK9alS+ 10T32AHRr7pR/5YC7e860PFhGOIzcTR8Po2Wi7P8/lN0WxlYyqcQbF7m71jG gESA2jISsmWklEuwRF/j3uFrzBoXMde7gDnTLGYtU5i2pRBU050bR+mOwxwB BHmDgvw+nRclVJ89VJ8KGPOEh/cauK7REd/Qw39Tj1CxAdFSAwbL9Qx3HUYq tRitUnMoOWT8WYLRik6MlTVjrFiEkSKhIOwstNUr0DZT1RcRZuUOFF/Vo6GI 4kQokyfEFBwqvm8k1GyEWT+Hm1DzkPR8ZU7GdYA//Tfw82+hUeY4nUu2oTwz dbyk/2Ra5uPfeszz+0+BjIW5TRfs4g30q2j3evcRc9xGynMH88G7WIkeou7m PQyqhnB/dRt3Ju/jMEF0pe5/j3/dI6gOU0dUlofYS9/BVvoAq+ldLKco7Scz NJ1Db0BladOhPZ9ppDCMzuIY5KVp9FbMwVW3jFDzOkY6t5Cg4ZxW7WFBt0+G 2ieAbmH04iS+cq1h07GPDfsWHg4c4d7AXTqV29gP72GbrmjNt4yV/mkCazxb drGkt3zX3qDYjKvVDhQ1OFHW4kJ5uwNlHTbcbNXnfHQuzf8p7A2z+O0/+X/V hsK3VSj62IjSL62oueREK1NY2VWdUG+BmgJD9t+JeZRxqPOU0F8zwMh7aLrC cUmHCCG4W22E9owK6s8UkL3fnf1aog9FaPxETLZSoYn4ab1sRVeBCwriR1/p p4uj42uMwEv8BDsGEBUPYUg6hNGeIcSFRicUoQnVABLqCJJ0pUnNCZzf5T9X ISyWcUhQ+osvqE2v5nZrebcNNb+SouF9BY8atPzCho73fRB/PooumjjZjWmI ry5AcXMWBsLHWpMmUWYw2LWI0e7FbFe4SSU1o+Efsy2Mnh8w9RI60wJ0KB7S zklqRJpkjRuB3ghNVRhBoYubykyWkkNxUQV9nhbmfD0cTCn9hb3wMexDQiFG uRmDVWaMVJswVtuLmMiIuMiAcZGWRxVitXLEaqQYr+7AeGUTYhXVZJTC3KUU Wk+U2NFCCJRcNdGw9UFG4SGjVtRUudBb2U/ouGlOvTSmPviYngK8xMEqP8I1 PoSp6zPiAaQ7qcM7Qki3BZBp9iNTz3RU4fzfc2j55PdmNn8jzf6n7GsL865D 2FtHv41h2y4m+veQ8d/CfESoWjhApyGOndhd7I3fxe1JjsRdYuYObnMIM557 6dvYzjDgM7tYymxhPrWIqfEkf/tJW5JWC+x0H3YxNUXBJLpLZhgoS3DUryPQ to0hyT6D4gBpzR3MGQ6xaD7Esu0Ia/Ur+HqIYnToCR4PP8bD4Ue4P/wAdweP cGvgADuRXawLWyF657HcR1Zy0Z5bXbl6zNyGTfYamqm62ew2Ma7uffjVuemR /L+R4MZ7Otw8ZUYp6aWcuKi6oSMu9GgUyglvGujaFZQnShiIDatQRHtZDhcD oOHPCrH0uQZ329WwMZ+azsoxRJkQLfQxx1eh/sMONHyiQCOx0URu6aDb7iE2 NLxxJmLDTmz0tw7A1zGIUNcQBrqHs31BRomNuHIQ48TGhDqKSQbkhI75UO+F v1OLoETNoUCgS6hKOsdxHZWUblW/7ET1r2Ro+LUa1e/oUP8TE9re9ZP3hiGm hJNeS2db9BmqpqEpm0dv9Qxs9Wn0t6QQolEcpemNKWYokfYQW32NJ8f/FSlL Bkl7CkkCY7IvBi+/h0/P0TtAYzMAN79Tp9Bc4IIaqos6GK4YYblmgrPQAk+x lZmdPFhhx2A1JVStHaN1NsTrbRhvEHYlN3P0cuj5swYT9QrmfWGjrXZM1NYj Vl2OcMkFmHs8aCmyoZXSTHjK1VXlRTfBoBQmjoU8U0EDXRkmrzDXVA3AX0P+ Ew0iLBK2lp3gGMesTNglcCzbUXKGOWiOxnWu3YfZpj5kaq0nm4T8fyLEWL8G cxdNFvVSyLSJEec2Jjw7mArsEiVCHcAe1kb3sRnbx/Y4hzA3P8mR2MNWahcb mR2sZLaxkNnEbHoNmcQ8xkbj3yHE3uKkyRgmStJwdi7BI9mEunIVloYteNr3 Eek+wJjyEAntPUwZH2DG/BDyM8N4oN3HN5NreDz6Ek/GnuPR2FPcHz3G3RHK xOFD7AzewnpkCysBGirfFJY9Y0TJyXKBXAsmWwU/tnqKX2ENdoovr+pO9v24 7QHyftCFa7/Wo+yyiiJaS7WlQxMR0sWhKDRAV6DLFqGa8hSwEyHu63p4+W96 /68GHJYY4KWI77uuyJUCCAwvdDgp90L0XhvqP5ah/owOjfQ4LbS9khLhztKH UX1ZiBAnEeIhQgJESIR3bkAoC1AQJUTImErYMzaKGP1ejFE5Jiyv7dLAJxUG DYREjqKffomyX1Sh8u0WVL0tIUKURCZZ/HQv2s9Y0fSWB20fDaHj7ATE+Sn0 FKWJ0Ax6RRkidIqWnlmjOYP+9gR8TFxR6QRGVansTilHT17D2WRH3DmBeF8c fVov+vR+eIkMj3kIfcYIms/L0XleTeWlh+ZyL3qvWWArsKKv2A4v1U+w0oWo 0IZD5MJofR9ijcIOKk5MNDsw2WJDosXCYeJrPSabNUg0yZFo7OJowXh9DaQF jdmmjTc/5Tl+WkNGrkP7pw1oLfBAUuiHqiAEQ0EEpsIB2IoG4Swegr82hjnF NBaU01hUTWW3HRJ2HlxSp/hzgu9P0HuPYYm+dFHsxUKrnVRi+N9ymPjw/898 3L/IvqUuXoC+ZQOmnk300V8ELZsYdm1i3LuJdHALM4zJhaFtLI1sY2VsG6sx jgnGaXILy+nNLE5mhFn2tPCofxUjscwfnUDF1kTD0DqWbVLh6lyhkdxBVHWA uOEe0tZHWHA+wbrnBXYDr3AQFrpNf41Q/hJe+u7heOxrPI59hSfxV3gUf4H7 sae4O3aMW6P3sDN8B+vC1ksRYbJ99s1k+3//W0/5TcW8lOVpYceXnGD5GGHD XYxaCUzXPXTX0GrSwlZf1aDhuhbtRIKsgPqpwARTgQWOG7z7hVZ4mdP8xTYE Si2IvavCMQVdsqkfkw12iofe3HR7ewDpJmHKvRqiD7pRJ2ynkNeLRlrSjuJ+ 9DAHamoDMDaGYaPOchEp3i6ihUgJyYYQFabeiZQhImVEE8GIPogRCpohoS0t eaS/W8ehhVOiRMHffY4y4UHcz9uIlG7UvKdG3Sf0RV+Y0fQFNXx+HxrfDqH1 9ATaL6WoGYmWshR0NSn01qeYOVLo60jxe0zxeyTglsTgl42hrf81Vh68xqND WjqpBV4OG5FiI5c4TUOwGwdhoG9qOaciT+kg5/lp8y28VnbY6SP6y1wUPP0I CVPxIjeGGzy5DP0nmGzrQ7Ld9Z3cTbQRKG16JFvVSNJ+Jds6CZx6SK434OYn FSj5tB71n7XSbomhOCdF73kJgUEqLoyiv2AQvgJetpsjiBaNYrBkDMMcK9ol rOiXsKpf5FjgmOfPDAyd0OmUakOYoJFFsSx1EywmnKDko/+Xia7vndSMK8pX oGnbRK98E079JgKExSBhMebJTVenwpuYGmToj5AmYjxOcCT4XmoTSY44x1hi A5HY3MkTB+JB6CrVHM92eXC0r8HbvYeo5i7ivfeRtj3GQt8zOoyX2A19hYPo Nzgc+hazzbfxYvwhjuPf4vH4Nxxf4dHEK9wff4678Se4FXuIHWGifmifAnAD y4MLufVtgWAOD9//Dvjm4iQ9/CJsJ2sG/DQ/g+bbkFaaIa91nkxZu9FMcy6+ Zobiug164SlnoQuuwn64Gcy+Mqruin50/nU1NvJdeKp3YbozSBB4sKIewiIN 97wsjLkuP2ZaPbD8UoSaT1WoPW+A6Ko12zxeXO6BvMafbe3R2xyBjcbdRWXs kVBo0bgH5QMI07RHaDqiuhCiNMiRXi/sXVrYCAiblCKvqweG9g5c+0EeSn8i PJluJyBkFHVa1H3ai5YzNkaRE7KrblrPEAXXGJrPpk4e+f0Asso0VLVJgjJJ zZskkydgEU+TVgmaqtxuUOY2N/opbPyafgT0Dmi7PNBKfNCIA+imCrj2bwpR 8G9KUfrvKlD75zVo+Ys6SP5zA5Q/aIbxp62wvd0O93sdCH4kxuApCcbOSLKf nrncjblruQ6Ka0U92CzLvd6vluB2rRgHdR24U9/Ca98IfWEbUVGH8k+70HhG ie6LeuhJUY58I+zChrwFYwjcjCMirNoqncBIeQJjFQmMVyUxwTFZOYkN0wY2 zOsca1gzrWDVtEjTK7QITGFZTZWhFB7FOjEnUf+vOWB8eVIzLa1cgaJ9E1qC wEoQuAmCoJNAIDeM0A7HouSJYY4xjnH+TBCMTG5igCPM1+7h+ZOm43QWtQz+ hvHc06OOdXh6GPzaQ8RMD5F2PMG8+wXW/C+xIyzgHPgK4kvjuE399GLmLh6N f43jCRLCBIN/8hXuTbzA3fGnuBV/hO0xoVLlFpZHN76b810Oh3LB3/pd8Ouv xmCunIeF7sLWnQNAZ6kWPbSDwu4oSpEX2rogrHUReOqGqExHMCyKIdYQJ5+P 067ltiWa7RqH6UcaHDdF8dJiwhwdwXRXGJvGSaadeHbh+hKDd1Hqx3ybC6YP aInP6FFNdyEqcKCltD+rjuXUV9omAqA1kq3bcHZF0UcuF/bQ9ikjDLoQgy4A v9EPf68HvdRMvRINjHQV2k4JwbBAdlhHyd9Vofwnbah8S4aq97Wo/cyE5i/t EOf1oSvfA30x1Xdlrp9sw/kMmq/n6jcklSko6pLQthAEnUlYpAnYFZNoquL3 ayQ4JSFY1SG4jEH0W7wIetegVMepBe0cbtR/EkDz6Qj12RB6Lo5Bc20c5puT cDIAvdUpRBrSGG7JIN45hZR0CjPy3Dzwqn6KAZn7DrccKRy4ck9b73nieOAb xQP/EB4EwjBWSWGoVuDmx50oJ6M2XbCg54oLH/ypCGf/rAFt/74Z/qIEIqUp DJVnMFo1hfGaaTqTGSTrZpCun6EemsYUNeI2jfK2bQcbti2sWWlCLUtY7iU9 GEgN+hHShJ8UYcRJ9J/LHv5bdHVuokexCb2B0W+jOurfhNdPKmDqDw1wMPKD o5vwMfr7ORzD64zzXLSbeRntonh2QbG9YwP9sn2EdUcYoxtIOR5jzv0Uq4Hn 2I68yC5qst9YwaPgMe7Hha4BLxnlwniBh4kXuDf5DHcmnmJ//Bjb8XtYy651 +M2s6lLE/4e/y1857q2HjbiVlOkoQayQZ7cfCVO0D8JROwqfaBzR+kkKWmYK yoJUe5pyJoPZ7gwzOG/cZ1680Aj90JKYV4xj1zaHXesMNmk310zEmJ6cqopS gLox32lF+ScaVJw3oeKqHaKbfWhhlu8S+gfUB6BpDsLQFoJJHIZVGoZDzsBS cWiCuVpdyh0n5Y5GrIZarIK8Q5btHeDsXEZf5zYK/7YCpT9qRcVbPahkkNcw yBsY5O0M8pZLlFfFlFeluce75TQKtZdzAVZfnkJbbQrSpiTk7UmoGeRa+SQq K31oIPAksgGodJQ2pih6LUE0qcZw6ZINeZc8uHg5hAuXB3AxfwT5BTEUMruW VSVQI0qhoSmDtrYpiMUzkEpmIe+ZhUoxB6Ui185xoiuEhCTXpyEp9XLk5lgT PVYkZb287mJ051dDcqEc3Te6cPMjOUrOWFDPz+2+FsRHf+rA6f+jB+f/vBOl f9GFwYo5jNXM05QtINGwhFTTEjItS5huXcJs6yLmWhYpFHh/XLex6drHOj3v ypu2kMK6e8sEls0DzPrON0F+IXv4Z2im7O9kapdbmeapb/RM7UbqG0NoEzoG uiKwjj8+CWpDiYP+cxT2+lzNmxDUIabwEfMDJJyPMOt5TN3xBJuRJ9gdeop4 yy08EprLjT/D/YlneDD5lAH9FA8ST3CUeIyDyWPsTTzE1sQR1iYZ1BO52cnl sXHMR325FTR/BU0pHUrTBtpuyNFVaoC0wsW0HYKqepgpIg5nTYJ2KY3BhinE mmcw2TGHtGQeMz0LtFALkP5Cgo3SGF71T2JRO4ODvnXc6lvNbqaz7VjAuo1c aCYXGsmFjMpluVDxrUPJZzqUXrSg/LoTNcXURRTynbV+dDcGoWQ0azpD0EtD 6JUxspUhmBnNZqYSk4Hp2tiH7naK5TZGMm2psFLeQdZzd+0i1HMHxT9oQdnP ulHxHlFDvSJiNLcwmuvOeWlvAzCU+2CqDJ/olR/C0xhFaWEK5UzbIqbtopo4 SklN4p5JdNEKFrQMoIpU1KQeRptuCFbxJRS9dRpNp+qZpoUJFDmav9BRwPdC fJn65roL2iI3TGXUVdUB9IuC8DWEEKIeiwrTldRko+LcmtoJInayO4euZI8f CVlufe2kwo4IrW60WYKeqzWQXBSh+7oM0iJa3S+cqL4URPu1Iaio1j//8wlc +AsPrv6VGjf/Rom2v1OTVjeQbtnENBXGDDXpnJhuUrxBhb6GRdrFeV6zbTet Xv8trLi2sew82ebSmeZR2JOatlfXjdw+l2j7Teb7g+8Mby4lCn/+CC4qjoD2 DoZMR5hw3Me05wEWAw+za2Abrg5jxXgPDxaOKKuPcchce4/heS/xiMdHOJx8 iNuTD7IT6ZuJu1hN7ufK2SdnsRQbQ8xnzy0SaYSyfBnt15XoLLKiq8wPafkQ lJXjZLQ0nLXT8IvmMdi0iHjHMpPECjKyNcwo1zCnWYf+V248kszgq9AoDj37 OPTu4cC7g1seocvcGjb6lrHiIHNZyFyGYTKXl5LbkP3kG6e1uHnJiqICFypK ydDVXrQ2+NHZEoCUEl0mCUIhY+gqAmRyP5QaDxS6Pii0ZPSGLnrDQToToQho geFKSuvaz+5KU/DX9Sj5sRRl9L/lnxhRecaK+osutF8VNh9mcq/MhYa5JoKi K/pcEr5mRC1HY74BLVcMOFcRR15NDJeoqBr/tA7pPB0K3utCxKxHwChH9Yf5 aKTxa/6MoXpKgWYqppYLJnRcsaOnoA+aEkKKkLAJG0fWheFtjCBILx1pH8BQ J31zV66hRpwKaqInF7aT8gAS8lxX/VCzGpFWBSJtUsjya9GV1wzpNTW6C8Po KRyFvCDBz5uBuWgB3oIkgpWbuPb9NIp+FKC1oHV5xwjde8J+uLcxJ72FBek+ FunelrsZltJ1LEmWMSP+v9v7suA2s/S642nHVUmqJq7EqYxnkkwSx1Vx8uKq VJ7iPNjlh6RclYqdZKbdM+menu6eXqYltUSptVISRXETd4IkQALEQgIgQWIh se8bARBcQSxcAO47KZIStfT4KXHO//+gpJ7JOHlPs+oKAIsCcL/v3O875y7f ncOSbQcFK6FhKSFvLbAxtFiFi6FJsY2ac6g2l09GnpPTN6dojHel3CWU1xxV bsLXv43Y0C7S1j3M2ffJbQ9Q95kJm65jbM/lsBU7wnb8CLvjh9hNCO2AgXUf m8k9rKY4eia2URBXyhaQS05jNhI+n8psuqREM4Vdyw0v2hgg5UyX2kpq06os g8ECfE1LiLQXmbZWkO5ZxbRqFbOaNQQ/juOFcQH7/DoHjj3sO3ex49jGlmMT a2OrKNqWUbAw9ZiYeoxxBlcP6cKgNCr/Ay59rsPla0P4stKMymorqutGUdc0 hkdtY2iSsVFzNcotaFKYUN/VL/4vY7VwkNwvbfNuyBGkJVg6tuBU7COoPsa1 P23Fzf/Sg1vvaHD7pwZUfcr/e8mCh5fH0F0p7Xa6e0WL+xVS9YuGCi1a+Fp2 WQv5Fxr0XNKg94Iayp/3wfTHrVi+ydcfqdDzk160vt0hfoeaH0uLafXvKVD/ gQBQPVoumSC7ZkbvzVFo79phrHJhuMYDa4MX9kbq2BafWLfgvAxEtMuHWDdB Kj+P7b+HuMoKV5MKrmYFvK3d6LpUg84vutB2UYWuigC6KxLouTLFwZGB7stF jFUuwl1FN9Rs4voP13H3z6dR/QMPGt4ZRPt7Q7B9MISsfJeajmBUbGJBvsqc toT57hyW6bKFsW3k6aa8nfHUwXTrYDAZ8xOkhq8D9JcP2L0+qmMkCRlspwuI Cpd2HaHBTSTMW5jiW2dcO7hVFYHTlEAptIe1iFCHco/0dRebQkvsYCO5jdUJ kpX0BhYmCc7JFeQm8sgkSDx9nvJRnX+CgXqBCJJKtwXRSLnbRMYvuzWNvsos IbEIW0OJJl5DiOMxLt9Eqncb6b5tdPxIiwJR/MKzLBYQOXQf49DzGLscPFvu Xaw5N1F0rGKBqiZvoQlGmP5NjKdGS/nukN/Cz65p8PO7Blx+OISr9WyPjLhY 2/fWq91aQnHBOkKxufRGmvnbGNc/xbX/1IXr/70PN97T4/bPBlF1gTH5Mysq r2jEdSvpb/8ATde04uG0zp/3QPm5Ajq2/i/UGLioRtUfXkTiB3Js1PRh4BMl dJT/HhJdZ8Uoqv+yCrU/ahGPqNQxrdd9pkfjFya0czTLb41CfdeBAZL9IULR TCiONvnhbPXD0xYQL7EIdvoRJvmNyL2IKjyIKZ2ICcUvm7VwtPbB1a5kU6Dz Qj3OU6r8chrKikz5lfDzDxGs30WsaR+ptkM8/NE2Gt6dRcsHXsg+tkDzmQV5 5T4KKqZLBrJC7yrmexcxrcig4CA8XYyTZJh5DyOFhyndRfvbBv/vEPwOVBel EsTCauggCaytr8RUsorI8BqStnVM2TeQcW8i5xMOcGyJ5z5LkS1xb/hKnC2x gVJqHctpaa0nO1XC/OQyZieySMaS/6gcng31vfSunQiMEoFTGG7LkcCRK9/K Q/uAgq9hDWOtm/DIdki7n2LNeobNsWdQ/CSIg541vIwVcOh9hiPfUxz6TrHn Y8j2HmLds4uSm8h3MEuM5tkYJ61CsWU75vp7pKo574g9FArZi4+1Uswzy7bF 137NMeL6U6RNT1Hxn3tw7R0trjHu3f7UJC7/3CfIHn6pRQ1BLIBMdk1YJO2B Qtg8QJDpLygwSKCZhPNm//YeSp+psNcqg+liL6JUbJEHbASR6s+a8fDtJtS8 043an/ahljGvXtxcYUYXgabk32gJNEOtB8MEmpVAs7dKi6VeGcHWJVykwASt 8CLU60aYHDmkGYOtVSMuA9llajYmYibkjs85EC75mKClrSI9l2nmL5fF57aH 0tGaUOMB4i2Pkeo4xlTXKWYVp2j52Q5kn81BcdGLrk+6sVPjRkFNgPVtYJ7I mFXlUPAwc3o3kfcLpY1pcv8kX5NDOob/Bry99cY6ibCuOECGOtRTxKi2CO9g ERFzCYlRJkeGklkP4e1bRS5ITIUYWqJs8RUsJEkRJkrIpoviacTpSeEc0xIS idnvlHFmrFOTebnFo8VDLbMYblmAtWMVHvkWIn0cXf2PMWs8RWH4DEXLc+bY F8y1L+G6MI8z0oID30sc+l/gKPAch4Ez7AWeYNv/GOu+A5S821h0M8I6Gemc c+xwgnhzY36wT5oi+0sJX/cSGKK6FEozD5PgCD8+7RGietradIxpywku/XkP Lv9Yh0pi5L6AsQoN6r7UoJEY62DrEQoJfCYcmu+B7kIvTBX9GBF2YAgXcvxJ Cw7u9sN6TSlekDDR7ECqka2eJK16DLo/q8JDYfHkfRVqPulH7aVBBnwz2plX FcyrfdXUWMTYIDE20iQtN9qFU8gMZh5izMdA5u+hblG5EFA7MNKihblNTRKr gq2Tz9u70PFJPWSfW9H1eRDyC9Iu7N6KBWhvrPD369K4atxFsPkYEbZkxwmD 1QnJ+RPMq54gqz6lbtqE+gbJnCqAgnaPJHwL89o1zGgXiKkD5IPMrfR+Pkzy F5pCPhBiYDN/Paj95tdAhvNFB2lLovJWFuoGCnEZsaYk1oRzcsRayFxEjOI8 JZyVY9ic8RUxGyKmomwUzrNJYmtCWodLEWMJPkYT+fLiA0FWoyVz8oonX4ea MhhuXYJNtg5Pzw4imkOkBoTTrmcomJ+TwL0UK2W2fGjFTO0GzsKHOAj8AofB r3AknMcJPcde6Cm2gqdYDxyh6NuV7gAQC+wJCxBMp04fMsMaCWR/hP7rY+WA NkulsQxTx4b42qPZR0h/IAqytOUQs6NH6H4whPsEWdVlFR5cka6KaLmqoxIY gPKqAbqrgzBWDGG4wgTzNROsX1I8//vLSP1Ig8cdJmS6gmwBzFENTHd4MN3m xEyTHVN1Nhj+ohrV7/ag+mMtHl4worZiGM0U952VY+ipckDD4KEXzNQkrNT5 GO/9GJP54CBxcymEIrZueNROuLVCXqBJ2xlEZSq2HjKiLrR++ACyT6xSgv8e ei7OM2kuQX1rHYP3t6F/IJ3cD7aekFqfUqCcYlp5ihnVKTLqE2LpGFndY+T6 D+EeiiHfv4PcAAXHwCpmDItIGyj+IjvIM7rkmV7yUWIsHMKcw/Q1Hfx/XNX6 +2T4efRScqs7izCoqPEILifB5SO4QgRX1FXEOIGVDLIRWMk4gZSQzm+F2IJs 3vjid88T5ANtubyTVD5IkI22TibE3j1EtIwcBkZoBq2C9QWKY1+Rdv0V2j5J YaPvCGeTDFyhv8Jh+Bc4YjsIv8Re5Bm2wk/E7bXFIJmqUNONXyUfJEXwkyJ4 fJi1aKQjJD8UDTl4d5ofX2B+XhNfC7vlhR27UUqmpHkPXff60UM8qR5SRdZY iCmNeONf6xUjibUJfVdG0F9hgfGaFcNf2mC+YYON6rntj5uwwt8/0Y6goEyw jYvLiML1EPPyAOY7Pci0jmGETMzwdg2qKAiEc5nVl4dQf92Mljs2dN23o/eh E5o6NwYaGbxavOQQXvFCb2Gef7THjTEGLLs4zz8GfZsGhg42GRlfBxN1Swf7 tQDZR0y2H0s1nXsuZjkGitDe3qAa3qX6lgAVbllFuOspEr1PMaV+ium+Y8xp HiOjO8I8wTQ/sI+sfpdtC1nDOjKDJUybFjApFPSKC3NvBNQ4ARVnYoxEzqcJ u8WH30bznQy66F15Nz+6j5FJX4R1uAi7rQg3I5LXU4Q/UEQgTDBFBZAU4WJU cvDREl44nxaXygBJtcBMLdQPXZscUfsI646RMj7F7MgzcsDnlCkvsOJ6ieHL iziyn2I3+BL7BMhBhMEn8gIH0efYFcASIesKn6AYPkAhcl4HjGAJMQD5fW8y qTc1tv7mJIwPczCWayRalWtw6dYRMG4iNrwJxf0B9BI0yodWAmcMfQ9dMDz0 wVIdhKM6DG91lOorjkhdHPGGcaSaEki3JGD6j/04afBhWTvLNsMmnEdKY1GT Qq5vHDnxMj4Pcu0E2fuNuPuuCnc/7he3TD24OoKGm1a03htF1wMCp9bJPOBC f5NbvG96sNONYYULI0oXzH1OcROLmaBRt2ugEZsKvVSPQy05EohlyN43oevD AOQfS7V1e69JfTU82EHPdWlrXbCbpu86QlxxhJTyCJPqQ/GSg1ndAeYG9pAh YDKGLYKFfHpoFXMjy2QCeUwK0xoJjs0kzZ2kuRNTyEXCZcwoytvMmx4tolVO zGgYcAxF6EeKGGSQGXYWYfYWMeIX1kz4Oza9f/l8lnmwykMqknqFETMx4lIx SzAsJgYZKkeeIGc7w6JDqPD6DLGGLRzFT7ETeobd8DPsR86wH2WLPcVu9IlY yXE18hjLsQMSMqZnkrJ8nF86OiGUiXp9BKZM9zRfjKP/7nxZo/07mEj4bJoV uPUr6LyjEsHRUzVMgBAY1R5oCYrB6ghs1XG4Hibgr00hXJ9GrHESyZYppNun MSWbRvx9B54oY1jRF9jyWDHkpGL2A3Mo9DOMa4Wy1wSIgvSiawSWj2px+30N bn9mEA+qVV23oJ5RpYVRRcaooiA4VM0uOt4NXRcjDMFhIDgMBIeB4DDobFC0 qtn60NksZ3Bm5m1aYFZbeaXpej6fJzCW0Xd7/VUBHWPjPnyKAwS69qkN95Hg +JxQ72NKt4fp/l1MD2wzFW1hxriBWROJL3PHjHUBU6PzSAs3QKUYSSZIBKjn 80n23+86jyYq8eFvoZ78uYVpp4OIaLcW0cb2j19N375xCurbjBjSbKSAAodq DwHdIcYHSf5HTpAZPaGSPEXthTgKpDCHc1T3IXLf8JNv0fWn+Dv89wQ7UeE4 /2Mqv0Msje+hICw1CMhNZJlDk5gPuqWlhv+GvqvT0FSTEvITdZ0SAbPpiui6 rUL3XT19T5sSn6qqEHQPhNtMkhh9kIa7ZhqBhllEGucw3jpPeZLFZGcWrZRm izdjOBtJYm1oBeumonjN9erQIkqDBSwa51+XPO8jVVTa6X+9+G2uf6DDjc8H cbNiBPcYGGrvjqHpoR1tDU760wV5mwu9nS4o6XdVrxN9KtJkNbW/xoLWpl48 augqF1zNsC1iuHkNtnZKpXf5f386jp6fz5L+LkJ5ew3aKmaTui0oa3fhkO8i 1LVEycYsqtpBQr2NCe22eDdgWr+BSeM6Jk0rmKLfp2yLmLTnMOGYRdqZeuNE eR7ziXR5n01YfPhnvxKGdeSEQlEUkRdSyg93rmNMKZQ32kPMeICJEYai8iS9 kmJw08GRHKCuIT3YDD9m9H+M7egRtmOH2OLoXo/vo5TYxWJqB4XzCfrkHHLx BCa8dmmC/i8Y/eZIBYpQtUhnj5orOiATtgJUDtPJTsjvBdF7fxza+2k6eBq2 mgzcdVkEGvOItC5gXLaIFA2Uli9B819Hcdg6g2f2EDbNW2yb2DJvYM289kb1 a+LMMCVdCa/zIa8xI6OQouSVj9SouGTE1esjuF1pRdWDUdTW2fGo0Y6WVgfa ZA60d9vRoRhDR68NMiU1Ua8RQzXGNwprcog0SBV1bbJdNL9tQ+e7Ucg/mYbi SgE9N9nX+6vor11D9511mnkLPuU6NdMGQsoNRNUbGNeuI9G/hqR+FcmhElLm ZaRsC0jRuQnKxqR7Cil3Ejk6Nze5LOwb/703nfv9X3GuuOPoelRy7qMFEv5V WHvJDQmlsFBwd3gXU+U57a57XsLMgyIV1ErwAKvhfaxHhLbHkbtHx+6IpbSL qU0UJujYNENMmoI2NYe5WLy8N/efQ3ZzDvK6ZSjaBK92ov3GADpuj0JW6Ufn 3RiVZBrae7NMMVnYagtwPVqCnyiIdKwg3sWey+k10wF8H8bxtL+ALesBtm1s o/tizeN127ZU89hSQkG41MeUQX6QvHQwQg876FnNqyqcF64b8QURdb3ajDt1 VtxrondbrXjQYUa1bBhVHfo3F6xEViQUR6Qjpd/9LtreDqLzg0l0k/PJrxf4 9ZdIRZapT0jCWtfgJG1xdpfg7S0hqCohzEQbJaOPGZdJYxYRsxYQG8sh5swg 5p5BzDOJuCeBuSnKxcklpBIz+JoXvy5M//r1WVT97SkYa/MYbCthRL4Ku3oN fr1wgmcTSYs073u1PoKcZwcLvh0sBXZI4HdQCm+LE28rZJilBA2XWseC4Dxh vleAUnoBmdQson5fWah+H231S2i6IkczVV3rTRfaboXRfifJ4TmDvvtZGKoX YakjtWxaha9tA0HZJuPoMYrDJ2h5ewBzpKpP7cvYGiUnGGP4tx9jx3GIDfse Vvk9l0fXKUgYo8x56d5ocwL5YS/yRmO5PvT3qVKlNSQx+9Qvk1BJatXZc4Qg ZVrrjxPo+DSDzoo8c8MC5A8WoK5bQGc9aQ35gks+A4diER7VAnyaBQSY84ND eQTNOQRHswg65hFwzyHomUHIO4lJYQMt2zjJ1L/89R55peS+I/56oCoHfeMS DMxUZmUJTt0KKewqoiPn06DrmHVtYF6ofe/bQCFA6wtFqqJrWBhfez01xU/O iG0ZM+kCVV/6e2WFN9SoJ6N049E1L5qux9FC5tx+M4OeygJ01eRv9RzVjWSH /Sc04BMsmZ6iZD5D5/8IYLO9hLPQIo1/hl0nyZiLDnEdY9N1hFXHHkn+FhaE dYixJTYmwjESMlsQ+RHzqys/7kpLN+KtYbVSVTJR5fUewK9+jMjAMZrfm0Db hSzavyygnV9L/rCApjuL0HYxf3cUYJbnMarKw6HLw2VgM+XgtrCNZeFyzsPl mYPbOwMP/RBPFxFOLv7+/4MLpNMG6uuz4sxgfysFNbmuRdhBPUAtNFSeHbSV MGGn1HKtYNa7gkyghEy4hPkYzU1hPUdBPZOWZgWnxF3UyxhPZMr7iGiAR4Pi lZ3SHoI5mJoXYGldgYMqO9CzhziV9KSOVMjwFPmhZ1gaeY4S1bb5o1kcM8pu OV/S5i+w66Zg8jzDjpuE2HOMVfchll27WHAQGk4mbRcHg4s5ysFINmp7vZ9I EG13onTEDB0g1ZMSfsZ69uFRHyA0cIj44CEa3k+j6WIezTfyaLvHQcFgoWzK Q9uRp13yGFLlMKLLwWLMwTqShdXKRp9bGJqsHAijHAhWVxqu2GL56G7o105j /DaUd/LicUZ1B63O4WYWNujqpSpx5/NkCaqMFFVGmqo0HXldjmYiVfyWODn2 FsYn6O1Eoaw7ygavH6bRg9JKuFiqfgmWtnU4unYQIOrimmNMDjxBxkilOvwC S5aXaPiJFfHKFZzQqFvur7DteYld7wvseZ9jx3uGTeH2CA8ViGcfCx6STy9B 72P6IOrynhiNPiYBXroK3ngjRFo0yeDDgNu4Iv5OKPfjVO/ATwIeMe5h3LSH Ccse6q5kKQpyaKCabXuUQ1d7DsruHNSqLHS6LAaMWeiH56G3so1mYLBnYHTM QW+fxr+SDD1xPjd0t4BeGlVFo/b3UqaRpNvKGz59lPkBGjRMg0Zo0ChlfpQQ jggbPpPSvJBQ38cdX/yn54asEa60C5ZXbLPizLKF4drRTRKvJGq0J5jUP8Xc 0HOG4JdYsv4CDR/GUOjYw/E4ibznF9j2foUd31fY9b/Etv8ZNv1Pseo7xrLv QKzRmw+sIR8kDwgyjPvjyLvHpLmh70pS90ZKLOpubJAWEUzd67CpNij1OXj0 W4gMbWF8ZAsTVmaw0S3cr8yiijm4rjmLJrL39t55dGrm0U2V1j2YQfdwBgpL BnJzBhky3FR0vGzDdBmYrZXMCdQOXaSVfX2UtQwFJnJ+K/PNmJ22FLYOUva6 Q3wkKB20ob1cj8XgzXy/bLvBBxz1NbRdbVpcYjQ10R3tm7DL9+BXHSGmO0Xa cEb59RxZ83Msjr6A6uN5bBsfY4/SdpPg2/I9p80IQNptO3CGjcATrAROsBQ8 QiG8i3xknY2RNzKHfIi289m//cs7aLRfxDFwZ64sDX8Hxs4ShntXMKpZhXtg FYHBNXHNbZxsNzW6hrR9DVPuVUz7VzETWsG1tgxudmdwuzeDmQmBdBTL5GMZ 6eTcH0jGmxIf/i4ayLGbaTgZY2gvgach8AYIPIOjCCMNZ/RJJTP0bP+ibCl9 5QCTg1+67LlOQtlIxybGaClf32PSoRNMMC/NDD/FvOUMhdEzOG6tYI8xcM0j 3JF6JqJqKyDMZj+RZrSDJ1ihxFiKEGUxWipOS8WJsrgw9xpD1meXLmb6B1Bf naJMKEBLhPWTdOqF0wKqIkapGV16KQ2EKHKj7MY4u5H0MChx/Exw/EzQ5ykG pBTHzgTj0bdEBvAWEqnCq2xThlemvBpVQzjVUTdLcuqvf7VqyHfFGmFCge3h 9g2MKvbg7TtEpP8xksYTTJEhzVlPUfWpD6m2Hewmj7DiOcWaj532nxAiTM5B iuWgoLEOUYoeYDFOwTy+TbHMoZZYFCsY5GMxSUv9DpRfzqKvmrS0UYrGAwoC nsC3kYY6jEV4Rl7vFo8weESDbAR+lKCPsPNRdj5OZEiJd+nfSP19Uebz54n3 zUfDLSeGKsuHyRuWYGrnoJZvw923j2A/A7TxEBPDR5ixHqH+8ykU9IfYmdlE kQG45GOH/WQfgUOsCUX+Q/tYi+6hSH2xkBCKlAqikaSILsgnp5GNxcpbEf4e um9w8JN8K6gXlCRcOoZII0PkCHtpYy8d7KWLvfSwl1720steeuhi77jgWl9S cK0rvvzKtf9a6tHLX6ONxU0vN6Vl7iEyy6HWVYx0b8Gh3KY+3mES2EWCSWDS so+aqx745X4mcCG/7GPJu49l/x5KAaEoKVt0WyzFtJigfBLqsE6sSkp9oiBu CZoMBaWlyG+jg+Rb1l5EJ/2oZFbVcRwaOA5NBPAIAWwhgK0cfxYGMCt7aIvy MVqU6j/iq/Ko/GW/9VeEpcxWw4zWXIKpcxW23nW4NBsMxJuIMhAnzduYtG5D oYti3rmNnHsbBeGKeD+/eJAtQpof36Cf1sQpppxQiVJUo0VkSVpnE5PfK0uv R8J1pnRPu1ba19pL9/TRPWp2QMNAoqWLNN7iH775pX/5QKnw8x3orqWhp1gU Lswy0CwmRQmjfQx+/asIGteostapf9aRpqaYdqxjzrVOts3mX0MuzBZbRXZ8 BdkUKV9aYtnz50x7IvsD6QOf/00887tf+7X21pzIN3VEoZ4oHFYyebCbbgab wGAJkZESxq3U72MlTJLXTXnJPYnGGfpqlmNuJiGtEk59jXMuMZlP/eCNsSf2 /zdfxxVpEPRV5qGmwlEz0g0w0pnOIx1B4mOWC1k4oMc4mF2MdOVVpBQBkuIH JzkABL4lMK9kWnoeiM39UPrQ/1keZD33Fl9xEB0hOMhQYmHQszOOuvnuPr57 gO8e4rtHCMEw3z3Mdw8mhEEmrFC9hSA/yRqYKq8RiW//v8rpWUaZJqxidFMa qGi5AX75IWFnPznjKAFi51s7va939js5fp18e+e4mKKlU5UQPfEb5UnulpZl cZK7k0lLSSdoaYcBZnsjs/0QsTbEbzrIiD8UEie6f/zGW0gzBb+FakL1Ub80 I9rOb9LBsSYbLb73xp9++s3zb55/8/yb5988///5OX7jfwNcoqn3\ \>"]], Cell[BoxData[ Graphics3DBox[{ {RGBColor[0.7333333333333333, 0.6, 0.4666666666666667], SphereBox[{-1.2186842973999998`, -0.7166596882399999, 0.06219844156399999}, 0.255]}, {RGBColor[0.7333333333333333, 0.6, 0.4666666666666667], SphereBox[{1.2590110502399998`, 0.72493668812, -0.076027456432}, 0.255]}, {RGBColor[0.7333333333333333, 0.6, 0.4666666666666667], SphereBox[{-3.0840328319999997`, 0.0047539836982, -2.0082118201999997`}, 0.255]}, {RGBColor[0.7333333333333333, 0.6, 0.4666666666666667], SphereBox[{3.0745842019999996`, -0.006646733259799999, 2.0114243544}, 0.255]}, {RGBColor[0.7333333333333333, 0.6, 0.4666666666666667], SphereBox[{-5.588864645, -1.4781436771999998`, -1.8902929177999999`}, 0.255]}, {RGBColor[0.7333333333333333, 0.6, 0.4666666666666667], SphereBox[{5.5796049876, 1.4762539512, 1.8933164794}, 0.255]}, {RGBColor[0.7333333333333333, 0.6, 0.4666666666666667], SphereBox[{-7.4604492754, -0.71964545532, -3.957086244}, 0.255]}, {RGBColor[0.7333333333333333, 0.6, 0.4666666666666667], SphereBox[{7.451189618, 0.71775572932, 3.9602987782}, 0.255]}, {RGBColor[0.7333333333333333, 0.6, 0.4666666666666667], SphereBox[{-9.931832938200001, -2.1983182558, -3.8223487802}, 0.255]}, {RGBColor[0.7333333333333333, 0.6, 0.4666666666666667], SphereBox[{9.9225732808, 2.1964285298, 3.8255613144}, 0.255]}, {RGBColor[0.7333333333333333, 0.6, 0.4666666666666667], SphereBox[{-0.7819686188, -2.6750961256, -0.186929806194}, 0.1]}, {RGBColor[0.7333333333333333, 0.6, 0.4666666666666667], SphereBox[{-2.076808874, -0.3442135909, 1.854766069}, 0.1]}, {RGBColor[0.7333333333333333, 0.6, 0.4666666666666667], SphereBox[{0.8371297207399999, 2.6905918788, 0.13968854592}, 0.1]}, {RGBColor[0.7333333333333333, 0.6, 0.4666666666666667], SphereBox[{2.1329337362, 0.34154907724, -1.85852662374}, 0.1]}, {RGBColor[0.7333333333333333, 0.6, 0.4666666666666667], SphereBox[{-3.5377560446, 1.9571892181999997`, -1.7432722349999998`}, 0.1]}, {RGBColor[0.7333333333333333, 0.6, 0.4666666666666667], SphereBox[{-2.2168375706, -0.34689700182, -3.8006169312}, 0.1]}, {RGBColor[0.7333333333333333, 0.6, 0.4666666666666667], SphereBox[{3.5137565243999997`, -1.9666378481999998`, 1.7798384331}, 0.1]}, {RGBColor[0.7333333333333333, 0.6, 0.4666666666666667], SphereBox[{2.1913262695999998`, 0.35627004278, 3.7938139175999996`}, 0.1]}, {RGBColor[0.7333333333333333, 0.6, 0.4666666666666667], SphereBox[{-5.1444010898, -3.430797553, -2.1697833932}, 0.1]}, {RGBColor[0.7333333333333333, 0.6, 0.4666666666666667], SphereBox[{-6.4488789476, -1.1446070382, -0.09078054731399998}, 0.1]}, {RGBColor[0.7333333333333333, 0.6, 0.4666666666666667], SphereBox[{5.1351414324, 3.4289078269999997`, 2.1729959273999997`}, 0.1]}, {RGBColor[0.7333333333333333, 0.6, 0.4666666666666667], SphereBox[{6.4396192902, 1.1427173121999998`, 0.09397985343200001}, 0.1]}, {RGBColor[0.7333333333333333, 0.6, 0.4666666666666667], SphereBox[{-7.904723858, 1.23480366018, -3.6895010424}, 0.1]}, {RGBColor[0.7333333333333333, 0.6, 0.4666666666666667], SphereBox[{-6.6047813426, -1.0539379847199999`, -5.758184094599999}, 0.1]}, {RGBColor[0.7333333333333333, 0.6, 0.4666666666666667], SphereBox[{7.895275228, -1.2366933861799998`, 3.6927135765999997`}, 0.1]}, {RGBColor[0.7333333333333333, 0.6, 0.4666666666666667], SphereBox[{6.595332712599999, 1.05204825872, 5.7613966288}, 0.1]}, {RGBColor[0.7333333333333333, 0.6, 0.4666666666666667], SphereBox[{-9.548218560199999, -4.1727039806, -4.0304076127999995`}, 0.1]}, {RGBColor[0.7333333333333333, 0.6, 0.4666666666666667], SphereBox[{-10.8181144322, -1.8687311441399999`, -2.0350459294}, 0.1]}, {RGBColor[0.7333333333333333, 0.6, 0.4666666666666667], SphereBox[{-11.162611482, -1.59079024406, -5.307295471}, 0.1]}, {RGBColor[0.7333333333333333, 0.6, 0.4666666666666667], SphereBox[{10.8088547748, 1.8666713428, 2.0382584636}, 0.1]}, {RGBColor[0.7333333333333333, 0.6, 0.4666666666666667], SphereBox[{9.538769930199999, 4.1708142546, 4.033620147}, 0.1]}, {RGBColor[0.7333333333333333, 0.6, 0.4666666666666667], SphereBox[{11.1533518246, 1.58890051806, 5.310508005199999}, 0.1]}, Text3DBox["1", {-1.8186842974, -0.7166596882399999, 0.06219844156399999}, { 1, 0}], Text3DBox["2", {0.6590110502399998, 0.72493668812, -0.076027456432}, {1, 0}], Text3DBox["3", {-3.6840328319999998`, 0.0047539836982, -2.0082118201999997`}, {1, 0}], Text3DBox["4", {2.4745842019999995`, -0.006646733259799999, 2.0114243544}, {1, 0}], Text3DBox[ "5", {-6.188864645, -1.4781436771999998`, -1.8902929177999999`}, {1, 0}], Text3DBox["6", {4.9796049876, 1.4762539512, 1.8933164794}, {1, 0}], Text3DBox["7", {-8.0604492754, -0.71964545532, -3.957086244}, {1, 0}], Text3DBox["8", {6.851189618, 0.71775572932, 3.9602987782}, {1, 0}], Text3DBox["9", {-10.5318329382, -2.1983182558, -3.8223487802}, {1, 0}], Text3DBox["10", {9.3225732808, 2.1964285298, 3.8255613144}, {1, 0}], Text3DBox["11", {-1.3819686188, -2.6750961256, -0.186929806194}, {1, 0}], Text3DBox["12", {-2.6768088740000002`, -0.3442135909, 1.854766069}, {1, 0}], Text3DBox["13", {0.23712972073999994`, 2.6905918788, 0.13968854592}, {1, 0}], Text3DBox["14", {1.5329337362, 0.34154907724, -1.85852662374}, {1, 0}], Text3DBox["15", {-4.1377560446, 1.9571892181999997`, -1.7432722349999998`}, {1, 0}], Text3DBox["16", {-2.8168375706, -0.34689700182, -3.8006169312}, {1, 0}], Text3DBox["17", {2.9137565243999997`, -1.9666378481999998`, 1.7798384331}, {1, 0}], Text3DBox["18", {1.5913262695999997`, 0.35627004278, 3.7938139175999996`}, {1, 0}], Text3DBox["19", {-5.744401089799999, -3.430797553, -2.1697833932}, {1, 0}], Text3DBox["20", {-7.0488789476, -1.1446070382, -0.09078054731399998}, {1, 0}], Text3DBox["21", {4.535141432400001, 3.4289078269999997`, 2.1729959273999997`}, {1, 0}], Text3DBox["22", {5.8396192902, 1.1427173121999998`, 0.09397985343200001}, { 1, 0}], Text3DBox["23", {-8.504723858, 1.23480366018, -3.6895010424}, {1, 0}], Text3DBox[ "24", {-7.2047813426, -1.0539379847199999`, -5.758184094599999}, {1, 0}], Text3DBox["25", {7.295275228, -1.2366933861799998`, 3.6927135765999997`}, { 1, 0}], Text3DBox["26", {5.9953327126, 1.05204825872, 5.7613966288}, {1, 0}], Text3DBox[ "27", {-10.148218560199998`, -4.1727039806, -4.0304076127999995`}, {1, 0}], Text3DBox[ "28", {-11.4181144322, -1.8687311441399999`, -2.0350459294}, {1, 0}], Text3DBox["29", {-11.762611482, -1.59079024406, -5.307295471}, {1, 0}], Text3DBox["30", {10.2088547748, 1.8666713428, 2.0382584636}, {1, 0}], Text3DBox["31", {8.9387699302, 4.1708142546, 4.033620147}, {1, 0}], Text3DBox["32", {10.5533518246, 1.58890051806, 5.310508005199999}, {1, 0}], TubeBox[{{1.2590110502399998`, 0.72493668812, -0.076027456432}, {-1.2186842973999998`, \ -0.7166596882399999, 0.06219844156399999}}, 0.1], TubeBox[{{-3.0840328319999997`, 0.0047539836982, -2.0082118201999997`}, {-1.2186842973999998`, \ -0.7166596882399999, 0.06219844156399999}}, 0.1], TubeBox[{{3.0745842019999996`, -0.006646733259799999, 2.0114243544}, { 1.2590110502399998`, 0.72493668812, -0.076027456432}}, 0.1], TubeBox[{{-5.588864645, -1.4781436771999998`, -1.8902929177999999`}, \ {-3.0840328319999997`, 0.0047539836982, -2.0082118201999997`}}, 0.1], TubeBox[{{5.5796049876, 1.4762539512, 1.8933164794}, { 3.0745842019999996`, -0.006646733259799999, 2.0114243544}}, 0.1], TubeBox[{{-7.4604492754, -0.71964545532, -3.957086244}, {-5.588864645, \ -1.4781436771999998`, -1.8902929177999999`}}, 0.1], TubeBox[{{7.451189618, 0.71775572932, 3.9602987782}, {5.5796049876, 1.4762539512, 1.8933164794}}, 0.1], TubeBox[{{-9.931832938200001, -2.1983182558, -3.8223487802}, \ {-7.4604492754, -0.71964545532, -3.957086244}}, 0.1], TubeBox[{{9.9225732808, 2.1964285298, 3.8255613144}, {7.451189618, 0.71775572932, 3.9602987782}}, 0.1], TubeBox[{{-0.7819686188, -2.6750961256, -0.186929806194}, \ {-1.2186842973999998`, -0.7166596882399999, 0.06219844156399999}}, 0.1], TubeBox[{{-2.076808874, -0.3442135909, 1.854766069}, {-1.2186842973999998`, -0.7166596882399999, 0.06219844156399999}}, 0.1], TubeBox[{{0.8371297207399999, 2.6905918788, 0.13968854592}, { 1.2590110502399998`, 0.72493668812, -0.076027456432}}, 0.1], TubeBox[{{2.1329337362, 0.34154907724, -1.85852662374}, { 1.2590110502399998`, 0.72493668812, -0.076027456432}}, 0.1], TubeBox[{{-3.5377560446, 1.9571892181999997`, -1.7432722349999998`}, {-3.0840328319999997`, 0.0047539836982, -2.0082118201999997`}}, 0.1], TubeBox[{{-2.2168375706, -0.34689700182, -3.8006169312}, \ {-3.0840328319999997`, 0.0047539836982, -2.0082118201999997`}}, 0.1], TubeBox[{{3.5137565243999997`, -1.9666378481999998`, 1.7798384331}, { 3.0745842019999996`, -0.006646733259799999, 2.0114243544}}, 0.1], TubeBox[{{2.1913262695999998`, 0.35627004278, 3.7938139175999996`}, { 3.0745842019999996`, -0.006646733259799999, 2.0114243544}}, 0.1], TubeBox[{{-5.1444010898, -3.430797553, -2.1697833932}, {-5.588864645, \ -1.4781436771999998`, -1.8902929177999999`}}, 0.1], TubeBox[{{-6.4488789476, -1.1446070382, -0.09078054731399998}, \ {-5.588864645, -1.4781436771999998`, -1.8902929177999999`}}, 0.1], TubeBox[{{5.1351414324, 3.4289078269999997`, 2.1729959273999997`}, { 5.5796049876, 1.4762539512, 1.8933164794}}, 0.1], TubeBox[{{6.4396192902, 1.1427173121999998`, 0.09397985343200001}, { 5.5796049876, 1.4762539512, 1.8933164794}}, 0.1], TubeBox[{{-7.904723858, 1.23480366018, -3.6895010424}, {-7.4604492754, -0.71964545532, \ -3.957086244}}, 0.1], TubeBox[{{-6.6047813426, -1.0539379847199999`, -5.758184094599999}, \ {-7.4604492754, -0.71964545532, -3.957086244}}, 0.1], TubeBox[{{7.895275228, -1.2366933861799998`, 3.6927135765999997`}, { 7.451189618, 0.71775572932, 3.9602987782}}, 0.1], TubeBox[{{6.595332712599999, 1.05204825872, 5.7613966288}, {7.451189618, 0.71775572932, 3.9602987782}}, 0.1], TubeBox[{{-9.548218560199999, -4.1727039806, -4.0304076127999995`}, \ {-9.931832938200001, -2.1983182558, -3.8223487802}}, 0.1], TubeBox[{{-10.8181144322, -1.8687311441399999`, -2.0350459294}, \ {-9.931832938200001, -2.1983182558, -3.8223487802}}, 0.1], TubeBox[{{-11.162611482, -1.59079024406, -5.307295471}, \ {-9.931832938200001, -2.1983182558, -3.8223487802}}, 0.1], TubeBox[{{10.8088547748, 1.8666713428, 2.0382584636}, {9.9225732808, 2.1964285298, 3.8255613144}}, 0.1], TubeBox[{{9.538769930199999, 4.1708142546, 4.033620147}, {9.9225732808, 2.1964285298, 3.8255613144}}, 0.1], TubeBox[{{11.1533518246, 1.58890051806, 5.310508005199999}, {9.9225732808, 2.1964285298, 3.8255613144}}, 0.1]}, AspectRatio->Automatic, Boxed->True, SphericalRegion->True]], "Output", CellChangeTimes->{3.5710451641025734`*^9}] }, Open ]], Cell[CellGroupData[{ Cell[BoxData[{ RowBox[{ RowBox[{ RowBox[{"tc", "=", RowBox[{"Table", "[", RowBox[{ RowBox[{"{", RowBox[{ RowBox[{"x", "[", RowBox[{"[", "i", "]"}], "]"}], ",", RowBox[{"y", "[", RowBox[{"[", "i", "]"}], "]"}], ",", RowBox[{"z", "[", RowBox[{"[", "i", "]"}], "]"}]}], "}"}], ",", RowBox[{"{", RowBox[{"i", ",", "1", ",", "bc"}], "}"}]}], "]"}]}], ";"}], " ", RowBox[{"(*", " ", RowBox[{"core", " ", "clouds"}], " ", "*)"}]}], "\[IndentingNewLine]", RowBox[{ RowBox[{ RowBox[{"twc", "=", RowBox[{"Table", "[", RowBox[{ RowBox[{"{", RowBox[{ RowBox[{"wxc", "[", RowBox[{"[", "i", "]"}], "]"}], ",", RowBox[{"wyc", "[", RowBox[{"[", "i", "]"}], "]"}], ",", RowBox[{"wzc", "[", RowBox[{"[", "i", "]"}], "]"}]}], "}"}], ",", RowBox[{"{", RowBox[{"i", ",", "1", ",", "cw"}], "}"}]}], "]"}]}], ";"}], " ", RowBox[{"(*", " ", RowBox[{"Bond", " ", "c\[ODoubleDot]ouds", " ", "between", " ", "cores"}], " ", "*)"}]}], "\[IndentingNewLine]", RowBox[{ RowBox[{ RowBox[{"twh", "=", RowBox[{"Table", "[", RowBox[{ RowBox[{"{", RowBox[{ RowBox[{"wxh", "[", RowBox[{"[", "i", "]"}], "]"}], ",", RowBox[{"wyh", "[", RowBox[{"[", "i", "]"}], "]"}], ",", RowBox[{"wzh", "[", RowBox[{"[", "i", "]"}], "]"}]}], "}"}], ",", RowBox[{"{", RowBox[{"i", ",", "1", ",", "bh"}], "}"}]}], "]"}]}], ";"}], " ", RowBox[{"(*", " ", RowBox[{"H", "-", RowBox[{"bonding", " ", "clouds"}]}], " ", "*)"}], " "}], "\[IndentingNewLine]", RowBox[{ RowBox[{"tw", "=", RowBox[{"Join", "[", RowBox[{"tc", ",", "twc", ",", "twh"}], "]"}]}], ";"}], "\[IndentingNewLine]", RowBox[{"bt", "=", RowBox[{"Length", "[", "tw", "]"}]}], "\[IndentingNewLine]", RowBox[{"MatrixForm", "[", "tw", "]"}], "\[IndentingNewLine]", RowBox[{ RowBox[{"(*", " ", RowBox[{"coordinates", " ", "of", " ", "clouds"}], " ", "*)"}]}]}], "Input", CellChangeTimes->{{3.568895397419882*^9, 3.5688955157148895`*^9}, { 3.568895549629349*^9, 3.5688955855718126`*^9}, {3.568895617317868*^9, 3.568895845234268*^9}, {3.5688960797194805`*^9, 3.5688961015127187`*^9}, { 3.568896219074525*^9, 3.5688962276233397`*^9}, {3.568896262910602*^9, 3.5688962903198504`*^9}, 3.5688964250728865`*^9, 3.568896456912543*^9, { 3.5688981540863237`*^9, 3.5688981869399815`*^9}, {3.5689021233572955`*^9, 3.5689021341525145`*^9}, {3.5689111169043026`*^9, 3.5689111218495116`*^9}, {3.568911235261711*^9, 3.568911242437723*^9}, 3.5689112948850155`*^9, {3.5689116510180407`*^9, 3.568911800419503*^9}, { 3.568911871820829*^9, 3.5689119012892804`*^9}, {3.5689119993042526`*^9, 3.5689120006770554`*^9}, {3.568912144306507*^9, 3.568912165085744*^9}, { 3.5689528310632005`*^9, 3.5689528569592457`*^9}, {3.5689534065794115`*^9, 3.5689534297298517`*^9}, {3.568954496214126*^9, 3.5689545054337425`*^9}, 3.5689569073699613`*^9, {3.56913308739126*^9, 3.5691332012870607`*^9}, { 3.569135511323518*^9, 3.5691355127119203`*^9}, {3.569136204167535*^9, 3.569136290747687*^9}, {3.5691598050571885`*^9, 3.569159843199256*^9}, { 3.5692215417755947`*^9, 3.569221597186892*^9}, {3.5692216819730406`*^9, 3.5692217090546885`*^9}, {3.5692217693019943`*^9, 3.5692218260704937`*^9}, {3.5692219780303607`*^9, 3.569221989433981*^9}, { 3.569222055468897*^9, 3.5692220728005276`*^9}, {3.5693401536421804`*^9, 3.5693401889450426`*^9}, 3.5693411655535583`*^9, {3.569341634303181*^9, 3.569341638733589*^9}, {3.5704549882757435`*^9, 3.5704550487414494`*^9}, { 3.570455928146194*^9, 3.5704559415310173`*^9}, {3.5708553973857827`*^9, 3.5708554057785974`*^9}}], Cell[BoxData["41"], "Output", CellChangeTimes->{3.571045164118173*^9}], Cell[BoxData[ TagBox[ RowBox[{"(", "\[NoBreak]", GridBox[{ { RowBox[{"-", "1.2186842973999998`"}], RowBox[{"-", "0.7166596882399999`"}], "0.06219844156399999`"}, {"1.2590110502399998`", "0.72493668812`", RowBox[{"-", "0.076027456432`"}]}, { RowBox[{"-", "3.0840328319999997`"}], "0.0047539836982`", RowBox[{"-", "2.0082118201999997`"}]}, {"3.0745842019999996`", RowBox[{"-", "0.006646733259799999`"}], "2.0114243544`"}, { RowBox[{"-", "5.588864645`"}], RowBox[{"-", "1.4781436771999998`"}], RowBox[{"-", "1.8902929177999999`"}]}, {"5.5796049876`", "1.4762539512`", "1.8933164794`"}, { RowBox[{"-", "7.4604492754`"}], RowBox[{"-", "0.71964545532`"}], RowBox[{"-", "3.957086244`"}]}, {"7.451189618`", "0.71775572932`", "3.9602987782`"}, { RowBox[{"-", "9.931832938200001`"}], RowBox[{"-", "2.1983182558`"}], RowBox[{"-", "3.8223487802`"}]}, {"9.9225732808`", "2.1964285298`", "3.8255613144`"}, {"0.02016337641999999`", "0.00413849994000004`", RowBox[{"-", "0.006914507434000003`"}]}, { RowBox[{"-", "2.1513585646999998`"}], RowBox[{"-", "0.35595285227089996`"}], RowBox[{"-", "0.9730066893179998`"}]}, {"2.1667976261199997`", "0.35914497743010004`", "0.9676984489839999`"}, { RowBox[{"-", "4.3364487385`"}], RowBox[{"-", "0.7366948467508999`"}], RowBox[{"-", "1.9492523689999999`"}]}, {"4.3270945948`", "0.7348036089701`", "1.9523704169`"}, { RowBox[{"-", "6.5246569602`"}], RowBox[{"-", "1.0988945662599998`"}], RowBox[{"-", "2.9236895809`"}]}, {"6.5153973028`", "1.09700484026`", "2.9268076288`"}, { RowBox[{"-", "8.696869719612453`"}], RowBox[{"-", "1.4594177975645017`"}], RowBox[{"-", "3.8896777888292187`"}]}, {"8.687610062212451`", "1.4575280715645018`", "3.8928903230292184`"}, { RowBox[{"-", "0.904930579715478`"}], RowBox[{"-", "2.1236774418511257`"}], RowBox[{"-", "0.11678508878434955`"}]}, { RowBox[{"-", "1.8351986943708796`"}], RowBox[{"-", "0.4490780487355061`"}], "1.3500577803990998`"}, {"0.9559140576488845`", "2.137144660139827`", "0.0789518398648018`"}, {"1.8868645974640725`", "0.44949896883439727`", RowBox[{"-", "1.356630927537575`"}]}, { RowBox[{"-", "3.4100023425042556`"}], "1.4074469471787587`", RowBox[{"-", "1.8178706066527417`"}]}, { RowBox[{"-", "2.461001371814654`"}], RowBox[{"-", "0.2478876493168626`"}], RowBox[{"-", "3.295954988615342`"}]}, {"3.3901000076947514`", RowBox[{"-", "1.4147686577140075`"}], "1.845045430183598`"}, {"2.4400015504061385`", "0.25409328570776896`", "3.2919942238551343`"}, { RowBox[{"-", "5.269540550702179`"}], RowBox[{"-", "2.881024572769463`"}], RowBox[{"-", "2.0910923801581958`"}]}, { RowBox[{"-", "6.206758125951935`"}], RowBox[{"-", "1.2385079940797703`"}], RowBox[{"-", "0.5973993470138645`"}]}, {"5.260279276218895`", "2.8791419510728575`", "2.094252726357498`"}, {"6.197479741539387`", "1.2366255309180798`", "0.6005883565501688`"}, { RowBox[{"-", "7.779642698673504`"}], "0.6845476455758805`", RowBox[{"-", "3.764837036277634`"}]}, { RowBox[{"-", "6.845715162139853`"}], RowBox[{"-", "0.9598099090207951`"}], RowBox[{"-", "5.251041816765561`"}]}, {"7.770244705348259`", RowBox[{"-", "0.6864260753180297`"}], "3.768051117057389`"}, {"6.83631020905921`", "0.9579239064929426`", "5.25427441225049`"}, { RowBox[{"-", "9.656224148645062`"}], RowBox[{"-", "3.6168210308098456`"}], RowBox[{"-", "3.9718292123674805`"}]}, { RowBox[{"-", "10.568582038903985`"}], RowBox[{"-", "1.9615263354294628`"}], RowBox[{"-", "2.5382607216801105`"}]}, { RowBox[{"-", "10.81610290385149`"}], RowBox[{"-", "1.761831304690991`"}], RowBox[{"-", "4.889229386693076`"}]}, {"10.559325803423102`", "1.9595131455830892`", "2.541466355131495`"}, {"9.64682680704167`", "3.6149411629004584`", "3.9750427854034074`"}, {"10.80684324645149`", "1.759941578690991`", "4.892441920893075`"} }, 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.571045164118173*^9}] }, Open ]], Cell[BoxData[ RowBox[{ RowBox[{"(*", " ", RowBox[{"cloud", "-", RowBox[{"cloud", " ", "distances"}]}], " ", "*)"}], "\[IndentingNewLine]", RowBox[{ RowBox[{ RowBox[{"dw", "=", RowBox[{"Table", "[", RowBox[{ RowBox[{"Sqrt", "[", RowBox[{ RowBox[{ RowBox[{"(", RowBox[{ RowBox[{"tw", "[", RowBox[{"[", RowBox[{"i", ",", "1"}], "]"}], "]"}], "-", RowBox[{"tw", "[", RowBox[{"[", RowBox[{"j", ",", "1"}], "]"}], "]"}]}], ")"}], "^", "2"}], "+", RowBox[{ RowBox[{"(", RowBox[{ RowBox[{"tw", "[", RowBox[{"[", RowBox[{"i", ",", "2"}], "]"}], "]"}], "-", RowBox[{"tw", "[", RowBox[{"[", RowBox[{"j", ",", "2"}], "]"}], "]"}]}], ")"}], "^", "2"}], "+", RowBox[{ RowBox[{"(", RowBox[{ RowBox[{"tw", "[", RowBox[{"[", RowBox[{"i", ",", "3"}], "]"}], "]"}], "-", RowBox[{"tw", "[", RowBox[{"[", RowBox[{"j", ",", "3"}], "]"}], "]"}]}], ")"}], "^", "2"}]}], "]"}], ",", RowBox[{"{", RowBox[{"i", ",", "1", ",", "bt"}], "}"}], ",", RowBox[{"{", RowBox[{"j", ",", "1", ",", "bt"}], "}"}]}], "]"}]}], ";"}], "\[IndentingNewLine]", RowBox[{"(*", RowBox[{"MatrixForm", "[", "dw", "]"}], "*)"}]}]}]], "Input", CellChangeTimes->{{3.5688982251756487`*^9, 3.5688986440675845`*^9}, { 3.5688986873108606`*^9, 3.56889871560931*^9}, {3.5688987970414534`*^9, 3.5688988526711507`*^9}, {3.568898887147211*^9, 3.568898888644814*^9}, { 3.5688989206248703`*^9, 3.568899041759083*^9}, {3.5688990876855636`*^9, 3.568899258349863*^9}, 3.568899300267137*^9, {3.568899351326027*^9, 3.5688993831032825`*^9}, {3.5688994370481772`*^9, 3.568899468217032*^9}, { 3.5688995813016305`*^9, 3.5688997165538683`*^9}, {3.5688998495129013`*^9, 3.568899932364647*^9}, {3.568899967667509*^9, 3.568900024529609*^9}, { 3.5689000794261055`*^9, 3.568900136257005*^9}, {3.5689001767858763`*^9, 3.56890020149632*^9}, {3.568902068726*^9, 3.568902074139209*^9}, 3.56890216040736*^9, 3.568902344113283*^9, {3.5689024237982235`*^9, 3.56890243907065*^9}, 3.5689025770684924`*^9, 3.568910195129884*^9, 3.568910620995032*^9, {3.568912393532545*^9, 3.5689124022841606`*^9}, { 3.5691332074958715`*^9, 3.5691332081666727`*^9}, {3.5691352237838125`*^9, 3.5691352313342257`*^9}, {3.5691489965881166`*^9, 3.5691490103317413`*^9}, {3.5691490440122004`*^9, 3.5691491351943607`*^9}, {3.569149201666077*^9, 3.5691492026956787`*^9}, { 3.5691494320784817`*^9, 3.5691494680989447`*^9}, {3.569152288984131*^9, 3.5691522953957424`*^9}, {3.5691595058486633`*^9, 3.569159537672719*^9}, 3.569237911685565*^9, 3.5693411655535583`*^9, 3.5693418217687106`*^9, { 3.5703410302061863`*^9, 3.570341063621445*^9}}], Cell[BoxData[ RowBox[{ RowBox[{"(*", " ", RowBox[{"nucleus", "-", RowBox[{"nucleus", " ", "distances"}]}], " ", "*)"}], "\[IndentingNewLine]", RowBox[{"(*", RowBox[{"MatrixForm", "[", "dc", "]"}], " ", "*)"}], " "}]], "Input", CellChangeTimes->{{3.5688982251756487`*^9, 3.5688986440675845`*^9}, { 3.5688986873108606`*^9, 3.56889871560931*^9}, {3.5688987970414534`*^9, 3.5688988526711507`*^9}, {3.568898887147211*^9, 3.568898888644814*^9}, { 3.5688989206248703`*^9, 3.568899041759083*^9}, {3.5688990876855636`*^9, 3.568899258349863*^9}, 3.568899300267137*^9, {3.568899351326027*^9, 3.5688993831032825`*^9}, {3.5688994370481772`*^9, 3.568899468217032*^9}, { 3.5688995813016305`*^9, 3.5688997165538683`*^9}, {3.5688998495129013`*^9, 3.568899932364647*^9}, {3.568899967667509*^9, 3.568900024529609*^9}, { 3.5689000794261055`*^9, 3.568900136257005*^9}, {3.5689001767858763`*^9, 3.56890020149632*^9}, {3.568902068726*^9, 3.568902074139209*^9}, 3.56890216040736*^9, 3.568902344113283*^9, {3.5689024237982235`*^9, 3.56890243907065*^9}, 3.5689025770684924`*^9, 3.568910195129884*^9, 3.568910620995032*^9, {3.568912393532545*^9, 3.5689124022841606`*^9}, { 3.5691332074958715`*^9, 3.5691332081666727`*^9}, {3.5691352237838125`*^9, 3.5691352313342257`*^9}, {3.5691489965881166`*^9, 3.5691490103317413`*^9}, {3.5691490440122004`*^9, 3.5691491273631463`*^9}, {3.5691523435842266`*^9, 3.56915234531583*^9}, { 3.5691524837816734`*^9, 3.569152599175076*^9}, {3.569159470889002*^9, 3.569159489874235*^9}, {3.569160442895509*^9, 3.5691604484335184`*^9}, 3.569237923385586*^9, 3.569341165569158*^9, 3.5693418217843103`*^9, { 3.570341048161818*^9, 3.570341058286236*^9}, {3.57034131095988*^9, 3.570341315156287*^9}, 3.5703415891395683`*^9, 3.570341976207448*^9}], Cell[CellGroupData[{ Cell[BoxData[{ RowBox[{ RowBox[{"tv1", "=", RowBox[{"Table", "[", RowBox[{ RowBox[{"{", RowBox[{ RowBox[{"x", "[", RowBox[{"[", "i", "]"}], "]"}], ",", RowBox[{"y", "[", RowBox[{"[", "i", "]"}], "]"}], ",", RowBox[{"z", "[", RowBox[{"[", "i", "]"}], "]"}]}], "}"}], ",", RowBox[{"{", RowBox[{"i", ",", "1", ",", "bc"}], "}"}]}], "]"}]}], ";"}], "\[IndentingNewLine]", RowBox[{ RowBox[{"tv2", "=", RowBox[{"Table", "[", RowBox[{ RowBox[{"{", RowBox[{"0", ",", "0", ",", "0"}], "}"}], ",", RowBox[{"{", RowBox[{"i", ",", "1", ",", "cw"}], "}"}]}], "]"}]}], ";"}], "\[IndentingNewLine]", RowBox[{ RowBox[{"tv3", "=", " ", RowBox[{"Table", "[", RowBox[{ RowBox[{"{", RowBox[{ RowBox[{"x", "[", RowBox[{"[", "i", "]"}], "]"}], ",", RowBox[{"y", "[", RowBox[{"[", "i", "]"}], "]"}], ",", RowBox[{"z", "[", RowBox[{"[", "i", "]"}], "]"}]}], "}"}], ",", RowBox[{"{", RowBox[{"i", ",", RowBox[{"bc", "+", "1"}], ",", "n"}], "}"}]}], "]"}]}], ";"}], "\[IndentingNewLine]", RowBox[{ RowBox[{"tv", " ", "=", " ", RowBox[{"Join", "[", RowBox[{"tv1", ",", "tv2", ",", "tv3"}], "]"}]}], ";"}], "\[IndentingNewLine]", RowBox[{"MatrixForm", "[", "tv", "]"}]}], "Input", CellChangeTimes->{{3.5688982251756487`*^9, 3.5688986440675845`*^9}, { 3.5688986873108606`*^9, 3.56889871560931*^9}, {3.5688987970414534`*^9, 3.5688988526711507`*^9}, {3.568898887147211*^9, 3.568898888644814*^9}, { 3.5688989206248703`*^9, 3.568899041759083*^9}, {3.5688990876855636`*^9, 3.568899258349863*^9}, 3.568899300267137*^9, {3.568899351326027*^9, 3.5688993831032825`*^9}, {3.5688994370481772`*^9, 3.568899468217032*^9}, { 3.5688995813016305`*^9, 3.5688997165538683`*^9}, {3.5688998495129013`*^9, 3.568899932364647*^9}, {3.568899967667509*^9, 3.568900024529609*^9}, { 3.5689000794261055`*^9, 3.568900136257005*^9}, {3.5689001767858763`*^9, 3.56890020149632*^9}, {3.568902068726*^9, 3.568902074139209*^9}, 3.56890216040736*^9, 3.568902344113283*^9, {3.5689024237982235`*^9, 3.56890243907065*^9}, 3.5689025770684924`*^9, 3.568910195129884*^9, 3.568910620995032*^9, {3.568912393532545*^9, 3.5689124022841606`*^9}, { 3.5691332074958715`*^9, 3.5691332081666727`*^9}, {3.5691352237838125`*^9, 3.5691352313342257`*^9}, {3.5691489965881166`*^9, 3.5691490103317413`*^9}, {3.5691490440122004`*^9, 3.5691491273631463`*^9}, {3.5691523435842266`*^9, 3.56915234531583*^9}, { 3.5691524837816734`*^9, 3.5691526041202846`*^9}, {3.5691595921324143`*^9, 3.5691596901941867`*^9}, {3.569159772406331*^9, 3.5691597832951508`*^9}, { 3.5691598700313025`*^9, 3.569159885147729*^9}, {3.569160485733184*^9, 3.569160486887586*^9}, {3.5691672792073207`*^9, 3.5691672793789206`*^9}, { 3.5691673418102303`*^9, 3.5691674875144863`*^9}, {3.569168259700243*^9, 3.569168260386644*^9}, {3.569168321257951*^9, 3.569168337466379*^9}, { 3.5691685152754917`*^9, 3.569168656096939*^9}, {3.5691687137702403`*^9, 3.569168772566744*^9}, {3.5691697249898825`*^9, 3.569169747063921*^9}, { 3.569169944981469*^9, 3.5691699696763124`*^9}, 3.569341165569158*^9, { 3.5693417833614435`*^9, 3.5693417874486504`*^9}, {3.5704552110753345`*^9, 3.5704552378605814`*^9}, {3.5704560776724567`*^9, 3.570456083070066*^9}, { 3.570855427306635*^9, 3.570855434529448*^9}}], Cell[BoxData[ TagBox[ RowBox[{"(", "\[NoBreak]", GridBox[{ { RowBox[{"-", "1.2186842973999998`"}], RowBox[{"-", "0.7166596882399999`"}], "0.06219844156399999`"}, {"1.2590110502399998`", "0.72493668812`", RowBox[{"-", "0.076027456432`"}]}, { RowBox[{"-", "3.0840328319999997`"}], "0.0047539836982`", RowBox[{"-", "2.0082118201999997`"}]}, {"3.0745842019999996`", RowBox[{"-", "0.006646733259799999`"}], "2.0114243544`"}, { RowBox[{"-", "5.588864645`"}], RowBox[{"-", "1.4781436771999998`"}], RowBox[{"-", "1.8902929177999999`"}]}, {"5.5796049876`", "1.4762539512`", "1.8933164794`"}, { RowBox[{"-", "7.4604492754`"}], RowBox[{"-", "0.71964545532`"}], RowBox[{"-", "3.957086244`"}]}, {"7.451189618`", "0.71775572932`", "3.9602987782`"}, { RowBox[{"-", "9.931832938200001`"}], RowBox[{"-", "2.1983182558`"}], RowBox[{"-", "3.8223487802`"}]}, {"9.9225732808`", "2.1964285298`", "3.8255613144`"}, {"0", "0", "0"}, {"0", "0", "0"}, {"0", "0", "0"}, {"0", "0", "0"}, {"0", "0", "0"}, {"0", "0", "0"}, {"0", "0", "0"}, {"0", "0", "0"}, {"0", "0", "0"}, { RowBox[{"-", "0.7819686188`"}], RowBox[{"-", "2.6750961256`"}], RowBox[{"-", "0.186929806194`"}]}, { RowBox[{"-", "2.076808874`"}], RowBox[{"-", "0.3442135909`"}], "1.854766069`"}, {"0.8371297207399999`", "2.6905918788`", "0.13968854592`"}, {"2.1329337362`", "0.34154907724`", RowBox[{"-", "1.85852662374`"}]}, { RowBox[{"-", "3.5377560446`"}], "1.9571892181999997`", RowBox[{"-", "1.7432722349999998`"}]}, { RowBox[{"-", "2.2168375706`"}], RowBox[{"-", "0.34689700182`"}], RowBox[{"-", "3.8006169312`"}]}, {"3.5137565243999997`", RowBox[{"-", "1.9666378481999998`"}], "1.7798384331`"}, {"2.1913262695999998`", "0.35627004278`", "3.7938139175999996`"}, { RowBox[{"-", "5.1444010898`"}], RowBox[{"-", "3.430797553`"}], RowBox[{"-", "2.1697833932`"}]}, { RowBox[{"-", "6.4488789476`"}], RowBox[{"-", "1.1446070382`"}], RowBox[{"-", "0.09078054731399998`"}]}, {"5.1351414324`", "3.4289078269999997`", "2.1729959273999997`"}, {"6.4396192902`", "1.1427173121999998`", "0.09397985343200001`"}, { RowBox[{"-", "7.904723858`"}], "1.23480366018`", RowBox[{"-", "3.6895010424`"}]}, { RowBox[{"-", "6.6047813426`"}], RowBox[{"-", "1.0539379847199999`"}], RowBox[{"-", "5.758184094599999`"}]}, {"7.895275228`", RowBox[{"-", "1.2366933861799998`"}], "3.6927135765999997`"}, {"6.595332712599999`", "1.05204825872`", "5.7613966288`"}, { RowBox[{"-", "9.548218560199999`"}], RowBox[{"-", "4.1727039806`"}], RowBox[{"-", "4.0304076127999995`"}]}, { RowBox[{"-", "10.8181144322`"}], RowBox[{"-", "1.8687311441399999`"}], RowBox[{"-", "2.0350459294`"}]}, { RowBox[{"-", "11.162611482`"}], RowBox[{"-", "1.59079024406`"}], RowBox[{"-", "5.307295471`"}]}, {"10.8088547748`", "1.8666713428`", "2.0382584636`"}, {"9.538769930199999`", "4.1708142546`", "4.033620147`"}, {"11.1533518246`", "1.58890051806`", "5.310508005199999`"} }, 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.571045164149373*^9}] }, Open ]], Cell[CellGroupData[{ Cell[BoxData[ RowBox[{"\[IndentingNewLine]", RowBox[{ RowBox[{"ow", "=", RowBox[{"Join", "[", RowBox[{"Table", "[", RowBox[{ RowBox[{"-", "2.0"}], ",", RowBox[{"{", RowBox[{"i", ",", "1", ",", RowBox[{"bc", "+", "nb"}]}], "}"}]}], "]"}], "]"}]}], RowBox[{"(*", " ", RowBox[{"nucleus", "-", RowBox[{"cloud", " ", "distances"}]}], " ", "*)"}], "\[IndentingNewLine]", RowBox[{"cnv", "=", RowBox[{"Join", "[", RowBox[{ RowBox[{"Table", "[", RowBox[{ RowBox[{"cn", "[", RowBox[{"[", "i", "]"}], "]"}], ",", RowBox[{"{", RowBox[{"i", ",", "1", ",", "bc"}], "}"}]}], "]"}], ",", RowBox[{"Table", "[", RowBox[{"0.0", ",", RowBox[{"{", RowBox[{"i", ",", "1", ",", "cw"}], "}"}]}], "]"}], ",", RowBox[{"Table", "[", RowBox[{ RowBox[{"cn", "[", RowBox[{"[", "i", "]"}], "]"}], ",", RowBox[{"{", RowBox[{"i", ",", RowBox[{"bc", "+", "1"}], ",", "n"}], "}"}]}], "]"}]}], "]"}]}], "\[IndentingNewLine]", RowBox[{ RowBox[{"dcw", "=", RowBox[{"Table", "[", RowBox[{ RowBox[{ RowBox[{"sq", "=", RowBox[{"Sqrt", "[", RowBox[{ RowBox[{ RowBox[{"(", RowBox[{ RowBox[{"tw", "[", RowBox[{"[", RowBox[{"i", ",", "1"}], "]"}], "]"}], "-", RowBox[{"tv", "[", RowBox[{"[", RowBox[{"j", ",", "1"}], "]"}], "]"}]}], ")"}], "^", "2"}], "+", RowBox[{ RowBox[{"(", RowBox[{ RowBox[{"tw", "[", RowBox[{"[", RowBox[{"i", ",", "2"}], "]"}], "]"}], "-", RowBox[{"tv", "[", RowBox[{"[", RowBox[{"j", ",", "2"}], "]"}], "]"}]}], ")"}], "^", "2"}], "+", RowBox[{ RowBox[{"(", RowBox[{ RowBox[{"tw", "[", RowBox[{"[", RowBox[{"i", ",", "3"}], "]"}], "]"}], "-", RowBox[{"tv", "[", RowBox[{"[", RowBox[{"j", ",", "3"}], "]"}], "]"}]}], ")"}], "^", "2"}]}], "]"}]}], ";", RowBox[{"If", "[", RowBox[{ RowBox[{"sq", ">", " ", "0.1"}], ",", StyleBox[ RowBox[{"1", "/", "sq"}], FontColor->RGBColor[1, 0, 0]], ",", "0"}], "]"}]}], ",", RowBox[{"{", RowBox[{"i", ",", "1", ",", "bt"}], "}"}], ",", RowBox[{"{", RowBox[{"j", ",", "1", ",", "bt"}], "}"}]}], "]"}]}], ";"}], "\[IndentingNewLine]", RowBox[{ RowBox[{"dcw", "=", RowBox[{"Table", "[", RowBox[{ RowBox[{"If", "[", RowBox[{ RowBox[{"i", "\[Equal]", " ", "j"}], ",", RowBox[{ RowBox[{"dcw", "[", RowBox[{"[", RowBox[{"i", ",", "j"}], "]"}], "]"}], "=", "0.0"}], ",", RowBox[{"dcw", "[", RowBox[{"[", RowBox[{"i", ",", "j"}], "]"}], "]"}]}], "]"}], ",", RowBox[{"{", RowBox[{"i", ",", "1", ",", "bt"}], "}"}], ",", RowBox[{"{", RowBox[{"j", ",", "1", ",", "bt"}], "}"}]}], "]"}]}], ";"}], "\[IndentingNewLine]", RowBox[{"(*", RowBox[{"MatrixForm", "[", "dcw", "]"}], "*)"}], " "}]}]], "Input", CellChangeTimes->{{3.5688982251756487`*^9, 3.5688986440675845`*^9}, { 3.5688986873108606`*^9, 3.56889871560931*^9}, {3.5688987970414534`*^9, 3.5688988526711507`*^9}, {3.568898887147211*^9, 3.568898888644814*^9}, { 3.5688989206248703`*^9, 3.568899041759083*^9}, {3.5688990876855636`*^9, 3.568899258349863*^9}, 3.568899300267137*^9, {3.568899351326027*^9, 3.5688993831032825`*^9}, {3.5688994370481772`*^9, 3.568899468217032*^9}, { 3.5688995813016305`*^9, 3.5688997165538683`*^9}, {3.5688998495129013`*^9, 3.568899932364647*^9}, {3.568899967667509*^9, 3.568900024529609*^9}, { 3.5689000794261055`*^9, 3.568900136257005*^9}, {3.5689001767858763`*^9, 3.56890020149632*^9}, {3.568902068726*^9, 3.568902074139209*^9}, 3.56890216040736*^9, 3.568902344113283*^9, {3.5689024237982235`*^9, 3.56890243907065*^9}, 3.5689025770684924`*^9, 3.568910195129884*^9, 3.568910620995032*^9, {3.568912393532545*^9, 3.5689124022841606`*^9}, { 3.5691332074958715`*^9, 3.5691332081666727`*^9}, {3.5691352237838125`*^9, 3.5691352313342257`*^9}, {3.5691489965881166`*^9, 3.5691490103317413`*^9}, {3.5691490440122004`*^9, 3.5691491273631463`*^9}, {3.5691523435842266`*^9, 3.56915234531583*^9}, { 3.5691524837816734`*^9, 3.5691526041202846`*^9}, {3.5691595921324143`*^9, 3.5691596901941867`*^9}, {3.569159772406331*^9, 3.5691597832951508`*^9}, { 3.5691598700313025`*^9, 3.569159885147729*^9}, {3.569160485733184*^9, 3.569160486887586*^9}, {3.5691672792073207`*^9, 3.5691672793789206`*^9}, { 3.5691673418102303`*^9, 3.5691674875144863`*^9}, {3.569168259700243*^9, 3.569168260386644*^9}, {3.569168321257951*^9, 3.569168337466379*^9}, { 3.5691685152754917`*^9, 3.569168656096939*^9}, {3.5691687137702403`*^9, 3.569168772566744*^9}, {3.5691697249898825`*^9, 3.569169747063921*^9}, { 3.569169944981469*^9, 3.5691699655579047`*^9}, {3.56921753575448*^9, 3.569217541807291*^9}, {3.569217576283351*^9, 3.5692176436130695`*^9}, { 3.5692176921603546`*^9, 3.569217692768756*^9}, {3.5692177389136367`*^9, 3.569217740192839*^9}, {3.5692222042775583`*^9, 3.5692222070231633`*^9}, { 3.569230669979245*^9, 3.5692306709620466`*^9}, {3.5692308816872168`*^9, 3.5692309970650196`*^9}, {3.5692310297158766`*^9, 3.569231090602784*^9}, { 3.5692311251880445`*^9, 3.569231148868886*^9}, 3.56923793753481*^9, 3.569341165569158*^9, 3.5693418217375107`*^9, {3.5703412254249296`*^9, 3.5703412423509593`*^9}, {3.5704553045038986`*^9, 3.570455320681127*^9}, { 3.57045550485505*^9, 3.5704555063370533`*^9}, {3.5704556421508913`*^9, 3.5704556424784923`*^9}, 3.5704557137862177`*^9, {3.5704564711051474`*^9, 3.5704564908079824`*^9}, {3.570456521602436*^9, 3.5704565228348384`*^9}, { 3.5704569127419233`*^9, 3.5704569202767363`*^9}, 3.5704636205455036`*^9, 3.570596993178934*^9, {3.570855461377095*^9, 3.5708554743563175`*^9}, 3.570855611589759*^9}], Cell[BoxData[ RowBox[{"{", RowBox[{ RowBox[{"-", "2.`"}], ",", RowBox[{"-", "2.`"}], ",", RowBox[{"-", "2.`"}], ",", RowBox[{"-", "2.`"}], ",", RowBox[{"-", "2.`"}], ",", RowBox[{"-", "2.`"}], ",", RowBox[{"-", "2.`"}], ",", RowBox[{"-", "2.`"}], ",", RowBox[{"-", "2.`"}], ",", RowBox[{"-", "2.`"}], ",", RowBox[{"-", "2.`"}], ",", RowBox[{"-", "2.`"}], ",", RowBox[{"-", "2.`"}], ",", RowBox[{"-", "2.`"}], ",", RowBox[{"-", "2.`"}], ",", RowBox[{"-", "2.`"}], ",", RowBox[{"-", "2.`"}], ",", RowBox[{"-", "2.`"}], ",", RowBox[{"-", "2.`"}], ",", RowBox[{"-", "2.`"}], ",", RowBox[{"-", "2.`"}], ",", 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.5710451641649733`*^9}], Cell[BoxData[ RowBox[{"{", RowBox[{ "6.`", ",", "6.`", ",", "6.`", ",", "6.`", ",", "6.`", ",", "6.`", ",", "6.`", ",", "6.`", ",", "6.`", ",", "6.`", ",", "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.`"}], "}"}]], "Output", CellChangeTimes->{3.5710451641649733`*^9}] }, Open ]], Cell[BoxData[ RowBox[{ RowBox[{"Vee", "=", "0.0"}], ";", " ", RowBox[{"Vnn", "=", "0.0"}], ";"}]], "Input", CellChangeTimes->{{3.5688982251756487`*^9, 3.5688986440675845`*^9}, { 3.5688986873108606`*^9, 3.56889871560931*^9}, {3.5688987970414534`*^9, 3.5688988526711507`*^9}, {3.568898887147211*^9, 3.568898888644814*^9}, { 3.5688989206248703`*^9, 3.568899041759083*^9}, {3.5688990876855636`*^9, 3.568899258349863*^9}, 3.568899300267137*^9, {3.568899351326027*^9, 3.5688993831032825`*^9}, {3.5688994370481772`*^9, 3.568899468217032*^9}, { 3.5688995813016305`*^9, 3.5688997165538683`*^9}, {3.5688998495129013`*^9, 3.568899932364647*^9}, {3.568899967667509*^9, 3.568900024529609*^9}, { 3.5689000794261055`*^9, 3.568900136257005*^9}, {3.5689001767858763`*^9, 3.56890020149632*^9}, {3.568902068726*^9, 3.568902074139209*^9}, 3.56890216040736*^9, 3.568902344113283*^9, {3.5689024237982235`*^9, 3.56890243907065*^9}, 3.5689025770684924`*^9, {3.568910195129884*^9, 3.568910199825492*^9}, 3.568910617609826*^9, {3.56891263539537*^9, 3.568912638842976*^9}, {3.568952611212014*^9, 3.5689526227248344`*^9}, { 3.5689527476498537`*^9, 3.5689527480086546`*^9}, {3.5689530637688093`*^9, 3.5689530642368097`*^9}, {3.569133363948546*^9, 3.569133373698563*^9}, { 3.5691350563331184`*^9, 3.56913505725352*^9}, 3.5691351502452836`*^9, { 3.569135237792637*^9, 3.5691352453118505`*^9}, {3.5691353071659594`*^9, 3.5691353166039753`*^9}, {3.5691447439722476`*^9, 3.5691448093675623`*^9}, {3.569146067386572*^9, 3.569146078244191*^9}, { 3.5691478509845047`*^9, 3.5691478547909117`*^9}, {3.569159874789311*^9, 3.56915988004652*^9}, {3.5691671967299757`*^9, 3.569167196901576*^9}, 3.5691672337020407`*^9, {3.5691672688489027`*^9, 3.5691672717661076`*^9}, 3.569171387282002*^9, 3.5692335989467897`*^9}], Cell[CellGroupData[{ Cell[BoxData[ RowBox[{ RowBox[{"(*", " ", RowBox[{"all", " ", "clouds", " ", "repulsion"}], " ", "*)"}], "\[IndentingNewLine]", RowBox[{ RowBox[{"For", "[", RowBox[{ RowBox[{"i", "=", "1"}], ",", RowBox[{"i", "<", "bt"}], ",", RowBox[{"i", "++"}], ",", "\[IndentingNewLine]", RowBox[{"For", "[", RowBox[{ RowBox[{"j", "=", RowBox[{"i", "+", "1"}]}], ",", RowBox[{"j", "<", RowBox[{"bt", "+", "1"}]}], ",", RowBox[{"j", "++"}], ",", "\[IndentingNewLine]", RowBox[{"Vee", "=", RowBox[{"Vee", "+", RowBox[{ RowBox[{"ow", "[", RowBox[{"[", "i", "]"}], "]"}], "*", RowBox[{ RowBox[{"ow", "[", RowBox[{"[", "j", "]"}], "]"}], "/", RowBox[{"dw", "[", RowBox[{"[", RowBox[{"i", ",", "j"}], "]"}], "]"}]}]}]}]}]}], "]"}]}], "]"}], "\[IndentingNewLine]", "Vee"}]}]], "Input", CellChangeTimes->{{3.5688982251756487`*^9, 3.5688986440675845`*^9}, { 3.5688986873108606`*^9, 3.56889871560931*^9}, {3.5688987970414534`*^9, 3.5688988526711507`*^9}, {3.568898887147211*^9, 3.568898888644814*^9}, { 3.5688989206248703`*^9, 3.568899041759083*^9}, {3.5688990876855636`*^9, 3.568899258349863*^9}, 3.568899300267137*^9, {3.568899351326027*^9, 3.5688993831032825`*^9}, {3.5688994370481772`*^9, 3.568899468217032*^9}, { 3.5688995813016305`*^9, 3.5688997165538683`*^9}, {3.5688998495129013`*^9, 3.568899932364647*^9}, {3.568899967667509*^9, 3.568900024529609*^9}, { 3.5689000794261055`*^9, 3.568900136257005*^9}, {3.5689001767858763`*^9, 3.56890020149632*^9}, {3.568902068726*^9, 3.568902074139209*^9}, 3.56890216040736*^9, 3.568902344113283*^9, {3.5689024237982235`*^9, 3.56890243907065*^9}, 3.5689025770684924`*^9, {3.568910195129884*^9, 3.568910199825492*^9}, 3.568910617609826*^9, {3.56891263539537*^9, 3.568912638842976*^9}, {3.568952611212014*^9, 3.5689526227248344`*^9}, { 3.5689527476498537`*^9, 3.5689527480086546`*^9}, {3.5689530637688093`*^9, 3.5689530642368097`*^9}, {3.569133363948546*^9, 3.569133373698563*^9}, { 3.5691350563331184`*^9, 3.56913505725352*^9}, 3.5691351502452836`*^9, { 3.569135237792637*^9, 3.5691352453118505`*^9}, {3.5691353071659594`*^9, 3.5691353166039753`*^9}, {3.5691447439722476`*^9, 3.5691448093675623`*^9}, {3.569146067386572*^9, 3.569146078244191*^9}, { 3.5691478509845047`*^9, 3.5691478969889855`*^9}, {3.569149270524598*^9, 3.569149283675421*^9}, {3.5691523005437512`*^9, 3.5691523013861527`*^9}, { 3.570457123841494*^9, 3.5704571330923104`*^9}, {3.570457176959587*^9, 3.570457191296013*^9}, {3.570463789649801*^9, 3.570463797637015*^9}, { 3.5704639300032473`*^9, 3.5704639472412777`*^9}, {3.570464099403945*^9, 3.5704641196371803`*^9}, {3.570464183737693*^9, 3.5704641855628963`*^9}, { 3.570855532092019*^9, 3.5708555433240385`*^9}}], Cell[BoxData["605.6390022180053`"], "Output", CellChangeTimes->{3.571045164196173*^9}] }, Open ]], Cell[CellGroupData[{ Cell[BoxData[{ RowBox[{ RowBox[{"sc", "=", "0.4118"}], ";", " ", RowBox[{"(*", " ", RowBox[{"core", " ", "clouds"}], " ", "*)"}], "\[IndentingNewLine]", RowBox[{"For", "[", RowBox[{ RowBox[{"i", "=", "1"}], " ", ",", RowBox[{"i", "<", RowBox[{"bc", "+", "1"}]}], ",", RowBox[{"i", "++"}], ",", RowBox[{"Vee", "=", RowBox[{"Vee", "+", RowBox[{"3", "*", RowBox[{"sc", "/", RowBox[{"u2", "[", RowBox[{"[", "i", "]"}], "]"}]}]}]}]}]}], "]"}]}], "\[IndentingNewLine]", RowBox[{ RowBox[{"sw", "=", "0.4246"}], ";", " ", RowBox[{"(*", " ", RowBox[{"bonding", " ", "clouds"}], " ", "*)"}], "\[IndentingNewLine]", RowBox[{"For", "[", RowBox[{ RowBox[{"i", "=", "1"}], " ", ",", RowBox[{"i", "<", RowBox[{"nb", "+", "1"}]}], ",", RowBox[{"i", "++"}], ",", RowBox[{"Vee", "=", RowBox[{"Vee", "+", RowBox[{"3", "*", RowBox[{"sw", "/", RowBox[{"a", "[", RowBox[{"[", RowBox[{"i", ",", "3"}], "]"}], "]"}]}]}]}]}]}], "]"}]}], "\[IndentingNewLine]", "Vee"}], "Input", CellChangeTimes->{{3.5689548890696163`*^9, 3.568955116299615*^9}, { 3.5689552553894596`*^9, 3.5689552575266633`*^9}, {3.5689552936875267`*^9, 3.5689553203323736`*^9}, {3.568955404229321*^9, 3.568955433245372*^9}, 3.5689554882822685`*^9, 3.5689562157115464`*^9, {3.568956283961666*^9, 3.5689562858180695`*^9}, {3.5689566111878405`*^9, 3.5689566291278725`*^9}, {3.5689566695319433`*^9, 3.5689567220104356`*^9}, {3.5690810958835616`*^9, 3.569081104525977*^9}, { 3.5691717160681796`*^9, 3.569171751714242*^9}, {3.5691717855663013`*^9, 3.5691719006789036`*^9}, 3.569234247377528*^9, {3.569235622381544*^9, 3.569235625142749*^9}, {3.5692356799612455`*^9, 3.569235740536152*^9}, { 3.57045575500149*^9, 3.5704557604770994`*^9}, {3.57046440981329*^9, 3.5704644333849316`*^9}, {3.5705963024877205`*^9, 3.5705963300061693`*^9}, {3.5706010463712544`*^9, 3.570601069225295*^9}, { 3.5706012097659416`*^9, 3.5706012109983435`*^9}, {3.570601290948484*^9, 3.570601291619285*^9}, {3.570601333099758*^9, 3.570601444951955*^9}, 3.5706014761208096`*^9, {3.570601526633698*^9, 3.570601615179454*^9}, { 3.5708576202336864`*^9, 3.5708576267544985`*^9}, {3.5708577990100007`*^9, 3.5708578016152053`*^9}, {3.5708580423548284`*^9, 3.570858044429632*^9}, { 3.570858075754487*^9, 3.5708581072821426`*^9}, {3.570858449889944*^9, 3.5708585756105647`*^9}, {3.5710442384281473`*^9, 3.571044290017438*^9}, { 3.571044322761895*^9, 3.5710446121424036`*^9}, {3.5710446451208615`*^9, 3.571044670751707*^9}}], Cell[BoxData["687.071246391621`"], "Output", CellChangeTimes->{3.571045164196173*^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[{"-", "1241.195367808829`"}]], "Output", CellChangeTimes->{3.5710451642429733`*^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[{"-", "1946.0876043434`"}]], "Output", CellChangeTimes->{3.5710451642585735`*^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[{"-", "1997.0512745287513`"}]], "Output", CellChangeTimes->{3.5710451642741737`*^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["521.8102009227584`"], "Output", CellChangeTimes->{3.571045164289774*^9}] }, Open ]], Cell[CellGroupData[{ Cell[BoxData[{"Vee", "\[IndentingNewLine]", "Vnn", "\[IndentingNewLine]", \ "Vne", "\[IndentingNewLine]", RowBox[{"Vtot", "=", RowBox[{ "Vne", "+", "Vee", "+", "Vnn"}]}], "\[IndentingNewLine]", "Ttot", "\[IndentingNewLine]", RowBox[{"Vir", " ", "=", RowBox[{ RowBox[{"-", "Vtot"}], "/", "Ttot"}]}], "\[IndentingNewLine]", RowBox[{"Etot", "=", RowBox[{"Ttot", "+", "Vtot"}]}], "\[IndentingNewLine]"}], "Input", CellChangeTimes->{{3.5689074950860367`*^9, 3.5689075109980645`*^9}, { 3.568910298074465*^9, 3.5689103015064707`*^9}, {3.568910724064413*^9, 3.5689107693044925`*^9}, {3.568955368910859*^9, 3.568955378629676*^9}, { 3.568955601366867*^9, 3.568955616218093*^9}, {3.5704638504275074`*^9, 3.570463876370353*^9}, {3.570464305074706*^9, 3.5704643133895206`*^9}, { 3.570464352171189*^9, 3.570464353231991*^9}, {3.570712404698539*^9, 3.5707124150569572`*^9}, {3.570809962851386*^9, 3.5708101493809137`*^9}, { 3.5708102160710306`*^9, 3.570810245165082*^9}, {3.5708102767551374`*^9, 3.5708103693413*^9}, {3.570810404207361*^9, 3.5708104232081947`*^9}, { 3.5708104788690925`*^9, 3.5708104825818987`*^9}, {3.5708105169643593`*^9, 3.570810517884761*^9}, {3.570810561767638*^9, 3.5708105625476394`*^9}, { 3.5708106179589367`*^9, 3.570810645648985*^9}, {3.5708552812279787`*^9, 3.570855300572013*^9}}], Cell[BoxData["687.071246391621`"], "Output", CellChangeTimes->{3.5710451643053737`*^9}], Cell[BoxData["521.8102009227584`"], "Output", CellChangeTimes->{3.5710451643053737`*^9}], Cell[BoxData[ RowBox[{"-", "1997.0512745287513`"}]], "Output", CellChangeTimes->{3.5710451643053737`*^9}], Cell[BoxData[ RowBox[{"-", "788.1698272143719`"}]], "Output", CellChangeTimes->{3.5710451643053737`*^9}], Cell[BoxData["393.9247150383281`"], "Output", CellChangeTimes->{3.5710451643053737`*^9}], Cell[BoxData["2.000813346117886`"], "Output", CellChangeTimes->{3.5710451643053737`*^9}], Cell[BoxData[ RowBox[{"-", "394.24511217604385`"}]], "Output", CellChangeTimes->{3.5710451643209734`*^9}] }, Open ]] }, WindowSize->{1409, 939}, WindowMargins->{{Automatic, 60}, {Automatic, 15}}, PrintingCopies->1, PrintingPageRange->{32000, 32000}, PrintingOptions->{"Magnification"->1., "PaperOrientation"->"Portrait", "PaperSize"->{595.2, 841.8}}, FrontEndVersion->"9.0 for Microsoft Windows (64-bit) (January 25, 2013)", StyleDefinitions->"Default.nb" ] (* End of Notebook Content *) (* Internal cache information *) (*CellTagsOutline CellTagsIndex->{} *) (*CellTagsIndex CellTagsIndex->{} *) (*NotebookFileOutline Notebook[{ Cell[557, 20, 1480, 27, 52, "Input"], Cell[CellGroupData[{ Cell[2062, 51, 448, 8, 52, "Input"], Cell[2513, 61, 4041, 70, 300, "Output"] }, Open ]], Cell[CellGroupData[{ Cell[6591, 136, 797, 16, 52, "Input"], Cell[7391, 154, 3716, 96, 506, "Output"] }, Open ]], Cell[CellGroupData[{ Cell[11144, 255, 729, 12, 31, "Input"], Cell[11876, 269, 704, 11, 31, "Output"] }, Open ]], Cell[CellGroupData[{ Cell[12617, 285, 955, 14, 31, "Input"], Cell[13575, 301, 73, 1, 31, "Output"] }, Open ]], Cell[CellGroupData[{ Cell[13685, 307, 1560, 29, 31, "Input"], Cell[15248, 338, 704, 11, 31, "Output"] }, Open ]], Cell[15967, 352, 1390, 22, 31, "Input"], Cell[17360, 376, 1566, 28, 31, "Input"], Cell[CellGroupData[{ Cell[18951, 408, 1234, 18, 31, "Input"], Cell[20188, 428, 2264, 67, 52, "Output"] }, Open ]], Cell[CellGroupData[{ Cell[22489, 500, 697, 14, 31, "Input"], Cell[23189, 516, 457, 8, 31, "Output"] }, Open ]], Cell[23661, 527, 908, 24, 31, "Input"], Cell[CellGroupData[{ Cell[24594, 555, 5635, 122, 52, "Input"], Cell[30232, 679, 557, 10, 52, "Output"], Cell[30792, 691, 568, 10, 52, "Output"] }, Open ]], Cell[CellGroupData[{ Cell[31397, 706, 519, 12, 31, "Input"], Cell[31919, 720, 704, 11, 31, "Output"] }, Open ]], Cell[CellGroupData[{ Cell[32660, 736, 1401, 38, 31, "Input"], Cell[34064, 776, 504, 9, 31, "Output"] }, Open ]], Cell[CellGroupData[{ Cell[34605, 790, 827, 23, 92, "Input"], Cell[35435, 815, 73, 1, 31, "Output"], Cell[35511, 818, 73, 1, 31, "Output"] }, Open ]], Cell[CellGroupData[{ Cell[35621, 824, 400, 7, 52, "Input"], Cell[36024, 833, 91, 1, 31, "Output"] }, Open ]], Cell[36130, 837, 1824, 35, 72, "Input"], Cell[37957, 874, 935, 19, 31, "Input"], Cell[38895, 895, 4271, 83, 92, "Input"], Cell[43169, 980, 3292, 57, 31, "Input"], Cell[CellGroupData[{ Cell[46486, 1041, 393, 7, 52, "Input"], Cell[46882, 1050, 21482, 528, 97, "Output"] }, Open ]], Cell[68379, 1581, 2567, 59, 52, "Input"], Cell[70949, 1642, 1254, 35, 72, "Input"], Cell[CellGroupData[{ Cell[72228, 1681, 4783, 85, 72, "Input"], Cell[77014, 1768, 11006, 169, 506, "Output"] }, Open ]], Cell[CellGroupData[{ Cell[88057, 1942, 2506, 53, 112, "Input"], Cell[90566, 1997, 73, 1, 31, "Output"] }, Open ]], Cell[CellGroupData[{ Cell[90676, 2003, 2272, 46, 72, "Input"], Cell[92951, 2051, 202, 5, 31, "Output"] }, Open ]], Cell[93168, 2059, 6123, 156, 152, "Input"], Cell[CellGroupData[{ Cell[99316, 2219, 3596, 80, 112, "Input"], Cell[102915, 2301, 638, 11, 52, "Output"] }, Open ]], Cell[103568, 2315, 2072, 49, 112, "Input"], Cell[105643, 2366, 561, 12, 52, "Input"], Cell[106207, 2380, 2148, 49, 92, "Input"], Cell[108358, 2431, 2452, 56, 92, "Input"], Cell[110813, 2489, 1759, 41, 72, "Input"], Cell[CellGroupData[{ Cell[112597, 2534, 923, 20, 31, "Input"], Cell[113523, 2556, 88, 1, 31, "Output"] }, Open ]], Cell[CellGroupData[{ Cell[113648, 2562, 711, 18, 31, "Input"], Cell[114362, 2582, 88, 1, 31, "Output"] }, Open ]], Cell[CellGroupData[{ Cell[114487, 2588, 507, 10, 31, "Input"], Cell[114997, 2600, 87, 1, 31, "Output"] }, Open ]], Cell[CellGroupData[{ Cell[115121, 2606, 823, 23, 31, "Input"], Cell[115947, 2631, 90, 1, 31, "Output"] }, Open ]], Cell[CellGroupData[{ Cell[116074, 2637, 204, 4, 31, "Input"], Cell[116281, 2643, 89, 1, 31, "Output"] }, Open ]], Cell[116385, 2647, 1971, 35, 92, "Input"], Cell[CellGroupData[{ Cell[118381, 2686, 1770, 24, 31, "Input"], Cell[120154, 2712, 11880, 184, 521, "Output"] }, Open ]], Cell[132049, 2899, 1655, 24, 31, "Input"], Cell[133707, 2925, 3760, 76, 72, "Input"], Cell[137470, 3003, 2696, 53, 92, "Input"], Cell[CellGroupData[{ Cell[140191, 3060, 939, 17, 72, "Input"], Cell[141133, 3079, 2818, 66, 92, "Output"], Cell[143954, 3147, 73, 1, 31, "Output"], Cell[144030, 3150, 72, 1, 31, "Output"] }, Open ]], Cell[144117, 3154, 10201, 233, 72, "Input"], Cell[154321, 3389, 6352, 102, 31, "Input"], Cell[160676, 3493, 10215, 234, 72, "Input"], Cell[170894, 3729, 5925, 93, 31, "Input"], Cell[CellGroupData[{ Cell[176844, 3826, 8525, 151, 112, "Input"], Cell[185372, 3979, 71110, 1195, 375, 15446, 281, "CachedBoxData", "BoxData", \ "Output"], Cell[256485, 5176, 11258, 189, 375, "Output"] }, Open ]], Cell[CellGroupData[{ Cell[267780, 5370, 3879, 89, 152, "Input"], Cell[271662, 5461, 71, 1, 31, "Output"], Cell[271736, 5464, 4869, 118, 641, "Output"] }, Open ]], Cell[276620, 5585, 3049, 67, 72, "Input"], Cell[279672, 5654, 1841, 29, 52, "Input"], Cell[CellGroupData[{ Cell[281538, 5687, 3517, 75, 112, "Input"], Cell[285058, 5764, 3912, 105, 641, "Output"] }, Open ]], Cell[CellGroupData[{ Cell[289007, 5874, 6437, 145, 132, "Input"], Cell[295447, 6021, 1368, 44, 52, "Output"], Cell[296818, 6067, 616, 10, 31, "Output"] }, Open ]], Cell[297449, 6080, 1863, 27, 31, "Input"], Cell[CellGroupData[{ Cell[299337, 6111, 2963, 56, 112, "Input"], Cell[302303, 6169, 87, 1, 31, "Output"] }, Open ]], Cell[CellGroupData[{ Cell[302427, 6175, 2687, 57, 112, "Input"], Cell[305117, 6234, 86, 1, 31, "Output"] }, Open ]], Cell[CellGroupData[{ Cell[305240, 6240, 499, 15, 52, "Input"], Cell[305742, 6257, 106, 2, 31, "Output"] }, Open ]], Cell[305863, 6262, 1381, 21, 31, "Input"], Cell[CellGroupData[{ Cell[307269, 6287, 1709, 32, 52, "Input"], Cell[308981, 6321, 104, 2, 31, "Output"] }, Open ]], Cell[CellGroupData[{ Cell[309122, 6328, 1415, 43, 72, "Input"], Cell[310540, 6373, 107, 2, 31, "Output"] }, Open ]], Cell[CellGroupData[{ Cell[310684, 6380, 2550, 50, 92, "Input"], Cell[313237, 6432, 87, 1, 31, "Output"] }, Open ]], Cell[CellGroupData[{ Cell[313361, 6438, 1351, 23, 172, "Input"], Cell[314715, 6463, 88, 1, 31, "Output"], Cell[314806, 6466, 89, 1, 31, "Output"], Cell[314898, 6469, 107, 2, 31, "Output"], Cell[315008, 6473, 106, 2, 31, "Output"], Cell[315117, 6477, 89, 1, 31, "Output"], Cell[315209, 6480, 89, 1, 31, "Output"], Cell[315301, 6483, 107, 2, 63, "Output"] }, Open ]] } ] *) (* End of internal cache information *)