(* 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[ 492476, 9791] NotebookOptionsPosition[ 485326, 9565] NotebookOutlinePosition[ 485847, 9586] CellTagsIndexPosition[ 485804, 9583] WindowFrame->Normal*) (* Beginning of Notebook Content *) Notebook[{ Cell[BoxData[ RowBox[{ RowBox[{"(*", " ", RowBox[{ RowBox[{ "Kimball", " ", "model", " ", "and", " ", "energy", " ", "derived", " ", "from", " ", "Wolfram", " ", "source"}], ",", " ", RowBox[{"ES", " ", "21", " ", "March", " ", "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.5728722828253174`*^9, 3.5728722835117188`*^9}}], Cell[CellGroupData[{ Cell[BoxData[{ RowBox[{ RowBox[{"t1", "=", RowBox[{"{", RowBox[{ RowBox[{"{", RowBox[{"0.`", ",", "0.`", ",", RowBox[{"-", "0.0018897`"}]}], "}"}], ",", RowBox[{"{", RowBox[{"0.0056691`", ",", RowBox[{"-", "2.4471615`"}], ",", RowBox[{"-", "1.6648257`"}]}], "}"}], ",", RowBox[{"{", RowBox[{"0.0018897`", ",", "2.3848013999999997`", ",", RowBox[{"-", "1.7555313000000001`"}]}], "}"}], ",", RowBox[{"{", RowBox[{"2.4150366`", ",", "0.0359043`", ",", "1.7120682`"}], "}"}], ",", RowBox[{"{", RowBox[{ RowBox[{"-", "2.418816`"}], ",", "0.0302352`", ",", "1.7026197`"}], "}"}], ",", RowBox[{"{", RowBox[{"3.7529442`", ",", "2.4358232999999996`", ",", "0.9108354`"}], "}"}], ",", RowBox[{"{", RowBox[{"3.7586133`", ",", RowBox[{"-", "2.3904704999999997`"}], ",", "1.0034307`"}], "}"}], ",", RowBox[{"{", RowBox[{ RowBox[{"-", "2.4055880999999997`"}], ",", RowBox[{"-", "3.7775103`"}], ",", RowBox[{"-", "0.8862692999999999`"}]}], "}"}], ",", RowBox[{"{", RowBox[{"0.0075588`", ",", "1.2623196`", ",", RowBox[{"-", "4.3897731`"}]}], "}"}], ",", RowBox[{"{", RowBox[{ RowBox[{"-", "3.760503`"}], ",", "2.4263748`", ",", "0.8976074999999999`"}], "}"}], ",", RowBox[{"{", RowBox[{ RowBox[{"-", "1.3530251999999998`"}], ",", "0.08125709999999998`", ",", "4.3576482`"}], "}"}], ",", RowBox[{"{", RowBox[{ RowBox[{"-", "5.6426442`"}], ",", "6.935199`", ",", RowBox[{"-", "1.0714598999999998`"}]}], "}"}], ",", RowBox[{"{", RowBox[{ RowBox[{"-", "6.9616548`"}], ",", "5.6520927`", ",", "0.8125709999999999`"}], "}"}], ",", RowBox[{"{", RowBox[{ RowBox[{"-", "6.0243636`"}], ",", "3.3750042`", ",", "1.814112`"}], "}"}], ",", RowBox[{"{", RowBox[{ RowBox[{"-", "2.4150366`"}], ",", "3.7359369`", ",", RowBox[{"-", "1.0279968`"}]}], "}"}], ",", RowBox[{"{", RowBox[{ RowBox[{"-", "3.3466587`"}], ",", "5.9790108`", ",", RowBox[{"-", "2.0106408`"}]}], "}"}], ",", RowBox[{"{", RowBox[{ RowBox[{"-", "6.389075699999999`"}], ",", "8.6945097`", ",", RowBox[{"-", "1.8330089999999999`"}]}], "}"}], ",", RowBox[{"{", RowBox[{ RowBox[{"-", "8.7360831`"}], ",", "6.411752099999999`", ",", "1.5230982`"}], "}"}], ",", RowBox[{"{", RowBox[{ RowBox[{"-", "7.0655883`"}], ",", "2.3885807999999997`", ",", "3.2842986`"}], "}"}], ",", RowBox[{"{", RowBox[{ RowBox[{"-", "2.3318898`"}], ",", "6.990000299999999`", ",", RowBox[{"-", "3.4808274`"}]}], "}"}], ",", RowBox[{"{", RowBox[{"5.6313059999999995`", ",", "6.948426899999999`", ",", RowBox[{"-", "1.0506732`"}]}], "}"}], ",", RowBox[{"{", RowBox[{"3.3409896`", ",", "5.9865696`", ",", RowBox[{"-", "1.9974128999999998`"}]}], "}"}], ",", RowBox[{"{", RowBox[{"2.4093674999999997`", ",", "3.741606`", ",", RowBox[{"-", "1.0185483`"}]}], "}"}], ",", RowBox[{"{", RowBox[{ "6.009246`", ",", "3.3901217999999997`", ",", "1.8386780999999999`"}], "}"}], ",", RowBox[{"{", RowBox[{"6.9465372`", ",", "5.6691`", ",", "0.8390268`"}], "}"}], ",", RowBox[{"{", RowBox[{"6.3758478`", ",", "8.7096273`", ",", RowBox[{"-", "1.8084429`"}]}], "}"}], ",", RowBox[{"{", RowBox[{"2.3262207`", ",", "6.997559099999999`", ",", RowBox[{"-", "3.4713789`"}]}], "}"}], ",", RowBox[{"{", RowBox[{ "7.0466913`", ",", "2.4055880999999997`", ",", "3.3126440999999995`"}], "}"}], ",", RowBox[{"{", RowBox[{ "8.717186100000001`", ",", "6.4325388`", ",", "1.5571127999999999`"}], "}"}], ",", RowBox[{"{", RowBox[{"5.646423599999999`", ",", RowBox[{"-", "6.9711033`"}], ",", RowBox[{"-", "0.7861151999999999`"}]}], "}"}], ",", RowBox[{"{", RowBox[{"3.3542175`", ",", RowBox[{"-", "6.0508194`"}], ",", RowBox[{"-", "1.7687592`"}]}], "}"}], ",", RowBox[{"{", RowBox[{"2.418816`", ",", RowBox[{"-", "3.7718412`"}], ",", RowBox[{"-", "0.8768208000000001`"}]}], "}"}], ",", RowBox[{"{", RowBox[{"6.0168048`", ",", RowBox[{"-", "3.3050853`"}], ",", "1.965288`"}], "}"}], ",", RowBox[{"{", RowBox[{"6.9578754`", ",", RowBox[{"-", "5.6180781`"}], ",", "1.0544526`"}], "}"}], ",", RowBox[{"{", RowBox[{"6.3928551`", ",", RowBox[{"-", "8.7587595`"}], ",", RowBox[{"-", "1.4758557`"}]}], "}"}], ",", RowBox[{"{", RowBox[{"2.3413383000000003`", ",", RowBox[{"-", "7.1184999`"}], ",", RowBox[{"-", "3.2030415`"}]}], "}"}], ",", RowBox[{"{", RowBox[{"7.0523604`", ",", RowBox[{"-", "2.2619709`"}], ",", "3.3995702999999997`"}], "}"}], ",", RowBox[{"{", RowBox[{"8.7285243`", ",", RowBox[{"-", "6.349392`"}], ",", "1.7989943999999998`"}], "}"}], ",", RowBox[{"{", RowBox[{ RowBox[{"-", "6.948426899999999`"}], ",", RowBox[{"-", "5.6331957`"}], ",", "1.0261071`"}], "}"}], ",", RowBox[{"{", RowBox[{ RowBox[{"-", "6.0149151`"}], ",", RowBox[{"-", "3.3183132`"}], ",", "1.9426116`"}], "}"}], ",", RowBox[{"{", RowBox[{ RowBox[{"-", "3.7548339`"}], ",", RowBox[{"-", "2.3980292999999997`"}], ",", "0.9883131`"}], "}"}], ",", RowBox[{"{", RowBox[{ RowBox[{"-", "3.3334308`"}], ",", RowBox[{"-", "6.0564884999999995`"}], ",", RowBox[{"-", "1.7819870999999998`"}]}], "}"}], ",", RowBox[{"{", RowBox[{ RowBox[{"-", "5.6275266`"}], ",", RowBox[{"-", "6.982441499999999`"}], ",", RowBox[{"-", "0.8087915999999999`"}]}], "}"}], ",", RowBox[{"{", RowBox[{ RowBox[{"-", "8.7228552`"}], ",", RowBox[{"-", "6.368289`"}], ",", "1.7649798`"}], "}"}], ",", RowBox[{"{", RowBox[{ RowBox[{"-", "7.0580295`"}], ",", RowBox[{"-", "2.2789782`"}], ",", "3.3750042`"}], "}"}], ",", RowBox[{"{", RowBox[{ RowBox[{"-", "2.3148825`"}], ",", RowBox[{"-", "7.1222793`"}], ",", RowBox[{"-", "3.2143797`"}]}], "}"}], ",", RowBox[{"{", RowBox[{ RowBox[{"-", "6.370178699999999`"}], ",", RowBox[{"-", "8.770097699999999`"}], ",", RowBox[{"-", "1.5042012`"}]}], "}"}], ",", RowBox[{"{", RowBox[{ "1.3001135999999998`", ",", "0.17007299999999997`", ",", "8.9061561`"}], "}"}], ",", RowBox[{"{", RowBox[{ "2.6606975999999998`", ",", "0.1284996`", ",", "6.6233984999999995`"}], "}"}], ",", RowBox[{"{", RowBox[{ "1.3379075999999999`", ",", "0.08503649999999999`", ",", "4.3633173`"}], "}"}], ",", RowBox[{"{", RowBox[{ RowBox[{"-", "2.6852637`"}], ",", "0.1228305`", ",", "6.61395`"}], "}"}], ",", RowBox[{"{", RowBox[{ RowBox[{"-", "1.3322384999999999`"}], ",", "0.16629359999999999`", ",", "8.9023767`"}], "}"}], ",", RowBox[{"{", RowBox[{"2.324331`", ",", "0.2059773`", ",", "10.6900329`"}], "}"}], ",", RowBox[{"{", RowBox[{"4.7148015`", ",", "0.132279`", ",", "6.6441852`"}], "}"}], ",", RowBox[{"{", RowBox[{ RowBox[{"-", "4.7393676`"}], ",", "0.11905109999999999`", ",", "6.6271779`"}], "}"}], ",", RowBox[{"{", RowBox[{ RowBox[{"-", "2.3640147`"}], ",", "0.1984185`", ",", "10.6805844`"}], "}"}], ",", RowBox[{"{", RowBox[{"0.020786699999999998`", ",", RowBox[{"-", "1.4853042`"}], ",", RowBox[{"-", "8.883479699999999`"}]}], "}"}], ",", RowBox[{"{", RowBox[{"0.0170073`", ",", RowBox[{"-", "2.796756`"}], ",", RowBox[{"-", "6.5704869`"}]}], "}"}], ",", RowBox[{"{", RowBox[{"0.0113382`", ",", RowBox[{"-", "1.4267235`"}], ",", RowBox[{"-", "4.3387512`"}]}], "}"}], ",", RowBox[{"{", RowBox[{"0.0094485`", ",", "2.5473156`", ",", RowBox[{"-", "6.6725307`"}]}], "}"}], ",", RowBox[{"{", RowBox[{"0.0170073`", ",", "1.1489376`", ",", RowBox[{"-", "8.9326119`"}]}], "}"}], ",", RowBox[{"{", RowBox[{"0.024566099999999997`", ",", RowBox[{"-", "2.5454258999999997`"}], ",", RowBox[{"-", "10.6446801`"}]}], "}"}], ",", RowBox[{"{", RowBox[{"0.018897`", ",", RowBox[{"-", "4.850859900000001`"}], ",", RowBox[{"-", "6.5497002`"}]}], "}"}], ",", RowBox[{"{", RowBox[{"0.0075588`", ",", "4.5995298`", ",", RowBox[{"-", "6.7292217`"}]}], "}"}], ",", RowBox[{"{", RowBox[{"0.018897`", ",", "2.1429197999999996`", ",", RowBox[{"-", "10.733495999999999`"}]}], "}"}]}], "}"}]}], ";"}], "\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.5728721358106594`*^9, 3.5728721553730936`*^9}}], Cell[BoxData[ TagBox[ RowBox[{"(", "\[NoBreak]", GridBox[{ {"0.`", "0.`", RowBox[{"-", "0.0018897`"}]}, {"0.0056691`", RowBox[{"-", "2.4471615`"}], RowBox[{"-", "1.6648257`"}]}, {"0.0018897`", "2.3848013999999997`", RowBox[{"-", "1.7555313000000001`"}]}, {"2.4150366`", "0.0359043`", "1.7120682`"}, { RowBox[{"-", "2.418816`"}], "0.0302352`", "1.7026197`"}, {"3.7529442`", "2.4358232999999996`", "0.9108354`"}, {"3.7586133`", RowBox[{"-", "2.3904704999999997`"}], "1.0034307`"}, { RowBox[{"-", "2.4055880999999997`"}], RowBox[{"-", "3.7775103`"}], RowBox[{"-", "0.8862692999999999`"}]}, {"0.0075588`", "1.2623196`", RowBox[{"-", "4.3897731`"}]}, { RowBox[{"-", "3.760503`"}], "2.4263748`", "0.8976074999999999`"}, { RowBox[{"-", "1.3530251999999998`"}], "0.08125709999999998`", "4.3576482`"}, { RowBox[{"-", "5.6426442`"}], "6.935199`", RowBox[{"-", "1.0714598999999998`"}]}, { RowBox[{"-", "6.9616548`"}], "5.6520927`", "0.8125709999999999`"}, { RowBox[{"-", "6.0243636`"}], "3.3750042`", "1.814112`"}, { RowBox[{"-", "2.4150366`"}], "3.7359369`", RowBox[{"-", "1.0279968`"}]}, { RowBox[{"-", "3.3466587`"}], "5.9790108`", RowBox[{"-", "2.0106408`"}]}, { RowBox[{"-", "6.389075699999999`"}], "8.6945097`", RowBox[{"-", "1.8330089999999999`"}]}, { RowBox[{"-", "8.7360831`"}], "6.411752099999999`", "1.5230982`"}, { RowBox[{"-", "7.0655883`"}], "2.3885807999999997`", "3.2842986`"}, { RowBox[{"-", "2.3318898`"}], "6.990000299999999`", RowBox[{"-", "3.4808274`"}]}, {"5.6313059999999995`", "6.948426899999999`", RowBox[{"-", "1.0506732`"}]}, {"3.3409896`", "5.9865696`", RowBox[{"-", "1.9974128999999998`"}]}, {"2.4093674999999997`", "3.741606`", RowBox[{"-", "1.0185483`"}]}, {"6.009246`", "3.3901217999999997`", "1.8386780999999999`"}, {"6.9465372`", "5.6691`", "0.8390268`"}, {"6.3758478`", "8.7096273`", RowBox[{"-", "1.8084429`"}]}, {"2.3262207`", "6.997559099999999`", RowBox[{"-", "3.4713789`"}]}, {"7.0466913`", "2.4055880999999997`", "3.3126440999999995`"}, {"8.717186100000001`", "6.4325388`", "1.5571127999999999`"}, {"5.646423599999999`", RowBox[{"-", "6.9711033`"}], RowBox[{"-", "0.7861151999999999`"}]}, {"3.3542175`", RowBox[{"-", "6.0508194`"}], RowBox[{"-", "1.7687592`"}]}, {"2.418816`", RowBox[{"-", "3.7718412`"}], RowBox[{"-", "0.8768208000000001`"}]}, {"6.0168048`", RowBox[{"-", "3.3050853`"}], "1.965288`"}, {"6.9578754`", RowBox[{"-", "5.6180781`"}], "1.0544526`"}, {"6.3928551`", RowBox[{"-", "8.7587595`"}], RowBox[{"-", "1.4758557`"}]}, {"2.3413383000000003`", RowBox[{"-", "7.1184999`"}], RowBox[{"-", "3.2030415`"}]}, {"7.0523604`", RowBox[{"-", "2.2619709`"}], "3.3995702999999997`"}, {"8.7285243`", RowBox[{"-", "6.349392`"}], "1.7989943999999998`"}, { RowBox[{"-", "6.948426899999999`"}], RowBox[{"-", "5.6331957`"}], "1.0261071`"}, { RowBox[{"-", "6.0149151`"}], RowBox[{"-", "3.3183132`"}], "1.9426116`"}, { RowBox[{"-", "3.7548339`"}], RowBox[{"-", "2.3980292999999997`"}], "0.9883131`"}, { RowBox[{"-", "3.3334308`"}], RowBox[{"-", "6.0564884999999995`"}], RowBox[{"-", "1.7819870999999998`"}]}, { RowBox[{"-", "5.6275266`"}], RowBox[{"-", "6.982441499999999`"}], RowBox[{"-", "0.8087915999999999`"}]}, { RowBox[{"-", "8.7228552`"}], RowBox[{"-", "6.368289`"}], "1.7649798`"}, { RowBox[{"-", "7.0580295`"}], RowBox[{"-", "2.2789782`"}], "3.3750042`"}, { RowBox[{"-", "2.3148825`"}], RowBox[{"-", "7.1222793`"}], RowBox[{"-", "3.2143797`"}]}, { RowBox[{"-", "6.370178699999999`"}], RowBox[{"-", "8.770097699999999`"}], RowBox[{"-", "1.5042012`"}]}, {"1.3001135999999998`", "0.17007299999999997`", "8.9061561`"}, {"2.6606975999999998`", "0.1284996`", "6.6233984999999995`"}, {"1.3379075999999999`", "0.08503649999999999`", "4.3633173`"}, { RowBox[{"-", "2.6852637`"}], "0.1228305`", "6.61395`"}, { RowBox[{"-", "1.3322384999999999`"}], "0.16629359999999999`", "8.9023767`"}, {"2.324331`", "0.2059773`", "10.6900329`"}, {"4.7148015`", "0.132279`", "6.6441852`"}, { RowBox[{"-", "4.7393676`"}], "0.11905109999999999`", "6.6271779`"}, { RowBox[{"-", "2.3640147`"}], "0.1984185`", "10.6805844`"}, {"0.020786699999999998`", RowBox[{"-", "1.4853042`"}], RowBox[{"-", "8.883479699999999`"}]}, {"0.0170073`", RowBox[{"-", "2.796756`"}], RowBox[{"-", "6.5704869`"}]}, {"0.0113382`", RowBox[{"-", "1.4267235`"}], RowBox[{"-", "4.3387512`"}]}, {"0.0094485`", "2.5473156`", RowBox[{"-", "6.6725307`"}]}, {"0.0170073`", "1.1489376`", RowBox[{"-", "8.9326119`"}]}, {"0.024566099999999997`", RowBox[{"-", "2.5454258999999997`"}], RowBox[{"-", "10.6446801`"}]}, {"0.018897`", RowBox[{"-", "4.850859900000001`"}], RowBox[{"-", "6.5497002`"}]}, {"0.0075588`", "4.5995298`", RowBox[{"-", "6.7292217`"}]}, {"0.018897`", "2.1429197999999996`", RowBox[{"-", "10.733495999999999`"}]} }, 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.5728722973177433`*^9, {3.5728738874909363`*^9, 3.572873913230981*^9}, 3.572925722106268*^9, 3.572925765661544*^9, 3.5800581721804934`*^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.5728721754503293`*^9, 3.5728721926883593`*^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["65"], "Output", CellChangeTimes->{ 3.5728722973333435`*^9, {3.572873887506536*^9, 3.572873913246581*^9}, 3.5729257221218677`*^9, 3.572925765677144*^9, 3.5800581721934943`*^9}] }, Open ]], Cell[CellGroupData[{ Cell[BoxData[ RowBox[{"un", "=", RowBox[{"Table", "[", RowBox[{ RowBox[{"If", "[", RowBox[{ RowBox[{ RowBox[{"u", "[", RowBox[{"[", "i", "]"}], "]"}], "\[Equal]", "\"\\""}], ",", "\"\\"", ",", RowBox[{"u", "[", RowBox[{"[", "i", "]"}], "]"}]}], "]"}], ",", RowBox[{"{", RowBox[{"i", ",", "1", ",", "n"}], "}"}]}], "]"}]}]], "Input", CellChangeTimes->{{3.568807971988578*^9, 3.5688080897687845`*^9}, { 3.5688081769573374`*^9, 3.5688081865669546`*^9}, {3.568808274317109*^9, 3.5688082853151283`*^9}, {3.5688085365847692`*^9, 3.568808578330443*^9}, { 3.568808822704872*^9, 3.5688088761037655`*^9}, {3.56880890727262*^9, 3.568808937365073*^9}, {3.568809097608555*^9, 3.5688091594002633`*^9}, 3.5688092418308077`*^9, {3.5688092753552666`*^9, 3.568809302577315*^9}, { 3.5688096257786827`*^9, 3.568809703201618*^9}, {3.5688097456336927`*^9, 3.568809788268568*^9}, 3.568809850575077*^9, {3.568809946562046*^9, 3.5688099535664577`*^9}, {3.5688100003197403`*^9, 3.568810008556555*^9}, { 3.568810075371472*^9, 3.56881007981748*^9}, {3.568813431920168*^9, 3.568813533086345*^9}, {3.5688135960324554`*^9, 3.5688136045344706`*^9}, { 3.5688136407889347`*^9, 3.568813707494652*^9}, {3.568813812529636*^9, 3.5688138275524626`*^9}, {3.5688140611940727`*^9, 3.568814062738476*^9}, { 3.568814121113778*^9, 3.5688141965555105`*^9}, {3.568814326675339*^9, 3.568814331074547*^9}, 3.568814589473401*^9, 3.5688146762563534`*^9, 3.56881472549004*^9}], Cell[BoxData[ RowBox[{"{", RowBox[{"\<\"C\"\>", ",", "\<\"C\"\>", ",", "\<\"C\"\>", ",", "\<\"C\"\>", ",", "\<\"C\"\>", ",", "\<\"C\"\>", ",", "\<\"C\"\>", ",", "\<\"C\"\>", ",", "\<\"C\"\>", ",", "\<\"C\"\>", ",", "\<\"C\"\>", ",", "\<\"C\"\>", ",", "\<\"C\"\>", ",", "\<\"C\"\>", ",", "\<\"C\"\>", ",", "\<\"C\"\>", ",", "\<\"Z\"\>", ",", "\<\"Z\"\>", ",", "\<\"Z\"\>", ",", "\<\"Z\"\>", ",", "\<\"C\"\>", ",", "\<\"C\"\>", ",", "\<\"C\"\>", ",", "\<\"C\"\>", ",", "\<\"C\"\>", ",", "\<\"Z\"\>", ",", "\<\"Z\"\>", ",", "\<\"Z\"\>", ",", "\<\"Z\"\>", ",", "\<\"C\"\>", ",", "\<\"C\"\>", ",", "\<\"C\"\>", ",", "\<\"C\"\>", ",", "\<\"C\"\>", ",", "\<\"Z\"\>", ",", "\<\"Z\"\>", ",", "\<\"Z\"\>", ",", "\<\"Z\"\>", ",", "\<\"C\"\>", ",", "\<\"C\"\>", ",", "\<\"C\"\>", ",", "\<\"C\"\>", ",", "\<\"C\"\>", ",", "\<\"Z\"\>", ",", "\<\"Z\"\>", ",", "\<\"Z\"\>", ",", "\<\"Z\"\>", ",", "\<\"C\"\>", ",", "\<\"C\"\>", ",", "\<\"C\"\>", ",", "\<\"C\"\>", ",", "\<\"C\"\>", ",", "\<\"Z\"\>", ",", "\<\"Z\"\>", ",", "\<\"Z\"\>", ",", "\<\"Z\"\>", ",", "\<\"C\"\>", ",", "\<\"C\"\>", ",", "\<\"C\"\>", ",", "\<\"C\"\>", ",", "\<\"C\"\>", ",", "\<\"Z\"\>", ",", "\<\"Z\"\>", ",", "\<\"Z\"\>", ",", "\<\"Z\"\>"}], "}"}]], "Output", CellChangeTimes->{ 3.5728722973333435`*^9, {3.572873887506536*^9, 3.5728739132621813`*^9}, 3.5729257221218677`*^9, 3.5729257656927443`*^9, 3.5800581722024946`*^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\"\>", ",", "4"}], "}"}], ",", RowBox[{"{", RowBox[{"\<\"C\"\>", ",", "5"}], "}"}], ",", RowBox[{"{", RowBox[{"\<\"C\"\>", ",", "6"}], "}"}], ",", RowBox[{"{", RowBox[{"\<\"C\"\>", ",", "7"}], "}"}], ",", RowBox[{"{", RowBox[{"\<\"C\"\>", ",", "8"}], "}"}], ",", RowBox[{"{", RowBox[{"\<\"C\"\>", ",", "9"}], "}"}], ",", RowBox[{"{", RowBox[{"\<\"C\"\>", ",", "10"}], "}"}], ",", RowBox[{"{", RowBox[{"\<\"C\"\>", ",", "11"}], "}"}], ",", RowBox[{"{", RowBox[{"\<\"C\"\>", ",", "12"}], "}"}], ",", RowBox[{"{", RowBox[{"\<\"C\"\>", ",", "13"}], "}"}], ",", RowBox[{"{", RowBox[{"\<\"C\"\>", ",", "14"}], "}"}], ",", RowBox[{"{", RowBox[{"\<\"C\"\>", ",", "15"}], "}"}], ",", RowBox[{"{", RowBox[{"\<\"C\"\>", ",", "16"}], "}"}], ",", RowBox[{"{", RowBox[{"\<\"C\"\>", ",", "21"}], "}"}], ",", RowBox[{"{", RowBox[{"\<\"C\"\>", ",", "22"}], "}"}], ",", RowBox[{"{", RowBox[{"\<\"C\"\>", ",", "23"}], "}"}], ",", RowBox[{"{", RowBox[{"\<\"C\"\>", ",", "24"}], "}"}], ",", RowBox[{"{", RowBox[{"\<\"C\"\>", ",", "25"}], "}"}], ",", RowBox[{"{", RowBox[{"\<\"C\"\>", ",", "30"}], "}"}], ",", RowBox[{"{", RowBox[{"\<\"C\"\>", ",", "31"}], "}"}], ",", RowBox[{"{", RowBox[{"\<\"C\"\>", ",", "32"}], "}"}], ",", RowBox[{"{", RowBox[{"\<\"C\"\>", ",", "33"}], "}"}], ",", RowBox[{"{", RowBox[{"\<\"C\"\>", ",", "34"}], "}"}], ",", RowBox[{"{", RowBox[{"\<\"C\"\>", ",", "39"}], "}"}], ",", RowBox[{"{", RowBox[{"\<\"C\"\>", ",", "40"}], "}"}], ",", RowBox[{"{", RowBox[{"\<\"C\"\>", ",", "41"}], "}"}], ",", RowBox[{"{", RowBox[{"\<\"C\"\>", ",", "42"}], "}"}], ",", RowBox[{"{", RowBox[{"\<\"C\"\>", ",", "43"}], "}"}], ",", RowBox[{"{", RowBox[{"\<\"C\"\>", ",", "48"}], "}"}], ",", RowBox[{"{", RowBox[{"\<\"C\"\>", ",", "49"}], "}"}], ",", RowBox[{"{", RowBox[{"\<\"C\"\>", ",", "50"}], "}"}], ",", RowBox[{"{", RowBox[{"\<\"C\"\>", ",", "51"}], "}"}], ",", RowBox[{"{", RowBox[{"\<\"C\"\>", ",", "52"}], "}"}], ",", RowBox[{"{", RowBox[{"\<\"C\"\>", ",", "57"}], "}"}], ",", RowBox[{"{", RowBox[{"\<\"C\"\>", ",", "58"}], "}"}], ",", RowBox[{"{", RowBox[{"\<\"C\"\>", ",", "59"}], "}"}], ",", RowBox[{"{", RowBox[{"\<\"C\"\>", ",", "60"}], "}"}], ",", RowBox[{"{", RowBox[{"\<\"C\"\>", ",", "61"}], "}"}], ",", RowBox[{"{", RowBox[{"\<\"Z\"\>", ",", "17"}], "}"}], ",", RowBox[{"{", RowBox[{"\<\"Z\"\>", ",", "18"}], "}"}], ",", RowBox[{"{", RowBox[{"\<\"Z\"\>", ",", "19"}], "}"}], ",", RowBox[{"{", RowBox[{"\<\"Z\"\>", ",", "20"}], "}"}], ",", RowBox[{"{", RowBox[{"\<\"Z\"\>", ",", "26"}], "}"}], ",", RowBox[{"{", RowBox[{"\<\"Z\"\>", ",", "27"}], "}"}], ",", RowBox[{"{", RowBox[{"\<\"Z\"\>", ",", "28"}], "}"}], ",", RowBox[{"{", RowBox[{"\<\"Z\"\>", ",", "29"}], "}"}], ",", RowBox[{"{", RowBox[{"\<\"Z\"\>", ",", "35"}], "}"}], ",", RowBox[{"{", RowBox[{"\<\"Z\"\>", ",", "36"}], "}"}], ",", RowBox[{"{", RowBox[{"\<\"Z\"\>", ",", "37"}], "}"}], ",", RowBox[{"{", RowBox[{"\<\"Z\"\>", ",", "38"}], "}"}], ",", RowBox[{"{", RowBox[{"\<\"Z\"\>", ",", "44"}], "}"}], ",", RowBox[{"{", RowBox[{"\<\"Z\"\>", ",", "45"}], "}"}], ",", RowBox[{"{", RowBox[{"\<\"Z\"\>", ",", "46"}], "}"}], ",", RowBox[{"{", RowBox[{"\<\"Z\"\>", ",", "47"}], "}"}], ",", RowBox[{"{", RowBox[{"\<\"Z\"\>", ",", "53"}], "}"}], ",", RowBox[{"{", RowBox[{"\<\"Z\"\>", ",", "54"}], "}"}], ",", RowBox[{"{", RowBox[{"\<\"Z\"\>", ",", "55"}], "}"}], ",", RowBox[{"{", RowBox[{"\<\"Z\"\>", ",", "56"}], "}"}], ",", RowBox[{"{", RowBox[{"\<\"Z\"\>", ",", "62"}], "}"}], ",", RowBox[{"{", RowBox[{"\<\"Z\"\>", ",", "63"}], "}"}], ",", RowBox[{"{", RowBox[{"\<\"Z\"\>", ",", "64"}], "}"}], ",", RowBox[{"{", RowBox[{"\<\"Z\"\>", ",", "65"}], "}"}]}], "}"}]], "Output", CellChangeTimes->{ 3.572872297348943*^9, {3.572873887537736*^9, 3.5728739132777815`*^9}, 3.5729257221374674`*^9, 3.572925765708344*^9, 3.5800581722164955`*^9}] }, Open ]], Cell[CellGroupData[{ Cell[BoxData[ RowBox[{"num", "=", RowBox[{"Table", "[", RowBox[{ RowBox[{"us", "[", RowBox[{"[", RowBox[{"i", ",", "2"}], "]"}], "]"}], ",", RowBox[{"{", RowBox[{"i", ",", "1", ",", "n"}], "}"}]}], "]"}]}]], "Input", CellChangeTimes->{{3.56881016518083*^9, 3.5688102745058217`*^9}, { 3.5688103430679426`*^9, 3.5688103543155622`*^9}, {3.5688124958093233`*^9, 3.568812496386524*^9}, {3.5688126345871673`*^9, 3.568812635491969*^9}, { 3.568812673025635*^9, 3.5688126732128353`*^9}, {3.5688127492161684`*^9, 3.568812848541543*^9}, 3.5688129280080824`*^9, {3.568813062152718*^9, 3.5688131360032477`*^9}, 3.568813172678912*^9, 3.568821701869093*^9}], Cell[BoxData[ RowBox[{"{", RowBox[{ "1", ",", "2", ",", "3", ",", "4", ",", "5", ",", "6", ",", "7", ",", "8", ",", "9", ",", "10", ",", "11", ",", "12", ",", "13", ",", "14", ",", "15", ",", "16", ",", "21", ",", "22", ",", "23", ",", "24", ",", "25", ",", "30", ",", "31", ",", "32", ",", "33", ",", "34", ",", "39", ",", "40", ",", "41", ",", "42", ",", "43", ",", "48", ",", "49", ",", "50", ",", "51", ",", "52", ",", "57", ",", "58", ",", "59", ",", "60", ",", "61", ",", "17", ",", "18", ",", "19", ",", "20", ",", "26", ",", "27", ",", "28", ",", "29", ",", "35", ",", "36", ",", "37", ",", "38", ",", "44", ",", "45", ",", "46", ",", "47", ",", "53", ",", "54", ",", "55", ",", "56", ",", "62", ",", "63", ",", "64", ",", "65"}], "}"}]], "Output", CellChangeTimes->{ 3.572872297364543*^9, {3.572873887537736*^9, 3.5728739132933817`*^9}, 3.5729257221530676`*^9, 3.572925765723944*^9, 3.5800581722264967`*^9}] }, Open ]], Cell[BoxData[ RowBox[{ RowBox[{"For", "[", RowBox[{ RowBox[{"i", "=", "1"}], ",", RowBox[{"i", "<", RowBox[{"n", "+", "1"}]}], ",", RowBox[{"i", "++"}], ",", RowBox[{"If", "[", RowBox[{ RowBox[{ RowBox[{"us", "[", RowBox[{"[", RowBox[{"i", ",", "1"}], "]"}], "]"}], "\[Equal]", "\"\\""}], ",", RowBox[{ RowBox[{"us", "[", RowBox[{"[", RowBox[{"i", ",", "1"}], "]"}], "]"}], "=", "\"\\""}]}], "]"}]}], "]"}], ";"}]], "Input", CellChangeTimes->{{3.568277663590458*^9, 3.568277712652544*^9}, 3.5682785838808746`*^9, {3.56880682872497*^9, 3.568806862015428*^9}, 3.5688069650848093`*^9, 3.568807273668951*^9, 3.5688073087846127`*^9, { 3.568807384553946*^9, 3.5688073893119545`*^9}, {3.56881489654434*^9, 3.5688149048591547`*^9}, {3.568821714349115*^9, 3.568821718951123*^9}}], Cell[CellGroupData[{ Cell[BoxData[{ RowBox[{"u1", "=", RowBox[{"Table", "[", RowBox[{ RowBox[{"If", "[", RowBox[{ RowBox[{ RowBox[{"us", "[", RowBox[{"[", RowBox[{"i", ",", "1"}], "]"}], "]"}], "\[Equal]", "\"\\""}], ",", "0.255", ",", RowBox[{"If", "[", RowBox[{ RowBox[{ RowBox[{"us", "[", RowBox[{"[", RowBox[{"i", ",", "1"}], "]"}], "]"}], "\[Equal]", "\"\\""}], ",", "0.12", ",", RowBox[{"If", "[", RowBox[{ RowBox[{ RowBox[{"us", "[", RowBox[{"[", RowBox[{"i", ",", "1"}], "]"}], "]"}], "\[Equal]", "\"\\""}], ",", "0.24", ",", RowBox[{"If", "[", RowBox[{ RowBox[{ RowBox[{"us", "[", RowBox[{"[", RowBox[{"i", ",", "1"}], "]"}], "]"}], "\[Equal]", "\"\\""}], ",", "0.178", ",", RowBox[{"If", "[", RowBox[{ RowBox[{ RowBox[{"us", "[", RowBox[{"[", RowBox[{"i", ",", "1"}], "]"}], "]"}], "\[Equal]", "\"\\""}], ",", "0.5"}], "]"}]}], "]"}]}], "]"}]}], "]"}]}], "]"}], ",", RowBox[{"{", RowBox[{"i", ",", "1", ",", "n"}], "}"}]}], "]"}]}], "\[IndentingNewLine]", RowBox[{"u2", "=", RowBox[{"Table", "[", RowBox[{ RowBox[{"If", "[", RowBox[{ RowBox[{ RowBox[{"us", "[", RowBox[{"[", RowBox[{"i", ",", "1"}], "]"}], "]"}], "\[Equal]", "\"\\""}], ",", "0.2557", ",", RowBox[{"If", "[", RowBox[{ RowBox[{ RowBox[{"us", "[", RowBox[{"[", RowBox[{"i", ",", "1"}], "]"}], "]"}], "\[Equal]", "\"\\""}], ",", "0.6", ",", RowBox[{"If", "[", RowBox[{ RowBox[{ RowBox[{"us", "[", RowBox[{"[", RowBox[{"i", ",", "1"}], "]"}], "]"}], "\[Equal]", "\"\\""}], ",", "0.22522", ",", RowBox[{"If", "[", RowBox[{ RowBox[{ RowBox[{"us", "[", RowBox[{"[", RowBox[{"i", ",", "1"}], "]"}], "]"}], "\[Equal]", "\"\\""}], ",", "0.178", ",", RowBox[{"If", "[", RowBox[{ RowBox[{ RowBox[{"us", "[", RowBox[{"[", RowBox[{"i", ",", "1"}], "]"}], "]"}], "\[Equal]", "\"\\""}], ",", "0.5"}], "]"}]}], "]"}]}], "]"}]}], "]"}]}], "]"}], ",", RowBox[{"{", RowBox[{"i", ",", "1", ",", "n"}], "}"}]}], "]"}]}]}], "Input", CellChangeTimes->{{3.5679480369450207`*^9, 3.567948069112277*^9}, { 3.5679486805553513`*^9, 3.5679487948723516`*^9}, 3.567950206581231*^9, { 3.5681216077716007`*^9, 3.5681216839309344`*^9}, {3.568266380090639*^9, 3.5682664108850937`*^9}, {3.568266481350417*^9, 3.56826649971165*^9}, 3.5682795170433135`*^9, {3.5682795636873956`*^9, 3.5682797843809834`*^9}, { 3.568279837187076*^9, 3.5682798459854913`*^9}, {3.568279877201146*^9, 3.568279880711152*^9}, {3.5682799570264864`*^9, 3.5682799599124913`*^9}, { 3.5683770044498715`*^9, 3.5683771523693314`*^9}, 3.5688133425788107`*^9, { 3.568814931192001*^9, 3.5688150075073347`*^9}, {3.5688765350957685`*^9, 3.5688765981198792`*^9}, {3.568876634452343*^9, 3.5688766352167444`*^9}, { 3.568894358551657*^9, 3.5688944054453397`*^9}, {3.568894522929146*^9, 3.5688945259087515`*^9}, {3.5688946101644993`*^9, 3.5688946171221113`*^9}, {3.568894651067771*^9, 3.568894651956972*^9}, 3.5688946827982264`*^9, {3.568894734527918*^9, 3.568894735495119*^9}, { 3.5688947726699843`*^9, 3.568894773496786*^9}, {3.5688948078948464`*^9, 3.568895097914956*^9}, {3.5689558039020233`*^9, 3.568955804619624*^9}, { 3.5689559169086213`*^9, 3.5689559179070234`*^9}, {3.5689559496998787`*^9, 3.568955950589081*^9}, {3.568956090817727*^9, 3.568956118273775*^9}, 3.5689561556982408`*^9, {3.5690814230317364`*^9, 3.5690814238897376`*^9}, { 3.569232478412421*^9, 3.5692324795356236`*^9}, {3.5692325096124763`*^9, 3.5692325115780797`*^9}, {3.5692325933846235`*^9, 3.569232594289425*^9}, { 3.569235467676072*^9, 3.5692354683780737`*^9}, {3.5692358857568064`*^9, 3.5692358867552085`*^9}, {3.569236173312112*^9, 3.569236174060913*^9}, { 3.569344745239445*^9, 3.569344781213108*^9}, {3.5693896312339673`*^9, 3.5693896351495743`*^9}, {3.5693896840088596`*^9, 3.5693896981112843`*^9}, {3.5693897680462074`*^9, 3.5693897743798184`*^9}, 3.570595843597315*^9, 3.5705958765133724`*^9, {3.5706006955110383`*^9, 3.57060069660304*^9}, {3.570600739659116*^9, 3.5706007402207165`*^9}, { 3.5706007784563837`*^9, 3.5706008313872766`*^9}, {3.5706008641161346`*^9, 3.5706008892321787`*^9}, 3.5706010214580107`*^9, {3.5706011135917726`*^9, 3.570601115058175*^9}, {3.5706011509850388`*^9, 3.5706011750714808`*^9}, { 3.5706012352719865`*^9, 3.570601260746831*^9}, 3.570856110868636*^9, 3.570856144034294*^9, 3.5708561753903494`*^9, {3.5708562115824127`*^9, 3.570856236261656*^9}, 3.5708568877188005`*^9, 3.570856960992129*^9, { 3.5708570022854013`*^9, 3.570857003424204*^9}, 3.5708574863854513`*^9, 3.570857676003785*^9, {3.570857720697863*^9, 3.570857774736358*^9}, { 3.570857815015629*^9, 3.570857815265229*^9}, {3.5708578488052883`*^9, 3.5708579513754683`*^9}, {3.5708579844319267`*^9, 3.570858009937971*^9}, { 3.5708583084132957`*^9, 3.570858421435494*^9}, {3.5727961392438684`*^9, 3.57279614016427*^9}, {3.572796215855603*^9, 3.5727962193812094`*^9}}], Cell[BoxData[ RowBox[{"{", RowBox[{ "0.255`", ",", "0.255`", ",", "0.255`", ",", "0.255`", ",", "0.255`", ",", "0.255`", ",", "0.255`", ",", "0.255`", ",", "0.255`", ",", "0.255`", ",", "0.255`", ",", "0.255`", ",", "0.255`", ",", "0.255`", ",", "0.255`", ",", "0.255`", ",", "0.255`", ",", "0.255`", ",", "0.255`", ",", "0.255`", ",", "0.255`", ",", "0.255`", ",", "0.255`", ",", "0.255`", ",", "0.255`", ",", "0.255`", ",", "0.255`", ",", "0.255`", ",", "0.255`", ",", "0.255`", ",", "0.255`", ",", "0.255`", ",", "0.255`", ",", "0.255`", ",", "0.255`", ",", "0.255`", ",", "0.255`", ",", "0.255`", ",", "0.255`", ",", "0.255`", ",", "0.255`", ",", "0.12`", ",", "0.12`", ",", "0.12`", ",", "0.12`", ",", "0.12`", ",", "0.12`", ",", "0.12`", ",", "0.12`", ",", "0.12`", ",", "0.12`", ",", "0.12`", ",", "0.12`", ",", "0.12`", ",", "0.12`", ",", "0.12`", ",", "0.12`", ",", "0.12`", ",", "0.12`", ",", "0.12`", ",", "0.12`", ",", "0.12`", ",", "0.12`", ",", "0.12`", ",", "0.12`"}], "}"}]], "Output", CellChangeTimes->{ 3.572872297380143*^9, {3.572873887553336*^9, 3.5728739133089814`*^9}, 3.572925722168668*^9, 3.572925765739544*^9, 3.580058172238497*^9}], Cell[BoxData[ RowBox[{"{", RowBox[{ "0.2557`", ",", "0.2557`", ",", "0.2557`", ",", "0.2557`", ",", "0.2557`", ",", "0.2557`", ",", "0.2557`", ",", "0.2557`", ",", "0.2557`", ",", "0.2557`", ",", "0.2557`", ",", "0.2557`", ",", "0.2557`", ",", "0.2557`", ",", "0.2557`", ",", "0.2557`", ",", "0.2557`", ",", "0.2557`", ",", "0.2557`", ",", "0.2557`", ",", "0.2557`", ",", "0.2557`", ",", "0.2557`", ",", "0.2557`", ",", "0.2557`", ",", "0.2557`", ",", "0.2557`", ",", "0.2557`", ",", "0.2557`", ",", "0.2557`", ",", "0.2557`", ",", "0.2557`", ",", "0.2557`", ",", "0.2557`", ",", "0.2557`", ",", "0.2557`", ",", "0.2557`", ",", "0.2557`", ",", "0.2557`", ",", "0.2557`", ",", "0.2557`", ",", "0.6`", ",", "0.6`", ",", "0.6`", ",", "0.6`", ",", "0.6`", ",", "0.6`", ",", "0.6`", ",", "0.6`", ",", "0.6`", ",", "0.6`", ",", "0.6`", ",", "0.6`", ",", "0.6`", ",", "0.6`", ",", "0.6`", ",", "0.6`", ",", "0.6`", ",", "0.6`", ",", "0.6`", ",", "0.6`", ",", "0.6`", ",", "0.6`", ",", "0.6`", ",", "0.6`"}], "}"}]], "Output", CellChangeTimes->{ 3.572872297380143*^9, {3.572873887553336*^9, 3.5728739133089814`*^9}, 3.572925722168668*^9, 3.572925765739544*^9, 3.580058172240497*^9}] }, Open ]], Cell[CellGroupData[{ Cell[BoxData[ RowBox[{"u", "=", RowBox[{"Table", "[", RowBox[{ RowBox[{"us", "[", RowBox[{"[", RowBox[{"i", ",", "1"}], "]"}], "]"}], ",", RowBox[{"{", RowBox[{"i", ",", "1", ",", "n"}], "}"}]}], "]"}]}]], "Input", CellChangeTimes->{{3.5679472243083935`*^9, 3.567947394894693*^9}, { 3.567947453425996*^9, 3.567947471241227*^9}, {3.5679475415037503`*^9, 3.5679475448733563`*^9}, {3.5679488138107853`*^9, 3.567948820877598*^9}, { 3.568820296244224*^9, 3.5688203477867146`*^9}}], Cell[BoxData[ RowBox[{"{", RowBox[{"\<\"C\"\>", ",", "\<\"C\"\>", ",", "\<\"C\"\>", ",", "\<\"C\"\>", ",", "\<\"C\"\>", ",", "\<\"C\"\>", ",", "\<\"C\"\>", ",", "\<\"C\"\>", ",", "\<\"C\"\>", ",", "\<\"C\"\>", ",", "\<\"C\"\>", ",", "\<\"C\"\>", ",", "\<\"C\"\>", ",", "\<\"C\"\>", ",", "\<\"C\"\>", ",", "\<\"C\"\>", ",", "\<\"C\"\>", ",", "\<\"C\"\>", ",", "\<\"C\"\>", ",", "\<\"C\"\>", ",", "\<\"C\"\>", ",", "\<\"C\"\>", ",", "\<\"C\"\>", ",", "\<\"C\"\>", ",", "\<\"C\"\>", ",", "\<\"C\"\>", ",", "\<\"C\"\>", ",", "\<\"C\"\>", ",", "\<\"C\"\>", ",", "\<\"C\"\>", ",", "\<\"C\"\>", ",", "\<\"C\"\>", ",", "\<\"C\"\>", ",", "\<\"C\"\>", ",", "\<\"C\"\>", ",", "\<\"C\"\>", ",", "\<\"C\"\>", ",", "\<\"C\"\>", ",", "\<\"C\"\>", ",", "\<\"C\"\>", ",", "\<\"C\"\>", ",", "\<\"H\"\>", ",", "\<\"H\"\>", ",", "\<\"H\"\>", ",", "\<\"H\"\>", ",", "\<\"H\"\>", ",", "\<\"H\"\>", ",", "\<\"H\"\>", ",", "\<\"H\"\>", ",", "\<\"H\"\>", ",", "\<\"H\"\>", ",", "\<\"H\"\>", ",", "\<\"H\"\>", ",", "\<\"H\"\>", ",", "\<\"H\"\>", ",", "\<\"H\"\>", ",", "\<\"H\"\>", ",", "\<\"H\"\>", ",", "\<\"H\"\>", ",", "\<\"H\"\>", ",", "\<\"H\"\>", ",", "\<\"H\"\>", ",", "\<\"H\"\>", ",", "\<\"H\"\>", ",", "\<\"H\"\>"}], "}"}]], "Output", CellChangeTimes->{ 3.5728722973957434`*^9, {3.5728738875689363`*^9, 3.5728739133245816`*^9}, 3.572925722168668*^9, 3.572925765755144*^9, 3.5800581722524977`*^9}] }, Open ]], Cell[CellGroupData[{ Cell[BoxData[ RowBox[{"cn", "=", RowBox[{"Table", "[", RowBox[{ RowBox[{"If", "[", RowBox[{ RowBox[{ RowBox[{"u", "[", RowBox[{"[", "i", "]"}], "]"}], "\[Equal]", "\"\\""}], ",", "6.0", ",", RowBox[{"If", "[", RowBox[{ RowBox[{ RowBox[{"u", "[", RowBox[{"[", "i", "]"}], "]"}], "\[Equal]", "\"\\""}], ",", "1.0", ",", RowBox[{"If", "[", RowBox[{ RowBox[{ RowBox[{"u", "[", RowBox[{"[", "i", "]"}], "]"}], "\[Equal]", "\"\\""}], ",", "7.0", ",", RowBox[{"If", "[", RowBox[{ RowBox[{ RowBox[{"u", "[", RowBox[{"[", "i", "]"}], "]"}], "\[Equal]", "\"\\""}], ",", "8.0", ",", RowBox[{"If", "[", RowBox[{ RowBox[{ RowBox[{"u", "[", RowBox[{"[", "i", "]"}], "]"}], "\[Equal]", "\"\\""}], ",", "17.0"}], "]"}]}], "]"}]}], "]"}]}], "]"}]}], "]"}], ",", RowBox[{"{", RowBox[{"i", ",", "1", ",", "n"}], "}"}]}], "]"}]}]], "Input", CellChangeTimes->{{3.5688224161787477`*^9, 3.5688224173799496`*^9}, { 3.5688224905908785`*^9, 3.568822500434496*^9}, 3.5692358293003073`*^9, 3.5692358676919746`*^9, {3.569344570581538*^9, 3.5693446110324097`*^9}}], Cell[BoxData[ RowBox[{"{", RowBox[{ "6.`", ",", "6.`", ",", "6.`", ",", "6.`", ",", "6.`", ",", "6.`", ",", "6.`", ",", "6.`", ",", "6.`", ",", "6.`", ",", "6.`", ",", "6.`", ",", "6.`", ",", "6.`", ",", "6.`", ",", "6.`", ",", "6.`", ",", "6.`", ",", "6.`", ",", "6.`", ",", "6.`", ",", "6.`", ",", "6.`", ",", "6.`", ",", "6.`", ",", "6.`", ",", "6.`", ",", "6.`", ",", "6.`", ",", "6.`", ",", "6.`", ",", "6.`", ",", "6.`", ",", "6.`", ",", "6.`", ",", "6.`", ",", "6.`", ",", "6.`", ",", "6.`", ",", "6.`", ",", "6.`", ",", "1.`", ",", "1.`", ",", "1.`", ",", "1.`", ",", "1.`", ",", "1.`", ",", "1.`", ",", "1.`", ",", "1.`", ",", "1.`", ",", "1.`", ",", "1.`", ",", "1.`", ",", "1.`", ",", "1.`", ",", "1.`", ",", "1.`", ",", "1.`", ",", "1.`", ",", "1.`", ",", "1.`", ",", "1.`", ",", "1.`", ",", "1.`"}], "}"}]], "Output", CellChangeTimes->{ 3.572872297411343*^9, {3.5728738875845366`*^9, 3.5728739133401814`*^9}, 3.5729257221842675`*^9, 3.5729257657707443`*^9, 3.5800581722624984`*^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["41"], "Output", CellChangeTimes->{ 3.5728722974269433`*^9, {3.5728738876001368`*^9, 3.5728739133557816`*^9}, 3.5729257221998672`*^9, 3.5729257657863445`*^9, 3.580058172272499*^9}], Cell[BoxData["24"], "Output", CellChangeTimes->{ 3.5728722974269433`*^9, {3.5728738876001368`*^9, 3.5728739133557816`*^9}, 3.5729257221998672`*^9, 3.5729257657863445`*^9, 3.5800581722734985`*^9}] }, Open ]], Cell[CellGroupData[{ Cell[BoxData[ RowBox[{ RowBox[{"ChemicalData", "\[NoBreak]", "[", RowBox[{"\"\\"", ",", "\"\\""}], "]"}], "\[IndentingNewLine]"}]], "Input", CellChangeTimes->{{3.5708566311295495`*^9, 3.5708566338907547`*^9}, 3.5709425310382767`*^9}], Cell[BoxData["\<\"C20H30O\"\>"], "Output", CellChangeTimes->{ 3.5728722974269433`*^9, {3.5728738876001368`*^9, 3.5728739133713818`*^9}, 3.5729257315286837`*^9, 3.5729257658019447`*^9, 3.5800581722824993`*^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[CellGroupData[{ 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[{"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}}], Cell[BoxData[ Graphics3DBox[{ {RGBColor[0.4, 0.2666666666666667, 0.13333333333333336`], Opacity[0.8], SphereBox[{0., 0., -0.0018897}, 0.255]}, {RGBColor[0.4, 0.2666666666666667, 0.13333333333333336`], Opacity[0.8], SphereBox[{0.0056691, -2.4471615, -1.6648257}, 0.255]}, {RGBColor[0.4, 0.2666666666666667, 0.13333333333333336`], Opacity[0.8], SphereBox[{0.0018897, 2.3848013999999997`, -1.7555313000000001`}, 0.255]}, {RGBColor[0.4, 0.2666666666666667, 0.13333333333333336`], Opacity[0.8], SphereBox[{2.4150366, 0.0359043, 1.7120682}, 0.255]}, {RGBColor[0.4, 0.2666666666666667, 0.13333333333333336`], Opacity[0.8], SphereBox[{-2.418816, 0.0302352, 1.7026197}, 0.255]}, {RGBColor[0.4, 0.2666666666666667, 0.13333333333333336`], Opacity[0.8], SphereBox[{3.7529442, 2.4358232999999996`, 0.9108354}, 0.255]}, {RGBColor[0.4, 0.2666666666666667, 0.13333333333333336`], Opacity[0.8], SphereBox[{3.7586133, -2.3904704999999997`, 1.0034307}, 0.255]}, {RGBColor[0.4, 0.2666666666666667, 0.13333333333333336`], Opacity[0.8], SphereBox[{-2.4055880999999997`, -3.7775103, -0.8862692999999999}, 0.255]}, {RGBColor[0.4, 0.2666666666666667, 0.13333333333333336`], Opacity[0.8], SphereBox[{0.0075588, 1.2623196, -4.3897731}, 0.255]}, {RGBColor[0.4, 0.2666666666666667, 0.13333333333333336`], Opacity[0.8], SphereBox[{-3.760503, 2.4263748, 0.8976074999999999}, 0.255]}, {RGBColor[0.4, 0.2666666666666667, 0.13333333333333336`], Opacity[0.8], SphereBox[{-1.3530251999999998`, 0.08125709999999998, 4.3576482}, 0.255]}, {RGBColor[0.4, 0.2666666666666667, 0.13333333333333336`], Opacity[0.8], SphereBox[{-5.6426442, 6.935199, -1.0714598999999998`}, 0.255]}, {RGBColor[0.4, 0.2666666666666667, 0.13333333333333336`], Opacity[0.8], SphereBox[{-6.9616548, 5.6520927, 0.8125709999999999}, 0.255]}, {RGBColor[0.4, 0.2666666666666667, 0.13333333333333336`], Opacity[0.8], SphereBox[{-6.0243636, 3.3750042, 1.814112}, 0.255]}, {RGBColor[0.4, 0.2666666666666667, 0.13333333333333336`], Opacity[0.8], SphereBox[{-2.4150366, 3.7359369, -1.0279968}, 0.255]}, {RGBColor[0.4, 0.2666666666666667, 0.13333333333333336`], Opacity[0.8], SphereBox[{-3.3466587, 5.9790108, -2.0106408}, 0.255]}, {RGBColor[0.4, 0.2666666666666667, 0.13333333333333336`], Opacity[0.8], SphereBox[{5.6313059999999995`, 6.948426899999999, -1.0506732}, 0.255]}, {RGBColor[0.4, 0.2666666666666667, 0.13333333333333336`], Opacity[0.8], SphereBox[{3.3409896, 5.9865696, -1.9974128999999998`}, 0.255]}, {RGBColor[0.4, 0.2666666666666667, 0.13333333333333336`], Opacity[0.8], SphereBox[{2.4093674999999997`, 3.741606, -1.0185483}, 0.255]}, {RGBColor[0.4, 0.2666666666666667, 0.13333333333333336`], Opacity[0.8], SphereBox[{6.009246, 3.3901217999999997`, 1.8386780999999999`}, 0.255]}, {RGBColor[0.4, 0.2666666666666667, 0.13333333333333336`], Opacity[0.8], SphereBox[{6.9465372, 5.6691, 0.8390268}, 0.255]}, {RGBColor[0.4, 0.2666666666666667, 0.13333333333333336`], Opacity[0.8], SphereBox[{5.646423599999999, -6.9711033, -0.7861151999999999}, 0.255]}, {RGBColor[0.4, 0.2666666666666667, 0.13333333333333336`], Opacity[0.8], SphereBox[{3.3542175, -6.0508194, -1.7687592}, 0.255]}, {RGBColor[0.4, 0.2666666666666667, 0.13333333333333336`], Opacity[0.8], SphereBox[{2.418816, -3.7718412, -0.8768208000000001}, 0.255]}, {RGBColor[0.4, 0.2666666666666667, 0.13333333333333336`], Opacity[0.8], SphereBox[{6.0168048, -3.3050853, 1.965288}, 0.255]}, {RGBColor[0.4, 0.2666666666666667, 0.13333333333333336`], Opacity[0.8], SphereBox[{6.9578754, -5.6180781, 1.0544526}, 0.255]}, {RGBColor[0.4, 0.2666666666666667, 0.13333333333333336`], Opacity[0.8], SphereBox[{-6.948426899999999, -5.6331957, 1.0261071}, 0.255]}, {RGBColor[0.4, 0.2666666666666667, 0.13333333333333336`], Opacity[0.8], SphereBox[{-6.0149151, -3.3183132, 1.9426116}, 0.255]}, {RGBColor[0.4, 0.2666666666666667, 0.13333333333333336`], Opacity[0.8], SphereBox[{-3.7548339, -2.3980292999999997`, 0.9883131}, 0.255]}, {RGBColor[0.4, 0.2666666666666667, 0.13333333333333336`], Opacity[0.8], SphereBox[{-3.3334308, -6.0564884999999995`, -1.7819870999999998`}, 0.255]}, {RGBColor[0.4, 0.2666666666666667, 0.13333333333333336`], Opacity[0.8], SphereBox[{-5.6275266, -6.982441499999999, -0.8087915999999999}, 0.255]}, {RGBColor[0.4, 0.2666666666666667, 0.13333333333333336`], Opacity[0.8], SphereBox[{1.3001135999999998`, 0.17007299999999997`, 8.9061561}, 0.255]}, {RGBColor[0.4, 0.2666666666666667, 0.13333333333333336`], Opacity[0.8], SphereBox[{2.6606975999999998`, 0.1284996, 6.6233984999999995`}, 0.255]}, {RGBColor[0.4, 0.2666666666666667, 0.13333333333333336`], Opacity[0.8], SphereBox[{1.3379075999999999`, 0.08503649999999999, 4.3633173}, 0.255]}, {RGBColor[0.4, 0.2666666666666667, 0.13333333333333336`], Opacity[0.8], SphereBox[{-2.6852637, 0.1228305, 6.61395}, 0.255]}, {RGBColor[0.4, 0.2666666666666667, 0.13333333333333336`], Opacity[0.8], SphereBox[{-1.3322384999999999`, 0.16629359999999999`, 8.9023767}, 0.255]}, {RGBColor[0.4, 0.2666666666666667, 0.13333333333333336`], Opacity[0.8], SphereBox[{0.020786699999999998`, -1.4853042, -8.883479699999999}, 0.255]}, {RGBColor[0.4, 0.2666666666666667, 0.13333333333333336`], Opacity[0.8], SphereBox[{0.0170073, -2.796756, -6.5704869}, 0.255]}, {RGBColor[0.4, 0.2666666666666667, 0.13333333333333336`], Opacity[0.8], SphereBox[{0.0113382, -1.4267235, -4.3387512}, 0.255]}, {RGBColor[0.4, 0.2666666666666667, 0.13333333333333336`], Opacity[0.8], SphereBox[{0.0094485, 2.5473156, -6.6725307}, 0.255]}, {RGBColor[0.4, 0.2666666666666667, 0.13333333333333336`], Opacity[0.8], SphereBox[{0.0170073, 1.1489376, -8.9326119}, 0.255]}, {RGBColor[1, 1, 1], Opacity[0.8], SphereBox[{-6.389075699999999, 8.6945097, -1.8330089999999999`}, 0.12]}, {RGBColor[1, 1, 1], Opacity[0.8], SphereBox[{-8.7360831, 6.411752099999999, 1.5230982}, 0.12]}, {RGBColor[1, 1, 1], Opacity[0.8], SphereBox[{-7.0655883, 2.3885807999999997`, 3.2842986}, 0.12]}, {RGBColor[1, 1, 1], Opacity[0.8], SphereBox[{-2.3318898, 6.990000299999999, -3.4808274}, 0.12]}, {RGBColor[1, 1, 1], Opacity[0.8], SphereBox[{6.3758478, 8.7096273, -1.8084429}, 0.12]}, {RGBColor[1, 1, 1], Opacity[0.8], SphereBox[{2.3262207, 6.997559099999999, -3.4713789}, 0.12]}, {RGBColor[1, 1, 1], Opacity[0.8], SphereBox[{7.0466913, 2.4055880999999997`, 3.3126440999999995`}, 0.12]}, {RGBColor[1, 1, 1], Opacity[0.8], SphereBox[{8.717186100000001, 6.4325388, 1.5571127999999999`}, 0.12]}, {RGBColor[1, 1, 1], Opacity[0.8], SphereBox[{6.3928551, -8.7587595, -1.4758557}, 0.12]}, {RGBColor[1, 1, 1], Opacity[0.8], SphereBox[{2.3413383000000003`, -7.1184999, -3.2030415}, 0.12]}, {RGBColor[1, 1, 1], Opacity[0.8], SphereBox[{7.0523604, -2.2619709, 3.3995702999999997`}, 0.12]}, {RGBColor[1, 1, 1], Opacity[0.8], SphereBox[{8.7285243, -6.349392, 1.7989943999999998`}, 0.12]}, {RGBColor[1, 1, 1], Opacity[0.8], SphereBox[{-8.7228552, -6.368289, 1.7649798}, 0.12]}, {RGBColor[1, 1, 1], Opacity[0.8], SphereBox[{-7.0580295, -2.2789782, 3.3750042}, 0.12]}, {RGBColor[1, 1, 1], Opacity[0.8], SphereBox[{-2.3148825, -7.1222793, -3.2143797}, 0.12]}, {RGBColor[1, 1, 1], Opacity[0.8], SphereBox[{-6.370178699999999, -8.770097699999999, -1.5042012}, 0.12]}, {RGBColor[1, 1, 1], Opacity[0.8], SphereBox[{2.324331, 0.2059773, 10.6900329}, 0.12]}, {RGBColor[1, 1, 1], Opacity[0.8], SphereBox[{4.7148015, 0.132279, 6.6441852}, 0.12]}, {RGBColor[1, 1, 1], Opacity[0.8], SphereBox[{-4.7393676, 0.11905109999999999`, 6.6271779}, 0.12]}, {RGBColor[1, 1, 1], Opacity[0.8], SphereBox[{-2.3640147, 0.1984185, 10.6805844}, 0.12]}, {RGBColor[1, 1, 1], Opacity[0.8], SphereBox[{0.024566099999999997`, -2.5454258999999997`, -10.6446801}, 0.12]}, {RGBColor[1, 1, 1], Opacity[0.8], SphereBox[{0.018897, -4.850859900000001, -6.5497002}, 0.12]}, {RGBColor[1, 1, 1], Opacity[0.8], SphereBox[{0.0075588, 4.5995298, -6.7292217}, 0.12]}, {RGBColor[1, 1, 1], Opacity[0.8], SphereBox[{0.018897, 2.1429197999999996`, -10.733495999999999`}, 0.12]}, Text3DBox["1", {-0.6, 0., -0.0018897}, {1, 0}], Text3DBox["2", {-0.5943309, -2.4471615, -1.6648257}, {1, 0}], Text3DBox["3", {-0.5981103, 2.3848013999999997`, -1.7555313000000001`}, {1, 0}], Text3DBox["4", {1.8150366, 0.0359043, 1.7120682}, {1, 0}], Text3DBox["5", {-3.018816, 0.0302352, 1.7026197}, {1, 0}], Text3DBox["6", {3.1529442, 2.4358232999999996`, 0.9108354}, {1, 0}], Text3DBox["7", {3.1586133, -2.3904704999999997`, 1.0034307}, {1, 0}], Text3DBox["8", {-3.0055880999999998`, -3.7775103, -0.8862692999999999}, {1, 0}], Text3DBox["9", {-0.5924412, 1.2623196, -4.3897731}, {1, 0}], Text3DBox["10", {-4.360503, 2.4263748, 0.8976074999999999}, {1, 0}], Text3DBox["11", {-1.9530252, 0.08125709999999998, 4.3576482}, {1, 0}], Text3DBox["12", {-6.2426442, 6.935199, -1.0714598999999998`}, {1, 0}], Text3DBox["13", {-7.5616547999999995`, 5.6520927, 0.8125709999999999}, {1, 0}], Text3DBox["14", {-6.6243636, 3.3750042, 1.814112}, {1, 0}], Text3DBox["15", {-3.0150366, 3.7359369, -1.0279968}, {1, 0}], Text3DBox["16", {-3.9466587, 5.9790108, -2.0106408}, {1, 0}], Text3DBox["17", {5.031306, 6.948426899999999, -1.0506732}, {1, 0}], Text3DBox["18", {2.7409896, 5.9865696, -1.9974128999999998`}, {1, 0}], Text3DBox["19", {1.8093674999999996`, 3.741606, -1.0185483}, {1, 0}], Text3DBox["20", {5.409246, 3.3901217999999997`, 1.8386780999999999`}, {1, 0}], Text3DBox["21", {6.3465372, 5.6691, 0.8390268}, {1, 0}], Text3DBox["22", {5.0464236, -6.9711033, -0.7861151999999999}, {1, 0}], Text3DBox["23", {2.7542174999999998`, -6.0508194, -1.7687592}, {1, 0}], Text3DBox["24", {1.818816, -3.7718412, -0.8768208000000001}, {1, 0}], Text3DBox["25", {5.4168048, -3.3050853, 1.965288}, {1, 0}], Text3DBox["26", {6.3578754, -5.6180781, 1.0544526}, {1, 0}], Text3DBox["27", {-7.548426899999999, -5.6331957, 1.0261071}, {1, 0}], Text3DBox["28", {-6.614915099999999, -3.3183132, 1.9426116}, {1, 0}], Text3DBox["29", {-4.3548339, -2.3980292999999997`, 0.9883131}, {1, 0}], Text3DBox["30", {-3.9334308, -6.0564884999999995`, -1.7819870999999998`}, { 1, 0}], Text3DBox[ "31", {-6.2275266, -6.982441499999999, -0.8087915999999999}, {1, 0}], Text3DBox["32", {0.7001135999999998, 0.17007299999999997`, 8.9061561}, {1, 0}], Text3DBox["33", {2.0606975999999997`, 0.1284996, 6.6233984999999995`}, {1, 0}], Text3DBox["34", {0.7379075999999999, 0.08503649999999999, 4.3633173}, {1, 0}], Text3DBox["35", {-3.2852637000000002`, 0.1228305, 6.61395}, {1, 0}], Text3DBox["36", {-1.9322385, 0.16629359999999999`, 8.9023767}, {1, 0}], Text3DBox["37", {-0.5792132999999999, -1.4853042, -8.883479699999999}, {1, 0}], Text3DBox["38", {-0.5829927, -2.796756, -6.5704869}, {1, 0}], Text3DBox["39", {-0.5886618, -1.4267235, -4.3387512}, {1, 0}], Text3DBox["40", {-0.5905515, 2.5473156, -6.6725307}, {1, 0}], Text3DBox["41", {-0.5829927, 1.1489376, -8.9326119}, {1, 0}], Text3DBox["42", {-6.989075699999999, 8.6945097, -1.8330089999999999`}, {1, 0}], Text3DBox["43", {-9.3360831, 6.411752099999999, 1.5230982}, {1, 0}], Text3DBox["44", {-7.6655883, 2.3885807999999997`, 3.2842986}, {1, 0}], Text3DBox["45", {-2.9318898, 6.990000299999999, -3.4808274}, {1, 0}], Text3DBox["46", {5.7758478, 8.7096273, -1.8084429}, {1, 0}], Text3DBox["47", {1.7262206999999998`, 6.997559099999999, -3.4713789}, {1, 0}], Text3DBox["48", {6.4466913, 2.4055880999999997`, 3.3126440999999995`}, {1, 0}], Text3DBox["49", {8.117186100000001, 6.4325388, 1.5571127999999999`}, {1, 0}], Text3DBox["50", {5.792855100000001, -8.7587595, -1.4758557}, {1, 0}], Text3DBox["51", {1.7413383000000002`, -7.1184999, -3.2030415}, {1, 0}], Text3DBox["52", {6.452360400000001, -2.2619709, 3.3995702999999997`}, {1, 0}], Text3DBox["53", {8.1285243, -6.349392, 1.7989943999999998`}, {1, 0}], Text3DBox["54", {-9.3228552, -6.368289, 1.7649798}, {1, 0}], Text3DBox["55", {-7.6580295, -2.2789782, 3.3750042}, {1, 0}], Text3DBox["56", {-2.9148825, -7.1222793, -3.2143797}, {1, 0}], Text3DBox["57", {-6.970178699999999, -8.770097699999999, -1.5042012}, {1, 0}], Text3DBox["58", {1.7243309999999998`, 0.2059773, 10.6900329}, {1, 0}], Text3DBox["59", {4.1148015000000004`, 0.132279, 6.6441852}, {1, 0}], Text3DBox["60", {-5.339367599999999, 0.11905109999999999`, 6.6271779}, {1, 0}], Text3DBox["61", {-2.9640147, 0.1984185, 10.6805844}, {1, 0}], Text3DBox["62", {-0.5754338999999999, -2.5454258999999997`, -10.6446801}, { 1, 0}], Text3DBox[ "63", {-0.5811029999999999, -4.850859900000001, -6.5497002}, {1, 0}], Text3DBox["64", {-0.5924412, 4.5995298, -6.7292217}, {1, 0}], Text3DBox["65", {-0.5811029999999999, 2.1429197999999996`, -10.733495999999999`}, {1, 0}]}, AspectRatio->Automatic, Axes->Automatic, AxesLabel->{ FormBox["xl", TraditionalForm], FormBox["yl", TraditionalForm], FormBox["zl", TraditionalForm]}, Boxed->True, SphericalRegion->True]], "Output", CellChangeTimes->{ 3.5728722975049434`*^9, {3.5728738876781363`*^9, 3.572873913449382*^9}, 3.572925731949885*^9, 3.5729257658643446`*^9, 3.580058172357504*^9}] }, Open ]], Cell[CellGroupData[{ Cell[BoxData[ RowBox[{ StyleBox[ RowBox[{"(*", " ", RowBox[{"Distance", " ", "Matrix", " ", "Bohr"}], " ", "*)"}], "Text"], "\[IndentingNewLine]", RowBox[{ 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[{"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}}], Cell[BoxData[ TagBox[ RowBox[{"(", "\[NoBreak]", GridBox[{ {"1", "2", "3", "4", "5", "6", "7", "8", "9", "10", "11", "12", "13", "14", "15", "16", "17", "18", "19", "20", "21", "22", "23", "24", "25", "26", "27", "28", "29", "30", "31", "32", "33", "34", "35", "36", "37", "38", "39", "40", "41", "42", "43", "44", "45", "46", "47", "48", "49", "50", "51", "52", "53", "54", "55", "56", "57", "58", "59", "60", "61", "62", "63", "64", "65"}, {"0.`", "2.9587138567075155`", "2.9601588048039935`", "2.9616452490246807`", "2.9592122775940566`", "4.5662777429002865`", "4.566420070138456`", "4.5649277595996915`", "4.565854645079841`", "4.564840927775236`", "4.565397092222303`", "9.004465511629364`", "9.00411770667181`", "7.140131112901603`", "4.565361111762309`", "7.140292401754534`", "9.005120236851468`", "7.140261894684996`", "4.564894513375551`", "7.140844007100847`", "9.005565747966982`", "9.005186856737515`", "7.14037942120395`", "4.565409216009082`", "7.141100541580158`", "9.005036961300828`", "9.003905130550429`", "7.139432152433688`", "4.563970171394149`", "7.138736625097444`", "9.004145468108199`", "9.004026886517586`", "7.140746991660267`", "4.566427499185662`", "7.141082789490963`", "9.004913831039815`", "9.004954279813669`", "7.139229828744633`", "4.565526932393865`", "7.140473190975273`", "9.004340390640499`", "10.943846906575267`", "10.94327652109305`", "8.150269308819336`", "8.14866993771532`", "10.94407041909455`", "8.149508660773233`", "8.150389358533722`", "10.945198842896593`", "10.943355978747666`", "8.148759335505629`", "8.149983416887116`", "10.942810368775806`", "10.943725848983895`", "8.14941313658859`", "8.148965297270246`", "10.94306767686791`", "10.943589453651258`", "8.149672539105682`", "8.149865990168841`", "10.942723075182391`", "10.94297875370286`", "8.1489276110386`", "8.149400429158545`", "10.943483729783708`"}, {"2.9587138567075155`", "0.`", "4.832815665501027`", "4.834674749043941`", "4.8327332774811875`", "6.672304049888932`", "4.605148885099764`", "2.8618419387160845`", "4.602780891481808`", "6.670942381605341`", "6.671517270745813`", "10.967416042966859`", "10.967179005236476`", "9.075346567586665`", "6.670537681324517`", "9.075134676208842`", "10.968229356013321`", "9.075395162219179`", "6.670553473660906`", "9.076968149954418`", "10.968984823571237`", "7.283975074220652`", "4.920358606829101`", "2.863390645894428`", "7.074426558057452`", "8.110632465767766`", "8.108722737577201`", "7.072477873216276`", "4.602493050309938`", "4.918389607255506`", "7.282475736537768`", "10.966820834111486`", "9.07622536230404`", "6.672735133401838`", "9.076569027175982`", "10.967493372162096`", "7.2824696071531285`", "4.918115155056348`", "2.862027852780098`", "7.072617984403921`", "8.108808392156673`", "12.847485505282165`", "12.847623923926985`", "9.893478465429363`", "9.890503861014935`", "12.848102540759665`", "9.891983694121073`", "9.894461981891943`", "12.849921928046541`", "8.981543518410408`", "5.444525774253698`", "8.679761556669632`", "10.164332511309402`", "10.164936944948405`", "8.678940543348299`", "5.444520527195705`", "8.980910732661556`", "12.84748494938099`", "9.892881450320166`", "9.892327536791258`", "12.846152941077904`", "8.980411907820026`", "5.444257511934133`", "8.677785932671869`", "10.164142970661626`"}, {"2.9601588048039935`", "4.832815665501027`", "0.`", "4.833719255373472`", "4.833488017466882`", "4.602447661312267`", "6.672935279408199`", "6.672754399053942`", "2.8634293060757217`", "4.603962713648568`", "6.671811922373468`", "7.28250197024573`", "8.109333749809613`", "7.073795566039751`", "2.8629366614862772`", "4.918963148386169`", "7.281059711614205`", "4.917400636223351`", "2.8600720309745697`", "7.072293831060345`", "8.108420186910259`", "10.969661949151874`", "9.077333029992008`", "6.672174532082978`", "9.077362534475386`", "10.969404125493048`", "10.969625815140574`", "9.077649313057682`", "6.672115391918128`", "9.076367000232851`", "10.969589029943746`", "10.966402573114694`", "9.075605867109571`", "6.671894079953187`", "9.07664712207256`", "10.967801869525182`", "8.110839835974009`", "7.0733699932419665`", "4.604436598458954`", "4.91969014270812`", "7.282724340030765`", "8.981250490276025`", "10.164541897795521`", "8.680388527323094`", "5.443439197406054`", "8.979619377416894`", "5.4428100447191845`", "8.678482791100333`", "10.164358333533729`", "12.849187006081022`", "9.893484781902062`", "9.893265507704134`", "12.84814923413023`", "12.850360443422254`", "9.895235913542692`", "9.89344507829239`", "12.849054301567307`", "12.846520007652195`", "9.891442365876335`", "9.89358169413474`", "12.846585052812216`", "10.164871953808554`", "8.679812160311892`", "5.444506425702291`", "8.981238562198309`"}, {"2.9616452490246807`", "4.834674749043941`", "4.833719255373472`", "0.`", "4.833865158584155`", "2.862093980374264`", "2.8626316782401777`", "6.673223447004415`", "6.673268396816707`", "6.671955095351205`", "4.604284976137671`", "10.966973872296148`", "10.966905168183791`", "9.076534405545901`", "6.672915746706682`", "9.07613408335649`", "8.10925999041596`", "7.073051427926302`", "4.603099357840318`", "4.917839598353389`", "7.28214204533342`", "8.110544849161634`", "7.074349832433879`", "4.604485457785224`", "4.919254612332182`", "7.282675306483089`", "10.967391948706194`", "9.075682396432939`", "6.671967940627054`", "9.075822272268926`", "10.967895637980329`", "7.2812056178159885`", "4.91834205115923`", "2.8621220529475417`", "7.074536344920265`", "8.109229825933333`", "10.968689219105293`", "9.07607998440905`", "6.673039898795132`", "9.077198881731661`", "10.968071940040483`", "12.847233679585667`", "12.846579910364973`", "9.89389931416509`", "9.89236706439527`", "10.164422976637564`", "8.679899173202086`", "5.4432958567099154`", "8.980981707081341`", "10.165235371901819`", "8.680393669611686`", "5.443589422276986`", "8.979960575698058`", "12.847922992051544`", "9.892573904898132`", "9.893513837624537`", "12.847959680226834`", "8.980033545908752`", "5.442792002250417`", "8.680479031157322`", "10.163661988815633`", "12.84783418955721`", "9.89336982146773`", "9.893331200237114`", "12.848076414633049`"}, {"2.9592122775940566`", "4.8327332774811875`", "4.833488017466882`", "4.833865158584155`", "0.`", "6.671161851648641`", "6.671530116864645`", "4.6045029074189605`", "6.672524010319503`", "2.861757088015333`", "2.8614139161359544`", "8.10969240905978`", "7.282503196117622`", "4.919337729022683`", "4.60309741840421`", "7.073692582799941`", "10.96569479814313`", "9.074333103621306`", "6.670111274108468`", "9.074115875880919`", "10.965966874396424`", "10.966340866463545`", "9.075109492874928`", "6.671730031401242`", "9.074858442694179`", "10.965669397502063`", "7.283508341618919`", "4.919583441332099`", "2.862105209436616`", "7.072991600668487`", "8.11052679738147`", "8.10807798717982`", "7.072847962696622`", "4.603833957466799`", "4.919424110819829`", "7.282558850484205`", "10.968774841042183`", "9.07575931857296`", "6.672821025671986`", "9.076084312336713`", "10.967811148730963`", "10.165298077334379`", "8.981305558029426`", "5.445731807552761`", "8.6783644916495`", "12.845447409946125`", "9.890866348538943`", "9.890920503900892`", "12.846058010756646`", "12.845025546086253`", "9.890854073282343`", "9.891260412284904`", "12.844147580037532`", "8.982533660120305`", "5.445331793487158`", "8.680215950351284`", "10.16576738974734`", "10.16375544652938`", "8.678593271044273`", "5.444641536184234`", "8.979707064226911`", "12.84756624967288`", "9.892841744289102`", "9.892507124405732`", "12.847678957431674`"}, {"4.5662777429002865`", "6.672304049888932`", "4.602447661312267`", "2.862093980374264`", "6.671161851648641`", "0.`", "4.827185294992863`", "8.930992095942887`", "6.59556466109757`", "7.51346478521584`", "6.5951060629957`", "10.604289590932867`", "11.187344478314984`", "9.863757762383118`", "6.594949038607534`", "8.455386578093938`", "5.266815953714935`", "4.608189889086359`", "2.689384366398353`", "2.61963270626414`", "4.5451370654190235`", "9.744494529469053`", "8.908552885800551`", "6.596264949802572`", "6.260588363359555`", "8.669344707519205`", "13.403048108810811`", "11.38357256278165`", "8.929662129742853`", "11.383644555481803`", "13.403509290171016`", "8.664592054453284`", "6.257005870484289`", "4.8247519758243955`", "8.906512942628412`", "9.740358335357435`", "11.190748355411738`", "9.864445955452712`", "7.515120937970712`", "8.45775573042323`", "10.60692010309889`", "12.229489163368696`", "13.12092521353119`", "11.075929074760127`", "8.777951646243492`", "7.323572516071637`", "6.484502727702285`", "4.076563400399059`", "6.405865039743393`", "11.746663697953297`", "10.497700042167649`", "6.256933674640805`", "10.135345658049907`", "15.293381794622894`", "12.049009644007569`", "12.049616001957393`", "15.293223482512929`", "10.131428951679842`", "6.253222028425491`", "10.495873699336245`", "11.74185513223329`", "13.124160366278694`", "11.07693332957536`", "8.779522202485499`", "12.231899063725388`"}, {"4.566420070138456`", "4.605148885099764`", "6.672935279408199`", "2.8626316782401777`", "6.671530116864645`", "4.827185294992863`", "0.`", "6.59486348581576`", "7.516643706133922`", "8.930302745524141`", "6.594623607196263`", "13.403616124259337`", "13.403111518858447`", "11.384398961405182`", "8.931602230635946`", "11.384978455497663`", "9.743783937893697`", "8.908101520720937`", "6.596303927739449`", "6.259251801001086`", "8.66871178889901`", "5.267684415891743`", "4.60941719466256`", "2.6904623244264227`", "2.61937369396094`", "4.54481375177837`", "11.187336179191544`", "9.862292341259948`", "7.513466211042347`", "8.4554911042012`", "10.605185974410363`", "8.66335226907561`", "6.255770721664705`", "4.824602466309639`", "8.906074304844`", "9.738950796853224`", "10.608565924758697`", "8.457476643676648`", "6.596194843072529`", "9.867033580626053`", "11.191602553101873`", "15.293716626341979`", "15.2926980987228`", "12.050104978079014`", "12.049731579922343`", "11.746008715301212`", "10.498131704606447`", "6.2566845497801395`", "10.136049584954028`", "7.3240149987294`", "6.4851629742252594`", "4.07514013116687`", "6.403592459849467`", "13.12212074960238`", "11.074138921905096`", "8.778797772059864`", "12.230302054166179`", "10.13059569202438`", "6.252733181804557`", "10.49475633862641`", "11.74036726913297`", "12.232972037771265`", "8.780021662652825`", "11.078105758440659`", "13.12602582573235`"}, {"4.5649277595996915`", "2.8618419387160845`", "6.672754399053942`", "6.673223447004415`", "4.6045029074189605`", "8.930992095942887`", "6.59486348581576`", "0.`", "6.595278785504678`", "6.595923070944829`", "6.595198651486203`", "11.192630088553006`", "10.609487022347594`", "8.458490347426082`", "7.514789736619138`", "9.866079723929959`", "13.403895860356936`", "11.38398224065473`", "8.929636336197463`", "11.384626528096561`", "13.40437765879645`", "8.662791669567765`", "6.254764842704814`", "4.82441668317983`", "8.904564367658796`", "9.737994661909028`", "5.2667006903597215`", "4.6087601929328255`", "2.6902585809859247`", "2.6185767296864473`", "4.545159456885202`", "11.189603845283663`", "9.865053197995403`", "7.516061954840999`", "8.458378470219483`", "10.607698104621537`", "8.665845466936299`", "6.256291009313698`", "4.825698145192417`", "8.905989301238822`", "9.74076417023276`", "13.126910238106674`", "12.235247727411775`", "8.782364028324585`", "11.075940036620407`", "15.293548510913988`", "12.048855826948296`", "12.050193584355666`", "15.294813650881688`", "10.12783582307651`", "6.250036414375356`", "10.493715766044588`", "11.738555087964034`", "7.324555937076794`", "6.484540174674426`", "4.076248913378637`", "6.405134456456376`", "13.124445922690354`", "11.076738933582973`", "8.779613107977939`", "12.231183208809387`", "10.131646595991079`", "6.253371644402479`", "10.49467348451839`", "11.742976379534316`"}, {"4.565854645079841`", "4.602780891481808`", "2.8634293060757217`", "6.673268396816707`", "6.672524010319503`", "6.59556466109757`", "7.516643706133922`", "6.595278785504678`", "0.`", "6.596188888026376`", "8.931040076589955`", "8.667038543899965`", "9.741890484229094`", "8.90705980628293`", "4.82589793822892`", "6.25765302764279`", "8.666483539406345`", "6.257290650707595`", "4.825008055615626`", "8.90737872775993`", "9.742149820431358`", "10.610014097217585`", "8.458832091465103`", "6.595283929209097`", "9.867067780946536`", "11.1931392747049`", "11.192212768344364`", "9.866685599197492`", "7.515155625359659`", "8.457405709419987`", "10.609132931804966`", "13.403187450663639`", "11.384842641666681`", "8.931540459393286`", "11.385589597688769`", "13.404386450091751`", "5.267163423565704`", "4.60778652697562`", "2.6895297566306233`", "2.619580224261103`", "4.544263319269878`", "10.133677776216148`", "11.744359316619`", "10.497106774993037`", "6.253441311689343`", "10.133151650273094`", "6.254007757867389`", "10.496841426758067`", "11.745391700091263`", "12.234580081934698`", "8.780261621195523`", "11.078074007465213`", "13.126089893902947`", "13.12734929366353`", "11.079489819119699`", "8.779338354943981`", "12.233211258304792`", "15.293261309449274`", "12.049205839410769`", "12.050459843778171`", "15.292871594121548`", "7.322777930517389`", "6.483546655289365`", "4.075535752637436`", "6.404561304180301`"}, {"4.564840927775236`", "6.670942381605341`", "4.603962713648568`", "6.671955095351205`", "2.861757088015333`", "7.51346478521584`", "8.930302745524141`", "6.595923070944829`", "6.596188888026376`", "0.`", "4.823630171354622`", "5.267748816049018`", "4.545311873057326`", "2.6201036340757535`", "2.689458058320274`", "4.609815378905252`", "10.604283529479389`", "8.455017875688847`", "6.593086390007136`", "9.862171042787404`", "11.18746657047714`", "13.402902104703386`", "11.383829789508573`", "8.930311342739282`", "11.383554995866321`", "13.402293026616713`", "8.668105189939817`", "6.259061247742127`", "4.825260051506341`", "8.9062667628389`", "9.74286401314231`", "9.738459265378728`", "8.904871147630178`", "6.5944522213035475`", "6.256119202159852`", "8.664915779038035`", "11.192365755655546`", "9.865247761096835`", "7.516156263845638`", "8.457786551844173`", "10.608234693797375`", "7.324969353782687`", "6.405534183084014`", "4.076924285969915`", "6.483695362445901`", "12.228964726695267`", "8.776786055732083`", "11.073765507007494`", "13.121624232993527`", "15.291541373505364`", "12.047921916674541`", "12.04817073925963`", "15.2905979010508`", "10.135254580852054`", "6.257117729592608`", "10.496430463944918`", "11.74478985481743`", "11.74082471890827`", "10.493656043983679`", "6.2537904929947095`", "10.130182914078118`", "13.12516488785604`", "11.077201867681358`", "8.780057860208943`", "12.233020057399449`"}, {"4.565397092222303`", "6.671517270745813`", "6.671811922373468`", "4.604284976137671`", "2.8614139161359544`", "6.5951060629957`", "6.594623607196263`", "6.595198651486203`", "8.931040076589955`", "4.823630171354622`", "0.`", "9.73922817759304`", "8.663631318689834`", "6.256176852262363`", "6.594673966185365`", "8.90579463190719`", "11.18878204895526`", "9.863736221635719`", "7.513803411412675`", "8.45558000316652`", "10.606008715021504`", "11.188671620460097`", "9.86373984193269`", "7.5148398691816`", "8.456068614047654`", "10.604932422080717`", "8.663870791325316`", "6.254813941573615`", "4.823687914937351`", "8.904439848066627`", "9.739573929965722`", "5.266493888017023`", "4.609319580046081`", "2.6909414257235347`", "2.6205887852070666`", "4.545571518735723`", "13.404064365236302`", "11.383500569626193`", "8.93100529064653`", "11.384314897024726`", "13.403281099297606`", "11.74198286312277`", "10.13012263510553`", "6.253734819440577`", "10.49431313809888`", "13.122687591033943`", "11.075457059661474`", "8.77780071811556`", "12.230737238043163`", "13.12152136230852`", "11.07469418398844`", "8.778333429936447`", "12.228556637499597`", "10.130793086293085`", "6.251669694179355`", "10.49531860641051`", "11.742213991676596`", "7.323769503388305`", "6.484548985695265`", "4.076703115957287`", "6.4043226614553594`", "15.29271315997608`", "12.04899156541843`", "12.049259777768397`", "15.292980640693223`"}, {"9.004465511629364`", "10.967416042966859`", "7.28250197024573`", "10.966973872296148`", "8.10969240905978`", "10.604289590932867`", "13.403616124259337`", "11.192630088553006`", "8.667038543899965`", "5.267748816049018`", "9.73922817759304`", "0.`", "2.6335761185442994`", "4.598610866811086`", "4.544735178768481`", "2.658553375983695`", "11.273977123283306`", "9.080912010875108`", "8.662374287919013`", "12.522101291950161`", "12.79611091038148`", "17.913953138539807`", "15.813488566658714`", "13.403944746970904`", "15.812274072269993`", "17.913050105915094`", "12.808957846526638`", "10.693817141958613`", "9.742465963001152`", "13.21443375731006`", "13.920127164106471`", "13.911205436941575`", "13.20937120250764`", "11.188817315629446`", "10.687375231205767`", "12.801370791295795`", "12.8065208802343`", "12.52924184339205`", "10.60963982963473`", "9.086895329429161`", "11.283181592870259`", "2.0572533035670517`", "4.071251971989504`", "6.4551637530444035`", "4.0950152172681`", "12.171108810958593`", "8.322638270589742`", "14.168873569192966`", "14.607080062786247`", "19.781736848999902`", "16.3031920018635`", "16.301570078148888`", "19.780049291674217`", "13.946895100430098`", "10.328379350752215`", "14.60406790439533`", "15.728093206630193`", "15.719027686521128`", "14.597519695619614`", "10.322054291000937`", "13.93715064611892`", "14.616636619845695`", "14.17657751144862`", "8.330090824149332`", "12.180883805691328`"}, {"9.00411770667181`", "10.967179005236476`", "8.109333749809613`", "10.966905168183791`", "7.282503196117622`", "11.187344478314984`", "13.403111518858447`", "10.609487022347594`", "9.741890484229094`", "4.545311873057326`", "8.663631318689834`", "2.6335761185442994`", "0.`", "2.6583324105744732`", "5.266030756921356`", "4.598434202506551`", "12.795890864541631`", "10.684211058741969`", "9.737505649231053`", "13.206576986356376`", "13.908227560205898`", "17.912691471720073`", "15.812610111289839`", "13.403649026855673`", "15.81139487188291`", "17.911688294471386`", "11.287316196267213`", "9.090736484353688`", "8.667124654997943`", "12.529429948942013`", "12.807816722052342`", "12.799042028892968`", "12.524594311949174`", "10.605783801889226`", "9.083846080716528`", "11.27959555604805`", "13.917985593684968`", "13.21341413171556`", "11.192336243146212`", "10.689371801902027`", "12.804246183008386`", "4.072252640007224`", "2.056824517986182`", "4.095210546780913`", "6.454300157452031`", "13.93223626339997`", "10.316352935157811`", "14.595338916261932`", "15.715899292578372`", "19.78010345171925`", "16.302112124629087`", "16.30084629916117`", "19.778533472390677`", "12.185995469594285`", "8.335300690922264`", "14.17721428005734`", "14.619057881321085`", "14.610063614299234`", "14.170945599576585`", "8.328431013590855`", "12.176146567426546`", "15.724986372947798`", "14.602847461117966`", "10.322619047056548`", "13.941092534054375`"}, {"7.140131112901603`", "9.075346567586665`", "7.073795566039751`", "9.076534405545901`", "4.919337729022683`", "9.863757762383118`", "11.384398961405182`", "8.458490347426082`", "8.90705980628293`", "2.6201036340757535`", "6.256176852262363`", "4.598610866811086`", "2.6583324105744732`", "0.`", "4.608155405137258`", "5.345997370503975`", "12.523217552185958`", "10.443076005782368`", "8.904278832228163`", "12.033644171252162`", "13.208252505546572`", "15.811717040247713`", "13.771016666295326`", "11.384454324361496`", "13.770845520451704`", "15.811108155714535`", "9.08969252192784`", "6.69455743410236`", "6.257845050378409`", "10.446343983484843`", "10.69176245190242`", "10.687218523376327`", "10.445061838239583`", "8.457267428131905`", "6.690640234192516`", "9.085997915797057`", "13.21381504610268`", "12.03703805059833`", "9.86630684103149`", "10.445815487272387`", "12.52779347857529`", "6.460003503796083`", "4.081660138549644`", "2.0539300471966446`", "7.398577080518525`", "13.97663587517603`", "10.525757749867857`", "13.19234028626019`", "15.05748498178125`", "17.670297938577907`", "14.32726163015608`", "14.327940426705958`", "17.669516444610775`", "10.110194521843466`", "5.955868251762577`", "12.216339046031685`", "12.595010549343172`", "12.590687226678678`", "12.213702996435245`", "5.951306467252247`", "10.104611996466637`", "15.061956834208182`", "13.19618101528052`", "10.529582208911842`", "13.981469778599804`"}, {"4.565361111762309`", "6.670537681324517`", "2.8629366614862772`", "6.672915746706682`", "4.60309741840421`", "6.594949038607534`", "8.931602230635946`", "7.514789736619138`", "4.82589793822892`", "2.689458058320274`", "6.594673966185365`", "4.544735178768481`", "5.266030756921356`", "4.608155405137258`", "0.`", "2.620093412228965`", "8.663961879867184`", "6.255953383804498`", "4.82441668317983`", "8.905388839929493`", "9.739710504270905`", "13.404713988333308`", "11.38479778824421`", "8.930605642415433`", "11.385591636342744`", "13.404688414264964`", "10.609034646022797`", "8.458491825039664`", "6.594399423804092`", "9.864255901671086`", "11.191594097598143`", "11.18950938166914`", "9.865116906521838`", "7.515313142104766`", "8.45735841958502`", "10.607880224818754`", "9.741827619360983`", "8.90562241316325`", "6.59556303683943`", "6.257132853247159`", "8.665468411394487`", "6.405347424096329`", "7.322820599928574`", "6.483740524684903`", "4.0758091164658525`", "10.130465973696408`", "6.252024971714087`", "10.494536016711393`", "11.742267059366817`", "15.29369059192094`", "12.048764247072906`", "12.050305156215433`", "15.29328897909346`", "12.23456884474824`", "8.781970424435476`", "11.076604176149912`", "13.125197944342357`", "13.123811949111586`", "11.076250188288816`", "8.779867719693886`", "12.23141501959653`", "11.742562652656787`", "10.495061719269248`", "6.254496504868443`", "10.132050679467705`"}, {"7.140292401754534`", "9.075134676208842`", "4.918963148386169`", "9.07613408335649`", "7.073692582799941`", "8.455386578093938`", "11.384978455497663`", "9.866079723929959`", "6.25765302764279`", "4.609815378905252`", "8.90579463190719`", "2.658553375983695`", "4.598434202506551`", "5.345997370503975`", "2.620093412228965`", "0.`", "9.081032734355441`", "6.687665653820377`", "6.254763415406351`", "10.442823133793866`", "10.684873980081527`", "15.813932066461124`", "13.772329621272393`", "11.384435033616912`", "13.772323657703405`", "15.813623605084622`", "12.53147683927668`", "10.449307647649325`", "8.907027131721799`", "12.037678384645544`", "13.215371565036161`", "13.210325723772513`", "12.035923132457254`", "9.864655915373419`", "10.44585360416169`", "12.527550476635492`", "10.690725021557675`", "10.44607717486442`", "8.458199674705858`", "6.691278272745566`", "9.08611798218301`", "4.081885414139089`", "6.459138620293115`", "7.3998654179875825`", "2.0526335104779463`", "10.10070705957652`", "5.945818456963587`", "12.211815431865292`", "12.588522739209079`", "17.6733131466382`", "14.32898865370421`", "14.32912285411996`", "17.672376196754524`", "13.986229372952407`", "10.534411592739229`", "13.19686901316436`", "15.064340536632209`", "15.059719532697148`", "13.193840471507578`", "10.530464266110634`", "13.98027301760128`", "12.592768255565828`", "12.215405223947725`", "5.951365269962185`", "10.105976556981046`"}, {"9.005120236851468`", "10.968229356013321`", "7.281059711614205`", "8.10925999041596`", "10.96569479814313`", "5.266815953714935`", "9.743783937893697`", "13.403895860356936`", "8.666483539406345`", "10.604283529479389`", "11.18878204895526`", "11.273977123283306`", "12.795890864541631`", "12.523217552185958`", "8.663961879867184`", "9.081032734355441`", "0.`", "2.6583895006616953`", "4.545945445301677`", "4.59920914539638`", "2.63390898030229`", "13.922052307971903`", "13.216700946465117`", "11.192607595773353`", "10.694818545457222`", "12.81047965229511`", "17.91256328666116`", "15.811393742644709`", "13.401989809445391`", "15.812310092923314`", "17.913372451924282`", "12.80014683153289`", "10.68771720715779`", "9.739131929388007`", "13.209865502291434`", "13.912278261102282`", "12.804632159856132`", "12.52825937351162`", "10.60842303218254`", "9.087372787313184`", "11.281816507291449`", "12.171706152471492`", "14.605964145211772`", "14.170225891913402`", "8.325855219285454`", "2.056789794593869`", "4.097050024025264`", "6.455945923776067`", "4.073001883757683`", "15.731383975809694`", "14.60599213892868`", "10.327414509512845`", "13.947951610381429`", "19.781424820606507`", "16.301866787577946`", "16.303628751366762`", "19.78164144483271`", "13.937033040993422`", "10.320402050755835`", "14.59933704827496`", "15.71973827305903`", "14.615530838514468`", "14.176092611106355`", "8.3300518139294`", "12.179864147338884`"}, {"7.140261894684996`", "9.075395162219179`", "4.917400636223351`", "7.073051427926302`", "9.074333103621306`", "4.608189889086359`", "8.908101520720937`", "11.38398224065473`", "6.257290650707595`", "8.455017875688847`", "9.863736221635719`", "9.080912010875108`", "10.684211058741969`", "10.443076005782368`", "6.255953383804498`", "6.687665653820377`", "2.6583895006616953`", "0.`", "2.6202971601836555`", "5.345720489751293`", "4.598494385614275`", "13.216790647875744`", "12.039567742621955`", "9.865734242552655`", "10.449776848722937`", "12.532501512525231`", "15.812422671050644`", "13.77089647545933`", "11.382739986668827`", "13.770604356789043`", "15.812727542596798`", "12.52535925564407`", "10.445006966227162`", "8.90501651353391`", "12.035561310721079`", "13.210605092692527`", "10.689740939534367`", "10.445509692485315`", "8.457266583659077`", "6.692111820747025`", "9.085621985738692`", "10.101194927818556`", "12.58691636440851`", "12.212242356051002`", "5.948861440263767`", "4.081803179054145`", "2.0553421755691823`", "7.399483693878522`", "6.460420287095986`", "15.066872111034488`", "13.198321470647693`", "10.532811650092066`", "13.98621418139562`", "17.672987331334063`", "14.32905245201587`", "14.32870604370443`", "17.6722742547424`", "13.979274765727688`", "10.527929297243288`", "13.194828998318952`", "15.0592623577072`", "12.592412083138335`", "12.215133935908618`", "5.951945465554109`", "10.105893872296521`"}, {"4.564894513375551`", "6.670553473660906`", "2.8600720309745697`", "4.603099357840318`", "6.670111274108468`", "2.689384366398353`", "6.596303927739449`", "8.929636336197463`", "4.825008055615626`", "6.593086390007136`", "7.513803411412675`", "8.662374287919013`", "9.737505649231053`", "8.904278832228163`", "4.82441668317983`", "6.254763415406351`", "4.545945445301677`", "2.6202971601836555`", "0.`", "4.609382719895241`", "5.267990818022949`", "11.193511418979716`", "9.866466091339085`", "7.514789736619138`", "8.46006744749264`", "10.610840838480051`", "13.402829501703861`", "11.383297606078802`", "8.92860533317371`", "11.38267222346135`", "13.40301680331954`", "10.605944069819225`", "8.456775719558678`", "6.594164402113555`", "9.864371925415048`", "11.189603526151174`", "9.740793314905035`", "8.904919269019679`", "6.5943856151575755`", "6.257272388637314`", "8.664740009010517`", "10.129521412038399`", "11.739280906569524`", "10.493805603718238`", "6.252551853393347`", "6.406101395283323`", "4.0773179826996815`", "6.484515668959758`", "7.325552875153862`", "13.127697480938489`", "11.077839982239935`", "8.781804519990752`", "12.235135069353078`", "15.29327917213669`", "12.049163607286397`", "12.04841140612662`", "15.292449761035886`", "12.231057813107965`", "8.778368414079422`", "11.0763011271296`", "13.12284501240651`", "11.742080789197065`", "10.49468726522647`", "6.254319224301689`", "10.131651177926328`"}, {"7.140844007100847`", "9.076968149954418`", "7.072293831060345`", "4.917839598353389`", "9.074115875880919`", "2.61963270626414`", "6.259251801001086`", "11.384626528096561`", "8.90737872775993`", "9.862171042787404`", "8.45558000316652`", "12.522101291950161`", "13.206576986356376`", "12.033644171252162`", "8.905388839929493`", "10.442823133793866`", "4.59920914539638`", "5.345720489751293`", "4.609382719895241`", "0.`", "2.659240333490821`", "10.694679309569628`", "10.449600516340372`", "8.459245585403595`", "6.696408389138602`", "9.091895996532001`", "15.810813303535072`", "13.769326507872506`", "11.382577479781995`", "13.770739720139051`", "15.811819685571795`", "9.082614574867483`", "6.689133357083827`", "6.254501928832326`", "10.44379782844246`", "10.685799026675424`", "13.21348142456534`", "12.037376688761364`", "9.86597837915386`", "10.447419182217306`", "12.52798944444827`", "13.976272683754553`", "15.055051332043634`", "13.192581058199254`", "10.52762130841218`", "6.46011046600091`", "7.401012402173122`", "2.053819643027055`", "4.082709860526597`", "12.598754188189993`", "12.21898577847009`", "5.955721954633333`", "10.112080811054023`", "17.671072931432914`", "14.326642373160624`", "14.329517971723064`", "17.671896791389393`", "10.102665814011088`", "5.948279142848166`", "12.213203027097498`", "12.588795483419974`", "15.062581184974459`", "13.19708115552249`", "10.53051869282553`", "13.982108409367871`"}, {"9.005565747966982`", "10.968984823571237`", "8.108420186910259`", "7.28214204533342`", "10.965966874396424`", "4.5451370654190235`", "8.66871178889901`", "13.40437765879645`", "9.742149820431358`", "11.18746657047714`", "10.606008715021504`", "12.79611091038148`", "13.908227560205898`", "13.208252505546572`", "9.739710504270905`", "10.684873980081527`", "2.63390898030229`", "4.598494385614275`", "5.267990818022949`", "2.659240333490821`", "0.`", "12.810391147751883`", "12.532430705625325`", "10.610172618445596`", "9.09224221108145`", "11.289239402688054`", "17.91220015713244`", "15.811095508012738`", "13.402246265540764`", "15.812554556944601`", "17.91323221119157`", "11.278296527414255`", "9.084361828613455`", "8.663666353826114`", "12.52527172997733`", "12.799867849967104`", "13.916847778422026`", "13.213250762708535`", "11.19183100882234`", "10.690754582701695`", "12.803717258698953`", "13.93310627921793`", "15.715090368683995`", "14.597288153119198`", "10.31964754757287`", "4.071804079979258`", "6.456912996094769`", "4.096257232163004`", "2.0575917553811913`", "14.622871626613115`", "14.179876030942797`", "8.334834562597946`", "12.187746541985527`", "19.78094995395084`", "16.301258138603135`", "16.304091005335405`", "19.781710493306235`", "12.175911504803695`", "8.326877870473787`", "14.17272404809624`", "14.610646417977325`", "15.724746224855702`", "14.603254490653548`", "10.32336122617759`", "13.940926421871964`"}, {"9.005186856737515`", "7.283975074220652`", "10.969661949151874`", "8.110544849161634`", "10.966340866463545`", "9.744494529469053`", "5.267684415891743`", "8.662791669567765`", "10.610014097217585`", "13.402902104703386`", "11.188671620460097`", "17.913953138539807`", "17.912691471720073`", "15.811717040247713`", "13.404713988333308`", "15.813932066461124`", "13.922052307971903`", "13.216790647875744`", "11.193511418979716`", "10.694679309569628`", "12.810391147751883`", "0.`", "2.6583303956078184`", "4.545432466767659`", "4.598596500956317`", "2.6340601439517517`", "12.794702244605197`", "12.521008175854446`", "10.604020189655579`", "9.081082871485535`", "11.273978707003852`", "12.799489541250674`", "10.687367045032751`", "9.740075670725371`", "13.209915782775255`", "13.910824364877577`", "11.283133170447943`", "9.087048983222434`", "8.666923178408656`", "12.530988551289058`", "12.805889292801549`", "19.782837528892255`", "19.78104608355164`", "16.30236797219241`", "16.304213329056427`", "15.730941667284554`", "14.606776430166919`", "10.32874237464725`", "13.949119016492856`", "2.056360044090271`", "4.097175531704656`", "6.455427898383983`", "4.070462051106771`", "14.606424751164775`", "14.168065541392938`", "8.324765310976249`", "12.171719648060934`", "13.937315394113915`", "10.321595025547257`", "14.59766634953493`", "15.717963109621499`", "12.181264469942725`", "8.329669847069336`", "14.177336189772637`", "14.61796352031465`"}, {"7.14037942120395`", "4.920358606829101`", "9.077333029992008`", "7.074349832433879`", "9.075109492874928`", "8.908552885800551`", "4.60941719466256`", "6.254764842704814`", "8.458832091465103`", "11.383829789508573`", "9.86373984193269`", "15.813488566658714`", "15.812610111289839`", "13.771016666295326`", "11.38479778824421`", "13.772329621272393`", "13.216700946465117`", "12.039567742621955`", "9.866466091339085`", "10.449600516340372`", "12.532430705625325`", "2.6583303956078184`", "0.`", "2.619975517380277`", "5.345234828316895`", "4.598275781270338`", "10.683172226568693`", "10.441336553550691`", "8.454758127227961`", "6.687663784949577`", "9.080814093909366`", "12.524881705890362`", "10.444772090243342`", "8.905986494502171`", "12.035742593819798`", "13.209409725304678`", "9.087075312384064`", "6.691972013924662`", "6.257952044145857`", "10.44808020957909`", "10.690849278019511`", "17.67372684764798`", "17.672786484674884`", "14.329313374185608`", "14.329199984523651`", "15.066605830427259`", "13.199086057106399`", "10.534032944081462`", "13.98774780708021`", "4.080692405662797`", "2.055001615562912`", "7.3988690815112355`", "6.457645463193993`", "12.587445462369654`", "12.210650086797427`", "5.947818066932466`", "10.10090821969932`", "13.979616294413649`", "10.528985142103199`", "13.193376427013241`", "15.057798972451925`", "10.1072416543002`", "5.951610075`", "12.216228990573672`", "12.594769978392266`"}, {"4.565409216009082`", "2.863390645894428`", "6.672174532082978`", "4.604485457785224`", "6.671730031401242`", "6.596264949802572`", "2.6904623244264227`", "4.82441668317983`", "6.595283929209097`", "8.930311342739282`", "7.5148398691816`", "13.403944746970904`", "13.403649026855673`", "11.384454324361496`", "8.930605642415433`", "11.384435033616912`", "11.192607595773353`", "9.865734242552655`", "7.514789736619138`", "8.459245585403595`", "10.610172618445596`", "4.545432466767659`", "2.619975517380277`", "0.`", "4.608792347909341`", "5.2670169805305855`", "9.738121724176025`", "8.904083724452558`", "6.593939390780053`", "6.255180458161316`", "8.663498802157676`", "10.60645179340674`", "8.457213170581412`", "6.595674026892132`", "9.865685197332501`", "11.189817662006275`", "8.665182209104241`", "6.255981924282066`", "4.824985852703642`", "8.906573283704597`", "9.740560521693007`", "15.293892795317968`", "15.293690124935402`", "12.050711132750584`", "12.048538850919618`", "13.126807544864514`", "11.077918958247427`", "8.782339021990701`", "12.236129693256075`", "6.404778193709889`", "4.076448208108558`", "6.483591818564202`", "7.322306599850936`", "11.741272874658634`", "10.493676972265929`", "6.252800857360089`", "10.1302814394628`", "12.232091887791352`", "8.77947807129184`", "11.076490050151714`", "13.122958757357033`", "10.131515305043001`", "6.253435315764852`", "10.494980228590888`", "11.743000250871878`"}, {"7.141100541580158`", "7.074426558057452`", "9.077362534475386`", "4.919254612332182`", "9.074858442694179`", "6.260588363359555`", "2.61937369396094`", "8.904564367658796`", "9.867067780946536`", "11.383554995866321`", "8.456068614047654`", "15.812274072269993`", "15.81139487188291`", "13.770845520451704`", "11.385591636342744`", "13.772323657703405`", "10.694818545457222`", "10.449776848722937`", "8.46006744749264`", "6.696408389138602`", "9.09224221108145`", "4.598596500956317`", "5.345234828316895`", "4.608792347909341`", "0.`", "2.6580388810040687`", "13.206036189265797`", "12.031748540777908`", "9.862157645551186`", "10.442183489077252`", "12.522336842691965`", "9.082926349355363`", "6.689615402518302`", "6.255841218466272`", "10.444456007893654`", "10.685602861996498`", "12.528351723830557`", "10.445832750992844`", "8.907007486835937`", "12.039553060788435`", "13.21363357540804`", "17.67266848114665`", "17.67088459209751`", "14.328525110566307`", "14.330026587048389`", "12.598542599922524`", "12.21974793576282`", "5.957165881907018`", "10.113356973437927`", "6.459523672216507`", "7.4001901816565265`", "2.053686628546821`", "4.080303847968445`", "15.055926314852933`", "13.1905832895164`", "10.526962561966323`", "13.976447190553921`", "10.10361801113251`", "5.950022263176266`", "12.21282818285956`", "12.588449694384437`", "13.981963471730415`", "10.529451131822837`", "13.198048200058148`", "15.063690538031603`"}, {"9.005036961300828`", "8.110632465767766`", "10.969404125493048`", "7.282675306483089`", "10.965669397502063`", "8.669344707519205`", "4.54481375177837`", "9.737994661909028`", "11.1931392747049`", "13.402293026616713`", "10.604932422080717`", "17.913050105915094`", "17.911688294471386`", "15.811108155714535`", "13.404688414264964`", "15.813623605084622`", "12.81047965229511`", "12.532501512525231`", "10.610840838480051`", "9.091895996532001`", "11.289239402688054`", "2.6340601439517517`", "4.598275781270338`", "5.2670169805305855`", "2.6580388810040687`", "0.`", "13.90633940575971`", "13.204962641425503`", "11.186385888844896`", "10.684033749138134`", "12.795526950372041`", "11.276622259962542`", "9.083063951336957`", "8.663610091450105`", "12.524223512701676`", "12.797455103187309`", "12.804902113627113`", "10.689958407412364`", "9.742098320293193`", "13.215920761684453`", "13.91795993645636`", "19.78202991833686`", "19.779706184343425`", "16.301421228527374`", "16.30435963446825`", "14.622519235763416`", "14.180609224869295`", "8.335858468315514`", "12.18873287451834`", "4.0725406920946705`", "6.456774456733521`", "4.095358345733634`", "2.0553248014247436`", "15.714737587570307`", "14.593839043798123`", "10.31841022287916`", "13.932658142636148`", "12.175128858734457`", "8.327250316754286`", "14.170229797988517`", "14.607932131731062`", "13.942082890437879`", "10.322847708255008`", "14.60451976775883`", "15.726990870338575`"}, {"9.003905130550429`", "8.108722737577201`", "10.969625815140574`", "10.967391948706194`", "7.283508341618919`", "13.403048108810811`", "11.187336179191544`", "5.2667006903597215`", "11.192212768344364`", "8.668105189939817`", "8.663870791325316`", "12.808957846526638`", "11.287316196267213`", "9.08969252192784`", "10.609034646022797`", "12.53147683927668`", "17.91256328666116`", "15.812422671050644`", "13.402829501703861`", "15.810813303535072`", "17.91220015713244`", "12.794702244605197`", "10.683172226568693`", "9.738121724176025`", "13.206036189265797`", "13.90633940575971`", "0.`", "2.658967049074836`", "4.546071520749971`", "4.597038898423711`", "2.6328872119062403`", "12.798887460515502`", "12.524459166090018`", "10.606530575923077`", "9.084623622363289`", "11.278797413598367`", "12.805266597963959`", "10.689756974183357`", "9.742404384731202`", "13.213698164667667`", "13.917280259248194`", "14.620894660293871`", "12.187021061260314`", "8.334389831311857`", "14.176387079837466`", "19.78098939873557`", "16.302835190300637`", "16.30072482644507`", "19.780681149639207`", "13.929062148040632`", "10.31462863696753`", "14.595222822339181`", "15.712322897834568`", "2.0578850352609765`", "4.096352689115211`", "6.455139965603732`", "4.071484401475232`", "14.61066193790846`", "14.171605299492583`", "8.32708114201125`", "12.175117713326872`", "13.941457154240544`", "10.322233667099681`", "14.60272347930564`", "15.725769922848961`"}, {"7.139432152433688`", "7.072477873216276`", "9.077649313057682`", "9.075682396432939`", "4.919583441332099`", "11.38357256278165`", "9.862292341259948`", "4.6087601929328255`", "9.866685599197492`", "6.259061247742127`", "6.254813941573615`", "10.693817141958613`", "9.090736484353688`", "6.69455743410236`", "8.458491825039664`", "10.449307647649325`", "15.811393742644709`", "13.77089647545933`", "11.383297606078802`", "13.769326507872506`", "15.811095508012738`", "12.521008175854446`", "10.441336553550691`", "8.904083724452558`", "12.031748540777908`", "13.204962641425503`", "2.658967049074836`", "0.`", "2.6202242488563647`", "5.344211588318548`", "4.598491667684456`", "10.685009834607284`", "10.44301394243332`", "8.456157929233457`", "6.689503035120487`", "9.083406571213896`", "12.529719511965935`", "10.446480547208035`", "8.907825719788798`", "12.038240521506607`", "13.214041914746396`", "12.597746667420372`", "10.112117360833372`", "5.955894333045479`", "12.216369884767051`", "17.671241263067145`", "14.328400499638443`", "14.326395111531681`", "17.67095158212333`", "13.972728293370663`", "10.523598988245801`", "13.19061320413783`", "15.052477202554321`", "4.082504748575914`", "2.0542768689363955`", "7.3996593569763505`", "6.459774372079031`", "12.588924832742833`", "12.212215162010262`", "5.948752488948118`", "10.10191289974552`", "13.982582032104931`", "10.529717353956208`", "13.197087649622512`", "15.063719933176303`"}, {"4.563970171394149`", "4.602493050309938`", "6.672115391918128`", "6.671967940627054`", "2.862105209436616`", "8.929662129742853`", "7.513466211042347`", "2.6902585809859247`", "7.515155625359659`", "4.825260051506341`", "4.823687914937351`", "9.742465963001152`", "8.667124654997943`", "6.257845050378409`", "6.594399423804092`", "8.907027131721799`", "13.401989809445391`", "11.382739986668827`", "8.92860533317371`", "11.382577479781995`", "13.402246265540764`", "10.604020189655579`", "8.454758127227961`", "6.593939390780053`", "9.862157645551186`", "11.186385888844896`", "4.546071520749971`", "2.6202242488563647`", "0.`", "4.608304187971351`", "5.268149435134145`", "9.738576971183754`", "8.904862726360278`", "6.594868088367615`", "6.256716796741378`", "8.664705596407215`", "10.608518799033451`", "8.457022316354044`", "6.595839696374264`", "9.864825690041574`", "11.190733357708872`", "11.74493549234463`", "10.134647848419233`", "6.256539008329733`", "10.494431213312192`", "15.291585626539007`", "12.04762047730836`", "12.047829736901948`", "15.292277428423072`", "12.227289503107647`", "8.775739943757356`", "11.073758251411979`", "13.1188682174427`", "6.4068251798833`", "4.076955818142966`", "6.484953729058812`", "7.325019566722677`", "11.741399547411186`", "10.494097060421181`", "6.25314293609053`", "10.129957659241088`", "12.232420893222153`", "8.77946851289348`", "11.076180550000851`", "13.124864654968766`"}, {"7.138736625097444`", "4.918389607255506`", "9.076367000232851`", "9.075822272268926`", "7.072991600668487`", "11.383644555481803`", "8.4554911042012`", "2.6185767296864473`", "8.457405709419987`", "8.9062667628389`", "8.904439848066627`", "13.21443375731006`", "12.529429948942013`", "10.446343983484843`", "9.864255901671086`", "12.037678384645544`", "15.812310092923314`", "13.770604356789043`", "11.38267222346135`", "13.770739720139051`", "15.812554556944601`", "9.081082871485535`", "6.687663784949577`", "6.255180458161316`", "10.442183489077252`", "10.684033749138134`", "4.597038898423711`", "5.344211588318548`", "4.608304187971351`", "0.`", "2.6584533057789246`", "13.208944200191016`", "12.034706484061648`", "9.86430422997988`", "10.44489653756512`", "12.525311073838052`", "9.08722719478981`", "6.691862354239506`", "6.2577349162164735`", "10.445941973275854`", "10.689950223217497`", "15.064246309908068`", "13.984608123735883`", "10.531640227459027`", "13.194696387113668`", "17.672265464868424`", "14.328079372282428`", "14.328605733259232`", "17.673221514848134`", "10.099337720862977`", "5.94560914959974`", "12.211124426366393`", "12.58570545492268`", "6.4594186352032645`", "7.398430834367748`", "2.0555046167139324`", "4.081994329334358`", "15.059217421968144`", "13.193758598409584`", "10.527488002082329`", "13.97781519216077`", "10.106979319944084`", "5.9516997743251805`", "12.214256739756218`", "12.593566204040096`"}, {"9.004145468108199`", "7.282475736537768`", "10.969589029943746`", "10.967895637980329`", "8.11052679738147`", "13.403509290171016`", "10.605185974410363`", "4.545159456885202`", "10.609132931804966`", "9.74286401314231`", "9.739573929965722`", "13.920127164106471`", "12.807816722052342`", "10.69176245190242`", "11.191594097598143`", "13.215371565036161`", "17.913372451924282`", "15.812727542596798`", "13.40301680331954`", "15.811819685571795`", "17.91323221119157`", "11.273978707003852`", "9.080814093909366`", "8.663498802157676`", "12.522336842691965`", "12.795526950372041`", "2.6328872119062403`", "4.598491667684456`", "5.268149435134145`", "2.6584533057789246`", "0.`", "13.911537342332139`", "13.209753722143077`", "11.190050462284468`", "10.688259635088912`", "12.800808690973337`", "11.283729416389326`", "9.087236036507555`", "8.667376391148315`", "12.528974215628716`", "12.805332689268878`", "15.728819957051924`", "13.946514107378846`", "10.326541908375729`", "14.602401415122893`", "19.781843264268893`", "16.303124977082735`", "16.302059114614664`", "19.782062140355055`", "12.169217574040156`", "8.321883937325286`", "14.169427895988072`", "14.604708040034112`", "4.072166702713946`", "6.455466896937272`", "4.096342228187882`", "2.056900907385917`", "15.720317077485157`", "14.598967823189012`", "10.32054581706152`", "13.93632021483496`", "12.181049294230318`", "8.329692139668158`", "14.175603663629385`", "14.616910609070372`"}, {"9.004026886517586`", "10.966820834111486`", "10.966402573114694`", "7.2812056178159885`", "8.10807798717982`", "8.664592054453284`", "8.66335226907561`", "11.189603845283663`", "13.403187450663639`", "9.738459265378728`", "5.266493888017023`", "13.911205436941575`", "12.799042028892968`", "10.687218523376327`", "11.18950938166914`", "13.210325723772513`", "12.80014683153289`", "12.52535925564407`", "10.605944069819225`", "9.082614574867483`", "11.278296527414255`", "12.799489541250674`", "12.524881705890362`", "10.60645179340674`", "9.082926349355363`", "11.276622259962542`", "12.798887460515502`", "10.685009834607284`", "9.738576971183754`", "13.208944200191016`", "13.911537342332139`", "0.`", "2.657799734555131`", "4.543791803720071`", "4.597789999775843`", "2.6323575262686347`", "17.91223305140889`", "15.81059501226281`", "13.402920222087825`", "15.81178614806395`", "17.911621407344924`", "15.720029268057974`", "13.935327270761176`", "10.32046640848323`", "14.59932249469711`", "14.611286632001272`", "14.17289084494016`", "8.32514621604986`", "12.175380067648845`", "14.609799273577229`", "14.171806882340384`", "8.32620369390511`", "12.173596709438275`", "13.935798511621039`", "10.317463312325016`", "14.599794072157735`", "15.720546276330255`", "2.0573105839419314`", "4.096099875892826`", "6.455360410969188`", "4.071269514300426`", "19.779690387361676`", "16.301373473688272`", "16.30201902841492`", "19.78002970375475`"}, {"7.140746991660267`", "9.07622536230404`", "9.075605867109571`", "4.91834205115923`", "7.072847962696622`", "6.257005870484289`", "6.255770721664705`", "9.865053197995403`", "11.384842641666681`", "8.904871147630178`", "4.609319580046081`", "13.20937120250764`", "12.524594311949174`", "10.445061838239583`", "9.865116906521838`", "12.035923132457254`", "10.68771720715779`", "10.445006966227162`", "8.456775719558678`", "6.689133357083827`", "9.084361828613455`", "10.687367045032751`", "10.444772090243342`", "8.457213170581412`", "6.689615402518302`", "9.083063951336957`", "12.524459166090018`", "10.44301394243332`", "8.904862726360278`", "12.034706484061648`", "13.209753722143077`", "2.657799734555131`", "0.`", "2.6190894325614478`", "5.345972655555277`", "4.597685148114696`", "15.812550830731533`", "13.770433205821035`", "11.384487259703532`", "13.771765534001783`", "15.812016053592476`", "15.05940747907271`", "13.977801524303773`", "10.52892171978272`", "13.194752814697592`", "12.591030259951774`", "12.214760905016707`", "5.948375195832162`", "10.103920723154621`", "12.59008707323173`", "12.213923005697094`", "5.949295724990424`", "10.102300498533996`", "13.978475193238621`", "10.52623728262097`", "13.195153348885205`", "15.05986844354588`", "4.0812572360556025`", "2.0542125505303637`", "7.400072197098325`", "6.45858961209855`", "17.671604494233694`", "14.328421434350064`", "14.329051704381051`", "17.671977417268806`"}, {"4.566427499185662`", "6.672735133401838`", "6.671894079953187`", "2.8621220529475417`", "4.603833957466799`", "4.8247519758243955`", "4.824602466309639`", "7.516061954840999`", "8.931540459393286`", "6.5944522213035475`", "2.6909414257235347`", "11.188817315629446`", "10.605783801889226`", "8.457267428131905`", "7.515313142104766`", "9.864655915373419`", "9.739131929388007`", "8.90501651353391`", "6.594164402113555`", "6.254501928832326`", "8.663666353826114`", "9.740075670725371`", "8.905986494502171`", "6.595674026892132`", "6.255841218466272`", "8.663610091450105`", "10.606530575923077`", "8.456157929233457`", "6.594868088367615`", "9.86430422997988`", "11.190050462284468`", "4.543791803720071`", "2.6190894325614478`", "0.`", "4.610063258339192`", "5.266815275702573`", "13.404417485982085`", "11.384093284031627`", "8.931472490542005`", "11.384970927752676`", "13.403671006277868`", "13.1234050198898`", "12.230268330783861`", "8.780053589718515`", "11.075944389120743`", "11.741168250754468`", "10.494865221880499`", "6.251326677981761`", "10.13011946251809`", "11.741429352566119`", "10.495122454081462`", "6.252377373374995`", "10.129108414040969`", "12.231750319995921`", "8.778216679520055`", "11.07744412666553`", "13.124624545338413`", "6.404294503257603`", "4.075291724884719`", "6.4853292642533225`", "7.322905694183403`", "15.293272517412444`", "12.049764030459334`", "12.049684607985693`", "15.293411799019475`"}, {"7.141082789490963`", "9.076569027175982`", "9.07664712207256`", "7.074536344920265`", "4.919424110819829`", "8.906512942628412`", "8.906074304844`", "8.458378470219483`", "11.385589597688769`", "6.256119202159852`", "2.6205887852070666`", "10.687375231205767`", "9.083846080716528`", "6.690640234192516`", "8.45735841958502`", "10.44585360416169`", "13.209865502291434`", "12.035561310721079`", "9.864371925415048`", "10.44379782844246`", "12.52527172997733`", "13.209915782775255`", "12.035742593819798`", "9.865685197332501`", "10.444456007893654`", "12.524223512701676`", "9.084623622363289`", "6.689503035120487`", "6.256716796741378`", "10.44489653756512`", "10.688259635088912`", "4.597789999775843`", "5.345972655555277`", "4.610063258339192`", "0.`", "2.6588461772298033`", "15.813890517109517`", "13.771551483348015`", "11.385712229916978`", "13.77207940844168`", "15.812993114797811`", "12.591386896872706`", "10.103451012002095`", "5.950415655131766`", "12.214230427283741`", "15.059001396569856`", "13.194344555008277`", "10.527134036752717`", "13.97855080971961`", "15.05788292353098`", "13.193821119730265`", "10.528097534033149`", "13.976695533223209`", "10.104437415543755`", "5.94815397147577`", "12.215762888140533`", "12.592344874313188`", "6.4589011647718175`", "7.400132999191457`", "2.054149968526636`", "4.080003653063115`", "17.672664844039087`", "14.329402216227889`", "14.329422900270883`", "17.6727793115377`"}, {"9.004913831039815`", "10.967493372162096`", "10.967801869525182`", "8.109229825933333`", "7.282558850484205`", "9.740358335357435`", "9.738950796853224`", "10.607698104621537`", "13.404386450091751`", "8.664915779038035`", "4.545571518735723`", "12.801370791295795`", "11.27959555604805`", "9.085997915797057`", "10.607880224818754`", "12.527550476635492`", "13.912278261102282`", "13.210605092692527`", "11.189603526151174`", "10.685799026675424`", "12.799867849967104`", "13.910824364877577`", "13.209409725304678`", "11.189817662006275`", "10.685602861996498`", "12.797455103187309`", "11.278797413598367`", "9.083406571213896`", "8.664705596407215`", "12.525311073838052`", "12.800808690973337`", "2.6323575262686347`", "4.597685148114696`", "5.266815275702573`", "2.6588461772298033`", "0.`", "17.913546281130962`", "15.811692987946696`", "13.404117646970787`", "15.812878621207076`", "17.912924714341976`", "14.61336985241144`", "12.176880467374788`", "8.329025265068145`", "14.17413205919408`", "15.720203612598263`", "14.600011633491468`", "10.318237009807492`", "13.935912796019192`", "15.717549163752926`", "14.598100309287908`", "10.318858729129031`", "13.9330953867353`", "12.176387784177672`", "8.325616103647375`", "14.174084443317366`", "14.612898224317451`", "4.070355020606235`", "6.455019644066579`", "4.0972295685492774`", "2.0561169131218544`", "19.78084353387609`", "16.302272139350272`", "16.303236137312137`", "19.781307210710114`"}, {"9.004954279813669`", "7.2824696071531285`", "8.110839835974009`", "10.968689219105293`", "10.968774841042183`", "11.190748355411738`", "10.608565924758697`", "8.665845466936299`", "5.267163423565704`", "11.192365755655546`", "13.404064365236302`", "12.8065208802343`", "13.917985593684968`", "13.21381504610268`", "9.741827619360983`", "10.690725021557675`", "12.804632159856132`", "10.689740939534367`", "9.740793314905035`", "13.21348142456534`", "13.916847778422026`", "11.283133170447943`", "9.087075312384064`", "8.665182209104241`", "12.528351723830557`", "12.804902113627113`", "12.805266597963959`", "12.529719511965935`", "10.608518799033451`", "9.08722719478981`", "11.283729416389326`", "17.91223305140889`", "15.812550830731533`", "13.404417485982085`", "15.813890517109517`", "17.913546281130962`", "0.`", "2.6589200440102436`", "4.5451158523493085`", "4.5989614574088655`", "2.634702662124977`", "13.943603699084589`", "15.727146291946614`", "14.604058490426587`", "10.32252512499087`", "13.942007588427845`", "10.323024303187681`", "14.603007021960472`", "15.726588061242834`", "12.181104261139572`", "8.329779809021382`", "14.174609594762057`", "14.615036679178516`", "14.617951428145016`", "14.1777990089512`", "8.328837475893538`", "12.180574956142326`", "19.781029926590364`", "16.302108072216708`", "16.303788641689522`", "19.780667429509197`", "2.0556505421971445`", "4.0955458116579315`", "6.454936662389369`", "4.072661694200462`"}, {"7.139229828744633`", "4.918115155056348`", "7.0733699932419665`", "9.07607998440905`", "9.07575931857296`", "9.864445955452712`", "8.457476643676648`", "6.256291009313698`", "4.60778652697562`", "9.865247761096835`", "11.383500569626193`", "12.52924184339205`", "13.21341413171556`", "12.03703805059833`", "8.90562241316325`", "10.44607717486442`", "12.52825937351162`", "10.445509692485315`", "8.904919269019679`", "12.037376688761364`", "13.213250762708535`", "9.087048983222434`", "6.691972013924662`", "6.255981924282066`", "10.445832750992844`", "10.689958407412364`", "10.689756974183357`", "10.446480547208035`", "8.457022316354044`", "6.691862354239506`", "9.087236036507555`", "15.81059501226281`", "13.770433205821035`", "11.384093284031627`", "13.771551483348015`", "15.811692987946696`", "2.6589200440102436`", "0.`", "2.6187144602658665`", "5.34505110719275`", "4.598709873508652`", "13.983232231636357`", "15.063841898708302`", "13.197260147984652`", "10.528243551890235`", "13.982445144140387`", "10.529270876964443`", "13.196860218924112`", "15.064224856948883`", "10.107036557111611`", "5.951442972652041`", "12.214099594981752`", "12.592059729084621`", "12.594484888069225`", "12.216260998837011`", "5.950740911523435`", "10.106641720056142`", "17.671041103842825`", "14.327458779814966`", "14.328411963889073`", "17.670308346138672`", "4.081944902316749`", "2.0542099429849405`", "7.397994974732337`", "6.459957070039594`"}, {"4.565526932393865`", "2.862027852780098`", "4.604436598458954`", "6.673039898795132`", "6.672821025671986`", "7.515120937970712`", "6.596194843072529`", "4.825698145192417`", "2.6895297566306233`", "7.516156263845638`", "8.93100529064653`", "10.60963982963473`", "11.192336243146212`", "9.86630684103149`", "6.59556303683943`", "8.458199674705858`", "10.60842303218254`", "8.457266583659077`", "6.5943856151575755`", "9.86597837915386`", "11.19183100882234`", "8.666923178408656`", "6.257952044145857`", "4.824985852703642`", "8.907007486835937`", "9.742098320293193`", "9.742404384731202`", "8.907825719788798`", "6.595839696374264`", "6.2577349162164735`", "8.667376391148315`", "13.402920222087825`", "11.384487259703532`", "8.931472490542005`", "11.385712229916978`", "13.404117646970787`", "4.5451158523493085`", "2.6187144602658665`", "0.`", "4.608635057575633`", "5.266651533161512`", "12.234516890868894`", "13.127084882782217`", "11.079274517822942`", "8.77883763559145`", "12.233358086895098`", "8.77949617120916`", "11.07820632945768`", "13.127109501509908`", "10.133048923902512`", "6.254203032862865`", "10.495487195812391`", "11.742824179610492`", "11.745668821304083`", "10.497824542375652`", "6.254188187609514`", "10.133290496611219`", "15.293135686300088`", "12.048981192445199`", "12.050320565793493`", "15.292607030363719`", "6.404405462567105`", "4.07591249928938`", "6.483061956436597`", "7.323603722336385`"}, {"7.140473190975273`", "7.072617984403921`", "4.91969014270812`", "9.077198881731661`", "9.076084312336713`", "8.45775573042323`", "9.867033580626053`", "8.905989301238822`", "2.619580224261103`", "8.457786551844173`", "11.384314897024726`", "9.086895329429161`", "10.689371801902027`", "10.445815487272387`", "6.257132853247159`", "6.691278272745566`", "9.087372787313184`", "6.692111820747025`", "6.257272388637314`", "10.447419182217306`", "10.690754582701695`", "12.530988551289058`", "10.44808020957909`", "8.906573283704597`", "12.039553060788435`", "13.215920761684453`", "13.213698164667667`", "12.038240521506607`", "9.864825690041574`", "10.445941973275854`", "12.528974215628716`", "15.81178614806395`", "13.771765534001783`", "11.384970927752676`", "13.77207940844168`", "15.812878621207076`", "4.5989614574088655`", "5.34505110719275`", "4.608635057575633`", "0.`", "2.6577218057830803`", "10.106932152034629`", "12.593114209584776`", "12.215555336022339`", "5.950317834695207`", "10.10764441702943`", "5.951426172156413`", "12.216652106733788`", "12.595502592646483`", "13.98501501763186`", "10.53105192411`", "13.197691586957353`", "15.064542025762796`", "15.064286134104897`", "13.198307266127747`", "10.529120973113947`", "13.981956831379755`", "17.671988025909766`", "14.328561372142751`", "14.329339540903252`", "17.671481228861115`", "6.458654301290043`", "7.399201128140981`", "2.0529979452324665`", "4.081061676208039`"}, {"9.004340390640499`", "8.108808392156673`", "7.282724340030765`", "10.968071940040483`", "10.967811148730963`", "10.60692010309889`", "11.191602553101873`", "9.74076417023276`", "4.544263319269878`", "10.608234693797375`", "13.403281099297606`", "11.283181592870259`", "12.804246183008386`", "12.52779347857529`", "8.665468411394487`", "9.08611798218301`", "11.281816507291449`", "9.085621985738692`", "8.664740009010517`", "12.52798944444827`", "12.803717258698953`", "12.805889292801549`", "10.690849278019511`", "9.740560521693007`", "13.21363357540804`", "13.91795993645636`", "13.917280259248194`", "13.214041914746396`", "11.190733357708872`", "10.689950223217497`", "12.805332689268878`", "17.911621407344924`", "15.812016053592476`", "13.403671006277868`", "15.812993114797811`", "17.912924714341976`", "2.634702662124977`", "4.598709873508652`", "5.266651533161512`", "2.6577218057830803`", "0.`", "12.181047535285124`", "14.616281391216589`", "14.175781384511254`", "8.328102141914442`", "12.180010886066043`", "8.328499616214843`", "14.17539848203719`", "14.616561739150592`", "13.94335361454882`", "10.323808133751974`", "14.601822072982833`", "15.725229696564844`", "15.726803885550384`", "14.60425165895956`", "10.322253559146203`", "13.941473803336454`", "19.780321173603955`", "16.301517504486384`", "16.303092559769645`", "19.780046042066797`", "4.071800133484075`", "6.455682905934061`", "4.094093816500683`", "2.0569851060510222`"}, {"10.943846906575267`", "12.847485505282165`", "8.981250490276025`", "12.847233679585667`", "10.165298077334379`", "12.229489163368696`", "15.293716626341979`", "13.126910238106674`", "10.133677776216148`", "7.324969353782687`", "11.74198286312277`", "2.0572533035670517`", "4.072252640007224`", "6.460003503796083`", "6.405347424096329`", "4.081885414139089`", "12.171706152471492`", "10.101194927818556`", "10.129521412038399`", "13.976272683754553`", "13.93310627921793`", "19.782837528892255`", "17.67372684764798`", "15.293892795317968`", "17.67266848114665`", "19.78202991833686`", "14.620894660293871`", "12.597746667420372`", "11.74493549234463`", "15.064246309908068`", "15.728819957051924`", "15.720029268057974`", "15.05940747907271`", "13.1234050198898`", "12.591386896872706`", "14.61336985241144`", "13.943603699084589`", "13.983232231636357`", "12.234516890868894`", "10.106932152034629`", "12.181047535285124`", "0.`", "4.688590570086533`", "8.149186809911264`", "4.6990866347861395`", "12.764956090639371`", "9.02885865477577`", "15.7018507060402`", "15.646360079629423`", "21.636125328333588`", "18.1148665540805`", "18.113435833638743`", "21.634515405177776`", "15.661416118482625`", "12.16504571998622`", "16.391401694555157`", "17.467712595016113`", "17.458671686431654`", "16.385075676884007`", "12.158733050710964`", "15.65166769111081`", "15.656196888306871`", "15.70943435011926`", "9.036519911538708`", "12.775136522906369`"}, {"10.94327652109305`", "12.847623923926985`", "10.164541897795521`", "12.846579910364973`", "8.981305558029426`", "13.12092521353119`", "15.2926980987228`", "12.235247727411775`", "11.744359316619`", "6.405534183084014`", "10.13012263510553`", "4.071251971989504`", "2.056824517986182`", "4.081660138549644`", "7.322820599928574`", "6.459138620293115`", "14.605964145211772`", "12.58691636440851`", "11.739280906569524`", "15.055051332043634`", "15.715090368683995`", "19.78104608355164`", "17.672786484674884`", "15.293690124935402`", "17.67088459209751`", "19.779706184343425`", "12.187021061260314`", "10.112117360833372`", "10.134647848419233`", "13.984608123735883`", "13.946514107378846`", "13.935327270761176`", "13.977801524303773`", "12.230268330783861`", "10.103451012002095`", "12.176880467374788`", "15.727146291946614`", "15.063841898708302`", "13.127084882782217`", "12.593114209584776`", "14.616281391216589`", "4.688590570086533`", "0.`", "4.698753774665245`", "8.147842304248622`", "15.644483119046761`", "12.151647489421666`", "16.381324497255957`", "17.453314723787535`", "21.63383733320279`", "18.11390020179525`", "18.111586522872578`", "21.631815205624193`", "12.78233672704041`", "9.042909535356804`", "15.711318211232777`", "15.660479195635737`", "15.648549221121359`", "15.702980958967942`", "9.034569732272441`", "12.76982081402703`", "17.46524665978398`", "16.39103961379456`", "12.158791349142763`", "15.655564733997716`"}, {"8.150269308819336`", "9.893478465429363`", "8.680388527323094`", "9.89389931416509`", "5.445731807552761`", "11.075929074760127`", "12.050104978079014`", "8.782364028324585`", "10.497106774993037`", "4.076924285969915`", "6.253734819440577`", "6.4551637530444035`", "4.095210546780913`", "2.0539300471966446`", "6.483740524684903`", "7.3998654179875825`", "14.170225891913402`", "12.212242356051002`", "10.493805603718238`", "13.192581058199254`", "14.597288153119198`", "16.30236797219241`", "14.329313374185608`", "12.050711132750584`", "14.328525110566307`", "16.301421228527374`", "8.334389831311857`", "5.955894333045479`", "6.256539008329733`", "10.531640227459027`", "10.326541908375729`", "10.32046640848323`", "10.52892171978272`", "8.780053589718515`", "5.950415655131766`", "8.329025265068145`", "14.604058490426587`", "13.197260147984652`", "11.079274517822942`", "12.215555336022339`", "14.175781384511254`", "8.149186809911264`", "4.698753774665245`", "0.`", "9.45240142502203`", "15.702351711491108`", "12.453430681798416`", "14.11231831501117`", "16.383916957027736`", "18.11220482091609`", "14.864737907785932`", "14.864635689280293`", "18.111109575107655`", "9.040886675985995`", "4.668446386091394`", "12.460276284529831`", "12.162624334934234`", "12.156448618775189`", "12.45621610351582`", "4.662285900570564`", "9.033639845147686`", "16.38997129822191`", "14.117611908999837`", "12.457459378916372`", "15.708241363711796`"}, {"8.14866993771532`", "9.890503861014935`", "5.443439197406054`", "9.89236706439527`", "8.6783644916495`", "8.777951646243492`", "12.049731579922343`", "11.075940036620407`", "6.253441311689343`", "6.483695362445901`", "10.49431313809888`", "4.0950152172681`", "6.454300157452031`", "7.398577080518525`", "4.0758091164658525`", "2.0526335104779463`", "8.325855219285454`", "5.948861440263767`", "6.252551853393347`", "10.52762130841218`", "10.31964754757287`", "16.304213329056427`", "14.329199984523651`", "12.048538850919618`", "14.330026587048389`", "16.30435963446825`", "14.176387079837466`", "12.216369884767051`", "10.494431213312192`", "13.194696387113668`", "14.602401415122893`", "14.59932249469711`", "13.194752814697592`", "11.075944389120743`", "12.214230427283741`", "14.17413205919408`", "10.32252512499087`", "10.528243551890235`", "8.77883763559145`", "5.950317834695207`", "8.328102141914442`", "4.6990866347861395`", "8.147842304248622`", "9.45240142502203`", "0.`", "9.03209173145529`", "4.658126215531298`", "12.454953781130554`", "12.15621993165306`", "18.115311764525966`", "14.864925286535025`", "14.866169493584914`", "18.114874143546604`", "15.710086726242585`", "12.460047585179476`", "14.114804962650554`", "16.38888395663334`", "16.38647740806418`", "14.11382584050576`", "12.457032688858995`", "15.705801460749163`", "12.157221011875558`", "12.45592827201482`", "4.662556647557722`", "9.034466767549727`"}, {"10.94407041909455`", "12.848102540759665`", "8.979619377416894`", "10.164422976637564`", "12.845447409946125`", "7.323572516071637`", "11.746008715301212`", "15.293548510913988`", "10.133151650273094`", "12.228964726695267`", "13.122687591033943`", "12.171108810958593`", "13.93223626339997`", "13.97663587517603`", "10.130465973696408`", "10.10070705957652`", "2.056789794593869`", "4.081803179054145`", "6.406101395283323`", "6.46011046600091`", "4.071804079979258`", "15.730941667284554`", "15.066605830427259`", "13.126807544864514`", "12.598542599922524`", "14.622519235763416`", "19.78098939873557`", "17.671241263067145`", "15.291585626539007`", "17.672265464868424`", "19.781843264268893`", "14.611286632001272`", "12.591030259951774`", "11.741168250754468`", "15.059001396569856`", "15.720203612598263`", "13.942007588427845`", "13.982445144140387`", "12.233358086895098`", "10.10764441702943`", "12.180010886066043`", "12.764956090639371`", "15.644483119046761`", "15.702351711491108`", "9.03209173145529`", "0.`", "4.7006396703642`", "8.149630255305935`", "4.689772088458205`", "17.471560917338536`", "16.393650686167863`", "12.163759199013118`", "15.66278241133599`", "21.635243054444523`", "18.113161899143503`", "18.115041209559966`", "21.635492613442985`", "15.650519129612533`", "12.156352268142205`", "16.386143875781034`", "17.458570235166707`", "15.6554811367217`", "15.709142476907763`", "9.036706825252034`", "12.774546712192825`"}, {"8.149508660773233`", "9.891983694121073`", "5.4428100447191845`", "8.679899173202086`", "9.890866348538943`", "6.484502727702285`", "10.498131704606447`", "12.048855826948296`", "6.254007757867389`", "8.776786055732083`", "11.075457059661474`", "8.322638270589742`", "10.316352935157811`", "10.525757749867857`", "6.252024971714087`", "5.945818456963587`", "4.097050024025264`", "2.0553421755691823`", "4.0773179826996815`", "7.401012402173122`", "6.456912996094769`", "14.606776430166919`", "13.199086057106399`", "11.077918958247427`", "12.21974793576282`", "14.180609224869295`", "16.302835190300637`", "14.328400499638443`", "12.04762047730836`", "14.328079372282428`", "16.303124977082735`", "14.17289084494016`", "12.214760905016707`", "10.494865221880499`", "13.194344555008277`", "14.600011633491468`", "10.323024303187681`", "10.529270876964443`", "8.77949617120916`", "5.951426172156413`", "8.328499616214843`", "9.02885865477577`", "12.151647489421666`", "12.453430681798416`", "4.658126215531298`", "4.7006396703642`", "0.`", "9.454734708855366`", "8.151651087993042`", "16.394547996505043`", "14.11861732584142`", "12.461349653781356`", "15.713288318290255`", "18.114839941641772`", "14.865774707241359`", "14.865252232773093`", "18.1139766917782`", "15.70576872000338`", "12.456405025158483`", "14.114434447542955`", "16.386112603376322`", "12.158224653042383`", "12.457320638170007`", "4.662647020704219`", "9.034910633968583`"}, {"8.150389358533722`", "9.894461981891943`", "8.678482791100333`", "5.4432958567099154`", "9.890920503900892`", "4.076563400399059`", "6.2566845497801395`", "12.050193584355666`", "10.496841426758067`", "11.073765507007494`", "8.77780071811556`", "14.168873569192966`", "14.595338916261932`", "13.19234028626019`", "10.494536016711393`", "12.211815431865292`", "6.455945923776067`", "7.399483693878522`", "6.484515668959758`", "2.053819643027055`", "4.096257232163004`", "10.32874237464725`", "10.534032944081462`", "8.782339021990701`", "5.957165881907018`", "8.335858468315514`", "16.30072482644507`", "14.326395111531681`", "12.047829736901948`", "14.328605733259232`", "16.302059114614664`", "8.32514621604986`", "5.948375195832162`", "6.251326677981761`", "10.527134036752717`", "10.318237009807492`", "14.603007021960472`", "13.196860218924112`", "11.07820632945768`", "12.216652106733788`", "14.17539848203719`", "15.7018507060402`", "16.381324497255957`", "14.11231831501117`", "12.454953781130554`", "8.149630255305935`", "9.454734708855366`", "0.`", "4.699869675037514`", "12.165520516798951`", "12.462052717124909`", "4.668371806253466`", "9.042641992559204`", "18.11228259958035`", "14.862442566655062`", "14.866787174456881`", "18.113816614434235`", "9.031325483053866`", "4.658842174239868`", "12.454941595928128`", "12.153992320466731`", "16.389926198021048`", "14.117781886385657`", "12.458002860842695`", "15.708371623684148`"}, {"10.945198842896593`", "12.849921928046541`", "10.164358333533729`", "8.980981707081341`", "12.846058010756646`", "6.405865039743393`", "10.136049584954028`", "15.294813650881688`", "11.745391700091263`", "13.121624232993527`", "12.230737238043163`", "14.607080062786247`", "15.715899292578372`", "15.05748498178125`", "11.742267059366817`", "12.588522739209079`", "4.073001883757683`", "6.460420287095986`", "7.325552875153862`", "4.082709860526597`", "2.0575917553811913`", "13.949119016492856`", "13.98774780708021`", "12.236129693256075`", "10.113356973437927`", "12.18873287451834`", "19.780681149639207`", "17.67095158212333`", "15.292277428423072`", "17.673221514848134`", "19.782062140355055`", "12.175380067648845`", "10.103920723154621`", "10.13011946251809`", "13.97855080971961`", "13.935912796019192`", "15.726588061242834`", "15.064224856948883`", "13.127109501509908`", "12.595502592646483`", "14.616561739150592`", "15.646360079629423`", "17.453314723787535`", "16.383916957027736`", "12.15621993165306`", "4.689772088458205`", "8.151651087993042`", "4.699869675037514`", "0.`", "15.664512649908266`", "15.714361392607433`", "9.042167504203892`", "12.784224272093573`", "21.634681453644`", "18.11222473386321`", "18.116477913677087`", "21.63608967826689`", "12.769060027890161`", "9.032754930620833`", "15.70492039257993`", "15.649121416897477`", "17.46565895101976`", "16.391941206193657`", "12.160627826920638`", "15.656312755785676`"}, {"10.943355978747666`", "8.981543518410408`", "12.849187006081022`", "10.165235371901819`", "12.845025546086253`", "11.746663697953297`", "7.3240149987294`", "10.12783582307651`", "12.234580081934698`", "15.291541373505364`", "13.12152136230852`", "19.781736848999902`", "19.78010345171925`", "17.670297938577907`", "15.29369059192094`", "17.6733131466382`", "15.731383975809694`", "15.066872111034488`", "13.127697480938489`", "12.598754188189993`", "14.622871626613115`", "2.056360044090271`", "4.080692405662797`", "6.404778193709889`", "6.459523672216507`", "4.0725406920946705`", "13.929062148040632`", "13.972728293370663`", "12.227289503107647`", "10.099337720862977`", "12.169217574040156`", "14.609799273577229`", "12.59008707323173`", "11.741429352566119`", "15.05788292353098`", "15.717549163752926`", "12.181104261139572`", "10.107036557111611`", "10.133048923902512`", "13.98501501763186`", "13.94335361454882`", "21.636125328333588`", "21.63383733320279`", "18.11220482091609`", "18.115311764525966`", "17.471560917338536`", "16.394547996505043`", "12.165520516798951`", "15.664512649908266`", "0.`", "4.699830925022308`", "8.149416422989688`", "4.688821337964894`", "15.642955661349827`", "15.698557385561735`", "9.029132142903977`", "12.763070312510697`", "15.65018337506513`", "12.157363764839317`", "16.382950186538338`", "17.455453082710974`", "12.776069821758385`", "9.035647135342106`", "15.710307323258961`", "15.658156256238733`"}, {"8.148759335505629`", "5.444525774253698`", "9.893484781902062`", "8.680393669611686`", "9.890854073282343`", "10.497700042167649`", "6.4851629742252594`", "6.250036414375356`", "8.780261621195523`", "12.047921916674541`", "11.07469418398844`", "16.3031920018635`", "16.302112124629087`", "14.32726163015608`", "12.048764247072906`", "14.32898865370421`", "14.60599213892868`", "13.198321470647693`", "11.077839982239935`", "12.21898577847009`", "14.179876030942797`", "4.097175531704656`", "2.055001615562912`", "4.076448208108558`", "7.4001901816565265`", "6.456774456733521`", "10.31462863696753`", "10.523598988245801`", "8.775739943757356`", "5.94560914959974`", "8.321883937325286`", "14.171806882340384`", "12.213923005697094`", "10.495122454081462`", "13.193821119730265`", "14.598100309287908`", "8.329779809021382`", "5.951442972652041`", "6.254203032862865`", "10.53105192411`", "10.323808133751974`", "18.1148665540805`", "18.11390020179525`", "14.864737907785932`", "14.864925286535025`", "16.393650686167863`", "14.11861732584142`", "12.462052717124909`", "15.714361392607433`", "4.699830925022308`", "0.`", "9.453786846339865`", "8.149112534830232`", "12.151560798398481`", "12.451496719500682`", "4.656236138448762`", "9.027976633729063`", "15.70559682996824`", "12.45692561989644`", "14.112113731543982`", "16.383916194183197`", "9.036505092632815`", "4.662193605571457`", "12.45763595581338`", "12.160401861289948`"}, {"8.149983416887116`", "8.679761556669632`", "9.893265507704134`", "5.443589422276986`", "9.891260412284904`", "6.256933674640805`", "4.07514013116687`", "10.493715766044588`", "11.078074007465213`", "12.04817073925963`", "8.778333429936447`", "16.301570078148888`", "16.30084629916117`", "14.327940426705958`", "12.050305156215433`", "14.32912285411996`", "10.327414509512845`", "10.532811650092066`", "8.781804519990752`", "5.955721954633333`", "8.334834562597946`", "6.455427898383983`", "7.3988690815112355`", "6.483591818564202`", "2.053686628546821`", "4.095358345733634`", "14.595222822339181`", "13.19061320413783`", "11.073758251411979`", "12.211124426366393`", "14.169427895988072`", "8.32620369390511`", "5.949295724990424`", "6.252377373374995`", "10.528097534033149`", "10.318858729129031`", "14.174609594762057`", "12.214099594981752`", "10.495487195812391`", "13.197691586957353`", "14.601822072982833`", "18.113435833638743`", "18.111586522872578`", "14.864635689280293`", "14.866169493584914`", "12.163759199013118`", "12.461349653781356`", "4.668371806253466`", "9.042167504203892`", "8.149416422989688`", "9.453786846339865`", "0.`", "4.698763654414768`", "16.382648188481653`", "14.110421534154979`", "12.454403714879767`", "15.702459847428978`", "9.033043520715838`", "4.660916223654017`", "12.455182287306988`", "12.154620617194565`", "15.707043285037372`", "12.456321171824`", "14.117430673416713`", "16.389515933006738`"}, {"10.942810368775806`", "10.164332511309402`", "12.84814923413023`", "8.979960575698058`", "12.844147580037532`", "10.135345658049907`", "6.403592459849467`", "11.738555087964034`", "13.126089893902947`", "15.2905979010508`", "12.228556637499597`", "19.780049291674217`", "19.778533472390677`", "17.669516444610775`", "15.29328897909346`", "17.672376196754524`", "13.947951610381429`", "13.98621418139562`", "12.235135069353078`", "10.112080811054023`", "12.187746541985527`", "4.070462051106771`", "6.457645463193993`", "7.322306599850936`", "4.080303847968445`", "2.0553248014247436`", "15.712322897834568`", "15.052477202554321`", "13.1188682174427`", "12.58570545492268`", "14.604708040034112`", "12.173596709438275`", "10.102300498533996`", "10.129108414040969`", "13.976695533223209`", "13.9330953867353`", "14.615036679178516`", "12.592059729084621`", "11.742824179610492`", "15.064542025762796`", "15.725229696564844`", "21.634515405177776`", "21.631815205624193`", "18.111109575107655`", "18.114874143546604`", "15.66278241133599`", "15.713288318290255`", "9.042641992559204`", "12.784224272093573`", "4.688821337964894`", "8.149112534830232`", "4.698763654414768`", "0.`", "17.451422880173478`", "16.378869200076696`", "12.15269963404586`", "15.644224159097213`", "12.76859914366606`", "9.033155791631486`", "15.701472041744859`", "15.64611404593905`", "15.654842110326335`", "12.157463044718863`", "16.39099135754164`", "17.465402458558366`"}, {"10.943725848983895`", "10.164936944948405`", "12.850360443422254`", "12.847922992051544`", "8.982533660120305`", "15.293381794622894`", "13.12212074960238`", "7.324555937076794`", "13.12734929366353`", "10.135254580852054`", "10.130793086293085`", "13.946895100430098`", "12.185995469594285`", "10.110194521843466`", "12.23456884474824`", "13.986229372952407`", "19.781424820606507`", "17.672987331334063`", "15.29327917213669`", "17.671072931432914`", "19.78094995395084`", "14.606424751164775`", "12.587445462369654`", "11.741272874658634`", "15.055926314852933`", "15.714737587570307`", "2.0578850352609765`", "4.082504748575914`", "6.4068251798833`", "6.4594186352032645`", "4.072166702713946`", "13.935798511621039`", "13.978475193238621`", "12.231750319995921`", "10.104437415543755`", "12.176387784177672`", "14.617951428145016`", "12.594484888069225`", "11.745668821304083`", "15.064286134104897`", "15.726803885550384`", "15.661416118482625`", "12.78233672704041`", "9.040886675985995`", "15.710086726242585`", "21.635243054444523`", "18.114839941641772`", "18.11228259958035`", "21.634681453644`", "15.642955661349827`", "12.151560798398481`", "16.382648188481653`", "17.451422880173478`", "0.`", "4.69960487689896`", "8.150131074202404`", "4.68948996755606`", "15.6498521768931`", "15.70460592453908`", "9.032979873555869`", "12.768888177070767`", "15.65667016050039`", "12.159552874268513`", "16.390992555779885`", "17.466276194042848`"}, {"8.14941313658859`", "8.678940543348299`", "9.895235913542692`", "9.892573904898132`", "5.445331793487158`", "12.049009644007569`", "11.074138921905096`", "6.484540174674426`", "11.079489819119699`", "6.257117729592608`", "6.251669694179355`", "10.328379350752215`", "8.335300690922264`", "5.955868251762577`", "8.781970424435476`", "10.534411592739229`", "16.301866787577946`", "14.32905245201587`", "12.049163607286397`", "14.326642373160624`", "16.301258138603135`", "14.168065541392938`", "12.210650086797427`", "10.493676972265929`", "13.1905832895164`", "14.593839043798123`", "4.096352689115211`", "2.0542768689363955`", "4.076955818142966`", "7.398430834367748`", "6.455466896937272`", "10.317463312325016`", "10.52623728262097`", "8.778216679520055`", "5.94815397147577`", "8.325616103647375`", "14.1777990089512`", "12.216260998837011`", "10.497824542375652`", "13.198307266127747`", "14.60425165895956`", "12.16504571998622`", "9.042909535356804`", "4.668446386091394`", "12.460047585179476`", "18.113161899143503`", "14.865774707241359`", "14.862442566655062`", "18.11222473386321`", "15.698557385561735`", "12.451496719500682`", "14.110421534154979`", "16.378869200076696`", "4.69960487689896`", "0.`", "9.453834628892627`", "8.1495040598634`", "12.153737584412633`", "12.453965450806173`", "4.658687723505601`", "9.030103621244995`", "15.709414460177731`", "12.457817689811346`", "14.118491115179118`", "16.39163959163958`"}, {"8.148965297270246`", "5.444520527195705`", "9.89344507829239`", "9.893513837624537`", "8.680215950351284`", "12.049616001957393`", "8.778797772059864`", "4.076248913378637`", "8.779338354943981`", "10.496430463944918`", "10.49531860641051`", "14.60406790439533`", "14.17721428005734`", "12.216339046031685`", "11.076604176149912`", "13.19686901316436`", "16.303628751366762`", "14.32870604370443`", "12.04841140612662`", "14.329517971723064`", "16.304091005335405`", "8.324765310976249`", "5.947818066932466`", "6.252800857360089`", "10.526962561966323`", "10.31841022287916`", "6.455139965603732`", "7.3996593569763505`", "6.484953729058812`", "2.0555046167139324`", "4.096342228187882`", "14.599794072157735`", "13.195153348885205`", "11.07744412666553`", "12.215762888140533`", "14.174084443317366`", "8.328837475893538`", "5.950740911523435`", "6.254188187609514`", "10.529120973113947`", "10.322253559146203`", "16.391401694555157`", "15.711318211232777`", "12.460276284529831`", "14.114804962650554`", "18.115041209559966`", "14.865252232773093`", "14.866787174456881`", "18.116477913677087`", "9.029132142903977`", "4.656236138448762`", "12.454403714879767`", "12.15269963404586`", "8.150131074202404`", "9.453834628892627`", "0.`", "4.6995152144636405`", "16.38774958452394`", "14.115111588487952`", "12.456775263133068`", "15.705574093050226`", "9.034930593611314`", "4.6615700877533595`", "12.455868354063176`", "12.158435386602454`"}, {"10.94306767686791`", "8.980910732661556`", "12.849054301567307`", "12.847959680226834`", "10.16576738974734`", "15.293223482512929`", "12.230302054166179`", "6.405134456456376`", "12.233211258304792`", "11.74478985481743`", "11.742213991676596`", "15.728093206630193`", "14.619057881321085`", "12.595010549343172`", "13.125197944342357`", "15.064340536632209`", "19.78164144483271`", "17.6722742547424`", "15.292449761035886`", "17.671896791389393`", "19.781710493306235`", "12.171719648060934`", "10.10090821969932`", "10.1302814394628`", "13.976447190553921`", "13.932658142636148`", "4.071484401475232`", "6.459774372079031`", "7.325019566722677`", "4.081994329334358`", "2.056900907385917`", "15.720546276330255`", "15.05986844354588`", "13.124624545338413`", "12.592344874313188`", "14.612898224317451`", "12.180574956142326`", "10.106641720056142`", "10.133290496611219`", "13.981956831379755`", "13.941473803336454`", "17.467712595016113`", "15.660479195635737`", "12.162624334934234`", "16.38888395663334`", "21.635492613442985`", "18.1139766917782`", "18.113816614434235`", "21.63608967826689`", "12.763070312510697`", "9.027976633729063`", "15.702459847428978`", "15.644224159097213`", "4.68948996755606`", "8.1495040598634`", "4.6995152144636405`", "0.`", "17.46034841045911`", "16.38674152681978`", "12.157131129519886`", "15.650962684209741`", "12.774492342014515`", "9.03536238300824`", "15.707428635301284`", "15.655482163157535`"}, {"10.943589453651258`", "12.84748494938099`", "12.846520007652195`", "8.980033545908752`", "10.16375544652938`", "10.131428951679842`", "10.13059569202438`", "13.124445922690354`", "15.293261309449274`", "11.74082471890827`", "7.323769503388305`", "15.719027686521128`", "14.610063614299234`", "12.590687226678678`", "13.123811949111586`", "15.059719532697148`", "13.937033040993422`", "13.979274765727688`", "12.231057813107965`", "10.102665814011088`", "12.175911504803695`", "13.937315394113915`", "13.979616294413649`", "12.232091887791352`", "10.10361801113251`", "12.175128858734457`", "14.61066193790846`", "12.588924832742833`", "11.741399547411186`", "15.059217421968144`", "15.720317077485157`", "2.0573105839419314`", "4.0812572360556025`", "6.404294503257603`", "6.4589011647718175`", "4.070355020606235`", "19.781029926590364`", "17.671041103842825`", "15.293135686300088`", "17.671988025909766`", "19.780321173603955`", "17.458671686431654`", "15.648549221121359`", "12.156448618775189`", "16.38647740806418`", "15.650519129612533`", "15.70576872000338`", "9.031325483053866`", "12.769060027890161`", "15.65018337506513`", "15.70559682996824`", "9.033043520715838`", "12.76859914366606`", "15.6498521768931`", "12.153737584412633`", "16.38774958452394`", "17.46034841045911`", "0.`", "4.699857898105902`", "8.149244432885382`", "4.6883613141819795`", "21.63398060821474`", "18.113393546072352`", "18.113563090032017`", "21.634101846524562`"}, {"8.149672539105682`", "9.892881450320166`", "9.891442365876335`", "5.442792002250417`", "8.678593271044273`", "6.253222028425491`", "6.252733181804557`", "11.076738933582973`", "12.049205839410769`", "10.493656043983679`", "6.484548985695265`", "14.597519695619614`", "14.170945599576585`", "12.213702996435245`", "11.076250188288816`", "13.193840471507578`", "10.320402050755835`", "10.527929297243288`", "8.778368414079422`", "5.948279142848166`", "8.326877870473787`", "10.321595025547257`", "10.528985142103199`", "8.77947807129184`", "5.950022263176266`", "8.327250316754286`", "14.171605299492583`", "12.212215162010262`", "10.494097060421181`", "13.193758598409584`", "14.598967823189012`", "4.096099875892826`", "2.0542125505303637`", "4.075291724884719`", "7.400132999191457`", "6.455019644066579`", "16.302108072216708`", "14.327458779814966`", "12.048981192445199`", "14.328561372142751`", "16.301517504486384`", "16.385075676884007`", "15.702980958967942`", "12.45621610351582`", "14.11382584050576`", "12.156352268142205`", "12.456405025158483`", "4.658842174239868`", "9.032754930620833`", "12.157363764839317`", "12.45692561989644`", "4.660916223654017`", "9.033155791631486`", "15.70460592453908`", "12.453965450806173`", "14.115111588487952`", "16.38674152681978`", "4.699857898105902`", "0.`", "9.4541936513373`", "8.149020292562987`", "18.11279313083549`", "14.864784032004858`", "14.864806613601521`", "18.112923546147325`"}, {"8.149865990168841`", "9.892327536791258`", "9.89358169413474`", "8.680479031157322`", "5.444641536184234`", "10.495873699336245`", "10.49475633862641`", "8.779613107977939`", "12.050459843778171`", "6.2537904929947095`", "4.076703115957287`", "10.322054291000937`", "8.328431013590855`", "5.951306467252247`", "8.779867719693886`", "10.530464266110634`", "14.59933704827496`", "13.194828998318952`", "11.0763011271296`", "12.213203027097498`", "14.17272404809624`", "14.59766634953493`", "13.193376427013241`", "11.076490050151714`", "12.21282818285956`", "14.170229797988517`", "8.32708114201125`", "5.948752488948118`", "6.25314293609053`", "10.527488002082329`", "10.32054581706152`", "6.455360410969188`", "7.400072197098325`", "6.4853292642533225`", "2.054149968526636`", "4.0972295685492774`", "16.303788641689522`", "14.328411963889073`", "12.050320565793493`", "14.329339540903252`", "16.303092559769645`", "12.158733050710964`", "9.034569732272441`", "4.662285900570564`", "12.457032688858995`", "16.386143875781034`", "14.114434447542955`", "12.454941595928128`", "15.70492039257993`", "16.382950186538338`", "14.112113731543982`", "12.455182287306988`", "15.701472041744859`", "9.032979873555869`", "4.658687723505601`", "12.456775263133068`", "12.157131129519886`", "8.149244432885382`", "9.4541936513373`", "0.`", "4.698798233374512`", "18.113850522561147`", "14.865100531573736`", "14.866116167414095`", "18.114362389567955`"}, {"10.942723075182391`", "12.846152941077904`", "12.846585052812216`", "10.163661988815633`", "8.979707064226911`", "11.74185513223329`", "11.74036726913297`", "12.231183208809387`", "15.292871594121548`", "10.130182914078118`", "6.4043226614553594`", "13.93715064611892`", "12.176146567426546`", "10.104611996466637`", "12.23141501959653`", "13.98027301760128`", "15.71973827305903`", "15.0592623577072`", "13.12284501240651`", "12.588795483419974`", "14.610646417977325`", "15.717963109621499`", "15.057798972451925`", "13.122958757357033`", "12.588449694384437`", "14.607932131731062`", "12.175117713326872`", "10.10191289974552`", "10.129957659241088`", "13.97781519216077`", "13.93632021483496`", "4.071269514300426`", "6.45858961209855`", "7.322905694183403`", "4.080003653063115`", "2.0561169131218544`", "19.780667429509197`", "17.670308346138672`", "15.292607030363719`", "17.671481228861115`", "19.780046042066797`", "15.65166769111081`", "12.76982081402703`", "9.033639845147686`", "15.705801460749163`", "17.458570235166707`", "16.386112603376322`", "12.153992320466731`", "15.649121416897477`", "17.455453082710974`", "16.383916194183197`", "12.154620617194565`", "15.64611404593905`", "12.768888177070767`", "9.030103621244995`", "15.705574093050226`", "15.650962684209741`", "4.6883613141819795`", "8.149020292562987`", "4.698798233374512`", "0.`", "21.633328600206216`", "18.112321439498047`", "18.113406360496835`", "21.63382057920798`"}, {"10.94297875370286`", "8.980411907820026`", "10.164871953808554`", "12.84783418955721`", "12.84756624967288`", "13.124160366278694`", "12.232972037771265`", "10.131646595991079`", "7.322777930517389`", "13.12516488785604`", "15.29271315997608`", "14.616636619845695`", "15.724986372947798`", "15.061956834208182`", "11.742562652656787`", "12.592768255565828`", "14.615530838514468`", "12.592412083138335`", "11.742080789197065`", "15.062581184974459`", "15.724746224855702`", "12.181264469942725`", "10.1072416543002`", "10.131515305043001`", "13.981963471730415`", "13.942082890437879`", "13.941457154240544`", "13.982582032104931`", "12.232420893222153`", "10.106979319944084`", "12.181049294230318`", "19.779690387361676`", "17.671604494233694`", "15.293272517412444`", "17.672664844039087`", "19.78084353387609`", "2.0556505421971445`", "4.081944902316749`", "6.404405462567105`", "6.458654301290043`", "4.071800133484075`", "15.656196888306871`", "17.46524665978398`", "16.38997129822191`", "12.157221011875558`", "15.6554811367217`", "12.158224653042383`", "16.389926198021048`", "17.46565895101976`", "12.776069821758385`", "9.036505092632815`", "15.707043285037372`", "15.654842110326335`", "15.65667016050039`", "15.709414460177731`", "9.034930593611314`", "12.774492342014515`", "21.63398060821474`", "18.11279313083549`", "18.113850522561147`", "21.633328600206216`", "0.`", "4.699352981895999`", "8.147484009517683`", "4.689190314488856`"}, {"8.1489276110386`", "5.444257511934133`", "8.679812160311892`", "9.89336982146773`", "9.892841744289102`", "11.07693332957536`", "8.780021662652825`", "6.253371644402479`", "6.483546655289365`", "11.077201867681358`", "12.04899156541843`", "14.17657751144862`", "14.602847461117966`", "13.19618101528052`", "10.495061719269248`", "12.215405223947725`", "14.176092611106355`", "12.215133935908618`", "10.49468726522647`", "13.19708115552249`", "14.603254490653548`", "8.329669847069336`", "5.951610075`", "6.253435315764852`", "10.529451131822837`", "10.322847708255008`", "10.322233667099681`", "10.529717353956208`", "8.77946851289348`", "5.9516997743251805`", "8.329692139668158`", "16.301373473688272`", "14.328421434350064`", "12.049764030459334`", "14.329402216227889`", "16.302272139350272`", "4.0955458116579315`", "2.0542099429849405`", "4.07591249928938`", "7.399201128140981`", "6.455682905934061`", "15.70943435011926`", "16.39103961379456`", "14.117611908999837`", "12.45592827201482`", "15.709142476907763`", "12.457320638170007`", "14.117781886385657`", "16.391941206193657`", "9.035647135342106`", "4.662193605571457`", "12.456321171824`", "12.157463044718863`", "12.159552874268513`", "12.457817689811346`", "4.6615700877533595`", "9.03536238300824`", "18.113393546072352`", "14.864784032004858`", "14.865100531573736`", "18.112321439498047`", "4.699352981895999`", "0.`", "9.452101459760552`", "8.149668814634722`"}, {"8.149400429158545`", "8.677785932671869`", "5.444506425702291`", "9.893331200237114`", "9.892507124405732`", "8.779522202485499`", "11.078105758440659`", "10.49467348451839`", "4.075535752637436`", "8.780057860208943`", "12.049259777768397`", "8.330090824149332`", "10.322619047056548`", "10.529582208911842`", "6.254496504868443`", "5.951365269962185`", "8.3300518139294`", "5.951945465554109`", "6.254319224301689`", "10.53051869282553`", "10.32336122617759`", "14.177336189772637`", "12.216228990573672`", "10.494980228590888`", "13.198048200058148`", "14.60451976775883`", "14.60272347930564`", "13.197087649622512`", "11.076180550000851`", "12.214256739756218`", "14.175603663629385`", "16.30201902841492`", "14.329051704381051`", "12.049684607985693`", "14.329422900270883`", "16.303236137312137`", "6.454936662389369`", "7.397994974732337`", "6.483061956436597`", "2.0529979452324665`", "4.094093816500683`", "9.036519911538708`", "12.158791349142763`", "12.457459378916372`", "4.662556647557722`", "9.036706825252034`", "4.662647020704219`", "12.458002860842695`", "12.160627826920638`", "15.710307323258961`", "12.45763595581338`", "14.117430673416713`", "16.39099135754164`", "16.390992555779885`", "14.118491115179118`", "12.455868354063176`", "15.707428635301284`", "18.113563090032017`", "14.864806613601521`", "14.866116167414095`", "18.113406360496835`", "8.147484009517683`", "9.452101459760552`", "0.`", "4.697794580068367`"}, {"10.943483729783708`", "10.164142970661626`", "8.981238562198309`", "12.848076414633049`", "12.847678957431674`", "12.231899063725388`", "13.12602582573235`", "11.742976379534316`", "6.404561304180301`", "12.233020057399449`", "15.292980640693223`", "12.180883805691328`", "13.941092534054375`", "13.981469778599804`", "10.132050679467705`", "10.105976556981046`", "12.179864147338884`", "10.105893872296521`", "10.131651177926328`", "13.982108409367871`", "13.940926421871964`", "14.61796352031465`", "12.594769978392266`", "11.743000250871878`", "15.063690538031603`", "15.726990870338575`", "15.725769922848961`", "15.063719933176303`", "13.124864654968766`", "12.593566204040096`", "14.616910609070372`", "19.78002970375475`", "17.671977417268806`", "15.293411799019475`", "17.6727793115377`", "19.781307210710114`", "4.072661694200462`", "6.459957070039594`", "7.323603722336385`", "4.081061676208039`", "2.0569851060510222`", "12.775136522906369`", "15.655564733997716`", "15.708241363711796`", "9.034466767549727`", "12.774546712192825`", "9.034910633968583`", "15.708371623684148`", "15.656312755785676`", "15.658156256238733`", "12.160401861289948`", "16.389515933006738`", "17.465402458558366`", "17.466276194042848`", "16.39163959163958`", "12.158435386602454`", "15.655482163157535`", "21.634101846524562`", "18.112923546147325`", "18.114362389567955`", "21.63382057920798`", "4.689190314488856`", "8.149668814634722`", "4.697794580068367`", "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.5728722975517435`*^9, {3.5728738877405367`*^9, 3.5728739135117817`*^9}, 3.572925732012285*^9, 3.5729257659267445`*^9, 3.580058172417507*^9}] }, Open ]], 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[{"j", "\[Equal]", "10"}], " ", "&&", " ", RowBox[{"i", "\[Equal]", " ", "17"}]}], ")"}]}], ")"}], ",", RowBox[{"dc", "[", RowBox[{"[", RowBox[{"i", ",", "j"}], "]"}], "]"}], ",", "0"}], "]"}], ",", RowBox[{"{", RowBox[{"i", ",", "1", ",", "n"}], "}"}], ",", RowBox[{"{", RowBox[{"j", ",", "1", ",", "n"}], "}"}]}], "]"}]}], ";"}], "\[IndentingNewLine]", RowBox[{"MatrixForm", "[", 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}}], Cell[BoxData[ TagBox[ RowBox[{"(", "\[NoBreak]", GridBox[{ {"1", "2", "3", "4", "5", "6", "7", "8", "9", "10", "11", "12", "13", "14", "15", "16", "17", "18", "19", "20", "21", "22", "23", "24", "25", "26", "27", "28", "29", "30", "31", "32", "33", "34", "35", "36", "37", "38", "39", "40", "41", "42", "43", "44", "45", "46", "47", "48", "49", "50", "51", "52", "53", "54", "55", "56", "57", "58", "59", "60", "61", "62", "63", "64", "65"}, {"0.`", "2.9587138567075155`", "2.9601588048039935`", "2.9616452490246807`", "2.9592122775940566`", "0", "0", "0", "0", "0", "0", "0", "0", "0", "0", "0", "0", "0", "0", "0", "0", "0", "0", "0", "0", "0", "0", "0", "0", "0", "0", "0", "0", "0", "0", "0", "0", "0", "0", "0", "0", "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.9587138567075155`", "0.`", "0", "0", "0", "0", "0", "2.8618419387160845`", "0", "0", "0", "0", "0", "0", "0", "0", "0", "0", "0", "0", "0", "0", "0", "2.863390645894428`", "0", "0", "0", "0", "0", "0", "0", "0", "0", "0", "0", "0", "0", "0", "2.862027852780098`", "0", "0", "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.9601588048039935`", "0", "0.`", "0", "0", "0", "0", "0", "2.8634293060757217`", "0", "0", "0", "0", "0", "2.8629366614862772`", "0", "0", "0", "2.8600720309745697`", "0", "0", "0", "0", "0", "0", "0", "0", "0", "0", "0", "0", "0", "0", "0", "0", "0", "0", "0", "0", "0", "0", "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.9616452490246807`", "0", "0", "0.`", "0", "2.862093980374264`", "2.8626316782401777`", "0", "0", "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.8621220529475417`", "0", "0", "0", "0", "0", "0", "0", "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.9592122775940566`", "0", "0", "0", "0.`", "0", "0", "0", "0", "2.861757088015333`", "2.8614139161359544`", "0", "0", "0", "0", "0", "0", "0", "0", "0", "0", "0", "0", "0", "0", "0", "0", "0", "2.862105209436616`", "0", "0", "0", "0", "0", "0", "0", "0", "0", "0", "0", "0", "0", "0", "0", "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.862093980374264`", "0", "0.`", "0", "0", "0", "0", "0", "0", "0", "0", "0", "0", "0", "0", "2.689384366398353`", "2.61963270626414`", "0", "0", "0", "0", "0", "0", "0", "0", "0", "0", "0", "0", "0", "0", "0", "0", "0", "0", "0", "0", "0", "0", "0", "0", "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.8626316782401777`", "0", "0", "0.`", "0", "0", "0", "0", "0", "0", "0", "0", "0", "0", "0", "0", "0", "0", "0", "0", "2.6904623244264227`", "2.61937369396094`", "0", "0", "0", "0", "0", "0", "0", "0", "0", "0", "0", "0", "0", "0", "0", "0", "0", "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.8618419387160845`", "0", "0", "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.6902585809859247`", "2.6185767296864473`", "0", "0", "0", "0", "0", "0", "0", "0", "0", "0", "0", "0", "0", "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.8634293060757217`", "0", "0", "0", "0", "0", "0.`", "0", "0", "0", "0", "0", "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.6895297566306233`", "2.619580224261103`", "0", "0", "0", "0", "0", "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.861757088015333`", "0", "0", "0", "0", "0.`", "0", "0", "0", "2.6201036340757535`", "2.689458058320274`", "0", "0", "0", "0", "0", "0", "0", "0", "0", "0", "0", "0", "0", "0", "0", "0", "0", "0", "0", "0", "0", "0", "0", "0", "0", "0", "0", "0", "0", "0", "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.8614139161359544`", "0", "0", "0", "0", "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.6909414257235347`", "2.6205887852070666`", "0", "0", "0", "0", "0", "0", "0", "0", "0", "0", "0", "0", "0", "0", "0", "0", "0", "0", "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.6335761185442994`", "0", "0", "2.658553375983695`", "0", "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.0572533035670517`", "0", "0", "0", "0", "0", "0", "0", "0", "0", "0", "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.6335761185442994`", "0.`", "2.6583324105744732`", "0", "0", "0", "0", "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.056824517986182`", "0", "0", "0", "0", "0", "0", "0", "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.6201036340757535`", "0", "0", "2.6583324105744732`", "0.`", "0", "0", "0", "0", "0", "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.0539300471966446`", "0", "0", "0", "0", "0", "0", "0", "0", "0", "0", "0", "0", "0", "0", "0", "0", "0", "0", "0", "0", "0"}, {"0", "0", "2.8629366614862772`", "0", "0", "0", "0", "0", "0", "2.689458058320274`", "0", "0", "0", "0", "0.`", "2.620093412228965`", "0", "0", "0", "0", "0", "0", "0", "0", "0", "0", "0", "0", "0", "0", "0", "0", "0", "0", "0", "0", "0", "0", "0", "0", "0", "0", "0", "0", "0", "0", "0", "0", "0", "0", "0", "0", "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.658553375983695`", "0", "0", "2.620093412228965`", "0.`", "0", "0", "0", "0", "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.0526335104779463`", "0", "0", "0", "0", "0", "0", "0", "0", "0", "0", "0", "0", "0", "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.6583895006616953`", "0", "0", "2.63390898030229`", "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.056789794593869`", "0", "0", "0", "0", "0", "0", "0", "0", "0", "0", "0", "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.6583895006616953`", "0.`", "2.6202971601836555`", "0", "0", "0", "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.0553421755691823`", "0", "0", "0", "0", "0", "0", "0", "0", "0", "0", "0", "0", "0", "0", "0", "0", "0", "0"}, {"0", "0", "2.8600720309745697`", "0", "0", "2.689384366398353`", "0", "0", "0", "0", "0", "0", "0", "0", "0", "0", "0", "2.6202971601836555`", "0.`", "0", "0", "0", "0", "0", "0", "0", "0", "0", "0", "0", "0", "0", "0", "0", "0", "0", "0", "0", "0", "0", "0", "0", "0", "0", "0", "0", "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.61963270626414`", "0", "0", "0", "0", "0", "0", "0", "0", "0", "0", "0", "0", "0", "0.`", "2.659240333490821`", "0", "0", "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.053819643027055`", "0", "0", "0", "0", "0", "0", "0", "0", "0", "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.63390898030229`", "0", "0", "2.659240333490821`", "0.`", "0", "0", "0", "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.0575917553811913`", "0", "0", "0", "0", "0", "0", "0", "0", "0", "0", "0", "0", "0", "0", "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.6583303956078184`", "0", "0", "2.6340601439517517`", "0", "0", "0", "0", "0", "0", "0", "0", "0", "0", "0", "0", "0", "0", "0", "0", "0", "0", "0", "0", "0", "0", "0", "2.056360044090271`", "0", "0", "0", "0", "0", "0", "0", "0", "0", "0", "0", "0", "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.6583303956078184`", "0.`", "2.619975517380277`", "0", "0", "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.055001615562912`", "0", "0", "0", "0", "0", "0", "0", "0", "0", "0", "0", "0", "0", "0"}, {"0", "2.863390645894428`", "0", "0", "0", "0", "2.6904623244264227`", "0", "0", "0", "0", "0", "0", "0", "0", "0", "0", "0", "0", "0", "0", "0", "2.619975517380277`", "0.`", "0", "0", "0", "0", "0", "0", "0", "0", "0", "0", "0", "0", "0", "0", "0", "0", "0", "0", "0", "0", "0", "0", "0", "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.61937369396094`", "0", "0", "0", "0", "0", "0", "0", "0", "0", "0", "0", "0", "0", "0", "0", "0", "0", "0.`", "2.6580388810040687`", "0", "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.053686628546821`", "0", "0", "0", "0", "0", "0", "0", "0", "0", "0", "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.6340601439517517`", "0", "0", "2.6580388810040687`", "0.`", "0", "0", "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.0553248014247436`", "0", "0", "0", "0", "0", "0", "0", "0", "0", "0", "0", "0"}, {"0", "0", "0", "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.658967049074836`", "0", "0", "2.6328872119062403`", "0", "0", "0", "0", "0", "0", "0", "0", "0", "0", "0", "0", "0", "0", "0", "0", "0", "0", "0", "0", "0", "0", "2.0578850352609765`", "0", "0", "0", "0", "0", "0", "0", "0", "0", "0", "0"}, {"0", "0", "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.658967049074836`", "0.`", "2.6202242488563647`", "0", "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.0542768689363955`", "0", "0", "0", "0", "0", "0", "0", "0", "0", "0"}, {"0", "0", "0", "0", "2.862105209436616`", "0", "0", "2.6902585809859247`", "0", "0", "0", "0", "0", "0", "0", "0", "0", "0", "0", "0", "0", "0", "0", "0", "0", "0", "0", "2.6202242488563647`", "0.`", "0", "0", "0", "0", "0", "0", "0", "0", "0", "0", "0", "0", "0", "0", "0", "0", "0", "0", "0", "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.6185767296864473`", "0", "0", "0", "0", "0", "0", "0", "0", "0", "0", "0", "0", "0", "0", "0", "0", "0", "0", "0", "0", "0", "0.`", "2.6584533057789246`", "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.0555046167139324`", "0", "0", "0", "0", "0", "0", "0", "0", "0"}, {"0", "0", "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.6328872119062403`", "0", "0", "2.6584533057789246`", "0.`", "0", "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.056900907385917`", "0", "0", "0", "0", "0", "0", "0", "0"}, {"0", "0", "0", "0", "0", "0", "0", "0", "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.657799734555131`", "0", "0", "2.6323575262686347`", "0", "0", "0", "0", "0", "0", "0", "0", "0", "0", "0", "0", "0", "0", "0", "0", "0", "0", "0", "0", "0", "2.0573105839419314`", "0", "0", "0", "0", "0", "0", "0"}, {"0", "0", "0", "0", "0", "0", "0", "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.657799734555131`", "0.`", "2.6190894325614478`", "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.0542125505303637`", "0", "0", "0", "0", "0", "0"}, {"0", "0", "0", "2.8621220529475417`", "0", "0", "0", "0", "0", "0", "2.6909414257235347`", "0", "0", "0", "0", "0", "0", "0", "0", "0", "0", "0", "0", "0", "0", "0", "0", "0", "0", "0", "0", "0", "2.6190894325614478`", "0.`", "0", "0", "0", "0", "0", "0", "0", "0", "0", "0", "0", "0", "0", "0", "0", "0", "0", "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.6205887852070666`", "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.6588461772298033`", "0", "0", "0", "0", "0", "0", "0", "0", "0", "0", "0", "0", "0", "0", "0", "0", "0", "0", "0", "0", "0", "0", "0", "2.054149968526636`", "0", "0", "0", "0", "0"}, {"0", "0", "0", "0", "0", "0", "0", "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.6323575262686347`", "0", "0", "2.6588461772298033`", "0.`", "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.0561169131218544`", "0", "0", "0", "0"}, {"0", "0", "0", "0", "0", "0", "0", "0", "0", "0", "0", "0", "0", "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.6589200440102436`", "0", "0", "2.634702662124977`", "0", "0", "0", "0", "0", "0", "0", "0", "0", "0", "0", "0", "0", "0", "0", "0", "0", "0", "0", "0", "2.0556505421971445`", "0", "0", "0"}, {"0", "0", "0", "0", "0", "0", "0", "0", "0", "0", "0", "0", "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.6589200440102436`", "0.`", "2.6187144602658665`", "0", "0", "0", "0", "0", "0", "0", "0", "0", "0", "0", "0", "0", "0", "0", "0", "0", "0", "0", "0", "0", "0", "0", "2.0542099429849405`", "0", "0"}, {"0", "2.862027852780098`", "0", "0", "0", "0", "0", "0", "2.6895297566306233`", "0", "0", "0", "0", "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.6187144602658665`", "0.`", "0", "0", "0", "0", "0", "0", "0", "0", "0", "0", "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.619580224261103`", "0", "0", "0", "0", "0", "0", "0", "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.6577218057830803`", "0", "0", "0", "0", "0", "0", "0", "0", "0", "0", "0", "0", "0", "0", "0", "0", "0", "0", "0", "0", "0", "0", "2.0529979452324665`", "0"}, {"0", "0", "0", "0", "0", "0", "0", "0", "0", "0", "0", "0", "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.634702662124977`", "0", "0", "2.6577218057830803`", "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.0569851060510222`"}, {"0", "0", "0", "0", "0", "0", "0", "0", "0", "0", "0", "2.0572533035670517`", "0", "0", "0", "0", "0", "0", "0", "0", "0", "0", "0", "0", "0", "0", "0", "0", "0", "0", "0", "0", "0", "0", "0", "0", "0", "0", "0", "0", "0", "0.`", "0", "0", "0", "0", "0", "0", "0", "0", "0", "0", "0", "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.056824517986182`", "0", "0", "0", "0", "0", "0", "0", "0", "0", "0", "0", "0", "0", "0", "0", "0", "0", "0", "0", "0", "0", "0", "0", "0", "0", "0", "0", "0", "0", "0.`", "0", "0", "0", "0", "0", "0", "0", "0", "0", "0", "0", "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.0539300471966446`", "0", "0", "0", "0", "0", "0", "0", "0", "0", "0", "0", "0", "0", "0", "0", "0", "0", "0", "0", "0", "0", "0", "0", "0", "0", "0", "0", "0", "0", "0.`", "0", "0", "0", "0", "0", "0", "0", "0", "0", "0", "0", "0", "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.0526335104779463`", "0", "0", "0", "0", "0", "0", "0", "0", "0", "0", "0", "0", "0", "0", "0", "0", "0", "0", "0", "0", "0", "0", "0", "0", "0", "0", "0", "0", "0.`", "0", "0", "0", "0", "0", "0", "0", "0", "0", "0", "0", "0", "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.056789794593869`", "0", "0", "0", "0", "0", "0", "0", "0", "0", "0", "0", "0", "0", "0", "0", "0", "0", "0", "0", "0", "0", "0", "0", "0", "0", "0", "0", "0", "0.`", "0", "0", "0", "0", "0", "0", "0", "0", "0", "0", "0", "0", "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.0553421755691823`", "0", "0", "0", "0", "0", "0", "0", "0", "0", "0", "0", "0", "0", "0", "0", "0", "0", "0", "0", "0", "0", "0", "0", "0", "0", "0", "0", "0", "0.`", "0", "0", "0", "0", "0", "0", "0", "0", "0", "0", "0", "0", "0", "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.053819643027055`", "0", "0", "0", "0", "0", "0", "0", "0", "0", "0", "0", "0", "0", "0", "0", "0", "0", "0", "0", "0", "0", "0", "0", "0", "0", "0", "0", "0.`", "0", "0", "0", "0", "0", "0", "0", "0", "0", "0", "0", "0", "0", "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.0575917553811913`", "0", "0", "0", "0", "0", "0", "0", "0", "0", "0", "0", "0", "0", "0", "0", "0", "0", "0", "0", "0", "0", "0", "0", "0", "0", "0", "0", "0.`", "0", "0", "0", "0", "0", "0", "0", "0", "0", "0", "0", "0", "0", "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.056360044090271`", "0", "0", "0", "0", "0", "0", "0", "0", "0", "0", "0", "0", "0", "0", "0", "0", "0", "0", "0", "0", "0", "0", "0", "0", "0", "0", "0", "0.`", "0", "0", "0", "0", "0", "0", "0", "0", "0", "0", "0", "0", "0", "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.055001615562912`", "0", "0", "0", "0", "0", "0", "0", "0", "0", "0", "0", "0", "0", "0", "0", "0", "0", "0", "0", "0", "0", "0", "0", "0", "0", "0", "0", "0.`", "0", "0", "0", "0", "0", "0", "0", "0", "0", "0", "0", "0", "0", "0"}, {"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.053686628546821`", "0", "0", "0", "0", "0", "0", "0", "0", "0", "0", "0", "0", "0", "0", "0", "0", "0", "0", "0", "0", "0", "0", "0", "0", "0", "0", "0.`", "0", "0", "0", "0", "0", "0", "0", "0", "0", "0", "0", "0", "0"}, {"0", "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.0553248014247436`", "0", "0", "0", "0", "0", "0", "0", "0", "0", "0", "0", "0", "0", "0", "0", "0", "0", "0", "0", "0", "0", "0", "0", "0", "0", "0", "0.`", "0", "0", "0", "0", "0", "0", "0", "0", "0", "0", "0", "0"}, {"0", "0", "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.0578850352609765`", "0", "0", "0", "0", "0", "0", "0", "0", "0", "0", "0", "0", "0", "0", "0", "0", "0", "0", "0", "0", "0", "0", "0", "0", "0", "0", "0.`", "0", "0", "0", "0", "0", "0", "0", "0", "0", "0", "0"}, {"0", "0", "0", "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.0542768689363955`", "0", "0", "0", "0", "0", "0", "0", "0", "0", "0", "0", "0", "0", "0", "0", "0", "0", "0", "0", "0", "0", "0", "0", "0", "0", "0", "0.`", "0", "0", "0", "0", "0", "0", "0", "0", "0", "0"}, {"0", "0", "0", "0", "0", "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.0555046167139324`", "0", "0", "0", "0", "0", "0", "0", "0", "0", "0", "0", "0", "0", "0", "0", "0", "0", "0", "0", "0", "0", "0", "0", "0", "0", "0.`", "0", "0", "0", "0", "0", "0", "0", "0", "0"}, {"0", "0", "0", "0", "0", "0", "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.056900907385917`", "0", "0", "0", "0", "0", "0", "0", "0", "0", "0", "0", "0", "0", "0", "0", "0", "0", "0", "0", "0", "0", "0", "0", "0", "0", "0.`", "0", "0", "0", "0", "0", "0", "0", "0"}, {"0", "0", "0", "0", "0", "0", "0", "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.0573105839419314`", "0", "0", "0", "0", "0", "0", "0", "0", "0", "0", "0", "0", "0", "0", "0", "0", "0", "0", "0", "0", "0", "0", "0", "0", "0", "0.`", "0", "0", "0", "0", "0", "0", "0"}, {"0", "0", "0", "0", "0", "0", "0", "0", "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.0542125505303637`", "0", "0", "0", "0", "0", "0", "0", "0", "0", "0", "0", "0", "0", "0", "0", "0", "0", "0", "0", "0", "0", "0", "0", "0", "0", "0.`", "0", "0", "0", "0", "0", "0"}, {"0", "0", "0", "0", "0", "0", "0", "0", "0", "0", "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.054149968526636`", "0", "0", "0", "0", "0", "0", "0", "0", "0", "0", "0", "0", "0", "0", "0", "0", "0", "0", "0", "0", "0", "0", "0", "0", "0.`", "0", "0", "0", "0", "0"}, {"0", "0", "0", "0", "0", "0", "0", "0", "0", "0", "0", "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.0561169131218544`", "0", "0", "0", "0", "0", "0", "0", "0", "0", "0", "0", "0", "0", "0", "0", "0", "0", "0", "0", "0", "0", "0", "0", "0", "0.`", "0", "0", "0", "0"}, {"0", "0", "0", "0", "0", "0", "0", "0", "0", "0", "0", "0", "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.0556505421971445`", "0", "0", "0", "0", "0", "0", "0", "0", "0", "0", "0", "0", "0", "0", "0", "0", "0", "0", "0", "0", "0", "0", "0", "0", "0.`", "0", "0", "0"}, {"0", "0", "0", "0", "0", "0", "0", "0", "0", "0", "0", "0", "0", "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.0542099429849405`", "0", "0", "0", "0", "0", "0", "0", "0", "0", "0", "0", "0", "0", "0", "0", "0", "0", "0", "0", "0", "0", "0", "0", "0", "0.`", "0", "0"}, {"0", "0", "0", "0", "0", "0", "0", "0", "0", "0", "0", "0", "0", "0", "0", "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.0529979452324665`", "0", "0", "0", "0", "0", "0", "0", "0", "0", "0", "0", "0", "0", "0", "0", "0", "0", "0", "0", "0", "0", "0", "0", "0.`", "0"}, {"0", "0", "0", "0", "0", "0", "0", "0", "0", "0", "0", "0", "0", "0", "0", "0", "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.0569851060510222`", "0", "0", "0", "0", "0", "0", "0", "0", "0", "0", "0", "0", "0", "0", "0", "0", "0", "0", "0", "0", "0", "0", "0", "0.`"} }, GridBoxAlignment->{ "Columns" -> {{Center}}, "ColumnsIndexed" -> {}, "Rows" -> {{Baseline}}, "RowsIndexed" -> {}}, GridBoxSpacings->{"Columns" -> { Offset[0.27999999999999997`], { Offset[0.7]}, Offset[0.27999999999999997`]}, "ColumnsIndexed" -> {}, "Rows" -> { Offset[0.2], { Offset[0.4]}, Offset[0.2]}, "RowsIndexed" -> {}}], "\[NoBreak]", ")"}], Function[BoxForm`e$, MatrixForm[BoxForm`e$]]]], "Output", CellChangeTimes->{ 3.5728722976297436`*^9, {3.5728738878029366`*^9, 3.572873913574182*^9}, 3.572925732074685*^9, 3.5729257660047445`*^9, 3.580058172483511*^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.5688800293771057`*^9, 3.5688801774057655`*^9}, { 3.5688802290574565`*^9, 3.568880330208034*^9}, {3.5688803807053227`*^9, 3.5688804136525807`*^9}, 3.568880491434317*^9, 3.5688805648948464`*^9, { 3.5688806280437574`*^9, 3.568880655234605*^9}, {3.568880712424306*^9, 3.568880716324312*^9}, {3.5688808087544746`*^9, 3.568880827786508*^9}, 3.5688808733385878`*^9, {3.568881358936241*^9, 3.5688813959239063`*^9}, { 3.568881446561595*^9, 3.5688815849182377`*^9}, {3.5688816223739033`*^9, 3.568881642607139*^9}, 3.568881728953291*^9, {3.568881797624612*^9, 3.568881809870633*^9}, 3.568881863612727*^9, {3.568883098916497*^9, 3.5688831014749017`*^9}, {3.56888372124679*^9, 3.568883843239004*^9}, 3.568888211750622*^9, {3.5688882521546926`*^9, 3.5688885232519693`*^9}, { 3.5688885890840845`*^9, 3.5688885895052853`*^9}, {3.568888675773437*^9, 3.5688886914514647`*^9}, {3.568888736285943*^9, 3.5688887717760057`*^9}, { 3.5688888256429005`*^9, 3.5688888541441507`*^9}, {3.568892442649892*^9, 3.5688924499507046`*^9}, {3.568892758441247*^9, 3.5688927597360487`*^9}, { 3.5688928234309607`*^9, 3.5688928379389863`*^9}, {3.5708938149488974`*^9, 3.5708938463361526`*^9}, {3.570893920483083*^9, 3.5708939282050962`*^9}, { 3.570894700000852*^9, 3.5708947833985987`*^9}, {3.572528557136052*^9, 3.57252856181606*^9}, 3.57252899467002*^9, 3.572529147612689*^9, { 3.572529371395082*^9, 3.572529383875104*^9}, {3.572531374906601*^9, 3.5725313995390444`*^9}}], Cell[BoxData["41"], "Output", CellChangeTimes->{ 3.572872297645344*^9, {3.572873887834137*^9, 3.5728739135897818`*^9}, 3.5729257320902853`*^9, 3.5729257660203447`*^9, 3.580058172501512*^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.5688800293771057`*^9, 3.5688801774057655`*^9}, { 3.5688802290574565`*^9, 3.568880330208034*^9}, {3.5688803807053227`*^9, 3.5688804136525807`*^9}, 3.568880491434317*^9, 3.5688805648948464`*^9, { 3.5688806280437574`*^9, 3.568880655234605*^9}, {3.568880712424306*^9, 3.568880716324312*^9}, {3.5688808087544746`*^9, 3.568880827786508*^9}, 3.5688808733385878`*^9, {3.568881358936241*^9, 3.5688813959239063`*^9}, { 3.568881446561595*^9, 3.5688815849182377`*^9}, {3.5688816223739033`*^9, 3.568881642607139*^9}, 3.568881728953291*^9, {3.568881797624612*^9, 3.568881809870633*^9}, 3.568881863612727*^9, {3.568883098916497*^9, 3.5688831014749017`*^9}, {3.56888372124679*^9, 3.568883843239004*^9}, 3.568888211750622*^9, {3.5688882521546926`*^9, 3.5688885232519693`*^9}, { 3.5688885890840845`*^9, 3.5688885895052853`*^9}, {3.568888675773437*^9, 3.5688886914514647`*^9}, {3.568888736285943*^9, 3.5688887717760057`*^9}, { 3.5688888256429005`*^9, 3.5688888541441507`*^9}, {3.568892442649892*^9, 3.5688924499507046`*^9}, {3.568892758441247*^9, 3.5688927597360487`*^9}, { 3.5688928234309607`*^9, 3.5688928379389863`*^9}, {3.5708938149488974`*^9, 3.5708938463361526`*^9}, {3.570893920483083*^9, 3.5708939282050962`*^9}, { 3.570894700000852*^9, 3.570894821930666*^9}, 3.5709437180911617`*^9, { 3.57252947817727*^9, 3.572529509876525*^9}, {3.5725312638188057`*^9, 3.572531289964452*^9}}], Cell[BoxData[ RowBox[{"{", RowBox[{ "0", ",", "0", ",", "0", ",", "0", ",", "0", ",", "0", ",", "0", ",", "0", ",", "0", ",", "0", ",", "0", ",", "1", ",", "1", ",", "1", ",", "0", ",", "1", ",", "1", ",", "1", ",", "0", ",", "1", ",", "1", ",", "1", ",", "1", ",", "0", ",", "1", ",", "1", ",", "1", ",", "1", ",", "0", ",", "1", ",", "1", ",", "1", ",", "1", ",", "0", ",", "1", ",", "1", ",", "1", ",", "1", ",", "0", ",", "1", ",", "1"}], "}"}]], "Output", CellChangeTimes->{ 3.5728722976609435`*^9, {3.5728738878497367`*^9, 3.572873913605382*^9}, 3.5729257321058855`*^9, 3.572925766035945*^9, 3.5800581725125127`*^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[{ 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[{"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.2547"}]}], "]"}]}], "]"}], "\[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.255"}]}], "]"}]}], "]"}], "\[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.2557"}]}], "]"}]}], "]"}], "\[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.2577"}]}], "]"}]}], "]"}]}]}]], "Input", CellChangeTimes->{{3.5688800293771057`*^9, 3.5688801774057655`*^9}, { 3.5688802290574565`*^9, 3.568880330208034*^9}, {3.5688803807053227`*^9, 3.5688804136525807`*^9}, 3.568880491434317*^9, 3.5688805648948464`*^9, { 3.5688806280437574`*^9, 3.568880655234605*^9}, {3.568880712424306*^9, 3.568880716324312*^9}, {3.5688808087544746`*^9, 3.568880827786508*^9}, 3.5688808733385878`*^9, {3.568881358936241*^9, 3.5688813959239063`*^9}, { 3.568881446561595*^9, 3.5688815849182377`*^9}, {3.5688816223739033`*^9, 3.568881642607139*^9}, 3.568881728953291*^9, {3.568881797624612*^9, 3.568881809870633*^9}, 3.568881863612727*^9, {3.568883098916497*^9, 3.5688831014749017`*^9}, {3.56888372124679*^9, 3.568883843239004*^9}, 3.568888211750622*^9, {3.5688882521546926`*^9, 3.5688885232519693`*^9}, { 3.5688885890840845`*^9, 3.5688885895052853`*^9}, {3.568888675773437*^9, 3.5688886914514647`*^9}, {3.568888736285943*^9, 3.5688887717760057`*^9}, { 3.5688888256429005`*^9, 3.5688888541441507`*^9}, {3.568892442649892*^9, 3.5688924499507046`*^9}, {3.568892758441247*^9, 3.5688927597360487`*^9}, { 3.5688928234309607`*^9, 3.5688928379389863`*^9}, {3.5708938149488974`*^9, 3.5708938463361526`*^9}, {3.570893920483083*^9, 3.5708939282050962`*^9}, { 3.570894700000852*^9, 3.5708948169698577`*^9}, {3.570894956839703*^9, 3.5708949736409326`*^9}, {3.5708961320833673`*^9, 3.570896139696181*^9}, 3.570896314088887*^9, {3.5708963602181683`*^9, 3.5708963666609793`*^9}, { 3.570896482038782*^9, 3.570896483645585*^9}, {3.5708965159376416`*^9, 3.570896521194851*^9}, {3.5709435995777535`*^9, 3.5709436285158043`*^9}, { 3.5709436695594764`*^9, 3.5709437026783347`*^9}, {3.57094471360691*^9, 3.5709447144805117`*^9}, {3.571117678992402*^9, 3.571117755775737*^9}, { 3.571117807801828*^9, 3.5711178311706696`*^9}, {3.5711179386236577`*^9, 3.5711179514468803`*^9}, {3.5711180538922606`*^9, 3.5711181329531994`*^9}, {3.571118284803866*^9, 3.5711183600895977`*^9}, 3.571118418542901*^9, {3.5711187358786583`*^9, 3.571118760152301*^9}, { 3.5711189251069903`*^9, 3.571118931175401*^9}, {3.571119065756838*^9, 3.571119069968845*^9}, {3.5711191828038435`*^9, 3.5711191858302484`*^9}, { 3.571119378740187*^9, 3.571119441873498*^9}, {3.571119489453582*^9, 3.5711194938839893`*^9}, {3.571119574255331*^9, 3.571119584660549*^9}, { 3.5711196943599415`*^9, 3.5711197163091803`*^9}, {3.5711198294561787`*^9, 3.5711198460078077`*^9}, {3.5711199544435987`*^9, 3.571119960418409*^9}, { 3.57112005791858*^9, 3.5711200601337843`*^9}, {3.571122132488224*^9, 3.5711221772447023`*^9}, {3.5711222335764017`*^9, 3.571122265696858*^9}, { 3.5711223339157777`*^9, 3.5711223418093915`*^9}, {3.5711223939602833`*^9, 3.5711223957542863`*^9}, {3.571122528292119*^9, 3.571122529087721*^9}, { 3.5711226076026583`*^9, 3.5711226245598884`*^9}, 3.5711226547927413`*^9, { 3.571122698566418*^9, 3.571122702404025*^9}, {3.5711227857393713`*^9, 3.5711228031646023`*^9}, {3.571122843085072*^9, 3.5711228432878723`*^9}, { 3.5711232359405622`*^9, 3.571123255206596*^9}, 3.571123320991912*^9, { 3.5711233774484105`*^9, 3.5711234457765303`*^9}, {3.571123624911645*^9, 3.571123633975261*^9}, {3.571123734751438*^9, 3.5711237424110518`*^9}, { 3.5711242010206575`*^9, 3.5711242671491733`*^9}, {3.5711245724573097`*^9, 3.5711245843601303`*^9}, {3.571124620583394*^9, 3.5711246628750687`*^9}, { 3.571124751951225*^9, 3.5711247552428303`*^9}, {3.5711248069569216`*^9, 3.5711248951750765`*^9}, {3.5711250701761837`*^9, 3.5711251099562535`*^9}, 3.571125196598806*^9, 3.571135972980551*^9, {3.5711360048826065`*^9, 3.571136013634222*^9}, {3.571760985057314*^9, 3.5717610088005557`*^9}, { 3.5717610576442413`*^9, 3.571761063431852*^9}, {3.5725287590472064`*^9, 3.5725287902628613`*^9}, {3.572529030674884*^9, 3.572529042343704*^9}, { 3.572529556645407*^9, 3.5725296188271165`*^9}, {3.572529678793622*^9, 3.5725297125832815`*^9}, 3.572529766184975*^9, 3.5725298594731393`*^9, { 3.572529901374813*^9, 3.5725299376604767`*^9}, {3.572531381084212*^9, 3.5725313843134174`*^9}, {3.572537228892798*^9, 3.572537235429209*^9}, { 3.572537287814101*^9, 3.5725373101221404`*^9}, {3.5725380504682407`*^9, 3.5725382242837462`*^9}, {3.572538261053011*^9, 3.572538276590638*^9}, { 3.5725383120339003`*^9, 3.5725383418611526`*^9}, {3.5725384271465025`*^9, 3.57253845404095*^9}, {3.572538956424232*^9, 3.5725390373103743`*^9}, { 3.572539306644847*^9, 3.5725394512103014`*^9}, {3.5725395463080683`*^9, 3.572539593981752*^9}, {3.5725398474041967`*^9, 3.5725398481529984`*^9}, { 3.572541676133009*^9, 3.572541712605873*^9}, {3.5725419267942495`*^9, 3.572541927823851*^9}, {3.5725420320164337`*^9, 3.572542068317698*^9}, { 3.572542098675351*^9, 3.5725421006877546`*^9}, {3.572542267561248*^9, 3.5725423059217153`*^9}, {3.5726066153250785`*^9, 3.5726066318455076`*^9}, {3.5726084389526815`*^9, 3.5726084422286873`*^9}, {3.5726211211499004`*^9, 3.5726211269999104`*^9}, 3.572624425506504*^9, 3.5726245538167295`*^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", "]"}]}]}], "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}}], Cell[BoxData[ RowBox[{"{", "}"}]], "Output", CellChangeTimes->{ 3.5728722976765437`*^9, {3.572873887865337*^9, 3.572873913636582*^9}, 3.572925732137085*^9, 3.572925766067145*^9, 3.5800581725295134`*^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.5728722977545443`*^9, {3.5728738879433365`*^9, 3.5728739137145824`*^9}, 3.5729257322618856`*^9, 3.5729257661451445`*^9, 3.5800581726085176`*^9}], Cell[BoxData[ RowBox[{ RowBox[{"Mean", "[", RowBox[{"{", "}"}], "]"}], "\[PlusMinus]", RowBox[{"StandardDeviation", "[", RowBox[{"{", "}"}], "]"}]}]], "Output", CellChangeTimes->{ 3.5728722976765437`*^9, {3.572873887865337*^9, 3.572873913636582*^9}, 3.572925732137085*^9, 3.572925766067145*^9, 3.5800581726105185`*^9}] }, Open ]], Cell[CellGroupData[{ Cell[BoxData[{ RowBox[{"CC", "=", RowBox[{"Select", "[", RowBox[{ RowBox[{"Flatten", "[", "Eij", "]"}], ",", RowBox[{ RowBox[{"(", RowBox[{"#", "\[GreaterEqual]", "2.6"}], ")"}], " ", "&"}]}], "]"}]}], "\n", RowBox[{ RowBox[{"Mean", "[", "CC", "]"}], " ", "\[PlusMinus]", " ", RowBox[{"StandardDeviation", "[", "CC", "]"}], " "}]}], "Input", CellChangeTimes->{{3.571152083381344*^9, 3.571152103920519*^9}, { 3.571200806148241*^9, 3.571200809159046*^9}, 3.571201865936102*^9, { 3.5712028396274123`*^9, 3.57120285544584*^9}}], Cell[BoxData[ RowBox[{"{", RowBox[{ "2.9587138567075155`", ",", "2.9601588048039935`", ",", "2.9616452490246807`", ",", "2.9592122775940566`", ",", "2.862093980374264`", ",", "2.8626316782401777`", ",", "2.8618419387160845`", ",", "2.8634293060757217`", ",", "2.861757088015333`", ",", "2.8614139161359544`", ",", "2.6335761185442994`", ",", "2.6201036340757535`", ",", "2.6583324105744732`", ",", "2.8629366614862772`", ",", "2.689458058320274`", ",", "2.658553375983695`", ",", "2.620093412228965`", ",", "2.6583895006616953`", ",", "2.8600720309745697`", ",", "2.689384366398353`", ",", "2.6202971601836555`", ",", "2.61963270626414`", ",", "2.63390898030229`", ",", "2.659240333490821`", ",", "2.6583303956078184`", ",", "2.863390645894428`", ",", "2.6904623244264227`", ",", "2.619975517380277`", ",", "2.61937369396094`", ",", "2.6340601439517517`", ",", "2.6580388810040687`", ",", "2.658967049074836`", ",", "2.862105209436616`", ",", "2.6902585809859247`", ",", "2.6202242488563647`", ",", "2.6185767296864473`", ",", "2.6328872119062403`", ",", "2.6584533057789246`", ",", "2.657799734555131`", ",", "2.8621220529475417`", ",", "2.6909414257235347`", ",", "2.6190894325614478`", ",", "2.6205887852070666`", ",", "2.6323575262686347`", ",", "2.6588461772298033`", ",", "2.6589200440102436`", ",", "2.862027852780098`", ",", "2.6895297566306233`", ",", "2.6187144602658665`", ",", "2.619580224261103`"}], "}"}]], "Output", CellChangeTimes->{ 3.572872297770144*^9, {3.5728738879589367`*^9, 3.572873913730182*^9}, 3.5729257322774854`*^9, 3.5729257661607447`*^9, 3.5800581726205187`*^9}], Cell[BoxData[ RowBox[{"2.7234499651113846`", "\[PlusMinus]", "0.1175800426391566`"}]], "Output", CellChangeTimes->{ 3.572872297770144*^9, {3.5728738879589367`*^9, 3.572873913730182*^9}, 3.5729257322774854`*^9, 3.5729257661607447`*^9, 3.580058172621519*^9}] }, Open ]], 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", ",", 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.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.571202078205675*^9}, {3.5712022379343557`*^9, 3.5712022402275596`*^9}, {3.571202304764873*^9, 3.5712023101312823`*^9}, 3.571202353748959*^9, {3.5712024254310846`*^9, 3.5712024257586856`*^9}, { 3.57120276994209*^9, 3.5712027833893137`*^9}}], Cell[BoxData[ RowBox[{"{", RowBox[{ "2.0572533035670517`", ",", "2.056824517986182`", ",", "2.0539300471966446`", ",", "2.0526335104779463`", ",", "2.056789794593869`", ",", "2.0553421755691823`", ",", "2.053819643027055`", ",", "2.0575917553811913`", ",", "2.056360044090271`", ",", "2.055001615562912`", ",", "2.053686628546821`", ",", "2.0553248014247436`", ",", "2.0578850352609765`", ",", "2.0542768689363955`", ",", "2.0555046167139324`", ",", "2.056900907385917`", ",", "2.0573105839419314`", ",", "2.0542125505303637`", ",", "2.054149968526636`", ",", "2.0561169131218544`", ",", "2.0556505421971445`", ",", "2.0542099429849405`", ",", "2.0529979452324665`"}], "}"}]], "Output", CellChangeTimes->{ 3.5728722977857437`*^9, {3.572873887974537*^9, 3.572873913745782*^9}, 3.5729257323086853`*^9, 3.572925766176345*^9, 3.5800581726335196`*^9}], Cell[BoxData[ RowBox[{"2.05538146575028`", "\[PlusMinus]", "0.0015464691439460315`"}]], "Output", CellChangeTimes->{ 3.5728722977857437`*^9, {3.572873887974537*^9, 3.572873913745782*^9}, 3.5729257323086853`*^9, 3.572925766176345*^9, 3.5800581726365194`*^9}] }, Open ]], Cell[CellGroupData[{ Cell[BoxData[{ RowBox[{"For", "[", RowBox[{ RowBox[{"i", "=", "1"}], " ", ",", RowBox[{"i", "<", RowBox[{"n", "+", "1"}]}], ",", RowBox[{"i", "++"}], ",", "\[IndentingNewLine]", RowBox[{"For", "[", RowBox[{ RowBox[{"j", "=", "1"}], ",", " ", RowBox[{"j", "<", RowBox[{"bc", "+", "1"}]}], ",", RowBox[{"j", "++"}], ",", "\[IndentingNewLine]", RowBox[{"If", "[", RowBox[{ RowBox[{"(", RowBox[{ RowBox[{ RowBox[{"Dij", "[", RowBox[{"[", RowBox[{"i", ",", "j"}], "]"}], "]"}], "\[NotEqual]", "0"}], " ", "&&", " ", RowBox[{ RowBox[{"u", "[", RowBox[{"[", "i", "]"}], "]"}], "\[Equal]", " ", "\"\\""}]}], ")"}], ",", RowBox[{"If", "[", RowBox[{ RowBox[{ RowBox[{"u", "[", RowBox[{"[", "j", "]"}], "]"}], "\[Equal]", "\"\\""}], ",", RowBox[{ RowBox[{"u2", "[", RowBox[{"[", "i", "]"}], "]"}], "=", "0.5693"}], ",", RowBox[{"If", "[", RowBox[{ RowBox[{ RowBox[{"u", "[", RowBox[{"[", "j", "]"}], "]"}], "\[Equal]", "\"\\""}], ",", RowBox[{ RowBox[{"u2", "[", RowBox[{"[", "i", "]"}], "]"}], "=", "0.5"}], ",", RowBox[{"If", "[", RowBox[{ RowBox[{ RowBox[{"u", "[", RowBox[{"[", "j", "]"}], "]"}], "\[Equal]", "\"\\""}], ",", RowBox[{ RowBox[{"u2", "[", RowBox[{"[", "i", "]"}], "]"}], "=", "0.5541"}], ",", RowBox[{"If", "[", RowBox[{ RowBox[{ RowBox[{"u", "[", RowBox[{"[", "j", "]"}], "]"}], "\[Equal]", "\"\\""}], ",", RowBox[{ RowBox[{"u2", "[", RowBox[{"[", "i", "]"}], "]"}], "=", "0.5241"}]}], "]"}]}], "]"}]}], "]"}]}], "]"}]}], "]"}]}], "]"}]}], "]"}], "\[IndentingNewLine]", "u2"}], "Input", CellChangeTimes->{{3.5688800293771057`*^9, 3.5688801774057655`*^9}, { 3.5688802290574565`*^9, 3.568880330208034*^9}, {3.5688803807053227`*^9, 3.5688804136525807`*^9}, 3.568880491434317*^9, 3.5688805648948464`*^9, { 3.5688806280437574`*^9, 3.568880655234605*^9}, {3.568880712424306*^9, 3.568880716324312*^9}, {3.5688808087544746`*^9, 3.568880827786508*^9}, 3.5688808733385878`*^9, {3.568881358936241*^9, 3.5688813959239063`*^9}, { 3.568881446561595*^9, 3.5688815849182377`*^9}, {3.5688816223739033`*^9, 3.568881642607139*^9}, 3.568881728953291*^9, {3.568881797624612*^9, 3.568881809870633*^9}, 3.568881863612727*^9, {3.568883098916497*^9, 3.5688831014749017`*^9}, {3.56888372124679*^9, 3.568883843239004*^9}, 3.568888211750622*^9, {3.5688882521546926`*^9, 3.5688885232519693`*^9}, { 3.5688885890840845`*^9, 3.5688885895052853`*^9}, {3.568888675773437*^9, 3.5688886914514647`*^9}, {3.568888736285943*^9, 3.5688887717760057`*^9}, { 3.5688888256429005`*^9, 3.5688888541441507`*^9}, {3.568892442649892*^9, 3.5688924499507046`*^9}, {3.568892758441247*^9, 3.5688927597360487`*^9}, { 3.5688928234309607`*^9, 3.5688928379389863`*^9}, {3.5708938149488974`*^9, 3.5708938463361526`*^9}, {3.570893920483083*^9, 3.5708939282050962`*^9}, { 3.570894700000852*^9, 3.57089481264865*^9}, {3.570973331551669*^9, 3.570973355887712*^9}, {3.5709734060886*^9, 3.5709734077266035`*^9}, 3.5709737061863275`*^9, {3.5712013634748197`*^9, 3.5712013661736245`*^9}, { 3.571201966837079*^9, 3.5712020689392586`*^9}}], Cell[BoxData[ RowBox[{"{", RowBox[{ "0.2557`", ",", "0.2557`", ",", "0.2557`", ",", "0.2557`", ",", "0.2557`", ",", "0.2557`", ",", "0.2557`", ",", "0.2557`", ",", "0.2557`", ",", "0.2557`", ",", "0.2557`", ",", "0.2557`", ",", "0.2557`", ",", "0.2557`", ",", "0.2557`", ",", "0.2557`", ",", "0.2557`", ",", "0.2557`", ",", "0.2557`", ",", "0.2557`", ",", "0.2557`", ",", "0.2557`", ",", "0.2557`", ",", "0.2557`", ",", "0.2557`", ",", "0.2557`", ",", "0.2557`", ",", "0.2557`", ",", "0.2557`", ",", "0.2557`", ",", "0.2557`", ",", "0.2557`", ",", "0.2557`", ",", "0.2557`", ",", "0.2557`", ",", "0.2557`", ",", "0.2557`", ",", "0.2557`", ",", "0.2557`", ",", "0.2557`", ",", "0.2557`", ",", "0.5693`", ",", "0.5693`", ",", "0.5693`", ",", "0.5693`", ",", "0.5693`", ",", "0.5693`", ",", "0.5693`", ",", "0.5693`", ",", "0.5693`", ",", "0.5693`", ",", "0.5693`", ",", "0.5693`", ",", "0.5693`", ",", "0.5693`", ",", "0.5693`", ",", "0.5693`", ",", "0.5693`", ",", "0.5693`", ",", "0.5693`", ",", "0.5693`", ",", "0.5693`", ",", "0.5693`", ",", "0.5693`", ",", "0.5693`"}], "}"}]], "Output", CellChangeTimes->{ 3.572872297801344*^9, {3.572873887990137*^9, 3.572873913761382*^9}, 3.5729257323242855`*^9, 3.572925766191945*^9, 3.5800581726535206`*^9}] }, Open ]], Cell[BoxData[ RowBox[{ RowBox[{"(*", " ", RowBox[{ "subtract", " ", "core", " ", "radii", " ", "from", " ", "pair", " ", "distances"}], " ", "*)"}], "\[IndentingNewLine]", RowBox[{ RowBox[{ RowBox[{"Fij", "=", RowBox[{"Dij", "-", "u2"}]}], ";"}], "\[IndentingNewLine]", RowBox[{"(*", RowBox[{ RowBox[{"MatrixForm", "[", "Fij", "]"}], ";"}], "*)"}], "\[IndentingNewLine]", RowBox[{ RowBox[{"Gij", "=", RowBox[{"Table", "[", RowBox[{ RowBox[{"If", "[", RowBox[{ RowBox[{"i", "\[GreaterEqual]", "j"}], ",", RowBox[{"If", "[", RowBox[{ RowBox[{ RowBox[{"Fij", "[", RowBox[{"[", RowBox[{"i", ",", "j"}], "]"}], "]"}], ">", "0"}], ",", RowBox[{"Fij", "[", RowBox[{"[", RowBox[{"i", ",", "j"}], "]"}], "]"}], ",", "0"}], "]"}], ",", "\"\< \>\""}], "]"}], ",", RowBox[{"{", RowBox[{"i", ",", "1", ",", "n"}], "}"}], ",", RowBox[{"{", RowBox[{"j", ",", "1", ",", "n"}], "}"}]}], "]"}]}], ";"}], "\[IndentingNewLine]", RowBox[{"(*", RowBox[{ RowBox[{"MatrixForm", "[", "Gij", "]"}], ";"}], "*)"}]}]}]], "Input", CellChangeTimes->{{3.567958596890297*^9, 3.567958603270708*^9}, { 3.5679587604565845`*^9, 3.5679587707682023`*^9}, {3.5679588272871017`*^9, 3.567958828254304*^9}, {3.567959580066424*^9, 3.5679595814704266`*^9}, { 3.567959624994503*^9, 3.5679596300177116`*^9}, {3.5679597079086485`*^9, 3.567959902877791*^9}, {3.5679599961659546`*^9, 3.5679600446196404`*^9}, { 3.5679609611992497`*^9, 3.567960974006872*^9}, 3.567961975154231*^9, { 3.5679622637079377`*^9, 3.5679622945179915`*^9}, 3.5681142413606625`*^9, 3.568121878697276*^9, {3.5681219332193723`*^9, 3.56812197189184*^9}, { 3.5682778370003624`*^9, 3.5682778397927675`*^9}, {3.569341165522358*^9, 3.569341165537958*^9}, {3.5693418217531104`*^9, 3.5693418217531104`*^9}, { 3.57059671735485*^9, 3.570596744467697*^9}}], Cell[BoxData[{ RowBox[{ RowBox[{"Hij", "=", RowBox[{"Transpose", "[", "Gij", "]"}]}], ";"}], "\[IndentingNewLine]", RowBox[{ RowBox[{"(*", RowBox[{ RowBox[{"MatrixForm", "[", "Hij", "]"}], ";"}], "*)"}]}]}], "Input", CellChangeTimes->{{3.5679601758938704`*^9, 3.5679601965327067`*^9}, { 3.567960427147912*^9, 3.567960432217921*^9}, {3.5679605764089737`*^9, 3.5679605968294096`*^9}, {3.5679607389456596`*^9, 3.5679607643581038`*^9}, 3.5681142501278777`*^9, 3.5681218877140923`*^9, 3.569341165537958*^9, 3.5693418217531104`*^9}], Cell[BoxData[{ RowBox[{ RowBox[{ RowBox[{"Kij", "=", RowBox[{"Hij", "-", "u2"}]}], ";"}], "\[IndentingNewLine]", RowBox[{"(*", RowBox[{ RowBox[{"MatrixForm", "[", "Kij", "]"}], ";"}], "*)"}]}], "\[IndentingNewLine]", RowBox[{ RowBox[{"Lij", "=", RowBox[{"Table", "[", RowBox[{ RowBox[{"If", "[", RowBox[{ RowBox[{"i", "\[LessEqual]", "j"}], ",", RowBox[{"If", "[", RowBox[{ RowBox[{ RowBox[{"Kij", "[", RowBox[{"[", RowBox[{"i", ",", "j"}], "]"}], "]"}], ">", "0"}], ",", RowBox[{"Kij", "[", RowBox[{"[", RowBox[{"i", ",", "j"}], "]"}], "]"}], ",", "0"}], "]"}], ",", "\"\< \>\""}], "]"}], ",", RowBox[{"{", RowBox[{"i", ",", "1", ",", "n"}], "}"}], ",", RowBox[{"{", RowBox[{"j", ",", "1", ",", "n"}], "}"}]}], "]"}]}], ";"}], "\[IndentingNewLine]", RowBox[{ RowBox[{"(*", RowBox[{ RowBox[{"MatrixForm", "[", "Lij", "]"}], ";"}], "*)"}]}]}], "Input", CellChangeTimes->{{3.5679602339571724`*^9, 3.567960257419614*^9}, { 3.567960343406965*^9, 3.567960353500182*^9}, {3.5679604155258913`*^9, 3.567960421422702*^9}, {3.567960854323462*^9, 3.567960874197897*^9}, { 3.5679611596939983`*^9, 3.567961170270817*^9}, {3.5679614000124207`*^9, 3.567961407016833*^9}, {3.5679615066074076`*^9, 3.567961509649413*^9}, 3.5679616124379935`*^9, 3.5679616766477065`*^9, {3.5679617424486217`*^9, 3.5679617456310277`*^9}, 3.567961801276325*^9, {3.5679618582788253`*^9, 3.5679618970760937`*^9}, {3.5679620279135237`*^9, 3.567962030113127*^9}, 3.567962107894864*^9, {3.567962149468937*^9, 3.5679621572533503`*^9}, 3.5679623389156694`*^9, {3.567962645815009*^9, 3.567962648888214*^9}, { 3.567962691647889*^9, 3.567962693020692*^9}, {3.568048161486014*^9, 3.568048162827616*^9}, 3.5680482096900983`*^9, 3.5681142588638926`*^9, 3.568121899632513*^9, 3.5681219958534822`*^9, {3.568277844675576*^9, 3.5682778463603787`*^9}, {3.569341165537958*^9, 3.569341165537958*^9}, { 3.5693418217531104`*^9, 3.5693418217531104`*^9}}], Cell[BoxData[ RowBox[{ RowBox[{"(*", " ", RowBox[{"determine", " ", "bond", " ", "cloud", " ", "radii"}], " ", "*)"}], "\[IndentingNewLine]", RowBox[{ RowBox[{ RowBox[{"Lij", "=", RowBox[{"Table", "[", RowBox[{ RowBox[{"If", "[", RowBox[{ RowBox[{"i", "\[LessEqual]", "j"}], ",", RowBox[{"If", "[", RowBox[{ RowBox[{ RowBox[{"Lij", "[", RowBox[{"[", RowBox[{"i", ",", "j"}], "]"}], "]"}], ">", "0"}], ",", RowBox[{"If", "[", RowBox[{ RowBox[{ RowBox[{"u", "[", RowBox[{"[", "j", "]"}], "]"}], "\[NotEqual]", "\"\\""}], ",", RowBox[{"0.5", "*", RowBox[{"Lij", "[", RowBox[{"[", RowBox[{"i", ",", "j"}], "]"}], "]"}]}], ",", RowBox[{"Lij", "[", RowBox[{"[", RowBox[{"i", ",", "j"}], "]"}], "]"}]}], "]"}], ",", "0"}], "]"}], ",", "\"\< \>\""}], "]"}], ",", RowBox[{"{", RowBox[{"i", ",", "1", ",", "n"}], "}"}], ",", RowBox[{"{", RowBox[{"j", ",", "1", ",", "n"}], "}"}]}], "]"}]}], ";"}], " ", "\[IndentingNewLine]", RowBox[{ RowBox[{"Qij", "=", "Lij"}], ";"}], "\[IndentingNewLine]", RowBox[{"(*", RowBox[{ RowBox[{"MatrixForm", "[", "Lij", "]"}], ";"}], "*)"}]}]}]], "Input", CellChangeTimes->{{3.5679627617388124`*^9, 3.567962837461345*^9}, { 3.567963118121438*^9, 3.567963118698639*^9}, {3.5679631520670977`*^9, 3.5679631541731014`*^9}, {3.5679631898191643`*^9, 3.5679632154656096`*^9}, {3.5679635823158536`*^9, 3.56796361468591*^9}, { 3.567963691516045*^9, 3.567963693590849*^9}, {3.567963737957327*^9, 3.567963807299449*^9}, {3.568048114904332*^9, 3.5680481161835346`*^9}, 3.5680482221389203`*^9, {3.5680485003498087`*^9, 3.5680485123618298`*^9}, 3.5681142659931054`*^9, 3.5681219084621286`*^9, {3.568277848107582*^9, 3.5682778496519847`*^9}, {3.5683793122399254`*^9, 3.568379313019926*^9}, { 3.568379456758579*^9, 3.56837947986222*^9}, 3.5683796000760307`*^9, { 3.5683796473285136`*^9, 3.5683796831617765`*^9}, {3.568381744939398*^9, 3.5683817743298492`*^9}, {3.56846523720809*^9, 3.568465240218895*^9}, 3.569341165537958*^9, 3.5693418217531104`*^9, {3.5705967846533675`*^9, 3.5705968020785985`*^9}}], Cell[BoxData[ RowBox[{ RowBox[{"(*", " ", RowBox[{"determine", " ", "kinetic", " ", "energy"}], " ", "*)"}], "\[IndentingNewLine]", RowBox[{ RowBox[{ RowBox[{"Nij", "=", RowBox[{"Table", "[", RowBox[{ RowBox[{"If", "[", RowBox[{ RowBox[{"i", "\[LessEqual]", "j"}], ",", RowBox[{"If", "[", RowBox[{ RowBox[{ RowBox[{"Lij", "[", RowBox[{"[", RowBox[{"i", ",", "j"}], "]"}], "]"}], ">", "0"}], ",", RowBox[{"2.25", "/", RowBox[{ RowBox[{"Lij", "[", RowBox[{"[", RowBox[{"i", ",", "j"}], "]"}], "]"}], "^", "2"}]}], ",", "0"}], "]"}], ",", "\"\< \>\""}], "]"}], ",", RowBox[{"{", RowBox[{"i", ",", "1", ",", "n"}], "}"}], ",", RowBox[{"{", RowBox[{"j", ",", "1", ",", "n"}], "}"}]}], "]"}]}], ";"}], "\[IndentingNewLine]", RowBox[{"(*", RowBox[{"MatrixForm", "[", "Nij", "]"}], "*)"}]}]}]], "Input", CellChangeTimes->{{3.5679628944794455`*^9, 3.5679629710755796`*^9}, { 3.567963889963994*^9, 3.567963933800071*^9}, {3.5680478391738477`*^9, 3.5680478414358516`*^9}, 3.568048231171336*^9, {3.5680482823550262`*^9, 3.56804828449223*^9}, 3.5680483349271183`*^9, 3.568114273059918*^9, 3.5681219175101447`*^9, {3.568277851305588*^9, 3.568277857295998*^9}, { 3.5688722635742655`*^9, 3.568872266616271*^9}, 3.5688723032763357`*^9, 3.5688725225503206`*^9, 3.5692365125035076`*^9, {3.5692366381461277`*^9, 3.5692366389105296`*^9}, {3.5692366963654304`*^9, 3.5692366986898346`*^9}, 3.5693411655535583`*^9, 3.5693418217687106`*^9, {3.5705968460394754`*^9, 3.5705968602823005`*^9}}], Cell[CellGroupData[{ Cell[BoxData[ RowBox[{"Tval", "=", RowBox[{"Sum", "[", RowBox[{ RowBox[{"If", "[", RowBox[{ RowBox[{"i", "\[LessEqual]", "j"}], ",", RowBox[{"Nij", "[", RowBox[{"[", RowBox[{"i", ",", "j"}], "]"}], "]"}], ",", "0"}], "]"}], ",", RowBox[{"{", RowBox[{"i", ",", "1", ",", "n"}], "}"}], ",", RowBox[{"{", RowBox[{"j", ",", "1", ",", "n"}], "}"}]}], "]"}]}]], "Input", CellChangeTimes->{{3.567963992456174*^9, 3.567964003890994*^9}, { 3.5679640974287586`*^9, 3.5679642038209453`*^9}, {3.56796433180357*^9, 3.567964353487608*^9}, {3.567964403641696*^9, 3.567964453046983*^9}, { 3.5679646160984693`*^9, 3.5679646168316708`*^9}, {3.567964688747797*^9, 3.567964762255126*^9}, {3.568277859480002*^9, 3.568277863598409*^9}, { 3.568379511358675*^9, 3.5683795129030776`*^9}, 3.5688214977895346`*^9, { 3.56882774467134*^9, 3.56882781892747*^9}}], Cell[BoxData["132.3087728555737`"], "Output", CellChangeTimes->{ 3.572872297848144*^9, {3.572873888036937*^9, 3.5728739138081827`*^9}, 3.5729257323710856`*^9, 3.572925766238745*^9, 3.580058172697523*^9}] }, Open ]], Cell[CellGroupData[{ Cell[BoxData[ RowBox[{"Tcor", "=", RowBox[{"Sum", "[", RowBox[{ RowBox[{"If", "[", RowBox[{ RowBox[{ RowBox[{"u", "[", RowBox[{"[", "i", "]"}], "]"}], "\[NotEqual]", "\"\\""}], ",", RowBox[{"2.25", "/", RowBox[{ RowBox[{"u2", "[", RowBox[{"[", "i", "]"}], "]"}], "^", "2"}]}], ",", "0"}], "]"}], ",", RowBox[{"{", RowBox[{"i", ",", "1", ",", "n"}], "}"}]}], "]"}]}]], "Input", CellChangeTimes->{ 3.5688724058309155`*^9, {3.568872452646598*^9, 3.568872478480243*^9}, { 3.5688764461756124`*^9, 3.5688764647552447`*^9}, {3.5692363452556133`*^9, 3.5692363456924143`*^9}, 3.569236415892538*^9, 3.5692365043134933`*^9}], Cell[BoxData["1410.9282164077888`"], "Output", CellChangeTimes->{ 3.572872297863744*^9, {3.572873888052537*^9, 3.5728739138237824`*^9}, 3.5729257323866854`*^9, 3.572925766254345*^9, 3.580058172709524*^9}] }, Open ]], Cell[CellGroupData[{ Cell[BoxData[ RowBox[{"Ttot", "=", RowBox[{"Tval", "+", "Tcor", " ", RowBox[{"(*", " ", RowBox[{"plus", " ", "\[Pi]", " ", "and", " ", "lone", " ", RowBox[{"pairs", ":", " ", RowBox[{"+", " ", "8.7616"}]}]}], " ", "*)"}]}]}]], "Input", CellChangeTimes->{ 3.5688724058309155`*^9, {3.568872452646598*^9, 3.568872478480243*^9}, { 3.5688764461756124`*^9, 3.568876459248435*^9}, {3.568876733122516*^9, 3.5688767685033784`*^9}, {3.568895188410715*^9, 3.5688952349923964`*^9}}], Cell[BoxData["1543.2369892633624`"], "Output", CellChangeTimes->{ 3.572872297863744*^9, {3.572873888068137*^9, 3.572873913839382*^9}, 3.5729257324022856`*^9, 3.572925766269945*^9, 3.5800581727195244`*^9}] }, Open ]], Cell[CellGroupData[{ Cell[BoxData[ RowBox[{"TvalH", "=", RowBox[{"Sum", "[", RowBox[{ RowBox[{"If", "[", RowBox[{ RowBox[{"(", RowBox[{ RowBox[{"i", "\[LessEqual]", "j"}], " ", "&&", " ", RowBox[{ RowBox[{"u", "[", RowBox[{"[", "j", "]"}], "]"}], "\[Equal]", " ", "\"\\""}]}], ")"}], ",", RowBox[{"Nij", "[", RowBox[{"[", RowBox[{"i", ",", "j"}], "]"}], "]"}], ",", "0"}], "]"}], ",", RowBox[{"{", RowBox[{"i", ",", "1", ",", "n"}], "}"}], ",", RowBox[{"{", RowBox[{"j", ",", "1", ",", "n"}], "}"}]}], "]"}]}]], "Input", CellChangeTimes->{ 3.5688724058309155`*^9, {3.568872452646598*^9, 3.568872478480243*^9}, { 3.5688764461756124`*^9, 3.568876459248435*^9}, {3.568876733122516*^9, 3.5688767642445707`*^9}}], Cell[BoxData["35.66719902442673`"], "Output", CellChangeTimes->{ 3.572872297879344*^9, {3.5728738880837374`*^9, 3.5728739138549824`*^9}, 3.572925732417886*^9, 3.5729257662855453`*^9, 3.580058172734525*^9}] }, Open ]], Cell[CellGroupData[{ Cell[BoxData[ RowBox[{"TvalC", "=", RowBox[{"Tval", "-", "TvalH"}]}]], "Input", CellChangeTimes->{{3.5688726088808727`*^9, 3.568872610581275*^9}, { 3.5688726952426243`*^9, 3.5688727146490583`*^9}}], Cell[BoxData["96.64157383114696`"], "Output", CellChangeTimes->{ 3.572872297894944*^9, {3.572873888099337*^9, 3.5728739138705826`*^9}, 3.5729257324334855`*^9, 3.5729257663011456`*^9, 3.5800581727455263`*^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}], 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[{ "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[{"Length", "[", RowBox[{"conn", "[", RowBox[{"[", "i", "]"}], "]"}], "]"}], "\[Equal]", "4"}], ",", 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[{ 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}}], Cell[BoxData[ RowBox[{"{", RowBox[{ "6", ",", "7", ",", "8", ",", "9", ",", "10", ",", "11", ",", "12", ",", "13", ",", "14", ",", "15", ",", "16", ",", "17", ",", "18", ",", "19", ",", "20", ",", "21", ",", "22", ",", "23", ",", "24", ",", "25", ",", "26", ",", "27", ",", "28", ",", "29", ",", "30", ",", "31", ",", "32", ",", "33", ",", "34", ",", "35", ",", "36", ",", "37", ",", "38", ",", "39", ",", "40", ",", "41"}], "}"}]], "Output", CellChangeTimes->{ 3.5728722979105444`*^9, {3.5728738881149373`*^9, 3.5728739139017825`*^9}, 3.572925732464686*^9, 3.572925766332345*^9, 3.580058172766527*^9}], Cell[BoxData[ TagBox[ RowBox[{"(", "\[NoBreak]", TagBox[GridBox[{ { RowBox[{"{", RowBox[{"1", ",", "2", ",", "3", ",", "4", ",", "5"}], "}"}]}, { RowBox[{"{", RowBox[{"2", ",", "1", ",", "8", ",", "24", ",", "39"}], "}"}]}, { RowBox[{"{", RowBox[{"3", ",", "1", ",", "9", ",", "15", ",", "19"}], "}"}]}, { RowBox[{"{", RowBox[{"4", ",", "1", ",", "6", ",", "7", ",", "34"}], "}"}]}, { RowBox[{"{", RowBox[{"5", ",", "1", ",", "10", ",", "11", ",", "29"}], "}"}]}, { RowBox[{"{", RowBox[{"6", ",", "4", ",", "19", ",", "20"}], "}"}]}, { RowBox[{"{", RowBox[{"7", ",", "4", ",", "24", ",", "25"}], "}"}]}, { RowBox[{"{", RowBox[{"8", ",", "2", ",", "29", ",", "30"}], "}"}]}, { RowBox[{"{", RowBox[{"9", ",", "3", ",", "39", ",", "40"}], "}"}]}, { RowBox[{"{", RowBox[{"10", ",", "5", ",", "14", ",", "15"}], "}"}]}, { RowBox[{"{", RowBox[{"11", ",", "5", ",", "34", ",", "35"}], "}"}]}, { RowBox[{"{", RowBox[{"12", ",", "13", ",", "16", ",", "42"}], "}"}]}, { RowBox[{"{", RowBox[{"13", ",", "12", ",", "14", ",", "43"}], "}"}]}, { RowBox[{"{", RowBox[{"14", ",", "10", ",", "13", ",", "44"}], "}"}]}, { RowBox[{"{", RowBox[{"15", ",", "3", ",", "10", ",", "16"}], "}"}]}, { RowBox[{"{", RowBox[{"16", ",", "12", ",", "15", ",", "45"}], "}"}]}, { RowBox[{"{", RowBox[{"17", ",", "18", ",", "21", ",", "46"}], "}"}]}, { RowBox[{"{", RowBox[{"18", ",", "17", ",", "19", ",", "47"}], "}"}]}, { RowBox[{"{", RowBox[{"19", ",", "3", ",", "6", ",", "18"}], "}"}]}, { RowBox[{"{", RowBox[{"20", ",", "6", ",", "21", ",", "48"}], "}"}]}, { RowBox[{"{", RowBox[{"21", ",", "17", ",", "20", ",", "49"}], "}"}]}, { RowBox[{"{", RowBox[{"22", ",", "23", ",", "26", ",", "50"}], "}"}]}, { RowBox[{"{", RowBox[{"23", ",", "22", ",", "24", ",", "51"}], "}"}]}, { RowBox[{"{", RowBox[{"24", ",", "2", ",", "7", ",", "23"}], "}"}]}, { RowBox[{"{", RowBox[{"25", ",", "7", ",", "26", ",", "52"}], "}"}]}, { RowBox[{"{", RowBox[{"26", ",", "22", ",", "25", ",", "53"}], "}"}]}, { RowBox[{"{", RowBox[{"27", ",", "28", ",", "31", ",", "54"}], "}"}]}, { RowBox[{"{", RowBox[{"28", ",", "27", ",", "29", ",", "55"}], "}"}]}, { RowBox[{"{", RowBox[{"29", ",", "5", ",", "8", ",", "28"}], "}"}]}, { RowBox[{"{", RowBox[{"30", ",", "8", ",", "31", ",", "56"}], "}"}]}, { RowBox[{"{", RowBox[{"31", ",", "27", ",", "30", ",", "57"}], "}"}]}, { RowBox[{"{", RowBox[{"32", ",", "33", ",", "36", ",", "58"}], "}"}]}, { RowBox[{"{", RowBox[{"33", ",", "32", ",", "34", ",", "59"}], "}"}]}, { RowBox[{"{", RowBox[{"34", ",", "4", ",", "11", ",", "33"}], "}"}]}, { RowBox[{"{", RowBox[{"35", ",", "11", ",", "36", ",", "60"}], "}"}]}, { RowBox[{"{", RowBox[{"36", ",", "32", ",", "35", ",", "61"}], "}"}]}, { RowBox[{"{", RowBox[{"37", ",", "38", ",", "41", ",", "62"}], "}"}]}, { RowBox[{"{", RowBox[{"38", ",", "37", ",", "39", ",", "63"}], "}"}]}, { RowBox[{"{", RowBox[{"39", ",", "2", ",", "9", ",", "38"}], "}"}]}, { RowBox[{"{", RowBox[{"40", ",", "9", ",", "41", ",", "64"}], "}"}]}, { RowBox[{"{", RowBox[{"41", ",", "37", ",", "40", ",", "65"}], "}"}]}, { RowBox[{"{", RowBox[{"42", ",", "12"}], "}"}]}, { RowBox[{"{", RowBox[{"43", ",", "13"}], "}"}]}, { RowBox[{"{", RowBox[{"44", ",", "14"}], "}"}]}, { RowBox[{"{", RowBox[{"45", ",", "16"}], "}"}]}, { RowBox[{"{", RowBox[{"46", ",", "17"}], "}"}]}, { RowBox[{"{", RowBox[{"47", ",", "18"}], "}"}]}, { RowBox[{"{", RowBox[{"48", ",", "20"}], "}"}]}, { RowBox[{"{", RowBox[{"49", ",", "21"}], "}"}]}, { RowBox[{"{", RowBox[{"50", ",", "22"}], "}"}]}, { RowBox[{"{", RowBox[{"51", ",", "23"}], "}"}]}, { RowBox[{"{", RowBox[{"52", ",", "25"}], "}"}]}, { RowBox[{"{", RowBox[{"53", ",", "26"}], "}"}]}, { RowBox[{"{", RowBox[{"54", ",", "27"}], "}"}]}, { RowBox[{"{", RowBox[{"55", ",", "28"}], "}"}]}, { RowBox[{"{", RowBox[{"56", ",", "30"}], "}"}]}, { RowBox[{"{", RowBox[{"57", ",", "31"}], "}"}]}, { RowBox[{"{", RowBox[{"58", ",", "32"}], "}"}]}, { RowBox[{"{", RowBox[{"59", ",", "33"}], "}"}]}, { RowBox[{"{", RowBox[{"60", ",", "35"}], "}"}]}, { RowBox[{"{", RowBox[{"61", ",", "36"}], "}"}]}, { RowBox[{"{", RowBox[{"62", ",", "37"}], "}"}]}, { RowBox[{"{", RowBox[{"63", ",", "38"}], "}"}]}, { RowBox[{"{", RowBox[{"64", ",", "40"}], "}"}]}, { RowBox[{"{", RowBox[{"65", ",", "41"}], "}"}]} }, 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.5728722979105444`*^9, {3.5728738881149373`*^9, 3.5728739139017825`*^9}, 3.572925732464686*^9, 3.572925766332345*^9, 3.580058172768527*^9}] }, Open ]], Cell[BoxData[{ RowBox[{ RowBox[{ RowBox[{"Clear", "[", RowBox[{ "c", ",", "v", ",", "p", ",", "Q", ",", "P", ",", "v1", ",", "v2", ",", "nk", ",", "nl"}], "]"}], ";"}], " ", RowBox[{"(*", RowBox[{ RowBox[{"c1", "=", "20"}], ";", " ", RowBox[{"c2", "=", "21"}], ";", " ", RowBox[{"c3", "=", "51"}], ";"}], "*)"}], " "}], "\[IndentingNewLine]", RowBox[{ RowBox[{"rpo", "=", "1.4"}], ";"}], "\[IndentingNewLine]", RowBox[{ RowBox[{"rpi", "=", "1.4"}], ";"}], "\[IndentingNewLine]", RowBox[{ RowBox[{"tpo", "=", RowBox[{"Table", "[", RowBox[{ RowBox[{"{", RowBox[{"0", ",", "0", ",", "0"}], "}"}], ",", RowBox[{"{", "nj", "}"}]}], "]"}]}], ";"}], "\[IndentingNewLine]", RowBox[{ RowBox[{"tpu", "=", RowBox[{"Table", "[", RowBox[{ RowBox[{"{", RowBox[{"0", ",", "0", ",", "0"}], "}"}], ",", RowBox[{"{", "nj", "}"}]}], "]"}]}], ";"}], "\[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}], Cell[BoxData[ RowBox[{"\[IndentingNewLine]", RowBox[{ RowBox[{ RowBox[{"Do", "[", RowBox[{ RowBox[{"(", RowBox[{ RowBox[{"c", "=", RowBox[{"conn", "[", RowBox[{"[", RowBox[{"conj", "[", RowBox[{"[", "k", "]"}], "]"}], "]"}], "]"}]}], ";", "\n", RowBox[{"c", "=", RowBox[{"Take", "[", RowBox[{"c", ",", "P"}], "]"}]}], ";", "\n", RowBox[{"v", "=", RowBox[{"Table", "[", RowBox[{ RowBox[{"Join", "[", RowBox[{ RowBox[{"t", "[", RowBox[{"[", RowBox[{"c", "[", RowBox[{"[", "i", "]"}], "]"}], "]"}], "]"}], ",", RowBox[{"{", "1", "}"}]}], "]"}], ",", RowBox[{"{", RowBox[{"i", ",", "1", ",", "P"}], "}"}]}], "]"}]}], ";", "\n", RowBox[{"x2", "=", RowBox[{"t", "[", RowBox[{"[", RowBox[{ RowBox[{"c", "[", RowBox[{"[", "2", "]"}], "]"}], ",", "1"}], "]"}], "]"}]}], ";", "\[IndentingNewLine]", RowBox[{"y2", "=", RowBox[{"t", "[", RowBox[{"[", RowBox[{ RowBox[{"c", "[", RowBox[{"[", "2", "]"}], "]"}], ",", "2"}], "]"}], "]"}]}], ";", " ", "\[IndentingNewLine]", RowBox[{"z2", "=", RowBox[{"t", "[", RowBox[{"[", RowBox[{ RowBox[{"c", "[", RowBox[{"[", "2", "]"}], "]"}], ",", "3"}], "]"}], "]"}]}], ";", "\[IndentingNewLine]", RowBox[{"Q", "=", RowBox[{"{", RowBox[{ RowBox[{"{", RowBox[{"1", ",", "0", ",", "0", ",", "0"}], "}"}], ",", "\[IndentingNewLine]", RowBox[{"{", RowBox[{"0", ",", "1", ",", "0", ",", "0"}], "}"}], ",", "\[IndentingNewLine]", RowBox[{"{", RowBox[{"0", ",", "0", ",", "1", ",", "0"}], "}"}], ",", "\[IndentingNewLine]", RowBox[{"{", RowBox[{ RowBox[{"-", "x2"}], ",", RowBox[{"-", "y2"}], ",", RowBox[{"-", "z2"}], ",", "1"}], "}"}]}], "}"}]}], ";", "\n", RowBox[{"p", "=", RowBox[{"v", ".", "Q"}]}], ";", "\[IndentingNewLine]", RowBox[{"p", "=", RowBox[{"Table", "[", RowBox[{ RowBox[{"Take", "[", RowBox[{ RowBox[{"p", "[", RowBox[{"[", "i", "]"}], "]"}], ",", "3"}], "]"}], ",", RowBox[{"{", RowBox[{"i", ",", "1", ",", "P"}], "}"}]}], "]"}]}], ";", "\n", RowBox[{"T1", "=", RowBox[{"ArcTan", "[", RowBox[{ RowBox[{"p", "[", RowBox[{"[", RowBox[{"1", ",", "3"}], "]"}], "]"}], "/", RowBox[{"p", "[", RowBox[{"[", RowBox[{"1", ",", "2"}], "]"}], "]"}]}], "]"}]}], ";", "\n", RowBox[{"U", "=", "p"}], ";", "\n", RowBox[{"T", "=", RowBox[{"RotationMatrix", "[", RowBox[{"T1", ",", RowBox[{"{", RowBox[{"1", ",", "0", ",", "0"}], "}"}]}], "]"}]}], ";", "\[IndentingNewLine]", RowBox[{"p", "=", RowBox[{"U", ".", "T"}]}], ";", "\n", RowBox[{"T2", "=", RowBox[{"ArcTan", "[", RowBox[{ RowBox[{"p", "[", RowBox[{"[", RowBox[{"1", ",", "2"}], "]"}], "]"}], "/", RowBox[{"p", "[", RowBox[{"[", RowBox[{"1", ",", "1"}], "]"}], "]"}]}], "]"}]}], ";", "\n", RowBox[{"U", "=", "p"}], ";", "\[IndentingNewLine]", RowBox[{"T", "=", RowBox[{"RotationMatrix", "[", RowBox[{"T2", ",", RowBox[{"{", RowBox[{"0", ",", "0", ",", "1"}], "}"}]}], "]"}]}], ";", "\[IndentingNewLine]", RowBox[{"p", "=", RowBox[{"U", ".", "T"}]}], ";", "\n", RowBox[{"T3", "=", RowBox[{"ArcTan", "[", RowBox[{ RowBox[{"p", "[", RowBox[{"[", RowBox[{"3", ",", "3"}], "]"}], "]"}], "/", RowBox[{"p", "[", RowBox[{"[", RowBox[{"3", ",", "2"}], "]"}], "]"}]}], "]"}]}], ";", "\n", RowBox[{"U", "=", "p"}], ";", "\n", RowBox[{"T", "=", RowBox[{"RotationMatrix", "[", RowBox[{"T3", ",", RowBox[{"{", RowBox[{"1", ",", "0", ",", "0"}], "}"}]}], "]"}]}], ";", "\[IndentingNewLine]", RowBox[{"p", "=", RowBox[{"Chop", "[", RowBox[{"U", ".", "T"}], "]"}]}], ";", "\n", RowBox[{"nk", "=", "p"}], ";", "\[IndentingNewLine]", RowBox[{"nl", "=", "p"}], ";", "\[IndentingNewLine]", RowBox[{ RowBox[{"nk", "[", RowBox[{"[", RowBox[{"1", ",", "3"}], "]"}], "]"}], "=", "rpo"}], ";", "\[IndentingNewLine]", RowBox[{ RowBox[{"nl", "[", RowBox[{"[", RowBox[{"1", ",", "3"}], "]"}], "]"}], "=", RowBox[{"-", "rpi"}]}], ";", "\n", RowBox[{"U", "=", "p"}], ";", "\n", RowBox[{"U1", "=", "nk"}], ";", "\[IndentingNewLine]", RowBox[{"U2", "=", "nl"}], ";", "\[IndentingNewLine]", RowBox[{"T", "=", RowBox[{"RotationMatrix", "[", RowBox[{ RowBox[{"-", "T3"}], ",", RowBox[{"{", RowBox[{"1", ",", "0", ",", "0"}], "}"}]}], "]"}]}], ";", "\[IndentingNewLine]", RowBox[{"p", "=", RowBox[{"U", ".", "T"}]}], ";", "\n", RowBox[{"nk", "=", RowBox[{"U1", ".", "T"}]}], ";", "\[IndentingNewLine]", RowBox[{"nl", "=", RowBox[{"U2", ".", "T"}]}], ";", "\n", RowBox[{"U", "=", "p"}], ";", "\n", RowBox[{"U1", "=", "nk"}], ";", "\[IndentingNewLine]", RowBox[{"U2", "=", "nl"}], ";", "\[IndentingNewLine]", RowBox[{"T", "=", RowBox[{"RotationMatrix", "[", RowBox[{ RowBox[{"-", "T2"}], ",", RowBox[{"{", RowBox[{"0", ",", "0", ",", "1"}], "}"}]}], "]"}]}], ";", "\[IndentingNewLine]", RowBox[{"p", "=", RowBox[{"U", ".", "T"}]}], ";", "\n", RowBox[{"nk", "=", RowBox[{"U1", ".", "T"}]}], ";", "\[IndentingNewLine]", RowBox[{"nl", "=", RowBox[{"U2", ".", "T"}]}], ";", "\n", RowBox[{"U", "=", "p"}], ";", "\n", RowBox[{"U1", "=", "nk"}], ";", "\[IndentingNewLine]", RowBox[{"U2", "=", "nl"}], ";", "\[IndentingNewLine]", RowBox[{"T", "=", RowBox[{"RotationMatrix", "[", RowBox[{ RowBox[{"-", "T1"}], ",", RowBox[{"{", RowBox[{"1", ",", "0", ",", "0"}], "}"}]}], "]"}]}], ";", "\[IndentingNewLine]", RowBox[{"p", "=", RowBox[{"U", ".", "T"}]}], ";", "\n", RowBox[{"nk", "=", RowBox[{"U1", ".", "T"}]}], ";", "\[IndentingNewLine]", RowBox[{"nl", "=", RowBox[{"U2", ".", "T"}]}], ";", "\n", RowBox[{"Clear", "[", RowBox[{"v", ",", "v1", ",", "v2"}], "]"}], ";", "\[IndentingNewLine]", RowBox[{"v", " ", "=", RowBox[{"Table", "[", RowBox[{ RowBox[{"Join", "[", RowBox[{ RowBox[{"p", "[", RowBox[{"[", "i", "]"}], "]"}], ",", RowBox[{"{", "1", "}"}]}], "]"}], ",", RowBox[{"{", RowBox[{"i", ",", "1", ",", "P"}], "}"}]}], "]"}]}], ";", "\[IndentingNewLine]", RowBox[{"v1", "=", RowBox[{"Table", "[", RowBox[{ RowBox[{"Join", "[", RowBox[{ RowBox[{"nk", "[", RowBox[{"[", "i", "]"}], "]"}], ",", RowBox[{"{", "1", "}"}]}], "]"}], ",", RowBox[{"{", RowBox[{"i", ",", "1", ",", "P"}], "}"}]}], "]"}]}], ";", "\[IndentingNewLine]", RowBox[{"v2", "=", RowBox[{"Table", "[", RowBox[{ RowBox[{"Join", "[", RowBox[{ RowBox[{"nl", "[", RowBox[{"[", "i", "]"}], "]"}], ",", RowBox[{"{", "1", "}"}]}], "]"}], ",", RowBox[{"{", RowBox[{"i", ",", "1", ",", "P"}], "}"}]}], "]"}]}], ";", "\n", RowBox[{"Q", "=", RowBox[{"{", RowBox[{ RowBox[{"{", RowBox[{"1", ",", "0", ",", "0", ",", "0"}], "}"}], ",", "\[IndentingNewLine]", RowBox[{"{", RowBox[{"0", ",", "1", ",", "0", ",", "0"}], "}"}], ",", "\[IndentingNewLine]", RowBox[{"{", RowBox[{"0", ",", "0", ",", "1", ",", "0"}], "}"}], ",", "\[IndentingNewLine]", RowBox[{"{", RowBox[{"x2", ",", "y2", ",", "z2", ",", "1"}], "}"}]}], "}"}]}], ";", "\[IndentingNewLine]", RowBox[{"p", "=", RowBox[{"v", ".", "Q"}]}], ";", "\[IndentingNewLine]", RowBox[{"nk", "=", RowBox[{"v1", ".", "Q"}]}], ";", "\[IndentingNewLine]", RowBox[{"nl", "=", RowBox[{"v2", ".", "Q"}]}], ";", "\[IndentingNewLine]", RowBox[{"p", "=", RowBox[{"Table", "[", RowBox[{ RowBox[{"Take", "[", RowBox[{ RowBox[{"p", "[", RowBox[{"[", "i", "]"}], "]"}], ",", "3"}], "]"}], ",", RowBox[{"{", RowBox[{"i", ",", "1", ",", "P"}], "}"}]}], "]"}]}], ";", "\[IndentingNewLine]", RowBox[{"nk", "=", RowBox[{"Table", "[", RowBox[{ RowBox[{"Take", "[", RowBox[{ RowBox[{"nk", "[", RowBox[{"[", "i", "]"}], "]"}], ",", "3"}], "]"}], ",", RowBox[{"{", RowBox[{"i", ",", "1", ",", "P"}], "}"}]}], "]"}]}], ";", "\[IndentingNewLine]", RowBox[{"nl", "=", RowBox[{"Table", "[", RowBox[{ RowBox[{"Take", "[", RowBox[{ RowBox[{"nl", "[", RowBox[{"[", "i", "]"}], "]"}], ",", "3"}], "]"}], ",", RowBox[{"{", RowBox[{"i", ",", "1", ",", "P"}], "}"}]}], "]"}]}], ";", "\[IndentingNewLine]", RowBox[{ RowBox[{"tpo", "[", RowBox[{"[", "k", "]"}], "]"}], "=", RowBox[{"nk", "[", RowBox[{"[", "1", "]"}], "]"}]}], ";", "\[IndentingNewLine]", RowBox[{ RowBox[{"tpu", "[", RowBox[{"[", "k", "]"}], "]"}], "=", RowBox[{"nl", "[", RowBox[{"[", "1", "]"}], "]"}]}]}], ")"}], ",", RowBox[{"{", RowBox[{"k", ",", "nj"}], "}"}]}], "]"}], ";"}], "\[IndentingNewLine]"}]}]], "Input", CellChangeTimes->{{3.572794697520533*^9, 3.5727947043221455`*^9}, { 3.5727948024151173`*^9, 3.572794803507119*^9}, {3.5727948673580313`*^9, 3.572794869838436*^9}, {3.572795260993526*^9, 3.5727952676703377`*^9}, { 3.5727954366342344`*^9, 3.5727954702834935`*^9}, {3.5727973545484033`*^9, 3.5727973657024226`*^9}}], 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.2236569283537577`"}], "}"}], ",", RowBox[{"{", RowBox[{"3", ",", "1", ",", "1.2243794024019967`"}], "}"}], ",", RowBox[{"{", RowBox[{"4", ",", "1", ",", "1.2251226245123403`"}], "}"}], ",", RowBox[{"{", RowBox[{"5", ",", "1", ",", "1.2239061387970283`"}], "}"}], ",", RowBox[{"{", RowBox[{"6", ",", "4", ",", "1.175346990187132`"}], "}"}], ",", RowBox[{"{", RowBox[{"7", ",", "4", ",", "1.1756158391200888`"}], "}"}], ",", RowBox[{"{", RowBox[{"8", ",", "2", ",", "1.1752209693580422`"}], "}"}], ",", RowBox[{"{", RowBox[{"9", ",", "3", ",", "1.1760146530378608`"}], "}"}], ",", RowBox[{"{", RowBox[{"10", ",", "5", ",", "1.1751785440076665`"}], "}"}], ",", RowBox[{"{", RowBox[{"11", ",", "5", ",", "1.1750069580679772`"}], "}"}], ",", RowBox[{"{", RowBox[{"13", ",", "12", ",", "1.0610880592721497`"}], "}"}], ",", RowBox[{"{", RowBox[{"14", ",", "10", ",", "1.0543518170378767`"}], "}"}], ",", RowBox[{"{", RowBox[{"14", ",", "13", ",", "1.0734662052872366`"}], "}"}], ",", RowBox[{"{", RowBox[{"15", ",", "3", ",", "1.1757683307431386`"}], "}"}], ",", RowBox[{"{", RowBox[{"15", ",", "10", ",", "1.089029029160137`"}], "}"}], ",", RowBox[{"{", RowBox[{"16", ",", "12", ",", "1.0735766879918474`"}], "}"}], ",", RowBox[{"{", RowBox[{"16", ",", "15", ",", "1.0543467061144824`"}], "}"}], ",", RowBox[{"{", RowBox[{"18", ",", "17", ",", "1.0734947503308476`"}], "}"}], ",", RowBox[{"{", RowBox[{"19", ",", "3", ",", "1.1743360154872848`"}], "}"}], ",", RowBox[{"{", RowBox[{"19", ",", "6", ",", "1.0889921831991765`"}], "}"}], ",", RowBox[{"{", RowBox[{"19", ",", "18", ",", "1.0544485800918277`"}], "}"}], ",", RowBox[{"{", RowBox[{"20", ",", "6", ",", "1.0541163531320699`"}], "}"}], ",", RowBox[{"{", RowBox[{"21", ",", "17", ",", "1.061254490151145`"}], "}"}], ",", RowBox[{"{", RowBox[{"21", ",", "20", ",", "1.0739201667454104`"}], "}"}], ",", RowBox[{"{", RowBox[{"23", ",", "22", ",", "1.0734651978039091`"}], "}"}], ",", RowBox[{"{", RowBox[{"24", ",", "2", ",", "1.175995322947214`"}], "}"}], ",", RowBox[{"{", RowBox[{"24", ",", "7", ",", "1.0895311622132113`"}], "}"}], ",", RowBox[{"{", RowBox[{"24", ",", "23", ",", "1.0542877586901385`"}], "}"}], ",", RowBox[{"{", RowBox[{"25", ",", "7", ",", "1.05398684698047`"}], "}"}], ",", RowBox[{"{", RowBox[{"26", ",", "22", ",", "1.0613300719758758`"}], "}"}], ",", RowBox[{"{", RowBox[{"26", ",", "25", ",", "1.0733194405020343`"}], "}"}], ",", RowBox[{"{", RowBox[{"28", ",", "27", ",", "1.0737835245374179`"}], "}"}], ",", RowBox[{"{", RowBox[{"29", ",", "5", ",", "1.175352604718308`"}], "}"}], ",", RowBox[{"{", RowBox[{"29", ",", "8", ",", "1.0894292904929623`"}], "}"}], ",", RowBox[{"{", RowBox[{"29", ",", "28", ",", "1.0544121244281823`"}], "}"}], ",", RowBox[{"{", RowBox[{"30", ",", "8", ",", "1.0535883648432236`"}], "}"}], ",", RowBox[{"{", RowBox[{"31", ",", "27", ",", "1.0607436059531201`"}], "}"}], ",", RowBox[{"{", RowBox[{"31", ",", "30", ",", "1.0735266528894623`"}], "}"}], ",", RowBox[{"{", RowBox[{"33", ",", "32", ",", "1.0731998672775656`"}], "}"}], ",", RowBox[{"{", RowBox[{"34", ",", "4", ",", "1.1753610264737708`"}], "}"}], ",", RowBox[{"{", RowBox[{"34", ",", "11", ",", "1.0897707128617673`"}], "}"}], ",", RowBox[{"{", RowBox[{"34", ",", "33", ",", "1.0538447162807238`"}], "}"}], ",", RowBox[{"{", RowBox[{"35", ",", "11", ",", "1.0545943926035333`"}], "}"}], ",", RowBox[{"{", RowBox[{"36", ",", "32", ",", "1.0604787631343173`"}], "}"}], ",", RowBox[{"{", RowBox[{"36", ",", "35", ",", "1.0737230886149016`"}], "}"}], ",", RowBox[{"{", RowBox[{"38", ",", "37", ",", "1.0737600220051218`"}], "}"}], ",", RowBox[{"{", RowBox[{"39", ",", "2", ",", "1.175313926390049`"}], "}"}], ",", RowBox[{"{", RowBox[{"39", ",", "9", ",", "1.0890648783153116`"}], "}"}], ",", RowBox[{"{", RowBox[{"39", ",", "38", ",", "1.0536572301329332`"}], "}"}], ",", RowBox[{"{", RowBox[{"40", ",", "9", ",", "1.0540901121305515`"}], "}"}], ",", RowBox[{"{", RowBox[{"41", ",", "37", ",", "1.0616513310624884`"}], "}"}], ",", RowBox[{"{", RowBox[{"41", ",", "40", ",", "1.07316090289154`"}], "}"}], ",", RowBox[{"{", RowBox[{"42", ",", "12", ",", "1.2322533035670515`"}], "}"}], ",", RowBox[{"{", RowBox[{"43", ",", "13", ",", "1.231824517986182`"}], "}"}], ",", RowBox[{"{", RowBox[{"44", ",", "14", ",", "1.2289300471966444`"}], "}"}], ",", RowBox[{"{", RowBox[{"45", ",", "16", ",", "1.227633510477946`"}], "}"}], ",", RowBox[{"{", RowBox[{"46", ",", "17", ",", "1.231789794593869`"}], "}"}], ",", RowBox[{"{", RowBox[{"47", ",", "18", ",", "1.2303421755691821`"}], "}"}], ",", RowBox[{"{", RowBox[{"48", ",", "20", ",", "1.2288196430270548`"}], "}"}], ",", RowBox[{"{", RowBox[{"49", ",", "21", ",", "1.2325917553811911`"}], "}"}], ",", RowBox[{"{", RowBox[{"50", ",", "22", ",", "1.231360044090271`"}], "}"}], ",", RowBox[{"{", RowBox[{"51", ",", "23", ",", "1.2300016155629119`"}], "}"}], ",", RowBox[{"{", RowBox[{"52", ",", "25", ",", "1.228686628546821`"}], "}"}], ",", RowBox[{"{", RowBox[{"53", ",", "26", ",", "1.2303248014247434`"}], "}"}], ",", RowBox[{"{", RowBox[{"54", ",", "27", ",", "1.2328850352609764`"}], "}"}], ",", RowBox[{"{", RowBox[{"55", ",", "28", ",", "1.2292768689363953`"}], "}"}], ",", RowBox[{"{", RowBox[{"56", ",", "30", ",", "1.2305046167139322`"}], "}"}], ",", RowBox[{"{", RowBox[{"57", ",", "31", ",", "1.2319009073859166`"}], "}"}], ",", RowBox[{"{", RowBox[{"58", ",", "32", ",", "1.2323105839419313`"}], "}"}], ",", RowBox[{"{", RowBox[{"59", ",", "33", ",", "1.2292125505303635`"}], "}"}], ",", RowBox[{"{", RowBox[{"60", ",", "35", ",", "1.2291499685266358`"}], "}"}], ",", RowBox[{"{", RowBox[{"61", ",", "36", ",", "1.2311169131218542`"}], "}"}], ",", RowBox[{"{", RowBox[{"62", ",", "37", ",", "1.2306505421971443`"}], "}"}], ",", RowBox[{"{", RowBox[{"63", ",", "38", ",", "1.2292099429849404`"}], "}"}], ",", RowBox[{"{", RowBox[{"64", ",", "40", ",", "1.2279979452324663`"}], "}"}], ",", RowBox[{"{", RowBox[{"65", ",", "41", ",", "1.231985106051022`"}], "}"}]}], "}"}]], "Output", CellChangeTimes->{ 3.5728722980509443`*^9, {3.5728738882553377`*^9, 3.5728739140265827`*^9}, 3.572925732636286*^9, 3.5729257664571457`*^9, 3.5800581729025345`*^9}], Cell[BoxData["76"], "Output", CellChangeTimes->{ 3.5728722980509443`*^9, {3.5728738882553377`*^9, 3.5728739140265827`*^9}, 3.572925732636286*^9, 3.5729257664571457`*^9, 3.580058172905535*^9}], Cell[BoxData["52"], "Output", CellChangeTimes->{ 3.5728722980509443`*^9, {3.5728738882553377`*^9, 3.5728739140265827`*^9}, 3.572925732636286*^9, 3.5729257664571457`*^9, 3.580058172906535*^9}] }, Open ]], Cell[BoxData[{ RowBox[{ RowBox[{"wxc", "=", RowBox[{"Table", "[", RowBox[{ RowBox[{ RowBox[{ RowBox[{ RowBox[{"(", RowBox[{ RowBox[{"a", "[", RowBox[{"[", RowBox[{"i", ",", "3"}], "]"}], "]"}], "+", RowBox[{"u2", "[", RowBox[{"[", RowBox[{"a", "[", RowBox[{"[", RowBox[{"i", ",", "1"}], "]"}], "]"}], "]"}], "]"}]}], ")"}], "/", RowBox[{"(", RowBox[{ RowBox[{"u2", "[", RowBox[{"[", RowBox[{"a", "[", RowBox[{"[", RowBox[{"i", ",", "1"}], "]"}], "]"}], "]"}], "]"}], "+", RowBox[{"2", "*", RowBox[{"a", "[", RowBox[{"[", RowBox[{"i", ",", "3"}], "]"}], "]"}]}], "+", RowBox[{"u2", "[", RowBox[{"[", RowBox[{"a", "[", RowBox[{"[", RowBox[{"i", ",", "2"}], "]"}], "]"}], "]"}], "]"}]}], ")"}]}], "*", RowBox[{"(", RowBox[{ RowBox[{"x", "[", RowBox[{"[", RowBox[{"a", "[", RowBox[{"[", RowBox[{"i", ",", "2"}], "]"}], "]"}], "]"}], "]"}], "-", RowBox[{"x", "[", RowBox[{"[", RowBox[{"a", "[", RowBox[{"[", RowBox[{"i", ",", "1"}], "]"}], "]"}], "]"}], "]"}]}], ")"}]}], "+", RowBox[{"x", "[", RowBox[{"[", RowBox[{"a", "[", RowBox[{"[", RowBox[{"i", ",", "1"}], "]"}], "]"}], "]"}], "]"}]}], ",", RowBox[{"{", RowBox[{"i", ",", "1", ",", "cw"}], "}"}]}], "]"}]}], ";"}], "\n", RowBox[{ RowBox[{ RowBox[{"wyc", "=", RowBox[{"Table", "[", RowBox[{ RowBox[{ RowBox[{ RowBox[{ RowBox[{"(", RowBox[{ RowBox[{"a", "[", RowBox[{"[", RowBox[{"i", ",", "3"}], "]"}], "]"}], "+", RowBox[{"u2", "[", RowBox[{"[", RowBox[{"a", "[", RowBox[{"[", RowBox[{"i", ",", "1"}], "]"}], "]"}], "]"}], "]"}]}], ")"}], "/", RowBox[{"(", RowBox[{ RowBox[{"u2", "[", RowBox[{"[", RowBox[{"a", "[", RowBox[{"[", RowBox[{"i", ",", "1"}], "]"}], "]"}], "]"}], "]"}], "+", RowBox[{"2", "*", RowBox[{"a", "[", RowBox[{"[", RowBox[{"i", ",", "3"}], "]"}], "]"}]}], "+", RowBox[{"u2", "[", RowBox[{"[", RowBox[{"a", "[", RowBox[{"[", RowBox[{"i", ",", "2"}], "]"}], "]"}], "]"}], "]"}]}], ")"}]}], "*", RowBox[{"(", RowBox[{ RowBox[{"y", "[", RowBox[{"[", RowBox[{"a", "[", RowBox[{"[", RowBox[{"i", ",", "2"}], "]"}], "]"}], "]"}], "]"}], "-", RowBox[{"y", "[", RowBox[{"[", RowBox[{"a", "[", RowBox[{"[", RowBox[{"i", ",", "1"}], "]"}], "]"}], "]"}], "]"}]}], ")"}]}], "+", RowBox[{"y", "[", RowBox[{"[", RowBox[{"a", "[", RowBox[{"[", RowBox[{"i", ",", "1"}], "]"}], "]"}], "]"}], "]"}]}], ",", RowBox[{"{", RowBox[{"i", ",", "1", ",", "cw"}], "}"}]}], "]"}]}], ";"}], " "}], "\n", RowBox[{ RowBox[{"wzc", "=", RowBox[{"Table", "[", RowBox[{ RowBox[{ RowBox[{ RowBox[{ RowBox[{"(", RowBox[{ RowBox[{"a", "[", RowBox[{"[", RowBox[{"i", ",", "3"}], "]"}], "]"}], "+", RowBox[{"u2", "[", RowBox[{"[", RowBox[{"a", "[", RowBox[{"[", RowBox[{"i", ",", "1"}], "]"}], "]"}], "]"}], "]"}]}], ")"}], "/", RowBox[{"(", RowBox[{ RowBox[{"u2", "[", RowBox[{"[", RowBox[{"a", "[", RowBox[{"[", RowBox[{"i", ",", "1"}], "]"}], "]"}], "]"}], "]"}], "+", RowBox[{"2", "*", RowBox[{"a", "[", RowBox[{"[", RowBox[{"i", ",", "3"}], "]"}], "]"}]}], "+", RowBox[{"u2", "[", RowBox[{"[", RowBox[{"a", "[", RowBox[{"[", RowBox[{"i", ",", "2"}], "]"}], "]"}], "]"}], "]"}]}], ")"}]}], "*", RowBox[{"(", RowBox[{ RowBox[{"z", "[", RowBox[{"[", RowBox[{"a", "[", RowBox[{"[", RowBox[{"i", ",", "2"}], "]"}], "]"}], "]"}], "]"}], "-", RowBox[{"z", "[", RowBox[{"[", RowBox[{"a", "[", RowBox[{"[", RowBox[{"i", ",", "1"}], "]"}], "]"}], "]"}], "]"}]}], ")"}]}], "+", RowBox[{"z", "[", RowBox[{"[", RowBox[{"a", "[", RowBox[{"[", RowBox[{"i", ",", "1"}], "]"}], "]"}], "]"}], "]"}]}], ",", RowBox[{"{", RowBox[{"i", ",", "1", ",", "cw"}], "}"}]}], "]"}]}], ";"}]}], "Input", CellChangeTimes->{{3.5681365021632137`*^9, 3.5681365171392403`*^9}, { 3.568136560351316*^9, 3.5681365863097615`*^9}, {3.5681369135895367`*^9, 3.5681369265999594`*^9}, {3.568137821916732*^9, 3.5681378378443604`*^9}, { 3.5682072492149415`*^9, 3.5682072529901485`*^9}, 3.568209802830227*^9, { 3.5682216503836985`*^9, 3.5682217583046885`*^9}, {3.5682217912831464`*^9, 3.568221843465238*^9}, {3.5682219760654707`*^9, 3.5682221133457117`*^9}, { 3.568222159615393*^9, 3.5682221693498106`*^9}, {3.5682222565227633`*^9, 3.5682222578487663`*^9}, 3.5682224736283445`*^9, 3.5682227227607822`*^9, 3.5682227558640404`*^9, {3.568222818810151*^9, 3.5682228486062036`*^9}, { 3.5682230057764797`*^9, 3.5682230079916835`*^9}, {3.568223041952943*^9, 3.5682230548229656`*^9}, 3.5682232619601297`*^9, 3.5682233000709963`*^9, { 3.568223536645412*^9, 3.5682235381118145`*^9}, {3.568223591151908*^9, 3.568223591526308*^9}, {3.5682236491528096`*^9, 3.568223657483224*^9}, { 3.568223713222122*^9, 3.5682237532361927`*^9}, {3.568223800379475*^9, 3.568223827648323*^9}, {3.5682238887380304`*^9, 3.5682238893152313`*^9}, { 3.5682240287170763`*^9, 3.5682240612431335`*^9}, 3.5682241088076167`*^9, { 3.568224198772975*^9, 3.5682242396450467`*^9}, {3.568224282170721*^9, 3.5682243185031853`*^9}, {3.568224437890195*^9, 3.568224439590598*^9}, { 3.568224572253231*^9, 3.5682245867144566`*^9}, {3.5682247081762695`*^9, 3.568224733557514*^9}, {3.56822480520844*^9, 3.5682248433505073`*^9}, { 3.568224884206979*^9, 3.5682248959069996`*^9}, {3.568224982830352*^9, 3.5682250047639904`*^9}, {3.56822503870965*^9, 3.5682250803305235`*^9}, { 3.5682251223413973`*^9, 3.568225141451431*^9}, {3.568225234177994*^9, 3.5682252929588966`*^9}, {3.5682253775890455`*^9, 3.568225482140429*^9}, { 3.56822551694409*^9, 3.5682255297205124`*^9}, {3.568225573197789*^9, 3.5682255809666023`*^9}, 3.568225660698343*^9, 3.5682257301964645`*^9, { 3.568225765078126*^9, 3.5682257828933573`*^9}, {3.568225927026843*^9, 3.568225927416844*^9}, {3.568267062420238*^9, 3.568267081358671*^9}, { 3.568267188328059*^9, 3.5682672830358257`*^9}, {3.5682676367040462`*^9, 3.568267747979042*^9}, 3.5682678404716043`*^9, 3.568267882030078*^9, { 3.5682679252577534`*^9, 3.568267996612279*^9}, {3.5682680488879704`*^9, 3.568268061133992*^9}, {3.568268100914062*^9, 3.5682681150944867`*^9}, { 3.5682681672609787`*^9, 3.5682681709113846`*^9}, {3.568268272904364*^9, 3.5682683182536435`*^9}, {3.5682685202739983`*^9, 3.568268599194537*^9}, { 3.5682686348873997`*^9, 3.568268637773405*^9}, {3.5682686944951043`*^9, 3.568268872273017*^9}, {3.5682689420207396`*^9, 3.568269016947671*^9}, { 3.5682695040741262`*^9, 3.568269601153097*^9}, {3.5682696652380095`*^9, 3.5682696728352227`*^9}, {3.5682697489633565`*^9, 3.5682698308635006`*^9}, {3.568271156491429*^9, 3.568271160063835*^9}, { 3.568271244927984*^9, 3.568271369010602*^9}, {3.5682716250070515`*^9, 3.5682717312276382`*^9}, {3.5682717843301315`*^9, 3.5682718576814604`*^9}, {3.568271940673606*^9, 3.5682720536490045`*^9}, { 3.5682722259669075`*^9, 3.5682723223126764`*^9}, {3.568272370813162*^9, 3.568272411466833*^9}, {3.5682725893539457`*^9, 3.568272622238803*^9}, { 3.5682726936713285`*^9, 3.5682726960113325`*^9}, {3.568272741079812*^9, 3.56827275143823*^9}, {3.5682729218373294`*^9, 3.568272991070251*^9}, { 3.5682734285574193`*^9, 3.5682734302890224`*^9}, {3.5682734898811274`*^9, 3.5682735111595645`*^9}, {3.5682736115925407`*^9, 3.5682736313577757`*^9}, {3.5682738601945777`*^9, 3.568273987272401*^9}, { 3.5682763944346285`*^9, 3.5682764313910933`*^9}, 3.5682765128232365`*^9, { 3.5682766527398825`*^9, 3.568276660976697*^9}, {3.5682774496048822`*^9, 3.568277461663703*^9}, {3.5683784032731285`*^9, 3.568378422991563*^9}, { 3.568378459308427*^9, 3.5683784812420654`*^9}, {3.568378513440522*^9, 3.568378867046343*^9}, {3.568378915468828*^9, 3.56837896203491*^9}, { 3.5683790764299107`*^9, 3.568379270041851*^9}, {3.568380233530743*^9, 3.568380234388745*^9}, 3.5683804214954734`*^9, 3.568380471867962*^9, 3.5683805399464817`*^9, {3.5683812396077104`*^9, 3.568381293537005*^9}, { 3.568381339541486*^9, 3.5683813935175805`*^9}, 3.5684646396646404`*^9, 3.5684646988823442`*^9, 3.568465086387025*^9, {3.5684655859935026`*^9, 3.568465605087936*^9}, 3.568821235038273*^9, 3.5688233741452303`*^9, 3.568823449742963*^9, 3.5688274593312387`*^9, {3.5688284679978104`*^9, 3.5688284689026117`*^9}, {3.5688285131598897`*^9, 3.5688285201487017`*^9}, 3.5688285866360188`*^9, {3.5688292397623663`*^9, 3.568829246688778*^9}, { 3.5688780328231993`*^9, 3.568878075458074*^9}, 3.5688953020257144`*^9, 3.5693395777359695`*^9, {3.569339615191635*^9, 3.569339617079238*^9}, { 3.5693396917877693`*^9, 3.56933969216217*^9}, 3.5693893483274703`*^9}], Cell[BoxData[ RowBox[{ RowBox[{"Plot7", "=", RowBox[{"Table", "[", RowBox[{ RowBox[{"Graphics3D", "[", RowBox[{"{", RowBox[{ RowBox[{"Darker", "[", RowBox[{"Brown", ",", "0.4"}], "]"}], ",", RowBox[{"Opacity", "[", "0.5", "]"}], ",", RowBox[{"If", "[", RowBox[{ RowBox[{ RowBox[{"wxc", "[", RowBox[{"[", "i", "]"}], "]"}], "\[NotEqual]", "0"}], ",", RowBox[{"Sphere", "[", RowBox[{ RowBox[{"{", RowBox[{ RowBox[{"wxc", "[", RowBox[{"[", "i", "]"}], "]"}], ",", RowBox[{"wyc", "[", RowBox[{"[", "i", "]"}], "]"}], ",", RowBox[{"wzc", "[", RowBox[{"[", "i", "]"}], "]"}]}], "}"}], ",", RowBox[{"a", "[", RowBox[{"[", RowBox[{"i", ",", "3"}], "]"}], "]"}]}], "]"}]}], "]"}]}], "}"}], "]"}], ",", RowBox[{"{", RowBox[{"i", ",", "1", ",", "cw"}], "}"}]}], "]"}]}], ";"}]], "Input", CellChangeTimes->{{3.5681365021632137`*^9, 3.5681365171392403`*^9}, { 3.568136560351316*^9, 3.5681365863097615`*^9}, {3.5681369135895367`*^9, 3.5681369265999594`*^9}, {3.568137821916732*^9, 3.5681378378443604`*^9}, { 3.5682072492149415`*^9, 3.5682072529901485`*^9}, 3.568209802830227*^9, { 3.5682216503836985`*^9, 3.5682217583046885`*^9}, {3.5682217912831464`*^9, 3.568221843465238*^9}, {3.5682219760654707`*^9, 3.5682221133457117`*^9}, { 3.568222159615393*^9, 3.5682221693498106`*^9}, {3.5682222565227633`*^9, 3.5682222578487663`*^9}, 3.5682224736283445`*^9, 3.5682227227607822`*^9, 3.5682227558640404`*^9, {3.568222818810151*^9, 3.5682228486062036`*^9}, { 3.5682230057764797`*^9, 3.5682230079916835`*^9}, {3.568223041952943*^9, 3.5682230548229656`*^9}, 3.5682232619601297`*^9, 3.5682233000709963`*^9, { 3.568223536645412*^9, 3.5682235381118145`*^9}, {3.568223591151908*^9, 3.568223591526308*^9}, {3.5682236491528096`*^9, 3.568223657483224*^9}, { 3.568223713222122*^9, 3.5682237532361927`*^9}, {3.568223800379475*^9, 3.568223827648323*^9}, {3.5682238887380304`*^9, 3.5682238893152313`*^9}, { 3.5682240287170763`*^9, 3.5682240612431335`*^9}, 3.5682241088076167`*^9, { 3.568224198772975*^9, 3.5682242396450467`*^9}, {3.568224282170721*^9, 3.5682243185031853`*^9}, {3.568224437890195*^9, 3.568224439590598*^9}, { 3.568224572253231*^9, 3.5682245867144566`*^9}, {3.5682247081762695`*^9, 3.568224733557514*^9}, {3.56822480520844*^9, 3.5682248433505073`*^9}, { 3.568224884206979*^9, 3.5682248959069996`*^9}, {3.568224982830352*^9, 3.5682250047639904`*^9}, {3.56822503870965*^9, 3.5682250803305235`*^9}, { 3.5682251223413973`*^9, 3.568225141451431*^9}, {3.568225234177994*^9, 3.5682252929588966`*^9}, {3.5682253775890455`*^9, 3.568225482140429*^9}, { 3.56822551694409*^9, 3.5682255297205124`*^9}, {3.568225573197789*^9, 3.5682255809666023`*^9}, 3.568225660698343*^9, 3.5682257301964645`*^9, { 3.568225765078126*^9, 3.5682257828933573`*^9}, {3.568225927026843*^9, 3.568225927416844*^9}, {3.568267062420238*^9, 3.568267081358671*^9}, { 3.568267188328059*^9, 3.5682672830358257`*^9}, {3.5682676367040462`*^9, 3.568267747979042*^9}, 3.5682678404716043`*^9, 3.568267882030078*^9, { 3.5682679252577534`*^9, 3.568267996612279*^9}, {3.5682680488879704`*^9, 3.568268061133992*^9}, {3.568268100914062*^9, 3.5682681150944867`*^9}, { 3.5682681672609787`*^9, 3.5682681709113846`*^9}, {3.568268272904364*^9, 3.5682683182536435`*^9}, {3.5682685202739983`*^9, 3.568268599194537*^9}, { 3.5682686348873997`*^9, 3.568268637773405*^9}, {3.5682686944951043`*^9, 3.568268872273017*^9}, {3.5682689420207396`*^9, 3.568269016947671*^9}, { 3.5682695040741262`*^9, 3.568269601153097*^9}, {3.5682696652380095`*^9, 3.5682696728352227`*^9}, {3.5682697489633565`*^9, 3.5682698308635006`*^9}, {3.568271156491429*^9, 3.568271160063835*^9}, { 3.568271244927984*^9, 3.568271369010602*^9}, {3.5682716250070515`*^9, 3.5682717312276382`*^9}, {3.5682717843301315`*^9, 3.5682718576814604`*^9}, {3.568271940673606*^9, 3.5682720536490045`*^9}, { 3.5682722259669075`*^9, 3.5682723223126764`*^9}, {3.568272370813162*^9, 3.568272411466833*^9}, {3.5682725893539457`*^9, 3.568272622238803*^9}, { 3.5682726936713285`*^9, 3.5682726960113325`*^9}, {3.568272741079812*^9, 3.56827275143823*^9}, {3.5682729218373294`*^9, 3.568272991070251*^9}, { 3.5682734285574193`*^9, 3.5682734302890224`*^9}, {3.5682734898811274`*^9, 3.5682735111595645`*^9}, {3.5682736115925407`*^9, 3.5682736313577757`*^9}, {3.5682738601945777`*^9, 3.568273987272401*^9}, { 3.5682763944346285`*^9, 3.5682764313910933`*^9}, 3.5682765128232365`*^9, { 3.5682766527398825`*^9, 3.568276660976697*^9}, {3.5682774496048822`*^9, 3.568277461663703*^9}, {3.5683784032731285`*^9, 3.568378422991563*^9}, { 3.568378459308427*^9, 3.5683784812420654`*^9}, {3.568378513440522*^9, 3.568378867046343*^9}, {3.568378915468828*^9, 3.56837896203491*^9}, { 3.5683790764299107`*^9, 3.568379270041851*^9}, {3.568380233530743*^9, 3.568380234388745*^9}, 3.5683804214954734`*^9, 3.568380471867962*^9, 3.5683805399464817`*^9, {3.5683812396077104`*^9, 3.568381293537005*^9}, { 3.568381339541486*^9, 3.5683813935175805`*^9}, 3.5684646396646404`*^9, 3.5684646988823442`*^9, 3.568465086387025*^9, {3.5684655859935026`*^9, 3.568465605087936*^9}, 3.568821235038273*^9, 3.5688233741452303`*^9, 3.568823449742963*^9, 3.5688274593312387`*^9, {3.5688284679978104`*^9, 3.5688284689026117`*^9}, {3.5688285131598897`*^9, 3.5688285201487017`*^9}, 3.5688285866360188`*^9, {3.5688292397623663`*^9, 3.568829246688778*^9}, { 3.5688780328231993`*^9, 3.56887811871695*^9}, {3.568895331556566*^9, 3.5688953367201753`*^9}, 3.568895995276532*^9, {3.5693397032225895`*^9, 3.56933970331619*^9}, 3.569339737137049*^9, 3.569340055299608*^9, 3.569389360947892*^9, {3.570298060155057*^9, 3.570298071589877*^9}, { 3.5704539766451664`*^9, 3.5704539773627677`*^9}, {3.5709509139026003`*^9, 3.570950950500265*^9}, {3.570950995397144*^9, 3.5709510449896307`*^9}, { 3.570974064815357*^9, 3.5709741190878525`*^9}, {3.5709742487084804`*^9, 3.570974273528124*^9}, {3.5713747544125347`*^9, 3.571374762618149*^9}, 3.5713830670175667`*^9}], Cell[BoxData[{ RowBox[{ RowBox[{"wxh", "=", RowBox[{"Table", "[", RowBox[{ RowBox[{ RowBox[{ RowBox[{ RowBox[{"(", RowBox[{ RowBox[{"a", "[", RowBox[{"[", RowBox[{"i", ",", "3"}], "]"}], "]"}], "+", RowBox[{"u2", "[", RowBox[{"[", RowBox[{"a", "[", RowBox[{"[", RowBox[{"i", ",", "2"}], "]"}], "]"}], "]"}], "]"}]}], ")"}], "/", RowBox[{"(", RowBox[{ RowBox[{"u2", "[", RowBox[{"[", RowBox[{"a", "[", RowBox[{"[", RowBox[{"i", ",", "1"}], "]"}], "]"}], "]"}], "]"}], "+", RowBox[{"a", "[", RowBox[{"[", RowBox[{"i", ",", "3"}], "]"}], "]"}], "+", RowBox[{"u2", "[", RowBox[{"[", RowBox[{"a", "[", RowBox[{"[", RowBox[{"i", ",", "2"}], "]"}], "]"}], "]"}], "]"}]}], ")"}]}], "*", RowBox[{"(", RowBox[{ RowBox[{"x", "[", RowBox[{"[", RowBox[{"a", "[", RowBox[{"[", RowBox[{"i", ",", "1"}], "]"}], "]"}], "]"}], "]"}], "-", RowBox[{"x", "[", RowBox[{"[", RowBox[{"a", "[", RowBox[{"[", RowBox[{"i", ",", "2"}], "]"}], "]"}], "]"}], "]"}]}], ")"}]}], "+", RowBox[{"x", "[", RowBox[{"[", RowBox[{"a", "[", RowBox[{"[", RowBox[{"i", ",", "2"}], "]"}], "]"}], "]"}], "]"}]}], ",", RowBox[{"{", RowBox[{"i", ",", RowBox[{"cw", "+", "1"}], ",", "nb"}], "}"}]}], "]"}]}], ";"}], "\n", RowBox[{ RowBox[{"wyh", "=", RowBox[{"Table", "[", RowBox[{ RowBox[{ RowBox[{ RowBox[{ RowBox[{"(", RowBox[{ RowBox[{"a", "[", RowBox[{"[", RowBox[{"i", ",", "3"}], "]"}], "]"}], "+", RowBox[{"u2", "[", RowBox[{"[", RowBox[{"a", "[", RowBox[{"[", RowBox[{"i", ",", "2"}], "]"}], "]"}], "]"}], "]"}]}], ")"}], "/", RowBox[{"(", RowBox[{ RowBox[{"u2", "[", RowBox[{"[", RowBox[{"a", "[", RowBox[{"[", RowBox[{"i", ",", "1"}], "]"}], "]"}], "]"}], "]"}], "+", RowBox[{"a", "[", RowBox[{"[", RowBox[{"i", ",", "3"}], "]"}], "]"}], "+", RowBox[{"u2", "[", RowBox[{"[", RowBox[{"a", "[", RowBox[{"[", RowBox[{"i", ",", "2"}], "]"}], "]"}], "]"}], "]"}]}], ")"}]}], "*", RowBox[{"(", RowBox[{ RowBox[{"y", "[", RowBox[{"[", RowBox[{"a", "[", RowBox[{"[", RowBox[{"i", ",", "1"}], "]"}], "]"}], "]"}], "]"}], "-", RowBox[{"y", "[", RowBox[{"[", RowBox[{"a", "[", RowBox[{"[", RowBox[{"i", ",", "2"}], "]"}], "]"}], "]"}], "]"}]}], ")"}]}], "+", RowBox[{"y", "[", RowBox[{"[", RowBox[{"a", "[", RowBox[{"[", RowBox[{"i", ",", "2"}], "]"}], "]"}], "]"}], "]"}]}], ",", RowBox[{"{", RowBox[{"i", ",", RowBox[{"cw", "+", "1"}], ",", "nb"}], "}"}]}], "]"}]}], ";"}], "\n", RowBox[{ RowBox[{"wzh", "=", RowBox[{"Table", "[", RowBox[{ RowBox[{ RowBox[{ RowBox[{ RowBox[{"(", RowBox[{ RowBox[{"a", "[", RowBox[{"[", RowBox[{"i", ",", "3"}], "]"}], "]"}], "+", RowBox[{"u2", "[", RowBox[{"[", RowBox[{"a", "[", RowBox[{"[", RowBox[{"i", ",", "2"}], "]"}], "]"}], "]"}], "]"}]}], ")"}], "/", RowBox[{"(", RowBox[{ RowBox[{"u2", "[", RowBox[{"[", RowBox[{"a", "[", RowBox[{"[", RowBox[{"i", ",", "1"}], "]"}], "]"}], "]"}], "]"}], "+", RowBox[{"a", "[", RowBox[{"[", RowBox[{"i", ",", "3"}], "]"}], "]"}], "+", RowBox[{"u2", "[", RowBox[{"[", RowBox[{"a", "[", RowBox[{"[", RowBox[{"i", ",", "2"}], "]"}], "]"}], "]"}], "]"}]}], ")"}]}], "*", RowBox[{"(", RowBox[{ RowBox[{"z", "[", RowBox[{"[", RowBox[{"a", "[", RowBox[{"[", RowBox[{"i", ",", "1"}], "]"}], "]"}], "]"}], "]"}], "-", RowBox[{"z", "[", RowBox[{"[", RowBox[{"a", "[", RowBox[{"[", RowBox[{"i", ",", "2"}], "]"}], "]"}], "]"}], "]"}]}], ")"}]}], "+", RowBox[{"z", "[", RowBox[{"[", RowBox[{"a", "[", RowBox[{"[", RowBox[{"i", ",", "2"}], "]"}], "]"}], "]"}], "]"}]}], ",", RowBox[{"{", RowBox[{"i", ",", RowBox[{"cw", "+", "1"}], ",", "nb"}], "}"}]}], "]"}]}], ";"}]}], "Input", CellChangeTimes->{{3.5681365021632137`*^9, 3.5681365171392403`*^9}, { 3.568136560351316*^9, 3.5681365863097615`*^9}, {3.5681369135895367`*^9, 3.5681369265999594`*^9}, {3.568137821916732*^9, 3.5681378378443604`*^9}, { 3.5682072492149415`*^9, 3.5682072529901485`*^9}, 3.568209802830227*^9, { 3.5682216503836985`*^9, 3.5682217583046885`*^9}, {3.5682217912831464`*^9, 3.568221843465238*^9}, {3.5682219760654707`*^9, 3.5682221133457117`*^9}, { 3.568222159615393*^9, 3.5682221693498106`*^9}, {3.5682222565227633`*^9, 3.5682222578487663`*^9}, 3.5682224736283445`*^9, 3.5682227227607822`*^9, 3.5682227558640404`*^9, {3.568222818810151*^9, 3.5682228486062036`*^9}, { 3.5682230057764797`*^9, 3.5682230079916835`*^9}, {3.568223041952943*^9, 3.5682230548229656`*^9}, 3.5682232619601297`*^9, 3.5682233000709963`*^9, { 3.568223536645412*^9, 3.5682235381118145`*^9}, {3.568223591151908*^9, 3.568223591526308*^9}, {3.5682236491528096`*^9, 3.568223657483224*^9}, { 3.568223713222122*^9, 3.5682237532361927`*^9}, {3.568223800379475*^9, 3.568223827648323*^9}, {3.5682238887380304`*^9, 3.5682238893152313`*^9}, { 3.5682240287170763`*^9, 3.5682240612431335`*^9}, 3.5682241088076167`*^9, { 3.568224198772975*^9, 3.5682242396450467`*^9}, {3.568224282170721*^9, 3.5682243185031853`*^9}, {3.568224437890195*^9, 3.568224439590598*^9}, { 3.568224572253231*^9, 3.5682245867144566`*^9}, {3.5682247081762695`*^9, 3.568224733557514*^9}, {3.56822480520844*^9, 3.5682248433505073`*^9}, { 3.568224884206979*^9, 3.5682248959069996`*^9}, {3.568224982830352*^9, 3.5682250047639904`*^9}, {3.56822503870965*^9, 3.5682250803305235`*^9}, { 3.5682251223413973`*^9, 3.568225141451431*^9}, {3.568225234177994*^9, 3.5682252929588966`*^9}, {3.5682253775890455`*^9, 3.568225482140429*^9}, { 3.56822551694409*^9, 3.5682255297205124`*^9}, {3.568225573197789*^9, 3.5682255809666023`*^9}, 3.568225660698343*^9, 3.5682257301964645`*^9, { 3.568225765078126*^9, 3.5682257828933573`*^9}, {3.568225927026843*^9, 3.568225927416844*^9}, {3.568267062420238*^9, 3.568267081358671*^9}, { 3.568267188328059*^9, 3.5682672830358257`*^9}, {3.5682676367040462`*^9, 3.568267747979042*^9}, 3.5682678404716043`*^9, 3.568267882030078*^9, { 3.5682679252577534`*^9, 3.568267996612279*^9}, {3.5682680488879704`*^9, 3.568268061133992*^9}, {3.568268100914062*^9, 3.5682681150944867`*^9}, { 3.5682681672609787`*^9, 3.5682681709113846`*^9}, {3.568268272904364*^9, 3.5682683182536435`*^9}, {3.5682685202739983`*^9, 3.568268599194537*^9}, { 3.5682686348873997`*^9, 3.568268637773405*^9}, {3.5682686944951043`*^9, 3.568268872273017*^9}, {3.5682689420207396`*^9, 3.568269016947671*^9}, { 3.5682695040741262`*^9, 3.568269601153097*^9}, {3.5682696652380095`*^9, 3.5682696728352227`*^9}, {3.5682697489633565`*^9, 3.5682698308635006`*^9}, {3.568271156491429*^9, 3.568271160063835*^9}, { 3.568271244927984*^9, 3.568271369010602*^9}, {3.5682716250070515`*^9, 3.5682717312276382`*^9}, {3.5682717843301315`*^9, 3.5682718576814604`*^9}, {3.568271940673606*^9, 3.5682720536490045`*^9}, { 3.5682722259669075`*^9, 3.5682723223126764`*^9}, {3.568272370813162*^9, 3.568272411466833*^9}, {3.5682725893539457`*^9, 3.568272622238803*^9}, { 3.5682726936713285`*^9, 3.5682726960113325`*^9}, {3.568272741079812*^9, 3.56827275143823*^9}, {3.5682729218373294`*^9, 3.568272991070251*^9}, { 3.5682734285574193`*^9, 3.5682734302890224`*^9}, {3.5682734898811274`*^9, 3.5682735111595645`*^9}, {3.5682736115925407`*^9, 3.5682736313577757`*^9}, {3.5682738601945777`*^9, 3.568273987272401*^9}, { 3.5682763944346285`*^9, 3.5682764313910933`*^9}, 3.5682765128232365`*^9, { 3.5682766527398825`*^9, 3.568276660976697*^9}, {3.5682774496048822`*^9, 3.568277461663703*^9}, {3.5683784032731285`*^9, 3.568378422991563*^9}, { 3.568378459308427*^9, 3.5683784812420654`*^9}, {3.568378513440522*^9, 3.568378867046343*^9}, {3.568378915468828*^9, 3.56837896203491*^9}, { 3.5683790764299107`*^9, 3.568379270041851*^9}, {3.568380233530743*^9, 3.568380234388745*^9}, 3.5683804214954734`*^9, 3.568380471867962*^9, 3.5683805399464817`*^9, {3.5683812396077104`*^9, 3.568381293537005*^9}, { 3.568381339541486*^9, 3.5683813935175805`*^9}, 3.5684646396646404`*^9, 3.5684646988823442`*^9, 3.568465086387025*^9, {3.5684655859935026`*^9, 3.568465605087936*^9}, 3.568821235038273*^9, 3.5688233741452303`*^9, 3.568823449742963*^9, 3.5688274593312387`*^9, {3.5688284679978104`*^9, 3.5688284689026117`*^9}, {3.5688285131598897`*^9, 3.5688285201487017`*^9}, 3.5688285866360188`*^9, {3.5688292397623663`*^9, 3.568829246688778*^9}, { 3.5688780328231993`*^9, 3.5688781280925665`*^9}, 3.568895312524533*^9, 3.5693395940691977`*^9, {3.5693396336776676`*^9, 3.5693396557829065`*^9}, { 3.569340069402033*^9, 3.569340092412073*^9}, {3.569389186383586*^9, 3.5693891947764006`*^9}, {3.569389263291721*^9, 3.569389289686967*^9}, 3.569389336315449*^9}], Cell[BoxData[ RowBox[{ RowBox[{"Plot8", "=", RowBox[{"Table", "[", RowBox[{ RowBox[{"Graphics3D", "[", RowBox[{"{", RowBox[{ RowBox[{"Opacity", "[", "0.5", "]"}], ",", RowBox[{"Sphere", "[", RowBox[{ RowBox[{"{", RowBox[{ RowBox[{"wxh", "[", RowBox[{"[", "i", "]"}], "]"}], ",", RowBox[{"wyh", "[", RowBox[{"[", "i", "]"}], "]"}], ",", RowBox[{"wzh", "[", RowBox[{"[", "i", "]"}], "]"}]}], "}"}], ",", RowBox[{"a", "[", RowBox[{"[", RowBox[{ RowBox[{"i", "+", "cw"}], ",", "3"}], "]"}], "]"}]}], "]"}]}], "}"}], "]"}], ",", RowBox[{"{", RowBox[{"i", ",", "1", ",", "bh"}], "}"}]}], "]"}]}], ";"}]], "Input", CellChangeTimes->{{3.5681365021632137`*^9, 3.5681365171392403`*^9}, { 3.568136560351316*^9, 3.5681365863097615`*^9}, {3.5681369135895367`*^9, 3.5681369265999594`*^9}, {3.568137821916732*^9, 3.5681378378443604`*^9}, { 3.5682072492149415`*^9, 3.5682072529901485`*^9}, 3.568209802830227*^9, { 3.5682216503836985`*^9, 3.5682217583046885`*^9}, {3.5682217912831464`*^9, 3.568221843465238*^9}, {3.5682219760654707`*^9, 3.5682221133457117`*^9}, { 3.568222159615393*^9, 3.5682221693498106`*^9}, {3.5682222565227633`*^9, 3.5682222578487663`*^9}, 3.5682224736283445`*^9, 3.5682227227607822`*^9, 3.5682227558640404`*^9, {3.568222818810151*^9, 3.5682228486062036`*^9}, { 3.5682230057764797`*^9, 3.5682230079916835`*^9}, {3.568223041952943*^9, 3.5682230548229656`*^9}, 3.5682232619601297`*^9, 3.5682233000709963`*^9, { 3.568223536645412*^9, 3.5682235381118145`*^9}, {3.568223591151908*^9, 3.568223591526308*^9}, {3.5682236491528096`*^9, 3.568223657483224*^9}, { 3.568223713222122*^9, 3.5682237532361927`*^9}, {3.568223800379475*^9, 3.568223827648323*^9}, {3.5682238887380304`*^9, 3.5682238893152313`*^9}, { 3.5682240287170763`*^9, 3.5682240612431335`*^9}, 3.5682241088076167`*^9, { 3.568224198772975*^9, 3.5682242396450467`*^9}, {3.568224282170721*^9, 3.5682243185031853`*^9}, {3.568224437890195*^9, 3.568224439590598*^9}, { 3.568224572253231*^9, 3.5682245867144566`*^9}, {3.5682247081762695`*^9, 3.568224733557514*^9}, {3.56822480520844*^9, 3.5682248433505073`*^9}, { 3.568224884206979*^9, 3.5682248959069996`*^9}, {3.568224982830352*^9, 3.5682250047639904`*^9}, {3.56822503870965*^9, 3.5682250803305235`*^9}, { 3.5682251223413973`*^9, 3.568225141451431*^9}, {3.568225234177994*^9, 3.5682252929588966`*^9}, {3.5682253775890455`*^9, 3.568225482140429*^9}, { 3.56822551694409*^9, 3.5682255297205124`*^9}, {3.568225573197789*^9, 3.5682255809666023`*^9}, 3.568225660698343*^9, 3.5682257301964645`*^9, { 3.568225765078126*^9, 3.5682257828933573`*^9}, {3.568225927026843*^9, 3.568225927416844*^9}, {3.568267062420238*^9, 3.568267081358671*^9}, { 3.568267188328059*^9, 3.5682672830358257`*^9}, {3.5682676367040462`*^9, 3.568267747979042*^9}, 3.5682678404716043`*^9, 3.568267882030078*^9, { 3.5682679252577534`*^9, 3.568267996612279*^9}, {3.5682680488879704`*^9, 3.568268061133992*^9}, {3.568268100914062*^9, 3.5682681150944867`*^9}, { 3.5682681672609787`*^9, 3.5682681709113846`*^9}, {3.568268272904364*^9, 3.5682683182536435`*^9}, {3.5682685202739983`*^9, 3.568268599194537*^9}, { 3.5682686348873997`*^9, 3.568268637773405*^9}, {3.5682686944951043`*^9, 3.568268872273017*^9}, {3.5682689420207396`*^9, 3.568269016947671*^9}, { 3.5682695040741262`*^9, 3.568269601153097*^9}, {3.5682696652380095`*^9, 3.5682696728352227`*^9}, {3.5682697489633565`*^9, 3.5682698308635006`*^9}, {3.568271156491429*^9, 3.568271160063835*^9}, { 3.568271244927984*^9, 3.568271369010602*^9}, {3.5682716250070515`*^9, 3.5682717312276382`*^9}, {3.5682717843301315`*^9, 3.5682718576814604`*^9}, {3.568271940673606*^9, 3.5682720536490045`*^9}, { 3.5682722259669075`*^9, 3.5682723223126764`*^9}, {3.568272370813162*^9, 3.568272411466833*^9}, {3.5682725893539457`*^9, 3.568272622238803*^9}, { 3.5682726936713285`*^9, 3.5682726960113325`*^9}, {3.568272741079812*^9, 3.56827275143823*^9}, {3.5682729218373294`*^9, 3.568272991070251*^9}, { 3.5682734285574193`*^9, 3.5682734302890224`*^9}, {3.5682734898811274`*^9, 3.5682735111595645`*^9}, {3.5682736115925407`*^9, 3.5682736313577757`*^9}, {3.5682738601945777`*^9, 3.568273987272401*^9}, { 3.5682763944346285`*^9, 3.5682764313910933`*^9}, 3.5682765128232365`*^9, { 3.5682766527398825`*^9, 3.568276660976697*^9}, {3.5682774496048822`*^9, 3.568277461663703*^9}, {3.5683784032731285`*^9, 3.568378422991563*^9}, { 3.568378459308427*^9, 3.5683784812420654`*^9}, {3.568378513440522*^9, 3.568378867046343*^9}, {3.568378915468828*^9, 3.56837896203491*^9}, { 3.5683790764299107`*^9, 3.568379270041851*^9}, {3.568380233530743*^9, 3.568380234388745*^9}, 3.5683804214954734`*^9, 3.568380471867962*^9, 3.5683805399464817`*^9, {3.5683812396077104`*^9, 3.568381293537005*^9}, { 3.568381339541486*^9, 3.5683813935175805`*^9}, 3.5684646396646404`*^9, 3.5684646988823442`*^9, 3.568465086387025*^9, {3.5684655859935026`*^9, 3.568465605087936*^9}, 3.568821235038273*^9, 3.5688233741452303`*^9, 3.568823449742963*^9, 3.5688274593312387`*^9, {3.5688284679978104`*^9, 3.5688284689026117`*^9}, {3.5688285131598897`*^9, 3.5688285201487017`*^9}, 3.5688285866360188`*^9, {3.5688292397623663`*^9, 3.568829246688778*^9}, { 3.5688780328231993`*^9, 3.568878147967001*^9}, {3.56889532230575*^9, 3.5688953242557535`*^9}, 3.56889600529175*^9, 3.5688961595292206`*^9, { 3.5693396821781526`*^9, 3.5693396825213532`*^9}, 3.5693893658151007`*^9, { 3.5693895413934093`*^9, 3.5693895427506113`*^9}, {3.5697651043452682`*^9, 3.5697651089940763`*^9}, {3.5704647001766*^9, 3.570464712141821*^9}}], Cell[BoxData[{ RowBox[{ RowBox[{"Plot8a", "=", RowBox[{"Table", "[", RowBox[{ RowBox[{"Graphics3D", "[", RowBox[{"{", RowBox[{ RowBox[{"Opacity", "[", "0.3", "]"}], ",", RowBox[{"Lighter", "[", "Cyan", "]"}], ",", RowBox[{"Sphere", "[", RowBox[{ RowBox[{"tpo", "[", RowBox[{"[", "i", "]"}], "]"}], ",", "rpo"}], "]"}]}], "}"}], "]"}], ",", RowBox[{"{", RowBox[{"i", ",", "1", ",", "nj"}], "}"}]}], "]"}]}], ";"}], "\[IndentingNewLine]", RowBox[{ RowBox[{"Plot8b", "=", RowBox[{"Table", "[", RowBox[{ RowBox[{"Graphics3D", "[", RowBox[{"{", RowBox[{ RowBox[{"Opacity", "[", "0.3", "]"}], ",", RowBox[{"Lighter", "[", "Yellow", "]"}], ",", RowBox[{"Sphere", "[", RowBox[{ RowBox[{"tpu", "[", RowBox[{"[", "i", "]"}], "]"}], ",", "rpi"}], "]"}]}], "}"}], "]"}], ",", RowBox[{"{", RowBox[{"i", ",", "1", ",", "nj"}], "}"}]}], "]"}]}], ";"}]}], "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}}], Cell[CellGroupData[{ Cell[BoxData[{ RowBox[{ RowBox[{ RowBox[{"Plot9", "=", " ", RowBox[{"Table", "[", RowBox[{ RowBox[{"Graphics3D", "[", RowBox[{"{", RowBox[{"If", "[", RowBox[{ RowBox[{"(", RowBox[{ RowBox[{ RowBox[{"a", "[", RowBox[{"[", RowBox[{"i", ",", "3"}], "]"}], "]"}], ">", "0.98"}], " ", "&&", " ", RowBox[{ RowBox[{"a", "[", RowBox[{"[", RowBox[{"i", ",", "3"}], "]"}], "]"}], "<", "1.05"}]}], ")"}], ",", RowBox[{"(", 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[{ RowBox[{"y", "[", RowBox[{"[", RowBox[{"a", "[", RowBox[{"[", RowBox[{"i", ",", "1"}], "]"}], "]"}], "]"}], "]"}], "+", "0.12"}], ",", RowBox[{"z", "[", RowBox[{"[", RowBox[{"a", "[", RowBox[{"[", RowBox[{"i", ",", "1"}], "]"}], "]"}], "]"}], "]"}]}], "}"}], ",", RowBox[{"{", RowBox[{ RowBox[{"x", "[", RowBox[{"[", RowBox[{"a", "[", RowBox[{"[", RowBox[{"i", ",", "2"}], "]"}], "]"}], "]"}], "]"}], ",", RowBox[{ RowBox[{"y", "[", RowBox[{"[", RowBox[{"a", "[", RowBox[{"[", RowBox[{"i", ",", "2"}], "]"}], "]"}], "]"}], "]"}], "+", "0.12"}], ",", RowBox[{"z", "[", RowBox[{"[", RowBox[{"a", "[", RowBox[{"[", RowBox[{"i", ",", "2"}], "]"}], "]"}], "]"}], "]"}]}], "}"}]}], "}"}], ",", "0.06"}], "]"}], ",", RowBox[{"Tube", "[", RowBox[{ RowBox[{"{", RowBox[{ RowBox[{"{", RowBox[{ RowBox[{"x", "[", RowBox[{"[", RowBox[{"a", "[", RowBox[{"[", RowBox[{"i", ",", "1"}], "]"}], "]"}], "]"}], "]"}], ",", RowBox[{ RowBox[{"y", "[", RowBox[{"[", RowBox[{"a", "[", RowBox[{"[", RowBox[{"i", ",", "1"}], "]"}], "]"}], "]"}], "]"}], "-", "0.12"}], ",", RowBox[{"z", "[", RowBox[{"[", RowBox[{"a", "[", RowBox[{"[", RowBox[{"i", ",", "1"}], "]"}], "]"}], "]"}], "]"}]}], "}"}], ",", RowBox[{"{", RowBox[{ RowBox[{"x", "[", RowBox[{"[", RowBox[{"a", "[", RowBox[{"[", RowBox[{"i", ",", "2"}], "]"}], "]"}], "]"}], "]"}], ",", RowBox[{ RowBox[{"y", "[", RowBox[{"[", RowBox[{"a", "[", RowBox[{"[", RowBox[{"i", ",", "2"}], "]"}], "]"}], "]"}], "]"}], "-", "0.12"}], ",", RowBox[{"z", "[", RowBox[{"[", RowBox[{"a", "[", RowBox[{"[", RowBox[{"i", ",", "2"}], "]"}], "]"}], "]"}], "]"}]}], "}"}]}], "}"}], ",", "0.06"}], "]"}]}], "}"}], ")"}], ",", 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.06"}], "]"}]}], "]"}], "}"}], "]"}], ",", RowBox[{"{", RowBox[{"i", ",", "1", ",", "nb"}], "}"}]}], "]"}]}], ";"}], "\[IndentingNewLine]"}], "\[IndentingNewLine]", RowBox[{"Show", "[", RowBox[{"Plot1o", ",", RowBox[{"(*", RowBox[{"Plot2", ","}], "*)"}], "Plot7", ",", "Plot8", ",", "Plot8a", ",", "Plot8b", ",", "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[{ 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]"}], "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.5729256977702246`*^9, 3.5729257135886526`*^9}, 3.572925758657132*^9}], Cell[BoxData[ Graphics3DBox[{ {RGBColor[0.4, 0.2666666666666667, 0.13333333333333336`], Opacity[0.8], SphereBox[{0., 0., -0.0018897}, 0.255]}, {RGBColor[0.4, 0.2666666666666667, 0.13333333333333336`], Opacity[0.8], SphereBox[{0.0056691, -2.4471615, -1.6648257}, 0.255]}, {RGBColor[0.4, 0.2666666666666667, 0.13333333333333336`], Opacity[0.8], SphereBox[{0.0018897, 2.3848013999999997`, -1.7555313000000001`}, 0.255]}, {RGBColor[0.4, 0.2666666666666667, 0.13333333333333336`], Opacity[0.8], SphereBox[{2.4150366, 0.0359043, 1.7120682}, 0.255]}, {RGBColor[0.4, 0.2666666666666667, 0.13333333333333336`], Opacity[0.8], SphereBox[{-2.418816, 0.0302352, 1.7026197}, 0.255]}, {RGBColor[0.4, 0.2666666666666667, 0.13333333333333336`], Opacity[0.8], SphereBox[{3.7529442, 2.4358232999999996`, 0.9108354}, 0.255]}, {RGBColor[0.4, 0.2666666666666667, 0.13333333333333336`], Opacity[0.8], SphereBox[{3.7586133, -2.3904704999999997`, 1.0034307}, 0.255]}, {RGBColor[0.4, 0.2666666666666667, 0.13333333333333336`], Opacity[0.8], SphereBox[{-2.4055880999999997`, -3.7775103, -0.8862692999999999}, 0.255]}, {RGBColor[0.4, 0.2666666666666667, 0.13333333333333336`], Opacity[0.8], SphereBox[{0.0075588, 1.2623196, -4.3897731}, 0.255]}, {RGBColor[0.4, 0.2666666666666667, 0.13333333333333336`], Opacity[0.8], SphereBox[{-3.760503, 2.4263748, 0.8976074999999999}, 0.255]}, {RGBColor[0.4, 0.2666666666666667, 0.13333333333333336`], Opacity[0.8], SphereBox[{-1.3530251999999998`, 0.08125709999999998, 4.3576482}, 0.255]}, {RGBColor[0.4, 0.2666666666666667, 0.13333333333333336`], Opacity[0.8], SphereBox[{-5.6426442, 6.935199, -1.0714598999999998`}, 0.255]}, {RGBColor[0.4, 0.2666666666666667, 0.13333333333333336`], Opacity[0.8], SphereBox[{-6.9616548, 5.6520927, 0.8125709999999999}, 0.255]}, {RGBColor[0.4, 0.2666666666666667, 0.13333333333333336`], Opacity[0.8], SphereBox[{-6.0243636, 3.3750042, 1.814112}, 0.255]}, {RGBColor[0.4, 0.2666666666666667, 0.13333333333333336`], Opacity[0.8], SphereBox[{-2.4150366, 3.7359369, -1.0279968}, 0.255]}, {RGBColor[0.4, 0.2666666666666667, 0.13333333333333336`], Opacity[0.8], SphereBox[{-3.3466587, 5.9790108, -2.0106408}, 0.255]}, {RGBColor[0.4, 0.2666666666666667, 0.13333333333333336`], Opacity[0.8], SphereBox[{5.6313059999999995`, 6.948426899999999, -1.0506732}, 0.255]}, {RGBColor[0.4, 0.2666666666666667, 0.13333333333333336`], Opacity[0.8], SphereBox[{3.3409896, 5.9865696, -1.9974128999999998`}, 0.255]}, {RGBColor[0.4, 0.2666666666666667, 0.13333333333333336`], Opacity[0.8], SphereBox[{2.4093674999999997`, 3.741606, -1.0185483}, 0.255]}, {RGBColor[0.4, 0.2666666666666667, 0.13333333333333336`], Opacity[0.8], SphereBox[{6.009246, 3.3901217999999997`, 1.8386780999999999`}, 0.255]}, {RGBColor[0.4, 0.2666666666666667, 0.13333333333333336`], Opacity[0.8], SphereBox[{6.9465372, 5.6691, 0.8390268}, 0.255]}, {RGBColor[0.4, 0.2666666666666667, 0.13333333333333336`], Opacity[0.8], SphereBox[{5.646423599999999, -6.9711033, -0.7861151999999999}, 0.255]}, {RGBColor[0.4, 0.2666666666666667, 0.13333333333333336`], Opacity[0.8], SphereBox[{3.3542175, -6.0508194, -1.7687592}, 0.255]}, {RGBColor[0.4, 0.2666666666666667, 0.13333333333333336`], Opacity[0.8], SphereBox[{2.418816, -3.7718412, -0.8768208000000001}, 0.255]}, {RGBColor[0.4, 0.2666666666666667, 0.13333333333333336`], Opacity[0.8], SphereBox[{6.0168048, -3.3050853, 1.965288}, 0.255]}, {RGBColor[0.4, 0.2666666666666667, 0.13333333333333336`], Opacity[0.8], SphereBox[{6.9578754, -5.6180781, 1.0544526}, 0.255]}, {RGBColor[0.4, 0.2666666666666667, 0.13333333333333336`], Opacity[0.8], SphereBox[{-6.948426899999999, -5.6331957, 1.0261071}, 0.255]}, {RGBColor[0.4, 0.2666666666666667, 0.13333333333333336`], Opacity[0.8], SphereBox[{-6.0149151, -3.3183132, 1.9426116}, 0.255]}, {RGBColor[0.4, 0.2666666666666667, 0.13333333333333336`], Opacity[0.8], SphereBox[{-3.7548339, -2.3980292999999997`, 0.9883131}, 0.255]}, {RGBColor[0.4, 0.2666666666666667, 0.13333333333333336`], Opacity[0.8], SphereBox[{-3.3334308, -6.0564884999999995`, -1.7819870999999998`}, 0.255]}, {RGBColor[0.4, 0.2666666666666667, 0.13333333333333336`], Opacity[0.8], SphereBox[{-5.6275266, -6.982441499999999, -0.8087915999999999}, 0.255]}, {RGBColor[0.4, 0.2666666666666667, 0.13333333333333336`], Opacity[0.8], SphereBox[{1.3001135999999998`, 0.17007299999999997`, 8.9061561}, 0.255]}, {RGBColor[0.4, 0.2666666666666667, 0.13333333333333336`], Opacity[0.8], SphereBox[{2.6606975999999998`, 0.1284996, 6.6233984999999995`}, 0.255]}, {RGBColor[0.4, 0.2666666666666667, 0.13333333333333336`], Opacity[0.8], SphereBox[{1.3379075999999999`, 0.08503649999999999, 4.3633173}, 0.255]}, {RGBColor[0.4, 0.2666666666666667, 0.13333333333333336`], Opacity[0.8], SphereBox[{-2.6852637, 0.1228305, 6.61395}, 0.255]}, {RGBColor[0.4, 0.2666666666666667, 0.13333333333333336`], Opacity[0.8], SphereBox[{-1.3322384999999999`, 0.16629359999999999`, 8.9023767}, 0.255]}, {RGBColor[0.4, 0.2666666666666667, 0.13333333333333336`], Opacity[0.8], SphereBox[{0.020786699999999998`, -1.4853042, -8.883479699999999}, 0.255]}, {RGBColor[0.4, 0.2666666666666667, 0.13333333333333336`], Opacity[0.8], SphereBox[{0.0170073, -2.796756, -6.5704869}, 0.255]}, {RGBColor[0.4, 0.2666666666666667, 0.13333333333333336`], Opacity[0.8], SphereBox[{0.0113382, -1.4267235, -4.3387512}, 0.255]}, {RGBColor[0.4, 0.2666666666666667, 0.13333333333333336`], Opacity[0.8], SphereBox[{0.0094485, 2.5473156, -6.6725307}, 0.255]}, {RGBColor[0.4, 0.2666666666666667, 0.13333333333333336`], Opacity[0.8], SphereBox[{0.0170073, 1.1489376, -8.9326119}, 0.255]}, {RGBColor[1, 1, 1], Opacity[0.8], SphereBox[{-6.389075699999999, 8.6945097, -1.8330089999999999`}, 0.12]}, {RGBColor[1, 1, 1], Opacity[0.8], SphereBox[{-8.7360831, 6.411752099999999, 1.5230982}, 0.12]}, {RGBColor[1, 1, 1], Opacity[0.8], SphereBox[{-7.0655883, 2.3885807999999997`, 3.2842986}, 0.12]}, {RGBColor[1, 1, 1], Opacity[0.8], SphereBox[{-2.3318898, 6.990000299999999, -3.4808274}, 0.12]}, {RGBColor[1, 1, 1], Opacity[0.8], SphereBox[{6.3758478, 8.7096273, -1.8084429}, 0.12]}, {RGBColor[1, 1, 1], Opacity[0.8], SphereBox[{2.3262207, 6.997559099999999, -3.4713789}, 0.12]}, {RGBColor[1, 1, 1], Opacity[0.8], SphereBox[{7.0466913, 2.4055880999999997`, 3.3126440999999995`}, 0.12]}, {RGBColor[1, 1, 1], Opacity[0.8], SphereBox[{8.717186100000001, 6.4325388, 1.5571127999999999`}, 0.12]}, {RGBColor[1, 1, 1], Opacity[0.8], SphereBox[{6.3928551, -8.7587595, -1.4758557}, 0.12]}, {RGBColor[1, 1, 1], Opacity[0.8], SphereBox[{2.3413383000000003`, -7.1184999, -3.2030415}, 0.12]}, {RGBColor[1, 1, 1], Opacity[0.8], SphereBox[{7.0523604, -2.2619709, 3.3995702999999997`}, 0.12]}, {RGBColor[1, 1, 1], Opacity[0.8], SphereBox[{8.7285243, -6.349392, 1.7989943999999998`}, 0.12]}, {RGBColor[1, 1, 1], Opacity[0.8], SphereBox[{-8.7228552, -6.368289, 1.7649798}, 0.12]}, {RGBColor[1, 1, 1], Opacity[0.8], SphereBox[{-7.0580295, -2.2789782, 3.3750042}, 0.12]}, {RGBColor[1, 1, 1], Opacity[0.8], SphereBox[{-2.3148825, -7.1222793, -3.2143797}, 0.12]}, {RGBColor[1, 1, 1], Opacity[0.8], SphereBox[{-6.370178699999999, -8.770097699999999, -1.5042012}, 0.12]}, {RGBColor[1, 1, 1], Opacity[0.8], SphereBox[{2.324331, 0.2059773, 10.6900329}, 0.12]}, {RGBColor[1, 1, 1], Opacity[0.8], SphereBox[{4.7148015, 0.132279, 6.6441852}, 0.12]}, {RGBColor[1, 1, 1], Opacity[0.8], SphereBox[{-4.7393676, 0.11905109999999999`, 6.6271779}, 0.12]}, {RGBColor[1, 1, 1], Opacity[0.8], SphereBox[{-2.3640147, 0.1984185, 10.6805844}, 0.12]}, {RGBColor[1, 1, 1], Opacity[0.8], SphereBox[{0.024566099999999997`, -2.5454258999999997`, -10.6446801}, 0.12]}, {RGBColor[1, 1, 1], Opacity[0.8], SphereBox[{0.018897, -4.850859900000001, -6.5497002}, 0.12]}, {RGBColor[1, 1, 1], Opacity[0.8], SphereBox[{0.0075588, 4.5995298, -6.7292217}, 0.12]}, {RGBColor[1, 1, 1], Opacity[0.8], SphereBox[{0.018897, 2.1429197999999996`, -10.733495999999999`}, 0.12]}, {RGBColor[0.36, 0.24, 0.12], Opacity[0.5], SphereBox[{0.00283455, -1.22358075, -0.8333577}, 1.2236569283537577`]}, {RGBColor[0.36, 0.24, 0.12], Opacity[0.5], SphereBox[{0.00094485, 1.1924006999999999`, -0.8787105000000001}, 1.2243794024019967`]}, {RGBColor[0.36, 0.24, 0.12], Opacity[0.5], SphereBox[{1.2075183, 0.01795215, 0.85508925}, 1.2251226245123403`]}, {RGBColor[0.36, 0.24, 0.12], Opacity[0.5], SphereBox[{-1.2094080000000003`, 0.015117600000000002`, 0.8503650000000001}, 1.2239061387970283`]}, {RGBColor[0.36, 0.24, 0.12], Opacity[0.5], SphereBox[{3.0839904000000002`, 1.2358637999999997`, 1.3114518}, 1.175346990187132]}, {RGBColor[0.36, 0.24, 0.12], Opacity[0.5], SphereBox[{3.08682495, -1.1772831, 1.35774945}, 1.1756158391200888`]}, {RGBColor[0.36, 0.24, 0.12], Opacity[0.5], SphereBox[{-1.1999594999999998`, -3.1123358999999997`, -1.2755475}, 1.1752209693580422`]}, {RGBColor[0.36, 0.24, 0.12], Opacity[0.5], SphereBox[{0.00472425, 1.8235605, -3.0726522000000003`}, 1.1760146530378608`]}, {RGBColor[0.36, 0.24, 0.12], Opacity[0.5], SphereBox[{-3.0896595, 1.228305, 1.3001136}, 1.1751785440076665`]}, {RGBColor[0.36, 0.24, 0.12], Opacity[0.5], SphereBox[{-1.8859206, 0.055746149999999994`, 3.03013395}, 1.1750069580679772`]}, {RGBColor[0.36, 0.24, 0.12], Opacity[0.5], SphereBox[{-6.3021495000000005`, 6.29364585, -0.12944444999999993`}, 1.0610880592721497`]}, {RGBColor[0.36, 0.24, 0.12], Opacity[0.5], SphereBox[{-4.8924333, 2.9006895, 1.35585975}, 1.0543518170378767`]}, {RGBColor[0.36, 0.24, 0.12], Opacity[0.5], SphereBox[{-6.4930091999999995`, 4.51354845, 1.3133415}, 1.0734662052872366`]}, {RGBColor[0.36, 0.24, 0.12], Opacity[0.5], SphereBox[{-1.20657345, 3.0603691499999996`, -1.39176405}, 1.1757683307431386`]}, {RGBColor[0.36, 0.24, 0.12], Opacity[0.5], SphereBox[{-3.0877698000000002`, 3.08115585, -0.06519465000000002}, 1.089029029160137]}, {RGBColor[0.36, 0.24, 0.12], Opacity[0.5], SphereBox[{-4.49465145, 6.4571049, -1.54105035}, 1.0735766879918474`]}, {RGBColor[0.36, 0.24, 0.12], Opacity[0.5], SphereBox[{-2.8808476499999998`, 4.85747385, -1.5193188}, 1.0543467061144824`]}, {RGBColor[0.36, 0.24, 0.12], Opacity[0.5], SphereBox[{4.4861477999999995`, 6.46749825, -1.52404305}, 1.0734947503308476`]}, {RGBColor[0.36, 0.24, 0.12], Opacity[0.5], SphereBox[{1.2056285999999998`, 3.0632037, -1.3870398000000002`}, 1.1743360154872848`]}, {RGBColor[0.36, 0.24, 0.12], Opacity[0.5], SphereBox[{3.08115585, 3.08871465, -0.053856450000000056`}, 1.0889921831991765`]}, {RGBColor[0.36, 0.24, 0.12], Opacity[0.5], SphereBox[{2.8751785499999998`, 4.8640878, -1.5079805999999998`}, 1.0544485800918277`]}, {RGBColor[0.36, 0.24, 0.12], Opacity[0.5], SphereBox[{4.8810951, 2.9129725499999997`, 1.37475675}, 1.0541163531320699`]}, {RGBColor[0.36, 0.24, 0.12], Opacity[0.5], SphereBox[{6.2889216, 6.30876345, -0.1058232}, 1.061254490151145]}, {RGBColor[0.36, 0.24, 0.12], Opacity[0.5], SphereBox[{6.4778915999999995`, 4.5296109, 1.3388524499999999`}, 1.0739201667454104`]}, {RGBColor[0.36, 0.24, 0.12], Opacity[0.5], SphereBox[{4.50032055, -6.51096135, -1.2774372}, 1.0734651978039091`]}, {RGBColor[0.36, 0.24, 0.12], Opacity[0.5], SphereBox[{1.2122425500000003`, -3.10950135, -1.2708232499999998`}, 1.175995322947214]}, {RGBColor[0.36, 0.24, 0.12], Opacity[0.5], SphereBox[{3.08871465, -3.08115585, 0.06330494999999992}, 1.0895311622132113`]}, {RGBColor[0.36, 0.24, 0.12], Opacity[0.5], SphereBox[{2.88651675, -4.9113302999999995`, -1.3227900000000001`}, 1.0542877586901385`]}, {RGBColor[0.36, 0.24, 0.12], Opacity[0.5], SphereBox[{4.88770905, -2.8477778999999996`, 1.48435935}, 1.05398684698047]}, {RGBColor[0.36, 0.24, 0.12], Opacity[0.5], SphereBox[{6.3021495, -6.2945907000000005`, 0.13416870000000003`}, 1.0613300719758758`]}, {RGBColor[0.36, 0.24, 0.12], Opacity[0.5], SphereBox[{6.4873401, -4.4615817, 1.5098703}, 1.0733194405020343`]}, {RGBColor[0.36, 0.24, 0.12], Opacity[0.5], SphereBox[{-6.4816709999999995`, -4.47575445, 1.48435935}, 1.0737835245374179`]}, {RGBColor[0.36, 0.24, 0.12], Opacity[0.5], SphereBox[{-3.08682495, -1.18389705, 1.3454664}, 1.175352604718308]}, {RGBColor[0.36, 0.24, 0.12], Opacity[0.5], SphereBox[{-3.080211, -3.0877698, 0.051021900000000064`}, 1.0894292904929623`]}, {RGBColor[0.36, 0.24, 0.12], Opacity[0.5], SphereBox[{-4.8848745, -2.85817125, 1.4654623500000001`}, 1.0544121244281823`]}, {RGBColor[0.36, 0.24, 0.12], Opacity[0.5], SphereBox[{-2.86950945, -4.9169994, -1.3341281999999999`}, 1.0535883648432236`]}, {RGBColor[0.36, 0.24, 0.12], Opacity[0.5], SphereBox[{-6.28797675, -6.307818599999999, 0.10865775}, 1.0607436059531201`]}, {RGBColor[0.36, 0.24, 0.12], Opacity[0.5], SphereBox[{-4.4804787, -6.519464999999999, -1.2953893499999998`}, 1.0735266528894623`]}, {RGBColor[0.36, 0.24, 0.12], Opacity[0.5], SphereBox[{1.9804055999999999`, 0.14928629999999998`, 7.7647772999999995`}, 1.0731998672775656`]}, {RGBColor[0.36, 0.24, 0.12], Opacity[0.5], SphereBox[{1.8764721, 0.060470399999999994`, 3.03769275}, 1.1753610264737708`]}, {RGBColor[0.36, 0.24, 0.12], Opacity[0.5], SphereBox[{-0.007558799999999977, 0.08314679999999999, 4.36048275}, 1.0897707128617673`]}, {RGBColor[0.36, 0.24, 0.12], Opacity[0.5], SphereBox[{1.9993025999999998`, 0.10676804999999999`, 5.4933578999999995`}, 1.0538447162807238`]}, {RGBColor[0.36, 0.24, 0.12], Opacity[0.5], SphereBox[{-2.01914445, 0.10204379999999999`, 5.4857991}, 1.0545943926035333`]}, {RGBColor[0.36, 0.24, 0.12], Opacity[0.5], SphereBox[{-0.016062450000000172`, 0.16818329999999998`, 8.904266400000001}, 1.0604787631343173`]}, {RGBColor[0.36, 0.24, 0.12], Opacity[0.5], SphereBox[{-2.0087511, 0.14456205, 7.75816335}, 1.0737230886149016`]}, {RGBColor[0.36, 0.24, 0.12], Opacity[0.5], SphereBox[{0.018896999999999997`, -2.1410301, -7.726983299999999}, 1.0737600220051218`]}, {RGBColor[0.36, 0.24, 0.12], Opacity[0.5], SphereBox[{0.00850365, -1.9369425, -3.00178845}, 1.175313926390049]}, {RGBColor[0.36, 0.24, 0.12], Opacity[0.5], SphereBox[{0.0094485, -0.08220194999999997, -4.36426215}, 1.0890648783153116`]}, {RGBColor[0.36, 0.24, 0.12], Opacity[0.5], SphereBox[{0.01417275, -2.11173975, -5.45461905}, 1.0536572301329332`]}, {RGBColor[0.36, 0.24, 0.12], Opacity[0.5], SphereBox[{0.00850365, 1.9048176, -5.5311519}, 1.0540901121305515`]}, {RGBColor[0.36, 0.24, 0.12], Opacity[0.5], SphereBox[{0.018896999999999997`, -0.16818329999999992`, -8.9080458}, 1.0616513310624884`]}, {RGBColor[0.36, 0.24, 0.12], Opacity[0.5], SphereBox[{0.0132279, 1.8481266, -7.8025713}, 1.07316090289154]}, {Opacity[0.5], SphereBox[{-6.182517055902457, 8.207658819861235, -1.622266889692887}, 1.2322533035670515`]}, {Opacity[0.5], SphereBox[{-8.244946387871023, 6.201489098641268, 1.3264342982316344`}, 1.231824517986182]}, {Opacity[0.5], SphereBox[{-6.776985860730437, 2.6619936372027437`, 2.8767982411039563`}, 1.2289300471966444`]}, {Opacity[0.5], SphereBox[{-2.6133369905583783`, 6.709601329890628, -3.073069645336278}, 1.227633510477946]}, {Opacity[0.5], SphereBox[{6.169765657889947, 8.222143654196524, -1.5986994000352}, 1.231789794593869]}, {Opacity[0.5], SphereBox[{2.6072969809409177`, 6.717529658094244, -3.063111676286935}, 1.2303421755691821`]}, {Opacity[0.5], SphereBox[{6.759120961827799, 2.678491827117881, 2.904074220629659}, 1.2288196430270548`]}, {Opacity[0.5], SphereBox[{8.227278218062919, 6.22130850725445, 1.3584308414769573`}, 1.2325917553811911`]}, {Opacity[0.5], SphereBox[{6.186206729170565, -8.263849730874314, -1.2849021421449522`}, 1.231360044090271]}, {Opacity[0.5], SphereBox[{2.6219376553450555`, -6.822718863115753, -2.8057002486811626`}, 1.2300016155629119`]}, {Opacity[0.5], SphereBox[{6.765295277753401, -2.5511313881024145`, 3.0019746288591804`}, 1.228686628546821]}, {Opacity[0.5], SphereBox[{8.2380760661874, -6.146826934380495, 1.5927653667853097`}, 1.2303248014247434`]}, {Opacity[0.5], SphereBox[{-8.23197159188732, -6.164930401963969, 1.5605756564727815`}, 1.2328850352609764`]}, {Opacity[0.5], SphereBox[{-6.768952094271596, -2.5670082238235903`, 2.978046458075852}, 1.2292768689363953`]}, {Opacity[0.5], SphereBox[{-2.596983324525027, -6.827094021647281, -2.817659059944396}, 1.2305046167139322`]}, {Opacity[0.5], SphereBox[{-6.164630713214716, -8.27531806768733, -1.3117287848931687`}, 1.2319009073859166`]}, {Opacity[0.5], SphereBox[{2.0409090556561518`, 0.19604184438647027`, 10.196397631622522`}, 1.2323105839419313`]}, {Opacity[0.5], SphereBox[{4.145531611171758, 0.13123158530114398`, 6.638424419156292}, 1.2292125505303635`]}, {Opacity[0.5], SphereBox[{-4.170080367720281, 0.1200985466095303, 6.623511836866644}, 1.2291499685266358`]}, {Opacity[0.5], SphereBox[{-2.078335326949101, 0.18952372098559472`, 10.188232220437921`}, 1.2311169131218542`]}, {Opacity[0.5], SphereBox[{ 0.023519418000393054`, -2.2518315991102527`, -10.156926288183165`}, 1.2306505421971443`]}, {Opacity[0.5], SphereBox[{0.018373291985795393`, -4.281589288559593, -6.555460988156251}, 1.2292099429849404`]}, {Opacity[0.5], SphereBox[{0.008082817187887727, 4.030447133953928, -6.713501184363368}, 1.2279979452324663`]}, {Opacity[0.5], SphereBox[{0.018373998541780734`, 1.8678210329766647`, -10.235075610317036`}, 1.231985106051022]}, {RGBColor[ NCache[ Rational[1, 3], 0.3333333333333333], 1, 1], Opacity[0.3], SphereBox[{3.0499118842893576`, 3.153317115811433, 1.8860011230126998`}, 1.4]}, {RGBColor[ NCache[ Rational[1, 3], 0.3333333333333333], 1, 1], Opacity[0.3], SphereBox[{3.0561466081514004`, -3.071841244587529, 2.0045672817227542`}, 1.4]}, {RGBColor[ NCache[ Rational[1, 3], 0.3333333333333333], 1, 1], Opacity[0.3], SphereBox[{-1.7061159595381752`, -4.457727368287626, 0.11774437756019185`}, 1.4]}, {RGBColor[ NCache[ Rational[1, 3], 0.3333333333333333], 1, 1], Opacity[0.3], SphereBox[{-1.3924380974282584`, 1.2603110031611136`, -4.3919301187733035`}, 1.4]}, {RGBColor[ NCache[ Rational[1, 3], 0.3333333333333333], 1, 1], Opacity[0.3], SphereBox[{-3.0632082013083926`, 3.1454306157167187`, 1.8757377048304178`}, 1.4]}, {RGBColor[ NCache[ Rational[1, 3], 0.3333333333333333], 1, 1], Opacity[0.3], SphereBox[{-1.3511143059001545`, -1.3184976858650033`, 4.383780324516755}, 1.4]}, {RGBColor[ NCache[ Rational[1, 3], 0.3333333333333333], 1, 1], Opacity[0.3], SphereBox[{-4.943721712417045, 7.652802697947726, -0.0934249880246647}, 1.4]}, {RGBColor[ NCache[ Rational[1, 3], 0.3333333333333333], 1, 1], Opacity[0.3], SphereBox[{-6.2629144327344095`, 6.36987848868288, 1.7906024211304485`}, 1.4]}, {RGBColor[ NCache[ Rational[1, 3], 0.3333333333333333], 1, 1], Opacity[0.3], SphereBox[{-5.327199981451452, 4.092673233597599, 2.7933535673302385`}, 1.4]}, {RGBColor[ NCache[ Rational[1, 3], 0.3333333333333333], 1, 1], Opacity[0.3], SphereBox[{-1.7180223298971333`, 4.456613060619192, -0.050859665925080844`}, 1.4]}, {RGBColor[ NCache[ Rational[1, 3], 0.3333333333333333], 1, 1], Opacity[0.3], SphereBox[{-2.647658336313782, 6.6974818528670506`, -1.0332985683540703`}, 1.4]}, {RGBColor[ NCache[ Rational[1, 3], 0.3333333333333333], 1, 1], Opacity[0.3], SphereBox[{4.927283142480513, 7.6650058086334605`, -0.07554937002158457}, 1.4]}, {RGBColor[ NCache[ Rational[1, 3], 0.3333333333333333], 1, 1], Opacity[0.3], SphereBox[{2.6369150493767073`, 6.703727140380989, -1.0227518874221402`}, 1.4]}, {RGBColor[ NCache[ Rational[1, 3], 0.3333333333333333], 1, 1], Opacity[0.3], SphereBox[{1.70642975985781, 4.459194703486332, -0.043384218364199034`}, 1.4]}, {RGBColor[ NCache[ Rational[1, 3], 0.3333333333333333], 1, 1], Opacity[0.3], SphereBox[{5.30513809524836, 4.107234491903272, 2.8133480162165094`}, 1.4]}, {RGBColor[ NCache[ Rational[1, 3], 0.3333333333333333], 1, 1], Opacity[0.3], SphereBox[{6.243004996146168, 6.38617151481921, 1.8141426294148715`}, 1.4]}, {RGBColor[ NCache[ Rational[1, 3], 0.3333333333333333], 1, 1], Opacity[0.3], SphereBox[{4.943781133318453, -7.652105263714365, 0.2151489456842699}, 1.4]}, {RGBColor[ NCache[ Rational[1, 3], 0.3333333333333333], 1, 1], Opacity[0.3], SphereBox[{2.6516244717150226`, -6.731237292892657, -0.7670633740943209}, 1.4]}, {RGBColor[ NCache[ Rational[1, 3], 0.3333333333333333], 1, 1], Opacity[0.3], SphereBox[{1.7173237918820803`, -4.454185043805746, 0.12433631093226705`}, 1.4]}, {RGBColor[ NCache[ Rational[1, 3], 0.3333333333333333], 1, 1], Opacity[0.3], SphereBox[{5.31448763931775, -3.9853955868904354`, 2.9672503343031793`}, 1.4]}, {RGBColor[ NCache[ Rational[1, 3], 0.3333333333333333], 1, 1], Opacity[0.3], SphereBox[{6.25463608458023, -6.298483374389452, 2.0557033816880583`}, 1.4]}, {RGBColor[ NCache[ Rational[1, 3], 0.3333333333333333], 1, 1], Opacity[0.3], SphereBox[{-6.248307252860442, -6.312975646034424, 2.029965508670575}, 1.4]}, {RGBColor[ NCache[ Rational[1, 3], 0.3333333333333333], 1, 1], Opacity[0.3], SphereBox[{-5.3143663151975264`, -3.9981361258290584`, 2.946141464841598}, 1.4]}, {RGBColor[ NCache[ Rational[1, 3], 0.3333333333333333], 1, 1], Opacity[0.3], SphereBox[{-3.0553441751406747`, -3.0782287457372712`, 1.9923264658646846`}, 1.4]}, {RGBColor[ NCache[ Rational[1, 3], 0.3333333333333333], 1, 1], Opacity[0.3], SphereBox[{-2.633238641557492, -6.736127411384645, -0.7780837722898488}, 1.4]}, {RGBColor[ NCache[ Rational[1, 3], 0.3333333333333333], 1, 1], Opacity[0.3], SphereBox[{-4.927328815718331, -7.6621430382926965`, 0.19506540263014616`}, 1.4]}, {RGBColor[ NCache[ Rational[1, 3], 0.3333333333333333], 1, 1], Opacity[0.3], SphereBox[{1.3020849963692482`, -1.2296716132995247`, 8.932823142117922}, 1.4]}, {RGBColor[ NCache[ Rational[1, 3], 0.3333333333333333], 1, 1], Opacity[0.3], SphereBox[{2.6619048501679075`, -1.2712544805510306`, 6.64961026315647}, 1.4]}, {RGBColor[ NCache[ Rational[1, 3], 0.3333333333333333], 1, 1], Opacity[0.3], SphereBox[{1.3398172496258491`, -1.3147072749835322`, 4.390032794252535}, 1.4]}, {RGBColor[ NCache[ Rational[1, 3], 0.3333333333333333], 1, 1], Opacity[0.3], SphereBox[{-2.6845919457125333`, -1.2769243891081825`, 6.6401377674481115`}, 1.4]}, {RGBColor[ NCache[ Rational[1, 3], 0.3333333333333333], 1, 1], Opacity[0.3], SphereBox[{-1.3302652777240678`, -1.2334742396814096`, 8.92779522449472}, 1.4]}, {RGBColor[ NCache[ Rational[1, 3], 0.3333333333333333], 1, 1], Opacity[0.3], SphereBox[{1.4207808818132797`, -1.4832310092783767`, -8.8800166422186}, 1.4]}, {RGBColor[ NCache[ Rational[1, 3], 0.3333333333333333], 1, 1], Opacity[0.3], SphereBox[{1.4170038909051657`, -2.795681611896513, -6.567590152838537}, 1.4]}, {RGBColor[ NCache[ Rational[1, 3], 0.3333333333333333], 1, 1], Opacity[0.3], SphereBox[{ 1.4113317033215025`, -1.4246847544050703`, -4.3350049787058476`}, 1.4]}, {RGBColor[ NCache[ Rational[1, 3], 0.3333333333333333], 1, 1], Opacity[0.3], SphereBox[{1.409442449507554, 2.5502973115747474`, -6.669693317698396}, 1.4]}, {RGBColor[ NCache[ Rational[1, 3], 0.3333333333333333], 1, 1], Opacity[0.3], SphereBox[{1.4170016375337429`, 1.1510096192464732`, -8.929211663287838}, 1.4]}, {RGBColor[1, 1, NCache[ Rational[1, 3], 0.3333333333333333]], Opacity[0.3], SphereBox[{4.455976515710642, 1.7183294841885677`, -0.0643303230126997}, 1.4]}, {RGBColor[1, 1, NCache[ Rational[1, 3], 0.3333333333333333]], Opacity[0.3], SphereBox[{4.4610799918485995`, -1.7090997554124714`, 0.0022941182772455715`}, 1.4]}, {RGBColor[1, 1, NCache[ Rational[1, 3], 0.3333333333333333]], Opacity[0.3], SphereBox[{-3.105060240461824, -3.0972932317123743`, \ -1.8902829775601917`}, 1.4]}, {RGBColor[1, 1, NCache[ Rational[1, 3], 0.3333333333333333]], Opacity[0.3], SphereBox[{1.4075556974282588`, 1.2643281968388866`, -4.387616081226695}, 1.4]}, {RGBColor[1, 1, NCache[ Rational[1, 3], 0.3333333333333333]], Opacity[0.3], SphereBox[{-4.457797798691606, 1.707318984283282, -0.08052270483041868}, 1.4]}, {RGBColor[1, 1, NCache[ Rational[1, 3], 0.3333333333333333]], Opacity[0.3], SphereBox[{-1.3549360940998452`, 1.4810118858650025`, 4.331516075483243}, 1.4]}, {RGBColor[1, 1, NCache[ Rational[1, 3], 0.3333333333333333]], Opacity[0.3], SphereBox[{-6.341566687582956, 6.217595302052273, -2.0494948119753342`}, 1.4]}, {RGBColor[1, 1, NCache[ Rational[1, 3], 0.3333333333333333]], Opacity[0.3], SphereBox[{-7.66039516726559, 4.934306911317121, -0.16546042113044834`}, 1.4]}, {RGBColor[1, 1, NCache[ Rational[1, 3], 0.3333333333333333]], Opacity[0.3], SphereBox[{-6.721527218548548, 2.657335166402401, 0.8348704326697607}, 1.4]}, {RGBColor[1, 1, NCache[ Rational[1, 3], 0.3333333333333333]], Opacity[0.3], SphereBox[{-3.1120508701028675`, 3.015260739380807, -2.0051339340749186`}, 1.4]}, {RGBColor[1, 1, NCache[ Rational[1, 3], 0.3333333333333333]], Opacity[0.3], SphereBox[{-4.045659063686218, 5.26053974713295, -2.98798303164593}, 1.4]}, {RGBColor[1, 1, NCache[ Rational[1, 3], 0.3333333333333333]], Opacity[0.3], SphereBox[{6.335328857519485, 6.231847991366538, -2.025797029978416}, 1.4]}, {RGBColor[1, 1, NCache[ Rational[1, 3], 0.3333333333333333]], Opacity[0.3], SphereBox[{4.0450641506232925`, 5.269412059619011, -2.9720739125778595`}, 1.4]}, {RGBColor[1, 1, NCache[ Rational[1, 3], 0.3333333333333333]], Opacity[0.3], SphereBox[{3.1123052401421893`, 3.024017296513667, -1.9937123816358011`}, 1.4]}, {RGBColor[1, 1, NCache[ Rational[1, 3], 0.3333333333333333]], Opacity[0.3], SphereBox[{6.71335390475164, 2.6730091080967275`, 0.8640081837834908}, 1.4]}, {RGBColor[1, 1, NCache[ Rational[1, 3], 0.3333333333333333]], Opacity[0.3], SphereBox[{7.6500694038538315`, 4.95202848518079, -0.13608902941487244`}, 1.4]}, {RGBColor[1, 1, NCache[ Rational[1, 3], 0.3333333333333333]], Opacity[0.3], SphereBox[{6.349066066681546, -6.290101336285636, -1.7873793456842695`}, 1.4]}, {RGBColor[1, 1, NCache[ Rational[1, 3], 0.3333333333333333]], Opacity[0.3], SphereBox[{4.056810528284977, -5.370401507107343, -2.7704550259056795`}, 1.4]}, {RGBColor[1, 1, NCache[ Rational[1, 3], 0.3333333333333333]], Opacity[0.3], SphereBox[{3.12030820811792, -3.0894973561942534`, -1.8779779109322672`}, 1.4]}, {RGBColor[1, 1, NCache[ Rational[1, 3], 0.3333333333333333]], Opacity[0.3], SphereBox[{6.71912196068225, -2.624775013109565, 0.963325665696821}, 1.4]}, {RGBColor[1, 1, NCache[ Rational[1, 3], 0.3333333333333333]], Opacity[0.3], SphereBox[{7.66111471541977, -4.937672825610548, 0.05320181831194215}, 1.4]}, {RGBColor[1, 1, NCache[ Rational[1, 3], 0.3333333333333333]], Opacity[0.3], SphereBox[{-7.648546547139555, -4.953415753965576, 0.022248691329425085`}, 1.4]}, {RGBColor[1, 1, NCache[ Rational[1, 3], 0.3333333333333333]], Opacity[0.3], SphereBox[{-6.715463884802474, -2.6384902741709415`, 0.9390817351584022}, 1.4]}, {RGBColor[1, 1, NCache[ Rational[1, 3], 0.3333333333333333]], Opacity[0.3], SphereBox[{-4.454323624859326, -1.7178298542627282`, \ -0.015700265864684315`}, 1.4]}, {RGBColor[1, 1, NCache[ Rational[1, 3], 0.3333333333333333]], Opacity[0.3], SphereBox[{-4.033622958442508, -5.376849588615354, -2.785890427710151}, 1.4]}, {RGBColor[1, 1, NCache[ Rational[1, 3], 0.3333333333333333]], Opacity[0.3], SphereBox[{-6.3277243842816695`, -6.302739961707302, -1.812648602630146}, 1.4]}, {RGBColor[1, 1, NCache[ Rational[1, 3], 0.3333333333333333]], Opacity[0.3], SphereBox[{1.2981422036307508`, 1.5698176132995252`, 8.879489057882079}, 1.4]}, {RGBColor[1, 1, NCache[ Rational[1, 3], 0.3333333333333333]], Opacity[0.3], SphereBox[{2.6594903498320925`, 1.5282536805510303`, 6.597186736843529}, 1.4]}, {RGBColor[1, 1, NCache[ Rational[1, 3], 0.3333333333333333]], Opacity[0.3], SphereBox[{1.3359979503741506`, 1.4847802749835317`, 4.336601805747465}, 1.4]}, {RGBColor[1, 1, NCache[ Rational[1, 3], 0.3333333333333333]], Opacity[0.3], SphereBox[{-2.685935454287467, 1.5225853891081829`, 6.58776223255189}, 1.4]}, {RGBColor[1, 1, NCache[ Rational[1, 3], 0.3333333333333333]], Opacity[0.3], SphereBox[{-1.3342117222759315`, 1.5660614396814097`, 8.87695817550528}, 1.4]}, {RGBColor[1, 1, NCache[ Rational[1, 3], 0.3333333333333333]], Opacity[0.3], SphereBox[{-1.3792074818132798`, -1.4873773907216234`, \ -8.886942757781398}, 1.4]}, {RGBColor[1, 1, NCache[ Rational[1, 3], 0.3333333333333333]], Opacity[0.3], SphereBox[{-1.3829892909051658`, -2.7978303881034865`, \ -6.573383647161462}, 1.4]}, {RGBColor[1, 1, NCache[ Rational[1, 3], 0.3333333333333333]], Opacity[0.3], SphereBox[{-1.388655303321503, -1.4287622455949298`, -4.342497421294153}, 1.4]}, {RGBColor[1, 1, NCache[ Rational[1, 3], 0.3333333333333333]], Opacity[0.3], SphereBox[{-1.3905454495075535`, 2.5443338884252524`, -6.675368082301603}, 1.4]}, {RGBColor[1, 1, NCache[ Rational[1, 3], 0.3333333333333333]], Opacity[0.3], SphereBox[{-1.3829870375337425`, 1.146865580753526, -8.936012136712161}, 1.4]}, TubeBox[{{0.0056691, -2.4471615, -1.6648257}, {0., 0., -0.0018897}}, 0.06], TubeBox[{{0.0018897, 2.3848013999999997`, -1.7555313000000001`}, {0., 0., -0.0018897}}, 0.06], TubeBox[{{2.4150366, 0.0359043, 1.7120682}, {0., 0., -0.0018897}}, 0.06], TubeBox[{{-2.418816, 0.0302352, 1.7026197}, {0., 0., -0.0018897}}, 0.06], TubeBox[{{3.7529442, 2.4358232999999996`, 0.9108354}, {2.4150366, 0.0359043, 1.7120682}}, 0.06], TubeBox[{{3.7586133, -2.3904704999999997`, 1.0034307}, {2.4150366, 0.0359043, 1.7120682}}, 0.06], TubeBox[{{-2.4055880999999997`, -3.7775103, -0.8862692999999999}, { 0.0056691, -2.4471615, -1.6648257}}, 0.06], TubeBox[{{0.0075588, 1.2623196, -4.3897731}, {0.0018897, 2.3848013999999997`, -1.7555313000000001`}}, 0.06], TubeBox[{{-3.760503, 2.4263748, 0.8976074999999999}, {-2.418816, 0.0302352, 1.7026197}}, 0.06], TubeBox[{{-1.3530251999999998`, 0.08125709999999998, 4.3576482}, {-2.418816, 0.0302352, 1.7026197}}, 0.06], TubeBox[{{-6.9616548, 5.6520927, 0.8125709999999999}, {-5.6426442, 6.935199, -1.0714598999999998`}}, 0.06], TubeBox[{{-6.0243636, 3.3750042, 1.814112}, {-3.760503, 2.4263748, 0.8976074999999999}}, 0.06], TubeBox[{{-6.0243636, 3.3750042, 1.814112}, {-6.9616548, 5.6520927, 0.8125709999999999}}, 0.06], TubeBox[{{-2.4150366, 3.7359369, -1.0279968}, {0.0018897, 2.3848013999999997`, -1.7555313000000001`}}, 0.06], TubeBox[{{-2.4150366, 3.7359369, -1.0279968}, {-3.760503, 2.4263748, 0.8976074999999999}}, 0.06], TubeBox[{{-3.3466587, 5.9790108, -2.0106408}, {-5.6426442, 6.935199, -1.0714598999999998`}}, 0.06], TubeBox[{{-3.3466587, 5.9790108, -2.0106408}, {-2.4150366, 3.7359369, -1.0279968}}, 0.06], TubeBox[{{3.3409896, 5.9865696, -1.9974128999999998`}, { 5.6313059999999995`, 6.948426899999999, -1.0506732}}, 0.06], TubeBox[{{2.4093674999999997`, 3.741606, -1.0185483}, {0.0018897, 2.3848013999999997`, -1.7555313000000001`}}, 0.06], TubeBox[{{2.4093674999999997`, 3.741606, -1.0185483}, {3.7529442, 2.4358232999999996`, 0.9108354}}, 0.06], TubeBox[{{2.4093674999999997`, 3.741606, -1.0185483}, {3.3409896, 5.9865696, -1.9974128999999998`}}, 0.06], TubeBox[{{6.009246, 3.3901217999999997`, 1.8386780999999999`}, {3.7529442, 2.4358232999999996`, 0.9108354}}, 0.06], TubeBox[{{6.9465372, 5.6691, 0.8390268}, {5.6313059999999995`, 6.948426899999999, -1.0506732}}, 0.06], TubeBox[{{6.9465372, 5.6691, 0.8390268}, {6.009246, 3.3901217999999997`, 1.8386780999999999`}}, 0.06], TubeBox[{{3.3542175, -6.0508194, -1.7687592}, { 5.646423599999999, -6.9711033, -0.7861151999999999}}, 0.06], TubeBox[{{2.418816, -3.7718412, -0.8768208000000001}, { 0.0056691, -2.4471615, -1.6648257}}, 0.06], TubeBox[{{2.418816, -3.7718412, -0.8768208000000001}, { 3.7586133, -2.3904704999999997`, 1.0034307}}, 0.06], TubeBox[{{2.418816, -3.7718412, -0.8768208000000001}, { 3.3542175, -6.0508194, -1.7687592}}, 0.06], TubeBox[{{6.0168048, -3.3050853, 1.965288}, { 3.7586133, -2.3904704999999997`, 1.0034307}}, 0.06], TubeBox[{{6.9578754, -5.6180781, 1.0544526}, { 5.646423599999999, -6.9711033, -0.7861151999999999}}, 0.06], TubeBox[{{6.9578754, -5.6180781, 1.0544526}, {6.0168048, -3.3050853, 1.965288}}, 0.06], TubeBox[{{-6.0149151, -3.3183132, 1.9426116}, {-6.948426899999999, -5.6331957, 1.0261071}}, 0.06], TubeBox[{{-3.7548339, -2.3980292999999997`, 0.9883131}, {-2.418816, 0.0302352, 1.7026197}}, 0.06], TubeBox[{{-3.7548339, -2.3980292999999997`, 0.9883131}, {-2.4055880999999997`, -3.7775103, -0.8862692999999999}}, 0.06], TubeBox[{{-3.7548339, -2.3980292999999997`, 0.9883131}, {-6.0149151, -3.3183132, 1.9426116}}, 0.06], TubeBox[{{-3.3334308, -6.0564884999999995`, -1.7819870999999998`}, \ {-2.4055880999999997`, -3.7775103, -0.8862692999999999}}, 0.06], TubeBox[{{-5.6275266, -6.982441499999999, -0.8087915999999999}, \ {-6.948426899999999, -5.6331957, 1.0261071}}, 0.06], TubeBox[{{-5.6275266, -6.982441499999999, -0.8087915999999999}, \ {-3.3334308, -6.0564884999999995`, -1.7819870999999998`}}, 0.06], TubeBox[{{2.6606975999999998`, 0.1284996, 6.6233984999999995`}, { 1.3001135999999998`, 0.17007299999999997`, 8.9061561}}, 0.06], TubeBox[{{1.3379075999999999`, 0.08503649999999999, 4.3633173}, {2.4150366, 0.0359043, 1.7120682}}, 0.06], TubeBox[{{1.3379075999999999`, 0.08503649999999999, 4.3633173}, {-1.3530251999999998`, 0.08125709999999998, 4.3576482}}, 0.06], TubeBox[{{1.3379075999999999`, 0.08503649999999999, 4.3633173}, { 2.6606975999999998`, 0.1284996, 6.6233984999999995`}}, 0.06], TubeBox[{{-2.6852637, 0.1228305, 6.61395}, {-1.3530251999999998`, 0.08125709999999998, 4.3576482}}, 0.06], TubeBox[{{-1.3322384999999999`, 0.16629359999999999`, 8.9023767}, { 1.3001135999999998`, 0.17007299999999997`, 8.9061561}}, 0.06], TubeBox[{{-1.3322384999999999`, 0.16629359999999999`, 8.9023767}, {-2.6852637, 0.1228305, 6.61395}}, 0.06], TubeBox[{{0.0170073, -2.796756, -6.5704869}, { 0.020786699999999998`, -1.4853042, -8.883479699999999}}, 0.06], TubeBox[{{0.0113382, -1.4267235, -4.3387512}, { 0.0056691, -2.4471615, -1.6648257}}, 0.06], TubeBox[{{0.0113382, -1.4267235, -4.3387512}, {0.0075588, 1.2623196, -4.3897731}}, 0.06], TubeBox[{{0.0113382, -1.4267235, -4.3387512}, { 0.0170073, -2.796756, -6.5704869}}, 0.06], TubeBox[{{0.0094485, 2.5473156, -6.6725307}, {0.0075588, 1.2623196, -4.3897731}}, 0.06], TubeBox[{{0.0170073, 1.1489376, -8.9326119}, { 0.020786699999999998`, -1.4853042, -8.883479699999999}}, 0.06], TubeBox[{{0.0170073, 1.1489376, -8.9326119}, {0.0094485, 2.5473156, -6.6725307}}, 0.06], TubeBox[{{-6.389075699999999, 8.6945097, -1.8330089999999999`}, {-5.6426442, 6.935199, -1.0714598999999998`}}, 0.06], TubeBox[{{-8.7360831, 6.411752099999999, 1.5230982}, {-6.9616548, 5.6520927, 0.8125709999999999}}, 0.06], TubeBox[{{-7.0655883, 2.3885807999999997`, 3.2842986}, {-6.0243636, 3.3750042, 1.814112}}, 0.06], TubeBox[{{-2.3318898, 6.990000299999999, -3.4808274}, {-3.3466587, 5.9790108, -2.0106408}}, 0.06], TubeBox[{{6.3758478, 8.7096273, -1.8084429}, {5.6313059999999995`, 6.948426899999999, -1.0506732}}, 0.06], TubeBox[{{2.3262207, 6.997559099999999, -3.4713789}, {3.3409896, 5.9865696, -1.9974128999999998`}}, 0.06], TubeBox[{{7.0466913, 2.4055880999999997`, 3.3126440999999995`}, {6.009246, 3.3901217999999997`, 1.8386780999999999`}}, 0.06], TubeBox[{{8.717186100000001, 6.4325388, 1.5571127999999999`}, {6.9465372, 5.6691, 0.8390268}}, 0.06], TubeBox[{{6.3928551, -8.7587595, -1.4758557}, { 5.646423599999999, -6.9711033, -0.7861151999999999}}, 0.06], TubeBox[{{2.3413383000000003`, -7.1184999, -3.2030415}, { 3.3542175, -6.0508194, -1.7687592}}, 0.06], TubeBox[{{7.0523604, -2.2619709, 3.3995702999999997`}, { 6.0168048, -3.3050853, 1.965288}}, 0.06], TubeBox[{{8.7285243, -6.349392, 1.7989943999999998`}, { 6.9578754, -5.6180781, 1.0544526}}, 0.06], TubeBox[{{-8.7228552, -6.368289, 1.7649798}, {-6.948426899999999, -5.6331957, 1.0261071}}, 0.06], TubeBox[{{-7.0580295, -2.2789782, 3.3750042}, {-6.0149151, -3.3183132, 1.9426116}}, 0.06], TubeBox[{{-2.3148825, -7.1222793, -3.2143797}, {-3.3334308, \ -6.0564884999999995`, -1.7819870999999998`}}, 0.06], TubeBox[{{-6.370178699999999, -8.770097699999999, -1.5042012}, \ {-5.6275266, -6.982441499999999, -0.8087915999999999}}, 0.06], TubeBox[{{2.324331, 0.2059773, 10.6900329}, {1.3001135999999998`, 0.17007299999999997`, 8.9061561}}, 0.06], TubeBox[{{4.7148015, 0.132279, 6.6441852}, {2.6606975999999998`, 0.1284996, 6.6233984999999995`}}, 0.06], TubeBox[{{-4.7393676, 0.11905109999999999`, 6.6271779}, {-2.6852637, 0.1228305, 6.61395}}, 0.06], TubeBox[{{-2.3640147, 0.1984185, 10.6805844}, {-1.3322384999999999`, 0.16629359999999999`, 8.9023767}}, 0.06], TubeBox[{{0.024566099999999997`, -2.5454258999999997`, -10.6446801}, { 0.020786699999999998`, -1.4853042, -8.883479699999999}}, 0.06], TubeBox[{{0.018897, -4.850859900000001, -6.5497002}, { 0.0170073, -2.796756, -6.5704869}}, 0.06], TubeBox[{{0.0075588, 4.5995298, -6.7292217}, {0.0094485, 2.5473156, -6.6725307}}, 0.06], TubeBox[{{0.018897, 2.1429197999999996`, -10.733495999999999`}, {0.0170073, 1.1489376, -8.9326119}}, 0.06]}, AspectRatio->Automatic, Boxed->False, SphericalRegion->True]], "Output", CellChangeTimes->{ 3.5728722981445446`*^9, {3.5728738883489375`*^9, 3.5728739141513824`*^9}, 3.572925732729886*^9, 3.5729257665663457`*^9, 3.5800581729835396`*^9}], Cell[BoxData[ Graphics3DBox[{ {RGBColor[0.4, 0.2666666666666667, 0.13333333333333336`], Opacity[0.8], SphereBox[{0., 0., -0.0018897}, 0.255]}, {RGBColor[0.4, 0.2666666666666667, 0.13333333333333336`], Opacity[0.8], SphereBox[{0.0056691, -2.4471615, -1.6648257}, 0.255]}, {RGBColor[0.4, 0.2666666666666667, 0.13333333333333336`], Opacity[0.8], SphereBox[{0.0018897, 2.3848013999999997`, -1.7555313000000001`}, 0.255]}, {RGBColor[0.4, 0.2666666666666667, 0.13333333333333336`], Opacity[0.8], SphereBox[{2.4150366, 0.0359043, 1.7120682}, 0.255]}, {RGBColor[0.4, 0.2666666666666667, 0.13333333333333336`], Opacity[0.8], SphereBox[{-2.418816, 0.0302352, 1.7026197}, 0.255]}, {RGBColor[0.4, 0.2666666666666667, 0.13333333333333336`], Opacity[0.8], SphereBox[{3.7529442, 2.4358232999999996`, 0.9108354}, 0.255]}, {RGBColor[0.4, 0.2666666666666667, 0.13333333333333336`], Opacity[0.8], SphereBox[{3.7586133, -2.3904704999999997`, 1.0034307}, 0.255]}, {RGBColor[0.4, 0.2666666666666667, 0.13333333333333336`], Opacity[0.8], SphereBox[{-2.4055880999999997`, -3.7775103, -0.8862692999999999}, 0.255]}, {RGBColor[0.4, 0.2666666666666667, 0.13333333333333336`], Opacity[0.8], SphereBox[{0.0075588, 1.2623196, -4.3897731}, 0.255]}, {RGBColor[0.4, 0.2666666666666667, 0.13333333333333336`], Opacity[0.8], SphereBox[{-3.760503, 2.4263748, 0.8976074999999999}, 0.255]}, {RGBColor[0.4, 0.2666666666666667, 0.13333333333333336`], Opacity[0.8], SphereBox[{-1.3530251999999998`, 0.08125709999999998, 4.3576482}, 0.255]}, {RGBColor[0.4, 0.2666666666666667, 0.13333333333333336`], Opacity[0.8], SphereBox[{-5.6426442, 6.935199, -1.0714598999999998`}, 0.255]}, {RGBColor[0.4, 0.2666666666666667, 0.13333333333333336`], Opacity[0.8], SphereBox[{-6.9616548, 5.6520927, 0.8125709999999999}, 0.255]}, {RGBColor[0.4, 0.2666666666666667, 0.13333333333333336`], Opacity[0.8], SphereBox[{-6.0243636, 3.3750042, 1.814112}, 0.255]}, {RGBColor[0.4, 0.2666666666666667, 0.13333333333333336`], Opacity[0.8], SphereBox[{-2.4150366, 3.7359369, -1.0279968}, 0.255]}, {RGBColor[0.4, 0.2666666666666667, 0.13333333333333336`], Opacity[0.8], SphereBox[{-3.3466587, 5.9790108, -2.0106408}, 0.255]}, {RGBColor[0.4, 0.2666666666666667, 0.13333333333333336`], Opacity[0.8], SphereBox[{5.6313059999999995`, 6.948426899999999, -1.0506732}, 0.255]}, {RGBColor[0.4, 0.2666666666666667, 0.13333333333333336`], Opacity[0.8], SphereBox[{3.3409896, 5.9865696, -1.9974128999999998`}, 0.255]}, {RGBColor[0.4, 0.2666666666666667, 0.13333333333333336`], Opacity[0.8], SphereBox[{2.4093674999999997`, 3.741606, -1.0185483}, 0.255]}, {RGBColor[0.4, 0.2666666666666667, 0.13333333333333336`], Opacity[0.8], SphereBox[{6.009246, 3.3901217999999997`, 1.8386780999999999`}, 0.255]}, {RGBColor[0.4, 0.2666666666666667, 0.13333333333333336`], Opacity[0.8], SphereBox[{6.9465372, 5.6691, 0.8390268}, 0.255]}, {RGBColor[0.4, 0.2666666666666667, 0.13333333333333336`], Opacity[0.8], SphereBox[{5.646423599999999, -6.9711033, -0.7861151999999999}, 0.255]}, {RGBColor[0.4, 0.2666666666666667, 0.13333333333333336`], Opacity[0.8], SphereBox[{3.3542175, -6.0508194, -1.7687592}, 0.255]}, {RGBColor[0.4, 0.2666666666666667, 0.13333333333333336`], Opacity[0.8], SphereBox[{2.418816, -3.7718412, -0.8768208000000001}, 0.255]}, {RGBColor[0.4, 0.2666666666666667, 0.13333333333333336`], Opacity[0.8], SphereBox[{6.0168048, -3.3050853, 1.965288}, 0.255]}, {RGBColor[0.4, 0.2666666666666667, 0.13333333333333336`], Opacity[0.8], SphereBox[{6.9578754, -5.6180781, 1.0544526}, 0.255]}, {RGBColor[0.4, 0.2666666666666667, 0.13333333333333336`], Opacity[0.8], SphereBox[{-6.948426899999999, -5.6331957, 1.0261071}, 0.255]}, {RGBColor[0.4, 0.2666666666666667, 0.13333333333333336`], Opacity[0.8], SphereBox[{-6.0149151, -3.3183132, 1.9426116}, 0.255]}, {RGBColor[0.4, 0.2666666666666667, 0.13333333333333336`], Opacity[0.8], SphereBox[{-3.7548339, -2.3980292999999997`, 0.9883131}, 0.255]}, {RGBColor[0.4, 0.2666666666666667, 0.13333333333333336`], Opacity[0.8], SphereBox[{-3.3334308, -6.0564884999999995`, -1.7819870999999998`}, 0.255]}, {RGBColor[0.4, 0.2666666666666667, 0.13333333333333336`], Opacity[0.8], SphereBox[{-5.6275266, -6.982441499999999, -0.8087915999999999}, 0.255]}, {RGBColor[0.4, 0.2666666666666667, 0.13333333333333336`], Opacity[0.8], SphereBox[{1.3001135999999998`, 0.17007299999999997`, 8.9061561}, 0.255]}, {RGBColor[0.4, 0.2666666666666667, 0.13333333333333336`], Opacity[0.8], SphereBox[{2.6606975999999998`, 0.1284996, 6.6233984999999995`}, 0.255]}, {RGBColor[0.4, 0.2666666666666667, 0.13333333333333336`], Opacity[0.8], SphereBox[{1.3379075999999999`, 0.08503649999999999, 4.3633173}, 0.255]}, {RGBColor[0.4, 0.2666666666666667, 0.13333333333333336`], Opacity[0.8], SphereBox[{-2.6852637, 0.1228305, 6.61395}, 0.255]}, {RGBColor[0.4, 0.2666666666666667, 0.13333333333333336`], Opacity[0.8], SphereBox[{-1.3322384999999999`, 0.16629359999999999`, 8.9023767}, 0.255]}, {RGBColor[0.4, 0.2666666666666667, 0.13333333333333336`], Opacity[0.8], SphereBox[{0.020786699999999998`, -1.4853042, -8.883479699999999}, 0.255]}, {RGBColor[0.4, 0.2666666666666667, 0.13333333333333336`], Opacity[0.8], SphereBox[{0.0170073, -2.796756, -6.5704869}, 0.255]}, {RGBColor[0.4, 0.2666666666666667, 0.13333333333333336`], Opacity[0.8], SphereBox[{0.0113382, -1.4267235, -4.3387512}, 0.255]}, {RGBColor[0.4, 0.2666666666666667, 0.13333333333333336`], Opacity[0.8], SphereBox[{0.0094485, 2.5473156, -6.6725307}, 0.255]}, {RGBColor[0.4, 0.2666666666666667, 0.13333333333333336`], Opacity[0.8], SphereBox[{0.0170073, 1.1489376, -8.9326119}, 0.255]}, {RGBColor[1, 1, 1], Opacity[0.8], SphereBox[{-6.389075699999999, 8.6945097, -1.8330089999999999`}, 0.12]}, {RGBColor[1, 1, 1], Opacity[0.8], SphereBox[{-8.7360831, 6.411752099999999, 1.5230982}, 0.12]}, {RGBColor[1, 1, 1], Opacity[0.8], SphereBox[{-7.0655883, 2.3885807999999997`, 3.2842986}, 0.12]}, {RGBColor[1, 1, 1], Opacity[0.8], SphereBox[{-2.3318898, 6.990000299999999, -3.4808274}, 0.12]}, {RGBColor[1, 1, 1], Opacity[0.8], SphereBox[{6.3758478, 8.7096273, -1.8084429}, 0.12]}, {RGBColor[1, 1, 1], Opacity[0.8], SphereBox[{2.3262207, 6.997559099999999, -3.4713789}, 0.12]}, {RGBColor[1, 1, 1], Opacity[0.8], SphereBox[{7.0466913, 2.4055880999999997`, 3.3126440999999995`}, 0.12]}, {RGBColor[1, 1, 1], Opacity[0.8], SphereBox[{8.717186100000001, 6.4325388, 1.5571127999999999`}, 0.12]}, {RGBColor[1, 1, 1], Opacity[0.8], SphereBox[{6.3928551, -8.7587595, -1.4758557}, 0.12]}, {RGBColor[1, 1, 1], Opacity[0.8], SphereBox[{2.3413383000000003`, -7.1184999, -3.2030415}, 0.12]}, {RGBColor[1, 1, 1], Opacity[0.8], SphereBox[{7.0523604, -2.2619709, 3.3995702999999997`}, 0.12]}, {RGBColor[1, 1, 1], Opacity[0.8], SphereBox[{8.7285243, -6.349392, 1.7989943999999998`}, 0.12]}, {RGBColor[1, 1, 1], Opacity[0.8], SphereBox[{-8.7228552, -6.368289, 1.7649798}, 0.12]}, {RGBColor[1, 1, 1], Opacity[0.8], SphereBox[{-7.0580295, -2.2789782, 3.3750042}, 0.12]}, {RGBColor[1, 1, 1], Opacity[0.8], SphereBox[{-2.3148825, -7.1222793, -3.2143797}, 0.12]}, {RGBColor[1, 1, 1], Opacity[0.8], SphereBox[{-6.370178699999999, -8.770097699999999, -1.5042012}, 0.12]}, {RGBColor[1, 1, 1], Opacity[0.8], SphereBox[{2.324331, 0.2059773, 10.6900329}, 0.12]}, {RGBColor[1, 1, 1], Opacity[0.8], SphereBox[{4.7148015, 0.132279, 6.6441852}, 0.12]}, {RGBColor[1, 1, 1], Opacity[0.8], SphereBox[{-4.7393676, 0.11905109999999999`, 6.6271779}, 0.12]}, {RGBColor[1, 1, 1], Opacity[0.8], SphereBox[{-2.3640147, 0.1984185, 10.6805844}, 0.12]}, {RGBColor[1, 1, 1], Opacity[0.8], SphereBox[{0.024566099999999997`, -2.5454258999999997`, -10.6446801}, 0.12]}, {RGBColor[1, 1, 1], Opacity[0.8], SphereBox[{0.018897, -4.850859900000001, -6.5497002}, 0.12]}, {RGBColor[1, 1, 1], Opacity[0.8], SphereBox[{0.0075588, 4.5995298, -6.7292217}, 0.12]}, {RGBColor[1, 1, 1], Opacity[0.8], SphereBox[{0.018897, 2.1429197999999996`, -10.733495999999999`}, 0.12]}, Text3DBox["1", {-0.6, 0., -0.0018897}, {1, 0}], Text3DBox["2", {-0.5943309, -2.4471615, -1.6648257}, {1, 0}], Text3DBox["3", {-0.5981103, 2.3848013999999997`, -1.7555313000000001`}, {1, 0}], Text3DBox["4", {1.8150366, 0.0359043, 1.7120682}, {1, 0}], Text3DBox["5", {-3.018816, 0.0302352, 1.7026197}, {1, 0}], Text3DBox["6", {3.1529442, 2.4358232999999996`, 0.9108354}, {1, 0}], Text3DBox["7", {3.1586133, -2.3904704999999997`, 1.0034307}, {1, 0}], Text3DBox["8", {-3.0055880999999998`, -3.7775103, -0.8862692999999999}, {1, 0}], Text3DBox["9", {-0.5924412, 1.2623196, -4.3897731}, {1, 0}], Text3DBox["10", {-4.360503, 2.4263748, 0.8976074999999999}, {1, 0}], Text3DBox["11", {-1.9530252, 0.08125709999999998, 4.3576482}, {1, 0}], Text3DBox["12", {-6.2426442, 6.935199, -1.0714598999999998`}, {1, 0}], Text3DBox["13", {-7.5616547999999995`, 5.6520927, 0.8125709999999999}, {1, 0}], Text3DBox["14", {-6.6243636, 3.3750042, 1.814112}, {1, 0}], Text3DBox["15", {-3.0150366, 3.7359369, -1.0279968}, {1, 0}], Text3DBox["16", {-3.9466587, 5.9790108, -2.0106408}, {1, 0}], Text3DBox["17", {5.031306, 6.948426899999999, -1.0506732}, {1, 0}], Text3DBox["18", {2.7409896, 5.9865696, -1.9974128999999998`}, {1, 0}], Text3DBox["19", {1.8093674999999996`, 3.741606, -1.0185483}, {1, 0}], Text3DBox["20", {5.409246, 3.3901217999999997`, 1.8386780999999999`}, {1, 0}], Text3DBox["21", {6.3465372, 5.6691, 0.8390268}, {1, 0}], Text3DBox["22", {5.0464236, -6.9711033, -0.7861151999999999}, {1, 0}], Text3DBox["23", {2.7542174999999998`, -6.0508194, -1.7687592}, {1, 0}], Text3DBox["24", {1.818816, -3.7718412, -0.8768208000000001}, {1, 0}], Text3DBox["25", {5.4168048, -3.3050853, 1.965288}, {1, 0}], Text3DBox["26", {6.3578754, -5.6180781, 1.0544526}, {1, 0}], Text3DBox["27", {-7.548426899999999, -5.6331957, 1.0261071}, {1, 0}], Text3DBox["28", {-6.614915099999999, -3.3183132, 1.9426116}, {1, 0}], Text3DBox["29", {-4.3548339, -2.3980292999999997`, 0.9883131}, {1, 0}], Text3DBox["30", {-3.9334308, -6.0564884999999995`, -1.7819870999999998`}, { 1, 0}], Text3DBox[ "31", {-6.2275266, -6.982441499999999, -0.8087915999999999}, {1, 0}], Text3DBox["32", {0.7001135999999998, 0.17007299999999997`, 8.9061561}, {1, 0}], Text3DBox["33", {2.0606975999999997`, 0.1284996, 6.6233984999999995`}, {1, 0}], Text3DBox["34", {0.7379075999999999, 0.08503649999999999, 4.3633173}, {1, 0}], Text3DBox["35", {-3.2852637000000002`, 0.1228305, 6.61395}, {1, 0}], Text3DBox["36", {-1.9322385, 0.16629359999999999`, 8.9023767}, {1, 0}], Text3DBox["37", {-0.5792132999999999, -1.4853042, -8.883479699999999}, {1, 0}], Text3DBox["38", {-0.5829927, -2.796756, -6.5704869}, {1, 0}], Text3DBox["39", {-0.5886618, -1.4267235, -4.3387512}, {1, 0}], Text3DBox["40", {-0.5905515, 2.5473156, -6.6725307}, {1, 0}], Text3DBox["41", {-0.5829927, 1.1489376, -8.9326119}, {1, 0}], Text3DBox["42", {-6.989075699999999, 8.6945097, -1.8330089999999999`}, {1, 0}], Text3DBox["43", {-9.3360831, 6.411752099999999, 1.5230982}, {1, 0}], Text3DBox["44", {-7.6655883, 2.3885807999999997`, 3.2842986}, {1, 0}], Text3DBox["45", {-2.9318898, 6.990000299999999, -3.4808274}, {1, 0}], Text3DBox["46", {5.7758478, 8.7096273, -1.8084429}, {1, 0}], Text3DBox["47", {1.7262206999999998`, 6.997559099999999, -3.4713789}, {1, 0}], Text3DBox["48", {6.4466913, 2.4055880999999997`, 3.3126440999999995`}, {1, 0}], Text3DBox["49", {8.117186100000001, 6.4325388, 1.5571127999999999`}, {1, 0}], Text3DBox["50", {5.792855100000001, -8.7587595, -1.4758557}, {1, 0}], Text3DBox["51", {1.7413383000000002`, -7.1184999, -3.2030415}, {1, 0}], Text3DBox["52", {6.452360400000001, -2.2619709, 3.3995702999999997`}, {1, 0}], Text3DBox["53", {8.1285243, -6.349392, 1.7989943999999998`}, {1, 0}], Text3DBox["54", {-9.3228552, -6.368289, 1.7649798}, {1, 0}], Text3DBox["55", {-7.6580295, -2.2789782, 3.3750042}, {1, 0}], Text3DBox["56", {-2.9148825, -7.1222793, -3.2143797}, {1, 0}], Text3DBox["57", {-6.970178699999999, -8.770097699999999, -1.5042012}, {1, 0}], Text3DBox["58", {1.7243309999999998`, 0.2059773, 10.6900329}, {1, 0}], Text3DBox["59", {4.1148015000000004`, 0.132279, 6.6441852}, {1, 0}], Text3DBox["60", {-5.339367599999999, 0.11905109999999999`, 6.6271779}, {1, 0}], Text3DBox["61", {-2.9640147, 0.1984185, 10.6805844}, {1, 0}], Text3DBox["62", {-0.5754338999999999, -2.5454258999999997`, -10.6446801}, { 1, 0}], Text3DBox[ "63", {-0.5811029999999999, -4.850859900000001, -6.5497002}, {1, 0}], Text3DBox["64", {-0.5924412, 4.5995298, -6.7292217}, {1, 0}], Text3DBox["65", {-0.5811029999999999, 2.1429197999999996`, -10.733495999999999`}, {1, 0}], TubeBox[{{0.0056691, -2.4471615, -1.6648257}, {0., 0., -0.0018897}}, 0.06], TubeBox[{{0.0018897, 2.3848013999999997`, -1.7555313000000001`}, {0., 0., -0.0018897}}, 0.06], TubeBox[{{2.4150366, 0.0359043, 1.7120682}, {0., 0., -0.0018897}}, 0.06], TubeBox[{{-2.418816, 0.0302352, 1.7026197}, {0., 0., -0.0018897}}, 0.06], TubeBox[{{3.7529442, 2.4358232999999996`, 0.9108354}, {2.4150366, 0.0359043, 1.7120682}}, 0.06], TubeBox[{{3.7586133, -2.3904704999999997`, 1.0034307}, {2.4150366, 0.0359043, 1.7120682}}, 0.06], TubeBox[{{-2.4055880999999997`, -3.7775103, -0.8862692999999999}, { 0.0056691, -2.4471615, -1.6648257}}, 0.06], TubeBox[{{0.0075588, 1.2623196, -4.3897731}, {0.0018897, 2.3848013999999997`, -1.7555313000000001`}}, 0.06], TubeBox[{{-3.760503, 2.4263748, 0.8976074999999999}, {-2.418816, 0.0302352, 1.7026197}}, 0.06], TubeBox[{{-1.3530251999999998`, 0.08125709999999998, 4.3576482}, {-2.418816, 0.0302352, 1.7026197}}, 0.06], TubeBox[{{-6.9616548, 5.6520927, 0.8125709999999999}, {-5.6426442, 6.935199, -1.0714598999999998`}}, 0.06], TubeBox[{{-6.0243636, 3.3750042, 1.814112}, {-3.760503, 2.4263748, 0.8976074999999999}}, 0.06], TubeBox[{{-6.0243636, 3.3750042, 1.814112}, {-6.9616548, 5.6520927, 0.8125709999999999}}, 0.06], TubeBox[{{-2.4150366, 3.7359369, -1.0279968}, {0.0018897, 2.3848013999999997`, -1.7555313000000001`}}, 0.06], TubeBox[{{-2.4150366, 3.7359369, -1.0279968}, {-3.760503, 2.4263748, 0.8976074999999999}}, 0.06], TubeBox[{{-3.3466587, 5.9790108, -2.0106408}, {-5.6426442, 6.935199, -1.0714598999999998`}}, 0.06], TubeBox[{{-3.3466587, 5.9790108, -2.0106408}, {-2.4150366, 3.7359369, -1.0279968}}, 0.06], TubeBox[{{3.3409896, 5.9865696, -1.9974128999999998`}, { 5.6313059999999995`, 6.948426899999999, -1.0506732}}, 0.06], TubeBox[{{2.4093674999999997`, 3.741606, -1.0185483}, {0.0018897, 2.3848013999999997`, -1.7555313000000001`}}, 0.06], TubeBox[{{2.4093674999999997`, 3.741606, -1.0185483}, {3.7529442, 2.4358232999999996`, 0.9108354}}, 0.06], TubeBox[{{2.4093674999999997`, 3.741606, -1.0185483}, {3.3409896, 5.9865696, -1.9974128999999998`}}, 0.06], TubeBox[{{6.009246, 3.3901217999999997`, 1.8386780999999999`}, {3.7529442, 2.4358232999999996`, 0.9108354}}, 0.06], TubeBox[{{6.9465372, 5.6691, 0.8390268}, {5.6313059999999995`, 6.948426899999999, -1.0506732}}, 0.06], TubeBox[{{6.9465372, 5.6691, 0.8390268}, {6.009246, 3.3901217999999997`, 1.8386780999999999`}}, 0.06], TubeBox[{{3.3542175, -6.0508194, -1.7687592}, { 5.646423599999999, -6.9711033, -0.7861151999999999}}, 0.06], TubeBox[{{2.418816, -3.7718412, -0.8768208000000001}, { 0.0056691, -2.4471615, -1.6648257}}, 0.06], TubeBox[{{2.418816, -3.7718412, -0.8768208000000001}, { 3.7586133, -2.3904704999999997`, 1.0034307}}, 0.06], TubeBox[{{2.418816, -3.7718412, -0.8768208000000001}, { 3.3542175, -6.0508194, -1.7687592}}, 0.06], TubeBox[{{6.0168048, -3.3050853, 1.965288}, { 3.7586133, -2.3904704999999997`, 1.0034307}}, 0.06], TubeBox[{{6.9578754, -5.6180781, 1.0544526}, { 5.646423599999999, -6.9711033, -0.7861151999999999}}, 0.06], TubeBox[{{6.9578754, -5.6180781, 1.0544526}, {6.0168048, -3.3050853, 1.965288}}, 0.06], TubeBox[{{-6.0149151, -3.3183132, 1.9426116}, {-6.948426899999999, -5.6331957, 1.0261071}}, 0.06], TubeBox[{{-3.7548339, -2.3980292999999997`, 0.9883131}, {-2.418816, 0.0302352, 1.7026197}}, 0.06], TubeBox[{{-3.7548339, -2.3980292999999997`, 0.9883131}, {-2.4055880999999997`, -3.7775103, -0.8862692999999999}}, 0.06], TubeBox[{{-3.7548339, -2.3980292999999997`, 0.9883131}, {-6.0149151, -3.3183132, 1.9426116}}, 0.06], TubeBox[{{-3.3334308, -6.0564884999999995`, -1.7819870999999998`}, \ {-2.4055880999999997`, -3.7775103, -0.8862692999999999}}, 0.06], TubeBox[{{-5.6275266, -6.982441499999999, -0.8087915999999999}, \ {-6.948426899999999, -5.6331957, 1.0261071}}, 0.06], TubeBox[{{-5.6275266, -6.982441499999999, -0.8087915999999999}, \ {-3.3334308, -6.0564884999999995`, -1.7819870999999998`}}, 0.06], TubeBox[{{2.6606975999999998`, 0.1284996, 6.6233984999999995`}, { 1.3001135999999998`, 0.17007299999999997`, 8.9061561}}, 0.06], TubeBox[{{1.3379075999999999`, 0.08503649999999999, 4.3633173}, {2.4150366, 0.0359043, 1.7120682}}, 0.06], TubeBox[{{1.3379075999999999`, 0.08503649999999999, 4.3633173}, {-1.3530251999999998`, 0.08125709999999998, 4.3576482}}, 0.06], TubeBox[{{1.3379075999999999`, 0.08503649999999999, 4.3633173}, { 2.6606975999999998`, 0.1284996, 6.6233984999999995`}}, 0.06], TubeBox[{{-2.6852637, 0.1228305, 6.61395}, {-1.3530251999999998`, 0.08125709999999998, 4.3576482}}, 0.06], TubeBox[{{-1.3322384999999999`, 0.16629359999999999`, 8.9023767}, { 1.3001135999999998`, 0.17007299999999997`, 8.9061561}}, 0.06], TubeBox[{{-1.3322384999999999`, 0.16629359999999999`, 8.9023767}, {-2.6852637, 0.1228305, 6.61395}}, 0.06], TubeBox[{{0.0170073, -2.796756, -6.5704869}, { 0.020786699999999998`, -1.4853042, -8.883479699999999}}, 0.06], TubeBox[{{0.0113382, -1.4267235, -4.3387512}, { 0.0056691, -2.4471615, -1.6648257}}, 0.06], TubeBox[{{0.0113382, -1.4267235, -4.3387512}, {0.0075588, 1.2623196, -4.3897731}}, 0.06], TubeBox[{{0.0113382, -1.4267235, -4.3387512}, { 0.0170073, -2.796756, -6.5704869}}, 0.06], TubeBox[{{0.0094485, 2.5473156, -6.6725307}, {0.0075588, 1.2623196, -4.3897731}}, 0.06], TubeBox[{{0.0170073, 1.1489376, -8.9326119}, { 0.020786699999999998`, -1.4853042, -8.883479699999999}}, 0.06], TubeBox[{{0.0170073, 1.1489376, -8.9326119}, {0.0094485, 2.5473156, -6.6725307}}, 0.06], TubeBox[{{-6.389075699999999, 8.6945097, -1.8330089999999999`}, {-5.6426442, 6.935199, -1.0714598999999998`}}, 0.06], TubeBox[{{-8.7360831, 6.411752099999999, 1.5230982}, {-6.9616548, 5.6520927, 0.8125709999999999}}, 0.06], TubeBox[{{-7.0655883, 2.3885807999999997`, 3.2842986}, {-6.0243636, 3.3750042, 1.814112}}, 0.06], TubeBox[{{-2.3318898, 6.990000299999999, -3.4808274}, {-3.3466587, 5.9790108, -2.0106408}}, 0.06], TubeBox[{{6.3758478, 8.7096273, -1.8084429}, {5.6313059999999995`, 6.948426899999999, -1.0506732}}, 0.06], TubeBox[{{2.3262207, 6.997559099999999, -3.4713789}, {3.3409896, 5.9865696, -1.9974128999999998`}}, 0.06], TubeBox[{{7.0466913, 2.4055880999999997`, 3.3126440999999995`}, {6.009246, 3.3901217999999997`, 1.8386780999999999`}}, 0.06], TubeBox[{{8.717186100000001, 6.4325388, 1.5571127999999999`}, {6.9465372, 5.6691, 0.8390268}}, 0.06], TubeBox[{{6.3928551, -8.7587595, -1.4758557}, { 5.646423599999999, -6.9711033, -0.7861151999999999}}, 0.06], TubeBox[{{2.3413383000000003`, -7.1184999, -3.2030415}, { 3.3542175, -6.0508194, -1.7687592}}, 0.06], TubeBox[{{7.0523604, -2.2619709, 3.3995702999999997`}, { 6.0168048, -3.3050853, 1.965288}}, 0.06], TubeBox[{{8.7285243, -6.349392, 1.7989943999999998`}, { 6.9578754, -5.6180781, 1.0544526}}, 0.06], TubeBox[{{-8.7228552, -6.368289, 1.7649798}, {-6.948426899999999, -5.6331957, 1.0261071}}, 0.06], TubeBox[{{-7.0580295, -2.2789782, 3.3750042}, {-6.0149151, -3.3183132, 1.9426116}}, 0.06], TubeBox[{{-2.3148825, -7.1222793, -3.2143797}, {-3.3334308, \ -6.0564884999999995`, -1.7819870999999998`}}, 0.06], TubeBox[{{-6.370178699999999, -8.770097699999999, -1.5042012}, \ {-5.6275266, -6.982441499999999, -0.8087915999999999}}, 0.06], TubeBox[{{2.324331, 0.2059773, 10.6900329}, {1.3001135999999998`, 0.17007299999999997`, 8.9061561}}, 0.06], TubeBox[{{4.7148015, 0.132279, 6.6441852}, {2.6606975999999998`, 0.1284996, 6.6233984999999995`}}, 0.06], TubeBox[{{-4.7393676, 0.11905109999999999`, 6.6271779}, {-2.6852637, 0.1228305, 6.61395}}, 0.06], TubeBox[{{-2.3640147, 0.1984185, 10.6805844}, {-1.3322384999999999`, 0.16629359999999999`, 8.9023767}}, 0.06], TubeBox[{{0.024566099999999997`, -2.5454258999999997`, -10.6446801}, { 0.020786699999999998`, -1.4853042, -8.883479699999999}}, 0.06], TubeBox[{{0.018897, -4.850859900000001, -6.5497002}, { 0.0170073, -2.796756, -6.5704869}}, 0.06], TubeBox[{{0.0075588, 4.5995298, -6.7292217}, {0.0094485, 2.5473156, -6.6725307}}, 0.06], TubeBox[{{0.018897, 2.1429197999999996`, -10.733495999999999`}, {0.0170073, 1.1489376, -8.9326119}}, 0.06]}, AspectRatio->Automatic, Axes->Automatic, AxesLabel->{ FormBox["xl", TraditionalForm], FormBox["yl", TraditionalForm], FormBox["zl", TraditionalForm]}, Boxed->True, SphericalRegion->True]], "Output", CellChangeTimes->{ 3.5728722981445446`*^9, {3.5728738883489375`*^9, 3.5728739141513824`*^9}, 3.572925732729886*^9, 3.5729257665663457`*^9, 3.5800581730255423`*^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", ",", "tpo", ",", "tpu"}], "]"}]}], ";"}], "\[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}}], Cell[BoxData["189"], "Output", CellChangeTimes->{ 3.5728722982225447`*^9, {3.572873889004139*^9, 3.572873914260583*^9}, 3.5729257327922864`*^9, 3.572925766628746*^9, 3.5800581730405426`*^9}] }, Open ]], Cell[CellGroupData[{ Cell[BoxData[ RowBox[{ RowBox[{"(*", " ", RowBox[{"cloud", "-", RowBox[{"cloud", " ", "distances"}]}], " ", "*)"}], "\[IndentingNewLine]", RowBox[{ RowBox[{ RowBox[{"dw", "=", RowBox[{"Table", "[", RowBox[{ RowBox[{"Norm", "[", RowBox[{ RowBox[{"tw", "[", RowBox[{"[", "i", "]"}], "]"}], "-", RowBox[{"tw", "[", RowBox[{"[", "j", "]"}], "]"}]}], "]"}], ",", RowBox[{"{", RowBox[{"i", ",", "1", ",", "bt"}], "}"}], ",", RowBox[{"{", RowBox[{"j", ",", "1", ",", "bt"}], "}"}]}], "]"}]}], ";"}], "\[IndentingNewLine]", RowBox[{"(*", RowBox[{"MatrixForm", "[", "dw", "]"}], "*)"}], "\[IndentingNewLine]", RowBox[{"Length", "[", "dw", "]"}]}]}]], "Input", CellChangeTimes->{{3.5688982251756487`*^9, 3.5688986440675845`*^9}, { 3.5688986873108606`*^9, 3.56889871560931*^9}, {3.5688987970414534`*^9, 3.5688988526711507`*^9}, {3.568898887147211*^9, 3.568898888644814*^9}, { 3.5688989206248703`*^9, 3.568899041759083*^9}, {3.5688990876855636`*^9, 3.568899258349863*^9}, 3.568899300267137*^9, {3.568899351326027*^9, 3.5688993831032825`*^9}, {3.5688994370481772`*^9, 3.568899468217032*^9}, { 3.5688995813016305`*^9, 3.5688997165538683`*^9}, {3.5688998495129013`*^9, 3.568899932364647*^9}, {3.568899967667509*^9, 3.568900024529609*^9}, { 3.5689000794261055`*^9, 3.568900136257005*^9}, {3.5689001767858763`*^9, 3.56890020149632*^9}, {3.568902068726*^9, 3.568902074139209*^9}, 3.56890216040736*^9, 3.568902344113283*^9, {3.5689024237982235`*^9, 3.56890243907065*^9}, 3.5689025770684924`*^9, 3.568910195129884*^9, 3.568910620995032*^9, {3.568912393532545*^9, 3.5689124022841606`*^9}, { 3.5691332074958715`*^9, 3.5691332081666727`*^9}, {3.5691352237838125`*^9, 3.5691352313342257`*^9}, {3.5691489965881166`*^9, 3.5691490103317413`*^9}, {3.5691490440122004`*^9, 3.5691491351943607`*^9}, {3.569149201666077*^9, 3.5691492026956787`*^9}, { 3.5691494320784817`*^9, 3.5691494680989447`*^9}, {3.569152288984131*^9, 3.5691522953957424`*^9}, {3.5691595058486633`*^9, 3.569159537672719*^9}, 3.569237911685565*^9, 3.5693411655535583`*^9, 3.5693418217687106`*^9, { 3.5703410302061863`*^9, 3.570341063621445*^9}, {3.5720164790812473`*^9, 3.572016508424899*^9}, {3.57235540487335*^9, 3.572355408040156*^9}, { 3.572356807768214*^9, 3.5723568154122276`*^9}, {3.572621722359356*^9, 3.572621725962962*^9}}], Cell[BoxData["189"], "Output", CellChangeTimes->{ 3.572872298378545*^9, {3.572873889160139*^9, 3.572873914416583*^9}, 3.5729257329482865`*^9, 3.572925766784746*^9, 3.5800581732075524`*^9}] }, Open ]], Cell[BoxData[ RowBox[{ RowBox[{"(*", " ", RowBox[{"nucleus", "-", RowBox[{"nucleus", " ", "distances"}]}], " ", "*)"}], "\[IndentingNewLine]", RowBox[{"(*", RowBox[{"MatrixForm", "[", "dc", "]"}], " ", "*)"}], " "}]], "Input", CellChangeTimes->{{3.5688982251756487`*^9, 3.5688986440675845`*^9}, { 3.5688986873108606`*^9, 3.56889871560931*^9}, {3.5688987970414534`*^9, 3.5688988526711507`*^9}, {3.568898887147211*^9, 3.568898888644814*^9}, { 3.5688989206248703`*^9, 3.568899041759083*^9}, {3.5688990876855636`*^9, 3.568899258349863*^9}, 3.568899300267137*^9, {3.568899351326027*^9, 3.5688993831032825`*^9}, {3.5688994370481772`*^9, 3.568899468217032*^9}, { 3.5688995813016305`*^9, 3.5688997165538683`*^9}, {3.5688998495129013`*^9, 3.568899932364647*^9}, {3.568899967667509*^9, 3.568900024529609*^9}, { 3.5689000794261055`*^9, 3.568900136257005*^9}, {3.5689001767858763`*^9, 3.56890020149632*^9}, {3.568902068726*^9, 3.568902074139209*^9}, 3.56890216040736*^9, 3.568902344113283*^9, {3.5689024237982235`*^9, 3.56890243907065*^9}, 3.5689025770684924`*^9, 3.568910195129884*^9, 3.568910620995032*^9, {3.568912393532545*^9, 3.5689124022841606`*^9}, { 3.5691332074958715`*^9, 3.5691332081666727`*^9}, {3.5691352237838125`*^9, 3.5691352313342257`*^9}, {3.5691489965881166`*^9, 3.5691490103317413`*^9}, {3.5691490440122004`*^9, 3.5691491273631463`*^9}, {3.5691523435842266`*^9, 3.56915234531583*^9}, { 3.5691524837816734`*^9, 3.569152599175076*^9}, {3.569159470889002*^9, 3.569159489874235*^9}, {3.569160442895509*^9, 3.5691604484335184`*^9}, 3.569237923385586*^9, 3.569341165569158*^9, 3.5693418217843103`*^9, { 3.570341048161818*^9, 3.570341058286236*^9}, {3.57034131095988*^9, 3.570341315156287*^9}, 3.5703415891395683`*^9, 3.570341976207448*^9}], Cell[CellGroupData[{ Cell[BoxData[{ RowBox[{ RowBox[{"tv1", "=", RowBox[{"Table", "[", RowBox[{ RowBox[{"t", "[", RowBox[{"[", "i", "]"}], "]"}], ",", RowBox[{"{", RowBox[{"i", ",", "1", ",", "bc"}], "}"}]}], "]"}]}], ";"}], "\[IndentingNewLine]", RowBox[{ RowBox[{"tv2", "=", RowBox[{"Table", "[", RowBox[{ RowBox[{"{", RowBox[{"0", ",", "0", ",", "0"}], "}"}], ",", RowBox[{"{", RowBox[{"i", ",", "1", ",", "cw"}], "}"}]}], "]"}]}], ";"}], "\[IndentingNewLine]", RowBox[{ RowBox[{"tv3", "=", " ", RowBox[{"Table", "[", RowBox[{ RowBox[{"t", "[", RowBox[{"[", "i", "]"}], "]"}], ",", RowBox[{"{", RowBox[{"i", ",", RowBox[{"bc", "+", "1"}], ",", "n"}], "}"}]}], "]"}]}], ";"}], "\[IndentingNewLine]", RowBox[{ RowBox[{ RowBox[{"tv4", " ", "=", RowBox[{"Table", "[", RowBox[{ RowBox[{"{", RowBox[{"0", ",", "0", ",", "0"}], "}"}], ",", RowBox[{"{", RowBox[{"i", ",", "1", ",", "nj"}], "}"}]}], "]"}]}], ";"}], " "}], "\[IndentingNewLine]", RowBox[{ RowBox[{ RowBox[{"tv5", " ", "=", RowBox[{"Table", "[", RowBox[{ RowBox[{"{", RowBox[{"0", ",", "0", ",", "0"}], "}"}], ",", RowBox[{"{", RowBox[{"i", ",", "1", ",", "nj"}], "}"}]}], "]"}]}], ";"}], " "}], "\[IndentingNewLine]", RowBox[{ RowBox[{"tv", " ", "=", " ", RowBox[{"Join", "[", RowBox[{"tv1", ",", "tv2", ",", "tv3", ",", "tv4", ",", "tv5"}], "]"}]}], ";"}], "\[IndentingNewLine]", 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}}], Cell[BoxData[ TagBox[ RowBox[{"(", "\[NoBreak]", GridBox[{ {"0.`", "0.`", RowBox[{"-", "0.0018897`"}]}, {"0.0056691`", RowBox[{"-", "2.4471615`"}], RowBox[{"-", "1.6648257`"}]}, {"0.0018897`", "2.3848013999999997`", RowBox[{"-", "1.7555313000000001`"}]}, {"2.4150366`", "0.0359043`", "1.7120682`"}, { RowBox[{"-", "2.418816`"}], "0.0302352`", "1.7026197`"}, {"3.7529442`", "2.4358232999999996`", "0.9108354`"}, {"3.7586133`", RowBox[{"-", "2.3904704999999997`"}], "1.0034307`"}, { RowBox[{"-", "2.4055880999999997`"}], RowBox[{"-", "3.7775103`"}], RowBox[{"-", "0.8862692999999999`"}]}, {"0.0075588`", "1.2623196`", RowBox[{"-", "4.3897731`"}]}, { RowBox[{"-", "3.760503`"}], "2.4263748`", "0.8976074999999999`"}, { RowBox[{"-", "1.3530251999999998`"}], "0.08125709999999998`", "4.3576482`"}, { RowBox[{"-", "5.6426442`"}], "6.935199`", RowBox[{"-", "1.0714598999999998`"}]}, { RowBox[{"-", "6.9616548`"}], "5.6520927`", "0.8125709999999999`"}, { RowBox[{"-", "6.0243636`"}], "3.3750042`", "1.814112`"}, { RowBox[{"-", "2.4150366`"}], "3.7359369`", RowBox[{"-", "1.0279968`"}]}, { RowBox[{"-", "3.3466587`"}], "5.9790108`", RowBox[{"-", "2.0106408`"}]}, {"5.6313059999999995`", "6.948426899999999`", RowBox[{"-", "1.0506732`"}]}, {"3.3409896`", "5.9865696`", RowBox[{"-", "1.9974128999999998`"}]}, {"2.4093674999999997`", "3.741606`", RowBox[{"-", "1.0185483`"}]}, {"6.009246`", "3.3901217999999997`", "1.8386780999999999`"}, {"6.9465372`", "5.6691`", "0.8390268`"}, {"5.646423599999999`", RowBox[{"-", "6.9711033`"}], RowBox[{"-", "0.7861151999999999`"}]}, {"3.3542175`", RowBox[{"-", "6.0508194`"}], RowBox[{"-", "1.7687592`"}]}, {"2.418816`", RowBox[{"-", "3.7718412`"}], RowBox[{"-", "0.8768208000000001`"}]}, {"6.0168048`", RowBox[{"-", "3.3050853`"}], "1.965288`"}, {"6.9578754`", RowBox[{"-", "5.6180781`"}], "1.0544526`"}, { RowBox[{"-", "6.948426899999999`"}], RowBox[{"-", "5.6331957`"}], "1.0261071`"}, { RowBox[{"-", "6.0149151`"}], RowBox[{"-", "3.3183132`"}], "1.9426116`"}, { RowBox[{"-", "3.7548339`"}], RowBox[{"-", "2.3980292999999997`"}], "0.9883131`"}, { RowBox[{"-", "3.3334308`"}], RowBox[{"-", "6.0564884999999995`"}], RowBox[{"-", "1.7819870999999998`"}]}, { RowBox[{"-", "5.6275266`"}], RowBox[{"-", "6.982441499999999`"}], RowBox[{"-", "0.8087915999999999`"}]}, {"1.3001135999999998`", "0.17007299999999997`", "8.9061561`"}, {"2.6606975999999998`", "0.1284996`", "6.6233984999999995`"}, {"1.3379075999999999`", "0.08503649999999999`", "4.3633173`"}, { RowBox[{"-", "2.6852637`"}], "0.1228305`", "6.61395`"}, { RowBox[{"-", "1.3322384999999999`"}], "0.16629359999999999`", "8.9023767`"}, {"0.020786699999999998`", RowBox[{"-", "1.4853042`"}], RowBox[{"-", "8.883479699999999`"}]}, {"0.0170073`", RowBox[{"-", "2.796756`"}], RowBox[{"-", "6.5704869`"}]}, {"0.0113382`", RowBox[{"-", "1.4267235`"}], RowBox[{"-", "4.3387512`"}]}, {"0.0094485`", "2.5473156`", RowBox[{"-", "6.6725307`"}]}, {"0.0170073`", "1.1489376`", RowBox[{"-", "8.9326119`"}]}, {"0", "0", "0"}, {"0", "0", "0"}, {"0", "0", "0"}, {"0", "0", "0"}, {"0", "0", "0"}, {"0", "0", "0"}, {"0", "0", "0"}, {"0", "0", "0"}, {"0", "0", "0"}, {"0", "0", "0"}, {"0", "0", "0"}, {"0", "0", "0"}, {"0", "0", "0"}, {"0", "0", "0"}, {"0", "0", "0"}, {"0", "0", "0"}, {"0", "0", "0"}, {"0", "0", "0"}, {"0", "0", "0"}, {"0", "0", "0"}, {"0", "0", "0"}, {"0", "0", "0"}, {"0", "0", "0"}, {"0", "0", "0"}, {"0", "0", "0"}, {"0", "0", "0"}, {"0", "0", "0"}, {"0", "0", "0"}, {"0", "0", "0"}, {"0", "0", "0"}, {"0", "0", "0"}, {"0", "0", "0"}, {"0", "0", "0"}, {"0", "0", "0"}, {"0", "0", "0"}, {"0", "0", "0"}, {"0", "0", "0"}, {"0", "0", "0"}, {"0", "0", "0"}, {"0", "0", "0"}, {"0", "0", "0"}, {"0", "0", "0"}, {"0", "0", "0"}, {"0", "0", "0"}, {"0", "0", "0"}, {"0", "0", "0"}, {"0", "0", "0"}, {"0", "0", "0"}, {"0", "0", "0"}, {"0", "0", "0"}, {"0", "0", "0"}, {"0", "0", "0"}, { RowBox[{"-", "6.389075699999999`"}], "8.6945097`", RowBox[{"-", "1.8330089999999999`"}]}, { RowBox[{"-", "8.7360831`"}], "6.411752099999999`", "1.5230982`"}, { RowBox[{"-", "7.0655883`"}], "2.3885807999999997`", "3.2842986`"}, { RowBox[{"-", "2.3318898`"}], "6.990000299999999`", RowBox[{"-", "3.4808274`"}]}, {"6.3758478`", "8.7096273`", RowBox[{"-", "1.8084429`"}]}, {"2.3262207`", "6.997559099999999`", RowBox[{"-", "3.4713789`"}]}, {"7.0466913`", "2.4055880999999997`", "3.3126440999999995`"}, {"8.717186100000001`", "6.4325388`", "1.5571127999999999`"}, {"6.3928551`", RowBox[{"-", "8.7587595`"}], RowBox[{"-", "1.4758557`"}]}, {"2.3413383000000003`", RowBox[{"-", "7.1184999`"}], RowBox[{"-", "3.2030415`"}]}, {"7.0523604`", RowBox[{"-", "2.2619709`"}], "3.3995702999999997`"}, {"8.7285243`", RowBox[{"-", "6.349392`"}], "1.7989943999999998`"}, { RowBox[{"-", "8.7228552`"}], RowBox[{"-", "6.368289`"}], "1.7649798`"}, { RowBox[{"-", "7.0580295`"}], RowBox[{"-", "2.2789782`"}], "3.3750042`"}, { RowBox[{"-", "2.3148825`"}], RowBox[{"-", "7.1222793`"}], RowBox[{"-", "3.2143797`"}]}, { RowBox[{"-", "6.370178699999999`"}], RowBox[{"-", "8.770097699999999`"}], RowBox[{"-", "1.5042012`"}]}, {"2.324331`", "0.2059773`", "10.6900329`"}, {"4.7148015`", "0.132279`", "6.6441852`"}, { RowBox[{"-", "4.7393676`"}], "0.11905109999999999`", "6.6271779`"}, { RowBox[{"-", "2.3640147`"}], "0.1984185`", "10.6805844`"}, {"0.024566099999999997`", RowBox[{"-", "2.5454258999999997`"}], RowBox[{"-", "10.6446801`"}]}, {"0.018897`", RowBox[{"-", "4.850859900000001`"}], RowBox[{"-", "6.5497002`"}]}, {"0.0075588`", "4.5995298`", RowBox[{"-", "6.7292217`"}]}, {"0.018897`", "2.1429197999999996`", RowBox[{"-", "10.733495999999999`"}]}, {"0", "0", "0"}, {"0", "0", "0"}, {"0", "0", "0"}, {"0", "0", "0"}, {"0", "0", "0"}, {"0", "0", "0"}, {"0", "0", "0"}, {"0", "0", "0"}, {"0", "0", "0"}, {"0", "0", "0"}, {"0", "0", "0"}, {"0", "0", "0"}, {"0", "0", "0"}, {"0", "0", "0"}, {"0", "0", "0"}, {"0", "0", "0"}, {"0", "0", "0"}, {"0", "0", "0"}, {"0", "0", "0"}, {"0", "0", "0"}, {"0", "0", "0"}, {"0", "0", "0"}, {"0", "0", "0"}, {"0", "0", "0"}, {"0", "0", "0"}, {"0", "0", "0"}, {"0", "0", "0"}, {"0", "0", "0"}, {"0", "0", "0"}, {"0", "0", "0"}, {"0", "0", "0"}, {"0", "0", "0"}, {"0", "0", "0"}, {"0", "0", "0"}, {"0", "0", "0"}, {"0", "0", "0"}, {"0", "0", "0"}, {"0", "0", "0"}, {"0", "0", "0"}, {"0", "0", "0"}, {"0", "0", "0"}, {"0", "0", "0"}, {"0", "0", "0"}, {"0", "0", "0"}, {"0", "0", "0"}, {"0", "0", "0"}, {"0", "0", "0"}, {"0", "0", "0"}, {"0", "0", "0"}, {"0", "0", "0"}, {"0", "0", "0"}, {"0", "0", "0"}, {"0", "0", "0"}, {"0", "0", "0"}, {"0", "0", "0"}, {"0", "0", "0"}, {"0", "0", "0"}, {"0", "0", "0"}, {"0", "0", "0"}, {"0", "0", "0"}, {"0", "0", "0"}, {"0", "0", "0"}, {"0", "0", "0"}, {"0", "0", "0"}, {"0", "0", "0"}, {"0", "0", "0"}, {"0", "0", "0"}, {"0", "0", "0"}, {"0", "0", "0"}, {"0", "0", "0"}, {"0", "0", "0"}, {"0", "0", "0"} }, GridBoxAlignment->{ "Columns" -> {{Center}}, "ColumnsIndexed" -> {}, "Rows" -> {{Baseline}}, "RowsIndexed" -> {}}, GridBoxSpacings->{"Columns" -> { Offset[0.27999999999999997`], { Offset[0.7]}, Offset[0.27999999999999997`]}, "ColumnsIndexed" -> {}, "Rows" -> { Offset[0.2], { Offset[0.4]}, Offset[0.2]}, "RowsIndexed" -> {}}], "\[NoBreak]", ")"}], Function[BoxForm`e$, MatrixForm[BoxForm`e$]]]], "Output", CellChangeTimes->{ 3.572872298409745*^9, {3.5728738891913395`*^9, 3.5728739144321833`*^9}, 3.5729257329638863`*^9, 3.572925766815946*^9, 3.5800581732485547`*^9}], Cell[BoxData["189"], "Output", CellChangeTimes->{ 3.572872298409745*^9, {3.5728738891913395`*^9, 3.5728739144321833`*^9}, 3.5729257329638863`*^9, 3.572925766815946*^9, 3.5800581732515545`*^9}] }, Open ]], Cell[CellGroupData[{ Cell[BoxData[{ RowBox[{"ow", "=", RowBox[{"Join", "[", RowBox[{ RowBox[{"Table", "[", RowBox[{ RowBox[{"-", "2.0"}], ",", RowBox[{"{", RowBox[{"i", ",", "1", ",", RowBox[{"bc", "+", "nb"}]}], "}"}]}], "]"}], ",", RowBox[{"Table", "[", RowBox[{ RowBox[{"-", "0.5"}], ",", RowBox[{"{", RowBox[{"i", ",", "1", ",", RowBox[{"2", "*", "nj"}]}], "}"}]}], "]"}]}], "]"}]}], "\[IndentingNewLine]", RowBox[{"cnv", "=", RowBox[{"Join", "[", RowBox[{ RowBox[{"Table", "[", RowBox[{ RowBox[{"cn", "[", RowBox[{"[", "i", "]"}], "]"}], ",", RowBox[{"{", RowBox[{"i", ",", "1", ",", "bc"}], "}"}]}], "]"}], ",", RowBox[{"Table", "[", RowBox[{"0.0", ",", RowBox[{"{", RowBox[{"i", ",", "1", ",", "cw"}], "}"}]}], "]"}], ",", RowBox[{"Table", "[", RowBox[{ RowBox[{"cn", "[", RowBox[{"[", "i", "]"}], "]"}], ",", RowBox[{"{", RowBox[{"i", ",", RowBox[{"bc", "+", "1"}], ",", "n"}], "}"}]}], "]"}], ",", RowBox[{"Table", "[", RowBox[{"0.0", ",", RowBox[{"{", RowBox[{"i", ",", "1", ",", RowBox[{"2", "*", "nj"}]}], "}"}]}], "]"}]}], "]"}]}]}], "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}}], Cell[BoxData[ RowBox[{"{", RowBox[{ RowBox[{"-", "2.`"}], ",", RowBox[{"-", "2.`"}], ",", RowBox[{"-", "2.`"}], ",", RowBox[{"-", "2.`"}], ",", RowBox[{"-", "2.`"}], ",", RowBox[{"-", "2.`"}], ",", RowBox[{"-", "2.`"}], ",", RowBox[{"-", "2.`"}], ",", RowBox[{"-", "2.`"}], ",", RowBox[{"-", "2.`"}], ",", RowBox[{"-", "2.`"}], ",", RowBox[{"-", "2.`"}], ",", RowBox[{"-", "2.`"}], ",", RowBox[{"-", "2.`"}], ",", RowBox[{"-", "2.`"}], ",", RowBox[{"-", "2.`"}], ",", RowBox[{"-", "2.`"}], ",", RowBox[{"-", "2.`"}], ",", RowBox[{"-", "2.`"}], ",", RowBox[{"-", "2.`"}], ",", RowBox[{"-", "2.`"}], ",", RowBox[{"-", "2.`"}], ",", RowBox[{"-", "2.`"}], ",", RowBox[{"-", "2.`"}], ",", RowBox[{"-", "2.`"}], ",", RowBox[{"-", "2.`"}], ",", RowBox[{"-", "2.`"}], ",", RowBox[{"-", "2.`"}], ",", RowBox[{"-", "2.`"}], ",", RowBox[{"-", "2.`"}], ",", RowBox[{"-", "2.`"}], ",", RowBox[{"-", "2.`"}], ",", RowBox[{"-", "2.`"}], ",", RowBox[{"-", "2.`"}], ",", RowBox[{"-", "2.`"}], ",", RowBox[{"-", "2.`"}], ",", RowBox[{"-", "2.`"}], ",", RowBox[{"-", "2.`"}], ",", RowBox[{"-", "2.`"}], ",", RowBox[{"-", "2.`"}], ",", RowBox[{"-", "2.`"}], ",", RowBox[{"-", "2.`"}], ",", RowBox[{"-", "2.`"}], ",", RowBox[{"-", "2.`"}], ",", RowBox[{"-", "2.`"}], ",", RowBox[{"-", "2.`"}], ",", RowBox[{"-", "2.`"}], ",", RowBox[{"-", "2.`"}], ",", RowBox[{"-", "2.`"}], ",", RowBox[{"-", "2.`"}], ",", RowBox[{"-", "2.`"}], ",", RowBox[{"-", "2.`"}], ",", RowBox[{"-", "2.`"}], ",", RowBox[{"-", "2.`"}], ",", RowBox[{"-", "2.`"}], ",", RowBox[{"-", "2.`"}], ",", RowBox[{"-", "2.`"}], ",", RowBox[{"-", "2.`"}], ",", RowBox[{"-", "2.`"}], ",", RowBox[{"-", "2.`"}], ",", RowBox[{"-", "2.`"}], ",", RowBox[{"-", "2.`"}], ",", RowBox[{"-", "2.`"}], ",", RowBox[{"-", "2.`"}], ",", RowBox[{"-", "2.`"}], ",", RowBox[{"-", "2.`"}], ",", RowBox[{"-", "2.`"}], ",", RowBox[{"-", "2.`"}], ",", RowBox[{"-", "2.`"}], ",", RowBox[{"-", "2.`"}], ",", RowBox[{"-", "2.`"}], ",", RowBox[{"-", "2.`"}], ",", RowBox[{"-", "2.`"}], ",", RowBox[{"-", "2.`"}], ",", RowBox[{"-", "2.`"}], ",", RowBox[{"-", "2.`"}], ",", RowBox[{"-", "2.`"}], ",", RowBox[{"-", "2.`"}], ",", RowBox[{"-", "2.`"}], ",", RowBox[{"-", "2.`"}], ",", RowBox[{"-", "2.`"}], ",", RowBox[{"-", "2.`"}], ",", RowBox[{"-", "2.`"}], ",", RowBox[{"-", "2.`"}], ",", RowBox[{"-", "2.`"}], ",", RowBox[{"-", "2.`"}], ",", RowBox[{"-", "2.`"}], ",", RowBox[{"-", "2.`"}], ",", RowBox[{"-", "2.`"}], ",", RowBox[{"-", "2.`"}], ",", RowBox[{"-", "2.`"}], ",", RowBox[{"-", "2.`"}], ",", RowBox[{"-", "2.`"}], ",", RowBox[{"-", "2.`"}], ",", RowBox[{"-", "2.`"}], ",", RowBox[{"-", "2.`"}], ",", RowBox[{"-", "2.`"}], ",", RowBox[{"-", "2.`"}], ",", RowBox[{"-", "2.`"}], ",", RowBox[{"-", "2.`"}], ",", RowBox[{"-", "2.`"}], ",", RowBox[{"-", "2.`"}], ",", RowBox[{"-", "2.`"}], ",", RowBox[{"-", "2.`"}], ",", RowBox[{"-", "2.`"}], ",", RowBox[{"-", "2.`"}], ",", RowBox[{"-", "2.`"}], ",", RowBox[{"-", "2.`"}], ",", RowBox[{"-", "2.`"}], ",", RowBox[{"-", "2.`"}], ",", RowBox[{"-", "2.`"}], ",", RowBox[{"-", "2.`"}], ",", RowBox[{"-", "2.`"}], ",", RowBox[{"-", "2.`"}], ",", RowBox[{"-", "2.`"}], ",", RowBox[{"-", "2.`"}], ",", RowBox[{"-", "2.`"}], ",", RowBox[{"-", "0.5`"}], ",", RowBox[{"-", "0.5`"}], ",", RowBox[{"-", "0.5`"}], ",", RowBox[{"-", "0.5`"}], ",", RowBox[{"-", "0.5`"}], ",", RowBox[{"-", "0.5`"}], ",", RowBox[{"-", "0.5`"}], ",", RowBox[{"-", "0.5`"}], ",", RowBox[{"-", "0.5`"}], ",", RowBox[{"-", "0.5`"}], ",", RowBox[{"-", "0.5`"}], ",", RowBox[{"-", "0.5`"}], ",", RowBox[{"-", "0.5`"}], ",", RowBox[{"-", "0.5`"}], ",", RowBox[{"-", "0.5`"}], ",", RowBox[{"-", "0.5`"}], ",", RowBox[{"-", "0.5`"}], ",", RowBox[{"-", "0.5`"}], ",", RowBox[{"-", "0.5`"}], ",", RowBox[{"-", "0.5`"}], ",", RowBox[{"-", "0.5`"}], ",", RowBox[{"-", "0.5`"}], ",", RowBox[{"-", "0.5`"}], ",", RowBox[{"-", "0.5`"}], ",", RowBox[{"-", "0.5`"}], ",", RowBox[{"-", "0.5`"}], ",", RowBox[{"-", "0.5`"}], ",", RowBox[{"-", "0.5`"}], ",", RowBox[{"-", "0.5`"}], ",", RowBox[{"-", "0.5`"}], ",", RowBox[{"-", "0.5`"}], ",", RowBox[{"-", "0.5`"}], ",", RowBox[{"-", "0.5`"}], ",", RowBox[{"-", "0.5`"}], ",", RowBox[{"-", "0.5`"}], ",", RowBox[{"-", "0.5`"}], ",", RowBox[{"-", "0.5`"}], ",", RowBox[{"-", "0.5`"}], ",", RowBox[{"-", "0.5`"}], ",", RowBox[{"-", "0.5`"}], ",", RowBox[{"-", "0.5`"}], ",", RowBox[{"-", "0.5`"}], ",", RowBox[{"-", "0.5`"}], ",", RowBox[{"-", "0.5`"}], ",", RowBox[{"-", "0.5`"}], ",", RowBox[{"-", "0.5`"}], ",", RowBox[{"-", "0.5`"}], ",", RowBox[{"-", "0.5`"}], ",", RowBox[{"-", "0.5`"}], ",", RowBox[{"-", "0.5`"}], ",", RowBox[{"-", "0.5`"}], ",", RowBox[{"-", "0.5`"}], ",", RowBox[{"-", "0.5`"}], ",", RowBox[{"-", "0.5`"}], ",", RowBox[{"-", "0.5`"}], ",", RowBox[{"-", "0.5`"}], ",", RowBox[{"-", "0.5`"}], ",", RowBox[{"-", "0.5`"}], ",", RowBox[{"-", "0.5`"}], ",", RowBox[{"-", "0.5`"}], ",", RowBox[{"-", "0.5`"}], ",", RowBox[{"-", "0.5`"}], ",", RowBox[{"-", "0.5`"}], ",", RowBox[{"-", "0.5`"}], ",", RowBox[{"-", "0.5`"}], ",", RowBox[{"-", "0.5`"}], ",", RowBox[{"-", "0.5`"}], ",", RowBox[{"-", "0.5`"}], ",", RowBox[{"-", "0.5`"}], ",", RowBox[{"-", "0.5`"}], ",", RowBox[{"-", "0.5`"}], ",", RowBox[{"-", "0.5`"}]}], "}"}]], "Output", CellChangeTimes->{ 3.5728722984253454`*^9, {3.5728738891913395`*^9, 3.5728739144477835`*^9}, 3.5729257329794865`*^9, 3.572925766831546*^9, 3.5800581732625556`*^9}], Cell[BoxData[ RowBox[{"{", RowBox[{ "6.`", ",", "6.`", ",", "6.`", ",", "6.`", ",", "6.`", ",", "6.`", ",", "6.`", ",", "6.`", ",", "6.`", ",", "6.`", ",", "6.`", ",", "6.`", ",", "6.`", ",", "6.`", ",", "6.`", ",", "6.`", ",", "6.`", ",", "6.`", ",", "6.`", ",", "6.`", ",", "6.`", ",", "6.`", ",", "6.`", ",", "6.`", ",", "6.`", ",", "6.`", ",", "6.`", ",", "6.`", ",", "6.`", ",", "6.`", ",", "6.`", ",", "6.`", ",", "6.`", ",", "6.`", ",", "6.`", ",", "6.`", ",", "6.`", ",", "6.`", ",", "6.`", ",", "6.`", ",", "6.`", ",", "0.`", ",", "0.`", ",", "0.`", ",", "0.`", ",", "0.`", ",", "0.`", ",", "0.`", ",", "0.`", ",", "0.`", ",", "0.`", ",", "0.`", ",", "0.`", ",", "0.`", ",", "0.`", ",", "0.`", ",", "0.`", ",", "0.`", ",", "0.`", ",", "0.`", ",", "0.`", ",", "0.`", ",", "0.`", ",", "0.`", ",", "0.`", ",", "0.`", ",", "0.`", ",", "0.`", ",", "0.`", ",", "0.`", ",", "0.`", ",", "0.`", ",", "0.`", ",", "0.`", ",", "0.`", ",", "0.`", ",", "0.`", ",", "0.`", ",", "0.`", ",", "0.`", ",", "0.`", ",", "0.`", ",", "0.`", ",", "0.`", ",", "0.`", ",", "0.`", ",", "0.`", ",", "0.`", ",", "0.`", ",", "0.`", ",", "0.`", ",", "0.`", ",", "0.`", ",", "1.`", ",", "1.`", ",", "1.`", ",", "1.`", ",", "1.`", ",", "1.`", ",", "1.`", ",", "1.`", ",", "1.`", ",", "1.`", ",", "1.`", ",", "1.`", ",", "1.`", ",", "1.`", ",", "1.`", ",", "1.`", ",", "1.`", ",", "1.`", ",", "1.`", ",", "1.`", ",", "1.`", ",", "1.`", ",", "1.`", ",", "1.`", ",", "0.`", ",", "0.`", ",", "0.`", ",", "0.`", ",", "0.`", ",", "0.`", ",", "0.`", ",", "0.`", ",", "0.`", ",", "0.`", ",", "0.`", ",", "0.`", ",", "0.`", ",", "0.`", ",", "0.`", ",", "0.`", ",", "0.`", ",", "0.`", ",", "0.`", ",", "0.`", ",", "0.`", ",", "0.`", ",", "0.`", ",", "0.`", ",", "0.`", ",", "0.`", ",", "0.`", ",", "0.`", ",", "0.`", ",", "0.`", ",", "0.`", ",", "0.`", ",", "0.`", ",", "0.`", ",", "0.`", ",", "0.`", ",", "0.`", ",", "0.`", ",", "0.`", ",", "0.`", ",", "0.`", ",", "0.`", ",", "0.`", ",", "0.`", ",", "0.`", ",", "0.`", ",", "0.`", ",", "0.`", ",", "0.`", ",", "0.`", ",", "0.`", ",", "0.`", ",", "0.`", ",", "0.`", ",", "0.`", ",", "0.`", ",", "0.`", ",", "0.`", ",", "0.`", ",", "0.`", ",", "0.`", ",", "0.`", ",", "0.`", ",", "0.`", ",", "0.`", ",", "0.`", ",", "0.`", ",", "0.`", ",", "0.`", ",", "0.`", ",", "0.`", ",", "0.`"}], "}"}]], "Output", CellChangeTimes->{ 3.5728722984253454`*^9, {3.5728738891913395`*^9, 3.5728739144477835`*^9}, 3.5729257329794865`*^9, 3.572925766831546*^9, 3.5800581732655554`*^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["189"], "Output", CellChangeTimes->{ 3.5728722986593456`*^9, {3.57287388944094*^9, 3.5728739146817837`*^9}, 3.572925733213487*^9, 3.5729257670655465`*^9, 3.5800581735085697`*^9}] }, Open ]], Cell[BoxData[ RowBox[{ RowBox[{"Vee", "=", "0.0"}], ";", " ", RowBox[{"Vnn", "=", "0.0"}], ";"}]], "Input", CellChangeTimes->{{3.5688982251756487`*^9, 3.5688986440675845`*^9}, { 3.5688986873108606`*^9, 3.56889871560931*^9}, {3.5688987970414534`*^9, 3.5688988526711507`*^9}, {3.568898887147211*^9, 3.568898888644814*^9}, { 3.5688989206248703`*^9, 3.568899041759083*^9}, {3.5688990876855636`*^9, 3.568899258349863*^9}, 3.568899300267137*^9, {3.568899351326027*^9, 3.5688993831032825`*^9}, {3.5688994370481772`*^9, 3.568899468217032*^9}, { 3.5688995813016305`*^9, 3.5688997165538683`*^9}, {3.5688998495129013`*^9, 3.568899932364647*^9}, {3.568899967667509*^9, 3.568900024529609*^9}, { 3.5689000794261055`*^9, 3.568900136257005*^9}, {3.5689001767858763`*^9, 3.56890020149632*^9}, {3.568902068726*^9, 3.568902074139209*^9}, 3.56890216040736*^9, 3.568902344113283*^9, {3.5689024237982235`*^9, 3.56890243907065*^9}, 3.5689025770684924`*^9, {3.568910195129884*^9, 3.568910199825492*^9}, 3.568910617609826*^9, {3.56891263539537*^9, 3.568912638842976*^9}, {3.568952611212014*^9, 3.5689526227248344`*^9}, { 3.5689527476498537`*^9, 3.5689527480086546`*^9}, {3.5689530637688093`*^9, 3.5689530642368097`*^9}, {3.569133363948546*^9, 3.569133373698563*^9}, { 3.5691350563331184`*^9, 3.56913505725352*^9}, 3.5691351502452836`*^9, { 3.569135237792637*^9, 3.5691352453118505`*^9}, {3.5691353071659594`*^9, 3.5691353166039753`*^9}, {3.5691447439722476`*^9, 3.5691448093675623`*^9}, {3.569146067386572*^9, 3.569146078244191*^9}, { 3.5691478509845047`*^9, 3.5691478547909117`*^9}, {3.569159874789311*^9, 3.56915988004652*^9}, {3.5691671967299757`*^9, 3.569167196901576*^9}, 3.5691672337020407`*^9, {3.5691672688489027`*^9, 3.5691672717661076`*^9}, 3.569171387282002*^9, 3.5692335989467897`*^9}], Cell[CellGroupData[{ Cell[BoxData[ RowBox[{ RowBox[{"(*", " ", RowBox[{"all", " ", "clouds", " ", "repulsion"}], " ", "*)"}], "\[IndentingNewLine]", RowBox[{ RowBox[{"For", "[", RowBox[{ RowBox[{"i", "=", "1"}], ",", RowBox[{"i", "<", "bt"}], ",", RowBox[{"i", "++"}], ",", "\[IndentingNewLine]", RowBox[{"For", "[", RowBox[{ RowBox[{"j", "=", RowBox[{"i", "+", "1"}]}], ",", RowBox[{"j", "<", RowBox[{"bt", "+", "1"}]}], ",", RowBox[{"j", "++"}], ",", "\[IndentingNewLine]", RowBox[{"Vee", "=", RowBox[{"Vee", "+", RowBox[{ RowBox[{"ow", "[", RowBox[{"[", "i", "]"}], "]"}], "*", RowBox[{ RowBox[{"ow", "[", RowBox[{"[", "j", "]"}], "]"}], "/", RowBox[{"dw", "[", RowBox[{"[", RowBox[{"i", ",", "j"}], "]"}], "]"}]}]}]}]}]}], "]"}]}], "]"}], "\[IndentingNewLine]", "Vee"}]}]], "Input", CellChangeTimes->{{3.5688982251756487`*^9, 3.5688986440675845`*^9}, { 3.5688986873108606`*^9, 3.56889871560931*^9}, {3.5688987970414534`*^9, 3.5688988526711507`*^9}, {3.568898887147211*^9, 3.568898888644814*^9}, { 3.5688989206248703`*^9, 3.568899041759083*^9}, {3.5688990876855636`*^9, 3.568899258349863*^9}, 3.568899300267137*^9, {3.568899351326027*^9, 3.5688993831032825`*^9}, {3.5688994370481772`*^9, 3.568899468217032*^9}, { 3.5688995813016305`*^9, 3.5688997165538683`*^9}, {3.5688998495129013`*^9, 3.568899932364647*^9}, {3.568899967667509*^9, 3.568900024529609*^9}, { 3.5689000794261055`*^9, 3.568900136257005*^9}, {3.5689001767858763`*^9, 3.56890020149632*^9}, {3.568902068726*^9, 3.568902074139209*^9}, 3.56890216040736*^9, 3.568902344113283*^9, {3.5689024237982235`*^9, 3.56890243907065*^9}, 3.5689025770684924`*^9, {3.568910195129884*^9, 3.568910199825492*^9}, 3.568910617609826*^9, {3.56891263539537*^9, 3.568912638842976*^9}, {3.568952611212014*^9, 3.5689526227248344`*^9}, { 3.5689527476498537`*^9, 3.5689527480086546`*^9}, {3.5689530637688093`*^9, 3.5689530642368097`*^9}, {3.569133363948546*^9, 3.569133373698563*^9}, { 3.5691350563331184`*^9, 3.56913505725352*^9}, 3.5691351502452836`*^9, { 3.569135237792637*^9, 3.5691352453118505`*^9}, {3.5691353071659594`*^9, 3.5691353166039753`*^9}, {3.5691447439722476`*^9, 3.5691448093675623`*^9}, {3.569146067386572*^9, 3.569146078244191*^9}, { 3.5691478509845047`*^9, 3.5691478969889855`*^9}, {3.569149270524598*^9, 3.569149283675421*^9}, {3.5691523005437512`*^9, 3.5691523013861527`*^9}, { 3.570457123841494*^9, 3.5704571330923104`*^9}, {3.570457176959587*^9, 3.570457191296013*^9}, {3.570463789649801*^9, 3.570463797637015*^9}, { 3.5704639300032473`*^9, 3.5704639472412777`*^9}, {3.570464099403945*^9, 3.5704641196371803`*^9}, {3.570464183737693*^9, 3.5704641855628963`*^9}, { 3.570855532092019*^9, 3.5708555433240385`*^9}}], Cell[BoxData["5022.110880350221`"], "Output", CellChangeTimes->{ 3.5728722987373457`*^9, {3.57287388950334*^9, 3.572873914744184*^9}, 3.572925733291487*^9, 3.572925767143547*^9, 3.5800581735785737`*^9}] }, Open ]], Cell[CellGroupData[{ Cell[BoxData[ RowBox[{ RowBox[{"(*", " ", RowBox[{ "half", " ", "cloud", " ", "with", " ", "other", " ", "common", " ", RowBox[{"halfcloud", ":", " ", RowBox[{"subtract", " ", "WW"}]}]}], " ", "*)"}], "\[IndentingNewLine]", RowBox[{ RowBox[{ RowBox[{"For", " ", "[", RowBox[{ RowBox[{"i", "=", RowBox[{"nb", "+", "bc", "+", "1"}]}], ",", RowBox[{"i", "<", RowBox[{"nb", "+", "bc", "+", "nj", "+", "1"}]}], ",", RowBox[{"i", "++"}], ",", RowBox[{"Vee", "=", RowBox[{"Vee", "-", RowBox[{ RowBox[{"ow", "[", RowBox[{"[", "i", "]"}], "]"}], "*", RowBox[{ RowBox[{"ow", "[", RowBox[{"[", RowBox[{"i", "+", "nj"}], "]"}], "]"}], "/", RowBox[{"(", RowBox[{"rpo", "+", "rpi"}], ")"}]}]}]}]}]}], RowBox[{"(*", RowBox[{"dw", "[", RowBox[{"[", RowBox[{"i", ",", RowBox[{"i", "+", "nj"}]}], "]"}], "]"}], "*)"}], "]"}], ";"}], "\[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}}], Cell[BoxData["5018.896594635949`"], "Output", CellChangeTimes->{ 3.572872298752946*^9, {3.5728738895189395`*^9, 3.5728739147597837`*^9}, 3.572925733291487*^9, 3.572925767143547*^9, 3.580058173587574*^9}] }, Open ]], 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]", "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.5728738759937162`*^9, 3.572873909440175*^9}}], Cell[BoxData["5257.299509014598`"], "Output", CellChangeTimes->{ 3.572872298752946*^9, {3.5728738895345397`*^9, 3.572873914775384*^9}, 3.572925733307087*^9, 3.572925767159147*^9, 3.580058173596575*^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[{"-", "10155.108214800392`"}]], "Output", CellChangeTimes->{ 3.5728722987685456`*^9, {3.5728738895345397`*^9, 3.572873914775384*^9}, 3.572925733322687*^9, 3.5729257671747465`*^9, 3.580058173605575*^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[{"-", "13041.302974284163`"}]], "Output", CellChangeTimes->{ 3.5728722987841454`*^9, {3.5728738895501394`*^9, 3.572873914790984*^9}, 3.572925733322687*^9, 3.5729257671747465`*^9, 3.5800581736165757`*^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[{"-", "13095.642831804227`"}]], "Output", CellChangeTimes->{ 3.5728722987997456`*^9, {3.5728738895501394`*^9, 3.572873914790984*^9}, 3.5729257333382874`*^9, 3.5729257671903467`*^9, 3.580058173624576*^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["4657.1339107145395`"], "Output", CellChangeTimes->{ 3.572872298815346*^9, {3.57287388958134*^9, 3.572873914806584*^9}, 3.572925733353887*^9, 3.572925767205947*^9, 3.5800581736415772`*^9}] }, Open ]], Cell[CellGroupData[{ Cell[BoxData[ RowBox[{"ratio", "=", RowBox[{ RowBox[{"-", RowBox[{"(", RowBox[{"Vne", "+", RowBox[{"2", "*", "Vnn"}]}], ")"}]}], "/", RowBox[{"(", RowBox[{"Vee", "-", "Vnn"}], ")"}]}]}]], "Input"], Cell[BoxData["6.300552749250741`"], "Output", CellChangeTimes->{3.580058173651578*^9}] }, Open ]], Cell[CellGroupData[{ Cell[BoxData[{"Vee", "\[IndentingNewLine]", "Vnn", "\[IndentingNewLine]", \ "Vne", "\[IndentingNewLine]", RowBox[{ RowBox[{"Tpi", " ", "=", " ", RowBox[{"2.296", "*", "nj", "*", "0.5", "*", "1.125", "*", RowBox[{"(", RowBox[{ RowBox[{"1", "/", RowBox[{"rpo", "^", "2"}]}], "+", RowBox[{"1", "/", RowBox[{"rpi", "^", "2"}]}]}], ")"}]}]}], " ", RowBox[{"(*", " ", RowBox[{"pi", " ", "kin", " ", "e", " ", "added"}], " ", "*)"}]}], "\[IndentingNewLine]", RowBox[{"Vtot", "=", RowBox[{"Vne", "+", "Vee", "+", "Vnn"}]}], "\[IndentingNewLine]", RowBox[{"Ttot", " ", "=", RowBox[{"Ttot", "+", "Tpi"}]}], "\[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}], Cell[BoxData["5257.299509014598`"], "Output", CellChangeTimes->{ 3.572872298830946*^9, {3.57287388958134*^9, 3.572873914822184*^9}, 3.572925733353887*^9, 3.572925767205947*^9, 3.5800581736595783`*^9}], Cell[BoxData["4657.1339107145395`"], "Output", CellChangeTimes->{ 3.572872298830946*^9, {3.57287388958134*^9, 3.572873914822184*^9}, 3.572925733353887*^9, 3.572925767205947*^9, 3.5800581736605787`*^9}], Cell[BoxData[ RowBox[{"-", "13095.642831804227`"}]], "Output", CellChangeTimes->{ 3.572872298830946*^9, {3.57287388958134*^9, 3.572873914822184*^9}, 3.572925733353887*^9, 3.572925767205947*^9, 3.580058173661578*^9}], Cell[BoxData["47.44285714285715`"], "Output", CellChangeTimes->{ 3.572872298830946*^9, {3.57287388958134*^9, 3.572873914822184*^9}, 3.572925733353887*^9, 3.572925767205947*^9, 3.5800581736625786`*^9}], Cell[BoxData[ RowBox[{"-", "3181.20941207509`"}]], "Output", CellChangeTimes->{ 3.572872298830946*^9, {3.57287388958134*^9, 3.572873914822184*^9}, 3.572925733353887*^9, 3.572925767205947*^9, 3.5800581736635785`*^9}], Cell[BoxData["1590.6798464062194`"], "Output", CellChangeTimes->{ 3.572872298830946*^9, {3.57287388958134*^9, 3.572873914822184*^9}, 3.572925733353887*^9, 3.572925767205947*^9, 3.5800581736645784`*^9}], Cell[BoxData["1.9999055242086026`"], "Output", CellChangeTimes->{ 3.572872298830946*^9, {3.57287388958134*^9, 3.572873914822184*^9}, 3.572925733353887*^9, 3.572925767205947*^9, 3.5800581736665783`*^9}], Cell[BoxData[ RowBox[{"-", "1590.5295656688704`"}]], "Output", CellChangeTimes->{ 3.572872298830946*^9, {3.57287388958134*^9, 3.572873914822184*^9}, 3.572925733353887*^9, 3.572925767205947*^9, 3.5800581736675787`*^9}] }, Open ]] }, WindowSize->{1048, 829}, WindowMargins->{{334, Automatic}, {Automatic, 0}}, PrintingCopies->1, PrintingPageRange->{32000, 32000}, PrintingOptions->{"Magnification"->1., "PaperOrientation"->"Portrait", "PaperSize"->{595.2, 841.8}}, Magnification->1.25, 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, 1683, 30, 60, "Input"], Cell[CellGroupData[{ Cell[2265, 54, 9745, 254, 1141, "Input"], Cell[12013, 310, 6265, 170, 1330, "Output"] }, Open ]], Cell[18293, 483, 1871, 29, 106, "Input"], Cell[CellGroupData[{ Cell[20189, 516, 955, 14, 36, "Input"], Cell[21147, 532, 196, 3, 36, "Output"] }, Open ]], Cell[CellGroupData[{ Cell[21380, 540, 1560, 29, 36, "Input"], Cell[22943, 571, 1458, 21, 60, "Output"] }, Open ]], Cell[24416, 595, 1419, 23, 36, "Input"], Cell[25838, 620, 1592, 29, 36, "Input"], Cell[CellGroupData[{ Cell[27455, 653, 1234, 18, 36, "Input"], Cell[28692, 673, 4631, 135, 175, "Output"] }, Open ]], Cell[CellGroupData[{ Cell[33360, 813, 697, 14, 36, "Input"], Cell[34060, 829, 965, 15, 83, "Output"] }, Open ]], Cell[35040, 847, 908, 24, 36, "Input"], Cell[CellGroupData[{ Cell[35973, 875, 5735, 123, 198, "Input"], Cell[41711, 1000, 1221, 19, 129, "Output"], Cell[42935, 1021, 1239, 19, 129, "Output"] }, Open ]], Cell[CellGroupData[{ Cell[44211, 1045, 519, 12, 36, "Input"], Cell[44733, 1059, 1456, 21, 60, "Output"] }, Open ]], Cell[CellGroupData[{ Cell[46226, 1085, 1401, 38, 106, "Input"], Cell[47630, 1125, 1047, 16, 83, "Output"] }, Open ]], Cell[CellGroupData[{ Cell[48714, 1146, 827, 23, 106, "Input"], Cell[49544, 1171, 200, 3, 36, "Output"], Cell[49747, 1176, 202, 3, 36, "Output"] }, Open ]], Cell[CellGroupData[{ Cell[49986, 1184, 284, 6, 60, "Input"], Cell[50273, 1192, 215, 3, 36, "Output"] }, Open ]], Cell[50503, 1198, 1824, 35, 83, "Input"], Cell[CellGroupData[{ Cell[52352, 1237, 4923, 122, 267, "Input"], Cell[57278, 1361, 13759, 217, 468, "Output"] }, Open ]], Cell[CellGroupData[{ Cell[71074, 1583, 2100, 42, 83, "Input"], Cell[73177, 1627, 104906, 1454, 1350, "Output"] }, Open ]], Cell[178098, 3084, 1331, 36, 83, "Input"], Cell[CellGroupData[{ Cell[179454, 3124, 4850, 86, 106, "Input"], Cell[184307, 3212, 27657, 393, 1350, "Output"] }, Open ]], Cell[CellGroupData[{ Cell[212001, 3610, 2570, 53, 152, "Input"], Cell[214574, 3665, 196, 3, 36, "Output"] }, Open ]], Cell[CellGroupData[{ Cell[214807, 3673, 2598, 53, 106, "Input"], Cell[217408, 3728, 655, 11, 60, "Output"] }, Open ]], Cell[218078, 3742, 9726, 201, 267, "Input"], Cell[CellGroupData[{ Cell[227829, 3947, 1947, 43, 83, "Input"], Cell[229779, 3992, 210, 4, 36, "Output"], Cell[229992, 3998, 611, 12, 29, "Message"], Cell[230606, 4012, 339, 8, 36, "Output"] }, Open ]], Cell[CellGroupData[{ Cell[230982, 4025, 570, 14, 60, "Input"], Cell[231555, 4041, 1697, 29, 175, "Output"], Cell[233255, 4072, 267, 5, 36, "Output"] }, Open ]], Cell[CellGroupData[{ Cell[233559, 4082, 2767, 54, 83, "Input"], Cell[236329, 4138, 899, 16, 83, "Output"], Cell[237231, 4156, 268, 5, 36, "Output"] }, Open ]], Cell[CellGroupData[{ Cell[237536, 4166, 3698, 81, 175, "Input"], Cell[241237, 4249, 1317, 20, 152, "Output"] }, Open ]], Cell[242569, 4272, 2072, 49, 129, "Input"], Cell[244644, 4323, 561, 12, 60, "Input"], Cell[245208, 4337, 2148, 49, 106, "Input"], Cell[247359, 4388, 2452, 56, 129, "Input"], Cell[249814, 4446, 1759, 41, 83, "Input"], Cell[CellGroupData[{ Cell[251598, 4491, 923, 20, 36, "Input"], Cell[252524, 4513, 210, 3, 36, "Output"] }, Open ]], Cell[CellGroupData[{ Cell[252771, 4521, 711, 18, 36, "Input"], Cell[253485, 4541, 211, 3, 36, "Output"] }, Open ]], Cell[CellGroupData[{ Cell[253733, 4549, 507, 10, 36, "Input"], Cell[254243, 4561, 211, 3, 36, "Output"] }, Open ]], Cell[CellGroupData[{ Cell[254491, 4569, 823, 23, 36, "Input"], Cell[255317, 4594, 212, 3, 36, "Output"] }, Open ]], Cell[CellGroupData[{ Cell[255566, 4602, 204, 4, 36, "Input"], Cell[255773, 4608, 214, 3, 36, "Output"] }, Open ]], Cell[256002, 4614, 1975, 34, 83, "Input"], Cell[CellGroupData[{ Cell[258002, 4652, 4534, 109, 244, "Input"], Cell[262539, 4763, 635, 11, 60, "Output"], Cell[263177, 4776, 6387, 215, 1330, "Output"] }, Open ]], Cell[269579, 4994, 8797, 140, 175, "Input"], Cell[278379, 5136, 11359, 295, 1555, "Input"], Cell[289741, 5433, 3073, 58, 106, "Input"], Cell[CellGroupData[{ Cell[292839, 5495, 939, 17, 83, "Input"], Cell[293781, 5514, 6943, 158, 451, "Output"], Cell[300727, 5674, 198, 3, 36, "Output"], Cell[300928, 5679, 198, 3, 36, "Output"] }, Open ]], Cell[301141, 5685, 10201, 233, 221, "Input"], Cell[311345, 5920, 6427, 103, 83, "Input"], Cell[317775, 6025, 10215, 234, 221, "Input"], Cell[327993, 6261, 5925, 93, 83, "Input"], Cell[333921, 6356, 9436, 145, 60, "Input"], Cell[CellGroupData[{ Cell[343382, 6505, 15648, 300, 428, "Input"], Cell[359033, 6807, 40776, 866, 468, "Output"], Cell[399812, 7675, 22391, 367, 468, "Output"] }, Open ]], Cell[CellGroupData[{ Cell[422240, 8047, 4318, 96, 175, "Input"], Cell[426561, 8145, 197, 3, 36, "Output"] }, Open ]], Cell[CellGroupData[{ Cell[426795, 8153, 2499, 47, 106, "Input"], Cell[429297, 8202, 195, 3, 36, "Output"] }, Open ]], Cell[429507, 8208, 1841, 29, 60, "Input"], Cell[CellGroupData[{ Cell[431373, 8241, 4159, 89, 198, "Input"], Cell[435535, 8332, 8995, 294, 3810, "Output"], Cell[444533, 8628, 199, 3, 36, "Output"] }, Open ]], Cell[CellGroupData[{ Cell[444769, 8636, 4635, 86, 83, "Input"], Cell[449407, 8724, 6155, 194, 290, "Output"], Cell[455565, 8920, 2619, 37, 198, "Output"] }, Open ]], Cell[CellGroupData[{ Cell[458221, 8962, 4670, 80, 129, "Input"], Cell[462894, 9044, 198, 3, 36, "Output"] }, Open ]], Cell[463107, 9050, 1863, 27, 36, "Input"], Cell[CellGroupData[{ Cell[464995, 9081, 2963, 56, 129, "Input"], Cell[467961, 9139, 209, 3, 36, "Output"] }, Open ]], Cell[CellGroupData[{ Cell[468207, 9147, 1373, 36, 129, "Input"], Cell[469583, 9185, 210, 3, 36, "Output"] }, Open ]], Cell[CellGroupData[{ Cell[469830, 9193, 2632, 58, 129, "Input"], Cell[472465, 9253, 208, 3, 36, "Output"] }, Open ]], Cell[CellGroupData[{ Cell[472710, 9261, 499, 15, 60, "Input"], Cell[473212, 9278, 230, 4, 36, "Output"] }, Open ]], Cell[473457, 9285, 1381, 21, 36, "Input"], Cell[CellGroupData[{ Cell[474863, 9310, 1709, 32, 60, "Input"], Cell[476575, 9344, 232, 4, 36, "Output"] }, Open ]], Cell[CellGroupData[{ Cell[476844, 9353, 1415, 43, 83, "Input"], Cell[478262, 9398, 232, 4, 36, "Output"] }, Open ]], Cell[CellGroupData[{ Cell[478531, 9407, 2550, 50, 106, "Input"], Cell[481084, 9459, 208, 3, 36, "Output"] }, Open ]], Cell[CellGroupData[{ Cell[481329, 9467, 230, 8, 36, "Input"], Cell[481562, 9477, 87, 1, 36, "Output"] }, Open ]], Cell[CellGroupData[{ Cell[481686, 9483, 1891, 36, 221, "Input"], Cell[483580, 9521, 207, 3, 36, "Output"], Cell[483790, 9526, 208, 3, 36, "Output"], Cell[484001, 9531, 223, 4, 36, "Output"], Cell[484227, 9537, 207, 3, 36, "Output"], Cell[484437, 9542, 223, 4, 36, "Output"], Cell[484663, 9548, 208, 3, 36, "Output"], Cell[484874, 9553, 208, 3, 36, "Output"], Cell[485085, 9558, 225, 4, 68, "Output"] }, Open ]] } ] *) (* End of internal cache information *)