(* 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[ 562371, 12048] NotebookOptionsPosition[ 553373, 11769] NotebookOutlinePosition[ 553872, 11789] CellTagsIndexPosition[ 553829, 11786] WindowFrame->Normal*) (* Beginning of Notebook Content *) Notebook[{ Cell[BoxData[ RowBox[{ RowBox[{"(*", " ", RowBox[{ "Kimball", " ", "model", " ", "and", " ", "energy", " ", "derived", " ", "from", " ", "Wolfram", " ", "ES", " ", RowBox[{"09", "/", "17"}], " ", "April", " ", "2013"}], " ", "*)"}], " ", "\[IndentingNewLine]", RowBox[{ RowBox[{"Clear", "[", RowBox[{ "tw", ",", "n2", ",", "n", ",", "nb", ",", "bc", ",", "bh", ",", "u", ",", "u1", ",", "u2", ",", "Vee", ",", "Vne", ",", "Vnn"}], "]"}], ";", " ", RowBox[{"rad", "=", "57.2957795"}], ";"}]}]], "Input", CellChangeTimes->{{3.568278170270548*^9, 3.568278174310955*^9}, { 3.5682782109554195`*^9, 3.5682782183342323`*^9}, {3.5688220426984916`*^9, 3.5688220506389055`*^9}, {3.568822092353379*^9, 3.568822134660653*^9}, { 3.5688728241768503`*^9, 3.568872825034852*^9}, {3.5688958900531473`*^9, 3.5688958965115585`*^9}, {3.5689027504159966`*^9, 3.568902751695199*^9}, { 3.5689109808408637`*^9, 3.568910992618884*^9}, {3.569134574760273*^9, 3.569134584135889*^9}, 3.56923802266416*^9, {3.56933446475942*^9, 3.569334471239791*^9}, {3.5693395229642725`*^9, 3.569339531606688*^9}, { 3.5694332905109916`*^9, 3.56943330667262*^9}, {3.570297588441428*^9, 3.5702976026530533`*^9}, {3.570558862041448*^9, 3.5705588713234644`*^9}, 3.5705590387585583`*^9, {3.570855141170933*^9, 3.570855146100541*^9}, { 3.5708563212974052`*^9, 3.5708563224362073`*^9}, {3.5708588179101906`*^9, 3.570858820452995*^9}, 3.570949483910489*^9, {3.5719810762355733`*^9, 3.5719810786847773`*^9}, 3.5723256977094345`*^9, 3.572583124905918*^9, { 3.5727976670013523`*^9, 3.572797667157352*^9}, 3.5728672700652885`*^9, { 3.574069429922815*^9, 3.574069433479621*^9}, {3.5741328775223475`*^9, 3.57413289583678*^9}, {3.5741333767544246`*^9, 3.574133378220827*^9}, { 3.574341036190522*^9, 3.574341050277347*^9}, {3.574503184922072*^9, 3.5745032038917055`*^9}, {3.5752201500921936`*^9, 3.575220151324596*^9}, { 3.57526642588752*^9, 3.575266432361531*^9}}], Cell[CellGroupData[{ Cell[BoxData[{ RowBox[{ RowBox[{"ChemicalData", "[", RowBox[{"\"\\"", ",", "\"\\""}], "]"}], "\[IndentingNewLine]"}], "\[IndentingNewLine]", RowBox[{ RowBox[{"t1", "=", RowBox[{"0.01889726", "*", RowBox[{"ChemicalData", "[", RowBox[{"\"\\"", ",", "\"\\""}], "]"}]}]}], ";"}]}], "Input", CellChangeTimes->{ 3.57029749846047*^9, {3.570297893562364*^9, 3.5702979152152023`*^9}, { 3.5704535321223855`*^9, 3.570453555038826*^9}, {3.570558892227501*^9, 3.5705589112283344`*^9}, {3.5705589864360666`*^9, 3.5705590132681136`*^9}, {3.5705590525489826`*^9, 3.5705590747322216`*^9}, {3.570595322227199*^9, 3.5705953504632483`*^9}, 3.570855059411189*^9, 3.570856566545436*^9, 3.5709425310226765`*^9, 3.5730457924857635`*^9, 3.5738743957366743`*^9, {3.574067876130838*^9, 3.5740678963328733`*^9}, {3.5740679338997397`*^9, 3.5740679382521477`*^9}, 3.5740694160855904`*^9, {3.574335155023285*^9, 3.574335160249294*^9}, { 3.5744825096366043`*^9, 3.574482533177046*^9}, {3.575217073303817*^9, 3.5752170742554183`*^9}}], Cell[BoxData[ Graphics3DBox[ {AbsoluteThickness[3], EdgeForm[None], Specularity[ GrayLevel[1], 100], GraphicsComplex3DBox[CompressedData[" 1:eJwllAs0VHkcx621tqRdR1FID4mpdjdtSo3XLwyV8X40jaFrxgymEYbx1hKO WjZhrY0jtemhtY7VQ6cTfj2W5LltLbXS0dZ21JZH0Upp//977zn3eX73/n+/ z/f7vSuksf5ybS0tLQeyf0x2s3UPLHXt0jHq3LOEC0F82HL+ZlLLzgh4u095 JXFYg8yTPou/ikMh3/hez5uHUrBeP6duSYkKR6zIxRUJ1MQ56vXPCwFSXbq4 JhLLRk0O9s0Zcc5qgv2PFviD88awy9vfxmHnccHFV5+I8XHO0e6zKwOBlutg Cia3VJuumwzCCPuHPt817QYvo8Idz97541Bpfp54BtBwoXPboMYeur7Z1prp 6I9Cu4Nbmd9kGJKhlzWuPxfY9/qVeHb8tpfURon8kk5S6QaSomuTvJ8yuecR kWiYg7eO32WAVJfvHYuDih5vXY/o5bBgYmuv4sIa7O4iW50MBqO0YrMf84C2 rT8bBEFXz9R4Z7nAresuv0QPCUHTMNsb3mICw/NKa/cHBUCZ/IAstM4T/C8t zXu+mkGOkxJOVd5Y3hAcyHH7g8G19CIgEmgbgjAJ0DGeHFaAXv+JOMcDycAk +Sw1dgqCee6rNNr3XaBBHVX8IiUcLA5p4s2MgvFlBiGZxgCrl0ANR9YsLrsj FyHFpSN0Q94lkV9O7XxuvVEZCDzU059HuwCZ1jBnUzw4pYrObOzmw79+pFFN HDZWjZ5uux4DdEzt9kgQUeHrGWT7M9XACtpAKMP1ez8Rabt9mAys7hIJsPez qcj6ZCibO3fKOc7hcmC/X5SOr9/fSRk5Fc/pECXm5vzWilvPdA8+K2vUj7d1 weuTPEmRQQpuoJvdHtihr702v0cBxG3iiDfpQPH6MYEQHTuW16Fjj6zvSiUw Sz5v1SHh/JS2F8gx+LPQKCj/cHjfjHI9JhCMGbJEbt4RDeQS+/U2b0dqY/FA DLL8C1PQvOOJcw3xK+v3Shm0exKFjNRoqZtd5modCqqnM7XjXzNA0lFtaqbE m2LX2uaXQmD9WRTMcZ1JRf7KHek5rU44Rca5ZiIF4o5B92IGl30hc7Urt8Hc jL5zu8a3AZXNtsof3ZY8f7RJR4RVMphKK/8KTjZfXWQ1E47pC+s9ht8q8MOW rvJFvpuA4jNQ7MVtw2kL64/I8COv3Pk+Od5AMRmvT+fmXBeOUgNCVsRAIW24 TAgN3xODCoRQlef4YqzJGx28fy+WCKSwOdItOtbYj5trH4PvaskKWXKoJnju pvnAahqgdgYo1mCHRLD1Nfng5OkB84nt/XbxgMb2QYkUPiV4Cv5zQVan1BDI pIGviIc2X+/zP4vcsWKO2dGwaT4OCFvu/SO2hbT21fwS6xAINFdvGDy2Echb 9g/9VEBl+3KagbHTbZ52Vxl0o0KnbsCB3cQwbdawmFlWdXnChvMDLwHI38B8 c1MAbKZGPK1GKlNBTBL84FqgeloQBuy9KhkD/z5ZeWNnFrL5LFdw/jSTcTn5 MQM7qJ67YpBiuD03DLQs3k9pBpy4+thIXPXy19fHT9ggm5PpJJygOmjJgeJ2 7o/gctCayunZG8j5OsyI49MjBRqfi8SnbD7ylPAnsZuePAZ8Xx0KSLxhCDYk ztkqNR4j5ZaHE6CL/mfqeUhxNIbH4v+HCazO "], { {RGBColor[0.65, 0.7, 0.7], SphereBox[18, 24.], SphereBox[19, 24.], SphereBox[20, 24.], SphereBox[22, 24.], SphereBox[24, 24.], SphereBox[25, 24.], SphereBox[26, 24.], SphereBox[27, 24.], SphereBox[28, 24.], SphereBox[29, 24.], SphereBox[30, 24.], SphereBox[31, 24.], SphereBox[32, 24.]}, {RGBColor[0.4, 0.4, 0.4], SphereBox[2, 34.], SphereBox[4, 34.], SphereBox[5, 34.], SphereBox[6, 34.], SphereBox[8, 34.], SphereBox[11, 34.], SphereBox[12, 34.], SphereBox[13, 34.], SphereBox[15, 34.], SphereBox[21, 34.]}, {RGBColor[0.291989, 0.437977, 0.888609], SphereBox[1, 32.], SphereBox[3, 32.], SphereBox[7, 32.], SphereBox[9, 32.], SphereBox[10, 32.]}, {RGBColor[0.800498, 0.201504, 0.192061], SphereBox[14, 31.], SphereBox[16, 31.], SphereBox[17, 31.], SphereBox[23, 31.]}, {RGBColor[0.65, 0.7, 0.7], CylinderBox[{46, 18}, 15.], CylinderBox[{47, 19}, 15.], CylinderBox[{48, 20}, 15.], CylinderBox[{49, 22}, 15.], CylinderBox[{52, 24}, 15.], CylinderBox[{53, 25}, 15.], CylinderBox[{54, 26}, 15.], CylinderBox[{55, 27}, 15.], CylinderBox[{56, 28}, 15.], CylinderBox[{57, 29}, 15.], CylinderBox[{58, 30}, 15.], CylinderBox[{59, 31}, 15.], CylinderBox[{60, 32}, 15.]}, {RGBColor[0.4, 0.4, 0.4], CylinderBox[{33, 2}, 15.], CylinderBox[{2, 34}, 15.], CylinderBox[{35, 4}, 15.], CylinderBox[{4, 5}, 15.], CylinderBox[{5, 6}, 15.], CylinderBox[{36, 6}, 15.], CylinderBox[{4, 37}, 15.], CylinderBox[{38, 8}, 15.], CylinderBox[{8, 39}, 15.], CylinderBox[{5, 40}, 15.], CylinderBox[{6, 41}, 15.], CylinderBox[{11, 12}, 15.], CylinderBox[{13, 12}, 15.], CylinderBox[{13, 42}, 15.], CylinderBox[{43, 15}, 15.], CylinderBox[{15, 11}, 15.], CylinderBox[{12, 44}, 15.], CylinderBox[{11, 45}, 15.], CylinderBox[{12, 46}, 15.], CylinderBox[{11, 47}, 15.], CylinderBox[{13, 48}, 15.], CylinderBox[{15, 21}, 15.], CylinderBox[{15, 49}, 15.], CylinderBox[{50, 13}, 15.], CylinderBox[{21, 51}, 15.], CylinderBox[{8, 55}, 15.], CylinderBox[{2, 56}, 15.], CylinderBox[{21, 59}, 15.], CylinderBox[{21, 60}, 15.]}, {RGBColor[0.291989, 0.437977, 0.888609], CylinderBox[{1, 33}, 15.], CylinderBox[{34, 3}, 15.], CylinderBox[{3, 35}, 15.], CylinderBox[{1, 36}, 15.], CylinderBox[{37, 7}, 15.], CylinderBox[{7, 38}, 15.], CylinderBox[{39, 9}, 15.], CylinderBox[{40, 9}, 15.], CylinderBox[{41, 10}, 15.], CylinderBox[{7, 50}, 15.], CylinderBox[{10, 53}, 15.], CylinderBox[{10, 54}, 15.]}, {RGBColor[0.800498, 0.201504, 0.192061], CylinderBox[{42, 14}, 15.], CylinderBox[{14, 43}, 15.], CylinderBox[{44, 16}, 15.], CylinderBox[{45, 17}, 15.], CylinderBox[{51, 23}, 15.], CylinderBox[{23, 52}, 15.], CylinderBox[{17, 57}, 15.], CylinderBox[{16, 58}, 15.]}}]}, Boxed->False, ImageSize->327.5535882672848, Lighting->"Neutral", ViewPoint->{1.3, -2.4, -2.}]], "Output", CellChangeTimes->CompressedData[" 1:eJxTTMoPSmVkYGDQAeJZAXXmeotfOfpNtkgF0aYbX+WD6Jric00g2muzxwUQ nRCzM18fSDuHSZWD6H27vuw1ANJOCxneg2i7I9dMXIH0tdx0LxA9Z+WFEBBt brgzHkQfKElLA9F8z2WmugHppM7guSB6wu++xSB6jf7H5SDaYM/ZTSA6Pnr2 DhDNcK1zL4hO02M5AqJddlqfBtFtx5ZeBtEJ6pdvgOg5Xz3j3IG0f1FrFohW KYvNB9FPGNbXgOgyh68NIPrKMfMOEK2hs2cDiP73rX8HiJbbsOIYiLZjN3sJ omeK8CT6AOlt/xe0gGiBjC9dIHpxA9ckEL2Ah2kxiGYw6NgEojnfpWT7Ammp nKsVILokvHxx1ppXjgDGvrRx "]] }, Open ]], Cell[CellGroupData[{ Cell[BoxData[ RowBox[{"u", "=", RowBox[{"ChemicalData", "\[NoBreak]", "[", RowBox[{"\"\\"", ",", "\"\\""}], "]"}]}]], "Input", CellChangeTimes->{ 3.57029749846047*^9, {3.570297893562364*^9, 3.5702979152152023`*^9}, { 3.5704535321223855`*^9, 3.570453555038826*^9}, {3.570558892227501*^9, 3.5705589112283344`*^9}, {3.5705589864360666`*^9, 3.5705590132681136`*^9}, 3.5705592408949137`*^9, {3.5705593512807074`*^9, 3.5705593890483737`*^9}, { 3.570559442712468*^9, 3.5705594826641383`*^9}, 3.5708550837628317`*^9, 3.570856587480673*^9, 3.5709425310226765`*^9, 3.5730457925169635`*^9, 3.5738743957366743`*^9, 3.5740679502641687`*^9, 3.5740679862378316`*^9, 3.574068238587475*^9, 3.574482553893882*^9}], Cell[BoxData[ RowBox[{"{", RowBox[{"\<\"N\"\>", ",", "\<\"C\"\>", ",", "\<\"N\"\>", ",", "\<\"C\"\>", ",", "\<\"C\"\>", ",", "\<\"C\"\>", ",", "\<\"N\"\>", ",", "\<\"C\"\>", ",", "\<\"N\"\>", ",", "\<\"N\"\>", ",", "\<\"C\"\>", ",", "\<\"C\"\>", ",", "\<\"C\"\>", ",", "\<\"O\"\>", ",", "\<\"C\"\>", ",", "\<\"O\"\>", ",", "\<\"O\"\>", ",", "\<\"H\"\>", ",", "\<\"H\"\>", ",", "\<\"H\"\>", ",", "\<\"C\"\>", ",", "\<\"H\"\>", ",", "\<\"O\"\>", ",", "\<\"H\"\>", ",", "\<\"H\"\>", ",", "\<\"H\"\>", ",", "\<\"H\"\>", ",", "\<\"H\"\>", ",", "\<\"H\"\>", ",", "\<\"H\"\>", ",", "\<\"H\"\>", ",", "\<\"H\"\>"}], "}"}]], "Output", CellChangeTimes->CompressedData[" 1:eJxTTMoPSmVkYGDQAeIT/g3meotfOUoJW6aCaAbD1/kg2uPzuSYQLWbseQFE 69zZma8PpJddlS4H0V1WX/caAGmnhQzvQTSXy3UTVyC96G26F4jO0LwYAqKZ Nu6MB9E9X9LSQPStNNmpbkBajzNkLoie8LtvMYheo/9xOYg22HN2E4jWuj17 B4g+E9q1F0QbrWM5AqIFLG1Og+hAt2WXQbTO8ss3QHRGqVecO8gfn1qzQPSH r7H5IPoJw/oaEO104GsDiJ7vZtEBojV09mwA0SfLJuwA0S/1Vx4D0ZztZi9B dMoUnkQfIL3t/4IWEH3n+ZcuEJ3HwD0JROf0MC0G0WfWd2wC0VdyU7N9gfSz 11crQLTaqfLFWWteOQIA/Qe2vQ== "]] }, Open ]], Cell[CellGroupData[{ Cell[BoxData[ RowBox[{"n", "=", RowBox[{"Length", "[", "t1", "]"}]}]], "Input", CellChangeTimes->{{3.568278170270548*^9, 3.568278174310955*^9}, { 3.5682782109554195`*^9, 3.5682782183342323`*^9}, {3.5688220426984916`*^9, 3.5688220506389055`*^9}, {3.568822092353379*^9, 3.568822123693834*^9}, 3.568873215924739*^9, 3.5689108676002645`*^9, 3.5689997098237543`*^9, 3.5689998170115423`*^9, 3.568999886915265*^9, 3.5691460425981283`*^9, { 3.5692371678918586`*^9, 3.569237204489523*^9}, 3.569237465805582*^9, 3.56923802261736*^9, 3.5693403424025126`*^9, 3.5693404501675014`*^9, 3.569340737988007*^9, 3.569340852819809*^9, 3.569341165475558*^9, 3.56934149694494*^9, 3.569342614390503*^9, 3.569343567162176*^9, 3.569343662712344*^9, 3.569343763597721*^9, 3.5693440703198595`*^9, 3.569344266209404*^9, 3.5702973471714044`*^9, 3.5702974395391665`*^9, { 3.570297637207114*^9, 3.570297637987115*^9}, 3.570297920051211*^9}], Cell[BoxData["32"], "Output", CellChangeTimes->CompressedData[" 1:eJxTTMoPSmVkYGDQAeIT/g3meotfOT6bZJkKohkMX+eDaI/P55pA9KNNnhdA 9PfoXfn6QLooVKYcRIfu+rrXAEjzKTK+B9FcLtdNXIF0Xm6GF4jO0LwYAqKZ Nu6MB9HhJelpIHrZM9mpbkD6Z0fIXBAdXd2/GERXrP+4HET/sT63CURr3Z69 A0RPv9q1F0T/02U9AqIFLG1Og2iZY8sug+jvaldugGiTr15x7iB/FLZlgegP X2PzQfSGhvU1IJrX4VsDiM46ZtEBor+s3rMBRE/5NmEHiN6yfuUxEH2Fzfwl iE6ZwpPoA6Qb6xe2gOgV6V+7QLRVA/ckEG3Bw7wYRM/Q79wEohe8Tc32BdIb s69VgGgXlYrFWWteOQIAv6e4+g== "]] }, 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[{"\<\"N\"\>", ",", "\<\"C\"\>", ",", "\<\"N\"\>", ",", "\<\"C\"\>", ",", "\<\"C\"\>", ",", "\<\"C\"\>", ",", "\<\"N\"\>", ",", "\<\"C\"\>", ",", "\<\"N\"\>", ",", "\<\"N\"\>", ",", "\<\"C\"\>", ",", "\<\"C\"\>", ",", "\<\"C\"\>", ",", "\<\"O\"\>", ",", "\<\"C\"\>", ",", "\<\"O\"\>", ",", "\<\"O\"\>", ",", "\<\"Z\"\>", ",", "\<\"Z\"\>", ",", "\<\"Z\"\>", ",", "\<\"C\"\>", ",", "\<\"Z\"\>", ",", "\<\"O\"\>", ",", "\<\"Z\"\>", ",", "\<\"Z\"\>", ",", "\<\"Z\"\>", ",", "\<\"Z\"\>", ",", "\<\"Z\"\>", ",", "\<\"Z\"\>", ",", "\<\"Z\"\>", ",", "\<\"Z\"\>", ",", "\<\"Z\"\>"}], "}"}]], "Output", CellChangeTimes->CompressedData[" 1:eJxTTMoPSmVkYGDQAeIp5xvM9Ra/ctwoZJUKos9seJ0PooWLzzeB6EebPC+A 6O/Ru/L1gbTtVZlyEK1g9W2vAZC+uYDxPYi+evi6iSuQzsvN8ALRJisvhoDo cwa74kG00pf0NBC97JnsVDcg/bMjZC6IVvvdvxhEu+h/Wg6iT+w+twlEf4ua swNET7/atRdE/9NlPQKi7+ywOQ2iZY4tuwyiv6tduQGi/5d4x7kD6WeFbVkg ek9pXD6IrmHYUAOib+7/1gCis45ZdIDo/dp7N4DohLKJO0D0lvUrj4HoK2zm L0G0gQhvog+Q9vm/sAVEr0j/2gWi2Rh4JoFoCx7mxSA6eX3nJhC94G1qti8o HLOvVYDoo30Vi7PWvHIEAKOvvJY= "]] }, 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\"\>", ",", "2"}], "}"}], ",", RowBox[{"{", RowBox[{"\<\"C\"\>", ",", "4"}], "}"}], ",", RowBox[{"{", RowBox[{"\<\"C\"\>", ",", "5"}], "}"}], ",", RowBox[{"{", RowBox[{"\<\"C\"\>", ",", "6"}], "}"}], ",", RowBox[{"{", RowBox[{"\<\"C\"\>", ",", "8"}], "}"}], ",", RowBox[{"{", RowBox[{"\<\"C\"\>", ",", "11"}], "}"}], ",", RowBox[{"{", RowBox[{"\<\"C\"\>", ",", "12"}], "}"}], ",", RowBox[{"{", RowBox[{"\<\"C\"\>", ",", "13"}], "}"}], ",", RowBox[{"{", RowBox[{"\<\"C\"\>", ",", "15"}], "}"}], ",", RowBox[{"{", RowBox[{"\<\"C\"\>", ",", "21"}], "}"}], ",", RowBox[{"{", RowBox[{"\<\"N\"\>", ",", "1"}], "}"}], ",", RowBox[{"{", RowBox[{"\<\"N\"\>", ",", "3"}], "}"}], ",", RowBox[{"{", RowBox[{"\<\"N\"\>", ",", "7"}], "}"}], ",", RowBox[{"{", RowBox[{"\<\"N\"\>", ",", "9"}], "}"}], ",", RowBox[{"{", RowBox[{"\<\"N\"\>", ",", "10"}], "}"}], ",", RowBox[{"{", RowBox[{"\<\"O\"\>", ",", "14"}], "}"}], ",", RowBox[{"{", RowBox[{"\<\"O\"\>", ",", "16"}], "}"}], ",", RowBox[{"{", RowBox[{"\<\"O\"\>", ",", "17"}], "}"}], ",", RowBox[{"{", RowBox[{"\<\"O\"\>", ",", "23"}], "}"}], ",", RowBox[{"{", RowBox[{"\<\"Z\"\>", ",", "18"}], "}"}], ",", RowBox[{"{", RowBox[{"\<\"Z\"\>", ",", "19"}], "}"}], ",", RowBox[{"{", RowBox[{"\<\"Z\"\>", ",", "20"}], "}"}], ",", RowBox[{"{", RowBox[{"\<\"Z\"\>", ",", "22"}], "}"}], ",", RowBox[{"{", RowBox[{"\<\"Z\"\>", ",", "24"}], "}"}], ",", RowBox[{"{", RowBox[{"\<\"Z\"\>", ",", "25"}], "}"}], ",", RowBox[{"{", RowBox[{"\<\"Z\"\>", ",", "26"}], "}"}], ",", RowBox[{"{", RowBox[{"\<\"Z\"\>", ",", "27"}], "}"}], ",", RowBox[{"{", RowBox[{"\<\"Z\"\>", ",", "28"}], "}"}], ",", RowBox[{"{", RowBox[{"\<\"Z\"\>", ",", "29"}], "}"}], ",", RowBox[{"{", RowBox[{"\<\"Z\"\>", ",", "30"}], "}"}], ",", RowBox[{"{", RowBox[{"\<\"Z\"\>", ",", "31"}], "}"}], ",", RowBox[{"{", RowBox[{"\<\"Z\"\>", ",", "32"}], "}"}]}], "}"}]], "Output", CellChangeTimes->CompressedData[" 1:eJxTTMoPSmVkYGDQAeIE/0ZzvcWvHGsmWaWC6BkGb/JB9L1P55tA9Fojrwsg ui96d74+kOYIlS0H0W92fttrAKSXKDC9B9ELnG+YuAJpq7cZXiD6v8alEBA9 a8OueBD9rjgjDUQXpslNdQPSRzlC54LoT1UTFoNogfWfloPoydbnN4HoQ7fm 7ADRyaHde0H0ybWsR0D0cgvb0yD6hevyy2B1y67cANGnvnjHuQPpTR/bskB0 +9e4fBBdw7ChBkQvtf/eAKKZjll2gOju1Xs3gGidbxN3gOgG/VXHQPSCNvOX IPqEMF+iD5CWqF/UAqJLnn/tAtGX6nkmgWiWHubFIFpfv2sTiM7JTcv2Bdn3 +loFiL4lWLk4a80rRwB4jrqK "]] }, 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[{ "2", ",", "4", ",", "5", ",", "6", ",", "8", ",", "11", ",", "12", ",", "13", ",", "15", ",", "21", ",", "1", ",", "3", ",", "7", ",", "9", ",", "10", ",", "14", ",", "16", ",", "17", ",", "23", ",", "18", ",", "19", ",", "20", ",", "22", ",", "24", ",", "25", ",", "26", ",", "27", ",", "28", ",", "29", ",", "30", ",", "31", ",", "32"}], "}"}]], "Output", CellChangeTimes->CompressedData[" 1:eJxTTMoPSmVkYGDQAeIE/0ZzvcWvHGsmWaWC6JQNb/JB9L1P55tAdMUmrwsg Our27nx9IH3limw5iH6z89teAyC9RIHpPYjOOXzDxBVIs+VmeoHo/xqXQkB0 qsHueBC963NGGoi2fSY31Q1IT+gInQuiP1VNWAyib+t9Xg6iJ1uf3wSi+6Lm 7gDRele794LoKbpsR0B00Q7b0yB6y9Hll8Hq1K7eANGnvnjHuQPp2sL2LBAd XBqfD6LdGzbUgOiC/d8bQDTTMcsOEN29eu8GEK3zbeIOEO2zftUxEJ3DZvES RJ8Q5kv0AdJP/i1qAdH26d+6QPS8/zyTQPR5bpbFIPrXuq5NINribVq2L5D2 yL5eAaKPJVcuzlrzyhEABRe8qg== "]] }, 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.255", ",", 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.4507"}], "]"}]}], "]"}]}], "]"}]}], "]"}]}], "]"}], ",", RowBox[{"{", RowBox[{"i", ",", "1", ",", "n"}], "}"}]}], "]"}]}]}], "Input", CellChangeTimes->{{3.5679480369450207`*^9, 3.567948069112277*^9}, { 3.5679486805553513`*^9, 3.5679487948723516`*^9}, 3.567950206581231*^9, { 3.5681216077716007`*^9, 3.5681216839309344`*^9}, {3.568266380090639*^9, 3.5682664108850937`*^9}, {3.568266481350417*^9, 3.56826649971165*^9}, 3.5682795170433135`*^9, {3.5682795636873956`*^9, 3.5682797843809834`*^9}, { 3.568279837187076*^9, 3.5682798459854913`*^9}, {3.568279877201146*^9, 3.568279880711152*^9}, {3.5682799570264864`*^9, 3.5682799599124913`*^9}, { 3.5683770044498715`*^9, 3.5683771523693314`*^9}, 3.5688133425788107`*^9, { 3.568814931192001*^9, 3.5688150075073347`*^9}, {3.5688765350957685`*^9, 3.5688765981198792`*^9}, {3.568876634452343*^9, 3.5688766352167444`*^9}, { 3.568894358551657*^9, 3.5688944054453397`*^9}, {3.568894522929146*^9, 3.5688945259087515`*^9}, {3.5688946101644993`*^9, 3.5688946171221113`*^9}, {3.568894651067771*^9, 3.568894651956972*^9}, 3.5688946827982264`*^9, {3.568894734527918*^9, 3.568894735495119*^9}, { 3.5688947726699843`*^9, 3.568894773496786*^9}, {3.5688948078948464`*^9, 3.568895097914956*^9}, {3.5689558039020233`*^9, 3.568955804619624*^9}, { 3.5689559169086213`*^9, 3.5689559179070234`*^9}, {3.5689559496998787`*^9, 3.568955950589081*^9}, {3.568956090817727*^9, 3.568956118273775*^9}, 3.5689561556982408`*^9, {3.5690814230317364`*^9, 3.5690814238897376`*^9}, { 3.569232478412421*^9, 3.5692324795356236`*^9}, {3.5692325096124763`*^9, 3.5692325115780797`*^9}, {3.5692325933846235`*^9, 3.569232594289425*^9}, { 3.569235467676072*^9, 3.5692354683780737`*^9}, {3.5692358857568064`*^9, 3.5692358867552085`*^9}, {3.569236173312112*^9, 3.569236174060913*^9}, { 3.569344745239445*^9, 3.569344781213108*^9}, {3.5693896312339673`*^9, 3.5693896351495743`*^9}, {3.5693896840088596`*^9, 3.5693896981112843`*^9}, {3.5693897680462074`*^9, 3.5693897743798184`*^9}, 3.570595843597315*^9, 3.5705958765133724`*^9, {3.5706006955110383`*^9, 3.57060069660304*^9}, {3.570600739659116*^9, 3.5706007402207165`*^9}, { 3.5706007784563837`*^9, 3.5706008313872766`*^9}, {3.5706008641161346`*^9, 3.5706008892321787`*^9}, 3.5706010214580107`*^9, {3.5706011135917726`*^9, 3.570601115058175*^9}, {3.5706011509850388`*^9, 3.5706011750714808`*^9}, { 3.5706012352719865`*^9, 3.570601260746831*^9}, 3.570856110868636*^9, 3.570856144034294*^9, 3.5708561753903494`*^9, {3.5708562115824127`*^9, 3.570856236261656*^9}, 3.5708568877188005`*^9, 3.570856960992129*^9, { 3.5708570022854013`*^9, 3.570857003424204*^9}, 3.5708574863854513`*^9, 3.570857676003785*^9, {3.570857720697863*^9, 3.570857774736358*^9}, { 3.570857815015629*^9, 3.570857815265229*^9}, {3.5708578488052883`*^9, 3.5708579513754683`*^9}, {3.5708579844319267`*^9, 3.570858009937971*^9}, { 3.5708583084132957`*^9, 3.570858421435494*^9}, {3.5727961392438684`*^9, 3.57279614016427*^9}, {3.572796215855603*^9, 3.5727962193812094`*^9}, { 3.5731452670909014`*^9, 3.573145275920517*^9}, 3.574340997689655*^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.24`", ",", "0.24`", ",", "0.24`", ",", "0.24`", ",", "0.24`", ",", "0.178`", ",", "0.178`", ",", "0.178`", ",", "0.178`", ",", "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->CompressedData[" 1:eJxTTMoPSmVkYGDQAeHzjeZ6i185eghZp4LolA1v8kH0qqILTSDaxcj7AohW i96Trw+kF4TIlYPoHZbf9xoA6YIFTO9BtIXzTRNXIH3xTaYXiD614lIIiDbc sDseRLcWZ6aBaI40+aluQHpCR+hcEL3v14TFIPq23uflIDpu9/lNILovau4O EP0rpGcviJ6iy3YERBftsD0NohtcV1wG0VHLrt4A0dNKfOLcQf742J4FooNL 4/NBtBDDxhoQXbD/ewOIPudq1QGiw7X3bQDRP0on7QDREvqrj4FoizaLlyB6 ymS+RB8g/eTfohYQzf38WxeInvefZxKInt3NshhE/1rXtQlEM+emZ/sCaZHX 1ytAdMW1ysVZa145AgA8gbhV "]], 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.22522`", ",", "0.22522`", ",", "0.22522`", ",", "0.22522`", ",", "0.22522`", ",", "0.178`", ",", "0.178`", ",", "0.178`", ",", "0.178`", ",", "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->CompressedData[" 1:eJxTTMoPSmVkYGDQAeHzjeZ6i185eghZp4LolA1v8kH0qqILTSDaxcj7AohW i96Trw+kF4TIlYPoHZbf9xoA6YIFTO9BtIXzTRNXIH3xTaYXiD614lIIiDbc sDseRLcWZ6aBaI40+aluQHpCR+hcEL3v14TFIPq23uflIDpu9/lNILovau4O EP0rpGcviJ6iy3YERBftsD0NohtcV1wG0VHLrt4A0dNKfOLcQf742J4FooNL 4/NBtBDDxhoQXbD/ewOIPudq1QGiw7X3bQDRP0on7QDREvqrj4FoizaLlyB6 ymS+RB8g/eTfohYQzf38WxeInvefZxKInt3NshhE/1rXtQlEM+emZ/sCaZHX 1ytA9Mp7lYuz1rxyBAA+QbiO "]] }, 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}, {3.574482652579655*^9, 3.574482674872094*^9}}], Cell[BoxData[ RowBox[{"{", RowBox[{"\<\"C\"\>", ",", "\<\"C\"\>", ",", "\<\"C\"\>", ",", "\<\"C\"\>", ",", "\<\"C\"\>", ",", "\<\"C\"\>", ",", "\<\"C\"\>", ",", "\<\"C\"\>", ",", "\<\"C\"\>", ",", "\<\"C\"\>", ",", "\<\"N\"\>", ",", "\<\"N\"\>", ",", "\<\"N\"\>", ",", "\<\"N\"\>", ",", "\<\"N\"\>", ",", "\<\"O\"\>", ",", "\<\"O\"\>", ",", "\<\"O\"\>", ",", "\<\"O\"\>", ",", "\<\"H\"\>", ",", "\<\"H\"\>", ",", "\<\"H\"\>", ",", "\<\"H\"\>", ",", "\<\"H\"\>", ",", "\<\"H\"\>", ",", "\<\"H\"\>", ",", "\<\"H\"\>", ",", "\<\"H\"\>", ",", "\<\"H\"\>", ",", "\<\"H\"\>", ",", "\<\"H\"\>", ",", "\<\"H\"\>"}], "}"}]], "Output", CellChangeTimes->CompressedData[" 1:eJxTTMoPSmVkYGDQAeLvfk3meotfOYpMsk4F0QYGb/NBdNmnC00gWmCT9wUQ /enWnnx9IJ19Ra4cRLfs/L7XAEjbKDC/B9HMh2+auALpOTlZXiB6msblEBD9 R39PPIhuLc5MA9EcafJT3YB0DEfYXBDdWTVxMYhetu7zchCtZX1hE4iOvDV3 B4g+dqVnL4hOWMt2BETbWdidBtE+R1dcBtGqatdugOikLz5x7iB/FHZkgWi5 r/H5IPpe/cYaEG1j/6MBRM86atUBopVW79sAoo98nbQDREvorz4Goi3aLF6C 6Hhh/kQfIL2hbnELiL6e9r0LRGfV804C0WncrItB9DG97k0g+vyb9GxfIP0g 60YFiP7hULU4a80rRwD9TbbU "]] }, Open ]], Cell[CellGroupData[{ Cell[BoxData[ RowBox[{"ChemicalData", "\[NoBreak]", "[", RowBox[{"\"\\"", ",", "\"\\""}], "]"}]], "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}, {3.574482652579655*^9, 3.5744826676648817`*^9}}], Cell[BoxData["\<\"C10H13N5O4\"\>"], "Output", CellChangeTimes->CompressedData[" 1:eJxTTMoPSmVkYGDQAeJD55rM9Ra/crwvaJMKon+vf5sPop2KLjaB6DuGPhdA 9N6ovfn6QNosRL4cRPtb/thrAKQ5FjC/B9HnnG6ZuALpOTlZXiA6acXlEBD9 R39PPIgO/JyZBqKvPJWf6gakNTrC5oLo0F8TF4PoIr0vy0G0lvWFTSBaJWre DhB97ErPXhCto8t+BERz7bA7DaJ9jq64DKI/Lr12A0TrlfjGuQNpkcKOLBD9 qiQhH0Tfq99YA6I59v9oANFprtYdIFpp9b4NILq/dPIOEP143epjIJqFzfIl iNaezJ/oA6Sr/y1uAdGLnn3vAtGm/3kngeg0btbFIHrSuu5NIHpWTka2L5Be /epGBYiuWF21OGvNK0cAmgi40A== "]] }, 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.`", ",", "7.`", ",", "7.`", ",", "7.`", ",", "7.`", ",", "7.`", ",", "8.`", ",", "8.`", ",", "8.`", ",", "8.`", ",", "1.`", ",", "1.`", ",", "1.`", ",", "1.`", ",", "1.`", ",", "1.`", ",", "1.`", ",", "1.`", ",", "1.`", ",", "1.`", ",", "1.`", ",", "1.`", ",", "1.`"}], "}"}]], "Output", CellChangeTimes->CompressedData[" 1:eJxTTMoPSmVkYGDQAeI+v2ZzvcWvHO8L2qSC6GP67/JBNN+ni00g+o6hzwUQ 3XFrb74+kGa6Il8OoqV2/thrAKQ5FjC/B9GzDt0ycQXSGW+yvEB00orLISD6 xPo98SBapjgrDUQvSFWY6gakNTrC5oLo0F8TF4PoIr0vy0H0t10XNoHoDzfn 7QDRk0J694JoHV32IyCaa4fdaRAt7rryMoj+uPTaDRCtV+Ib5w6kH3zoyALR 274k5IPoVf831oDoK3Y/G0B0mqt1B4h+p7V/A4iO+jp5B4hep7fmGIg+32r5 EkRrT+ZP9AHS7nVLWkB0XtqPLhDNUM83CUQbdbMuBtGxej2bQHTam4xsXyC9 +tWNChA9nbV6cdaaV44A5He54w== "]] }, 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["19"], "Output", CellChangeTimes->CompressedData[" 1:eJxTTMoPSmVkYGDQAeI+v2ZzvcWvHFdNtEkF0cf03+WDaL5PF5tA9PKNPhdA dEjUvnx9IH0uWKEcRD+z+LnXAEhflmd5D6LTnG6buAJpk5xsLxCtp3ElBERP 0d8bD6JffMpKA9HZTxWmugHpz+zhc0G0QtWkxSDabt2X5SD6kNXFTSD6w815 O0D0pJDevSD6xxr2IyD6mrn9aRD9+MjKyyB6j+r1GyD612ffOHcgvaagMwtE b/uSkA+iy+o31YDoK3Y/G0C04VHrDhC9a9X+DSA66uvkHSB6nd6aYyD6fKvl SxD9TUgg0QdIC/1b0gKi89J+dIFohnq+SSD6HxfbYhCtsa5nE4hOe5OR7Quy L+tmBYj2rKhenLXmlSMAyFK76w== "]], Cell[BoxData["13"], "Output", CellChangeTimes->CompressedData[" 1:eJxTTMoPSmVkYGDQAeI+v2ZzvcWvHFdNtEkF0cf03+WDaL5PF5tA9PKNPhdA dEjUvnx9IH0uWKEcRD+z+LnXAEhflmd5D6LTnG6buAJpk5xsLxCtp3ElBERP 0d8bD6JffMpKA9HZTxWmugHpz+zhc0G0QtWkxSDabt2X5SD6kNXFTSD6w815 O0D0pJDevSD6xxr2IyD6mrn9aRD9+MjKyyB6j+r1GyD612ffOHcgvaagMwtE b/uSkA+iy+o31YDoK3Y/G0C04VHrDhC9a9X+DSA66uvkHSB6nd6aYyD6fKvl SxD9TUgg0QdIC/1b0gKi89J+dIFohnq+SSD6HxfbYhCtsa5nE4hOe5OR7Quy L+tmBYhe3VG9OGvNK0cAy9K8XQ== "]] }, 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}, { 3.5744827068053503`*^9, 3.5744827177409697`*^9}}], Cell[BoxData[ Graphics3DBox[{ {RGBColor[0.4, 0.2666666666666667, 0.13333333333333336`], Opacity[0.8], SphereBox[{-6.6157606506599995`, 2.23514901554, 2.8534673627399996`}, 0.255]}, {RGBColor[0.4, 0.2666666666666667, 0.13333333333333336`], Opacity[0.8], SphereBox[{-3.5740009892799995`, 0.014783817826759998`, 1.3664740986819999`}, 0.255]}, {RGBColor[0.4, 0.2666666666666667, 0.13333333333333336`], Opacity[0.8], SphereBox[{-5.13330839818, -1.9670724851799999`, 1.5223122429979998`}, 0.255]}, {RGBColor[0.4, 0.2666666666666667, 0.13333333333333336`], Opacity[0.8], SphereBox[{-7.483333857259999, -1.65976524306, 2.39745758168}, 0.255]}, {RGBColor[0.4, 0.2666666666666667, 0.13333333333333336`], Opacity[0.8], SphereBox[{-1.378759207408, -2.98894181968, 0.0591733681832}, 0.255]}, {RGBColor[0.4, 0.2666666666666667, 0.13333333333333336`], Opacity[0.8], SphereBox[{5.121667686019999, 0.1550637346012, -0.252359679218}, 0.255]}, {RGBColor[0.4, 0.2666666666666667, 0.13333333333333336`], Opacity[0.8], SphereBox[{2.974428724, 0.235200967138, 1.6623825135699999`}, 0.255]}, {RGBColor[0.4, 0.2666666666666667, 0.13333333333333336`], Opacity[0.8], SphereBox[{0.699243973424, 1.0910824389759999`, 0.1216212535792}, 0.255]}, {RGBColor[0.4, 0.2666666666666667, 0.13333333333333336`], Opacity[0.8], SphereBox[{4.06289200274, 1.53737713867, -2.54402473024}, 0.255]}, {RGBColor[0.4, 0.2666666666666667, 0.13333333333333336`], Opacity[0.8], SphereBox[{5.204437684819999, 0.506476803616, -4.9764989347}, 0.255]}, {RGBColor[ NCache[ Rational[1, 3], 0.3333333333333333], NCache[ Rational[1, 3], 0.3333333333333333], 1], Opacity[0.8], SphereBox[{-8.22860399714, 0.497655562648, 3.0753778869199997`}, 0.24]}, {RGBColor[ NCache[ Rational[1, 3], 0.3333333333333333], NCache[ Rational[1, 3], 0.3333333333333333], 1], Opacity[0.8], SphereBox[{-4.31927112916, 2.1722022424799996`, 2.0444000731}, 0.24]}, {RGBColor[ NCache[ Rational[1, 3], 0.3333333333333333], NCache[ Rational[1, 3], 0.3333333333333333], 1], Opacity[0.8], SphereBox[{-1.4352809120680001`, -0.641820869462, 0.518926318504}, 0.24]}, {RGBColor[ NCache[ Rational[1, 3], 0.3333333333333333], NCache[ Rational[1, 3], 0.3333333333333333], 1], Opacity[0.8], SphereBox[{-4.05792202336, -3.9592027371199996`, 0.784130465344}, 0.24]}, {RGBColor[ NCache[ Rational[1, 3], 0.3333333333333333], NCache[ Rational[1, 3], 0.3333333333333333], 1], Opacity[0.8], SphereBox[{-8.9598523701, -3.53637654462, 2.5450073877599997`}, 0.24]}, {RGBColor[1, NCache[ Rational[1, 3], 0.3333333333333333], NCache[ Rational[1, 3], 0.3333333333333333]], Opacity[0.8], SphereBox[{1.461440389086, 1.045899090316, -2.4436046906}, 0.178]}, {RGBColor[1, NCache[ Rational[1, 3], 0.3333333333333333], NCache[ Rational[1, 3], 0.3333333333333333]], Opacity[0.8], SphereBox[{3.52658776394, 2.14432878398, 3.4114845532799998`}, 0.178]}, {RGBColor[1, NCache[ Rational[1, 3], 0.3333333333333333], NCache[ Rational[1, 3], 0.3333333333333333]], Opacity[0.8], SphereBox[{7.115101848899999, 1.605702071926, 0.7124871732320001}, 0.178]}, {RGBColor[1, NCache[ Rational[1, 3], 0.3333333333333333], NCache[ Rational[1, 3], 0.3333333333333333]], Opacity[0.8], SphereBox[{6.3805086609199995`, 2.47410486824, -6.30491962092}, 0.178]}, {RGBColor[1, 1, 1], Opacity[0.8], SphereBox[{2.6414401055399996`, -1.669191196348, 2.49111240224}, 0.12]}, {RGBColor[1, 1, 1], Opacity[0.8], SphereBox[{5.52393365964, -1.844204390386, -0.7671134827139999}, 0.12]}, {RGBColor[1, 1, 1], Opacity[0.8], SphereBox[{0.0700666937102, 3.01409407274, 0.6958122310079999}, 0.12]}, {RGBColor[1, 1, 1], Opacity[0.8], SphereBox[{4.4997777566799995`, 3.59461789994, -2.5218771415199996`}, 0.12]}, {RGBColor[1, 1, 1], Opacity[0.8], SphereBox[{7.181922560259999, 2.14385635248, -7.85986176276}, 0.12]}, {RGBColor[1, 1, 1], Opacity[0.8], SphereBox[{-10.80558554882, -3.29488845908, 3.2323952202599995`}, 0.12]}, {RGBColor[1, 1, 1], Opacity[0.8], SphereBox[{-8.33342709836, -5.33719093632, 1.9961364710599998`}, 0.12]}, {RGBColor[1, 1, 1], Opacity[0.8], SphereBox[{0.212966451022, -4.09743619402, -0.688043567422}, 0.12]}, {RGBColor[1, 1, 1], Opacity[0.8], SphereBox[{-7.2761065041, 4.1144059335, 3.44788067604}, 0.12]}, {RGBColor[1, 1, 1], Opacity[0.8], SphereBox[{8.45580575412, 1.5402211762999998`, -0.510579398762}, 0.12]}, {RGBColor[1, 1, 1], Opacity[0.8], SphereBox[{2.1601457906, 2.17588720818, 4.6073976523799995`}, 0.12]}, {RGBColor[1, 1, 1], Opacity[0.8], SphereBox[{3.6832271520799997`, -0.32915058495399996`, -6.16462636268}, 0.12]}, {RGBColor[1, 1, 1], Opacity[0.8], SphereBox[{6.6255872258599995`, -0.972885746854, -4.51192869486}, 0.12]}, Text3DBox["1", {-7.215760650659999, 2.23514901554, 2.8534673627399996`}, { 1, 0}], Text3DBox["2", {-4.17400098928, 0.014783817826759998`, 1.3664740986819999`}, {1, 0}], Text3DBox["3", {-5.733308398179999, -1.9670724851799999`, 1.5223122429979998`}, {1, 0}], Text3DBox["4", {-8.08333385726, -1.65976524306, 2.39745758168}, {1, 0}], Text3DBox["5", {-1.9787592074079998`, -2.98894181968, 0.0591733681832}, {1, 0}], Text3DBox["6", {4.52166768602, 0.1550637346012, -0.252359679218}, { 1, 0}], Text3DBox["7", {2.374428724, 0.235200967138, 1.6623825135699999`}, {1, 0}], Text3DBox["8", {0.09924397342400004, 1.0910824389759999`, 0.1216212535792}, {1, 0}], Text3DBox["9", {3.46289200274, 1.53737713867, -2.54402473024}, {1, 0}], Text3DBox["10", {4.60443768482, 0.506476803616, -4.9764989347}, {1, 0}], Text3DBox["11", {-8.82860399714, 0.497655562648, 3.0753778869199997`}, {1, 0}], Text3DBox["12", {-4.919271129159999, 2.1722022424799996`, 2.0444000731}, {1, 0}], Text3DBox["13", {-2.035280912068, -0.641820869462, 0.518926318504}, {1, 0}], Text3DBox["14", {-4.657922023359999, -3.9592027371199996`, 0.784130465344}, {1, 0}], Text3DBox["15", {-9.5598523701, -3.53637654462, 2.5450073877599997`}, {1, 0}], Text3DBox["16", {0.861440389086, 1.045899090316, -2.4436046906}, {1, 0}], Text3DBox["17", {2.9265877639399998`, 2.14432878398, 3.4114845532799998`}, {1, 0}], Text3DBox["18", {6.5151018489, 1.605702071926, 0.7124871732320001}, {1, 0}], Text3DBox["19", {5.78050866092, 2.47410486824, -6.30491962092}, {1, 0}], Text3DBox["20", {2.0414401055399995`, -1.669191196348, 2.49111240224}, {1, 0}], Text3DBox["21", {4.92393365964, -1.844204390386, -0.7671134827139999}, {1, 0}], Text3DBox["22", {-0.5299333062898, 3.01409407274, 0.6958122310079999}, {1, 0}], Text3DBox["23", {3.8997777566799994`, 3.59461789994, -2.5218771415199996`}, {1, 0}], Text3DBox["24", {6.58192256026, 2.14385635248, -7.85986176276}, {1, 0}], Text3DBox["25", {-11.40558554882, -3.29488845908, 3.2323952202599995`}, {1, 0}], Text3DBox["26", {-8.93342709836, -5.33719093632, 1.9961364710599998`}, {1, 0}], Text3DBox["27", {-0.387033548978, -4.09743619402, -0.688043567422}, {1, 0}], Text3DBox["28", {-7.8761065041, 4.1144059335, 3.44788067604}, {1, 0}], Text3DBox["29", {7.85580575412, 1.5402211762999998`, -0.510579398762}, {1, 0}], Text3DBox["30", {1.5601457906, 2.17588720818, 4.6073976523799995`}, {1, 0}], Text3DBox["31", { 3.0832271520799996`, -0.32915058495399996`, -6.16462636268}, {1, 0}], Text3DBox["32", {6.02558722586, -0.972885746854, -4.51192869486}, {1, 0}]}, AspectRatio->Automatic, Axes->Automatic, AxesLabel->{ FormBox["xl", TraditionalForm], FormBox["yl", TraditionalForm], FormBox["zl", TraditionalForm]}, Boxed->True, SphericalRegion->True]], "Output", CellChangeTimes->CompressedData[" 1:eJxTTMoPSmVkYGDQAeI9vq3meotfOfIJ2qWC6APrPuSDaI7CK00gmsvQ7wKI 3n5zf74+kDa6rFgOoj13/NprAKTN5rO+B9EnD94xcQXS017neIHoCcuvhoDo 7+v2xYNo76KcNBB9LkVpqhuQDmuPmAuiW35OXgyiF+h+Ww6iVXZd2gSiQyIX 7ADRXy737QXR0TqcR0C0xXaH0yDazWX1ZRCtsPTGDRAdU+wf5w6k+T90ZYFo yZKkfBB949/mGhBttu9XA4ie4mLbAaJltA5uANH7SqbuANGC69YeA9FGrNYv QbSqkFCiD5Auq13WAqIvPP3ZBaJT/vFPAtEJXeyLQXSPbt8mEH0iOyvbF0jf enmrAkSH/KxZnLXmlSMAS0S4hw== "]] }, Open ]], Cell[CellGroupData[{ Cell[BoxData[ RowBox[{"ChemicalData", "\[NoBreak]", "[", RowBox[{"\"\\"", ",", "\"\\""}], "]"}]], "Input", CellChangeTimes->{{3.567869377256353*^9, 3.567869394073182*^9}, { 3.5678694248832364`*^9, 3.5678694526200852`*^9}, {3.5678694891241493`*^9, 3.5678694955045605`*^9}, {3.567869596046737*^9, 3.567869602645549*^9}, 3.56786971175214*^9, {3.5678697908910794`*^9, 3.567869798800293*^9}, { 3.5679434548425727`*^9, 3.5679434621121855`*^9}, 3.568011875875622*^9, 3.56811435956207*^9, {3.5682782821071444`*^9, 3.5682782839479475`*^9}, { 3.5688205455482616`*^9, 3.5688206262784038`*^9}, 3.5688208026055136`*^9, 3.5688732159559383`*^9, 3.568910867631465*^9, {3.5689830694736805`*^9, 3.568983072687286*^9}, {3.5725833074418383`*^9, 3.5725833223398647`*^9}, { 3.572583642982828*^9, 3.572583671421678*^9}, {3.572584036290719*^9, 3.5725840766323895`*^9}, {3.572584986320788*^9, 3.572585000719613*^9}, { 3.572585104865396*^9, 3.5725851158790154`*^9}, 3.5726667135591345`*^9, { 3.5727958552609696`*^9, 3.5727958810478153`*^9}, {3.5727959717619743`*^9, 3.5727959736963778`*^9}, {3.572796004615632*^9, 3.572796064270137*^9}, { 3.5744827068053503`*^9, 3.5744827177409697`*^9}}], Cell[BoxData[ GraphicsBox[{{ {GrayLevel[0], AbsoluteThickness[0.55], InsetBox[ StyleBox["\<\"N\"\>", StripOnInput->False, ScriptSizeMultipliers->0.8, ScriptMinSize->8, FontSize->Scaled[0.03171480521028943], FontWeight->Plain], {245.02, 123.58}], LineBox[{{245.02, 107.94}, {245.02, 82.33}}], {GrayLevel[0], InsetBox[ StyleBox["\<\"C\"\>", StripOnInput->False, ScriptSizeMultipliers->0.8, ScriptMinSize->8, FontSize->Scaled[0.03171480521028943], FontWeight->Plain], {245.02, 41.08}], LineBox[{{245.02, 82.33}, {245.02, 56.72}}]}}, {GrayLevel[0], AbsoluteThickness[0.55], InsetBox[ StyleBox["\<\"N\"\>", StripOnInput->False, ScriptSizeMultipliers->0.8, ScriptMinSize->8, FontSize->Scaled[0.03171480521028943], FontWeight->Plain], {245.02, 123.58}], LineBox[{{{229.4141474101761, 127.83122478759783`}, {207.2475, 140.63400000000001`}}, {{233.5391474101761, 134.97322478759781`}, { 211.3725, 147.776}}}], {GrayLevel[0], InsetBox[ StyleBox["\<\"C\"\>", StripOnInput->False, ScriptSizeMultipliers->0.8, ScriptMinSize->8, FontSize->Scaled[0.03171480521028943], FontWeight->Plain], {173.6, 164.83}], LineBox[{{{207.2475, 140.63400000000001`}, {185.0808525898239, 153.43677521240218`}}, {{211.3725, 147.776}, {189.2058525898239, 160.57877521240218`}}}]}}, {GrayLevel[0], AbsoluteThickness[0.55], InsetBox[ StyleBox["\<\"C\"\>", StripOnInput->False, ScriptSizeMultipliers->0.8, ScriptMinSize->8, FontSize->Scaled[0.03171480521028943], FontWeight->Plain], {245.02, 41.08}], LineBox[{{{233.55765011974802`, 29.666893215575044`}, {211.3795, 16.813999999999997`}}, {{229.418650119748, 36.80889321557504}, { 207.2405, 23.956}}}], {GrayLevel[0], InsetBox[ StyleBox["\<\"N\"\>", StripOnInput->False, ScriptSizeMultipliers->0.8, ScriptMinSize->8, FontSize->Scaled[0.03171480521028943], FontWeight->Plain], {173.6, -0.31}], LineBox[{{{211.3795, 16.813999999999997`}, {189.201349880252, 3.9611067844249526`}}, {{207.2405, 23.956}, {185.062349880252, 11.103106784424956`}}}]}}, {GrayLevel[0], AbsoluteThickness[0.55], InsetBox[ StyleBox["\<\"C\"\>", StripOnInput->False, ScriptSizeMultipliers->0.8, ScriptMinSize->8, FontSize->Scaled[0.03171480521028943], FontWeight->Plain], {245.02, 41.08}], LineBox[{{258.57111755567587`, 33.271234861243855`}, {280.76, 20.485}}], {GrayLevel[0], InsetBox[ StyleBox["\<\"H\"\>", StripOnInput->False, ScriptSizeMultipliers->0.8, ScriptMinSize->8, FontSize->Scaled[0.03171480521028943], FontWeight->Plain], {316.5, -0.11}], LineBox[{{280.76, 20.485}, {302.9488824443241, 7.69876513875614}}]}}, {GrayLevel[0], AbsoluteThickness[0.55], InsetBox[ StyleBox["\<\"N\"\>", StripOnInput->False, ScriptSizeMultipliers->0.8, ScriptMinSize->8, FontSize->Scaled[0.03171480521028943], FontWeight->Plain], {173.6, -0.31}], LineBox[{{160.06102163636194`, 7.51979341163867}, {137.815, 20.384999999999998`}}], {GrayLevel[0], InsetBox[ StyleBox["\<\"C\"\>", StripOnInput->False, ScriptSizeMultipliers->0.8, ScriptMinSize->8, FontSize->Scaled[0.03171480521028943], FontWeight->Plain], {102.03, 41.08}], LineBox[{{137.815, 20.384999999999998`}, {115.56897836363807`, 33.25020658836133}}]}}, {GrayLevel[0], AbsoluteThickness[0.55], InsetBox[ StyleBox["\<\"C\"\>", StripOnInput->False, ScriptSizeMultipliers->0.8, ScriptMinSize->8, FontSize->Scaled[0.03171480521028943], FontWeight->Plain], {102.03, 41.08}], LineBox[{{{97.905, 56.72}, {97.905, 82.33}}, {{106.155, 56.72}, {106.155, 82.33}}}], {GrayLevel[0], InsetBox[ StyleBox["\<\"C\"\>", StripOnInput->False, ScriptSizeMultipliers->0.8, ScriptMinSize->8, FontSize->Scaled[0.03171480521028943], FontWeight->Plain], {102.03, 123.58}], LineBox[{{{97.905, 82.33}, {97.905, 107.94}}, {{106.155, 82.33}, { 106.155, 107.94}}}]}}, {GrayLevel[0], AbsoluteThickness[0.55], InsetBox[ StyleBox["\<\"C\"\>", StripOnInput->False, ScriptSizeMultipliers->0.8, ScriptMinSize->8, FontSize->Scaled[0.03171480521028943], FontWeight->Plain], {102.03, 41.08}], LineBox[{{87.15676139434035, 36.24302022134522}, {62.825, 28.33}}], {GrayLevel[0], InsetBox[ StyleBox["\<\"N\"\>", StripOnInput->False, ScriptSizeMultipliers->0.8, ScriptMinSize->8, FontSize->Scaled[0.03171480521028943], FontWeight->Plain], {23.62, 15.58}], LineBox[{{62.825, 28.33}, {38.493238605659656`, 20.416979778654778`}}]}}, {GrayLevel[0], AbsoluteThickness[0.55], InsetBox[ StyleBox["\<\"C\"\>", StripOnInput->False, ScriptSizeMultipliers->0.8, ScriptMinSize->8, FontSize->Scaled[0.03171480521028943], FontWeight->Plain], {102.03, 123.58}], LineBox[{{115.58045097396717`, 131.38992179231727`}, {137.815, 144.205}}], {GrayLevel[0], InsetBox[ StyleBox["\<\"C\"\>", StripOnInput->False, ScriptSizeMultipliers->0.8, ScriptMinSize->8, FontSize->Scaled[0.03171480521028943], FontWeight->Plain], {173.6, 164.83}], LineBox[{{137.815, 144.205}, {160.04954902603282`, 157.02007820768276`}}]}}, {GrayLevel[0], AbsoluteThickness[0.55], InsetBox[ StyleBox["\<\"C\"\>", StripOnInput->False, ScriptSizeMultipliers->0.8, ScriptMinSize->8, FontSize->Scaled[0.03171480521028943], FontWeight->Plain], {102.03, 123.58}], LineBox[{{87.15731935184012, 128.41869510693226`}, {62.825, 136.335}}], {GrayLevel[0], InsetBox[ StyleBox["\<\"N\"\>", StripOnInput->False, ScriptSizeMultipliers->0.8, ScriptMinSize->8, FontSize->Scaled[0.03171480521028943], FontWeight->Plain], {23.62, 149.09}], LineBox[{{62.825, 136.335}, {38.49268064815989, 144.25130489306775`}}]}}, {GrayLevel[0], AbsoluteThickness[0.55], InsetBox[ StyleBox["\<\"C\"\>", StripOnInput->False, ScriptSizeMultipliers->0.8, ScriptMinSize->8, FontSize->Scaled[0.03171480521028943], FontWeight->Plain], {173.6, 164.83}], LineBox[{{173.6, 180.47000000000003`}, {173.6, 206.08}}], {GrayLevel[0], InsetBox[ StyleBox["\<\"N\"\>", StripOnInput->False, ScriptSizeMultipliers->0.8, ScriptMinSize->8, FontSize->Scaled[0.03171480521028943], FontWeight->Plain], {173.6, 247.33}], LineBox[{{173.6, 206.08}, {173.6, 231.69}}]}}, {GrayLevel[0], AbsoluteThickness[0.55], InsetBox[ StyleBox["\<\"N\"\>", StripOnInput->False, ScriptSizeMultipliers->0.8, ScriptMinSize->8, FontSize->Scaled[0.03171480521028943], FontWeight->Plain], {23.62, 15.58}], LineBox[{{14.42043131929731, 28.228222645456327`}, {-0.6549999999999994, 48.955}}], {GrayLevel[0], InsetBox[ StyleBox["\<\"C\"\>", StripOnInput->False, ScriptSizeMultipliers->0.8, ScriptMinSize->8, FontSize->Scaled[0.03171480521028943], FontWeight->Plain], {-24.93, 82.33}], LineBox[{{-0.6549999999999994, 48.955}, {-15.730431319297308`, 69.68177735454367}}]}}, {GrayLevel[0], AbsoluteThickness[0.55], InsetBox[ StyleBox["\<\"N\"\>", StripOnInput->False, ScriptSizeMultipliers->0.8, ScriptMinSize->8, FontSize->Scaled[0.03171480521028943], FontWeight->Plain], {23.62, 15.58}], LineBox[{{23.62, -0.0600000000000005}, {23.62, -66.485}}], {GrayLevel[0], InsetBox[ StyleBox["\<\"C\"\>", StripOnInput->False, ScriptSizeMultipliers->0.8, ScriptMinSize->8, FontSize->Scaled[0.03171480521028943], FontWeight->Plain], {23.62, -148.55}], LineBox[{{23.62, -66.485}, {23.62, -132.91000000000003`}}]}}, {GrayLevel[0], AbsoluteThickness[0.55], InsetBox[ StyleBox["\<\"C\"\>", StripOnInput->False, ScriptSizeMultipliers->0.8, ScriptMinSize->8, FontSize->Scaled[0.03171480521028943], FontWeight->Plain], {-24.93, 82.33}], LineBox[{{{-19.069332621444296`, 97.40637815020348}, {-3.993, 118.1375}}, {{-12.393332621444294`, 92.55137815020349}, { 2.683000000000001, 113.28250000000001`}}}], {GrayLevel[0], InsetBox[ StyleBox["\<\"N\"\>", StripOnInput->False, ScriptSizeMultipliers->0.8, ScriptMinSize->8, FontSize->Scaled[0.03171480521028943], FontWeight->Plain], {23.62, 149.09}], LineBox[{{{-3.993, 118.1375}, {11.083332621444296`, 138.86862184979654`}}, {{2.683000000000001, 113.28250000000001`}, { 17.75933262144429, 134.01362184979652`}}}]}}, {GrayLevel[0], AbsoluteThickness[0.55], InsetBox[ StyleBox["\<\"C\"\>", StripOnInput->False, ScriptSizeMultipliers->0.8, ScriptMinSize->8, FontSize->Scaled[0.03171480521028943], FontWeight->Plain], {-24.93, 82.33}], LineBox[{{-40.5699998851056, 82.32810424243816}, {-66.18, 82.32499999999999}}], {GrayLevel[0], InsetBox[ StyleBox["\<\"H\"\>", StripOnInput->False, ScriptSizeMultipliers->0.8, ScriptMinSize->8, FontSize->Scaled[0.03171480521028943], FontWeight->Plain], {-107.43, 82.32}], LineBox[{{-66.18, 82.32499999999999}, {-91.79000011489441, 82.32189575756182}}]}}, {GrayLevel[0], AbsoluteThickness[0.55], InsetBox[ StyleBox["\<\"N\"\>", StripOnInput->False, ScriptSizeMultipliers->0.8, ScriptMinSize->8, FontSize->Scaled[0.03171480521028943], FontWeight->Plain], {173.6, 247.33}], LineBox[{{160.0552250502055, 255.14976160502482`}, {137.875, 267.955}}], {GrayLevel[0], InsetBox[ StyleBox["\<\"H\"\>", StripOnInput->False, ScriptSizeMultipliers->0.8, ScriptMinSize->8, FontSize->Scaled[0.03171480521028943], FontWeight->Plain], {102.15, 288.58}], LineBox[{{137.875, 267.955}, {115.69477494979448`, 280.7602383949752}}]}}, {GrayLevel[0], AbsoluteThickness[0.55], InsetBox[ StyleBox["\<\"N\"\>", StripOnInput->False, ScriptSizeMultipliers->0.8, ScriptMinSize->8, FontSize->Scaled[0.03171480521028943], FontWeight->Plain], {173.6, 247.33}], LineBox[{{187.14477494979448`, 255.14976160502482`}, {209.325, 267.955}}], {GrayLevel[0], InsetBox[ StyleBox["\<\"H\"\>", StripOnInput->False, ScriptSizeMultipliers->0.8, ScriptMinSize->8, FontSize->Scaled[0.03171480521028943], FontWeight->Plain], {245.05, 288.58}], LineBox[{{209.325, 267.955}, {231.50522505020552`, 280.7602383949752}}]}}, {GrayLevel[0], AbsoluteThickness[0.55], InsetBox[ StyleBox["\<\"C\"\>", StripOnInput->False, ScriptSizeMultipliers->0.8, ScriptMinSize->8, FontSize->Scaled[0.03171480521028943], FontWeight->Plain], {-157.27, -196.94}], LineBox[{{-141.63, -196.94}, {-87.885, -196.94}}], {GrayLevel[0], InsetBox[ StyleBox["\<\"C\"\>", StripOnInput->False, ScriptSizeMultipliers->0.8, ScriptMinSize->8, FontSize->Scaled[0.03171480521028943], FontWeight->Plain], {-18.5, -196.94}], LineBox[{{-87.885, -196.94}, {-34.14, -196.94}}]}}, {GrayLevel[0], AbsoluteThickness[0.55], InsetBox[ StyleBox["\<\"C\"\>", StripOnInput->False, ScriptSizeMultipliers->0.8, ScriptMinSize->8, FontSize->Scaled[0.03171480521028943], FontWeight->Plain], {-157.27, -196.94}], LineBox[{{-157.27, -212.57999999999998`}, {-157.27, -224.195}}], {GrayLevel[0], InsetBox[ StyleBox["\<\"O\"\>", StripOnInput->False, ScriptSizeMultipliers->0.8, ScriptMinSize->8, FontSize->Scaled[0.03171480521028943], FontWeight->Plain], {-157.27, -251.45}], LineBox[{{-157.27, -224.195}, {-157.27, -234.63959999999997`}}]}}, {GrayLevel[0], AbsoluteThickness[0.55], InsetBox[ StyleBox["\<\"C\"\>", StripOnInput->False, ScriptSizeMultipliers->0.8, ScriptMinSize->8, FontSize->Scaled[0.03171480521028943], FontWeight->Plain], {-157.27, -196.94}], LineBox[{{-157.27, -181.3}, {-157.27, -175.66}}], {GrayLevel[0], InsetBox[ StyleBox["\<\"H\"\>", StripOnInput->False, ScriptSizeMultipliers->0.8, ScriptMinSize->8, FontSize->Scaled[0.03171480521028943], FontWeight->Plain], {-157.27, -154.38}], LineBox[{{-157.27, -175.66}, {-157.27, -170.01999999999998`}}]}}, {GrayLevel[0], AbsoluteThickness[0.55], InsetBox[ StyleBox["\<\"C\"\>", StripOnInput->False, ScriptSizeMultipliers->0.8, ScriptMinSize->8, FontSize->Scaled[0.03171480521028943], FontWeight->Plain], {-18.5, -196.94}], LineBox[{{-18.5, -212.57999999999998`}, {-18.5, -224.195}}], {GrayLevel[0], InsetBox[ StyleBox["\<\"O\"\>", StripOnInput->False, ScriptSizeMultipliers->0.8, ScriptMinSize->8, FontSize->Scaled[0.03171480521028943], FontWeight->Plain], {-18.5, -251.45}], LineBox[{{-18.5, -224.195}, {-18.5, -234.63959999999997`}}]}}, {GrayLevel[0], AbsoluteThickness[0.55], InsetBox[ StyleBox["\<\"C\"\>", StripOnInput->False, ScriptSizeMultipliers->0.8, ScriptMinSize->8, FontSize->Scaled[0.03171480521028943], FontWeight->Plain], {-18.5, -196.94}], LineBox[{{-18.5, -181.3}, {-18.5, -175.66}}], {GrayLevel[0], InsetBox[ StyleBox["\<\"H\"\>", StripOnInput->False, ScriptSizeMultipliers->0.8, ScriptMinSize->8, FontSize->Scaled[0.03171480521028943], FontWeight->Plain], {-18.5, -154.38}], LineBox[{{-18.5, -175.66}, {-18.5, -170.01999999999998`}}]}}, {GrayLevel[0], AbsoluteThickness[0.55], InsetBox[ StyleBox["\<\"C\"\>", StripOnInput->False, ScriptSizeMultipliers->0.8, ScriptMinSize->8, FontSize->Scaled[0.03171480521028943], FontWeight->Plain], {23.62, -148.55}], LineBox[{{13.35157186231852, -160.34699044592608`}, { 2.5600000000000005`, -172.745}}], {GrayLevel[0], InsetBox[ StyleBox["\<\"C\"\>", StripOnInput->False, ScriptSizeMultipliers->0.8, ScriptMinSize->8, FontSize->Scaled[0.03171480521028943], FontWeight->Plain], {-18.5, -196.94}], LineBox[{{ 2.5600000000000005`, -172.745}, {-8.23157186231852, \ -185.14300955407393`}}]}}, {GrayLevel[0], AbsoluteThickness[0.55], InsetBox[ StyleBox["\<\"C\"\>", StripOnInput->False, ScriptSizeMultipliers->0.8, ScriptMinSize->8, FontSize->Scaled[0.03171480521028943], FontWeight->Plain], {23.62, -148.55}], LineBox[{{ 8.955670081308964, -143.11244282459643`}, {-32.205, \ -127.85000000000001`}}], {GrayLevel[0], InsetBox[ StyleBox["\<\"O\"\>", StripOnInput->False, ScriptSizeMultipliers->0.8, ScriptMinSize->8, FontSize->Scaled[0.03171480521028943], FontWeight->Plain], {-88.03, -107.15}], LineBox[{{-32.205, -127.85000000000001`}, {-72.26828314161357, \ -112.99447002182892`}}]}}, {GrayLevel[0], AbsoluteThickness[0.55], InsetBox[ StyleBox["\<\"C\"\>", StripOnInput->False, ScriptSizeMultipliers->0.8, ScriptMinSize->8, FontSize->Scaled[0.03171480521028943], FontWeight->Plain], {23.62, -148.55}], LineBox[{{23.62, -164.19}, {23.62, -183.97}}], {GrayLevel[0], InsetBox[ StyleBox["\<\"H\"\>", StripOnInput->False, ScriptSizeMultipliers->0.8, ScriptMinSize->8, FontSize->Scaled[0.03171480521028943], FontWeight->Plain], {23.62, -219.39}], LineBox[{{23.62, -183.97}, {23.62, -203.75}}]}}, {GrayLevel[0], AbsoluteThickness[0.55], InsetBox[ StyleBox["\<\"O\"\>", StripOnInput->False, ScriptSizeMultipliers->0.8, ScriptMinSize->8, FontSize->Scaled[0.03171480521028943], FontWeight->Plain], {-88.03, -107.15}], LineBox[{{-103.80171483608005`, -112.96743580019347`}, {-144.15, \ -127.85000000000001`}}], {GrayLevel[0], InsetBox[ StyleBox["\<\"C\"\>", StripOnInput->False, ScriptSizeMultipliers->0.8, ScriptMinSize->8, FontSize->Scaled[0.03171480521028943], FontWeight->Plain], {-200.27, -148.55}], LineBox[{{-144.15, -127.85000000000001`}, {-185.5963681984788, \ -143.13759482730777`}}]}}, {GrayLevel[0], AbsoluteThickness[0.55], InsetBox[ StyleBox["\<\"C\"\>", StripOnInput->False, ScriptSizeMultipliers->0.8, ScriptMinSize->8, FontSize->Scaled[0.03171480521028943], FontWeight->Plain], {-200.27, -148.55}], LineBox[{{-189.8811491960693, -160.24108117214436`}, {-178.77, \ -172.745}}], {GrayLevel[0], InsetBox[ StyleBox["\<\"C\"\>", StripOnInput->False, ScriptSizeMultipliers->0.8, ScriptMinSize->8, FontSize->Scaled[0.03171480521028943], FontWeight->Plain], {-157.27, -196.94}], LineBox[{{-178.77, -172.745}, {-167.65885080393073`, \ -185.24891882785565`}}]}}, {GrayLevel[0], AbsoluteThickness[0.55], InsetBox[ StyleBox["\<\"C\"\>", StripOnInput->False, ScriptSizeMultipliers->0.8, ScriptMinSize->8, FontSize->Scaled[0.03171480521028943], FontWeight->Plain], {-200.27, -148.55}], LineBox[{{-200.27, -132.91000000000003`}, {-200.27, -115.465}}], {GrayLevel[0], InsetBox[ StyleBox["\<\"C\"\>", StripOnInput->False, ScriptSizeMultipliers->0.8, ScriptMinSize->8, FontSize->Scaled[0.03171480521028943], FontWeight->Plain], {-200.27, -82.38}], LineBox[{{-200.27, -115.465}, {-200.27, -98.02}}]}}, {GrayLevel[0], AbsoluteThickness[0.55], InsetBox[ StyleBox["\<\"C\"\>", StripOnInput->False, ScriptSizeMultipliers->0.8, ScriptMinSize->8, FontSize->Scaled[0.03171480521028943], FontWeight->Plain], {-200.27, -148.55}], LineBox[{{-200.27, -164.19}, {-200.27, -183.97}}], {GrayLevel[0], InsetBox[ StyleBox["\<\"H\"\>", StripOnInput->False, ScriptSizeMultipliers->0.8, ScriptMinSize->8, FontSize->Scaled[0.03171480521028943], FontWeight->Plain], {-200.27, -219.39}], LineBox[{{-200.27, -183.97}, {-200.27, -203.75}}]}}, {GrayLevel[0], AbsoluteThickness[0.55], InsetBox[ StyleBox["\<\"O\"\>", StripOnInput->False, ScriptSizeMultipliers->0.8, ScriptMinSize->8, FontSize->Scaled[0.03171480521028943], FontWeight->Plain], {-18.5, -251.45}], LineBox[{{-6.048929700282814, -262.74426387824815`}, \ {-0.3100000000000005, -267.95}}], {GrayLevel[0], InsetBox[ StyleBox["\<\"H\"\>", StripOnInput->False, ScriptSizeMultipliers->0.8, ScriptMinSize->8, FontSize->Scaled[0.03171480521028943], FontWeight->Plain], {17.88, -284.45}], LineBox[{{-0.3100000000000005, -267.95}, { 6.295817619594015, -273.94208305240795`}}]}}, {GrayLevel[0], AbsoluteThickness[0.55], InsetBox[ StyleBox["\<\"O\"\>", StripOnInput->False, ScriptSizeMultipliers->0.8, ScriptMinSize->8, FontSize->Scaled[0.03171480521028943], FontWeight->Plain], {-157.27, -251.45}], LineBox[{{-146.24462033087326`, -264.1397813736725}, \ {-141.14000000000001`, -270.015}}], {GrayLevel[0], InsetBox[ StyleBox["\<\"H\"\>", StripOnInput->False, ScriptSizeMultipliers->0.8, ScriptMinSize->8, FontSize->Scaled[0.03171480521028943], FontWeight->Plain], {-125.01, -288.58}], LineBox[{{-141.14000000000001`, -270.015}, {-135.26775341604855`, \ -276.77372646193794`}}]}}, {GrayLevel[0], AbsoluteThickness[0.55], InsetBox[ StyleBox["\<\"C\"\>", StripOnInput->False, ScriptSizeMultipliers->0.8, ScriptMinSize->8, FontSize->Scaled[0.03171480521028943], FontWeight->Plain], {-200.27, -82.38}], LineBox[{{-213.8076841902569, -74.54796918003584}, {-236.05, \ -61.67999999999999}}], {GrayLevel[0], InsetBox[ StyleBox["\<\"O\"\>", StripOnInput->False, ScriptSizeMultipliers->0.8, ScriptMinSize->8, FontSize->Scaled[0.03171480521028943], FontWeight->Plain], {-271.83, -40.98}], LineBox[{{-236.05, -61.67999999999999}, {-257.2792400056333, \ -49.39813113145304}}]}}, {GrayLevel[0], AbsoluteThickness[0.55], InsetBox[ StyleBox["\<\"C\"\>", StripOnInput->False, ScriptSizeMultipliers->0.8, ScriptMinSize->8, FontSize->Scaled[0.03171480521028943], FontWeight->Plain], {-200.27, -82.38}], LineBox[{{-186.72263653971635`, -74.56472372369531}, \ {-164.53500000000003`, -61.765}}], {GrayLevel[0], InsetBox[ StyleBox["\<\"H\"\>", StripOnInput->False, ScriptSizeMultipliers->0.8, ScriptMinSize->8, FontSize->Scaled[0.03171480521028943], FontWeight->Plain], {-128.8, -41.15}], LineBox[{{-164.53500000000003`, -61.765}, {-142.34736346028367`, \ -48.96527627630468}}]}}, {GrayLevel[0], AbsoluteThickness[0.55], InsetBox[ StyleBox["\<\"C\"\>", StripOnInput->False, ScriptSizeMultipliers->0.8, ScriptMinSize->8, FontSize->Scaled[0.03171480521028943], FontWeight->Plain], {-200.27, -82.38}], LineBox[{{-200.26052121386203`, -66.74000287235917}, {-200.245, \ -41.129999999999995`}}], {GrayLevel[0], InsetBox[ StyleBox["\<\"H\"\>", StripOnInput->False, ScriptSizeMultipliers->0.8, ScriptMinSize->8, FontSize->Scaled[0.03171480521028943], FontWeight->Plain], {-200.22, 0.12}], LineBox[{{-200.245, -41.129999999999995`}, {-200.22947878613797`, \ -15.519997127640831`}}]}}, {GrayLevel[0], AbsoluteThickness[0.55], InsetBox[ StyleBox["\<\"O\"\>", StripOnInput->False, ScriptSizeMultipliers->0.8, ScriptMinSize->8, FontSize->Scaled[0.03171480521028943], FontWeight->Plain], {-271.83, -40.98}], LineBox[{{-286.2507774646862, -49.61890765513776}, \ {-294.16499999999996`, -54.36}}], {GrayLevel[0], InsetBox[ StyleBox["\<\"H\"\>", StripOnInput->False, ScriptSizeMultipliers->0.8, ScriptMinSize->8, FontSize->Scaled[0.03171480521028943], FontWeight->Plain], {-316.5, -67.74}], LineBox[{{-294.16499999999996`, -54.36}, {-303.0832484921422, \ -59.702563905299435`}}]}}}, {}, {}}, ImageSize->{{0., 315.3101503759398}, {0., 289.3584586466165}}, PlotRange->{{-335.49, 335.49}, {-309.86, 305.8948}}]], "Output", CellChangeTimes->CompressedData[" 1:eJxTTMoPSmVkYGDQAeImnw5zvcWvHK/wO6aC6La1n/NB9Nn8600g+p9e8AUQ XXvjUL4+kNYJUikH0S7mf/caAOk/czneg+j+A/dNXIH0hKx8LxAdtuxGCIj+ qHswHkS7fcxLA9FTklWnugFpmbbouSC6rmLaYhCdpvNzOYiWs7y6CURLRize AaJ3XZq4F0SHrOY+AqL/bXU+DaIdDq+9DKKlVG7fANFKRUFx7iB/vOvNAtH3 ilLzQfS8v9tqQPSfPX8bQHSks0MHiBZbeXgDiG4unrEDRN9Ys+EYiP7BbPcS RL8SEE30AdLWNStbQPS0J3+6QLTmX6FJIFqtk2sxiG5bM2ETiO7Pys32BdIL XtytANFJKg2Ls9a8cgQA5zu65Q== "]] }, 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}, {3.575215689331786*^9, 3.575215690018187*^9}, {3.575215722871845*^9, 3.5752157627143145`*^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"}, {"0.`", "4.048885330083897`", "4.65062406294164`", "4.016339785311768`", "7.90729967177603`", "12.318284797374773`", "9.868647706553864`", "7.891841619426872`", "11.985550841655096`", "14.283338843751086`", "2.381048390912964`", "2.4356552091302617`", "6.369019385148168`", "7.013892448128533`", "6.237020188911692`", "9.732135652537668`", "10.158093465928431`", "13.911023851913768`", "15.900822873710926`", "10.053404371065279`", "13.308715483337927`", "7.068416961976282`", "12.421661655035551`", "17.46882415305961`", "6.948347535144432`", "7.811896481003718`", "9.963706586107461`", "2.078699207890407`", "15.458067447420973`", "8.949654590456383`", "13.927339898291436`", "15.487861043703182`"}, {"4.048885330083897`", "0.`", "2.5265548734278283`", "4.376062724893251`", "3.9434108822508764`", "8.84618307328725`", "6.558816754528244`", "4.579159293923219`", "8.713921395287024`", "10.841404634521309`", "4.981851707967657`", "2.38106393597917`", "2.392402667554926`", "4.04547559792566`", "6.5579780214299825`", "6.398091040353959`", "7.6899538467170325`", "10.826617166736497`", "12.805889426591172`", "6.536994046606738`", "9.527877413242699`", "4.767061843965658`", "9.64989070722334`", "14.329972599048979`", "8.168929394617964`", "7.189731939370573`", "5.955881014600096`", "5.902943339931949`", "12.27055578408919`", "6.932127569362735`", "10.464374101124758`", "11.813666252715192`"}, {"4.65062406294164`", "2.5265548734278283`", "0.`", "2.526447459022331`", "4.157118224168332`", "10.62155624446451`", "8.402679886908603`", "6.7329721487231815`", "10.648303402885642`", "12.45881161604338`", "4.250617847915998`", "4.250744364077769`", "4.054439843736207`", "2.3811659187682506`", "4.260406008719348`", "8.264212388733277`", "9.770690556592578`", "12.78452534356672`", "14.613610033338308`", "7.840537054748222`", "10.901072195029151`", "7.25053342137414`", "11.835717831409287`", "16.018421849306648`", "6.071425460576611`", "4.67150591020225`", "6.164963674167905`", "6.729322199890027`", "14.180894918841885`", "8.937356488795768`", "11.811143568160585`", "13.254135100558305`"}, {"4.016339785311768`", "4.376062724893251`", "2.526447459022331`", "0.`", "6.670840658458218`", "13.007736145863467`", "10.653451576815417`", "8.927551395386498`", "12.959756882681294`", "14.833994270400172`", "2.381064479293916`", "4.981959189109449`", "6.4143616114399915`", "4.429862684690815`", "2.3923937471027235`", "10.524518503337358`", "11.692636835661188`", "15.05379444291287`", "16.882724319324982`", "10.12521149763314`", "13.387962357165035`", "9.044026630143842`", "13.978675197759888`", "18.296171270719256`", "3.7958009818690996`", "3.7956787116195656`", "8.642661363349`", "5.872596072375387`", "16.51522823683553`", "10.610973780076877`", "14.134068827267898`", "15.724918959742066`"}, {"7.90729967177603`", "3.9434108822508764`", "4.157118224168332`", "6.670840658458218`", "0.`", "7.227542705634889`", "5.649391245063372`", "4.579147836569571`", "7.541602717278203`", "8.99524475575567`", "8.25676841438122`", "6.262997961220319`", "2.3923929930884262`", "2.9402180931038386`", "7.9970012562441735`", "5.532682254424939`", "7.8518078352337435`", "9.6790106448131`", "11.425970266931973`", "4.880376183142227`", "7.0455902917206`", "6.208127371365104`", "9.195774962100316`", "12.741350274147749`", "9.951281080333175`", "7.591673428773486`", "2.0786253867647893`", "9.834611922121272`", "10.842352311288842`", "7.7385820155445`", "8.451856506464166`", "9.435518956756251`"}, {"12.318284797374773`", "8.84618307328725`", "10.62155624446451`", "13.007736145863467`", "7.227542705634889`", "0.`", "2.8780713682773715`", "4.535837766804135`", "2.878111360015274`", "4.737914490887502`", "13.763028754017562`", "9.923471108025037`", "6.650073840224871`", "10.112683504028915`", "14.823670292251496`", "4.358027787442249`", "4.463766341836413`", "2.6474630868316593`", "6.60273535949243`", "4.1238421363827245`", "2.103297988240344`", "5.881475752840016`", "4.167491985860045`", "8.128593616047905`", "16.66502572619805`", "14.705787022962102`", "6.50914156458705`", "13.5304461938203`", "3.619642968444339`", "6.039170536625014`", "6.103971822782167`", "4.655960933474954`"}, {"9.868647706553864`", "6.558816754528244`", "8.402679886908603`", "10.653451576815417`", "5.649391245063372`", "2.8780713682773715`", "0.`", "2.878010424473406`", "4.535887674055477`", "7.008657319984899`", "11.294838665990161`", "7.556187458265709`", "4.639202350225632`", "8.235187073066474`", "12.547146640919213`", "4.450336624269893`", "2.6474528459908484`", "4.463826650206087`", "8.949411964889515`", "2.103422012042704`", "4.089786406856992`", "4.134225901723731`", "5.578566183268643`", "10.58390787092652`", "14.311368369774677`", "12.610731403417704`", "5.6499487977799845`", "11.104490412520084`", "6.0390674251157295`", "3.619728435893543`", "7.879273813930673`", "7.2741013749309875`"}, {"7.891841619426872`", "4.579159293923219`", "6.7329721487231815`", "8.927551395386498`", "4.579147836569571`", "4.535837766804135`", "2.878010424473406`", "0.`", "4.314971093199559`", "6.8285696584450735`", "9.422489219524579`", "5.4819150169616835`", "2.7779491856034557`", "6.969571517426743`", "10.98108916153957`", "2.676447095635219`", "4.463899786481759`", "6.463527533779998`", "8.688495099891883`", "4.123799784307308`", "5.716938758671394`", "2.1032196916775923`", "5.263062854162625`", "10.336223958162265`", "12.699399896304953`", "11.243916247426874`", "5.27377934275857`", "9.154818509254696`", "7.795232769323795`", "4.84078768453587`", "7.1019804664394695`", "7.800723949896765`"}, {"11.985550841655096`", "8.713921395287024`", "10.648303402885642`", "12.959756882681294`", "7.541602717278203`", "2.878111360015274`", "4.535887674055477`", "4.314971093199559`", "0.`", "2.8779876303509804`", "13.5550573825586`", "9.57691515354066`", "6.660366242690919`", "10.355511951774034`", "14.87390652576082`", "2.6493745213838977`", "6.010333049207196`", "4.463801408996071`", "4.51587601605289`", "6.13638427138266`", "4.0898838543941824`", "5.349756105400197`", "2.1032354189468667`", "6.193084208360012`", "16.667016618248635`", "14.884269454956742`", "7.072320278718109`", "13.081165656978364`", "4.840723007126438`", "7.427717034952066`", "4.091066770747071`", "4.091634462535535`"}, {"14.283338843751086`", "10.841404634521309`", "12.45881161604338`", "14.833994270400172`", "8.99524475575567`", "4.737914490887502`", "7.008657319984899`", "6.8285696584450735`", "2.8779876303509804`", "0.`", "15.661398628286948`", "11.948585426270592`", "8.695064652169583`", "11.786367218482365`", "16.53919083008762`", "4.551544618154984`", "8.709535375736436`", "6.101106184507364`", "2.6494159094219256`", "8.189487585744136`", "4.831842882084664`", "8.051398872455295`", "4.0072845160639226`", "3.860730425433791`", "18.38905013994635`", "16.310728985673567`", "8.031291888903684`", "15.483904794453565`", "5.620005253697912`", "10.193415425063565`", "2.1033310254369852`", "2.1033318999806716`"}, {"2.381048390912964`", "4.981851707967657`", "4.250617847915998`", "2.381064479293916`", "8.25676841438122`", "13.763028754017562`", "11.294838665990161`", "9.422489219524579`", "13.5550573825586`", "15.661398628286948`", "0.`", "4.376060478123466`", "7.347318538022081`", "6.5198150876771805`", "4.1339366337433106`", "11.164976482896378`", "11.874722469547937`", "15.564071725655795`", "17.473480072643035`", "11.099299519688984`", "14.470015202704113`", "8.992370695264183`", "14.245425288245341`", "18.967703393207827`", "4.587905678783409`", "5.934743767238481`", "10.321740208244048`", "3.758575933409852`", "17.097238416230997`", "10.634362612309825`", "15.098112738546709`", "16.74445310538162`"}, {"2.4356552091302617`", "2.38106393597917`", "4.250744364077769`", "4.981959189109449`", "6.262997961220319`", "9.923471108025037`", "7.556187458265709`", "5.4819150169616835`", "9.57691515354066`", "11.948585426270592`", "4.376060478123466`", "0.`", "4.308502735613302`", "6.265038696065619`", "7.373837108709646`", "7.404550709310485`", "7.964119453905378`", "11.525614943136924`", "13.575255876210784`", "7.962873623871931`", "10.99658179750922`", "4.668378470622942`", "10.03243625218625`", "15.178032227015041`", "8.565785892692437`", "8.515090336229783`", "8.204620153077244`", "3.805888649807968`", "13.043385662601612`", "6.967913158933564`", "11.7339191974334`", "13.140279669233985`"}, {"6.369019385148168`", "2.392402667554926`", "4.054439843736207`", "6.4143616114399915`", "2.3923929930884262`", "6.650073840224871`", "4.639202350225632`", "2.7779491856034557`", "6.660366242690919`", "8.695064652169583`", "7.347318538022081`", "4.308502735613302`", "0.`", "4.237169113217709`", "8.312799328915425`", "4.473922545048711`", "6.383546333418033`", "8.84295598403651`", "10.83330204771819`", "4.643776694981638`", "7.178460277578987`", "3.9576601805713922`", "7.900558241723622`", "12.337758426030227`", "10.10961374640072`", "8.474259301379412`", "4.014320982032385`", "8.08181357284856`", "10.181099397874409`", "6.1304298244897035`", "8.424177345695202`", "9.507717983596015`"}, {"7.013892448128533`", "4.04547559792566`", "2.3811659187682506`", "4.429862684690815`", "2.9402180931038386`", "10.112683504028915`", "8.235187073066474`", "6.969571517426743`", "10.355511951774034`", "11.786367218482365`", "6.5198150876771805`", "6.265038696065619`", "4.237169113217709`", "0.`", "5.225743071492496`", "8.119894086737938`", "10.083693531940801`", "12.482378008422103`", "14.163435777425642`", "7.282814917591803`", "9.93436128409439`", "8.104008844835915`", "11.883775411829896`", "15.436969850155286`", "7.208763890085109`", "4.652714657205712`", "4.519612066534697`", "9.090403374073627`", "13.730015291345586`", "9.535253953586794`", "11.017617285006343`", "12.292424564458441`"}, {"6.237020188911692`", "6.5579780214299825`", "4.260406008719348`", "2.3923937471027235`", "7.9970012562441735`", "14.823670292251496`", "12.547146640919213`", "10.98108916153957`", "14.87390652576082`", "16.53919083008762`", "4.1339366337433106`", "7.373837108709646`", "8.312799328915425`", "5.225743071492496`", "0.`", "12.42927364070604`", "13.745267655804922`", "16.976550178947996`", "18.70223974382042`", "11.750713718732454`", "14.953716896326679`", "11.30785684095862`", "16.0526023980888`", "20.027062832755544`", "1.9843259547651582`", "1.9840867868184278`", "9.742074293194344`", "7.885724623867462`", "18.39602138859727`", "12.670350029858035`", "15.684115474814838`", "17.299646220189963`"}, {"9.732135652537668`", "6.398091040353959`", "8.264212388733277`", "10.524518503337358`", "5.532682254424939`", "4.358027787442249`", "4.450336624269893`", "2.676447095635219`", "2.6493745213838977`", "4.551544618154984`", "11.164976482896378`", "7.404550709310485`", "4.473922545048711`", "8.119894086737938`", "12.42927364070604`", "0.`", "6.3050338243016935`", "6.499090946690327`", "6.414573828257929`", "5.754610967036433`", "5.259959360354547`", "3.957985706985482`", "3.9665587234304547`", "7.953946636229179`", "14.196455082108795`", "12.505781421698716`", "5.5762514181423635`", "10.975885375796551`", "7.273382154346365`", "7.175074663397455`", "4.5467681174395205`", "5.917927758696327`"}, {"10.158093465928431`", "7.6899538467170325`", "9.770690556592578`", "11.692636835661188`", "7.8518078352337435`", "4.463766341836413`", "2.6474528459908484`", "4.463899786481759`", "6.010333049207196`", "8.709535375736436`", "11.874722469547937`", "7.964119453905378`", "6.383546333418033`", "10.083693531940801`", "13.745267655804922`", "6.3050338243016935`", "0.`", "4.522404109586003`", "10.132232075331682`", "4.021629758436481`", "6.112157479687566`", "4.480949199492058`", "6.185080297228263`", "11.849249785217953`", "15.330634333692545`", "14.093839081423434`", "8.169813159334687`", "10.980925830801201`", "6.32808988876409`", "1.8161408924536293`", "9.891639720553275`", "9.060976856665263`"}, {"13.911023851913768`", "10.826617166736497`", "12.78452534356672`", "15.05379444291287`", "9.6790106448131`", "2.6474630868316593`", "4.463826650206087`", "6.463527533779998`", "4.463801408996071`", "6.101106184507364`", "15.564071725655795`", "11.525614943136924`", "8.84295598403651`", "12.482378008422103`", "16.976550178947996`", "6.499090946690327`", "4.522404109586003`", "0.`", "7.1089906936978915`", "5.82254952901673`", "4.07711772043571`", "7.184453105109337`", "4.61051177189823`", "8.589484345264761`", "18.748780251655376`", "16.985539893629984`", "9.062380784686487`", "14.862128062284265`", "1.8159478375474603`", "6.328272139365195`", "7.925661443963716`", "5.846645266142121`"}, {"15.900822873710926`", "12.805889426591172`", "14.613610033338308`", "16.882724319324982`", "11.425970266931973`", "6.60273535949243`", "8.949411964889515`", "8.688495099891883`", "4.51587601605289`", "2.6494159094219256`", "17.473480072643035`", "13.575255876210784`", "10.83330204771819`", "14.163435777425642`", "18.70223974382042`", "6.414573828257929`", "10.132232075331682`", "7.1089906936978915`", "0.`", "10.417183654573732`", "7.074518528515204`", "9.440525018509218`", "4.370824703567718`", "1.780217229634348`", "20.484225457080715`", "18.612463026605415`", "10.619464461271201`", "16.861519474309855`", "6.2252209105568195`", "11.703805569262881`", "3.8927176717686165`", "3.893150942934612`"}, {"10.053404371065279`", "6.536994046606738`", "7.840537054748222`", "10.12521149763314`", "4.880376183142227`", "4.1238421363827245`", "2.103422012042704`", "4.123799784307308`", "6.13638427138266`", "8.189487585744136`", "11.099299519688984`", "7.962873623871931`", "4.643776694981638`", "7.282814917591803`", "11.750713718732454`", "5.754610967036433`", "4.021629758436481`", "5.82254952901673`", "10.417183654573732`", "0.`", "4.3537839432957295`", "5.636330795787941`", "7.5027441109007516`", "11.928871643862248`", "13.565208835670832`", "11.58218172056206`", "4.679838751372171`", "11.520552592845455`", "7.288163646714844`", "4.415306944542052`", "8.82059196749643`", "8.087079458186421`"}, {"13.308715483337927`", "9.527877413242699`", "10.901072195029151`", "13.387962357165035`", "7.0455902917206`", "2.103297988240344`", "4.089786406856992`", "5.716938758671394`", "4.0898838543941824`", "4.831842882084664`", "14.470015202704113`", "10.99658179750922`", "7.178460277578987`", "9.93436128409439`", "14.953716896326679`", "5.259959360354547`", "6.112157479687566`", "4.07711772043571`", "7.074518528515204`", "4.3537839432957295`", "0.`", "7.449018759725457`", "5.805934784130888`", "8.304253960920482`", "16.874648195200734`", "14.555512787066839`", "5.769720816766413`", "14.734729076016574`", "4.485088642497212`", "7.507434663719091`", "5.900570630856526`", "3.999559692222604`"}, {"7.068416961976282`", "4.767061843965658`", "7.25053342137414`", "9.044026630143842`", "6.208127371365104`", "5.881475752840016`", "4.134225901723731`", "2.1032196916775923`", "5.349756105400197`", "8.051398872455295`", "8.992370695264183`", "4.668378470622942`", "3.9576601805713922`", "8.104008844835915`", "11.30785684095862`", "3.957985706985482`", "4.480949199492058`", "7.184453105109337`", "9.440525018509218`", "5.636330795787941`", "7.449018759725457`", "0.`", "5.505712752534734`", "11.159541435201547`", "12.82643074080333`", "11.918620404441928`", "7.246332861974508`", "7.921541994415919`", "8.599319837552398`", "4.513482235230483`", "8.44380429882706`", "9.273156047444035`"}, {"12.421661655035551`", "9.64989070722334`", "11.835717831409287`", "13.978675197759888`", "9.195774962100316`", "4.167491985860045`", "5.578566183268643`", "5.263062854162625`", "2.1032354189468667`", "4.0072845160639226`", "14.245425288245341`", "10.03243625218625`", "7.900558241723622`", "11.883775411829896`", "16.0526023980888`", "3.9665587234304547`", "6.185080297228263`", "4.61051177189823`", "4.370824703567718`", "7.5027441109007516`", "5.805934784130888`", "5.505712752534734`", "0.`", "6.147575915070466`", "17.743480329345424`", "16.275159075793162`", "8.99485369154013`", "13.212858817206707`", "4.89040100857336`", "7.636310208430707`", "5.4159335207498405`", "5.416775853557426`"}, {"17.46882415305961`", "14.329972599048979`", "16.018421849306648`", "18.296171270719256`", "12.741350274147749`", "8.128593616047905`", "10.58390787092652`", "10.336223958162265`", "6.193084208360012`", "3.860730425433791`", "18.967703393207827`", "15.178032227015041`", "12.337758426030227`", "15.436969850155286`", "20.027062832755544`", "7.953946636229179`", "11.849249785217953`", "8.589484345264761`", "1.780217229634348`", "11.928871643862248`", "8.304253960920482`", "11.159541435201547`", "6.147575915070466`", "0.`", "21.821286810746187`", "19.8452222147187`", "11.787920008655611`", "18.46030089514727`", "7.4832549791713525`", "13.440678004639894`", "4.6076518893576255`", "4.6078461503397845`"}, {"6.948347535144432`", "8.168929394617964`", "6.071425460576611`", "3.7958009818690996`", "9.951281080333175`", "16.66502572619805`", "14.311368369774677`", "12.699399896304953`", "16.667016618248635`", "18.38905013994635`", "4.587905678783409`", "8.565785892692437`", "10.10961374640072`", "7.208763890085109`", "1.9843259547651582`", "14.196455082108795`", "15.330634333692545`", "18.748780251655376`", "20.484225457080715`", "13.565208835670832`", "16.874648195200734`", "12.82643074080333`", "17.743480329345424`", "21.821286810746187`", "0.`", "3.4366993624253745`", "11.722730540622392`", "8.209829456492244`", "20.208645157698225`", "14.139667862288631`", "17.522137690647984`", "19.21489093902512`"}, {"7.811896481003718`", "7.189731939370573`", "4.67150591020225`", "3.7956787116195656`", "7.591673428773486`", "14.705787022962102`", "12.610731403417704`", "11.243916247426874`", "14.884269454956742`", "16.310728985673567`", "5.934743767238481`", "8.515090336229783`", "8.474259301379412`", "4.652714657205712`", "1.9840867868184278`", "12.505781421698716`", "14.093839081423434`", "16.985539893629984`", "18.612463026605415`", "11.58218172056206`", "14.555512787066839`", "11.918620404441928`", "16.275159075793162`", "19.8452222147187`", "3.4366993624253745`", "0.`", "9.043376415972014`", "9.620715745999906`", "18.315587940156966`", "13.167387749221504`", "15.36484616141925`", "16.887101040228316`"}, {"9.963706586107461`", "5.955881014600096`", "6.164963674167905`", "8.642661363349`", "2.0786253867647893`", "6.50914156458705`", "5.6499487977799845`", "5.27377934275857`", "7.072320278718109`", "8.031291888903684`", "10.321740208244048`", "8.204620153077244`", "4.014320982032385`", "4.519612066534697`", "9.742074293194344`", "5.5762514181423635`", "8.169813159334687`", "9.062380784686487`", "10.619464461271201`", "4.679838751372171`", "5.769720816766413`", "7.246332861974508`", "8.99485369154013`", "11.787920008655611`", "11.722730540622392`", "9.043376415972014`", "0.`", "11.858601696747755`", "9.98794643222413`", "8.437285795885291`", "7.499042930809064`", "8.093615889490351`"}, {"2.078699207890407`", "5.902943339931949`", "6.729322199890027`", "5.872596072375387`", "9.834611922121272`", "13.5304461938203`", "11.104490412520084`", "9.154818509254696`", "13.081165656978364`", "15.483904794453565`", "3.758575933409852`", "3.805888649807968`", "8.08181357284856`", "9.090403374073627`", "7.885724623867462`", "10.975885375796551`", "10.980925830801201`", "14.862128062284265`", "16.861519474309855`", "11.520552592845455`", "14.734729076016574`", "7.921541994415919`", "13.212858817206707`", "18.46030089514727`", "8.209829456492244`", "9.620715745999906`", "11.858601696747755`", "0.`", "16.42525179801926`", "9.702844522925632`", "15.239832029573563`", "16.807622985528788`"}, {"15.458067447420973`", "12.27055578408919`", "14.180894918841885`", "16.51522823683553`", "10.842352311288842`", "3.619642968444339`", "6.0390674251157295`", "7.795232769323795`", "4.840723007126438`", "5.620005253697912`", "17.097238416230997`", "13.043385662601612`", "10.181099397874409`", "13.730015291345586`", "18.39602138859727`", "7.273382154346365`", "6.32808988876409`", "1.8159478375474603`", "6.2252209105568195`", "7.288163646714844`", "4.485088642497212`", "8.599319837552398`", "4.89040100857336`", "7.4832549791713525`", "20.208645157698225`", "18.315587940156966`", "9.98794643222413`", "16.42525179801926`", "0.`", "8.138371752160925`", "7.631533552610137`", "5.067169077283166`"}, {"8.949654590456383`", "6.932127569362735`", "8.937356488795768`", "10.610973780076877`", "7.7385820155445`", "6.039170536625014`", "3.619728435893543`", "4.84078768453587`", "7.427717034952066`", "10.193415425063565`", "10.634362612309825`", "6.967913158933564`", "6.1304298244897035`", "9.535253953586794`", "12.670350029858035`", "7.175074663397455`", "1.8161408924536293`", "6.328272139365195`", "11.703805569262881`", "4.415306944542052`", "7.507434663719091`", "4.513482235230483`", "7.636310208430707`", "13.440678004639894`", "14.139667862288631`", "13.167387749221504`", "8.437285795885291`", "9.702844522925632`", "8.138371752160925`", "0.`", "11.163847569711205`", "10.63094781106351`"}, {"13.927339898291436`", "10.464374101124758`", "11.811143568160585`", "14.134068827267898`", "8.451856506464166`", "6.103971822782167`", "7.879273813930673`", "7.1019804664394695`", "4.091066770747071`", "2.1033310254369852`", "15.098112738546709`", "11.7339191974334`", "8.424177345695202`", "11.017617285006343`", "15.684115474814838`", "4.5467681174395205`", "9.891639720553275`", "7.925661443963716`", "3.8927176717686165`", "8.82059196749643`", "5.900570630856526`", "8.44380429882706`", "5.4159335207498405`", "4.6076518893576255`", "17.522137690647984`", "15.36484616141925`", "7.499042930809064`", "15.239832029573563`", "7.631533552610137`", "11.163847569711205`", "0.`", "3.435591265511474`"}, {"15.487861043703182`", "11.813666252715192`", "13.254135100558305`", "15.724918959742066`", "9.435518956756251`", "4.655960933474954`", "7.2741013749309875`", "7.800723949896765`", "4.091634462535535`", "2.1033318999806716`", "16.74445310538162`", "13.140279669233985`", "9.507717983596015`", "12.292424564458441`", "17.299646220189963`", "5.917927758696327`", "9.060976856665263`", "5.846645266142121`", "3.893150942934612`", "8.087079458186421`", "3.999559692222604`", "9.273156047444035`", "5.416775853557426`", "4.6078461503397845`", "19.21489093902512`", "16.887101040228316`", "8.093615889490351`", "16.807622985528788`", "5.067169077283166`", "10.63094781106351`", "3.435591265511474`", "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->CompressedData[" 1:eJxTTMoPSmVkYGDQAWIpn05zvcWvHBf0O6aCaLm1X/JBdEr+jSYQnbgu5AKI FrlxOF8fSB8KVC0H0bfM/u01ANKT53K+B9FRDg9MXIG0RlaBF4hWUrsZAqI7 dA/Fg+g7H/LTQHTCY9WpbkB6c2vMXBAtWjF9MYg2WvNzOYjeZnFtE4jeEL5k B4gOujRpL4h+s4rnCIg+ZepyGkRfO7TuMojeqHznBojeWRgc5w6kc971ZYHo sqK0fBBt9nd7DYievOdfA4hWPezQAaLXrTiyAUT7f56xA0Tnrdl4DET3Mdu/ BNHbJogm+gBptj8rW0C03pO/XSD6wB/hSSB6bwf3YhAtu2biJhCtlpWX7Quy 78W9ChD9Q7BxcdaaV44AK/G7PQ== "]] }, 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[{ RowBox[{"dc", "[", RowBox[{"[", RowBox[{"i", ",", "j"}], "]"}], "]"}], "<", "3.24"}]}], ")"}]}], ")"}], ",", RowBox[{"dc", "[", RowBox[{"[", RowBox[{"i", ",", "j"}], "]"}], "]"}], ",", "0"}], "]"}], ",", RowBox[{"{", RowBox[{"i", ",", "1", ",", "n"}], "}"}], ",", RowBox[{"{", RowBox[{"j", ",", "1", ",", "n"}], "}"}]}], "]"}]}], ";"}], "\[IndentingNewLine]", RowBox[{"MatrixForm", "[", RowBox[{"Prepend", "[", RowBox[{"Dij", ",", "num1"}], "]"}], "]"}]}]}]], "Input", CellChangeTimes->{{3.567863535157673*^9, 3.5678635412104836`*^9}, { 3.5678638182825704`*^9, 3.567863827283786*^9}, {3.5679503910983553`*^9, 3.5679504266352177`*^9}, {3.5679504653700857`*^9, 3.5679505048069553`*^9}, 3.567950534915008*^9, {3.567951107623214*^9, 3.567951136046464*^9}, 3.567951302545556*^9, {3.5679562986474605`*^9, 3.567956305355472*^9}, { 3.5679563590975666`*^9, 3.567956370688387*^9}, {3.567956414930065*^9, 3.567956430467692*^9}, {3.567956484740187*^9, 3.567956500667815*^9}, { 3.5679565456270943`*^9, 3.5679565868267665`*^9}, {3.5679569267045636`*^9, 3.5679569448941956`*^9}, {3.567956976562251*^9, 3.567957000711094*^9}, { 3.5679570348595533`*^9, 3.5679570632672033`*^9}, {3.5679573263928657`*^9, 3.5679573286548696`*^9}, {3.5679573611029263`*^9, 3.5679573637393312`*^9}, {3.5679592820903006`*^9, 3.567959317127962*^9}, { 3.567959397655304*^9, 3.5679594004945087`*^9}, {3.5679594704762316`*^9, 3.5679594724574347`*^9}, {3.567959655898157*^9, 3.567959673073787*^9}, 3.5681143121223865`*^9, 3.568121866388855*^9, 3.568220668221574*^9, { 3.568220718968463*^9, 3.568220723742071*^9}, {3.568220862051914*^9, 3.5682208641111183`*^9}, {3.568220906761593*^9, 3.5682209083527956`*^9}, { 3.5682209451844606`*^9, 3.5682209651680956`*^9}, {3.568221147782016*^9, 3.5682211695908546`*^9}, {3.568221237279373*^9, 3.568221253612602*^9}, { 3.568221305420293*^9, 3.568221306247094*^9}, {3.5682215161142635`*^9, 3.568221546206716*^9}, 3.56822158247678*^9, {3.568277819185131*^9, 3.5682778284359474`*^9}, 3.56882183684053*^9, {3.5688219650415554`*^9, 3.568821965915157*^9}, {3.5688769979329815`*^9, 3.5688771619984694`*^9}, { 3.568877204212144*^9, 3.5688772091729527`*^9}, {3.568877282493081*^9, 3.5688772843338842`*^9}, {3.568877374112042*^9, 3.568877378074449*^9}, { 3.56887744125456*^9, 3.5688774664954042`*^9}, {3.56887758366721*^9, 3.568877604867647*^9}, {3.568877667220957*^9, 3.5688776710429635`*^9}, { 3.5688778111156096`*^9, 3.56887782262843*^9}, {3.569341165522358*^9, 3.569341165522358*^9}, 3.5693418217375107`*^9, {3.5693429625675144`*^9, 3.5693429673099227`*^9}, {3.569390288837522*^9, 3.5693903143123665`*^9}, { 3.569390381798085*^9, 3.5693904158685455`*^9}, {3.5693905284539433`*^9, 3.569390564349606*^9}, {3.569390610868888*^9, 3.569390611056088*^9}, { 3.569390743671921*^9, 3.569390761487152*^9}, {3.569390843761697*^9, 3.569390861608128*^9}, {3.5693909829451413`*^9, 3.5693909887171516`*^9}, 3.5703416480920715`*^9, {3.5703416810237293`*^9, 3.5703416997437625`*^9}, 3.570341888192094*^9, {3.5705964879252462`*^9, 3.570596509843285*^9}, { 3.5705965495921545`*^9, 3.5705966388087115`*^9}, 3.570968886604662*^9, { 3.5709689930904493`*^9, 3.5709689944320517`*^9}, {3.5709690501397495`*^9, 3.570969050904151*^9}, {3.5709692134876366`*^9, 3.5709692140804377`*^9}, { 3.5709722325921392`*^9, 3.5709722334033403`*^9}, {3.5709723694355793`*^9, 3.570972545481889*^9}, {3.570972790558319*^9, 3.5709728063299465`*^9}, { 3.570972844066413*^9, 3.570972866764453*^9}, {3.5709729633598228`*^9, 3.57097298434186*^9}, {3.5709731454589424`*^9, 3.5709731466289444`*^9}, 3.570973453029083*^9, {3.5709736099653587`*^9, 3.570973638404208*^9}, { 3.571113899355363*^9, 3.571113958604267*^9}, 3.57111399989754*^9, { 3.5711140388820086`*^9, 3.571114044841219*^9}, {3.571115985874628*^9, 3.5711159997742524`*^9}, {3.57313788224113*^9, 3.5731379093851776`*^9}, 3.573137959679666*^9, {3.5743387654349337`*^9, 3.574338770629743*^9}, { 3.5744830510823555`*^9, 3.574483052611158*^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"}, {"0.`", "0", "0", "0", "0", "0", "0", "0", "0", "0", "2.381048390912964`", "2.4356552091302617`", "0", "0", "0", "0", "0", "0", "0", "0", "0", "0", "0", "0", "0", "0", "0", "2.078699207890407`", "0", "0", "0", "0"}, {"0", "0.`", "2.5265548734278283`", "0", "0", "0", "0", "0", "0", "0", "0", "2.38106393597917`", "2.392402667554926`", "0", "0", "0", "0", "0", "0", "0", "0", "0", "0", "0", "0", "0", "0", "0", "0", "0", "0", "0"}, {"0", "2.5265548734278283`", "0.`", "2.526447459022331`", "0", "0", "0", "0", "0", "0", "0", "0", "0", "2.3811659187682506`", "0", "0", "0", "0", "0", "0", "0", "0", "0", "0", "0", "0", "0", "0", "0", "0", "0", "0"}, {"0", "0", "2.526447459022331`", "0.`", "0", "0", "0", "0", "0", "0", "2.381064479293916`", "0", "0", "0", "2.3923937471027235`", "0", "0", "0", "0", "0", "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.3923929930884262`", "2.9402180931038386`", "0", "0", "0", "0", "0", "0", "0", "0", "0", "0", "0", "0", "2.0786253867647893`", "0", "0", "0", "0", "0"}, {"0", "0", "0", "0", "0", "0.`", "2.8780713682773715`", "0", "2.878111360015274`", "0", "0", "0", "0", "0", "0", "0", "0", "2.6474630868316593`", "0", "0", "2.103297988240344`", "0", "0", "0", "0", "0", "0", "0", "0", "0", "0", "0"}, {"0", "0", "0", "0", "0", "2.8780713682773715`", "0.`", "2.878010424473406`", "0", "0", "0", "0", "0", "0", "0", "0", "2.6474528459908484`", "0", "0", "2.103422012042704`", "0", "0", "0", "0", "0", "0", "0", "0", "0", "0", "0", "0"}, {"0", "0", "0", "0", "0", "0", "2.878010424473406`", "0.`", "0", "0", "0", "0", "2.7779491856034557`", "0", "0", "2.676447095635219`", "0", "0", "0", "0", "0", "2.1032196916775923`", "0", "0", "0", "0", "0", "0", "0", "0", "0", "0"}, {"0", "0", "0", "0", "0", "2.878111360015274`", "0", "0", "0.`", "2.8779876303509804`", "0", "0", "0", "0", "0", "2.6493745213838977`", "0", "0", "0", "0", "0", "0", "2.1032354189468667`", "0", "0", "0", "0", "0", "0", "0", "0", "0"}, {"0", "0", "0", "0", "0", "0", "0", "0", "2.8779876303509804`", "0.`", "0", "0", "0", "0", "0", "0", "0", "0", "2.6494159094219256`", "0", "0", "0", "0", "0", "0", "0", "0", "0", "0", "0", "2.1033310254369852`", "2.1033318999806716`"}, {"2.381048390912964`", "0", "0", "2.381064479293916`", "0", "0", "0", "0", "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.4356552091302617`", "2.38106393597917`", "0", "0", "0", "0", "0", "0", "0", "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.392402667554926`", "0", "0", "2.3923929930884262`", "0", "0", "2.7779491856034557`", "0", "0", "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.3811659187682506`", "0", "2.9402180931038386`", "0", "0", "0", "0", "0", "0", "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.3923937471027235`", "0", "0", "0", "0", "0", "0", "0", "0", "0", "0", "0.`", "0", "0", "0", "0", "0", "0", "0", "0", "0", "1.9843259547651582`", "1.9840867868184278`", "0", "0", "0", "0", "0", "0"}, {"0", "0", "0", "0", "0", "0", "0", "2.676447095635219`", "2.6493745213838977`", "0", "0", "0", "0", "0", "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.6474528459908484`", "0", "0", "0", "0", "0", "0", "0", "0", "0", "0.`", "0", "0", "0", "0", "0", "0", "0", "0", "0", "0", "0", "0", "1.8161408924536293`", "0", "0"}, {"0", "0", "0", "0", "0", "2.6474630868316593`", "0", "0", "0", "0", "0", "0", "0", "0", "0", "0", "0", "0.`", "0", "0", "0", "0", "0", "0", "0", "0", "0", "0", "1.8159478375474603`", "0", "0", "0"}, {"0", "0", "0", "0", "0", "0", "0", "0", "0", "2.6494159094219256`", "0", "0", "0", "0", "0", "0", "0", "0", "0.`", "0", "0", "0", "0", "1.780217229634348`", "0", "0", "0", "0", "0", "0", "0", "0"}, {"0", "0", "0", "0", "0", "0", "2.103422012042704`", "0", "0", "0", "0", "0", "0", "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.103297988240344`", "0", "0", "0", "0", "0", "0", "0", "0", "0", "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.1032196916775923`", "0", "0", "0", "0", "0", "0", "0", "0", "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.1032354189468667`", "0", "0", "0", "0", "0", "0", "0", "0", "0", "0", "0", "0", "0", "0.`", "0", "0", "0", "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.780217229634348`", "0", "0", "0", "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.9843259547651582`", "0", "0", "0", "0", "0", "0", "0", "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.9840867868184278`", "0", "0", "0", "0", "0", "0", "0", "0", "0", "0", "0.`", "0", "0", "0", "0", "0", "0"}, {"0", "0", "0", "0", "2.0786253867647893`", "0", "0", "0", "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.078699207890407`", "0", "0", "0", "0", "0", "0", "0", "0", "0", "0", "0", "0", "0", "0", "0", "0", "0", "0", "0", "0", "0", "0", "0", "0", "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.8159478375474603`", "0", "0", "0", "0", "0", "0", "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.8161408924536293`", "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.1033310254369852`", "0", "0", "0", "0", "0", "0", "0", "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.1033318999806716`", "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->CompressedData[" 1:eJxTTMoPSmVkYGDQAeKa013meotfOZr1O6WC6Fc6X/NBtMH7G00gWkcv9AKI fhB+JF8fSPddVC0H0UVm//caAOk4Wa73IPqT/UMTVyB9ILPQC0TvVL0VAqIV dA/Hg+iSDwVpIPr7I7WpbkC6njV2LoheUz5jMYg+tfrXchDtZ3F9E4iuub5k B4iWDZq8F0Q3r+I9AqITTV1Pg+i8Q+svg2gP5bs3QHTrx+A4dyBtkdefBaKd PqXlg2jG2h01IDre5n8DiN5zyLEDRLuuOLoBRD/7NHMHiGZbs+kYiI5qtn8J ov0miCX6AOl5v1e1gOhfyf+6QHTEH5FJILqTg2cxiN6yetImEL03Mz/bF0if e36/AkRPu9a4OGvNK0cAIfK7ag== "]] }, 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["10"], "Output", CellChangeTimes->CompressedData[" 1:eJxTTMoPSmVkYGDQAeKa013meotfOTLxO6eC6K1rvuaD6D95N5tA9I+1oRdA 9JrrR/L1gXRUoFo5iLbd9n+vAZDWmsv1HkTv3f/QxBVIH8gs9ALRLUtvhYBo Bd3D8SC65ENBGog+lKQ+1Q1Ie7XGzgXRa8pnLAbRU7V/LwfRkjuubwLRHuFL d4DoFxcn7wXRzat4j4Bona2up0G0ldOGyyBaZPHdGyA6oDAkzh1IM7/rzwLR vEXp+SD67J8dNSBaa8//BhC955BjB4h2XXF0A4jeVDRrB4hmW7PpGIhWY3Z4 CaKlBMQTfYB0VvXqFhB99PG/LhAd8UdkEogO7eBZDKIbtCdvAtGdL/OzfYH0 rPQHFSD6qUXT4qw1rxwBTNO55A== "]] }, 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[{ "1", ",", "0", ",", "0", ",", "0", ",", "1", ",", "1", ",", "1", ",", "1", ",", "1", ",", "2"}], "}"}]], "Output", CellChangeTimes->CompressedData[" 1:eJxTTMoPSmVkYGDQAWIP725zvcWvHJn4nVNBdIPOt3wQfeLdzSYQfUQ37AKI Lg8/mq8PpFUvqpWDaNtt//caAOlvMtzvQXSH/SMTVyDd/bLQC0S3LL0VAqJf rzkcD6LtCwrTQHTfI/WpbkDaqzV2Loiu+D5jMYieqv17OYiW3HF9E4gWub50 B4jeEjhlL4j20+I7AqJ1trqeBtFWThsug9UtvnsDRAcUhsS5A+lzuROyQPSN j+n5IHpGzc4aEK21538DiO5wcuoA0YIaxzaA6E1Fs3aA6Ivam4+B6E9NDi9B tJSAeKIPkM6qXt0Coicm/+8C0So1opNAtAIH72IQ7bN68iYQ3fkyP9sXSKc+ f1ABohc0NS3OWvPKEQC40Lc2 "]] }, 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.2572"}]}], "]"}]}], "]"}], "\[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.2556"}]}], "]"}]}], "]"}], "\[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.257"}]}], "]"}]}], "]"}], "\[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.257"}]}], "]"}]}], "]"}]}]}]], "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, {3.5740888464626713`*^9, 3.5740888580378923`*^9}, {3.5740889171463957`*^9, 3.5740889398288355`*^9}, {3.57408900495895*^9, 3.574089019732176*^9}, { 3.574089077031077*^9, 3.5740890848310905`*^9}, {3.574089123472358*^9, 3.57408913014917*^9}, {3.574089171302042*^9, 3.5740891719572434`*^9}, { 3.5740892687866135`*^9, 3.574089271391818*^9}, {3.574227108071917*^9, 3.574227115525343*^9}, {3.5742271744657145`*^9, 3.5742271817051287`*^9}, { 3.5743410750969906`*^9, 3.5743410822730036`*^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", ",", "nc"}], "}"}], ",", RowBox[{"{", RowBox[{"j", ",", "1", ",", "nc"}], "}"}]}], "]"}]}], ";"}], "\[IndentingNewLine]", RowBox[{"CD", "=", RowBox[{"Select", "[", RowBox[{ RowBox[{"Flatten", "[", "Eij", "]"}], ",", RowBox[{ RowBox[{"(", RowBox[{ RowBox[{"#", "\[GreaterEqual]", "2.4"}], " ", "&&", RowBox[{"#", "\[LessEqual]", "2.73"}]}], ")"}], " ", "&"}]}], "]"}]}], "\[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}, {3.574134565351712*^9, 3.574134566646515*^9}, {3.574134676891908*^9, 3.5741346826639185`*^9}}], Cell[BoxData[ RowBox[{"{", RowBox[{"2.5265548734278283`", ",", "2.526447459022331`"}], "}"}]], "Output", CellChangeTimes->CompressedData[" 1:eJxTTMoPSmVkYGDQAWKR093meotfOZ7rc04F0T5rvuWD6Cl5t5pA9IS1YRdA tNP1o/n6QPpjgHo5iOY0Y9hnAKQPzeF+D6I77B+ZuALp8MwiLxAdoHo7BERv 0zkSD6K5PhSmgeioJI2pbkBajDVuLoh2Lp+5GEQnrP69HEQ/Mb+xCUTfD1u2 A0Q3XJyyF0RLreI7AqJ/mLidBtFshzZcBtEPlO7dANEyH0Pi3IH0rLcTskD0 jY/p+SA65c/OGhD9zZqhEUSHHHLqANF3lh/bAKLrPs3aAaLnrt58DETvY3J8 CaKf9osn+gBps9+rW0B0zOP/XSD6/W/RSSD6TTvvYhAtrj1lE4gOySzI9gXS BukPK0D0VtbmxVlrXjkCAFEbufY= "]], Cell[BoxData[ RowBox[{"2.5265011662250796`", "\[PlusMinus]", "0.00007595345452428381`"}]], "Output", CellChangeTimes->CompressedData[" 1:eJxTTMoPSmVkYGDQAWKR093meotfOZ7rc04F0T5rvuWD6Cl5t5pA9IS1YRdA tNP1o/n6QPpjgHo5iOY0Y9hnAKQPzeF+D6I77B+ZuALp8MwiLxAdoHo7BERv 0zkSD6K5PhSmgeioJI2pbkBajDVuLoh2Lp+5GEQnrP69HEQ/Mb+xCUTfD1u2 A0Q3XJyyF0RLreI7AqJ/mLidBtFshzZcBtEPlO7dANEyH0Pi3IH0rLcTskD0 jY/p+SA65c/OGhD9zZqhEUSHHHLqANF3lh/bAKLrPs3aAaLnrt58DETvY3J8 CaKf9osn+gBps9+rW0B0zOP/XSD6/W/RSSD6TTvvYhAtrj1lE4gOySzI9gXS BukPK0C0p1zz4qw1rxwBTmq5ow== "]] }, Open ]], Cell[CellGroupData[{ Cell[BoxData[{ RowBox[{"CC", "=", RowBox[{"Select", "[", RowBox[{ RowBox[{"Flatten", "[", "Eij", "]"}], ",", RowBox[{ RowBox[{"(", RowBox[{"#", "\[GreaterEqual]", "2.73"}], ")"}], " ", "&"}]}], "]"}]}], "\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}, {3.5741345719505243`*^9, 3.574134573026926*^9}}], Cell[BoxData[ RowBox[{"{", RowBox[{ "2.8780713682773715`", ",", "2.878010424473406`", ",", "2.878111360015274`", ",", "2.8779876303509804`"}], "}"}]], "Output", CellChangeTimes->CompressedData[" 1:eJxTTMoPSmVkYGDQAeL7Xj3meotfOc7kc0kF0T5rvuWD6Ph3t5pAdLRu+AUQ zRd+LF8fSO+5oF4Ooq9uZdhnAKQPzeF+D6JD9j8ycQXSSi+LvEC0zNLbISC6 ac2ReBB9Lb8oDURHJWlMdQPSj1ri5oJo5/KZi0G0jvaf5SB6w/Ybm0D0/bBl O0B0w8Upe0H0M03+IyD6yBa30yD6kuPGyyB69aJ7N0D0i4LQOHcgPevthCwQ vaQwIx9EG9TsqgHRh3YzNILokENOHSB6hfrxDSDas2j2DhCdob3lGIjex+T4 EkRv4JdI9AHSjNVrWkB0zOP/XSB6V7XYJBC9g51vMYgW156yCUQrvCzI9gXS f549rADRl+ObF2eteeUIALoUuew= "]], Cell[BoxData[ RowBox[{"2.878045195779258`", "\[PlusMinus]", "0.000056525887958657854`"}]], "Output", CellChangeTimes->CompressedData[" 1:eJxTTMoPSmVkYGDQAeL7Xj3meotfOc7kc0kF0T5rvuWD6Ph3t5pAdLRu+AUQ zRd+LF8fSO+5oF4Ooq9uZdhnAKQPzeF+D6JD9j8ycQXSSi+LvEC0zNLbISC6 ac2ReBB9Lb8oDURHJWlMdQPSj1ri5oJo5/KZi0G0jvaf5SB6w/Ybm0D0/bBl O0B0w8Upe0H0M03+IyD6yBa30yD6kuPGyyB69aJ7N0D0i4LQOHcgPevthCwQ vaQwIx9EG9TsqgHRh3YzNILokENOHSB6hfrxDSDas2j2DhCdob3lGIjex+T4 EkRv4JdI9AHSjNVrWkB0zOP/XSB6V7XYJBC9g51vMYgW156yCUQrvCzI9gXS f549rADRpgXNi7PWvHIEALWbuV8= "]] }, 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", ",", "nc"}], "}"}]}], "]"}]}], ";"}], "\[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}, {3.574134646315854*^9, 3.574134648952259*^9}}], Cell[BoxData[ RowBox[{"{", RowBox[{"2.0786253867647893`", ",", "2.078699207890407`"}], "}"}]], "Output", CellChangeTimes->CompressedData[" 1:eJxTTMoPSmVkYGDQAeJVp3rM9Ra/ckzpc0kF0RI63/NBtFbe7SYQ/Ukn4gKI vnXtWL4+kO4I0CgH0QtMGfcZAOleGZ73IFrB/rGJK5BWelnkBaJfqNwJAdFN a47Eg+hr+UVpIFr1kcZUNyC9jiV+Lojm+z5zMYj+serPchBdY35zE4hedW3Z DhDtEzh1L4jetJL/CIg+ssXtNIiee3DjZRBdpnT/Boje8iE0zh1Ip+VOzALR BR8z8kG0Qc2uGhDdZ83YCKIVnJw7QHTJ8uMbQLTIp9k7QLTJ6i3HQHRnk+NL EF3TL5HoA6QZq9e0gGiNZIZuEN32W2wSiG5u51sMoh+tmrIJRL/JKMz2BdIn 0h5VgOiPO5sXZ6155QgA7CO4qg== "]], Cell[BoxData[ RowBox[{"2.078662297327598`", "\[PlusMinus]", "0.00005219941851910838`"}]], "Output", CellChangeTimes->CompressedData[" 1:eJxTTMoPSmVkYGDQAeJVp3rM9Ra/ckzpc0kF0RI63/NBtFbe7SYQ/Ukn4gKI vnXtWL4+kO4I0CgH0QtMGfcZAOleGZ73IFrB/rGJK5BWelnkBaJfqNwJAdFN a47Eg+hr+UVpIFr1kcZUNyC9jiV+Lojm+z5zMYj+serPchBdY35zE4hedW3Z DhDtEzh1L4jetJL/CIg+ssXtNIiee3DjZRBdpnT/Boje8iE0zh1Ip+VOzALR BR8z8kG0Qc2uGhDdZ83YCKIVnJw7QHTJ8uMbQLTIp9k7QLTJ6i3HQHRnk+NL EF3TL5HoA6QZq9e0gGiNZIZuEN32W2wSiG5u51sMoh+tmrIJRL/JKMz2BdIn 0h5VgGilQ82Ls9a8cgQA5eq35A== "]] }, 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.257`", ",", "0.255`", ",", "0.255`", ",", "0.255`", ",", "0.257`", ",", "0.257`", ",", "0.257`", ",", "0.257`", ",", "0.257`", ",", "0.2556`", ",", "0.22522`", ",", "0.22522`", ",", "0.22522`", ",", "0.22522`", ",", "0.22522`", ",", "0.178`", ",", "0.178`", ",", "0.178`", ",", "0.178`", ",", "0.5693`", ",", "0.5693`", ",", "0.5693`", ",", "0.5693`", ",", "0.5241`", ",", "0.5541`", ",", "0.5541`", ",", "0.5693`", ",", "0.5693`", ",", "0.5241`", ",", "0.5241`", ",", "0.5693`", ",", "0.5693`"}], "}"}]], "Output", CellChangeTimes->CompressedData[" 1:eJxTTMoPSmVkYGDQAeIyr15zvcWvHA34XFNB9JPV3/NBtFbe7SYQvW9NxAUQ vSzseL4+kA65oFEOonO2Mu4zANIRc3jeg+g3+x6buALpdxnFXiB685I7ISDa T+doPIhe9L4oDUR/SNSc6gakK1vi54LoW2WzFoPoH6v+LAfR7ttvbgLRZWHL d4Bo8YtT94LoTSv5j4DoCSbup0F0huOmy2B1SvdvgOgtH0Lj3IG00duJWSDa pjAzH0T/+b2rBkT3WTM2gujXB507QHTJ8uMbQLTIp9k7QDSD9tZjIDqEyekl iPbgl0z0AdJnfq1pAdFfHjF0g+i232KTQHRzO99iEL1Oa+omEL39RWG2L5Ce 8uxRBYguUmlZnLXmlSMAhz67Xg== "]] }, 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["62.720626226532325`"], "Output", CellChangeTimes->CompressedData[" 1:eJxTTMoPSmVkYGDQAWI+rz5zvcWvHE/wuqWC6KrVP/JB9KHcO00gOmxN5AUQ XXjteL4+kH5zXrMcRFuYMu0zANIfZvO+B9HN+56YuALp1owSLxDtveRuCIh+ pn0sHkRbvS9OA9EdiVpT3YC0C0vCXBC97NusxSC6f9Xf5SBayPzWJhDNF7Zi B4h+FDBtL4j2XClwBESrmXicBtEmBzddBqtTenADRHt9CItzB9In30zKAtHs HzPzQfSk37trQLSKNVMjiG466NIBormWn9gAotd8nLMDRJ9ZtfUYiH7D6PwS RN/nk0r0AdIpv9a2gOiuR4zdIFrut/gkEC3Vzr8YRLtpTdsEov1eFGX7AumE tMcVIFrgZcvirDWvHAEAErdQ "]] }, 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["848.4830862211973`"], "Output", CellChangeTimes->CompressedData[" 1:eJxTTMoPSmVkYGDQAWI+rz5zvcWvHE/wuqWC6KrVP/JBdO/bO00gWlEn6gKI tgk7ka8PpLf7a5WDaJatTPsMgPQeab73ILp53xMTVyDdmlHiBaK9l9wNAdHP tI/Fg2jW/JI0EB3yUGuqG5AWaEmYC6KLymYvBtFRWv+Wg+h7225tAtF8YSt2 gOh1F6btBdGimoJHQPSnzR6nQTSD4+bLIPrWwgc3QLTXh7A4dyB98s2kLBB9 uSArH0THVe+pAdEfdjE1guimgy4dIPqa2skNILq8cO4OED1da9sxEP2G0fkl iL7PJ5XoA6RTfq1tAdFdjxi7QfTLKolJIPoZm8BiEC20atomEO33oijbF0hr P3tcAaJnabUuzlrzyhEAORm3Hg== "]] }, 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["911.2037124477296`"], "Output", CellChangeTimes->CompressedData[" 1:eJxTTMoPSmVkYGDQAeJbJ/vM9Ra/cpzS65YKot20f+aD6N63d5pA9JvVURdA NMe1E/n6QLrpvFY5iD5vwrzPAEjvkeZ7D6L97J6auALpgBclXiBaTOVeCIje uPpYPIhmzS9JA9EhD7WmugFpgZaEuSDa7tvsxSA6SuvfchC9yuz2JhB98+qK HSC6KmD6XhAtqil4BER/2uxxGkQzOG6+DKJvLXxwA0SLFYTHuYP8kTM5C0Rf LsjKB9Fx1XtqQPSHXUyNINrP0bUDRF9TO7kBRJcXzt0BopNWbTsGorc3Or8E 0av6pBJ9gLRB1boWEB2WxNQNol9WSUwC0c/YBBaDaKFV0zaBaKmM4mxfIP09 9UkFiG6vaV2cteaVIwA32LbF "]] }, 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["19.80347160842698`"], "Output", CellChangeTimes->CompressedData[" 1:eJxTTMoPSmVkYGDQAeJlnv3meotfOSbwuqeCaKHVP/NBdGTu3SYQvUM7+gKI 5rh2Il8fSDed1yoH0edNmPcZAOmO2XzvQbTUvqcmrkBaJqPUC0Q/WnwvBETX aB+PB9EX3pWkgWj5RO2pbkD6DnPiXBBt9232YhCtturfchC9yuz2JhB98+qK HSC6KmD6XhD9YIXgERC9z9jzNIg+fWDzZRC9TPHhDRD96H14nDvIH28mZ4Ho eR+y8kG01u89NSB6jxVzI4j2c3TtANGLlp3cAKKdP87dAaKTVm07BqKbGF1e gugyPulEHyD9++e6FhAdlsTUDaK3/JKYBKI3tQksBtH3NKdvAtHPnhdn+wLp Q0+fVIBop2Oti7PWvHIEAMNTu5E= "]] }, 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["42.91715461810534`"], "Output", CellChangeTimes->CompressedData[" 1:eJxTTMoPSmVkYGDQAeJlnv3meotfOSbwuqeC6Htav/JBtMrbu00gumV19AUQ fSX0ZL4+kPbz1y4H0bO2MO8zANIh0vzvQbTUvqcmrkBaJqPUC0Q/WnwvBETX aB+PB9EX3pWkgWj5RO2pbkB6RXPiXBDNVTZnMYhWW/VvOYgu23Z7E4heErpy B4h2vTB9L4h+sELwCIjeZ+x5GkRPd9hyGUQvU3x4A0Q/eh8e5w7yx5vJWSB6 3oesfBCt9XtPDYjeY8XcCKIlD7p2gOg8tVMbQLTzx7k7QLSe1vZjINqv0eUl iC7jk070AdK/f65rAdFKj5i6QXRDleQkEF3LJrgYRK9cOX0TiH72vDjbF0gf evqkAkT/429bnLXmlSMAp5241Q== "]] }, Open ]], Cell[CellGroupData[{ Cell[BoxData[ RowBox[{"MatrixForm", "[", RowBox[{"Table", "[", RowBox[{ RowBox[{"Join", "[", RowBox[{ RowBox[{"{", "i", "}"}], ",", RowBox[{"{", RowBox[{"u", "[", RowBox[{"[", "i", "]"}], "]"}], "}"}], ",", RowBox[{"t", "[", RowBox[{"[", "i", "]"}], "]"}]}], "]"}], ",", RowBox[{"{", RowBox[{"i", ",", "1", ",", "n"}], "}"}]}], "]"}], "]"}]], "Input", CellChangeTimes->{{3.575216940828384*^9, 3.575216956366011*^9}}], Cell[BoxData[ TagBox[ RowBox[{"(", "\[NoBreak]", GridBox[{ {"1", "\<\"C\"\>", RowBox[{"-", "6.6157606506599995`"}], "2.23514901554`", "2.8534673627399996`"}, {"2", "\<\"C\"\>", RowBox[{"-", "3.5740009892799995`"}], "0.014783817826759998`", "1.3664740986819999`"}, {"3", "\<\"C\"\>", RowBox[{"-", "5.13330839818`"}], RowBox[{"-", "1.9670724851799999`"}], "1.5223122429979998`"}, {"4", "\<\"C\"\>", RowBox[{"-", "7.483333857259999`"}], RowBox[{"-", "1.65976524306`"}], "2.39745758168`"}, {"5", "\<\"C\"\>", RowBox[{"-", "1.378759207408`"}], RowBox[{"-", "2.98894181968`"}], "0.0591733681832`"}, {"6", "\<\"C\"\>", "5.121667686019999`", "0.1550637346012`", RowBox[{"-", "0.252359679218`"}]}, {"7", "\<\"C\"\>", "2.974428724`", "0.235200967138`", "1.6623825135699999`"}, {"8", "\<\"C\"\>", "0.699243973424`", "1.0910824389759999`", "0.1216212535792`"}, {"9", "\<\"C\"\>", "4.06289200274`", "1.53737713867`", RowBox[{"-", "2.54402473024`"}]}, {"10", "\<\"C\"\>", "5.204437684819999`", "0.506476803616`", RowBox[{"-", "4.9764989347`"}]}, {"11", "\<\"N\"\>", RowBox[{"-", "8.22860399714`"}], "0.497655562648`", "3.0753778869199997`"}, {"12", "\<\"N\"\>", RowBox[{"-", "4.31927112916`"}], "2.1722022424799996`", "2.0444000731`"}, {"13", "\<\"N\"\>", RowBox[{"-", "1.4352809120680001`"}], RowBox[{"-", "0.641820869462`"}], "0.518926318504`"}, {"14", "\<\"N\"\>", RowBox[{"-", "4.05792202336`"}], RowBox[{"-", "3.9592027371199996`"}], "0.784130465344`"}, {"15", "\<\"N\"\>", RowBox[{"-", "8.9598523701`"}], RowBox[{"-", "3.53637654462`"}], "2.5450073877599997`"}, {"16", "\<\"O\"\>", "1.461440389086`", "1.045899090316`", RowBox[{"-", "2.4436046906`"}]}, {"17", "\<\"O\"\>", "3.52658776394`", "2.14432878398`", "3.4114845532799998`"}, {"18", "\<\"O\"\>", "7.115101848899999`", "1.605702071926`", "0.7124871732320001`"}, {"19", "\<\"O\"\>", "6.3805086609199995`", "2.47410486824`", RowBox[{"-", "6.30491962092`"}]}, {"20", "\<\"H\"\>", "2.6414401055399996`", RowBox[{"-", "1.669191196348`"}], "2.49111240224`"}, {"21", "\<\"H\"\>", "5.52393365964`", RowBox[{"-", "1.844204390386`"}], RowBox[{"-", "0.7671134827139999`"}]}, {"22", "\<\"H\"\>", "0.0700666937102`", "3.01409407274`", "0.6958122310079999`"}, {"23", "\<\"H\"\>", "4.4997777566799995`", "3.59461789994`", RowBox[{"-", "2.5218771415199996`"}]}, {"24", "\<\"H\"\>", "7.181922560259999`", "2.14385635248`", RowBox[{"-", "7.85986176276`"}]}, {"25", "\<\"H\"\>", RowBox[{"-", "10.80558554882`"}], RowBox[{"-", "3.29488845908`"}], "3.2323952202599995`"}, {"26", "\<\"H\"\>", RowBox[{"-", "8.33342709836`"}], RowBox[{"-", "5.33719093632`"}], "1.9961364710599998`"}, {"27", "\<\"H\"\>", "0.212966451022`", RowBox[{"-", "4.09743619402`"}], RowBox[{"-", "0.688043567422`"}]}, {"28", "\<\"H\"\>", RowBox[{"-", "7.2761065041`"}], "4.1144059335`", "3.44788067604`"}, {"29", "\<\"H\"\>", "8.45580575412`", "1.5402211762999998`", RowBox[{"-", "0.510579398762`"}]}, {"30", "\<\"H\"\>", "2.1601457906`", "2.17588720818`", "4.6073976523799995`"}, {"31", "\<\"H\"\>", "3.6832271520799997`", RowBox[{"-", "0.32915058495399996`"}], RowBox[{"-", "6.16462636268`"}]}, {"32", "\<\"H\"\>", "6.6255872258599995`", RowBox[{"-", "0.972885746854`"}], RowBox[{"-", "4.51192869486`"}]} }, 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->CompressedData[" 1:eJxTTMoPSmVkYGBQB+IFV0/m6y9+5Sh1XrscRKeZsOwzANLys/nfg+hnts9M XIH0i+elXiB6nfL9EBDtsfp4PIiek1eaBqJfP9Ce6gakVzQnzgXRV7/OWQyi P2n+Xw6iHc3ubALRBVdX7gDRrhem7wXRazSEjoDors2ep0H0dIctl0F04cKH N0D02vyIOHcgrZMzJQtEZxVk54Pob1V7a0B0xy7mRhAtedC1A0RbLTu1AUTz F87bAaJ/rdx+DET7Nbq8BNFOfdKJPkD6WOX6FhD9LpG5G0Q3VElOAtGebYKL QfTKldM3gehN6SXZvkC6L/VpBYjeGdm2OGvNK0cAyoimFg== "]] }, 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[{"1", ",", "2", ",", "3", ",", "4", ",", "5"}], "}"}]], "Output", CellChangeTimes->CompressedData[" 1:eJxTTMoPSmVkYGDQAeLCk/3meotfOWr3uqeC6JWrfuWD6A8595pAtL92zAUQ nRN6Kl8fSD/z0ykH0UZbWPYZAOlXUgLvQfSmvc9MXIH0lvQyLxBdufh+CIgW 0T4RD6Iz3pWmgehtCTpT3YB0CXPSXBC9oHTuYhC9b+X/5SCad9udTSDaJnTV DhAtGDBjL4iuWCF0BESHGnudBtFJB7ZcBqtTfHQDRFe+j4hzB9LfX0/JAtFm H7LzQfTBX3trQHSwFUsjiH7q4NYBolnVTm8A0bc+zNsBoo9p7jgGoqUYXV+C aD4+mUQfID3p5/oWEL3rIXM3iPb5JTkJRIuwCS0G0SWaMzaB6LrnJdm+QDrq 6dMKED3nStvirDWvHAHeSrcw "]], Cell[BoxData[ TagBox[ RowBox[{"(", "\[NoBreak]", TagBox[GridBox[{ { RowBox[{"{", RowBox[{"1", ",", "11", ",", "12", ",", "28"}], "}"}]}, { RowBox[{"{", RowBox[{"2", ",", "3", ",", "12", ",", "13"}], "}"}]}, { RowBox[{"{", RowBox[{"3", ",", "2", ",", "4", ",", "14"}], "}"}]}, { RowBox[{"{", RowBox[{"4", ",", "3", ",", "11", ",", "15"}], "}"}]}, { RowBox[{"{", RowBox[{"5", ",", "13", ",", "14", ",", "27"}], "}"}]}, { RowBox[{"{", RowBox[{"6", ",", "7", ",", "9", ",", "18", ",", "21"}], "}"}]}, { RowBox[{"{", RowBox[{"7", ",", "6", ",", "8", ",", "17", ",", "20"}], "}"}]}, { RowBox[{"{", RowBox[{"8", ",", "7", ",", "13", ",", "16", ",", "22"}], "}"}]}, { RowBox[{"{", RowBox[{"9", ",", "6", ",", "10", ",", "16", ",", "23"}], "}"}]}, { RowBox[{"{", RowBox[{"10", ",", "9", ",", "19", ",", "31", ",", "32"}], "}"}]}, { RowBox[{"{", RowBox[{"11", ",", "1", ",", "4"}], "}"}]}, { RowBox[{"{", RowBox[{"12", ",", "1", ",", "2"}], "}"}]}, { RowBox[{"{", RowBox[{"13", ",", "2", ",", "5", ",", "8"}], "}"}]}, { RowBox[{"{", RowBox[{"14", ",", "3", ",", "5"}], "}"}]}, { RowBox[{"{", RowBox[{"15", ",", "4", ",", "25", ",", "26"}], "}"}]}, { RowBox[{"{", RowBox[{"16", ",", "8", ",", "9"}], "}"}]}, { RowBox[{"{", RowBox[{"17", ",", "7", ",", "30"}], "}"}]}, { RowBox[{"{", RowBox[{"18", ",", "6", ",", "29"}], "}"}]}, { RowBox[{"{", RowBox[{"19", ",", "10", ",", "24"}], "}"}]}, { RowBox[{"{", RowBox[{"20", ",", "7"}], "}"}]}, { RowBox[{"{", RowBox[{"21", ",", "6"}], "}"}]}, { RowBox[{"{", RowBox[{"22", ",", "8"}], "}"}]}, { RowBox[{"{", RowBox[{"23", ",", "9"}], "}"}]}, { RowBox[{"{", RowBox[{"24", ",", "19"}], "}"}]}, { RowBox[{"{", RowBox[{"25", ",", "15"}], "}"}]}, { RowBox[{"{", RowBox[{"26", ",", "15"}], "}"}]}, { RowBox[{"{", RowBox[{"27", ",", "5"}], "}"}]}, { RowBox[{"{", RowBox[{"28", ",", "1"}], "}"}]}, { RowBox[{"{", RowBox[{"29", ",", "18"}], "}"}]}, { RowBox[{"{", RowBox[{"30", ",", "17"}], "}"}]}, { RowBox[{"{", RowBox[{"31", ",", "10"}], "}"}]}, { RowBox[{"{", RowBox[{"32", ",", "10"}], "}"}]} }, 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->CompressedData[" 1:eJxTTMoPSmVkYGDQAeLCk/3meotfOWr3uqeC6JWrfuWD6A8595pAtL92zAUQ nRN6Kl8fSD/z0ykH0UZbWPYZAOlXUgLvQfSmvc9MXIH0lvQyLxBdufh+CIgW 0T4RD6Iz3pWmgehtCTpT3YB0CXPSXBC9oHTuYhC9b+X/5SCad9udTSDaJnTV DhAtGDBjL4iuWCF0BESHGnudBtFJB7ZcBqtTfHQDRFe+j4hzB9LfX0/JAtFm H7LzQfTBX3trQHSwFUsjiH7q4NYBolnVTm8A0bc+zNsBoo9p7jgGoqUYXV+C aD4+mUQfID3p5/oWEL3rIXM3iPb5JTkJRIuwCS0G0SWaMzaB6LrnJdm+QDrq 6dMKEP3/SdvirDWvHAHh0rej "]] }, 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[{"{", RowBox[{"nj", "+", "5"}], "}"}]}], "]"}]}], ";"}], "\[IndentingNewLine]", RowBox[{ RowBox[{"tpu", "=", RowBox[{"Table", "[", RowBox[{ RowBox[{"{", RowBox[{"0", ",", "0", ",", "0"}], "}"}], ",", RowBox[{"{", RowBox[{"nj", "+", "5"}], "}"}]}], "]"}]}], ";"}], "\[IndentingNewLine]", RowBox[{ RowBox[{ RowBox[{"P", "=", "3"}], ";", " ", RowBox[{"c", "=", RowBox[{"{", RowBox[{"0", ",", "0", ",", "0", ",", "0", ",", "0"}], "}"}]}], ";"}], " ", "\[IndentingNewLine]", RowBox[{"(*", RowBox[{"--", RowBox[{"--", RowBox[{"--", RowBox[{"--", RowBox[{"--", RowBox[{"--", RowBox[{"--", RowBox[{"--", RowBox[{"--", RowBox[{"--", RowBox[{"--", RowBox[{"--", RowBox[{"--", RowBox[{"--", RowBox[{"--", RowBox[{"--", RowBox[{"--", RowBox[{"--", RowBox[{"--", RowBox[{"--", RowBox[{"--", RowBox[{"--", RowBox[{"--", RowBox[{"--", RowBox[{"--", RowBox[{"--", RowBox[{"--", RowBox[{"--", RowBox[{"--", RowBox[{"--", RowBox[{"--", RowBox[{"--", RowBox[{"--", RowBox[{"--", RowBox[{"--", RowBox[{ "--", "--"}]}]}]}]}]}]}]}]}]}]}]}]}]}]}]}]}]}]}]}]}]}]}]}]\ }]}]}]}]}]}]}]}]}]}]}]}], "*)"}]}], "\[IndentingNewLine]", RowBox[{ RowBox[{"(*", " ", RowBox[{ "construct", " ", "the", " ", "\[Pi]", " ", "clouds", " ", "for", " ", "C", " ", "atoms"}], " ", "*)"}]}]}], "Input", CellChangeTimes->{{3.568108824079547*^9, 3.568109012824279*^9}, { 3.568109558076436*^9, 3.568109588168889*^9}, {3.5681097523435774`*^9, 3.5681097637783976`*^9}, {3.5681100381828794`*^9, 3.5681101616726966`*^9}, {3.5681102015307665`*^9, 3.5681102288464146`*^9}, {3.568110263743676*^9, 3.568110267331682*^9}, { 3.5681103163469687`*^9, 3.5681103268925867`*^9}, {3.5681106443375444`*^9, 3.5681106916368275`*^9}, 3.568110873002746*^9, {3.5681109388660617`*^9, 3.5681110268970165`*^9}, {3.568111092526332*^9, 3.568111123461186*^9}, { 3.5681111884196997`*^9, 3.568111192756508*^9}, {3.5681112268113675`*^9, 3.568111366213212*^9}, {3.568111434946933*^9, 3.568111463354583*^9}, { 3.568111544396725*^9, 3.568111547625931*^9}, {3.5681116856081734`*^9, 3.5681117131422215`*^9}, {3.568111864696488*^9, 3.5681119835998964`*^9}, 3.5681120218355637`*^9, {3.56811206543764*^9, 3.568112066389242*^9}, { 3.568112332369709*^9, 3.5681123404505234`*^9}, {3.568112505935614*^9, 3.56811251481203*^9}, {3.5681125623609133`*^9, 3.568112569006525*^9}, { 3.568112648067464*^9, 3.568112734210815*^9}, {3.568112764443668*^9, 3.5681127697320776`*^9}, {3.5681128018681335`*^9, 3.568112843426607*^9}, { 3.568112884641879*^9, 3.5681128887602863`*^9}, {3.5681129663080225`*^9, 3.5681129699584293`*^9}, {3.568113133789917*^9, 3.568113227936082*^9}, { 3.5681132946885996`*^9, 3.5681133044698167`*^9}, {3.568113502200164*^9, 3.568113507348173*^9}, 3.56811354556824*^9, {3.5681222886191964`*^9, 3.5681222896019983`*^9}, {3.568207424138049*^9, 3.5682074415164795`*^9}, 3.568277923134914*^9, 3.568883508322016*^9, 3.568883588350157*^9, 3.5688836441982546`*^9, {3.5703421313965206`*^9, 3.5703421386505337`*^9}, { 3.570342288098796*^9, 3.5703424924279547`*^9}, 3.5709745658726373`*^9, 3.5709746291463485`*^9, {3.5709747534473667`*^9, 3.5709747617933817`*^9}, { 3.5709749537361183`*^9, 3.570975034747061*^9}, {3.5709751055243855`*^9, 3.5709751213584127`*^9}, {3.5709751694532976`*^9, 3.570975200060551*^9}, { 3.571073358435503*^9, 3.5710734289632273`*^9}, {3.571204792969243*^9, 3.571204820940092*^9}, {3.5712048565705547`*^9, 3.571204860002561*^9}, 3.571204896881026*^9, {3.571204943556308*^9, 3.571204987485985*^9}, 3.5712053579722357`*^9, 3.5712054148187356`*^9, 3.5712055260469313`*^9, { 3.571205631237916*^9, 3.5712056608311677`*^9}, {3.571206377683627*^9, 3.5712064172296963`*^9}, {3.571206525727887*^9, 3.571206547427525*^9}, { 3.5712066764397516`*^9, 3.5712067106974115`*^9}, {3.571206757949895*^9, 3.5712067585114956`*^9}, {3.5712073458681273`*^9, 3.571207357053347*^9}, { 3.5712075532392917`*^9, 3.5712076608170805`*^9}, {3.571208007434089*^9, 3.571208247690111*^9}, {3.571208301057805*^9, 3.5712083308850574`*^9}, { 3.571208811958702*^9, 3.571208871488407*^9}, {3.5712089993618317`*^9, 3.5712089996582317`*^9}, {3.5712091105588264`*^9, 3.571209160744115*^9}, { 3.5712092989135575`*^9, 3.5712093003643603`*^9}, {3.571209369940482*^9, 3.5712093926073227`*^9}, {3.5712094586578383`*^9, 3.5712094836958823`*^9}, {3.5712104228175316`*^9, 3.571210434267952*^9}, 3.571210475358424*^9, 3.5712108629099045`*^9, {3.571210903969177*^9, 3.5712109929361334`*^9}, {3.5712110295961976`*^9, 3.5712110392214146`*^9}, {3.571211240071767*^9, 3.5712112940946617`*^9}, { 3.571211404496056*^9, 3.5712114190976815`*^9}, {3.5712115264882703`*^9, 3.5712115363942876`*^9}, {3.571211575924757*^9, 3.5712116183724318`*^9}, { 3.5712116597281046`*^9, 3.571211695062166*^9}, {3.5712117551222715`*^9, 3.5712117807531166`*^9}, {3.571211826835598*^9, 3.5712118443232284`*^9}, { 3.571211962540236*^9, 3.5712119670174437`*^9}, 3.5712123580321307`*^9, { 3.5712123994658036`*^9, 3.571212411181424*^9}, {3.5712172605092583`*^9, 3.571217297153723*^9}, {3.571223622762637*^9, 3.57122364145147*^9}, { 3.5712237454256525`*^9, 3.571223750745262*^9}, {3.571223964808838*^9, 3.571224009097316*^9}, {3.57122674689975*^9, 3.5712267784742055`*^9}, { 3.5712269848157682`*^9, 3.57122698582977*^9}, {3.5712270624259043`*^9, 3.5712270629563055`*^9}, {3.571227212438168*^9, 3.571227212999769*^9}, { 3.571227409778515*^9, 3.5712274489969835`*^9}, {3.571227502177477*^9, 3.571227514127098*^9}, {3.57122758356282*^9, 3.5712276390521173`*^9}, 3.5712276745889797`*^9, {3.571227712746647*^9, 3.5712277584703274`*^9}, { 3.5712349496076813`*^9, 3.571234988008148*^9}, {3.5712351855668955`*^9, 3.5712353359043593`*^9}, {3.5712355859883986`*^9, 3.571235653661318*^9}, { 3.5712356890109797`*^9, 3.571235702208603*^9}, {3.5712449764989214`*^9, 3.5712449799309273`*^9}, {3.5712450401778336`*^9, 3.571245051456653*^9}, { 3.5712450868687153`*^9, 3.5712450934831266`*^9}, {3.571299135517318*^9, 3.571299166342972*^9}, {3.5713069890574045`*^9, 3.5713071726697273`*^9}, { 3.571307301791154*^9, 3.571307304536759*^9}, {3.571307397731323*^9, 3.571307405702937*^9}, {3.571311846659932*^9, 3.5713118507939396`*^9}, { 3.571317129094411*^9, 3.5713171472216425`*^9}, {3.5713172653138494`*^9, 3.5713172753602676`*^9}, {3.5713216932693615`*^9, 3.5713216983081703`*^9}, {3.5713370477995405`*^9, 3.5713370593279605`*^9}, {3.571404339740199*^9, 3.5714046172178864`*^9}, { 3.571404755449729*^9, 3.571404853246301*^9}, {3.571405069743481*^9, 3.571405208989326*^9}, {3.571405268612631*^9, 3.571405277442246*^9}, { 3.5714053796536255`*^9, 3.5714054114932814`*^9}, {3.571405595448805*^9, 3.5714056194884467`*^9}, {3.5714056687221336`*^9, 3.571405677660949*^9}, 3.5714067334520035`*^9, {3.57140676532286*^9, 3.5714067706580687`*^9}, { 3.571406950729185*^9, 3.571406989495253*^9}, {3.5714071848855963`*^9, 3.571407190579606*^9}, 3.5714072350240846`*^9, {3.571412503236558*^9, 3.5714125080413666`*^9}, {3.571412540879424*^9, 3.571412607787942*^9}, { 3.571412668378448*^9, 3.5714128101202965`*^9}, {3.5714128643147917`*^9, 3.571412873862009*^9}, {3.571412908150869*^9, 3.57141290869687*^9}, { 3.571413012374652*^9, 3.5714130213290677`*^9}, {3.571413054603926*^9, 3.5714130713583555`*^9}, 3.5714133323156137`*^9, {3.571730171730853*^9, 3.571730182494872*^9}, {3.5717303501171665`*^9, 3.5717303600855846`*^9}, { 3.5717305482375145`*^9, 3.5717305527147226`*^9}, {3.571760865342704*^9, 3.5717608700695124`*^9}, {3.57176111957635*^9, 3.5717611228835564`*^9}, 3.571761174316847*^9, {3.5717620076459103`*^9, 3.571762008441512*^9}, { 3.571765525077688*^9, 3.571765573718574*^9}, {3.572601603410675*^9, 3.572601639665139*^9}, {3.57260238631365*^9, 3.5726023989340725`*^9}, 3.5726046985809116`*^9, {3.5726052623971024`*^9, 3.572605269729115*^9}, { 3.572606450370389*^9, 3.5726064833176465`*^9}, {3.5726065169513054`*^9, 3.572606523955718*^9}, {3.5726066452459307`*^9, 3.572606662468361*^9}, { 3.5726068118542233`*^9, 3.5726068309330573`*^9}, {3.5726082044218693`*^9, 3.5726082108178806`*^9}, {3.5726129520308228`*^9, 3.5726129692220526`*^9}, {3.5726130228861475`*^9, 3.5726130532750006`*^9}, {3.572624083881504*^9, 3.572624093631521*^9}, { 3.5726247901883445`*^9, 3.572624801233164*^9}, {3.5726249931759005`*^9, 3.572625014937939*^9}, {3.572626882386019*^9, 3.5726268865668263`*^9}, { 3.5726673740642943`*^9, 3.572667386154316*^9}, {3.572707186162225*^9, 3.5727071892978306`*^9}, {3.5727073766385593`*^9, 3.5727073777617617`*^9}, 3.5727091442464643`*^9, 3.572709305488347*^9, {3.5727105300904984`*^9, 3.5727105312605004`*^9}, 3.5727107350904584`*^9, 3.5727108467086544`*^9, 3.572710916331577*^9, {3.5728420867264705`*^9, 3.5728421164913225`*^9}, { 3.572850453192765*^9, 3.5728504884332275`*^9}, {3.5731485879383316`*^9, 3.5731485959879456`*^9}, {3.5731825263710723`*^9, 3.573182535403488*^9}, { 3.5740881383930283`*^9, 3.5740881415442333`*^9}, {3.574133050043051*^9, 3.5741330901351213`*^9}, {3.574133304276697*^9, 3.5741333056182995`*^9}, { 3.5741334325089226`*^9, 3.5741334353481274`*^9}, {3.574484489607682*^9, 3.574484492602887*^9}}], Cell[BoxData[ 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[{"mk", "=", "p"}], ";", "\[IndentingNewLine]", RowBox[{"ml", "=", "p"}], ";", "\[IndentingNewLine]", RowBox[{ RowBox[{"mk", "[", RowBox[{"[", RowBox[{"1", ",", "3"}], "]"}], "]"}], "=", "rpo"}], ";", "\[IndentingNewLine]", RowBox[{ RowBox[{"ml", "[", RowBox[{"[", RowBox[{"1", ",", "3"}], "]"}], "]"}], "=", RowBox[{"-", "rpi"}]}], ";", "\n", RowBox[{"U", "=", "p"}], ";", "\n", RowBox[{"U1", "=", "mk"}], ";", "\[IndentingNewLine]", RowBox[{"U2", "=", "ml"}], ";", "\[IndentingNewLine]", RowBox[{"T", "=", RowBox[{"RotationMatrix", "[", RowBox[{ RowBox[{"-", "T3"}], ",", RowBox[{"{", RowBox[{"1", ",", "0", ",", "0"}], "}"}]}], "]"}]}], ";", "\[IndentingNewLine]", RowBox[{"p", "=", RowBox[{"U", ".", "T"}]}], ";", "\n", RowBox[{"mk", "=", RowBox[{"U1", ".", "T"}]}], ";", "\[IndentingNewLine]", RowBox[{"ml", "=", RowBox[{"U2", ".", "T"}]}], ";", "\n", RowBox[{"U", "=", "p"}], ";", "\n", RowBox[{"U1", "=", "mk"}], ";", "\[IndentingNewLine]", RowBox[{"U2", "=", "ml"}], ";", "\[IndentingNewLine]", RowBox[{"T", "=", RowBox[{"RotationMatrix", "[", RowBox[{ RowBox[{"-", "T2"}], ",", RowBox[{"{", RowBox[{"0", ",", "0", ",", "1"}], "}"}]}], "]"}]}], ";", "\[IndentingNewLine]", RowBox[{"p", "=", RowBox[{"U", ".", "T"}]}], ";", "\n", RowBox[{"mk", "=", RowBox[{"U1", ".", "T"}]}], ";", "\[IndentingNewLine]", RowBox[{"ml", "=", RowBox[{"U2", ".", "T"}]}], ";", "\n", RowBox[{"U", "=", "p"}], ";", "\n", RowBox[{"U1", "=", "mk"}], ";", "\[IndentingNewLine]", RowBox[{"U2", "=", "ml"}], ";", "\[IndentingNewLine]", RowBox[{"T", "=", RowBox[{"RotationMatrix", "[", RowBox[{ RowBox[{"-", "T1"}], ",", RowBox[{"{", RowBox[{"1", ",", "0", ",", "0"}], "}"}]}], "]"}]}], ";", "\[IndentingNewLine]", RowBox[{"p", "=", RowBox[{"U", ".", "T"}]}], ";", "\n", RowBox[{"mk", "=", RowBox[{"U1", ".", "T"}]}], ";", "\[IndentingNewLine]", RowBox[{"ml", "=", 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[{"mk", "[", RowBox[{"[", "i", "]"}], "]"}], ",", RowBox[{"{", "1", "}"}]}], "]"}], ",", RowBox[{"{", RowBox[{"i", ",", "1", ",", "P"}], "}"}]}], "]"}]}], ";", "\[IndentingNewLine]", RowBox[{"v2", "=", RowBox[{"Table", "[", RowBox[{ RowBox[{"Join", "[", RowBox[{ RowBox[{"ml", "[", 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[{"mk", "=", RowBox[{"v1", ".", "Q"}]}], ";", "\[IndentingNewLine]", RowBox[{"ml", "=", RowBox[{"v2", ".", "Q"}]}], ";", "\[IndentingNewLine]", RowBox[{"p", "=", RowBox[{"Table", "[", RowBox[{ RowBox[{"Take", "[", RowBox[{ RowBox[{"p", "[", RowBox[{"[", "i", "]"}], "]"}], ",", "3"}], "]"}], ",", RowBox[{"{", RowBox[{"i", ",", "1", ",", "P"}], "}"}]}], "]"}]}], ";", "\[IndentingNewLine]", RowBox[{"mk", "=", RowBox[{"Table", "[", RowBox[{ RowBox[{"Take", "[", RowBox[{ RowBox[{"mk", "[", RowBox[{"[", "i", "]"}], "]"}], ",", "3"}], "]"}], ",", RowBox[{"{", RowBox[{"i", ",", "1", ",", "P"}], "}"}]}], "]"}]}], ";", "\[IndentingNewLine]", RowBox[{"ml", "=", RowBox[{"Table", "[", RowBox[{ RowBox[{"Take", "[", RowBox[{ RowBox[{"ml", "[", RowBox[{"[", "i", "]"}], "]"}], ",", "3"}], "]"}], ",", RowBox[{"{", RowBox[{"i", ",", "1", ",", "P"}], "}"}]}], "]"}]}], ";", "\[IndentingNewLine]", RowBox[{ RowBox[{"tpo", "[", RowBox[{"[", "k", "]"}], "]"}], "=", RowBox[{"mk", "[", RowBox[{"[", "1", "]"}], "]"}]}], ";", "\[IndentingNewLine]", RowBox[{ RowBox[{"tpu", "[", RowBox[{"[", "k", "]"}], "]"}], "=", RowBox[{"ml", "[", RowBox[{"[", "1", "]"}], "]"}]}]}], ")"}], ",", RowBox[{"{", RowBox[{"k", ",", "nj"}], "}"}]}], "]"}], ";"}]], "Input", CellChangeTimes->{{3.572794697520533*^9, 3.5727947043221455`*^9}, { 3.5727948024151173`*^9, 3.572794803507119*^9}, {3.5727948673580313`*^9, 3.572794869838436*^9}, {3.572795260993526*^9, 3.5727952676703377`*^9}, { 3.5727954366342344`*^9, 3.5727954702834935`*^9}, {3.5727973545484033`*^9, 3.5727973657024226`*^9}, {3.572803225319809*^9, 3.572803264553878*^9}, { 3.57280330550395*^9, 3.5728033127111626`*^9}, 3.5728033508376293`*^9, 3.5731486865617046`*^9, {3.5731490505259438`*^9, 3.573149068278775*^9}, { 3.573149110008848*^9, 3.573149243825884*^9}, {3.5731493138232064`*^9, 3.5731493450700617`*^9}}], Cell[BoxData[ RowBox[{ RowBox[{"(*", RowBox[{"--", RowBox[{"--", RowBox[{"--", RowBox[{"--", RowBox[{"--", RowBox[{"--", RowBox[{"--", RowBox[{"--", RowBox[{"--", RowBox[{"--", RowBox[{"--", RowBox[{"--", RowBox[{"--", RowBox[{"--", RowBox[{"--", RowBox[{"--", RowBox[{"--", RowBox[{"--", RowBox[{"--", RowBox[{"--", RowBox[{"--", RowBox[{"--", RowBox[{"--", RowBox[{"--", RowBox[{"--", RowBox[{"--", RowBox[{"--", RowBox[{"--", RowBox[{"--", RowBox[{"--", RowBox[{"--", RowBox[{"--", RowBox[{"--", RowBox[{"--", RowBox[{"--", RowBox[{ "--", "-"}]}]}]}]}]}]}]}]}]}]}]}]}]}]}]}]}]}]}]}]}]}]}]}]}\ ]}]}]}]}]}]}]}]}]}]}]}], "*)"}], "\[IndentingNewLine]", RowBox[{"(*", " ", RowBox[{ "construct", " ", "the", " ", "\[Pi]", " ", "clouds", " ", "for", " ", "the", " ", "5", " ", "N", " ", "atoms"}], " ", "*)"}]}]], "Input", CellChangeTimes->{{3.572794697520533*^9, 3.5727947043221455`*^9}, { 3.5727948024151173`*^9, 3.572794803507119*^9}, {3.5727948673580313`*^9, 3.572794869838436*^9}, {3.572795260993526*^9, 3.5727952676703377`*^9}, { 3.5727954366342344`*^9, 3.5727954702834935`*^9}, {3.5727973545484033`*^9, 3.5727973657024226`*^9}, {3.572803225319809*^9, 3.572803264553878*^9}, { 3.57280330550395*^9, 3.5728033127111626`*^9}, 3.5728033508376293`*^9, { 3.572803528365941*^9, 3.5728035301443443`*^9}, {3.572803715051469*^9, 3.572803769604765*^9}, {3.572840261866465*^9, 3.5728402628648667`*^9}, { 3.5728405648813972`*^9, 3.572840578905822*^9}, {3.5728406372187243`*^9, 3.572840716170463*^9}, {3.5728407476825185`*^9, 3.572840785746585*^9}, { 3.5728408298790627`*^9, 3.5728408871311636`*^9}, {3.5728409363336496`*^9, 3.572841070790286*^9}, {3.572841415987692*^9, 3.572841609740032*^9}, 3.5728416910629754`*^9, {3.5728417502806797`*^9, 3.572841879885707*^9}, { 3.572841914564568*^9, 3.5728419300709953`*^9}, {3.572841986199894*^9, 3.572842001659521*^9}, {3.5728426453322515`*^9, 3.5728426487174573`*^9}, { 3.572844776030794*^9, 3.572844786919613*^9}, {3.57284502999924*^9, 3.5728450550060835`*^9}, {3.572845459218394*^9, 3.572845496174859*^9}, { 3.5728455656105804`*^9, 3.572845617574272*^9}, {3.5728456738279705`*^9, 3.572845681440784*^9}, {3.5728457322656736`*^9, 3.572845755291314*^9}, 3.572845978356106*^9, {3.572846145151599*^9, 3.572846189096876*^9}, { 3.572846392926834*^9, 3.5728464086828613`*^9}, 3.572846518881455*^9, 3.5728469699562473`*^9, {3.5728470834620466`*^9, 3.572847089873658*^9}, { 3.572847132180932*^9, 3.5728472650151653`*^9}, 3.5728473515485177`*^9, { 3.572849422046554*^9, 3.572849426554962*^9}, {3.572849678776205*^9, 3.572849686077018*^9}, {3.5728503673146143`*^9, 3.5728503811830387`*^9}, { 3.5728505998798227`*^9, 3.572850604637831*^9}, 3.5730459405924234`*^9, { 3.5731485633994884`*^9, 3.5731485765503116`*^9}, {3.5731486137719765`*^9, 3.573148680368494*^9}, {3.574133119104372*^9, 3.574133144033216*^9}, { 3.574133281157457*^9, 3.574133289987072*^9}, 3.574484169323519*^9}], Cell[BoxData[{ RowBox[{ RowBox[{"k", "=", "1"}], ";"}], "\[IndentingNewLine]", RowBox[{ RowBox[{"Clear", "[", "conn", "]"}], ";"}], "\[IndentingNewLine]", RowBox[{ RowBox[{"conn", "=", RowBox[{"{", RowBox[{ RowBox[{"{", RowBox[{"11", ",", "1", ",", "4"}], "}"}], ",", RowBox[{"{", RowBox[{"12", ",", "1", ",", "2"}], "}"}], ",", RowBox[{"{", RowBox[{"13", ",", "2", ",", "5"}], "}"}], ",", RowBox[{"{", RowBox[{"14", ",", "3", ",", "5"}], "}"}], ",", RowBox[{"{", RowBox[{"15", ",", "4", ",", "25"}], "}"}]}], "}"}]}], ";"}]}], "Input", CellChangeTimes->{{3.572794697520533*^9, 3.5727947043221455`*^9}, { 3.5727948024151173`*^9, 3.572794803507119*^9}, {3.5727948673580313`*^9, 3.572794869838436*^9}, {3.572795260993526*^9, 3.5727952676703377`*^9}, { 3.5727954366342344`*^9, 3.5727954702834935`*^9}, {3.5727973545484033`*^9, 3.5727973657024226`*^9}, {3.572803225319809*^9, 3.572803264553878*^9}, { 3.57280330550395*^9, 3.5728033127111626`*^9}, 3.5728033508376293`*^9, { 3.572803528365941*^9, 3.5728035301443443`*^9}, {3.572803715051469*^9, 3.572803769604765*^9}, {3.572840261866465*^9, 3.5728402628648667`*^9}, { 3.5728405648813972`*^9, 3.572840578905822*^9}, {3.5728406372187243`*^9, 3.572840716170463*^9}, {3.5728407476825185`*^9, 3.572840785746585*^9}, { 3.5728408298790627`*^9, 3.5728408871311636`*^9}, {3.5728409363336496`*^9, 3.572841070790286*^9}, {3.572841415987692*^9, 3.572841609740032*^9}, 3.5728416910629754`*^9, {3.5728417502806797`*^9, 3.572841879885707*^9}, { 3.572841914564568*^9, 3.5728419300709953`*^9}, {3.572841986199894*^9, 3.572842001659521*^9}, {3.5728426453322515`*^9, 3.5728426487174573`*^9}, { 3.572844776030794*^9, 3.572844786919613*^9}, {3.57284502999924*^9, 3.5728450550060835`*^9}, {3.572845459218394*^9, 3.572845496174859*^9}, { 3.5728455656105804`*^9, 3.572845617574272*^9}, {3.5728456738279705`*^9, 3.572845681440784*^9}, {3.5728457322656736`*^9, 3.572845755291314*^9}, 3.572845978356106*^9, {3.572846145151599*^9, 3.572846189096876*^9}, { 3.572846392926834*^9, 3.5728464086828613`*^9}, 3.572846518881455*^9, 3.5728469699562473`*^9, {3.5728470834620466`*^9, 3.572847089873658*^9}, { 3.572847132180932*^9, 3.5728472650151653`*^9}, 3.5728473515485177`*^9, { 3.572849422046554*^9, 3.572849426554962*^9}, {3.572849678776205*^9, 3.572849686077018*^9}, {3.5728503673146143`*^9, 3.5728503811830387`*^9}, { 3.5728505998798227`*^9, 3.572850604637831*^9}, 3.5730459405924234`*^9, { 3.5731485633994884`*^9, 3.5731485765503116`*^9}, {3.5731486137719765`*^9, 3.573148784124276*^9}, {3.573148880017645*^9, 3.5731489260377254`*^9}, { 3.573148979499019*^9, 3.5731489938822446`*^9}, {3.5731506972804365`*^9, 3.5731506982476377`*^9}, {3.573150757387342*^9, 3.5731507583389435`*^9}, { 3.57315079601301*^9, 3.5731508056382265`*^9}, {3.573151607464035*^9, 3.5731516101004395`*^9}, {3.5731826853813925`*^9, 3.57318272377306*^9}, 3.573183074758076*^9, {3.573206537871501*^9, 3.5732065516931257`*^9}, 3.574070559848399*^9, {3.574484313920173*^9, 3.574484362093058*^9}}], Cell[BoxData[ RowBox[{ RowBox[{"Do", "[", RowBox[{ RowBox[{"(", RowBox[{ RowBox[{"c", "=", RowBox[{"conn", "[", RowBox[{"[", "k", "]"}], "]"}]}], ";", "\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[{"[", RowBox[{"nj", "+", "k"}], "]"}], "]"}], "=", RowBox[{"nk", "[", RowBox[{"[", "1", "]"}], "]"}]}], ";", "\[IndentingNewLine]", RowBox[{ RowBox[{"tpu", "[", RowBox[{"[", RowBox[{"nj", "+", "k"}], "]"}], "]"}], "=", RowBox[{"nl", "[", RowBox[{"[", "1", "]"}], "]"}]}]}], ")"}], ",", RowBox[{"{", RowBox[{"k", ",", "5"}], "}"}]}], "]"}], ";"}]], "Input", CellChangeTimes->{{3.572794697520533*^9, 3.5727947043221455`*^9}, { 3.5727948024151173`*^9, 3.572794803507119*^9}, {3.5727948673580313`*^9, 3.572794869838436*^9}, {3.572795260993526*^9, 3.5727952676703377`*^9}, { 3.5727954366342344`*^9, 3.5727954702834935`*^9}, {3.5727973545484033`*^9, 3.5727973657024226`*^9}, {3.572803225319809*^9, 3.572803264553878*^9}, { 3.57280330550395*^9, 3.5728033127111626`*^9}, 3.5728033508376293`*^9, { 3.572803528365941*^9, 3.5728035301443443`*^9}, {3.572803715051469*^9, 3.572803769604765*^9}, {3.572840261866465*^9, 3.5728402628648667`*^9}, { 3.5728405648813972`*^9, 3.572840578905822*^9}, {3.5728406372187243`*^9, 3.572840716170463*^9}, {3.5728407476825185`*^9, 3.572840785746585*^9}, { 3.5728408298790627`*^9, 3.5728408871311636`*^9}, {3.5728409363336496`*^9, 3.572841070790286*^9}, {3.572841415987692*^9, 3.572841609740032*^9}, 3.5728416910629754`*^9, {3.5728417502806797`*^9, 3.572841879885707*^9}, { 3.572841914564568*^9, 3.5728419300709953`*^9}, {3.572841986199894*^9, 3.572842001659521*^9}, {3.5728426453322515`*^9, 3.5728426487174573`*^9}, { 3.572844776030794*^9, 3.572844786919613*^9}, {3.57284502999924*^9, 3.5728450550060835`*^9}, {3.572845459218394*^9, 3.572845496174859*^9}, { 3.5728455656105804`*^9, 3.572845617574272*^9}, {3.5728456738279705`*^9, 3.572845681440784*^9}, {3.5728457322656736`*^9, 3.572845755291314*^9}, 3.572845978356106*^9, {3.572846145151599*^9, 3.572846189096876*^9}, { 3.572846392926834*^9, 3.5728464086828613`*^9}, 3.572846518881455*^9, 3.5728469699562473`*^9, {3.5728470834620466`*^9, 3.572847089873658*^9}, { 3.572847132180932*^9, 3.5728472650151653`*^9}, 3.5728473515485177`*^9, { 3.572849422046554*^9, 3.572849426554962*^9}, {3.572849678776205*^9, 3.572849686077018*^9}, {3.5728503673146143`*^9, 3.5728503811830387`*^9}, { 3.5728505998798227`*^9, 3.572850604637831*^9}, 3.5730459405924234`*^9, { 3.5731485633994884`*^9, 3.5731485765503116`*^9}, {3.5731486137719765`*^9, 3.573148784124276*^9}, {3.573148880017645*^9, 3.5731489260377254`*^9}, { 3.573148979499019*^9, 3.5731489938822446`*^9}, {3.5731506972804365`*^9, 3.5731506982476377`*^9}, {3.573150757387342*^9, 3.5731507583389435`*^9}, { 3.57315079601301*^9, 3.5731508056382265`*^9}, {3.573151607464035*^9, 3.5731516101004395`*^9}, {3.5731826853813925`*^9, 3.57318272377306*^9}, { 3.573183074758076*^9, 3.5731830995309196`*^9}, {3.573183400018647*^9, 3.573183403669054*^9}, {3.5740705690368156`*^9, 3.574070569988417*^9}, { 3.574075420473737*^9, 3.574075431518556*^9}, {3.57448439193591*^9, 3.574484392981112*^9}}], Cell["\<\ (* ---------------------------------------------------------------------------\ ------------------ O atoms 16,17,18,19 LP *)\ \>", "Text", CellChangeTimes->{{3.572794697520533*^9, 3.5727947043221455`*^9}, { 3.5727948024151173`*^9, 3.572794803507119*^9}, {3.5727948673580313`*^9, 3.572794869838436*^9}, {3.572795260993526*^9, 3.5727952676703377`*^9}, { 3.5727954366342344`*^9, 3.5727954702834935`*^9}, {3.5727973545484033`*^9, 3.5727973657024226`*^9}, {3.572803225319809*^9, 3.572803264553878*^9}, { 3.57280330550395*^9, 3.5728033127111626`*^9}, 3.5728033508376293`*^9, { 3.572803528365941*^9, 3.5728035301443443`*^9}, {3.572803715051469*^9, 3.572803769604765*^9}, {3.572840261866465*^9, 3.5728402628648667`*^9}, { 3.5728405648813972`*^9, 3.572840578905822*^9}, {3.5728406372187243`*^9, 3.572840716170463*^9}, {3.5728407476825185`*^9, 3.572840785746585*^9}, { 3.5728408298790627`*^9, 3.5728408871311636`*^9}, {3.5728409363336496`*^9, 3.572841070790286*^9}, {3.572841415987692*^9, 3.572841609740032*^9}, 3.5728416910629754`*^9, {3.5728417502806797`*^9, 3.572841879885707*^9}, { 3.572841914564568*^9, 3.5728419300709953`*^9}, {3.572841986199894*^9, 3.572842001659521*^9}, {3.5728426453322515`*^9, 3.5728426487174573`*^9}, { 3.572844776030794*^9, 3.572844786919613*^9}, {3.57284502999924*^9, 3.5728450550060835`*^9}, {3.572845459218394*^9, 3.572845496174859*^9}, { 3.5728455656105804`*^9, 3.572845617574272*^9}, {3.5728456738279705`*^9, 3.572845681440784*^9}, {3.5728457322656736`*^9, 3.572845755291314*^9}, 3.572845978356106*^9, {3.572846145151599*^9, 3.572846189096876*^9}, { 3.572846392926834*^9, 3.5728464086828613`*^9}, 3.572846518881455*^9, 3.5728469699562473`*^9, {3.5728470834620466`*^9, 3.572847089873658*^9}, { 3.572847132180932*^9, 3.5728472650151653`*^9}, 3.5728473515485177`*^9, { 3.572849422046554*^9, 3.572849426554962*^9}, {3.572849678776205*^9, 3.572849686077018*^9}, {3.5728503673146143`*^9, 3.5728503811830387`*^9}, { 3.5728505998798227`*^9, 3.572850604637831*^9}, 3.5730459405924234`*^9, { 3.5731485633994884`*^9, 3.5731485765503116`*^9}, {3.5731486137719765`*^9, 3.573148784124276*^9}, {3.573148880017645*^9, 3.5731489260377254`*^9}, { 3.573148979499019*^9, 3.5731489938822446`*^9}, {3.5731506972804365`*^9, 3.5731506982476377`*^9}, {3.573150757387342*^9, 3.5731507583389435`*^9}, { 3.57315079601301*^9, 3.5731508056382265`*^9}, {3.573151607464035*^9, 3.5731516101004395`*^9}, {3.5731826853813925`*^9, 3.57318272377306*^9}, { 3.573183074758076*^9, 3.5731830995309196`*^9}, {3.573183400018647*^9, 3.573183403669054*^9}, {3.5740705690368156`*^9, 3.574070569988417*^9}, { 3.574075420473737*^9, 3.5740754582882032`*^9}, {3.574133164172851*^9, 3.5741331957785068`*^9}, {3.574486166314227*^9, 3.574486174785042*^9}, { 3.574491302508808*^9, 3.5744913056600137`*^9}, {3.5744913474836874`*^9, 3.5744914376206455`*^9}}], Cell[BoxData[{ RowBox[{ RowBox[{"k", "=", "1"}], ";", " ", RowBox[{"hj", "=", "4"}], ";"}], "\[IndentingNewLine]", RowBox[{ RowBox[{"Clear", "[", RowBox[{ "conn", ",", "\[Alpha]", ",", "\[Beta]", ",", "\[Gamma]", ",", "gamm"}], "]"}], ";"}], "\[IndentingNewLine]", RowBox[{ RowBox[{"conn", "=", RowBox[{"{", RowBox[{ RowBox[{"{", RowBox[{"9", ",", "16", ",", "8"}], "}"}], ",", RowBox[{"{", RowBox[{"30", ",", "17", ",", "7"}], "}"}], ",", RowBox[{"{", RowBox[{"6", ",", "18", ",", "29"}], "}"}], ",", RowBox[{"{", RowBox[{"10", ",", "19", ",", "24"}], "}"}]}], "}"}]}], ";"}], "\n", RowBox[{ RowBox[{"rlo", "=", "1.125"}], ";"}], "\[IndentingNewLine]", RowBox[{ RowBox[{"tlo", "=", RowBox[{"{", RowBox[{ RowBox[{"{", RowBox[{"0.0", ",", "0.0", ",", "0.0"}], "}"}], ",", RowBox[{"{", RowBox[{"0.0", ",", "0.0", ",", "0.0"}], "}"}], ",", RowBox[{"{", RowBox[{"0.0", ",", "0.0", ",", "0.0"}], "}"}], ",", RowBox[{"{", RowBox[{"0.0", ",", "0.0", ",", "0.0"}], "}"}]}], "}"}]}], ";"}], "\[IndentingNewLine]", RowBox[{ RowBox[{"tlu", "=", RowBox[{"{", RowBox[{ RowBox[{"{", RowBox[{"0.0", ",", "0.0", ",", "0.0"}], "}"}], ",", RowBox[{"{", RowBox[{"0.0", ",", "0.0", ",", "0.0"}], "}"}], ",", RowBox[{"{", RowBox[{"0.0", ",", "0.0", ",", "0.0"}], "}"}], ",", RowBox[{"{", RowBox[{"0.0", ",", "0.0", ",", "0.0"}], "}"}]}], "}"}]}], ";"}], "\[IndentingNewLine]", RowBox[{ RowBox[{ RowBox[{"Plota", "=", " ", RowBox[{"Table", "[", RowBox[{ RowBox[{"{", "0", "}"}], ",", " ", RowBox[{"{", RowBox[{"i", ",", " ", "1", ",", " ", "hj"}], "}"}]}], "]"}]}], ";"}], " "}], "\n", RowBox[{ RowBox[{"Plotc", "=", " ", "Plota"}], ";"}], "\n", RowBox[{ RowBox[{ RowBox[{"Plotd", " ", "=", "Plota"}], ";"}], " "}], "\n", RowBox[{ RowBox[{"Plote", "=", " ", "Plota"}], ";"}], "\[IndentingNewLine]", RowBox[{ RowBox[{ RowBox[{"Plotb0", " ", "=", "Plota"}], ";"}], " "}], "\[IndentingNewLine]", RowBox[{ RowBox[{"Ok", "=", RowBox[{"{", RowBox[{ RowBox[{"{", RowBox[{ RowBox[{"-", "1"}], ",", "1", ",", "1"}], "}"}], ",", RowBox[{"{", RowBox[{"1", ",", "1", ",", "1"}], "}"}], ",", RowBox[{"{", RowBox[{"1", ",", "1", ",", "1"}], "}"}], ",", RowBox[{"{", RowBox[{"1", ",", "1", ",", "1"}], "}"}]}], "}"}]}], ";"}], "\[IndentingNewLine]", RowBox[{ RowBox[{"gamm", "=", RowBox[{"{", RowBox[{"0", ",", "0", ",", "0", ",", "0"}], "}"}]}], ";", " ", RowBox[{"t1k", "=", "gamm"}], ";", " ", RowBox[{"t2k", "=", "gamm"}], ";", " ", RowBox[{"t3k", "=", "gamm"}], ";", " ", RowBox[{"alf", "=", "gamm"}], ";", " ", RowBox[{"bet", "=", "gamm"}], ";"}]}], "Input", CellChangeTimes->{{3.572794697520533*^9, 3.5727947043221455`*^9}, { 3.5727948024151173`*^9, 3.572794803507119*^9}, {3.5727948673580313`*^9, 3.572794869838436*^9}, {3.572795260993526*^9, 3.5727952676703377`*^9}, { 3.5727954366342344`*^9, 3.5727954702834935`*^9}, {3.5727973545484033`*^9, 3.5727973657024226`*^9}, {3.572803225319809*^9, 3.572803264553878*^9}, { 3.57280330550395*^9, 3.5728033127111626`*^9}, 3.5728033508376293`*^9, { 3.572803528365941*^9, 3.5728035301443443`*^9}, {3.572803715051469*^9, 3.572803769604765*^9}, {3.572840261866465*^9, 3.5728402628648667`*^9}, { 3.5728405648813972`*^9, 3.572840578905822*^9}, {3.5728406372187243`*^9, 3.572840716170463*^9}, {3.5728407476825185`*^9, 3.572840785746585*^9}, { 3.5728408298790627`*^9, 3.5728408871311636`*^9}, {3.5728409363336496`*^9, 3.572841070790286*^9}, {3.572841415987692*^9, 3.572841609740032*^9}, 3.5728416910629754`*^9, {3.5728417502806797`*^9, 3.572841879885707*^9}, { 3.572841914564568*^9, 3.5728419300709953`*^9}, {3.572841986199894*^9, 3.572842001659521*^9}, {3.5728426453322515`*^9, 3.5728426487174573`*^9}, { 3.572844776030794*^9, 3.572844786919613*^9}, {3.57284502999924*^9, 3.5728450550060835`*^9}, {3.572845459218394*^9, 3.572845496174859*^9}, { 3.5728455656105804`*^9, 3.572845617574272*^9}, {3.5728456738279705`*^9, 3.572845681440784*^9}, {3.5728457322656736`*^9, 3.572845755291314*^9}, 3.572845978356106*^9, {3.572846145151599*^9, 3.572846189096876*^9}, { 3.572846392926834*^9, 3.5728464086828613`*^9}, 3.572846518881455*^9, 3.5728469699562473`*^9, {3.5728470834620466`*^9, 3.572847089873658*^9}, { 3.572847132180932*^9, 3.5728472650151653`*^9}, 3.5728473515485177`*^9, { 3.572849422046554*^9, 3.572849426554962*^9}, {3.572849678776205*^9, 3.572849686077018*^9}, {3.5728503673146143`*^9, 3.5728503811830387`*^9}, { 3.5728505998798227`*^9, 3.572850604637831*^9}, 3.5730459405924234`*^9, { 3.5731485633994884`*^9, 3.5731485765503116`*^9}, {3.5731486137719765`*^9, 3.573148784124276*^9}, {3.573148880017645*^9, 3.5731489260377254`*^9}, { 3.573148979499019*^9, 3.5731489938822446`*^9}, {3.5731506972804365`*^9, 3.5731506982476377`*^9}, {3.573150757387342*^9, 3.5731507583389435`*^9}, { 3.57315079601301*^9, 3.5731508056382265`*^9}, {3.573151607464035*^9, 3.5731516101004395`*^9}, {3.5731826853813925`*^9, 3.57318272377306*^9}, 3.573183074758076*^9, {3.5740746292247467`*^9, 3.574074630301149*^9}, { 3.5740746649020095`*^9, 3.5740747139640956`*^9}, {3.5740747744610023`*^9, 3.574074848015131*^9}, {3.5740749399928927`*^9, 3.574075144556052*^9}, 3.574075176614108*^9, 3.5740754672894187`*^9, {3.574075548799562*^9, 3.574075581356819*^9}, 3.5740758787089415`*^9, 3.574135482290123*^9, 3.5741355446590323`*^9, {3.57434006146961*^9, 3.5743400666956196`*^9}, { 3.574490877033661*^9, 3.5744910620811863`*^9}, {3.5744914513018694`*^9, 3.5744914558882775`*^9}, {3.574499216903905*^9, 3.5744992394459443`*^9}, { 3.574499298538848*^9, 3.5744992992564497`*^9}, {3.574499382810196*^9, 3.574499384307799*^9}, {3.574499488531582*^9, 3.5744994933363905`*^9}, { 3.5744997030943584`*^9, 3.5744997039679604`*^9}, {3.5745008764068193`*^9, 3.5745008808060274`*^9}, {3.574500934766522*^9, 3.574500940522932*^9}, 3.574501053857131*^9, {3.5745011031844177`*^9, 3.574501125071256*^9}, { 3.5745011615129204`*^9, 3.574501162277322*^9}, {3.574501225909833*^9, 3.574501231323043*^9}, {3.575214298799343*^9, 3.5752143048053536`*^9}, { 3.57521445633682*^9, 3.5752144600652266`*^9}, {3.5752658325560775`*^9, 3.5752658462685013`*^9}, {3.5752659856859465`*^9, 3.5752659908027554`*^9}, {3.575266154774643*^9, 3.57526615872145*^9}, 3.5752663048469067`*^9, {3.5752666195306597`*^9, 3.5752666463315067`*^9}, { 3.575266793080964*^9, 3.575266804952585*^9}, {3.575267072383855*^9, 3.5752670807610693`*^9}}], Cell[BoxData[ RowBox[{ RowBox[{"Do", "[", RowBox[{ RowBox[{"(", RowBox[{ RowBox[{"c", "=", RowBox[{"conn", "[", RowBox[{"[", "k", "]"}], "]"}]}], ";", "\[IndentingNewLine]", RowBox[{"a1", "=", RowBox[{"dc", "[", RowBox[{"[", RowBox[{ RowBox[{"c", "[", RowBox[{"[", "2", "]"}], "]"}], ",", RowBox[{"c", "[", RowBox[{"[", "1", "]"}], "]"}]}], "]"}], "]"}]}], ";", " ", RowBox[{"a2", "=", RowBox[{"dc", "[", RowBox[{"[", RowBox[{ RowBox[{"c", "[", RowBox[{"[", "2", "]"}], "]"}], ",", RowBox[{"c", "[", RowBox[{"[", "3", "]"}], "]"}]}], "]"}], "]"}]}], ";", " ", RowBox[{"d1", "=", RowBox[{"dc", "[", RowBox[{"[", RowBox[{ RowBox[{"c", "[", RowBox[{"[", "1", "]"}], "]"}], ",", RowBox[{"c", "[", RowBox[{"[", "3", "]"}], "]"}]}], "]"}], "]"}]}], ";", "\[IndentingNewLine]", RowBox[{"\[Alpha]", "=", RowBox[{"ArcCos", "[", RowBox[{ RowBox[{"(", RowBox[{ RowBox[{"a1", "^", "2"}], "+", RowBox[{"a2", "^", "2"}], "-", RowBox[{"d1", "^", "2"}]}], ")"}], "/", RowBox[{"(", RowBox[{"2", "*", "a1", "*", "a2"}], ")"}]}], "]"}]}], ";", " ", RowBox[{ RowBox[{"alf", "[", RowBox[{"[", "k", "]"}], "]"}], "=", "\[Alpha]"}], ";", "\[IndentingNewLine]", RowBox[{"L", "=", RowBox[{"(", RowBox[{ RowBox[{"u2", "[", RowBox[{"[", RowBox[{"c", "[", RowBox[{"[", "2", "]"}], "]"}], "]"}], "]"}], "+", "rlo"}], ")"}]}], ";", "\[IndentingNewLine]", RowBox[{"\[Beta]", "=", RowBox[{"ArcSin", "[", RowBox[{"rlo", "/", "L"}], "]"}]}], ";", " ", RowBox[{ RowBox[{"bet", "[", RowBox[{"[", "k", "]"}], "]"}], "=", "\[Beta]"}], ";", "\[IndentingNewLine]", RowBox[{"\[Gamma]", "=", RowBox[{ RowBox[{"\[Pi]", "/", "2"}], "-", RowBox[{"\[Alpha]", "/", "2"}]}]}], ";", " ", RowBox[{ RowBox[{"gamm", "[", RowBox[{"[", "k", "]"}], "]"}], "=", "\[Gamma]"}], ";", "\[IndentingNewLine]", 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"}], "]"}], "]"}]}], "]"}]}], ";", " ", RowBox[{ RowBox[{"t1k", "[", RowBox[{"[", "k", "]"}], "]"}], "=", "T1"}], ";", "\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"}], "]"}], "]"}]}], "]"}]}], ";", " ", RowBox[{ RowBox[{"t2k", "[", RowBox[{"[", "k", "]"}], "]"}], "=", "T2"}], ";", "\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"}], "]"}], "]"}]}], "]"}]}], ";", " ", RowBox[{ RowBox[{"t3k", "[", RowBox[{"[", "k", "]"}], "]"}], "=", "T3"}], ";", "\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[{"2", ",", "1"}], "]"}], "]"}], "=", RowBox[{"L", "*", RowBox[{"Sin", "[", "\[Gamma]", "]"}], "*", RowBox[{"Cos", "[", "\[Beta]", "]"}]}]}], ";", " ", RowBox[{ RowBox[{"nk", "[", RowBox[{"[", RowBox[{"2", ",", "2"}], "]"}], "]"}], "=", RowBox[{"L", "*", RowBox[{"Cos", "[", "\[Gamma]", "]"}], "*", RowBox[{"Cos", "[", "\[Beta]", "]"}]}]}], ";", " ", RowBox[{ RowBox[{"nk", "[", RowBox[{"[", RowBox[{"2", ",", "3"}], "]"}], "]"}], "=", "rlo"}], ";", " ", "\[IndentingNewLine]", RowBox[{ RowBox[{"nl", "[", RowBox[{"[", RowBox[{"2", ",", "2"}], "]"}], "]"}], "=", RowBox[{"nk", "[", RowBox[{"[", RowBox[{"2", ",", "2"}], "]"}], "]"}]}], ";", " ", RowBox[{ RowBox[{"nl", "[", RowBox[{"[", RowBox[{"2", ",", "1"}], "]"}], "]"}], "=", RowBox[{"nk", "[", RowBox[{"[", RowBox[{"2", ",", "1"}], "]"}], "]"}]}], ";", " ", RowBox[{ RowBox[{"nl", "[", RowBox[{"[", RowBox[{"2", ",", "3"}], "]"}], "]"}], "=", RowBox[{"-", "rlo"}]}], ";", "\n", " ", RowBox[{ RowBox[{"nk", "[", RowBox[{"[", "2", "]"}], "]"}], "=", RowBox[{ RowBox[{"Ok", "[", RowBox[{"[", "k", "]"}], "]"}], "*", RowBox[{"nk", "[", RowBox[{"[", "2", "]"}], "]"}]}]}], ";", "\[IndentingNewLine]", RowBox[{ RowBox[{"nl", "[", RowBox[{"[", "2", "]"}], "]"}], "=", RowBox[{ RowBox[{"Ok", "[", RowBox[{"[", "k", "]"}], "]"}], "*", RowBox[{"nl", "[", RowBox[{"[", "2", "]"}], "]"}]}]}], ";", "\[IndentingNewLine]", RowBox[{ RowBox[{"Plota", "[", RowBox[{"[", "k", "]"}], "]"}], " ", "=", " ", RowBox[{"Table", "[", RowBox[{ RowBox[{"Graphics3D", "[", RowBox[{"{", RowBox[{ RowBox[{"Opacity", "[", "0.5", "]"}], ",", " ", RowBox[{"Sphere", "[", RowBox[{ RowBox[{"p", "[", RowBox[{"[", "i", "]"}], "]"}], ",", " ", RowBox[{"u2", "[", RowBox[{"[", RowBox[{"c", "[", RowBox[{"[", "i", "]"}], "]"}], "]"}], "]"}]}], "]"}]}], "}"}], "]"}], ",", " ", RowBox[{"{", RowBox[{"i", ",", " ", "1", ",", " ", "P"}], "}"}]}], "]"}]}], ";", " ", RowBox[{ RowBox[{"Plotc", "[", RowBox[{"[", "k", "]"}], "]"}], " ", "=", " ", RowBox[{"Table", "[", RowBox[{ RowBox[{"Graphics3D", "[", RowBox[{"{", RowBox[{"Tube", "[", RowBox[{ RowBox[{"{", RowBox[{ RowBox[{"p", "[", RowBox[{"[", "i", "]"}], "]"}], ",", " ", RowBox[{"p", "[", RowBox[{"[", "j", "]"}], "]"}]}], "}"}], ",", " ", "0.02"}], "]"}], "}"}], "]"}], ",", " ", RowBox[{"{", RowBox[{"i", ",", " ", "1", ",", " ", RowBox[{"P", " ", "-", " ", "1"}]}], "}"}], ",", " ", RowBox[{"{", RowBox[{"j", ",", " ", RowBox[{"i", " ", "+", " ", "1"}], ",", " ", "P"}], "}"}]}], "]"}]}], ";", " ", RowBox[{ RowBox[{"Plotd", "[", RowBox[{"[", "k", "]"}], "]"}], "=", " ", RowBox[{"Graphics3D", "[", RowBox[{"{", RowBox[{ RowBox[{"Opacity", "[", "0.5", "]"}], ",", " ", RowBox[{"Lighter", "[", "Red", "]"}], ",", " ", RowBox[{"Sphere", "[", RowBox[{ RowBox[{"nk", "[", RowBox[{"[", "2", "]"}], "]"}], ",", " ", "rlo"}], "]"}]}], "}"}], "]"}]}], ";", " ", RowBox[{ RowBox[{"Plote", "[", RowBox[{"[", "k", "]"}], "]"}], "=", " ", RowBox[{"Graphics3D", "[", RowBox[{"{", RowBox[{ RowBox[{"Opacity", "[", "0.5", "]"}], ",", " ", RowBox[{"Lighter", "[", "Red", "]"}], ",", " ", RowBox[{"Sphere", "[", RowBox[{ RowBox[{"nl", "[", RowBox[{"[", "2", "]"}], "]"}], ",", " ", "rlo"}], "]"}]}], "}"}], "]"}]}], ";", " ", RowBox[{ RowBox[{"Plotb0", "[", RowBox[{"[", "k", "]"}], "]"}], " ", "=", " ", RowBox[{"Table", "[", RowBox[{ RowBox[{"Graphics3D", "[", RowBox[{"Text", "[", RowBox[{ RowBox[{"c", "[", RowBox[{"[", "i", "]"}], "]"}], ",", " ", RowBox[{"p", "[", RowBox[{"[", "i", "]"}], "]"}], ",", " ", RowBox[{"{", RowBox[{"1", ",", " ", "0"}], "}"}]}], "]"}], "]"}], ",", " ", RowBox[{"{", RowBox[{"i", ",", " ", "1", ",", " ", "P"}], "}"}]}], "]"}]}], ";", "\[IndentingNewLine]", 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[{"tlo", "[", RowBox[{"[", "k", "]"}], "]"}], "=", RowBox[{"nk", "[", RowBox[{"[", "2", "]"}], "]"}]}], ";", "\[IndentingNewLine]", RowBox[{ RowBox[{"tlu", "[", RowBox[{"[", "k", "]"}], "]"}], "=", RowBox[{"nl", "[", RowBox[{"[", "2", "]"}], "]"}]}]}], ")"}], ",", RowBox[{"{", RowBox[{"k", ",", "4"}], "}"}]}], "]"}], ";"}]], "Input", CellChangeTimes->{{3.572794697520533*^9, 3.5727947043221455`*^9}, { 3.5727948024151173`*^9, 3.572794803507119*^9}, {3.5727948673580313`*^9, 3.572794869838436*^9}, {3.572795260993526*^9, 3.5727952676703377`*^9}, { 3.5727954366342344`*^9, 3.5727954702834935`*^9}, {3.5727973545484033`*^9, 3.5727973657024226`*^9}, {3.572803225319809*^9, 3.572803264553878*^9}, { 3.57280330550395*^9, 3.5728033127111626`*^9}, 3.5728033508376293`*^9, { 3.572803528365941*^9, 3.5728035301443443`*^9}, {3.572803715051469*^9, 3.572803769604765*^9}, {3.572840261866465*^9, 3.5728402628648667`*^9}, { 3.5728405648813972`*^9, 3.572840578905822*^9}, {3.5728406372187243`*^9, 3.572840716170463*^9}, {3.5728407476825185`*^9, 3.572840785746585*^9}, { 3.5728408298790627`*^9, 3.5728408871311636`*^9}, {3.5728409363336496`*^9, 3.572841070790286*^9}, {3.572841415987692*^9, 3.572841609740032*^9}, 3.5728416910629754`*^9, {3.5728417502806797`*^9, 3.572841879885707*^9}, { 3.572841914564568*^9, 3.5728419300709953`*^9}, {3.572841986199894*^9, 3.572842001659521*^9}, {3.5728426453322515`*^9, 3.5728426487174573`*^9}, { 3.572844776030794*^9, 3.572844786919613*^9}, {3.57284502999924*^9, 3.5728450550060835`*^9}, {3.572845459218394*^9, 3.572845496174859*^9}, { 3.5728455656105804`*^9, 3.572845617574272*^9}, {3.5728456738279705`*^9, 3.572845681440784*^9}, {3.5728457322656736`*^9, 3.572845755291314*^9}, 3.572845978356106*^9, {3.572846145151599*^9, 3.572846189096876*^9}, { 3.572846392926834*^9, 3.5728464086828613`*^9}, 3.572846518881455*^9, 3.5728469699562473`*^9, {3.5728470834620466`*^9, 3.572847089873658*^9}, { 3.572847132180932*^9, 3.5728472650151653`*^9}, 3.5728473515485177`*^9, { 3.572849422046554*^9, 3.572849426554962*^9}, {3.572849678776205*^9, 3.572849686077018*^9}, {3.5728503673146143`*^9, 3.5728503811830387`*^9}, { 3.5728505998798227`*^9, 3.572850604637831*^9}, 3.5730459405924234`*^9, { 3.5731485633994884`*^9, 3.5731485765503116`*^9}, {3.5731486137719765`*^9, 3.573148784124276*^9}, {3.573148880017645*^9, 3.5731489260377254`*^9}, { 3.573148979499019*^9, 3.5731489938822446`*^9}, {3.5731506972804365`*^9, 3.5731506982476377`*^9}, {3.573150757387342*^9, 3.5731507583389435`*^9}, { 3.57315079601301*^9, 3.5731508056382265`*^9}, {3.573151607464035*^9, 3.5731516101004395`*^9}, {3.5731826853813925`*^9, 3.57318272377306*^9}, 3.573183074758076*^9, {3.5740746292247467`*^9, 3.574074630301149*^9}, { 3.5740746649020095`*^9, 3.5740747139640956`*^9}, {3.5740747744610023`*^9, 3.574074848015131*^9}, {3.5740749399928927`*^9, 3.574075144556052*^9}, 3.574075176614108*^9, 3.5740754672894187`*^9, {3.574075548799562*^9, 3.574075581356819*^9}, 3.5740758787089415`*^9, 3.574135482290123*^9, 3.5741355446590323`*^9, {3.57434006146961*^9, 3.5743400666956196`*^9}, { 3.574490877033661*^9, 3.5744910620811863`*^9}, {3.5744914513018694`*^9, 3.5744914558882775`*^9}, {3.574499216903905*^9, 3.5744992394459443`*^9}, { 3.574499298538848*^9, 3.5744992992564497`*^9}, {3.574499382810196*^9, 3.574499384307799*^9}, {3.574499488531582*^9, 3.5744994933363905`*^9}, { 3.5744997030943584`*^9, 3.5744997039679604`*^9}, {3.5745008764068193`*^9, 3.5745008808060274`*^9}, {3.574500934766522*^9, 3.574500940522932*^9}, 3.574501053857131*^9, {3.5745011031844177`*^9, 3.574501125071256*^9}, { 3.5745011615129204`*^9, 3.574501162277322*^9}, {3.574501225909833*^9, 3.574501231323043*^9}, 3.575214298799343*^9, {3.5752143677202644`*^9, 3.575214385613496*^9}, {3.5752144336855803`*^9, 3.5752144356199837`*^9}, { 3.5752651421768646`*^9, 3.575265147418474*^9}, {3.575265215044593*^9, 3.5752653948505087`*^9}, {3.575265881680564*^9, 3.575265897795392*^9}, 3.5752659328330536`*^9, {3.5752660927177343`*^9, 3.5752661014849496`*^9}, 3.5752662705736465`*^9, {3.575266341928172*^9, 3.57526636364341*^9}, { 3.5752666521659164`*^9, 3.575266658873929*^9}, {3.5752667464680824`*^9, 3.5752667480124855`*^9}, {3.575266822518216*^9, 3.575266843484653*^9}, { 3.5752670346629887`*^9, 3.575267062056637*^9}, {3.575276264288258*^9, 3.575276290231104*^9}, {3.5752765594719763`*^9, 3.575276574494803*^9}, { 3.575276619329282*^9, 3.575276682212992*^9}, {3.5752767790579624`*^9, 3.5752768182296314`*^9}, {3.5752769283502245`*^9, 3.575276942281049*^9}}], Cell[CellGroupData[{ Cell[BoxData[ RowBox[{" ", RowBox[{"Table", "[", RowBox[{ RowBox[{"Show", "[", RowBox[{ RowBox[{"Plotd", "[", RowBox[{"[", "i", "]"}], "]"}], ",", RowBox[{"Plote", "[", RowBox[{"[", "i", "]"}], "]"}], ",", " ", RowBox[{"Plota", "[", RowBox[{"[", "i", "]"}], "]"}], ",", " ", RowBox[{"Plotb0", "[", RowBox[{"[", "i", "]"}], "]"}], ",", " ", RowBox[{"Plotc", "[", RowBox[{"[", "i", "]"}], "]"}], ",", " ", RowBox[{"{", RowBox[{ RowBox[{"Axes", " ", "->", " ", "Automatic"}], ",", " ", RowBox[{"AxesLabel", " ", "->", " ", RowBox[{"{", RowBox[{"xl", ",", " ", "yl", ",", " ", "zl"}], "}"}]}], ",", " ", "\n", " ", RowBox[{"AspectRatio", " ", "->", " ", "Automatic"}], ",", " ", RowBox[{"Boxed", " ", "->", " ", "False"}], ",", " ", RowBox[{"PlotRange", " ", "->", " ", "Automatic"}], ",", " ", RowBox[{"SphericalRegion", " ", "->", " ", "True"}]}], "}"}]}], "]"}], ",", RowBox[{"{", RowBox[{"i", ",", "1", ",", "hj"}], "}"}]}], "]"}]}]], "Input", CellChangeTimes->{{3.572794697520533*^9, 3.5727947043221455`*^9}, { 3.5727948024151173`*^9, 3.572794803507119*^9}, {3.5727948673580313`*^9, 3.572794869838436*^9}, {3.572795260993526*^9, 3.5727952676703377`*^9}, { 3.5727954366342344`*^9, 3.5727954702834935`*^9}, {3.5727973545484033`*^9, 3.5727973657024226`*^9}, {3.572803225319809*^9, 3.572803264553878*^9}, { 3.57280330550395*^9, 3.5728033127111626`*^9}, 3.5728033508376293`*^9, { 3.572803528365941*^9, 3.5728035301443443`*^9}, {3.572803715051469*^9, 3.572803769604765*^9}, {3.572840261866465*^9, 3.5728402628648667`*^9}, { 3.5728405648813972`*^9, 3.572840578905822*^9}, {3.5728406372187243`*^9, 3.572840716170463*^9}, {3.5728407476825185`*^9, 3.572840785746585*^9}, { 3.5728408298790627`*^9, 3.5728408871311636`*^9}, {3.5728409363336496`*^9, 3.572841070790286*^9}, {3.572841415987692*^9, 3.572841609740032*^9}, 3.5728416910629754`*^9, {3.5728417502806797`*^9, 3.572841879885707*^9}, { 3.572841914564568*^9, 3.5728419300709953`*^9}, {3.572841986199894*^9, 3.572842001659521*^9}, {3.5728426453322515`*^9, 3.5728426487174573`*^9}, { 3.572844776030794*^9, 3.572844786919613*^9}, {3.57284502999924*^9, 3.5728450550060835`*^9}, {3.572845459218394*^9, 3.572845496174859*^9}, { 3.5728455656105804`*^9, 3.572845617574272*^9}, {3.5728456738279705`*^9, 3.572845681440784*^9}, {3.5728457322656736`*^9, 3.572845755291314*^9}, 3.572845978356106*^9, {3.572846145151599*^9, 3.572846189096876*^9}, { 3.572846392926834*^9, 3.5728464086828613`*^9}, 3.572846518881455*^9, 3.5728469699562473`*^9, {3.5728470834620466`*^9, 3.572847089873658*^9}, { 3.572847132180932*^9, 3.5728472650151653`*^9}, 3.5728473515485177`*^9, { 3.572849422046554*^9, 3.572849426554962*^9}, {3.572849678776205*^9, 3.572849686077018*^9}, {3.5728503673146143`*^9, 3.5728503811830387`*^9}, { 3.5728505998798227`*^9, 3.572850604637831*^9}, 3.5730459405924234`*^9, { 3.5731485633994884`*^9, 3.5731485765503116`*^9}, {3.5731486137719765`*^9, 3.573148784124276*^9}, {3.573148880017645*^9, 3.5731489260377254`*^9}, { 3.573148979499019*^9, 3.5731489938822446`*^9}, {3.5731506972804365`*^9, 3.5731506982476377`*^9}, {3.573150757387342*^9, 3.5731507583389435`*^9}, { 3.57315079601301*^9, 3.5731508056382265`*^9}, {3.573151607464035*^9, 3.5731516101004395`*^9}, {3.5731826853813925`*^9, 3.57318272377306*^9}, 3.573183074758076*^9, {3.5740746292247467`*^9, 3.574074630301149*^9}, { 3.5740746649020095`*^9, 3.5740747139640956`*^9}, {3.5740747744610023`*^9, 3.574074848015131*^9}, {3.5740749399928927`*^9, 3.574075144556052*^9}, 3.574075176614108*^9, 3.5740754672894187`*^9, {3.574075548799562*^9, 3.574075581356819*^9}, 3.5740758787089415`*^9, 3.574135482290123*^9, 3.5741355446590323`*^9, {3.57434006146961*^9, 3.5743400666956196`*^9}, { 3.574490877033661*^9, 3.5744910620811863`*^9}, {3.5744914513018694`*^9, 3.5744914558882775`*^9}, {3.574499216903905*^9, 3.5744992394459443`*^9}, { 3.574499298538848*^9, 3.5744992992564497`*^9}, {3.574499382810196*^9, 3.574499384307799*^9}, {3.574499488531582*^9, 3.5744994933363905`*^9}, { 3.5744997030943584`*^9, 3.5744997039679604`*^9}, {3.5745008764068193`*^9, 3.5745008808060274`*^9}, {3.574500934766522*^9, 3.574500940522932*^9}, 3.574501053857131*^9, {3.5745011031844177`*^9, 3.574501125071256*^9}, { 3.5745011615129204`*^9, 3.574501162277322*^9}, {3.574501225909833*^9, 3.574501231323043*^9}, 3.575214298799343*^9, {3.5752143677202644`*^9, 3.575214385613496*^9}, {3.5752144336855803`*^9, 3.575214438381189*^9}}], Cell[BoxData[ RowBox[{"{", RowBox[{ Graphics3DBox[{ {RGBColor[1, NCache[ Rational[1, 3], 0.3333333333333333], NCache[ Rational[1, 3], 0.3333333333333333]], Opacity[0.5], SphereBox[{-0.38534806282949535`, 0.5326263892012442, 1.125}, 1.125]}, {RGBColor[1, NCache[ Rational[1, 3], 0.3333333333333333], NCache[ Rational[1, 3], 0.3333333333333333]], Opacity[0.5], SphereBox[{-0.38534806282949535`, 0.5326263892012442, -1.125}, 1.125]}, {Opacity[0.5], SphereBox[{2.6493745213838977`, 0, 0}, 0.257]}, {Opacity[0.5], SphereBox[{0, 0, 0}, 0.178]}, {Opacity[0.5], SphereBox[{-0.8372582073707878, -2.542118752128715, 0}, 0.257]}, Text3DBox["9", {2.6493745213838977`, 0, 0}, {1, 0}], Text3DBox["16", {0, 0, 0}, {1, 0}], Text3DBox["8", {-0.8372582073707878, -2.542118752128715, 0}, {1, 0}], TubeBox[{{2.6493745213838977`, 0, 0}, {0, 0, 0}}, 0.02], TubeBox[{{ 2.6493745213838977`, 0, 0}, {-0.8372582073707878, -2.542118752128715, 0}}, 0.02], TubeBox[{{0, 0, 0}, {-0.8372582073707878, -2.542118752128715, 0}}, 0.02]}, AspectRatio->Automatic, Axes->Automatic, AxesLabel->{ FormBox["xl", TraditionalForm], FormBox["yl", TraditionalForm], FormBox["zl", TraditionalForm]}, Boxed->False, PlotRange->Automatic, SphericalRegion->True], ",", Graphics3DBox[{ {RGBColor[1, NCache[ Rational[1, 3], 0.3333333333333333], NCache[ Rational[1, 3], 0.3333333333333333]], Opacity[0.5], SphereBox[{0.39151370641357486`, 0.5281108005810002, 1.125}, 1.125]}, {RGBColor[1, NCache[ Rational[1, 3], 0.3333333333333333], NCache[ Rational[1, 3], 0.3333333333333333]], Opacity[0.5], SphereBox[{0.39151370641357486`, 0.5281108005810002, -1.125}, 1.125]}, {Opacity[0.5], SphereBox[{-1.8161408924536295`, 0, 0}, 0.5241]}, {Opacity[0.5], SphereBox[{0, 0, 0}, 0.178]}, {Opacity[0.5], SphereBox[{0.7695051766751547, -2.5331538356000376`, 0}, 0.257]}, Text3DBox["30", {-1.8161408924536295`, 0, 0}, {1, 0}], Text3DBox["17", {0, 0, 0}, {1, 0}], Text3DBox["7", {0.7695051766751547, -2.5331538356000376`, 0}, {1, 0}], TubeBox[{{-1.8161408924536295`, 0, 0}, {0, 0, 0}}, 0.02], TubeBox[{{-1.8161408924536295`, 0, 0}, { 0.7695051766751547, -2.5331538356000376`, 0}}, 0.02], TubeBox[{{0, 0, 0}, {0.7695051766751547, -2.5331538356000376`, 0}}, 0.02]}, AspectRatio->Automatic, Axes->Automatic, AxesLabel->{ FormBox["xl", TraditionalForm], FormBox["yl", TraditionalForm], FormBox["zl", TraditionalForm]}, Boxed->False, PlotRange->Automatic, SphericalRegion->True], ",", Graphics3DBox[{ {RGBColor[1, NCache[ Rational[1, 3], 0.3333333333333333], NCache[ Rational[1, 3], 0.3333333333333333]], Opacity[0.5], SphereBox[{0.39150467865641503`, 0.5281174931680801, 1.125}, 1.125]}, {RGBColor[1, NCache[ Rational[1, 3], 0.3333333333333333], NCache[ Rational[1, 3], 0.3333333333333333]], Opacity[0.5], SphereBox[{0.39150467865641503`, 0.5281174931680801, -1.125}, 1.125]}, {Opacity[0.5], SphereBox[{-2.6474630868316593`, 0, 0}, 0.257]}, {Opacity[0.5], SphereBox[{0, 0, 0}, 0.178]}, {Opacity[0.5], SphereBox[{0.5278804241089614, -1.7375295124215415`, 0}, 0.5241]}, Text3DBox["6", {-2.6474630868316593`, 0, 0}, {1, 0}], Text3DBox["18", {0, 0, 0}, {1, 0}], Text3DBox["29", {0.5278804241089614, -1.7375295124215415`, 0}, {1, 0}], TubeBox[{{-2.6474630868316593`, 0, 0}, {0, 0, 0}}, 0.02], TubeBox[{{-2.6474630868316593`, 0, 0}, { 0.5278804241089614, -1.7375295124215415`, 0}}, 0.02], TubeBox[{{0, 0, 0}, {0.5278804241089614, -1.7375295124215415`, 0}}, 0.02]}, AspectRatio->Automatic, Axes->Automatic, AxesLabel->{ FormBox["xl", TraditionalForm], FormBox["yl", TraditionalForm], FormBox["zl", TraditionalForm]}, Boxed->False, PlotRange->Automatic, SphericalRegion->True], ",", Graphics3DBox[{ {RGBColor[1, NCache[ Rational[1, 3], 0.3333333333333333], NCache[ Rational[1, 3], 0.3333333333333333]], Opacity[0.5], SphereBox[{0.32869913988392513`, 0.5693337118418053, 1.125}, 1.125]}, {RGBColor[1, NCache[ Rational[1, 3], 0.3333333333333333], NCache[ Rational[1, 3], 0.3333333333333333]], Opacity[0.5], SphereBox[{0.32869913988392513`, 0.5693337118418053, -1.125}, 1.125]}, {Opacity[0.5], SphereBox[{-2.6494159094219256`, 0, 0}, 0.2556]}, {Opacity[0.5], SphereBox[{0, 0, 0}, 0.178]}, {Opacity[0.5], SphereBox[{0.8901323033714076, -1.541699668282284, 0}, 0.5241]}, Text3DBox["10", {-2.6494159094219256`, 0, 0}, {1, 0}], Text3DBox["19", {0, 0, 0}, {1, 0}], Text3DBox["24", {0.8901323033714076, -1.541699668282284, 0}, {1, 0}], TubeBox[{{-2.6494159094219256`, 0, 0}, {0, 0, 0}}, 0.02], TubeBox[{{-2.6494159094219256`, 0, 0}, { 0.8901323033714076, -1.541699668282284, 0}}, 0.02], TubeBox[{{0, 0, 0}, {0.8901323033714076, -1.541699668282284, 0}}, 0.02]}, AspectRatio->Automatic, Axes->Automatic, AxesLabel->{ FormBox["xl", TraditionalForm], FormBox["yl", TraditionalForm], FormBox["zl", TraditionalForm]}, Boxed->False, PlotRange->Automatic, SphericalRegion->True]}], "}"}]], "Output", CellChangeTimes->CompressedData[" 1:eJxTTMoPSmVkYGDQAeJzxyeb6y1+5biH2zsVROev/JsPordlP2wC0Q9Xxl8A 0X8un83XB9JlZ/XLQfRhI459BkB6g6TwexDtZPPKxBVIuz2r9ALR1xY+DgHR hZpn4kH0z5zKNBB95Y7pVDcgfYExbS6ITitZsBhES61gXgGiL2+5vwlEn7u8 dgeIzvObsxdEc6qLHQHRmwz9ToPoA/t2XAbRs+Sf3QDRXHkxce5AuiNrRhaI PpGXnw+igyoP1oDoJzvYG0F02X7PDhA9bcm5DSA6J3/RDhAdvmL3MRC9pt7j JYie3yOf6AOkVSo2t4Bo7wT2bhB9r0J2Eoi+xSK6GESzrZi9Ccx/WpHtCwq3 xy8rQPQlg67FWWteOQIAIU+7Dg== "]] }, Open ]], Cell[CellGroupData[{ Cell[BoxData[{ RowBox[{"rad", "*", "alf"}], "\[IndentingNewLine]", RowBox[{"rad", "*", "bet"}], "\[IndentingNewLine]", RowBox[{"rad", "*", "gamm"}], "\[IndentingNewLine]", "t1k", "\[IndentingNewLine]", "t2k", "\ \[IndentingNewLine]", "t3k"}], "Input", CellChangeTimes->{{3.5752664147803*^9, 3.5752664172451043`*^9}, { 3.5752666832255716`*^9, 3.575266685752776*^9}, {3.575266857368677*^9, 3.5752668611126842`*^9}, {3.5752671074215164`*^9, 3.575267134253564*^9}}], Cell[BoxData[ RowBox[{"{", RowBox[{ "108.22953028095999`", ",", "106.89739493117796`", ",", "106.89935379702793`", ",", "120.0008803309398`"}], "}"}]], "Output", CellChangeTimes->{3.57526627806166*^9, 3.57526631227252*^9, 3.575266370335822*^9, 3.5752666944731913`*^9, 3.5752667570917015`*^9, 3.575266869895499*^9, 3.575267146296785*^9, 3.575276297032716*^9, 3.5752765816396155`*^9, 3.5752766322461042`*^9, 3.5752766889522038`*^9, 3.5752768246880426`*^9, 3.5752769488954606`*^9, 3.5752784277936583`*^9, 3.575278535324647*^9, 3.580056860340461*^9}], Cell[BoxData[ RowBox[{"{", RowBox[{ "59.69961629300685`", ",", "59.69961629300685`", ",", "59.69961629300685`", ",", "59.69961629300685`"}], "}"}]], "Output", CellChangeTimes->{3.57526627806166*^9, 3.57526631227252*^9, 3.575266370335822*^9, 3.5752666944731913`*^9, 3.5752667570917015`*^9, 3.575266869895499*^9, 3.575267146296785*^9, 3.575276297032716*^9, 3.5752765816396155`*^9, 3.5752766322461042`*^9, 3.5752766889522038`*^9, 3.5752768246880426`*^9, 3.5752769488954606`*^9, 3.5752784277936583`*^9, 3.575278535324647*^9, 3.5800568603424606`*^9}], Cell[BoxData[ RowBox[{"{", RowBox[{ "35.88523483897034`", ",", "36.55130251386136`", ",", "36.55032308093637`", ",", "29.99955981398044`"}], "}"}]], "Output", CellChangeTimes->{3.57526627806166*^9, 3.57526631227252*^9, 3.575266370335822*^9, 3.5752666944731913`*^9, 3.5752667570917015`*^9, 3.575266869895499*^9, 3.575267146296785*^9, 3.575276297032716*^9, 3.5752765816396155`*^9, 3.5752766322461042`*^9, 3.5752766889522038`*^9, 3.5752768246880426`*^9, 3.5752769488954606`*^9, 3.5752784277936583`*^9, 3.575278535324647*^9, 3.580056860343461*^9}], Cell[BoxData[ RowBox[{"{", RowBox[{ RowBox[{"-", "0.20154836541980914`"}], ",", "1.5444138898246706`", ",", "0.5869302485154165`", ",", RowBox[{"-", "0.5938445385666808`"}]}], "}"}]], "Output", CellChangeTimes->{3.57526627806166*^9, 3.57526631227252*^9, 3.575266370335822*^9, 3.5752666944731913`*^9, 3.5752667570917015`*^9, 3.575266869895499*^9, 3.575267146296785*^9, 3.575276297032716*^9, 3.5752765816396155`*^9, 3.5752766322461042`*^9, 3.5752766889522038`*^9, 3.5752768246880426`*^9, 3.5752769488954606`*^9, 3.5752784277936583`*^9, 3.575278535324647*^9, 3.5800568603444605`*^9}], Cell[BoxData[ RowBox[{"{", RowBox[{"0.19048979873724856`", ",", RowBox[{"-", "0.7191170383886483`"}], ",", "0.7182475164724347`", ",", "1.110852012874067`"}], "}"}]], "Output", CellChangeTimes->{3.57526627806166*^9, 3.57526631227252*^9, 3.575266370335822*^9, 3.5752666944731913`*^9, 3.5752667570917015`*^9, 3.575266869895499*^9, 3.575267146296785*^9, 3.575276297032716*^9, 3.5752765816396155`*^9, 3.5752766322461042`*^9, 3.5752766889522038`*^9, 3.5752768246880426`*^9, 3.5752769488954606`*^9, 3.5752784277936583`*^9, 3.575278535324647*^9, 3.580056860347461*^9}], Cell[BoxData[ RowBox[{"{", RowBox[{ RowBox[{"-", "1.445988650230639`"}], ",", RowBox[{"-", "0.8259317074659621`"}], ",", "0.6007205586288569`", ",", "1.2722887063732806`"}], "}"}]], "Output", CellChangeTimes->{3.57526627806166*^9, 3.57526631227252*^9, 3.575266370335822*^9, 3.5752666944731913`*^9, 3.5752667570917015`*^9, 3.575266869895499*^9, 3.575267146296785*^9, 3.575276297032716*^9, 3.5752765816396155`*^9, 3.5752766322461042`*^9, 3.5752766889522038`*^9, 3.5752768246880426`*^9, 3.5752769488954606`*^9, 3.5752784277936583`*^9, 3.575278535324647*^9, 3.580056860348461*^9}] }, Open ]], Cell[BoxData[ StyleBox[ RowBox[{ RowBox[{"(*", RowBox[{"--", RowBox[{"--", RowBox[{"--", RowBox[{"--", RowBox[{"--", RowBox[{"--", RowBox[{"--", RowBox[{"--", RowBox[{"--", RowBox[{"--", RowBox[{"--", RowBox[{"--", RowBox[{"--", RowBox[{"--", RowBox[{"--", RowBox[{"--", RowBox[{"--", RowBox[{"--", RowBox[{"--", RowBox[{"--", RowBox[{"--", RowBox[{"--", RowBox[{"--", RowBox[{"--", RowBox[{"--", RowBox[{"--", RowBox[{"--", RowBox[{"--", RowBox[{"--", RowBox[{"--", RowBox[{"--", RowBox[{"--", RowBox[{"--", RowBox[{"--", RowBox[{"--", RowBox[{ "--", "-"}]}]}]}]}]}]}]}]}]}]}]}]}]}]}]}]}]}]}]}]}]}]}]}]}\ ]}]}]}]}]}]}]}]}]}]}]}], "*)"}], "\[IndentingNewLine]", RowBox[{"(*", " ", RowBox[{ RowBox[{"next", ":", " ", "N11"}], ",", " ", "N12", ",", " ", RowBox[{ "N14", " ", "one", " ", "doubly", " ", "occ", " ", "LP", " ", "as", " ", "sp2", " ", "ligand"}]}], " ", "*)"}]}], "Text"]], "Input", CellChangeTimes->{{3.572794697520533*^9, 3.5727947043221455`*^9}, { 3.5727948024151173`*^9, 3.572794803507119*^9}, {3.5727948673580313`*^9, 3.572794869838436*^9}, {3.572795260993526*^9, 3.5727952676703377`*^9}, { 3.5727954366342344`*^9, 3.5727954702834935`*^9}, {3.5727973545484033`*^9, 3.5727973657024226`*^9}, {3.572803225319809*^9, 3.572803264553878*^9}, { 3.57280330550395*^9, 3.5728033127111626`*^9}, 3.5728033508376293`*^9, { 3.572803528365941*^9, 3.5728035301443443`*^9}, {3.572803715051469*^9, 3.572803769604765*^9}, {3.572840261866465*^9, 3.5728402628648667`*^9}, { 3.5728405648813972`*^9, 3.572840578905822*^9}, {3.5728406372187243`*^9, 3.572840716170463*^9}, {3.5728407476825185`*^9, 3.572840785746585*^9}, { 3.5728408298790627`*^9, 3.5728408871311636`*^9}, {3.5728409363336496`*^9, 3.572841070790286*^9}, {3.572841415987692*^9, 3.572841609740032*^9}, 3.5728416910629754`*^9, {3.5728417502806797`*^9, 3.572841879885707*^9}, { 3.572841914564568*^9, 3.5728419300709953`*^9}, {3.572841986199894*^9, 3.572842001659521*^9}, {3.5728426453322515`*^9, 3.5728426487174573`*^9}, { 3.572844776030794*^9, 3.572844786919613*^9}, {3.57284502999924*^9, 3.5728450550060835`*^9}, {3.572845459218394*^9, 3.572845496174859*^9}, { 3.5728455656105804`*^9, 3.572845617574272*^9}, {3.5728456738279705`*^9, 3.572845681440784*^9}, {3.5728457322656736`*^9, 3.572845755291314*^9}, 3.572845978356106*^9, {3.572846145151599*^9, 3.572846189096876*^9}, { 3.572846392926834*^9, 3.5728464086828613`*^9}, 3.572846518881455*^9, 3.5728469699562473`*^9, {3.5728470834620466`*^9, 3.572847089873658*^9}, { 3.572847132180932*^9, 3.5728472650151653`*^9}, 3.5728473515485177`*^9, { 3.572849422046554*^9, 3.572849426554962*^9}, {3.572849678776205*^9, 3.572849686077018*^9}, {3.5728503673146143`*^9, 3.5728503811830387`*^9}, { 3.5728505998798227`*^9, 3.572850604637831*^9}, 3.5730459405924234`*^9, { 3.5731485633994884`*^9, 3.5731485765503116`*^9}, {3.5731486137719765`*^9, 3.57314870088253*^9}, {3.5740711445842266`*^9, 3.5740711934435124`*^9}, { 3.5740712484648085`*^9, 3.574071311114519*^9}, {3.574071353780594*^9, 3.5740714392063437`*^9}, {3.5740717257632475`*^9, 3.574071742283676*^9}, { 3.574071857115478*^9, 3.574071918189585*^9}, {3.5740720907414885`*^9, 3.5740720966694984`*^9}, {3.5740721676028233`*^9, 3.5740721835304513`*^9}, {3.5740722327953377`*^9, 3.574072381432399*^9}, { 3.57407241628286*^9, 3.5740725747635384`*^9}, {3.5740726677709017`*^9, 3.5740726864129343`*^9}, {3.5740729230809503`*^9, 3.574072923455351*^9}, { 3.5740729588050127`*^9, 3.574072990707069*^9}, {3.5740730904380445`*^9, 3.5740730958668537`*^9}, {3.574073130155714*^9, 3.57407314478854*^9}, { 3.574073269853959*^9, 3.5740733111160316`*^9}, {3.5740733441100893`*^9, 3.5740733480412965`*^9}, {3.5740733832037582`*^9, 3.5740734276482363`*^9}, 3.5740740818977857`*^9, 3.574074116810647*^9, {3.574074166481134*^9, 3.5740741666527348`*^9}, {3.57407419825839*^9, 3.5740742105668116`*^9}, { 3.574074252827286*^9, 3.5740742532484865`*^9}, {3.5740743137765927`*^9, 3.5740743140105934`*^9}, {3.574074358345871*^9, 3.5740743585954714`*^9}, 3.5740754073385134`*^9, {3.5741353517646933`*^9, 3.5741353928551655`*^9}, 3.574135465457693*^9, {3.574484765977767*^9, 3.574484862073936*^9}, { 3.5744849882001576`*^9, 3.574485043705055*^9}, {3.5744851789572926`*^9, 3.5744851982389264`*^9}, {3.5744852859110804`*^9, 3.5744852918702908`*^9}, 3.5752146686375933`*^9, {3.575214703316454*^9, 3.575214752674941*^9}, 3.5752147864334*^9, {3.5752148167910533`*^9, 3.575214843825901*^9}, { 3.575214952183691*^9, 3.575214963368911*^9}}], Cell[BoxData[{ RowBox[{ RowBox[{"k", "=", "1"}], ";"}], "\[IndentingNewLine]", RowBox[{ RowBox[{"Clear", "[", RowBox[{ "conn", ",", "\[Alpha]", ",", "\[Beta]", ",", "\[Gamma]", ",", "gamm"}], "]"}], ";"}], "\[IndentingNewLine]", RowBox[{ RowBox[{"tpln", "=", RowBox[{"{", RowBox[{ RowBox[{"{", RowBox[{"0.0", ",", "0.0", ",", "0.0"}], "}"}], ",", RowBox[{"{", RowBox[{"0.0", ",", "0.0", ",", "0.0"}], "}"}], ",", RowBox[{"{", RowBox[{"0.0", ",", "0.0", ",", "0.0"}], "}"}]}], "}"}]}], ";"}], "\[IndentingNewLine]", RowBox[{ RowBox[{"conn", "=", RowBox[{"{", RowBox[{ RowBox[{"{", RowBox[{"4", ",", "11", ",", "1"}], "}"}], ",", RowBox[{"{", RowBox[{"1", ",", "12", ",", "2"}], "}"}], ",", RowBox[{"{", RowBox[{"5", ",", "14", ",", "3"}], "}"}]}], "}"}]}], ";"}], "\n", RowBox[{ RowBox[{"rln", "=", "1.246"}], ";"}], "\[IndentingNewLine]", RowBox[{ RowBox[{ RowBox[{"Plota", "=", " ", RowBox[{"Table", "[", RowBox[{ RowBox[{"{", "0", "}"}], ",", " ", RowBox[{"{", RowBox[{"i", ",", " ", "1", ",", " ", "3"}], "}"}]}], "]"}]}], ";"}], " "}], "\n", RowBox[{ RowBox[{"Plotc", "=", " ", "Plota"}], ";"}], "\n", RowBox[{ RowBox[{ RowBox[{"Plotd", " ", "=", "Plota"}], ";"}], " "}], "\n", RowBox[{ RowBox[{ RowBox[{"Plotb0", " ", "=", "Plota"}], ";"}], " "}], "\[IndentingNewLine]", RowBox[{ RowBox[{"Ok", "=", RowBox[{"{", RowBox[{ RowBox[{"{", RowBox[{ RowBox[{"-", "1"}], ",", "1", ",", "1"}], "}"}], ",", RowBox[{"{", RowBox[{"1", ",", RowBox[{"-", "1"}], ",", "1"}], "}"}], ",", RowBox[{"{", RowBox[{ RowBox[{"-", "1"}], ",", "1", ",", "1"}], "}"}]}], "}"}]}], ";"}], "\[IndentingNewLine]", RowBox[{ RowBox[{"gamm", "=", RowBox[{"{", RowBox[{"0", ",", "0", ",", "0"}], "}"}]}], ";"}]}], "Input", CellChangeTimes->{{3.572794697520533*^9, 3.5727947043221455`*^9}, { 3.5727948024151173`*^9, 3.572794803507119*^9}, {3.5727948673580313`*^9, 3.572794869838436*^9}, {3.572795260993526*^9, 3.5727952676703377`*^9}, { 3.5727954366342344`*^9, 3.5727954702834935`*^9}, {3.5727973545484033`*^9, 3.5727973657024226`*^9}, {3.572803225319809*^9, 3.572803264553878*^9}, { 3.57280330550395*^9, 3.5728033127111626`*^9}, 3.5728033508376293`*^9, { 3.572803528365941*^9, 3.5728035301443443`*^9}, {3.572803715051469*^9, 3.572803769604765*^9}, {3.572840261866465*^9, 3.5728402628648667`*^9}, { 3.5728405648813972`*^9, 3.572840578905822*^9}, {3.5728406372187243`*^9, 3.572840716170463*^9}, {3.5728407476825185`*^9, 3.572840785746585*^9}, { 3.5728408298790627`*^9, 3.5728408871311636`*^9}, {3.5728409363336496`*^9, 3.572841070790286*^9}, {3.572841415987692*^9, 3.572841609740032*^9}, 3.5728416910629754`*^9, {3.5728417502806797`*^9, 3.572841879885707*^9}, { 3.572841914564568*^9, 3.5728419300709953`*^9}, {3.572841986199894*^9, 3.572842001659521*^9}, {3.5728426453322515`*^9, 3.5728426487174573`*^9}, { 3.572844776030794*^9, 3.572844786919613*^9}, {3.57284502999924*^9, 3.5728450550060835`*^9}, {3.572845459218394*^9, 3.572845496174859*^9}, { 3.5728455656105804`*^9, 3.572845617574272*^9}, {3.5728456738279705`*^9, 3.572845681440784*^9}, {3.5728457322656736`*^9, 3.572845755291314*^9}, 3.572845978356106*^9, {3.572846145151599*^9, 3.572846189096876*^9}, { 3.572846392926834*^9, 3.5728464086828613`*^9}, 3.572846518881455*^9, 3.5728469699562473`*^9, {3.5728470834620466`*^9, 3.572847089873658*^9}, { 3.572847132180932*^9, 3.5728472650151653`*^9}, 3.5728473515485177`*^9, { 3.572849422046554*^9, 3.572849426554962*^9}, {3.572849678776205*^9, 3.572849686077018*^9}, {3.5728503673146143`*^9, 3.5728503811830387`*^9}, { 3.5728505998798227`*^9, 3.572850604637831*^9}, 3.5730459405924234`*^9, { 3.5731485633994884`*^9, 3.5731485765503116`*^9}, {3.5731486137719765`*^9, 3.57314870088253*^9}, {3.5740711445842266`*^9, 3.5740711934435124`*^9}, { 3.5740712484648085`*^9, 3.574071311114519*^9}, {3.574071353780594*^9, 3.5740714392063437`*^9}, {3.5740717257632475`*^9, 3.574071742283676*^9}, { 3.574071857115478*^9, 3.574071918189585*^9}, {3.5740720907414885`*^9, 3.5740720966694984`*^9}, {3.5740721676028233`*^9, 3.5740721835304513`*^9}, {3.5740722327953377`*^9, 3.574072381432399*^9}, { 3.57407241628286*^9, 3.5740725747635384`*^9}, {3.5740726677709017`*^9, 3.5740726864129343`*^9}, {3.5740729230809503`*^9, 3.574072923455351*^9}, { 3.5740729588050127`*^9, 3.574072990707069*^9}, {3.5740730904380445`*^9, 3.5740730958668537`*^9}, {3.574073130155714*^9, 3.57407314478854*^9}, { 3.574073269853959*^9, 3.5740733111160316`*^9}, {3.5740733441100893`*^9, 3.5740733480412965`*^9}, {3.5740733832037582`*^9, 3.5740734276482363`*^9}, 3.5740740818977857`*^9, 3.574074116810647*^9, {3.574074166481134*^9, 3.5740741666527348`*^9}, {3.57407419825839*^9, 3.5740742105668116`*^9}, { 3.574074252827286*^9, 3.5740742532484865`*^9}, {3.5740743137765927`*^9, 3.5740743140105934`*^9}, {3.574074358345871*^9, 3.5740743585954714`*^9}, 3.5740754073385134`*^9, {3.5741353517646933`*^9, 3.5741353928551655`*^9}, 3.574135465457693*^9, {3.574484765977767*^9, 3.574484862073936*^9}, { 3.5744849882001576`*^9, 3.574485043705055*^9}, {3.5744851789572926`*^9, 3.5744851982389264`*^9}, {3.5744852859110804`*^9, 3.5744852918702908`*^9}, 3.5752146686375933`*^9, {3.575214703316454*^9, 3.575214752674941*^9}, 3.5752147864334*^9, {3.5752148167910533`*^9, 3.575214843825901*^9}, { 3.575214952183691*^9, 3.57521496862612*^9}, {3.575215119337985*^9, 3.5752151197903852`*^9}, {3.575220019863165*^9, 3.5752200639176426`*^9}, { 3.57526155271976*^9, 3.575261571346193*^9}, {3.575261988256925*^9, 3.5752619961505394`*^9}, {3.5752642988861837`*^9, 3.5752643466066675`*^9}, {3.575264476383295*^9, 3.5752645335105953`*^9}, { 3.575264738682156*^9, 3.575264741271761*^9}, {3.5752647907862473`*^9, 3.575264795669056*^9}, {3.5752648505031524`*^9, 3.5752648523439555`*^9}, { 3.575264901437242*^9, 3.5752649099080567`*^9}, {3.5752660077443852`*^9, 3.5752660092263875`*^9}}], Cell[BoxData[ RowBox[{ RowBox[{"Do", "[", RowBox[{ RowBox[{"(", RowBox[{ RowBox[{"c", "=", RowBox[{"conn", "[", RowBox[{"[", "k", "]"}], "]"}]}], ";", "\[IndentingNewLine]", RowBox[{"a1", "=", RowBox[{"dc", "[", RowBox[{"[", RowBox[{ RowBox[{"c", "[", RowBox[{"[", "2", "]"}], "]"}], ",", RowBox[{"c", "[", RowBox[{"[", "1", "]"}], "]"}]}], "]"}], "]"}]}], ";", " ", RowBox[{"a2", "=", RowBox[{"dc", "[", RowBox[{"[", RowBox[{ RowBox[{"c", "[", RowBox[{"[", "2", "]"}], "]"}], ",", RowBox[{"c", "[", RowBox[{"[", "3", "]"}], "]"}]}], "]"}], "]"}]}], ";", " ", RowBox[{"d1", "=", RowBox[{"dc", "[", RowBox[{"[", RowBox[{ RowBox[{"c", "[", RowBox[{"[", "1", "]"}], "]"}], ",", RowBox[{"c", "[", RowBox[{"[", "3", "]"}], "]"}]}], "]"}], "]"}]}], ";", "\[IndentingNewLine]", RowBox[{"\[Alpha]", "=", RowBox[{"ArcCos", "[", RowBox[{ RowBox[{"(", RowBox[{ RowBox[{"a1", "^", "2"}], "+", RowBox[{"a2", "^", "2"}], "-", RowBox[{"d1", "^", "2"}]}], ")"}], "/", RowBox[{"(", RowBox[{"2", "*", "a1", "*", "a2"}], ")"}]}], "]"}]}], ";", "\[IndentingNewLine]", RowBox[{"L", "=", RowBox[{ RowBox[{"u2", "[", RowBox[{"[", RowBox[{"c", "[", RowBox[{"[", "2", "]"}], "]"}], "]"}], "]"}], "+", "rln"}]}], ";", "\[IndentingNewLine]", RowBox[{"\[Beta]", "=", RowBox[{"ArcSin", "[", RowBox[{"rln", "/", "L"}], "]"}]}], ";", "\[IndentingNewLine]", RowBox[{"\[Gamma]", "=", RowBox[{ RowBox[{"\[Pi]", "/", "2"}], "-", RowBox[{"\[Alpha]", "/", "2"}]}]}], ";", " ", RowBox[{ RowBox[{"gamm", "[", RowBox[{"[", "k", "]"}], "]"}], "=", "\[Gamma]"}], ";", "\[IndentingNewLine]", RowBox[{"(*", RowBox[{ RowBox[{"If", "[", RowBox[{ RowBox[{"(", RowBox[{ RowBox[{"k", "\[Equal]", "1"}], " ", "||", " ", RowBox[{"k", "\[Equal]", "3"}]}], ")"}], ",", RowBox[{"\[Gamma]", "=", RowBox[{"\[Pi]", "-", RowBox[{"\[Alpha]", "/", "4"}]}]}], ",", RowBox[{"\[Gamma]", "=", RowBox[{ RowBox[{"3", "*", RowBox[{"\[Pi]", "/", "2"}]}], "+", RowBox[{"\[Alpha]", "/", "2"}]}]}]}], "]"}], ";"}], "*)"}], "\[IndentingNewLine]", 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[{"(*", RowBox[{ RowBox[{ RowBox[{"Plota", "[", RowBox[{"[", "k", "]"}], "]"}], " ", "=", " ", RowBox[{"Table", "[", RowBox[{ RowBox[{"Graphics3D", "[", RowBox[{"{", RowBox[{ RowBox[{"Opacity", "[", "0.5", "]"}], ",", RowBox[{"Sphere", "[", RowBox[{ RowBox[{"p", "[", RowBox[{"[", "i", "]"}], "]"}], ",", RowBox[{"u2", "[", RowBox[{"[", RowBox[{"c", "[", RowBox[{"[", "i", "]"}], "]"}], "]"}], "]"}]}], "]"}]}], "}"}], "]"}], ",", RowBox[{"{", RowBox[{"i", ",", "1", ",", "P"}], "}"}]}], "]"}]}], ";", "\[IndentingNewLine]", RowBox[{ RowBox[{"Plotc", "[", RowBox[{"[", "k", "]"}], "]"}], " ", "=", " ", RowBox[{"Table", "[", RowBox[{ RowBox[{"Graphics3D", "[", RowBox[{"{", RowBox[{"Tube", "[", RowBox[{ RowBox[{"{", RowBox[{ RowBox[{"p", "[", RowBox[{"[", "i", "]"}], "]"}], ",", RowBox[{"p", "[", RowBox[{"[", "j", "]"}], "]"}]}], "}"}], ",", "0.02"}], "]"}], "}"}], "]"}], ",", RowBox[{"{", RowBox[{"i", ",", "1", ",", RowBox[{"P", "-", "1"}]}], "}"}], ",", RowBox[{"{", RowBox[{"j", ",", RowBox[{"i", "+", "1"}], ",", "P"}], "}"}]}], "]"}]}], ";"}], "*)"}], "\[IndentingNewLine]", 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[{ RowBox[{"nk", "[", RowBox[{"[", RowBox[{"2", ",", "1"}], "]"}], "]"}], "=", RowBox[{"L", "*", RowBox[{"Sin", "[", "\[Gamma]", "]"}]}]}], ";", " ", RowBox[{ RowBox[{"nk", "[", RowBox[{"[", RowBox[{"2", ",", "2"}], "]"}], "]"}], "=", RowBox[{ RowBox[{"-", "L"}], "*", RowBox[{"Cos", "[", "\[Gamma]", "]"}]}]}], ";", " ", RowBox[{ RowBox[{"nk", "[", RowBox[{"[", RowBox[{"2", ",", "3"}], "]"}], "]"}], "=", "0"}], ";", " ", "\[IndentingNewLine]", RowBox[{ RowBox[{"nk", "[", RowBox[{"[", "2", "]"}], "]"}], "=", RowBox[{ RowBox[{"Ok", "[", RowBox[{"[", "k", "]"}], "]"}], "*", RowBox[{"nk", "[", RowBox[{"[", "2", "]"}], "]"}]}]}], ";", "\[IndentingNewLine]", RowBox[{ RowBox[{"Plota", "[", RowBox[{"[", "k", "]"}], "]"}], " ", "=", " ", RowBox[{"Table", "[", RowBox[{ RowBox[{"Graphics3D", "[", RowBox[{"{", RowBox[{ RowBox[{"Opacity", "[", "0.5", "]"}], ",", RowBox[{"Sphere", "[", RowBox[{ RowBox[{"p", "[", RowBox[{"[", "i", "]"}], "]"}], ",", RowBox[{"u2", "[", RowBox[{"[", RowBox[{"c", "[", RowBox[{"[", "i", "]"}], "]"}], "]"}], "]"}]}], "]"}]}], "}"}], "]"}], ",", RowBox[{"{", RowBox[{"i", ",", "1", ",", "P"}], "}"}]}], "]"}]}], ";", "\[IndentingNewLine]", RowBox[{ RowBox[{"Plotc", "[", RowBox[{"[", "k", "]"}], "]"}], " ", "=", " ", RowBox[{"Table", "[", RowBox[{ RowBox[{"Graphics3D", "[", RowBox[{"{", RowBox[{"Tube", "[", RowBox[{ RowBox[{"{", RowBox[{ RowBox[{"p", "[", RowBox[{"[", "i", "]"}], "]"}], ",", RowBox[{"p", "[", RowBox[{"[", "j", "]"}], "]"}]}], "}"}], ",", "0.02"}], "]"}], "}"}], "]"}], ",", RowBox[{"{", RowBox[{"i", ",", "1", ",", RowBox[{"P", "-", "1"}]}], "}"}], ",", RowBox[{"{", RowBox[{"j", ",", RowBox[{"i", "+", "1"}], ",", "P"}], "}"}]}], "]"}]}], ";", "\[IndentingNewLine]", RowBox[{ RowBox[{"Plotd", "[", RowBox[{"[", "k", "]"}], "]"}], "=", RowBox[{"Graphics3D", "[", RowBox[{"{", RowBox[{ RowBox[{"Opacity", "[", "0.5", "]"}], ",", RowBox[{"Lighter", "[", "Blue", "]"}], ",", RowBox[{"Sphere", "[", RowBox[{ RowBox[{"nk", "[", RowBox[{"[", "2", "]"}], "]"}], ",", "rln"}], "]"}]}], "}"}], "]"}]}], ";", "\[IndentingNewLine]", RowBox[{ RowBox[{"Plotb0", "[", RowBox[{"[", "k", "]"}], "]"}], "=", RowBox[{"Table", "[", RowBox[{ RowBox[{"Graphics3D", "[", RowBox[{"Text", "[", RowBox[{ RowBox[{"c", "[", RowBox[{"[", "i", "]"}], "]"}], ",", RowBox[{"p", "[", RowBox[{"[", "i", "]"}], "]"}], ",", RowBox[{"{", RowBox[{"1", ",", "0"}], "}"}]}], "]"}], "]"}], ",", RowBox[{"{", RowBox[{"i", ",", "1", ",", "P"}], "}"}]}], "]"}]}], ";", "\[IndentingNewLine]", RowBox[{"U", "=", "p"}], ";", "\n", RowBox[{"U1", "=", "nk"}], ";", "\[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[{"U", "=", "p"}], ";", "\n", RowBox[{"U1", "=", "nk"}], ";", "\[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"}]}], ";", "\n", RowBox[{"U", "=", "p"}], ";", "\n", RowBox[{"U1", "=", "nk"}], ";", "\[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"}]}], ";", "\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[{"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[{"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[{ RowBox[{"tpln", "[", RowBox[{"[", "k", "]"}], "]"}], "=", RowBox[{"nk", "[", RowBox[{"[", "2", "]"}], "]"}]}]}], ")"}], ",", RowBox[{"{", RowBox[{"k", ",", "3"}], "}"}]}], "]"}], ";"}]], "Input", CellChangeTimes->{{3.572794697520533*^9, 3.5727947043221455`*^9}, { 3.5727948024151173`*^9, 3.572794803507119*^9}, {3.5727948673580313`*^9, 3.572794869838436*^9}, {3.572795260993526*^9, 3.5727952676703377`*^9}, { 3.5727954366342344`*^9, 3.5727954702834935`*^9}, {3.5727973545484033`*^9, 3.5727973657024226`*^9}, {3.572803225319809*^9, 3.572803264553878*^9}, { 3.57280330550395*^9, 3.5728033127111626`*^9}, 3.5728033508376293`*^9, { 3.572803528365941*^9, 3.5728035301443443`*^9}, {3.572803715051469*^9, 3.572803769604765*^9}, {3.572840261866465*^9, 3.5728402628648667`*^9}, { 3.5728405648813972`*^9, 3.572840578905822*^9}, {3.5728406372187243`*^9, 3.572840716170463*^9}, {3.5728407476825185`*^9, 3.572840785746585*^9}, { 3.5728408298790627`*^9, 3.5728408871311636`*^9}, {3.5728409363336496`*^9, 3.572841070790286*^9}, {3.572841415987692*^9, 3.572841609740032*^9}, 3.5728416910629754`*^9, {3.5728417502806797`*^9, 3.572841879885707*^9}, { 3.572841914564568*^9, 3.5728419300709953`*^9}, {3.572841986199894*^9, 3.572842001659521*^9}, {3.5728426453322515`*^9, 3.5728426487174573`*^9}, { 3.572844776030794*^9, 3.572844786919613*^9}, {3.57284502999924*^9, 3.5728450550060835`*^9}, {3.572845459218394*^9, 3.572845496174859*^9}, { 3.5728455656105804`*^9, 3.572845617574272*^9}, {3.5728456738279705`*^9, 3.572845681440784*^9}, {3.5728457322656736`*^9, 3.572845755291314*^9}, 3.572845978356106*^9, {3.572846145151599*^9, 3.572846189096876*^9}, { 3.572846392926834*^9, 3.5728464086828613`*^9}, 3.572846518881455*^9, 3.5728469699562473`*^9, {3.5728470834620466`*^9, 3.572847089873658*^9}, { 3.572847132180932*^9, 3.5728472650151653`*^9}, 3.5728473515485177`*^9, { 3.572849422046554*^9, 3.572849426554962*^9}, {3.572849678776205*^9, 3.572849686077018*^9}, {3.5728503673146143`*^9, 3.5728503811830387`*^9}, { 3.5728505998798227`*^9, 3.572850604637831*^9}, 3.5730459405924234`*^9, { 3.5731485633994884`*^9, 3.5731485765503116`*^9}, {3.5731486137719765`*^9, 3.57314870088253*^9}, {3.5740711445842266`*^9, 3.5740711934435124`*^9}, { 3.5740712484648085`*^9, 3.574071311114519*^9}, {3.574071353780594*^9, 3.5740714392063437`*^9}, {3.5740717257632475`*^9, 3.574071742283676*^9}, { 3.574071857115478*^9, 3.574071918189585*^9}, {3.5740720907414885`*^9, 3.5740720966694984`*^9}, {3.5740721676028233`*^9, 3.5740721835304513`*^9}, {3.5740722327953377`*^9, 3.574072381432399*^9}, { 3.57407241628286*^9, 3.5740725747635384`*^9}, {3.5740726677709017`*^9, 3.5740726864129343`*^9}, {3.5740729230809503`*^9, 3.574072923455351*^9}, { 3.5740729588050127`*^9, 3.574072990707069*^9}, {3.5740730904380445`*^9, 3.5740730958668537`*^9}, {3.574073130155714*^9, 3.57407314478854*^9}, { 3.574073269853959*^9, 3.5740733111160316`*^9}, {3.5740733441100893`*^9, 3.5740733480412965`*^9}, {3.5740733832037582`*^9, 3.5740734276482363`*^9}, 3.5740740818977857`*^9, 3.574074116810647*^9, {3.574074166481134*^9, 3.5740741666527348`*^9}, {3.57407419825839*^9, 3.5740742105668116`*^9}, { 3.574074252827286*^9, 3.5740742532484865`*^9}, {3.5740743137765927`*^9, 3.5740743140105934`*^9}, {3.574074358345871*^9, 3.5740743585954714`*^9}, 3.5740754073385134`*^9, {3.5741353517646933`*^9, 3.5741353928551655`*^9}, 3.574135465457693*^9, {3.574484765977767*^9, 3.574484862073936*^9}, { 3.5744849882001576`*^9, 3.574485043705055*^9}, {3.5744851789572926`*^9, 3.5744851982389264`*^9}, {3.5744852859110804`*^9, 3.5744852918702908`*^9}, 3.5752146686375933`*^9, {3.575214703316454*^9, 3.575214752674941*^9}, 3.5752147864334*^9, {3.5752148167910533`*^9, 3.575214843825901*^9}, { 3.575214952183691*^9, 3.575214963368911*^9}, {3.5752153437755785`*^9, 3.5752153446023808`*^9}, {3.5752196198004627`*^9, 3.5752196437465043`*^9}, 3.5752196892985845`*^9, {3.5752197843027515`*^9, 3.5752197899967613`*^9}, { 3.5752199889907107`*^9, 3.575220008537545*^9}, {3.575261680795985*^9, 3.5752616868331957`*^9}, {3.575261830057047*^9, 3.5752618478410788`*^9}, { 3.5752619099135876`*^9, 3.5752619409420424`*^9}, {3.575264359975891*^9, 3.575264383391532*^9}, 3.5752645697806597`*^9, 3.5752647035352945`*^9, 3.5752649185816717`*^9, {3.5752649540873346`*^9, 3.5752649605925455`*^9}, { 3.575264995458607*^9, 3.57526500274382*^9}, {3.5752784049084177`*^9, 3.5752784183556414`*^9}, {3.5752784887897654`*^9, 3.5752785288974357`*^9}}], Cell[CellGroupData[{ Cell[BoxData[ RowBox[{" ", RowBox[{"Table", "[", RowBox[{ RowBox[{"Show", "[", RowBox[{ RowBox[{"Plotd", "[", RowBox[{"[", "i", "]"}], "]"}], ",", " ", RowBox[{"Plota", "[", RowBox[{"[", "i", "]"}], "]"}], ",", " ", RowBox[{"Plotb0", "[", RowBox[{"[", "i", "]"}], "]"}], ",", " ", RowBox[{"Plotc", "[", RowBox[{"[", "i", "]"}], "]"}], ",", " ", RowBox[{"{", RowBox[{ RowBox[{"Axes", " ", "->", " ", "Automatic"}], ",", " ", RowBox[{"AxesLabel", " ", "->", " ", RowBox[{"{", RowBox[{"xl", ",", " ", "yl", ",", " ", "zl"}], "}"}]}], ",", " ", "\n", " ", RowBox[{"AspectRatio", " ", "->", " ", "Automatic"}], ",", " ", RowBox[{"Boxed", " ", "->", " ", "False"}], ",", " ", RowBox[{"PlotRange", " ", "->", " ", "Automatic"}], ",", " ", RowBox[{"SphericalRegion", " ", "->", " ", "True"}]}], "}"}]}], "]"}], ",", RowBox[{"{", RowBox[{"i", ",", "1", ",", "3"}], "}"}]}], "]"}]}]], "Input", CellChangeTimes->{{3.572794697520533*^9, 3.5727947043221455`*^9}, { 3.5727948024151173`*^9, 3.572794803507119*^9}, {3.5727948673580313`*^9, 3.572794869838436*^9}, {3.572795260993526*^9, 3.5727952676703377`*^9}, { 3.5727954366342344`*^9, 3.5727954702834935`*^9}, {3.5727973545484033`*^9, 3.5727973657024226`*^9}, {3.572803225319809*^9, 3.572803264553878*^9}, { 3.57280330550395*^9, 3.5728033127111626`*^9}, 3.5728033508376293`*^9, { 3.572803528365941*^9, 3.5728035301443443`*^9}, {3.572803715051469*^9, 3.572803769604765*^9}, {3.572840261866465*^9, 3.5728402628648667`*^9}, { 3.5728405648813972`*^9, 3.572840578905822*^9}, {3.5728406372187243`*^9, 3.572840716170463*^9}, {3.5728407476825185`*^9, 3.572840785746585*^9}, { 3.5728408298790627`*^9, 3.5728408871311636`*^9}, {3.5728409363336496`*^9, 3.572841070790286*^9}, {3.572841415987692*^9, 3.572841609740032*^9}, 3.5728416910629754`*^9, {3.5728417502806797`*^9, 3.572841879885707*^9}, { 3.572841914564568*^9, 3.5728419300709953`*^9}, {3.572841986199894*^9, 3.572842001659521*^9}, {3.5728426453322515`*^9, 3.5728426487174573`*^9}, { 3.572844776030794*^9, 3.572844786919613*^9}, {3.57284502999924*^9, 3.5728450550060835`*^9}, {3.572845459218394*^9, 3.572845496174859*^9}, { 3.5728455656105804`*^9, 3.572845617574272*^9}, {3.5728456738279705`*^9, 3.572845681440784*^9}, {3.5728457322656736`*^9, 3.572845755291314*^9}, 3.572845978356106*^9, {3.572846145151599*^9, 3.572846189096876*^9}, { 3.572846392926834*^9, 3.5728464086828613`*^9}, 3.572846518881455*^9, 3.5728469699562473`*^9, {3.5728470834620466`*^9, 3.572847089873658*^9}, { 3.572847132180932*^9, 3.5728472650151653`*^9}, 3.5728473515485177`*^9, { 3.572849422046554*^9, 3.572849426554962*^9}, {3.572849678776205*^9, 3.572849686077018*^9}, {3.5728503673146143`*^9, 3.5728503811830387`*^9}, { 3.5728505998798227`*^9, 3.572850604637831*^9}, 3.5730459405924234`*^9, { 3.5731485633994884`*^9, 3.5731485765503116`*^9}, {3.5731486137719765`*^9, 3.57314870088253*^9}, {3.5740711445842266`*^9, 3.5740711934435124`*^9}, { 3.5740712484648085`*^9, 3.574071311114519*^9}, {3.574071353780594*^9, 3.5740714392063437`*^9}, {3.5740717257632475`*^9, 3.574071742283676*^9}, { 3.574071857115478*^9, 3.574071918189585*^9}, {3.5740720907414885`*^9, 3.5740720966694984`*^9}, {3.5740721676028233`*^9, 3.5740721835304513`*^9}, {3.5740722327953377`*^9, 3.574072381432399*^9}, { 3.57407241628286*^9, 3.5740725747635384`*^9}, {3.5740726677709017`*^9, 3.5740726864129343`*^9}, {3.5740729230809503`*^9, 3.574072923455351*^9}, { 3.5740729588050127`*^9, 3.574072990707069*^9}, {3.5740730904380445`*^9, 3.5740730958668537`*^9}, {3.574073130155714*^9, 3.57407314478854*^9}, { 3.574073269853959*^9, 3.5740733111160316`*^9}, {3.5740733441100893`*^9, 3.5740733480412965`*^9}, {3.5740733832037582`*^9, 3.5740734276482363`*^9}, 3.5740740818977857`*^9, 3.574074116810647*^9, {3.574074166481134*^9, 3.5740741666527348`*^9}, {3.57407419825839*^9, 3.5740742105668116`*^9}, { 3.574074252827286*^9, 3.5740742532484865`*^9}, {3.5740743137765927`*^9, 3.5740743140105934`*^9}, {3.574074358345871*^9, 3.5740743585954714`*^9}, 3.5740754073385134`*^9, {3.5741353517646933`*^9, 3.5741353928551655`*^9}, 3.574135465457693*^9, {3.574484765977767*^9, 3.574484862073936*^9}, { 3.5744849882001576`*^9, 3.574485043705055*^9}, {3.5744851789572926`*^9, 3.5744851982389264`*^9}, {3.5744852859110804`*^9, 3.5744852918702908`*^9}, 3.5752146686375933`*^9, {3.575214703316454*^9, 3.575214752674941*^9}, 3.5752147864334*^9, {3.5752148167910533`*^9, 3.5752148246690674`*^9}, 3.575214868926345*^9, 3.575215096047144*^9}], Cell[BoxData[ RowBox[{"{", RowBox[{ Graphics3DBox[{ {RGBColor[ NCache[ Rational[1, 3], 0.3333333333333333], NCache[ Rational[1, 3], 0.3333333333333333], 1], Opacity[0.5], SphereBox[{-0.7904788851887353, -1.2408188507879683`, 0}, 1.246]}, {Opacity[0.5], SphereBox[{2.3810644792939164`, 0, 0}, 0.255]}, {Opacity[0.5], SphereBox[{0, 0, 0}, 0.22522]}, {Opacity[0.5], SphereBox[{-1.0062990352270558`, 2.157951271824809, 0}, 0.257]}, Text3DBox["4", {2.3810644792939164`, 0, 0}, {1, 0}], Text3DBox["11", {0, 0, 0}, {1, 0}], Text3DBox["1", {-1.0062990352270558`, 2.157951271824809, 0}, {1, 0}], TubeBox[{{2.3810644792939164`, 0, 0}, {0, 0, 0}}, 0.02], TubeBox[{{ 2.3810644792939164`, 0, 0}, {-1.0062990352270558`, 2.157951271824809, 0}}, 0.02], TubeBox[{{0, 0, 0}, {-1.0062990352270558`, 2.157951271824809, 0}}, 0.02]}, AspectRatio->Automatic, Axes->Automatic, AxesLabel->{ FormBox["xl", TraditionalForm], FormBox["yl", TraditionalForm], FormBox["zl", TraditionalForm]}, Boxed->False, PlotRange->Automatic, SphericalRegion->True], ",", Graphics3DBox[{ {RGBColor[ NCache[ Rational[1, 3], 0.3333333333333333], NCache[ Rational[1, 3], 0.3333333333333333], 1], Opacity[0.5], SphereBox[{0.7969700192489593, 1.2366596446954647`, 0}, 1.246]}, {Opacity[0.5], SphereBox[{-2.435655209130262, 0, 0}, 0.257]}, {Opacity[0.5], SphereBox[{0, 0, 0}, 0.22522]}, {Opacity[0.5], SphereBox[{0.9836348415044349, -2.168392945431976, 0}, 0.255]}, Text3DBox["1", {-2.435655209130262, 0, 0}, {1, 0}], Text3DBox["12", {0, 0, 0}, {1, 0}], Text3DBox["2", {0.9836348415044349, -2.168392945431976, 0}, {1, 0}], TubeBox[{{-2.435655209130262, 0, 0}, {0, 0, 0}}, 0.02], TubeBox[{{-2.435655209130262, 0, 0}, { 0.9836348415044349, -2.168392945431976, 0}}, 0.02], TubeBox[{{0, 0, 0}, {0.9836348415044349, -2.168392945431976, 0}}, 0.02]}, AspectRatio->Automatic, Axes->Automatic, AxesLabel->{ FormBox["xl", TraditionalForm], FormBox["yl", TraditionalForm], FormBox["zl", TraditionalForm]}, Boxed->False, PlotRange->Automatic, SphericalRegion->True], ",", Graphics3DBox[{ {RGBColor[ NCache[ Rational[1, 3], 0.3333333333333333], NCache[ Rational[1, 3], 0.3333333333333333], 1], Opacity[0.5], SphereBox[{-0.9235468873751852, -1.1452289881153055`, 0}, 1.246]}, {Opacity[0.5], SphereBox[{2.9402180931038386`, 0, 0}, 0.257]}, {Opacity[0.5], SphereBox[{0, 0, 0}, 0.22522]}, {Opacity[0.5], SphereBox[{-0.5045201185844603, 2.3271034748474273`, 0}, 0.255]}, Text3DBox["5", {2.9402180931038386`, 0, 0}, {1, 0}], Text3DBox["14", {0, 0, 0}, {1, 0}], Text3DBox["3", {-0.5045201185844603, 2.3271034748474273`, 0}, {1, 0}], TubeBox[{{2.9402180931038386`, 0, 0}, {0, 0, 0}}, 0.02], TubeBox[{{ 2.9402180931038386`, 0, 0}, {-0.5045201185844603, 2.3271034748474273`, 0}}, 0.02], TubeBox[{{0, 0, 0}, {-0.5045201185844603, 2.3271034748474273`, 0}}, 0.02]}, AspectRatio->Automatic, Axes->Automatic, AxesLabel->{ FormBox["xl", TraditionalForm], FormBox["yl", TraditionalForm], FormBox["zl", TraditionalForm]}, Boxed->False, PlotRange->Automatic, SphericalRegion->True]}], "}"}]], "Output", CellChangeTimes->CompressedData[" 1:eJxTTMoPSmVkYGDQBmL5bp9UvcWvHOPUWAtA9JOsx00gWmBl4gUQrX35fL4+ kF52xrAcRKtt4txnAKTvSYi+B9FF1m9MXIF0UlKzF4h+O+d9CIi+suJsPIjW yKlOA9E2V7ymugHprn+5c0G0QuGKxSC6Tp11BYhuXP9mE4je4LdrB4i+eHbu XhBtoSZxBESLbvQ/DaKV7HZdBtF/5j2/AaItc+Pi3IH0m5czs0D0t9zCfBDd WHG4BkTfM+dqBNEFdj4dIHqC8sUNIDrt3ZIdIDpQfd8xEF1Y5/0SRKd0KyX6 AOlXZdtaQLTLfc5uEL24XGESiF7ALLEYRJ9ZNm8TiL6SUp3tC6Q3Jr2pANEC /T2Ls9a8cgQAe7KzNA== "]] }, Open ]], Cell[CellGroupData[{ Cell[BoxData[ RowBox[{"rad", "*", "gamm"}]], "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}, { 3.575264402142765*^9, 3.575264414029986*^9}, {3.575264639575182*^9, 3.575264652102004*^9}, {3.5752664485855594`*^9, 3.57526644895996*^9}}], Cell[BoxData[ RowBox[{"{", RowBox[{ "32.499674701932875`", ",", "32.79991039356376`", ",", "38.88374227575785`"}], "}"}]], "Output", CellChangeTimes->{3.575264426556808*^9, 3.575264491452922*^9, 3.5752645412950096`*^9, 3.5752645761766706`*^9, 3.575264663443224*^9, 3.5752647098689055`*^9, 3.575264748946974*^9, 3.575264800770265*^9, 3.575264858505966*^9, 3.575264925835685*^9, 3.5752649672537575`*^9, 3.5752660349664326`*^9, 3.575266132825405*^9, 3.5752661715602727`*^9, 3.5752662781240597`*^9, 3.57526631233492*^9, 3.575266370398222*^9, 3.5752666945511913`*^9, 3.5752667571697016`*^9, 3.5752668699734993`*^9, 3.5752671463903847`*^9, 3.575276297110716*^9, 3.5752765817176156`*^9, 3.5752766323397045`*^9, 3.575276689030204*^9, 3.5752768247660427`*^9, 3.575276948973461*^9, 3.5752784278716583`*^9, 3.575278535402647*^9, 3.580056860410465*^9}] }, Open ]], Cell[BoxData[{ RowBox[{ RowBox[{"DeleteFile", "[", " ", "\"\\"", "]"}], ";"}], "\[IndentingNewLine]", RowBox[{"For", "[", RowBox[{ RowBox[{"i", "=", "2"}], ",", RowBox[{"i", "<", RowBox[{"n", "+", "2"}]}], ",", RowBox[{"i", "++"}], ",", "\[IndentingNewLine]", RowBox[{"For", "[", RowBox[{ RowBox[{"j", "=", "2"}], ",", RowBox[{"j", "\[LessEqual]", "i"}], ",", RowBox[{"j", "++"}], ",", "\[IndentingNewLine]", RowBox[{"If", "[", RowBox[{ RowBox[{ RowBox[{"Pij", "[", RowBox[{"[", RowBox[{"i", ",", "j"}], "]"}], "]"}], ">", "0"}], ",", RowBox[{ RowBox[{"{", RowBox[{ RowBox[{"i", "-", "1"}], ",", RowBox[{"j", "-", "1"}], ",", RowBox[{"Extract", "[", RowBox[{"Pij", ",", RowBox[{"{", RowBox[{"i", ",", "j"}], "}"}]}], "]"}]}], "}"}], ">>>", " ", "\"\\""}]}], "]"}]}], "]"}]}], "]"}]}], "Input", CellChangeTimes->{{3.5681154444347754`*^9, 3.568115497147268*^9}, { 3.568127214924899*^9, 3.568127265796589*^9}, {3.568128215276656*^9, 3.568128238536297*^9}, {3.568130718566253*^9, 3.5681307485339055`*^9}, 3.5681308175952272`*^9, {3.5681308916497574`*^9, 3.5681309458598523`*^9}, { 3.5681309983383446`*^9, 3.5681310118947687`*^9}, {3.5681310723448744`*^9, 3.568131074357278*^9}, {3.5681315215476637`*^9, 3.568131584509374*^9}, { 3.56813162789305*^9, 3.5681316427754765`*^9}, {3.5681317113063965`*^9, 3.568131715268804*^9}, {3.5681323203938665`*^9, 3.5681323260098763`*^9}, { 3.568132387567585*^9, 3.568132440014877*^9}, {3.5681325121026034`*^9, 3.568132590945142*^9}, {3.56813274298981*^9, 3.5681327548302307`*^9}, { 3.568132877867647*^9, 3.568132888335265*^9}, {3.568133052345154*^9, 3.568133072344389*^9}, {3.5681331740533676`*^9, 3.5681331951446047`*^9}, { 3.568133267793932*^9, 3.5681332684803333`*^9}, {3.5681335079111547`*^9, 3.568133536833606*^9}, {3.5681336272201643`*^9, 3.5681336314945717`*^9}, { 3.568133737994359*^9, 3.568133744000369*^9}, {3.568133978515581*^9, 3.5681339917912045`*^9}, {3.5681340324916763`*^9, 3.5681340418204927`*^9}, {3.568134244262048*^9, 3.5681342454944506`*^9}, { 3.5681343354754086`*^9, 3.568134336099409*^9}, {3.5681345828762426`*^9, 3.568134583952645*^9}, {3.5681348406666956`*^9, 3.5681348474683075`*^9}, 3.568134889151581*^9, {3.5681352914606876`*^9, 3.568135296265496*^9}, { 3.568135518877887*^9, 3.568135519595488*^9}, 3.5681357593679094`*^9, { 3.5681787035360527`*^9, 3.568178728449296*^9}, 3.5682779128076954`*^9, { 3.572714864038488*^9, 3.572714889419732*^9}, {3.5727149730514793`*^9, 3.57271500191153*^9}, {3.572715036933592*^9, 3.5727150664176435`*^9}, { 3.572715803191337*^9, 3.572715915183934*^9}, {3.5727159899548655`*^9, 3.572716037722149*^9}, {3.572767087700392*^9, 3.5727670990260115`*^9}, 3.5727756458897667`*^9, {3.5727757435615377`*^9, 3.5727758099084544`*^9}, { 3.575264402142765*^9, 3.575264409568378*^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[{"3", ",", "2", ",", "1.0082774367139142`"}], "}"}], ",", RowBox[{"{", RowBox[{"4", ",", "3", ",", "1.0082237295111656`"}], "}"}], ",", RowBox[{"{", RowBox[{"7", ",", "6", ",", "1.1820356841386856`"}], "}"}], ",", RowBox[{"{", RowBox[{"8", ",", "7", ",", "1.1820052122367029`"}], "}"}], ",", RowBox[{"{", RowBox[{"9", ",", "6", ",", "1.182055680007637`"}], "}"}], ",", RowBox[{"{", RowBox[{"10", ",", "9", ",", "1.1826938151754902`"}], "}"}], ",", RowBox[{"{", RowBox[{"11", ",", "1", ",", "0.9494141954564819`"}], "}"}], ",", RowBox[{"{", RowBox[{"11", ",", "4", ",", "0.9504222396469579`"}], "}"}], ",", RowBox[{"{", RowBox[{"12", ",", "1", ",", "0.9767176045651307`"}], "}"}], ",", RowBox[{"{", RowBox[{"12", ",", "2", ",", "0.9504219679895849`"}], "}"}], ",", RowBox[{"{", RowBox[{"13", ",", "2", ",", "0.956091333777463`"}], "}"}], ",", RowBox[{"{", RowBox[{"13", ",", "5", ",", "0.955086496544213`"}], "}"}], ",", RowBox[{"{", RowBox[{"13", ",", "8", ",", "1.1478645928017277`"}], "}"}], ",", RowBox[{"{", RowBox[{"14", ",", "3", ",", "0.9504729593841252`"}], "}"}], ",", RowBox[{"{", RowBox[{"14", ",", "5", ",", "1.2289990465519192`"}], "}"}], ",", RowBox[{"{", RowBox[{"15", ",", "4", ",", "0.9560868735513617`"}], "}"}], ",", RowBox[{"{", RowBox[{"16", ",", "8", ",", "1.1207235478176094`"}], "}"}], ",", RowBox[{"{", RowBox[{"16", ",", "9", ",", "1.1071872606919488`"}], "}"}], ",", RowBox[{"{", RowBox[{"17", ",", "7", ",", "1.1062264229954242`"}], "}"}], ",", RowBox[{"{", RowBox[{"18", ",", "6", ",", "1.1062315434158296`"}], "}"}], ",", RowBox[{"{", RowBox[{"19", ",", "10", ",", "1.107907954710963`"}], "}"}], ",", RowBox[{"{", RowBox[{"20", ",", "7", ",", "1.2771220120427036`"}], "}"}], ",", RowBox[{"{", RowBox[{"21", ",", "6", ",", "1.276997988240344`"}], "}"}], ",", RowBox[{"{", RowBox[{"22", ",", "8", ",", "1.276919691677592`"}], "}"}], ",", RowBox[{"{", RowBox[{"23", ",", "9", ",", "1.2769354189468665`"}], "}"}], ",", RowBox[{"{", RowBox[{"24", ",", "19", ",", "1.078117229634348`"}], "}"}], ",", RowBox[{"{", RowBox[{"25", ",", "15", ",", "1.2050059547651581`"}], "}"}], ",", RowBox[{"{", RowBox[{"26", ",", "15", ",", "1.2047667868184277`"}], "}"}], ",", RowBox[{"{", RowBox[{"27", ",", "5", ",", "1.252325386764789`"}], "}"}], ",", RowBox[{"{", RowBox[{"28", ",", "1", ",", "1.2523992078904067`"}], "}"}], ",", RowBox[{"{", RowBox[{"29", ",", "18", ",", "1.1138478375474603`"}], "}"}], ",", RowBox[{"{", RowBox[{"30", ",", "17", ",", "1.1140408924536294`"}], "}"}], ",", RowBox[{"{", RowBox[{"31", ",", "10", ",", "1.278431025436985`"}], "}"}], ",", RowBox[{"{", RowBox[{"32", ",", "10", ",", "1.2784318999806714`"}], "}"}]}], "}"}]], "Output", CellChangeTimes->CompressedData[" 1:eJxTTMoPSmVkYGDQAeKnh+ab6y1+5bityzcVRPeosheAaOGsp00gukgj+QKI PnTpQr4+kLY5Y1QOojsNufcZAOkyCbH3IJrT+q2JK5D+mdjiBaJl5nwMAdHZ K87Fg+gD2TVpIPrbhaCpbkD6XW3+XBDd/GHlYhD9YBnbChBdrfd+E4hedXbP DhBt4jt/L4ietVTyCIiuMAg8DaJb9+6+DKIT5F7eANFz3sTHuQNpv8zZWSA6 4m1RPoh+8v1IDYh22s7dCKIv7/XtANFfFl3aAKJP5i7bAaK3LNt/DERf+evz EkSf4FJJ9AHSPt+2t4DoFXHc3SCa7bviJBDN3Cy5GETrqS3YBKItntRk+wJp kUdvK0C06vPexVlrXjkCAJ9duwk= "]], Cell[BoxData["34"], "Output", CellChangeTimes->CompressedData[" 1:eJxTTMoPSmVkYGDQAeKnh+ab6y1+5bityzcVRPeosheAaOGsp00gukgj+QKI PnTpQr4+kLY5Y1QOojsNufcZAOkyCbH3IJrT+q2JK5D+mdjiBaJl5nwMAdHZ K87Fg+gD2TVpIPrbhaCpbkD6XW3+XBDd/GHlYhD9YBnbChBdrfd+E4hedXbP DhBt4jt/L4ietVTyCIiuMAg8DaJb9+6+DKIT5F7eANFz3sTHuQNpv8zZWSA6 4m1RPoh+8v1IDYh22s7dCKIv7/XtANFfFl3aAKJP5i7bAaK3LNt/DERf+evz EkSf4FJJ9AHSPt+2t4DoFXHc3SCa7bviJBDN3Cy5GETrqS3YBKItntRk+wJp kUdvK0B0x/fexVlrXjkCAKLlu3w= "]], Cell[BoxData["21"], "Output", CellChangeTimes->CompressedData[" 1:eJxTTMoPSmVkYGDQAeKnh+ab6y1+5bityzcVRPeosheAaOGsp00gukgj+QKI PnTpQr4+kLY5Y1QOojsNufcZAOkyCbH3IJrT+q2JK5D+mdjiBaJl5nwMAdHZ K87Fg+gD2TVpIPrbhaCpbkD6XW3+XBDd/GHlYhD9YBnbChBdrfd+E4hedXbP DhBt4jt/L4ietVTyCIiuMAg8DaJb9+6+DKIT5F7eANFz3sTHuQNpv8zZWSA6 4m1RPoh+8v1IDYh22s7dCKIv7/XtANFfFl3aAKJP5i7bAaK3LNt/DERf+evz EkSf4FJJ9AHSPt+2t4DoFXHc3SCa7bviJBDN3Cy5GETrqS3YBKItntRk+wJp kUdvK0D0zv+9i7PWvHIEAKSlu7U= "]] }, 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", ",", RowBox[{"nj", "+", "5"}]}], "}"}]}], "]"}]}], ";"}], "\[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", ",", RowBox[{"nj", "+", "5"}]}], "}"}]}], "]"}]}], ";"}], "\[IndentingNewLine]", RowBox[{ RowBox[{"Plot8c", "=", RowBox[{"Table", "[", RowBox[{ RowBox[{"Graphics3D", "[", RowBox[{"{", RowBox[{ RowBox[{"Opacity", "[", "0.4", "]"}], ",", RowBox[{"Lighter", "[", "Red", "]"}], ",", RowBox[{"Sphere", "[", RowBox[{ RowBox[{"tlo", "[", RowBox[{"[", "i", "]"}], "]"}], ",", "rlo"}], "]"}]}], "}"}], "]"}], ",", RowBox[{"{", RowBox[{"i", ",", "1", ",", "4"}], "}"}]}], "]"}]}], ";"}], "\[IndentingNewLine]", RowBox[{ RowBox[{"Plot8d", "=", RowBox[{"Table", "[", RowBox[{ RowBox[{"Graphics3D", "[", RowBox[{"{", RowBox[{ RowBox[{"Opacity", "[", "0.4", "]"}], ",", RowBox[{"Lighter", "[", "Red", "]"}], ",", RowBox[{"Sphere", "[", RowBox[{ RowBox[{"tlu", "[", RowBox[{"[", "i", "]"}], "]"}], ",", "rlo"}], "]"}]}], "}"}], "]"}], ",", RowBox[{"{", RowBox[{"i", ",", "1", ",", "4"}], "}"}]}], "]"}]}], ";"}], "\[IndentingNewLine]", RowBox[{ RowBox[{"Plot8e", "=", RowBox[{"Table", "[", RowBox[{ RowBox[{"Graphics3D", "[", RowBox[{"{", RowBox[{ RowBox[{"Opacity", "[", "0.4", "]"}], ",", RowBox[{"Lighter", "[", "Blue", "]"}], ",", RowBox[{"Sphere", "[", RowBox[{ RowBox[{"tpln", "[", RowBox[{"[", "i", "]"}], "]"}], ",", "rln"}], "]"}]}], "}"}], "]"}], ",", RowBox[{"{", RowBox[{"i", ",", "1", ",", "3"}], "}"}]}], "]"}]}], ";"}]}], "Input", CellChangeTimes->{{3.5681365021632137`*^9, 3.5681365171392403`*^9}, { 3.568136560351316*^9, 3.5681365863097615`*^9}, {3.5681369135895367`*^9, 3.5681369265999594`*^9}, {3.568137821916732*^9, 3.5681378378443604`*^9}, { 3.5682072492149415`*^9, 3.5682072529901485`*^9}, 3.568209802830227*^9, { 3.5682216503836985`*^9, 3.5682217583046885`*^9}, {3.5682217912831464`*^9, 3.568221843465238*^9}, {3.5682219760654707`*^9, 3.5682221133457117`*^9}, { 3.568222159615393*^9, 3.5682221693498106`*^9}, {3.5682222565227633`*^9, 3.5682222578487663`*^9}, 3.5682224736283445`*^9, 3.5682227227607822`*^9, 3.5682227558640404`*^9, {3.568222818810151*^9, 3.5682228486062036`*^9}, { 3.5682230057764797`*^9, 3.5682230079916835`*^9}, {3.568223041952943*^9, 3.5682230548229656`*^9}, 3.5682232619601297`*^9, 3.5682233000709963`*^9, { 3.568223536645412*^9, 3.5682235381118145`*^9}, {3.568223591151908*^9, 3.568223591526308*^9}, {3.5682236491528096`*^9, 3.568223657483224*^9}, { 3.568223713222122*^9, 3.5682237532361927`*^9}, {3.568223800379475*^9, 3.568223827648323*^9}, {3.5682238887380304`*^9, 3.5682238893152313`*^9}, { 3.5682240287170763`*^9, 3.5682240612431335`*^9}, 3.5682241088076167`*^9, { 3.568224198772975*^9, 3.5682242396450467`*^9}, {3.568224282170721*^9, 3.5682243185031853`*^9}, {3.568224437890195*^9, 3.568224439590598*^9}, { 3.568224572253231*^9, 3.5682245867144566`*^9}, {3.5682247081762695`*^9, 3.568224733557514*^9}, {3.56822480520844*^9, 3.5682248433505073`*^9}, { 3.568224884206979*^9, 3.5682248959069996`*^9}, {3.568224982830352*^9, 3.5682250047639904`*^9}, {3.56822503870965*^9, 3.5682250803305235`*^9}, { 3.5682251223413973`*^9, 3.568225141451431*^9}, {3.568225234177994*^9, 3.5682252929588966`*^9}, {3.5682253775890455`*^9, 3.568225482140429*^9}, { 3.56822551694409*^9, 3.5682255297205124`*^9}, {3.568225573197789*^9, 3.5682255809666023`*^9}, 3.568225660698343*^9, 3.5682257301964645`*^9, { 3.568225765078126*^9, 3.5682257828933573`*^9}, {3.568225927026843*^9, 3.568225927416844*^9}, {3.568267062420238*^9, 3.568267081358671*^9}, { 3.568267188328059*^9, 3.5682672830358257`*^9}, {3.5682676367040462`*^9, 3.568267747979042*^9}, 3.5682678404716043`*^9, 3.568267882030078*^9, { 3.5682679252577534`*^9, 3.568267996612279*^9}, {3.5682680488879704`*^9, 3.568268061133992*^9}, {3.568268100914062*^9, 3.5682681150944867`*^9}, { 3.5682681672609787`*^9, 3.5682681709113846`*^9}, {3.568268272904364*^9, 3.5682683182536435`*^9}, {3.5682685202739983`*^9, 3.568268599194537*^9}, { 3.5682686348873997`*^9, 3.568268637773405*^9}, {3.5682686944951043`*^9, 3.568268872273017*^9}, {3.5682689420207396`*^9, 3.568269016947671*^9}, { 3.5682695040741262`*^9, 3.568269601153097*^9}, {3.5682696652380095`*^9, 3.5682696728352227`*^9}, {3.5682697489633565`*^9, 3.5682698308635006`*^9}, {3.568271156491429*^9, 3.568271160063835*^9}, { 3.568271244927984*^9, 3.568271369010602*^9}, {3.5682716250070515`*^9, 3.5682717312276382`*^9}, {3.5682717843301315`*^9, 3.5682718576814604`*^9}, {3.568271940673606*^9, 3.5682720536490045`*^9}, { 3.5682722259669075`*^9, 3.5682723223126764`*^9}, {3.568272370813162*^9, 3.568272411466833*^9}, {3.5682725893539457`*^9, 3.568272622238803*^9}, { 3.5682726936713285`*^9, 3.5682726960113325`*^9}, {3.568272741079812*^9, 3.56827275143823*^9}, {3.5682729218373294`*^9, 3.568272991070251*^9}, { 3.5682734285574193`*^9, 3.5682734302890224`*^9}, {3.5682734898811274`*^9, 3.5682735111595645`*^9}, {3.5682736115925407`*^9, 3.5682736313577757`*^9}, {3.5682738601945777`*^9, 3.568273987272401*^9}, { 3.5682763944346285`*^9, 3.5682764313910933`*^9}, 3.5682765128232365`*^9, { 3.5682766527398825`*^9, 3.568276660976697*^9}, {3.5682774496048822`*^9, 3.568277461663703*^9}, {3.5683784032731285`*^9, 3.568378422991563*^9}, { 3.568378459308427*^9, 3.5683784812420654`*^9}, {3.568378513440522*^9, 3.568378867046343*^9}, {3.568378915468828*^9, 3.56837896203491*^9}, { 3.5683790764299107`*^9, 3.568379270041851*^9}, {3.568380233530743*^9, 3.568380234388745*^9}, 3.5683804214954734`*^9, 3.568380471867962*^9, 3.5683805399464817`*^9, {3.5683812396077104`*^9, 3.568381293537005*^9}, { 3.568381339541486*^9, 3.568381420224828*^9}, {3.5684645223056345`*^9, 3.5684645572340956`*^9}, {3.5684651558539467`*^9, 3.5684651618911576`*^9}, {3.5688209923798466`*^9, 3.568820997683856*^9}, { 3.568821158754139*^9, 3.568821160750942*^9}, 3.56882222404881*^9, { 3.568822649274357*^9, 3.5688226508031597`*^9}, 3.568822723109287*^9, { 3.5693397221142225`*^9, 3.5693397223326235`*^9}, {3.5693899272912874`*^9, 3.5693899274472876`*^9}, {3.5693910617720795`*^9, 3.5693910848757205`*^9}, 3.5693911374166126`*^9, {3.569391214402748*^9, 3.5693912147147484`*^9}, 3.569391451944365*^9, {3.569391487793228*^9, 3.569391507620863*^9}, { 3.5693923162258854`*^9, 3.5693923173958874`*^9}, {3.569406068526634*^9, 3.569406086092265*^9}, 3.569690172138941*^9, 3.569780036185542*^9, { 3.570453906913044*^9, 3.5704539079894457`*^9}, {3.570454575670618*^9, 3.5704545899602437`*^9}, {3.570454765008151*^9, 3.570454772277764*^9}, 3.5708553779481487`*^9, {3.5709431726830034`*^9, 3.570943174555007*^9}, { 3.5709495710522423`*^9, 3.5709495907082767`*^9}, {3.570949647617176*^9, 3.570949673138821*^9}, {3.570950759321929*^9, 3.5709507772775607`*^9}, { 3.5709508127364225`*^9, 3.5709508405200715`*^9}, {3.570991123104905*^9, 3.570991124259307*^9}, {3.5709912161278687`*^9, 3.570991227937089*^9}, { 3.5709912804155817`*^9, 3.570991308776431*^9}, {3.5709914026885962`*^9, 3.5709914215490294`*^9}, {3.570991574429298*^9, 3.5709916038821497`*^9}, 3.570991652445035*^9, 3.570991830004547*^9, 3.570991865276209*^9, { 3.5709919181759014`*^9, 3.5709919260539155`*^9}, {3.570992027251293*^9, 3.570992050058533*^9}, 3.5709920901350036`*^9, 3.570992186979974*^9, { 3.57122255431676*^9, 3.5712225562355638`*^9}, 3.571223175338251*^9, { 3.5713153738729277`*^9, 3.571315375682531*^9}, 3.5713224026962075`*^9, { 3.5713224627875133`*^9, 3.5713224654863176`*^9}, {3.5713224965147724`*^9, 3.571322572268505*^9}, {3.5713226259637995`*^9, 3.5713226549330506`*^9}, { 3.5713308245340652`*^9, 3.571330884469371*^9}, {3.5713309160126257`*^9, 3.5713309422674723`*^9}, 3.571331071326499*^9, {3.5713311246629925`*^9, 3.5713311332274075`*^9}, {3.571331300334901*^9, 3.5713313470881834`*^9}, 3.5713314298931284`*^9, 3.571331594130217*^9, {3.571331632849485*^9, 3.5713316334578857`*^9}, {3.5713316704299507`*^9, 3.5713316709447517`*^9}, {3.571331783327349*^9, 3.571331790019761*^9}, { 3.5713319475956383`*^9, 3.571331948360039*^9}, {3.5713326567416835`*^9, 3.571332681717327*^9}, {3.571332736801024*^9, 3.571332753305853*^9}, { 3.571332796221528*^9, 3.5713328475768185`*^9}, {3.571332914344936*^9, 3.571332924672154*^9}, {3.5713330072586994`*^9, 3.5713330320471425`*^9}, { 3.5713330798612266`*^9, 3.5713330883320417`*^9}, {3.5713331731961904`*^9, 3.571333178266199*^9}, {3.571333407851803*^9, 3.571333426837036*^9}, { 3.571333542292839*^9, 3.571333557705666*^9}, {3.5713336117441607`*^9, 3.5713337055939255`*^9}, {3.5713337750608473`*^9, 3.571333798070888*^9}, { 3.5713366694988756`*^9, 3.5713366834765005`*^9}, {3.5713369716090064`*^9, 3.57133697359021*^9}, {3.57138272164856*^9, 3.571382756233821*^9}, { 3.57138283537276*^9, 3.571382866900415*^9}, {3.5713829070080853`*^9, 3.5713829086616883`*^9}, {3.571382939175342*^9, 3.5713830233374896`*^9}, { 3.5713831045200324`*^9, 3.571383106126835*^9}, {3.571383198260597*^9, 3.5713832448422785`*^9}, 3.5716785972796593`*^9, 3.5718167268987517`*^9, { 3.571838452469782*^9, 3.5718386879053955`*^9}, {3.571838766139532*^9, 3.571838773908346*^9}, 3.5718388425484667`*^9, {3.571838961763876*^9, 3.571838969236289*^9}, {3.571839027970392*^9, 3.5718390313399982`*^9}, { 3.571839741203645*^9, 3.5718397450100517`*^9}, {3.572538612521628*^9, 3.572538701894185*^9}, {3.572538746213863*^9, 3.572538844837236*^9}, 3.5725397817592816`*^9, {3.5726093687611146`*^9, 3.5726094120667906`*^9}, { 3.5726201406133776`*^9, 3.5726201439517837`*^9}, {3.5726204342214937`*^9, 3.572620455406331*^9}, {3.5726210034788933`*^9, 3.572621009968505*^9}, { 3.5728421659278097`*^9, 3.5728422874676228`*^9}, {3.572844941796685*^9, 3.57284494451109*^9}, {3.572850660423529*^9, 3.5728506878327775`*^9}, 3.5731240021791506`*^9, {3.573124038683215*^9, 3.57312404156922*^9}, 3.5731241655738378`*^9, {3.573150838242284*^9, 3.5731508464166985`*^9}, { 3.5740702979395394`*^9, 3.5740703017771463`*^9}, {3.5740715898714085`*^9, 3.574071671631152*^9}, 3.5740719856597033`*^9, {3.5740752116205697`*^9, 3.5740752571102495`*^9}, {3.574075295283517*^9, 3.5740752956735177`*^9}, { 3.5740753389479933`*^9, 3.574075350632414*^9}, {3.5740757330202856`*^9, 3.574075745749908*^9}, {3.5744844155075517`*^9, 3.5744844203591604`*^9}, { 3.5744848749751587`*^9, 3.574484876160761*^9}, {3.574491080910419*^9, 3.574491088382832*^9}}], Cell[BoxData[{ RowBox[{ RowBox[{"Plot9", "=", " ", RowBox[{"Table", "[", RowBox[{ RowBox[{"Graphics3D", "[", RowBox[{"{", RowBox[{ RowBox[{"Lighter", "[", RowBox[{"Orange", ",", "0.5"}], "]"}], ",", RowBox[{"Tube", "[", RowBox[{ RowBox[{"{", RowBox[{ RowBox[{"{", RowBox[{ RowBox[{"x", "[", RowBox[{"[", RowBox[{"a", "[", RowBox[{"[", RowBox[{"i", ",", "1"}], "]"}], "]"}], "]"}], "]"}], ",", RowBox[{"y", "[", RowBox[{"[", RowBox[{"a", "[", RowBox[{"[", RowBox[{"i", ",", "1"}], "]"}], "]"}], "]"}], "]"}], ",", RowBox[{"z", "[", RowBox[{"[", RowBox[{"a", "[", RowBox[{"[", RowBox[{"i", ",", "1"}], "]"}], "]"}], "]"}], "]"}]}], "}"}], ",", RowBox[{"{", RowBox[{ RowBox[{"x", "[", RowBox[{"[", RowBox[{"a", "[", RowBox[{"[", RowBox[{"i", ",", "2"}], "]"}], "]"}], "]"}], "]"}], ",", RowBox[{"y", "[", RowBox[{"[", RowBox[{"a", "[", RowBox[{"[", RowBox[{"i", ",", "2"}], "]"}], "]"}], "]"}], "]"}], ",", RowBox[{"z", "[", RowBox[{"[", RowBox[{"a", "[", RowBox[{"[", RowBox[{"i", ",", "2"}], "]"}], "]"}], "]"}], "]"}]}], "}"}]}], "}"}], ",", "0.1"}], "]"}]}], "}"}], "]"}], ",", RowBox[{"{", RowBox[{"i", ",", "1", ",", "nb"}], "}"}]}], "]"}]}], ";"}], "\[IndentingNewLine]", RowBox[{ RowBox[{"(*", RowBox[{ RowBox[{"Plot9a", "=", " ", RowBox[{"Graphics3D", "[", RowBox[{"Tube", "[", RowBox[{ RowBox[{"{", RowBox[{ RowBox[{"{", RowBox[{ RowBox[{"x", "[", RowBox[{"[", "21", "]"}], "]"}], ",", RowBox[{"y", "[", RowBox[{"[", "21", "]"}], "]"}], ",", RowBox[{"z", "[", RowBox[{"[", "21", "]"}], "]"}]}], "}"}], ",", RowBox[{"{", RowBox[{ RowBox[{"nk", "[", RowBox[{"[", RowBox[{"2", ",", "1"}], "]"}], "]"}], ",", RowBox[{"nk", "[", RowBox[{"[", RowBox[{"2", ",", "2"}], "]"}], "]"}], ",", RowBox[{"nk", "[", RowBox[{"[", RowBox[{"2", ",", "3"}], "]"}], "]"}]}], "}"}]}], "}"}], ",", "0.06"}], "]"}], "]"}]}], ";", "\[IndentingNewLine]", RowBox[{"Plot9b", "=", " ", RowBox[{"Graphics3D", "[", RowBox[{"Tube", "[", RowBox[{ RowBox[{"{", RowBox[{ RowBox[{"{", RowBox[{ RowBox[{"x", "[", RowBox[{"[", "21", "]"}], "]"}], ",", RowBox[{"y", "[", RowBox[{"[", "21", "]"}], "]"}], ",", RowBox[{"z", "[", RowBox[{"[", "21", "]"}], "]"}]}], "}"}], ",", RowBox[{"{", RowBox[{ RowBox[{"nl", "[", RowBox[{"[", RowBox[{"2", ",", "1"}], "]"}], "]"}], ",", RowBox[{"nl", "[", RowBox[{"[", RowBox[{"2", ",", "2"}], "]"}], "]"}], ",", RowBox[{"nl", "[", RowBox[{"[", RowBox[{"2", ",", "3"}], "]"}], "]"}]}], "}"}]}], "}"}], ",", "0.06"}], "]"}], "]"}]}], ";"}], "*)"}]}]}], "Input", CellChangeTimes->{{3.5681365021632137`*^9, 3.5681365171392403`*^9}, { 3.568136560351316*^9, 3.5681365863097615`*^9}, {3.5681369135895367`*^9, 3.5681369265999594`*^9}, {3.568137821916732*^9, 3.5681378378443604`*^9}, { 3.5682072492149415`*^9, 3.5682072529901485`*^9}, 3.568209802830227*^9, { 3.5682216503836985`*^9, 3.5682217583046885`*^9}, {3.5682217912831464`*^9, 3.568221843465238*^9}, {3.5682219760654707`*^9, 3.5682221133457117`*^9}, { 3.568222159615393*^9, 3.5682221693498106`*^9}, {3.5682222565227633`*^9, 3.5682222578487663`*^9}, 3.5682224736283445`*^9, 3.5682227227607822`*^9, 3.5682227558640404`*^9, {3.568222818810151*^9, 3.5682228486062036`*^9}, { 3.5682230057764797`*^9, 3.5682230079916835`*^9}, {3.568223041952943*^9, 3.5682230548229656`*^9}, 3.5682232619601297`*^9, 3.5682233000709963`*^9, { 3.568223536645412*^9, 3.5682235381118145`*^9}, {3.568223591151908*^9, 3.568223591526308*^9}, {3.5682236491528096`*^9, 3.568223657483224*^9}, { 3.568223713222122*^9, 3.5682237532361927`*^9}, {3.568223800379475*^9, 3.568223827648323*^9}, {3.5682238887380304`*^9, 3.5682238893152313`*^9}, { 3.5682240287170763`*^9, 3.5682240612431335`*^9}, 3.5682241088076167`*^9, { 3.568224198772975*^9, 3.5682242396450467`*^9}, {3.568224282170721*^9, 3.5682243185031853`*^9}, {3.568224437890195*^9, 3.568224439590598*^9}, { 3.568224572253231*^9, 3.5682245867144566`*^9}, {3.5682247081762695`*^9, 3.568224733557514*^9}, {3.56822480520844*^9, 3.5682248433505073`*^9}, { 3.568224884206979*^9, 3.5682248959069996`*^9}, {3.568224982830352*^9, 3.5682250047639904`*^9}, {3.56822503870965*^9, 3.5682250803305235`*^9}, { 3.5682251223413973`*^9, 3.568225141451431*^9}, {3.568225234177994*^9, 3.5682252929588966`*^9}, {3.5682253775890455`*^9, 3.568225482140429*^9}, { 3.56822551694409*^9, 3.5682255297205124`*^9}, {3.568225573197789*^9, 3.5682255809666023`*^9}, 3.568225660698343*^9, 3.5682257301964645`*^9, { 3.568225765078126*^9, 3.5682257828933573`*^9}, {3.568225927026843*^9, 3.568225927416844*^9}, {3.568267062420238*^9, 3.568267081358671*^9}, { 3.568267188328059*^9, 3.5682672830358257`*^9}, {3.5682676367040462`*^9, 3.568267747979042*^9}, 3.5682678404716043`*^9, 3.568267882030078*^9, { 3.5682679252577534`*^9, 3.568267996612279*^9}, {3.5682680488879704`*^9, 3.568268061133992*^9}, {3.568268100914062*^9, 3.5682681150944867`*^9}, { 3.5682681672609787`*^9, 3.5682681709113846`*^9}, {3.568268272904364*^9, 3.5682683182536435`*^9}, {3.5682685202739983`*^9, 3.568268599194537*^9}, { 3.5682686348873997`*^9, 3.568268637773405*^9}, {3.5682686944951043`*^9, 3.568268872273017*^9}, {3.5682689420207396`*^9, 3.568269016947671*^9}, { 3.5682695040741262`*^9, 3.568269601153097*^9}, {3.5682696652380095`*^9, 3.5682696728352227`*^9}, {3.5682697489633565`*^9, 3.5682698308635006`*^9}, {3.568271156491429*^9, 3.568271160063835*^9}, { 3.568271244927984*^9, 3.568271369010602*^9}, {3.5682716250070515`*^9, 3.5682717312276382`*^9}, {3.5682717843301315`*^9, 3.5682718576814604`*^9}, {3.568271940673606*^9, 3.5682720536490045`*^9}, { 3.5682722259669075`*^9, 3.5682723223126764`*^9}, {3.568272370813162*^9, 3.568272411466833*^9}, {3.5682725893539457`*^9, 3.568272622238803*^9}, { 3.5682726936713285`*^9, 3.5682726960113325`*^9}, {3.568272741079812*^9, 3.56827275143823*^9}, {3.5682729218373294`*^9, 3.568272991070251*^9}, { 3.5682734285574193`*^9, 3.5682734302890224`*^9}, {3.5682734898811274`*^9, 3.5682735111595645`*^9}, {3.5682736115925407`*^9, 3.5682736313577757`*^9}, {3.5682738601945777`*^9, 3.568273987272401*^9}, { 3.5682763944346285`*^9, 3.5682764313910933`*^9}, 3.5682765128232365`*^9, { 3.5682766527398825`*^9, 3.568276660976697*^9}, {3.5682774496048822`*^9, 3.568277461663703*^9}, {3.5683784032731285`*^9, 3.568378422991563*^9}, { 3.568378459308427*^9, 3.5683784812420654`*^9}, {3.568378513440522*^9, 3.568378867046343*^9}, {3.568378915468828*^9, 3.56837896203491*^9}, { 3.5683790764299107`*^9, 3.568379270041851*^9}, {3.568380233530743*^9, 3.568380234388745*^9}, 3.5683804214954734`*^9, 3.568380471867962*^9, 3.5683805399464817`*^9, {3.5683812396077104`*^9, 3.568381293537005*^9}, { 3.568381339541486*^9, 3.568381420224828*^9}, {3.5684645223056345`*^9, 3.5684645572340956`*^9}, {3.5684651558539467`*^9, 3.5684651618911576`*^9}, {3.5688209923798466`*^9, 3.568820997683856*^9}, { 3.568821158754139*^9, 3.568821160750942*^9}, 3.56882222404881*^9, { 3.568822649274357*^9, 3.5688226508031597`*^9}, 3.568822723109287*^9, { 3.5693397221142225`*^9, 3.5693397223326235`*^9}, {3.5693899272912874`*^9, 3.5693899274472876`*^9}, {3.5693910617720795`*^9, 3.5693910848757205`*^9}, 3.5693911374166126`*^9, {3.569391214402748*^9, 3.5693912147147484`*^9}, 3.569391451944365*^9, {3.569391487793228*^9, 3.569391507620863*^9}, { 3.5693923162258854`*^9, 3.5693923173958874`*^9}, {3.569406068526634*^9, 3.569406086092265*^9}, 3.569690172138941*^9, 3.569780036185542*^9, { 3.570453906913044*^9, 3.5704539079894457`*^9}, {3.570454575670618*^9, 3.5704545899602437`*^9}, {3.570454765008151*^9, 3.570454772277764*^9}, 3.5708553779481487`*^9, {3.5709431726830034`*^9, 3.570943174555007*^9}, { 3.5709495710522423`*^9, 3.5709495907082767`*^9}, {3.570949647617176*^9, 3.570949673138821*^9}, {3.570950759321929*^9, 3.5709507772775607`*^9}, { 3.5709508127364225`*^9, 3.5709508405200715`*^9}, {3.570991123104905*^9, 3.570991124259307*^9}, {3.5709912161278687`*^9, 3.570991227937089*^9}, { 3.5709912804155817`*^9, 3.570991308776431*^9}, {3.5709914026885962`*^9, 3.5709914215490294`*^9}, {3.570991574429298*^9, 3.5709916038821497`*^9}, 3.570991652445035*^9, 3.570991830004547*^9, 3.570991865276209*^9, { 3.5709919181759014`*^9, 3.5709919260539155`*^9}, {3.570992027251293*^9, 3.570992050058533*^9}, 3.5709920901350036`*^9, 3.570992186979974*^9, { 3.57122255431676*^9, 3.5712225562355638`*^9}, 3.571223175338251*^9, { 3.5713153738729277`*^9, 3.571315375682531*^9}, 3.5713224026962075`*^9, { 3.5713224627875133`*^9, 3.5713224654863176`*^9}, {3.5713224965147724`*^9, 3.571322572268505*^9}, {3.5713226259637995`*^9, 3.5713226549330506`*^9}, { 3.5713308245340652`*^9, 3.571330884469371*^9}, {3.5713309160126257`*^9, 3.5713309422674723`*^9}, 3.571331071326499*^9, {3.5713311246629925`*^9, 3.5713311332274075`*^9}, {3.571331300334901*^9, 3.5713313470881834`*^9}, 3.5713314298931284`*^9, 3.571331594130217*^9, {3.571331632849485*^9, 3.5713316334578857`*^9}, {3.5713316704299507`*^9, 3.5713316709447517`*^9}, {3.571331783327349*^9, 3.571331790019761*^9}, { 3.5713319475956383`*^9, 3.571331948360039*^9}, {3.5713326567416835`*^9, 3.571332681717327*^9}, {3.571332736801024*^9, 3.571332753305853*^9}, { 3.571332796221528*^9, 3.5713328475768185`*^9}, {3.571332914344936*^9, 3.571332924672154*^9}, {3.5713330072586994`*^9, 3.5713330320471425`*^9}, { 3.5713330798612266`*^9, 3.5713330883320417`*^9}, {3.5713331731961904`*^9, 3.571333178266199*^9}, {3.571333407851803*^9, 3.571333426837036*^9}, { 3.571333542292839*^9, 3.571333557705666*^9}, {3.5713336117441607`*^9, 3.5713337055939255`*^9}, {3.5713337750608473`*^9, 3.571333798070888*^9}, { 3.5713366694988756`*^9, 3.5713366834765005`*^9}, {3.5713369716090064`*^9, 3.57133697359021*^9}, {3.57138272164856*^9, 3.571382756233821*^9}, { 3.57138283537276*^9, 3.571382866900415*^9}, {3.5713829070080853`*^9, 3.5713829086616883`*^9}, {3.571382939175342*^9, 3.5713830233374896`*^9}, { 3.5713831045200324`*^9, 3.571383106126835*^9}, {3.571383198260597*^9, 3.5713832448422785`*^9}, 3.5716785972796593`*^9, 3.5718167268987517`*^9, { 3.571838452469782*^9, 3.5718386879053955`*^9}, 3.571838766139532*^9, { 3.571838857446493*^9, 3.5718388645757055`*^9}, 3.5723437133735733`*^9, 3.5723437554312468`*^9, {3.5723449027196617`*^9, 3.572344929582909*^9}, 3.5723450406551046`*^9, {3.57234950163894*^9, 3.5723495196413713`*^9}, { 3.572584520172369*^9, 3.5725845258195786`*^9}, {3.5726224003989472`*^9, 3.57262241340937*^9}, 3.572796748424938*^9, 3.5727968708695536`*^9, { 3.572796971801731*^9, 3.572796995841373*^9}, {3.57279741546651*^9, 3.5727974308793373`*^9}, {3.572842795856916*^9, 3.5728428061217337`*^9}, { 3.5728522627179437`*^9, 3.572852288426789*^9}, {3.5728523495164957`*^9, 3.572852453865079*^9}, {3.5728524960787535`*^9, 3.572852515110787*^9}, { 3.572852550008048*^9, 3.572852634669397*^9}, {3.5728602362372026`*^9, 3.5728602649256525`*^9}, 3.572860311756935*^9, 3.5731241886618786`*^9, 3.5731408095114717`*^9, 3.5731408826443996`*^9, {3.5740716827539716`*^9, 3.5740716897271843`*^9}, 3.574073190995821*^9, {3.5740743978919406`*^9, 3.574074401682747*^9}, {3.5740753037855315`*^9, 3.574075320758362*^9}, 3.5740757790247664`*^9, {3.574341432758819*^9, 3.5743414337884207`*^9}, { 3.57434147314729*^9, 3.5743415190269704`*^9}, 3.574501459301843*^9}], Cell[CellGroupData[{ Cell[BoxData[ RowBox[{ RowBox[{"Show", "[", RowBox[{"Plot1o", ",", RowBox[{"(*", RowBox[{"Plot2", ","}], "*)"}], "Plot7", ",", "Plot8", ",", "Plot8a", ",", "Plot8b", ",", "Plot8c", ",", "Plot8d", ",", "Plot8e", ",", "Plot9", ",", RowBox[{"{", RowBox[{ RowBox[{"AspectRatio", "\[Rule]", "Automatic"}], ",", RowBox[{"Boxed", "\[Rule]", "False"}], ",", RowBox[{"(*", " ", RowBox[{ RowBox[{"Axes", "\[Rule]", "Automatic"}], ",", RowBox[{"AxesLabel", "\[Rule]", RowBox[{"{", RowBox[{"xl", ",", "yl", ",", "zl"}], "}"}]}], ","}], "*)"}], RowBox[{"SphericalRegion", "\[Rule]", "True"}]}], "}"}]}], "]"}], "\[IndentingNewLine]"}]], "Input", CellChangeTimes->{{3.5681365021632137`*^9, 3.5681365171392403`*^9}, { 3.568136560351316*^9, 3.5681365863097615`*^9}, {3.5681369135895367`*^9, 3.5681369265999594`*^9}, {3.568137821916732*^9, 3.5681378378443604`*^9}, { 3.5682072492149415`*^9, 3.5682072529901485`*^9}, 3.568209802830227*^9, { 3.5682216503836985`*^9, 3.5682217583046885`*^9}, {3.5682217912831464`*^9, 3.568221843465238*^9}, {3.5682219760654707`*^9, 3.5682221133457117`*^9}, { 3.568222159615393*^9, 3.5682221693498106`*^9}, {3.5682222565227633`*^9, 3.5682222578487663`*^9}, 3.5682224736283445`*^9, 3.5682227227607822`*^9, 3.5682227558640404`*^9, {3.568222818810151*^9, 3.5682228486062036`*^9}, { 3.5682230057764797`*^9, 3.5682230079916835`*^9}, {3.568223041952943*^9, 3.5682230548229656`*^9}, 3.5682232619601297`*^9, 3.5682233000709963`*^9, { 3.568223536645412*^9, 3.5682235381118145`*^9}, {3.568223591151908*^9, 3.568223591526308*^9}, {3.5682236491528096`*^9, 3.568223657483224*^9}, { 3.568223713222122*^9, 3.5682237532361927`*^9}, {3.568223800379475*^9, 3.568223827648323*^9}, {3.5682238887380304`*^9, 3.5682238893152313`*^9}, { 3.5682240287170763`*^9, 3.5682240612431335`*^9}, 3.5682241088076167`*^9, { 3.568224198772975*^9, 3.5682242396450467`*^9}, {3.568224282170721*^9, 3.5682243185031853`*^9}, {3.568224437890195*^9, 3.568224439590598*^9}, { 3.568224572253231*^9, 3.5682245867144566`*^9}, {3.5682247081762695`*^9, 3.568224733557514*^9}, {3.56822480520844*^9, 3.5682248433505073`*^9}, { 3.568224884206979*^9, 3.5682248959069996`*^9}, {3.568224982830352*^9, 3.5682250047639904`*^9}, {3.56822503870965*^9, 3.5682250803305235`*^9}, { 3.5682251223413973`*^9, 3.568225141451431*^9}, {3.568225234177994*^9, 3.5682252929588966`*^9}, {3.5682253775890455`*^9, 3.568225482140429*^9}, { 3.56822551694409*^9, 3.5682255297205124`*^9}, {3.568225573197789*^9, 3.5682255809666023`*^9}, 3.568225660698343*^9, 3.5682257301964645`*^9, { 3.568225765078126*^9, 3.5682257828933573`*^9}, {3.568225927026843*^9, 3.568225927416844*^9}, {3.568267062420238*^9, 3.568267081358671*^9}, { 3.568267188328059*^9, 3.5682672830358257`*^9}, {3.5682676367040462`*^9, 3.568267747979042*^9}, 3.5682678404716043`*^9, 3.568267882030078*^9, { 3.5682679252577534`*^9, 3.568267996612279*^9}, {3.5682680488879704`*^9, 3.568268061133992*^9}, {3.568268100914062*^9, 3.5682681150944867`*^9}, { 3.5682681672609787`*^9, 3.5682681709113846`*^9}, {3.568268272904364*^9, 3.5682683182536435`*^9}, {3.5682685202739983`*^9, 3.568268599194537*^9}, { 3.5682686348873997`*^9, 3.568268637773405*^9}, {3.5682686944951043`*^9, 3.568268872273017*^9}, {3.5682689420207396`*^9, 3.568269016947671*^9}, { 3.5682695040741262`*^9, 3.568269601153097*^9}, {3.5682696652380095`*^9, 3.5682696728352227`*^9}, {3.5682697489633565`*^9, 3.5682698308635006`*^9}, {3.568271156491429*^9, 3.568271160063835*^9}, { 3.568271244927984*^9, 3.568271369010602*^9}, {3.5682716250070515`*^9, 3.5682717312276382`*^9}, {3.5682717843301315`*^9, 3.5682718576814604`*^9}, {3.568271940673606*^9, 3.5682720536490045`*^9}, { 3.5682722259669075`*^9, 3.5682723223126764`*^9}, {3.568272370813162*^9, 3.568272411466833*^9}, {3.5682725893539457`*^9, 3.568272622238803*^9}, { 3.5682726936713285`*^9, 3.5682726960113325`*^9}, {3.568272741079812*^9, 3.56827275143823*^9}, {3.5682729218373294`*^9, 3.568272991070251*^9}, { 3.5682734285574193`*^9, 3.5682734302890224`*^9}, {3.5682734898811274`*^9, 3.5682735111595645`*^9}, {3.5682736115925407`*^9, 3.5682736313577757`*^9}, {3.5682738601945777`*^9, 3.568273987272401*^9}, { 3.5682763944346285`*^9, 3.5682764313910933`*^9}, 3.5682765128232365`*^9, { 3.5682766527398825`*^9, 3.568276660976697*^9}, {3.5682774496048822`*^9, 3.568277461663703*^9}, {3.5683784032731285`*^9, 3.568378422991563*^9}, { 3.568378459308427*^9, 3.5683784812420654`*^9}, {3.568378513440522*^9, 3.568378867046343*^9}, {3.568378915468828*^9, 3.56837896203491*^9}, { 3.5683790764299107`*^9, 3.568379270041851*^9}, {3.568380233530743*^9, 3.568380234388745*^9}, 3.5683804214954734`*^9, 3.568380471867962*^9, 3.5683805399464817`*^9, {3.5683812396077104`*^9, 3.568381293537005*^9}, { 3.568381339541486*^9, 3.568381420224828*^9}, {3.5684645223056345`*^9, 3.5684645572340956`*^9}, {3.5684651558539467`*^9, 3.5684651618911576`*^9}, {3.5688209923798466`*^9, 3.568820997683856*^9}, { 3.568821158754139*^9, 3.568821160750942*^9}, 3.56882222404881*^9, { 3.568822649274357*^9, 3.5688226508031597`*^9}, 3.568822723109287*^9, { 3.5693397221142225`*^9, 3.5693397223326235`*^9}, {3.5693899272912874`*^9, 3.5693899274472876`*^9}, {3.5693910617720795`*^9, 3.5693910848757205`*^9}, 3.5693911374166126`*^9, {3.569391214402748*^9, 3.5693912147147484`*^9}, 3.569391451944365*^9, {3.569391487793228*^9, 3.569391507620863*^9}, { 3.5693923162258854`*^9, 3.5693923173958874`*^9}, {3.569406068526634*^9, 3.569406086092265*^9}, 3.569690172138941*^9, 3.569780036185542*^9, { 3.570453906913044*^9, 3.5704539079894457`*^9}, {3.570454575670618*^9, 3.5704545899602437`*^9}, {3.570454765008151*^9, 3.570454772277764*^9}, 3.5708553779481487`*^9, {3.5709431726830034`*^9, 3.570943174555007*^9}, { 3.5709495710522423`*^9, 3.5709495907082767`*^9}, {3.570949647617176*^9, 3.570949673138821*^9}, {3.570950759321929*^9, 3.5709507772775607`*^9}, { 3.5709508127364225`*^9, 3.5709508405200715`*^9}, {3.570991123104905*^9, 3.570991124259307*^9}, {3.5709912161278687`*^9, 3.570991227937089*^9}, { 3.5709912804155817`*^9, 3.570991308776431*^9}, {3.5709914026885962`*^9, 3.5709914215490294`*^9}, {3.570991574429298*^9, 3.5709916038821497`*^9}, 3.570991652445035*^9, 3.570991830004547*^9, 3.570991865276209*^9, { 3.5709919181759014`*^9, 3.5709919260539155`*^9}, {3.570992027251293*^9, 3.570992050058533*^9}, 3.5709920901350036`*^9, 3.570992186979974*^9, { 3.57122255431676*^9, 3.5712225562355638`*^9}, 3.571223175338251*^9, { 3.5713153738729277`*^9, 3.571315375682531*^9}, 3.5713224026962075`*^9, { 3.5713224627875133`*^9, 3.5713224654863176`*^9}, {3.5713224965147724`*^9, 3.571322572268505*^9}, {3.5713226259637995`*^9, 3.5713226549330506`*^9}, { 3.5713308245340652`*^9, 3.571330884469371*^9}, {3.5713309160126257`*^9, 3.5713309422674723`*^9}, 3.571331071326499*^9, {3.5713311246629925`*^9, 3.5713311332274075`*^9}, {3.571331300334901*^9, 3.5713313470881834`*^9}, 3.5713314298931284`*^9, 3.571331594130217*^9, {3.571331632849485*^9, 3.5713316334578857`*^9}, {3.5713316704299507`*^9, 3.5713316709447517`*^9}, {3.571331783327349*^9, 3.571331790019761*^9}, { 3.5713319475956383`*^9, 3.571331948360039*^9}, {3.5713326567416835`*^9, 3.571332681717327*^9}, {3.571332736801024*^9, 3.571332753305853*^9}, { 3.571332796221528*^9, 3.5713328475768185`*^9}, {3.571332914344936*^9, 3.571332924672154*^9}, {3.5713330072586994`*^9, 3.5713330320471425`*^9}, { 3.5713330798612266`*^9, 3.5713330883320417`*^9}, {3.5713331731961904`*^9, 3.571333178266199*^9}, {3.571333407851803*^9, 3.571333426837036*^9}, { 3.571333542292839*^9, 3.571333557705666*^9}, {3.5713336117441607`*^9, 3.5713337055939255`*^9}, {3.5713337750608473`*^9, 3.571333798070888*^9}, { 3.5713366694988756`*^9, 3.5713366834765005`*^9}, {3.5713369716090064`*^9, 3.57133697359021*^9}, {3.57138272164856*^9, 3.571382756233821*^9}, { 3.57138283537276*^9, 3.571382866900415*^9}, {3.5713829070080853`*^9, 3.5713829086616883`*^9}, {3.571382939175342*^9, 3.5713830233374896`*^9}, { 3.5713831045200324`*^9, 3.571383106126835*^9}, {3.571383198260597*^9, 3.5713832448422785`*^9}, 3.5716785972796593`*^9, 3.5718167268987517`*^9, { 3.571838452469782*^9, 3.5718386879053955`*^9}, 3.571838766139532*^9, { 3.571838857446493*^9, 3.5718388645757055`*^9}, 3.5723437133735733`*^9, 3.5723437554312468`*^9, {3.5723449027196617`*^9, 3.572344929582909*^9}, 3.5723450406551046`*^9, {3.57234950163894*^9, 3.5723495196413713`*^9}, { 3.572584520172369*^9, 3.5725845258195786`*^9}, {3.5726224003989472`*^9, 3.57262241340937*^9}, 3.572796748424938*^9, 3.5727968708695536`*^9, { 3.572796971801731*^9, 3.572796995841373*^9}, {3.57279741546651*^9, 3.5727974308793373`*^9}, {3.572842795856916*^9, 3.5728428061217337`*^9}, { 3.5728522627179437`*^9, 3.572852288426789*^9}, {3.5728523495164957`*^9, 3.572852453865079*^9}, {3.5728524960787535`*^9, 3.572852515110787*^9}, { 3.572852550008048*^9, 3.572852634669397*^9}, {3.5728602362372026`*^9, 3.5728602649256525`*^9}, 3.572860311756935*^9, 3.5731241886618786`*^9, 3.5731408095114717`*^9, 3.5731408826443996`*^9, {3.5740716827539716`*^9, 3.5740716897271843`*^9}, 3.574073190995821*^9, {3.5740743978919406`*^9, 3.574074401682747*^9}, {3.5740753037855315`*^9, 3.574075320758362*^9}, 3.5740757790247664`*^9, {3.574341432758819*^9, 3.5743414337884207`*^9}, { 3.57434147314729*^9, 3.5743415190269704`*^9}, 3.574501459301843*^9}], Cell[BoxData[ Graphics3DBox[{ {RGBColor[0.4, 0.2666666666666667, 0.13333333333333336`], Opacity[0.8], SphereBox[{-6.6157606506599995`, 2.23514901554, 2.8534673627399996`}, 0.255]}, {RGBColor[0.4, 0.2666666666666667, 0.13333333333333336`], Opacity[0.8], SphereBox[{-3.5740009892799995`, 0.014783817826759998`, 1.3664740986819999`}, 0.255]}, {RGBColor[0.4, 0.2666666666666667, 0.13333333333333336`], Opacity[0.8], SphereBox[{-5.13330839818, -1.9670724851799999`, 1.5223122429979998`}, 0.255]}, {RGBColor[0.4, 0.2666666666666667, 0.13333333333333336`], Opacity[0.8], SphereBox[{-7.483333857259999, -1.65976524306, 2.39745758168}, 0.255]}, {RGBColor[0.4, 0.2666666666666667, 0.13333333333333336`], Opacity[0.8], SphereBox[{-1.378759207408, -2.98894181968, 0.0591733681832}, 0.255]}, {RGBColor[0.4, 0.2666666666666667, 0.13333333333333336`], Opacity[0.8], SphereBox[{5.121667686019999, 0.1550637346012, -0.252359679218}, 0.255]}, {RGBColor[0.4, 0.2666666666666667, 0.13333333333333336`], Opacity[0.8], SphereBox[{2.974428724, 0.235200967138, 1.6623825135699999`}, 0.255]}, {RGBColor[0.4, 0.2666666666666667, 0.13333333333333336`], Opacity[0.8], SphereBox[{0.699243973424, 1.0910824389759999`, 0.1216212535792}, 0.255]}, {RGBColor[0.4, 0.2666666666666667, 0.13333333333333336`], Opacity[0.8], SphereBox[{4.06289200274, 1.53737713867, -2.54402473024}, 0.255]}, {RGBColor[0.4, 0.2666666666666667, 0.13333333333333336`], Opacity[0.8], SphereBox[{5.204437684819999, 0.506476803616, -4.9764989347}, 0.255]}, {RGBColor[ NCache[ Rational[1, 3], 0.3333333333333333], NCache[ Rational[1, 3], 0.3333333333333333], 1], Opacity[0.8], SphereBox[{-8.22860399714, 0.497655562648, 3.0753778869199997`}, 0.24]}, {RGBColor[ NCache[ Rational[1, 3], 0.3333333333333333], NCache[ Rational[1, 3], 0.3333333333333333], 1], Opacity[0.8], SphereBox[{-4.31927112916, 2.1722022424799996`, 2.0444000731}, 0.24]}, {RGBColor[ NCache[ Rational[1, 3], 0.3333333333333333], NCache[ Rational[1, 3], 0.3333333333333333], 1], Opacity[0.8], SphereBox[{-1.4352809120680001`, -0.641820869462, 0.518926318504}, 0.24]}, {RGBColor[ NCache[ Rational[1, 3], 0.3333333333333333], NCache[ Rational[1, 3], 0.3333333333333333], 1], Opacity[0.8], SphereBox[{-4.05792202336, -3.9592027371199996`, 0.784130465344}, 0.24]}, {RGBColor[ NCache[ Rational[1, 3], 0.3333333333333333], NCache[ Rational[1, 3], 0.3333333333333333], 1], Opacity[0.8], SphereBox[{-8.9598523701, -3.53637654462, 2.5450073877599997`}, 0.24]}, {RGBColor[1, NCache[ Rational[1, 3], 0.3333333333333333], NCache[ Rational[1, 3], 0.3333333333333333]], Opacity[0.8], SphereBox[{1.461440389086, 1.045899090316, -2.4436046906}, 0.178]}, {RGBColor[1, NCache[ Rational[1, 3], 0.3333333333333333], NCache[ Rational[1, 3], 0.3333333333333333]], Opacity[0.8], SphereBox[{3.52658776394, 2.14432878398, 3.4114845532799998`}, 0.178]}, {RGBColor[1, NCache[ Rational[1, 3], 0.3333333333333333], NCache[ Rational[1, 3], 0.3333333333333333]], Opacity[0.8], SphereBox[{7.115101848899999, 1.605702071926, 0.7124871732320001}, 0.178]}, {RGBColor[1, NCache[ Rational[1, 3], 0.3333333333333333], NCache[ Rational[1, 3], 0.3333333333333333]], Opacity[0.8], SphereBox[{6.3805086609199995`, 2.47410486824, -6.30491962092}, 0.178]}, {RGBColor[1, 1, 1], Opacity[0.8], SphereBox[{2.6414401055399996`, -1.669191196348, 2.49111240224}, 0.12]}, {RGBColor[1, 1, 1], Opacity[0.8], SphereBox[{5.52393365964, -1.844204390386, -0.7671134827139999}, 0.12]}, {RGBColor[1, 1, 1], Opacity[0.8], SphereBox[{0.0700666937102, 3.01409407274, 0.6958122310079999}, 0.12]}, {RGBColor[1, 1, 1], Opacity[0.8], SphereBox[{4.4997777566799995`, 3.59461789994, -2.5218771415199996`}, 0.12]}, {RGBColor[1, 1, 1], Opacity[0.8], SphereBox[{7.181922560259999, 2.14385635248, -7.85986176276}, 0.12]}, {RGBColor[1, 1, 1], Opacity[0.8], SphereBox[{-10.80558554882, -3.29488845908, 3.2323952202599995`}, 0.12]}, {RGBColor[1, 1, 1], Opacity[0.8], SphereBox[{-8.33342709836, -5.33719093632, 1.9961364710599998`}, 0.12]}, {RGBColor[1, 1, 1], Opacity[0.8], SphereBox[{0.212966451022, -4.09743619402, -0.688043567422}, 0.12]}, {RGBColor[1, 1, 1], Opacity[0.8], SphereBox[{-7.2761065041, 4.1144059335, 3.44788067604}, 0.12]}, {RGBColor[1, 1, 1], Opacity[0.8], SphereBox[{8.45580575412, 1.5402211762999998`, -0.510579398762}, 0.12]}, {RGBColor[1, 1, 1], Opacity[0.8], SphereBox[{2.1601457906, 2.17588720818, 4.6073976523799995`}, 0.12]}, {RGBColor[1, 1, 1], Opacity[0.8], SphereBox[{3.6832271520799997`, -0.32915058495399996`, -6.16462636268}, 0.12]}, {RGBColor[1, 1, 1], Opacity[0.8], SphereBox[{6.6255872258599995`, -0.972885746854, -4.51192869486}, 0.12]}, {RGBColor[0.36, 0.24, 0.12], Opacity[0.5], SphereBox[{-4.353654693729999, -0.9761443336766197, 1.4443931708399997`}, 1.0082774367139142`]}, {RGBColor[0.36, 0.24, 0.12], Opacity[0.5], SphereBox[{-6.308321127719999, -1.81341886412, 1.9598849123389996`}, 1.0082237295111656`]}, {RGBColor[0.36, 0.24, 0.12], Opacity[0.5], SphereBox[{4.04804820501, 0.1951323508696, 0.7050114171759999}, 1.1820356841386856`]}, {RGBColor[0.36, 0.24, 0.12], Opacity[0.5], SphereBox[{1.8368363487119996`, 0.6631417030569999, 0.8920018835745998}, 1.1820052122367029`]}, {RGBColor[0.36, 0.24, 0.12], Opacity[0.5], SphereBox[{4.59227984438, 0.8462204366356, -1.3981922047289999`}, 1.182055680007637]}, {RGBColor[0.36, 0.24, 0.12], Opacity[0.5], SphereBox[{4.633942496807077, 1.0216762298865305`, -3.7608534722411946`}, 1.1826938151754902`]}, {RGBColor[0.36, 0.24, 0.12], Opacity[0.5], SphereBox[{-7.432945683802039, 1.3548070728557158`, 2.965903551569111}, 0.9494141954564819]}, {RGBColor[0.36, 0.24, 0.12], Opacity[0.5], SphereBox[{-7.860629478175967, -0.567563397165987, 2.7406571127094486`}, 0.9504222396469579]}, {RGBColor[0.36, 0.24, 0.12], Opacity[0.5], SphereBox[{-5.452533794595423, 2.2032649698082483`, 2.44365543420226}, 0.9767176045651307]}, {RGBColor[0.36, 0.24, 0.12], Opacity[0.5], SphereBox[{-3.951296611259418, 1.1069844613819482`, 1.7096765007200405`}, 0.9504219679895849]}, {RGBColor[0.36, 0.24, 0.12], Opacity[0.5], SphereBox[{-2.4913298377992454`, -0.317605147157046, 0.9374251825206756}, 0.956091333777463]}, {RGBColor[0.36, 0.24, 0.12], Opacity[0.5], SphereBox[{-1.4073954704207943`, -1.7997920362898308`, 0.29210346973429036`}, 0.955086496544213]}, {RGBColor[0.36, 0.24, 0.12], Opacity[0.5], SphereBox[{-0.3802280520624779, 0.21471849632718176`, 0.3225463896998572}, 1.1478645928017277`]}, {RGBColor[0.36, 0.24, 0.12], Opacity[0.5], SphereBox[{-4.58889056256516, -2.975594878078602, 1.148605326962382}, 0.9504729593841252]}, {RGBColor[0.36, 0.24, 0.12], Opacity[0.5], SphereBox[{-2.7328197784247714`, -3.4793159186640614`, 0.42556984662768177`}, 1.2289990465519192`]}, {RGBColor[0.36, 0.24, 0.12], Opacity[0.5], SphereBox[{-8.23078280525264, -2.6097507196688663`, 2.472150818758948}, 0.9560868735513617]}, {RGBColor[0.36, 0.24, 0.12], Opacity[0.5], SphereBox[{1.091590958960245, 1.0678239320099352`, -1.1988502754608896`}, 1.1207235478176094`]}, {RGBColor[0.36, 0.24, 0.12], Opacity[0.5], SphereBox[{2.7233806871410433`, 1.2843105801058108`, -2.4923175300350584`}, 1.1071872606919488`]}, {RGBColor[0.36, 0.24, 0.12], Opacity[0.5], SphereBox[{3.25874645758376, 1.2182490651374684`, 2.563030138194815}, 1.1062264229954242`]}, {RGBColor[0.36, 0.24, 0.12], Opacity[0.5], SphereBox[{6.148126692786707, 0.9020263454741215, 0.24445920765056467`}, 1.1062315434158296`]}, {RGBColor[0.36, 0.24, 0.12], Opacity[0.5], SphereBox[{5.8096964233647235`, 1.519106232044523, -5.660163649787626}, 1.107907954710963]}, {Opacity[0.5], SphereBox[{2.7315648733725757`, -1.1537594606024442`, 2.2668131779670477`}, 1.2771220120427036`]}, {Opacity[0.5], SphereBox[{5.41505226477238, -1.3030621699688933`, -0.627784989096487}, 1.276997988240344]}, {Opacity[0.5], SphereBox[{0.24037254752015685`, 2.4935728321706785`, 0.5403900824118726}, 1.276919691677592]}, {Opacity[0.5], SphereBox[{4.381522302498565, 3.0377676515843266`, -2.5278720112072977`}, 1.2769354189468665`]}, {Opacity[0.5], SphereBox[{6.945984486157456, 2.241082266390162, -7.402083260803959}, 1.078117229634348]}, {Opacity[0.5], SphereBox[{-10.290185973527043`, -3.3623212051348434`, 3.0404501433568822`}, 1.2050059547651581`]}, {Opacity[0.5], SphereBox[{-8.508370173117193, -4.834273795260341, 2.149420781486337}, 1.2047667868184277`]}, {Opacity[0.5], SphereBox[{-0.22298002741227818`, -3.7938385129130814`, \ -0.48339360781473933`}, 1.252325386764789]}, {Opacity[0.5], SphereBox[{-7.0952554733513455`, 3.5997278312841483`, 3.285086800919838}, 1.2523992078904067`]}, {Opacity[0.5], SphereBox[{8.068865720823235, 1.5591195921509395`, -0.15759063051204047`}, 1.1138478375474603`]}, {Opacity[0.5], SphereBox[{2.554472156579218, 2.1667801118132224`, 4.262282326888085}, 1.1140408924536294`]}, {Opacity[0.5], SphereBox[{ 4.094966980863706, -0.10297473980187255`, -5.8430407745966955`}, 1.278431025436985]}, {Opacity[0.5], SphereBox[{6.240930656099655, -0.572472906640665, -4.637671967970317}, 1.2784318999806714`]}, {RGBColor[ NCache[ Rational[1, 3], 0.3333333333333333], 1, 1], Opacity[0.3], SphereBox[{-6.164378933859384, 1.9822984066267506`, 4.1543597930778535`}, 1.4]}, {RGBColor[ NCache[ Rational[1, 3], 0.3333333333333333], 1, 1], Opacity[0.3], SphereBox[{-3.1226185193725158`, -0.23806773135902182`, 2.667366084949334}, 1.4]}, {RGBColor[ NCache[ Rational[1, 3], 0.3333333333333333], 1, 1], Opacity[0.3], SphereBox[{-4.681923910926701, -2.219925702126562, 2.823203205126206}, 1.4]}, {RGBColor[ NCache[ Rational[1, 3], 0.3333333333333333], 1, 1], Opacity[0.3], SphereBox[{-7.031948197254583, -1.9126119412113431`, 3.6983494039217417`}, 1.4]}, {RGBColor[ NCache[ Rational[1, 3], 0.3333333333333333], 1, 1], Opacity[0.3], SphereBox[{-0.9367217954066644, -3.2340329451574066`, 1.3647511202161378`}, 1.4]}, {RGBColor[ NCache[ Rational[1, 3], 0.3333333333333333], 1, 1], Opacity[0.3], SphereBox[{-7.777223838805181, 0.2448065080429469, 4.376271160116138}, 1.4]}, {RGBColor[ NCache[ Rational[1, 3], 0.3333333333333333], 1, 1], Opacity[0.3], SphereBox[{-3.8678895243580023`, 1.919350322755194, 3.345292287519724}, 1.4]}, {RGBColor[ NCache[ Rational[1, 3], 0.3333333333333333], 1, 1], Opacity[0.3], SphereBox[{-0.9931512306189632, -0.8869039488106453, 1.824474337153164}, 1.4]}, {RGBColor[ NCache[ Rational[1, 3], 0.3333333333333333], 1, 1], Opacity[0.3], SphereBox[{-3.6158687800158678`, -4.204349368946454, 2.089692435896558}, 1.4]}, {RGBColor[ NCache[ Rational[1, 3], 0.3333333333333333], 1, 1], Opacity[0.3], SphereBox[{-8.508461469673621, -3.789248125668567, 3.845892555063502}, 1.4]}, {RGBColor[1, 1, NCache[ Rational[1, 3], 0.3333333333333333]], Opacity[0.3], SphereBox[{-7.067142367460615, 2.487999624453249, 1.5525749324021458`}, 1.4]}, {RGBColor[1, 1, NCache[ Rational[1, 3], 0.3333333333333333]], Opacity[0.3], SphereBox[{-4.025383459187484, 0.26763536701254087`, 0.06558211241466605}, 1.4]}, {RGBColor[1, 1, NCache[ Rational[1, 3], 0.3333333333333333]], Opacity[0.3], SphereBox[{-5.584692885433299, -1.7142192682334365`, 0.2214212808697933}, 1.4]}, {RGBColor[1, 1, NCache[ Rational[1, 3], 0.3333333333333333]], Opacity[0.3], SphereBox[{-7.934719517265415, -1.406918544908657, 1.0965657594382585`}, 1.4]}, {RGBColor[1, 1, NCache[ Rational[1, 3], 0.3333333333333333]], Opacity[0.3], SphereBox[{-1.8207966194093357`, -2.7438506942025924`, \ -1.2464043838497378`}, 1.4]}, {RGBColor[1, 1, NCache[ Rational[1, 3], 0.3333333333333333]], Opacity[0.3], SphereBox[{-8.67998415547482, 0.7505046172530534, 1.774484613723861}, 1.4]}, {RGBColor[1, 1, NCache[ Rational[1, 3], 0.3333333333333333]], Opacity[0.3], SphereBox[{-4.770652733961997, 2.4250541622048054`, 0.7435078586802759}, 1.4]}, {RGBColor[1, 1, NCache[ Rational[1, 3], 0.3333333333333333]], Opacity[0.3], SphereBox[{-1.8774105935170375`, -0.39673779011335475`, \ -0.7866217001451641}, 1.4]}, {RGBColor[1, 1, NCache[ Rational[1, 3], 0.3333333333333333]], Opacity[0.3], SphereBox[{-4.499975266704131, -3.714056105293545, -0.5214315052085583}, 1.4]}, {RGBColor[1, 1, NCache[ Rational[1, 3], 0.3333333333333333]], Opacity[0.3], SphereBox[{-9.411243270526379, -3.2835049635714335`, 1.2441222204564972`}, 1.4]}, {RGBColor[1, NCache[ Rational[1, 3], 0.3333333333333333], NCache[ Rational[1, 3], 0.3333333333333333]], Opacity[0.4], SphereBox[{0.8591582833208158, 2.0343117496429546`, -3.0420240084343035`}, 1.125]}, {RGBColor[1, NCache[ Rational[1, 3], 0.3333333333333333], NCache[ Rational[1, 3], 0.3333333333333333]], Opacity[0.4], SphereBox[{4.601787081503492, 1.7868265435649482`, 4.054872131345679}, 1.125]}, {RGBColor[1, NCache[ Rational[1, 3], 0.3333333333333333], NCache[ Rational[1, 3], 0.3333333333333333]], Opacity[0.4], SphereBox[{7.541655467902327, 1.0154097351443407`, 1.7929574260630834`}, 1.125]}, {RGBColor[1, NCache[ Rational[1, 3], 0.3333333333333333], NCache[ Rational[1, 3], 0.3333333333333333]], Opacity[0.4], SphereBox[{7.339886191012873, 2.873847862087712, -5.519038399855032}, 1.125]}, {RGBColor[1, NCache[ Rational[1, 3], 0.3333333333333333], NCache[ Rational[1, 3], 0.3333333333333333]], Opacity[0.4], SphereBox[{1.2818592598088774`, -0.169501356623579, -2.8776108790197337`}, 1.125]}, {RGBColor[1, NCache[ Rational[1, 3], 0.3333333333333333], NCache[ Rational[1, 3], 0.3333333333333333]], Opacity[0.4], SphereBox[{3.5121615827546773`, 3.2786775668719805`, 2.7705058297268}, 1.125]}, {RGBColor[1, NCache[ Rational[1, 3], 0.3333333333333333], NCache[ Rational[1, 3], 0.3333333333333333]], Opacity[0.4], SphereBox[{6.704737939017857, 2.8406683946182345`, 0.7778220282655898}, 1.125]}, {RGBColor[1, NCache[ Rational[1, 3], 0.3333333333333333], NCache[ Rational[1, 3], 0.3333333333333333]], Opacity[0.4], SphereBox[{5.412874804123493, 3.2947557584813536`, -6.6016111029803906`}, 1.125]}, {RGBColor[ NCache[ Rational[1, 3], 0.3333333333333333], NCache[ Rational[1, 3], 0.3333333333333333], 1], Opacity[0.4], SphereBox[{-9.584512935425796, 0.7391047994279538, 3.5927766746409056`}, 1.246]}, {RGBColor[ NCache[ Rational[1, 3], 0.3333333333333333], NCache[ Rational[1, 3], 0.3333333333333333], 1], Opacity[0.4], SphereBox[{-3.4639478607421434`, 3.3675083401924213`, 1.979950653595258}, 1.246]}, {RGBColor[ NCache[ Rational[1, 3], 0.3333333333333333], NCache[ Rational[1, 3], 0.3333333333333333], 1], Opacity[0.4], SphereBox[{-4.596486047940976, -5.326283562332404, 0.7097860158960873}, 1.246]}, {RGBColor[1., 0.75, 0.5], TubeBox[{{-5.13330839818, -1.9670724851799999`, 1.5223122429979998`}, {-3.5740009892799995`, 0.014783817826759998`, 1.3664740986819999`}}, 0.1]}, {RGBColor[1., 0.75, 0.5], TubeBox[{{-7.483333857259999, -1.65976524306, 2.39745758168}, {-5.13330839818, -1.9670724851799999`, 1.5223122429979998`}}, 0.1]}, {RGBColor[1., 0.75, 0.5], TubeBox[{{2.974428724, 0.235200967138, 1.6623825135699999`}, { 5.121667686019999, 0.1550637346012, -0.252359679218}}, 0.1]}, {RGBColor[1., 0.75, 0.5], TubeBox[{{0.699243973424, 1.0910824389759999`, 0.1216212535792}, { 2.974428724, 0.235200967138, 1.6623825135699999`}}, 0.1]}, {RGBColor[1., 0.75, 0.5], TubeBox[{{4.06289200274, 1.53737713867, -2.54402473024}, { 5.121667686019999, 0.1550637346012, -0.252359679218}}, 0.1]}, {RGBColor[1., 0.75, 0.5], TubeBox[{{5.204437684819999, 0.506476803616, -4.9764989347}, { 4.06289200274, 1.53737713867, -2.54402473024}}, 0.1]}, {RGBColor[1., 0.75, 0.5], TubeBox[{{-8.22860399714, 0.497655562648, 3.0753778869199997`}, {-6.6157606506599995`, 2.23514901554, 2.8534673627399996`}}, 0.1]}, {RGBColor[1., 0.75, 0.5], TubeBox[{{-8.22860399714, 0.497655562648, 3.0753778869199997`}, {-7.483333857259999, -1.65976524306, 2.39745758168}}, 0.1]}, {RGBColor[1., 0.75, 0.5], TubeBox[{{-4.31927112916, 2.1722022424799996`, 2.0444000731}, {-6.6157606506599995`, 2.23514901554, 2.8534673627399996`}}, 0.1]}, {RGBColor[1., 0.75, 0.5], TubeBox[{{-4.31927112916, 2.1722022424799996`, 2.0444000731}, {-3.5740009892799995`, 0.014783817826759998`, 1.3664740986819999`}}, 0.1]}, {RGBColor[1., 0.75, 0.5], TubeBox[{{-1.4352809120680001`, -0.641820869462, 0.518926318504}, {-3.5740009892799995`, 0.014783817826759998`, 1.3664740986819999`}}, 0.1]}, {RGBColor[1., 0.75, 0.5], TubeBox[{{-1.4352809120680001`, -0.641820869462, 0.518926318504}, {-1.378759207408, -2.98894181968, 0.0591733681832}}, 0.1]}, {RGBColor[1., 0.75, 0.5], TubeBox[{{-1.4352809120680001`, -0.641820869462, 0.518926318504}, { 0.699243973424, 1.0910824389759999`, 0.1216212535792}}, 0.1]}, {RGBColor[1., 0.75, 0.5], TubeBox[{{-4.05792202336, -3.9592027371199996`, 0.784130465344}, {-5.13330839818, -1.9670724851799999`, 1.5223122429979998`}}, 0.1]}, {RGBColor[1., 0.75, 0.5], TubeBox[{{-4.05792202336, -3.9592027371199996`, 0.784130465344}, {-1.378759207408, -2.98894181968, 0.0591733681832}}, 0.1]}, {RGBColor[1., 0.75, 0.5], TubeBox[{{-8.9598523701, -3.53637654462, 2.5450073877599997`}, {-7.483333857259999, -1.65976524306, 2.39745758168}}, 0.1]}, {RGBColor[1., 0.75, 0.5], TubeBox[{{1.461440389086, 1.045899090316, -2.4436046906}, {0.699243973424, 1.0910824389759999`, 0.1216212535792}}, 0.1]}, {RGBColor[1., 0.75, 0.5], TubeBox[{{1.461440389086, 1.045899090316, -2.4436046906}, {4.06289200274, 1.53737713867, -2.54402473024}}, 0.1]}, {RGBColor[1., 0.75, 0.5], TubeBox[{{3.52658776394, 2.14432878398, 3.4114845532799998`}, { 2.974428724, 0.235200967138, 1.6623825135699999`}}, 0.1]}, {RGBColor[1., 0.75, 0.5], TubeBox[{{7.115101848899999, 1.605702071926, 0.7124871732320001}, { 5.121667686019999, 0.1550637346012, -0.252359679218}}, 0.1]}, {RGBColor[1., 0.75, 0.5], TubeBox[{{6.3805086609199995`, 2.47410486824, -6.30491962092}, { 5.204437684819999, 0.506476803616, -4.9764989347}}, 0.1]}, {RGBColor[1., 0.75, 0.5], TubeBox[{{2.6414401055399996`, -1.669191196348, 2.49111240224}, { 2.974428724, 0.235200967138, 1.6623825135699999`}}, 0.1]}, {RGBColor[1., 0.75, 0.5], TubeBox[{{5.52393365964, -1.844204390386, -0.7671134827139999}, { 5.121667686019999, 0.1550637346012, -0.252359679218}}, 0.1]}, {RGBColor[1., 0.75, 0.5], TubeBox[{{0.0700666937102, 3.01409407274, 0.6958122310079999}, { 0.699243973424, 1.0910824389759999`, 0.1216212535792}}, 0.1]}, {RGBColor[1., 0.75, 0.5], TubeBox[{{4.4997777566799995`, 3.59461789994, -2.5218771415199996`}, { 4.06289200274, 1.53737713867, -2.54402473024}}, 0.1]}, {RGBColor[1., 0.75, 0.5], TubeBox[{{7.181922560259999, 2.14385635248, -7.85986176276}, { 6.3805086609199995`, 2.47410486824, -6.30491962092}}, 0.1]}, {RGBColor[1., 0.75, 0.5], TubeBox[{{-10.80558554882, -3.29488845908, 3.2323952202599995`}, {-8.9598523701, -3.53637654462, 2.5450073877599997`}}, 0.1]}, {RGBColor[1., 0.75, 0.5], TubeBox[{{-8.33342709836, -5.33719093632, 1.9961364710599998`}, {-8.9598523701, -3.53637654462, 2.5450073877599997`}}, 0.1]}, {RGBColor[1., 0.75, 0.5], TubeBox[{{ 0.212966451022, -4.09743619402, -0.688043567422}, {-1.378759207408, \ -2.98894181968, 0.0591733681832}}, 0.1]}, {RGBColor[1., 0.75, 0.5], TubeBox[{{-7.2761065041, 4.1144059335, 3.44788067604}, {-6.6157606506599995`, 2.23514901554, 2.8534673627399996`}}, 0.1]}, {RGBColor[1., 0.75, 0.5], TubeBox[{{8.45580575412, 1.5402211762999998`, -0.510579398762}, { 7.115101848899999, 1.605702071926, 0.7124871732320001}}, 0.1]}, {RGBColor[1., 0.75, 0.5], TubeBox[{{2.1601457906, 2.17588720818, 4.6073976523799995`}, { 3.52658776394, 2.14432878398, 3.4114845532799998`}}, 0.1]}, {RGBColor[1., 0.75, 0.5], TubeBox[{{3.6832271520799997`, -0.32915058495399996`, -6.16462636268}, { 5.204437684819999, 0.506476803616, -4.9764989347}}, 0.1]}, {RGBColor[1., 0.75, 0.5], TubeBox[{{6.6255872258599995`, -0.972885746854, -4.51192869486}, { 5.204437684819999, 0.506476803616, -4.9764989347}}, 0.1]}}, AspectRatio->Automatic, Boxed->False, SphericalRegion->True]], "Output", CellChangeTimes->CompressedData[" 1:eJxTTMoPSmVkYGDQAWLhQwvN9Ra/cnza6Z8KonepcBaAaKfM500gOmd56gUQ /fHipXx9IG3mbVoOoncY8O4zANJLxCXeg2hzq/cmrkBaI7HNC0R7zf4cAqJn Lr8QD6LfZdWlgWiVCyFT3YC0TG3hXBBdl79mMYh2UeNYAaJX6X7cBKJvnNm3 A0Qn+SzcC6JPLJE+AqKX6QefBtFb9uy9DKIPzX11A0Sfep0Y5w6kazPmZoHo 9jcl+SBa6PuxGhBdsI23EUQz7fXvANFKi65sANE/clbsANHrVA8dA9Hnavxf guhvnGqJPkC6+uvOFhC96C5vN4g2+aY8CUQbNUkvBtExqos2gWjD5PpsX1C4 PXxfAaJFHvcvzlrzyhEAjua4cg== "]] }, Open ]], Cell[CellGroupData[{ Cell[BoxData[ RowBox[{ RowBox[{"Show", "[", RowBox[{"Plot1o", ",", RowBox[{"(*", RowBox[{"Plot2", ","}], "*)"}], "Plot7", ",", "Plot8", ",", "Plot8a", ",", "Plot8b", ",", "Plot8c", ",", "Plot8d", ",", "Plot8e", ",", "Plot9", ",", RowBox[{"{", RowBox[{ RowBox[{"AspectRatio", "\[Rule]", "Automatic"}], ",", RowBox[{"Boxed", "\[Rule]", "False"}], ",", RowBox[{"(*", " ", RowBox[{ RowBox[{"Axes", "\[Rule]", "Automatic"}], ",", RowBox[{"AxesLabel", "\[Rule]", RowBox[{"{", RowBox[{"xl", ",", "yl", ",", "zl"}], "}"}]}], ","}], "*)"}], RowBox[{"SphericalRegion", "\[Rule]", "True"}]}], "}"}]}], "]"}], "\[IndentingNewLine]"}]], "Input"], Cell[BoxData[ Graphics3DBox[{ {RGBColor[0.4, 0.2666666666666667, 0.13333333333333336`], Opacity[0.8], SphereBox[{-6.6157606506599995`, 2.23514901554, 2.8534673627399996`}, 0.255]}, {RGBColor[0.4, 0.2666666666666667, 0.13333333333333336`], Opacity[0.8], SphereBox[{-3.5740009892799995`, 0.014783817826759998`, 1.3664740986819999`}, 0.255]}, {RGBColor[0.4, 0.2666666666666667, 0.13333333333333336`], Opacity[0.8], SphereBox[{-5.13330839818, -1.9670724851799999`, 1.5223122429979998`}, 0.255]}, {RGBColor[0.4, 0.2666666666666667, 0.13333333333333336`], Opacity[0.8], SphereBox[{-7.483333857259999, -1.65976524306, 2.39745758168}, 0.255]}, {RGBColor[0.4, 0.2666666666666667, 0.13333333333333336`], Opacity[0.8], SphereBox[{-1.378759207408, -2.98894181968, 0.0591733681832}, 0.255]}, {RGBColor[0.4, 0.2666666666666667, 0.13333333333333336`], Opacity[0.8], SphereBox[{5.121667686019999, 0.1550637346012, -0.252359679218}, 0.255]}, {RGBColor[0.4, 0.2666666666666667, 0.13333333333333336`], Opacity[0.8], SphereBox[{2.974428724, 0.235200967138, 1.6623825135699999`}, 0.255]}, {RGBColor[0.4, 0.2666666666666667, 0.13333333333333336`], Opacity[0.8], SphereBox[{0.699243973424, 1.0910824389759999`, 0.1216212535792}, 0.255]}, {RGBColor[0.4, 0.2666666666666667, 0.13333333333333336`], Opacity[0.8], SphereBox[{4.06289200274, 1.53737713867, -2.54402473024}, 0.255]}, {RGBColor[0.4, 0.2666666666666667, 0.13333333333333336`], Opacity[0.8], SphereBox[{5.204437684819999, 0.506476803616, -4.9764989347}, 0.255]}, {RGBColor[ NCache[ Rational[1, 3], 0.3333333333333333], NCache[ Rational[1, 3], 0.3333333333333333], 1], Opacity[0.8], SphereBox[{-8.22860399714, 0.497655562648, 3.0753778869199997`}, 0.24]}, {RGBColor[ NCache[ Rational[1, 3], 0.3333333333333333], NCache[ Rational[1, 3], 0.3333333333333333], 1], Opacity[0.8], SphereBox[{-4.31927112916, 2.1722022424799996`, 2.0444000731}, 0.24]}, {RGBColor[ NCache[ Rational[1, 3], 0.3333333333333333], NCache[ Rational[1, 3], 0.3333333333333333], 1], Opacity[0.8], SphereBox[{-1.4352809120680001`, -0.641820869462, 0.518926318504}, 0.24]}, {RGBColor[ NCache[ Rational[1, 3], 0.3333333333333333], NCache[ Rational[1, 3], 0.3333333333333333], 1], Opacity[0.8], SphereBox[{-4.05792202336, -3.9592027371199996`, 0.784130465344}, 0.24]}, {RGBColor[ NCache[ Rational[1, 3], 0.3333333333333333], NCache[ Rational[1, 3], 0.3333333333333333], 1], Opacity[0.8], SphereBox[{-8.9598523701, -3.53637654462, 2.5450073877599997`}, 0.24]}, {RGBColor[1, NCache[ Rational[1, 3], 0.3333333333333333], NCache[ Rational[1, 3], 0.3333333333333333]], Opacity[0.8], SphereBox[{1.461440389086, 1.045899090316, -2.4436046906}, 0.178]}, {RGBColor[1, NCache[ Rational[1, 3], 0.3333333333333333], NCache[ Rational[1, 3], 0.3333333333333333]], Opacity[0.8], SphereBox[{3.52658776394, 2.14432878398, 3.4114845532799998`}, 0.178]}, {RGBColor[1, NCache[ Rational[1, 3], 0.3333333333333333], NCache[ Rational[1, 3], 0.3333333333333333]], Opacity[0.8], SphereBox[{7.115101848899999, 1.605702071926, 0.7124871732320001}, 0.178]}, {RGBColor[1, NCache[ Rational[1, 3], 0.3333333333333333], NCache[ Rational[1, 3], 0.3333333333333333]], Opacity[0.8], SphereBox[{6.3805086609199995`, 2.47410486824, -6.30491962092}, 0.178]}, {RGBColor[1, 1, 1], Opacity[0.8], SphereBox[{2.6414401055399996`, -1.669191196348, 2.49111240224}, 0.12]}, {RGBColor[1, 1, 1], Opacity[0.8], SphereBox[{5.52393365964, -1.844204390386, -0.7671134827139999}, 0.12]}, {RGBColor[1, 1, 1], Opacity[0.8], SphereBox[{0.0700666937102, 3.01409407274, 0.6958122310079999}, 0.12]}, {RGBColor[1, 1, 1], Opacity[0.8], SphereBox[{4.4997777566799995`, 3.59461789994, -2.5218771415199996`}, 0.12]}, {RGBColor[1, 1, 1], Opacity[0.8], SphereBox[{7.181922560259999, 2.14385635248, -7.85986176276}, 0.12]}, {RGBColor[1, 1, 1], Opacity[0.8], SphereBox[{-10.80558554882, -3.29488845908, 3.2323952202599995`}, 0.12]}, {RGBColor[1, 1, 1], Opacity[0.8], SphereBox[{-8.33342709836, -5.33719093632, 1.9961364710599998`}, 0.12]}, {RGBColor[1, 1, 1], Opacity[0.8], SphereBox[{0.212966451022, -4.09743619402, -0.688043567422}, 0.12]}, {RGBColor[1, 1, 1], Opacity[0.8], SphereBox[{-7.2761065041, 4.1144059335, 3.44788067604}, 0.12]}, {RGBColor[1, 1, 1], Opacity[0.8], SphereBox[{8.45580575412, 1.5402211762999998`, -0.510579398762}, 0.12]}, {RGBColor[1, 1, 1], Opacity[0.8], SphereBox[{2.1601457906, 2.17588720818, 4.6073976523799995`}, 0.12]}, {RGBColor[1, 1, 1], Opacity[0.8], SphereBox[{3.6832271520799997`, -0.32915058495399996`, -6.16462636268}, 0.12]}, {RGBColor[1, 1, 1], Opacity[0.8], SphereBox[{6.6255872258599995`, -0.972885746854, -4.51192869486}, 0.12]}, {RGBColor[0.36, 0.24, 0.12], Opacity[0.5], SphereBox[{-4.353654693729999, -0.9761443336766197, 1.4443931708399997`}, 1.0082774367139142`]}, {RGBColor[0.36, 0.24, 0.12], Opacity[0.5], SphereBox[{-6.308321127719999, -1.81341886412, 1.9598849123389996`}, 1.0082237295111656`]}, {RGBColor[0.36, 0.24, 0.12], Opacity[0.5], SphereBox[{4.04804820501, 0.1951323508696, 0.7050114171759999}, 1.1820356841386856`]}, {RGBColor[0.36, 0.24, 0.12], Opacity[0.5], SphereBox[{1.8368363487119996`, 0.6631417030569999, 0.8920018835745998}, 1.1820052122367029`]}, {RGBColor[0.36, 0.24, 0.12], Opacity[0.5], SphereBox[{4.59227984438, 0.8462204366356, -1.3981922047289999`}, 1.182055680007637]}, {RGBColor[0.36, 0.24, 0.12], Opacity[0.5], SphereBox[{4.633942496807077, 1.0216762298865305`, -3.7608534722411946`}, 1.1826938151754902`]}, {RGBColor[0.36, 0.24, 0.12], Opacity[0.5], SphereBox[{-7.432945683802039, 1.3548070728557158`, 2.965903551569111}, 0.9494141954564819]}, {RGBColor[0.36, 0.24, 0.12], Opacity[0.5], SphereBox[{-7.860629478175967, -0.567563397165987, 2.7406571127094486`}, 0.9504222396469579]}, {RGBColor[0.36, 0.24, 0.12], Opacity[0.5], SphereBox[{-5.452533794595423, 2.2032649698082483`, 2.44365543420226}, 0.9767176045651307]}, {RGBColor[0.36, 0.24, 0.12], Opacity[0.5], SphereBox[{-3.951296611259418, 1.1069844613819482`, 1.7096765007200405`}, 0.9504219679895849]}, {RGBColor[0.36, 0.24, 0.12], Opacity[0.5], SphereBox[{-2.4913298377992454`, -0.317605147157046, 0.9374251825206756}, 0.956091333777463]}, {RGBColor[0.36, 0.24, 0.12], Opacity[0.5], SphereBox[{-1.4073954704207943`, -1.7997920362898308`, 0.29210346973429036`}, 0.955086496544213]}, {RGBColor[0.36, 0.24, 0.12], Opacity[0.5], SphereBox[{-0.3802280520624779, 0.21471849632718176`, 0.3225463896998572}, 1.1478645928017277`]}, {RGBColor[0.36, 0.24, 0.12], Opacity[0.5], SphereBox[{-4.58889056256516, -2.975594878078602, 1.148605326962382}, 0.9504729593841252]}, {RGBColor[0.36, 0.24, 0.12], Opacity[0.5], SphereBox[{-2.7328197784247714`, -3.4793159186640614`, 0.42556984662768177`}, 1.2289990465519192`]}, {RGBColor[0.36, 0.24, 0.12], Opacity[0.5], SphereBox[{-8.23078280525264, -2.6097507196688663`, 2.472150818758948}, 0.9560868735513617]}, {RGBColor[0.36, 0.24, 0.12], Opacity[0.5], SphereBox[{1.091590958960245, 1.0678239320099352`, -1.1988502754608896`}, 1.1207235478176094`]}, {RGBColor[0.36, 0.24, 0.12], Opacity[0.5], SphereBox[{2.7233806871410433`, 1.2843105801058108`, -2.4923175300350584`}, 1.1071872606919488`]}, {RGBColor[0.36, 0.24, 0.12], Opacity[0.5], SphereBox[{3.25874645758376, 1.2182490651374684`, 2.563030138194815}, 1.1062264229954242`]}, {RGBColor[0.36, 0.24, 0.12], Opacity[0.5], SphereBox[{6.148126692786707, 0.9020263454741215, 0.24445920765056467`}, 1.1062315434158296`]}, {RGBColor[0.36, 0.24, 0.12], Opacity[0.5], SphereBox[{5.8096964233647235`, 1.519106232044523, -5.660163649787626}, 1.107907954710963]}, {Opacity[0.5], SphereBox[{2.7315648733725757`, -1.1537594606024442`, 2.2668131779670477`}, 1.2771220120427036`]}, {Opacity[0.5], SphereBox[{5.41505226477238, -1.3030621699688933`, -0.627784989096487}, 1.276997988240344]}, {Opacity[0.5], SphereBox[{0.24037254752015685`, 2.4935728321706785`, 0.5403900824118726}, 1.276919691677592]}, {Opacity[0.5], SphereBox[{4.381522302498565, 3.0377676515843266`, -2.5278720112072977`}, 1.2769354189468665`]}, {Opacity[0.5], SphereBox[{6.945984486157456, 2.241082266390162, -7.402083260803959}, 1.078117229634348]}, {Opacity[0.5], SphereBox[{-10.290185973527043`, -3.3623212051348434`, 3.0404501433568822`}, 1.2050059547651581`]}, {Opacity[0.5], SphereBox[{-8.508370173117193, -4.834273795260341, 2.149420781486337}, 1.2047667868184277`]}, {Opacity[0.5], SphereBox[{-0.22298002741227818`, -3.7938385129130814`, \ -0.48339360781473933`}, 1.252325386764789]}, {Opacity[0.5], SphereBox[{-7.0952554733513455`, 3.5997278312841483`, 3.285086800919838}, 1.2523992078904067`]}, {Opacity[0.5], SphereBox[{8.068865720823235, 1.5591195921509395`, -0.15759063051204047`}, 1.1138478375474603`]}, {Opacity[0.5], SphereBox[{2.554472156579218, 2.1667801118132224`, 4.262282326888085}, 1.1140408924536294`]}, {Opacity[0.5], SphereBox[{ 4.094966980863706, -0.10297473980187255`, -5.8430407745966955`}, 1.278431025436985]}, {Opacity[0.5], SphereBox[{6.240930656099655, -0.572472906640665, -4.637671967970317}, 1.2784318999806714`]}, {RGBColor[ NCache[ Rational[1, 3], 0.3333333333333333], 1, 1], Opacity[0.3], SphereBox[{-6.164378933859384, 1.9822984066267506`, 4.1543597930778535`}, 1.4]}, {RGBColor[ NCache[ Rational[1, 3], 0.3333333333333333], 1, 1], Opacity[0.3], SphereBox[{-3.1226185193725158`, -0.23806773135902182`, 2.667366084949334}, 1.4]}, {RGBColor[ NCache[ Rational[1, 3], 0.3333333333333333], 1, 1], Opacity[0.3], SphereBox[{-4.681923910926701, -2.219925702126562, 2.823203205126206}, 1.4]}, {RGBColor[ NCache[ Rational[1, 3], 0.3333333333333333], 1, 1], Opacity[0.3], SphereBox[{-7.031948197254583, -1.9126119412113431`, 3.6983494039217417`}, 1.4]}, {RGBColor[ NCache[ Rational[1, 3], 0.3333333333333333], 1, 1], Opacity[0.3], SphereBox[{-0.9367217954066644, -3.2340329451574066`, 1.3647511202161378`}, 1.4]}, {RGBColor[ NCache[ Rational[1, 3], 0.3333333333333333], 1, 1], Opacity[0.3], SphereBox[{-7.777223838805181, 0.2448065080429469, 4.376271160116138}, 1.4]}, {RGBColor[ NCache[ Rational[1, 3], 0.3333333333333333], 1, 1], Opacity[0.3], SphereBox[{-3.8678895243580023`, 1.919350322755194, 3.345292287519724}, 1.4]}, {RGBColor[ NCache[ Rational[1, 3], 0.3333333333333333], 1, 1], Opacity[0.3], SphereBox[{-0.9931512306189632, -0.8869039488106453, 1.824474337153164}, 1.4]}, {RGBColor[ NCache[ Rational[1, 3], 0.3333333333333333], 1, 1], Opacity[0.3], SphereBox[{-3.6158687800158678`, -4.204349368946454, 2.089692435896558}, 1.4]}, {RGBColor[ NCache[ Rational[1, 3], 0.3333333333333333], 1, 1], Opacity[0.3], SphereBox[{-8.508461469673621, -3.789248125668567, 3.845892555063502}, 1.4]}, {RGBColor[1, 1, NCache[ Rational[1, 3], 0.3333333333333333]], Opacity[0.3], SphereBox[{-7.067142367460615, 2.487999624453249, 1.5525749324021458`}, 1.4]}, {RGBColor[1, 1, NCache[ Rational[1, 3], 0.3333333333333333]], Opacity[0.3], SphereBox[{-4.025383459187484, 0.26763536701254087`, 0.06558211241466605}, 1.4]}, {RGBColor[1, 1, NCache[ Rational[1, 3], 0.3333333333333333]], Opacity[0.3], SphereBox[{-5.584692885433299, -1.7142192682334365`, 0.2214212808697933}, 1.4]}, {RGBColor[1, 1, NCache[ Rational[1, 3], 0.3333333333333333]], Opacity[0.3], SphereBox[{-7.934719517265415, -1.406918544908657, 1.0965657594382585`}, 1.4]}, {RGBColor[1, 1, NCache[ Rational[1, 3], 0.3333333333333333]], Opacity[0.3], SphereBox[{-1.8207966194093357`, -2.7438506942025924`, \ -1.2464043838497378`}, 1.4]}, {RGBColor[1, 1, NCache[ Rational[1, 3], 0.3333333333333333]], Opacity[0.3], SphereBox[{-8.67998415547482, 0.7505046172530534, 1.774484613723861}, 1.4]}, {RGBColor[1, 1, NCache[ Rational[1, 3], 0.3333333333333333]], Opacity[0.3], SphereBox[{-4.770652733961997, 2.4250541622048054`, 0.7435078586802759}, 1.4]}, {RGBColor[1, 1, NCache[ Rational[1, 3], 0.3333333333333333]], Opacity[0.3], SphereBox[{-1.8774105935170375`, -0.39673779011335475`, \ -0.7866217001451641}, 1.4]}, {RGBColor[1, 1, NCache[ Rational[1, 3], 0.3333333333333333]], Opacity[0.3], SphereBox[{-4.499975266704131, -3.714056105293545, -0.5214315052085583}, 1.4]}, {RGBColor[1, 1, NCache[ Rational[1, 3], 0.3333333333333333]], Opacity[0.3], SphereBox[{-9.411243270526379, -3.2835049635714335`, 1.2441222204564972`}, 1.4]}, {RGBColor[1, NCache[ Rational[1, 3], 0.3333333333333333], NCache[ Rational[1, 3], 0.3333333333333333]], Opacity[0.4], SphereBox[{0.8591582833208158, 2.0343117496429546`, -3.0420240084343035`}, 1.125]}, {RGBColor[1, NCache[ Rational[1, 3], 0.3333333333333333], NCache[ Rational[1, 3], 0.3333333333333333]], Opacity[0.4], SphereBox[{4.601787081503492, 1.7868265435649482`, 4.054872131345679}, 1.125]}, {RGBColor[1, NCache[ Rational[1, 3], 0.3333333333333333], NCache[ Rational[1, 3], 0.3333333333333333]], Opacity[0.4], SphereBox[{7.541655467902327, 1.0154097351443407`, 1.7929574260630834`}, 1.125]}, {RGBColor[1, NCache[ Rational[1, 3], 0.3333333333333333], NCache[ Rational[1, 3], 0.3333333333333333]], Opacity[0.4], SphereBox[{7.339886191012873, 2.873847862087712, -5.519038399855032}, 1.125]}, {RGBColor[1, NCache[ Rational[1, 3], 0.3333333333333333], NCache[ Rational[1, 3], 0.3333333333333333]], Opacity[0.4], SphereBox[{1.2818592598088774`, -0.169501356623579, -2.8776108790197337`}, 1.125]}, {RGBColor[1, NCache[ Rational[1, 3], 0.3333333333333333], NCache[ Rational[1, 3], 0.3333333333333333]], Opacity[0.4], SphereBox[{3.5121615827546773`, 3.2786775668719805`, 2.7705058297268}, 1.125]}, {RGBColor[1, NCache[ Rational[1, 3], 0.3333333333333333], NCache[ Rational[1, 3], 0.3333333333333333]], Opacity[0.4], SphereBox[{6.704737939017857, 2.8406683946182345`, 0.7778220282655898}, 1.125]}, {RGBColor[1, NCache[ Rational[1, 3], 0.3333333333333333], NCache[ Rational[1, 3], 0.3333333333333333]], Opacity[0.4], SphereBox[{5.412874804123493, 3.2947557584813536`, -6.6016111029803906`}, 1.125]}, {RGBColor[ NCache[ Rational[1, 3], 0.3333333333333333], NCache[ Rational[1, 3], 0.3333333333333333], 1], Opacity[0.4], SphereBox[{-9.584512935425796, 0.7391047994279538, 3.5927766746409056`}, 1.246]}, {RGBColor[ NCache[ Rational[1, 3], 0.3333333333333333], NCache[ Rational[1, 3], 0.3333333333333333], 1], Opacity[0.4], SphereBox[{-3.4639478607421434`, 3.3675083401924213`, 1.979950653595258}, 1.246]}, {RGBColor[ NCache[ Rational[1, 3], 0.3333333333333333], NCache[ Rational[1, 3], 0.3333333333333333], 1], Opacity[0.4], SphereBox[{-4.596486047940976, -5.326283562332404, 0.7097860158960873}, 1.246]}, {RGBColor[1., 0.75, 0.5], TubeBox[{{-5.13330839818, -1.9670724851799999`, 1.5223122429979998`}, {-3.5740009892799995`, 0.014783817826759998`, 1.3664740986819999`}}, 0.1]}, {RGBColor[1., 0.75, 0.5], TubeBox[{{-7.483333857259999, -1.65976524306, 2.39745758168}, {-5.13330839818, -1.9670724851799999`, 1.5223122429979998`}}, 0.1]}, {RGBColor[1., 0.75, 0.5], TubeBox[{{2.974428724, 0.235200967138, 1.6623825135699999`}, { 5.121667686019999, 0.1550637346012, -0.252359679218}}, 0.1]}, {RGBColor[1., 0.75, 0.5], TubeBox[{{0.699243973424, 1.0910824389759999`, 0.1216212535792}, { 2.974428724, 0.235200967138, 1.6623825135699999`}}, 0.1]}, {RGBColor[1., 0.75, 0.5], TubeBox[{{4.06289200274, 1.53737713867, -2.54402473024}, { 5.121667686019999, 0.1550637346012, -0.252359679218}}, 0.1]}, {RGBColor[1., 0.75, 0.5], TubeBox[{{5.204437684819999, 0.506476803616, -4.9764989347}, { 4.06289200274, 1.53737713867, -2.54402473024}}, 0.1]}, {RGBColor[1., 0.75, 0.5], TubeBox[{{-8.22860399714, 0.497655562648, 3.0753778869199997`}, {-6.6157606506599995`, 2.23514901554, 2.8534673627399996`}}, 0.1]}, {RGBColor[1., 0.75, 0.5], TubeBox[{{-8.22860399714, 0.497655562648, 3.0753778869199997`}, {-7.483333857259999, -1.65976524306, 2.39745758168}}, 0.1]}, {RGBColor[1., 0.75, 0.5], TubeBox[{{-4.31927112916, 2.1722022424799996`, 2.0444000731}, {-6.6157606506599995`, 2.23514901554, 2.8534673627399996`}}, 0.1]}, {RGBColor[1., 0.75, 0.5], TubeBox[{{-4.31927112916, 2.1722022424799996`, 2.0444000731}, {-3.5740009892799995`, 0.014783817826759998`, 1.3664740986819999`}}, 0.1]}, {RGBColor[1., 0.75, 0.5], TubeBox[{{-1.4352809120680001`, -0.641820869462, 0.518926318504}, {-3.5740009892799995`, 0.014783817826759998`, 1.3664740986819999`}}, 0.1]}, {RGBColor[1., 0.75, 0.5], TubeBox[{{-1.4352809120680001`, -0.641820869462, 0.518926318504}, {-1.378759207408, -2.98894181968, 0.0591733681832}}, 0.1]}, {RGBColor[1., 0.75, 0.5], TubeBox[{{-1.4352809120680001`, -0.641820869462, 0.518926318504}, { 0.699243973424, 1.0910824389759999`, 0.1216212535792}}, 0.1]}, {RGBColor[1., 0.75, 0.5], TubeBox[{{-4.05792202336, -3.9592027371199996`, 0.784130465344}, {-5.13330839818, -1.9670724851799999`, 1.5223122429979998`}}, 0.1]}, {RGBColor[1., 0.75, 0.5], TubeBox[{{-4.05792202336, -3.9592027371199996`, 0.784130465344}, {-1.378759207408, -2.98894181968, 0.0591733681832}}, 0.1]}, {RGBColor[1., 0.75, 0.5], TubeBox[{{-8.9598523701, -3.53637654462, 2.5450073877599997`}, {-7.483333857259999, -1.65976524306, 2.39745758168}}, 0.1]}, {RGBColor[1., 0.75, 0.5], TubeBox[{{1.461440389086, 1.045899090316, -2.4436046906}, {0.699243973424, 1.0910824389759999`, 0.1216212535792}}, 0.1]}, {RGBColor[1., 0.75, 0.5], TubeBox[{{1.461440389086, 1.045899090316, -2.4436046906}, {4.06289200274, 1.53737713867, -2.54402473024}}, 0.1]}, {RGBColor[1., 0.75, 0.5], TubeBox[{{3.52658776394, 2.14432878398, 3.4114845532799998`}, { 2.974428724, 0.235200967138, 1.6623825135699999`}}, 0.1]}, {RGBColor[1., 0.75, 0.5], TubeBox[{{7.115101848899999, 1.605702071926, 0.7124871732320001}, { 5.121667686019999, 0.1550637346012, -0.252359679218}}, 0.1]}, {RGBColor[1., 0.75, 0.5], TubeBox[{{6.3805086609199995`, 2.47410486824, -6.30491962092}, { 5.204437684819999, 0.506476803616, -4.9764989347}}, 0.1]}, {RGBColor[1., 0.75, 0.5], TubeBox[{{2.6414401055399996`, -1.669191196348, 2.49111240224}, { 2.974428724, 0.235200967138, 1.6623825135699999`}}, 0.1]}, {RGBColor[1., 0.75, 0.5], TubeBox[{{5.52393365964, -1.844204390386, -0.7671134827139999}, { 5.121667686019999, 0.1550637346012, -0.252359679218}}, 0.1]}, {RGBColor[1., 0.75, 0.5], TubeBox[{{0.0700666937102, 3.01409407274, 0.6958122310079999}, { 0.699243973424, 1.0910824389759999`, 0.1216212535792}}, 0.1]}, {RGBColor[1., 0.75, 0.5], TubeBox[{{4.4997777566799995`, 3.59461789994, -2.5218771415199996`}, { 4.06289200274, 1.53737713867, -2.54402473024}}, 0.1]}, {RGBColor[1., 0.75, 0.5], TubeBox[{{7.181922560259999, 2.14385635248, -7.85986176276}, { 6.3805086609199995`, 2.47410486824, -6.30491962092}}, 0.1]}, {RGBColor[1., 0.75, 0.5], TubeBox[{{-10.80558554882, -3.29488845908, 3.2323952202599995`}, {-8.9598523701, -3.53637654462, 2.5450073877599997`}}, 0.1]}, {RGBColor[1., 0.75, 0.5], TubeBox[{{-8.33342709836, -5.33719093632, 1.9961364710599998`}, {-8.9598523701, -3.53637654462, 2.5450073877599997`}}, 0.1]}, {RGBColor[1., 0.75, 0.5], TubeBox[{{ 0.212966451022, -4.09743619402, -0.688043567422}, {-1.378759207408, \ -2.98894181968, 0.0591733681832}}, 0.1]}, {RGBColor[1., 0.75, 0.5], TubeBox[{{-7.2761065041, 4.1144059335, 3.44788067604}, {-6.6157606506599995`, 2.23514901554, 2.8534673627399996`}}, 0.1]}, {RGBColor[1., 0.75, 0.5], TubeBox[{{8.45580575412, 1.5402211762999998`, -0.510579398762}, { 7.115101848899999, 1.605702071926, 0.7124871732320001}}, 0.1]}, {RGBColor[1., 0.75, 0.5], TubeBox[{{2.1601457906, 2.17588720818, 4.6073976523799995`}, { 3.52658776394, 2.14432878398, 3.4114845532799998`}}, 0.1]}, {RGBColor[1., 0.75, 0.5], TubeBox[{{3.6832271520799997`, -0.32915058495399996`, -6.16462636268}, { 5.204437684819999, 0.506476803616, -4.9764989347}}, 0.1]}, {RGBColor[1., 0.75, 0.5], TubeBox[{{6.6255872258599995`, -0.972885746854, -4.51192869486}, { 5.204437684819999, 0.506476803616, -4.9764989347}}, 0.1]}}, AspectRatio->Automatic, Boxed->False, SphericalRegion->True]], "Output", CellChangeTimes->CompressedData[" 1:eJxTTMoPSmVkYGDQAeLVBxeZ6y1+5VjTGZAKotuWcBaA6BsZL5pANMvytAsg OiTwSr4+kGY6bVoOov0M+PYZAGkbccn3IPqc5QcTVyC9P6HdC0Q/mvUlBEQb Lr8YD6Jbs+rTQPSe86FT3YD0iz+Fc0G05/s1i0H0LVXOFSDaQffTJhBdcGb/ DhD9y3vRXhCdsETmCIi20w85DaK99+y7DKKj5r6+AaL1spPj3IG0SMa8LBAt 96Y0H0Sv+na8BkRzbONrBNEz9wR0gOgWxWsbQHRfzsodILpq6aFjIDqtJuAl WJxTPdEHSN8r2d0CovNi+bpB9JmvKpNA9BRG2cUgWmPpok0g+kRSQ7YvkL75 4EMFiGbimrg4a80rRwDGALd3 "]] }, Open ]], Cell[CellGroupData[{ Cell[BoxData[ RowBox[{ RowBox[{"Show", "[", RowBox[{"Plot1o", ",", "Plot2", ",", "Plot9", ",", RowBox[{"(*", RowBox[{"Plot9a", ",", "Plot9b", ","}], "*)"}], RowBox[{"{", RowBox[{ RowBox[{"Axes", "\[Rule]", "Automatic"}], ",", RowBox[{"AxesLabel", "\[Rule]", RowBox[{"{", RowBox[{"xl", ",", "yl", ",", "zl"}], "}"}]}], ",", RowBox[{"AspectRatio", "\[Rule]", "Automatic"}], ",", RowBox[{"Boxed", "\[Rule]", "True"}], ",", " ", RowBox[{"SphericalRegion", "\[Rule]", "True"}]}], "}"}]}], "]"}], "\[IndentingNewLine]"}]], "Input", CellChangeTimes->{{3.5681365021632137`*^9, 3.5681365171392403`*^9}, { 3.568136560351316*^9, 3.5681365863097615`*^9}, {3.5681369135895367`*^9, 3.5681369265999594`*^9}, {3.568137821916732*^9, 3.5681378378443604`*^9}, { 3.5682072492149415`*^9, 3.5682072529901485`*^9}, 3.568209802830227*^9, { 3.5682216503836985`*^9, 3.5682217583046885`*^9}, {3.5682217912831464`*^9, 3.568221843465238*^9}, {3.5682219760654707`*^9, 3.5682221133457117`*^9}, { 3.568222159615393*^9, 3.5682221693498106`*^9}, {3.5682222565227633`*^9, 3.5682222578487663`*^9}, 3.5682224736283445`*^9, 3.5682227227607822`*^9, 3.5682227558640404`*^9, {3.568222818810151*^9, 3.5682228486062036`*^9}, { 3.5682230057764797`*^9, 3.5682230079916835`*^9}, {3.568223041952943*^9, 3.5682230548229656`*^9}, 3.5682232619601297`*^9, 3.5682233000709963`*^9, { 3.568223536645412*^9, 3.5682235381118145`*^9}, {3.568223591151908*^9, 3.568223591526308*^9}, {3.5682236491528096`*^9, 3.568223657483224*^9}, { 3.568223713222122*^9, 3.5682237532361927`*^9}, {3.568223800379475*^9, 3.568223827648323*^9}, {3.5682238887380304`*^9, 3.5682238893152313`*^9}, { 3.5682240287170763`*^9, 3.5682240612431335`*^9}, 3.5682241088076167`*^9, { 3.568224198772975*^9, 3.5682242396450467`*^9}, {3.568224282170721*^9, 3.5682243185031853`*^9}, {3.568224437890195*^9, 3.568224439590598*^9}, { 3.568224572253231*^9, 3.5682245867144566`*^9}, {3.5682247081762695`*^9, 3.568224733557514*^9}, {3.56822480520844*^9, 3.5682248433505073`*^9}, { 3.568224884206979*^9, 3.5682248959069996`*^9}, {3.568224982830352*^9, 3.5682250047639904`*^9}, {3.56822503870965*^9, 3.5682250803305235`*^9}, { 3.5682251223413973`*^9, 3.568225141451431*^9}, {3.568225234177994*^9, 3.5682252929588966`*^9}, {3.5682253775890455`*^9, 3.568225482140429*^9}, { 3.56822551694409*^9, 3.5682255297205124`*^9}, {3.568225573197789*^9, 3.5682255809666023`*^9}, 3.568225660698343*^9, 3.5682257301964645`*^9, { 3.568225765078126*^9, 3.5682257828933573`*^9}, {3.568225927026843*^9, 3.568225927416844*^9}, {3.568267062420238*^9, 3.568267081358671*^9}, { 3.568267188328059*^9, 3.5682672830358257`*^9}, {3.5682676367040462`*^9, 3.568267747979042*^9}, 3.5682678404716043`*^9, 3.568267882030078*^9, { 3.5682679252577534`*^9, 3.568267996612279*^9}, {3.5682680488879704`*^9, 3.568268061133992*^9}, {3.568268100914062*^9, 3.5682681150944867`*^9}, { 3.5682681672609787`*^9, 3.5682681709113846`*^9}, {3.568268272904364*^9, 3.5682683182536435`*^9}, {3.5682685202739983`*^9, 3.568268599194537*^9}, { 3.5682686348873997`*^9, 3.568268637773405*^9}, {3.5682686944951043`*^9, 3.568268872273017*^9}, {3.5682689420207396`*^9, 3.568269016947671*^9}, { 3.5682695040741262`*^9, 3.568269601153097*^9}, {3.5682696652380095`*^9, 3.5682696728352227`*^9}, {3.5682697489633565`*^9, 3.5682698308635006`*^9}, {3.568271156491429*^9, 3.568271160063835*^9}, { 3.568271244927984*^9, 3.568271369010602*^9}, {3.5682716250070515`*^9, 3.5682717312276382`*^9}, {3.5682717843301315`*^9, 3.5682718576814604`*^9}, {3.568271940673606*^9, 3.5682720536490045`*^9}, { 3.5682722259669075`*^9, 3.5682723223126764`*^9}, {3.568272370813162*^9, 3.568272411466833*^9}, {3.5682725893539457`*^9, 3.568272622238803*^9}, { 3.5682726936713285`*^9, 3.5682726960113325`*^9}, {3.568272741079812*^9, 3.56827275143823*^9}, {3.5682729218373294`*^9, 3.568272991070251*^9}, { 3.5682734285574193`*^9, 3.5682734302890224`*^9}, {3.5682734898811274`*^9, 3.5682735111595645`*^9}, {3.5682736115925407`*^9, 3.5682736313577757`*^9}, {3.5682738601945777`*^9, 3.568273987272401*^9}, { 3.5682763944346285`*^9, 3.5682764313910933`*^9}, 3.5682765128232365`*^9, { 3.5682766527398825`*^9, 3.568276660976697*^9}, {3.5682774496048822`*^9, 3.568277461663703*^9}, {3.5683784032731285`*^9, 3.568378422991563*^9}, { 3.568378459308427*^9, 3.5683784812420654`*^9}, {3.568378513440522*^9, 3.568378867046343*^9}, {3.568378915468828*^9, 3.56837896203491*^9}, { 3.5683790764299107`*^9, 3.568379270041851*^9}, {3.568380233530743*^9, 3.568380234388745*^9}, 3.5683804214954734`*^9, 3.568380471867962*^9, 3.5683805399464817`*^9, {3.5683812396077104`*^9, 3.568381293537005*^9}, { 3.568381339541486*^9, 3.568381420224828*^9}, {3.5684645223056345`*^9, 3.5684645572340956`*^9}, {3.5684651558539467`*^9, 3.5684651618911576`*^9}, {3.5688209923798466`*^9, 3.568820997683856*^9}, { 3.568821158754139*^9, 3.568821160750942*^9}, 3.56882222404881*^9, { 3.568822649274357*^9, 3.5688226508031597`*^9}, 3.568822723109287*^9, { 3.5693397221142225`*^9, 3.5693397223326235`*^9}, {3.5693899272912874`*^9, 3.5693899274472876`*^9}, {3.5693910617720795`*^9, 3.5693910848757205`*^9}, 3.5693911374166126`*^9, {3.569391214402748*^9, 3.5693912147147484`*^9}, 3.569391451944365*^9, {3.569391487793228*^9, 3.569391507620863*^9}, { 3.5693923162258854`*^9, 3.5693923173958874`*^9}, {3.569406068526634*^9, 3.569406086092265*^9}, 3.569690172138941*^9, 3.569780036185542*^9, { 3.570453906913044*^9, 3.5704539079894457`*^9}, {3.570454575670618*^9, 3.5704545899602437`*^9}, {3.570454765008151*^9, 3.570454772277764*^9}, 3.5708553779481487`*^9, {3.5709431726830034`*^9, 3.570943174555007*^9}, { 3.5709495710522423`*^9, 3.5709495907082767`*^9}, {3.570949647617176*^9, 3.570949673138821*^9}, {3.570950759321929*^9, 3.5709507772775607`*^9}, { 3.5709508127364225`*^9, 3.5709508405200715`*^9}, {3.570991123104905*^9, 3.570991124259307*^9}, {3.5709912161278687`*^9, 3.570991227937089*^9}, { 3.5709912804155817`*^9, 3.570991308776431*^9}, {3.5709914026885962`*^9, 3.5709914215490294`*^9}, {3.570991574429298*^9, 3.5709916038821497`*^9}, 3.570991652445035*^9, 3.570991830004547*^9, 3.570991865276209*^9, { 3.5709919181759014`*^9, 3.5709919260539155`*^9}, {3.570992027251293*^9, 3.570992050058533*^9}, 3.5709920901350036`*^9, 3.570992186979974*^9, { 3.57122255431676*^9, 3.5712225562355638`*^9}, 3.571223175338251*^9, { 3.5713153738729277`*^9, 3.571315375682531*^9}, 3.5713224026962075`*^9, { 3.5713224627875133`*^9, 3.5713224654863176`*^9}, {3.5713224965147724`*^9, 3.571322572268505*^9}, {3.5713226259637995`*^9, 3.5713226549330506`*^9}, { 3.5713308245340652`*^9, 3.571330884469371*^9}, {3.5713309160126257`*^9, 3.5713309422674723`*^9}, 3.571331071326499*^9, {3.5713311246629925`*^9, 3.5713311332274075`*^9}, {3.571331300334901*^9, 3.5713313470881834`*^9}, 3.5713314298931284`*^9, 3.571331594130217*^9, {3.571331632849485*^9, 3.5713316334578857`*^9}, {3.5713316704299507`*^9, 3.5713316709447517`*^9}, {3.571331783327349*^9, 3.571331790019761*^9}, { 3.5713319475956383`*^9, 3.571331948360039*^9}, {3.5713326567416835`*^9, 3.571332681717327*^9}, {3.571332736801024*^9, 3.571332753305853*^9}, { 3.571332796221528*^9, 3.5713328475768185`*^9}, {3.571332914344936*^9, 3.571332924672154*^9}, {3.5713330072586994`*^9, 3.5713330320471425`*^9}, { 3.5713330798612266`*^9, 3.5713330883320417`*^9}, {3.5713331731961904`*^9, 3.571333178266199*^9}, {3.571333407851803*^9, 3.571333426837036*^9}, { 3.571333542292839*^9, 3.571333557705666*^9}, {3.5713336117441607`*^9, 3.5713337055939255`*^9}, {3.5713337750608473`*^9, 3.571333798070888*^9}, { 3.5713366694988756`*^9, 3.5713366834765005`*^9}, {3.5713369716090064`*^9, 3.57133697359021*^9}, {3.57138272164856*^9, 3.571382756233821*^9}, { 3.57138283537276*^9, 3.571382866900415*^9}, {3.5713829070080853`*^9, 3.5713829086616883`*^9}, {3.571382939175342*^9, 3.5713830233374896`*^9}, { 3.5713831045200324`*^9, 3.571383106126835*^9}, {3.571383198260597*^9, 3.5713832448422785`*^9}, 3.5716785972796593`*^9, 3.5718167268987517`*^9, { 3.571838452469782*^9, 3.5718386879053955`*^9}, 3.571838766139532*^9, { 3.571838857446493*^9, 3.5718388645757055`*^9}, 3.5723437133735733`*^9, 3.5723437554312468`*^9, {3.5723449027196617`*^9, 3.572344929582909*^9}, 3.5723450406551046`*^9, {3.57234950163894*^9, 3.5723495196413713`*^9}, { 3.572584520172369*^9, 3.5725845258195786`*^9}, {3.5726224003989472`*^9, 3.57262241340937*^9}, 3.572796748424938*^9, 3.5727968708695536`*^9, { 3.572796971801731*^9, 3.572796995841373*^9}, {3.57279741546651*^9, 3.5727974308793373`*^9}, {3.572842795856916*^9, 3.5728428061217337`*^9}, { 3.5728522627179437`*^9, 3.572852288426789*^9}, {3.5728523495164957`*^9, 3.572852453865079*^9}, {3.5728524960787535`*^9, 3.572852515110787*^9}, { 3.572852550008048*^9, 3.572852634669397*^9}, {3.5728602362372026`*^9, 3.5728602649256525`*^9}, 3.572860311756935*^9, 3.5731241886618786`*^9, 3.5731408095114717`*^9, 3.5731408826443996`*^9, {3.5740716827539716`*^9, 3.5740716897271843`*^9}, 3.574073190995821*^9, {3.5740743978919406`*^9, 3.574074401682747*^9}, {3.5740753037855315`*^9, 3.574075320758362*^9}, 3.5740757790247664`*^9, {3.574341432758819*^9, 3.5743414337884207`*^9}, { 3.57434147314729*^9, 3.5743415190269704`*^9}, 3.574501459301843*^9}], Cell[BoxData[ Graphics3DBox[{ {RGBColor[0.4, 0.2666666666666667, 0.13333333333333336`], Opacity[0.8], SphereBox[{-6.6157606506599995`, 2.23514901554, 2.8534673627399996`}, 0.255]}, {RGBColor[0.4, 0.2666666666666667, 0.13333333333333336`], Opacity[0.8], SphereBox[{-3.5740009892799995`, 0.014783817826759998`, 1.3664740986819999`}, 0.255]}, {RGBColor[0.4, 0.2666666666666667, 0.13333333333333336`], Opacity[0.8], SphereBox[{-5.13330839818, -1.9670724851799999`, 1.5223122429979998`}, 0.255]}, {RGBColor[0.4, 0.2666666666666667, 0.13333333333333336`], Opacity[0.8], SphereBox[{-7.483333857259999, -1.65976524306, 2.39745758168}, 0.255]}, {RGBColor[0.4, 0.2666666666666667, 0.13333333333333336`], Opacity[0.8], SphereBox[{-1.378759207408, -2.98894181968, 0.0591733681832}, 0.255]}, {RGBColor[0.4, 0.2666666666666667, 0.13333333333333336`], Opacity[0.8], SphereBox[{5.121667686019999, 0.1550637346012, -0.252359679218}, 0.255]}, {RGBColor[0.4, 0.2666666666666667, 0.13333333333333336`], Opacity[0.8], SphereBox[{2.974428724, 0.235200967138, 1.6623825135699999`}, 0.255]}, {RGBColor[0.4, 0.2666666666666667, 0.13333333333333336`], Opacity[0.8], SphereBox[{0.699243973424, 1.0910824389759999`, 0.1216212535792}, 0.255]}, {RGBColor[0.4, 0.2666666666666667, 0.13333333333333336`], Opacity[0.8], SphereBox[{4.06289200274, 1.53737713867, -2.54402473024}, 0.255]}, {RGBColor[0.4, 0.2666666666666667, 0.13333333333333336`], Opacity[0.8], SphereBox[{5.204437684819999, 0.506476803616, -4.9764989347}, 0.255]}, {RGBColor[ NCache[ Rational[1, 3], 0.3333333333333333], NCache[ Rational[1, 3], 0.3333333333333333], 1], Opacity[0.8], SphereBox[{-8.22860399714, 0.497655562648, 3.0753778869199997`}, 0.24]}, {RGBColor[ NCache[ Rational[1, 3], 0.3333333333333333], NCache[ Rational[1, 3], 0.3333333333333333], 1], Opacity[0.8], SphereBox[{-4.31927112916, 2.1722022424799996`, 2.0444000731}, 0.24]}, {RGBColor[ NCache[ Rational[1, 3], 0.3333333333333333], NCache[ Rational[1, 3], 0.3333333333333333], 1], Opacity[0.8], SphereBox[{-1.4352809120680001`, -0.641820869462, 0.518926318504}, 0.24]}, {RGBColor[ NCache[ Rational[1, 3], 0.3333333333333333], NCache[ Rational[1, 3], 0.3333333333333333], 1], Opacity[0.8], SphereBox[{-4.05792202336, -3.9592027371199996`, 0.784130465344}, 0.24]}, {RGBColor[ NCache[ Rational[1, 3], 0.3333333333333333], NCache[ Rational[1, 3], 0.3333333333333333], 1], Opacity[0.8], SphereBox[{-8.9598523701, -3.53637654462, 2.5450073877599997`}, 0.24]}, {RGBColor[1, NCache[ Rational[1, 3], 0.3333333333333333], NCache[ Rational[1, 3], 0.3333333333333333]], Opacity[0.8], SphereBox[{1.461440389086, 1.045899090316, -2.4436046906}, 0.178]}, {RGBColor[1, NCache[ Rational[1, 3], 0.3333333333333333], NCache[ Rational[1, 3], 0.3333333333333333]], Opacity[0.8], SphereBox[{3.52658776394, 2.14432878398, 3.4114845532799998`}, 0.178]}, {RGBColor[1, NCache[ Rational[1, 3], 0.3333333333333333], NCache[ Rational[1, 3], 0.3333333333333333]], Opacity[0.8], SphereBox[{7.115101848899999, 1.605702071926, 0.7124871732320001}, 0.178]}, {RGBColor[1, NCache[ Rational[1, 3], 0.3333333333333333], NCache[ Rational[1, 3], 0.3333333333333333]], Opacity[0.8], SphereBox[{6.3805086609199995`, 2.47410486824, -6.30491962092}, 0.178]}, {RGBColor[1, 1, 1], Opacity[0.8], SphereBox[{2.6414401055399996`, -1.669191196348, 2.49111240224}, 0.12]}, {RGBColor[1, 1, 1], Opacity[0.8], SphereBox[{5.52393365964, -1.844204390386, -0.7671134827139999}, 0.12]}, {RGBColor[1, 1, 1], Opacity[0.8], SphereBox[{0.0700666937102, 3.01409407274, 0.6958122310079999}, 0.12]}, {RGBColor[1, 1, 1], Opacity[0.8], SphereBox[{4.4997777566799995`, 3.59461789994, -2.5218771415199996`}, 0.12]}, {RGBColor[1, 1, 1], Opacity[0.8], SphereBox[{7.181922560259999, 2.14385635248, -7.85986176276}, 0.12]}, {RGBColor[1, 1, 1], Opacity[0.8], SphereBox[{-10.80558554882, -3.29488845908, 3.2323952202599995`}, 0.12]}, {RGBColor[1, 1, 1], Opacity[0.8], SphereBox[{-8.33342709836, -5.33719093632, 1.9961364710599998`}, 0.12]}, {RGBColor[1, 1, 1], Opacity[0.8], SphereBox[{0.212966451022, -4.09743619402, -0.688043567422}, 0.12]}, {RGBColor[1, 1, 1], Opacity[0.8], SphereBox[{-7.2761065041, 4.1144059335, 3.44788067604}, 0.12]}, {RGBColor[1, 1, 1], Opacity[0.8], SphereBox[{8.45580575412, 1.5402211762999998`, -0.510579398762}, 0.12]}, {RGBColor[1, 1, 1], Opacity[0.8], SphereBox[{2.1601457906, 2.17588720818, 4.6073976523799995`}, 0.12]}, {RGBColor[1, 1, 1], Opacity[0.8], SphereBox[{3.6832271520799997`, -0.32915058495399996`, -6.16462636268}, 0.12]}, {RGBColor[1, 1, 1], Opacity[0.8], SphereBox[{6.6255872258599995`, -0.972885746854, -4.51192869486}, 0.12]}, Text3DBox["1", {-7.215760650659999, 2.23514901554, 2.8534673627399996`}, { 1, 0}], Text3DBox["2", {-4.17400098928, 0.014783817826759998`, 1.3664740986819999`}, {1, 0}], Text3DBox["3", {-5.733308398179999, -1.9670724851799999`, 1.5223122429979998`}, {1, 0}], Text3DBox["4", {-8.08333385726, -1.65976524306, 2.39745758168}, {1, 0}], Text3DBox["5", {-1.9787592074079998`, -2.98894181968, 0.0591733681832}, {1, 0}], Text3DBox["6", {4.52166768602, 0.1550637346012, -0.252359679218}, { 1, 0}], Text3DBox["7", {2.374428724, 0.235200967138, 1.6623825135699999`}, {1, 0}], Text3DBox["8", {0.09924397342400004, 1.0910824389759999`, 0.1216212535792}, {1, 0}], Text3DBox["9", {3.46289200274, 1.53737713867, -2.54402473024}, {1, 0}], Text3DBox["10", {4.60443768482, 0.506476803616, -4.9764989347}, {1, 0}], Text3DBox["11", {-8.82860399714, 0.497655562648, 3.0753778869199997`}, {1, 0}], Text3DBox["12", {-4.919271129159999, 2.1722022424799996`, 2.0444000731}, {1, 0}], Text3DBox["13", {-2.035280912068, -0.641820869462, 0.518926318504}, {1, 0}], Text3DBox["14", {-4.657922023359999, -3.9592027371199996`, 0.784130465344}, {1, 0}], Text3DBox["15", {-9.5598523701, -3.53637654462, 2.5450073877599997`}, {1, 0}], Text3DBox["16", {0.861440389086, 1.045899090316, -2.4436046906}, {1, 0}], Text3DBox["17", {2.9265877639399998`, 2.14432878398, 3.4114845532799998`}, {1, 0}], Text3DBox["18", {6.5151018489, 1.605702071926, 0.7124871732320001}, {1, 0}], Text3DBox["19", {5.78050866092, 2.47410486824, -6.30491962092}, {1, 0}], Text3DBox["20", {2.0414401055399995`, -1.669191196348, 2.49111240224}, {1, 0}], Text3DBox["21", {4.92393365964, -1.844204390386, -0.7671134827139999}, {1, 0}], Text3DBox["22", {-0.5299333062898, 3.01409407274, 0.6958122310079999}, {1, 0}], Text3DBox["23", {3.8997777566799994`, 3.59461789994, -2.5218771415199996`}, {1, 0}], Text3DBox["24", {6.58192256026, 2.14385635248, -7.85986176276}, {1, 0}], Text3DBox["25", {-11.40558554882, -3.29488845908, 3.2323952202599995`}, {1, 0}], Text3DBox["26", {-8.93342709836, -5.33719093632, 1.9961364710599998`}, {1, 0}], Text3DBox["27", {-0.387033548978, -4.09743619402, -0.688043567422}, {1, 0}], Text3DBox["28", {-7.8761065041, 4.1144059335, 3.44788067604}, {1, 0}], Text3DBox["29", {7.85580575412, 1.5402211762999998`, -0.510579398762}, {1, 0}], Text3DBox["30", {1.5601457906, 2.17588720818, 4.6073976523799995`}, {1, 0}], Text3DBox["31", { 3.0832271520799996`, -0.32915058495399996`, -6.16462636268}, {1, 0}], Text3DBox["32", {6.02558722586, -0.972885746854, -4.51192869486}, {1, 0}], {RGBColor[1., 0.75, 0.5], TubeBox[{{-5.13330839818, -1.9670724851799999`, 1.5223122429979998`}, {-3.5740009892799995`, 0.014783817826759998`, 1.3664740986819999`}}, 0.1]}, {RGBColor[1., 0.75, 0.5], TubeBox[{{-7.483333857259999, -1.65976524306, 2.39745758168}, {-5.13330839818, -1.9670724851799999`, 1.5223122429979998`}}, 0.1]}, {RGBColor[1., 0.75, 0.5], TubeBox[{{2.974428724, 0.235200967138, 1.6623825135699999`}, { 5.121667686019999, 0.1550637346012, -0.252359679218}}, 0.1]}, {RGBColor[1., 0.75, 0.5], TubeBox[{{0.699243973424, 1.0910824389759999`, 0.1216212535792}, { 2.974428724, 0.235200967138, 1.6623825135699999`}}, 0.1]}, {RGBColor[1., 0.75, 0.5], TubeBox[{{4.06289200274, 1.53737713867, -2.54402473024}, { 5.121667686019999, 0.1550637346012, -0.252359679218}}, 0.1]}, {RGBColor[1., 0.75, 0.5], TubeBox[{{5.204437684819999, 0.506476803616, -4.9764989347}, { 4.06289200274, 1.53737713867, -2.54402473024}}, 0.1]}, {RGBColor[1., 0.75, 0.5], TubeBox[{{-8.22860399714, 0.497655562648, 3.0753778869199997`}, {-6.6157606506599995`, 2.23514901554, 2.8534673627399996`}}, 0.1]}, {RGBColor[1., 0.75, 0.5], TubeBox[{{-8.22860399714, 0.497655562648, 3.0753778869199997`}, {-7.483333857259999, -1.65976524306, 2.39745758168}}, 0.1]}, {RGBColor[1., 0.75, 0.5], TubeBox[{{-4.31927112916, 2.1722022424799996`, 2.0444000731}, {-6.6157606506599995`, 2.23514901554, 2.8534673627399996`}}, 0.1]}, {RGBColor[1., 0.75, 0.5], TubeBox[{{-4.31927112916, 2.1722022424799996`, 2.0444000731}, {-3.5740009892799995`, 0.014783817826759998`, 1.3664740986819999`}}, 0.1]}, {RGBColor[1., 0.75, 0.5], TubeBox[{{-1.4352809120680001`, -0.641820869462, 0.518926318504}, {-3.5740009892799995`, 0.014783817826759998`, 1.3664740986819999`}}, 0.1]}, {RGBColor[1., 0.75, 0.5], TubeBox[{{-1.4352809120680001`, -0.641820869462, 0.518926318504}, {-1.378759207408, -2.98894181968, 0.0591733681832}}, 0.1]}, {RGBColor[1., 0.75, 0.5], TubeBox[{{-1.4352809120680001`, -0.641820869462, 0.518926318504}, { 0.699243973424, 1.0910824389759999`, 0.1216212535792}}, 0.1]}, {RGBColor[1., 0.75, 0.5], TubeBox[{{-4.05792202336, -3.9592027371199996`, 0.784130465344}, {-5.13330839818, -1.9670724851799999`, 1.5223122429979998`}}, 0.1]}, {RGBColor[1., 0.75, 0.5], TubeBox[{{-4.05792202336, -3.9592027371199996`, 0.784130465344}, {-1.378759207408, -2.98894181968, 0.0591733681832}}, 0.1]}, {RGBColor[1., 0.75, 0.5], TubeBox[{{-8.9598523701, -3.53637654462, 2.5450073877599997`}, {-7.483333857259999, -1.65976524306, 2.39745758168}}, 0.1]}, {RGBColor[1., 0.75, 0.5], TubeBox[{{1.461440389086, 1.045899090316, -2.4436046906}, {0.699243973424, 1.0910824389759999`, 0.1216212535792}}, 0.1]}, {RGBColor[1., 0.75, 0.5], TubeBox[{{1.461440389086, 1.045899090316, -2.4436046906}, {4.06289200274, 1.53737713867, -2.54402473024}}, 0.1]}, {RGBColor[1., 0.75, 0.5], TubeBox[{{3.52658776394, 2.14432878398, 3.4114845532799998`}, { 2.974428724, 0.235200967138, 1.6623825135699999`}}, 0.1]}, {RGBColor[1., 0.75, 0.5], TubeBox[{{7.115101848899999, 1.605702071926, 0.7124871732320001}, { 5.121667686019999, 0.1550637346012, -0.252359679218}}, 0.1]}, {RGBColor[1., 0.75, 0.5], TubeBox[{{6.3805086609199995`, 2.47410486824, -6.30491962092}, { 5.204437684819999, 0.506476803616, -4.9764989347}}, 0.1]}, {RGBColor[1., 0.75, 0.5], TubeBox[{{2.6414401055399996`, -1.669191196348, 2.49111240224}, { 2.974428724, 0.235200967138, 1.6623825135699999`}}, 0.1]}, {RGBColor[1., 0.75, 0.5], TubeBox[{{5.52393365964, -1.844204390386, -0.7671134827139999}, { 5.121667686019999, 0.1550637346012, -0.252359679218}}, 0.1]}, {RGBColor[1., 0.75, 0.5], TubeBox[{{0.0700666937102, 3.01409407274, 0.6958122310079999}, { 0.699243973424, 1.0910824389759999`, 0.1216212535792}}, 0.1]}, {RGBColor[1., 0.75, 0.5], TubeBox[{{4.4997777566799995`, 3.59461789994, -2.5218771415199996`}, { 4.06289200274, 1.53737713867, -2.54402473024}}, 0.1]}, {RGBColor[1., 0.75, 0.5], TubeBox[{{7.181922560259999, 2.14385635248, -7.85986176276}, { 6.3805086609199995`, 2.47410486824, -6.30491962092}}, 0.1]}, {RGBColor[1., 0.75, 0.5], TubeBox[{{-10.80558554882, -3.29488845908, 3.2323952202599995`}, {-8.9598523701, -3.53637654462, 2.5450073877599997`}}, 0.1]}, {RGBColor[1., 0.75, 0.5], TubeBox[{{-8.33342709836, -5.33719093632, 1.9961364710599998`}, {-8.9598523701, -3.53637654462, 2.5450073877599997`}}, 0.1]}, {RGBColor[1., 0.75, 0.5], TubeBox[{{ 0.212966451022, -4.09743619402, -0.688043567422}, {-1.378759207408, \ -2.98894181968, 0.0591733681832}}, 0.1]}, {RGBColor[1., 0.75, 0.5], TubeBox[{{-7.2761065041, 4.1144059335, 3.44788067604}, {-6.6157606506599995`, 2.23514901554, 2.8534673627399996`}}, 0.1]}, {RGBColor[1., 0.75, 0.5], TubeBox[{{8.45580575412, 1.5402211762999998`, -0.510579398762}, { 7.115101848899999, 1.605702071926, 0.7124871732320001}}, 0.1]}, {RGBColor[1., 0.75, 0.5], TubeBox[{{2.1601457906, 2.17588720818, 4.6073976523799995`}, { 3.52658776394, 2.14432878398, 3.4114845532799998`}}, 0.1]}, {RGBColor[1., 0.75, 0.5], TubeBox[{{3.6832271520799997`, -0.32915058495399996`, -6.16462636268}, { 5.204437684819999, 0.506476803616, -4.9764989347}}, 0.1]}, {RGBColor[1., 0.75, 0.5], TubeBox[{{6.6255872258599995`, -0.972885746854, -4.51192869486}, { 5.204437684819999, 0.506476803616, -4.9764989347}}, 0.1]}}, AspectRatio->Automatic, Axes->Automatic, AxesLabel->{ FormBox["xl", TraditionalForm], FormBox["yl", TraditionalForm], FormBox["zl", TraditionalForm]}, Boxed->True, SphericalRegion->True]], "Output", CellChangeTimes->CompressedData[" 1:eJxTTMoPSmVkYGDQAWKng4vN9Ra/chTuDEwF0VsWcxeA6IKMl00gevay9Asg +nXA1Xx9ID3rlFk5iJbawLfPAEhfEpN6D6LTLD+auAJppQcdXiC6YtbXEBB9 YtmleBAtk9WQBqKDzodNdQPSj6pL5oLoB+/WLgbRRapcK0D0DZ3Pm0C0jc+B HSB6ovfivSD6x2LZIyD6ql7oabD+3fsvg+iPc97cANFHslLi3IH0mvT5WSD6 VXZZPoh2/HaiBkRfNuVvBNEGewI7QLSM4vUNIFotZ9UOEC249PAxEP23OvAl iFbh1Ej0AdKlJXtaQDRLLH83iE7+qjoJROswyi0G0QeWLN4EohOSGrN9QeH2 4GMFiI6RmLQ4a80rRwA6J7f2 "],ImageCache->GraphicsData["CompressedBitmap", "\<\ eJztfXdYFEn37vut7rpu+jZ+G0zrmnPOOQcMIIoIKgiSQRCJAkpWUCSjoKIY AXPOrllQjGDOAZU1fOa0Crequ6qpGXoa9nfvc+8/d54dF5qZ0+e8dVKdOlU9 dIKXo53bBC8n2wm/D/Cc4OHoZDvl9/7unuRSpX8B/3Ikb9vfQX8uAfg/JeS/ Eif6D73y/39W/bkW/acSxWuAcPUb6edKePfuHY4fP47r16/jO3ZNxlb6GPoK 3/lS+rmK8p3FixfDz88PW7duRY0aNXDr1i3yV/KZypTCp+VQqyr9/IVEbfPm zQgODkZSUhIKCwvx+vVrPH/+HNbW1rC1tcXLly//XQ65z6SfP1OYo+QocwcO HKDkKkl/rixRnTFjBpYvX075/ppe/kQfnEp6tLigjFYVRsve3h7Pnj2DmZkZ 5fArFQ77C1T/JVBVEbgqo0ovU/n3799PZS/lkNH6qC2ozMWn0uUnT55IZOjr 1KlTGClTeK8t3jdsmIuKimBlZYWhQ4dKf6YUQkJCqKgwlSm91Rbp30wk+u0B AwYgOTkZFy9e/IQBxSSUfhshE3ylLdyP7Jv0V/pn+hunRkeBskh/M5GpPdcW 9Gf2zfPnz0vci9TouDLN49Seagv7qwq1Suxfpm3Sb8YytcfaklbXoMZ1jtob o/aXtqS12De59svDUlbS4TK1B9qS1lah9qmKpMNkaoXaktZVoVaJ0Xz79q2k JVRa+qI8Mqq3tSVuyLwLtVFqTdwgqbSTJk2SeKTUmA4yoje1BW/MmOMmKn9Y vhYVFaWo3xCZ2jVtwZtpUKNscltj1C5rC9ySfXPdunW4fPkys+GyhmYkU7vI EFaTtI0Kqc9VrGywTOqctpjtVGz2c0FMrnuM2lltMTuq2EVVFd0bJFM7rSFm Fw1S1Pdxr8lIndAWs5sKtSrsK5QKBY76QMogE3mgTPiYNuGeKvbBCVP8KHZc uxkCjHCOhvB9VKh+qedfKGUWFg9r89hPoEYtjv7Gw6GofCyEHdCmNkjFMDg1 0cyqKaFRtnbs0xB4iAZR0dpqsGtiFK8nk9+jzfYwlTt8rQJCdeZ+xTuUsBRN dq3YqX0nExUD5QmdaKClAFVSkep3+V7bNUAbqXKjLxlvom+mis2UukL33KIt n5mKy+C3pWPFnbeg8r+pgEpenxjmYaM2D2NU7JnnoNxAKM6/KPJ+ovzEROc3 ZYO6XgPosSp3+1bFSdY0LM8abXnGq9yBJ/yi46yuSPGHTDdbm+4EFUfynR5O lHPZjSFTA4SJKqS+VzGgHjKp5dqMObBvcn8kUqMCU4r0t+4ytSXa1JxVjPtb Jgu1BEqRisoHilFdrCGumwZJlRRFDprSyLSViS/UZtldoP/o0SPpN55Ai17i U3XTkbMApGnfxFPFQ/CbiIqrfZN5GjB5q9zhJxXFrax5h2RtMXxVPM5Pghgc L+2bJGjfZKqKCf5HBatKmjeJ08AqSOUOP6tgVUlflWK0OZ+uQvcnFe3nOXon mWq0NtVQFXv/Qfq3ik5k0TcERn2mBhARBklX0oke4gSNO4QOMvkIbeZnqriX X4TB5PkEoxaqTW2Wii/gE0rR9bWXqQVriD5HhdRvKmYv5+VMZQwyFse+Salz J/KbICbXWUZtqja1RBVbZgkDGRVGw09DuBQVAr+yz4sqwwVl6u2tzdY8Fev/ lX2FUqETbfqbIDAzRk9twvNV7IYnmKI9tpapeWhInq5BSoyzjJSbNmOLVajx 3ELUt1YyNWdtaktVrK2WICa3LHmOCkcNMVdokBLNipGy02YsS8VIuZjUb9HZ BBWVUbPRprZaxbJqMFl4iYuOKFe+FjJVaw1x1xkk+ZmidXqa11ymOk6b1w0q dltbsTRGw0KbBq86icZWWxgLLqdcyIC5npwxMTGKnNtUSP2h4kaayqRGaTO2 Q8Ve66iYVROZ2ghtartVbKGOnpiUN0bNWEPMP1VI1Waf5/MlqnM0vaMiM5JD tRncz6jScaR3KqUqT4d4cZYyycxNrlSxmopBwodUjK2eirE1kqkN1JD8qAop Xk+Y7zoP50Lm64RI0cmw2Xs/bWaP0D/LSVFlHYMmL7meVBnrM04iccwBvMw+ jmeXrvAIKoa9BvJ3emvfTK7JVFFSMPoSbVS8aXbCEuweboPirGi8ffnyVwFA rtbspj01ADzJvsbvSO8mScuLeA71++OGsxNKdsTKMZOlMvPmyeGrvnyPbtqC nWEs0Bc1RlFAvq6Rn5OHyDaj8DKURJGCTXxqTRV41apVvC7G7tdZ+34Fgljc +D8RxcpKWIyNA61RnOLGEgs55nJnSn9mMLIyTEcNFAsYBb3UmXsKnTtPqNcH FyeSYLQ9jgH6qVoxjVd/2mkLekF2rvQlz3VE50RfnwnoBrUcgadBrgTdzTwc /fXXX9IiGv1NLomzUG7wjtdUnA0fwsyEdGT1Ho+PCZNQ8uBcNQOUoqOjqSWy +7XUAPamwZtVwgxLL5weTwxysRNLm6oa4ln6Kx1SCi67bTNtMW+reD9+Z59m w/HQj+CYv4XNpAyS+YQhIy4nECYYD421v1yo4t0+U6Cej/RuY/F+DoG66MIP AiUe7QVKlRnGvIxFgzz3FIyXhhrDsI8xkpt5QNFTngVeKriBo4u34UnBTWU5 pizDlRBq6Ykcc5I5pbuwSo1Bbr/Q82WloZFZhXb+UUmphVUS/Ytb3zk4ZJ2B G06++G9O3tfKBz5RXDz/aITzcqy1WI13c5fhbVEhF0t0//yaeyMj3Pd0QcnZ rawYalAssVbKLZ5Vu/7QFmub4D45A7rx4DM4mZzAulnHsWaYE/b2GI6ztq54 kpPHedJ3Tez/nzHK+TknYdI5E6sW3MebK3fx9ukjRUQxAvFKRGZCGpI6jcHb qEkozl/Hy6TUWlQk/86w5L9rqN3OcsX+HFduvMO2fVfgYhGO+NEBWDvUEX92 G4ozsvhfaZAolT0PxvVMMcJ4LmYu243rD58pWltW9kok8i7FnyZELdNc2cqN QcF5TSo9PR0FBQWi4LUYTSo4/RZdcSLf2Kk4dH47kXUudf6ZqwiengE3InXi 6KlYN9QBf3YdgtM2Lnick1das1Nrh+CFnkDLQBj3DsCUyDicL9jPvZuYLHMe nBoMwC1XkgXsnMNIyv0YBsRWqj8aclOXTmWmXyU/71JhVK2M/gVH4Ow1hAQv gTtBINnMHxuG2GFfFyOcnuCMRzl5VQzKrXYLisVkGLf3hL3/HOzcveJzFSw4 bFRdotuZ4VU4zVM2flIBOHjpgrpePivVgeNTJcJR18kgwS4N5f2G45B/HaEh SzGZ4DDXzA8bjSZiX+dBODXBCQ9z8j7Tk1nxd+Sr+mQzExbBuJkjxrrMwtqt q/iipJhRVGJjQNOnrUYTUDzXTUtwHiN46C0j92c6kZ3LfvLkyW26jlzSZblK XZWIfANhROQpFmFIHeWLTUa22N9pIE5YO6GIDI4icelX+cp+fs4JGDcch1Fj IxGbFoMnf12DYTmrwLZeX1y2d8SDJVMV2SjHdFB5fYAmqBcvXpQiVR1RuCo6 6qMnIFsjroJ8Ej/DQpfBm0iTRqTZPNgG+zv2xzErR6bszEPVNcGIocGYHhuH oqJb7G9f6ADIh2KGnRui6nTHDZNhuLd7YWn3RGWlZsrWznQY1tV3bn0i02cE psMJ034WoVg40gdbBlljf4d+uJUyX5mgBFr6w7inPzzCY3Eu/8CXbPQov9nZ 2RLP3g4uCGvfEzE12mBf/W541bMHXi5MZTpSWZleMs3VY1YsMlRSYfaswuxN RBJmp44JRfpIL2wdaIX97fviVvJ8ZYEg0NIdxm0mw84nBjt2r/xEUT+mdfxF f94Wm4IjoVHY4zEZKwjCodZWuDukG55a98G7yUYoDhmJC/1G4uOokbjduwef 2orBr7auJGJiUVlFknzp2teSJDPDliHIIgSLR07BtgHjsL9db9xMToOd2Uh0 r1kNQ2o3gXFTe1g4RWP1llUMmR9wnugQfd1MTMXjhWnY3bk9LvftLF175dgf H/yGo2TGGDyPm4AZ7oSfLA8Ur/fB+y2BeLo9GEdHO+LuCCs8XZkJUSTasyCI VFNgn4v1mYpIBYytzBW7MW5UKKaPCUGGqSfG12mKgT9Vw7DqNWHcwAKjLCIQ My8G50L9cNrVAXk9OuC2EQF7fG+J9eLppiiJGYuSVDvm5r7Am23T8HB7KI6v DkbENF88uXYQVy8cxM3CG0iaGIyEXuNx0De0vkqQ0pNCLfsXpchV9KR0GVZW qR+RmfknRg1wQdvqjTGgZhMMrlUfpn1dETQnFolju2G9RXuUJFiThJhMBle6 o2Sdj8T/CwL23W2h8sBcP4gHVw6WujBdXeGdQWJc0ZNAdA+fCxKkpaWVSlCx FexKTAvT5sSgZY1G6FynJYyatIZVr06YZtwWs0a2xErfYbi6JQx/rgjD1iVR yN2/Sog5ZW7DhRLTLC6UGDQ0hKqqJxR14zkVF6oyI9KuRl10qt8Y5m3bws+o PRz6t4BNr/oIDfBWPL4BIT5hSq4fT5lQTcqXR3S7X6jIc/SfDpKcjixNz0CL uo0wslN7eAxvj5HdGyHQdYwsc2lc1Mk2RVb4SIjzMA3OeV8LHRku6GEtzr/S uazfekXtbnyDoTjn5omL0RY4c/LYtyp3bSSEYfp1yugfukyKgeJrPSbpuB7S YvJL6bI+Y1wl6Cfcmo/BvalTyBRwm9KDICYTfGZN/QwtwVIaPBjowSka9zcC p3QyTW93QBkvMe3kL0qYysR7mcWMdVqHCXga6YWS/E2cR9GKOI9Xr15VglQF eOStKXv37tXlUaVfW+SstIqxCCl9HPAubgqKT2WrccbNR/TSrPeEp5eil/5O haO9FeCIu5HMhJVYN8IVxamTlb4NNXZEl1tViQI/6jImfvF7FcZ26jEmps+c MW5VISSdOmzjgZJFrgotKddjdRY1N6PWG/6dYRZ/UGFxawVY5Fpg09AYlz08 UbI9VmFRLAWpsSjpaOXSuKnJLL0pZ/ZHFWY3VoBZzphHK0sUBXlJhRstZkXn VwE81fpFRBbXsmBhgMWfBJMN62yLF1HUZDfwkVEL/iKDXyj+QU8TRRf4HxW2 tNqtCFu/KPaagYX9nfB3Ihnl++c4W2L45riJ6W5VFdx+0GVQJPGzCoMrtBnk SxOZCZnYYkYm5vM9FA1RSy5otKAvyuGXCmh6PKk1WYg8aTVvEZ64wwy3DMBx +8nEcp0VnkQ1acDIiC0tvJuAeDzm7HhrvqijvK5Ab86ZStdmiq+k2jceiRte JGhtj1Flqj4zJep2xW4YepX7Pj3OqCvhbpiPBy00c860eroIZ7wj37vNODwK 9pKq62o7L9S8SK2ynHA/UV2FkxQNTsjf6yvaPh/RXSfi1SzqJtb/qEL9HzJT QxhEmtzRyVM57VuNFGaWYqmRMz4ke+Jj4VktZkSPoMeMOMQ1VZiZo81MU/aV rIRs7LKYhJIF7oqX+9/gRNwowotf5XRxtWBfsaxnhNNOxLgWOyqciCbCORbd UU1dTkTf+LsKJ5HanLRmX3FuOhp3fIlFndn2P+VEdDi1VTgpp52L73nwb2eF J2HUgjZrciKmVBqc/KHHCZ02TtPmpIOitAsR19Meb+bQ9HjNfwTq+vFChRnu RMT8rq4KM+W0f0n+tbKSNEthiG97O5J1AAkTI5E93AXFcyfzyCOGDJ4a63cc Ug9YS5dR0QTqqTDqo80oh4KHSXGGLIbOKoyjKNdl2DwiFf+dkYRTk4gNpLtB SwKxiZ07LA0J6qtIUE7nWQsVbtVmqVwCZ+Mc7E67i4/511A4P4pYsZ0igegg ODLURXF/oqckZSOqLueTtDlvwzjSn8SXKsunyFxyFjPXFeHhiV0oTpPX/LS4 Fb2fBrcNVbgtp/WtvQa3XzDVdp0YhaurEvFhkTWd9XFGxVDKHYFIpoYuo6Jz bKTCqH1FGDVY9xEv87pxyNRF2LMwBcWbAvDxVLbadkk1V6rHt1qmLPJtousU VPWzCq6cu4mZffxw1D2szKKO1IKiV0Xh2GfO34m5UUl4tZno9KnVWjJQkryG qiFDE0EGXrsz0ePckDSfCmNEb+8wOAnbJx3Ax1U7iC4fH8aYDrb0wWTXGNxZ S1KSPbO1mBadNWOa56Kis26mxzSFTp/pUhfxdRl1VltIH9U9DWtXFuHF7Xt4 ++IZOPe2jUxgMZjMkZeQ7G69z8/CrfXjnjh31+NeFLa5QIKXi2Tuv1U1PEOr f/TvgZZ+iB4fisOrslBUeHE4G5fJrcYiYbQvMmKT8XYL4TJ3hTI9U+NcTDM1 OOe7MsVK3HBmZJxzzi0vHOntWKcTUJsOztgWFY8HW2cOYwZx/OgRTDQ1Rf// 1EJ45/7w94pF0fo4/L05XIdxrrqNGTlx2xbhqKZh3lvp8U4RlHePVtXhnb4o 0vTFkS4tI1RG4NgAxNqG41IWMcMre4Yy8fOIAG1qVUP3X6rDonod+LeuBysT 4hOWE7VZ7V5e+NTvD9MTRHTrrQVB+MRjILsmrpnyvVuiukjmUVkZihOw7+KG XTEJeLAlop/ibaowWObOno12v9REv9/+wNi69RDYqSEse4xAdlIK/t4ShpK7 Z5XBUZuqU8E4tFK+KHUg/suwaHyrrjgZ7ss0RGsd/Esm0bRx05DkGImrqxPx /NKOASpGtTohFbsT0rDQ0hVRTfpg5O8t0LNaYxjVaQTjui0QWrcNott1Qkhg PB5vJNOWc5vVRFSLFHwLieg2dd2nIjQlxaNfWxWhe1ZA6K+VYSRhvYcH/oxP wNPjWfKm1O8lQxNfSa0GYllXc6wf5ojtE7yxxzME003GonfzDhjWoT0Rvg3M yTu5RSvYWUTgXFYySlY6/EdlmNSE/w/jRi8g68ktRp52KnJ31ZCbl8a/ZXea TtxeqttMXF+biPdPbsgtsD9LA7yHDHC6pRuim/aVGFrVbwI2j3GXft4bEIm9 UXOwk8SSDfOTsXfLWuzctAltGzRFz5ZNMLyRjIULedt3s8fm1BR83DwdJTdO KpMeNTDE0MUn0WU04F+KATAr4O21om/roAJMxwoA872iEKcxqc8UHExOJAqx Ut67929JIbYQcA4lLMC0Bj2Q3GoQlncbg/XDnbDdxgd7poRIjO6JjcfWecnS zxdP5+HkmVxlNet4Ti7srMejR6u2BKT2MCEgWTccjtmhiXi2eTberQhSQFJL CMUIKYFUGaVpG0dLDxox8HdUgaZtBaDh5c9g60ikT47CrXUJeP/4utzt+x3W EFj2Ep1ZZDkJs4jOpHcwwar+Nthi4YFdLkFEZ2YQnYmVdGbdgmTsJjpDX3fv 31E4r8rYkLpdCCyWVIdso3CN+KKSZfYksZ8CteLK52owlOZ8lTCxkzd2DQrE XwtWKJtoxXj9q6ZiibfqpIJeSwE9WsoSt3Rw9H5WFOssPAf44Og8MtrHl8uB 6Afsik/DnaN5imFTRdvKFG16w55IaT0Yy7tbYIOxM7bb+mKPVyj+DJuF3bEJ 2JKajGXz4yVFO3E6V1hC/JKhE2jpKOE5qreLnL5vnIri1f544TsEfxfkqa2l 6JeFS7HVTQ+V1aKk5QjqvRgX0i7i7eEjaiDr7YtWx7ezCr5N9fDlrWkivrwl fVRjMyzxmYU7G+Lx7tFVqT6i1wRQhWnslZzj8CcGuKxmW5yo3xqxdbtgdrN+ WNRhBFYPsMUWy8nY5Uo0N5BobnQsdiQnYS3R3B2bVyP/zHHcuXebGUVVyV8Y 1yUG3dQUKXRysSUKzzK98PeGEJTEmqPk6imoraDxSYlezipxLPZABjUZiIuu 7ni9kejJ3ftldoLT36rroio62C4qqDasAKr8YAK6tuBj5I9j85Pw9NiSulqB Sm0N/yvsiF+IwFp98GeTAfir21CcG22DPd5h2BtOlDhOVuLFabG4cCYPx0/n VGO4ZhL9p5o72XW2NPe5k+GB7ctS8HoTmbwttMerWZMULNQ2mpTNH9SW5GWM XRr0Qu44J/y9KBjvruxRxkssbGhg3JVdEwv+dQWM+eom76LV7VWrjNFNx2Dl 1Nko3BSHtw8v/2OMP8eOuKXwrm+CI13H4LmZFW65OuPyqTycJcp6+97t3xmm xnU7YcwgPxzJoLMxLxhVr4YZ1mZ4uImkais9UZLhqywb/s8xrYwokj3sGGqD 18lB+HhsEd/ILh59wrMfPVjFwkY3FVh/rwCsvKmO1uYDjANwMj0JT3LS61Uc Vj5b8ajXA/etRqHQYRze5J/7Tc+RfIm5MbPQvk5baaa4xcccLs1qYXzD6pg6 fjSurk9E8dpAvA81RvHFPKVzQMzi+Nktejxp8cbbXcIsnbGylyWeRk1FydEl 3wkY882CBjAWGejOronrMNUrgDHXUYsW47BqWgzubZmDVw/O11NhWKfdn1rb nGYD8NqTeMYTqwyc1PEZcx3talZH259/x+BGreDRvQ18yRTKtfUfsGtVA8kZ q3A0OxnvN4ajJHkcXq1N510k4lSjtOlav6vmU2SRpCWh7QjcC/TGx/UhePPw ipJkiAlpNcP49RDwo7UUettfVPDT71ApXcxageBR03AmIwlvrh2szzjTCwrS 77xPjDrGTZ2HojhsjLJVSU1/ZFS/Ua7xl2ufTgjs1Rph3RsjpFNt3J2bhrSQ OKxelIwXm2ahZIkLPiR5fKUC5veCz5zedBAuT/JAcTaJc09uKImrmKQy4Pgq rZiL9hLcDF/m+rECwPFq57jWE7A+NBb3t8yWwSwd2U9KVaiS5IrODh2BkrjR jB0DHuAHHe9G/9/6t9roVKMRxrVvKwM3sDOmDu6AlRYjcH68LQoGDMba/sOx yc4O9zbGESR88CLcA2/v3FHKpjzEUp0h4osATmrQG3lWzviQEYxXl3YptQAx cdIDUMwfeqsA+K0BACk5DmATRfMyEWERjIJlSXh9bT+fR0+p3xNFE8xQkrta vrtQ9PhegYby79WoLxw69cS4Ph2l6+a9WsJqQCuE+8che+osHPQKxlmHSbgw yhwnuvbCVU9bFC2Yh7d3r33KTFPNwwiJyneM1Wgysdg13BZvUqbhw7FFP/8z oMTTrfiS3VcaQPGWlCbMN9Pimr3ZSPSoWQ1WbcmUNjIOD7ZGt1VwTEVii4F4 40U82slsvlRXNkrL1+zrd8Oh0Q6svvQTurVvAi9XK+Sfkns+12w7jAVpqzE3 IBbb/GbguLs/zlvb4dzgIbjkPAnXElOlz6lV9nU7IuUaF71Of+PHL4aTsJHd eyyeRdOwkSGeUsEzHT0saabDseyrguXnFcCyOcOS1vh616qBob/WxKSOPbEv xh95yyO48lHXtr3rMBSHm8s1PB13TV9bjKzxOj6IqGcGSs38S+RfvIHtu3MQ 7BeLlQGzsd87BAec3LFwgg28iVxezs7Ykp4htLnpCvENg4eGhOT2prgf5IMP G4L19+8agIcngv1UKFeuADwNFEP7jFlGWmwM2levhcE1amNUncbw7EIc9oDm JPLVxPljR3ipz7puZ5w3Jt4tfrSyC5xrXqilk/Tzf2dMxasN0wynj18qXipy ViJcyVzD2cEJ8e6+OOjuh4IJDjg/dBj2tOuKG0mpOujxiMf3c1G3ENrMCFc9 JktxofjJdZ3jRni56zddCMWkTy7AfaGzKqTROCavZXxTJmCuI1Z5LGE+rGs1 Q5/f6mNso6aYSPx4wKAO8OvXBE6d6mB9WgzH0bt+LzyaSLzesdXywjov/94P 9EHx+hCW8SrK+J1mjMo/dw1bd+Ug0DcWywJi8KdPGE45e+L8mHE407MfTtk5 0f1gil8QE1xxc8nkhn1wcgKJxktIiH18Q1mB0oBSjNYDmEJwKPWgaylAt5PA tXKcM5a26YP9/UeiwMYRuxwdYNS8Lay6d4LroC4INOmMqBEt4N6rHs6fONJa 8H/zWg7EWx/J/9UW+A9rboRrk4kqrAolqnCjjCmoMMXUqyrOXbmNlLnZiJsa hw3+UTg6ORAFtk44P5zMctp3x63kVKUqIfo53kJgXbcr9ppMxNu50/D3sXQO HT/og6Z2eoYspnV8RUA0bnkV/VucI5IdIm5iZuOuEna5xuNwmRjNnbAg3EuJ wq3l8Ti9OhFdm7bAgE5tMJy8nYd3Q/CYjpg7thVXuayEhdjdfTiKI8cw0/1a As2bhNUzE13xYVkISQt2K85eu5D9FTbtzIGfdwwWB8zBHp9wnHT1wnlLElj6 DECBvTPddil9kvklnqCEW7pgdd9xeD47ACU5Gb+x4dOfqgl4qa3h8VMaRUtu yu6wkSjIicQFSG3RE7t6Df+EpaWFs0JRuHA2rmUmYH92LO5ePIYHRfIG7+NH c2E/wQq92jXF4J6tEWRrRKZSfig+sJSv39jW7YJLI0xRnGDG4PuCxNbuOGTu gPfzp+PlkfmSjqlA9j3zegVExRJTsjCLqNi6qdE47BmE/IkuuGAyErmdeuBi QpJiT7zYNc3SEfM6jkLRdF+83zCd59/i2Zs8AdaDS+zDU4OrIRtHqgN7CWSr xrsis10/HBpsjvNk/G5Pm4p7CTMk9M6vSkTB/jW4diH3c8XeLiF8Wjwero9D yVI7FF/NUxbt/Emm+cSeeLfjq9kE+nPMtHTFxmETcCh4CoK93PTTxF+YMW3Y cRTenrOxkGjVTt8InHDzwflxNthpYopAewecJhPfygoLeQhvNgTXFZO/rnSz ibnab2WB4fmF2mmf9RgwFwn5HGJ3MU26YXNXI+SNssIVEmjuRk7HvdRo3FwR j7zVCXhw8TjyTh/QWfkvuHQbq+am4O2mSJRsDmup+K40LGw9CO/9zFF8Iqum 4J98rR0xydYO3k4O2Bk3WfFPNVg2lX/5FuITVmIGyXZXk2z30JTpSLN3QuDE icjr0hOF89JwID6VZDgpmFGjDU7bEpNeKvtx8QwjnlWUzlx+LB+esn1gX0k1 46VjnZDeqjf29hmBs1b2uOHni8I54ShcFIMr2Ym4cmAtbhM7K7x/k68DzY7N xMkVySheNxXPkibzVqHshHTs6zUcJTP5JLNqGS/k6uSM6SPH40aAtxQj/358 TXamelXXSsze1m0/gnSS2qaR1HayozPWupCQaDUR3tWaY9lvbXC5aWe8NzfC 29yFSsefCJGBo/B+0MVLdNlqeNVkeBUQddpPxn+9lRvWdOiPo0MtcNHJDXdC AnEveSZuL4tDPnHjp/atxqXzR/kayHT/WDxYR2xsmSNKrp3g3Qj2JNxcHTUS HxJGsYDypU6KILqgvP2HES6FRk8lNP6DI0v5RuH8SzexafM+ODm6IHmiHwIa DMWetiZ4Pmgk3poO+cPgV/93EeQlkpyjN5VrvNi7nmjhcZJ3JTXrgW3dh+Kk uQ2ueU5BYVQI7qXNwvWVCTi6Kh73iJH+9ddt3sGef/EWliel4M2mmXgTPYKj GtSoD546jZYc108sRuonD+Lcln5CjqH9cNbOTYqhLy7u0p74q6XEctLkYu8C j47jsb6/PZ6MnYg7RqYcVTEFqxiqoq/n6UXZEwm/x7Gcm2hRJxzdyLtf3XB4 WS7B6aM3WIrmgmVt+mL/gFE4R5KhWwH+uBcXgbuLY3GRxISLxL5vXszFtTvX eP0+OmoFji1Lwcf1gXi7wJMHZer5lrQZjL8DxqDkXsH3guczlJnxxgcHEmUP syj77li6gROMJcvnwYnO6SeRGLaohzUOGFnhnH+g0r9Kb8MLbRVDUi1RE0tL nyo+SG3ZSq49fINmdWaja72VGNRoJcyapcGqqS9i21vgmImczt0Nn4Z7c0vT uSKisQUFR3hxeapXDArXxaNkhTNKrp/kTRvBJJ061McYJdFj2JRbuw2B10Vp ON42ZAJeJ0hz2xoVV1jxTIyNq+RzhfmJZWIR83+OrRiB9E8uKKWsvviTEr8P repsR8/GJzC6xR64dt8L70Gb4Ds0mWR/MbiWpZP98bJy/vlbWBSfLC32vI8d xdF1qtsNN8xHomRNiGoJR79KzScDvFb+35kkyK0PrPnP0eVzKFpl4+iKlc7S 4jIL37yaJyrmoAoCKmy8+hwpcafRqv45dG9RCIu+hfAwuwevcVfhMmYvzf/4 RoSZYUtxeCm18yB8yPDil6k3DGncF89ciBfNW11VDzQ1J/olM5Ns4sZTOpji QZCPVB1/T8J7DUVM/e7KUmdWugRTSTkmjNL/TRcYtbymLDAGl0b4yknzBlfR ue09mA4tgseEB7AffRfDjXJ4ldPbLRq31ySgJNMVJTdPNRTc38p2RvgQSCat 9/K1nhdD3N83DBEKZkQLI1z3LA3cvKmPly3pb3wBhUpPt26K24foMXr/YzTU vSyH4tixt2je+g4GDiuCvc0DjBl9A2fOvuRQ0GMK0uYk4+XGWfiQOJr3N4cS z5PTzwQls8whblMW2xlEj/WtAIZPYxJn7d3wcRlNbG/qNNfxCXk1RpNaing4 Ib3Kszs9MNQSkIqCwee1mQmrMNZiJ+YG70DJufXN2OXIoEXYn0HMZMN0fFzu I7ekfwFX4lhuWxDHsjZEy6H8wKg41u+BI2NICFwQTEMgn9KLZT8xgeV8/lq+ mOK1TxWh1A4dKt2suwyhk2PwaHMsSi5sas4uL1i0Btdp80yWO0puna7HvIlU lmk1EAecxyPY212/dMyzXBqOtg8l4ShRCkftBAF1V2J1M6FfdAUUUx41AfmS UYDbbBRtJDn1xS3g/OefvYHEWUl4sXE2Ps4dU4fJzOPoJBdXuE60wz5Pa7y+ nsfzSOroM/mi6JElvBeMF9job7XK51sMglp8+zpE494GkgNc3saqQ5Wxfv0h 7F6Ugg8bg1Gc6SeHmqqqFhUSOBVTRloioUV7XPYexLiQHe9c6ninEce7gTre q0rrlmhZfG4tRvn/oSReNjNxZx1xk1d2MI/2GebOX4MrJKksWTUZLt180LN2 OM7k3JTv8LVmAdRutCm61qqOIT/8isl1asCreQ2czznC2JJ9R2SLIbg+xZOQ lx0pb68SjYhLKEZaJiHnXIyvg1X0jn/OY2wkbqwh0lzdJQdw2ZoqK3GFvT5j 7io9dQ9iZyTi6cYYzDEJxqgWKTBpFYeC47yO+Z10eAutbm0j711SExyZ75P3 QfI+Qt455J0rTYhScYK8T5L3afI+S9759Oe4FLas8QUKYpNxjVzjr66/VMPQ arVgXqMWXBrXhk3TxrBo0IBntJfP3UTu4m14dPYmyzNlVH2JR8534B75htL+ I1qu2vlPeqiK3pajKtZk+OfczMKk3SwlV3cre8BEJ6WWgMvX2pPU8Ci6tsvE 8Pa74dL/T0zpvR7ePRYiuqsTbhoPxq0RRrhtOgR3Rg1FodkwFJoPx70xxrhv YYIHY0egaJwp/rIaiYfWo/Bwghke2Y7G44nmeGI3BkUOlrjuOA6rHGwQaG8n 3X+Hky2K3CZIP7/wsJH+/3LKROn/r7zt8drHQfp5QtOmsGnWGGYNaJdmd/Lu TN4d5Cavum1g0yEYe8xT8TZqJgoteiCvT1u8Wp6K+/NScSohlW9SmRcbA0d6 +k/1ajCr1hBHLBxZvFhYprOlNGn4PzIqTsYhuJiVjHd7Zv/DUalJ0s1LaFbz IPq0vw674YXwNruJAIsz8B29BK/SZ+DlIvqeiZeLZ+IFeT/PiCLvaDxbEo2n S2bh6dJZ+C99L5uNJ+T9gFzbMzsIWWG+CJjkAi8XJ2yODsTNJbOl+9/LjENh ZpxcFa6D21nxuEne9HU9O0GaH9CXZbdOGN+lA0a1MYVxczcYN3KEcX0bMiBj yXsUHIyOIifjLgn1l1Cy0QslGVYoSTFDSdQQfJjaBy8du+GeaUccJ4P1kg0W NUk7M1N0IJ5qYM0aMP31N7jV+R0Lh3SR1hd5b0fZbEa3LlWBURL9MP+c/eBp KFiZjLfLJ0Ct5atEp5OBONLRUWhZ9xKG9X4A29FFGD/yESaY38fClGO4eu44 rpD3pYLjuEjeFwqO4Vz+MeST95mzx3D6bK7UiZxz/DCWZy2Dl7cX3D3cMTMm GsvXZmHz/r3YfPiAkNXLk6E6Ysot/T/vyFHp517NmmJkz67wHdkVbqP6Ylpg NDJX7ENmxl4YDw+EiWkKZq8pxPxlG7F7zQxc3BIpW972IPy91RfFG0hekuVI BspaGKi+8kCN6Ejy7DpwaVgXwZ2bILhnA6xPiVEGRAwRfHlRPO/tV90BEQOe 1oDY9p+K08uT8SHbQdVstA72CSTzfr9OE2HZ7xiGkPx7kNF9DBpyH35TH5ZZ IDe87KV7+p8+9MqoyDGjbeNG6Nu1MxxMuyHcy4pNA75H5sb9yMyWH/R45OQh hM2MRHxEBLatmoHzZBTubw/Fc2UUPFCS7YjtHv0R2LMxIo1aY3L3Btg8P66n ALZuZ9On0gqafiOfnhXQGKyf3IrlLp6hWPX1wfElySTzdtPwVV/qW4Z0qLFP RxvsCJiJq2SCt3/XFaQufoETZ95V6CzML/QA5y8NwOlPlv28cIxMs0tWuTAS /y7DWv7lG8hctx/78w7h0oXDCHEyw+JYT8ywNYLP4PaIHNgCk4lKb0qPV9qg xCXgn9k9xZmSAZTFnTBaKFv28sDRxQTlDZPl7KfUxoVC2adSM7N3+wnYNnUm rqxOwJvHt3XQVCtnU5alGXJlhZLgQSohc/k+bJpLt4EEKLUCETJO397MEl0b N4ZRm5aw7tUZQUPbI8CoCc6fylGanURXzHszxPT3Z1141NJfMWHk8Jh3d8RB aXOrN1u2pFCcwpR2VtjqN0OBopIeFGrlE6VxOmUbUmck4c3WSJTcPaN22AqX /PiRHNiPH48ebZpiSLf2mGY2BJe8LVC8dZFOmxf3eVxyMS1mkv8ofJwrAfd5 ao8aWp11AHvTkvFxix9rePpKktyz7Xhs8Y0kEwBZcvoXA/7rdyZwfk4BpnnF 4jFtJi5Yzyubeh6tqgLvRfiaheLqNDLDDDTD2/y8Mi1tpS5HNy3Sk1VtCqAm azYJTzvmElm3BrAdkF9I27882ozDJu9InFsZjyskUKq4C+6ZXMdF4iadRVze Ibt1aUCV/cULd2OxSzieh01B8Vxv3nhW1rY1xSnDeul+aKHCUQk3Cm7i1ll5 Caa2hthZS//E5iQS1rZNY92Tn0tiu7cfi2Q3P8QGTMGsmeHiBI7v1B/b3xd5 y4jbyHRUtqjNCcpAjn8IPoaS7OfKKS6kaJn6z7EqR0ju71Tcr0ZtuTI2ZxzA +oEh+MtnOt7cuqGFQeaiPVgXl4z320LYMQSyEa9athIONnZwc3BEYpA3Tufs l4aJ703PWrkfW+cR37XJXwEg//hVRFiFozDEHx98hqm1F1YAADEp4dULPVPR kn3SkO04Me8qSvJOofjWcS67eBSXIvv8XciOScK7bWEswn6uY8qTPTzgNMIa GZOCcGllIjH3O8oqUcoOLIhKwtutESi+fYojEOqWhg2Tw/E2bBJKdi4REeBm y29edpOjKgK/6olanvgFF99g/uYiPLxyiviadbVVSCriz9uBZVFErO0RrGb1 pcH6Zt7+I3BuNhprJ4VxKMArh/k55xHiE4f/bopBydm1fFeX2/DpOBc4HcXT LWmXv5rN/1Q+FmLFQh0LwfCnTIxC4foEMse3gmHJ6casbVgUkYjX22bg3a2T cmD6WnPBhH6ClhEcm5lhtWsoLi6XQeBtAW7WM3GbHkRwabuyry0zdTtSHCLw JMwHJWlTeYuo6BDUmur1EBBDteZuWLUjISpj08bDcl62yQd/X8/7XQUWeRg+ k/aa967dG/NCEvByWxQie9bDuZwj+l37alm6uGfIvulIrHIJwYVlibh0YL6y EDB+oD9OkVnEx+W2imHP8F0kNQH+HeaAvzelq7kMvn+DLjDpn2fzs2GoflbC QmkDifLcj9RtWBmbTAyfZCCnsjkmoq59qcQwXrZoV7Maev5aG+59B2Lu2P4k BaqFCU2q41zuEeV5fFp5tbh1za6pKbKcCERLE3Ht8CKlHyk7cz+2p9J0y1eB KD/3MgItwnBzeiCKp5qKjcbcp/CVBwoJPzCH/p/CxSDiR9+JKQFf6AiiRfJN sXg91wxqWPD9OWqzD3q4bseatdG3Rj2Ma9sW0wa0wczu9RDRoRa2u1pIRzfT zuzbROqvBZQMLaJ8LqBk22QEMh2IFixJxM2jGVAaK+ftxKJZZPi2huPDjRMc qGwSyla6ReBl2GR8TPLkQIkOh+/qFJOM/+gCVPaU0UqYE7oUBZkk2q/3UAAS y0uGAfoWqXNi0fqXuhjaoAUmdu2IaUM7Imp4W8we3gIHXIegJNyeBEsLvLQb iiKTPjjbsyteLJ2Pe3OlkqjaHEO/qCx2xk5oYoIVdsTzZiQSzJeyow+ok76A cL84PN08GyWnV//KLtsNDETe1GAUh1ij+PIJNRclPqaWh+xyMauMrIy92JSS QpIrkhHlLuOLC6KJfqUYpizlb5IEseN90eX3lhjVuROcjbrCaUBbuA9uDU/j NjiyMgnXshPxKGsOXi+fgQ/phPUU4l1nuaJ4mjXeuY/Ef8cOxM2BPbG5R1fs nREBPxdXTCGRXHBXYle2VePhWDZxGgoWU8CWK8cHuNtE4S4t/F/aBo5W/olr iLYJR1GIH95MNuonqAKFQB7wctGirpdvYOebdqID4/FsSwz+3hKieso638Al apjs9avKDdFNh2EtAW5dkD8GduuAYd1aYmS3pjDr2RjnT+eyz36PnUeO4tzZ 4yg8l4dNxKzOZCXh5spY3EiPwIYQT0x3dYSfkwMO+Njjhc9YvLKXtTK/V1ec cHPEfaKVZ0pLuamxMciInYPlsYkY33gYltoEoSA9AXdyV7CHcFaC1aAAnFmR jLfpVkozV7jHAmydEo53YS4o2b5Yf/MEVervVCT+qSyQ+scqO48KxrXVSVLt Rg3Ib5jfEsmuTkhHSLsx2DlpOi4tTiBqsEq6npqajEULkpnnrqHYIFV1X39/ eBCtWrUiA/s2Z+HgiiRcJZr5kGjmq+Uz8WER1UxflMx2IxnQBEkzn46TNXNX 1054kp6G68Qv3qUBc7QpetWqjuE1qmP0r9WRYR2EfILi3dyVKD0MDrrb+HUe 0pWdfQC75tNN7N7gjco0LZtiGoJL06ahOMgcf5/PU3apXL9+XfGJXGPLHjmi AF32UK3KWE1u+SetDGwJxKs96eJJkXx6/ZUSQ3mxKMJyEuJ72+FQEJlAZyXi weVDSnzVKh3ws3a3HjyMgjPHcfdcHsuCvsLbpSQFnx+IkgRPlEQ64IOfJV45 DMOiTq0xtnpNjK39Bya1bIIk8wHI9B/NFUUrodbJFdJ2YkkMmSBtT8KzE8e5 BtMTsxY4R+AZPbdwni93BVQ16NMi6G98v7CY2+kBKwYRpTGFxPt5kYl4tTWK ZvBqh0bLlD+TLH9ig77IMHbHiehZuLwuHq8e39aPGWoJ21eMkCjy1YI8HNy+ FvuWJ+Ey1eXsWLxaEQXTZi3g2L4lPDq3QkC/dpg2uAUc2tdS5oJlnZL6gvy6 xYVITXqAZ5fv4+3zZ7z3cNbUxTjkF4oPoXb0TAA1r/pN+VCqHaDmaTtTng8s Ha96+PY3Ao6eTYdjnbUfClJice/IWvz34fWKPCpHzU3Jhvo5rt+5g0VzE9Gr aQuM7t4J7gM7I3hEB0zu1ZCkAn/oH5+oDV8l7M55gaJn76TfOHb5x64iZFwY 7gQHoNhvuP42K6UCqVcTY9gZPke6MjZuOIzcJfK84f21PLXTYb9m/9LWvtD2 FtjlEYxLGQm4lSMbgFZd9CeDuFVB3pEctK/XEP1bNsO4ft0QaNYZnkZNsHZR AioKGt/THuIyF6s9wvEmzB3v4zz66Ulcuk9ENynUA6jsWbE0CyUJ9hw6iYig kwg1gL5iwSaSuL3EPvY4PI24vWwSYAr2GXR1v6gIw/cR5OXmon2zxhhMorHN sPbYSFxeI6YjelNC/n81bPgWa6ch03AmgMSp4HEovpQn+jD98w14uxrl9j+G seHn8QR5kBnFxli8SBqleq6wnLHKqYtdw35YMsIDuVFRWJ84HUGB/jreiidf egLyOb+N0VSco7n5SjvZ7vWa8BS3evI64u3C8SiUBOUFgf0FL0N30skWK8NM V8vEp6rTPK4CQs8JWYJ8aZbgrio0bzE8eSgHHn1GY+bESfB1dYGXuyu2bV5V 2oEg8c3L4tlZB7CHhvZNfrBkskR6pWOXdxjehznh45ZFalbPZRH333DV0JOl 7KlTRLkX78FGmr1vDUFuXDhf3BXPXuL9INzKJ9k6wMV6IgIdXbFjTjgu7l9W aisp27A4OonM2CLw9+HFFow5ujXHb3Qork0PQnHgKLw+mwc1C+VaKKYoP5Yn xGdSw3hUgJxYr3J2xYB64TiTe1PtoJJKbIT0Q6aHrRMiTB2wb1q4lN7du3RQ OSUy2CtWrnmd26CMTNbC3VjiGo4XYZ4k/fPiWib2QH5RvjBiviUlsZotOZ9J HdtmPRKwxGcRJveOh0W7FBi3mvErC3KioGo5wZ9bd8C+YX8sNZ2MkzGzcWl9 HF4+vs33GriMDscN2jC3dzbGMjlt+/sjV6p126DkykkuJ1V1bk1cgcseYKbI KcZsPq8uGxDUnP1XOHb0BlrV2YHujQ7Bqu8J+JgcwtQBq+HbexY2duyN825O KEpNxcWEVNzIyfuBYUHlp/GIulz9mEQ/IW2SaG6MDbb+ODcvDoVH1+Bx0VVe 5gv3n4/cDGLj6zwULPLzriLSOhz3Qvzxt/dQjoVYw+JYlDmn7P8EFvKZfM1r HsHg1tdgNaQIUyzuIWDcFQRY7kSJND2mkxAbvJ9shucTBuP+0N443aMLTrvK M7pzBKMLOXlf6Fk0rzVQ1ujvYqEvhMT8iI5jpeP+Li9NIBBnsSoWsfb0PVib mEycx3RachzLvhI2KQ0bPWlx3A1nXexwdk6qqrVzzy7GYwYWz7bKPuNbDazq Otf46Lo1NoJZhwMw7v8A1uYPYDGqCOPNixAVfgUbMhJxmkyJ72bH42nmbDK3 iMTHhdNQkuSNkmgXMo+SawzPxg/EXaNeyOvWGc8y0nA3RSrWyOPxnWbizRem 586JIYmO9LhuzBjrgZR+jjgaMkNaV7xzYb9S7KLLgbHTE/ByCz2aN3uY4g60 zql27OWGZV2H4VTzDrjeogOKkkuhFlurqpQPddmHtKs34/Ck91zOSQS0Holt zkG4sDAedjZn0a33PfQbfA9e/o9kH/YDDh7PxaX8PNwns9JtSxORT2aD97Lj 8GzlLLwjM7qP84NQkkjmVjOd8HbqeBS6mGGVzVj4T7SF+8SJ2BYRisvxyTiW kKo4b2f7iehcsxoG1awOk+q/waHhACwbORmn5ig+TTkVc4p9NB7QHaEXt4Gf bquvLaVh+FPY1uiOpEbDcK2HCZ73M8INMvKi1+PVMp6si/WfchFVvzU3tTBL V8zqNgH7/cJxeUUCrh5dwZL6n3E0LxdXCYw7NmSRIBuFhRH+mOruAh9XJ+yN 9JbpxtOJsSM++o/FG2djPDbvj+v9emBP5w7o9vN/YPxbdZjXqgHb2rUQ3q0L zqfKbo8XcCYM8kXBSmJsmXYMqvLTb36EMzW4MdX7Yn5bC1w3scXTUZZ44OOt 5iMrgJwYyH5XNK+0vk8bcMZ5Yv5gFxyLiMKVNQl4/fiOApahGuqpC5dw7OQx XC+Qjzb9k8x/L5Fg/xeZ/75cGYX3GaEoTp2KkrjJGFm/IZyaNsCk5g3h27kF wga0RNyEnsrhmnRddFcaSdc2+/1jsGaPnYTdxrZYQwZ8v7kjcoda4GV+/gAV H8nBEpOIHwyDVV8YDufGg5Fl7oUz8TG4uIHk6I9v6e8YMrjCw2su9OOXb93G iVPHcZOglrNzHQ6tSMLwNu3g0L0DfPq2x/ShHeHftxEcOtdWHq+QvBUL2aop SQOHVRAfvrYZSWLO+v7j8DyG7shfYqTi0HihiZ/fTJ0afVGM9JRJTLLqsa8V 5JyAf0tTbHEMxIUF8ZIZiFFRe7OabgGJ58cJEdFo+3ttDG/XAhMHdEXIqE7w HdwE47v9oTSvT/Ocgye0O4SkkvyAcL35jtaJZ/RAkyXdRuNRmB/ebAgeyvyh 6Jfomz7MjR8GzY960ANFzELqMlDoPpiZXaykdbrLyxNwPSdT9WgbfVBKn1PE oaDw9evcHb1bNYFp767wNusK5yFNce5UjgKF08hQeXsGyTaH6kYXnYYseh5N YlsT3J3qjeJ1odIe66EqboXvEBFTrx8MC12HkZ9JQvK8Ac7ICZP7ve5c2Fdm xqM2ff9GT+jSJwbnHT8G3ylTMXvKRJI+uvOu/jC/eThKTx0kGeVodnP5vIDB uOJOT4uRdwEMF2TjXoDnhGL4ZrLxqq6YKfGntkvr2I0GYIWZJ07HxrDYeKsi h5DwbLWseVbRiWu04Wd9Ep0/BuPd/kVsdIkHWLAbq0nY/rBFSg1HCQL7NuqH M3b0LIBQacsUP3hfXL/7pHyBy0bXb+QdWc1NsNEuAOfTWFL/1zXpr+U+DlpX MPqmc8rnW2ajpGCDIhhdX5sdFI8XW6JJmrZqpCCYSwO2J2p+MN7kLoQpGwZ9 82SBr7Ki6l8blkyeIXzF0vBx0iHLNA2/SdJwDZv83YBErmQSTru3PiwZz7ab VMZk2yjcXx+PU4vn4tTRm6bs8ixLN+wcZoPXSWTOfixjJBNGNDlBGLXnmn9h WKxa7AORY92R3M9BSogvZMZjx/rFatZWx4A4a9YcxOHFtGbiI9eEKgkJFX/p GGlywn6YD4zA2ZXJuDJnEoY1icKyhH0mTOgIAvOavmPxbBaJPEeXmglC8zV4 eoVFY7Wdq3pCi8H569LIWmaGL/tZeXdavJU/MkZ6IDMoEL4eJMfznsJtswH7 mP4DvDNTNmPpbLnuUnJ8RWOGl1q2qRu2aE0hBR3+WAvzThvhOXAVRnfZhpEd 4o0ZIiEk5KR3McPDED+83xBszvRdNFaem1QADrEnWn8xvRQXw0+OjfaMhYvZ eHjYO2KysxM2LpyD+3fOKwsBas8JD3SPkToy320JrfBKBs/UmlbfgG51jmBU 76uYMuoSbAYUwLzvVj6RoJtoY9sMxx1fLxSvDcXHJ9cxhgHHrZ6VRUqTVz1r F5eG/m1QfN2FTP0GJlcbf2wLWYyz6bFSUb6pBhxxoctwIUteOFWDw3D9QdbO RJJ4t6t5GEM6F8LauAh2o4swesgjmBodHiY4w9Cmg3DJzQMfM0OlwzEtGCzc f0wkczsSptUG/CtdgMSo/a1B5r6QrhmK1oH+d3HtTBGe3rvZzCA2lZG1fB92 psprnR9untBfQiyFp+wjYcKInYS1MsE2Gx+sD1yC3n2KMGDAAxgNvo+hw+4h P/8VS1s+VQ65OmUjn2z24tIuVmSSw76zs7PEfen2VwaJ2snE+gtTVDf42W1i VOdLq3svvFCY5noipsgcC1qPSAolEyu6PHlmNS+vq2arpdpJRXNq0BMZA+xx LCgcV8g89uHlHOTmvUPqohdIX/YCopo40gOrRtvjfZp0lIaSDNAmMD7f4cUO nuvzvRc0rf1BF5iyi37y/gbeiURfXD/o6zV/JJyuHXIb8JwwUwqNJXui5X4X vTUHxho9UTKi9QjsmOiHC8kxKDy4Ds8f3cYIhlkUO9rilXS0xZIRjLo4p+NV FXE+w5cm4uPj+U6IH3XFLbsGVUnHN3zCnKrY3Mh557N+0by43LSX8MQyuQ+K H1wpZzi9sWyQI/KCI3BlZQL+upzD04UI6VRNfhjzUlNmlLworHYQAJ+iELl+ MSyXoQMbxGy1m0FZ6Lr+LqxJSJZWON4fXMTXDGikj2o7Ersd/HFh7hzcPbQW zx7dkhrwK+mOMi8NRVkHYElnc+nkM3q2/euHV5i+yuNGdZbqJn3pjVt1XfnK 7HEvZ9rZS0U+7jkj/OKkR2fQKWVjYawmNeyDlUOccSI0ElcyE/Dg8lFeYBAj ruHo9ynWZxzCrH7L8NesDSjeOEcKb5wGHUTdz1cpY6Di81l/N4yAuPxuqF1Q bBjlno97NOeRwdK6xcelVsoqKS0hzG4/Gnudp+JiaizuHqYr/TcH/iMEKmPd gmuICi7Ew7wHePvkyUBmaaLl0rea1VLBqTTkc3VE2asq3lar1Y8Xzsqc6kOu rV51EAfS5ayXP6OXnuU1mUyssoa74GT4DFzOSsD9S0cGKkps4PAbXoPffegF LhbKkWEg02kqiYbNNhCl+kzSTRXbVNt0xNHNP3YFi6JY1pq3sh6jRI9eiO04 Bn+6BeJSWizuHFlLZnE3BmtFIN3h4+1PlHt+je8v5JbKn/qlZ6lNdPVUzHOH qHgn3vLi7zpbWgh/T5LME0dv8hl4dkIqvBoPwOoRbjg9YyYu06L/xYND9Xgu T46ykULb2ORVLCVb4quSdMWuv+LgSve+8Wz3WM4NjBkUhvOZZJxWOWFwgwh4 mi+uJXgVeph4QmdL7HcPwqUFcbh9ZM0QFZfZWYXxL9i//Fo5RiOviyjpjXga bn/GkH4ORgcGpScIT7BYji7N5iPaeSk8+i6Ebce5GN86SDp84EBCanVljNLg 02QQ1o5yxxkC5qXV8Xj16G6sigh8lsajGW9R17MMObQqz1Pis0emR30rwv2P aPZHFro0OAGTrqfhaXISAcN2IXDIImwys8Ezm2F4ZD4QhcP64mq/njjdvRv2 d+qErLbt8HBBGgpTUqWmwwIi6VHyvpyT9yVzPrSTk66d9K9RHX6mptI0P7nb OBz0nIbL6XG4eWQ14lVEryyIrmE+8sArjfpc8+g3+hiQmzoLRe7/oGntPeja 6i8M6f0XnM2L4DX+Lnytj+F4UixeLI/Gm4xIvE8PxYfUIBQn+aMk1gslUe4o DnPCh0BbvPMeh9euo/F8ojEeWwzCfeN+uD6gl2xY3+DRwjTcn5smHeR8QToi ORW+5hbSYR3Dfq+B0bWqwZa8FxuNxdlZ0bi4hrba3ZEfhv2lziK36PmpFdKy q2iF8pMldJ50zDW4twEsaFhUsKhHDPI12rS+h349H2D4oAcYMewBpvrfwuXb t3D0RK7U4Xv9XB4Kz+fh0YXjWLEgFvuXJ+J0ZiKuZiegMCsOjzNj8Hz5LLxa OgPvFoXh7/nTUZwSIN96lgeKI1zwcZod3vtY4Y27OV7Yj8DC7u1gXqM2nOrW hmOjBgjo1BSpYwfg+pFVSGKKQJGgA2/AfOWURdnIwm2APTmxp7b8vCfzGJk1 2Lk9gpvXIyxZ8UKeOf+A/cdzcObMMVwpyMMdIvpfRHT62rUsEXlEdLqmcycr Hg8z5+DpillY7DgO49u2xuRubeDfpx1Ch7WTth9vmB+LGWx0KNtUh/VDhUYA lBdalUYu8flC3RVPWOoTeWOiKDNP+7ccPoyhvfpiUJtW0kEPfsO7IHhYS9j1 qIcLJ49yJsVy6CcCkxoGKcdfncdN6Sqh7uzP8OH9dNtQLjo1bozBHdvAxbg7 ppkTKN3HzmSehTMnPlJT3yTkwKe0h3OToNFU0YryGeL56fHcXLhbT0KgixNO pTii+M5pBLLPUy7456sIUHFjFd02U1m55KW0XFLmhDHtwQiL88RqyuDyxo8w n1iSjc9CSf46hRW1AS9HteRqq6IyYgDnz6sR5wL8idguZqG4tSYBxWS+GqgS bjX0RC7sKecNic5KbXbF77h23SHk0sML1rkjQMhM6EtNAb5TkgU5y1SeAEVv SMFgaHcxeE+6q2snVsUlS2sOH26enCQYB71NqYaoT6eFEf9ZZYSYVdfWg55C Jx7QxCchfOvQjKlxeLGFDPyZNeyR3l/pmCsPFhqDXs0wN2qPuucLaWo7vSaN iZA2tXzYGcm4+Vy6y7x58wwpQC3Dd6+j7sR5BUFtJ9WGDYeRt5ToxRpX2AgD xB/MxGvForP4RGKpkqIr9BOlq/9MX+rpjQs1xXYGGaH9+7uxLpFu7w+i7c2j 2EfF+pJaA5voXTUUSO28DnmGrFiI6HHbajBKDw+gC0us/4czKuZgVdm/lFE6 MdHQJXkiLAHH+Gmg7nNbq7DE654e4yNxb3083mwKhxo/FZxS+cgMNFIZuVYa d58RuEA6jIYWqvndxYeS82JVeSrkL9++sXB7/qByvmNVbYMRbW7blJwsHdox ivlSsZqloRVB8h3FR6NzDWhh8I7y0mJccAJebZ1Jp8MDBfnUIpnGBCREZqCp MOQC6moVcMn36B2zwNf0ptjMRNEG+XDCgQYHolw1iJCZai6MA3esausV1Zkj F+fI/P+Gm0cqITpoEfJXJqF45UTG7Wc63ArqoqYtcjajjJM4dnw8xfTkHxxT zLtbMpf8iW3zUlC8NRpPco70F9CjiQlFTEWnZsuk+bn9eq6YK62YnNRU4UFn d/S6JfeRubAIb67dxdtnj3jIpUrO3bQ469PwNnEyc9yXiEPbsAKcGUKMF7zu PnqHoufyhhiZS92JWDmKx6YsytPBqXB8TPk5H2KeUY1pjd6Yao1tHwE7PoBq 2jVXJtJW3RfXU2GmumKOZasrVJB/mPH8oBCJlFnhQVz0yvx4ZzHPGS/9+49z GgMHGTBfwNdeqPvnPvkPgzcvN4Ux8AgBdrOOAmE+/DzLE3MoU3ZNlJJrYnmx xoA7YBzwjgs9f1xLQIEHQV5mF6elVdkQ6E+aDVUC2ZCrNfOW8qT/dFxqRzU1 GBLHvyobFvrS0AEDjx1lDPBHx4rDUqOCDIhKr+EASrcLMaXvpudF2UBUq+Bt uQcoTxu2yHfroQLxbwZvVVVHyw2MKXbIpPmMWXRpWs/nFbkTwdMYvT3ynXqp uyy1J2Z0ZXqqtkqiMUpyy57iSkWHpHZedFfGEKX0+PFjrZh+SKbcV8Ccexvx sD4e03lSWtYBlFtCyJHvpL9Ri95J7aAbnn+KrdCfVGxY5EdZsVJ4GZfC2/fE qNuSqRe/mXjOin7EPC1TH6g3FlRKtWZKHrgozxs2bJB+q+gMr7Qi8Kd800Eq 4Kn1gvCbUjlogqcPnob5qO29lJ8zhsECoIJrUHt0cT0GKH9GttZ0TIq7wlMN VO89RA9uSvgrAQ0eDqupwK3vCg2MrNqOI3Z3vigl+hK+IU+Mj1wBRPPgU4Wy Y1FFRwEoN/TvXAFKnzTIBn+YHvzMzVTV4EMUpco/cKFqT2reK3NhrOKD+Eqp 6LHVWBBTZrVErExMYvc0Eehz+Kuo3PNb5l1Fn8G9q74GCgNvotwPuu2REvfJ 8qURAvqcByL7pwbZ+Fxhw8AIm+khZCiBZim6qcCAAH5lFQa4f6HDrLZIpTH0 fFuqfiJFXynyT7zgIFZeecGh7ObYL3ViXTkjj3H/DBMOoTgo/ONlG0k+V8qv BhTBulQRPtVRBD0ERjP59Bwhv6X+MrSadTsbFmoMw43jS3sgzpw5o2mwrgrn jEULgcWwsDB9oKUbyp5DLoLqPZVN7naAO1MdvfRUbUSeyn90UJx55X/83X9+ t/8b35ikgFI6y2TwSJ9z+v8//7/6Gf/6X2HrQKs=\ \>"]] }, 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", ",", "tlo", ",", "tlu", ",", "tpln"}], "]"}]}], ";"}], "\[IndentingNewLine]", RowBox[{ RowBox[{"bt", "=", RowBox[{"Length", "[", "tw", "]"}]}], "\[IndentingNewLine]", RowBox[{"(*", RowBox[{"MatrixForm", "[", "tw", "]"}], "*)"}]}], "\[IndentingNewLine]", RowBox[{ RowBox[{"(*", " ", RowBox[{"coordinates", " ", "of", " ", "clouds"}], " ", "*)"}]}]}], "Input", CellChangeTimes->{{3.568895397419882*^9, 3.5688955157148895`*^9}, { 3.568895549629349*^9, 3.5688955855718126`*^9}, {3.568895617317868*^9, 3.568895845234268*^9}, {3.5688960797194805`*^9, 3.5688961015127187`*^9}, { 3.568896219074525*^9, 3.5688962276233397`*^9}, {3.568896262910602*^9, 3.5688962903198504`*^9}, 3.5688964250728865`*^9, 3.568896456912543*^9, { 3.5688981540863237`*^9, 3.5688981869399815`*^9}, {3.5689021233572955`*^9, 3.5689021341525145`*^9}, {3.5689111169043026`*^9, 3.5689111218495116`*^9}, {3.568911235261711*^9, 3.568911242437723*^9}, 3.5689112948850155`*^9, {3.5689116510180407`*^9, 3.568911800419503*^9}, { 3.568911871820829*^9, 3.5689119012892804`*^9}, {3.5689119993042526`*^9, 3.5689120006770554`*^9}, {3.568912144306507*^9, 3.568912165085744*^9}, { 3.5689528310632005`*^9, 3.5689528569592457`*^9}, {3.5689534065794115`*^9, 3.5689534297298517`*^9}, {3.568954496214126*^9, 3.5689545054337425`*^9}, 3.5689569073699613`*^9, {3.56913308739126*^9, 3.5691332012870607`*^9}, { 3.569135511323518*^9, 3.5691355127119203`*^9}, {3.569136204167535*^9, 3.569136290747687*^9}, {3.5691598050571885`*^9, 3.569159843199256*^9}, { 3.5692215417755947`*^9, 3.569221597186892*^9}, {3.5692216819730406`*^9, 3.5692217090546885`*^9}, {3.5692217693019943`*^9, 3.5692218260704937`*^9}, {3.5692219780303607`*^9, 3.569221989433981*^9}, { 3.569222055468897*^9, 3.5692220728005276`*^9}, {3.5693401536421804`*^9, 3.5693401889450426`*^9}, 3.5693411655535583`*^9, {3.569341634303181*^9, 3.569341638733589*^9}, {3.5704549882757435`*^9, 3.5704550487414494`*^9}, { 3.570455928146194*^9, 3.5704559415310173`*^9}, {3.5708553973857827`*^9, 3.5708554057785974`*^9}, {3.5718402591869545`*^9, 3.5718402726497784`*^9}, 3.572328636723397*^9, {3.572328748419593*^9, 3.57232875246*^9}, { 3.5725921859362335`*^9, 3.5725921932682457`*^9}, {3.5725923978158054`*^9, 3.5725924023086133`*^9}, 3.5725926630786715`*^9, {3.5726167873570023`*^9, 3.57261679757502*^9}, 3.572620232450739*^9, {3.5726252144466896`*^9, 3.57262521482109*^9}, {3.572842310446463*^9, 3.5728423195412793`*^9}, 3.572851092419488*^9, {3.572851145927582*^9, 3.5728511735708303`*^9}, { 3.5728512529593697`*^9, 3.572851265595392*^9}, 3.5728513850916023`*^9, 3.573124143499799*^9, {3.574076503349639*^9, 3.5740765293080845`*^9}, { 3.5740766389138765`*^9, 3.57407664084828*^9}, 3.574076909589952*^9}], Cell[BoxData["84"], "Output", CellChangeTimes->CompressedData[" 1:eJxTTMoPSmVkYGDQAWKng4vN9Ra/chTuDEwF0Q3KPAUg2ubFyyYQ/U818wKI 3nbhar4+kE7zMi8H0c/0+fcZAOlLYlLvQbThzo8mrkD6XXynF4iumPU1BESf WHYpHkTLZDWkgWg5//CpbkD6UXXJXBDtnLd+MYi2Xcq1AkTf0Pm8CUSznzmw A0RP9F68F0T/WCx7BEQvWBd6GkSvsz5wGUTvkXl7A0RPeJUS5w6k16TPzwLR 216X5YNox28nakD0vK38jSD6j3VQB4h+seD6BhCtlrNqB4i+q3LkGIg+8Tvw JYj+0KGR6AOkHb7saQHRF+7wd4Po5K+qk0D09wa5xSC6R2XJJhCt86gx2xcU bgmfKkD0hsXTFmeteeUIAF9fvJ8= "]] }, 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["84"], "Output", CellChangeTimes->CompressedData[" 1:eJxTTMoPSmVkYGDQAeKlDkvN9Ra/cizjCE4F0RLKvAUg+vLzV00gOmFp1gUQ 7XfhWr4+kD5x0qIcRHuuF9hnAKTNpkm/B9FTLD6buALpgPtdXiD6juT3EBCt rXYlHkTXv2xMA9FN5yKmugFpl9+lc0H0srcbFoPoq0u4V4BomzVfNoHoLO9D O0D0l1NL9oLoKGX5IyDaYl3YaRDtZn3wMogOkXl3A0RrvEqNcwfSfM8XZIFo ieyKfBC9pPRUDYhmMhVsBNFTrIM7QHT9ghsbQHTH69U7QLTDkqPHQLROdfBL EN3eoZnoA6RvfN7bAqKNYwS7QfSxEvVJILqvQX4xiH63eOkmMD+xOdsXSM+/ /7kCRJvsmLE4a80rRwDIWbiq "]] }, 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", ",", RowBox[{"nj", "+", "5"}]}], "}"}]}], "]"}]}], ";"}], " "}], "\[IndentingNewLine]", RowBox[{ RowBox[{ RowBox[{"tv5", " ", "=", RowBox[{"Table", "[", RowBox[{ RowBox[{"{", RowBox[{"0", ",", "0", ",", "0"}], "}"}], ",", RowBox[{"{", RowBox[{"i", ",", "1", ",", RowBox[{"nj", "+", "5"}]}], "}"}]}], "]"}]}], ";"}], " "}], "\[IndentingNewLine]", RowBox[{ RowBox[{ RowBox[{"tv6", " ", "=", RowBox[{"Table", "[", RowBox[{ RowBox[{"{", RowBox[{"0", ",", "0", ",", "0"}], "}"}], ",", RowBox[{"{", RowBox[{"i", ",", "1", ",", "11"}], "}"}]}], "]"}]}], ";"}], " "}], "\[IndentingNewLine]", RowBox[{ RowBox[{"tv", " ", "=", " ", RowBox[{"Join", "[", RowBox[{ "tv1", ",", "tv2", ",", "tv3", ",", "tv4", ",", "tv5", ",", "tv6"}], "]"}]}], ";"}], "\[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}, {3.57284236531176*^9, 3.57284238273699*^9}, { 3.572842728620798*^9, 3.572842734502008*^9}, 3.5731240921601086`*^9, { 3.573206599320009*^9, 3.573206611737631*^9}, {3.5740760016059575`*^9, 3.574076072196081*^9}, {3.574076952755228*^9, 3.574076991786496*^9}, { 3.574077057057011*^9, 3.5740770577434125`*^9}, {3.574080286699484*^9, 3.5740802892578883`*^9}, {3.5744917474371896`*^9, 3.5744917512747965`*^9}, {3.574491794596072*^9, 3.5744917963432755`*^9}, { 3.574492188761965*^9, 3.574492189822767*^9}}], Cell[BoxData[ TagBox[ RowBox[{"(", "\[NoBreak]", GridBox[{ { RowBox[{"-", "6.6157606506599995`"}], "2.23514901554`", "2.8534673627399996`"}, { RowBox[{"-", "3.5740009892799995`"}], "0.014783817826759998`", "1.3664740986819999`"}, { RowBox[{"-", "5.13330839818`"}], RowBox[{"-", "1.9670724851799999`"}], "1.5223122429979998`"}, { RowBox[{"-", "7.483333857259999`"}], RowBox[{"-", "1.65976524306`"}], "2.39745758168`"}, { RowBox[{"-", "1.378759207408`"}], RowBox[{"-", "2.98894181968`"}], "0.0591733681832`"}, {"5.121667686019999`", "0.1550637346012`", RowBox[{"-", "0.252359679218`"}]}, {"2.974428724`", "0.235200967138`", "1.6623825135699999`"}, {"0.699243973424`", "1.0910824389759999`", "0.1216212535792`"}, {"4.06289200274`", "1.53737713867`", RowBox[{"-", "2.54402473024`"}]}, {"5.204437684819999`", "0.506476803616`", RowBox[{"-", "4.9764989347`"}]}, { RowBox[{"-", "8.22860399714`"}], "0.497655562648`", "3.0753778869199997`"}, { RowBox[{"-", "4.31927112916`"}], "2.1722022424799996`", "2.0444000731`"}, { RowBox[{"-", "1.4352809120680001`"}], RowBox[{"-", "0.641820869462`"}], "0.518926318504`"}, { RowBox[{"-", "4.05792202336`"}], RowBox[{"-", "3.9592027371199996`"}], "0.784130465344`"}, { RowBox[{"-", "8.9598523701`"}], RowBox[{"-", "3.53637654462`"}], "2.5450073877599997`"}, {"1.461440389086`", "1.045899090316`", RowBox[{"-", "2.4436046906`"}]}, {"3.52658776394`", "2.14432878398`", "3.4114845532799998`"}, {"7.115101848899999`", "1.605702071926`", "0.7124871732320001`"}, {"6.3805086609199995`", "2.47410486824`", RowBox[{"-", "6.30491962092`"}]}, {"0", "0", "0"}, {"0", "0", "0"}, {"0", "0", "0"}, {"0", "0", "0"}, {"0", "0", "0"}, {"0", "0", "0"}, {"0", "0", "0"}, {"0", "0", "0"}, {"0", "0", "0"}, {"0", "0", "0"}, {"0", "0", "0"}, {"0", "0", "0"}, {"0", "0", "0"}, {"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.6414401055399996`", RowBox[{"-", "1.669191196348`"}], "2.49111240224`"}, {"5.52393365964`", RowBox[{"-", "1.844204390386`"}], RowBox[{"-", "0.7671134827139999`"}]}, {"0.0700666937102`", "3.01409407274`", "0.6958122310079999`"}, {"4.4997777566799995`", "3.59461789994`", RowBox[{"-", "2.5218771415199996`"}]}, {"7.181922560259999`", "2.14385635248`", RowBox[{"-", "7.85986176276`"}]}, { RowBox[{"-", "10.80558554882`"}], RowBox[{"-", "3.29488845908`"}], "3.2323952202599995`"}, { RowBox[{"-", "8.33342709836`"}], RowBox[{"-", "5.33719093632`"}], "1.9961364710599998`"}, {"0.212966451022`", RowBox[{"-", "4.09743619402`"}], RowBox[{"-", "0.688043567422`"}]}, { RowBox[{"-", "7.2761065041`"}], "4.1144059335`", "3.44788067604`"}, {"8.45580575412`", "1.5402211762999998`", RowBox[{"-", "0.510579398762`"}]}, {"2.1601457906`", "2.17588720818`", "4.6073976523799995`"}, {"3.6832271520799997`", RowBox[{"-", "0.32915058495399996`"}], RowBox[{"-", "6.16462636268`"}]}, {"6.6255872258599995`", RowBox[{"-", "0.972885746854`"}], RowBox[{"-", "4.51192869486`"}]}, {"0", "0", "0"}, {"0", "0", "0"}, {"0", "0", "0"}, {"0", "0", "0"}, {"0", "0", "0"}, {"0", "0", "0"}, {"0", "0", "0"}, {"0", "0", "0"}, {"0", "0", "0"}, {"0", "0", "0"}, {"0", "0", "0"}, {"0", "0", "0"}, {"0", "0", "0"}, {"0", "0", "0"}, {"0", "0", "0"}, {"0", "0", "0"}, {"0", "0", "0"}, {"0", "0", "0"}, {"0", "0", "0"}, {"0", "0", "0"}, {"0", "0", "0"}, {"0", "0", "0"}, {"0", "0", "0"}, {"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->CompressedData[" 1:eJxTTMoPSmVkYGDQAeKCA0vN9Ra/cnTqCE4F0Y8X8RaA6Hnpr5tAtI5q9gUQ vdH/Rr4+kJ7iaVkOokX1BfcZAGkmMZn3IFrH4ouJK5CWie/2AtHLZ34PAdHf ll6JB9FemU1pINrPL3KqG5AWqC6bC6KLcjcuBtELVHhWgGh2na+bQLTZ6UM7 QPQBr6V7QbTaYvkjIJpFL/w0iBbcffAyiFaY8+4GiP6cmRbnDqRvpS3MAtFP XlXkg+iCr6dqQPTZLYKNIDp+d3AHiBZbcHMDiA7JXrMDRPOoHDsGor//Cn4J ooM4tBJ9gPSS4n0tIPr/bcFuED3xi/okEB3FoLAYRO9SXrYJRKsltmT7Auns +C8VILrSeebirDWvHAHDYbO9 "]], Cell[BoxData["84"], "Output", CellChangeTimes->CompressedData[" 1:eJxTTMoPSmVkYGDQAeKCA0vN9Ra/cnTqCE4F0Y8X8RaA6Hnpr5tAtI5q9gUQ vdH/Rr4+kJ7iaVkOokX1BfcZAGkmMZn3IFrH4ouJK5CWie/2AtHLZ34PAdHf ll6JB9FemU1pINrPL3KqG5AWqC6bC6KLcjcuBtELVHhWgGh2na+bQLTZ6UM7 QPQBr6V7QbTaYvkjIJpFL/w0iBbcffAyiFaY8+4GiP6cmRbnDqRvpS3MAtFP XlXkg+iCr6dqQPTZLYKNIDp+d3AHiBZbcHMDiA7JXrMDRPOoHDsGor//Cn4J ooM4tBJ9gPSS4n0tIPr/bcFuED3xi/okEB3FoLAYRO9SXrYJRKsltmT7Auns +C8VIJonZubirDWvHAHAqLNp "]] }, Open ]], Cell[CellGroupData[{ Cell[BoxData[{ RowBox[{ RowBox[{"ow", "=", RowBox[{"Join", "[", RowBox[{ RowBox[{"Table", "[", RowBox[{ RowBox[{"-", "2.0"}], ",", RowBox[{"{", RowBox[{"i", ",", "1", ",", RowBox[{"bc", "+", "nb"}]}], "}"}]}], "]"}], ",", RowBox[{"Table", "[", RowBox[{ RowBox[{"-", "0.5"}], ",", RowBox[{"{", RowBox[{"i", ",", "1", ",", RowBox[{"2", "*", "nj"}]}], "}"}]}], "]"}], ",", RowBox[{"Table", "[", RowBox[{ RowBox[{"-", "0.5"}], ",", RowBox[{"{", RowBox[{"i", ",", "1", ",", "6"}], "}"}]}], "]"}], ",", RowBox[{"Table", "[", RowBox[{ RowBox[{"-", "1.0"}], ",", RowBox[{"{", RowBox[{"i", ",", "1", ",", "4"}], "}"}]}], "]"}], ",", RowBox[{"Table", "[", RowBox[{ RowBox[{"-", "2.0"}], ",", RowBox[{"{", RowBox[{"i", ",", "1", ",", "11"}], "}"}]}], "]"}]}], "]"}]}], ";"}], "\[IndentingNewLine]", RowBox[{"lw", "=", RowBox[{"Length", "[", "ow", "]"}]}], "\[IndentingNewLine]", RowBox[{ 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", "*", RowBox[{"(", RowBox[{"nj", "+", "5"}], ")"}]}]}], "}"}]}], "]"}], ",", RowBox[{"Table", "[", RowBox[{"0.0", ",", RowBox[{"{", RowBox[{"i", ",", "1", ",", "11"}], "}"}]}], "]"}]}], "]"}]}], ";"}], "\[IndentingNewLine]", RowBox[{"lc", "=", RowBox[{"Length", "[", "cnv", "]"}]}]}], "Input", CellChangeTimes->{{3.5688982251756487`*^9, 3.5688986440675845`*^9}, { 3.5688986873108606`*^9, 3.56889871560931*^9}, {3.5688987970414534`*^9, 3.5688988526711507`*^9}, {3.568898887147211*^9, 3.568898888644814*^9}, { 3.5688989206248703`*^9, 3.568899041759083*^9}, {3.5688990876855636`*^9, 3.568899258349863*^9}, 3.568899300267137*^9, {3.568899351326027*^9, 3.5688993831032825`*^9}, {3.5688994370481772`*^9, 3.568899468217032*^9}, { 3.5688995813016305`*^9, 3.5688997165538683`*^9}, {3.5688998495129013`*^9, 3.568899932364647*^9}, {3.568899967667509*^9, 3.568900024529609*^9}, { 3.5689000794261055`*^9, 3.568900136257005*^9}, {3.5689001767858763`*^9, 3.56890020149632*^9}, {3.568902068726*^9, 3.568902074139209*^9}, 3.56890216040736*^9, 3.568902344113283*^9, {3.5689024237982235`*^9, 3.56890243907065*^9}, 3.5689025770684924`*^9, 3.568910195129884*^9, 3.568910620995032*^9, {3.568912393532545*^9, 3.5689124022841606`*^9}, { 3.5691332074958715`*^9, 3.5691332081666727`*^9}, {3.5691352237838125`*^9, 3.5691352313342257`*^9}, {3.5691489965881166`*^9, 3.5691490103317413`*^9}, {3.5691490440122004`*^9, 3.5691491273631463`*^9}, {3.5691523435842266`*^9, 3.56915234531583*^9}, { 3.5691524837816734`*^9, 3.5691526041202846`*^9}, {3.5691595921324143`*^9, 3.5691596901941867`*^9}, {3.569159772406331*^9, 3.5691597832951508`*^9}, { 3.5691598700313025`*^9, 3.569159885147729*^9}, {3.569160485733184*^9, 3.569160486887586*^9}, {3.5691672792073207`*^9, 3.5691672793789206`*^9}, { 3.5691673418102303`*^9, 3.5691674875144863`*^9}, {3.569168259700243*^9, 3.569168260386644*^9}, {3.569168321257951*^9, 3.569168337466379*^9}, { 3.5691685152754917`*^9, 3.569168656096939*^9}, {3.5691687137702403`*^9, 3.569168772566744*^9}, {3.5691697249898825`*^9, 3.569169747063921*^9}, { 3.569169944981469*^9, 3.5691699655579047`*^9}, {3.56921753575448*^9, 3.569217541807291*^9}, {3.569217576283351*^9, 3.5692176436130695`*^9}, { 3.5692176921603546`*^9, 3.569217692768756*^9}, {3.5692177389136367`*^9, 3.569217740192839*^9}, {3.5692222042775583`*^9, 3.5692222070231633`*^9}, { 3.569230669979245*^9, 3.5692306709620466`*^9}, {3.5692308816872168`*^9, 3.5692309970650196`*^9}, {3.5692310297158766`*^9, 3.569231090602784*^9}, { 3.5692311251880445`*^9, 3.569231148868886*^9}, 3.56923793753481*^9, 3.569341165569158*^9, 3.5693418217375107`*^9, {3.5703412254249296`*^9, 3.5703412423509593`*^9}, {3.5704553045038986`*^9, 3.570455320681127*^9}, { 3.57045550485505*^9, 3.5704555063370533`*^9}, {3.5704556421508913`*^9, 3.5704556424784923`*^9}, 3.5704557137862177`*^9, {3.5704564711051474`*^9, 3.5704564908079824`*^9}, {3.570456521602436*^9, 3.5704565228348384`*^9}, { 3.5704569127419233`*^9, 3.5704569202767363`*^9}, 3.5704636205455036`*^9, 3.570596993178934*^9, {3.570855461377095*^9, 3.5708554743563175`*^9}, 3.570855611589759*^9, {3.571840408884818*^9, 3.571840415296429*^9}, { 3.571840465559717*^9, 3.571840473905732*^9}, {3.5720165322617407`*^9, 3.5720165635241957`*^9}, {3.5721934404423375`*^9, 3.57219344758715*^9}, 3.572193479551606*^9, {3.5721935303764954`*^9, 3.572193534214102*^9}, { 3.5726206642250977`*^9, 3.5726206651142993`*^9}, {3.572620782223705*^9, 3.572620782738506*^9}, {3.572620924963956*^9, 3.5726209465699935`*^9}, { 3.572842408289835*^9, 3.5728424357302833`*^9}, {3.5728424783807583`*^9, 3.57284247916076*^9}, 3.5728451195121975`*^9, {3.5731249170427575`*^9, 3.573124927962777*^9}, {3.5731450428093076`*^9, 3.5731450615449405`*^9}, { 3.5731451273458557`*^9, 3.573145132259865*^9}, {3.5732066718757367`*^9, 3.5732067228410263`*^9}, {3.573206842321636*^9, 3.5732068742548923`*^9}, { 3.57407070801746*^9, 3.574070708969061*^9}, 3.574070764099558*^9, { 3.574070877886158*^9, 3.5740708814273643`*^9}, {3.5740762086807213`*^9, 3.574076354884178*^9}, {3.574076421558695*^9, 3.5740764298579097`*^9}, { 3.5740771670372047`*^9, 3.5740771716548123`*^9}, 3.574077238048529*^9, { 3.57407728960662*^9, 3.574077313271861*^9}, 3.574077347825922*^9, { 3.5740802177941628`*^9, 3.5740802188549643`*^9}, {3.574080327977156*^9, 3.5740803298647594`*^9}, {3.5740876878174367`*^9, 3.5740877018106613`*^9}, {3.574491842144956*^9, 3.5744918529089746`*^9}, { 3.574492105676219*^9, 3.5744921066122203`*^9}, {3.574492269242506*^9, 3.5744922699601073`*^9}, {3.5744923474766436`*^9, 3.5744923633574715`*^9}, {3.574492409455552*^9, 3.5744924326995935`*^9}}], Cell[BoxData["84"], "Output", CellChangeTimes->CompressedData[" 1:eJxTTMoPSmVkYGDQAWIbh2XmeotfOTp1BKeC6HVKfAUgOuv56yYQfUQl5wKI rjl/I18fSCectCwH0Q/WCe4zANJnp8q8B9E6Fl9MXIH0i3vdXiC6SPJHCIg+ pHo1HkSLvWxKA9F+fpFT3YD0nV9lc0G07duNi0F0zhKeFSD60uqvm0A0k/fh HSC6+9TSvSD6k5LCERB9fm34abB+q0OXQfRr6fc3QPS+l2lx7kB62bOFWSB6 Q1ZlPoi2Lj1dA6JnmAg1gmgt65AOEC224OYGEK3wes0OEH198bFjIPpQVchL EC3XoZXoA6TzP+9rAdGnooW6QXRsicYkEK3WoLAYRLctXrYJRH960JLtC6TN 7n+pANHa22YuzlrzyhEAKXO7sg== "]], Cell[BoxData["84"], "Output", CellChangeTimes->CompressedData[" 1:eJxTTMoPSmVkYGDQAWIbh2XmeotfOTp1BKeC6HVKfAUgOuv56yYQfUQl5wKI rjl/I18fSCectCwH0Q/WCe4zANJnp8q8B9E6Fl9MXIH0i3vdXiC6SPJHCIg+ pHo1HkSLvWxKA9F+fpFT3YD0nV9lc0G07duNi0F0zhKeFSD60uqvm0A0k/fh HSC6+9TSvSD6k5LCERB9fm34abB+q0OXQfRr6fc3QPS+l2lx7kB62bOFWSB6 Q1ZlPoi2Lj1dA6JnmAg1gmgt65AOEC224OYGEK3wes0OEH198bFjIPpQVchL EC3XoZXoA6TzP+9rAdGnooW6QXRsicYkEK3WoLAYRLctXrYJRH960JLtC6TN 7n+pANG9x2YuzlrzyhEALPO8JA== "]] }, Open ]], Cell[CellGroupData[{ Cell[BoxData[{ RowBox[{"echarg", "=", RowBox[{"Sum", "[", RowBox[{ RowBox[{"ow", "[", RowBox[{"[", "i", "]"}], "]"}], ",", RowBox[{"{", RowBox[{"i", ",", "1", ",", "lw"}], "}"}]}], "]"}]}], "\[IndentingNewLine]", RowBox[{"pcharg", "=", RowBox[{"Sum", "[", RowBox[{ RowBox[{"cnv", "[", RowBox[{"[", "i", "]"}], "]"}], ",", RowBox[{"{", RowBox[{"i", ",", "1", ",", "lc"}], "}"}]}], "]"}]}]}], "Input", CellChangeTimes->{{3.574087724274701*^9, 3.5740878100592513`*^9}, { 3.5740878506505227`*^9, 3.5740878682629538`*^9}, {3.574087937043474*^9, 3.574087937995076*^9}}], Cell[BoxData[ RowBox[{"-", "140.`"}]], "Output", CellChangeTimes->CompressedData[" 1:eJxTTMoPSmVkYGDQAWKOA8vM9Ra/cuTjCEkF0VWL+ApAtFn6myYQ3b8k5wKI 9vC/ma8PpA95WJeD6DV6QvsMgPTZqTLvQfSP7V9MXIH0i3vdXiC6SPJHCIju W3o1HkQ/ymhOA9GS5yKnugHpFVXlc0G07duNi0G0hQrvChA9T/vbJhDN5H14 B4gO81q2F0TvXaRwBETP1o04Dda/69BlEL1t9vsbILorMz3OHUgve7YwC0RX v6rMB9HWpadrQHTKFqFGEP1tV0gHiH4kf2sDiH6TtXYHiF6kfPwYiO77FfIS RG9r1070AdJWxftbQPS020LdIFrzi8YkEP3pv8JiEN22eNkmEL03oTXbF0if u/e1AkRXScxanLXmlSMAkIq7+A== "]], Cell[BoxData["140.`"], "Output", CellChangeTimes->CompressedData[" 1:eJxTTMoPSmVkYGDQAWKOA8vM9Ra/cuTjCEkF0VWL+ApAtFn6myYQ3b8k5wKI 9vC/ma8PpA95WJeD6DV6QvsMgPTZqTLvQfSP7V9MXIH0i3vdXiC6SPJHCIju W3o1HkQ/ymhOA9GS5yKnugHpFVXlc0G07duNi0G0hQrvChA9T/vbJhDN5H14 B4gO81q2F0TvXaRwBETP1o04Dda/69BlEL1t9vsbILorMz3OHUgve7YwC0RX v6rMB9HWpadrQHTKFqFGEP1tV0gHiH4kf2sDiH6TtXYHiF6kfPwYiO77FfIS RG9r1070AdJWxftbQPS020LdIFrzi8YkEP3pv8JiEN22eNkmEL03oTXbF0if u/e1AkSvUZi1OGvNK0cAklK8Mg== "]] }, 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["84"], "Output", CellChangeTimes->CompressedData[" 1:eJxTTMoPSmVkYGDQAeIs+xXmeotfOdqwh6WC6LuKAgUgesazt00get/ivAsg evW5W/n6QPqju205iOZbJ7zPAEj/mSL3HkSrbf9m4gqkxe71eoHoRRK/QkD0 B5Xr8SBaIKM1DUR7nI2e6gakr1VWzgXROW82LwbRsxbzrQDRjKu/bwLRBl5H d4DoVs8Ve0G0gpLSERB9SifqNFj/ziOXQfTTWR9vgOgdGZlx7kD6ytPFWSD6 XmZ1PojOKjlbA6InbxZpBNEqu8I6QLSA/J0NIFoqa/0OEM22+MQxEB3yM/wl iH7SppvoA3JP0aEWEP0rSqQbREd81poEohX+Ky0G0VsWrdgEol/Ht2f7gsLj 7vcKEH319+zFWWteOQIACJC72g== "]] }, 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["1708.9577641383144`"], "Output", CellChangeTimes->CompressedData[" 1:eJxTTMoPSmVkYGDQAWIm+5XmeotfOXK0h6WC6FJFwQIQffzp+yYQ3aWcfwFE O527na8PpPccty0H0UW6ovsMQOpE5N+D6FtGjKauQHpO1DQvEG0p8TsERHeo 3IgH0Xeet6aBaGHfmKluQHrRz8q5IJr5zZbFINpoMf8KED1j1Y9NIPq457Ed IDrw5Iq9IHq7ovIREP1DO+Y0iLayPHYZRG+Q+nQDRL9Iz45zB9JMT5dmgWie zNp8ED2j+HwNiP5mJNYIokN2RnSAaDu5extAdO3LDTtAtMmiU8dAtEJlxEsQ XdOml+gDpM98PNQComNuiXaD6HeftCeB6KY6lcUgWkxp1SYwP74j2xdIn4j9 UQGiSw7MWZy15pUjAGlitrY= "]] }, Open ]], Cell[BoxData[{ RowBox[{ RowBox[{ RowBox[{ RowBox[{"(*", " ", RowBox[{ "half", " ", "cloud", " ", "with", " ", "other", " ", "common", " ", RowBox[{"halfcloud", ":", " ", RowBox[{"subtract", " ", "WW"}]}]}], " ", "*)"}], "\[IndentingNewLine]", RowBox[{"Vee", "=", RowBox[{"Vee", "-", RowBox[{"2", "/", RowBox[{"(", RowBox[{"rpo", "+", "rpi"}], ")"}]}]}]}], "]"}], ";"}], " ", RowBox[{"(*", " ", RowBox[{ RowBox[{"5", "*", RowBox[{"1", "/", "4"}], " ", "C"}], " ", "+", " ", RowBox[{"3", "*", RowBox[{"1", "/", "4"}], " ", "N"}]}], " ", "*)"}]}], "\[IndentingNewLine]", "Vee", "\[IndentingNewLine]"}], "Input", CellChangeTimes->{{3.571840548723463*^9, 3.571840579798718*^9}, { 3.5718477253093*^9, 3.5718477304573092`*^9}, {3.572620810756155*^9, 3.5726208298349886`*^9}, {3.5726208600522413`*^9, 3.5726208972739067`*^9}, {3.57279778559276*^9, 3.57279781975682*^9}, { 3.5732072289995155`*^9, 3.5732072309183187`*^9}, {3.5732072939268293`*^9, 3.573207467867135*^9}, {3.574088506132474*^9, 3.57408851499329*^9}, { 3.5740885486269484`*^9, 3.5740885498593507`*^9}, 3.5740886113234587`*^9, { 3.574502690104803*^9, 3.5745027760297537`*^9}}, EmphasizeSyntaxErrors->True], Cell[CellGroupData[{ Cell[BoxData[{ RowBox[{ RowBox[{ RowBox[{"sc", "=", "0.372"}], ";"}], " ", 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.378"}], ";"}], " ", RowBox[{"(*", " ", RowBox[{"bonding", " ", "clouds"}], " ", "*)"}]}], "\[IndentingNewLine]", RowBox[{"For", "[", RowBox[{ RowBox[{"i", "=", "1"}], " ", ",", RowBox[{"i", "<", RowBox[{"nb", "+", "1"}]}], ",", RowBox[{"i", "++"}], ",", RowBox[{"Vee", "=", RowBox[{"Vee", "+", RowBox[{"3", "*", RowBox[{"sw", "/", RowBox[{"a", "[", RowBox[{"[", RowBox[{"i", ",", "3"}], "]"}], "]"}]}]}]}]}]}], "]"}], "\[IndentingNewLine]", RowBox[{"For", "[", RowBox[{ RowBox[{"i", "=", "1"}], " ", ",", RowBox[{"i", "<", "9"}], ",", RowBox[{"i", "++"}], ",", RowBox[{"Vee", "=", RowBox[{"Vee", "+", RowBox[{"3", "*", RowBox[{"sw", "/", "rlo"}]}]}]}]}], "]"}], "\[IndentingNewLine]", RowBox[{"For", "[", RowBox[{ RowBox[{"i", "=", "1"}], " ", ",", RowBox[{"i", "<", "4"}], ",", RowBox[{"i", "++"}], ",", RowBox[{"Vee", "=", RowBox[{"Vee", "+", RowBox[{"3", "*", RowBox[{"sw", "/", "rln"}]}]}]}]}], "]"}], "\[IndentingNewLine]", "Vee"}], "Input", CellChangeTimes->{{3.5689548890696163`*^9, 3.568955116299615*^9}, { 3.5689552553894596`*^9, 3.5689552575266633`*^9}, {3.5689552936875267`*^9, 3.5689553203323736`*^9}, {3.568955404229321*^9, 3.568955433245372*^9}, 3.5689554882822685`*^9, 3.5689562157115464`*^9, {3.568956283961666*^9, 3.5689562858180695`*^9}, {3.5689566111878405`*^9, 3.5689566291278725`*^9}, {3.5689566695319433`*^9, 3.5689567220104356`*^9}, {3.5690810958835616`*^9, 3.569081104525977*^9}, { 3.5691717160681796`*^9, 3.569171751714242*^9}, {3.5691717855663013`*^9, 3.5691719006789036`*^9}, 3.569234247377528*^9, {3.569235622381544*^9, 3.569235625142749*^9}, {3.5692356799612455`*^9, 3.569235740536152*^9}, { 3.57045575500149*^9, 3.5704557604770994`*^9}, {3.57046440981329*^9, 3.5704644333849316`*^9}, {3.5705963024877205`*^9, 3.5705963300061693`*^9}, {3.5706010463712544`*^9, 3.570601069225295*^9}, { 3.5706012097659416`*^9, 3.5706012109983435`*^9}, {3.570601290948484*^9, 3.570601291619285*^9}, {3.570601333099758*^9, 3.570601444951955*^9}, 3.5706014761208096`*^9, {3.570601526633698*^9, 3.570601615179454*^9}, { 3.5708576202336864`*^9, 3.5708576267544985`*^9}, {3.5708577990100007`*^9, 3.5708578016152053`*^9}, {3.5708580423548284`*^9, 3.570858044429632*^9}, { 3.570858075754487*^9, 3.5708581072821426`*^9}, {3.570858449889944*^9, 3.5708585756105647`*^9}, {3.572795632149378*^9, 3.5727956355657835`*^9}, { 3.5728516649872932`*^9, 3.5728517189321885`*^9}, {3.572851825152775*^9, 3.572851850284419*^9}, {3.5728520019946856`*^9, 3.572852210645052*^9}, 3.573124800838154*^9, {3.5740886250202827`*^9, 3.574088677311575*^9}, { 3.574089214342518*^9, 3.5740892207541294`*^9}, {3.574089308987884*^9, 3.5740893677999873`*^9}, {3.574227207798621*^9, 3.5742272123888836`*^9}, { 3.574341156185933*^9, 3.574341159477539*^9}, {3.5743412228292503`*^9, 3.57434125707131*^9}, {3.5743412876941643`*^9, 3.574341318051818*^9}, { 3.5745028253570404`*^9, 3.5745028335782547`*^9}}], Cell[BoxData["1847.865058152727`"], "Output", CellChangeTimes->CompressedData[" 1:eJxTTMoPSmVkYGDQAeKO3RvN9Ra/cuxjjk8F0cnzJApA9Lak700gumJB2QUQ beD9OF8fSK9ycS0H0QmrZPYZAGnfiervQXTfOm5TVyAdFj7PC0THiDKFgmi+ hQ/iQXRSSl8aiJ5xMmWqG5CeUNY4F0R/ytizGETvkJdYAaLb1Bk2g+htx87u ANHXXDfuBdG287SPgOhnK5JPg2iNbWcvg2iz6b9ugNU9KYpzB9Jqj9Zkgejf T1vyQXTbh2s1IHqDvlwjiHYyS+gA0bqzn24A0TlpO3aAaCX5S8dANN+3+Jcg el6zaaIPkN6dd6oFRHuFy3aD6Lv5xpNAdOFv7cUgmnX+xk1g/p3+bF8g3RTF UAmiLdqXLM5a88oRACjYtkw= "]] }, 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[{"-", "3533.9984011811225`"}]], "Output", CellChangeTimes->CompressedData[" 1:eJxTTMoPSmVkYGDQAeJg603meotfOUY2x6eC6OR5EgUguunR9yYQ7aJQfgFE G3g/ztcH0mVHXMtBtI6W7D4DIC0hqPEeRO9Zy2vqCqTDwud5gWiNqUyhIJpv 4YN4EJ2U0pcGolM8U6e6Aenob41zQfTeF3sWg+jm+RIrQHSbOsNmEL3t2Nkd IHrR0Y17QbTtPO0jIHqTRsppEP3F9NxlEM0k/vsGiL72pCjOHUh/TFybBaKP p7bmg+i2D9dqQPQGfblGEO1kltABon9IPdsAos2f7dgBot/Nu3QMRN8qTXgJ orOYzRJ9QPrfnWoB0WLXZbtB9Ir3xpNAdOFv7cUg+oLcpk1g/p3+bF9QuEUx VILojpdLFmeteeUIAJR3ty0= "]] }, 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[{"-", "5241.955764097324`"}]], "Output", CellChangeTimes->CompressedData[" 1:eJxTTMoPSmVkYGDQAWK53ZvM9Ra/coxsjk8F0XpykgUg2jfpRxOIviVfcQFE /zn1OF8fSDu5uJWD6B8rZfcZAGkJQY33IFpBl9/UFUgrXZ/nBaI/izCHguib Cg/jQbTuk740EG1wMnWqG5BWL2uaC6L3vtizGET7yUuuANFByxk2g+hGt3M7 QHSe66a9IJpDTucIiK5bkXIaRB/Yeu4yiGYS/30DRC9KKY5zB9J7Hq7NAtGT nrbmg+iggus1INpdX74RRPNtS+gA0UdmPdsAopnSdu4A0bvkLh8D0Uu/JrwE 0WbNZok+IP15p1tA9KMwuW4QXZJvMglE21TrLAbRF+Q2bQLzYyZk+4L8cYuh EkRzhCxdnLXmlSMAGROxkA== "]] }, 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[{"-", "5271.755181252748`"}]], "Output", CellChangeTimes->CompressedData[" 1:eJxTTMoPSmVkYGDQAWK53ZvM9Ra/clRhTkgF0b/mShaAaN+kH00g+pZ8xQUQ fcLrSb4+kOY74lYOog9ryu0zANJPJmi8B9FNawRMXYH0u7D5XiB63xTmUBC9 dMHDeBD9M7k/DUT/8Uib6gakP39tmguiOzL2LgbRfvKSK0C0nDrjZhDtc+zc DhBtdXTTXhB9Za7OERDtqZF6GkR3m56/DKLPTft9A0TnPimOcweZl7guC0TH pbblg2i5D9drQLS7vnwjiL5pmtgBoo/MerYBRJ97unMHiG6dd/kYiC4sTXwJ os2azRJ9QPrfnW4B0WuvyXWDaIf3JpNANMdvncUges68TZvA/DsTsn2BtGQU YyWI/rp06eKsNa8cAQLwuQ0= "]] }, 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["1522.769829902488`"], "Output", CellChangeTimes->CompressedData[" 1:eJxTTMoPSmVkYGDQAeJXVpvN9Ra/clRhTkgF0b/mShaAaIlHP5pAdJF85QUQ PeXUk3x9IH3L2b0cRPetlNtnAKQ3CGi+B9F+OoKmrkB657X5XiB63xTmUBBd oPAoHkQfedyfBqKPn0ib6gakP39tmguiQ17sXQyipeZLrgDRr5YxbgbREm7n d4BoVtfNe0H0AlndIyDaUyP1NIjuNj1/GUTPFPtzA0RbpJTEuQPpjsR1WSA6 LrUtH0TLfbheA6KF1ss3guglWxM7QPQEqecbQPS5pzt3gOjWeZePgejC0sSX IJqR2TzRB0i/zD3TAqIrwuS7QbTDe5NJIJrjt85iEJ0ht3kTiL4SPTHbF0g/ vclYCaJFGJYtzlrzyhEAxkG1bQ== "]] }, Open ]], Cell[CellGroupData[{ Cell[BoxData[ RowBox[{"ratio", "=", RowBox[{ RowBox[{"-", RowBox[{"(", RowBox[{"Vne", "+", RowBox[{"2", "*", "Vnn"}]}], ")"}]}], "/", RowBox[{"(", RowBox[{"Vee", "-", "Vnn"}], ")"}]}]}]], "Input"], Cell[BoxData["6.847887412651175`"], "Output", CellChangeTimes->{3.5800568611985097`*^9}] }, Open ]], Cell[CellGroupData[{ Cell[BoxData[{"Vee", "\[IndentingNewLine]", "Vnn", "\[IndentingNewLine]", \ "Vne", "\[IndentingNewLine]", RowBox[{ RowBox[{"Tpi", " ", "=", " ", RowBox[{"2.296", "*", RowBox[{"(", RowBox[{"nj", "+", "3"}], ")"}], "*", "0.5", "*", "1.125", "*", RowBox[{"(", RowBox[{ RowBox[{"1", "/", RowBox[{"rpo", "^", "2"}]}], "+", RowBox[{"1", "/", RowBox[{"rpi", "^", "2"}]}]}], ")"}]}]}], " ", RowBox[{"(*", " ", RowBox[{"pi", " ", "kin", " ", "e", " ", "added"}], " ", "*)"}]}], "\[IndentingNewLine]", RowBox[{ RowBox[{"Tpi", " ", "=", " ", RowBox[{"Tpi", "+", " ", RowBox[{"2.296", "*", "4", "*", "1.0", "*", "1.125", "*", RowBox[{"(", RowBox[{ RowBox[{"1", "/", RowBox[{"rpo", "^", "2"}]}], "+", RowBox[{"1", "/", RowBox[{"rpi", "^", "2"}]}]}], ")"}]}]}]}], " ", RowBox[{"(*", " ", RowBox[{"pi", " ", "kin", " ", "e", " ", "added"}], " ", "*)"}]}], "\[IndentingNewLine]", RowBox[{ RowBox[{"Tlo", " ", "=", " ", RowBox[{"8", "*", "2", "*", "1.125", "*", RowBox[{"(", RowBox[{"1", "/", RowBox[{"rlo", "^", "2"}]}], ")"}]}]}], " ", RowBox[{"(*", " ", RowBox[{ "lp", " ", "kin", " ", "e", " ", "of", " ", "4", " ", "O", " ", "added"}], " ", "*)"}]}], "\[IndentingNewLine]", RowBox[{ RowBox[{"Tln", " ", "=", " ", RowBox[{"3", "*", "2", "*", "1.125", "*", RowBox[{"(", RowBox[{"1", "/", RowBox[{"rln", "^", "2"}]}], ")"}]}]}], " ", RowBox[{"(*", " ", RowBox[{ "lp", " ", "kin", " ", "e", " ", "of", " ", "3", " ", "N", " ", "added"}], " ", "*)"}]}], "\[IndentingNewLine]", RowBox[{"Vtot", "=", RowBox[{"Vne", "+", "Vee", "+", "Vnn"}]}], "\[IndentingNewLine]", RowBox[{"Ttot", "=", RowBox[{ "Ttot", "+", "Tpi", "+", "Tlo", "+", "Tln"}]}], "\[IndentingNewLine]", RowBox[{"Vir", " ", "=", RowBox[{ RowBox[{"-", "Vtot"}], "/", "Ttot"}]}], "\[IndentingNewLine]", RowBox[{"Etot", " ", "=", RowBox[{"Ttot", "+", "Vtot"}]}], "\[IndentingNewLine]"}], "Input", CellChangeTimes->{{3.5689074950860367`*^9, 3.5689075109980645`*^9}, { 3.568910298074465*^9, 3.5689103015064707`*^9}, {3.568910724064413*^9, 3.5689107693044925`*^9}, {3.568955368910859*^9, 3.568955378629676*^9}, { 3.568955601366867*^9, 3.568955616218093*^9}, {3.5704638504275074`*^9, 3.570463876370353*^9}, {3.570464305074706*^9, 3.5704643133895206`*^9}, { 3.570464352171189*^9, 3.570464353231991*^9}, {3.570712404698539*^9, 3.5707124150569572`*^9}, {3.570809962851386*^9, 3.5708101493809137`*^9}, { 3.5708102160710306`*^9, 3.570810245165082*^9}, {3.5708102767551374`*^9, 3.5708103693413*^9}, {3.570810404207361*^9, 3.5708104232081947`*^9}, { 3.5708104788690925`*^9, 3.5708104825818987`*^9}, {3.5708105169643593`*^9, 3.570810517884761*^9}, {3.570810561767638*^9, 3.5708105625476394`*^9}, { 3.5708106179589367`*^9, 3.570810645648985*^9}, {3.5708552812279787`*^9, 3.570855300572013*^9}, {3.5718406368324184`*^9, 3.5718406454592333`*^9}, 3.57184067742369*^9, {3.572851887958485*^9, 3.5728519643206196`*^9}, 3.573124110349741*^9, 3.5731249811744704`*^9, {3.5732069154233646`*^9, 3.5732069210393744`*^9}, {3.5732069747034683`*^9, 3.57320697542107*^9}, { 3.573207068038432*^9, 3.5732070690212345`*^9}, {3.574088216299565*^9, 3.5740882530844297`*^9}, {3.5740883007893133`*^9, 3.5740884434827642`*^9}, {3.574492507688925*^9, 3.5744925547854075`*^9}, { 3.5745029153379984`*^9, 3.574502916835601*^9}, {3.574502968159691*^9, 3.5745030155993743`*^9}, {3.5745030768762817`*^9, 3.574503080713889*^9}}], Cell[BoxData["1847.865058152727`"], "Output", CellChangeTimes->CompressedData[" 1:eJxTTMoPSmVkYGDQAeJtuzab6y1+5fihKSEVRB+TlSoA0U8SfzaBaLv5lRdA dLzX03x9IL30sHs5iO5bKbfPAEhvENB8D6JFtEVMXYH0zmvzvUB0lwhLKIgu UHgUD6InJE9IA9HHT6RNdQPS+0qb54JohYx9i0H0MzmpFSD61TLGzSBawu38 DhDN6rp5L4heIKt7BESLrEg9DaLDtp6/DKJTp/25AaJZnpTEuQPpkIfrskC0 1tO2fBD9Kv9GDYi+p6fQCKILTJM6QHTMrOcbQPSs1F07QHSA3JVjINr2a+JL EH22yTzRB0i/zD3TAqIrwuS7QTRPvukkEH2lSncxiM6Q27wJRC+4PTHbF0g/ vclYCaLl1ixbnLXmlSMAtTG2iQ== "]], Cell[BoxData["1522.769829902488`"], "Output", CellChangeTimes->CompressedData[" 1:eJxTTMoPSmVkYGDQAeJtuzab6y1+5fihKSEVRB+TlSoA0U8SfzaBaLv5lRdA dLzX03x9IL30sHs5iO5bKbfPAEhvENB8D6JFtEVMXYH0zmvzvUB0lwhLKIgu UHgUD6InJE9IA9HHT6RNdQPS+0qb54JohYx9i0H0MzmpFSD61TLGzSBawu38 DhDN6rp5L4heIKt7BESLrEg9DaLDtp6/DKJTp/25AaJZnpTEuQPpkIfrskC0 1tO2fBD9Kv9GDYi+p6fQCKILTJM6QHTMrOcbQPSs1F07QHSA3JVjINr2a+JL EH22yTzRB0i/zD3TAqIrwuS7QTRPvukkEH2lSncxiM6Q27wJRC+4PTHbF0g/ vclYCaIb9ixbnLXmlSMAuLG2+w== "]], Cell[BoxData[ RowBox[{"-", "5271.755181252748`"}]], "Output", CellChangeTimes->CompressedData[" 1:eJxTTMoPSmVkYGDQAeJtuzab6y1+5fihKSEVRB+TlSoA0U8SfzaBaLv5lRdA dLzX03x9IL30sHs5iO5bKbfPAEhvENB8D6JFtEVMXYH0zmvzvUB0lwhLKIgu UHgUD6InJE9IA9HHT6RNdQPS+0qb54JohYx9i0H0MzmpFSD61TLGzSBawu38 DhDN6rp5L4heIKt7BESLrEg9DaLDtp6/DKJTp/25AaJZnpTEuQPpkIfrskC0 1tO2fBD9Kv9GDYi+p6fQCKILTJM6QHTMrOcbQPSs1F07QHSA3JVjINr2a+JL EH22yTzRB0i/zD3TAqIrwuS7QTRPvukkEH2lSncxiM6Q27wJRC+4PTHbF0g/ vclYCaI3HVm2OGvNK0cAunm3NQ== "]], Cell[BoxData["10.542857142857144`"], "Output", CellChangeTimes->CompressedData[" 1:eJxTTMoPSmVkYGDQAeJtuzab6y1+5fihKSEVRB+TlSoA0U8SfzaBaLv5lRdA dLzX03x9IL30sHs5iO5bKbfPAEhvENB8D6JFtEVMXYH0zmvzvUB0lwhLKIgu UHgUD6InJE9IA9HHT6RNdQPS+0qb54JohYx9i0H0MzmpFSD61TLGzSBawu38 DhDN6rp5L4heIKt7BESLrEg9DaLDtp6/DKJTp/25AaJZnpTEuQPpkIfrskC0 1tO2fBD9Kv9GDYi+p6fQCKILTJM6QHTMrOcbQPSs1F07QHSA3JVjINr2a+JL EH22yTzRB0i/zD3TAqIrwuS7QTRPvukkEH2lSncxiM6Q27wJRC+4PTHbF0g/ vclYCaI3HVm2OGvNK0cAunm3NQ== "]], Cell[BoxData["21.08571428571429`"], "Output", CellChangeTimes->CompressedData[" 1:eJxTTMoPSmVkYGDQAeJtuzab6y1+5fihKSEVRB+TlSoA0U8SfzaBaLv5lRdA dLzX03x9IL30sHs5iO5bKbfPAEhvENB8D6JFtEVMXYH0zmvzvUB0lwhLKIgu UHgUD6InJE9IA9HHT6RNdQPS+0qb54JohYx9i0H0MzmpFSD61TLGzSBawu38 DhDN6rp5L4heIKt7BESLrEg9DaLDtp6/DKJTp/25AaJZnpTEuQPpkIfrskC0 1tO2fBD9Kv9GDYi+p6fQCKILTJM6QHTMrOcbQPSs1F07QHSA3JVjINr2a+JL EH22yTzRB0i/zD3TAqIrwuS7QTRPvukkEH2lSncxiM6Q27wJRC+4PTHbF0g/ vclYCaJFri5bnLXmlSMAtgC2qA== "]], Cell[BoxData["14.222222222222221`"], "Output", CellChangeTimes->CompressedData[" 1:eJxTTMoPSmVkYGDQAeJtuzab6y1+5fihKSEVRB+TlSoA0U8SfzaBaLv5lRdA dLzX03x9IL30sHs5iO5bKbfPAEhvENB8D6JFtEVMXYH0zmvzvUB0lwhLKIgu UHgUD6InJE9IA9HHT6RNdQPS+0qb54JohYx9i0H0MzmpFSD61TLGzSBawu38 DhDN6rp5L4heIKt7BESLrEg9DaLDtp6/DKJTp/25AaJZnpTEuQPpkIfrskC0 1tO2fBD9Kv9GDYi+p6fQCKILTJM6QHTMrOcbQPSs1F07QHSA3JVjINr2a+JL EH22yTzRB0i/zD3TAqIrwuS7QTRPvukkEH2lSncxiM6Q27wJRC+4PTHbF0g/ vclYCaLd7i5bnLXmlSMAt8i24g== "]], Cell[BoxData["4.347781278904694`"], "Output", CellChangeTimes->CompressedData[" 1:eJxTTMoPSmVkYGDQAeJtuzab6y1+5fihKSEVRB+TlSoA0U8SfzaBaLv5lRdA dLzX03x9IL30sHs5iO5bKbfPAEhvENB8D6JFtEVMXYH0zmvzvUB0lwhLKIgu UHgUD6InJE9IA9HHT6RNdQPS+0qb54JohYx9i0H0MzmpFSD61TLGzSBawu38 DhDN6rp5L4heIKt7BESLrEg9DaLDtp6/DKJTp/25AaJZnpTEuQPpkIfrskC0 1tO2fBD9Kv9GDYi+p6fQCKILTJM6QHTMrOcbQPSs1F07QHSA3JVjINr2a+JL EH22yTzRB0i/zD3TAqIrwuS7QTRPvukkEH2lSncxiM6Q27wJRC+4PTHbF0g/ vclYCaLLny5bnLXmlSMAuYi3Gw== "]], Cell[BoxData[ RowBox[{"-", "1901.1202931975329`"}]], "Output", CellChangeTimes->CompressedData[" 1:eJxTTMoPSmVkYGDQAeJtuzab6y1+5fihKSEVRB+TlSoA0U8SfzaBaLv5lRdA dLzX03x9IL30sHs5iO5bKbfPAEhvENB8D6JFtEVMXYH0zmvzvUB0lwhLKIgu UHgUD6InJE9IA9HHT6RNdQPS+0qb54JohYx9i0H0MzmpFSD61TLGzSBawu38 DhDN6rp5L4heIKt7BESLrEg9DaLDtp6/DKJTp/25AaJZnpTEuQPpkIfrskC0 1tO2fBD9Kv9GDYi+p6fQCKILTJM6QHTMrOcbQPSs1F07QHSA3JVjINr2a+JL EH22yTzRB0i/zD3TAqIrwuS7QTRPvukkEH2lSncxiM6Q27wJRC+4PTHbF0g/ vclYCaJXvF22OGvNK0cAu0i3VA== "]], Cell[BoxData["950.8594302345708`"], "Output", CellChangeTimes->CompressedData[" 1:eJxTTMoPSmVkYGDQAeJtuzab6y1+5fihKSEVRB+TlSoA0U8SfzaBaLv5lRdA dLzX03x9IL30sHs5iO5bKbfPAEhvENB8D6JFtEVMXYH0zmvzvUB0lwhLKIgu UHgUD6InJE9IA9HHT6RNdQPS+0qb54JohYx9i0H0MzmpFSD61TLGzSBawu38 DhDN6rp5L4heIKt7BESLrEg9DaLDtp6/DKJTp/25AaJZnpTEuQPpkIfrskC0 1tO2fBD9Kv9GDYi+p6fQCKILTJM6QHTMrOcbQPSs1F07QHSA3JVjINr2a+JL EH22yTzRB0i/zD3TAqIrwuS7QTRPvukkEH2lSncxiM6Q27wJRC+4PTHbF0g/ vclYCaJvfl22OGvNK0cAvQi3jQ== "]], Cell[BoxData["1.9993704986745928`"], "Output", CellChangeTimes->CompressedData[" 1:eJxTTMoPSmVkYGDQAeJtuzab6y1+5fihKSEVRB+TlSoA0U8SfzaBaLv5lRdA dLzX03x9IL30sHs5iO5bKbfPAEhvENB8D6JFtEVMXYH0zmvzvUB0lwhLKIgu UHgUD6InJE9IA9HHT6RNdQPS+0qb54JohYx9i0H0MzmpFSD61TLGzSBawu38 DhDN6rp5L4heIKt7BESLrEg9DaLDtp6/DKJTp/25AaJZnpTEuQPpkIfrskC0 1tO2fBD9Kv9GDYi+p6fQCKILTJM6QHTMrOcbQPSs1F07QHSA3JVjINr2a+JL EH22yTzRB0i/zD3TAqIrwuS7QTRPvukkEH2lSncxiM6Q27wJRC+4PTHbF0g/ vclYCaK5/i1bnLXmlSMAts+2xw== "]], Cell[BoxData[ RowBox[{"-", "950.260862962962`"}]], "Output", CellChangeTimes->CompressedData[" 1:eJxTTMoPSmVkYGDQAeJtuzab6y1+5fihKSEVRB+TlSoA0U8SfzaBaLv5lRdA dLzX03x9IL30sHs5iO5bKbfPAEhvENB8D6JFtEVMXYH0zmvzvUB0lwhLKIgu UHgUD6InJE9IA9HHT6RNdQPS+0qb54JohYx9i0H0MzmpFSD61TLGzSBawu38 DhDN6rp5L4heIKt7BESLrEg9DaLDtp6/DKJTp/25AaJZnpTEuQPpkIfrskC0 1tO2fBD9Kv9GDYi+p6fQCKILTJM6QHTMrOcbQPSs1F07QHSA3JVjINr2a+JL EH22yTzRB0i/zD3TAqIrwuS7QTRPvukkEH2lSncxiM6Q27wJRC+4PTHbF0g/ vclYCaJt2JYvzlrzyhEAsZ22Ag== "]] }, Open ]] }, WindowSize->{940, 819}, WindowMargins->{{317, Automatic}, {Automatic, 1}}, PrintingCopies->1, PrintingPageRange->{32000, 32000}, PrintingOptions->{"Magnification"->1., "PaperOrientation"->"Portrait", "PaperSize"->{595.2, 841.8}}, FrontEndVersion->"9.0 for Microsoft Windows (64-bit) (January 25, 2013)", StyleDefinitions->"Default.nb" ] (* End of Notebook Content *) (* Internal cache information *) (*CellTagsOutline CellTagsIndex->{} *) (*CellTagsIndex CellTagsIndex->{} *) (*NotebookFileOutline Notebook[{ Cell[557, 20, 2021, 33, 72, "Input"], Cell[CellGroupData[{ Cell[2603, 57, 1129, 22, 72, "Input"], Cell[3735, 81, 5340, 93, 313, "Output"] }, Open ]], Cell[CellGroupData[{ Cell[9112, 179, 762, 13, 31, "Input"], Cell[9877, 194, 1098, 19, 31, "Output"] }, Open ]], Cell[CellGroupData[{ Cell[11012, 218, 955, 14, 31, "Input"], Cell[11970, 234, 467, 9, 31, "Output"] }, Open ]], Cell[CellGroupData[{ Cell[12474, 248, 1560, 29, 31, "Input"], Cell[14037, 279, 1098, 19, 31, "Output"] }, Open ]], Cell[15150, 301, 1419, 23, 31, "Input"], Cell[16572, 326, 1592, 29, 31, "Input"], Cell[CellGroupData[{ Cell[18189, 359, 1234, 18, 31, "Input"], Cell[19426, 379, 2654, 75, 72, "Output"] }, Open ]], Cell[CellGroupData[{ Cell[22117, 459, 697, 14, 31, "Input"], Cell[22817, 475, 853, 16, 52, "Output"] }, Open ]], Cell[23685, 494, 908, 24, 31, "Input"], Cell[CellGroupData[{ Cell[24618, 522, 5811, 124, 172, "Input"], Cell[30432, 648, 976, 18, 52, "Output"], Cell[31411, 668, 978, 18, 52, "Output"] }, Open ]], Cell[CellGroupData[{ Cell[32426, 691, 568, 13, 31, "Input"], Cell[32997, 706, 1094, 19, 31, "Output"] }, Open ]], Cell[CellGroupData[{ Cell[34128, 730, 470, 8, 31, "Input"], Cell[34601, 740, 483, 9, 31, "Output"] }, Open ]], Cell[CellGroupData[{ Cell[35121, 754, 1401, 38, 92, "Input"], Cell[36525, 794, 898, 17, 52, "Output"] }, Open ]], Cell[CellGroupData[{ Cell[37460, 816, 827, 23, 92, "Input"], Cell[38290, 841, 467, 9, 31, "Output"], Cell[38760, 852, 467, 9, 31, "Output"] }, Open ]], Cell[39242, 864, 1824, 35, 72, "Input"], Cell[CellGroupData[{ Cell[41091, 903, 4977, 123, 212, "Input"], Cell[46071, 1028, 8535, 169, 370, "Output"] }, Open ]], Cell[CellGroupData[{ Cell[54643, 1202, 1252, 18, 31, "Input"], Cell[55898, 1222, 24065, 605, 304, "Output"] }, Open ]], Cell[CellGroupData[{ Cell[80000, 1832, 2198, 43, 72, "Input"], Cell[82201, 1877, 26017, 379, 521, "Output"] }, Open ]], Cell[108233, 2259, 1331, 36, 72, "Input"], Cell[CellGroupData[{ Cell[109589, 2299, 5077, 91, 92, "Input"], Cell[114669, 2392, 8317, 133, 521, "Output"] }, Open ]], Cell[CellGroupData[{ Cell[123023, 2530, 2570, 53, 132, "Input"], Cell[125596, 2585, 467, 9, 31, "Output"] }, Open ]], Cell[CellGroupData[{ Cell[126100, 2599, 2598, 53, 92, "Input"], Cell[128701, 2654, 594, 13, 31, "Output"] }, Open ]], Cell[129310, 2670, 10233, 208, 232, "Input"], Cell[CellGroupData[{ Cell[139568, 2882, 1990, 42, 72, "Input"], Cell[141561, 2926, 546, 11, 31, "Output"], Cell[142110, 2939, 542, 11, 31, "Output"] }, Open ]], Cell[CellGroupData[{ Cell[142689, 2955, 623, 15, 52, "Input"], Cell[143315, 2972, 608, 13, 31, "Output"], Cell[143926, 2987, 542, 11, 31, "Output"] }, Open ]], Cell[CellGroupData[{ Cell[144505, 3003, 2789, 54, 72, "Input"], Cell[147297, 3059, 546, 11, 31, "Output"], Cell[147846, 3072, 541, 11, 31, "Output"] }, Open ]], Cell[CellGroupData[{ Cell[148424, 3088, 3698, 81, 152, "Input"], Cell[152125, 3171, 1025, 19, 72, "Output"] }, Open ]], Cell[153165, 3193, 2072, 49, 112, "Input"], Cell[155240, 3244, 561, 12, 52, "Input"], Cell[155804, 3258, 2148, 49, 92, "Input"], Cell[157955, 3309, 2452, 56, 112, "Input"], Cell[160410, 3367, 1759, 41, 72, "Input"], Cell[CellGroupData[{ Cell[162194, 3412, 923, 20, 31, "Input"], Cell[163120, 3434, 480, 9, 31, "Output"] }, Open ]], Cell[CellGroupData[{ Cell[163637, 3448, 711, 18, 31, "Input"], Cell[164351, 3468, 483, 9, 31, "Output"] }, Open ]], Cell[CellGroupData[{ Cell[164871, 3482, 507, 10, 31, "Input"], Cell[165381, 3494, 479, 9, 31, "Output"] }, Open ]], Cell[CellGroupData[{ Cell[165897, 3508, 823, 23, 31, "Input"], Cell[166723, 3533, 483, 9, 31, "Output"] }, Open ]], Cell[CellGroupData[{ Cell[167243, 3547, 204, 4, 31, "Input"], Cell[167450, 3553, 483, 9, 31, "Output"] }, Open ]], Cell[CellGroupData[{ Cell[167970, 3567, 491, 14, 31, "Input"], Cell[168464, 3583, 4584, 102, 506, "Output"] }, Open ]], Cell[173063, 3688, 1975, 34, 72, "Input"], Cell[CellGroupData[{ Cell[175063, 3726, 4534, 109, 212, "Input"], Cell[179600, 3837, 537, 11, 31, "Output"], Cell[180140, 3850, 3718, 122, 506, "Output"] }, Open ]], Cell[183873, 3975, 10758, 194, 172, "Input"], Cell[194634, 4171, 11008, 295, 1312, "Input"], Cell[205645, 4468, 3637, 73, 52, "Input"], Cell[209285, 4543, 3178, 52, 72, "Input"], Cell[212466, 4597, 12924, 319, 1292, "Input"], Cell[225393, 4918, 2966, 42, 49, "Text"], Cell[228362, 4962, 6843, 143, 292, "Input"], Cell[235208, 5107, 22097, 544, 1532, "Input"], Cell[CellGroupData[{ Cell[257330, 5655, 4775, 77, 92, "Input"], Cell[262108, 5734, 6084, 146, 171, "Output"] }, Open ]], Cell[CellGroupData[{ Cell[268229, 5885, 475, 8, 132, "Input"], Cell[268707, 5895, 572, 10, 31, "Output"], Cell[269282, 5907, 571, 10, 31, "Output"], Cell[269856, 5919, 569, 10, 31, "Output"], Cell[270428, 5931, 611, 11, 31, "Output"], Cell[271042, 5944, 589, 10, 31, "Output"], Cell[271634, 5956, 607, 11, 31, "Output"] }, Open ]], Cell[272256, 5970, 5303, 97, 51, "Input"], Cell[277562, 6069, 6261, 123, 232, "Input"], Cell[283826, 6194, 20605, 510, 1312, "Input"], Cell[CellGroupData[{ Cell[304456, 6708, 4813, 77, 92, "Input"], Cell[309272, 6787, 3955, 95, 171, "Output"] }, Open ]], Cell[CellGroupData[{ Cell[313264, 6887, 2214, 30, 31, "Input"], Cell[315481, 6919, 881, 15, 31, "Output"] }, Open ]], Cell[316377, 6937, 3123, 59, 92, "Input"], Cell[CellGroupData[{ Cell[319525, 7000, 939, 17, 72, "Input"], Cell[320467, 7019, 3480, 80, 152, "Output"], Cell[323950, 7101, 467, 9, 31, "Output"], Cell[324420, 7112, 467, 9, 31, "Output"] }, Open ]], Cell[324902, 7124, 10201, 233, 192, "Input"], Cell[335106, 7359, 6427, 103, 72, "Input"], Cell[341536, 7464, 10215, 234, 192, "Input"], Cell[351754, 7700, 5925, 93, 52, "Input"], Cell[357682, 7795, 11884, 209, 112, "Input"], Cell[369569, 8006, 12810, 228, 152, "Input"], Cell[CellGroupData[{ Cell[382404, 8238, 9785, 140, 92, "Input"], Cell[392192, 8380, 22586, 516, 375, "Output"] }, Open ]], Cell[CellGroupData[{ Cell[414815, 8901, 747, 19, 92, "Input"], Cell[415565, 8922, 22582, 516, 375, "Output"] }, Open ]], Cell[CellGroupData[{ Cell[438184, 9443, 9646, 136, 92, "Input"], Cell[447833, 9581, 40219, 711, 370, 13885, 277, "CachedBoxData", "BoxData", \ "Output"] }, Open ]], Cell[CellGroupData[{ Cell[488089, 10297, 4708, 101, 152, "Input"], Cell[492800, 10400, 467, 9, 31, "Output"] }, Open ]], Cell[CellGroupData[{ Cell[493304, 10414, 2499, 47, 92, "Input"], Cell[495806, 10463, 463, 9, 31, "Output"] }, Open ]], Cell[496284, 10475, 1841, 29, 52, "Input"], Cell[CellGroupData[{ Cell[498150, 10508, 5050, 110, 192, "Input"], Cell[503203, 10620, 5124, 149, 1286, "Output"], Cell[508330, 10771, 463, 9, 31, "Output"] }, Open ]], Cell[CellGroupData[{ Cell[508830, 10785, 6747, 130, 132, "Input"], Cell[515580, 10917, 467, 9, 31, "Output"], Cell[516050, 10928, 467, 9, 31, "Output"] }, Open ]], Cell[CellGroupData[{ Cell[516554, 10942, 632, 18, 52, "Input"], Cell[517189, 10962, 487, 10, 31, "Output"], Cell[517679, 10974, 470, 9, 31, "Output"] }, Open ]], Cell[CellGroupData[{ Cell[518186, 10988, 4670, 80, 92, "Input"], Cell[522859, 11070, 467, 9, 31, "Output"] }, Open ]], Cell[523341, 11082, 1863, 27, 31, "Input"], Cell[CellGroupData[{ Cell[525229, 11113, 2963, 56, 112, "Input"], Cell[528195, 11171, 480, 9, 31, "Output"] }, Open ]], Cell[528690, 11183, 1293, 30, 92, "Input"], Cell[CellGroupData[{ Cell[530008, 11217, 3730, 84, 152, "Input"], Cell[533741, 11303, 479, 9, 31, "Output"] }, Open ]], Cell[CellGroupData[{ Cell[534257, 11317, 499, 15, 52, "Input"], Cell[534759, 11334, 497, 10, 31, "Output"] }, Open ]], Cell[535271, 11347, 1381, 21, 31, "Input"], Cell[CellGroupData[{ Cell[536677, 11372, 1709, 32, 52, "Input"], Cell[538389, 11406, 496, 10, 31, "Output"] }, Open ]], Cell[CellGroupData[{ Cell[538922, 11421, 1415, 43, 72, "Input"], Cell[540340, 11466, 496, 10, 31, "Output"] }, Open ]], Cell[CellGroupData[{ Cell[540873, 11481, 2550, 50, 92, "Input"], Cell[543426, 11533, 483, 9, 31, "Output"] }, Open ]], Cell[CellGroupData[{ Cell[543946, 11547, 230, 8, 31, "Input"], Cell[544179, 11557, 89, 1, 31, "Output"] }, Open ]], Cell[CellGroupData[{ Cell[544305, 11563, 3652, 79, 252, "Input"], Cell[547960, 11644, 483, 9, 31, "Output"], Cell[548446, 11655, 483, 9, 31, "Output"], Cell[548932, 11666, 500, 10, 31, "Output"], Cell[549435, 11678, 484, 9, 31, "Output"], Cell[549922, 11689, 483, 9, 31, "Output"], Cell[550408, 11700, 484, 9, 31, "Output"], Cell[550895, 11711, 483, 9, 31, "Output"], Cell[551381, 11722, 501, 10, 31, "Output"], Cell[551885, 11734, 483, 9, 31, "Output"], Cell[552371, 11745, 484, 9, 31, "Output"], Cell[552858, 11756, 499, 10, 63, "Output"] }, Open ]] } ] *) (* End of internal cache information *)