(* 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[ 584532, 12115] NotebookOptionsPosition[ 576180, 11857] NotebookOutlinePosition[ 576677, 11877] CellTagsIndexPosition[ 576634, 11874] WindowFrame->Normal*) (* Beginning of Notebook Content *) Notebook[{ Cell[BoxData[ RowBox[{ RowBox[{"(*", " ", RowBox[{ "Kimball", " ", "model", " ", "and", " ", "energy", " ", "derived", " ", "from", " ", "Wolfram", " ", "ES", " ", "09", " ", "April", " ", "2013"}], " ", "*)"}], " ", "\[IndentingNewLine]", RowBox[{ RowBox[{"Clear", "[", RowBox[{ "tw", ",", "n2", ",", "n", ",", "nb", ",", "bc", ",", "bh", ",", "u", ",", "u1", ",", "u2", ",", "Vee", ",", "Vne", ",", "Vnn"}], "]"}], ";"}]}]], "Input", CellChangeTimes->{{3.568278170270548*^9, 3.568278174310955*^9}, { 3.5682782109554195`*^9, 3.5682782183342323`*^9}, {3.5688220426984916`*^9, 3.5688220506389055`*^9}, {3.568822092353379*^9, 3.568822134660653*^9}, { 3.5688728241768503`*^9, 3.568872825034852*^9}, {3.5688958900531473`*^9, 3.5688958965115585`*^9}, {3.5689027504159966`*^9, 3.568902751695199*^9}, { 3.5689109808408637`*^9, 3.568910992618884*^9}, {3.569134574760273*^9, 3.569134584135889*^9}, 3.56923802266416*^9, {3.56933446475942*^9, 3.569334471239791*^9}, {3.5693395229642725`*^9, 3.569339531606688*^9}, { 3.5694332905109916`*^9, 3.56943330667262*^9}, {3.570297588441428*^9, 3.5702976026530533`*^9}, {3.570558862041448*^9, 3.5705588713234644`*^9}, 3.5705590387585583`*^9, {3.570855141170933*^9, 3.570855146100541*^9}, { 3.5708563212974052`*^9, 3.5708563224362073`*^9}, {3.5708588179101906`*^9, 3.570858820452995*^9}, 3.570949483910489*^9, {3.5719810762355733`*^9, 3.5719810786847773`*^9}, 3.5723256977094345`*^9, 3.572583124905918*^9, { 3.5727976670013523`*^9, 3.572797667157352*^9}, 3.5728672700652885`*^9, { 3.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}}], Cell[CellGroupData[{ Cell[BoxData[{ RowBox[{ RowBox[{"ChemicalData", "[", RowBox[{"\"\\"", ",", "\"\\""}], "]"}], "\[IndentingNewLine]"}], "\[IndentingNewLine]", RowBox[{ RowBox[{"t1", "=", RowBox[{"0.01889726", "*", RowBox[{"ChemicalData", "[", RowBox[{"\"\\"", ",", "\"\\""}], "]"}]}]}], ";"}], "\n", RowBox[{"MatrixForm", "[", "t1", "]"}]}], "Input", CellChangeTimes->{ 3.57029749846047*^9, {3.570297893562364*^9, 3.5702979152152023`*^9}, { 3.5704535321223855`*^9, 3.570453555038826*^9}, {3.570558892227501*^9, 3.5705589112283344`*^9}, {3.5705589864360666`*^9, 3.5705590132681136`*^9}, {3.5705590525489826`*^9, 3.5705590747322216`*^9}, {3.570595322227199*^9, 3.5705953504632483`*^9}, 3.570855059411189*^9, 3.570856566545436*^9, 3.5709425310226765`*^9, 3.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}}], 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->{3.5744827585818415`*^9, 3.574483059927571*^9, 3.574484426989172*^9, 3.5744844971892953`*^9, 3.574484884225975*^9, 3.57448505788548*^9, 3.574485204759738*^9, 3.5744852990463037`*^9, 3.5744911329833107`*^9, 3.574491461426287*^9, 3.5744918749830136`*^9, 3.5744921177350397`*^9, 3.574492198511982*^9, 3.5744923686302805`*^9, 3.574492438721204*^9, 3.5744925616182194`*^9, 3.574499246122756*^9, 3.5744993042016582`*^9, 3.574499391281011*^9, 3.5744994980163984`*^9, 3.574499719879988*^9, 3.5745008847060337`*^9, 3.5745009451717405`*^9, 3.574501072031163*^9, 3.574501136506076*^9, 3.5745011683925323`*^9, 3.5745012361278515`*^9, 3.5745028432346716`*^9, 3.5745030446466255`*^9, 3.5745030947851133`*^9, 3.575261163717477*^9, 3.575261233090799*^9, 3.5752617507933083`*^9, 3.575265689425826*^9}], Cell[BoxData[ TagBox[ RowBox[{"(", "\[NoBreak]", GridBox[{ { RowBox[{"-", "8.22860399714`"}], "0.497655562648`", "3.0753778869199997`"}, { RowBox[{"-", "6.6157606506599995`"}], "2.23514901554`", "2.8534673627399996`"}, { RowBox[{"-", "4.31927112916`"}], "2.1722022424799996`", "2.0444000731`"}, { 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.4352809120680001`"}], RowBox[{"-", "0.641820869462`"}], "0.518926318504`"}, { RowBox[{"-", "1.378759207408`"}], RowBox[{"-", "2.98894181968`"}], "0.0591733681832`"}, { RowBox[{"-", "4.05792202336`"}], RowBox[{"-", "3.9592027371199996`"}], "0.784130465344`"}, { RowBox[{"-", "8.9598523701`"}], RowBox[{"-", "3.53637654462`"}], "2.5450073877599997`"}, {"5.121667686019999`", "0.1550637346012`", RowBox[{"-", "0.252359679218`"}]}, {"2.974428724`", "0.235200967138`", "1.6623825135699999`"}, {"0.699243973424`", "1.0910824389759999`", "0.1216212535792`"}, {"1.461440389086`", "1.045899090316`", RowBox[{"-", "2.4436046906`"}]}, {"4.06289200274`", "1.53737713867`", RowBox[{"-", "2.54402473024`"}]}, {"3.52658776394`", "2.14432878398`", "3.4114845532799998`"}, {"7.115101848899999`", "1.605702071926`", "0.7124871732320001`"}, {"2.6414401055399996`", RowBox[{"-", "1.669191196348`"}], "2.49111240224`"}, {"5.52393365964`", RowBox[{"-", "1.844204390386`"}], RowBox[{"-", "0.7671134827139999`"}]}, {"0.0700666937102`", "3.01409407274`", "0.6958122310079999`"}, {"5.204437684819999`", "0.506476803616`", RowBox[{"-", "4.9764989347`"}]}, {"4.4997777566799995`", "3.59461789994`", RowBox[{"-", "2.5218771415199996`"}]}, {"6.3805086609199995`", "2.47410486824`", RowBox[{"-", "6.30491962092`"}]}, {"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`"}]} }, GridBoxAlignment->{ "Columns" -> {{Center}}, "ColumnsIndexed" -> {}, "Rows" -> {{Baseline}}, "RowsIndexed" -> {}}, GridBoxSpacings->{"Columns" -> { Offset[0.27999999999999997`], { Offset[0.7]}, Offset[0.27999999999999997`]}, "ColumnsIndexed" -> {}, "Rows" -> { Offset[0.2], { Offset[0.4]}, Offset[0.2]}, "RowsIndexed" -> {}}], "\[NoBreak]", ")"}], Function[BoxForm`e$, MatrixForm[BoxForm`e$]]]], "Output", CellChangeTimes->{3.5744827585818415`*^9, 3.574483059927571*^9, 3.574484426989172*^9, 3.5744844971892953`*^9, 3.574484884225975*^9, 3.57448505788548*^9, 3.574485204759738*^9, 3.5744852990463037`*^9, 3.5744911329833107`*^9, 3.574491461426287*^9, 3.5744918749830136`*^9, 3.5744921177350397`*^9, 3.574492198511982*^9, 3.5744923686302805`*^9, 3.574492438721204*^9, 3.5744925616182194`*^9, 3.574499246122756*^9, 3.5744993042016582`*^9, 3.574499391281011*^9, 3.5744994980163984`*^9, 3.574499719879988*^9, 3.5745008847060337`*^9, 3.5745009451717405`*^9, 3.574501072031163*^9, 3.574501136506076*^9, 3.5745011683925323`*^9, 3.5745012361278515`*^9, 3.5745028432346716`*^9, 3.5745030446466255`*^9, 3.5745030947851133`*^9, 3.575261163717477*^9, 3.575261233090799*^9, 3.5752617507933083`*^9, 3.575265689425826*^9}] }, Open ]], Cell[CellGroupData[{ Cell[BoxData[ RowBox[{"u", "=", RowBox[{"ChemicalData", "\[NoBreak]", "[", RowBox[{"\"\\"", ",", "\"\\""}], "]"}]}]], "Input", CellChangeTimes->{ 3.57029749846047*^9, {3.570297893562364*^9, 3.5702979152152023`*^9}, { 3.5704535321223855`*^9, 3.570453555038826*^9}, {3.570558892227501*^9, 3.5705589112283344`*^9}, {3.5705589864360666`*^9, 3.5705590132681136`*^9}, 3.5705592408949137`*^9, {3.5705593512807074`*^9, 3.5705593890483737`*^9}, { 3.570559442712468*^9, 3.5705594826641383`*^9}, 3.5708550837628317`*^9, 3.570856587480673*^9, 3.5709425310226765`*^9, 3.5730457925169635`*^9, 3.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->{3.5744827586598415`*^9, 3.5744830599587708`*^9, 3.574484427004772*^9, 3.574484497204895*^9, 3.5744848842415752`*^9, 3.57448505790108*^9, 3.574485204775338*^9, 3.574485299061904*^9, 3.5744911329989104`*^9, 3.574491461441887*^9, 3.5744918749986134`*^9, 3.5744921177350397`*^9, 3.574492198527582*^9, 3.5744923686458807`*^9, 3.574492438736804*^9, 3.5744925616338196`*^9, 3.574499246138356*^9, 3.5744993042172585`*^9, 3.5744993912966113`*^9, 3.5744994980319986`*^9, 3.5744997198955884`*^9, 3.574500884721634*^9, 3.5745009451873403`*^9, 3.574501072046763*^9, 3.574501136506076*^9, 3.5745011684081326`*^9, 3.5745012361278515`*^9, 3.574502843250272*^9, 3.5745030446622257`*^9, 3.5745030948007135`*^9, 3.575261163779877*^9, 3.5752612331063986`*^9, 3.575261750824508*^9, 3.5752656894414263`*^9}] }, Open ]], Cell[CellGroupData[{ Cell[BoxData[ RowBox[{"n", "=", RowBox[{"Length", "[", "t1", "]"}]}]], "Input", CellChangeTimes->{{3.568278170270548*^9, 3.568278174310955*^9}, { 3.5682782109554195`*^9, 3.5682782183342323`*^9}, {3.5688220426984916`*^9, 3.5688220506389055`*^9}, {3.568822092353379*^9, 3.568822123693834*^9}, 3.568873215924739*^9, 3.5689108676002645`*^9, 3.5689997098237543`*^9, 3.5689998170115423`*^9, 3.568999886915265*^9, 3.5691460425981283`*^9, { 3.5692371678918586`*^9, 3.569237204489523*^9}, 3.569237465805582*^9, 3.56923802261736*^9, 3.5693403424025126`*^9, 3.5693404501675014`*^9, 3.569340737988007*^9, 3.569340852819809*^9, 3.569341165475558*^9, 3.56934149694494*^9, 3.569342614390503*^9, 3.569343567162176*^9, 3.569343662712344*^9, 3.569343763597721*^9, 3.5693440703198595`*^9, 3.569344266209404*^9, 3.5702973471714044`*^9, 3.5702974395391665`*^9, { 3.570297637207114*^9, 3.570297637987115*^9}, 3.570297920051211*^9}], Cell[BoxData["32"], "Output", CellChangeTimes->{3.5744827586754417`*^9, 3.574483059974371*^9, 3.574484427020372*^9, 3.574484497220495*^9, 3.574484884257175*^9, 3.5744850579166803`*^9, 3.574485204790938*^9, 3.5744852990775037`*^9, 3.57449113301451*^9, 3.574491461441887*^9, 3.5744918749986134`*^9, 3.57449211775064*^9, 3.574492198527582*^9, 3.5744923686458807`*^9, 3.574492438736804*^9, 3.57449256164942*^9, 3.574499246138356*^9, 3.574499304232858*^9, 3.574499391312211*^9, 3.574499498047599*^9, 3.574499719911188*^9, 3.574500884737234*^9, 3.57450094520294*^9, 3.574501072046763*^9, 3.574501136521676*^9, 3.5745011684081326`*^9, 3.574501236143451*^9, 3.574502843265872*^9, 3.574503044677826*^9, 3.5745030948163137`*^9, 3.575261163779877*^9, 3.575261233121999*^9, 3.575261750824508*^9, 3.575265689457026*^9}] }, Open ]], Cell[CellGroupData[{ Cell[BoxData[ RowBox[{"un", "=", RowBox[{"Table", "[", RowBox[{ RowBox[{"If", "[", RowBox[{ RowBox[{ RowBox[{"u", "[", RowBox[{"[", "i", "]"}], "]"}], "\[Equal]", "\"\\""}], ",", "\"\\"", ",", RowBox[{"u", "[", RowBox[{"[", "i", "]"}], "]"}]}], "]"}], ",", RowBox[{"{", RowBox[{"i", ",", "1", ",", "n"}], "}"}]}], "]"}]}]], "Input", CellChangeTimes->{{3.568807971988578*^9, 3.5688080897687845`*^9}, { 3.5688081769573374`*^9, 3.5688081865669546`*^9}, {3.568808274317109*^9, 3.5688082853151283`*^9}, {3.5688085365847692`*^9, 3.568808578330443*^9}, { 3.568808822704872*^9, 3.5688088761037655`*^9}, {3.56880890727262*^9, 3.568808937365073*^9}, {3.568809097608555*^9, 3.5688091594002633`*^9}, 3.5688092418308077`*^9, {3.5688092753552666`*^9, 3.568809302577315*^9}, { 3.5688096257786827`*^9, 3.568809703201618*^9}, {3.5688097456336927`*^9, 3.568809788268568*^9}, 3.568809850575077*^9, {3.568809946562046*^9, 3.5688099535664577`*^9}, {3.5688100003197403`*^9, 3.568810008556555*^9}, { 3.568810075371472*^9, 3.56881007981748*^9}, {3.568813431920168*^9, 3.568813533086345*^9}, {3.5688135960324554`*^9, 3.5688136045344706`*^9}, { 3.5688136407889347`*^9, 3.568813707494652*^9}, {3.568813812529636*^9, 3.5688138275524626`*^9}, {3.5688140611940727`*^9, 3.568814062738476*^9}, { 3.568814121113778*^9, 3.5688141965555105`*^9}, {3.568814326675339*^9, 3.568814331074547*^9}, 3.568814589473401*^9, 3.5688146762563534`*^9, 3.56881472549004*^9}], Cell[BoxData[ RowBox[{"{", RowBox[{"\<\"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->{3.574482758691042*^9, 3.574483059974371*^9, 3.574484427035972*^9, 3.5744844972360954`*^9, 3.574484884257175*^9, 3.5744850579166803`*^9, 3.574485204790938*^9, 3.5744852990775037`*^9, 3.5744911330301104`*^9, 3.574491461457487*^9, 3.5744918750142136`*^9, 3.57449211776624*^9, 3.574492198543182*^9, 3.574492368661481*^9, 3.574492438752404*^9, 3.57449256166502*^9, 3.5744992461539564`*^9, 3.574499304232858*^9, 3.5744993913278112`*^9, 3.574499498047599*^9, 3.5744997199267883`*^9, 3.574500884737234*^9, 3.57450094520294*^9, 3.574501072062363*^9, 3.5745011365372763`*^9, 3.5745011684237328`*^9, 3.574501236159051*^9, 3.5745028432814717`*^9, 3.574503044677826*^9, 3.574503094831914*^9, 3.575261163795477*^9, 3.575261233137599*^9, 3.575261750840108*^9, 3.575265689457026*^9}] }, Open ]], Cell[BoxData[ RowBox[{ RowBox[{"num1", "=", RowBox[{"Table", "[", RowBox[{"i", ",", RowBox[{"{", RowBox[{"i", ",", "1", ",", "n"}], "}"}]}], "]"}]}], ";"}]], "Input", CellChangeTimes->{{3.568807971988578*^9, 3.5688080897687845`*^9}, { 3.5688081769573374`*^9, 3.5688081865669546`*^9}, {3.568808274317109*^9, 3.5688082853151283`*^9}, {3.5688085365847692`*^9, 3.568808578330443*^9}, { 3.568808822704872*^9, 3.5688088761037655`*^9}, {3.56880890727262*^9, 3.568808937365073*^9}, {3.568809097608555*^9, 3.5688091594002633`*^9}, 3.5688092418308077`*^9, {3.5688092753552666`*^9, 3.568809302577315*^9}, { 3.5688096257786827`*^9, 3.568809703201618*^9}, {3.5688097456336927`*^9, 3.568809788268568*^9}, 3.568809850575077*^9, {3.568809946562046*^9, 3.5688099535664577`*^9}, {3.5688100003197403`*^9, 3.568810008556555*^9}, { 3.568810075371472*^9, 3.56881007981748*^9}, {3.568813431920168*^9, 3.568813533086345*^9}, {3.5688135960324554`*^9, 3.5688136045344706`*^9}, { 3.5688136407889347`*^9, 3.568813707494652*^9}, {3.568813812529636*^9, 3.5688138275524626`*^9}, {3.5688140611940727`*^9, 3.568814062738476*^9}, { 3.568814121113778*^9, 3.5688141965555105`*^9}, {3.568814326675339*^9, 3.568814331074547*^9}, 3.568814589473401*^9, {3.5688146762563534`*^9, 3.5688146829331646`*^9}, 3.5688147231032352`*^9, 3.5688216336189733`*^9, 3.5711137970191836`*^9}], Cell[BoxData[ RowBox[{ RowBox[{"um", "=", RowBox[{"Table", "[", RowBox[{ RowBox[{"{", RowBox[{ RowBox[{"un", "[", RowBox[{"[", "i", "]"}], "]"}], ",", RowBox[{"num1", "[", RowBox[{"[", "i", "]"}], "]"}]}], "}"}], ",", RowBox[{"{", RowBox[{"i", ",", "1", ",", "n"}], "}"}]}], "]"}]}], ";"}]], "Input", CellChangeTimes->{{3.568807971988578*^9, 3.5688080897687845`*^9}, { 3.5688081769573374`*^9, 3.5688081865669546`*^9}, {3.568808274317109*^9, 3.5688082853151283`*^9}, {3.5688085365847692`*^9, 3.568808578330443*^9}, { 3.568808822704872*^9, 3.5688088761037655`*^9}, {3.56880890727262*^9, 3.568808937365073*^9}, {3.568809097608555*^9, 3.5688091594002633`*^9}, 3.5688092418308077`*^9, {3.5688092753552666`*^9, 3.568809302577315*^9}, { 3.5688096257786827`*^9, 3.568809703201618*^9}, {3.5688097456336927`*^9, 3.568809788268568*^9}, 3.568809850575077*^9, {3.568809946562046*^9, 3.5688099535664577`*^9}, {3.5688100003197403`*^9, 3.568810008556555*^9}, { 3.568810075371472*^9, 3.56881007981748*^9}, {3.568813431920168*^9, 3.568813533086345*^9}, {3.5688135960324554`*^9, 3.5688136045344706`*^9}, { 3.5688136407889347`*^9, 3.568813707494652*^9}, {3.568813812529636*^9, 3.5688138275524626`*^9}, {3.5688140611940727`*^9, 3.568814062738476*^9}, { 3.568814121113778*^9, 3.5688141965555105`*^9}, {3.568814326675339*^9, 3.568814331074547*^9}, 3.568814589473401*^9, {3.5688146762563534`*^9, 3.5688146885023746`*^9}, 3.5688147203576307`*^9, 3.56882164316619*^9, 3.57111380070079*^9}], Cell[CellGroupData[{ Cell[BoxData[ RowBox[{"us", "=", RowBox[{"Sort", "[", "um", "]"}]}]], "Input", CellChangeTimes->{{3.568807971988578*^9, 3.5688080897687845`*^9}, { 3.5688081769573374`*^9, 3.5688081865669546`*^9}, {3.568808274317109*^9, 3.5688082853151283`*^9}, {3.5688085365847692`*^9, 3.568808578330443*^9}, { 3.568808822704872*^9, 3.5688088761037655`*^9}, {3.56880890727262*^9, 3.568808937365073*^9}, {3.568809097608555*^9, 3.5688091594002633`*^9}, 3.5688092418308077`*^9, {3.5688092753552666`*^9, 3.568809302577315*^9}, { 3.5688096257786827`*^9, 3.568809703201618*^9}, {3.5688097456336927`*^9, 3.568809788268568*^9}, 3.568809850575077*^9, {3.568809946562046*^9, 3.5688099535664577`*^9}, {3.5688100003197403`*^9, 3.568810008556555*^9}, { 3.568810075371472*^9, 3.56881007981748*^9}, {3.568813431920168*^9, 3.568813533086345*^9}, {3.5688135960324554`*^9, 3.5688136045344706`*^9}, { 3.5688136407889347`*^9, 3.568813707494652*^9}, {3.568813812529636*^9, 3.5688138275524626`*^9}, {3.5688140611940727`*^9, 3.568814062738476*^9}, { 3.568814121113778*^9, 3.5688141965555105`*^9}, {3.568814326675339*^9, 3.568814331074547*^9}, 3.568814589473401*^9, {3.5688146762563534`*^9, 3.5688146945707855`*^9}}], Cell[BoxData[ RowBox[{"{", RowBox[{ RowBox[{"{", RowBox[{"\<\"C\"\>", ",", "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->{3.574482758691042*^9, 3.574483060005571*^9, 3.574484427051572*^9, 3.574484497251695*^9, 3.5744848842727747`*^9, 3.57448505793228*^9, 3.574485204806538*^9, 3.5744852990931034`*^9, 3.5744911330457106`*^9, 3.5744914614730873`*^9, 3.574491875029814*^9, 3.5744921177818403`*^9, 3.574492198558782*^9, 3.574492368677081*^9, 3.574492438768004*^9, 3.5744925616806197`*^9, 3.574499246169556*^9, 3.574499304248458*^9, 3.5744993913434114`*^9, 3.5744994980631986`*^9, 3.5744997199423885`*^9, 3.5745008847528343`*^9, 3.57450094521854*^9, 3.574501072077963*^9, 3.5745011365528765`*^9, 3.5745011684393325`*^9, 3.574501236174651*^9, 3.5745028432970715`*^9, 3.5745030447090254`*^9, 3.5745030948475137`*^9, 3.575261163811077*^9, 3.5752612331531987`*^9, 3.575261750855708*^9, 3.5752656894726257`*^9}] }, Open ]], Cell[CellGroupData[{ Cell[BoxData[ RowBox[{"num", "=", RowBox[{"Table", "[", RowBox[{ RowBox[{"us", "[", RowBox[{"[", RowBox[{"i", ",", "2"}], "]"}], "]"}], ",", RowBox[{"{", RowBox[{"i", ",", "1", ",", "n"}], "}"}]}], "]"}]}]], "Input", CellChangeTimes->{{3.56881016518083*^9, 3.5688102745058217`*^9}, { 3.5688103430679426`*^9, 3.5688103543155622`*^9}, {3.5688124958093233`*^9, 3.568812496386524*^9}, {3.5688126345871673`*^9, 3.568812635491969*^9}, { 3.568812673025635*^9, 3.5688126732128353`*^9}, {3.5688127492161684`*^9, 3.568812848541543*^9}, 3.5688129280080824`*^9, {3.568813062152718*^9, 3.5688131360032477`*^9}, 3.568813172678912*^9, 3.568821701869093*^9}], Cell[BoxData[ RowBox[{"{", RowBox[{ "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->{3.5744827587066417`*^9, 3.5744830600211706`*^9, 3.574484427067172*^9, 3.574484497267295*^9, 3.574484884288375*^9, 3.57448505794788*^9, 3.574485204822138*^9, 3.5744852991087036`*^9, 3.5744911330457106`*^9, 3.5744914614730873`*^9, 3.574491875045414*^9, 3.5744921177818403`*^9, 3.574492198558782*^9, 3.574492368677081*^9, 3.5744924387836037`*^9, 3.5744925616962194`*^9, 3.574499246169556*^9, 3.574499304264058*^9, 3.5744993913434114`*^9, 3.574499498078799*^9, 3.5744997199423885`*^9, 3.574500884768434*^9, 3.5745009452341404`*^9, 3.574501072077963*^9, 3.5745011365528765`*^9, 3.5745011684393325`*^9, 3.574501236174651*^9, 3.5745028432970715`*^9, 3.5745030447090254`*^9, 3.5745030948631134`*^9, 3.5752611638266773`*^9, 3.5752612331531987`*^9, 3.575261750855708*^9, 3.575265689488226*^9}] }, Open ]], Cell[BoxData[ RowBox[{ RowBox[{"For", "[", RowBox[{ RowBox[{"i", "=", "1"}], ",", RowBox[{"i", "<", RowBox[{"n", "+", "1"}]}], ",", RowBox[{"i", "++"}], ",", RowBox[{"If", "[", RowBox[{ RowBox[{ RowBox[{"us", "[", RowBox[{"[", RowBox[{"i", ",", "1"}], "]"}], "]"}], "\[Equal]", "\"\\""}], ",", RowBox[{ RowBox[{"us", "[", RowBox[{"[", RowBox[{"i", ",", "1"}], "]"}], "]"}], "=", "\"\\""}]}], "]"}]}], "]"}], ";"}]], "Input", CellChangeTimes->{{3.568277663590458*^9, 3.568277712652544*^9}, 3.5682785838808746`*^9, {3.56880682872497*^9, 3.568806862015428*^9}, 3.5688069650848093`*^9, 3.568807273668951*^9, 3.5688073087846127`*^9, { 3.568807384553946*^9, 3.5688073893119545`*^9}, {3.56881489654434*^9, 3.5688149048591547`*^9}, {3.568821714349115*^9, 3.568821718951123*^9}}], Cell[CellGroupData[{ Cell[BoxData[{ RowBox[{"u1", "=", RowBox[{"Table", "[", RowBox[{ RowBox[{"If", "[", RowBox[{ RowBox[{ RowBox[{"us", "[", RowBox[{"[", RowBox[{"i", ",", "1"}], "]"}], "]"}], "\[Equal]", "\"\\""}], ",", "0.255", ",", RowBox[{"If", "[", RowBox[{ RowBox[{ RowBox[{"us", "[", RowBox[{"[", RowBox[{"i", ",", "1"}], "]"}], "]"}], "\[Equal]", "\"\\""}], ",", "0.12", ",", RowBox[{"If", "[", RowBox[{ RowBox[{ RowBox[{"us", "[", RowBox[{"[", RowBox[{"i", ",", "1"}], "]"}], "]"}], "\[Equal]", "\"\\""}], ",", "0.24", ",", RowBox[{"If", "[", RowBox[{ RowBox[{ RowBox[{"us", "[", RowBox[{"[", RowBox[{"i", ",", "1"}], "]"}], "]"}], "\[Equal]", "\"\\""}], ",", "0.178", ",", RowBox[{"If", "[", RowBox[{ RowBox[{ RowBox[{"us", "[", RowBox[{"[", RowBox[{"i", ",", "1"}], "]"}], "]"}], "\[Equal]", "\"\\""}], ",", "0.5"}], "]"}]}], "]"}]}], "]"}]}], "]"}]}], "]"}], ",", RowBox[{"{", RowBox[{"i", ",", "1", ",", "n"}], "}"}]}], "]"}]}], "\[IndentingNewLine]", RowBox[{"u2", "=", RowBox[{"Table", "[", RowBox[{ RowBox[{"If", "[", RowBox[{ RowBox[{ RowBox[{"us", "[", RowBox[{"[", RowBox[{"i", ",", "1"}], "]"}], "]"}], "\[Equal]", "\"\\""}], ",", "0.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->{3.5744827587222414`*^9, 3.574483060036771*^9, 3.5744844270827723`*^9, 3.574484497282895*^9, 3.574484884303975*^9, 3.57448505796348*^9, 3.574485204837738*^9, 3.574485299124304*^9, 3.574491133061311*^9, 3.5744914614886875`*^9, 3.574491875045414*^9, 3.5744921177974405`*^9, 3.574492198574382*^9, 3.574492368692681*^9, 3.5744924387836037`*^9, 3.5744925617118196`*^9, 3.574499246185156*^9, 3.574499304264058*^9, 3.574499391359011*^9, 3.5744994980943985`*^9, 3.5744997199579887`*^9, 3.574500884768434*^9, 3.5745009452341404`*^9, 3.574501072093563*^9, 3.5745011365684767`*^9, 3.574501168454932*^9, 3.5745012361902514`*^9, 3.5745028433126717`*^9, 3.574503044740226*^9, 3.5745030948787136`*^9, 3.5752611638422775`*^9, 3.575261233168799*^9, 3.5752617508713083`*^9, 3.575265689488226*^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.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->{3.5744827587222414`*^9, 3.574483060036771*^9, 3.5744844270827723`*^9, 3.574484497282895*^9, 3.574484884303975*^9, 3.57448505796348*^9, 3.574485204837738*^9, 3.574485299124304*^9, 3.574491133061311*^9, 3.5744914614886875`*^9, 3.574491875045414*^9, 3.5744921177974405`*^9, 3.574492198574382*^9, 3.574492368692681*^9, 3.5744924387836037`*^9, 3.5744925617118196`*^9, 3.574499246185156*^9, 3.574499304264058*^9, 3.574499391359011*^9, 3.5744994980943985`*^9, 3.5744997199579887`*^9, 3.574500884768434*^9, 3.5745009452341404`*^9, 3.574501072093563*^9, 3.5745011365684767`*^9, 3.574501168454932*^9, 3.5745012361902514`*^9, 3.5745028433126717`*^9, 3.574503044740226*^9, 3.5745030948787136`*^9, 3.5752611638422775`*^9, 3.575261233168799*^9, 3.5752617508713083`*^9, 3.575265689488226*^9}] }, Open ]], Cell[CellGroupData[{ Cell[BoxData[ RowBox[{"u", "=", RowBox[{"Table", "[", RowBox[{ RowBox[{"us", "[", RowBox[{"[", RowBox[{"i", ",", "1"}], "]"}], "]"}], ",", RowBox[{"{", RowBox[{"i", ",", "1", ",", "n"}], "}"}]}], "]"}]}]], "Input", CellChangeTimes->{{3.5679472243083935`*^9, 3.567947394894693*^9}, { 3.567947453425996*^9, 3.567947471241227*^9}, {3.5679475415037503`*^9, 3.5679475448733563`*^9}, {3.5679488138107853`*^9, 3.567948820877598*^9}, { 3.568820296244224*^9, 3.5688203477867146`*^9}, {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->{3.5744827587378416`*^9, 3.574483060052371*^9, 3.574484427098372*^9, 3.5744844972984953`*^9, 3.5744848843195753`*^9, 3.57448505796348*^9, 3.574485204837738*^9, 3.574485299124304*^9, 3.5744911330769105`*^9, 3.5744914615042877`*^9, 3.5744918750610137`*^9, 3.5744921178130403`*^9, 3.574492198589982*^9, 3.5744923687082806`*^9, 3.574492438799204*^9, 3.57449256172742*^9, 3.574499246200756*^9, 3.5744993042796583`*^9, 3.574499391374611*^9, 3.5744994980943985`*^9, 3.5744997199735885`*^9, 3.574500884784034*^9, 3.5745009452497406`*^9, 3.5745010721091633`*^9, 3.5745011365840764`*^9, 3.5745011684705324`*^9, 3.5745012362058516`*^9, 3.574502843328272*^9, 3.5745030447558255`*^9, 3.574503094894314*^9, 3.5752611638578773`*^9, 3.5752612331843987`*^9, 3.5752617508869085`*^9, 3.575265689503826*^9}] }, 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->{3.5744827587378416`*^9, 3.574483060067971*^9, 3.5744844271139717`*^9, 3.5744844973140955`*^9, 3.5744848843195753`*^9, 3.57448505797908*^9, 3.5744852048533382`*^9, 3.5744852991399035`*^9, 3.5744911330925107`*^9, 3.574491461519888*^9, 3.574491875076614*^9, 3.57449211782864*^9, 3.574492198589982*^9, 3.574492368723881*^9, 3.574492438814804*^9, 3.57449256174302*^9, 3.574499246200756*^9, 3.5744993042952585`*^9, 3.574499391390211*^9, 3.5744994981099987`*^9, 3.5744997199735885`*^9, 3.574500884799634*^9, 3.5745009452653403`*^9, 3.5745010721247635`*^9, 3.5745011365840764`*^9, 3.5745011684705324`*^9, 3.5745012362058516`*^9, 3.574502843343872*^9, 3.5745030447558255`*^9, 3.574503094909914*^9, 3.5752611638578773`*^9, 3.575261233199999*^9, 3.5752617509025087`*^9, 3.5752656895194263`*^9}] }, Open ]], Cell[CellGroupData[{ Cell[BoxData[ RowBox[{"cn", "=", RowBox[{"Table", "[", RowBox[{ RowBox[{"If", "[", RowBox[{ RowBox[{ RowBox[{"u", "[", RowBox[{"[", "i", "]"}], "]"}], "\[Equal]", "\"\\""}], ",", "6.0", ",", RowBox[{"If", "[", RowBox[{ RowBox[{ RowBox[{"u", "[", RowBox[{"[", "i", "]"}], "]"}], "\[Equal]", "\"\\""}], ",", "1.0", ",", RowBox[{"If", "[", RowBox[{ RowBox[{ RowBox[{"u", "[", RowBox[{"[", "i", "]"}], "]"}], "\[Equal]", "\"\\""}], ",", "7.0", ",", RowBox[{"If", "[", RowBox[{ RowBox[{ RowBox[{"u", "[", RowBox[{"[", "i", "]"}], "]"}], "\[Equal]", "\"\\""}], ",", "8.0", ",", RowBox[{"If", "[", RowBox[{ RowBox[{ RowBox[{"u", "[", RowBox[{"[", "i", "]"}], "]"}], "\[Equal]", "\"\\""}], ",", "17.0"}], "]"}]}], "]"}]}], "]"}]}], "]"}]}], "]"}], ",", RowBox[{"{", RowBox[{"i", ",", "1", ",", "n"}], "}"}]}], "]"}]}]], "Input", CellChangeTimes->{{3.5688224161787477`*^9, 3.5688224173799496`*^9}, { 3.5688224905908785`*^9, 3.568822500434496*^9}, 3.5692358293003073`*^9, 3.5692358676919746`*^9, {3.569344570581538*^9, 3.5693446110324097`*^9}}], Cell[BoxData[ RowBox[{"{", RowBox[{ "6.`", ",", "6.`", ",", "6.`", ",", "6.`", ",", "6.`", ",", "6.`", ",", "6.`", ",", "6.`", ",", "6.`", ",", "6.`", ",", "7.`", ",", "7.`", ",", "7.`", ",", "7.`", ",", "7.`", ",", "8.`", ",", "8.`", ",", "8.`", ",", "8.`", ",", "1.`", ",", "1.`", ",", "1.`", ",", "1.`", ",", "1.`", ",", "1.`", ",", "1.`", ",", "1.`", ",", "1.`", ",", "1.`", ",", "1.`", ",", "1.`", ",", "1.`"}], "}"}]], "Output", CellChangeTimes->{3.574482758753442*^9, 3.574483060067971*^9, 3.5744844271139717`*^9, 3.5744844973296957`*^9, 3.5744848843351755`*^9, 3.5744850579946804`*^9, 3.574485204868938*^9, 3.5744852991555033`*^9, 3.5744911330925107`*^9, 3.574491461519888*^9, 3.574491875092214*^9, 3.57449211782864*^9, 3.574492198605582*^9, 3.574492368723881*^9, 3.574492438814804*^9, 3.5744925617586203`*^9, 3.5744992462163563`*^9, 3.5744993042952585`*^9, 3.574499391390211*^9, 3.574499498125599*^9, 3.574499719989188*^9, 3.574500884799634*^9, 3.5745009452653403`*^9, 3.5745010721247635`*^9, 3.574501136599676*^9, 3.5745011684861326`*^9, 3.5745012362214513`*^9, 3.574502843343872*^9, 3.5745030447714252`*^9, 3.5745030949255137`*^9, 3.575261163873477*^9, 3.575261233215599*^9, 3.5752617509181085`*^9, 3.5752656895194263`*^9}] }, Open ]], Cell[CellGroupData[{ Cell[BoxData[{ RowBox[{ RowBox[{"bc", "=", "0"}], ";"}], "\[IndentingNewLine]", RowBox[{ RowBox[{"For", "[", RowBox[{ RowBox[{"i", "=", "1"}], ",", " ", RowBox[{"i", "<", RowBox[{"n", "+", "1"}]}], ",", RowBox[{"i", "++"}], ",", RowBox[{"If", "[", RowBox[{ RowBox[{ RowBox[{"u", "[", RowBox[{"[", "i", "]"}], "]"}], "\[NotEqual]", "\"\\""}], ",", " ", RowBox[{"bc", "=", RowBox[{"bc", "+", "1"}]}]}], "]"}]}], "]"}], ";"}], "\[IndentingNewLine]", "bc", "\[IndentingNewLine]", RowBox[{"bh", "=", RowBox[{"n", "-", "bc"}]}]}], "Input", CellChangeTimes->{{3.5688281182607965`*^9, 3.5688281434392405`*^9}, { 3.5691376772313223`*^9, 3.569137733516221*^9}, {3.569234042049968*^9, 3.569234051519184*^9}, 3.5692372799312553`*^9}], Cell[BoxData["19"], "Output", CellChangeTimes->{3.574482758753442*^9, 3.574483060083571*^9, 3.574484427129572*^9, 3.5744844973452954`*^9, 3.5744848843507752`*^9, 3.5744850579946804`*^9, 3.574485204868938*^9, 3.5744852991555033`*^9, 3.574491133108111*^9, 3.5744914615354877`*^9, 3.574491875092214*^9, 3.57449211784424*^9, 3.574492198621182*^9, 3.574492368739481*^9, 3.5744924388304043`*^9, 3.57449256177422*^9, 3.5744992462319565`*^9, 3.5744993043108587`*^9, 3.5744993914058113`*^9, 3.574499498125599*^9, 3.5744997200047884`*^9, 3.574500884815234*^9, 3.57450094528094*^9, 3.574501072140363*^9, 3.5745011366152763`*^9, 3.5745011684861326`*^9, 3.5745012362214513`*^9, 3.5745028433594723`*^9, 3.5745030447870255`*^9, 3.5745030949411135`*^9, 3.575261163889077*^9, 3.575261233215599*^9, 3.5752617509181085`*^9, 3.5752656895350266`*^9}], Cell[BoxData["13"], "Output", CellChangeTimes->{3.574482758753442*^9, 3.574483060083571*^9, 3.574484427129572*^9, 3.5744844973452954`*^9, 3.5744848843507752`*^9, 3.5744850579946804`*^9, 3.574485204868938*^9, 3.5744852991555033`*^9, 3.574491133108111*^9, 3.5744914615354877`*^9, 3.574491875092214*^9, 3.57449211784424*^9, 3.574492198621182*^9, 3.574492368739481*^9, 3.5744924388304043`*^9, 3.57449256177422*^9, 3.5744992462319565`*^9, 3.5744993043108587`*^9, 3.5744993914058113`*^9, 3.574499498125599*^9, 3.5744997200047884`*^9, 3.574500884815234*^9, 3.57450094528094*^9, 3.574501072140363*^9, 3.5745011366152763`*^9, 3.5745011684861326`*^9, 3.5745012362214513`*^9, 3.5745028433594723`*^9, 3.5745030447870255`*^9, 3.5745030949411135`*^9, 3.575261163889077*^9, 3.575261233215599*^9, 3.5752617509181085`*^9, 3.5752656895350266`*^9}] }, Open ]], Cell[BoxData[{ RowBox[{ RowBox[{"DeleteFile", "[", " ", "\"\\"", "]"}], ";"}], "\[IndentingNewLine]", RowBox[{"For", "[", RowBox[{ RowBox[{"i", "=", "1"}], ",", RowBox[{"i", "<", RowBox[{"n", "+", "1"}]}], ",", RowBox[{"i", "++"}], ",", "\[IndentingNewLine]", RowBox[{ RowBox[{"{", RowBox[{ RowBox[{"u", "[", RowBox[{"[", "i", "]"}], "]"}], ",", RowBox[{"Extract", "[", RowBox[{"t1", ",", RowBox[{"{", "i", "}"}]}], "]"}]}], "}"}], ">>>", " ", "\"\\""}]}], "]"}]}], "Input", CellChangeTimes->{{3.567869377256353*^9, 3.5678694101568108`*^9}, { 3.5678695244894114`*^9, 3.56786953511303*^9}, 3.56786988243204*^9, 3.5678699252853155`*^9, {3.567870069179968*^9, 3.5678700766835814`*^9}, { 3.5678703216664114`*^9, 3.567870325738019*^9}, 3.5679271251072817`*^9, { 3.567942840466694*^9, 3.567942854381918*^9}, {3.567942932272855*^9, 3.567942950509287*^9}, 3.5679430681802936`*^9, {3.568278272060727*^9, 3.56827827391713*^9}, 3.5688732159559383`*^9, 3.568910867631465*^9, 3.5689997098549547`*^9, 3.5689998170427427`*^9, 3.5689998869620657`*^9, { 3.569059200815255*^9, 3.5690592031552596`*^9}, 3.5691460426137285`*^9, 3.569237204520723*^9, 3.569237465836782*^9, 3.56923802264856*^9, 3.5693403424181123`*^9, 3.569340450198702*^9, 3.569340738019207*^9, 3.569340852851009*^9, {3.5693411655067577`*^9, 3.5693411655067577`*^9}, 3.5693414976001415`*^9, {3.5693416978420925`*^9, 3.569341705314506*^9}, 3.569342614421703*^9, 3.5693435671777763`*^9, 3.569343662727944*^9, 3.5693437636289215`*^9, 3.5693440709750605`*^9, 3.5693442662562037`*^9, { 3.5702975520309644`*^9, 3.570297552764166*^9}, {3.5705591717487917`*^9, 3.5705591791432047`*^9}}], Cell[CellGroupData[{ Cell[BoxData[{ RowBox[{ RowBox[{"t", "=", RowBox[{"Table", "[", RowBox[{ RowBox[{"t1", "[", RowBox[{"[", RowBox[{"num", "[", RowBox[{"[", "i", "]"}], "]"}], "]"}], "]"}], ",", RowBox[{"{", RowBox[{"i", ",", "1", ",", "n"}], "}"}]}], "]"}]}], ";"}], "\[IndentingNewLine]", RowBox[{ RowBox[{"Plot1o", "=", RowBox[{"Table", "[", RowBox[{ RowBox[{"Graphics3D", "[", RowBox[{"{", RowBox[{ RowBox[{"Opacity", "[", "0.8", "]"}], ",", RowBox[{"If", "[", RowBox[{ RowBox[{ RowBox[{"u", "[", RowBox[{"[", "i", "]"}], "]"}], "\[Equal]", "\"\\""}], ",", RowBox[{"Lighter", "[", "Blue", "]"}], ",", RowBox[{"If", "[", RowBox[{ RowBox[{ RowBox[{"u", "[", RowBox[{"[", "i", "]"}], "]"}], "\[Equal]", "\"\\""}], ",", RowBox[{"Lighter", "[", "White", "]"}], ",", RowBox[{"If", "[", RowBox[{ RowBox[{ RowBox[{"u", "[", RowBox[{"[", "i", "]"}], "]"}], "\[Equal]", "\"\\""}], ",", RowBox[{"Lighter", "[", "Red", "]"}], ",", RowBox[{"If", "[", RowBox[{ RowBox[{ RowBox[{"u", "[", RowBox[{"[", "i", "]"}], "]"}], "\[Equal]", "\"\\""}], ",", RowBox[{"Lighter", "[", "Green", "]"}], ",", RowBox[{"If", "[", RowBox[{ RowBox[{ RowBox[{"u", "[", RowBox[{"[", "i", "]"}], "]"}], "\[Equal]", "\"\\""}], ",", RowBox[{"Lighter", "[", "Orange", "]"}], ",", RowBox[{"Darker", "[", "Brown", "]"}]}], "]"}]}], "]"}]}], "]"}]}], "]"}]}], "]"}], ",", RowBox[{"Sphere", "[", RowBox[{ RowBox[{"{", RowBox[{ RowBox[{"t", "[", RowBox[{"[", RowBox[{"i", ",", "1"}], "]"}], "]"}], ",", RowBox[{"t", "[", RowBox[{"[", RowBox[{"i", ",", "2"}], "]"}], "]"}], ",", RowBox[{"t", "[", RowBox[{"[", RowBox[{"i", ",", "3"}], "]"}], "]"}]}], "}"}], ",", RowBox[{"u1", "[", RowBox[{"[", "i", "]"}], "]"}]}], "]"}]}], "}"}], "]"}], ",", RowBox[{"{", RowBox[{"i", ",", "1", ",", "n"}], "}"}]}], "]"}]}], ";"}], "\[IndentingNewLine]", RowBox[{ RowBox[{"Plot2", "=", RowBox[{"Table", "[", RowBox[{ RowBox[{"Graphics3D", "[", RowBox[{"Text", "[", RowBox[{"i", ",", RowBox[{"{", RowBox[{ RowBox[{ RowBox[{"t", "[", RowBox[{"[", RowBox[{"i", ",", "1"}], "]"}], "]"}], "-", "0.6"}], ",", RowBox[{"t", "[", RowBox[{"[", RowBox[{"i", ",", "2"}], "]"}], "]"}], ",", RowBox[{"t", "[", RowBox[{"[", RowBox[{"i", ",", "3"}], "]"}], "]"}]}], "}"}], " ", ",", RowBox[{"{", RowBox[{"1", ",", "0"}], "}"}]}], "]"}], "]"}], ",", RowBox[{"{", RowBox[{"i", ",", "1", ",", "n"}], "}"}]}], "]"}]}], ";"}], "\[IndentingNewLine]", RowBox[{"Show", "[", RowBox[{"Plot1o", ",", "Plot2", ",", RowBox[{"{", RowBox[{ RowBox[{"AspectRatio", "\[Rule]", "Automatic"}], ",", RowBox[{"Boxed", "\[Rule]", "True"}], ",", " ", RowBox[{"Axes", "\[Rule]", "Automatic"}], ",", RowBox[{"AxesLabel", "\[Rule]", RowBox[{"{", RowBox[{"xl", ",", "yl", ",", "zl"}], "}"}]}], ",", RowBox[{"SphericalRegion", "\[Rule]", "True"}]}], "}"}]}], "]"}]}], "Input", CellChangeTimes->{{3.567869377256353*^9, 3.567869394073182*^9}, { 3.5678694248832364`*^9, 3.5678694526200852`*^9}, {3.5678694891241493`*^9, 3.5678694955045605`*^9}, {3.567869596046737*^9, 3.567869602645549*^9}, 3.56786971175214*^9, {3.5678697908910794`*^9, 3.567869798800293*^9}, { 3.5679434548425727`*^9, 3.5679434621121855`*^9}, 3.568011875875622*^9, 3.56811435956207*^9, {3.5682782821071444`*^9, 3.5682782839479475`*^9}, { 3.5688205455482616`*^9, 3.5688206262784038`*^9}, 3.5688208026055136`*^9, 3.5688732159559383`*^9, 3.568910867631465*^9, {3.5689830694736805`*^9, 3.568983072687286*^9}, {3.5725833074418383`*^9, 3.5725833223398647`*^9}, { 3.572583642982828*^9, 3.572583671421678*^9}, {3.572584036290719*^9, 3.5725840766323895`*^9}, {3.572584986320788*^9, 3.572585000719613*^9}, { 3.572585104865396*^9, 3.5725851158790154`*^9}, 3.5726667135591345`*^9, { 3.5727958552609696`*^9, 3.5727958810478153`*^9}, {3.5727959717619743`*^9, 3.5727959736963778`*^9}, {3.572796004615632*^9, 3.572796064270137*^9}, { 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->{3.574482758831442*^9, 3.5744830601459713`*^9, 3.5744844271763725`*^9, 3.5744844973920956`*^9, 3.5744848843975754`*^9, 3.57448505804148*^9, 3.574485204915738*^9, 3.574485299202304*^9, 3.574491133154911*^9, 3.574491461582288*^9, 3.5744918751390142`*^9, 3.5744921178910403`*^9, 3.574492198652382*^9, 3.574492368786281*^9, 3.574492438877204*^9, 3.57449256182102*^9, 3.574499246278756*^9, 3.5744993043576584`*^9, 3.5744993914526114`*^9, 3.574499498187999*^9, 3.574499720051588*^9, 3.5745008848620343`*^9, 3.5745009453277407`*^9, 3.5745010721871634`*^9, 3.5745011366620765`*^9, 3.5745011685329323`*^9, 3.5745012362682514`*^9, 3.574502843406272*^9, 3.574503044833826*^9, 3.574503094987914*^9, 3.5752611639670773`*^9, 3.575261233262399*^9, 3.5752617509649086`*^9, 3.575265689581826*^9}] }, 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->{3.574482758925042*^9, 3.5744830603175716`*^9, 3.5744844272699723`*^9, 3.574484497485696*^9, 3.5744848844755754`*^9, 3.5744850581350803`*^9, 3.5744852050093384`*^9, 3.574485299295904*^9, 3.574491133248511*^9, 3.574491461660288*^9, 3.574491875232614*^9, 3.57449211798464*^9, 3.574492198745982*^9, 3.574492368864281*^9, 3.574492438970804*^9, 3.5744925619146204`*^9, 3.574499246356756*^9, 3.5744993044356585`*^9, 3.5744993915306115`*^9, 3.574499498265999*^9, 3.574499720129589*^9, 3.574500884955634*^9, 3.574500945421341*^9, 3.5745010722651634`*^9, 3.5745011367556767`*^9, 3.5745011686265326`*^9, 3.5745012363618517`*^9, 3.574502843499872*^9, 3.5745030449274263`*^9, 3.574503095081514*^9, 3.5752611640450773`*^9, 3.575261233355999*^9, 3.575261751058509*^9, 3.5752656896598263`*^9}] }, Open ]], Cell[CellGroupData[{ Cell[BoxData[ RowBox[{ StyleBox[ RowBox[{"(*", " ", RowBox[{"Distance", " ", "Matrix", " ", "Bohr"}], " ", "*)"}], "Text"], "\[IndentingNewLine]", RowBox[{ RowBox[{ RowBox[{"dc", "=", RowBox[{"Table", "[", RowBox[{ RowBox[{"Norm", "[", RowBox[{ RowBox[{"t", "[", RowBox[{"[", "i", "]"}], "]"}], "-", RowBox[{"t", "[", RowBox[{"[", "j", "]"}], "]"}]}], "]"}], ",", RowBox[{"{", RowBox[{"i", ",", "1", ",", "n"}], "}"}], ",", RowBox[{"{", RowBox[{"j", ",", "1", ",", "n"}], "}"}]}], "]"}]}], ";"}], "\[IndentingNewLine]", RowBox[{"MatrixForm", "[", RowBox[{"Prepend", "[", RowBox[{"dc", ",", "num1"}], "]"}], "]"}]}]}]], "Input", CellChangeTimes->{{3.5678630319943895`*^9, 3.5678630956269007`*^9}, { 3.5678632280087337`*^9, 3.567863228336334*^9}, {3.5678632621727934`*^9, 3.5678633509213495`*^9}, {3.5678644293824434`*^9, 3.567864451908883*^9}, { 3.567864923404111*^9, 3.56786494544695*^9}, {3.5678650143210707`*^9, 3.5678650845367947`*^9}, {3.567869231084096*^9, 3.5678692412397137`*^9}, 3.5678693168686466`*^9, {3.5678704450470285`*^9, 3.5678704621290584`*^9}, 3.5682783281584253`*^9, 3.5688732159715385`*^9, 3.568910867647065*^9, 3.5689997098549547`*^9, 3.5689998170427427`*^9, 3.5689998869620657`*^9, 3.5691460426137285`*^9, 3.569237204536323*^9, 3.5692374658523817`*^9, 3.56923802264856*^9, 3.5693403424181123`*^9, 3.5693404502143016`*^9, 3.569340738019207*^9, 3.569340852851009*^9, 3.5693411655067577`*^9, 3.5693414978029413`*^9, 3.5693426144373026`*^9, 3.5693435671777763`*^9, 3.569343662743544*^9, 3.569343763644521*^9, 3.569344071177861*^9, 3.569344266271804*^9, 3.570297558707776*^9, {3.5703416079688015`*^9, 3.570341617375618*^9}, {3.5705956885798426`*^9, 3.5705957106070814`*^9}, { 3.5705965150536942`*^9, 3.5705965239457097`*^9}, {3.5720162655168724`*^9, 3.5720163727202606`*^9}, {3.5720166425383344`*^9, 3.572016643427536*^9}, { 3.5723503054303513`*^9, 3.572350361964851*^9}}], Cell[BoxData[ TagBox[ RowBox[{"(", "\[NoBreak]", GridBox[{ {"1", "2", "3", "4", "5", "6", "7", "8", "9", "10", "11", "12", "13", "14", "15", "16", "17", "18", "19", "20", "21", "22", "23", "24", "25", "26", "27", "28", "29", "30", "31", "32"}, {"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->{3.574482758956242*^9, 3.5744830603643713`*^9, 3.5744844273011723`*^9, 3.5744844975168953`*^9, 3.574484884506776*^9, 3.5744850581662807`*^9, 3.5744852050405383`*^9, 3.574485299327104*^9, 3.574491133279711*^9, 3.574491461691488*^9, 3.574491875263814*^9, 3.5744921180158405`*^9, 3.5744921987771826`*^9, 3.574492368895481*^9, 3.5744924389864044`*^9, 3.5744925619458203`*^9, 3.5744992463879566`*^9, 3.574499304466859*^9, 3.5744993915618114`*^9, 3.5744994982971992`*^9, 3.5744997201607885`*^9, 3.5745008849868345`*^9, 3.574500945436941*^9, 3.574501072296364*^9, 3.5745011367712765`*^9, 3.574501168657733*^9, 3.5745012363930516`*^9, 3.5745028435154724`*^9, 3.574503044958626*^9, 3.574503095112714*^9, 3.5752611640762777`*^9, 3.5752612333871994`*^9, 3.5752617510897083`*^9, 3.5752656896910267`*^9}] }, Open ]], Cell[BoxData[{ RowBox[{ RowBox[{"x", "=", RowBox[{"Table", "[", RowBox[{ RowBox[{"t", "[", RowBox[{"[", RowBox[{"i", ",", "1"}], "]"}], "]"}], ",", RowBox[{"{", RowBox[{"i", ",", "1", ",", "n"}], "}"}]}], "]"}]}], ";"}], "\[IndentingNewLine]", RowBox[{ RowBox[{"y", "=", RowBox[{"Table", "[", RowBox[{ RowBox[{"t", "[", RowBox[{"[", RowBox[{"i", ",", "2"}], "]"}], "]"}], ",", RowBox[{"{", RowBox[{"i", ",", "1", ",", "n"}], "}"}]}], "]"}]}], ";"}], "\[IndentingNewLine]", RowBox[{ RowBox[{"z", "=", RowBox[{"Table", "[", RowBox[{ RowBox[{"t", "[", RowBox[{"[", RowBox[{"i", ",", "3"}], "]"}], "]"}], ",", RowBox[{"{", RowBox[{"i", ",", "1", ",", "n"}], "}"}]}], "]"}]}], ";"}]}], "Input", CellChangeTimes->{{3.5678630319943895`*^9, 3.5678630956269007`*^9}, { 3.5678632280087337`*^9, 3.567863228336334*^9}, {3.5678632621727934`*^9, 3.5678633509213495`*^9}, {3.5678644293824434`*^9, 3.567864451908883*^9}, { 3.567864923404111*^9, 3.56786494544695*^9}, {3.5678650143210707`*^9, 3.5678650845367947`*^9}, {3.567869231084096*^9, 3.567869278118179*^9}, { 3.5682778102931156`*^9, 3.5682778156907253`*^9}, 3.571808490989086*^9, { 3.572601938592864*^9, 3.572601945722077*^9}}], Cell[CellGroupData[{ Cell[BoxData[ RowBox[{ RowBox[{"(*", " ", RowBox[{"connected", " ", RowBox[{"pairs", ":", " ", RowBox[{ RowBox[{"distance", " ", "criteria"}], " ", "<", " ", RowBox[{"3.0", " ", "bohr"}]}]}]}], " ", "*)"}], "\[IndentingNewLine]", RowBox[{ RowBox[{ RowBox[{"Dij", "=", RowBox[{"Table", "[", RowBox[{ RowBox[{"If", "[", RowBox[{ RowBox[{"(", RowBox[{ RowBox[{ RowBox[{"dc", "[", RowBox[{"[", RowBox[{"i", ",", "j"}], "]"}], "]"}], "<", "3.0"}], "||", RowBox[{"(", RowBox[{ RowBox[{ RowBox[{"u", "[", RowBox[{"[", "i", "]"}], "]"}], "\[Equal]", "\"\\""}], " ", "&&", " ", RowBox[{ 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->{3.574482759003042*^9, 3.5744830603799715`*^9, 3.5744844273167725`*^9, 3.5744844975324955`*^9, 3.5744848845379753`*^9, 3.5744850581818805`*^9, 3.5744852050561385`*^9, 3.574485299358304*^9, 3.574491133310911*^9, 3.5744914617226877`*^9, 3.574491875279414*^9, 3.5744921180314407`*^9, 3.5744921987927823`*^9, 3.5744923689266815`*^9, 3.5744924390176044`*^9, 3.57449256196142*^9, 3.5744992464191566`*^9, 3.5744993044980583`*^9, 3.574499391593012*^9, 3.5744994983127995`*^9, 3.574499720191989*^9, 3.5745008850024347`*^9, 3.5745009454681406`*^9, 3.5745010723275633`*^9, 3.574501136802477*^9, 3.574501168688933*^9, 3.5745012364242516`*^9, 3.5745028435466723`*^9, 3.574503044989826*^9, 3.574503095128314*^9, 3.5752611641074777`*^9, 3.5752612334027996`*^9, 3.5752617511053085`*^9, 3.575265689722226*^9}] }, Open ]], Cell[CellGroupData[{ Cell[BoxData[ RowBox[{ RowBox[{"(*", " ", RowBox[{"count", " ", "C", " ", "atoms"}], " ", "*)"}], "\[IndentingNewLine]", RowBox[{ RowBox[{ RowBox[{"nc", "=", "0"}], ";"}], " ", "\n", RowBox[{"For", "[", RowBox[{ RowBox[{"i", "=", "1"}], ",", RowBox[{"i", "<", RowBox[{"bc", "+", "1"}]}], ",", RowBox[{"i", "++"}], ",", RowBox[{"If", "[", RowBox[{ RowBox[{ RowBox[{"u", "[", RowBox[{"[", "i", "]"}], "]"}], "\[Equal]", "\"\\""}], ",", RowBox[{"nc", "=", RowBox[{"nc", "+", "1"}]}], ",", "nc"}], "]"}]}], "]"}], "\[IndentingNewLine]", RowBox[{ RowBox[{"cnt", "=", RowBox[{"Table", "[", RowBox[{"0", ",", RowBox[{"{", "nc", "}"}]}], "]"}]}], ";"}], "\[IndentingNewLine]", RowBox[{ RowBox[{"pri", "=", "cnt"}], ";", " ", RowBox[{"sec", "=", "cnt"}], ";", RowBox[{"ter", "=", "cnt"}], ";", " ", RowBox[{"qua", "=", "cnt"}], ";"}], "\[IndentingNewLine]", "nc"}]}]], "Input", CellChangeTimes->{{3.5688800293771057`*^9, 3.5688801774057655`*^9}, { 3.5688802290574565`*^9, 3.568880330208034*^9}, {3.5688803807053227`*^9, 3.5688804136525807`*^9}, 3.568880491434317*^9, 3.5688805648948464`*^9, { 3.5688806280437574`*^9, 3.568880655234605*^9}, {3.568880712424306*^9, 3.568880716324312*^9}, {3.5688808087544746`*^9, 3.568880827786508*^9}, 3.5688808733385878`*^9, {3.568881358936241*^9, 3.5688813959239063`*^9}, { 3.568881446561595*^9, 3.5688815849182377`*^9}, {3.5688816223739033`*^9, 3.568881642607139*^9}, 3.568881728953291*^9, {3.568881797624612*^9, 3.568881809870633*^9}, 3.568881863612727*^9, {3.568883098916497*^9, 3.5688831014749017`*^9}, {3.56888372124679*^9, 3.568883843239004*^9}, 3.568888211750622*^9, {3.5688882521546926`*^9, 3.5688885232519693`*^9}, { 3.5688885890840845`*^9, 3.5688885895052853`*^9}, {3.568888675773437*^9, 3.5688886914514647`*^9}, {3.568888736285943*^9, 3.5688887717760057`*^9}, { 3.5688888256429005`*^9, 3.5688888541441507`*^9}, {3.568892442649892*^9, 3.5688924499507046`*^9}, {3.568892758441247*^9, 3.5688927597360487`*^9}, { 3.5688928234309607`*^9, 3.5688928379389863`*^9}, {3.5708938149488974`*^9, 3.5708938463361526`*^9}, {3.570893920483083*^9, 3.5708939282050962`*^9}, { 3.570894700000852*^9, 3.5708947833985987`*^9}, {3.572528557136052*^9, 3.57252856181606*^9}, 3.57252899467002*^9, 3.572529147612689*^9, { 3.572529371395082*^9, 3.572529383875104*^9}, {3.572531374906601*^9, 3.5725313995390444`*^9}}], Cell[BoxData["10"], "Output", CellChangeTimes->{3.5744827590186424`*^9, 3.5744830603955717`*^9, 3.5744844273323727`*^9, 3.5744844975480957`*^9, 3.5744848845535755`*^9, 3.57448505819748*^9, 3.5744852050717382`*^9, 3.574485299358304*^9, 3.574491133326511*^9, 3.574491461738288*^9, 3.5744918752950144`*^9, 3.574492118047041*^9, 3.5744921988083825`*^9, 3.5744923689422812`*^9, 3.574492439033204*^9, 3.5744925619770203`*^9, 3.5744992464347568`*^9, 3.5744993045136585`*^9, 3.5744993916086116`*^9, 3.574499498328399*^9, 3.574499720207589*^9, 3.5745008850180345`*^9, 3.574500945483741*^9, 3.5745010723431635`*^9, 3.574501136818077*^9, 3.574501168688933*^9, 3.5745012364242516`*^9, 3.574502843562272*^9, 3.574503044989826*^9, 3.574503095143914*^9, 3.5752611641230774`*^9, 3.5752612334183993`*^9, 3.5752617511209087`*^9, 3.5752656897378263`*^9}] }, Open ]], Cell[CellGroupData[{ Cell[BoxData[ RowBox[{ RowBox[{"(*", " ", RowBox[{ "count", " ", "H", " ", "atoms", " ", "bonded", " ", "to", " ", "each", " ", "C", " ", "atom"}], " ", "*)"}], "\[IndentingNewLine]", RowBox[{ RowBox[{ RowBox[{"For", "[", RowBox[{ RowBox[{"j", "=", "1"}], ",", RowBox[{"j", "\[LessEqual]", "nc"}], ",", RowBox[{"j", "++"}], ",", "\[IndentingNewLine]", RowBox[{"For", "[", RowBox[{ RowBox[{"i", "=", RowBox[{"bc", "+", "1"}]}], ",", RowBox[{"i", "\[LessEqual]", "n"}], ",", RowBox[{"i", "++"}], ",", RowBox[{"If", "[", " ", RowBox[{ RowBox[{ RowBox[{"Dij", "[", RowBox[{"[", RowBox[{"i", ",", "j"}], "]"}], "]"}], "\[NotEqual]", "0"}], " ", ",", RowBox[{ RowBox[{"cnt", "[", RowBox[{"[", "j", "]"}], "]"}], "=", RowBox[{ RowBox[{"cnt", "[", RowBox[{"[", "j", "]"}], "]"}], "+", "1"}]}], ",", "0"}], "]"}]}], "]"}]}], "]"}], ";"}], "\[IndentingNewLine]", "cnt"}]}]], "Input", CellChangeTimes->{{3.5688800293771057`*^9, 3.5688801774057655`*^9}, { 3.5688802290574565`*^9, 3.568880330208034*^9}, {3.5688803807053227`*^9, 3.5688804136525807`*^9}, 3.568880491434317*^9, 3.5688805648948464`*^9, { 3.5688806280437574`*^9, 3.568880655234605*^9}, {3.568880712424306*^9, 3.568880716324312*^9}, {3.5688808087544746`*^9, 3.568880827786508*^9}, 3.5688808733385878`*^9, {3.568881358936241*^9, 3.5688813959239063`*^9}, { 3.568881446561595*^9, 3.5688815849182377`*^9}, {3.5688816223739033`*^9, 3.568881642607139*^9}, 3.568881728953291*^9, {3.568881797624612*^9, 3.568881809870633*^9}, 3.568881863612727*^9, {3.568883098916497*^9, 3.5688831014749017`*^9}, {3.56888372124679*^9, 3.568883843239004*^9}, 3.568888211750622*^9, {3.5688882521546926`*^9, 3.5688885232519693`*^9}, { 3.5688885890840845`*^9, 3.5688885895052853`*^9}, {3.568888675773437*^9, 3.5688886914514647`*^9}, {3.568888736285943*^9, 3.5688887717760057`*^9}, { 3.5688888256429005`*^9, 3.5688888541441507`*^9}, {3.568892442649892*^9, 3.5688924499507046`*^9}, {3.568892758441247*^9, 3.5688927597360487`*^9}, { 3.5688928234309607`*^9, 3.5688928379389863`*^9}, {3.5708938149488974`*^9, 3.5708938463361526`*^9}, {3.570893920483083*^9, 3.5708939282050962`*^9}, { 3.570894700000852*^9, 3.570894821930666*^9}, 3.5709437180911617`*^9, { 3.57252947817727*^9, 3.572529509876525*^9}, {3.5725312638188057`*^9, 3.572531289964452*^9}}], Cell[BoxData[ RowBox[{"{", RowBox[{ "1", ",", "0", ",", "0", ",", "0", ",", "1", ",", "1", ",", "1", ",", "1", ",", "1", ",", "2"}], "}"}]], "Output", CellChangeTimes->{3.5744827590186424`*^9, 3.574483060411172*^9, 3.5744844273479724`*^9, 3.574484497563696*^9, 3.5744848845535755`*^9, 3.5744850582130804`*^9, 3.5744852050873384`*^9, 3.574485299373904*^9, 3.574491133326511*^9, 3.574491461738288*^9, 3.5744918753106146`*^9, 3.5744921180626407`*^9, 3.5744921988083825`*^9, 3.574492368957881*^9, 3.5744924390488043`*^9, 3.5744925619926205`*^9, 3.5744992464347568`*^9, 3.5744993045136585`*^9, 3.5744993916086116`*^9, 3.574499498343999*^9, 3.574499720207589*^9, 3.5745008850336347`*^9, 3.574500945499341*^9, 3.5745010723431635`*^9, 3.574501136833677*^9, 3.5745011687045326`*^9, 3.5745012364398518`*^9, 3.574502843562272*^9, 3.574503045005426*^9, 3.5745030951595144`*^9, 3.5752611641230774`*^9, 3.575261233433999*^9, 3.575261751136509*^9, 3.5752656897378263`*^9}] }, Open ]], Cell[BoxData[ RowBox[{ RowBox[{"(*", " ", RowBox[{ RowBox[{"parse", " ", "into", " ", "prim"}], ",", " ", "sec", ",", " ", "tert", ",", " ", RowBox[{ "and", " ", "quart", " ", "C", " ", "cores", " ", "with", " ", "different", " ", "radii"}]}], " ", "*)"}], "\[IndentingNewLine]", RowBox[{ RowBox[{ RowBox[{"n1", "=", "0"}], ";", " ", RowBox[{"n2", "=", "0"}], ";", " ", RowBox[{"n3", "=", "0"}], ";", " ", RowBox[{"n4", "=", "0"}], ";"}], "\n", RowBox[{ RowBox[{"For", "[", RowBox[{ RowBox[{"i", "=", "1"}], ",", RowBox[{"i", "\[LessEqual]", "nc"}], ",", RowBox[{"i", "++"}], ",", "\[IndentingNewLine]", RowBox[{"If", "[", RowBox[{ RowBox[{ RowBox[{"cnt", "[", RowBox[{"[", "i", "]"}], "]"}], "\[Equal]", "3"}], ",", RowBox[{ RowBox[{"n1", "=", RowBox[{"n1", "+", "1"}]}], ";", RowBox[{ RowBox[{"pri", "[", RowBox[{"[", "n1", "]"}], "]"}], "=", "i"}]}], ",", "\[IndentingNewLine]", RowBox[{"If", "[", RowBox[{ RowBox[{ RowBox[{"cnt", "[", RowBox[{"[", "i", "]"}], "]"}], "\[Equal]", "2"}], ",", RowBox[{ RowBox[{"n2", "=", RowBox[{"n2", "+", "1"}]}], ";", RowBox[{ RowBox[{"sec", "[", RowBox[{"[", "n2", "]"}], "]"}], "=", "i"}]}], ",", "\[IndentingNewLine]", RowBox[{"If", "[", RowBox[{ RowBox[{ RowBox[{"cnt", "[", RowBox[{"[", "i", "]"}], "]"}], "\[Equal]", "1"}], ",", RowBox[{ RowBox[{"n3", "=", RowBox[{"n3", "+", "1"}]}], ";", RowBox[{ RowBox[{"ter", "[", RowBox[{"[", "n3", "]"}], "]"}], "=", "i"}]}], ",", "\[IndentingNewLine]", RowBox[{"If", "[", RowBox[{ RowBox[{ RowBox[{"cnt", "[", RowBox[{"[", "i", "]"}], "]"}], "=", "0"}], ",", RowBox[{ RowBox[{"n4", "=", RowBox[{"n4", "+", "1"}]}], ";", RowBox[{ RowBox[{"qua", "[", RowBox[{"[", "n4", "]"}], "]"}], "=", "i"}]}]}], "]"}]}], "]"}]}], "]"}]}], "]"}]}], "]"}], ";"}], "\[IndentingNewLine]", RowBox[{"For", " ", "[", RowBox[{ RowBox[{"i", "=", "1"}], ",", " ", RowBox[{"i", "\[LessEqual]", "nc"}], ",", RowBox[{"i", "++"}], ",", RowBox[{"If", "[", RowBox[{ RowBox[{ RowBox[{"pri", "[", RowBox[{"[", "i", "]"}], "]"}], "\[NotEqual]", "0"}], ",", RowBox[{ RowBox[{"u2", "[", RowBox[{"[", RowBox[{"pri", "[", RowBox[{"[", "i", "]"}], "]"}], "]"}], "]"}], "=", "0.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->{3.5744827590342426`*^9, 3.5744830604267716`*^9, 3.574484427363572*^9, 3.574484497579296*^9, 3.5744848845691757`*^9, 3.5744850582286806`*^9, 3.5744852051029387`*^9, 3.5744852993895044`*^9, 3.574491133342111*^9, 3.574491461753888*^9, 3.5744918753262143`*^9, 3.574492118078241*^9, 3.5744921988239822`*^9, 3.574492368973481*^9, 3.5744924390644045`*^9, 3.5744925620082207`*^9, 3.5744992464503565`*^9, 3.5744993045292587`*^9, 3.5744993916242113`*^9, 3.574499498359599*^9, 3.574499720223189*^9, 3.5745008850492344`*^9, 3.5745009455149407`*^9, 3.5745010723587637`*^9, 3.5745011368492765`*^9, 3.574501168720133*^9, 3.574501236455452*^9, 3.5745028435778723`*^9, 3.5745030450210257`*^9, 3.574503095175114*^9, 3.5752611641386776`*^9, 3.5752612334495993`*^9, 3.575261751152109*^9, 3.5752656897534266`*^9}], Cell[BoxData[ RowBox[{"2.5265011662250796`", "\[PlusMinus]", "0.00007595345452428381`"}]], "Output", CellChangeTimes->{3.5744827590342426`*^9, 3.5744830604267716`*^9, 3.574484427363572*^9, 3.574484497579296*^9, 3.5744848845691757`*^9, 3.5744850582286806`*^9, 3.5744852051029387`*^9, 3.5744852993895044`*^9, 3.574491133342111*^9, 3.574491461753888*^9, 3.5744918753262143`*^9, 3.574492118078241*^9, 3.5744921988239822`*^9, 3.574492368973481*^9, 3.5744924390644045`*^9, 3.5744925620082207`*^9, 3.5744992464503565`*^9, 3.5744993045292587`*^9, 3.5744993916242113`*^9, 3.574499498359599*^9, 3.574499720223189*^9, 3.5745008850492344`*^9, 3.5745009455149407`*^9, 3.5745010723587637`*^9, 3.5745011368492765`*^9, 3.574501168720133*^9, 3.574501236455452*^9, 3.5745028435778723`*^9, 3.5745030450210257`*^9, 3.574503095175114*^9, 3.5752611641386776`*^9, 3.5752612334495993`*^9, 3.575261751152109*^9, 3.5752656897534266`*^9}] }, 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->{3.5744827590498424`*^9, 3.5744830604423714`*^9, 3.5744844273791723`*^9, 3.5744844975948963`*^9, 3.574484884584776*^9, 3.5744850582286806`*^9, 3.574485205118539*^9, 3.574485299405104*^9, 3.5744911333577113`*^9, 3.5744914617694883`*^9, 3.5744918753418145`*^9, 3.5744921180938406`*^9, 3.5744921988395824`*^9, 3.574492368973481*^9, 3.5744924390800047`*^9, 3.5744925620238204`*^9, 3.5744992464659567`*^9, 3.574499304544859*^9, 3.5744993916398115`*^9, 3.574499498359599*^9, 3.5744997202387886`*^9, 3.5745008850648346`*^9, 3.5745009455149407`*^9, 3.574501072374364*^9, 3.5745011368492765`*^9, 3.574501168735733*^9, 3.5745012364710517`*^9, 3.5745028435934725`*^9, 3.574503045036626*^9, 3.5745030951907144`*^9, 3.575261164154278*^9, 3.5752612334495993`*^9, 3.575261751152109*^9, 3.5752656897690268`*^9}], Cell[BoxData[ RowBox[{"2.878045195779258`", "\[PlusMinus]", "0.000056525887958657854`"}]], "Output", CellChangeTimes->{3.5744827590498424`*^9, 3.5744830604423714`*^9, 3.5744844273791723`*^9, 3.5744844975948963`*^9, 3.574484884584776*^9, 3.5744850582286806`*^9, 3.574485205118539*^9, 3.574485299405104*^9, 3.5744911333577113`*^9, 3.5744914617694883`*^9, 3.5744918753418145`*^9, 3.5744921180938406`*^9, 3.5744921988395824`*^9, 3.574492368973481*^9, 3.5744924390800047`*^9, 3.5744925620238204`*^9, 3.5744992464659567`*^9, 3.574499304544859*^9, 3.5744993916398115`*^9, 3.574499498359599*^9, 3.5744997202387886`*^9, 3.5745008850648346`*^9, 3.5745009455149407`*^9, 3.574501072374364*^9, 3.5745011368492765`*^9, 3.574501168735733*^9, 3.5745012364710517`*^9, 3.5745028435934725`*^9, 3.574503045036626*^9, 3.5745030951907144`*^9, 3.575261164154278*^9, 3.5752612334495993`*^9, 3.575261751152109*^9, 3.5752656897690268`*^9}] }, Open ]], Cell[CellGroupData[{ Cell[BoxData[{ RowBox[{ RowBox[{"Eij", "=", RowBox[{"Table", "[", RowBox[{ RowBox[{"If", "[", RowBox[{ RowBox[{"i", "\[GreaterEqual]", "j"}], ",", RowBox[{"Dij", "[", RowBox[{"[", RowBox[{"i", ",", "j"}], "]"}], "]"}], ",", "0"}], "]"}], ",", RowBox[{"{", RowBox[{"i", ",", RowBox[{"bc", "+", "1"}], ",", "n"}], "}"}], ",", RowBox[{"{", RowBox[{"j", ",", "1", ",", "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->{3.5744827592058425`*^9, 3.5744830604579716`*^9, 3.5744844273791723`*^9, 3.574484497610496*^9, 3.5744848846003757`*^9, 3.574485058244281*^9, 3.5744852051341386`*^9, 3.574485299420704*^9, 3.574491133373311*^9, 3.574491461785088*^9, 3.5744918753418145`*^9, 3.5744921180938406`*^9, 3.5744921988395824`*^9, 3.5744923689890814`*^9, 3.5744924390956044`*^9, 3.5744925620238204`*^9, 3.574499246481557*^9, 3.574499304560459*^9, 3.5744993916554117`*^9, 3.5744994983751993`*^9, 3.574499720254389*^9, 3.574500885080435*^9, 3.5745009455305405`*^9, 3.5745010723899636`*^9, 3.5745011368648767`*^9, 3.5745011687513328`*^9, 3.574501236486652*^9, 3.5745028436090727`*^9, 3.574503045052226*^9, 3.574503095206314*^9, 3.575261164169878*^9, 3.5752612334651995`*^9, 3.575261751167709*^9, 3.5752656897846265`*^9}], Cell[BoxData[ RowBox[{"2.078662297327598`", "\[PlusMinus]", "0.00005219941851910838`"}]], "Output", CellChangeTimes->{3.5744827592058425`*^9, 3.5744830604579716`*^9, 3.5744844273791723`*^9, 3.574484497610496*^9, 3.5744848846003757`*^9, 3.574485058244281*^9, 3.5744852051341386`*^9, 3.574485299420704*^9, 3.574491133373311*^9, 3.574491461785088*^9, 3.5744918753418145`*^9, 3.5744921180938406`*^9, 3.5744921988395824`*^9, 3.5744923689890814`*^9, 3.5744924390956044`*^9, 3.5744925620238204`*^9, 3.574499246481557*^9, 3.574499304560459*^9, 3.5744993916554117`*^9, 3.5744994983751993`*^9, 3.574499720254389*^9, 3.574500885080435*^9, 3.5745009455305405`*^9, 3.5745010723899636`*^9, 3.5745011368648767`*^9, 3.5745011687513328`*^9, 3.574501236486652*^9, 3.5745028436090727`*^9, 3.574503045052226*^9, 3.574503095206314*^9, 3.575261164169878*^9, 3.5752612334651995`*^9, 3.575261751167709*^9, 3.5752656897846265`*^9}] }, Open ]], Cell[CellGroupData[{ Cell[BoxData[{ RowBox[{"For", "[", RowBox[{ RowBox[{"i", "=", "1"}], " ", ",", RowBox[{"i", "<", RowBox[{"n", "+", "1"}]}], ",", RowBox[{"i", "++"}], ",", "\[IndentingNewLine]", RowBox[{"For", "[", RowBox[{ RowBox[{"j", "=", "1"}], ",", " ", RowBox[{"j", "<", RowBox[{"bc", "+", "1"}]}], ",", RowBox[{"j", "++"}], ",", "\[IndentingNewLine]", RowBox[{"If", "[", RowBox[{ RowBox[{"(", RowBox[{ RowBox[{ RowBox[{"Dij", "[", RowBox[{"[", RowBox[{"i", ",", "j"}], "]"}], "]"}], "\[NotEqual]", "0"}], " ", "&&", " ", RowBox[{ RowBox[{"u", "[", RowBox[{"[", "i", "]"}], "]"}], "\[Equal]", " ", "\"\\""}]}], ")"}], ",", RowBox[{"If", "[", RowBox[{ RowBox[{ RowBox[{"u", "[", RowBox[{"[", "j", "]"}], "]"}], "\[Equal]", "\"\\""}], ",", RowBox[{ RowBox[{"u2", "[", RowBox[{"[", "i", "]"}], "]"}], "=", "0.5693"}], ",", RowBox[{"If", "[", RowBox[{ RowBox[{ RowBox[{"u", "[", RowBox[{"[", "j", "]"}], "]"}], "\[Equal]", "\"\\""}], ",", RowBox[{ RowBox[{"u2", "[", RowBox[{"[", "i", "]"}], "]"}], "=", "0.5"}], ",", RowBox[{"If", "[", RowBox[{ RowBox[{ RowBox[{"u", "[", RowBox[{"[", "j", "]"}], "]"}], "\[Equal]", "\"\\""}], ",", RowBox[{ RowBox[{"u2", "[", RowBox[{"[", "i", "]"}], "]"}], "=", "0.5541"}], ",", RowBox[{"If", "[", RowBox[{ RowBox[{ RowBox[{"u", "[", RowBox[{"[", "j", "]"}], "]"}], "\[Equal]", "\"\\""}], ",", RowBox[{ RowBox[{"u2", "[", RowBox[{"[", "i", "]"}], "]"}], "=", "0.5241"}]}], "]"}]}], "]"}]}], "]"}]}], "]"}]}], "]"}]}], "]"}]}], "]"}], "\[IndentingNewLine]", "u2"}], "Input", CellChangeTimes->{{3.5688800293771057`*^9, 3.5688801774057655`*^9}, { 3.5688802290574565`*^9, 3.568880330208034*^9}, {3.5688803807053227`*^9, 3.5688804136525807`*^9}, 3.568880491434317*^9, 3.5688805648948464`*^9, { 3.5688806280437574`*^9, 3.568880655234605*^9}, {3.568880712424306*^9, 3.568880716324312*^9}, {3.5688808087544746`*^9, 3.568880827786508*^9}, 3.5688808733385878`*^9, {3.568881358936241*^9, 3.5688813959239063`*^9}, { 3.568881446561595*^9, 3.5688815849182377`*^9}, {3.5688816223739033`*^9, 3.568881642607139*^9}, 3.568881728953291*^9, {3.568881797624612*^9, 3.568881809870633*^9}, 3.568881863612727*^9, {3.568883098916497*^9, 3.5688831014749017`*^9}, {3.56888372124679*^9, 3.568883843239004*^9}, 3.568888211750622*^9, {3.5688882521546926`*^9, 3.5688885232519693`*^9}, { 3.5688885890840845`*^9, 3.5688885895052853`*^9}, {3.568888675773437*^9, 3.5688886914514647`*^9}, {3.568888736285943*^9, 3.5688887717760057`*^9}, { 3.5688888256429005`*^9, 3.5688888541441507`*^9}, {3.568892442649892*^9, 3.5688924499507046`*^9}, {3.568892758441247*^9, 3.5688927597360487`*^9}, { 3.5688928234309607`*^9, 3.5688928379389863`*^9}, {3.5708938149488974`*^9, 3.5708938463361526`*^9}, {3.570893920483083*^9, 3.5708939282050962`*^9}, { 3.570894700000852*^9, 3.57089481264865*^9}, {3.570973331551669*^9, 3.570973355887712*^9}, {3.5709734060886*^9, 3.5709734077266035`*^9}, 3.5709737061863275`*^9, {3.5712013634748197`*^9, 3.5712013661736245`*^9}, { 3.571201966837079*^9, 3.5712020689392586`*^9}}], Cell[BoxData[ RowBox[{"{", RowBox[{ "0.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->{3.5744827592058425`*^9, 3.574483060473572*^9, 3.5744844273947725`*^9, 3.574484497626096*^9, 3.5744848846159754`*^9, 3.5744850582598805`*^9, 3.5744852051341386`*^9, 3.574485299436304*^9, 3.5744911333889112`*^9, 3.574491461800688*^9, 3.5744918753574142`*^9, 3.574492118109441*^9, 3.5744921988551826`*^9, 3.5744923690046816`*^9, 3.574492439111204*^9, 3.57449256203942*^9, 3.574499246497157*^9, 3.574499304576059*^9, 3.574499391671012*^9, 3.5744994983907995`*^9, 3.574499720269989*^9, 3.574500885096035*^9, 3.5745009455461407`*^9, 3.5745010724055634`*^9, 3.574501136880477*^9, 3.5745011687669325`*^9, 3.574501236502252*^9, 3.5745028436246724`*^9, 3.5745030450678263`*^9, 3.5745030952219143`*^9, 3.5752611641854777`*^9, 3.5752612334807997`*^9, 3.5752617511833086`*^9, 3.5752656898002267`*^9}] }, Open ]], Cell[BoxData[ RowBox[{ RowBox[{"(*", " ", RowBox[{ "subtract", " ", "core", " ", "radii", " ", "from", " ", "pair", " ", "distances"}], " ", "*)"}], "\[IndentingNewLine]", RowBox[{ RowBox[{ RowBox[{"Fij", "=", RowBox[{"Dij", "-", "u2"}]}], ";"}], "\[IndentingNewLine]", RowBox[{"(*", RowBox[{ RowBox[{"MatrixForm", "[", "Fij", "]"}], ";"}], "*)"}], "\[IndentingNewLine]", RowBox[{ RowBox[{"Gij", "=", RowBox[{"Table", "[", RowBox[{ RowBox[{"If", "[", RowBox[{ RowBox[{"i", "\[GreaterEqual]", "j"}], ",", RowBox[{"If", "[", RowBox[{ RowBox[{ RowBox[{"Fij", "[", RowBox[{"[", RowBox[{"i", ",", "j"}], "]"}], "]"}], ">", "0"}], ",", RowBox[{"Fij", "[", RowBox[{"[", RowBox[{"i", ",", "j"}], "]"}], "]"}], ",", "0"}], "]"}], ",", "\"\< \>\""}], "]"}], ",", RowBox[{"{", RowBox[{"i", ",", "1", ",", "n"}], "}"}], ",", RowBox[{"{", RowBox[{"j", ",", "1", ",", "n"}], "}"}]}], "]"}]}], ";"}], "\[IndentingNewLine]", RowBox[{"(*", RowBox[{ RowBox[{"MatrixForm", "[", "Gij", "]"}], ";"}], "*)"}]}]}]], "Input", CellChangeTimes->{{3.567958596890297*^9, 3.567958603270708*^9}, { 3.5679587604565845`*^9, 3.5679587707682023`*^9}, {3.5679588272871017`*^9, 3.567958828254304*^9}, {3.567959580066424*^9, 3.5679595814704266`*^9}, { 3.567959624994503*^9, 3.5679596300177116`*^9}, {3.5679597079086485`*^9, 3.567959902877791*^9}, {3.5679599961659546`*^9, 3.5679600446196404`*^9}, { 3.5679609611992497`*^9, 3.567960974006872*^9}, 3.567961975154231*^9, { 3.5679622637079377`*^9, 3.5679622945179915`*^9}, 3.5681142413606625`*^9, 3.568121878697276*^9, {3.5681219332193723`*^9, 3.56812197189184*^9}, { 3.5682778370003624`*^9, 3.5682778397927675`*^9}, {3.569341165522358*^9, 3.569341165537958*^9}, {3.5693418217531104`*^9, 3.5693418217531104`*^9}, { 3.57059671735485*^9, 3.570596744467697*^9}}], Cell[BoxData[{ RowBox[{ RowBox[{"Hij", "=", RowBox[{"Transpose", "[", "Gij", "]"}]}], ";"}], "\[IndentingNewLine]", RowBox[{ RowBox[{"(*", RowBox[{ RowBox[{"MatrixForm", "[", "Hij", "]"}], ";"}], "*)"}]}]}], "Input", CellChangeTimes->{{3.5679601758938704`*^9, 3.5679601965327067`*^9}, { 3.567960427147912*^9, 3.567960432217921*^9}, {3.5679605764089737`*^9, 3.5679605968294096`*^9}, {3.5679607389456596`*^9, 3.5679607643581038`*^9}, 3.5681142501278777`*^9, 3.5681218877140923`*^9, 3.569341165537958*^9, 3.5693418217531104`*^9}], Cell[BoxData[{ RowBox[{ RowBox[{ RowBox[{"Kij", "=", RowBox[{"Hij", "-", "u2"}]}], ";"}], "\[IndentingNewLine]", RowBox[{"(*", RowBox[{ RowBox[{"MatrixForm", "[", "Kij", "]"}], ";"}], "*)"}]}], "\[IndentingNewLine]", RowBox[{ RowBox[{"Lij", "=", RowBox[{"Table", "[", RowBox[{ RowBox[{"If", "[", RowBox[{ RowBox[{"i", "\[LessEqual]", "j"}], ",", RowBox[{"If", "[", RowBox[{ RowBox[{ RowBox[{"Kij", "[", RowBox[{"[", RowBox[{"i", ",", "j"}], "]"}], "]"}], ">", "0"}], ",", RowBox[{"Kij", "[", RowBox[{"[", RowBox[{"i", ",", "j"}], "]"}], "]"}], ",", "0"}], "]"}], ",", "\"\< \>\""}], "]"}], ",", RowBox[{"{", RowBox[{"i", ",", "1", ",", "n"}], "}"}], ",", RowBox[{"{", RowBox[{"j", ",", "1", ",", "n"}], "}"}]}], "]"}]}], ";"}], "\[IndentingNewLine]", RowBox[{ RowBox[{"(*", RowBox[{ RowBox[{"MatrixForm", "[", "Lij", "]"}], ";"}], "*)"}]}]}], "Input", CellChangeTimes->{{3.5679602339571724`*^9, 3.567960257419614*^9}, { 3.567960343406965*^9, 3.567960353500182*^9}, {3.5679604155258913`*^9, 3.567960421422702*^9}, {3.567960854323462*^9, 3.567960874197897*^9}, { 3.5679611596939983`*^9, 3.567961170270817*^9}, {3.5679614000124207`*^9, 3.567961407016833*^9}, {3.5679615066074076`*^9, 3.567961509649413*^9}, 3.5679616124379935`*^9, 3.5679616766477065`*^9, {3.5679617424486217`*^9, 3.5679617456310277`*^9}, 3.567961801276325*^9, {3.5679618582788253`*^9, 3.5679618970760937`*^9}, {3.5679620279135237`*^9, 3.567962030113127*^9}, 3.567962107894864*^9, {3.567962149468937*^9, 3.5679621572533503`*^9}, 3.5679623389156694`*^9, {3.567962645815009*^9, 3.567962648888214*^9}, { 3.567962691647889*^9, 3.567962693020692*^9}, {3.568048161486014*^9, 3.568048162827616*^9}, 3.5680482096900983`*^9, 3.5681142588638926`*^9, 3.568121899632513*^9, 3.5681219958534822`*^9, {3.568277844675576*^9, 3.5682778463603787`*^9}, {3.569341165537958*^9, 3.569341165537958*^9}, { 3.5693418217531104`*^9, 3.5693418217531104`*^9}}], Cell[BoxData[ RowBox[{ RowBox[{"(*", " ", RowBox[{"determine", " ", "bond", " ", "cloud", " ", "radii"}], " ", "*)"}], "\[IndentingNewLine]", RowBox[{ RowBox[{ RowBox[{"Lij", "=", RowBox[{"Table", "[", RowBox[{ RowBox[{"If", "[", RowBox[{ RowBox[{"i", "\[LessEqual]", "j"}], ",", RowBox[{"If", "[", RowBox[{ RowBox[{ RowBox[{"Lij", "[", RowBox[{"[", RowBox[{"i", ",", "j"}], "]"}], "]"}], ">", "0"}], ",", RowBox[{"If", "[", RowBox[{ RowBox[{ RowBox[{"u", "[", RowBox[{"[", "j", "]"}], "]"}], "\[NotEqual]", "\"\\""}], ",", RowBox[{"0.5", "*", RowBox[{"Lij", "[", RowBox[{"[", RowBox[{"i", ",", "j"}], "]"}], "]"}]}], ",", RowBox[{"Lij", "[", RowBox[{"[", RowBox[{"i", ",", "j"}], "]"}], "]"}]}], "]"}], ",", "0"}], "]"}], ",", "\"\< \>\""}], "]"}], ",", RowBox[{"{", RowBox[{"i", ",", "1", ",", "n"}], "}"}], ",", RowBox[{"{", RowBox[{"j", ",", "1", ",", "n"}], "}"}]}], "]"}]}], ";"}], " ", "\[IndentingNewLine]", RowBox[{ RowBox[{"Qij", "=", "Lij"}], ";"}], "\[IndentingNewLine]", RowBox[{"(*", RowBox[{ RowBox[{"MatrixForm", "[", "Lij", "]"}], ";"}], "*)"}]}]}]], "Input", CellChangeTimes->{{3.5679627617388124`*^9, 3.567962837461345*^9}, { 3.567963118121438*^9, 3.567963118698639*^9}, {3.5679631520670977`*^9, 3.5679631541731014`*^9}, {3.5679631898191643`*^9, 3.5679632154656096`*^9}, {3.5679635823158536`*^9, 3.56796361468591*^9}, { 3.567963691516045*^9, 3.567963693590849*^9}, {3.567963737957327*^9, 3.567963807299449*^9}, {3.568048114904332*^9, 3.5680481161835346`*^9}, 3.5680482221389203`*^9, {3.5680485003498087`*^9, 3.5680485123618298`*^9}, 3.5681142659931054`*^9, 3.5681219084621286`*^9, {3.568277848107582*^9, 3.5682778496519847`*^9}, {3.5683793122399254`*^9, 3.568379313019926*^9}, { 3.568379456758579*^9, 3.56837947986222*^9}, 3.5683796000760307`*^9, { 3.5683796473285136`*^9, 3.5683796831617765`*^9}, {3.568381744939398*^9, 3.5683817743298492`*^9}, {3.56846523720809*^9, 3.568465240218895*^9}, 3.569341165537958*^9, 3.5693418217531104`*^9, {3.5705967846533675`*^9, 3.5705968020785985`*^9}}], Cell[BoxData[ RowBox[{ RowBox[{"(*", " ", RowBox[{"determine", " ", "kinetic", " ", "energy"}], " ", "*)"}], "\[IndentingNewLine]", RowBox[{ RowBox[{ RowBox[{"Nij", "=", RowBox[{"Table", "[", RowBox[{ RowBox[{"If", "[", RowBox[{ RowBox[{"i", "\[LessEqual]", "j"}], ",", RowBox[{"If", "[", RowBox[{ RowBox[{ RowBox[{"Lij", "[", RowBox[{"[", RowBox[{"i", ",", "j"}], "]"}], "]"}], ">", "0"}], ",", RowBox[{"2.25", "/", RowBox[{ RowBox[{"Lij", "[", RowBox[{"[", RowBox[{"i", ",", "j"}], "]"}], "]"}], "^", "2"}]}], ",", "0"}], "]"}], ",", "\"\< \>\""}], "]"}], ",", RowBox[{"{", RowBox[{"i", ",", "1", ",", "n"}], "}"}], ",", RowBox[{"{", RowBox[{"j", ",", "1", ",", "n"}], "}"}]}], "]"}]}], ";"}], "\[IndentingNewLine]", RowBox[{"(*", RowBox[{"MatrixForm", "[", "Nij", "]"}], "*)"}]}]}]], "Input", CellChangeTimes->{{3.5679628944794455`*^9, 3.5679629710755796`*^9}, { 3.567963889963994*^9, 3.567963933800071*^9}, {3.5680478391738477`*^9, 3.5680478414358516`*^9}, 3.568048231171336*^9, {3.5680482823550262`*^9, 3.56804828449223*^9}, 3.5680483349271183`*^9, 3.568114273059918*^9, 3.5681219175101447`*^9, {3.568277851305588*^9, 3.568277857295998*^9}, { 3.5688722635742655`*^9, 3.568872266616271*^9}, 3.5688723032763357`*^9, 3.5688725225503206`*^9, 3.5692365125035076`*^9, {3.5692366381461277`*^9, 3.5692366389105296`*^9}, {3.5692366963654304`*^9, 3.5692366986898346`*^9}, 3.5693411655535583`*^9, 3.5693418217687106`*^9, {3.5705968460394754`*^9, 3.5705968602823005`*^9}}], Cell[CellGroupData[{ Cell[BoxData[ RowBox[{"Tval", "=", RowBox[{"Sum", "[", RowBox[{ RowBox[{"If", "[", RowBox[{ RowBox[{"i", "\[LessEqual]", "j"}], ",", RowBox[{"Nij", "[", RowBox[{"[", RowBox[{"i", ",", "j"}], "]"}], "]"}], ",", "0"}], "]"}], ",", RowBox[{"{", RowBox[{"i", ",", "1", ",", "n"}], "}"}], ",", RowBox[{"{", RowBox[{"j", ",", "1", ",", "n"}], "}"}]}], "]"}]}]], "Input", CellChangeTimes->{{3.567963992456174*^9, 3.567964003890994*^9}, { 3.5679640974287586`*^9, 3.5679642038209453`*^9}, {3.56796433180357*^9, 3.567964353487608*^9}, {3.567964403641696*^9, 3.567964453046983*^9}, { 3.5679646160984693`*^9, 3.5679646168316708`*^9}, {3.567964688747797*^9, 3.567964762255126*^9}, {3.568277859480002*^9, 3.568277863598409*^9}, { 3.568379511358675*^9, 3.5683795129030776`*^9}, 3.5688214977895346`*^9, { 3.56882774467134*^9, 3.56882781892747*^9}}], Cell[BoxData["62.720626226532325`"], "Output", CellChangeTimes->{3.5744827592370424`*^9, 3.5744830605047717`*^9, 3.574484427425973*^9, 3.574484497657296*^9, 3.5744848846315756`*^9, 3.5744850582910805`*^9, 3.5744852051653385`*^9, 3.5744852994519043`*^9, 3.5744911334045115`*^9, 3.574491461816288*^9, 3.5744918753886147`*^9, 3.5744921181406407`*^9, 3.5744921988863826`*^9, 3.574492369035881*^9, 3.5744924391268044`*^9, 3.5744925620706205`*^9, 3.5744992465283566`*^9, 3.574499304607259*^9, 3.574499391702212*^9, 3.5744994984063993`*^9, 3.574499720301189*^9, 3.5745008851116347`*^9, 3.574500945577341*^9, 3.574501072436764*^9, 3.574501136911677*^9, 3.5745011687825327`*^9, 3.574501236517852*^9, 3.5745028436558723`*^9, 3.5745030450834265`*^9, 3.5745030952531147`*^9, 3.5752611642166777`*^9, 3.5752612334964*^9, 3.575261751214509*^9, 3.5752656898158264`*^9}] }, Open ]], Cell[CellGroupData[{ Cell[BoxData[ RowBox[{"Tcor", "=", RowBox[{"Sum", "[", RowBox[{ RowBox[{"If", "[", RowBox[{ RowBox[{ RowBox[{"u", "[", RowBox[{"[", "i", "]"}], "]"}], "\[NotEqual]", "\"\\""}], ",", RowBox[{"2.25", "/", RowBox[{ RowBox[{"u2", "[", RowBox[{"[", "i", "]"}], "]"}], "^", "2"}]}], ",", "0"}], "]"}], ",", RowBox[{"{", RowBox[{"i", ",", "1", ",", "n"}], "}"}]}], "]"}]}]], "Input", CellChangeTimes->{ 3.5688724058309155`*^9, {3.568872452646598*^9, 3.568872478480243*^9}, { 3.5688764461756124`*^9, 3.5688764647552447`*^9}, {3.5692363452556133`*^9, 3.5692363456924143`*^9}, 3.569236415892538*^9, 3.5692365043134933`*^9}], Cell[BoxData["848.4830862211973`"], "Output", CellChangeTimes->{3.5744827592526426`*^9, 3.574483060520372*^9, 3.574484427441573*^9, 3.574484497672896*^9, 3.574484884647176*^9, 3.5744850583066807`*^9, 3.5744852051809387`*^9, 3.5744852994675045`*^9, 3.574491133420111*^9, 3.574491461831888*^9, 3.5744918753886147`*^9, 3.5744921181562405`*^9, 3.5744921988863826`*^9, 3.5744923690514812`*^9, 3.5744924391424046`*^9, 3.5744925620862207`*^9, 3.5744992465283566`*^9, 3.574499304607259*^9, 3.574499391702212*^9, 3.574499498421999*^9, 3.574499720301189*^9, 3.5745008851272345`*^9, 3.574500945592941*^9, 3.574501072436764*^9, 3.574501136927277*^9, 3.574501168798133*^9, 3.574501236533452*^9, 3.5745028436558723`*^9, 3.5745030450990267`*^9, 3.5745030952531147`*^9, 3.5752611642166777`*^9, 3.5752612335119996`*^9, 3.5752617512301087`*^9, 3.5752656898314266`*^9}] }, Open ]], Cell[CellGroupData[{ Cell[BoxData[ RowBox[{"Ttot", "=", RowBox[{"Tval", "+", "Tcor", " ", RowBox[{"(*", " ", RowBox[{"plus", " ", "\[Pi]", " ", "and", " ", "lone", " ", RowBox[{"pairs", ":", " ", RowBox[{"+", " ", "8.7616"}]}]}], " ", "*)"}]}]}]], "Input", CellChangeTimes->{ 3.5688724058309155`*^9, {3.568872452646598*^9, 3.568872478480243*^9}, { 3.5688764461756124`*^9, 3.568876459248435*^9}, {3.568876733122516*^9, 3.5688767685033784`*^9}, {3.568895188410715*^9, 3.5688952349923964`*^9}}], Cell[BoxData["911.2037124477296`"], "Output", CellChangeTimes->{3.5744827592526426`*^9, 3.5744830605359716`*^9, 3.574484427441573*^9, 3.574484497688496*^9, 3.5744848846627755`*^9, 3.5744850583066807`*^9, 3.5744852051809387`*^9, 3.5744852994831047`*^9, 3.574491133435711*^9, 3.574491461847488*^9, 3.5744918754042144`*^9, 3.5744921181562405`*^9, 3.5744921989019823`*^9, 3.5744923690670815`*^9, 3.5744924391580048`*^9, 3.5744925620862207`*^9, 3.5744992465439568`*^9, 3.574499304622859*^9, 3.5744993917178116`*^9, 3.574499498421999*^9, 3.5744997203167887`*^9, 3.5745008851428347`*^9, 3.574500945592941*^9, 3.5745010724523635`*^9, 3.574501136927277*^9, 3.574501168813733*^9, 3.5745012365490522`*^9, 3.5745028436714725`*^9, 3.5745030451146264`*^9, 3.5745030952687144`*^9, 3.575261164232278*^9, 3.5752612335275993`*^9, 3.5752617512457085`*^9, 3.575265689847027*^9}] }, Open ]], Cell[CellGroupData[{ Cell[BoxData[ RowBox[{"TvalH", "=", RowBox[{"Sum", "[", RowBox[{ RowBox[{"If", "[", RowBox[{ RowBox[{"(", RowBox[{ RowBox[{"i", "\[LessEqual]", "j"}], " ", "&&", " ", RowBox[{ RowBox[{"u", "[", RowBox[{"[", "j", "]"}], "]"}], "\[Equal]", " ", "\"\\""}]}], ")"}], ",", RowBox[{"Nij", "[", RowBox[{"[", RowBox[{"i", ",", "j"}], "]"}], "]"}], ",", "0"}], "]"}], ",", RowBox[{"{", RowBox[{"i", ",", "1", ",", "n"}], "}"}], ",", RowBox[{"{", RowBox[{"j", ",", "1", ",", "n"}], "}"}]}], "]"}]}]], "Input", CellChangeTimes->{ 3.5688724058309155`*^9, {3.568872452646598*^9, 3.568872478480243*^9}, { 3.5688764461756124`*^9, 3.568876459248435*^9}, {3.568876733122516*^9, 3.5688767642445707`*^9}}], Cell[BoxData["19.80347160842698`"], "Output", CellChangeTimes->{3.574482759268243*^9, 3.574483060551572*^9, 3.574484427457173*^9, 3.574484497704096*^9, 3.5744848846627755`*^9, 3.574485058322281*^9, 3.574485205196539*^9, 3.5744852994831047`*^9, 3.574491133435711*^9, 3.574491461847488*^9, 3.574491875419814*^9, 3.5744921181718407`*^9, 3.5744921989019823`*^9, 3.5744923690826817`*^9, 3.5744924391580048`*^9, 3.574492562101821*^9, 3.574499246559557*^9, 3.5744993046384587`*^9, 3.574499391733412*^9, 3.574499498437599*^9, 3.574499720332389*^9, 3.574500885158435*^9, 3.574500945608541*^9, 3.5745010724679637`*^9, 3.574501136942877*^9, 3.5745011688293333`*^9, 3.574501236564652*^9, 3.5745028436870728`*^9, 3.574503045130226*^9, 3.574503095284314*^9, 3.575261164247878*^9, 3.5752612335275993`*^9, 3.5752617512457085`*^9, 3.575265689847027*^9}] }, Open ]], Cell[CellGroupData[{ Cell[BoxData[ RowBox[{"TvalC", "=", RowBox[{"Tval", "-", "TvalH"}]}]], "Input", CellChangeTimes->{{3.5688726088808727`*^9, 3.568872610581275*^9}, { 3.5688726952426243`*^9, 3.5688727146490583`*^9}}], Cell[BoxData["42.91715461810534`"], "Output", CellChangeTimes->{3.574482759268243*^9, 3.574483060551572*^9, 3.5744844274727726`*^9, 3.574484497719696*^9, 3.5744848846783757`*^9, 3.574485058337881*^9, 3.574485205212139*^9, 3.5744852994987044`*^9, 3.574491133451311*^9, 3.5744914618630877`*^9, 3.574491875419814*^9, 3.574492118187441*^9, 3.5744921989175825`*^9, 3.5744923690826817`*^9, 3.5744924391736045`*^9, 3.5744925621174207`*^9, 3.574499246559557*^9, 3.5744993046384587`*^9, 3.574499391733412*^9, 3.5744994984531994`*^9, 3.574499720332389*^9, 3.574500885158435*^9, 3.5745009456241407`*^9, 3.574501072483564*^9, 3.574501136958477*^9, 3.5745011688293333`*^9, 3.574501236564652*^9, 3.5745028436870728`*^9, 3.574503045130226*^9, 3.5745030952999144`*^9, 3.575261164247878*^9, 3.5752612335431995`*^9, 3.5752617512613087`*^9, 3.575265689862627*^9}] }, Open ]], Cell[BoxData[{ RowBox[{ RowBox[{"Mij", "=", RowBox[{"Prepend", "[", RowBox[{"Qij", ",", "u"}], "]"}]}], ";"}], "\[IndentingNewLine]", RowBox[{ RowBox[{"Oij", "=", RowBox[{"Transpose", "[", "Mij", "]"}]}], ";"}], "\[IndentingNewLine]", RowBox[{ RowBox[{"Pij", "=", RowBox[{"Prepend", "[", RowBox[{"Oij", ",", RowBox[{"Prepend", "[", RowBox[{"u", ",", "\"\< \>\""}], "]"}]}], "]"}]}], ";"}]}], "Input", CellChangeTimes->{{3.568045828002715*^9, 3.56804588761042*^9}, 3.5680459828797874`*^9, {3.568046033938677*^9, 3.5680460518787084`*^9}, { 3.568046989190755*^9, 3.5680470284404235`*^9}, {3.568047061028881*^9, 3.568047085567724*^9}, {3.5680471562982483`*^9, 3.568047169199471*^9}, { 3.568047223393966*^9, 3.568047364059413*^9}, {3.568047417286707*^9, 3.5680474225127163`*^9}, {3.5680474583459787`*^9, 3.568047487861231*^9}, { 3.5680475345521126`*^9, 3.5680475468605347`*^9}, {3.5680479168775845`*^9, 3.5680479311516094`*^9}, {3.568048066918648*^9, 3.568048067667449*^9}, { 3.5680483816336*^9, 3.5680483930216208`*^9}, {3.568048424159275*^9, 3.568048450211321*^9}, {3.5680486326224413`*^9, 3.5680486370996494`*^9}, { 3.5680487358166227`*^9, 3.5680487967191296`*^9}, 3.568048834377596*^9, 3.568048984418659*^9, {3.5680490255559316`*^9, 3.5680490790796256`*^9}, { 3.5680491274553103`*^9, 3.5680491280949116`*^9}, {3.5680491782333994`*^9, 3.568049231944294*^9}, {3.568049361533722*^9, 3.5680493691933355`*^9}, { 3.568049422171028*^9, 3.568049427490638*^9}, {3.568049476427923*^9, 3.5680495489368505`*^9}, {3.568049620634577*^9, 3.5680496274361887`*^9}, { 3.5680496655314555`*^9, 3.568049693876705*^9}, 3.568049746573598*^9, { 3.568049846460573*^9, 3.568049932759925*^9}, {3.568050009059659*^9, 3.5680500167348723`*^9}, {3.5680501572755194`*^9, 3.568050179911159*^9}, 3.5681087021497335`*^9, {3.5726244549749556`*^9, 3.5726244687341795`*^9}, 3.572624583643982*^9}], Cell[CellGroupData[{ Cell[BoxData[{ RowBox[{ RowBox[{"con", "=", RowBox[{"Table", "[", RowBox[{ RowBox[{"{", "i", "}"}], ",", RowBox[{"{", RowBox[{"i", ",", "1", ",", "n"}], "}"}]}], "]"}]}], ";", " ", RowBox[{"conj", "=", RowBox[{"Table", "[", RowBox[{"0", ",", RowBox[{"{", "nc", "}"}]}], "]"}]}], ";"}], "\[IndentingNewLine]", RowBox[{ RowBox[{"For", "[", RowBox[{ RowBox[{"i", "=", "1"}], ",", RowBox[{"i", "\[LessEqual]", "n"}], ",", RowBox[{"i", "++"}], ",", "\[IndentingNewLine]", RowBox[{"For", "[", RowBox[{ RowBox[{"j", "=", "1"}], ",", RowBox[{"j", "\[LessEqual]", "n"}], ",", RowBox[{"j", "++"}], ",", RowBox[{"If", "[", " ", RowBox[{ RowBox[{ RowBox[{"Dij", "[", RowBox[{"[", RowBox[{"i", ",", "j"}], "]"}], "]"}], "\[NotEqual]", "0"}], " ", ",", RowBox[{ RowBox[{"con", "[", RowBox[{"[", "i", "]"}], "]"}], "=", RowBox[{"{", RowBox[{ RowBox[{"con", "[", RowBox[{"[", "i", "]"}], "]"}], ",", "j"}], "}"}]}]}], "]"}]}], "]"}]}], "]"}], ";"}], "\[IndentingNewLine]", RowBox[{ RowBox[{ RowBox[{"conn", "=", RowBox[{"Table", "[", RowBox[{ RowBox[{"Flatten", "[", RowBox[{"con", "[", RowBox[{"[", "i", "]"}], "]"}], "]"}], ",", RowBox[{"{", RowBox[{"i", ",", "1", ",", "n"}], "}"}]}], "]"}]}], ";"}], "\[IndentingNewLine]", RowBox[{"(*", " ", RowBox[{ "identify", " ", "C", " ", "atoms", " ", "at", " ", "double", " ", "bonds"}], " ", "*)"}]}], "\[IndentingNewLine]", RowBox[{ RowBox[{"j", "=", "0"}], ";"}], "\[IndentingNewLine]", RowBox[{ RowBox[{"For", "[", RowBox[{ RowBox[{"i", "=", "1"}], ",", RowBox[{"i", "\[LessEqual]", "nc"}], ",", RowBox[{"i", "++"}], ",", RowBox[{"If", "[", RowBox[{ RowBox[{ RowBox[{"Length", "[", RowBox[{"conn", "[", RowBox[{"[", "i", "]"}], "]"}], "]"}], "\[Equal]", "4"}], ",", RowBox[{ RowBox[{"j", "=", RowBox[{"j", "+", "1"}]}], ";", RowBox[{ RowBox[{"conj", "[", RowBox[{"[", "j", "]"}], "]"}], "=", "i"}]}]}], "]"}]}], "]"}], ";"}], "\[IndentingNewLine]", RowBox[{"conj", "=", RowBox[{"Take", "[", RowBox[{"conj", ",", RowBox[{"{", RowBox[{"1", ",", "j"}], "}"}]}], "]"}]}], "\[IndentingNewLine]", RowBox[{ RowBox[{"nj", "=", RowBox[{"Length", "[", "conj", "]"}]}], ";"}], "\[IndentingNewLine]", RowBox[{"MatrixForm", "[", RowBox[{"conn", ",", " ", RowBox[{"TableAlignments", "\[Rule]", "Left"}]}], "]"}]}], "Input", CellChangeTimes->{{3.568045828002715*^9, 3.56804588761042*^9}, 3.5680459828797874`*^9, {3.568046033938677*^9, 3.5680460518787084`*^9}, { 3.568046989190755*^9, 3.5680470284404235`*^9}, {3.568047061028881*^9, 3.568047085567724*^9}, {3.5680471562982483`*^9, 3.568047169199471*^9}, { 3.568047223393966*^9, 3.568047364059413*^9}, {3.568047417286707*^9, 3.5680474225127163`*^9}, {3.5680474583459787`*^9, 3.568047487861231*^9}, { 3.5680475345521126`*^9, 3.5680475468605347`*^9}, {3.5680479168775845`*^9, 3.5680479311516094`*^9}, {3.568048066918648*^9, 3.568048067667449*^9}, { 3.5680483816336*^9, 3.5680483930216208`*^9}, {3.568048424159275*^9, 3.568048450211321*^9}, {3.5680486326224413`*^9, 3.5680486370996494`*^9}, { 3.5680487358166227`*^9, 3.5680487967191296`*^9}, 3.568048834377596*^9, 3.568048984418659*^9, {3.5680490255559316`*^9, 3.5680490790796256`*^9}, { 3.5680491274553103`*^9, 3.5680491280949116`*^9}, {3.5680491782333994`*^9, 3.568049231944294*^9}, {3.568049361533722*^9, 3.5680493691933355`*^9}, { 3.568049422171028*^9, 3.568049427490638*^9}, {3.568049476427923*^9, 3.5680495489368505`*^9}, {3.568049620634577*^9, 3.5680496274361887`*^9}, { 3.5680496655314555`*^9, 3.568049693876705*^9}, 3.568049746573598*^9, { 3.568049846460573*^9, 3.568049932759925*^9}, {3.568050009059659*^9, 3.5680500167348723`*^9}, {3.5680501572755194`*^9, 3.568050179911159*^9}, 3.5681087021497335`*^9, {3.5726244549749556`*^9, 3.5726244687341795`*^9}, { 3.572624511540655*^9, 3.5726245129758577`*^9}, {3.5726259545431895`*^9, 3.5726259555883913`*^9}, {3.5726268385811424`*^9, 3.5726268436979513`*^9}, {3.5727156260686264`*^9, 3.5727156464110622`*^9}, 3.572767008717453*^9, 3.572767169428935*^9, {3.5727947272385855`*^9, 3.5727947348669987`*^9}}], Cell[BoxData[ RowBox[{"{", RowBox[{"1", ",", "2", ",", "3", ",", "4", ",", "5"}], "}"}]], "Output", CellChangeTimes->{3.574482759283843*^9, 3.5744830605827723`*^9, 3.574484427488373*^9, 3.5744844977352962`*^9, 3.5744848846939754`*^9, 3.574485058353481*^9, 3.574485205227739*^9, 3.574485299514304*^9, 3.5744911334669113`*^9, 3.574491461878688*^9, 3.5744918754354143`*^9, 3.574492118203041*^9, 3.5744921989331827`*^9, 3.574492369098282*^9, 3.5744924391892047`*^9, 3.5744925621330204`*^9, 3.5744992465751567`*^9, 3.5744993046540585`*^9, 3.574499391749012*^9, 3.5744994984531994`*^9, 3.5744997203635893`*^9, 3.574500885174035*^9, 3.574500945639741*^9, 3.5745010724991636`*^9, 3.574501136974077*^9, 3.574501168844933*^9, 3.5745012365802517`*^9, 3.5745028437026725`*^9, 3.5745030451458263`*^9, 3.5745030953155146`*^9, 3.5752611642634783`*^9, 3.5752612335587997`*^9, 3.575261751276909*^9, 3.5752656898782268`*^9}], 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->{3.574482759283843*^9, 3.5744830605827723`*^9, 3.574484427488373*^9, 3.5744844977352962`*^9, 3.5744848846939754`*^9, 3.574485058353481*^9, 3.574485205227739*^9, 3.574485299514304*^9, 3.5744911334669113`*^9, 3.574491461878688*^9, 3.5744918754354143`*^9, 3.574492118203041*^9, 3.5744921989331827`*^9, 3.574492369098282*^9, 3.5744924391892047`*^9, 3.5744925621330204`*^9, 3.5744992465751567`*^9, 3.5744993046540585`*^9, 3.574499391749012*^9, 3.5744994984531994`*^9, 3.5744997203635893`*^9, 3.574500885174035*^9, 3.574500945639741*^9, 3.5745010724991636`*^9, 3.574501136974077*^9, 3.574501168844933*^9, 3.5745012365802517`*^9, 3.5745028437026725`*^9, 3.5745030451458263`*^9, 3.5745030953155146`*^9, 3.5752611642634783`*^9, 3.5752612335587997`*^9, 3.575261751276909*^9, 3.5752656898782268`*^9}] }, Open ]], Cell[BoxData[{ RowBox[{ RowBox[{ RowBox[{"Clear", "[", RowBox[{ "c", ",", "v", ",", "p", ",", "Q", ",", "P", ",", "v1", ",", "v2", ",", "nk", ",", "nl"}], "]"}], ";"}], " ", RowBox[{"(*", RowBox[{ RowBox[{"c1", "=", "20"}], ";", " ", RowBox[{"c2", "=", "21"}], ";", " ", RowBox[{"c3", "=", "51"}], ";"}], "*)"}], " "}], "\[IndentingNewLine]", RowBox[{ RowBox[{"rpo", "=", "1.4"}], ";"}], "\[IndentingNewLine]", RowBox[{ RowBox[{"rpi", "=", "1.4"}], ";"}], "\[IndentingNewLine]", RowBox[{ RowBox[{"tpo", "=", RowBox[{"Table", "[", RowBox[{ RowBox[{"{", RowBox[{"0", ",", "0", ",", "0"}], "}"}], ",", RowBox[{"{", 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]"}], "]"}], ";"}], "\[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"}], ";"}], " "}]}], "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.575265516483922*^9, 3.5752655480739775`*^9}, 3.5752657446499233`*^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[{ RowBox[{"u2", "[", RowBox[{"[", RowBox[{"c", "[", RowBox[{"[", "2", "]"}], "]"}], "]"}], "]"}], "+", "rlo"}], ")"}]}], ";", "\[IndentingNewLine]", RowBox[{"\[Beta]", "=", RowBox[{"ArcSin", "[", RowBox[{"rlo", "/", "L"}], "]"}]}], ";", "\[IndentingNewLine]", RowBox[{"If", "[", RowBox[{ RowBox[{"(", RowBox[{"k", "\[Equal]", "1"}], ")"}], ",", RowBox[{"\[Gamma]", "=", RowBox[{ RowBox[{"\[Pi]", "/", "2"}], "-", RowBox[{"\[Alpha]", "/", "2"}]}]}], ",", 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[{"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[{"2", ",", "2"}], "]"}], "]"}], "=", RowBox[{"L", "*", RowBox[{"Cos", "[", "\[Gamma]", "]"}], "*", RowBox[{"Cos", "[", "\[Beta]", "]"}]}]}], ";", " ", RowBox[{ RowBox[{"nk", "[", RowBox[{"[", RowBox[{"2", ",", "1"}], "]"}], "]"}], "=", RowBox[{ RowBox[{"-", "L"}], "*", RowBox[{"Sin", "[", "\[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[{"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"}], "}"}]}], "]"}]}], ";", "\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[{"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.575265516483922*^9, 3.5752655930488567`*^9, { 3.57526564644775*^9, 3.575265670034992*^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.575265516483922*^9, 3.5752655930488567`*^9, { 3.57526564644775*^9, 3.575265654247764*^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, ImageCache->GraphicsData["CompressedBitmap", "\<\ eJztWnlwG+d1/4UUdcuyYrtOXKe1k9RtmqSx26bu9MjVQ00nTt2kdSc9/pCV TBJ3otiy7LpJrFaaTiSSiRRKTgVJFnWRInVYJHEJJEGCBwgSBAiSuAgQ4AGI B0DwvkVK3L5v99vlElzQ6Uz7X3bm4+5+u/t77/3e+957u+AL+w5951vf23fo u/v3PbX34L5Xv/Pd/a8/9ZffP0hT2R8AYKRx9imwY4EO+R8jBEFgF/8Pdz9k u2wG/wfSxGFxJ86IR2z83vte+hHbZalg3ta49/ffF2adNmuVfZntNrHLX5Um 9qdBqS59U0PKh/jc4uIixsbGxLPflW7/lsbtj4p/N4u319fX46WXXsLevXvF fXt7+wZP7hH/bhefTCaTyM3NFZ80m82YnZ0V59nc/v372flzKvOwaQ0SbXtU ahQXF4vi33rrLRGA1MriT+l0OhGf3UL751QMiY7ZLU5sW2eNrBO7OjU1hVgs RmiSTeycW4tnJcA/UQDpusy5dEbbp8WpLYoQteFMMab3dg7OiOEE4DMS1J9q +DNLg9/f1qCEiWG6E5z8iGyWpJNEE9OE3XrkyBEmnQv+nLjLWSNEVmCbEpQf SbNOTeHg4KBo3R4uW6aNnX36f2fdVo25D2vEItuYSDIzW8Pi3SonMmvZtZ3K CvrIOnfmrHGnfLxdQ5nHVTyoI5LRz6QdOHAAj3G+1eFPfO/S4ICr8qVfkIpM y5JtJO0JLpjHguyIHMXyTRqYT0oqfFFhQ8ts9arOtILYPA/qX9XgP918NqT7 8ILGpd3cVJlERiwjmpFOkmRLWJzJCjzB52QFmTIbSP2KYvFDGfKDGpyZwo6f Vi0mxjPPOdu0Exj37zfeZ/Ww899KSzxM2DZFxV+TgJ5Pm8hZE2Rs8/v9+BRX hom7efOm7BVJAq8v61R9gkddJhLYnMvl+iSXqzaBc4CNBTyeIXgLCgqYhs/y y+p1LHNBRP/mhtjqhSEzwjYen3KqYQ6Tn3pOm6RnNpTzwQyOZCTJLDzPH2XX VexsDLxbgxxVkpMNkAlhJfwP0+aYDr+RHia70ryaXo55zvqcNhkfl+D+XKWc OumxPYF+SWWwvESpJPOHP6rUkCc1lpnKSWuW2V9o1JKdCtIjEvTHNBb3hzYw WF5qFAZ/pW2wVrqQfC5ljYxZ9Ff4nJqiLBF1bWX6ay43FAqJXFVUVLC70lJ0 9mqsaRr5SIa1qmaSWHtRg8Qd2vG3J7OwhzcQxtVnQr+mzWgGedmKmTsyS34o LcexGiDnOLnsMw0Y4ezsb1XkqrTboQGdpSiRdmG7Kmo1V1A619FoFFar9R85 FtNF5nqrApKlHG0g83c2qBKyC/+ZU5Ke6JgmGajW6rO4xE+lESyvSEawOuXI MfVPPBGwyNUIgW0a9qpa5dXwwycykCoXGwZK+2+qSGWy2NnuzOY8swGBchvy bU4SKwWyuTT/kKLwTnU8rq8ovNnL4ga01rXBo2+GS2dC6JwJ8YsmJK8asRgI Yzk5uo8TLJPIIlNu/Hkb8jS3QIsKlrCY7axEskdq9c0SqVsQutiEgVIHxsvt mDPXY6myGktVJtxzOpR3QzVtUnnnbcPGFEke2yVq4HdHRIG2sx50XvGLx6k7 IczZgrjv8EFobYPgaoLgrMRSpwP7OL2FhYXqF8YnVDmUZ0mZVDlK2Lnsz82c tqICk3g13j6GkeAkVsOZ7khMQIgNQAgHIIRasdJZheXJ0ZdVYSsznaM4l+fU 1YWptRxXIzh79ZYtIh1yxDDFVXHKm/VNsBY3KuFO22aOLoxQ39HnxP1kBC+r OGAJjTG/acOkvEUpDulLWVJvjbZZKgfIGzl6By9lCWdDuhT4XCOwVs7DZUog cKMLIZ0d3qMG9Fw2I9Xgx7wriRlbGKNlDsQKjXDrDP/Cpchv3tzN2RvakfbW vErzxrZlfEy+yuJYlraNR86y1yIhDfdDGB9XRc7juDshYNjTLUZOtG0cpTof aijOfSMC4qMCUikB00MC5vpWcKtiHi3mEfhvdSN0vhm+H5vQ+JYeC12LmG9L YaYugrEKJ+5eMqNDZ8DXNcIv6/29mxaB28Sz1bdStbfUPLEVxnK1lLN2YsHr gOCpVrgSPCEsO3uw2DeGme5xxOoG0V43grGWDljfqdjJg6J3UkBnUkA/GT9C xk8Nk/H9AgIt99BkHoXvdhShQif8x81o/ncyPryEBc8YZht6MW50YeDKHfh0 hr2qtCO/f/0itm9ZZ6N6nx4DCp5WgdrF/y57HHjQcAcrDXVYrmvGXJUbowYP +q974C10oU7nwC2dFU2NYYzZWjFvb+Et3COIjAvwJAT0EhtJYmOSjudixFDz EhrvjKOzrBddl9wI5N9B6w/06Lzmx0LHBGbt/ZgwezBUVIkghUKPK4TPch0n Bkcx5KYlRENOYHKtU3dnGutgteYpH3LS6MpKY1HxvooxrVosJcOHsBQOY7bM iKnbtN5LKxG/Uo3g+Wo06ywwUl2r1TvEO32xFbT1Ein6RgxVNj7F+eoijlop YqLEV4LGBPE1Gxfgti/BZp5Ae0U/glfbETxRBfeP9AiWBLHQOYU5RxyTlg4k SqwInzUgRnw9w1VKEl82EmvSGeEgFfznLOi/aMHINTMmbxixFAqLd6o/pKXl eJGsnEzBo5VUHuO5Y3FoFJNtkrOY03pp5PBHI2Rg98B9LPdSRh+Of5IT6Rik abo0RGOcVtLMXQHz0fuoMk9Te3AXweJOBAusaDusR3cp2e+bwVzzAKaqfEhe r0XknAF3XaEPK0bQYn5PV41aXQM851sQLWpF4rYL02Ynlqx29JUW4diBV8QE wDoS4uAxldk7lbAQwT7KlR+YEjCYuIcHXV1YiUc/y5WvJ2cxJw6Q8mOUA2cG SPmeBzAZZ+AyDCJQ4kfwHRva/0OPCNWHBf8c5p1DmLYGMHKzHr3nDRh0haRs 8rDou1Ly2XWdVGrs7/rhKwkjpo9izBrFgj2CFVcXphobETPfQLI7Ij7J18Gj 6SV6s3K0STn6GLdoZI5UTsxhxdOG5Ujo8+L0o6juo+RFltwli0ZpP03ume9d we3yWTiNw/BfDyJ4pgGdR/Qw/VsFFoILVOUSmK4NIXXbjv53DRR2Bup+uskU e/ZqNiZ6R8ch9PiR9PrTP2bL76W7FT3lLzGTi0Tr8CTuNTZjtjP0ZZ6m+ijx eilcYmlVx3pN6rrqLoUQPNckHtdS1Vnunee9wmY4LVEkwxEx/an6cK7C53kW cXrvwd06gnFDHf95YAv89i4Rsfq8E6UnpZ7O76PFOyso/VCtPk6Wu4iBHmVO 3U7yBP5FfslH67/bE4fQ38tfcXdTWxFCw2V6zf16sSSiKYnBnjHxeKF/ElOR SYwEJuA1D8CgC4jiSinm/UqOXP1kzT+Ical/xqX2U6YecIeo/fPzDwbUF5PU 5utDyDtQD3PFAvxxKU8+sN/hSXAr5mu9SJl86LvpQ+fFDtST5DJqekp1lSzZ 5XB4dbOeozQcUqunfKAYoTWVcnio4rjxBZ5AKsiKS//ZilM/cMNYdR+dwwJ3 23Y8GBvFgsmIeWMlJm7XYPBaHUIX6tCqq0EVyb9JGY90kDtH1tuwjREhz6nT v1QSIJfeSXJhyurELNW8P+baWM7aUZTvxZljUfg6yM0zcpu0GfPeMGY6wohQ /m2ngI8R92F3eKuKftVHk5zMCnxZjrfwCuK3GyCkhnnx2ywGgq2wE7d+HsaZ 00kEQpQo54Qn+SPqHK71aYVLkL+cdNF6CcbvY6mHOruh2LPcygAJaSrqx49f qYH51gz81L/8On+ELRH5hw8yaQMhX+FPxGhhxocoUwYDWOmPyB89y3RU8svG cPLNJpjuLMFL6/XjqjZELuVabxVcwle5hCTz1PAsHrjdVM1Cz3AJRl0drhzr wM+PBuBzryA5LfCiKH0KV/dW6qInORQvcvTxBerihiawYGvGlCf0NEe3vtuK 6wUBnDl5F/4AdcGUPj8hBy3lD7kl4V/w5Hfhr3FzZu5RpW+gVVxh4x/zJOc2 XOnGf327EqaSCQSoQeifXvlMWvwyZP7u/3f8UjvVyGArldHeKP82nEOrN4yW GwnkvdYAs3ERvgH5B1IpGBkMf03l7/wvcbQeSqExJ9W1oJd3AGwdWnHpqBun DlPX1/IAHlqHz/P7WepmiIxINZTktG1INLZhyeVWOgRW1VgjEKGuZMpDDVN7 WHlNtZyzo/inPvx3Xg/8XimR/hHXmmmsehHmfvoH3juldXIYtjgRvmoQj51n a9F3tR4TZTYs3qHX61behhHjdRd9eO9MNwyXUwhEKAuSRDnlq3902aoWt3ud OLZvsfVK6bnQg2RlD+45Ihgx1SNeZMax79XCXDYnJlE56crffhhxa+B3rYPv bHDj+s9axeOGulmEDEMopySQoO7PawsiGeyG+qWBvcpIUaWCXbuKpDNaS5Eo VvyDmG5JoteSQNPVGMyXvUhGe/giWKfV7HAKo5Tr2JYoOIHJM+cxWlCMeIEB nT+phuWokSpAFaYpQ7+oigipapAnC/XwXdRT70893GW9/CEm+uZP0XHgJGpe OYHif/0Jus+UYramCcvJFP5GHaMPw29qgvNCBdoIqZOQ/IQUukxN1RU9eq/q ESvSo+PYRQwX65G8pkeKxliJHhOlFZitbeI/7/+9uNuBvjZaee9WwEGIrYTo eKcE9XkX0EjDcvg0bh08jhuvHRePs+DIv0CRmmCohDhGiOM0Fv0h/usbh81B 5bly1BKs7XQJjIeOw0Qji/7mkkjjoTwYXs+Dnkb5wTzcPpiLm6/louTV4zC/ fRqhcyX0BlGB0dLytbCbYCJYy+FTsBBc5Ru52ah6I48QK9/Ip6l8mGkYX88X kcsI+b3X8nD91Vxc+/5xGN8+hUQ6ImX8ojICOQ7rG7moYePNPFK0hgB30Fw+ qmlUHeLwBG2gUa6CLibo1stpsB/EEElqPnoKtQRpIx1tb7KRT8f5NJcvCrAe WoU2Ma0JtoxgbxJsCcGWnbyWZv4IoSaJGd+JC4SUm4U6gt5Jf1eBFdDXmb5E NIGWE7kVPzwNS0EJZZnyNFWna+2iJxnlSfKq/0QhnEfegY3cVEujhoaVRhWh WWiYyF11xwvReLoUTRQ19eTmNqP9BXWU7mGRJkYcizwWKyxmhigi7xZJEdpL +ambIrbrshTBHRTJboq/FkK0E+LEUErmVM47LMwmSgiSB3WS4IaKJMh+Cvye K+KSQpDgvATnIbiQuYlKWEr+p5Zv8Khf9IXpxaMJKYJI0OOD9HicRh9BRAki bmnCCOXmGXqUr+L/j38e+uUubYcP/A919fet\ \>"]], ",", Graphics3DBox[{ {RGBColor[1, NCache[ Rational[1, 3], 0.3333333333333333], NCache[ Rational[1, 3], 0.3333333333333333]], Opacity[0.5], SphereBox[{0.3915137064135751, 0.5281108005810001, 1.125}, 1.125]}, {RGBColor[1, NCache[ Rational[1, 3], 0.3333333333333333], NCache[ Rational[1, 3], 0.3333333333333333]], Opacity[0.5], SphereBox[{0.3915137064135751, 0.5281108005810001, -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, ImageCache->GraphicsData["CompressedBitmap", "\<\ eJzlWnlwG9d5/0UkdUSS5UOHrTa25LhNm9TTdtI0TTqTTqZp1KbJX20dx9OZ jqtp67RTxZYo1W1jp3JcW6SssSnZLUiJ1EFThEiJEkGCBC/wBiECPAFQBC+J J3gAPMH72H5v973lWxCk03/SP4qZh8W+3f3e7/e973pv8YNX41/7u39+Nf7H x189cuzkq6+/9uPjp4589ycnqSvmcwDyqaUcAfut0E/+lQ9FUdjFX+7h79kh hiH4c63jH9SD2qP+Yu17v/xLKq5t7MI+tSMWCwsLqKysxNmzZ1n7hnZfvHrY qV9NSEjAsWPHUFBQgK6uLrz00ktoamr6A+3ub+hSaVS1h39UDL+rdu1WZWVk ZKjPsk9vby/C4bB6lfUx+cePH1f7vq6J+WYEE/bZFoXdi+r3Dh2uEMfgDg4O 4sSJExxZrD4ku4+G4yP9oXqIM0gVI+7V6X1B7dtuGId9mHpI7uc5NK4d9exr /zsmn+co5T76HJYICh2++eabqg6npqaQlJSkP8ruyc7OVkUQqK9tmKM4wxyJ 33uij3xoa8qPcb2xS0zbubm5+iT+nibjj35xmvvVH7uiziOTyKgK6U9wsUwd 7Do7+6om6Fs6101IPclRj4yMqESYfbAPkxXL5bLxS0tL1bPHeR8bX0wuH+v7 0UfQ3GvvlkxcLhfGB4MYcPsxQm28wY8pak9ykRFOoXJRB3peG+UHOs29USaJ PcmOdB7Dde6jQfJM+ag2FaA5uQidqcUYSC9C0FyIyex8zFU5sDwaFKEhwlP2 RjFhjuQVHi5kfTKmzDzZFc5WM/g9sFscuGMqQpmpEu6UOrRfr0d/lgtBiwth mxNLpTVYsZdiqSQfq+NBMdOyW8XqyoiNgMXaUQ3W7+tR+NlNFMSNZzufLbul DrdM5aSkelVeS/oDdOd0YLiwA9P2DizWtGPtvheKu4FaNVYdBdw2YnXu3O0i tcXaEQ3W16NcOvwZli9pkfvvdgT6BmEmtFmmJhSm+FV5MyPzsdy4lZEJKL39 UNo9UHy1WBvq5GapuStTpeyuezZH/NtbavuQFJyEFgR2MYAIjR5HK2FuRLml P2r8E/KV+VkC78GMz8n9wejpO6O73fOba/jAJibA1ED0BRih7PVBYuCtbSfT 0Ew5EnSrtZdPCIFenEXr7Rz1TBgtUwj7sGF26Q77xc1xPsmH3iyXsUStB17C Vu2HEnwoYdOU4nEFcdFKIqcHhE4ZBUe2VqHs49pgsOQRuDG8uDm+fbxPLg20 vLLdoDxhsZSmHuO4hr2Etes+lEBvZP77sETBxFCXTiE0OI8KSx/ZSgNqCx2P c7hMoDwID00vSv4uVTc7o+ZL9jwzSzru5wjWmorJReqp+TienajP7oD7URhj bRPw2QZgS24jT2sgRHZ43f4DUYLSVzQY39kiGpM5PMODzWKjA2t1NLCTfLOu AT8/0whP4yhGrW34yDyP7twG1CQ3It9UR4OWqsHpAFcP4yJEEg8+8Lcjgojs iHIQYb8P81i86HRg0WZFX5oZ791YROhuDQbMtbiT1YeHzm6K0aUUqwvUmD0y GDwkZUcROL6sjf6sHiTkMknWPvtNxyMc5vJIEM5PquBNyUf/VSs6U6wofjcf ue+nw0nDkZY5TKPv/6Y23nNR8tHhKKpnH66BaE4uxLz9SRjh+SmDk990rNvy M1z1zISEWJp4DubpLSPkwc/waXYeCoVe4I/eMk/B0bcgoor6/Wn+OJSFKQlK nD6Xcln0Gxqeo1FQPMUfi6x6vF4v12kMziSGEF5eMQydZV3EaGhEPfvViPnX TFnhafbQ5oM//hkJTjaoL/HnzekjKO9RRD5T+8r8S7rMw3xKhJ3xKXls0xng dcAm1drG9QMrqwWoGIm5sJ9f532vv92LmRUj0DzXGlaHWiWg2oTJc87kxEVY zjo4/jkgmbsa3ETNLeaRSWL0mWUKyxWVF2tfFupM9cP2QOEuwlE2KJjjyL8Q xbf38LFkhQlsWvTEb22iPBYVGSzW9ztc9D+ebMHUshGCxzWF1kdjGyAIv90K QoxueppSuB1vDAAs/BAfMYlyAHhR4HCHcbfJmPlNlmUok/2S6ccaJpA47o5i UmKmxHDyNa0w5KazK2rRJK/qGNKvcjEfXp7GwPSkAWHNQwWrK4vq2bO8T44H u4xgPgvWC1H0J60kREHgcY3jSsU858D7OhT0jU9L8xhrEKMvITa4X7RCcK8c SnZtFtDVqyIMCnCJl0bRN6vFMFF33nGv6aJ/hXNkzwkvF1FdTOg2HVfkvgY7 PiZHk51R51CUavT7m7rSBvFxoYZjt4itNuIwPSQZmLGKEitO6nticy2JJ+WE ywyAfaS0x4TxykfbD6C+9xK68XBGMYC6XbKCEBVj7Ow5PmWiUOR2tU9XjRY7 NXvc1LrW1RmzfssOQy7lHqpeYYN9S9eaHx9kLUt0Y1DbOauLFiGdWQeTxysF vnLZoUfXSCPTcBhgieIzLS1NBF8m9tv8yZy8RXRMKgYkRa10Pj+unh2R1CzK wuf4WMZ9sXV1bA1t08d4CRgF5LupcxHWEYNCj4KllTUJ5Ib5fFZS10YHjeX2 FdG9lf8Kt2HTIaZV7ARlZ8/AF1QkV6JpbphDe1e3ASPbaWRTyhOSAaNxtF2b aYunY2H5fLEHoa1/T5rAzGxIPRMLm2vFq7rc53mfXOVv1y19vwxox2bakeAa o0i0yPIdfvetjDHUPNKmUuw+1feT7EUtwB6NmEb2IWJx0efvqV/YGaLp8E/4 zfHvDVJtuGzAZM4KIhAclTCtl6VyHRFZ20QBFhdFHetgDUjM13pg79IMWuwO WFuXdclf5H3yqiFmSwTr4SuqFRn7YvWbxXSd+FefXgAKQHcrFrAa8Eh2pNUO Ip3S1G2NSehYvvqnkrsU+OS6ngasWkOYgxBLCbkU2LblaOsR/Xv82Y+vh/Vi TayU3V2hDVpmWYelPjbOepHBneMVAdg1SUlY3oqJwcVPqZaZHJA0FKevbFlS Fl73tFHUBVMI/aGAQVRZu4IVXgY9z92UVlSGGoHvnPBFyo90YAGklGj55KDo a1lCT3BGPfu1CE/j2jxolHLuwz70hTULFGvkzKr1muMFLkVsvHHL5FJe1rF0 4lKuJuVp3tc8TBJmNLZivSFnmANGEfdsy+jh+VyIMOeEMTrQJYlY30HgdPYb pSR+uqBDf0ao2LeeWYRShIoZHZKk+rFqsFrdhR/yZ2/fnYV/Ql61kcM6qUSb n1DPxIqPmRL7MGLR47xB7FnTtH5pvz62bOeW+wqG+8cw6PZ/iXeLzWluDts3 H+YlfumWeRzeUXkhudtwu4gNuaY8tPofovNyAQLpVoRu5rH9dJ6DdiMcGMNY sx/9tlp0X7fg0Q0L+qgNplsw/KkFo9SmSmsx7/HrpigH0bjPhvpvF0b0S9Gg sj2VW6Zite9a8gACOQ2YLXZhtbIaK5WFPNDtw/TQGDoLatF61QLfNQvaqXUS 5B6C20tw+6kNEdzhDAvGqIVuWjCRaUG4rFaPFWI3nCl7C+h/Jaz0Rj+qe8KS Cz1nuD3z43zcMbWqfWV0b8jeg+WGPig+suwHjRhp0mKt11qL+6m5aEizoJng ewh6G0H3U+si+A8Jei9BH6A2RNBHCPoYtVAmo5CLSXMulkfG9NcwzBal9V60 /Z0IJqf+w4/w0pLE5IDhdvMFO6qy+9S+K+8MoTswqPaH/JPoqWzDSHsXmolF 9ZVc1BETFzFpJCYtxKQq8QqqE1NRcz6NRnLQ9w76TkUdtfbkTIxlakzGzRoT MRlsfWJIBGqQ1ip+/KWYgiselHasSsHjiA48z2RXf3/80xZY782qv4fKR9Ca M4jiK93qrn57TT3KLueikoDXEvDyhFQUv30RefHnkB+fQEdqpxJgoXaP2t2T CbhDLeuNczBTy3j9nEokSMBD1Oa97U/wvCCWCixmMc9lXPYZ0ZvMc3oSPqRT pAvJ5x7C26yg114Hsb3be8cDd1oT0XIQdBuaSh0oJuhlF2+i+GcXt8F2OoEG KKJv2+lEtRXGJ8JKLZ+a5VQick8mEoNE3H6DMUhAJqEveOsiTcNNzHrb+SuA jZvW3JD4IvIv9Ng/jfxWOdtup752VF5rwzt/W4CU/wrC51cQmFU0J92D+RoH Jm9bMZRehLaUIlSaCpFNMYg5eV1eDWxJxOX0OZQQidLTCdvoK5EK7hL6Ljl9 ni6dR1H8eeJ1HgXU8k9pvHROr2uc0k+8j7C3fT/3BzET3Jr4EvTP1MNejA0G 0e3uQKvFifumArQkF+JBig3dqTb0X7chkGHDmLkAH7zfhTFvB1bGghBz/IDo OjL7kfBPFSjMmYXv0fqLnjmSGyRe7GVph9svYnx7QzuxOocyavYzRNF+JpF9 nScoZcSvlFpJvMbTxnieYjzPq3OX8wbxJI5m4pjxk3OqrP0cSrQaVtuIwjH1 8ATbDUclscwn67GbSuAgB2lMroDvSiW6rlehL6MKgVtVCN6pgvOjEpgLJjBf UIJFmw1LRVasdXfoe1v3KCRffcuJpH+pR2HRMjxD4g1SLGbIlJzvXEQ5zWIF m8WKM4lkmRXEsZzY2alFMi0khlZqecTyHrG8Q7N5i1jmfXQTeSn39OTC0q1I h5zdd7kBsrcNzC/umspQZKpClakWrhQnPGn18Ke78MjsxtAdN8Zy3Zi0ulD8 81JMFjmxbK/FSkUV1irtWKsqomM+1iaCOzjRQhKVfq4F//2un2pYBe6AsPZY 1WdGyevr37lE7IhopU604rRENj6CKJEURC0/vYSipEzVk53kAQelsouRNOzZ 8eXELs61hHynChZTHcpMLngtHQg0BjDaMoxx7wjEO/SGW05YbnditTeANUcj FKcLyv06KPXV1MrovABrU8FtkgfbU5uQfakdyUkBeNvIg8OKyAoU4NRAxwLe o8uZcJ0l6uSeldTYUeUcL3E+xTgnqpxtb11C1SUzalK1gMsCb2hwTK/65NKf l2NiueIlB2WvlPQFzsa9wfcT2qig1XLYNs5dCVAZ2kJ8WxxQmsvhy7iBmvQe /OdrpSi4NQVfj4L+sKLtrz2lph+Whlg6YmmJJVrPhVS0XkhD8wdpaKLWQAms npozMQ3uT8xqimOprp5SHkt9LAU259fqRajY9Vh/p6yTMpuKqLHXRkNR17fR lj9J2Qtx3DLvUrC6f6MHjqQsNFFV1EI60nZvnlTLgSliwsoDlc1NjU0gQysj WDnBygpWXrAyo+2aVnaw8sNNTFg50tfYLt5XyP96omi6K5JHFcUW44uorXjc zZtnFb/WvZMSWjmuv9uIT37mQev9VTQN8yJ1wItVX8lRXuAteNrVgo0VbqyA G8nQCrqBdK3AY4UeK/hY4ecjGqwQZAUhKwz5O6Y/FgVSZT0BnhRKlXapjLWn +H3uahgll50wf+iF6YNeeD1Uo4fX35woAy3ob7yvnh3lprc0PIa5Vj8mSmrV UpmVzP03tBJ6qKgWISqrqbT+ioyM1k6V5KAT8ov7Tfaetb2H7OxJ2GpW4etU MDi7vse+NjeJAWb3bM6MIwx4SKsd5VDmpjZsfK6Lj/bnJ/Y+3oO+1npZrLCB FY8Nir86moPu0Z9+oL6LZmc/lJ+Ow7K/DmutJVDaaqD0PoASntb/7zcyOE2P ttGjldQKXpaf3IHVqSBW661QGunp5ipqTiidfihDAV4rbkePO4Baix9ZJieX YmMB5WU5ph7E2mQQa7X5UOqKKCaSgpyExUG4alxYrmzAUmMnFrsCmO8IINw+ jCnfMEKeAHpsnXBfbkR1sovyjhM5pmqVpplqG7vF8SM5Bz9F7PxYq7BitaIY K3Y7lkorMV9Ug3ChAxN5dRi968RAlhM9GU48uOpEc4oDTlMNygm3laRmqzHD qubyV+RCZh9WuzqwYLViLt+GmdxiTOSUYizbjqFMO1ldOTpS7fAk2+GiOFpN 6buY1FBL5YCP4sZfa6K+z/PLvK8Dc1TrzLR2Yqq5E+PEfayhE8PuTqpnOvCQ 2t9oj/wf/V/1/+UBn/sfFx1Miw==\ \>"]], ",", 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, ImageCache->GraphicsData["CompressedBitmap", "\<\ eJzlWnlQm+l5/8WAj7XXV+wcm93ukU02bdJpm047nUzb7LadbNscTTvtTv/r bD3biZs9fOG9d+111mtg1wm26whjWJ+AT5AAIUAgTgGWuCwBEmAOYyGwJO7T YL4+7/e976cXWSL+o5PJTL+ZR9/9vr/nfp73049f3vezV157ed/OHS8/9eKe l3f9bOeOvU/94I09dCnuCwAKidKeAjtW6JD/FEJRFHbzd2C3m+3iGKwXtAt7 1J16RT1i9Pxv8dYmfm1ubg6VlZUYHx/HenYtnj31pIR6FbugPb5affzixYt4 6aWX8NZbb2HHjh2YmppaHzGDNMaH6m6dPhF788UXX4TZbGZvqneNRqM6UrwO ID4K5N/TBnxPgiIPePDgQTZonHo7Xr/Ntubm5g1RBnxCG/DfdS6flLAODw8j KSlJx9rf36/eZYJi59o8Cfq5z+dTITCeIsUhTfbX+mR8BLGpT2/h4OUXaXs8 ivQZLnZMc4vpGLtMjOxsTfSRuFK+H0Vfq6KA3hx9lK8+hE6ZXJjMBDj27Ouv v64+v1YXwlPakM9zYcrzCFxbo2P4EmczGgYuF2yMYbVsTzh///9EGNs4dmEw YhLGvBiGCYNdJ0PEoxy4MBwhMKE9dv6tB4wlYZmx/AbZbIkhGzY9kwODFy9B E69u4deE/NjZc9qgfxdFIFuihgcxIdvYQMRPHH9ZsMpoO4fOMInH6T6f7m/1 oZ9WL2zVh5Z9ko3HrqWdMKDf2QmfswvNhkK408zoPGVGb4YZA2fNCJXWY8bd hdm2zq1cW93d3errHo9Hl/o3tblf0GO1Zp1fVlUr7EdiS73roXmLaE6bwQK7 oRSNhjK4TtngzbSh52wFBi5WYOiSDcErNoxeL8NEXgmmTBbM19VjsauTq3C5 zL+hAfmbKDJ/nP/Gcj2mTofDATfBumIwI99QglJDOaoNVbiRVoPW03Z0fF6P 7gsNuJ3TAP/VBgTyGjCaX4dJsx0zlhrMlVTiXmk5FqzFWCwtxNJIcJMUVa9c uSKiKgf6vRXj9lcfJmCTkH1B5BgKcMlQjOsGGwm1hoRaR0K9gcbTjXCfbULo ph+jbj8m2ocw5fFjttOPGUcXZqxNmLc5sVh5A0vVdViqqSYqx1KVBUstdh4I ElRtM0kxoxNafza2sL8UEedi5QMmcM3V13I2ComspIBqGA31KDE40ef0Y9w3 +YiIzgNDUO74odxwQnHU0b4SSn0xltx1PNAsN4mvx0a5TfJ2OcrJTK7mAtCQ lRHV4qrBAS+h2szvKUMEp/UGlJZqKI0lWLrTqZcJzAO4zrFB949tsUFtiRER uJ2KwMhuMayadWm/5aY6VXo5BjuZ8eA2/qjS1wHFTXptKtL1yYQvFCJYjZbp vyh5thpVNnNtRXMjlsnZOWlYmLMcuEQwyyE7ZWLUk3dEQhdaVAYId7sN9/2d +jU2jcFgCI8X03k48p9K4pQrE4bT7XZv5CbAvD7HUEFGOK5jEfu4KKNvFAju uKEEeqQ0F6fnK3b2SGxkP5EkKdcm7FUpIImZ3M5uUrBbPVsVJXsJ0xIoJjvq I9DGqwYjAghNsQK4P9Bl+0SMlJiamqpbzlYdY98D2v5NxYHgb8jVpF8TPMh1 2brYYL8dZarHHs6NRDAKex65rLfzIbgI11wuxwSyMkehTPh1H7KezXtgXNku 1ugOFRfhWlpYjWnWX+avC1tmlaGIWdz3+DPxWAqSYc6MCeCR0o/kxeWcxKFf TyK3Q8Hi4j29AB32jcGYka+eRdYrwp24RW2Mglgr2/CHMfX3oJLYqDTa1zgf i8NdULqqxWsRYiP0rsZpfJw+heC8gpzsAG6HxnTPYx6dQzncTSXOZj4fcy1m v0xYohQiOxNuEs2t1sXmYjO3z5UqC6H7r/H3FyeCUNqsFD/aeMcRB1fTDA5n zqhcCF2ZWpf0eURnMuybUEN8DhVNFLe280dZDGHTs7MNy+UUAXit5OMP1sCb Ihxezt3C4cWojDUR4oW2FpzUurttUPrboUxPCCN2tcziyNlZlTvxem71Apbu dnCtyNyxRFbOkq6odtnsUrX7UAx+W39oI1eRXI+KVkPgF4Xt09wllsZJRY0W yuwkUxcF0+FBXS2u1nkkXZhFaF7RvdTYoGB6UeF4NZYCxEyFycPVZSMqYnXO dj6FmFLuYB6JrpVooZOz+RcxIjQTGVsgYIw+x1+477ZDaSCmnKQgZy2RA5eO 1SM5exrBucUEwZ9jDK4ev3q2ig/P6rAbJi/yDA24TCWmpqAiSkp2XqkuL7zC veqqsK+GM304puPPooQBxgDbSGPfEYGv3wulhgavLcPxnefx+bkgAg3NWKh0 Ys7WhHu3/JjrGsK0d4iy3xDG2oZwumgRPZYuNJ1ugj3NgXICb6ba45qhUvUf Vta5nV7OwANN1abYUv9uhNdHtlfsLrvOjrWosZ31A8j++aeoPFOHxbIy3LNW Us9Qg2mLHeOFdQgZGzB0rQEDlxpw62IDigruwG9vxw1CXE0lcSlVKCYq8C6r Yq9TS+bHuC0JV5T7skd1wWtWhT+WJC37AV9H+i6Pyh++YcQFy33cDwVxr55a wIIiTJpKMJ5XhtC1cgxfroAvqwJ95yrQmVGBjHca4MiuoI7DSp1HMXUgZtQQ vruE78kophGv49oqh9WYbbAw/lAopKvhj/i1A7sLkGVd4mfsdz3m2jupZe3C iLUevnNm9GWa0ZVuRju1ty2ELe+qR217Rwjf0xyR1WpVkynbyArEaliEG26R Q+fKIZ+lRFYR/ymHdnBPEXJsSjg+s3K2kYDPjqhnT0coku2FIqMVfGE0z0kB IHL1TSSeaBH7T/i1j/aV4FKVnK0J2U0F9+5rYn2WI5NVKNw4WlzSvIY34+uW GRuX7rLFLnb85wJKog1Xa5dXhq7mOXjaXerZ17mhMBiijBc11cponlkhSjI1 Md1/j79+aH8NrtUvr0UvVodX157l6pBVtPLsT8aYXa6i/5K//ou3GpDrWF47 ZhXehTI5uGx2sTDI+yHZn57gGltpaU0ufQXjH7/dCGOTdk0U9VcsCxhbUCTx J+gWJtYEmQp4TxsO+9EyczgfqNdFnpTDLhMPOyfRiAXGj99pRX6r3LTHob4r vPz2jDSMbFm8KuVtglo/xUdTlIZ2GbJVkgTljQ3/PH/98LttKHTLq3JxSD1H 9fbYgHr2DX6NjcG4Y4rmWCJa3rBYVsYX8zWeuqRNgPzkfQ/M7fKyTBxsnQru L85LIONVsUsBY6skswgdrlPPwuuqD4aDMBhmJGRoQpFHPuiGxSN3MuTebYu4 HdAC+3NSlBLfBLbISNY8MKO8j5SRHjSFQFnBJdagdEwf9qKkU15xo8K08b4+ yTdFROTCYVpchilGrbZmGbxIqNHKIbEclHRgAKXd2nCP8WvXS6dxr69ZQhSv l48suJLAE3TjXSvBS4glk2i2JBAkfzQI6y0NgWhZcqvD9e23IiyboRC1oyyM NRKQDbpolk2VcngYZT3yp544tHYORIhfS4ti/UJEzGgN8prIMLRaPwqXHcI5 UpKCKO9ZCHtw3HKQfLQ2qhDTcufQZMjHrfR8BIvsmPcH+d11mPYHMNLixWir F+NEE0STN72YIpohujcU0JftRXziyXQFFjbpMH7AH/r0s1GUd09I7hPD9taq l01Uil261gt/oR2h3GrMFpVjvrgQi6GgpvuNmBwMYKjZi7bPTfCcMaHrrAm3 iPrOmTBw3gTfBROGiO5eNCGYZcII0ZzLu41PLq9qS58rojDzEr/1Weo4BkLa ra9wENFcmrXrbCs9dRNZ7zaj81Ijpqu7seSkdrHVicnGWo3VLegw18KZaURL pgku4qOd+PASD93EQw9RP/Fxh3gYJB6GiALEQ4hoNNuEsWwjFoYDEF83xLcl 8WE1XHxF5erf+K2j/zOFOyNyDHlgFUGzp8dx+WQHGi0BBLzTKC2fwOLQDJTg FKbaeuG6YlEfdxXWoi7DiBvEURNx1ErkJq46iKumkzmoSc5AbUoG7LS3055x NkwcBYijENFIjhFjOSpnIl3KtZsKhfde/8rvp6bNwDcqx5xnouol+5fF6vGV Y16kHxtCW90MQl0zaLWGcDXtFupzbWgqqEHlaSNqiYV6YqH2RDYqCapp7xEY VUpCHlHuniRcJ7pKdHn3EWQTFX1wDN60bAQJPmNjsrxG6CbyYxLLMdoaFf5F 5BKHB8cz5uEbEx98toctiu6x7RevlOLo29qxr7kXc/ZuDJf0oONyF2yn3NRc 1cN8thAl6XkoJy5sx7NQ8uExFO0jdIlJtE8iCZr3JdPkhfSbT2Tam0wcJWvc 7E7CJaLsXUdgfp+4OZVF3ORxE1ut1zcRNT7v0P5Z4mTna20YHOeciISR8loV ioyzcN8WSWQ9OXYBObYVY8Zq9GfVoulUFXW5pepXoZr8WhQRK6XHslGceITe KSEmNqE0MZmONCpOTIFlXwqxlkIspSCfWDES5e5JxrXdybi8S2PnwhufwJOW pRc7ogJlhsXx/1TC/+ruDvgnFL1FzTOUIPP9eqS+6UBRyQJcg2LZZ6MaJnsp tN6kEFtO1E4hl7W3nkYqX1KzYCXoVgJetp9RMsoSGaWsoospJIES+i3mHJj3 pqCAyLRH40BVCHGQ9QYp8Ei6HokjKh7uEP+kM+DF64ke+CdFoEpAAfXf5w43 4+TBDricS2gaCvcHZQSwnMiWyMzDtj+Z/aQQZ+UEjZCqQEv3hWEWEsR8gmck uk5CvkIQcwhi/qk8BHwBUavJPQbP6z/RIXZi19teDE2J0i4Bpel1yDnqRlrK bbhdinpPfOyep0DXk55FEI+gYn/SKvohlBWJDKWNfnWkhK6EyLKXC5Oh3M1Q kt++exzmX2XDTCiDYZTCJ1kvwlH+WEfZhb3vdWJ4Orzgy6yj4nMXDv5nIdJO BtFG9dfgtCLWxWbcHtVl+tKzceOj46hUZVqZyNFuUNGW7YtEmsyRJqH4kww1 ApWlG1F8Kk/kSpF7ucZ5EP+RDrQHiQduYXgm/BWujYDWXujF4Z1lMF+ZhLtX Qe/4fS3Gb8MoRagQEYtWfady4D6aSQiTiJJho7hQTlRGZCUqIXwWwmf94AQq jmSqwb0uw4RqFmMIZ0+j5ysRaZXrXfMR/FDH2Y83D/Xh7oxoLxPgJSHXXx3G Z3tqUFQ4D9cdUU19Uc1vYzycBik73KVMMZSl5cM7RM2fZqIxJVPNl16idsoy Lso2LZR1nASygcJ4LYFspawkkltEnuQI/1FHOIB3PrmNu7NiQSEBRoMVZw44 cJySeaH1Plr8Yslji4aQMjHLyCwzqwgJ2SBl7QGivvNaJmfViYeojdDdJHRN hM5B6MapihG1o7xAoRVX+Acd1iDeS/YhMKfwxJFAYbIKF5Ja8evDXXA1Kxie FCXno6zQwYS1FsGLWgHECiEfQbl9XiuQWKHUydIyUW9RrVpI8b9C/L0+5RDe P+pXp1zHpyw77cDl1Hak/coHN3VmfnKM7/CqYoZXjax6ZFXkGNEoVZYzVGHy f928wFkbpejooygZJBpzevWlacddHEgdVtfZV0vuVnXWg0OvWFB4cRRt1FwM TCn/oQ34/XB6WQu7oQht6Rb0n7FQOVGE8asFaDxvx0cnAmzIeM5DO41ozx7A kVcrUJQ3o2Yj7Tud9t8bUirbrlISshmq1ePebAcCeQ5MWRqorLTi0MkQAs56 zDjs6hu5NPON3BB+ub8O5uIF3KTs8F/akH+l7jbB3+9Th8o3NMGe2a6lcHM3 xm3duHPNhcq0Rsw0NcOTcQFn3yzFiQMu3HQswUm2tlMe6lHcrL2pvt7VGFpW 37gc4zicFsDxwy0kKgoG9W2YbLfD19SEn8tDxMNV3QFpEwrYlToBt1eBbzr8 GcdFPPvdrerZf8ujrMYgaVrpqNIADFDfMzyKpclZsf4wdXcWAy0jqDb1I/9M HQbaWwQOTdDrsVBXCKWxQgcyV9WGkZIO3M6jLHWhjaTSguvqF5VivLr81cWR IOZL87FgtWDOUo7x/Cr4L9ei60wNHGlVsJDTXjIUqpmYv/o8bzDm28n0LubD d6YA3ekFaKZaw0bk0RL3a9rTvxP/If3/vMMX/hfkzhY5\ \>"]], ",", Graphics3DBox[{ {RGBColor[1, NCache[ Rational[1, 3], 0.3333333333333333], NCache[ Rational[1, 3], 0.3333333333333333]], Opacity[0.5], SphereBox[{0.328699139883925, 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.328699139883925, 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, ImageCache->GraphicsData["CompressedBitmap", "\<\ eJztWmtUW1d2/sZgYjt2nJczcZOMnemMO6+udlZf6azMTKfp1KvvdnWaH+1q VxNPVp2ZiR3b2E5SJ/Ez5uF4bCeZCGzwIzbIBgYQQggQb/GUQIAESAKDeQqB wIDBgAGp+9x7ztWVECRdqz/mR7XW0b26uvecb+/9nb2/c6S/eyV292tvvBL7 +q5Xtu/c/8qbu1/fdWD7X+7dT5eivgQgn1rSdrDzAJ3yt3wEAgH25W/AIZYd ohisH8gXDkoH6Yp0xtr3V/7qt9h7NLuybeWbngm79jm3P6n0GR3h26+s/OAj /Nrc3JxybWOE+55T2b6GfSE/GC09eOPGDbz88ss4duzYppWfPSYd1klPVFRU SE/s3LkTBoMB09PTUi90vp53rO4haPx70uGhiJ2wc5vNhjUcg9frlXphna9X gG+XO/o35YLsnRily/j4eKXL3t7eNRz25OSk1BMbQYx6/vx57Nq1i13/ltzt v0ZG/4wKtvDWW2+9JXVGXpM6XstxMAw0rvI49wsf4IcKbrJQMEP+RK8nIg// dJiJYa4XDhsbG1OeWsevMbPZ7QzhN+X+/iwCN9eEXWPt8chgtnDiRQIzODgo HCrdNWx1YdTqxlijGxNNbsx5fOt4r+JRfvs35O5/JB3WhowpMD4ZGY8Mc4uE h1GGxZ+9mN9FHHyDPtwmHKd2H8G///gnaNIUwpFcBNelInRfLkb/tSJ4bhRh VGvE+K0CTFfW4YHTzWdjtBRnFce/8X/iyEd5OlGTijmSDZabmysRzEGgzbo6 FGiMKNUUo1pTCvMFI1qTK+FMqcLta2b0pZnhuWnGaFYV7uZUYkpXjml9Ce4b ijBXUICFhlosjfmiwhjBhvmdZaRcG0JKcb4lLG+EUlF4W6HiU/CSww23SnGL cOdpSlCsqUClxoz6pFrYUurQdqUBndctuKO1YjDTipEcK8b1VkwVNGCmsB5z xTVYKDFjsbQcS2UmOhrg73ELG1icBc92yCh/HMHx2z8nZbFrJpNpDU9zDmKr VmPATY0JWZpKGDQ15PR6croVTn0nvDYPfK3DuOsYxuzIPemp+24v5rq8eNA9 jMUeDxZb3FgyW+Gvroe/phqBmnIEqgvhb62V7mdDMwgsa7Bzjv4vFAdvUzlY 0Jk9wLAT3hieiRgxtJoCaqXIIMfmaBrQoHPjjnUYm3gXgUEPAi4XAo11CFgr EWgogt9RuyYCEb4uw3iJHSQfPqdyXTg5mevYw+Q6kfRYvGU4ZdRqUKFzYnRw 6jE+nQP3phCwWxBoMRMaQjHpgxqGiOXXVN4Ii+XWFXIg98sGPse0mnzJJ1pN LYGa2iKSYa8TgbYq+DsbpCvMs4K6NPgmxW45yeDFVQvyU9L7+hV5xb5lZrH0 s567QA6YSfIOAQumhKgIA2wUsAc6CHZpSIfsnIctUrV+YmUXPqGqYoJae/bs kRINz2yKoHBYuwhqFUGdXIZwJdQCTmDADo/NIn1SR1lUyuhVnbuKATKdNizz uyClcFOYe9I+1pE9/dzly7uNDiY2An9/El57cwh4da2KpK5WgfyIyufhVBFJ Plrlo1AGEPZz2cq1tbwvdRzUx06Lk4+3Dt3NzpACyqSOkD50fHhlK15SUpHI I+G5nmEmdwsKCM8HIxQFe5UtDHboWEIB2S13cfZ0P5buDigmO6x91G6HhEtN nw0rY/9H7qFwdrN5w7pgn5/mj7eS94NwFB4o10QxF1BPX7qPj/UPMH+3V4Fa qmshqJ0hUJm32NiMLEHZKicifEuh/rYIzmXEYC+C/yzvbbixBoG7/YKcvLco PuLpd5wK5oSb/iCsNinXsJwTzWMg6ggjApvsbEwuyr8dYX4/+wVSHOMvOxdY /d4uqjeV0hSKEUSw3MZ//WcjjK7gdEqpCvJyvQK5gyBXSvVXFBUWtfBpTZ8f Udwgk12uGivmk6dXmYGi/D3P/bk05aNKXYxAB1XumcloxYgJvH3Mg6GJoBF2 SyfyHQsqI6K5EVXUium8VtjGRhIVbnMEhPJkxO9G+GoLj54gtFh4MNeoU6tw kzDE76KS31xCRZfo0+MUtx7bm4+4y7MYmQ0oGVyr6YGld5p7SR6u3eohFdTA jWFFS68YGaZgNkeYOgFeTB9a2bDHeZ6KlMoZr7i/dnBY/gkKTJ2BZAzZ1EQi oqkBcUfcyDIH84v2xhy6JkNT5W0yREfyLYPkgEyvYkkiML3ysMp/YokU5Fak AhejmsTLs8Vjq89o0SEXndIn2bytsnlmgpWViddftaHQOkHKsQFL1Y1YuuPB Qs8wKUyvdPdNE62r5uVRx+xejLQMw9PkQW1yE8o1Fhg1dcgmRXhTkmKFUuyY uaIaqrXzpi9i7reVmzaHJQX1Ujs8KchBfwp2UzcyTpgwVWiEv7wES2UVWCit xpyplpR+AyYNFozlUYTSh9DfOoTudBLb1yxoTWmAJakOZtJLJUTDfDInU4qe geZWjdi/YHxhWZ1ZRDA2rpLII1v3Pf6BuYXlRVEyuK78Ljfj+JsFSLgmzxz/ mA8PjPmYNxoxazDRYquUFl0VGM+uxEhmFT76lRve+hZ0XjGj7WIVbEkVqCP4 FbQQKtQUIZeEcrmO6VPfZs5WMYfVmnyD4veQOiQydHC+4k8iJGv2Ctej7Pz3 uSvi3u1Cdm0gWFiI+4ujPmnZO5GZjzFaBo+kF2KIlsVXfpqDrpQidNCSuYUo ZaFVnZni0EQr006re4tqIglmxSiQ163s+z9cJTWzrQQWiz9Q8m0PfvZaMwo7 /VwBkNdsLnx6xgkf1bkRWrzdI5o/zRmgVvjU39rIxAiHie+GTeKw5dcfCzTW SRz5YASeqaBUu1geLGtbV4lrdGQo8nYAfo8nRsFHdcYXPVkslj/igx7fZ0Ti 9fsYmQvqb33rgtLxsxFiE7UqgO+sEhSW85kJL/Be49+/jZyGUPWv1bSjoUde 4DzHr6mWWp8z+jcjJFH2YnFQbXUJMcc+CVfYLb34xe4WFLrnlDKrvTaNzkn1 Pma0MiN4PFbQfhzPjrA6FZ7yGJDU1NTv8fEcjVN4N34UnnsB3gNhKAwm7G0R knBwdssVhK+CY5btNnIOfp/3cWJ/Ea5mz0uhF7pb3xjA1KLa3rVSwNTagY3L 5ejz/4vE8SIfIuFoD3Kt6ioeBc2tPszPjqmGjYHT6QxZmHF38wX2V77A1P+h Etg+vPHzVtgG+U45XTtyckCJ1vMRnMoXBM+EDSPCx4gsbv2RErt7eP+MD8PT QncRwa8+UIbZzonCHKLaPeYjrVu1lAbTeFRQp8Yo/mYv4Sea6ALRiQPF+Cz3 gRThp/i1pJJglvltfk3oefaJc0iqDNGRap8MMQSOmAIsXOJFTHmJP5l4vBd5 NnnIL/NruuagY77KH2dOptQkrOFIELrPHfTE6uhWfGw5TuEuu6Ufe/fY0TwU UFZ5WlJEdd2TKnfJSZlNBJXOFNP9oQixWy99Cm6MqpKEgohSgEDDuhM7w46m aRw9OyZRaqtAlDoB94TcxQ5VABnzZXyBUPn8EOdw+NjqY7jLlJQmyKj+RULM q5OxJbihXyB6+eVftRi6/AA8PFl9XRVXsatOxsVE8FGMGuoK8it04yLcgkjy RiHgiX7oW1QpRx58w7LO2kkEFGvy8OmnLvQ1uDDT7MLckO9rqsAzNzOSisBH 2p1QW7N2Jc9GIuifK0wcwL59bcREP08lm0IGYI1pcvbKJ0FlTS5DTuYdjJMw vp9fTKpSjwWfjwNZh3Gy4y61iRYXpqjdozbdSvZRezA8KsiuplGkpbDaro1K YEKQO2wzOHZ+HN4ZkXIiL+2oL0e6E9cPN2Cm0oWlBgcCtnpMWaqEmBwmcea4 rEPHFR3c1G5f1eHONR36PtNhkJrnug7eGzr4qI2n6TBnd2HBOyp+5WGEFemR 5vsq5gQzb1DNRStnYiqePFiKtIJFEvCLPIltWzajtOcNyExyS+c+9zRSNJNY 9MwgMDCGaXsX7Ddl3w40OWFNyYUtVYdWMrGdzHOSeZ3UusnEO2ReP5k3SG2Y zBsh83zUxtN1mEjPxbzDyQtUqEIMFWgRjd2sGCZ+8LBbnDhzahD5DpFjti83 LL4Ep3dlSOcXDjUitzmAad8D9NqnYbjaA3tBBez51agloxrIqEZqLWSYgwxr J6NcZFQXtR4yrJeMGqA2RIYNp3Hj0rlxWlr8lVaLIs0SByvkjJNBqnGl/S8K /kHsj+1A88Asz0JPKPj1mnIZc2wlDHmT0vlcfR+8pn60Z91B+SU3bmkaobuY hYpLuagm/HWE3UKtPD4FlQkpNHDOgTgS6dn0nn0gHln745BJ7da+OGj3nUZt YgpcSemSDWOE/y414uHjPD4ss6vXhKz28A2bn3ALbl1qwYmP7sJ7n/87QOSy pLg7cJCrvfdEftsgrX3ZmrfvlhW2S/W0XK+Ufjm5cjQVZWRCJZlQGp+yBobY OPYWT6kjPzYBemp5BxKQSy2H2q/3x5MZ8WRGPNLfjIPhvQtwJafBR/BniV+P c9awH4XVUo5zjOfOf+YmnDpUAW3xkvTpy/xJRqyylGYc/Y88XLzghaM9wAqZ PBMfxmybi+ZuHgYu56M9KR9VGj2yKPca04phvJiD4gtpKHr/AgoPxpHxRQfj ibtFBxPoM2uJMFIzxCaScYlkWKJkWPb+BGTtk43SklE39sahJvESZsggIcnE LrZGoxEV4J9UU+HD0x4Y2kTyoixF1yqvunHyp0VIvjiBts4ABmcC63lJYkvG fqoaYra4Gp0wnE9DsYTadDB+DUoI8GY6TaCWSF8kkhmJKCTYxljZBD3B1xH0 HAH/TTkm1wl+X3UThx6Nrq4uJa+RGTIGvmnN0A8h9rATg3eFzI1BB6GvSe9H ws8qUJB9H213AuiZXJKl1RYUUtBLCGkpebf0UALKpJZI59QIZAk1AVoBfEAG nEtgs/clIJPA3mTtnQuozjMrCo+pabHlzqfsPwjCp7Tg5CcT0maImCfZGiMa snw4d6AOxoIHsA8EVfTti2koI5hlh+LJqeUE8lF6T0Q5wSo7KKCegSn2DIpj ZagFBDGfWh7zK8HMIoi//u+PoD+XBn1yjqhNYmHNBDlRmwP9ez7wB4fNuFkq 0/pRDlSnKcGVY1Z8fKQVBSVLaPEIykfjgXcUo9oc9FxMJ3DxUag4xGJfcTAU q4nwSTgPcJyEUcYZDx1hLKV5XHQxF/V6s9J12DKIa7u/VTH3bIIXBR0BiD2h gqQqXI9vgeYUVR6S3xaPn69ntmCcZjmb6aPU2s6mEMJ4agmEMiGINJYjPcCR EkKGtCwuFZUfaWGmTMOSZgkhHRscVXZOWNbOyMgQmYIXnr9RkHpw8B23tBe+ iSM1XbLg1rk2JP9yEI42KUvwBd6TmKOpy1IqS60sxY5Q607Wwv5hKlqoNZ9J RRM1a2IqGhJSUUfN+okWzVR6GqkEsXJUQ0irCGmzvnqrKu7iNzQCykH+NQeZ kdqKUxqZoBtU6aziShuOv1qAZM0Y2twBDM0EvspVJZUtqTazMubjZY3V7sEb ci1nNb2bWuc1uda3XZFrv42alTDWEca+JqfY8WBSzOFwqKQY/kqQ8q0aZJT7 ubSTwbURuOrrPTj9eikMmdNw9ARwZ8q/gzOX6pEMjguJkRuyfmICg+kppqtu U3NflfUW010tBMptqMbU0Cj/dX+nimznzozC6PQrO/4uixt1GcP4cJ8Zxvx5 OGj6fodn+oXhUcySOpswVcN7XR55gCkBpghoxC5qPlKno6T4+F9jfsAfHaX0 2kPp1UNtjBrbsZtuZqLVJ91ht3hx+N0uDE2KPfu1yNEU4fJ79bjwdiMKTIto pQn6qtztC0H9uSlERLNXHT3XccmE/s9M8GUU416OEffz9NAmluODpHFpFR3F x2DC4toHzfjVcSfsjX400hivyWP8KSduuIbK1JShLKlOOu+5acNong0zxU1Y rKhH5mEtsgxjmC/Pk+4vSq5B+lkHkhL74LBLE2K3uvfHlN49vYPSeV5SC2ou u6TzKfc45nrGMWRqRe2nLWi+VUHU08P4SxOSPxlFm0tiLn6u7nKz0mWruVU6 Hx28r4CXfT2Ct492I+lsHypzRjDS0YdJVyOme9x4Q93VhuAjlR3y+aQvpKuC /HtoGw8IneqoJknmlIvoLyKDmh+QZXXA3YSAS/7V0j80gaXJWcyNzWLMOYHB lnFKeuxvEk3otncKUC8okkpeR27EvFmvRN1fZ8N8pR0TRe0YyG1He5oDNcnN yNXUST9dEUN4Py9yTi6O+TBXmIeFIgPmjCZM5VXAm8H+S1UFW3IFSuipDPlX BuxR03kd5tpp/VVSg6ErenRf1KOVNA/TPTU69qcO31757t+Iv7n+/wH40v8A nZ5vnQ==\ \>"]]}], "}"}]], "Output", CellChangeTimes->{3.5752656899718266`*^9}] }, Open ]], 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[{ RowBox[{"next", ":", " ", "N11"}], ",", " ", "N12", ",", " ", RowBox[{ "N14", " ", "one", " ", "doubly", " ", "occ", " ", "LP", " ", "as", " ", "sp2", " ", "ligand"}]}], " ", "*)"}]}]], "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.575260971400339*^9}], Cell[BoxData[{ RowBox[{ RowBox[{"k", "=", "1"}], ";"}], "\[IndentingNewLine]", RowBox[{ RowBox[{"Clear", "[", RowBox[{"conn", ",", "\[Alpha]", ",", "\[Beta]", ",", "\[Gamma]"}], "]"}], ";"}], "\[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"}], ",", RowBox[{"-", "1"}], ",", "1"}], "}"}], ",", RowBox[{"{", RowBox[{"1", ",", "1", ",", "1"}], "}"}], ",", RowBox[{"{", RowBox[{ RowBox[{"-", "1"}], ",", RowBox[{"-", "1"}], ",", "1"}], "}"}]}], "}"}]}], ";"}]}], "Input", CellChangeTimes->{{3.572794697520533*^9, 3.5727947043221455`*^9}, { 3.5727948024151173`*^9, 3.572794803507119*^9}, {3.5727948673580313`*^9, 3.572794869838436*^9}, {3.572795260993526*^9, 3.5727952676703377`*^9}, { 3.5727954366342344`*^9, 3.5727954702834935`*^9}, {3.5727973545484033`*^9, 3.5727973657024226`*^9}, {3.572803225319809*^9, 3.572803264553878*^9}, { 3.57280330550395*^9, 3.5728033127111626`*^9}, 3.5728033508376293`*^9, { 3.572803528365941*^9, 3.5728035301443443`*^9}, {3.572803715051469*^9, 3.572803769604765*^9}, {3.572840261866465*^9, 3.5728402628648667`*^9}, { 3.5728405648813972`*^9, 3.572840578905822*^9}, {3.5728406372187243`*^9, 3.572840716170463*^9}, {3.5728407476825185`*^9, 3.572840785746585*^9}, { 3.5728408298790627`*^9, 3.5728408871311636`*^9}, {3.5728409363336496`*^9, 3.572841070790286*^9}, {3.572841415987692*^9, 3.572841609740032*^9}, 3.5728416910629754`*^9, {3.5728417502806797`*^9, 3.572841879885707*^9}, { 3.572841914564568*^9, 3.5728419300709953`*^9}, {3.572841986199894*^9, 3.572842001659521*^9}, {3.5728426453322515`*^9, 3.5728426487174573`*^9}, { 3.572844776030794*^9, 3.572844786919613*^9}, {3.57284502999924*^9, 3.5728450550060835`*^9}, {3.572845459218394*^9, 3.572845496174859*^9}, { 3.5728455656105804`*^9, 3.572845617574272*^9}, {3.5728456738279705`*^9, 3.572845681440784*^9}, {3.5728457322656736`*^9, 3.572845755291314*^9}, 3.572845978356106*^9, {3.572846145151599*^9, 3.572846189096876*^9}, { 3.572846392926834*^9, 3.5728464086828613`*^9}, 3.572846518881455*^9, 3.5728469699562473`*^9, {3.5728470834620466`*^9, 3.572847089873658*^9}, { 3.572847132180932*^9, 3.5728472650151653`*^9}, 3.5728473515485177`*^9, { 3.572849422046554*^9, 3.572849426554962*^9}, {3.572849678776205*^9, 3.572849686077018*^9}, {3.5728503673146143`*^9, 3.5728503811830387`*^9}, { 3.5728505998798227`*^9, 3.572850604637831*^9}, 3.5730459405924234`*^9, { 3.5731485633994884`*^9, 3.5731485765503116`*^9}, {3.5731486137719765`*^9, 3.57314870088253*^9}, {3.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.575260971400339*^9, 3.5752609766263485`*^9}, 3.5752617401384897`*^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[{"\[Beta]", "=", RowBox[{"ArcSin", "[", RowBox[{"rln", "/", RowBox[{"(", RowBox[{ RowBox[{"u2", "[", RowBox[{"[", RowBox[{"c", "[", RowBox[{"[", "2", "]"}], "]"}], "]"}], "]"}], "+", "rln"}], ")"}]}], "]"}]}], ";", "\[IndentingNewLine]", 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[{"L", "=", RowBox[{"(", RowBox[{ RowBox[{"u2", "[", RowBox[{"[", RowBox[{"c", "[", RowBox[{"[", "2", "]"}], "]"}], "]"}], "]"}], "+", "rln"}], ")"}]}], ";", "\[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"}], "]"}], "]"}]}], "]"}]}], ";", "\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", ",", "2"}], "]"}], "]"}], "=", RowBox[{"L", "*", RowBox[{"Cos", "[", "\[Gamma]", "]"}]}]}], ";", " ", RowBox[{ RowBox[{"nk", "[", RowBox[{"[", RowBox[{"2", ",", "1"}], "]"}], "]"}], "=", RowBox[{ RowBox[{"-", "L"}], "*", RowBox[{"Sin", "[", "\[Gamma]", "]"}]}]}], ";", " ", RowBox[{ RowBox[{"nk", "[", RowBox[{"[", RowBox[{"2", ",", "3"}], "]"}], "]"}], "=", "0"}], ";", "\[IndentingNewLine]", RowBox[{"(*", RowBox[{ RowBox[{ RowBox[{"nk", "[", RowBox[{"[", "2", "]"}], "]"}], "=", RowBox[{ RowBox[{"Ok", "[", RowBox[{"[", "k", "]"}], "]"}], "*", RowBox[{"nk", "[", RowBox[{"[", "2", "]"}], "]"}]}]}], ";"}], " ", "*)"}], "\n", 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"}], "}"}]}], "]"}]}], ";", "\n", 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.575260971400339*^9, {3.575261024378032*^9, 3.5752610491820755`*^9}, { 3.575261084079337*^9, 3.5752610863725414`*^9}, {3.5752612045583487`*^9, 3.575261225883586*^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.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.575261118836198*^9, 3.5752611269482126`*^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.7076439581218188, -1.2898559287508375`, 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, ImageCache->GraphicsData["CompressedBitmap", "\<\ eJzVWnlUXNd5/4VFi7XYVrzITtI6dW3HTRQ7TVrntLUbxz1R1z96To//6Ok5 qaoudtMoqWO3inMaR3VdgxYQSMCwSGhjEaDIkgAhlpkBZoZhGbYZVrEIBpBA rBJCQlhMv+++e9+8NzxIlz9y+s65vPfuve/e37fcbxv+bNe7b/3d93e9+/bu Xc/sfGfXD996e/ePnvnOD96hrujPACimlv4M+DlEj/JPMUKhEA/+Um7/wLcY BvJHWsdb4hYNgS0kIKqhtyOGuP2hNvSPFkM7f+GQ2BwxpiG6Hpbd9+7dQ3V1 Nd58803s27fvtw0Ao3jeFtGxQcwbHx9HfHy8WKq0tBTz8/PIycnh59/SvntP 3DaZVt25cydaWlrEM995rLCwUKzCK3xD+/R39S2JDsUU7Y2urdwlnn5FDK4z bcEXA6PlosTweszNzYmn7u5ugfXChQvYvXu32HGTLo9f13b6PQt5RFmwdKtF 39MGBjEexsEkKwYxkKSkpA3yU8kvyaeV20pEr4pbrGknNeURCxTbDVzhLZgr e/fuFSST2DbLTxiMkkOMzoUYiwWf/b9z5nHxd+MKZVCc4VHu5+ctBoBKTJst 1vy1FcoSa1KWtXi0bQ1JGdRjm/yUu7nLSlIGKK//N7nxiIWE+AoEAmG91fSD wYUBR+sS0zTb8jhLtfmWzpeHzU8GsiPFwDtWVlZGGySgpLPN0EfGQfRv0Bd+ TtvzuxJX5Pqk9LooPydRswXh/fbs2cNjL2krvKYv+QWp9srSKDUeGhrS1U5x gttTkqlMi7IzBqv0VeNhWsGzp1YBrvSBN3424uDw4jvWXPUJC/vEq/JFZCk2 KxaHNcms/F9Zc5PHpEwVn5ifDJv5pI5VY2PjixZG58trLvzoKjxhxioN2GFh TNZedesqNps5bNB9XpC7+G2HBU9+I1JdNhtUW7Ei0vYSa74u1+IpvDWvJ9cS t+iw6q2UG/OOPnhFUsacNngzjcOSfPOBf2oVonlBA9FKZNxesThvX9J2eHZN a/3EGqaNF+nr6+N9X5Of8hRl2l5YnYLHLEwWy4fvtMQbFtr1/OqrPWrhDgz8 EKPK+LxhYIQ6dmssvTVi6Ujyjc5/p4ViPWdQhqhIhbWgXB1iXpeOmXj7joG3 fPHect1X/geU/6nUM7aeBj3bqkPThKJJXOhDZAASad+5T7fvMRgbmkazawAt 3NwDUWh1DxDsVs8A2qhdH57WSTGy6OFVJYonI4b42i7V0migmIGs1cq9jRCS RkLRRC09rgoZcXZkUsuKd+AYteP7ncg+4MQJaicPOnHqoAOnDjlwOsERhTMJ diImJ7EKlUU++L0DuBGcft0gA6XfWy1MkjrzWtShueZVz5bG8O2rBZxi1F7W irxsF1LiKpFKJNjiHESSk0iqJpJqiKRaHNtfSyS5iCQXThx0EUnUDrlwKsFF JLmIpMRaUpKcwzXUqpGbxM2BvCQ78pKrYD/nQ6B+AOMjU1Dn2BgYbNE1JNqC CM1SSptkFZhsX1V/WAv42evqRxLRd4ToO0q0pRJtaXG1RKuLaHUTnR6is47o rENpfidaPEHSKm4jaK0biUJbXZC2bvcGUVHUiZykOnLpuUkeojkv2U3Nhfwj NdSqqTlx9oidWiUc55sQaOjXI1Gjbfxf06wpxbYV/tNoKHhGQW4jEonmJKI5 meg9SrJMIXpTidYmV5DaCEaH5rTDsQn++hGSURD28x04e9RNzYWzKbXUqlGQ 4qBWRa0CHY39Wghr0FU9MVnpPq0C7s0GM7Dyiy2rODMZhERJg8RDf/WXf49D cRVIIBIPE4lJJNIjJM4GIm9kaE6e7o2kd3OEO4iCVDe1WmrVKEx10p1oSi2n sT58U6Jhn6aOCbF1nS6mKIsnQ7qn67E0KmJ80yrW05hGsNz4OUrSzXI7RHJL ID1NJIKKcgMIDs1+QZrKidFZwjuMwjQXNaIjzUGtktoVGpvSkuBY3SYbvVCM NcM3rC6iLxrsc2SQosIqSgJi5aYa9CpqpDO5foYtA8R16GwaRlE6kWNzUqtC oY343nT1mxb2Otoa5/oIF4dfXUVTpKfbIJc5FFdGzU6tBsNDs89LsJ0+ApRR Q6DsKEyvgPNiPRQaY1gQZY1G0y18fhUJy/DQ5B/Xy9ULchsEmwpy2/CiRDMx Novq4jZC5KBGaC7Vm0IqZS7XRhNOcKyMSlh5o8NT1guNV6UR5Rh4y+PHj+Mh uYzHdVUoJUP+ioTQ6RtCUSZpX0Y5wfW+LCnpbepBkNoEtdnmHsy39kjUsSYp q4NjZSG09FtjWIzVJA2/iRzFGYatLpKhys4PxZUT+lbxtkNOnRib0SjIJF30 9e6Qqh8g5HxV2a6gOb0Sfdl23Mivwtz5cixcKsF8h98Yj4fNwXaJzVwECrN9 bVJW/YyQsjqpi1R8s0EsBbnN4u0lI1FZdhRkXsb46OSXpdOwX/Qgnwjiy53R hI7TbQie92OmzI9FZwuW3fV48/VXsfPbrwvVlwr3OYMkIoS0UbyFaxgGdTSb SC4TqMFNujiu0GGcEW8vyz5GXphVAUexV+Y40UyBmSO0wmTXDG73z2KRzMvy 6DRCg0HMN3sx316vnzflZp824l+/AqfxHikE/aAZczyluVt0CfTrC35N9nU0 D6Ig64rA/qJcJlDfKRYNNAl61kk8obsLGCiv1JcwetSnjNBXcazrTVREUmTl o1R1qTMQ1AWgkkxnCcUrzVfF25fk+gF3B4Ef1ddvKp5D8r/5MDCwrBsZJupS dq3BXJpN6HYDJbGrcdlK/R9VwCr9Ou16Rjw2jfzMUgPYdcj+WS5OfVCrL/L9 PS6U+EPqFA21zKD64hCdgyY+C8ayEas7G0Ij1M1mTVYVpXbJIW7fkH32kga9 T6tnPYzL6S7kJPiRduAaAh0hjPl8CDU3CmCldXcwVXEVg5/0ovV0F+zpZPpt XkJVLsyPcoGq4Cx1YoWZD4cnMfrTozrO3hU4A819et8XpVGuzGpAwdFOpCTf QKCXcps7SooPYXl6Emf/OQ/Osj7MFbtxvdCLnpN1aCBPXkZe/KytlC2LiixU xVoKX8IN1/O2K2i+XpLflAkay1NBU7U0f2M3nCcC+HlGP4pzZxAYDMmjsxHx +/oQaBnHrSoPrp8sRn9mCVptJXDaitFNLOTTp8yW0YNqYSde1KH0oEpK788N 27rO9OOjf6pE6fk7CARDepS0/z+CuDYekjIOL69O7eMrl8/LuiyoU5QabcaT cstO2rLu7Bj2v1ODktJ7aB8L6c73YPw4hieNeas5TZRptTKZeZnFcJQ2mQ4L R2Zqy8fklj2NV9HwyRQS3/dQfvMpmq+H9Lp1QsIMRqa1+Z+VfcaM7bPmLQMk z7NZZWT5BvCbsm+YUuRDcZfF2za55QVbBXyXb+PIvlb4fcsYvx0uOB9Om8fo rHHLmMjfW0y7xggJ55PUC8hnTIxNf02n1SccY1hCsSimqPP0/jakxPci4A/h +nxYeizt5OxFXL+tAo9YPXE0JlUaEbKIEyNoZh9bmFXJnuslE9ns3Calk4hF WQbliEkdSEkMItAdwuidsCB59+/9qBM35kN6ume0nbJQoYIuR3EdhStXhIen XUUFLCIQog0Pf1AIr+0SujMuYb6tBwv+Ht2PVB1vRlFaNy6duolAf+gxHUcP fviTbkwsqN+FzIZR4lChk5N8NIdNRZl2dDZfe0FqltFJcWMPw9ff/sVRfBJH B5O8xPUCF25dcmLxSjnuXi7G0uSkmMucqDnVhU+ODaKkcA6B4dATOrg+vPfv vbh5LyQjbvOhe8QIbp1QjMKMEhGZMkAOrCnAfk4y1AjS4xrCvvcvib6kfymB 71QnrpFRnqm6ivueboSa2jBefAGuVB8+/oEdJRcX0D4a0i2Zv3EI78cPYmox JH/eM4sv/EuVxn981YCRg3yBMaOKmpMjas15bBV4KFkRATcnL//6vRzR1988 g1vj98SsLmKY92QQ51Pb0FXRiea61qd1WGP4aUIQ0/cVLHNmS+c4Vk41Bg0S 48sSo/MiCTmdlI2C4KJ0SkzSaziP01I6LfTgVE9LrsoR/+Nz2mr37uoRf5Xz gTjlAq9vFt4iu67m/sYJJGeMY/refZnLmfNWJd1IpBo4gVQ785wVT1FGWUat gvwoJXR03gtttURBgDPmz0vJc0LqdQ1Tbl0r0VfJwzqFG+292g5dXQj1j2Ep OAOnN4CbnTOoye6jZdtQnldmkPw0UrM11VU/tRitshVqGSx/XbowrjsUppXL /N0u8/lakdtzvYLrFk/ID7mewXWNc7kBHCb4icR4Fd9xQskk8EytbwOWXU4s ORswV9aCPOd9tGX7UGHzkMcWEcaTOhVzyDgzK96eszD0VlVFSYX2u/lmQUVB CmVXqZQfplDikeKkViOrR1xJ8iDQQJavfoQp0oziJvhcI7IOFURqnBtH41w4 QoQlxTmJQDvJiNPNJkFYjBTz0s1JLNR6MFNQgrFTl5H1YTM8FIKcJ59vJMo3 j2MFt8Xb8wbFUoUQpe5WqackTsu9HxElSy7jnT1aQY0CnqMOWearQV5yrSj9 5Sa7RTEwh9qZw3U4k1iH04leXCnsjBJlxK3IPujF8QNagTEr3oOMeLcoPHIB Mk0U5rhA50AyEc6FSi5YEuEbJcB5Mhb1zh7xputfy12cuLAg3l6Q0Nlfcgpv zLGjNH0QVP2OuD1NougXBdn85EpRoOVCbW6SE7mHnaKAeyaxRpR0TyfU4tSh WpykduJgLbIPcB1YqwdnxdeI+jDXiblenEbwU0V9tZIUdQD1rn6VJLkHQ1gc 8Yk33aS338eZskUTfE7dVXlJGVEtYZRl423we/tFxbydWkWhD2cSqnD6kJ1Q 2nHyoB0nDnBzIHu/Hcfj7TgWz4V5LtBXkcZpBftG14DyvudcISwtaSgeV8FM xwM6MZ+KN/WLjTGA1MIy7JJD+SemML1kDK2i8cE7F1FUtyzerH4N1OSKv5FD fXNhj6myjH3vXcIFn9anYgujY9lgXsLdFY6eFXEf7i1FqV/rUzk21y2kA4hc It95V19CZYkf/cSJ8i5zemuz2fQCZsQSaZk39SVUePXxTxvgG3gg3l41T++/ FaZbhYFx+/wYGNP6XjNP91wLYXlB20Gp1v4Pr+rh+O+bp59zh/Dp/QVppbS+ g/85rIfS34ogP/smZj81VykSDo7rYbD2Aw12y6EBA3Z1TA8nz2JMyvLb5unu jnF9ukolkjPviKCT394wTy9w3NanqyQm5cwSxu9ofX9gnp6eORFhwLTAcs/e Lty8q37gC2O/HcYeY5j+7s+6Mbmo//uVml43FMKDW2PyTU3vxY8/7sHUff1/ vNR0wffFW9L4qOmDSEjux/TiA/XfYn/NN832roPtI4qAhydxq4WC1fYemj+C ZFvwTwxTuY4vi0GV5OVbMx1o81zD1DkHGpNLkJIQwFJ/D0yfPCQSar7cmW3o ye9A43EvBnN8aMjwUmznxXJTOeaCY3+sffVdKX2/uwX5KfXiy9F2zTsWVM2Q U6HneVIpDln7WzDe1g7Tp0RpjR/jjT6Df1mH8tolnd8Towuov0LpaXdnxKbX B24g1O7QvFFzFxY9fbjTN4m+n/ehPrsbF20EylaNsd5OtamgMkqGbvcrq3Gr pA6jBV50HK9Dta2GgpZyys/rFFd2SYVa7OrBbbsHYydK0EOBcj3lzQ00jUsP 2q+4v6z/N/z/ecNn/gsCmQim\ \>"]], ",", Graphics3DBox[{ {RGBColor[ NCache[ Rational[1, 3], 0.3333333333333333], NCache[ Rational[1, 3], 0.3333333333333333], 1], Opacity[0.5], SphereBox[{0.7969700192489602, 1.2366596446954643`, 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, ImageCache->GraphicsData["CompressedBitmap", "\<\ eJztWmlwW9d1/kISlGTZkmxLdpy0thw3cezEqbtMszWZZqaN2qRp88s/Mvmj ajqTTCd2x7ETpa6cqh5ZpCSSolZQFKmNpLhpIUWKi7AQIAiIBMEVpEhxE/dF XEQKoihu6Ln33ftwAT7Iykz7r5i5eA/3vXfPd/Zz7sNPdn7wi3/91c4Pfrlr 5/Yd7+/891/8ctevt//wvfdpKvZzAEpopG0HOw/SqfgqQTAYZBf/9w+/ZYc4 RuXb2sRufogFJxzk9OWl30VcYuNb2qX/MLj0zc+8xIkjLuxSBJIYNvGdMMg7 2YGv91Nt4l8MKPxz9EufF3MLCwtwOBwYHh7GX0a//QX+HY/x8XEkJibinXfe 4dd37dqFQCDwF9GffJ5/b9AJsSd37NjB72lsbGRP83m20jO6Hr4UfcEtURa8 fv06X4xdZXNs8RjxfHZ2Nr/Ofj1toFtB7ru6sOm6vKb9os/L+tUtEdKQ5AVZ 7dl1mJ2d1amywX6zWxhKk85qnAGPr2rU/9oAaozB7V83EIkqX0mcna8Xz3d0 dEjtaXKPWHO7RvF7/GAKuyShPKUL5BXBsZFOmGWx35ueQBcK4SflfZ2x+3xR qIghUtXEkBDC58RKUiVMUhuMV1prG6Yw25DnUR5/iZ+s50AY64za7t27dd0w BF6v93kBiGGVatmgk3xNW+0HT87/C4/RiLTBbUK36vW9e/fye76hLfQ3OoQo 7D2vyJmtw+TMPuxINGIUOUtL3CoeKSoqQn9/f5hrkFTe0pb+sTG9Z4XdRIqT LSQtbbBrAAP1nRinMe3rxJyv8yUFhxSv5jX4R53FzRG8SJkIm4kRXjY+PImy 3Bs48N6naEirRFemBSM5NzBdWIH7l0ux1Nmph1cZ2divr2n0fsYPG9c4qxq/ hFHwc0ZOE0M8hi41YeZ6Ex5afVhxerDqtGC50SOpSUtmv97UqPHUxC3mjxWL YJJ79913dcmxB9nRJKSba65AgbmOU/VldfNjoHsGj+5MY6VjGMGmTgRbmujo wPLA7RcV6TIDYmwI+t82MNmXosiZfcj+1wuzHBsYISC1qCoewNTIQ8X1KMBO TyPY24K5Vo+hrN/QqP/ZY6PsC0+QSZiRqmGztaYVtuI7/JcajuZ7JiU07Xvh AXoqShU6cbqkhbbfiC6hrUJXMnJJXTHlSvOVsbO1uh3Bu71rEB29soSVuREd 0fhwAJYLlQoiE1cYQ6Vmpq9Gh/WsgeLYh0FTnH1qakp/ZCP/fgZjfeMI3vZo y83Po9U7ys9LOpawOn+X3zUz+hDVxUOk9EbUlHnwBYNU9Xp0dJs+Q51qrJdh ZMlTRkbs0YP5WNcULlvncW8sgJaL3XCkt+GyuZ4gWZkjftEgh31FcTQeRjYJ KUVWB8yUSFJSH6qPbxGyWpmexLKtFBeSb2HQ4cdcWT0yUkfQ7RtBfXotKs3V yCfftBW78UcGKUxgeU03+5ejaCwiPEtrZ2ObEOOpfY3wXbZjJr8U49nlyP6V DbWFtag2X8dVcwn8FF1fNgirX9Yw/EmEhkJJef1jNUTnXxDWv/fDclxvC9Uc 8xQJ/cUUEArKRFYO14RGUgt0UZ3+RSUMRtGQCJXkWk0LyLGtCPfV5tz+QX2t Vwwcm9QgcHwlqmP/QfqQXtDqnUBCxqzwXG3uav1SBBiTnmpVnbwWHdGzT6aT V3QUHdid0I+pR4wNbe5UWUhHUi9qMN6ku8Zzin2uze1bIqBEqkZwI0kcySQN PggKiWpzKSdm9BVfE3NqVtxsIIHNisGuqQNkjcFom81mVUkMErvMfm0Xc4mf 9MM/tiRsTJu7dGN4DSY1U242kEZQJG0tfOLPn0xJ0kZV85Eu+sluKypvB8VC 2lztYBCrM92K80RTXKyB3J7SsP3pY7DJiowywuvSgFqXkF+zKoKMNlfWEsTy 0qMwHGw5ZgBsmXU6DtOTIHrLQH/MrYX9vKmb8jQOZI4qT8Yi1xJEYCWoIInj j8oykB43GRtvrPG0UcsiYL4pZBAZCxhkqcHu7m5+/oaOuRN7kocxvShTK2E+ O4fxR9rS0sPVlBn3GGQx4WdK28uOwvpe/wzrY45gsVjeErRP5Cxj4qGa/mN5 uu+6p81JS1BDdxTpbYguvS8LH4sskZRAIUwzFgf3j2JYUJe9rsfboC8ppaam 0iiI1uuy0uovPeCpwpFtIsMmn5XR4hvi/n0fVcPasxryM5q73nBfv/91BZPk J8YYk1bNiQSw1p6MylnpPWqk+JqY87cv44pXjY2xOGMJhfivGugvZEJaftW7 jcgUy0TLHvT7/WK/iRnHLM5cXeC/toi5oxkhUWjqMRlub2glhaIWo7gQsvLY 0C1r+w8WkDMzM7+pw+rB3mPjmF5YFFmSYr5tIgJWPF+CsSYLaaEtLW9rsSvO KBRoUMKQxYglCQXkR6YYWlIiS7+0iskFNX/HomGEYnlAszcZ4dRY/pKgGb6x FZLM4yFGfUzER/khtX5LrJGUPIXROQ2k3G6xtBPIhZkwc1PT8+cVma218zgh nYjpx4VaGdUoPOm2/lfivk/31KN5RN2ljEW+I4iHK+H+oObqMIDhpDY8Xk6x YbtxUpMFOR0oaVFrQ4rn2Q8wtaTu7IVr8kUVw7po0lAQhgd1o0D/HWny9QGc L9fKl226G0ziTiAcDrNJ9mGwVDh/uBHplL0D2Jd2V2EwFr6OAZ0zzYLWo97V Q6MXPhrpCVacppGRaEVmog1nDthicPagjQzl3CEbzifZcCHJSs2UNQYtnl5G 5WavvmK8MDK1TiH1vKCwYzIQVYhFjv+7AusHezt4TazitzSM6dQ2iXBaS/jr CPvxBAtOJthgTrAjLaEKpxIcxI8DpxOdyDjgROaBapw5WI2zh6pxLqmamKkm qheSnSSDrBQnsg87aFQh57AdF1NtNCzw1/bS6JG1sFoDbIsMk0a6iJiL02+W 3XbKsfsYC4S/QMiqWtGZ3ChC+GD/FApz6nGEmDxKTB4nJk8QcycTnMRwNTHr ImZriFk3MetG5kEPzhzyELMeYvZmDM4neyhRX0jxIOuwh/h0Izu1Bjk0Lh5x 0ahG7lEHjSoaNuQdJd7rejE+NKW3aWpy0hxLTy2qw3xPzCX8lx+tI4tKpIzF yQsPFedm30/DTepLTriBFDK7VOLqCHF1jLg6ThydII6Kc9rIPAfJPIfgqxna KB4bG5xFa+0QjUHYLrch95gbecdcNKqRd9yB/ON2GlbYr9YzLtRdUxkeBROb daV8X9x0Ka8T5bcUL4nqaySc3ItdGLzmRqCpE4tjk/GCOberG0kJlcSalViz 4zCxlUqKOkos1RE7XmJnm/DA8aFZtHkHCasf+SeqUXDCQcNO4waqirwqdml9 WnTFP0lfb3iIi8JstgoJqUqRwK+Yy/jRUn4Ho3lOzBXbsVBWgcU6d6wAM0CW lpRQQcNCw04MOIiBatx0DZAV3tOqg6cwMUyY6wdRYHbRILxmK6qKvTQ/pe9Y k7UInD/RY9IoTmXdU6Lh1jCc/vrbyDXb+JzvXBuqMjoxXVqHxZp2BL1NCPqc WB3s4ve6XV0CqJVGFQGthsc18Krgo71+AIVpTho2AlcJW2WVHpRI+8+FA/td 4m3eAYSAPRcOrK4HeWY/ehum+fwldxBLyxTWA1RkTVL67evAiKUY+Tm1XO1J 5KNJZMUESJbVjmstKDxFWk2rIClNhqlTKzm0jXPWh2c8xMR8+JaqiiZnfwEm +qbh93bw+T0fd/B+RbMUqpKH52FNzxVIyBFymkWNGY92Xz8K0wnGqTI+I/Kg QPBjgeDAJ10YmlGD72YdQYegmrS7Bs1Xx/j54uAc5rqpa2q7B2tGDz7+txLs //ACp+529Yv6KR4TIzNE3Yo2n9YjC21ogQQ/EtSvFPbAcns1RF0G09Tfe9Hi XcUYyU+bW49FZxNmyltxp9APX2YTcilvvfvzk9jzfi4Z88zXFcoF6dpmrfJK KPTWUPNc/IM01eZFFHpWFYswoYiM/Pz+RhzdR7GtOcgjd6zQz6POTgSKSnDv UgWGsyxoT7eg2lyOX/88haBcZFBEp2JCe0Mvap2NvEROTU3lWGSOUXO8gPT3 uvdMICNfq+KfF0uVmJ3ISmrBsYM91GYEMfJAbkbEY9bXian6TgzTuHrGyr1l oH/6bfFoW0ModbPgziwhEoV2J0exQ0fRgY9T+pQi3oSKdDcuHm1H0elh+LuC GAiEWrD8nJs0fPzX2wKZ296qL6/slBtRjwunfiJ7CXcX1AogDtZMH7l5B65l TcLfF5SlcVJCmb7K28IJ7ZX+sKCoZnRTdOo/FJcO7R/AyKyamk1cHo5z7biS 2YuSgjm0DoYqPZYFwiGEz0mHVXOrVL5R8S3g/J24tO8jCxqH1HyqwanJ7sOn 71lRUjyPlpFQZUHKj4CznodROWfQDobqMq06xt+KtfxtyyjyqW9MyaKI9s38 USR+6ERT9SIaRoMiRW0gbYTYY1JXN9qkBsRGBC8hNMZNmCTjnW3sxIPmTjSW duNc0bywUhNFotuoK5pG8n960FK7gvH7od258ZEQr3LXgtUaSQklilWHlzWa DMWLcu21ZIG5lANpoZDZn+XA1CU7vKnZ+O/jg1isdQv3N6HL2wdf+X2kftKA 1sZVHhpeFSTspd41UJgvul23w6CsfXUuoGzirw+LzTc5lK68NkyUtmPe7oc3 oxFT/luUHC24mlCACweacSTxFnWNPBTIrb+80yFXkNslzCeZUgb6J/XuS1WG FkVEOR6H0TvDyD1+EzevDYasMx7JSePI23MNNWl1uJXrgN99B4OBoNxrsZXc RFWp5vxv6YQbOPv5OR5935SxLDeFwwhvRLOzFeOMxWCoZbhWPIpr1mX4e4Ur LzzAeK1T30hhmss/XUGBtk90WHFErlEkxFLGs6TM9gMZdWYDYZRNGGVv2Dqc CHa3apQDD/XNkKGWGbiKB2DNcehbiXZituC0BY7SJjFn4mFfo3yDByQm7a2q bp/CI1eJXlWuuFsQsLVjtOQWbl1sg+tUEy6Z3bAV18otiHxK3CyFOkqaxZaW iadYVgNpRZtGZVs4leWpSSx53XhUXobANSvuFlah77wDDWl2VFB9lGcuYWJ7 U6zIKpSCU+VUsVhpOCh93hNb7fG0+j1eUrDkrvAl+rzvi7uoGOZOO9vQiQmq 69j/B27Vd8qtZE4gjQikWWhU8fJoYvie/N+LRqOF1naIYqpS50z0x++LW9lK VcV15Ko3UGi203DS71a2mnjVs55VrryCTaGuIpkvaRfCYm7YJbZyPhB3t3m7 UXCykoaVRhUNJxXmLtiL/KxQ3ypEOtQ/y2v5yzl+Xtun0MLJfGErx5ufU8fK abFt9Rt+eJovnn/8Bu9OWJfCupW849S1HKvhXYyfOppWPoZYl6PZ5DMYIWIN NdQDEUHWD5kT3Lw/Yn3SUao0Wd90mIincOI3eKzTtgzFf+/WoY2KWPuVet7d sS6Pd3tHHNT9Ocmfc1JdZJnZh2uoQ3RTp+imntFNzaMbZ2mcOcSaSq25PJ1Y g/REF286WfPJmtATZH3HiDxrTlNJsKxZ9bh6NHXiI4GAemneU7PeOifVynvt 7BQ79d9VvBd3UKg7n+TAuUMOnD3opH7dQX27AxmJrJdnPX0V9fZ2omojilZc pRjGev+h/inxp6Lfi6gxNjjNdyjYaGbD3YcmNmr6UJbbgEY6Nrr60EBPx/C9 j1gMK+lRvHP9P/yL5P8fHnvA5/4Ht9mQpw==\ \>"]], ",", Graphics3DBox[{ {RGBColor[ NCache[ Rational[1, 3], 0.3333333333333333], NCache[ Rational[1, 3], 0.3333333333333333], 1], Opacity[0.5], SphereBox[{-0.6347234188037655, -1.327258252949312, 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, ImageCache->GraphicsData["CompressedBitmap", "\<\ eJzVWntQnFcV/xkgJH2nsU3btDWaqK192do6VVu1VhvH0Rn/6uhMxxpjZ+wf Vm1qzbTVWmstJIQAgbAQQl6E8GrCYyEP2GV3WXZDlkdgdwMLAcKbJUAgJYEa yHru6+Nb+u1O/U935rB897v3nN8599zzuPCzTW/87pXfb3rj1c2b1m18fdMf f/fq5i3rXvjD6zQU8zkAZqKsdWC/h+hX+cOMUCjEXv7Pff2afcUykD8XA5v4 Vww47hCHj7VybG5ujv/G6Anx9jdLpjNaw38u59PtdjtefPFFbNy4Ee+99x5m Zmbkys0GKz/Pf67gKw8fPsxXbt26FX19ffwNG6uqqorCYVUE2bSKyY6RS4LB IF/W0tKCx3WWQGwYN/rcxn+JN2RYVlbG4cXyOXHo6OjQ3m3evJkJxE2agdcJ ls+wr2VcTIxmYfFEn/u0t7dKpgxqYmIiXnvtNc0WSg0mQGGNk2PSRvzpJoPN lDCeNXi1zMCgX4tu0Jvlkunpaf6KGTROUznWgOEXhLjvStD6VwrHgwYy2UfK XKWTqcx8s4Gk+/87Tb8sd1oZXGnJVGIImOFXy3Vqh42MrBOt2+u4sL1Wv2+I YF0mk9S6S7JWlhWnw9BP5bb+IKLFI26hOt1Mb2XOlRrwLwq+z2kD9+u4KVOx D/NNWnpvBLdlnB8WvF7WnfKlSg8NDSlt75WC2BRpDz4iXz8kmL302Q488xV2 MhbtIcZkTJJujm8Zqsn46j2CFjwoebBXyhHEGJ423qC1OoYqtrGVJpOJMXzY 4Pg+EJXhXRHMKBHyt7m5uY8sOaHsVXTGd0Q36RNyFXtdU1OjfOarUXmulm5h FNmfkksYfyZHmiA6w2hxWan5tEFw+srSjb4lurbP6nio0yEiBTZGidDPGWyn OOz4YYToxqYS9+cNQG/QHcIoO86W0I78yADyesHhe0sgq9UM8k90kJVzrtfF schh6qe6DWTCJOxbNRuv0hk9yp4xdj83OJy3GQQ1sW34pkE00plk2RJjMj2V BP3RvdXAyYi4yBuEpCej2+AXBqH6Fs0AMQYarBR8H4/Al31IoxjBo8nZQwua 6Wezsxe5iRbs22bBfkbbLTiQZMHJwma0unsptbW5e0jU6MCkJurHBkb9TOAe ldksQhQUMWZPHuzVfpTlN8GUYEFWQi2yE2zYk2BHTqIde4lytzmwb7sD+5Mc BNaBgzscOJTsQF6yHXk7bTjMKKUW+SlWohp4G3rga+h+QSJj4plotl3xGu5Y 48hglNulOiLIrjeMQkqdBmc30hJqkJ5gxW5SI5PUMCU4SKU6UslJKtVj7zYX cre7sC/JTSq5cWCHGweT3aSSC4d2upCX4iJ16nE41Yl8oiNpdUR2IhsKdtUS WWA91gTfmW48L7Vg5mVmlREjLopyy8J/09WR7Fv6q8hGqyMVUfxtf98EivM9 SCF902jbdpGuGaTnbtLTlOBCRb6fPG8AzfWDGO6blma8mXxrmrZokGgAlqN+ 0seFgvR6FKbXETmIbERWFGXUoLa0EcHBCa0y0eehCDu4MvIOivC9yjCEsNqB ebfP5+OzXM7z2JFQjZ2kWSpplkZaHcv3wUMaDZE2q6W5goPTtBMDhNSHot1O IgeRjYg02F0DW6kHY4MTKqSzKl+F1RhjBVZoe3OjGNoQJf3FygDANqOINmMH naFkgptCcBuc/Wtl0PR7BmAr86E4s47IRmQlqqbx84bZZlm05C7LuohZL07i 7e8bJzyniKyEyQG3s1+WT/EYG5qCvdyLEpODqBbFJjJV+RkaH5eRPhbdjQEM E00QTTcHloZjFiij47w/Sspge00FDmkhOAiwJ4lqyZBt66WKHGdFG0qybEQW FGedZBif0gI8uYDTdAr+PRb0H7JgoqQaM6VVmO/q5GKLi4vVfi+euTsFvEjV bqQmTTVEYp9rCfIl6dJxHGdJtp2INjbrBLfjk/LAWcvdKDRRkDed5oi7C9sw ZvbiqqUV804Ptr70S2x89jv6AIJ7BMRFXzSK84uhJGZxShzHrwIG04vpcKOG /TT3B4b9QRW8zK0oIfsVZ59AcGj8CZlUfY2dKDCRSqZWNJv7ObupzinMXpjG wuAUQqMTCLX7ETx1nK/Q+8XdAj4P97FGcV3gDY9/Yp42OZb7h/pQXFC9GgsL DD97+pqqByqFDkXZx+XtxnJS4AIp4CWdrmoyhjwd6sgGW1o1S+qqrbvk3Ci4 lni7YrhkOFpKU6GfnQZ1P3KDnMciX1G+KEJUY3Gu+QKKc6pRaz6t1Ry++vMY 653QICa/7UL18XnlKL7GcdL+tC6chHe+a3Rb9KlwzT5xYYqo3xUrdn5l14jF jTmlzVWdi62yBUU53LHwGB+7CV2eXhw39SH1Hy2cp6WyH+l7x/jbmbFZDJyd RH15H8FvJDqpzp2+OrtTjz4+kul1uoWnWb6HqzSD92iLH9VgN8FqFtZ7SAop pzh5aFsrJdoO+LwhDA+P43oD1Tt5drmhyzFYdg7+PB/qsppxzORi8GknAirV qOsI6WthWkSoheLDFFqqHF+ksvPY8CQKc8RpfEAGg6osJ1UzPqQmXYAvEMLg TEjaYiXaTvlQTofp4/IajBXb0L3fhuYsK6opoBaZzAy4luXZCWGeyq7NCL0e eVwkAxudIdUOtPsGNF2/LsdqKz3a2AbJpjqnAYWZ7SjfH4SvOyTSxQp4PUNI zRrmT1daeX7CGMEdIAo0BlQRwsKfcpnPLw2pRvA+da2ngqvC3doUwOjwRBju INnd29TJn74ocdfub8PRnPMwF1yCrz+0Qk71egaRkjkkQ2woLKGyoyRBGjVN d+gQeJvP86fHFdvmLm2eSmteTwfq8s7jg9eqYS69grahxRjj9fTj3WSxRh0D fUslqissNoFr5KRROsZHpIsp4VWli9t2txTuI+GugkEkbLGhtGIWLSOLd21e Tx/+ltyDS3P/xu1yTDUJLEJJ4eqW5khOJbew3uLWU15N5J1SZDuJPHNsHElv 1VMvNY/gZdVoMpG9+OsOEvnJvGQvsguLv9L0t4dLtZgpae8V8ewxXaAItA/o vCkOnZ5uNFZdRsp7jeQD1zFK5+s2TWo33kkiqf9ekCjDC9BV4SK9tLEFOVWw VTVpIlmtoRRdJUWWUy3RYrlKJbFfxKErIc2OXk8X3t5+nkSGoC4g9YWlgKal TStpWZRzkkS2aBHbRT1qUf4ZnYvGwUxlYh5FkWOmXvg6QhiYURZgIjvxVmIX F3n3EpdmZy9MZCxPBIV7qng6o4D1kFzBEvoO6mRczk55HxyLk3vcKNjdjrJ9 I+zsr9EJ3JrQiUkSuFYnUJl18QpbRAsZwGPhpzNatOc4ia6hguHsBu1wL5Nq MhDs88HbH2GEIskk0Uq52LqvBSU5AVQcmWQH+m4NTAB/+ZcAc68c03dry5ec ZB2sh6XU2go3r71Y/WI3nyWrTMm7mxvDAgBDl55Uw8fMH5aiK7cawSOncPlo FWbrXVr9xw6+41AApQd7UXF0hh/8tRrcDrz5zwCHe5/UjIV13dXtUsSCKUf8 iHxghuSIs2sItQ3nmvrwpSXLGFqRBVZimFqfKxYvFuqbEGqww3usEq4j/fhw ixUttjk0Dys0AuGf3xcI1xnsrhE8kaRk8l7Oi29WhJdkEbysWoLpIIj9gtvN fCW1GLyGZ583XznGv8c7pnHlwmX4yj04nRmgvqIa3RYqcD9evHZm6Lb8vQMT hE5prK+q4iKjE0c6nqNjrVYxZdkSk5WIWhtTHc419kNdmw/0TVFv7+VsWLnO KqvDmXWqymCTmt2X0OYY5QGHPXtPntGDfP1dAvlJSGte9cWT8kOjylSCFbF9 BYGdILAealZrZNNq502srczLmto1cloDdeWpCfXUrTuo1bRJE3t4WxwKdivc 1ymMN5UHMXhxCu3VwyjPOoeK/fb7dbj/9I7AvV7i1veOygUWOzlROeEbEgZr p1nDzxp/fgGQYSNyoDDDSeRaxm8KYvidgdL3RrmU3Sk0Ogf5/UJGggvp1MCn kTYppE1ygkVX/6/E/OQ45h1VXKk5iwfjFS1odIzAe7QJH1FwZg2f0ukPb7dj /BMhS+mkbovYwVNZV941PCV9lF26+M90ozC9mshCxC6e7EQOHNnFLqTqkZ/m Qn4qu6xyo7rET/Ba3QMUss/Sz7OuAbQQVRX4sXebGzmJbmQnupBFm2Qi1XaT ahkJdqpl2fWKBSX5jXA7u6X/xuPaxXFcsbswdrgSvbnH0WyqwoHtZbwkVKpl l1zXVHtAjukLLnnr87QsDJhKvoYeFKTV4EiqhchK8G3IT7GTCuwqkV0r1uEg ox11OJBUh/3b65BLtHdbHangwB5+l8fu9NjdXi2pYMGx/CZ+7zdAvqZKDE8f lYWBdv6korKpaAHjcwKuSrn60kvCFdflt/ArWO/pHn4h2+buJWgWHNphwcEk K1nCStCs2LfNitxEK/YmWgiaBeb8pmXkRewGd6hv8QZXFXp1jm5t7B45llmw gIsSlcqF+kpMFI74lXrluYaF6WFpUjGWkT+Pi7OCxcO6fVApSLJ4Wb4aDI5r KFRKzTh0TWPxiEFaIPvEh3PpnwphbvYyf1K1TfqBTzA2G17TMwurSxSZ936t jvvQrAZEFRPp+2YxdlWMfTt8ejsliYkuP39Sf8rdlXNVm/4dMV39D4Sj/TpC Exf4kypx07JnELwipj8TPt3rn8fo6Ch/UvVbWuZlbbr4U5L2LxP90zQ8Oyl9 RYylZkxr0Vj8hVz7L4fAyOI1kvLR1F2XtOnfC59+ljJ2aH5OF6BikJI6gdGP xfTvi+m/la9Ody1o3FXnk5JyESNy+nPh051tISyMdOncKwY7k4MYuSymi3YS r8hXlvI2jbtKvjuTRjAspz8fPp0NX5u5KEOdnL5tCMPTYvoPdWB46lGTkhP7 MTQlJv1Iz3MFrxkrqjq5R/uzj2PwQBUmC8y05AJbslGv30o+u8B0AscpqbJP V+ZJXKpsRMlbtRh0tmDBexphS26gsNar9Xw++wR6rY3Y+34bpnvorJw7R+TC 5eGhF/SrliP/w2KM9Y5r+bPafgUDkyGVVr0nGhH0t+kVUvJCY70ItVMx5Avw 1bO9k7jUMYmhs6SoyUfw6/HxxdEXltqKhF491YBgaSMCBz1wZrlVwtmot1g8 5lX8zqtED/UUTaZKsocZforf4g9K/xv/wvT/+YXP/QcNuWES\ \>"]]}], "}"}]], "Output", CellChangeTimes->{3.575261164825079*^9, 3.5752612340424004`*^9, 3.57526175174491*^9, 3.575265690034227*^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.575261118836198*^9, 3.5752611269482126`*^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->{3.574482759424243*^9, 3.574483060691972*^9, 3.574484427784773*^9, 3.5744844978444967`*^9, 3.574484884803176*^9, 3.574485058462681*^9, 3.5744852055241394`*^9, 3.5744852996235046`*^9, 3.5744911335917115`*^9, 3.5744914619878883`*^9, 3.574491875560215*^9, 3.5744921183122416`*^9, 3.5744921990423827`*^9, 3.5744923692230816`*^9, 3.574492439314005*^9, 3.574492562242221*^9, 3.574499246699957*^9, 3.574499304778859*^9, 3.5744993918738117`*^9, 3.5744994987808*^9, 3.5744997206599894`*^9, 3.5745008855016356`*^9, 3.5745009459517417`*^9, 3.5745010728111644`*^9, 3.5745011372860775`*^9, 3.574501169156934*^9, 3.574501236892253*^9, 3.5745028440302734`*^9, 3.574503045473427*^9, 3.574503095627515*^9, 3.575261164856279*^9, 3.5752612341360006`*^9, 3.5752617518229103`*^9, 3.5752656900654273`*^9}], Cell[BoxData["34"], "Output", CellChangeTimes->{3.574482759424243*^9, 3.574483060691972*^9, 3.574484427784773*^9, 3.5744844978444967`*^9, 3.574484884803176*^9, 3.574485058462681*^9, 3.5744852055241394`*^9, 3.5744852996235046`*^9, 3.5744911335917115`*^9, 3.5744914619878883`*^9, 3.574491875560215*^9, 3.5744921183122416`*^9, 3.5744921990423827`*^9, 3.5744923692230816`*^9, 3.574492439314005*^9, 3.574492562242221*^9, 3.574499246699957*^9, 3.574499304778859*^9, 3.5744993918738117`*^9, 3.5744994987808*^9, 3.5744997206599894`*^9, 3.5745008855016356`*^9, 3.5745009459517417`*^9, 3.5745010728111644`*^9, 3.5745011372860775`*^9, 3.574501169156934*^9, 3.574501236892253*^9, 3.5745028440302734`*^9, 3.574503045473427*^9, 3.574503095627515*^9, 3.575261164856279*^9, 3.5752612341360006`*^9, 3.5752617518229103`*^9, 3.5752656900654273`*^9}], Cell[BoxData["21"], "Output", CellChangeTimes->{3.574482759424243*^9, 3.574483060691972*^9, 3.574484427784773*^9, 3.5744844978444967`*^9, 3.574484884803176*^9, 3.574485058462681*^9, 3.5744852055241394`*^9, 3.5744852996235046`*^9, 3.5744911335917115`*^9, 3.5744914619878883`*^9, 3.574491875560215*^9, 3.5744921183122416`*^9, 3.5744921990423827`*^9, 3.5744923692230816`*^9, 3.574492439314005*^9, 3.574492562242221*^9, 3.574499246699957*^9, 3.574499304778859*^9, 3.5744993918738117`*^9, 3.5744994987808*^9, 3.5744997206599894`*^9, 3.5745008855016356`*^9, 3.5745009459517417`*^9, 3.5745010728111644`*^9, 3.5745011372860775`*^9, 3.574501169156934*^9, 3.574501236892253*^9, 3.5745028440302734`*^9, 3.574503045473427*^9, 3.574503095627515*^9, 3.575261164856279*^9, 3.5752612341360006`*^9, 3.5752617518229103`*^9, 3.5752656900654273`*^9}] }, Open ]], Cell[BoxData[{ RowBox[{ RowBox[{"wxc", "=", RowBox[{"Table", "[", RowBox[{ RowBox[{ RowBox[{ RowBox[{ RowBox[{"(", RowBox[{ RowBox[{"a", "[", RowBox[{"[", RowBox[{"i", ",", "3"}], "]"}], "]"}], "+", RowBox[{"u2", "[", RowBox[{"[", RowBox[{"a", "[", RowBox[{"[", RowBox[{"i", ",", "1"}], "]"}], "]"}], "]"}], "]"}]}], ")"}], "/", RowBox[{"(", RowBox[{ RowBox[{"u2", "[", RowBox[{"[", RowBox[{"a", "[", RowBox[{"[", RowBox[{"i", ",", "1"}], "]"}], "]"}], "]"}], "]"}], "+", RowBox[{"2", "*", RowBox[{"a", "[", RowBox[{"[", RowBox[{"i", ",", "3"}], "]"}], "]"}]}], "+", RowBox[{"u2", "[", RowBox[{"[", RowBox[{"a", "[", RowBox[{"[", RowBox[{"i", ",", "2"}], "]"}], "]"}], "]"}], "]"}]}], ")"}]}], "*", RowBox[{"(", RowBox[{ RowBox[{"x", "[", RowBox[{"[", RowBox[{"a", "[", RowBox[{"[", RowBox[{"i", ",", "2"}], "]"}], "]"}], "]"}], "]"}], "-", RowBox[{"x", "[", RowBox[{"[", RowBox[{"a", "[", RowBox[{"[", RowBox[{"i", ",", "1"}], "]"}], "]"}], "]"}], "]"}]}], ")"}]}], "+", RowBox[{"x", "[", RowBox[{"[", RowBox[{"a", "[", RowBox[{"[", RowBox[{"i", ",", "1"}], "]"}], "]"}], "]"}], "]"}]}], ",", RowBox[{"{", RowBox[{"i", ",", "1", ",", "cw"}], "}"}]}], "]"}]}], ";"}], "\n", RowBox[{ RowBox[{ RowBox[{"wyc", "=", RowBox[{"Table", "[", RowBox[{ RowBox[{ RowBox[{ RowBox[{ RowBox[{"(", RowBox[{ RowBox[{"a", "[", RowBox[{"[", RowBox[{"i", ",", "3"}], "]"}], "]"}], "+", RowBox[{"u2", "[", RowBox[{"[", RowBox[{"a", "[", RowBox[{"[", RowBox[{"i", ",", "1"}], "]"}], "]"}], "]"}], "]"}]}], ")"}], "/", RowBox[{"(", RowBox[{ RowBox[{"u2", "[", RowBox[{"[", RowBox[{"a", "[", RowBox[{"[", RowBox[{"i", ",", "1"}], "]"}], "]"}], "]"}], "]"}], "+", RowBox[{"2", "*", RowBox[{"a", "[", RowBox[{"[", RowBox[{"i", ",", "3"}], "]"}], "]"}]}], "+", RowBox[{"u2", "[", RowBox[{"[", RowBox[{"a", "[", RowBox[{"[", RowBox[{"i", ",", "2"}], "]"}], "]"}], "]"}], "]"}]}], ")"}]}], "*", RowBox[{"(", RowBox[{ RowBox[{"y", "[", RowBox[{"[", RowBox[{"a", "[", RowBox[{"[", RowBox[{"i", ",", "2"}], "]"}], "]"}], "]"}], "]"}], "-", RowBox[{"y", "[", RowBox[{"[", RowBox[{"a", "[", RowBox[{"[", RowBox[{"i", ",", "1"}], "]"}], "]"}], "]"}], "]"}]}], ")"}]}], "+", RowBox[{"y", "[", RowBox[{"[", RowBox[{"a", "[", RowBox[{"[", RowBox[{"i", ",", "1"}], "]"}], "]"}], "]"}], "]"}]}], ",", RowBox[{"{", RowBox[{"i", ",", "1", ",", "cw"}], "}"}]}], "]"}]}], ";"}], " "}], "\n", RowBox[{ RowBox[{"wzc", "=", RowBox[{"Table", "[", RowBox[{ RowBox[{ RowBox[{ RowBox[{ RowBox[{"(", RowBox[{ RowBox[{"a", "[", RowBox[{"[", RowBox[{"i", ",", "3"}], "]"}], "]"}], "+", RowBox[{"u2", "[", RowBox[{"[", RowBox[{"a", "[", RowBox[{"[", RowBox[{"i", ",", "1"}], "]"}], "]"}], "]"}], "]"}]}], ")"}], "/", RowBox[{"(", RowBox[{ RowBox[{"u2", "[", RowBox[{"[", RowBox[{"a", "[", RowBox[{"[", RowBox[{"i", ",", "1"}], "]"}], "]"}], "]"}], "]"}], "+", RowBox[{"2", "*", RowBox[{"a", "[", RowBox[{"[", RowBox[{"i", ",", "3"}], "]"}], "]"}]}], "+", RowBox[{"u2", "[", RowBox[{"[", RowBox[{"a", "[", RowBox[{"[", RowBox[{"i", ",", "2"}], "]"}], "]"}], "]"}], "]"}]}], ")"}]}], "*", RowBox[{"(", RowBox[{ RowBox[{"z", "[", RowBox[{"[", RowBox[{"a", "[", RowBox[{"[", RowBox[{"i", ",", "2"}], "]"}], "]"}], "]"}], "]"}], "-", RowBox[{"z", "[", RowBox[{"[", RowBox[{"a", "[", RowBox[{"[", RowBox[{"i", ",", "1"}], "]"}], "]"}], "]"}], "]"}]}], ")"}]}], "+", RowBox[{"z", "[", RowBox[{"[", RowBox[{"a", "[", RowBox[{"[", RowBox[{"i", ",", "1"}], "]"}], "]"}], "]"}], "]"}]}], ",", RowBox[{"{", RowBox[{"i", ",", "1", ",", "cw"}], "}"}]}], "]"}]}], ";"}]}], "Input", CellChangeTimes->{{3.5681365021632137`*^9, 3.5681365171392403`*^9}, { 3.568136560351316*^9, 3.5681365863097615`*^9}, {3.5681369135895367`*^9, 3.5681369265999594`*^9}, {3.568137821916732*^9, 3.5681378378443604`*^9}, { 3.5682072492149415`*^9, 3.5682072529901485`*^9}, 3.568209802830227*^9, { 3.5682216503836985`*^9, 3.5682217583046885`*^9}, {3.5682217912831464`*^9, 3.568221843465238*^9}, {3.5682219760654707`*^9, 3.5682221133457117`*^9}, { 3.568222159615393*^9, 3.5682221693498106`*^9}, {3.5682222565227633`*^9, 3.5682222578487663`*^9}, 3.5682224736283445`*^9, 3.5682227227607822`*^9, 3.5682227558640404`*^9, {3.568222818810151*^9, 3.5682228486062036`*^9}, { 3.5682230057764797`*^9, 3.5682230079916835`*^9}, {3.568223041952943*^9, 3.5682230548229656`*^9}, 3.5682232619601297`*^9, 3.5682233000709963`*^9, { 3.568223536645412*^9, 3.5682235381118145`*^9}, {3.568223591151908*^9, 3.568223591526308*^9}, {3.5682236491528096`*^9, 3.568223657483224*^9}, { 3.568223713222122*^9, 3.5682237532361927`*^9}, {3.568223800379475*^9, 3.568223827648323*^9}, {3.5682238887380304`*^9, 3.5682238893152313`*^9}, { 3.5682240287170763`*^9, 3.5682240612431335`*^9}, 3.5682241088076167`*^9, { 3.568224198772975*^9, 3.5682242396450467`*^9}, {3.568224282170721*^9, 3.5682243185031853`*^9}, {3.568224437890195*^9, 3.568224439590598*^9}, { 3.568224572253231*^9, 3.5682245867144566`*^9}, {3.5682247081762695`*^9, 3.568224733557514*^9}, {3.56822480520844*^9, 3.5682248433505073`*^9}, { 3.568224884206979*^9, 3.5682248959069996`*^9}, {3.568224982830352*^9, 3.5682250047639904`*^9}, {3.56822503870965*^9, 3.5682250803305235`*^9}, { 3.5682251223413973`*^9, 3.568225141451431*^9}, {3.568225234177994*^9, 3.5682252929588966`*^9}, {3.5682253775890455`*^9, 3.568225482140429*^9}, { 3.56822551694409*^9, 3.5682255297205124`*^9}, {3.568225573197789*^9, 3.5682255809666023`*^9}, 3.568225660698343*^9, 3.5682257301964645`*^9, { 3.568225765078126*^9, 3.5682257828933573`*^9}, {3.568225927026843*^9, 3.568225927416844*^9}, {3.568267062420238*^9, 3.568267081358671*^9}, { 3.568267188328059*^9, 3.5682672830358257`*^9}, {3.5682676367040462`*^9, 3.568267747979042*^9}, 3.5682678404716043`*^9, 3.568267882030078*^9, { 3.5682679252577534`*^9, 3.568267996612279*^9}, {3.5682680488879704`*^9, 3.568268061133992*^9}, {3.568268100914062*^9, 3.5682681150944867`*^9}, { 3.5682681672609787`*^9, 3.5682681709113846`*^9}, {3.568268272904364*^9, 3.5682683182536435`*^9}, {3.5682685202739983`*^9, 3.568268599194537*^9}, { 3.5682686348873997`*^9, 3.568268637773405*^9}, {3.5682686944951043`*^9, 3.568268872273017*^9}, {3.5682689420207396`*^9, 3.568269016947671*^9}, { 3.5682695040741262`*^9, 3.568269601153097*^9}, {3.5682696652380095`*^9, 3.5682696728352227`*^9}, {3.5682697489633565`*^9, 3.5682698308635006`*^9}, {3.568271156491429*^9, 3.568271160063835*^9}, { 3.568271244927984*^9, 3.568271369010602*^9}, {3.5682716250070515`*^9, 3.5682717312276382`*^9}, {3.5682717843301315`*^9, 3.5682718576814604`*^9}, {3.568271940673606*^9, 3.5682720536490045`*^9}, { 3.5682722259669075`*^9, 3.5682723223126764`*^9}, {3.568272370813162*^9, 3.568272411466833*^9}, {3.5682725893539457`*^9, 3.568272622238803*^9}, { 3.5682726936713285`*^9, 3.5682726960113325`*^9}, {3.568272741079812*^9, 3.56827275143823*^9}, {3.5682729218373294`*^9, 3.568272991070251*^9}, { 3.5682734285574193`*^9, 3.5682734302890224`*^9}, {3.5682734898811274`*^9, 3.5682735111595645`*^9}, {3.5682736115925407`*^9, 3.5682736313577757`*^9}, {3.5682738601945777`*^9, 3.568273987272401*^9}, { 3.5682763944346285`*^9, 3.5682764313910933`*^9}, 3.5682765128232365`*^9, { 3.5682766527398825`*^9, 3.568276660976697*^9}, {3.5682774496048822`*^9, 3.568277461663703*^9}, {3.5683784032731285`*^9, 3.568378422991563*^9}, { 3.568378459308427*^9, 3.5683784812420654`*^9}, {3.568378513440522*^9, 3.568378867046343*^9}, {3.568378915468828*^9, 3.56837896203491*^9}, { 3.5683790764299107`*^9, 3.568379270041851*^9}, {3.568380233530743*^9, 3.568380234388745*^9}, 3.5683804214954734`*^9, 3.568380471867962*^9, 3.5683805399464817`*^9, {3.5683812396077104`*^9, 3.568381293537005*^9}, { 3.568381339541486*^9, 3.5683813935175805`*^9}, 3.5684646396646404`*^9, 3.5684646988823442`*^9, 3.568465086387025*^9, {3.5684655859935026`*^9, 3.568465605087936*^9}, 3.568821235038273*^9, 3.5688233741452303`*^9, 3.568823449742963*^9, 3.5688274593312387`*^9, {3.5688284679978104`*^9, 3.5688284689026117`*^9}, {3.5688285131598897`*^9, 3.5688285201487017`*^9}, 3.5688285866360188`*^9, {3.5688292397623663`*^9, 3.568829246688778*^9}, { 3.5688780328231993`*^9, 3.568878075458074*^9}, 3.5688953020257144`*^9, 3.5693395777359695`*^9, {3.569339615191635*^9, 3.569339617079238*^9}, { 3.5693396917877693`*^9, 3.56933969216217*^9}, 3.5693893483274703`*^9}], Cell[BoxData[ RowBox[{ RowBox[{"Plot7", "=", RowBox[{"Table", "[", RowBox[{ RowBox[{"Graphics3D", "[", RowBox[{"{", RowBox[{ RowBox[{"Darker", "[", RowBox[{"Brown", ",", "0.4"}], "]"}], ",", RowBox[{"Opacity", "[", "0.5", "]"}], ",", RowBox[{"If", "[", RowBox[{ RowBox[{ RowBox[{"wxc", "[", RowBox[{"[", "i", "]"}], "]"}], "\[NotEqual]", "0"}], ",", RowBox[{"Sphere", "[", RowBox[{ RowBox[{"{", RowBox[{ RowBox[{"wxc", "[", RowBox[{"[", "i", "]"}], "]"}], ",", RowBox[{"wyc", "[", RowBox[{"[", "i", "]"}], "]"}], ",", RowBox[{"wzc", "[", RowBox[{"[", "i", "]"}], "]"}]}], "}"}], ",", RowBox[{"a", "[", RowBox[{"[", RowBox[{"i", ",", "3"}], "]"}], "]"}]}], "]"}]}], "]"}]}], "}"}], "]"}], ",", RowBox[{"{", RowBox[{"i", ",", "1", ",", "cw"}], "}"}]}], "]"}]}], ";"}]], "Input", CellChangeTimes->{{3.5681365021632137`*^9, 3.5681365171392403`*^9}, { 3.568136560351316*^9, 3.5681365863097615`*^9}, {3.5681369135895367`*^9, 3.5681369265999594`*^9}, {3.568137821916732*^9, 3.5681378378443604`*^9}, { 3.5682072492149415`*^9, 3.5682072529901485`*^9}, 3.568209802830227*^9, { 3.5682216503836985`*^9, 3.5682217583046885`*^9}, {3.5682217912831464`*^9, 3.568221843465238*^9}, {3.5682219760654707`*^9, 3.5682221133457117`*^9}, { 3.568222159615393*^9, 3.5682221693498106`*^9}, {3.5682222565227633`*^9, 3.5682222578487663`*^9}, 3.5682224736283445`*^9, 3.5682227227607822`*^9, 3.5682227558640404`*^9, {3.568222818810151*^9, 3.5682228486062036`*^9}, { 3.5682230057764797`*^9, 3.5682230079916835`*^9}, {3.568223041952943*^9, 3.5682230548229656`*^9}, 3.5682232619601297`*^9, 3.5682233000709963`*^9, { 3.568223536645412*^9, 3.5682235381118145`*^9}, {3.568223591151908*^9, 3.568223591526308*^9}, {3.5682236491528096`*^9, 3.568223657483224*^9}, { 3.568223713222122*^9, 3.5682237532361927`*^9}, {3.568223800379475*^9, 3.568223827648323*^9}, {3.5682238887380304`*^9, 3.5682238893152313`*^9}, { 3.5682240287170763`*^9, 3.5682240612431335`*^9}, 3.5682241088076167`*^9, { 3.568224198772975*^9, 3.5682242396450467`*^9}, {3.568224282170721*^9, 3.5682243185031853`*^9}, {3.568224437890195*^9, 3.568224439590598*^9}, { 3.568224572253231*^9, 3.5682245867144566`*^9}, {3.5682247081762695`*^9, 3.568224733557514*^9}, {3.56822480520844*^9, 3.5682248433505073`*^9}, { 3.568224884206979*^9, 3.5682248959069996`*^9}, {3.568224982830352*^9, 3.5682250047639904`*^9}, {3.56822503870965*^9, 3.5682250803305235`*^9}, { 3.5682251223413973`*^9, 3.568225141451431*^9}, {3.568225234177994*^9, 3.5682252929588966`*^9}, {3.5682253775890455`*^9, 3.568225482140429*^9}, { 3.56822551694409*^9, 3.5682255297205124`*^9}, {3.568225573197789*^9, 3.5682255809666023`*^9}, 3.568225660698343*^9, 3.5682257301964645`*^9, { 3.568225765078126*^9, 3.5682257828933573`*^9}, {3.568225927026843*^9, 3.568225927416844*^9}, {3.568267062420238*^9, 3.568267081358671*^9}, { 3.568267188328059*^9, 3.5682672830358257`*^9}, {3.5682676367040462`*^9, 3.568267747979042*^9}, 3.5682678404716043`*^9, 3.568267882030078*^9, { 3.5682679252577534`*^9, 3.568267996612279*^9}, {3.5682680488879704`*^9, 3.568268061133992*^9}, {3.568268100914062*^9, 3.5682681150944867`*^9}, { 3.5682681672609787`*^9, 3.5682681709113846`*^9}, {3.568268272904364*^9, 3.5682683182536435`*^9}, {3.5682685202739983`*^9, 3.568268599194537*^9}, { 3.5682686348873997`*^9, 3.568268637773405*^9}, {3.5682686944951043`*^9, 3.568268872273017*^9}, {3.5682689420207396`*^9, 3.568269016947671*^9}, { 3.5682695040741262`*^9, 3.568269601153097*^9}, {3.5682696652380095`*^9, 3.5682696728352227`*^9}, {3.5682697489633565`*^9, 3.5682698308635006`*^9}, {3.568271156491429*^9, 3.568271160063835*^9}, { 3.568271244927984*^9, 3.568271369010602*^9}, {3.5682716250070515`*^9, 3.5682717312276382`*^9}, {3.5682717843301315`*^9, 3.5682718576814604`*^9}, {3.568271940673606*^9, 3.5682720536490045`*^9}, { 3.5682722259669075`*^9, 3.5682723223126764`*^9}, {3.568272370813162*^9, 3.568272411466833*^9}, {3.5682725893539457`*^9, 3.568272622238803*^9}, { 3.5682726936713285`*^9, 3.5682726960113325`*^9}, {3.568272741079812*^9, 3.56827275143823*^9}, {3.5682729218373294`*^9, 3.568272991070251*^9}, { 3.5682734285574193`*^9, 3.5682734302890224`*^9}, {3.5682734898811274`*^9, 3.5682735111595645`*^9}, {3.5682736115925407`*^9, 3.5682736313577757`*^9}, {3.5682738601945777`*^9, 3.568273987272401*^9}, { 3.5682763944346285`*^9, 3.5682764313910933`*^9}, 3.5682765128232365`*^9, { 3.5682766527398825`*^9, 3.568276660976697*^9}, {3.5682774496048822`*^9, 3.568277461663703*^9}, {3.5683784032731285`*^9, 3.568378422991563*^9}, { 3.568378459308427*^9, 3.5683784812420654`*^9}, {3.568378513440522*^9, 3.568378867046343*^9}, {3.568378915468828*^9, 3.56837896203491*^9}, { 3.5683790764299107`*^9, 3.568379270041851*^9}, {3.568380233530743*^9, 3.568380234388745*^9}, 3.5683804214954734`*^9, 3.568380471867962*^9, 3.5683805399464817`*^9, {3.5683812396077104`*^9, 3.568381293537005*^9}, { 3.568381339541486*^9, 3.5683813935175805`*^9}, 3.5684646396646404`*^9, 3.5684646988823442`*^9, 3.568465086387025*^9, {3.5684655859935026`*^9, 3.568465605087936*^9}, 3.568821235038273*^9, 3.5688233741452303`*^9, 3.568823449742963*^9, 3.5688274593312387`*^9, {3.5688284679978104`*^9, 3.5688284689026117`*^9}, {3.5688285131598897`*^9, 3.5688285201487017`*^9}, 3.5688285866360188`*^9, {3.5688292397623663`*^9, 3.568829246688778*^9}, { 3.5688780328231993`*^9, 3.56887811871695*^9}, {3.568895331556566*^9, 3.5688953367201753`*^9}, 3.568895995276532*^9, {3.5693397032225895`*^9, 3.56933970331619*^9}, 3.569339737137049*^9, 3.569340055299608*^9, 3.569389360947892*^9, {3.570298060155057*^9, 3.570298071589877*^9}, { 3.5704539766451664`*^9, 3.5704539773627677`*^9}, {3.5709509139026003`*^9, 3.570950950500265*^9}, {3.570950995397144*^9, 3.5709510449896307`*^9}, { 3.570974064815357*^9, 3.5709741190878525`*^9}, {3.5709742487084804`*^9, 3.570974273528124*^9}, {3.5713747544125347`*^9, 3.571374762618149*^9}, 3.5713830670175667`*^9}], Cell[BoxData[{ RowBox[{ RowBox[{"wxh", "=", RowBox[{"Table", "[", RowBox[{ RowBox[{ RowBox[{ RowBox[{ RowBox[{"(", RowBox[{ RowBox[{"a", "[", RowBox[{"[", RowBox[{"i", ",", "3"}], "]"}], "]"}], "+", RowBox[{"u2", "[", RowBox[{"[", RowBox[{"a", "[", RowBox[{"[", RowBox[{"i", ",", "2"}], "]"}], "]"}], "]"}], "]"}]}], ")"}], "/", RowBox[{"(", RowBox[{ RowBox[{"u2", "[", RowBox[{"[", RowBox[{"a", "[", RowBox[{"[", RowBox[{"i", ",", "1"}], "]"}], "]"}], "]"}], "]"}], "+", RowBox[{"a", "[", RowBox[{"[", RowBox[{"i", ",", "3"}], "]"}], "]"}], "+", RowBox[{"u2", "[", RowBox[{"[", RowBox[{"a", "[", RowBox[{"[", RowBox[{"i", ",", "2"}], "]"}], "]"}], "]"}], "]"}]}], ")"}]}], "*", RowBox[{"(", RowBox[{ RowBox[{"x", "[", RowBox[{"[", RowBox[{"a", "[", RowBox[{"[", RowBox[{"i", ",", "1"}], "]"}], "]"}], "]"}], "]"}], "-", RowBox[{"x", "[", RowBox[{"[", RowBox[{"a", "[", RowBox[{"[", RowBox[{"i", ",", "2"}], "]"}], "]"}], "]"}], "]"}]}], ")"}]}], "+", RowBox[{"x", "[", RowBox[{"[", RowBox[{"a", "[", RowBox[{"[", RowBox[{"i", ",", "2"}], "]"}], "]"}], "]"}], "]"}]}], ",", RowBox[{"{", RowBox[{"i", ",", RowBox[{"cw", "+", "1"}], ",", "nb"}], "}"}]}], "]"}]}], ";"}], "\n", RowBox[{ RowBox[{"wyh", "=", RowBox[{"Table", "[", RowBox[{ RowBox[{ RowBox[{ RowBox[{ RowBox[{"(", RowBox[{ RowBox[{"a", "[", RowBox[{"[", RowBox[{"i", ",", "3"}], "]"}], "]"}], "+", RowBox[{"u2", "[", RowBox[{"[", RowBox[{"a", "[", RowBox[{"[", RowBox[{"i", ",", "2"}], "]"}], "]"}], "]"}], "]"}]}], ")"}], "/", RowBox[{"(", RowBox[{ RowBox[{"u2", "[", RowBox[{"[", RowBox[{"a", "[", RowBox[{"[", RowBox[{"i", ",", "1"}], "]"}], "]"}], "]"}], "]"}], "+", RowBox[{"a", "[", RowBox[{"[", RowBox[{"i", ",", "3"}], "]"}], "]"}], "+", RowBox[{"u2", "[", RowBox[{"[", RowBox[{"a", "[", RowBox[{"[", RowBox[{"i", ",", "2"}], "]"}], "]"}], "]"}], "]"}]}], ")"}]}], "*", RowBox[{"(", RowBox[{ RowBox[{"y", "[", RowBox[{"[", RowBox[{"a", "[", RowBox[{"[", RowBox[{"i", ",", "1"}], "]"}], "]"}], "]"}], "]"}], "-", RowBox[{"y", "[", RowBox[{"[", RowBox[{"a", "[", RowBox[{"[", RowBox[{"i", ",", "2"}], "]"}], "]"}], "]"}], "]"}]}], ")"}]}], "+", RowBox[{"y", "[", RowBox[{"[", RowBox[{"a", "[", RowBox[{"[", RowBox[{"i", ",", "2"}], "]"}], "]"}], "]"}], "]"}]}], ",", RowBox[{"{", RowBox[{"i", ",", RowBox[{"cw", "+", "1"}], ",", "nb"}], "}"}]}], "]"}]}], ";"}], "\n", RowBox[{ RowBox[{"wzh", "=", RowBox[{"Table", "[", RowBox[{ RowBox[{ RowBox[{ RowBox[{ RowBox[{"(", RowBox[{ RowBox[{"a", "[", RowBox[{"[", RowBox[{"i", ",", "3"}], "]"}], "]"}], "+", RowBox[{"u2", "[", RowBox[{"[", RowBox[{"a", "[", RowBox[{"[", RowBox[{"i", ",", "2"}], "]"}], "]"}], "]"}], "]"}]}], ")"}], "/", RowBox[{"(", RowBox[{ RowBox[{"u2", "[", RowBox[{"[", RowBox[{"a", "[", RowBox[{"[", RowBox[{"i", ",", "1"}], "]"}], "]"}], "]"}], "]"}], "+", RowBox[{"a", "[", RowBox[{"[", RowBox[{"i", ",", "3"}], "]"}], "]"}], "+", RowBox[{"u2", "[", RowBox[{"[", RowBox[{"a", "[", RowBox[{"[", RowBox[{"i", ",", "2"}], "]"}], "]"}], "]"}], "]"}]}], ")"}]}], "*", RowBox[{"(", RowBox[{ RowBox[{"z", "[", RowBox[{"[", RowBox[{"a", "[", RowBox[{"[", RowBox[{"i", ",", "1"}], "]"}], "]"}], "]"}], "]"}], "-", RowBox[{"z", "[", RowBox[{"[", RowBox[{"a", "[", RowBox[{"[", RowBox[{"i", ",", "2"}], "]"}], "]"}], "]"}], "]"}]}], ")"}]}], "+", RowBox[{"z", "[", RowBox[{"[", RowBox[{"a", "[", RowBox[{"[", RowBox[{"i", ",", "2"}], "]"}], "]"}], "]"}], "]"}]}], ",", RowBox[{"{", RowBox[{"i", ",", RowBox[{"cw", "+", "1"}], ",", "nb"}], "}"}]}], "]"}]}], ";"}]}], "Input", CellChangeTimes->{{3.5681365021632137`*^9, 3.5681365171392403`*^9}, { 3.568136560351316*^9, 3.5681365863097615`*^9}, {3.5681369135895367`*^9, 3.5681369265999594`*^9}, {3.568137821916732*^9, 3.5681378378443604`*^9}, { 3.5682072492149415`*^9, 3.5682072529901485`*^9}, 3.568209802830227*^9, { 3.5682216503836985`*^9, 3.5682217583046885`*^9}, {3.5682217912831464`*^9, 3.568221843465238*^9}, {3.5682219760654707`*^9, 3.5682221133457117`*^9}, { 3.568222159615393*^9, 3.5682221693498106`*^9}, {3.5682222565227633`*^9, 3.5682222578487663`*^9}, 3.5682224736283445`*^9, 3.5682227227607822`*^9, 3.5682227558640404`*^9, {3.568222818810151*^9, 3.5682228486062036`*^9}, { 3.5682230057764797`*^9, 3.5682230079916835`*^9}, {3.568223041952943*^9, 3.5682230548229656`*^9}, 3.5682232619601297`*^9, 3.5682233000709963`*^9, { 3.568223536645412*^9, 3.5682235381118145`*^9}, {3.568223591151908*^9, 3.568223591526308*^9}, {3.5682236491528096`*^9, 3.568223657483224*^9}, { 3.568223713222122*^9, 3.5682237532361927`*^9}, {3.568223800379475*^9, 3.568223827648323*^9}, {3.5682238887380304`*^9, 3.5682238893152313`*^9}, { 3.5682240287170763`*^9, 3.5682240612431335`*^9}, 3.5682241088076167`*^9, { 3.568224198772975*^9, 3.5682242396450467`*^9}, {3.568224282170721*^9, 3.5682243185031853`*^9}, {3.568224437890195*^9, 3.568224439590598*^9}, { 3.568224572253231*^9, 3.5682245867144566`*^9}, {3.5682247081762695`*^9, 3.568224733557514*^9}, {3.56822480520844*^9, 3.5682248433505073`*^9}, { 3.568224884206979*^9, 3.5682248959069996`*^9}, {3.568224982830352*^9, 3.5682250047639904`*^9}, {3.56822503870965*^9, 3.5682250803305235`*^9}, { 3.5682251223413973`*^9, 3.568225141451431*^9}, {3.568225234177994*^9, 3.5682252929588966`*^9}, {3.5682253775890455`*^9, 3.568225482140429*^9}, { 3.56822551694409*^9, 3.5682255297205124`*^9}, {3.568225573197789*^9, 3.5682255809666023`*^9}, 3.568225660698343*^9, 3.5682257301964645`*^9, { 3.568225765078126*^9, 3.5682257828933573`*^9}, {3.568225927026843*^9, 3.568225927416844*^9}, {3.568267062420238*^9, 3.568267081358671*^9}, { 3.568267188328059*^9, 3.5682672830358257`*^9}, {3.5682676367040462`*^9, 3.568267747979042*^9}, 3.5682678404716043`*^9, 3.568267882030078*^9, { 3.5682679252577534`*^9, 3.568267996612279*^9}, {3.5682680488879704`*^9, 3.568268061133992*^9}, {3.568268100914062*^9, 3.5682681150944867`*^9}, { 3.5682681672609787`*^9, 3.5682681709113846`*^9}, {3.568268272904364*^9, 3.5682683182536435`*^9}, {3.5682685202739983`*^9, 3.568268599194537*^9}, { 3.5682686348873997`*^9, 3.568268637773405*^9}, {3.5682686944951043`*^9, 3.568268872273017*^9}, {3.5682689420207396`*^9, 3.568269016947671*^9}, { 3.5682695040741262`*^9, 3.568269601153097*^9}, {3.5682696652380095`*^9, 3.5682696728352227`*^9}, {3.5682697489633565`*^9, 3.5682698308635006`*^9}, {3.568271156491429*^9, 3.568271160063835*^9}, { 3.568271244927984*^9, 3.568271369010602*^9}, {3.5682716250070515`*^9, 3.5682717312276382`*^9}, {3.5682717843301315`*^9, 3.5682718576814604`*^9}, {3.568271940673606*^9, 3.5682720536490045`*^9}, { 3.5682722259669075`*^9, 3.5682723223126764`*^9}, {3.568272370813162*^9, 3.568272411466833*^9}, {3.5682725893539457`*^9, 3.568272622238803*^9}, { 3.5682726936713285`*^9, 3.5682726960113325`*^9}, {3.568272741079812*^9, 3.56827275143823*^9}, {3.5682729218373294`*^9, 3.568272991070251*^9}, { 3.5682734285574193`*^9, 3.5682734302890224`*^9}, {3.5682734898811274`*^9, 3.5682735111595645`*^9}, {3.5682736115925407`*^9, 3.5682736313577757`*^9}, {3.5682738601945777`*^9, 3.568273987272401*^9}, { 3.5682763944346285`*^9, 3.5682764313910933`*^9}, 3.5682765128232365`*^9, { 3.5682766527398825`*^9, 3.568276660976697*^9}, {3.5682774496048822`*^9, 3.568277461663703*^9}, {3.5683784032731285`*^9, 3.568378422991563*^9}, { 3.568378459308427*^9, 3.5683784812420654`*^9}, {3.568378513440522*^9, 3.568378867046343*^9}, {3.568378915468828*^9, 3.56837896203491*^9}, { 3.5683790764299107`*^9, 3.568379270041851*^9}, {3.568380233530743*^9, 3.568380234388745*^9}, 3.5683804214954734`*^9, 3.568380471867962*^9, 3.5683805399464817`*^9, {3.5683812396077104`*^9, 3.568381293537005*^9}, { 3.568381339541486*^9, 3.5683813935175805`*^9}, 3.5684646396646404`*^9, 3.5684646988823442`*^9, 3.568465086387025*^9, {3.5684655859935026`*^9, 3.568465605087936*^9}, 3.568821235038273*^9, 3.5688233741452303`*^9, 3.568823449742963*^9, 3.5688274593312387`*^9, {3.5688284679978104`*^9, 3.5688284689026117`*^9}, {3.5688285131598897`*^9, 3.5688285201487017`*^9}, 3.5688285866360188`*^9, {3.5688292397623663`*^9, 3.568829246688778*^9}, { 3.5688780328231993`*^9, 3.5688781280925665`*^9}, 3.568895312524533*^9, 3.5693395940691977`*^9, {3.5693396336776676`*^9, 3.5693396557829065`*^9}, { 3.569340069402033*^9, 3.569340092412073*^9}, {3.569389186383586*^9, 3.5693891947764006`*^9}, {3.569389263291721*^9, 3.569389289686967*^9}, 3.569389336315449*^9}], Cell[BoxData[ RowBox[{ RowBox[{"Plot8", "=", RowBox[{"Table", "[", RowBox[{ RowBox[{"Graphics3D", "[", RowBox[{"{", RowBox[{ RowBox[{"Opacity", "[", "0.5", "]"}], ",", RowBox[{"Sphere", "[", RowBox[{ RowBox[{"{", RowBox[{ RowBox[{"wxh", "[", RowBox[{"[", "i", "]"}], "]"}], ",", RowBox[{"wyh", "[", RowBox[{"[", "i", "]"}], "]"}], ",", RowBox[{"wzh", "[", RowBox[{"[", "i", "]"}], "]"}]}], "}"}], ",", RowBox[{"a", "[", RowBox[{"[", RowBox[{ RowBox[{"i", "+", "cw"}], ",", "3"}], "]"}], "]"}]}], "]"}]}], "}"}], "]"}], ",", RowBox[{"{", RowBox[{"i", ",", "1", ",", "bh"}], "}"}]}], "]"}]}], ";"}]], "Input", CellChangeTimes->{{3.5681365021632137`*^9, 3.5681365171392403`*^9}, { 3.568136560351316*^9, 3.5681365863097615`*^9}, {3.5681369135895367`*^9, 3.5681369265999594`*^9}, {3.568137821916732*^9, 3.5681378378443604`*^9}, { 3.5682072492149415`*^9, 3.5682072529901485`*^9}, 3.568209802830227*^9, { 3.5682216503836985`*^9, 3.5682217583046885`*^9}, {3.5682217912831464`*^9, 3.568221843465238*^9}, {3.5682219760654707`*^9, 3.5682221133457117`*^9}, { 3.568222159615393*^9, 3.5682221693498106`*^9}, {3.5682222565227633`*^9, 3.5682222578487663`*^9}, 3.5682224736283445`*^9, 3.5682227227607822`*^9, 3.5682227558640404`*^9, {3.568222818810151*^9, 3.5682228486062036`*^9}, { 3.5682230057764797`*^9, 3.5682230079916835`*^9}, {3.568223041952943*^9, 3.5682230548229656`*^9}, 3.5682232619601297`*^9, 3.5682233000709963`*^9, { 3.568223536645412*^9, 3.5682235381118145`*^9}, {3.568223591151908*^9, 3.568223591526308*^9}, {3.5682236491528096`*^9, 3.568223657483224*^9}, { 3.568223713222122*^9, 3.5682237532361927`*^9}, {3.568223800379475*^9, 3.568223827648323*^9}, {3.5682238887380304`*^9, 3.5682238893152313`*^9}, { 3.5682240287170763`*^9, 3.5682240612431335`*^9}, 3.5682241088076167`*^9, { 3.568224198772975*^9, 3.5682242396450467`*^9}, {3.568224282170721*^9, 3.5682243185031853`*^9}, {3.568224437890195*^9, 3.568224439590598*^9}, { 3.568224572253231*^9, 3.5682245867144566`*^9}, {3.5682247081762695`*^9, 3.568224733557514*^9}, {3.56822480520844*^9, 3.5682248433505073`*^9}, { 3.568224884206979*^9, 3.5682248959069996`*^9}, {3.568224982830352*^9, 3.5682250047639904`*^9}, {3.56822503870965*^9, 3.5682250803305235`*^9}, { 3.5682251223413973`*^9, 3.568225141451431*^9}, {3.568225234177994*^9, 3.5682252929588966`*^9}, {3.5682253775890455`*^9, 3.568225482140429*^9}, { 3.56822551694409*^9, 3.5682255297205124`*^9}, {3.568225573197789*^9, 3.5682255809666023`*^9}, 3.568225660698343*^9, 3.5682257301964645`*^9, { 3.568225765078126*^9, 3.5682257828933573`*^9}, {3.568225927026843*^9, 3.568225927416844*^9}, {3.568267062420238*^9, 3.568267081358671*^9}, { 3.568267188328059*^9, 3.5682672830358257`*^9}, {3.5682676367040462`*^9, 3.568267747979042*^9}, 3.5682678404716043`*^9, 3.568267882030078*^9, { 3.5682679252577534`*^9, 3.568267996612279*^9}, {3.5682680488879704`*^9, 3.568268061133992*^9}, {3.568268100914062*^9, 3.5682681150944867`*^9}, { 3.5682681672609787`*^9, 3.5682681709113846`*^9}, {3.568268272904364*^9, 3.5682683182536435`*^9}, {3.5682685202739983`*^9, 3.568268599194537*^9}, { 3.5682686348873997`*^9, 3.568268637773405*^9}, {3.5682686944951043`*^9, 3.568268872273017*^9}, {3.5682689420207396`*^9, 3.568269016947671*^9}, { 3.5682695040741262`*^9, 3.568269601153097*^9}, {3.5682696652380095`*^9, 3.5682696728352227`*^9}, {3.5682697489633565`*^9, 3.5682698308635006`*^9}, {3.568271156491429*^9, 3.568271160063835*^9}, { 3.568271244927984*^9, 3.568271369010602*^9}, {3.5682716250070515`*^9, 3.5682717312276382`*^9}, {3.5682717843301315`*^9, 3.5682718576814604`*^9}, {3.568271940673606*^9, 3.5682720536490045`*^9}, { 3.5682722259669075`*^9, 3.5682723223126764`*^9}, {3.568272370813162*^9, 3.568272411466833*^9}, {3.5682725893539457`*^9, 3.568272622238803*^9}, { 3.5682726936713285`*^9, 3.5682726960113325`*^9}, {3.568272741079812*^9, 3.56827275143823*^9}, {3.5682729218373294`*^9, 3.568272991070251*^9}, { 3.5682734285574193`*^9, 3.5682734302890224`*^9}, {3.5682734898811274`*^9, 3.5682735111595645`*^9}, {3.5682736115925407`*^9, 3.5682736313577757`*^9}, {3.5682738601945777`*^9, 3.568273987272401*^9}, { 3.5682763944346285`*^9, 3.5682764313910933`*^9}, 3.5682765128232365`*^9, { 3.5682766527398825`*^9, 3.568276660976697*^9}, {3.5682774496048822`*^9, 3.568277461663703*^9}, {3.5683784032731285`*^9, 3.568378422991563*^9}, { 3.568378459308427*^9, 3.5683784812420654`*^9}, {3.568378513440522*^9, 3.568378867046343*^9}, {3.568378915468828*^9, 3.56837896203491*^9}, { 3.5683790764299107`*^9, 3.568379270041851*^9}, {3.568380233530743*^9, 3.568380234388745*^9}, 3.5683804214954734`*^9, 3.568380471867962*^9, 3.5683805399464817`*^9, {3.5683812396077104`*^9, 3.568381293537005*^9}, { 3.568381339541486*^9, 3.5683813935175805`*^9}, 3.5684646396646404`*^9, 3.5684646988823442`*^9, 3.568465086387025*^9, {3.5684655859935026`*^9, 3.568465605087936*^9}, 3.568821235038273*^9, 3.5688233741452303`*^9, 3.568823449742963*^9, 3.5688274593312387`*^9, {3.5688284679978104`*^9, 3.5688284689026117`*^9}, {3.5688285131598897`*^9, 3.5688285201487017`*^9}, 3.5688285866360188`*^9, {3.5688292397623663`*^9, 3.568829246688778*^9}, { 3.5688780328231993`*^9, 3.568878147967001*^9}, {3.56889532230575*^9, 3.5688953242557535`*^9}, 3.56889600529175*^9, 3.5688961595292206`*^9, { 3.5693396821781526`*^9, 3.5693396825213532`*^9}, 3.5693893658151007`*^9, { 3.5693895413934093`*^9, 3.5693895427506113`*^9}, {3.5697651043452682`*^9, 3.5697651089940763`*^9}, {3.5704647001766*^9, 3.570464712141821*^9}}], Cell[BoxData[{ RowBox[{ RowBox[{"Plot8a", "=", RowBox[{"Table", "[", RowBox[{ RowBox[{"Graphics3D", "[", RowBox[{"{", RowBox[{ RowBox[{"Opacity", "[", "0.3", "]"}], ",", RowBox[{"Lighter", "[", "Cyan", "]"}], ",", RowBox[{"Sphere", "[", RowBox[{ RowBox[{"tpo", "[", RowBox[{"[", "i", "]"}], "]"}], ",", "rpo"}], "]"}]}], "}"}], "]"}], ",", RowBox[{"{", RowBox[{"i", ",", "1", ",", 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.519038399855031}, 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.7705058297267997`}, 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.602393161979728, 0.6452868192032891, 3.580745704511178}, 1.246]}, {RGBColor[ NCache[ Rational[1, 3], 0.3333333333333333], NCache[ Rational[1, 3], 0.3333333333333333], 1], Opacity[0.4], SphereBox[{-3.4639478607421426`, 3.367508340192421, 1.9799506535952576`}, 1.246]}, {RGBColor[ NCache[ Rational[1, 3], 0.3333333333333333], NCache[ Rational[1, 3], 0.3333333333333333], 1], Opacity[0.4], SphereBox[{-4.285148664803837, -5.3998231565557395`, 0.5905609715621878}, 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->{3.5745028440926733`*^9, 3.5745030455358267`*^9, 3.574503095689915*^9, 3.575261164918679*^9, 3.5752612341984005`*^9, 3.57526175188531*^9, 3.575265690127827*^9}] }, 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.519038399855031}, 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.7705058297267997`}, 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.602393161979728, 0.6452868192032891, 3.580745704511178}, 1.246]}, {RGBColor[ NCache[ Rational[1, 3], 0.3333333333333333], NCache[ Rational[1, 3], 0.3333333333333333], 1], Opacity[0.4], SphereBox[{-3.4639478607421426`, 3.367508340192421, 1.9799506535952576`}, 1.246]}, {RGBColor[ NCache[ Rational[1, 3], 0.3333333333333333], NCache[ Rational[1, 3], 0.3333333333333333], 1], Opacity[0.4], SphereBox[{-4.285148664803837, -5.3998231565557395`, 0.5905609715621878}, 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->{3.574501474199869*^9, 3.574502844123873*^9, 3.5745030455826273`*^9, 3.5745030957367153`*^9, 3.575261164949879*^9, 3.575261234229601*^9, 3.57526175191651*^9, 3.575265690159027*^9}] }, 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->{3.5744827594866433`*^9, 3.574483060769972*^9, 3.5744844282527742`*^9, 3.5744844979224963`*^9, 3.574484884865576*^9, 3.574485058525081*^9, 3.5744852056021395`*^9, 3.5744852997015047`*^9, 3.574491133654112*^9, 3.5744914620658884`*^9, 3.574491875638215*^9, 3.574492118390241*^9, 3.5744921991203833`*^9, 3.5744923693010817`*^9, 3.574492439376405*^9, 3.574492562320221*^9, 3.574499246777957*^9, 3.574499304841259*^9, 3.5744993919518127`*^9, 3.5744994988588*^9, 3.5744997207223897`*^9, 3.5745008855640354`*^9, 3.5745009460297413`*^9, 3.5745010728735647`*^9, 3.5745011373640776`*^9, 3.5745011692193336`*^9, 3.574501236970253*^9, 3.574502844591874*^9, 3.5745030460506277`*^9, 3.574503095783515*^9, 3.575261164981079*^9, 3.575261234260801*^9, 3.5752617519633102`*^9, 3.5752656901902275`*^9}] }, Open ]], Cell[CellGroupData[{ Cell[BoxData[{ RowBox[{ RowBox[{ RowBox[{"tc", "=", RowBox[{"Table", "[", RowBox[{ RowBox[{"{", RowBox[{ RowBox[{"x", "[", RowBox[{"[", "i", "]"}], "]"}], ",", RowBox[{"y", "[", RowBox[{"[", "i", "]"}], "]"}], ",", RowBox[{"z", "[", RowBox[{"[", "i", "]"}], "]"}]}], "}"}], ",", RowBox[{"{", RowBox[{"i", ",", "1", ",", "bc"}], "}"}]}], "]"}]}], ";"}], " ", RowBox[{"(*", " ", RowBox[{"core", " ", "clouds"}], " ", "*)"}]}], "\[IndentingNewLine]", RowBox[{ RowBox[{ RowBox[{"twc", "=", RowBox[{"Table", "[", RowBox[{ RowBox[{"{", RowBox[{ RowBox[{"wxc", "[", RowBox[{"[", "i", "]"}], "]"}], ",", RowBox[{"wyc", "[", RowBox[{"[", "i", "]"}], "]"}], ",", RowBox[{"wzc", "[", RowBox[{"[", "i", "]"}], "]"}]}], "}"}], ",", RowBox[{"{", RowBox[{"i", ",", "1", ",", "cw"}], "}"}]}], "]"}]}], ";"}], " ", RowBox[{"(*", " ", RowBox[{"Bond", " ", "c\[ODoubleDot]ouds", " ", "between", " ", "cores"}], " ", "*)"}]}], "\[IndentingNewLine]", RowBox[{ RowBox[{ RowBox[{"twh", "=", RowBox[{"Table", "[", RowBox[{ RowBox[{"{", RowBox[{ RowBox[{"wxh", "[", RowBox[{"[", "i", "]"}], "]"}], ",", RowBox[{"wyh", "[", RowBox[{"[", "i", "]"}], "]"}], ",", RowBox[{"wzh", "[", RowBox[{"[", "i", "]"}], "]"}]}], "}"}], ",", RowBox[{"{", RowBox[{"i", ",", "1", ",", "bh"}], "}"}]}], "]"}]}], ";"}], " ", RowBox[{"(*", " ", RowBox[{"H", "-", RowBox[{"bonding", " ", "clouds"}]}], " ", "*)"}], " "}], "\[IndentingNewLine]", RowBox[{ RowBox[{"tw", "=", RowBox[{"Join", "[", RowBox[{ "tc", ",", "twc", ",", "twh", ",", "tpo", ",", "tpu", ",", "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->{3.5744827595178432`*^9, 3.5744830608011723`*^9, 3.574484428299574*^9, 3.5744844979536963`*^9, 3.5744848849123764`*^9, 3.574485058556281*^9, 3.5744852056489396`*^9, 3.574485299732705*^9, 3.5744911336853113`*^9, 3.5744914620970883`*^9, 3.5744918760750155`*^9, 3.574492118733442*^9, 3.5744921994479837`*^9, 3.5744923696442823`*^9, 3.5744924397196054`*^9, 3.574492562866222*^9, 3.5744992468091574`*^9, 3.574499304888059*^9, 3.574499391983012*^9, 3.5744994989056*^9, 3.57449972076919*^9, 3.5745008856108356`*^9, 3.5745009460609417`*^9, 3.5745010729203644`*^9, 3.574501137395278*^9, 3.574501169266134*^9, 3.5745012370170527`*^9, 3.5745028447634745`*^9, 3.574503046206628*^9, 3.574503096001916*^9, 3.575261164981079*^9, 3.5752612342764006`*^9, 3.5752617519633102`*^9, 3.575265690205827*^9}] }, Open ]], Cell[CellGroupData[{ Cell[BoxData[ RowBox[{ RowBox[{"(*", " ", RowBox[{"cloud", "-", RowBox[{"cloud", " ", "distances"}]}], " ", "*)"}], "\[IndentingNewLine]", RowBox[{ RowBox[{ RowBox[{"dw", "=", RowBox[{"Table", "[", RowBox[{ RowBox[{"Norm", "[", RowBox[{ RowBox[{"tw", "[", RowBox[{"[", "i", "]"}], "]"}], "-", RowBox[{"tw", "[", RowBox[{"[", "j", "]"}], "]"}]}], "]"}], ",", RowBox[{"{", RowBox[{"i", ",", "1", ",", "bt"}], "}"}], ",", RowBox[{"{", RowBox[{"j", ",", "1", ",", "bt"}], "}"}]}], "]"}]}], ";"}], "\[IndentingNewLine]", RowBox[{"(*", RowBox[{"MatrixForm", "[", "dw", "]"}], "*)"}], "\[IndentingNewLine]", RowBox[{"Length", "[", "dw", "]"}]}]}]], "Input", CellChangeTimes->{{3.5688982251756487`*^9, 3.5688986440675845`*^9}, { 3.5688986873108606`*^9, 3.56889871560931*^9}, {3.5688987970414534`*^9, 3.5688988526711507`*^9}, {3.568898887147211*^9, 3.568898888644814*^9}, { 3.5688989206248703`*^9, 3.568899041759083*^9}, {3.5688990876855636`*^9, 3.568899258349863*^9}, 3.568899300267137*^9, {3.568899351326027*^9, 3.5688993831032825`*^9}, {3.5688994370481772`*^9, 3.568899468217032*^9}, { 3.5688995813016305`*^9, 3.5688997165538683`*^9}, {3.5688998495129013`*^9, 3.568899932364647*^9}, {3.568899967667509*^9, 3.568900024529609*^9}, { 3.5689000794261055`*^9, 3.568900136257005*^9}, {3.5689001767858763`*^9, 3.56890020149632*^9}, {3.568902068726*^9, 3.568902074139209*^9}, 3.56890216040736*^9, 3.568902344113283*^9, {3.5689024237982235`*^9, 3.56890243907065*^9}, 3.5689025770684924`*^9, 3.568910195129884*^9, 3.568910620995032*^9, {3.568912393532545*^9, 3.5689124022841606`*^9}, { 3.5691332074958715`*^9, 3.5691332081666727`*^9}, {3.5691352237838125`*^9, 3.5691352313342257`*^9}, {3.5691489965881166`*^9, 3.5691490103317413`*^9}, {3.5691490440122004`*^9, 3.5691491351943607`*^9}, {3.569149201666077*^9, 3.5691492026956787`*^9}, { 3.5691494320784817`*^9, 3.5691494680989447`*^9}, {3.569152288984131*^9, 3.5691522953957424`*^9}, {3.5691595058486633`*^9, 3.569159537672719*^9}, 3.569237911685565*^9, 3.5693411655535583`*^9, 3.5693418217687106`*^9, { 3.5703410302061863`*^9, 3.570341063621445*^9}, {3.5720164790812473`*^9, 3.572016508424899*^9}, {3.57235540487335*^9, 3.572355408040156*^9}, { 3.572356807768214*^9, 3.5723568154122276`*^9}, {3.572621722359356*^9, 3.572621725962962*^9}}], Cell[BoxData["84"], "Output", CellChangeTimes->{3.574482759549043*^9, 3.5744830608479724`*^9, 3.5744844283307743`*^9, 3.574484498000497*^9, 3.574484884943576*^9, 3.5744850585874815`*^9, 3.5744852056801395`*^9, 3.574485299779505*^9, 3.574491133732112*^9, 3.5744914621438885`*^9, 3.5744918761062155`*^9, 3.574492118764642*^9, 3.5744921994947834`*^9, 3.5744923696754827`*^9, 3.5744924397664056`*^9, 3.574492562897422*^9, 3.5744992468559575`*^9, 3.574499304919259*^9, 3.5744993920298123`*^9, 3.5744994989368*^9, 3.57449972080039*^9, 3.5745008856420355`*^9, 3.574500946107742*^9, 3.5745010729671645`*^9, 3.574501137442078*^9, 3.5745011692973337`*^9, 3.574501237063853*^9, 3.5745028447946744`*^9, 3.5745030462534285`*^9, 3.5745030960487156`*^9, 3.575261165027879*^9, 3.575261234323201*^9, 3.5752617520101104`*^9, 3.5752656902526274`*^9}] }, Open ]], Cell[BoxData[ RowBox[{ RowBox[{"(*", " ", RowBox[{"nucleus", "-", RowBox[{"nucleus", " ", "distances"}]}], " ", "*)"}], "\[IndentingNewLine]", RowBox[{"(*", RowBox[{"MatrixForm", "[", "dc", "]"}], " ", "*)"}], " "}]], "Input", CellChangeTimes->{{3.5688982251756487`*^9, 3.5688986440675845`*^9}, { 3.5688986873108606`*^9, 3.56889871560931*^9}, {3.5688987970414534`*^9, 3.5688988526711507`*^9}, {3.568898887147211*^9, 3.568898888644814*^9}, { 3.5688989206248703`*^9, 3.568899041759083*^9}, {3.5688990876855636`*^9, 3.568899258349863*^9}, 3.568899300267137*^9, {3.568899351326027*^9, 3.5688993831032825`*^9}, {3.5688994370481772`*^9, 3.568899468217032*^9}, { 3.5688995813016305`*^9, 3.5688997165538683`*^9}, {3.5688998495129013`*^9, 3.568899932364647*^9}, {3.568899967667509*^9, 3.568900024529609*^9}, { 3.5689000794261055`*^9, 3.568900136257005*^9}, {3.5689001767858763`*^9, 3.56890020149632*^9}, {3.568902068726*^9, 3.568902074139209*^9}, 3.56890216040736*^9, 3.568902344113283*^9, {3.5689024237982235`*^9, 3.56890243907065*^9}, 3.5689025770684924`*^9, 3.568910195129884*^9, 3.568910620995032*^9, {3.568912393532545*^9, 3.5689124022841606`*^9}, { 3.5691332074958715`*^9, 3.5691332081666727`*^9}, {3.5691352237838125`*^9, 3.5691352313342257`*^9}, {3.5691489965881166`*^9, 3.5691490103317413`*^9}, {3.5691490440122004`*^9, 3.5691491273631463`*^9}, {3.5691523435842266`*^9, 3.56915234531583*^9}, { 3.5691524837816734`*^9, 3.569152599175076*^9}, {3.569159470889002*^9, 3.569159489874235*^9}, {3.569160442895509*^9, 3.5691604484335184`*^9}, 3.569237923385586*^9, 3.569341165569158*^9, 3.5693418217843103`*^9, { 3.570341048161818*^9, 3.570341058286236*^9}, {3.57034131095988*^9, 3.570341315156287*^9}, 3.5703415891395683`*^9, 3.570341976207448*^9}], Cell[CellGroupData[{ Cell[BoxData[{ RowBox[{ RowBox[{"tv1", "=", RowBox[{"Table", "[", RowBox[{ RowBox[{"t", "[", RowBox[{"[", "i", "]"}], "]"}], ",", RowBox[{"{", RowBox[{"i", ",", "1", ",", "bc"}], "}"}]}], "]"}]}], ";"}], "\[IndentingNewLine]", RowBox[{ RowBox[{"tv2", "=", RowBox[{"Table", "[", RowBox[{ RowBox[{"{", RowBox[{"0", ",", "0", ",", "0"}], "}"}], ",", RowBox[{"{", RowBox[{"i", ",", "1", ",", "cw"}], "}"}]}], "]"}]}], ";"}], "\[IndentingNewLine]", RowBox[{ RowBox[{"tv3", "=", " ", RowBox[{"Table", "[", RowBox[{ RowBox[{"t", "[", RowBox[{"[", "i", "]"}], "]"}], ",", RowBox[{"{", RowBox[{"i", ",", RowBox[{"bc", "+", "1"}], ",", "n"}], "}"}]}], "]"}]}], ";"}], "\[IndentingNewLine]", RowBox[{ RowBox[{ RowBox[{"tv4", " ", "=", RowBox[{"Table", "[", RowBox[{ RowBox[{"{", RowBox[{"0", ",", "0", ",", "0"}], "}"}], ",", RowBox[{"{", RowBox[{"i", ",", "1", ",", 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->{3.574482759564643*^9, 3.574483060863572*^9, 3.5744844283463745`*^9, 3.5744844980160966`*^9, 3.574484884959176*^9, 3.574485058603081*^9, 3.5744852056957397`*^9, 3.574485299795105*^9, 3.574491133747712*^9, 3.5744914621594887`*^9, 3.5744918761218157`*^9, 3.574492118780242*^9, 3.5744921995415835`*^9, 3.574492369691083*^9, 3.5744924397820053`*^9, 3.574492562913022*^9, 3.574499246871557*^9, 3.5744993049348593`*^9, 3.5744993920298123`*^9, 3.5744994989524*^9, 3.57449972081599*^9, 3.5745008856576357`*^9, 3.574500946123342*^9, 3.5745010729827647`*^9, 3.574501137457678*^9, 3.574501169312934*^9, 3.5745012370794525`*^9, 3.574502844810274*^9, 3.5745030462690287`*^9, 3.574503096064316*^9, 3.575261165043479*^9, 3.575261234338801*^9, 3.57526175202571*^9, 3.5752656902526274`*^9}], Cell[BoxData["84"], "Output", CellChangeTimes->{3.574482759564643*^9, 3.574483060863572*^9, 3.5744844283463745`*^9, 3.5744844980160966`*^9, 3.574484884959176*^9, 3.574485058603081*^9, 3.5744852056957397`*^9, 3.574485299795105*^9, 3.574491133747712*^9, 3.5744914621594887`*^9, 3.5744918761218157`*^9, 3.574492118780242*^9, 3.5744921995415835`*^9, 3.574492369691083*^9, 3.5744924397820053`*^9, 3.574492562913022*^9, 3.574499246871557*^9, 3.5744993049348593`*^9, 3.5744993920298123`*^9, 3.5744994989524*^9, 3.57449972081599*^9, 3.5745008856576357`*^9, 3.574500946123342*^9, 3.5745010729827647`*^9, 3.574501137457678*^9, 3.574501169312934*^9, 3.5745012370794525`*^9, 3.574502844810274*^9, 3.5745030462690287`*^9, 3.574503096064316*^9, 3.575261165043479*^9, 3.575261234338801*^9, 3.57526175202571*^9, 3.5752656902682276`*^9}] }, Open ]], Cell[CellGroupData[{ Cell[BoxData[{ RowBox[{ RowBox[{"ow", "=", RowBox[{"Join", "[", RowBox[{ RowBox[{"Table", "[", RowBox[{ RowBox[{"-", "2.0"}], ",", RowBox[{"{", RowBox[{"i", ",", "1", ",", RowBox[{"bc", "+", "nb"}]}], "}"}]}], "]"}], ",", RowBox[{"Table", "[", RowBox[{ RowBox[{"-", "0.5"}], ",", RowBox[{"{", RowBox[{"i", ",", "1", ",", RowBox[{"2", "*", "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->{3.574482759564643*^9, 3.5744830608791723`*^9, 3.5744844283619747`*^9, 3.5744844980316963`*^9, 3.5744848849747763`*^9, 3.574485058618681*^9, 3.57448520571134*^9, 3.574485299795105*^9, 3.574491133763312*^9, 3.5744914621594887`*^9, 3.574491876137416*^9, 3.574492118795842*^9, 3.5744921995571837`*^9, 3.5744923697066827`*^9, 3.5744924397820053`*^9, 3.5744925629286222`*^9, 3.5744992468871574`*^9, 3.5744993049504595`*^9, 3.574499392045412*^9, 3.5744994989680004`*^9, 3.5744997208783903`*^9, 3.5745008857044353`*^9, 3.574500946170142*^9, 3.5745010729827647`*^9, 3.574501137504478*^9, 3.574501169328534*^9, 3.574501237126253*^9, 3.5745028448258743`*^9, 3.5745030462846284`*^9, 3.574503096064316*^9, 3.575261165059079*^9, 3.575261234354401*^9, 3.5752617520413103`*^9, 3.5752656902682276`*^9}], Cell[BoxData["84"], "Output", CellChangeTimes->{3.574482759564643*^9, 3.5744830608791723`*^9, 3.5744844283619747`*^9, 3.5744844980316963`*^9, 3.5744848849747763`*^9, 3.574485058618681*^9, 3.57448520571134*^9, 3.574485299795105*^9, 3.574491133763312*^9, 3.5744914621594887`*^9, 3.574491876137416*^9, 3.574492118795842*^9, 3.5744921995571837`*^9, 3.5744923697066827`*^9, 3.5744924397820053`*^9, 3.5744925629286222`*^9, 3.5744992468871574`*^9, 3.5744993049504595`*^9, 3.574499392045412*^9, 3.5744994989680004`*^9, 3.5744997208783903`*^9, 3.5745008857044353`*^9, 3.574500946170142*^9, 3.5745010729827647`*^9, 3.574501137504478*^9, 3.574501169328534*^9, 3.574501237126253*^9, 3.5745028448258743`*^9, 3.5745030462846284`*^9, 3.574503096064316*^9, 3.575261165059079*^9, 3.575261234354401*^9, 3.5752617520413103`*^9, 3.5752656902682276`*^9}] }, 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->{3.574482759580243*^9, 3.5744830608947725`*^9, 3.5744844283619747`*^9, 3.5744844980472965`*^9, 3.5744848849747763`*^9, 3.574485058634281*^9, 3.57448520571134*^9, 3.5744852998107047`*^9, 3.574491133763312*^9, 3.574491462175089*^9, 3.574491876137416*^9, 3.574492118795842*^9, 3.5744921995727835`*^9, 3.574492369722283*^9, 3.5744924397976055`*^9, 3.5744925629286222`*^9, 3.5744992468871574`*^9, 3.5744993049660597`*^9, 3.5744993920610123`*^9, 3.5744994989836*^9, 3.5744997208783903`*^9, 3.5745008857200356`*^9, 3.574500946185742*^9, 3.574501073029565*^9, 3.5745011375200777`*^9, 3.5745011693441343`*^9, 3.574501237126253*^9, 3.5745028448414745`*^9, 3.574503046300228*^9, 3.574503096079916*^9, 3.575261165059079*^9, 3.575261234354401*^9, 3.5752617520413103`*^9, 3.575265690283828*^9}], Cell[BoxData["140.`"], "Output", CellChangeTimes->{3.574482759580243*^9, 3.5744830608947725`*^9, 3.5744844283619747`*^9, 3.5744844980472965`*^9, 3.5744848849747763`*^9, 3.574485058634281*^9, 3.57448520571134*^9, 3.5744852998107047`*^9, 3.574491133763312*^9, 3.574491462175089*^9, 3.574491876137416*^9, 3.574492118795842*^9, 3.5744921995727835`*^9, 3.574492369722283*^9, 3.5744924397976055`*^9, 3.5744925629286222`*^9, 3.5744992468871574`*^9, 3.5744993049660597`*^9, 3.5744993920610123`*^9, 3.5744994989836*^9, 3.5744997208783903`*^9, 3.5745008857200356`*^9, 3.574500946185742*^9, 3.574501073029565*^9, 3.5745011375200777`*^9, 3.5745011693441343`*^9, 3.574501237126253*^9, 3.5745028448414745`*^9, 3.574503046300228*^9, 3.574503096079916*^9, 3.575261165059079*^9, 3.575261234354401*^9, 3.5752617520413103`*^9, 3.575265690283828*^9}] }, Open ]], Cell[CellGroupData[{ Cell[BoxData[ RowBox[{ RowBox[{"(*", " ", RowBox[{"nucleus", "-", RowBox[{"cloud", " ", "distances"}]}], " ", "*)"}], "\[IndentingNewLine]", RowBox[{ RowBox[{ RowBox[{"dcw", "=", RowBox[{"Table", "[", RowBox[{ RowBox[{ RowBox[{"sq", "=", RowBox[{"Norm", "[", RowBox[{ RowBox[{"tw", "[", RowBox[{"[", "i", "]"}], "]"}], "-", RowBox[{"tv", "[", RowBox[{"[", "j", "]"}], "]"}]}], "]"}]}], ";", RowBox[{"If", "[", RowBox[{ RowBox[{"(", RowBox[{ RowBox[{"sq", ">", " ", "0.1"}], " ", "&&", " ", RowBox[{"i", "\[NotEqual]", "j"}]}], ")"}], ",", RowBox[{"1", "/", "sq"}], ",", "0"}], "]"}]}], ",", RowBox[{"{", RowBox[{"i", ",", "1", ",", "bt"}], "}"}], ",", RowBox[{"{", RowBox[{"j", ",", "1", ",", "bt"}], "}"}]}], "]"}]}], ";"}], "\[IndentingNewLine]", RowBox[{"Length", "[", "dcw", "]"}], "\[IndentingNewLine]", RowBox[{"(*", RowBox[{"MatrixForm", "[", "dcw", "]"}], "*)"}], " "}]}]], "Input", CellChangeTimes->{{3.5688982251756487`*^9, 3.5688986440675845`*^9}, { 3.5688986873108606`*^9, 3.56889871560931*^9}, {3.5688987970414534`*^9, 3.5688988526711507`*^9}, {3.568898887147211*^9, 3.568898888644814*^9}, { 3.5688989206248703`*^9, 3.568899041759083*^9}, {3.5688990876855636`*^9, 3.568899258349863*^9}, 3.568899300267137*^9, {3.568899351326027*^9, 3.5688993831032825`*^9}, {3.5688994370481772`*^9, 3.568899468217032*^9}, { 3.5688995813016305`*^9, 3.5688997165538683`*^9}, {3.5688998495129013`*^9, 3.568899932364647*^9}, {3.568899967667509*^9, 3.568900024529609*^9}, { 3.5689000794261055`*^9, 3.568900136257005*^9}, {3.5689001767858763`*^9, 3.56890020149632*^9}, {3.568902068726*^9, 3.568902074139209*^9}, 3.56890216040736*^9, 3.568902344113283*^9, {3.5689024237982235`*^9, 3.56890243907065*^9}, 3.5689025770684924`*^9, 3.568910195129884*^9, 3.568910620995032*^9, {3.568912393532545*^9, 3.5689124022841606`*^9}, { 3.5691332074958715`*^9, 3.5691332081666727`*^9}, {3.5691352237838125`*^9, 3.5691352313342257`*^9}, {3.5691489965881166`*^9, 3.5691490103317413`*^9}, {3.5691490440122004`*^9, 3.5691491273631463`*^9}, {3.5691523435842266`*^9, 3.56915234531583*^9}, { 3.5691524837816734`*^9, 3.5691526041202846`*^9}, {3.5691595921324143`*^9, 3.5691596901941867`*^9}, {3.569159772406331*^9, 3.5691597832951508`*^9}, { 3.5691598700313025`*^9, 3.569159885147729*^9}, {3.569160485733184*^9, 3.569160486887586*^9}, {3.5691672792073207`*^9, 3.5691672793789206`*^9}, { 3.5691673418102303`*^9, 3.5691674875144863`*^9}, {3.569168259700243*^9, 3.569168260386644*^9}, {3.569168321257951*^9, 3.569168337466379*^9}, { 3.5691685152754917`*^9, 3.569168656096939*^9}, {3.5691687137702403`*^9, 3.569168772566744*^9}, {3.5691697249898825`*^9, 3.569169747063921*^9}, { 3.569169944981469*^9, 3.5691699655579047`*^9}, {3.56921753575448*^9, 3.569217541807291*^9}, {3.569217576283351*^9, 3.5692176436130695`*^9}, { 3.5692176921603546`*^9, 3.569217692768756*^9}, {3.5692177389136367`*^9, 3.569217740192839*^9}, {3.5692222042775583`*^9, 3.5692222070231633`*^9}, { 3.569230669979245*^9, 3.5692306709620466`*^9}, {3.5692308816872168`*^9, 3.5692309970650196`*^9}, {3.5692310297158766`*^9, 3.569231090602784*^9}, { 3.5692311251880445`*^9, 3.569231148868886*^9}, 3.56923793753481*^9, 3.569341165569158*^9, 3.5693418217375107`*^9, {3.5703412254249296`*^9, 3.5703412423509593`*^9}, {3.5704553045038986`*^9, 3.570455320681127*^9}, { 3.57045550485505*^9, 3.5704555063370533`*^9}, {3.5704556421508913`*^9, 3.5704556424784923`*^9}, 3.5704557137862177`*^9, {3.5704564711051474`*^9, 3.5704564908079824`*^9}, {3.570456521602436*^9, 3.5704565228348384`*^9}, { 3.5704569127419233`*^9, 3.5704569202767363`*^9}, 3.5704636205455036`*^9, 3.570596993178934*^9, {3.570855461377095*^9, 3.5708554743563175`*^9}, 3.570855611589759*^9, {3.571840408884818*^9, 3.571840415296429*^9}, { 3.571840465559717*^9, 3.571840473905732*^9}, {3.5720165322617407`*^9, 3.5720165635241957`*^9}, {3.5721934404423375`*^9, 3.57219344758715*^9}, 3.572193479551606*^9, 3.5721935303764954`*^9, {3.5721935661785583`*^9, 3.5721935879405966`*^9}, {3.5721936909943776`*^9, 3.572193697218788*^9}, { 3.5721937395728626`*^9, 3.57219374339487*^9}, {3.5721937963725624`*^9, 3.5721938223154078`*^9}, {3.572193859786674*^9, 3.572193861533877*^9}, 3.5723554650270557`*^9, {3.5723567325136824`*^9, 3.5723567701565485`*^9}, 3.572621740954589*^9}], Cell[BoxData["84"], "Output", CellChangeTimes->{3.5744827596270432`*^9, 3.5744830609727726`*^9, 3.5744844284087744`*^9, 3.574484498296897*^9, 3.574484885239977*^9, 3.574485058899482*^9, 3.57448520600774*^9, 3.5744853000759053`*^9, 3.5744911340597124`*^9, 3.574491462455889*^9, 3.5744918764026165`*^9, 3.5744921190766425`*^9, 3.5744921996351843`*^9, 3.574492369769083*^9, 3.574492439860006*^9, 3.574492562991022*^9, 3.5744992469495573`*^9, 3.5744993050284595`*^9, 3.5744993921234126`*^9, 3.5744994990772004`*^9, 3.57449972094079*^9, 3.574500885782436*^9, 3.574500946232542*^9, 3.5745010730919647`*^9, 3.5745011375668783`*^9, 3.574501169406534*^9, 3.574501237188653*^9, 3.5745028449038744`*^9, 3.5745030463470287`*^9, 3.574503096142316*^9, 3.5752611651214795`*^9, 3.5752612344168015`*^9, 3.57526175210371*^9, 3.5752656903306274`*^9}] }, Open ]], Cell[BoxData[ RowBox[{ RowBox[{"Vee", "=", "0.0"}], ";", " ", RowBox[{"Vnn", "=", "0.0"}], ";"}]], "Input", CellChangeTimes->{{3.5688982251756487`*^9, 3.5688986440675845`*^9}, { 3.5688986873108606`*^9, 3.56889871560931*^9}, {3.5688987970414534`*^9, 3.5688988526711507`*^9}, {3.568898887147211*^9, 3.568898888644814*^9}, { 3.5688989206248703`*^9, 3.568899041759083*^9}, {3.5688990876855636`*^9, 3.568899258349863*^9}, 3.568899300267137*^9, {3.568899351326027*^9, 3.5688993831032825`*^9}, {3.5688994370481772`*^9, 3.568899468217032*^9}, { 3.5688995813016305`*^9, 3.5688997165538683`*^9}, {3.5688998495129013`*^9, 3.568899932364647*^9}, {3.568899967667509*^9, 3.568900024529609*^9}, { 3.5689000794261055`*^9, 3.568900136257005*^9}, {3.5689001767858763`*^9, 3.56890020149632*^9}, {3.568902068726*^9, 3.568902074139209*^9}, 3.56890216040736*^9, 3.568902344113283*^9, {3.5689024237982235`*^9, 3.56890243907065*^9}, 3.5689025770684924`*^9, {3.568910195129884*^9, 3.568910199825492*^9}, 3.568910617609826*^9, {3.56891263539537*^9, 3.568912638842976*^9}, {3.568952611212014*^9, 3.5689526227248344`*^9}, { 3.5689527476498537`*^9, 3.5689527480086546`*^9}, {3.5689530637688093`*^9, 3.5689530642368097`*^9}, {3.569133363948546*^9, 3.569133373698563*^9}, { 3.5691350563331184`*^9, 3.56913505725352*^9}, 3.5691351502452836`*^9, { 3.569135237792637*^9, 3.5691352453118505`*^9}, {3.5691353071659594`*^9, 3.5691353166039753`*^9}, {3.5691447439722476`*^9, 3.5691448093675623`*^9}, {3.569146067386572*^9, 3.569146078244191*^9}, { 3.5691478509845047`*^9, 3.5691478547909117`*^9}, {3.569159874789311*^9, 3.56915988004652*^9}, {3.5691671967299757`*^9, 3.569167196901576*^9}, 3.5691672337020407`*^9, {3.5691672688489027`*^9, 3.5691672717661076`*^9}, 3.569171387282002*^9, 3.5692335989467897`*^9}], Cell[CellGroupData[{ Cell[BoxData[ RowBox[{ RowBox[{"(*", " ", RowBox[{"all", " ", "clouds", " ", "repulsion"}], " ", "*)"}], "\[IndentingNewLine]", RowBox[{ RowBox[{"For", "[", RowBox[{ RowBox[{"i", "=", "1"}], ",", RowBox[{"i", "<", "bt"}], ",", RowBox[{"i", "++"}], ",", "\[IndentingNewLine]", RowBox[{"For", "[", RowBox[{ RowBox[{"j", "=", RowBox[{"i", "+", "1"}]}], ",", RowBox[{"j", "<", RowBox[{"bt", "+", "1"}]}], ",", RowBox[{"j", "++"}], ",", "\[IndentingNewLine]", RowBox[{"Vee", "=", RowBox[{"Vee", "+", RowBox[{ RowBox[{"ow", "[", RowBox[{"[", "i", "]"}], "]"}], "*", RowBox[{ RowBox[{"ow", "[", RowBox[{"[", "j", "]"}], "]"}], "/", RowBox[{"dw", "[", RowBox[{"[", RowBox[{"i", ",", "j"}], "]"}], "]"}]}]}]}]}]}], "]"}]}], "]"}], "\[IndentingNewLine]", "Vee"}]}]], "Input", CellChangeTimes->{{3.5688982251756487`*^9, 3.5688986440675845`*^9}, { 3.5688986873108606`*^9, 3.56889871560931*^9}, {3.5688987970414534`*^9, 3.5688988526711507`*^9}, {3.568898887147211*^9, 3.568898888644814*^9}, { 3.5688989206248703`*^9, 3.568899041759083*^9}, {3.5688990876855636`*^9, 3.568899258349863*^9}, 3.568899300267137*^9, {3.568899351326027*^9, 3.5688993831032825`*^9}, {3.5688994370481772`*^9, 3.568899468217032*^9}, { 3.5688995813016305`*^9, 3.5688997165538683`*^9}, {3.5688998495129013`*^9, 3.568899932364647*^9}, {3.568899967667509*^9, 3.568900024529609*^9}, { 3.5689000794261055`*^9, 3.568900136257005*^9}, {3.5689001767858763`*^9, 3.56890020149632*^9}, {3.568902068726*^9, 3.568902074139209*^9}, 3.56890216040736*^9, 3.568902344113283*^9, {3.5689024237982235`*^9, 3.56890243907065*^9}, 3.5689025770684924`*^9, {3.568910195129884*^9, 3.568910199825492*^9}, 3.568910617609826*^9, {3.56891263539537*^9, 3.568912638842976*^9}, {3.568952611212014*^9, 3.5689526227248344`*^9}, { 3.5689527476498537`*^9, 3.5689527480086546`*^9}, {3.5689530637688093`*^9, 3.5689530642368097`*^9}, {3.569133363948546*^9, 3.569133373698563*^9}, { 3.5691350563331184`*^9, 3.56913505725352*^9}, 3.5691351502452836`*^9, { 3.569135237792637*^9, 3.5691352453118505`*^9}, {3.5691353071659594`*^9, 3.5691353166039753`*^9}, {3.5691447439722476`*^9, 3.5691448093675623`*^9}, {3.569146067386572*^9, 3.569146078244191*^9}, { 3.5691478509845047`*^9, 3.5691478969889855`*^9}, {3.569149270524598*^9, 3.569149283675421*^9}, {3.5691523005437512`*^9, 3.5691523013861527`*^9}, { 3.570457123841494*^9, 3.5704571330923104`*^9}, {3.570457176959587*^9, 3.570457191296013*^9}, {3.570463789649801*^9, 3.570463797637015*^9}, { 3.5704639300032473`*^9, 3.5704639472412777`*^9}, {3.570464099403945*^9, 3.5704641196371803`*^9}, {3.570464183737693*^9, 3.5704641855628963`*^9}, { 3.570855532092019*^9, 3.5708555433240385`*^9}}], Cell[BoxData["1708.894913419119`"], "Output", CellChangeTimes->{3.5744827596894436`*^9, 3.5744830610039725`*^9, 3.5744844284399743`*^9, 3.5744844985776978`*^9, 3.574484885520777*^9, 3.5744850591646824`*^9, 3.5744852062573404`*^9, 3.5744853003567057`*^9, 3.5744911343561125`*^9, 3.5744914627678895`*^9, 3.574491876667817*^9, 3.574492119295043*^9, 3.5744921998535843`*^9, 3.5744923698002825`*^9, 3.574492439875606*^9, 3.5744925630066223`*^9, 3.5744992469651575`*^9, 3.5744993050440598`*^9, 3.5744993921390123`*^9, 3.5744994990928*^9, 3.57449972097199*^9, 3.574500885798036*^9, 3.574500946263742*^9, 3.574501073107565*^9, 3.5745011375980783`*^9, 3.574501169453334*^9, 3.5745012372198534`*^9, 3.5745028449194746`*^9, 3.574503046378228*^9, 3.5745030961735163`*^9, 3.5752611651526794`*^9, 3.575261234432401*^9, 3.5752617521193104`*^9, 3.575265690361828*^9}] }, 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.8022074335315`"], "Output", CellChangeTimes->{3.5744827597050433`*^9, 3.5744830610351725`*^9, 3.5744844284555745`*^9, 3.574484498858498*^9, 3.5744848856143775`*^9, 3.5744850592738824`*^9, 3.574485206366541*^9, 3.574485300465906*^9, 3.5744911344497128`*^9, 3.57449146284589*^9, 3.574491876730217*^9, 3.5744921193262424`*^9, 3.5744921998847847`*^9, 3.5744923698002825`*^9, 3.574492439891206*^9, 3.5744925630222225`*^9, 3.574499246996358*^9, 3.5744993050596595`*^9, 3.5744993921546125`*^9, 3.5744994991240005`*^9, 3.5744997209875903`*^9, 3.574500885829236*^9, 3.5745009462793417`*^9, 3.5745010731387653`*^9, 3.574501137613678*^9, 3.574501169468934*^9, 3.574501237235453*^9, 3.574502845184675*^9, 3.574503046612229*^9, 3.5745030963919163`*^9, 3.5752611653866796`*^9, 3.575261234666402*^9, 3.5752617523533106`*^9, 3.5752656906114283`*^9}] }, Open ]], Cell[CellGroupData[{ Cell[BoxData[ RowBox[{ RowBox[{"(*", " ", RowBox[{ RowBox[{"all", " ", "nuclei", " ", "with", " ", "all", " ", "clouds"}], ",", " ", RowBox[{ RowBox[{"except", " ", "i"}], " ", "=", " ", "j"}]}], " ", "*)"}], "\[IndentingNewLine]", RowBox[{"Vne", "=", RowBox[{"cnv", ".", RowBox[{"(", RowBox[{"ow", ".", "dcw"}], ")"}]}]}]}]], "Input", CellChangeTimes->{ 3.569233528637466*^9, 3.5692342309507*^9, {3.5704557844231415`*^9, 3.570455793127957*^9}}], Cell[BoxData[ RowBox[{"-", "3533.9055487392684`"}]], "Output", CellChangeTimes->{3.5744827597206435`*^9, 3.5744830610351725`*^9, 3.5744844284555745`*^9, 3.5744845002157*^9, 3.57448488715878*^9, 3.5744850608026853`*^9, 3.574485207895344*^9, 3.574485301994709*^9, 3.574491136805317*^9, 3.574491465201494*^9, 3.5744918784462194`*^9, 3.574492121042246*^9, 3.574492200040785*^9, 3.5744923698158827`*^9, 3.574492439906806*^9, 3.5744925630378222`*^9, 3.574499246996358*^9, 3.5744993050752597`*^9, 3.5744993921702127`*^9, 3.5744994991396008`*^9, 3.57449972100319*^9, 3.574500885829236*^9, 3.574500946294942*^9, 3.5745010731387653`*^9, 3.574501137629278*^9, 3.5745011694845343`*^9, 3.574501237251053*^9, 3.574502845184675*^9, 3.574503046612229*^9, 3.5745030964075165`*^9, 3.5752611653866796`*^9, 3.5752612346820016`*^9, 3.575261752368911*^9, 3.575265690627028*^9}] }, Open ]], Cell[BoxData[ RowBox[{"(*", " ", RowBox[{ "core", " ", "nuclei", " ", "in", " ", "their", " ", "cloud", " ", "centers"}], " ", "*)"}]], "Input", CellChangeTimes->{{3.5688982251756487`*^9, 3.5688986440675845`*^9}, { 3.5688986873108606`*^9, 3.56889871560931*^9}, {3.5688987970414534`*^9, 3.5688988526711507`*^9}, {3.568898887147211*^9, 3.568898888644814*^9}, { 3.5688989206248703`*^9, 3.568899041759083*^9}, {3.5688990876855636`*^9, 3.568899258349863*^9}, 3.568899300267137*^9, {3.568899351326027*^9, 3.5688993831032825`*^9}, {3.5688994370481772`*^9, 3.568899468217032*^9}, { 3.5688995813016305`*^9, 3.5688997165538683`*^9}, {3.5688998495129013`*^9, 3.568899932364647*^9}, {3.568899967667509*^9, 3.568900024529609*^9}, { 3.5689000794261055`*^9, 3.568900136257005*^9}, {3.5689001767858763`*^9, 3.56890020149632*^9}, {3.568902068726*^9, 3.568902074139209*^9}, 3.56890216040736*^9, 3.568902344113283*^9, {3.5689024237982235`*^9, 3.56890243907065*^9}, 3.5689025770684924`*^9, {3.568910195129884*^9, 3.5689102262831383`*^9}, {3.5689126851126575`*^9, 3.5689126875306616`*^9}, {3.5690878255169816`*^9, 3.569087857185037*^9}, { 3.5691452963224173`*^9, 3.569145370484948*^9}, {3.5691454640695124`*^9, 3.5691454653799143`*^9}, {3.5691523784970884`*^9, 3.569152451988817*^9}, { 3.569152629610729*^9, 3.5691526609667845`*^9}}], Cell[CellGroupData[{ Cell[BoxData[{ RowBox[{"For", "[", RowBox[{ RowBox[{"i", "=", "1"}], ",", RowBox[{"i", "<", RowBox[{"bc", "+", "1"}]}], ",", RowBox[{"i", "++"}], ",", RowBox[{"Vne", "=", RowBox[{"Vne", "-", RowBox[{"3", "*", RowBox[{ RowBox[{"cn", "[", RowBox[{"[", "i", "]"}], "]"}], "/", RowBox[{"u2", "[", RowBox[{"[", "i", "]"}], "]"}]}]}]}]}]}], "]"}], "\[IndentingNewLine]", "Vne"}], "Input", CellChangeTimes->{{3.5688982251756487`*^9, 3.5688986440675845`*^9}, { 3.5688986873108606`*^9, 3.56889871560931*^9}, {3.5688987970414534`*^9, 3.5688988526711507`*^9}, {3.568898887147211*^9, 3.568898888644814*^9}, { 3.5688989206248703`*^9, 3.568899041759083*^9}, {3.5688990876855636`*^9, 3.568899258349863*^9}, 3.568899300267137*^9, {3.568899351326027*^9, 3.5688993831032825`*^9}, {3.5688994370481772`*^9, 3.568899468217032*^9}, { 3.5688995813016305`*^9, 3.5688997165538683`*^9}, {3.5688998495129013`*^9, 3.568899932364647*^9}, {3.568899967667509*^9, 3.568900024529609*^9}, { 3.5689000794261055`*^9, 3.568900136257005*^9}, {3.5689001767858763`*^9, 3.56890020149632*^9}, {3.568902068726*^9, 3.568902074139209*^9}, 3.56890216040736*^9, 3.568902344113283*^9, {3.5689024237982235`*^9, 3.56890243907065*^9}, 3.5689025770684924`*^9, {3.568910195129884*^9, 3.5689102262831383`*^9}, {3.5689126851126575`*^9, 3.5689126875306616`*^9}, {3.5690878255169816`*^9, 3.569087857185037*^9}, { 3.5691452963224173`*^9, 3.569145370484948*^9}, {3.5691454640695124`*^9, 3.5691454653799143`*^9}, {3.5691523784970884`*^9, 3.569152451988817*^9}, { 3.569152629610729*^9, 3.5691526649915915`*^9}, 3.569170044088443*^9}], Cell[BoxData[ RowBox[{"-", "5241.86291165547`"}]], "Output", CellChangeTimes->{3.5744827597206435`*^9, 3.574483061066373*^9, 3.5744844284711742`*^9, 3.5744845013389025`*^9, 3.5744848884535823`*^9, 3.574485062066287*^9, 3.5744852091589456`*^9, 3.5744853032895107`*^9, 3.574491139472922*^9, 3.574491467494698*^9, 3.574491879803422*^9, 3.5744921224774485`*^9, 3.574492200134385*^9, 3.574492369831483*^9, 3.574492439906806*^9, 3.574492563053422*^9, 3.5744992470119576`*^9, 3.5744993050908594`*^9, 3.574499392185813*^9, 3.5744994991552005`*^9, 3.57449972100319*^9, 3.574500885844836*^9, 3.574500946310542*^9, 3.574501073154365*^9, 3.5745011376448784`*^9, 3.5745011695001345`*^9, 3.574501237251053*^9, 3.5745028452002754`*^9, 3.574503046627829*^9, 3.5745030964231167`*^9, 3.57526116540228*^9, 3.5752612346976013`*^9, 3.575261752384511*^9, 3.5752656906426277`*^9}] }, Open ]], Cell[CellGroupData[{ Cell[BoxData[ RowBox[{ RowBox[{"(*", " ", RowBox[{ RowBox[{ "protons", " ", "in", " ", "their", " ", "bonding", " ", "cloud"}], ",", " ", RowBox[{"distance", " ", RowBox[{"u2", "[", RowBox[{"[", RowBox[{"a", "[", RowBox[{"[", RowBox[{"i", ",", "1"}], "]"}], "]"}], "]"}], "]"}], " ", "to", " ", "cloud", " ", "center"}]}], " ", "*)"}], "\[IndentingNewLine]", RowBox[{ RowBox[{"For", "[", RowBox[{ RowBox[{"i", "=", RowBox[{"cw", "+", "1"}]}], ",", RowBox[{"i", "<", RowBox[{"nb", "+", "1"}]}], ",", RowBox[{"i", "++"}], ",", RowBox[{"Vne", "=", RowBox[{"Vne", "-", RowBox[{ RowBox[{"(", RowBox[{"3", "-", RowBox[{ RowBox[{"(", RowBox[{ RowBox[{"u2", "[", RowBox[{"[", RowBox[{"a", "[", RowBox[{"[", RowBox[{"i", ",", "1"}], "]"}], "]"}], "]"}], "]"}], "/", RowBox[{"a", "[", RowBox[{"[", RowBox[{"i", ",", "3"}], "]"}], "]"}]}], ")"}], "^", "2"}]}], ")"}], "/", RowBox[{"a", "[", RowBox[{"[", RowBox[{"i", ",", "3"}], "]"}], "]"}]}]}]}]}], "]"}], "\[IndentingNewLine]", "Vne"}]}]], "Input", CellChangeTimes->{{3.5692316245917215`*^9, 3.5692316336397376`*^9}}], Cell[BoxData[ RowBox[{"-", "5271.662328810894`"}]], "Output", CellChangeTimes->{3.5744827597362432`*^9, 3.574483061066373*^9, 3.5744844284867744`*^9, 3.5744845025557046`*^9, 3.5744849021816063`*^9, 3.5744850634078894`*^9, 3.574485210562948*^9, 3.5744853047247133`*^9, 3.574491141703726*^9, 3.5744914695383015`*^9, 3.5744918818158255`*^9, 3.574492123912651*^9, 3.5744922002123847`*^9, 3.574492369847083*^9, 3.574492439922406*^9, 3.574492563053422*^9, 3.5744992470275574`*^9, 3.5744993050908594`*^9, 3.574499392185813*^9, 3.5744994991552005`*^9, 3.5744997210187902`*^9, 3.574500885860436*^9, 3.574500946310542*^9, 3.574501073169965*^9, 3.5745011376448784`*^9, 3.5745011695001345`*^9, 3.574501237266653*^9, 3.574502845215875*^9, 3.574503046643429*^9, 3.5745030964387164`*^9, 3.57526116541788*^9, 3.5752612346976013`*^9, 3.575261752384511*^9, 3.575265690658228*^9}] }, Open ]], Cell[CellGroupData[{ Cell[BoxData[ RowBox[{ RowBox[{"(*", " ", RowBox[{"nucleus", "-", "nucleus"}], " ", "*)"}], "\[IndentingNewLine]", RowBox[{ RowBox[{"For", "[", RowBox[{ RowBox[{"i", "=", "1"}], ",", RowBox[{"i", "<", "n"}], ",", RowBox[{"i", "++"}], ",", "\[IndentingNewLine]", RowBox[{"For", "[", RowBox[{ RowBox[{"j", "=", RowBox[{"i", "+", "1"}]}], ",", RowBox[{"j", "<", RowBox[{"n", "+", "1"}]}], ",", RowBox[{"j", "++"}], ",", RowBox[{"Vnn", "=", RowBox[{"Vnn", "+", RowBox[{ RowBox[{"cn", "[", RowBox[{"[", "i", "]"}], "]"}], "*", RowBox[{ RowBox[{"cn", "[", RowBox[{"[", "j", "]"}], "]"}], "/", RowBox[{"dc", "[", RowBox[{"[", RowBox[{"i", ",", "j"}], "]"}], "]"}]}]}]}]}]}], "]"}]}], "]"}], "\[IndentingNewLine]", "Vnn"}]}]], "Input", CellChangeTimes->{{3.5688982251756487`*^9, 3.5688986440675845`*^9}, { 3.5688986873108606`*^9, 3.56889871560931*^9}, {3.5688987970414534`*^9, 3.5688988526711507`*^9}, {3.568898887147211*^9, 3.568898888644814*^9}, { 3.5688989206248703`*^9, 3.568899041759083*^9}, {3.5688990876855636`*^9, 3.568899258349863*^9}, 3.568899300267137*^9, {3.568899351326027*^9, 3.5688993831032825`*^9}, {3.5688994370481772`*^9, 3.568899468217032*^9}, { 3.5688995813016305`*^9, 3.5688997165538683`*^9}, {3.5688998495129013`*^9, 3.568899932364647*^9}, {3.568899967667509*^9, 3.568900024529609*^9}, { 3.5689000794261055`*^9, 3.568900136257005*^9}, {3.5689001767858763`*^9, 3.56890020149632*^9}, {3.568902068726*^9, 3.568902074139209*^9}, 3.56890216040736*^9, 3.568902344113283*^9, {3.5689024237982235`*^9, 3.56890243907065*^9}, 3.5689025770684924`*^9, {3.568910195129884*^9, 3.5689102262831383`*^9}, {3.5689126851126575`*^9, 3.5689126875306616`*^9}, {3.5690878255169816`*^9, 3.569087857185037*^9}, { 3.5691452963224173`*^9, 3.569145370484948*^9}, {3.5691454640695124`*^9, 3.5691454653799143`*^9}, {3.5691523784970884`*^9, 3.569152451988817*^9}, { 3.569152629610729*^9, 3.5691526609667845`*^9}, 3.5691527650033674`*^9, { 3.5691528050174375`*^9, 3.5691528220994673`*^9}, {3.5691528694611506`*^9, 3.5691529180864363`*^9}, {3.5691531888249116`*^9, 3.569153192974519*^9}, 3.569153245359411*^9, {3.5691532970111017`*^9, 3.5691533046239147`*^9}, { 3.5691708905147295`*^9, 3.56917090235515*^9}, {3.5691714357512875`*^9, 3.569171449775712*^9}, 3.56917197825784*^9}], Cell[BoxData["1522.769829902488`"], "Output", CellChangeTimes->{3.5744827597518435`*^9, 3.574483061081973*^9, 3.5744844285023746`*^9, 3.5744845025869045`*^9, 3.5744849022128067`*^9, 3.5744850640006905`*^9, 3.5744852107345486`*^9, 3.5744853048183136`*^9, 3.574491141719326*^9, 3.5744914695539017`*^9, 3.574491883875029*^9, 3.574492123990651*^9, 3.574492200274785*^9, 3.574492369847083*^9, 3.574492439922406*^9, 3.574492563069022*^9, 3.5744992470275574`*^9, 3.5744993051064596`*^9, 3.574499392201413*^9, 3.5744994991708007`*^9, 3.5744997210343904`*^9, 3.574500885860436*^9, 3.5745009463261423`*^9, 3.574501073169965*^9, 3.5745011376604786`*^9, 3.574501169515734*^9, 3.5745012372822533`*^9, 3.574502845231475*^9, 3.574503046643429*^9, 3.5745030964387164`*^9, 3.5752611654334803`*^9, 3.5752612347132015`*^9, 3.5752617524001107`*^9, 3.575265690658228*^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.8022074335315`"], "Output", CellChangeTimes->{3.5744827597518435`*^9, 3.574483061097573*^9, 3.5744844285023746`*^9, 3.574484502618105*^9, 3.5744849022440066`*^9, 3.5744850640786905`*^9, 3.5744852108749485`*^9, 3.574485304911914*^9, 3.5744911417661257`*^9, 3.5744914695851016`*^9, 3.5744918871822352`*^9, 3.5744921240062513`*^9, 3.5744922002903852`*^9, 3.574492369862683*^9, 3.574492439938006*^9, 3.574492563069022*^9, 3.5744992470431576`*^9, 3.57449930512206*^9, 3.574499392217013*^9, 3.5744994991864004`*^9, 3.5744997210343904`*^9, 3.5745008858760357`*^9, 3.5745009463417425`*^9, 3.574501073185565*^9, 3.5745011376760783`*^9, 3.5745011695313344`*^9, 3.5745012372822533`*^9, 3.574502845231475*^9, 3.574503046659029*^9, 3.574503096454316*^9, 3.5752611654334803`*^9, 3.5752612347288017`*^9, 3.575261752415711*^9, 3.575265690673828*^9}], Cell[BoxData["1522.769829902488`"], "Output", CellChangeTimes->{3.5744827597518435`*^9, 3.574483061097573*^9, 3.5744844285023746`*^9, 3.574484502618105*^9, 3.5744849022440066`*^9, 3.5744850640786905`*^9, 3.5744852108749485`*^9, 3.574485304911914*^9, 3.5744911417661257`*^9, 3.5744914695851016`*^9, 3.5744918871822352`*^9, 3.5744921240062513`*^9, 3.5744922002903852`*^9, 3.574492369862683*^9, 3.574492439938006*^9, 3.574492563069022*^9, 3.5744992470431576`*^9, 3.57449930512206*^9, 3.574499392217013*^9, 3.5744994991864004`*^9, 3.5744997210343904`*^9, 3.5745008858760357`*^9, 3.5745009463417425`*^9, 3.574501073185565*^9, 3.5745011376760783`*^9, 3.5745011695313344`*^9, 3.5745012372822533`*^9, 3.574502845231475*^9, 3.574503046659029*^9, 3.574503096454316*^9, 3.5752611654334803`*^9, 3.5752612347288017`*^9, 3.575261752415711*^9, 3.575265690673828*^9}], Cell[BoxData[ RowBox[{"-", "5271.662328810894`"}]], "Output", CellChangeTimes->{3.5744827597518435`*^9, 3.574483061097573*^9, 3.5744844285023746`*^9, 3.574484502618105*^9, 3.5744849022440066`*^9, 3.5744850640786905`*^9, 3.5744852108749485`*^9, 3.574485304911914*^9, 3.5744911417661257`*^9, 3.5744914695851016`*^9, 3.5744918871822352`*^9, 3.5744921240062513`*^9, 3.5744922002903852`*^9, 3.574492369862683*^9, 3.574492439938006*^9, 3.574492563069022*^9, 3.5744992470431576`*^9, 3.57449930512206*^9, 3.574499392217013*^9, 3.5744994991864004`*^9, 3.5744997210343904`*^9, 3.5745008858760357`*^9, 3.5745009463417425`*^9, 3.574501073185565*^9, 3.5745011376760783`*^9, 3.5745011695313344`*^9, 3.5745012372822533`*^9, 3.574502845231475*^9, 3.574503046659029*^9, 3.574503096454316*^9, 3.5752611654334803`*^9, 3.5752612347288017`*^9, 3.575261752415711*^9, 3.575265690673828*^9}], Cell[BoxData["10.542857142857144`"], "Output", CellChangeTimes->{3.5744827597518435`*^9, 3.574483061097573*^9, 3.5744844285023746`*^9, 3.574484502618105*^9, 3.5744849022440066`*^9, 3.5744850640786905`*^9, 3.5744852108749485`*^9, 3.574485304911914*^9, 3.5744911417661257`*^9, 3.5744914695851016`*^9, 3.5744918871822352`*^9, 3.5744921240062513`*^9, 3.5744922002903852`*^9, 3.574492369862683*^9, 3.574492439938006*^9, 3.574492563069022*^9, 3.5744992470431576`*^9, 3.57449930512206*^9, 3.574499392217013*^9, 3.5744994991864004`*^9, 3.5744997210343904`*^9, 3.5745008858760357`*^9, 3.5745009463417425`*^9, 3.574501073185565*^9, 3.5745011376760783`*^9, 3.5745011695313344`*^9, 3.5745012372822533`*^9, 3.574502845231475*^9, 3.574503046659029*^9, 3.574503096454316*^9, 3.5752611654334803`*^9, 3.5752612347288017`*^9, 3.575261752415711*^9, 3.575265690673828*^9}], Cell[BoxData["21.08571428571429`"], "Output", CellChangeTimes->{3.5744827597518435`*^9, 3.574483061097573*^9, 3.5744844285023746`*^9, 3.574484502618105*^9, 3.5744849022440066`*^9, 3.5744850640786905`*^9, 3.5744852108749485`*^9, 3.574485304911914*^9, 3.5744911417661257`*^9, 3.5744914695851016`*^9, 3.5744918871822352`*^9, 3.5744921240062513`*^9, 3.5744922002903852`*^9, 3.574492369862683*^9, 3.574492439938006*^9, 3.574492563069022*^9, 3.5744992470431576`*^9, 3.57449930512206*^9, 3.574499392217013*^9, 3.5744994991864004`*^9, 3.5744997210343904`*^9, 3.5745008858760357`*^9, 3.5745009463417425`*^9, 3.574501073185565*^9, 3.5745011376760783`*^9, 3.5745011695313344`*^9, 3.5745012372822533`*^9, 3.574502845231475*^9, 3.574503046659029*^9, 3.574503096454316*^9, 3.5752611654334803`*^9, 3.5752612347288017`*^9, 3.575261752415711*^9, 3.575265690673828*^9}], Cell[BoxData["14.222222222222221`"], "Output", CellChangeTimes->{3.5744827597518435`*^9, 3.574483061097573*^9, 3.5744844285023746`*^9, 3.574484502618105*^9, 3.5744849022440066`*^9, 3.5744850640786905`*^9, 3.5744852108749485`*^9, 3.574485304911914*^9, 3.5744911417661257`*^9, 3.5744914695851016`*^9, 3.5744918871822352`*^9, 3.5744921240062513`*^9, 3.5744922002903852`*^9, 3.574492369862683*^9, 3.574492439938006*^9, 3.574492563069022*^9, 3.5744992470431576`*^9, 3.57449930512206*^9, 3.574499392217013*^9, 3.5744994991864004`*^9, 3.5744997210343904`*^9, 3.5745008858760357`*^9, 3.5745009463417425`*^9, 3.574501073185565*^9, 3.5745011376760783`*^9, 3.5745011695313344`*^9, 3.5745012372822533`*^9, 3.574502845231475*^9, 3.574503046659029*^9, 3.574503096454316*^9, 3.5752611654334803`*^9, 3.5752612347288017`*^9, 3.575261752415711*^9, 3.575265690673828*^9}], Cell[BoxData["4.347781278904694`"], "Output", CellChangeTimes->{3.5744827597518435`*^9, 3.574483061097573*^9, 3.5744844285023746`*^9, 3.574484502618105*^9, 3.5744849022440066`*^9, 3.5744850640786905`*^9, 3.5744852108749485`*^9, 3.574485304911914*^9, 3.5744911417661257`*^9, 3.5744914695851016`*^9, 3.5744918871822352`*^9, 3.5744921240062513`*^9, 3.5744922002903852`*^9, 3.574492369862683*^9, 3.574492439938006*^9, 3.574492563069022*^9, 3.5744992470431576`*^9, 3.57449930512206*^9, 3.574499392217013*^9, 3.5744994991864004`*^9, 3.5744997210343904`*^9, 3.5745008858760357`*^9, 3.5745009463417425`*^9, 3.574501073185565*^9, 3.5745011376760783`*^9, 3.5745011695313344`*^9, 3.5745012372822533`*^9, 3.574502845231475*^9, 3.574503046659029*^9, 3.574503096454316*^9, 3.5752611654334803`*^9, 3.5752612347288017`*^9, 3.575261752415711*^9, 3.575265690673828*^9}], Cell[BoxData[ RowBox[{"-", "1901.0902914748747`"}]], "Output", CellChangeTimes->{3.5744827597518435`*^9, 3.574483061097573*^9, 3.5744844285023746`*^9, 3.574484502618105*^9, 3.5744849022440066`*^9, 3.5744850640786905`*^9, 3.5744852108749485`*^9, 3.574485304911914*^9, 3.5744911417661257`*^9, 3.5744914695851016`*^9, 3.5744918871822352`*^9, 3.5744921240062513`*^9, 3.5744922002903852`*^9, 3.574492369862683*^9, 3.574492439938006*^9, 3.574492563069022*^9, 3.5744992470431576`*^9, 3.57449930512206*^9, 3.574499392217013*^9, 3.5744994991864004`*^9, 3.5744997210343904`*^9, 3.5745008858760357`*^9, 3.5745009463417425`*^9, 3.574501073185565*^9, 3.5745011376760783`*^9, 3.5745011695313344`*^9, 3.5745012372822533`*^9, 3.574502845231475*^9, 3.574503046659029*^9, 3.574503096454316*^9, 3.5752611654334803`*^9, 3.5752612347288017`*^9, 3.575261752415711*^9, 3.575265690673828*^9}], Cell[BoxData["950.8594302345708`"], "Output", CellChangeTimes->{3.5744827597518435`*^9, 3.574483061097573*^9, 3.5744844285023746`*^9, 3.574484502618105*^9, 3.5744849022440066`*^9, 3.5744850640786905`*^9, 3.5744852108749485`*^9, 3.574485304911914*^9, 3.5744911417661257`*^9, 3.5744914695851016`*^9, 3.5744918871822352`*^9, 3.5744921240062513`*^9, 3.5744922002903852`*^9, 3.574492369862683*^9, 3.574492439938006*^9, 3.574492563069022*^9, 3.5744992470431576`*^9, 3.57449930512206*^9, 3.574499392217013*^9, 3.5744994991864004`*^9, 3.5744997210343904`*^9, 3.5745008858760357`*^9, 3.5745009463417425`*^9, 3.574501073185565*^9, 3.5745011376760783`*^9, 3.5745011695313344`*^9, 3.5745012372822533`*^9, 3.574502845231475*^9, 3.574503046659029*^9, 3.574503096454316*^9, 3.5752611654334803`*^9, 3.5752612347288017`*^9, 3.575261752415711*^9, 3.575265690673828*^9}], Cell[BoxData["1.9993389464580356`"], "Output", CellChangeTimes->{3.5744827597518435`*^9, 3.574483061097573*^9, 3.5744844285023746`*^9, 3.574484502618105*^9, 3.5744849022440066`*^9, 3.5744850640786905`*^9, 3.5744852108749485`*^9, 3.574485304911914*^9, 3.5744911417661257`*^9, 3.5744914695851016`*^9, 3.5744918871822352`*^9, 3.5744921240062513`*^9, 3.5744922002903852`*^9, 3.574492369862683*^9, 3.574492439938006*^9, 3.574492563069022*^9, 3.5744992470431576`*^9, 3.57449930512206*^9, 3.574499392217013*^9, 3.5744994991864004`*^9, 3.5744997210343904`*^9, 3.5745008858760357`*^9, 3.5745009463417425`*^9, 3.574501073185565*^9, 3.5745011376760783`*^9, 3.5745011695313344`*^9, 3.5745012372822533`*^9, 3.574502845231475*^9, 3.574503046659029*^9, 3.574503096454316*^9, 3.5752611654334803`*^9, 3.5752612347288017`*^9, 3.575261752415711*^9, 3.575265690673828*^9}], Cell[BoxData[ RowBox[{"-", "950.2308612403039`"}]], "Output", CellChangeTimes->{3.5744827597518435`*^9, 3.574483061097573*^9, 3.5744844285023746`*^9, 3.574484502618105*^9, 3.5744849022440066`*^9, 3.5744850640786905`*^9, 3.5744852108749485`*^9, 3.574485304911914*^9, 3.5744911417661257`*^9, 3.5744914695851016`*^9, 3.5744918871822352`*^9, 3.5744921240062513`*^9, 3.5744922002903852`*^9, 3.574492369862683*^9, 3.574492439938006*^9, 3.574492563069022*^9, 3.5744992470431576`*^9, 3.57449930512206*^9, 3.574499392217013*^9, 3.5744994991864004`*^9, 3.5744997210343904`*^9, 3.5745008858760357`*^9, 3.5745009463417425`*^9, 3.574501073185565*^9, 3.5745011376760783`*^9, 3.5745011695313344`*^9, 3.5745012372822533`*^9, 3.574502845231475*^9, 3.574503046659029*^9, 3.574503096454316*^9, 3.5752611654334803`*^9, 3.5752612347288017`*^9, 3.575261752415711*^9, 3.575265690673828*^9}] }, Open ]] }, WindowSize->{816, 819}, WindowMargins->{{9, Automatic}, {Automatic, 2}}, 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, 1853, 31, 52, "Input"], Cell[CellGroupData[{ Cell[2435, 55, 1125, 22, 92, "Input"], Cell[3563, 79, 5742, 96, 313, "Output"], Cell[9308, 177, 4382, 100, 506, "Output"] }, Open ]], Cell[CellGroupData[{ Cell[13727, 282, 762, 13, 31, "Input"], Cell[14492, 297, 1498, 22, 31, "Output"] }, Open ]], Cell[CellGroupData[{ Cell[16027, 324, 955, 14, 31, "Input"], Cell[16985, 340, 840, 12, 31, "Output"] }, Open ]], Cell[CellGroupData[{ Cell[17862, 357, 1560, 29, 31, "Input"], Cell[19425, 388, 1480, 22, 31, "Output"] }, Open ]], Cell[20920, 413, 1419, 23, 31, "Input"], Cell[22342, 438, 1592, 29, 31, "Input"], Cell[CellGroupData[{ Cell[23959, 471, 1234, 18, 31, "Input"], Cell[25196, 491, 3053, 78, 92, "Output"] }, Open ]], Cell[CellGroupData[{ Cell[28286, 574, 697, 14, 31, "Input"], Cell[28986, 590, 1251, 19, 52, "Output"] }, Open ]], Cell[30252, 612, 908, 24, 31, "Input"], Cell[CellGroupData[{ Cell[31185, 640, 5811, 124, 192, "Input"], Cell[36999, 766, 1372, 21, 72, "Output"], Cell[38374, 789, 1374, 21, 72, "Output"] }, Open ]], Cell[CellGroupData[{ Cell[39785, 815, 568, 13, 31, "Input"], Cell[40356, 830, 1499, 22, 31, "Output"] }, Open ]], Cell[CellGroupData[{ Cell[41892, 857, 470, 8, 31, "Input"], Cell[42365, 867, 881, 12, 31, "Output"] }, Open ]], Cell[CellGroupData[{ Cell[43283, 884, 1401, 38, 92, "Input"], Cell[44687, 924, 1294, 20, 52, "Output"] }, Open ]], Cell[CellGroupData[{ Cell[46018, 949, 827, 23, 92, "Input"], Cell[46848, 974, 863, 12, 31, "Output"], Cell[47714, 988, 863, 12, 31, "Output"] }, Open ]], Cell[48592, 1003, 1824, 35, 72, "Input"], Cell[CellGroupData[{ Cell[50441, 1042, 4977, 123, 252, "Input"], Cell[55421, 1167, 8928, 172, 370, "Output"] }, Open ]], Cell[CellGroupData[{ Cell[64386, 1344, 1252, 18, 31, "Input"], Cell[65641, 1364, 24457, 608, 304, "Output"] }, Open ]], Cell[CellGroupData[{ Cell[90135, 1977, 2100, 42, 72, "Input"], Cell[92238, 2021, 26422, 382, 521, "Output"] }, Open ]], Cell[118675, 2406, 1331, 36, 72, "Input"], Cell[CellGroupData[{ Cell[120031, 2446, 5077, 91, 92, "Input"], Cell[125111, 2539, 8723, 136, 521, "Output"] }, Open ]], Cell[CellGroupData[{ Cell[133871, 2680, 2570, 53, 132, "Input"], Cell[136444, 2735, 869, 12, 31, "Output"] }, Open ]], Cell[CellGroupData[{ Cell[137350, 2752, 2598, 53, 92, "Input"], Cell[139951, 2807, 1001, 16, 31, "Output"] }, Open ]], Cell[140967, 2826, 10233, 208, 232, "Input"], Cell[CellGroupData[{ Cell[151225, 3038, 1990, 42, 72, "Input"], Cell[153218, 3082, 953, 14, 31, "Output"], Cell[154174, 3098, 949, 14, 31, "Output"] }, Open ]], Cell[CellGroupData[{ Cell[155160, 3117, 623, 15, 52, "Input"], Cell[155786, 3134, 1017, 16, 31, "Output"], Cell[156806, 3152, 951, 14, 31, "Output"] }, Open ]], Cell[CellGroupData[{ Cell[157794, 3171, 2789, 54, 72, "Input"], Cell[160586, 3227, 949, 14, 31, "Output"], Cell[161538, 3243, 944, 14, 31, "Output"] }, Open ]], Cell[CellGroupData[{ Cell[162519, 3262, 3698, 81, 152, "Input"], Cell[166220, 3345, 1427, 22, 72, "Output"] }, Open ]], Cell[167662, 3370, 2072, 49, 112, "Input"], Cell[169737, 3421, 561, 12, 52, "Input"], Cell[170301, 3435, 2148, 49, 92, "Input"], Cell[172452, 3486, 2452, 56, 112, "Input"], Cell[174907, 3544, 1759, 41, 92, "Input"], Cell[CellGroupData[{ Cell[176691, 3589, 923, 20, 31, "Input"], Cell[177617, 3611, 887, 12, 31, "Output"] }, Open ]], Cell[CellGroupData[{ Cell[178541, 3628, 711, 18, 31, "Input"], Cell[179255, 3648, 884, 12, 31, "Output"] }, Open ]], Cell[CellGroupData[{ Cell[180176, 3665, 507, 10, 31, "Input"], Cell[180686, 3677, 892, 12, 31, "Output"] }, Open ]], Cell[CellGroupData[{ Cell[181615, 3694, 823, 23, 31, "Input"], Cell[182441, 3719, 870, 12, 31, "Output"] }, Open ]], Cell[CellGroupData[{ Cell[183348, 3736, 204, 4, 31, "Input"], Cell[183555, 3742, 878, 12, 31, "Output"] }, Open ]], Cell[184448, 3757, 1975, 34, 72, "Input"], Cell[CellGroupData[{ Cell[186448, 3795, 4534, 109, 212, "Input"], Cell[190985, 3906, 944, 14, 31, "Output"], Cell[191932, 3922, 4125, 125, 506, "Output"] }, Open ]], Cell[196072, 4050, 10758, 194, 172, "Input"], Cell[206833, 4246, 11008, 295, 1312, "Input"], Cell[217844, 4543, 3637, 73, 52, "Input"], Cell[221484, 4618, 3178, 52, 72, "Input"], Cell[224665, 4672, 12924, 319, 1292, "Input"], Cell[237592, 4993, 2966, 42, 49, "Text"], Cell[240561, 5037, 5699, 114, 232, "Input"], Cell[246263, 5153, 20155, 506, 1532, "Input"], Cell[CellGroupData[{ Cell[266443, 5663, 4746, 77, 92, "Input"], Cell[271192, 5742, 30139, 545, 356, "Output"] }, Open ]], Cell[301346, 6290, 5088, 94, 52, "Input"], Cell[306437, 6386, 5457, 109, 212, "Input"], Cell[311897, 6497, 18078, 454, 1292, "Input"], Cell[CellGroupData[{ Cell[330000, 6955, 3146, 55, 92, "Input"], Cell[333149, 7012, 20765, 373, 171, "Output"] }, Open ]], Cell[353929, 7388, 3125, 59, 92, "Input"], Cell[CellGroupData[{ Cell[357079, 7451, 939, 17, 72, "Input"], Cell[358021, 7470, 3877, 83, 192, "Output"], Cell[361901, 7555, 864, 12, 31, "Output"], Cell[362768, 7569, 864, 12, 31, "Output"] }, Open ]], Cell[363647, 7584, 10201, 233, 192, "Input"], Cell[373851, 7819, 6427, 103, 72, "Input"], Cell[380281, 7924, 10215, 234, 192, "Input"], Cell[390499, 8160, 5925, 93, 92, "Input"], Cell[396427, 8255, 11884, 209, 192, "Input"], Cell[408314, 8466, 12810, 228, 192, "Input"], Cell[CellGroupData[{ Cell[421149, 8698, 9785, 140, 92, "Input"], Cell[430937, 8840, 22337, 510, 375, "Output"] }, Open ]], Cell[CellGroupData[{ Cell[453311, 9355, 747, 19, 92, "Input"], Cell[454061, 9376, 22357, 510, 375, "Output"] }, Open ]], Cell[CellGroupData[{ Cell[476455, 9891, 9646, 136, 92, "Input"], Cell[486104, 10029, 14720, 289, 370, "Output"] }, Open ]], Cell[CellGroupData[{ Cell[500861, 10323, 4708, 101, 172, "Input"], Cell[505572, 10426, 865, 12, 31, "Output"] }, Open ]], Cell[CellGroupData[{ Cell[506474, 10443, 2499, 47, 92, "Input"], Cell[508976, 10492, 865, 12, 31, "Output"] }, Open ]], Cell[509856, 10507, 1841, 29, 52, "Input"], Cell[CellGroupData[{ Cell[511722, 10540, 5050, 110, 192, "Input"], Cell[516775, 10652, 5515, 152, 1286, "Output"], Cell[522293, 10806, 854, 12, 31, "Output"] }, Open ]], Cell[CellGroupData[{ Cell[523184, 10823, 6747, 130, 132, "Input"], Cell[529934, 10955, 867, 12, 31, "Output"], Cell[530804, 10969, 867, 12, 31, "Output"] }, Open ]], Cell[CellGroupData[{ Cell[531708, 10986, 632, 18, 52, "Input"], Cell[532343, 11006, 881, 13, 31, "Output"], Cell[533227, 11021, 864, 12, 31, "Output"] }, Open ]], Cell[CellGroupData[{ Cell[534128, 11038, 4670, 80, 112, "Input"], Cell[538801, 11120, 865, 12, 31, "Output"] }, Open ]], Cell[539681, 11135, 1863, 27, 31, "Input"], Cell[CellGroupData[{ Cell[541569, 11166, 2963, 56, 112, "Input"], Cell[544535, 11224, 885, 12, 31, "Output"] }, Open ]], Cell[545435, 11239, 1293, 30, 92, "Input"], Cell[CellGroupData[{ Cell[546753, 11273, 3730, 84, 152, "Input"], Cell[550486, 11359, 886, 12, 31, "Output"] }, Open ]], Cell[CellGroupData[{ Cell[551409, 11376, 499, 15, 52, "Input"], Cell[551911, 11393, 890, 13, 31, "Output"] }, Open ]], Cell[552816, 11409, 1381, 21, 31, "Input"], Cell[CellGroupData[{ Cell[554222, 11434, 1709, 32, 52, "Input"], Cell[555934, 11468, 892, 13, 31, "Output"] }, Open ]], Cell[CellGroupData[{ Cell[556863, 11486, 1415, 43, 72, "Input"], Cell[558281, 11531, 896, 13, 31, "Output"] }, Open ]], Cell[CellGroupData[{ Cell[559214, 11549, 2550, 50, 92, "Input"], Cell[561767, 11601, 884, 12, 31, "Output"] }, Open ]], Cell[CellGroupData[{ Cell[562688, 11618, 3652, 79, 252, "Input"], Cell[566343, 11699, 886, 12, 31, "Output"], Cell[567232, 11713, 885, 12, 31, "Output"], Cell[568120, 11727, 902, 13, 31, "Output"], Cell[569025, 11742, 886, 12, 31, "Output"], Cell[569914, 11756, 885, 12, 31, "Output"], Cell[570802, 11770, 886, 12, 31, "Output"], Cell[571691, 11784, 885, 12, 31, "Output"], Cell[572579, 11798, 903, 13, 31, "Output"], Cell[573485, 11813, 885, 12, 31, "Output"], Cell[574373, 11827, 886, 12, 31, "Output"], Cell[575262, 11841, 902, 13, 31, "Output"] }, Open ]] } ] *) (* End of internal cache information *)