(* 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[ 398958, 8661] NotebookOptionsPosition[ 391536, 8431] NotebookOutlinePosition[ 392057, 8452] CellTagsIndexPosition[ 392014, 8449] WindowFrame->Normal*) (* Beginning of Notebook Content *) Notebook[{ Cell[BoxData[ RowBox[{ RowBox[{"(*", " ", RowBox[{ RowBox[{ RowBox[{ RowBox[{"Kimball", " ", "model", " ", "of", " ", "\[Alpha]D"}], "-", RowBox[{"Glucopyranose", " ", "from", " ", "Gamess", " ", "6"}], "-", RowBox[{"31", "G", RowBox[{ RowBox[{"(", "d", ")"}], "/", "opt"}]}]}], "//", RowBox[{"PDB", " ", "source"}]}], ",", " ", RowBox[{"ES", " ", "27", " ", "April", " ", "2013"}]}], " ", "*)"}], " ", "\[IndentingNewLine]", RowBox[{ RowBox[{"Clear", "[", RowBox[{ "tw", ",", "n2", ",", "n", ",", "nb", ",", "bc", ",", "bh", ",", "u", ",", "u1", ",", "u2", ",", "Vee", ",", "Vne", ",", "Vnn"}], "]"}], ";"}], " "}]], "Input", CellChangeTimes->{{3.568278170270548*^9, 3.568278174310955*^9}, { 3.5682782109554195`*^9, 3.5682782183342323`*^9}, {3.5688220426984916`*^9, 3.5688220506389055`*^9}, {3.568822092353379*^9, 3.568822134660653*^9}, { 3.5688728241768503`*^9, 3.568872825034852*^9}, {3.5688958900531473`*^9, 3.5688958965115585`*^9}, {3.5689027504159966`*^9, 3.568902751695199*^9}, { 3.5689109808408637`*^9, 3.568910992618884*^9}, {3.569134574760273*^9, 3.569134584135889*^9}, 3.56923802266416*^9, {3.56933446475942*^9, 3.569334471239791*^9}, {3.5693395229642725`*^9, 3.569339531606688*^9}, { 3.5694332905109916`*^9, 3.56943330667262*^9}, {3.570297588441428*^9, 3.5702976026530533`*^9}, {3.570558862041448*^9, 3.5705588713234644`*^9}, 3.5705590387585583`*^9, {3.570855141170933*^9, 3.570855146100541*^9}, { 3.5708563212974052`*^9, 3.5708563224362073`*^9}, {3.5708588179101906`*^9, 3.570858820452995*^9}, 3.570949483910489*^9, {3.5719810762355733`*^9, 3.5719810786847773`*^9}, 3.5723256977094345`*^9, 3.572583124905918*^9, { 3.5727976670013523`*^9, 3.572797667157352*^9}, 3.5728672700652885`*^9, { 3.5732075583876934`*^9, 3.5732075588400946`*^9}, {3.573221345358634*^9, 3.57322135451585*^9}, {3.573369135900576*^9, 3.5733691365557775`*^9}, { 3.574682961367374*^9, 3.5746829644717793`*^9}, 3.5747440056200757`*^9, { 3.574833269418433*^9, 3.5748332704636354`*^9}, 3.574833303161292*^9, { 3.575821465320308*^9, 3.5758214656791086`*^9}, {3.5758677834030266`*^9, 3.575867784105028*^9}, {3.5759045270911455`*^9, 3.5759045496955853`*^9}, { 3.576038868853632*^9, 3.576038881286854*^9}, {3.5760392043790216`*^9, 3.5760392173582444`*^9}, {3.5760415847232037`*^9, 3.5760415955496225`*^9}, {3.5760540021075044`*^9, 3.5760540035583067`*^9}, {3.576054124115319*^9, 3.5760541571561766`*^9}, { 3.5760595218126364`*^9, 3.576059525728243*^9}, {3.5760616525267787`*^9, 3.576061660701193*^9}}], Cell[CellGroupData[{ Cell[BoxData[{ RowBox[{ RowBox[{ RowBox[{"t1", "=", RowBox[{"1.889726", "*", RowBox[{"{", RowBox[{ RowBox[{"{", RowBox[{ RowBox[{"-", "0.7398262447"}], ",", "0.4262289085", ",", RowBox[{"-", "2.3622953426"}]}], "}"}], ",", RowBox[{"{", RowBox[{"0.6951046198", ",", "0.8089554886", ",", RowBox[{"-", "2.6792130732"}]}], "}"}], ",", RowBox[{"{", RowBox[{"1.6473421720", ",", "0.1151622448", ",", RowBox[{"-", "1.7102854727"}]}], "}"}], ",", RowBox[{"{", RowBox[{"1.2615014606", ",", "0.3743280522", ",", RowBox[{"-", "0.3736463841"}]}], "}"}], ",", RowBox[{"{", RowBox[{ RowBox[{"-", "0.0267476286"}], ",", "0.0005525802", ",", RowBox[{"-", "0.0141395677"}]}], "}"}], ",", RowBox[{"{", RowBox[{ RowBox[{"-", "1.0418879023"}], ",", "0.7150995304", ",", RowBox[{"-", "0.9036699383"}]}], "}"}], ",", RowBox[{"{", RowBox[{ RowBox[{"-", "0.8772484573"}], ",", RowBox[{"-", "0.6345743629"}], ",", RowBox[{"-", "2.5456219297"}]}], "}"}], ",", RowBox[{"{", RowBox[{ RowBox[{"-", "1.5673415585"}], ",", "1.1740249380", ",", RowBox[{"-", "3.2142191671"}]}], "}"}], ",", RowBox[{"{", RowBox[{"0.8004075441", ",", "1.8826567306", ",", RowBox[{"-", "2.5700447327"}]}], "}"}], ",", RowBox[{"{", RowBox[{"1.0427289701", ",", "0.4101344059", ",", RowBox[{"-", "3.9759706631"}]}], "}"}], ",", RowBox[{"{", RowBox[{"3.0857134405", ",", "0.5635160022", ",", RowBox[{"-", "1.8658744071"}]}], "}"}], ",", RowBox[{"{", RowBox[{"1.6112564257", ",", RowBox[{"-", "0.9527159484"}], ",", RowBox[{"-", "1.9016937178"}]}], "}"}], ",", RowBox[{"{", RowBox[{ RowBox[{"-", "0.1329817280"}], ",", "0.3221834348", ",", "1.0170392284"}], "}"}], ",", RowBox[{"{", RowBox[{ RowBox[{"-", "0.2241696289"}], ",", RowBox[{"-", "1.3673532341"}], ",", RowBox[{"-", "0.1160580422"}]}], "}"}], ",", RowBox[{"{", RowBox[{ RowBox[{"-", "2.3662978950"}], ",", "0.3239013844", ",", RowBox[{"-", "0.6694876074"}]}], "}"}], ",", RowBox[{"{", RowBox[{ RowBox[{"-", "0.9248306436"}], ",", "1.7823157309", ",", RowBox[{"-", "0.7324832825"}]}], "}"}], ",", RowBox[{"{", RowBox[{"0.4009608007", ",", RowBox[{"-", "1.8085024647"}], ",", "0.4447587248"}], "}"}], ",", RowBox[{"{", RowBox[{ RowBox[{"-", "2.6490754785"}], ",", "0.6048842132", ",", "0.1896062884"}], "}"}], ",", RowBox[{"{", RowBox[{ RowBox[{"-", "2.4706219720"}], ",", "0.9607276744", ",", RowBox[{"-", "3.0174558806"}]}], "}"}], ",", RowBox[{"{", RowBox[{"0.4069982016", ",", "0.7778555112", ",", RowBox[{"-", "4.5768120494"}]}], "}"}], ",", RowBox[{"{", RowBox[{"3.6862633850", ",", "0.0509832997", ",", RowBox[{"-", "1.1185059572"}]}], "}"}], ",", RowBox[{"{", RowBox[{"3.1665289859", ",", "1.9527368576", ",", RowBox[{"-", "1.7020360390"}]}], "}"}], ",", RowBox[{"{", RowBox[{"3.4278210949", ",", "0.2643158777", ",", RowBox[{"-", "2.8510717476"}]}], "}"}], ",", RowBox[{"{", RowBox[{"4.0434020365", ",", "2.2435831455", ",", RowBox[{"-", "1.9068192399"}]}], "}"}]}], "}"}]}]}], ";"}], "\n"}], "\n", RowBox[{"MatrixForm", "[", "t1", "]"}]}], "Input", CellChangeTimes->{ 3.57029749846047*^9, {3.570297893562364*^9, 3.5702979152152023`*^9}, { 3.5704535321223855`*^9, 3.570453555038826*^9}, {3.570558892227501*^9, 3.5705589112283344`*^9}, {3.5705589864360666`*^9, 3.5705590132681136`*^9}, {3.5705590525489826`*^9, 3.5705590747322216`*^9}, {3.570595322227199*^9, 3.5705953504632483`*^9}, 3.570855059411189*^9, 3.570856566545436*^9, 3.5709425310226765`*^9, 3.5730457924857635`*^9, 3.5746613722339497`*^9, 3.574701612088543*^9, 3.574852285217162*^9, {3.575957371273204*^9, 3.5759574160920825`*^9}, { 3.575957723022621*^9, 3.575957727406229*^9}, {3.5759673718717065`*^9, 3.5759673718717065`*^9}, {3.5760380525701976`*^9, 3.5760380803070464`*^9}, 3.576038827248359*^9, {3.576038939911757*^9, 3.5760389425949616`*^9}, { 3.5760415508711443`*^9, 3.5760415743647857`*^9}, 3.5760594561521206`*^9}], Cell[BoxData[ TagBox[ RowBox[{"(", "\[NoBreak]", GridBox[{ { RowBox[{"-", "1.3980688900919522`"}], "0.805455850344071`", RowBox[{"-", "4.464090928590127`"}]}, {"1.3135572727561748`", "1.5287042196501237`", RowBox[{"-", "5.062978603965943`"}]}, {"3.113025333324872`", "0.21762508821692478`", RowBox[{"-", "3.2319709251834805`"}]}, {"2.3838921091337952`", "0.7073774527716972`", RowBox[{"-", "0.7060892868397566`"}]}, { RowBox[{"-", "0.0505456892037636`"}], "0.0010442251710251998`", RowBox[{"-", "0.026719908711450198`"}]}, { RowBox[{"-", "1.96888265806177`"}], "1.3513421751846704`", RowBox[{"-", "1.7076885778239057`"}]}, { RowBox[{"-", "1.6577592182196998`"}], RowBox[{"-", "1.1991716725055654`"}], RowBox[{"-", "4.810527946724262`"}]}, { RowBox[{"-", "2.9618460939779707`"}], "2.218585449986988`", RowBox[{"-", "6.073993529767215`"}]}, {"1.5125509466819167`", "3.5577053728898154`", RowBox[{"-", "4.85668035254624`"}]}, {"1.9704720457511926`", "0.7750416503237834`", RowBox[{"-", "7.513495137297311`"}]}, {"5.831152917062304`", "1.0648908407733972`", RowBox[{"-", "3.5259913798314546`"}]}, {"3.044833160312358`", RowBox[{"-", "1.8003720983061384`"}], RowBox[{"-", "3.593680062563323`"}]}, { RowBox[{"-", "0.251299028926528`"}], "0.6088384135108648`", "1.9219254729274184`"}, { RowBox[{"-", "0.4236191761426814`"}], RowBox[{"-", "2.583922957662857`"}], RowBox[{"-", "0.2193178998544372`"}]}, { RowBox[{"-", "4.471654655926771`"}], "0.6120848675366743`", RowBox[{"-", "1.2651481383815724`"}]}, { RowBox[{"-", "1.7476765128076537`"}], "3.3680883768907335`", RowBox[{"-", "1.3841927035055952`"}]}, {"0.7577060500636082`", RowBox[{"-", "3.417574128607672`"}], "0.8404721259814049`"}, { RowBox[{"-", "5.006026807683891`"}], "1.1430654246735832`", "0.3583039329529784`"}, { RowBox[{"-", "4.668798576659672`"}], "1.8155120652332144`", RowBox[{"-", "5.702164831422715`"}]}, {"0.7691150835167616`", "1.4699337837579312`", RowBox[{"-", "8.648920726864464`"}]}, {"6.96602776148251`", "0.0963444670088822`", RowBox[{"-", "2.113669788475727`"}]}, {"5.983872154408863`", "3.6901376109650177`", RowBox[{"-", "3.216381755835314`"}]}, {"6.477642646380998`", "0.4994845863025102`", RowBox[{"-", "5.387744409305157`"}]}, {"7.640921956826999`", "4.239757403213133`", RowBox[{"-", "3.6033658949392673`"}]} }, 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.576169439603052*^9}] }, Open ]], Cell[BoxData[ RowBox[{ RowBox[{"u", "=", RowBox[{"{", 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.575957448368539*^9, 3.575957457962556*^9}, 3.575957740572652*^9, 3.5759673719029064`*^9, {3.5760381134571047`*^9, 3.576038118293113*^9}, { 3.576059488022977*^9, 3.576059493748187*^9}}], Cell[CellGroupData[{ Cell[BoxData[ RowBox[{"n", "=", RowBox[{"Length", "[", "t1", "]"}]}]], "Input", CellChangeTimes->{{3.568278170270548*^9, 3.568278174310955*^9}, { 3.5682782109554195`*^9, 3.5682782183342323`*^9}, {3.5688220426984916`*^9, 3.5688220506389055`*^9}, {3.568822092353379*^9, 3.568822123693834*^9}, 3.568873215924739*^9, 3.5689108676002645`*^9, 3.5689997098237543`*^9, 3.5689998170115423`*^9, 3.568999886915265*^9, 3.5691460425981283`*^9, { 3.5692371678918586`*^9, 3.569237204489523*^9}, 3.569237465805582*^9, 3.56923802261736*^9, 3.5693403424025126`*^9, 3.5693404501675014`*^9, 3.569340737988007*^9, 3.569340852819809*^9, 3.569341165475558*^9, 3.56934149694494*^9, 3.569342614390503*^9, 3.569343567162176*^9, 3.569343662712344*^9, 3.569343763597721*^9, 3.5693440703198595`*^9, 3.569344266209404*^9, 3.5702973471714044`*^9, 3.5702974395391665`*^9, { 3.570297637207114*^9, 3.570297637987115*^9}, 3.570297920051211*^9}], Cell[BoxData["24"], "Output", CellChangeTimes->{3.5761694396186523`*^9}] }, Open ]], Cell[CellGroupData[{ Cell[BoxData[ RowBox[{"un", "=", RowBox[{"Table", "[", RowBox[{ RowBox[{"If", "[", RowBox[{ RowBox[{ RowBox[{"u", "[", RowBox[{"[", "i", "]"}], "]"}], "\[Equal]", "\"\\""}], ",", "\"\\"", ",", RowBox[{"u", "[", RowBox[{"[", "i", "]"}], "]"}]}], "]"}], ",", RowBox[{"{", RowBox[{"i", ",", "1", ",", "n"}], "}"}]}], "]"}]}]], "Input", CellChangeTimes->{{3.568807971988578*^9, 3.5688080897687845`*^9}, { 3.5688081769573374`*^9, 3.5688081865669546`*^9}, {3.568808274317109*^9, 3.5688082853151283`*^9}, {3.5688085365847692`*^9, 3.568808578330443*^9}, { 3.568808822704872*^9, 3.5688088761037655`*^9}, {3.56880890727262*^9, 3.568808937365073*^9}, {3.568809097608555*^9, 3.5688091594002633`*^9}, 3.5688092418308077`*^9, {3.5688092753552666`*^9, 3.568809302577315*^9}, { 3.5688096257786827`*^9, 3.568809703201618*^9}, {3.5688097456336927`*^9, 3.568809788268568*^9}, 3.568809850575077*^9, {3.568809946562046*^9, 3.5688099535664577`*^9}, {3.5688100003197403`*^9, 3.568810008556555*^9}, { 3.568810075371472*^9, 3.56881007981748*^9}, {3.568813431920168*^9, 3.568813533086345*^9}, {3.5688135960324554`*^9, 3.5688136045344706`*^9}, { 3.5688136407889347`*^9, 3.568813707494652*^9}, {3.568813812529636*^9, 3.5688138275524626`*^9}, {3.5688140611940727`*^9, 3.568814062738476*^9}, { 3.568814121113778*^9, 3.5688141965555105`*^9}, {3.568814326675339*^9, 3.568814331074547*^9}, 3.568814589473401*^9, 3.5688146762563534`*^9, 3.56881472549004*^9}], Cell[BoxData[ RowBox[{"{", RowBox[{"\<\"C\"\>", ",", "\<\"C\"\>", ",", "\<\"C\"\>", ",", "\<\"O\"\>", ",", "\<\"C\"\>", ",", "\<\"C\"\>", ",", "\<\"Z\"\>", ",", "\<\"O\"\>", ",", "\<\"Z\"\>", ",", "\<\"O\"\>", ",", "\<\"C\"\>", ",", "\<\"Z\"\>", ",", "\<\"Z\"\>", ",", "\<\"O\"\>", ",", "\<\"O\"\>", ",", "\<\"Z\"\>", ",", "\<\"Z\"\>", ",", "\<\"Z\"\>", ",", "\<\"Z\"\>", ",", "\<\"Z\"\>", ",", "\<\"Z\"\>", ",", "\<\"O\"\>", ",", "\<\"Z\"\>", ",", "\<\"Z\"\>"}], "}"}]], "Output", CellChangeTimes->{3.5761694396342525`*^9}] }, Open ]], Cell[BoxData[ RowBox[{ RowBox[{"num1", "=", RowBox[{"Table", "[", RowBox[{"i", ",", RowBox[{"{", RowBox[{"i", ",", "1", ",", "n"}], "}"}]}], "]"}]}], ";"}]], "Input", CellChangeTimes->{{3.568807971988578*^9, 3.5688080897687845`*^9}, { 3.5688081769573374`*^9, 3.5688081865669546`*^9}, {3.568808274317109*^9, 3.5688082853151283`*^9}, {3.5688085365847692`*^9, 3.568808578330443*^9}, { 3.568808822704872*^9, 3.5688088761037655`*^9}, {3.56880890727262*^9, 3.568808937365073*^9}, {3.568809097608555*^9, 3.5688091594002633`*^9}, 3.5688092418308077`*^9, {3.5688092753552666`*^9, 3.568809302577315*^9}, { 3.5688096257786827`*^9, 3.568809703201618*^9}, {3.5688097456336927`*^9, 3.568809788268568*^9}, 3.568809850575077*^9, {3.568809946562046*^9, 3.5688099535664577`*^9}, {3.5688100003197403`*^9, 3.568810008556555*^9}, { 3.568810075371472*^9, 3.56881007981748*^9}, {3.568813431920168*^9, 3.568813533086345*^9}, {3.5688135960324554`*^9, 3.5688136045344706`*^9}, { 3.5688136407889347`*^9, 3.568813707494652*^9}, {3.568813812529636*^9, 3.5688138275524626`*^9}, {3.5688140611940727`*^9, 3.568814062738476*^9}, { 3.568814121113778*^9, 3.5688141965555105`*^9}, {3.568814326675339*^9, 3.568814331074547*^9}, 3.568814589473401*^9, {3.5688146762563534`*^9, 3.5688146829331646`*^9}, 3.5688147231032352`*^9, 3.5688216336189733`*^9, 3.5711137970191836`*^9}], Cell[BoxData[ RowBox[{ RowBox[{"um", "=", RowBox[{"Table", "[", RowBox[{ RowBox[{"{", RowBox[{ RowBox[{"un", "[", RowBox[{"[", "i", "]"}], "]"}], ",", RowBox[{"num1", "[", RowBox[{"[", "i", "]"}], "]"}]}], "}"}], ",", RowBox[{"{", RowBox[{"i", ",", "1", ",", "n"}], "}"}]}], "]"}]}], ";"}]], "Input", CellChangeTimes->{{3.568807971988578*^9, 3.5688080897687845`*^9}, { 3.5688081769573374`*^9, 3.5688081865669546`*^9}, {3.568808274317109*^9, 3.5688082853151283`*^9}, {3.5688085365847692`*^9, 3.568808578330443*^9}, { 3.568808822704872*^9, 3.5688088761037655`*^9}, {3.56880890727262*^9, 3.568808937365073*^9}, {3.568809097608555*^9, 3.5688091594002633`*^9}, 3.5688092418308077`*^9, {3.5688092753552666`*^9, 3.568809302577315*^9}, { 3.5688096257786827`*^9, 3.568809703201618*^9}, {3.5688097456336927`*^9, 3.568809788268568*^9}, 3.568809850575077*^9, {3.568809946562046*^9, 3.5688099535664577`*^9}, {3.5688100003197403`*^9, 3.568810008556555*^9}, { 3.568810075371472*^9, 3.56881007981748*^9}, {3.568813431920168*^9, 3.568813533086345*^9}, {3.5688135960324554`*^9, 3.5688136045344706`*^9}, { 3.5688136407889347`*^9, 3.568813707494652*^9}, {3.568813812529636*^9, 3.5688138275524626`*^9}, {3.5688140611940727`*^9, 3.568814062738476*^9}, { 3.568814121113778*^9, 3.5688141965555105`*^9}, {3.568814326675339*^9, 3.568814331074547*^9}, 3.568814589473401*^9, {3.5688146762563534`*^9, 3.5688146885023746`*^9}, 3.5688147203576307`*^9, 3.56882164316619*^9, 3.57111380070079*^9}], Cell[CellGroupData[{ Cell[BoxData[ RowBox[{"us", "=", RowBox[{"Sort", "[", "um", "]"}]}]], "Input", CellChangeTimes->{{3.568807971988578*^9, 3.5688080897687845`*^9}, { 3.5688081769573374`*^9, 3.5688081865669546`*^9}, {3.568808274317109*^9, 3.5688082853151283`*^9}, {3.5688085365847692`*^9, 3.568808578330443*^9}, { 3.568808822704872*^9, 3.5688088761037655`*^9}, {3.56880890727262*^9, 3.568808937365073*^9}, {3.568809097608555*^9, 3.5688091594002633`*^9}, 3.5688092418308077`*^9, {3.5688092753552666`*^9, 3.568809302577315*^9}, { 3.5688096257786827`*^9, 3.568809703201618*^9}, {3.5688097456336927`*^9, 3.568809788268568*^9}, 3.568809850575077*^9, {3.568809946562046*^9, 3.5688099535664577`*^9}, {3.5688100003197403`*^9, 3.568810008556555*^9}, { 3.568810075371472*^9, 3.56881007981748*^9}, {3.568813431920168*^9, 3.568813533086345*^9}, {3.5688135960324554`*^9, 3.5688136045344706`*^9}, { 3.5688136407889347`*^9, 3.568813707494652*^9}, {3.568813812529636*^9, 3.5688138275524626`*^9}, {3.5688140611940727`*^9, 3.568814062738476*^9}, { 3.568814121113778*^9, 3.5688141965555105`*^9}, {3.568814326675339*^9, 3.568814331074547*^9}, 3.568814589473401*^9, {3.5688146762563534`*^9, 3.5688146945707855`*^9}}], Cell[BoxData[ RowBox[{"{", RowBox[{ RowBox[{"{", RowBox[{"\<\"C\"\>", ",", "1"}], "}"}], ",", RowBox[{"{", RowBox[{"\<\"C\"\>", ",", "2"}], "}"}], ",", RowBox[{"{", RowBox[{"\<\"C\"\>", ",", "3"}], "}"}], ",", RowBox[{"{", RowBox[{"\<\"C\"\>", ",", "5"}], "}"}], ",", RowBox[{"{", RowBox[{"\<\"C\"\>", ",", "6"}], "}"}], ",", RowBox[{"{", RowBox[{"\<\"C\"\>", ",", "11"}], "}"}], ",", RowBox[{"{", RowBox[{"\<\"O\"\>", ",", "4"}], "}"}], ",", RowBox[{"{", RowBox[{"\<\"O\"\>", ",", "8"}], "}"}], ",", RowBox[{"{", RowBox[{"\<\"O\"\>", ",", "10"}], "}"}], ",", RowBox[{"{", RowBox[{"\<\"O\"\>", ",", "14"}], "}"}], ",", RowBox[{"{", RowBox[{"\<\"O\"\>", ",", "15"}], "}"}], ",", RowBox[{"{", RowBox[{"\<\"O\"\>", ",", "22"}], "}"}], ",", RowBox[{"{", RowBox[{"\<\"Z\"\>", ",", "7"}], "}"}], ",", RowBox[{"{", RowBox[{"\<\"Z\"\>", ",", "9"}], "}"}], ",", RowBox[{"{", RowBox[{"\<\"Z\"\>", ",", "12"}], "}"}], ",", RowBox[{"{", RowBox[{"\<\"Z\"\>", ",", "13"}], "}"}], ",", RowBox[{"{", RowBox[{"\<\"Z\"\>", ",", "16"}], "}"}], ",", RowBox[{"{", RowBox[{"\<\"Z\"\>", ",", "17"}], "}"}], ",", RowBox[{"{", RowBox[{"\<\"Z\"\>", ",", "18"}], "}"}], ",", RowBox[{"{", RowBox[{"\<\"Z\"\>", ",", "19"}], "}"}], ",", RowBox[{"{", RowBox[{"\<\"Z\"\>", ",", "20"}], "}"}], ",", RowBox[{"{", RowBox[{"\<\"Z\"\>", ",", "21"}], "}"}], ",", RowBox[{"{", RowBox[{"\<\"Z\"\>", ",", "23"}], "}"}], ",", RowBox[{"{", RowBox[{"\<\"Z\"\>", ",", "24"}], "}"}]}], "}"}]], "Output", CellChangeTimes->{3.5761694396498528`*^9}] }, Open ]], Cell[CellGroupData[{ Cell[BoxData[ RowBox[{"num", "=", RowBox[{"Table", "[", RowBox[{ RowBox[{"us", "[", RowBox[{"[", RowBox[{"i", ",", "2"}], "]"}], "]"}], ",", RowBox[{"{", RowBox[{"i", ",", "1", ",", "n"}], "}"}]}], "]"}]}]], "Input", CellChangeTimes->{{3.56881016518083*^9, 3.5688102745058217`*^9}, { 3.5688103430679426`*^9, 3.5688103543155622`*^9}, {3.5688124958093233`*^9, 3.568812496386524*^9}, {3.5688126345871673`*^9, 3.568812635491969*^9}, { 3.568812673025635*^9, 3.5688126732128353`*^9}, {3.5688127492161684`*^9, 3.568812848541543*^9}, 3.5688129280080824`*^9, {3.568813062152718*^9, 3.5688131360032477`*^9}, 3.568813172678912*^9, 3.568821701869093*^9}], Cell[BoxData[ RowBox[{"{", RowBox[{ "1", ",", "2", ",", "3", ",", "5", ",", "6", ",", "11", ",", "4", ",", "8", ",", "10", ",", "14", ",", "15", ",", "22", ",", "7", ",", "9", ",", "12", ",", "13", ",", "16", ",", "17", ",", "18", ",", "19", ",", "20", ",", "21", ",", "23", ",", "24"}], "}"}]], "Output", CellChangeTimes->{3.576169439681052*^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.25", ",", RowBox[{"If", "[", RowBox[{ RowBox[{ RowBox[{"us", "[", RowBox[{"[", RowBox[{"i", ",", "1"}], "]"}], "]"}], "\[Equal]", "\"\\""}], ",", "0.5"}], "]"}]}], "]"}]}], "]"}]}], "]"}]}], "]"}], ",", RowBox[{"{", RowBox[{"i", ",", "1", ",", "n"}], "}"}]}], "]"}]}], "\[IndentingNewLine]", RowBox[{"u2", "=", RowBox[{"Table", "[", RowBox[{ RowBox[{"If", "[", RowBox[{ RowBox[{ RowBox[{"us", "[", RowBox[{"[", RowBox[{"i", ",", "1"}], "]"}], "]"}], "\[Equal]", "\"\\""}], ",", "0.258", ",", 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.1795", RowBox[{"(*", "0.18048", "*)"}], ",", 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.574872830481593*^9, 3.5748728311055937`*^9}, { 3.575821657075845*^9, 3.575821657746646*^9}, {3.5758218405945673`*^9, 3.575821850484985*^9}, {3.57605354994071*^9, 3.5760535597999277`*^9}, { 3.576053647830882*^9, 3.576053653743293*^9}, {3.576053695067765*^9, 3.5760537014013767`*^9}, {3.5760537577642756`*^9, 3.576053758809477*^9}, { 3.5760538069511614`*^9, 3.576053807855963*^9}}], Cell[BoxData[ RowBox[{"{", RowBox[{ "0.255`", ",", "0.255`", ",", "0.255`", ",", "0.255`", ",", "0.255`", ",", "0.255`", ",", "0.25`", ",", "0.25`", ",", "0.25`", ",", "0.25`", ",", "0.25`", ",", "0.25`", ",", "0.12`", ",", "0.12`", ",", "0.12`", ",", "0.12`", ",", "0.12`", ",", "0.12`", ",", "0.12`", ",", "0.12`", ",", "0.12`", ",", "0.12`", ",", "0.12`", ",", "0.12`"}], "}"}]], "Output", CellChangeTimes->{3.576169439681052*^9}], Cell[BoxData[ RowBox[{"{", RowBox[{ "0.258`", ",", "0.258`", ",", "0.258`", ",", "0.258`", ",", "0.258`", ",", "0.258`", ",", "0.1795`", ",", "0.1795`", ",", "0.1795`", ",", "0.1795`", ",", "0.1795`", ",", "0.1795`", ",", "0.6`", ",", "0.6`", ",", "0.6`", ",", "0.6`", ",", "0.6`", ",", "0.6`", ",", "0.6`", ",", "0.6`", ",", "0.6`", ",", "0.6`", ",", "0.6`", ",", "0.6`"}], "}"}]], "Output", CellChangeTimes->{3.5761694396966524`*^9}] }, Open ]], Cell[CellGroupData[{ Cell[BoxData[ RowBox[{"u", "=", RowBox[{"Table", "[", RowBox[{ RowBox[{"us", "[", RowBox[{"[", RowBox[{"i", ",", "1"}], "]"}], "]"}], ",", RowBox[{"{", RowBox[{"i", ",", "1", ",", "n"}], "}"}]}], "]"}]}]], "Input", CellChangeTimes->{{3.5679472243083935`*^9, 3.567947394894693*^9}, { 3.567947453425996*^9, 3.567947471241227*^9}, {3.5679475415037503`*^9, 3.5679475448733563`*^9}, {3.5679488138107853`*^9, 3.567948820877598*^9}, { 3.568820296244224*^9, 3.5688203477867146`*^9}}], Cell[BoxData[ RowBox[{"{", RowBox[{"\<\"C\"\>", ",", "\<\"C\"\>", ",", "\<\"C\"\>", ",", "\<\"C\"\>", ",", "\<\"C\"\>", ",", "\<\"C\"\>", ",", "\<\"O\"\>", ",", "\<\"O\"\>", ",", "\<\"O\"\>", ",", "\<\"O\"\>", ",", "\<\"O\"\>", ",", "\<\"O\"\>", ",", "\<\"H\"\>", ",", "\<\"H\"\>", ",", "\<\"H\"\>", ",", "\<\"H\"\>", ",", "\<\"H\"\>", ",", "\<\"H\"\>", ",", "\<\"H\"\>", ",", "\<\"H\"\>", ",", "\<\"H\"\>", ",", "\<\"H\"\>", ",", "\<\"H\"\>", ",", "\<\"H\"\>"}], "}"}]], "Output", CellChangeTimes->{3.5761694397122526`*^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.`", ",", "6.`", ",", "6.`", ",", "8.`", ",", "8.`", ",", "8.`", ",", "8.`", ",", "8.`", ",", "8.`", ",", "1.`", ",", "1.`", ",", "1.`", ",", "1.`", ",", "1.`", ",", "1.`", ",", "1.`", ",", "1.`", ",", "1.`", ",", "1.`", ",", "1.`", ",", "1.`"}], "}"}]], "Output", CellChangeTimes->{3.5761694397122526`*^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["12"], "Output", CellChangeTimes->{3.576169439727853*^9}], Cell[BoxData["12"], "Output", CellChangeTimes->{3.5761694397434525`*^9}] }, Open ]], Cell[BoxData[{ RowBox[{ RowBox[{"DeleteFile", "[", " ", "\"\\"", "]"}], ";"}], "\[IndentingNewLine]", RowBox[{"For", "[", RowBox[{ RowBox[{"i", "=", "1"}], ",", RowBox[{"i", "<", RowBox[{"n", "+", "1"}]}], ",", RowBox[{"i", "++"}], ",", "\[IndentingNewLine]", RowBox[{ RowBox[{"{", RowBox[{ RowBox[{"u", "[", RowBox[{"[", "i", "]"}], "]"}], ",", RowBox[{"Extract", "[", RowBox[{"t1", ",", RowBox[{"{", "i", "}"}]}], "]"}]}], "}"}], ">>>", " ", "\"\\""}]}], "]"}]}], "Input", CellChangeTimes->{{3.567869377256353*^9, 3.5678694101568108`*^9}, { 3.5678695244894114`*^9, 3.56786953511303*^9}, 3.56786988243204*^9, 3.5678699252853155`*^9, {3.567870069179968*^9, 3.5678700766835814`*^9}, { 3.5678703216664114`*^9, 3.567870325738019*^9}, 3.5679271251072817`*^9, { 3.567942840466694*^9, 3.567942854381918*^9}, {3.567942932272855*^9, 3.567942950509287*^9}, 3.5679430681802936`*^9, {3.568278272060727*^9, 3.56827827391713*^9}, 3.5688732159559383`*^9, 3.568910867631465*^9, 3.5689997098549547`*^9, 3.5689998170427427`*^9, 3.5689998869620657`*^9, { 3.569059200815255*^9, 3.5690592031552596`*^9}, 3.5691460426137285`*^9, 3.569237204520723*^9, 3.569237465836782*^9, 3.56923802264856*^9, 3.5693403424181123`*^9, 3.569340450198702*^9, 3.569340738019207*^9, 3.569340852851009*^9, {3.5693411655067577`*^9, 3.5693411655067577`*^9}, 3.5693414976001415`*^9, {3.5693416978420925`*^9, 3.569341705314506*^9}, 3.569342614421703*^9, 3.5693435671777763`*^9, 3.569343662727944*^9, 3.5693437636289215`*^9, 3.5693440709750605`*^9, 3.5693442662562037`*^9, { 3.5702975520309644`*^9, 3.570297552764166*^9}, {3.5705591717487917`*^9, 3.5705591791432047`*^9}}], Cell[BoxData[{ RowBox[{ RowBox[{"t", "=", RowBox[{"Table", "[", RowBox[{ RowBox[{"t1", "[", RowBox[{"[", RowBox[{"num", "[", RowBox[{"[", "i", "]"}], "]"}], "]"}], "]"}], ",", RowBox[{"{", RowBox[{"i", ",", "1", ",", "n"}], "}"}]}], "]"}]}], ";"}], "\[IndentingNewLine]", 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"}], "}"}]}], "]"}]}], ";"}], "\[IndentingNewLine]", RowBox[{ RowBox[{"(*", RowBox[{"Show", "[", RowBox[{"Plot1o", ",", "Plot2", ",", RowBox[{"{", RowBox[{ RowBox[{"AspectRatio", "\[Rule]", "Automatic"}], ",", RowBox[{"Boxed", "\[Rule]", "True"}], ",", " ", RowBox[{"Axes", "\[Rule]", "Automatic"}], ",", RowBox[{"AxesLabel", "\[Rule]", RowBox[{"{", RowBox[{"xl", ",", "yl", ",", "zl"}], "}"}]}], ",", RowBox[{"SphericalRegion", "\[Rule]", "True"}]}], "}"}]}], "]"}], "*)"}]}]}], "Input", CellChangeTimes->{{3.567869377256353*^9, 3.567869394073182*^9}, { 3.5678694248832364`*^9, 3.5678694526200852`*^9}, {3.5678694891241493`*^9, 3.5678694955045605`*^9}, {3.567869596046737*^9, 3.567869602645549*^9}, 3.56786971175214*^9, {3.5678697908910794`*^9, 3.567869798800293*^9}, { 3.5679434548425727`*^9, 3.5679434621121855`*^9}, 3.568011875875622*^9, 3.56811435956207*^9, {3.5682782821071444`*^9, 3.5682782839479475`*^9}, { 3.5688205455482616`*^9, 3.5688206262784038`*^9}, 3.5688208026055136`*^9, 3.5688732159559383`*^9, 3.568910867631465*^9, {3.5689830694736805`*^9, 3.568983072687286*^9}, {3.5725833074418383`*^9, 3.5725833223398647`*^9}, { 3.572583642982828*^9, 3.572583671421678*^9}, {3.572584036290719*^9, 3.5725840766323895`*^9}, {3.572584986320788*^9, 3.572585000719613*^9}, { 3.572585104865396*^9, 3.5725851158790154`*^9}, 3.5726667135591345`*^9, { 3.5727958552609696`*^9, 3.5727958810478153`*^9}, {3.5727959717619743`*^9, 3.5727959736963778`*^9}, {3.572796004615632*^9, 3.572796064270137*^9}, 3.5733691180073442`*^9, {3.5747381333641615`*^9, 3.5747381348149643`*^9}, { 3.5748523465408697`*^9, 3.574852347788872*^9}}], Cell["(* Distance Matrix Bohr *)", "Text", CellChangeTimes->{{3.5678630319943895`*^9, 3.5678630956269007`*^9}, { 3.5678632280087337`*^9, 3.567863228336334*^9}, {3.5678632621727934`*^9, 3.5678633509213495`*^9}, {3.5678644293824434`*^9, 3.567864451908883*^9}, { 3.567864923404111*^9, 3.56786494544695*^9}, {3.5678650143210707`*^9, 3.5678650845367947`*^9}, {3.567869231084096*^9, 3.5678692412397137`*^9}, 3.5678693168686466`*^9, {3.5678704450470285`*^9, 3.5678704621290584`*^9}, 3.5682783281584253`*^9, 3.5688732159715385`*^9, 3.568910867647065*^9, 3.5689997098549547`*^9, 3.5689998170427427`*^9, 3.5689998869620657`*^9, 3.5691460426137285`*^9, 3.569237204536323*^9, 3.5692374658523817`*^9, 3.56923802264856*^9, 3.5693403424181123`*^9, 3.5693404502143016`*^9, 3.569340738019207*^9, 3.569340852851009*^9, 3.5693411655067577`*^9, 3.5693414978029413`*^9, 3.5693426144373026`*^9, 3.5693435671777763`*^9, 3.569343662743544*^9, 3.569343763644521*^9, 3.569344071177861*^9, 3.569344266271804*^9, 3.570297558707776*^9, {3.5703416079688015`*^9, 3.570341617375618*^9}, {3.5705956885798426`*^9, 3.5705957106070814`*^9}, { 3.5705965150536942`*^9, 3.5705965239457097`*^9}, {3.5720162655168724`*^9, 3.5720163727202606`*^9}, {3.5720166425383344`*^9, 3.572016643427536*^9}, { 3.5723503054303513`*^9, 3.572350361964851*^9}, 3.573368567997178*^9, { 3.5746565325286493`*^9, 3.574656552839885*^9}}], Cell[BoxData[{ RowBox[{ RowBox[{"dc", "=", RowBox[{"Table", "[", RowBox[{ RowBox[{"Norm", "[", RowBox[{ RowBox[{"t", "[", RowBox[{"[", "i", "]"}], "]"}], "-", RowBox[{"t", "[", RowBox[{"[", "j", "]"}], "]"}]}], "]"}], ",", RowBox[{"{", RowBox[{"i", ",", "1", ",", "n"}], "}"}], ",", RowBox[{"{", RowBox[{"j", ",", "1", ",", "n"}], "}"}]}], "]"}]}], ";"}], "\[IndentingNewLine]", RowBox[{ RowBox[{"(*", RowBox[{"MatrixForm", "[", RowBox[{"Prepend", "[", RowBox[{"dc", ",", "num1"}], "]"}], "]"}], "*)"}]}]}], "Input", CellChangeTimes->{{3.5678630319943895`*^9, 3.5678630956269007`*^9}, { 3.5678632280087337`*^9, 3.567863228336334*^9}, {3.5678632621727934`*^9, 3.5678633509213495`*^9}, {3.5678644293824434`*^9, 3.567864451908883*^9}, { 3.567864923404111*^9, 3.56786494544695*^9}, {3.5678650143210707`*^9, 3.5678650845367947`*^9}, {3.567869231084096*^9, 3.5678692412397137`*^9}, 3.5678693168686466`*^9, {3.5678704450470285`*^9, 3.5678704621290584`*^9}, 3.5682783281584253`*^9, 3.5688732159715385`*^9, 3.568910867647065*^9, 3.5689997098549547`*^9, 3.5689998170427427`*^9, 3.5689998869620657`*^9, 3.5691460426137285`*^9, 3.569237204536323*^9, 3.5692374658523817`*^9, 3.56923802264856*^9, 3.5693403424181123`*^9, 3.5693404502143016`*^9, 3.569340738019207*^9, 3.569340852851009*^9, 3.5693411655067577`*^9, 3.5693414978029413`*^9, 3.5693426144373026`*^9, 3.5693435671777763`*^9, 3.569343662743544*^9, 3.569343763644521*^9, 3.569344071177861*^9, 3.569344266271804*^9, 3.570297558707776*^9, {3.5703416079688015`*^9, 3.570341617375618*^9}, {3.5705956885798426`*^9, 3.5705957106070814`*^9}, { 3.5705965150536942`*^9, 3.5705965239457097`*^9}, {3.5720162655168724`*^9, 3.5720163727202606`*^9}, {3.5720166425383344`*^9, 3.572016643427536*^9}, { 3.5723503054303513`*^9, 3.572350361964851*^9}, 3.573368567997178*^9, 3.5746565325286493`*^9}], Cell[BoxData[{ RowBox[{ RowBox[{"x", "=", RowBox[{"Table", "[", RowBox[{ RowBox[{"t", "[", RowBox[{"[", RowBox[{"i", ",", "1"}], "]"}], "]"}], ",", RowBox[{"{", RowBox[{"i", ",", "1", ",", "n"}], "}"}]}], "]"}]}], ";"}], "\[IndentingNewLine]", RowBox[{ RowBox[{"y", "=", RowBox[{"Table", "[", RowBox[{ RowBox[{"t", "[", RowBox[{"[", RowBox[{"i", ",", "2"}], "]"}], "]"}], ",", RowBox[{"{", RowBox[{"i", ",", "1", ",", "n"}], "}"}]}], "]"}]}], ";"}], "\[IndentingNewLine]", RowBox[{ RowBox[{"z", "=", RowBox[{"Table", "[", RowBox[{ RowBox[{"t", "[", RowBox[{"[", RowBox[{"i", ",", "3"}], "]"}], "]"}], ",", RowBox[{"{", RowBox[{"i", ",", "1", ",", "n"}], "}"}]}], "]"}]}], ";"}]}], "Input", CellChangeTimes->{{3.5678630319943895`*^9, 3.5678630956269007`*^9}, { 3.5678632280087337`*^9, 3.567863228336334*^9}, {3.5678632621727934`*^9, 3.5678633509213495`*^9}, {3.5678644293824434`*^9, 3.567864451908883*^9}, { 3.567864923404111*^9, 3.56786494544695*^9}, {3.5678650143210707`*^9, 3.5678650845367947`*^9}, {3.567869231084096*^9, 3.567869278118179*^9}, { 3.5682778102931156`*^9, 3.5682778156907253`*^9}, 3.571808490989086*^9, { 3.572601938592864*^9, 3.572601945722077*^9}}], Cell[CellGroupData[{ Cell[BoxData[ RowBox[{ RowBox[{"(*", " ", RowBox[{"connected", " ", RowBox[{"pairs", ":", " ", RowBox[{ RowBox[{"distance", " ", "criteria"}], " ", "<", " ", RowBox[{"3.0", " ", "bohr"}]}]}]}], " ", "*)"}], "\[IndentingNewLine]", RowBox[{ RowBox[{ RowBox[{"Dij", "=", RowBox[{"Table", "[", RowBox[{ RowBox[{"If", "[", RowBox[{ RowBox[{"(", RowBox[{ RowBox[{ RowBox[{"dc", "[", RowBox[{"[", RowBox[{"i", ",", "j"}], "]"}], "]"}], "<", "3.0"}], "||", RowBox[{"(", RowBox[{ RowBox[{ RowBox[{"u", "[", RowBox[{"[", "i", "]"}], "]"}], "\[Equal]", "\"\\""}], " ", "&&", " ", RowBox[{ RowBox[{"dc", "[", RowBox[{"[", RowBox[{"i", ",", "j"}], "]"}], "]"}], "<", "3.24"}]}], ")"}]}], ")"}], ",", RowBox[{"dc", "[", RowBox[{"[", RowBox[{"i", ",", "j"}], "]"}], "]"}], ",", "0"}], "]"}], ",", RowBox[{"{", RowBox[{"i", ",", "1", ",", "n"}], "}"}], ",", RowBox[{"{", RowBox[{"j", ",", "1", ",", "n"}], "}"}]}], "]"}]}], ";"}], "\[IndentingNewLine]", RowBox[{"MatrixForm", "[", RowBox[{"Prepend", "[", RowBox[{"Dij", ",", "num1"}], "]"}], "]"}]}]}]], "Input", CellChangeTimes->{{3.567863535157673*^9, 3.5678635412104836`*^9}, { 3.5678638182825704`*^9, 3.567863827283786*^9}, {3.5679503910983553`*^9, 3.5679504266352177`*^9}, {3.5679504653700857`*^9, 3.5679505048069553`*^9}, 3.567950534915008*^9, {3.567951107623214*^9, 3.567951136046464*^9}, 3.567951302545556*^9, {3.5679562986474605`*^9, 3.567956305355472*^9}, { 3.5679563590975666`*^9, 3.567956370688387*^9}, {3.567956414930065*^9, 3.567956430467692*^9}, {3.567956484740187*^9, 3.567956500667815*^9}, { 3.5679565456270943`*^9, 3.5679565868267665`*^9}, {3.5679569267045636`*^9, 3.5679569448941956`*^9}, {3.567956976562251*^9, 3.567957000711094*^9}, { 3.5679570348595533`*^9, 3.5679570632672033`*^9}, {3.5679573263928657`*^9, 3.5679573286548696`*^9}, {3.5679573611029263`*^9, 3.5679573637393312`*^9}, {3.5679592820903006`*^9, 3.567959317127962*^9}, { 3.567959397655304*^9, 3.5679594004945087`*^9}, {3.5679594704762316`*^9, 3.5679594724574347`*^9}, {3.567959655898157*^9, 3.567959673073787*^9}, 3.5681143121223865`*^9, 3.568121866388855*^9, 3.568220668221574*^9, { 3.568220718968463*^9, 3.568220723742071*^9}, {3.568220862051914*^9, 3.5682208641111183`*^9}, {3.568220906761593*^9, 3.5682209083527956`*^9}, { 3.5682209451844606`*^9, 3.5682209651680956`*^9}, {3.568221147782016*^9, 3.5682211695908546`*^9}, {3.568221237279373*^9, 3.568221253612602*^9}, { 3.568221305420293*^9, 3.568221306247094*^9}, {3.5682215161142635`*^9, 3.568221546206716*^9}, 3.56822158247678*^9, {3.568277819185131*^9, 3.5682778284359474`*^9}, 3.56882183684053*^9, {3.5688219650415554`*^9, 3.568821965915157*^9}, {3.5688769979329815`*^9, 3.5688771619984694`*^9}, { 3.568877204212144*^9, 3.5688772091729527`*^9}, {3.568877282493081*^9, 3.5688772843338842`*^9}, {3.568877374112042*^9, 3.568877378074449*^9}, { 3.56887744125456*^9, 3.5688774664954042`*^9}, {3.56887758366721*^9, 3.568877604867647*^9}, {3.568877667220957*^9, 3.5688776710429635`*^9}, { 3.5688778111156096`*^9, 3.56887782262843*^9}, {3.569341165522358*^9, 3.569341165522358*^9}, 3.5693418217375107`*^9, {3.5693429625675144`*^9, 3.5693429673099227`*^9}, {3.569390288837522*^9, 3.5693903143123665`*^9}, { 3.569390381798085*^9, 3.5693904158685455`*^9}, {3.5693905284539433`*^9, 3.569390564349606*^9}, {3.569390610868888*^9, 3.569390611056088*^9}, { 3.569390743671921*^9, 3.569390761487152*^9}, {3.569390843761697*^9, 3.569390861608128*^9}, {3.5693909829451413`*^9, 3.5693909887171516`*^9}, 3.5703416480920715`*^9, {3.5703416810237293`*^9, 3.5703416997437625`*^9}, 3.570341888192094*^9, {3.5705964879252462`*^9, 3.570596509843285*^9}, { 3.5705965495921545`*^9, 3.5705966388087115`*^9}, 3.570968886604662*^9, { 3.5709689930904493`*^9, 3.5709689944320517`*^9}, {3.5709690501397495`*^9, 3.570969050904151*^9}, {3.5709692134876366`*^9, 3.5709692140804377`*^9}, { 3.5709722325921392`*^9, 3.5709722334033403`*^9}, {3.5709723694355793`*^9, 3.570972545481889*^9}, {3.570972790558319*^9, 3.5709728063299465`*^9}, { 3.570972844066413*^9, 3.570972866764453*^9}, {3.5709729633598228`*^9, 3.57097298434186*^9}, {3.5709731454589424`*^9, 3.5709731466289444`*^9}, 3.570973453029083*^9, {3.5709736099653587`*^9, 3.570973638404208*^9}, { 3.571113899355363*^9, 3.571113958604267*^9}, 3.57111399989754*^9, { 3.5711140388820086`*^9, 3.571114044841219*^9}, {3.571115985874628*^9, 3.5711159997742524`*^9}, {3.57313788224113*^9, 3.5731379093851776`*^9}, 3.573137959679666*^9}], Cell[BoxData[ TagBox[ RowBox[{"(", "\[NoBreak]", GridBox[{ {"1", "2", "3", "4", "5", "6", "7", "8", "9", "10", "11", "12", "13", "14", "15", "16", "17", "18", "19", "20", "21", "22", "23", "24"}, {"0.`", "2.8696116633550557`", "0", "0", "2.8673287493172857`", "0", "0", "2.6521916963253767`", "0", "0", "0", "0", "2.050850842802333`", "0", "0", "0", "0", "0", "0", "0", "0", "0", "0", "0"}, {"2.8696116633550557`", "0.`", "2.882638185698448`", "0", "0", "0", "0", "0", "2.6466158707891596`", "0", "0", "0", "0", "2.0491469275406513`", "0", "0", "0", "0", "0", "0", "0", "0", "0", "0"}, {"0", "2.882638185698448`", "0.`", "0", "0", "2.862258696323723`", "2.674242077323637`", "0", "0", "0", "0", "0", "0", "0", "2.0512913779712614`", "0", "0", "0", "0", "0", "0", "0", "0", "0"}, {"0", "0", "0", "0.`", "2.8859966989648616`", "0", "2.624297386792481`", "0", "0", "2.6188419481093574`", "0", "0", "0", "0", "0", "2.0510813007221387`", "0", "0", "0", "0", "0", "0", "0", "0"}, {"2.8673287493172857`", "0", "0", "2.8859966989648616`", "0.`", "0", "0", "0", "0", "0", "2.646924834737463`", "0", "0", "0", "0", "0", "2.0544700001448026`", "0", "0", "0", "0", "0", "0", "0"}, {"0", "0", "2.862258696323723`", "0", "0", "0.`", "0", "0", "0", "0", "0", "2.6478485396880767`", "0", "0", "0", "0", "0", "0", "0", "0", "0", "2.054428209512261`", "2.050306695463844`", "0"}, {"0", "0", "2.674242077323637`", "2.624297386792481`", "0", "0", "0.`", "0", "0", "0", "0", "0", "0", "0", "0", "0", "0", "0", "0", "0", "0", "0", "0", "0"}, {"2.6521916963253767`", "0", "0", "0", "0", "0", "0", "0.`", "0", "0", "0", "0", "0", "0", "0", "0", "0", "0", "0", "1.7928779971159923`", "0", "0", "0", "0"}, {"0", "2.6466158707891596`", "0", "0", "0", "0", "0", "0", "0.`", "0", "0", "0", "0", "0", "0", "0", "0", "0", "0", "0", "1.793132704866463`", "0", "0", "0"}, {"0", "0", "0", "2.6188419481093574`", "0", "0", "0", "0", "0", "0.`", "0", "0", "0", "0", "0", "0", "0", "1.7926679736499278`", "0", "0", "0", "0", "0", "0"}, {"0", "0", "0", "0", "2.646924834737463`", "0", "0", "0", "0", "0", "0.`", "0", "0", "0", "0", "0", "0", "0", "1.7897180159319515`", "0", "0", "0", "0", "0"}, {"0", "0", "0", "0", "0", "2.6478485396880767`", "0", "0", "0", "0", "0", "0.`", "0", "0", "0", "0", "0", "0", "0", "0", "0", "0", "0", "1.788198167889362`"}, {"2.050850842802333`", "0", "0", "0", "0", "0", "0", "0", "0", "0", "0", "0", "0.`", "0", "0", "0", "0", "0", "0", "0", "0", "0", "0", "0"}, {"0", "2.0491469275406513`", "0", "0", "0", "0", "0", "0", "0", "0", "0", "0", "0", "0.`", "0", "0", "0", "0", "0", "0", "0", "0", "0", "0"}, {"0", "0", "2.0512913779712614`", "0", "0", "0", "0", "0", "0", "0", "0", "0", "0", "0", "0.`", "0", "0", "0", "0", "0", "0", "0", "0", "0"}, {"0", "0", "0", "2.0510813007221387`", "0", "0", "0", "0", "0", "0", "0", "0", "0", "0", "0", "0.`", "0", "0", "0", "0", "0", "0", "0", "0"}, {"0", "0", "0", "0", "2.0544700001448026`", "0", "0", "0", "0", "0", "0", "0", "0", "0", "0", "0", "0.`", "0", "0", "0", "0", "0", "0", "0"}, {"0", "0", "0", "0", "0", "0", "0", "0", "0", "1.7926679736499278`", "0", "0", "0", "0", "0", "0", "0", "0.`", "0", "0", "0", "0", "0", "0"}, {"0", "0", "0", "0", "0", "0", "0", "0", "0", "0", "1.7897180159319515`", "0", "0", "0", "0", "0", "0", "0", "0.`", "0", "0", "0", "0", "0"}, {"0", "0", "0", "0", "0", "0", "0", "1.7928779971159923`", "0", "0", "0", "0", "0", "0", "0", "0", "0", "0", "0", "0.`", "0", "0", "0", "0"}, {"0", "0", "0", "0", "0", "0", "0", "0", "1.793132704866463`", "0", "0", "0", "0", "0", "0", "0", "0", "0", "0", "0", "0.`", "0", "0", "0"}, {"0", "0", "0", "0", "0", "2.054428209512261`", "0", "0", "0", "0", "0", "0", "0", "0", "0", "0", "0", "0", "0", "0", "0", "0.`", "0", "0"}, {"0", "0", "0", "0", "0", "2.050306695463844`", "0", "0", "0", "0", "0", "0", "0", "0", "0", "0", "0", "0", "0", "0", "0", "0", "0.`", "0"}, {"0", "0", "0", "0", "0", "0", "0", "0", "0", "0", "0", "1.788198167889362`", "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.5761694397902527`*^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.258`", ",", "0.258`", ",", "0.258`", ",", "0.258`", ",", "0.258`", ",", "0.258`", ",", "0.1795`", ",", "0.1795`", ",", "0.1795`", ",", "0.1795`", ",", "0.1795`", ",", "0.1795`", ",", "0.59`", ",", "0.59`", ",", "0.59`", ",", "0.59`", ",", "0.59`", ",", "0.5241`", ",", "0.5241`", ",", "0.5241`", ",", "0.5241`", ",", "0.59`", ",", "0.59`", ",", "0.5241`"}], "}"}]], "Output", CellChangeTimes->{3.576169439821453*^9}] }, Open ]], Cell[BoxData[ RowBox[{ RowBox[{"(*", " ", RowBox[{ "subtract", " ", "core", " ", "radii", " ", "from", " ", "pair", " ", "distances"}], " ", "*)"}], "\[IndentingNewLine]", RowBox[{ RowBox[{ RowBox[{"Fij", "=", RowBox[{"Dij", "-", "u2"}]}], ";"}], "\[IndentingNewLine]", RowBox[{"(*", RowBox[{ RowBox[{"MatrixForm", "[", "Fij", "]"}], ";"}], "*)"}], "\[IndentingNewLine]", RowBox[{ RowBox[{"Gij", "=", RowBox[{"Table", "[", RowBox[{ RowBox[{"If", "[", RowBox[{ RowBox[{"i", "\[GreaterEqual]", "j"}], ",", RowBox[{"If", "[", RowBox[{ RowBox[{ RowBox[{"Fij", "[", RowBox[{"[", RowBox[{"i", ",", "j"}], "]"}], "]"}], ">", "0"}], ",", RowBox[{"Fij", "[", RowBox[{"[", RowBox[{"i", ",", "j"}], "]"}], "]"}], ",", "0"}], "]"}], ",", "\"\< \>\""}], "]"}], ",", RowBox[{"{", RowBox[{"i", ",", "1", ",", "n"}], "}"}], ",", RowBox[{"{", RowBox[{"j", ",", "1", ",", "n"}], "}"}]}], "]"}]}], ";"}], "\[IndentingNewLine]", RowBox[{"(*", RowBox[{ RowBox[{"MatrixForm", "[", "Gij", "]"}], ";"}], "*)"}]}]}]], "Input", CellChangeTimes->{{3.567958596890297*^9, 3.567958603270708*^9}, { 3.5679587604565845`*^9, 3.5679587707682023`*^9}, {3.5679588272871017`*^9, 3.567958828254304*^9}, {3.567959580066424*^9, 3.5679595814704266`*^9}, { 3.567959624994503*^9, 3.5679596300177116`*^9}, {3.5679597079086485`*^9, 3.567959902877791*^9}, {3.5679599961659546`*^9, 3.5679600446196404`*^9}, { 3.5679609611992497`*^9, 3.567960974006872*^9}, 3.567961975154231*^9, { 3.5679622637079377`*^9, 3.5679622945179915`*^9}, 3.5681142413606625`*^9, 3.568121878697276*^9, {3.5681219332193723`*^9, 3.56812197189184*^9}, { 3.5682778370003624`*^9, 3.5682778397927675`*^9}, {3.569341165522358*^9, 3.569341165537958*^9}, {3.5693418217531104`*^9, 3.5693418217531104`*^9}, { 3.57059671735485*^9, 3.570596744467697*^9}}], Cell[BoxData[{ RowBox[{ RowBox[{"Hij", "=", RowBox[{"Transpose", "[", "Gij", "]"}]}], ";"}], "\[IndentingNewLine]", RowBox[{ RowBox[{"(*", RowBox[{ RowBox[{"MatrixForm", "[", "Hij", "]"}], ";"}], "*)"}]}]}], "Input", CellChangeTimes->{{3.5679601758938704`*^9, 3.5679601965327067`*^9}, { 3.567960427147912*^9, 3.567960432217921*^9}, {3.5679605764089737`*^9, 3.5679605968294096`*^9}, {3.5679607389456596`*^9, 3.5679607643581038`*^9}, 3.5681142501278777`*^9, 3.5681218877140923`*^9, 3.569341165537958*^9, 3.5693418217531104`*^9}], Cell[BoxData[{ RowBox[{ RowBox[{ RowBox[{"Kij", "=", RowBox[{"Hij", "-", "u2"}]}], ";"}], "\[IndentingNewLine]", RowBox[{"(*", RowBox[{ RowBox[{"MatrixForm", "[", "Kij", "]"}], ";"}], "*)"}]}], "\[IndentingNewLine]", RowBox[{ RowBox[{"Lij", "=", RowBox[{"Table", "[", RowBox[{ RowBox[{"If", "[", RowBox[{ RowBox[{"i", "\[LessEqual]", "j"}], ",", RowBox[{"If", "[", RowBox[{ RowBox[{ RowBox[{"Kij", "[", RowBox[{"[", RowBox[{"i", ",", "j"}], "]"}], "]"}], ">", "0"}], ",", RowBox[{"Kij", "[", RowBox[{"[", RowBox[{"i", ",", "j"}], "]"}], "]"}], ",", "0"}], "]"}], ",", "\"\< \>\""}], "]"}], ",", RowBox[{"{", RowBox[{"i", ",", "1", ",", "n"}], "}"}], ",", RowBox[{"{", RowBox[{"j", ",", "1", ",", "n"}], "}"}]}], "]"}]}], ";"}], "\[IndentingNewLine]", RowBox[{ RowBox[{"(*", RowBox[{ RowBox[{"MatrixForm", "[", "Lij", "]"}], ";"}], "*)"}]}]}], "Input", CellChangeTimes->{{3.5679602339571724`*^9, 3.567960257419614*^9}, { 3.567960343406965*^9, 3.567960353500182*^9}, {3.5679604155258913`*^9, 3.567960421422702*^9}, {3.567960854323462*^9, 3.567960874197897*^9}, { 3.5679611596939983`*^9, 3.567961170270817*^9}, {3.5679614000124207`*^9, 3.567961407016833*^9}, {3.5679615066074076`*^9, 3.567961509649413*^9}, 3.5679616124379935`*^9, 3.5679616766477065`*^9, {3.5679617424486217`*^9, 3.5679617456310277`*^9}, 3.567961801276325*^9, {3.5679618582788253`*^9, 3.5679618970760937`*^9}, {3.5679620279135237`*^9, 3.567962030113127*^9}, 3.567962107894864*^9, {3.567962149468937*^9, 3.5679621572533503`*^9}, 3.5679623389156694`*^9, {3.567962645815009*^9, 3.567962648888214*^9}, { 3.567962691647889*^9, 3.567962693020692*^9}, {3.568048161486014*^9, 3.568048162827616*^9}, 3.5680482096900983`*^9, 3.5681142588638926`*^9, 3.568121899632513*^9, 3.5681219958534822`*^9, {3.568277844675576*^9, 3.5682778463603787`*^9}, {3.569341165537958*^9, 3.569341165537958*^9}, { 3.5693418217531104`*^9, 3.5693418217531104`*^9}}], Cell[BoxData[ RowBox[{ RowBox[{"(*", " ", RowBox[{"determine", " ", "bond", " ", "cloud", " ", "radii"}], " ", "*)"}], "\[IndentingNewLine]", RowBox[{ RowBox[{ RowBox[{"Lij", "=", RowBox[{"Table", "[", RowBox[{ RowBox[{"If", "[", RowBox[{ RowBox[{"i", "\[LessEqual]", "j"}], ",", RowBox[{"If", "[", RowBox[{ RowBox[{ RowBox[{"Lij", "[", RowBox[{"[", RowBox[{"i", ",", "j"}], "]"}], "]"}], ">", "0"}], ",", RowBox[{"If", "[", RowBox[{ RowBox[{ RowBox[{"u", "[", RowBox[{"[", "j", "]"}], "]"}], "\[NotEqual]", "\"\\""}], ",", RowBox[{"0.5", "*", RowBox[{"Lij", "[", RowBox[{"[", RowBox[{"i", ",", "j"}], "]"}], "]"}]}], ",", RowBox[{"Lij", "[", RowBox[{"[", RowBox[{"i", ",", "j"}], "]"}], "]"}]}], "]"}], ",", "0"}], "]"}], ",", "\"\< \>\""}], "]"}], ",", RowBox[{"{", RowBox[{"i", ",", "1", ",", "n"}], "}"}], ",", RowBox[{"{", RowBox[{"j", ",", "1", ",", "n"}], "}"}]}], "]"}]}], ";"}], " ", "\[IndentingNewLine]", RowBox[{ RowBox[{"Qij", "=", "Lij"}], ";"}], "\[IndentingNewLine]", RowBox[{"(*", RowBox[{ RowBox[{"MatrixForm", "[", "Lij", "]"}], ";"}], "*)"}]}]}]], "Input", CellChangeTimes->{{3.5679627617388124`*^9, 3.567962837461345*^9}, { 3.567963118121438*^9, 3.567963118698639*^9}, {3.5679631520670977`*^9, 3.5679631541731014`*^9}, {3.5679631898191643`*^9, 3.5679632154656096`*^9}, {3.5679635823158536`*^9, 3.56796361468591*^9}, { 3.567963691516045*^9, 3.567963693590849*^9}, {3.567963737957327*^9, 3.567963807299449*^9}, {3.568048114904332*^9, 3.5680481161835346`*^9}, 3.5680482221389203`*^9, {3.5680485003498087`*^9, 3.5680485123618298`*^9}, 3.5681142659931054`*^9, 3.5681219084621286`*^9, {3.568277848107582*^9, 3.5682778496519847`*^9}, {3.5683793122399254`*^9, 3.568379313019926*^9}, { 3.568379456758579*^9, 3.56837947986222*^9}, 3.5683796000760307`*^9, { 3.5683796473285136`*^9, 3.5683796831617765`*^9}, {3.568381744939398*^9, 3.5683817743298492`*^9}, {3.56846523720809*^9, 3.568465240218895*^9}, 3.569341165537958*^9, 3.5693418217531104`*^9, {3.5705967846533675`*^9, 3.5705968020785985`*^9}}], Cell[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"}], "}"}]}], "]"}]}], ";"}], "\n", RowBox[{"(*", RowBox[{"MatrixForm", "[", "Nij", "]"}], "*)"}], "\[IndentingNewLine]", 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["41.413960568059366`"], "Output", CellChangeTimes->{3.5761694398526525`*^9}], Cell[BoxData["621.803493379836`"], "Output", CellChangeTimes->{3.5761694398526525`*^9}], Cell[BoxData["663.2174539478954`"], "Output", CellChangeTimes->{3.5761694398526525`*^9}], Cell[BoxData["20.38003159179383`"], "Output", CellChangeTimes->{3.5761694398526525`*^9}], Cell[BoxData["21.033928976265535`"], "Output", CellChangeTimes->{3.5761694398526525`*^9}] }, Open ]], Cell[CellGroupData[{ Cell[BoxData[ RowBox[{"MatrixForm", "[", RowBox[{"Table", "[", RowBox[{ RowBox[{"Join", "[", RowBox[{ RowBox[{"{", "i", "}"}], ",", RowBox[{"{", RowBox[{"u", "[", RowBox[{"[", "i", "]"}], "]"}], "}"}], ",", RowBox[{"t", "[", RowBox[{"[", "i", "]"}], "]"}]}], "]"}], ",", RowBox[{"{", RowBox[{"i", ",", "1", ",", "n"}], "}"}]}], "]"}], "]"}]], "Input", CellChangeTimes->{{3.5750227820727663`*^9, 3.5750228076412115`*^9}, { 3.5758677700806036`*^9, 3.5758677723894076`*^9}}], Cell[BoxData[ TagBox[ RowBox[{"(", "\[NoBreak]", GridBox[{ {"1", "\<\"C\"\>", RowBox[{"-", "1.3980688900919522`"}], "0.805455850344071`", RowBox[{"-", "4.464090928590127`"}]}, {"2", "\<\"C\"\>", "1.3135572727561748`", "1.5287042196501237`", RowBox[{"-", "5.062978603965943`"}]}, {"3", "\<\"C\"\>", "3.113025333324872`", "0.21762508821692478`", RowBox[{"-", "3.2319709251834805`"}]}, {"4", "\<\"C\"\>", RowBox[{"-", "0.0505456892037636`"}], "0.0010442251710251998`", RowBox[{"-", "0.026719908711450198`"}]}, {"5", "\<\"C\"\>", RowBox[{"-", "1.96888265806177`"}], "1.3513421751846704`", RowBox[{"-", "1.7076885778239057`"}]}, {"6", "\<\"C\"\>", "5.831152917062304`", "1.0648908407733972`", RowBox[{"-", "3.5259913798314546`"}]}, {"7", "\<\"O\"\>", "2.3838921091337952`", "0.7073774527716972`", RowBox[{"-", "0.7060892868397566`"}]}, {"8", "\<\"O\"\>", RowBox[{"-", "2.9618460939779707`"}], "2.218585449986988`", RowBox[{"-", "6.073993529767215`"}]}, {"9", "\<\"O\"\>", "1.9704720457511926`", "0.7750416503237834`", RowBox[{"-", "7.513495137297311`"}]}, {"10", "\<\"O\"\>", RowBox[{"-", "0.4236191761426814`"}], RowBox[{"-", "2.583922957662857`"}], RowBox[{"-", "0.2193178998544372`"}]}, {"11", "\<\"O\"\>", RowBox[{"-", "4.471654655926771`"}], "0.6120848675366743`", RowBox[{"-", "1.2651481383815724`"}]}, {"12", "\<\"O\"\>", "5.983872154408863`", "3.6901376109650177`", RowBox[{"-", "3.216381755835314`"}]}, {"13", "\<\"H\"\>", RowBox[{"-", "1.6577592182196998`"}], RowBox[{"-", "1.1991716725055654`"}], RowBox[{"-", "4.810527946724262`"}]}, {"14", "\<\"H\"\>", "1.5125509466819167`", "3.5577053728898154`", RowBox[{"-", "4.85668035254624`"}]}, {"15", "\<\"H\"\>", "3.044833160312358`", RowBox[{"-", "1.8003720983061384`"}], RowBox[{"-", "3.593680062563323`"}]}, {"16", "\<\"H\"\>", RowBox[{"-", "0.251299028926528`"}], "0.6088384135108648`", "1.9219254729274184`"}, {"17", "\<\"H\"\>", RowBox[{"-", "1.7476765128076537`"}], "3.3680883768907335`", RowBox[{"-", "1.3841927035055952`"}]}, {"18", "\<\"H\"\>", "0.7577060500636082`", RowBox[{"-", "3.417574128607672`"}], "0.8404721259814049`"}, {"19", "\<\"H\"\>", RowBox[{"-", "5.006026807683891`"}], "1.1430654246735832`", "0.3583039329529784`"}, {"20", "\<\"H\"\>", RowBox[{"-", "4.668798576659672`"}], "1.8155120652332144`", RowBox[{"-", "5.702164831422715`"}]}, {"21", "\<\"H\"\>", "0.7691150835167616`", "1.4699337837579312`", RowBox[{"-", "8.648920726864464`"}]}, {"22", "\<\"H\"\>", "6.96602776148251`", "0.0963444670088822`", RowBox[{"-", "2.113669788475727`"}]}, {"23", "\<\"H\"\>", "6.477642646380998`", "0.4994845863025102`", RowBox[{"-", "5.387744409305157`"}]}, {"24", "\<\"H\"\>", "7.640921956826999`", "4.239757403213133`", RowBox[{"-", "3.6033658949392673`"}]} }, 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.5761694398682528`*^9}] }, Open ]], Cell[BoxData[{ RowBox[{ RowBox[{"Mij", "=", RowBox[{"Prepend", "[", RowBox[{"Qij", ",", "u"}], "]"}]}], ";"}], "\[IndentingNewLine]", RowBox[{ RowBox[{"Oij", "=", RowBox[{"Transpose", "[", "Mij", "]"}]}], ";"}], "\[IndentingNewLine]", RowBox[{ RowBox[{"Pij", "=", RowBox[{"Prepend", "[", RowBox[{"Oij", ",", RowBox[{"Prepend", "[", RowBox[{"u", ",", "\"\< \>\""}], "]"}]}], "]"}]}], ";"}]}], "Input", CellChangeTimes->{{3.568045828002715*^9, 3.56804588761042*^9}, 3.5680459828797874`*^9, {3.568046033938677*^9, 3.5680460518787084`*^9}, { 3.568046989190755*^9, 3.5680470284404235`*^9}, {3.568047061028881*^9, 3.568047085567724*^9}, {3.5680471562982483`*^9, 3.568047169199471*^9}, { 3.568047223393966*^9, 3.568047364059413*^9}, {3.568047417286707*^9, 3.5680474225127163`*^9}, {3.5680474583459787`*^9, 3.568047487861231*^9}, { 3.5680475345521126`*^9, 3.5680475468605347`*^9}, {3.5680479168775845`*^9, 3.5680479311516094`*^9}, {3.568048066918648*^9, 3.568048067667449*^9}, { 3.5680483816336*^9, 3.5680483930216208`*^9}, {3.568048424159275*^9, 3.568048450211321*^9}, {3.5680486326224413`*^9, 3.5680486370996494`*^9}, { 3.5680487358166227`*^9, 3.5680487967191296`*^9}, 3.568048834377596*^9, 3.568048984418659*^9, {3.5680490255559316`*^9, 3.5680490790796256`*^9}, { 3.5680491274553103`*^9, 3.5680491280949116`*^9}, {3.5680491782333994`*^9, 3.568049231944294*^9}, {3.568049361533722*^9, 3.5680493691933355`*^9}, { 3.568049422171028*^9, 3.568049427490638*^9}, {3.568049476427923*^9, 3.5680495489368505`*^9}, {3.568049620634577*^9, 3.5680496274361887`*^9}, { 3.5680496655314555`*^9, 3.568049693876705*^9}, 3.568049746573598*^9, { 3.568049846460573*^9, 3.568049932759925*^9}, {3.568050009059659*^9, 3.5680500167348723`*^9}, {3.5680501572755194`*^9, 3.568050179911159*^9}, 3.5681087021497335`*^9, {3.5726244549749556`*^9, 3.5726244687341795`*^9}, 3.572624583643982*^9, {3.574656664645282*^9, 3.5746566773749037`*^9}, { 3.574656980265036*^9, 3.5746569955686626`*^9}}], Cell[CellGroupData[{ Cell[BoxData[{ RowBox[{ RowBox[{"Eij", "=", RowBox[{"Table", "[", RowBox[{ RowBox[{"If", "[", RowBox[{ RowBox[{"i", "\[GreaterEqual]", "j"}], ",", RowBox[{"Dij", "[", RowBox[{"[", RowBox[{"i", ",", "j"}], "]"}], "]"}], ",", "0"}], "]"}], ",", RowBox[{"{", RowBox[{"i", ",", "1", ",", RowBox[{"bc", "-", "1"}]}], "}"}], ",", RowBox[{"{", RowBox[{"j", ",", "1", ",", RowBox[{"bc", "-", "1"}]}], "}"}]}], "]"}]}], ";"}], "\[IndentingNewLine]", RowBox[{"CD", "=", RowBox[{"Select", "[", RowBox[{ RowBox[{"Flatten", "[", "Eij", "]"}], ",", RowBox[{ RowBox[{"(", RowBox[{ RowBox[{"#", "\[GreaterEqual]", "2.4"}], " ", "&&", RowBox[{"#", "\[LessEqual]", "2.6"}]}], ")"}], " ", "&"}]}], "]"}]}], "\[IndentingNewLine]", RowBox[{ RowBox[{"Mean", "[", "CD", "]"}], " ", "\[PlusMinus]", " ", RowBox[{"StandardDeviation", "[", "CD", "]"}]}], "\n", RowBox[{"CC", "=", RowBox[{"Select", "[", RowBox[{ RowBox[{"Flatten", "[", "Eij", "]"}], ",", RowBox[{ RowBox[{"(", RowBox[{"#", "\[GreaterEqual]", "2.6"}], ")"}], " ", "&"}]}], "]"}]}], "\n", RowBox[{ RowBox[{ RowBox[{"Mean", "[", "CC", "]"}], " ", "\[PlusMinus]", " ", RowBox[{"StandardDeviation", "[", "CC", "]"}]}], " "}], "\n", RowBox[{ RowBox[{"Eij", "=", RowBox[{"Table", "[", RowBox[{ RowBox[{"If", "[", RowBox[{ RowBox[{"i", "\[GreaterEqual]", "j"}], ",", RowBox[{"Dij", "[", RowBox[{"[", RowBox[{"i", ",", "j"}], "]"}], "]"}], ",", "0"}], "]"}], ",", RowBox[{"{", RowBox[{"i", ",", RowBox[{"bc", "+", "1"}], ",", "n"}], "}"}], ",", RowBox[{"{", RowBox[{"j", ",", "1", ",", RowBox[{"bc", "-", "1"}]}], "}"}]}], "]"}]}], ";"}], "\[IndentingNewLine]", RowBox[{"CH", "=", RowBox[{"Select", "[", RowBox[{ RowBox[{"Flatten", "[", "Eij", "]"}], ",", RowBox[{ RowBox[{"(", RowBox[{ RowBox[{"#", ">", "0"}], " ", "&&", RowBox[{"#", "\[LessEqual]", "2.1"}]}], ")"}], " ", "&"}]}], "]"}]}], "\[IndentingNewLine]", RowBox[{ RowBox[{"Mean", "[", "CH", "]"}], " ", "\[PlusMinus]", " ", RowBox[{"StandardDeviation", "[", "CH", "]"}]}]}], "Input", CellChangeTimes->{{3.568045828002715*^9, 3.56804588761042*^9}, 3.5680459828797874`*^9, {3.568046033938677*^9, 3.5680460518787084`*^9}, { 3.568046989190755*^9, 3.5680470284404235`*^9}, {3.568047061028881*^9, 3.568047085567724*^9}, {3.5680471562982483`*^9, 3.568047169199471*^9}, { 3.568047223393966*^9, 3.568047364059413*^9}, {3.568047417286707*^9, 3.5680474225127163`*^9}, {3.5680474583459787`*^9, 3.568047487861231*^9}, { 3.5680475345521126`*^9, 3.5680475468605347`*^9}, {3.5680479168775845`*^9, 3.5680479311516094`*^9}, {3.568048066918648*^9, 3.568048067667449*^9}, { 3.5680483816336*^9, 3.5680483930216208`*^9}, {3.568048424159275*^9, 3.568048450211321*^9}, {3.5680486326224413`*^9, 3.5680486370996494`*^9}, { 3.5680487358166227`*^9, 3.5680487967191296`*^9}, 3.568048834377596*^9, 3.568048984418659*^9, {3.5680490255559316`*^9, 3.5680490790796256`*^9}, { 3.5680491274553103`*^9, 3.5680491280949116`*^9}, {3.5680491782333994`*^9, 3.568049231944294*^9}, {3.568049361533722*^9, 3.5680493691933355`*^9}, { 3.568049422171028*^9, 3.568049427490638*^9}, {3.568049476427923*^9, 3.5680495489368505`*^9}, {3.568049620634577*^9, 3.5680496274361887`*^9}, { 3.5680496655314555`*^9, 3.568049693876705*^9}, 3.568049746573598*^9, { 3.568049846460573*^9, 3.568049932759925*^9}, {3.568050009059659*^9, 3.5680500167348723`*^9}, {3.5680501572755194`*^9, 3.568050179911159*^9}, 3.5681087021497335`*^9, {3.5726244549749556`*^9, 3.5726244687341795`*^9}, 3.572624583643982*^9, {3.574656664645282*^9, 3.5746566773749037`*^9}, { 3.574656980265036*^9, 3.5746569955686626`*^9}}], Cell[BoxData[ RowBox[{"{", "}"}]], "Output", CellChangeTimes->{3.5761694398994527`*^9}], Cell[BoxData[ RowBox[{ StyleBox[ RowBox[{"StandardDeviation", "::", "shlen"}], "MessageName"], RowBox[{ ":", " "}], "\<\"The argument \[NoBreak]\\!\\({}\\)\[NoBreak] should have \ at least two elements. \\!\\(\\*ButtonBox[\\\"\[RightSkeleton]\\\", \ ButtonStyle->\\\"Link\\\", ButtonFrame->None, \ ButtonData:>\\\"paclet:ref/StandardDeviation\\\", ButtonNote -> \ \\\"StandardDeviation::shlen\\\"]\\)\"\>"}]], "Message", "MSG", CellChangeTimes->{3.576169440008653*^9}], Cell[BoxData[ RowBox[{ RowBox[{"Mean", "[", RowBox[{"{", "}"}], "]"}], "\[PlusMinus]", RowBox[{"StandardDeviation", "[", RowBox[{"{", "}"}], "]"}]}]], "Output", CellChangeTimes->{3.576169440039853*^9}], Cell[BoxData[ RowBox[{"{", RowBox[{ "2.8696116633550557`", ",", "2.882638185698448`", ",", "2.8673287493172857`", ",", "2.8859966989648616`", ",", "2.862258696323723`", ",", "2.674242077323637`", ",", "2.624297386792481`", ",", "2.6521916963253767`", ",", "2.6466158707891596`", ",", "2.6188419481093574`", ",", "2.646924834737463`"}], "}"}]], "Output", CellChangeTimes->{3.576169440039853*^9}], Cell[BoxData[ RowBox[{"2.7482679825215315`", "\[PlusMinus]", "0.1209760590188867`"}]], "Output", CellChangeTimes->{3.576169440039853*^9}], Cell[BoxData[ RowBox[{"{", RowBox[{ "2.050850842802333`", ",", "2.0491469275406513`", ",", "2.0512913779712614`", ",", "2.0510813007221387`", ",", "2.0544700001448026`", ",", "1.7926679736499278`", ",", "1.7897180159319515`", ",", "1.7928779971159923`", ",", "1.793132704866463`", ",", "2.054428209512261`", ",", "2.050306695463844`"}], "}"}]], "Output", CellChangeTimes->{3.576169440039853*^9}], Cell[BoxData[ RowBox[{"1.9572701859746935`", "\[PlusMinus]", "0.1309641113926208`"}]], "Output", CellChangeTimes->{3.576169440039853*^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["6"], "Output", CellChangeTimes->{3.5761694400554533`*^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["6"], "Output", CellChangeTimes->{3.5761694400710535`*^9}] }, Open ]], Cell[CellGroupData[{ Cell[BoxData[ RowBox[{ RowBox[{"(*", " ", RowBox[{ "count", " ", "H", " ", "atoms", " ", "bonded", " ", "to", " ", "each", " ", "C", " ", "atom"}], " ", "*)"}], "\[IndentingNewLine]", RowBox[{ RowBox[{ RowBox[{"For", "[", RowBox[{ RowBox[{"j", "=", "1"}], ",", RowBox[{"j", "\[LessEqual]", "nc"}], ",", RowBox[{"j", "++"}], ",", "\[IndentingNewLine]", RowBox[{"For", "[", RowBox[{ RowBox[{"i", "=", RowBox[{"bc", "+", "1"}]}], ",", RowBox[{"i", "\[LessEqual]", "n"}], ",", RowBox[{"i", "++"}], ",", RowBox[{"If", "[", " ", RowBox[{ RowBox[{ RowBox[{"Dij", "[", RowBox[{"[", RowBox[{"i", ",", "j"}], "]"}], "]"}], "\[NotEqual]", "0"}], " ", ",", RowBox[{ RowBox[{"cnt", "[", RowBox[{"[", "j", "]"}], "]"}], "=", RowBox[{ RowBox[{"cnt", "[", RowBox[{"[", "j", "]"}], "]"}], "+", "1"}]}], ",", "0"}], "]"}]}], "]"}]}], "]"}], ";"}], "\[IndentingNewLine]", "cnt"}]}]], "Input", CellChangeTimes->{{3.568045828002715*^9, 3.56804588761042*^9}, 3.5680459828797874`*^9, {3.568046033938677*^9, 3.5680460518787084`*^9}, { 3.568046989190755*^9, 3.5680470284404235`*^9}, {3.568047061028881*^9, 3.568047085567724*^9}, {3.5680471562982483`*^9, 3.568047169199471*^9}, { 3.568047223393966*^9, 3.568047364059413*^9}, {3.568047417286707*^9, 3.5680474225127163`*^9}, {3.5680474583459787`*^9, 3.568047487861231*^9}, { 3.5680475345521126`*^9, 3.5680475468605347`*^9}, {3.5680479168775845`*^9, 3.5680479311516094`*^9}, {3.568048066918648*^9, 3.568048067667449*^9}, { 3.5680483816336*^9, 3.5680483930216208`*^9}, {3.568048424159275*^9, 3.568048450211321*^9}, {3.5680486326224413`*^9, 3.5680486370996494`*^9}, { 3.5680487358166227`*^9, 3.5680487967191296`*^9}, 3.568048834377596*^9, 3.568048984418659*^9, {3.5680490255559316`*^9, 3.5680490790796256`*^9}, { 3.5680491274553103`*^9, 3.5680491280949116`*^9}, {3.5680491782333994`*^9, 3.568049231944294*^9}, {3.568049361533722*^9, 3.5680493691933355`*^9}, { 3.568049422171028*^9, 3.568049427490638*^9}, {3.568049476427923*^9, 3.5680495489368505`*^9}, {3.568049620634577*^9, 3.5680496274361887`*^9}, { 3.5680496655314555`*^9, 3.568049693876705*^9}, 3.568049746573598*^9, { 3.568049846460573*^9, 3.568049932759925*^9}, {3.568050009059659*^9, 3.5680500167348723`*^9}, {3.5680501572755194`*^9, 3.568050179911159*^9}, 3.5681087021497335`*^9, {3.5726244549749556`*^9, 3.5726244687341795`*^9}, 3.572624583643982*^9, {3.574656664645282*^9, 3.5746566836773148`*^9}, { 3.5746567220533824`*^9, 3.5746567296193953`*^9}}], Cell[BoxData[ RowBox[{"{", RowBox[{"1", ",", "1", ",", "1", ",", "1", ",", "1", ",", "2"}], "}"}]], "Output", CellChangeTimes->{3.576169440086653*^9}] }, Open ]], Cell[BoxData[ RowBox[{ RowBox[{"(*", " ", RowBox[{ RowBox[{"parse", " ", "into", " ", "prim"}], ",", " ", "sec", ",", " ", "tert", ",", " ", RowBox[{ "and", " ", "quart", " ", "C", " ", "cores", " ", "with", " ", "different", " ", "radii"}]}], " ", "*)"}], "\[IndentingNewLine]", RowBox[{"(*", RowBox[{ RowBox[{"n1", "=", "0"}], ";", " ", RowBox[{"n2", "=", "0"}], ";", " ", RowBox[{"n3", "=", "0"}], ";", " ", RowBox[{"n4", "=", "0"}], ";", "\n", RowBox[{"For", "[", RowBox[{ RowBox[{"i", "=", "1"}], ",", RowBox[{"i", "\[LessEqual]", "nc"}], ",", RowBox[{"i", "++"}], ",", "\[IndentingNewLine]", RowBox[{"If", "[", RowBox[{ RowBox[{ RowBox[{"cnt", "[", RowBox[{"[", "i", "]"}], "]"}], "\[Equal]", "3"}], ",", RowBox[{ RowBox[{"n1", "=", RowBox[{"n1", "+", "1"}]}], ";", RowBox[{ RowBox[{"pri", "[", RowBox[{"[", "n1", "]"}], "]"}], "=", "i"}]}], ",", "\[IndentingNewLine]", RowBox[{"If", "[", RowBox[{ RowBox[{ RowBox[{"cnt", "[", RowBox[{"[", "i", "]"}], "]"}], "\[Equal]", "2"}], ",", RowBox[{ RowBox[{"n2", "=", RowBox[{"n2", "+", "1"}]}], ";", RowBox[{ RowBox[{"sec", "[", RowBox[{"[", "n2", "]"}], "]"}], "=", "i"}]}], ",", "\[IndentingNewLine]", RowBox[{"If", "[", RowBox[{ RowBox[{ RowBox[{"cnt", "[", RowBox[{"[", "i", "]"}], "]"}], "\[Equal]", "1"}], ",", RowBox[{ RowBox[{"n3", "=", RowBox[{"n3", "+", "1"}]}], ";", RowBox[{ RowBox[{"ter", "[", RowBox[{"[", "n3", "]"}], "]"}], "=", "i"}]}], ",", "\[IndentingNewLine]", RowBox[{"If", "[", RowBox[{ RowBox[{ RowBox[{"cnt", "[", RowBox[{"[", "i", "]"}], "]"}], "=", "0"}], ",", RowBox[{ RowBox[{"n4", "=", RowBox[{"n4", "+", "1"}]}], ";", RowBox[{ RowBox[{"qua", "[", RowBox[{"[", "n4", "]"}], "]"}], "=", "i"}]}]}], "]"}]}], "]"}]}], "]"}]}], "]"}]}], "]"}], ";", "\[IndentingNewLine]", RowBox[{ RowBox[{"For", " ", "[", RowBox[{ RowBox[{"i", "=", "1"}], ",", " ", RowBox[{"i", "\[LessEqual]", "nc"}], ",", RowBox[{"i", "++"}], ",", RowBox[{"If", "[", RowBox[{ RowBox[{ RowBox[{"pri", "[", RowBox[{"[", "i", "]"}], "]"}], "\[NotEqual]", "0"}], ",", RowBox[{ RowBox[{"u2", "[", RowBox[{"[", RowBox[{"pri", "[", RowBox[{"[", "i", "]"}], "]"}], "]"}], "]"}], "=", "0.259"}]}], "]"}]}], "]"}], "\[IndentingNewLine]", RowBox[{"For", " ", "[", RowBox[{ RowBox[{"i", "=", "1"}], ",", " ", RowBox[{"i", "\[LessEqual]", "nc"}], ",", RowBox[{"i", "++"}], ",", RowBox[{"If", "[", RowBox[{ RowBox[{ RowBox[{"sec", "[", RowBox[{"[", "i", "]"}], "]"}], "\[NotEqual]", "0"}], ",", RowBox[{ RowBox[{"u2", "[", RowBox[{"[", RowBox[{"sec", "[", RowBox[{"[", "i", "]"}], "]"}], "]"}], "]"}], "=", "0.258"}]}], "]"}]}], "]"}], "\[IndentingNewLine]", RowBox[{"For", " ", "[", RowBox[{ RowBox[{"i", "=", "1"}], ",", " ", RowBox[{"i", "\[LessEqual]", "nc"}], ",", RowBox[{"i", "++"}], ",", RowBox[{"If", "[", RowBox[{ RowBox[{ RowBox[{"ter", "[", RowBox[{"[", "i", "]"}], "]"}], "\[NotEqual]", "0"}], ",", RowBox[{ RowBox[{"u2", "[", RowBox[{"[", RowBox[{"ter", "[", RowBox[{"[", "i", "]"}], "]"}], "]"}], "]"}], "=", "0.2595"}]}], "]"}]}], "]"}], "\[IndentingNewLine]", RowBox[{"For", " ", "[", RowBox[{ RowBox[{"i", "=", "1"}], ",", " ", RowBox[{"i", "\[LessEqual]", "nc"}], ",", RowBox[{"i", "++"}], ",", RowBox[{"If", "[", RowBox[{ RowBox[{ RowBox[{"qua", "[", RowBox[{"[", "i", "]"}], "]"}], "\[NotEqual]", "0"}], ",", RowBox[{ RowBox[{"u2", "[", RowBox[{"[", RowBox[{"qua", "[", RowBox[{"[", "i", "]"}], "]"}], "]"}], "]"}], "=", "0.2595"}]}], "]"}]}], "]"}]}]}], "*)"}]}]], "Input", CellChangeTimes->{ 3.574656734486604*^9, 3.5746567701950665`*^9, 3.574656840972391*^9, { 3.574674470271285*^9, 3.574674475481694*^9}, {3.574674526181783*^9, 3.574674528927388*^9}, {3.5746746901536713`*^9, 3.5746746947712793`*^9}, 3.575821611398965*^9}], Cell[CellGroupData[{ Cell[BoxData[{ RowBox[{ RowBox[{"con", "=", RowBox[{"Table", "[", RowBox[{ RowBox[{"{", "i", "}"}], ",", RowBox[{"{", RowBox[{"i", ",", "1", ",", "n"}], "}"}]}], "]"}]}], ";", " ", RowBox[{"conj", "=", RowBox[{"Table", "[", RowBox[{"0", ",", RowBox[{"{", "nc", "}"}]}], "]"}]}], ";"}], "\[IndentingNewLine]", RowBox[{ RowBox[{"For", "[", RowBox[{ RowBox[{"i", "=", "1"}], ",", RowBox[{"i", "\[LessEqual]", "n"}], ",", RowBox[{"i", "++"}], ",", "\[IndentingNewLine]", RowBox[{"For", "[", RowBox[{ RowBox[{"j", "=", "1"}], ",", RowBox[{"j", "\[LessEqual]", "n"}], ",", RowBox[{"j", "++"}], ",", RowBox[{"If", "[", " ", RowBox[{ RowBox[{ RowBox[{"Dij", "[", RowBox[{"[", RowBox[{"i", ",", "j"}], "]"}], "]"}], "\[NotEqual]", "0"}], " ", ",", RowBox[{ RowBox[{"con", "[", RowBox[{"[", "i", "]"}], "]"}], "=", RowBox[{"{", RowBox[{ RowBox[{"con", "[", RowBox[{"[", "i", "]"}], "]"}], ",", "j"}], "}"}]}]}], "]"}]}], "]"}]}], "]"}], ";"}], "\[IndentingNewLine]", RowBox[{ RowBox[{ RowBox[{"conn", "=", RowBox[{"Table", "[", RowBox[{ RowBox[{"Flatten", "[", RowBox[{"con", "[", RowBox[{"[", "i", "]"}], "]"}], "]"}], ",", RowBox[{"{", RowBox[{"i", ",", "1", ",", "n"}], "}"}]}], "]"}]}], ";"}], "\[IndentingNewLine]", RowBox[{"(*", RowBox[{ RowBox[{ RowBox[{"conn", "[", RowBox[{"[", "10", "]"}], "]"}], "=", RowBox[{"{", RowBox[{"10", ",", "7", ",", "11", ",", "17"}], "}"}]}], ";"}], "*)"}], "\[IndentingNewLine]", RowBox[{"(*", " ", RowBox[{ "identify", " ", "C", " ", "atoms", " ", "at", " ", "double", " ", "bonds"}], " ", "*)"}]}], "\[IndentingNewLine]", RowBox[{ RowBox[{"j", "=", "0"}], ";"}], "\[IndentingNewLine]", RowBox[{ RowBox[{"For", "[", RowBox[{ RowBox[{"i", "=", "1"}], ",", RowBox[{"i", "\[LessEqual]", "nc"}], ",", RowBox[{"i", "++"}], ",", RowBox[{"If", "[", RowBox[{ RowBox[{"(", RowBox[{ RowBox[{ RowBox[{"Length", "[", RowBox[{"conn", "[", RowBox[{"[", "i", "]"}], "]"}], "]"}], "\[Equal]", "4"}], " ", "&&", " ", RowBox[{ RowBox[{"u", "[", RowBox[{"[", RowBox[{"conn", "[", RowBox[{"[", RowBox[{"i", ",", "4"}], "]"}], "]"}], "]"}], "]"}], "\[NotEqual]", "\"\\""}]}], ")"}], ",", 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.576169440102253*^9}], Cell[BoxData["0"], "Output", CellChangeTimes->{3.576169440117853*^9}], Cell[BoxData[ TagBox[ RowBox[{"(", "\[NoBreak]", TagBox[GridBox[{ { RowBox[{"{", RowBox[{"1", ",", "2", ",", "5", ",", "8", ",", "13"}], "}"}]}, { RowBox[{"{", RowBox[{"2", ",", "1", ",", "3", ",", "9", ",", "14"}], "}"}]}, { RowBox[{"{", RowBox[{"3", ",", "2", ",", "6", ",", "7", ",", "15"}], "}"}]}, { RowBox[{"{", RowBox[{"4", ",", "5", ",", "7", ",", "10", ",", "16"}], "}"}]}, { RowBox[{"{", RowBox[{"5", ",", "1", ",", "4", ",", "11", ",", "17"}], "}"}]}, { RowBox[{"{", RowBox[{"6", ",", "3", ",", "12", ",", "22", ",", "23"}], "}"}]}, { RowBox[{"{", RowBox[{"7", ",", "3", ",", "4"}], "}"}]}, { RowBox[{"{", RowBox[{"8", ",", "1", ",", "20"}], "}"}]}, { RowBox[{"{", RowBox[{"9", ",", "2", ",", "21"}], "}"}]}, { RowBox[{"{", RowBox[{"10", ",", "4", ",", "18"}], "}"}]}, { RowBox[{"{", RowBox[{"11", ",", "5", ",", "19"}], "}"}]}, { RowBox[{"{", RowBox[{"12", ",", "6", ",", "24"}], "}"}]}, { RowBox[{"{", RowBox[{"13", ",", "1"}], "}"}]}, { RowBox[{"{", RowBox[{"14", ",", "2"}], "}"}]}, { RowBox[{"{", RowBox[{"15", ",", "3"}], "}"}]}, { RowBox[{"{", RowBox[{"16", ",", "4"}], "}"}]}, { RowBox[{"{", RowBox[{"17", ",", "5"}], "}"}]}, { RowBox[{"{", RowBox[{"18", ",", "10"}], "}"}]}, { RowBox[{"{", RowBox[{"19", ",", "11"}], "}"}]}, { RowBox[{"{", RowBox[{"20", ",", "8"}], "}"}]}, { RowBox[{"{", RowBox[{"21", ",", "9"}], "}"}]}, { RowBox[{"{", RowBox[{"22", ",", "6"}], "}"}]}, { RowBox[{"{", RowBox[{"23", ",", "6"}], "}"}]}, { RowBox[{"{", RowBox[{"24", ",", "12"}], "}"}]} }, 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.576169440117853*^9}] }, Open ]], Cell[CellGroupData[{ Cell[BoxData[ RowBox[{"\[IndentingNewLine]", RowBox[{ RowBox[{ RowBox[{"j", "=", "0"}], ";", " ", RowBox[{"h", "=", "0"}], ";"}], "\[IndentingNewLine]", RowBox[{ RowBox[{"coco", "=", RowBox[{"Table", "[", RowBox[{ RowBox[{"{", RowBox[{"0", ",", "0", ",", "0", ",", "0"}], "}"}], ",", RowBox[{"{", "no", "}"}]}], "]"}]}], ";"}], "\[IndentingNewLine]", RowBox[{ RowBox[{"coch", "=", "coco"}], ";"}], "\[IndentingNewLine]", RowBox[{ RowBox[{"For", "[", RowBox[{ RowBox[{"i", "=", RowBox[{"nc", "+", "1"}]}], ",", " ", RowBox[{"i", "\[LessEqual]", RowBox[{"nc", "+", "no"}]}], ",", " ", RowBox[{"i", "++"}], ",", RowBox[{"If", "[", RowBox[{ RowBox[{ RowBox[{"Length", "[", RowBox[{"conn", "[", RowBox[{"[", "i", "]"}], "]"}], "]"}], "\[Equal]", "2"}], ",", RowBox[{ RowBox[{"j", "=", RowBox[{"j", "+", "1"}]}], ";", RowBox[{ RowBox[{"coco", "[", RowBox[{"[", "j", "]"}], "]"}], "=", RowBox[{"Join", "[", RowBox[{ RowBox[{"{", RowBox[{"conn", "[", RowBox[{"[", RowBox[{"i", ",", "1"}], "]"}], "]"}], "}"}], ",", RowBox[{"Take", "[", RowBox[{ RowBox[{"conn", "[", RowBox[{"[", RowBox[{"conn", "[", RowBox[{"[", RowBox[{"i", ",", "2"}], "]"}], "]"}], "]"}], "]"}], ",", "3"}], "]"}]}], "]"}]}]}], ",", RowBox[{ RowBox[{"h", "=", RowBox[{"h", "+", "1"}]}], ";", RowBox[{ RowBox[{"coch", "[", RowBox[{"[", "h", "]"}], "]"}], "=", RowBox[{"conn", "[", RowBox[{"[", "i", "]"}], "]"}]}]}]}], "]"}]}], "]"}], ";"}], "\[IndentingNewLine]", RowBox[{ RowBox[{"coco", "=", RowBox[{"Take", "[", RowBox[{"coco", ",", RowBox[{"{", RowBox[{"1", ",", "j"}], "}"}]}], "]"}]}], ";"}], "\[IndentingNewLine]", RowBox[{ RowBox[{"coch", "=", RowBox[{"Take", "[", RowBox[{"coch", ",", RowBox[{"{", RowBox[{"1", ",", "h"}], "}"}]}], "]"}]}], ";"}], "\[IndentingNewLine]", RowBox[{"oj", "=", RowBox[{"Length", "[", "coco", "]"}]}], "\[IndentingNewLine]", RowBox[{"hj", "=", RowBox[{"Length", "[", "coch", "]"}]}]}]}]], "Input", CellChangeTimes->{{3.568108824079547*^9, 3.568109012824279*^9}, { 3.568109558076436*^9, 3.568109588168889*^9}, {3.5681097523435774`*^9, 3.5681097637783976`*^9}, {3.5681100381828794`*^9, 3.5681101616726966`*^9}, {3.5681102015307665`*^9, 3.5681102288464146`*^9}, {3.568110263743676*^9, 3.568110267331682*^9}, { 3.5681103163469687`*^9, 3.5681103268925867`*^9}, {3.5681106443375444`*^9, 3.5681106916368275`*^9}, 3.568110873002746*^9, {3.5681109388660617`*^9, 3.5681110268970165`*^9}, {3.568111092526332*^9, 3.568111123461186*^9}, { 3.5681111884196997`*^9, 3.568111192756508*^9}, {3.5681112268113675`*^9, 3.568111366213212*^9}, {3.568111434946933*^9, 3.568111463354583*^9}, { 3.568111544396725*^9, 3.568111547625931*^9}, {3.5681116856081734`*^9, 3.5681117131422215`*^9}, {3.568111864696488*^9, 3.5681119835998964`*^9}, 3.5681120218355637`*^9, {3.56811206543764*^9, 3.568112066389242*^9}, { 3.568112332369709*^9, 3.5681123404505234`*^9}, {3.568112505935614*^9, 3.56811251481203*^9}, {3.5681125623609133`*^9, 3.568112569006525*^9}, { 3.568112648067464*^9, 3.568112734210815*^9}, {3.568112764443668*^9, 3.5681127697320776`*^9}, {3.5681128018681335`*^9, 3.568112843426607*^9}, { 3.568112884641879*^9, 3.5681128887602863`*^9}, {3.5681129663080225`*^9, 3.5681129699584293`*^9}, {3.568113133789917*^9, 3.568113227936082*^9}, { 3.5681132946885996`*^9, 3.5681133044698167`*^9}, {3.568113502200164*^9, 3.568113507348173*^9}, 3.56811354556824*^9, {3.5681222886191964`*^9, 3.5681222896019983`*^9}, {3.568207424138049*^9, 3.5682074415164795`*^9}, 3.568277923134914*^9, 3.568883508322016*^9, 3.568883588350157*^9, 3.5688836441982546`*^9, {3.5703421313965206`*^9, 3.5703421386505337`*^9}, { 3.570342288098796*^9, 3.5703424924279547`*^9}, 3.5709745658726373`*^9, 3.5709746291463485`*^9, {3.5709747534473667`*^9, 3.5709747617933817`*^9}, { 3.5709749537361183`*^9, 3.570975034747061*^9}, {3.5709751055243855`*^9, 3.5709751213584127`*^9}, {3.5709751694532976`*^9, 3.570975200060551*^9}, { 3.571073358435503*^9, 3.5710734289632273`*^9}, {3.571204792969243*^9, 3.571204820940092*^9}, {3.5712048565705547`*^9, 3.571204860002561*^9}, 3.571204896881026*^9, {3.571204943556308*^9, 3.571204987485985*^9}, 3.5712053579722357`*^9, 3.5712054148187356`*^9, 3.5712055260469313`*^9, { 3.571205631237916*^9, 3.5712056608311677`*^9}, {3.571206377683627*^9, 3.5712064172296963`*^9}, {3.571206525727887*^9, 3.571206547427525*^9}, { 3.5712066764397516`*^9, 3.5712067106974115`*^9}, {3.571206757949895*^9, 3.5712067585114956`*^9}, {3.5712073458681273`*^9, 3.571207357053347*^9}, { 3.5712075532392917`*^9, 3.5712076608170805`*^9}, {3.571208007434089*^9, 3.571208247690111*^9}, {3.571208301057805*^9, 3.5712083308850574`*^9}, { 3.571208811958702*^9, 3.571208871488407*^9}, {3.5712089993618317`*^9, 3.5712089996582317`*^9}, {3.5712091105588264`*^9, 3.571209160744115*^9}, { 3.5712092989135575`*^9, 3.5712093003643603`*^9}, {3.571209369940482*^9, 3.5712093926073227`*^9}, {3.5712094586578383`*^9, 3.5712094836958823`*^9}, {3.5712104228175316`*^9, 3.571210434267952*^9}, 3.571210475358424*^9, 3.5712108629099045`*^9, {3.571210903969177*^9, 3.5712109929361334`*^9}, {3.5712110295961976`*^9, 3.5712110392214146`*^9}, {3.571211240071767*^9, 3.5712112940946617`*^9}, { 3.571211404496056*^9, 3.5712114190976815`*^9}, {3.5712115264882703`*^9, 3.5712115363942876`*^9}, {3.571211575924757*^9, 3.5712116183724318`*^9}, { 3.5712116597281046`*^9, 3.571211695062166*^9}, {3.5712117551222715`*^9, 3.5712117807531166`*^9}, {3.571211826835598*^9, 3.5712118443232284`*^9}, { 3.571211962540236*^9, 3.5712119670174437`*^9}, 3.5712123580321307`*^9, { 3.5712123994658036`*^9, 3.571212411181424*^9}, {3.5712172605092583`*^9, 3.571217297153723*^9}, {3.571223622762637*^9, 3.57122364145147*^9}, { 3.5712237454256525`*^9, 3.571223750745262*^9}, {3.571223964808838*^9, 3.571224009097316*^9}, {3.57122674689975*^9, 3.5712267784742055`*^9}, { 3.5712269848157682`*^9, 3.57122698582977*^9}, {3.5712270624259043`*^9, 3.5712270629563055`*^9}, {3.571227212438168*^9, 3.571227212999769*^9}, { 3.571227409778515*^9, 3.5712274489969835`*^9}, {3.571227502177477*^9, 3.571227514127098*^9}, {3.57122758356282*^9, 3.5712276390521173`*^9}, 3.5712276745889797`*^9, {3.571227712746647*^9, 3.5712277584703274`*^9}, { 3.5712349496076813`*^9, 3.571234988008148*^9}, {3.5712351855668955`*^9, 3.5712353359043593`*^9}, {3.5712355859883986`*^9, 3.571235653661318*^9}, { 3.5712356890109797`*^9, 3.571235702208603*^9}, {3.5712449764989214`*^9, 3.5712449799309273`*^9}, {3.5712450401778336`*^9, 3.571245051456653*^9}, { 3.5712450868687153`*^9, 3.5712450934831266`*^9}, {3.571299135517318*^9, 3.571299166342972*^9}, {3.5713069890574045`*^9, 3.5713071726697273`*^9}, { 3.571307301791154*^9, 3.571307304536759*^9}, {3.571307397731323*^9, 3.571307405702937*^9}, {3.571311846659932*^9, 3.5713118507939396`*^9}, { 3.571317129094411*^9, 3.5713171472216425`*^9}, {3.5713172653138494`*^9, 3.5713172753602676`*^9}, {3.5713216932693615`*^9, 3.5713216983081703`*^9}, {3.5713370477995405`*^9, 3.5713370593279605`*^9}, {3.571404339740199*^9, 3.5714046172178864`*^9}, { 3.571404755449729*^9, 3.571404853246301*^9}, {3.571405069743481*^9, 3.571405208989326*^9}, {3.571405268612631*^9, 3.571405277442246*^9}, { 3.5714053796536255`*^9, 3.5714054114932814`*^9}, {3.571405595448805*^9, 3.5714056194884467`*^9}, {3.5714056687221336`*^9, 3.571405677660949*^9}, 3.5714067334520035`*^9, {3.57140676532286*^9, 3.5714067706580687`*^9}, { 3.571406950729185*^9, 3.571406989495253*^9}, {3.5714071848855963`*^9, 3.571407190579606*^9}, 3.5714072350240846`*^9, {3.571412503236558*^9, 3.5714125080413666`*^9}, {3.571412540879424*^9, 3.571412607787942*^9}, { 3.571412668378448*^9, 3.5714128101202965`*^9}, {3.5714128643147917`*^9, 3.571412873862009*^9}, {3.571412908150869*^9, 3.57141290869687*^9}, { 3.571413012374652*^9, 3.5714130213290677`*^9}, {3.571413054603926*^9, 3.5714130713583555`*^9}, 3.5714133323156137`*^9, {3.571730171730853*^9, 3.571730182494872*^9}, {3.5717303501171665`*^9, 3.5717303600855846`*^9}, { 3.5717305482375145`*^9, 3.5717305527147226`*^9}, {3.571760865342704*^9, 3.5717608700695124`*^9}, {3.57176111957635*^9, 3.5717611228835564`*^9}, 3.571761174316847*^9, {3.5717620076459103`*^9, 3.571762008441512*^9}, { 3.571765525077688*^9, 3.571765573718574*^9}, {3.572601603410675*^9, 3.572601639665139*^9}, {3.57260238631365*^9, 3.5726023989340725`*^9}, 3.5726046985809116`*^9, {3.5726052623971024`*^9, 3.572605269729115*^9}, { 3.572606450370389*^9, 3.5726064833176465`*^9}, {3.5726065169513054`*^9, 3.572606523955718*^9}, {3.5726066452459307`*^9, 3.572606662468361*^9}, { 3.5726068118542233`*^9, 3.5726068309330573`*^9}, {3.5726082044218693`*^9, 3.5726082108178806`*^9}, {3.5726129520308228`*^9, 3.5726129692220526`*^9}, {3.5726130228861475`*^9, 3.5726130532750006`*^9}, {3.572624083881504*^9, 3.572624093631521*^9}, { 3.5726247901883445`*^9, 3.572624801233164*^9}, {3.5726249931759005`*^9, 3.572625014937939*^9}, {3.572626882386019*^9, 3.5726268865668263`*^9}, { 3.5726673740642943`*^9, 3.572667386154316*^9}, {3.572707186162225*^9, 3.5727071892978306`*^9}, {3.5727073766385593`*^9, 3.5727073777617617`*^9}, 3.5727091442464643`*^9, 3.572709305488347*^9, {3.5727105300904984`*^9, 3.5727105312605004`*^9}, 3.5727107350904584`*^9, 3.5727108467086544`*^9, 3.572710916331577*^9, {3.5728420867264705`*^9, 3.5728421164913225`*^9}, { 3.572850453192765*^9, 3.5728504884332275`*^9}, {3.5731485879383316`*^9, 3.5731485959879456`*^9}, {3.5731825263710723`*^9, 3.573182535403488*^9}, { 3.5733139065045433`*^9, 3.5733140549856043`*^9}, 3.574655628725462*^9, 3.574657123722888*^9, {3.5746628507577467`*^9, 3.574662854080552*^9}, { 3.5747411461662536`*^9, 3.5747411501130605`*^9}, {3.5747732863761578`*^9, 3.5747733212266192`*^9}, {3.574777246966323*^9, 3.5747777516272087`*^9}, { 3.574778090990205*^9, 3.5747782123584185`*^9}, {3.5747782626217065`*^9, 3.5747782672393146`*^9}, {3.57477829882937*^9, 3.57477835005986*^9}, { 3.5747784095115643`*^9, 3.5747784447520266`*^9}, {3.5747785201625586`*^9, 3.574778535122985*^9}, {3.5747785781478605`*^9, 3.574778578319461*^9}, { 3.5747786106427174`*^9, 3.574778688830055*^9}, {3.5747787248193183`*^9, 3.5747787708393993`*^9}, 3.574778803895857*^9, {3.5747790916071625`*^9, 3.5747790975975733`*^9}, {3.574779153835672*^9, 3.574779165457692*^9}, { 3.5747792016185555`*^9, 3.574779212008174*^9}, {3.5747792458290334`*^9, 3.5747792599314585`*^9}, {3.5747792935339174`*^9, 3.574779301552331*^9}, { 3.574779474915436*^9, 3.574779529047531*^9}, {3.5747795770176153`*^9, 3.574779592914043*^9}, {3.5747796386065235`*^9, 3.574779641742129*^9}, { 3.574779726762278*^9, 3.57477972782308*^9}, 3.5747798402368774`*^9, { 3.5747800908513174`*^9, 3.5747801971811047`*^9}, {3.5747802368675737`*^9, 3.5747802741828394`*^9}, {3.574780331856141*^9, 3.574780343462561*^9}, { 3.574780380434626*^9, 3.5747803867058372`*^9}, {3.5747804240679026`*^9, 3.574780436781925*^9}, {3.574780765302902*^9, 3.574780854581859*^9}, { 3.574785122296955*^9, 3.574785156398615*^9}, {3.574873161841775*^9, 3.5748731669117837`*^9}, {3.575821333188076*^9, 3.575821338117685*^9}}], Cell[BoxData["0"], "Output", CellChangeTimes->{3.5761694401334534`*^9}], Cell[BoxData["6"], "Output", CellChangeTimes->{3.5761694401334534`*^9}] }, Open ]], Cell[BoxData[{ RowBox[{ RowBox[{ RowBox[{"Clear", "[", RowBox[{ "c", ",", "v", ",", "p", ",", "Q", ",", "P", ",", "v1", ",", "v2", ",", "nk", ",", "nl", ",", "i"}], "]"}], ";"}], " "}], "\[IndentingNewLine]", RowBox[{ RowBox[{ RowBox[{"P", "=", "3"}], ";", " ", RowBox[{"c", "=", RowBox[{"{", RowBox[{"0", ",", "0", ",", "0", ",", "0", ",", "0"}], "}"}]}], ";"}], " "}]}], "Input", CellChangeTimes->{{3.568108824079547*^9, 3.568109012824279*^9}, { 3.568109558076436*^9, 3.568109588168889*^9}, {3.5681097523435774`*^9, 3.5681097637783976`*^9}, {3.5681100381828794`*^9, 3.5681101616726966`*^9}, {3.5681102015307665`*^9, 3.5681102288464146`*^9}, {3.568110263743676*^9, 3.568110267331682*^9}, { 3.5681103163469687`*^9, 3.5681103268925867`*^9}, {3.5681106443375444`*^9, 3.5681106916368275`*^9}, 3.568110873002746*^9, {3.5681109388660617`*^9, 3.5681110268970165`*^9}, {3.568111092526332*^9, 3.568111123461186*^9}, { 3.5681111884196997`*^9, 3.568111192756508*^9}, {3.5681112268113675`*^9, 3.568111366213212*^9}, {3.568111434946933*^9, 3.568111463354583*^9}, { 3.568111544396725*^9, 3.568111547625931*^9}, {3.5681116856081734`*^9, 3.5681117131422215`*^9}, {3.568111864696488*^9, 3.5681119835998964`*^9}, 3.5681120218355637`*^9, {3.56811206543764*^9, 3.568112066389242*^9}, { 3.568112332369709*^9, 3.5681123404505234`*^9}, {3.568112505935614*^9, 3.56811251481203*^9}, {3.5681125623609133`*^9, 3.568112569006525*^9}, { 3.568112648067464*^9, 3.568112734210815*^9}, {3.568112764443668*^9, 3.5681127697320776`*^9}, {3.5681128018681335`*^9, 3.568112843426607*^9}, { 3.568112884641879*^9, 3.5681128887602863`*^9}, {3.5681129663080225`*^9, 3.5681129699584293`*^9}, {3.568113133789917*^9, 3.568113227936082*^9}, { 3.5681132946885996`*^9, 3.5681133044698167`*^9}, {3.568113502200164*^9, 3.568113507348173*^9}, 3.56811354556824*^9, {3.5681222886191964`*^9, 3.5681222896019983`*^9}, {3.568207424138049*^9, 3.5682074415164795`*^9}, 3.568277923134914*^9, 3.568883508322016*^9, 3.568883588350157*^9, 3.5688836441982546`*^9, {3.5703421313965206`*^9, 3.5703421386505337`*^9}, { 3.570342288098796*^9, 3.5703424924279547`*^9}, 3.5709745658726373`*^9, 3.5709746291463485`*^9, {3.5709747534473667`*^9, 3.5709747617933817`*^9}, { 3.5709749537361183`*^9, 3.570975034747061*^9}, {3.5709751055243855`*^9, 3.5709751213584127`*^9}, {3.5709751694532976`*^9, 3.570975200060551*^9}, { 3.571073358435503*^9, 3.5710734289632273`*^9}, {3.571204792969243*^9, 3.571204820940092*^9}, {3.5712048565705547`*^9, 3.571204860002561*^9}, 3.571204896881026*^9, {3.571204943556308*^9, 3.571204987485985*^9}, 3.5712053579722357`*^9, 3.5712054148187356`*^9, 3.5712055260469313`*^9, { 3.571205631237916*^9, 3.5712056608311677`*^9}, {3.571206377683627*^9, 3.5712064172296963`*^9}, {3.571206525727887*^9, 3.571206547427525*^9}, { 3.5712066764397516`*^9, 3.5712067106974115`*^9}, {3.571206757949895*^9, 3.5712067585114956`*^9}, {3.5712073458681273`*^9, 3.571207357053347*^9}, { 3.5712075532392917`*^9, 3.5712076608170805`*^9}, {3.571208007434089*^9, 3.571208247690111*^9}, {3.571208301057805*^9, 3.5712083308850574`*^9}, { 3.571208811958702*^9, 3.571208871488407*^9}, {3.5712089993618317`*^9, 3.5712089996582317`*^9}, {3.5712091105588264`*^9, 3.571209160744115*^9}, { 3.5712092989135575`*^9, 3.5712093003643603`*^9}, {3.571209369940482*^9, 3.5712093926073227`*^9}, {3.5712094586578383`*^9, 3.5712094836958823`*^9}, {3.5712104228175316`*^9, 3.571210434267952*^9}, 3.571210475358424*^9, 3.5712108629099045`*^9, {3.571210903969177*^9, 3.5712109929361334`*^9}, {3.5712110295961976`*^9, 3.5712110392214146`*^9}, {3.571211240071767*^9, 3.5712112940946617`*^9}, { 3.571211404496056*^9, 3.5712114190976815`*^9}, {3.5712115264882703`*^9, 3.5712115363942876`*^9}, {3.571211575924757*^9, 3.5712116183724318`*^9}, { 3.5712116597281046`*^9, 3.571211695062166*^9}, {3.5712117551222715`*^9, 3.5712117807531166`*^9}, {3.571211826835598*^9, 3.5712118443232284`*^9}, { 3.571211962540236*^9, 3.5712119670174437`*^9}, 3.5712123580321307`*^9, { 3.5712123994658036`*^9, 3.571212411181424*^9}, {3.5712172605092583`*^9, 3.571217297153723*^9}, {3.571223622762637*^9, 3.57122364145147*^9}, { 3.5712237454256525`*^9, 3.571223750745262*^9}, {3.571223964808838*^9, 3.571224009097316*^9}, {3.57122674689975*^9, 3.5712267784742055`*^9}, { 3.5712269848157682`*^9, 3.57122698582977*^9}, {3.5712270624259043`*^9, 3.5712270629563055`*^9}, {3.571227212438168*^9, 3.571227212999769*^9}, { 3.571227409778515*^9, 3.5712274489969835`*^9}, {3.571227502177477*^9, 3.571227514127098*^9}, {3.57122758356282*^9, 3.5712276390521173`*^9}, 3.5712276745889797`*^9, {3.571227712746647*^9, 3.5712277584703274`*^9}, { 3.5712349496076813`*^9, 3.571234988008148*^9}, {3.5712351855668955`*^9, 3.5712353359043593`*^9}, {3.5712355859883986`*^9, 3.571235653661318*^9}, { 3.5712356890109797`*^9, 3.571235702208603*^9}, {3.5712449764989214`*^9, 3.5712449799309273`*^9}, {3.5712450401778336`*^9, 3.571245051456653*^9}, { 3.5712450868687153`*^9, 3.5712450934831266`*^9}, {3.571299135517318*^9, 3.571299166342972*^9}, {3.5713069890574045`*^9, 3.5713071726697273`*^9}, { 3.571307301791154*^9, 3.571307304536759*^9}, {3.571307397731323*^9, 3.571307405702937*^9}, {3.571311846659932*^9, 3.5713118507939396`*^9}, { 3.571317129094411*^9, 3.5713171472216425`*^9}, {3.5713172653138494`*^9, 3.5713172753602676`*^9}, {3.5713216932693615`*^9, 3.5713216983081703`*^9}, {3.5713370477995405`*^9, 3.5713370593279605`*^9}, {3.571404339740199*^9, 3.5714046172178864`*^9}, { 3.571404755449729*^9, 3.571404853246301*^9}, {3.571405069743481*^9, 3.571405208989326*^9}, {3.571405268612631*^9, 3.571405277442246*^9}, { 3.5714053796536255`*^9, 3.5714054114932814`*^9}, {3.571405595448805*^9, 3.5714056194884467`*^9}, {3.5714056687221336`*^9, 3.571405677660949*^9}, 3.5714067334520035`*^9, {3.57140676532286*^9, 3.5714067706580687`*^9}, { 3.571406950729185*^9, 3.571406989495253*^9}, {3.5714071848855963`*^9, 3.571407190579606*^9}, 3.5714072350240846`*^9, {3.571412503236558*^9, 3.5714125080413666`*^9}, {3.571412540879424*^9, 3.571412607787942*^9}, { 3.571412668378448*^9, 3.5714128101202965`*^9}, {3.5714128643147917`*^9, 3.571412873862009*^9}, {3.571412908150869*^9, 3.57141290869687*^9}, { 3.571413012374652*^9, 3.5714130213290677`*^9}, {3.571413054603926*^9, 3.5714130713583555`*^9}, 3.5714133323156137`*^9, {3.571730171730853*^9, 3.571730182494872*^9}, {3.5717303501171665`*^9, 3.5717303600855846`*^9}, { 3.5717305482375145`*^9, 3.5717305527147226`*^9}, {3.571760865342704*^9, 3.5717608700695124`*^9}, {3.57176111957635*^9, 3.5717611228835564`*^9}, 3.571761174316847*^9, {3.5717620076459103`*^9, 3.571762008441512*^9}, { 3.571765525077688*^9, 3.571765573718574*^9}, {3.572601603410675*^9, 3.572601639665139*^9}, {3.57260238631365*^9, 3.5726023989340725`*^9}, 3.5726046985809116`*^9, {3.5726052623971024`*^9, 3.572605269729115*^9}, { 3.572606450370389*^9, 3.5726064833176465`*^9}, {3.5726065169513054`*^9, 3.572606523955718*^9}, {3.5726066452459307`*^9, 3.572606662468361*^9}, { 3.5726068118542233`*^9, 3.5726068309330573`*^9}, {3.5726082044218693`*^9, 3.5726082108178806`*^9}, {3.5726129520308228`*^9, 3.5726129692220526`*^9}, {3.5726130228861475`*^9, 3.5726130532750006`*^9}, {3.572624083881504*^9, 3.572624093631521*^9}, { 3.5726247901883445`*^9, 3.572624801233164*^9}, {3.5726249931759005`*^9, 3.572625014937939*^9}, {3.572626882386019*^9, 3.5726268865668263`*^9}, { 3.5726673740642943`*^9, 3.572667386154316*^9}, {3.572707186162225*^9, 3.5727071892978306`*^9}, {3.5727073766385593`*^9, 3.5727073777617617`*^9}, 3.5727091442464643`*^9, 3.572709305488347*^9, {3.5727105300904984`*^9, 3.5727105312605004`*^9}, 3.5727107350904584`*^9, 3.5727108467086544`*^9, 3.572710916331577*^9, {3.5728420867264705`*^9, 3.5728421164913225`*^9}, { 3.572850453192765*^9, 3.5728504884332275`*^9}, {3.5731485879383316`*^9, 3.5731485959879456`*^9}, {3.5731825263710723`*^9, 3.573182535403488*^9}, { 3.5733139065045433`*^9, 3.5733140549856043`*^9}, 3.574655628725462*^9, 3.574657123722888*^9, {3.5746628507577467`*^9, 3.574662854080552*^9}, { 3.5747411461662536`*^9, 3.5747411501130605`*^9}, {3.5747732863761578`*^9, 3.5747733212266192`*^9}, {3.574777246966323*^9, 3.574777607030555*^9}, { 3.5747831833383493`*^9, 3.5747831840715504`*^9}, {3.5747851902662745`*^9, 3.574785199875891*^9}, 3.5748282451644087`*^9, {3.5748534446735983`*^9, 3.5748534455472*^9}, {3.5758212201970778`*^9, 3.5758212240502844`*^9}}], Cell["\<\ (*-------------------------------------------------------------------------*) (* next: O atoms in C-O-H and C-O-C: two doubly occ LP *)\ \>", "Text", CellChangeTimes->{{3.572794697520533*^9, 3.5727947043221455`*^9}, { 3.5727948024151173`*^9, 3.572794803507119*^9}, {3.5727948673580313`*^9, 3.572794869838436*^9}, {3.572795260993526*^9, 3.5727952676703377`*^9}, { 3.5727954366342344`*^9, 3.5727954702834935`*^9}, {3.5727973545484033`*^9, 3.5727973657024226`*^9}, {3.572803225319809*^9, 3.572803264553878*^9}, { 3.57280330550395*^9, 3.5728033127111626`*^9}, 3.5728033508376293`*^9, { 3.572803528365941*^9, 3.5728035301443443`*^9}, {3.572803715051469*^9, 3.572803769604765*^9}, {3.572840261866465*^9, 3.5728402628648667`*^9}, { 3.5728405648813972`*^9, 3.572840578905822*^9}, {3.5728406372187243`*^9, 3.572840716170463*^9}, {3.5728407476825185`*^9, 3.572840785746585*^9}, { 3.5728408298790627`*^9, 3.5728408871311636`*^9}, {3.5728409363336496`*^9, 3.572841070790286*^9}, {3.572841415987692*^9, 3.572841609740032*^9}, 3.5728416910629754`*^9, {3.5728417502806797`*^9, 3.572841879885707*^9}, { 3.572841914564568*^9, 3.5728419300709953`*^9}, {3.572841986199894*^9, 3.572842001659521*^9}, {3.5728426453322515`*^9, 3.5728426487174573`*^9}, { 3.572844776030794*^9, 3.572844786919613*^9}, {3.57284502999924*^9, 3.5728450550060835`*^9}, {3.572845459218394*^9, 3.572845496174859*^9}, { 3.5728455656105804`*^9, 3.572845617574272*^9}, {3.5728456738279705`*^9, 3.572845681440784*^9}, {3.5728457322656736`*^9, 3.572845755291314*^9}, 3.572845978356106*^9, {3.572846145151599*^9, 3.572846189096876*^9}, { 3.572846392926834*^9, 3.5728464086828613`*^9}, 3.572846518881455*^9, 3.5728469699562473`*^9, {3.5728470834620466`*^9, 3.572847089873658*^9}, { 3.572847132180932*^9, 3.5728472650151653`*^9}, 3.5728473515485177`*^9, { 3.572849422046554*^9, 3.572849426554962*^9}, {3.572849678776205*^9, 3.572849686077018*^9}, {3.5728503673146143`*^9, 3.5728503811830387`*^9}, { 3.5728505998798227`*^9, 3.572850604637831*^9}, 3.5730459405924234`*^9, { 3.5731485633994884`*^9, 3.5731485765503116`*^9}, {3.5731486137719765`*^9, 3.57314870088253*^9}, 3.5746558585762653`*^9, {3.574670156150858*^9, 3.5746701578512607`*^9}, {3.5746701931541224`*^9, 3.5746702231061754`*^9}, {3.574670271856261*^9, 3.574670280545476*^9}, { 3.574670327688759*^9, 3.574670328952361*^9}, {3.5746703662988267`*^9, 3.574670379184449*^9}, {3.5746706373025026`*^9, 3.574670676068571*^9}, { 3.574740867627764*^9, 3.574740880248186*^9}, {3.575020951503151*^9, 3.575020964841174*^9}}], Cell[CellGroupData[{ Cell[BoxData[{ RowBox[{ StyleBox[ RowBox[{ RowBox[{"k", "=", "1"}], ";"}], "Input"], "\n", RowBox[{"(*", RowBox[{ StyleBox[ RowBox[{ RowBox[{"Clear", "[", "conn", "]"}], ";"}], "Input"], "\n", StyleBox[ RowBox[{ RowBox[{"conn", " ", "=", " ", RowBox[{"{", RowBox[{ RowBox[{"{", RowBox[{"48", ",", "22", ",", "5"}], "}"}], ",", RowBox[{"{", RowBox[{"21", ",", "25", ",", "54"}], "}"}]}], "}"}]}], ";"}], "Input"]}], "*)"}]}], "\n", StyleBox[ RowBox[{ RowBox[{"rlo", " ", "=", " ", "1.125"}], ";"}], "Input"], "\n", RowBox[{ RowBox[{"tpso", "=", RowBox[{"Table", "[", RowBox[{ RowBox[{"{", RowBox[{"0", ",", "0", ",", "0"}], "}"}], ",", RowBox[{"{", "hj", "}"}]}], "]"}]}], ";"}], "\[IndentingNewLine]", RowBox[{ RowBox[{"tpsu", "=", "tpso"}], ";"}], "\[IndentingNewLine]", "coch", "\[IndentingNewLine]", RowBox[{ RowBox[{"(*", RowBox[{ RowBox[{"coch", "[", RowBox[{"[", "1", "]"}], "]"}], "=", RowBox[{"RotateLeft", "[", RowBox[{ RowBox[{"coch", "[", RowBox[{"[", "1", "]"}], "]"}], ",", RowBox[{"-", "1"}]}], "]"}]}], "*)"}]}]}], "Input", CellChangeTimes->{{3.572794697520533*^9, 3.5727947043221455`*^9}, { 3.5727948024151173`*^9, 3.572794803507119*^9}, {3.5727948673580313`*^9, 3.572794869838436*^9}, {3.572795260993526*^9, 3.5727952676703377`*^9}, { 3.5727954366342344`*^9, 3.5727954702834935`*^9}, {3.5727973545484033`*^9, 3.5727973657024226`*^9}, {3.572803225319809*^9, 3.572803264553878*^9}, { 3.57280330550395*^9, 3.5728033127111626`*^9}, 3.5728033508376293`*^9, { 3.572803528365941*^9, 3.5728035301443443`*^9}, {3.572803715051469*^9, 3.572803769604765*^9}, {3.572840261866465*^9, 3.5728402628648667`*^9}, { 3.5728405648813972`*^9, 3.572840578905822*^9}, {3.5728406372187243`*^9, 3.572840716170463*^9}, {3.5728407476825185`*^9, 3.572840785746585*^9}, { 3.5728408298790627`*^9, 3.5728408871311636`*^9}, {3.5728409363336496`*^9, 3.572841070790286*^9}, {3.572841415987692*^9, 3.572841609740032*^9}, 3.5728416910629754`*^9, {3.5728417502806797`*^9, 3.572841879885707*^9}, { 3.572841914564568*^9, 3.5728419300709953`*^9}, {3.572841986199894*^9, 3.572842001659521*^9}, {3.5728426453322515`*^9, 3.5728426487174573`*^9}, { 3.572844776030794*^9, 3.572844786919613*^9}, {3.57284502999924*^9, 3.5728450550060835`*^9}, {3.572845459218394*^9, 3.572845496174859*^9}, { 3.5728455656105804`*^9, 3.572845617574272*^9}, {3.5728456738279705`*^9, 3.572845681440784*^9}, {3.5728457322656736`*^9, 3.572845755291314*^9}, 3.572845978356106*^9, {3.572846145151599*^9, 3.572846189096876*^9}, { 3.572846392926834*^9, 3.5728464086828613`*^9}, 3.572846518881455*^9, 3.5728469699562473`*^9, {3.5728470834620466`*^9, 3.572847089873658*^9}, { 3.572847132180932*^9, 3.5728472650151653`*^9}, 3.5728473515485177`*^9, { 3.572849422046554*^9, 3.572849426554962*^9}, {3.572849678776205*^9, 3.572849686077018*^9}, {3.5728503673146143`*^9, 3.5728503811830387`*^9}, { 3.5728505998798227`*^9, 3.572850604637831*^9}, 3.5730459405924234`*^9, { 3.5731485633994884`*^9, 3.5731485765503116`*^9}, {3.5731486137719765`*^9, 3.57314870088253*^9}, 3.5746558585762653`*^9, {3.574670156150858*^9, 3.5746701578512607`*^9}, {3.5746701931541224`*^9, 3.5746702231061754`*^9}, {3.574670271856261*^9, 3.574670280545476*^9}, { 3.574670327688759*^9, 3.574670328952361*^9}, {3.5746703662988267`*^9, 3.574670446904168*^9}, {3.5746710892508965`*^9, 3.574671127018563*^9}, { 3.574671266124007*^9, 3.574671266124007*^9}, {3.574671949327207*^9, 3.574671952228812*^9}, 3.5746720468897786`*^9, {3.574672142595947*^9, 3.5746721470419545`*^9}, {3.5747408907470045`*^9, 3.574740924458664*^9}, { 3.574741956213276*^9, 3.5747419624688873`*^9}, {3.5748306614370527`*^9, 3.5748307091575365`*^9}, 3.5748307421983943`*^9, 3.574830849354983*^9, { 3.5748316203083367`*^9, 3.574831676156435*^9}, {3.574831733065335*^9, 3.574831738228944*^9}, {3.5748530946245832`*^9, 3.574853097011388*^9}, 3.574853202997974*^9, {3.5758678771591916`*^9, 3.5758678776115923`*^9}}], Cell[BoxData[ RowBox[{"{", RowBox[{ RowBox[{"{", RowBox[{"7", ",", "3", ",", "4"}], "}"}], ",", RowBox[{"{", RowBox[{"8", ",", "1", ",", "20"}], "}"}], ",", RowBox[{"{", RowBox[{"9", ",", "2", ",", "21"}], "}"}], ",", RowBox[{"{", RowBox[{"10", ",", "4", ",", "18"}], "}"}], ",", RowBox[{"{", RowBox[{"11", ",", "5", ",", "19"}], "}"}], ",", RowBox[{"{", RowBox[{"12", ",", "6", ",", "24"}], "}"}]}], "}"}]], "Output", CellChangeTimes->{3.576169440149053*^9}] }, Open ]], Cell[BoxData[{ RowBox[{ RowBox[{ RowBox[{"Plota", "=", " ", RowBox[{"Table", "[", RowBox[{ RowBox[{"{", "0", "}"}], ",", " ", RowBox[{"{", RowBox[{"i", ",", " ", "1", ",", " ", "hj"}], "}"}]}], "]"}]}], ";"}], " "}], "\n", RowBox[{ RowBox[{"Plotc", "=", " ", "Plota"}], ";"}], "\n", RowBox[{ RowBox[{ RowBox[{"Plotd", " ", "=", "Plota"}], ";"}], " "}], "\n", RowBox[{ RowBox[{"Plote", "=", " ", "Plota"}], ";"}], "\[IndentingNewLine]", RowBox[{ RowBox[{ RowBox[{"Plotb0", " ", "=", "Plota"}], ";"}], " "}]}], "Input", CellChangeTimes->{{3.575021815245468*^9, 3.575021824106284*^9}}], Cell[BoxData[ RowBox[{ RowBox[{"Ok", "=", RowBox[{"{", RowBox[{ RowBox[{"{", RowBox[{ RowBox[{"-", "1"}], ",", "1", ",", "1"}], "}"}], ",", RowBox[{"{", RowBox[{ RowBox[{"-", "1"}], ",", "1", ",", "1"}], "}"}], ",", RowBox[{"{", RowBox[{"1", ",", "1", ",", "1"}], "}"}], ",", RowBox[{"{", RowBox[{ RowBox[{"-", "1"}], ",", "1", ",", "1"}], "}"}], ",", RowBox[{"{", RowBox[{ RowBox[{"-", "1"}], ",", "1", ",", "1"}], "}"}], ",", RowBox[{"{", RowBox[{"1", ",", "1", ",", "1"}], "}"}]}], "}"}]}], ";"}]], "Input", CellChangeTimes->{{3.575021815245468*^9, 3.5750220381386595`*^9}, { 3.575819072666505*^9, 3.5758190980633497`*^9}, 3.5758192699108515`*^9, 3.575957831598812*^9, {3.575957869148078*^9, 3.5759578835469036`*^9}, { 3.575957979939473*^9, 3.5759580185339403`*^9}, {3.5759675073023443`*^9, 3.57596756742485*^9}, {3.575967627328955*^9, 3.575967629684559*^9}, { 3.5760382196776915`*^9, 3.5760382500509443`*^9}, {3.576039003060668*^9, 3.576039023574704*^9}, {3.57604166813655*^9, 3.576041681037773*^9}, { 3.5760533020718746`*^9, 3.5760533247699146`*^9}, {3.5760596598260784`*^9, 3.5760597070005617`*^9}}], Cell[BoxData[ RowBox[{"<<", " ", "\"\\""}]], "Input", CellChangeTimes->{{3.575021815245468*^9, 3.5750220381386595`*^9}, { 3.575819072666505*^9, 3.5758190980633497`*^9}, 3.5758192699108515`*^9, 3.5758195423341303`*^9, {3.575820116276739*^9, 3.5758201173063407`*^9}, 3.575820188692066*^9, 3.5758206645553017`*^9, {3.5760429707080383`*^9, 3.5760429716284404`*^9}, {3.576043372705145*^9, 3.576043376651952*^9}, { 3.5761677471560793`*^9, 3.5761677483104815`*^9}, {3.5761690913480406`*^9, 3.5761690923776426`*^9}}], Cell[CellGroupData[{ Cell[BoxData[ RowBox[{" ", RowBox[{"Table", "[", RowBox[{ RowBox[{"Show", "[", RowBox[{ RowBox[{"Plotd", "[", RowBox[{"[", "i", "]"}], "]"}], ",", RowBox[{"Plote", "[", RowBox[{"[", "i", "]"}], "]"}], ",", " ", RowBox[{"Plota", "[", RowBox[{"[", "i", "]"}], "]"}], ",", " ", RowBox[{"Plotb0", "[", RowBox[{"[", "i", "]"}], "]"}], ",", " ", RowBox[{"Plotc", "[", RowBox[{"[", "i", "]"}], "]"}], ",", " ", RowBox[{"{", RowBox[{ RowBox[{"Axes", " ", "->", " ", "Automatic"}], ",", " ", RowBox[{"AxesLabel", " ", "->", " ", RowBox[{"{", RowBox[{"xl", ",", " ", "yl", ",", " ", "zl"}], "}"}]}], ",", " ", "\n", " ", RowBox[{"AspectRatio", " ", "->", " ", "Automatic"}], ",", " ", RowBox[{"Boxed", " ", "->", " ", "False"}], ",", " ", RowBox[{"PlotRange", " ", "->", " ", "Automatic"}], ",", " ", RowBox[{"SphericalRegion", " ", "->", " ", "True"}]}], "}"}]}], "]"}], ",", RowBox[{"{", RowBox[{"i", ",", "1", ",", "hj"}], "}"}]}], "]"}]}]], "Input"], Cell[BoxData[ RowBox[{"{", RowBox[{ Graphics3DBox[{ {RGBColor[1, NCache[ Rational[1, 3], 0.3333333333333333], NCache[ Rational[1, 3], 0.3333333333333333]], Opacity[0.5], SphereBox[{-0.40107665966900585`, 0.649714743132517, 1.153125}, 1.125]}, {RGBColor[1, NCache[ Rational[1, 3], 0.3333333333333333], NCache[ Rational[1, 3], 0.3333333333333333]], Opacity[0.5], SphereBox[{-0.40107665966900585`, 0.649714743132517, -1.153125}, 1.125]}, {Opacity[0.5], SphereBox[{2.674242077323637, 2.6634495456959024`*^-16, -7.808689359176952*^-17}, 0.258]}, {Opacity[0.5], SphereBox[{0., 0., 0.}, 0.1795]}, {Opacity[0.5], SphereBox[{-1.1760744388661861`, -2.3460148525896907`, 0.}, 0.258]}, Text3DBox["3", {2.674242077323637, 2.6634495456959024`*^-16, -7.808689359176952*^-17}, {1, 0}], Text3DBox["7", {0., 0., 0.}, {1, 0}], Text3DBox["4", {-1.1760744388661861`, -2.3460148525896907`, 0.}, {1, 0}], TubeBox[{{2.674242077323637, 2.6634495456959024`*^-16, -7.808689359176952*^-17}, {0., 0., 0.}}, 0.02], TubeBox[{{2.674242077323637, 2.6634495456959024`*^-16, -7.808689359176952*^-17}, \ {-1.1760744388661861`, -2.3460148525896907`, 0.}}, 0.02], TubeBox[{{0., 0., 0.}, {-1.1760744388661861`, -2.3460148525896907`, 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", "\<\ eJztWnlwG9d5/4WiTkt2bLl2m9iukyZpPRMn6TjNMW2dqePE6eHUTVtPk+l0 qiqe2ml9yJJa27WTYds4oujElSxb0EFaEU9REkUcJHifIAgSBAGQILkgAYIU ARIkeB/ioWP7vd33VktoQTmd9r9i5mEXu/t+3/e+3+/73ntLPr3nwPPPvbjn wAt79zz81Kt7Xnn+hb37H/72y6/SpU0fA2CjduJhsHOZTvmXDbIss5v/i4d/ Y4dNDP4r6oUfKwflinLG2mO3vfUmO6TpYN4yePbLt4W5xZv1zv4DO6Sz299V L+xNgtLd+qGBlV9XvtOxsrKCxsZG5OfnY3Fx8XfVHs8Z9LhX+d6q9PB6vcjM zMRTTz2FI0eOKM+Vl5djg+736LozY88++yxee+01DA8PM8MKpBI16sfORb8v 6MaL9HWQ9Llbh8qGwVCZU8yZvXv3KshpyjObEQqFFGT9vS/qgqdYv0u5sEUD FKNknahDGh+Z3sN0fo2Nij2m8/oPNVy6L1hRf9Hn0RQhYeDsnDm4XceTJElK Z7q/U6P/IRX3cQP60wxoeCRpfMyOYE83vqmpKa3LNh6/ubk5JRTMPRG/nQZm uUff4N301sUj2zRxP8hNGBHIDLDfJJG7dTE2mUw3467EIN1goA/+anHZanDt E3wE4+PjiuGXXnpJuR8IBHA/f575J8SQHAzWHrhFCJvXCUGcbzfoe/9tYsOu 1dTU3MejIW5zbjbw5psfMQD3GoiFWcjIyGBOfJIbZr6wM/YIGReSTUpVLosn tEgYDVmtEtuVkLPUYyFnoWdVgt1hGhQhf9CAgm0a+m+q5p42MHJXiqKhF/Ym 3o8ZFONL1gPrJ55X8wp/ptm/M0Wi8UJrlGgP8S4i0fQ8kx1u4vs6VYgwiadZ mJgBUugjBtH5bRXhq5qTD6VwklUhsvx5zqQoSHywHOYrxjx/4jaqZaPLycl5 lPdmVZm5zQe5Mfb9Oub0cxDDFgP9sq5UMFD267Mbov4aF12qqUkIj50/xiFE 5NmHrm9s4J4NQhKLxURcv8r1xeo8u2U2mzV9fWZDA6lmLfYhT4WYxUTPfn1d FyYxa+3UyvK9yUq5UzcEoxgxaLfb/Tj3jz12/vx5EZ5dBlm4WzXxZIpkZMsK MfgnkgKji9ltZgFu5NPawB741dPySYNI3ZHa1m8Z3PoNPkj9TCKiJ0j5Y13o hLJIz0aWFEbUKRGf3HD896Wo4OxI0XyaB5apOzmwOwwN33rtztTD3q1LLIPF xrrEesYgyjerebqB7gWlO1I7IJaHydOJKGjs+D0eA+YkK0a62KtjUxzYZIC+ PbXhVNWfF1YRRzZ45hP79Re8C0sbsQrU8bHro7jyae2hXQahT67C4vwHHJD9 FourO4wLjZEAuO0v6BI5eV5ilYyN6e84KtO9CAmNc4fmdpp2plswsyMn+fMp 4sqM6eIqxMXa3+o0LkbOFjDs/OOph/PIBjVbwFDBe04XO8aURr4yCDWK+NwG oWFypOkQz/PQMNpFhtK5usbi5X/LuvLLPsyzFOP+Rw6YNObNmnO8Xn3qIyiF 9WVafJHbETWKjdgoNbU5j68wdhrup8TQ2ROTsUkMdwTR3+DBsMP3IgdlXZhw WDeKxqYNbT2QIkjravt2RAYu45LJiiaTDf4TNoRO2xA7Y8NErhUTZ61Yi0/i n3UJKrZiaRsa375hfm5aL+40nSCElywqOmHxZ+7AOEXmgqkcdaZa5bnBXAfG zzswZ2nEsr0Wa5V2rNitWHQ48U/cmH7BtrHbN0ssJ1I8JrxUx7FNuyc++meJ RJGztB/RDVrlPvdoCawmF1ynfcpTMUsfZqt7sdoUwI1WWpq2uyC31eGaowzL oeCPOI2MezYQ/YyQogSpeazeSk+qHuqvWytK6ufUHRqTnfiwUYnpdWx4DEVH 6nXPb8WSaxTXvSOQAxHIfRJkiUbV04TIxfP8xcwuhcdeUnglSc9FLUAtfNKK BW8QK6OTylN6uckyn+h5nia5elNHm/8Hg9N/2HY2nRdJv6MPxe+6lOtx6Qpu BnwL5KU1yNNLkEdGIUfDkC/7MWA277mpkp0oM5XBaapA4GQVhs5UY6KoCnMX yzFZXIJ6syV5j6quvNW9p9Frkq3Kd/q6awZ6ZR9C3cwZ6moaQP0vPZDHw/yV klrjenqvosy2iDrbNBzmcfiaoog1dCBqK4P3tBe+91vh/Xk9PD+tRPtbNjhf t6D+Xywo229Be24f5gOrmPctYr5jBnOtE5htjmKmLoypij5MWHyIX3QhWtCA 4Q8rETpZhl5iuJNaMzXJLeE7ihd3oc7iRBEVnwumGsU7z+l2DOR7MHapE3N2 D1br2jBjL4ctM0Pb+IokuDVitxKqUplKAGpRYzMyw97CY+avD5Fy6yEP+njM KOWDcdyIL2I1uoSgdxHtzgQmzW50Z55Hp61cnSi/hFIKa9OIDHdcRteEDCkh I0xtmFqMfsfHZUyMyZgalTFNz80Ok9AHZcwPUJOuw9O0Cqt1ETXWGTQTLa6S EbjPhdGZ1wdvtg++D1zw/qIBnreJlh+rtDRwWjryBC1LRMss5lyClkFMVUpI WP1ESxtiBY0YPlOl0eKl5qAWdEu/wytIEdXYIpMDZpNXGX9X4QCGLIOYrIng Sssgrnf0Q/YHIHe1YdzTpfRikzn7UCTv1RGjq7Zatq4vWno6bsnqHVwn0YEE 1lptkH3ES5dbeeAGVZAVZxjTNMDLtkF0Fw2g6lwEVZWzGGltgRwawnynxLf6 X4I0KaP+sox2IsBPZPQRKSFOTpTaGCOHiJtk5ESTybkBd+MqzJYlVBM5TeYJ tJZE4S4eRGe+BG+OH97jbfC+24jOt6vQ/pMylZx/taD8gAWePInIWcO8n8jx MHISmHXEMFMfIXKCSNiInJJ2xAqbFHLCp8rQx8lpodbvltRw3oPuVh+KPmjQ 4tRSEMOgY5pcXcLyyBKujVFdGp6GHB7BeIsf3fnF2uJa9753t46kj1o2dQu5 j2PO6cTVOituNFXhemMTVmtdmLd3IH7Jo6Rwx8k2KvDNJKQKTE8mMDhFIR2a w7XOPixVN31LgXkIvRT5Woq0i6LuIwbY7wFqQ4KVCQNWIsRISGXF1bCGEvMS Kq2zaLQk4CyJob04Ag+xcuk/a/BfP7TjyN83Kf67iZXWNxRWxMqkx7NAWdaD bku5tlrRz7L36MK0zTAkhiJX3zjuwHJvEPMXaWYrsWHmQjniBZUYzKmixVYl GinLLhK3NBtu4oVqeFbGyoKMRLMf8tAYlgMSf8m1C4HmAI7ur8C5Nxpx4VhQ MdMjkXxHr2IqdAWx3kVUnYmh2BSimHfCVWrXvEvaZNyy4NmyfsWme/2/FQud QcStTki8hDewWkGpxyZxkeIBIigxvIhr3WGsNjv/WgSXKr0jdxCZL1fxFN+O qx3DmHeMYLRqBNKlYbSdDcN+og/nTB5yux4Bqi3izxRMtsx1dhR78c3aHMt3 J3dpHn+Wd5NIMosUxahTwlhpC9aCEv6csxl0D8B1YRw/3+eAvWwV3VF12TTe 2Aa5tQk3HG4s1/swbe/G5YvdCJz1wXGigxZtLeRetTJZ0cjFCoitWkViiflD SIE1vlj8Oo9TKwl3dHgZY3k1uNbe/ifcYQutZ89kdODYWz5Yqq/BFxd/SrkD 1yYnccVmpVaB2Us1GCuqx8CH9URFLa2DK0lBZeSUoiI+/6lbBfbSiG+cNqd2 7A94jzkKV6g1gjlbO66HB57kjlWccCA/qwvHD4UR8NH8tSB6bsfq2CSmK52I ZltpLrHCz6d3K1vQcX1s45b1BBq9m+HeiFdm08syBiNrSFxoxA2f/3G+6uom OdXn+HD+mATTe3FF/aNL8gMckO2fxEp/AyN/xI1MzNE00DqK5bpOqpeRr/Eh BxTNhvHTF2pQXjyPAFH2MO/CluDiLzHaFszQyDeFkSVaCASvYbKM5qNe6TGh UHc/XOfH8c6+ZlLhiqLCz/B74n2hiJe2+OX7/m9z6JEZKoBhmhadfiTMtY/y 7mZaSZ3JcOO9t7zocl2Hl7T0OX6PqVS8UBRvVNW3I3xBthnReRmr8zdoqqeN yEAEM24xgW6mNG1GnqKGEAJ+UsOizP9wt/7dOt/q/yl3tJ+q+HRkljK/Fwv2 xk/p2KzL7iQ2+3D8qMbmF3kv4Svfq3NM8ZYuTJPJMolxrIFMRkax5JfU13+c webcEDFYjbLiOYXB3+Nu8lfrvDorkM9wg53EwfjQIq52DWCloeU+jaogURVH 1r4mlDOqYjK+ppso2IehcjTxCq07egML5OBwcx/tEhJY7ZW0ra7QC8sQiTKl ljImRAvhaTrfqtFYrdB49E2PQmMnLVp+XydD9gqCb494HVSL7k7MrcgYiSxj KLcaV11tirWx6DjNC6x229F3ugrx/Erai5ThSrNTTD3lpiaF3A8ODWjkfoMb 1L/jIINc43+jHO7EDEmmzzGoGDK/bUPnh36MlPZgsbYb150eLNbVo/QndhQf 68UHR8fQE6TF8JL8BAcXb7L5rMvBf8CziX0Ksqhmv92GeHEAobMSGt9thrfQ h1qb9B3OhFh9soTZeitCVXYUg/ZpmhEWEGxYwGjjNPpqwuiy2QWCeA/N2lb9 AHdofBVktCrn19t7MV/fj0gpZXFODzoqe0k5l7+3vtfiWAL6T+w/jqH/dRPa XjoOe0Yh8jLOYFIa4L2e5cGcH00gVN6C7g8t6DtjQf8vLRg4VgT3j95Bywvv wEpH6+vvQzpehOkCC2YLzVjtlp7Ra+BuBKjctGWb4cmxwE9IPYQkMaSzFgzm WjBMLZpnwVi+BeOEMkltulBFmysy4+p4QvzHxF/xiTPikdB02gwnwbYTbCfB dhFsD8EGz5KAc62IULucZ0WUYMcKVOgEwU4R7AzBzhaZ16FuR9XJUtSfMqOZ UFsJ1U2ozmOFqM/MRuPhbDRR24TmrGziJGAqxCghxglxghAnCXGKGlskPa2H JTETbDXBVh8tQDVBle4/RNlnpu+d9J1JvzNR8momLlIrpla47xDyXjkEBxnq OVGIOMGOF5ViKSCtQ96NFqsDZYdOw3bgEMqolR/MhP3gYTpSO3CYrmXBSs28 /zAuUbv46mEU78tEwSuZyH35EMxvHkWMkBeSnU5HjHKl/MDPUHHwECoPZqah 6uDhNDrLIjFV0LedYBX4/VkoJdgSHfRZgrb+7NR31zsbJUPBUwVw/Pt7qCZH q8nJGqVl0XkWGchCxQGOvF9FvkSoFwi1iFDPvXEUVgql5NGc/UtevddIISxC LFKj1Hy/yIYz4700BX+nik6olRr6YVgJ+dI+Or5J3hwtRC2pqeJUKfo9yUGe OleqsDvBaCC2x6jFiPngiSJ43smBm1pbVg5aqTkO0/n7dJ2U00YKaiElNRJy DdEf8iQFeTdWKO5MitPUJhUhkaAIepQkO5JvxRDJN0wy7idJ95G0u0niPoLu IGgXQTsImgl2OpYQ0CLpVgmaJc8MaXOKYBNMq/kcmpJtiJIufFZN6V6C7SJY L9M8wToJdnZUSzpRDVgernSTxwQ1xZKJoOIEFaN2meAiBBciOIklIsH5c4gN r6gG3+dJthZP4EpXEEvUFqhFqeesP4gZXxBT1JaoUvEy9H/xz2T/fxAHfOy/ AZW7/10=\ \>"]], ",", Graphics3DBox[{ {RGBColor[1, NCache[ Rational[1, 3], 0.3333333333333333], NCache[ Rational[1, 3], 0.3333333333333333]], Opacity[0.5], SphereBox[{-0.4466268831647904, 0.619286816918869, 1.153125}, 1.125]}, {RGBColor[1, NCache[ Rational[1, 3], 0.3333333333333333], NCache[ Rational[1, 3], 0.3333333333333333]], Opacity[0.5], SphereBox[{-0.4466268831647904, 0.619286816918869, -1.153125}, 1.125]}, {Opacity[0.5], SphereBox[{2.652191696325376, -2.1439415706425814`*^-16, 2.2944009799800184`*^-16}, 0.258]}, {Opacity[0.5], SphereBox[{0., 0., 0.}, 0.1795]}, {Opacity[0.5], SphereBox[{-0.565981132937389, -1.7011986567422281`, 0.}, 0.5241]}, Text3DBox["1", {2.652191696325376, -2.1439415706425814`*^-16, 2.2944009799800184`*^-16}, {1, 0}], Text3DBox["8", {0., 0., 0.}, {1, 0}], Text3DBox["20", {-0.565981132937389, -1.7011986567422281`, 0.}, {1, 0}], TubeBox[{{2.652191696325376, -2.1439415706425814`*^-16, 2.2944009799800184`*^-16}, {0., 0., 0.}}, 0.02], TubeBox[{{2.652191696325376, -2.1439415706425814`*^-16, 2.2944009799800184`*^-16}, {-0.565981132937389, -1.7011986567422281`, 0.}}, 0.02], TubeBox[{{0., 0., 0.}, {-0.565981132937389, -1.7011986567422281`, 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", "\<\ eJztWnlQXPd9/wR0+5DvxK1jexK7dtwmTa/Uaadt0rRxmo7HdtO46Uw7GY+n ie0ZX7KceDqua6f26HIcy0cMSEInlwQS7C7Lcl/LAruwC+wCuwsCAVrYheUS ICGQ2H5+7/1+ywM/kDOT/tc38913f7738Xvw6FM7n/mP55/a+ezTT937yI6n Xnrm2adfufe7L+7gpdTPAbCR0u+FOE7wUP7YkEgkxM3f/u4tsUsVXL6uX3hb 22lXtCNBX73mrV+IXYoB5n9Mnv3aNWE+JY2pzD8Vuw3iqQeSR3frt55ZhS22 B02uycefNRHlDu13I+bn51FbW4snn3xSu+/z+XhV8dtg8uYXddDnTG7dov1u XQH6yCOPwG63Y3Z2Vrv29NNPa8c3mLx/19rQN0l5Y7EY9uzZgxdeeEG7HwgE kKLd24CBgYGkHmS5DoefyjeMt7ht1w62fEp+YRQlv8fjSZGyTE9Pa5fFXjwq Httqjmx0nBZAunCbPsVK7KnjNim7gFYW25p8+R4d7a+TF/ik8rl+xu1rq5wh rGZ0hrgrrgurKamN0qSlpT2ko/6NSWilmBh3azKu75HaCW9lZWVpeK+99pq2 J75SXjlM3BLGk0b8is7lW9LMRhaK/fUm7H/3GtEn7iqX6RJsTp4rDHH+1ltv adce/M2032Zy7QuSjZlIKmI+L98T14SrxdkDn3LwxhUOXs8MtxsiS2WL2IQf aHAlulHz26X7MzMzk0FI0aQUf/cZlb3VoKzR6UJJcc6AksUjdYWdf09n852k smZa3WSSL2IT2hEkVb4iLouoWs711GTVEWf367weT/JaK+VV0AhBKyoqvmRS YqiXhPuxSXESHIXGD6xRLMTxffrr/3aNsiNeoTwPmejzZR3hm0l97l4n4pTB v2rIduEYY73UrK57Eg+b17LfWeUKY4ARXgVYb29v8q0/MBhBSBKJRJJGMCvT t6wrgMqq1dVFOEeci57wZxI1GAwmC6jWzdbsa+vzvH2V0qvi75sG30hzmobx +kyu1T+NjeZhg0n379+frJ/CCNf9xpy3G8JGRbHirMynckxwZBfUzv7CcE09 Z1YbblkdpzcaVF1dLFRZEhEkjr8lAYVgyrjLzXDDKkx8d50UKCoq0th8R7pT 5fOqonyTiQq6UfWc1e7cZRISAkdsFFWZy9hevi1FM2s7ynzbTTykWG7WZbjf RLw7ZREx1iBZ8rU7QnPC/6N8VQgtHhElanvSgqkmwJt0nl9cN3nuWMMWQgKe Py51EhwNZr7xszA2U/bWNbJRJooqQUYTP24SqdebJ4NZd19HmJtWle/Vg5aw AY+fNFhePCKEuC5pgJTkkWGW04NlTcY3GvJCMBHWTdFwN30qukSJ4LUfSo2F 2w2OuHltje9LCnbDKj3N5iti/bvB0KrjbEqCbE4ebdHxv/4ZsvUpg6LivlBx o7nvdGfIFneLhipKivKJ2ER7EHfHI3Gcawkh7GxD2NIIf5oNoXQb+g7YMGpv xGx7GHMdISxE4/8qmQmBDIPqhnVl+H1t9/k1S5wAayVvC/lWpBXDmVaCljQH /BmlCB0sQ//hMpw/XoZodinieQ5M5pdguqAYM2dsWAiFcWUsjh+ZGDt1Xan0 qfaudQcE8USM1slNs+JMmh2laWWoS6uEO70GHRl1CGbWo++4E0M5TkRPOTF+ uh7TRXWYtdXgor0Slx1lJDsWHDYsul24Oh5X0a+sJ1y4vqD3r5HjwoQUcoOs O7qcNpykjLa0GlSlOdGY1gjvQTe6jnrQm9WKwZOtGDnTiri1FdP2FsyVujFf 0YyFKheu1NTjam01lmrLubfjSpUVV/tDKlFUD5KFLGVdkb9kaGrGOixsK+qw 6t8ul0sq/wUpfzHy0qpwOq0BjrRm1GW0wn2wDR1HOxDKCaC/oBORok6MFXdi qqwTs5UBzNf4sVDfjqsNXiQaW5BoakKi2Umq5nkplhoYJW2uR2V6BUSgk2ro 0hZSd7oVI1YXZrwhGJcEaipbrkd6bcC9a1R4maNmw0GK5F1laaKK1ThFt1jS vAz2Dvht/RhuG5NVYBuWzseRiIwi4WVy+tqQaGslUSVfHRKtdE2zDVen4t/X Ht+ejM4CmTse5k3wQCmGjpViLJd5km9DLOc0KossKyZyodpthoa29kSnjKL6 53JJTCXnSlIT8tPa9FhYttZmVbRFGo3GkOiiLl1uJAL1SLSX43KzFf+gyplU IpeJr9febejPacFoYQtmHG4sVDZgsrgI7+98MVk0ZDOROixPQWYNNHWlaKlS NOPMbpwshdvU5OhztlIsF13XC/W5Q0Eb92u3Sv5epAkiXAT0MByCdVjqcODy UOh72u2bUVlYSxblWlSU0pBi6z4ZxnlbLyYrezHfEMaSp4sR4CPVI9rs0wuT bAJCbLlQ2bLcPDesFlGTUBdwS/Ke2ozPcpWn+q8oMUobtTxpd3bQGiF59pnn hi3y0cRUFIk+xkGwGlei4e/J/pT7URGN4GEkdaMis197NVwcxXDNKC40j2Kx jSHUHaEN+xCra8HZskrNV0JCkX0ypuV4rQmwYdUQoZ+tvJYU3/CG3lDFJwC1 iUDZLnUqPVGGxIWI0maFnmvpvlUZ69IF6u7CUvysrOoPodMTZLm2stxZmcBW VJNqSU6Si9REaiZ5ZL3yktpI7aQOkp8UIHWJWkYKkkKkMBt4T4YdPQdK0Huo FGczy9B3uAL9RyrRf7Qa547VYuBEHQaynBjMbmALcyHjuSxkPF+JIy81w/mG voAbPu3DtKMuVTox1j0Bv7UN/tOF2hXVJWU6SvuvsvryYLdxLfub+kn3hHCx 2sTIojzhzs/H0kDTNTzxDe04/YVSuHfVwL2nDp599fC82wDPey54ftUEz/5m eD70wPNRCzy/9sLziQ99hTXoPlYFzwE/PIcC8GR2wXO4G+4jQbiPhuE+3gP3 iV40Z51Fc3Y/mnLOoSl3AE15g2g8OQTXqfNoyB9GQ8EInAVR1J+Ooe7MKGoL x1BbFEd10TiTaAKVlklUWKdQbp1Gqe0CHLYZ2G2zKLbNwWq7iCLbJZyxzqPA ehl5lgVkFy3g2JkFHDh5OQWTnVdYxSa7rmKyW9ASJoOkUAITgsKi8Uz0sB5M 9ArbTJzlqCeoT9wY7xelafxcAnFBA5IGExgb5CtjQ+KVUf6OntcphWVa6zjD CURJB99ugOXAWdTkB3D6/YhmZh/hp6Yva4afii2gqWSc/bwf1iPt8NuLkx+o RasRVVZ7R03desu4/hrRYNxEBdwui/LiaA+WetkjY6E1c3H52nIRb+qhqNXN uFjfKGuU6EcXMNKlD8f6IvpGFHKs+vkTNnzwsxY4zsygwzelYUy4RjFYEUNn 0TBcJwZRnN7DQtZBcqKptMH4iVzNvKr/3mRQ2+zjphJxddIYTaI+BRjXH8ok CyNhXO2uQKLXhQSP9VFEQRla4QaERhPoGlpix61FYmxkY9IQM1pVHu4OyK+f m1HM2fLY2178+s0uFFcvoeY05y5vA4eTNh2dZhwr68G5wjA6soKoz/Bz2Gkh Th3Jjt7OHgUvi8Zys9S02mQwi6G3yM3Mp6uruv6c4eHx8fFkpVIfUC8NhrDo I/MuzolhlpFe6jEeu06yHZxKYDC6iCu9/UgMD6jI1S3iJdWjt6Pr29LUZRku 5LzrR/qeAQTa2Ztn1NR3PaK9cSxWFuNqVSXmy52YKm7GcL4b4eNutGY0opKG yWd0ieG9yuJS6zkxb6nphFGz2aSvbDRY6rNWVs0ud0hfXmy0YsnnQMJfg0Rn I23BYbOrgwPbqJyANiM2y5IQu8T7AXQVNDCfxUTUQCrTv8vTln42serMdrz5 YxsyPhpFoDuBkdmE7sltWOQCbfqUFZMnbYhmlaD/EBd36SVo4MBaTK3z2K+o +SZDrgjtxcdRlSubrqG+WdkwqHodrkzRCy4rEi1U11vFSYoh6+Mc4qPbW6ly sJ+z9xiuDo5J4K2Yi80h1jGGiG8Udel+lJ3sQZ83gpHCcmS9k0eZG/GX0gQB mqD+WC/e+UkF0g5OoZOl8PxcQlnxQmsIEYtLa9mNpFYed3EZIkZf9Z1Q/W1g Wbe19d2QLBeGQP9Usuh/UrkTVyfjuFJP5V2M9yZWhCameSOrgquZ66MWLNZ5 uY5qx2xFByYdfoza/DhfGEDfST+6szrQdrgNTeleDiceDisujqq1OHg8hPf+ +xQiDiemvUH8uZQx6AmhMS+Cfc/XocRyCQG2lHukeCLZDX9XWUfJ5Ul2Y7Iw LJetO5VeE3EuDrhOrbZhqcaBqzUVXLfW8Fo95stcmHM0aekWL3JjuMCDgVyP lnaBQ81oSW/kkOVEGXUp1NYxJdoiRHjEP5JAuH0Yw2cq8CdSrMK0UmS+3oT9 P/OgpGwRfvbA+6QCxm9pZl8FpVJ/rO1uZU0JYb7EisslxZi3l+CirQwzlgpM FVYhXlCDaF4tBrNqcfZILboO1MDHNWMjRaxmyhVTzFN6pdBEVeudcxMJxulZ DshB+RfPjXRVtVaqP2aptlZegS+akH9kWvkXToq+bFv5ne1Ptd12LARDuFjn wtQpGybyijGaY8fIiRIMHnHg7EEH188OzqIlnFHtnFuLOcfaEGwJY5SyqZo1 eoGThdvPhY8XX0lWzAZZMc8h0MGRghXzQZlLwpzqc4HhK5P88PywTKmZthAD L4RJplacHGNMp2HSIEktVqZYvCZqPZhnoH95RbFqQ/5HIRYrdu4gi9Vc4g9V z2NHVd9/9MzEo9Jm/v4ltDCvR61OxErr716R+j14+yflsOdOa6k/NJv4I/nW qmWKxHxM3u2JM9QiV7DYN8gmPXSnNE83MRtzV2bRN+QrqpOJ7kCz6KsLPCHv nqexI9HLWOru5njce5shfN2FE9j/c7cWvh0j6o8WG1Z8iSW4XB7+QL45Nkcb Rmex5G3FYji4PEbwXidt3cJI7CZN8Hgu6fWNsDL6jr4joq8THZ4leBl9f2Ww ifqwSa6S4w9lrZ6aT2BmWJ+vZtroLaKLrS3DgQHG3XieXesnoq+kSm6ljKds xlOaiid6/m+lS5V+gqMM73+RY50G2xKDc1eBdtyb146Jkg4s1Hqx1OhEw/tH UHXIpwVLugyW4bnE35sUNFpOji4/Wp7otqBifwCDJ7vQd6YT57L8qH2vDPWH 2tHcGMXgTOL7Ukbjv4RsNMq4TcPJ3VsF2yd92nFnyUX0lM6hv34G/VURBEp8 XJd1qb9oqKFBtFATpOw3q1Cf1aMdX24+h1jFIDrz++E8EYa/th0z8VGFZPwb 1AqkrZhg8qltNqsAY4e43Nxvh/tXFZz2KtFU4cE/66/ouxsQ9QUROGxB8IgF PUct6CMF3/gY4R3vovPFX8L13C9hee5d2P7zY0QqG7AYG5MxiH/SdjdjiH3G c6gIvkwLOgjVRagQYXqPWdBPGjxuQfuuw/CQgp/kIp5twUSOBVM5RZir0iGf MKbLrRhoDcJ5sAhNhG0hbBth/YTtJmyYkGcJeY40eMKCSJYFI6QYYeM5OvRk bhGmSQJa/9OK3N2G8cgYKg8Uoo7wLsK7Cd9K+HbCBwjffYzL9ONWsrDi3Akr S74VEUKPkGKEHiONE3qCNJlXuAJ9C3ooeBnRq4heR3QX0Sv3HIL9jQ9QsGN3 CvJ37GYuneRv3su7kU2y8ZZz3yF0pucgSvAYgcdI8dxCLFD+x4wcNiFEDsUZ hXDsz0YxX7Xs3A3rTiJbd+6hP6079/LSXhS9shdnSAU79uLUy3uQSzrxEh/9 rw8QSM/GCDlEyWE2EFQcnpAhVfR+Fmw7d8FO5JJX98BBSuHvXo7NJfy1E76Y ZFVsyCKflEcW2WRx7MXdKHx9P4ZylXVUFew6kIUSopa+uhtlr+5J4c9e8bOP Jinlr2PnPqLvg+2VfbCQNOSXifzSHmQR9egLu1CVW7rSpRsxQx0i1CV8IBvO X3yIck3gCop6A3/38XyfxqSU0CWCBaGtpCLCnyb8ScLnEN7yfjYsNO0K+Nsx R/gY4aM0mTBbT0Yu2t7LRDn1F0zKSWU7dXjHKwKetiEJeNvrH6Jk1yHUMBbK DxTBTnjhwcdWshB+HieLuPS9CLQRkgi8Ica2991MtJDc+zLRRGrYy+OPc+Fl 0HoYvI0Ms3qyqGbYlZFFPDK20qu3YrbKqaWFiFuRJqOkKOGHs3QWA4z1PsZ8 D+M/yBTrPKrnhJfwIkdEroic8dqcykCqAIgknhLpIFJDpAhho1kS+oSeqX2E DB/VMzhwRM9okdkiw/3FDaoA/EAOOCJxZ8UHZkKNk8YIFRXJThoSyS+KAKFC R/R6I+pOj70BF4bHpFh4UpbXS37OSh2cSMobMMJXI6JuiNLE18dZMOOk2ZEx WRf/D//N8/93aofP/S+UQ9Io\ \>"]], ",", Graphics3DBox[{ {RGBColor[1, NCache[ Rational[1, 3], 0.3333333333333333], NCache[ Rational[1, 3], 0.3333333333333333]], Opacity[0.5], SphereBox[{0.4485940933918267, 0.6178633131599296, 1.153125}, 1.125]}, {RGBColor[1, NCache[ Rational[1, 3], 0.3333333333333333], NCache[ Rational[1, 3], 0.3333333333333333]], Opacity[0.5], SphereBox[{0.4485940933918267, 0.6178633131599296, -1.153125}, 1.125]}, {Opacity[0.5], SphereBox[{-2.6466158707891596`, -2.4501818191107063`*^-16, 3.994807571567176*^-17}, 0.258]}, {Opacity[0.5], SphereBox[{0., 0., 0.}, 0.1795]}, {Opacity[0.5], SphereBox[{0.5552282327781868, -1.705006306964209, 0.}, 0.5241]}, Text3DBox["2", {-2.6466158707891596`, -2.4501818191107063`*^-16, 3.994807571567176*^-17}, {1, 0}], Text3DBox["9", {0., 0., 0.}, {1, 0}], Text3DBox["21", {0.5552282327781868, -1.705006306964209, 0.}, {1, 0}], TubeBox[{{-2.6466158707891596`, -2.4501818191107063`*^-16, 3.994807571567176*^-17}, {0., 0., 0.}}, 0.02], TubeBox[{{-2.6466158707891596`, -2.4501818191107063`*^-16, 3.994807571567176*^-17}, {0.5552282327781868, -1.705006306964209, 0.}}, 0.02], TubeBox[{{0., 0., 0.}, {0.5552282327781868, -1.705006306964209, 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", "\<\ eJzlWmlwW9d1/iKSkhdZm2Wn3lLHiR0nbma6pHsTu8tUbadJ13H7V6PJjJ2J F0mUa7uxY9muJZK2E8mxDIkmtVAUKVILAWIhCRBcAYIEQawUAe6kCIJYKIk7 ZIpEz33v3odHCqT8IzPNTN/Mxdvv/c65Z/nOffjh7twXfvzS7twX9+x+fNe+ 3a++8OKe/Y//7Sv76FLWVwDoqR1/HOw4RYf8R49UKsVu/l/u9rJdFsPznHxh n7STrkhHrD376771GPvNZle+tvZDX1t1TfW4hHoDu7BVupCDZDKJpqYmPP/8 89KDIyMjdFWMkr0WBuDn0u7uFR3s2rULR44cwZ49ezA1NSXtZ2dncV+Gbh6V u/mZtNuodJOXlyd1YzQa2asbpNvZKC0tVSDSrXU6/E9FxMdVXYv3X3/9dWi1 WoYsm2uAAWUg2Z494na7SSx5WHX/aS3+R+a7j64SRWhkhShZkobFWzn8mlpZ dysC/Lbc8w+UC/SkmFD5jLbtmcE8JB1sygiGKYAp4l7+KnsmGo0K5X5H7uPZ DGa0IYPet2UG8KBKG6xzNrEMBJsJUkEW74lJLN66i7/CNCTwstngs/Jtuevn uObU4wl8OzJj2cm7X60M1nk4HBaq38J1JixC9KCenad/LcrZnsFU2MaURKMI 5TBdWSwW6WwHv8YmkIFhZ9+6zUByVhiIOL5/ldvftZa7SaKSB/8Wh82shN3m M8DH+5sMggpnY1PNYL/88ssSTI1Gk5YoGxOdIcSpTVKbDye+qrL/gwcPShCe kgf561VusHMtv5LulpeUY6CzF40aPdo0BnRRCxw3oveEEYNFRlw9ZcT4GQNi pXpM1bch2R3aycdmXQqFPimP/ZdKcJeD3cMZxxYmwZ7oprEv0dhGGteqMcGu qUOnxgL/8XoEi6wYPNWAq2etmCi3Il5Zj+sXzZi+XItZrQlzOj2SdjtuJRLC XIQHsI30zmH9VQa9P5QhfnI/TgedB9Hf349oOIFyTTUqNEboNLUwa+rRomlC x/EWeApt6CluQ3+JA6NlDkQqHYhfbsN1nR0zBhvmTS1I1jbiC7MFi+YaLNbp sdhhF1lEHUPFPH5TBv1n6yaTr6rClDpGC7dnisjiTwbIZhj+ck0NLmqspOsW 0nUb6bodrsJOBE650FvqxnCFB+FLHsR0HlwzejBd68a8xYWbDU7camzHUrMN yy1N1CxYbjJgyW3nDrnSGL6xttZ3ruG/TASSfSOfGlnjempm0noTqghtrcaJ phNutBd54TkdwJVz3bjWHcNUTxwzoTjm++JIDsTxxVAMyeZuLNr8WGrzItXe hVRHBzUbHTcg1WbCks/OPTpbgcI22t+nmPD9a4uxfY0cLjxLaIMd5/Bn0zJZ qLXigqYD1Ro3WZMfIy6SY3wO94hwPk3eEYkh5fFRc1FzIOVuRMppwvKNxBaV 9bAhWShmENaiDDvWlmRLhmzDQhAzRgpBwvRY5nM6nVxl8isBcl02QeUaG7VO cmMvEuHZbSJBxwl/jwepK+1I+Rux3Ou4zVoY4Ox17XyHKrBIQW3LOilJBBXS iUjR5RRTysneGcBAZzRbyTfSMPcIgebpxbF+pEKkZ79FDVPEhM1rg/vROpRB EKMtfKTI8FXCYqXWQRYxszr1sS0rw0j38mupSC9Sva2IdHVCHUMYeRSuz7Rw 79pov6Po+7H1nVFgY/2LPoR1eVs7pXmPhqczTlumlL5ZkaEHUZ9H5UhZCAaD ikHcszb2ZzKo6xGufXUCZZGQRUBB2O7n7/la3bDqeoSFptaiQ1v487GhcUS7 /SugMm2xMdjspiln9ioDlaP4HcL37ZSXbSSISO++Fi+ifYMqvJsy4vV3zUFb fkNRMZMx2tMtnW3lQ6nJocoyt61pbfhuhlv33yHysbtM6+xYkaKZJnuoDank DERdou5TsXn58uEzC7CM0K2F68IUmJmVa+zkwf2cGa5PNrdmGEX4/Ka1hRNd ZyJ5zLRY94/y9yaGIhTSmsiaQzL6DYocouRIJJdQWb+E64sppTAinydJnNQa WAAVXEptVFtX9rYK40aVF9+ux20qu1KXfmzyVS7NbjEB2dkjvKdlfy2FFjtS 4V4WD0WF9fNXtDhjuLXCq7sGJ1fhyeGCuaTUxogGS3c7eddCMm5yW76MgM/c MeILk2PmRvJ9nQO5FSJL81sp91AsD7mRSkSVcQ7uM+GcZVkEIum3sGZJGVuk tnh4Fo26AS6QnedsvZp1C1PbnHkiMgVALtmfrOH7LOVSHH+Ke9jiSAjLTiPl fuIsPiYT8QAf8YGJGN7NbUBFc7oMdkdohPmEapLuIk4Rh1M3CK3GQxzKydN0 PTUDY4RCFmF5rN64V9H5BrUdiygjO4d09ocqGTIUqZlKdpmLP4RbxL1SDhNx GZqjzlZqHXj/JxZcrJshvubHLf8wFofjuDlInK4/jtneOM6en0GE+FHcH4P7 dDcchT6qWDwwUVa/rHHgvKaZzxFVEcS8RRnGhFIZ3va1J+UPuPVkohUbmFi/ w+P2ksdOBNiAVKsZha9ZoLXeIGLcjsVGJ5LWLsya3bhh8iBe7cX4ZS+GK71w D8SIZHcR2XbBRom/nuisnkhJJQWBciooGC1ksB/JYF8blZnYpBzJ9T5+d/0k 8nvS7Qew2GlHw5uniDCbsGgxUynSgIXaZsyZbJjSt2FS68DERQeunndg4KwD n5NDeE7Y0U6e3Ezku47oipbKsvNU/rAygpUTIgqyuWfDMrQ564UkHm+/XOKQ ke/E4beH0OBI4GabHfPVesxVGzGjrcWNy2ZMXqhH9LwVY6UNGDrdgFBRA+pL utD5iZZ0XEcFTg0MhPgi1y3Fo8cyW0X2urif4Wa/ml7wxTAJ7/ekZ3Yg72AY dX3p1LwYI+xXejHT0Ib4OT0mzhowdtqIoSK5wO6mQrv0vwxoPGaQCnCnrg3B ztATKjMQRWHWuiCfzmAJbOPLIsIdWTHLsLOz3+fXCg7FUT+YUjn3RtxwhXCN LziwhYdpiuWe/siTItpwosnEXx/Xk3cI3UxCKiv+mHf80S+mYB2Sc41gmkW1 6fD8DT4YAyDoDB2vwSk4hifWSepMu+zan/LB/M4gfvnZPLxjgkMQ1Y1SjzPj qhi2cmbSoVIOLxmXT9kWCATUk6HmLn+kGv/FnwQQvi7ISBYuWJcwvahWgByl 2GSK7tlMPCCP/tiXyJYWi+XPlRH78NK+IMan0itl3r4xBdkTXBgmsVhfYN1w BiFneBUPzpTRs1ZmlCzepdpQVe74AwXZIPa+0Y/ITErh78V1aWN4SjUXouzh Jftd6eyVvSJ7QV38iTCq2tTPFhcXiy4EVeKU8/sKwjG89s4IJmbFwgZxXWYt U6MqhOnFQB4ueC0jAclelWLls9vTbrpuld/IERCVtxjGZxVgE3jzEJUu8ylu FsyMljFzK7UCmDBBNpk0AxzYKjhpPpCzFrCMAsgQmexiYw6Qnt0E3voohthC SqkTvKHhVbMrr86w4pBtBJe7mBSoNt9haPXGond62q7j4CeTiCdTnChk4eRt hiXX1auXLLepxs+0cCzUslpVamysX7apVy3+QsE2jfc1U0jcFCuUZFIxwnVd LgK/za/xGeOeJCx6owqdKh4qE7nSNTPZ2soJpxuTk2mqr4CkavNQ0bQE8uEM 5vU0H5+FaLGsSoJuyhAaclSIv6x5SfieE1i8SRRVLiCxkFRIia+nXxngW6rJ XPXVgqtrbUCZDEwaXPhZd2ARp3RfSGcPq02CUaRT5iW0EF0aJPLBkulm3v8N TwhT3hBmqM36Qrg5EVfMUD2tOXdAl61Yn2rCbpt04W+sjCutlVOrrKdNsGhb pWeqjX24ZjZhorQWUxcMiJlauQ3dh6g7iGEiiqFTOvSf1hHV0mHkjA5jJTpE zuoQpZYo1eHaOR2S/hAWo3EehbMlSVQfQdYRKB2wcxRjTpfSQoaD+/Q436j+ aHk3omPRFc43eMmPGYsPt1o7MWuxIkIVhZwDtmF6PA5XkRbeYh0CJ3XoIZl6 SZ4BkmeY2ijJFCZ5JkieGLXEOVmuG2VazNXbRIhXs/NMaztcpn/nt947UIcL bepPwHdLj1f8yoWG4iHp2HehGzddE5h3jSJw0Qfv6Qvc7nbAb7DBQaidxVq4 CbmPkHcT8iAh7yPUg4R6hNpVQj5eytET6kQZoad2o5zQW23iC5+aFxARTmuZ V3b/xmG//3ortJ3qD+My7MpfBlGY65GO22oWEbHMY8RyDd01A/BX13E73Am3 nqqHz7WwE/R2gu0i2B5qfoJ+haCHzlSjv6QaQ2erMUJtrJTDJ+ixMg6foDP4 s9ZWsbDBlM8ouHrBk/Z8xepfOfgP/tsFvU8N/iGYC9sk0K+9cBUuY1w6jjdG ENSOofHkIDpMfRjskpclJ8NxWAqr0EgCtJAAbSRAB4HvIvCOT8vQlF+EZmot BUU4v+8Qyvcego2ON9Dv52QAE2WyEHECP0nt2vkq5dPl6jUrziPlpS78C5fg 0FtXYOqRn3qEv8nYYeNJHw7uNuDEsQS6Qyl4A9fkoHMfZuu6pM83vpMuqtns UmUZHpYL8D5XELUkUD0J1EQCNX5SBmseA6zLPUzv6nLzoNufhypql6ld2peH C9Qq9h1G2d7DKH31MPRvHUXPiXOIkUDx8iqF8giGyXyCS/HP/FbeOwNKQSQ+ uAVIitaSAXzwQj2MFTPoHkphdGY5iwel/osdNO96REqMCBWaqJYz4hKFUVbD beBdhEga44kq1JE0prePwkgyGA/kbYDpQB4JYzqQD0NuPvTUqqlp9+eTYPkk VD4q9+bhPLVzJFDJK4ege+sIJhRh0pSI25W8bId/4vLkvzsGy4B6CTcHQWcI jooIPnylBSZ9EoEx8UE+B3NUOLEiKkytlxpbFBOC9rh6UH2kFDUkQO2Bw9Ty UCe1fBK0ln43o+ZAAUy5BSRgAUlTgOr9sjRCkvJX86SpOUOSmIsuP6Dy8crK ShGlOM/9ERfiw7w4PGNyKniAA62iivnk2+04+kYnjOZb8EVSikqMbx8hUIdh JnAWpmXLa/kb6KyAVF1Hv7XUagTI/QXQEbgqahf35qOCQJYRwPI3j6LqxGXE yLFEv+LrFa+kOcofcpQfH5nC1Un1onMO9JpGnPnAg2Pv9cDvWoZzfJn/XSIL Nynx9BWeg/3do6S+eoaznnS4lX4LCHaBBFiCmyvr1LCf6bMAWoJ6iaBWki51 H3yOGnITPRlXkIxMMFPGYli0UegW8I/81pHj81K5xs62c5x1hXaUfRyA5kMK 54GUVCA8JEwiECQPqkKUvMj3cRFDSnitHGp+Gm4uh7qfQSVDJpgMat1hCj3k wQ1k++ZCsn+C2ktQH+RaZTWBSLrKF1X8g6BL5HzHTi9K5Z74MMCuNRT7cOFY LzTH4gj0pjA+l5Iz7INYIMCTBDhBgJnrs9g2cKIc3o+K4aFmIQ8zU6ujVkNA 2/KL0ZpXTHGyHJ0UMx0UO20EuIkA1xPgWgKcCMcF5VF/OOaZ8+8VsCG8ciAo VYD38QdE9PifFy0wVk4jQNHj6zzlsFRxnUfcOKGMUotQOglTWhktrcYwpZkB Sjm91IKUfgKUhrwU0bsIpZNQthHKFkLZSCiHXEHBvxkpY5vyDy/g7xSE/ch9 qw/ROfHRhMWDoBQPCl5tluKBn+LBN7kZM3Y0xVASo2C5OU7ootQipRwl5fAh yuX9lNd7qfWclhMmS5wuQthOCO2EcKQrqDBv9YdPDm+XAm8Er78/hNi8+ADB PL0WTt11HHnDCQN5ujciCPt2GV4ZgycTHwleqUz0xs7KNGPojEwEGSFkNITR ETdRk5DRhikiWPzjv0yR7yGHT2CAR0AWCRkTXgjLK9V+5zh+VjDGCrFNag8/ xDz8iuThUZr673IqmvQHidrZMEmI4owpMMLDiE+JTN8GCFUvIeohRDE3EWxC w/8A8n2FMFPgvXLcgJGTBkRL9DQJ1XCetOGdIxOI30x/FKw9YUPZL5gHj0ge HCEP/p7wYJ9M3qe9MpFfiMR5XcZLzB04++klabBmEkcynXN2JC7bMGdshvsz C947Nolxmx0340ITzAW9kgt+9mkc3ZQzw3OpH8u9ynXXVnjsbpynHk0al9Rr X0UPJoykFGsPwhe6aLRWJKjGjurK0fRJO/eRGQSGU3hR3dVmmMvNqDjaBkvR INyVY1J3k80TGK0eRe1HTly96IftV7XoNbTDYuz+6cq3z35QicqPuzDUOopU 8qb0tr9rAXlnFlBdt4iJ8BwWRiYw1OQlaqtb9bbltEPmy0NBpPpHpOOl/mtI js5iamAW/qoJNJ0ehbOaiLDesOrtxashpLrMCuFf7ujBQksvEuZ+DFX1wV0S hOW4FxWaNvQ6HT9VT8y9mK+rxlKjEUsNViTNrbihd2C8sgPBUw44jtvI/qzS RwSWqFe8eg++iCUw12ynCqma+Jwe42eMlHBM6CKCYtHoUSkvjb+ktv9NSFJH U/x/W530xAjtg5wJvCw/+hvxt9z/zzt85X8BARWxkA==\ \>"]], ",", Graphics3DBox[{ {RGBColor[1, NCache[ Rational[1, 3], 0.3333333333333333], NCache[ Rational[1, 3], 0.3333333333333333]], Opacity[0.5], SphereBox[{-0.444670413936989, 0.6206931265481413, 1.153125}, 1.125]}, {RGBColor[1, NCache[ Rational[1, 3], 0.3333333333333333], NCache[ Rational[1, 3], 0.3333333333333333]], Opacity[0.5], SphereBox[{-0.444670413936989, 0.6206931265481413, -1.153125}, 1.125]}, {Opacity[0.5], SphereBox[{2.618841948109357, 6.004054745436934*^-17, 1.5715996632542762`*^-17}, 0.258]}, {Opacity[0.5], SphereBox[{0., 0., 0.}, 0.1795]}, {Opacity[0.5], SphereBox[{-0.5766389867683922, -1.6973938678718206`, \ -2.220446049250313*^-16}, 0.5241]}, Text3DBox["4", {2.618841948109357, 6.004054745436934*^-17, 1.5715996632542762`*^-17}, {1, 0}], Text3DBox["10", {0., 0., 0.}, {1, 0}], Text3DBox[ "18", {-0.5766389867683922, -1.6973938678718206`, \ -2.220446049250313*^-16}, {1, 0}], TubeBox[{{2.618841948109357, 6.004054745436934*^-17, 1.5715996632542762`*^-17}, {0., 0., 0.}}, 0.02], TubeBox[{{2.618841948109357, 6.004054745436934*^-17, 1.5715996632542762`*^-17}, {-0.5766389867683922, -1.6973938678718206`, \ -2.220446049250313*^-16}}, 0.02], TubeBox[{{0., 0., 0.}, {-0.5766389867683922, -1.6973938678718206`, \ -2.220446049250313*^-16}}, 0.02]}, AspectRatio->Automatic, Axes->Automatic, AxesLabel->{ FormBox["xl", TraditionalForm], FormBox["yl", TraditionalForm], FormBox["zl", TraditionalForm]}, Boxed->False, PlotRange->Automatic, SphericalRegion->True, ImageCache->GraphicsData["CompressedBitmap", "\<\ eJzdWmlwG+d5fiLqsGzLtuIjduqmduqcnXTSTGZStzNpO2njpk0bp3Hc9kcP j9up7TaObSkdT8bJjNLJWIfbWrI9BSVRl8VDpCiRAAgQBG8SIEiAAEmAIMBL vEESoCheEkVR3D7f7rfLJbyk3H+Z7sy7WO5in/c+vg/8ixf2v/TPP3ph/8sv vvDEM2+88NpLL7+474lv//gN3sr5BIAKUu4TENcKL+WpAoqiiIe/ch//Ij62 CyH/TLvxkvqRA1VuRRUfnze+9IR27+WsLwl6TN6bm5sz7t1tASYhXrGAeFg9 78Dy8jIaGhrw/PPPq89dLhe2GzJst3jzNzYH/aR63r0B9JlnnlFBFxcXMTU1 pX4/EongXov3P2MyFLZveMRjr3qxy0A/dOiQgZ6fn6/e2yZfFZzffPNNvPji i4LzPZszU52wTTx4wCS9wNMxhoeHVenFU2Fxca3z0e+L71OOu6wll374psGK oug+0v7i8TtZ6pmNJ1QVRtttcrx4Lu7dZaA+qYH+gUUkbLMwwFfU807LEKBe 20y8dDV3WUSNNDG+rDH7Q/kVMyddCjVGc9YtskuNCKHcq6++qvIVttZ9ea+U TwigG0J/brPZvvx/03a3xb3HN7GAuKZKe+VjXXudpOW/9BGv7tjgVf3aKvi0 DL5r00wROlZXVz8s40l8LZFI6Lb+oob9xx9TzUey1NQTRzClAz4tmQje4nZ5 eblgJJl8y1DPSo+HJFPhR6ucEez0AHlcvq8Hrvjr8xqTZy2g92ZJrZtIfPJv vTQJaXUH/ZopZA8cOKDelxy+Z5nmVqY3p/mT0jRCPf17VEdi/r0pY/VA1pGE WMIQX8gqFDKTP6chPJ2Vuzs3FB+BJQxlSkZzKH4hqxiIZ09puL9rXYd+fYsS Mz4+rmbhb0tUXQjhvXuNvH14S/xPb+IycdBAXzMFmh7kvLbqBA9tyedRmT3m 6qFHnXgiY+LrFgZSC++mvW1rtg9vEZHU42n5lnCZqTBmN+Y789Ha6N13jFCZ SDqK0Fqvj/zqFnzXw+6BrIgwh7CICGHV7SYz6uyftjCtVemRDL9jEd3iiMVi 4tVvmcqckEBabpch5vYsgfHtO9RPYYtgMKgB79jwWJoH91uIu0dDf8qId6sO IYBEdTl69OifWnQIk2fus/CvjqxZC5+zkOJRE1M9xMUhG6BeC/RoF/QdkwVL Skp0C+4x7JZjwUebVrSqsGlKPGKKkOzCJKwgpPie5C4sZDLxx+JuZYAHLawu DhGN1OqHWcEnRLnHOpWsJoEtGN+pN+gc/X4/fmht8t2G0tuMK9O4p+FvKsB9 UvPsyibVzDFpzvBW/3rOwvgcjx7YXPOnDMH2WOgrDtl1jHgW138nAc3tez0v 13NVqzv46hYZKiqLjJ1/tLZizlaVUU6uD36kaglMfdrIjGdwJdSLUVLQ5kQX KZHrxMBJJ4bznBg/48RSVy+uR5NYmcrgbyRHMWbpDZxYWwvyW+rHp7ZcMnid dSgjc4+tAo02N9psHnTmViFx0ovBU16MnvMiVeBF+kIVZi9WYu6SCwtlFVgs c+JWMom/NdUw3e56NFmFt6yQ2vj2uKX99eFEfGOKdqq1t6DU5oLLVoU6Ww0C tgZEjjchnteM/nM+jBT6kCrxIXPJh2vlTVhwNuK6qw7LldW46anESpULKx4H bg8kn5cBLCQ1lfKt8vEBczpYd1c6JUeWRnUdSZmLaNILNGW5rQ5eWzOabS0I HW9D7EwIvefbMXQhjIlLYaTtYcy62rHgCeFGdRtWagNYrffjdkMj1hprSR6s NdDUtZT/auY5KYUIA6GDDIOPIf9n1Y+7N6va2b1B10foUWSrxkXqUGFrRV1u OwInO9Bxpgs9BTEMlHRjtCyO2ZYhXPXEMV/Tjev1Maw0dWHV1wGlJQyllaWg rYXUyOsa3nNhtYn6zGa+K9NQmCwRStJUDrSSYqT+XAcWwkksj2d0vUQQ60Gm ZrNWio31WrZz9FlHKKhpdM+GOUFQjBlYxKi6YPPjsi3EROjEcPs0xiNpWQp5 Hk9DmZiGEolC6SD/TmrU4ePfdVBCbtz0OfDnskLW2v0oofhuWq6FCRU77sHQ GQ+mCipxraQC86UOTPT0bBg0KM/Dpm63+Yyq95H898sptB/FtjCSoamcjQX9 LmkORag5PAClpx1KnA6I1mEt7MKt0aRsyfer4orjMp1cRydHTgTQdz6IVGkI 1yrasFztx2pdHX707HdRejZ/w7JJyrzeU6waaZZsOdLjumvEIUyhu0QOx/pq ruB9LxWNMEDWdzU+RhPVdwKU6wtQ+umwXmofr8GNkBPaVLSHjk8S2q2+56Qd fSdjiBYkMVTeh4y3H9cb+3C7NQEl3EVHt2Cg3AtzIIrMWR8HTBsdclDR5dFF 1CTcaTzTjw1qbDeMIg7G7X2SY7ghiIKjNfKvj20IfepVUr00hA+3YpWaAbS3 70OgYBRxewqj1dOY9U9jOTwFpXsCSpI1oT+BaL5dhTh16pRR7+gfqfS2dSiL PaOswWK7IeR2kyn0XTdxyHKs69zR2IFUNLKpzhvnBH5jMoHV3lr1rydl77vE VKwgeUjVpFpSPamR1EzykwKy6rSRgqR2UpgUIXWQOkldpKisTN2kOGkbenh+ CAmek6ReNvDe4y70nXCj/2Ql+vM8GDhVhcHT1Rg8U4MrZ2sxdK4OQx82qHrk vlKhRd+/NyJ2rAGjRQFMlgb0LFLmlhCt7EO0vMbILNM2i97lsyy/Ptzt2MwH lr7SdodEWpq9oS9DOhpYzweboCzPbx1+X1dvR6pSCJ6IIsScCuZ1I3gqjuDp HgTPJBA8m0TbuV5SH9rO96MtfwDhsl6M2J1oLRpCoGgYgQsjCBSPokVQyRj8 F8fhL52ArzSF5kuTpCk0XZ5GU1kajeUZNJTPoME+g3r7VdTZZ1HruIZqktcx hyrnPGkBHuci3CSXcwlO53XYnTdQ7lxGGemS8yYuOm7ign0FheUryC9bwenS FfjqV7ZhtnuVOs/Gb2O2R9AaVZ1NrPGUFGaY7VVwVVCfSttwtV+cBpjwM4O8 mrkiDDgzpCAjaFi0LnHOQWZEQVrQqLjHcw6mx0TxyvuF1/BC4S/C8JTcgjfE l6cVo04Mdi3iYu4IS1gPAmWNeoCIxqFvV8oAUYvhvXdwfHV1tXGf87l0PCff VBKrSdadoTYoNxa2rME7jdvXlhUsTM7jdhtHmmTiLilcZ3WL8dafyH4ZCybw X/9QYjCPNV/DaOdVzLdOY6JuGsmKSQQvjKHq5CD7apz6tqKmuFoPQiGr0FW2 +b0mla12PXUBs3Mj2xxi2Dcvre6Xb410dGMl6mZDYS5cCQmTYL2vre8G8NxK v4cjV3Gzwc9RPrFD2qDW3oeqD7XWoW0A7EUPbeAvGMGhV+rhvrQER/EwRsKd qjxrwTiWfb2YrenHqKMf8Qu9CDCl3OyKYmYp4pQZ8LZAxxfzjV4htht9Z7fJ Lib3GTVjY+dYt4ZFbdEjzTxEPSDNI/qrEvOye3A46qN5xgbkRvluRFMKEl2T mOOKY4oKi7vTbOu19n4qEYDrwzL8kcS5bKtEa2kG7+5rQaV7BbExvQPci/ES J27XebFS04wFdyumLwcxWBhEV14rq3oz7BzmirhcKGJF5lyp20W0bHEIj+7I 0lcbSdYt9HErp2qPR+Tr16OclEIVULqYLbFmdlFmTJwj8NCgmMTukYPJwIyC 4c4R3r7CqTqixnMRVwmxUJ+2WU/pHLZanDkQwgdvdcFdcxudKUV2y3uwMp3h HOnA3EUn0oVujHC27OGM2cZRxsuZ8yLVlqrLd7Ybq1o53FttpJjVt6oVqqqf kjLcivmx1sYYbq/meMSpPhIg0d1hqhvijDw2jbXRNFaHMzId7sb16SVMR9NI dUzDfyLGZtyJ2upxTEZ6UXPcrbqMMv++NEFlbhPyD3XC9ssBRCMKgqk16Cac 56og5fCrPTgoe3qS05xQWd9XFGOFngZb7O/sMsaRHUYCZ9c4eWj7Xo9itZPK +xjnfg+UABcAAfraz8LmC3JZ046b9REs1XRirqoLGVcUqfIohi5G0VvYhejZ DvbFMONULDQCnE6a1MVHSWELKj4ow1o08g1ZSqNMkZqT7Sg+2oPj704g1q1g clH5jBRO/9lJ6MgauIWK64PpDqMcrFcrbVP8May2M3q5yFyrc+F2fRVn/lrc qmnEsteH654WzLsCuGpvw+SlNowWt2Egvw3x061ciLdwmeOjDxo5RdeyRHvU RaNYVwjkuUUFs81BrLATfM2kWuPZHvzHP1XieO5VdLNzTiwpn5WqmbeyGK1b bJJpgA/i9kwGK61+LLucJBeuV3iw6PBijpPTzCWWm+J6jBXU48q5BiTz6tGV W8d8qaUbvHRDJctNhZEzemOJDq6hrV/BTFULFuv8X5FxGc8q1d1DivErStYu kXm/Sdvsvx+raUra06tm72yxE5miCkzmuzB21o0reW6Oj5UcM90IMRuaKVW1 WEXaWxBneOvFO8EpIDZyG6lLDVDSqS8aNdPNmpnGf+/zw82aGWXN/JJ8pk/v +g6c8bOJvsvPtXMqg/lIEtfak5ghtzTXxSl+jpH2SM5DswoGJ1Zxa2CIK4qR 35ToouKKcvX+W51wyXL1Vek1876QtMVfSrSJBbp98ibWehJYGxn4jERzM/PP q5nfr2b+FL+m/zaj6yF/PpOAz8qn6SW6a3IJa1yi3x5IPCYBa06GmEVx5Ios iitIMSS/IcXTl7Jai1LR/kqizd5QMJ+ax62WViz3JB40BW/DGS14bTJ4x5eU 3zMBimP993D8wEg7WmCpuhlz4YRRV0XINTFX6uVaQ5j/+nhmpyncfPnDOPiv dWq4xTg4flMKePToUWOfm8aQOaFtEe0x0iUyplWwqbJapFiXxdHAmO856UUq vwrzl9yYv0zGg9Oy8u1AMtgvQ8mnhdK4PqvkqCGkW2yXmeXeDRkqjmSa4RIZ Vq/bT3di5HI35qtjWPUxHtqa4T1czLgJMm464GTcdEzqY6G20al7mjbdwOm+ j3BKDY2h6N169brlf2JcRcURPR5CZ16Ya442BEq6RBzpv0OYKwyvd1pbTgfv bGCXPhJSr2OX5zARWERf1SKGfXPoqxlB1N0id39yjG0NsX95B1jxWfRLDXYt 3IfF5isYc11BOL+Pa50Euur8Bmx/f7+xa7vTFFWmfnU3ZjqSRlgtMsnnzpVi wmZH/IgDTf9ZycnAg/Hh8ec2mnJhIo0Btw/dp+1InLGj/6ydddKO3p9/gJ7X 3kHk395B/SvvoJjk+OkHWKzx4dZU+gcmKej6eIUPobxyRE7ZESVSnEi9RBog 0tCHdoyQwm+fRoA0nW9HpsCOq4V2XCssx1KtD6tTaXzfnH8PopOQvpPlaCVs O2E7CRsjbA9hewk7QMih83aMksYJOUnIaVKmUIOeLSrHHInCygohOTyEgfYE ak+Uo5HwLYRvI3yY8J2E7z7rQOKcA30fOjB43kEWDozmOzBO6BRpitBp0gyh r5IW6pqz0PuI7j1RhjqiNxG94b1C1BzKQ+m+t0kHUfrGQVwkFZOKXj+IApLz 58fQfCQP3bmFmCT6FJHTpMyFsg3ozE2iu4juOVYAF99y7D/IAHHuP8SC7th/ GHZS+b7DuEwqfeMwuRxC4euHcP61g7D/7BhiuQVIFZVhsigbOT2ehuNnR1Gx /224iOr+ySEiV/7kMJHdPLuIXEFy7JMciH6RdIHo+UQ/++ODaDhyAunapizk G3RB/EQ+KonqIWoVaRvPh8XpCOc6D8/u/UfI4gic+47ArsO/fhhFr1F4Qp95 9W1EG9uRhT1T24xx6tN7ohC+A+/Bq2JXU949PB/h30dUJp79GosKwjtIZYQv JXwx4Ut+egzl7xbAfrxsI/xOTBN6SjVXOVIM1r7jRfAfeG8bcYVdvLRH1X6J TqErSA4ilxHZ8dZ7qDlWqMZBFaPNdbwsK1JuxBJqHGVI0yTheRFjItZGGNLt 75xCiNR65BRaSM2HT6GT4R9mnLYxXv2MWxHDIparDHQ9ga4RUSSByqFQSw4V ncij+XY1sgcY5b2MdpFUIrlEBrQTuZXIIvkaiHyFEbcB+pNqTom0Fekrci0j c2+SsOMyJ0Xai/QXZaCHsFFShNCiTAQIPRxOfN9ciu7HTZpDlJfZAokosvq8 higKiChLojwlRZoSqYtC9rl8mGcJ0yTDX8tOfiPKNtqVxCzH1xRfHSMN8/WU x6fWyTRJ+4n0V+O/L/+/f+AT/wsk07GL\ \>"]], ",", Graphics3DBox[{ {RGBColor[1, NCache[ Rational[1, 3], 0.3333333333333333], NCache[ Rational[1, 3], 0.3333333333333333]], Opacity[0.5], SphereBox[{-0.43491036515546583`, 0.6275704810261071, 1.153125}, 1.125]}, {RGBColor[1, NCache[ Rational[1, 3], 0.3333333333333333], NCache[ Rational[1, 3], 0.3333333333333333]], Opacity[0.5], SphereBox[{-0.43491036515546583`, 0.6275704810261071, -1.153125}, 1.125]}, {Opacity[0.5], SphereBox[{2.6469248347374625`, 1.2171979309770181`*^-17, 1.103530451041603*^-16}, 0.258]}, {Opacity[0.5], SphereBox[{0., 0., 0.}, 0.1795]}, {Opacity[0.5], SphereBox[{-0.6283984992724809, -1.6757702416093605`, \ -1.942890293094024*^-16}, 0.5241]}, Text3DBox["5", {2.6469248347374625`, 1.2171979309770181`*^-17, 1.103530451041603*^-16}, {1, 0}], Text3DBox["11", {0., 0., 0.}, {1, 0}], Text3DBox[ "19", {-0.6283984992724809, -1.6757702416093605`, \ -1.942890293094024*^-16}, {1, 0}], TubeBox[{{2.6469248347374625`, 1.2171979309770181`*^-17, 1.103530451041603*^-16}, {0., 0., 0.}}, 0.02], TubeBox[{{2.6469248347374625`, 1.2171979309770181`*^-17, 1.103530451041603*^-16}, {-0.6283984992724809, -1.6757702416093605`, \ -1.942890293094024*^-16}}, 0.02], TubeBox[{{0., 0., 0.}, {-0.6283984992724809, -1.6757702416093605`, \ -1.942890293094024*^-16}}, 0.02]}, AspectRatio->Automatic, Axes->Automatic, AxesLabel->{ FormBox["xl", TraditionalForm], FormBox["yl", TraditionalForm], FormBox["zl", TraditionalForm]}, Boxed->False, PlotRange->Automatic, SphericalRegion->True, ImageCache->GraphicsData["CompressedBitmap", "\<\ eJztWnlwG9d9/qLTcixVdmw3TuLYmbSJnU5ztJ1O3HacNunY03HTxk3jdqbp ZDyeunbGpyxn3KZOqtiNRUntRLZig6JIiTp4SJREAgTvmyBAAiABkiAJ8L4A 4iJIiqRESaS339t9Cy5BkJZn0v+KmR928Xb3e7/7WPK7T+9/7l9efHr/8888 /eDj+55+5bnnn3ntwcde3selrZ8AYCVlPghxrvBUflmhKIq4+Js/HBCHrWKX b2gLb6sHdUU9E/TVj7z0C3HYYoB5K829X/tImHXcpOX5X8Vhm7jry8mzB7RL z6Vgi89n5NrS0lJyv0+muU9CPJ+GvXvV7x0qRCQSQUZGBl566SUcOHAACwsL 25JsbEvz8Oc13B+nufQp9fs2FbexsRFPPfUUHn/8cXg8HkxPT6v3lpWV7U7z 6P0bo+5Vv+9Yhyo+5Fa9Ojc3p64RXb3O9Ts23kXVOLatucTPb6knu9ZtJED1 jUpKStRzXTPivmeeeUZduy09rNGWqk/tURe2r1H9G2+8oeLoljx37py6r6ZQ /ckHNahHkwu8U7e39oufr92CGMIi4nznBp4gdfsVDf1badxrSxr17kr6uybz znU8HD16NKmuO+Q9uu10nvx+f/Keh7X9/lxqzLiZzkg6O3/WIJbYXohlUIHO u9hxrZetVfxDH0/829Os3WdQhIAWihC2FlvrQt4j/Ubcc+HCBfV5Xn9onbG3 rzH2Zgq4N0UBYlsZfUYFiKDUH7lb6lioX9wWDAaTHH5Z2+wvb1HojfKADit+ U8D706j8S9pO30kKnU66vWm8Vs8IY2NjW+UjwrGErsWvz8k1cbvUr77X95J7 7d0kfwk1iOAn/hekpoxJR9fU72qYP0qjf3GrOJKFhw2Sm0wm9dfvaE/+8Bai V6yL869IGKlPmSf1GNQMikeS4j0gmUrNO4ILQn5VuqFYEjtKkdJla83A+Gb6 hPfZWxBB6E6c65saRePGqqdvWII23/7TG+Qe3ftEDvrjNJpLLaIfvdM9G6QZ 8aGSH5FP6UVJKvTj72OMJ2MSoS+qihNrBNf3GxwcVJelLj/+fntT5DJ6L4XR TaKHhfj1J3JNqEBX6GrduifVFffcoosICb8lw814rx5ue5KIWvHGYwZVGVOD ABZ8iYcJ+m0podhDhIG+r1TZ3jQq0xKRFqbqlfsNWtKtIj4yOp8wxLhYEr/2 pNG3Dqd1DzKBpCsi6fOp4FoYvKam5gmJrsspPry8qqOtabC1DkATZsOAu3eD kDKW8781ZEVhNpEs9Wu7b4WFdJLrRUk3pdHz01XxJw1K10vKJ9M7eboKvgkn d25gA7G7QdQfyM0Eg4JhaYPbkwrYkjwz9G7JaEm/954N4lHmGV2ngg26gfrr 71OsYazm6bx7p8G7Ve52p0RoSgulXtWb4X9Oo/XtSaSdybNd2ibfSBM4hp7o aYMKdTfmpW3pzajZRdaR9Q2PYDvZ8GxXG56wO4AYKUG6FoxL7rcnS5I46qra uummvyd9dKO4FEjVZdUYcvej0VSKVpMVXlMZejPLMJhVhtGTrEi5ZQiftSKe V4r5OgeWegM/TKPOLZsyorWKn0mb9YwlzkeRi8iIlUzUmyrgMFXDY6pFT1Yd Bk7WY+x0PUJ5dYier0PiYg3mLldhoaQCi5YyXLWU4rrDjpV4/B/TW2hzHrVu 6/516dJYRXQT1JntKKSyzKYqVJvqYDM1wX3chu5sO/pzHRjNa0XwfCuil1ox Y3bgitWOq+U2LFU24kZ1HW7WVGG5toxHC2667fgH6ePpTKzHYLp8IIvKFz+i Wsn6q55rML+tilBgKqe661FmsqHB1IrWTBe8Oe3oO+PBUKEXE5c6ETF3IlHW iSuVHlyt6cD1ejeWG534sNmBD202KC0NPFbxtxU36y1YScTxNzJhCHNeMllQ R3KT+jItGM2yIF5ux4I3oNtDsKl3mXoo3qVJ9uAtJHYtBj6XjHbdkQpMlThP wxSb2lBlakdzVifcJ30YrhrBtC+G2b4Y5gMxLA7EsDQUw42RGJbHoli2+7DS 2gXFSad0uaG4W0nNPK+F0kaj2SxYnok/IS0QYYgWULgL9NtKKrSVPtubVUtf rUPsfA2uXKZ/mhlcOblrGhXhV7Lv+HyaKiI+xioiaqhu9u0ymRQwRApMzbSh CxZTJ4bdUcyGZAPHfD0VgzI0DKXbS6IgXS1QvPVQ2stxo8f+RLK0M5kK83to +sF8D8IlXtXcN+pdWGm2oSPnfcyHxpMRIF/D6A38rk2L59a1RWXrBgYV2hA1 QDQ7t0u/CI1OUrxGkhsN5uGtKUVJfG7Xi8Mi7T4xBCXQDqXPAcVXj5UOeuRs HH8l66PmE1UM3FZYM7vU532FQxgrHUG8dhRXW0aw4qaWO3upKjcGzp1XnxSs CqsIf5Mir3aOsh3RJdZl1XjdsYbX1Hv4qG5oWSj1UcZr85BTJ11rPm3Yb/hu Q3jG1XkavQNKvx1KTw1uhvqlBu5C7cUG4rZRA30oPzGqPj9in8Hc8CKuTSxi eWoRylgCymAQC11+dBeUq08KQxlStWzOVS62pTFKqqGSWXfdE/q0q/cbevgq yuq409nsQ2QktGGV0bWtD+JKOEABmpHwNspXTV9gnraghtREcpBcpA5SJ8lH 6iX5Sf0seoPZVRg+VYfRM00Yy2vBREEbJi+4EbzkQai4G1OWXoStAUQqBhFl KonVjCFWP4l44xRy9p9Hzk/dyH1zAM7jQZXPRPsiZr3XkqU6EryO1osBdJc2 Yj4S1G1pDCyZ/FLUutqebd9IwZsYQgRYEmWP3LS9gsk72rtZBdeW/ym5HHP5 EcgsxUBWBYZyqjGSW4/Rs80Yz7NjotCJyaJ2hC53YqrEh3BpH+ZryjF88jyi 1aOI1Y5TVUFVVXFbFNP2aUy3zmC6bQ4J1zxVdRUJzxISnTfgyOlB/guXceml YlheLkH5q2ZU7TOjdr8Z9a+b0fQTM2xvmNHyUyvsP2Or8IsatP2yAW2HbHD+ twPOo044j3XAybzozPKhLacPbbn9aD07BEfeKOyFE2i5EETzxTCaLkfRUDKN WvMMqixzKC9dgMVyFZctSygsuYFTF28g0bOCRC/J/yESAQXTA6RB0pCC+Ahp lLoZI40riE7QtScVhIMKpkIKQlMKgmEFk6SJiIKxqIJR0jBpMKZggBQgvfd2 FQpOBGQ47MKpVgVF3Mcb1swR6luEu3IaRZmjjGMfWs3NyZyrD1UiS0n/URvb Ozb0i+1r/EJ8RJ+gu8a4qxkfjrBgLF3Z3DXuTy6fLVrBaA/FLnElVRChCsJU wdTUqhqECsZJ4fAVuKobMSTV0E/yk3r4u5vUSergfU4+YydGE/FqqOJSqv1P 1R33oDrLgaz/7MKxDC3aIl1h3OwI4op9CqHaKQTMQbjyxlB9fIAVuotqs6P2 QrUejKKqiiorJKcm7jQoLt0rTV3S1ABMVWpOTo76S5QNAa8PSDcj/VjpZwUe cUK5Np9aDtLqdxu6h1cwv6BgtoU1vLtjp7SQzz0FR8FJ9dd3ZMnvZnTW53Th wI9KkXUsCl+fgi72Omrv4nJqMt2GRJUfEyV+9Ob1wpHVhXI2EIVslURDaK+y bzfkJPnXCk0w44uAnSlMJ7PU2tqUmodW7zPcrPe9qz3tNlwPBrDcXcFCxtZr yLXaPahnO/QnqZeZVjZqPV3JNwOibIoy53MP4y+k5nuoGNvpQfzXszXIzJ5D D8M2uKhslaXmhsuOm9XlbNDrcaXUhkiRHUNn7OhkU99oakAJ+4YCNnii0dO3 Nr6H3JEitexKknq61Yytyna3fPzGTBzXXaW0OWfmPrbaARebnAEo8aisdrdh Zp4pyNkNxd+LWHAB9eYhMukiNVD+/kelu/pdATgKQzjyYhMqzNfgG9cH+l2c 6uyYzrcgcsaK0WwrejKt6iRYSXnPi+6dk8IuKZ9x5Ev3IsYoc7rMY3jbxnGl m9Oay8qelPJ10crdbcK/SWy+w1Eo8wuywduBGcrmrI9wMO6DL1+0Maq3/pmU r5j2yfmPVhz9iQsVVTfRHdRfiO1QZ+gZOVOHSCMkvzug9xd6D2L8q9lGIm1L hrjBfdeFgPY26tP0Xjs+bKV8zioOEA0ktmRuRr6TMrZ1ctDoxg1bDwePqDqA XB3QBhIxmMR9UXSd6YEzu5tdixcV7IEvmRyoqxuB+RiNcizvESl7KSe43Lc7 8P7Pe1Fat6JWiwfkNf1PAOvnpbRCrva1q+G+GnPai+v7sOylXE0WKDa2hy1M LLZGjn8tWGlsVWeGa7XtmK/s4NjoQYSzxMRFL4YKPOg73QHPCTc7MCdHQgcZ b6aD1alZRzhZaJYlsoPzyugo/kgKUHm8BflHupGZMQpfJ+sJ/V1/BbX+/UNa ob6uHu7GylCAMc7ZrcZKquB5Na4z3q+WN2HeasNMSQsHdjsHdztGzzkQOGVH d1YLm8VmNDOcKk21uKxOXKWCXb2ETMywmHvGoIxPYMrl/33pdSIT1+V4UfRe AMffi6iZeGpR+ZK8nPoeSFQJZe1rqD9QD3diuT+AqxYLh0grFkrKMMeBMlFU hWhhNULnajCWW4uB7FrGbQ3aOXzaOffWUqUW8tlItYoBdYdkdnia3YaHHVhx AxJu/0OSGx+ZbT49gLefrcYHx2fV7Di5oDwsL+v9f8qLOi2CpKl242Y0jqWe AOZqHQifKcXkqVI1nwwcZ05hPvGQHOTJa3ZgUMQj+dJHPVH6ez1TmCttxrzH /0Vp/T7y5SiYxKEXGlFeoqWtr0tL62OZYExy8l2J5mMEeNujWKxswWKXXx+v hfGcl6fxq9fbUF7JJMGe4g/lI0JEw2Su8SXfGW9DBzsPlzOOa/XiBZj/Pglo ofPmvtWOX//cB0vtMjzc95uGkqZHnDTokxKtbVhBa1Ocse/EDb9ff4dckWnD ucNdMB0cVl09PK+3OVtVIcVHvCaRaN9PRiivLw/4kxlIn0vL5aDTk2nBbHtg h9Exsztw4V0/Mt8N6475qGROH8SlImSx117Xahl9domtSOgKll3tWBkOqGtl 9LeOzGqMna5B4oJ4KWdFpNy2xbBnU24Abz1bCWt+0r++LfcUpjT8VX2ncc+9 a0I6cY3lLrSgrjUdqkF/YQ/i5b243sQS6HRh5GwB7PkTyHihAeXFV4XDPCY3 0VOhGLK40ZpNdq/ZRFDteZu6Vn98hKA9HHPaMF40AscHLfBc6oDDG8dfS+MY 32Bu3xw275el6pqzYBqTLVcQbFpAoGUB4w1R9FT1ItI/BP0PM3pHL/qMHZvD +hrGtTUvq0nrIGfSEQSKhtB2LgBnRSfCQ4NJWGOvtcPgSoaKtgvT3kCyZs+f KUDsxGUM/coM59ucxo6YUXGxDj8w8rQHUx4/unJK0HvSzNRpxmCuGUPvF6Dn lSPoevEI7D8+AgsplzTwQQEWalvYD8e+r6H8nUx2s6EY+qwtaM8ugTfHDB/R +ojWL9BOmzmV8/evC9D2zkn0Ej2WZ8Y0aSbfjLn8EizWtUgsGW6fQoKQTVkl sJ8ogZOQHYTsJGQPyU/YAcIOE3bsrBkTpNA5M8KEjJLihE0QdrZAg37SCH03 3GwV6wndTGgHoV2E9hC2S8DnWhA4bcHgGQuGz1oIb8EEoYOEnSJFCB0j9DSh E6Qln/97a9HLjxejhugNRLdlm1GTcQJ1Gdm4tO8dXHrtIC7uO4gi0nlSwasH kffKQZT+7F3YDmcjRPQw0aNEjpHihcVr0Jm8iF6RRTp4Aub9fJK0hd8Z9K/S /YdgIZlJxa8d4o6HuFsGd8pA/isZOMudzG++y9SSh6mCYoRJKfB97X0offMo rIQtfz0DFaSt/D7ELFLO77L9h9VtzIQvkVtcePUQBdHgT730DroIf2WdWiJ1 zWg8cBSVrx8kZaCKaNWkKpUOc+0wKoheTrKSLK8dRsk+fQdNgDMvH8SZfzuK aDCWwneIogRJ/Vn5RMsgcgbVUkPs3fw+zN+HUbXfsAPRzUQuJhURvZDo5//9 XVip2haLba1adtAexYjQHmFSiPbx/k827AeObVEluAPV1EgVqYJURq2UkgT6 ZSJXvpONmnfzUUd3qCS69Xhximau1NtUd4qToqoD0JvpapOk8XMWtB/JgYvU djgHjkM5cDOQvHTVdrptG923hUHXSPRaOp3LYktBZ7CqcTBDmibrMaJHpDMH 6djjdPBR0hAdvp+O38fY6ia6l+huorcS3Ub0BqInknrXgvUuFX2OyLNEThA5 LiNwSoTMWYFuxgijdJDRGiByrwgzEW4i7IjsIDKTx5Nrk9L1br+GKGKZSFHS FJEmRbyThok2QDT/KS3VdDKBhTx+mZSeUg+342Y4hmvd7MK6AkhUtyDEJydE MiIlmClFtlycismE+H/476P/f9AP+MT/AuXIMVQ=\ \>"]], ",", Graphics3DBox[{ {RGBColor[1, NCache[ Rational[1, 3], 0.3333333333333333], NCache[ Rational[1, 3], 0.3333333333333333]], Opacity[0.5], SphereBox[{0.4409799197468161, 0.6233204992257929, 1.153125}, 1.125]}, {RGBColor[1, NCache[ Rational[1, 3], 0.3333333333333333], NCache[ Rational[1, 3], 0.3333333333333333]], Opacity[0.5], SphereBox[{0.4409799197468161, 0.6233204992257929, -1.153125}, 1.125]}, {Opacity[0.5], SphereBox[{-2.647848539688077, 9.224834133383046*^-17, -8.30522912161669*^-17}, 0.258]}, {Opacity[0.5], SphereBox[{0., 0., 0.}, 0.1795]}, {Opacity[0.5], SphereBox[{0.5952519296623162, -1.686217016838627, 0.}, 0.5241]}, Text3DBox["6", {-2.647848539688077, 9.224834133383046*^-17, -8.30522912161669*^-17}, {1, 0}], Text3DBox["12", {0., 0., 0.}, {1, 0}], Text3DBox["24", {0.5952519296623162, -1.686217016838627, 0.}, {1, 0}], TubeBox[{{-2.647848539688077, 9.224834133383046*^-17, -8.30522912161669*^-17}, {0., 0., 0.}}, 0.02], TubeBox[{{-2.647848539688077, 9.224834133383046*^-17, -8.30522912161669*^-17}, { 0.5952519296623162, -1.686217016838627, 0.}}, 0.02], TubeBox[{{0., 0., 0.}, {0.5952519296623162, -1.686217016838627, 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", "\<\ eJzlWnlQG1ee/saAyWE75+RONjOZzFn5Z4/amq2ZSbK7tdlrZvaoze6/KVem ZjZx4viYyjFJxplNDDiXN4eFbRwbAwZjAxI6kJA4hTgkQEgCJHGZQwgJcYON bXDv73W/17RAkGzVVO1WTVc9Ha+73/u+97u+19JPnzvwy+f3PHfgV7ufe/SZ fc/t/eWvdu9/9G9e3kddaV8DYKKW+yjYZ4k+8hcTJEliJ/8v315hb2kMz9NK xz75Te6RP7H21O/71MPsNZ31/NHmF93O+5aXl9W+W9ddpxlCZrKNddwmd2TI N8ZiMWRnZ+Oll17CoUOHqFfMnJ5iykeUoX4rv90kD1BfX49nn30WzzzzDAoL C2E2m+XBqH/nZsyAN+W3HRtGYHcvLi7KZ+fm5uS+V199VT5P/Ts2H/E/VHqP yh2Z6tiMnhibIWR96XwJxFysb/fu3fL3m+Se9KRJ1pbx31OfVVDcLK8nm4QB ZsCHh4eTCLHPmZyFWC5lMZPh4ydqB10pTKl8o+OO1CgeWEddu6yC+i0a64tr 2MGQfV8Z6MkUXrRtUw/cgOJe+cP2DTMwBDSLGEksh0qfgAubCz8IBoOqXb6n jP8Ux6+dVIC8MzWgu9f5q9Yj2MgMGM1yG8ctQInG7fS938vi3KlZHOEo7GC4 aOI0PhILoampqaSR2C2lpaXy5Z2dnd/d4CgZSY4iPt+lXnD7JnEr1oH12e32 e/kKs8VnPkxzqUb4jjLsX6cg/GgKs7PR2Tt938Yj5JInhDFqUU8YcWqJ9jBm OsKY6wxjwRvCYleIGyw5Qr6tzPxXKhslIO/dkMbYDSzsRMidz7+AVkMzHDoj mnRmeHQW+HKr0HvCioE8K0ZOWzFeUIVYkQVTJWbMlBqxVN+Mq70hHmdp8viM B1sKDkSuB/IKPLIJce5WCvG7ECDSpYTBQBhsOisadNVo1dXAm1uHnpP16D/T gOGCBowXNyB+oQHTZXWY19disdKOyyYrrpjM1IxY6QvxFJ6uTsXN87gC7S9T WOeBTUBy22/ji8kWLhZJoMbgQrHOhDICaiGQtboGuHRNaD/RjMAXrQjnt2Ho nBuRUjdi5W5MV7oxb27FkrUFy9VNuOZoxEpNDTUbVhwmrLS7sIuDFvHF1ken 03HQf7Fl5bl3i8wWiUTk2qXcd5+Mv1hXSc2C84Rdr2ukBW9GQ24bWo+3w/tF J3oLujBQ4sPIRT+iBj8SJj9mrX4s2ruwXOvF9YYO3HC6caOpBTdcjZCaaui7 BatdLlF3hT8olUw4w92bm+DrPK60zsoOtuaZfJg17FaU6OpwkXAbdW5y3k44 T/gQtAwh5ptEIjCJy/ElhfItuH4pgdWRSaz2DOFGmx+S2wup3UOtGZKnDlJr FVb9LmGBU6dOybNzt0lVqO/anMedX5JGeNRmcpMprmSl1kCUWlGu60CLYQBD njh28mukiUlIg4OQ/LSe/lZIXfWEm5Z7NsGvSUd/f7+apQj41kplC/gizW+S p0QGZqmDrZFysWI55lHFunpqbUSlC/HIIk8RhGaJvHqkH1KwDVKAljzah1Su sl6iadA+rea2XTxZblaxRG5zu918wHTKL2ECVkOtlda8P31NOiRPJgBI4wQ2 TO7tt6n5hIFkYLljbIH155qA1AoevV6vFovb+O0BzwChaiJUfRtK5WYohdST JsKEskH+JtyXeQILGu4JW6D8vuokqZI0O5LyX5paONamS4PjoougBwWgDXOl r1mMKoXLjmhXm6Zwp8nWE+ZfE3pKOsAPUizIg18hwgKBgFoms/IpccxzMMqt 2uG07353CEuDs2J5Y729mAh0aPgm7wuEKXepsBWj4ltfIV1vTxpKxBil/Pv5 LdUnSiAta4EnDyP0r989iD37+uAfmFbdlxFmThXt7lB3NMwB2TRssYUj3p5i XIU9nkhxar1WFEvPhmQLwaPufj5jlOqadKlNvZ0dqdSgYLL/NyOIzks407AW iMy3inW1mI+Pc79NU9W61u2144lyc9PmTO7QROh6JxIJ6WF+34045YI+JyWt sAJ/21pcbqfln5RHji0pI5fXLWMl0nmzip8lHpbkqzh+Rasyo7ODlm3XujGT kWZqgnWjYr59k8hlw6/bTrBTTDU/xK1zPULJI2CHFKIyONYH6fKi6md+9yze /mga8SuSajFbj4Trq6tJOT9GOb6Yqm+xroWnVyNnqShktpzapLfzq1D9wbpw ykwSBWLjKErQY3y6FY+JqmMtpJ4WSL0UtJMxFbrfs4j/OjaPyeW1JFVcchlj 45c04ZWJBNFpNAxS+erglOrkssbU6T0a5xOy+9bURknl45zbD1PYS1NflR3E zbjmc+GG2wKpkwh5yT5ekiveLgRso8g6cwWJqxLf0OxAS/+cOst8dAmjHZPo IBJmnZcUqofIuDiRKqae7knthLeoi77m4prNtZqdeWrWaPubv/RBBfusbMju xyoxk5qJWWsNpDYn3n4uH6fPTmOyvQcrTh+W6wNYrOnGcn8cS+E4FoJxnLDd QLikG/6zfnjyfHCSx9mJmZFMVEr6VfE8i6wNmUa8h7sEm1toYOGBqTIet819 KU7dty7jabUGG5YH1RM8sa90kt3qTah94xiKLkxhtd6JlVraLjnasFTtwVxV O6aMHZio6MTohU7kn40g5qiD96QbrbmtqCdFayVGFZTxSnQ2eZchWD2QwgEz VFtlqp+UzKPEjuyaGSl43aPxQ+1Om+oPW6Y/5un+8z3lhM2I6zYzrlltWK6q wZK5HvOVjZiucCJ+sQmREhcuFbqQf2YEI22X0J7LdkN1qNE5YCIOF2lLx/IC Sd0HU/geZdr01GGk5GgFqszsnk3Kj/A3Xn4E+Pde90HfLmFlMoHroTAWK4xY qDBhrqwK06VWxIurMV5YjeEzdvTn2XH+BQPq3y+jfaeVDGEhQ5hoe2REN0U/ GeAhjVex8qD1qrQtGdz7vyxAbL/G3v+M35f11gDM3RL/pkT9lUAIlwNhTNua ETltxHCeEf3HTejNNaGLQF94txx+2tgPkfCdiiS+mcJ5tm0JOlU07NR4jVa5 sIMkl7bacBWGP+F9Oe9EYetLlq/H9Cvq0N/kYFhqF85Iq7w1xrVUtGsT1xDK hBUhev9zPvMHH8zAMagllYYicxTS3IgGTaaavdi7sLVIiamyPNd/j32Jcdkw P1RLbRC/eN6LrrHL6p5A3ybhyqoy5ON8Bdi9LDr5VHJAKJvNlA+X2MFKJU31 I3WmPuzZ24vx2TX17fdexRDbX9I3UUnZmmm34Ow71+OPfIWCvDbdCPa/MYjo gtgVk6btubrO4ttlxFoByReIPyu4WSWbSjGkJRestBQLwdadS5AnVWQTeO3d iCzZhKb878Ir6qiP8z42DHsawCzP4aztULhoEGgEDgXfdvWcOLTX0GlhInaw xWS9tIg/URFO4+0PJ2X9JTYy7eOEbnFig1MI+UBryDd229TUn+rx+Lqqnq7C 0t7BMCknlD7tY98fqyAXSFXNYfKqeHyThouNEhZXlOu+o0kHwuu5x67DtaY7 MjZDuAUT5jzqKMLGAe8VZH0xLyslId2YDOybmEkCJx5eMhtzcHIp3bHppBlJ k7KD5TphufNnunFaf03+JlKo0XtdXbxvc0rC6/n29w7N1KmeV4u1WL8+62Ex d2UHG5YFpbDVoVeMKKpWxLvYYH6UN6PC+q7GVvz3JGVE7UYqc10yVq2XHJip PC3Zykj+gUOA/N2va3ChSftINg0tI/T9ynQSSO0Tuu0pskKmBu5XdSgZ3NN8 sHdf98DQoQz2oDCsbRVzK9rVWnvqxqtqKqGlxZLKp+R5n+I3Zr0VVAv9Wm1L dQdN7mofokpfifDxSiyPJ27lmWXGG8JcVwjz1BaoLflCuDYxKTSICGwGO9VT BS3eNfWoMd0G84uIyzk0qlZ4ZbYdSSOLW86TOmFHmXsVY4U1mC2vxuVKExKt PYoxd2JhnFJfZwi9XxgQPm3AwBkDLuUbMHrWgAi1iQID4oUGTFFbsDdh2R9U t52iDB09enSdPEtJdC2hr7l7mtonuH2Qk4B9QBvVG7kVfVou9zWf9KHq424k yl245uyG5PbAp6tUFvsOzBG3kLkJnaf08BG/HuIXotZPHAeJ4zDxGyN+49Ri xG+yiHhSmzlnwNw5Pa7HJlP+BLTFpvPf+Kmjx5YwNiVpksDOpMsnhiMoPlqH ys/75P6GCwnMt4xjrimOEccQ/KXNiHV1QfxoM0tUXCf1aMvTo/2UAV1EJ0BU eolKmNoA0RkiOiMFCqUo0YkVcUrnGCU95ooVSndw99VutNjBnzlqdzb/qtaf IF58uVvWM0qUPpZEx9/QieL33fj4xXa5/4u8WYw5lzBsn0fYPgG/1YdYSHl0 OU1U6k7o4SQ6LUTHTXQ6iI6P6HQTlWB+JfqoDZytxKWCSowUViJCdKJFnNI5 RkmPGaIzyymJZzOMDvPGdZsGJWDxLyqbQex7vQ8TJJce0rBhLB15CoODu/vR ZorIn+edoxg2j8BTOAjH2SD8jT4sTClKzna8AjXEpoHYNBGbVmLjITbNn51D fU4eGqiV7juM8/uyUPJKFopfOYymI3nUTqIn9xxixCZOLBLUpqldCQRT+pzy czn+WaUQIV01gthlYZDtMnxx6HJn0N0vIbLEa9xtWK5uxqTejfDZNjhzm2iz WI0Wh1u+ORGZhIWYVBOTWmLSSEwc2XkwHDhMLYvc0HAgmwJRT68V+7NRRu3i vmxili2zKqJ2du9hmVWMWEwWV9CWKSiewq3TTpzLP6lcEnjrw5j8yEg8z+wh Lq6iEWS9UAdL+WUEhsVTmJ2Ys7sQO2PE4AkT2mnjaKbMzH7cmZpWns4EPUEY iUzViQpYs07CRCTSYDmYTVsXy8EcmKmZDuTASM2wPwd6auXUGKHzr2SjeG8W CqidefkwunOLsBgICs2l3ZzwEPm5ymKOJNqMrILEL9fltLVtLUvgowMuWKqu wR+R+G3pWIgkME7b3QFlyyv+CVJxvByWt46i6mAWrATZRi2NXnOIuPXgEeo/ AsuBI0TgCCr3H1HA72Pgc2Tw5xj4l6m9dhRxsqpALkQUMwVH/jOBvOMy3js+ gcTyDfW3QYPOgdPvePDpm10wOlbgnRDqOAP9tkYCdBjVBNFO8Oy/ziEHsR/M 2UZdR8hLbPRqPbAO5z4F5wXCWLI3G4WEseyjIjRWNn5dU+LFgx6Cy5XQTznK bv81nK5Y5vlQQWLJbURBjg+6w/2kQklKL6w98o+SC3Z9eJJwZcFBKB20hDUM o4PQ7aTuIzJahrOKmpkwGqkZOM6LhLPsjU9go2gwkyMZyKG0hV14Ac/7/8hP /XavgcTfCi9ACkrHSQ/OH+1B7tFxBHokRJeE5sqg0K+QA2bgxDm0vPMJIcym tSSc5KsMsYPDtKkwyW+pMZimN+n6T4pRx4KVYFoJpul4hXjqKP7DwvYDhJYD /QchAA9aVAG4S5NA6k/34nfPV+HzY1NyAhlblB7mImm6pEJOU5PUWNqKUvN9 mIeuD07BdehTVFM82ahZCV/zkVNoyjmFBkoi7ZTY21hKpNTIEgtLMNWEtb89 qApk7S+TXI7/vVCIr7lUhbhDmx4Khyk91CrpgaTrN+Rzd2Ox1inXBpZNEyy7 UpugujFObYzqyDDVlCFq/VRfQlRneqjm+Ami97SSuVkGZ5mcZfROo1MgFE9L 2B6c7zn/TmjJN/2w9EiaPJ2BkLsPrRcn8eGBJlgsFPrjYit5J5ZqmuTKNU3I ZISEbIKQjVMbLVB0ySC1PirqQULXTciYfukgZKxaNhM6v6lJ6HatvufI/lYV ikOo5kLxJo5Mr7Pj9CEPPnnTC1/rKjoptJX/FN2uIKPaOk2IEkWK8mPIIgWK ImTKkEkNJjl6CVWAUHkJUTshGusIfkuZ/UkOhT1K7ed/s4lTm6E25wkJ+fT+ 4Ri8oysa3BmUyxtwNrsLxw73wU8RzUr0Ezzvs0K/7A8p4Ji+YTqH6R2me5j+ OaNIOybxLlmaEOsMij/JaP6cdBOcVDMCuWZcOmWmMUyYKTFi9nwlPv5sgWm2 DA7FfrINJUe7ofs4oobtn/JzVycmsehTVD/bAczSToD/ae3H3MjsKNVVwaGr lz8PFrYgXt6CRbMLY/ll+OzjCYyxv/f0hRQJJQdfN9553gJTwbQcfKOL0i+0 o+6SRzLoPHDlBeTPEWMYczVhjJVShcmqw0JrO+KmctS/Z8PhF2pgLl9iwfGf yig/4ivpc3qVYpAbRlvxmPw5Vh/HUEUfrJ/1InSewuvzWoStXnQ1eTHS1o4X tUOkkwbqgebYxkXwb7LG0TMqoSMqYXZgGiPOXvj1tRj3dSaPQCBqg4g5nYqO 7B+AFBzFqi+KxdY4orVxhIxRNBeOwJ5PisvWgNHudUOkIdIfx0orCaTOBr5X y8RVZxAz9jBGDWEEinrRcNyHMl0rqkts2KNdzFux2OLCdYdR/nPQ1eo6zJvI aS42U2ZoRvtxJ6y6GpTw36T2aByJCuiVHnLnkkpKMkZE800YPMmeBZtQTzuu Mq5HlP9s8B3ndszSKNOs2FMbpRZWCv/LylX/L/5l/If8hq/9D1Bs/E8=\ \>"]]}], "}"}]], "Output", CellChangeTimes->{3.576169440461054*^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.1768058316775278`"}], "}"}], ",", RowBox[{"{", RowBox[{"3", ",", "2", ",", "1.183319092849224`"}], "}"}], ",", RowBox[{"{", RowBox[{"5", ",", "1", ",", "1.1756643746586428`"}], "}"}], ",", RowBox[{"{", RowBox[{"5", ",", "4", ",", "1.1849983494824308`"}], "}"}], ",", RowBox[{"{", RowBox[{"6", ",", "3", ",", "1.1731293481618614`"}], "}"}], ",", RowBox[{"{", RowBox[{"7", ",", "3", ",", "1.1183710386618184`"}], "}"}], ",", RowBox[{"{", RowBox[{"7", ",", "4", ",", "1.0933986933962405`"}], "}"}], ",", RowBox[{"{", RowBox[{"8", ",", "1", ",", "1.1073458481626883`"}], "}"}], ",", RowBox[{"{", RowBox[{"9", ",", "2", ",", "1.1045579353945798`"}], "}"}], ",", RowBox[{"{", RowBox[{"10", ",", "4", ",", "1.0906709740546787`"}], "}"}], ",", RowBox[{"{", RowBox[{"11", ",", "5", ",", "1.1047124173687315`"}], "}"}], ",", RowBox[{"{", RowBox[{"12", ",", "6", ",", "1.1051742698440383`"}], "}"}], ",", RowBox[{"{", RowBox[{"13", ",", "1", ",", "1.202850842802333`"}], "}"}], ",", RowBox[{"{", RowBox[{"14", ",", "2", ",", "1.2011469275406514`"}], "}"}], ",", RowBox[{"{", RowBox[{"15", ",", "3", ",", "1.2032913779712615`"}], "}"}], ",", RowBox[{"{", RowBox[{"16", ",", "4", ",", "1.2030813007221388`"}], "}"}], ",", RowBox[{"{", RowBox[{"17", ",", "5", ",", "1.2064700001448028`"}], "}"}], ",", RowBox[{"{", RowBox[{"18", ",", "10", ",", "1.0890679736499278`"}], "}"}], ",", RowBox[{"{", RowBox[{"19", ",", "11", ",", "1.0861180159319515`"}], "}"}], ",", RowBox[{"{", RowBox[{"20", ",", "8", ",", "1.0892779971159923`"}], "}"}], ",", RowBox[{"{", RowBox[{"21", ",", "9", ",", "1.089532704866463`"}], "}"}], ",", RowBox[{"{", RowBox[{"22", ",", "6", ",", "1.2064282095122612`"}], "}"}], ",", RowBox[{"{", RowBox[{"23", ",", "6", ",", "1.202306695463844`"}], "}"}], ",", RowBox[{"{", RowBox[{"24", ",", "12", ",", "1.084598167889362`"}], "}"}]}], "}"}]], "Output", CellChangeTimes->{3.5761694405234537`*^9}], Cell[BoxData["24"], "Output", CellChangeTimes->{3.5761694405234537`*^9}], Cell[BoxData["12"], "Output", CellChangeTimes->{3.5761694405234537`*^9}] }, Open ]], Cell[CellGroupData[{ Cell[BoxData[{ RowBox[{ RowBox[{"data1", "=", RowBox[{"Table", "[", RowBox[{ RowBox[{"a", "[", RowBox[{"[", RowBox[{"i", ",", "3"}], "]"}], "]"}], ",", RowBox[{"{", RowBox[{"i", ",", "1", ",", "nb"}], "}"}]}], "]"}]}], ";"}], "\[IndentingNewLine]", RowBox[{"Histogram", "[", RowBox[{"data1", ",", RowBox[{"{", RowBox[{"1.17", ",", "1.22", ",", "0.001"}], "}"}]}], "]"}]}], "Input", CellChangeTimes->{ 3.5749175636273193`*^9, {3.574917602393388*^9, 3.574917633609042*^9}, { 3.5749176659166994`*^9, 3.574917696726753*^9}, 3.5749189234661083`*^9, { 3.574919002527047*^9, 3.5749190246790857`*^9}, {3.5749190622127514`*^9, 3.574919063008353*^9}, {3.5758651500560017`*^9, 3.5758651670132313`*^9}, { 3.5758679948769984`*^9, 3.5758679976226034`*^9}, 3.575868062471917*^9, { 3.57586838294328*^9, 3.5758683978413057`*^9}, {3.57586848557586*^9, 3.5758684954974775`*^9}, {3.5758685260891314`*^9, 3.5758685262451315`*^9}, {3.5758687865783887`*^9, 3.5758687987464104`*^9}, {3.575868916292617*^9, 3.575868937227854*^9}, 3.575869008753979*^9, {3.5758690441972413`*^9, 3.5758690483624487`*^9}, { 3.575959287346569*^9, 3.575959298235388*^9}, {3.5760419146793833`*^9, 3.576041915521785*^9}}], Cell[BoxData[ GraphicsBox[ {RGBColor[0.798413061722744, 0.824719615472648, 0.968322270542458], EdgeForm[Opacity[0.637]], {}, {RGBColor[0.798413061722744, 0.824719615472648, 0.968322270542458], EdgeForm[Opacity[0.637]], TagBox[ TooltipBox[ TagBox[ DynamicBox[{ FEPrivate`If[ CurrentValue["MouseOver"], EdgeForm[{ GrayLevel[0.5], AbsoluteThickness[1.5], Opacity[0.66]}], {}, {}], RectangleBox[{1.1729999999999998`, 0}, {1.174, 1}, "RoundingRadius" -> 0]}, ImageSizeCache->{{28.959999999998217`, 36.779999999998836`}, { 1.1466444670889047`, 98.74020662545763}}], 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.1749999999999998`, 0}, {1.176, 1}, "RoundingRadius" -> 0]}, ImageSizeCache->{{42.599999999997635`, 50.419999999998254`}, { 1.1466444670889047`, 98.74020662545763}}], 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.176, 0}, {1.1769999999999998`, 1}, "RoundingRadius" -> 0]}, ImageSizeCache->{{49.419999999998254`, 57.23999999999796}, { 1.1466444670889047`, 98.74020662545763}}], 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.1829999999999998`, 0}, {1.184, 1}, "RoundingRadius" -> 0]}, ImageSizeCache->{{97.15999999999804, 104.97999999999865`}, { 1.1466444670889047`, 98.74020662545763}}], 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.184, 0}, {1.1849999999999998`, 1}, "RoundingRadius" -> 0]}, ImageSizeCache->{{103.97999999999865`, 111.79999999999745`}, { 1.1466444670889047`, 98.74020662545763}}], 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.2009999999999998`, 0}, {1.202, 1}, "RoundingRadius" -> 0]}, ImageSizeCache->{{219.91999999999825`, 227.73999999999796`}, { 1.1466444670889047`, 98.74020662545763}}], 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.202, 0}, {1.2029999999999998`, 2}, "RoundingRadius" -> 0]}, ImageSizeCache->{{226.73999999999796`, 234.55999999999767`}, {-95.44691769127982, 98.74020662545763}}], 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.2029999999999998`, 0}, {1.204, 2}, "RoundingRadius" -> 0]}, ImageSizeCache->{{233.55999999999767`, 241.3799999999992}, {-95.44691769127982, 98.74020662545763}}], 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.206, 0}, {1.2069999999999999`, 2}, "RoundingRadius" -> 0]}, ImageSizeCache->{{254.01999999999862`, 261.8399999999983}, {-95.44691769127982, 98.74020662545763}}], 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->{1.1729999999999998`, 0}, FrameTicks->{{Automatic, Automatic}, {Automatic, Automatic}}, GridLines->{None, None}, PlotRange->{{1.17, 1.22}, {All, All}}, PlotRangePadding->{{ Scaled[0.02], Scaled[0.02]}, { Scaled[0.02], Scaled[0.1]}}, Ticks->{Automatic, Automatic}]], "Output", CellChangeTimes->{3.5761694409446545`*^9}] }, Open ]], Cell[BoxData[{ RowBox[{ RowBox[{"wxc", "=", RowBox[{"Table", "[", RowBox[{ RowBox[{ RowBox[{ RowBox[{ RowBox[{"(", RowBox[{ RowBox[{"a", "[", RowBox[{"[", RowBox[{"i", ",", "3"}], "]"}], "]"}], "+", RowBox[{"u2", "[", RowBox[{"[", RowBox[{"a", "[", RowBox[{"[", RowBox[{"i", ",", "1"}], "]"}], "]"}], "]"}], "]"}]}], ")"}], "/", RowBox[{"(", RowBox[{ RowBox[{"u2", "[", RowBox[{"[", RowBox[{"a", "[", RowBox[{"[", RowBox[{"i", ",", "1"}], "]"}], "]"}], "]"}], "]"}], "+", RowBox[{"2", "*", RowBox[{"a", "[", RowBox[{"[", RowBox[{"i", ",", "3"}], "]"}], "]"}]}], "+", RowBox[{"u2", "[", RowBox[{"[", RowBox[{"a", "[", RowBox[{"[", RowBox[{"i", ",", "2"}], "]"}], "]"}], "]"}], "]"}]}], ")"}]}], "*", RowBox[{"(", RowBox[{ RowBox[{"x", "[", RowBox[{"[", RowBox[{"a", "[", RowBox[{"[", RowBox[{"i", ",", "2"}], "]"}], "]"}], "]"}], "]"}], "-", RowBox[{"x", "[", RowBox[{"[", RowBox[{"a", "[", RowBox[{"[", RowBox[{"i", ",", "1"}], "]"}], "]"}], "]"}], "]"}]}], ")"}]}], "+", RowBox[{"x", "[", RowBox[{"[", RowBox[{"a", "[", RowBox[{"[", RowBox[{"i", ",", "1"}], "]"}], "]"}], "]"}], "]"}]}], ",", RowBox[{"{", RowBox[{"i", ",", "1", ",", "cw"}], "}"}]}], "]"}]}], ";"}], "\n", RowBox[{ RowBox[{ RowBox[{"wyc", "=", RowBox[{"Table", "[", RowBox[{ RowBox[{ RowBox[{ RowBox[{ RowBox[{"(", RowBox[{ RowBox[{"a", "[", RowBox[{"[", RowBox[{"i", ",", "3"}], "]"}], "]"}], "+", RowBox[{"u2", "[", RowBox[{"[", RowBox[{"a", "[", RowBox[{"[", RowBox[{"i", ",", "1"}], "]"}], "]"}], "]"}], "]"}]}], ")"}], "/", RowBox[{"(", RowBox[{ RowBox[{"u2", "[", RowBox[{"[", RowBox[{"a", "[", RowBox[{"[", RowBox[{"i", ",", "1"}], "]"}], "]"}], "]"}], "]"}], "+", RowBox[{"2", "*", RowBox[{"a", "[", RowBox[{"[", RowBox[{"i", ",", "3"}], "]"}], "]"}]}], "+", RowBox[{"u2", "[", RowBox[{"[", RowBox[{"a", "[", RowBox[{"[", RowBox[{"i", ",", "2"}], "]"}], "]"}], "]"}], "]"}]}], ")"}]}], "*", RowBox[{"(", RowBox[{ RowBox[{"y", "[", RowBox[{"[", RowBox[{"a", "[", RowBox[{"[", RowBox[{"i", ",", "2"}], "]"}], "]"}], "]"}], "]"}], "-", RowBox[{"y", "[", RowBox[{"[", RowBox[{"a", "[", RowBox[{"[", RowBox[{"i", ",", "1"}], "]"}], "]"}], "]"}], "]"}]}], ")"}]}], "+", RowBox[{"y", "[", RowBox[{"[", RowBox[{"a", "[", RowBox[{"[", RowBox[{"i", ",", "1"}], "]"}], "]"}], "]"}], "]"}]}], ",", RowBox[{"{", RowBox[{"i", ",", "1", ",", "cw"}], "}"}]}], "]"}]}], ";"}], " "}], "\n", RowBox[{ RowBox[{"wzc", "=", RowBox[{"Table", "[", RowBox[{ RowBox[{ RowBox[{ RowBox[{ RowBox[{"(", RowBox[{ RowBox[{"a", "[", RowBox[{"[", RowBox[{"i", ",", "3"}], "]"}], "]"}], "+", RowBox[{"u2", "[", RowBox[{"[", RowBox[{"a", "[", RowBox[{"[", RowBox[{"i", ",", "1"}], "]"}], "]"}], "]"}], "]"}]}], ")"}], "/", RowBox[{"(", RowBox[{ RowBox[{"u2", "[", RowBox[{"[", RowBox[{"a", "[", RowBox[{"[", RowBox[{"i", ",", "1"}], "]"}], "]"}], "]"}], "]"}], "+", RowBox[{"2", "*", RowBox[{"a", "[", RowBox[{"[", RowBox[{"i", ",", "3"}], "]"}], "]"}]}], "+", RowBox[{"u2", "[", RowBox[{"[", RowBox[{"a", "[", RowBox[{"[", RowBox[{"i", ",", "2"}], "]"}], "]"}], "]"}], "]"}]}], ")"}]}], "*", RowBox[{"(", RowBox[{ RowBox[{"z", "[", RowBox[{"[", RowBox[{"a", "[", RowBox[{"[", RowBox[{"i", ",", "2"}], "]"}], "]"}], "]"}], "]"}], "-", RowBox[{"z", "[", RowBox[{"[", RowBox[{"a", "[", RowBox[{"[", RowBox[{"i", ",", "1"}], "]"}], "]"}], "]"}], "]"}]}], ")"}]}], "+", RowBox[{"z", "[", RowBox[{"[", RowBox[{"a", "[", RowBox[{"[", RowBox[{"i", ",", "1"}], "]"}], "]"}], "]"}], "]"}]}], ",", RowBox[{"{", RowBox[{"i", ",", "1", ",", "cw"}], "}"}]}], "]"}]}], ";"}]}], "Input", CellChangeTimes->{{3.5681365021632137`*^9, 3.5681365171392403`*^9}, { 3.568136560351316*^9, 3.5681365863097615`*^9}, {3.5681369135895367`*^9, 3.5681369265999594`*^9}, {3.568137821916732*^9, 3.5681378378443604`*^9}, { 3.5682072492149415`*^9, 3.5682072529901485`*^9}, 3.568209802830227*^9, { 3.5682216503836985`*^9, 3.5682217583046885`*^9}, {3.5682217912831464`*^9, 3.568221843465238*^9}, {3.5682219760654707`*^9, 3.5682221133457117`*^9}, { 3.568222159615393*^9, 3.5682221693498106`*^9}, {3.5682222565227633`*^9, 3.5682222578487663`*^9}, 3.5682224736283445`*^9, 3.5682227227607822`*^9, 3.5682227558640404`*^9, {3.568222818810151*^9, 3.5682228486062036`*^9}, { 3.5682230057764797`*^9, 3.5682230079916835`*^9}, {3.568223041952943*^9, 3.5682230548229656`*^9}, 3.5682232619601297`*^9, 3.5682233000709963`*^9, { 3.568223536645412*^9, 3.5682235381118145`*^9}, {3.568223591151908*^9, 3.568223591526308*^9}, {3.5682236491528096`*^9, 3.568223657483224*^9}, { 3.568223713222122*^9, 3.5682237532361927`*^9}, {3.568223800379475*^9, 3.568223827648323*^9}, {3.5682238887380304`*^9, 3.5682238893152313`*^9}, { 3.5682240287170763`*^9, 3.5682240612431335`*^9}, 3.5682241088076167`*^9, { 3.568224198772975*^9, 3.5682242396450467`*^9}, {3.568224282170721*^9, 3.5682243185031853`*^9}, {3.568224437890195*^9, 3.568224439590598*^9}, { 3.568224572253231*^9, 3.5682245867144566`*^9}, {3.5682247081762695`*^9, 3.568224733557514*^9}, {3.56822480520844*^9, 3.5682248433505073`*^9}, { 3.568224884206979*^9, 3.5682248959069996`*^9}, {3.568224982830352*^9, 3.5682250047639904`*^9}, {3.56822503870965*^9, 3.5682250803305235`*^9}, { 3.5682251223413973`*^9, 3.568225141451431*^9}, {3.568225234177994*^9, 3.5682252929588966`*^9}, {3.5682253775890455`*^9, 3.568225482140429*^9}, { 3.56822551694409*^9, 3.5682255297205124`*^9}, {3.568225573197789*^9, 3.5682255809666023`*^9}, 3.568225660698343*^9, 3.5682257301964645`*^9, { 3.568225765078126*^9, 3.5682257828933573`*^9}, {3.568225927026843*^9, 3.568225927416844*^9}, {3.568267062420238*^9, 3.568267081358671*^9}, { 3.568267188328059*^9, 3.5682672830358257`*^9}, {3.5682676367040462`*^9, 3.568267747979042*^9}, 3.5682678404716043`*^9, 3.568267882030078*^9, { 3.5682679252577534`*^9, 3.568267996612279*^9}, {3.5682680488879704`*^9, 3.568268061133992*^9}, {3.568268100914062*^9, 3.5682681150944867`*^9}, { 3.5682681672609787`*^9, 3.5682681709113846`*^9}, {3.568268272904364*^9, 3.5682683182536435`*^9}, {3.5682685202739983`*^9, 3.568268599194537*^9}, { 3.5682686348873997`*^9, 3.568268637773405*^9}, {3.5682686944951043`*^9, 3.568268872273017*^9}, {3.5682689420207396`*^9, 3.568269016947671*^9}, { 3.5682695040741262`*^9, 3.568269601153097*^9}, {3.5682696652380095`*^9, 3.5682696728352227`*^9}, {3.5682697489633565`*^9, 3.5682698308635006`*^9}, {3.568271156491429*^9, 3.568271160063835*^9}, { 3.568271244927984*^9, 3.568271369010602*^9}, {3.5682716250070515`*^9, 3.5682717312276382`*^9}, {3.5682717843301315`*^9, 3.5682718576814604`*^9}, {3.568271940673606*^9, 3.5682720536490045`*^9}, { 3.5682722259669075`*^9, 3.5682723223126764`*^9}, {3.568272370813162*^9, 3.568272411466833*^9}, {3.5682725893539457`*^9, 3.568272622238803*^9}, { 3.5682726936713285`*^9, 3.5682726960113325`*^9}, {3.568272741079812*^9, 3.56827275143823*^9}, {3.5682729218373294`*^9, 3.568272991070251*^9}, { 3.5682734285574193`*^9, 3.5682734302890224`*^9}, {3.5682734898811274`*^9, 3.5682735111595645`*^9}, {3.5682736115925407`*^9, 3.5682736313577757`*^9}, {3.5682738601945777`*^9, 3.568273987272401*^9}, { 3.5682763944346285`*^9, 3.5682764313910933`*^9}, 3.5682765128232365`*^9, { 3.5682766527398825`*^9, 3.568276660976697*^9}, {3.5682774496048822`*^9, 3.568277461663703*^9}, {3.5683784032731285`*^9, 3.568378422991563*^9}, { 3.568378459308427*^9, 3.5683784812420654`*^9}, {3.568378513440522*^9, 3.568378867046343*^9}, {3.568378915468828*^9, 3.56837896203491*^9}, { 3.5683790764299107`*^9, 3.568379270041851*^9}, {3.568380233530743*^9, 3.568380234388745*^9}, 3.5683804214954734`*^9, 3.568380471867962*^9, 3.5683805399464817`*^9, {3.5683812396077104`*^9, 3.568381293537005*^9}, { 3.568381339541486*^9, 3.5683813935175805`*^9}, 3.5684646396646404`*^9, 3.5684646988823442`*^9, 3.568465086387025*^9, {3.5684655859935026`*^9, 3.568465605087936*^9}, 3.568821235038273*^9, 3.5688233741452303`*^9, 3.568823449742963*^9, 3.5688274593312387`*^9, {3.5688284679978104`*^9, 3.5688284689026117`*^9}, {3.5688285131598897`*^9, 3.5688285201487017`*^9}, 3.5688285866360188`*^9, {3.5688292397623663`*^9, 3.568829246688778*^9}, { 3.5688780328231993`*^9, 3.568878075458074*^9}, 3.5688953020257144`*^9, 3.5693395777359695`*^9, {3.569339615191635*^9, 3.569339617079238*^9}, { 3.5693396917877693`*^9, 3.56933969216217*^9}, 3.5693893483274703`*^9}], Cell[BoxData[ RowBox[{ RowBox[{"Plot7", "=", RowBox[{"Table", "[", RowBox[{ RowBox[{"Graphics3D", "[", RowBox[{"{", RowBox[{ RowBox[{"Lighter", "[", "Cyan", "]"}], ",", RowBox[{"Specularity", "[", RowBox[{"1", ",", "20"}], "]"}], ",", RowBox[{"Opacity", "[", "0.5", "]"}], ",", RowBox[{"Sphere", "[", RowBox[{ RowBox[{"{", RowBox[{ RowBox[{"wxc", "[", RowBox[{"[", "i", "]"}], "]"}], ",", RowBox[{"wyc", "[", RowBox[{"[", "i", "]"}], "]"}], ",", RowBox[{"wzc", "[", RowBox[{"[", "i", "]"}], "]"}]}], "}"}], ",", RowBox[{"a", "[", RowBox[{"[", RowBox[{"i", ",", "3"}], "]"}], "]"}]}], "]"}]}], "}"}], "]"}], ",", RowBox[{"{", RowBox[{"i", ",", "1", ",", "cw"}], "}"}]}], "]"}]}], ";"}]], "Input", CellChangeTimes->{{3.5681365021632137`*^9, 3.5681365171392403`*^9}, { 3.568136560351316*^9, 3.5681365863097615`*^9}, {3.5681369135895367`*^9, 3.5681369265999594`*^9}, {3.568137821916732*^9, 3.5681378378443604`*^9}, { 3.5682072492149415`*^9, 3.5682072529901485`*^9}, 3.568209802830227*^9, { 3.5682216503836985`*^9, 3.5682217583046885`*^9}, {3.5682217912831464`*^9, 3.568221843465238*^9}, {3.5682219760654707`*^9, 3.5682221133457117`*^9}, { 3.568222159615393*^9, 3.5682221693498106`*^9}, {3.5682222565227633`*^9, 3.5682222578487663`*^9}, 3.5682224736283445`*^9, 3.5682227227607822`*^9, 3.5682227558640404`*^9, {3.568222818810151*^9, 3.5682228486062036`*^9}, { 3.5682230057764797`*^9, 3.5682230079916835`*^9}, {3.568223041952943*^9, 3.5682230548229656`*^9}, 3.5682232619601297`*^9, 3.5682233000709963`*^9, { 3.568223536645412*^9, 3.5682235381118145`*^9}, {3.568223591151908*^9, 3.568223591526308*^9}, {3.5682236491528096`*^9, 3.568223657483224*^9}, { 3.568223713222122*^9, 3.5682237532361927`*^9}, {3.568223800379475*^9, 3.568223827648323*^9}, {3.5682238887380304`*^9, 3.5682238893152313`*^9}, { 3.5682240287170763`*^9, 3.5682240612431335`*^9}, 3.5682241088076167`*^9, { 3.568224198772975*^9, 3.5682242396450467`*^9}, {3.568224282170721*^9, 3.5682243185031853`*^9}, {3.568224437890195*^9, 3.568224439590598*^9}, { 3.568224572253231*^9, 3.5682245867144566`*^9}, {3.5682247081762695`*^9, 3.568224733557514*^9}, {3.56822480520844*^9, 3.5682248433505073`*^9}, { 3.568224884206979*^9, 3.5682248959069996`*^9}, {3.568224982830352*^9, 3.5682250047639904`*^9}, {3.56822503870965*^9, 3.5682250803305235`*^9}, { 3.5682251223413973`*^9, 3.568225141451431*^9}, {3.568225234177994*^9, 3.5682252929588966`*^9}, {3.5682253775890455`*^9, 3.568225482140429*^9}, { 3.56822551694409*^9, 3.5682255297205124`*^9}, {3.568225573197789*^9, 3.5682255809666023`*^9}, 3.568225660698343*^9, 3.5682257301964645`*^9, { 3.568225765078126*^9, 3.5682257828933573`*^9}, {3.568225927026843*^9, 3.568225927416844*^9}, {3.568267062420238*^9, 3.568267081358671*^9}, { 3.568267188328059*^9, 3.5682672830358257`*^9}, {3.5682676367040462`*^9, 3.568267747979042*^9}, 3.5682678404716043`*^9, 3.568267882030078*^9, { 3.5682679252577534`*^9, 3.568267996612279*^9}, {3.5682680488879704`*^9, 3.568268061133992*^9}, {3.568268100914062*^9, 3.5682681150944867`*^9}, { 3.5682681672609787`*^9, 3.5682681709113846`*^9}, {3.568268272904364*^9, 3.5682683182536435`*^9}, {3.5682685202739983`*^9, 3.568268599194537*^9}, { 3.5682686348873997`*^9, 3.568268637773405*^9}, {3.5682686944951043`*^9, 3.568268872273017*^9}, {3.5682689420207396`*^9, 3.568269016947671*^9}, { 3.5682695040741262`*^9, 3.568269601153097*^9}, {3.5682696652380095`*^9, 3.5682696728352227`*^9}, {3.5682697489633565`*^9, 3.5682698308635006`*^9}, {3.568271156491429*^9, 3.568271160063835*^9}, { 3.568271244927984*^9, 3.568271369010602*^9}, {3.5682716250070515`*^9, 3.5682717312276382`*^9}, {3.5682717843301315`*^9, 3.5682718576814604`*^9}, {3.568271940673606*^9, 3.5682720536490045`*^9}, { 3.5682722259669075`*^9, 3.5682723223126764`*^9}, {3.568272370813162*^9, 3.568272411466833*^9}, {3.5682725893539457`*^9, 3.568272622238803*^9}, { 3.5682726936713285`*^9, 3.5682726960113325`*^9}, {3.568272741079812*^9, 3.56827275143823*^9}, {3.5682729218373294`*^9, 3.568272991070251*^9}, { 3.5682734285574193`*^9, 3.5682734302890224`*^9}, {3.5682734898811274`*^9, 3.5682735111595645`*^9}, {3.5682736115925407`*^9, 3.5682736313577757`*^9}, {3.5682738601945777`*^9, 3.568273987272401*^9}, { 3.5682763944346285`*^9, 3.5682764313910933`*^9}, 3.5682765128232365`*^9, { 3.5682766527398825`*^9, 3.568276660976697*^9}, {3.5682774496048822`*^9, 3.568277461663703*^9}, {3.5683784032731285`*^9, 3.568378422991563*^9}, { 3.568378459308427*^9, 3.5683784812420654`*^9}, {3.568378513440522*^9, 3.568378867046343*^9}, {3.568378915468828*^9, 3.56837896203491*^9}, { 3.5683790764299107`*^9, 3.568379270041851*^9}, {3.568380233530743*^9, 3.568380234388745*^9}, 3.5683804214954734`*^9, 3.568380471867962*^9, 3.5683805399464817`*^9, {3.5683812396077104`*^9, 3.568381293537005*^9}, { 3.568381339541486*^9, 3.5683813935175805`*^9}, 3.5684646396646404`*^9, 3.5684646988823442`*^9, 3.568465086387025*^9, {3.5684655859935026`*^9, 3.568465605087936*^9}, 3.568821235038273*^9, 3.5688233741452303`*^9, 3.568823449742963*^9, 3.5688274593312387`*^9, {3.5688284679978104`*^9, 3.5688284689026117`*^9}, {3.5688285131598897`*^9, 3.5688285201487017`*^9}, 3.5688285866360188`*^9, {3.5688292397623663`*^9, 3.568829246688778*^9}, { 3.5688780328231993`*^9, 3.56887811871695*^9}, {3.568895331556566*^9, 3.5688953367201753`*^9}, 3.568895995276532*^9, {3.5693397032225895`*^9, 3.56933970331619*^9}, 3.569339737137049*^9, 3.569340055299608*^9, 3.569389360947892*^9, {3.570298060155057*^9, 3.570298071589877*^9}, { 3.5704539766451664`*^9, 3.5704539773627677`*^9}, {3.5709509139026003`*^9, 3.570950950500265*^9}, {3.570950995397144*^9, 3.5709510449896307`*^9}, { 3.570974064815357*^9, 3.5709741190878525`*^9}, {3.5709742487084804`*^9, 3.570974273528124*^9}, {3.5713747544125347`*^9, 3.571374762618149*^9}, 3.5713830670175667`*^9, {3.5758215281260185`*^9, 3.5758215341476293`*^9}, { 3.575884704013431*^9, 3.575884706166235*^9}, {3.5758847670375414`*^9, 3.575884767957943*^9}, {3.575884890808159*^9, 3.575884921477813*^9}, { 3.57588496550109*^9, 3.575884969931498*^9}, {3.5758850074027643`*^9, 3.575885013798775*^9}, {3.575896818018054*^9, 3.5758968303576756`*^9}, { 3.575902068324027*^9, 3.5759020699776297`*^9}, {3.5759021671034*^9, 3.5759021680862017`*^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[{"Specularity", "[", RowBox[{"1", ",", "20"}], "]"}], ",", 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}, 3.5758968961585913`*^9}], Cell[BoxData[{ RowBox[{ RowBox[{"If", "[", RowBox[{ RowBox[{"cj", "\[NotEqual]", " ", "0"}], ",", RowBox[{ RowBox[{"Plot8a", "=", RowBox[{"Table", "[", RowBox[{ RowBox[{"Graphics3D", "[", RowBox[{"{", RowBox[{ RowBox[{"Opacity", "[", "0.3", "]"}], ",", RowBox[{"Lighter", "[", "Cyan", "]"}], ",", RowBox[{"Specularity", "[", RowBox[{"1", ",", "20"}], "]"}], ",", RowBox[{"Sphere", "[", RowBox[{ RowBox[{"tpo", "[", RowBox[{"[", "i", "]"}], "]"}], ",", "rpo"}], "]"}]}], "}"}], "]"}], ",", RowBox[{"{", RowBox[{"i", ",", "1", ",", "cj"}], "}"}]}], "]"}]}], ";", "\[IndentingNewLine]", RowBox[{"Plot8b", "=", RowBox[{"Table", "[", RowBox[{ RowBox[{"Graphics3D", "[", RowBox[{"{", RowBox[{ RowBox[{"Opacity", "[", "0.3", "]"}], ",", RowBox[{"Lighter", "[", "Yellow", "]"}], ",", RowBox[{"Specularity", "[", RowBox[{"1", ",", "20"}], "]"}], ",", RowBox[{"Sphere", "[", RowBox[{ RowBox[{"tpu", "[", RowBox[{"[", "i", "]"}], "]"}], ",", "rpi"}], "]"}]}], "}"}], "]"}], ",", RowBox[{"{", RowBox[{"i", ",", "1", ",", "cj"}], "}"}]}], "]"}]}]}]}], "]"}], ";"}], "\[IndentingNewLine]", RowBox[{ RowBox[{"If", "[", RowBox[{ RowBox[{"oj", "\[NotEqual]", "0"}], ",", RowBox[{ RowBox[{"Plot8d", "=", RowBox[{"Table", "[", RowBox[{ RowBox[{"Graphics3D", "[", RowBox[{"{", RowBox[{ RowBox[{"Opacity", "[", "0.4", "]"}], ",", RowBox[{"Lighter", "[", "Red", "]"}], ",", RowBox[{"Specularity", "[", RowBox[{"1", ",", "20"}], "]"}], ",", RowBox[{"Sphere", "[", RowBox[{ RowBox[{"tplo", "[", RowBox[{"[", "i", "]"}], "]"}], ",", "rlo"}], "]"}]}], "}"}], "]"}], ",", RowBox[{"{", RowBox[{"i", ",", "1", ",", "oj"}], "}"}]}], "]"}]}], ";", "\[IndentingNewLine]", RowBox[{"Plot8e", "=", RowBox[{"Table", "[", RowBox[{ RowBox[{"Graphics3D", "[", RowBox[{"{", RowBox[{ RowBox[{"Opacity", "[", "0.4", "]"}], ",", RowBox[{"Lighter", "[", "Red", "]"}], ",", RowBox[{"Specularity", "[", RowBox[{"1", ",", "20"}], "]"}], ",", RowBox[{"Sphere", "[", RowBox[{ RowBox[{"tplu", "[", RowBox[{"[", "i", "]"}], "]"}], ",", "rlo"}], "]"}]}], "}"}], "]"}], ",", RowBox[{"{", RowBox[{"i", ",", "1", ",", "oj"}], "}"}]}], "]"}]}]}]}], "]"}], ";"}], "\[IndentingNewLine]", RowBox[{ RowBox[{"Plot8f", "=", RowBox[{"Table", "[", RowBox[{ RowBox[{"Graphics3D", "[", RowBox[{"{", RowBox[{ RowBox[{"Opacity", "[", "0.4", "]"}], ",", RowBox[{"Lighter", "[", "Red", "]"}], ",", RowBox[{"Specularity", "[", RowBox[{"1", ",", "20"}], "]"}], ",", RowBox[{"Sphere", "[", RowBox[{ RowBox[{"tpso", "[", RowBox[{"[", "i", "]"}], "]"}], ",", "rlo"}], "]"}]}], "}"}], "]"}], ",", RowBox[{"{", RowBox[{"i", ",", "1", ",", "hj"}], "}"}]}], "]"}]}], ";"}], "\[IndentingNewLine]", RowBox[{ RowBox[{"Plot8g", "=", RowBox[{"Table", "[", RowBox[{ RowBox[{"Graphics3D", "[", RowBox[{"{", RowBox[{ RowBox[{"Opacity", "[", "0.4", "]"}], ",", RowBox[{"Lighter", "[", "Red", "]"}], ",", RowBox[{"Specularity", "[", RowBox[{"1", ",", "20"}], "]"}], ",", RowBox[{"Sphere", "[", RowBox[{ RowBox[{"tpsu", "[", RowBox[{"[", "i", "]"}], "]"}], ",", "rlo"}], "]"}]}], "}"}], "]"}], ",", RowBox[{"{", RowBox[{"i", ",", "1", ",", "hj"}], "}"}]}], "]"}]}], ";"}]}], "Input", CellChangeTimes->{{3.5681365021632137`*^9, 3.5681365171392403`*^9}, { 3.568136560351316*^9, 3.5681365863097615`*^9}, {3.5681369135895367`*^9, 3.5681369265999594`*^9}, {3.568137821916732*^9, 3.5681378378443604`*^9}, { 3.5682072492149415`*^9, 3.5682072529901485`*^9}, 3.568209802830227*^9, { 3.5682216503836985`*^9, 3.5682217583046885`*^9}, {3.5682217912831464`*^9, 3.568221843465238*^9}, {3.5682219760654707`*^9, 3.5682221133457117`*^9}, { 3.568222159615393*^9, 3.5682221693498106`*^9}, {3.5682222565227633`*^9, 3.5682222578487663`*^9}, 3.5682224736283445`*^9, 3.5682227227607822`*^9, 3.5682227558640404`*^9, {3.568222818810151*^9, 3.5682228486062036`*^9}, { 3.5682230057764797`*^9, 3.5682230079916835`*^9}, {3.568223041952943*^9, 3.5682230548229656`*^9}, 3.5682232619601297`*^9, 3.5682233000709963`*^9, { 3.568223536645412*^9, 3.5682235381118145`*^9}, {3.568223591151908*^9, 3.568223591526308*^9}, {3.5682236491528096`*^9, 3.568223657483224*^9}, { 3.568223713222122*^9, 3.5682237532361927`*^9}, {3.568223800379475*^9, 3.568223827648323*^9}, {3.5682238887380304`*^9, 3.5682238893152313`*^9}, { 3.5682240287170763`*^9, 3.5682240612431335`*^9}, 3.5682241088076167`*^9, { 3.568224198772975*^9, 3.5682242396450467`*^9}, {3.568224282170721*^9, 3.5682243185031853`*^9}, {3.568224437890195*^9, 3.568224439590598*^9}, { 3.568224572253231*^9, 3.5682245867144566`*^9}, {3.5682247081762695`*^9, 3.568224733557514*^9}, {3.56822480520844*^9, 3.5682248433505073`*^9}, { 3.568224884206979*^9, 3.5682248959069996`*^9}, {3.568224982830352*^9, 3.5682250047639904`*^9}, {3.56822503870965*^9, 3.5682250803305235`*^9}, { 3.5682251223413973`*^9, 3.568225141451431*^9}, {3.568225234177994*^9, 3.5682252929588966`*^9}, {3.5682253775890455`*^9, 3.568225482140429*^9}, { 3.56822551694409*^9, 3.5682255297205124`*^9}, {3.568225573197789*^9, 3.5682255809666023`*^9}, 3.568225660698343*^9, 3.5682257301964645`*^9, { 3.568225765078126*^9, 3.5682257828933573`*^9}, {3.568225927026843*^9, 3.568225927416844*^9}, {3.568267062420238*^9, 3.568267081358671*^9}, { 3.568267188328059*^9, 3.5682672830358257`*^9}, {3.5682676367040462`*^9, 3.568267747979042*^9}, 3.5682678404716043`*^9, 3.568267882030078*^9, { 3.5682679252577534`*^9, 3.568267996612279*^9}, {3.5682680488879704`*^9, 3.568268061133992*^9}, {3.568268100914062*^9, 3.5682681150944867`*^9}, { 3.5682681672609787`*^9, 3.5682681709113846`*^9}, {3.568268272904364*^9, 3.5682683182536435`*^9}, {3.5682685202739983`*^9, 3.568268599194537*^9}, { 3.5682686348873997`*^9, 3.568268637773405*^9}, {3.5682686944951043`*^9, 3.568268872273017*^9}, {3.5682689420207396`*^9, 3.568269016947671*^9}, { 3.5682695040741262`*^9, 3.568269601153097*^9}, {3.5682696652380095`*^9, 3.5682696728352227`*^9}, {3.5682697489633565`*^9, 3.5682698308635006`*^9}, {3.568271156491429*^9, 3.568271160063835*^9}, { 3.568271244927984*^9, 3.568271369010602*^9}, {3.5682716250070515`*^9, 3.5682717312276382`*^9}, {3.5682717843301315`*^9, 3.5682718576814604`*^9}, {3.568271940673606*^9, 3.5682720536490045`*^9}, { 3.5682722259669075`*^9, 3.5682723223126764`*^9}, {3.568272370813162*^9, 3.568272411466833*^9}, {3.5682725893539457`*^9, 3.568272622238803*^9}, { 3.5682726936713285`*^9, 3.5682726960113325`*^9}, {3.568272741079812*^9, 3.56827275143823*^9}, {3.5682729218373294`*^9, 3.568272991070251*^9}, { 3.5682734285574193`*^9, 3.5682734302890224`*^9}, {3.5682734898811274`*^9, 3.5682735111595645`*^9}, {3.5682736115925407`*^9, 3.5682736313577757`*^9}, {3.5682738601945777`*^9, 3.568273987272401*^9}, { 3.5682763944346285`*^9, 3.5682764313910933`*^9}, 3.5682765128232365`*^9, { 3.5682766527398825`*^9, 3.568276660976697*^9}, {3.5682774496048822`*^9, 3.568277461663703*^9}, {3.5683784032731285`*^9, 3.568378422991563*^9}, { 3.568378459308427*^9, 3.5683784812420654`*^9}, {3.568378513440522*^9, 3.568378867046343*^9}, {3.568378915468828*^9, 3.56837896203491*^9}, { 3.5683790764299107`*^9, 3.568379270041851*^9}, {3.568380233530743*^9, 3.568380234388745*^9}, 3.5683804214954734`*^9, 3.568380471867962*^9, 3.5683805399464817`*^9, {3.5683812396077104`*^9, 3.568381293537005*^9}, { 3.568381339541486*^9, 3.568381420224828*^9}, {3.5684645223056345`*^9, 3.5684645572340956`*^9}, {3.5684651558539467`*^9, 3.5684651618911576`*^9}, {3.5688209923798466`*^9, 3.568820997683856*^9}, { 3.568821158754139*^9, 3.568821160750942*^9}, 3.56882222404881*^9, { 3.568822649274357*^9, 3.5688226508031597`*^9}, 3.568822723109287*^9, { 3.5693397221142225`*^9, 3.5693397223326235`*^9}, {3.5693899272912874`*^9, 3.5693899274472876`*^9}, {3.5693910617720795`*^9, 3.5693910848757205`*^9}, 3.5693911374166126`*^9, {3.569391214402748*^9, 3.5693912147147484`*^9}, 3.569391451944365*^9, {3.569391487793228*^9, 3.569391507620863*^9}, { 3.5693923162258854`*^9, 3.5693923173958874`*^9}, {3.569406068526634*^9, 3.569406086092265*^9}, 3.569690172138941*^9, 3.569780036185542*^9, { 3.570453906913044*^9, 3.5704539079894457`*^9}, {3.570454575670618*^9, 3.5704545899602437`*^9}, {3.570454765008151*^9, 3.570454772277764*^9}, 3.5708553779481487`*^9, {3.5709431726830034`*^9, 3.570943174555007*^9}, { 3.5709495710522423`*^9, 3.5709495907082767`*^9}, {3.570949647617176*^9, 3.570949673138821*^9}, {3.570950759321929*^9, 3.5709507772775607`*^9}, { 3.5709508127364225`*^9, 3.5709508405200715`*^9}, {3.570991123104905*^9, 3.570991124259307*^9}, {3.5709912161278687`*^9, 3.570991227937089*^9}, { 3.5709912804155817`*^9, 3.570991308776431*^9}, {3.5709914026885962`*^9, 3.5709914215490294`*^9}, {3.570991574429298*^9, 3.5709916038821497`*^9}, 3.570991652445035*^9, 3.570991830004547*^9, 3.570991865276209*^9, { 3.5709919181759014`*^9, 3.5709919260539155`*^9}, {3.570992027251293*^9, 3.570992050058533*^9}, 3.5709920901350036`*^9, 3.570992186979974*^9, { 3.57122255431676*^9, 3.5712225562355638`*^9}, 3.571223175338251*^9, { 3.5713153738729277`*^9, 3.571315375682531*^9}, 3.5713224026962075`*^9, { 3.5713224627875133`*^9, 3.5713224654863176`*^9}, {3.5713224965147724`*^9, 3.571322572268505*^9}, {3.5713226259637995`*^9, 3.5713226549330506`*^9}, { 3.5713308245340652`*^9, 3.571330884469371*^9}, {3.5713309160126257`*^9, 3.5713309422674723`*^9}, 3.571331071326499*^9, {3.5713311246629925`*^9, 3.5713311332274075`*^9}, {3.571331300334901*^9, 3.5713313470881834`*^9}, 3.5713314298931284`*^9, 3.571331594130217*^9, {3.571331632849485*^9, 3.5713316334578857`*^9}, {3.5713316704299507`*^9, 3.5713316709447517`*^9}, {3.571331783327349*^9, 3.571331790019761*^9}, { 3.5713319475956383`*^9, 3.571331948360039*^9}, {3.5713326567416835`*^9, 3.571332681717327*^9}, {3.571332736801024*^9, 3.571332753305853*^9}, { 3.571332796221528*^9, 3.5713328475768185`*^9}, {3.571332914344936*^9, 3.571332924672154*^9}, {3.5713330072586994`*^9, 3.5713330320471425`*^9}, { 3.5713330798612266`*^9, 3.5713330883320417`*^9}, {3.5713331731961904`*^9, 3.571333178266199*^9}, {3.571333407851803*^9, 3.571333426837036*^9}, { 3.571333542292839*^9, 3.571333557705666*^9}, {3.5713336117441607`*^9, 3.5713337055939255`*^9}, {3.5713337750608473`*^9, 3.571333798070888*^9}, { 3.5713366694988756`*^9, 3.5713366834765005`*^9}, {3.5713369716090064`*^9, 3.57133697359021*^9}, {3.57138272164856*^9, 3.571382756233821*^9}, { 3.57138283537276*^9, 3.571382866900415*^9}, {3.5713829070080853`*^9, 3.5713829086616883`*^9}, {3.571382939175342*^9, 3.5713830233374896`*^9}, { 3.5713831045200324`*^9, 3.571383106126835*^9}, {3.571383198260597*^9, 3.5713832448422785`*^9}, 3.5716785972796593`*^9, 3.5718167268987517`*^9, { 3.571838452469782*^9, 3.5718386879053955`*^9}, {3.571838766139532*^9, 3.571838773908346*^9}, 3.5718388425484667`*^9, {3.571838961763876*^9, 3.571838969236289*^9}, {3.571839027970392*^9, 3.5718390313399982`*^9}, { 3.571839741203645*^9, 3.5718397450100517`*^9}, {3.572538612521628*^9, 3.572538701894185*^9}, {3.572538746213863*^9, 3.572538844837236*^9}, 3.5725397817592816`*^9, {3.5726093687611146`*^9, 3.5726094120667906`*^9}, { 3.5726201406133776`*^9, 3.5726201439517837`*^9}, {3.5726204342214937`*^9, 3.572620455406331*^9}, {3.5726210034788933`*^9, 3.572621009968505*^9}, { 3.5728421659278097`*^9, 3.5728422874676228`*^9}, {3.572844941796685*^9, 3.57284494451109*^9}, {3.572850660423529*^9, 3.5728506878327775`*^9}, 3.5731240021791506`*^9, {3.573124038683215*^9, 3.57312404156922*^9}, 3.5731241655738378`*^9, {3.573150838242284*^9, 3.5731508464166985`*^9}, { 3.5732110436990156`*^9, 3.573211066116255*^9}, {3.573212991206436*^9, 3.573213000894053*^9}, {3.573213104540635*^9, 3.573213182462772*^9}, { 3.5732202689099436`*^9, 3.573220322745638*^9}, {3.573220354086093*^9, 3.5732203696081204`*^9}, {3.573220402914179*^9, 3.573220410448992*^9}, { 3.5746631320730405`*^9, 3.574663233114418*^9}, {3.5746640424906397`*^9, 3.574664047560649*^9}, {3.5746708183720207`*^9, 3.574670838917257*^9}, { 3.5747409576711226`*^9, 3.574740975720354*^9}, {3.5747864634781103`*^9, 3.5747864662861156`*^9}, {3.574786586827527*^9, 3.574786630445204*^9}, { 3.574786972070204*^9, 3.5747869752838097`*^9}, {3.5748281512990437`*^9, 3.5748281556358514`*^9}, {3.5748733140824423`*^9, 3.574873418805426*^9}, { 3.5759018728556833`*^9, 3.575901897722127*^9}}], Cell[CellGroupData[{ Cell[BoxData[{ RowBox[{ RowBox[{"Plot9", "=", " ", RowBox[{"Table", "[", RowBox[{ RowBox[{"Graphics3D", "[", RowBox[{"{", RowBox[{ RowBox[{"Lighter", "[", RowBox[{"Orange", ",", "0.5"}], "]"}], ",", RowBox[{"Tube", "[", RowBox[{ RowBox[{"{", RowBox[{ RowBox[{"{", RowBox[{ RowBox[{"x", "[", RowBox[{"[", RowBox[{"a", "[", RowBox[{"[", RowBox[{"i", ",", "1"}], "]"}], "]"}], "]"}], "]"}], ",", RowBox[{"y", "[", RowBox[{"[", RowBox[{"a", "[", RowBox[{"[", RowBox[{"i", ",", "1"}], "]"}], "]"}], "]"}], "]"}], ",", RowBox[{"z", "[", RowBox[{"[", RowBox[{"a", "[", RowBox[{"[", RowBox[{"i", ",", "1"}], "]"}], "]"}], "]"}], "]"}]}], "}"}], ",", RowBox[{"{", RowBox[{ RowBox[{"x", "[", RowBox[{"[", RowBox[{"a", "[", RowBox[{"[", RowBox[{"i", ",", "2"}], "]"}], "]"}], "]"}], "]"}], ",", RowBox[{"y", "[", RowBox[{"[", RowBox[{"a", "[", RowBox[{"[", RowBox[{"i", ",", "2"}], "]"}], "]"}], "]"}], "]"}], ",", RowBox[{"z", "[", RowBox[{"[", RowBox[{"a", "[", RowBox[{"[", RowBox[{"i", ",", "2"}], "]"}], "]"}], "]"}], "]"}]}], "}"}]}], "}"}], ",", "0.15"}], "]"}]}], "}"}], "]"}], ",", RowBox[{"{", RowBox[{"i", ",", "1", ",", "nb"}], "}"}]}], "]"}]}], ";"}], "\[IndentingNewLine]", RowBox[{ RowBox[{"Plot9a", "=", " ", RowBox[{"Graphics3D", "[", RowBox[{"Tube", "[", RowBox[{ RowBox[{"{", RowBox[{ RowBox[{"{", RowBox[{ RowBox[{"x", "[", RowBox[{"[", "21", "]"}], "]"}], ",", RowBox[{"y", "[", RowBox[{"[", "21", "]"}], "]"}], ",", RowBox[{"z", "[", RowBox[{"[", "21", "]"}], "]"}]}], "}"}], ",", RowBox[{"{", RowBox[{ RowBox[{"nk", "[", RowBox[{"[", RowBox[{"2", ",", "1"}], "]"}], "]"}], ",", RowBox[{"nk", "[", RowBox[{"[", RowBox[{"2", ",", "2"}], "]"}], "]"}], ",", RowBox[{"nk", "[", RowBox[{"[", RowBox[{"2", ",", "3"}], "]"}], "]"}]}], "}"}]}], "}"}], ",", "0.06"}], "]"}], "]"}]}], ";"}], "\[IndentingNewLine]", RowBox[{ RowBox[{"Plot9b", "=", " ", RowBox[{"Graphics3D", "[", RowBox[{"Tube", "[", RowBox[{ RowBox[{"{", RowBox[{ RowBox[{"{", RowBox[{ RowBox[{"x", "[", RowBox[{"[", "21", "]"}], "]"}], ",", RowBox[{"y", "[", RowBox[{"[", "21", "]"}], "]"}], ",", RowBox[{"z", "[", RowBox[{"[", "21", "]"}], "]"}]}], "}"}], ",", RowBox[{"{", RowBox[{ RowBox[{"nl", "[", RowBox[{"[", RowBox[{"2", ",", "1"}], "]"}], "]"}], ",", RowBox[{"nl", "[", RowBox[{"[", RowBox[{"2", ",", "2"}], "]"}], "]"}], ",", RowBox[{"nl", "[", RowBox[{"[", RowBox[{"2", ",", "3"}], "]"}], "]"}]}], "}"}]}], "}"}], ",", "0.06"}], "]"}], "]"}]}], ";"}], "\[IndentingNewLine]", RowBox[{"Show", "[", RowBox[{"Plot1o", ",", RowBox[{"(*", RowBox[{"Plot2", ","}], "*)"}], "Plot7", ",", "Plot8", ",", RowBox[{"(*", RowBox[{"Plot8a", ",", "Plot8b", ",", "Plot8d", ",", "Plot8e", ","}], "*)"}], "Plot8f", ",", "Plot8g", ",", "Plot9", ",", RowBox[{"{", RowBox[{ RowBox[{"AspectRatio", "\[Rule]", "Automatic"}], ",", RowBox[{"Boxed", "\[Rule]", "False"}], ",", RowBox[{"(*", " ", RowBox[{ RowBox[{"Axes", "\[Rule]", "Automatic"}], ",", RowBox[{"AxesLabel", "\[Rule]", RowBox[{"{", RowBox[{"xl", ",", "yl", ",", "zl"}], "}"}]}], ","}], "*)"}], RowBox[{"SphericalRegion", "\[Rule]", "True"}]}], "}"}]}], "]"}], "\[IndentingNewLine]", RowBox[{"Show", "[", RowBox[{"Plot1o", ",", "Plot2", ",", "Plot9", ",", RowBox[{"(*", RowBox[{"Plot9a", ",", "Plot9b", ","}], "*)"}], RowBox[{"{", RowBox[{ RowBox[{"Axes", "\[Rule]", "Automatic"}], ",", RowBox[{"AxesLabel", "\[Rule]", RowBox[{"{", RowBox[{"xl", ",", "yl", ",", "zl"}], "}"}]}], ",", RowBox[{"AspectRatio", "\[Rule]", "Automatic"}], ",", RowBox[{"Boxed", "\[Rule]", "True"}], ",", " ", RowBox[{"SphericalRegion", "\[Rule]", "True"}]}], "}"}]}], "]"}], "\[IndentingNewLine]", RowBox[{"Show", "[", RowBox[{"Plot1o", ",", "Plot2", ",", "Plot7", ",", "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", ",", "Plot8", ",", "Plot8f", ",", "Plot8g", ",", "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", ",", "Plot8f", ",", "Plot8g", ",", "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"}]}], "}"}]}], "]"}]}], "Input", CellChangeTimes->{{3.5681365021632137`*^9, 3.5681365171392403`*^9}, { 3.568136560351316*^9, 3.5681365863097615`*^9}, {3.5681369135895367`*^9, 3.5681369265999594`*^9}, {3.568137821916732*^9, 3.5681378378443604`*^9}, { 3.5682072492149415`*^9, 3.5682072529901485`*^9}, 3.568209802830227*^9, { 3.5682216503836985`*^9, 3.5682217583046885`*^9}, {3.5682217912831464`*^9, 3.568221843465238*^9}, {3.5682219760654707`*^9, 3.5682221133457117`*^9}, { 3.568222159615393*^9, 3.5682221693498106`*^9}, {3.5682222565227633`*^9, 3.5682222578487663`*^9}, 3.5682224736283445`*^9, 3.5682227227607822`*^9, 3.5682227558640404`*^9, {3.568222818810151*^9, 3.5682228486062036`*^9}, { 3.5682230057764797`*^9, 3.5682230079916835`*^9}, {3.568223041952943*^9, 3.5682230548229656`*^9}, 3.5682232619601297`*^9, 3.5682233000709963`*^9, { 3.568223536645412*^9, 3.5682235381118145`*^9}, {3.568223591151908*^9, 3.568223591526308*^9}, {3.5682236491528096`*^9, 3.568223657483224*^9}, { 3.568223713222122*^9, 3.5682237532361927`*^9}, {3.568223800379475*^9, 3.568223827648323*^9}, {3.5682238887380304`*^9, 3.5682238893152313`*^9}, { 3.5682240287170763`*^9, 3.5682240612431335`*^9}, 3.5682241088076167`*^9, { 3.568224198772975*^9, 3.5682242396450467`*^9}, {3.568224282170721*^9, 3.5682243185031853`*^9}, {3.568224437890195*^9, 3.568224439590598*^9}, { 3.568224572253231*^9, 3.5682245867144566`*^9}, {3.5682247081762695`*^9, 3.568224733557514*^9}, {3.56822480520844*^9, 3.5682248433505073`*^9}, { 3.568224884206979*^9, 3.5682248959069996`*^9}, {3.568224982830352*^9, 3.5682250047639904`*^9}, {3.56822503870965*^9, 3.5682250803305235`*^9}, { 3.5682251223413973`*^9, 3.568225141451431*^9}, {3.568225234177994*^9, 3.5682252929588966`*^9}, {3.5682253775890455`*^9, 3.568225482140429*^9}, { 3.56822551694409*^9, 3.5682255297205124`*^9}, {3.568225573197789*^9, 3.5682255809666023`*^9}, 3.568225660698343*^9, 3.5682257301964645`*^9, { 3.568225765078126*^9, 3.5682257828933573`*^9}, {3.568225927026843*^9, 3.568225927416844*^9}, {3.568267062420238*^9, 3.568267081358671*^9}, { 3.568267188328059*^9, 3.5682672830358257`*^9}, {3.5682676367040462`*^9, 3.568267747979042*^9}, 3.5682678404716043`*^9, 3.568267882030078*^9, { 3.5682679252577534`*^9, 3.568267996612279*^9}, {3.5682680488879704`*^9, 3.568268061133992*^9}, {3.568268100914062*^9, 3.5682681150944867`*^9}, { 3.5682681672609787`*^9, 3.5682681709113846`*^9}, {3.568268272904364*^9, 3.5682683182536435`*^9}, {3.5682685202739983`*^9, 3.568268599194537*^9}, { 3.5682686348873997`*^9, 3.568268637773405*^9}, {3.5682686944951043`*^9, 3.568268872273017*^9}, {3.5682689420207396`*^9, 3.568269016947671*^9}, { 3.5682695040741262`*^9, 3.568269601153097*^9}, {3.5682696652380095`*^9, 3.5682696728352227`*^9}, {3.5682697489633565`*^9, 3.5682698308635006`*^9}, {3.568271156491429*^9, 3.568271160063835*^9}, { 3.568271244927984*^9, 3.568271369010602*^9}, {3.5682716250070515`*^9, 3.5682717312276382`*^9}, {3.5682717843301315`*^9, 3.5682718576814604`*^9}, {3.568271940673606*^9, 3.5682720536490045`*^9}, { 3.5682722259669075`*^9, 3.5682723223126764`*^9}, {3.568272370813162*^9, 3.568272411466833*^9}, {3.5682725893539457`*^9, 3.568272622238803*^9}, { 3.5682726936713285`*^9, 3.5682726960113325`*^9}, {3.568272741079812*^9, 3.56827275143823*^9}, {3.5682729218373294`*^9, 3.568272991070251*^9}, { 3.5682734285574193`*^9, 3.5682734302890224`*^9}, {3.5682734898811274`*^9, 3.5682735111595645`*^9}, {3.5682736115925407`*^9, 3.5682736313577757`*^9}, {3.5682738601945777`*^9, 3.568273987272401*^9}, { 3.5682763944346285`*^9, 3.5682764313910933`*^9}, 3.5682765128232365`*^9, { 3.5682766527398825`*^9, 3.568276660976697*^9}, {3.5682774496048822`*^9, 3.568277461663703*^9}, {3.5683784032731285`*^9, 3.568378422991563*^9}, { 3.568378459308427*^9, 3.5683784812420654`*^9}, {3.568378513440522*^9, 3.568378867046343*^9}, {3.568378915468828*^9, 3.56837896203491*^9}, { 3.5683790764299107`*^9, 3.568379270041851*^9}, {3.568380233530743*^9, 3.568380234388745*^9}, 3.5683804214954734`*^9, 3.568380471867962*^9, 3.5683805399464817`*^9, {3.5683812396077104`*^9, 3.568381293537005*^9}, { 3.568381339541486*^9, 3.568381420224828*^9}, {3.5684645223056345`*^9, 3.5684645572340956`*^9}, {3.5684651558539467`*^9, 3.5684651618911576`*^9}, {3.5688209923798466`*^9, 3.568820997683856*^9}, { 3.568821158754139*^9, 3.568821160750942*^9}, 3.56882222404881*^9, { 3.568822649274357*^9, 3.5688226508031597`*^9}, 3.568822723109287*^9, { 3.5693397221142225`*^9, 3.5693397223326235`*^9}, {3.5693899272912874`*^9, 3.5693899274472876`*^9}, {3.5693910617720795`*^9, 3.5693910848757205`*^9}, 3.5693911374166126`*^9, {3.569391214402748*^9, 3.5693912147147484`*^9}, 3.569391451944365*^9, {3.569391487793228*^9, 3.569391507620863*^9}, { 3.5693923162258854`*^9, 3.5693923173958874`*^9}, {3.569406068526634*^9, 3.569406086092265*^9}, 3.569690172138941*^9, 3.569780036185542*^9, { 3.570453906913044*^9, 3.5704539079894457`*^9}, {3.570454575670618*^9, 3.5704545899602437`*^9}, {3.570454765008151*^9, 3.570454772277764*^9}, 3.5708553779481487`*^9, {3.5709431726830034`*^9, 3.570943174555007*^9}, { 3.5709495710522423`*^9, 3.5709495907082767`*^9}, {3.570949647617176*^9, 3.570949673138821*^9}, {3.570950759321929*^9, 3.5709507772775607`*^9}, { 3.5709508127364225`*^9, 3.5709508405200715`*^9}, {3.570991123104905*^9, 3.570991124259307*^9}, {3.5709912161278687`*^9, 3.570991227937089*^9}, { 3.5709912804155817`*^9, 3.570991308776431*^9}, {3.5709914026885962`*^9, 3.5709914215490294`*^9}, {3.570991574429298*^9, 3.5709916038821497`*^9}, 3.570991652445035*^9, 3.570991830004547*^9, 3.570991865276209*^9, { 3.5709919181759014`*^9, 3.5709919260539155`*^9}, {3.570992027251293*^9, 3.570992050058533*^9}, 3.5709920901350036`*^9, 3.570992186979974*^9, { 3.57122255431676*^9, 3.5712225562355638`*^9}, 3.571223175338251*^9, { 3.5713153738729277`*^9, 3.571315375682531*^9}, 3.5713224026962075`*^9, { 3.5713224627875133`*^9, 3.5713224654863176`*^9}, {3.5713224965147724`*^9, 3.571322572268505*^9}, {3.5713226259637995`*^9, 3.5713226549330506`*^9}, { 3.5713308245340652`*^9, 3.571330884469371*^9}, {3.5713309160126257`*^9, 3.5713309422674723`*^9}, 3.571331071326499*^9, {3.5713311246629925`*^9, 3.5713311332274075`*^9}, {3.571331300334901*^9, 3.5713313470881834`*^9}, 3.5713314298931284`*^9, 3.571331594130217*^9, {3.571331632849485*^9, 3.5713316334578857`*^9}, {3.5713316704299507`*^9, 3.5713316709447517`*^9}, {3.571331783327349*^9, 3.571331790019761*^9}, { 3.5713319475956383`*^9, 3.571331948360039*^9}, {3.5713326567416835`*^9, 3.571332681717327*^9}, {3.571332736801024*^9, 3.571332753305853*^9}, { 3.571332796221528*^9, 3.5713328475768185`*^9}, {3.571332914344936*^9, 3.571332924672154*^9}, {3.5713330072586994`*^9, 3.5713330320471425`*^9}, { 3.5713330798612266`*^9, 3.5713330883320417`*^9}, {3.5713331731961904`*^9, 3.571333178266199*^9}, {3.571333407851803*^9, 3.571333426837036*^9}, { 3.571333542292839*^9, 3.571333557705666*^9}, {3.5713336117441607`*^9, 3.5713337055939255`*^9}, {3.5713337750608473`*^9, 3.571333798070888*^9}, { 3.5713366694988756`*^9, 3.5713366834765005`*^9}, {3.5713369716090064`*^9, 3.57133697359021*^9}, {3.57138272164856*^9, 3.571382756233821*^9}, { 3.57138283537276*^9, 3.571382866900415*^9}, {3.5713829070080853`*^9, 3.5713829086616883`*^9}, {3.571382939175342*^9, 3.5713830233374896`*^9}, { 3.5713831045200324`*^9, 3.571383106126835*^9}, {3.571383198260597*^9, 3.5713832448422785`*^9}, 3.5716785972796593`*^9, 3.5718167268987517`*^9, { 3.571838452469782*^9, 3.5718386879053955`*^9}, 3.571838766139532*^9, { 3.571838857446493*^9, 3.5718388645757055`*^9}, 3.5723437133735733`*^9, 3.5723437554312468`*^9, {3.5723449027196617`*^9, 3.572344929582909*^9}, 3.5723450406551046`*^9, {3.57234950163894*^9, 3.5723495196413713`*^9}, { 3.572584520172369*^9, 3.5725845258195786`*^9}, {3.5726224003989472`*^9, 3.57262241340937*^9}, 3.572796748424938*^9, 3.5727968708695536`*^9, { 3.572796971801731*^9, 3.572796995841373*^9}, {3.57279741546651*^9, 3.5727974308793373`*^9}, {3.572842795856916*^9, 3.5728428061217337`*^9}, { 3.5728522627179437`*^9, 3.572852288426789*^9}, {3.5728523495164957`*^9, 3.572852453865079*^9}, {3.5728524960787535`*^9, 3.572852515110787*^9}, { 3.572852550008048*^9, 3.572852634669397*^9}, {3.5728602362372026`*^9, 3.5728602649256525`*^9}, 3.572860311756935*^9, 3.5731241886618786`*^9, 3.5731408095114717`*^9, 3.5731408826443996`*^9, {3.573211072949067*^9, 3.5732110779254756`*^9}, {3.5732129727516036`*^9, 3.573212981300419*^9}, { 3.5732130120948725`*^9, 3.57321301629128*^9}, {3.573213384015126*^9, 3.573213388164733*^9}, {3.573220427063021*^9, 3.57322044338065*^9}, { 3.5733208085662665`*^9, 3.5733208285343018`*^9}, {3.57332089027921*^9, 3.5733208917144127`*^9}, {3.5733209483737125`*^9, 3.5733209652997417`*^9}, {3.5733210904587617`*^9, 3.5733211330312366`*^9}, {3.5746581574587035`*^9, 3.5746581598923078`*^9}, {3.5746632559372582`*^9, 3.5746632963569293`*^9}, 3.574669479281269*^9, {3.5746708530664816`*^9, 3.5746708831121345`*^9}, { 3.5746734822639*^9, 3.5746735338531904`*^9}, 3.5747441301394944`*^9, 3.574873451690284*^9, 3.5748736424162188`*^9, 3.574873719277554*^9, { 3.5748742212552357`*^9, 3.574874230069251*^9}, {3.5758845706799965`*^9, 3.57588459520324*^9}, {3.5758850947629175`*^9, 3.5758851053865356`*^9}, { 3.5758851750094585`*^9, 3.575885211326322*^9}, 3.5758853380453444`*^9, 3.576054308630843*^9}], Cell[BoxData[ Graphics3DBox[{ {RGBColor[0.4, 0.2666666666666667, 0.13333333333333336`], Opacity[0.8], SphereBox[{-1.3980688900919522`, 0.805455850344071, -4.464090928590127}, 0.255]}, {RGBColor[0.4, 0.2666666666666667, 0.13333333333333336`], Opacity[0.8], SphereBox[{1.3135572727561748`, 1.5287042196501237`, -5.062978603965943}, 0.255]}, {RGBColor[0.4, 0.2666666666666667, 0.13333333333333336`], Opacity[0.8], SphereBox[{3.113025333324872, 0.21762508821692478`, -3.2319709251834805`}, 0.255]}, {RGBColor[0.4, 0.2666666666666667, 0.13333333333333336`], Opacity[0.8], SphereBox[{-0.0505456892037636, 0.0010442251710251998`, -0.026719908711450198`}, 0.255]}, {RGBColor[0.4, 0.2666666666666667, 0.13333333333333336`], Opacity[0.8], SphereBox[{-1.96888265806177, 1.3513421751846704`, -1.7076885778239057`}, 0.255]}, {RGBColor[0.4, 0.2666666666666667, 0.13333333333333336`], Opacity[0.8], SphereBox[{5.831152917062304, 1.0648908407733972`, -3.5259913798314546`}, 0.255]}, {RGBColor[1, NCache[ Rational[1, 3], 0.3333333333333333], NCache[ Rational[1, 3], 0.3333333333333333]], Opacity[0.8], SphereBox[{2.3838921091337952`, 0.7073774527716972, -0.7060892868397566}, 0.25]}, {RGBColor[1, NCache[ Rational[1, 3], 0.3333333333333333], NCache[ Rational[1, 3], 0.3333333333333333]], Opacity[0.8], SphereBox[{-2.9618460939779707`, 2.218585449986988, -6.073993529767215}, 0.25]}, {RGBColor[1, NCache[ Rational[1, 3], 0.3333333333333333], NCache[ Rational[1, 3], 0.3333333333333333]], Opacity[0.8], SphereBox[{1.9704720457511926`, 0.7750416503237834, -7.513495137297311}, 0.25]}, {RGBColor[1, NCache[ Rational[1, 3], 0.3333333333333333], NCache[ Rational[1, 3], 0.3333333333333333]], Opacity[0.8], SphereBox[{-0.4236191761426814, -2.583922957662857, -0.2193178998544372}, 0.25]}, {RGBColor[1, NCache[ Rational[1, 3], 0.3333333333333333], NCache[ Rational[1, 3], 0.3333333333333333]], Opacity[0.8], SphereBox[{-4.471654655926771, 0.6120848675366743, -1.2651481383815724`}, 0.25]}, {RGBColor[1, NCache[ Rational[1, 3], 0.3333333333333333], NCache[ Rational[1, 3], 0.3333333333333333]], Opacity[0.8], SphereBox[{5.983872154408863, 3.6901376109650177`, -3.216381755835314}, 0.25]}, {RGBColor[1, 1, 1], Opacity[0.8], SphereBox[{-1.6577592182196998`, -1.1991716725055654`, \ -4.810527946724262}, 0.12]}, {RGBColor[1, 1, 1], Opacity[0.8], SphereBox[{1.5125509466819167`, 3.5577053728898154`, -4.85668035254624}, 0.12]}, {RGBColor[1, 1, 1], Opacity[0.8], SphereBox[{3.044833160312358, -1.8003720983061384`, -3.593680062563323}, 0.12]}, {RGBColor[1, 1, 1], Opacity[0.8], SphereBox[{-0.251299028926528, 0.6088384135108648, 1.9219254729274184`}, 0.12]}, {RGBColor[1, 1, 1], Opacity[0.8], SphereBox[{-1.7476765128076537`, 3.3680883768907335`, -1.3841927035055952`}, 0.12]}, {RGBColor[1, 1, 1], Opacity[0.8], SphereBox[{0.7577060500636082, -3.417574128607672, 0.8404721259814049}, 0.12]}, {RGBColor[1, 1, 1], Opacity[0.8], SphereBox[{-5.006026807683891, 1.1430654246735832`, 0.3583039329529784}, 0.12]}, {RGBColor[1, 1, 1], Opacity[0.8], SphereBox[{-4.668798576659672, 1.8155120652332144`, -5.702164831422715}, 0.12]}, {RGBColor[1, 1, 1], Opacity[0.8], SphereBox[{0.7691150835167616, 1.4699337837579312`, -8.648920726864464}, 0.12]}, {RGBColor[1, 1, 1], Opacity[0.8], SphereBox[{6.96602776148251, 0.0963444670088822, -2.113669788475727}, 0.12]}, {RGBColor[1, 1, 1], Opacity[0.8], SphereBox[{6.477642646380998, 0.4994845863025102, -5.387744409305157}, 0.12]}, {RGBColor[1, 1, 1], Opacity[0.8], SphereBox[{7.640921956826999, 4.239757403213133, -3.6033658949392673`}, 0.12]}, {RGBColor[ NCache[ Rational[1, 3], 0.3333333333333333], 1, 1], Opacity[0.5], Specularity[ GrayLevel[1], 20], SphereBox[{-0.042255808667888584`, 1.1670800349970973`, -4.763534766278035}, 1.1768058316775278`]}, {RGBColor[ NCache[ Rational[1, 3], 0.3333333333333333], 1, 1], Opacity[0.5], Specularity[ GrayLevel[1], 20], SphereBox[{2.2132913030405232`, 0.8731646539335243, -4.147474764574712}, 1.183319092849224]}, {RGBColor[ NCache[ Rational[1, 3], 0.3333333333333333], 1, 1], Opacity[0.5], Specularity[ GrayLevel[1], 20], SphereBox[{-1.683475774076861, 1.0783990127643708`, -3.085889753207016}, 1.1756643746586428`]}, {RGBColor[ NCache[ Rational[1, 3], 0.3333333333333333], 1, 1], Opacity[0.5], Specularity[ GrayLevel[1], 20], SphereBox[{-1.0097141736327668`, 0.6761932001778478, -0.867204243267678}, 1.1849983494824308`]}, {RGBColor[ NCache[ Rational[1, 3], 0.3333333333333333], 1, 1], Opacity[0.5], Specularity[ GrayLevel[1], 20], SphereBox[{4.4720891251935875`, 0.641257964495161, -3.3789811525074676`}, 1.1731293481618614`]}, {RGBColor[ NCache[ Rational[1, 3], 0.3333333333333333], 1, 1], Opacity[0.5], Specularity[ GrayLevel[1], 20], SphereBox[{2.7377571922644837`, 0.46968939324197667`, -1.9319576004424104`}, 1.1183710386618184`]}, {RGBColor[ NCache[ Rational[1, 3], 0.3333333333333333], 1, 1], Opacity[0.5], Specularity[ GrayLevel[1], 20], SphereBox[{1.203083597013999, 0.3647750301041395, -0.37656550721587356`}, 1.0933986933962405`]}, {RGBColor[ NCache[ Rational[1, 3], 0.3333333333333333], 1, 1], Opacity[0.5], Specularity[ GrayLevel[1], 20], SphereBox[{-2.2030999576936714`, 1.532933669711904, -5.2928673083325455`}, 1.1073458481626883`]}, {RGBColor[ NCache[ Rational[1, 3], 0.3333333333333333], 1, 1], Opacity[0.5], Specularity[ GrayLevel[1], 20], SphereBox[{1.6517568757667156`, 1.1406959235541465`, -6.324578666581251}, 1.1045579353945798`]}, {RGBColor[ NCache[ Rational[1, 3], 0.3333333333333333], 1, 1], Opacity[0.5], Specularity[ GrayLevel[1], 20], SphereBox[{-0.2426738867023303, -1.3301816668263224`, \ -0.12590547449303968`}, 1.0906709740546787`]}, {RGBColor[ NCache[ Rational[1, 3], 0.3333333333333333], 1, 1], Opacity[0.5], Specularity[ GrayLevel[1], 20], SphereBox[{-3.2573810825633727`, 0.970751423402926, -1.4798561346424592`}, 1.1047124173687315`]}, {RGBColor[ NCache[ Rational[1, 3], 0.3333333333333333], 1, 1], Opacity[0.5], Specularity[ GrayLevel[1], 20], SphereBox[{5.90977634727012, 2.416429191806859, -3.3665971143356854`}, 1.1051742698440383`]}, {Opacity[0.5], Specularity[ GrayLevel[1], 20], SphereBox[{-1.5830500826757365`, -0.6224694502877988, -4.710863048413157}, 1.202850842802333]}, {Opacity[0.5], Specularity[ GrayLevel[1], 20], SphereBox[{1.4552557542102396`, 2.9735058387704303`, -4.9160787132502755`}, 1.2011469275406514`]}, {Opacity[0.5], Specularity[ GrayLevel[1], 20], SphereBox[{ 3.0644468448963464`, -1.2199482965807416`, -3.4896439449518066`}, 1.2032913779712615`]}, {Opacity[0.5], Specularity[ GrayLevel[1], 20], SphereBox[{-0.19355169809438136`, 0.43400449981166084`, 1.361391487871756}, 1.2030813007221388`]}, {Opacity[0.5], Specularity[ GrayLevel[1], 20], SphereBox[{-1.8112022034678872`, 2.7889218478478597`, -1.4770938243953384`}, 1.2064700001448028`]}, {Opacity[0.5], Specularity[ GrayLevel[1], 20], SphereBox[{0.4123367122078404, -3.1738499225001675`, 0.5306345204098165}, 1.0890679736499278`]}, {Opacity[0.5], Specularity[ GrayLevel[1], 20], SphereBox[{-4.849541572444154, 0.9875733820623103, -0.11710684294144547`}, 1.0861180159319515`]}, {Opacity[0.5], Specularity[ GrayLevel[1], 20], SphereBox[{-4.169816605988746, 1.9333398043706622`, -5.81085902094137}, 1.0892779971159923`]}, {Opacity[0.5], Specularity[ GrayLevel[1], 20], SphereBox[{1.1202498222889012`, 1.266829481357759, -8.317056526363777}, 1.089532704866463]}, {Opacity[0.5], Specularity[ GrayLevel[1], 20], SphereBox[{6.640109262550448, 0.3744960022512498, -2.5192667010578926`}, 1.2064282095122612`]}, {Opacity[0.5], Specularity[ GrayLevel[1], 20], SphereBox[{6.29160758092376, 0.6621869229216446, -4.852002956663125}, 1.202306695463844]}, {Opacity[0.5], Specularity[ GrayLevel[1], 20], SphereBox[{7.155260011164454, 4.07867026069736, -3.489945363061768}, 1.084598167889362]}, {RGBColor[1, NCache[ Rational[1, 3], 0.3333333333333333], NCache[ Rational[1, 3], 0.3333333333333333]], Opacity[0.4], Specularity[ GrayLevel[1], 20], SphereBox[{3.2490113397156346`, -0.0030649462778390424`, 0.10602481506355699`}, 1.125]}, {RGBColor[1, NCache[ Rational[1, 3], 0.3333333333333333], NCache[ Rational[1, 3], 0.3333333333333333]], Opacity[0.4], Specularity[ GrayLevel[1], 20], SphereBox[{-2.7568394761303625`, 3.563993342559499, -5.827947011315358}, 1.125]}, {RGBColor[1, NCache[ Rational[1, 3], 0.3333333333333333], NCache[ Rational[1, 3], 0.3333333333333333]], Opacity[0.4], Specularity[ GrayLevel[1], 20], SphereBox[{1.9132896008913605`, -0.6047129691077207, -7.588969359103688}, 1.125]}, {RGBColor[1, NCache[ Rational[1, 3], 0.3333333333333333], NCache[ Rational[1, 3], 0.3333333333333333]], Opacity[0.4], Specularity[ GrayLevel[1], 20], SphereBox[{-1.7012911607082928`, -2.882587327527382, 0.21776663891306322`}, 1.125]}, {RGBColor[1, NCache[ Rational[1, 3], 0.3333333333333333], NCache[ Rational[1, 3], 0.3333333333333333]], Opacity[0.4], Specularity[ GrayLevel[1], 20], SphereBox[{-5.278363801286425, 1.2208499087203206`, -2.2092426672428345`}, 1.125]}, {RGBColor[1, NCache[ Rational[1, 3], 0.3333333333333333], NCache[ Rational[1, 3], 0.3333333333333333]], Opacity[0.4], Specularity[ GrayLevel[1], 20], SphereBox[{5.715789054306371, 3.994578559216727, -1.894210753102673}, 1.125]}, {RGBColor[1, NCache[ Rational[1, 3], 0.3333333333333333], NCache[ Rational[1, 3], 0.3333333333333333]], Opacity[0.4], Specularity[ GrayLevel[1], 20], SphereBox[{2.470863164074963, 2.075251058443258, -0.5215714435033905}, 1.125]}, {RGBColor[1, NCache[ Rational[1, 3], 0.3333333333333333], NCache[ Rational[1, 3], 0.3333333333333333]], Opacity[0.4], Specularity[ GrayLevel[1], 20], SphereBox[{-2.693729725932945, 1.8621348870593453`, -7.383094598965048}, 1.125]}, {RGBColor[1, NCache[ Rational[1, 3], 0.3333333333333333], NCache[ Rational[1, 3], 0.3333333333333333]], Opacity[0.4], Specularity[ GrayLevel[1], 20], SphereBox[{3.2209265896513104`, 1.281084323963987, -7.818410283025796}, 1.125]}, {RGBColor[1, NCache[ Rational[1, 3], 0.3333333333333333], NCache[ Rational[1, 3], 0.3333333333333333]], Opacity[0.4], Specularity[ GrayLevel[1], 20], SphereBox[{-0.19667840129715272`, -2.9696753257372914`, \ -1.527898044605792}, 1.125]}, {RGBColor[1, NCache[ Rational[1, 3], 0.3333333333333333], NCache[ Rational[1, 3], 0.3333333333333333]], Opacity[0.4], Specularity[ GrayLevel[1], 20], SphereBox[{-4.532187769721849, -0.7687646042957073, -1.3128920204452015`}, 1.125]}, {RGBColor[1, NCache[ Rational[1, 3], 0.3333333333333333], NCache[ Rational[1, 3], 0.3333333333333333]], Opacity[0.4], Specularity[ GrayLevel[1], 20], SphereBox[{5.10312869918415, 4.290108128634881, -4.097866494220381}, 1.125]}, {RGBColor[1., 0.75, 0.5], TubeBox[{{1.3135572727561748`, 1.5287042196501237`, -5.062978603965943}, {-1.3980688900919522`, 0.805455850344071, -4.464090928590127}}, 0.15]}, {RGBColor[1., 0.75, 0.5], TubeBox[{{3.113025333324872, 0.21762508821692478`, -3.2319709251834805`}, {1.3135572727561748`, 1.5287042196501237`, -5.062978603965943}}, 0.15]}, {RGBColor[1., 0.75, 0.5], TubeBox[{{-1.96888265806177, 1.3513421751846704`, -1.7076885778239057`}, {-1.3980688900919522`, 0.805455850344071, -4.464090928590127}}, 0.15]}, {RGBColor[1., 0.75, 0.5], TubeBox[{{-1.96888265806177, 1.3513421751846704`, -1.7076885778239057`}, {-0.0505456892037636, 0.0010442251710251998`, -0.026719908711450198`}}, 0.15]}, {RGBColor[1., 0.75, 0.5], TubeBox[{{5.831152917062304, 1.0648908407733972`, -3.5259913798314546`}, { 3.113025333324872, 0.21762508821692478`, -3.2319709251834805`}}, 0.15]}, {RGBColor[1., 0.75, 0.5], TubeBox[{{2.3838921091337952`, 0.7073774527716972, -0.7060892868397566}, { 3.113025333324872, 0.21762508821692478`, -3.2319709251834805`}}, 0.15]}, {RGBColor[1., 0.75, 0.5], TubeBox[{{2.3838921091337952`, 0.7073774527716972, -0.7060892868397566}, {-0.0505456892037636, 0.0010442251710251998`, -0.026719908711450198`}}, 0.15]}, {RGBColor[1., 0.75, 0.5], TubeBox[{{-2.9618460939779707`, 2.218585449986988, -6.073993529767215}, {-1.3980688900919522`, 0.805455850344071, -4.464090928590127}}, 0.15]}, {RGBColor[1., 0.75, 0.5], TubeBox[{{1.9704720457511926`, 0.7750416503237834, -7.513495137297311}, { 1.3135572727561748`, 1.5287042196501237`, -5.062978603965943}}, 0.15]}, {RGBColor[1., 0.75, 0.5], TubeBox[{{-0.4236191761426814, -2.583922957662857, -0.2193178998544372}, \ {-0.0505456892037636, 0.0010442251710251998`, -0.026719908711450198`}}, 0.15]}, {RGBColor[1., 0.75, 0.5], TubeBox[{{-4.471654655926771, 0.6120848675366743, -1.2651481383815724`}, {-1.96888265806177, 1.3513421751846704`, -1.7076885778239057`}}, 0.15]}, {RGBColor[1., 0.75, 0.5], TubeBox[{{5.983872154408863, 3.6901376109650177`, -3.216381755835314}, { 5.831152917062304, 1.0648908407733972`, -3.5259913798314546`}}, 0.15]}, {RGBColor[1., 0.75, 0.5], TubeBox[{{-1.6577592182196998`, -1.1991716725055654`, \ -4.810527946724262}, {-1.3980688900919522`, 0.805455850344071, -4.464090928590127}}, 0.15]}, {RGBColor[1., 0.75, 0.5], TubeBox[{{1.5125509466819167`, 3.5577053728898154`, -4.85668035254624}, { 1.3135572727561748`, 1.5287042196501237`, -5.062978603965943}}, 0.15]}, {RGBColor[1., 0.75, 0.5], TubeBox[{{3.044833160312358, -1.8003720983061384`, -3.593680062563323}, { 3.113025333324872, 0.21762508821692478`, -3.2319709251834805`}}, 0.15]}, {RGBColor[1., 0.75, 0.5], TubeBox[{{-0.251299028926528, 0.6088384135108648, 1.9219254729274184`}, {-0.0505456892037636, 0.0010442251710251998`, -0.026719908711450198`}}, 0.15]}, {RGBColor[1., 0.75, 0.5], TubeBox[{{-1.7476765128076537`, 3.3680883768907335`, -1.3841927035055952`}, {-1.96888265806177, 1.3513421751846704`, -1.7076885778239057`}}, 0.15]}, {RGBColor[1., 0.75, 0.5], TubeBox[{{0.7577060500636082, -3.417574128607672, 0.8404721259814049}, {-0.4236191761426814, -2.583922957662857, \ -0.2193178998544372}}, 0.15]}, {RGBColor[1., 0.75, 0.5], TubeBox[{{-5.006026807683891, 1.1430654246735832`, 0.3583039329529784}, {-4.471654655926771, 0.6120848675366743, -1.2651481383815724`}}, 0.15]}, {RGBColor[1., 0.75, 0.5], TubeBox[{{-4.668798576659672, 1.8155120652332144`, -5.702164831422715}, {-2.9618460939779707`, 2.218585449986988, -6.073993529767215}}, 0.15]}, {RGBColor[1., 0.75, 0.5], TubeBox[{{0.7691150835167616, 1.4699337837579312`, -8.648920726864464}, { 1.9704720457511926`, 0.7750416503237834, -7.513495137297311}}, 0.15]}, {RGBColor[1., 0.75, 0.5], TubeBox[{{6.96602776148251, 0.0963444670088822, -2.113669788475727}, { 5.831152917062304, 1.0648908407733972`, -3.5259913798314546`}}, 0.15]}, {RGBColor[1., 0.75, 0.5], TubeBox[{{6.477642646380998, 0.4994845863025102, -5.387744409305157}, { 5.831152917062304, 1.0648908407733972`, -3.5259913798314546`}}, 0.15]}, {RGBColor[1., 0.75, 0.5], TubeBox[{{7.640921956826999, 4.239757403213133, -3.6033658949392673`}, { 5.983872154408863, 3.6901376109650177`, -3.216381755835314}}, 0.15]}}, AspectRatio->Automatic, Boxed->False, SphericalRegion->True]], "Output", CellChangeTimes->{3.576169441085055*^9}], Cell[BoxData[ Graphics3DBox[{ {RGBColor[0.4, 0.2666666666666667, 0.13333333333333336`], Opacity[0.8], SphereBox[{-1.3980688900919522`, 0.805455850344071, -4.464090928590127}, 0.255]}, {RGBColor[0.4, 0.2666666666666667, 0.13333333333333336`], Opacity[0.8], SphereBox[{1.3135572727561748`, 1.5287042196501237`, -5.062978603965943}, 0.255]}, {RGBColor[0.4, 0.2666666666666667, 0.13333333333333336`], Opacity[0.8], SphereBox[{3.113025333324872, 0.21762508821692478`, -3.2319709251834805`}, 0.255]}, {RGBColor[0.4, 0.2666666666666667, 0.13333333333333336`], Opacity[0.8], SphereBox[{-0.0505456892037636, 0.0010442251710251998`, -0.026719908711450198`}, 0.255]}, {RGBColor[0.4, 0.2666666666666667, 0.13333333333333336`], Opacity[0.8], SphereBox[{-1.96888265806177, 1.3513421751846704`, -1.7076885778239057`}, 0.255]}, {RGBColor[0.4, 0.2666666666666667, 0.13333333333333336`], Opacity[0.8], SphereBox[{5.831152917062304, 1.0648908407733972`, -3.5259913798314546`}, 0.255]}, {RGBColor[1, NCache[ Rational[1, 3], 0.3333333333333333], NCache[ Rational[1, 3], 0.3333333333333333]], Opacity[0.8], SphereBox[{2.3838921091337952`, 0.7073774527716972, -0.7060892868397566}, 0.25]}, {RGBColor[1, NCache[ Rational[1, 3], 0.3333333333333333], NCache[ Rational[1, 3], 0.3333333333333333]], Opacity[0.8], SphereBox[{-2.9618460939779707`, 2.218585449986988, -6.073993529767215}, 0.25]}, {RGBColor[1, NCache[ Rational[1, 3], 0.3333333333333333], NCache[ Rational[1, 3], 0.3333333333333333]], Opacity[0.8], SphereBox[{1.9704720457511926`, 0.7750416503237834, -7.513495137297311}, 0.25]}, {RGBColor[1, NCache[ Rational[1, 3], 0.3333333333333333], NCache[ Rational[1, 3], 0.3333333333333333]], Opacity[0.8], SphereBox[{-0.4236191761426814, -2.583922957662857, -0.2193178998544372}, 0.25]}, {RGBColor[1, NCache[ Rational[1, 3], 0.3333333333333333], NCache[ Rational[1, 3], 0.3333333333333333]], Opacity[0.8], SphereBox[{-4.471654655926771, 0.6120848675366743, -1.2651481383815724`}, 0.25]}, {RGBColor[1, NCache[ Rational[1, 3], 0.3333333333333333], NCache[ Rational[1, 3], 0.3333333333333333]], Opacity[0.8], SphereBox[{5.983872154408863, 3.6901376109650177`, -3.216381755835314}, 0.25]}, {RGBColor[1, 1, 1], Opacity[0.8], SphereBox[{-1.6577592182196998`, -1.1991716725055654`, \ -4.810527946724262}, 0.12]}, {RGBColor[1, 1, 1], Opacity[0.8], SphereBox[{1.5125509466819167`, 3.5577053728898154`, -4.85668035254624}, 0.12]}, {RGBColor[1, 1, 1], Opacity[0.8], SphereBox[{3.044833160312358, -1.8003720983061384`, -3.593680062563323}, 0.12]}, {RGBColor[1, 1, 1], Opacity[0.8], SphereBox[{-0.251299028926528, 0.6088384135108648, 1.9219254729274184`}, 0.12]}, {RGBColor[1, 1, 1], Opacity[0.8], SphereBox[{-1.7476765128076537`, 3.3680883768907335`, -1.3841927035055952`}, 0.12]}, {RGBColor[1, 1, 1], Opacity[0.8], SphereBox[{0.7577060500636082, -3.417574128607672, 0.8404721259814049}, 0.12]}, {RGBColor[1, 1, 1], Opacity[0.8], SphereBox[{-5.006026807683891, 1.1430654246735832`, 0.3583039329529784}, 0.12]}, {RGBColor[1, 1, 1], Opacity[0.8], SphereBox[{-4.668798576659672, 1.8155120652332144`, -5.702164831422715}, 0.12]}, {RGBColor[1, 1, 1], Opacity[0.8], SphereBox[{0.7691150835167616, 1.4699337837579312`, -8.648920726864464}, 0.12]}, {RGBColor[1, 1, 1], Opacity[0.8], SphereBox[{6.96602776148251, 0.0963444670088822, -2.113669788475727}, 0.12]}, {RGBColor[1, 1, 1], Opacity[0.8], SphereBox[{6.477642646380998, 0.4994845863025102, -5.387744409305157}, 0.12]}, {RGBColor[1, 1, 1], Opacity[0.8], SphereBox[{7.640921956826999, 4.239757403213133, -3.6033658949392673`}, 0.12]}, Text3DBox["1", {-1.998068890091952, 0.805455850344071, -4.464090928590127}, {1, 0}], Text3DBox["2", {0.7135572727561749, 1.5287042196501237`, -5.062978603965943}, {1, 0}], Text3DBox["3", {2.513025333324872, 0.21762508821692478`, -3.2319709251834805`}, {1, 0}], Text3DBox["4", {-0.6505456892037635, 0.0010442251710251998`, -0.026719908711450198`}, {1, 0}], Text3DBox["5", {-2.56888265806177, 1.3513421751846704`, -1.7076885778239057`}, {1, 0}], Text3DBox["6", {5.231152917062304, 1.0648908407733972`, -3.5259913798314546`}, {1, 0}], Text3DBox["7", {1.7838921091337951`, 0.7073774527716972, -0.7060892868397566}, {1, 0}], Text3DBox["8", {-3.561846093977971, 2.218585449986988, -6.073993529767215}, {1, 0}], Text3DBox["9", {1.3704720457511925`, 0.7750416503237834, -7.513495137297311}, {1, 0}], Text3DBox[ "10", {-1.0236191761426814`, -2.583922957662857, -0.2193178998544372}, {1, 0}], Text3DBox["11", {-5.07165465592677, 0.6120848675366743, -1.2651481383815724`}, {1, 0}], Text3DBox["12", {5.383872154408864, 3.6901376109650177`, -3.216381755835314}, {1, 0}], Text3DBox[ "13", {-2.2577592182196997`, -1.1991716725055654`, -4.810527946724262}, { 1, 0}], Text3DBox["14", {0.9125509466819167, 3.5577053728898154`, -4.85668035254624}, {1, 0}], Text3DBox["15", { 2.444833160312358, -1.8003720983061384`, -3.593680062563323}, {1, 0}], Text3DBox["16", {-0.851299028926528, 0.6088384135108648, 1.9219254729274184`}, {1, 0}], Text3DBox["17", {-2.3476765128076535`, 3.3680883768907335`, -1.3841927035055952`}, {1, 0}], Text3DBox["18", {0.15770605006360827`, -3.417574128607672, 0.8404721259814049}, {1, 0}], Text3DBox["19", {-5.60602680768389, 1.1430654246735832`, 0.3583039329529784}, {1, 0}], Text3DBox["20", {-5.268798576659671, 1.8155120652332144`, -5.702164831422715}, {1, 0}], Text3DBox["21", {0.16911508351676163`, 1.4699337837579312`, -8.648920726864464}, {1, 0}], Text3DBox["22", {6.366027761482511, 0.0963444670088822, -2.113669788475727}, {1, 0}], Text3DBox["23", {5.877642646380998, 0.4994845863025102, -5.387744409305157}, {1, 0}], Text3DBox["24", {7.040921956826999, 4.239757403213133, -3.6033658949392673`}, {1, 0}], {RGBColor[1., 0.75, 0.5], TubeBox[{{1.3135572727561748`, 1.5287042196501237`, -5.062978603965943}, {-1.3980688900919522`, 0.805455850344071, -4.464090928590127}}, 0.15]}, {RGBColor[1., 0.75, 0.5], TubeBox[{{3.113025333324872, 0.21762508821692478`, -3.2319709251834805`}, {1.3135572727561748`, 1.5287042196501237`, -5.062978603965943}}, 0.15]}, {RGBColor[1., 0.75, 0.5], TubeBox[{{-1.96888265806177, 1.3513421751846704`, -1.7076885778239057`}, {-1.3980688900919522`, 0.805455850344071, -4.464090928590127}}, 0.15]}, {RGBColor[1., 0.75, 0.5], TubeBox[{{-1.96888265806177, 1.3513421751846704`, -1.7076885778239057`}, {-0.0505456892037636, 0.0010442251710251998`, -0.026719908711450198`}}, 0.15]}, {RGBColor[1., 0.75, 0.5], TubeBox[{{5.831152917062304, 1.0648908407733972`, -3.5259913798314546`}, { 3.113025333324872, 0.21762508821692478`, -3.2319709251834805`}}, 0.15]}, {RGBColor[1., 0.75, 0.5], TubeBox[{{2.3838921091337952`, 0.7073774527716972, -0.7060892868397566}, { 3.113025333324872, 0.21762508821692478`, -3.2319709251834805`}}, 0.15]}, {RGBColor[1., 0.75, 0.5], TubeBox[{{2.3838921091337952`, 0.7073774527716972, -0.7060892868397566}, {-0.0505456892037636, 0.0010442251710251998`, -0.026719908711450198`}}, 0.15]}, {RGBColor[1., 0.75, 0.5], TubeBox[{{-2.9618460939779707`, 2.218585449986988, -6.073993529767215}, {-1.3980688900919522`, 0.805455850344071, -4.464090928590127}}, 0.15]}, {RGBColor[1., 0.75, 0.5], TubeBox[{{1.9704720457511926`, 0.7750416503237834, -7.513495137297311}, { 1.3135572727561748`, 1.5287042196501237`, -5.062978603965943}}, 0.15]}, {RGBColor[1., 0.75, 0.5], TubeBox[{{-0.4236191761426814, -2.583922957662857, -0.2193178998544372}, \ {-0.0505456892037636, 0.0010442251710251998`, -0.026719908711450198`}}, 0.15]}, {RGBColor[1., 0.75, 0.5], TubeBox[{{-4.471654655926771, 0.6120848675366743, -1.2651481383815724`}, {-1.96888265806177, 1.3513421751846704`, -1.7076885778239057`}}, 0.15]}, {RGBColor[1., 0.75, 0.5], TubeBox[{{5.983872154408863, 3.6901376109650177`, -3.216381755835314}, { 5.831152917062304, 1.0648908407733972`, -3.5259913798314546`}}, 0.15]}, {RGBColor[1., 0.75, 0.5], TubeBox[{{-1.6577592182196998`, -1.1991716725055654`, \ -4.810527946724262}, {-1.3980688900919522`, 0.805455850344071, -4.464090928590127}}, 0.15]}, {RGBColor[1., 0.75, 0.5], TubeBox[{{1.5125509466819167`, 3.5577053728898154`, -4.85668035254624}, { 1.3135572727561748`, 1.5287042196501237`, -5.062978603965943}}, 0.15]}, {RGBColor[1., 0.75, 0.5], TubeBox[{{3.044833160312358, -1.8003720983061384`, -3.593680062563323}, { 3.113025333324872, 0.21762508821692478`, -3.2319709251834805`}}, 0.15]}, {RGBColor[1., 0.75, 0.5], TubeBox[{{-0.251299028926528, 0.6088384135108648, 1.9219254729274184`}, {-0.0505456892037636, 0.0010442251710251998`, -0.026719908711450198`}}, 0.15]}, {RGBColor[1., 0.75, 0.5], TubeBox[{{-1.7476765128076537`, 3.3680883768907335`, -1.3841927035055952`}, {-1.96888265806177, 1.3513421751846704`, -1.7076885778239057`}}, 0.15]}, {RGBColor[1., 0.75, 0.5], TubeBox[{{0.7577060500636082, -3.417574128607672, 0.8404721259814049}, {-0.4236191761426814, -2.583922957662857, \ -0.2193178998544372}}, 0.15]}, {RGBColor[1., 0.75, 0.5], TubeBox[{{-5.006026807683891, 1.1430654246735832`, 0.3583039329529784}, {-4.471654655926771, 0.6120848675366743, -1.2651481383815724`}}, 0.15]}, {RGBColor[1., 0.75, 0.5], TubeBox[{{-4.668798576659672, 1.8155120652332144`, -5.702164831422715}, {-2.9618460939779707`, 2.218585449986988, -6.073993529767215}}, 0.15]}, {RGBColor[1., 0.75, 0.5], TubeBox[{{0.7691150835167616, 1.4699337837579312`, -8.648920726864464}, { 1.9704720457511926`, 0.7750416503237834, -7.513495137297311}}, 0.15]}, {RGBColor[1., 0.75, 0.5], TubeBox[{{6.96602776148251, 0.0963444670088822, -2.113669788475727}, { 5.831152917062304, 1.0648908407733972`, -3.5259913798314546`}}, 0.15]}, {RGBColor[1., 0.75, 0.5], TubeBox[{{6.477642646380998, 0.4994845863025102, -5.387744409305157}, { 5.831152917062304, 1.0648908407733972`, -3.5259913798314546`}}, 0.15]}, {RGBColor[1., 0.75, 0.5], TubeBox[{{7.640921956826999, 4.239757403213133, -3.6033658949392673`}, { 5.983872154408863, 3.6901376109650177`, -3.216381755835314}}, 0.15]}}, AspectRatio->Automatic, Axes->Automatic, AxesLabel->{ FormBox["xl", TraditionalForm], FormBox["yl", TraditionalForm], FormBox["zl", TraditionalForm]}, Boxed->True, SphericalRegion->True]], "Output", CellChangeTimes->{3.576169441100655*^9}], Cell[BoxData[ Graphics3DBox[{ {RGBColor[0.4, 0.2666666666666667, 0.13333333333333336`], Opacity[0.8], SphereBox[{-1.3980688900919522`, 0.805455850344071, -4.464090928590127}, 0.255]}, {RGBColor[0.4, 0.2666666666666667, 0.13333333333333336`], Opacity[0.8], SphereBox[{1.3135572727561748`, 1.5287042196501237`, -5.062978603965943}, 0.255]}, {RGBColor[0.4, 0.2666666666666667, 0.13333333333333336`], Opacity[0.8], SphereBox[{3.113025333324872, 0.21762508821692478`, -3.2319709251834805`}, 0.255]}, {RGBColor[0.4, 0.2666666666666667, 0.13333333333333336`], Opacity[0.8], SphereBox[{-0.0505456892037636, 0.0010442251710251998`, -0.026719908711450198`}, 0.255]}, {RGBColor[0.4, 0.2666666666666667, 0.13333333333333336`], Opacity[0.8], SphereBox[{-1.96888265806177, 1.3513421751846704`, -1.7076885778239057`}, 0.255]}, {RGBColor[0.4, 0.2666666666666667, 0.13333333333333336`], Opacity[0.8], SphereBox[{5.831152917062304, 1.0648908407733972`, -3.5259913798314546`}, 0.255]}, {RGBColor[1, NCache[ Rational[1, 3], 0.3333333333333333], NCache[ Rational[1, 3], 0.3333333333333333]], Opacity[0.8], SphereBox[{2.3838921091337952`, 0.7073774527716972, -0.7060892868397566}, 0.25]}, {RGBColor[1, NCache[ Rational[1, 3], 0.3333333333333333], NCache[ Rational[1, 3], 0.3333333333333333]], Opacity[0.8], SphereBox[{-2.9618460939779707`, 2.218585449986988, -6.073993529767215}, 0.25]}, {RGBColor[1, NCache[ Rational[1, 3], 0.3333333333333333], NCache[ Rational[1, 3], 0.3333333333333333]], Opacity[0.8], SphereBox[{1.9704720457511926`, 0.7750416503237834, -7.513495137297311}, 0.25]}, {RGBColor[1, NCache[ Rational[1, 3], 0.3333333333333333], NCache[ Rational[1, 3], 0.3333333333333333]], Opacity[0.8], SphereBox[{-0.4236191761426814, -2.583922957662857, -0.2193178998544372}, 0.25]}, {RGBColor[1, NCache[ Rational[1, 3], 0.3333333333333333], NCache[ Rational[1, 3], 0.3333333333333333]], Opacity[0.8], SphereBox[{-4.471654655926771, 0.6120848675366743, -1.2651481383815724`}, 0.25]}, {RGBColor[1, NCache[ Rational[1, 3], 0.3333333333333333], NCache[ Rational[1, 3], 0.3333333333333333]], Opacity[0.8], SphereBox[{5.983872154408863, 3.6901376109650177`, -3.216381755835314}, 0.25]}, {RGBColor[1, 1, 1], Opacity[0.8], SphereBox[{-1.6577592182196998`, -1.1991716725055654`, \ -4.810527946724262}, 0.12]}, {RGBColor[1, 1, 1], Opacity[0.8], SphereBox[{1.5125509466819167`, 3.5577053728898154`, -4.85668035254624}, 0.12]}, {RGBColor[1, 1, 1], Opacity[0.8], SphereBox[{3.044833160312358, -1.8003720983061384`, -3.593680062563323}, 0.12]}, {RGBColor[1, 1, 1], Opacity[0.8], SphereBox[{-0.251299028926528, 0.6088384135108648, 1.9219254729274184`}, 0.12]}, {RGBColor[1, 1, 1], Opacity[0.8], SphereBox[{-1.7476765128076537`, 3.3680883768907335`, -1.3841927035055952`}, 0.12]}, {RGBColor[1, 1, 1], Opacity[0.8], SphereBox[{0.7577060500636082, -3.417574128607672, 0.8404721259814049}, 0.12]}, {RGBColor[1, 1, 1], Opacity[0.8], SphereBox[{-5.006026807683891, 1.1430654246735832`, 0.3583039329529784}, 0.12]}, {RGBColor[1, 1, 1], Opacity[0.8], SphereBox[{-4.668798576659672, 1.8155120652332144`, -5.702164831422715}, 0.12]}, {RGBColor[1, 1, 1], Opacity[0.8], SphereBox[{0.7691150835167616, 1.4699337837579312`, -8.648920726864464}, 0.12]}, {RGBColor[1, 1, 1], Opacity[0.8], SphereBox[{6.96602776148251, 0.0963444670088822, -2.113669788475727}, 0.12]}, {RGBColor[1, 1, 1], Opacity[0.8], SphereBox[{6.477642646380998, 0.4994845863025102, -5.387744409305157}, 0.12]}, {RGBColor[1, 1, 1], Opacity[0.8], SphereBox[{7.640921956826999, 4.239757403213133, -3.6033658949392673`}, 0.12]}, Text3DBox["1", {-1.998068890091952, 0.805455850344071, -4.464090928590127}, {1, 0}], Text3DBox["2", {0.7135572727561749, 1.5287042196501237`, -5.062978603965943}, {1, 0}], Text3DBox["3", {2.513025333324872, 0.21762508821692478`, -3.2319709251834805`}, {1, 0}], Text3DBox["4", {-0.6505456892037635, 0.0010442251710251998`, -0.026719908711450198`}, {1, 0}], Text3DBox["5", {-2.56888265806177, 1.3513421751846704`, -1.7076885778239057`}, {1, 0}], Text3DBox["6", {5.231152917062304, 1.0648908407733972`, -3.5259913798314546`}, {1, 0}], Text3DBox["7", {1.7838921091337951`, 0.7073774527716972, -0.7060892868397566}, {1, 0}], Text3DBox["8", {-3.561846093977971, 2.218585449986988, -6.073993529767215}, {1, 0}], Text3DBox["9", {1.3704720457511925`, 0.7750416503237834, -7.513495137297311}, {1, 0}], Text3DBox[ "10", {-1.0236191761426814`, -2.583922957662857, -0.2193178998544372}, {1, 0}], Text3DBox["11", {-5.07165465592677, 0.6120848675366743, -1.2651481383815724`}, {1, 0}], Text3DBox["12", {5.383872154408864, 3.6901376109650177`, -3.216381755835314}, {1, 0}], Text3DBox[ "13", {-2.2577592182196997`, -1.1991716725055654`, -4.810527946724262}, { 1, 0}], Text3DBox["14", {0.9125509466819167, 3.5577053728898154`, -4.85668035254624}, {1, 0}], Text3DBox["15", { 2.444833160312358, -1.8003720983061384`, -3.593680062563323}, {1, 0}], Text3DBox["16", {-0.851299028926528, 0.6088384135108648, 1.9219254729274184`}, {1, 0}], Text3DBox["17", {-2.3476765128076535`, 3.3680883768907335`, -1.3841927035055952`}, {1, 0}], Text3DBox["18", {0.15770605006360827`, -3.417574128607672, 0.8404721259814049}, {1, 0}], Text3DBox["19", {-5.60602680768389, 1.1430654246735832`, 0.3583039329529784}, {1, 0}], Text3DBox["20", {-5.268798576659671, 1.8155120652332144`, -5.702164831422715}, {1, 0}], Text3DBox["21", {0.16911508351676163`, 1.4699337837579312`, -8.648920726864464}, {1, 0}], Text3DBox["22", {6.366027761482511, 0.0963444670088822, -2.113669788475727}, {1, 0}], Text3DBox["23", {5.877642646380998, 0.4994845863025102, -5.387744409305157}, {1, 0}], Text3DBox["24", {7.040921956826999, 4.239757403213133, -3.6033658949392673`}, {1, 0}], {RGBColor[ NCache[ Rational[1, 3], 0.3333333333333333], 1, 1], Opacity[0.5], Specularity[ GrayLevel[1], 20], SphereBox[{-0.042255808667888584`, 1.1670800349970973`, -4.763534766278035}, 1.1768058316775278`]}, {RGBColor[ NCache[ Rational[1, 3], 0.3333333333333333], 1, 1], Opacity[0.5], Specularity[ GrayLevel[1], 20], SphereBox[{2.2132913030405232`, 0.8731646539335243, -4.147474764574712}, 1.183319092849224]}, {RGBColor[ NCache[ Rational[1, 3], 0.3333333333333333], 1, 1], Opacity[0.5], Specularity[ GrayLevel[1], 20], SphereBox[{-1.683475774076861, 1.0783990127643708`, -3.085889753207016}, 1.1756643746586428`]}, {RGBColor[ NCache[ Rational[1, 3], 0.3333333333333333], 1, 1], Opacity[0.5], Specularity[ GrayLevel[1], 20], SphereBox[{-1.0097141736327668`, 0.6761932001778478, -0.867204243267678}, 1.1849983494824308`]}, {RGBColor[ NCache[ Rational[1, 3], 0.3333333333333333], 1, 1], Opacity[0.5], Specularity[ GrayLevel[1], 20], SphereBox[{4.4720891251935875`, 0.641257964495161, -3.3789811525074676`}, 1.1731293481618614`]}, {RGBColor[ NCache[ Rational[1, 3], 0.3333333333333333], 1, 1], Opacity[0.5], Specularity[ GrayLevel[1], 20], SphereBox[{2.7377571922644837`, 0.46968939324197667`, -1.9319576004424104`}, 1.1183710386618184`]}, {RGBColor[ NCache[ Rational[1, 3], 0.3333333333333333], 1, 1], Opacity[0.5], Specularity[ GrayLevel[1], 20], SphereBox[{1.203083597013999, 0.3647750301041395, -0.37656550721587356`}, 1.0933986933962405`]}, {RGBColor[ NCache[ Rational[1, 3], 0.3333333333333333], 1, 1], Opacity[0.5], Specularity[ GrayLevel[1], 20], SphereBox[{-2.2030999576936714`, 1.532933669711904, -5.2928673083325455`}, 1.1073458481626883`]}, {RGBColor[ NCache[ Rational[1, 3], 0.3333333333333333], 1, 1], Opacity[0.5], Specularity[ GrayLevel[1], 20], SphereBox[{1.6517568757667156`, 1.1406959235541465`, -6.324578666581251}, 1.1045579353945798`]}, {RGBColor[ NCache[ Rational[1, 3], 0.3333333333333333], 1, 1], Opacity[0.5], Specularity[ GrayLevel[1], 20], SphereBox[{-0.2426738867023303, -1.3301816668263224`, \ -0.12590547449303968`}, 1.0906709740546787`]}, {RGBColor[ NCache[ Rational[1, 3], 0.3333333333333333], 1, 1], Opacity[0.5], Specularity[ GrayLevel[1], 20], SphereBox[{-3.2573810825633727`, 0.970751423402926, -1.4798561346424592`}, 1.1047124173687315`]}, {RGBColor[ NCache[ Rational[1, 3], 0.3333333333333333], 1, 1], Opacity[0.5], Specularity[ GrayLevel[1], 20], SphereBox[{5.90977634727012, 2.416429191806859, -3.3665971143356854`}, 1.1051742698440383`]}, {RGBColor[1., 0.75, 0.5], TubeBox[{{1.3135572727561748`, 1.5287042196501237`, -5.062978603965943}, {-1.3980688900919522`, 0.805455850344071, -4.464090928590127}}, 0.15]}, {RGBColor[1., 0.75, 0.5], TubeBox[{{3.113025333324872, 0.21762508821692478`, -3.2319709251834805`}, {1.3135572727561748`, 1.5287042196501237`, -5.062978603965943}}, 0.15]}, {RGBColor[1., 0.75, 0.5], TubeBox[{{-1.96888265806177, 1.3513421751846704`, -1.7076885778239057`}, {-1.3980688900919522`, 0.805455850344071, -4.464090928590127}}, 0.15]}, {RGBColor[1., 0.75, 0.5], TubeBox[{{-1.96888265806177, 1.3513421751846704`, -1.7076885778239057`}, {-0.0505456892037636, 0.0010442251710251998`, -0.026719908711450198`}}, 0.15]}, {RGBColor[1., 0.75, 0.5], TubeBox[{{5.831152917062304, 1.0648908407733972`, -3.5259913798314546`}, { 3.113025333324872, 0.21762508821692478`, -3.2319709251834805`}}, 0.15]}, {RGBColor[1., 0.75, 0.5], TubeBox[{{2.3838921091337952`, 0.7073774527716972, -0.7060892868397566}, { 3.113025333324872, 0.21762508821692478`, -3.2319709251834805`}}, 0.15]}, {RGBColor[1., 0.75, 0.5], TubeBox[{{2.3838921091337952`, 0.7073774527716972, -0.7060892868397566}, {-0.0505456892037636, 0.0010442251710251998`, -0.026719908711450198`}}, 0.15]}, {RGBColor[1., 0.75, 0.5], TubeBox[{{-2.9618460939779707`, 2.218585449986988, -6.073993529767215}, {-1.3980688900919522`, 0.805455850344071, -4.464090928590127}}, 0.15]}, {RGBColor[1., 0.75, 0.5], TubeBox[{{1.9704720457511926`, 0.7750416503237834, -7.513495137297311}, { 1.3135572727561748`, 1.5287042196501237`, -5.062978603965943}}, 0.15]}, {RGBColor[1., 0.75, 0.5], TubeBox[{{-0.4236191761426814, -2.583922957662857, -0.2193178998544372}, \ {-0.0505456892037636, 0.0010442251710251998`, -0.026719908711450198`}}, 0.15]}, {RGBColor[1., 0.75, 0.5], TubeBox[{{-4.471654655926771, 0.6120848675366743, -1.2651481383815724`}, {-1.96888265806177, 1.3513421751846704`, -1.7076885778239057`}}, 0.15]}, {RGBColor[1., 0.75, 0.5], TubeBox[{{5.983872154408863, 3.6901376109650177`, -3.216381755835314}, { 5.831152917062304, 1.0648908407733972`, -3.5259913798314546`}}, 0.15]}, {RGBColor[1., 0.75, 0.5], TubeBox[{{-1.6577592182196998`, -1.1991716725055654`, \ -4.810527946724262}, {-1.3980688900919522`, 0.805455850344071, -4.464090928590127}}, 0.15]}, {RGBColor[1., 0.75, 0.5], TubeBox[{{1.5125509466819167`, 3.5577053728898154`, -4.85668035254624}, { 1.3135572727561748`, 1.5287042196501237`, -5.062978603965943}}, 0.15]}, {RGBColor[1., 0.75, 0.5], TubeBox[{{3.044833160312358, -1.8003720983061384`, -3.593680062563323}, { 3.113025333324872, 0.21762508821692478`, -3.2319709251834805`}}, 0.15]}, {RGBColor[1., 0.75, 0.5], TubeBox[{{-0.251299028926528, 0.6088384135108648, 1.9219254729274184`}, {-0.0505456892037636, 0.0010442251710251998`, -0.026719908711450198`}}, 0.15]}, {RGBColor[1., 0.75, 0.5], TubeBox[{{-1.7476765128076537`, 3.3680883768907335`, -1.3841927035055952`}, {-1.96888265806177, 1.3513421751846704`, -1.7076885778239057`}}, 0.15]}, {RGBColor[1., 0.75, 0.5], TubeBox[{{0.7577060500636082, -3.417574128607672, 0.8404721259814049}, {-0.4236191761426814, -2.583922957662857, \ -0.2193178998544372}}, 0.15]}, {RGBColor[1., 0.75, 0.5], TubeBox[{{-5.006026807683891, 1.1430654246735832`, 0.3583039329529784}, {-4.471654655926771, 0.6120848675366743, -1.2651481383815724`}}, 0.15]}, {RGBColor[1., 0.75, 0.5], TubeBox[{{-4.668798576659672, 1.8155120652332144`, -5.702164831422715}, {-2.9618460939779707`, 2.218585449986988, -6.073993529767215}}, 0.15]}, {RGBColor[1., 0.75, 0.5], TubeBox[{{0.7691150835167616, 1.4699337837579312`, -8.648920726864464}, { 1.9704720457511926`, 0.7750416503237834, -7.513495137297311}}, 0.15]}, {RGBColor[1., 0.75, 0.5], TubeBox[{{6.96602776148251, 0.0963444670088822, -2.113669788475727}, { 5.831152917062304, 1.0648908407733972`, -3.5259913798314546`}}, 0.15]}, {RGBColor[1., 0.75, 0.5], TubeBox[{{6.477642646380998, 0.4994845863025102, -5.387744409305157}, { 5.831152917062304, 1.0648908407733972`, -3.5259913798314546`}}, 0.15]}, {RGBColor[1., 0.75, 0.5], TubeBox[{{7.640921956826999, 4.239757403213133, -3.6033658949392673`}, { 5.983872154408863, 3.6901376109650177`, -3.216381755835314}}, 0.15]}}, AspectRatio->Automatic, Axes->Automatic, AxesLabel->{ FormBox["xl", TraditionalForm], FormBox["yl", TraditionalForm], FormBox["zl", TraditionalForm]}, Boxed->True, SphericalRegion->True]], "Output", CellChangeTimes->{3.576169441116255*^9}], Cell[BoxData[ Graphics3DBox[{ {RGBColor[0.4, 0.2666666666666667, 0.13333333333333336`], Opacity[0.8], SphereBox[{-1.3980688900919522`, 0.805455850344071, -4.464090928590127}, 0.255]}, {RGBColor[0.4, 0.2666666666666667, 0.13333333333333336`], Opacity[0.8], SphereBox[{1.3135572727561748`, 1.5287042196501237`, -5.062978603965943}, 0.255]}, {RGBColor[0.4, 0.2666666666666667, 0.13333333333333336`], Opacity[0.8], SphereBox[{3.113025333324872, 0.21762508821692478`, -3.2319709251834805`}, 0.255]}, {RGBColor[0.4, 0.2666666666666667, 0.13333333333333336`], Opacity[0.8], SphereBox[{-0.0505456892037636, 0.0010442251710251998`, -0.026719908711450198`}, 0.255]}, {RGBColor[0.4, 0.2666666666666667, 0.13333333333333336`], Opacity[0.8], SphereBox[{-1.96888265806177, 1.3513421751846704`, -1.7076885778239057`}, 0.255]}, {RGBColor[0.4, 0.2666666666666667, 0.13333333333333336`], Opacity[0.8], SphereBox[{5.831152917062304, 1.0648908407733972`, -3.5259913798314546`}, 0.255]}, {RGBColor[1, NCache[ Rational[1, 3], 0.3333333333333333], NCache[ Rational[1, 3], 0.3333333333333333]], Opacity[0.8], SphereBox[{2.3838921091337952`, 0.7073774527716972, -0.7060892868397566}, 0.25]}, {RGBColor[1, NCache[ Rational[1, 3], 0.3333333333333333], NCache[ Rational[1, 3], 0.3333333333333333]], Opacity[0.8], SphereBox[{-2.9618460939779707`, 2.218585449986988, -6.073993529767215}, 0.25]}, {RGBColor[1, NCache[ Rational[1, 3], 0.3333333333333333], NCache[ Rational[1, 3], 0.3333333333333333]], Opacity[0.8], SphereBox[{1.9704720457511926`, 0.7750416503237834, -7.513495137297311}, 0.25]}, {RGBColor[1, NCache[ Rational[1, 3], 0.3333333333333333], NCache[ Rational[1, 3], 0.3333333333333333]], Opacity[0.8], SphereBox[{-0.4236191761426814, -2.583922957662857, -0.2193178998544372}, 0.25]}, {RGBColor[1, NCache[ Rational[1, 3], 0.3333333333333333], NCache[ Rational[1, 3], 0.3333333333333333]], Opacity[0.8], SphereBox[{-4.471654655926771, 0.6120848675366743, -1.2651481383815724`}, 0.25]}, {RGBColor[1, NCache[ Rational[1, 3], 0.3333333333333333], NCache[ Rational[1, 3], 0.3333333333333333]], Opacity[0.8], SphereBox[{5.983872154408863, 3.6901376109650177`, -3.216381755835314}, 0.25]}, {RGBColor[1, 1, 1], Opacity[0.8], SphereBox[{-1.6577592182196998`, -1.1991716725055654`, \ -4.810527946724262}, 0.12]}, {RGBColor[1, 1, 1], Opacity[0.8], SphereBox[{1.5125509466819167`, 3.5577053728898154`, -4.85668035254624}, 0.12]}, {RGBColor[1, 1, 1], Opacity[0.8], SphereBox[{3.044833160312358, -1.8003720983061384`, -3.593680062563323}, 0.12]}, {RGBColor[1, 1, 1], Opacity[0.8], SphereBox[{-0.251299028926528, 0.6088384135108648, 1.9219254729274184`}, 0.12]}, {RGBColor[1, 1, 1], Opacity[0.8], SphereBox[{-1.7476765128076537`, 3.3680883768907335`, -1.3841927035055952`}, 0.12]}, {RGBColor[1, 1, 1], Opacity[0.8], SphereBox[{0.7577060500636082, -3.417574128607672, 0.8404721259814049}, 0.12]}, {RGBColor[1, 1, 1], Opacity[0.8], SphereBox[{-5.006026807683891, 1.1430654246735832`, 0.3583039329529784}, 0.12]}, {RGBColor[1, 1, 1], Opacity[0.8], SphereBox[{-4.668798576659672, 1.8155120652332144`, -5.702164831422715}, 0.12]}, {RGBColor[1, 1, 1], Opacity[0.8], SphereBox[{0.7691150835167616, 1.4699337837579312`, -8.648920726864464}, 0.12]}, {RGBColor[1, 1, 1], Opacity[0.8], SphereBox[{6.96602776148251, 0.0963444670088822, -2.113669788475727}, 0.12]}, {RGBColor[1, 1, 1], Opacity[0.8], SphereBox[{6.477642646380998, 0.4994845863025102, -5.387744409305157}, 0.12]}, {RGBColor[1, 1, 1], Opacity[0.8], SphereBox[{7.640921956826999, 4.239757403213133, -3.6033658949392673`}, 0.12]}, Text3DBox["1", {-1.998068890091952, 0.805455850344071, -4.464090928590127}, {1, 0}], Text3DBox["2", {0.7135572727561749, 1.5287042196501237`, -5.062978603965943}, {1, 0}], Text3DBox["3", {2.513025333324872, 0.21762508821692478`, -3.2319709251834805`}, {1, 0}], Text3DBox["4", {-0.6505456892037635, 0.0010442251710251998`, -0.026719908711450198`}, {1, 0}], Text3DBox["5", {-2.56888265806177, 1.3513421751846704`, -1.7076885778239057`}, {1, 0}], Text3DBox["6", {5.231152917062304, 1.0648908407733972`, -3.5259913798314546`}, {1, 0}], Text3DBox["7", {1.7838921091337951`, 0.7073774527716972, -0.7060892868397566}, {1, 0}], Text3DBox["8", {-3.561846093977971, 2.218585449986988, -6.073993529767215}, {1, 0}], Text3DBox["9", {1.3704720457511925`, 0.7750416503237834, -7.513495137297311}, {1, 0}], Text3DBox[ "10", {-1.0236191761426814`, -2.583922957662857, -0.2193178998544372}, {1, 0}], Text3DBox["11", {-5.07165465592677, 0.6120848675366743, -1.2651481383815724`}, {1, 0}], Text3DBox["12", {5.383872154408864, 3.6901376109650177`, -3.216381755835314}, {1, 0}], Text3DBox[ "13", {-2.2577592182196997`, -1.1991716725055654`, -4.810527946724262}, { 1, 0}], Text3DBox["14", {0.9125509466819167, 3.5577053728898154`, -4.85668035254624}, {1, 0}], Text3DBox["15", { 2.444833160312358, -1.8003720983061384`, -3.593680062563323}, {1, 0}], Text3DBox["16", {-0.851299028926528, 0.6088384135108648, 1.9219254729274184`}, {1, 0}], Text3DBox["17", {-2.3476765128076535`, 3.3680883768907335`, -1.3841927035055952`}, {1, 0}], Text3DBox["18", {0.15770605006360827`, -3.417574128607672, 0.8404721259814049}, {1, 0}], Text3DBox["19", {-5.60602680768389, 1.1430654246735832`, 0.3583039329529784}, {1, 0}], Text3DBox["20", {-5.268798576659671, 1.8155120652332144`, -5.702164831422715}, {1, 0}], Text3DBox["21", {0.16911508351676163`, 1.4699337837579312`, -8.648920726864464}, {1, 0}], Text3DBox["22", {6.366027761482511, 0.0963444670088822, -2.113669788475727}, {1, 0}], Text3DBox["23", {5.877642646380998, 0.4994845863025102, -5.387744409305157}, {1, 0}], Text3DBox["24", {7.040921956826999, 4.239757403213133, -3.6033658949392673`}, {1, 0}], {Opacity[0.5], Specularity[ GrayLevel[1], 20], SphereBox[{-1.5830500826757365`, -0.6224694502877988, -4.710863048413157}, 1.202850842802333]}, {Opacity[0.5], Specularity[ GrayLevel[1], 20], SphereBox[{1.4552557542102396`, 2.9735058387704303`, -4.9160787132502755`}, 1.2011469275406514`]}, {Opacity[0.5], Specularity[ GrayLevel[1], 20], SphereBox[{ 3.0644468448963464`, -1.2199482965807416`, -3.4896439449518066`}, 1.2032913779712615`]}, {Opacity[0.5], Specularity[ GrayLevel[1], 20], SphereBox[{-0.19355169809438136`, 0.43400449981166084`, 1.361391487871756}, 1.2030813007221388`]}, {Opacity[0.5], Specularity[ GrayLevel[1], 20], SphereBox[{-1.8112022034678872`, 2.7889218478478597`, -1.4770938243953384`}, 1.2064700001448028`]}, {Opacity[0.5], Specularity[ GrayLevel[1], 20], SphereBox[{0.4123367122078404, -3.1738499225001675`, 0.5306345204098165}, 1.0890679736499278`]}, {Opacity[0.5], Specularity[ GrayLevel[1], 20], SphereBox[{-4.849541572444154, 0.9875733820623103, -0.11710684294144547`}, 1.0861180159319515`]}, {Opacity[0.5], Specularity[ GrayLevel[1], 20], SphereBox[{-4.169816605988746, 1.9333398043706622`, -5.81085902094137}, 1.0892779971159923`]}, {Opacity[0.5], Specularity[ GrayLevel[1], 20], SphereBox[{1.1202498222889012`, 1.266829481357759, -8.317056526363777}, 1.089532704866463]}, {Opacity[0.5], Specularity[ GrayLevel[1], 20], SphereBox[{6.640109262550448, 0.3744960022512498, -2.5192667010578926`}, 1.2064282095122612`]}, {Opacity[0.5], Specularity[ GrayLevel[1], 20], SphereBox[{6.29160758092376, 0.6621869229216446, -4.852002956663125}, 1.202306695463844]}, {Opacity[0.5], Specularity[ GrayLevel[1], 20], SphereBox[{7.155260011164454, 4.07867026069736, -3.489945363061768}, 1.084598167889362]}, {RGBColor[1, NCache[ Rational[1, 3], 0.3333333333333333], NCache[ Rational[1, 3], 0.3333333333333333]], Opacity[0.4], Specularity[ GrayLevel[1], 20], SphereBox[{3.2490113397156346`, -0.0030649462778390424`, 0.10602481506355699`}, 1.125]}, {RGBColor[1, NCache[ Rational[1, 3], 0.3333333333333333], NCache[ Rational[1, 3], 0.3333333333333333]], Opacity[0.4], Specularity[ GrayLevel[1], 20], SphereBox[{-2.7568394761303625`, 3.563993342559499, -5.827947011315358}, 1.125]}, {RGBColor[1, NCache[ Rational[1, 3], 0.3333333333333333], NCache[ Rational[1, 3], 0.3333333333333333]], Opacity[0.4], Specularity[ GrayLevel[1], 20], SphereBox[{1.9132896008913605`, -0.6047129691077207, -7.588969359103688}, 1.125]}, {RGBColor[1, NCache[ Rational[1, 3], 0.3333333333333333], NCache[ Rational[1, 3], 0.3333333333333333]], Opacity[0.4], Specularity[ GrayLevel[1], 20], SphereBox[{-1.7012911607082928`, -2.882587327527382, 0.21776663891306322`}, 1.125]}, {RGBColor[1, NCache[ Rational[1, 3], 0.3333333333333333], NCache[ Rational[1, 3], 0.3333333333333333]], Opacity[0.4], Specularity[ GrayLevel[1], 20], SphereBox[{-5.278363801286425, 1.2208499087203206`, -2.2092426672428345`}, 1.125]}, {RGBColor[1, NCache[ Rational[1, 3], 0.3333333333333333], NCache[ Rational[1, 3], 0.3333333333333333]], Opacity[0.4], Specularity[ GrayLevel[1], 20], SphereBox[{5.715789054306371, 3.994578559216727, -1.894210753102673}, 1.125]}, {RGBColor[1, NCache[ Rational[1, 3], 0.3333333333333333], NCache[ Rational[1, 3], 0.3333333333333333]], Opacity[0.4], Specularity[ GrayLevel[1], 20], SphereBox[{2.470863164074963, 2.075251058443258, -0.5215714435033905}, 1.125]}, {RGBColor[1, NCache[ Rational[1, 3], 0.3333333333333333], NCache[ Rational[1, 3], 0.3333333333333333]], Opacity[0.4], Specularity[ GrayLevel[1], 20], SphereBox[{-2.693729725932945, 1.8621348870593453`, -7.383094598965048}, 1.125]}, {RGBColor[1, NCache[ Rational[1, 3], 0.3333333333333333], NCache[ Rational[1, 3], 0.3333333333333333]], Opacity[0.4], Specularity[ GrayLevel[1], 20], SphereBox[{3.2209265896513104`, 1.281084323963987, -7.818410283025796}, 1.125]}, {RGBColor[1, NCache[ Rational[1, 3], 0.3333333333333333], NCache[ Rational[1, 3], 0.3333333333333333]], Opacity[0.4], Specularity[ GrayLevel[1], 20], SphereBox[{-0.19667840129715272`, -2.9696753257372914`, \ -1.527898044605792}, 1.125]}, {RGBColor[1, NCache[ Rational[1, 3], 0.3333333333333333], NCache[ Rational[1, 3], 0.3333333333333333]], Opacity[0.4], Specularity[ GrayLevel[1], 20], SphereBox[{-4.532187769721849, -0.7687646042957073, -1.3128920204452015`}, 1.125]}, {RGBColor[1, NCache[ Rational[1, 3], 0.3333333333333333], NCache[ Rational[1, 3], 0.3333333333333333]], Opacity[0.4], Specularity[ GrayLevel[1], 20], SphereBox[{5.10312869918415, 4.290108128634881, -4.097866494220381}, 1.125]}, {RGBColor[1., 0.75, 0.5], TubeBox[{{1.3135572727561748`, 1.5287042196501237`, -5.062978603965943}, {-1.3980688900919522`, 0.805455850344071, -4.464090928590127}}, 0.15]}, {RGBColor[1., 0.75, 0.5], TubeBox[{{3.113025333324872, 0.21762508821692478`, -3.2319709251834805`}, {1.3135572727561748`, 1.5287042196501237`, -5.062978603965943}}, 0.15]}, {RGBColor[1., 0.75, 0.5], TubeBox[{{-1.96888265806177, 1.3513421751846704`, -1.7076885778239057`}, {-1.3980688900919522`, 0.805455850344071, -4.464090928590127}}, 0.15]}, {RGBColor[1., 0.75, 0.5], TubeBox[{{-1.96888265806177, 1.3513421751846704`, -1.7076885778239057`}, {-0.0505456892037636, 0.0010442251710251998`, -0.026719908711450198`}}, 0.15]}, {RGBColor[1., 0.75, 0.5], TubeBox[{{5.831152917062304, 1.0648908407733972`, -3.5259913798314546`}, { 3.113025333324872, 0.21762508821692478`, -3.2319709251834805`}}, 0.15]}, {RGBColor[1., 0.75, 0.5], TubeBox[{{2.3838921091337952`, 0.7073774527716972, -0.7060892868397566}, { 3.113025333324872, 0.21762508821692478`, -3.2319709251834805`}}, 0.15]}, {RGBColor[1., 0.75, 0.5], TubeBox[{{2.3838921091337952`, 0.7073774527716972, -0.7060892868397566}, {-0.0505456892037636, 0.0010442251710251998`, -0.026719908711450198`}}, 0.15]}, {RGBColor[1., 0.75, 0.5], TubeBox[{{-2.9618460939779707`, 2.218585449986988, -6.073993529767215}, {-1.3980688900919522`, 0.805455850344071, -4.464090928590127}}, 0.15]}, {RGBColor[1., 0.75, 0.5], TubeBox[{{1.9704720457511926`, 0.7750416503237834, -7.513495137297311}, { 1.3135572727561748`, 1.5287042196501237`, -5.062978603965943}}, 0.15]}, {RGBColor[1., 0.75, 0.5], TubeBox[{{-0.4236191761426814, -2.583922957662857, -0.2193178998544372}, \ {-0.0505456892037636, 0.0010442251710251998`, -0.026719908711450198`}}, 0.15]}, {RGBColor[1., 0.75, 0.5], TubeBox[{{-4.471654655926771, 0.6120848675366743, -1.2651481383815724`}, {-1.96888265806177, 1.3513421751846704`, -1.7076885778239057`}}, 0.15]}, {RGBColor[1., 0.75, 0.5], TubeBox[{{5.983872154408863, 3.6901376109650177`, -3.216381755835314}, { 5.831152917062304, 1.0648908407733972`, -3.5259913798314546`}}, 0.15]}, {RGBColor[1., 0.75, 0.5], TubeBox[{{-1.6577592182196998`, -1.1991716725055654`, \ -4.810527946724262}, {-1.3980688900919522`, 0.805455850344071, -4.464090928590127}}, 0.15]}, {RGBColor[1., 0.75, 0.5], TubeBox[{{1.5125509466819167`, 3.5577053728898154`, -4.85668035254624}, { 1.3135572727561748`, 1.5287042196501237`, -5.062978603965943}}, 0.15]}, {RGBColor[1., 0.75, 0.5], TubeBox[{{3.044833160312358, -1.8003720983061384`, -3.593680062563323}, { 3.113025333324872, 0.21762508821692478`, -3.2319709251834805`}}, 0.15]}, {RGBColor[1., 0.75, 0.5], TubeBox[{{-0.251299028926528, 0.6088384135108648, 1.9219254729274184`}, {-0.0505456892037636, 0.0010442251710251998`, -0.026719908711450198`}}, 0.15]}, {RGBColor[1., 0.75, 0.5], TubeBox[{{-1.7476765128076537`, 3.3680883768907335`, -1.3841927035055952`}, {-1.96888265806177, 1.3513421751846704`, -1.7076885778239057`}}, 0.15]}, {RGBColor[1., 0.75, 0.5], TubeBox[{{0.7577060500636082, -3.417574128607672, 0.8404721259814049}, {-0.4236191761426814, -2.583922957662857, \ -0.2193178998544372}}, 0.15]}, {RGBColor[1., 0.75, 0.5], TubeBox[{{-5.006026807683891, 1.1430654246735832`, 0.3583039329529784}, {-4.471654655926771, 0.6120848675366743, -1.2651481383815724`}}, 0.15]}, {RGBColor[1., 0.75, 0.5], TubeBox[{{-4.668798576659672, 1.8155120652332144`, -5.702164831422715}, {-2.9618460939779707`, 2.218585449986988, -6.073993529767215}}, 0.15]}, {RGBColor[1., 0.75, 0.5], TubeBox[{{0.7691150835167616, 1.4699337837579312`, -8.648920726864464}, { 1.9704720457511926`, 0.7750416503237834, -7.513495137297311}}, 0.15]}, {RGBColor[1., 0.75, 0.5], TubeBox[{{6.96602776148251, 0.0963444670088822, -2.113669788475727}, { 5.831152917062304, 1.0648908407733972`, -3.5259913798314546`}}, 0.15]}, {RGBColor[1., 0.75, 0.5], TubeBox[{{6.477642646380998, 0.4994845863025102, -5.387744409305157}, { 5.831152917062304, 1.0648908407733972`, -3.5259913798314546`}}, 0.15]}, {RGBColor[1., 0.75, 0.5], TubeBox[{{7.640921956826999, 4.239757403213133, -3.6033658949392673`}, { 5.983872154408863, 3.6901376109650177`, -3.216381755835314}}, 0.15]}}, AspectRatio->Automatic, Axes->Automatic, AxesLabel->{ FormBox["xl", TraditionalForm], FormBox["yl", TraditionalForm], FormBox["zl", TraditionalForm]}, Boxed->True, SphericalRegion->True]], "Output", CellChangeTimes->{3.576169441147455*^9}], Cell[BoxData[ Graphics3DBox[{ {RGBColor[0.4, 0.2666666666666667, 0.13333333333333336`], Opacity[0.8], SphereBox[{-1.3980688900919522`, 0.805455850344071, -4.464090928590127}, 0.255]}, {RGBColor[0.4, 0.2666666666666667, 0.13333333333333336`], Opacity[0.8], SphereBox[{1.3135572727561748`, 1.5287042196501237`, -5.062978603965943}, 0.255]}, {RGBColor[0.4, 0.2666666666666667, 0.13333333333333336`], Opacity[0.8], SphereBox[{3.113025333324872, 0.21762508821692478`, -3.2319709251834805`}, 0.255]}, {RGBColor[0.4, 0.2666666666666667, 0.13333333333333336`], Opacity[0.8], SphereBox[{-0.0505456892037636, 0.0010442251710251998`, -0.026719908711450198`}, 0.255]}, {RGBColor[0.4, 0.2666666666666667, 0.13333333333333336`], Opacity[0.8], SphereBox[{-1.96888265806177, 1.3513421751846704`, -1.7076885778239057`}, 0.255]}, {RGBColor[0.4, 0.2666666666666667, 0.13333333333333336`], Opacity[0.8], SphereBox[{5.831152917062304, 1.0648908407733972`, -3.5259913798314546`}, 0.255]}, {RGBColor[1, NCache[ Rational[1, 3], 0.3333333333333333], NCache[ Rational[1, 3], 0.3333333333333333]], Opacity[0.8], SphereBox[{2.3838921091337952`, 0.7073774527716972, -0.7060892868397566}, 0.25]}, {RGBColor[1, NCache[ Rational[1, 3], 0.3333333333333333], NCache[ Rational[1, 3], 0.3333333333333333]], Opacity[0.8], SphereBox[{-2.9618460939779707`, 2.218585449986988, -6.073993529767215}, 0.25]}, {RGBColor[1, NCache[ Rational[1, 3], 0.3333333333333333], NCache[ Rational[1, 3], 0.3333333333333333]], Opacity[0.8], SphereBox[{1.9704720457511926`, 0.7750416503237834, -7.513495137297311}, 0.25]}, {RGBColor[1, NCache[ Rational[1, 3], 0.3333333333333333], NCache[ Rational[1, 3], 0.3333333333333333]], Opacity[0.8], SphereBox[{-0.4236191761426814, -2.583922957662857, -0.2193178998544372}, 0.25]}, {RGBColor[1, NCache[ Rational[1, 3], 0.3333333333333333], NCache[ Rational[1, 3], 0.3333333333333333]], Opacity[0.8], SphereBox[{-4.471654655926771, 0.6120848675366743, -1.2651481383815724`}, 0.25]}, {RGBColor[1, NCache[ Rational[1, 3], 0.3333333333333333], NCache[ Rational[1, 3], 0.3333333333333333]], Opacity[0.8], SphereBox[{5.983872154408863, 3.6901376109650177`, -3.216381755835314}, 0.25]}, {RGBColor[1, 1, 1], Opacity[0.8], SphereBox[{-1.6577592182196998`, -1.1991716725055654`, \ -4.810527946724262}, 0.12]}, {RGBColor[1, 1, 1], Opacity[0.8], SphereBox[{1.5125509466819167`, 3.5577053728898154`, -4.85668035254624}, 0.12]}, {RGBColor[1, 1, 1], Opacity[0.8], SphereBox[{3.044833160312358, -1.8003720983061384`, -3.593680062563323}, 0.12]}, {RGBColor[1, 1, 1], Opacity[0.8], SphereBox[{-0.251299028926528, 0.6088384135108648, 1.9219254729274184`}, 0.12]}, {RGBColor[1, 1, 1], Opacity[0.8], SphereBox[{-1.7476765128076537`, 3.3680883768907335`, -1.3841927035055952`}, 0.12]}, {RGBColor[1, 1, 1], Opacity[0.8], SphereBox[{0.7577060500636082, -3.417574128607672, 0.8404721259814049}, 0.12]}, {RGBColor[1, 1, 1], Opacity[0.8], SphereBox[{-5.006026807683891, 1.1430654246735832`, 0.3583039329529784}, 0.12]}, {RGBColor[1, 1, 1], Opacity[0.8], SphereBox[{-4.668798576659672, 1.8155120652332144`, -5.702164831422715}, 0.12]}, {RGBColor[1, 1, 1], Opacity[0.8], SphereBox[{0.7691150835167616, 1.4699337837579312`, -8.648920726864464}, 0.12]}, {RGBColor[1, 1, 1], Opacity[0.8], SphereBox[{6.96602776148251, 0.0963444670088822, -2.113669788475727}, 0.12]}, {RGBColor[1, 1, 1], Opacity[0.8], SphereBox[{6.477642646380998, 0.4994845863025102, -5.387744409305157}, 0.12]}, {RGBColor[1, 1, 1], Opacity[0.8], SphereBox[{7.640921956826999, 4.239757403213133, -3.6033658949392673`}, 0.12]}, Text3DBox["1", {-1.998068890091952, 0.805455850344071, -4.464090928590127}, {1, 0}], Text3DBox["2", {0.7135572727561749, 1.5287042196501237`, -5.062978603965943}, {1, 0}], Text3DBox["3", {2.513025333324872, 0.21762508821692478`, -3.2319709251834805`}, {1, 0}], Text3DBox["4", {-0.6505456892037635, 0.0010442251710251998`, -0.026719908711450198`}, {1, 0}], Text3DBox["5", {-2.56888265806177, 1.3513421751846704`, -1.7076885778239057`}, {1, 0}], Text3DBox["6", {5.231152917062304, 1.0648908407733972`, -3.5259913798314546`}, {1, 0}], Text3DBox["7", {1.7838921091337951`, 0.7073774527716972, -0.7060892868397566}, {1, 0}], Text3DBox["8", {-3.561846093977971, 2.218585449986988, -6.073993529767215}, {1, 0}], Text3DBox["9", {1.3704720457511925`, 0.7750416503237834, -7.513495137297311}, {1, 0}], Text3DBox[ "10", {-1.0236191761426814`, -2.583922957662857, -0.2193178998544372}, {1, 0}], Text3DBox["11", {-5.07165465592677, 0.6120848675366743, -1.2651481383815724`}, {1, 0}], Text3DBox["12", {5.383872154408864, 3.6901376109650177`, -3.216381755835314}, {1, 0}], Text3DBox[ "13", {-2.2577592182196997`, -1.1991716725055654`, -4.810527946724262}, { 1, 0}], Text3DBox["14", {0.9125509466819167, 3.5577053728898154`, -4.85668035254624}, {1, 0}], Text3DBox["15", { 2.444833160312358, -1.8003720983061384`, -3.593680062563323}, {1, 0}], Text3DBox["16", {-0.851299028926528, 0.6088384135108648, 1.9219254729274184`}, {1, 0}], Text3DBox["17", {-2.3476765128076535`, 3.3680883768907335`, -1.3841927035055952`}, {1, 0}], Text3DBox["18", {0.15770605006360827`, -3.417574128607672, 0.8404721259814049}, {1, 0}], Text3DBox["19", {-5.60602680768389, 1.1430654246735832`, 0.3583039329529784}, {1, 0}], Text3DBox["20", {-5.268798576659671, 1.8155120652332144`, -5.702164831422715}, {1, 0}], Text3DBox["21", {0.16911508351676163`, 1.4699337837579312`, -8.648920726864464}, {1, 0}], Text3DBox["22", {6.366027761482511, 0.0963444670088822, -2.113669788475727}, {1, 0}], Text3DBox["23", {5.877642646380998, 0.4994845863025102, -5.387744409305157}, {1, 0}], Text3DBox["24", {7.040921956826999, 4.239757403213133, -3.6033658949392673`}, {1, 0}], {RGBColor[1, NCache[ Rational[1, 3], 0.3333333333333333], NCache[ Rational[1, 3], 0.3333333333333333]], Opacity[0.4], Specularity[ GrayLevel[1], 20], SphereBox[{3.2490113397156346`, -0.0030649462778390424`, 0.10602481506355699`}, 1.125]}, {RGBColor[1, NCache[ Rational[1, 3], 0.3333333333333333], NCache[ Rational[1, 3], 0.3333333333333333]], Opacity[0.4], Specularity[ GrayLevel[1], 20], SphereBox[{-2.7568394761303625`, 3.563993342559499, -5.827947011315358}, 1.125]}, {RGBColor[1, NCache[ Rational[1, 3], 0.3333333333333333], NCache[ Rational[1, 3], 0.3333333333333333]], Opacity[0.4], Specularity[ GrayLevel[1], 20], SphereBox[{1.9132896008913605`, -0.6047129691077207, -7.588969359103688}, 1.125]}, {RGBColor[1, NCache[ Rational[1, 3], 0.3333333333333333], NCache[ Rational[1, 3], 0.3333333333333333]], Opacity[0.4], Specularity[ GrayLevel[1], 20], SphereBox[{-1.7012911607082928`, -2.882587327527382, 0.21776663891306322`}, 1.125]}, {RGBColor[1, NCache[ Rational[1, 3], 0.3333333333333333], NCache[ Rational[1, 3], 0.3333333333333333]], Opacity[0.4], Specularity[ GrayLevel[1], 20], SphereBox[{-5.278363801286425, 1.2208499087203206`, -2.2092426672428345`}, 1.125]}, {RGBColor[1, NCache[ Rational[1, 3], 0.3333333333333333], NCache[ Rational[1, 3], 0.3333333333333333]], Opacity[0.4], Specularity[ GrayLevel[1], 20], SphereBox[{5.715789054306371, 3.994578559216727, -1.894210753102673}, 1.125]}, {RGBColor[1, NCache[ Rational[1, 3], 0.3333333333333333], NCache[ Rational[1, 3], 0.3333333333333333]], Opacity[0.4], Specularity[ GrayLevel[1], 20], SphereBox[{2.470863164074963, 2.075251058443258, -0.5215714435033905}, 1.125]}, {RGBColor[1, NCache[ Rational[1, 3], 0.3333333333333333], NCache[ Rational[1, 3], 0.3333333333333333]], Opacity[0.4], Specularity[ GrayLevel[1], 20], SphereBox[{-2.693729725932945, 1.8621348870593453`, -7.383094598965048}, 1.125]}, {RGBColor[1, NCache[ Rational[1, 3], 0.3333333333333333], NCache[ Rational[1, 3], 0.3333333333333333]], Opacity[0.4], Specularity[ GrayLevel[1], 20], SphereBox[{3.2209265896513104`, 1.281084323963987, -7.818410283025796}, 1.125]}, {RGBColor[1, NCache[ Rational[1, 3], 0.3333333333333333], NCache[ Rational[1, 3], 0.3333333333333333]], Opacity[0.4], Specularity[ GrayLevel[1], 20], SphereBox[{-0.19667840129715272`, -2.9696753257372914`, \ -1.527898044605792}, 1.125]}, {RGBColor[1, NCache[ Rational[1, 3], 0.3333333333333333], NCache[ Rational[1, 3], 0.3333333333333333]], Opacity[0.4], Specularity[ GrayLevel[1], 20], SphereBox[{-4.532187769721849, -0.7687646042957073, -1.3128920204452015`}, 1.125]}, {RGBColor[1, NCache[ Rational[1, 3], 0.3333333333333333], NCache[ Rational[1, 3], 0.3333333333333333]], Opacity[0.4], Specularity[ GrayLevel[1], 20], SphereBox[{5.10312869918415, 4.290108128634881, -4.097866494220381}, 1.125]}, {RGBColor[1., 0.75, 0.5], TubeBox[{{1.3135572727561748`, 1.5287042196501237`, -5.062978603965943}, {-1.3980688900919522`, 0.805455850344071, -4.464090928590127}}, 0.15]}, {RGBColor[1., 0.75, 0.5], TubeBox[{{3.113025333324872, 0.21762508821692478`, -3.2319709251834805`}, {1.3135572727561748`, 1.5287042196501237`, -5.062978603965943}}, 0.15]}, {RGBColor[1., 0.75, 0.5], TubeBox[{{-1.96888265806177, 1.3513421751846704`, -1.7076885778239057`}, {-1.3980688900919522`, 0.805455850344071, -4.464090928590127}}, 0.15]}, {RGBColor[1., 0.75, 0.5], TubeBox[{{-1.96888265806177, 1.3513421751846704`, -1.7076885778239057`}, {-0.0505456892037636, 0.0010442251710251998`, -0.026719908711450198`}}, 0.15]}, {RGBColor[1., 0.75, 0.5], TubeBox[{{5.831152917062304, 1.0648908407733972`, -3.5259913798314546`}, { 3.113025333324872, 0.21762508821692478`, -3.2319709251834805`}}, 0.15]}, {RGBColor[1., 0.75, 0.5], TubeBox[{{2.3838921091337952`, 0.7073774527716972, -0.7060892868397566}, { 3.113025333324872, 0.21762508821692478`, -3.2319709251834805`}}, 0.15]}, {RGBColor[1., 0.75, 0.5], TubeBox[{{2.3838921091337952`, 0.7073774527716972, -0.7060892868397566}, {-0.0505456892037636, 0.0010442251710251998`, -0.026719908711450198`}}, 0.15]}, {RGBColor[1., 0.75, 0.5], TubeBox[{{-2.9618460939779707`, 2.218585449986988, -6.073993529767215}, {-1.3980688900919522`, 0.805455850344071, -4.464090928590127}}, 0.15]}, {RGBColor[1., 0.75, 0.5], TubeBox[{{1.9704720457511926`, 0.7750416503237834, -7.513495137297311}, { 1.3135572727561748`, 1.5287042196501237`, -5.062978603965943}}, 0.15]}, {RGBColor[1., 0.75, 0.5], TubeBox[{{-0.4236191761426814, -2.583922957662857, -0.2193178998544372}, \ {-0.0505456892037636, 0.0010442251710251998`, -0.026719908711450198`}}, 0.15]}, {RGBColor[1., 0.75, 0.5], TubeBox[{{-4.471654655926771, 0.6120848675366743, -1.2651481383815724`}, {-1.96888265806177, 1.3513421751846704`, -1.7076885778239057`}}, 0.15]}, {RGBColor[1., 0.75, 0.5], TubeBox[{{5.983872154408863, 3.6901376109650177`, -3.216381755835314}, { 5.831152917062304, 1.0648908407733972`, -3.5259913798314546`}}, 0.15]}, {RGBColor[1., 0.75, 0.5], TubeBox[{{-1.6577592182196998`, -1.1991716725055654`, \ -4.810527946724262}, {-1.3980688900919522`, 0.805455850344071, -4.464090928590127}}, 0.15]}, {RGBColor[1., 0.75, 0.5], TubeBox[{{1.5125509466819167`, 3.5577053728898154`, -4.85668035254624}, { 1.3135572727561748`, 1.5287042196501237`, -5.062978603965943}}, 0.15]}, {RGBColor[1., 0.75, 0.5], TubeBox[{{3.044833160312358, -1.8003720983061384`, -3.593680062563323}, { 3.113025333324872, 0.21762508821692478`, -3.2319709251834805`}}, 0.15]}, {RGBColor[1., 0.75, 0.5], TubeBox[{{-0.251299028926528, 0.6088384135108648, 1.9219254729274184`}, {-0.0505456892037636, 0.0010442251710251998`, -0.026719908711450198`}}, 0.15]}, {RGBColor[1., 0.75, 0.5], TubeBox[{{-1.7476765128076537`, 3.3680883768907335`, -1.3841927035055952`}, {-1.96888265806177, 1.3513421751846704`, -1.7076885778239057`}}, 0.15]}, {RGBColor[1., 0.75, 0.5], TubeBox[{{0.7577060500636082, -3.417574128607672, 0.8404721259814049}, {-0.4236191761426814, -2.583922957662857, \ -0.2193178998544372}}, 0.15]}, {RGBColor[1., 0.75, 0.5], TubeBox[{{-5.006026807683891, 1.1430654246735832`, 0.3583039329529784}, {-4.471654655926771, 0.6120848675366743, -1.2651481383815724`}}, 0.15]}, {RGBColor[1., 0.75, 0.5], TubeBox[{{-4.668798576659672, 1.8155120652332144`, -5.702164831422715}, {-2.9618460939779707`, 2.218585449986988, -6.073993529767215}}, 0.15]}, {RGBColor[1., 0.75, 0.5], TubeBox[{{0.7691150835167616, 1.4699337837579312`, -8.648920726864464}, { 1.9704720457511926`, 0.7750416503237834, -7.513495137297311}}, 0.15]}, {RGBColor[1., 0.75, 0.5], TubeBox[{{6.96602776148251, 0.0963444670088822, -2.113669788475727}, { 5.831152917062304, 1.0648908407733972`, -3.5259913798314546`}}, 0.15]}, {RGBColor[1., 0.75, 0.5], TubeBox[{{6.477642646380998, 0.4994845863025102, -5.387744409305157}, { 5.831152917062304, 1.0648908407733972`, -3.5259913798314546`}}, 0.15]}, {RGBColor[1., 0.75, 0.5], TubeBox[{{7.640921956826999, 4.239757403213133, -3.6033658949392673`}, { 5.983872154408863, 3.6901376109650177`, -3.216381755835314}}, 0.15]}}, AspectRatio->Automatic, Axes->Automatic, AxesLabel->{ FormBox["xl", TraditionalForm], FormBox["yl", TraditionalForm], FormBox["zl", TraditionalForm]}, Boxed->True, SphericalRegion->True]], "Output", CellChangeTimes->{3.576169441178655*^9}] }, Open ]], Cell[CellGroupData[{ Cell[BoxData[{ RowBox[{ RowBox[{ RowBox[{"tc", "=", RowBox[{"Table", "[", RowBox[{ RowBox[{"{", RowBox[{ RowBox[{"x", "[", RowBox[{"[", "i", "]"}], "]"}], ",", RowBox[{"y", "[", RowBox[{"[", "i", "]"}], "]"}], ",", RowBox[{"z", "[", RowBox[{"[", "i", "]"}], "]"}]}], "}"}], ",", RowBox[{"{", RowBox[{"i", ",", "1", ",", "bc"}], "}"}]}], "]"}]}], ";"}], " ", RowBox[{"(*", " ", RowBox[{"core", " ", "clouds"}], " ", "*)"}]}], "\[IndentingNewLine]", RowBox[{ RowBox[{ RowBox[{"twc", "=", RowBox[{"Table", "[", RowBox[{ RowBox[{"{", RowBox[{ RowBox[{"wxc", "[", RowBox[{"[", "i", "]"}], "]"}], ",", RowBox[{"wyc", "[", RowBox[{"[", "i", "]"}], "]"}], ",", RowBox[{"wzc", "[", RowBox[{"[", "i", "]"}], "]"}]}], "}"}], ",", RowBox[{"{", RowBox[{"i", ",", "1", ",", "cw"}], "}"}]}], "]"}]}], ";"}], " ", RowBox[{"(*", " ", RowBox[{"Bond", " ", "c\[ODoubleDot]ouds", " ", "between", " ", "cores"}], " ", "*)"}]}], "\[IndentingNewLine]", RowBox[{ RowBox[{ RowBox[{"twh", "=", RowBox[{"Table", "[", RowBox[{ RowBox[{"{", RowBox[{ RowBox[{"wxh", "[", RowBox[{"[", "i", "]"}], "]"}], ",", RowBox[{"wyh", "[", RowBox[{"[", "i", "]"}], "]"}], ",", RowBox[{"wzh", "[", RowBox[{"[", "i", "]"}], "]"}]}], "}"}], ",", RowBox[{"{", RowBox[{"i", ",", "1", ",", "bh"}], "}"}]}], "]"}]}], ";"}], " ", RowBox[{"(*", " ", RowBox[{"H", "-", RowBox[{"bonding", " ", "clouds"}]}], " ", "*)"}], " "}], "\[IndentingNewLine]", RowBox[{ RowBox[{"tw", "=", RowBox[{"Join", "[", RowBox[{"tc", ",", "twc", ",", "twh", ",", "tpso", ",", "tpsu"}], "]"}]}], ";"}], "\[IndentingNewLine]", RowBox[{ RowBox[{"bt", "=", RowBox[{"Length", "[", "tw", "]"}]}], "\[IndentingNewLine]", RowBox[{"(*", RowBox[{"MatrixForm", "[", "tw", "]"}], "*)"}]}], "\[IndentingNewLine]", RowBox[{ RowBox[{"(*", " ", RowBox[{"coordinates", " ", "of", " ", "clouds"}], " ", "*)"}]}]}], "Input", CellChangeTimes->{{3.568895397419882*^9, 3.5688955157148895`*^9}, { 3.568895549629349*^9, 3.5688955855718126`*^9}, {3.568895617317868*^9, 3.568895845234268*^9}, {3.5688960797194805`*^9, 3.5688961015127187`*^9}, { 3.568896219074525*^9, 3.5688962276233397`*^9}, {3.568896262910602*^9, 3.5688962903198504`*^9}, 3.5688964250728865`*^9, 3.568896456912543*^9, { 3.5688981540863237`*^9, 3.5688981869399815`*^9}, {3.5689021233572955`*^9, 3.5689021341525145`*^9}, {3.5689111169043026`*^9, 3.5689111218495116`*^9}, {3.568911235261711*^9, 3.568911242437723*^9}, 3.5689112948850155`*^9, {3.5689116510180407`*^9, 3.568911800419503*^9}, { 3.568911871820829*^9, 3.5689119012892804`*^9}, {3.5689119993042526`*^9, 3.5689120006770554`*^9}, {3.568912144306507*^9, 3.568912165085744*^9}, { 3.5689528310632005`*^9, 3.5689528569592457`*^9}, {3.5689534065794115`*^9, 3.5689534297298517`*^9}, {3.568954496214126*^9, 3.5689545054337425`*^9}, 3.5689569073699613`*^9, {3.56913308739126*^9, 3.5691332012870607`*^9}, { 3.569135511323518*^9, 3.5691355127119203`*^9}, {3.569136204167535*^9, 3.569136290747687*^9}, {3.5691598050571885`*^9, 3.569159843199256*^9}, { 3.5692215417755947`*^9, 3.569221597186892*^9}, {3.5692216819730406`*^9, 3.5692217090546885`*^9}, {3.5692217693019943`*^9, 3.5692218260704937`*^9}, {3.5692219780303607`*^9, 3.569221989433981*^9}, { 3.569222055468897*^9, 3.5692220728005276`*^9}, {3.5693401536421804`*^9, 3.5693401889450426`*^9}, 3.5693411655535583`*^9, {3.569341634303181*^9, 3.569341638733589*^9}, {3.5704549882757435`*^9, 3.5704550487414494`*^9}, { 3.570455928146194*^9, 3.5704559415310173`*^9}, {3.5708553973857827`*^9, 3.5708554057785974`*^9}, {3.5718402591869545`*^9, 3.5718402726497784`*^9}, 3.572328636723397*^9, {3.572328748419593*^9, 3.57232875246*^9}, { 3.5725921859362335`*^9, 3.5725921932682457`*^9}, {3.5725923978158054`*^9, 3.5725924023086133`*^9}, 3.5725926630786715`*^9, {3.5726167873570023`*^9, 3.57261679757502*^9}, 3.572620232450739*^9, {3.5726252144466896`*^9, 3.57262521482109*^9}, {3.572842310446463*^9, 3.5728423195412793`*^9}, 3.572851092419488*^9, {3.572851145927582*^9, 3.5728511735708303`*^9}, { 3.5728512529593697`*^9, 3.572851265595392*^9}, 3.5728513850916023`*^9, 3.573124143499799*^9, {3.5733124027399025`*^9, 3.573312472362825*^9}, { 3.5733130968319216`*^9, 3.5733130974091225`*^9}, {3.573316202329376*^9, 3.573316209786189*^9}, 3.573368517265889*^9, 3.5746700189174166`*^9, { 3.574670900474965*^9, 3.5746709256066093`*^9}, 3.5758638957513986`*^9}], Cell[BoxData["48"], "Output", CellChangeTimes->{3.576169441194255*^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}, {3.5759877616042566`*^9, 3.575987766253065*^9}, 3.57605398791148*^9}], Cell[BoxData["48"], "Output", CellChangeTimes->{3.576169441209855*^9}] }, Open ]], Cell[BoxData[ RowBox[{ RowBox[{"(*", " ", RowBox[{"nucleus", "-", RowBox[{"nucleus", " ", "distances"}]}], " ", "*)"}], "\[IndentingNewLine]", RowBox[{"(*", RowBox[{"MatrixForm", "[", "dc", "]"}], " ", "*)"}], " "}]], "Input", CellChangeTimes->{{3.5688982251756487`*^9, 3.5688986440675845`*^9}, { 3.5688986873108606`*^9, 3.56889871560931*^9}, {3.5688987970414534`*^9, 3.5688988526711507`*^9}, {3.568898887147211*^9, 3.568898888644814*^9}, { 3.5688989206248703`*^9, 3.568899041759083*^9}, {3.5688990876855636`*^9, 3.568899258349863*^9}, 3.568899300267137*^9, {3.568899351326027*^9, 3.5688993831032825`*^9}, {3.5688994370481772`*^9, 3.568899468217032*^9}, { 3.5688995813016305`*^9, 3.5688997165538683`*^9}, {3.5688998495129013`*^9, 3.568899932364647*^9}, {3.568899967667509*^9, 3.568900024529609*^9}, { 3.5689000794261055`*^9, 3.568900136257005*^9}, {3.5689001767858763`*^9, 3.56890020149632*^9}, {3.568902068726*^9, 3.568902074139209*^9}, 3.56890216040736*^9, 3.568902344113283*^9, {3.5689024237982235`*^9, 3.56890243907065*^9}, 3.5689025770684924`*^9, 3.568910195129884*^9, 3.568910620995032*^9, {3.568912393532545*^9, 3.5689124022841606`*^9}, { 3.5691332074958715`*^9, 3.5691332081666727`*^9}, {3.5691352237838125`*^9, 3.5691352313342257`*^9}, {3.5691489965881166`*^9, 3.5691490103317413`*^9}, {3.5691490440122004`*^9, 3.5691491273631463`*^9}, {3.5691523435842266`*^9, 3.56915234531583*^9}, { 3.5691524837816734`*^9, 3.569152599175076*^9}, {3.569159470889002*^9, 3.569159489874235*^9}, {3.569160442895509*^9, 3.5691604484335184`*^9}, 3.569237923385586*^9, 3.569341165569158*^9, 3.5693418217843103`*^9, { 3.570341048161818*^9, 3.570341058286236*^9}, {3.57034131095988*^9, 3.570341315156287*^9}, 3.5703415891395683`*^9, 3.570341976207448*^9}], Cell[CellGroupData[{ Cell[BoxData[{ RowBox[{ RowBox[{"tv1", "=", RowBox[{"Table", "[", RowBox[{ RowBox[{"t", "[", RowBox[{"[", "i", "]"}], "]"}], ",", RowBox[{"{", RowBox[{"i", ",", "1", ",", "bc"}], "}"}]}], "]"}]}], ";"}], "\[IndentingNewLine]", RowBox[{ RowBox[{"tv2", "=", RowBox[{"Table", "[", RowBox[{ RowBox[{"{", RowBox[{"0", ",", "0", ",", "0"}], "}"}], ",", RowBox[{"{", RowBox[{"i", ",", "1", ",", "cw"}], "}"}]}], "]"}]}], ";"}], "\[IndentingNewLine]", RowBox[{ RowBox[{ RowBox[{"tv3", "=", " ", RowBox[{"Table", "[", RowBox[{ RowBox[{"t", "[", RowBox[{"[", "i", "]"}], "]"}], ",", RowBox[{"{", RowBox[{"i", ",", RowBox[{"bc", "+", "1"}], ",", "n"}], "}"}]}], "]"}]}], ";"}], "\[IndentingNewLine]", RowBox[{"(*", RowBox[{ RowBox[{"tv4", " ", "=", RowBox[{"Table", "[", RowBox[{ RowBox[{"{", RowBox[{"0", ",", "0", ",", "0"}], "}"}], ",", RowBox[{"{", RowBox[{"i", ",", "1", ",", "cj"}], "}"}]}], "]"}]}], ";", " ", "\[IndentingNewLine]", RowBox[{"tv5", " ", "=", RowBox[{"Table", "[", RowBox[{ RowBox[{"{", RowBox[{"0", ",", "0", ",", "0"}], "}"}], ",", RowBox[{"{", RowBox[{"i", ",", "1", ",", "cj"}], "}"}]}], "]"}]}], ";"}], " ", "*)"}]}], "\[IndentingNewLine]", RowBox[{ RowBox[{ RowBox[{"tv6", " ", "=", RowBox[{"Table", "[", RowBox[{ RowBox[{"{", RowBox[{"0", ",", "0", ",", "0"}], "}"}], ",", RowBox[{"{", RowBox[{"i", ",", "1", ",", RowBox[{"2", "*", "hj"}]}], "}"}]}], "]"}]}], ";"}], " "}], "\[IndentingNewLine]", RowBox[{ RowBox[{ RowBox[{"tv", " ", "=", " ", RowBox[{"Join", "[", RowBox[{"tv1", ",", "tv2", ",", "tv3", ",", RowBox[{"(*", RowBox[{"tv4", ",", "tv5", ","}], "*)"}], "tv6"}], "]"}]}], ";"}], "\[IndentingNewLine]", RowBox[{"(*", RowBox[{"MatrixForm", "[", "tv", "]"}], "*)"}]}], "\[IndentingNewLine]", RowBox[{"Length", "[", "tv", "]"}]}], "Input", CellChangeTimes->{{3.5688982251756487`*^9, 3.5688986440675845`*^9}, { 3.5688986873108606`*^9, 3.56889871560931*^9}, {3.5688987970414534`*^9, 3.5688988526711507`*^9}, {3.568898887147211*^9, 3.568898888644814*^9}, { 3.5688989206248703`*^9, 3.568899041759083*^9}, {3.5688990876855636`*^9, 3.568899258349863*^9}, 3.568899300267137*^9, {3.568899351326027*^9, 3.5688993831032825`*^9}, {3.5688994370481772`*^9, 3.568899468217032*^9}, { 3.5688995813016305`*^9, 3.5688997165538683`*^9}, {3.5688998495129013`*^9, 3.568899932364647*^9}, {3.568899967667509*^9, 3.568900024529609*^9}, { 3.5689000794261055`*^9, 3.568900136257005*^9}, {3.5689001767858763`*^9, 3.56890020149632*^9}, {3.568902068726*^9, 3.568902074139209*^9}, 3.56890216040736*^9, 3.568902344113283*^9, {3.5689024237982235`*^9, 3.56890243907065*^9}, 3.5689025770684924`*^9, 3.568910195129884*^9, 3.568910620995032*^9, {3.568912393532545*^9, 3.5689124022841606`*^9}, { 3.5691332074958715`*^9, 3.5691332081666727`*^9}, {3.5691352237838125`*^9, 3.5691352313342257`*^9}, {3.5691489965881166`*^9, 3.5691490103317413`*^9}, {3.5691490440122004`*^9, 3.5691491273631463`*^9}, {3.5691523435842266`*^9, 3.56915234531583*^9}, { 3.5691524837816734`*^9, 3.5691526041202846`*^9}, {3.5691595921324143`*^9, 3.5691596901941867`*^9}, {3.569159772406331*^9, 3.5691597832951508`*^9}, { 3.5691598700313025`*^9, 3.569159885147729*^9}, {3.569160485733184*^9, 3.569160486887586*^9}, {3.5691672792073207`*^9, 3.5691672793789206`*^9}, { 3.5691673418102303`*^9, 3.5691674875144863`*^9}, {3.569168259700243*^9, 3.569168260386644*^9}, {3.569168321257951*^9, 3.569168337466379*^9}, { 3.5691685152754917`*^9, 3.569168656096939*^9}, {3.5691687137702403`*^9, 3.569168772566744*^9}, {3.5691697249898825`*^9, 3.569169747063921*^9}, { 3.569169944981469*^9, 3.5691699696763124`*^9}, 3.569341165569158*^9, { 3.5693417833614435`*^9, 3.5693417874486504`*^9}, {3.5704552110753345`*^9, 3.5704552378605814`*^9}, {3.5704560776724567`*^9, 3.570456083070066*^9}, { 3.570855427306635*^9, 3.570855434529448*^9}, {3.57184030784344*^9, 3.5718403245666695`*^9}, {3.5723553440956435`*^9, 3.5723553601792717`*^9}, {3.5723567913257856`*^9, 3.572356801543803*^9}, { 3.5723587125159597`*^9, 3.572358735884801*^9}, {3.5726205042656164`*^9, 3.5726205078692226`*^9}, {3.5726209578956137`*^9, 3.5726209632776227`*^9}, {3.5726266468256054`*^9, 3.5726266628780336`*^9}, {3.57284236531176*^9, 3.57284238273699*^9}, { 3.572842728620798*^9, 3.572842734502008*^9}, 3.5731240921601086`*^9, { 3.5733125819686174`*^9, 3.573312582608218*^9}, {3.5733126196738834`*^9, 3.5733126474263325`*^9}, {3.5733131200291624`*^9, 3.5733131288743777`*^9}, 3.573368536719124*^9, {3.5746698693443537`*^9, 3.5746698885011873`*^9}, { 3.574740991757182*^9, 3.5747410134412203`*^9}, {3.5748285231568966`*^9, 3.5748285315497117`*^9}, {3.5748737997424955`*^9, 3.5748738036893024`*^9}, {3.5758639271698537`*^9, 3.575863942754281*^9}}], Cell[BoxData["48"], "Output", CellChangeTimes->{3.5761694412254553`*^9}] }, Open ]], Cell[CellGroupData[{ Cell[BoxData[{ RowBox[{ RowBox[{"ow", "=", RowBox[{"Join", "[", RowBox[{ RowBox[{"Table", "[", RowBox[{ RowBox[{"-", "2.0"}], ",", RowBox[{"{", RowBox[{"i", ",", "1", ",", RowBox[{"bc", "+", "nb"}]}], "}"}]}], "]"}], ",", RowBox[{"(*", RowBox[{ RowBox[{"Table", "[", RowBox[{ RowBox[{"-", "0.5"}], ",", RowBox[{"{", RowBox[{"i", ",", "1", ",", RowBox[{"2", "*", "cj"}]}], "}"}]}], "]"}], ","}], "*)"}], RowBox[{"Table", "[", RowBox[{ RowBox[{"-", "2.0"}], ",", RowBox[{"{", RowBox[{"i", ",", "1", ",", RowBox[{"2", "*", "hj"}]}], "}"}]}], "]"}]}], "]"}]}], ";"}], "\[IndentingNewLine]", "ow", "\[IndentingNewLine]", RowBox[{"cnv", "=", RowBox[{"Join", "[", RowBox[{ RowBox[{"Table", "[", RowBox[{ RowBox[{"cn", "[", RowBox[{"[", "i", "]"}], "]"}], ",", RowBox[{"{", RowBox[{"i", ",", "1", ",", "bc"}], "}"}]}], "]"}], ",", RowBox[{"Table", "[", RowBox[{"0.0", ",", RowBox[{"{", RowBox[{"i", ",", "1", ",", "cw"}], "}"}]}], "]"}], ",", RowBox[{"Table", "[", RowBox[{ RowBox[{"cn", "[", RowBox[{"[", "i", "]"}], "]"}], ",", RowBox[{"{", RowBox[{"i", ",", RowBox[{"bc", "+", "1"}], ",", "n"}], "}"}]}], "]"}], ",", RowBox[{"(*", RowBox[{ RowBox[{"Table", "[", RowBox[{"0.0", ",", RowBox[{"{", RowBox[{"i", ",", "1", ",", RowBox[{"2", "*", "cj"}]}], "}"}]}], "]"}], ","}], "*)"}], RowBox[{"Table", "[", RowBox[{"0.0", ",", RowBox[{"{", RowBox[{"i", ",", "1", ",", RowBox[{"2", "*", "hj"}]}], "}"}]}], "]"}]}], "]"}]}]}], "Input", CellChangeTimes->{{3.5688982251756487`*^9, 3.5688986440675845`*^9}, { 3.5688986873108606`*^9, 3.56889871560931*^9}, {3.5688987970414534`*^9, 3.5688988526711507`*^9}, {3.568898887147211*^9, 3.568898888644814*^9}, { 3.5688989206248703`*^9, 3.568899041759083*^9}, {3.5688990876855636`*^9, 3.568899258349863*^9}, 3.568899300267137*^9, {3.568899351326027*^9, 3.5688993831032825`*^9}, {3.5688994370481772`*^9, 3.568899468217032*^9}, { 3.5688995813016305`*^9, 3.5688997165538683`*^9}, {3.5688998495129013`*^9, 3.568899932364647*^9}, {3.568899967667509*^9, 3.568900024529609*^9}, { 3.5689000794261055`*^9, 3.568900136257005*^9}, {3.5689001767858763`*^9, 3.56890020149632*^9}, {3.568902068726*^9, 3.568902074139209*^9}, 3.56890216040736*^9, 3.568902344113283*^9, {3.5689024237982235`*^9, 3.56890243907065*^9}, 3.5689025770684924`*^9, 3.568910195129884*^9, 3.568910620995032*^9, {3.568912393532545*^9, 3.5689124022841606`*^9}, { 3.5691332074958715`*^9, 3.5691332081666727`*^9}, {3.5691352237838125`*^9, 3.5691352313342257`*^9}, {3.5691489965881166`*^9, 3.5691490103317413`*^9}, {3.5691490440122004`*^9, 3.5691491273631463`*^9}, {3.5691523435842266`*^9, 3.56915234531583*^9}, { 3.5691524837816734`*^9, 3.5691526041202846`*^9}, {3.5691595921324143`*^9, 3.5691596901941867`*^9}, {3.569159772406331*^9, 3.5691597832951508`*^9}, { 3.5691598700313025`*^9, 3.569159885147729*^9}, {3.569160485733184*^9, 3.569160486887586*^9}, {3.5691672792073207`*^9, 3.5691672793789206`*^9}, { 3.5691673418102303`*^9, 3.5691674875144863`*^9}, {3.569168259700243*^9, 3.569168260386644*^9}, {3.569168321257951*^9, 3.569168337466379*^9}, { 3.5691685152754917`*^9, 3.569168656096939*^9}, {3.5691687137702403`*^9, 3.569168772566744*^9}, {3.5691697249898825`*^9, 3.569169747063921*^9}, { 3.569169944981469*^9, 3.5691699655579047`*^9}, {3.56921753575448*^9, 3.569217541807291*^9}, {3.569217576283351*^9, 3.5692176436130695`*^9}, { 3.5692176921603546`*^9, 3.569217692768756*^9}, {3.5692177389136367`*^9, 3.569217740192839*^9}, {3.5692222042775583`*^9, 3.5692222070231633`*^9}, { 3.569230669979245*^9, 3.5692306709620466`*^9}, {3.5692308816872168`*^9, 3.5692309970650196`*^9}, {3.5692310297158766`*^9, 3.569231090602784*^9}, { 3.5692311251880445`*^9, 3.569231148868886*^9}, 3.56923793753481*^9, 3.569341165569158*^9, 3.5693418217375107`*^9, {3.5703412254249296`*^9, 3.5703412423509593`*^9}, {3.5704553045038986`*^9, 3.570455320681127*^9}, { 3.57045550485505*^9, 3.5704555063370533`*^9}, {3.5704556421508913`*^9, 3.5704556424784923`*^9}, 3.5704557137862177`*^9, {3.5704564711051474`*^9, 3.5704564908079824`*^9}, {3.570456521602436*^9, 3.5704565228348384`*^9}, { 3.5704569127419233`*^9, 3.5704569202767363`*^9}, 3.5704636205455036`*^9, 3.570596993178934*^9, {3.570855461377095*^9, 3.5708554743563175`*^9}, 3.570855611589759*^9, {3.571840408884818*^9, 3.571840415296429*^9}, { 3.571840465559717*^9, 3.571840473905732*^9}, {3.5720165322617407`*^9, 3.5720165635241957`*^9}, {3.5721934404423375`*^9, 3.57219344758715*^9}, 3.572193479551606*^9, {3.5721935303764954`*^9, 3.572193534214102*^9}, { 3.5726206642250977`*^9, 3.5726206651142993`*^9}, {3.572620782223705*^9, 3.572620782738506*^9}, {3.572620924963956*^9, 3.5726209465699935`*^9}, { 3.572842408289835*^9, 3.5728424357302833`*^9}, {3.5728424783807583`*^9, 3.57284247916076*^9}, 3.5728451195121975`*^9, {3.5731249170427575`*^9, 3.573124927962777*^9}, {3.5731450428093076`*^9, 3.5731450615449405`*^9}, { 3.5731451273458557`*^9, 3.573145132259865*^9}, {3.573312700185625*^9, 3.573312779979765*^9}, {3.5733131504804153`*^9, 3.5733131516816177`*^9}, { 3.5733132756862354`*^9, 3.5733132772462387`*^9}, {3.5733147916812983`*^9, 3.573314840275384*^9}, {3.5733593507659893`*^9, 3.573359359377204*^9}, { 3.5746698998736076`*^9, 3.574669995361375*^9}, {3.5747410251880407`*^9, 3.574741049430484*^9}, {3.574828384379053*^9, 3.574828403270686*^9}, 3.5748284615211887`*^9, {3.5748284935168447`*^9, 3.5748284944996467`*^9}, { 3.574873818805729*^9, 3.574873834936157*^9}, {3.575863966076322*^9, 3.5758639815047493`*^9}}], Cell[BoxData[ RowBox[{"{", RowBox[{ RowBox[{"-", "2.`"}], ",", RowBox[{"-", "2.`"}], ",", RowBox[{"-", "2.`"}], ",", RowBox[{"-", "2.`"}], ",", RowBox[{"-", "2.`"}], ",", RowBox[{"-", "2.`"}], ",", RowBox[{"-", "2.`"}], ",", RowBox[{"-", "2.`"}], ",", RowBox[{"-", "2.`"}], ",", RowBox[{"-", "2.`"}], ",", RowBox[{"-", "2.`"}], ",", RowBox[{"-", "2.`"}], ",", RowBox[{"-", "2.`"}], ",", RowBox[{"-", "2.`"}], ",", RowBox[{"-", "2.`"}], ",", RowBox[{"-", "2.`"}], ",", RowBox[{"-", "2.`"}], ",", RowBox[{"-", "2.`"}], ",", RowBox[{"-", "2.`"}], ",", RowBox[{"-", "2.`"}], ",", RowBox[{"-", "2.`"}], ",", RowBox[{"-", "2.`"}], ",", RowBox[{"-", "2.`"}], ",", RowBox[{"-", "2.`"}], ",", RowBox[{"-", "2.`"}], ",", RowBox[{"-", "2.`"}], ",", RowBox[{"-", "2.`"}], ",", RowBox[{"-", "2.`"}], ",", RowBox[{"-", "2.`"}], ",", RowBox[{"-", "2.`"}], ",", RowBox[{"-", "2.`"}], ",", RowBox[{"-", "2.`"}], ",", RowBox[{"-", "2.`"}], ",", RowBox[{"-", "2.`"}], ",", RowBox[{"-", "2.`"}], ",", RowBox[{"-", "2.`"}], ",", RowBox[{"-", "2.`"}], ",", RowBox[{"-", "2.`"}], ",", RowBox[{"-", "2.`"}], ",", RowBox[{"-", "2.`"}], ",", RowBox[{"-", "2.`"}], ",", RowBox[{"-", "2.`"}], ",", RowBox[{"-", "2.`"}], ",", RowBox[{"-", "2.`"}], ",", RowBox[{"-", "2.`"}], ",", RowBox[{"-", "2.`"}], ",", RowBox[{"-", "2.`"}], ",", RowBox[{"-", "2.`"}]}], "}"}]], "Output", CellChangeTimes->{3.5761694412410555`*^9}], Cell[BoxData[ RowBox[{"{", RowBox[{ "6.`", ",", "6.`", ",", "6.`", ",", "6.`", ",", "6.`", ",", "6.`", ",", "8.`", ",", "8.`", ",", "8.`", ",", "8.`", ",", "8.`", ",", "8.`", ",", "0.`", ",", "0.`", ",", "0.`", ",", "0.`", ",", "0.`", ",", "0.`", ",", "0.`", ",", "0.`", ",", "0.`", ",", "0.`", ",", "0.`", ",", "0.`", ",", "1.`", ",", "1.`", ",", "1.`", ",", "1.`", ",", "1.`", ",", "1.`", ",", "1.`", ",", "1.`", ",", "1.`", ",", "1.`", ",", "1.`", ",", "1.`", ",", "0.`", ",", "0.`", ",", "0.`", ",", "0.`", ",", "0.`", ",", "0.`", ",", "0.`", ",", "0.`", ",", "0.`", ",", "0.`", ",", "0.`", ",", "0.`"}], "}"}]], "Output", CellChangeTimes->{3.5761694412410555`*^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["48"], "Output", CellChangeTimes->{3.576169441272255*^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[{"-", "96.`"}]], "Output", CellChangeTimes->{3.576169441287855*^9}], Cell[BoxData["48"], "Output", CellChangeTimes->{3.576169441287855*^9}], Cell[BoxData["96.`"], "Output", CellChangeTimes->{3.576169441287855*^9}], Cell[BoxData["48"], "Output", CellChangeTimes->{3.576169441287855*^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["969.9272272916461`"], "Output", CellChangeTimes->{3.5761694413190556`*^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", "<", RowBox[{"nb", "+", "bc", "+", "cj"}]}], ",", RowBox[{"i", "++"}], ",", RowBox[{"Vee", "=", RowBox[{"Vee", "-", RowBox[{ RowBox[{"ow", "[", RowBox[{"[", "i", "]"}], "]"}], "*", RowBox[{ RowBox[{"ow", "[", RowBox[{"[", RowBox[{"i", "+", "cj"}], "]"}], "]"}], "/", RowBox[{"(", RowBox[{"rpo", "+", "rpi"}], ")"}]}]}]}]}]}], "]"}], ";", "\[IndentingNewLine]", "Vee"}], "*)"}], "\[IndentingNewLine]"}]], "Input", CellChangeTimes->{{3.571840548723463*^9, 3.571840579798718*^9}, { 3.5718477253093*^9, 3.5718477304573092`*^9}, {3.572620810756155*^9, 3.5726208298349886`*^9}, {3.5726208600522413`*^9, 3.5726208972739067`*^9}, {3.57279778559276*^9, 3.57279781975682*^9}, 3.5733150956478324`*^9, {3.5733650408599825`*^9, 3.573365073947641*^9}, { 3.573365126847334*^9, 3.573365203209468*^9}, {3.57467280495751*^9, 3.574672834457162*^9}, {3.574672996697447*^9, 3.5746729984914503`*^9}, { 3.574743538820456*^9, 3.574743544140065*^9}, {3.574828627021879*^9, 3.5748286276614804`*^9}, {3.5748512413081284`*^9, 3.57485124786014*^9}, { 3.574851313707855*^9, 3.5748513247994747`*^9}, {3.5758961336448517`*^9, 3.575896184188941*^9}, {3.575896322280383*^9, 3.5758963385044117`*^9}}], Cell[CellGroupData[{ Cell[BoxData[{ RowBox[{ RowBox[{ RowBox[{"sc", "=", "0.35"}], ";"}], " ", 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.35"}], ";"}], " ", RowBox[{"(*", " ", RowBox[{"bonding", " ", "clouds"}], " ", "*)"}]}], "\[IndentingNewLine]", RowBox[{"For", "[", RowBox[{ RowBox[{"i", "=", "1"}], " ", ",", RowBox[{"i", "<", RowBox[{"nb", "+", "1"}]}], ",", RowBox[{"i", "++"}], ",", RowBox[{"Vee", "=", RowBox[{"Vee", "+", RowBox[{"3", "*", RowBox[{"sw", "/", RowBox[{"a", "[", RowBox[{"[", RowBox[{"i", ",", "3"}], "]"}], "]"}]}]}]}]}]}], "]"}], "\[IndentingNewLine]", RowBox[{"For", "[", RowBox[{ RowBox[{"i", "=", "1"}], " ", ",", RowBox[{"i", "\[LessEqual]", RowBox[{"2", "*", "hj"}]}], ",", RowBox[{"i", "++"}], ",", RowBox[{"Vee", "=", RowBox[{"Vee", "+", RowBox[{"3", "*", RowBox[{"sw", "/", "rlo"}]}]}]}]}], "]"}], "\[IndentingNewLine]", "Vee"}], "Input", CellChangeTimes->{{3.5689548890696163`*^9, 3.568955116299615*^9}, { 3.5689552553894596`*^9, 3.5689552575266633`*^9}, {3.5689552936875267`*^9, 3.5689553203323736`*^9}, {3.568955404229321*^9, 3.568955433245372*^9}, 3.5689554882822685`*^9, 3.5689562157115464`*^9, {3.568956283961666*^9, 3.5689562858180695`*^9}, {3.5689566111878405`*^9, 3.5689566291278725`*^9}, {3.5689566695319433`*^9, 3.5689567220104356`*^9}, {3.5690810958835616`*^9, 3.569081104525977*^9}, { 3.5691717160681796`*^9, 3.569171751714242*^9}, {3.5691717855663013`*^9, 3.5691719006789036`*^9}, 3.569234247377528*^9, {3.569235622381544*^9, 3.569235625142749*^9}, {3.5692356799612455`*^9, 3.569235740536152*^9}, { 3.57045575500149*^9, 3.5704557604770994`*^9}, {3.57046440981329*^9, 3.5704644333849316`*^9}, {3.5705963024877205`*^9, 3.5705963300061693`*^9}, {3.5706010463712544`*^9, 3.570601069225295*^9}, { 3.5706012097659416`*^9, 3.5706012109983435`*^9}, {3.570601290948484*^9, 3.570601291619285*^9}, {3.570601333099758*^9, 3.570601444951955*^9}, 3.5706014761208096`*^9, {3.570601526633698*^9, 3.570601615179454*^9}, { 3.5708576202336864`*^9, 3.5708576267544985`*^9}, {3.5708577990100007`*^9, 3.5708578016152053`*^9}, {3.5708580423548284`*^9, 3.570858044429632*^9}, { 3.570858075754487*^9, 3.5708581072821426`*^9}, {3.570858449889944*^9, 3.5708585756105647`*^9}, {3.572795632149378*^9, 3.5727956355657835`*^9}, { 3.5728516649872932`*^9, 3.5728517189321885`*^9}, {3.572851825152775*^9, 3.572851850284419*^9}, {3.5728520019946856`*^9, 3.572852210645052*^9}, 3.573124800838154*^9, {3.573322145410615*^9, 3.573322167859054*^9}, { 3.573322202803116*^9, 3.573322232630368*^9}, {3.5733683306427617`*^9, 3.5733683367267723`*^9}, {3.5733684056944933`*^9, 3.573368412932906*^9}, { 3.5733695833093615`*^9, 3.5733696100478086`*^9}, {3.5733696433694673`*^9, 3.573369694568757*^9}, {3.5733697316344223`*^9, 3.5733697335688257`*^9}, { 3.573369920425954*^9, 3.5733699263851643`*^9}, {3.57336995814682*^9, 3.573370085162243*^9}, {3.5733701175791*^9, 3.573370122087508*^9}, { 3.5733701577803707`*^9, 3.5733701630219803`*^9}, {3.573370193660434*^9, 3.573370198262442*^9}, {3.5746729482125616`*^9, 3.5746729642181897`*^9}, { 3.5746730450731316`*^9, 3.5746730625763626`*^9}, {3.574674580516679*^9, 3.5746746053675222`*^9}, {3.574674636692377*^9, 3.574674639859183*^9}, { 3.574743595854156*^9, 3.574743647131446*^9}, {3.5758219158646994`*^9, 3.575821942930747*^9}, {3.575822061974556*^9, 3.575822075874181*^9}, { 3.575822160535529*^9, 3.575822163780335*^9}, {3.575822207023611*^9, 3.5758222384576664`*^9}, {3.5758222971137695`*^9, 3.5758223393586435`*^9}, {3.576053831739605*^9, 3.57605387451488*^9}}], Cell[BoxData["1062.6914438418341`"], "Output", CellChangeTimes->{3.5761694413346553`*^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[{"-", "2026.0080901783792`"}]], "Output", CellChangeTimes->{3.5761694413502555`*^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[{"-", "3246.841153597437`"}]], "Output", CellChangeTimes->{3.576169441365855*^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[{"-", "3275.6138759748987`"}]], "Output", CellChangeTimes->{3.576169441365855*^9}] }, Open ]], Cell[CellGroupData[{ Cell[BoxData[ RowBox[{ RowBox[{"(*", " ", RowBox[{"nucleus", "-", "nucleus"}], " ", "*)"}], "\[IndentingNewLine]", RowBox[{ RowBox[{"For", "[", RowBox[{ RowBox[{"i", "=", "1"}], ",", RowBox[{"i", "<", "n"}], ",", RowBox[{"i", "++"}], ",", "\[IndentingNewLine]", RowBox[{"For", "[", RowBox[{ RowBox[{"j", "=", RowBox[{"i", "+", "1"}]}], ",", RowBox[{"j", "<", RowBox[{"n", "+", "1"}]}], ",", RowBox[{"j", "++"}], ",", RowBox[{"Vnn", "=", RowBox[{"Vnn", "+", RowBox[{ RowBox[{"cn", "[", RowBox[{"[", "i", "]"}], "]"}], "*", RowBox[{ RowBox[{"cn", "[", RowBox[{"[", "j", "]"}], "]"}], "/", RowBox[{"dc", "[", RowBox[{"[", RowBox[{"i", ",", "j"}], "]"}], "]"}]}]}]}]}]}], "]"}]}], "]"}], "\[IndentingNewLine]", "Vnn"}]}]], "Input", CellChangeTimes->{{3.5688982251756487`*^9, 3.5688986440675845`*^9}, { 3.5688986873108606`*^9, 3.56889871560931*^9}, {3.5688987970414534`*^9, 3.5688988526711507`*^9}, {3.568898887147211*^9, 3.568898888644814*^9}, { 3.5688989206248703`*^9, 3.568899041759083*^9}, {3.5688990876855636`*^9, 3.568899258349863*^9}, 3.568899300267137*^9, {3.568899351326027*^9, 3.5688993831032825`*^9}, {3.5688994370481772`*^9, 3.568899468217032*^9}, { 3.5688995813016305`*^9, 3.5688997165538683`*^9}, {3.5688998495129013`*^9, 3.568899932364647*^9}, {3.568899967667509*^9, 3.568900024529609*^9}, { 3.5689000794261055`*^9, 3.568900136257005*^9}, {3.5689001767858763`*^9, 3.56890020149632*^9}, {3.568902068726*^9, 3.568902074139209*^9}, 3.56890216040736*^9, 3.568902344113283*^9, {3.5689024237982235`*^9, 3.56890243907065*^9}, 3.5689025770684924`*^9, {3.568910195129884*^9, 3.5689102262831383`*^9}, {3.5689126851126575`*^9, 3.5689126875306616`*^9}, {3.5690878255169816`*^9, 3.569087857185037*^9}, { 3.5691452963224173`*^9, 3.569145370484948*^9}, {3.5691454640695124`*^9, 3.5691454653799143`*^9}, {3.5691523784970884`*^9, 3.569152451988817*^9}, { 3.569152629610729*^9, 3.5691526609667845`*^9}, 3.5691527650033674`*^9, { 3.5691528050174375`*^9, 3.5691528220994673`*^9}, {3.5691528694611506`*^9, 3.5691529180864363`*^9}, {3.5691531888249116`*^9, 3.569153192974519*^9}, 3.569153245359411*^9, {3.5691532970111017`*^9, 3.5691533046239147`*^9}, { 3.5691708905147295`*^9, 3.56917090235515*^9}, {3.5691714357512875`*^9, 3.569171449775712*^9}, 3.56917197825784*^9}], Cell[BoxData["843.8245466291473`"], "Output", CellChangeTimes->{3.5761694413814554`*^9}] }, Open ]], Cell[CellGroupData[{ Cell[BoxData[ RowBox[{ RowBox[{"(*", " ", RowBox[{ RowBox[{ "now", " ", "add", " ", "the", " ", "energy", " ", "terms", " ", "of", " ", RowBox[{"Cl", "[", "Ne", "]"}], "7"}], "+", " ", RowBox[{"from", " ", "Ne_s24b2", RowBox[{"_atoms", ".", "nb"}]}]}], " ", "*)"}], "\[IndentingNewLine]", RowBox[{ "Vee", "\[IndentingNewLine]", "Vnn", "\[IndentingNewLine]", "Vne", "\[IndentingNewLine]", RowBox[{"Tlp", " ", "=", RowBox[{"2", "*", "hj", "*", "2.25", "*", RowBox[{"(", RowBox[{"1", "/", RowBox[{"rlo", "^", "2"}]}], ")"}]}]}], "\[IndentingNewLine]", RowBox[{"Vtot", "=", RowBox[{"Vne", "+", "Vee", "+", "Vnn"}]}], "\[IndentingNewLine]", RowBox[{"Ttot", " ", "=", RowBox[{"Ttot", "+", "Tlp"}]}], "\[IndentingNewLine]", RowBox[{"Vir", " ", "=", RowBox[{ RowBox[{"-", "Vtot"}], "/", "Ttot"}]}], "\[IndentingNewLine]", RowBox[{"Etot", "=", RowBox[{"Ttot", "+", "Vtot"}]}], "\[IndentingNewLine]"}]}]], "Input", CellChangeTimes->{{3.5689074950860367`*^9, 3.5689075109980645`*^9}, { 3.568910298074465*^9, 3.5689103015064707`*^9}, {3.568910724064413*^9, 3.5689107693044925`*^9}, {3.568955368910859*^9, 3.568955378629676*^9}, { 3.568955601366867*^9, 3.568955616218093*^9}, {3.5704638504275074`*^9, 3.570463876370353*^9}, {3.570464305074706*^9, 3.5704643133895206`*^9}, { 3.570464352171189*^9, 3.570464353231991*^9}, {3.570712404698539*^9, 3.5707124150569572`*^9}, {3.570809962851386*^9, 3.5708101493809137`*^9}, { 3.5708102160710306`*^9, 3.570810245165082*^9}, {3.5708102767551374`*^9, 3.5708103693413*^9}, {3.570810404207361*^9, 3.5708104232081947`*^9}, { 3.5708104788690925`*^9, 3.5708104825818987`*^9}, {3.5708105169643593`*^9, 3.570810517884761*^9}, {3.570810561767638*^9, 3.5708105625476394`*^9}, { 3.5708106179589367`*^9, 3.570810645648985*^9}, {3.5708552812279787`*^9, 3.570855300572013*^9}, {3.5718406368324184`*^9, 3.5718406454592333`*^9}, 3.57184067742369*^9, {3.572851887958485*^9, 3.5728519643206196`*^9}, 3.573124110349741*^9, 3.5731249811744704`*^9, {3.573321827294856*^9, 3.573321828074857*^9}, {3.5733218842973557`*^9, 3.573322060546466*^9}, { 3.5733223511749763`*^9, 3.573322362562996*^9}, {3.5733662939947844`*^9, 3.573366334227255*^9}, {3.573366373336523*^9, 3.5733663802005353`*^9}, { 3.5733670479305086`*^9, 3.573367141577473*^9}, {3.573367235162038*^9, 3.5733672396704454`*^9}, {3.5733673160013795`*^9, 3.573367336141015*^9}, { 3.57337971917793*^9, 3.573379817005702*^9}, {3.5733798503429604`*^9, 3.5733798602021775`*^9}, 3.574672644355228*^9, {3.5746726806096916`*^9, 3.5746727600450315`*^9}, {3.5747435066375995`*^9, 3.574743512113209*^9}, { 3.574828574792988*^9, 3.57482858761621*^9}, {3.5748738967434654`*^9, 3.5748739009086733`*^9}, 3.5758222723721256`*^9, 3.5758640435928583`*^9}], Cell[BoxData["1062.6914438418341`"], "Output", CellChangeTimes->{3.5761694413970556`*^9}], Cell[BoxData["843.8245466291473`"], "Output", CellChangeTimes->{3.576169441412656*^9}], Cell[BoxData[ RowBox[{"-", "3275.6138759748987`"}]], "Output", CellChangeTimes->{3.576169441412656*^9}], Cell[BoxData["21.333333333333332`"], "Output", CellChangeTimes->{3.576169441412656*^9}], Cell[BoxData[ RowBox[{"-", "1369.0978855039175`"}]], "Output", CellChangeTimes->{3.576169441412656*^9}], Cell[BoxData["684.5507872812287`"], "Output", CellChangeTimes->{3.576169441412656*^9}], Cell[BoxData["1.9999946109790414`"], "Output", CellChangeTimes->{3.576169441412656*^9}], Cell[BoxData[ RowBox[{"-", "684.5470982226888`"}]], "Output", CellChangeTimes->{3.576169441412656*^9}] }, Open ]] }, Evaluator->"Local", WindowSize->{946, 932}, WindowMargins->{{Automatic, 340}, {-35, Automatic}}, 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, 2658, 46, 52, "Input"], Cell[CellGroupData[{ Cell[3240, 70, 4644, 107, 292, "Input"], Cell[7887, 179, 3197, 78, 386, "Output"] }, Open ]], Cell[11099, 260, 1309, 22, 52, "Input"], Cell[CellGroupData[{ Cell[12433, 286, 955, 14, 31, "Input"], Cell[13391, 302, 73, 1, 31, "Output"] }, Open ]], Cell[CellGroupData[{ Cell[13501, 308, 1560, 29, 31, "Input"], Cell[15064, 339, 552, 9, 31, "Output"] }, Open ]], Cell[15631, 351, 1419, 23, 31, "Input"], Cell[17053, 376, 1592, 29, 31, "Input"], Cell[CellGroupData[{ Cell[18670, 409, 1234, 18, 31, "Input"], Cell[19907, 429, 1720, 51, 52, "Output"] }, Open ]], Cell[CellGroupData[{ Cell[21664, 485, 697, 14, 31, "Input"], Cell[22364, 501, 365, 7, 31, "Output"] }, Open ]], Cell[22744, 511, 908, 24, 31, "Input"], Cell[CellGroupData[{ Cell[23677, 539, 6737, 137, 172, "Input"], Cell[30417, 678, 456, 8, 52, "Output"], Cell[30876, 688, 458, 8, 52, "Output"] }, Open ]], Cell[CellGroupData[{ Cell[31371, 701, 519, 12, 31, "Input"], Cell[31893, 715, 552, 9, 31, "Output"] }, Open ]], Cell[CellGroupData[{ Cell[32482, 729, 1428, 39, 92, "Input"], Cell[33913, 770, 403, 8, 31, "Output"] }, Open ]], Cell[CellGroupData[{ Cell[34353, 783, 827, 23, 92, "Input"], Cell[35183, 808, 71, 1, 31, "Output"], Cell[35257, 811, 73, 1, 31, "Output"] }, Open ]], Cell[35345, 815, 1824, 35, 72, "Input"], Cell[37172, 852, 5113, 126, 232, "Input"], Cell[42288, 980, 1442, 19, 30, "Text"], Cell[43733, 1001, 1997, 39, 52, "Input"], Cell[45733, 1042, 1331, 36, 72, "Input"], Cell[CellGroupData[{ Cell[47089, 1082, 4977, 90, 92, "Input"], Cell[52069, 1174, 4943, 79, 401, "Output"] }, Open ]], Cell[57027, 1256, 1027, 14, 31, "Input"], Cell[CellGroupData[{ Cell[58079, 1274, 3846, 83, 152, "Input"], Cell[61928, 1359, 481, 9, 52, "Output"] }, Open ]], Cell[62424, 1371, 2072, 49, 112, "Input"], Cell[64499, 1422, 561, 12, 52, "Input"], Cell[65063, 1436, 2148, 49, 92, "Input"], Cell[67214, 1487, 2452, 56, 112, "Input"], Cell[CellGroupData[{ Cell[69691, 1547, 3673, 95, 172, "Input"], Cell[73367, 1644, 90, 1, 31, "Output"], Cell[73460, 1647, 88, 1, 31, "Output"], Cell[73551, 1650, 89, 1, 31, "Output"], Cell[73643, 1653, 89, 1, 31, "Output"], Cell[73735, 1656, 90, 1, 31, "Output"] }, Open ]], Cell[CellGroupData[{ Cell[73862, 1662, 548, 15, 31, "Input"], Cell[74413, 1679, 3646, 78, 386, "Output"] }, Open ]], Cell[78074, 1760, 2075, 35, 72, "Input"], Cell[CellGroupData[{ Cell[80174, 1799, 3969, 94, 172, "Input"], Cell[84146, 1895, 89, 2, 31, "Output"], Cell[84238, 1899, 480, 10, 21, "Message"], Cell[84721, 1911, 216, 6, 31, "Output"], Cell[84940, 1919, 417, 8, 52, "Output"], Cell[85360, 1929, 142, 3, 31, "Output"], Cell[85505, 1934, 422, 9, 52, "Output"], Cell[85930, 1945, 142, 3, 31, "Output"] }, Open ]], Cell[CellGroupData[{ Cell[86109, 1953, 2672, 54, 132, "Input"], Cell[88784, 2009, 72, 1, 31, "Output"] }, Open ]], Cell[CellGroupData[{ Cell[88893, 2015, 739, 22, 92, "Input"], Cell[89635, 2039, 72, 1, 31, "Output"] }, Open ]], Cell[CellGroupData[{ Cell[89744, 2045, 2771, 55, 92, "Input"], Cell[92518, 2102, 158, 4, 31, "Output"] }, Open ]], Cell[92691, 2109, 4987, 137, 232, "Input"], Cell[CellGroupData[{ Cell[97703, 2250, 5267, 128, 232, "Input"], Cell[102973, 2380, 87, 2, 31, "Output"], Cell[103063, 2384, 70, 1, 31, "Output"], Cell[103136, 2387, 2619, 90, 386, "Output"] }, Open ]], Cell[CellGroupData[{ Cell[105792, 2482, 12033, 203, 232, "Input"], Cell[117828, 2687, 72, 1, 31, "Output"], Cell[117903, 2690, 72, 1, 31, "Output"] }, Open ]], Cell[117990, 2694, 8800, 126, 52, "Input"], Cell[126793, 2822, 2644, 37, 49, "Text"], Cell[CellGroupData[{ Cell[129462, 2863, 4232, 82, 172, "Input"], Cell[133697, 2947, 517, 15, 31, "Output"] }, Open ]], Cell[134229, 2965, 646, 20, 112, "Input"], Cell[134878, 2987, 1251, 29, 31, "Input"], Cell[136132, 3018, 578, 9, 31, "Input"], Cell[CellGroupData[{ Cell[136735, 3031, 1159, 29, 92, "Input"], Cell[137897, 3062, 48871, 890, 355, "Output"] }, Open ]], Cell[186783, 3955, 3073, 58, 92, "Input"], Cell[CellGroupData[{ Cell[189881, 4017, 939, 17, 72, "Input"], Cell[190823, 4036, 2201, 52, 112, "Output"], Cell[193027, 4090, 73, 1, 31, "Output"], Cell[193103, 4093, 73, 1, 31, "Output"] }, Open ]], Cell[CellGroupData[{ Cell[193213, 4099, 1276, 27, 52, "Input"], Cell[194492, 4128, 6721, 208, 246, "Output"] }, Open ]], Cell[201228, 4339, 10201, 233, 192, "Input"], Cell[211432, 4574, 6723, 105, 72, "Input"], Cell[218158, 4681, 10215, 234, 192, "Input"], Cell[228376, 4917, 6038, 96, 72, "Input"], Cell[234417, 5015, 13597, 246, 292, "Input"], Cell[CellGroupData[{ Cell[248039, 5265, 16273, 310, 372, "Input"], Cell[264315, 5577, 16858, 404, 375, "Output"], Cell[281176, 5983, 11210, 240, 375, "Output"], Cell[292389, 6225, 14055, 312, 375, "Output"], Cell[306447, 6539, 16491, 385, 375, "Output"], Cell[322941, 6926, 14527, 336, 374, "Output"] }, Open ]], Cell[CellGroupData[{ Cell[337505, 7267, 4818, 102, 152, "Input"], Cell[342326, 7371, 71, 1, 31, "Output"] }, Open ]], Cell[CellGroupData[{ Cell[342434, 7377, 2572, 48, 92, "Input"], Cell[345009, 7427, 71, 1, 31, "Output"] }, Open ]], Cell[345095, 7431, 1841, 29, 52, "Input"], Cell[CellGroupData[{ Cell[346961, 7464, 5167, 111, 192, "Input"], Cell[352131, 7577, 73, 1, 31, "Output"] }, Open ]], Cell[CellGroupData[{ Cell[352241, 7583, 6032, 114, 92, "Input"], Cell[358276, 7699, 1585, 51, 72, "Output"], Cell[359864, 7752, 707, 12, 52, "Output"] }, Open ]], Cell[CellGroupData[{ Cell[360608, 7769, 4670, 80, 92, "Input"], Cell[365281, 7851, 71, 1, 31, "Output"] }, Open ]], Cell[CellGroupData[{ Cell[365389, 7857, 2695, 47, 112, "Input"], Cell[368087, 7906, 90, 2, 31, "Output"], Cell[368180, 7910, 71, 1, 31, "Output"], Cell[368254, 7913, 73, 1, 31, "Output"], Cell[368330, 7916, 71, 1, 31, "Output"] }, Open ]], Cell[368416, 7920, 2066, 30, 31, "Input"], Cell[CellGroupData[{ Cell[370507, 7954, 2963, 56, 112, "Input"], Cell[373473, 8012, 89, 1, 31, "Output"] }, Open ]], Cell[373577, 8016, 1749, 38, 92, "Input"], Cell[CellGroupData[{ Cell[375351, 8058, 4234, 86, 132, "Input"], Cell[379588, 8146, 90, 1, 31, "Output"] }, Open ]], Cell[CellGroupData[{ Cell[379715, 8152, 499, 15, 52, "Input"], Cell[380217, 8169, 107, 2, 31, "Output"] }, Open ]], Cell[380339, 8174, 1381, 21, 31, "Input"], Cell[CellGroupData[{ Cell[381745, 8199, 1709, 32, 52, "Input"], Cell[383457, 8233, 104, 2, 31, "Output"] }, Open ]], Cell[CellGroupData[{ Cell[383598, 8240, 1415, 43, 72, "Input"], Cell[385016, 8285, 105, 2, 31, "Output"] }, Open ]], Cell[CellGroupData[{ Cell[385158, 8292, 2550, 50, 92, "Input"], Cell[387711, 8344, 89, 1, 31, "Output"] }, Open ]], Cell[CellGroupData[{ Cell[387837, 8350, 2905, 51, 212, "Input"], Cell[390745, 8403, 90, 1, 31, "Output"], Cell[390838, 8406, 87, 1, 31, "Output"], Cell[390928, 8409, 105, 2, 31, "Output"], Cell[391036, 8413, 88, 1, 31, "Output"], Cell[391127, 8416, 105, 2, 31, "Output"], Cell[391235, 8420, 87, 1, 31, "Output"], Cell[391325, 8423, 88, 1, 31, "Output"], Cell[391416, 8426, 104, 2, 31, "Output"] }, Open ]] } ] *) (* End of internal cache information *)