(* 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[ 581981, 11905] NotebookOptionsPosition[ 572367, 11610] NotebookOutlinePosition[ 572867, 11630] CellTagsIndexPosition[ 572824, 11627] WindowFrame->Normal*) (* Beginning of Notebook Content *) Notebook[{ Cell[BoxData[ RowBox[{ RowBox[{"(*", " ", RowBox[{ RowBox[{ "Kimball", " ", "model", " ", "and", " ", "energy", " ", "derived", " ", "from", " ", "Wolfram", " ", "source"}], ",", " ", RowBox[{"ES", " ", "02", " ", "May", " ", "2013"}]}], " ", "*)"}], " ", "\[IndentingNewLine]", RowBox[{ RowBox[{"Clear", "[", RowBox[{ "tw", ",", "n2", ",", "n", ",", "nb", ",", "bc", ",", "bh", ",", "u", ",", "u1", ",", "u2", ",", "Vee", ",", "Vne", ",", "Vnn"}], "]"}], ";"}], " "}]], "Input", CellChangeTimes->{{3.568278170270548*^9, 3.568278174310955*^9}, { 3.5682782109554195`*^9, 3.5682782183342323`*^9}, {3.5688220426984916`*^9, 3.5688220506389055`*^9}, {3.568822092353379*^9, 3.568822134660653*^9}, { 3.5688728241768503`*^9, 3.568872825034852*^9}, {3.5688958900531473`*^9, 3.5688958965115585`*^9}, {3.5689027504159966`*^9, 3.568902751695199*^9}, { 3.5689109808408637`*^9, 3.568910992618884*^9}, {3.569134574760273*^9, 3.569134584135889*^9}, 3.56923802266416*^9, {3.56933446475942*^9, 3.569334471239791*^9}, {3.5693395229642725`*^9, 3.569339531606688*^9}, { 3.5694332905109916`*^9, 3.56943330667262*^9}, {3.570297588441428*^9, 3.5702976026530533`*^9}, {3.570558862041448*^9, 3.5705588713234644`*^9}, 3.5705590387585583`*^9, {3.570855141170933*^9, 3.570855146100541*^9}, { 3.5708563212974052`*^9, 3.5708563224362073`*^9}, {3.5708588179101906`*^9, 3.570858820452995*^9}, 3.570949483910489*^9, {3.5719810762355733`*^9, 3.5719810786847773`*^9}, 3.5723256977094345`*^9, 3.572583124905918*^9, { 3.5727976670013523`*^9, 3.572797667157352*^9}, 3.5728672700652885`*^9, { 3.5732075583876934`*^9, 3.5732075588400946`*^9}, {3.573221345358634*^9, 3.57322135451585*^9}, {3.573369135900576*^9, 3.5733691365557775`*^9}, { 3.574682961367374*^9, 3.5746829644717793`*^9}, 3.5747440056200757`*^9, { 3.574833269418433*^9, 3.5748332704636354`*^9}, 3.574833303161292*^9, { 3.5750055229593754`*^9, 3.5750055237081766`*^9}, 3.5753452568612485`*^9, { 3.575602814966606*^9, 3.5756028151382065`*^9}, 3.5757279640625825`*^9, { 3.575775139243217*^9, 3.5757751402728186`*^9}, {3.5762939464431095`*^9, 3.5762939465679092`*^9}, {3.576384009529279*^9, 3.5763840168924923`*^9}, { 3.5764707993422213`*^9, 3.5764708004498234`*^9}}], Cell[CellGroupData[{ Cell[BoxData[{ RowBox[{"Plot0", "=", RowBox[{"ChemicalData", "[", RowBox[{"\"\\"", ",", "\"\\""}], "]"}]}], "\[IndentingNewLine]", RowBox[{ RowBox[{"t1", "=", RowBox[{"0.01889726", "*", RowBox[{"ChemicalData", "[", 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.5705590525489826`*^9, 3.5705590747322216`*^9}, {3.570595322227199*^9, 3.5705953504632483`*^9}, 3.570855059411189*^9, 3.570856566545436*^9, 3.5709425310226765`*^9, 3.5730457924857635`*^9, 3.5746613722339497`*^9, 3.574701612088543*^9, 3.574852285217162*^9, {3.5749355226137695`*^9, 3.5749355538138237`*^9}, { 3.574996024820664*^9, 3.5749960279094696`*^9}, {3.575343895110856*^9, 3.575343895110856*^9}, {3.5753463317811365`*^9, 3.5753463317811365`*^9}, { 3.575346463663768*^9, 3.575346463663768*^9}, {3.575347966055607*^9, 3.575347966055607*^9}, {3.5753753647221766`*^9, 3.5753753647221766`*^9}, { 3.576293874214982*^9, 3.5762938797997923`*^9}, {3.5762995804113493`*^9, 3.57629960363979*^9}}], Cell[BoxData[ Graphics3DBox[ {AbsoluteThickness[3], EdgeForm[None], Specularity[ GrayLevel[1], 100], GraphicsComplex3DBox[CompressedData[" 1:eJwtkm1Ik1EUx8e0rIjIkKFRvpTKRIaBROYYnjbdemZ7c7iFrM3Gprbm3EYb 1EKIYQYSEb0sy4rS3JewEMllkQeLCKsxqDAxiwopmOGHaCUWdF88cJ+Hc+/h f3/nf0+Js6vJLRaJREVkZZGl3Siu7L1cizeW4s8bc6yQkdrOTZU5sJpGjh/O /zhZt9suoIhGjRcqyPGvjuOwJYrTtxRWYHVvnLD21CVV3zEj1O7URqJdBUhT 77gAI5rPJ/LEfry7rcUlvwe4n6QjMw5k+3oXFvWkTYmwCScEAhKvxnW0sFKJ ebTgYjlU9kpmk9Z9q3k751vTBMrWhdQOuRIUG2YG/QsBnr8EoPKaXCcw3Y9H kLYnWS+gbPT6Ujxs5rzmw1zvrxuzLZtko/NyHPITpSwdML5JE7J73tmhjcaw i+up2+DJza1V8y419yG/EwaeFd8P5mt5fkWP5Cu1qQJc75qR7/+x8z59Ic4T aMYIBWg5hK9fkRjzYBk1MN2Ii6ZEYY/q6CpvHdK25mYFUD/4+e/tdzOS07Qp 44cBglFaXoL0msHSdt5XPMT/gwagtiiCTmB+RmSwWNOgCT7MAvYOk8UQ85EX TDrg6em4ddoH8IX6ttwAB/eOvQhn9BCJVh0Ytqjww3K35/H7ZqD4hRUeDF3I z7YkBZyj+61NSHESt/3IfDizCxhfhwOZb4kgOjdTRR0y/X47993WiR10sHRq Pg8xN6+XtHMfVnTYTaZuokABrL+Uk/s5bsdPhrMx39QeZO++vQ2u9pMQHMDm 01gPjMfigfo+77eVXAOkfpu/3nkkxf/TRVAq "], { {RGBColor[0.65, 0.7, 0.7], SphereBox[10, 24.], SphereBox[11, 24.], SphereBox[12, 24.], SphereBox[13, 24.], SphereBox[14, 24.], SphereBox[15, 24.], SphereBox[16, 24.], SphereBox[17, 24.]}, {RGBColor[0.4, 0.4, 0.4], SphereBox[6, 34.], SphereBox[7, 34.], SphereBox[8, 34.], SphereBox[9, 34.]}, {RGBColor[0.291989, 0.437977, 0.888609], SphereBox[4, 32.], SphereBox[5, 32.]}, {RGBColor[0.800498, 0.201504, 0.192061], SphereBox[1, 31.], SphereBox[2, 31.], SphereBox[3, 31.]}, {RGBColor[0.65, 0.7, 0.7], CylinderBox[{23, 12}, 15.], CylinderBox[{25, 15}, 15.], CylinderBox[{26, 16}, 15.], CylinderBox[{27, 17}, 15.], CylinderBox[{28, 10}, 15.], CylinderBox[{29, 11}, 15.], CylinderBox[{30, 13}, 15.], CylinderBox[{31, 14}, 15.]}, {RGBColor[0.4, 0.4, 0.4], CylinderBox[{18, 7}, 15.], CylinderBox[{19, 9}, 15.], CylinderBox[{20, 9}, 15.], CylinderBox[{21, 7}, 15.], CylinderBox[{22, 8}, 15.], CylinderBox[{24, 6}, 15.], CylinderBox[{6, 7}, 15.], CylinderBox[{6, 28}, 15.], CylinderBox[{6, 29}, 15.], CylinderBox[{8, 9}, 15.], CylinderBox[{8, 30}, 15.], CylinderBox[{8, 31}, 15.]}, {RGBColor[0.291989, 0.437977, 0.888609], CylinderBox[{4, 21}, 15.], CylinderBox[{4, 22}, 15.], CylinderBox[{4, 23}, 15.], CylinderBox[{5, 24}, 15.], CylinderBox[{5, 25}, 15.], CylinderBox[{5, 26}, 15.], CylinderBox[{5, 27}, 15.]}, {RGBColor[0.800498, 0.201504, 0.192061], CylinderBox[{1, 18}, 15.], CylinderBox[{2, 19}, 15.], CylinderBox[{3, 20}, 15.]}}]}, Boxed->False, ImageSize->262.5747148644995, Lighting->"Neutral", ViewPoint->{-1.4718063401153125`, 1.8070736998767685`, 2.4532164071704017`}, ViewVertical->{-0.1326340470455488, -1.9513708788726507`, \ -0.28443128378030175`}]], "Output", CellChangeTimes->{ 3.5763887586628203`*^9, 3.5763922786442037`*^9, 3.5763923941312065`*^9, 3.576392693261732*^9, 3.576393205223431*^9, 3.5763933762153316`*^9, { 3.576405779261278*^9, 3.576405791288899*^9}, 3.5764196777317286`*^9, 3.5764693340316477`*^9, 3.5764697998016663`*^9, {3.576470312231366*^9, 3.5764703685006647`*^9}, {3.576470407188733*^9, 3.5764704570620203`*^9}, 3.5764704878564744`*^9, 3.5764707833833933`*^9, 3.5802090189725294`*^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.5730457925169635`*^9, 3.57466137224955*^9, 3.574701612104143*^9, 3.574852309007204*^9, 3.574935583329076*^9, 3.5753438951264563`*^9, 3.5753463317967367`*^9, 3.575346463679368*^9, 3.575347966071207*^9, 3.5753753647221766`*^9, 3.576293886211403*^9, 3.576299609817401*^9}], Cell[BoxData[ RowBox[{"{", RowBox[{"\<\"O\"\>", ",", "\<\"O\"\>", ",", "\<\"O\"\>", ",", "\<\"N\"\>", ",", "\<\"N\"\>", ",", "\<\"C\"\>", ",", "\<\"C\"\>", ",", "\<\"C\"\>", ",", "\<\"C\"\>", ",", "\<\"H\"\>", ",", "\<\"H\"\>", ",", "\<\"H\"\>", ",", "\<\"H\"\>", ",", "\<\"H\"\>", ",", "\<\"H\"\>", ",", "\<\"H\"\>", ",", "\<\"H\"\>"}], "}"}]], "Output", CellChangeTimes->{ 3.57638875867842*^9, 3.576392278691004*^9, 3.5763923941468067`*^9, 3.576392693292932*^9, 3.5763932052390313`*^9, 3.5763933762309313`*^9, { 3.5764057807900805`*^9, 3.576405791304499*^9}, 3.576419677762929*^9, 3.5764693340316477`*^9, 3.576469799817266*^9, {3.576470312246966*^9, 3.576470368516265*^9}, {3.5764704072199326`*^9, 3.5764704570776205`*^9}, 3.576470487872074*^9, 3.5764707833989935`*^9, 3.5802090189881296`*^9}] }, Open ]], Cell[CellGroupData[{ Cell[BoxData[ RowBox[{"n", "=", RowBox[{"Length", "[", "t1", "]"}]}]], "Input", CellChangeTimes->{{3.568278170270548*^9, 3.568278174310955*^9}, { 3.5682782109554195`*^9, 3.5682782183342323`*^9}, {3.5688220426984916`*^9, 3.5688220506389055`*^9}, {3.568822092353379*^9, 3.568822123693834*^9}, 3.568873215924739*^9, 3.5689108676002645`*^9, 3.5689997098237543`*^9, 3.5689998170115423`*^9, 3.568999886915265*^9, 3.5691460425981283`*^9, { 3.5692371678918586`*^9, 3.569237204489523*^9}, 3.569237465805582*^9, 3.56923802261736*^9, 3.5693403424025126`*^9, 3.5693404501675014`*^9, 3.569340737988007*^9, 3.569340852819809*^9, 3.569341165475558*^9, 3.56934149694494*^9, 3.569342614390503*^9, 3.569343567162176*^9, 3.569343662712344*^9, 3.569343763597721*^9, 3.5693440703198595`*^9, 3.569344266209404*^9, 3.5702973471714044`*^9, 3.5702974395391665`*^9, { 3.570297637207114*^9, 3.570297637987115*^9}, 3.570297920051211*^9}], Cell[BoxData["17"], "Output", CellChangeTimes->{ 3.57638875867842*^9, 3.576392278691004*^9, 3.576392394162407*^9, 3.5763926933085318`*^9, 3.576393205254631*^9, 3.5763933762465315`*^9, { 3.5764057808212805`*^9, 3.576405791320099*^9}, 3.5764196777785287`*^9, 3.576469334047248*^9, 3.5764697998328657`*^9, {3.576470312262566*^9, 3.576470368531865*^9}, {3.5764704072355328`*^9, 3.5764704570932207`*^9}, 3.5764704878876743`*^9, 3.5764707834145937`*^9, 3.5802090189881296`*^9}] }, Open ]], Cell[CellGroupData[{ Cell[BoxData[ RowBox[{"MatrixForm", "[", RowBox[{"Table", "[", RowBox[{ RowBox[{"Join", "[", RowBox[{ RowBox[{"{", "i", "}"}], ",", RowBox[{"{", RowBox[{"u", "[", RowBox[{"[", "i", "]"}], "]"}], "}"}], ",", RowBox[{"t1", "[", RowBox[{"[", "i", "]"}], "]"}]}], "]"}], ",", RowBox[{"{", RowBox[{"i", ",", "n"}], "}"}]}], "]"}], "]"}]], "Input", CellChangeTimes->{{3.574996055162717*^9, 3.574996080637562*^9}, { 3.5749961872169495`*^9, 3.5749961936753607`*^9}, {3.5749962548738976`*^9, 3.574996268492721*^9}, {3.574996311720397*^9, 3.5749963415788493`*^9}, { 3.57499639316814*^9, 3.5749964813394947`*^9}, {3.5749966279017525`*^9, 3.5749966325037603`*^9}, {3.575738220273323*^9, 3.5757382663558044`*^9}, { 3.5757383024542675`*^9, 3.5757383039050703`*^9}}], Cell[BoxData[ TagBox[ RowBox[{"(", "\[NoBreak]", GridBox[{ {"1", "\<\"O\"\>", RowBox[{"-", "0.50244034888`"}], "1.74070220764`", RowBox[{"-", "2.3544096234`"}]}, {"2", "\<\"O\"\>", "4.846202326999999`", RowBox[{"-", "0.9587713833599999`"}], "4.266056444999999`"}, {"3", "\<\"O\"\>", "7.6828700256`", "1.7567459813799997`", "2.845927356`"}, {"4", "\<\"N\"\>", "1.24383655046`", RowBox[{"-", "0.120165786614`"}], "0.9719427735799999`"}, {"5", "\<\"N\"\>", RowBox[{"-", "4.840155203799999`"}], RowBox[{"-", "0.6305826689399999`"}], RowBox[{"-", "2.4069440062`"}]}, {"6", "\<\"C\"\>", RowBox[{"-", "3.0696709143999996`"}], RowBox[{"-", "1.3200680973`"}], RowBox[{"-", "0.37138785078`"}]}, {"7", "\<\"C\"\>", RowBox[{"-", "0.6867075311399999`"}], "0.21335006539999998`", RowBox[{"-", "0.65547036036`"}]}, {"8", "\<\"C\"\>", "3.5647791263999995`", "1.3623034734`", "0.68903189412`"}, {"9", "\<\"C\"\>", "5.411041428399999`", "0.63470227162`", "2.7314099603999997`"}, {"10", "\<\"H\"\>", RowBox[{"-", "3.9109769296`"}], RowBox[{"-", "0.9462047054599999`"}], "1.47122728004`"}, {"11", "\<\"H\"\>", RowBox[{"-", "2.619160236`"}], RowBox[{"-", "3.3238390613999997`"}], RowBox[{"-", "0.5265910471599999`"}]}, {"12", "\<\"H\"\>", "1.0966079978`", RowBox[{"-", "1.3416109737`"}], "2.3307880484`"}, {"13", "\<\"H\"\>", "3.1218273519999995`", "3.3676807046`", "0.8463704808799999`"}, {"14", "\<\"H\"\>", "4.3989041828`", "0.98626689666`", RowBox[{"-", "1.1564178257`"}]}, {"15", "\<\"H\"\>", RowBox[{"-", "5.219612184599999`"}], "1.2554394681`", RowBox[{"-", "2.3411815413999997`"}]}, {"16", "\<\"H\"\>", RowBox[{"-", "6.4802483992`"}], RowBox[{"-", "1.62076129842`"}], RowBox[{"-", "2.2189162691999997`"}]}, {"17", "\<\"H\"\>", RowBox[{"-", "4.037399599`"}], RowBox[{"-", "1.05518520388`"}], RowBox[{"-", "4.1216813786`"}]} }, 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.576392693324132*^9, 3.5763932052702312`*^9, 3.5763933762621317`*^9, { 3.5764057808212805`*^9, 3.576405791335699*^9}, 3.576419677794129*^9, 3.576469334062848*^9, 3.5764697998328657`*^9, {3.576470312278166*^9, 3.576470368547465*^9}, {3.576470407251133*^9, 3.5764704571088204`*^9}, 3.5764704879032745`*^9, 3.576470783430194*^9, 3.58020901900373*^9}] }, Open ]], Cell[CellGroupData[{ Cell[BoxData[{ RowBox[{ RowBox[{"dc1", "=", RowBox[{"Table", "[", RowBox[{ RowBox[{"Norm", "[", RowBox[{ RowBox[{"t1", "[", RowBox[{"[", "i", "]"}], "]"}], "-", RowBox[{"t1", "[", RowBox[{"[", "j", "]"}], "]"}]}], "]"}], ",", RowBox[{"{", RowBox[{"i", ",", "1", ",", "n"}], "}"}], ",", RowBox[{"{", RowBox[{"j", ",", "1", ",", "n"}], "}"}]}], "]"}]}], ";"}], "\[IndentingNewLine]", RowBox[{"MatrixForm", "[", RowBox[{"Prepend", "[", RowBox[{"dc", ",", "num1"}], "]"}], "]"}]}], "Input", CellChangeTimes->{{3.576392526232239*^9, 3.5763925665895095`*^9}, { 3.5763926566016674`*^9, 3.576392657366069*^9}, 3.5763929792570343`*^9}], Cell[BoxData[ TagBox[ RowBox[{"(", "\[NoBreak]", GridBox[{ {"1", "2", "3", "4", "5", "6", "7", "8", "9", "10", "11", "12", "13", "14", "15", "16", "17", "18", "19", "20", "21", "22", "23", "24"}, {"0.`", "2.8696116633550557`", "4.713134392338332`", "4.706714183770311`", "2.8673287493172857`", "7.294448931528341`", "5.332487666289858`", "2.6521916963253767`", "4.5438815002258774`", "5.518653732085774`", "4.440445560071827`", "8.023167742501801`", "2.050850842802333`", "4.025010773200118`", "5.223727883719722`", "6.491143582712936`", "4.021825957553944`", "7.114754879519963`", "6.032149928543774`", "3.6401529128192776`", "4.759308535909942`", "8.716962274023638`", "7.935589856626243`", "9.707658330940408`"}, {"2.8696116633550557`", "0.`", "2.882638185698448`", "5.436765913214055`", "4.697216234513088`", "4.794384525987814`", "4.56099537838428`", "4.447152037028386`", "2.6466158707891596`", "6.587300913935551`", "6.980858424417812`", "5.467499914805993`", "4.0415046587739`", "2.0491469275406513`", "4.0297522918137965`", "7.2169116185264315`", "5.127177787946411`", "7.721746603012078`", "8.335236323886955`", "6.023238272117286`", "3.6275132212490577`", "6.534561926865252`", "5.275655753370538`", "7.036748003849932`"}, {"4.713134392338332`", "2.882638185698448`", "0.`", "4.508738511315063`", "5.4253608120266135`", "2.862258696323723`", "2.674242077323637`", "6.998928326008231`", "4.466272586572992`", "5.4251824016104795`", "7.845467540659289`", "4.505590717427777`", "5.2210669952324675`", "4.044420266703511`", "2.0512913779712614`", "6.167201501717479`", "6.079977444595055`", "5.945333857495782`", "8.925554382878788`", "8.319368010356726`", "6.033700148500485`", "4.01384281366761`", "4.005927327700816`", "6.067728604347645`"}, {"4.706714183770311`", "5.436765913214055`", "4.508738511315063`", "0.`", "2.8859966989648616`", "6.926113552713034`", "2.624297386792481`", "7.068428211314991`", "7.793291218895417`", "2.6188419481093574`", "4.631768522098775`", "7.758708102475377`", "5.187337744300391`", "6.198518169838517`", "5.054668706422678`", "2.0510813007221387`", "4.007489456088754`", "3.618320652990284`", "5.099926361662131`", "7.538648973512685`", "8.784749698552654`", "7.320979779074517`", "8.462048772870306`", "9.482497585891883`"}, {"2.8673287493172857`", "4.697216234513088`", "5.4253608120266135`", "2.8859966989648616`", "0.`", "8.014289389582563`", "4.512708707344933`", "4.560998379315763`", "7.039746272660163`", "4.482119829879324`", "2.646924834737463`", "8.425700463645736`", "4.028589186213552`", "5.186961316772587`", "6.215111668317009`", "4.083565049877935`", "2.0544700001448026`", "6.055573603571408`", "3.6791233799607084`", "4.843639147881561`", "7.462667039965493`", "9.031747571550579`", "9.252689446487832`", "10.211996854507442`"}, {"7.294448931528341`", "4.794384525987814`", "2.862258696323723`", "6.926113552713034`", "8.014289389582563`", "0.`", "4.468027608972366`", "9.227142451244642`", "5.5577923278147185`", "7.960534251969399`", "10.557664954801771`", "2.6478485396880767`", "7.928418393708412`", "5.160928251023152`", "3.997235451494914`", "8.17826409002849`", "8.205527160844156`", "8.055951766339147`", "11.512529076138616`", "10.749332280869103`", "7.213368970779192`", "2.054428209512261`", "2.050306695463844`", "3.6552740638941015`"}, {"5.332487666289858`", "4.56099537838428`", "2.674242077323637`", "2.624297386792481`", "4.512708707344933`", "4.468027608972366`", "0.`", "7.72496359268409`", "6.820283645515146`", "4.353357829522983`", "6.878964233387206`", "5.306437860521871`", "6.067643012879736`", "5.109893430230257`", "3.8812151927080696`", "3.7229563325298662`", "4.960752578312229`", "4.695908735385066`", "7.478880834211801`", "8.713735081811533`", "8.14110362819641`", "4.832247025432492`", "6.222532249080519`", "6.964788774805627`"}, {"2.6521916963253767`", "4.447152037028386`", "6.998928326008231`", "7.068428211314991`", "4.560998379315763`", "9.227142451244642`", "7.72496359268409`", "0.`", "5.337016564629454`", "7.9864829320211825`", "5.290119092553402`", "9.505644943533003`", "3.8701487836267505`", "4.826522808069704`", "7.640953496422886`", "8.594944537980206`", "4.978935281845281`", "9.664946883048858`", "6.83446184889886`", "1.7928779971159923`", "4.594649137384868`", "10.897281781050017`", "9.61926157842791`", "11.072841880639952`"}, {"4.5438815002258774`", "2.6466158707891596`", "4.466272586572992`", "7.793291218895417`", "7.039746272660163`", "5.5577923278147185`", "6.820283645515146`", "5.337016564629454`", "0.`", "8.37969794131542`", "8.976045430610734`", "6.562800340179487`", "4.9363561441823745`", "3.874477245555811`", "4.811648158502964`", "9.694898262284928`", "7.623442028018437`", "9.42536988483601`", "10.524837212653745`", "6.960130067670395`", "1.793132704866463`", "7.387443439606936`", "4.990925232486742`", "7.710211938350509`"}, {"5.518653732085774`", "6.587300913935551`", "5.4251824016104795`", "2.6188419481093574`", "4.482119829879324`", "7.960534251969399`", "4.353357829522983`", "7.9864829320211825`", "8.37969794131542`", "0.`", "5.262586640820762`", "9.455272229118066`", "4.95175195861839`", "7.935583394609471`", "4.902084614180018`", "3.848160935807898`", "6.20777738531369`", "1.7926679736499278`", "5.934858809223157`", "8.212075689998603`", "9.42945243984313`", "8.085745754624794`", "9.156825290939997`", "11.092845360222157`"}, {"4.440445560071827`", "6.980858424417812`", "7.845467540659289`", "4.631768522098775`", "2.646924834737463`", "10.557664954801771`", "6.878964233387206`", "5.290119092553402`", "8.976045430610734`", "5.262586640820762`", "0.`", "11.07247769033`", "4.875282122462094`", "7.575387811936275`", "8.230406953829704`", "5.288558438905491`", "3.8768265212991064`", "6.929502270456319`", "1.7897180159319515`", "4.601545379539731`", "9.095145400891639`", "11.480703647117126`", "11.700238897163223`", "12.858529562240488`"}, {"8.023167742501801`", "5.467499914805993`", "4.505590717427777`", "7.758708102475377`", "8.425700463645736`", "2.6478485396880767`", "5.306437860521871`", "9.505644943533003`", "6.562800340179487`", "9.455272229118066`", "11.07247769033`", "0.`", "9.210927064226405`", "4.764538920685002`", "6.23907053083073`", "8.647194088655754`", "7.952199521275997`", "9.71032655174264`", "11.834011732832389`", "11.098321140611823`", "7.850826454234906`", "3.885351011300058`", "3.890872883481804`", "1.788198167889362`"}, {"2.050850842802333`", "4.0415046587739`", "5.2210669952324675`", "5.187337744300391`", "4.028589186213552`", "7.928418393708412`", "6.067643012879736`", "3.8701487836267505`", "4.9363561441823745`", "4.95175195861839`", "4.875282122462094`", "9.210927064226405`", "0.`", "5.716718972562072`", "4.894541429367775`", "7.111466781401943`", "5.710317213395401`", "6.533726635025547`", "6.588914437934848`", "4.353124440079336`", "5.2675517982946145`", "9.128039650699128`", "8.33086882796811`", "10.839956702179943`"}, {"4.025010773200118`", "2.0491469275406513`", "4.044420266703511`", "6.198518169838517`", "5.186961316772587`", "5.160928251023152`", "5.109893430230257`", "4.826522808069704`", "3.874477245555811`", "7.935583394609471`", "7.575387811936275`", "4.764538920685002`", "5.716718972562072`", "0.`", "5.7141974678902`", "7.599768418689886`", "4.766886632333662`", "9.037801796098176`", "8.690132514365835`", "6.477589324353603`", "4.392331288465798`", "7.017516344471948`", "5.855499893118999`", "6.292290786327461`"}, {"5.223727883719722`", "4.0297522918137965`", "2.0512913779712614`", "5.054668706422678`", "6.215111668317009`", "3.997235451494914`", "3.8812151927080696`", "7.640953496422886`", "4.811648158502964`", "4.902084614180018`", "8.230406953829704`", "6.23907053083073`", "4.894541429367775`", "5.7141974678902`", "0.`", "6.862265451170072`", "7.386674965128562`", "5.244806808303067`", "9.439192135812606`", "8.776129037238961`", "6.436555872617043`", "4.600405551773799`", "4.504685185185767`", "7.58994666884555`"}, {"6.491143582712936`", "7.2169116185264315`", "6.167201501717479`", "2.0510813007221387`", "4.083565049877935`", "8.17826409002849`", "3.7229563325298662`", "8.594944537980206`", "9.694898262284928`", "3.848160935807898`", "5.288558438905491`", "8.647194088655754`", "7.111466781401943`", "7.599768418689886`", "6.862265451170072`", "0.`", "4.558840130035158`", "4.2894790534956675`", "5.033661398009883`", "8.893655970683215`", "10.65483550211775`", "8.284834648839814`", "9.935888894126865`", "10.295609233919624`"}, {"4.021825957553944`", "5.127177787946411`", "6.079977444595055`", "4.007489456088754`", "2.0544700001448026`", "8.205527160844156`", "4.960752578312229`", "4.978935281845281`", "7.623442028018437`", "6.20777738531369`", "3.8768265212991064`", "7.952199521275997`", "5.710317213395401`", "4.766886632333662`", "7.386674965128562`", "4.558840130035158`", "0.`", "7.567779795185818`", "4.31322017871597`", "5.439515659772683`", "7.919185820028219`", "9.336224462229268`", "9.58713665485705`", "9.686605069324026`"}, {"7.114754879519963`", "7.721746603012078`", "5.945333857495782`", "3.618320652990284`", "6.055573603571408`", "8.055951766339147`", "4.695908735385066`", "9.664946883048858`", "9.42536988483601`", "1.7926679736499278`", "6.929502270456319`", "9.71032655174264`", "6.533726635025547`", "9.037801796098176`", "5.244806808303067`", "4.2894790534956675`", "7.567779795185818`", "0.`", "7.365632067704706`", "9.98189570835157`", "10.674101389584182`", "7.7212587587677435`", "9.319426208322147`", "11.214324935702455`"}, {"6.032149928543774`", "8.335236323886955`", "8.925554382878788`", "5.099926361662131`", "3.6791233799607084`", "11.512529076138616`", "7.478880834211801`", "6.83446184889886`", "10.524837212653745`", "5.934858809223157`", "1.7897180159319515`", "11.834011732832389`", "6.588914437934848`", "8.690132514365835`", "9.439192135812606`", "5.033661398009883`", "4.31322017871597`", "7.365632067704706`", "0.`", "6.10697871358441`", "10.704634643933186`", "12.269326364953647`", "12.857135449909084`", "13.609909701660275`"}, {"3.6401529128192776`", "6.023238272117286`", "8.319368010356726`", "7.538648973512685`", "4.843639147881561`", "10.749332280869103`", "8.713735081811533`", "1.7928779971159923`", "6.960130067670395`", "8.212075689998603`", "4.601545379539731`", "11.098321140611823`", "4.353124440079336`", "6.477589324353603`", "8.776129037238961`", "8.893655970683215`", "5.439515659772683`", "9.98189570835157`", "6.10697871358441`", "0.`", "6.194650888587796`", "12.296422968602153`", "11.228265247394436`", "12.720500856768368`"}, {"4.759308535909942`", "3.6275132212490577`", "6.033700148500485`", "8.784749698552654`", "7.462667039965493`", "7.213368970779192`", "8.14110362819641`", "4.594649137384868`", "1.793132704866463`", "9.42945243984313`", "9.095145400891639`", "7.850826454234906`", "5.2675517982946145`", "4.392331288465798`", "6.436555872617043`", "10.65483550211775`", "7.919185820028219`", "10.674101389584182`", "10.704634643933186`", "6.194650888587796`", "0.`", "9.110322671405806`", "6.64562484308528`", "8.963887334685182`"}, {"8.716962274023638`", "6.534561926865252`", "4.01384281366761`", "7.320979779074517`", "9.031747571550579`", "2.054428209512261`", "4.832247025432492`", "10.897281781050017`", "7.387443439606936`", "8.085745754624794`", "11.480703647117126`", "3.885351011300058`", "9.128039650699128`", "7.017516344471948`", "4.600405551773799`", "8.284834648839814`", "9.336224462229268`", "7.7212587587677435`", "12.269326364953647`", "12.296422968602153`", "9.110322671405806`", "0.`", "3.3347573523715597`", "4.454497437919012`"}, {"7.935589856626243`", "5.275655753370538`", "4.005927327700816`", "8.462048772870306`", "9.252689446487832`", "2.050306695463844`", "6.222532249080519`", "9.61926157842791`", "4.990925232486742`", "9.156825290939997`", "11.700238897163223`", "3.890872883481804`", "8.33086882796811`", "5.855499893118999`", "4.504685185185767`", "9.935888894126865`", "9.58713665485705`", "9.319426208322147`", "12.857135449909084`", "11.228265247394436`", "6.64562484308528`", "3.3347573523715597`", "0.`", "4.3042846306399`"}, {"9.707658330940408`", "7.036748003849932`", "6.067728604347645`", "9.482497585891883`", "10.211996854507442`", "3.6552740638941015`", "6.964788774805627`", "11.072841880639952`", "7.710211938350509`", "11.092845360222157`", "12.858529562240488`", "1.788198167889362`", "10.839956702179943`", "6.292290786327461`", "7.58994666884555`", "10.295609233919624`", "9.686605069324026`", "11.214324935702455`", "13.609909701660275`", "12.720500856768368`", "8.963887334685182`", "4.454497437919012`", "4.3042846306399`", "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.576392693355332*^9, 3.576393205301431*^9, 3.576393376277732*^9, { 3.576405780930481*^9, 3.5764057913512993`*^9}, 3.576419677809729*^9, 3.5764693340784483`*^9, 3.576469799864066*^9, {3.576470312293766*^9, 3.576470368563065*^9}, {3.576470407266733*^9, 3.57647045712442*^9}, 3.5764704879188747`*^9, 3.5764707834457936`*^9, 3.5802090190193295`*^9}] }, Open ]], Cell[CellGroupData[{ Cell[BoxData[ RowBox[{"\[IndentingNewLine]", RowBox[{ RowBox[{"cn1", "=", 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]", "\"\\""}], ",", "7.0"}], "]"}]}], "]"}]}], "]"}]}], "]"}]}], "]"}], ",", RowBox[{"{", RowBox[{"i", ",", "1", ",", "n"}], "}"}]}], "]"}]}], "\[IndentingNewLine]", RowBox[{ RowBox[{"Vn", "=", "0.0"}], ";"}], "\[IndentingNewLine]", RowBox[{"For", "[", RowBox[{ RowBox[{"i", "=", "1"}], ",", RowBox[{"i", "<", "n"}], ",", RowBox[{"i", "++"}], ",", "\[IndentingNewLine]", RowBox[{"For", "[", RowBox[{ RowBox[{"j", "=", RowBox[{"i", "+", "1"}]}], ",", RowBox[{"j", "\[LessEqual]", "n"}], ",", RowBox[{"j", "++"}], ",", RowBox[{"Vn", "=", RowBox[{"Vn", "+", RowBox[{ RowBox[{"cn1", "[", RowBox[{"[", "i", "]"}], "]"}], "*", RowBox[{ RowBox[{"cn1", "[", RowBox[{"[", "j", "]"}], "]"}], "/", RowBox[{"dc1", "[", RowBox[{"[", RowBox[{"i", ",", "j"}], "]"}], "]"}]}]}]}]}]}], "]"}]}], "]"}], "\[IndentingNewLine]", "Vn", "\[IndentingNewLine]"}]}]], "Input", CellChangeTimes->{{3.5763930603303766`*^9, 3.576393117754078*^9}, { 3.5763931548197427`*^9, 3.5763931792961855`*^9}, {3.576393334953259*^9, 3.576393350256886*^9}, {3.5764097379708014`*^9, 3.5764097926644974`*^9}}], Cell[BoxData[ RowBox[{"{", RowBox[{ "8.`", ",", "8.`", ",", "8.`", ",", "7.`", ",", "7.`", ",", "6.`", ",", "6.`", ",", "6.`", ",", "6.`", ",", "1.`", ",", "1.`", ",", "1.`", ",", "1.`", ",", "1.`", ",", "1.`", ",", "1.`", ",", "1.`"}], "}"}]], "Output", CellChangeTimes->{ 3.576393205301431*^9, 3.5763933762933316`*^9, {3.576405780930481*^9, 3.5764057913668995`*^9}, 3.576419677825329*^9, 3.576469334094048*^9, 3.5764697998796663`*^9, {3.576470312309366*^9, 3.576470368578665*^9}, { 3.576470407282333*^9, 3.5764704571400204`*^9}, 3.576470487934475*^9, 3.5764707834613934`*^9, 3.5802090190349293`*^9}], Cell[BoxData["450.4266672685318`"], "Output", CellChangeTimes->{ 3.576393205301431*^9, 3.5763933762933316`*^9, {3.576405780930481*^9, 3.5764057913668995`*^9}, 3.576419677825329*^9, 3.576469334094048*^9, 3.5764697998796663`*^9, {3.576470312309366*^9, 3.576470368578665*^9}, { 3.576470407282333*^9, 3.5764704571400204`*^9}, 3.576470487934475*^9, 3.5764707834613934`*^9, 3.5802090190349293`*^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[{"\<\"O\"\>", ",", "\<\"O\"\>", ",", "\<\"O\"\>", ",", "\<\"N\"\>", ",", "\<\"N\"\>", ",", "\<\"C\"\>", ",", "\<\"C\"\>", ",", "\<\"C\"\>", ",", "\<\"C\"\>", ",", "\<\"Z\"\>", ",", "\<\"Z\"\>", ",", "\<\"Z\"\>", ",", "\<\"Z\"\>", ",", "\<\"Z\"\>", ",", "\<\"Z\"\>", ",", "\<\"Z\"\>", ",", "\<\"Z\"\>"}], "}"}]], "Output", CellChangeTimes->{ 3.5763887587096205`*^9, 3.5763922787222037`*^9, 3.5763923941936064`*^9, 3.576392693370932*^9, 3.576393205317031*^9, 3.5763933763089314`*^9, { 3.5764057809460807`*^9, 3.576405791382499*^9}, 3.576419677840929*^9, 3.5764693341096478`*^9, 3.5764697998796663`*^9, {3.5764703123249664`*^9, 3.576470368594265*^9}, {3.576470407297933*^9, 3.5764704571556206`*^9}, 3.576470487950075*^9, 3.5764707834769936`*^9, 3.5802090190505295`*^9}] }, Open ]], Cell[BoxData[ RowBox[{ RowBox[{"num1", "=", RowBox[{"Table", "[", RowBox[{"i", ",", RowBox[{"{", RowBox[{"i", ",", "1", ",", "n"}], "}"}]}], "]"}]}], ";"}]], "Input", CellChangeTimes->{{3.568807971988578*^9, 3.5688080897687845`*^9}, { 3.5688081769573374`*^9, 3.5688081865669546`*^9}, {3.568808274317109*^9, 3.5688082853151283`*^9}, {3.5688085365847692`*^9, 3.568808578330443*^9}, { 3.568808822704872*^9, 3.5688088761037655`*^9}, {3.56880890727262*^9, 3.568808937365073*^9}, {3.568809097608555*^9, 3.5688091594002633`*^9}, 3.5688092418308077`*^9, {3.5688092753552666`*^9, 3.568809302577315*^9}, { 3.5688096257786827`*^9, 3.568809703201618*^9}, {3.5688097456336927`*^9, 3.568809788268568*^9}, 3.568809850575077*^9, {3.568809946562046*^9, 3.5688099535664577`*^9}, {3.5688100003197403`*^9, 3.568810008556555*^9}, { 3.568810075371472*^9, 3.56881007981748*^9}, {3.568813431920168*^9, 3.568813533086345*^9}, {3.5688135960324554`*^9, 3.5688136045344706`*^9}, { 3.5688136407889347`*^9, 3.568813707494652*^9}, {3.568813812529636*^9, 3.5688138275524626`*^9}, {3.5688140611940727`*^9, 3.568814062738476*^9}, { 3.568814121113778*^9, 3.5688141965555105`*^9}, {3.568814326675339*^9, 3.568814331074547*^9}, 3.568814589473401*^9, {3.5688146762563534`*^9, 3.5688146829331646`*^9}, 3.5688147231032352`*^9, 3.5688216336189733`*^9, 3.5711137970191836`*^9}], Cell[BoxData[ RowBox[{ RowBox[{"um", "=", RowBox[{"Table", "[", RowBox[{ RowBox[{"{", RowBox[{ RowBox[{"un", "[", RowBox[{"[", "i", "]"}], "]"}], ",", RowBox[{"num1", "[", RowBox[{"[", "i", "]"}], "]"}]}], "}"}], ",", RowBox[{"{", RowBox[{"i", ",", "1", ",", "n"}], "}"}]}], "]"}]}], ";"}]], "Input", CellChangeTimes->{{3.568807971988578*^9, 3.5688080897687845`*^9}, { 3.5688081769573374`*^9, 3.5688081865669546`*^9}, {3.568808274317109*^9, 3.5688082853151283`*^9}, {3.5688085365847692`*^9, 3.568808578330443*^9}, { 3.568808822704872*^9, 3.5688088761037655`*^9}, {3.56880890727262*^9, 3.568808937365073*^9}, {3.568809097608555*^9, 3.5688091594002633`*^9}, 3.5688092418308077`*^9, {3.5688092753552666`*^9, 3.568809302577315*^9}, { 3.5688096257786827`*^9, 3.568809703201618*^9}, {3.5688097456336927`*^9, 3.568809788268568*^9}, 3.568809850575077*^9, {3.568809946562046*^9, 3.5688099535664577`*^9}, {3.5688100003197403`*^9, 3.568810008556555*^9}, { 3.568810075371472*^9, 3.56881007981748*^9}, {3.568813431920168*^9, 3.568813533086345*^9}, {3.5688135960324554`*^9, 3.5688136045344706`*^9}, { 3.5688136407889347`*^9, 3.568813707494652*^9}, {3.568813812529636*^9, 3.5688138275524626`*^9}, {3.5688140611940727`*^9, 3.568814062738476*^9}, { 3.568814121113778*^9, 3.5688141965555105`*^9}, {3.568814326675339*^9, 3.568814331074547*^9}, 3.568814589473401*^9, {3.5688146762563534`*^9, 3.5688146885023746`*^9}, 3.5688147203576307`*^9, 3.56882164316619*^9, 3.57111380070079*^9}], Cell[CellGroupData[{ Cell[BoxData[ RowBox[{"us", "=", RowBox[{"Sort", "[", "um", "]"}]}]], "Input", CellChangeTimes->{{3.568807971988578*^9, 3.5688080897687845`*^9}, { 3.5688081769573374`*^9, 3.5688081865669546`*^9}, {3.568808274317109*^9, 3.5688082853151283`*^9}, {3.5688085365847692`*^9, 3.568808578330443*^9}, { 3.568808822704872*^9, 3.5688088761037655`*^9}, {3.56880890727262*^9, 3.568808937365073*^9}, {3.568809097608555*^9, 3.5688091594002633`*^9}, 3.5688092418308077`*^9, {3.5688092753552666`*^9, 3.568809302577315*^9}, { 3.5688096257786827`*^9, 3.568809703201618*^9}, {3.5688097456336927`*^9, 3.568809788268568*^9}, 3.568809850575077*^9, {3.568809946562046*^9, 3.5688099535664577`*^9}, {3.5688100003197403`*^9, 3.568810008556555*^9}, { 3.568810075371472*^9, 3.56881007981748*^9}, {3.568813431920168*^9, 3.568813533086345*^9}, {3.5688135960324554`*^9, 3.5688136045344706`*^9}, { 3.5688136407889347`*^9, 3.568813707494652*^9}, {3.568813812529636*^9, 3.5688138275524626`*^9}, {3.5688140611940727`*^9, 3.568814062738476*^9}, { 3.568814121113778*^9, 3.5688141965555105`*^9}, {3.568814326675339*^9, 3.568814331074547*^9}, 3.568814589473401*^9, {3.5688146762563534`*^9, 3.5688146945707855`*^9}}], Cell[BoxData[ RowBox[{"{", RowBox[{ RowBox[{"{", RowBox[{"\<\"C\"\>", ",", "6"}], "}"}], ",", RowBox[{"{", RowBox[{"\<\"C\"\>", ",", "7"}], "}"}], ",", RowBox[{"{", RowBox[{"\<\"C\"\>", ",", "8"}], "}"}], ",", RowBox[{"{", RowBox[{"\<\"C\"\>", ",", "9"}], "}"}], ",", RowBox[{"{", RowBox[{"\<\"N\"\>", ",", "4"}], "}"}], ",", RowBox[{"{", RowBox[{"\<\"N\"\>", ",", "5"}], "}"}], ",", RowBox[{"{", RowBox[{"\<\"O\"\>", ",", "1"}], "}"}], ",", RowBox[{"{", RowBox[{"\<\"O\"\>", ",", "2"}], "}"}], ",", RowBox[{"{", RowBox[{"\<\"O\"\>", ",", "3"}], "}"}], ",", RowBox[{"{", RowBox[{"\<\"Z\"\>", ",", "10"}], "}"}], ",", RowBox[{"{", RowBox[{"\<\"Z\"\>", ",", "11"}], "}"}], ",", RowBox[{"{", RowBox[{"\<\"Z\"\>", ",", "12"}], "}"}], ",", RowBox[{"{", RowBox[{"\<\"Z\"\>", ",", "13"}], "}"}], ",", RowBox[{"{", RowBox[{"\<\"Z\"\>", ",", "14"}], "}"}], ",", RowBox[{"{", RowBox[{"\<\"Z\"\>", ",", "15"}], "}"}], ",", RowBox[{"{", RowBox[{"\<\"Z\"\>", ",", "16"}], "}"}], ",", RowBox[{"{", RowBox[{"\<\"Z\"\>", ",", "17"}], "}"}]}], "}"}]], "Output", CellChangeTimes->{ 3.5763887587408204`*^9, 3.5763922787534037`*^9, 3.5763923942092066`*^9, 3.576392693386532*^9, 3.5763932053482313`*^9, 3.5763933763245316`*^9, { 3.576405780961681*^9, 3.576405791398099*^9}, 3.576419677856529*^9, 3.576469334125248*^9, 3.5764697999108663`*^9, {3.5764703123561664`*^9, 3.576470368609865*^9}, {3.576470407313533*^9, 3.576470457171221*^9}, 3.576470487965675*^9, 3.576470783492594*^9, 3.5802090190661297`*^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[{ "6", ",", "7", ",", "8", ",", "9", ",", "4", ",", "5", ",", "1", ",", "2", ",", "3", ",", "10", ",", "11", ",", "12", ",", "13", ",", "14", ",", "15", ",", "16", ",", "17"}], "}"}]], "Output", CellChangeTimes->{ 3.57638875875642*^9, 3.5763922787534037`*^9, 3.576392394224807*^9, 3.576392693402132*^9, 3.5763932053482313`*^9, 3.5763933763401318`*^9, { 3.576405780961681*^9, 3.576405791413699*^9}, 3.5764196778721294`*^9, 3.576469334125248*^9, 3.576469799926466*^9, {3.5764703123561664`*^9, 3.5764703686254654`*^9}, {3.576470407329133*^9, 3.5764704571868205`*^9}, 3.5764704879812746`*^9, 3.576470783508194*^9, 3.5802090190661297`*^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.12", ",", 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]", "\"\\""}], ",", RowBox[{"(*", "0.25618", "*)"}], "0.2572", ",", 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.1786", ",", RowBox[{"If", "[", RowBox[{ RowBox[{ RowBox[{"us", "[", RowBox[{"[", RowBox[{"i", ",", "1"}], "]"}], "]"}], "\[Equal]", "\"\\""}], ",", "0.48698"}], "]"}]}], "]"}]}], "]"}]}], "]"}]}], "]"}], ",", RowBox[{"{", RowBox[{"i", ",", "1", ",", "n"}], "}"}]}], "]"}]}]}], "Input", CellChangeTimes->{{3.5679480369450207`*^9, 3.567948069112277*^9}, { 3.5679486805553513`*^9, 3.5679487948723516`*^9}, 3.567950206581231*^9, { 3.5681216077716007`*^9, 3.5681216839309344`*^9}, {3.568266380090639*^9, 3.5682664108850937`*^9}, {3.568266481350417*^9, 3.56826649971165*^9}, 3.5682795170433135`*^9, {3.5682795636873956`*^9, 3.5682797843809834`*^9}, { 3.568279837187076*^9, 3.5682798459854913`*^9}, {3.568279877201146*^9, 3.568279880711152*^9}, {3.5682799570264864`*^9, 3.5682799599124913`*^9}, { 3.5683770044498715`*^9, 3.5683771523693314`*^9}, 3.5688133425788107`*^9, { 3.568814931192001*^9, 3.5688150075073347`*^9}, {3.5688765350957685`*^9, 3.5688765981198792`*^9}, {3.568876634452343*^9, 3.5688766352167444`*^9}, { 3.568894358551657*^9, 3.5688944054453397`*^9}, {3.568894522929146*^9, 3.5688945259087515`*^9}, {3.5688946101644993`*^9, 3.5688946171221113`*^9}, {3.568894651067771*^9, 3.568894651956972*^9}, 3.5688946827982264`*^9, {3.568894734527918*^9, 3.568894735495119*^9}, { 3.5688947726699843`*^9, 3.568894773496786*^9}, {3.5688948078948464`*^9, 3.568895097914956*^9}, {3.5689558039020233`*^9, 3.568955804619624*^9}, { 3.5689559169086213`*^9, 3.5689559179070234`*^9}, {3.5689559496998787`*^9, 3.568955950589081*^9}, {3.568956090817727*^9, 3.568956118273775*^9}, 3.5689561556982408`*^9, {3.5690814230317364`*^9, 3.5690814238897376`*^9}, { 3.569232478412421*^9, 3.5692324795356236`*^9}, {3.5692325096124763`*^9, 3.5692325115780797`*^9}, {3.5692325933846235`*^9, 3.569232594289425*^9}, { 3.569235467676072*^9, 3.5692354683780737`*^9}, {3.5692358857568064`*^9, 3.5692358867552085`*^9}, {3.569236173312112*^9, 3.569236174060913*^9}, { 3.569344745239445*^9, 3.569344781213108*^9}, {3.5693896312339673`*^9, 3.5693896351495743`*^9}, {3.5693896840088596`*^9, 3.5693896981112843`*^9}, {3.5693897680462074`*^9, 3.5693897743798184`*^9}, 3.570595843597315*^9, 3.5705958765133724`*^9, {3.5706006955110383`*^9, 3.57060069660304*^9}, {3.570600739659116*^9, 3.5706007402207165`*^9}, { 3.5706007784563837`*^9, 3.5706008313872766`*^9}, {3.5706008641161346`*^9, 3.5706008892321787`*^9}, 3.5706010214580107`*^9, {3.5706011135917726`*^9, 3.570601115058175*^9}, {3.5706011509850388`*^9, 3.5706011750714808`*^9}, { 3.5706012352719865`*^9, 3.570601260746831*^9}, 3.570856110868636*^9, 3.570856144034294*^9, 3.5708561753903494`*^9, {3.5708562115824127`*^9, 3.570856236261656*^9}, 3.5708568877188005`*^9, 3.570856960992129*^9, { 3.5708570022854013`*^9, 3.570857003424204*^9}, 3.5708574863854513`*^9, 3.570857676003785*^9, {3.570857720697863*^9, 3.570857774736358*^9}, { 3.570857815015629*^9, 3.570857815265229*^9}, {3.5708578488052883`*^9, 3.5708579513754683`*^9}, {3.5708579844319267`*^9, 3.570858009937971*^9}, { 3.5708583084132957`*^9, 3.570858421435494*^9}, {3.5727961392438684`*^9, 3.57279614016427*^9}, {3.572796215855603*^9, 3.5727962193812094`*^9}, { 3.5731452670909014`*^9, 3.573145275920517*^9}, {3.573366168242963*^9, 3.5733661753721757`*^9}, 3.573367679154417*^9, {3.5746744522844534`*^9, 3.574674453220455*^9}, 3.5746820022776895`*^9, {3.574682057033786*^9, 3.574682057704587*^9}, {3.574682089045042*^9, 3.574682170757985*^9}, 3.57468220769885*^9, {3.5746826561216383`*^9, 3.5746827960226836`*^9}, { 3.5747437628680496`*^9, 3.5747437640692515`*^9}, 3.5747437976249104`*^9, { 3.574743832756172*^9, 3.5747439364027543`*^9}, {3.57474397413922*^9, 3.5747439758396235`*^9}, {3.5750084847337775`*^9, 3.575008487276582*^9}, { 3.575008535059466*^9, 3.575008535761467*^9}, {3.5750085659943204`*^9, 3.5750085672267227`*^9}, {3.5750086497820673`*^9, 3.5750086512484703`*^9}, {3.575345710884446*^9, 3.5753457175144577`*^9}, { 3.5757079421584663`*^9, 3.5757079428916674`*^9}, 3.575774946192878*^9, 3.575774992259759*^9}], Cell[BoxData[ RowBox[{"{", RowBox[{ "0.255`", ",", "0.255`", ",", "0.255`", ",", "0.255`", ",", "0.24`", ",", "0.24`", ",", "0.178`", ",", "0.178`", ",", "0.178`", ",", "0.12`", ",", "0.12`", ",", "0.12`", ",", "0.12`", ",", "0.12`", ",", "0.12`", ",", "0.12`", ",", "0.12`"}], "}"}]], "Output", CellChangeTimes->{ 3.5763887587720203`*^9, 3.576392278769004*^9, 3.576392394240407*^9, 3.5763926934177322`*^9, 3.5763932053638315`*^9, 3.5763933763557315`*^9, { 3.5764057809772806`*^9, 3.5764057914292994`*^9}, 3.576419677887729*^9, 3.576469334140848*^9, 3.576469799942066*^9, {3.5764703123873663`*^9, 3.576470368641065*^9}, {3.576470407344733*^9, 3.5764704572024207`*^9}, 3.576470487996875*^9, 3.5764707835237937`*^9, 3.58020901908173*^9}], Cell[BoxData[ RowBox[{"{", RowBox[{ "0.2572`", ",", "0.2572`", ",", "0.2572`", ",", "0.2572`", ",", "0.22522`", ",", "0.22522`", ",", "0.1786`", ",", "0.1786`", ",", "0.1786`", ",", "0.6`", ",", "0.6`", ",", "0.6`", ",", "0.6`", ",", "0.6`", ",", "0.6`", ",", "0.6`", ",", "0.6`"}], "}"}]], "Output", CellChangeTimes->{ 3.5763887587720203`*^9, 3.576392278769004*^9, 3.576392394240407*^9, 3.5763926934177322`*^9, 3.5763932053638315`*^9, 3.5763933763557315`*^9, { 3.5764057809772806`*^9, 3.5764057914292994`*^9}, 3.576419677887729*^9, 3.576469334140848*^9, 3.576469799942066*^9, {3.5764703123873663`*^9, 3.576470368641065*^9}, {3.576470407344733*^9, 3.5764704572024207`*^9}, 3.576470487996875*^9, 3.5764707835237937`*^9, 3.58020901908173*^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\"\>", ",", "\<\"N\"\>", ",", "\<\"N\"\>", ",", "\<\"O\"\>", ",", "\<\"O\"\>", ",", "\<\"O\"\>", ",", "\<\"H\"\>", ",", "\<\"H\"\>", ",", "\<\"H\"\>", ",", "\<\"H\"\>", ",", "\<\"H\"\>", ",", "\<\"H\"\>", ",", "\<\"H\"\>", ",", "\<\"H\"\>"}], "}"}]], "Output", CellChangeTimes->{ 3.5763887588032207`*^9, 3.576392278784604*^9, 3.5763923942560067`*^9, 3.5763926934333324`*^9, 3.5763932053794317`*^9, 3.5763933763713317`*^9, { 3.576405780992881*^9, 3.576405791444899*^9}, 3.576419677903329*^9, 3.576469334172048*^9, 3.5764697999576664`*^9, {3.5764703123873663`*^9, 3.576470368656665*^9}, {3.5764704073603334`*^9, 3.576470457218021*^9}, 3.576470488012475*^9, 3.576470783539394*^9, 3.5802090190973296`*^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]", "\"\\""}], ",", "7.0"}], "]"}]}], "]"}]}], "]"}]}], "]"}]}], "]"}], ",", RowBox[{"{", RowBox[{"i", ",", "1", ",", "n"}], "}"}]}], "]"}]}]], "Input", CellChangeTimes->{{3.5688224161787477`*^9, 3.5688224173799496`*^9}, { 3.5688224905908785`*^9, 3.568822500434496*^9}, 3.5692358293003073`*^9, 3.5692358676919746`*^9, {3.569344570581538*^9, 3.5693446110324097`*^9}, 3.5733593979404716`*^9}], Cell[BoxData[ RowBox[{"{", RowBox[{ "6.`", ",", "6.`", ",", "6.`", ",", "6.`", ",", "7.`", ",", "7.`", ",", "8.`", ",", "8.`", ",", "8.`", ",", "1.`", ",", "1.`", ",", "1.`", ",", "1.`", ",", "1.`", ",", "1.`", ",", "1.`", ",", "1.`"}], "}"}]], "Output", CellChangeTimes->{ 3.576388758818821*^9, 3.5763922788002043`*^9, 3.5763923942716064`*^9, 3.5763926934489326`*^9, 3.5763932053950315`*^9, 3.576393376386932*^9, { 3.576405780992881*^9, 3.576405791444899*^9}, 3.5764196779345293`*^9, 3.576469334172048*^9, 3.5764697999732666`*^9, {3.5764703124029665`*^9, 3.576470368672265*^9}, {3.576470407375933*^9, 3.5764704572336206`*^9}, 3.5764704880280747`*^9, 3.576470783554994*^9, 3.5802090191129293`*^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["9"], "Output", CellChangeTimes->{ 3.5763887588344207`*^9, 3.576392278815804*^9, 3.5763923942872066`*^9, 3.5763926934645324`*^9, 3.5763932054106317`*^9, 3.5763933764025316`*^9, { 3.576405781008481*^9, 3.5764057914604993`*^9}, 3.5764196779501295`*^9, 3.5764693341876483`*^9, 3.5764697999732666`*^9, {3.5764703124185667`*^9, 3.5764703686878653`*^9}, {3.576470407391533*^9, 3.576470457249221*^9}, 3.5764704880436745`*^9, 3.576470783570594*^9, 3.5802090191129293`*^9}], Cell[BoxData["8"], "Output", CellChangeTimes->{ 3.5763887588344207`*^9, 3.576392278815804*^9, 3.5763923942872066`*^9, 3.5763926934645324`*^9, 3.5763932054106317`*^9, 3.5763933764025316`*^9, { 3.576405781008481*^9, 3.5764057914604993`*^9}, 3.5764196779501295`*^9, 3.5764693341876483`*^9, 3.5764697999732666`*^9, {3.5764703124185667`*^9, 3.5764703686878653`*^9}, {3.576470407391533*^9, 3.576470457249221*^9}, 3.5764704880436745`*^9, 3.576470783570594*^9, 3.5802090191129293`*^9}] }, Open ]], Cell[BoxData[""], "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}, {3.5749356251839495`*^9, 3.5749356357451677`*^9}, {3.5763887223303566`*^9, 3.5763887326575747`*^9}, 3.5764095447020617`*^9}], Cell[CellGroupData[{ Cell[BoxData[ RowBox[{"ChemicalData", "\[NoBreak]", "[", RowBox[{"\"\\"", ",", "\"\\""}], "]"}]], "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}, {3.5749356251839495`*^9, 3.5749356357451677`*^9}, 3.5753438951420565`*^9, 3.5753463317967367`*^9, 3.575346463694968*^9, 3.575347966086807*^9, 3.5753753647377768`*^9, 3.5763887160747457`*^9}], Cell[BoxData["\<\"C4H8N2O3\"\>"], "Output", CellChangeTimes->{ 3.5763887588500204`*^9, 3.576392278847004*^9, 3.576392394318407*^9, 3.576392693480132*^9, 3.5763932054418316`*^9, 3.576393376418132*^9, { 3.576405781024081*^9, 3.576405791491699*^9}, 3.576419677965729*^9, 3.576469334203248*^9, 3.5764697999888663`*^9, {3.576470312449766*^9, 3.576470368719065*^9}, {3.576470407407133*^9, 3.576470457264821*^9}, 3.5764704880592747`*^9, 3.5764707836017942`*^9, 3.5802090191285295`*^9}] }, Open ]], Cell[BoxData[{ RowBox[{ RowBox[{"t", "=", RowBox[{"Table", "[", RowBox[{ RowBox[{"t1", "[", RowBox[{"[", RowBox[{"num", "[", RowBox[{"[", "i", "]"}], "]"}], "]"}], "]"}], ",", RowBox[{"{", RowBox[{"i", ",", "1", ",", "n"}], "}"}]}], "]"}]}], ";"}], "\[IndentingNewLine]", 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[{"0.529177", "*", RowBox[{"Extract", "[", RowBox[{"t", ",", RowBox[{"{", "i", "}"}]}], "]"}]}]}], "}"}], ">>>", " ", "\"\\""}]}], "]"}], "\[IndentingNewLine]"}], "Input", CellChangeTimes->{{3.567869377256353*^9, 3.567869394073182*^9}, { 3.5678694248832364`*^9, 3.5678694526200852`*^9}, {3.5678694891241493`*^9, 3.5678694955045605`*^9}, {3.567869596046737*^9, 3.567869602645549*^9}, 3.56786971175214*^9, {3.5678697908910794`*^9, 3.567869798800293*^9}, { 3.5679434548425727`*^9, 3.5679434621121855`*^9}, 3.568011875875622*^9, 3.56811435956207*^9, {3.5682782821071444`*^9, 3.5682782839479475`*^9}, { 3.5688205455482616`*^9, 3.5688206262784038`*^9}, 3.5688208026055136`*^9, 3.5688732159559383`*^9, 3.568910867631465*^9, {3.5689830694736805`*^9, 3.568983072687286*^9}, {3.5725833074418383`*^9, 3.5725833223398647`*^9}, { 3.572583642982828*^9, 3.572583671421678*^9}, {3.572584036290719*^9, 3.5725840766323895`*^9}, {3.572584986320788*^9, 3.572585000719613*^9}, { 3.572585104865396*^9, 3.5725851158790154`*^9}, 3.5726667135591345`*^9, { 3.5727958552609696`*^9, 3.5727958810478153`*^9}, {3.5727959717619743`*^9, 3.5727959736963778`*^9}, {3.572796004615632*^9, 3.572796064270137*^9}, 3.5733691180073442`*^9, {3.5747381333641615`*^9, 3.5747381348149643`*^9}, { 3.5748523465408697`*^9, 3.574852347788872*^9}, {3.5749356592544093`*^9, 3.5749356651044197`*^9}, 3.575562664774312*^9, {3.576409556464483*^9, 3.5764095653564987`*^9}}], Cell[CellGroupData[{ Cell[BoxData[ RowBox[{"ChemicalData", "\[NoBreak]", "[", RowBox[{"\"\\"", ",", "\"\\""}], "]"}]], "Input", CellChangeTimes->{{3.567869377256353*^9, 3.567869394073182*^9}, { 3.5678694248832364`*^9, 3.5678694526200852`*^9}, {3.5678694891241493`*^9, 3.5678694955045605`*^9}, {3.567869596046737*^9, 3.567869602645549*^9}, 3.56786971175214*^9, {3.5678697908910794`*^9, 3.567869798800293*^9}, { 3.5679434548425727`*^9, 3.5679434621121855`*^9}, 3.568011875875622*^9, 3.56811435956207*^9, {3.5682782821071444`*^9, 3.5682782839479475`*^9}, { 3.5688205455482616`*^9, 3.5688206262784038`*^9}, 3.5688208026055136`*^9, 3.5688732159559383`*^9, 3.568910867631465*^9, {3.5689830694736805`*^9, 3.568983072687286*^9}, {3.5725833074418383`*^9, 3.5725833223398647`*^9}, { 3.572583642982828*^9, 3.572583671421678*^9}, {3.572584036290719*^9, 3.5725840766323895`*^9}, {3.572584986320788*^9, 3.572585000719613*^9}, { 3.572585104865396*^9, 3.5725851158790154`*^9}, 3.5726667135591345`*^9, { 3.5727958552609696`*^9, 3.5727958810478153`*^9}, {3.5727959717619743`*^9, 3.5727959736963778`*^9}, {3.572796004615632*^9, 3.572796064270137*^9}, 3.5733691180073442`*^9, {3.5747381333641615`*^9, 3.5747381348149643`*^9}, { 3.5748523465408697`*^9, 3.574852347788872*^9}, {3.5749356592544093`*^9, 3.5749356651044197`*^9}, 3.5753438951420565`*^9, 3.5753463318123364`*^9, 3.575346463694968*^9, 3.575347966086807*^9, 3.5753753647377768`*^9, 3.576293905758238*^9, {3.5762996296762357`*^9, 3.5762996326090407`*^9}}], Cell[BoxData[ GraphicsBox[{{ {GrayLevel[0], AbsoluteThickness[0.55], InsetBox[ StyleBox["\<\"O\"\>", StripOnInput->False, ScriptSizeMultipliers->0.8, ScriptMinSize->8, FontSize->Scaled[0.03669693762456801], FontWeight->Plain], {426.90000000000003`, -125.}], LineBox[{{{421.90000000000003`, -107.62292025359697`}, { 421.90000000000003`, -75.}}, {{ 431.90000000000003`, -107.62292025359697`}, { 431.90000000000003`, -75.}}}], {GrayLevel[0], InsetBox[ StyleBox["\<\"C\"\>", StripOnInput->False, ScriptSizeMultipliers->0.8, ScriptMinSize->8, FontSize->Scaled[0.03669693762456801], FontWeight->Plain], {426.90000000000003`, -25.}], LineBox[{{{421.90000000000003`, -75.}, { 421.90000000000003`, -41.15052229405678}}, {{ 431.90000000000003`, -75.}, { 431.90000000000003`, -41.15052229405678}}}]}}, {GrayLevel[0], AbsoluteThickness[0.55], InsetBox[ StyleBox[ TemplateBox[{"\"O\"","\"-\""}, "Superscript"], StripOnInput->False, ScriptSizeMultipliers->0.8, ScriptMinSize->8, FontSize->Scaled[0.03669693762456801], FontWeight->Plain], {773.3100000000001, -25.}], LineBox[{{754.0122293690636, -13.858100097611759`}, {730.01, 0.}}], {GrayLevel[0], InsetBox[ StyleBox["\<\"C\"\>", StripOnInput->False, ScriptSizeMultipliers->0.8, ScriptMinSize->8, FontSize->Scaled[0.03669693762456801], FontWeight->Plain], {686.7099999999999, 25.}], LineBox[{{730.01, 0.}, {700.6966600165583, 16.92456119136353}}]}}, {GrayLevel[0], AbsoluteThickness[0.55], InsetBox[ StyleBox["\<\"O\"\>", StripOnInput->False, ScriptSizeMultipliers->0.8, ScriptMinSize->8, FontSize->Scaled[0.03669693762456801], FontWeight->Plain], {686.7099999999999, 125.}], LineBox[{{{691.7099999999999, 107.62292025359697`}, {691.7099999999999, 75.}}, {{681.7099999999999, 107.62292025359697`}, {681.7099999999999, 75.}}}], {GrayLevel[0], InsetBox[ StyleBox["\<\"C\"\>", StripOnInput->False, ScriptSizeMultipliers->0.8, ScriptMinSize->8, FontSize->Scaled[0.03669693762456801], FontWeight->Plain], {686.7099999999999, 25.}], LineBox[{{{691.7099999999999, 75.}, {691.7099999999999, 41.15052229405678}}, {{681.7099999999999, 75.}, {681.7099999999999, 41.15052229405678}}}]}}, {GrayLevel[0], AbsoluteThickness[0.55], InsetBox[ StyleBox["\<\"N\"\>", StripOnInput->False, ScriptSizeMultipliers->0.8, ScriptMinSize->8, FontSize->Scaled[0.03669693762456801], FontWeight->Plain], {513.5, 25.}], LineBox[{{499.5133399834416, 16.924561191363516`}, {470.20000000000005`, 0.}}], {GrayLevel[0], InsetBox[ StyleBox["\<\"C\"\>", StripOnInput->False, ScriptSizeMultipliers->0.8, ScriptMinSize->8, FontSize->Scaled[0.03669693762456801], FontWeight->Plain], {426.90000000000003`, -25.}], LineBox[{{470.20000000000005`, 0.}, { 440.88666001655844`, -16.924561191363523`}}]}}, {GrayLevel[0], AbsoluteThickness[0.55], InsetBox[ StyleBox["\<\"N\"\>", StripOnInput->False, ScriptSizeMultipliers->0.8, ScriptMinSize->8, FontSize->Scaled[0.03669693762456801], FontWeight->Plain], {513.5, 25.}], LineBox[{{527.4866600165584, 16.924561191363516`}, {556.8, 0.}}], {GrayLevel[0], InsetBox[ StyleBox["\<\"C\"\>", StripOnInput->False, ScriptSizeMultipliers->0.8, ScriptMinSize->8, FontSize->Scaled[0.03669693762456801], FontWeight->Plain], {600.1, -25.}], LineBox[{{556.8, 0.}, {586.1133399834416, -16.92456119136353}}]}}, {GrayLevel[0], AbsoluteThickness[0.55], InsetBox[ StyleBox["\<\"N\"\>", StripOnInput->False, ScriptSizeMultipliers->0.8, ScriptMinSize->8, FontSize->Scaled[0.03669693762456801], FontWeight->Plain], {513.5, 25.}], LineBox[{{513.5, 41.15052229405678}, {513.5, 56.}}], {GrayLevel[0], InsetBox[ StyleBox["\<\"H\"\>", StripOnInput->False, ScriptSizeMultipliers->0.8, ScriptMinSize->8, FontSize->Scaled[0.03669693762456801], FontWeight->Plain], {513.5, 87.}], LineBox[{{513.5, 56.}, {513.5, 70.84947770594323}}]}}, {GrayLevel[0], AbsoluteThickness[0.55], InsetBox[ StyleBox[ TemplateBox[{"\"N\"","\"+\""}, "Superscript"], StripOnInput->False, ScriptSizeMultipliers->0.8, ScriptMinSize->8, FontSize->Scaled[0.03669693762456801], FontWeight->Plain], {253.69000000000003`, -25.}], LineBox[{{275.2094016827713, -12.576837730763607`}, {296.995, 0.}}], {GrayLevel[0], InsetBox[ StyleBox["\<\"C\"\>", StripOnInput->False, ScriptSizeMultipliers->0.8, ScriptMinSize->8, FontSize->Scaled[0.03669693762456801], FontWeight->Plain], {340.3, 25.}], LineBox[{{296.995, 0.}, {326.3129362461835, 16.9252605046666}}]}}, {GrayLevel[0], AbsoluteThickness[0.55], InsetBox[ StyleBox[ TemplateBox[{"\"N\"","\"+\""}, "Superscript"], StripOnInput->False, ScriptSizeMultipliers->0.8, ScriptMinSize->8, FontSize->Scaled[0.03669693762456801], FontWeight->Plain], {253.69000000000003`, -25.}], LineBox[{{232.1714198839322, -37.42458527841503}, { 226.84500000000003`, -40.5}}], {GrayLevel[0], InsetBox[ StyleBox["\<\"H\"\>", StripOnInput->False, ScriptSizeMultipliers->0.8, ScriptMinSize->8, FontSize->Scaled[0.03669693762456801], FontWeight->Plain], {200., -56.00000000000001}], LineBox[{{226.84500000000003`, -40.5}, { 213.98652975635562`, -47.92433558489433}}]}}, {GrayLevel[0], AbsoluteThickness[0.55], InsetBox[ StyleBox[ TemplateBox[{"\"N\"","\"+\""}, "Superscript"], StripOnInput->False, ScriptSizeMultipliers->0.8, ScriptMinSize->8, FontSize->Scaled[0.03669693762456801], FontWeight->Plain], {253.69000000000003`, -25.}], LineBox[{{241.265414721585, -3.4814198839321726`}, {238.19, 1.8449999999999989`}}], {GrayLevel[0], InsetBox[ StyleBox["\<\"H\"\>", StripOnInput->False, ScriptSizeMultipliers->0.8, ScriptMinSize->8, FontSize->Scaled[0.03669693762456801], FontWeight->Plain], {222.69, 28.689999999999998`}], LineBox[{{238.19, 1.8449999999999989`}, {230.76566441510568`, 14.70347024364439}}]}}, {GrayLevel[0], AbsoluteThickness[0.55], InsetBox[ StyleBox[ TemplateBox[{"\"N\"","\"+\""}, "Superscript"], StripOnInput->False, ScriptSizeMultipliers->0.8, ScriptMinSize->8, FontSize->Scaled[0.03669693762456801], FontWeight->Plain], {253.69000000000003`, -25.}], LineBox[{{266.11458527841506`, -46.51858011606784}, {269.19, -51.845}}], {GrayLevel[0], InsetBox[ StyleBox["\<\"H\"\>", StripOnInput->False, ScriptSizeMultipliers->0.8, ScriptMinSize->8, FontSize->Scaled[0.03669693762456801], FontWeight->Plain], {284.69, -78.69}], LineBox[{{269.19, -51.845}, {276.6143355848943, -64.70347024364439}}]}}, {GrayLevel[0], AbsoluteThickness[0.55], InsetBox[ StyleBox["\<\"C\"\>", StripOnInput->False, ScriptSizeMultipliers->0.8, ScriptMinSize->8, FontSize->Scaled[0.03669693762456801], FontWeight->Plain], {340.3, 25.}], LineBox[{{354.2866600165584, 16.924561191363523`}, {383.6, 0.}}], {GrayLevel[0], InsetBox[ StyleBox["\<\"C\"\>", StripOnInput->False, ScriptSizeMultipliers->0.8, ScriptMinSize->8, FontSize->Scaled[0.03669693762456801], FontWeight->Plain], {426.90000000000003`, -25.}], LineBox[{{383.6, 0.}, {412.91333998344163`, -16.924561191363523`}}]}}, {GrayLevel[0], AbsoluteThickness[0.55], InsetBox[ StyleBox["\<\"C\"\>", StripOnInput->False, ScriptSizeMultipliers->0.8, ScriptMinSize->8, FontSize->Scaled[0.03669693762456801], FontWeight->Plain], {340.3, 25.}], LineBox[{{350.68153272944454`, 37.37186924269314}, {360.225, 48.745}}], {GrayLevel[0], InsetBox[ StyleBox["\<\"H\"\>", StripOnInput->False, ScriptSizeMultipliers->0.8, ScriptMinSize->8, FontSize->Scaled[0.03669693762456801], FontWeight->Plain], {380.15, 72.49}], LineBox[{{360.225, 48.745}, {369.76846727055545`, 60.118130757306844`}}]}}, {GrayLevel[0], AbsoluteThickness[0.55], InsetBox[ StyleBox["\<\"C\"\>", StripOnInput->False, ScriptSizeMultipliers->0.8, ScriptMinSize->8, FontSize->Scaled[0.03669693762456801], FontWeight->Plain], {340.3, 25.}], LineBox[{{329.9169387787794, 37.37058648760075}, {320.37, 48.745}}], {GrayLevel[0], InsetBox[ StyleBox["\<\"H\"\>", StripOnInput->False, ScriptSizeMultipliers->0.8, ScriptMinSize->8, FontSize->Scaled[0.03669693762456801], FontWeight->Plain], {300.44, 72.49}], LineBox[{{320.37, 48.745}, {310.8230612212206, 60.11941351239925}}]}}, {GrayLevel[0], AbsoluteThickness[0.55], InsetBox[ StyleBox["\<\"C\"\>", StripOnInput->False, ScriptSizeMultipliers->0.8, ScriptMinSize->8, FontSize->Scaled[0.03669693762456801], FontWeight->Plain], {600.1, -25.}], LineBox[{{614.0870637538166, -16.92526050466659}, {643.405, 0.}}], {GrayLevel[0], InsetBox[ StyleBox["\<\"C\"\>", StripOnInput->False, ScriptSizeMultipliers->0.8, ScriptMinSize->8, FontSize->Scaled[0.03669693762456801], FontWeight->Plain], {686.7099999999999, 25.}], LineBox[{{643.405, 0.}, {672.7229362461834, 16.92526050466659}}]}}, {GrayLevel[0], AbsoluteThickness[0.55], InsetBox[ StyleBox["\<\"C\"\>", StripOnInput->False, ScriptSizeMultipliers->0.8, ScriptMinSize->8, FontSize->Scaled[0.03669693762456801], FontWeight->Plain], {600.1, -25.}], LineBox[{{589.7184672705555, -37.37186924269312}, {580.175, -48.745}}], {GrayLevel[0], InsetBox[ StyleBox["\<\"H\"\>", StripOnInput->False, ScriptSizeMultipliers->0.8, ScriptMinSize->8, FontSize->Scaled[0.03669693762456801], FontWeight->Plain], {560.25, -72.49}], LineBox[{{580.175, -48.745}, { 570.6315327294445, -60.118130757306844`}}]}}, {GrayLevel[0], AbsoluteThickness[0.55], InsetBox[ StyleBox["\<\"C\"\>", StripOnInput->False, ScriptSizeMultipliers->0.8, ScriptMinSize->8, FontSize->Scaled[0.03669693762456801], FontWeight->Plain], {600.1, -25.}], LineBox[{{610.4830612212206, -37.37058648760076}, {620.03, -48.745}}], {GrayLevel[0], InsetBox[ StyleBox["\<\"H\"\>", StripOnInput->False, ScriptSizeMultipliers->0.8, ScriptMinSize->8, FontSize->Scaled[0.03669693762456801], FontWeight->Plain], {639.96, -72.49}], LineBox[{{620.03, -48.745}, { 629.5769387787794, -60.11941351239926}}]}}}, {}, {}}, ImageSize->{{0., 272.5023025710233}, {0., 128.85164828701954`}}, PlotRange->{{182.8007, 794.0499714669456}, {-147.30104458811354`, 141.72578344108516`}}]], "Output", CellChangeTimes->{ 3.5763887589124207`*^9, 3.5763922789094043`*^9, 3.576392394380807*^9, 3.5763926935425324`*^9, 3.5763932054886312`*^9, 3.5763933764805317`*^9, { 3.576405781086481*^9, 3.5764057915385*^9}, 3.576419678028129*^9, 3.5764693342656484`*^9, 3.5764698000512667`*^9, {3.5764703124965663`*^9, 3.5764703687658653`*^9}, {3.576470407469533*^9, 3.576470457327221*^9}, 3.576470488121675*^9, 3.576470783648594*^9, 3.58020901919093*^9}] }, Open ]], Cell["(* Distance Matrix Bohr *)", "Text", CellChangeTimes->{{3.5678630319943895`*^9, 3.5678630956269007`*^9}, { 3.5678632280087337`*^9, 3.567863228336334*^9}, {3.5678632621727934`*^9, 3.5678633509213495`*^9}, {3.5678644293824434`*^9, 3.567864451908883*^9}, { 3.567864923404111*^9, 3.56786494544695*^9}, {3.5678650143210707`*^9, 3.5678650845367947`*^9}, {3.567869231084096*^9, 3.5678692412397137`*^9}, 3.5678693168686466`*^9, {3.5678704450470285`*^9, 3.5678704621290584`*^9}, 3.5682783281584253`*^9, 3.5688732159715385`*^9, 3.568910867647065*^9, 3.5689997098549547`*^9, 3.5689998170427427`*^9, 3.5689998869620657`*^9, 3.5691460426137285`*^9, 3.569237204536323*^9, 3.5692374658523817`*^9, 3.56923802264856*^9, 3.5693403424181123`*^9, 3.5693404502143016`*^9, 3.569340738019207*^9, 3.569340852851009*^9, 3.5693411655067577`*^9, 3.5693414978029413`*^9, 3.5693426144373026`*^9, 3.5693435671777763`*^9, 3.569343662743544*^9, 3.569343763644521*^9, 3.569344071177861*^9, 3.569344266271804*^9, 3.570297558707776*^9, {3.5703416079688015`*^9, 3.570341617375618*^9}, {3.5705956885798426`*^9, 3.5705957106070814`*^9}, { 3.5705965150536942`*^9, 3.5705965239457097`*^9}, {3.5720162655168724`*^9, 3.5720163727202606`*^9}, {3.5720166425383344`*^9, 3.572016643427536*^9}, { 3.5723503054303513`*^9, 3.572350361964851*^9}, 3.573368567997178*^9, { 3.5746565325286493`*^9, 3.574656552839885*^9}}], Cell[BoxData[{ RowBox[{ RowBox[{"dc", "=", RowBox[{"Table", "[", RowBox[{ RowBox[{"Norm", "[", RowBox[{ RowBox[{"t", "[", RowBox[{"[", "i", "]"}], "]"}], "-", RowBox[{"t", "[", RowBox[{"[", "j", "]"}], "]"}]}], "]"}], ",", RowBox[{"{", RowBox[{"i", ",", "1", ",", "n"}], "}"}], ",", RowBox[{"{", RowBox[{"j", ",", "1", ",", "n"}], "}"}]}], "]"}]}], ";"}], "\[IndentingNewLine]", RowBox[{ RowBox[{"(*", RowBox[{"MatrixForm", "[", RowBox[{"Prepend", "[", RowBox[{"dc", ",", "num1"}], "]"}], "]"}], "*)"}]}]}], "Input", CellChangeTimes->{{3.5678630319943895`*^9, 3.5678630956269007`*^9}, { 3.5678632280087337`*^9, 3.567863228336334*^9}, {3.5678632621727934`*^9, 3.5678633509213495`*^9}, {3.5678644293824434`*^9, 3.567864451908883*^9}, { 3.567864923404111*^9, 3.56786494544695*^9}, {3.5678650143210707`*^9, 3.5678650845367947`*^9}, {3.567869231084096*^9, 3.5678692412397137`*^9}, 3.5678693168686466`*^9, {3.5678704450470285`*^9, 3.5678704621290584`*^9}, 3.5682783281584253`*^9, 3.5688732159715385`*^9, 3.568910867647065*^9, 3.5689997098549547`*^9, 3.5689998170427427`*^9, 3.5689998869620657`*^9, 3.5691460426137285`*^9, 3.569237204536323*^9, 3.5692374658523817`*^9, 3.56923802264856*^9, 3.5693403424181123`*^9, 3.5693404502143016`*^9, 3.569340738019207*^9, 3.569340852851009*^9, 3.5693411655067577`*^9, 3.5693414978029413`*^9, 3.5693426144373026`*^9, 3.5693435671777763`*^9, 3.569343662743544*^9, 3.569343763644521*^9, 3.569344071177861*^9, 3.569344266271804*^9, 3.570297558707776*^9, {3.5703416079688015`*^9, 3.570341617375618*^9}, {3.5705956885798426`*^9, 3.5705957106070814`*^9}, { 3.5705965150536942`*^9, 3.5705965239457097`*^9}, {3.5720162655168724`*^9, 3.5720163727202606`*^9}, {3.5720166425383344`*^9, 3.572016643427536*^9}, { 3.5723503054303513`*^9, 3.572350361964851*^9}, 3.573368567997178*^9, 3.5746565325286493`*^9, {3.5763922487857513`*^9, 3.5763922538713603`*^9}, { 3.576392379716781*^9, 3.5763923872515945`*^9}, {3.5763924903833756`*^9, 3.5763924920213785`*^9}, 3.5763926851029177`*^9}], Cell[CellGroupData[{ Cell[BoxData[ RowBox[{ RowBox[{"(*", " ", RowBox[{"connected", " ", RowBox[{"pairs", ":", " ", RowBox[{ RowBox[{"distance", " ", "criteria"}], " ", "<", " ", RowBox[{"3.0", " ", "bohr"}]}]}]}], " ", "*)"}], "\[IndentingNewLine]", RowBox[{ RowBox[{ RowBox[{"Dij", "=", RowBox[{"Table", "[", RowBox[{ RowBox[{"If", "[", RowBox[{ RowBox[{"(", RowBox[{ RowBox[{ RowBox[{"dc", "[", RowBox[{"[", RowBox[{"i", ",", "j"}], "]"}], "]"}], "<", "3.0"}], "||", RowBox[{"(", RowBox[{ RowBox[{ RowBox[{"u", "[", RowBox[{"[", "i", "]"}], "]"}], "\[Equal]", "\"\\""}], " ", "&&", " ", RowBox[{ RowBox[{"dc", "[", RowBox[{"[", RowBox[{"i", ",", "j"}], "]"}], "]"}], "<", "3.24"}]}], ")"}]}], ")"}], ",", RowBox[{"dc", "[", RowBox[{"[", RowBox[{"i", ",", "j"}], "]"}], "]"}], ",", "0"}], "]"}], ",", RowBox[{"{", RowBox[{"i", ",", "1", ",", "n"}], "}"}], ",", RowBox[{"{", RowBox[{"j", ",", "1", ",", "n"}], "}"}]}], "]"}]}], ";"}], "\[IndentingNewLine]", RowBox[{"MatrixForm", "[", RowBox[{"Prepend", "[", RowBox[{"Dij", ",", "num1"}], "]"}], "]"}]}]}]], "Input", CellChangeTimes->{{3.567863535157673*^9, 3.5678635412104836`*^9}, { 3.5678638182825704`*^9, 3.567863827283786*^9}, {3.5679503910983553`*^9, 3.5679504266352177`*^9}, {3.5679504653700857`*^9, 3.5679505048069553`*^9}, 3.567950534915008*^9, {3.567951107623214*^9, 3.567951136046464*^9}, 3.567951302545556*^9, {3.5679562986474605`*^9, 3.567956305355472*^9}, { 3.5679563590975666`*^9, 3.567956370688387*^9}, {3.567956414930065*^9, 3.567956430467692*^9}, {3.567956484740187*^9, 3.567956500667815*^9}, { 3.5679565456270943`*^9, 3.5679565868267665`*^9}, {3.5679569267045636`*^9, 3.5679569448941956`*^9}, {3.567956976562251*^9, 3.567957000711094*^9}, { 3.5679570348595533`*^9, 3.5679570632672033`*^9}, {3.5679573263928657`*^9, 3.5679573286548696`*^9}, {3.5679573611029263`*^9, 3.5679573637393312`*^9}, {3.5679592820903006`*^9, 3.567959317127962*^9}, { 3.567959397655304*^9, 3.5679594004945087`*^9}, {3.5679594704762316`*^9, 3.5679594724574347`*^9}, {3.567959655898157*^9, 3.567959673073787*^9}, 3.5681143121223865`*^9, 3.568121866388855*^9, 3.568220668221574*^9, { 3.568220718968463*^9, 3.568220723742071*^9}, {3.568220862051914*^9, 3.5682208641111183`*^9}, {3.568220906761593*^9, 3.5682209083527956`*^9}, { 3.5682209451844606`*^9, 3.5682209651680956`*^9}, {3.568221147782016*^9, 3.5682211695908546`*^9}, {3.568221237279373*^9, 3.568221253612602*^9}, { 3.568221305420293*^9, 3.568221306247094*^9}, {3.5682215161142635`*^9, 3.568221546206716*^9}, 3.56822158247678*^9, {3.568277819185131*^9, 3.5682778284359474`*^9}, 3.56882183684053*^9, {3.5688219650415554`*^9, 3.568821965915157*^9}, {3.5688769979329815`*^9, 3.5688771619984694`*^9}, { 3.568877204212144*^9, 3.5688772091729527`*^9}, {3.568877282493081*^9, 3.5688772843338842`*^9}, {3.568877374112042*^9, 3.568877378074449*^9}, { 3.56887744125456*^9, 3.5688774664954042`*^9}, {3.56887758366721*^9, 3.568877604867647*^9}, {3.568877667220957*^9, 3.5688776710429635`*^9}, { 3.5688778111156096`*^9, 3.56887782262843*^9}, {3.569341165522358*^9, 3.569341165522358*^9}, 3.5693418217375107`*^9, {3.5693429625675144`*^9, 3.5693429673099227`*^9}, {3.569390288837522*^9, 3.5693903143123665`*^9}, { 3.569390381798085*^9, 3.5693904158685455`*^9}, {3.5693905284539433`*^9, 3.569390564349606*^9}, {3.569390610868888*^9, 3.569390611056088*^9}, { 3.569390743671921*^9, 3.569390761487152*^9}, {3.569390843761697*^9, 3.569390861608128*^9}, {3.5693909829451413`*^9, 3.5693909887171516`*^9}, 3.5703416480920715`*^9, {3.5703416810237293`*^9, 3.5703416997437625`*^9}, 3.570341888192094*^9, {3.5705964879252462`*^9, 3.570596509843285*^9}, { 3.5705965495921545`*^9, 3.5705966388087115`*^9}, 3.570968886604662*^9, { 3.5709689930904493`*^9, 3.5709689944320517`*^9}, {3.5709690501397495`*^9, 3.570969050904151*^9}, {3.5709692134876366`*^9, 3.5709692140804377`*^9}, { 3.5709722325921392`*^9, 3.5709722334033403`*^9}, {3.5709723694355793`*^9, 3.570972545481889*^9}, {3.570972790558319*^9, 3.5709728063299465`*^9}, { 3.570972844066413*^9, 3.570972866764453*^9}, {3.5709729633598228`*^9, 3.57097298434186*^9}, {3.5709731454589424`*^9, 3.5709731466289444`*^9}, 3.570973453029083*^9, {3.5709736099653587`*^9, 3.570973638404208*^9}, { 3.571113899355363*^9, 3.571113958604267*^9}, 3.57111399989754*^9, { 3.5711140388820086`*^9, 3.571114044841219*^9}, {3.571115985874628*^9, 3.5711159997742524`*^9}, {3.57313788224113*^9, 3.5731379093851776`*^9}, 3.573137959679666*^9}], Cell[BoxData[ TagBox[ RowBox[{"(", "\[NoBreak]", GridBox[{ {"1", "2", "3", "4", "5", "6", "7", "8", "9", "10", "11", "12", "13", "14", "15", "16", "17"}, {"0.`", "2.847909517506738`", "0", "0", "0", "2.7845095864085736`", "0", "0", "0", "2.059805856700242`", "2.059647052309992`", "0", "0", "0", "0", "0", "0"}, {"2.847909517506738`", "0.`", "0", "0", "2.546901408195029`", "0", "2.291975911819768`", "0", "0", "0", "0", "0", "0", "0", "0", "0", "0"}, {"0", "0", "0.`", "2.8477001531480926`", "2.7684884167022057`", "0", "0", "0", "0", "0", "0", "0", "2.0597328818910285`", "2.059818629186647`", "0", "0", "0"}, {"0", "0", "2.8477001531480926`", "0.`", "0", "0", "0", "2.2832742569128257`", "2.5363953744561814`", "0", "0", "0", "0", "0", "0", "0", "0"}, {"0", "2.546901408195029`", "2.7684884167022057`", "0", "0.`", "0", "0", "0", "0", "0", "0", "1.8330480279235877`", "0", "0", "0", "0", "0"}, {"2.7845095864085736`", "0", "0", "0", "0", "0.`", "0", "0", "0", "0", "0", "0", "0", "0", "1.924939428516999`", "1.9250230746039425`", "1.940368039836913`"}, {"0", "2.291975911819768`", "0", "0", "0", "0", "0.`", "0", "0", "0", "0", "0", "0", "0", "0", "0", "0"}, {"0", "0", "0", "2.2832742569128257`", "0", "0", "0", "0.`", "0", "0", "0", "0", "0", "0", "0", "0", "0"}, {"0", "0", "0", "2.5363953744561814`", "0", "0", "0", "0", "0.`", "0", "0", "0", "0", "0", "0", "0", "0"}, {"2.059805856700242`", "0", "0", "0", "0", "0", "0", "0", "0", "0.`", "0", "0", "0", "0", "0", "0", "0"}, {"2.059647052309992`", "0", "0", "0", "0", "0", "0", "0", "0", "0", "0.`", "0", "0", "0", "0", "0", "0"}, {"0", "0", "0", "0", "1.8330480279235877`", "0", "0", "0", "0", "0", "0", "0.`", "0", "0", "0", "0", "0"}, {"0", "0", "2.0597328818910285`", "0", "0", "0", "0", "0", "0", "0", "0", "0", "0.`", "0", "0", "0", "0"}, {"0", "0", "2.059818629186647`", "0", "0", "0", "0", "0", "0", "0", "0", "0", "0", "0.`", "0", "0", "0"}, {"0", "0", "0", "0", "0", "1.924939428516999`", "0", "0", "0", "0", "0", "0", "0", "0", "0.`", "0", "0"}, {"0", "0", "0", "0", "0", "1.9250230746039425`", "0", "0", "0", "0", "0", "0", "0", "0", "0", "0.`", "0"}, {"0", "0", "0", "0", "0", "1.940368039836913`", "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.5763887589280205`*^9, 3.576392278940604*^9, 3.5763923944120073`*^9, 3.576392693558132*^9, 3.5763932055042315`*^9, 3.576393376496132*^9, { 3.5764057811176815`*^9, 3.5764057915696993`*^9}, 3.5764196780593295`*^9, 3.576469334281248*^9, 3.576469800082466*^9, {3.5764703125277667`*^9, 3.5764703687970657`*^9}, {3.576470407485133*^9, 3.576470457342821*^9}, 3.576470488152875*^9, 3.5764707836797943`*^9, 3.5802090192065296`*^9}] }, Open ]], Cell[BoxData[""], "Input", CellChangeTimes->{{3.5711447475554733`*^9, 3.5711448173314643`*^9}, { 3.5711448756027975`*^9, 3.57114492740276*^9}, {3.5711449591545763`*^9, 3.5711450128426466`*^9}, 3.571145059034289*^9, {3.571145091643154*^9, 3.5711451544367456`*^9}, {3.5711457670857873`*^9, 3.571145777413378*^9}, { 3.571145816908637*^9, 3.5711458203728347`*^9}, {3.571145995427848*^9, 3.571146043099574*^9}, {3.571146121580063*^9, 3.571146129714528*^9}, { 3.5711468466695356`*^9, 3.571146852041843*^9}, {3.5711478420384674`*^9, 3.571147850085928*^9}, {3.57114788911016*^9, 3.571147906822173*^9}, 3.571148086181432*^9, {3.571148123252552*^9, 3.5711481317480383`*^9}, { 3.571148234499915*^9, 3.57114834630731*^9}, 3.571151990091008*^9, { 3.5712017864539623`*^9, 3.5712018128960094`*^9}, {3.5712024819499846`*^9, 3.5712024821527843`*^9}, {3.571202538780884*^9, 3.5712025389368844`*^9}, { 3.5712028115629635`*^9, 3.5712028346354036`*^9}, {3.5746569418109684`*^9, 3.574656960905402*^9}}], Cell[CellGroupData[{ Cell[BoxData[{ RowBox[{"For", "[", RowBox[{ RowBox[{"i", "=", "1"}], " ", ",", RowBox[{"i", "<", RowBox[{"n", "+", "1"}]}], ",", RowBox[{"i", "++"}], ",", "\[IndentingNewLine]", RowBox[{"For", "[", RowBox[{ RowBox[{"j", "=", "1"}], ",", " ", RowBox[{"j", "<", RowBox[{"bc", "+", "1"}]}], ",", RowBox[{"j", "++"}], ",", "\[IndentingNewLine]", RowBox[{"If", "[", RowBox[{ RowBox[{"(", RowBox[{ RowBox[{ RowBox[{"Dij", "[", RowBox[{"[", RowBox[{"i", ",", "j"}], "]"}], "]"}], "\[NotEqual]", "0"}], " ", "&&", " ", RowBox[{ RowBox[{"u", "[", RowBox[{"[", "i", "]"}], "]"}], "\[Equal]", " ", "\"\\""}]}], ")"}], ",", RowBox[{"If", "[", RowBox[{ RowBox[{ RowBox[{"u", "[", RowBox[{"[", "j", "]"}], "]"}], "\[Equal]", "\"\\""}], ",", RowBox[{ RowBox[{"u2", "[", RowBox[{"[", "i", "]"}], "]"}], "=", "0.59"}], ",", 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, {3.5712013634748197`*^9, 3.5712013661736245`*^9}, { 3.571201966837079*^9, 3.5712020689392586`*^9}, {3.5733681085139713`*^9, 3.573368111025576*^9}, {3.5733681833629026`*^9, 3.573368184579705*^9}, { 3.573368233454591*^9, 3.573368234047392*^9}}], Cell[BoxData[ RowBox[{"{", RowBox[{ "0.2572`", ",", "0.2572`", ",", "0.2572`", ",", "0.2572`", ",", "0.22522`", ",", "0.22522`", ",", "0.1786`", ",", "0.1786`", ",", "0.1786`", ",", "0.59`", ",", "0.59`", ",", "0.5541`", ",", "0.59`", ",", "0.59`", ",", "0.5541`", ",", "0.5541`", ",", "0.5541`"}], "}"}]], "Output", CellChangeTimes->{ 3.576388758959221*^9, 3.5763922789562044`*^9, 3.576392394427607*^9, 3.5763926935737324`*^9, 3.5763932055198317`*^9, 3.576393376511732*^9, { 3.576405781133281*^9, 3.5764057915852995`*^9}, 3.576419678074929*^9, 3.5764693342968483`*^9, 3.5764698000980663`*^9, {3.5764703125433664`*^9, 3.5764703688126655`*^9}, {3.5764704075163336`*^9, 3.576470457374021*^9}, 3.576470488168475*^9, 3.576470783695394*^9, 3.58020901922213*^9}] }, Open ]], Cell[CellGroupData[{ Cell[BoxData[ RowBox[{ RowBox[{"(*", " ", RowBox[{ "subtract", " ", "core", " ", "radii", " ", "from", " ", "pair", " ", "distances"}], " ", "*)"}], "\[IndentingNewLine]", RowBox[{ RowBox[{ RowBox[{"Fij", "=", RowBox[{"Dij", "-", "u2"}]}], ";"}], "\[IndentingNewLine]", 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[{"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}, 3.575798260154653*^9, { 3.57579837247485*^9, 3.575798382833268*^9}, 3.575798442113373*^9}], Cell[BoxData[ TagBox[ RowBox[{"(", "\[NoBreak]", GridBox[{ {"0", "\<\" \"\>", "\<\" \"\>", "\<\" \"\>", "\<\" \"\>", "\<\" \"\>", "\ \<\" \"\>", "\<\" \"\>", "\<\" \"\>", "\<\" \"\>", "\<\" \"\>", "\<\" \"\>", \ "\<\" \"\>", "\<\" \"\>", "\<\" \"\>", "\<\" \"\>", "\<\" \"\>"}, {"2.590709517506738`", "0", "\<\" \"\>", "\<\" \"\>", "\<\" \"\>", "\<\" \"\>", "\<\" \"\>", "\ \<\" \"\>", "\<\" \"\>", "\<\" \"\>", "\<\" \"\>", "\<\" \"\>", "\<\" \"\>", \ "\<\" \"\>", "\<\" \"\>", "\<\" \"\>", "\<\" \"\>"}, {"0", "0", "0", "\<\" \"\>", "\<\" \"\>", "\<\" \"\>", "\<\" \"\>", "\<\" \"\>", "\ \<\" \"\>", "\<\" \"\>", "\<\" \"\>", "\<\" \"\>", "\<\" \"\>", "\<\" \"\>", \ "\<\" \"\>", "\<\" \"\>", "\<\" \"\>"}, {"0", "0", "2.5905001531480925`", "0", "\<\" \"\>", "\<\" \"\>", "\<\" \"\>", "\<\" \"\>", "\<\" \"\>", "\ \<\" \"\>", "\<\" \"\>", "\<\" \"\>", "\<\" \"\>", "\<\" \"\>", "\<\" \"\>", \ "\<\" \"\>", "\<\" \"\>"}, {"0", "2.3216814081950288`", "2.5432684167022055`", "0", "0", "\<\" \"\>", "\<\" \"\>", "\<\" \"\>", "\<\" \"\>", "\<\" \"\>", "\ \<\" \"\>", "\<\" \"\>", "\<\" \"\>", "\<\" \"\>", "\<\" \"\>", "\<\" \"\>", \ "\<\" \"\>"}, {"2.5592895864085734`", "0", "0", "0", "0", "0", "\<\" \"\>", "\<\" \"\>", "\<\" \"\>", "\<\" \"\>", "\<\" \"\>", "\ \<\" \"\>", "\<\" \"\>", "\<\" \"\>", "\<\" \"\>", "\<\" \"\>", "\<\" \"\>"}, {"0", "2.113375911819768`", "0", "0", "0", "0", "0", "\<\" \"\>", "\<\" \"\>", "\<\" \"\>", "\<\" \"\>", "\<\" \"\>", "\ \<\" \"\>", "\<\" \"\>", "\<\" \"\>", "\<\" \"\>", "\<\" \"\>"}, {"0", "0", "0", "2.104674256912826`", "0", "0", "0", "0", "\<\" \"\>", "\<\" \"\>", "\<\" \"\>", "\<\" \"\>", "\<\" \"\>", "\ \<\" \"\>", "\<\" \"\>", "\<\" \"\>", "\<\" \"\>"}, {"0", "0", "0", "2.3577953744561815`", "0", "0", "0", "0", "0", "\<\" \"\>", "\<\" \"\>", "\<\" \"\>", "\<\" \"\>", "\<\" \"\>", "\ \<\" \"\>", "\<\" \"\>", "\<\" \"\>"}, {"1.4698058567002423`", "0", "0", "0", "0", "0", "0", "0", "0", "0", "\<\" \"\>", "\<\" \"\>", "\<\" \"\>", "\<\" \"\>", "\<\" \"\>", "\ \<\" \"\>", "\<\" \"\>"}, {"1.469647052309992`", "0", "0", "0", "0", "0", "0", "0", "0", "0", "0", "\<\" \"\>", "\<\" \"\>", "\<\" \"\>", "\<\" \"\>", "\<\" \"\>", "\ \<\" \"\>"}, {"0", "0", "0", "0", "1.2789480279235876`", "0", "0", "0", "0", "0", "0", "0", "\<\" \"\>", "\<\" \"\>", "\<\" \"\>", "\<\" \"\>", "\<\" \"\>"}, {"0", "0", "1.4697328818910287`", "0", "0", "0", "0", "0", "0", "0", "0", "0", "0", "\<\" \"\>", "\<\" \"\>", "\<\" \"\>", "\<\" \"\>"}, {"0", "0", "1.4698186291866473`", "0", "0", "0", "0", "0", "0", "0", "0", "0", "0", "0", "\<\" \"\>", "\<\" \"\>", "\<\" \"\>"}, {"0", "0", "0", "0", "0", "1.370839428516999`", "0", "0", "0", "0", "0", "0", "0", "0", "0", "\<\" \"\>", "\<\" \"\>"}, {"0", "0", "0", "0", "0", "1.3709230746039425`", "0", "0", "0", "0", "0", "0", "0", "0", "0", "0", "\<\" \"\>"}, {"0", "0", "0", "0", "0", "1.386268039836913`", "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.576388758974821*^9, 3.5763922789718046`*^9, 3.5763923944432073`*^9, 3.5763926935893326`*^9, 3.576393205535432*^9, 3.5763933765273323`*^9, { 3.576405781148881*^9, 3.5764057916008997`*^9}, 3.5764196780905294`*^9, 3.5764693343124485`*^9, 3.5764698001136665`*^9, {3.5764703125589666`*^9, 3.576470368828265*^9}, {3.5764704075319333`*^9, 3.576470457389621*^9}, 3.5764704881840754`*^9, 3.576470783710994*^9, 3.58020901923773*^9}] }, Open ]], 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[CellGroupData[{ 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[{"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}, {3.5757984551081953`*^9, 3.5757984616914067`*^9}}], Cell[BoxData[ TagBox[ RowBox[{"(", "\[NoBreak]", GridBox[{ {"0", "2.3335095175067377`", "0", "0", "0", "2.3020895864085733`", "0", "0", "0", "1.2126058567002422`", "1.212447052309992`", "0", "0", "0", "0", "0", "0"}, {"\<\" \"\>", "0", "0", "0", "2.0644814081950287`", "0", "1.856175911819768`", "0", "0", "0", "0", "0", "0", "0", "0", "0", "0"}, {"\<\" \"\>", "\<\" \"\>", "0", "2.3333001531480924`", "2.2860684167022054`", "0", "0", "0", "0", "0", "0", "0", "1.2125328818910286`", "1.2126186291866472`", "0", "0", "0"}, {"\<\" \"\>", "\<\" \"\>", "\<\" \"\>", "0", "0", "0", "0", "1.8474742569128257`", "2.1005953744561814`", "0", "0", "0", "0", "0", "0", "0", "0"}, {"\<\" \"\>", "\<\" \"\>", "\<\" \"\>", "\<\" \"\>", "0", "0", "0", "0", "0", "0", "0", "1.0537280279235877`", "0", "0", "0", "0", "0"}, {"\<\" \"\>", "\<\" \"\>", "\<\" \"\>", "\<\" \"\>", "\<\" \"\>", "0", "0", "0", "0", "0", "0", "0", "0", "0", "1.145619428516999`", "1.1457030746039425`", "1.161048039836913`"}, {"\<\" \"\>", "\<\" \"\>", "\<\" \"\>", "\<\" \"\>", "\<\" \"\>", "\<\" \ \"\>", "0", "0", "0", "0", "0", "0", "0", "0", "0", "0", "0"}, {"\<\" \"\>", "\<\" \"\>", "\<\" \"\>", "\<\" \"\>", "\<\" \"\>", "\<\" \ \"\>", "\<\" \"\>", "0", "0", "0", "0", "0", "0", "0", "0", "0", "0"}, {"\<\" \"\>", "\<\" \"\>", "\<\" \"\>", "\<\" \"\>", "\<\" \"\>", "\<\" \ \"\>", "\<\" \"\>", "\<\" \"\>", "0", "0", "0", "0", "0", "0", "0", "0", "0"}, {"\<\" \"\>", "\<\" \"\>", "\<\" \"\>", "\<\" \"\>", "\<\" \"\>", "\<\" \ \"\>", "\<\" \"\>", "\<\" \"\>", "\<\" \"\>", "0", "0", "0", "0", "0", "0", "0", "0"}, {"\<\" \"\>", "\<\" \"\>", "\<\" \"\>", "\<\" \"\>", "\<\" \"\>", "\<\" \ \"\>", "\<\" \"\>", "\<\" \"\>", "\<\" \"\>", "\<\" \"\>", "0", "0", "0", "0", "0", "0", "0"}, {"\<\" \"\>", "\<\" \"\>", "\<\" \"\>", "\<\" \"\>", "\<\" \"\>", "\<\" \ \"\>", "\<\" \"\>", "\<\" \"\>", "\<\" \"\>", "\<\" \"\>", "\<\" \"\>", "0", "0", "0", "0", "0", "0"}, {"\<\" \"\>", "\<\" \"\>", "\<\" \"\>", "\<\" \"\>", "\<\" \"\>", "\<\" \ \"\>", "\<\" \"\>", "\<\" \"\>", "\<\" \"\>", "\<\" \"\>", "\<\" \"\>", "\<\" \ \"\>", "0", "0", "0", "0", "0"}, {"\<\" \"\>", "\<\" \"\>", "\<\" \"\>", "\<\" \"\>", "\<\" \"\>", "\<\" \ \"\>", "\<\" \"\>", "\<\" \"\>", "\<\" \"\>", "\<\" \"\>", "\<\" \"\>", "\<\" \ \"\>", "\<\" \"\>", "0", "0", "0", "0"}, {"\<\" \"\>", "\<\" \"\>", "\<\" \"\>", "\<\" \"\>", "\<\" \"\>", "\<\" \ \"\>", "\<\" \"\>", "\<\" \"\>", "\<\" \"\>", "\<\" \"\>", "\<\" \"\>", "\<\" \ \"\>", "\<\" \"\>", "\<\" \"\>", "0", "0", "0"}, {"\<\" \"\>", "\<\" \"\>", "\<\" \"\>", "\<\" \"\>", "\<\" \"\>", "\<\" \ \"\>", "\<\" \"\>", "\<\" \"\>", "\<\" \"\>", "\<\" \"\>", "\<\" \"\>", "\<\" \ \"\>", "\<\" \"\>", "\<\" \"\>", "\<\" \"\>", "0", "0"}, {"\<\" \"\>", "\<\" \"\>", "\<\" \"\>", "\<\" \"\>", "\<\" \"\>", "\<\" \ \"\>", "\<\" \"\>", "\<\" \"\>", "\<\" \"\>", "\<\" \"\>", "\<\" \"\>", "\<\" \ \"\>", "\<\" \"\>", "\<\" \"\>", "\<\" \"\>", "\<\" \"\>", "0"} }, GridBoxAlignment->{ "Columns" -> {{Center}}, "ColumnsIndexed" -> {}, "Rows" -> {{Baseline}}, "RowsIndexed" -> {}}, GridBoxSpacings->{"Columns" -> { Offset[0.27999999999999997`], { Offset[0.7]}, Offset[0.27999999999999997`]}, "ColumnsIndexed" -> {}, "Rows" -> { Offset[0.2], { Offset[0.4]}, Offset[0.2]}, "RowsIndexed" -> {}}], "\[NoBreak]", ")"}], Function[BoxForm`e$, MatrixForm[BoxForm`e$]]]], "Output", CellChangeTimes->{ 3.576388758990421*^9, 3.576392279003004*^9, 3.576392394458807*^9, 3.5763926936049323`*^9, 3.5763932055510316`*^9, 3.576393376542932*^9, { 3.576405781164481*^9, 3.5764057916165*^9}, 3.5764196781061296`*^9, 3.5764693343280487`*^9, 3.5764698001292667`*^9, {3.576470312574567*^9, 3.5764703688438654`*^9}, {3.5764704075475335`*^9, 3.576470457405221*^9}, 3.576470488199675*^9, 3.576470783726594*^9, 3.58020901925333*^9}] }, Open ]], Cell[CellGroupData[{ 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[{"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}, {3.5757985741520042`*^9, 3.5757985795340137`*^9}, {3.5757996092762227`*^9, 3.5757996144242315`*^9}, {3.575799724856826*^9, 3.575799730145235*^9}}], Cell[BoxData[ TagBox[ RowBox[{"(", "\[NoBreak]", GridBox[{ {"0", "1.1667547587533689`", "0", "0", "0", "1.1510447932042867`", "0", "0", "0", "1.2126058567002422`", "1.212447052309992`", "0", "0", "0", "0", "0", "0"}, {"\<\" \"\>", "0", "0", "0", "1.0322407040975143`", "0", "0.928087955909884`", "0", "0", "0", "0", "0", "0", "0", "0", "0", "0"}, {"\<\" \"\>", "\<\" \"\>", "0", "1.1666500765740462`", "1.1430342083511027`", "0", "0", "0", "0", "0", "0", "0", "1.2125328818910286`", "1.2126186291866472`", "0", "0", "0"}, {"\<\" \"\>", "\<\" \"\>", "\<\" \"\>", "0", "0", "0", "0", "0.9237371284564129`", "1.0502976872280907`", "0", "0", "0", "0", "0", "0", "0", "0"}, {"\<\" \"\>", "\<\" \"\>", "\<\" \"\>", "\<\" \"\>", "0", "0", "0", "0", "0", "0", "0", "1.0537280279235877`", "0", "0", "0", "0", "0"}, {"\<\" \"\>", "\<\" \"\>", "\<\" \"\>", "\<\" \"\>", "\<\" \"\>", "0", "0", "0", "0", "0", "0", "0", "0", "0", "1.145619428516999`", "1.1457030746039425`", "1.161048039836913`"}, {"\<\" \"\>", "\<\" \"\>", "\<\" \"\>", "\<\" \"\>", "\<\" \"\>", "\<\" \ \"\>", "0", "0", "0", "0", "0", "0", "0", "0", "0", "0", "0"}, {"\<\" \"\>", "\<\" \"\>", "\<\" \"\>", "\<\" \"\>", "\<\" \"\>", "\<\" \ \"\>", "\<\" \"\>", "0", "0", "0", "0", "0", "0", "0", "0", "0", "0"}, {"\<\" \"\>", "\<\" \"\>", "\<\" \"\>", "\<\" \"\>", "\<\" \"\>", "\<\" \ \"\>", "\<\" \"\>", "\<\" \"\>", "0", "0", "0", "0", "0", "0", "0", "0", "0"}, {"\<\" \"\>", "\<\" \"\>", "\<\" \"\>", "\<\" \"\>", "\<\" \"\>", "\<\" \ \"\>", "\<\" \"\>", "\<\" \"\>", "\<\" \"\>", "0", "0", "0", "0", "0", "0", "0", "0"}, {"\<\" \"\>", "\<\" \"\>", "\<\" \"\>", "\<\" \"\>", "\<\" \"\>", "\<\" \ \"\>", "\<\" \"\>", "\<\" \"\>", "\<\" \"\>", "\<\" \"\>", "0", "0", "0", "0", "0", "0", "0"}, {"\<\" \"\>", "\<\" \"\>", "\<\" \"\>", "\<\" \"\>", "\<\" \"\>", "\<\" \ \"\>", "\<\" \"\>", "\<\" \"\>", "\<\" \"\>", "\<\" \"\>", "\<\" \"\>", "0", "0", "0", "0", "0", "0"}, {"\<\" \"\>", "\<\" \"\>", "\<\" \"\>", "\<\" \"\>", "\<\" \"\>", "\<\" \ \"\>", "\<\" \"\>", "\<\" \"\>", "\<\" \"\>", "\<\" \"\>", "\<\" \"\>", "\<\" \ \"\>", "0", "0", "0", "0", "0"}, {"\<\" \"\>", "\<\" \"\>", "\<\" \"\>", "\<\" \"\>", "\<\" \"\>", "\<\" \ \"\>", "\<\" \"\>", "\<\" \"\>", "\<\" \"\>", "\<\" \"\>", "\<\" \"\>", "\<\" \ \"\>", "\<\" \"\>", "0", "0", "0", "0"}, {"\<\" \"\>", "\<\" \"\>", "\<\" \"\>", "\<\" \"\>", "\<\" \"\>", "\<\" \ \"\>", "\<\" \"\>", "\<\" \"\>", "\<\" \"\>", "\<\" \"\>", "\<\" \"\>", "\<\" \ \"\>", "\<\" \"\>", "\<\" \"\>", "0", "0", "0"}, {"\<\" \"\>", "\<\" \"\>", "\<\" \"\>", "\<\" \"\>", "\<\" \"\>", "\<\" \ \"\>", "\<\" \"\>", "\<\" \"\>", "\<\" \"\>", "\<\" \"\>", "\<\" \"\>", "\<\" \ \"\>", "\<\" \"\>", "\<\" \"\>", "\<\" \"\>", "0", "0"}, {"\<\" \"\>", "\<\" \"\>", "\<\" \"\>", "\<\" \"\>", "\<\" \"\>", "\<\" \ \"\>", "\<\" \"\>", "\<\" \"\>", "\<\" \"\>", "\<\" \"\>", "\<\" \"\>", "\<\" \ \"\>", "\<\" \"\>", "\<\" \"\>", "\<\" \"\>", "\<\" \"\>", "0"} }, GridBoxAlignment->{ "Columns" -> {{Center}}, "ColumnsIndexed" -> {}, "Rows" -> {{Baseline}}, "RowsIndexed" -> {}}, GridBoxSpacings->{"Columns" -> { Offset[0.27999999999999997`], { Offset[0.7]}, Offset[0.27999999999999997`]}, "ColumnsIndexed" -> {}, "Rows" -> { Offset[0.2], { Offset[0.4]}, Offset[0.2]}, "RowsIndexed" -> {}}], "\[NoBreak]", ")"}], Function[BoxForm`e$, MatrixForm[BoxForm`e$]]]], "Output", CellChangeTimes->{ 3.5763887590060205`*^9, 3.5763922790186043`*^9, 3.576392394474407*^9, 3.5763926936205325`*^9, 3.5763932055666313`*^9, 3.5763933765585318`*^9, { 3.576405781164481*^9, 3.5764057916320996`*^9}, 3.57641967812173*^9, 3.5764693343436484`*^9, 3.576469800144867*^9, {3.576470312605767*^9, 3.576470368875066*^9}, {3.5764704075631337`*^9, 3.576470457420821*^9}, 3.5764704882152753`*^9, 3.5764707837577944`*^9, 3.58020901926893*^9}] }, Open ]], Cell[CellGroupData[{ Cell[BoxData[ RowBox[{ RowBox[{"(*", " ", RowBox[{"determine", " ", "kinetic", " ", "energy"}], " ", "*)"}], "\[IndentingNewLine]", RowBox[{ RowBox[{ RowBox[{"Nij", "=", RowBox[{"Table", "[", RowBox[{ RowBox[{"If", "[", RowBox[{ RowBox[{"i", "\[LessEqual]", "j"}], ",", RowBox[{"If", "[", RowBox[{ RowBox[{ RowBox[{"Lij", "[", RowBox[{"[", RowBox[{"i", ",", "j"}], "]"}], "]"}], ">", "0"}], ",", RowBox[{"2.25", "/", RowBox[{ RowBox[{"Lij", "[", RowBox[{"[", RowBox[{"i", ",", "j"}], "]"}], "]"}], "^", "2"}]}], ",", "0"}], "]"}], ",", "\"\< \>\""}], "]"}], ",", RowBox[{"{", RowBox[{"i", ",", "1", ",", "n"}], "}"}], ",", RowBox[{"{", RowBox[{"j", ",", "1", ",", "n"}], "}"}]}], "]"}]}], ";"}], "\[IndentingNewLine]", RowBox[{"(*", RowBox[{"MatrixForm", "[", "Nij", "]"}], "*)"}], "\n", RowBox[{"Tval", "=", RowBox[{"Sum", "[", RowBox[{ RowBox[{"If", "[", RowBox[{ RowBox[{"i", "\[LessEqual]", "j"}], ",", RowBox[{"Nij", "[", RowBox[{"[", RowBox[{"i", ",", "j"}], "]"}], "]"}], ",", "0"}], "]"}], ",", RowBox[{"{", RowBox[{"i", ",", "1", ",", "n"}], "}"}], ",", RowBox[{"{", RowBox[{"j", ",", "1", ",", "n"}], "}"}]}], "]"}]}], "\n", RowBox[{"Tcor", "=", RowBox[{"Sum", "[", RowBox[{ RowBox[{"If", "[", RowBox[{ RowBox[{ RowBox[{"u", "[", RowBox[{"[", "i", "]"}], "]"}], "\[NotEqual]", "\"\\""}], ",", RowBox[{"2.25", "/", RowBox[{ RowBox[{"u2", "[", RowBox[{"[", "i", "]"}], "]"}], "^", "2"}]}], ",", "0"}], "]"}], ",", RowBox[{"{", RowBox[{"i", ",", "1", ",", "n"}], "}"}]}], "]"}]}], "\n", RowBox[{"Ttot", "=", RowBox[{"Tval", "+", "Tcor"}]}], " ", RowBox[{"(*", " ", RowBox[{"plus", " ", "\[Pi]", " ", "and", " ", "lone", " ", RowBox[{"pairs", ":", " ", RowBox[{"+", " ", "8.7616"}]}]}], " ", "*)"}], "\n", RowBox[{"TvalH", "=", RowBox[{"Sum", "[", RowBox[{ RowBox[{"If", "[", RowBox[{ RowBox[{"(", RowBox[{ RowBox[{"i", "\[LessEqual]", "j"}], " ", "&&", " ", RowBox[{ RowBox[{"u", "[", RowBox[{"[", "j", "]"}], "]"}], "\[Equal]", " ", "\"\\""}]}], ")"}], ",", RowBox[{"Nij", "[", RowBox[{"[", RowBox[{"i", ",", "j"}], "]"}], "]"}], ",", "0"}], "]"}], ",", RowBox[{"{", RowBox[{"i", ",", "1", ",", "n"}], "}"}], ",", RowBox[{"{", RowBox[{"j", ",", "1", ",", "n"}], "}"}]}], "]"}]}], "\n", RowBox[{"TvalC", "=", RowBox[{"Tval", "-", "TvalH"}]}]}]}]], "Input", CellChangeTimes->{{3.5679628944794455`*^9, 3.5679629710755796`*^9}, { 3.567963889963994*^9, 3.567963933800071*^9}, {3.5680478391738477`*^9, 3.5680478414358516`*^9}, 3.568048231171336*^9, {3.5680482823550262`*^9, 3.56804828449223*^9}, 3.5680483349271183`*^9, 3.568114273059918*^9, 3.5681219175101447`*^9, {3.568277851305588*^9, 3.568277857295998*^9}, { 3.5688722635742655`*^9, 3.568872266616271*^9}, 3.5688723032763357`*^9, 3.5688725225503206`*^9, 3.5692365125035076`*^9, {3.5692366381461277`*^9, 3.5692366389105296`*^9}, {3.5692366963654304`*^9, 3.5692366986898346`*^9}, 3.5693411655535583`*^9, 3.5693418217687106`*^9, {3.5705968460394754`*^9, 3.5705968602823005`*^9}, 3.574657067547189*^9}], Cell[BoxData["29.371870630884764`"], "Output", CellChangeTimes->{ 3.5763887590216208`*^9, 3.5763922790342045`*^9, 3.5763923944900074`*^9, 3.5763926936361327`*^9, 3.5763932055822315`*^9, 3.576393376574132*^9, { 3.5764057811800814`*^9, 3.5764057916476994`*^9}, 3.5764196781529293`*^9, 3.576469334359248*^9, 3.5764698001604667`*^9, {3.5764703126213665`*^9, 3.5764703688906655`*^9}, {3.5764704075787334`*^9, 3.5764704574364214`*^9}, 3.576470488230875*^9, 3.5764707837733946`*^9, 3.5802090192845297`*^9}], Cell[BoxData["436.3782324390713`"], "Output", CellChangeTimes->{ 3.5763887590216208`*^9, 3.5763922790342045`*^9, 3.5763923944900074`*^9, 3.5763926936361327`*^9, 3.5763932055822315`*^9, 3.576393376574132*^9, { 3.5764057811800814`*^9, 3.5764057916476994`*^9}, 3.5764196781529293`*^9, 3.576469334359248*^9, 3.5764698001604667`*^9, {3.5764703126213665`*^9, 3.5764703688906655`*^9}, {3.5764704075787334`*^9, 3.5764704574364214`*^9}, 3.576470488230875*^9, 3.5764707837733946`*^9, 3.5802090192845297`*^9}], Cell[BoxData["465.7501030699561`"], "Output", CellChangeTimes->{ 3.5763887590216208`*^9, 3.5763922790342045`*^9, 3.5763923944900074`*^9, 3.5763926936361327`*^9, 3.5763932055822315`*^9, 3.576393376574132*^9, { 3.5764057811800814`*^9, 3.5764057916476994`*^9}, 3.5764196781529293`*^9, 3.576469334359248*^9, 3.5764698001604667`*^9, {3.5764703126213665`*^9, 3.5764703688906655`*^9}, {3.5764704075787334`*^9, 3.5764704574364214`*^9}, 3.576470488230875*^9, 3.5764707837733946`*^9, 3.5802090192845297`*^9}], Cell[BoxData["13.245250507056177`"], "Output", CellChangeTimes->{ 3.5763887590216208`*^9, 3.5763922790342045`*^9, 3.5763923944900074`*^9, 3.5763926936361327`*^9, 3.5763932055822315`*^9, 3.576393376574132*^9, { 3.5764057811800814`*^9, 3.5764057916476994`*^9}, 3.5764196781529293`*^9, 3.576469334359248*^9, 3.5764698001604667`*^9, {3.5764703126213665`*^9, 3.5764703688906655`*^9}, {3.5764704075787334`*^9, 3.5764704574364214`*^9}, 3.576470488230875*^9, 3.5764707837733946`*^9, 3.5802090192845297`*^9}], Cell[BoxData["16.126620123828587`"], "Output", CellChangeTimes->{ 3.5763887590216208`*^9, 3.5763922790342045`*^9, 3.5763923944900074`*^9, 3.5763926936361327`*^9, 3.5763932055822315`*^9, 3.576393376574132*^9, { 3.5764057811800814`*^9, 3.5764057916476994`*^9}, 3.5764196781529293`*^9, 3.576469334359248*^9, 3.5764698001604667`*^9, {3.5764703126213665`*^9, 3.5764703688906655`*^9}, {3.5764704075787334`*^9, 3.5764704574364214`*^9}, 3.576470488230875*^9, 3.5764707837733946`*^9, 3.5802090192845297`*^9}] }, Open ]], Cell[BoxData[{ RowBox[{ RowBox[{"Mij", "=", RowBox[{"Prepend", "[", RowBox[{"Qij", ",", "u"}], "]"}]}], ";"}], "\[IndentingNewLine]", RowBox[{ RowBox[{"Oij", "=", RowBox[{"Transpose", "[", "Mij", "]"}]}], ";"}], "\[IndentingNewLine]", RowBox[{ RowBox[{"Pij", "=", RowBox[{"Prepend", "[", RowBox[{"Oij", ",", RowBox[{"Prepend", "[", RowBox[{"u", ",", "\"\< \>\""}], "]"}]}], "]"}]}], ";"}]}], "Input", CellChangeTimes->{{3.568045828002715*^9, 3.56804588761042*^9}, 3.5680459828797874`*^9, {3.568046033938677*^9, 3.5680460518787084`*^9}, { 3.568046989190755*^9, 3.5680470284404235`*^9}, {3.568047061028881*^9, 3.568047085567724*^9}, {3.5680471562982483`*^9, 3.568047169199471*^9}, { 3.568047223393966*^9, 3.568047364059413*^9}, {3.568047417286707*^9, 3.5680474225127163`*^9}, {3.5680474583459787`*^9, 3.568047487861231*^9}, { 3.5680475345521126`*^9, 3.5680475468605347`*^9}, {3.5680479168775845`*^9, 3.5680479311516094`*^9}, {3.568048066918648*^9, 3.568048067667449*^9}, { 3.5680483816336*^9, 3.5680483930216208`*^9}, {3.568048424159275*^9, 3.568048450211321*^9}, {3.5680486326224413`*^9, 3.5680486370996494`*^9}, { 3.5680487358166227`*^9, 3.5680487967191296`*^9}, 3.568048834377596*^9, 3.568048984418659*^9, {3.5680490255559316`*^9, 3.5680490790796256`*^9}, { 3.5680491274553103`*^9, 3.5680491280949116`*^9}, {3.5680491782333994`*^9, 3.568049231944294*^9}, {3.568049361533722*^9, 3.5680493691933355`*^9}, { 3.568049422171028*^9, 3.568049427490638*^9}, {3.568049476427923*^9, 3.5680495489368505`*^9}, {3.568049620634577*^9, 3.5680496274361887`*^9}, { 3.5680496655314555`*^9, 3.568049693876705*^9}, 3.568049746573598*^9, { 3.568049846460573*^9, 3.568049932759925*^9}, {3.568050009059659*^9, 3.5680500167348723`*^9}, {3.5680501572755194`*^9, 3.568050179911159*^9}, 3.5681087021497335`*^9, {3.5726244549749556`*^9, 3.5726244687341795`*^9}, 3.572624583643982*^9, {3.574656664645282*^9, 3.5746566773749037`*^9}, { 3.574656980265036*^9, 3.5746569955686626`*^9}}], Cell[CellGroupData[{ Cell[BoxData[{ RowBox[{ RowBox[{"Eij", "=", RowBox[{"Table", "[", RowBox[{ RowBox[{"If", "[", RowBox[{ RowBox[{"i", "\[GreaterEqual]", "j"}], ",", RowBox[{"Dij", "[", RowBox[{"[", RowBox[{"i", ",", "j"}], "]"}], "]"}], ",", "0"}], "]"}], ",", RowBox[{"{", RowBox[{"i", ",", "1", ",", RowBox[{"bc", "-", "1"}]}], "}"}], ",", RowBox[{"{", RowBox[{"j", ",", "1", ",", RowBox[{"bc", "-", "1"}]}], "}"}]}], "]"}]}], ";"}], "\[IndentingNewLine]", RowBox[{"CD", "=", RowBox[{"Select", "[", RowBox[{ RowBox[{"Flatten", "[", "Eij", "]"}], ",", RowBox[{ RowBox[{"(", RowBox[{ RowBox[{"#", "\[GreaterEqual]", "2.4"}], " ", "&&", RowBox[{"#", "\[LessEqual]", "2.6"}]}], ")"}], " ", "&"}]}], "]"}]}], "\[IndentingNewLine]", RowBox[{ RowBox[{"Mean", "[", "CD", "]"}], " ", "\[PlusMinus]", " ", RowBox[{"StandardDeviation", "[", "CD", "]"}]}], "\n", RowBox[{"CC", "=", RowBox[{"Select", "[", RowBox[{ RowBox[{"Flatten", "[", "Eij", "]"}], ",", RowBox[{ RowBox[{"(", RowBox[{"#", "\[GreaterEqual]", "2.6"}], ")"}], " ", "&"}]}], "]"}]}], "\n", RowBox[{ RowBox[{ RowBox[{"Mean", "[", "CC", "]"}], " ", "\[PlusMinus]", " ", RowBox[{"StandardDeviation", "[", "CC", "]"}]}], " "}], "\n", RowBox[{ RowBox[{"Eij", "=", RowBox[{"Table", "[", RowBox[{ RowBox[{"If", "[", RowBox[{ RowBox[{"i", "\[GreaterEqual]", "j"}], ",", RowBox[{"Dij", "[", RowBox[{"[", RowBox[{"i", ",", "j"}], "]"}], "]"}], ",", "0"}], "]"}], ",", RowBox[{"{", RowBox[{"i", ",", RowBox[{"bc", "+", "1"}], ",", "n"}], "}"}], ",", RowBox[{"{", RowBox[{"j", ",", "1", ",", RowBox[{"bc", "-", "1"}]}], "}"}]}], "]"}]}], ";"}], "\[IndentingNewLine]", RowBox[{"CH", "=", RowBox[{"Select", "[", RowBox[{ RowBox[{"Flatten", "[", "Eij", "]"}], ",", RowBox[{ RowBox[{"(", RowBox[{ RowBox[{"#", ">", "0"}], " ", "&&", RowBox[{"#", "\[LessEqual]", "2.1"}]}], ")"}], " ", "&"}]}], "]"}]}], "\[IndentingNewLine]", RowBox[{ RowBox[{"Mean", "[", "CH", "]"}], " ", "\[PlusMinus]", " ", RowBox[{"StandardDeviation", "[", "CH", "]"}]}]}], "Input", CellChangeTimes->{{3.568045828002715*^9, 3.56804588761042*^9}, 3.5680459828797874`*^9, {3.568046033938677*^9, 3.5680460518787084`*^9}, { 3.568046989190755*^9, 3.5680470284404235`*^9}, {3.568047061028881*^9, 3.568047085567724*^9}, {3.5680471562982483`*^9, 3.568047169199471*^9}, { 3.568047223393966*^9, 3.568047364059413*^9}, {3.568047417286707*^9, 3.5680474225127163`*^9}, {3.5680474583459787`*^9, 3.568047487861231*^9}, { 3.5680475345521126`*^9, 3.5680475468605347`*^9}, {3.5680479168775845`*^9, 3.5680479311516094`*^9}, {3.568048066918648*^9, 3.568048067667449*^9}, { 3.5680483816336*^9, 3.5680483930216208`*^9}, {3.568048424159275*^9, 3.568048450211321*^9}, {3.5680486326224413`*^9, 3.5680486370996494`*^9}, { 3.5680487358166227`*^9, 3.5680487967191296`*^9}, 3.568048834377596*^9, 3.568048984418659*^9, {3.5680490255559316`*^9, 3.5680490790796256`*^9}, { 3.5680491274553103`*^9, 3.5680491280949116`*^9}, {3.5680491782333994`*^9, 3.568049231944294*^9}, {3.568049361533722*^9, 3.5680493691933355`*^9}, { 3.568049422171028*^9, 3.568049427490638*^9}, {3.568049476427923*^9, 3.5680495489368505`*^9}, {3.568049620634577*^9, 3.5680496274361887`*^9}, { 3.5680496655314555`*^9, 3.568049693876705*^9}, 3.568049746573598*^9, { 3.568049846460573*^9, 3.568049932759925*^9}, {3.568050009059659*^9, 3.5680500167348723`*^9}, {3.5680501572755194`*^9, 3.568050179911159*^9}, 3.5681087021497335`*^9, {3.5726244549749556`*^9, 3.5726244687341795`*^9}, 3.572624583643982*^9, {3.574656664645282*^9, 3.5746566773749037`*^9}, { 3.574656980265036*^9, 3.5746569955686626`*^9}}], Cell[BoxData[ RowBox[{"{", "2.546901408195029`", "}"}]], "Output", CellChangeTimes->{ 3.576388759037221*^9, 3.5763922790498047`*^9, 3.576392394521207*^9, 3.5763926936517324`*^9, 3.576393205613432*^9, 3.576393376589732*^9, { 3.576405781195681*^9, 3.5764057916789*^9}, 3.5764196781685295`*^9, 3.5764693343748484`*^9, 3.576469800176067*^9, {3.5764703126369667`*^9, 3.5764703689062653`*^9}, {3.5764704075943336`*^9, 3.576470457452021*^9}, 3.5764704882620754`*^9, 3.5764707837889943`*^9, 3.58020901930013*^9}], Cell[BoxData[ RowBox[{ StyleBox[ RowBox[{"StandardDeviation", "::", "shlen"}], "MessageName"], RowBox[{ ":", " "}], "\<\"The argument \[NoBreak]\\!\\({2.546901408195029`}\\)\ \[NoBreak] should have at least two elements. \\!\\(\\*ButtonBox[\\\"\ \[RightSkeleton]\\\", ButtonStyle->\\\"Link\\\", ButtonFrame->None, \ ButtonData:>\\\"paclet:ref/StandardDeviation\\\", ButtonNote -> \ \\\"StandardDeviation::shlen\\\"]\\)\"\>"}]], "Message", "MSG", CellChangeTimes->{ 3.576388759115221*^9, 3.5763922791590047`*^9, 3.576392394583607*^9, 3.5763926937297325`*^9, 3.576393205691432*^9, 3.5763933766677322`*^9, { 3.576405781289282*^9, 3.5764057917412996`*^9}, 3.5764196782465296`*^9, 3.576469334499649*^9, 3.5764698002540665`*^9, {3.576470312714967*^9, 3.5764703689842653`*^9}, {3.5764704076723337`*^9, 3.576470457530021*^9}, 3.5764704883400755`*^9, 3.5764707838669944`*^9, 3.58020901937813*^9}], Cell[BoxData[ RowBox[{"2.546901408195029`", "\[PlusMinus]", RowBox[{"StandardDeviation", "[", RowBox[{"{", "2.546901408195029`", "}"}], "]"}]}]], "Output", CellChangeTimes->{ 3.576388759037221*^9, 3.5763922790498047`*^9, 3.576392394521207*^9, 3.5763926936517324`*^9, 3.576393205613432*^9, 3.576393376589732*^9, { 3.576405781195681*^9, 3.5764057916789*^9}, 3.5764196781685295`*^9, 3.5764693343748484`*^9, 3.576469800176067*^9, {3.5764703126369667`*^9, 3.5764703689062653`*^9}, {3.5764704075943336`*^9, 3.576470457452021*^9}, 3.5764704882620754`*^9, 3.5764707837889943`*^9, 3.58020901937813*^9}], Cell[BoxData[ RowBox[{"{", RowBox[{ "2.847909517506738`", ",", "2.8477001531480926`", ",", "2.7684884167022057`", ",", "2.7845095864085736`"}], "}"}]], "Output", CellChangeTimes->{ 3.576388759037221*^9, 3.5763922790498047`*^9, 3.576392394521207*^9, 3.5763926936517324`*^9, 3.576393205613432*^9, 3.576393376589732*^9, { 3.576405781195681*^9, 3.5764057916789*^9}, 3.5764196781685295`*^9, 3.5764693343748484`*^9, 3.576469800176067*^9, {3.5764703126369667`*^9, 3.5764703689062653`*^9}, {3.5764704075943336`*^9, 3.576470457452021*^9}, 3.5764704882620754`*^9, 3.5764707837889943`*^9, 3.58020901937813*^9}], Cell[BoxData[ RowBox[{"2.8121519184414026`", "\[PlusMinus]", "0.041684860505229`"}]], "Output", CellChangeTimes->{ 3.576388759037221*^9, 3.5763922790498047`*^9, 3.576392394521207*^9, 3.5763926936517324`*^9, 3.576393205613432*^9, 3.576393376589732*^9, { 3.576405781195681*^9, 3.5764057916789*^9}, 3.5764196781685295`*^9, 3.5764693343748484`*^9, 3.576469800176067*^9, {3.5764703126369667`*^9, 3.5764703689062653`*^9}, {3.5764704075943336`*^9, 3.576470457452021*^9}, 3.5764704882620754`*^9, 3.5764707837889943`*^9, 3.58020901937813*^9}], Cell[BoxData[ RowBox[{"{", RowBox[{ "2.059805856700242`", ",", "2.059647052309992`", ",", "1.8330480279235877`", ",", "2.0597328818910285`", ",", "2.059818629186647`", ",", "1.924939428516999`", ",", "1.9250230746039425`", ",", "1.940368039836913`"}], "}"}]], "Output", CellChangeTimes->{ 3.576388759037221*^9, 3.5763922790498047`*^9, 3.576392394521207*^9, 3.5763926936517324`*^9, 3.576393205613432*^9, 3.576393376589732*^9, { 3.576405781195681*^9, 3.5764057916789*^9}, 3.5764196781685295`*^9, 3.5764693343748484`*^9, 3.576469800176067*^9, {3.5764703126369667`*^9, 3.5764703689062653`*^9}, {3.5764704075943336`*^9, 3.576470457452021*^9}, 3.5764704882620754`*^9, 3.5764707837889943`*^9, 3.58020901937813*^9}], Cell[BoxData[ RowBox[{"1.9827978738711691`", "\[PlusMinus]", "0.08831603329696638`"}]], "Output", CellChangeTimes->{ 3.576388759037221*^9, 3.5763922790498047`*^9, 3.576392394521207*^9, 3.5763926936517324`*^9, 3.576393205613432*^9, 3.576393376589732*^9, { 3.576405781195681*^9, 3.5764057916789*^9}, 3.5764196781685295`*^9, 3.5764693343748484`*^9, 3.576469800176067*^9, {3.5764703126369667`*^9, 3.5764703689062653`*^9}, {3.5764704075943336`*^9, 3.576470457452021*^9}, 3.5764704882620754`*^9, 3.5764707837889943`*^9, 3.58020901937813*^9}] }, Open ]], Cell[CellGroupData[{ Cell[BoxData[ RowBox[{ RowBox[{"(*", " ", RowBox[{"count", " ", "C", " ", "atoms"}], " ", "*)"}], "\[IndentingNewLine]", RowBox[{ RowBox[{ RowBox[{"nc", "=", "0"}], ";"}], " ", "\n", RowBox[{"For", "[", RowBox[{ RowBox[{"i", "=", "1"}], ",", RowBox[{"i", "<", RowBox[{"bc", "+", "1"}]}], ",", RowBox[{"i", "++"}], ",", RowBox[{"If", "[", RowBox[{ RowBox[{ RowBox[{"u", "[", RowBox[{"[", "i", "]"}], "]"}], "\[Equal]", "\"\\""}], ",", RowBox[{"nc", "=", RowBox[{"nc", "+", "1"}]}], ",", "nc"}], "]"}]}], "]"}], "\[IndentingNewLine]", RowBox[{ RowBox[{"cnt", "=", RowBox[{"Table", "[", RowBox[{"0", ",", RowBox[{"{", "nc", "}"}]}], "]"}]}], ";"}], "\[IndentingNewLine]", RowBox[{ RowBox[{"pri", "=", "cnt"}], ";", " ", RowBox[{"sec", "=", "cnt"}], ";", RowBox[{"ter", "=", "cnt"}], ";", " ", RowBox[{"qua", "=", "cnt"}], ";"}], "\[IndentingNewLine]", "nc"}]}]], "Input", CellChangeTimes->{{3.568045828002715*^9, 3.56804588761042*^9}, 3.5680459828797874`*^9, {3.568046033938677*^9, 3.5680460518787084`*^9}, { 3.568046989190755*^9, 3.5680470284404235`*^9}, {3.568047061028881*^9, 3.568047085567724*^9}, {3.5680471562982483`*^9, 3.568047169199471*^9}, { 3.568047223393966*^9, 3.568047364059413*^9}, {3.568047417286707*^9, 3.5680474225127163`*^9}, {3.5680474583459787`*^9, 3.568047487861231*^9}, { 3.5680475345521126`*^9, 3.5680475468605347`*^9}, {3.5680479168775845`*^9, 3.5680479311516094`*^9}, {3.568048066918648*^9, 3.568048067667449*^9}, { 3.5680483816336*^9, 3.5680483930216208`*^9}, {3.568048424159275*^9, 3.568048450211321*^9}, {3.5680486326224413`*^9, 3.5680486370996494`*^9}, { 3.5680487358166227`*^9, 3.5680487967191296`*^9}, 3.568048834377596*^9, 3.568048984418659*^9, {3.5680490255559316`*^9, 3.5680490790796256`*^9}, { 3.5680491274553103`*^9, 3.5680491280949116`*^9}, {3.5680491782333994`*^9, 3.568049231944294*^9}, {3.568049361533722*^9, 3.5680493691933355`*^9}, { 3.568049422171028*^9, 3.568049427490638*^9}, {3.568049476427923*^9, 3.5680495489368505`*^9}, {3.568049620634577*^9, 3.5680496274361887`*^9}, { 3.5680496655314555`*^9, 3.568049693876705*^9}, 3.568049746573598*^9, { 3.568049846460573*^9, 3.568049932759925*^9}, {3.568050009059659*^9, 3.5680500167348723`*^9}, {3.5680501572755194`*^9, 3.568050179911159*^9}, 3.5681087021497335`*^9, {3.5726244549749556`*^9, 3.5726244687341795`*^9}, 3.572624583643982*^9, {3.574656664645282*^9, 3.5746566836773148`*^9}, { 3.5746567220533824`*^9, 3.5746567296193953`*^9}}], Cell[BoxData["4"], "Output", CellChangeTimes->{ 3.576388759130821*^9, 3.5763922791902046`*^9, 3.576392394614807*^9, 3.576392693760933*^9, 3.576393205707032*^9, 3.5763933766989326`*^9, { 3.5764057813048816`*^9, 3.5764057917725*^9}, 3.57641967826213*^9, 3.576469334515249*^9, 3.576469800285267*^9, {3.576470312730567*^9, 3.5764703689998655`*^9}, {3.5764704077035336`*^9, 3.576470457561221*^9}, 3.5764704883556757`*^9, 3.5764707838981943`*^9, 3.58020901939373*^9}] }, Open ]], Cell[CellGroupData[{ Cell[BoxData[ RowBox[{ RowBox[{"(*", " ", RowBox[{"count", " ", "O", " ", "atoms"}], " ", "*)"}], "\[IndentingNewLine]", RowBox[{ RowBox[{ RowBox[{"no", "=", "0"}], ";"}], " ", "\n", RowBox[{"For", "[", RowBox[{ RowBox[{"i", "=", "1"}], ",", RowBox[{"i", "<", RowBox[{"bc", "+", "1"}]}], ",", RowBox[{"i", "++"}], ",", RowBox[{"If", "[", RowBox[{ RowBox[{ RowBox[{"u", "[", RowBox[{"[", "i", "]"}], "]"}], "\[Equal]", "\"\\""}], ",", RowBox[{"no", "=", RowBox[{"no", "+", "1"}]}], ",", "no"}], "]"}]}], "]"}], "\[IndentingNewLine]", "no"}]}]], "Input", CellChangeTimes->{{3.5747778571769943`*^9, 3.5747779085322847`*^9}}], Cell[BoxData["3"], "Output", CellChangeTimes->{ 3.5763887591464214`*^9, 3.5763922791902046`*^9, 3.5763923946304073`*^9, 3.576392693760933*^9, 3.576393205722632*^9, 3.5763933766989326`*^9, { 3.5764057813204813`*^9, 3.5764057917881002`*^9}, 3.57641967827773*^9, 3.5764693345308485`*^9, 3.576469800300867*^9, {3.5764703127461667`*^9, 3.5764703690154657`*^9}, {3.5764704077191334`*^9, 3.5764704575768213`*^9}, 3.5764704883712754`*^9, 3.5764707838981943`*^9, 3.5802090194093304`*^9}] }, Open ]], Cell[CellGroupData[{ Cell[BoxData[ RowBox[{ RowBox[{"(*", " ", RowBox[{ "count", " ", "H", " ", "atoms", " ", "bonded", " ", "to", " ", "each", " ", "C", " ", "atom"}], " ", "*)"}], "\[IndentingNewLine]", RowBox[{ RowBox[{ RowBox[{"For", "[", RowBox[{ RowBox[{"j", "=", "1"}], ",", RowBox[{"j", "\[LessEqual]", "nc"}], ",", RowBox[{"j", "++"}], ",", "\[IndentingNewLine]", RowBox[{"For", "[", RowBox[{ RowBox[{"i", "=", RowBox[{"bc", "+", "1"}]}], ",", RowBox[{"i", "\[LessEqual]", "n"}], ",", RowBox[{"i", "++"}], ",", RowBox[{"If", "[", " ", RowBox[{ RowBox[{ RowBox[{"Dij", "[", RowBox[{"[", RowBox[{"i", ",", "j"}], "]"}], "]"}], "\[NotEqual]", "0"}], " ", ",", RowBox[{ RowBox[{"cnt", "[", RowBox[{"[", "j", "]"}], "]"}], "=", RowBox[{ RowBox[{"cnt", "[", RowBox[{"[", "j", "]"}], "]"}], "+", "1"}]}], ",", "0"}], "]"}]}], "]"}]}], "]"}], ";"}], "\[IndentingNewLine]", "cnt"}]}]], "Input", CellChangeTimes->{{3.568045828002715*^9, 3.56804588761042*^9}, 3.5680459828797874`*^9, {3.568046033938677*^9, 3.5680460518787084`*^9}, { 3.568046989190755*^9, 3.5680470284404235`*^9}, {3.568047061028881*^9, 3.568047085567724*^9}, {3.5680471562982483`*^9, 3.568047169199471*^9}, { 3.568047223393966*^9, 3.568047364059413*^9}, {3.568047417286707*^9, 3.5680474225127163`*^9}, {3.5680474583459787`*^9, 3.568047487861231*^9}, { 3.5680475345521126`*^9, 3.5680475468605347`*^9}, {3.5680479168775845`*^9, 3.5680479311516094`*^9}, {3.568048066918648*^9, 3.568048067667449*^9}, { 3.5680483816336*^9, 3.5680483930216208`*^9}, {3.568048424159275*^9, 3.568048450211321*^9}, {3.5680486326224413`*^9, 3.5680486370996494`*^9}, { 3.5680487358166227`*^9, 3.5680487967191296`*^9}, 3.568048834377596*^9, 3.568048984418659*^9, {3.5680490255559316`*^9, 3.5680490790796256`*^9}, { 3.5680491274553103`*^9, 3.5680491280949116`*^9}, {3.5680491782333994`*^9, 3.568049231944294*^9}, {3.568049361533722*^9, 3.5680493691933355`*^9}, { 3.568049422171028*^9, 3.568049427490638*^9}, {3.568049476427923*^9, 3.5680495489368505`*^9}, {3.568049620634577*^9, 3.5680496274361887`*^9}, { 3.5680496655314555`*^9, 3.568049693876705*^9}, 3.568049746573598*^9, { 3.568049846460573*^9, 3.568049932759925*^9}, {3.568050009059659*^9, 3.5680500167348723`*^9}, {3.5680501572755194`*^9, 3.568050179911159*^9}, 3.5681087021497335`*^9, {3.5726244549749556`*^9, 3.5726244687341795`*^9}, 3.572624583643982*^9, {3.574656664645282*^9, 3.5746566836773148`*^9}, { 3.5746567220533824`*^9, 3.5746567296193953`*^9}}], Cell[BoxData[ RowBox[{"{", RowBox[{"2", ",", "0", ",", "2", ",", "0"}], "}"}]], "Output", CellChangeTimes->{ 3.576388759162021*^9, 3.576392279205805*^9, 3.5763923946304073`*^9, 3.576392693776533*^9, 3.5763932057382317`*^9, 3.5763933767145324`*^9, { 3.5764057813204813`*^9, 3.5764057918037*^9}, 3.5764196782933297`*^9, 3.5764693345464487`*^9, 3.576469800316467*^9, {3.576470312761767*^9, 3.576470369031066*^9}, {3.5764704077347336`*^9, 3.5764704575924215`*^9}, 3.576470488386875*^9, 3.5764707839137945`*^9, 3.58020901942493*^9}] }, Open ]], Cell[BoxData[ RowBox[{ RowBox[{"(*", " ", RowBox[{ RowBox[{"parse", " ", "into", " ", "prim"}], ",", " ", "sec", ",", " ", "tert", ",", " ", RowBox[{ "and", " ", "quart", " ", "C", " ", "cores", " ", "with", " ", "different", " ", "radii"}]}], " ", "*)"}], "\[IndentingNewLine]", RowBox[{"(*", RowBox[{ RowBox[{"n1", "=", "0"}], ";", " ", RowBox[{"n2", "=", "0"}], ";", " ", RowBox[{"n3", "=", "0"}], ";", " ", RowBox[{"n4", "=", "0"}], ";", "\n", RowBox[{"For", "[", RowBox[{ RowBox[{"i", "=", "1"}], ",", RowBox[{"i", "\[LessEqual]", "nc"}], ",", RowBox[{"i", "++"}], ",", "\[IndentingNewLine]", RowBox[{"If", "[", RowBox[{ RowBox[{ RowBox[{"cnt", "[", RowBox[{"[", "i", "]"}], "]"}], "\[Equal]", "3"}], ",", RowBox[{ RowBox[{"n1", "=", RowBox[{"n1", "+", "1"}]}], ";", RowBox[{ RowBox[{"pri", "[", RowBox[{"[", "n1", "]"}], "]"}], "=", "i"}]}], ",", "\[IndentingNewLine]", RowBox[{"If", "[", RowBox[{ RowBox[{ RowBox[{"cnt", "[", RowBox[{"[", "i", "]"}], "]"}], "\[Equal]", "2"}], ",", RowBox[{ RowBox[{"n2", "=", RowBox[{"n2", "+", "1"}]}], ";", RowBox[{ RowBox[{"sec", "[", RowBox[{"[", "n2", "]"}], "]"}], "=", "i"}]}], ",", "\[IndentingNewLine]", RowBox[{"If", "[", RowBox[{ RowBox[{ RowBox[{"cnt", "[", RowBox[{"[", "i", "]"}], "]"}], "\[Equal]", "1"}], ",", RowBox[{ RowBox[{"n3", "=", RowBox[{"n3", "+", "1"}]}], ";", RowBox[{ RowBox[{"ter", "[", RowBox[{"[", "n3", "]"}], "]"}], "=", "i"}]}], ",", "\[IndentingNewLine]", RowBox[{"If", "[", RowBox[{ RowBox[{ RowBox[{"cnt", "[", RowBox[{"[", "i", "]"}], "]"}], "=", "0"}], ",", RowBox[{ RowBox[{"n4", "=", RowBox[{"n4", "+", "1"}]}], ";", RowBox[{ RowBox[{"qua", "[", RowBox[{"[", "n4", "]"}], "]"}], "=", "i"}]}]}], "]"}]}], "]"}]}], "]"}]}], "]"}]}], "]"}], ";", "\[IndentingNewLine]", RowBox[{ RowBox[{"For", " ", "[", RowBox[{ RowBox[{"i", "=", "1"}], ",", " ", RowBox[{"i", "\[LessEqual]", "nc"}], ",", RowBox[{"i", "++"}], ",", RowBox[{"If", "[", RowBox[{ RowBox[{ RowBox[{"pri", "[", RowBox[{"[", "i", "]"}], "]"}], "\[NotEqual]", "0"}], ",", RowBox[{ RowBox[{"u2", "[", RowBox[{"[", RowBox[{"pri", "[", RowBox[{"[", "i", "]"}], "]"}], "]"}], "]"}], "=", "0.259"}]}], "]"}]}], "]"}], "\[IndentingNewLine]", RowBox[{"For", " ", "[", RowBox[{ RowBox[{"i", "=", "1"}], ",", " ", RowBox[{"i", "\[LessEqual]", "nc"}], ",", RowBox[{"i", "++"}], ",", RowBox[{"If", "[", RowBox[{ RowBox[{ RowBox[{"sec", "[", RowBox[{"[", "i", "]"}], "]"}], "\[NotEqual]", "0"}], ",", RowBox[{ RowBox[{"u2", "[", RowBox[{"[", RowBox[{"sec", "[", RowBox[{"[", "i", "]"}], "]"}], "]"}], "]"}], "=", "0.258"}]}], "]"}]}], "]"}], "\[IndentingNewLine]", RowBox[{"For", " ", "[", RowBox[{ RowBox[{"i", "=", "1"}], ",", " ", RowBox[{"i", "\[LessEqual]", "nc"}], ",", RowBox[{"i", "++"}], ",", RowBox[{"If", "[", RowBox[{ RowBox[{ RowBox[{"ter", "[", RowBox[{"[", "i", "]"}], "]"}], "\[NotEqual]", "0"}], ",", RowBox[{ RowBox[{"u2", "[", RowBox[{"[", RowBox[{"ter", "[", RowBox[{"[", "i", "]"}], "]"}], "]"}], "]"}], "=", "0.2595"}]}], "]"}]}], "]"}], "\[IndentingNewLine]", RowBox[{"For", " ", "[", RowBox[{ RowBox[{"i", "=", "1"}], ",", " ", RowBox[{"i", "\[LessEqual]", "nc"}], ",", RowBox[{"i", "++"}], ",", RowBox[{"If", "[", RowBox[{ RowBox[{ RowBox[{"qua", "[", RowBox[{"[", "i", "]"}], "]"}], "\[NotEqual]", "0"}], ",", RowBox[{ RowBox[{"u2", "[", RowBox[{"[", RowBox[{"qua", "[", RowBox[{"[", "i", "]"}], "]"}], "]"}], "]"}], "=", "0.2595"}]}], "]"}]}], "]"}]}]}], "*)"}]}]], "Input", CellChangeTimes->{ 3.574656734486604*^9, 3.5746567701950665`*^9, 3.574656840972391*^9, { 3.574674470271285*^9, 3.574674475481694*^9}, {3.574674526181783*^9, 3.574674528927388*^9}, {3.5746746901536713`*^9, 3.5746746947712793`*^9}, 3.5757079587880955`*^9}], Cell[CellGroupData[{ Cell[BoxData[{ RowBox[{ RowBox[{"con", "=", RowBox[{"Table", "[", RowBox[{ RowBox[{"{", "i", "}"}], ",", RowBox[{"{", RowBox[{"i", ",", "1", ",", "n"}], "}"}]}], "]"}]}], ";", " ", RowBox[{"conj", "=", RowBox[{"Table", "[", RowBox[{"0", ",", RowBox[{"{", "nc", "}"}]}], "]"}]}], ";"}], "\[IndentingNewLine]", RowBox[{ RowBox[{"For", "[", RowBox[{ RowBox[{"i", "=", "1"}], ",", RowBox[{"i", "\[LessEqual]", "n"}], ",", RowBox[{"i", "++"}], ",", "\[IndentingNewLine]", RowBox[{"For", "[", RowBox[{ RowBox[{"j", "=", "1"}], ",", RowBox[{"j", "\[LessEqual]", "n"}], ",", RowBox[{"j", "++"}], ",", RowBox[{"If", "[", " ", RowBox[{ RowBox[{ RowBox[{"Dij", "[", RowBox[{"[", RowBox[{"i", ",", "j"}], "]"}], "]"}], "\[NotEqual]", "0"}], " ", ",", RowBox[{ RowBox[{"con", "[", RowBox[{"[", "i", "]"}], "]"}], "=", RowBox[{"{", RowBox[{ RowBox[{"con", "[", RowBox[{"[", "i", "]"}], "]"}], ",", "j"}], "}"}]}]}], "]"}]}], "]"}]}], "]"}], ";"}], "\[IndentingNewLine]", RowBox[{ RowBox[{ RowBox[{"conn", "=", RowBox[{"Table", "[", RowBox[{ RowBox[{"Flatten", "[", RowBox[{"con", "[", RowBox[{"[", "i", "]"}], "]"}], "]"}], ",", RowBox[{"{", RowBox[{"i", ",", "1", ",", "n"}], "}"}]}], "]"}]}], ";"}], "\[IndentingNewLine]", RowBox[{"(*", RowBox[{ RowBox[{ RowBox[{"conn", "[", RowBox[{"[", "10", "]"}], "]"}], "=", RowBox[{"{", RowBox[{"10", ",", "7", ",", "11", ",", "17"}], "}"}]}], ";"}], "*)"}], "\[IndentingNewLine]", RowBox[{"(*", " ", RowBox[{ "identify", " ", "C", " ", "atoms", " ", "at", " ", "double", " ", "bonds"}], " ", "*)"}]}], "\[IndentingNewLine]", RowBox[{ RowBox[{"j", "=", "0"}], ";"}], "\[IndentingNewLine]", RowBox[{ RowBox[{"For", "[", RowBox[{ RowBox[{"i", "=", "1"}], ",", RowBox[{"i", "\[LessEqual]", "nc"}], ",", RowBox[{"i", "++"}], ",", RowBox[{"If", "[", RowBox[{ RowBox[{"(", RowBox[{ RowBox[{ RowBox[{"Length", "[", RowBox[{"conn", "[", RowBox[{"[", "i", "]"}], "]"}], "]"}], "\[Equal]", "4"}], " ", "&&", " ", RowBox[{ RowBox[{"u", "[", RowBox[{"[", RowBox[{"conn", "[", RowBox[{"[", RowBox[{"i", ",", "4"}], "]"}], "]"}], "]"}], "]"}], "\[NotEqual]", "\"\\""}]}], ")"}], ",", RowBox[{ RowBox[{"j", "=", RowBox[{"j", "+", "1"}]}], ";", RowBox[{ RowBox[{"conj", "[", RowBox[{"[", "j", "]"}], "]"}], "=", "i"}]}]}], "]"}]}], "]"}], ";"}], "\[IndentingNewLine]", RowBox[{"conj", "=", RowBox[{"Take", "[", RowBox[{"conj", ",", RowBox[{"{", RowBox[{"1", ",", "j"}], "}"}]}], "]"}]}], "\[IndentingNewLine]", RowBox[{"nj", "=", RowBox[{"Length", "[", "conj", "]"}]}], "\[IndentingNewLine]", RowBox[{"MatrixForm", "[", RowBox[{"conn", ",", " ", RowBox[{"TableAlignments", "\[Rule]", "Left"}]}], "]"}]}], "Input", CellChangeTimes->{{3.568045828002715*^9, 3.56804588761042*^9}, 3.5680459828797874`*^9, {3.568046033938677*^9, 3.5680460518787084`*^9}, { 3.568046989190755*^9, 3.5680470284404235`*^9}, {3.568047061028881*^9, 3.568047085567724*^9}, {3.5680471562982483`*^9, 3.568047169199471*^9}, { 3.568047223393966*^9, 3.568047364059413*^9}, {3.568047417286707*^9, 3.5680474225127163`*^9}, {3.5680474583459787`*^9, 3.568047487861231*^9}, { 3.5680475345521126`*^9, 3.5680475468605347`*^9}, {3.5680479168775845`*^9, 3.5680479311516094`*^9}, {3.568048066918648*^9, 3.568048067667449*^9}, { 3.5680483816336*^9, 3.5680483930216208`*^9}, {3.568048424159275*^9, 3.568048450211321*^9}, {3.5680486326224413`*^9, 3.5680486370996494`*^9}, { 3.5680487358166227`*^9, 3.5680487967191296`*^9}, 3.568048834377596*^9, 3.568048984418659*^9, {3.5680490255559316`*^9, 3.5680490790796256`*^9}, { 3.5680491274553103`*^9, 3.5680491280949116`*^9}, {3.5680491782333994`*^9, 3.568049231944294*^9}, {3.568049361533722*^9, 3.5680493691933355`*^9}, { 3.568049422171028*^9, 3.568049427490638*^9}, {3.568049476427923*^9, 3.5680495489368505`*^9}, {3.568049620634577*^9, 3.5680496274361887`*^9}, { 3.5680496655314555`*^9, 3.568049693876705*^9}, 3.568049746573598*^9, { 3.568049846460573*^9, 3.568049932759925*^9}, {3.568050009059659*^9, 3.5680500167348723`*^9}, {3.5680501572755194`*^9, 3.568050179911159*^9}, 3.5681087021497335`*^9, {3.5726244549749556`*^9, 3.5726244687341795`*^9}, { 3.572624511540655*^9, 3.5726245129758577`*^9}, {3.5726259545431895`*^9, 3.5726259555883913`*^9}, {3.5726268385811424`*^9, 3.5726268436979513`*^9}, {3.5727156260686264`*^9, 3.5727156464110622`*^9}, 3.572767008717453*^9, 3.572767169428935*^9, {3.5727947272385855`*^9, 3.5727947348669987`*^9}, {3.5733216830258026`*^9, 3.573321731307887*^9}, 3.5746648213532076`*^9, 3.5747423225955195`*^9, {3.5747806605331182`*^9, 3.5747807483924723`*^9}, {3.5747809586028414`*^9, 3.57478099722851*^9}}], Cell[BoxData[ RowBox[{"{", "}"}]], "Output", CellChangeTimes->{ 3.576388759177621*^9, 3.5763922792370048`*^9, 3.5763923946616077`*^9, 3.5763926938077326`*^9, 3.576393205753832*^9, 3.576393376730132*^9, { 3.5764057813360815`*^9, 3.5764057918192997`*^9}, 3.5764196783089294`*^9, 3.576469334562049*^9, 3.5764698003320665`*^9, {3.576470312777367*^9, 3.576470369046666*^9}, {3.576470407750334*^9, 3.5764704576080217`*^9}, 3.5764704884024754`*^9, 3.576470783944995*^9, 3.5802090194405303`*^9}], Cell[BoxData["0"], "Output", CellChangeTimes->{ 3.576388759177621*^9, 3.5763922792370048`*^9, 3.5763923946616077`*^9, 3.5763926938077326`*^9, 3.576393205753832*^9, 3.576393376730132*^9, { 3.5764057813360815`*^9, 3.5764057918192997`*^9}, 3.5764196783089294`*^9, 3.576469334562049*^9, 3.5764698003320665`*^9, {3.576470312777367*^9, 3.576470369046666*^9}, {3.576470407750334*^9, 3.5764704576080217`*^9}, 3.5764704884024754`*^9, 3.576470783944995*^9, 3.5802090194405303`*^9}], Cell[BoxData[ TagBox[ RowBox[{"(", "\[NoBreak]", TagBox[GridBox[{ { RowBox[{"{", RowBox[{"1", ",", "2", ",", "6", ",", "10", ",", "11"}], "}"}]}, { RowBox[{"{", RowBox[{"2", ",", "1", ",", "5", ",", "7"}], "}"}]}, { RowBox[{"{", RowBox[{"3", ",", "4", ",", "5", ",", "13", ",", "14"}], "}"}]}, { RowBox[{"{", RowBox[{"4", ",", "3", ",", "8", ",", "9"}], "}"}]}, { RowBox[{"{", RowBox[{"5", ",", "2", ",", "3", ",", "12"}], "}"}]}, { RowBox[{"{", RowBox[{"6", ",", "1", ",", "15", ",", "16", ",", "17"}], "}"}]}, { RowBox[{"{", RowBox[{"7", ",", "2"}], "}"}]}, { RowBox[{"{", RowBox[{"8", ",", "4"}], "}"}]}, { RowBox[{"{", RowBox[{"9", ",", "4"}], "}"}]}, { RowBox[{"{", RowBox[{"10", ",", "1"}], "}"}]}, { RowBox[{"{", RowBox[{"11", ",", "1"}], "}"}]}, { RowBox[{"{", RowBox[{"12", ",", "5"}], "}"}]}, { RowBox[{"{", RowBox[{"13", ",", "3"}], "}"}]}, { RowBox[{"{", RowBox[{"14", ",", "3"}], "}"}]}, { RowBox[{"{", RowBox[{"15", ",", "6"}], "}"}]}, { RowBox[{"{", RowBox[{"16", ",", "6"}], "}"}]}, { RowBox[{"{", RowBox[{"17", ",", "6"}], "}"}]} }, GridBoxAlignment->{ "Columns" -> {{Left}}, "ColumnsIndexed" -> {}, "Rows" -> {{Baseline}}, "RowsIndexed" -> {}}, GridBoxSpacings->{"Columns" -> { Offset[0.27999999999999997`], { Offset[0.5599999999999999]}, Offset[0.27999999999999997`]}, "ColumnsIndexed" -> {}, "Rows" -> { Offset[0.2], { Offset[0.4]}, Offset[0.2]}, "RowsIndexed" -> {}}], Column], "\[NoBreak]", ")"}], Function[BoxForm`e$, MatrixForm[BoxForm`e$, TableAlignments -> Left]]]], "Output", CellChangeTimes->{ 3.576388759177621*^9, 3.5763922792370048`*^9, 3.5763923946616077`*^9, 3.5763926938077326`*^9, 3.576393205753832*^9, 3.576393376730132*^9, { 3.5764057813360815`*^9, 3.5764057918192997`*^9}, 3.5764196783089294`*^9, 3.576469334562049*^9, 3.5764698003320665`*^9, {3.576470312777367*^9, 3.576470369046666*^9}, {3.576470407750334*^9, 3.5764704576080217`*^9}, 3.5764704884024754`*^9, 3.576470783944995*^9, 3.5802090194405303`*^9}] }, Open ]], Cell[CellGroupData[{ Cell[BoxData[ RowBox[{"\[IndentingNewLine]", RowBox[{ RowBox[{ RowBox[{"j", "=", "0"}], ";", " ", RowBox[{"h", "=", "0"}], ";"}], "\[IndentingNewLine]", RowBox[{ RowBox[{"coco", "=", RowBox[{"Table", "[", RowBox[{ RowBox[{"{", RowBox[{"0", ",", "0", ",", "0", ",", "0"}], "}"}], ",", RowBox[{"{", "no", "}"}]}], "]"}]}], ";"}], "\[IndentingNewLine]", RowBox[{ RowBox[{"coch", "=", "coco"}], ";"}], "\[IndentingNewLine]", RowBox[{ RowBox[{"For", "[", RowBox[{ RowBox[{"i", "=", RowBox[{"nc", "+", "1"}]}], ",", " ", RowBox[{"i", "\[LessEqual]", RowBox[{"nc", "+", "no"}]}], ",", " ", RowBox[{"i", "++"}], ",", RowBox[{"If", "[", RowBox[{ RowBox[{ RowBox[{"Length", "[", RowBox[{"conn", "[", RowBox[{"[", "i", "]"}], "]"}], "]"}], "\[Equal]", "2"}], ",", RowBox[{ RowBox[{"j", "=", RowBox[{"j", "+", "1"}]}], ";", RowBox[{ RowBox[{"coco", "[", RowBox[{"[", "j", "]"}], "]"}], "=", RowBox[{"Join", "[", RowBox[{ RowBox[{"{", RowBox[{"conn", "[", RowBox[{"[", RowBox[{"i", ",", "1"}], "]"}], "]"}], "}"}], ",", RowBox[{"Take", "[", RowBox[{ RowBox[{"conn", "[", RowBox[{"[", RowBox[{"conn", "[", RowBox[{"[", RowBox[{"i", ",", "2"}], "]"}], "]"}], "]"}], "]"}], ",", "3"}], "]"}]}], "]"}]}]}], ",", RowBox[{ RowBox[{"h", "=", RowBox[{"h", "+", "1"}]}], ";", RowBox[{ RowBox[{"coch", "[", RowBox[{"[", "h", "]"}], "]"}], "=", RowBox[{"conn", "[", RowBox[{"[", "i", "]"}], "]"}]}]}]}], "]"}]}], "]"}], ";"}], "\[IndentingNewLine]", RowBox[{"coco", "=", RowBox[{"Take", "[", RowBox[{"coco", ",", RowBox[{"{", RowBox[{"1", ",", "j"}], "}"}]}], "]"}]}], "\[IndentingNewLine]", RowBox[{"coch", "=", RowBox[{"Take", "[", RowBox[{"coch", ",", RowBox[{"{", RowBox[{"1", ",", "h"}], "}"}]}], "]"}]}], "\[IndentingNewLine]", RowBox[{"oj", "=", RowBox[{"Length", "[", "coco", "]"}]}], "\[IndentingNewLine]", RowBox[{"hj", "=", RowBox[{"Length", "[", "coch", "]"}]}]}]}]], "Input", CellChangeTimes->{{3.568108824079547*^9, 3.568109012824279*^9}, { 3.568109558076436*^9, 3.568109588168889*^9}, {3.5681097523435774`*^9, 3.5681097637783976`*^9}, {3.5681100381828794`*^9, 3.5681101616726966`*^9}, {3.5681102015307665`*^9, 3.5681102288464146`*^9}, {3.568110263743676*^9, 3.568110267331682*^9}, { 3.5681103163469687`*^9, 3.5681103268925867`*^9}, {3.5681106443375444`*^9, 3.5681106916368275`*^9}, 3.568110873002746*^9, {3.5681109388660617`*^9, 3.5681110268970165`*^9}, {3.568111092526332*^9, 3.568111123461186*^9}, { 3.5681111884196997`*^9, 3.568111192756508*^9}, {3.5681112268113675`*^9, 3.568111366213212*^9}, {3.568111434946933*^9, 3.568111463354583*^9}, { 3.568111544396725*^9, 3.568111547625931*^9}, {3.5681116856081734`*^9, 3.5681117131422215`*^9}, {3.568111864696488*^9, 3.5681119835998964`*^9}, 3.5681120218355637`*^9, {3.56811206543764*^9, 3.568112066389242*^9}, { 3.568112332369709*^9, 3.5681123404505234`*^9}, {3.568112505935614*^9, 3.56811251481203*^9}, {3.5681125623609133`*^9, 3.568112569006525*^9}, { 3.568112648067464*^9, 3.568112734210815*^9}, {3.568112764443668*^9, 3.5681127697320776`*^9}, {3.5681128018681335`*^9, 3.568112843426607*^9}, { 3.568112884641879*^9, 3.5681128887602863`*^9}, {3.5681129663080225`*^9, 3.5681129699584293`*^9}, {3.568113133789917*^9, 3.568113227936082*^9}, { 3.5681132946885996`*^9, 3.5681133044698167`*^9}, {3.568113502200164*^9, 3.568113507348173*^9}, 3.56811354556824*^9, {3.5681222886191964`*^9, 3.5681222896019983`*^9}, {3.568207424138049*^9, 3.5682074415164795`*^9}, 3.568277923134914*^9, 3.568883508322016*^9, 3.568883588350157*^9, 3.5688836441982546`*^9, {3.5703421313965206`*^9, 3.5703421386505337`*^9}, { 3.570342288098796*^9, 3.5703424924279547`*^9}, 3.5709745658726373`*^9, 3.5709746291463485`*^9, {3.5709747534473667`*^9, 3.5709747617933817`*^9}, { 3.5709749537361183`*^9, 3.570975034747061*^9}, {3.5709751055243855`*^9, 3.5709751213584127`*^9}, {3.5709751694532976`*^9, 3.570975200060551*^9}, { 3.571073358435503*^9, 3.5710734289632273`*^9}, {3.571204792969243*^9, 3.571204820940092*^9}, {3.5712048565705547`*^9, 3.571204860002561*^9}, 3.571204896881026*^9, {3.571204943556308*^9, 3.571204987485985*^9}, 3.5712053579722357`*^9, 3.5712054148187356`*^9, 3.5712055260469313`*^9, { 3.571205631237916*^9, 3.5712056608311677`*^9}, {3.571206377683627*^9, 3.5712064172296963`*^9}, {3.571206525727887*^9, 3.571206547427525*^9}, { 3.5712066764397516`*^9, 3.5712067106974115`*^9}, {3.571206757949895*^9, 3.5712067585114956`*^9}, {3.5712073458681273`*^9, 3.571207357053347*^9}, { 3.5712075532392917`*^9, 3.5712076608170805`*^9}, {3.571208007434089*^9, 3.571208247690111*^9}, {3.571208301057805*^9, 3.5712083308850574`*^9}, { 3.571208811958702*^9, 3.571208871488407*^9}, {3.5712089993618317`*^9, 3.5712089996582317`*^9}, {3.5712091105588264`*^9, 3.571209160744115*^9}, { 3.5712092989135575`*^9, 3.5712093003643603`*^9}, {3.571209369940482*^9, 3.5712093926073227`*^9}, {3.5712094586578383`*^9, 3.5712094836958823`*^9}, {3.5712104228175316`*^9, 3.571210434267952*^9}, 3.571210475358424*^9, 3.5712108629099045`*^9, {3.571210903969177*^9, 3.5712109929361334`*^9}, {3.5712110295961976`*^9, 3.5712110392214146`*^9}, {3.571211240071767*^9, 3.5712112940946617`*^9}, { 3.571211404496056*^9, 3.5712114190976815`*^9}, {3.5712115264882703`*^9, 3.5712115363942876`*^9}, {3.571211575924757*^9, 3.5712116183724318`*^9}, { 3.5712116597281046`*^9, 3.571211695062166*^9}, {3.5712117551222715`*^9, 3.5712117807531166`*^9}, {3.571211826835598*^9, 3.5712118443232284`*^9}, { 3.571211962540236*^9, 3.5712119670174437`*^9}, 3.5712123580321307`*^9, { 3.5712123994658036`*^9, 3.571212411181424*^9}, {3.5712172605092583`*^9, 3.571217297153723*^9}, {3.571223622762637*^9, 3.57122364145147*^9}, { 3.5712237454256525`*^9, 3.571223750745262*^9}, {3.571223964808838*^9, 3.571224009097316*^9}, {3.57122674689975*^9, 3.5712267784742055`*^9}, { 3.5712269848157682`*^9, 3.57122698582977*^9}, {3.5712270624259043`*^9, 3.5712270629563055`*^9}, {3.571227212438168*^9, 3.571227212999769*^9}, { 3.571227409778515*^9, 3.5712274489969835`*^9}, {3.571227502177477*^9, 3.571227514127098*^9}, {3.57122758356282*^9, 3.5712276390521173`*^9}, 3.5712276745889797`*^9, {3.571227712746647*^9, 3.5712277584703274`*^9}, { 3.5712349496076813`*^9, 3.571234988008148*^9}, {3.5712351855668955`*^9, 3.5712353359043593`*^9}, {3.5712355859883986`*^9, 3.571235653661318*^9}, { 3.5712356890109797`*^9, 3.571235702208603*^9}, {3.5712449764989214`*^9, 3.5712449799309273`*^9}, {3.5712450401778336`*^9, 3.571245051456653*^9}, { 3.5712450868687153`*^9, 3.5712450934831266`*^9}, {3.571299135517318*^9, 3.571299166342972*^9}, {3.5713069890574045`*^9, 3.5713071726697273`*^9}, { 3.571307301791154*^9, 3.571307304536759*^9}, {3.571307397731323*^9, 3.571307405702937*^9}, {3.571311846659932*^9, 3.5713118507939396`*^9}, { 3.571317129094411*^9, 3.5713171472216425`*^9}, {3.5713172653138494`*^9, 3.5713172753602676`*^9}, {3.5713216932693615`*^9, 3.5713216983081703`*^9}, {3.5713370477995405`*^9, 3.5713370593279605`*^9}, {3.571404339740199*^9, 3.5714046172178864`*^9}, { 3.571404755449729*^9, 3.571404853246301*^9}, {3.571405069743481*^9, 3.571405208989326*^9}, {3.571405268612631*^9, 3.571405277442246*^9}, { 3.5714053796536255`*^9, 3.5714054114932814`*^9}, {3.571405595448805*^9, 3.5714056194884467`*^9}, {3.5714056687221336`*^9, 3.571405677660949*^9}, 3.5714067334520035`*^9, {3.57140676532286*^9, 3.5714067706580687`*^9}, { 3.571406950729185*^9, 3.571406989495253*^9}, {3.5714071848855963`*^9, 3.571407190579606*^9}, 3.5714072350240846`*^9, {3.571412503236558*^9, 3.5714125080413666`*^9}, {3.571412540879424*^9, 3.571412607787942*^9}, { 3.571412668378448*^9, 3.5714128101202965`*^9}, {3.5714128643147917`*^9, 3.571412873862009*^9}, {3.571412908150869*^9, 3.57141290869687*^9}, { 3.571413012374652*^9, 3.5714130213290677`*^9}, {3.571413054603926*^9, 3.5714130713583555`*^9}, 3.5714133323156137`*^9, {3.571730171730853*^9, 3.571730182494872*^9}, {3.5717303501171665`*^9, 3.5717303600855846`*^9}, { 3.5717305482375145`*^9, 3.5717305527147226`*^9}, {3.571760865342704*^9, 3.5717608700695124`*^9}, {3.57176111957635*^9, 3.5717611228835564`*^9}, 3.571761174316847*^9, {3.5717620076459103`*^9, 3.571762008441512*^9}, { 3.571765525077688*^9, 3.571765573718574*^9}, {3.572601603410675*^9, 3.572601639665139*^9}, {3.57260238631365*^9, 3.5726023989340725`*^9}, 3.5726046985809116`*^9, {3.5726052623971024`*^9, 3.572605269729115*^9}, { 3.572606450370389*^9, 3.5726064833176465`*^9}, {3.5726065169513054`*^9, 3.572606523955718*^9}, {3.5726066452459307`*^9, 3.572606662468361*^9}, { 3.5726068118542233`*^9, 3.5726068309330573`*^9}, {3.5726082044218693`*^9, 3.5726082108178806`*^9}, {3.5726129520308228`*^9, 3.5726129692220526`*^9}, {3.5726130228861475`*^9, 3.5726130532750006`*^9}, {3.572624083881504*^9, 3.572624093631521*^9}, { 3.5726247901883445`*^9, 3.572624801233164*^9}, {3.5726249931759005`*^9, 3.572625014937939*^9}, {3.572626882386019*^9, 3.5726268865668263`*^9}, { 3.5726673740642943`*^9, 3.572667386154316*^9}, {3.572707186162225*^9, 3.5727071892978306`*^9}, {3.5727073766385593`*^9, 3.5727073777617617`*^9}, 3.5727091442464643`*^9, 3.572709305488347*^9, {3.5727105300904984`*^9, 3.5727105312605004`*^9}, 3.5727107350904584`*^9, 3.5727108467086544`*^9, 3.572710916331577*^9, {3.5728420867264705`*^9, 3.5728421164913225`*^9}, { 3.572850453192765*^9, 3.5728504884332275`*^9}, {3.5731485879383316`*^9, 3.5731485959879456`*^9}, {3.5731825263710723`*^9, 3.573182535403488*^9}, { 3.5733139065045433`*^9, 3.5733140549856043`*^9}, 3.574655628725462*^9, 3.574657123722888*^9, {3.5746628507577467`*^9, 3.574662854080552*^9}, { 3.5747411461662536`*^9, 3.5747411501130605`*^9}, {3.5747732863761578`*^9, 3.5747733212266192`*^9}, {3.574777246966323*^9, 3.5747777516272087`*^9}, { 3.574778090990205*^9, 3.5747782123584185`*^9}, {3.5747782626217065`*^9, 3.5747782672393146`*^9}, {3.57477829882937*^9, 3.57477835005986*^9}, { 3.5747784095115643`*^9, 3.5747784447520266`*^9}, {3.5747785201625586`*^9, 3.574778535122985*^9}, {3.5747785781478605`*^9, 3.574778578319461*^9}, { 3.5747786106427174`*^9, 3.574778688830055*^9}, {3.5747787248193183`*^9, 3.5747787708393993`*^9}, 3.574778803895857*^9, {3.5747790916071625`*^9, 3.5747790975975733`*^9}, {3.574779153835672*^9, 3.574779165457692*^9}, { 3.5747792016185555`*^9, 3.574779212008174*^9}, {3.5747792458290334`*^9, 3.5747792599314585`*^9}, {3.5747792935339174`*^9, 3.574779301552331*^9}, { 3.574779474915436*^9, 3.574779529047531*^9}, {3.5747795770176153`*^9, 3.574779592914043*^9}, {3.5747796386065235`*^9, 3.574779641742129*^9}, { 3.574779726762278*^9, 3.57477972782308*^9}, 3.5747798402368774`*^9, { 3.5747800908513174`*^9, 3.5747801971811047`*^9}, {3.5747802368675737`*^9, 3.5747802741828394`*^9}, {3.574780331856141*^9, 3.574780343462561*^9}, { 3.574780380434626*^9, 3.5747803867058372`*^9}, {3.5747804240679026`*^9, 3.574780436781925*^9}, {3.574780765302902*^9, 3.574780854581859*^9}, { 3.574785122296955*^9, 3.574785156398615*^9}, {3.574950232276594*^9, 3.574950236582202*^9}}], Cell[BoxData[ RowBox[{"{", RowBox[{"{", RowBox[{"7", ",", "2", ",", "1", ",", "5"}], "}"}], "}"}]], "Output", CellChangeTimes->{ 3.576388759193221*^9, 3.5763922792526045`*^9, 3.576392394677208*^9, 3.576392693823333*^9, 3.576393205769432*^9, 3.5763933767613325`*^9, { 3.5764057813516817`*^9, 3.5764057918349*^9}, 3.57641967834013*^9, 3.576469334577649*^9, 3.5764698003476667`*^9, {3.576470312792967*^9, 3.5764703690622663`*^9}, {3.576470407765934*^9, 3.5764704576236215`*^9}, 3.5764704884180756`*^9, 3.5764707839605947`*^9, 3.5802090194561305`*^9}], Cell[BoxData[ RowBox[{"{", RowBox[{ RowBox[{"{", RowBox[{"5", ",", "2", ",", "3", ",", "12"}], "}"}], ",", RowBox[{"{", RowBox[{"6", ",", "1", ",", "15", ",", "16", ",", "17"}], "}"}]}], "}"}]], "Output", CellChangeTimes->{ 3.576388759193221*^9, 3.5763922792526045`*^9, 3.576392394677208*^9, 3.576392693823333*^9, 3.576393205769432*^9, 3.5763933767613325`*^9, { 3.5764057813516817`*^9, 3.5764057918349*^9}, 3.57641967834013*^9, 3.576469334577649*^9, 3.5764698003476667`*^9, {3.576470312792967*^9, 3.5764703690622663`*^9}, {3.576470407765934*^9, 3.5764704576236215`*^9}, 3.5764704884180756`*^9, 3.5764707839605947`*^9, 3.5802090194561305`*^9}], Cell[BoxData["1"], "Output", CellChangeTimes->{ 3.576388759193221*^9, 3.5763922792526045`*^9, 3.576392394677208*^9, 3.576392693823333*^9, 3.576393205769432*^9, 3.5763933767613325`*^9, { 3.5764057813516817`*^9, 3.5764057918349*^9}, 3.57641967834013*^9, 3.576469334577649*^9, 3.5764698003476667`*^9, {3.576470312792967*^9, 3.5764703690622663`*^9}, {3.576470407765934*^9, 3.5764704576236215`*^9}, 3.5764704884180756`*^9, 3.5764707839605947`*^9, 3.5802090194561305`*^9}], Cell[BoxData["2"], "Output", CellChangeTimes->{ 3.576388759193221*^9, 3.5763922792526045`*^9, 3.576392394677208*^9, 3.576392693823333*^9, 3.576393205769432*^9, 3.5763933767613325`*^9, { 3.5764057813516817`*^9, 3.5764057918349*^9}, 3.57641967834013*^9, 3.576469334577649*^9, 3.5764698003476667`*^9, {3.576470312792967*^9, 3.5764703690622663`*^9}, {3.576470407765934*^9, 3.5764704576236215`*^9}, 3.5764704884180756`*^9, 3.5764707839605947`*^9, 3.5802090194561305`*^9}] }, Open ]], Cell[BoxData[{ RowBox[{ RowBox[{ RowBox[{"Clear", "[", RowBox[{ "c", ",", "v", ",", "p", ",", "Q", ",", "P", ",", "v1", ",", "v2", ",", "nk", ",", "nl", ",", "i"}], "]"}], ";"}], " "}], "\[IndentingNewLine]", RowBox[{ RowBox[{ RowBox[{"rpo", "=", RowBox[{"{", RowBox[{ "1.2961", ",", "1.0875", ",", "1.2961", ",", "1.0875", ",", "1.2465"}], "}"}]}], ";"}], " ", RowBox[{"(*", " ", RowBox[{"from", " ", RowBox[{"formamide3d", ".", "nb"}]}], " ", "*)"}]}], "\[IndentingNewLine]", RowBox[{ RowBox[{"rpi", "=", "rpo"}], ";"}], "\[IndentingNewLine]", RowBox[{ RowBox[{ RowBox[{"P", "=", "3"}], ";", " ", RowBox[{"c", "=", RowBox[{"{", RowBox[{"0", ",", "0", ",", "0", ",", "0", ",", "0"}], "}"}]}], ";"}], " "}]}], "Input", CellChangeTimes->{{3.568108824079547*^9, 3.568109012824279*^9}, { 3.568109558076436*^9, 3.568109588168889*^9}, {3.5681097523435774`*^9, 3.5681097637783976`*^9}, {3.5681100381828794`*^9, 3.5681101616726966`*^9}, {3.5681102015307665`*^9, 3.5681102288464146`*^9}, {3.568110263743676*^9, 3.568110267331682*^9}, { 3.5681103163469687`*^9, 3.5681103268925867`*^9}, {3.5681106443375444`*^9, 3.5681106916368275`*^9}, 3.568110873002746*^9, {3.5681109388660617`*^9, 3.5681110268970165`*^9}, {3.568111092526332*^9, 3.568111123461186*^9}, { 3.5681111884196997`*^9, 3.568111192756508*^9}, {3.5681112268113675`*^9, 3.568111366213212*^9}, {3.568111434946933*^9, 3.568111463354583*^9}, { 3.568111544396725*^9, 3.568111547625931*^9}, {3.5681116856081734`*^9, 3.5681117131422215`*^9}, {3.568111864696488*^9, 3.5681119835998964`*^9}, 3.5681120218355637`*^9, {3.56811206543764*^9, 3.568112066389242*^9}, { 3.568112332369709*^9, 3.5681123404505234`*^9}, {3.568112505935614*^9, 3.56811251481203*^9}, {3.5681125623609133`*^9, 3.568112569006525*^9}, { 3.568112648067464*^9, 3.568112734210815*^9}, {3.568112764443668*^9, 3.5681127697320776`*^9}, {3.5681128018681335`*^9, 3.568112843426607*^9}, { 3.568112884641879*^9, 3.5681128887602863`*^9}, {3.5681129663080225`*^9, 3.5681129699584293`*^9}, {3.568113133789917*^9, 3.568113227936082*^9}, { 3.5681132946885996`*^9, 3.5681133044698167`*^9}, {3.568113502200164*^9, 3.568113507348173*^9}, 3.56811354556824*^9, {3.5681222886191964`*^9, 3.5681222896019983`*^9}, {3.568207424138049*^9, 3.5682074415164795`*^9}, 3.568277923134914*^9, 3.568883508322016*^9, 3.568883588350157*^9, 3.5688836441982546`*^9, {3.5703421313965206`*^9, 3.5703421386505337`*^9}, { 3.570342288098796*^9, 3.5703424924279547`*^9}, 3.5709745658726373`*^9, 3.5709746291463485`*^9, {3.5709747534473667`*^9, 3.5709747617933817`*^9}, { 3.5709749537361183`*^9, 3.570975034747061*^9}, {3.5709751055243855`*^9, 3.5709751213584127`*^9}, {3.5709751694532976`*^9, 3.570975200060551*^9}, { 3.571073358435503*^9, 3.5710734289632273`*^9}, {3.571204792969243*^9, 3.571204820940092*^9}, {3.5712048565705547`*^9, 3.571204860002561*^9}, 3.571204896881026*^9, {3.571204943556308*^9, 3.571204987485985*^9}, 3.5712053579722357`*^9, 3.5712054148187356`*^9, 3.5712055260469313`*^9, { 3.571205631237916*^9, 3.5712056608311677`*^9}, {3.571206377683627*^9, 3.5712064172296963`*^9}, {3.571206525727887*^9, 3.571206547427525*^9}, { 3.5712066764397516`*^9, 3.5712067106974115`*^9}, {3.571206757949895*^9, 3.5712067585114956`*^9}, {3.5712073458681273`*^9, 3.571207357053347*^9}, { 3.5712075532392917`*^9, 3.5712076608170805`*^9}, {3.571208007434089*^9, 3.571208247690111*^9}, {3.571208301057805*^9, 3.5712083308850574`*^9}, { 3.571208811958702*^9, 3.571208871488407*^9}, {3.5712089993618317`*^9, 3.5712089996582317`*^9}, {3.5712091105588264`*^9, 3.571209160744115*^9}, { 3.5712092989135575`*^9, 3.5712093003643603`*^9}, {3.571209369940482*^9, 3.5712093926073227`*^9}, {3.5712094586578383`*^9, 3.5712094836958823`*^9}, {3.5712104228175316`*^9, 3.571210434267952*^9}, 3.571210475358424*^9, 3.5712108629099045`*^9, {3.571210903969177*^9, 3.5712109929361334`*^9}, {3.5712110295961976`*^9, 3.5712110392214146`*^9}, {3.571211240071767*^9, 3.5712112940946617`*^9}, { 3.571211404496056*^9, 3.5712114190976815`*^9}, {3.5712115264882703`*^9, 3.5712115363942876`*^9}, {3.571211575924757*^9, 3.5712116183724318`*^9}, { 3.5712116597281046`*^9, 3.571211695062166*^9}, {3.5712117551222715`*^9, 3.5712117807531166`*^9}, {3.571211826835598*^9, 3.5712118443232284`*^9}, { 3.571211962540236*^9, 3.5712119670174437`*^9}, 3.5712123580321307`*^9, { 3.5712123994658036`*^9, 3.571212411181424*^9}, {3.5712172605092583`*^9, 3.571217297153723*^9}, {3.571223622762637*^9, 3.57122364145147*^9}, { 3.5712237454256525`*^9, 3.571223750745262*^9}, {3.571223964808838*^9, 3.571224009097316*^9}, {3.57122674689975*^9, 3.5712267784742055`*^9}, { 3.5712269848157682`*^9, 3.57122698582977*^9}, {3.5712270624259043`*^9, 3.5712270629563055`*^9}, {3.571227212438168*^9, 3.571227212999769*^9}, { 3.571227409778515*^9, 3.5712274489969835`*^9}, {3.571227502177477*^9, 3.571227514127098*^9}, {3.57122758356282*^9, 3.5712276390521173`*^9}, 3.5712276745889797`*^9, {3.571227712746647*^9, 3.5712277584703274`*^9}, { 3.5712349496076813`*^9, 3.571234988008148*^9}, {3.5712351855668955`*^9, 3.5712353359043593`*^9}, {3.5712355859883986`*^9, 3.571235653661318*^9}, { 3.5712356890109797`*^9, 3.571235702208603*^9}, {3.5712449764989214`*^9, 3.5712449799309273`*^9}, {3.5712450401778336`*^9, 3.571245051456653*^9}, { 3.5712450868687153`*^9, 3.5712450934831266`*^9}, {3.571299135517318*^9, 3.571299166342972*^9}, {3.5713069890574045`*^9, 3.5713071726697273`*^9}, { 3.571307301791154*^9, 3.571307304536759*^9}, {3.571307397731323*^9, 3.571307405702937*^9}, {3.571311846659932*^9, 3.5713118507939396`*^9}, { 3.571317129094411*^9, 3.5713171472216425`*^9}, {3.5713172653138494`*^9, 3.5713172753602676`*^9}, {3.5713216932693615`*^9, 3.5713216983081703`*^9}, {3.5713370477995405`*^9, 3.5713370593279605`*^9}, {3.571404339740199*^9, 3.5714046172178864`*^9}, { 3.571404755449729*^9, 3.571404853246301*^9}, {3.571405069743481*^9, 3.571405208989326*^9}, {3.571405268612631*^9, 3.571405277442246*^9}, { 3.5714053796536255`*^9, 3.5714054114932814`*^9}, {3.571405595448805*^9, 3.5714056194884467`*^9}, {3.5714056687221336`*^9, 3.571405677660949*^9}, 3.5714067334520035`*^9, {3.57140676532286*^9, 3.5714067706580687`*^9}, { 3.571406950729185*^9, 3.571406989495253*^9}, {3.5714071848855963`*^9, 3.571407190579606*^9}, 3.5714072350240846`*^9, {3.571412503236558*^9, 3.5714125080413666`*^9}, {3.571412540879424*^9, 3.571412607787942*^9}, { 3.571412668378448*^9, 3.5714128101202965`*^9}, {3.5714128643147917`*^9, 3.571412873862009*^9}, {3.571412908150869*^9, 3.57141290869687*^9}, { 3.571413012374652*^9, 3.5714130213290677`*^9}, {3.571413054603926*^9, 3.5714130713583555`*^9}, 3.5714133323156137`*^9, {3.571730171730853*^9, 3.571730182494872*^9}, {3.5717303501171665`*^9, 3.5717303600855846`*^9}, { 3.5717305482375145`*^9, 3.5717305527147226`*^9}, {3.571760865342704*^9, 3.5717608700695124`*^9}, {3.57176111957635*^9, 3.5717611228835564`*^9}, 3.571761174316847*^9, {3.5717620076459103`*^9, 3.571762008441512*^9}, { 3.571765525077688*^9, 3.571765573718574*^9}, {3.572601603410675*^9, 3.572601639665139*^9}, {3.57260238631365*^9, 3.5726023989340725`*^9}, 3.5726046985809116`*^9, {3.5726052623971024`*^9, 3.572605269729115*^9}, { 3.572606450370389*^9, 3.5726064833176465`*^9}, {3.5726065169513054`*^9, 3.572606523955718*^9}, {3.5726066452459307`*^9, 3.572606662468361*^9}, { 3.5726068118542233`*^9, 3.5726068309330573`*^9}, {3.5726082044218693`*^9, 3.5726082108178806`*^9}, {3.5726129520308228`*^9, 3.5726129692220526`*^9}, {3.5726130228861475`*^9, 3.5726130532750006`*^9}, {3.572624083881504*^9, 3.572624093631521*^9}, { 3.5726247901883445`*^9, 3.572624801233164*^9}, {3.5726249931759005`*^9, 3.572625014937939*^9}, {3.572626882386019*^9, 3.5726268865668263`*^9}, { 3.5726673740642943`*^9, 3.572667386154316*^9}, {3.572707186162225*^9, 3.5727071892978306`*^9}, {3.5727073766385593`*^9, 3.5727073777617617`*^9}, 3.5727091442464643`*^9, 3.572709305488347*^9, {3.5727105300904984`*^9, 3.5727105312605004`*^9}, 3.5727107350904584`*^9, 3.5727108467086544`*^9, 3.572710916331577*^9, {3.5728420867264705`*^9, 3.5728421164913225`*^9}, { 3.572850453192765*^9, 3.5728504884332275`*^9}, {3.5731485879383316`*^9, 3.5731485959879456`*^9}, {3.5731825263710723`*^9, 3.573182535403488*^9}, { 3.5733139065045433`*^9, 3.5733140549856043`*^9}, 3.574655628725462*^9, 3.574657123722888*^9, {3.5746628507577467`*^9, 3.574662854080552*^9}, { 3.5747411461662536`*^9, 3.5747411501130605`*^9}, {3.5747732863761578`*^9, 3.5747733212266192`*^9}, {3.574777246966323*^9, 3.574777607030555*^9}, { 3.5747831833383493`*^9, 3.5747831840715504`*^9}, {3.5747851902662745`*^9, 3.574785199875891*^9}, 3.5748282451644087`*^9, {3.5748534446735983`*^9, 3.5748534455472*^9}, {3.575721474665098*^9, 3.5757215077995567`*^9}, { 3.575721778631632*^9, 3.575721826414516*^9}, {3.576294041353676*^9, 3.576294052289295*^9}, 3.5763392154557486`*^9}], Cell["\<\ (*--------------------------------------------------------------------------*) (* next: \[Pi]-clouds for C=C and C=O, half occ each above and below *)\ \>", "Text", CellChangeTimes->{{3.568108824079547*^9, 3.568109012824279*^9}, { 3.568109558076436*^9, 3.568109588168889*^9}, {3.5681097523435774`*^9, 3.5681097637783976`*^9}, {3.5681100381828794`*^9, 3.5681101616726966`*^9}, {3.5681102015307665`*^9, 3.5681102288464146`*^9}, {3.568110263743676*^9, 3.568110267331682*^9}, { 3.5681103163469687`*^9, 3.5681103268925867`*^9}, {3.5681106443375444`*^9, 3.5681106916368275`*^9}, 3.568110873002746*^9, {3.5681109388660617`*^9, 3.5681110268970165`*^9}, {3.568111092526332*^9, 3.568111123461186*^9}, { 3.5681111884196997`*^9, 3.568111192756508*^9}, {3.5681112268113675`*^9, 3.568111366213212*^9}, {3.568111434946933*^9, 3.568111463354583*^9}, { 3.568111544396725*^9, 3.568111547625931*^9}, {3.5681116856081734`*^9, 3.5681117131422215`*^9}, {3.568111864696488*^9, 3.5681119835998964`*^9}, 3.5681120218355637`*^9, {3.56811206543764*^9, 3.568112066389242*^9}, { 3.568112332369709*^9, 3.5681123404505234`*^9}, {3.568112505935614*^9, 3.56811251481203*^9}, {3.5681125623609133`*^9, 3.568112569006525*^9}, { 3.568112648067464*^9, 3.568112734210815*^9}, {3.568112764443668*^9, 3.5681127697320776`*^9}, {3.5681128018681335`*^9, 3.568112843426607*^9}, { 3.568112884641879*^9, 3.5681128887602863`*^9}, {3.5681129663080225`*^9, 3.5681129699584293`*^9}, {3.568113133789917*^9, 3.568113227936082*^9}, { 3.5681132946885996`*^9, 3.5681133044698167`*^9}, {3.568113502200164*^9, 3.568113507348173*^9}, 3.56811354556824*^9, {3.5681222886191964`*^9, 3.5681222896019983`*^9}, {3.568207424138049*^9, 3.5682074415164795`*^9}, 3.568277923134914*^9, 3.568883508322016*^9, 3.568883588350157*^9, 3.5688836441982546`*^9, {3.5703421313965206`*^9, 3.5703421386505337`*^9}, { 3.570342288098796*^9, 3.5703424924279547`*^9}, 3.5709745658726373`*^9, 3.5709746291463485`*^9, {3.5709747534473667`*^9, 3.5709747617933817`*^9}, { 3.5709749537361183`*^9, 3.570975034747061*^9}, {3.5709751055243855`*^9, 3.5709751213584127`*^9}, {3.5709751694532976`*^9, 3.570975200060551*^9}, { 3.571073358435503*^9, 3.5710734289632273`*^9}, {3.571204792969243*^9, 3.571204820940092*^9}, {3.5712048565705547`*^9, 3.571204860002561*^9}, 3.571204896881026*^9, {3.571204943556308*^9, 3.571204987485985*^9}, 3.5712053579722357`*^9, 3.5712054148187356`*^9, 3.5712055260469313`*^9, { 3.571205631237916*^9, 3.5712056608311677`*^9}, {3.571206377683627*^9, 3.5712064172296963`*^9}, {3.571206525727887*^9, 3.571206547427525*^9}, { 3.5712066764397516`*^9, 3.5712067106974115`*^9}, {3.571206757949895*^9, 3.5712067585114956`*^9}, {3.5712073458681273`*^9, 3.571207357053347*^9}, { 3.5712075532392917`*^9, 3.5712076608170805`*^9}, {3.571208007434089*^9, 3.571208247690111*^9}, {3.571208301057805*^9, 3.5712083308850574`*^9}, { 3.571208811958702*^9, 3.571208871488407*^9}, {3.5712089993618317`*^9, 3.5712089996582317`*^9}, {3.5712091105588264`*^9, 3.571209160744115*^9}, { 3.5712092989135575`*^9, 3.5712093003643603`*^9}, {3.571209369940482*^9, 3.5712093926073227`*^9}, {3.5712094586578383`*^9, 3.5712094836958823`*^9}, {3.5712104228175316`*^9, 3.571210434267952*^9}, 3.571210475358424*^9, 3.5712108629099045`*^9, {3.571210903969177*^9, 3.5712109929361334`*^9}, {3.5712110295961976`*^9, 3.5712110392214146`*^9}, {3.571211240071767*^9, 3.5712112940946617`*^9}, { 3.571211404496056*^9, 3.5712114190976815`*^9}, {3.5712115264882703`*^9, 3.5712115363942876`*^9}, {3.571211575924757*^9, 3.5712116183724318`*^9}, { 3.5712116597281046`*^9, 3.571211695062166*^9}, {3.5712117551222715`*^9, 3.5712117807531166`*^9}, {3.571211826835598*^9, 3.5712118443232284`*^9}, { 3.571211962540236*^9, 3.5712119670174437`*^9}, 3.5712123580321307`*^9, { 3.5712123994658036`*^9, 3.571212411181424*^9}, {3.5712172605092583`*^9, 3.571217297153723*^9}, {3.571223622762637*^9, 3.57122364145147*^9}, { 3.5712237454256525`*^9, 3.571223750745262*^9}, {3.571223964808838*^9, 3.571224009097316*^9}, {3.57122674689975*^9, 3.5712267784742055`*^9}, { 3.5712269848157682`*^9, 3.57122698582977*^9}, {3.5712270624259043`*^9, 3.5712270629563055`*^9}, {3.571227212438168*^9, 3.571227212999769*^9}, { 3.571227409778515*^9, 3.5712274489969835`*^9}, {3.571227502177477*^9, 3.571227514127098*^9}, {3.57122758356282*^9, 3.5712276390521173`*^9}, 3.5712276745889797`*^9, {3.571227712746647*^9, 3.5712277584703274`*^9}, { 3.5712349496076813`*^9, 3.571234988008148*^9}, {3.5712351855668955`*^9, 3.5712353359043593`*^9}, {3.5712355859883986`*^9, 3.571235653661318*^9}, { 3.5712356890109797`*^9, 3.571235702208603*^9}, {3.5712449764989214`*^9, 3.5712449799309273`*^9}, {3.5712450401778336`*^9, 3.571245051456653*^9}, { 3.5712450868687153`*^9, 3.5712450934831266`*^9}, {3.571299135517318*^9, 3.571299166342972*^9}, {3.5713069890574045`*^9, 3.5713071726697273`*^9}, { 3.571307301791154*^9, 3.571307304536759*^9}, {3.571307397731323*^9, 3.571307405702937*^9}, {3.571311846659932*^9, 3.5713118507939396`*^9}, { 3.571317129094411*^9, 3.5713171472216425`*^9}, {3.5713172653138494`*^9, 3.5713172753602676`*^9}, {3.5713216932693615`*^9, 3.5713216983081703`*^9}, {3.5713370477995405`*^9, 3.5713370593279605`*^9}, {3.571404339740199*^9, 3.5714046172178864`*^9}, { 3.571404755449729*^9, 3.571404853246301*^9}, {3.571405069743481*^9, 3.571405208989326*^9}, {3.571405268612631*^9, 3.571405277442246*^9}, { 3.5714053796536255`*^9, 3.5714054114932814`*^9}, {3.571405595448805*^9, 3.5714056194884467`*^9}, {3.5714056687221336`*^9, 3.571405677660949*^9}, 3.5714067334520035`*^9, {3.57140676532286*^9, 3.5714067706580687`*^9}, { 3.571406950729185*^9, 3.571406989495253*^9}, {3.5714071848855963`*^9, 3.571407190579606*^9}, 3.5714072350240846`*^9, {3.571412503236558*^9, 3.5714125080413666`*^9}, {3.571412540879424*^9, 3.571412607787942*^9}, { 3.571412668378448*^9, 3.5714128101202965`*^9}, {3.5714128643147917`*^9, 3.571412873862009*^9}, {3.571412908150869*^9, 3.57141290869687*^9}, { 3.571413012374652*^9, 3.5714130213290677`*^9}, {3.571413054603926*^9, 3.5714130713583555`*^9}, 3.5714133323156137`*^9, {3.571730171730853*^9, 3.571730182494872*^9}, {3.5717303501171665`*^9, 3.5717303600855846`*^9}, { 3.5717305482375145`*^9, 3.5717305527147226`*^9}, {3.571760865342704*^9, 3.5717608700695124`*^9}, {3.57176111957635*^9, 3.5717611228835564`*^9}, 3.571761174316847*^9, {3.5717620076459103`*^9, 3.571762008441512*^9}, { 3.571765525077688*^9, 3.571765573718574*^9}, {3.572601603410675*^9, 3.572601639665139*^9}, {3.57260238631365*^9, 3.5726023989340725`*^9}, 3.5726046985809116`*^9, {3.5726052623971024`*^9, 3.572605269729115*^9}, { 3.572606450370389*^9, 3.5726064833176465`*^9}, {3.5726065169513054`*^9, 3.572606523955718*^9}, {3.5726066452459307`*^9, 3.572606662468361*^9}, { 3.5726068118542233`*^9, 3.5726068309330573`*^9}, {3.5726082044218693`*^9, 3.5726082108178806`*^9}, {3.5726129520308228`*^9, 3.5726129692220526`*^9}, {3.5726130228861475`*^9, 3.5726130532750006`*^9}, {3.572624083881504*^9, 3.572624093631521*^9}, { 3.5726247901883445`*^9, 3.572624801233164*^9}, {3.5726249931759005`*^9, 3.572625014937939*^9}, {3.572626882386019*^9, 3.5726268865668263`*^9}, { 3.5726673740642943`*^9, 3.572667386154316*^9}, {3.572707186162225*^9, 3.5727071892978306`*^9}, {3.5727073766385593`*^9, 3.5727073777617617`*^9}, 3.5727091442464643`*^9, 3.572709305488347*^9, {3.5727105300904984`*^9, 3.5727105312605004`*^9}, 3.5727107350904584`*^9, 3.5727108467086544`*^9, 3.572710916331577*^9, {3.5728420867264705`*^9, 3.5728421164913225`*^9}, { 3.572850453192765*^9, 3.5728504884332275`*^9}, {3.5731485879383316`*^9, 3.5731485959879456`*^9}, {3.5731825263710723`*^9, 3.573182535403488*^9}, { 3.5733139065045433`*^9, 3.5733140549856043`*^9}, {3.574655628725462*^9, 3.5746556677099304`*^9}, {3.574782364321311*^9, 3.574782366817315*^9}, { 3.5747823996553726`*^9, 3.5747824011997757`*^9}, {3.574851478943345*^9, 3.574851501984586*^9}}], Cell[CellGroupData[{ Cell[BoxData[ RowBox[{ RowBox[{"(*", RowBox[{"connc", "=", RowBox[{"Join", "[", RowBox[{ RowBox[{"Table", "[", RowBox[{ RowBox[{"Take", "[", RowBox[{ RowBox[{"conn", "[", RowBox[{"[", RowBox[{"conj", "[", RowBox[{"[", "i", "]"}], "]"}], "]"}], "]"}], ",", "3"}], "]"}], ",", RowBox[{"{", RowBox[{"i", ",", "1", ",", "nj"}], "}"}]}], "]"}], ",", RowBox[{"Table", "[", RowBox[{ RowBox[{"Drop", "[", RowBox[{ RowBox[{"coco", "[", RowBox[{"[", "i", "]"}], "]"}], ",", RowBox[{"{", RowBox[{"1", ",", "1"}], "}"}]}], "]"}], ",", RowBox[{"{", RowBox[{"i", ",", "1", ",", "oj"}], "}"}]}], "]"}], ",", RowBox[{"Table", "[", RowBox[{ RowBox[{"Drop", "[", RowBox[{ RowBox[{"coco", "[", RowBox[{"[", "i", "]"}], "]"}], ",", RowBox[{"{", RowBox[{"2", ",", "2"}], "}"}]}], "]"}], ",", RowBox[{"{", RowBox[{"i", ",", "1", ",", "oj"}], "}"}]}], "]"}]}], "]"}]}], "*)"}], "\[IndentingNewLine]", RowBox[{ RowBox[{ RowBox[{"connc", "=", RowBox[{"{", RowBox[{ RowBox[{"{", RowBox[{"8", ",", "4", ",", "9"}], "}"}], ",", RowBox[{"{", RowBox[{"3", ",", "8", ",", "9"}], "}"}], ",", RowBox[{"{", RowBox[{"1", ",", "2", ",", "5"}], "}"}], ",", RowBox[{"{", RowBox[{"1", ",", "7", ",", "5"}], "}"}], ",", RowBox[{"{", RowBox[{"3", ",", "5", ",", "12"}], "}"}]}], "}"}]}], ";"}], "\[IndentingNewLine]", RowBox[{"cj", "=", RowBox[{"Length", "[", "connc", "]"}]}], "\[IndentingNewLine]", RowBox[{ RowBox[{"tpo", "=", RowBox[{"Table", "[", RowBox[{ RowBox[{"{", RowBox[{"0", ",", "0", ",", "0"}], "}"}], ",", RowBox[{"{", "cj", "}"}]}], "]"}]}], ";"}], "\[IndentingNewLine]", RowBox[{ RowBox[{"tpu", "=", "tpo"}], ";"}], "\[IndentingNewLine]", RowBox[{ RowBox[{"t1", "=", RowBox[{"Table", "[", RowBox[{ RowBox[{"Join", "[", RowBox[{ RowBox[{"t", "[", RowBox[{"[", "i", "]"}], "]"}], ",", RowBox[{"{", "1", "}"}]}], "]"}], ",", RowBox[{"{", RowBox[{"i", ",", "1", ",", "n"}], "}"}]}], "]"}]}], ";"}], " "}]}]], "Input", CellChangeTimes->{{3.574782409030989*^9, 3.5747824335386324`*^9}, { 3.57478246631429*^9, 3.5747824836615205`*^9}, {3.574782729892353*^9, 3.574782734509961*^9}, {3.5747827728236284`*^9, 3.574782822150915*^9}, { 3.574782939494321*^9, 3.574782974048382*^9}, {3.5747830324548845`*^9, 3.574783065448942*^9}, {3.574783361818263*^9, 3.5747833666074715`*^9}, { 3.574783407073942*^9, 3.574783441097602*^9}, {3.574783484762079*^9, 3.5747834849804792`*^9}, 3.574783557801407*^9, {3.5747836107946997`*^9, 3.5747836636631927`*^9}, {3.574783719464491*^9, 3.574783731414112*^9}, { 3.574783780975399*^9, 3.5747838001946325`*^9}, {3.574783898490405*^9, 3.5747839481764927`*^9}, {3.5747840180958157`*^9, 3.5747840270034313`*^9}, {3.574784153800454*^9, 3.5747841712568846`*^9}, { 3.5747854335799017`*^9, 3.5747854339543023`*^9}, 3.5747867930286894`*^9, { 3.5747868591884055`*^9, 3.574786865865217*^9}, 3.574787046575935*^9, { 3.574787368045699*^9, 3.574787376922115*^9}, 3.5747874778074923`*^9, { 3.5747875111447506`*^9, 3.5747875582880335`*^9}, {3.5747875958996997`*^9, 3.574787678221044*^9}, 3.574787726456329*^9, {3.574787774847614*^9, 3.5747877758148155`*^9}, 3.5747879836695805`*^9, {3.574788032310466*^9, 3.574788047239692*^9}, {3.5747881733035135`*^9, 3.574788204831169*^9}, { 3.574828128133003*^9, 3.5748281291938047`*^9}, {3.57482825168522*^9, 3.574828270452053*^9}, 3.574828314724931*^9, {3.5748306212357817`*^9, 3.574830621703783*^9}, {3.5753559894421577`*^9, 3.575356014137001*^9}, { 3.5753561901365104`*^9, 3.575356206251339*^9}, {3.575375584885363*^9, 3.575375598753787*^9}, {3.5753756763015237`*^9, 3.5753756873931427`*^9}, { 3.575562289422053*^9, 3.575562298189268*^9}, {3.5755628657806654`*^9, 3.5755629193667593`*^9}, {3.575563069579423*^9, 3.5755630812326436`*^9}, 3.5755632175768833`*^9, 3.575563562493489*^9, {3.5755643314188395`*^9, 3.575564336426448*^9}, {3.5755649483375225`*^9, 3.575564954156333*^9}, { 3.5755653205385766`*^9, 3.5755653215213785`*^9}, 3.5762940918509645`*^9, { 3.5762951549460316`*^9, 3.5762951818248787`*^9}, 3.576339112105567*^9}], Cell[BoxData["5"], "Output", CellChangeTimes->{ 3.5763887592244215`*^9, 3.5763922792682047`*^9, 3.5763923946928077`*^9, 3.576392693838933*^9, 3.5763932057850323`*^9, 3.5763933767769327`*^9, { 3.5764057813828816`*^9, 3.5764057918505*^9}, 3.57641967835573*^9, 3.576469334593249*^9, 3.576469800363267*^9, {3.5764703128241673`*^9, 3.576470369093466*^9}, {3.576470407797134*^9, 3.576470457639221*^9}, 3.5764704884492755`*^9, 3.5764707839761944`*^9, 3.58020901947173*^9}] }, Open ]], Cell[BoxData[ RowBox[{"<<", " ", "C:\\\\Kimb_Mathem\\\\PItransformation.m"}]], "Input", CellChangeTimes->{{3.575816054798004*^9, 3.5758160989148817`*^9}, 3.5758162991256332`*^9}], Cell[CellGroupData[{ Cell[BoxData[ RowBox[{"\[IndentingNewLine]", RowBox[{ RowBox[{"MatrixForm", "[", RowBox[{"Table", "[", RowBox[{ RowBox[{"Join", "[", RowBox[{ RowBox[{"{", "i", "}"}], ",", RowBox[{"{", RowBox[{"u", "[", RowBox[{"[", "i", "]"}], "]"}], "}"}], ",", RowBox[{"t", "[", RowBox[{"[", "i", "]"}], "]"}]}], "]"}], ",", RowBox[{"{", RowBox[{"i", ",", "1", ",", "n"}], "}"}]}], "]"}], "]"}], "\[IndentingNewLine]", 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.572794697520533*^9, 3.5727947043221455`*^9}, { 3.5727948024151173`*^9, 3.572794803507119*^9}, {3.5727948673580313`*^9, 3.572794869838436*^9}, {3.572795260993526*^9, 3.5727952676703377`*^9}, { 3.5727954366342344`*^9, 3.5727954702834935`*^9}, {3.5727973545484033`*^9, 3.5727973657024226`*^9}, {3.572803225319809*^9, 3.572803264553878*^9}, { 3.57280330550395*^9, 3.5728033127111626`*^9}, 3.5728033508376293`*^9, 3.5731486865617046`*^9, {3.5731490505259438`*^9, 3.573149068278775*^9}, { 3.573149110008848*^9, 3.573149243825884*^9}, {3.5731493138232064`*^9, 3.5731493450700617`*^9}, {3.574658310026972*^9, 3.5746585452285843`*^9}, { 3.574659591943223*^9, 3.5746596938582015`*^9}, {3.574664442038542*^9, 3.574664456640167*^9}, {3.5747841177643905`*^9, 3.574784120931196*^9}, { 3.574788295155328*^9, 3.5747883150453625`*^9}, {3.5748281376022196`*^9, 3.5748281378830204`*^9}, {3.5748343592063475`*^9, 3.574834363948756*^9}, { 3.5753654533402643`*^9, 3.575365496287139*^9}, {3.5753657782732344`*^9, 3.575365826196519*^9}, {3.575365998186821*^9, 3.575366010152042*^9}, { 3.5755611386860313`*^9, 3.575561149793251*^9}, {3.575561180306905*^9, 3.5755612310849943`*^9}, {3.575561285248289*^9, 3.575561409393307*^9}, { 3.575561440016161*^9, 3.5755615497935534`*^9}, {3.5755616124120636`*^9, 3.575561635437704*^9}, {3.575561892338955*^9, 3.575561942820644*^9}, { 3.5755620823160887`*^9, 3.5755621030173254`*^9}, 3.57556213981779*^9, { 3.5755625665409393`*^9, 3.575562567820142*^9}, {3.5755634654301186`*^9, 3.575563469205325*^9}, {3.5755638765688405`*^9, 3.575564008295472*^9}, { 3.575564213810233*^9, 3.5755642215946465`*^9}, 3.575564866094178*^9, 3.57556519149515*^9, {3.575816288424014*^9, 3.5758162902024174`*^9}}], Cell[BoxData[ TagBox[ RowBox[{"(", "\[NoBreak]", GridBox[{ {"1", "\<\"C\"\>", RowBox[{"-", "1.3767138399951948`"}], "9.136492442760169`", RowBox[{"-", "0.011319882653069602`"}]}, {"2", "\<\"C\"\>", "0.473882316936199`", "6.971834316791755`", "0.0004138948773504403`"}, {"3", "\<\"C\"\>", "1.4237888928831852`", "2.4662159947976874`", "0.00013321484173245413`"}, {"4", "\<\"C\"\>", "0", "0", "0"}, {"5", "\<\"N\"\>", RowBox[{"-", "0.37512028472777914`"}], "4.570605187795081`", "0.0002255030110518419`"}, {"6", "\<\"N\"\>", "0.03463532179801909`", "11.536269141880382`", RowBox[{"-", "0.06288512934630486`"}]}, {"7", "\<\"O\"\>", "2.727290054608442`", "7.390531260134222`", "0.0002804910126465998`"}, {"8", "\<\"O\"\>", RowBox[{"-", "2.2832742569128253`"}], "0", "0"}, {"9", "\<\"O\"\>", "1.268100398919057`", RowBox[{"-", "2.196638994879232`"}], "0"}, {"10", "\<\"H\"\>", RowBox[{"-", "2.5623900210132162`"}], "9.035084825337556`", "1.6699560186170959`"}, {"11", "\<\"H\"\>", RowBox[{"-", "2.559361148898179`"}], "9.019447040476722`", RowBox[{"-", "1.6935183538918448`"}]}, {"12", "\<\"H\"\>", RowBox[{"-", "2.177290252557225`"}], "4.235570185005809`", "0.000388702763330917`"}, {"13", "\<\"H\"\>", "2.6079918797775323`", "2.5754100297558193`", "1.681870261262245`"}, {"14", "\<\"H\"\>", "2.60807719544219`", "2.575506999780597`", RowBox[{"-", "1.681642477037567`"}]}, {"15", "\<\"H\"\>", "1.2127996638427367`", "11.642049687312937`", "1.4557099657339077`"}, {"16", "\<\"H\"\>", RowBox[{"-", "1.1885065866440119`"}], "13.022373661088087`", RowBox[{"-", "0.02925378145732971`"}]}, {"17", "\<\"H\"\>", "1.089414647789555`", "11.621232035852536`", RowBox[{"-", "1.68930758680601`"}]} }, 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.576388759240021*^9, 3.576392279283805*^9, 3.5763923947084074`*^9, 3.576392693854533*^9, 3.576393205800632*^9, 3.5763933767925324`*^9, { 3.5764057813984814`*^9, 3.5764057918661003`*^9}, 3.5764196783713303`*^9, 3.576469334593249*^9, 3.576469800378867*^9, {3.5764703128397675`*^9, 3.576470369109066*^9}, {3.5764704078127337`*^9, 3.5764704576548214`*^9}, 3.5764704884648757`*^9, 3.5764707839917946`*^9, 3.5802090194873304`*^9}] }, Open ]], Cell["\<\ (*-------------------------------------------------------------------------*) (* next: O atoms in C=O, two doubly occ LP *)\ \>", "Text", CellChangeTimes->{{3.573213657265206*^9, 3.5732137071540937`*^9}, { 3.57331351711226*^9, 3.5733135247562733`*^9}, 3.5746557964101562`*^9, { 3.5746643799192324`*^9, 3.5746643831328382`*^9}, 3.5746732567499037`*^9, 3.574740785852421*^9, {3.5749559129781585`*^9, 3.574955914444561*^9}}], Cell[BoxData[ RowBox[{ RowBox[{"k", "=", "1"}], ";"}]], "Input", CellChangeTimes->{{3.573211773936298*^9, 3.5732117775243044`*^9}, { 3.573211816539973*^9, 3.573211838910412*^9}, {3.573211886147295*^9, 3.573211954459815*^9}, {3.5732120794628344`*^9, 3.5732121037052774`*^9}, { 3.5732122844003944`*^9, 3.573212301045624*^9}, {3.5732124220394363`*^9, 3.573212444597076*^9}, {3.5732124755943303`*^9, 3.573212478745536*^9}, { 3.5732125394452424`*^9, 3.573212544234451*^9}, {3.5732125998329487`*^9, 3.5732126277257977`*^9}, 3.5732126684106693`*^9, {3.573212699017923*^9, 3.5732129163887043`*^9}, {3.573312183824718*^9, 3.57331218493232*^9}, 3.574657732950758*^9, {3.5746622177086344`*^9, 3.5746622626523137`*^9}, { 3.5746623611664867`*^9, 3.5746624066249666`*^9}, {3.574662510396349*^9, 3.5746625442640085`*^9}, {3.5746628828158026`*^9, 3.5746629097414503`*^9}, 3.574664223185757*^9, {3.5746695839262524`*^9, 3.574669588512661*^9}, { 3.5746696590715847`*^9, 3.574669659258785*^9}, {3.574682369907935*^9, 3.5746823705943365`*^9}, {3.574682413759612*^9, 3.574682423228829*^9}, { 3.574682475629321*^9, 3.57468248066813*^9}, 3.574682520073799*^9, { 3.5747408251956897`*^9, 3.57474083678651*^9}, {3.5747855534349117`*^9, 3.5747855725761456`*^9}, {3.574785769729292*^9, 3.574785777045705*^9}, 3.574786365775139*^9}], Cell[BoxData[{ RowBox[{ RowBox[{ RowBox[{"Clear", "[", "conn", "]"}], ";"}], "\[IndentingNewLine]", RowBox[{"(*", RowBox[{"conn", "=", RowBox[{"Table", "[", RowBox[{ RowBox[{"Drop", "[", RowBox[{ RowBox[{"coco", "[", RowBox[{"[", "i", "]"}], "]"}], ",", RowBox[{"{", RowBox[{"2", ",", "2"}], "}"}]}], "]"}], ",", RowBox[{"{", RowBox[{"i", ",", "1", ",", "oj"}], "}"}]}], "]"}]}], "*)"}]}], "\n", RowBox[{ RowBox[{"conn", "=", RowBox[{"{", RowBox[{ RowBox[{"{", RowBox[{"3", ",", "8", ",", "9"}], "}"}], ",", RowBox[{"{", RowBox[{"3", ",", "7", ",", "6"}], "}"}]}], "}"}]}], ";"}], "\[IndentingNewLine]", RowBox[{ RowBox[{"oj", "=", RowBox[{"Length", "[", "conn", "]"}]}], ";"}]}], "Input", CellChangeTimes->{{3.573211773936298*^9, 3.5732117775243044`*^9}, { 3.573211816539973*^9, 3.573211838910412*^9}, {3.573211886147295*^9, 3.573211954459815*^9}, {3.5732120794628344`*^9, 3.5732121037052774`*^9}, { 3.5732122844003944`*^9, 3.573212301045624*^9}, {3.5732124220394363`*^9, 3.573212444597076*^9}, {3.5732124755943303`*^9, 3.573212478745536*^9}, { 3.5732125394452424`*^9, 3.573212544234451*^9}, {3.5732125998329487`*^9, 3.5732126277257977`*^9}, 3.5732126684106693`*^9, {3.573212699017923*^9, 3.5732129163887043`*^9}, {3.573312183824718*^9, 3.57331218493232*^9}, 3.574657732950758*^9, {3.5746622177086344`*^9, 3.5746622626523137`*^9}, { 3.5746623611664867`*^9, 3.5746624066249666`*^9}, {3.574662510396349*^9, 3.5746625442640085`*^9}, {3.5746628828158026`*^9, 3.5746629097414503`*^9}, 3.574664223185757*^9, {3.5746695839262524`*^9, 3.574669588512661*^9}, { 3.5746696590715847`*^9, 3.574669659258785*^9}, {3.574682369907935*^9, 3.5746823705943365`*^9}, {3.574682413759612*^9, 3.574682423228829*^9}, { 3.574682475629321*^9, 3.57468248066813*^9}, 3.574682520073799*^9, { 3.5747408251956897`*^9, 3.57474083678651*^9}, {3.5747855534349117`*^9, 3.5747855725761456`*^9}, {3.574785769729292*^9, 3.574785777045705*^9}, { 3.574786365775139*^9, 3.574786374511154*^9}, {3.5753558083414397`*^9, 3.5753558395570946`*^9}, {3.575367002641385*^9, 3.575367023202221*^9}, { 3.5753671931957197`*^9, 3.575367224473775*^9}, {3.575367534103119*^9, 3.575367537769125*^9}, {3.57537552033245*^9, 3.5753755271184616`*^9}, 3.5762941710679035`*^9, {3.57629509713233*^9, 3.576295102124339*^9}, { 3.5763386006742687`*^9, 3.5763386140746927`*^9}}], Cell[CellGroupData[{ Cell[BoxData[{ RowBox[{ RowBox[{"rlo", " ", "=", " ", "1.125"}], ";"}], "\[IndentingNewLine]", RowBox[{ RowBox[{"tplo", "=", RowBox[{"Table", "[", RowBox[{ RowBox[{"{", RowBox[{"0", ",", "0", ",", "0"}], "}"}], ",", RowBox[{"{", "oj", "}"}]}], "]"}]}], ";"}], "\[IndentingNewLine]", RowBox[{ RowBox[{"tplu", "=", RowBox[{"Table", "[", RowBox[{ RowBox[{"{", RowBox[{"0", ",", "0", ",", "0"}], "}"}], ",", RowBox[{"{", "oj", "}"}]}], "]"}]}], ";"}], "\[IndentingNewLine]", RowBox[{ RowBox[{"Okk", "=", RowBox[{"{", RowBox[{ RowBox[{"{", RowBox[{"1", ",", "1", ",", "1"}], "}"}], ",", RowBox[{"{", RowBox[{ RowBox[{"-", "1"}], ",", RowBox[{"-", "1"}], ",", "1"}], "}"}]}], "}"}]}], ";"}], "\[IndentingNewLine]", RowBox[{ RowBox[{"Okl", "=", RowBox[{"{", RowBox[{ RowBox[{"{", RowBox[{"1", ",", "1", ",", "1"}], "}"}], ",", RowBox[{"{", RowBox[{ RowBox[{"-", "1"}], ",", RowBox[{"-", "1"}], ",", "1"}], "}"}]}], "}"}]}], ";"}], "\[IndentingNewLine]", RowBox[{"<<", " ", "\"\\"", " ", RowBox[{"(*", RowBox[{"LPOtransformation", ".", "m"}], "*)"}]}]}], "Input", CellChangeTimes->{{3.573211773936298*^9, 3.5732117775243044`*^9}, { 3.573211816539973*^9, 3.573211838910412*^9}, {3.573211886147295*^9, 3.573211954459815*^9}, {3.5732120794628344`*^9, 3.5732121037052774`*^9}, { 3.5732122844003944`*^9, 3.573212301045624*^9}, {3.5732124220394363`*^9, 3.573212444597076*^9}, {3.5732124755943303`*^9, 3.573212478745536*^9}, { 3.5732125394452424`*^9, 3.573212544234451*^9}, {3.5732125998329487`*^9, 3.5732126277257977`*^9}, 3.5732126684106693`*^9, {3.573212699017923*^9, 3.5732129163887043`*^9}, {3.573312183824718*^9, 3.57331218493232*^9}, 3.574657732950758*^9, {3.5746622177086344`*^9, 3.5746622626523137`*^9}, { 3.5746623611664867`*^9, 3.5746624066249666`*^9}, {3.574662510396349*^9, 3.5746625442640085`*^9}, {3.5746628828158026`*^9, 3.5746629097414503`*^9}, 3.574664223185757*^9, {3.5746695839262524`*^9, 3.574669588512661*^9}, { 3.5746696590715847`*^9, 3.574669659258785*^9}, {3.574682369907935*^9, 3.5746823705943365`*^9}, {3.574682413759612*^9, 3.574682423228829*^9}, { 3.574682475629321*^9, 3.57468248066813*^9}, 3.574682520073799*^9, { 3.5747408251956897`*^9, 3.57474083678651*^9}, {3.5747855534349117`*^9, 3.5747855725761456`*^9}, {3.574785769729292*^9, 3.574785777045705*^9}, 3.574786365775139*^9, {3.5753484863633204`*^9, 3.5753485008089457`*^9}, 3.5757146385303354`*^9, {3.575816415969838*^9, 3.575816437934677*^9}, { 3.5762941851547284`*^9, 3.5762941859815297`*^9}, 3.5763386482543526`*^9, { 3.576338932018851*^9, 3.5763389472756777`*^9}, 3.5763389860105457`*^9, { 3.576339036133434*^9, 3.5763390501422586`*^9}, {3.576339313470721*^9, 3.5763393632192087`*^9}, {3.576339401018075*^9, 3.576339405120882*^9}, { 3.57633943825534*^9, 3.5763394406577444`*^9}}], Cell[BoxData[ RowBox[{"{", RowBox[{ Graphics3DBox[{ {RGBColor[1, NCache[ Rational[1, 3], 0.3333333333333333], NCache[ Rational[1, 3], 0.3333333333333333]], Opacity[0.5], SphereBox[{-1.1582587578201309`, -0.5981718899555274, 0}, 1.125]}, {RGBColor[1, NCache[ Rational[1, 3], 0.3333333333333333], NCache[ Rational[1, 3], 0.3333333333333333]], Opacity[0.5], SphereBox[{0.06110370388227701, 1.3021671541595061`, 0}, 1.125]}, {Opacity[0.5], SphereBox[{4.452475552691745, 0, 0}, 0.2572]}, {Opacity[0.5], SphereBox[{0, 0, 0}, 0.1786]}, {Opacity[0.5], SphereBox[{1.7401070038671986`, -3.7959863586426894`, 0}, 0.1786]}, Text3DBox[ FormBox["3", StandardForm], {4.452475552691745, 0, 0}, {1, 0}], Text3DBox[ FormBox["8", StandardForm], {0, 0, 0}, {1, 0}], Text3DBox[ FormBox["9", StandardForm], { 1.7401070038671986`, -3.7959863586426894`, 0}, {1, 0}], TubeBox[{{4.452475552691745, 0, 0}, {0, 0, 0}}, 0.02], TubeBox[{{4.452475552691745, 0, 0}, { 1.7401070038671986`, -3.7959863586426894`, 0}}, 0.02], TubeBox[{{0, 0, 0}, {1.7401070038671986`, -3.7959863586426894`, 0}}, 0.02]}, AspectRatio->Automatic, Axes->Automatic, AxesLabel->{ FormBox["xl", TraditionalForm], FormBox["yl", TraditionalForm], FormBox["zl", TraditionalForm]}, Boxed->False, PlotRange->Automatic, SphericalRegion->True, ImageCache->GraphicsData["CompressedBitmap", "\<\ eJzde2d4XNd55huQEmVJlmRZsqxYjmUnsddrex3HsdNs2etkrX2y8ZOsI7GL IggQlQRJsBdZzaGJDswMpqAD7ARBAmIHOwgCIEDUQRv03ntnAWffc++5MwNo QGn32fwJnufDvXNn5p7zvt93vu/9zgV+47nNb/1Gz23+Xp6vvxnsudnP32vr 67/eFMxLi/4IwFla8usQ53aeyl9nYbfbxZv/Hw+blMMiKAPwTNjX3Fz7s/+n j28Uh8XijZccZx6Osz93+ZDL98XP/HuKn2+rZ0Hi4CEuvOY4++y33E38WeX3 E5iZmcHNmzexdOlSxMTEYGJiAk8vDGqfcliC3t5ehISEICgoCOfPn0dtba1y Cy8vL/xI/ehu5fDMnBHefPNNlJaWoqGhwfFafF3cSlz/C/WrO5TD05/6qvho VlYWdu3apXxidHRUTNhDzle8/PDDDxUMP1TvtE3CdJ3v4cOH0drayi+oXxMf 12AultfEqAKLePXf1Fv9nYNW+U3tRyHqWYdnv6G8+aRb3Bzqi3IEMQtxSbz6 gXq/v3fjeI8FfTf3c69Jx7ijTAwljs+78CTeF8Dl0D+TPLkOo936eTdTeNUN r8IrglePecOIa8/Ja+KzYlqC2/9L1M+5ufbyAlwLtET3svSppF4hgh/7/qcc +sQch2rnL7gZ8UU360Yb0UMM8Kobkr+n3vKXbu73jJyi6zX+uA4jZu3Kr7u4 /aqbuP2v6s1+4YD5nOPshcfz9k2XGBVvi1ffVe+25jFxpi3Nb0lM4jPp6ekK Nt5V3mH1PGjiDo+D9rq8m0gx4nNiFEKUd1vhBon4kUi+5wbJd9RvLlUOTzm+ qYWm+GZnZ6dyp8HBwe+78ae8w186+HzdZRbzMfELP3LjnWccCeMV9W4/ch8J ry0AUAzDW//EDcBn3Kyoxw+iBu0X3HIhAGsTF+d/JW8h8InPSFIWO/Asnje8 sK88dvhXHk+fFhXC81pk/MQNpfPzojNDLDTwS/IbruRqKd41Bn/+OVj+7NG+ 5MKySEnzWRbvahh/4Sbsnnocey7R6G51u9D5P+StxbCaU59yfFnNJPjvC2QI UV/5xV+75H/NY9qyc6YZNYvhDRfcWsGYj1vgLCoqwq/luGJM7X0XDtzVIvWa LGEL1t1/mRcw4sbPuSGUptxedS/+9jH5TgBPSkrCb12iQ1wXr77oIGGRmymr CktdFcrwX3fhcz497pLiM47b/4ObQPlcg7/iJkv88QLJRpw76umTjq+0t/ej Mt+Guls29DUO/HxeZpA0L1Di3NV4ObUXPkcu+cJCxUsrEMr5Sw5/ktxTsdm4 E3cTlSk3UGq+hHFO/2dychq50odPOxj0cJy5yD7n+serbmb45QW8KRaghsg1 mb0oEc1jCLeSG9CU1YHe7A60XKhDRVq2XExz/e1OqDy98PQWqv7iyNdfW2A2 eekjKDkxib4LPRi4WIvKi6WONCWK85xVpTD2rEuYfzoAnv8MP2ppQZx/TVI+ f043MgbQkDOG1toZVJdPoLu4Cr0FdZgtrnEkbXF/4QVx39dcYt+piVxcJSah NQjfcrr+WfS0jCOD/ii41ILrRSMoLmjE6Mi48vX+STse9t1Ha2kH7LZu9BfV /q3ELPKDWA/SVSoO2U19OquIXCUCQ8zg2/IOHW2TsFYOIOVQK3qHJp+QE24Z sWN66BFykvJhbx/DTHUt/saNN9QljW8u4HNJtrsc8215bfC+sx/QStDIsB29 OZWY7b2H2Za2n7rJgE/MLwPfkB9y7Rk8xDx/KN8o7XYOpCWN9iE72go70ZRd g7ELeT92E/2L3YeXWm2lx596bJTR2docMq7bMTvcrLzSykNZlx3WnEH05Nrw 4E7FX8jLGg7J9KLHTuPVBTKrnMZfyeGtRf0Ye6h++UvyhoNTnFLvDNpKWmGv bv+BvKxVSMn544d/xSXgXPs1EXCipOfl5UFzYvWg0w1aJmsbtWNmkNEWfxv2 1hFMVtTie2584fHYWbws7yZmMY+AOV2jlhs1kZd5a3Re9n8C1vZHGBVReK0U sz3TmG1slj3KE3PiX8sU7srN867TWqSQoVW7n8lrhYWTjo//sQTXxZhsz2/B vcFZDH6S+x152TX454W+U17NL8jq1BxvLHZMQsyf51p33DDqdMrX5UetXC/W vEF037DhXu7db0n0rtJS84sUpkvcu2eJjA7XyyJxiR9NOGoTuVDBaJzoUV5p rdkQI/RR9zQ6iprwyNqk7YCIXR6pORW3Spe8JIedu4viLLYLze/JOZfFvMQP B9B8ZbU+wL2H95VXfyrJ6BizK366YsmBvWkQYyW1jkTk6rAvfw6Cnpx/Wdsx 0ypN+6TTSX+uxSmdNM447blUhEddU3hQ1yBz0twdksdPwJlMFznO5qVrh4Ou 2RzXvivv1sOI7chtwP2BhywW3a+6z2AvfvYU5gWJMHETLVA0cXIopc3x/vfl 7Wp67ajK60fHFRumrhVqokCsVRGx0hmfWjBLnHjVGWgLRIwnCNTI75lxzumH 8uYj0wzMzkl0FNRjttSmLXRX3r/0WStU2JzgFBMQjMm2Shs/v8U5/l9K53eN 2xXOa4q7YK/vxUBRrVquNEna0T6AzPQ8JIWcwdWUPNRm1zLMnLPUstgLj3WN WgGf+lR4autYUEU3ad45dnqGS7hbefUTOdNqemeSYdp15g4edUzgXo1NMrEE pYW1yu2ydBdwPTIbt6OykRd+AVWpN6VPVJGlbQbLySpvLXFS6n5+2jomSk1M Dj1wMqlKmmfRx7l15tTgQf8D9OSV4KjxnJqrY8tQkliFqrQqVKaVwxp3Hd0F ZZom0Iqk9LZM+E86XTBX0z9uouJHpNTBwUFtoq6C5e+dcboEh3YW4vbHRag6 3o+GUwOoy+yE9WQlGq/muHWvc/Pkyc/h6CWfmp+2BsX9tF3GIwfL5uWGL6Ay r17NW0HlyEqYQXnWBJouTKP+4gisl5phPXteDj03O85vw1xm+oSbt9zVWo8F pi5Wk4gBkQe0qY8/dPKq7NKym7lxsBLJhmpEblCDMS99FNZzo6jLHobtWh+s t5rR29qhzV5jRNx+/hTViHfO/kk3kbDYTcYRe5niXHN/9YBzmj+V37Jyheen d+P06XaU591fJAMi3dyKK8c6cedMJ0ovt6E0twllBbUYGx52+FpkYsGEDAp3 s17sEr/uUpT6hrNOaUVcxC3D/3vSB9W5BbDRGmhNtBZaK62Npj2fyMxj6pwe VF79WMvVRTYUZ48jLaqAxdauVYTuhlEkHKjG0WQbzmXacPkqjVp5ZHTS8Szp cdH0+ZE9MQeZyDfCH/9FufIM3d+Oa0cycOJADDJpF2hXaTm0PNod2l1aCc0D ZfxNXcXPdxO2uu7Vwa1Fo5h++FB5pYn9T8zXUV7wAMfjalDZaNdg5RcOoLhq AKX1A45Halp10Z7uLLQi5kBeQHI4AYs7CsAisNXO7MsOwMcJ5RTtLO0y7aYE XCTBVtCqaLW0Olo9rUEexbU+EqCBbxxzBrVWui8l3sHRVBsKMnpR1mHX9KeY iovMdpbrBUE5ZYwrIVoLoEqmr+BCXCqOcVoC1mnaedoV6ccCWjGtXEKySSjN tFZae0gMOmid8iiudZGiidZ2LbY+ud7qmJMmkHIO1yEjvR4lVybQO2b/E0m+ EAjzdj61jZXHIZznaDU+v4pzUUYHLuGuc25wCVfVSDc10doEjtAYdNN6w+gq Wr+wcPXYE6Zinmpt14YuuevslhwqlGnpzul+vL/3OioKH6KLSlXbEhDx6irT Zex+waUSzVNi35Hxd/b3oQ5AGfPiL18BpCMgHQHpUB+iQ3OoDu20rjAdegWA iBgM0oYjxVIc5W9KNv4e4rXG9/ZjwFqr5QpXaa09X7IVNaD02iQO6QpRWW3/ rpvCqka1VBFf44RDcDB4jzLpk7RPaJc4uRu0vAN6Lhg9I8uA6hAD6kMNnLAB 7WEGdIcb0BdhwGCkHiNReoxF6TAercMkbSo6BtPsA6ZokzwfpVVu3uPIctdq nTP/hpz5WXMOKu7O4nhCA6wt9h+4SZJyIf21cvg6ijMykbLKC4c5e3Vd6Lgu 9MxvBuQeiGVui0XpASOqQoywhRrRFGZEW7gRXRFG9EUaMcjYG4k2YjwmFpO0 aZ0B92j39Xo80OtoMTyPwYyOcfbxfpS9H+pQwscOtePh9LDy6jWJ4EryXRw/ bEPhJ4PoG7Fr2ydi9truiuT+pxJ5R1U1kld54tBqLxz13Yx0zv4Tzjqbs75B yz9gQnGICRWhZtSGmdEQbkZrhAWdkRb0RpkxGG3GSIwZ4zozpvRmzOhNuG8w 4iFtNjYWj2INPOppOhrRGJjxl3mh+USmA0nvPacvviqR3D7WjIxTTSi9OY2e CfvP5876/Md/wKFV63Bk9XocX+2HU++Fcd2ayLuZvJtReMCCstA4VIXFoS48 Ds2RcWiPikd3dDz6Y+IwrIvDmD4Ok4Y4zMTG4X6sBbNGCx4ZzXhkMtGMsJti aQaaDj2796J0pTfylq1zzDrPpbN4SS7oSi7oorPDSA67BWvpI7RP2KV8klN/ HWkr1+LIKm8cW+2L9NUByPLbiYuc7o0DccgLicfd0HhUhCWgJiIBDZEJaI1K QGdMInp1iRjUJ2LUkICJ2ARM0+4bE/DQFI9Zmt0cR7PAbjHTTDRCsMSiaWMw Kt5Zj5KV69B2MlPL8IfirPNK3hJUsuAIEVJHE1kwm3ZNZD9mag92qqIcjbK4 ad8TVl/UjLJbMzhiLEFlnf0fVbBq//JNlJ08jcMc+OgqH/rJHxmrN+DM6iBk ++5hfk1AQWgiSsISURmRBFtkEpqik9AWk4RuXRL69UkYNiRhPDYJU8Yk3DMl 4aE5CbPmRDyyJMIel0Aj8DgCjyfweDOaN++A1dMf1nd9CNoLeSvflTXtZQy7 9C/CBFqRcU7IenZOpskbskwXytxfJvN/JS1xTQTyzrQhOywf5e12vOkK9ytI Wb4GRxgmx1b5EW4gTq/eiHOrN+HKO1twy/89FH5gQFlEMqqiklEfnYKWmBR0 6FPQa0jBYGwKRowpmDClYMacggeWFMxakvEoLpkI4pPYJ9gTiDqBqBPi0caM U+W1EdZ1gbCu9SVib5S8s9ZRwUu65D4A/eWh4PySkluzpAITfr3lpnKf8LEg JfQqLu+5hArzSaXaNYoKzhgY571+7Yr4JRxcsRZHV/oQcQCOr9qAzFWbcGH1 Flx7Jxi3392GwrXbUbYrDNX/bkJDTCpa9WnoNKShLzYNQ8Y0jJnSMGlOwz1L Gh7GpXrgUXyqqOUJKbAnCkvGdLQejb7BsPlsRvX6IFi9NhA1fey53vUB0IkL D2C9dlmCfU5xqwB7UYLNlVLzVPB+ZAZlIE13G9dDclCacNIhUShPPNAdIsqe UCqttGliVh/Nykfsf41upszDK7xwbKUvcQfixKogZK3ajIurg3F9zVbkEfNd zx2o8NqJGu9daFi/C23vRaIrxIJ+0yEMmw9h3HIIU3GHcD/+IGZp9gRaIrn4 fQTGPw5Hp/92tPltQ5PfVtQRfPX6TbB6091eAQpmq6cXuk6fVs5Px2UgO7MQ R7YbHMF8Xors40Sb9V42DJtP4KopX9GVQpi1hKiIu6SAEcJlIFwI8MFwAV+c CxEzaK3FP86FX5Z+GkeWM8hX+JOCDTixchOy6PJL72zFDbo8b+0O3F23ExWE Xktr9NmNNp896OKa7/PbgwG/vRjy34sR2mjAHozRRmhDAbvRH7ALPQE7CX8n 2khBEymo8wtGDX1v9aHvvTeo8Nd5oyczUzk/sfswrqbcQe5Hh3B+txGHgqNx KvwWzHsv4mJawRy500C500Kp00Gp0x2uo3rQUeroFKkzqsid8ShF9PB3DdXC EOH/gyv8b6I8PZPw1xN+AOFvxMmVm/HJqi3IXrON8Lcjn54vpuetAv763YS/ B22E3k3YfYQ8SBsKIHzaaOBejAWKI4ei9QfuRk/gLnSSgraAHWgiBfWMgBrf Laj0YQT4MPTX+8s/hngZxqCjyN5fgGumWhTEFeHS/hs4cbQA11nEbyvCyeAi nGLRHBaL9vBYdFM09UcaMBRlIFQDRZOe8kNHwaQTm0YxgoJJ/r71lvonHL9y peANlYJlXPTLA0lDkEoBg1+hgN7Pp/eLvXaRgt2kYA+afPainfBVCvZhIGAf hmkjgfsIfR8pEOekZYOgYA8p2I1O0tBGGhQK/LehhlFQSX1i9d2ogC9euRpZ v/qVcp4dXYHy1BpUHLbiVuolqncDc5tQX0Y2WkZUUr/YQk1UXya0RZjQFWlC X5QJQ9EmjMYYMUGb0sVSu8RSbRmouvTULzpaDB7Q7jLaKz8ImcPCL7gOsuax sIUsbCUL211Y2E2H7UEtGWjy3cslvQ/dZKAvQGVhKNCFhQ083yBY2Iv+DS4s BJIFBkMdWagmC1Y/suAXpCC/+eb/ROb/+hfl/HjYTdxIykXusVvITjnNIDCx jpnYW5tRHmJGTZgF9eEWtFC9dVC99URbMBBjwYjOQvVmwTTV2z2DGQ9iTXgY K9SbkXqICs6ox/iBP6Cche3u8nUYqaqRf4ciqXgOpSeycHgps+EyUrF8E1OC SsUlSUXeul0KFRWSiqGPojD6UZQHxj+KZl0a4+9R2siH0RiiDe/Yj2GyMagw sRc9ZKOTbLSSDYWJgO2o9t8Kqz+Z8A9C8RpPuSReU2SVeUcyjkafQHpsOiu6 mUrDwjoXhxIqQisVoS08Ho2RrKEORRiPIV08FWE8FWE87lERPjDGKYrQbqIq NFFSmSmpzFTwGzkuVWc5Vb/t4wNziPgluiprcOhtErGURCxTichkXrzIxHB9 7U5UbvkQXR+EK3VNqW+izrHiiar3IC4N0yyD4yyHwyyL/SyRXSyVomQ2xKSh 5XeRaNv2e3RsUJloJBM2MlEVwBkFbKEFIeeffoMrb7yBU//8r2TCnwKTIuS9 CJYDC8tBHHIpMAtDE1BGgVlNgVkfmYjmqER0UGD2UGAOUGCOGBIpMBMxY0zE A5MQmAl4ZKbOsgij1rJY0LyJCW5tAKxrqDze8UbZak+MVlX/0lUcPI20t3xx 5G0nE6cZEhcYEqKRFBpG1TKJqrz5sVA6iuK5R/UzRRU0RjU0RFXUR3XUqVfV Uh1VU1VkMkqpoko/jkVt8EdoCCQRgSQikEQEblaIuPLLXyH7jV/g+FurSUQg TlKJZVGJXWQ9vE7hmUfheTcsCRUUnjUUng3RyWiNSUaXLhl9+mSOm8zxkzkP zoemCE9LEucohGcipgihdQsl2DoWJU9m5bWq6LSuWYfuU6cxhwnmiuNncfit QBxdFsSisQU3ud7t8SZFsyraVWhYoWUtCYq2FRr3gYk+oOadoPYdoQYeoB7u oS5uj1F1stDL1ohEFFM/54ckULcmoHDPAdRs2I7KDSoV+UtXKFScIxXHVrFe U3+fpP4+Q7mSTYl2w+93yN8WimLSaY1MgY30NlGmtetT0W1IZQymYtiYinFT KqbNqaoojUthvFKkRsZi+MMQNK6nNvPeQjXKArWOEsWTitTTj5QIRbpmPhVd VhvS/i0QR5aSihVbuKj0Sp+i9ismtX8RfQz7mVlTHB4auSBpU+x3xtj7DOkT 0KdLQFeM2huJHkn0SuVh8ShieOcyzK8x3EXIX/owilQwZW4gFctWIJtUZPzm LUW1HVu1ERlUq2dZuy8zMG+yeBVwmZawfldu/Ai2PRFo+oMZHVyCPbEHMWg8 iFHTQUxaDmJGLNMPIjDxYQRlzQ60++xAq8921vptsJGOKtJh9XaRqut8UL72 3bmt4BtI+t8BOPRWECp2fgC7kWvCpJcdp+g8SYfRpHSkD2PNSoc6bWCmZtc6 wu51gF1sT3QcOqLY3UaoXa7odkspMu8Qeg7z3mVm/zOsf+mshdf2fEwaNiFv 6XKcIw1Hf7tGUW/HVgaRhi1sU4LZpmxDDim4w5RdyupVybRdx7TdxDreSinT TiXXReum9fruRh+tXxz9dqHbdxc6fHeilXQ0koo6n60UraRh/WZVuHozW3j5 omKd5xwWREDUIeW3QUSnVluxS/BIMbFrYGAVjuX1WNzTG1mjTJjQiaptUnYe xA5EZ6TYkVB3JmpCzagIETVP1D4jl7qRDUAsMqkIjlMQidagfAPzJFk4+c8M hJWqiBMa9pTCwlZcZYa69e4O3PHcSRZ2Ma53o44MNLN4tVLMdUgt20PrpZ7t V0ywQGZoHWSjlU19oy9Z8GXN9glWWRC9y3oh4Lg2vLwwWlMtn1nI7aTFOLdP p2xUTemULZ9Fyt7Pi7in0/GlHlMxlGq00ehYSrdY9HEFdkXEKjtKYmfJRolX SbQltAIizqFdJuqzVL4ZB2LUzuhPUUwCLr29DEeXU7ysUMXLCUq4U6uCcX71 NpUAFqs7nrtIwG6FgHrvPSSAAobVu4NCpovWQznXS+unDfhT3NO6/UmAvyCA BcqPpZokVPsyGVHBWn2lgvXhivD2RkfmKY2Av5EE3Nz0PoapvcejlV07D2Ub 70VlA2+CJjb4RmiDkUK66ynh9WgP06M5VI+6ED0bWD3bdT1bdx3zgI55QKc0 u5lqm68RcDtwI3L2h1Oq+KrqbTkJWLEZp1dtxfl3BAE7nAQQfBXB1xO80LFt PvtIwD50Ucn1CCVH61dMlffdJKGDJLT6CwJ2wubHwsQuxupQblwLviRgvbdr BKgEvKK0m51h6h6saEpGZGMijsNyX1b0amKftktsMrN/aw5RnxlUyzb+rtzA uCG3cD6R26qLFPjfwnBdHSooXo8ucyq248zEpwj/3DvbcfVdAX8X7tD3pV6s cd57UafA38flvY9SnrA/iFKEbK8Us33sZnoJvytAhd8i4PsL+DtQReFq9Q+W co3w/QJQ4eMt04D2J3lTRN7q7EgXKXvqz6MnVL2kPTVokrvw1XJX5q7c1L4p d2/Oyk3v48rTJNXfN6nlxCDllKlHNZlKTSLKT4YEfeXdnciRoLvfj0AvbTYu FfctqZhi5RtjBRxiJexjRexkdWzRpaKOlbJuvwl1eyPQEPwxWti9NhB0rT9B BxB0AEEHCEFC0P4BKPf11krA30nUE0QtHpa0iIcKIkLbefJFcepAqz0OqpR7 UfMRn5PPLVT3/pmy46PtcQk9eljTo0tVN58k4jNEfJmIW34XSv0hJA2ljUXs rwn5lYxJSp5RSqBBQzJ6KIfaKYuaKJFsUdQJlEzF4UmKhMr/wIDC3SGopRat DCTiwGApwQRif9RHhEnAP5MbRv25BY4nKfXyaJNPVyqlT0vk7tttlyB29avA KR6wEelibVf133xwVJGaqqpIJ0jbvv0EZpGiNZ4iNoHCKgH3KaymKW7HKXKH KXb7KXq7KYDbohPRSDFcQ1FVHp6AIgrl3APxFM7xVBNxVBPRKAx+j2VUgmQa qQjwR9fZMxKk+qccL6BHPMXlBMuky0qk2+5IUMJ1V+RGXJbcghSgxJZkr/ZI 7BtO1fg2QS3fgt6QcKUHUXsRs+xNLEqvInaxRe8yyh5mkL1ML3uaTvY2Lexz 6iPiqQ3iUcr+5w6BiH5I9EVnaRmslMdEvdi6R9EH1sANKCUo2dioPe9TaJfP oVvks+lGuU1cQ6vKLVD/LvRPkPpbCjsqmqtUA3ajjkZFo/SQop80Kb2l6DHF kwLRcw6z/+xnH9odZUEbe9JG9qe17FOtrOPFnF0+7QZneIl1PIuzPMGKdowJ /gx1p5htOV3Qde6cnOzbyuFVlB47hzQqio7fhyg9/CxN7ef1Sn8v+nzR74/H qE9fBqJM6Ik0oSPChJZwE+rDTKgOMdJ1RsahUXmSc5V2nqOf4ujHWVbU3LII +VvZ2pKzYVutxtlSmcsT/3UDh4jBtFrNWcZjlL0VscsidlvGotXHVoORBvRG GNAZbkBrmAENoQbUhBi4FAyMGoPyCOwGTTwSm5vLF+HSnvfRdu6cMuKc4Reh s6IOuZs+4BDavhY77Si1nAzRBiJEGVEf+7WF6tAYouNK1HEV6lBKu0O7JQNV yzEnXIaujNY58owcepncap9pa0d3mLqjKCqWaPgG5Q5jn3w82hmqbrA2ygRQ JddKodyrvSb3brPmDSsWvjas3JFZLhFPyxIibu2hPJt9Dl3yqbPIqM1y89M1 mxa5FMtLzmLpbjS5EbhCjjYpU3eTUmnEvZ9VzhskIK1CuctmZ9Rs5m4Uudu6 Sm6tiD8CaOHbVZIiLUeWypQi9u9vudAl5p+uSZ1FWppUbia37teoD4y7lMc5 BXJiOfIW2dLZYg/5xpEMD5GS/kn93n/E/3r/pz3gj/4PwKqeGw==\ \>"]], ",", Graphics3DBox[{ {RGBColor[1, NCache[ Rational[1, 3], 0.3333333333333333], NCache[ Rational[1, 3], 0.3333333333333333]], Opacity[0.5], SphereBox[{1.2962609454581995`, -0.1381322600981217, 0}, 1.125]}, {RGBColor[1, NCache[ Rational[1, 3], 0.3333333333333333], NCache[ Rational[1, 3], 0.3333333333333333]], Opacity[0.5], SphereBox[{-0.7677616788167402, -1.0535250184691871`, 0}, 1.125]}, {Opacity[0.5], SphereBox[{-5.093917562420479, 0, 0}, 0.2572]}, {Opacity[0.5], SphereBox[{0, 0, 0}, 0.1786]}, {Opacity[0.5], SphereBox[{3.3186702091032076`, 3.6644167384561643`, 0}, 0.22522]}, Text3DBox[ FormBox["3", StandardForm], {-5.093917562420479, 0, 0}, {1, 0}], Text3DBox[ FormBox["7", StandardForm], {0, 0, 0}, {1, 0}], Text3DBox[ FormBox["6", StandardForm], { 3.3186702091032076`, 3.6644167384561643`, 0}, {1, 0}], TubeBox[{{-5.093917562420479, 0, 0}, {0, 0, 0}}, 0.02], TubeBox[{{-5.093917562420479, 0, 0}, { 3.3186702091032076`, 3.6644167384561643`, 0}}, 0.02], TubeBox[{{0, 0, 0}, {3.3186702091032076`, 3.6644167384561643`, 0}}, 0.02]}, AspectRatio->Automatic, Axes->Automatic, AxesLabel->{ FormBox["xl", TraditionalForm], FormBox["yl", TraditionalForm], FormBox["zl", TraditionalForm]}, Boxed->False, PlotRange->Automatic, SphericalRegion->True]}], "}"}]], "Output", CellChangeTimes->{ 3.576388759271221*^9, 3.5763922793306046`*^9, 3.576392394739608*^9, 3.5763926938857327`*^9, 3.576393205831832*^9, 3.5763933768237324`*^9, { 3.576405781429682*^9, 3.5764057919129*^9}, 3.5764196784025297`*^9, 3.576469334624449*^9, 3.576469800410067*^9, {3.576470312870967*^9, 3.576470369140266*^9}, {3.576470407843934*^9, 3.576470457686022*^9}, 3.5764704884960756`*^9, 3.576470784022995*^9, 3.5802090195185304`*^9}] }, Open ]], Cell["\<\ (*-------------------------------------------------------------------------*) (* next: O atoms in X-C-O- three doubly occ LP\[CloseCurlyQuote], ~ \ tetraedric *)\ \>", "Text", CellChangeTimes->{{3.572794697520533*^9, 3.5727947043221455`*^9}, { 3.5727948024151173`*^9, 3.572794803507119*^9}, {3.5727948673580313`*^9, 3.572794869838436*^9}, {3.572795260993526*^9, 3.5727952676703377`*^9}, { 3.5727954366342344`*^9, 3.5727954702834935`*^9}, {3.5727973545484033`*^9, 3.5727973657024226`*^9}, {3.572803225319809*^9, 3.572803264553878*^9}, { 3.57280330550395*^9, 3.5728033127111626`*^9}, 3.5728033508376293`*^9, { 3.572803528365941*^9, 3.5728035301443443`*^9}, {3.572803715051469*^9, 3.572803769604765*^9}, {3.572840261866465*^9, 3.5728402628648667`*^9}, { 3.5728405648813972`*^9, 3.572840578905822*^9}, {3.5728406372187243`*^9, 3.572840716170463*^9}, {3.5728407476825185`*^9, 3.572840785746585*^9}, { 3.5728408298790627`*^9, 3.5728408871311636`*^9}, {3.5728409363336496`*^9, 3.572841070790286*^9}, {3.572841415987692*^9, 3.572841609740032*^9}, 3.5728416910629754`*^9, {3.5728417502806797`*^9, 3.572841879885707*^9}, { 3.572841914564568*^9, 3.5728419300709953`*^9}, {3.572841986199894*^9, 3.572842001659521*^9}, {3.5728426453322515`*^9, 3.5728426487174573`*^9}, { 3.572844776030794*^9, 3.572844786919613*^9}, {3.57284502999924*^9, 3.5728450550060835`*^9}, {3.572845459218394*^9, 3.572845496174859*^9}, { 3.5728455656105804`*^9, 3.572845617574272*^9}, {3.5728456738279705`*^9, 3.572845681440784*^9}, {3.5728457322656736`*^9, 3.572845755291314*^9}, 3.572845978356106*^9, {3.572846145151599*^9, 3.572846189096876*^9}, { 3.572846392926834*^9, 3.5728464086828613`*^9}, 3.572846518881455*^9, 3.5728469699562473`*^9, {3.5728470834620466`*^9, 3.572847089873658*^9}, { 3.572847132180932*^9, 3.5728472650151653`*^9}, 3.5728473515485177`*^9, { 3.572849422046554*^9, 3.572849426554962*^9}, {3.572849678776205*^9, 3.572849686077018*^9}, {3.5728503673146143`*^9, 3.5728503811830387`*^9}, { 3.5728505998798227`*^9, 3.572850604637831*^9}, 3.5730459405924234`*^9, { 3.5731485633994884`*^9, 3.5731485765503116`*^9}, {3.5731486137719765`*^9, 3.57314870088253*^9}, 3.5746558585762653`*^9, {3.574670156150858*^9, 3.5746701578512607`*^9}, {3.5746701931541224`*^9, 3.5746702231061754`*^9}, {3.574670271856261*^9, 3.574670280545476*^9}, { 3.574670327688759*^9, 3.574670328952361*^9}, {3.5746703662988267`*^9, 3.574670379184449*^9}, {3.5746706373025026`*^9, 3.574670676068571*^9}, { 3.574740867627764*^9, 3.574740880248186*^9}, {3.5749502553646355`*^9, 3.574950272103464*^9}, {3.576339630556878*^9, 3.5763396737533536`*^9}}], Cell[CellGroupData[{ Cell[BoxData[{ StyleBox[ RowBox[{ RowBox[{"Clear", "[", RowBox[{"conn", ",", "Okk", ",", "Okl", ",", "Okm"}], "]"}], ";"}], "Input"], "\n", StyleBox[ RowBox[{ RowBox[{"conn", "=", RowBox[{"{", RowBox[{"{", RowBox[{"4", ",", "9", ",", "3"}], "}"}], "}"}]}], ";"}], "Input"], "\n", StyleBox[ RowBox[{"tj", "=", RowBox[{"Length", "[", "conn", "]"}]}], "Input"], "\n", StyleBox[ RowBox[{ RowBox[{"tplk", "=", RowBox[{"Table", "[", RowBox[{ RowBox[{"{", RowBox[{"0", ",", "0", ",", "0"}], "}"}], ",", RowBox[{"{", "tj", "}"}]}], "]"}]}], ";"}], "Input"], "\n", StyleBox[ RowBox[{ RowBox[{"tpll", " ", "=", " ", "tplk"}], ";"}], "Input"], "\n", StyleBox[ RowBox[{ RowBox[{"tplm", " ", "=", " ", "tplk"}], ";"}], "Input"], "\n", StyleBox[ RowBox[{ RowBox[{"Okk", "=", RowBox[{"{", RowBox[{"{", RowBox[{"1", ",", "1", ",", "1"}], "}"}], "}"}]}], ";"}], "Input"], "\n", StyleBox[ RowBox[{ RowBox[{"Okl", "=", RowBox[{"{", RowBox[{"{", RowBox[{"1", ",", "1", ",", "1"}], "}"}], "}"}]}], ";"}], "Input"], "\n", StyleBox[ RowBox[{ RowBox[{"Okm", "=", RowBox[{"{", RowBox[{"{", RowBox[{"1", ",", "1", ",", "1"}], "}"}], "}"}]}], ";"}], "Input"], "\n", StyleBox[ RowBox[{ RowBox[{"k", "=", "1"}], ";"}], "Input"], "\n", StyleBox[ RowBox[{ RowBox[{ RowBox[{"Plota", "=", " ", RowBox[{"Table", "[", RowBox[{ RowBox[{"{", "0", "}"}], ",", " ", RowBox[{"{", RowBox[{"i", ",", " ", "1", ",", " ", "tj"}], "}"}]}], "]"}]}], ";"}], " "}], "Input"], "\n", StyleBox[ RowBox[{ RowBox[{"Plotc", "=", " ", "Plota"}], ";"}], "Input"], "\n", StyleBox[ RowBox[{ RowBox[{ RowBox[{"Plotd", " ", "=", "Plota"}], ";"}], " "}], "Input"], "\n", StyleBox[ RowBox[{ RowBox[{"Plote", "=", " ", "Plota"}], ";"}], "Input"], "\n", StyleBox[ RowBox[{ RowBox[{"Plotf", "=", " ", "Plota"}], ";"}], "Input"], "\n", StyleBox[ RowBox[{ RowBox[{"Plotb0", " ", "=", "Plota"}], ";"}], "Input"]}], "Input", CellChangeTimes->{{3.572794697520533*^9, 3.5727947043221455`*^9}, { 3.5727948024151173`*^9, 3.572794803507119*^9}, {3.5727948673580313`*^9, 3.572794869838436*^9}, {3.572795260993526*^9, 3.5727952676703377`*^9}, { 3.5727954366342344`*^9, 3.5727954702834935`*^9}, {3.5727973545484033`*^9, 3.5727973657024226`*^9}, {3.572803225319809*^9, 3.572803264553878*^9}, { 3.57280330550395*^9, 3.5728033127111626`*^9}, 3.5728033508376293`*^9, { 3.572803528365941*^9, 3.5728035301443443`*^9}, {3.572803715051469*^9, 3.572803769604765*^9}, {3.572840261866465*^9, 3.5728402628648667`*^9}, { 3.5728405648813972`*^9, 3.572840578905822*^9}, {3.5728406372187243`*^9, 3.572840716170463*^9}, {3.5728407476825185`*^9, 3.572840785746585*^9}, { 3.5728408298790627`*^9, 3.5728408871311636`*^9}, {3.5728409363336496`*^9, 3.572841070790286*^9}, {3.572841415987692*^9, 3.572841609740032*^9}, 3.5728416910629754`*^9, {3.5728417502806797`*^9, 3.572841879885707*^9}, { 3.572841914564568*^9, 3.5728419300709953`*^9}, {3.572841986199894*^9, 3.572842001659521*^9}, {3.5728426453322515`*^9, 3.5728426487174573`*^9}, { 3.572844776030794*^9, 3.572844786919613*^9}, {3.57284502999924*^9, 3.5728450550060835`*^9}, {3.572845459218394*^9, 3.572845496174859*^9}, { 3.5728455656105804`*^9, 3.572845617574272*^9}, {3.5728456738279705`*^9, 3.572845681440784*^9}, {3.5728457322656736`*^9, 3.572845755291314*^9}, 3.572845978356106*^9, {3.572846145151599*^9, 3.572846189096876*^9}, { 3.572846392926834*^9, 3.5728464086828613`*^9}, 3.572846518881455*^9, 3.5728469699562473`*^9, {3.5728470834620466`*^9, 3.572847089873658*^9}, { 3.572847132180932*^9, 3.5728472650151653`*^9}, 3.5728473515485177`*^9, { 3.572849422046554*^9, 3.572849426554962*^9}, {3.572849678776205*^9, 3.572849686077018*^9}, {3.5728503673146143`*^9, 3.5728503811830387`*^9}, { 3.5728505998798227`*^9, 3.572850604637831*^9}, 3.5730459405924234`*^9, { 3.5731485633994884`*^9, 3.5731485765503116`*^9}, {3.5731486137719765`*^9, 3.57314870088253*^9}, 3.5746558585762653`*^9, {3.574670156150858*^9, 3.5746701578512607`*^9}, {3.5746701931541224`*^9, 3.5746702231061754`*^9}, {3.574670271856261*^9, 3.574670280545476*^9}, { 3.574670327688759*^9, 3.574670328952361*^9}, {3.5746703662988267`*^9, 3.574670379184449*^9}, {3.5746706373025026`*^9, 3.574670676068571*^9}, { 3.574740867627764*^9, 3.574740880248186*^9}, {3.5749502553646355`*^9, 3.574950272103464*^9}, {3.576339630556878*^9, 3.576339709680217*^9}, { 3.576341898894462*^9, 3.576341898894462*^9}, {3.5763809630919313`*^9, 3.5763809694723425`*^9}, {3.5763812169199777`*^9, 3.5763812213347855`*^9}, {3.5763812778068843`*^9, 3.5763812829236937`*^9}, 3.5763815467201567`*^9}], Cell[BoxData["1"], "Output", CellChangeTimes->{ 3.5763887592868214`*^9, 3.5763922793462048`*^9, 3.5763923947552075`*^9, 3.576392693901333*^9, 3.576393205847432*^9, 3.5763933768393326`*^9, { 3.5764057814452815`*^9, 3.5764057919285*^9}, 3.57641967841813*^9, 3.576469334640049*^9, 3.576469800441267*^9, {3.576470312886567*^9, 3.5764703691558657`*^9}, {3.5764704078595343`*^9, 3.5764704577016215`*^9}, 3.576470488511676*^9, 3.5764707840385947`*^9, 3.58020901953413*^9}] }, Open ]], Cell[BoxData[ RowBox[{ RowBox[{ StyleBox["Do", "Input"], StyleBox["[", "Input"], RowBox[{ RowBox[{ StyleBox["(", "Input"], RowBox[{ StyleBox[ RowBox[{"c", " ", "=", " ", RowBox[{"conn", "[", RowBox[{"[", "k", "]"}], "]"}]}], "Input"], StyleBox[";", "Input"], StyleBox[" ", "Input"], StyleBox["\n", "Input"], StyleBox[ RowBox[{"a1", " ", "=", " ", RowBox[{"dc", "[", RowBox[{"[", RowBox[{ RowBox[{"c", "[", RowBox[{"[", "2", "]"}], "]"}], ",", RowBox[{"c", "[", RowBox[{"[", "1", "]"}], "]"}]}], "]"}], "]"}]}], "Input"], StyleBox[";", "Input"], StyleBox[" ", "Input"], StyleBox[ RowBox[{"a2", " ", "=", " ", RowBox[{"dc", "[", RowBox[{"[", RowBox[{ RowBox[{"c", "[", RowBox[{"[", "2", "]"}], "]"}], ",", RowBox[{"c", "[", RowBox[{"[", "3", "]"}], "]"}]}], "]"}], "]"}]}], "Input"], StyleBox[";", "Input"], StyleBox[" ", "Input"], StyleBox[ RowBox[{"d1", " ", "=", " ", RowBox[{"dc", "[", RowBox[{"[", RowBox[{ RowBox[{"c", "[", RowBox[{"[", "1", "]"}], "]"}], ",", RowBox[{"c", "[", RowBox[{"[", "3", "]"}], "]"}]}], "]"}], "]"}]}], "Input"], StyleBox[";", "Input"], StyleBox[" ", "Input"], StyleBox["\n", "Input"], StyleBox[ RowBox[{"\[Alpha]", " ", "=", " ", RowBox[{"ArcCos", "[", RowBox[{ RowBox[{"(", RowBox[{ RowBox[{"a1", "^", "2"}], " ", "+", " ", RowBox[{"a2", "^", "2"}], " ", "-", " ", RowBox[{"d1", "^", "2"}]}], ")"}], "/", RowBox[{"(", RowBox[{"2", "*", "a1", "*", "a2"}], ")"}]}], "]"}]}], "Input"], StyleBox[";", "Input"], StyleBox[" ", "Input"], StyleBox["\n", "Input"], StyleBox[ RowBox[{"L", " ", "=", " ", RowBox[{ RowBox[{"u2", "[", RowBox[{"[", RowBox[{"c", "[", RowBox[{"[", "2", "]"}], "]"}], "]"}], "]"}], " ", "+", " ", "rlo"}]}], "Input"], StyleBox[";", "Input"], StyleBox[" ", "Input"], StyleBox["\n", "Input"], StyleBox[ RowBox[{"(*", RowBox[{ RowBox[{"\[Beta]", " ", "=", " ", RowBox[{"ArcSin", "[", RowBox[{"rlo", "/", "L"}], "]"}]}], ";"}], " ", "*)"}], "Input"], StyleBox["\n", "Input"], StyleBox[ RowBox[{"\[Gamma]", " ", "=", " ", RowBox[{ RowBox[{"\[Pi]", "/", "2"}], " ", "-", " ", RowBox[{"\[Alpha]", "/", "2"}]}]}], "Input"], StyleBox[";", "Input"], StyleBox[" ", "Input"], StyleBox["\n", "Input"], RowBox[{"(*", StyleBox[ RowBox[{ RowBox[{"p", " ", "=", " ", RowBox[{"Table", "[", RowBox[{ RowBox[{"t", "[", RowBox[{"[", RowBox[{"c", "[", RowBox[{"[", "i", "]"}], "]"}], "]"}], "]"}], ",", " ", RowBox[{"{", RowBox[{"i", ",", " ", "1", ",", " ", "P"}], "}"}]}], "]"}]}], ";"}], "Input"], StyleBox[" ", "Input"], "*)"}], StyleBox["\n", "Input"], StyleBox[ RowBox[{"v", " ", "=", " ", RowBox[{"Table", "[", RowBox[{ RowBox[{"Join", "[", RowBox[{ RowBox[{"t", "[", RowBox[{"[", RowBox[{"c", "[", RowBox[{"[", "i", "]"}], "]"}], "]"}], "]"}], ",", " ", RowBox[{"{", "1", "}"}]}], "]"}], ",", " ", RowBox[{"{", RowBox[{"i", ",", " ", "1", ",", " ", "P"}], "}"}]}], "]"}]}], "Input"], StyleBox[";", "Input"], StyleBox[" ", "Input"], StyleBox["\n", "Input"], StyleBox[ RowBox[{"x2", " ", "=", " ", RowBox[{"t", "[", RowBox[{"[", RowBox[{ RowBox[{"c", "[", RowBox[{"[", "2", "]"}], "]"}], ",", "1"}], "]"}], "]"}]}], "Input"], StyleBox[";", "Input"], StyleBox[" ", "Input"], StyleBox["\n", "Input"], StyleBox[ RowBox[{"y2", " ", "=", " ", RowBox[{"t", "[", RowBox[{"[", RowBox[{ RowBox[{"c", "[", RowBox[{"[", "2", "]"}], "]"}], ",", "2"}], "]"}], "]"}]}], "Input"], StyleBox[";", "Input"], StyleBox[" ", "Input"], StyleBox["\n", "Input"], StyleBox[ RowBox[{"z2", " ", "=", " ", RowBox[{"t", "[", RowBox[{"[", RowBox[{ RowBox[{"c", "[", RowBox[{"[", "2", "]"}], "]"}], ",", "3"}], "]"}], "]"}]}], "Input"], StyleBox[";", "Input"], StyleBox[" ", "Input"], StyleBox["\n", "Input"], StyleBox[ RowBox[{"Q", " ", "=", " ", RowBox[{"{", RowBox[{ RowBox[{"{", RowBox[{"1", ",", " ", "0", ",", " ", "0", ",", " ", "0"}], "}"}], ",", " ", RowBox[{"{", RowBox[{"0", ",", " ", "1", ",", " ", "0", ",", " ", "0"}], "}"}], ",", " ", RowBox[{"{", RowBox[{"0", ",", " ", "0", ",", " ", "1", ",", " ", "0"}], "}"}], ",", " ", RowBox[{"{", RowBox[{ RowBox[{"-", "x2"}], ",", " ", RowBox[{"-", "y2"}], ",", " ", RowBox[{"-", "z2"}], ",", " ", "1"}], "}"}]}], "}"}]}], "Input"], StyleBox[";", "Input"], StyleBox[" ", "Input"], StyleBox["\n", "Input"], StyleBox[ RowBox[{"p", " ", "=", " ", RowBox[{"v", ".", "Q"}]}], "Input"], StyleBox[";", "Input"], StyleBox[" ", "Input"], StyleBox["\n", "Input"], StyleBox[ RowBox[{"p", " ", "=", " ", RowBox[{"Table", "[", RowBox[{ RowBox[{"Take", "[", RowBox[{ RowBox[{"p", "[", RowBox[{"[", "i", "]"}], "]"}], ",", " ", "3"}], "]"}], ",", " ", RowBox[{"{", RowBox[{"i", ",", " ", "1", ",", " ", "P"}], "}"}]}], "]"}]}], "Input"], StyleBox[";", "Input"], StyleBox[" ", "Input"], StyleBox["\n", "Input"], StyleBox[ RowBox[{"T1", " ", "=", " ", RowBox[{"ArcTan", "[", RowBox[{ RowBox[{"p", "[", RowBox[{"[", RowBox[{"1", ",", "3"}], "]"}], "]"}], "/", RowBox[{"p", "[", RowBox[{"[", RowBox[{"1", ",", "2"}], "]"}], "]"}]}], "]"}]}], "Input"], StyleBox[";", "Input"], StyleBox[" ", "Input"], StyleBox["\n", "Input"], StyleBox[ RowBox[{"U", " ", "=", " ", "p"}], "Input"], StyleBox[";", "Input"], StyleBox[" ", "Input"], StyleBox["\n", "Input"], StyleBox[ RowBox[{"T", " ", "=", " ", RowBox[{"RotationMatrix", "[", RowBox[{"T1", ",", " ", RowBox[{"{", RowBox[{"1", ",", " ", "0", ",", " ", "0"}], "}"}]}], "]"}]}], "Input"], StyleBox[";", "Input"], StyleBox[" ", "Input"], StyleBox["\n", "Input"], StyleBox[ RowBox[{"p", " ", "=", " ", RowBox[{"U", ".", "T"}]}], "Input"], StyleBox[";", "Input"], StyleBox[" ", "Input"], StyleBox["\n", "Input"], StyleBox[ RowBox[{"T2", " ", "=", " ", RowBox[{"ArcTan", "[", RowBox[{ RowBox[{"p", "[", RowBox[{"[", RowBox[{"1", ",", "2"}], "]"}], "]"}], "/", RowBox[{"p", "[", RowBox[{"[", RowBox[{"1", ",", "1"}], "]"}], "]"}]}], "]"}]}], "Input"], StyleBox[";", "Input"], StyleBox[" ", "Input"], StyleBox["\n", "Input"], StyleBox[ RowBox[{"U", " ", "=", " ", "p"}], "Input"], StyleBox[";", "Input"], StyleBox[" ", "Input"], StyleBox["\n", "Input"], StyleBox[ RowBox[{"T", " ", "=", " ", RowBox[{"RotationMatrix", "[", RowBox[{"T2", ",", " ", RowBox[{"{", RowBox[{"0", ",", " ", "0", ",", " ", "1"}], "}"}]}], "]"}]}], "Input"], StyleBox[";", "Input"], StyleBox[" ", "Input"], StyleBox["\n", "Input"], StyleBox[ RowBox[{"p", " ", "=", " ", RowBox[{"U", ".", "T"}]}], "Input"], StyleBox[";", "Input"], StyleBox[" ", "Input"], StyleBox["\n", "Input"], StyleBox[ RowBox[{"T3", " ", "=", " ", RowBox[{"ArcTan", "[", RowBox[{ RowBox[{"p", "[", RowBox[{"[", RowBox[{"3", ",", "3"}], "]"}], "]"}], "/", RowBox[{"p", "[", RowBox[{"[", RowBox[{"3", ",", "2"}], "]"}], "]"}]}], "]"}]}], "Input"], StyleBox[";", "Input"], StyleBox[" ", "Input"], StyleBox["\n", "Input"], StyleBox[ RowBox[{"U", " ", "=", " ", "p"}], "Input"], StyleBox[";", "Input"], StyleBox[" ", "Input"], StyleBox["\n", "Input"], StyleBox[ RowBox[{"T", " ", "=", " ", RowBox[{"RotationMatrix", "[", RowBox[{"T3", ",", " ", RowBox[{"{", RowBox[{"1", ",", " ", "0", ",", " ", "0"}], "}"}]}], "]"}]}], "Input"], StyleBox[";", "Input"], StyleBox[" ", "Input"], StyleBox["\n", "Input"], StyleBox[ RowBox[{"p", " ", "=", " ", RowBox[{"Chop", "[", RowBox[{"U", ".", "T"}], "]"}]}], "Input"], StyleBox[";", "Input"], StyleBox[" ", "Input"], StyleBox["\n", "Input"], StyleBox[ RowBox[{"nk", " ", "=", " ", RowBox[{"nl", " ", "=", " ", RowBox[{"nm", " ", "=", " ", "p"}]}]}], "Input"], StyleBox[";", "Input"], StyleBox[" ", "Input"], StyleBox["\n", "Input"], RowBox[{ StyleBox[ RowBox[{"nk", "[", RowBox[{"[", RowBox[{"2", ",", "1"}], "]"}], "]"}], "Input"], StyleBox[" ", "Input"], StyleBox["=", "Input"], StyleBox[" ", "Input"], RowBox[{ StyleBox[ RowBox[{"p", "[", RowBox[{"[", RowBox[{"2", ",", "1"}], "]"}], "]"}], "Input"], "+", RowBox[{ StyleBox["L", "Input"], "*", RowBox[{ RowBox[{"Sin", "[", "\[Gamma]", "]"}], "/", "3"}]}]}]}], StyleBox[";", "Input"], StyleBox[" ", "Input"], RowBox[{ StyleBox[ RowBox[{"nk", "[", RowBox[{"[", RowBox[{"2", ",", "2"}], "]"}], "]"}], "Input"], StyleBox[" ", "Input"], StyleBox["=", "Input"], StyleBox[" ", "Input"], RowBox[{ StyleBox[ RowBox[{"p", "[", RowBox[{"[", RowBox[{"2", ",", "2"}], "]"}], "]"}], "Input"], "+", StyleBox[ RowBox[{"0.942809", "*", "L"}], "Input"]}]}], RowBox[{"(*", RowBox[{"*", RowBox[{"Sin", "[", "\[Gamma]", "]"}]}], "*)"}], StyleBox[";", "Input"], StyleBox[" ", "Input"], StyleBox[ RowBox[{ RowBox[{"nk", "[", RowBox[{"[", RowBox[{"2", ",", "3"}], "]"}], "]"}], " ", "=", " ", "0"}], "Input"], StyleBox[";", "Input"], StyleBox[" ", "Input"], StyleBox["\n", "Input"], StyleBox[ RowBox[{ RowBox[{"nl", "[", RowBox[{"[", RowBox[{"2", ",", "1"}], "]"}], "]"}], " ", "=", " ", RowBox[{"nk", "[", RowBox[{"[", RowBox[{"2", ",", "1"}], "]"}], "]"}]}], "Input"], StyleBox[";", "Input"], StyleBox[" ", "Input"], StyleBox[ RowBox[{ RowBox[{"nl", "[", RowBox[{"[", RowBox[{"2", ",", "2"}], "]"}], "]"}], " ", "=", " ", RowBox[{ RowBox[{"p", "[", RowBox[{"[", RowBox[{"2", ",", "2"}], "]"}], "]"}], "-", RowBox[{"0.471405", "*", "L"}]}]}], "Input"], StyleBox[";", "Input"], StyleBox[" ", "Input"], StyleBox[ RowBox[{ RowBox[{"nl", "[", RowBox[{"[", RowBox[{"2", ",", "3"}], "]"}], "]"}], " ", "=", " ", RowBox[{"0.816496", "*", "L"}]}], "Input"], StyleBox[";", "Input"], StyleBox["\n", "Input"], StyleBox[ RowBox[{ RowBox[{"nm", "[", RowBox[{"[", RowBox[{"2", ",", "1"}], "]"}], "]"}], " ", "=", " ", RowBox[{"nk", "[", RowBox[{"[", RowBox[{"2", ",", "1"}], "]"}], "]"}]}], "Input"], StyleBox[";", "Input"], StyleBox[" ", "Input"], StyleBox[ RowBox[{ RowBox[{"nm", "[", RowBox[{"[", RowBox[{"2", ",", "2"}], "]"}], "]"}], " ", "=", " ", RowBox[{"nl", "[", RowBox[{"[", RowBox[{"2", ",", "2"}], "]"}], "]"}]}], "Input"], StyleBox[";", "Input"], StyleBox[" ", "Input"], StyleBox[ RowBox[{ RowBox[{"nm", "[", RowBox[{"[", RowBox[{"2", ",", "3"}], "]"}], "]"}], " ", "=", " ", RowBox[{"-", RowBox[{"nl", "[", RowBox[{"[", RowBox[{"2", ",", "3"}], "]"}], "]"}]}]}], "Input"], StyleBox[";", "Input"], StyleBox["\n", "Input"], StyleBox[ RowBox[{ RowBox[{"nk", "[", RowBox[{"[", "2", "]"}], "]"}], "=", RowBox[{ RowBox[{"Okk", "[", RowBox[{"[", "k", "]"}], "]"}], "*", RowBox[{"nk", "[", RowBox[{"[", "2", "]"}], "]"}]}]}], "Input"], StyleBox[";", "Input"], StyleBox[" ", "Input"], StyleBox[ RowBox[{ RowBox[{"nl", "[", RowBox[{"[", "2", "]"}], "]"}], "=", RowBox[{ RowBox[{"Okl", "[", RowBox[{"[", "k", "]"}], "]"}], "*", RowBox[{"nl", "[", RowBox[{"[", "2", "]"}], "]"}]}]}], "Input"], StyleBox[";", "Input"], StyleBox[" ", "Input"], StyleBox[ RowBox[{ RowBox[{ RowBox[{"nm", "[", RowBox[{"[", "2", "]"}], "]"}], "=", RowBox[{ RowBox[{"Okm", "[", RowBox[{"[", "k", "]"}], "]"}], "*", RowBox[{"nm", "[", RowBox[{"[", "2", "]"}], "]"}]}]}], "\n", RowBox[{ RowBox[{ RowBox[{"Plota", "[", RowBox[{"[", "k", "]"}], "]"}], " ", "=", " ", RowBox[{"Table", "[", RowBox[{ RowBox[{"Graphics3D", "[", RowBox[{"{", RowBox[{ RowBox[{"Opacity", "[", "0.5", "]"}], ",", " ", RowBox[{"Sphere", "[", RowBox[{ RowBox[{"p", "[", RowBox[{"[", "i", "]"}], "]"}], ",", " ", RowBox[{"u2", "[", RowBox[{"[", RowBox[{"c", "[", RowBox[{"[", "i", "]"}], "]"}], "]"}], "]"}]}], "]"}]}], "}"}], "]"}], ",", " ", RowBox[{"{", RowBox[{"i", ",", " ", "1", ",", " ", "P"}], "}"}]}], "]"}]}], ";"}], " ", "\n", RowBox[{ RowBox[{ RowBox[{"Plotc", " ", "[", RowBox[{"[", "k", "]"}], "]"}], " ", "=", " ", RowBox[{"Table", "[", RowBox[{ RowBox[{"Graphics3D", "[", RowBox[{"{", RowBox[{"Tube", "[", RowBox[{ RowBox[{"{", RowBox[{ RowBox[{"p", "[", RowBox[{"[", "i", "]"}], "]"}], ",", " ", RowBox[{"p", "[", RowBox[{"[", "j", "]"}], "]"}]}], "}"}], ",", " ", "0.02"}], "]"}], "}"}], "]"}], ",", " ", RowBox[{"{", RowBox[{"i", ",", " ", "1", ",", " ", RowBox[{"P", " ", "-", " ", "1"}]}], "}"}], ",", " ", RowBox[{"{", RowBox[{"j", ",", " ", RowBox[{"i", " ", "+", " ", "1"}], ",", " ", "P"}], "}"}]}], "]"}]}], ";"}], " ", "\n", RowBox[{ RowBox[{ RowBox[{"Plotd", "[", RowBox[{"[", "k", "]"}], "]"}], " ", "=", " ", RowBox[{"Graphics3D", "[", RowBox[{"{", RowBox[{ RowBox[{"Opacity", "[", "0.5", "]"}], ",", " ", RowBox[{"Lighter", "[", "Red", "]"}], ",", " ", RowBox[{"Sphere", "[", RowBox[{ RowBox[{"nk", "[", RowBox[{"[", "2", "]"}], "]"}], ",", " ", "rlo"}], "]"}]}], "}"}], "]"}]}], ";"}], " ", "\n", RowBox[{ RowBox[{ RowBox[{"Plote", "[", RowBox[{"[", "k", "]"}], "]"}], " ", "=", " ", RowBox[{"Graphics3D", "[", RowBox[{"{", RowBox[{ RowBox[{"Opacity", "[", "0.5", "]"}], ",", " ", RowBox[{"Lighter", "[", "Red", "]"}], ",", " ", RowBox[{"Sphere", "[", RowBox[{ RowBox[{"nl", "[", RowBox[{"[", "2", "]"}], "]"}], ",", " ", "rlo"}], "]"}]}], "}"}], "]"}]}], ";"}], " ", "\n", RowBox[{ RowBox[{ RowBox[{"Plotf", "[", RowBox[{"[", "k", "]"}], "]"}], " ", "=", " ", RowBox[{"Graphics3D", "[", RowBox[{"{", RowBox[{ RowBox[{"Opacity", "[", "0.5", "]"}], ",", " ", RowBox[{"Lighter", "[", "Red", "]"}], ",", " ", RowBox[{"Sphere", "[", RowBox[{ RowBox[{"nm", "[", RowBox[{"[", "2", "]"}], "]"}], ",", " ", "rlo"}], "]"}]}], "}"}], "]"}]}], ";"}], " ", "\n", RowBox[{ RowBox[{"Plotb0", "[", RowBox[{"[", "k", "]"}], "]"}], " ", "=", " ", RowBox[{"Table", "[", RowBox[{ RowBox[{"Graphics3D", "[", RowBox[{"Text", "[", RowBox[{ RowBox[{"c", "[", RowBox[{"[", "i", "]"}], "]"}], ",", " ", RowBox[{"p", "[", RowBox[{"[", "i", "]"}], "]"}], ",", " ", RowBox[{"{", RowBox[{"1", ",", " ", "0"}], "}"}]}], "]"}], "]"}], ",", " ", RowBox[{"{", RowBox[{"i", ",", " ", "1", ",", " ", "P"}], "}"}]}], "]"}]}]}], "Input"], StyleBox[";", "Input"], StyleBox["\n", "Input"], StyleBox[ RowBox[{"U1", " ", "=", " ", "nk"}], "Input"], StyleBox[";", "Input"], StyleBox[" ", "Input"], StyleBox["\n", "Input"], StyleBox[ RowBox[{"U2", " ", "=", " ", "nl"}], "Input"], StyleBox[";", "Input"], StyleBox[" ", "Input"], StyleBox["\n", "Input"], StyleBox[ RowBox[{"U3", " ", "=", " ", "nm"}], "Input"], StyleBox[";", "Input"], StyleBox["\n", "Input"], StyleBox[ RowBox[{"T", " ", "=", " ", RowBox[{"RotationMatrix", "[", RowBox[{ RowBox[{"-", "T3"}], ",", " ", RowBox[{"{", RowBox[{"1", ",", " ", "0", ",", " ", "0"}], "}"}]}], "]"}]}], "Input"], StyleBox[";", "Input"], StyleBox[" ", "Input"], StyleBox["\n", "Input"], StyleBox[ RowBox[{"nk", " ", "=", " ", RowBox[{"U1", ".", "T"}]}], "Input"], StyleBox[";", "Input"], StyleBox[" ", "Input"], StyleBox["\n", "Input"], StyleBox[ RowBox[{"nl", " ", "=", " ", RowBox[{"U2", ".", "T"}]}], "Input"], StyleBox[";", "Input"], StyleBox[" ", "Input"], StyleBox["\n", "Input"], StyleBox[ RowBox[{"nm", " ", "=", " ", RowBox[{"U3", ".", "T"}]}], "Input"], StyleBox[";", "Input"], StyleBox[" ", "Input"], StyleBox["\n", "Input"], StyleBox[ RowBox[{"U1", " ", "=", " ", "nk"}], "Input"], StyleBox[";", "Input"], StyleBox[" ", "Input"], StyleBox["\n", "Input"], StyleBox[ RowBox[{"U2", " ", "=", " ", "nl"}], "Input"], StyleBox[";", "Input"], StyleBox["\n", "Input"], StyleBox[ RowBox[{"U3", " ", "=", " ", "nm"}], "Input"], StyleBox[";", "Input"], StyleBox[" ", "Input"], StyleBox["\n", "Input"], StyleBox[ RowBox[{"T", " ", "=", " ", RowBox[{"RotationMatrix", "[", RowBox[{ RowBox[{"-", "T2"}], ",", " ", RowBox[{"{", RowBox[{"0", ",", " ", "0", ",", " ", "1"}], "}"}]}], "]"}]}], "Input"], StyleBox[";", "Input"], StyleBox[" ", "Input"], StyleBox["\n", "Input"], StyleBox[ RowBox[{"nk", " ", "=", " ", RowBox[{"U1", ".", "T"}]}], "Input"], StyleBox[";", "Input"], StyleBox[" ", "Input"], StyleBox["\n", "Input"], StyleBox[ RowBox[{"nl", " ", "=", " ", RowBox[{"U2", ".", "T"}]}], "Input"], StyleBox[";", "Input"], StyleBox[" ", "Input"], StyleBox["\n", "Input"], StyleBox[ RowBox[{"nm", " ", "=", " ", RowBox[{"U3", ".", "T"}]}], "Input"], StyleBox[";", "Input"], StyleBox[" ", "Input"], StyleBox["\n", "Input"], StyleBox[ RowBox[{"U1", " ", "=", " ", "nk"}], "Input"], StyleBox[";", "Input"], StyleBox[" ", "Input"], StyleBox["\n", "Input"], StyleBox[ RowBox[{"U2", " ", "=", " ", "nl"}], "Input"], StyleBox[";", "Input"], StyleBox["\n", "Input"], StyleBox[ RowBox[{"U3", " ", "=", " ", "nm"}], "Input"], StyleBox[";", "Input"], StyleBox[" ", "Input"], StyleBox["\n", "Input"], StyleBox[ RowBox[{"T", " ", "=", " ", RowBox[{"RotationMatrix", "[", RowBox[{ RowBox[{"-", "T1"}], ",", " ", RowBox[{"{", RowBox[{"1", ",", " ", "0", ",", " ", "0"}], "}"}]}], "]"}]}], "Input"], StyleBox[";", "Input"], StyleBox[" ", "Input"], StyleBox["\n", "Input"], StyleBox[ RowBox[{"nk", " ", "=", " ", RowBox[{"U1", ".", "T"}]}], "Input"], StyleBox[";", "Input"], StyleBox[" ", "Input"], StyleBox["\n", "Input"], StyleBox[ RowBox[{"nl", " ", "=", " ", RowBox[{"U2", ".", "T"}]}], "Input"], StyleBox[";", "Input"], StyleBox[" ", "Input"], StyleBox["\n", "Input"], StyleBox[ RowBox[{"nm", " ", "=", " ", RowBox[{"U3", ".", "T"}]}], "Input"], StyleBox[";", "Input"], StyleBox[" ", "Input"], StyleBox["\n", "Input"], StyleBox[ RowBox[{"v1", " ", "=", " ", RowBox[{"Table", "[", RowBox[{ RowBox[{"Join", "[", RowBox[{ RowBox[{"nk", "[", RowBox[{"[", "i", "]"}], "]"}], ",", " ", RowBox[{"{", "1", "}"}]}], "]"}], ",", " ", RowBox[{"{", RowBox[{"i", ",", " ", "1", ",", " ", "P"}], "}"}]}], "]"}]}], "Input"], StyleBox[";", "Input"], StyleBox[" ", "Input"], StyleBox["\n", "Input"], StyleBox[ RowBox[{"v2", " ", "=", " ", RowBox[{"Table", "[", RowBox[{ RowBox[{"Join", "[", RowBox[{ RowBox[{"nl", "[", RowBox[{"[", "i", "]"}], "]"}], ",", " ", RowBox[{"{", "1", "}"}]}], "]"}], ",", " ", RowBox[{"{", RowBox[{"i", ",", " ", "1", ",", " ", "P"}], "}"}]}], "]"}]}], "Input"], StyleBox[";", "Input"], StyleBox[" ", "Input"], StyleBox["\n", "Input"], StyleBox[ RowBox[{"v3", " ", "=", " ", RowBox[{"Table", "[", RowBox[{ RowBox[{"Join", "[", RowBox[{ RowBox[{"nm", "[", RowBox[{"[", "i", "]"}], "]"}], ",", " ", RowBox[{"{", "1", "}"}]}], "]"}], ",", " ", RowBox[{"{", RowBox[{"i", ",", " ", "1", ",", " ", "P"}], "}"}]}], "]"}]}], "Input"], StyleBox[";", "Input"], StyleBox[" ", "Input"], StyleBox["\n", "Input"], StyleBox[ RowBox[{"Q", " ", "=", " ", RowBox[{"{", RowBox[{ RowBox[{"{", RowBox[{"1", ",", " ", "0", ",", " ", "0", ",", " ", "0"}], "}"}], ",", " ", RowBox[{"{", RowBox[{"0", ",", " ", "1", ",", " ", "0", ",", " ", "0"}], "}"}], ",", " ", RowBox[{"{", RowBox[{"0", ",", " ", "0", ",", " ", "1", ",", " ", "0"}], "}"}], ",", " ", RowBox[{"{", RowBox[{"x2", ",", " ", "y2", ",", " ", "z2", ",", " ", "1"}], "}"}]}], "}"}]}], "Input"], StyleBox[";", "Input"], StyleBox[" ", "Input"], StyleBox["\n", "Input"], StyleBox[ RowBox[{"U1", " ", "=", " ", RowBox[{"v1", ".", "Q"}]}], "Input"], StyleBox[";", "Input"], StyleBox[" ", "Input"], StyleBox["\n", "Input"], StyleBox[ RowBox[{"U2", " ", "=", " ", RowBox[{"v2", ".", "Q"}]}], "Input"], StyleBox[";", "Input"], StyleBox["\n", "Input"], StyleBox[ RowBox[{"U3", " ", "=", " ", RowBox[{"v3", ".", "Q"}]}], "Input"], StyleBox[";", "Input"], StyleBox[" ", "Input"], StyleBox["\n", "Input"], StyleBox[ RowBox[{"nk", " ", "=", " ", RowBox[{"Table", "[", RowBox[{ RowBox[{"Take", "[", RowBox[{ RowBox[{"U1", "[", RowBox[{"[", "i", "]"}], "]"}], ",", " ", "3"}], "]"}], ",", " ", RowBox[{"{", RowBox[{"i", ",", " ", "1", ",", " ", "P"}], "}"}]}], "]"}]}], "Input"], StyleBox[";", "Input"], StyleBox[" ", "Input"], StyleBox["\n", "Input"], StyleBox[ RowBox[{"nl", " ", "=", " ", RowBox[{"Table", "[", RowBox[{ RowBox[{"Take", "[", RowBox[{ RowBox[{"U2", "[", RowBox[{"[", "i", "]"}], "]"}], ",", " ", "3"}], "]"}], ",", " ", RowBox[{"{", RowBox[{"i", ",", " ", "1", ",", " ", "P"}], "}"}]}], "]"}]}], "Input"], StyleBox[";", "Input"], StyleBox[" ", "Input"], StyleBox["\n", "Input"], StyleBox[ RowBox[{"nm", " ", "=", " ", RowBox[{"Table", "[", RowBox[{ RowBox[{"Take", "[", RowBox[{ RowBox[{"U3", "[", RowBox[{"[", "i", "]"}], "]"}], ",", " ", "3"}], "]"}], ",", " ", RowBox[{"{", RowBox[{"i", ",", " ", "1", ",", " ", "P"}], "}"}]}], "]"}]}], "Input"], StyleBox[";", "Input"], StyleBox["\n", "Input"], StyleBox[ RowBox[{ RowBox[{"tplk", "[", RowBox[{"[", "k", "]"}], "]"}], "=", " ", RowBox[{"nk", "[", RowBox[{"[", "2", "]"}], "]"}]}], "Input"], StyleBox[";", "Input"], StyleBox[" ", "Input"], StyleBox["\n", "Input"], StyleBox[ RowBox[{ RowBox[{"tpll", "[", RowBox[{"[", "k", "]"}], "]"}], "=", " ", RowBox[{"nl", "[", RowBox[{"[", "2", "]"}], "]"}]}], "Input"], StyleBox[";", "Input"], StyleBox["\n", "Input"], StyleBox[ RowBox[{ RowBox[{"tplm", "[", RowBox[{"[", "k", "]"}], "]"}], "=", " ", RowBox[{"nm", "[", RowBox[{"[", "2", "]"}], "]"}]}], "Input"]}], StyleBox[")", "Input"]}], StyleBox[",", "Input"], StyleBox[ RowBox[{"{", RowBox[{"k", ",", "tj"}], "}"}], "Input"]}], StyleBox["]", "Input"]}], StyleBox[";", "Input"]}]], "Input", CellChangeTimes->{{3.572794697520533*^9, 3.5727947043221455`*^9}, { 3.5727948024151173`*^9, 3.572794803507119*^9}, {3.5727948673580313`*^9, 3.572794869838436*^9}, {3.572795260993526*^9, 3.5727952676703377`*^9}, { 3.5727954366342344`*^9, 3.5727954702834935`*^9}, {3.5727973545484033`*^9, 3.5727973657024226`*^9}, {3.572803225319809*^9, 3.572803264553878*^9}, { 3.57280330550395*^9, 3.5728033127111626`*^9}, 3.5728033508376293`*^9, { 3.572803528365941*^9, 3.5728035301443443`*^9}, {3.572803715051469*^9, 3.572803769604765*^9}, {3.572840261866465*^9, 3.5728402628648667`*^9}, { 3.5728405648813972`*^9, 3.572840578905822*^9}, {3.5728406372187243`*^9, 3.572840716170463*^9}, {3.5728407476825185`*^9, 3.572840785746585*^9}, { 3.5728408298790627`*^9, 3.5728408871311636`*^9}, {3.5728409363336496`*^9, 3.572841070790286*^9}, {3.572841415987692*^9, 3.572841609740032*^9}, 3.5728416910629754`*^9, {3.5728417502806797`*^9, 3.572841879885707*^9}, { 3.572841914564568*^9, 3.5728419300709953`*^9}, {3.572841986199894*^9, 3.572842001659521*^9}, {3.5728426453322515`*^9, 3.5728426487174573`*^9}, { 3.572844776030794*^9, 3.572844786919613*^9}, {3.57284502999924*^9, 3.5728450550060835`*^9}, {3.572845459218394*^9, 3.572845496174859*^9}, { 3.5728455656105804`*^9, 3.572845617574272*^9}, {3.5728456738279705`*^9, 3.572845681440784*^9}, {3.5728457322656736`*^9, 3.572845755291314*^9}, 3.572845978356106*^9, {3.572846145151599*^9, 3.572846189096876*^9}, { 3.572846392926834*^9, 3.5728464086828613`*^9}, 3.572846518881455*^9, 3.5728469699562473`*^9, {3.5728470834620466`*^9, 3.572847089873658*^9}, { 3.572847132180932*^9, 3.5728472650151653`*^9}, 3.5728473515485177`*^9, { 3.572849422046554*^9, 3.572849426554962*^9}, {3.572849678776205*^9, 3.572849686077018*^9}, {3.5728503673146143`*^9, 3.5728503811830387`*^9}, { 3.5728505998798227`*^9, 3.572850604637831*^9}, 3.5730459405924234`*^9, { 3.5731485633994884`*^9, 3.5731485765503116`*^9}, {3.5731486137719765`*^9, 3.57314870088253*^9}, 3.5746558585762653`*^9, {3.574670156150858*^9, 3.5746701578512607`*^9}, {3.5746701931541224`*^9, 3.5746702231061754`*^9}, {3.574670271856261*^9, 3.574670280545476*^9}, { 3.574670327688759*^9, 3.574670328952361*^9}, {3.5746703662988267`*^9, 3.574670379184449*^9}, {3.5746706373025026`*^9, 3.574670676068571*^9}, { 3.574740867627764*^9, 3.574740880248186*^9}, {3.5749502553646355`*^9, 3.574950272103464*^9}, {3.576339630556878*^9, 3.576339734687061*^9}, { 3.5763398243092184`*^9, 3.576339825838021*^9}, {3.5763416702292604`*^9, 3.57634168703049*^9}, {3.5763417364981766`*^9, 3.576341803905895*^9}, { 3.576341868178008*^9, 3.5763418681936083`*^9}, {3.5763419093152804`*^9, 3.5763419093152804`*^9}, {3.5763424265653887`*^9, 3.5763425069991302`*^9}, {3.576342544470396*^9, 3.576342547465601*^9}, 3.576342648600579*^9, {3.5763426979590654`*^9, 3.5763427031070747`*^9}, { 3.5763427586743717`*^9, 3.5763427588771725`*^9}, {3.576342794289235*^9, 3.5763428317761*^9}, {3.5763429278098693`*^9, 3.5763429405238914`*^9}, { 3.576343331273378*^9, 3.5763433339721823`*^9}, {3.5763796187907705`*^9, 3.5763796306779914`*^9}, {3.5763798021378927`*^9, 3.5763798209047256`*^9}, {3.5763798751148205`*^9, 3.576379887220442*^9}, 3.576380063297951*^9, {3.576380112157237*^9, 3.5763801216888537`*^9}, 3.576380237425457*^9, {3.57638028470914*^9, 3.576380288640347*^9}, 3.5763803228356075`*^9, {3.576380436185406*^9, 3.5763804619254513`*^9}, { 3.576380564105631*^9, 3.5763805738712482`*^9}, 3.576380696939864*^9, { 3.5763811029461775`*^9, 3.576381104069379*^9}, {3.57638115554947*^9, 3.5763811565322714`*^9}, {3.5763813276333723`*^9, 3.5763813312213783`*^9}, 3.5763814037615056`*^9, {3.5763814436663756`*^9, 3.576381444539977*^9}, { 3.57638148027964*^9, 3.5763814804668407`*^9}}], Cell[CellGroupData[{ Cell[BoxData[ RowBox[{"nk", "[", RowBox[{"[", "2", "]"}], "]"}]], "Input", CellChangeTimes->{{3.572794697520533*^9, 3.5727947043221455`*^9}, { 3.5727948024151173`*^9, 3.572794803507119*^9}, {3.5727948673580313`*^9, 3.572794869838436*^9}, {3.572795260993526*^9, 3.5727952676703377`*^9}, { 3.5727954366342344`*^9, 3.5727954702834935`*^9}, {3.5727973545484033`*^9, 3.5727973657024226`*^9}, {3.572803225319809*^9, 3.572803264553878*^9}, { 3.57280330550395*^9, 3.5728033127111626`*^9}, 3.5728033508376293`*^9, { 3.572803528365941*^9, 3.5728035301443443`*^9}, {3.572803715051469*^9, 3.572803769604765*^9}, {3.572840261866465*^9, 3.5728402628648667`*^9}, { 3.5728405648813972`*^9, 3.572840578905822*^9}, {3.5728406372187243`*^9, 3.572840716170463*^9}, {3.5728407476825185`*^9, 3.572840785746585*^9}, { 3.5728408298790627`*^9, 3.5728408871311636`*^9}, {3.5728409363336496`*^9, 3.572841070790286*^9}, {3.572841415987692*^9, 3.572841609740032*^9}, 3.5728416910629754`*^9, {3.5728417502806797`*^9, 3.572841879885707*^9}, { 3.572841914564568*^9, 3.5728419300709953`*^9}, {3.572841986199894*^9, 3.572842001659521*^9}, {3.5728426453322515`*^9, 3.5728426487174573`*^9}, { 3.572844776030794*^9, 3.572844786919613*^9}, {3.57284502999924*^9, 3.5728450550060835`*^9}, {3.572845459218394*^9, 3.572845496174859*^9}, { 3.5728455656105804`*^9, 3.572845617574272*^9}, {3.5728456738279705`*^9, 3.572845681440784*^9}, {3.5728457322656736`*^9, 3.572845755291314*^9}, 3.572845978356106*^9, {3.572846145151599*^9, 3.572846189096876*^9}, { 3.572846392926834*^9, 3.5728464086828613`*^9}, 3.572846518881455*^9, 3.5728469699562473`*^9, {3.5728470834620466`*^9, 3.572847089873658*^9}, { 3.572847132180932*^9, 3.5728472650151653`*^9}, 3.5728473515485177`*^9, { 3.572849422046554*^9, 3.572849426554962*^9}, {3.572849678776205*^9, 3.572849686077018*^9}, {3.5728503673146143`*^9, 3.5728503811830387`*^9}, { 3.5728505998798227`*^9, 3.572850604637831*^9}, 3.5730459405924234`*^9, { 3.5731485633994884`*^9, 3.5731485765503116`*^9}, {3.5731486137719765`*^9, 3.57314870088253*^9}, 3.5746558585762653`*^9, {3.574670156150858*^9, 3.5746701578512607`*^9}, {3.5746701931541224`*^9, 3.5746702231061754`*^9}, {3.574670271856261*^9, 3.574670280545476*^9}, { 3.574670327688759*^9, 3.574670328952361*^9}, {3.5746703662988267`*^9, 3.574670379184449*^9}, {3.5746706373025026`*^9, 3.574670676068571*^9}, { 3.574740867627764*^9, 3.574740880248186*^9}, {3.5749502553646355`*^9, 3.574950272103464*^9}, {3.576339630556878*^9, 3.576339734687061*^9}, { 3.5763398243092184`*^9, 3.576339825838021*^9}, {3.5763416702292604`*^9, 3.57634168703049*^9}, {3.5763417364981766`*^9, 3.576341803905895*^9}, { 3.576341868178008*^9, 3.5763418681936083`*^9}, {3.5763419093152804`*^9, 3.5763419093152804`*^9}, {3.5763424265653887`*^9, 3.5763425069991302`*^9}, {3.576342544470396*^9, 3.576342547465601*^9}, 3.576342648600579*^9, {3.5763426979590654`*^9, 3.5763427031070747`*^9}, { 3.5763427586743717`*^9, 3.5763427588771725`*^9}, {3.576342794289235*^9, 3.5763428317761*^9}, {3.5763429278098693`*^9, 3.5763429405238914`*^9}, { 3.576343331273378*^9, 3.5763433377941895`*^9}, {3.5763433946718893`*^9, 3.5763433988682966`*^9}}], Cell[BoxData[ RowBox[{"{", RowBox[{"2.5413936804492883`", ",", RowBox[{"-", "1.9439930410068949`"}], ",", "0.00006639159789333312`"}], "}"}]], "Output", CellChangeTimes->{ 3.576388759318022*^9, 3.576392279377405*^9, 3.5763923947864075`*^9, 3.5763926939481335`*^9, 3.5763932058942327`*^9, 3.5763933768705325`*^9, { 3.576405781476482*^9, 3.5764057919597*^9}, 3.57641967846493*^9, 3.576469334671249*^9, 3.5764698004724674`*^9, {3.5764703129177675`*^9, 3.576470369187066*^9}, {3.5764704078907337`*^9, 3.5764704577328215`*^9}, 3.5764704885428753`*^9, 3.5764707840697947`*^9, 3.5802090195653305`*^9}] }, Open ]], Cell[CellGroupData[{ Cell[BoxData[ StyleBox[ RowBox[{ RowBox[{"Table", "[", RowBox[{ RowBox[{"Show", "[", RowBox[{ RowBox[{"Plotd", "[", RowBox[{"[", "i", "]"}], "]"}], ",", RowBox[{"Plote", "[", RowBox[{"[", "i", "]"}], "]"}], ",", " ", RowBox[{"Plotf", "[", RowBox[{"[", "i", "]"}], "]"}], ",", " ", RowBox[{"Plota", "[", RowBox[{"[", "i", "]"}], "]"}], ",", " ", RowBox[{"Plotb0", "[", RowBox[{"[", "i", "]"}], "]"}], ",", " ", RowBox[{"Plotc", "[", RowBox[{"[", "i", "]"}], "]"}], ",", " ", RowBox[{"{", RowBox[{ RowBox[{"Axes", " ", "->", " ", "Automatic"}], ",", " ", RowBox[{"AxesLabel", " ", "->", " ", RowBox[{"{", RowBox[{"xl", ",", " ", "yl", ",", " ", "zl"}], "}"}]}], ",", " ", "\n", " ", RowBox[{"AspectRatio", " ", "->", " ", "Automatic"}], ",", " ", RowBox[{"Boxed", " ", "->", " ", "False"}], ",", " ", RowBox[{"PlotRange", " ", "->", " ", RowBox[{"{", RowBox[{ RowBox[{"{", RowBox[{ RowBox[{"-", "3"}], ",", "3"}], "}"}], ",", RowBox[{"{", RowBox[{ RowBox[{"-", "5"}], ",", "3"}], "}"}], ",", RowBox[{"{", RowBox[{ RowBox[{"-", "3"}], ",", "3"}], "}"}]}], "}"}]}], ",", " ", RowBox[{"SphericalRegion", " ", "->", " ", "True"}]}], "}"}]}], "]"}], ",", RowBox[{"{", RowBox[{"i", ",", "1", ",", "tj"}], "}"}]}], "]"}], " ", "\n"}], "Input"]], "Input", CellChangeTimes->{{3.572794697520533*^9, 3.5727947043221455`*^9}, { 3.5727948024151173`*^9, 3.572794803507119*^9}, {3.5727948673580313`*^9, 3.572794869838436*^9}, {3.572795260993526*^9, 3.5727952676703377`*^9}, { 3.5727954366342344`*^9, 3.5727954702834935`*^9}, {3.5727973545484033`*^9, 3.5727973657024226`*^9}, {3.572803225319809*^9, 3.572803264553878*^9}, { 3.57280330550395*^9, 3.5728033127111626`*^9}, 3.5728033508376293`*^9, { 3.572803528365941*^9, 3.5728035301443443`*^9}, {3.572803715051469*^9, 3.572803769604765*^9}, {3.572840261866465*^9, 3.5728402628648667`*^9}, { 3.5728405648813972`*^9, 3.572840578905822*^9}, {3.5728406372187243`*^9, 3.572840716170463*^9}, {3.5728407476825185`*^9, 3.572840785746585*^9}, { 3.5728408298790627`*^9, 3.5728408871311636`*^9}, {3.5728409363336496`*^9, 3.572841070790286*^9}, {3.572841415987692*^9, 3.572841609740032*^9}, 3.5728416910629754`*^9, {3.5728417502806797`*^9, 3.572841879885707*^9}, { 3.572841914564568*^9, 3.5728419300709953`*^9}, {3.572841986199894*^9, 3.572842001659521*^9}, {3.5728426453322515`*^9, 3.5728426487174573`*^9}, { 3.572844776030794*^9, 3.572844786919613*^9}, {3.57284502999924*^9, 3.5728450550060835`*^9}, {3.572845459218394*^9, 3.572845496174859*^9}, { 3.5728455656105804`*^9, 3.572845617574272*^9}, {3.5728456738279705`*^9, 3.572845681440784*^9}, {3.5728457322656736`*^9, 3.572845755291314*^9}, 3.572845978356106*^9, {3.572846145151599*^9, 3.572846189096876*^9}, { 3.572846392926834*^9, 3.5728464086828613`*^9}, 3.572846518881455*^9, 3.5728469699562473`*^9, {3.5728470834620466`*^9, 3.572847089873658*^9}, { 3.572847132180932*^9, 3.5728472650151653`*^9}, 3.5728473515485177`*^9, { 3.572849422046554*^9, 3.572849426554962*^9}, {3.572849678776205*^9, 3.572849686077018*^9}, {3.5728503673146143`*^9, 3.5728503811830387`*^9}, { 3.5728505998798227`*^9, 3.572850604637831*^9}, 3.5730459405924234`*^9, { 3.5731485633994884`*^9, 3.5731485765503116`*^9}, {3.5731486137719765`*^9, 3.57314870088253*^9}, 3.5746558585762653`*^9, {3.574670156150858*^9, 3.5746701578512607`*^9}, {3.5746701931541224`*^9, 3.5746702231061754`*^9}, {3.574670271856261*^9, 3.574670280545476*^9}, { 3.574670327688759*^9, 3.574670328952361*^9}, {3.5746703662988267`*^9, 3.574670379184449*^9}, {3.5746706373025026`*^9, 3.574670676068571*^9}, { 3.574740867627764*^9, 3.574740880248186*^9}, {3.5749502553646355`*^9, 3.574950272103464*^9}, {3.576339630556878*^9, 3.576339734687061*^9}, { 3.5763398243092184`*^9, 3.576339828802026*^9}, {3.5763417010081143`*^9, 3.5763417017569156`*^9}, {3.576341929018115*^9, 3.576341929018115*^9}, { 3.5763421518333063`*^9, 3.57634217669975*^9}, {3.576342212439413*^9, 3.5763422208634276`*^9}, 3.5763422534518847`*^9}], Cell[BoxData[ RowBox[{"{", Graphics3DBox[{ {RGBColor[1, NCache[ Rational[1, 3], 0.3333333333333333], NCache[ Rational[1, 3], 0.3333333333333333]], Opacity[0.5], SphereBox[{0.4177943922887849, 1.2290458124, 0}, 1.125]}, {RGBColor[1, NCache[ Rational[1, 3], 0.3333333333333333], NCache[ Rational[1, 3], 0.3333333333333333]], Opacity[0.5], SphereBox[{0.4177943922887849, -0.614523558, 1.0643841856}, 1.125]}, {RGBColor[1, NCache[ Rational[1, 3], 0.3333333333333333], NCache[ Rational[1, 3], 0.3333333333333333]], Opacity[0.5], SphereBox[{0.4177943922887849, -0.614523558, -1.0643841856}, 1.125]}, {Opacity[0.5], SphereBox[{-2.536395374456182, 0, 0}, 0.2572]}, {Opacity[0.5], SphereBox[{0, 0, 0}, 0.1786]}, {Opacity[0.5], SphereBox[{-3.9604158553720157`, 2.4660822841446115`, 0}, 0.2572]}, Text3DBox["4", {-2.536395374456182, 0, 0}, {1, 0}], Text3DBox["9", {0, 0, 0}, {1, 0}], Text3DBox["3", {-3.9604158553720157`, 2.4660822841446115`, 0}, {1, 0}], TubeBox[{{-2.536395374456182, 0, 0}, {0, 0, 0}}, 0.02], TubeBox[{{-2.536395374456182, 0, 0}, {-3.9604158553720157`, 2.4660822841446115`, 0}}, 0.02], TubeBox[{{0, 0, 0}, {-3.9604158553720157`, 2.4660822841446115`, 0}}, 0.02]}, AspectRatio->Automatic, Axes->Automatic, AxesLabel->{ FormBox["xl", TraditionalForm], FormBox["yl", TraditionalForm], FormBox["zl", TraditionalForm]}, Boxed->False, PlotRange->{{-3, 3}, {-5, 3}, {-3, 3}}, SphericalRegion->True], "}"}]], "Output", CellChangeTimes->{ 3.5763887593336215`*^9, 3.576392279393005*^9, 3.5763923948020077`*^9, 3.576392693963733*^9, 3.5763932059098325`*^9, 3.5763933769017324`*^9, { 3.5764057814920816`*^9, 3.5764057919753003`*^9}, 3.57641967848053*^9, 3.576469334686849*^9, 3.576469800488067*^9, {3.5764703129333673`*^9, 3.5764703692026663`*^9}, {3.576470407906334*^9, 3.5764704577484217`*^9}, 3.5764704885740757`*^9, 3.576470784085395*^9, 3.5802090195809307`*^9}] }, Open ]], Cell["\<\ (*-------------------------------------------------------------------------*) (* next: O atoms in C-O-H, C-O-C: two doubly occ LP *)\ \>", "Text", CellChangeTimes->{{3.572794697520533*^9, 3.5727947043221455`*^9}, { 3.5727948024151173`*^9, 3.572794803507119*^9}, {3.5727948673580313`*^9, 3.572794869838436*^9}, {3.572795260993526*^9, 3.5727952676703377`*^9}, { 3.5727954366342344`*^9, 3.5727954702834935`*^9}, {3.5727973545484033`*^9, 3.5727973657024226`*^9}, {3.572803225319809*^9, 3.572803264553878*^9}, { 3.57280330550395*^9, 3.5728033127111626`*^9}, 3.5728033508376293`*^9, { 3.572803528365941*^9, 3.5728035301443443`*^9}, {3.572803715051469*^9, 3.572803769604765*^9}, {3.572840261866465*^9, 3.5728402628648667`*^9}, { 3.5728405648813972`*^9, 3.572840578905822*^9}, {3.5728406372187243`*^9, 3.572840716170463*^9}, {3.5728407476825185`*^9, 3.572840785746585*^9}, { 3.5728408298790627`*^9, 3.5728408871311636`*^9}, {3.5728409363336496`*^9, 3.572841070790286*^9}, {3.572841415987692*^9, 3.572841609740032*^9}, 3.5728416910629754`*^9, {3.5728417502806797`*^9, 3.572841879885707*^9}, { 3.572841914564568*^9, 3.5728419300709953`*^9}, {3.572841986199894*^9, 3.572842001659521*^9}, {3.5728426453322515`*^9, 3.5728426487174573`*^9}, { 3.572844776030794*^9, 3.572844786919613*^9}, {3.57284502999924*^9, 3.5728450550060835`*^9}, {3.572845459218394*^9, 3.572845496174859*^9}, { 3.5728455656105804`*^9, 3.572845617574272*^9}, {3.5728456738279705`*^9, 3.572845681440784*^9}, {3.5728457322656736`*^9, 3.572845755291314*^9}, 3.572845978356106*^9, {3.572846145151599*^9, 3.572846189096876*^9}, { 3.572846392926834*^9, 3.5728464086828613`*^9}, 3.572846518881455*^9, 3.5728469699562473`*^9, {3.5728470834620466`*^9, 3.572847089873658*^9}, { 3.572847132180932*^9, 3.5728472650151653`*^9}, 3.5728473515485177`*^9, { 3.572849422046554*^9, 3.572849426554962*^9}, {3.572849678776205*^9, 3.572849686077018*^9}, {3.5728503673146143`*^9, 3.5728503811830387`*^9}, { 3.5728505998798227`*^9, 3.572850604637831*^9}, 3.5730459405924234`*^9, { 3.5731485633994884`*^9, 3.5731485765503116`*^9}, {3.5731486137719765`*^9, 3.57314870088253*^9}, 3.5746558585762653`*^9, {3.574670156150858*^9, 3.5746701578512607`*^9}, {3.5746701931541224`*^9, 3.5746702231061754`*^9}, {3.574670271856261*^9, 3.574670280545476*^9}, { 3.574670327688759*^9, 3.574670328952361*^9}, {3.5746703662988267`*^9, 3.574670379184449*^9}, {3.5746706373025026`*^9, 3.574670676068571*^9}, { 3.574740867627764*^9, 3.574740880248186*^9}, {3.5749502553646355`*^9, 3.574950272103464*^9}, {3.576339630556878*^9, 3.5763396360948877`*^9}}], Cell[BoxData[{ RowBox[{ StyleBox[ RowBox[{ RowBox[{"k", "=", "1"}], ";"}], "Input"], "\n", RowBox[{"(*", RowBox[{ StyleBox[ RowBox[{ RowBox[{"Clear", "[", "conn", "]"}], ";"}], "Input"], "\n", StyleBox[ RowBox[{ RowBox[{"conn", " ", "=", " ", RowBox[{"{", RowBox[{ RowBox[{"{", RowBox[{"48", ",", "22", ",", "5"}], "}"}], ",", RowBox[{"{", RowBox[{"21", ",", "25", ",", "54"}], "}"}]}], "}"}]}], ";"}], "Input"]}], "*)"}]}], "\n", RowBox[{ RowBox[{"tpso", "=", RowBox[{"Table", "[", RowBox[{ RowBox[{"{", RowBox[{"0", ",", "0", ",", "0"}], "}"}], ",", RowBox[{"{", "hj", "}"}]}], "]"}]}], ";"}], "\[IndentingNewLine]", RowBox[{ RowBox[{"tpsu", "=", "tpso"}], ";"}], "\[IndentingNewLine]", RowBox[{ RowBox[{"hj", "=", "0"}], ";"}]}], "Input", CellChangeTimes->{{3.572794697520533*^9, 3.5727947043221455`*^9}, { 3.5727948024151173`*^9, 3.572794803507119*^9}, {3.5727948673580313`*^9, 3.572794869838436*^9}, {3.572795260993526*^9, 3.5727952676703377`*^9}, { 3.5727954366342344`*^9, 3.5727954702834935`*^9}, {3.5727973545484033`*^9, 3.5727973657024226`*^9}, {3.572803225319809*^9, 3.572803264553878*^9}, { 3.57280330550395*^9, 3.5728033127111626`*^9}, 3.5728033508376293`*^9, { 3.572803528365941*^9, 3.5728035301443443`*^9}, {3.572803715051469*^9, 3.572803769604765*^9}, {3.572840261866465*^9, 3.5728402628648667`*^9}, { 3.5728405648813972`*^9, 3.572840578905822*^9}, {3.5728406372187243`*^9, 3.572840716170463*^9}, {3.5728407476825185`*^9, 3.572840785746585*^9}, { 3.5728408298790627`*^9, 3.5728408871311636`*^9}, {3.5728409363336496`*^9, 3.572841070790286*^9}, {3.572841415987692*^9, 3.572841609740032*^9}, 3.5728416910629754`*^9, {3.5728417502806797`*^9, 3.572841879885707*^9}, { 3.572841914564568*^9, 3.5728419300709953`*^9}, {3.572841986199894*^9, 3.572842001659521*^9}, {3.5728426453322515`*^9, 3.5728426487174573`*^9}, { 3.572844776030794*^9, 3.572844786919613*^9}, {3.57284502999924*^9, 3.5728450550060835`*^9}, {3.572845459218394*^9, 3.572845496174859*^9}, { 3.5728455656105804`*^9, 3.572845617574272*^9}, {3.5728456738279705`*^9, 3.572845681440784*^9}, {3.5728457322656736`*^9, 3.572845755291314*^9}, 3.572845978356106*^9, {3.572846145151599*^9, 3.572846189096876*^9}, { 3.572846392926834*^9, 3.5728464086828613`*^9}, 3.572846518881455*^9, 3.5728469699562473`*^9, {3.5728470834620466`*^9, 3.572847089873658*^9}, { 3.572847132180932*^9, 3.5728472650151653`*^9}, 3.5728473515485177`*^9, { 3.572849422046554*^9, 3.572849426554962*^9}, {3.572849678776205*^9, 3.572849686077018*^9}, {3.5728503673146143`*^9, 3.5728503811830387`*^9}, { 3.5728505998798227`*^9, 3.572850604637831*^9}, 3.5730459405924234`*^9, { 3.5731485633994884`*^9, 3.5731485765503116`*^9}, {3.5731486137719765`*^9, 3.57314870088253*^9}, 3.5746558585762653`*^9, {3.574670156150858*^9, 3.5746701578512607`*^9}, {3.5746701931541224`*^9, 3.5746702231061754`*^9}, {3.574670271856261*^9, 3.574670280545476*^9}, { 3.574670327688759*^9, 3.574670328952361*^9}, {3.5746703662988267`*^9, 3.574670446904168*^9}, {3.5746710892508965`*^9, 3.574671127018563*^9}, { 3.574671266124007*^9, 3.574671266124007*^9}, {3.574671949327207*^9, 3.574671952228812*^9}, 3.5746720468897786`*^9, {3.574672142595947*^9, 3.5746721470419545`*^9}, {3.5747408907470045`*^9, 3.574740924458664*^9}, { 3.574741956213276*^9, 3.5747419624688873`*^9}, {3.5748306614370527`*^9, 3.5748307091575365`*^9}, 3.5748307421983943`*^9, 3.574830849354983*^9, { 3.5748316203083367`*^9, 3.574831676156435*^9}, {3.574831733065335*^9, 3.574831738228944*^9}, {3.5748530946245832`*^9, 3.574853097011388*^9}, 3.574853202997974*^9, {3.575001859979342*^9, 3.575001914766638*^9}, { 3.576295600982015*^9, 3.576295607190826*^9}, {3.576295662789324*^9, 3.5762956678281326`*^9}}], Cell[BoxData[{ RowBox[{ RowBox[{ RowBox[{"Plota", "=", " ", RowBox[{"Table", "[", RowBox[{ RowBox[{"{", "0", "}"}], ",", " ", RowBox[{"{", RowBox[{"i", ",", " ", "1", ",", " ", "hj"}], "}"}]}], "]"}]}], ";"}], " "}], "\n", RowBox[{ RowBox[{"Plotc", "=", " ", "Plota"}], ";"}], "\n", RowBox[{ RowBox[{ RowBox[{"Plotd", " ", "=", "Plota"}], ";"}], " "}], "\n", RowBox[{ RowBox[{"Plote", "=", " ", "Plota"}], ";"}], "\[IndentingNewLine]", RowBox[{ RowBox[{ RowBox[{"Plotb0", " ", "=", "Plota"}], ";"}], " "}], "\[IndentingNewLine]", RowBox[{ RowBox[{"Ok", "=", RowBox[{"{", RowBox[{ RowBox[{"{", RowBox[{ RowBox[{"-", "1"}], ",", "1", ",", "1"}], "}"}], ",", RowBox[{"{", RowBox[{"1", ",", "1", ",", "1"}], "}"}], ",", RowBox[{"{", RowBox[{"1", ",", "1", ",", "1"}], "}"}], ",", RowBox[{"{", RowBox[{ RowBox[{"-", "1"}], ",", RowBox[{"-", "1"}], ",", "1"}], "}"}]}], "}"}]}], ";"}]}], "Input", CellChangeTimes->{{3.574999421008658*^9, 3.5749994459219017`*^9}, { 3.5749994915051823`*^9, 3.5749996567718725`*^9}, {3.5750076770423594`*^9, 3.5750077104420176`*^9}, {3.575816701185139*^9, 3.5758167353803997`*^9}}], Cell[BoxData[ RowBox[{"<<", " ", "C:\\\\Kimb_mathem\\\\OBtransformation.m"}]], "Input", CellChangeTimes->{{3.574999421008658*^9, 3.5749994459219017`*^9}, { 3.5749994915051823`*^9, 3.5749996567718725`*^9}, {3.5750076770423594`*^9, 3.5750077104420176`*^9}, {3.575816701185139*^9, 3.5758167353803997`*^9}}], Cell[CellGroupData[{ Cell[BoxData[ RowBox[{" ", RowBox[{ RowBox[{"Table", "[", RowBox[{ RowBox[{"Show", "[", RowBox[{ RowBox[{"Plotd", "[", RowBox[{"[", "i", "]"}], "]"}], ",", RowBox[{"Plote", "[", RowBox[{"[", "i", "]"}], "]"}], ",", " ", RowBox[{"Plota", "[", RowBox[{"[", "i", "]"}], "]"}], ",", " ", RowBox[{"Plotb0", "[", RowBox[{"[", "i", "]"}], "]"}], ",", " ", RowBox[{"Plotc", "[", RowBox[{"[", "i", "]"}], "]"}], ",", " ", RowBox[{"{", RowBox[{ RowBox[{"Axes", " ", "->", " ", "Automatic"}], ",", " ", RowBox[{"AxesLabel", " ", "->", " ", RowBox[{"{", RowBox[{"xl", ",", " ", "yl", ",", " ", "zl"}], "}"}]}], ",", " ", "\n", " ", RowBox[{"AspectRatio", " ", "->", " ", "Automatic"}], ",", " ", RowBox[{"Boxed", " ", "->", " ", "False"}], ",", " ", RowBox[{"PlotRange", " ", "->", " ", "Automatic"}], ",", " ", RowBox[{"SphericalRegion", " ", "->", " ", "True"}]}], "}"}]}], "]"}], ",", RowBox[{"{", RowBox[{"i", ",", "1", ",", "hj"}], "}"}]}], "]"}], "\[IndentingNewLine]"}]}]], "Input", CellChangeTimes->{{3.572794697520533*^9, 3.5727947043221455`*^9}, { 3.5727948024151173`*^9, 3.572794803507119*^9}, {3.5727948673580313`*^9, 3.572794869838436*^9}, {3.572795260993526*^9, 3.5727952676703377`*^9}, { 3.5727954366342344`*^9, 3.5727954702834935`*^9}, {3.5727973545484033`*^9, 3.5727973657024226`*^9}, {3.572803225319809*^9, 3.572803264553878*^9}, { 3.57280330550395*^9, 3.5728033127111626`*^9}, 3.5728033508376293`*^9, { 3.572803528365941*^9, 3.5728035301443443`*^9}, {3.572803715051469*^9, 3.572803769604765*^9}, {3.572840261866465*^9, 3.5728402628648667`*^9}, { 3.5728405648813972`*^9, 3.572840578905822*^9}, {3.5728406372187243`*^9, 3.572840716170463*^9}, {3.5728407476825185`*^9, 3.572840785746585*^9}, { 3.5728408298790627`*^9, 3.5728408871311636`*^9}, {3.5728409363336496`*^9, 3.572841070790286*^9}, {3.572841415987692*^9, 3.572841609740032*^9}, 3.5728416910629754`*^9, {3.5728417502806797`*^9, 3.572841879885707*^9}, { 3.572841914564568*^9, 3.5728419300709953`*^9}, {3.572841986199894*^9, 3.572842001659521*^9}, {3.5728426453322515`*^9, 3.5728426487174573`*^9}, { 3.572844776030794*^9, 3.572844786919613*^9}, {3.57284502999924*^9, 3.5728450550060835`*^9}, {3.572845459218394*^9, 3.572845496174859*^9}, { 3.5728455656105804`*^9, 3.572845617574272*^9}, {3.5728456738279705`*^9, 3.572845681440784*^9}, {3.5728457322656736`*^9, 3.572845755291314*^9}, 3.572845978356106*^9, {3.572846145151599*^9, 3.572846189096876*^9}, { 3.572846392926834*^9, 3.5728464086828613`*^9}, 3.572846518881455*^9, 3.5728469699562473`*^9, {3.5728470834620466`*^9, 3.572847089873658*^9}, { 3.572847132180932*^9, 3.5728472650151653`*^9}, 3.5728473515485177`*^9, { 3.572849422046554*^9, 3.572849426554962*^9}, {3.572849678776205*^9, 3.572849686077018*^9}, {3.5728503673146143`*^9, 3.5728503811830387`*^9}, { 3.5728505998798227`*^9, 3.572850604637831*^9}, 3.5730459405924234`*^9, { 3.5731485633994884`*^9, 3.5731485765503116`*^9}, {3.5731486137719765`*^9, 3.57314870088253*^9}, 3.5746558585762653`*^9, {3.574670156150858*^9, 3.5746701578512607`*^9}, {3.5746701931541224`*^9, 3.5746702231061754`*^9}, {3.574670271856261*^9, 3.574670280545476*^9}, { 3.574670327688759*^9, 3.574670328952361*^9}, {3.5746703662988267`*^9, 3.574670379184449*^9}, {3.57467048205103*^9, 3.5746705596923666`*^9}, { 3.57467096030107*^9, 3.574670965371079*^9}, {3.574671247216774*^9, 3.5746712771688266`*^9}, {3.5746714284734926`*^9, 3.5746715738501472`*^9}, {3.574671616063822*^9, 3.574671780534911*^9}, 3.5746718110797644`*^9, 3.5746721941540375`*^9, {3.5746722378497143`*^9, 3.5746722899070053`*^9}, {3.574672371073948*^9, 3.574672409106815*^9}, { 3.5746724505248876`*^9, 3.5746724544404945`*^9}, {3.57467249738737*^9, 3.574672498401372*^9}, 3.574672534031834*^9, {3.574742024385396*^9, 3.574742025524198*^9}, {3.574830761168028*^9, 3.574830777984857*^9}, { 3.574830820947333*^9, 3.5748308292933474`*^9}, {3.5748311210138597`*^9, 3.5748311809803653`*^9}, {3.574831455806048*^9, 3.5748314566796494`*^9}, { 3.5748315927430887`*^9, 3.574831592899089*^9}, 3.5748317545777726`*^9, { 3.5748342338445272`*^9, 3.574834240209338*^9}, {3.5748532222016077`*^9, 3.574853232684826*^9}, {3.574936230277812*^9, 3.574936231073414*^9}, { 3.574936287982313*^9, 3.5749363005247355`*^9}, 3.5749363785248723`*^9, { 3.5749504137517133`*^9, 3.5749504242193317`*^9}, {3.5749505024534693`*^9, 3.574950554619961*^9}, {3.5749552745158367`*^9, 3.574955306979494*^9}, { 3.5749553440451593`*^9, 3.5749553449343605`*^9}, {3.574955521651471*^9, 3.5749555381563*^9}, {3.574955673002937*^9, 3.5749557212694216`*^9}, { 3.574955813839984*^9, 3.5749558159459877`*^9}, {3.5749558985949335`*^9, 3.5749558987977333`*^9}, 3.5749563537257323`*^9, {3.574956510194007*^9, 3.5749565110520086`*^9}, {3.574956664275478*^9, 3.5749566713110905`*^9}, { 3.5749567598256454`*^9, 3.5749567604184465`*^9}, {3.574956856077815*^9, 3.574956870773041*^9}, {3.5749983708148136`*^9, 3.5749983805336304`*^9}, { 3.5749985717431664`*^9, 3.574998577249976*^9}, 3.574998626499263*^9, { 3.5749986925653787`*^9, 3.574998726323838*^9}, {3.574998758678295*^9, 3.5749988738688974`*^9}, {3.574999166759412*^9, 3.574999172001021*^9}, 3.575003949462612*^9, {3.5750039800698657`*^9, 3.5750040011767025`*^9}, { 3.5750040562759995`*^9, 3.5750040652460155`*^9}, {3.575004096976471*^9, 3.5750041155249033`*^9}, {3.575004281836796*^9, 3.5750042876868057`*^9}}], Cell[BoxData[ RowBox[{"{", "}"}]], "Output", CellChangeTimes->{ 3.5763887593492217`*^9, 3.5763922794242053`*^9, 3.576392394833208*^9, 3.576392693979333*^9, 3.576393205925432*^9, 3.5763933769173326`*^9, { 3.576405781523282*^9, 3.5764057920065002`*^9}, 3.57641967849613*^9, 3.576469334702449*^9, 3.576469800519267*^9, {3.576470312964567*^9, 3.576470369218266*^9}, {3.5764704079375343`*^9, 3.5764704577796216`*^9}, 3.576470488589676*^9, 3.576470784100995*^9, 3.5802090195965304`*^9}] }, Open ]], 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, { 3.572714864038488*^9, 3.572714889419732*^9}, {3.5727149730514793`*^9, 3.57271500191153*^9}, {3.572715036933592*^9, 3.5727150664176435`*^9}, { 3.572715803191337*^9, 3.572715915183934*^9}, {3.5727159899548655`*^9, 3.572716037722149*^9}, {3.572767087700392*^9, 3.5727670990260115`*^9}, 3.5727756458897667`*^9, {3.5727757435615377`*^9, 3.5727758099084544`*^9}}], Cell[CellGroupData[{ Cell[BoxData[{ RowBox[{"a", "=", RowBox[{ "ReadList", "[", "\"\\"", "]"}]}], "\[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.1667547587533689`"}], "}"}], ",", RowBox[{"{", RowBox[{"4", ",", "3", ",", "1.1666500765740462`"}], "}"}], ",", RowBox[{"{", RowBox[{"5", ",", "2", ",", "1.0322407040975143`"}], "}"}], ",", RowBox[{"{", RowBox[{"5", ",", "3", ",", "1.1430342083511027`"}], "}"}], ",", RowBox[{"{", RowBox[{"6", ",", "1", ",", "1.1510447932042867`"}], "}"}], ",", RowBox[{"{", RowBox[{"7", ",", "2", ",", "0.928087955909884`"}], "}"}], ",", RowBox[{"{", RowBox[{"8", ",", "4", ",", "0.9237371284564129`"}], "}"}], ",", RowBox[{"{", RowBox[{"9", ",", "4", ",", "1.0502976872280907`"}], "}"}], ",", RowBox[{"{", RowBox[{"10", ",", "1", ",", "1.2126058567002422`"}], "}"}], ",", RowBox[{"{", RowBox[{"11", ",", "1", ",", "1.212447052309992`"}], "}"}], ",", RowBox[{"{", RowBox[{"12", ",", "5", ",", "1.0537280279235877`"}], "}"}], ",", RowBox[{"{", RowBox[{"13", ",", "3", ",", "1.2125328818910286`"}], "}"}], ",", RowBox[{"{", RowBox[{"14", ",", "3", ",", "1.2126186291866472`"}], "}"}], ",", RowBox[{"{", RowBox[{"15", ",", "6", ",", "1.145619428516999`"}], "}"}], ",", RowBox[{"{", RowBox[{"16", ",", "6", ",", "1.1457030746039425`"}], "}"}], ",", RowBox[{"{", RowBox[{"17", ",", "6", ",", "1.161048039836913`"}], "}"}]}], "}"}]], "Output", CellChangeTimes->{ 3.5763887593804216`*^9, 3.576392279439805*^9, 3.576392394848808*^9, 3.5763926940105333`*^9, 3.5763932059566326`*^9, 3.576393376932933*^9, { 3.5764057815388823`*^9, 3.5764057920221004`*^9}, 3.5764196785273304`*^9, 3.576469334718049*^9, 3.5764698005348673`*^9, {3.5764703129801674`*^9, 3.576470369249466*^9}, {3.5764704079531345`*^9, 3.5764704577952213`*^9}, 3.576470488620876*^9, 3.5764707841321945`*^9, 3.5802090196277304`*^9}], Cell[BoxData["16"], "Output", CellChangeTimes->{ 3.5763887593804216`*^9, 3.576392279439805*^9, 3.576392394848808*^9, 3.5763926940105333`*^9, 3.5763932059566326`*^9, 3.576393376932933*^9, { 3.5764057815388823`*^9, 3.5764057920221004`*^9}, 3.5764196785273304`*^9, 3.576469334718049*^9, 3.5764698005348673`*^9, {3.5764703129801674`*^9, 3.576470369249466*^9}, {3.5764704079531345`*^9, 3.5764704577952213`*^9}, 3.576470488620876*^9, 3.5764707841321945`*^9, 3.5802090196277304`*^9}], Cell[BoxData["8"], "Output", CellChangeTimes->{ 3.5763887593804216`*^9, 3.576392279439805*^9, 3.576392394848808*^9, 3.5763926940105333`*^9, 3.5763932059566326`*^9, 3.576393376932933*^9, { 3.5764057815388823`*^9, 3.5764057920221004`*^9}, 3.5764196785273304`*^9, 3.576469334718049*^9, 3.5764698005348673`*^9, {3.5764703129801674`*^9, 3.576470369249466*^9}, {3.5764704079531345`*^9, 3.5764704577952213`*^9}, 3.576470488620876*^9, 3.5764707841321945`*^9, 3.5802090196277304`*^9}] }, Open ]], Cell[CellGroupData[{ Cell[BoxData[{ RowBox[{ RowBox[{"data1", "=", RowBox[{"Table", "[", RowBox[{ RowBox[{"a", "[", RowBox[{"[", RowBox[{"i", ",", "3"}], "]"}], "]"}], ",", RowBox[{"{", RowBox[{"i", ",", "1", ",", "nb"}], "}"}]}], "]"}]}], ";"}], "\[IndentingNewLine]", RowBox[{"Histogram", "[", RowBox[{"data1", ",", RowBox[{"{", RowBox[{"0.92", ",", "1.20", ",", "0.002"}], "}"}]}], "]"}], "\[IndentingNewLine]"}], "Input", CellChangeTimes->{{3.574935943705309*^9, 3.574935952815725*^9}, 3.574935986464984*^9, {3.5749360234214487`*^9, 3.574936050752697*^9}, { 3.575375124746955*^9, 3.5753751382097783`*^9}, {3.575375905996327*^9, 3.575375926978364*^9}, {3.5753912779750137`*^9, 3.57539131004867*^9}, { 3.575700625296671*^9, 3.575700653704321*^9}, {3.5757278228511343`*^9, 3.5757278405571656`*^9}}], Cell[BoxData[ GraphicsBox[ {RGBColor[0.798413061722744, 0.824719615472648, 0.968322270542458], EdgeForm[Opacity[0.63]], {}, {RGBColor[0.798413061722744, 0.824719615472648, 0.968322270542458], EdgeForm[Opacity[0.63]], TagBox[ TooltipBox[ TagBox[ DynamicBox[{ FEPrivate`If[ CurrentValue["MouseOver"], EdgeForm[{ GrayLevel[0.5], AbsoluteThickness[1.5], Opacity[0.66]}], {}, {}], RectangleBox[{0.922, 0}, {0.924, 1}, "RoundingRadius" -> 0]}, ImageSizeCache->{{15.5, 18.90287769784163}, {0.5484819359288338, 96.8398375874264}}], StatusArea[#, 1]& , TagBoxNote->"1"], StyleBox["1", { GrayLevel[0]}, StripOnInput -> False]], Annotation[#, Style[1, { GrayLevel[0]}], "Tooltip"]& ], TagBox[ TooltipBox[ TagBox[ DynamicBox[{ FEPrivate`If[ CurrentValue["MouseOver"], EdgeForm[{ GrayLevel[0.5], AbsoluteThickness[1.5], Opacity[0.66]}], {}, {}], RectangleBox[{0.928, 0}, {0.93, 1}, "RoundingRadius" -> 0]}, ImageSizeCache->{{22.708633093525123`, 26.11151079136698}, { 0.5484819359288338, 96.8398375874264}}], StatusArea[#, 1]& , TagBoxNote->"1"], StyleBox["1", { GrayLevel[0]}, StripOnInput -> False]], Annotation[#, Style[1, { GrayLevel[0]}], "Tooltip"]& ], TagBox[ TooltipBox[ TagBox[ DynamicBox[{ FEPrivate`If[ CurrentValue["MouseOver"], EdgeForm[{ GrayLevel[0.5], AbsoluteThickness[1.5], Opacity[0.66]}], {}, {}], RectangleBox[{1.032, 0}, {1.034, 1}, "RoundingRadius" -> 0]}, ImageSizeCache->{{147.65827338129498`, 151.0611510791366}, { 0.5484819359288338, 96.8398375874264}}], StatusArea[#, 1]& , TagBoxNote->"1"], StyleBox["1", { GrayLevel[0]}, StripOnInput -> False]], Annotation[#, Style[1, { GrayLevel[0]}], "Tooltip"]& ], TagBox[ TooltipBox[ TagBox[ DynamicBox[{ FEPrivate`If[ CurrentValue["MouseOver"], EdgeForm[{ GrayLevel[0.5], AbsoluteThickness[1.5], Opacity[0.66]}], {}, {}], RectangleBox[{1.05, 0}, {1.052, 1}, "RoundingRadius" -> 0]}, ImageSizeCache->{{169.28417266187057`, 172.6870503597122}, { 0.5484819359288338, 96.8398375874264}}], StatusArea[#, 1]& , TagBoxNote->"1"], StyleBox["1", { GrayLevel[0]}, StripOnInput -> False]], Annotation[#, Style[1, { GrayLevel[0]}], "Tooltip"]& ], TagBox[ TooltipBox[ TagBox[ DynamicBox[{ FEPrivate`If[ CurrentValue["MouseOver"], EdgeForm[{ GrayLevel[0.5], AbsoluteThickness[1.5], Opacity[0.66]}], {}, {}], RectangleBox[{1.052, 0}, {1.054, 1}, "RoundingRadius" -> 0]}, ImageSizeCache->{{171.6870503597122, 175.08992805755406`}, { 0.5484819359288338, 96.8398375874264}}], StatusArea[#, 1]& , TagBoxNote->"1"], StyleBox["1", { GrayLevel[0]}, StripOnInput -> False]], Annotation[#, Style[1, { GrayLevel[0]}], "Tooltip"]& ], TagBox[ TooltipBox[ TagBox[ DynamicBox[{ FEPrivate`If[ CurrentValue["MouseOver"], EdgeForm[{ GrayLevel[0.5], AbsoluteThickness[1.5], Opacity[0.66]}], {}, {}], RectangleBox[{1.1420000000000001`, 0}, {1.1440000000000001`, 1}, "RoundingRadius" -> 0]}, ImageSizeCache->{{279.81654676258995`, 283.2194244604318}, { 0.5484819359288338, 96.8398375874264}}], StatusArea[#, 1]& , TagBoxNote->"1"], StyleBox["1", { GrayLevel[0]}, StripOnInput -> False]], Annotation[#, Style[1, { GrayLevel[0]}], "Tooltip"]& ], TagBox[ TooltipBox[ TagBox[ DynamicBox[{ FEPrivate`If[ CurrentValue["MouseOver"], EdgeForm[{ GrayLevel[0.5], AbsoluteThickness[1.5], Opacity[0.66]}], {}, {}], RectangleBox[{1.1440000000000001`, 0}, {1.1460000000000001`, 2}, "RoundingRadius" -> 0]}, ImageSizeCache->{{282.2194244604318, 285.62230215827344`}, {-94.74287371556873, 96.8398375874264}}], StatusArea[#, 2]& , TagBoxNote->"2"], StyleBox["2", { GrayLevel[0]}, StripOnInput -> False]], Annotation[#, Style[2, { GrayLevel[0]}], "Tooltip"]& ], TagBox[ TooltipBox[ TagBox[ DynamicBox[{ FEPrivate`If[ CurrentValue["MouseOver"], EdgeForm[{ GrayLevel[0.5], AbsoluteThickness[1.5], Opacity[0.66]}], {}, {}], RectangleBox[{1.1500000000000001`, 0}, {1.1520000000000001`, 1}, "RoundingRadius" -> 0]}, ImageSizeCache->{{289.42805755395693`, 292.8309352517988}, { 0.5484819359288338, 96.8398375874264}}], StatusArea[#, 1]& , TagBoxNote->"1"], StyleBox["1", { GrayLevel[0]}, StripOnInput -> False]], Annotation[#, Style[1, { GrayLevel[0]}], "Tooltip"]& ], TagBox[ TooltipBox[ TagBox[ DynamicBox[{ FEPrivate`If[ CurrentValue["MouseOver"], EdgeForm[{ GrayLevel[0.5], AbsoluteThickness[1.5], Opacity[0.66]}], {}, {}], RectangleBox[{1.1600000000000001`, 0}, {1.162, 1}, "RoundingRadius" -> 0]}, ImageSizeCache->{{301.44244604316555`, 304.8453237410072}, { 0.5484819359288338, 96.8398375874264}}], StatusArea[#, 1]& , TagBoxNote->"1"], StyleBox["1", { GrayLevel[0]}, StripOnInput -> False]], Annotation[#, Style[1, { GrayLevel[0]}], "Tooltip"]& ], TagBox[ TooltipBox[ TagBox[ DynamicBox[{ FEPrivate`If[ CurrentValue["MouseOver"], EdgeForm[{ GrayLevel[0.5], AbsoluteThickness[1.5], Opacity[0.66]}], {}, {}], RectangleBox[{1.166, 0}, {1.1680000000000001`, 2}, "RoundingRadius" -> 0]}, ImageSizeCache->{{308.65107913669044`, 312.0539568345325}, {-94.74287371556873, 96.8398375874264}}], StatusArea[#, 2]& , TagBoxNote->"2"], StyleBox["2", { GrayLevel[0]}, StripOnInput -> False]], Annotation[#, Style[2, { GrayLevel[0]}], "Tooltip"]& ]}, {}, {}}, AspectRatio->NCache[GoldenRatio^(-1), 0.6180339887498948], Axes->{True, True}, AxesLabel->{None, None}, AxesOrigin->{0.922, 0}, FrameTicks->{{Automatic, Automatic}, {Automatic, Automatic}}, GridLines->{None, None}, PlotRange->{{0.92, 1.2}, {All, All}}, PlotRangePadding->{{ Scaled[0.02], Scaled[0.02]}, { Scaled[0.02], Scaled[0.1]}}, Ticks->{Automatic, Automatic}]], "Output", CellChangeTimes->{ 3.5763887594272213`*^9, 3.576392279861006*^9, 3.576392394911208*^9, 3.576392694057333*^9, 3.5763932060034323`*^9, 3.5763933769953327`*^9, { 3.576405781944483*^9, 3.5764057920845003`*^9}, 3.5764196785897303`*^9, 3.5764693348116493`*^9, 3.576469800597267*^9, {3.576470313026967*^9, 3.5764703692962666`*^9}, {3.5764704080155344`*^9, 3.576470457857622*^9}, 3.576470488667676*^9, 3.576470784178995*^9, 3.580209019674531*^9}] }, Open ]], Cell[BoxData[{ RowBox[{ RowBox[{"Plot1o", "=", RowBox[{"Table", "[", RowBox[{ RowBox[{"Graphics3D", "[", RowBox[{"{", RowBox[{ RowBox[{"Opacity", "[", "0.8", "]"}], ",", RowBox[{"If", "[", RowBox[{ RowBox[{ RowBox[{"u", "[", RowBox[{"[", "i", "]"}], "]"}], "\[Equal]", "\"\\""}], ",", RowBox[{"Lighter", "[", "Blue", "]"}], ",", RowBox[{"If", "[", RowBox[{ RowBox[{ RowBox[{"u", "[", RowBox[{"[", "i", "]"}], "]"}], "\[Equal]", "\"\\""}], ",", RowBox[{"Lighter", "[", "White", "]"}], ",", 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[{"Darker", "[", "Brown", "]"}]}], "]"}]}], "]"}]}], "]"}]}], "]"}]}], "]"}], ",", RowBox[{"Sphere", "[", RowBox[{ RowBox[{"{", RowBox[{ RowBox[{"t", "[", RowBox[{"[", RowBox[{"i", ",", "1"}], "]"}], "]"}], ",", RowBox[{"t", "[", RowBox[{"[", RowBox[{"i", ",", "2"}], "]"}], "]"}], ",", RowBox[{"t", "[", RowBox[{"[", RowBox[{"i", ",", "3"}], "]"}], "]"}]}], "}"}], ",", RowBox[{"u1", "[", RowBox[{"[", "i", "]"}], "]"}]}], "]"}]}], "}"}], "]"}], ",", RowBox[{"{", RowBox[{"i", ",", "1", ",", "n"}], "}"}]}], "]"}]}], ";"}], "\[IndentingNewLine]", RowBox[{ RowBox[{"Plot2", "=", RowBox[{"Table", "[", RowBox[{ RowBox[{"Graphics3D", "[", RowBox[{"Text", "[", RowBox[{"i", ",", RowBox[{"{", RowBox[{ RowBox[{ RowBox[{"t", "[", RowBox[{"[", RowBox[{"i", ",", "1"}], "]"}], "]"}], "-", "0.6"}], ",", RowBox[{"t", "[", RowBox[{"[", RowBox[{"i", ",", "2"}], "]"}], "]"}], ",", RowBox[{"t", "[", RowBox[{"[", RowBox[{"i", ",", "3"}], "]"}], "]"}]}], "}"}], " ", ",", RowBox[{"{", RowBox[{"1", ",", "0"}], "}"}]}], "]"}], "]"}], ",", RowBox[{"{", RowBox[{"i", ",", "1", ",", "n"}], "}"}]}], "]"}]}], ";"}]}], "Input", CellChangeTimes->{{3.575562682901544*^9, 3.575562696785568*^9}}], Cell[BoxData[{ RowBox[{ RowBox[{"wxc", "=", RowBox[{"Table", "[", RowBox[{ RowBox[{ RowBox[{ RowBox[{ RowBox[{"(", RowBox[{ RowBox[{"a", "[", RowBox[{"[", RowBox[{"i", ",", "3"}], "]"}], "]"}], "+", RowBox[{"u2", "[", RowBox[{"[", RowBox[{"a", "[", RowBox[{"[", RowBox[{"i", ",", "1"}], "]"}], "]"}], "]"}], "]"}]}], ")"}], "/", RowBox[{"(", RowBox[{ RowBox[{"u2", "[", RowBox[{"[", RowBox[{"a", "[", RowBox[{"[", RowBox[{"i", ",", "1"}], "]"}], "]"}], "]"}], "]"}], "+", RowBox[{"2", "*", RowBox[{"a", "[", RowBox[{"[", RowBox[{"i", ",", "3"}], "]"}], "]"}]}], "+", RowBox[{"u2", "[", RowBox[{"[", RowBox[{"a", "[", RowBox[{"[", RowBox[{"i", ",", "2"}], "]"}], "]"}], "]"}], "]"}]}], ")"}]}], "*", RowBox[{"(", RowBox[{ RowBox[{"x", "[", RowBox[{"[", RowBox[{"a", "[", RowBox[{"[", RowBox[{"i", ",", "2"}], "]"}], "]"}], "]"}], "]"}], "-", RowBox[{"x", "[", RowBox[{"[", RowBox[{"a", "[", RowBox[{"[", RowBox[{"i", ",", "1"}], "]"}], "]"}], "]"}], "]"}]}], ")"}]}], "+", RowBox[{"x", "[", RowBox[{"[", RowBox[{"a", "[", RowBox[{"[", RowBox[{"i", ",", "1"}], "]"}], "]"}], "]"}], "]"}]}], ",", RowBox[{"{", RowBox[{"i", ",", "1", ",", "cw"}], "}"}]}], "]"}]}], ";"}], "\n", RowBox[{ RowBox[{ RowBox[{"wyc", "=", RowBox[{"Table", "[", RowBox[{ RowBox[{ RowBox[{ RowBox[{ RowBox[{"(", RowBox[{ RowBox[{"a", "[", RowBox[{"[", RowBox[{"i", ",", "3"}], "]"}], "]"}], "+", RowBox[{"u2", "[", RowBox[{"[", RowBox[{"a", "[", RowBox[{"[", RowBox[{"i", ",", "1"}], "]"}], "]"}], "]"}], "]"}]}], ")"}], "/", RowBox[{"(", RowBox[{ RowBox[{"u2", "[", RowBox[{"[", RowBox[{"a", "[", RowBox[{"[", RowBox[{"i", ",", "1"}], "]"}], "]"}], "]"}], "]"}], "+", RowBox[{"2", "*", RowBox[{"a", "[", RowBox[{"[", RowBox[{"i", ",", "3"}], "]"}], "]"}]}], "+", RowBox[{"u2", "[", RowBox[{"[", RowBox[{"a", "[", RowBox[{"[", RowBox[{"i", ",", "2"}], "]"}], "]"}], "]"}], "]"}]}], ")"}]}], "*", RowBox[{"(", RowBox[{ RowBox[{"y", "[", RowBox[{"[", RowBox[{"a", "[", RowBox[{"[", RowBox[{"i", ",", "2"}], "]"}], "]"}], "]"}], "]"}], "-", RowBox[{"y", "[", RowBox[{"[", RowBox[{"a", "[", RowBox[{"[", RowBox[{"i", ",", "1"}], "]"}], "]"}], "]"}], "]"}]}], ")"}]}], "+", RowBox[{"y", "[", RowBox[{"[", RowBox[{"a", "[", RowBox[{"[", RowBox[{"i", ",", "1"}], "]"}], "]"}], "]"}], "]"}]}], ",", RowBox[{"{", RowBox[{"i", ",", "1", ",", "cw"}], "}"}]}], "]"}]}], ";"}], " "}], "\n", RowBox[{ RowBox[{"wzc", "=", RowBox[{"Table", "[", RowBox[{ RowBox[{ RowBox[{ RowBox[{ RowBox[{"(", RowBox[{ RowBox[{"a", "[", RowBox[{"[", RowBox[{"i", ",", "3"}], "]"}], "]"}], "+", RowBox[{"u2", "[", RowBox[{"[", RowBox[{"a", "[", RowBox[{"[", RowBox[{"i", ",", "1"}], "]"}], "]"}], "]"}], "]"}]}], ")"}], "/", RowBox[{"(", RowBox[{ RowBox[{"u2", "[", RowBox[{"[", RowBox[{"a", "[", RowBox[{"[", RowBox[{"i", ",", "1"}], "]"}], "]"}], "]"}], "]"}], "+", RowBox[{"2", "*", RowBox[{"a", "[", RowBox[{"[", RowBox[{"i", ",", "3"}], "]"}], "]"}]}], "+", RowBox[{"u2", "[", RowBox[{"[", RowBox[{"a", "[", RowBox[{"[", RowBox[{"i", ",", "2"}], "]"}], "]"}], "]"}], "]"}]}], ")"}]}], "*", RowBox[{"(", RowBox[{ RowBox[{"z", "[", RowBox[{"[", RowBox[{"a", "[", RowBox[{"[", RowBox[{"i", ",", "2"}], "]"}], "]"}], "]"}], "]"}], "-", RowBox[{"z", "[", RowBox[{"[", RowBox[{"a", "[", RowBox[{"[", RowBox[{"i", ",", "1"}], "]"}], "]"}], "]"}], "]"}]}], ")"}]}], "+", RowBox[{"z", "[", RowBox[{"[", RowBox[{"a", "[", RowBox[{"[", RowBox[{"i", ",", "1"}], "]"}], "]"}], "]"}], "]"}]}], ",", RowBox[{"{", RowBox[{"i", ",", "1", ",", "cw"}], "}"}]}], "]"}]}], ";"}]}], "Input", CellChangeTimes->{{3.5681365021632137`*^9, 3.5681365171392403`*^9}, { 3.568136560351316*^9, 3.5681365863097615`*^9}, {3.5681369135895367`*^9, 3.5681369265999594`*^9}, {3.568137821916732*^9, 3.5681378378443604`*^9}, { 3.5682072492149415`*^9, 3.5682072529901485`*^9}, 3.568209802830227*^9, { 3.5682216503836985`*^9, 3.5682217583046885`*^9}, {3.5682217912831464`*^9, 3.568221843465238*^9}, {3.5682219760654707`*^9, 3.5682221133457117`*^9}, { 3.568222159615393*^9, 3.5682221693498106`*^9}, {3.5682222565227633`*^9, 3.5682222578487663`*^9}, 3.5682224736283445`*^9, 3.5682227227607822`*^9, 3.5682227558640404`*^9, {3.568222818810151*^9, 3.5682228486062036`*^9}, { 3.5682230057764797`*^9, 3.5682230079916835`*^9}, {3.568223041952943*^9, 3.5682230548229656`*^9}, 3.5682232619601297`*^9, 3.5682233000709963`*^9, { 3.568223536645412*^9, 3.5682235381118145`*^9}, {3.568223591151908*^9, 3.568223591526308*^9}, {3.5682236491528096`*^9, 3.568223657483224*^9}, { 3.568223713222122*^9, 3.5682237532361927`*^9}, {3.568223800379475*^9, 3.568223827648323*^9}, {3.5682238887380304`*^9, 3.5682238893152313`*^9}, { 3.5682240287170763`*^9, 3.5682240612431335`*^9}, 3.5682241088076167`*^9, { 3.568224198772975*^9, 3.5682242396450467`*^9}, {3.568224282170721*^9, 3.5682243185031853`*^9}, {3.568224437890195*^9, 3.568224439590598*^9}, { 3.568224572253231*^9, 3.5682245867144566`*^9}, {3.5682247081762695`*^9, 3.568224733557514*^9}, {3.56822480520844*^9, 3.5682248433505073`*^9}, { 3.568224884206979*^9, 3.5682248959069996`*^9}, {3.568224982830352*^9, 3.5682250047639904`*^9}, {3.56822503870965*^9, 3.5682250803305235`*^9}, { 3.5682251223413973`*^9, 3.568225141451431*^9}, {3.568225234177994*^9, 3.5682252929588966`*^9}, {3.5682253775890455`*^9, 3.568225482140429*^9}, { 3.56822551694409*^9, 3.5682255297205124`*^9}, {3.568225573197789*^9, 3.5682255809666023`*^9}, 3.568225660698343*^9, 3.5682257301964645`*^9, { 3.568225765078126*^9, 3.5682257828933573`*^9}, {3.568225927026843*^9, 3.568225927416844*^9}, {3.568267062420238*^9, 3.568267081358671*^9}, { 3.568267188328059*^9, 3.5682672830358257`*^9}, {3.5682676367040462`*^9, 3.568267747979042*^9}, 3.5682678404716043`*^9, 3.568267882030078*^9, { 3.5682679252577534`*^9, 3.568267996612279*^9}, {3.5682680488879704`*^9, 3.568268061133992*^9}, {3.568268100914062*^9, 3.5682681150944867`*^9}, { 3.5682681672609787`*^9, 3.5682681709113846`*^9}, {3.568268272904364*^9, 3.5682683182536435`*^9}, {3.5682685202739983`*^9, 3.568268599194537*^9}, { 3.5682686348873997`*^9, 3.568268637773405*^9}, {3.5682686944951043`*^9, 3.568268872273017*^9}, {3.5682689420207396`*^9, 3.568269016947671*^9}, { 3.5682695040741262`*^9, 3.568269601153097*^9}, {3.5682696652380095`*^9, 3.5682696728352227`*^9}, {3.5682697489633565`*^9, 3.5682698308635006`*^9}, {3.568271156491429*^9, 3.568271160063835*^9}, { 3.568271244927984*^9, 3.568271369010602*^9}, {3.5682716250070515`*^9, 3.5682717312276382`*^9}, {3.5682717843301315`*^9, 3.5682718576814604`*^9}, {3.568271940673606*^9, 3.5682720536490045`*^9}, { 3.5682722259669075`*^9, 3.5682723223126764`*^9}, {3.568272370813162*^9, 3.568272411466833*^9}, {3.5682725893539457`*^9, 3.568272622238803*^9}, { 3.5682726936713285`*^9, 3.5682726960113325`*^9}, {3.568272741079812*^9, 3.56827275143823*^9}, {3.5682729218373294`*^9, 3.568272991070251*^9}, { 3.5682734285574193`*^9, 3.5682734302890224`*^9}, {3.5682734898811274`*^9, 3.5682735111595645`*^9}, {3.5682736115925407`*^9, 3.5682736313577757`*^9}, {3.5682738601945777`*^9, 3.568273987272401*^9}, { 3.5682763944346285`*^9, 3.5682764313910933`*^9}, 3.5682765128232365`*^9, { 3.5682766527398825`*^9, 3.568276660976697*^9}, {3.5682774496048822`*^9, 3.568277461663703*^9}, {3.5683784032731285`*^9, 3.568378422991563*^9}, { 3.568378459308427*^9, 3.5683784812420654`*^9}, {3.568378513440522*^9, 3.568378867046343*^9}, {3.568378915468828*^9, 3.56837896203491*^9}, { 3.5683790764299107`*^9, 3.568379270041851*^9}, {3.568380233530743*^9, 3.568380234388745*^9}, 3.5683804214954734`*^9, 3.568380471867962*^9, 3.5683805399464817`*^9, {3.5683812396077104`*^9, 3.568381293537005*^9}, { 3.568381339541486*^9, 3.5683813935175805`*^9}, 3.5684646396646404`*^9, 3.5684646988823442`*^9, 3.568465086387025*^9, {3.5684655859935026`*^9, 3.568465605087936*^9}, 3.568821235038273*^9, 3.5688233741452303`*^9, 3.568823449742963*^9, 3.5688274593312387`*^9, {3.5688284679978104`*^9, 3.5688284689026117`*^9}, {3.5688285131598897`*^9, 3.5688285201487017`*^9}, 3.5688285866360188`*^9, {3.5688292397623663`*^9, 3.568829246688778*^9}, { 3.5688780328231993`*^9, 3.568878075458074*^9}, 3.5688953020257144`*^9, 3.5693395777359695`*^9, {3.569339615191635*^9, 3.569339617079238*^9}, { 3.5693396917877693`*^9, 3.56933969216217*^9}, 3.5693893483274703`*^9}], Cell[BoxData[ RowBox[{ RowBox[{"Plot7", "=", RowBox[{"Table", "[", RowBox[{ RowBox[{"Graphics3D", "[", RowBox[{"{", RowBox[{ RowBox[{"Darker", "[", RowBox[{"Brown", ",", "0.4"}], "]"}], ",", RowBox[{"Opacity", "[", "0.5", "]"}], ",", RowBox[{"Sphere", "[", RowBox[{ RowBox[{"{", RowBox[{ RowBox[{"wxc", "[", RowBox[{"[", "i", "]"}], "]"}], ",", RowBox[{"wyc", "[", RowBox[{"[", "i", "]"}], "]"}], ",", RowBox[{"wzc", "[", RowBox[{"[", "i", "]"}], "]"}]}], "}"}], ",", RowBox[{"a", "[", RowBox[{"[", RowBox[{"i", ",", "3"}], "]"}], "]"}]}], "]"}]}], "}"}], "]"}], ",", RowBox[{"{", RowBox[{"i", ",", "1", ",", "cw"}], "}"}]}], "]"}]}], ";"}]], "Input", CellChangeTimes->{{3.5681365021632137`*^9, 3.5681365171392403`*^9}, { 3.568136560351316*^9, 3.5681365863097615`*^9}, {3.5681369135895367`*^9, 3.5681369265999594`*^9}, {3.568137821916732*^9, 3.5681378378443604`*^9}, { 3.5682072492149415`*^9, 3.5682072529901485`*^9}, 3.568209802830227*^9, { 3.5682216503836985`*^9, 3.5682217583046885`*^9}, {3.5682217912831464`*^9, 3.568221843465238*^9}, {3.5682219760654707`*^9, 3.5682221133457117`*^9}, { 3.568222159615393*^9, 3.5682221693498106`*^9}, {3.5682222565227633`*^9, 3.5682222578487663`*^9}, 3.5682224736283445`*^9, 3.5682227227607822`*^9, 3.5682227558640404`*^9, {3.568222818810151*^9, 3.5682228486062036`*^9}, { 3.5682230057764797`*^9, 3.5682230079916835`*^9}, {3.568223041952943*^9, 3.5682230548229656`*^9}, 3.5682232619601297`*^9, 3.5682233000709963`*^9, { 3.568223536645412*^9, 3.5682235381118145`*^9}, {3.568223591151908*^9, 3.568223591526308*^9}, {3.5682236491528096`*^9, 3.568223657483224*^9}, { 3.568223713222122*^9, 3.5682237532361927`*^9}, {3.568223800379475*^9, 3.568223827648323*^9}, {3.5682238887380304`*^9, 3.5682238893152313`*^9}, { 3.5682240287170763`*^9, 3.5682240612431335`*^9}, 3.5682241088076167`*^9, { 3.568224198772975*^9, 3.5682242396450467`*^9}, {3.568224282170721*^9, 3.5682243185031853`*^9}, {3.568224437890195*^9, 3.568224439590598*^9}, { 3.568224572253231*^9, 3.5682245867144566`*^9}, {3.5682247081762695`*^9, 3.568224733557514*^9}, {3.56822480520844*^9, 3.5682248433505073`*^9}, { 3.568224884206979*^9, 3.5682248959069996`*^9}, {3.568224982830352*^9, 3.5682250047639904`*^9}, {3.56822503870965*^9, 3.5682250803305235`*^9}, { 3.5682251223413973`*^9, 3.568225141451431*^9}, {3.568225234177994*^9, 3.5682252929588966`*^9}, {3.5682253775890455`*^9, 3.568225482140429*^9}, { 3.56822551694409*^9, 3.5682255297205124`*^9}, {3.568225573197789*^9, 3.5682255809666023`*^9}, 3.568225660698343*^9, 3.5682257301964645`*^9, { 3.568225765078126*^9, 3.5682257828933573`*^9}, {3.568225927026843*^9, 3.568225927416844*^9}, {3.568267062420238*^9, 3.568267081358671*^9}, { 3.568267188328059*^9, 3.5682672830358257`*^9}, {3.5682676367040462`*^9, 3.568267747979042*^9}, 3.5682678404716043`*^9, 3.568267882030078*^9, { 3.5682679252577534`*^9, 3.568267996612279*^9}, {3.5682680488879704`*^9, 3.568268061133992*^9}, {3.568268100914062*^9, 3.5682681150944867`*^9}, { 3.5682681672609787`*^9, 3.5682681709113846`*^9}, {3.568268272904364*^9, 3.5682683182536435`*^9}, {3.5682685202739983`*^9, 3.568268599194537*^9}, { 3.5682686348873997`*^9, 3.568268637773405*^9}, {3.5682686944951043`*^9, 3.568268872273017*^9}, {3.5682689420207396`*^9, 3.568269016947671*^9}, { 3.5682695040741262`*^9, 3.568269601153097*^9}, {3.5682696652380095`*^9, 3.5682696728352227`*^9}, {3.5682697489633565`*^9, 3.5682698308635006`*^9}, {3.568271156491429*^9, 3.568271160063835*^9}, { 3.568271244927984*^9, 3.568271369010602*^9}, {3.5682716250070515`*^9, 3.5682717312276382`*^9}, {3.5682717843301315`*^9, 3.5682718576814604`*^9}, {3.568271940673606*^9, 3.5682720536490045`*^9}, { 3.5682722259669075`*^9, 3.5682723223126764`*^9}, {3.568272370813162*^9, 3.568272411466833*^9}, {3.5682725893539457`*^9, 3.568272622238803*^9}, { 3.5682726936713285`*^9, 3.5682726960113325`*^9}, {3.568272741079812*^9, 3.56827275143823*^9}, {3.5682729218373294`*^9, 3.568272991070251*^9}, { 3.5682734285574193`*^9, 3.5682734302890224`*^9}, {3.5682734898811274`*^9, 3.5682735111595645`*^9}, {3.5682736115925407`*^9, 3.5682736313577757`*^9}, {3.5682738601945777`*^9, 3.568273987272401*^9}, { 3.5682763944346285`*^9, 3.5682764313910933`*^9}, 3.5682765128232365`*^9, { 3.5682766527398825`*^9, 3.568276660976697*^9}, {3.5682774496048822`*^9, 3.568277461663703*^9}, {3.5683784032731285`*^9, 3.568378422991563*^9}, { 3.568378459308427*^9, 3.5683784812420654`*^9}, {3.568378513440522*^9, 3.568378867046343*^9}, {3.568378915468828*^9, 3.56837896203491*^9}, { 3.5683790764299107`*^9, 3.568379270041851*^9}, {3.568380233530743*^9, 3.568380234388745*^9}, 3.5683804214954734`*^9, 3.568380471867962*^9, 3.5683805399464817`*^9, {3.5683812396077104`*^9, 3.568381293537005*^9}, { 3.568381339541486*^9, 3.5683813935175805`*^9}, 3.5684646396646404`*^9, 3.5684646988823442`*^9, 3.568465086387025*^9, {3.5684655859935026`*^9, 3.568465605087936*^9}, 3.568821235038273*^9, 3.5688233741452303`*^9, 3.568823449742963*^9, 3.5688274593312387`*^9, {3.5688284679978104`*^9, 3.5688284689026117`*^9}, {3.5688285131598897`*^9, 3.5688285201487017`*^9}, 3.5688285866360188`*^9, {3.5688292397623663`*^9, 3.568829246688778*^9}, { 3.5688780328231993`*^9, 3.56887811871695*^9}, {3.568895331556566*^9, 3.5688953367201753`*^9}, 3.568895995276532*^9, {3.5693397032225895`*^9, 3.56933970331619*^9}, 3.569339737137049*^9, 3.569340055299608*^9, 3.569389360947892*^9, {3.570298060155057*^9, 3.570298071589877*^9}, { 3.5704539766451664`*^9, 3.5704539773627677`*^9}, {3.5709509139026003`*^9, 3.570950950500265*^9}, {3.570950995397144*^9, 3.5709510449896307`*^9}, { 3.570974064815357*^9, 3.5709741190878525`*^9}, {3.5709742487084804`*^9, 3.570974273528124*^9}, {3.5713747544125347`*^9, 3.571374762618149*^9}, 3.5713830670175667`*^9, {3.575602053545355*^9, 3.575602059286165*^9}}], Cell[BoxData[{ RowBox[{ RowBox[{"wxh", "=", RowBox[{"Table", "[", RowBox[{ RowBox[{ RowBox[{ RowBox[{ RowBox[{"(", RowBox[{ RowBox[{"a", "[", RowBox[{"[", RowBox[{"i", ",", "3"}], "]"}], "]"}], "+", RowBox[{"u2", "[", RowBox[{"[", RowBox[{"a", "[", RowBox[{"[", RowBox[{"i", ",", "2"}], "]"}], "]"}], "]"}], "]"}]}], ")"}], "/", RowBox[{"(", RowBox[{ RowBox[{"u2", "[", RowBox[{"[", RowBox[{"a", "[", RowBox[{"[", RowBox[{"i", ",", "1"}], "]"}], "]"}], "]"}], "]"}], "+", RowBox[{"a", "[", RowBox[{"[", RowBox[{"i", ",", "3"}], "]"}], "]"}], "+", RowBox[{"u2", "[", RowBox[{"[", RowBox[{"a", "[", RowBox[{"[", RowBox[{"i", ",", "2"}], "]"}], "]"}], "]"}], "]"}]}], ")"}]}], "*", RowBox[{"(", RowBox[{ RowBox[{"x", "[", RowBox[{"[", RowBox[{"a", "[", RowBox[{"[", RowBox[{"i", ",", "1"}], "]"}], "]"}], "]"}], "]"}], "-", RowBox[{"x", "[", RowBox[{"[", RowBox[{"a", "[", RowBox[{"[", RowBox[{"i", ",", "2"}], "]"}], "]"}], "]"}], "]"}]}], ")"}]}], "+", RowBox[{"x", "[", RowBox[{"[", RowBox[{"a", "[", RowBox[{"[", RowBox[{"i", ",", "2"}], "]"}], "]"}], "]"}], "]"}]}], ",", RowBox[{"{", RowBox[{"i", ",", RowBox[{"cw", "+", "1"}], ",", "nb"}], "}"}]}], "]"}]}], ";"}], "\n", RowBox[{ RowBox[{"wyh", "=", RowBox[{"Table", "[", RowBox[{ RowBox[{ RowBox[{ RowBox[{ RowBox[{"(", RowBox[{ RowBox[{"a", "[", RowBox[{"[", RowBox[{"i", ",", "3"}], "]"}], "]"}], "+", RowBox[{"u2", "[", RowBox[{"[", RowBox[{"a", "[", RowBox[{"[", RowBox[{"i", ",", "2"}], "]"}], "]"}], "]"}], "]"}]}], ")"}], "/", RowBox[{"(", RowBox[{ RowBox[{"u2", "[", RowBox[{"[", RowBox[{"a", "[", RowBox[{"[", RowBox[{"i", ",", "1"}], "]"}], "]"}], "]"}], "]"}], "+", RowBox[{"a", "[", RowBox[{"[", RowBox[{"i", ",", "3"}], "]"}], "]"}], "+", RowBox[{"u2", "[", RowBox[{"[", RowBox[{"a", "[", RowBox[{"[", RowBox[{"i", ",", "2"}], "]"}], "]"}], "]"}], "]"}]}], ")"}]}], "*", RowBox[{"(", RowBox[{ RowBox[{"y", "[", RowBox[{"[", RowBox[{"a", "[", RowBox[{"[", RowBox[{"i", ",", "1"}], "]"}], "]"}], "]"}], "]"}], "-", RowBox[{"y", "[", RowBox[{"[", RowBox[{"a", "[", RowBox[{"[", RowBox[{"i", ",", "2"}], "]"}], "]"}], "]"}], "]"}]}], ")"}]}], "+", RowBox[{"y", "[", RowBox[{"[", RowBox[{"a", "[", RowBox[{"[", RowBox[{"i", ",", "2"}], "]"}], "]"}], "]"}], "]"}]}], ",", RowBox[{"{", RowBox[{"i", ",", RowBox[{"cw", "+", "1"}], ",", "nb"}], "}"}]}], "]"}]}], ";"}], "\n", RowBox[{ RowBox[{"wzh", "=", RowBox[{"Table", "[", RowBox[{ RowBox[{ RowBox[{ RowBox[{ RowBox[{"(", RowBox[{ RowBox[{"a", "[", RowBox[{"[", RowBox[{"i", ",", "3"}], "]"}], "]"}], "+", RowBox[{"u2", "[", RowBox[{"[", RowBox[{"a", "[", RowBox[{"[", RowBox[{"i", ",", "2"}], "]"}], "]"}], "]"}], "]"}]}], ")"}], "/", RowBox[{"(", RowBox[{ RowBox[{"u2", "[", RowBox[{"[", RowBox[{"a", "[", RowBox[{"[", RowBox[{"i", ",", "1"}], "]"}], "]"}], "]"}], "]"}], "+", RowBox[{"a", "[", RowBox[{"[", RowBox[{"i", ",", "3"}], "]"}], "]"}], "+", RowBox[{"u2", "[", RowBox[{"[", RowBox[{"a", "[", RowBox[{"[", RowBox[{"i", ",", "2"}], "]"}], "]"}], "]"}], "]"}]}], ")"}]}], "*", RowBox[{"(", RowBox[{ RowBox[{"z", "[", RowBox[{"[", RowBox[{"a", "[", RowBox[{"[", RowBox[{"i", ",", "1"}], "]"}], "]"}], "]"}], "]"}], "-", RowBox[{"z", "[", RowBox[{"[", RowBox[{"a", "[", RowBox[{"[", RowBox[{"i", ",", "2"}], "]"}], "]"}], "]"}], "]"}]}], ")"}]}], "+", RowBox[{"z", "[", RowBox[{"[", RowBox[{"a", "[", RowBox[{"[", RowBox[{"i", ",", "2"}], "]"}], "]"}], "]"}], "]"}]}], ",", RowBox[{"{", RowBox[{"i", ",", RowBox[{"cw", "+", "1"}], ",", "nb"}], "}"}]}], "]"}]}], ";"}]}], "Input", CellChangeTimes->{{3.5681365021632137`*^9, 3.5681365171392403`*^9}, { 3.568136560351316*^9, 3.5681365863097615`*^9}, {3.5681369135895367`*^9, 3.5681369265999594`*^9}, {3.568137821916732*^9, 3.5681378378443604`*^9}, { 3.5682072492149415`*^9, 3.5682072529901485`*^9}, 3.568209802830227*^9, { 3.5682216503836985`*^9, 3.5682217583046885`*^9}, {3.5682217912831464`*^9, 3.568221843465238*^9}, {3.5682219760654707`*^9, 3.5682221133457117`*^9}, { 3.568222159615393*^9, 3.5682221693498106`*^9}, {3.5682222565227633`*^9, 3.5682222578487663`*^9}, 3.5682224736283445`*^9, 3.5682227227607822`*^9, 3.5682227558640404`*^9, {3.568222818810151*^9, 3.5682228486062036`*^9}, { 3.5682230057764797`*^9, 3.5682230079916835`*^9}, {3.568223041952943*^9, 3.5682230548229656`*^9}, 3.5682232619601297`*^9, 3.5682233000709963`*^9, { 3.568223536645412*^9, 3.5682235381118145`*^9}, {3.568223591151908*^9, 3.568223591526308*^9}, {3.5682236491528096`*^9, 3.568223657483224*^9}, { 3.568223713222122*^9, 3.5682237532361927`*^9}, {3.568223800379475*^9, 3.568223827648323*^9}, {3.5682238887380304`*^9, 3.5682238893152313`*^9}, { 3.5682240287170763`*^9, 3.5682240612431335`*^9}, 3.5682241088076167`*^9, { 3.568224198772975*^9, 3.5682242396450467`*^9}, {3.568224282170721*^9, 3.5682243185031853`*^9}, {3.568224437890195*^9, 3.568224439590598*^9}, { 3.568224572253231*^9, 3.5682245867144566`*^9}, {3.5682247081762695`*^9, 3.568224733557514*^9}, {3.56822480520844*^9, 3.5682248433505073`*^9}, { 3.568224884206979*^9, 3.5682248959069996`*^9}, {3.568224982830352*^9, 3.5682250047639904`*^9}, {3.56822503870965*^9, 3.5682250803305235`*^9}, { 3.5682251223413973`*^9, 3.568225141451431*^9}, {3.568225234177994*^9, 3.5682252929588966`*^9}, {3.5682253775890455`*^9, 3.568225482140429*^9}, { 3.56822551694409*^9, 3.5682255297205124`*^9}, {3.568225573197789*^9, 3.5682255809666023`*^9}, 3.568225660698343*^9, 3.5682257301964645`*^9, { 3.568225765078126*^9, 3.5682257828933573`*^9}, {3.568225927026843*^9, 3.568225927416844*^9}, {3.568267062420238*^9, 3.568267081358671*^9}, { 3.568267188328059*^9, 3.5682672830358257`*^9}, {3.5682676367040462`*^9, 3.568267747979042*^9}, 3.5682678404716043`*^9, 3.568267882030078*^9, { 3.5682679252577534`*^9, 3.568267996612279*^9}, {3.5682680488879704`*^9, 3.568268061133992*^9}, {3.568268100914062*^9, 3.5682681150944867`*^9}, { 3.5682681672609787`*^9, 3.5682681709113846`*^9}, {3.568268272904364*^9, 3.5682683182536435`*^9}, {3.5682685202739983`*^9, 3.568268599194537*^9}, { 3.5682686348873997`*^9, 3.568268637773405*^9}, {3.5682686944951043`*^9, 3.568268872273017*^9}, {3.5682689420207396`*^9, 3.568269016947671*^9}, { 3.5682695040741262`*^9, 3.568269601153097*^9}, {3.5682696652380095`*^9, 3.5682696728352227`*^9}, {3.5682697489633565`*^9, 3.5682698308635006`*^9}, {3.568271156491429*^9, 3.568271160063835*^9}, { 3.568271244927984*^9, 3.568271369010602*^9}, {3.5682716250070515`*^9, 3.5682717312276382`*^9}, {3.5682717843301315`*^9, 3.5682718576814604`*^9}, {3.568271940673606*^9, 3.5682720536490045`*^9}, { 3.5682722259669075`*^9, 3.5682723223126764`*^9}, {3.568272370813162*^9, 3.568272411466833*^9}, {3.5682725893539457`*^9, 3.568272622238803*^9}, { 3.5682726936713285`*^9, 3.5682726960113325`*^9}, {3.568272741079812*^9, 3.56827275143823*^9}, {3.5682729218373294`*^9, 3.568272991070251*^9}, { 3.5682734285574193`*^9, 3.5682734302890224`*^9}, {3.5682734898811274`*^9, 3.5682735111595645`*^9}, {3.5682736115925407`*^9, 3.5682736313577757`*^9}, {3.5682738601945777`*^9, 3.568273987272401*^9}, { 3.5682763944346285`*^9, 3.5682764313910933`*^9}, 3.5682765128232365`*^9, { 3.5682766527398825`*^9, 3.568276660976697*^9}, {3.5682774496048822`*^9, 3.568277461663703*^9}, {3.5683784032731285`*^9, 3.568378422991563*^9}, { 3.568378459308427*^9, 3.5683784812420654`*^9}, {3.568378513440522*^9, 3.568378867046343*^9}, {3.568378915468828*^9, 3.56837896203491*^9}, { 3.5683790764299107`*^9, 3.568379270041851*^9}, {3.568380233530743*^9, 3.568380234388745*^9}, 3.5683804214954734`*^9, 3.568380471867962*^9, 3.5683805399464817`*^9, {3.5683812396077104`*^9, 3.568381293537005*^9}, { 3.568381339541486*^9, 3.5683813935175805`*^9}, 3.5684646396646404`*^9, 3.5684646988823442`*^9, 3.568465086387025*^9, {3.5684655859935026`*^9, 3.568465605087936*^9}, 3.568821235038273*^9, 3.5688233741452303`*^9, 3.568823449742963*^9, 3.5688274593312387`*^9, {3.5688284679978104`*^9, 3.5688284689026117`*^9}, {3.5688285131598897`*^9, 3.5688285201487017`*^9}, 3.5688285866360188`*^9, {3.5688292397623663`*^9, 3.568829246688778*^9}, { 3.5688780328231993`*^9, 3.5688781280925665`*^9}, 3.568895312524533*^9, 3.5693395940691977`*^9, {3.5693396336776676`*^9, 3.5693396557829065`*^9}, { 3.569340069402033*^9, 3.569340092412073*^9}, {3.569389186383586*^9, 3.5693891947764006`*^9}, {3.569389263291721*^9, 3.569389289686967*^9}, 3.569389336315449*^9}], Cell[BoxData[ RowBox[{ RowBox[{"Plot8", "=", RowBox[{"Table", "[", RowBox[{ RowBox[{"Graphics3D", "[", RowBox[{"{", RowBox[{ RowBox[{"Opacity", "[", "0.5", "]"}], ",", RowBox[{"Sphere", "[", RowBox[{ RowBox[{"{", RowBox[{ RowBox[{"wxh", "[", RowBox[{"[", "i", "]"}], "]"}], ",", RowBox[{"wyh", "[", RowBox[{"[", "i", "]"}], "]"}], ",", RowBox[{"wzh", "[", RowBox[{"[", "i", "]"}], "]"}]}], "}"}], ",", RowBox[{"a", "[", RowBox[{"[", RowBox[{ RowBox[{"i", "+", "cw"}], ",", "3"}], "]"}], "]"}]}], "]"}]}], "}"}], "]"}], ",", RowBox[{"{", RowBox[{"i", ",", "1", ",", "bh"}], "}"}]}], "]"}]}], ";"}]], "Input", CellChangeTimes->{{3.5681365021632137`*^9, 3.5681365171392403`*^9}, { 3.568136560351316*^9, 3.5681365863097615`*^9}, {3.5681369135895367`*^9, 3.5681369265999594`*^9}, {3.568137821916732*^9, 3.5681378378443604`*^9}, { 3.5682072492149415`*^9, 3.5682072529901485`*^9}, 3.568209802830227*^9, { 3.5682216503836985`*^9, 3.5682217583046885`*^9}, {3.5682217912831464`*^9, 3.568221843465238*^9}, {3.5682219760654707`*^9, 3.5682221133457117`*^9}, { 3.568222159615393*^9, 3.5682221693498106`*^9}, {3.5682222565227633`*^9, 3.5682222578487663`*^9}, 3.5682224736283445`*^9, 3.5682227227607822`*^9, 3.5682227558640404`*^9, {3.568222818810151*^9, 3.5682228486062036`*^9}, { 3.5682230057764797`*^9, 3.5682230079916835`*^9}, {3.568223041952943*^9, 3.5682230548229656`*^9}, 3.5682232619601297`*^9, 3.5682233000709963`*^9, { 3.568223536645412*^9, 3.5682235381118145`*^9}, {3.568223591151908*^9, 3.568223591526308*^9}, {3.5682236491528096`*^9, 3.568223657483224*^9}, { 3.568223713222122*^9, 3.5682237532361927`*^9}, {3.568223800379475*^9, 3.568223827648323*^9}, {3.5682238887380304`*^9, 3.5682238893152313`*^9}, { 3.5682240287170763`*^9, 3.5682240612431335`*^9}, 3.5682241088076167`*^9, { 3.568224198772975*^9, 3.5682242396450467`*^9}, {3.568224282170721*^9, 3.5682243185031853`*^9}, {3.568224437890195*^9, 3.568224439590598*^9}, { 3.568224572253231*^9, 3.5682245867144566`*^9}, {3.5682247081762695`*^9, 3.568224733557514*^9}, {3.56822480520844*^9, 3.5682248433505073`*^9}, { 3.568224884206979*^9, 3.5682248959069996`*^9}, {3.568224982830352*^9, 3.5682250047639904`*^9}, {3.56822503870965*^9, 3.5682250803305235`*^9}, { 3.5682251223413973`*^9, 3.568225141451431*^9}, {3.568225234177994*^9, 3.5682252929588966`*^9}, {3.5682253775890455`*^9, 3.568225482140429*^9}, { 3.56822551694409*^9, 3.5682255297205124`*^9}, {3.568225573197789*^9, 3.5682255809666023`*^9}, 3.568225660698343*^9, 3.5682257301964645`*^9, { 3.568225765078126*^9, 3.5682257828933573`*^9}, {3.568225927026843*^9, 3.568225927416844*^9}, {3.568267062420238*^9, 3.568267081358671*^9}, { 3.568267188328059*^9, 3.5682672830358257`*^9}, {3.5682676367040462`*^9, 3.568267747979042*^9}, 3.5682678404716043`*^9, 3.568267882030078*^9, { 3.5682679252577534`*^9, 3.568267996612279*^9}, {3.5682680488879704`*^9, 3.568268061133992*^9}, {3.568268100914062*^9, 3.5682681150944867`*^9}, { 3.5682681672609787`*^9, 3.5682681709113846`*^9}, {3.568268272904364*^9, 3.5682683182536435`*^9}, {3.5682685202739983`*^9, 3.568268599194537*^9}, { 3.5682686348873997`*^9, 3.568268637773405*^9}, {3.5682686944951043`*^9, 3.568268872273017*^9}, {3.5682689420207396`*^9, 3.568269016947671*^9}, { 3.5682695040741262`*^9, 3.568269601153097*^9}, {3.5682696652380095`*^9, 3.5682696728352227`*^9}, {3.5682697489633565`*^9, 3.5682698308635006`*^9}, {3.568271156491429*^9, 3.568271160063835*^9}, { 3.568271244927984*^9, 3.568271369010602*^9}, {3.5682716250070515`*^9, 3.5682717312276382`*^9}, {3.5682717843301315`*^9, 3.5682718576814604`*^9}, {3.568271940673606*^9, 3.5682720536490045`*^9}, { 3.5682722259669075`*^9, 3.5682723223126764`*^9}, {3.568272370813162*^9, 3.568272411466833*^9}, {3.5682725893539457`*^9, 3.568272622238803*^9}, { 3.5682726936713285`*^9, 3.5682726960113325`*^9}, {3.568272741079812*^9, 3.56827275143823*^9}, {3.5682729218373294`*^9, 3.568272991070251*^9}, { 3.5682734285574193`*^9, 3.5682734302890224`*^9}, {3.5682734898811274`*^9, 3.5682735111595645`*^9}, {3.5682736115925407`*^9, 3.5682736313577757`*^9}, {3.5682738601945777`*^9, 3.568273987272401*^9}, { 3.5682763944346285`*^9, 3.5682764313910933`*^9}, 3.5682765128232365`*^9, { 3.5682766527398825`*^9, 3.568276660976697*^9}, {3.5682774496048822`*^9, 3.568277461663703*^9}, {3.5683784032731285`*^9, 3.568378422991563*^9}, { 3.568378459308427*^9, 3.5683784812420654`*^9}, {3.568378513440522*^9, 3.568378867046343*^9}, {3.568378915468828*^9, 3.56837896203491*^9}, { 3.5683790764299107`*^9, 3.568379270041851*^9}, {3.568380233530743*^9, 3.568380234388745*^9}, 3.5683804214954734`*^9, 3.568380471867962*^9, 3.5683805399464817`*^9, {3.5683812396077104`*^9, 3.568381293537005*^9}, { 3.568381339541486*^9, 3.5683813935175805`*^9}, 3.5684646396646404`*^9, 3.5684646988823442`*^9, 3.568465086387025*^9, {3.5684655859935026`*^9, 3.568465605087936*^9}, 3.568821235038273*^9, 3.5688233741452303`*^9, 3.568823449742963*^9, 3.5688274593312387`*^9, {3.5688284679978104`*^9, 3.5688284689026117`*^9}, {3.5688285131598897`*^9, 3.5688285201487017`*^9}, 3.5688285866360188`*^9, {3.5688292397623663`*^9, 3.568829246688778*^9}, { 3.5688780328231993`*^9, 3.568878147967001*^9}, {3.56889532230575*^9, 3.5688953242557535`*^9}, 3.56889600529175*^9, 3.5688961595292206`*^9, { 3.5693396821781526`*^9, 3.5693396825213532`*^9}, 3.5693893658151007`*^9, { 3.5693895413934093`*^9, 3.5693895427506113`*^9}, {3.5697651043452682`*^9, 3.5697651089940763`*^9}, {3.5704647001766*^9, 3.570464712141821*^9}}], Cell[BoxData[{ RowBox[{ RowBox[{"Plot8a", "=", RowBox[{"Table", "[", RowBox[{ RowBox[{"Graphics3D", "[", RowBox[{"{", RowBox[{ RowBox[{"Opacity", "[", "0.3", "]"}], ",", RowBox[{"Lighter", "[", "Cyan", "]"}], ",", RowBox[{"Sphere", "[", RowBox[{ RowBox[{"tpo", "[", RowBox[{"[", "i", "]"}], "]"}], ",", RowBox[{"rpo", "[", RowBox[{"[", "i", "]"}], "]"}]}], "]"}]}], "}"}], "]"}], ",", RowBox[{"{", RowBox[{"i", ",", "1", ",", "cj"}], "}"}]}], "]"}]}], ";"}], "\[IndentingNewLine]", RowBox[{ RowBox[{"Plot8b", "=", RowBox[{"Table", "[", RowBox[{ RowBox[{"Graphics3D", "[", RowBox[{"{", RowBox[{ RowBox[{"Opacity", "[", "0.3", "]"}], ",", RowBox[{"Lighter", "[", "Yellow", "]"}], ",", RowBox[{"Sphere", "[", RowBox[{ RowBox[{"tpu", "[", RowBox[{"[", "i", "]"}], "]"}], ",", RowBox[{"rpi", "[", RowBox[{"[", "i", "]"}], "]"}]}], "]"}]}], "}"}], "]"}], ",", RowBox[{"{", RowBox[{"i", ",", "1", ",", "cj"}], "}"}]}], "]"}]}], ";"}], "\[IndentingNewLine]", RowBox[{ RowBox[{"Plot8d", "=", RowBox[{"Graphics3D", "[", RowBox[{"{", RowBox[{ RowBox[{"Opacity", "[", "0.4", "]"}], ",", RowBox[{"Lighter", "[", "Red", "]"}], ",", RowBox[{"Sphere", "[", RowBox[{"tplo", ",", "rlo"}], "]"}]}], "}"}], "]"}]}], ";"}], "\[IndentingNewLine]", RowBox[{ RowBox[{"Plot8e", "=", RowBox[{"Graphics3D", "[", RowBox[{"{", RowBox[{ RowBox[{"Opacity", "[", "0.4", "]"}], ",", RowBox[{"Lighter", "[", "Red", "]"}], ",", RowBox[{"Sphere", "[", RowBox[{"tplu", ",", "rlo"}], "]"}]}], "}"}], "]"}]}], ";"}], "\[IndentingNewLine]", RowBox[{ RowBox[{"Plot8f", "=", RowBox[{"Table", "[", RowBox[{ RowBox[{"Graphics3D", "[", RowBox[{"{", RowBox[{ RowBox[{"Opacity", "[", "0.4", "]"}], ",", RowBox[{"Lighter", "[", "Red", "]"}], ",", RowBox[{"Sphere", "[", RowBox[{ RowBox[{"tplk", "[", RowBox[{"[", "i", "]"}], "]"}], ",", "rlo"}], "]"}]}], "}"}], "]"}], ",", RowBox[{"{", RowBox[{"i", ",", "1", ",", "tj"}], "}"}]}], "]"}]}], ";"}], "\[IndentingNewLine]", RowBox[{ RowBox[{"Plot8g", "=", RowBox[{"Table", "[", RowBox[{ RowBox[{"Graphics3D", "[", RowBox[{"{", RowBox[{ RowBox[{"Opacity", "[", "0.4", "]"}], ",", RowBox[{"Lighter", "[", "Red", "]"}], ",", RowBox[{"Sphere", "[", RowBox[{ RowBox[{"tpll", "[", RowBox[{"[", "i", "]"}], "]"}], ",", "rlo"}], "]"}]}], "}"}], "]"}], ",", RowBox[{"{", RowBox[{"i", ",", "1", ",", "tj"}], "}"}]}], "]"}]}], ";"}], "\[IndentingNewLine]", RowBox[{ RowBox[{"Plot8h", "=", RowBox[{"Table", "[", RowBox[{ RowBox[{"Graphics3D", "[", RowBox[{"{", RowBox[{ RowBox[{"Opacity", "[", "0.4", "]"}], ",", RowBox[{"Lighter", "[", "Red", "]"}], ",", RowBox[{"Sphere", "[", RowBox[{ RowBox[{"tplm", "[", RowBox[{"[", "i", "]"}], "]"}], ",", "rlo"}], "]"}]}], "}"}], "]"}], ",", RowBox[{"{", RowBox[{"i", ",", "1", ",", "tj"}], "}"}]}], "]"}]}], ";"}]}], "Input", CellChangeTimes->{{3.5681365021632137`*^9, 3.5681365171392403`*^9}, { 3.568136560351316*^9, 3.5681365863097615`*^9}, {3.5681369135895367`*^9, 3.5681369265999594`*^9}, {3.568137821916732*^9, 3.5681378378443604`*^9}, { 3.5682072492149415`*^9, 3.5682072529901485`*^9}, 3.568209802830227*^9, { 3.5682216503836985`*^9, 3.5682217583046885`*^9}, {3.5682217912831464`*^9, 3.568221843465238*^9}, {3.5682219760654707`*^9, 3.5682221133457117`*^9}, { 3.568222159615393*^9, 3.5682221693498106`*^9}, {3.5682222565227633`*^9, 3.5682222578487663`*^9}, 3.5682224736283445`*^9, 3.5682227227607822`*^9, 3.5682227558640404`*^9, {3.568222818810151*^9, 3.5682228486062036`*^9}, { 3.5682230057764797`*^9, 3.5682230079916835`*^9}, {3.568223041952943*^9, 3.5682230548229656`*^9}, 3.5682232619601297`*^9, 3.5682233000709963`*^9, { 3.568223536645412*^9, 3.5682235381118145`*^9}, {3.568223591151908*^9, 3.568223591526308*^9}, {3.5682236491528096`*^9, 3.568223657483224*^9}, { 3.568223713222122*^9, 3.5682237532361927`*^9}, {3.568223800379475*^9, 3.568223827648323*^9}, {3.5682238887380304`*^9, 3.5682238893152313`*^9}, { 3.5682240287170763`*^9, 3.5682240612431335`*^9}, 3.5682241088076167`*^9, { 3.568224198772975*^9, 3.5682242396450467`*^9}, {3.568224282170721*^9, 3.5682243185031853`*^9}, {3.568224437890195*^9, 3.568224439590598*^9}, { 3.568224572253231*^9, 3.5682245867144566`*^9}, {3.5682247081762695`*^9, 3.568224733557514*^9}, {3.56822480520844*^9, 3.5682248433505073`*^9}, { 3.568224884206979*^9, 3.5682248959069996`*^9}, {3.568224982830352*^9, 3.5682250047639904`*^9}, {3.56822503870965*^9, 3.5682250803305235`*^9}, { 3.5682251223413973`*^9, 3.568225141451431*^9}, {3.568225234177994*^9, 3.5682252929588966`*^9}, {3.5682253775890455`*^9, 3.568225482140429*^9}, { 3.56822551694409*^9, 3.5682255297205124`*^9}, {3.568225573197789*^9, 3.5682255809666023`*^9}, 3.568225660698343*^9, 3.5682257301964645`*^9, { 3.568225765078126*^9, 3.5682257828933573`*^9}, {3.568225927026843*^9, 3.568225927416844*^9}, {3.568267062420238*^9, 3.568267081358671*^9}, { 3.568267188328059*^9, 3.5682672830358257`*^9}, {3.5682676367040462`*^9, 3.568267747979042*^9}, 3.5682678404716043`*^9, 3.568267882030078*^9, { 3.5682679252577534`*^9, 3.568267996612279*^9}, {3.5682680488879704`*^9, 3.568268061133992*^9}, {3.568268100914062*^9, 3.5682681150944867`*^9}, { 3.5682681672609787`*^9, 3.5682681709113846`*^9}, {3.568268272904364*^9, 3.5682683182536435`*^9}, {3.5682685202739983`*^9, 3.568268599194537*^9}, { 3.5682686348873997`*^9, 3.568268637773405*^9}, {3.5682686944951043`*^9, 3.568268872273017*^9}, {3.5682689420207396`*^9, 3.568269016947671*^9}, { 3.5682695040741262`*^9, 3.568269601153097*^9}, {3.5682696652380095`*^9, 3.5682696728352227`*^9}, {3.5682697489633565`*^9, 3.5682698308635006`*^9}, {3.568271156491429*^9, 3.568271160063835*^9}, { 3.568271244927984*^9, 3.568271369010602*^9}, {3.5682716250070515`*^9, 3.5682717312276382`*^9}, {3.5682717843301315`*^9, 3.5682718576814604`*^9}, {3.568271940673606*^9, 3.5682720536490045`*^9}, { 3.5682722259669075`*^9, 3.5682723223126764`*^9}, {3.568272370813162*^9, 3.568272411466833*^9}, {3.5682725893539457`*^9, 3.568272622238803*^9}, { 3.5682726936713285`*^9, 3.5682726960113325`*^9}, {3.568272741079812*^9, 3.56827275143823*^9}, {3.5682729218373294`*^9, 3.568272991070251*^9}, { 3.5682734285574193`*^9, 3.5682734302890224`*^9}, {3.5682734898811274`*^9, 3.5682735111595645`*^9}, {3.5682736115925407`*^9, 3.5682736313577757`*^9}, {3.5682738601945777`*^9, 3.568273987272401*^9}, { 3.5682763944346285`*^9, 3.5682764313910933`*^9}, 3.5682765128232365`*^9, { 3.5682766527398825`*^9, 3.568276660976697*^9}, {3.5682774496048822`*^9, 3.568277461663703*^9}, {3.5683784032731285`*^9, 3.568378422991563*^9}, { 3.568378459308427*^9, 3.5683784812420654`*^9}, {3.568378513440522*^9, 3.568378867046343*^9}, {3.568378915468828*^9, 3.56837896203491*^9}, { 3.5683790764299107`*^9, 3.568379270041851*^9}, {3.568380233530743*^9, 3.568380234388745*^9}, 3.5683804214954734`*^9, 3.568380471867962*^9, 3.5683805399464817`*^9, {3.5683812396077104`*^9, 3.568381293537005*^9}, { 3.568381339541486*^9, 3.568381420224828*^9}, {3.5684645223056345`*^9, 3.5684645572340956`*^9}, {3.5684651558539467`*^9, 3.5684651618911576`*^9}, {3.5688209923798466`*^9, 3.568820997683856*^9}, { 3.568821158754139*^9, 3.568821160750942*^9}, 3.56882222404881*^9, { 3.568822649274357*^9, 3.5688226508031597`*^9}, 3.568822723109287*^9, { 3.5693397221142225`*^9, 3.5693397223326235`*^9}, {3.5693899272912874`*^9, 3.5693899274472876`*^9}, {3.5693910617720795`*^9, 3.5693910848757205`*^9}, 3.5693911374166126`*^9, {3.569391214402748*^9, 3.5693912147147484`*^9}, 3.569391451944365*^9, {3.569391487793228*^9, 3.569391507620863*^9}, { 3.5693923162258854`*^9, 3.5693923173958874`*^9}, {3.569406068526634*^9, 3.569406086092265*^9}, 3.569690172138941*^9, 3.569780036185542*^9, { 3.570453906913044*^9, 3.5704539079894457`*^9}, {3.570454575670618*^9, 3.5704545899602437`*^9}, {3.570454765008151*^9, 3.570454772277764*^9}, 3.5708553779481487`*^9, {3.5709431726830034`*^9, 3.570943174555007*^9}, { 3.5709495710522423`*^9, 3.5709495907082767`*^9}, {3.570949647617176*^9, 3.570949673138821*^9}, {3.570950759321929*^9, 3.5709507772775607`*^9}, { 3.5709508127364225`*^9, 3.5709508405200715`*^9}, {3.570991123104905*^9, 3.570991124259307*^9}, {3.5709912161278687`*^9, 3.570991227937089*^9}, { 3.5709912804155817`*^9, 3.570991308776431*^9}, {3.5709914026885962`*^9, 3.5709914215490294`*^9}, {3.570991574429298*^9, 3.5709916038821497`*^9}, 3.570991652445035*^9, 3.570991830004547*^9, 3.570991865276209*^9, { 3.5709919181759014`*^9, 3.5709919260539155`*^9}, {3.570992027251293*^9, 3.570992050058533*^9}, 3.5709920901350036`*^9, 3.570992186979974*^9, { 3.57122255431676*^9, 3.5712225562355638`*^9}, 3.571223175338251*^9, { 3.5713153738729277`*^9, 3.571315375682531*^9}, 3.5713224026962075`*^9, { 3.5713224627875133`*^9, 3.5713224654863176`*^9}, {3.5713224965147724`*^9, 3.571322572268505*^9}, {3.5713226259637995`*^9, 3.5713226549330506`*^9}, { 3.5713308245340652`*^9, 3.571330884469371*^9}, {3.5713309160126257`*^9, 3.5713309422674723`*^9}, 3.571331071326499*^9, {3.5713311246629925`*^9, 3.5713311332274075`*^9}, {3.571331300334901*^9, 3.5713313470881834`*^9}, 3.5713314298931284`*^9, 3.571331594130217*^9, {3.571331632849485*^9, 3.5713316334578857`*^9}, {3.5713316704299507`*^9, 3.5713316709447517`*^9}, {3.571331783327349*^9, 3.571331790019761*^9}, { 3.5713319475956383`*^9, 3.571331948360039*^9}, {3.5713326567416835`*^9, 3.571332681717327*^9}, {3.571332736801024*^9, 3.571332753305853*^9}, { 3.571332796221528*^9, 3.5713328475768185`*^9}, {3.571332914344936*^9, 3.571332924672154*^9}, {3.5713330072586994`*^9, 3.5713330320471425`*^9}, { 3.5713330798612266`*^9, 3.5713330883320417`*^9}, {3.5713331731961904`*^9, 3.571333178266199*^9}, {3.571333407851803*^9, 3.571333426837036*^9}, { 3.571333542292839*^9, 3.571333557705666*^9}, {3.5713336117441607`*^9, 3.5713337055939255`*^9}, {3.5713337750608473`*^9, 3.571333798070888*^9}, { 3.5713366694988756`*^9, 3.5713366834765005`*^9}, {3.5713369716090064`*^9, 3.57133697359021*^9}, {3.57138272164856*^9, 3.571382756233821*^9}, { 3.57138283537276*^9, 3.571382866900415*^9}, {3.5713829070080853`*^9, 3.5713829086616883`*^9}, {3.571382939175342*^9, 3.5713830233374896`*^9}, { 3.5713831045200324`*^9, 3.571383106126835*^9}, {3.571383198260597*^9, 3.5713832448422785`*^9}, 3.5716785972796593`*^9, 3.5718167268987517`*^9, { 3.571838452469782*^9, 3.5718386879053955`*^9}, {3.571838766139532*^9, 3.571838773908346*^9}, 3.5718388425484667`*^9, {3.571838961763876*^9, 3.571838969236289*^9}, {3.571839027970392*^9, 3.5718390313399982`*^9}, { 3.571839741203645*^9, 3.5718397450100517`*^9}, {3.572538612521628*^9, 3.572538701894185*^9}, {3.572538746213863*^9, 3.572538844837236*^9}, 3.5725397817592816`*^9, {3.5726093687611146`*^9, 3.5726094120667906`*^9}, { 3.5726201406133776`*^9, 3.5726201439517837`*^9}, {3.5726204342214937`*^9, 3.572620455406331*^9}, {3.5726210034788933`*^9, 3.572621009968505*^9}, { 3.5728421659278097`*^9, 3.5728422874676228`*^9}, {3.572844941796685*^9, 3.57284494451109*^9}, {3.572850660423529*^9, 3.5728506878327775`*^9}, 3.5731240021791506`*^9, {3.573124038683215*^9, 3.57312404156922*^9}, 3.5731241655738378`*^9, {3.573150838242284*^9, 3.5731508464166985`*^9}, { 3.5732110436990156`*^9, 3.573211066116255*^9}, {3.573212991206436*^9, 3.573213000894053*^9}, {3.573213104540635*^9, 3.573213182462772*^9}, { 3.5732202689099436`*^9, 3.573220322745638*^9}, {3.573220354086093*^9, 3.5732203696081204`*^9}, {3.573220402914179*^9, 3.573220410448992*^9}, { 3.5746631320730405`*^9, 3.574663233114418*^9}, {3.5746640424906397`*^9, 3.574664047560649*^9}, {3.5746708183720207`*^9, 3.574670838917257*^9}, { 3.5747409576711226`*^9, 3.574740975720354*^9}, {3.5747864634781103`*^9, 3.5747864662861156`*^9}, {3.574786586827527*^9, 3.574786630445204*^9}, { 3.574786972070204*^9, 3.5747869752838097`*^9}, {3.5748281512990437`*^9, 3.5748281556358514`*^9}, 3.5753451622470818`*^9, {3.575351337845529*^9, 3.5753513418547363`*^9}, 3.575351450508927*^9, {3.575365082044012*^9, 3.5753650985644407`*^9}, {3.5753651580941453`*^9, 3.575365163008154*^9}, { 3.5757218899846277`*^9, 3.5757219013726473`*^9}, {3.576343058584899*^9, 3.5763431272094193`*^9}}], Cell[CellGroupData[{ Cell[BoxData[{ RowBox[{ RowBox[{"Plot9", "=", " ", RowBox[{"Table", "[", RowBox[{ RowBox[{"Graphics3D", "[", RowBox[{"{", RowBox[{ RowBox[{"Lighter", "[", RowBox[{"Orange", ",", "0.5"}], "]"}], ",", RowBox[{"Tube", "[", RowBox[{ RowBox[{"{", RowBox[{ RowBox[{"{", RowBox[{ RowBox[{"x", "[", RowBox[{"[", RowBox[{"a", "[", RowBox[{"[", RowBox[{"i", ",", "1"}], "]"}], "]"}], "]"}], "]"}], ",", RowBox[{"y", "[", RowBox[{"[", RowBox[{"a", "[", RowBox[{"[", RowBox[{"i", ",", "1"}], "]"}], "]"}], "]"}], "]"}], ",", RowBox[{"z", "[", RowBox[{"[", RowBox[{"a", "[", RowBox[{"[", RowBox[{"i", ",", "1"}], "]"}], "]"}], "]"}], "]"}]}], "}"}], ",", RowBox[{"{", RowBox[{ RowBox[{"x", "[", RowBox[{"[", RowBox[{"a", "[", RowBox[{"[", RowBox[{"i", ",", "2"}], "]"}], "]"}], "]"}], "]"}], ",", RowBox[{"y", "[", RowBox[{"[", RowBox[{"a", "[", RowBox[{"[", RowBox[{"i", ",", "2"}], "]"}], "]"}], "]"}], "]"}], ",", RowBox[{"z", "[", RowBox[{"[", RowBox[{"a", "[", RowBox[{"[", RowBox[{"i", ",", "2"}], "]"}], "]"}], "]"}], "]"}]}], "}"}]}], "}"}], ",", "0.1"}], "]"}]}], "}"}], "]"}], ",", RowBox[{"{", RowBox[{"i", ",", "1", ",", "nb"}], "}"}]}], "]"}]}], ";"}], "\[IndentingNewLine]", RowBox[{ RowBox[{"Plot9a", "=", " ", RowBox[{"Graphics3D", "[", RowBox[{"Tube", "[", RowBox[{ RowBox[{"{", RowBox[{ RowBox[{"x", "[", RowBox[{"[", "2", "]"}], "]"}], ",", RowBox[{"y", "[", RowBox[{"[", "2", "]"}], "]"}], ",", RowBox[{"z", "[", RowBox[{"[", "2", "]"}], "]"}]}], "}"}], ",", RowBox[{"nk", "[", RowBox[{"[", "2", "]"}], "]"}], ",", "0.06"}], "]"}], "]"}]}], ";"}], "\[IndentingNewLine]", RowBox[{ RowBox[{"Plot9b", "=", " ", RowBox[{"Graphics3D", "[", RowBox[{"Tube", "[", RowBox[{ RowBox[{"{", RowBox[{ RowBox[{"x", "[", RowBox[{"[", "2", "]"}], "]"}], ",", RowBox[{"y", "[", RowBox[{"[", "2", "]"}], "]"}], ",", RowBox[{"z", "[", RowBox[{"[", "2", "]"}], "]"}]}], "}"}], ",", RowBox[{"nl", "[", RowBox[{"[", "2", "]"}], "]"}], ",", "0.06"}], "]"}], "]"}]}], ";"}], "\[IndentingNewLine]", RowBox[{"Show", "[", RowBox[{"Plot1o", ",", RowBox[{"(*", RowBox[{"Plot2", ","}], "*)"}], "Plot7", ",", "Plot8", ",", "Plot8a", ",", "Plot8b", ",", "Plot8d", ",", "Plot8e", ",", "Plot8f", ",", "Plot8g", ",", "Plot8h", ",", "Plot9", ",", RowBox[{"{", RowBox[{ RowBox[{"AspectRatio", "\[Rule]", "Automatic"}], ",", RowBox[{"Boxed", "\[Rule]", "False"}], ",", RowBox[{"(*", " ", RowBox[{ RowBox[{"Axes", "\[Rule]", "Automatic"}], ",", RowBox[{"AxesLabel", "\[Rule]", RowBox[{"{", RowBox[{"xl", ",", "yl", ",", "zl"}], "}"}]}], ","}], "*)"}], RowBox[{"SphericalRegion", "\[Rule]", "True"}]}], "}"}]}], "]"}], "\[IndentingNewLine]"}], "Input", CellChangeTimes->{{3.5681365021632137`*^9, 3.5681365171392403`*^9}, { 3.568136560351316*^9, 3.5681365863097615`*^9}, {3.5681369135895367`*^9, 3.5681369265999594`*^9}, {3.568137821916732*^9, 3.5681378378443604`*^9}, { 3.5682072492149415`*^9, 3.5682072529901485`*^9}, 3.568209802830227*^9, { 3.5682216503836985`*^9, 3.5682217583046885`*^9}, {3.5682217912831464`*^9, 3.568221843465238*^9}, {3.5682219760654707`*^9, 3.5682221133457117`*^9}, { 3.568222159615393*^9, 3.5682221693498106`*^9}, {3.5682222565227633`*^9, 3.5682222578487663`*^9}, 3.5682224736283445`*^9, 3.5682227227607822`*^9, 3.5682227558640404`*^9, {3.568222818810151*^9, 3.5682228486062036`*^9}, { 3.5682230057764797`*^9, 3.5682230079916835`*^9}, {3.568223041952943*^9, 3.5682230548229656`*^9}, 3.5682232619601297`*^9, 3.5682233000709963`*^9, { 3.568223536645412*^9, 3.5682235381118145`*^9}, {3.568223591151908*^9, 3.568223591526308*^9}, {3.5682236491528096`*^9, 3.568223657483224*^9}, { 3.568223713222122*^9, 3.5682237532361927`*^9}, {3.568223800379475*^9, 3.568223827648323*^9}, {3.5682238887380304`*^9, 3.5682238893152313`*^9}, { 3.5682240287170763`*^9, 3.5682240612431335`*^9}, 3.5682241088076167`*^9, { 3.568224198772975*^9, 3.5682242396450467`*^9}, {3.568224282170721*^9, 3.5682243185031853`*^9}, {3.568224437890195*^9, 3.568224439590598*^9}, { 3.568224572253231*^9, 3.5682245867144566`*^9}, {3.5682247081762695`*^9, 3.568224733557514*^9}, {3.56822480520844*^9, 3.5682248433505073`*^9}, { 3.568224884206979*^9, 3.5682248959069996`*^9}, {3.568224982830352*^9, 3.5682250047639904`*^9}, {3.56822503870965*^9, 3.5682250803305235`*^9}, { 3.5682251223413973`*^9, 3.568225141451431*^9}, {3.568225234177994*^9, 3.5682252929588966`*^9}, {3.5682253775890455`*^9, 3.568225482140429*^9}, { 3.56822551694409*^9, 3.5682255297205124`*^9}, {3.568225573197789*^9, 3.5682255809666023`*^9}, 3.568225660698343*^9, 3.5682257301964645`*^9, { 3.568225765078126*^9, 3.5682257828933573`*^9}, {3.568225927026843*^9, 3.568225927416844*^9}, {3.568267062420238*^9, 3.568267081358671*^9}, { 3.568267188328059*^9, 3.5682672830358257`*^9}, {3.5682676367040462`*^9, 3.568267747979042*^9}, 3.5682678404716043`*^9, 3.568267882030078*^9, { 3.5682679252577534`*^9, 3.568267996612279*^9}, {3.5682680488879704`*^9, 3.568268061133992*^9}, {3.568268100914062*^9, 3.5682681150944867`*^9}, { 3.5682681672609787`*^9, 3.5682681709113846`*^9}, {3.568268272904364*^9, 3.5682683182536435`*^9}, {3.5682685202739983`*^9, 3.568268599194537*^9}, { 3.5682686348873997`*^9, 3.568268637773405*^9}, {3.5682686944951043`*^9, 3.568268872273017*^9}, {3.5682689420207396`*^9, 3.568269016947671*^9}, { 3.5682695040741262`*^9, 3.568269601153097*^9}, {3.5682696652380095`*^9, 3.5682696728352227`*^9}, {3.5682697489633565`*^9, 3.5682698308635006`*^9}, {3.568271156491429*^9, 3.568271160063835*^9}, { 3.568271244927984*^9, 3.568271369010602*^9}, {3.5682716250070515`*^9, 3.5682717312276382`*^9}, {3.5682717843301315`*^9, 3.5682718576814604`*^9}, {3.568271940673606*^9, 3.5682720536490045`*^9}, { 3.5682722259669075`*^9, 3.5682723223126764`*^9}, {3.568272370813162*^9, 3.568272411466833*^9}, {3.5682725893539457`*^9, 3.568272622238803*^9}, { 3.5682726936713285`*^9, 3.5682726960113325`*^9}, {3.568272741079812*^9, 3.56827275143823*^9}, {3.5682729218373294`*^9, 3.568272991070251*^9}, { 3.5682734285574193`*^9, 3.5682734302890224`*^9}, {3.5682734898811274`*^9, 3.5682735111595645`*^9}, {3.5682736115925407`*^9, 3.5682736313577757`*^9}, {3.5682738601945777`*^9, 3.568273987272401*^9}, { 3.5682763944346285`*^9, 3.5682764313910933`*^9}, 3.5682765128232365`*^9, { 3.5682766527398825`*^9, 3.568276660976697*^9}, {3.5682774496048822`*^9, 3.568277461663703*^9}, {3.5683784032731285`*^9, 3.568378422991563*^9}, { 3.568378459308427*^9, 3.5683784812420654`*^9}, {3.568378513440522*^9, 3.568378867046343*^9}, {3.568378915468828*^9, 3.56837896203491*^9}, { 3.5683790764299107`*^9, 3.568379270041851*^9}, {3.568380233530743*^9, 3.568380234388745*^9}, 3.5683804214954734`*^9, 3.568380471867962*^9, 3.5683805399464817`*^9, {3.5683812396077104`*^9, 3.568381293537005*^9}, { 3.568381339541486*^9, 3.568381420224828*^9}, {3.5684645223056345`*^9, 3.5684645572340956`*^9}, {3.5684651558539467`*^9, 3.5684651618911576`*^9}, {3.5688209923798466`*^9, 3.568820997683856*^9}, { 3.568821158754139*^9, 3.568821160750942*^9}, 3.56882222404881*^9, { 3.568822649274357*^9, 3.5688226508031597`*^9}, 3.568822723109287*^9, { 3.5693397221142225`*^9, 3.5693397223326235`*^9}, {3.5693899272912874`*^9, 3.5693899274472876`*^9}, {3.5693910617720795`*^9, 3.5693910848757205`*^9}, 3.5693911374166126`*^9, {3.569391214402748*^9, 3.5693912147147484`*^9}, 3.569391451944365*^9, {3.569391487793228*^9, 3.569391507620863*^9}, { 3.5693923162258854`*^9, 3.5693923173958874`*^9}, {3.569406068526634*^9, 3.569406086092265*^9}, 3.569690172138941*^9, 3.569780036185542*^9, { 3.570453906913044*^9, 3.5704539079894457`*^9}, {3.570454575670618*^9, 3.5704545899602437`*^9}, {3.570454765008151*^9, 3.570454772277764*^9}, 3.5708553779481487`*^9, {3.5709431726830034`*^9, 3.570943174555007*^9}, { 3.5709495710522423`*^9, 3.5709495907082767`*^9}, {3.570949647617176*^9, 3.570949673138821*^9}, {3.570950759321929*^9, 3.5709507772775607`*^9}, { 3.5709508127364225`*^9, 3.5709508405200715`*^9}, {3.570991123104905*^9, 3.570991124259307*^9}, {3.5709912161278687`*^9, 3.570991227937089*^9}, { 3.5709912804155817`*^9, 3.570991308776431*^9}, {3.5709914026885962`*^9, 3.5709914215490294`*^9}, {3.570991574429298*^9, 3.5709916038821497`*^9}, 3.570991652445035*^9, 3.570991830004547*^9, 3.570991865276209*^9, { 3.5709919181759014`*^9, 3.5709919260539155`*^9}, {3.570992027251293*^9, 3.570992050058533*^9}, 3.5709920901350036`*^9, 3.570992186979974*^9, { 3.57122255431676*^9, 3.5712225562355638`*^9}, 3.571223175338251*^9, { 3.5713153738729277`*^9, 3.571315375682531*^9}, 3.5713224026962075`*^9, { 3.5713224627875133`*^9, 3.5713224654863176`*^9}, {3.5713224965147724`*^9, 3.571322572268505*^9}, {3.5713226259637995`*^9, 3.5713226549330506`*^9}, { 3.5713308245340652`*^9, 3.571330884469371*^9}, {3.5713309160126257`*^9, 3.5713309422674723`*^9}, 3.571331071326499*^9, {3.5713311246629925`*^9, 3.5713311332274075`*^9}, {3.571331300334901*^9, 3.5713313470881834`*^9}, 3.5713314298931284`*^9, 3.571331594130217*^9, {3.571331632849485*^9, 3.5713316334578857`*^9}, {3.5713316704299507`*^9, 3.5713316709447517`*^9}, {3.571331783327349*^9, 3.571331790019761*^9}, { 3.5713319475956383`*^9, 3.571331948360039*^9}, {3.5713326567416835`*^9, 3.571332681717327*^9}, {3.571332736801024*^9, 3.571332753305853*^9}, { 3.571332796221528*^9, 3.5713328475768185`*^9}, {3.571332914344936*^9, 3.571332924672154*^9}, {3.5713330072586994`*^9, 3.5713330320471425`*^9}, { 3.5713330798612266`*^9, 3.5713330883320417`*^9}, {3.5713331731961904`*^9, 3.571333178266199*^9}, {3.571333407851803*^9, 3.571333426837036*^9}, { 3.571333542292839*^9, 3.571333557705666*^9}, {3.5713336117441607`*^9, 3.5713337055939255`*^9}, {3.5713337750608473`*^9, 3.571333798070888*^9}, { 3.5713366694988756`*^9, 3.5713366834765005`*^9}, {3.5713369716090064`*^9, 3.57133697359021*^9}, {3.57138272164856*^9, 3.571382756233821*^9}, { 3.57138283537276*^9, 3.571382866900415*^9}, {3.5713829070080853`*^9, 3.5713829086616883`*^9}, {3.571382939175342*^9, 3.5713830233374896`*^9}, { 3.5713831045200324`*^9, 3.571383106126835*^9}, {3.571383198260597*^9, 3.5713832448422785`*^9}, 3.5716785972796593`*^9, 3.5718167268987517`*^9, { 3.571838452469782*^9, 3.5718386879053955`*^9}, 3.571838766139532*^9, { 3.571838857446493*^9, 3.5718388645757055`*^9}, 3.5723437133735733`*^9, 3.5723437554312468`*^9, {3.5723449027196617`*^9, 3.572344929582909*^9}, 3.5723450406551046`*^9, {3.57234950163894*^9, 3.5723495196413713`*^9}, { 3.572584520172369*^9, 3.5725845258195786`*^9}, {3.5726224003989472`*^9, 3.57262241340937*^9}, 3.572796748424938*^9, 3.5727968708695536`*^9, { 3.572796971801731*^9, 3.572796995841373*^9}, {3.57279741546651*^9, 3.5727974308793373`*^9}, {3.572842795856916*^9, 3.5728428061217337`*^9}, { 3.5728522627179437`*^9, 3.572852288426789*^9}, {3.5728523495164957`*^9, 3.572852453865079*^9}, {3.5728524960787535`*^9, 3.572852515110787*^9}, { 3.572852550008048*^9, 3.572852634669397*^9}, {3.5728602362372026`*^9, 3.5728602649256525`*^9}, 3.572860311756935*^9, 3.5731241886618786`*^9, 3.5731408095114717`*^9, 3.5731408826443996`*^9, {3.573211072949067*^9, 3.5732110779254756`*^9}, {3.5732129727516036`*^9, 3.573212981300419*^9}, { 3.5732130120948725`*^9, 3.57321301629128*^9}, {3.573213384015126*^9, 3.573213388164733*^9}, {3.573220427063021*^9, 3.57322044338065*^9}, { 3.5733208085662665`*^9, 3.5733208285343018`*^9}, {3.57332089027921*^9, 3.5733208917144127`*^9}, {3.5733209483737125`*^9, 3.5733209652997417`*^9}, {3.5733210904587617`*^9, 3.5733211330312366`*^9}, {3.5746581574587035`*^9, 3.5746581598923078`*^9}, {3.5746632559372582`*^9, 3.5746632963569293`*^9}, 3.574669479281269*^9, {3.5746708530664816`*^9, 3.5746708831121345`*^9}, { 3.5746734822639*^9, 3.5746735338531904`*^9}, 3.5747441301394944`*^9, { 3.574950644335537*^9, 3.5749506488751445`*^9}, {3.575001627819734*^9, 3.5750016487549706`*^9}, {3.57534426719551*^9, 3.575344278926731*^9}, { 3.5753450565880966`*^9, 3.575345065324112*^9}, 3.5753451320610294`*^9, 3.575345171575898*^9, 3.575345357543825*^9, {3.5753513717287884`*^9, 3.57535142378608*^9}, {3.5753652394014883`*^9, 3.57536535446729*^9}, 3.5762958623448744`*^9, {3.5763431377082376`*^9, 3.576343150983861*^9}, { 3.576419664175305*^9, 3.5764196724433193`*^9}}], Cell[BoxData[ Graphics3DBox[{ {RGBColor[0.4, 0.2666666666666667, 0.13333333333333336`], Opacity[0.8], SphereBox[{-1.3767138399951948`, 9.136492442760169, -0.011319882653069602`}, 0.255]}, {RGBColor[0.4, 0.2666666666666667, 0.13333333333333336`], Opacity[0.8], SphereBox[{0.473882316936199, 6.971834316791755, 0.0004138948773504403}, 0.255]}, {RGBColor[0.4, 0.2666666666666667, 0.13333333333333336`], Opacity[0.8], SphereBox[{1.4237888928831852`, 2.4662159947976874`, 0.00013321484173245413`}, 0.255]}, {RGBColor[0.4, 0.2666666666666667, 0.13333333333333336`], Opacity[0.8], SphereBox[{0, 0, 0}, 0.255]}, {RGBColor[ NCache[ Rational[1, 3], 0.3333333333333333], NCache[ Rational[1, 3], 0.3333333333333333], 1], Opacity[0.8], SphereBox[{-0.37512028472777914`, 4.570605187795081, 0.0002255030110518419}, 0.24]}, {RGBColor[ NCache[ Rational[1, 3], 0.3333333333333333], NCache[ Rational[1, 3], 0.3333333333333333], 1], Opacity[0.8], SphereBox[{0.03463532179801909, 11.536269141880382`, -0.06288512934630486}, 0.24]}, {RGBColor[1, NCache[ Rational[1, 3], 0.3333333333333333], NCache[ Rational[1, 3], 0.3333333333333333]], Opacity[0.8], SphereBox[{2.727290054608442, 7.390531260134222, 0.0002804910126465998}, 0.178]}, {RGBColor[1, NCache[ Rational[1, 3], 0.3333333333333333], NCache[ Rational[1, 3], 0.3333333333333333]], Opacity[0.8], SphereBox[{-2.2832742569128253`, 0, 0}, 0.178]}, {RGBColor[1, NCache[ Rational[1, 3], 0.3333333333333333], NCache[ Rational[1, 3], 0.3333333333333333]], Opacity[0.8], SphereBox[{1.268100398919057, -2.196638994879232, 0}, 0.178]}, {RGBColor[1, 1, 1], Opacity[0.8], SphereBox[{-2.5623900210132162`, 9.035084825337556, 1.6699560186170959`}, 0.12]}, {RGBColor[1, 1, 1], Opacity[0.8], SphereBox[{-2.559361148898179, 9.019447040476722, -1.6935183538918448`}, 0.12]}, {RGBColor[1, 1, 1], Opacity[0.8], SphereBox[{-2.177290252557225, 4.235570185005809, 0.000388702763330917}, 0.12]}, {RGBColor[1, 1, 1], Opacity[0.8], SphereBox[{2.6079918797775323`, 2.5754100297558193`, 1.681870261262245}, 0.12]}, {RGBColor[1, 1, 1], Opacity[0.8], SphereBox[{2.60807719544219, 2.575506999780597, -1.681642477037567}, 0.12]}, {RGBColor[1, 1, 1], Opacity[0.8], SphereBox[{1.2127996638427367`, 11.642049687312937`, 1.4557099657339077`}, 0.12]}, {RGBColor[1, 1, 1], Opacity[0.8], SphereBox[{-1.1885065866440119`, 13.022373661088087`, -0.02925378145732971}, 0.12]}, {RGBColor[1, 1, 1], Opacity[0.8], SphereBox[{1.089414647789555, 11.621232035852536`, -1.68930758680601}, 0.12]}, {RGBColor[0.36, 0.24, 0.12], Opacity[0.5], SphereBox[{-0.4514157615294978, 8.05416337977596, -0.00545299388785958}, 1.1667547587533689`]}, {RGBColor[0.36, 0.24, 0.12], Opacity[0.5], SphereBox[{0.7118944464415925, 1.2331079973988435`, 0.00006660742086622705}, 1.1666500765740462`]}, {RGBColor[0.36, 0.24, 0.12], Opacity[0.5], SphereBox[{0.04405079344347956, 5.756144314489225, 0.00031851617916264297`}, 1.0322407040975143`]}, {RGBColor[0.36, 0.24, 0.12], Opacity[0.5], SphereBox[{0.5139443174061085, 3.530564943466697, 0.00017989195655348597`}, 1.1430342083511027`]}, {RGBColor[0.36, 0.24, 0.12], Opacity[0.5], SphereBox[{-0.6629346100044611, 10.35016147011224, -0.0373986185714124}, 1.1510447932042867`]}, {RGBColor[0.36, 0.24, 0.12], Opacity[0.5], SphereBox[{1.6392248658883803`, 7.188362091608584, 0.00034490549867073633`}, 0.928087955909884]}, {RGBColor[0.36, 0.24, 0.12], Opacity[0.5], SphereBox[{-1.1809371284564125`, 0., 0.}, 0.9237371284564129]}, {RGBColor[0.36, 0.24, 0.12], Opacity[0.5], SphereBox[{0.6536986920326565, -1.1323551660771456`, 0.}, 1.0502976872280907`]}, {Opacity[0.5], SphereBox[{-2.222771146484287, 9.064131492082735, 1.1883801562499108`}, 1.2126058567002422`]}, {Opacity[0.5], SphereBox[{-2.2205837299854645`, 9.052975497340135, -1.211641084231616}, 1.212447052309992]}, {Opacity[0.5], SphereBox[{-1.6325241777122277`, 4.336845706551104, 0.0003393701864642485}, 1.0537280279235877`]}, {Opacity[0.5], SphereBox[{2.2687829617618083`, 2.5441319542384977`, 1.2001452443381346`}, 1.2125328818910286`]}, {Opacity[0.5], SphereBox[{2.2688579609867188`, 2.5442024509109817`, -1.1999264443009414`}, 1.2126186291866472`]}, {Opacity[0.5], SphereBox[{0.8736612721324476, 11.61160041740041, 1.018577487839674}, 1.145619428516999]}, {Opacity[0.5], SphereBox[{-0.8364365567264902, 12.594612287753689`, -0.03893425236239414}, 1.1457030746039425`]}, {Opacity[0.5], SphereBox[{0.7882072414971728, 11.596969659548952`, -1.2248592629951476`}, 1.161048039836913]}, {RGBColor[ NCache[ Rational[1, 3], 0.3333333333333333], 1, 1], Opacity[0.3], SphereBox[{0., 0., 1.2961}, 1.2961]}, {RGBColor[ NCache[ Rational[1, 3], 0.3333333333333333], 1, 1], Opacity[0.3], SphereBox[{-2.2832742569128253`, 0, 1.0875}, 1.0875]}, {RGBColor[ NCache[ Rational[1, 3], 0.3333333333333333], 1, 1], Opacity[0.3], SphereBox[{0.473882316936199, 6.971834316791755, 1.2961}, 1.2961]}, {RGBColor[ NCache[ Rational[1, 3], 0.3333333333333333], 1, 1], Opacity[0.3], SphereBox[{2.727290054608442, 7.390531260134222, 1.0875}, 1.0875]}, {RGBColor[ NCache[ Rational[1, 3], 0.3333333333333333], 1, 1], Opacity[0.3], SphereBox[{-0.37512028472777914`, 4.570605187795081, 1.2465}, 1.2465]}, {RGBColor[1, 1, NCache[ Rational[1, 3], 0.3333333333333333]], Opacity[0.3], SphereBox[{0., 0., -1.2961}, 1.2961]}, {RGBColor[1, 1, NCache[ Rational[1, 3], 0.3333333333333333]], Opacity[0.3], SphereBox[{-2.2832742569128253`, 0, -1.0875}, 1.0875]}, {RGBColor[1, 1, NCache[ Rational[1, 3], 0.3333333333333333]], Opacity[0.3], SphereBox[{0.473882316936199, 6.971834316791755, -1.2961}, 1.2961]}, {RGBColor[1, 1, NCache[ Rational[1, 3], 0.3333333333333333]], Opacity[0.3], SphereBox[{2.727290054608442, 7.390531260134222, -1.0875}, 1.0875]}, {RGBColor[1, 1, NCache[ Rational[1, 3], 0.3333333333333333]], Opacity[0.3], SphereBox[{-0.37512028472777914`, 4.570605187795081, -1.2465}, 1.2465]}, {RGBColor[1, NCache[ Rational[1, 3], 0.3333333333333333], NCache[ Rational[1, 3], 0.3333333333333333]], Opacity[0.4], SphereBox[{{-2.9162967725022537`, -1.1395856496639458`, \ -0.00004285831419274054}, {3.192508220343423, 8.608291150843012, 0.0027026493671570267`}}, 1.125]}, {RGBColor[1, NCache[ Rational[1, 3], 0.3333333333333333], NCache[ Rational[1, 3], 0.3333333333333333]], Opacity[0.4], SphereBox[{{-2.9536676464558553`, 1.1180096881822639`, 0.00001968767121723845}, {3.5491206411577862`, 6.3787815587663435`, 0.018446084698821735`}}, 1.125]}, {RGBColor[1, NCache[ Rational[1, 3], 0.3333333333333333], NCache[ Rational[1, 3], 0.3333333333333333]], Opacity[0.4], SphereBox[{2.5413936804492883`, -1.9439930410068949`, 0.00006639159789333312}, 1.125]}, {RGBColor[1, NCache[ Rational[1, 3], 0.3333333333333333], NCache[ Rational[1, 3], 0.3333333333333333]], Opacity[0.4], SphereBox[{0.9447251549845481, -2.8657357574037947`, 1.06435098821289}, 1.125]}, {RGBColor[1, NCache[ Rational[1, 3], 0.3333333333333333], NCache[ Rational[1, 3], 0.3333333333333333]], Opacity[0.4], SphereBox[{ 0.9448247448613702, -2.8656782650425914`, -1.0644173798812024`}, 1.125]}, {RGBColor[1., 0.75, 0.5], TubeBox[{{0.473882316936199, 6.971834316791755, 0.0004138948773504403}, {-1.3767138399951948`, 9.136492442760169, -0.011319882653069602`}}, 0.1]}, {RGBColor[1., 0.75, 0.5], TubeBox[{{0, 0, 0}, {1.4237888928831852`, 2.4662159947976874`, 0.00013321484173245413`}}, 0.1]}, {RGBColor[1., 0.75, 0.5], TubeBox[{{-0.37512028472777914`, 4.570605187795081, 0.0002255030110518419}, {0.473882316936199, 6.971834316791755, 0.0004138948773504403}}, 0.1]}, {RGBColor[1., 0.75, 0.5], TubeBox[{{-0.37512028472777914`, 4.570605187795081, 0.0002255030110518419}, {1.4237888928831852`, 2.4662159947976874`, 0.00013321484173245413`}}, 0.1]}, {RGBColor[1., 0.75, 0.5], TubeBox[{{0.03463532179801909, 11.536269141880382`, -0.06288512934630486}, {-1.3767138399951948`, 9.136492442760169, -0.011319882653069602`}}, 0.1]}, {RGBColor[1., 0.75, 0.5], TubeBox[{{2.727290054608442, 7.390531260134222, 0.0002804910126465998}, { 0.473882316936199, 6.971834316791755, 0.0004138948773504403}}, 0.1]}, {RGBColor[1., 0.75, 0.5], TubeBox[{{-2.2832742569128253`, 0, 0}, {0, 0, 0}}, 0.1]}, {RGBColor[1., 0.75, 0.5], TubeBox[{{1.268100398919057, -2.196638994879232, 0}, {0, 0, 0}}, 0.1]}, {RGBColor[1., 0.75, 0.5], TubeBox[{{-2.5623900210132162`, 9.035084825337556, 1.6699560186170959`}, {-1.3767138399951948`, 9.136492442760169, -0.011319882653069602`}}, 0.1]}, {RGBColor[1., 0.75, 0.5], TubeBox[{{-2.559361148898179, 9.019447040476722, -1.6935183538918448`}, {-1.3767138399951948`, 9.136492442760169, -0.011319882653069602`}}, 0.1]}, {RGBColor[1., 0.75, 0.5], TubeBox[{{-2.177290252557225, 4.235570185005809, 0.000388702763330917}, {-0.37512028472777914`, 4.570605187795081, 0.0002255030110518419}}, 0.1]}, {RGBColor[1., 0.75, 0.5], TubeBox[{{2.6079918797775323`, 2.5754100297558193`, 1.681870261262245}, { 1.4237888928831852`, 2.4662159947976874`, 0.00013321484173245413`}}, 0.1]}, {RGBColor[1., 0.75, 0.5], TubeBox[{{2.60807719544219, 2.575506999780597, -1.681642477037567}, { 1.4237888928831852`, 2.4662159947976874`, 0.00013321484173245413`}}, 0.1]}, {RGBColor[1., 0.75, 0.5], TubeBox[{{1.2127996638427367`, 11.642049687312937`, 1.4557099657339077`}, {0.03463532179801909, 11.536269141880382`, -0.06288512934630486}}, 0.1]}, {RGBColor[1., 0.75, 0.5], TubeBox[{{-1.1885065866440119`, 13.022373661088087`, -0.02925378145732971}, {0.03463532179801909, 11.536269141880382`, -0.06288512934630486}}, 0.1]}, {RGBColor[1., 0.75, 0.5], TubeBox[{{1.089414647789555, 11.621232035852536`, -1.68930758680601}, { 0.03463532179801909, 11.536269141880382`, -0.06288512934630486}}, 0.1]}}, AspectRatio->Automatic, Boxed->False, ImageSize->{769., 769.}, SphericalRegion->True, ViewPoint->{0.1283389238727894, -0.8993526093920746, 3.259554264711487}, ViewVertical->{-1.4509584114799012`, 0.1466748644285144, 2.3333530436229486`}]], "Output", CellChangeTimes->{ 3.576388759489622*^9, 3.5763922799702063`*^9, 3.576392394958008*^9, 3.5763926941197333`*^9, 3.5763932060658326`*^9, 3.5763933770577326`*^9, { 3.5764057820692825`*^9, 3.5764057921469*^9}, 3.5764196786365304`*^9, 3.576469334874049*^9, 3.5764698006596675`*^9, {3.576470313089368*^9, 3.5764703693586664`*^9}, {3.576470408062334*^9, 3.576470457904422*^9}, 3.576470488730076*^9, 3.576470784241395*^9, 3.580209019768131*^9}] }, Open ]], Cell[CellGroupData[{ Cell[BoxData[{ RowBox[{"Show", "[", RowBox[{"Plot1o", ",", "Plot2", ",", "Plot9", ",", RowBox[{"(*", RowBox[{"Plot9a", ",", "Plot9b", ","}], "*)"}], RowBox[{"{", RowBox[{ RowBox[{"Axes", "\[Rule]", "Automatic"}], ",", RowBox[{"AxesLabel", "\[Rule]", RowBox[{"{", RowBox[{"xl", ",", "yl", ",", "zl"}], "}"}]}], ",", RowBox[{"AspectRatio", "\[Rule]", "Automatic"}], ",", RowBox[{"Boxed", "\[Rule]", "True"}], ",", " ", RowBox[{"SphericalRegion", "\[Rule]", "True"}]}], "}"}]}], "]"}], "\[IndentingNewLine]", RowBox[{"Show", "[", RowBox[{ "Plot1o", ",", "Plot2", ",", "Plot7", ",", "Plot8", ",", "Plot9", ",", RowBox[{"{", RowBox[{ RowBox[{"Axes", "\[Rule]", "Automatic"}], ",", RowBox[{"AxesLabel", "\[Rule]", RowBox[{"{", RowBox[{"xl", ",", "yl", ",", "zl"}], "}"}]}], ",", RowBox[{"AspectRatio", "\[Rule]", "Automatic"}], ",", RowBox[{"Boxed", "\[Rule]", "True"}], ",", " ", RowBox[{"SphericalRegion", "\[Rule]", "True"}]}], "}"}]}], "]"}], "\[IndentingNewLine]", RowBox[{"Show", "[", RowBox[{ "Plot1o", ",", "Plot2", ",", "Plot8a", ",", "Plot8b", ",", "Plot9", ",", RowBox[{"{", RowBox[{ RowBox[{"Axes", "\[Rule]", "Automatic"}], ",", RowBox[{"AxesLabel", "\[Rule]", RowBox[{"{", RowBox[{"xl", ",", "yl", ",", "zl"}], "}"}]}], ",", RowBox[{"AspectRatio", "\[Rule]", "Automatic"}], ",", RowBox[{"Boxed", "\[Rule]", "True"}], ",", " ", RowBox[{"SphericalRegion", "\[Rule]", "True"}]}], "}"}]}], "]"}], "\[IndentingNewLine]", RowBox[{"Show", "[", RowBox[{"Plot1o", ",", "Plot2", ",", RowBox[{"(*", RowBox[{"Plot8c", ","}], "*)"}], "Plot8d", ",", "Plot8e", ",", "Plot9", ",", "Plot8f", ",", "Plot8g", ",", "Plot8h", ",", RowBox[{"{", RowBox[{ RowBox[{"Axes", "\[Rule]", "Automatic"}], ",", RowBox[{"AxesLabel", "\[Rule]", RowBox[{"{", RowBox[{"xl", ",", "yl", ",", "zl"}], "}"}]}], ",", RowBox[{"AspectRatio", "\[Rule]", "Automatic"}], ",", RowBox[{"Boxed", "\[Rule]", "True"}], ",", " ", RowBox[{"SphericalRegion", "\[Rule]", "True"}]}], "}"}]}], "]"}]}], "Input", CellChangeTimes->{{3.5681365021632137`*^9, 3.5681365171392403`*^9}, { 3.568136560351316*^9, 3.5681365863097615`*^9}, {3.5681369135895367`*^9, 3.5681369265999594`*^9}, {3.568137821916732*^9, 3.5681378378443604`*^9}, { 3.5682072492149415`*^9, 3.5682072529901485`*^9}, 3.568209802830227*^9, { 3.5682216503836985`*^9, 3.5682217583046885`*^9}, {3.5682217912831464`*^9, 3.568221843465238*^9}, {3.5682219760654707`*^9, 3.5682221133457117`*^9}, { 3.568222159615393*^9, 3.5682221693498106`*^9}, {3.5682222565227633`*^9, 3.5682222578487663`*^9}, 3.5682224736283445`*^9, 3.5682227227607822`*^9, 3.5682227558640404`*^9, {3.568222818810151*^9, 3.5682228486062036`*^9}, { 3.5682230057764797`*^9, 3.5682230079916835`*^9}, {3.568223041952943*^9, 3.5682230548229656`*^9}, 3.5682232619601297`*^9, 3.5682233000709963`*^9, { 3.568223536645412*^9, 3.5682235381118145`*^9}, {3.568223591151908*^9, 3.568223591526308*^9}, {3.5682236491528096`*^9, 3.568223657483224*^9}, { 3.568223713222122*^9, 3.5682237532361927`*^9}, {3.568223800379475*^9, 3.568223827648323*^9}, {3.5682238887380304`*^9, 3.5682238893152313`*^9}, { 3.5682240287170763`*^9, 3.5682240612431335`*^9}, 3.5682241088076167`*^9, { 3.568224198772975*^9, 3.5682242396450467`*^9}, {3.568224282170721*^9, 3.5682243185031853`*^9}, {3.568224437890195*^9, 3.568224439590598*^9}, { 3.568224572253231*^9, 3.5682245867144566`*^9}, {3.5682247081762695`*^9, 3.568224733557514*^9}, {3.56822480520844*^9, 3.5682248433505073`*^9}, { 3.568224884206979*^9, 3.5682248959069996`*^9}, {3.568224982830352*^9, 3.5682250047639904`*^9}, {3.56822503870965*^9, 3.5682250803305235`*^9}, { 3.5682251223413973`*^9, 3.568225141451431*^9}, {3.568225234177994*^9, 3.5682252929588966`*^9}, {3.5682253775890455`*^9, 3.568225482140429*^9}, { 3.56822551694409*^9, 3.5682255297205124`*^9}, {3.568225573197789*^9, 3.5682255809666023`*^9}, 3.568225660698343*^9, 3.5682257301964645`*^9, { 3.568225765078126*^9, 3.5682257828933573`*^9}, {3.568225927026843*^9, 3.568225927416844*^9}, {3.568267062420238*^9, 3.568267081358671*^9}, { 3.568267188328059*^9, 3.5682672830358257`*^9}, {3.5682676367040462`*^9, 3.568267747979042*^9}, 3.5682678404716043`*^9, 3.568267882030078*^9, { 3.5682679252577534`*^9, 3.568267996612279*^9}, {3.5682680488879704`*^9, 3.568268061133992*^9}, {3.568268100914062*^9, 3.5682681150944867`*^9}, { 3.5682681672609787`*^9, 3.5682681709113846`*^9}, {3.568268272904364*^9, 3.5682683182536435`*^9}, {3.5682685202739983`*^9, 3.568268599194537*^9}, { 3.5682686348873997`*^9, 3.568268637773405*^9}, {3.5682686944951043`*^9, 3.568268872273017*^9}, {3.5682689420207396`*^9, 3.568269016947671*^9}, { 3.5682695040741262`*^9, 3.568269601153097*^9}, {3.5682696652380095`*^9, 3.5682696728352227`*^9}, {3.5682697489633565`*^9, 3.5682698308635006`*^9}, {3.568271156491429*^9, 3.568271160063835*^9}, { 3.568271244927984*^9, 3.568271369010602*^9}, {3.5682716250070515`*^9, 3.5682717312276382`*^9}, {3.5682717843301315`*^9, 3.5682718576814604`*^9}, {3.568271940673606*^9, 3.5682720536490045`*^9}, { 3.5682722259669075`*^9, 3.5682723223126764`*^9}, {3.568272370813162*^9, 3.568272411466833*^9}, {3.5682725893539457`*^9, 3.568272622238803*^9}, { 3.5682726936713285`*^9, 3.5682726960113325`*^9}, {3.568272741079812*^9, 3.56827275143823*^9}, {3.5682729218373294`*^9, 3.568272991070251*^9}, { 3.5682734285574193`*^9, 3.5682734302890224`*^9}, {3.5682734898811274`*^9, 3.5682735111595645`*^9}, {3.5682736115925407`*^9, 3.5682736313577757`*^9}, {3.5682738601945777`*^9, 3.568273987272401*^9}, { 3.5682763944346285`*^9, 3.5682764313910933`*^9}, 3.5682765128232365`*^9, { 3.5682766527398825`*^9, 3.568276660976697*^9}, {3.5682774496048822`*^9, 3.568277461663703*^9}, {3.5683784032731285`*^9, 3.568378422991563*^9}, { 3.568378459308427*^9, 3.5683784812420654`*^9}, {3.568378513440522*^9, 3.568378867046343*^9}, {3.568378915468828*^9, 3.56837896203491*^9}, { 3.5683790764299107`*^9, 3.568379270041851*^9}, {3.568380233530743*^9, 3.568380234388745*^9}, 3.5683804214954734`*^9, 3.568380471867962*^9, 3.5683805399464817`*^9, {3.5683812396077104`*^9, 3.568381293537005*^9}, { 3.568381339541486*^9, 3.568381420224828*^9}, {3.5684645223056345`*^9, 3.5684645572340956`*^9}, {3.5684651558539467`*^9, 3.5684651618911576`*^9}, {3.5688209923798466`*^9, 3.568820997683856*^9}, { 3.568821158754139*^9, 3.568821160750942*^9}, 3.56882222404881*^9, { 3.568822649274357*^9, 3.5688226508031597`*^9}, 3.568822723109287*^9, { 3.5693397221142225`*^9, 3.5693397223326235`*^9}, {3.5693899272912874`*^9, 3.5693899274472876`*^9}, {3.5693910617720795`*^9, 3.5693910848757205`*^9}, 3.5693911374166126`*^9, {3.569391214402748*^9, 3.5693912147147484`*^9}, 3.569391451944365*^9, {3.569391487793228*^9, 3.569391507620863*^9}, { 3.5693923162258854`*^9, 3.5693923173958874`*^9}, {3.569406068526634*^9, 3.569406086092265*^9}, 3.569690172138941*^9, 3.569780036185542*^9, { 3.570453906913044*^9, 3.5704539079894457`*^9}, {3.570454575670618*^9, 3.5704545899602437`*^9}, {3.570454765008151*^9, 3.570454772277764*^9}, 3.5708553779481487`*^9, {3.5709431726830034`*^9, 3.570943174555007*^9}, { 3.5709495710522423`*^9, 3.5709495907082767`*^9}, {3.570949647617176*^9, 3.570949673138821*^9}, {3.570950759321929*^9, 3.5709507772775607`*^9}, { 3.5709508127364225`*^9, 3.5709508405200715`*^9}, {3.570991123104905*^9, 3.570991124259307*^9}, {3.5709912161278687`*^9, 3.570991227937089*^9}, { 3.5709912804155817`*^9, 3.570991308776431*^9}, {3.5709914026885962`*^9, 3.5709914215490294`*^9}, {3.570991574429298*^9, 3.5709916038821497`*^9}, 3.570991652445035*^9, 3.570991830004547*^9, 3.570991865276209*^9, { 3.5709919181759014`*^9, 3.5709919260539155`*^9}, {3.570992027251293*^9, 3.570992050058533*^9}, 3.5709920901350036`*^9, 3.570992186979974*^9, { 3.57122255431676*^9, 3.5712225562355638`*^9}, 3.571223175338251*^9, { 3.5713153738729277`*^9, 3.571315375682531*^9}, 3.5713224026962075`*^9, { 3.5713224627875133`*^9, 3.5713224654863176`*^9}, {3.5713224965147724`*^9, 3.571322572268505*^9}, {3.5713226259637995`*^9, 3.5713226549330506`*^9}, { 3.5713308245340652`*^9, 3.571330884469371*^9}, {3.5713309160126257`*^9, 3.5713309422674723`*^9}, 3.571331071326499*^9, {3.5713311246629925`*^9, 3.5713311332274075`*^9}, {3.571331300334901*^9, 3.5713313470881834`*^9}, 3.5713314298931284`*^9, 3.571331594130217*^9, {3.571331632849485*^9, 3.5713316334578857`*^9}, {3.5713316704299507`*^9, 3.5713316709447517`*^9}, {3.571331783327349*^9, 3.571331790019761*^9}, { 3.5713319475956383`*^9, 3.571331948360039*^9}, {3.5713326567416835`*^9, 3.571332681717327*^9}, {3.571332736801024*^9, 3.571332753305853*^9}, { 3.571332796221528*^9, 3.5713328475768185`*^9}, {3.571332914344936*^9, 3.571332924672154*^9}, {3.5713330072586994`*^9, 3.5713330320471425`*^9}, { 3.5713330798612266`*^9, 3.5713330883320417`*^9}, {3.5713331731961904`*^9, 3.571333178266199*^9}, {3.571333407851803*^9, 3.571333426837036*^9}, { 3.571333542292839*^9, 3.571333557705666*^9}, {3.5713336117441607`*^9, 3.5713337055939255`*^9}, {3.5713337750608473`*^9, 3.571333798070888*^9}, { 3.5713366694988756`*^9, 3.5713366834765005`*^9}, {3.5713369716090064`*^9, 3.57133697359021*^9}, {3.57138272164856*^9, 3.571382756233821*^9}, { 3.57138283537276*^9, 3.571382866900415*^9}, {3.5713829070080853`*^9, 3.5713829086616883`*^9}, {3.571382939175342*^9, 3.5713830233374896`*^9}, { 3.5713831045200324`*^9, 3.571383106126835*^9}, {3.571383198260597*^9, 3.5713832448422785`*^9}, 3.5716785972796593`*^9, 3.5718167268987517`*^9, { 3.571838452469782*^9, 3.5718386879053955`*^9}, 3.571838766139532*^9, { 3.571838857446493*^9, 3.5718388645757055`*^9}, 3.5723437133735733`*^9, 3.5723437554312468`*^9, {3.5723449027196617`*^9, 3.572344929582909*^9}, 3.5723450406551046`*^9, {3.57234950163894*^9, 3.5723495196413713`*^9}, { 3.572584520172369*^9, 3.5725845258195786`*^9}, {3.5726224003989472`*^9, 3.57262241340937*^9}, 3.572796748424938*^9, 3.5727968708695536`*^9, { 3.572796971801731*^9, 3.572796995841373*^9}, {3.57279741546651*^9, 3.5727974308793373`*^9}, {3.572842795856916*^9, 3.5728428061217337`*^9}, { 3.5728522627179437`*^9, 3.572852288426789*^9}, {3.5728523495164957`*^9, 3.572852453865079*^9}, {3.5728524960787535`*^9, 3.572852515110787*^9}, { 3.572852550008048*^9, 3.572852634669397*^9}, {3.5728602362372026`*^9, 3.5728602649256525`*^9}, 3.572860311756935*^9, 3.5731241886618786`*^9, 3.5731408095114717`*^9, 3.5731408826443996`*^9, {3.573211072949067*^9, 3.5732110779254756`*^9}, {3.5732129727516036`*^9, 3.573212981300419*^9}, { 3.5732130120948725`*^9, 3.57321301629128*^9}, {3.573213384015126*^9, 3.573213388164733*^9}, {3.573220427063021*^9, 3.57322044338065*^9}, { 3.5733208085662665`*^9, 3.5733208285343018`*^9}, {3.57332089027921*^9, 3.5733208917144127`*^9}, {3.5733209483737125`*^9, 3.5733209652997417`*^9}, {3.5733210904587617`*^9, 3.5733211330312366`*^9}, {3.5746581574587035`*^9, 3.5746581598923078`*^9}, {3.5746632559372582`*^9, 3.5746632963569293`*^9}, 3.574669479281269*^9, {3.5746708530664816`*^9, 3.5746708831121345`*^9}, { 3.5746734822639*^9, 3.5746735338531904`*^9}, 3.5747441301394944`*^9, { 3.574950644335537*^9, 3.5749506488751445`*^9}, {3.575001627819734*^9, 3.5750016487549706`*^9}, {3.57534426719551*^9, 3.575344278926731*^9}, { 3.5753450565880966`*^9, 3.575345065324112*^9}, 3.5753451320610294`*^9, { 3.575345171575898*^9, 3.575345181091915*^9}, {3.5753713803366737`*^9, 3.5753713843458815`*^9}, {3.5753717979962077`*^9, 3.575371802036615*^9}, { 3.5753718416450844`*^9, 3.5753718456074915`*^9}, {3.5762957927843523`*^9, 3.5762958073859777`*^9}, 3.5763800020834436`*^9}], Cell[BoxData[ Graphics3DBox[{ {RGBColor[0.4, 0.2666666666666667, 0.13333333333333336`], Opacity[0.8], SphereBox[{-1.3767138399951948`, 9.136492442760169, -0.011319882653069602`}, 0.255]}, {RGBColor[0.4, 0.2666666666666667, 0.13333333333333336`], Opacity[0.8], SphereBox[{0.473882316936199, 6.971834316791755, 0.0004138948773504403}, 0.255]}, {RGBColor[0.4, 0.2666666666666667, 0.13333333333333336`], Opacity[0.8], SphereBox[{1.4237888928831852`, 2.4662159947976874`, 0.00013321484173245413`}, 0.255]}, {RGBColor[0.4, 0.2666666666666667, 0.13333333333333336`], Opacity[0.8], SphereBox[{0, 0, 0}, 0.255]}, {RGBColor[ NCache[ Rational[1, 3], 0.3333333333333333], NCache[ Rational[1, 3], 0.3333333333333333], 1], Opacity[0.8], SphereBox[{-0.37512028472777914`, 4.570605187795081, 0.0002255030110518419}, 0.24]}, {RGBColor[ NCache[ Rational[1, 3], 0.3333333333333333], NCache[ Rational[1, 3], 0.3333333333333333], 1], Opacity[0.8], SphereBox[{0.03463532179801909, 11.536269141880382`, -0.06288512934630486}, 0.24]}, {RGBColor[1, NCache[ Rational[1, 3], 0.3333333333333333], NCache[ Rational[1, 3], 0.3333333333333333]], Opacity[0.8], SphereBox[{2.727290054608442, 7.390531260134222, 0.0002804910126465998}, 0.178]}, {RGBColor[1, NCache[ Rational[1, 3], 0.3333333333333333], NCache[ Rational[1, 3], 0.3333333333333333]], Opacity[0.8], SphereBox[{-2.2832742569128253`, 0, 0}, 0.178]}, {RGBColor[1, NCache[ Rational[1, 3], 0.3333333333333333], NCache[ Rational[1, 3], 0.3333333333333333]], Opacity[0.8], SphereBox[{1.268100398919057, -2.196638994879232, 0}, 0.178]}, {RGBColor[1, 1, 1], Opacity[0.8], SphereBox[{-2.5623900210132162`, 9.035084825337556, 1.6699560186170959`}, 0.12]}, {RGBColor[1, 1, 1], Opacity[0.8], SphereBox[{-2.559361148898179, 9.019447040476722, -1.6935183538918448`}, 0.12]}, {RGBColor[1, 1, 1], Opacity[0.8], SphereBox[{-2.177290252557225, 4.235570185005809, 0.000388702763330917}, 0.12]}, {RGBColor[1, 1, 1], Opacity[0.8], SphereBox[{2.6079918797775323`, 2.5754100297558193`, 1.681870261262245}, 0.12]}, {RGBColor[1, 1, 1], Opacity[0.8], SphereBox[{2.60807719544219, 2.575506999780597, -1.681642477037567}, 0.12]}, {RGBColor[1, 1, 1], Opacity[0.8], SphereBox[{1.2127996638427367`, 11.642049687312937`, 1.4557099657339077`}, 0.12]}, {RGBColor[1, 1, 1], Opacity[0.8], SphereBox[{-1.1885065866440119`, 13.022373661088087`, -0.02925378145732971}, 0.12]}, {RGBColor[1, 1, 1], Opacity[0.8], SphereBox[{1.089414647789555, 11.621232035852536`, -1.68930758680601}, 0.12]}, Text3DBox[ FormBox["1", StandardForm], {-1.976713839995195, 9.136492442760169, -0.011319882653069602`}, {1, 0}], Text3DBox[ FormBox["2", StandardForm], {-0.126117683063801, 6.971834316791755, 0.0004138948773504403}, {1, 0}], Text3DBox[ FormBox["3", StandardForm], {0.8237888928831852, 2.4662159947976874`, 0.00013321484173245413`}, {1, 0}], Text3DBox[ FormBox["4", StandardForm], {-0.6, 0, 0}, {1, 0}], Text3DBox[ FormBox["5", StandardForm], {-0.9751202847277791, 4.570605187795081, 0.0002255030110518419}, {1, 0}], Text3DBox[ FormBox["6", StandardForm], {-0.5653646782019809, 11.536269141880382`, -0.06288512934630486}, {1, 0}], Text3DBox[ FormBox["7", StandardForm], {2.127290054608442, 7.390531260134222, 0.0002804910126465998}, {1, 0}], Text3DBox[ FormBox["8", StandardForm], {-2.8832742569128254`, 0, 0}, {1, 0}], Text3DBox[ FormBox["9", StandardForm], {0.6681003989190569, -2.196638994879232, 0}, { 1, 0}], Text3DBox[ FormBox["10", StandardForm], {-3.1623900210132163`, 9.035084825337556, 1.6699560186170959`}, {1, 0}], Text3DBox[ FormBox["11", StandardForm], {-3.159361148898179, 9.019447040476722, -1.6935183538918448`}, {1, 0}], Text3DBox[ FormBox["12", StandardForm], {-2.777290252557225, 4.235570185005809, 0.000388702763330917}, {1, 0}], Text3DBox[ FormBox["13", StandardForm], {2.0079918797775322`, 2.5754100297558193`, 1.681870261262245}, {1, 0}], Text3DBox[ FormBox["14", StandardForm], {2.00807719544219, 2.575506999780597, -1.681642477037567}, {1, 0}], Text3DBox[ FormBox["15", StandardForm], {0.6127996638427368, 11.642049687312937`, 1.4557099657339077`}, {1, 0}], Text3DBox[ FormBox["16", StandardForm], {-1.788506586644012, 13.022373661088087`, -0.02925378145732971}, {1, 0}], Text3DBox[ FormBox["17", StandardForm], {0.489414647789555, 11.621232035852536`, -1.68930758680601}, {1, 0}], {RGBColor[1., 0.75, 0.5], TubeBox[{{0.473882316936199, 6.971834316791755, 0.0004138948773504403}, {-1.3767138399951948`, 9.136492442760169, -0.011319882653069602`}}, 0.1]}, {RGBColor[1., 0.75, 0.5], TubeBox[{{0, 0, 0}, {1.4237888928831852`, 2.4662159947976874`, 0.00013321484173245413`}}, 0.1]}, {RGBColor[1., 0.75, 0.5], TubeBox[{{-0.37512028472777914`, 4.570605187795081, 0.0002255030110518419}, {0.473882316936199, 6.971834316791755, 0.0004138948773504403}}, 0.1]}, {RGBColor[1., 0.75, 0.5], TubeBox[{{-0.37512028472777914`, 4.570605187795081, 0.0002255030110518419}, {1.4237888928831852`, 2.4662159947976874`, 0.00013321484173245413`}}, 0.1]}, {RGBColor[1., 0.75, 0.5], TubeBox[{{0.03463532179801909, 11.536269141880382`, -0.06288512934630486}, {-1.3767138399951948`, 9.136492442760169, -0.011319882653069602`}}, 0.1]}, {RGBColor[1., 0.75, 0.5], TubeBox[{{2.727290054608442, 7.390531260134222, 0.0002804910126465998}, { 0.473882316936199, 6.971834316791755, 0.0004138948773504403}}, 0.1]}, {RGBColor[1., 0.75, 0.5], TubeBox[{{-2.2832742569128253`, 0, 0}, {0, 0, 0}}, 0.1]}, {RGBColor[1., 0.75, 0.5], TubeBox[{{1.268100398919057, -2.196638994879232, 0}, {0, 0, 0}}, 0.1]}, {RGBColor[1., 0.75, 0.5], TubeBox[{{-2.5623900210132162`, 9.035084825337556, 1.6699560186170959`}, {-1.3767138399951948`, 9.136492442760169, -0.011319882653069602`}}, 0.1]}, {RGBColor[1., 0.75, 0.5], TubeBox[{{-2.559361148898179, 9.019447040476722, -1.6935183538918448`}, {-1.3767138399951948`, 9.136492442760169, -0.011319882653069602`}}, 0.1]}, {RGBColor[1., 0.75, 0.5], TubeBox[{{-2.177290252557225, 4.235570185005809, 0.000388702763330917}, {-0.37512028472777914`, 4.570605187795081, 0.0002255030110518419}}, 0.1]}, {RGBColor[1., 0.75, 0.5], TubeBox[{{2.6079918797775323`, 2.5754100297558193`, 1.681870261262245}, { 1.4237888928831852`, 2.4662159947976874`, 0.00013321484173245413`}}, 0.1]}, {RGBColor[1., 0.75, 0.5], TubeBox[{{2.60807719544219, 2.575506999780597, -1.681642477037567}, { 1.4237888928831852`, 2.4662159947976874`, 0.00013321484173245413`}}, 0.1]}, {RGBColor[1., 0.75, 0.5], TubeBox[{{1.2127996638427367`, 11.642049687312937`, 1.4557099657339077`}, {0.03463532179801909, 11.536269141880382`, -0.06288512934630486}}, 0.1]}, {RGBColor[1., 0.75, 0.5], TubeBox[{{-1.1885065866440119`, 13.022373661088087`, -0.02925378145732971}, {0.03463532179801909, 11.536269141880382`, -0.06288512934630486}}, 0.1]}, {RGBColor[1., 0.75, 0.5], TubeBox[{{1.089414647789555, 11.621232035852536`, -1.68930758680601}, { 0.03463532179801909, 11.536269141880382`, -0.06288512934630486}}, 0.1]}}, AspectRatio->Automatic, Axes->Automatic, AxesLabel->{ FormBox["xl", TraditionalForm], FormBox["yl", TraditionalForm], FormBox["zl", TraditionalForm]}, Boxed->True, SphericalRegion->True]], "Output", CellChangeTimes->{ 3.576388759505222*^9, 3.5763922800014057`*^9, 3.576392394989208*^9, 3.5763926941353335`*^9, 3.5763932060970325`*^9, 3.576393377073333*^9, { 3.576405782116083*^9, 3.576405792193701*^9}, 3.5764196786833305`*^9, 3.5764693349052496`*^9, 3.5764698006908674`*^9, {3.5764703131205673`*^9, 3.5764703693898664`*^9}, {3.5764704080935345`*^9, 3.576470457935622*^9}, 3.5764704887612762`*^9, 3.5764707842725954`*^9, 3.5802090197993307`*^9},ImageCache->GraphicsData["CompressedBitmap", "\<\ eJztfXdYVUe3/ntji4nJly+JaXY9ahS7gNLs2AuggIgFESlKEVBEBcSKhV4O YsGuSBFFxJIYY0fFEk3sib3XmMSSqPxm9p7ZzDnOQb577z+/57k8IXIOh5l3 rVl1Zs3aA0ZP9B0bMHqi35jR9XuFjJ7g6zcmtH7PoBDyVqX/Av7Ll37XB/25 FOD/KyX/lfrR/9F3/u/n8n6eTv+pTNl2U30jWvmnElROKgzlv+pF/3lPeaeS 9jv1FflqZ/SH9PuG+rHekjHfk3xcNsR19S/6KP9UMfgVH8rc9J9VdObWyv8r G7xHvr5kH7179y4ePnyovDr6FjOqGDCD/9xO+0BNNsqLFy+wZ88euLi4gLPx xIkT2oSH1b8dIMHXQ/n/B9oQ8+fPR69evVBUVIQ///wTP//8M+rUqYMxY8bQ 10fUkfprEHow9tG/X7t2rQIhPDwcV69eZWtZBWfOnMHSpUsRGBjIx+GQEpR/ qhpQIExfRRihsLBQebV582ZlFDZCHBuBcpKDT0pK4hNVY78WR6DfFCuZpFgd ZIHyT/W3YFAmUrTivOqI1d4a8ffff1f+jv7NIXXYmIpQV0kZmc/C3xNH53JF Z5gxY4by2YPqDHPKYf8nkqEqsf9TNHwpDqhDDdPWtAmjUAabU/hvyeCV2XsU CB2cvtqvDu4mV4NGDL64eFzyRKr5rKZJqqyhpV9kjPInrm9iZdiCVxHm5mz6 l8mVqapgptJNWU+HYHj3lYuhjgQD/aLsIxNWF5aKjktffWwSQzUFK5ciLo9c WvaWC6SW8sP7mhBxSqgQCRz4gE0uTvKRBFA1iYztKRfAV+XrSSUJJ76WTPy+ RP5+NBbuL4S56FIZiV01CZFfSeaqLsx18KCqjbvVuSZIqKGwKSQi6LpyRhNl nY0WYMI0cTURTRMfeu/evTh69Cgz7W8bjx/UoccbaR9ddzosXXeZbWooGf5D yWLvUof3LX9VW0hGqyFZwe/V0caWY5T4x1uxP8/Pz8eFCxcMJJTSzhfqO3XI MeUYz0oCEjodfdWinOHFlWPDe1TM+ot6K5vhY+FzfAF3qjOMlJhP+kU/0kEy FDdhFAFfrB3qUBb0H0UxGwrWQOYLmeeUjc+ZIQrUe3QmNokl+70YzdSrmO5z /tIltDQ5dVUsWrTIwGuzZd+uztdao7KyERT6XbsceahmhIPOYSHB8W/J57ap k3eUTGnK8rEIRlReriPmklk/lchIkelZawqzSlwv97xspZVXnSWzfibR/a2C OL1t6GuaINfI7XJS6XcnycSfS8xEdc3CbxCETXnjM8msgqPtI5mBR9ai1agm pylL/aGPoDZc9rnwcPssTJaamooHDx4YTCbKTPmT9ayY0tB5KZH0VW/JxF9I xKZquRN3FyaWeE9HySQ81RGlpEq5k3SVUEdZSSGeO3duMBswOjoaz549E/TI UCIqlzuJKlcflOtXheDHSTIpj0G4XdImFcXQ1shGy5wsnZ/P6VjORKKA5KvD W5mQbaZR7pLRvjQhPEwCNoq2+m03QLHfvHmTEz1cMkFNppDGpoWSTH8jSkKe Opt5OaZX5gJkdNUUuMldgCwlyVWnbFu+DlWV8HyYZNY6EiHIUWdozWYwkZqK QR+3eG7sPW9vb01m60iQsBlamBBiWd5KXntJRq8rsQHZ6ujNyucQl15xsjGS GepJDABTjqaSZadfdNkDJUPVlywn02ddxeRVNmoDyRKuF0etjMzMTERGRirM zMnJEXNTqtD0VUA5I4tLZzSyshv05ZdITEyknAmRjNJQGIUv0Tp1FJ5A01/R r9u3byvSSZOLwex354tLsMjNG8kNzbGivjkuJGRoFuXp06eIiVH3KXj2IK7T WnEaVZKpWlIm//DDD3Bzc6NTqTarGi6SmcJ1FljT2AZ7m9nhl1Z2ON+qI37z GKtZaNmMdDhuFw1mrKZwjILhBuHUqVMagQ5syYMbWSKxcQ+sadgFJc0641F7 Ozy27Y7r1rZ4sGjRl5KZOd9ET82Xf42IoJLm5sQ9CToURzGQWbuLh45iYqPu iNH1RVZzB1ywG4y/+zrizcBeuNmjN677+0IGpSGjlC6hqEqizKwWIVVW3uJ+ nfBORLV48WJllbpofuhDDV8JJur6YW5zF6zvOArn+o/By6GjUTrSFTf7DsLN kAApvqYS6VtliIdqBzVsTOcqSfB0Ze+Jzrg6W7+QRgMwreUwLOrsg+Ih/ngw ehxeeY3EjYGD8WjNKhmobyWyutJw3SgoFuFpjpYjosZbiWgVQB+wFdiWtA5+ Ld0xq+s4FLgE4cyYANz3Ho1jAwZJxbeZYI14nLzCEASVK0q+qj6GQ1AQdoIV 4GzR1qwqYtynw8vaEwmDA1DgMQ77fdxw96dTHAwNsWioRV81lxix5YbLRL8u XbqkSDNZLo6HGluOx7Y8PFWQlZwP16FzkZamx/HCJDwpDNZMiQyMKMMSMIKr 4vkVdYQcjM27wGyEi+scMikHEyIFYyaA4bKSqQ7W0OhX9BXXJh7iqpOZQKdo WA0NUB6cnWcjOUWPYxTQ1lApIJ7li8K7TARUzcDQit6MApCxqrcGIQfOQ2Yj KVmPki1JeLx1onSrrKVEdJeqEGppelGZDUq5wJeLh8c8M6VegIPopYHIxhCn WUhM0uPolmSTIPh2jSiyS1QQtSXmgpsVbv0ojI8kMHpqMLIw2GEmEhL1OFJA YBRNKheGKKwMhpJomtwv4DvPojkmCyfDZK9hWg+nQTMRl6DHYYLpUVGYFFML ZgDo+nOVpexn4rL4XVx6yyZ/LAHVQwO1Bo4DZiA2Xo9iBdTkckCpnorvdCub u4IcZ7x7/UTD/IkEVncN1go49ovGwjg9Dm1OwcOicCmsthJZXvRuGKJp/rdJ GJXh2Gc65sem4SCFsC2c296XL19ix44dyM7ORnuJIKcL2qRYCTHn5TEFwSCb uhufuncU5i1MwwFl6ik1Gf/p1FT5aQRCqaA7qDwa4SedojCni7ZFBcBzK7IG fO+IspN7tq5sCRx7RmIuAbB/EwUwFU/2LGW8qqqgoFZtxYoViIuLU6wbCbSN gxFKjwiKC4peBdXA6Ff0VU0BEderLhxRjwjMmZ9KEKXiwfZpeLo/k21rqojo 33C+UH6Q6UXnzznMEYmimyYiqvKWCaac/FyCrDP7vEP3aZg9LxX78imyCPx5 cCXzDFWlK0Zg8AxQtOQcmSjNqYbIZPZY5Bkdnb7qxJF1nYaZManYy5D9dXg1 i71MIjO2YfQVRyZKeYrhKoqWUAzbqCDQkTVEXaZgBkG0Z2Mq7m+PxLMja1h4 ZBLRvyUEcs0Xhd0AUWWFP3z/nqykMajjx4+zGIyA6jQF0XNT8SMFtSMKz46u ZcbCpLB/LgxH8dLheGi6Y8NenFi/F7dOXjHYPebilmy4qEb2WqkK+FIyvBqh 1YCDbTiiZqdid14q7hG0z0vUxNKEEhgPRd9uwqaOm5yJeIswnBwcgdv+YXj2 62XpIV6S4WKLdvwbCVI1fKsOB5vJiJyVgh/y0nBjaxQOrI83Xlx2BFn29/Q9 HeP9pdOXMbJdBvI8duF+6gGUbi7A81+O8doA450vuuIGSKsZmHr+cZ7KyHhs zWZ27DQJIWHRCAnyx8RAX+xavZAiqyf8CVdbRTwVR8P9y9uZTlVEu/sgo1Uf nPWfjj8LCCkXf8PzO1eqsF9TXOJGGdO0RJGaqsrAkqParyWE8E08UafGevkg aGIUitYn486OaLw4mc1XVLRD/5aQIStweZ/x+DTJ/ac17YySQW54OWM8SteG 4NbN6/jrj9+lx5tq5YcqOG/5R8Gy1ZaQpVqiD01pJZw6hSA8Ohnf5aQREmfg 5U85WqgvWrRPJPQoAPh6eeo6oqiTE56EeKN0STBebZ6Am09efCjQw5UjXqXn a4EKPqQgFFQKuZurJ6GMbxma0OL3uKnqEIzJ05OxkxB4WyEwV0s5RQPJPaMR Gv4vJ3MGEculrfviqudovEkIRGleCEofXOBOQLQBcRUgU/VQou+kAl3XiFxK kln5Np+ruIPlBEyKSsb2bEruTLw8VUauyL1/SVBx8XqfTUXlNKppF5xwHIa/ ZxE5XReKfw4k86NR0e3GVphWcYeK0mq8tJTWpuXT+j6n1SIQEyOTsY3Qekuh NU/bJxOH+/idtFbBWJ0VdnQejKcTfVC6NBh/bw7SZF7UxYoQargR1lCCqFH5 BPK03cE8ACERySjaQAmchZenN6KxxPzX0MiR5V7cZM5098Xytv1w3YuIblIQ SjeG4M2DC7Jj2IUVoFLNm2jRG/MVMkLrMZNnyvxQ9B9xatuPR/DUJGzN0uPm ztl4+XM+87uG/oMfBGclZ2Bm0274abA7/plNxHN9KF7sT/pMoIerolq0psZN 1SgJHxlxrCwJZOmjsc5Qa1S7fIvzCaejnR+CpiShkNFxZPEkbWdQdBu8vIaq ma/OGt91G4I/woj4ZYbgxaZA8YyG0zFfpaMam0mwT9q/n6uUUVyVeN6i/FKk iG81fiVQZDKQrI6jhw6iXd1acGjrg4DwRGxZr8eNHXOwZmwnTHcdgtMkxOUr JToNfoY9i0je6nb9cdPbE2+SieTlh+D1/Qv8TFU0JPNUQt6XSx4PIqmc8iil iRFdlLWfl0+XKiIfoITSVe8b2NSrA4c2Y+E/OREF6/S4TmjLHt8Zo5rXhpvu G754orvgB+VUCOd+2x0/Ow/Hq7n+KM0KxbP9iTxUEpWqniZzPoI44t2FsZ8K zOBuIicnR0b4J+UTrnL8Q4x1GQzLenXRrX4D9GpgjfGTErGZEF5MLF+Sszl8 2tWHV+va2JgaZ8Bf7j0+FUR3vM4Gu3s448/JhKzlIXiWHyAWjvGzKhqnME7U l9DoJbBEpbSsvLmM34YhD5FuvjTixmyNCticrxgjzOvUgWXtBuhapyF61msO l/bm8O9qgag+7TC9S1OEWTSAr0V9eLSupemwaN94hj+bSPg68wG47euJ0tQJ TMLPf8GgUDEwcVrOTORb3klhj1oXpVWOiR/hZpuqAWUIHaq5hBti9ioxWrLY VXUYHyurm0Pku8WndWD+uQ72dZphQOPWcOnYAQE9OyJyoAXm9W2B2O5NML9T fYRb1sKTwyXGfKIIeXRF1WVBsx444zoCr2KIumwIxe974nnkKtq6upq6yNKE USpnPtA+9JkQYwgHPspQ/PRBtL5VBL5INOVzyZyVmCRmEyLmu/shQNcV080c YfnFt8SEtEZfs/ZwtegANztr+Pe1QZRjR8xzsECsQ1vEDmiBOT0b4eVYe1yx 74iHyzJwnfBXdOccGi/QovwPbGyLPT1d8NcUX5SuILHmwVQeHYpm831NZD6t CNvqCcyi/OZ7plRwmjPjKDKLvmOCUTXLNFYNFzYQ7sQQdRiv64SIZoOwwGIU UnsFYtmwqXA27wlbM0v0sbSGc2dbjOppB59+dpjoaIfpzjaY60o45twee6YM QWk6UaN5nng90QFP3TrjbogvrugztAhPxMc3j+aQVdlgORB3x5G8IY38/SaS iNw/Lx7cc2ss0ylZoGjCJhswUt3X5gzUCjarahuFRjxTrU99A8M/hyQWPjo7 TP22H+a1H4GUHv5Y6hqOVb6zsH7yQmTPSUb85CjYtLVCN1sb9O/cEUPs2mKY XUuMtDeH78COCHG2RphzBxzST8Oz3Fi8WT+LRBPhKE0m0dEMEiWN74O7A6zx dOViPCouMc7zKCc/EBQ1rrk9zg0bgdfzA1CaHYpX54vqSzj5gYQ9ZfHVe9pP RhbdQ+RgNYNgkusuL/bhVfYyi06B0/dU4WukKE1+8mLwr7lthyGpqx+WDAnD qrEzsG7SAmyYlYTsBD2yFqVjZWYaCrblwMttJMybNUOXdi3Qt0NLONm0hEun FhjaxQyu3Vtg544CLEgmycaadJzJ0eNBXhJeZpOAbM10lC6eiNLYsXhDxPb5 6G4427UD7mRkaNs/YuAgJlchje2wv7crnk3zQ+lKRbmNj9ko+dUlDJbZp1Fv c5QqiaxkS8eU3IRXUH4riEVNZi8o6DwiGZ4kW5rYpCdmtxrKbtG8jxWe07Eu dB42RCciOy4NG9LTsWpZGgq35+HwiQOVGKqjhw+jrVkz2LQ3Q4+OZuhta4aw gJE4deIwU7SPcfbyNSxbn4NlS9KwPysdl3NT8UduPF5lzSVGcBpRbZJ4zxmF 18ED8HiIHa4F+eDpkRLjtJlGKpzdMcQy5HYYhPv+JNLQq5bhn/vneVAsOp6q msR+of00WmXtV5qZ5WkDZZoQj/CNuHKzdEONUz3wvxTe5hLejtJ1RHDj7pjZ whnxNmOxaGAIVnhEYe2EGIXT2QtTsUGfjjXL9EhZsgBHTh5i8djH2LrvEKbH xCFvRTpOZOtxJy8Zz3MW4s3amSSrnYzSBCJoUUPx0qcnrveywuPMDNwtLjHe OKJSwPeYI929kWTWExfcR+L1AmIIckLxz7ki7rdEJ1RFIpPqFQTtMOptd2oY zDcsn3/VJfz7mPFP9crjEKh4ZSfEdvSEvt8EZI6IwJqAuciKiEf2fMK71HSs XZqOjMwElJwsxuWbv7FU7GP8fOkK9h4+gsS0FHy/Nh3nc9PwOC8R/2wgecmq KJQuCkbpgjF4E+aEP4Z3wf2JfriuzzDekqXUVBb0fFITOxzsOxTPIwn7Vyl6 zqNq0ZCWCd47uVbmo6idJFFt3fIZJzto/YAxTnTYkc2Jw7b0QFpv6rCnYfX4 2ciaGofsmBRsSNFj3ZJ0LF2ehGM/HcbVW1dYSvwx8r/fj5U5eVhNhLKYaOy1 vFT8lRuH1+tnk6RgCkpTSKw3i8R8AX1xf5ANzvj74HFxiXFtFYXFzxFG6Dog 38oBDwLHEr5PwJvNwXh571xTI8bRiH56xdjFoxzCn1rleBSeI8gOXKsynlH3 SD22r+Kx+6se25567ClYTT12OPHYc5ORnaTH+sXpyFyeguMnD+P6ratMxj/C jgPFmB1PMs7V6ThNPMo94lFe5CwgHmUGSpdMQmmcD95Mc8GLMd1xsXsH3FuS wfKWt4OzKIIlrUUvXBpBrGJsoKKlL89tFYsGuRvgZi7KNNPeY0zjuQU7vf5G kDGJ0xBP/Di29wTjRr3yWJIshjftQ7yyO5K7jcMS58lY5T0D68MWIHs28cqJ hF8Z6VixPA2birKxr2QPy7s+xi+/XUXGyizoF6Xix3Xp+JV4hd9zE/BqQwzx nhGqWY8ZjdehA/HEtRNuTfDFxbSML5jb5ctYsucAwpt0wuH+Q/EiahxKV4fg zcEU1aCZvjwkeojId7HO8HjvHbssnzOHfpbw6PvEDG0oysfJAROYw7UmVoQ4 3NZDkdjZFxlOk7ByTDRxuPOxYYbqcGk0s4pEM1u25+LQif0tGdsKdh/A2ryN yFquR8kGPW7mpajB4ToSHC4jliaJ8CB6GP72641bfa3xZMVi3C8u+ZxpCEUx ZtAQFNg44lEQUcWMYLwmqvj87jkteRHTW7GMmDuGCMF7Cptuav5Br6Hwsl/K 5M/K55YainyG88VHkT7MG4sbWaBIZ4kfGrZFmps3PLj7bEncpy1xn4NCsWI0 cZ/BJDSZnoDsWNV9Uku1lYQmR04eZIckJOE9fxm7Dh3GfCHOe0i08m8a560m ViYjFKULvfAmfDD+GtkVD8P8cGtRBt8NiRzuA39PL2zzHIPXcUQJc0Px/Gxh S4FL3NQzjtQV+KDYfaFUxHgrh5qot3KIT5A2jGg+sUL5DW1Q3NQK55uZI5q6 P6sxSO8fjOUjI7E2MAZZkcT9LSC0p6mhQ/qyeBw9eaijEHItZSHXvvVlIdfr rDlqyJVK6Jk9Eq+C+uOhky1+DfChuf7Hgpeb1qQz9jq6I8rPG2eSA/H6YEpr ibGeJpJeySDu/1cFrPLX7JO0gHYKcfVpjXpia9NeONuuH+7a9sMy92lY4z8H WdOI15qnei3q7hdnJhKvVYwrNy+zY+yPUbj3EKLmxpoIl8JQGk+S7khXJWm/ TJL2B0szcLW4hJcc0iOvrXZOeBLsjack25w+wQe/nd7fRhLCTxWJLts5Z7eK xNoHU3s0it5U564jMRPTGvdDRosh2GXljss9R+DhoOEoCQxTXA5108syk3Gw eC9S0pMVmenKY5yLV7CHxDgJJMb5ThbjpAcrefebSWrefUfNu9Xg7kNlL3hJ fByWk+9JTq7KYdgVTw+8iaeHYaF4evWkZv05J0TbOcWQE5RM4Sz/HbUW4i4g N5Pgu8W0bvcE8S4OSG4/HIU9fXBxiB8eEKV84OGB3dMm4Prtq2/VJdMkQa1f qo2N3+3Diuw8kraoUcx1Yiq1KCZzippHzxyu5NF3WB79kMgh5YmXyxBY1a0F +7q10a9WLbh+/hXG1amDrU72ygHvq4NqFYPguTl7RFMZbqgdlC28cKBa+bz5 Qs6b6kynUkkYnNBhOLJ7jMUxJ1/86joGVwa54tzkSZrNFnliz7zSjv0kSokj UcqqdJxiUcrLbBqlRLO81xtvpjoree8vJO/t+s3XsK9XB4Pq14XzV1/Dv0Fd RLRqgGjLhtgxUSt4FoMqYyuhHIka8kEkqrIRH4wMY9kxOT9GSx07E0mdRmJj r1HY0d8dB8MjDSqMOclqNeSn+JkEGvuPHFECjd3SQCMIpXM9MLRBfXjWq4vR hFzvhg0xtU1jzLFtipjuTTCubR3OVTH7NyaVrutklVT17koN7X6CsNNfnkGs JV92fj24MDNbe7uahObezI1sNhElnIoJwPCWLeDb1gwh7b/FJELjtHZNMK9X C8y0/xY+7epiU3ocp5UPa0wr1/4wkVb12hP9ooFWbm4uVq9e/dZWRF05gbJi FKXyTRGWqtyjn/0Nuw4WYz4xMdSjBw7sDzcLc/jamCO0S3uMNWuC4NY6TLci S2bVGH4dG6JgcYKxQlAsrcqJpSeJZFVVBDgoKMhYQxtqkikrQOkmEfWqzOi2 r9cYlt+2RR/Ljhje2RpD27bDiNYtMJ6syIy2zZDR0gyRlk2xeVmCQQE/T0b5 fiRdCvGKGbM8kwyVLSIiQrtl1UWCVHZBgSM1r9UAlg2bwq6JGXpadMTAVu3h 2r4tPNt2wCxdF6zQmZNwrT0OpqdKq/w5UuP2DMwuTDREKq5PV8l7nYw8Zw1k xCXBnOBrp2uFrubWGNzFBoMtLOCoG4XROkfMICFFJsG4lWB8VFzCIYr5lkyH Q1VcsjoVk7ggqw6qAS/nYWipawE7K1sM6dMJo/pbw9HMDQ4E4SidE6brumGp zgKFhghNGVQuouptKe1a2H8HYTUWfdDK+U7tHNCGSF03u3boY9dC2cYb0Jyi 9MBI3WBE6rpjCUG5RUWprbXMGIrhQbAKs0EFYVprGv8BU0+HxkPhNnQukkgm ub8gEXu3rdH6fkS4xxOAozFcNwTTdD2QQfKGzUYAZRZMdNBqy4q3qjqMAfIT dnsmz6eLT8ChTSD8AuOxJpO40qK5+PPGT5U0ZAkEmSfcdc4kqrVHOkG2iSCj 0YWxQlO6ZS6TIZNV+8iQlZW058KpewSiZqSgKDsN14uXsSnLYLnpXDBZ15Mk Gh2QT2BdIilpRWDRFQ1SYRkX5shgiSXtDk2GwX1YDJJJOHuQrOPj89vZGnFY YzBU54pJul5IJbDyCKyj7t6QlTDL9EG9iWhw/sZLb7tKhuBl3so6tg3C+Anx WLc8HaeL5mh1fRyWK4EVquuNZJ0VcgmsEgGWzJCI8q9ejXyrqIFKIIclnu52 ERfRPhLRM1OwPScVNw4t0SI/FZYXXHRDEazrg0QCK9uIW6L1aGHk6GhiTr+o BjB4vHCXF3eXQTGkUCv4bjIcw4fPQypJxg5tScCTc0XaVTJVKb0wROeGIF1f xOusscEInmg1eCHcuXPntHyZ31olP/urCJsJf2nILEOEdhoDM+HQbgICghOw fmU6ftk6SyskOF18niAci8G6YQjQ9UOszgbrCcIjAkJeIU1fGd+SoeuqNpDR TuhFfstg8avwEe5TMbhXFGbOTsUOEobeOJjBjoc5LG8Cyx3jdf2xQGeLdQTW YQJLFsDItGCcCsusHFjiezZ8PZuOxIiR86BP1ePwlng8PlPI9uHLYDkRWH66 AZins8OaCsASLl+DNcZrUUFYVuIitg9GUGgiNqzS48zWmWwb5X0B1nD46AYi RtcJqwisItXKGl/EFPVTNP9qpx7tUti7kHXU1nEaBveZjtlzUvEdCa1v7Nez gx+OzIeEICMwVjcIc3SdsZKFSY/KkIniIbuHxZC1qiCyDnwpvyUO22M+FunT caQwDo9/3syOk0RkIzFG56AEcMvLgiNZLieTfVbu1LqCyCy01VwBB4tQTJiU iJzVepzdGs2OPQ2RiWFboSEy0W6IyLicqRfHtX0KkcUyZObaakZiSN9ozI1J w66NKXh4cTerdePIfN8K11Y1scPVI2c4Mpm94BpAX6k9nLRrG9zma/eVjZC1 56vZzBMenguwOD0dJYWxeH7/Ar4QkKnGVg3RvM2GIbmNL4q7++HqwqWyC9sc Ge/UQrWAIWsnfNzgJrWR0W2rreZKOFhOREhYEvLW6HGuMJKlQcwFNPMjSUIK Nrrm4t6cfJRmZuD3o4el98i5h5LUlvFCsvaSPxPh8b35NtqSRsG5/wzMm5+G H8iSPrr4g1BUwwyX8MX3ACM8cuDd+zC2xlzGk6KrKD15Cs+vn5eZE+64ZDfX yWt13bWeRe8C3pqveHMvjPZagKWL0nFs60I8v3deWjAgqwbih+OXfnpABO8q Vq69i99O38Mft27hxZ9PubU2ZXm4FnmqyC2MkGsZuZEittQkYjUcOk7CxPAk 5K/V4/yWadJaEtO3RCrjwm8vMXHJLawqvo1f7zyWJUMy7WLH+ZblIObBIH3F 5S3CPRouA2diwYI0/JifTIRkF0MsLy7/UqCerxuHIzoVVgrTQQKns/Aetxkc joPZWIwZuxCZGek4sXUBnt89K2WgrH7pC4FMbodkBxUMWsd3QOPvNdfWdg0c rMIQNjUJm9aTtS0Il1Zcyda2ptG4oiES3Qord7GqILRm2iLOhIvDLMTGpmHv piQ8vvCdUEb4nqbzxns0xjC49Kud5dhFqHfD4LVMR4qvYFHSXrKIPvDyicWK JXqc3DoPz27/ooVjovWQifEIdWobo49TsZVNrWNTjxq2Cm10s9GjkS8cbSYj PCIZBVlpOJ8fqsmATOdFkVWbGbHw2VDCO0mmbsi01mPYcrTWxcNatwy9G0bA dfAsxMfpsW9zEtKDo7Aubbc0tjJji0e9jNj9hooog9JJgML/TAZF3QH5gCzA JbRslIw2tZfBrkEe7BtnwtsvDquW6vHT1hi42uRhsOWCVhIKmzO7yS+hUTEQ JFPtuKQtgUiHMSAqVJ9rIqcaXPW0fCNJsXeQb727D5xqO6HN58mw/joX9o2+ R49WR+Hc7RR8HE4gbPBu+HXbBtcuWTh9/FdtsUwpNhdbtUGTNJiQgVSV8nMF Gv36jkDzJwFXJEkmFzbtrBQfZLZ3wlrb4QhuMwUd6xaia7PjGGjxK3paXYdb vzsYP/QmprqdRaTzXkzptxppPrGtJFPJJL3MFZfVE/ZVKehaQQrUw8Va+JlQ UEDQf0++gwgF0STfjPu2i0LVcvPBWNdpBHL7emOzcyC2jgrDNr9I7AiZhcU+ RGybHUFXy+sY0O0unPreg/uQewgccRdTRt9GxOiLmDJ8J95EDsANByu8OFmi MV5G3lvluxUrPFU7R2i7xe+iWnWUDRWqCwnFu5IXI5iEozNJDhv/bVcsatUX Ky2dsb7LKOT190GB6wRluu3jo7Bj4mzsjJiPnbPjsGNhMoqSUlGQrkfuknQM 6r8PltYk5OtyD71730f//vfh7n4X48fcQ6j3LejDCGXrJqM01ROvw/vgr5nj 8NexkhYCRG7ZZG7nP2dI9woyRPU4HyvlYkXkO4WkpRN1lpjd2BaJzbphcev+ WNXBFVndPLBxgB8K3IJRNCYc2/2nY+ekOWq149fYHkv4kZyGzSTQzib8WLks DVu2bsTxE0ew/5h64/vIoacwa34V7TveRqeut2Hf6w769ruNQc634RtwGsdy 9XhckIjX+bNRumYiSpNH4dXEnvg9wo+WM2puQLTFxswqOxj8T5jVQ8Isdcvh G2zbsAcl6/diLVnxGSO8EDdkFCbrOmBuYzskN++BJW0GYrXVUGzo4Yn8QeOw ZVgIirymYHtgNHZOnoud0xdiZ0wCtselYGuKHptIYEq/MpemYtOWHBwjHNpb ckBd4U+gz/gDbWxvoWOPW7DpdQsr1v2h/CZ58XosX5qG03l6PC2Ix5uNM9Xa ufjh+DuwO+6F+dK8XbahIjN3Jno1lsMjewn3VSf/JWInL8GCdhOwr38oUszs saytA9bYDEN2zzHId/RH4fCJ2OY9DTuCZmBneAx2Rsdix7xEbEtIQWGqHvkk YssifmbJ0hScOlGCoycO4+rNayxaI1//Zk7q9NnLSF+Vg/WZJGPamIY/C+Lw Ji8apSuCULrQDS98u+BKsA/nguikOBdEM2qimWQ5XOjJfiVuOjbVjDEMn0Hw XtlG/L/hZbsC2R7f41rcHhSOnIRtvhHYETwTO6cSfswk/JhP+JGYisI0PTYS fqwj/Fi0JAk/nTiKI4Qfl29eZXfdCRsuXsXSrDxsXJmOS/lpeF4Qi9LcKJIk BqA0hmiBZyf8sWaxuOlnmG0YmttKmg8p+4l5k14CvTytbcriJqMQX3tdRnUN +A8+heyEW7i+6w52LEhSbOYWfTryFqdjDaEwOSMeJ08eRfHxYvx6/XJDRuAv v17DmtyNKFqTjiubUvGiYAFKsyNRunQcSmc74Ym7DR4tz5BdQeKhkayt5RAV X2/hzzhRTSRrLpOD6gzhghlXEbvqLvb/fA/7j58iwx/FgWNq935BOJqwj5+/ fB3TZ8Xh+/XpuLk5BX9vno/SDVNRmuGDN9MH4e4Qa9xakmF8uYwSxC9w0mZ8 uxMX49qhEm1HivfVFyvzhG5rah8/9JGM2lhCm+nMksx+8yX2XfyDKczbpqAp I3Tzzv2YG5uEvVnpuLs5Ga82xaA0Kxylei+8mdYfz+eMx/MTJcbnDGWV31WQ MswbCxtZIK+RJX4gvvk0ec3vZdGORnyzQOzuye2a2myVSa8hxboKUvxvCXXf Muq27D6I2JQUHMpOx4OCJOKq5hC3Hkbc+mi8DuuNP6L98GdJiexODi/mmu00 ChNqmyO9Vgfsrm+Ba61tcM3cFo8XLdYSZNFGqR0S0c+IIhrLig3R3mG+PpUg asaI2r6vGPr0VOZ/EwhRs1T/mzgSr4Lt8WiKL61t4wdpomuRTaXy9CMtat9O vlNJ1B6u64i5TewwoqY5wr7uinWN++AXi/542aMPHnTvjet2NgbNeLl1Uns1 qg8OMWJAA4nh+kICk9/h+uHgYSxfYuxEg1Ea546X/t1wa6Iv7vCLQF8a9DXi hu00C5dpwB/AAv4FTToj1awXlrUT3d54eNXrg4jmzsi1Go5zvUfhH5fh+N3R Cdd72WuUilEeo3SAhNJO5VB1+ozqFNcxp/gXcYql3CkuGIpnYzvjr3WLGzCq 6BXGhVMiEDnaGyEk0pvZ2EahLL1lX6ywGEIC/pFqwD8kEIWjREc1T3FUCW6T MMnKE6t7++HokPF4SCLGGwOG4k54mEG7Yd4mZZBK1cAKUmXGqbpwBUs0H5eK 55uJj8shPm6ZP0rnOuPpKDv8vipDnbGOQY5IpW0Kk7bkZt2RZu2IwDFjkerk iY0D/RRqizxpDBuFnTSojyRB/Zx47GBBLA3qc4iDWkXirdUZmRhnMQIJ3b2w w340SvqPwvGBLnh66pTWukY8sFTJZES/m1rehpc6vNXM4V0lDu/lZurwIlC6 xA+lMx3xcKgN7i3L4F08lKrDBLXqcCX5PnHwINtP+votCY3iKakioY5Ya+NO JNSLBWah2DZ2KjYHRiLYdxxWhk1X0514NTCjwWrWEj2WksDsNAnMSkiwuvvI PvBrBOeP/IydSzeiZFU+Tq/dyPsNi/ZLlWYm24YbdzKGqPHJJzh3+RpyNuXj +3XcYc4jfoQ4zEXeakrpaIVkj2HoUK8Wutetjf7k27FuLTiR7w3xcVUYM3JY WpNMhDSUCbuS5zFhX995pJbdFirZbYSS3arCTvK8+UlKVLaFRGX0K3xSKDZv ylZ+PnyiGL/duKIdYopGS7VWWktu8dxaRrWaBDfFph373vae64n3TBuD11P6 IrKtjlBYB86N6sK9SV2MaFoHIxt/gzlDhyqSn8YkP0aRfDU5WdWRJCfdRyuS b5S9EclfoEi+mL7lkPRtBUlOCgrzlPTtAEvfFCvPNzT5o2rEowZGM2+yLgbf dhKa1R37etjyA/GpySkopj51c6LqU9dOwujmjRHQvAECm9WHZ6M6GE9oDW5W W9laWdZeleOcXl7Y5CRPMHaSBIPLsZZgLElWEowSlmBUk+DivavFUEOwZ6oj ZqGk4faandF79JUS0SkuWk25vsK2vcVII+72OHG3R5LD4WXRBhOsW2GqTXNM aN0cky2aI8KqORYPdNA2W3ZOI+JIwkclhKbiqNdrIXTR1nycPKGG0JeuX/5I AkLWNpQF+M4SDsh2MY3jY/pVjcVLi+MTMHSIO3q0tsRwmw4I7GaJyT3MMamz OabZW2B67/ZY6u+JrVTCFqkbBMtZ+ss3CMTbMobnDIbmRI1l4fIO2HwIWViv LkQNAjsRFnV1sNI1R892lhjZzRoBvW0Q0s8GYYOsMdmxA4J6tVCy0Ss3pV2y ZNmUml3A9X+AsArzCiUHD8G8bmOYN2yGTi0s4dTZFr4DbOHfux28OjeHV5dv 4dGpkey+IuedGF8wZEMlyGyNDBVFZ5p31THW2R0t6jeHdXtrONl3go+jLTx6 tMbwrmZw7/otzhDbWMdozDJ/ZxggsNTarQKwyvbOTRS9v68crNo17482Zi1g b9sezvbtMbCTGQZ2boafTxzmJYliAi9TDzXR1/r2mwJlsKEvVFZWhYNuIJwH zMD8BWmYEjQMqbMDsGypdqH57SDAUM7V7RbtaQVvF8MYzs+z3tPFx+DQwhde vrFYSYzD6cJZWqonWoTmjIm8S6wSEhUVsVmHS5gkm5XbmvM/X8GP61R5/oYh iXCfDMcu0xAxPQXbclKVooAmAhIu/98yfvFaXKMHoalbc+xoxzBllyH6kNG1 IGwRFtiG4WCvAFxPzOSgaOGVu3uMUqhztHAhnt09K23own2AcdktE1l1c5Ud dRnqnXIyKG4G0V9qm0HVGQ7f7pnIdN2KVZbOSl3jzZxslhGwygCLEKXOI2+t HleLV2gFZjINF6VW3QZnR4ESYJJdG46Pks1l16f/EQT0W4IgXT+kknCCFYV+ yblIRZue+y6kR4aJeHRmq1ZgJlN2Ua7V4wl2jmrIdH7ea2oLhlPC6wsvXngJ V9sYDNYNxwSCNK0MKcpu6Kv6MNYvVrnG8nPhTG0fWWYCREOungWxw3FZd0T5 LVH6JTCe8zTCPU4pTQvW9VWQFqhIPzdSl8hotWLx4cUfpPVeYktybtcZUE8J UAuTQMvaZb19PlKGNoSg1es6cLS8q4xawBiDdKJHJVSPbv+i+ULRzPD9lV0b 9uLGqSvKK/GWJHcB6tmg9gwQkQLZk1T5wxPF90ywfAghIlTXB+mECFZ8zfeZ uKIFE0XbuDYN1w5lsqD0fQMLdfGX3+BpFYR1VsG4NCoc1/P3cJsh6p4a18NL QkPZc1eNtlqFz1GLVgY8lgAfhomGwLWOaoL+7SMR87MHl9StkLITQanbft8A 1KbMfEywWotDE3fjnzXf40lOOt9PFR+SosYsrMxJ1lDW0CiXuT9vOBMSJul6 Y1EZCR+LetnSD2PHxWJ1JtXLaO3JGsYWqsxwVtOmnzrKBzkdBuJe1Cz8ffoa nl39hQmWYW5CBYzqM6PC2wgxXWJjKqiWlbUmVevqnHVuCCOUZBBKWE2d1qeP aq5T12lKwfjO3BRFcxtJ1kC2LvwO26q4VAQM98Ap95F4k+CPa3s34I+/njcW fKPk4R4qclZPqBLAQ3aRKG46DInyhgsharKuFxaTvJgTVYMZMYemRMFHzMOi NPpAggWyvVPT9FRRbh1nDXDDbD9vPFsZhNL75w2e7MD1Xi3VYPWthvXTvIpD tNKmKFgiUMAvPqjaHYqQsETkr6PavUy6BWxaXageeiO1ZS/c8PLA0VnjMHdy AMXBbbCo/epRGCsgNkwLK0KJq24ownU9sZRQwspJtWCBqrvLoJlYGJuG/ZsT 8Jyou/gMIEFPZMRU1qYqQUBjWxT3c8U/swnQnCANJi8GEu9SOjo64vDhw5yy 8RJnxCkTo1NjyoYSyqYYUcbFhFsB73Fxyi2QX7ZMVykrs5DC9bX3McPdF2vN ++NhILFNmUF4c0711Mxaq0yprl0PFO8OU02nZfEUKn2fUeX/36JqrELVVJ09 lukseGEyQ8kNQgSmz0zBd7kpSllcWdlnBqY17YKfSf70OtYfL3L9pVdw67P5 xEudIillnUEMn2igVn9pT5SSkSW+Z0yWm84V04zI4oekDk1HYAQxCRl6+tCU +e0YRcOpSbR1xJ+TiXFdM4Go+oW3fBtFWNuIIpEafrexqmmKAv8HFEUQijIF iippi0FrcEMROjkJm4iJuH5wicFCxZnZ44oHCaZTCT/3JRvcpeGe4kuBLKrg xjJX1lmmzBgLZAX9N8kapnNBpK4HlhOytrGLUVqLZ90gYi9mITYuDQcKiL24 f5HV9aqNCXx01tjb0wUvo4nd3RCEV/fOya4efmZiwehlW75gH5mmbMJ/RFkN RpmXQlmUQpla8p8euxArE1MVO+EzPg5rlxM7URDB12m6uw8y2/bDvXEk/F1C 2Hlum/Y0Z1GBP2YmpDzb8Iw3rVUJ4g9SYwQFS8y4aYI+1AhyJwSNq98BHT6r CXvyPaBRZzh1i1DuJn2fl4xHF77Xyq7p8oQ16YQTjm54PX88XucGaNIjxtUf GK2NzDzwulH6Pu+LoyaBCBFI4YGbaVI+UEjpVX8QWnz2Daw+/QYDP/1KNQcj 52Fxuh4nCufBvfE3nAo3IpQbOw7C76EkalylmoQPBSp4YF3VhISJJuEr01SE Gqnju6hYRCTJ7NOG6PhpA/T+oj4Gth2M0PAkbF6fhl1JnvBqVQf5aXH8YrPS yrZZd1x0H4E3ScRR7EvRrpGLpvo9IypkFqC2aSomSmyljeb5qjHs5nVqw6JW I1jVbIZedZpicIu2CBk8EMsjPTHHthEiLOoi3tORY6etOHZ1G4Lnkb4oXT8B b0j89RHTAD6RiJMGXYzjfINMfKYtgzrJFFQWcfC9YnVdP4J57broWE+HzvUb E01ojhGW5gjoaYXogeZY2Lcl4no3RWjHb3Cnv7XSQOXX1AztgIH2WVvUqjdu jiX596JA/LMvkcmQ3NbSfyncRqbhh0kWz1qAz6NPFf4n8B4yVNl97VyvKUa0 aqVckJ82wBLRTtaYN6QDFg5uh32THNQuctPd8Pe43kozr6uBPrialsGfkUF1 ekJjOxwZMBT/zFHjrurMRoj6yxsZcJmhnxDtsewZ6oyyyRLKrIwiRKZ4qg/7 DCUHi2FVtxl6NmmB0VbtEdzHEiH9zeHbtwMmDrHGNJcOOKz0zVyI1+tmonTZ ZLU1Eu2bGdAXD53scHOCD27oM7TEjfa1zrIYgEdBJAleHoTX57Yyn1lmd431 nNld2X3QBqYJDpcQzO+WibEvtzZqDPylotMLm9tjm+NgxDj3wLiBHeBs2wJu nc3g1rUZCgrylEoeevJ7ZIMeN5SOJ7F4rXUOZX3bgvrjsXMnHLKxwO1FGbhG 1pg3L6JzRDXtirOuw/E6jnx+byoqCZJrykYYPxeNvuLX08WAiLFgioQFHZj6 Ge+LsFRXtVTVFYn019lgfx9XvIgepzTp7mnbCvbWtPfkKJw+cZgh/hfOXbmG kmNHsWRxKg5m6XGNcOSPvDi8yqKd7KaqsRHtPRkyEL+7dcZPdpa4m5GB22SO Wsy1jyQh4rZOTvhrCklV1wYp/sDY5gsWiD9wTHQV9UwzYqqEEcq2l7DNUt3g t/Qd2qE6y3Kg2k5vWTDeHEjVOgCe+e0qDpccQZo+GXtp86e8VDzNE/ttEhpi PJRWvLTt4dkulniwJAP3CM1fsvlo6pjUoieueY5S+nPezot4a8U/lSDnhIpP /WOETjPyd2X2q2xfJC58OmKI0zpP21PSFkT5wVpHyNMXr+DA0SNIiE/AD+v0 uJSbiieErH9oH5dVkWqno/meSjfHv0Z1xaVuHfBo2WI8IGTxYPD4vkMYR0Tn QG8X/D2T2L3sIJwt3qaQ84UROXStxM4UXKgZORFG5FCu8MfnHP5hL/xImEpb PT+nTenoswzObuV9PfeQtHRrYT52sH5Nj/IS8Hd2DN6spj0pSXSzQG1K9syz u9Jd+slypcFvDbY2xjHgiI49sKpdf9z3JzHkUhpDFhlcd+Gxfh3TxEQJMsvd IDdI1CyuMR+Ae7TX6pJg2u5S67C561AxNhfko3C1HmcIJQ/yEpU2um/WsPZq tI3uNMIErx643tsKp8f54ExKBm8vYir+279jF6Y06YxTg4fh9YLxeEXiyFpG 6EWKxGcGq0aENZE03MmwZMujPGri2244M3SE2l5xYwhO7itQeVYT2/cfQm5+ HvJX6g06Ob5ZG612coz3UfuI+fTE7X7WuOjvg4spGeXGgTy5GUZ7VFgTvZtE EK9WY0seXYnOQxZxMcqiJTGiOXNT1DTSZ5/s6uGMZxF+yjNe/jyVz9WzFlu2 wj0HsH5DDjYsT2Od0pJYp7QZaqe0xLKQ4N5AGxwb7ozzCanvsVnoZSd666h1 o9noUGsCetUchcU2HniTTBPNlLpGAOmrWqbpmSGhpz0Tdfp8nhVEtO/QDuAZ RPYOpGlegZucOmzZLl29joMH9mD1sjQcVXoeJTP3T52f4P79++CBoy1uEPcf /q072unmwrb+DNh/ORYjG/ohsI0vUlzG0Yb/mjkTbTkvm6LmjaqhQMpMCSn8 aet0aaYTv/qzy3C1825eCG1mLrsQqwriVyaTvf1Hj+HQoQNYSpzaIUIpbWz2 J3Hzr4zbswb1g2Pd6XCqEwO3RvHwN09CWLf5COwegXX6XbL2Npw4Mf5kxM2S EMdTpjEkYN/ZdQj+mkoEZ00oXp/fJu0OwK9Vl5f4lYp39wR3pk9PUdpHX9Fc +BycnjkHrm3yMMZiC3wsNmO81SaE9cnBULsCRI1f91Z/nDLuSkmcLSGR5yT0 CWbL2vTFLR9PtZk9EUXjtmNlz5AoPys07vqrTM4vjNVQ+hYfJJ4uMSkRu9fr EeS0Ay62P2FMj3NwanccHh0PY7zdbozqcQDOXZeK3XW4red5pxh8MiLnSIhs IQgp3d87Odgdr+YRIc1VHu1i3GqM0lHDiE5ZTGjiKks1pt0t6+9Em+Zn0NXq Bvra3US/jr/BrdNFzDXzUFqa7F3ynUFnHo6W1xmL0RQjbq7ElvLiAg8ljhuM P8J9lTaxpURIqxvxjibh75tYQSHGk94TFvJdD5djaK67hHZtbqBHt9voZXcV Tu2XIkDXH3EkMKD9Rs4nZzSUoP3CNHH8UFLcwuFb31HsAXvXx3oqrXOf5Qdq mxYicWIoL9vwowmNEnFVKju3+gCtG+xAS8tb6DnwHpxdbmGA5Xo46UaRIGcQ 5utslY4gB929ZY+aq2mannkCPYa3M1RJDCchwHGHYfiHPoknN5Q+mY3HQJyk x48fm8xAeXz69glPDbW3SNsgDCCqZdbhGiy73UBA2AMS9ybCUTeaOFFHzNF1 wkpC2IEywkQ/wEu+xFCXETbfiPHiMydpNrHF1glPJ/koTwl4sT8J/FiRb9sJ maXQtZ4fOyjNDfpFI3ZhGg4XJOAFiSH4kXKEe5LStMhDN0TporFMZ4597t6y BlziIzz5YjH8CyT6rmOz052NtJa91UfmpQbh7/wg/EsyVH32ebqQDmbe8PaL RdbydFw7vFo704kYkaRsB4/QuSBC1wOL6c4b4TgN2WWm+zPTkBdKKGwoyNLE JnY4MnAY/p7trzz9gshSeagj3MPg1GUqZs5MwY8bk/Hk7DatjVZWSpFyqjqM HXrpCeo8CWpuizlqMUpVQ1H2/DnJrQAymTttGkZCxSeh3sqzYl4dSMYnJiFX hkMTd4wcMQ/LFtF+R7OrMbSniy8oHUxc2IF8MpG/bAlablC41oiRGkMbJ0HL nz1D284nkoTxsoeH8lCwV/kTtKsoIlr++azkVcrhRdiUJGzbkIbHl3YLpwQU 8jgM0Q1XangSSESbpVpMDbLsiZ0SyPESyHUEsQhWThSHkmRwvPL0otIHF02j JjzWOcDVaTZSEukh0kK+j336MAHceBwG60ZivG4gFpIUc61qEjXAssdviiEk A5wgAVyb8WwufepFx0F4FOytPFbu9YEUgyScD8+3ck4XH4dDq/EYHxSPjSRD u3FomfZsHWronHQe8CYUzdXZKc2TiKHjaN9+lqZhwMTQJkrQfqOtcAZim9sr TezfJAbhDcnluc0RVaGOpnJTMLhnFObNo48cT8SLB5e0ZydRs+ao84SnbrDS tog2B9rv7i2LYMtBm2SknJRA3s1dOV422lQiwiADXFtjb4nSocfTayHWLCOB 6eG12jWpiOFJyunJSJ0zopTmieZKq70H2k6boWXjm0ZivMZQJxuhpmEIL2Wj 20Ab+DbQUjU3r1kO5KzktUqPCFrVuIvE0U8ufMeEkRtjb2J3XJWz4XTBGBtD Fg/PRMfOIKcKUsQLIvhD/KhYzDPa4nl+96xp1ETrGrvAfehcZKSRhHxrzKcG ZsIHQ1l1SyoxmDkSwNxM1DANOE0AbGgIqyJ/RRGmthqBvd3ctc2cl+e2fiEB XEtjs9p+LnhiIgrXp+HRpT3aFpSK2g/OxLjRYrpEkjrRBnn3BdSicfvQNGq9 kWnR6jTLuirwB0BdPH0J3tYxyBuwBA+iMvFmBYlRDqZ9WQ4RNMxw6T9Daehx dEscnt85IzTsKjN4AboBiCUxbSrxsAUe03Dtpyt1jIDRV7JTZEZHupQOde2N Amxen7V97UGM6fYjds65iGdFF1F6ch+ent8ro0f5k0oytlTBxsw8OLTwgc+4 OGSvTMf14hVlDbaIUafNFqmV9GoyBKGtfLHDLhC/jQjGs0uXOY2ipaxumsZF bEZKI/3ifspU2QtvmTBh9EWszbqLm+fv4sr5i19JCDSRi5RX4DSm0xyl6GvW 7FTs25SM38/uVX9noj8WFyMlPDabibn2eTgb+R3erM3Hi1+OiTuL3A6Xw4sM ATAXcxOA+Sj7fvoDZ2+q93f/t3jQay9mTD2O7Rt/xM1jhXjx+I529C5+3nSr LaIjPkcwJ/gqzubfxpuz14ghuyY179UFyHzlLd5mhqAAMuS6/w3CK+PiuReI SLmNnSV3cP76vf+svRj589N/IWT2LWzefxeXbzw0jtPLjqwNAzIDcsvquGX6 0ETy5/JWYijryvUu+GLzFi501UzjXKTZCs5KapT5V1OTCOX1n19JVomP31YY nwPjG0tiEMOALWO/EnsIyhhWXZugsvbTF+VA5C32RJtdxTSMTIGdPHdvLIHR RAKDNxsUTSffLRQDIDbVcolC6SRTyYryyxl2hWTYRpJhjQvoy9rOGDplNuxK CYqGkmGNy90pA98zPewqybANJMOqVc9VDcScvkOHJOkGs8CrJaPVl4zmxcRA lE0+MhtqjWSoepKhxrJl5vJF6SX/slHWSkapKxmFV0Bz0aGmkA2xTjIEd0xi ouXNgPDPMZvM+LzeSK7pJLUlo3ip0ky30Sppu4R0F4qh2SAA5SdqspOD0cwe lrcjzrY4soUh+WJ8LRlyBDPXpnZm2R4mKyHNMdJ7cfdYHNVNGNW4EkLYGWXX CHIlo3JLLVoTFyPy6Yh0H08kn90KypMM+YVkSKd3kM821thdsY2SUWtKRh0o jGq8byqQz+535ktG/Vwyaj8J+bxIkZPPbqBvkgz5mWTIXkbkGwsUI581a9gs cT6fSkbtXg75gkyxDjUFRj5K3KQRR+1cpkRVTQmUet0TW4Qhub/5RDKkbQX0 ibUYLJS4MNnuQceK0c4aWG6VuIuPJaOaC6OWo0+sj2yRZNSPJKO2lZBvrE+s gfM2ib2sIRmyZcX0ifUe3y4Z9UPJqM0qpk+sr/8OyagfSEZtYkS+TJ/YozN2 SoasLhmyYcXIZw9d+U4yKo+GxRikbsVkij1e63sjSaWjVpOM+o0pfRKKntnT DncZDVlWOWg45JdGHJXpk3qCj90SlyeLvz6rGO3qYSx+lHi9SpJR/1UxfVLP nLBHYk3fk4xqfMop0yd1Ex+8KFgckr7DgrnqFZMjdf8X+5R/qhgMxqPCKuXw T6A0RR1pP1sHPhKb27jsV6Yp6r4MDij/VFdGoMESHcUEeixW/+Qgm5RCEZZU TRqgJB1+//fz//38/9fP+K//B3k9HW8=\ \>"]], Cell[BoxData[ Graphics3DBox[{ {RGBColor[0.4, 0.2666666666666667, 0.13333333333333336`], Opacity[0.8], SphereBox[{-1.3767138399951948`, 9.136492442760169, -0.011319882653069602`}, 0.255]}, {RGBColor[0.4, 0.2666666666666667, 0.13333333333333336`], Opacity[0.8], SphereBox[{0.473882316936199, 6.971834316791755, 0.0004138948773504403}, 0.255]}, {RGBColor[0.4, 0.2666666666666667, 0.13333333333333336`], Opacity[0.8], SphereBox[{1.4237888928831852`, 2.4662159947976874`, 0.00013321484173245413`}, 0.255]}, {RGBColor[0.4, 0.2666666666666667, 0.13333333333333336`], Opacity[0.8], SphereBox[{0, 0, 0}, 0.255]}, {RGBColor[ NCache[ Rational[1, 3], 0.3333333333333333], NCache[ Rational[1, 3], 0.3333333333333333], 1], Opacity[0.8], SphereBox[{-0.37512028472777914`, 4.570605187795081, 0.0002255030110518419}, 0.24]}, {RGBColor[ NCache[ Rational[1, 3], 0.3333333333333333], NCache[ Rational[1, 3], 0.3333333333333333], 1], Opacity[0.8], SphereBox[{0.03463532179801909, 11.536269141880382`, -0.06288512934630486}, 0.24]}, {RGBColor[1, NCache[ Rational[1, 3], 0.3333333333333333], NCache[ Rational[1, 3], 0.3333333333333333]], Opacity[0.8], SphereBox[{2.727290054608442, 7.390531260134222, 0.0002804910126465998}, 0.178]}, {RGBColor[1, NCache[ Rational[1, 3], 0.3333333333333333], NCache[ Rational[1, 3], 0.3333333333333333]], Opacity[0.8], SphereBox[{-2.2832742569128253`, 0, 0}, 0.178]}, {RGBColor[1, NCache[ Rational[1, 3], 0.3333333333333333], NCache[ Rational[1, 3], 0.3333333333333333]], Opacity[0.8], SphereBox[{1.268100398919057, -2.196638994879232, 0}, 0.178]}, {RGBColor[1, 1, 1], Opacity[0.8], SphereBox[{-2.5623900210132162`, 9.035084825337556, 1.6699560186170959`}, 0.12]}, {RGBColor[1, 1, 1], Opacity[0.8], SphereBox[{-2.559361148898179, 9.019447040476722, -1.6935183538918448`}, 0.12]}, {RGBColor[1, 1, 1], Opacity[0.8], SphereBox[{-2.177290252557225, 4.235570185005809, 0.000388702763330917}, 0.12]}, {RGBColor[1, 1, 1], Opacity[0.8], SphereBox[{2.6079918797775323`, 2.5754100297558193`, 1.681870261262245}, 0.12]}, {RGBColor[1, 1, 1], Opacity[0.8], SphereBox[{2.60807719544219, 2.575506999780597, -1.681642477037567}, 0.12]}, {RGBColor[1, 1, 1], Opacity[0.8], SphereBox[{1.2127996638427367`, 11.642049687312937`, 1.4557099657339077`}, 0.12]}, {RGBColor[1, 1, 1], Opacity[0.8], SphereBox[{-1.1885065866440119`, 13.022373661088087`, -0.02925378145732971}, 0.12]}, {RGBColor[1, 1, 1], Opacity[0.8], SphereBox[{1.089414647789555, 11.621232035852536`, -1.68930758680601}, 0.12]}, Text3DBox["1", {-1.976713839995195, 9.136492442760169, -0.011319882653069602`}, {1, 0}], Text3DBox["2", {-0.126117683063801, 6.971834316791755, 0.0004138948773504403}, {1, 0}], Text3DBox["3", {0.8237888928831852, 2.4662159947976874`, 0.00013321484173245413`}, {1, 0}], Text3DBox["4", {-0.6, 0, 0}, {1, 0}], Text3DBox["5", {-0.9751202847277791, 4.570605187795081, 0.0002255030110518419}, {1, 0}], Text3DBox["6", {-0.5653646782019809, 11.536269141880382`, -0.06288512934630486}, {1, 0}], Text3DBox["7", {2.127290054608442, 7.390531260134222, 0.0002804910126465998}, {1, 0}], Text3DBox["8", {-2.8832742569128254`, 0, 0}, {1, 0}], Text3DBox["9", {0.6681003989190569, -2.196638994879232, 0}, {1, 0}], Text3DBox["10", {-3.1623900210132163`, 9.035084825337556, 1.6699560186170959`}, {1, 0}], Text3DBox["11", {-3.159361148898179, 9.019447040476722, -1.6935183538918448`}, {1, 0}], Text3DBox["12", {-2.777290252557225, 4.235570185005809, 0.000388702763330917}, {1, 0}], Text3DBox["13", {2.0079918797775322`, 2.5754100297558193`, 1.681870261262245}, {1, 0}], Text3DBox["14", {2.00807719544219, 2.575506999780597, -1.681642477037567}, {1, 0}], Text3DBox["15", {0.6127996638427368, 11.642049687312937`, 1.4557099657339077`}, {1, 0}], Text3DBox["16", {-1.788506586644012, 13.022373661088087`, -0.02925378145732971}, {1, 0}], Text3DBox["17", {0.489414647789555, 11.621232035852536`, -1.68930758680601}, {1, 0}], {RGBColor[0.36, 0.24, 0.12], Opacity[0.5], SphereBox[{-0.4514157615294978, 8.05416337977596, -0.00545299388785958}, 1.1667547587533689`]}, {RGBColor[0.36, 0.24, 0.12], Opacity[0.5], SphereBox[{0.7118944464415925, 1.2331079973988435`, 0.00006660742086622705}, 1.1666500765740462`]}, {RGBColor[0.36, 0.24, 0.12], Opacity[0.5], SphereBox[{0.04405079344347956, 5.756144314489225, 0.00031851617916264297`}, 1.0322407040975143`]}, {RGBColor[0.36, 0.24, 0.12], Opacity[0.5], SphereBox[{0.5139443174061085, 3.530564943466697, 0.00017989195655348597`}, 1.1430342083511027`]}, {RGBColor[0.36, 0.24, 0.12], Opacity[0.5], SphereBox[{-0.6629346100044611, 10.35016147011224, -0.0373986185714124}, 1.1510447932042867`]}, {RGBColor[0.36, 0.24, 0.12], Opacity[0.5], SphereBox[{1.6392248658883803`, 7.188362091608584, 0.00034490549867073633`}, 0.928087955909884]}, {RGBColor[0.36, 0.24, 0.12], Opacity[0.5], SphereBox[{-1.1809371284564125`, 0., 0.}, 0.9237371284564129]}, {RGBColor[0.36, 0.24, 0.12], Opacity[0.5], SphereBox[{0.6536986920326565, -1.1323551660771456`, 0.}, 1.0502976872280907`]}, {Opacity[0.5], SphereBox[{-2.222771146484287, 9.064131492082735, 1.1883801562499108`}, 1.2126058567002422`]}, {Opacity[0.5], SphereBox[{-2.2205837299854645`, 9.052975497340135, -1.211641084231616}, 1.212447052309992]}, {Opacity[0.5], SphereBox[{-1.6325241777122277`, 4.336845706551104, 0.0003393701864642485}, 1.0537280279235877`]}, {Opacity[0.5], SphereBox[{2.2687829617618083`, 2.5441319542384977`, 1.2001452443381346`}, 1.2125328818910286`]}, {Opacity[0.5], SphereBox[{2.2688579609867188`, 2.5442024509109817`, -1.1999264443009414`}, 1.2126186291866472`]}, {Opacity[0.5], SphereBox[{0.8736612721324476, 11.61160041740041, 1.018577487839674}, 1.145619428516999]}, {Opacity[0.5], SphereBox[{-0.8364365567264902, 12.594612287753689`, -0.03893425236239414}, 1.1457030746039425`]}, {Opacity[0.5], SphereBox[{0.7882072414971728, 11.596969659548952`, -1.2248592629951476`}, 1.161048039836913]}, {RGBColor[1., 0.75, 0.5], TubeBox[{{0.473882316936199, 6.971834316791755, 0.0004138948773504403}, {-1.3767138399951948`, 9.136492442760169, -0.011319882653069602`}}, 0.1]}, {RGBColor[1., 0.75, 0.5], TubeBox[{{0, 0, 0}, {1.4237888928831852`, 2.4662159947976874`, 0.00013321484173245413`}}, 0.1]}, {RGBColor[1., 0.75, 0.5], TubeBox[{{-0.37512028472777914`, 4.570605187795081, 0.0002255030110518419}, {0.473882316936199, 6.971834316791755, 0.0004138948773504403}}, 0.1]}, {RGBColor[1., 0.75, 0.5], TubeBox[{{-0.37512028472777914`, 4.570605187795081, 0.0002255030110518419}, {1.4237888928831852`, 2.4662159947976874`, 0.00013321484173245413`}}, 0.1]}, {RGBColor[1., 0.75, 0.5], TubeBox[{{0.03463532179801909, 11.536269141880382`, -0.06288512934630486}, {-1.3767138399951948`, 9.136492442760169, -0.011319882653069602`}}, 0.1]}, {RGBColor[1., 0.75, 0.5], TubeBox[{{2.727290054608442, 7.390531260134222, 0.0002804910126465998}, { 0.473882316936199, 6.971834316791755, 0.0004138948773504403}}, 0.1]}, {RGBColor[1., 0.75, 0.5], TubeBox[{{-2.2832742569128253`, 0, 0}, {0, 0, 0}}, 0.1]}, {RGBColor[1., 0.75, 0.5], TubeBox[{{1.268100398919057, -2.196638994879232, 0}, {0, 0, 0}}, 0.1]}, {RGBColor[1., 0.75, 0.5], TubeBox[{{-2.5623900210132162`, 9.035084825337556, 1.6699560186170959`}, {-1.3767138399951948`, 9.136492442760169, -0.011319882653069602`}}, 0.1]}, {RGBColor[1., 0.75, 0.5], TubeBox[{{-2.559361148898179, 9.019447040476722, -1.6935183538918448`}, {-1.3767138399951948`, 9.136492442760169, -0.011319882653069602`}}, 0.1]}, {RGBColor[1., 0.75, 0.5], TubeBox[{{-2.177290252557225, 4.235570185005809, 0.000388702763330917}, {-0.37512028472777914`, 4.570605187795081, 0.0002255030110518419}}, 0.1]}, {RGBColor[1., 0.75, 0.5], TubeBox[{{2.6079918797775323`, 2.5754100297558193`, 1.681870261262245}, { 1.4237888928831852`, 2.4662159947976874`, 0.00013321484173245413`}}, 0.1]}, {RGBColor[1., 0.75, 0.5], TubeBox[{{2.60807719544219, 2.575506999780597, -1.681642477037567}, { 1.4237888928831852`, 2.4662159947976874`, 0.00013321484173245413`}}, 0.1]}, {RGBColor[1., 0.75, 0.5], TubeBox[{{1.2127996638427367`, 11.642049687312937`, 1.4557099657339077`}, {0.03463532179801909, 11.536269141880382`, -0.06288512934630486}}, 0.1]}, {RGBColor[1., 0.75, 0.5], TubeBox[{{-1.1885065866440119`, 13.022373661088087`, -0.02925378145732971}, {0.03463532179801909, 11.536269141880382`, -0.06288512934630486}}, 0.1]}, {RGBColor[1., 0.75, 0.5], TubeBox[{{1.089414647789555, 11.621232035852536`, -1.68930758680601}, { 0.03463532179801909, 11.536269141880382`, -0.06288512934630486}}, 0.1]}}, AspectRatio->Automatic, Axes->Automatic, AxesLabel->{ FormBox["xl", TraditionalForm], FormBox["yl", TraditionalForm], FormBox["zl", TraditionalForm]}, Boxed->True, SphericalRegion->True]], "Output", CellChangeTimes->{ 3.576388759505222*^9, 3.5763922800014057`*^9, 3.576392394989208*^9, 3.5763926941353335`*^9, 3.5763932060970325`*^9, 3.576393377073333*^9, { 3.576405782116083*^9, 3.576405792193701*^9}, 3.5764196786833305`*^9, 3.5764693349052496`*^9, 3.5764698006908674`*^9, {3.5764703131205673`*^9, 3.5764703693898664`*^9}, {3.5764704080935345`*^9, 3.576470457935622*^9}, 3.5764704887612762`*^9, 3.5764707842725954`*^9, 3.580209019892931*^9}], Cell[BoxData[ Graphics3DBox[{ {RGBColor[0.4, 0.2666666666666667, 0.13333333333333336`], Opacity[0.8], SphereBox[{-1.3767138399951948`, 9.136492442760169, -0.011319882653069602`}, 0.255]}, {RGBColor[0.4, 0.2666666666666667, 0.13333333333333336`], Opacity[0.8], SphereBox[{0.473882316936199, 6.971834316791755, 0.0004138948773504403}, 0.255]}, {RGBColor[0.4, 0.2666666666666667, 0.13333333333333336`], Opacity[0.8], SphereBox[{1.4237888928831852`, 2.4662159947976874`, 0.00013321484173245413`}, 0.255]}, {RGBColor[0.4, 0.2666666666666667, 0.13333333333333336`], Opacity[0.8], SphereBox[{0, 0, 0}, 0.255]}, {RGBColor[ NCache[ Rational[1, 3], 0.3333333333333333], NCache[ Rational[1, 3], 0.3333333333333333], 1], Opacity[0.8], SphereBox[{-0.37512028472777914`, 4.570605187795081, 0.0002255030110518419}, 0.24]}, {RGBColor[ NCache[ Rational[1, 3], 0.3333333333333333], NCache[ Rational[1, 3], 0.3333333333333333], 1], Opacity[0.8], SphereBox[{0.03463532179801909, 11.536269141880382`, -0.06288512934630486}, 0.24]}, {RGBColor[1, NCache[ Rational[1, 3], 0.3333333333333333], NCache[ Rational[1, 3], 0.3333333333333333]], Opacity[0.8], SphereBox[{2.727290054608442, 7.390531260134222, 0.0002804910126465998}, 0.178]}, {RGBColor[1, NCache[ Rational[1, 3], 0.3333333333333333], NCache[ Rational[1, 3], 0.3333333333333333]], Opacity[0.8], SphereBox[{-2.2832742569128253`, 0, 0}, 0.178]}, {RGBColor[1, NCache[ Rational[1, 3], 0.3333333333333333], NCache[ Rational[1, 3], 0.3333333333333333]], Opacity[0.8], SphereBox[{1.268100398919057, -2.196638994879232, 0}, 0.178]}, {RGBColor[1, 1, 1], Opacity[0.8], SphereBox[{-2.5623900210132162`, 9.035084825337556, 1.6699560186170959`}, 0.12]}, {RGBColor[1, 1, 1], Opacity[0.8], SphereBox[{-2.559361148898179, 9.019447040476722, -1.6935183538918448`}, 0.12]}, {RGBColor[1, 1, 1], Opacity[0.8], SphereBox[{-2.177290252557225, 4.235570185005809, 0.000388702763330917}, 0.12]}, {RGBColor[1, 1, 1], Opacity[0.8], SphereBox[{2.6079918797775323`, 2.5754100297558193`, 1.681870261262245}, 0.12]}, {RGBColor[1, 1, 1], Opacity[0.8], SphereBox[{2.60807719544219, 2.575506999780597, -1.681642477037567}, 0.12]}, {RGBColor[1, 1, 1], Opacity[0.8], SphereBox[{1.2127996638427367`, 11.642049687312937`, 1.4557099657339077`}, 0.12]}, {RGBColor[1, 1, 1], Opacity[0.8], SphereBox[{-1.1885065866440119`, 13.022373661088087`, -0.02925378145732971}, 0.12]}, {RGBColor[1, 1, 1], Opacity[0.8], SphereBox[{1.089414647789555, 11.621232035852536`, -1.68930758680601}, 0.12]}, Text3DBox[ FormBox["1", StandardForm], {-1.976713839995195, 9.136492442760169, -0.011319882653069602`}, {1, 0}], Text3DBox[ FormBox["2", StandardForm], {-0.126117683063801, 6.971834316791755, 0.0004138948773504403}, {1, 0}], Text3DBox[ FormBox["3", StandardForm], {0.8237888928831852, 2.4662159947976874`, 0.00013321484173245413`}, {1, 0}], Text3DBox[ FormBox["4", StandardForm], {-0.6, 0, 0}, {1, 0}], Text3DBox[ FormBox["5", StandardForm], {-0.9751202847277791, 4.570605187795081, 0.0002255030110518419}, {1, 0}], Text3DBox[ FormBox["6", StandardForm], {-0.5653646782019809, 11.536269141880382`, -0.06288512934630486}, {1, 0}], Text3DBox[ FormBox["7", StandardForm], {2.127290054608442, 7.390531260134222, 0.0002804910126465998}, {1, 0}], Text3DBox[ FormBox["8", StandardForm], {-2.8832742569128254`, 0, 0}, {1, 0}], Text3DBox[ FormBox["9", StandardForm], {0.6681003989190569, -2.196638994879232, 0}, { 1, 0}], Text3DBox[ FormBox["10", StandardForm], {-3.1623900210132163`, 9.035084825337556, 1.6699560186170959`}, {1, 0}], Text3DBox[ FormBox["11", StandardForm], {-3.159361148898179, 9.019447040476722, -1.6935183538918448`}, {1, 0}], Text3DBox[ FormBox["12", StandardForm], {-2.777290252557225, 4.235570185005809, 0.000388702763330917}, {1, 0}], Text3DBox[ FormBox["13", StandardForm], {2.0079918797775322`, 2.5754100297558193`, 1.681870261262245}, {1, 0}], Text3DBox[ FormBox["14", StandardForm], {2.00807719544219, 2.575506999780597, -1.681642477037567}, {1, 0}], Text3DBox[ FormBox["15", StandardForm], {0.6127996638427368, 11.642049687312937`, 1.4557099657339077`}, {1, 0}], Text3DBox[ FormBox["16", StandardForm], {-1.788506586644012, 13.022373661088087`, -0.02925378145732971}, {1, 0}], Text3DBox[ FormBox["17", StandardForm], {0.489414647789555, 11.621232035852536`, -1.68930758680601}, {1, 0}], {RGBColor[ NCache[ Rational[1, 3], 0.3333333333333333], 1, 1], Opacity[0.3], SphereBox[{0., 0., 1.2961}, 1.2961]}, {RGBColor[ NCache[ Rational[1, 3], 0.3333333333333333], 1, 1], Opacity[0.3], SphereBox[{-2.2832742569128253`, 0, 1.0875}, 1.0875]}, {RGBColor[ NCache[ Rational[1, 3], 0.3333333333333333], 1, 1], Opacity[0.3], SphereBox[{0.473882316936199, 6.971834316791755, 1.2961}, 1.2961]}, {RGBColor[ NCache[ Rational[1, 3], 0.3333333333333333], 1, 1], Opacity[0.3], SphereBox[{2.727290054608442, 7.390531260134222, 1.0875}, 1.0875]}, {RGBColor[ NCache[ Rational[1, 3], 0.3333333333333333], 1, 1], Opacity[0.3], SphereBox[{-0.37512028472777914`, 4.570605187795081, 1.2465}, 1.2465]}, {RGBColor[1, 1, NCache[ Rational[1, 3], 0.3333333333333333]], Opacity[0.3], SphereBox[{0., 0., -1.2961}, 1.2961]}, {RGBColor[1, 1, NCache[ Rational[1, 3], 0.3333333333333333]], Opacity[0.3], SphereBox[{-2.2832742569128253`, 0, -1.0875}, 1.0875]}, {RGBColor[1, 1, NCache[ Rational[1, 3], 0.3333333333333333]], Opacity[0.3], SphereBox[{0.473882316936199, 6.971834316791755, -1.2961}, 1.2961]}, {RGBColor[1, 1, NCache[ Rational[1, 3], 0.3333333333333333]], Opacity[0.3], SphereBox[{2.727290054608442, 7.390531260134222, -1.0875}, 1.0875]}, {RGBColor[1, 1, NCache[ Rational[1, 3], 0.3333333333333333]], Opacity[0.3], SphereBox[{-0.37512028472777914`, 4.570605187795081, -1.2465}, 1.2465]}, {RGBColor[1., 0.75, 0.5], TubeBox[{{0.473882316936199, 6.971834316791755, 0.0004138948773504403}, {-1.3767138399951948`, 9.136492442760169, -0.011319882653069602`}}, 0.1]}, {RGBColor[1., 0.75, 0.5], TubeBox[{{0, 0, 0}, {1.4237888928831852`, 2.4662159947976874`, 0.00013321484173245413`}}, 0.1]}, {RGBColor[1., 0.75, 0.5], TubeBox[{{-0.37512028472777914`, 4.570605187795081, 0.0002255030110518419}, {0.473882316936199, 6.971834316791755, 0.0004138948773504403}}, 0.1]}, {RGBColor[1., 0.75, 0.5], TubeBox[{{-0.37512028472777914`, 4.570605187795081, 0.0002255030110518419}, {1.4237888928831852`, 2.4662159947976874`, 0.00013321484173245413`}}, 0.1]}, {RGBColor[1., 0.75, 0.5], TubeBox[{{0.03463532179801909, 11.536269141880382`, -0.06288512934630486}, {-1.3767138399951948`, 9.136492442760169, -0.011319882653069602`}}, 0.1]}, {RGBColor[1., 0.75, 0.5], TubeBox[{{2.727290054608442, 7.390531260134222, 0.0002804910126465998}, { 0.473882316936199, 6.971834316791755, 0.0004138948773504403}}, 0.1]}, {RGBColor[1., 0.75, 0.5], TubeBox[{{-2.2832742569128253`, 0, 0}, {0, 0, 0}}, 0.1]}, {RGBColor[1., 0.75, 0.5], TubeBox[{{1.268100398919057, -2.196638994879232, 0}, {0, 0, 0}}, 0.1]}, {RGBColor[1., 0.75, 0.5], TubeBox[{{-2.5623900210132162`, 9.035084825337556, 1.6699560186170959`}, {-1.3767138399951948`, 9.136492442760169, -0.011319882653069602`}}, 0.1]}, {RGBColor[1., 0.75, 0.5], TubeBox[{{-2.559361148898179, 9.019447040476722, -1.6935183538918448`}, {-1.3767138399951948`, 9.136492442760169, -0.011319882653069602`}}, 0.1]}, {RGBColor[1., 0.75, 0.5], TubeBox[{{-2.177290252557225, 4.235570185005809, 0.000388702763330917}, {-0.37512028472777914`, 4.570605187795081, 0.0002255030110518419}}, 0.1]}, {RGBColor[1., 0.75, 0.5], TubeBox[{{2.6079918797775323`, 2.5754100297558193`, 1.681870261262245}, { 1.4237888928831852`, 2.4662159947976874`, 0.00013321484173245413`}}, 0.1]}, {RGBColor[1., 0.75, 0.5], TubeBox[{{2.60807719544219, 2.575506999780597, -1.681642477037567}, { 1.4237888928831852`, 2.4662159947976874`, 0.00013321484173245413`}}, 0.1]}, {RGBColor[1., 0.75, 0.5], TubeBox[{{1.2127996638427367`, 11.642049687312937`, 1.4557099657339077`}, {0.03463532179801909, 11.536269141880382`, -0.06288512934630486}}, 0.1]}, {RGBColor[1., 0.75, 0.5], TubeBox[{{-1.1885065866440119`, 13.022373661088087`, -0.02925378145732971}, {0.03463532179801909, 11.536269141880382`, -0.06288512934630486}}, 0.1]}, {RGBColor[1., 0.75, 0.5], TubeBox[{{1.089414647789555, 11.621232035852536`, -1.68930758680601}, { 0.03463532179801909, 11.536269141880382`, -0.06288512934630486}}, 0.1]}}, AspectRatio->Automatic, AutomaticImageSize->True, Axes->Automatic, AxesLabel->{ FormBox["xl", TraditionalForm], FormBox["yl", TraditionalForm], FormBox["zl", TraditionalForm]}, Boxed->True, ImageSize->{360., 353.7101323760956}, SphericalRegion->True, ViewPoint->{-0.21525901935259212`, -0.36762333588830415`, 3.3568611287179753`}, ViewVertical->{-1.3018959461985335`, 0.5105934926605548, 1.8348776233048953`}]], "Output", CellChangeTimes->{ 3.576388759505222*^9, 3.5763922800014057`*^9, 3.576392394989208*^9, 3.5763926941353335`*^9, 3.5763932060970325`*^9, 3.576393377073333*^9, { 3.576405782116083*^9, 3.576405792193701*^9}, 3.5764196786833305`*^9, 3.5764693349052496`*^9, 3.5764698006908674`*^9, {3.5764703131205673`*^9, 3.5764703693898664`*^9}, {3.5764704080935345`*^9, 3.576470457935622*^9}, 3.5764704887612762`*^9, 3.5764707842725954`*^9, 3.5802090199865313`*^9}], Cell[BoxData[ Graphics3DBox[{ {RGBColor[0.4, 0.2666666666666667, 0.13333333333333336`], Opacity[0.8], SphereBox[{-1.3767138399951948`, 9.136492442760169, -0.011319882653069602`}, 0.255]}, {RGBColor[0.4, 0.2666666666666667, 0.13333333333333336`], Opacity[0.8], SphereBox[{0.473882316936199, 6.971834316791755, 0.0004138948773504403}, 0.255]}, {RGBColor[0.4, 0.2666666666666667, 0.13333333333333336`], Opacity[0.8], SphereBox[{1.4237888928831852`, 2.4662159947976874`, 0.00013321484173245413`}, 0.255]}, {RGBColor[0.4, 0.2666666666666667, 0.13333333333333336`], Opacity[0.8], SphereBox[{0, 0, 0}, 0.255]}, {RGBColor[ NCache[ Rational[1, 3], 0.3333333333333333], NCache[ Rational[1, 3], 0.3333333333333333], 1], Opacity[0.8], SphereBox[{-0.37512028472777914`, 4.570605187795081, 0.0002255030110518419}, 0.24]}, {RGBColor[ NCache[ Rational[1, 3], 0.3333333333333333], NCache[ Rational[1, 3], 0.3333333333333333], 1], Opacity[0.8], SphereBox[{0.03463532179801909, 11.536269141880382`, -0.06288512934630486}, 0.24]}, {RGBColor[1, NCache[ Rational[1, 3], 0.3333333333333333], NCache[ Rational[1, 3], 0.3333333333333333]], Opacity[0.8], SphereBox[{2.727290054608442, 7.390531260134222, 0.0002804910126465998}, 0.178]}, {RGBColor[1, NCache[ Rational[1, 3], 0.3333333333333333], NCache[ Rational[1, 3], 0.3333333333333333]], Opacity[0.8], SphereBox[{-2.2832742569128253`, 0, 0}, 0.178]}, {RGBColor[1, NCache[ Rational[1, 3], 0.3333333333333333], NCache[ Rational[1, 3], 0.3333333333333333]], Opacity[0.8], SphereBox[{1.268100398919057, -2.196638994879232, 0}, 0.178]}, {RGBColor[1, 1, 1], Opacity[0.8], SphereBox[{-2.5623900210132162`, 9.035084825337556, 1.6699560186170959`}, 0.12]}, {RGBColor[1, 1, 1], Opacity[0.8], SphereBox[{-2.559361148898179, 9.019447040476722, -1.6935183538918448`}, 0.12]}, {RGBColor[1, 1, 1], Opacity[0.8], SphereBox[{-2.177290252557225, 4.235570185005809, 0.000388702763330917}, 0.12]}, {RGBColor[1, 1, 1], Opacity[0.8], SphereBox[{2.6079918797775323`, 2.5754100297558193`, 1.681870261262245}, 0.12]}, {RGBColor[1, 1, 1], Opacity[0.8], SphereBox[{2.60807719544219, 2.575506999780597, -1.681642477037567}, 0.12]}, {RGBColor[1, 1, 1], Opacity[0.8], SphereBox[{1.2127996638427367`, 11.642049687312937`, 1.4557099657339077`}, 0.12]}, {RGBColor[1, 1, 1], Opacity[0.8], SphereBox[{-1.1885065866440119`, 13.022373661088087`, -0.02925378145732971}, 0.12]}, {RGBColor[1, 1, 1], Opacity[0.8], SphereBox[{1.089414647789555, 11.621232035852536`, -1.68930758680601}, 0.12]}, Text3DBox[ FormBox["1", StandardForm], {-1.976713839995195, 9.136492442760169, -0.011319882653069602`}, {1, 0}], Text3DBox[ FormBox["2", StandardForm], {-0.126117683063801, 6.971834316791755, 0.0004138948773504403}, {1, 0}], Text3DBox[ FormBox["3", StandardForm], {0.8237888928831852, 2.4662159947976874`, 0.00013321484173245413`}, {1, 0}], Text3DBox[ FormBox["4", StandardForm], {-0.6, 0, 0}, {1, 0}], Text3DBox[ FormBox["5", StandardForm], {-0.9751202847277791, 4.570605187795081, 0.0002255030110518419}, {1, 0}], Text3DBox[ FormBox["6", StandardForm], {-0.5653646782019809, 11.536269141880382`, -0.06288512934630486}, {1, 0}], Text3DBox[ FormBox["7", StandardForm], {2.127290054608442, 7.390531260134222, 0.0002804910126465998}, {1, 0}], Text3DBox[ FormBox["8", StandardForm], {-2.8832742569128254`, 0, 0}, {1, 0}], Text3DBox[ FormBox["9", StandardForm], {0.6681003989190569, -2.196638994879232, 0}, { 1, 0}], Text3DBox[ FormBox["10", StandardForm], {-3.1623900210132163`, 9.035084825337556, 1.6699560186170959`}, {1, 0}], Text3DBox[ FormBox["11", StandardForm], {-3.159361148898179, 9.019447040476722, -1.6935183538918448`}, {1, 0}], Text3DBox[ FormBox["12", StandardForm], {-2.777290252557225, 4.235570185005809, 0.000388702763330917}, {1, 0}], Text3DBox[ FormBox["13", StandardForm], {2.0079918797775322`, 2.5754100297558193`, 1.681870261262245}, {1, 0}], Text3DBox[ FormBox["14", StandardForm], {2.00807719544219, 2.575506999780597, -1.681642477037567}, {1, 0}], Text3DBox[ FormBox["15", StandardForm], {0.6127996638427368, 11.642049687312937`, 1.4557099657339077`}, {1, 0}], Text3DBox[ FormBox["16", StandardForm], {-1.788506586644012, 13.022373661088087`, -0.02925378145732971}, {1, 0}], Text3DBox[ FormBox["17", StandardForm], {0.489414647789555, 11.621232035852536`, -1.68930758680601}, {1, 0}], {RGBColor[1, NCache[ Rational[1, 3], 0.3333333333333333], NCache[ Rational[1, 3], 0.3333333333333333]], Opacity[0.4], SphereBox[{{-2.9162967725022537`, -1.1395856496639458`, \ -0.00004285831419274054}, {3.192508220343423, 8.608291150843012, 0.0027026493671570267`}}, 1.125]}, {RGBColor[1, NCache[ Rational[1, 3], 0.3333333333333333], NCache[ Rational[1, 3], 0.3333333333333333]], Opacity[0.4], SphereBox[{{-2.9536676464558553`, 1.1180096881822639`, 0.00001968767121723845}, {3.5491206411577862`, 6.3787815587663435`, 0.018446084698821735`}}, 1.125]}, {RGBColor[1., 0.75, 0.5], TubeBox[{{0.473882316936199, 6.971834316791755, 0.0004138948773504403}, {-1.3767138399951948`, 9.136492442760169, -0.011319882653069602`}}, 0.1]}, {RGBColor[1., 0.75, 0.5], TubeBox[{{0, 0, 0}, {1.4237888928831852`, 2.4662159947976874`, 0.00013321484173245413`}}, 0.1]}, {RGBColor[1., 0.75, 0.5], TubeBox[{{-0.37512028472777914`, 4.570605187795081, 0.0002255030110518419}, {0.473882316936199, 6.971834316791755, 0.0004138948773504403}}, 0.1]}, {RGBColor[1., 0.75, 0.5], TubeBox[{{-0.37512028472777914`, 4.570605187795081, 0.0002255030110518419}, {1.4237888928831852`, 2.4662159947976874`, 0.00013321484173245413`}}, 0.1]}, {RGBColor[1., 0.75, 0.5], TubeBox[{{0.03463532179801909, 11.536269141880382`, -0.06288512934630486}, {-1.3767138399951948`, 9.136492442760169, -0.011319882653069602`}}, 0.1]}, {RGBColor[1., 0.75, 0.5], TubeBox[{{2.727290054608442, 7.390531260134222, 0.0002804910126465998}, { 0.473882316936199, 6.971834316791755, 0.0004138948773504403}}, 0.1]}, {RGBColor[1., 0.75, 0.5], TubeBox[{{-2.2832742569128253`, 0, 0}, {0, 0, 0}}, 0.1]}, {RGBColor[1., 0.75, 0.5], TubeBox[{{1.268100398919057, -2.196638994879232, 0}, {0, 0, 0}}, 0.1]}, {RGBColor[1., 0.75, 0.5], TubeBox[{{-2.5623900210132162`, 9.035084825337556, 1.6699560186170959`}, {-1.3767138399951948`, 9.136492442760169, -0.011319882653069602`}}, 0.1]}, {RGBColor[1., 0.75, 0.5], TubeBox[{{-2.559361148898179, 9.019447040476722, -1.6935183538918448`}, {-1.3767138399951948`, 9.136492442760169, -0.011319882653069602`}}, 0.1]}, {RGBColor[1., 0.75, 0.5], TubeBox[{{-2.177290252557225, 4.235570185005809, 0.000388702763330917}, {-0.37512028472777914`, 4.570605187795081, 0.0002255030110518419}}, 0.1]}, {RGBColor[1., 0.75, 0.5], TubeBox[{{2.6079918797775323`, 2.5754100297558193`, 1.681870261262245}, { 1.4237888928831852`, 2.4662159947976874`, 0.00013321484173245413`}}, 0.1]}, {RGBColor[1., 0.75, 0.5], TubeBox[{{2.60807719544219, 2.575506999780597, -1.681642477037567}, { 1.4237888928831852`, 2.4662159947976874`, 0.00013321484173245413`}}, 0.1]}, {RGBColor[1., 0.75, 0.5], TubeBox[{{1.2127996638427367`, 11.642049687312937`, 1.4557099657339077`}, {0.03463532179801909, 11.536269141880382`, -0.06288512934630486}}, 0.1]}, {RGBColor[1., 0.75, 0.5], TubeBox[{{-1.1885065866440119`, 13.022373661088087`, -0.02925378145732971}, {0.03463532179801909, 11.536269141880382`, -0.06288512934630486}}, 0.1]}, {RGBColor[1., 0.75, 0.5], TubeBox[{{1.089414647789555, 11.621232035852536`, -1.68930758680601}, { 0.03463532179801909, 11.536269141880382`, -0.06288512934630486}}, 0.1]}, {RGBColor[1, NCache[ Rational[1, 3], 0.3333333333333333], NCache[ Rational[1, 3], 0.3333333333333333]], Opacity[0.4], SphereBox[{2.5413936804492883`, -1.9439930410068949`, 0.00006639159789333312}, 1.125]}, {RGBColor[1, NCache[ Rational[1, 3], 0.3333333333333333], NCache[ Rational[1, 3], 0.3333333333333333]], Opacity[0.4], SphereBox[{0.9447251549845481, -2.8657357574037947`, 1.06435098821289}, 1.125]}, {RGBColor[1, NCache[ Rational[1, 3], 0.3333333333333333], NCache[ Rational[1, 3], 0.3333333333333333]], Opacity[0.4], SphereBox[{ 0.9448247448613702, -2.8656782650425914`, -1.0644173798812024`}, 1.125]}}, AspectRatio->Automatic, AutomaticImageSize->True, Axes->Automatic, AxesLabel->{ FormBox["xl", TraditionalForm], FormBox["yl", TraditionalForm], FormBox["zl", TraditionalForm]}, Boxed->True, ImageSize->{360., 343.59500230335914`}, SphericalRegion->True, ViewPoint->{1.4248497783174867`, -1.8191652876472943`, 2.47193057456065}, ViewVertical->{-0.4000993860429309, 0.06747573864427747, 3.8210512836067165`}]], "Output", CellChangeTimes->{ 3.576388759505222*^9, 3.5763922800014057`*^9, 3.576392394989208*^9, 3.5763926941353335`*^9, 3.5763932060970325`*^9, 3.576393377073333*^9, { 3.576405782116083*^9, 3.576405792193701*^9}, 3.5764196786833305`*^9, 3.5764693349052496`*^9, 3.5764698006908674`*^9, {3.5764703131205673`*^9, 3.5764703693898664`*^9}, {3.5764704080935345`*^9, 3.576470457935622*^9}, 3.5764704887612762`*^9, 3.5764707842725954`*^9, 3.5802090200645313`*^9},ImageCache->GraphicsData["CompressedBitmap", "\<\ eJzcvXd8VGX6Nn69wXXt3W2uq+7a2659de0CKkjvBEJHanpPZtJ7BwRBQUCQ XgLpCQmkkZDee0Lv6qr73fK18F5POZOTYeJv339/fLgnk8nMmfNc93WX5zz3 uZ9Rc7wXLVg+x3vxvDn3v+s5x33R4nle9w938+RLQ/4P8H8WUabeD/H8CmA8 XOH/K4vFg3jl/5/P1Y8hUAOWf8EPg//pZv3av//9b2zduhXl5eW4rN7+ofhx jXizetO18k2TJ0+Gm5sbXFxcMG/ePPzjH/+4aHq/6fD9n7zO9smCggK0trYi IyMD6enp8ghnzpy5oD6wSPxwEp+7Sb5ww4DPiVeMz4rn33zzjfwbT/m8/edv NA1LvEcMzUmfy7fffouYmBj5m/j7rl275Lnq0ZwdHKzr5OOtOHHiBFxdXVFX V2ecgfyLcWTzt4rXTSPFGXV4L/njRnmId999V3zxgEGJrxC/L1y4UL5WVVXF k1Gn1N3dbfva0+pwnvpPAifjcNfq10JDQ/HPf/5T/naNfjS+Rpwh33tSHcXD wVF+6eAoxpGNcYn3qdOFu/6TANU4xHX6tX379qGzs1P+ZhxWjD8sLEyO5bg6 hKs+R4FiXFyc1EBWVtb1+hPFxcUSjX6FDDFTAX3qKMv115h1YTdq20mYWXW9 CSHT+HrUUZfZ8UogNcQBGtc6OPKNdu8TbOhWh13q4LC/MCEkXhO/Ga9dvnwZ q1atkr/d5ACDLnXYJXaHFbDdol8zW8FN+uBma0hLS5Mj6RhoDoKX4lDiT7c6 ONSNDmC3N4F2k7XyWw0TEDQwvtU4tJl1N5gGahDAyYFJtJnd0bUDyGw6E0ff cJtj62hRB1zowDoM3X/55ZdXuVQz3e9wwJFmddgFDizmLgeHuNOBxTSpQ8yz sxghPMzdDizmLhOIBmCN6ihjbP7+VtPxxJvEPx7vVw5Ifbdjc6lXhxzrICTc YhdMBJzik3pMdzv4kl87sJw6dcBxDty0YRHmb3AyjVu4bjMWZv7+xgE+teqr xjv4qhvsvkrA/LtBD/sLW+Qwc7168MMbPs/4mPj5e/2aiAzG+36lrc4+mpjp VmXSMq4Z8DX8ZwxEHEGrG/c6MJFfmfAxvsWRER4zEcCp/wuusVmPfqOj7/i9 YzOsUId0dmDXBvv8/f0NeMym8wcH1ndUHW26A+sbYkLdgMhQqtmW7jMd1rBI lQhgqmOLfMDBUe53wLgydZTHbejpczL+SZY8ZMc9AdOfHFjPA45N9Hbbwfer Yz/hwFid7F4T8ic776CP5+ir/2QHvDBcw7nYEXCfevKkNhTzX42TeXAQzyGO TNT+6MDuHtSvXbhwQR5CgHvLz57Af4uCoUqz5Ts5Ju79Dk7sT3osRjxlgmN2 Cjf97DmaePGLAbwwnhtQmP3GNSaeaVuxDcJsfX/UvsTsR+x9yY0/e3p/cQCX YStmD2WkX+Zvuc/BGT1i+qxhITf87Bn82QaQgb3giuHXHteviQzKcBGPOlbd 9fZGMlbz0+zGjHTyMQeux/guM3p5Zk987QDXYwBN5RhHM/uKJ+yOJpDIVUcb ZbJKcUTtcZ5yYJVPOvA4OeooHzjwKX92cIinTHAJyuqhZamjjLQ7igDLIIXZ CP5sNxzhHjLVIV62AW+fjOhxD368a2wk04NTp4y/OqbMzZrvZkO2nygYJ2qO uU/pz5nVJz5nDu0HfvabjTzFbKWOYs/TDmziCRMqpgDjaC6S/rMnYcxKzIb5 wqBfOEQ6KiOpt5+iCCLt/9lvM9IMc/B+0YHZPO/YHPf+7MGvNx1c/BNO/yUH B3/BdHATUHvsmXe9HqShYXOcN07abJ0v2YEv3rdbHfRtE8lM1ilfNVJSI8E/ llOIGkp9ThEjSgMfh6CRj/XZhfIdv9On/5///Ae5ubmS/dTSXx1Y9S717W85 sGqV/F6HM129qMstxAZPC7Z4WrHdMwS7Kfso+z1CnJDuEUIM9ruHYK8bxdWK Iys2oCWrUOeC18oTEVQRzkE4CfG8trb2ryaYBWwa5h3qnN504CMUAjfgXHcv clavxxYvK3Z480spBylZXqHIpeRTCrxCnXDIM5SgHvLgS5Q891Dk8ByzXUOQ ucyKTp6jAapxjgIVI0wL12GcNwF8yWRS4p/2SNvV+b7h4HzVrO5mnm8P8ni+ W70t2OVtxX6eayYl1zsUhyhFlCPeYSihlHmRQBQnlHuGEf8yPpby5Et48ocp RRzAoeX87FILvuzsvU1zUJx/ICP27vWbUSfIYCPHNWjILsLGtI8MIryg1WK4 FbND4/C3qfG8rg9sjMfw4sIH36bHdZ562OodTB1YsNfHigwfnpcvx+TD8VBK fcJwlGOq9A5HFaWaMgQ1fLweNV78neM8Rqmgmso5xlKOr5jjO0zl1KSs1673 VtQI/sUkwnPREqx1C8AOEwf3eUgeSgLuo3y8zBduHy5G+rqNuNjZi+c0j4XR mRMJO1esHBZe03ZodrniFbMHU/nhPchf/QlHHozdPhak+1qR5RuCfMphX2qM UkE55huOGp9w1FEaKI2UJiF8vdlXPW/Uf6snUrVkQhXZKxA5ytGU0Zwa0tZr v3g96onEZi8LEpZ7YdmHi7CTzw/yM4L5OZQ8ihPy+enrUGCifbpbMKyLliFi kSsOJ6/D5c5ee28kwNmiUHjVgc8f4jiiq/BwGw4RjF0EY68vT4hg5BCIQ6RC MUEo50CP+UaghlLvG4lGSrNfJFopbZR2vygndPhFOvFZBIfaxsdWAQ4/20Aa CVCqvUJQRXVXuFlQvDQYX3X0qGtoN6IhrxCfk4HbaVkpxGU5cdlPz9BvXWHS uoqlVZV6hfFBmlYJwSkmOEcoHy3xhO+HS7B3aQCqUjfgckfviyYUDN1/rgD6 m4Mwda3p7QbJrtfoNOcdwh7vIOz3DcYBjU4hR1fCUR4lKlVEpM43ishEEZlo IhCNdv9odFK6AmKuQU9ANEfaExCFbv9IvhyJDv8Ivk2wSIFUR39SQ/9c5W5B MxmjYu9vUbBmPZGxSIlf5oHQJcuRQaSUjYZJGy2nRVZQhJ0e07ZaJe1T/CSL PftttIDH96J9bV7qjUL6oK9oYy/aRWOBFCHZpMB6xQFYyjM+gIv0jHu9A2k/ waSNRdNGAVNBUKoJSL1fFJoISKt/DEcdQ0Bi0U3pDYxFH+U45YSQICExfB7N 16L5t2giFsn3k2L+4aRbGCkVSrRCUE+7qXYPJlKfand/K71ZD1EKwi7asxD3 RYuRuMwdBfzMYYqw6aPCpmmr1T79dl1PcZIWfKPJlvk3cq5G2/NhDwsiFy+D P5E7tDwItSmfDkDNZIRP2/ILd1PCwffZrUMoCG/HHq8AHPAJQqaGr4CnWEwL OkrLqvYT8EWTUzFo848lfIQuMI7QxaEvKI5wxeFUcByVczo4zokPsZyQnOLj SY1jX2AUugIV21r9w8i2UPos+iTiV0OfcjLrEC4Qt53EbQ9PYLfGbY2bFwlu Nn9iRqLXUacNhgugtAg34KtcQSv/3ipNPwItJvOv81Hmv36pJwKI34FlfmhI /dRRNmXk4ebET13o18nX1RmW8XFhtiqu3Y22vAIcICszyMpsDelhnlU5z7KK cNYTzia/WLSShZ0BcegJjCec8YQzgeglEMcEnBViicc5ynmKk3x2D1+Pw2mL gD1GsrU3iCZOlNsDOGoi3OIXimai2OgZjEPzltOpBmIfz2OPT7BE9jN3XxTZ uY5aiSqtxDean+93H07SgdyCLulGhDuJ0r4jUrraVpP/qKf/KOd3+hDh7Uu9 zAibzfppB6k1RUKuVxgNv2nOJoeYDmVEYTVxu5O+2p+ZQxCRps/m2RRyVKUc TSVHUUukGyXSceggygLp40T5pEQ5kQgnEtdEnLcm4gLFCRetieIhgbPY81al gjMCbgsdBSHvIdydJHSbDe4QNNM17hw1BdtmzMfnnv7wW7yEKUYgTyScMEdI R1TFE6rjCTVSWvyFNSln1EkRzqjH5JD6AqlWGk9vQLR03N10210Ccn8FuXBC jXRCRz2D8NlSD0nq840tRn5pXIvSdv6kzR8MccButUhim5GZs091pfwutOfm 0+MHIttHOAjmBBzWYQ6pnGypIr51fnFoDohHO7HtJrZ9QYk4QWxPW5IIXxLO WZOIbRIuhiTjUkjSEFwOScJ9fEzkrwk4TzlrjcdpK/0Jke4lyl3BJCBJ3SJR DsWuMVOw6e2RSB4/WYbng3Qhh4hECUlYIfyUb7T0U008nVb6qHZ/ZVhmX3Vc +yvh5p3ooGKd5NMbpZ8XcAuY2wMiZVRsEb6eEDcx0m1c6i4hLjmYCSP3FdZu 5HemqwtP/DdYP+8A619prNO9/JBFX5jD784jzoeI8xEO7igHVk0eN/jHEZQE cjmBVEwkJZMUzsT3vDVZY5xMcJPxZWiyE74KTcYf+JjEX5NwOVSogZQn5mfI 7pPEvI/M7ibmHcS8lcw+ysC86Z2RiJ8yHUvnL8Aul0U8jXDGBKqc8UA4sDpf 7cB4Oh3EuUublnJi8TSveDqoeBER+HCGv93KxzgRJQTy1EWMhF05LrpufwV5 M4fdzNBw1D0AfkuXGTMnPGsyfwG7cAGOVgUeczxxd3R9VStDXqGUHzAu29pd dr5b+/SLXd3IYKjMobHnMufJp2EX0qhLCEUFoaghFI20gtbARHRSM73UzElL MmFOpgUk40JICi6FplANKVRHCr4OS+F5/Z2Pf5DPvwqjxigXqaLzofRMoYwF IfRWlB4r6Wyh0wiOwq4J0xE5fQaWUTWfvzcee8fOlNZYRtUco2pqeC7C47UI j8fz6SJTemmVx3lOJ2mVpyhnLNLziZCSOIQPCVSPcHRSPcHC0dEhUUWdVE8b KdEi1ROKFppds1cwyt39kbltuzEhhOF57OZED9uswcn2zLTQIH5ql/9HOwX1 XzcbOM00xeq7tF466J2yvIKYrXPuyMwpn1gU0WJKfWMZAeJQ65+AJuqkjePv ok76qJNT1MdZ6uO81EkqzSKVOkmlHlKpkVSe7jd8vFdqR+hG6OUS5UIYLY26 OU3dnKBeemk+XTSfMldfuM6bjwhnF+wYOpYyHrsoR8iPo9JLxqKeLkl4yTZa b6ehk2Clk9M8rzPCU1KcaMdJ9ATSY0rPKSJTggpGwk1ST8pNxqKLwag9KEqa bb+OLGgiHh0frbv6YsnA2dqTg5vFPTazuMbBmxxd0zMvgBoXrO7UOir/aC2y yRsxo8r1jkCeTxR1FINS4nLMPx61xKSJ+mkjDt3UT581hTpKoZtKpT0o/XwZ lkZdpFEnafgmPI3f9y0f7+Vz6iyc9kO5TLlAPZ2jnk5TTyeopz7qqZW24057 SZjiLPWz851x2EXZM3Qicme6KvslVxp4LoZ37eb59EkbFh6WfDHsmOIk/Ow1 IphxIqL8aaL2pzRYKqeHpOikAbUFGTGMmQITwRbOcBs8AyQsDq8ODZwt9q/D qEoL23KTWRnmq5KGMn4rX3sBGR5+nNbTYXEqoYCPlsCXcbAC+DoaRlNQEtqD kyXwxwXwBP1cqAA+DZcJ9lcC9HAFuoD8uwj189uINAn+1xQB/MVwAkQ5Q/BP EvzOkDj4MxNKnThVgT50HGU8dr8zHvvemYh8FzdtoPF0nAnScXZpx3mC52KA fj5EO0/tQJ1IhxTOW4QjvczoJkQ6TWrjLPVwino4Tj30UA+dNJI2xrWWIBpI QLjMJVo4zWhiOnOOjsMgbWFhoXRm5iu65qz1o8Hhv84B/L/TvM/0YLyQVxLC KVEokPDTX/jF4xiHXBeYRPiTFfyE/jihV/CncagC/hXk9QrCv4JQryDkK3jK 3/HxXqmGbyhfR9A2KBepAgk/pYbDjVy6HHuXeWL7sNHYOWw8ZQLhnyg5v5/w H3JxZ7wgBWz+McnmH09aUkhnYX+0J2GDIcoGnQh6Kikv4tdX0i+qeHaJKrgQ KnwjbYUqOMH0opcq6GLcamdq0SpUEKhVwIS5xTcI3WvWmdcitJsaEEpMvmql KVoPfmHemOEKNUoPxrlEpkcgcjn7y/UydBDDeBmHMn+hg0TUcdxNxL+dY+62 pkodnCb2UgfE/0vK14YOIpQO/kH5ToqhgzSlA8p56qEkIAxenGu10wSK5y7D rmGk/rCJlEmUydg9dDLSh05Czvj5qBJmGJAo/V87z6Wb59LHczlJ/M/wXM5r /AUfvqR8FSr9oJMMVrdRDalSFZcpF6iGc5TTVMMJqkG4vm6GqA56o1Z7K/AL 5hzC36jXE85o3bp1cq5lckbmufEKU6iWPuk6HaDNM2LTB5QR/ApZQgGeWgFe Ucj3NhSQgGOBjhVwSiiAfueiUEC4VoAG/7tICb6TfPJ7fMPHryMF/tQX8c+m eXsT+y76/uNhiciYMIP4T7Bhv3PYFOweNhXp/Jk7YQHxT5BusNnmBlNsbvAs 5YLhCkOlK3RS4AuHeLt0fV8J90fwL1LOhfW7v+O0gR4qoJMKEPGnhblbSyBD AbnR4m9l+hyAb5m6/uJnXJDBZwF/moLfWCa7uvB0YO3Rbw0X5E70PcSyRoRC 3yeWLigOpQPQT0GbJZXmmoo+DvNU6AoOZQVdygp6drqgiJVEfyXRX0nkVwoX FLkSN0kFfGvATxFXkgT0vRz+qfAkCf/2oaMJv6D+ZCc+TBUXnCT6U1E42wtV ZH49vWCz9IIpGv1UjX4a0e+3wq9Mlugkw9HtUg8qABkekFZDLZyiFo7zNHqo BRGI2mgCLYYJBFIDAcxk/RgE8vNtF16NgCzc0POmqz0CZsFtsXJhWmdCitLI 43YaEYHgPs19gX6OB7nvaaAfg0I/hX4l0a8l4Zo45DYSrotD7gtR6J/lUC+E r+SwVpJgCv1vhAaIO7FX3L9Hgn+BIw9evBQ7PP1xgoCfjeDoGQOOE4EdQ8cQ /EmS8wL7XcOmYe/waUgfbkKfBGjmaXSYzS9E+b8LPBUDfSeJ/V02Pyjw/7vw ffz5pURf+b6zZvRDBfrMeRkHWizRygaC6IACOc3zD8L5/PxfmhyQ4LKeUpgn fPa1mObV/GSlg8cc6OB+bQEH3agDd+rAI8Lmf4qogxLqoII6qCH1Gjn4Vg6+ k4Pv5cBPcsBntA4uUb4k9l8LKyD+31CGSE3cyL8p8PN8rdL5nKecjUjRCkiU ec8u6XSmQtB/OlOIvcOnI/3daSicQwUECgUkUwEp9H+pWgFpOgDx+3kOl7UP FDz4OnylBl8pQfhEFXzS+hVAORWmCNCvgDgqQDuhYDqhoFBORoJxriD/ejv/ 0x+EB06tkxTSjzpA+gGNdGd2YT/SnlHMNmNwiEgXE+mjHGk1R9rAkbZwlB0c ZQ9HeSJUIV043wfFlDWk6nqitYnyuURt69CpnP9vfncqp1gL8KnzQlTO80Yb o4lEO9yEtkjrJdWnSax3DnPGHqK9/93pKJBoJ9HfGWgLuqdJtE+Z0Jba1lYn NR6uLM8e7UsUYXpmtHtl1pvQj7ZFox1MtAMl2jc48DXmlMdUi5CgAFfFSf2V nWJubejkfp3jdGQfQrYbgXcPV8CT4gV08keYW5QT+CoOup6Dbuag20nxSvcw bJs4n2BPxobhU7CF/mAHAd5NWu6T/mEaDhDELWNmwG/ufKyd6IL9VMOet6dg 11uTse3NSTg6x1MC30fgt701ZgDwu4Y781jO2PvedJQxzzWAV65OBxqTqztv Bj5C0Zwuz0kif7vGnVZAkbgP0LvGnUxvo6NvEa7GStwtBu5BAndbRZkA3qC6 g0RH+PV4BfzDOr13dAeFKQzcp6dama5W5LhxmuUZyTwzGvnEv4j4l9HHHqOP Fa6+2C0UW4n7x8MnY/27xJ2yk7jvJe4HKVmUHJI1j7J54iy4cs6a9b4zCohr /lD+jZL5zlQcpB72vzkZu96YhNJZ7sgY54JdQyf3E5/473pP6GC6+n4z/jLQ pxH/FcxTDPxX0n2ocGPTQYRwcyLw3KbBp4uhKKNjjKAClIsxgx+jwLcq8JuC gnCmIO9mk4sRSabZxZirzW+zrQT4KhUYFajmudU1Jo2JDwq7UPW3z6E8bQOy XakDD+rAK1omO4Wc45QECFefhP2zPfARk5F1xH/ju+Qx8d9DzA+8R+wp+cIt E7NSysaps+U1g5KRzqigEymhFNMujhDjQuoh/50pyKEeMmkPB96YiO1/HYUv Xh1j08EO6mAHj5PFOFvqn8hwn6RCTbARatLQG6Ic4OkwkXApHRjhxklowUmq gRYQKbIwZQH9SjAsIHmgEkJMSrCEooFK+HtPt+36pt11hxdNkdbwK8bdBOZp ltfAKbBZJcpS3sWlzl5kLhc1Mv3+v8BPuKEEfDZuNt3NBHwyfBI2EfrthH4v qZ9B2HMoBYTqiIb+Y+c5EvpyQl9HF9Lw/nQ0vj8Nx/i+o1RRGdVQwthQRJeT T9rnvD0Ju18YgY0Pv45tr45j1J3Kae80bOP7lPoTpfoF/A00gRaaQAdNoIcm YMAvzSC8XwWXI5QahCl8Fal/ms2AJnDG5INsGgjVGggRGginyw1BbVAgbrcL s+Ky6SALuLcNjr5R72yuCXxUB4HytI3Icg1X5GcAyPeNxfpxsyTqn5L0m9+d RNQnE/UpRH0qcgXhSerDRPzw+zPgTcRXz5iLoyNnoJ5Op5HSPMIZLSOmo3Xk NNRqDVTws2U8xhEa0SEml/nvTMS2x17Dlkdex+fPj8Q2or/fxQOHfON15E8y BaBUtBP5bhK/j8ifktF/JdP2lQp9onwpoh/9y8IEBOlv4VOR4jBQR2jgw/qB 7wiNR2soHX9oP/BNFivaP/3EoLLpUqgNd4PDOpm8dXDcH3Aw1TUVKqgY/Swu dfTh4LIwZLtHIof+59MxM7F66Disowo2UgVfUAV7CN1BA37GyEP0E4Ua/s3T 5qJ2xEw0UJpGzkQLpe2DGWindHzgzOfO/Pt0VAtVvD8V5e9NQTFVWjh8IvY9 8zZ2Pv46vnjsDWx5bRxy6fsKqILDVIGKQcmMQSnEJVXFYOF/CP+JMG0ATCnP hcuU10nq4Q6piUsy5moJF7GXKiD3T1MFJ8JE+E9CN3nfrwKm+aGRaLaGod5i walDBXc6djzPaUzt61s1rjfZrjPoYHC/3ZTMKBI1rEf8/qgOBCWpG5HhGoF1 o2bgo7fH4mMq4VMqYQu9zy4qQOTf2SIrZJDMGzYT+e+5wIsK2EQFVL/vgroR Lmgc6YLmD1wIugvaR7mgY9RMdPJ4XaNnoIGeqZ6KqBlBRYygIt6fjOL3qNxn 3sKeJ1/H7ifewM7n3kPmggCZCBRSCTYvFKy9kNXwQsoWTkpFrCS5V1IZyh7O UyFDiLkwgAvhwu8r9M/aNMDshwlYV1gC2sPoebQGmkMj0GgNRVVw8K/sHI+4 vvCsKbUxmO4gtbnBgUH4KGUYZfTmaYARmc1VcsoynsGGiQux6s3RWENlfDJ0 PD6j4/iC7nsvM88MmfHMQOF7M7B7zGwEzl2AbZPnonLELAI8C/UfzEYTpXXU bLRROkbPohKEuKB79Ew0UymNtIy6D2gZdFR7//IG0h9+CXkPv4j0B57Dgaff QsZrY7H3b2MZkmI5JaFjYkZQrh1TnZ1ViGmJuAwiLOOUUAqVcEZec6CNOEkj uYWPaVILZ7QmTmpb6KE2OsI445LaiKEmotAYEo5aawhOFxYad5pdfclz4Lz2 Bhv7NeB/cAD409rtiCKo7QuXYzUBXvf2OKynR/6ccXEHY+R+piJZdDMF787E FxPnMKVciPyRc8jY2WTuHNR8MIcAz0HTqDloHT0H7ZROKqGL0j2GII9xQQuB biL7G0bxOK+MQDq9ff6jr6LyiVdQ+dQryHzwRWT99X1kvj4W6bQWwXjhdkrJ +MogxfhGyXhOP+xAPh6mmH8qPM2JQKaJhWI+npZCaMOYaYYJeHW2aSN7PFrC YtFEsjfS3dSFhKGCHv+3dtczdag1khzzhDZUAXuzA5LfbAe2uAKhSoPuQsnq dTjoHYi9izyw7q3x2MjkQ0xRRc6Xzgln9vCZWDt1LtwI9CECe4RAlxHoYyMF 2HMJ4lw0j56L1jFz0T5mjhM6x87BU+hiftRBvFspTcS7nsTeQ3d+8ImhOPLn 4Wh8cRhaX34L+Y+/guznhiLnzXE4+MZYZH8YqAit59hVxLvOhjdJHSLm2qn0 0QrzXom5IDclXFzpEJLK31P5eorMJnuFT6d0EmwBdDO53BgWg3pyuZaepZK+ /QTdyT0OXIt9KZ+ezFoHB9u4Odh866IxFVP3QDxPhnfjgLc/snxUQVX6Ih98 xsT7i7encuIjgJ+B5OlzJbsLCHo5Aa8g4KUj5vLnXNQQ9DqC3kRpIfBtY+ei g9I5bg5/kvWUlrGz0Uj06xi0s557H1l/fh+HXxyNxtdGoe3N93HsxTeQ/fxQ 5L41DtlvjUUGY0Ke9O1qgmFGX/j3ZqtK9MWEuzNUaCCVGqCEpToR4lSC0Rua wmcpfCmZf04ms5PoPBLRStCbCHo9GV4bFo1qMrySTqRpw2e2myavvoIwcBZr UYjLy8vX2Nbg5bObdOR1dDcndaZA/xNKV69Fpqz7scqqbFGPUuQbiT1jFmD7 8BkyRQ+dNR9ZIxXLyyXL56Lqg3k4RqkaNR+1o+ejYcx8NI+dj5Zx89BGEcC3 jxMyh6/PRv1Y+nm6mZLhzIyeHYm8v47DMdK7+Z1RaHxjKGqWePPkBey3cLZF 4En5XDvgjwWrGXa9hdS3KlfTGqLA7wgl4J2E+mZ08bGTQAvpCE1Ce6gAO5EM TyDD4wh2LKrI9GNk+lEy/Qhj6H2Or1Caq3uNCWywwvxGO5b3Yz5w3vSMfO0O HPTyQ7Z3EFM2UfQTxrQtUpYOFPOn18LFiHWeh8zhsxgkZ6PofYPV81BNkOsI ciNBbh4zX9VX3Edyzye2CutW4txCaSTWtcS5acYS9HhaUTFlCfa9NAZ5b4xH MXFumjwKLa7uKJ+xmNMpEpxx+qDzMmT4xCGX7kUkMCpmKpdeLfC2JGm8k0n2 ZGbeyYSplY83MhVMYvhLpH9OQANTwzoyuprgVjIkHqXPLiOjDzNL/6q3z3aT oPkKpKNZaZACsz8xvHFQTJ9HW24eMm3lOoK8EZyRRKHQJwrei5Zgi1uAXO4v ne3DTHA2CojrEeJaTlyPEdMaYlpH4jZSmsYuoHdYIOFtHaeI3ERpILCtM5eh a5GfKtkJScApUQFgjcP292bh6EzG1LlTCPoEWQFQPmORBPbAW6OR7hWLgwQ3 h+AWENzDjJUlBPdoEAEmuFWUGgJcJ0FOckKDVTyEJDI1qOd31RHYWkoVwa3k nLOcmV8JwT3C6U8BZ/5f9vb9yURcw1OY8m7znV0mxxFgj7KRBZrz9Gd1MBTF N9lG8Y13GPJ9IrGX9ApavAw7PIJRQ4QbSJsWURTFEbW4haNhfgCqprqibNQ8 VBLpaiJcS5dSP3aBMpnH0T7TFceXBOCsd4SqvSGbLsiaqEScClG1N/tH09Uz zjbOnYEW55F6YTMENYs9kPHmKOyZ7499BDndJx6ZnAfl+iXgkH8ijmigy4ME 2EkSbOE9qix039ZEVFOqCPMxSiW/6ygBLiPARwhwISf2BQS4asNmXO7te8jx NcVn7LIH8xKdOcfzHzwmXqtjojHfNGapwgye1Qw/4OFrKqoJxyb3ILh+uAiH fKJkXUVNQDwaAxPQykEK7HvFwr41WS7sX9CFT510pd2LAuV3n/OOwrdMucQ/ 8fMbBiZRWDOw+CnJVvxUu9zCUDAbVbOZms+ZiJaFc1Wdi78FVYtccWCeJ3a6 x2A3lbDXOx7pVEIWlZBHthdQCUVUwhFKMRVRGpzohDJq4HqUEf8yK6dLlCP8 mqKQOGIei1xrDLKsUShbv9m23GOe1P/Z5I+NcrFrHHgRP4X63T8zmxS/i8Mo Rf4aGR7+tiqaNct9Jco5ZHopUa7U5UuNQUYJRbIqoSDKxvLxJVP5kvgnqmYM pJ3ks4eIdOrPljBtfnsGDs9g6jhvOhonDlOLmP5iETNILmKe7zqOre7R2O4Z i+3ecdjtoxDPINrZPL9cMiGfUhBECaYpCLHwNUs88uizcuizMiw0F0sMSjds wcXe47Z7QO0m7k+ZUDVSh1+Y0j5TAqcnL3fZWcRgs0Wlw8dk3UyulxUpyzwl 2Jn0A0U+Mf2A67KlNoLdpevFTprW642yJbE2qeichu/08+90GdPfI/oBl6VL trV7Ak6bP+TiiYOT5qJ2LidALmPR7OZuW7fs+HittujrUZ9djLyPtuJzrxhs pUPfzsxkN89xL2U/TfBAoKjdPxAUT6M+EByH/ZQ9wbHYKcptC0twofe4Qd2r rw0OdBjeCs07HaD5knbIB9wDELZkOcWVaQVTCW9VcVTKs6kkDQYil9KPXKha ax9Y8LVCpRR36oIXVfslgBNFR/1L7gq4U8yjjoeqooetnLaXzmJ6x+jXOGM8 gVPrjTW+vpoqN6I2twR1eaXI+ngrNvjGYKNfLDb7UwL4nJLzyVY0HOJ7DhVr YvwSmZuyOcP1xoVd6n7yq6/qDZzj6ct3d9ghJnyDQuxX8sZHD3Isaam7qUQl GocFan4CtUSFGhFrsxiopZIndqgNrNNSZVp3ELm0AWVCl2WZUH+plloqJ2qk 3O4xC5EzlfPxec5omTFCrdIGEjU/X3U35Q3I2VkK35dWo9lzL3785FN8fVT1 GbGr3zHfgWyahan+W/padP+My3wn+gva5xn3s65a6oFcWcHQX72j6kcMQiWh UUKTIpf1ekmmk5zfnxHQhOnyAV3BY5RPDZHY3C6LGIwStsu6fEoWcBi4hCVK XI4x0uzgRKFiziy0zB2P5g9nERcLOtettd1mun3VQazljO1C3AZcaW7HN6eO 22rwr56fDpwq6fukbtMkG6zJjSDUc5o1whwFPI2NjQOLPDwVRIW+osAgHhUB osBAQdRKiDppbwKiE6ECImPlc4VcdfvaWPG8S9U56Von8fybSDN7TCiF96PU wUC5/m1nHJo5G03zp6Jh0ltoDrLg/KGC1zUd5jz4Co6+NxE/Rs7FhaKNRumR +WKUwRzxmvinpzZuCiLjEvnFixfx6KOPyp/mW3OMG31V5PyNtE/RB8S4yT/D VovRv1BtD1UDoWohVB1kU48dVBfDDTbZFohX0D19q2ESP41FehtUEQqqkyRU X5iqSRFQZbl4YN/k2agRxjZ7JBrdl+DsId1HYkh/pfrAxOwaTbemimrEPzEc FxbMwJWP5+PKhTadtF117elZndHZ9xPSPsrVjOw1ErGNGzca+rjGpCLjHIx2 DYKPBrhOOnLaSjBMlQCHfEUJRjyOEuBqmms9AW7WAIuFmOOhuuDEVvK10uCj rfBIFp1E9hedfBU5kIynBcIkYx9Tlm5NxlZmy5tGzkDJ7Jlonj8ejUtm4kxB Pp5xgKujOzSM2sQo56UoeGMcvrfOwQ+bZ9sXrAho1CGvw5EjR666Sdtk6cvM WF9razhizt/pI4zaI9H7wMB3iHaLHcQ3281KfNVKv6q0iMURRopyUemgLwDZ Kh1CdEkdI4RaYlT2rsrqVkiMxeq6WOB1ksjeyueMJprBF0z42i72E9/2UIXv trHzkDV9JurnM2V1fst2o8xAHG1l/Iq4lkfexomZ03FlJYnbtA+OilIc5R9L zfBdN6BfizkY6zTRuNNPRBLBaCF8WTmdR/vrJTyIol6rLyKKpQFGaVySKssS XlOUZcm18jRZLHROlmatuHqhVheKfDWgUCfVVjDSj2KCRlGtGWZOX4zt45xR Pncqjs1+Dz+WbnpGc8Su0tj4aeS7oc6Lse/lMfi332xc2TTXaKtkNyM07q4z z0OWDPSoZjCdHByFLDdu1zC3w1Dlc3f2Vz64R8jKB7HOoRyrKnJTpVcDHau0 e81LtfKn7N+JmK4YIpZdneSq6y22uuaztsCsS8uIYZtp0e+TdyYhZ8ZUnExe hCs5Ec/008+GoXFVwQDQ/aE30D5pKq4kCy6mG90jzdeCzMmM6e6iRYMDaK5q NjHyMTsAhRqu0wG9PatwQO1C7oASqsEN+4Q07hU2EM8bQKo10yGyYOk2iaAo FzMC90md3nSTiR1hcbal0+aQCBxwWYwvJk7BhaxUXNm7FD/0VP/lZ5A0LHvH ik+w+dkP8J37LFzZMB//Oddsiyp2QBh8NCdBHw4O57UOlGL0zDInQjdoMqYv DZGVCDlGGY7vQNM2onwrkyG5NjEAS01KvRztRETTeMzzst5O1V2cDx+YJ4qy V2nSYTTpMGXSTaSjWHcrXOKO+HleqNu1Gj/mhOBK3S5T9y5HNzcZ1vfhg6+i dtRk/BQ7Dz/mx97+86ZtnnUsHBzKXzpWyIOmtxohR13dvBuXOkVRQTiyRFGB Z7RkpqqqFCFdMdMI6aKOuFMjKld6QtUKj0SV6J2Rq5ZpcikzlRn4GV3Fcloi 2R9iuomkoGVLWIxcYmsgmrV6iS3Juga7132M73IScOXzmbq9ADPwFWux8un3 8OXimbiyTqRErbapqnmeZpizcZuynnnMHxw0RyWqxh2D5iRIXUm7HSWpm+Tq f5ZHNLKJlnSGouo6wKj4FYgl0ZYNDqrqa7E60xcq1sHErS4nxTrNKT69k2m2 WoU8ISHqX+i1LbuTdGKBrI4w1dgWyIqw/eMMhIetRO+BVbiS4YsfSjbaekvF Oy9D8bAJ+CF8Lq7kx9/tmBhG8mi+qmWy2nkDQTM3i7rBdEBTNmos3JuTG/Xx O7BvaTgOukUh01PgFitXt0QJo2G34qK/uB4tcFNruRo7vbrVK/FLGUJ8UnAT H8VSoihOSyJSYlk8AW16ObGeaNWQWFVErIJm2rjhM8Pu5kyPQtGWNfjf3Ghc yQ57yZS4RD02DGfnMuNePR8/NO219W01T/Ce0XZmtEgzzNrcXGvu4LDdZDqk wVijX6jREEtnMrdpul3s6MO+ZZE44B6NDK9YZPkI6OIldCWacjJ8ELoGi1or aaW0hyQTvmQabAoP3hUq1k26iFUnc2ixMNVGvFqIl21hinhVhkahnDHisDVU 56Q0vC8OY23KalwU8WLPEnzfXW1bho10XoLs18biP0Fz8NPmOb8d1B4HJidz BgJkbm52s4lXpuUw48jm5ERZP4Nf53HsWR6J/e4xOECA5KKSr15UEpfixQJe kOZXsACJHLMmkWNCkoegLSSJimkjNq3ERawrNRvrSsyDq0PVulI58SkJiUSh NVwsfwyxEacFbu7JqN+9Gj/lWHGldocesyKV/8NvoXf6NFxJExnIflv7M7tL KuaOcSYLnDU4Urc6APvXdjAJsO/W775AmHYtj8JewrRfLg/FI9u0PFSql4eO mdbf5PKQVdw13GAVGDWGJMpFov4loni5RFRBnMqIUzExOhzCeSExutzbZ2Rh YZZN2PPJx/iH8OmbZxgueidTip0vjsY/vTnMjfPudWBu9qmEyAdcBsfkNhO4 psPcZQeLyCZ+rWE533EcRSu2YLdHDPZ4xmG/XNBJuHpBh1KhF3Sq9IKOk1zO uV4v6NAU9YJOqV7QOcQpVL41CpUbNuvQTHP6OBMRdNp90mn74PvDn9naBS5/ 8DU0j5+CnxLm4d950UZRjnni5MicZg4OyB36yGaSkG23m7hjuGlFzF+jKbsY 28mRHZ6x2K0XVjIJRq6DhZWSYPKGQIi1lVKrEJqcWFmx0vw4R8+zxiLbGoMM SxTaC4/YutMLJ3xYOuEoXMkKfc4W49dh/V9G4Jvl1PH6+fjxfMuA9XFToDHb iylrdx4cijsdcIPTHuOt5kivPPJdOEeTyVu1BVsJxTbvOOwkN/bRZA4Siiy6 3hxm7nlBCcjXqx75wXrFg5JjiUOWJRYHKPss0WgrLL7R5FHX0aNeEh5192L8 p7Naz6yvwfwHX8GxEZPwYxSDb37cH+1swkwB4TmM9Hr64OMeJPQbkcgcqe/X NlGfW4LPvGKwmaFmK6P0Dj+96BDA8QfGY7+QoDjso+wJisXOoBgUfroVzYXF tn6kTRWtcPfgtFD6RQs2O78I34kT0Wjrg6RyuuQn38WlD43LXK22GmQz6Q1+ GNe4zDexTxs4ctEUV2wvoLh8NXgGA+2CrZEh1+SVoDa/FHUUOr2CUr61kY/i Wf2hEtQUFN+uBzh6+CLs/WSNdGrd0aPg/NDvMf3Be2CZNMHWhiiGWVjRW+Px fcgcfP/57EFWdNX06zrJZUebaegUdsrgI/2NYx0bMytz1HxD57wLJ0/Aq396 EcumzsV2v7kIfO0xeDx7Hxb8+X7MefIetFaW27pZizgW+ug7OOVC+1o1Hz81 7bPN0Mx3XTia+E0e/Kx/50A/19idslDxmzp1ev4Pf8Dr9/8J7z78DD589QVY hj+L8FcfRvjz98P67O+xe/40nFi1Fs2k1fGKaqNbS5jzYhx4ZSz+HSAvojzm GKvnTeduJHKTBp67uZ/sPVpndm5JvmoKM0ZAOt3Vi5rcItRRGnKLVEfUIbIB 5rnOXvmmR7SXeuHeB/DKHx7CsIeexuzXX0bQyJcQPeJZJL73NBLffRxHnN/G P5dOwzezx+LChOHoHf4W6l79GzKffxEXeCbHiUADEeik0v6ov9774TfQOYWm kiKTkCfsgBcnfrueCogzreZp1WippZzp7DWCsznuyI8MsRV/ySnvq4NDdq9m k5H7CuCTkpJkTL9FG9XZ7l5krd6AzV5WfOEVgp2UvV6hTFhE48gDnqFimdMj FOkU0U5zj2jHueIztGQVKeP6LZ761R/x0n1PYewzL2LuW3+D9+hXYR33CiIn /hUxE59Hnv8M/Gt9NP734zD8sDIIPyX64KcoN/xgWYT/9ZqNfy6Zgq9dRuPc +OHoHvomql/5G5qXLMb5tevQu3ItaontPXoo4qLI1udG4R+ezGA+m49/nW22 tT0xh1zlbG+RwxMUWM/hbeLQtlC2eYYw1oZiJ4e0y4ND5rB2clg7XK1ozS5i 3tZr5IwO7+T4r9oRvTy4Wv6gj2IEQE2ImzQdRXPdTV4WfOFtxS7vEOz3DkUm JYeSRynwDkOhVxiKhHjyOUV2tBXdbCmZriE4sNyKjqwi294P5jNTefQDCHF2 w1v3voRXn3wR419/FfNGvo65I17Cgnefx5KRz2LxiKcRFu6HfZs+wuEvVqNu 20fo3LYKp79Iw+Utyfh2U3y/WldQrQlUa6Qrfgj6EP+hev5n0WR8PXMUzo4d hs6330Dly6+gYfEinP14Hbqp1mNU610aiiXMw+rHTMZPcfLajOHN7TyGurZ3 g2wzu5nobCE6XxCRHZQ93oqzB4hKBiXLM8wJWR6CvlkEJUMIgclYHoL0ZRZ0 ZBYazvC/2Gvg/1HB92rLNmc4JnJer72r6FqsunFasceHSqNk+VCRlCIfowNw OMooR73DnVDhJRrlVnjyV0q5h2gEHCa7lR5y5cc4vOxlVtHKVTv6W+2vL8q4 EjbDF0GvLcVm1xjMGjUWHwx9FWNeewYTXn0KU994ElPeegwtdZWaJ79H2/ET OHysArV1VehorMbHa1cgffNqFJMT9ds/Qvf2VTgjOZGEbzfG4V+fRuH7NaH4 MS0QP8V748eI5fg+cCH+7eGCf3w4CV85j8SZ0UPR/tbrKP/ry6hZtAhn1qxD J/lQumLtDdoxVR0tx6LJE/H6b36DiXf9DrvfeQ1XPlEpi9HL3TxxUVMf1YP4 0JoN2E40dxDF3ZR9lINEM0u2zQlHPoEsoBQK8RTdOosI5C9RKKB0o4lpOPMJ p2j++mVHL4wJ8X+xM8R/QRdzY/h7HGdI5lUDY2LOL79We7YLHKfoNrzLx4r9 viGcQoluw2QOpYRS7huGSp9wVInOpBxzrexAShbVSRbViZdES1cOX7RzPapb Sh/hsA9x2MdS16t07hpTuaugz7SHRyBiuAdTmHgc/nQ1yvalYM2qlXjhmcfx xkuPw3OZCxrqKm/U7Gk/cQLFVRWor69CZ1M1Pv1kBQ5+vhqlZE8jPUrPtpU4 S/Z8+XkSviN7/v1pJL5fHYIfUwPoDbzwY9gyfB+wAP92n4nvFkzAl9NG4NQH 76D1zddR8tJfcXn9Jzi9ei3ayZ7TFdVOmj3zmWy9dN89GH7fvRh912+w7P57 YfnzfVj8+D22NTXzMvkQzZ7mvEJOOqzYTTR3E8V9lIOUbKKZRyQPEbYiSjGl hPCVeQn2lHkKSMs8+LtHf3ducXdwMeE8QmdctNSC3oxCnSFfO6BM7f97G4// R0IZns2chRqL2XbzUjVu0a75UzIpmOO1yIbE2bZ2zYJJoajk+Gsodb6qn63o Uy36VbfwZ6sPWSWeXI9m8SdC00BDq6MXrmKYrSAcZQyxxYShlqxSNzDdaF59 0+SqwezHxiNxjB/2hiSjZNMatJTtwcXzXRq2+7CvqBilVZVoIJv2pe/GZ5+u RCbZVE42NZFNvWTTuS9S8RXZ9I/PYvHvTwSbrPgxxZ9s8sSPoUvxvT/TBldn fDdvPC5NeR8nRryN5tdfw4d/fADv3XMvJt17H2bfdz8C/vwQol57CD4v3Yco lwmaNndclYAepgsXrW73ETJhiAcIVyZFtC4VfRYPExOTG0clKXPMK3yI7Kh8 PSFSBlipoRJdvo8yGylnNlLGSNWQ+qltuyZR2mtc2BTyX2yx8v9IHfvLfv1L anfbz+Plq4WrP5GdaPcTgEzyJo8AFFFKCYDod15NAARnGmUPX9XLt53S4ReB TooTuvwinPhUQNHBN7ZJUoWhUfT5ZjwXPb4rPQQcFtQb7FFlbNci2HkpFj01 HSunW3AwOhVlggZlO9Ss+jdILy5FWXUlGhuqkH5wDzavX4XsLatRwbc1ky19 ZMv5ran4+vNEyZb/rIvA9x+RLclkS6wHvpgwAs4PP4olTz6GmY/8EfMefwA+ zzwCN8r8Z+99XtuOwMTP1Q2fe/nLvu8HOP4M6TNEb9Uw2di7mMMq81EEOOYd gWpKDaXOm6OvVw/KLSvDqZFDV8Ov4vBFF+8K12A0kQ2GeZsn5f37zgwZbGZg VvNv7NQsrs/dqPltuMVVAUHYvtxbtuLOoHpzOTTR9rpMBBbpDiLQQBWKts1t vlFUaRSVKRqSR6HXP8oJfXxyM44HRKEvIJK/RaLHP4J/jpDqbvcVLfRCVUN3 ZuXVHlbZzF3w/e5+Jf8C7s/Nxbp5YchJXonyXatRXbxR3xd6BzJKy3C05hia qOGMjL3YumEVcqnhym2r0crc5Dg1/P5Tz2H6Cy9g6WsvYNITT8D5yacx6UFO VR58Dssfe5qzmbXP6by8Le8QdnoHyr7KH7v5yJgqtCj6PRfp5r/llEqfSFRT an2iUE9poDRSmoWITtb8W4v8GUFPGSG7gItu/nVMUus41jpPK2qo0WpqtCXt E/Nsw3T5YYTSn3kDRkOHhv6ENzdmdMZqWV9DI1ZOdUH4sJFYO30O9RYik4JS P+qNwNdyAI2y1XaU6LQvm0H3UPoConGCcjIwmudyio838TGKv0dRiUKBEXxf ODr9w2jGqmNxvWwyb0GlWzCOZx66U/spefnC2VsqcNOyaBSsWoWje1fi75dP 6tztZmSVleOjlWl4+ZGn8e4LL2IaZ44T//IcJj05HGMfHEd5BxMe/CtmUk3u lAIG+L9otV/q7mFUDpYtzvd5ByFiqau8CSTTJ0TqqZRDPMohHiMta3yiUUdp 8I1W/bAprZQ23+ghHH+0E9oIwvWy63izr9AXnY+3kBA0cmj14rYH1yB829lj u0HO7Hffv1pLxvZCxuUw8zzgFj2EEma8B30CsY80ix02CusmuKDALYgaikCt XyQaeVKtftHooGa6/WOonRjZ1P4k5TTlTFAszoqex+f45GY+xvDXGL4cjdMU oThhdb0BETaFNZMIDZxr1HoIXxKkL1UrbU19+H2ED3XHNh9mdZ+orO7rS8dV M6whytuqvPO5+x7Ca088jrf/8jymceowf+h7GPvEcuprLmUSZTjGPfgKpj/4 PJZSb3nU24mK6qf0uA9wzFmyjboFOX4MGH6hWLncC75U3+du/lRbFNUWTe8S g3pKo28sVRZLLGKpLdWxvtOf4+5SDzGcD4qm5gKnNrmHRIRMTJrpVpqpwibO pBs9glDjFvB7O+0Jtbw3uPZ+Naj27kRbbj4nFAGcrgUhh35RpEpbpy/E6mHj sX/6Ykm2Fr8Y1V/fX3UBPxEYR9XEUUXxOBccj/OUC5QhuBgcRxVeCI7lazH8 m1Al7TCIKgyk06QKO+R2BUKFVhLTQhXScaz4xFbiKnInl0fHIn6UL/ZYkmTu 1Mrc6dKFblt54dXXAG5D9dFKPPfoY3jt2Wcx4d3XsXzya1g48mkELYnA2D+7 U5kLKFMpIyivYgqVupBKXeO8EH0V1Y9rl9NBv5nlK6AIlmEiV3cVF53b82hL wja3uwVopcbSDuMITxwVFsehxVONoqa+O0CA0cPH3oA4KU6yjfoN/EuMVHK7 f5TcGUBmnvyOFu8Q2b+4ySMQHSvXGQo2XzJ7d3AFGxcf7OZdKl4+iP2ydXcg B2VhWhMqu78Lx1LsZsX6YZOwefhkOocwdPFE+wLjZJ/s0xTR6P885aIlAZek xOOyNQGX5U+KJY5/i8N5SyzOWWJwWjb+Z8wMikRXYATaAnQXek5DGjm4avdA /L2zx9gGNdh5CRY+ORUrpgThQJTOecp3OtpDz6gkqqqoxNLZ7lgw50N8FrEI tbGjdF54A7Z/lofgOasw9uFF1PAMyijKG5jICDmHml5JTRetWGsE3EySPpea zpUJgUhyw2XnbHEfaSlJX+QdifXLfRG4aKls4t7CWWI7tSu1HJBAfSagNzCB yYF4OB4YzyBzPFABKNrld8sdFGjK1LTYC6LFpmnRqTqIHjngXlO0FP+0Ix42 UNHmHY/t93QS86HbTJacwUFlewfLSKma4YswH2Xb2iFnxjJsf28qjri4Ki1T u+coF7SGL1sT8aXcbOArsdnA11T2LXyaINV90UpVU85Q3Sep7r5gOnSquiNQ 7aChVC3aCAfiTE6B0SXb4rwcy5+djbVzmEgmrsDRnatRW/J5f6nTdRqG7auy EeSXhrb9HOz+ZddovTbVdiN4/kcY++hS6nPWVSHVTYXUh7QldOYVIMdH3Ier YBCTl1zCUKD71ZfTco/RcmtpuQeZqcUtcUM6nVAH9dkVkIiewETqMFF2JT8R lHgNvVcCVXuSaAklC9V2Udqp2lYmhC3+Iv8wVGuhpw7Ahdz8exzMjk2X54YO ruI77FRsu1pOFZetXisNOZccyvMRt+NGcEyRspN3NcfV4K/2k2jyikDGuDlI HzkdvVT/eUui7Nh9mfIV5euQJBrT30MS6ay/DEmQmx1coIbPWvV2EtRuT3AU OqndVltzYisnxEGo9vS33aYd6uwJv5cXYeOSKOSvFJnRKpEZOSqjNmbt21ek w90tGfV7VuOnDG9jp6Om+m5sX5OLsY8b8XeiLf5Oo6teQiWLBnsFW4v0ysQd yOIsJdcnyOanhQXnEY1DRKOYaByllquo5XpabrNfAhGKhR/992euvnJ7AKXl JLHjQhKt6FRwkmxBbxO5GYfaOaA7SGzSIcClI5Baj5C7AsjO2TyFRm8/Yy5j bGvavyvqQDf+zuCqv91O9WIuo+jwMA4S9hxh2QwU8vINB1rCgVZwoLKxPgfU Rn526W0uahfR53/gjJq5HnJXi69ChNqT8ffQZHxD+VZKEp8n8TX+PTQRl0NJ A1LhXIje88Iai14aeWewaLavG8TKJsk0cvL8ZI7u0agyr8kPvYuQt93whVcc itaJzIsT0ksn9BLsQDr8wkaHbVi8MAEVO9bgh+zA6w1fvi4PY592Gxi1Hx6K BU8vRfY7fji1KAD/6uszmple6uomOIINZpuPpAuMYrCLIVCxBCqOUTueE70E NPsn0oAT6Z+TZDS3Ll7G34W6k6n6ZLpFIUlif4gkauqMbISfKDfAOU7pISs6 gwTezOgCBSNMTe4ZTlp8/PFdd7cxtWlvb7frEXdV7cFbA0lhLjE0em6JiZEx QbpD+wMx7kx62xxvq77JWdyNGCXjVyVJUUdSNMn9T1TX+ON675PjDAUVM5ai YPRMnPAIlaRwEpRwwndhyfzKb/n4TRgZEyZYQedBOUd2nA4RrGCAs+qdUGTT WqNvs4VTjkCczcu/zsSKmY+MRuxIH+zm9xdvFMncXly+2KOq4SQpjCLKec4x OCIrO0L0FP46bN/AoD57JcY+9CHGPuaDgOE5aI2vwZWMIvzUVXWfvqDTxdiX KwK6vqc+l0Dk+ui25j6xKPGJ40w/npaSQEtJpB0n0uEn0ZMnMVtJRiHBC2Cg z+OU9rRoMU4ZgrOWZKF9i9rI5BSd6HGL0H4CLSIebZyutHCiIv2B0Unf30oc AnEhP9+4/mSu9DNuazLPut4cXPXmMi0jb79Th7mOnHxkewapBuI8+zymK0L1 ZSK8MRmto9qbqfZ2wt4j+9ZzFKJnvVVtw9KxNBBFY1zQusALlwM5AflHWIrS /q3UfDI1Lzb9SLJp/kxoPE5S+330Cd0MD+12TaObmUp1rFmra5WupWGvx/wn JiN1UiDSI1NQtnUNmst2vqH57zI2HDkbP8a/8iLxQ+XnRkBpqulG+IJMuLue RFXOBfzviTP4n0un7tNOsFuqOUjGP7lxgE+kVLNoXizUXEoVV/omoJYqbqR6 2yidgcnkfjLVnEL+p8hdLlKWeWDtcm++JvZYSsE5a4oE5qy8CV2omjZCdfda tKo5rWkJ0sZudIsPoCP0D8LF/AKj0sZ8GeuNwdVqvGaejqkM/hF05hRQrcFy r0+xvpPnHcWRRVOtjGX+Sq0tVGsHLbnHorYjMG6bvyz3b0nFRWagrQu8UTx2 FvqWB+J/wlPwD8p3lG/DqdpwvZ8L1XueBn7Gtp9LHLqtarudFsOwA8R9xcGo 9fHTIVwkdMuw9BkXrJkVgqyEFSjfsRp1pVve1KqdMjwY+9atwf/kcXLSsNsY bUb+N0jNPo+yrou6WOhhVDKfyfUK1k0aRBd81aE0zzuWo45T+vRT+mwS+qQu O6nLHuqyj7o8QTllSaV5pmIPp8ah9ONNzLvPW1MpSq9Cp6ep0xNWoc9EdFGn 7dRpS1CcMt9ATeRAurAATrH9fI32FHZXsV4bXKXGaocxAdNqvduk1RxPi9Iq c7N8qdUYajVOdtmvp0ZbyMUOGmoPNXrCaIYgN5JQO8CIfV++o/QtD0LpuFlo nLUcX3EM/5Ba1Q0RqNlL4UqrsiOF6DRPrYpdejosTFiDtVb1Tc91vn7aJ12L EGcPeL+0EBsWMW6uYC63ZxW+uXzK2EB33Bs++OKjNVBX4vvvUDD9e1JrNdvT V2s11La/hLwbTdxH5RPPUSdQq0xR/JOorWRqNYVaTaGbElpNJadTbVo9S03W cL4cuHgpnXSo3HNA7P1wlugId3aCmu21Cq0mKq0Ga62K7U2CRDtpuqdApuX+ /g+atGpywK8OrlWji4t5tvVrs0o9qFLPMKnSAg7ysI/av0SpNNFOpWLThBTV BECoNEyrNJwJAEWosmOhD0rH02jFRboBKk3GBar1bJhWKX1xTwhVahUqNQYa Kgda7+evr4lcr5OyYbC+uRxbPGJRuPYjlO9LQ9HWTXInXbEBsmG1Y19ejE+T V+NyTrK6WH11zvaYoV8PPw5ZsDnM1rxf6tc7jhBo/dJia2mxTYFm/aaa9JtG /aVRj2nUZxr/lohUuYfnMvSJXcMI1ekQZQm91HEXddxOy5X6DdYd8wWbg6nf IIafAH+jQs68iTFd7N8G1+8NdvoVDlklbS9Rv4eoX6vWL03CK5qDi1X6DdD6 pW47qNse6vZEiNoUw9zk4ZuwNJt+/0eIaOzAAZRQx3Wzl+MCdf4ldSz0e97Q b5hZv6ZO3ZrIdfQsXdRr5J+ex7b7/gLnRz5A9Pte2CnKaj9bjcN74pAeJjYQ DsU+pnZ7KLvdQ5jmMlypkiC9nMLke1MRVsR+hLNZaT+v87uUzj0H6jzXS+uc XrqM9qx0nqx0Tn13UtdS5xah8zScsiqdn7GmOUml30ZzTuOZBkm113BudTpE IGmncgvN2qLb9FuEyunAgjkZDdQmfe2AfhOmudYrg6v+ejvVi6mWsTGFUH22 O1Xvoe6kFT0XinzMe+MkotmsemHaVPt50VBFbnrSvyWRUL1otOBE5adx5iqe t37ojcLxLmhY6GVSfZJJ9XFa9dG6WXiYvF3+yIIFCHrgRWx/4FUcfvBVfD5y GfaTPqVbVqPk8wSVBlI/+aK7Bmmbz/PPExtsiFIqt1AcdA1B6YrPRDPkVwwG rMtHbOhKHM9YOXDF7Umt98pVjNCGm5NdBKKp91hiwjmeTwJKpd6TtN5T0DpA 72nExqT3kLQhUu+3SjfeTZMXbj3fJ0TpPETr3EqdW+N1v3RCYKXOLUrnjYEB us+zKnk133xu1+Dlr4Mr39gYyZhSCeX/zsirRcN6d8tA5cuGG3EDlN9u6d8Y 6bRN+aLZhq1Fieiu4SQ1/jupfdVsg2+lCyig/g9PXYATQdE4E65alIjeLt3U fbvsVR6t22SHoXTeQmx86W+IfmAYtjw6Cu2vTcLfR01Gwyq6pE0UXcVRKmpi yuRSvCjjKPUIR4muqip0E2VApMLyEFSmbsCljl7b7V7isluwfxo60lf1h/WB XuBxfcWlm0FPssEjzNZTIs9gg28/G2rIhkbNho5goeo05l5pOE4WnBTWf5os +I3cRuWcIaGpclO1LrJiN6e0VnqEVs60BCPaTIyo9ghE6QJX5E2dhfQRY7Fj 5kJs9gjB50Lo5z53syJv5Wdoyi4yCrPNZXEvDc6KXzqYbd2jWXGpswdZbhZ1 c724LVy7hBLR9kf0GgkSbViSZBsWyQqxUUyo3i6LrJA9lowWLKKfqODCPaYW LLpxTUQKahd6ImvcTFQu8MBJzYouwYqQGLTq5umFU2ciY8RopDw7DFGPjMHW l+egZ9xCfOcyD5cmjEWT8yy567Wx47XY7XqI3Jf+OluVxlHqsEyUSZEaRaRF /lIrvuroNbZ8ENfpPNypxj2rfz423ImubLLCPVht5iM22PBQscFgRQlZUaFZ 0UBWtGhWdDEuCFb0WYWfWEE/IW6qPR0i+mbQV8geNmf1zzNy75cU7PQMgIXU OMiJfltIAsroQw+Omo6MUVMpk5H1wQRkjxyLAy4fyiLKdE9Z/Msz+wXSOdr9 DIP7pB/cgLasQtvNmuYrdC8O5Ij5HjyjKt48dbtXw5DhatFtAyJk24BDzAYF PyrIjxp6jUbNjy7yoy9Eb+MkpmvkxuVw5TlEWyjRd+YauYfdtQOIIVpBid1J 86bOUwn47TZe1BCVwmmzkf3BOPJiFNJnzYfvI2Ox5VUX1IxegFNjZ6Dj/VFy b+86vYe3Ufs0RJY5XY9GWewUbqvZEFU85USslIgdEdWDKett9+5tX7EdSz5M MBJ/J9ulnKc0FjluQTLsyJv+NR3ySAfZeZ10OEo6VNvokMrUPVWGjW5BB+ko VuAkiXAqRPTkEd7id7IRyGnhbWUfH+F5GXLoSr0XLsK6aXOQPm4GskZPR/bo qcghFXJJhTxSIWuRt2yflEfi5+uwKCqM88T50SfmkA45NICspRZRHmls5GZ3 he75gaQw3yVj2Ib5dpg/aCDKVojuB6GaFGqPtyMkxVFOEao562sISqKPT2a8 T2HSI5KfVJVLhGnHYSKGk9zV6B5JEEEM2ScsQm1xeIHkOMs4Iv5VL/PF7jHT 5PM6ryBkj5pEQCYg54OxODjiA+T7hmDnXG8kD5uL9W9OQ/b4Oahc4oMGX8WI Vh9RvKSqm5zQwccbZUFTuyhq8lFFTaK2oJ7zMcGUY54hqKDrLV1uMe3+PgTz Z8SgeKu4nmfVJWe/RpZrIHKN/WDcSQxPRQzRD/4IZ/rlJEYViVFHYjTRT7SS FMpXcI5gVb5CkOOE2CNE7NOiN8kRP52kSf1GkqONyi6bvgQHx7kgbcZc2cP+ wDhn5JEc+aOZKRKP3JFjZN3sYcoRSjE/U6yDZrG7CpyHqbsiEkR4yEJaQU3K +j/ahRVxEe+5wdkxxHRpwFQBbly5bMsqUt0ddFucfNMmgFUkSF2QzjesRr6R IvONc0w0L2iSXA43EUUmm8JnPCLJITbAuhShCRKmCCK6erUGRMjnX7z1PrJG jkcuAcn+YAwyJk+jIlTRrdjaXtTYNPiq2ihRWNLuF4lOiqyPovT4U/xUQVSP XwRfU0VRHfx8q08oiRKKOlFb4yVKv6yy+u3vnIMYN3K6jKNlbvoY/84Lx79K P3tGB9zOLE6/XJmDy84hkZInud6xtJ94wkO/L/Yt4fyylnONBvKkmU6kTXDF 0s+VXrmXjNxIyYmEkQ+pTD7FVK2duj482gWFlPwxLsgdMwMbp82CB3myYboL Do2ehEOjxqNo9mKRV6Gc/DgqK2RF0foNqCBPKjxUsbHwkiKSlpHXZa7KDg4v CWY07TEayJqvDD47OFeM9SLzhNRY7UpfFkrriZCtK0T6UehrSj/swktviOqd ZxBFeBOxQ8UlkXoItlwn26d8qXvlXbJvNBiWqCLMbSh2nof04aOx7dW3sfed 95D+/gcoWOqNcj9FjzpSotGXWYmvKMGKpupFkU80ekUZln/0EFGHRdwDouhD jptq57pE3ZyfUTcXQj9lRTXT7qPLg/E1ky3jHs2pwy1I/0RcTIzGlbodz2q3 mkWIc5eTGqInioeekvjEERSmG/4q3agKVG6kkfRoITXE9kIdei9BsZtZr+4J N4QkEftV9km3EYEjo2eRGrNQSFoUjJmJPFIjf8x0ZI53hifpkeoyG5ljJuKo dwQqKVWiCNIrwknmVzfKUvRaEUMZaqo9hXcUsVSVflYyOa2gAZQuDcLXHT36 OugvbH3dTBt36Aox291NZpoIMU9c/6RRacs8jIzl4XKTD9HdxBZsAkSwURvq GdcsunUWIpoFCpqcDTOootrBDJG7tv1O9lG8QDkflqwnqYmSGj2iEbh3sHye N2YSMhlpd7/zLj557W1kLfbGMfoBSQ6j+ssvRlZ/9frHkgixsgLslK4AOx0Y 44Qz4uF0YDSNS9TpnQiM5HtFkSV9idh/XdbpWdHgxSDDZLN1xacGR8a/4YPt q9fg27x4XGneb4QacddQtvCsruYcJJZ5mchB+l1IDXlSr7c/MvOk06q2o+qW O2FwSqubE7V4irAoGHKrXEE5RI7kS444ky/TyZuplClYNWMW/BZ8iFJBBu9I esFIhsxIJllEheLExwiOViRd9aZi2RqSpcZDlVVWuQbj6LJAQZY/aCKYewDa XcrUN8fCKLAxc8Y011UXyl7HviVhyHCLRBbn9Dmy3Z2pG2eQ8iitMjchXZhs CbqcCE2RExux+8GZME2bcEUd0fjmXJjaZ9Fou3lC06UrLI4ATZHPc0iXrNET kM5sdde0eVgj9gCeMBfHmEO0ilIzSZVY9AWoUrNTgaLULA5nKecoYv58Xv6M lTWDqlowRlYLCur00s+I2tx2f+VfjPKjGvcgnMo69JzpiueGlNX4MicJV9oz ntN+9qBoEaSNKIeuJYeuJU+6FkWbcr1rmaJNiqSN2LavVe5gpraRYDbnJBsq 3ilbaBSOmoUiEWwEW8Yy4IzVXmWsM3+fTgZNY8CZwiRtIvYxc/b5cDH2uAXo QlxV6NnC507Szd5wVUFuAxOxesbXBjrRek7Pa92C0b7iE6MHgGCJ4Tbsuz0L b/O0mTW/sLHGPA9+WIMjGorsXxaBDPdoZHmp/jVix0q5ZXHg1bTp4uh7KH2h ijonBX3EQuNp8uSXfFTNfU7KVkmqC6JqlxQHY46TRbZkUNKZoKRPnokyUfhA P3qQ2Z0oXCuZ54Vuo3BNsCUo/qrCRCdc5OMtslhNlCheoJwLjpWsOUXWHCdr euhwOgJ0JZOvqGSykDVBTFoCDMaI66Ur4z7COXHzfWfOczqFk3srLQ1Dpitt iY5GAJNDR5MvOq34qYBksEZ0O6vTW0416X0PW3QvuTbduKZk2hKecQEJcwtt hlQhXXL4M4ezuDxSRgSjfFIml5SpWBKIelKkwisScUtckbbUg79HOjG4xuBm aUod0vtGywppUSDc4qvqSkUK3yTrSmkeHsGodwvEGU7l/2SijRGQ5PKkvCPj bjNZrpFkEW5FE0UV192KwymbsN81Cgc9YpCl+/UcFlsOyr19FU8aRNd1C5MW q8GVZHJFFCL0iUKE46HJ+C0fk2RPI7GR4sAdVjiZZG6SMWYyDjBX2zeapjNl lq6GUgVvDRx8LXM0UfCWN+VDdHpF0Eck2MoajaI3pkR8vK2/tJEiSh3Pky3n KLKsMZg5TVAUOsmSNlNFVDNDYD1n36dzCow2DOKaalzYSpzMXIEfihKfNy4h kSUHaDqijVEG/Uom/Uo2/UqeZkkxWVKmN2ISe//UyP1/kmUDrUZLsmxt1ESY qsW1t1Eznaj+mUQ6W+wJQsmUP2eQKEI4CyZBjsxx00WqqvJYFKludfWDZfFS Zi5i6m9XeqwoEqkoQnq0+IiqVAuaPINQ7x6Abzq7zWujpqutRmGicX3oKqqo 2/dF1b/wJ48bPEndTI8XjXTPWGR4azDk/jy6rxN5Uh9Mn2IxuMKZUEgSvWqS OPuQJJ49mcFgHyp4kWDbn6TCOwjpnOftp+yhbPtgAif4vigmNyp0UbYsmaLn 6AqMR8ksV6SPmI7K2W6qWo5yiXLZXAyZqIshv6RctNLFXFUMySQ4cGAtkCiZ a/9onY0cq7JhDUhDV/oq/LRroZoF/QrFKRuxf7lq1HSAU52DJEcm8xSBxyGS 4wjJIfYsEhuKVEqCJKFoURB2vzUFGZQjkxahYNpiZI0iE8iLDMrBMSTJAdLi Fj6dQUtx5k8SY8o8egj7yuU4WblcyjTEf9ESerFgRtF4J1m6fKMsXbYvXBYU ERcCROFyC4Nrs2cgzucU2DbGNF90vdHmPRxdXL5roEcxbtrR82TFlFtQlPY5 Y2IM9pEpB73jbV2aSjQqoktTTbDqnibY0myRXZqc0CofQhLpTIz2TI2h8ain 1IQyKVnkht0kyE7Klg8mIoMkKdQlwJUkSa0foZJEEVWACbIstIexWNTWlTME naaj+dJq1NeJdkd/F6z8WtdWJsrayvO22so4WVvZTbJ0iNrKQF02RE8iygjr vPxt3Vy2rzgATw9GiL0f4coBN3VR5Vm0Zh7BnuVR2OeusNhPq8kgU3I48ynw S6T1JKJYtGRiZpv7YSDWPjkc254Yhtw/D8OhZ4ch8/UxDKUzaRgzsVfs5ESC 7GZeIn7uI032jp6OjCnzmbvHaYrE0y0kUPcJ/WXPYt8MOo2kpW6w0pe087mo jTWXPneQL7L02VYfK9wJh0l7aPLyf1gTwdyc0N6HqEmNJIdRBGdu96GYcTMK yIydZMZuzzikkxlZGonDNptJsm0MU6P7xDmJ1lR8oH5+hzrSokZvWGJ0o9oz fS62fjAJ2ybPQvpiX7l9yGFbeZWqrGsmJToYzHpEpTCdlCgUO0+pneuJAkLc OM9TlVyGyJJLJ1lreaustlTESJTVlmdD4nHKKogRix6So1O03zeKjPxpXX7B zPIYYnLz8IyNHNuxdFECqneuwY+Zvi9prESfrp0kx26xuQXJsccrHgdsTakS UUBICglJ/ONDkfjIcHzx9AgUvDgSRS+/j9wX38GuUTNoCDOxneKEbXy8ic9n YPsoZxxZKprkx6HBV1XTtpEQHTyerJmm9Ipq2kD6yRN8cit2ufsjZPEyOttw WWku+NFDfnSSH23kRgt9yYDaaaZbLd4BOJ+br7PNq/ow3j44P8wtME13mD+m KXKeuHzhJvpSxWEPKXLQJwE5HIPAQ/QvE63eyqjFcmqxglIpG3RV0uE/iUqq 6ahYaaCaSmy7fsRg/ciJ2DTRxVblki8LQHSlFn1qvb+u1DIK8CiCIRd0Ad45 Gk3ZpAU4TOO7SIP5lqnxt7o4V9RjfkWaiNLLC3r7ntP8blF62UOaCIq0Bem6 JZGJyAI8WXpp3BK+wCUGpV+swfc5wfou2dtwaMUW2Z5L7MSxk9TYK3fiSMDW +QFIeG0ywh55HwlPjcbmF8cj6/UJyKWvOPDyu/icZN4sUo5NfPIHPs7AjikL kb8kGMeYwdSSEY1Es5Vo/t/2vjusyit7973qxEyamYkzySRGkwx2TYy915iI WLAXVOwVxI7SsVEEQapYsCto7NJEVOwFBaXYETuWRBPzS2KMctdu52wOW+/M c/+8l+fZak70O3uv9a62v3fvxRBxmSOCcjYyvCIyvBs0GMX6JiNY0+8XabVz KMowPsENcqmFnoy2HEShk9IURrCerROsyWXM8kRhrCT4v/LCSXX7n44OaxKi bvCyuQlaAKQWzqcexnrVn4SWs4uWk0wAT6Ol7CNw7CclHiBgHGSDwHGQMoAD NDLIsaeTUlJ9KH/xIYXGr8fWcW5WesyMeRIYATjGKXwUeTiFj8REzywkkdzk FL7FgsJH40caTwgM+aOnI5PAcWHM9HL4meolch1UK/1I45HsOiQoucG86U0h TeEyuY8LipjJ2rDM8eFdQYrT0y1xxbk3TWlNLJ7t9ccfRWebSWwosYl7yzZg HUkjavgseLTsg9l17BHYuC9C2wyCf6M+iGndHxvb9UNiyx5Y06k3ljkMKYel 3YagGlb3H4s9Ez2RSRnGMcLGaRJmjmRcX5gtSLdXPQQ2rlOGe4PGTc9SrGtO ur5EGPleupACduSCMHKRav0Cj4DSlGtOPKb0Y5a7TD0qclDorFt985WjhJeW 4lCc5eiUfiScoosILs2Qk3YEqygZWzeTXWUWjK1a75Q9NJJoXklUW+6hIXqo 0LypXpD9U/hTkmXPGAGI+bzzSSYDBHmJLNWGypMBguTiJVoh3VWcTl/B6XzC GICMYkAu9NwwVxxyHEZ/DuStkB7TeOTPEBFKiAixtEEqJE91hVBxQedzyj4x xen7LIgY9J03dq+Ixa97F+BF1kaBiM9LGRIbvk7j4VbDHl4N+8O39UAEdXVG eL9RcG/dF95NeiGoeU+EtO6BUPtBWNp3NDY4u/Hlss3qDKoBM0mExwkOWeRx cigYCRK+IOheo8HgUMTgwEidNG7TYAx8xsFmTGzmPNkZDRZZGGE/ibLOS+Q2 ChQxV/Gw54hOT/nuc+oYSlnBCpDqL3M3oLje6i2c2SsuckuJ24hVFO/XzKZB mFxFoSs34wjO07h3rUjkszVIxR7kznzFe0YqxTO4igOtKuZsQNbtarHsdhUm VRxuIXg+kYzAn2n8QqPQlcyolzPyxkznlN1HstPVPT/Zf4mCAlPxZaZib0mH 85wrerPM8ULxvn3qqvhTJ4rQu/0sJMbE4mlaENaMnoI1YZlC09W4phMj4jC6 egcENHPGBqfZSCPPdmRZFPZvjkD+yWM4lX4Yp2lkxq6gVXpYKdjk4RjBk9/9 TCs+RDHlOGk4izR8jjScP4c5fKruPSRt11PSdjl1l2uYfn2fNBzGtcwGY9vf JC+bTwBn5Ui820xks8DgoVGwOZgpOMyhuiN9r9J0cnIyGjVqhLy8PLmRYbng zua+ENWXiPVIsbaRkdY5i6kuGKfJMkurLszaPstXtM/60W8JqU6Q/X72Z9SO uextwiNCZt7YGdjfaxgKKUWw7ZxVSAZq1dwCyWoTXXVIc+pev1MnClHfLghd mrpjdXgsHqeGYEHfADg2WITc09ebyL/GbkNkP/4NB2F13xkUuwJxODoShxKj cO3CcQVTzp+frg4N6HxrUh6FPovyZjPlhXLlXfIII+8bxvnzgnNtZefeYQxd PgScOdeawZsUyFic50lhG8lcvahIOMvM01N6Ig5TSm09PPFgX3otufOo3ml0 7NjRkvdJJf7L4KapUmwqF2ZRouzekv4fKFGxNR/q9idpe0/5EL3QWP+zS64e SCdNHhs2iTLZhbjtr2nRl7SomJqcrkda9CylxRGD1uFru+1oVT0VvZqnwsU+ FZM7bcPw5qvRu1lQI/nXGF93oZMrPL7sw9e/a+oCZIZH8BuGii6cekPuN3It qqMf0wVq+WX25GT3My2Skz1O5neGNMi1SKZ3iQbXYikOrlWL5RjTuhxX4ruc WM2CEFPhVbLDS96LkEL2zg7P7SDb1/GaT3glFcorCN+w3OMwZMgQfskLq/8p Q5Nq/ERTY5kLFCvzJjxpU3Q1BvBuV0elGkuRbr0l81JXI6mQtbJ7IhiY5bku K1k62LGbBs6MmYYkxyHInuRu6QnG7ZCT7hZI0p0fckmDd2ldDWRAqFttKb6q koLW1U+gV/vLcO19GR69T8OrWxLcO5NAp0xgtzeJNzCCej3PaSKm1+nOVbl9 kj8OLBKN9c4e+h7FxYWScMZYdUyfXpo+F4hOGdOZPqnqIItk+sxi+iRXKvTJ rDJc51SX46TqvzN6LafNW0cYP0zANepj1WiBN2MYzIf7hIlY4TYdZxnDmGmU Vn4/I726XInNkQb+qWrQyX5YpsWzKuvdChWtjDHoNzOXvpO1sk1LICvXshTR lqz2kpdSt2D/FJPLfaC1hHssOJfluPm+z5sYMpULarWgPlwno93FXrcMHU91 yjxcIqNlXWqEyudylZ/39MRP165+Jfcm/SjfafOvMDT79zk4NLuNfl3uY+LA B3Afcg/ewy7BY/BulASMxYsZ/fDzkG9Q0L4Ffli5DI9I9bWlNYjrQybAtWYX hLcbhy1jfJCxcLF27K0yrjD1TyVznuYngtA0SYsh9WeQ+g+VUX8YpcK26l/C tX+LGfEdYcnhLG8qpXv21pcZT4jgVFPdkk+oXzd1JjwJA4cpLcz3Ir+VkW4n QW/DWbHoXh2KYdE2MzNT7fDqGaPqE6pvCKvfxf+z3B6pF+3k07+WhT3re5I8 2acU53K/pfVd6YaBV70Z5zKMo4MxSe9LNu4PEiHlGEbKcVS8R38U2HggX2vz d5UUlo+MdsOWngORMYpqDl+KVL7zOTbyvH3JODxqWUBeXmouMWIZxlbvhOAW I+DSahlaN76Nbt89wIC+xejf6yGchxRj0qhiJCzciSeJofhj3XyULPNASagL SryG4vdxDrjr0BZXJo9nV69Wl2GAPXZcjW/4YzcN88Be/0U4siIauQd34MeH t8SplOp4dOUqycbTGvemKjqVeMedqeEmh3CTJ3HDeXZegnpZ5M0JuTo1n8GH O1X2+21ObxfYucL23n1CUOBjxQ4zn/2zvciHTKDIMB223UKY9y8n8aC6xbIN XgUiigxvvHZzWHUlsanqJYI+M1f1wmfbYY+rjw0jk/JTxsicLRmZhJ4CrVGn YmRyBClulQ0J78e5enNOa4/JG36MqkuFLlUgm3oOwK6ho3CWVSE+/sj19sHF FctFbfEJXwtzDM52bTG34WCs7T8TKZQpHY6NwrCBOWjR/h7adbiH77rcQ9ce 9+Du8QDpx05gy9bvsW11DM4lRON+Yjh+3RiEl/G+KImchpL5o/Hn1N54PKAT TrdtjofL4nCfvqOaliCOsGuH+Y2HYO2AWUil9PTI0ihkJkbiSsHR92QelTpF C8CsR840EYYUno4Rnk5LPAm6P+VGnoy1Lam8kvKvY4qxN+9I3iaj8N7gVEcb PFEdk8/csS+5Y995OO3pjaBJk1SHA6Vn1bBLxqLyEiJsE5mFIX1niKHLEpqM h89Lv6x6dZs3mC5S/0o6qaNLVpGT8ifBiTMxnHIzKwjHGH1vDqPclD4mVMSF IGDGWFkKZg8JWuU5Ges9Di0VtxiX4raEV6EfpSp+QbjgF4C00ROxvmdvpI4a g2xvb/xUeE3thzNosR+P+n2wvPsU7KZpHYqgLHITyyJP8r918swzxK16ipXr aKz/Wa70PVwquokzZ04jNiYChynrvL45Ej8nhOD52nkoWTobJYsm4qXHYPw6 qgtufNcaT9cuw+XIuI+1BHaIXSt4f9Uf8Y7TsGfmQhyKjMQRQuz1CyfVTSWn IpcTynwkCXS+5VDJvplBgtxHKDtFKMvWUHbRUzCEr3lbjxIwpJXjWPs7i3xc sAxht6TXKvSVKKNKOd+XoUx0YMr3YyijoO/ji2srV+qXryrOhGoexXYMVPsF 1VVYOS/W0u+V8BIuq3yp2CdTIr37ubZZrbjTDy8XYo+LP1Jkv6+9vK+poOao rIidNbioea4bkk9+x09jcflzFpc/g9QDf9a7OYwz/O7KcMeyX94QkTf5ElI5 M8cLm/r2R/TQodbX+SKb9adsdmrtbtZsNiQcR9fHUDa7FQ/uF8n3d+/hwImT 2LFzG3atiUFeYjQekqf6fUMgXq70RsmSKSiZOwLPJzvihz4dcHfaRNxbGoc7 J7IqaxCa7zQJs+o5Yqm9K3ZOnoeDi5fg6IYYnDq4+e+yBrqSkoG0yd5Ic5P8 0KkL5UmU4FInUc5KknmeLZfYW/JDOZ84nKeWgh/6Ny7MGz6CYH6Nv2wOIZsj CJGw8v0UhCg38BMQKib4sFnpbQfUBU565qz6B6hAKDevTRB669XeSB1ztIl5 9SR6joSv5h2mUqYukBxAFfOCKeZJwjkhR51fKvQVpPNbkgd4R+MClud0rvck L5QckR+j6VDV6x/MKToXWEcz/4XIYx3NSBhnSBipGzcqIdSQKmW9WibU+Bbq Z9+CUBxdFYPzmdvxw8ObH0jgXLl5CznZp7EyLgrHyVfd3ByBpwmL8OeauSiJ nYWSoPF44T4Qvwxnl6u3wpPVy5ATEVepFEYnwK2WAyI7TsDW8b7YHxSGo2tj kH1oGx4+KJKbvX9DCqOPMla+m81pFQpzh/nxhBDJQl/M6aMWdrE8tcKOKZTj +KlkQRAbjCF3nQtVIsfPFjkLLcg5T8Iqb/AEpEu1Y2WTfr8lnYgKd+y0o6rA eFLI97Wtf5JJUg3tS7QQVleGfEbp2uky18IEZCzrMkxASRy9yPnFiwWly1ej dPkxUnoYZ3Xx3/0kr8tP9BIs1QKPNW7zX4BzfvNwxpdKzvhVFuvRZPCFJXFZ hlF27RHQZBjfl2Q/R5ZF4wCh42L+4Y8keHIvFuLwqVNI2r0dKaTxi4lR+CEx DM/WL0TJCi+UhLuhxNcZzyZ1x4Oe7VAkynV1DQ27ontZWChWLw7FmtDQcjpy a36L0NajkDjSC/vmheBofDQhdwdD7j8lnI4vWclPkKRN1g81WLMmFc/YAagc ebCBM00lYf0y34BhnORKnGXKmckEo2t8MPKltfVWAYeS6H+XT2JkcMojON07 cMCS1+iJirr7T+3LML7wOxJILJApZ8TKebZpKlIteS1pme1xdRCwIOkgdrrO x+6pVh7gQfdgwQPU6KP5kpR+WecCsrM7gg9IHpeQ8o5gefEMR/SdvExYuUAO Jo/wco4cTDaFpizCyzEfPzwuLCyvrUk53GoyF2RuINDJDT4NBmBV7+lIcg/g O6GHKRRxq/hUZuF7Mo8iNycL61ZE4TS5mzsEqP/ZFIwXq/1QEj2zVGmfr5X2 WQSVJtU+QaeqVdCdRl/6c+9Pq2EU3zwfhvWWzfNo7N9MRcPD23ILWhwjTHLx Jf9DQHGbL6nrAZxfemCW1feckicbGL9UB8tFbytgLrMqn5H93+YmeZnd6UJi vKhcDm9nF0hD4IR1ncz29becctSD1Qeav9EC1rta3sMqfeVzmJVKmNSxCUZy b7223ELJDF/LaYCM0pQ0Q/aeY+02Z6t2m4LelcspoxoV0IfRABns3+V+9Kqf GIzrddnPygA8TwvMZv36CCOnaIFHKal7XHjdcruUTS8v1XhFbM5RjlFX5hgU BjLDlvALCE8f2izys38i71oRjp8+hb1JO7CPMp3L5FMeJy7GH+sXoGQ5lfGL XVHiLcr4ZU3qweFfH6PfJ5+i72dVMaxaFUys/hlW92Gb8QH6ZryYxWe4mHSA wODPD3WkkNdImSZoo/yIi7tIYY4TEE7pHHVPQRvN1wnHvHFuGBcca9zHWtKJ ZnRUjUo6XC4JKpcEdZ6QkE2G9PP1628aZGRpHVgm9qh2Emrnj7kMyl0kDOoa nkVlvoDB+zi4ZB22SZbf7hmiwx5j+fGTGrwFYQh5jFDOCM2VrNACK9uvHP0S QinRBe7+FgkKFy0smxaW5S867B3nHfbmMe2/acbkR1L5bFvPtZY9IjqMx/fj KEcIFDlCDs8RbtSSc049chz557KQSO7+LJUvxWTKvOBe5YtNzj0xtFYtuNSr jkl1qsOtQV14tPoSa1xGUJUVzaosUUdUxVGWjrnMQxIpOEk6y1R53o0reXYI 737OSH1ZpOSznpLxyRr68tapi/n5wHyfxbzpYB4pN4/kkEvjHMkhh+SQw7tW BtJYiLPkKQtWrXlbiwSqw5J+5lntzfxNmjgrZVjVrO7OYHs0wqPKI51ltuwV 05fx8r53C8A20u2uGYKHphiLVjprKNcv66CY4y34eed5a0DWFPCvtBDWFlC0 BMzSSFiHSakHfOfjx8KiUk1DNYj9Q9szU1txm5w9kT6Xvn5lDPaSvf748JZY xDu4cP0mTlF9G7EkDAepopjW3QFDmzTG5DaNMb1tI7h3agrfbk3h0fVLJK9e opqasZMSu1i4m7IQu8lM98wQ3N19NgxvDmZ2NkBbcDneNPJt3gXxnI+1B+JZ WjBjnZ0hDZ4hDZ6RfTQLVq8r1cmyTAJYZhvkA8025aYaU+gblkRQ3Fkj9yxK b8ULNX6E3ORDSJwSgC3TgrB9hmCM7SUHtF/RCWlVx2ULw1O8hSHh1SeUNzHM 4i0MCcO0mmOkvsOkvoOkvv2+ARQJ5+OHwqJXLOh9mbtfyCvCrhVb+Y7YPLYj NmAWUtQO1eYoXLmgjs39FWOpPG1Soz66NG6CoR1bYkrXVvDo1RyunepjXNvq 2LEyTEanT3CfctutE+fyGLRjagB3QLvI+pLJxabTCvdr1NpjtEIGVtbDkjVp 5HRBWuUZtkrfUL7K035ilSdplSf92QgkzxOAvNXry1AUWcWnXzShDmtVlian b1YxohvTmopbNrudkqrSQBOitl9eU2Kbkdz2RW3AJlLhFlLhDlqgaL4YYm2+ yC7ho4B72DukHO+6WBGH6ddM30VkaMHIYH0XfVnfxYU4Fr/OciGlnlC+Jy3u an4R/Np4cotb0WMKOXa5zST2eupZNkEqyH+QdewEGn9RAx3q1UHXpi0xvltb +PRvjpEd6mB4++r/lkhkwWLr5IXYOjVQNNVkaLQhuIrGmlRFkq6OkZ6Os0G6 Ok66Ok56OkbjKNvRJ10dkU01D5OeclatV9er6tHhL5pdaflPZZlSxsfHW05c KRtTdVeF12pMMWxsavWaEsr3rtxAWsxGrCdIJpAr2Uap0S6Ki0lUp6eQttI8 GQ1xr9cimkSa9yKkegcjmcYe7yDs9A7AoZXrOcnoA7N1vSPnnxB7DsudKdsN P4iDll2b71F8/3qZK7Wtb+4qYnQ/JzStWwftm7aAc492mDmwBfq3Fy2V7GTd lbFkLRJJW5tJW8x3bJvBGKe0hFkhSCVNpdPI8GDgC8VB0lImjUPeFNIzCXZv 4CApaj+Bbz8paT8piXU9LTxwqLJ5QeU0PWkf/0POV51zYtakXjTIN1T/Bz01 NuBceMZ3cfdKEbL3HkHK0o1YOysIG2YHIXFOMLaw4UGmRn5qM40ERkPafwS5 +w9bmhroz1MdPLevK6ZC7B6unX2A3GN7WR0J04W5ltL01El0btUfc6dPwkY/ p5qylODWHrkeG8mtsQtXE0nwW8lEdpLF7yGhJ5OJpEoM7SWL3+tNg2Se5kM4 4iOYzDwIJ+I34FFhkermo/eh0kpG1deBQV5dcEsO6/VSbaJpUdvnVB0Eb1+9 IVhF+w6Loqy83DJlf0/98PilapaMo0+Rf+cpHj199tpLZft0mI0tS2PxS1oA np9cp1K6e6TJVHKQq6cHYi1F741kcolUsH5PmtxKJredxg5PGl7B2E5jGxve gbh44AgeFBYpGbCzcewcizzLovr5qQajvHGlfPlQ/rXyUVet2HiHrhLO6h+p cK2baJvXrN6xzXRsiIrFz2lBKMnZXFc+7s7VIgurLSluI1a6ByJ+diBSl29i iVjGEbbdd816ndLHEhG6sWk7AR9rxaF696I2xSvYZh7NNSRoNmFvs1I2FFjY DwuhLc0iVO8FHVu4ID48Bo/TQlCSt93RkOOqNzs6tJUu1e4Hm/XSpUvF3oDl O202P74zCL2c9oXsh1l6S8vyVSni2GQEYheJy/VKCnb1sPFjMt6o9596af4v LVtQ9bc67Sv2mC23udnUO50Ns9XxqFlkR/lxwur9CA+IQnFKGEouJal840pB Eea0n4qsWeF4knfdtlM7S2oqahLTNvE+lLPXN5oYSJgLkbNvY4AG/e9vzGpX 75LVxzZrVpcZJixPR/DcKNxOXsIOaqqFjOpA7rvnJvy8eDNenjv2oTnsq733 srtopbdCWFrA1ioX0k5biGbNHSxgKF/6T2XXrJ6QEJOGed4RuL4nAiVX96rZ D7VrgaOde+N50n6UPC7+pzb7MkG/QikQWWJkmfq9osXvirwIHbTFq3/eTf5b m5NZSnMJUcnwnB3Oj7SVXNv3ueWRpleq6hp4tgUzp0YH3B42CCVLh5t2KSsZ pGSpdt6whCGmAvaJ9LkVDV8q0lh01B6o5c/dDPq23JAYsRvTp4WhYHsU/tgw 4gsJA/3hyiUrW2eV6LqGDvht5lCUZO+wbc0hQaanoapAV92h9fvCdaYVc1Kv WZ4yGZtw4mDGpeUGwIjtcHWh0pTdx7914heG55v0qILNcALlyS598DJoOEqK C/SdRO3LXpHPvS9Vqcj6TDZMMczKFDjNa/3WoDOTHltYVpnIr5nP2kKr3DXl P12lym8YWn1qdsS9EYTWuOHqoJoeZWxTPha7/m5jdOyH1vrGq9f1nQGi5KB1 HWoBqZllejkY60ylaEIsXuyZ+d+uzttpHBKadMPv7sMYYtVZKpvo9LG2aOUZ 3pdYULbIXCNziwypr1ml/euQWtr3NJOfjRy4AJkbYvE8ZY6lM7UxNpgD3ii7 ljjj0BcvQzhM37dZC3M3n9rIWFJP1K0I+st/pkvKFoQRcI8uj6F1NbgsWoWu Pi06qpbn7C709LWx+CPVB5+XDhJ8NUpPjMMzr/Y3eDB6MEqWO1fS9KR5ls9s gMjSHbUIlaSxSagsQoRzi5NXJirn6GDQuqqWBtv7Ijk+Fr+n+Vt2Cb2dxmNr s+545kFYytnxnjZHTdMKoXrfUvW2gWFHCZr9sL8j56jyJpuo39UgXlq1OgnX /xsPfh/5r2nzLdMcZ9cK53r0Q8lihof8d7VVqvBT3QYPpXpbV9CrIPalcoY9 DQCgv+lgnrhS1dHNh/DgvDgspHbKerWbhcRYUcP8cXxNXQ0DgXU649E4wsCK Ya+4d7yWDQbYZNXbYwZktu/EZKz2neTse5ndtAnV9ERF35zQ0RfBTSdiml0j 1oFQLcCxlRvWRcbiJ1aGZCeqBfg6TcCuFj3w3NsZJed2vG0GiDrOoWcx6q/a bMFY2TbCINDH4EZsFSC/pooMQCPa7oWjnQN6k5sYRsuYSSMzIk59o2OzcVgR JouM3G1qKRPtWqOgd3+UhA/Hi3v5b2kgUlGhvkF09L2qSYKeF2u7FbauU1tc XwPW6V++QkXvWHyI9YpG8d1vIjz4DgZ3DKB1O9Gwp7W3oGjeCNFOY1F4IkuR VbwmhSI6OBoPRelSR8Ph4nrf4seJTni+YuhfbdQocWjb3ZqpQnUR0C7W13eu TUFfeBH0NytRX7v28duGB5lCxJvyV959qNZEksUg3nmor10zChuWBnGqwklY mYGwBVG4l0w10sUkJY+5ThOR0ron/vRlsN7+poYFFWAamecpvHtFy1XG6n4n 5WCYfExCEXaGgQYROxg+MzGKTOJ4S4kjJhWONVkntQE0vuF9RseQOOJIHEUn siz9e+L2IsAvEreSeKWl7HayXRtc6kcKixhuqQ1tfJS+O6SZxl8M8VbtK7xG DIPMIdYWGzKov/kfCuMdKQyvMdFwrDFWdoXsiP52TSiENMJyEsaNE1kqy0iI SoWf5xJc3x3JCrfamq1EfdkFT1yGoCQp8A1NHhoOmhsirZKyelfA7iKlxOMV 227SRTi9zkxKvxI0CdQkh3elHHgrtpFRcKw+muTQh0Z7DCBZsO5c8U5j1f5s QuQezJ4ZjsuiIlRyGEgWta+dI17MpaB7fvtftAWroNvKbCPlJSjUyV4Vtyw7 8DxjElkdhhiARYvVoaDFc9PFxiYRVJKCYB1qvIZHyCZljjTa8gZlLiSChMVL MGOQO6ZMWYz87dH4fe0wePTtK89GiTJiSvW2uDZwAEqihis12hhGWxvrZYtV CFNAYBaRl5cnNxKH2UitFPhLI8pmE0JLXt9B7mla2rAltKThNHqgF8W3ev/4 AC3/WRsuE0J4iVgYMQRDa1bBfKc+ilfGGFpxX9njqRtJPjlAkXN0eItdhb+W mgn7hBm5qnTZ0ph5yjUNl0/XozityV5bqpbrfaqWcOoKHOu7om2Vlqjz96po 9kE1DGz5Hfz7OcC/Y21MrV8VU+p/giORETgSEadaggy2a46DHXvhxXyGzG36 pp6K5J2kCdiUB/xTLReUsx9hjscKgzZ5oJh9ZbhQEKn3QQ20/KgGetRrhMkd m2JelwYIbl+bRnWkdW/K+7zf7t4JVzq2R3ar1jjYtDk2NmjMabRFkXG4QM7m FI0rJ7L+JaXOYDezRnsUOVGwiBGCVdqRnUJlQV3RMtkdO3aU2c2WVymMMtuo vXnJIsX6FMsWh6NZNTu0+aI2nOrUxey2X2Fut8YIcGyK4F4NkTFjIP5Y6oc/ I73wYrE7XgZOI0fhgueeY/FsxnD86jIYP4/ugx8GO+CuY2cUdu6A3DZtcKx5 C+xq2AT3l8XhVlQcLtPas2mk0agkdRa15BBc+s+H2xd9kT2cAnRKgB6Z7WVG wmbu6emJgwcP6mFHLnuMZpZKd7b6lKLgBqWVbjWQdew4GlergVa0+uGNG8C9 SyPM6NYIrl0b0vgSmanbsWNtFDI3CrbJxYQo3EiIQPHGcPy4PhRP1wTht/iF eLZsLp5He+NF+By8DJ6BFwsm40+f8fjDfSR+I/v7ZVw/PB7WA/f7UgJh3xEX 2rXF6ZYtsbdxUxwfMxZ3YuJwjSSTS4Pw/xcpoOGD1+Lrfy9A68rDMbjqGLh8 OQa7woOUR3KQ7pcJyMHBAR9++CE2bdrEXbCUzliDXZL2XwEK000/Kg+aPmAE 5tRtj8397eHWvTEGtquLQR3qoCDnpIyH1ZFy7ChOnj2FvPOncTU3C7fys7Ap PhLp66NxclM08kh8hQmRuLspHI82LMZPaxfhf1YF4NnyeXge64sXEZ54EToT LwOm4IXfRDyfMxrPpg3D/0wciJ9G9CptZK2FkcV93QXNPvVFxyoR6F4lCBO+ WoyZHQLQ48tgHNmnkq6KFuSwTYL09HQsWLBAlSrqqqvxZtjYmw3LdO1NBQnZ hU6TcKBjH3JcIxE/+VtsWBWNc9knBfCr4CI5psOnTyAn5zQukZxukJyWLQ3D nnVROEJQyyGoXSY53doUgfsbw/BkXQh+WR2I31YuwB9x/vgziowxzB0vgsgY 57niuddYdK0ej4F1tqNf/T3o9eVOjGm6COMaTMHm+ONKBIpNpNLZwYMHo2nT pny9UgQTDSlqV8Nn7xsWr7IB5tc8anbALWdKeZaOxp/F+ZaGDeknjiEr+xQK zmehMC8L+5K34vvVkdi/IRpZhJACQkgRGdg9MjD7hicxqO0V9GhyCT0b7uQ9 RwdSSGcZXgoZCqW7ygJYwGKrGTFihOVQpFzRJHN+8Qqlmo5MqiDPWMebm/bA 73PIV+8NrmoJ1H+ROciVmzcxfVomvq5/HR1aFaNzm9vo0XADBe1hPHCLrsdN eNfjCEpRr5KguhiSDYprMl65vg6RpTViOq6gZj6BMobcXgPwMoy0kbtNbanZ 5KkVZELFztaMdF6AurWuo3GTO+ja4z6GORVjwHdbRcvu6qNkH9hvqDptDida jovsw97ZnETL942TzSmgvVlFb1kErO+0RdTvgseulFqtGlXVvI5yEmu2sfTk yV8xZNR9NOl0B/a97mBNxBn+NxNW7aPsOVqWVYN5U9NeshU5K62S6Vup8lav YFT2YW1NhCnmRE9XkwpNanfQiaU2nchDLBiJktydVaXHt1kK/10LiZaKJjIZ 3rOXoGgXVTRX0sTHbyE3+xq8JsTKbr3OMhFuz1ttO9NKwgl0GRFxbWyUVGon GdPMGV4XbY1aJac468zovWp2tBj983v54iCxQGSZbNqq0j1wnx6Gq6wmuZr+ hsyN2JtCxwZTZEXTT/YcbkEpfSNe1aSSTlpqClGFinzpN90c3+y1f2G7feXj NB5bmjHrpiQxLVhdAc5+bI9bW5vkip7JF7azeirjTamFhDX7ZGPsCXIXx4FG GyrVG2N4jTbwbOOGG2tTmmha0FiD8l33TLN/6mJYGOXZap9nIn1NXm+qYsLJ 0M9v+0xbr/qxbJhEfA9Xqh5yt0bj+YHFb6mkNIcgNGkpHOu5yoKjFwZ/6YM9 fVbg14UxeHL8pIXjoXslyUp11yDPiBhMwq94rWDtPM3KcHs8EUZdzSwWSzPy iARMGB2Ms1ti8GLzWNXMPGEF4aXhNDh/cwIZkTfx/HQhfr93/WvtYWX24jHb nByZZEwfK60zy83kljvKarml66q3LJONx9hhgTiVEIOS7a7KFJRxyx+1tOCA 21i5rRg37v6AJz89bqDNXRObaF0AD7NQu5hhU06zUm+y0tvDrVaqboJQvXNY VaWseuTAhbxD7Mvd0y2zNlXmapNEi2DqhhgvQ6yyl95O/4x94sPfUvTAMw+y wb1BVWwkIB25eiPBbkw7uI5dtOj+2sk1NQtSXjjlbQ4+XWTOpAtyEllXfh9h Xc/Pb5NJTendxEpyckMc/JC+OhbPkz1fO7km2jOUExMVPHxtVGzjiOe7zUI0 s5vJzG5GfqytUoO6ehU4sLMXkleyl1m+lvlYtxpsRST/sdgggZ85bH+nlkp+ +dA3ZBALR2F/5FTuIl9xVE7x2vt1nIOdy9grqrmlZ2MjncYG6YhtK8w1x9xv pN7Eq+FOuDOCkB43God3rbEI0cRqUKVPr7YzsCVWvJWy5h78Tw21NWmeSeyt Yr4h2HeSTpXhelvzngrX/FObOGp5KW3z9Mrysey1zYbIGP7eqYX8TNGXmXDF OVMsMPuuDvJjF0JwQZ+BKFlChdW5raYDWyqz1zWnOC2OzSdgdXgMp7D9fniV jhoNcuLlCgLMHqqt5vZjv7LHT24E39UjX3E0SGW1umNR/CDHxs6IC6GQlLoI JWcT9HiqfZ+8RT/IEJhUHsQYPEc69+UAJo9e0Wbi0u5s36VIb6SQnrAqA5GB UfgxJRQl57c2Nkxctg4JNoQdWmpLzUf71eqEuyMFcn+7mwvToSBSa0Ub/Vkb JlbAiM5+CJ0XhQfshciVww3N0hEBEiFmXSl+ILticDvDryfH79vabMrsBpeB g7pbaqF7PpYvycWjM7n4/dGDr7W5KyOU7ZpCzf5G0Spc7driQl8B4t/Ofa82 wW2Dic1KrXchlbNYtHrfcLngN2Se/wW3Hj2FHnY1O5R9xsLM0UK1PAl0icba 1p6470JeP36sCga6oNRa1YEuY/FS2gs2M6hZNsNbYsaq0rZblxRkeOfg+Z4s lNy+oLYs2LpUA5L/Yh66hWkKlr0bI8xa++KVcq+AJZTxJGy+j4dFxWQBD9T0 9M5+/8X0lBJ0t2gBMaLMoP38P3++ev2bnv0Ud396xv9LTVlvWGneGwGM8qPJ yna4MYYA8tl/PjvFA2LrY6K3zsTMi3uFu5RtmWPNDue1FXfp+ajkiD1bbci/ Z0GAbVQtzxWuymrZ0T3O7JWq/N9N4luzHxdxCcs1LShv8sl//4V6ix/F+NU9 nWDEYoU5FHxkkY41RauqPUUhrZPZV4loj3iz+FppD9q8eTP/r442HoZZoHg4 VpnNWhXfOtzaa9PR/INIybDG7DpVMqOrqK32IG3mQpBYZ/Z5ykvqzq21YUZk cSJzxXrz0lSfRN0NtTLPSOTi2Gj2LY0NKtM3LRTcxQYrEgwOoJFBzM1t5lLq bQASDZCy3N5W+kF6XFHA7C6essWMnQYGZTXWpqOBUJDCsNVgT+rAo24kpj0F cWoA28xGUt+gplfU+4JAhR3mRdU1qOkVxXdv8aCdZuDUMcj4SzMCBV8Iu802 Udsg5nrmGfUTD0oy20RNw4P05SoEDhBPSTZ7/RqavpSka9tMR0pa0F6QajYI O4Oka2mfKRAOFk/ZazCIfxtkXEObi4ZAQbhAutkgPjc8qLo2FzXtoeIpGWbs fGYQ8BfadDQQCjYADhgMoprBID63EbD8QmfxlINmm1B7ObpNqCnqlYh4D45D 5kV9YlBTVfN0RooHHTYbhCkn+VR7uNL3aPGUo2Zr+Eh7Civd2H99ok1HU7l4 GYzjZmv40KAs06mZceIpJ8zW8E+Dsl5xZEW8UMQpszVUNihLVdo2OewE8aAs g0F8YFDWKw43iFdhOGM2iL8ZlPWKcwMu4kHZZvi8bxCzerjK8tj6xNsgnDMY RCXDIyrZzEXmbW7iKefNBvGuQcb6hQsKgVPFU/LMK3rbIGOd4qshULw9Qb7Z IN4yyFh/uELgDPGUC2aDeNPwFH13QlO5eI2AS2aDqGgQc0UbMUsRzBIPumy2 CVUalW2/XSbyiU13XDXbRAWDviqYZzRHPKjQYBPlDfrSP1NhT27NXpcLtzEI /qmSse0ZZ4k+sbuNG1IHNrixCFaHmo/4J7f4b9aTvcyzaTiSu7S3NVUzmbDh L/4XLzgm/P8//7/2Z/yv/w2HL/F2\ \>"]] }, Open ]], Cell[BoxData[""], "Input", CellChangeTimes->{{3.5681365021632137`*^9, 3.5681365171392403`*^9}, { 3.568136560351316*^9, 3.5681365863097615`*^9}, {3.5681369135895367`*^9, 3.5681369265999594`*^9}, {3.568137821916732*^9, 3.5681378378443604`*^9}, { 3.5682072492149415`*^9, 3.5682072529901485`*^9}, 3.568209802830227*^9, { 3.5682216503836985`*^9, 3.5682217583046885`*^9}, {3.5682217912831464`*^9, 3.568221843465238*^9}, {3.5682219760654707`*^9, 3.5682221133457117`*^9}, { 3.568222159615393*^9, 3.5682221693498106`*^9}, {3.5682222565227633`*^9, 3.5682222578487663`*^9}, 3.5682224736283445`*^9, 3.5682227227607822`*^9, 3.5682227558640404`*^9, {3.568222818810151*^9, 3.5682228486062036`*^9}, { 3.5682230057764797`*^9, 3.5682230079916835`*^9}, {3.568223041952943*^9, 3.5682230548229656`*^9}, 3.5682232619601297`*^9, 3.5682233000709963`*^9, { 3.568223536645412*^9, 3.5682235381118145`*^9}, {3.568223591151908*^9, 3.568223591526308*^9}, {3.5682236491528096`*^9, 3.568223657483224*^9}, { 3.568223713222122*^9, 3.5682237532361927`*^9}, {3.568223800379475*^9, 3.568223827648323*^9}, {3.5682238887380304`*^9, 3.5682238893152313`*^9}, { 3.5682240287170763`*^9, 3.5682240612431335`*^9}, 3.5682241088076167`*^9, { 3.568224198772975*^9, 3.5682242396450467`*^9}, {3.568224282170721*^9, 3.5682243185031853`*^9}, {3.568224437890195*^9, 3.568224439590598*^9}, { 3.568224572253231*^9, 3.5682245867144566`*^9}, {3.5682247081762695`*^9, 3.568224733557514*^9}, {3.56822480520844*^9, 3.5682248433505073`*^9}, { 3.568224884206979*^9, 3.5682248959069996`*^9}, {3.568224982830352*^9, 3.5682250047639904`*^9}, {3.56822503870965*^9, 3.5682250803305235`*^9}, { 3.5682251223413973`*^9, 3.568225141451431*^9}, {3.568225234177994*^9, 3.5682252929588966`*^9}, {3.5682253775890455`*^9, 3.568225482140429*^9}, { 3.56822551694409*^9, 3.5682255297205124`*^9}, {3.568225573197789*^9, 3.5682255809666023`*^9}, 3.568225660698343*^9, 3.5682257301964645`*^9, { 3.568225765078126*^9, 3.5682257828933573`*^9}, {3.568225927026843*^9, 3.568225927416844*^9}, {3.568267062420238*^9, 3.568267081358671*^9}, { 3.568267188328059*^9, 3.5682672830358257`*^9}, {3.5682676367040462`*^9, 3.568267747979042*^9}, 3.5682678404716043`*^9, 3.568267882030078*^9, { 3.5682679252577534`*^9, 3.568267996612279*^9}, {3.5682680488879704`*^9, 3.568268061133992*^9}, {3.568268100914062*^9, 3.5682681150944867`*^9}, { 3.5682681672609787`*^9, 3.5682681709113846`*^9}, {3.568268272904364*^9, 3.5682683182536435`*^9}, {3.5682685202739983`*^9, 3.568268599194537*^9}, { 3.5682686348873997`*^9, 3.568268637773405*^9}, {3.5682686944951043`*^9, 3.568268872273017*^9}, {3.5682689420207396`*^9, 3.568269016947671*^9}, { 3.5682695040741262`*^9, 3.568269601153097*^9}, {3.5682696652380095`*^9, 3.5682696728352227`*^9}, {3.5682697489633565`*^9, 3.5682698308635006`*^9}, {3.568271156491429*^9, 3.568271160063835*^9}, { 3.568271244927984*^9, 3.568271369010602*^9}, {3.5682716250070515`*^9, 3.5682717312276382`*^9}, {3.5682717843301315`*^9, 3.5682718576814604`*^9}, {3.568271940673606*^9, 3.5682720536490045`*^9}, { 3.5682722259669075`*^9, 3.5682723223126764`*^9}, {3.568272370813162*^9, 3.568272411466833*^9}, {3.5682725893539457`*^9, 3.568272622238803*^9}, { 3.5682726936713285`*^9, 3.5682726960113325`*^9}, {3.568272741079812*^9, 3.56827275143823*^9}, {3.5682729218373294`*^9, 3.568272991070251*^9}, { 3.5682734285574193`*^9, 3.5682734302890224`*^9}, {3.5682734898811274`*^9, 3.5682735111595645`*^9}, {3.5682736115925407`*^9, 3.5682736313577757`*^9}, {3.5682738601945777`*^9, 3.568273987272401*^9}, { 3.5682763944346285`*^9, 3.5682764313910933`*^9}, 3.5682765128232365`*^9, { 3.5682766527398825`*^9, 3.568276660976697*^9}, {3.5682774496048822`*^9, 3.568277461663703*^9}, {3.5683784032731285`*^9, 3.568378422991563*^9}, { 3.568378459308427*^9, 3.5683784812420654`*^9}, {3.568378513440522*^9, 3.568378867046343*^9}, {3.568378915468828*^9, 3.56837896203491*^9}, { 3.5683790764299107`*^9, 3.568379270041851*^9}, {3.568380233530743*^9, 3.568380234388745*^9}, 3.5683804214954734`*^9, 3.568380471867962*^9, 3.5683805399464817`*^9, {3.5683812396077104`*^9, 3.568381293537005*^9}, { 3.568381339541486*^9, 3.568381420224828*^9}, {3.5684645223056345`*^9, 3.5684645572340956`*^9}, {3.5684651558539467`*^9, 3.5684651618911576`*^9}, {3.5688209923798466`*^9, 3.568820997683856*^9}, { 3.568821158754139*^9, 3.568821160750942*^9}, 3.56882222404881*^9, { 3.568822649274357*^9, 3.5688226508031597`*^9}, 3.568822723109287*^9, { 3.5693397221142225`*^9, 3.5693397223326235`*^9}, {3.5693899272912874`*^9, 3.5693899274472876`*^9}, {3.5693910617720795`*^9, 3.5693910848757205`*^9}, 3.5693911374166126`*^9, {3.569391214402748*^9, 3.5693912147147484`*^9}, 3.569391451944365*^9, {3.569391487793228*^9, 3.569391507620863*^9}, { 3.5693923162258854`*^9, 3.5693923173958874`*^9}, {3.569406068526634*^9, 3.569406086092265*^9}, 3.569690172138941*^9, 3.569780036185542*^9, { 3.570453906913044*^9, 3.5704539079894457`*^9}, {3.570454575670618*^9, 3.5704545899602437`*^9}, {3.570454765008151*^9, 3.570454772277764*^9}, 3.5708553779481487`*^9, {3.5709431726830034`*^9, 3.570943174555007*^9}, { 3.5709495710522423`*^9, 3.5709495907082767`*^9}, {3.570949647617176*^9, 3.570949673138821*^9}, {3.570950759321929*^9, 3.5709507772775607`*^9}, { 3.5709508127364225`*^9, 3.5709508405200715`*^9}, {3.570991123104905*^9, 3.570991124259307*^9}, {3.5709912161278687`*^9, 3.570991227937089*^9}, { 3.5709912804155817`*^9, 3.570991308776431*^9}, {3.5709914026885962`*^9, 3.5709914215490294`*^9}, {3.570991574429298*^9, 3.5709916038821497`*^9}, 3.570991652445035*^9, 3.570991830004547*^9, 3.570991865276209*^9, { 3.5709919181759014`*^9, 3.5709919260539155`*^9}, {3.570992027251293*^9, 3.570992050058533*^9}, 3.5709920901350036`*^9, 3.570992186979974*^9, { 3.57122255431676*^9, 3.5712225562355638`*^9}, 3.571223175338251*^9, { 3.5713153738729277`*^9, 3.571315375682531*^9}, 3.5713224026962075`*^9, { 3.5713224627875133`*^9, 3.5713224654863176`*^9}, {3.5713224965147724`*^9, 3.571322572268505*^9}, {3.5713226259637995`*^9, 3.5713226549330506`*^9}, { 3.5713308245340652`*^9, 3.571330884469371*^9}, {3.5713309160126257`*^9, 3.5713309422674723`*^9}, 3.571331071326499*^9, {3.5713311246629925`*^9, 3.5713311332274075`*^9}, {3.571331300334901*^9, 3.5713313470881834`*^9}, 3.5713314298931284`*^9, 3.571331594130217*^9, {3.571331632849485*^9, 3.5713316334578857`*^9}, {3.5713316704299507`*^9, 3.5713316709447517`*^9}, {3.571331783327349*^9, 3.571331790019761*^9}, { 3.5713319475956383`*^9, 3.571331948360039*^9}, {3.5713326567416835`*^9, 3.571332681717327*^9}, {3.571332736801024*^9, 3.571332753305853*^9}, { 3.571332796221528*^9, 3.5713328475768185`*^9}, {3.571332914344936*^9, 3.571332924672154*^9}, {3.5713330072586994`*^9, 3.5713330320471425`*^9}, { 3.5713330798612266`*^9, 3.5713330883320417`*^9}, {3.5713331731961904`*^9, 3.571333178266199*^9}, {3.571333407851803*^9, 3.571333426837036*^9}, { 3.571333542292839*^9, 3.571333557705666*^9}, {3.5713336117441607`*^9, 3.5713337055939255`*^9}, {3.5713337750608473`*^9, 3.571333798070888*^9}, { 3.5713366694988756`*^9, 3.5713366834765005`*^9}, {3.5713369716090064`*^9, 3.57133697359021*^9}, {3.57138272164856*^9, 3.571382756233821*^9}, { 3.57138283537276*^9, 3.571382866900415*^9}, {3.5713829070080853`*^9, 3.5713829086616883`*^9}, {3.571382939175342*^9, 3.5713830233374896`*^9}, { 3.5713831045200324`*^9, 3.571383106126835*^9}, {3.571383198260597*^9, 3.5713832448422785`*^9}, 3.5716785972796593`*^9, 3.5718167268987517`*^9, { 3.571838452469782*^9, 3.5718386879053955`*^9}, 3.571838766139532*^9, { 3.571838857446493*^9, 3.5718388645757055`*^9}, 3.5723437133735733`*^9, 3.5723437554312468`*^9, {3.5723449027196617`*^9, 3.572344929582909*^9}, 3.5723450406551046`*^9, {3.57234950163894*^9, 3.5723495196413713`*^9}, { 3.572584520172369*^9, 3.5725845258195786`*^9}, {3.5726224003989472`*^9, 3.57262241340937*^9}, 3.572796748424938*^9, 3.5727968708695536`*^9, { 3.572796971801731*^9, 3.572796995841373*^9}, {3.57279741546651*^9, 3.5727974308793373`*^9}, {3.572842795856916*^9, 3.5728428061217337`*^9}, { 3.5728522627179437`*^9, 3.572852288426789*^9}, {3.5728523495164957`*^9, 3.572852453865079*^9}, {3.5728524960787535`*^9, 3.572852515110787*^9}, { 3.572852550008048*^9, 3.572852634669397*^9}, {3.5728602362372026`*^9, 3.5728602649256525`*^9}, 3.572860311756935*^9, 3.5731241886618786`*^9, 3.5731408095114717`*^9, 3.5731408826443996`*^9, {3.573211072949067*^9, 3.5732110779254756`*^9}, {3.5732129727516036`*^9, 3.573212981300419*^9}, { 3.5732130120948725`*^9, 3.57321301629128*^9}, {3.573213384015126*^9, 3.573213388164733*^9}, {3.573220427063021*^9, 3.57322044338065*^9}, { 3.5733208085662665`*^9, 3.5733208285343018`*^9}, {3.57332089027921*^9, 3.5733208917144127`*^9}, {3.5733209483737125`*^9, 3.5733209652997417`*^9}, {3.5733210904587617`*^9, 3.5733211330312366`*^9}, {3.5746581574587035`*^9, 3.5746581598923078`*^9}, {3.5746632559372582`*^9, 3.5746632963569293`*^9}, 3.574669479281269*^9, {3.5746708530664816`*^9, 3.5746708831121345`*^9}, { 3.5746734822639*^9, 3.5746735338531904`*^9}, 3.5747441301394944`*^9, { 3.574950644335537*^9, 3.5749506488751445`*^9}, {3.575001627819734*^9, 3.5750016487549706`*^9}, {3.57534426719551*^9, 3.575344278926731*^9}, { 3.5753450565880966`*^9, 3.575345065324112*^9}, 3.5753451320610294`*^9, { 3.575345171575898*^9, 3.575345181091915*^9}}], 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", ",", "tpo", ",", "tpu", ",", "tplo", ",", "tplu", ",", "tplk", ",", "tpll", ",", "tplm"}], "]"}]}], ";"}], "\[IndentingNewLine]", RowBox[{ RowBox[{"bt", "=", RowBox[{"Length", "[", "tw", "]"}]}], "\[IndentingNewLine]", RowBox[{"(*", RowBox[{"MatrixForm", "[", "tw", "]"}], "*)"}]}], "\[IndentingNewLine]", RowBox[{ RowBox[{"(*", " ", RowBox[{"coordinates", " ", "of", " ", "clouds"}], " ", "*)"}]}]}], "Input", CellChangeTimes->{{3.568895397419882*^9, 3.5688955157148895`*^9}, { 3.568895549629349*^9, 3.5688955855718126`*^9}, {3.568895617317868*^9, 3.568895845234268*^9}, {3.5688960797194805`*^9, 3.5688961015127187`*^9}, { 3.568896219074525*^9, 3.5688962276233397`*^9}, {3.568896262910602*^9, 3.5688962903198504`*^9}, 3.5688964250728865`*^9, 3.568896456912543*^9, { 3.5688981540863237`*^9, 3.5688981869399815`*^9}, {3.5689021233572955`*^9, 3.5689021341525145`*^9}, {3.5689111169043026`*^9, 3.5689111218495116`*^9}, {3.568911235261711*^9, 3.568911242437723*^9}, 3.5689112948850155`*^9, {3.5689116510180407`*^9, 3.568911800419503*^9}, { 3.568911871820829*^9, 3.5689119012892804`*^9}, {3.5689119993042526`*^9, 3.5689120006770554`*^9}, {3.568912144306507*^9, 3.568912165085744*^9}, { 3.5689528310632005`*^9, 3.5689528569592457`*^9}, {3.5689534065794115`*^9, 3.5689534297298517`*^9}, {3.568954496214126*^9, 3.5689545054337425`*^9}, 3.5689569073699613`*^9, {3.56913308739126*^9, 3.5691332012870607`*^9}, { 3.569135511323518*^9, 3.5691355127119203`*^9}, {3.569136204167535*^9, 3.569136290747687*^9}, {3.5691598050571885`*^9, 3.569159843199256*^9}, { 3.5692215417755947`*^9, 3.569221597186892*^9}, {3.5692216819730406`*^9, 3.5692217090546885`*^9}, {3.5692217693019943`*^9, 3.5692218260704937`*^9}, {3.5692219780303607`*^9, 3.569221989433981*^9}, { 3.569222055468897*^9, 3.5692220728005276`*^9}, {3.5693401536421804`*^9, 3.5693401889450426`*^9}, 3.5693411655535583`*^9, {3.569341634303181*^9, 3.569341638733589*^9}, {3.5704549882757435`*^9, 3.5704550487414494`*^9}, { 3.570455928146194*^9, 3.5704559415310173`*^9}, {3.5708553973857827`*^9, 3.5708554057785974`*^9}, {3.5718402591869545`*^9, 3.5718402726497784`*^9}, 3.572328636723397*^9, {3.572328748419593*^9, 3.57232875246*^9}, { 3.5725921859362335`*^9, 3.5725921932682457`*^9}, {3.5725923978158054`*^9, 3.5725924023086133`*^9}, 3.5725926630786715`*^9, {3.5726167873570023`*^9, 3.57261679757502*^9}, 3.572620232450739*^9, {3.5726252144466896`*^9, 3.57262521482109*^9}, {3.572842310446463*^9, 3.5728423195412793`*^9}, 3.572851092419488*^9, {3.572851145927582*^9, 3.5728511735708303`*^9}, { 3.5728512529593697`*^9, 3.572851265595392*^9}, 3.5728513850916023`*^9, 3.573124143499799*^9, {3.5733124027399025`*^9, 3.573312472362825*^9}, { 3.5733130968319216`*^9, 3.5733130974091225`*^9}, {3.573316202329376*^9, 3.573316209786189*^9}, 3.573368517265889*^9, 3.5746700189174166`*^9, { 3.574670900474965*^9, 3.5746709256066093`*^9}, 3.5753448801985865`*^9, { 3.575371249764445*^9, 3.5753712595300617`*^9}, {3.5763817420169*^9, 3.576381761454534*^9}}], Cell[BoxData["42"], "Output", CellChangeTimes->{ 3.576388759583222*^9, 3.5763922800794063`*^9, 3.576392395051608*^9, 3.5763926942133336`*^9, 3.5763932061750326`*^9, 3.576393377151333*^9, { 3.5764057824748836`*^9, 3.576405792505701*^9}, 3.576419678792531*^9, 3.57646933517045*^9, 3.576469800987268*^9, {3.576470313432568*^9, 3.5764703697174673`*^9}, {3.576470408421135*^9, 3.576470458278823*^9}, 3.5764704890732765`*^9, 3.5764707845065956`*^9, 3.5802090200801315`*^9}] }, Open ]], Cell[CellGroupData[{ Cell[BoxData[ RowBox[{ RowBox[{"(*", " ", RowBox[{"cloud", "-", RowBox[{"cloud", " ", "distances"}]}], " ", "*)"}], "\[IndentingNewLine]", RowBox[{ RowBox[{ RowBox[{"dw", "=", RowBox[{"Table", "[", RowBox[{ RowBox[{"Norm", "[", RowBox[{ RowBox[{"tw", "[", RowBox[{"[", "i", "]"}], "]"}], "-", RowBox[{"tw", "[", RowBox[{"[", "j", "]"}], "]"}]}], "]"}], ",", RowBox[{"{", RowBox[{"i", ",", "1", ",", "bt"}], "}"}], ",", RowBox[{"{", RowBox[{"j", ",", "1", ",", "bt"}], "}"}]}], "]"}]}], ";"}], "\[IndentingNewLine]", RowBox[{"(*", RowBox[{"MatrixForm", "[", "dw", "]"}], "*)"}], "\[IndentingNewLine]", RowBox[{"Length", "[", "dw", "]"}]}]}]], "Input", CellChangeTimes->{{3.5688982251756487`*^9, 3.5688986440675845`*^9}, { 3.5688986873108606`*^9, 3.56889871560931*^9}, {3.5688987970414534`*^9, 3.5688988526711507`*^9}, {3.568898887147211*^9, 3.568898888644814*^9}, { 3.5688989206248703`*^9, 3.568899041759083*^9}, {3.5688990876855636`*^9, 3.568899258349863*^9}, 3.568899300267137*^9, {3.568899351326027*^9, 3.5688993831032825`*^9}, {3.5688994370481772`*^9, 3.568899468217032*^9}, { 3.5688995813016305`*^9, 3.5688997165538683`*^9}, {3.5688998495129013`*^9, 3.568899932364647*^9}, {3.568899967667509*^9, 3.568900024529609*^9}, { 3.5689000794261055`*^9, 3.568900136257005*^9}, {3.5689001767858763`*^9, 3.56890020149632*^9}, {3.568902068726*^9, 3.568902074139209*^9}, 3.56890216040736*^9, 3.568902344113283*^9, {3.5689024237982235`*^9, 3.56890243907065*^9}, 3.5689025770684924`*^9, 3.568910195129884*^9, 3.568910620995032*^9, {3.568912393532545*^9, 3.5689124022841606`*^9}, { 3.5691332074958715`*^9, 3.5691332081666727`*^9}, {3.5691352237838125`*^9, 3.5691352313342257`*^9}, {3.5691489965881166`*^9, 3.5691490103317413`*^9}, {3.5691490440122004`*^9, 3.5691491351943607`*^9}, {3.569149201666077*^9, 3.5691492026956787`*^9}, { 3.5691494320784817`*^9, 3.5691494680989447`*^9}, {3.569152288984131*^9, 3.5691522953957424`*^9}, {3.5691595058486633`*^9, 3.569159537672719*^9}, 3.569237911685565*^9, 3.5693411655535583`*^9, 3.5693418217687106`*^9, { 3.5703410302061863`*^9, 3.570341063621445*^9}, {3.5720164790812473`*^9, 3.572016508424899*^9}, {3.57235540487335*^9, 3.572355408040156*^9}, { 3.572356807768214*^9, 3.5723568154122276`*^9}, {3.572621722359356*^9, 3.572621725962962*^9}}], Cell[BoxData["42"], "Output", CellChangeTimes->{ 3.576388759598822*^9, 3.576392280095006*^9, 3.5763923950828085`*^9, 3.5763926942445335`*^9, 3.576393206190633*^9, 3.576393377166933*^9, { 3.5764057824904833`*^9, 3.5764057925213013`*^9}, 3.5764196788081307`*^9, 3.57646933517045*^9, 3.5764698010028677`*^9, {3.5764703134481683`*^9, 3.576470369733067*^9}, {3.576470408436735*^9, 3.5764704582944226`*^9}, 3.576470489104477*^9, 3.576470784522196*^9, 3.5802090200957317`*^9}] }, Open ]], Cell[BoxData[ RowBox[{ RowBox[{"(*", " ", RowBox[{"nucleus", "-", RowBox[{"nucleus", " ", "distances"}]}], " ", "*)"}], "\[IndentingNewLine]", RowBox[{"(*", RowBox[{"MatrixForm", "[", "dc", "]"}], " ", "*)"}], " "}]], "Input", CellChangeTimes->{{3.5688982251756487`*^9, 3.5688986440675845`*^9}, { 3.5688986873108606`*^9, 3.56889871560931*^9}, {3.5688987970414534`*^9, 3.5688988526711507`*^9}, {3.568898887147211*^9, 3.568898888644814*^9}, { 3.5688989206248703`*^9, 3.568899041759083*^9}, {3.5688990876855636`*^9, 3.568899258349863*^9}, 3.568899300267137*^9, {3.568899351326027*^9, 3.5688993831032825`*^9}, {3.5688994370481772`*^9, 3.568899468217032*^9}, { 3.5688995813016305`*^9, 3.5688997165538683`*^9}, {3.5688998495129013`*^9, 3.568899932364647*^9}, {3.568899967667509*^9, 3.568900024529609*^9}, { 3.5689000794261055`*^9, 3.568900136257005*^9}, {3.5689001767858763`*^9, 3.56890020149632*^9}, {3.568902068726*^9, 3.568902074139209*^9}, 3.56890216040736*^9, 3.568902344113283*^9, {3.5689024237982235`*^9, 3.56890243907065*^9}, 3.5689025770684924`*^9, 3.568910195129884*^9, 3.568910620995032*^9, {3.568912393532545*^9, 3.5689124022841606`*^9}, { 3.5691332074958715`*^9, 3.5691332081666727`*^9}, {3.5691352237838125`*^9, 3.5691352313342257`*^9}, {3.5691489965881166`*^9, 3.5691490103317413`*^9}, {3.5691490440122004`*^9, 3.5691491273631463`*^9}, {3.5691523435842266`*^9, 3.56915234531583*^9}, { 3.5691524837816734`*^9, 3.569152599175076*^9}, {3.569159470889002*^9, 3.569159489874235*^9}, {3.569160442895509*^9, 3.5691604484335184`*^9}, 3.569237923385586*^9, 3.569341165569158*^9, 3.5693418217843103`*^9, { 3.570341048161818*^9, 3.570341058286236*^9}, {3.57034131095988*^9, 3.570341315156287*^9}, 3.5703415891395683`*^9, 3.570341976207448*^9}], Cell[CellGroupData[{ Cell[BoxData[{ RowBox[{ RowBox[{"tv1", "=", RowBox[{"Table", "[", RowBox[{ RowBox[{"t", "[", RowBox[{"[", "i", "]"}], "]"}], ",", RowBox[{"{", RowBox[{"i", ",", "1", ",", "bc"}], "}"}]}], "]"}]}], ";"}], "\[IndentingNewLine]", RowBox[{ RowBox[{"tv2", "=", RowBox[{"Table", "[", RowBox[{ RowBox[{"{", RowBox[{"0", ",", "0", ",", "0"}], "}"}], ",", RowBox[{"{", RowBox[{"i", ",", "1", ",", "cw"}], "}"}]}], "]"}]}], ";"}], "\[IndentingNewLine]", RowBox[{ RowBox[{"tv3", "=", " ", RowBox[{"Table", "[", RowBox[{ RowBox[{"t", "[", RowBox[{"[", "i", "]"}], "]"}], ",", RowBox[{"{", RowBox[{"i", ",", RowBox[{"bc", "+", "1"}], ",", "n"}], "}"}]}], "]"}]}], ";"}], "\[IndentingNewLine]", RowBox[{ RowBox[{ RowBox[{"tv4", " ", "=", RowBox[{"Table", "[", RowBox[{ RowBox[{"{", RowBox[{"0", ",", "0", ",", "0"}], "}"}], ",", RowBox[{"{", RowBox[{"i", ",", "1", ",", "cj"}], "}"}]}], "]"}]}], ";"}], " "}], "\[IndentingNewLine]", RowBox[{ RowBox[{ RowBox[{"tv5", " ", "=", RowBox[{"Table", "[", RowBox[{ RowBox[{"{", RowBox[{"0", ",", "0", ",", "0"}], "}"}], ",", RowBox[{"{", RowBox[{"i", ",", "1", ",", "cj"}], "}"}]}], "]"}]}], ";"}], " "}], "\[IndentingNewLine]", RowBox[{ RowBox[{"tv6", "=", RowBox[{"Table", "[", RowBox[{ RowBox[{"{", RowBox[{"0", ",", "0", ",", "0"}], "}"}], ",", RowBox[{"{", RowBox[{"i", ",", "1", ",", RowBox[{"2", "*", "oj"}]}], "}"}]}], "]"}]}], ";"}], "\[IndentingNewLine]", RowBox[{ RowBox[{ RowBox[{"tv7", " ", "=", RowBox[{"Table", "[", RowBox[{ RowBox[{"{", RowBox[{"0", ",", "0", ",", "0"}], "}"}], ",", RowBox[{"{", RowBox[{"i", ",", "1", ",", RowBox[{"3", "*", "tj"}]}], "}"}]}], "]"}]}], ";"}], " "}], "\[IndentingNewLine]", RowBox[{ RowBox[{ RowBox[{"tv", " ", "=", " ", RowBox[{"Join", "[", RowBox[{ "tv1", ",", "tv2", ",", "tv3", ",", "tv4", ",", "tv5", ",", "tv6", ",", "tv7"}], "]"}]}], ";"}], "\[IndentingNewLine]", RowBox[{"(*", RowBox[{"MatrixForm", "[", "tv", "]"}], "*)"}]}], "\[IndentingNewLine]", RowBox[{"Length", "[", "tv", "]"}]}], "Input", CellChangeTimes->{{3.5688982251756487`*^9, 3.5688986440675845`*^9}, { 3.5688986873108606`*^9, 3.56889871560931*^9}, {3.5688987970414534`*^9, 3.5688988526711507`*^9}, {3.568898887147211*^9, 3.568898888644814*^9}, { 3.5688989206248703`*^9, 3.568899041759083*^9}, {3.5688990876855636`*^9, 3.568899258349863*^9}, 3.568899300267137*^9, {3.568899351326027*^9, 3.5688993831032825`*^9}, {3.5688994370481772`*^9, 3.568899468217032*^9}, { 3.5688995813016305`*^9, 3.5688997165538683`*^9}, {3.5688998495129013`*^9, 3.568899932364647*^9}, {3.568899967667509*^9, 3.568900024529609*^9}, { 3.5689000794261055`*^9, 3.568900136257005*^9}, {3.5689001767858763`*^9, 3.56890020149632*^9}, {3.568902068726*^9, 3.568902074139209*^9}, 3.56890216040736*^9, 3.568902344113283*^9, {3.5689024237982235`*^9, 3.56890243907065*^9}, 3.5689025770684924`*^9, 3.568910195129884*^9, 3.568910620995032*^9, {3.568912393532545*^9, 3.5689124022841606`*^9}, { 3.5691332074958715`*^9, 3.5691332081666727`*^9}, {3.5691352237838125`*^9, 3.5691352313342257`*^9}, {3.5691489965881166`*^9, 3.5691490103317413`*^9}, {3.5691490440122004`*^9, 3.5691491273631463`*^9}, {3.5691523435842266`*^9, 3.56915234531583*^9}, { 3.5691524837816734`*^9, 3.5691526041202846`*^9}, {3.5691595921324143`*^9, 3.5691596901941867`*^9}, {3.569159772406331*^9, 3.5691597832951508`*^9}, { 3.5691598700313025`*^9, 3.569159885147729*^9}, {3.569160485733184*^9, 3.569160486887586*^9}, {3.5691672792073207`*^9, 3.5691672793789206`*^9}, { 3.5691673418102303`*^9, 3.5691674875144863`*^9}, {3.569168259700243*^9, 3.569168260386644*^9}, {3.569168321257951*^9, 3.569168337466379*^9}, { 3.5691685152754917`*^9, 3.569168656096939*^9}, {3.5691687137702403`*^9, 3.569168772566744*^9}, {3.5691697249898825`*^9, 3.569169747063921*^9}, { 3.569169944981469*^9, 3.5691699696763124`*^9}, 3.569341165569158*^9, { 3.5693417833614435`*^9, 3.5693417874486504`*^9}, {3.5704552110753345`*^9, 3.5704552378605814`*^9}, {3.5704560776724567`*^9, 3.570456083070066*^9}, { 3.570855427306635*^9, 3.570855434529448*^9}, {3.57184030784344*^9, 3.5718403245666695`*^9}, {3.5723553440956435`*^9, 3.5723553601792717`*^9}, {3.5723567913257856`*^9, 3.572356801543803*^9}, { 3.5723587125159597`*^9, 3.572358735884801*^9}, {3.5726205042656164`*^9, 3.5726205078692226`*^9}, {3.5726209578956137`*^9, 3.5726209632776227`*^9}, {3.5726266468256054`*^9, 3.5726266628780336`*^9}, {3.57284236531176*^9, 3.57284238273699*^9}, { 3.572842728620798*^9, 3.572842734502008*^9}, 3.5731240921601086`*^9, { 3.5733125819686174`*^9, 3.573312582608218*^9}, {3.5733126196738834`*^9, 3.5733126474263325`*^9}, {3.5733131200291624`*^9, 3.5733131288743777`*^9}, 3.573368536719124*^9, {3.5746698693443537`*^9, 3.5746698885011873`*^9}, { 3.574740991757182*^9, 3.5747410134412203`*^9}, {3.5748285231568966`*^9, 3.5748285315497117`*^9}, 3.5749358536151505`*^9, 3.5753449209770584`*^9, 3.5753511874612646`*^9, {3.575371200889559*^9, 3.575371204695966*^9}, { 3.5762943805450716`*^9, 3.5762943822142744`*^9}, {3.5763817883957815`*^9, 3.5763817961489944`*^9}, {3.5763824652185698`*^9, 3.576382522626671*^9}}], Cell[BoxData["42"], "Output", CellChangeTimes->{ 3.576388759661222*^9, 3.576392280110606*^9, 3.576392395129608*^9, 3.5763926942913337`*^9, 3.5763932062374325`*^9, 3.5763933771981335`*^9, { 3.5764057825060835`*^9, 3.5764057925213013`*^9}, 3.5764196788237305`*^9, 3.57646933518605*^9, 3.576469801018468*^9, {3.576470313463768*^9, 3.5764703697486672`*^9}, {3.576470408452335*^9, 3.5764704582944226`*^9}, 3.576470489120077*^9, 3.5764707845377955`*^9, 3.5802090200957317`*^9}] }, Open ]], Cell[CellGroupData[{ Cell[BoxData[{ RowBox[{ RowBox[{"ow", "=", RowBox[{"Join", "[", RowBox[{ RowBox[{"Table", "[", RowBox[{ RowBox[{"-", "2.0"}], ",", RowBox[{"{", RowBox[{"i", ",", "1", ",", RowBox[{"bc", "+", "nb"}]}], "}"}]}], "]"}], ",", RowBox[{"Table", "[", RowBox[{ RowBox[{"-", "0.5"}], ",", RowBox[{"{", RowBox[{"i", ",", "1", ",", RowBox[{"2", "*", RowBox[{"(", RowBox[{"cj", "-", "1"}], ")"}]}]}], "}"}]}], "]"}], ",", RowBox[{"Table", "[", RowBox[{ RowBox[{"-", "1.0"}], ",", RowBox[{"{", RowBox[{"i", ",", "1", ",", "2"}], "}"}]}], "]"}], ",", RowBox[{"Table", "[", RowBox[{ RowBox[{"-", "2.0"}], ",", RowBox[{"{", RowBox[{"i", ",", "1", ",", RowBox[{"2", "*", "oj"}]}], "}"}]}], "]"}], ",", RowBox[{"Table", "[", RowBox[{ RowBox[{"-", "2.0"}], ",", RowBox[{"{", RowBox[{"i", ",", "1", ",", RowBox[{"3", "*", "tj"}]}], "}"}]}], "]"}]}], "]"}]}], ";"}], "\[IndentingNewLine]", "ow", "\[IndentingNewLine]", RowBox[{"cnv", "=", RowBox[{"Join", "[", RowBox[{ RowBox[{"Table", "[", RowBox[{ RowBox[{"cn", "[", RowBox[{"[", "i", "]"}], "]"}], ",", RowBox[{"{", RowBox[{"i", ",", "1", ",", "bc"}], "}"}]}], "]"}], ",", RowBox[{"Table", "[", RowBox[{"0.0", ",", RowBox[{"{", RowBox[{"i", ",", "1", ",", "cw"}], "}"}]}], "]"}], ",", RowBox[{"Table", "[", RowBox[{ RowBox[{"cn", "[", RowBox[{"[", "i", "]"}], "]"}], ",", RowBox[{"{", RowBox[{"i", ",", RowBox[{"bc", "+", "1"}], ",", "n"}], "}"}]}], "]"}], ",", RowBox[{"Table", "[", RowBox[{"0.0", ",", RowBox[{"{", RowBox[{"i", ",", "1", ",", RowBox[{"2", "*", "cj"}]}], "}"}]}], "]"}], ",", RowBox[{"Table", "[", RowBox[{"0.0", ",", RowBox[{"{", RowBox[{"i", ",", "1", ",", RowBox[{"2", "*", "oj"}]}], "}"}]}], "]"}], ",", RowBox[{"Table", "[", RowBox[{"0.0", ",", RowBox[{"{", RowBox[{"i", ",", "1", ",", RowBox[{"3", "*", "tj"}]}], "}"}]}], "]"}]}], "]"}]}]}], "Input", CellChangeTimes->{{3.5688982251756487`*^9, 3.5688986440675845`*^9}, { 3.5688986873108606`*^9, 3.56889871560931*^9}, {3.5688987970414534`*^9, 3.5688988526711507`*^9}, {3.568898887147211*^9, 3.568898888644814*^9}, { 3.5688989206248703`*^9, 3.568899041759083*^9}, {3.5688990876855636`*^9, 3.568899258349863*^9}, 3.568899300267137*^9, {3.568899351326027*^9, 3.5688993831032825`*^9}, {3.5688994370481772`*^9, 3.568899468217032*^9}, { 3.5688995813016305`*^9, 3.5688997165538683`*^9}, {3.5688998495129013`*^9, 3.568899932364647*^9}, {3.568899967667509*^9, 3.568900024529609*^9}, { 3.5689000794261055`*^9, 3.568900136257005*^9}, {3.5689001767858763`*^9, 3.56890020149632*^9}, {3.568902068726*^9, 3.568902074139209*^9}, 3.56890216040736*^9, 3.568902344113283*^9, {3.5689024237982235`*^9, 3.56890243907065*^9}, 3.5689025770684924`*^9, 3.568910195129884*^9, 3.568910620995032*^9, {3.568912393532545*^9, 3.5689124022841606`*^9}, { 3.5691332074958715`*^9, 3.5691332081666727`*^9}, {3.5691352237838125`*^9, 3.5691352313342257`*^9}, {3.5691489965881166`*^9, 3.5691490103317413`*^9}, {3.5691490440122004`*^9, 3.5691491273631463`*^9}, {3.5691523435842266`*^9, 3.56915234531583*^9}, { 3.5691524837816734`*^9, 3.5691526041202846`*^9}, {3.5691595921324143`*^9, 3.5691596901941867`*^9}, {3.569159772406331*^9, 3.5691597832951508`*^9}, { 3.5691598700313025`*^9, 3.569159885147729*^9}, {3.569160485733184*^9, 3.569160486887586*^9}, {3.5691672792073207`*^9, 3.5691672793789206`*^9}, { 3.5691673418102303`*^9, 3.5691674875144863`*^9}, {3.569168259700243*^9, 3.569168260386644*^9}, {3.569168321257951*^9, 3.569168337466379*^9}, { 3.5691685152754917`*^9, 3.569168656096939*^9}, {3.5691687137702403`*^9, 3.569168772566744*^9}, {3.5691697249898825`*^9, 3.569169747063921*^9}, { 3.569169944981469*^9, 3.5691699655579047`*^9}, {3.56921753575448*^9, 3.569217541807291*^9}, {3.569217576283351*^9, 3.5692176436130695`*^9}, { 3.5692176921603546`*^9, 3.569217692768756*^9}, {3.5692177389136367`*^9, 3.569217740192839*^9}, {3.5692222042775583`*^9, 3.5692222070231633`*^9}, { 3.569230669979245*^9, 3.5692306709620466`*^9}, {3.5692308816872168`*^9, 3.5692309970650196`*^9}, {3.5692310297158766`*^9, 3.569231090602784*^9}, { 3.5692311251880445`*^9, 3.569231148868886*^9}, 3.56923793753481*^9, 3.569341165569158*^9, 3.5693418217375107`*^9, {3.5703412254249296`*^9, 3.5703412423509593`*^9}, {3.5704553045038986`*^9, 3.570455320681127*^9}, { 3.57045550485505*^9, 3.5704555063370533`*^9}, {3.5704556421508913`*^9, 3.5704556424784923`*^9}, 3.5704557137862177`*^9, {3.5704564711051474`*^9, 3.5704564908079824`*^9}, {3.570456521602436*^9, 3.5704565228348384`*^9}, { 3.5704569127419233`*^9, 3.5704569202767363`*^9}, 3.5704636205455036`*^9, 3.570596993178934*^9, {3.570855461377095*^9, 3.5708554743563175`*^9}, 3.570855611589759*^9, {3.571840408884818*^9, 3.571840415296429*^9}, { 3.571840465559717*^9, 3.571840473905732*^9}, {3.5720165322617407`*^9, 3.5720165635241957`*^9}, {3.5721934404423375`*^9, 3.57219344758715*^9}, 3.572193479551606*^9, {3.5721935303764954`*^9, 3.572193534214102*^9}, { 3.5726206642250977`*^9, 3.5726206651142993`*^9}, {3.572620782223705*^9, 3.572620782738506*^9}, {3.572620924963956*^9, 3.5726209465699935`*^9}, { 3.572842408289835*^9, 3.5728424357302833`*^9}, {3.5728424783807583`*^9, 3.57284247916076*^9}, 3.5728451195121975`*^9, {3.5731249170427575`*^9, 3.573124927962777*^9}, {3.5731450428093076`*^9, 3.5731450615449405`*^9}, { 3.5731451273458557`*^9, 3.573145132259865*^9}, {3.573312700185625*^9, 3.573312779979765*^9}, {3.5733131504804153`*^9, 3.5733131516816177`*^9}, { 3.5733132756862354`*^9, 3.5733132772462387`*^9}, {3.5733147916812983`*^9, 3.573314840275384*^9}, {3.5733593507659893`*^9, 3.573359359377204*^9}, { 3.5746698998736076`*^9, 3.574669995361375*^9}, {3.5747410251880407`*^9, 3.574741049430484*^9}, {3.574828384379053*^9, 3.574828403270686*^9}, 3.5748284615211887`*^9, {3.5748284935168447`*^9, 3.5748284944996467`*^9}, { 3.574935858419959*^9, 3.574935862834767*^9}, {3.5753447605151763`*^9, 3.5753447815128136`*^9}, {3.575371294396123*^9, 3.5753713029293385`*^9}, { 3.5753713452678127`*^9, 3.5753713535982275`*^9}, {3.5762944216667438`*^9, 3.5762944709472303`*^9}, {3.5763819290300283`*^9, 3.576381935160839*^9}, { 3.576382364645193*^9, 3.576382415158082*^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[{"-", "0.5`"}], ",", RowBox[{"-", "0.5`"}], ",", RowBox[{"-", "0.5`"}], ",", RowBox[{"-", "0.5`"}], ",", RowBox[{"-", "0.5`"}], ",", RowBox[{"-", "0.5`"}], ",", RowBox[{"-", "0.5`"}], ",", RowBox[{"-", "0.5`"}], ",", RowBox[{"-", "1.`"}], ",", RowBox[{"-", "1.`"}], ",", RowBox[{"-", "2.`"}], ",", RowBox[{"-", "2.`"}], ",", RowBox[{"-", "2.`"}], ",", RowBox[{"-", "2.`"}], ",", RowBox[{"-", "2.`"}], ",", RowBox[{"-", "2.`"}], ",", RowBox[{"-", "2.`"}]}], "}"}]], "Output", CellChangeTimes->{ 3.5763887596768217`*^9, 3.5763922801262064`*^9, 3.5763923951452084`*^9, 3.576392694306934*^9, 3.5763932062530327`*^9, 3.576393377229333*^9, { 3.5764057825216837`*^9, 3.5764057925369015`*^9}, 3.5764196788393307`*^9, 3.5764693352016497`*^9, 3.576469801034068*^9, {3.576470313479368*^9, 3.576470369764267*^9}, {3.576470408452335*^9, 3.5764704583100224`*^9}, 3.576470489135677*^9, 3.5764707845533953`*^9, 3.5802090201113315`*^9}], Cell[BoxData[ RowBox[{"{", RowBox[{ "6.`", ",", "6.`", ",", "6.`", ",", "6.`", ",", "7.`", ",", "7.`", ",", "8.`", ",", "8.`", ",", "8.`", ",", "0.`", ",", "0.`", ",", "0.`", ",", "0.`", ",", "0.`", ",", "0.`", ",", "0.`", ",", "0.`", ",", "1.`", ",", "1.`", ",", "1.`", ",", "1.`", ",", "1.`", ",", "1.`", ",", "1.`", ",", "1.`", ",", "0.`", ",", "0.`", ",", "0.`", ",", "0.`", ",", "0.`", ",", "0.`", ",", "0.`", ",", "0.`", ",", "0.`", ",", "0.`", ",", "0.`", ",", "0.`", ",", "0.`", ",", "0.`", ",", "0.`", ",", "0.`", ",", "0.`"}], "}"}]], "Output", CellChangeTimes->{ 3.5763887596768217`*^9, 3.5763922801262064`*^9, 3.5763923951452084`*^9, 3.576392694306934*^9, 3.5763932062530327`*^9, 3.576393377229333*^9, { 3.5764057825216837`*^9, 3.5764057925369015`*^9}, 3.5764196788393307`*^9, 3.5764693352016497`*^9, 3.576469801034068*^9, {3.576470313479368*^9, 3.576470369764267*^9}, {3.576470408452335*^9, 3.5764704583100224`*^9}, 3.576470489135677*^9, 3.5764707845533953`*^9, 3.5802090201113315`*^9}] }, Open ]], Cell[CellGroupData[{ Cell[BoxData[ RowBox[{ RowBox[{"(*", " ", RowBox[{"nucleus", "-", RowBox[{"cloud", " ", "distances"}]}], " ", "*)"}], "\[IndentingNewLine]", RowBox[{ RowBox[{ RowBox[{"dcw", "=", RowBox[{"Table", "[", RowBox[{ RowBox[{ RowBox[{"sq", "=", RowBox[{"Norm", "[", RowBox[{ RowBox[{"tw", "[", RowBox[{"[", "i", "]"}], "]"}], "-", RowBox[{"tv", "[", RowBox[{"[", "j", "]"}], "]"}]}], "]"}]}], ";", RowBox[{"If", "[", RowBox[{ RowBox[{"(", RowBox[{ RowBox[{"sq", ">", " ", "0.1"}], " ", "&&", " ", RowBox[{"i", "\[NotEqual]", "j"}]}], ")"}], ",", RowBox[{"1", "/", "sq"}], ",", "0"}], "]"}]}], ",", RowBox[{"{", RowBox[{"i", ",", "1", ",", "bt"}], "}"}], ",", RowBox[{"{", RowBox[{"j", ",", "1", ",", "bt"}], "}"}]}], "]"}]}], ";"}], "\[IndentingNewLine]", RowBox[{"Length", "[", "dcw", "]"}], "\[IndentingNewLine]", RowBox[{"(*", RowBox[{"MatrixForm", "[", "dcw", "]"}], "*)"}], " "}]}]], "Input", CellChangeTimes->{{3.5688982251756487`*^9, 3.5688986440675845`*^9}, { 3.5688986873108606`*^9, 3.56889871560931*^9}, {3.5688987970414534`*^9, 3.5688988526711507`*^9}, {3.568898887147211*^9, 3.568898888644814*^9}, { 3.5688989206248703`*^9, 3.568899041759083*^9}, {3.5688990876855636`*^9, 3.568899258349863*^9}, 3.568899300267137*^9, {3.568899351326027*^9, 3.5688993831032825`*^9}, {3.5688994370481772`*^9, 3.568899468217032*^9}, { 3.5688995813016305`*^9, 3.5688997165538683`*^9}, {3.5688998495129013`*^9, 3.568899932364647*^9}, {3.568899967667509*^9, 3.568900024529609*^9}, { 3.5689000794261055`*^9, 3.568900136257005*^9}, {3.5689001767858763`*^9, 3.56890020149632*^9}, {3.568902068726*^9, 3.568902074139209*^9}, 3.56890216040736*^9, 3.568902344113283*^9, {3.5689024237982235`*^9, 3.56890243907065*^9}, 3.5689025770684924`*^9, 3.568910195129884*^9, 3.568910620995032*^9, {3.568912393532545*^9, 3.5689124022841606`*^9}, { 3.5691332074958715`*^9, 3.5691332081666727`*^9}, {3.5691352237838125`*^9, 3.5691352313342257`*^9}, {3.5691489965881166`*^9, 3.5691490103317413`*^9}, {3.5691490440122004`*^9, 3.5691491273631463`*^9}, {3.5691523435842266`*^9, 3.56915234531583*^9}, { 3.5691524837816734`*^9, 3.5691526041202846`*^9}, {3.5691595921324143`*^9, 3.5691596901941867`*^9}, {3.569159772406331*^9, 3.5691597832951508`*^9}, { 3.5691598700313025`*^9, 3.569159885147729*^9}, {3.569160485733184*^9, 3.569160486887586*^9}, {3.5691672792073207`*^9, 3.5691672793789206`*^9}, { 3.5691673418102303`*^9, 3.5691674875144863`*^9}, {3.569168259700243*^9, 3.569168260386644*^9}, {3.569168321257951*^9, 3.569168337466379*^9}, { 3.5691685152754917`*^9, 3.569168656096939*^9}, {3.5691687137702403`*^9, 3.569168772566744*^9}, {3.5691697249898825`*^9, 3.569169747063921*^9}, { 3.569169944981469*^9, 3.5691699655579047`*^9}, {3.56921753575448*^9, 3.569217541807291*^9}, {3.569217576283351*^9, 3.5692176436130695`*^9}, { 3.5692176921603546`*^9, 3.569217692768756*^9}, {3.5692177389136367`*^9, 3.569217740192839*^9}, {3.5692222042775583`*^9, 3.5692222070231633`*^9}, { 3.569230669979245*^9, 3.5692306709620466`*^9}, {3.5692308816872168`*^9, 3.5692309970650196`*^9}, {3.5692310297158766`*^9, 3.569231090602784*^9}, { 3.5692311251880445`*^9, 3.569231148868886*^9}, 3.56923793753481*^9, 3.569341165569158*^9, 3.5693418217375107`*^9, {3.5703412254249296`*^9, 3.5703412423509593`*^9}, {3.5704553045038986`*^9, 3.570455320681127*^9}, { 3.57045550485505*^9, 3.5704555063370533`*^9}, {3.5704556421508913`*^9, 3.5704556424784923`*^9}, 3.5704557137862177`*^9, {3.5704564711051474`*^9, 3.5704564908079824`*^9}, {3.570456521602436*^9, 3.5704565228348384`*^9}, { 3.5704569127419233`*^9, 3.5704569202767363`*^9}, 3.5704636205455036`*^9, 3.570596993178934*^9, {3.570855461377095*^9, 3.5708554743563175`*^9}, 3.570855611589759*^9, {3.571840408884818*^9, 3.571840415296429*^9}, { 3.571840465559717*^9, 3.571840473905732*^9}, {3.5720165322617407`*^9, 3.5720165635241957`*^9}, {3.5721934404423375`*^9, 3.57219344758715*^9}, 3.572193479551606*^9, 3.5721935303764954`*^9, {3.5721935661785583`*^9, 3.5721935879405966`*^9}, {3.5721936909943776`*^9, 3.572193697218788*^9}, { 3.5721937395728626`*^9, 3.57219374339487*^9}, {3.5721937963725624`*^9, 3.5721938223154078`*^9}, {3.572193859786674*^9, 3.572193861533877*^9}, 3.5723554650270557`*^9, {3.5723567325136824`*^9, 3.5723567701565485`*^9}, 3.572621740954589*^9}], Cell[BoxData["42"], "Output", CellChangeTimes->{ 3.576388759708022*^9, 3.5763922801574063`*^9, 3.5763923951608086`*^9, 3.5763926943225336`*^9, 3.576393206284233*^9, 3.5763933772605333`*^9, { 3.576405782537284*^9, 3.576405792552501*^9}, 3.576419678870531*^9, 3.57646933521725*^9, 3.5764698010496683`*^9, {3.5764703134949684`*^9, 3.576470369779867*^9}, {3.576470408499135*^9, 3.576470458341223*^9}, 3.5764704891512766`*^9, 3.5764707845689955`*^9, 3.5802090201269317`*^9}] }, Open ]], Cell[CellGroupData[{ Cell[BoxData[{ RowBox[{"Elcharge", "=", RowBox[{"Sum", "[", RowBox[{ RowBox[{"ow", "[", RowBox[{"[", "i", "]"}], "]"}], ",", RowBox[{"{", RowBox[{"i", ",", "1", ",", RowBox[{"Length", "[", "ow", "]"}]}], "}"}]}], "]"}]}], "\[IndentingNewLine]", RowBox[{"Length", "[", "ow", "]"}], "\[IndentingNewLine]", RowBox[{"Nuccharge", "=", RowBox[{"Sum", "[", RowBox[{ RowBox[{"cnv", "[", RowBox[{"[", "i", "]"}], "]"}], ",", RowBox[{"{", RowBox[{"i", ",", "1", ",", RowBox[{"Length", "[", "cnv", "]"}]}], "}"}]}], "]"}]}], "\[IndentingNewLine]", RowBox[{"Length", "[", "cnv", "]"}], "\[IndentingNewLine]"}], "Input", CellChangeTimes->{{3.5688982251756487`*^9, 3.5688986440675845`*^9}, { 3.5688986873108606`*^9, 3.56889871560931*^9}, {3.5688987970414534`*^9, 3.5688988526711507`*^9}, {3.568898887147211*^9, 3.568898888644814*^9}, { 3.5688989206248703`*^9, 3.568899041759083*^9}, {3.5688990876855636`*^9, 3.568899258349863*^9}, 3.568899300267137*^9, {3.568899351326027*^9, 3.5688993831032825`*^9}, {3.5688994370481772`*^9, 3.568899468217032*^9}, { 3.5688995813016305`*^9, 3.5688997165538683`*^9}, {3.5688998495129013`*^9, 3.568899932364647*^9}, {3.568899967667509*^9, 3.568900024529609*^9}, { 3.5689000794261055`*^9, 3.568900136257005*^9}, {3.5689001767858763`*^9, 3.56890020149632*^9}, {3.568902068726*^9, 3.568902074139209*^9}, 3.56890216040736*^9, 3.568902344113283*^9, {3.5689024237982235`*^9, 3.56890243907065*^9}, 3.5689025770684924`*^9, {3.568910195129884*^9, 3.568910199825492*^9}, 3.568910617609826*^9, {3.56891263539537*^9, 3.568912638842976*^9}, {3.568952611212014*^9, 3.5689526227248344`*^9}, { 3.5689527476498537`*^9, 3.5689527480086546`*^9}, {3.5689530637688093`*^9, 3.5689530642368097`*^9}, {3.569133363948546*^9, 3.569133373698563*^9}, { 3.5691350563331184`*^9, 3.56913505725352*^9}, 3.5691351502452836`*^9, { 3.569135237792637*^9, 3.5691352453118505`*^9}, {3.5691353071659594`*^9, 3.5691353166039753`*^9}, {3.5691447439722476`*^9, 3.5691448093675623`*^9}, {3.569146067386572*^9, 3.569146078244191*^9}, { 3.5691478509845047`*^9, 3.5691478547909117`*^9}, {3.569159874789311*^9, 3.56915988004652*^9}, {3.5691671967299757`*^9, 3.569167196901576*^9}, 3.5691672337020407`*^9, {3.5691672688489027`*^9, 3.5691672717661076`*^9}, 3.569171387282002*^9, 3.5692335989467897`*^9, {3.573315125131884*^9, 3.57331521983965*^9}, {3.573315279213355*^9, 3.573315294797782*^9}, { 3.5733153507238803`*^9, 3.5733153551854877`*^9}, {3.5733153963695602`*^9, 3.5733154277724156`*^9}, {3.5733182525629773`*^9, 3.5733182928434477`*^9}}], Cell[BoxData[ RowBox[{"-", "70.`"}]], "Output", CellChangeTimes->{ 3.576388759708022*^9, 3.576392280173006*^9, 3.5763923951764083`*^9, 3.576392694338134*^9, 3.5763932062998333`*^9, 3.5763933772761335`*^9, { 3.576405782537284*^9, 3.576405792568101*^9}, 3.576419678886131*^9, 3.57646933521725*^9, 3.5764698010652685`*^9, {3.5764703135105686`*^9, 3.5764703697954674`*^9}, {3.576470408499135*^9, 3.576470458356823*^9}, 3.576470489166877*^9, 3.5764707845845957`*^9, 3.5802090201425314`*^9}], Cell[BoxData["42"], "Output", CellChangeTimes->{ 3.576388759708022*^9, 3.576392280173006*^9, 3.5763923951764083`*^9, 3.576392694338134*^9, 3.5763932062998333`*^9, 3.5763933772761335`*^9, { 3.576405782537284*^9, 3.576405792568101*^9}, 3.576419678886131*^9, 3.57646933521725*^9, 3.5764698010652685`*^9, {3.5764703135105686`*^9, 3.5764703697954674`*^9}, {3.576470408499135*^9, 3.576470458356823*^9}, 3.576470489166877*^9, 3.5764707845845957`*^9, 3.5802090201425314`*^9}], Cell[BoxData["70.`"], "Output", CellChangeTimes->{ 3.576388759708022*^9, 3.576392280173006*^9, 3.5763923951764083`*^9, 3.576392694338134*^9, 3.5763932062998333`*^9, 3.5763933772761335`*^9, { 3.576405782537284*^9, 3.576405792568101*^9}, 3.576419678886131*^9, 3.57646933521725*^9, 3.5764698010652685`*^9, {3.5764703135105686`*^9, 3.5764703697954674`*^9}, {3.576470408499135*^9, 3.576470458356823*^9}, 3.576470489166877*^9, 3.5764707845845957`*^9, 3.5802090201425314`*^9}], Cell[BoxData["42"], "Output", CellChangeTimes->{ 3.576388759708022*^9, 3.576392280173006*^9, 3.5763923951764083`*^9, 3.576392694338134*^9, 3.5763932062998333`*^9, 3.5763933772761335`*^9, { 3.576405782537284*^9, 3.576405792568101*^9}, 3.576419678886131*^9, 3.57646933521725*^9, 3.5764698010652685`*^9, {3.5764703135105686`*^9, 3.5764703697954674`*^9}, {3.576470408499135*^9, 3.576470458356823*^9}, 3.576470489166877*^9, 3.5764707845845957`*^9, 3.5802090201425314`*^9}] }, Open ]], Cell[BoxData[ RowBox[{ RowBox[{"Vee", "=", "0.0"}], ";", " ", RowBox[{"Vnn", "=", "0.0"}], ";"}]], "Input", CellChangeTimes->{{3.5688982251756487`*^9, 3.5688986440675845`*^9}, { 3.5688986873108606`*^9, 3.56889871560931*^9}, {3.5688987970414534`*^9, 3.5688988526711507`*^9}, {3.568898887147211*^9, 3.568898888644814*^9}, { 3.5688989206248703`*^9, 3.568899041759083*^9}, {3.5688990876855636`*^9, 3.568899258349863*^9}, 3.568899300267137*^9, {3.568899351326027*^9, 3.5688993831032825`*^9}, {3.5688994370481772`*^9, 3.568899468217032*^9}, { 3.5688995813016305`*^9, 3.5688997165538683`*^9}, {3.5688998495129013`*^9, 3.568899932364647*^9}, {3.568899967667509*^9, 3.568900024529609*^9}, { 3.5689000794261055`*^9, 3.568900136257005*^9}, {3.5689001767858763`*^9, 3.56890020149632*^9}, {3.568902068726*^9, 3.568902074139209*^9}, 3.56890216040736*^9, 3.568902344113283*^9, {3.5689024237982235`*^9, 3.56890243907065*^9}, 3.5689025770684924`*^9, {3.568910195129884*^9, 3.568910199825492*^9}, 3.568910617609826*^9, {3.56891263539537*^9, 3.568912638842976*^9}, {3.568952611212014*^9, 3.5689526227248344`*^9}, { 3.5689527476498537`*^9, 3.5689527480086546`*^9}, {3.5689530637688093`*^9, 3.5689530642368097`*^9}, {3.569133363948546*^9, 3.569133373698563*^9}, { 3.5691350563331184`*^9, 3.56913505725352*^9}, 3.5691351502452836`*^9, { 3.569135237792637*^9, 3.5691352453118505`*^9}, {3.5691353071659594`*^9, 3.5691353166039753`*^9}, {3.5691447439722476`*^9, 3.5691448093675623`*^9}, {3.569146067386572*^9, 3.569146078244191*^9}, { 3.5691478509845047`*^9, 3.5691478547909117`*^9}, {3.569159874789311*^9, 3.56915988004652*^9}, {3.5691671967299757`*^9, 3.569167196901576*^9}, 3.5691672337020407`*^9, {3.5691672688489027`*^9, 3.5691672717661076`*^9}, 3.569171387282002*^9, 3.5692335989467897`*^9, {3.573315125131884*^9, 3.57331521983965*^9}, {3.573315279213355*^9, 3.573315294797782*^9}, { 3.5733153507238803`*^9, 3.5733153551854877`*^9}, {3.5733153963695602`*^9, 3.5733154277724156`*^9}}], Cell[CellGroupData[{ Cell[BoxData[ RowBox[{ RowBox[{"(*", " ", RowBox[{"all", " ", "clouds", " ", "repulsion"}], " ", "*)"}], "\[IndentingNewLine]", RowBox[{ RowBox[{"For", "[", RowBox[{ RowBox[{"i", "=", "1"}], ",", RowBox[{"i", "<", "bt"}], ",", RowBox[{"i", "++"}], ",", "\[IndentingNewLine]", RowBox[{"For", "[", RowBox[{ RowBox[{"j", "=", RowBox[{"i", "+", "1"}]}], ",", RowBox[{"j", "<", RowBox[{"bt", "+", "1"}]}], ",", RowBox[{"j", "++"}], ",", "\[IndentingNewLine]", RowBox[{"Vee", "=", RowBox[{"Vee", "+", RowBox[{ RowBox[{"ow", "[", RowBox[{"[", "i", "]"}], "]"}], "*", RowBox[{ RowBox[{"ow", "[", RowBox[{"[", "j", "]"}], "]"}], "/", RowBox[{"dw", "[", RowBox[{"[", RowBox[{"i", ",", "j"}], "]"}], "]"}]}]}]}]}]}], "]"}]}], "]"}], "\[IndentingNewLine]", "Vee"}]}]], "Input", CellChangeTimes->{{3.5688982251756487`*^9, 3.5688986440675845`*^9}, { 3.5688986873108606`*^9, 3.56889871560931*^9}, {3.5688987970414534`*^9, 3.5688988526711507`*^9}, {3.568898887147211*^9, 3.568898888644814*^9}, { 3.5688989206248703`*^9, 3.568899041759083*^9}, {3.5688990876855636`*^9, 3.568899258349863*^9}, 3.568899300267137*^9, {3.568899351326027*^9, 3.5688993831032825`*^9}, {3.5688994370481772`*^9, 3.568899468217032*^9}, { 3.5688995813016305`*^9, 3.5688997165538683`*^9}, {3.5688998495129013`*^9, 3.568899932364647*^9}, {3.568899967667509*^9, 3.568900024529609*^9}, { 3.5689000794261055`*^9, 3.568900136257005*^9}, {3.5689001767858763`*^9, 3.56890020149632*^9}, {3.568902068726*^9, 3.568902074139209*^9}, 3.56890216040736*^9, 3.568902344113283*^9, {3.5689024237982235`*^9, 3.56890243907065*^9}, 3.5689025770684924`*^9, {3.568910195129884*^9, 3.568910199825492*^9}, 3.568910617609826*^9, {3.56891263539537*^9, 3.568912638842976*^9}, {3.568952611212014*^9, 3.5689526227248344`*^9}, { 3.5689527476498537`*^9, 3.5689527480086546`*^9}, {3.5689530637688093`*^9, 3.5689530642368097`*^9}, {3.569133363948546*^9, 3.569133373698563*^9}, { 3.5691350563331184`*^9, 3.56913505725352*^9}, 3.5691351502452836`*^9, { 3.569135237792637*^9, 3.5691352453118505`*^9}, {3.5691353071659594`*^9, 3.5691353166039753`*^9}, {3.5691447439722476`*^9, 3.5691448093675623`*^9}, {3.569146067386572*^9, 3.569146078244191*^9}, { 3.5691478509845047`*^9, 3.5691478969889855`*^9}, {3.569149270524598*^9, 3.569149283675421*^9}, {3.5691523005437512`*^9, 3.5691523013861527`*^9}, { 3.570457123841494*^9, 3.5704571330923104`*^9}, {3.570457176959587*^9, 3.570457191296013*^9}, {3.570463789649801*^9, 3.570463797637015*^9}, { 3.5704639300032473`*^9, 3.5704639472412777`*^9}, {3.570464099403945*^9, 3.5704641196371803`*^9}, {3.570464183737693*^9, 3.5704641855628963`*^9}, { 3.570855532092019*^9, 3.5708555433240385`*^9}}], Cell[BoxData["549.1547111188219`"], "Output", CellChangeTimes->{ 3.5763887597392225`*^9, 3.5763922801886063`*^9, 3.576392395207608*^9, 3.576392694369334*^9, 3.5763932063154335`*^9, 3.5763933772917337`*^9, { 3.5764057825684834`*^9, 3.576405792583701*^9}, 3.5764196789017305`*^9, 3.5764693352484503`*^9, 3.5764698010808682`*^9, {3.5764703135261683`*^9, 3.576470369811067*^9}, {3.576470408514735*^9, 3.5764704583724227`*^9}, 3.576470489182477*^9, 3.576470784600196*^9, 3.5802090201581316`*^9}] }, Open ]], Cell[BoxData[ RowBox[{ RowBox[{"(*", " ", RowBox[{ "half", " ", "cloud", " ", "with", " ", "other", " ", "common", " ", RowBox[{"halfcloud", ":", " ", RowBox[{"subtract", " ", "WW"}]}]}], " ", "*)"}], "\[IndentingNewLine]", RowBox[{"(*", RowBox[{ RowBox[{"For", " ", "[", RowBox[{ RowBox[{"i", "=", RowBox[{"nb", "+", "bc", "+", "1"}]}], ",", RowBox[{"i", "\[LessEqual]", RowBox[{"nb", "+", "bc", "+", "cj"}]}], ",", RowBox[{"i", "++"}], ",", RowBox[{"Vee", "=", RowBox[{"Vee", "-", RowBox[{ RowBox[{"ow", "[", RowBox[{"[", "i", "]"}], "]"}], "*", RowBox[{ RowBox[{"ow", "[", RowBox[{"[", RowBox[{"i", "+", "cj"}], "]"}], "]"}], "/", RowBox[{"(", RowBox[{ RowBox[{"rpo", "[", RowBox[{"[", RowBox[{"i", "-", "nb", "-", "bc"}], "]"}], "]"}], "+", RowBox[{"rpi", "[", RowBox[{"[", RowBox[{"i", "-", "nb", "-", "bc"}], "]"}], "]"}]}], ")"}]}]}]}]}]}], "]"}], ";"}], "*)"}], "\[IndentingNewLine]", RowBox[{ RowBox[{ RowBox[{"Vee", "=", RowBox[{"Vee", "-", RowBox[{"0.5", "*", "0.25", "*", RowBox[{"(", RowBox[{ RowBox[{"1", "/", RowBox[{"rpo", "[", RowBox[{"[", "1", "]"}], "]"}]}], "+", RowBox[{"1", "/", RowBox[{"rpo", "[", RowBox[{"[", "2", "]"}], "]"}]}], "+", RowBox[{"1", "/", RowBox[{"rpo", "[", RowBox[{"[", "3", "]"}], "]"}]}], "+", RowBox[{"1", "/", RowBox[{"rpo", "[", RowBox[{"[", "4", "]"}], "]"}]}]}], ")"}]}]}]}], ";"}], "\[IndentingNewLine]"}]}]], "Input", CellChangeTimes->{{3.571840548723463*^9, 3.571840579798718*^9}, { 3.5718477253093*^9, 3.5718477304573092`*^9}, {3.572620810756155*^9, 3.5726208298349886`*^9}, {3.5726208600522413`*^9, 3.5726208972739067`*^9}, {3.57279778559276*^9, 3.57279781975682*^9}, 3.5733150956478324`*^9, {3.5733650408599825`*^9, 3.573365073947641*^9}, { 3.573365126847334*^9, 3.573365203209468*^9}, {3.57467280495751*^9, 3.574672834457162*^9}, {3.574672996697447*^9, 3.5746729984914503`*^9}, { 3.574743538820456*^9, 3.574743544140065*^9}, {3.574828627021879*^9, 3.5748286276614804`*^9}, {3.5748512413081284`*^9, 3.57485124786014*^9}, { 3.574851313707855*^9, 3.5748513247994747`*^9}, {3.575602516740883*^9, 3.575602523074494*^9}, {3.575722007593234*^9, 3.575722017748852*^9}, { 3.575722104095004*^9, 3.575722128165846*^9}, {3.575722369123869*^9, 3.575722516668928*^9}, {3.5762945364517455`*^9, 3.5762945416309547`*^9}, 3.5762963089424586`*^9, {3.576382205072513*^9, 3.5763822136993284`*^9}, { 3.5763822439477816`*^9, 3.5763822577538056`*^9}, {3.5764693102884064`*^9, 3.5764693217856264`*^9}, {3.5764707330265055`*^9, 3.5764707681109667`*^9}}], Cell[CellGroupData[{ Cell[BoxData[{ RowBox[{ RowBox[{ RowBox[{"sc", "=", "0.3849"}], ";"}], " ", RowBox[{"(*", " ", RowBox[{"core", " ", "clouds"}], " ", "*)"}]}], "\[IndentingNewLine]", RowBox[{"For", "[", RowBox[{ RowBox[{"i", "=", "1"}], " ", ",", RowBox[{"i", "<", RowBox[{"bc", "+", "1"}]}], ",", RowBox[{"i", "++"}], ",", RowBox[{"Vee", "=", RowBox[{"Vee", "+", RowBox[{"3", "*", RowBox[{"sc", "/", RowBox[{"u2", "[", RowBox[{"[", "i", "]"}], "]"}]}]}]}]}]}], "]"}], "\[IndentingNewLine]", RowBox[{ RowBox[{ RowBox[{"sw", "=", "0.3849"}], ";"}], " ", RowBox[{"(*", " ", RowBox[{"bonding", " ", "clouds"}], " ", "*)"}]}], "\[IndentingNewLine]", RowBox[{"For", "[", RowBox[{ RowBox[{"i", "=", "1"}], " ", ",", RowBox[{"i", "<", RowBox[{"nb", "+", "1"}]}], ",", RowBox[{"i", "++"}], ",", RowBox[{"Vee", "=", RowBox[{"Vee", "+", RowBox[{"3", "*", RowBox[{"sw", "/", RowBox[{"a", "[", RowBox[{"[", RowBox[{"i", ",", "3"}], "]"}], "]"}]}]}]}]}]}], "]"}], "\[IndentingNewLine]", RowBox[{"For", "[", RowBox[{ RowBox[{"i", "=", "1"}], " ", ",", RowBox[{"i", "\[LessEqual]", RowBox[{"3", "*", "tj"}]}], ",", RowBox[{"i", "++"}], ",", RowBox[{"Vee", "=", RowBox[{"Vee", "+", RowBox[{"3", "*", RowBox[{"sw", "/", "rlo"}]}]}]}]}], "]"}], "\[IndentingNewLine]", "Vee"}], "Input", CellChangeTimes->{{3.5689548890696163`*^9, 3.568955116299615*^9}, { 3.5689552553894596`*^9, 3.5689552575266633`*^9}, {3.5689552936875267`*^9, 3.5689553203323736`*^9}, {3.568955404229321*^9, 3.568955433245372*^9}, 3.5689554882822685`*^9, 3.5689562157115464`*^9, {3.568956283961666*^9, 3.5689562858180695`*^9}, {3.5689566111878405`*^9, 3.5689566291278725`*^9}, {3.5689566695319433`*^9, 3.5689567220104356`*^9}, {3.5690810958835616`*^9, 3.569081104525977*^9}, { 3.5691717160681796`*^9, 3.569171751714242*^9}, {3.5691717855663013`*^9, 3.5691719006789036`*^9}, 3.569234247377528*^9, {3.569235622381544*^9, 3.569235625142749*^9}, {3.5692356799612455`*^9, 3.569235740536152*^9}, { 3.57045575500149*^9, 3.5704557604770994`*^9}, {3.57046440981329*^9, 3.5704644333849316`*^9}, {3.5705963024877205`*^9, 3.5705963300061693`*^9}, {3.5706010463712544`*^9, 3.570601069225295*^9}, { 3.5706012097659416`*^9, 3.5706012109983435`*^9}, {3.570601290948484*^9, 3.570601291619285*^9}, {3.570601333099758*^9, 3.570601444951955*^9}, 3.5706014761208096`*^9, {3.570601526633698*^9, 3.570601615179454*^9}, { 3.5708576202336864`*^9, 3.5708576267544985`*^9}, {3.5708577990100007`*^9, 3.5708578016152053`*^9}, {3.5708580423548284`*^9, 3.570858044429632*^9}, { 3.570858075754487*^9, 3.5708581072821426`*^9}, {3.570858449889944*^9, 3.5708585756105647`*^9}, {3.572795632149378*^9, 3.5727956355657835`*^9}, { 3.5728516649872932`*^9, 3.5728517189321885`*^9}, {3.572851825152775*^9, 3.572851850284419*^9}, {3.5728520019946856`*^9, 3.572852210645052*^9}, 3.573124800838154*^9, {3.573322145410615*^9, 3.573322167859054*^9}, { 3.573322202803116*^9, 3.573322232630368*^9}, {3.5733683306427617`*^9, 3.5733683367267723`*^9}, {3.5733684056944933`*^9, 3.573368412932906*^9}, { 3.5733695833093615`*^9, 3.5733696100478086`*^9}, {3.5733696433694673`*^9, 3.573369694568757*^9}, {3.5733697316344223`*^9, 3.5733697335688257`*^9}, { 3.573369920425954*^9, 3.5733699263851643`*^9}, {3.57336995814682*^9, 3.573370085162243*^9}, {3.5733701175791*^9, 3.573370122087508*^9}, { 3.5733701577803707`*^9, 3.5733701630219803`*^9}, {3.573370193660434*^9, 3.573370198262442*^9}, {3.5746729482125616`*^9, 3.5746729642181897`*^9}, { 3.5746730450731316`*^9, 3.5746730625763626`*^9}, {3.574674580516679*^9, 3.5746746053675222`*^9}, {3.574674636692377*^9, 3.574674639859183*^9}, { 3.574743595854156*^9, 3.574743647131446*^9}, {3.575008591469165*^9, 3.5750085963519735`*^9}, 3.5753455268821225`*^9, {3.5753457669977446`*^9, 3.5753460420262275`*^9}, {3.5753460769078884`*^9, 3.575346080620695*^9}, { 3.5753461127255516`*^9, 3.575346158121631*^9}, {3.575388932760494*^9, 3.5753889451001163`*^9}, {3.5757144777564526`*^9, 3.575714504058099*^9}, { 3.5757750148485985`*^9, 3.5757750729587007`*^9}, 3.576294512162503*^9, { 3.576294649099543*^9, 3.576294654341152*^9}, {3.5763822868478565`*^9, 3.5763822927602673`*^9}, {3.576470302325349*^9, 3.576470482287265*^9}}], Cell[BoxData["616.0393192496647`"], "Output", CellChangeTimes->{ 3.5763887597548223`*^9, 3.5763922802042065`*^9, 3.5763923952232084`*^9, 3.576392694384934*^9, 3.576393206331033*^9, 3.5763933773073335`*^9, { 3.5764057825840836`*^9, 3.576405792583701*^9}, 3.5764196789173307`*^9, 3.5764693352484503`*^9, 3.5764698010964684`*^9, {3.576470313541768*^9, 3.5764703698266673`*^9}, {3.5764704085303354`*^9, 3.5764704583724227`*^9}, 3.5764704891980767`*^9, 3.5764707846157956`*^9, 3.5802090201581316`*^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[{"-", "1155.0179166381145`"}]], "Output", CellChangeTimes->{ 3.576388759770422*^9, 3.5763922802198067`*^9, 3.5763923952232084`*^9, 3.5763926944005337`*^9, 3.576393206346633*^9, 3.576393377322933*^9, { 3.576405782599684*^9, 3.5764057925993013`*^9}, 3.576419678932931*^9, 3.57646933526405*^9, 3.5764698010964684`*^9, {3.576470313541768*^9, 3.576470369842267*^9}, {3.576470408545935*^9, 3.576470458388023*^9}, 3.5764704891980767`*^9, 3.576470784631396*^9, 3.580209020173732*^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[{"-", "2024.5755329966235`"}]], "Output", CellChangeTimes->{ 3.576388759786022*^9, 3.5763922802354064`*^9, 3.5763923952388086`*^9, 3.576392694416134*^9, 3.576393206362233*^9, 3.5763933773385334`*^9, { 3.576405782615284*^9, 3.5764057925993013`*^9}, 3.576419678948531*^9, 3.5764693352796497`*^9, 3.576469801112068*^9, {3.5764703135573683`*^9, 3.576470369842267*^9}, {3.576470408545935*^9, 3.5764704584036226`*^9}, 3.5764704892136765`*^9, 3.5764707846469955`*^9, 3.580209020173732*^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[{"-", "2043.4921191684407`"}]], "Output", CellChangeTimes->{ 3.576388759786022*^9, 3.576392280251006*^9, 3.5763923952544084`*^9, 3.576392694416134*^9, 3.5763932063778334`*^9, 3.5763933773541336`*^9, { 3.5764057826308837`*^9, 3.5764057926149015`*^9}, 3.576419678948531*^9, 3.57646933529525*^9, 3.5764698011276684`*^9, {3.5764703135729685`*^9, 3.5764703698578672`*^9}, {3.576470408561535*^9, 3.5764704584036226`*^9}, 3.5764704892292767`*^9, 3.5764707846469955`*^9, 3.5802090201893315`*^9}] }, Open ]], 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]", RowBox[{ RowBox[{"Vnn", "=", "Vn"}], ";"}]}]], "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, {3.5764096561174574`*^9, 3.5764096670530767`*^9}}], Cell[CellGroupData[{ Cell[BoxData[ RowBox[{"ratio", "=", RowBox[{ RowBox[{"-", RowBox[{"(", RowBox[{"Vne", "+", RowBox[{"2", "*", "Vnn"}]}], ")"}]}], "/", RowBox[{"(", RowBox[{"Vee", "-", "Vnn"}], ")"}]}]}]], "Input", CellChangeTimes->{{3.580209009706113*^9, 3.580209009706113*^9}}], Cell[BoxData["6.89946553577048`"], "Output", CellChangeTimes->{3.5802090202049313`*^9}] }, Open ]], Cell[CellGroupData[{ Cell[BoxData[ RowBox[{ RowBox[{"(*", " ", RowBox[{ RowBox[{ "now", " ", "add", " ", "the", " ", "energy", " ", "terms", " ", "of", " ", RowBox[{"Cl", "[", "Ne", "]"}], "7"}], "+", " ", RowBox[{"from", " ", "Ne_s24b2", RowBox[{"_atoms", ".", "nb"}]}]}], " ", "*)"}], "\[IndentingNewLine]", RowBox[{ "Vee", "\[IndentingNewLine]", "Vnn", "\[IndentingNewLine]", "Vne", "\[IndentingNewLine]", RowBox[{"Tpi", " ", "=", " ", RowBox[{"2.2", "*", "1.125", "*", RowBox[{"(", RowBox[{ RowBox[{"0.5", "*", RowBox[{"(", RowBox[{ RowBox[{"1", "/", RowBox[{ RowBox[{"rpo", "[", RowBox[{"[", "1", "]"}], "]"}], "^", "2"}]}], "+", RowBox[{"1", "/", RowBox[{ RowBox[{"rpi", "[", RowBox[{"[", "1", "]"}], "]"}], "^", "2"}]}], "+", RowBox[{"1", "/", RowBox[{ RowBox[{"rpo", "[", RowBox[{"[", "2", "]"}], "]"}], "^", "2"}]}], "+", RowBox[{"1", "/", RowBox[{ RowBox[{"rpi", "[", RowBox[{"[", "2", "]"}], "]"}], "^", "2"}]}], "+", RowBox[{"1", "/", RowBox[{ RowBox[{"rpo", "[", RowBox[{"[", "3", "]"}], "]"}], "^", "2"}]}], "+", RowBox[{"1", "/", RowBox[{ RowBox[{"rpi", "[", RowBox[{"[", "3", "]"}], "]"}], "^", "2"}]}], "+", RowBox[{"1", "/", RowBox[{ RowBox[{"rpo", "[", RowBox[{"[", "4", "]"}], "]"}], "^", "2"}]}], "+", RowBox[{"1", "/", RowBox[{ RowBox[{"rpi", "[", RowBox[{"[", "4", "]"}], "]"}], "^", "2"}]}]}], ")"}]}], " ", "+", RowBox[{"1", "/", RowBox[{ RowBox[{"rpo", "[", RowBox[{"[", "5", "]"}], "]"}], "^", "2"}]}], "+", RowBox[{"1", "/", RowBox[{ RowBox[{"rpi", "[", RowBox[{"[", "5", "]"}], "]"}], "^", "2"}]}]}], ")"}]}]}], RowBox[{"(*", " ", RowBox[{"pi", " ", "kin", " ", "e", " ", "added"}], " ", "*)"}], "\[IndentingNewLine]", RowBox[{"Tlp", " ", "=", RowBox[{ RowBox[{"(", RowBox[{ RowBox[{"3", "*", "tj"}], "+", RowBox[{"2", "*", "oj"}]}], ")"}], "*", "2.25", "*", RowBox[{"(", RowBox[{"1", "/", RowBox[{"rlo", "^", "2"}]}], ")"}]}]}], "\[IndentingNewLine]", RowBox[{"Vtot", "=", RowBox[{"Vne", "+", "Vee", "+", "Vnn"}]}], "\[IndentingNewLine]", RowBox[{"Ttot", " ", "=", RowBox[{"Ttot", "+", "Tpi", "+", "Tlp"}]}], "\[IndentingNewLine]", RowBox[{"Vir", " ", "=", RowBox[{ RowBox[{"-", "Vtot"}], "/", "Ttot"}]}], "\[IndentingNewLine]", RowBox[{"Etot", "=", RowBox[{"Ttot", "+", "Vtot"}]}], "\[IndentingNewLine]"}]}]], "Input", CellChangeTimes->{{3.5689074950860367`*^9, 3.5689075109980645`*^9}, { 3.568910298074465*^9, 3.5689103015064707`*^9}, {3.568910724064413*^9, 3.5689107693044925`*^9}, {3.568955368910859*^9, 3.568955378629676*^9}, { 3.568955601366867*^9, 3.568955616218093*^9}, {3.5704638504275074`*^9, 3.570463876370353*^9}, {3.570464305074706*^9, 3.5704643133895206`*^9}, { 3.570464352171189*^9, 3.570464353231991*^9}, {3.570712404698539*^9, 3.5707124150569572`*^9}, {3.570809962851386*^9, 3.5708101493809137`*^9}, { 3.5708102160710306`*^9, 3.570810245165082*^9}, {3.5708102767551374`*^9, 3.5708103693413*^9}, {3.570810404207361*^9, 3.5708104232081947`*^9}, { 3.5708104788690925`*^9, 3.5708104825818987`*^9}, {3.5708105169643593`*^9, 3.570810517884761*^9}, {3.570810561767638*^9, 3.5708105625476394`*^9}, { 3.5708106179589367`*^9, 3.570810645648985*^9}, {3.5708552812279787`*^9, 3.570855300572013*^9}, {3.5718406368324184`*^9, 3.5718406454592333`*^9}, 3.57184067742369*^9, {3.572851887958485*^9, 3.5728519643206196`*^9}, 3.573124110349741*^9, 3.5731249811744704`*^9, {3.573321827294856*^9, 3.573321828074857*^9}, {3.5733218842973557`*^9, 3.573322060546466*^9}, { 3.5733223511749763`*^9, 3.573322362562996*^9}, {3.5733662939947844`*^9, 3.573366334227255*^9}, {3.573366373336523*^9, 3.5733663802005353`*^9}, { 3.5733670479305086`*^9, 3.573367141577473*^9}, {3.573367235162038*^9, 3.5733672396704454`*^9}, {3.5733673160013795`*^9, 3.573367336141015*^9}, { 3.57337971917793*^9, 3.573379817005702*^9}, {3.5733798503429604`*^9, 3.5733798602021775`*^9}, 3.574672644355228*^9, {3.5746726806096916`*^9, 3.5746727600450315`*^9}, {3.5747435066375995`*^9, 3.574743512113209*^9}, { 3.574828574792988*^9, 3.57482858761621*^9}, 3.5749358994636307`*^9, { 3.575344595934888*^9, 3.5753446255749397`*^9}, {3.5753719193332205`*^9, 3.575371943029662*^9}, {3.5757146920540295`*^9, 3.575714718901676*^9}, { 3.5757148376958847`*^9, 3.5757148384134865`*^9}, {3.57571486928594*^9, 3.575714870065942*^9}, {3.5757209777730255`*^9, 3.5757209784438267`*^9}, { 3.5757212754683485`*^9, 3.5757213005219927`*^9}, {3.5757222764909067`*^9, 3.5757222942281375`*^9}, {3.5757232810546713`*^9, 3.5757232920370903`*^9}, 3.576294590880241*^9, {3.57638195835808*^9, 3.576381963006888*^9}, { 3.576382027559801*^9, 3.576382030648607*^9}, {3.576382067324271*^9, 3.5763821038283353`*^9}, {3.576383939251156*^9, 3.5763839507795763`*^9}, { 3.576405754238834*^9, 3.5764057825528836`*^9}, {3.5764697834216375`*^9, 3.576469789100047*^9}}], Cell[BoxData["616.0393192496647`"], "Output", CellChangeTimes->{ 3.5763887598328223`*^9, 3.5763922802822065`*^9, 3.5763923952856083`*^9, 3.5763926944473343`*^9, 3.5763932064090333`*^9, 3.5763933773853335`*^9, { 3.576405782662084*^9, 3.5764057926305017`*^9}, 3.576419678979731*^9, 3.57646933529525*^9, 3.5764698011276684`*^9, {3.5764703135729685`*^9, 3.5764703698578672`*^9}, {3.576470408577135*^9, 3.576470458419223*^9}, 3.5764704892292767`*^9, 3.576470784678196*^9, 3.5802090202049313`*^9}], Cell[BoxData["450.4266672685318`"], "Output", CellChangeTimes->{ 3.5763887598328223`*^9, 3.5763922802822065`*^9, 3.5763923952856083`*^9, 3.5763926944473343`*^9, 3.5763932064090333`*^9, 3.5763933773853335`*^9, { 3.576405782662084*^9, 3.5764057926305017`*^9}, 3.576419678979731*^9, 3.57646933529525*^9, 3.5764698011276684`*^9, {3.5764703135729685`*^9, 3.5764703698578672`*^9}, {3.576470408577135*^9, 3.576470458419223*^9}, 3.5764704892292767`*^9, 3.576470784678196*^9, 3.5802090202049313`*^9}], Cell[BoxData[ RowBox[{"-", "2043.4921191684407`"}]], "Output", CellChangeTimes->{ 3.5763887598328223`*^9, 3.5763922802822065`*^9, 3.5763923952856083`*^9, 3.5763926944473343`*^9, 3.5763932064090333`*^9, 3.5763933773853335`*^9, { 3.576405782662084*^9, 3.5764057926305017`*^9}, 3.576419678979731*^9, 3.57646933529525*^9, 3.5764698011276684`*^9, {3.5764703135729685`*^9, 3.5764703698578672`*^9}, {3.576470408577135*^9, 3.576470458419223*^9}, 3.5764704892292767`*^9, 3.576470784678196*^9, 3.5802090202049313`*^9}], Cell[BoxData["10.317956498378516`"], "Output", CellChangeTimes->{ 3.5763887598328223`*^9, 3.5763922802822065`*^9, 3.5763923952856083`*^9, 3.5763926944473343`*^9, 3.5763932064090333`*^9, 3.5763933773853335`*^9, { 3.576405782662084*^9, 3.5764057926305017`*^9}, 3.576419678979731*^9, 3.57646933529525*^9, 3.5764698011276684`*^9, {3.5764703135729685`*^9, 3.5764703698578672`*^9}, {3.576470408577135*^9, 3.576470458419223*^9}, 3.5764704892292767`*^9, 3.576470784678196*^9, 3.5802090202049313`*^9}], Cell[BoxData["12.444444444444443`"], "Output", CellChangeTimes->{ 3.5763887598328223`*^9, 3.5763922802822065`*^9, 3.5763923952856083`*^9, 3.5763926944473343`*^9, 3.5763932064090333`*^9, 3.5763933773853335`*^9, { 3.576405782662084*^9, 3.5764057926305017`*^9}, 3.576419678979731*^9, 3.57646933529525*^9, 3.5764698011276684`*^9, {3.5764703135729685`*^9, 3.5764703698578672`*^9}, {3.576470408577135*^9, 3.576470458419223*^9}, 3.5764704892292767`*^9, 3.576470784678196*^9, 3.5802090202049313`*^9}], Cell[BoxData[ RowBox[{"-", "977.0261326502442`"}]], "Output", CellChangeTimes->{ 3.5763887598328223`*^9, 3.5763922802822065`*^9, 3.5763923952856083`*^9, 3.5763926944473343`*^9, 3.5763932064090333`*^9, 3.5763933773853335`*^9, { 3.576405782662084*^9, 3.5764057926305017`*^9}, 3.576419678979731*^9, 3.57646933529525*^9, 3.5764698011276684`*^9, {3.5764703135729685`*^9, 3.5764703698578672`*^9}, {3.576470408577135*^9, 3.576470458419223*^9}, 3.5764704892292767`*^9, 3.576470784678196*^9, 3.5802090202049313`*^9}], Cell[BoxData["488.51250401277906`"], "Output", CellChangeTimes->{ 3.5763887598328223`*^9, 3.5763922802822065`*^9, 3.5763923952856083`*^9, 3.5763926944473343`*^9, 3.5763932064090333`*^9, 3.5763933773853335`*^9, { 3.576405782662084*^9, 3.5764057926305017`*^9}, 3.576419678979731*^9, 3.57646933529525*^9, 3.5764698011276684`*^9, {3.5764703135729685`*^9, 3.5764703698578672`*^9}, {3.576470408577135*^9, 3.576470458419223*^9}, 3.5764704892292767`*^9, 3.576470784678196*^9, 3.5802090202049313`*^9}], Cell[BoxData["2.000002302141044`"], "Output", CellChangeTimes->{ 3.5763887598328223`*^9, 3.5763922802822065`*^9, 3.5763923952856083`*^9, 3.5763926944473343`*^9, 3.5763932064090333`*^9, 3.5763933773853335`*^9, { 3.576405782662084*^9, 3.5764057926305017`*^9}, 3.576419678979731*^9, 3.57646933529525*^9, 3.5764698011276684`*^9, {3.5764703135729685`*^9, 3.5764703698578672`*^9}, {3.576470408577135*^9, 3.576470458419223*^9}, 3.5764704892292767`*^9, 3.576470784678196*^9, 3.5802090202049313`*^9}], Cell[BoxData[ RowBox[{"-", "488.51362863746516`"}]], "Output", CellChangeTimes->{ 3.5763887598328223`*^9, 3.5763922802822065`*^9, 3.5763923952856083`*^9, 3.5763926944473343`*^9, 3.5763932064090333`*^9, 3.5763933773853335`*^9, { 3.576405782662084*^9, 3.5764057926305017`*^9}, 3.576419678979731*^9, 3.57646933529525*^9, 3.5764698011276684`*^9, {3.5764703135729685`*^9, 3.5764703698578672`*^9}, {3.576470408577135*^9, 3.576470458419223*^9}, 3.5764704892292767`*^9, 3.576470784678196*^9, 3.5802090202205315`*^9}] }, Open ]] }, WindowSize->{902, 949}, WindowMargins->{{Automatic, 338}, {Automatic, 25}}, 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, 2318, 38, 52, "Input"], Cell[CellGroupData[{ Cell[2900, 62, 1357, 25, 52, "Input"], Cell[4260, 89, 3312, 58, 245, "Output"] }, Open ]], Cell[CellGroupData[{ Cell[7609, 152, 906, 15, 31, "Input"], Cell[8518, 169, 837, 13, 31, "Output"] }, Open ]], Cell[CellGroupData[{ Cell[9392, 187, 955, 14, 31, "Input"], Cell[10350, 203, 493, 7, 31, "Output"] }, Open ]], Cell[CellGroupData[{ Cell[10880, 215, 838, 19, 31, "Input"], Cell[11721, 236, 2991, 69, 267, "Output"] }, Open ]], Cell[CellGroupData[{ Cell[14749, 310, 725, 20, 52, "Input"], Cell[15477, 332, 14798, 215, 387, "Output"] }, Open ]], Cell[CellGroupData[{ Cell[30312, 552, 2421, 66, 212, "Input"], Cell[32736, 620, 633, 11, 31, "Output"], Cell[33372, 633, 410, 6, 31, "Output"] }, Open ]], Cell[CellGroupData[{ Cell[33819, 644, 1560, 29, 31, "Input"], Cell[35382, 675, 842, 13, 31, "Output"] }, Open ]], Cell[36239, 691, 1419, 23, 31, "Input"], Cell[37661, 716, 1592, 29, 31, "Input"], Cell[CellGroupData[{ Cell[39278, 749, 1234, 18, 31, "Input"], Cell[40515, 769, 1661, 43, 52, "Output"] }, Open ]], Cell[CellGroupData[{ Cell[42213, 817, 697, 14, 31, "Input"], Cell[42913, 833, 704, 12, 31, "Output"] }, Open ]], Cell[43632, 848, 908, 24, 31, "Input"], Cell[CellGroupData[{ Cell[44565, 876, 6690, 137, 172, "Input"], Cell[51258, 1015, 775, 13, 52, "Output"], Cell[52036, 1030, 780, 13, 52, "Output"] }, Open ]], Cell[CellGroupData[{ Cell[52853, 1048, 519, 12, 31, "Input"], Cell[53375, 1062, 838, 13, 31, "Output"] }, Open ]], Cell[CellGroupData[{ Cell[54250, 1080, 1428, 39, 92, "Input"], Cell[55681, 1121, 733, 12, 31, "Output"] }, Open ]], Cell[CellGroupData[{ Cell[56451, 1138, 827, 23, 92, "Input"], Cell[57281, 1163, 499, 7, 31, "Output"], Cell[57783, 1172, 499, 7, 31, "Output"] }, Open ]], Cell[58297, 1182, 1368, 19, 31, "Input"], Cell[CellGroupData[{ Cell[59690, 1205, 1563, 22, 31, "Input"], Cell[61256, 1229, 500, 7, 31, "Output"] }, Open ]], Cell[61771, 1239, 2301, 49, 112, "Input"], Cell[CellGroupData[{ Cell[64097, 1292, 1583, 22, 31, "Input"], Cell[65683, 1316, 12147, 296, 144, "Output"] }, Open ]], Cell[77845, 1615, 1442, 19, 30, "Text"], Cell[79290, 1636, 2177, 41, 52, "Input"], Cell[CellGroupData[{ Cell[81492, 1681, 4977, 90, 92, "Input"], Cell[86472, 1773, 3428, 62, 282, "Output"] }, Open ]], Cell[89915, 1838, 1027, 14, 31, "Input"], Cell[CellGroupData[{ Cell[90967, 1856, 3846, 83, 152, "Input"], Cell[94816, 1941, 796, 13, 52, "Output"] }, Open ]], Cell[CellGroupData[{ Cell[95649, 1959, 2092, 46, 112, "Input"], Cell[97744, 2007, 4095, 71, 267, "Output"] }, Open ]], Cell[101854, 2081, 561, 12, 52, "Input"], Cell[CellGroupData[{ Cell[102440, 2097, 2143, 47, 92, "Input"], Cell[104586, 2146, 4066, 68, 267, "Output"] }, Open ]], Cell[CellGroupData[{ Cell[108689, 2219, 2558, 56, 112, "Input"], Cell[111250, 2277, 4073, 68, 267, "Output"] }, Open ]], Cell[CellGroupData[{ Cell[115360, 2350, 3677, 96, 172, "Input"], Cell[119040, 2448, 521, 7, 31, "Output"], Cell[119564, 2457, 520, 7, 31, "Output"], Cell[120087, 2466, 520, 7, 31, "Output"], Cell[120610, 2475, 521, 7, 31, "Output"], Cell[121134, 2484, 521, 7, 31, "Output"] }, Open ]], Cell[121670, 2494, 2075, 35, 72, "Input"], Cell[CellGroupData[{ Cell[123770, 2533, 3969, 94, 172, "Input"], Cell[127742, 2629, 527, 8, 31, "Output"], Cell[128272, 2639, 920, 16, 21, "Message"], Cell[129195, 2657, 623, 10, 31, "Output"], Cell[129821, 2669, 631, 11, 31, "Output"], Cell[130455, 2682, 559, 9, 31, "Output"], Cell[131017, 2693, 747, 13, 31, "Output"], Cell[131767, 2708, 561, 9, 31, "Output"] }, Open ]], Cell[CellGroupData[{ Cell[132365, 2722, 2672, 54, 132, "Input"], Cell[135040, 2778, 483, 7, 31, "Output"] }, Open ]], Cell[CellGroupData[{ Cell[135560, 2790, 739, 22, 92, "Input"], Cell[136302, 2814, 500, 7, 31, "Output"] }, Open ]], Cell[CellGroupData[{ Cell[136839, 2826, 2771, 55, 92, "Input"], Cell[139613, 2883, 553, 9, 31, "Output"] }, Open ]], Cell[140181, 2895, 4989, 137, 232, "Input"], Cell[CellGroupData[{ Cell[145195, 3036, 5267, 128, 252, "Input"], Cell[150465, 3166, 510, 8, 31, "Output"], Cell[150978, 3176, 493, 7, 31, "Output"], Cell[151474, 3185, 2445, 75, 267, "Output"] }, Open ]], Cell[CellGroupData[{ Cell[153956, 3265, 11929, 199, 232, "Input"], Cell[165888, 3466, 577, 10, 31, "Output"], Cell[166468, 3478, 688, 14, 31, "Output"], Cell[167159, 3494, 488, 7, 31, "Output"], Cell[167650, 3503, 488, 7, 31, "Output"] }, Open ]], Cell[168153, 3513, 9308, 141, 112, "Input"], Cell[177464, 3656, 8269, 113, 49, "Text"], Cell[CellGroupData[{ Cell[185758, 3773, 4631, 105, 152, "Input"], Cell[190392, 3880, 487, 7, 31, "Output"] }, Open ]], Cell[190894, 3890, 184, 3, 31, "Input"], Cell[CellGroupData[{ Cell[191103, 3897, 3200, 70, 112, "Input"], Cell[194306, 3969, 2880, 61, 267, "Output"] }, Open ]], Cell[197201, 4033, 442, 7, 49, "Text"], Cell[197646, 4042, 1368, 20, 31, "Input"], Cell[199017, 4064, 2529, 50, 92, "Input"], Cell[CellGroupData[{ Cell[201571, 4118, 3056, 65, 132, "Input"], Cell[204630, 4185, 14010, 257, 176, "Output"] }, Open ]], Cell[218655, 4445, 2720, 38, 49, "Text"], Cell[CellGroupData[{ Cell[221400, 4487, 4909, 117, 332, "Input"], Cell[226312, 4606, 487, 7, 31, "Output"] }, Open ]], Cell[226814, 4616, 32056, 887, 1452, "Input"], Cell[CellGroupData[{ Cell[258895, 5507, 3302, 46, 31, "Input"], Cell[262200, 5555, 627, 11, 31, "Output"] }, Open ]], Cell[CellGroupData[{ Cell[262864, 5571, 4466, 82, 112, "Input"], Cell[267333, 5655, 2103, 48, 202, "Output"] }, Open ]], Cell[269451, 5706, 2691, 37, 49, "Text"], Cell[272145, 5745, 3977, 72, 132, "Input"], Cell[276125, 5819, 1261, 37, 132, "Input"], Cell[277389, 5858, 310, 4, 31, "Input"], Cell[CellGroupData[{ Cell[277724, 5866, 5784, 92, 112, "Input"], Cell[283511, 5960, 503, 8, 31, "Output"] }, Open ]], Cell[284029, 5971, 3073, 58, 92, "Input"], Cell[CellGroupData[{ Cell[287127, 6033, 939, 17, 72, "Input"], Cell[288069, 6052, 1921, 42, 92, "Output"], Cell[289993, 6096, 498, 7, 31, "Output"], Cell[290494, 6105, 497, 7, 31, "Output"] }, Open ]], Cell[CellGroupData[{ Cell[291028, 6117, 862, 21, 72, "Input"], Cell[291893, 6140, 7660, 230, 243, "Output"] }, Open ]], Cell[299568, 6373, 3143, 85, 152, "Input"], Cell[302714, 6460, 10201, 233, 192, "Input"], Cell[312918, 6695, 6267, 98, 72, "Input"], Cell[319188, 6795, 10215, 234, 192, "Input"], Cell[329406, 7031, 5925, 93, 52, "Input"], Cell[335334, 7126, 13128, 236, 152, "Input"], Cell[CellGroupData[{ Cell[348487, 7366, 13551, 236, 232, "Input"], Cell[362041, 7604, 11556, 264, 784, "Output"] }, Open ]], Cell[CellGroupData[{ Cell[373634, 7873, 12166, 189, 252, "Input"], Cell[385803, 8064, 31243, 551, 375, 7867, 167, "CachedBoxData", "BoxData", \ "Output"], Cell[417049, 8617, 10112, 217, 375, "Output"], Cell[427164, 8836, 10152, 220, 369, "Output"], Cell[437319, 9058, 55522, 965, 359, 9458, 209, "CachedBoxData", "BoxData", \ "Output"] }, Open ]], Cell[492856, 10026, 9727, 131, 31, "Input"], Cell[CellGroupData[{ Cell[502608, 10161, 4992, 106, 152, "Input"], Cell[507603, 10269, 489, 7, 31, "Output"] }, Open ]], Cell[CellGroupData[{ Cell[508129, 10281, 2499, 47, 92, "Input"], Cell[510631, 10330, 491, 7, 31, "Output"] }, Open ]], Cell[511137, 10340, 1841, 29, 52, "Input"], Cell[CellGroupData[{ Cell[513003, 10373, 5577, 123, 212, "Input"], Cell[518583, 10498, 493, 7, 31, "Output"] }, Open ]], Cell[CellGroupData[{ Cell[519113, 10510, 6767, 131, 112, "Input"], Cell[525883, 10643, 1830, 51, 72, "Output"], Cell[527716, 10696, 1054, 17, 52, "Output"] }, Open ]], Cell[CellGroupData[{ Cell[528807, 10718, 4670, 80, 92, "Input"], Cell[533480, 10800, 491, 7, 31, "Output"] }, Open ]], Cell[CellGroupData[{ Cell[534008, 10812, 2695, 47, 112, "Input"], Cell[536706, 10861, 508, 8, 31, "Output"], Cell[537217, 10871, 489, 7, 31, "Output"], Cell[537709, 10880, 491, 7, 31, "Output"], Cell[538203, 10889, 489, 7, 31, "Output"] }, Open ]], Cell[538707, 10899, 2066, 30, 31, "Input"], Cell[CellGroupData[{ Cell[540798, 10933, 2963, 56, 112, "Input"], Cell[543764, 10991, 512, 7, 31, "Output"] }, Open ]], Cell[544291, 11001, 2993, 69, 92, "Input"], Cell[CellGroupData[{ Cell[547309, 11074, 4495, 89, 132, "Input"], Cell[551807, 11165, 518, 7, 31, "Output"] }, Open ]], Cell[CellGroupData[{ Cell[552362, 11177, 499, 15, 52, "Input"], Cell[552864, 11194, 519, 8, 31, "Output"] }, Open ]], Cell[553398, 11205, 1381, 21, 31, "Input"], Cell[CellGroupData[{ Cell[554804, 11230, 1709, 32, 52, "Input"], Cell[556516, 11264, 526, 8, 31, "Output"] }, Open ]], Cell[CellGroupData[{ Cell[557079, 11277, 1415, 43, 72, "Input"], Cell[558497, 11322, 531, 8, 31, "Output"] }, Open ]], Cell[559043, 11333, 2659, 53, 92, "Input"], Cell[CellGroupData[{ Cell[561727, 11390, 296, 9, 31, "Input"], Cell[562026, 11401, 88, 1, 31, "Output"] }, Open ]], Cell[CellGroupData[{ Cell[562151, 11407, 5500, 116, 312, "Input"], Cell[567654, 11525, 513, 7, 31, "Output"], Cell[568170, 11534, 513, 7, 31, "Output"], Cell[568686, 11543, 531, 8, 31, "Output"], Cell[569220, 11553, 514, 7, 31, "Output"], Cell[569737, 11562, 514, 7, 31, "Output"], Cell[570254, 11571, 530, 8, 31, "Output"], Cell[570787, 11581, 514, 7, 31, "Output"], Cell[571304, 11590, 513, 7, 31, "Output"], Cell[571820, 11599, 531, 8, 31, "Output"] }, Open ]] } ] *) (* End of internal cache information *)