(* 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[ 513184, 11183] NotebookOptionsPosition[ 505375, 10940] NotebookOutlinePosition[ 505875, 10960] CellTagsIndexPosition[ 505832, 10957] WindowFrame->Normal*) (* Beginning of Notebook Content *) Notebook[{ Cell[CellGroupData[{ Cell[BoxData[ RowBox[{ RowBox[{"(*", " ", RowBox[{ RowBox[{ "Kimball", " ", "model", " ", "and", " ", "energy", " ", "derived", " ", "from", " ", "Wolfram", " ", "data", " ", "source"}], ",", " ", RowBox[{"ES", " ", "05", " ", "April", " ", "2013"}]}], " ", "*)"}], " ", "\[IndentingNewLine]", RowBox[{ RowBox[{ RowBox[{"Clear", "[", RowBox[{ "tw", ",", "n2", ",", "n", ",", "nb", ",", "bc", ",", "bh", ",", "u", ",", "u1", ",", "u2", ",", "Vee", ",", "Vne", ",", "Vnn"}], "]"}], ";"}], "\[IndentingNewLine]", RowBox[{"ChemicalData", "[", RowBox[{"\"\\"", ",", "\"\\""}], "]"}]}]}]], "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.574135962521366*^9, 3.57413597038378*^9}, {3.574136026840279*^9, 3.574136036387496*^9}}], Cell[BoxData[ Graphics3DBox[ {AbsoluteThickness[3], EdgeForm[None], Specularity[ GrayLevel[1], 100], GraphicsComplex3DBox[CompressedData[" 1:eJwtVQtQlFUU3rAMzXzFIKOgoMZoikoSYIocHvLwBQu7PNZt2V32xe4CC7tA oqaOgTpqSI2p+RpRxjStphhTEz2ZmYOPzDKHUTJzSE3xkYYomv33ftyZ3Tv3 3/ufc77HORtmLs2y+qlUqrnKp5fy6XtxhyduqJfkvkdH5oF5U5q6tDyxbXTv pe1zuO7Yv2P0z100WayplXy0/+bJDQGhfLU64PPU/EJWvq9W9yumOBGgeS5f yVizvqSvhs6cVlayjT89MStmZaua498yHEp/qmb/vcE6S/d4Wuw87PsoKJIu PX7PefhhLCUa28+N3JTJp7bP2P+gQ8NpIsGPqTyi5pb6wFkL7X/w7Nd3B2nI JtZZE3W8emTSRmcY7fQomZfpqEwUsGQe9rxCajpZeWRbNfGh9H5+40bkkKy3 yEUhOsvUKxnjELfTya0FlRnDA4MQZ1QRNyjpn/kyWNBwMjqT5fNexJ1j9HXH Wj04jzPjfraDBG19Sx00U0mzPFzD3yt01f1jpyGtZx9ljxrPIs3wC1a6rWw1 l4yoT2XE8ykekvcbHPzVlru7TrjepAWC0DdsyHfBRILegA9cpBIrz827LydH nNlH8TL/KzaS+uR6oMNaL73ee+m6pFOxOGveoSwl7a0QH+IVG/mhQuPNvxJw tlbRIiFMpJYGL+OW7esS4IOWcu7Kvta4KSqZJE/HPCzrv1vNkv8UPetF4tMG nHOqWeo3bBr4uVbMPz1SAlzLo5iVCcZ2VSL8FJfHwGPnDSVKRl0q6lxtpz33 z88xD5wAnyW5Sai05ptoGisSBVmwn7SD9wcOErDUQfn8yUZlPbYAp9pBEYLI 2lj4bJUWfBp8dGehAvTJXJZxYsvgryFqlr6anwN+Dzj5h9Avyx0/R7GMF2YE zve9OL9gIfleTBJJ/g5WgJfPLNCpxE2ynptlNEUYsC4BeH830ZFtQye27ezB 31AJXn+zI06Ii2X+P4qBo96Eejw++GVFMUtehjlJ8hVsBa6scpa7XxX6r00P XxuM6JOtPvxudnCKAHojDfEbF5Hsx9WzSOp8PJykH2dUIf5tKxlE4/TKRR8H l4OHfjr4I7AS/s1fAj49FpbPD+XD/1sXs5RjwyTw093zfnIpePrTTDn9FaUG aIGbKih5lft6d0cuyT6Y9zb//UVunqc9Dvq+VIT+TffyjlEHny6/lwI+ZvXo 3+EgjW/0+uf+UfBjrRP5NttJNfJZZ0VTBvyz14R5drSE/lPaIDwymmUdqTPh jw8NwDPGyLOFcRvT4LcYG3dd7tNZ0DydZZ/7G6HbfBcLG7eMnUOjIxXHDQ0E brcG9/xMfG+XMgDrU1FnhI0EbTW/pJKg9bS/nXSJ02+0uifSdEHgvp75cNwM nsNtJNrn3J5MniYG64tG+KutiFrEnGyehjl8QYt6+pTRt2LeXU9EHU0l/HFn 74IN4+PZ66jvWDggidYK/BedvGVQY/N360Pgj5Ea4J7Q46fAQgoVAm/tg7gK 79L3rkLwaHRSrQASVgKf3ZnN0id6E2Uq439wth54i724l2+hKKFXnRW+GVsK Xr82YS4OK0M/33NjHnRZobfWAV7iPcifXkHCraEr1KjXv4CkXAYf8DosuPdy MOLXVJOQ9+4CNcl5nhKDeNoqUsT335topOvdu++fP5OBOrzlLMbG1Ney0Adu L/g4twh9O9ME3yXpUeeThSznZ350z/+Jh/8HggpxnQ== "], { {RGBColor[0.65, 0.7, 0.7], SphereBox[26, 24.], SphereBox[27, 24.], SphereBox[28, 24.], SphereBox[29, 24.], SphereBox[30, 24.], SphereBox[31, 24.], SphereBox[32, 24.], SphereBox[33, 24.], SphereBox[34, 24.], SphereBox[35, 24.], SphereBox[36, 24.], SphereBox[37, 24.], SphereBox[38, 24.], SphereBox[39, 24.], SphereBox[40, 24.], SphereBox[41, 24.], SphereBox[42, 24.], SphereBox[43, 24.], SphereBox[44, 24.], SphereBox[45, 24.], SphereBox[46, 24.], SphereBox[47, 24.]}, {RGBColor[0.4, 0.4, 0.4], SphereBox[5, 34.], SphereBox[6, 34.], SphereBox[7, 34.], SphereBox[8, 34.], SphereBox[9, 34.], SphereBox[10, 34.], SphereBox[11, 34.], SphereBox[12, 34.], SphereBox[13, 34.], SphereBox[14, 34.], SphereBox[15, 34.], SphereBox[16, 34.], SphereBox[17, 34.], SphereBox[18, 34.], SphereBox[19, 34.], SphereBox[20, 34.], SphereBox[21, 34.], SphereBox[22, 34.], SphereBox[23, 34.], SphereBox[24, 34.], SphereBox[25, 34.]}, {RGBColor[0.291989, 0.437977, 0.888609], SphereBox[3, 32.], SphereBox[4, 32.]}, {RGBColor[0.800498, 0.201504, 0.192061], SphereBox[1, 31.], SphereBox[2, 31.]}, {RGBColor[0.65, 0.7, 0.7], CylinderBox[{57, 26}, 15.], CylinderBox[{58, 27}, 15.], CylinderBox[{59, 28}, 15.], CylinderBox[{60, 29}, 15.], CylinderBox[{61, 30}, 15.], CylinderBox[{62, 31}, 15.], CylinderBox[{63, 32}, 15.], CylinderBox[{64, 33}, 15.], CylinderBox[{65, 34}, 15.], CylinderBox[{66, 35}, 15.], CylinderBox[{67, 36}, 15.], CylinderBox[{68, 37}, 15.], CylinderBox[{69, 38}, 15.], CylinderBox[{70, 39}, 15.], CylinderBox[{71, 40}, 15.], CylinderBox[{72, 41}, 15.], CylinderBox[{73, 42}, 15.], CylinderBox[{74, 43}, 15.], CylinderBox[{75, 44}, 15.], CylinderBox[{76, 45}, 15.], CylinderBox[{77, 46}, 15.], CylinderBox[{78, 47}, 15.]}, {RGBColor[0.4, 0.4, 0.4], CylinderBox[{48, 14}, 15.], CylinderBox[{49, 22}, 15.], CylinderBox[{50, 19}, 15.], CylinderBox[{51, 7}, 15.], CylinderBox[{52, 13}, 15.], CylinderBox[{53, 16}, 15.], CylinderBox[{54, 6}, 15.], CylinderBox[{55, 17}, 15.], CylinderBox[{56, 19}, 15.], CylinderBox[{5, 6}, 15.], CylinderBox[{5, 7}, 15.], CylinderBox[{5, 11}, 15.], CylinderBox[{5, 12}, 15.], CylinderBox[{6, 8}, 15.], CylinderBox[{6, 57}, 15.], CylinderBox[{7, 10}, 15.], CylinderBox[{7, 58}, 15.], CylinderBox[{8, 9}, 15.], CylinderBox[{8, 14}, 15.], CylinderBox[{8, 59}, 15.], CylinderBox[{9, 10}, 15.], CylinderBox[{9, 15}, 15.], CylinderBox[{9, 60}, 15.], CylinderBox[{10, 61}, 15.], CylinderBox[{10, 62}, 15.], CylinderBox[{11, 13}, 15.], CylinderBox[{11, 63}, 15.], CylinderBox[{11, 64}, 15.], CylinderBox[{12, 17}, 15.], CylinderBox[{12, 21}, 15.], CylinderBox[{13, 65}, 15.], CylinderBox[{13, 66}, 15.], CylinderBox[{14, 18}, 15.], CylinderBox[{14, 67}, 15.], CylinderBox[{15, 16}, 15.], CylinderBox[{15, 20}, 15.], CylinderBox[{16, 68}, 15.], CylinderBox[{16, 69}, 15.], CylinderBox[{17, 23}, 15.], CylinderBox[{18, 19}, 15.], CylinderBox[{18, 70}, 15.], CylinderBox[{18, 71}, 15.], CylinderBox[{20, 22}, 15.], CylinderBox[{20, 72}, 15.], CylinderBox[{21, 24}, 15.], CylinderBox[{21, 73}, 15.], CylinderBox[{22, 74}, 15.], CylinderBox[{22, 75}, 15.], CylinderBox[{23, 25}, 15.], CylinderBox[{23, 76}, 15.], CylinderBox[{24, 25}, 15.], CylinderBox[{24, 77}, 15.], CylinderBox[{25, 78}, 15.]}, {RGBColor[0.291989, 0.437977, 0.888609], CylinderBox[{3, 51}, 15.], CylinderBox[{3, 52}, 15.], CylinderBox[{3, 53}, 15.], CylinderBox[{4, 54}, 15.], CylinderBox[{4, 55}, 15.], CylinderBox[{4, 56}, 15.]}, {RGBColor[0.800498, 0.201504, 0.192061], CylinderBox[{1, 48}, 15.], CylinderBox[{1, 49}, 15.], CylinderBox[{2, 50}, 15.]}}]}, Boxed->False, ImageSize->333.67071477644873`, Lighting->"Neutral", ViewPoint->{1.3, -2.4, -2.}]], "Output", CellChangeTimes->{3.574181428221597*^9, 3.5749278254289207`*^9, 3.5802185044995375`*^9}] }, Open ]], Cell[CellGroupData[{ Cell[BoxData[{ RowBox[{ 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.574135949807344*^9}], Cell[BoxData[ TagBox[ RowBox[{"(", "\[NoBreak]", GridBox[{ {"5.7757585464`", "2.0155817515999996`", RowBox[{"-", "1.6608045923599999`"}]}, { RowBox[{"-", "1.1299238671799998`"}], "4.2326082947999994`", RowBox[{"-", "6.721755382`"}]}, { RowBox[{"-", "0.151939639578`"}], RowBox[{"-", "2.9251068753999996`"}], "4.3915342513999995`"}, { RowBox[{"-", "1.1618035448`"}], "1.5148610533799998`", RowBox[{"-", "3.366546869`"}]}, { RowBox[{"-", "1.34924546674`"}], RowBox[{"-", "1.3595066789199999`"}], "0.27384019466`"}, {"0.32306755696`", "0.47160002055999994`", RowBox[{"-", "1.25523159824`"}]}, { RowBox[{"-", "1.58204081268`"}], RowBox[{"-", "0.8987536856`"}], "3.1456378996`"}, {"1.5169397519799999`", "2.6919146869999997`", "0.16456111953199998`"}, {"2.0042433956`", "2.0788875726`", "2.9247289302`"}, { RowBox[{"-", "0.6228158950799999`"}], "1.6721618456199998`", "4.1439801454`"}, { RowBox[{"-", "0.25806098256`"}], RowBox[{"-", "4.0763279546`"}], "0.113791740816`"}, { RowBox[{"-", "3.8006169312`"}], RowBox[{"-", "1.18890221564`"}], RowBox[{"-", "1.2256006945599998`"}]}, { RowBox[{"-", "0.6052792378`"}], RowBox[{"-", "5.0948902686`"}], "2.7470946862`"}, {"3.6777847412`", "3.6938474122`", RowBox[{"-", "1.52315695052`"}]}, {"3.6203370708000002`", RowBox[{"-", "0.26586555094000003`"}], "3.3005954315999997`"}, {"2.5484844836000002`", RowBox[{"-", "2.4192272252`"}], "4.905161778199999`"}, { RowBox[{"-", "3.7242720008`"}], "0.34810642645999995`", RowBox[{"-", "3.3512400884`"}]}, {"2.6962610568`", "4.1657119944`", RowBox[{"-", "4.2849537049999995`"}]}, {"9.61870534`*^-6", "3.3329097462`", RowBox[{"-", "4.940877599599999`"}]}, {"5.915409297799999`", RowBox[{"-", "0.46853866444`"}], "2.2170265432`"}, { RowBox[{"-", "6.0824610761999995`"}], RowBox[{"-", "2.4836668818`"}], RowBox[{"-", "0.67659749704`"}]}, {"7.0743782536`", "1.60205301102`", "0.6645977369399999`"}, { RowBox[{"-", "5.6812722464`"}], "0.76365717386`", RowBox[{"-", "5.0676782142`"}]}, { RowBox[{"-", "8.1441521422`"}], RowBox[{"-", "2.137280106`"}], RowBox[{"-", "2.3279534593999998`"}]}, { RowBox[{"-", "7.963305363999999`"}], RowBox[{"-", "0.53112638956`"}], RowBox[{"-", "4.5187128111999995`"}]}, {"1.8813545138199999`", RowBox[{"-", "0.6804336408199999`"}], RowBox[{"-", "1.83229722686`"}]}, { RowBox[{"-", "3.5609996743999996`"}], RowBox[{"-", "0.8826721173400001`"}], "3.5600548113999997`"}, {"0.28406361232`", "4.272670486`", "0.42928905541999995`"}, {"3.0383014628`", "3.5957706328`", "3.7722710412`"}, { RowBox[{"-", "1.8969069587999998`"}], "3.170960228`", "3.6766509056`"}, { RowBox[{"-", "0.46347419875999996`"}], "1.62852807228`", "6.1591839518`"}, { RowBox[{"-", "1.17079864056`"}], RowBox[{"-", "5.2073289655999995`"}], RowBox[{"-", "1.2920056662000001`"}]}, {"1.6988258794799997`", RowBox[{"-", "4.0392893249999995`"}], RowBox[{"-", "0.39340315868000003`"}]}, { RowBox[{"-", "2.4388803755999997`"}], RowBox[{"-", "5.9008584075999995`"}], "3.0246954356`"}, {"0.7263161881`", RowBox[{"-", "6.5688765486`"}], "3.1248509136`"}, {"4.2979928144`", "5.415954716`", RowBox[{"-", "0.6637284629799999`"}]}, {"2.7011743444`", RowBox[{"-", "1.8628163017599997`"}], "6.8432647638`"}, {"3.6038964546`", RowBox[{"-", "4.0993826118`"}], "4.51644514`"}, {"2.6561988656`", "6.17940402`", RowBox[{"-", "4.4648556202`"}]}, {"3.9466927509999996`", "3.1915582413999997`", RowBox[{"-", "5.5402986868`"}]}, {"6.9575931868`", RowBox[{"-", "2.1818776395999997`"}], "2.4747851696`"}, { RowBox[{"-", "6.234206073999999`"}], RowBox[{"-", "3.6866664534`"}], "0.94144259594`"}, {"8.964293226199999`", "1.0411634369599998`", "0.21512640784`"}, {"7.0358278432`", "3.3143904313999997`", "1.7394360912199998`"}, { RowBox[{"-", "5.476425948`"}], "1.9689055193999998`", RowBox[{"-", "6.678102711399999`"}]}, { RowBox[{"-", "9.885912596399999`"}], RowBox[{"-", "3.0902689278`"}], RowBox[{"-", "1.9447170265999998`"}]}, { RowBox[{"-", "9.5603128066`"}], RowBox[{"-", "0.31360002969999995`"}], RowBox[{"-", "5.7394758072`"}]} }, 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.5741814282995973`*^9, 3.5749278254757214`*^9, 3.5802185045463376`*^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.5741360082450466`*^9}], Cell[BoxData[ RowBox[{"{", RowBox[{"\<\"O\"\>", ",", "\<\"O\"\>", ",", "\<\"N\"\>", ",", "\<\"N\"\>", ",", "\<\"C\"\>", ",", "\<\"C\"\>", ",", "\<\"C\"\>", ",", "\<\"C\"\>", ",", "\<\"C\"\>", ",", "\<\"C\"\>", ",", "\<\"C\"\>", ",", "\<\"C\"\>", ",", "\<\"C\"\>", ",", "\<\"C\"\>", ",", "\<\"C\"\>", ",", "\<\"C\"\>", ",", "\<\"C\"\>", ",", "\<\"C\"\>", ",", "\<\"C\"\>", ",", "\<\"C\"\>", ",", "\<\"C\"\>", ",", "\<\"C\"\>", ",", "\<\"C\"\>", ",", "\<\"C\"\>", ",", "\<\"C\"\>", ",", "\<\"H\"\>", ",", "\<\"H\"\>", ",", "\<\"H\"\>", ",", "\<\"H\"\>", ",", "\<\"H\"\>", ",", "\<\"H\"\>", ",", "\<\"H\"\>", ",", "\<\"H\"\>", ",", "\<\"H\"\>", ",", "\<\"H\"\>", ",", "\<\"H\"\>", ",", "\<\"H\"\>", ",", "\<\"H\"\>", ",", "\<\"H\"\>", ",", "\<\"H\"\>", ",", "\<\"H\"\>", ",", "\<\"H\"\>", ",", "\<\"H\"\>", ",", "\<\"H\"\>", ",", "\<\"H\"\>", ",", "\<\"H\"\>", ",", "\<\"H\"\>"}], "}"}]], "Output", CellChangeTimes->{3.574181428315197*^9, 3.574927825491321*^9, 3.5802185045463376`*^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["47"], "Output", CellChangeTimes->{3.574181428330797*^9, 3.5749278255069213`*^9, 3.5802185045619373`*^9}] }, Open ]], Cell[CellGroupData[{ Cell[BoxData[ RowBox[{"un", "=", RowBox[{"Table", "[", RowBox[{ RowBox[{"If", "[", RowBox[{ RowBox[{ RowBox[{"u", "[", RowBox[{"[", "i", "]"}], "]"}], "\[Equal]", "\"\\""}], ",", "\"\\"", ",", RowBox[{"u", "[", RowBox[{"[", "i", "]"}], "]"}]}], "]"}], ",", RowBox[{"{", RowBox[{"i", ",", "1", ",", "n"}], "}"}]}], "]"}]}]], "Input", CellChangeTimes->{{3.568807971988578*^9, 3.5688080897687845`*^9}, { 3.5688081769573374`*^9, 3.5688081865669546`*^9}, {3.568808274317109*^9, 3.5688082853151283`*^9}, {3.5688085365847692`*^9, 3.568808578330443*^9}, { 3.568808822704872*^9, 3.5688088761037655`*^9}, {3.56880890727262*^9, 3.568808937365073*^9}, {3.568809097608555*^9, 3.5688091594002633`*^9}, 3.5688092418308077`*^9, {3.5688092753552666`*^9, 3.568809302577315*^9}, { 3.5688096257786827`*^9, 3.568809703201618*^9}, {3.5688097456336927`*^9, 3.568809788268568*^9}, 3.568809850575077*^9, {3.568809946562046*^9, 3.5688099535664577`*^9}, {3.5688100003197403`*^9, 3.568810008556555*^9}, { 3.568810075371472*^9, 3.56881007981748*^9}, {3.568813431920168*^9, 3.568813533086345*^9}, {3.5688135960324554`*^9, 3.5688136045344706`*^9}, { 3.5688136407889347`*^9, 3.568813707494652*^9}, {3.568813812529636*^9, 3.5688138275524626`*^9}, {3.5688140611940727`*^9, 3.568814062738476*^9}, { 3.568814121113778*^9, 3.5688141965555105`*^9}, {3.568814326675339*^9, 3.568814331074547*^9}, 3.568814589473401*^9, 3.5688146762563534`*^9, 3.56881472549004*^9}], Cell[BoxData[ RowBox[{"{", RowBox[{"\<\"O\"\>", ",", "\<\"O\"\>", ",", "\<\"N\"\>", ",", "\<\"N\"\>", ",", "\<\"C\"\>", ",", "\<\"C\"\>", ",", "\<\"C\"\>", ",", "\<\"C\"\>", ",", "\<\"C\"\>", ",", "\<\"C\"\>", ",", "\<\"C\"\>", ",", "\<\"C\"\>", ",", "\<\"C\"\>", ",", "\<\"C\"\>", ",", "\<\"C\"\>", ",", "\<\"C\"\>", ",", "\<\"C\"\>", ",", "\<\"C\"\>", ",", "\<\"C\"\>", ",", "\<\"C\"\>", ",", "\<\"C\"\>", ",", "\<\"C\"\>", ",", "\<\"C\"\>", ",", "\<\"C\"\>", ",", "\<\"C\"\>", ",", "\<\"Z\"\>", ",", "\<\"Z\"\>", ",", "\<\"Z\"\>", ",", "\<\"Z\"\>", ",", "\<\"Z\"\>", ",", "\<\"Z\"\>", ",", "\<\"Z\"\>", ",", "\<\"Z\"\>", ",", "\<\"Z\"\>", ",", "\<\"Z\"\>", ",", "\<\"Z\"\>", ",", "\<\"Z\"\>", ",", "\<\"Z\"\>", ",", "\<\"Z\"\>", ",", "\<\"Z\"\>", ",", "\<\"Z\"\>", ",", "\<\"Z\"\>", ",", "\<\"Z\"\>", ",", "\<\"Z\"\>", ",", "\<\"Z\"\>", ",", "\<\"Z\"\>", ",", "\<\"Z\"\>"}], "}"}]], "Output", CellChangeTimes->{3.574181428330797*^9, 3.574927825522521*^9, 3.5802185045775375`*^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\"\>", ",", "5"}], "}"}], ",", RowBox[{"{", RowBox[{"\<\"C\"\>", ",", "6"}], "}"}], ",", RowBox[{"{", RowBox[{"\<\"C\"\>", ",", "7"}], "}"}], ",", RowBox[{"{", RowBox[{"\<\"C\"\>", ",", "8"}], "}"}], ",", RowBox[{"{", RowBox[{"\<\"C\"\>", ",", "9"}], "}"}], ",", RowBox[{"{", RowBox[{"\<\"C\"\>", ",", "10"}], "}"}], ",", RowBox[{"{", RowBox[{"\<\"C\"\>", ",", "11"}], "}"}], ",", RowBox[{"{", RowBox[{"\<\"C\"\>", ",", "12"}], "}"}], ",", RowBox[{"{", RowBox[{"\<\"C\"\>", ",", "13"}], "}"}], ",", RowBox[{"{", RowBox[{"\<\"C\"\>", ",", "14"}], "}"}], ",", RowBox[{"{", RowBox[{"\<\"C\"\>", ",", "15"}], "}"}], ",", RowBox[{"{", RowBox[{"\<\"C\"\>", ",", "16"}], "}"}], ",", RowBox[{"{", RowBox[{"\<\"C\"\>", ",", "17"}], "}"}], ",", RowBox[{"{", RowBox[{"\<\"C\"\>", ",", "18"}], "}"}], ",", RowBox[{"{", RowBox[{"\<\"C\"\>", ",", "19"}], "}"}], ",", RowBox[{"{", RowBox[{"\<\"C\"\>", ",", "20"}], "}"}], ",", RowBox[{"{", RowBox[{"\<\"C\"\>", ",", "21"}], "}"}], ",", RowBox[{"{", RowBox[{"\<\"C\"\>", ",", "22"}], "}"}], ",", RowBox[{"{", RowBox[{"\<\"C\"\>", ",", "23"}], "}"}], ",", RowBox[{"{", RowBox[{"\<\"C\"\>", ",", "24"}], "}"}], ",", RowBox[{"{", RowBox[{"\<\"C\"\>", ",", "25"}], "}"}], ",", RowBox[{"{", RowBox[{"\<\"N\"\>", ",", "3"}], "}"}], ",", RowBox[{"{", RowBox[{"\<\"N\"\>", ",", "4"}], "}"}], ",", RowBox[{"{", RowBox[{"\<\"O\"\>", ",", "1"}], "}"}], ",", RowBox[{"{", RowBox[{"\<\"O\"\>", ",", "2"}], "}"}], ",", 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"}], "}"}], ",", RowBox[{"{", RowBox[{"\<\"Z\"\>", ",", "33"}], "}"}], ",", RowBox[{"{", RowBox[{"\<\"Z\"\>", ",", "34"}], "}"}], ",", RowBox[{"{", RowBox[{"\<\"Z\"\>", ",", "35"}], "}"}], ",", RowBox[{"{", RowBox[{"\<\"Z\"\>", ",", "36"}], "}"}], ",", RowBox[{"{", RowBox[{"\<\"Z\"\>", ",", "37"}], "}"}], ",", RowBox[{"{", RowBox[{"\<\"Z\"\>", ",", "38"}], "}"}], ",", RowBox[{"{", RowBox[{"\<\"Z\"\>", ",", "39"}], "}"}], ",", RowBox[{"{", RowBox[{"\<\"Z\"\>", ",", "40"}], "}"}], ",", RowBox[{"{", RowBox[{"\<\"Z\"\>", ",", "41"}], "}"}], ",", RowBox[{"{", RowBox[{"\<\"Z\"\>", ",", "42"}], "}"}], ",", RowBox[{"{", RowBox[{"\<\"Z\"\>", ",", "43"}], "}"}], ",", RowBox[{"{", RowBox[{"\<\"Z\"\>", ",", "44"}], "}"}], ",", RowBox[{"{", RowBox[{"\<\"Z\"\>", ",", "45"}], "}"}], ",", RowBox[{"{", RowBox[{"\<\"Z\"\>", ",", "46"}], "}"}], ",", RowBox[{"{", RowBox[{"\<\"Z\"\>", ",", "47"}], "}"}]}], "}"}]], "Output", CellChangeTimes->{3.5741814283463974`*^9, 3.574927825538121*^9, 3.5802185045931377`*^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[{ "5", ",", "6", ",", "7", ",", "8", ",", "9", ",", "10", ",", "11", ",", "12", ",", "13", ",", "14", ",", "15", ",", "16", ",", "17", ",", "18", ",", "19", ",", "20", ",", "21", ",", "22", ",", "23", ",", "24", ",", "25", ",", "3", ",", "4", ",", "1", ",", "2", ",", "26", ",", "27", ",", "28", ",", "29", ",", "30", ",", "31", ",", "32", ",", "33", ",", "34", ",", "35", ",", "36", ",", "37", ",", "38", ",", "39", ",", "40", ",", "41", ",", "42", ",", "43", ",", "44", ",", "45", ",", "46", ",", "47"}], "}"}]], "Output", CellChangeTimes->{3.574181428361997*^9, 3.574927825538121*^9, 3.5802185045931377`*^9}] }, Open ]], Cell[BoxData[ RowBox[{ RowBox[{"For", "[", RowBox[{ RowBox[{"i", "=", "1"}], ",", RowBox[{"i", "<", RowBox[{"n", "+", "1"}]}], ",", RowBox[{"i", "++"}], ",", RowBox[{"If", "[", RowBox[{ RowBox[{ RowBox[{"us", "[", RowBox[{"[", RowBox[{"i", ",", "1"}], "]"}], "]"}], "\[Equal]", "\"\\""}], ",", RowBox[{ RowBox[{"us", "[", RowBox[{"[", RowBox[{"i", ",", "1"}], "]"}], "]"}], "=", "\"\\""}]}], "]"}]}], "]"}], ";"}]], "Input", CellChangeTimes->{{3.568277663590458*^9, 3.568277712652544*^9}, 3.5682785838808746`*^9, {3.56880682872497*^9, 3.568806862015428*^9}, 3.5688069650848093`*^9, 3.568807273668951*^9, 3.5688073087846127`*^9, { 3.568807384553946*^9, 3.5688073893119545`*^9}, {3.56881489654434*^9, 3.5688149048591547`*^9}, {3.568821714349115*^9, 3.568821718951123*^9}}], Cell[CellGroupData[{ Cell[BoxData[{ RowBox[{"u1", "=", RowBox[{"Table", "[", RowBox[{ RowBox[{"If", "[", RowBox[{ RowBox[{ RowBox[{"us", "[", RowBox[{"[", RowBox[{"i", ",", "1"}], "]"}], "]"}], "\[Equal]", "\"\\""}], ",", "0.255", ",", RowBox[{"If", "[", RowBox[{ RowBox[{ RowBox[{"us", "[", RowBox[{"[", RowBox[{"i", ",", "1"}], "]"}], "]"}], "\[Equal]", "\"\\""}], ",", "0.12", ",", RowBox[{"If", "[", RowBox[{ RowBox[{ RowBox[{"us", "[", RowBox[{"[", RowBox[{"i", ",", "1"}], "]"}], "]"}], "\[Equal]", "\"\\""}], ",", "0.24", ",", RowBox[{"If", "[", RowBox[{ RowBox[{ RowBox[{"us", "[", RowBox[{"[", RowBox[{"i", ",", "1"}], "]"}], "]"}], "\[Equal]", "\"\\""}], ",", "0.178", ",", RowBox[{"If", "[", RowBox[{ RowBox[{ RowBox[{"us", "[", RowBox[{"[", RowBox[{"i", ",", "1"}], "]"}], "]"}], "\[Equal]", "\"\\""}], ",", "0.5"}], "]"}]}], "]"}]}], "]"}]}], "]"}]}], "]"}], ",", RowBox[{"{", RowBox[{"i", ",", "1", ",", "n"}], "}"}]}], "]"}]}], "\[IndentingNewLine]", RowBox[{"u2", "=", RowBox[{"Table", "[", RowBox[{ RowBox[{"If", "[", RowBox[{ RowBox[{ RowBox[{"us", "[", RowBox[{"[", RowBox[{"i", ",", "1"}], "]"}], "]"}], "\[Equal]", "\"\\""}], ",", "0.2557", ",", RowBox[{"If", "[", RowBox[{ RowBox[{ RowBox[{"us", "[", RowBox[{"[", RowBox[{"i", ",", "1"}], "]"}], "]"}], "\[Equal]", "\"\\""}], ",", "0.6", ",", RowBox[{"If", "[", RowBox[{ RowBox[{ RowBox[{"us", "[", RowBox[{"[", RowBox[{"i", ",", "1"}], "]"}], "]"}], "\[Equal]", "\"\\""}], ",", "0.22522", ",", RowBox[{"If", "[", RowBox[{ RowBox[{ RowBox[{"us", "[", RowBox[{"[", RowBox[{"i", ",", "1"}], "]"}], "]"}], "\[Equal]", "\"\\""}], ",", "0.178", ",", RowBox[{"If", "[", RowBox[{ RowBox[{ RowBox[{"us", "[", RowBox[{"[", RowBox[{"i", ",", "1"}], "]"}], "]"}], "\[Equal]", "\"\\""}], ",", "0.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}}], Cell[BoxData[ RowBox[{"{", RowBox[{ "0.255`", ",", "0.255`", ",", "0.255`", ",", "0.255`", ",", "0.255`", ",", "0.255`", ",", "0.255`", ",", "0.255`", ",", "0.255`", ",", "0.255`", ",", "0.255`", ",", "0.255`", ",", "0.255`", ",", "0.255`", ",", "0.255`", ",", "0.255`", ",", "0.255`", ",", "0.255`", ",", "0.255`", ",", "0.255`", ",", "0.255`", ",", "0.24`", ",", "0.24`", ",", "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`", ",", "0.12`", ",", "0.12`", ",", "0.12`", ",", "0.12`", ",", "0.12`", ",", "0.12`", ",", "0.12`", ",", "0.12`", ",", "0.12`"}], "}"}]], "Output", CellChangeTimes->{3.574181428377597*^9, 3.5749278255537214`*^9, 3.580218504608738*^9}], Cell[BoxData[ RowBox[{"{", RowBox[{ "0.2557`", ",", "0.2557`", ",", "0.2557`", ",", "0.2557`", ",", "0.2557`", ",", "0.2557`", ",", "0.2557`", ",", "0.2557`", ",", "0.2557`", ",", "0.2557`", ",", "0.2557`", ",", "0.2557`", ",", "0.2557`", ",", "0.2557`", ",", "0.2557`", ",", "0.2557`", ",", "0.2557`", ",", "0.2557`", ",", "0.2557`", ",", "0.2557`", ",", "0.2557`", ",", "0.22522`", ",", "0.22522`", ",", "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`", ",", "0.6`", ",", "0.6`", ",", "0.6`", ",", "0.6`", ",", "0.6`", ",", "0.6`", ",", "0.6`", ",", "0.6`", ",", "0.6`"}], "}"}]], "Output", CellChangeTimes->{3.574181428377597*^9, 3.5749278255537214`*^9, 3.580218504608738*^9}] }, Open ]], Cell[CellGroupData[{ Cell[BoxData[ RowBox[{"u", "=", RowBox[{"Table", "[", RowBox[{ RowBox[{"us", "[", RowBox[{"[", RowBox[{"i", ",", "1"}], "]"}], "]"}], ",", RowBox[{"{", RowBox[{"i", ",", "1", ",", "n"}], "}"}]}], "]"}]}]], "Input", CellChangeTimes->{{3.5679472243083935`*^9, 3.567947394894693*^9}, { 3.567947453425996*^9, 3.567947471241227*^9}, {3.5679475415037503`*^9, 3.5679475448733563`*^9}, {3.5679488138107853`*^9, 3.567948820877598*^9}, { 3.568820296244224*^9, 3.5688203477867146`*^9}}], Cell[BoxData[ RowBox[{"{", RowBox[{"\<\"C\"\>", ",", "\<\"C\"\>", ",", "\<\"C\"\>", ",", "\<\"C\"\>", ",", "\<\"C\"\>", ",", "\<\"C\"\>", ",", "\<\"C\"\>", ",", "\<\"C\"\>", ",", "\<\"C\"\>", ",", "\<\"C\"\>", ",", "\<\"C\"\>", ",", "\<\"C\"\>", ",", "\<\"C\"\>", ",", "\<\"C\"\>", ",", "\<\"C\"\>", ",", "\<\"C\"\>", ",", "\<\"C\"\>", ",", "\<\"C\"\>", ",", "\<\"C\"\>", ",", "\<\"C\"\>", ",", "\<\"C\"\>", ",", "\<\"N\"\>", ",", "\<\"N\"\>", ",", "\<\"O\"\>", ",", "\<\"O\"\>", ",", "\<\"H\"\>", ",", "\<\"H\"\>", ",", "\<\"H\"\>", ",", "\<\"H\"\>", ",", "\<\"H\"\>", ",", "\<\"H\"\>", ",", "\<\"H\"\>", ",", "\<\"H\"\>", ",", "\<\"H\"\>", ",", "\<\"H\"\>", ",", "\<\"H\"\>", ",", "\<\"H\"\>", ",", "\<\"H\"\>", ",", "\<\"H\"\>", ",", "\<\"H\"\>", ",", "\<\"H\"\>", ",", "\<\"H\"\>", ",", "\<\"H\"\>", ",", "\<\"H\"\>", ",", "\<\"H\"\>", ",", "\<\"H\"\>", ",", "\<\"H\"\>"}], "}"}]], "Output", CellChangeTimes->{3.574181428377597*^9, 3.574927825569321*^9, 3.5802185046243377`*^9}] }, Open ]], Cell[CellGroupData[{ Cell[BoxData[ RowBox[{"cn", "=", RowBox[{"Table", "[", RowBox[{ RowBox[{"If", "[", RowBox[{ RowBox[{ RowBox[{"u", "[", RowBox[{"[", "i", "]"}], "]"}], "\[Equal]", "\"\\""}], ",", "6.0", ",", RowBox[{"If", "[", RowBox[{ RowBox[{ RowBox[{"u", "[", RowBox[{"[", "i", "]"}], "]"}], "\[Equal]", "\"\\""}], ",", "1.0", ",", RowBox[{"If", "[", RowBox[{ RowBox[{ RowBox[{"u", "[", RowBox[{"[", "i", "]"}], "]"}], "\[Equal]", "\"\\""}], ",", "7.0", ",", RowBox[{"If", "[", RowBox[{ RowBox[{ RowBox[{"u", "[", RowBox[{"[", "i", "]"}], "]"}], "\[Equal]", "\"\\""}], ",", "8.0", ",", RowBox[{"If", "[", RowBox[{ RowBox[{ RowBox[{"u", "[", RowBox[{"[", "i", "]"}], "]"}], "\[Equal]", "\"\\""}], ",", "17.0"}], "]"}]}], "]"}]}], "]"}]}], "]"}]}], "]"}], ",", RowBox[{"{", RowBox[{"i", ",", "1", ",", "n"}], "}"}]}], "]"}]}]], "Input", CellChangeTimes->{{3.5688224161787477`*^9, 3.5688224173799496`*^9}, { 3.5688224905908785`*^9, 3.568822500434496*^9}, 3.5692358293003073`*^9, 3.5692358676919746`*^9, {3.569344570581538*^9, 3.5693446110324097`*^9}}], Cell[BoxData[ RowBox[{"{", RowBox[{ "6.`", ",", "6.`", ",", "6.`", ",", "6.`", ",", "6.`", ",", "6.`", ",", "6.`", ",", "6.`", ",", "6.`", ",", "6.`", ",", "6.`", ",", "6.`", ",", "6.`", ",", "6.`", ",", "6.`", ",", "6.`", ",", "6.`", ",", "6.`", ",", "6.`", ",", "6.`", ",", "6.`", ",", "7.`", ",", "7.`", ",", "8.`", ",", "8.`", ",", "1.`", ",", "1.`", ",", "1.`", ",", "1.`", ",", "1.`", ",", "1.`", ",", "1.`", ",", "1.`", ",", "1.`", ",", "1.`", ",", "1.`", ",", "1.`", ",", "1.`", ",", "1.`", ",", "1.`", ",", "1.`", ",", "1.`", ",", "1.`", ",", "1.`", ",", "1.`", ",", "1.`", ",", "1.`"}], "}"}]], "Output", CellChangeTimes->{3.574181428393197*^9, 3.574927825584921*^9, 3.580218504639938*^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["25"], "Output", CellChangeTimes->{3.5741814284087973`*^9, 3.574927825600521*^9, 3.580218504639938*^9}], Cell[BoxData["22"], "Output", CellChangeTimes->{3.5741814284087973`*^9, 3.574927825600521*^9, 3.580218504639938*^9}] }, Open ]], Cell[BoxData[{ RowBox[{ RowBox[{"DeleteFile", "[", " ", "\"\\"", "]"}], ";"}], "\[IndentingNewLine]", RowBox[{"For", "[", RowBox[{ RowBox[{"i", "=", "1"}], ",", RowBox[{"i", "<", RowBox[{"n", "+", "1"}]}], ",", RowBox[{"i", "++"}], ",", "\[IndentingNewLine]", RowBox[{ RowBox[{"{", RowBox[{ RowBox[{"u", "[", RowBox[{"[", "i", "]"}], "]"}], ",", RowBox[{"Extract", "[", RowBox[{"t1", ",", RowBox[{"{", "i", "}"}]}], "]"}]}], "}"}], ">>>", " ", "\"\\""}]}], "]"}]}], "Input", CellChangeTimes->{{3.567869377256353*^9, 3.5678694101568108`*^9}, { 3.5678695244894114`*^9, 3.56786953511303*^9}, 3.56786988243204*^9, 3.5678699252853155`*^9, {3.567870069179968*^9, 3.5678700766835814`*^9}, { 3.5678703216664114`*^9, 3.567870325738019*^9}, 3.5679271251072817`*^9, { 3.567942840466694*^9, 3.567942854381918*^9}, {3.567942932272855*^9, 3.567942950509287*^9}, 3.5679430681802936`*^9, {3.568278272060727*^9, 3.56827827391713*^9}, 3.5688732159559383`*^9, 3.568910867631465*^9, 3.5689997098549547`*^9, 3.5689998170427427`*^9, 3.5689998869620657`*^9, { 3.569059200815255*^9, 3.5690592031552596`*^9}, 3.5691460426137285`*^9, 3.569237204520723*^9, 3.569237465836782*^9, 3.56923802264856*^9, 3.5693403424181123`*^9, 3.569340450198702*^9, 3.569340738019207*^9, 3.569340852851009*^9, {3.5693411655067577`*^9, 3.5693411655067577`*^9}, 3.5693414976001415`*^9, {3.5693416978420925`*^9, 3.569341705314506*^9}, 3.569342614421703*^9, 3.5693435671777763`*^9, 3.569343662727944*^9, 3.5693437636289215`*^9, 3.5693440709750605`*^9, 3.5693442662562037`*^9, { 3.5702975520309644`*^9, 3.570297552764166*^9}, {3.5705591717487917`*^9, 3.5705591791432047`*^9}}], Cell[BoxData[{ RowBox[{ RowBox[{"t", "=", RowBox[{"Table", "[", RowBox[{ RowBox[{"t1", "[", RowBox[{"[", RowBox[{"num", "[", RowBox[{"[", "i", "]"}], "]"}], "]"}], "]"}], ",", RowBox[{"{", RowBox[{"i", ",", "1", ",", "n"}], "}"}]}], "]"}]}], ";"}], "\[IndentingNewLine]", RowBox[{ RowBox[{"Plot1o", "=", RowBox[{"Table", "[", RowBox[{ RowBox[{"Graphics3D", "[", RowBox[{"{", RowBox[{ RowBox[{"Opacity", "[", "0.8", "]"}], ",", RowBox[{"If", "[", RowBox[{ RowBox[{ RowBox[{"u", "[", RowBox[{"[", "i", "]"}], "]"}], "\[Equal]", "\"\\""}], ",", RowBox[{"Lighter", "[", "Blue", "]"}], ",", RowBox[{"If", "[", RowBox[{ RowBox[{ RowBox[{"u", "[", RowBox[{"[", "i", "]"}], "]"}], "\[Equal]", "\"\\""}], ",", RowBox[{"Lighter", "[", "White", "]"}], ",", RowBox[{"If", "[", RowBox[{ RowBox[{ RowBox[{"u", "[", RowBox[{"[", "i", "]"}], "]"}], "\[Equal]", "\"\\""}], ",", RowBox[{"Lighter", "[", "Red", "]"}], ",", RowBox[{"If", "[", RowBox[{ RowBox[{ RowBox[{"u", "[", RowBox[{"[", "i", "]"}], "]"}], "\[Equal]", "\"\\""}], ",", RowBox[{"Lighter", "[", "Green", "]"}], ",", RowBox[{"If", "[", RowBox[{ RowBox[{ RowBox[{"u", "[", RowBox[{"[", "i", "]"}], "]"}], "\[Equal]", "\"\\""}], ",", RowBox[{"Lighter", "[", "Orange", "]"}], ",", RowBox[{"Darker", "[", "Brown", "]"}]}], "]"}]}], "]"}]}], "]"}]}], "]"}]}], "]"}], ",", RowBox[{"Sphere", "[", RowBox[{ RowBox[{"{", RowBox[{ RowBox[{"t", "[", RowBox[{"[", RowBox[{"i", ",", "1"}], "]"}], "]"}], ",", RowBox[{"t", "[", RowBox[{"[", RowBox[{"i", ",", "2"}], "]"}], "]"}], ",", RowBox[{"t", "[", RowBox[{"[", RowBox[{"i", ",", "3"}], "]"}], "]"}]}], "}"}], ",", RowBox[{"u1", "[", RowBox[{"[", "i", "]"}], "]"}]}], "]"}]}], "}"}], "]"}], ",", RowBox[{"{", RowBox[{"i", ",", "1", ",", "n"}], "}"}]}], "]"}]}], ";"}], "\[IndentingNewLine]", RowBox[{ RowBox[{"Plot2", "=", RowBox[{"Table", "[", RowBox[{ RowBox[{"Graphics3D", "[", RowBox[{"Text", "[", RowBox[{"i", ",", RowBox[{"{", RowBox[{ RowBox[{ RowBox[{"t", "[", RowBox[{"[", RowBox[{"i", ",", "1"}], "]"}], "]"}], "-", "0.6"}], ",", RowBox[{"t", "[", RowBox[{"[", RowBox[{"i", ",", "2"}], "]"}], "]"}], ",", RowBox[{"t", "[", RowBox[{"[", RowBox[{"i", ",", "3"}], "]"}], "]"}]}], "}"}], " ", ",", RowBox[{"{", RowBox[{"1", ",", "0"}], "}"}]}], "]"}], "]"}], ",", RowBox[{"{", RowBox[{"i", ",", "1", ",", "n"}], "}"}]}], "]"}]}], ";"}], "\[IndentingNewLine]", RowBox[{ RowBox[{"(*", RowBox[{"Show", "[", RowBox[{"Plot1o", ",", "Plot2", ",", RowBox[{"{", RowBox[{ RowBox[{"AspectRatio", "\[Rule]", "Automatic"}], ",", RowBox[{"Boxed", "\[Rule]", "True"}], ",", " ", RowBox[{"Axes", "\[Rule]", "Automatic"}], ",", RowBox[{"AxesLabel", "\[Rule]", RowBox[{"{", RowBox[{"xl", ",", "yl", ",", "zl"}], "}"}]}], ",", RowBox[{"SphericalRegion", "\[Rule]", "True"}]}], "}"}]}], "]"}], "*)"}]}]}], "Input", CellChangeTimes->{{3.567869377256353*^9, 3.567869394073182*^9}, { 3.5678694248832364`*^9, 3.5678694526200852`*^9}, {3.5678694891241493`*^9, 3.5678694955045605`*^9}, {3.567869596046737*^9, 3.567869602645549*^9}, 3.56786971175214*^9, {3.5678697908910794`*^9, 3.567869798800293*^9}, { 3.5679434548425727`*^9, 3.5679434621121855`*^9}, 3.568011875875622*^9, 3.56811435956207*^9, {3.5682782821071444`*^9, 3.5682782839479475`*^9}, { 3.5688205455482616`*^9, 3.5688206262784038`*^9}, 3.5688208026055136`*^9, 3.5688732159559383`*^9, 3.568910867631465*^9, {3.5689830694736805`*^9, 3.568983072687286*^9}, {3.5725833074418383`*^9, 3.5725833223398647`*^9}, { 3.572583642982828*^9, 3.572583671421678*^9}, {3.572584036290719*^9, 3.5725840766323895`*^9}, {3.572584986320788*^9, 3.572585000719613*^9}, { 3.572585104865396*^9, 3.5725851158790154`*^9}, 3.5726667135591345`*^9, { 3.5727958552609696`*^9, 3.5727958810478153`*^9}, {3.5727959717619743`*^9, 3.5727959736963778`*^9}, {3.572796004615632*^9, 3.572796064270137*^9}, 3.5741517594810867`*^9}], Cell[CellGroupData[{ Cell[BoxData[ RowBox[{ StyleBox[ RowBox[{"(*", " ", RowBox[{"Distance", " ", "Matrix", " ", "Bohr"}], " ", "*)"}], "Text"], "\[IndentingNewLine]", RowBox[{ RowBox[{ RowBox[{"dc", "=", RowBox[{"Table", "[", RowBox[{ RowBox[{"Norm", "[", RowBox[{ RowBox[{"t", "[", RowBox[{"[", "i", "]"}], "]"}], "-", RowBox[{"t", "[", RowBox[{"[", "j", "]"}], "]"}]}], "]"}], ",", RowBox[{"{", RowBox[{"i", ",", "1", ",", "n"}], "}"}], ",", RowBox[{"{", RowBox[{"j", ",", "1", ",", "n"}], "}"}]}], "]"}]}], ";"}], "\[IndentingNewLine]", RowBox[{"MatrixForm", "[", RowBox[{"Prepend", "[", RowBox[{"dc", ",", "num1"}], "]"}], "]"}]}]}]], "Input", CellChangeTimes->{{3.5678630319943895`*^9, 3.5678630956269007`*^9}, { 3.5678632280087337`*^9, 3.567863228336334*^9}, {3.5678632621727934`*^9, 3.5678633509213495`*^9}, {3.5678644293824434`*^9, 3.567864451908883*^9}, { 3.567864923404111*^9, 3.56786494544695*^9}, {3.5678650143210707`*^9, 3.5678650845367947`*^9}, {3.567869231084096*^9, 3.5678692412397137`*^9}, 3.5678693168686466`*^9, {3.5678704450470285`*^9, 3.5678704621290584`*^9}, 3.5682783281584253`*^9, 3.5688732159715385`*^9, 3.568910867647065*^9, 3.5689997098549547`*^9, 3.5689998170427427`*^9, 3.5689998869620657`*^9, 3.5691460426137285`*^9, 3.569237204536323*^9, 3.5692374658523817`*^9, 3.56923802264856*^9, 3.5693403424181123`*^9, 3.5693404502143016`*^9, 3.569340738019207*^9, 3.569340852851009*^9, 3.5693411655067577`*^9, 3.5693414978029413`*^9, 3.5693426144373026`*^9, 3.5693435671777763`*^9, 3.569343662743544*^9, 3.569343763644521*^9, 3.569344071177861*^9, 3.569344266271804*^9, 3.570297558707776*^9, {3.5703416079688015`*^9, 3.570341617375618*^9}, {3.5705956885798426`*^9, 3.5705957106070814`*^9}, { 3.5705965150536942`*^9, 3.5705965239457097`*^9}, {3.5720162655168724`*^9, 3.5720163727202606`*^9}, {3.5720166425383344`*^9, 3.572016643427536*^9}, { 3.5723503054303513`*^9, 3.572350361964851*^9}}], Cell[BoxData[ TagBox[ RowBox[{"(", "\[NoBreak]", GridBox[{ {"1", "2", "3", "4", "5", "6", "7", "8", "9", "10", "11", "12", "13", "14", "15", "16", "17", "18", "19", "20", "21", "22", "23", "24", "25", "26", "27", "28", "29", "30", "31", "32", "33", "34", "35", "36", "37", "38", "39", "40", "41", "42", "43", "44", "45", "46", "47"}, {"0.`", "2.9133559930018156`", "2.9178260832413088`", "4.963967637737269`", "5.485950570952775`", "4.9695771654721765`", "2.9321352168821497`", "2.8786543592318763`", "4.541317440102226`", "7.350960414909442`", "5.920645976460304`", "6.1452783510715685`", "4.658100537105758`", "8.226588979618828`", "7.143706521555035`", "7.572648548290906`", "4.956853636449136`", "8.937615108953894`", "7.197645425945437`", "7.317446169968695`", "8.20978480487283`", "4.565090312785302`", "4.6421484581873385`", "8.117866379353305`", "8.958694621177905`", "3.9158308522962977`", "3.9897912704168528`", "5.8662835350072955`", "7.486278092816581`", "5.692467324374436`", "6.659595599829205`", "4.158058787417201`", "4.113050893735127`", "5.420183051779546`", "6.290767261764081`", "8.870017604594322`", "7.73411665237466`", "7.073912053647132`", "9.763912988732372`", "9.0864384908495`", "8.63272964916831`", "5.451990986477748`", "10.589416635717594`", "9.710959784848216`", "8.743080501513003`", "8.98844924270981`", "10.231105361436942`"}, {"2.9133559930018156`", "0.`", "4.9874802773622395`", "2.8932575753791507`", "4.783491977069268`", "5.611375201614538`", "4.784933035013931`", "4.445550519875969`", "6.918544471041077`", "4.659269216686271`", "5.671983924683429`", "7.159595604130865`", "4.559546003103319`", "5.334578400130711`", "4.677119436667441`", "6.649415274606576`", "7.0780800332779945`", "7.1094208457808525`", "7.118436840666057`", "8.924729527555076`", "8.962128433922054`", "6.606755189537876`", "2.784041656295211`", "5.681567395152934`", "6.792587842342553`", "2.021990241471804`", "6.3330099074674155`", "4.157796029574425`", "6.512197783189894`", "6.044691672187877`", "7.545242766076033`", "5.872241733615487`", "4.7941195134356205`", "8.158085450385668`", "8.301568682480067`", "6.371542208569007`", "8.757313217212076`", "8.060395328497679`", "6.951562023151498`", "6.236235420785251`", "8.060452785938244`", "8.069349109755967`", "8.783913491040146`", "7.8810305513162735`", "8.079825479605045`", "10.83446243857582`", "10.881460961439092`"}, {"2.9178260832413088`", "4.9874802773622395`", "0.`", "5.602088777482104`", "4.666538616346677`", "2.9200010874932785`", "4.587155104867151`", "4.910600066206322`", "4.3267149305564585`", "8.399725891555619`", "5.24302344742409`", "4.740148023764271`", "6.953649271667304`", "9.95823132411805`", "9.262914869860442`", "7.5669784045418895`", "6.113527280966206`", "9.345757619029467`", "9.328765716752425`", "8.634550084420324`", "9.979877700696907`", "2.7755277578415423`", "6.95777880720008`", "9.259182030693447`", "11.13107073376446`", "6.068163556861261`", "2.021949101734182`", "6.13225282672619`", "6.476185658659592`", "4.116270987321298`", "4.088985713134699`", "6.1988403338562605`", "5.757765362209378`", "5.07640155681542`", "6.1220288649558245`", "9.431946232734004`", "5.740016832429208`", "6.246365611595657`", "11.224197240373558`", "11.078945837094896`", "8.661512530254274`", "5.854363855806336`", "11.116489450603451`", "9.69513522579762`", "10.94968421875413`", "9.98342320709408`", "11.955771593366388`"}, {"4.963967637737269`", "2.8932575753791507`", "5.602088777482104`", "0.`", "2.869110215227484`", "4.631870666379617`", "6.99730759599757`", "6.728276063005156`", "8.473937955880166`", "2.919162985727917`", "4.796608741937931`", "7.047066821376389`", "6.732354412339776`", "4.833327985667005`", "5.364462341182729`", "5.79203021810893`", "9.232826508760924`", "5.685328292263088`", "9.10542483665946`", "11.084694306236747`", "11.054234299603461`", "7.225191451689532`", "4.585830844365755`", "4.682619325266873`", "7.536642406988704`", "3.9361116115212793`", "7.0776067318876565`", "2.022091331234718`", "4.018341437061925`", "4.9212405611246615`", "6.402213164976631`", "8.470157894111097`", "6.756738425475895`", "9.882541709651342`", "9.75451975209396`", "3.9800394279564477`", "8.170255095026926`", "8.331626600304615`", "5.906944432264949`", "6.220833443165194`", "7.661050619996992`", "10.068272136203888`", "7.628277020918091`", "5.7728531067597375`", "9.810808038751722`", "12.95792202986138`", "12.907218716326243`"}, {"5.485950570952775`", "4.783491977069268`", "4.666538616346677`", "2.869110215227484`", "0.`", "2.9246264478565784`", "7.134848783848744`", "7.848572450321313`", "7.635722023080755`", "5.019215548954024`", "2.8724382681350535`", "4.944830569543525`", "8.671751792172824`", "7.5374563555046885`", "8.213238747653588`", "4.7209577223543535`", "9.958978080060856`", "5.571519692881892`", "11.165820778028484`", "12.180175457345605`", "12.710980533196071`", "5.642747873784976`", "7.0655594488192675`", "5.93763015404361`", "10.369000769883097`", "5.5007502302002225`", "6.336119096148926`", "3.741513347106094`", "2.022013336895049`", "4.120313511056785`", "4.093183735406443`", "8.997260362432495`", "6.966733019768621`", "9.13387585075046`", "8.743967695035401`", "5.410575752955814`", "5.601577033277962`", "6.577497462801042`", "8.476157201100698`", "8.756017249416221`", "6.54921703222436`", "10.249248146744216`", "7.540630666947197`", "5.314906253319098`", "12.173203580702047`", "13.849458197558377`", "14.646890482712921`"}, {"4.9695771654721765`", "5.611375201614538`", "2.9200010874932785`", "4.631870666379617`", "2.9246264478565784`", "0.`", "7.029978641922334`", "6.864146369699909`", "6.909746076162445`", "7.395865143905911`", "4.740421400798128`", "5.232208720870502`", "8.218909847533293`", "9.395796401125386`", "9.256383497716012`", "7.144518005548967`", "8.385499789646921`", "8.44735550071521`", "10.548365329794374`", "10.628653325325041`", "11.566309435205996`", "4.627946323874327`", "7.531485063373768`", "8.646109990435919`", "11.174849129446374`", "6.893581521227928`", "3.937139735269764`", "4.624284325558919`", "4.152375071261206`", "2.0219053509123794`", "2.021964407127651`", "8.785079433614742`", "7.65496846838069`", "7.867752170390139`", "8.412698472189705`", "7.8322669435287695`", "5.552577695606184`", "7.163417681743494`", "10.255692227165397`", "10.815462596389768`", "8.666166053654843`", "8.394104313990784`", "10.380111366753287`", "8.193507841354691`", "11.864361116940893`", "12.064739558811207`", "13.472371834086537`"}, {"2.9321352168821497`", "4.784933035013931`", "4.587155104867151`", "6.99730759599757`", "7.134848783848744`", "7.029978641922334`", "0.`", "4.762447075107062`", "2.8446992998278384`", "8.862624205625105`", "6.302167321930409`", "5.794817263395147`", "6.602778505504645`", "9.79837755601646`", "8.972908440585753`", "7.4532862214355236`", "6.089738983809131`", "9.290428557825537`", "8.92660670975755`", "8.480121459041158`", "9.664333579658955`", "4.431213456773237`", "6.647623784536581`", "8.755999892774927`", "10.794594524779951`", "4.460544711873704`", "5.743306605135203`", "8.37252725245116`", "9.116554880946149`", "8.240325695236626`", "8.314706480775177`", "2.022008820155653`", "2.0218864253419775`", "4.069182340383738`", "4.030914815469886`", "10.557726751847563`", "7.677402863251084`", "5.856500978997654`", "11.603316786762704`", "10.122789254032357`", "7.824889587627878`", "6.045754888965258`", "10.547549668490063`", "10.51029267041149`", "10.48360677046522`", "9.894710579293553`", "11.616830523999866`"}, {"2.8786543592318763`", "4.445550519875969`", "4.910600066206322`", "6.728276063005156`", "7.848572450321313`", "6.864146369699909`", "4.762447075107062`", "0.`", "6.422556674178978`", "8.936233839117445`", "8.741224534162596`", "8.911287050811822`", "2.624226923673399`", "8.957731731404413`", "6.978167959515468`", "10.333042709032053`", "2.6804165261567796`", "11.385420565665944`", "4.702224181282479`", "4.58049128044917`", "5.348385872270561`", "6.919498363327752`", "4.342501862405452`", "10.107674669128263`", "8.16903262359042`", "5.73684760786854`", "4.801426030314998`", "7.017980592912676`", "9.728443912234841`", "6.83114799559701`", "8.579596687320475`", "4.802926962471664`", "6.249890450229535`", "6.490136731676814`", "8.2682329723385`", "10.465529862533522`", "10.384317010379371`", "9.811666779049872`", "10.318681092526328`", "9.89069562224219`", "11.420067455111694`", "4.105759238714308`", "13.038091069055692`", "12.10370286955749`", "6.519958879924849`", "6.415851230041006`", "7.369892741846511`"}, {"4.541317440102226`", "6.918544471041077`", "4.3267149305564585`", "8.473937955880166`", "7.635722023080755`", "6.909746076162445`", "2.8446992998278384`", "6.422556674178978`", "0.`", "10.6687204533173`", "6.4406269870592485`", "4.665045756025193`", "8.748943702023467`", "12.087540161940588`", "11.423620510000378`", "8.012707431314498`", "6.967042172417843`", "10.40014336532631`", "11.007223021440826`", "9.5571008272786`", "11.303116729767329`", "2.760010552211306`", "9.020817308213623`", "10.52169338098031`", "13.301751879035237`", "6.829465940075099`", "5.209603556731002`", "9.690941550657353`", "9.479148368063376`", "8.417639892916739`", "7.541008951857932`", "4.080047341911475`", "4.0355817991091465`", "2.022063290229071`", "2.021999431069534`", "12.089402535409214`", "6.177179511961237`", "4.673199817320111`", "13.775310462813508`", "12.572452696850577`", "8.109058783873719`", "6.076865237278945`", "11.646404405819203`", "11.40692312408293`", "12.745965133742702`", "10.590644900340921`", "13.231600103781206`"}, {"7.350960414909442`", "4.659269216686271`", "8.399725891555619`", "2.919162985727917`", "5.019215548954024`", "7.395865143905911`", "8.862624205625105`", "8.936233839117445`", "10.6687204533173`", "0.`", "6.241090772397219`", "8.942498659337382`", "8.326242532766463`", "2.968765103545444`", "5.033599138342857`", "6.026723328144525`", "11.581914529857526`", "4.549584802791236`", "10.427923739589156`", "13.206359726635801`", "12.741221973476405`", "9.667518642761113`", "5.618512500783972`", "2.690170364151429`", "7.101390779523219`", "4.7388884775978735`", "9.959094970744895`", "3.9578308020279094`", "5.334802295634057`", "7.641243373824495`", "8.968496603283356`", "10.13869481909909`", "8.061887223398081`", "12.253772204734316`", "11.646400595052446`", "2.022110022985657`", "10.090950985859696`", "9.85985228579441`", "3.984372022665647`", "4.057343177277496`", "7.827185287190332`", "12.601341109792`", "6.164862793965765`", "4.697334822128171`", "10.646523548718363`", "15.171546818911274`", "14.459744340266`"}, {"5.920645976460304`", "5.671983924683429`", "5.24302344742409`", "4.796608741937931`", "2.8724382681350535`", "4.740421400798128`", "6.302167321930409`", "8.741224534162596`", "6.4406269870592485`", "6.241090772397219`", "0.`", "2.8914473243516703`", "9.928099505383452`", "8.83364883407671`", "9.69431958539083`", "2.5460861049836723`", "10.718255371851104`", "4.729482433929316`", "12.554196778037705`", "13.175202522089029`", "13.978294487015384`", "4.742550317068091`", "8.395870566126781`", "5.8708034994790115`", "11.968657474862168`", "5.435302574641086`", "7.2124452828482575`", "6.322454448570829`", "3.933634114307213`", "6.511003827096767`", "5.332707568665385`", "8.274359608248007`", "5.619302254016938`", "8.279093027932477`", "6.9378808466082535`", "6.961189754185856`", "3.9931964408801672`", "4.021742640097958`", "10.137716328577808`", "9.49851020542681`", "3.9357773433586365`", "10.694835272644383`", "6.307639119562161`", "5.188547831666065`", "13.686479305728977`", "14.761752514254749`", "15.982950221209041`"}, {"6.1452783510715685`", "7.159595604130865`", "4.740148023764271`", "7.047066821376389`", "4.944830569543525`", "5.232208720870502`", "5.794817263395147`", "8.911287050811822`", "4.665045756025193`", "8.942498659337382`", "2.8914473243516703`", "0.`", "10.731904827894631`", "11.306700890886136`", "11.684446726479386`", "4.729422756236127`", "10.278784477373861`", "7.391670483968135`", "13.316049956603973`", "12.91239436471122`", "14.24331642709625`", "2.7949987301991444`", "9.88253266028057`", "8.555392621993004`", "13.89110529908887`", "6.9901229867952805`", "6.441747513561636`", "8.363165279365123`", "6.140322575145185`", "7.247133212669288`", "5.198921971370764`", "7.746706565141996`", "5.605471553856792`", "6.366452512561016`", "4.869229259229046`", "9.770537035882676`", "2.022164803399098`", "2.0218598310626303`", "12.717912081994355`", "11.939160114393035`", "5.040169128317869`", "9.718699778445279`", "8.667948842235662`", "7.939297260099693`", "14.758960419198283`", "14.21215561940514`", "16.259303399164875`"}, {"4.658100537105758`", "4.559546003103319`", "6.953649271667304`", "6.732354412339776`", "8.671751792172824`", "8.218909847533293`", "6.602778505504645`", "2.624226923673399`", "8.748943702023467`", "8.326242532766463`", "9.928099505383452`", "10.731904827894631`", "0.`", "7.527893339701695`", "5.030533953362244`", "11.16225595583884`", "4.553428244326095`", "11.589227014482647`", "2.6360372198895394`", "5.172968413316072`", "4.4839097624251085`", "9.133785540266013`", "2.8156340751181768`", "9.792273817860481`", "5.760240476572659`", "5.898146378993525`", "7.021927859815137`", "6.764714188501355`", "10.345246901899635`", "7.790957476789282`", "10.135109635385668`", "6.451630414273711`", "7.576808787467328`", "9.01966445793068`", "10.468626622944933`", "9.862177132244026`", "12.251631288393115`", "11.635406417884425`", "8.715192462250661`", "8.468819043672651`", "12.427615763590062`", "6.403615062782629`", "13.198446329971567`", "12.267582215602314`", "4.0945143871621825`", "7.19489729110178`", "6.340417775638976`"}, {"8.226588979618828`", "5.334578400130711`", "9.95823132411805`", "4.833327985667005`", "7.5374563555046885`", "9.395796401125386`", "9.79837755601646`", "8.957731731404413`", "12.087540161940588`", "2.968765103545444`", "8.83364883407671`", "11.306700890886136`", "7.527893339701695`", "0.`", "2.8971654349625475`", "8.609003526220398`", "11.588806506763424`", "7.087899339606284`", "9.075775388664427`", "12.691419057931887`", "11.650806427205728`", "11.56172144227295`", "4.770235245565685`", "4.581759860012873`", "4.536757498536709`", "5.492242164300075`", "11.23314971948095`", "5.296623588122302`", "8.084596180748717`", "9.245208027503434`", "11.202733618812903`", "10.57193385827496`", "9.135704091030675`", "13.45869561836688`", "13.191560880314741`", "4.1523395501404945`", "12.656240510014742`", "12.10785746916205`", "2.0221091098705344`", "2.021990598315014`", "10.205141612766235`", "12.9895461335742`", "8.324767383321392`", "7.473276437684774`", "8.794653701758929`", "14.711800049400457`", "13.130250326022546`"}, {"7.143706521555035`", "4.677119436667441`", "9.262914869860442`", "5.364462341182729`", "8.213238747653588`", "9.256383497716012`", "8.972908440585753`", "6.978167959515468`", "11.423620510000378`", "5.033599138342857`", "9.69431958539083`", "11.684446726479386`", "5.030533953362244`", "2.8971654349625475`", "0.`", "10.033870394802994`", "9.434675310622366`", "9.190424928623134`", "6.236513513744154`", "10.15271985082542`", "8.861342103812673`", "11.237427266505444`", "2.670885270031329`", "6.771521812262538`", "2.292974669882745`", "5.413839274516331`", "10.134977527857682`", "5.459169059668932`", "9.231428514172178`", "8.825322525913391`", "11.239710876366667`", "9.360594832639936`", "8.826937159858746`", "12.43627808074261`", "12.791750056551388`", "6.411375876796803`", "13.158946435093718`", "12.556588844972`", "3.9223039008938234`", "3.994445347533051`", "11.56775273439481`", "11.078880187456763`", "10.592207468995777`", "9.702044736080586`", "5.905066056876251`", "12.164113633982597`", "10.2632625182596`"}, {"7.572648548290906`", "6.649415274606576`", "7.5669784045418895`", "5.79203021810893`", "4.7209577223543535`", "7.144518005548967`", "7.4532862214355236`", "10.333042709032053`", "8.012707431314498`", "6.026723328144525`", "2.5460861049836723`", "4.729422756236127`", "11.16225595583884`", "8.609003526220398`", "10.033870394802994`", "0.`", "12.505306686761514`", "2.8355941397700484`", "13.75020919200864`", "14.869862444150197`", "15.427015995888864`", "6.897531027550537`", "9.230227955448205`", "4.607377875719755`", "12.314191993152486`", "5.719748287813016`", "9.580060461938004`", "7.5754289490961595`", "5.21681368331371`", "8.741209341991542`", "7.786427203481893`", "9.218664952727753`", "6.110988400577941`", "9.997828903254666`", "8.060084037374912`", "6.748484854457874`", "5.803222944134508`", "4.879902179108611`", "9.973221336284665`", "8.800468676484122`", "2.021909298602956`", "12.633155368128062`", "3.9474672634211645`", "3.974164428008931`", "14.657365686671916`", "16.549179820121406`", "17.401951335556326`"}, {"4.956853636449136`", "7.0780800332779945`", "6.113527280966206`", "9.232826508760924`", "9.958978080060856`", "8.385499789646921`", "6.089738983809131`", "2.6804165261567796`", "6.967042172417843`", "11.581914529857526`", "10.718255371851104`", "10.278784477373861`", "4.553428244326095`", "11.588806506763424`", "9.434675310622366`", "12.505306686761514`", "0.`", "13.841760467816508`", "5.476098598841951`", "2.6641190597447513`", "4.7023227979467235`", "7.813572371055901`", "6.887446828357107`", "12.721213561977713`", "10.30436368285956`", "8.246796392462157`", "5.183644916389`", "9.348995470315364`", "11.829636556432884`", "8.273115657094182`", "9.757615942714132`", "5.649910640273496`", "7.940314030672993`", "6.217109265486245`", "8.803374118786621`", "13.04446280899825`", "11.579552455374111`", "11.108724110570515`", "12.874932024508773`", "12.5079053383016`", "13.418841404543507`", "2.0219515958889405`", "15.47980669567217`", "14.544558813508417`", "7.497382503416148`", "4.054915122413112`", "6.514397868162342`"}, {"8.937615108953894`", "7.1094208457808525`", "9.345757619029467`", "5.685328292263088`", "5.571519692881892`", "8.44735550071521`", "9.290428557825537`", "11.385420565665944`", "10.40014336532631`", "4.549584802791236`", "4.729482433929316`", "7.391670483968135`", "11.589227014482647`", "7.087899339606284`", "9.190424928623134`", "2.8355941397700484`", "13.841760467816508`", "0.`", "14.009586533439714`", "15.954361229163858`", "16.04833608747504`", "9.306175514855182`", "9.170191922079479`", "2.6953506555414566`", "11.348506808727425`", "6.1977193658632395`", "11.299061655948854`", "7.300406892827877`", "5.470142519408501`", "9.592595712764798`", "9.327936438191886`", "10.871012914935125`", "7.863884064138501`", "12.343655481619974`", "10.635545474914657`", "4.900878779937843`", "8.325032012844977`", "7.7063182191505195`", "8.172132102886803`", "7.128091126656633`", "4.196254098823042`", "14.323603368361258`", "2.021979276261204`", "2.022093732547277`", "14.545532535588283`", "17.789825025259606`", "17.92748814528883`"}, {"7.197645425945437`", "7.118436840666057`", "9.328765716752425`", "9.10542483665946`", "11.165820778028484`", "10.548365329794374`", "8.92660670975755`", "4.702224181282479`", "11.007223021440826`", "10.427923739589156`", "12.554196778037705`", "13.316049956603973`", "2.6360372198895394`", "9.075775388664427`", "6.236513513744154`", "13.75020919200864`", "5.476098598841951`", "14.009586533439714`", "0.`", "4.689062402536489`", "2.6805787881755534`", "11.56102070568773`", "4.887100619689536`", "12.018221898879471`", "5.9568754582865555`", "8.351431729271333`", "9.03569217468521`", "8.838272200796938`", "12.735640351098484`", "9.827503262774623`", "12.410312334153875`", "8.381691405457703`", "9.969101800723347`", "10.973394382201453`", "12.725595225638864`", "11.858514957007737`", "14.799808660618469`", "14.20277910239626`", "9.960277783513206`", "9.940612843081762`", "15.01019149350888`", "7.49804301907575`", "15.571692984801624`", "14.648128890990769`", "2.0218933309096596`", "6.502663565736763`", "4.0815132924271165`"}, {"7.317446169968695`", "8.924729527555076`", "8.634550084420324`", "11.084694306236747`", "12.180175457345605`", "10.628653325325041`", "8.480121459041158`", "4.58049128044917`", "9.5571008272786`", "13.206359726635801`", "13.175202522089029`", "12.91239436471122`", "5.172968413316072`", "12.691419057931887`", "10.15271985082542`", "14.869862444150197`", "2.6641190597447513`", "15.954361229163858`", "4.689062402536489`", "0.`", "2.72247348114146`", "10.471277228745445`", "7.947955916719455`", "14.541501394206245`", "10.444154914007157`", "10.142921691202417`", "7.566238771365857`", "10.941877063929716`", "13.96881807309957`", "10.161730236785269`", "12.050129723079204`", "7.689346323934307`", "10.210011766420855`", "8.681330413950509`", "11.316241909712259`", "14.650186764544312`", "14.205903022277083`", "13.73725897926911`", "13.79786822622171`", "13.597948750607234`", "15.84711327846385`", "4.091141968156923`", "17.58603598001758`", "16.634186537429247`", "6.549910072065002`", "2.022075007935168`", "4.11944228963415`"}, {"8.20978480487283`", "8.962128433922054`", "9.979877700696907`", "11.054234299603461`", "12.710980533196071`", "11.566309435205996`", "9.664333579658955`", "5.348385872270561`", "11.303116729767329`", "12.741221973476405`", "13.978294487015384`", "14.24331642709625`", "4.4839097624251085`", "11.650806427205728`", "8.861342103812673`", "15.427015995888864`", "4.7023227979467235`", "16.04833608747504`", "2.6805787881755534`", "2.72247348114146`", "0.`", "12.088882486145254`", "7.1954136761978225`", "14.262371432465905`", "8.616360449332042`", "10.205706710317642`", "9.207082387128668`", "10.750734017976662`", "14.380787358326863`", "10.847609016975671`", "13.226074783658849`", "8.855318013472738`", "11.076198223081873`", "10.782221541774799`", "13.05327606835873`", "14.162207138040493`", "15.639663036265627`", "15.105187505718364`", "12.562164982881898`", "12.519986967330068`", "16.56101468087713`", "6.539152431263399`", "17.647235564848124`", "16.70109051147489`", "4.134935733071125`", "4.107442440283835`", "2.021883473733498`"}, {"4.565090312785302`", "6.606755189537876`", "2.7755277578415423`", "7.225191451689532`", "5.642747873784976`", "4.627946323874327`", "4.431213456773237`", "6.919498363327752`", "2.760010552211306`", "9.667518642761113`", "4.742550317068091`", "2.7949987301991444`", "9.133785540266013`", "11.56172144227295`", "11.237427266505444`", "6.897531027550537`", "7.813572371055901`", "9.306175514855182`", "11.56102070568773`", "10.471277228745445`", "12.088882486145254`", "0.`", "8.995607983142223`", "9.807079859606535`", "13.254981934464691`", "6.921627071293453`", "4.0601216879663715`", "8.227848125300719`", "7.285805974067512`", "6.381065998123721`", "4.894612393399663`", "6.208803212200521`", "5.249986814832375`", "3.994176192889472`", "3.956371748008843`", "10.720582466820336`", "3.9089260895862923`", "3.937109472889834`", "13.008205182364694`", "12.363401034362976`", "7.400795480816595`", "7.033993915352412`", "10.783291905978837`", "9.880736444176383`", "13.222646265298687`", "11.615747426905063`", "14.070352464047653`"}, {"4.6421484581873385`", "2.784041656295211`", "6.95777880720008`", "4.585830844365755`", "7.0655594488192675`", "7.531485063373768`", "6.647623784536581`", "4.342501862405452`", "9.020817308213623`", "5.618512500783972`", "8.395870566126781`", "9.88253266028057`", "2.8156340751181768`", "4.770235245565685`", "2.670885270031329`", "9.230227955448205`", "6.887446828357107`", "9.170191922079479`", "4.887100619689536`", "7.947955916719455`", "7.1954136761978225`", "8.995607983142223`", "0.`", "7.161706898582086`", "4.317938228807684`", "4.0538934036964065`", "7.712465119007697`", "4.909624737981871`", "8.540128096672838`", "7.2725288859915755`", "9.551970044816164`", "7.0350295496989155`", "6.918913979153853`", "9.872780689949128`", "10.538028986265692`", "7.234164456548385`", "11.426791153474882`", "10.787640679511567`", "6.127102545757401`", "5.799417628512822`", "10.663566018666883`", "8.446533552414122`", "10.751307302346461`", "9.823977216277367`", "5.457886491733985`", "9.96689023660395`", "8.916783024085843`"}, {"8.117866379353305`", "5.681567395152934`", "9.259182030693447`", "4.682619325266873`", "5.93763015404361`", "8.646109990435919`", "8.755999892774927`", "10.107674669128263`", "10.52169338098031`", "2.690170364151429`", "5.8708034994790115`", "8.555392621993004`", "9.792273817860481`", "4.581759860012873`", "6.771521812262538`", "4.607377875719755`", "12.721213561977713`", "2.6953506555414566`", "12.018221898879471`", "14.541501394206245`", "14.262371432465905`", "9.807079859606535`", "7.161706898582086`", "0.`", "8.844030709220721`", "4.739650988082211`", "11.08297353945823`", "6.294573397812249`", "6.285616837256572`", "9.417702828775061`", "10.011496223329736`", "10.028016186080126`", "7.408721220220179`", "12.333054282092695`", "11.04953804732995`", "3.839334403705328`", "9.83942249778279`", "8.959251551742005`", "5.9103105376644365`", "4.44734491773006`", "6.009866981660313`", "13.547198057299548`", "3.8256191098571892`", "3.8517937802710116`", "12.320191353302532`", "16.47538346794574`", "16.039193595483894`"}, {"8.958694621177905`", "6.792587842342553`", "11.13107073376446`", "7.536642406988704`", "10.369000769883097`", "11.174849129446374`", "10.794594524779951`", "8.16903262359042`", "13.301751879035237`", "7.101390779523219`", "11.968657474862168`", "13.89110529908887`", "5.760240476572659`", "4.536757498536709`", "2.292974669882745`", "12.314191993152486`", "10.30436368285956`", "11.348506808727425`", "5.9568754582865555`", "10.444154914007157`", "8.616360449332042`", "13.254981934464691`", "4.317938228807684`", "8.844030709220721`", "0.`", "7.557286523607779`", "11.738477078751641`", "7.289609188241989`", "11.309476344201277`", "10.48056358229701`", "13.1584188672839`", "10.890191375894975`", "10.7923193625875`", "14.12068759265923`", "14.733409568242353`", "8.219627631852445`", "15.357124928679843`", "14.76916647205398`", "4.818540803826755`", "5.3152291977203`", "13.824974503349218`", "12.14467836681734`", "12.656969146487327`", "11.794676179816534`", "4.900850553687264`", "12.373841961673193`", "9.628309351216206`"}, {"3.9158308522962977`", "2.021990241471804`", "6.068163556861261`", "3.9361116115212793`", "5.5007502302002225`", "6.893581521227928`", "4.460544711873704`", "5.73684760786854`", "6.829465940075099`", "4.7388884775978735`", "5.435302574641086`", "6.9901229867952805`", "5.898146378993525`", "5.492242164300075`", "5.413839274516331`", "5.719748287813016`", "8.246796392462157`", "6.1977193658632395`", "8.351431729271333`", "10.142921691202417`", "10.205706710317642`", "6.921627071293453`", "4.0538934036964065`", "4.739650988082211`", "7.557286523607779`", "0.`", "7.6640446251276275`", "5.674447217776641`", "7.14392292118449`", "7.710836790803152`", "8.642528409717743`", "5.486377231819484`", "3.658639685586148`", "8.337124322484469`", "7.783392004681037`", "6.661204442810375`", "8.794061016691224`", "7.413696274104737`", "7.388377372375795`", "5.745190858174559`", "6.82447740976742`", "9.088090667604309`", "7.5712522637592805`", "7.435354300015628`", "9.199878374425026`", "12.01201563289912`", "12.095964716717805`"}, {"3.9897912704168528`", "6.3330099074674155`", "2.021949101734182`", "7.0776067318876565`", "6.336119096148926`", "3.937139735269764`", "5.743306605135203`", "4.801426030314998`", "5.209603556731002`", "9.959094970744895`", "7.2124452828482575`", "6.441747513561636`", "7.021927859815137`", "11.23314971948095`", "10.134977527857682`", "9.580060461938004`", "5.183644916389`", "11.299061655948854`", "9.03569217468521`", "7.566238771365857`", "9.207082387128668`", "4.0601216879663715`", "7.712465119007697`", "11.08297353945823`", "11.738477078751641`", "7.6640446251276275`", "0.`", "7.152884960315766`", "7.978236690768283`", "4.383461464012471`", "4.7598595308121`", "6.925186547354508`", "7.297933061773952`", "5.169908609032638`", "7.134661910110758`", "10.921392222313862`", "7.138275257758313`", "7.911867377880389`", "12.36631167691352`", "12.481235209813498`", "10.653944854567776`", "4.676061016119794`", "13.106206602627319`", "11.542215558551588`", "10.799084326442639`", "8.670670108871265`", "11.081374951936118`"}, {"5.8662835350072955`", "4.157796029574425`", "6.13225282672619`", "2.022091331234718`", "3.741513347106094`", "4.624284325558919`", "8.37252725245116`", "7.017980592912676`", "9.690941550657353`", "3.9578308020279094`", "6.322454448570829`", "8.363165279365123`", "6.764714188501355`", "5.296623588122302`", "5.459169059668932`", "7.5754289490961595`", "9.348995470315364`", "7.300406892827877`", "8.838272200796938`", "10.941877063929716`", "10.750734017976662`", "8.227848125300719`", "4.909624737981871`", "6.294573397812249`", "7.289609188241989`", "5.674447217776641`", "7.152884960315766`", "0.`", "4.384010504723781`", "4.063958305725884`", "6.35468310827447`", "9.74422235459907`", "8.47154358139056`", "10.84671601861793`", "11.180374912117344`", "4.314326571483269`", "9.19922316294167`", "9.890268349887318`", "5.763272554324799`", "7.0865812423900945`", "9.506905008480475`", "10.300542969550817`", "9.264712062298157`", "6.944141858275241`", "9.434277435127182`", "12.777996626024294`", "12.489967343866935`"}, {"7.486278092816581`", "6.512197783189894`", "6.476185658659592`", "4.018341437061925`", "2.022013336895049`", "4.152375071261206`", "9.116554880946149`", "9.728443912234841`", "9.479148368063376`", "5.334802295634057`", "3.933634114307213`", "6.140322575145185`", "10.345246901899635`", "8.084596180748717`", "9.231428514172178`", "5.21681368331371`", "11.829636556432884`", "5.470142519408501`", "12.735640351098484`", "13.96881807309957`", "14.380787358326863`", "7.285805974067512`", "8.540128096672838`", "6.285616837256572`", "11.309476344201277`", "7.14392292118449`", "7.978236690768283`", "4.384010504723781`", "0.`", "4.95438081449035`", "4.672240289048095`", "10.993542867909762`", "8.80006687116963`", "10.988373551529618`", "10.444351633988305`", "4.957618783157461`", "6.272226754539285`", "7.751714406629797`", "8.641262610879746`", "9.365496106918252`", "7.101094054044292`", "12.125463934256993`", "7.368627704502649`", "4.493529783321128`", "13.57783430987644`", "15.63401377194285`", "16.26288992135138`"}, {"5.692467324374436`", "6.044691672187877`", "4.116270987321298`", "4.9212405611246615`", "4.120313511056785`", "2.0219053509123794`", "8.240325695236626`", "6.83114799559701`", "8.417639892916739`", "7.641243373824495`", "6.511003827096767`", "7.247133212669288`", "7.790957476789282`", "9.245208027503434`", "8.825322525913391`", "8.741209341991542`", "8.273115657094182`", "9.592595712764798`", "9.827503262774623`", "10.161730236785269`", "10.847609016975671`", "6.381065998123721`", "7.2725288859915755`", "9.417702828775061`", "10.48056358229701`", "7.710836790803152`", "4.383461464012471`", "4.063958305725884`", "4.95438081449035`", "0.`", "3.2552721480745648`", "9.76783042593918`", "9.02675652418874`", "9.111348663979458`", "10.101990068516846`", "7.890226645308657`", "7.517226958749106`", "9.155434318328961`", "9.801307831481088`", "10.913305715289624`", "10.416310638254494`", "8.562743241122963`", "11.596717452726045`", "9.141505592798303`", "11.021742792557147`", "11.602886668765281`", "12.630652859181243`"}, {"6.659595599829205`", "7.545242766076033`", "4.088985713134699`", "6.402213164976631`", "4.093183735406443`", "2.021964407127651`", "8.314706480775177`", "8.579596687320475`", "7.541008951857932`", "8.968496603283356`", "5.332707568665385`", "5.198921971370764`", "10.135109635385668`", "11.202733618812903`", "11.239710876366667`", "7.786427203481893`", "9.757615942714132`", "9.327936438191886`", "12.410312334153875`", "12.050129723079204`", "13.226074783658849`", "4.894612393399663`", "9.551970044816164`", "10.011496223329736`", "13.1584188672839`", "8.642528409717743`", "4.7598595308121`", "6.35468310827447`", "4.672240289048095`", "3.2552721480745648`", "0.`", "10.136541620873077`", "8.929506902270425`", "8.391597498991896`", "8.821576994494878`", "9.141570024822324`", "4.7615598806706245`", "7.214641754127924`", "11.971342813045315`", "12.600417844073167`", "9.119551919717708`", "9.422179369890035`", "11.160627935733242`", "8.866557063570086`", "13.785552978386065`", "13.293705335721757`", "15.103060560099559`"}, {"4.158058787417201`", "5.872241733615487`", "6.1988403338562605`", "8.470157894111097`", "8.997260362432495`", "8.785079433614742`", "2.022008820155653`", "4.802926962471664`", "4.080047341911475`", "10.13869481909909`", "8.274359608248007`", "7.746706565141996`", "6.451630414273711`", "10.57193385827496`", "9.360594832639936`", "9.218664952727753`", "5.649910640273496`", "10.871012914935125`", "8.381691405457703`", "7.689346323934307`", "8.855318013472738`", "6.208803212200521`", "7.0350295496989155`", "10.028016186080126`", "10.890191375894975`", "5.486377231819484`", "6.925186547354508`", "9.74422235459907`", "10.993542867909762`", "9.76783042593918`", "10.136541620873077`", "0.`", "3.225918156827449`", "4.552243707881227`", "4.996146368994543`", "11.964805405926095`", "9.610440402191701`", "7.600220993016526`", "12.424595559940924`", "10.713450333458294`", "9.455835374294269`", "5.739233437723372`", "12.001466224637506`", "12.213028242568944`", "9.952226347636412`", "8.992284836843309`", "10.68234625423354`"}, {"4.113050893735127`", "4.7941195134356205`", "5.757765362209378`", "6.756738425475895`", "6.966733019768621`", "7.65496846838069`", "2.0218864253419775`", "6.249890450229535`", "4.0355817991091465`", "8.061887223398081`", "5.619302254016938`", "5.605471553856792`", "7.576808787467328`", "9.135704091030675`", "8.826937159858746`", "6.110988400577941`", "7.940314030672993`", "7.863884064138501`", "9.969101800723347`", "10.210011766420855`", "11.076198223081873`", "5.249986814832375`", "6.918913979153853`", "7.408721220220179`", "10.7923193625875`", "3.658639685586148`", "7.297933061773952`", "8.47154358139056`", "8.80006687116963`", "9.02675652418874`", "8.929506902270425`", "3.225918156827449`", "0.`", "5.680620608951039`", "4.441024469505114`", "9.809708680719949`", "7.623063681110761`", "5.266831629676173`", "11.041511756101011`", "9.15579573701661`", "6.271452467178535`", "8.052276203232049`", "8.886412339414065`", "9.33323090823067`", "11.272980641515748`", "11.726609910184486`", "13.008822292611653`"}, {"5.420183051779546`", "8.158085450385668`", "5.07640155681542`", "9.882541709651342`", "9.13387585075046`", "7.867752170390139`", "4.069182340383738`", "6.490136731676814`", "2.022063290229071`", "12.253772204734316`", "8.279093027932477`", "6.366452512561016`", "9.01966445793068`", "13.45869561836688`", "12.43627808074261`", "9.997828903254666`", "6.217109265486245`", "12.343655481619974`", "10.973394382201453`", "8.681330413950509`", "10.782221541774799`", "3.994176192889472`", "9.872780689949128`", "12.333054282092695`", "14.12068759265923`", "8.337124322484469`", "5.169908609032638`", "10.84671601861793`", "10.988373551529618`", "9.111348663979458`", "8.391597498991896`", "4.552243707881227`", "5.680620608951039`", "0.`", "3.236471634872889`", "13.676994937055508`", "7.570166331554468`", "6.4796438206920515`", "15.099203548903706`", "14.028781450678993`", "10.120619282548287`", "4.8628269104432365`", "13.642496604539978`", "13.279412584086813`", "12.857066510388128`", "9.383643340465602`", "12.599323538342636`"}, {"6.290767261764081`", "8.301568682480067`", "6.1220288649558245`", "9.75451975209396`", "8.743967695035401`", "8.412698472189705`", "4.030914815469886`", "8.2682329723385`", "2.021999431069534`", "11.646400595052446`", "6.9378808466082535`", "4.869229259229046`", "10.468626622944933`", "13.191560880314741`", "12.791750056551388`", "8.060084037374912`", "8.803374118786621`", "10.635545474914657`", "12.725595225638864`", "11.316241909712259`", "13.05327606835873`", "3.956371748008843`", "10.538028986265692`", "11.04953804732995`", "14.733409568242353`", "7.783392004681037`", "7.134661910110758`", "11.180374912117344`", "10.444351633988305`", "10.101990068516846`", "8.821576994494878`", "4.996146368994543`", "4.441024469505114`", "3.236471634872889`", "0.`", "13.066996137461688`", "6.314560107066175`", "4.039232969883265`", "14.961508943748465`", "13.443278249520473`", "7.648343476440969`", "7.843677522418254`", "11.586348474023433`", "11.807128260244792`", "14.403667325424914`", "12.264608834135798`", "14.950568839197835`"}, {"8.870017604594322`", "6.371542208569007`", "9.431946232734004`", "3.9800394279564477`", "5.410575752955814`", "7.8322669435287695`", "10.557726751847563`", "10.465529862533522`", "12.089402535409214`", "2.022110022985657`", "6.961189754185856`", "9.770537035882676`", "9.862177132244026`", "4.1523395501404945`", "6.411375876796803`", "6.748484854457874`", "13.04446280899825`", "4.900878779937843`", "11.858514957007737`", "14.650186764544312`", "14.162207138040493`", "10.720582466820336`", "7.234164456548385`", "3.839334403705328`", "8.219627631852445`", "6.661204442810375`", "10.921392222313862`", "4.314326571483269`", "4.957618783157461`", "7.890226645308657`", "9.141570024822324`", "11.964805405926095`", "9.809708680719949`", "13.676994937055508`", "13.066996137461688`", "0.`", "10.577584037105868`", "10.85622460966622`", "4.210333701198727`", "5.37143263558295`", "8.640069355425508`", "14.012904756217305`", "6.45643432184463`", "4.2056525013122386`", "11.983075895052801`", "16.58854861285305`", "15.831729007640634`"}, {"7.73411665237466`", "8.757313217212076`", "5.740016832429208`", "8.170255095026926`", "5.601577033277962`", "5.552577695606184`", "7.677402863251084`", "10.384317010379371`", "6.177179511961237`", "10.090950985859696`", "3.9931964408801672`", "2.022164803399098`", "12.251631288393115`", "12.656240510014742`", "13.158946435093718`", "5.803222944134508`", "11.579552455374111`", "8.325032012844977`", "14.799808660618469`", "14.205903022277083`", "15.639663036265627`", "3.9089260895862923`", "11.426791153474882`", "9.83942249778279`", "15.357124928679843`", "8.794061016691224`", "7.138275257758313`", "9.19922316294167`", "6.272226754539285`", "7.517226958749106`", "4.7615598806706245`", "9.610440402191701`", "7.623063681110761`", "7.570166331554468`", "6.314560107066175`", "10.577584037105868`", "0.`", "3.3513020796625685`", "13.876343794979249`", "13.43319254156507`", "6.107578527058314`", "10.86273250605975`", "9.57036961230882`", "8.464145416495752`", "16.25984677223038`", "15.400325371654727`", "17.6371624273533`"}, {"7.073912053647132`", "8.060395328497679`", "6.246365611595657`", "8.331626600304615`", "6.577497462801042`", "7.163417681743494`", "5.856500978997654`", "9.811666779049872`", "4.673199817320111`", "9.85985228579441`", "4.021742640097958`", "2.0218598310626303`", "11.635406417884425`", "12.10785746916205`", "12.556588844972`", "4.879902179108611`", "11.108724110570515`", "7.7063182191505195`", "14.20277910239626`", "13.73725897926911`", "15.105187505718364`", "3.937109472889834`", "10.787640679511567`", "8.959251551742005`", "14.76916647205398`", "7.413696274104737`", "7.911867377880389`", "9.890268349887318`", "7.751714406629797`", "9.155434318328961`", "7.214641754127924`", "7.600220993016526`", "5.266831629676173`", "6.4796438206920515`", "4.039232969883265`", "10.85622460966622`", "3.3513020796625685`", "0.`", "13.682665993417944`", "12.426319818174898`", "4.369494538812745`", "10.47564982140419`", "8.582564305848937`", "8.628670989737811`", "15.63951013861069`", "14.991326665868527`", "17.11176407349083`"}, {"9.763912988732372`", "6.951562023151498`", "11.224197240373558`", "5.906944432264949`", "8.476157201100698`", "10.255692227165397`", "11.603316786762704`", "10.318681092526328`", "13.775310462813508`", "3.984372022665647`", "10.137716328577808`", "12.717912081994355`", "8.715192462250661`", "2.0221091098705344`", "3.9223039008938234`", "9.973221336284665`", "12.874932024508773`", "8.172132102886803`", "9.960277783513206`", "13.79786822622171`", "12.562164982881898`", "13.008205182364694`", "6.127102545757401`", "5.9103105376644365`", "4.818540803826755`", "7.388377372375795`", "12.36631167691352`", "5.763272554324799`", "8.641262610879746`", "9.801307831481088`", "11.971342813045315`", "12.424595559940924`", "11.041511756101011`", "15.099203548903706`", "14.961508943748465`", "4.210333701198727`", "13.876343794979249`", "13.682665993417944`", "0.`", "3.4277069090648107`", "11.686386883424273`", "14.338992537064724`", "9.385936422872794`", "8.116815168814131`", "9.4215893918724`", "15.79818011719575`", "13.893412671029655`"}, {"9.0864384908495`", "6.236235420785251`", "11.078945837094896`", "6.220833443165194`", "8.756017249416221`", "10.815462596389768`", "10.122789254032357`", "9.89069562224219`", "12.572452696850577`", "4.057343177277496`", "9.49851020542681`", "11.939160114393035`", "8.468819043672651`", "2.021990598315014`", "3.994445347533051`", "8.800468676484122`", "12.5079053383016`", "7.128091126656633`", "9.940612843081762`", "13.597948750607234`", "12.519986967330068`", "12.363401034362976`", "5.799417628512822`", "4.44734491773006`", "5.3152291977203`", "5.745190858174559`", "12.481235209813498`", "7.0865812423900945`", "9.365496106918252`", "10.913305715289624`", "12.600417844073167`", "10.713450333458294`", "9.15579573701661`", "14.028781450678993`", "13.443278249520473`", "5.37143263558295`", "13.43319254156507`", "12.426319818174898`", "3.4277069090648107`", "0.`", "10.10845704480376`", "13.891495452017358`", "7.932555096795839`", "7.90900637267891`", "9.569986608791751`", "15.61187146871844`", "13.955823342382521`"}, {"8.63272964916831`", "8.060452785938244`", "8.661512530254274`", "7.661050619996992`", "6.54921703222436`", "8.666166053654843`", "7.824889587627878`", "11.420067455111694`", "8.109058783873719`", "7.827185287190332`", "3.9357773433586365`", "5.040169128317869`", "12.427615763590062`", "10.205141612766235`", "11.56775273439481`", "2.021909298602956`", "13.418841404543507`", "4.196254098823042`", "15.01019149350888`", "15.84711327846385`", "16.56101468087713`", "7.400795480816595`", "10.663566018666883`", "6.009866981660313`", "13.824974503349218`", "6.82447740976742`", "10.653944854567776`", "9.506905008480475`", "7.101094054044292`", "10.416310638254494`", "9.119551919717708`", "9.455835374294269`", "6.271452467178535`", "10.120619282548287`", "7.648343476440969`", "8.640069355425508`", "6.107578527058314`", "4.369494538812745`", "11.686386883424273`", "10.10845704480376`", "0.`", "13.365593760083362`", "4.4182458678665375`", "5.5457931476778315`", "15.987782499138747`", "17.437341008978006`", "18.541999973827863`"}, {"5.451990986477748`", "8.069349109755967`", "5.854363855806336`", "10.068272136203888`", "10.249248146744216`", "8.394104313990784`", "6.045754888965258`", "4.105759238714308`", "6.076865237278945`", "12.601341109792`", "10.694835272644383`", "9.718699778445279`", "6.403615062782629`", "12.9895461335742`", "11.078880187456763`", "12.633155368128062`", "2.0219515958889405`", "14.323603368361258`", "7.49804301907575`", "4.091141968156923`", "6.539152431263399`", "7.033993915352412`", "8.446533552414122`", "13.547198057299548`", "12.14467836681734`", "9.088090667604309`", "4.676061016119794`", "10.300542969550817`", "12.125463934256993`", "8.562743241122963`", "9.422179369890035`", "5.739233437723372`", "8.052276203232049`", "4.8628269104432365`", "7.843677522418254`", "14.012904756217305`", "10.86273250605975`", "10.47564982140419`", "14.338992537064724`", "13.891495452017358`", "13.365593760083362`", "0.`", "15.933433140897707`", "15.02482583214704`", "9.51930647418647`", "4.692607793227635`", "8.189947118556633`"}, {"10.589416635717594`", "8.783913491040146`", "11.116489450603451`", "7.628277020918091`", "7.540630666947197`", "10.380111366753287`", "10.547549668490063`", "13.038091069055692`", "11.646404405819203`", "6.164862793965765`", "6.307639119562161`", "8.667948842235662`", "13.198446329971567`", "8.324767383321392`", "10.592207468995777`", "3.9474672634211645`", "15.47980669567217`", "2.021979276261204`", "15.571692984801624`", "17.58603598001758`", "17.647235564848124`", "10.783291905978837`", "10.751307302346461`", "3.8256191098571892`", "12.656969146487327`", "7.5712522637592805`", "13.106206602627319`", "9.264712062298157`", "7.368627704502649`", "11.596717452726045`", "11.160627935733242`", "12.001466224637506`", "8.886412339414065`", "13.642496604539978`", "11.586348474023433`", "6.45643432184463`", "9.57036961230882`", "8.582564305848937`", "9.385936422872794`", "7.932555096795839`", "4.4182458678665375`", "15.933433140897707`", "0.`", "3.3481427258296623`", "16.0284647839391`", "19.418133705386385`", "19.50522238428483`"}, {"9.710959784848216`", "7.8810305513162735`", "9.69513522579762`", "5.7728531067597375`", "5.314906253319098`", "8.193507841354691`", "10.51029267041149`", "12.10370286955749`", "11.40692312408293`", "4.697334822128171`", "5.188547831666065`", "7.939297260099693`", "12.267582215602314`", "7.473276437684774`", "9.702044736080586`", "3.974164428008931`", "14.544558813508417`", "2.022093732547277`", "14.648128890990769`", "16.634186537429247`", "16.70109051147489`", "9.880736444176383`", "9.823977216277367`", "3.8517937802710116`", "11.794676179816534`", "7.435354300015628`", "11.542215558551588`", "6.944141858275241`", "4.493529783321128`", "9.141505592798303`", "8.866557063570086`", "12.213028242568944`", "9.33323090823067`", "13.279412584086813`", "11.807128260244792`", "4.2056525013122386`", "8.464145416495752`", "8.628670989737811`", "8.116815168814131`", "7.90900637267891`", "5.5457931476778315`", "15.02482583214704`", "3.3481427258296623`", "0.`", "15.140072129201753`", "18.46450500847843`", "18.561474145070072`"}, {"8.743080501513003`", "8.079825479605045`", "10.94968421875413`", "9.810808038751722`", "12.173203580702047`", "11.864361116940893`", "10.48360677046522`", "6.519958879924849`", "12.745965133742702`", "10.646523548718363`", "13.686479305728977`", "14.758960419198283`", "4.0945143871621825`", "8.794653701758929`", "5.905066056876251`", "14.657365686671916`", "7.497382503416148`", "14.545532535588283`", "2.0218933309096596`", "6.549910072065002`", "4.134935733071125`", "13.222646265298687`", "5.457886491733985`", "12.320191353302532`", "4.900850553687264`", "9.199878374425026`", "10.799084326442639`", "9.434277435127182`", "13.57783430987644`", "11.021742792557147`", "13.785552978386065`", "9.952226347636412`", "11.272980641515748`", "12.857066510388128`", "14.403667325424914`", "11.983075895052801`", "16.25984677223038`", "15.63951013861069`", "9.4215893918724`", "9.569986608791751`", "15.987782499138747`", "9.51930647418647`", "16.0284647839391`", "15.140072129201753`", "0.`", "8.212414908581327`", "4.771685647735625`"}, {"8.98844924270981`", "10.83446243857582`", "9.98342320709408`", "12.95792202986138`", "13.849458197558377`", "12.064739558811207`", "9.894710579293553`", "6.415851230041006`", "10.590644900340921`", "15.171546818911274`", "14.761752514254749`", "14.21215561940514`", "7.19489729110178`", "14.711800049400457`", "12.164113633982597`", "16.549179820121406`", "4.054915122413112`", "17.789825025259606`", "6.502663565736763`", "2.022075007935168`", "4.107442440283835`", "11.615747426905063`", "9.96689023660395`", "16.47538346794574`", "12.373841961673193`", "12.01201563289912`", "8.670670108871265`", "12.777996626024294`", "15.63401377194285`", "11.602886668765281`", "13.293705335721757`", "8.992284836843309`", "11.726609910184486`", "9.383643340465602`", "12.264608834135798`", "16.58854861285305`", "15.400325371654727`", "14.991326665868527`", "15.79818011719575`", "15.61187146871844`", "17.437341008978006`", "4.692607793227635`", "19.418133705386385`", "18.46450500847843`", "8.212414908581327`", "0.`", "4.713395760567371`"}, {"10.231105361436942`", "10.881460961439092`", "11.955771593366388`", "12.907218716326243`", "14.646890482712921`", "13.472371834086537`", "11.616830523999866`", "7.369892741846511`", "13.231600103781206`", "14.459744340266`", "15.982950221209041`", "16.259303399164875`", "6.340417775638976`", "13.130250326022546`", "10.2632625182596`", "17.401951335556326`", "6.514397868162342`", "17.92748814528883`", "4.0815132924271165`", "4.11944228963415`", "2.021883473733498`", "14.070352464047653`", "8.916783024085843`", "16.039193595483894`", "9.628309351216206`", "12.095964716717805`", "11.081374951936118`", "12.489967343866935`", "16.26288992135138`", "12.630652859181243`", "15.103060560099559`", "10.68234625423354`", "13.008822292611653`", "12.599323538342636`", "14.950568839197835`", "15.831729007640634`", "17.6371624273533`", "17.11176407349083`", "13.893412671029655`", "13.955823342382521`", "18.541999973827863`", "8.189947118556633`", "19.50522238428483`", "18.561474145070072`", "4.771685647735625`", "4.713395760567371`", "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.574181428455598*^9, 3.5749278256473217`*^9, 3.580218504702338*^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}], Cell[BoxData[ TagBox[ RowBox[{"(", "\[NoBreak]", GridBox[{ {"1", "2", "3", "4", "5", "6", "7", "8", "9", "10", "11", "12", "13", "14", "15", "16", "17", "18", "19", "20", "21", "22", "23", "24", "25", "26", "27", "28", "29", "30", "31", "32", "33", "34", "35", "36", "37", "38", "39", "40", "41", "42", "43", "44", "45", "46", "47"}, {"0.`", "2.9133559930018156`", "2.9178260832413088`", "0", "0", "0", "2.9321352168821497`", "2.8786543592318763`", "0", "0", "0", "0", "0", "0", "0", "0", "0", "0", "0", "0", "0", "0", "0", "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.9133559930018156`", "0.`", "0", "2.8932575753791507`", "0", "0", "0", "0", "0", "0", "0", "0", "0", "0", "0", "0", "0", "0", "0", "0", "0", "0", "2.784041656295211`", "0", "0", "2.021990241471804`", "0", "0", "0", "0", "0", "0", "0", "0", "0", "0", "0", "0", "0", "0", "0", "0", "0", "0", "0", "0", "0"}, {"2.9178260832413088`", "0", "0.`", "0", "0", "2.9200010874932785`", "0", "0", "0", "0", "0", "0", "0", "0", "0", "0", "0", "0", "0", "0", "0", "2.7755277578415423`", "0", "0", "0", "0", "2.021949101734182`", "0", "0", "0", "0", "0", "0", "0", "0", "0", "0", "0", "0", "0", "0", "0", "0", "0", "0", "0", "0"}, {"0", "2.8932575753791507`", "0", "0.`", "2.869110215227484`", "0", "0", "0", "0", "2.919162985727917`", "0", "0", "0", "0", "0", "0", "0", "0", "0", "0", "0", "0", "0", "0", "0", "0", "0", "2.022091331234718`", "0", "0", "0", "0", "0", "0", "0", "0", "0", "0", "0", "0", "0", "0", "0", "0", "0", "0", "0"}, {"0", "0", "0", "2.869110215227484`", "0.`", "2.9246264478565784`", "0", "0", "0", "0", "2.8724382681350535`", "0", "0", "0", "0", "0", "0", "0", "0", "0", "0", "0", "0", "0", "0", "0", "0", "0", "2.022013336895049`", "0", "0", "0", "0", "0", "0", "0", "0", "0", "0", "0", "0", "0", "0", "0", "0", "0", "0"}, {"0", "0", "2.9200010874932785`", "0", "2.9246264478565784`", "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.0219053509123794`", "2.021964407127651`", "0", "0", "0", "0", "0", "0", "0", "0", "0", "0", "0", "0", "0", "0", "0", "0"}, {"2.9321352168821497`", "0", "0", "0", "0", "0", "0.`", "0", "2.8446992998278384`", "0", "0", "0", "0", "0", "0", "0", "0", "0", "0", "0", "0", "0", "0", "0", "0", "0", "0", "0", "0", "0", "0", "2.022008820155653`", "2.0218864253419775`", "0", "0", "0", "0", "0", "0", "0", "0", "0", "0", "0", "0", "0", "0"}, {"2.8786543592318763`", "0", "0", "0", "0", "0", "0", "0.`", "0", "0", "0", "0", "2.624226923673399`", "0", "0", "0", "2.6804165261567796`", "0", "0", "0", "0", "0", "0", "0", "0", "0", "0", "0", "0", "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.8446992998278384`", "0", "0.`", "0", "0", "0", "0", "0", "0", "0", "0", "0", "0", "0", "0", "2.760010552211306`", "0", "0", "0", "0", "0", "0", "0", "0", "0", "0", "0", "2.022063290229071`", "2.021999431069534`", "0", "0", "0", "0", "0", "0", "0", "0", "0", "0", "0", "0"}, {"0", "0", "0", "2.919162985727917`", "0", "0", "0", "0", "0", "0.`", "0", "0", "0", "2.968765103545444`", "0", "0", "0", "0", "0", "0", "0", "0", "0", "2.690170364151429`", "0", "0", "0", "0", "0", "0", "0", "0", "0", "0", "0", "2.022110022985657`", "0", "0", "0", "0", "0", "0", "0", "0", "0", "0", "0"}, {"0", "0", "0", "0", "2.8724382681350535`", "0", "0", "0", "0", "0", "0.`", "2.8914473243516703`", "0", "0", "0", "2.5460861049836723`", "0", "0", "0", "0", "0", "0", "0", "0", "0", "0", "0", "0", "0", "0", "0", "0", "0", "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.8914473243516703`", "0.`", "0", "0", "0", "0", "0", "0", "0", "0", "0", "2.7949987301991444`", "0", "0", "0", "0", "0", "0", "0", "0", "0", "0", "0", "0", "0", "0", "2.022164803399098`", "2.0218598310626303`", "0", "0", "0", "0", "0", "0", "0", "0", "0"}, {"0", "0", "0", "0", "0", "0", "0", "2.624226923673399`", "0", "0", "0", "0", "0.`", "0", "0", "0", "0", "0", "2.6360372198895394`", "0", "0", "0", "2.8156340751181768`", "0", "0", "0", "0", "0", "0", "0", "0", "0", "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.968765103545444`", "0", "0", "0", "0.`", "2.8971654349625475`", "0", "0", "0", "0", "0", "0", "0", "0", "0", "0", "0", "0", "0", "0", "0", "0", "0", "0", "0", "0", "0", "0", "0", "2.0221091098705344`", "2.021990598315014`", "0", "0", "0", "0", "0", "0", "0"}, {"0", "0", "0", "0", "0", "0", "0", "0", "0", "0", "0", "0", "0", "2.8971654349625475`", "0.`", "0", "0", "0", "0", "0", "0", "0", "2.670885270031329`", "0", "2.292974669882745`", "0", "0", "0", "0", "0", "0", "0", "0", "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.5460861049836723`", "0", "0", "0", "0", "0.`", "0", "2.8355941397700484`", "0", "0", "0", "0", "0", "0", "0", "0", "0", "0", "0", "0", "0", "0", "0", "0", "0", "0", "0", "0", "0", "0", "2.021909298602956`", "0", "0", "0", "0", "0", "0"}, {"0", "0", "0", "0", "0", "0", "0", "2.6804165261567796`", "0", "0", "0", "0", "0", "0", "0", "0", "0.`", "0", "0", "2.6641190597447513`", "0", "0", "0", "0", "0", "0", "0", "0", "0", "0", "0", "0", "0", "0", "0", "0", "0", "0", "0", "0", "0", "2.0219515958889405`", "0", "0", "0", "0", "0"}, {"0", "0", "0", "0", "0", "0", "0", "0", "0", "0", "0", "0", "0", "0", "0", "2.8355941397700484`", "0", "0.`", "0", "0", "0", "0", "0", "2.6953506555414566`", "0", "0", "0", "0", "0", "0", "0", "0", "0", "0", "0", "0", "0", "0", "0", "0", "0", "0", "2.021979276261204`", "2.022093732547277`", "0", "0", "0"}, {"0", "0", "0", "0", "0", "0", "0", "0", "0", "0", "0", "0", "2.6360372198895394`", "0", "0", "0", "0", "0", "0.`", "0", "2.6805787881755534`", "0", "0", "0", "0", "0", "0", "0", "0", "0", "0", "0", "0", "0", "0", "0", "0", "0", "0", "0", "0", "0", "0", "0", "2.0218933309096596`", "0", "0"}, {"0", "0", "0", "0", "0", "0", "0", "0", "0", "0", "0", "0", "0", "0", "0", "0", "2.6641190597447513`", "0", "0", "0.`", "2.72247348114146`", "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.022075007935168`", "0"}, {"0", "0", "0", "0", "0", "0", "0", "0", "0", "0", "0", "0", "0", "0", "0", "0", "0", "0", "2.6805787881755534`", "2.72247348114146`", "0.`", "0", "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.021883473733498`"}, {"0", "0", "2.7755277578415423`", "0", "0", "0", "0", "0", "2.760010552211306`", "0", "0", "2.7949987301991444`", "0", "0", "0", "0", "0", "0", "0", "0", "0", "0.`", "0", "0", "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.784041656295211`", "0", "0", "0", "0", "0", "0", "0", "0", "0", "0", "2.8156340751181768`", "0", "2.670885270031329`", "0", "0", "0", "0", "0", "0", "0", "0.`", "0", "0", "0", "0", "0", "0", "0", "0", "0", "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.690170364151429`", "0", "0", "0", "0", "0", "0", "0", "2.6953506555414566`", "0", "0", "0", "0", "0", "0.`", "0", "0", "0", "0", "0", "0", "0", "0", "0", "0", "0", "0", "0", "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.292974669882745`", "0", "0", "0", "0", "0", "0", "0", "0", "0", "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.021990241471804`", "0", "0", "0", "0", "0", "0", "0", "0", "0", "0", "0", "0", "0", "0", "0", "0", "0", "0", "0", "0", "0", "0", "0", "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.021949101734182`", "0", "0", "0", "0", "0", "0", "0", "0", "0", "0", "0", "0", "0", "0", "0", "0", "0", "0", "0", "0", "0", "0", "0", "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.022091331234718`", "0", "0", "0", "0", "0", "0", "0", "0", "0", "0", "0", "0", "0", "0", "0", "0", "0", "0", "0", "0", "0", "0", "0", "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.022013336895049`", "0", "0", "0", "0", "0", "0", "0", "0", "0", "0", "0", "0", "0", "0", "0", "0", "0", "0", "0", "0", "0", "0", "0", "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.0219053509123794`", "0", "0", "0", "0", "0", "0", "0", "0", "0", "0", "0", "0", "0", "0", "0", "0", "0", "0", "0", "0", "0", "0", "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.021964407127651`", "0", "0", "0", "0", "0", "0", "0", "0", "0", "0", "0", "0", "0", "0", "0", "0", "0", "0", "0", "0", "0", "0", "0", "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.022008820155653`", "0", "0", "0", "0", "0", "0", "0", "0", "0", "0", "0", "0", "0", "0", "0", "0", "0", "0", "0", "0", "0", "0", "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.0218864253419775`", "0", "0", "0", "0", "0", "0", "0", "0", "0", "0", "0", "0", "0", "0", "0", "0", "0", "0", "0", "0", "0", "0", "0", "0", "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.022063290229071`", "0", "0", "0", "0", "0", "0", "0", "0", "0", "0", "0", "0", "0", "0", "0", "0", "0", "0", "0", "0", "0", "0", "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.021999431069534`", "0", "0", "0", "0", "0", "0", "0", "0", "0", "0", "0", "0", "0", "0", "0", "0", "0", "0", "0", "0", "0", "0", "0", "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.022110022985657`", "0", "0", "0", "0", "0", "0", "0", "0", "0", "0", "0", "0", "0", "0", "0", "0", "0", "0", "0", "0", "0", "0", "0", "0", "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.022164803399098`", "0", "0", "0", "0", "0", "0", "0", "0", "0", "0", "0", "0", "0", "0", "0", "0", "0", "0", "0", "0", "0", "0", "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.0218598310626303`", "0", "0", "0", "0", "0", "0", "0", "0", "0", "0", "0", "0", "0", "0", "0", "0", "0", "0", "0", "0", "0", "0", "0", "0", "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.0221091098705344`", "0", "0", "0", "0", "0", "0", "0", "0", "0", "0", "0", "0", "0", "0", "0", "0", "0", "0", "0", "0", "0", "0", "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.021990598315014`", "0", "0", "0", "0", "0", "0", "0", "0", "0", "0", "0", "0", "0", "0", "0", "0", "0", "0", "0", "0", "0", "0", "0", "0", "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.021909298602956`", "0", "0", "0", "0", "0", "0", "0", "0", "0", "0", "0", "0", "0", "0", "0", "0", "0", "0", "0", "0", "0", "0", "0", "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.0219515958889405`", "0", "0", "0", "0", "0", "0", "0", "0", "0", "0", "0", "0", "0", "0", "0", "0", "0", "0", "0", "0", "0", "0", "0", "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.021979276261204`", "0", "0", "0", "0", "0", "0", "0", "0", "0", "0", "0", "0", "0", "0", "0", "0", "0", "0", "0", "0", "0", "0", "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.022093732547277`", "0", "0", "0", "0", "0", "0", "0", "0", "0", "0", "0", "0", "0", "0", "0", "0", "0", "0", "0", "0", "0", "0", "0", "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.0218933309096596`", "0", "0", "0", "0", "0", "0", "0", "0", "0", "0", "0", "0", "0", "0", "0", "0", "0", "0", "0", "0", "0", "0", "0", "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.022075007935168`", "0", "0", "0", "0", "0", "0", "0", "0", "0", "0", "0", "0", "0", "0", "0", "0", "0", "0", "0", "0", "0", "0", "0", "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.021883473733498`", "0", "0", "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.5741814285023975`*^9, 3.5749278256941214`*^9, 3.580218504749138*^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["21"], "Output", CellChangeTimes->{3.5741814285179977`*^9, 3.5749278257097216`*^9, 3.580218504749138*^9}] }, Open ]], Cell[CellGroupData[{ Cell[BoxData[ RowBox[{ RowBox[{"(*", " ", RowBox[{ "count", " ", "H", " ", "atoms", " ", "bonded", " ", "to", " ", "each", " ", "C", " ", "atom"}], " ", "*)"}], "\[IndentingNewLine]", RowBox[{ RowBox[{ RowBox[{"For", "[", RowBox[{ RowBox[{"j", "=", "1"}], ",", RowBox[{"j", "\[LessEqual]", "nc"}], ",", RowBox[{"j", "++"}], ",", "\[IndentingNewLine]", RowBox[{"For", "[", RowBox[{ RowBox[{"i", "=", RowBox[{"bc", "+", "1"}]}], ",", RowBox[{"i", "\[LessEqual]", "n"}], ",", RowBox[{"i", "++"}], ",", RowBox[{"If", "[", " ", RowBox[{ RowBox[{ RowBox[{"Dij", "[", RowBox[{"[", RowBox[{"i", ",", "j"}], "]"}], "]"}], "\[NotEqual]", "0"}], " ", ",", RowBox[{ RowBox[{"cnt", "[", RowBox[{"[", "j", "]"}], "]"}], "=", RowBox[{ RowBox[{"cnt", "[", RowBox[{"[", "j", "]"}], "]"}], "+", "1"}]}], ",", "0"}], "]"}]}], "]"}]}], "]"}], ";"}], "\[IndentingNewLine]", "cnt"}]}]], "Input", CellChangeTimes->{{3.5688800293771057`*^9, 3.5688801774057655`*^9}, { 3.5688802290574565`*^9, 3.568880330208034*^9}, {3.5688803807053227`*^9, 3.5688804136525807`*^9}, 3.568880491434317*^9, 3.5688805648948464`*^9, { 3.5688806280437574`*^9, 3.568880655234605*^9}, {3.568880712424306*^9, 3.568880716324312*^9}, {3.5688808087544746`*^9, 3.568880827786508*^9}, 3.5688808733385878`*^9, {3.568881358936241*^9, 3.5688813959239063`*^9}, { 3.568881446561595*^9, 3.5688815849182377`*^9}, {3.5688816223739033`*^9, 3.568881642607139*^9}, 3.568881728953291*^9, {3.568881797624612*^9, 3.568881809870633*^9}, 3.568881863612727*^9, {3.568883098916497*^9, 3.5688831014749017`*^9}, {3.56888372124679*^9, 3.568883843239004*^9}, 3.568888211750622*^9, {3.5688882521546926`*^9, 3.5688885232519693`*^9}, { 3.5688885890840845`*^9, 3.5688885895052853`*^9}, {3.568888675773437*^9, 3.5688886914514647`*^9}, {3.568888736285943*^9, 3.5688887717760057`*^9}, { 3.5688888256429005`*^9, 3.5688888541441507`*^9}, {3.568892442649892*^9, 3.5688924499507046`*^9}, {3.568892758441247*^9, 3.5688927597360487`*^9}, { 3.5688928234309607`*^9, 3.5688928379389863`*^9}, {3.5708938149488974`*^9, 3.5708938463361526`*^9}, {3.570893920483083*^9, 3.5708939282050962`*^9}, { 3.570894700000852*^9, 3.570894821930666*^9}, 3.5709437180911617`*^9, { 3.57252947817727*^9, 3.572529509876525*^9}, {3.5725312638188057`*^9, 3.572531289964452*^9}}], Cell[BoxData[ RowBox[{"{", RowBox[{ "0", ",", "1", ",", "1", ",", "1", ",", "1", ",", "2", ",", "2", ",", "0", ",", "2", ",", "1", ",", "0", ",", "2", ",", "0", ",", "2", ",", "0", ",", "1", ",", "1", ",", "2", ",", "1", ",", "1", ",", "1"}], "}"}]], "Output", CellChangeTimes->{3.574181428533598*^9, 3.5749278257097216`*^9, 3.580218504764738*^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.255"}]}], "]"}]}], "]"}], "\[IndentingNewLine]", RowBox[{"For", " ", "[", RowBox[{ RowBox[{"i", "=", "1"}], ",", " ", RowBox[{"i", "\[LessEqual]", "nc"}], ",", RowBox[{"i", "++"}], ",", RowBox[{"If", "[", RowBox[{ RowBox[{ RowBox[{"ter", "[", RowBox[{"[", "i", "]"}], "]"}], "\[NotEqual]", "0"}], ",", RowBox[{ RowBox[{"u2", "[", RowBox[{"[", RowBox[{"ter", "[", RowBox[{"[", "i", "]"}], "]"}], "]"}], "]"}], "=", "0.255"}]}], "]"}]}], "]"}], "\[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.255"}]}], "]"}]}], "]"}]}]}]], "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.574180816216922*^9, 3.574180822472533*^9}, {3.574180878180231*^9, 3.574180888304649*^9}, { 3.5741810528225374`*^9, 3.5741810579705467`*^9}, {3.5741811181242523`*^9, 3.5741811228978605`*^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.624226923673399`", ",", "2.5460861049836723`", ",", "2.6804165261567796`", ",", "2.6360372198895394`", ",", "2.6641190597447513`", ",", "2.6805787881755534`", ",", "2.72247348114146`"}], "}"}]], "Output", CellChangeTimes->{3.5741814285491977`*^9, 3.574927825725322*^9, 3.5802185047803383`*^9}], Cell[BoxData[ RowBox[{"2.650562586252165`", "\[PlusMinus]", "0.05622436217623285`"}]], "Output", CellChangeTimes->{3.5741814285491977`*^9, 3.574927825725322*^9, 3.5802185047803383`*^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.9133559930018156`", ",", "2.9178260832413088`", ",", "2.8932575753791507`", ",", "2.869110215227484`", ",", "2.9200010874932785`", ",", "2.9246264478565784`", ",", "2.9321352168821497`", ",", "2.8786543592318763`", ",", "2.8446992998278384`", ",", "2.919162985727917`", ",", "2.8724382681350535`", ",", "2.8914473243516703`", ",", "2.968765103545444`", ",", "2.8971654349625475`", ",", "2.8355941397700484`"}], "}"}]], "Output", CellChangeTimes->{3.5741814285647974`*^9, 3.5749278257409215`*^9, 3.580218504795938*^9}], Cell[BoxData[ RowBox[{"2.8985493023089437`", "\[PlusMinus]", "0.03495099717564487`"}]], "Output", CellChangeTimes->{3.5741814285647974`*^9, 3.5749278257409215`*^9, 3.580218504795938*^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.021990241471804`", ",", "2.021949101734182`", ",", "2.022091331234718`", ",", "2.022013336895049`", ",", "2.0219053509123794`", ",", "2.021964407127651`", ",", "2.022008820155653`", ",", "2.0218864253419775`", ",", "2.022063290229071`", ",", "2.021999431069534`", ",", "2.022110022985657`", ",", "2.022164803399098`", ",", "2.0218598310626303`", ",", "2.0221091098705344`", ",", "2.021990598315014`", ",", "2.021909298602956`", ",", "2.0219515958889405`", ",", "2.021979276261204`", ",", "2.022093732547277`", ",", "2.0218933309096596`", ",", "2.022075007935168`", ",", "2.021883473733498`"}], "}"}]], "Output", CellChangeTimes->{3.5741814285803976`*^9, 3.5749278257565217`*^9, 3.5802185048115377`*^9}], Cell[BoxData[ RowBox[{"2.0219950826219844`", "\[PlusMinus]", "0.00008705640174824337`"}]], "Output", CellChangeTimes->{3.5741814285803976`*^9, 3.5749278257565217`*^9, 3.5802185048115377`*^9}] }, Open ]], Cell[CellGroupData[{ Cell[BoxData[{ RowBox[{"For", "[", RowBox[{ RowBox[{"i", "=", "1"}], " ", ",", RowBox[{"i", "<", RowBox[{"n", "+", "1"}]}], ",", RowBox[{"i", "++"}], ",", "\[IndentingNewLine]", RowBox[{"For", "[", RowBox[{ RowBox[{"j", "=", "1"}], ",", " ", RowBox[{"j", "<", RowBox[{"bc", "+", "1"}]}], ",", RowBox[{"j", "++"}], ",", "\[IndentingNewLine]", RowBox[{"If", "[", RowBox[{ RowBox[{"(", RowBox[{ RowBox[{ RowBox[{"Dij", "[", RowBox[{"[", RowBox[{"i", ",", "j"}], "]"}], "]"}], "\[NotEqual]", "0"}], " ", "&&", " ", RowBox[{ RowBox[{"u", "[", RowBox[{"[", "i", "]"}], "]"}], "\[Equal]", " ", "\"\\""}]}], ")"}], ",", RowBox[{"If", "[", RowBox[{ RowBox[{ RowBox[{"u", "[", RowBox[{"[", "j", "]"}], "]"}], "\[Equal]", "\"\\""}], ",", RowBox[{ RowBox[{"u2", "[", RowBox[{"[", "i", "]"}], "]"}], "=", "0.5693"}], ",", RowBox[{"If", "[", RowBox[{ RowBox[{ RowBox[{"u", "[", RowBox[{"[", "j", "]"}], "]"}], "\[Equal]", "\"\\""}], ",", RowBox[{ RowBox[{"u2", "[", RowBox[{"[", "i", "]"}], "]"}], "=", "0.5"}], ",", RowBox[{"If", "[", RowBox[{ RowBox[{ RowBox[{"u", "[", RowBox[{"[", "j", "]"}], "]"}], "\[Equal]", "\"\\""}], ",", RowBox[{ RowBox[{"u2", "[", RowBox[{"[", "i", "]"}], "]"}], "=", "0.5541"}], ",", RowBox[{"If", "[", RowBox[{ RowBox[{ RowBox[{"u", "[", RowBox[{"[", "j", "]"}], "]"}], "\[Equal]", "\"\\""}], ",", RowBox[{ RowBox[{"u2", "[", RowBox[{"[", "i", "]"}], "]"}], "=", "0.5241"}]}], "]"}]}], "]"}]}], "]"}]}], "]"}]}], "]"}]}], "]"}]}], "]"}], "\[IndentingNewLine]", "u2"}], "Input", CellChangeTimes->{{3.5688800293771057`*^9, 3.5688801774057655`*^9}, { 3.5688802290574565`*^9, 3.568880330208034*^9}, {3.5688803807053227`*^9, 3.5688804136525807`*^9}, 3.568880491434317*^9, 3.5688805648948464`*^9, { 3.5688806280437574`*^9, 3.568880655234605*^9}, {3.568880712424306*^9, 3.568880716324312*^9}, {3.5688808087544746`*^9, 3.568880827786508*^9}, 3.5688808733385878`*^9, {3.568881358936241*^9, 3.5688813959239063`*^9}, { 3.568881446561595*^9, 3.5688815849182377`*^9}, {3.5688816223739033`*^9, 3.568881642607139*^9}, 3.568881728953291*^9, {3.568881797624612*^9, 3.568881809870633*^9}, 3.568881863612727*^9, {3.568883098916497*^9, 3.5688831014749017`*^9}, {3.56888372124679*^9, 3.568883843239004*^9}, 3.568888211750622*^9, {3.5688882521546926`*^9, 3.5688885232519693`*^9}, { 3.5688885890840845`*^9, 3.5688885895052853`*^9}, {3.568888675773437*^9, 3.5688886914514647`*^9}, {3.568888736285943*^9, 3.5688887717760057`*^9}, { 3.5688888256429005`*^9, 3.5688888541441507`*^9}, {3.568892442649892*^9, 3.5688924499507046`*^9}, {3.568892758441247*^9, 3.5688927597360487`*^9}, { 3.5688928234309607`*^9, 3.5688928379389863`*^9}, {3.5708938149488974`*^9, 3.5708938463361526`*^9}, {3.570893920483083*^9, 3.5708939282050962`*^9}, { 3.570894700000852*^9, 3.57089481264865*^9}, {3.570973331551669*^9, 3.570973355887712*^9}, {3.5709734060886*^9, 3.5709734077266035`*^9}, 3.5709737061863275`*^9, {3.5712013634748197`*^9, 3.5712013661736245`*^9}, { 3.571201966837079*^9, 3.5712020689392586`*^9}}], Cell[BoxData[ RowBox[{"{", RowBox[{ "0.2557`", ",", "0.255`", ",", "0.255`", ",", "0.255`", ",", "0.255`", ",", "0.255`", ",", "0.255`", ",", "0.2557`", ",", "0.255`", ",", "0.255`", ",", "0.2557`", ",", "0.255`", ",", "0.2557`", ",", "0.255`", ",", "0.2557`", ",", "0.255`", ",", "0.255`", ",", "0.255`", ",", "0.255`", ",", "0.255`", ",", "0.255`", ",", "0.22522`", ",", "0.22522`", ",", "0.178`", ",", "0.178`", ",", "0.5693`", ",", "0.5693`", ",", "0.5693`", ",", "0.5693`", ",", "0.5693`", ",", "0.5693`", ",", "0.5693`", ",", "0.5693`", ",", "0.5693`", ",", "0.5693`", ",", "0.5693`", ",", "0.5693`", ",", "0.5693`", ",", "0.5693`", ",", "0.5693`", ",", "0.5693`", ",", "0.5693`", ",", "0.5693`", ",", "0.5693`", ",", "0.5693`", ",", "0.5693`", ",", "0.5693`"}], "}"}]], "Output", CellChangeTimes->{3.5741814285803976`*^9, 3.5749278257721214`*^9, 3.580218504827138*^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["88.4443617018267`"], "Output", CellChangeTimes->{3.5741814286271977`*^9, 3.574927825803322*^9, 3.5802185048583384`*^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["956.4404727486573`"], "Output", CellChangeTimes->{3.5741814286271977`*^9, 3.574927825803322*^9, 3.5802185048583384`*^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["1044.884834450484`"], "Output", CellChangeTimes->{3.5741814286427975`*^9, 3.5749278258189216`*^9, 3.580218504873938*^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["34.50743451970048`"], "Output", CellChangeTimes->{3.5741814286583977`*^9, 3.5749278258345213`*^9, 3.5802185048895383`*^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["53.93692718212621`"], "Output", CellChangeTimes->{3.5741814286583977`*^9, 3.5749278258345213`*^9, 3.5802185048895383`*^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[{ "8", ",", "11", ",", "13", ",", "15", ",", "16", ",", "17", ",", "19", ",", "20", ",", "21"}], "}"}]], "Output", CellChangeTimes->{3.574181428689598*^9, 3.5749278258501215`*^9, 3.580218504905138*^9}], Cell[BoxData[ TagBox[ RowBox[{"(", "\[NoBreak]", TagBox[GridBox[{ { RowBox[{"{", RowBox[{"1", ",", "2", ",", "3", ",", "7", ",", "8"}], "}"}]}, { RowBox[{"{", RowBox[{"2", ",", "1", ",", "4", ",", "23", ",", "26"}], "}"}]}, { RowBox[{"{", RowBox[{"3", ",", "1", ",", "6", ",", "22", ",", "27"}], "}"}]}, { RowBox[{"{", RowBox[{"4", ",", "2", ",", "5", ",", "10", ",", "28"}], "}"}]}, { RowBox[{"{", RowBox[{"5", ",", "4", ",", "6", ",", "11", ",", "29"}], "}"}]}, { RowBox[{"{", RowBox[{"6", ",", "3", ",", "5", ",", "30", ",", "31"}], "}"}]}, { RowBox[{"{", RowBox[{"7", ",", "1", ",", "9", ",", "32", ",", "33"}], "}"}]}, { RowBox[{"{", RowBox[{"8", ",", "1", ",", "13", ",", "17"}], "}"}]}, { RowBox[{"{", RowBox[{"9", ",", "7", ",", "22", ",", "34", ",", "35"}], "}"}]}, { RowBox[{"{", RowBox[{"10", ",", "4", ",", "14", ",", "24", ",", "36"}], "}"}]}, { RowBox[{"{", RowBox[{"11", ",", "5", ",", "12", ",", "16"}], "}"}]}, { RowBox[{"{", RowBox[{"12", ",", "11", ",", "22", ",", "37", ",", "38"}], "}"}]}, { RowBox[{"{", RowBox[{"13", ",", "8", ",", "19", ",", "23"}], "}"}]}, { RowBox[{"{", RowBox[{"14", ",", "10", ",", "15", ",", "39", ",", "40"}], "}"}]}, { RowBox[{"{", RowBox[{"15", ",", "14", ",", "23", ",", "25"}], "}"}]}, { RowBox[{"{", RowBox[{"16", ",", "11", ",", "18", ",", "41"}], "}"}]}, { RowBox[{"{", RowBox[{"17", ",", "8", ",", "20", ",", "42"}], "}"}]}, { RowBox[{"{", RowBox[{"18", ",", "16", ",", "24", ",", "43", ",", "44"}], "}"}]}, { RowBox[{"{", RowBox[{"19", ",", "13", ",", "21", ",", "45"}], "}"}]}, { RowBox[{"{", RowBox[{"20", ",", "17", ",", "21", ",", "46"}], "}"}]}, { RowBox[{"{", RowBox[{"21", ",", "19", ",", "20", ",", "47"}], "}"}]}, { RowBox[{"{", RowBox[{"22", ",", "3", ",", "9", ",", "12"}], "}"}]}, { RowBox[{"{", RowBox[{"23", ",", "2", ",", "13", ",", "15"}], "}"}]}, { RowBox[{"{", RowBox[{"24", ",", "10", ",", "18"}], "}"}]}, { RowBox[{"{", RowBox[{"25", ",", "15"}], "}"}]}, { RowBox[{"{", RowBox[{"26", ",", "2"}], "}"}]}, { RowBox[{"{", RowBox[{"27", ",", "3"}], "}"}]}, { RowBox[{"{", RowBox[{"28", ",", "4"}], "}"}]}, { RowBox[{"{", RowBox[{"29", ",", "5"}], "}"}]}, { RowBox[{"{", RowBox[{"30", ",", "6"}], "}"}]}, { RowBox[{"{", RowBox[{"31", ",", "6"}], "}"}]}, { RowBox[{"{", RowBox[{"32", ",", "7"}], "}"}]}, { RowBox[{"{", RowBox[{"33", ",", "7"}], "}"}]}, { RowBox[{"{", RowBox[{"34", ",", "9"}], "}"}]}, { RowBox[{"{", RowBox[{"35", ",", "9"}], "}"}]}, { RowBox[{"{", RowBox[{"36", ",", "10"}], "}"}]}, { RowBox[{"{", RowBox[{"37", ",", "12"}], "}"}]}, { RowBox[{"{", RowBox[{"38", ",", "12"}], "}"}]}, { RowBox[{"{", RowBox[{"39", ",", "14"}], "}"}]}, { RowBox[{"{", RowBox[{"40", ",", "14"}], "}"}]}, { RowBox[{"{", RowBox[{"41", ",", "16"}], "}"}]}, { RowBox[{"{", RowBox[{"42", ",", "17"}], "}"}]}, { RowBox[{"{", RowBox[{"43", ",", "18"}], "}"}]}, { RowBox[{"{", RowBox[{"44", ",", "18"}], "}"}]}, { RowBox[{"{", RowBox[{"45", ",", "19"}], "}"}]}, { RowBox[{"{", RowBox[{"46", ",", "20"}], "}"}]}, { RowBox[{"{", RowBox[{"47", ",", "21"}], "}"}]} }, 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.574181428689598*^9, 3.5749278258501215`*^9, 3.580218504920738*^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", "+", "2"}], "}"}]}], "]"}]}], ";"}], "\[IndentingNewLine]", RowBox[{ RowBox[{"tpu", "=", RowBox[{"Table", "[", RowBox[{ RowBox[{"{", RowBox[{"0", ",", "0", ",", "0"}], "}"}], ",", RowBox[{"{", RowBox[{"nj", "+", "2"}], "}"}]}], "]"}]}], ";"}], "\[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", " ", StyleBox["\[Pi]", FontColor->RGBColor[1, 0, 0]], StyleBox[" ", FontColor->RGBColor[1, 0, 0]], StyleBox["clouds", FontColor->RGBColor[1, 0, 0]], StyleBox[" ", FontColor->RGBColor[1, 0, 0]], StyleBox["for", FontColor->RGBColor[1, 0, 0]], StyleBox[" ", FontColor->RGBColor[1, 0, 0]], StyleBox["C", FontColor->RGBColor[1, 0, 0]], " ", RowBox[{"atoms", ":", " ", "Ok"}]}], " ", "*)"}]}]}], "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.574140715394889*^9, 3.5741407170328913`*^9}, {3.5741809362591333`*^9, 3.574180946414751*^9}, { 3.5741809855240197`*^9, 3.5741809899232273`*^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[{ RowBox[{ RowBox[{"construct", " ", "the", " ", StyleBox["\[Pi]", FontColor->RGBColor[1, 0, 0]], StyleBox[" ", FontColor->RGBColor[1, 0, 0]], StyleBox["clouds", FontColor->RGBColor[1, 0, 0]], StyleBox[" ", FontColor->RGBColor[1, 0, 0]], StyleBox["for", FontColor->RGBColor[1, 0, 0]], StyleBox[" ", FontColor->RGBColor[1, 0, 0]], StyleBox["the", FontColor->RGBColor[1, 0, 0]], StyleBox[" ", FontColor->RGBColor[1, 0, 0]], StyleBox["N", FontColor->RGBColor[1, 0, 0]], StyleBox[" ", FontColor->RGBColor[1, 0, 0]], StyleBox["and", FontColor->RGBColor[1, 0, 0]], StyleBox[" ", FontColor->RGBColor[1, 0, 0]], StyleBox["O", FontColor->RGBColor[1, 0, 0]], " ", "atoms", " ", "in", " ", "the", " ", "N"}], "-", "C"}], "=", RowBox[{"O", " ", RowBox[{"moiety", ":", " ", "Ok"}]}]}], "*)"}]}]], "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.574138835591587*^9, 3.574138870348448*^9}, 3.574139978106394*^9, {3.5741405208157473`*^9, 3.574140527086958*^9}, {3.5741406947560525`*^9, 3.5741407003720627`*^9}}], Cell[BoxData[{ RowBox[{ RowBox[{"k", "=", "1"}], ";"}], "\[IndentingNewLine]", RowBox[{ RowBox[{"Clear", "[", "conn", "]"}], ";"}], "\[IndentingNewLine]", RowBox[{ RowBox[{"conn", "=", RowBox[{"{", RowBox[{ RowBox[{"{", RowBox[{"15", ",", "23", ",", "13"}], "}"}], ",", RowBox[{"{", RowBox[{"15", ",", "25", ",", "23"}], "}"}]}], "}"}]}], ";"}]}], "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.5741389023285046`*^9, {3.5741389378029666`*^9, 3.5741389734802294`*^9}, {3.574139720549941*^9, 3.57413972538595*^9}, { 3.5741404663716516`*^9, 3.574140497883707*^9}, {3.57414054518299*^9, 3.574140553154604*^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[{"2", ",", "3"}], "]"}], "]"}], "=", "rpo"}], ";", "\[IndentingNewLine]", RowBox[{ RowBox[{"nl", "[", RowBox[{"[", RowBox[{"2", ",", "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[{"[", "2", "]"}], "]"}]}], ";", "\[IndentingNewLine]", RowBox[{ RowBox[{"tpu", "[", RowBox[{"[", RowBox[{"nj", "+", "k"}], "]"}], "]"}], "=", RowBox[{"nl", "[", RowBox[{"[", "2", "]"}], "]"}]}]}], ")"}], ",", RowBox[{"{", RowBox[{"k", ",", "2"}], "}"}]}], "]"}], ";"}]], "Input", CellChangeTimes->{{3.572794697520533*^9, 3.5727947043221455`*^9}, { 3.5727948024151173`*^9, 3.572794803507119*^9}, {3.5727948673580313`*^9, 3.572794869838436*^9}, {3.572795260993526*^9, 3.5727952676703377`*^9}, { 3.5727954366342344`*^9, 3.5727954702834935`*^9}, {3.5727973545484033`*^9, 3.5727973657024226`*^9}, {3.572803225319809*^9, 3.572803264553878*^9}, { 3.57280330550395*^9, 3.5728033127111626`*^9}, 3.5728033508376293`*^9, { 3.572803528365941*^9, 3.5728035301443443`*^9}, {3.572803715051469*^9, 3.572803769604765*^9}, {3.572840261866465*^9, 3.5728402628648667`*^9}, { 3.5728405648813972`*^9, 3.572840578905822*^9}, {3.5728406372187243`*^9, 3.572840716170463*^9}, {3.5728407476825185`*^9, 3.572840785746585*^9}, { 3.5728408298790627`*^9, 3.5728408871311636`*^9}, {3.5728409363336496`*^9, 3.572841070790286*^9}, {3.572841415987692*^9, 3.572841609740032*^9}, 3.5728416910629754`*^9, {3.5728417502806797`*^9, 3.572841879885707*^9}, { 3.572841914564568*^9, 3.5728419300709953`*^9}, {3.572841986199894*^9, 3.572842001659521*^9}, {3.5728426453322515`*^9, 3.5728426487174573`*^9}, { 3.572844776030794*^9, 3.572844786919613*^9}, {3.57284502999924*^9, 3.5728450550060835`*^9}, {3.572845459218394*^9, 3.572845496174859*^9}, { 3.5728455656105804`*^9, 3.572845617574272*^9}, {3.5728456738279705`*^9, 3.572845681440784*^9}, {3.5728457322656736`*^9, 3.572845755291314*^9}, 3.572845978356106*^9, {3.572846145151599*^9, 3.572846189096876*^9}, { 3.572846392926834*^9, 3.5728464086828613`*^9}, 3.572846518881455*^9, 3.5728469699562473`*^9, {3.5728470834620466`*^9, 3.572847089873658*^9}, { 3.572847132180932*^9, 3.5728472650151653`*^9}, 3.5728473515485177`*^9, { 3.572849422046554*^9, 3.572849426554962*^9}, {3.572849678776205*^9, 3.572849686077018*^9}, {3.5728503673146143`*^9, 3.5728503811830387`*^9}, { 3.5728505998798227`*^9, 3.572850604637831*^9}, 3.5730459405924234`*^9, { 3.5731485633994884`*^9, 3.5731485765503116`*^9}, {3.5731486137719765`*^9, 3.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.5741389848214493`*^9, 3.5741389855546503`*^9}, {3.574139066222392*^9, 3.5741390721348023`*^9}, { 3.574139879732621*^9, 3.574139883741828*^9}, {3.57414007256456*^9, 3.5741400799433727`*^9}, {3.5741401310958624`*^9, 3.574140140674279*^9}, { 3.5741405646050243`*^9, 3.5741405656034255`*^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[{ "--", "-"}]}]}]}]}]}]}]}]}]}]}]}]}]}]}]}]}]}]}]}]}]}]}]}]}\ ]}]}]}]}]}]}]}], "*)"}], "\[IndentingNewLine]", RowBox[{"(*", " ", RowBox[{"construct", " ", "the", " ", StyleBox[ RowBox[{"LP", "'"}], FontColor->RGBColor[1, 0, 0]], StyleBox["s", FontColor->RGBColor[1, 0, 0]], StyleBox[" ", FontColor->RGBColor[1, 0, 0]], StyleBox["for", FontColor->RGBColor[1, 0, 0]], " ", "the", " ", StyleBox["O24", FontColor->RGBColor[1, 0, 0]], " ", RowBox[{"atom", ":", " ", "Ok"}]}], " ", "*)"}]}]], "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.5740754582882032`*^9}, {3.574133164172851*^9, 3.5741331957785068`*^9}, {3.5741408002122374`*^9, 3.5741408065302486`*^9}, {3.5741442822319536`*^9, 3.574144283885556*^9}}], Cell[BoxData[{ RowBox[{ RowBox[{"k", "=", "1"}], ";"}], "\[IndentingNewLine]", RowBox[{ RowBox[{"Clear", "[", "conn", "]"}], ";"}], "\[IndentingNewLine]", RowBox[{ RowBox[{"conn", "=", RowBox[{"{", RowBox[{"{", RowBox[{"18", ",", "24", ",", "10"}], "}"}], "}"}]}], ";"}], "\n", RowBox[{ RowBox[{"rlo", "=", "1.125"}], ";"}], "\[IndentingNewLine]", RowBox[{ RowBox[{"tlo", "=", RowBox[{"{", RowBox[{"0.0", ",", "0.0", ",", "0.0"}], "}"}]}], ";"}], "\[IndentingNewLine]", RowBox[{ RowBox[{"tlu", "=", RowBox[{"{", RowBox[{"0.0", ",", "0.0", ",", "0.0"}], "}"}]}], ";"}], "\[IndentingNewLine]", 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[{"\[Gamma]", "=", RowBox[{ RowBox[{"\[Pi]", "/", "3"}], "-", RowBox[{"\[Alpha]", "/", "4"}]}]}], ";", " ", RowBox[{"(*", RowBox[{ 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[{ RowBox[{"Plota", " ", "=", " ", 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[{"Plotc", " ", "=", " ", 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[{"Plotd", "=", RowBox[{"Graphics3D", "[", RowBox[{"{", RowBox[{ RowBox[{"Opacity", "[", "0.5", "]"}], ",", RowBox[{"Lighter", "[", "Red", "]"}], ",", RowBox[{"Sphere", "[", RowBox[{ RowBox[{"nk", "[", RowBox[{"[", "2", "]"}], "]"}], ",", "rlo"}], "]"}]}], "}"}], "]"}]}], ";", "\[IndentingNewLine]", RowBox[{"Plote", "=", RowBox[{"Graphics3D", "[", RowBox[{"{", RowBox[{ RowBox[{"Opacity", "[", "0.5", "]"}], ",", RowBox[{"Lighter", "[", "Red", "]"}], ",", RowBox[{"Sphere", "[", RowBox[{ RowBox[{"nl", "[", RowBox[{"[", "2", "]"}], "]"}], ",", "rlo"}], "]"}]}], "}"}], "]"}]}], ";", "\[IndentingNewLine]", RowBox[{"Plotb0", "=", RowBox[{"Table", "[", RowBox[{ RowBox[{"Graphics3D", "[", RowBox[{"Text", "[", RowBox[{ RowBox[{"c", "[", RowBox[{"[", "i", "]"}], "]"}], ",", RowBox[{"p", "[", RowBox[{"[", "i", "]"}], "]"}], ",", RowBox[{"{", RowBox[{"1", ",", "0"}], "}"}]}], "]"}], "]"}], ",", RowBox[{"{", RowBox[{"i", ",", "1", ",", "P"}], "}"}]}], "]"}]}], ";", "\[IndentingNewLine]", RowBox[{"Show", "[", RowBox[{"Plotd", ",", "Plote", ",", "Plota", ",", "Plotb0", ",", RowBox[{"(*", RowBox[{"Plotb1", ",", "Plotb2", ","}], "*)"}], "Plotc", ",", RowBox[{"{", RowBox[{ RowBox[{"Axes", "\[Rule]", "Automatic"}], ",", RowBox[{"AxesLabel", "\[Rule]", RowBox[{"{", RowBox[{"xl", ",", "yl", ",", "zl"}], "}"}]}], ",", RowBox[{"AspectRatio", "\[Rule]", "Automatic"}], ",", RowBox[{"Boxed", "\[Rule]", "False"}], ",", RowBox[{"PlotRange", "\[Rule]", "Automatic"}], ",", " ", RowBox[{"SphericalRegion", "\[Rule]", "True"}]}], "}"}]}], "]"}]}], "*)"}], "\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", ",", "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.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.5741380604574256`*^9, 3.5741381150419216`*^9}, { 3.574138712647771*^9, 3.57413877472028*^9}, {3.574139702235509*^9, 3.5741397069779177`*^9}, {3.5741408320050936`*^9, 3.574140862565547*^9}, { 3.5741409601125183`*^9, 3.574140968411733*^9}, 3.574141161259272*^9, { 3.574141218324172*^9, 3.5741412229885807`*^9}, {3.57414130237712*^9, 3.5741413130631385`*^9}, {3.574141360658822*^9, 3.5741413768672504`*^9}, { 3.5741414351645527`*^9, 3.5741414359445543`*^9}, {3.5741415352543287`*^9, 3.57414153597193*^9}, 3.5741415684199867`*^9, 3.5741418043704014`*^9, { 3.5741436375608215`*^9, 3.5741436404780264`*^9}, {3.5741439759722157`*^9, 3.574144007468671*^9}, {3.574144093362422*^9, 3.5741441028628387`*^9}}], Cell[BoxData[ StyleBox[ RowBox[{ RowBox[{"(*", RowBox[{"--", RowBox[{"--", RowBox[{"--", RowBox[{"--", RowBox[{"--", RowBox[{"--", RowBox[{"--", RowBox[{"--", RowBox[{"--", RowBox[{"--", RowBox[{"--", RowBox[{"--", RowBox[{"--", RowBox[{"--", RowBox[{"--", RowBox[{"--", RowBox[{"--", RowBox[{"--", RowBox[{"--", RowBox[{"--", RowBox[{"--", RowBox[{"--", RowBox[{"--", RowBox[{"--", RowBox[{"--", RowBox[{"--", RowBox[{"--", RowBox[{"--", RowBox[{"--", RowBox[{"--", RowBox[{"--", RowBox[{ "--", "-"}]}]}]}]}]}]}]}]}]}]}]}]}]}]}]}]}]}]}]}]}]}]}]}]}\ ]}]}]}]}]}]}]}], "*)"}], "\n", RowBox[{"(*", RowBox[{ RowBox[{ RowBox[{" ", RowBox[{"construct", " ", "the", StyleBox[" ", FontColor->RGBColor[1, 0, 0]], StyleBox["LP", FontColor->RGBColor[1, 0, 0]]}], StyleBox["\[CloseCurlyQuote]", FontColor->RGBColor[1, 0, 0]]}], StyleBox["s", FontColor->RGBColor[1, 0, 0]], " ", "for", " ", "the", " ", StyleBox["O25", FontColor->RGBColor[1, 0, 0]], StyleBox[" ", FontColor->RGBColor[1, 0, 0]], StyleBox["atom", FontColor->RGBColor[1, 0, 0]], StyleBox[" ", FontColor->RGBColor[1, 0, 0]], StyleBox["C", FontColor->RGBColor[1, 0, 0]]}], StyleBox["=", FontColor->RGBColor[1, 0, 0]], RowBox[{ StyleBox["O", FontColor->RGBColor[1, 0, 0]], ":"}]}], " ", "*)"}], "\n", RowBox[{ RowBox[{ RowBox[{"k", "=", "1"}], ";"}], "\n", RowBox[{ RowBox[{"Clear", "[", "conn", "]"}], ";"}], "\n", RowBox[{ RowBox[{"conn", "=", RowBox[{"{", RowBox[{"{", RowBox[{"15", ",", "25", ",", "23"}], "}"}], "}"}]}], ";"}], "\n", RowBox[{ RowBox[{"rlo", "=", "1.125"}], ";"}], "\n", RowBox[{ RowBox[{"tlo2", "=", RowBox[{"{", RowBox[{"0.0", ",", "0.0", ",", "0.0"}], "}"}]}], ";"}], "\n", RowBox[{ RowBox[{"tlu2", "=", RowBox[{"{", RowBox[{"0.0", ",", "0.0", ",", "0.0"}], "}"}]}], ";"}], "\n", RowBox[{ RowBox[{"Do", "[", RowBox[{ RowBox[{"(", RowBox[{ RowBox[{"c", "=", RowBox[{"conn", "[", RowBox[{"[", "k", "]"}], "]"}]}], ";", "\n", 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", "]"}], "]"}]}], "]"}], "]"}]}], ";", "\n", RowBox[{"\[Alpha]", "=", RowBox[{"ArcCos", "[", RowBox[{ RowBox[{"(", RowBox[{ RowBox[{"a1", "^", "2"}], "+", RowBox[{"a2", "^", "2"}], "-", RowBox[{"d1", "^", "2"}]}], ")"}], "/", RowBox[{"(", RowBox[{"2", "*", "a1", "*", "a2"}], ")"}]}], "]"}]}], ";", "\n", RowBox[{"L", "=", RowBox[{"(", RowBox[{ RowBox[{"u2", "[", RowBox[{"[", RowBox[{"c", "[", RowBox[{"[", "2", "]"}], "]"}], "]"}], "]"}], "+", "rlo"}], ")"}]}], ";", "\n", RowBox[{"\[Beta]", "=", RowBox[{"ArcSin", "[", RowBox[{"rlo", "/", "L"}], "]"}]}], ";", "\n", RowBox[{"\[Gamma]", "=", RowBox[{"\[Pi]", "-", RowBox[{"\[Alpha]", "/", "2"}]}]}], ";", " ", RowBox[{"(*", RowBox[{ RowBox[{"\[Gamma]", "=", RowBox[{ RowBox[{"3", "*", RowBox[{"\[Pi]", "/", "2"}]}], "+", RowBox[{"\[Alpha]", "/", "2"}]}]}], ";"}], "*)"}], "\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"}], "]"}], "]"}]}], ";", "\n", RowBox[{"y2", "=", RowBox[{"t", "[", RowBox[{"[", RowBox[{ RowBox[{"c", "[", RowBox[{"[", "2", "]"}], "]"}], ",", "2"}], "]"}], "]"}]}], ";", " ", "\n", RowBox[{"z2", "=", RowBox[{"t", "[", RowBox[{"[", RowBox[{ RowBox[{"c", "[", RowBox[{"[", "2", "]"}], "]"}], ",", "3"}], "]"}], "]"}]}], ";", "\n", RowBox[{"Q", "=", RowBox[{"{", RowBox[{ RowBox[{"{", RowBox[{"1", ",", "0", ",", "0", ",", "0"}], "}"}], ",", "\n", RowBox[{"{", RowBox[{"0", ",", "1", ",", "0", ",", "0"}], "}"}], ",", "\n", RowBox[{"{", RowBox[{"0", ",", "0", ",", "1", ",", "0"}], "}"}], ",", "\n", RowBox[{"{", RowBox[{ RowBox[{"-", "x2"}], ",", RowBox[{"-", "y2"}], ",", RowBox[{"-", "z2"}], ",", "1"}], "}"}]}], "}"}]}], ";", "\n", RowBox[{"p", "=", RowBox[{"v", ".", "Q"}]}], ";", "\n", 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"}], "}"}]}], "]"}]}], ";", "\n", 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"}], ";", "\n", RowBox[{"T", "=", RowBox[{"RotationMatrix", "[", RowBox[{"T2", ",", RowBox[{"{", RowBox[{"0", ",", "0", ",", "1"}], "}"}]}], "]"}]}], ";", "\n", 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"}], "}"}]}], "]"}]}], ";", "\n", RowBox[{"p", "=", RowBox[{"Chop", "[", RowBox[{"U", ".", "T"}], "]"}]}], ";", "\n", RowBox[{"nk", "=", "p"}], ";", "\n", RowBox[{"nl", "=", "p"}], ";", "\n", RowBox[{ RowBox[{"nk", "[", RowBox[{"[", RowBox[{"2", ",", "2"}], "]"}], "]"}], "=", " ", RowBox[{"L", "*", RowBox[{"Cos", "[", "\[Gamma]", "]"}]}]}], ";", RowBox[{ RowBox[{"nk", "[", RowBox[{"[", RowBox[{"2", ",", "1"}], "]"}], "]"}], "=", RowBox[{ RowBox[{"nk", "[", RowBox[{"[", RowBox[{"2", ",", "1"}], "]"}], "]"}], "-", RowBox[{"L", "*", RowBox[{"Sin", "[", "\[Gamma]", "]"}]}]}]}], ";", RowBox[{"(*", " ", RowBox[{ RowBox[{ RowBox[{"nk", "[", RowBox[{"[", RowBox[{"2", ",", "3"}], "]"}], "]"}], "=", "0.0"}], ";"}], " ", "*)"}], "\n", RowBox[{ RowBox[{"nl", "[", RowBox[{"[", RowBox[{"2", ",", "2"}], "]"}], "]"}], "=", RowBox[{"-", RowBox[{"nk", "[", RowBox[{"[", RowBox[{"2", ",", "2"}], "]"}], "]"}]}]}], ";", " ", RowBox[{ RowBox[{"nl", "[", RowBox[{"[", RowBox[{"2", ",", "1"}], "]"}], "]"}], "=", RowBox[{"nk", "[", RowBox[{"[", RowBox[{"2", ",", "1"}], "]"}], "]"}]}], ";", RowBox[{"(*", " ", RowBox[{ RowBox[{ RowBox[{"nl", "[", RowBox[{"[", RowBox[{"2", ",", "3"}], "]"}], "]"}], "=", "0.0"}], ";"}], "*)"}], "\n", RowBox[{"(*", RowBox[{ RowBox[{"Plota", " ", "=", " ", RowBox[{"Table", "[", RowBox[{ RowBox[{"Graphics3D", "[", RowBox[{"{", RowBox[{ RowBox[{"Opacity", "[", "0.5", "]"}], ",", RowBox[{"Sphere", "[", RowBox[{ RowBox[{"p", "[", RowBox[{"[", "i", "]"}], "]"}], ",", RowBox[{"u2", "[", RowBox[{"[", RowBox[{"c", "[", RowBox[{"[", "i", "]"}], "]"}], "]"}], "]"}]}], "]"}]}], "}"}], "]"}], ",", RowBox[{"{", RowBox[{"i", ",", "1", ",", "P"}], "}"}]}], "]"}]}], ";", "\n", RowBox[{"Plotc", " ", "=", " ", RowBox[{"Table", "[", RowBox[{ RowBox[{"Graphics3D", "[", RowBox[{"{", RowBox[{"Tube", "[", RowBox[{ RowBox[{"{", RowBox[{ RowBox[{"p", "[", RowBox[{"[", "i", "]"}], "]"}], ",", RowBox[{"p", "[", RowBox[{"[", "j", "]"}], "]"}]}], "}"}], ",", "0.02"}], "]"}], "}"}], "]"}], ",", RowBox[{"{", RowBox[{"i", ",", "1", ",", RowBox[{"P", "-", "1"}]}], "}"}], ",", RowBox[{"{", RowBox[{"j", ",", RowBox[{"i", "+", "1"}], ",", "P"}], "}"}]}], "]"}]}], ";", "\n", RowBox[{"Plotd", "=", RowBox[{"Graphics3D", "[", RowBox[{"{", RowBox[{ RowBox[{"Opacity", "[", "0.5", "]"}], ",", RowBox[{"Lighter", "[", "Red", "]"}], ",", RowBox[{"Sphere", "[", RowBox[{ RowBox[{"nk", "[", RowBox[{"[", "2", "]"}], "]"}], ",", "rlo"}], "]"}]}], "}"}], "]"}]}], ";", "\n", RowBox[{"Plote", "=", RowBox[{"Graphics3D", "[", RowBox[{"{", RowBox[{ RowBox[{"Opacity", "[", "0.5", "]"}], ",", RowBox[{"Lighter", "[", "Red", "]"}], ",", RowBox[{"Sphere", "[", RowBox[{ RowBox[{"nl", "[", RowBox[{"[", "2", "]"}], "]"}], ",", "rlo"}], "]"}]}], "}"}], "]"}]}], ";", "\n", RowBox[{"Plotb0", "=", 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[{"Show", "[", RowBox[{"Plotd", ",", "Plote", ",", "Plota", ",", "Plotb0", ",", RowBox[{"(*", RowBox[{"Plotb1", ",", "Plotb2", ","}], "*)"}], "Plotc", ",", RowBox[{"{", RowBox[{ RowBox[{"Axes", "\[Rule]", "Automatic"}], ",", RowBox[{"AxesLabel", "\[Rule]", RowBox[{"{", RowBox[{"xl", ",", "yl", ",", "zl"}], "}"}]}], ",", RowBox[{"AspectRatio", "\[Rule]", "Automatic"}], ",", RowBox[{"Boxed", "\[Rule]", "False"}], ",", RowBox[{"PlotRange", "\[Rule]", "Automatic"}], ",", " ", RowBox[{"SphericalRegion", "\[Rule]", "True"}]}], "}"}]}], "]"}]}], "*)"}], "\n", RowBox[{"U", "=", "p"}], ";", "\n", RowBox[{"U1", "=", "nk"}], ";", "\n", RowBox[{"U2", "=", "nl"}], ";", "\n", RowBox[{"T", "=", RowBox[{"RotationMatrix", "[", RowBox[{ RowBox[{"-", "T3"}], ",", RowBox[{"{", RowBox[{"1", ",", "0", ",", "0"}], "}"}]}], "]"}]}], ";", "\n", RowBox[{"p", "=", RowBox[{"U", ".", "T"}]}], ";", "\n", RowBox[{"nk", "=", RowBox[{"U1", ".", "T"}]}], ";", "\n", RowBox[{"nl", "=", RowBox[{"U2", ".", "T"}]}], ";", "\n", RowBox[{"U", "=", "p"}], ";", "\n", RowBox[{"U1", "=", "nk"}], ";", "\n", RowBox[{"U2", "=", "nl"}], ";", "\n", RowBox[{"T", "=", RowBox[{"RotationMatrix", "[", RowBox[{ RowBox[{"-", "T2"}], ",", RowBox[{"{", RowBox[{"0", ",", "0", ",", "1"}], "}"}]}], "]"}]}], ";", "\n", RowBox[{"p", "=", RowBox[{"U", ".", "T"}]}], ";", "\n", RowBox[{"nk", "=", RowBox[{"U1", ".", "T"}]}], ";", "\n", RowBox[{"nl", "=", RowBox[{"U2", ".", "T"}]}], ";", "\n", RowBox[{"U", "=", "p"}], ";", "\n", RowBox[{"U1", "=", "nk"}], ";", "\n", RowBox[{"U2", "=", "nl"}], ";", "\n", RowBox[{"T", "=", RowBox[{"RotationMatrix", "[", RowBox[{ RowBox[{"-", "T1"}], ",", RowBox[{"{", RowBox[{"1", ",", "0", ",", "0"}], "}"}]}], "]"}]}], ";", "\n", RowBox[{"p", "=", RowBox[{"U", ".", "T"}]}], ";", "\n", RowBox[{"nk", "=", RowBox[{"U1", ".", "T"}]}], ";", "\n", RowBox[{"nl", "=", RowBox[{"U2", ".", "T"}]}], ";", "\n", RowBox[{"Clear", "[", RowBox[{"v", ",", "v1", ",", "v2"}], "]"}], ";", "\n", RowBox[{"v", " ", "=", RowBox[{"Table", "[", RowBox[{ RowBox[{"Join", "[", RowBox[{ RowBox[{"p", "[", RowBox[{"[", "i", "]"}], "]"}], ",", RowBox[{"{", "1", "}"}]}], "]"}], ",", RowBox[{"{", RowBox[{"i", ",", "1", ",", "P"}], "}"}]}], "]"}]}], ";", "\n", RowBox[{"v1", "=", RowBox[{"Table", "[", RowBox[{ RowBox[{"Join", "[", RowBox[{ RowBox[{"nk", "[", RowBox[{"[", "i", "]"}], "]"}], ",", RowBox[{"{", "1", "}"}]}], "]"}], ",", RowBox[{"{", RowBox[{"i", ",", "1", ",", "P"}], "}"}]}], "]"}]}], ";", "\n", 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"}], "}"}], ",", "\n", RowBox[{"{", RowBox[{"0", ",", "1", ",", "0", ",", "0"}], "}"}], ",", "\n", RowBox[{"{", RowBox[{"0", ",", "0", ",", "1", ",", "0"}], "}"}], ",", "\n", RowBox[{"{", RowBox[{"x2", ",", "y2", ",", "z2", ",", "1"}], "}"}]}], "}"}]}], ";", "\n", RowBox[{"p", "=", RowBox[{"v", ".", "Q"}]}], ";", "\n", RowBox[{"nk", "=", RowBox[{"v1", ".", "Q"}]}], ";", "\n", RowBox[{"nl", "=", RowBox[{"v2", ".", "Q"}]}], ";", "\n", RowBox[{"p", "=", RowBox[{"Table", "[", RowBox[{ RowBox[{"Take", "[", RowBox[{ RowBox[{"p", "[", RowBox[{"[", "i", "]"}], "]"}], ",", "3"}], "]"}], ",", RowBox[{"{", RowBox[{"i", ",", "1", ",", "P"}], "}"}]}], "]"}]}], ";", "\n", RowBox[{"nk", "=", RowBox[{"Table", "[", RowBox[{ RowBox[{"Take", "[", RowBox[{ RowBox[{"nk", "[", RowBox[{"[", "i", "]"}], "]"}], ",", "3"}], "]"}], ",", RowBox[{"{", RowBox[{"i", ",", "1", ",", "P"}], "}"}]}], "]"}]}], ";", "\n", RowBox[{"nl", "=", RowBox[{"Table", "[", RowBox[{ RowBox[{"Take", "[", RowBox[{ RowBox[{"nl", "[", RowBox[{"[", "i", "]"}], "]"}], ",", "3"}], "]"}], ",", RowBox[{"{", RowBox[{"i", ",", "1", ",", "P"}], "}"}]}], "]"}]}], ";", "\n", RowBox[{ RowBox[{"tlo2", "[", RowBox[{"[", "k", "]"}], "]"}], "=", RowBox[{"nk", "[", RowBox[{"[", "2", "]"}], "]"}]}], ";", "\n", RowBox[{ RowBox[{"tlu2", "[", RowBox[{"[", "k", "]"}], "]"}], "=", RowBox[{"nl", "[", RowBox[{"[", "2", "]"}], "]"}]}]}], ")"}], ",", RowBox[{"{", RowBox[{"k", ",", "1"}], "}"}]}], "]"}], ";"}]}]}], "Input"]], "Input", CellChangeTimes->{{3.572794697520533*^9, 3.5727947043221455`*^9}, { 3.5727948024151173`*^9, 3.572794803507119*^9}, {3.5727948673580313`*^9, 3.572794869838436*^9}, {3.572795260993526*^9, 3.5727952676703377`*^9}, { 3.5727954366342344`*^9, 3.5727954702834935`*^9}, {3.5727973545484033`*^9, 3.5727973657024226`*^9}, {3.572803225319809*^9, 3.572803264553878*^9}, { 3.57280330550395*^9, 3.5728033127111626`*^9}, 3.5728033508376293`*^9, { 3.572803528365941*^9, 3.5728035301443443`*^9}, {3.572803715051469*^9, 3.572803769604765*^9}, {3.572840261866465*^9, 3.5728402628648667`*^9}, { 3.5728405648813972`*^9, 3.572840578905822*^9}, {3.5728406372187243`*^9, 3.572840716170463*^9}, {3.5728407476825185`*^9, 3.572840785746585*^9}, { 3.5728408298790627`*^9, 3.5728408871311636`*^9}, {3.5728409363336496`*^9, 3.572841070790286*^9}, {3.572841415987692*^9, 3.572841609740032*^9}, 3.5728416910629754`*^9, {3.5728417502806797`*^9, 3.572841879885707*^9}, { 3.572841914564568*^9, 3.5728419300709953`*^9}, {3.572841986199894*^9, 3.572842001659521*^9}, {3.5728426453322515`*^9, 3.5728426487174573`*^9}, { 3.572844776030794*^9, 3.572844786919613*^9}, {3.57284502999924*^9, 3.5728450550060835`*^9}, {3.572845459218394*^9, 3.572845496174859*^9}, { 3.5728455656105804`*^9, 3.572845617574272*^9}, {3.5728456738279705`*^9, 3.572845681440784*^9}, {3.5728457322656736`*^9, 3.572845755291314*^9}, 3.572845978356106*^9, {3.572846145151599*^9, 3.572846189096876*^9}, { 3.572846392926834*^9, 3.5728464086828613`*^9}, 3.572846518881455*^9, 3.5728469699562473`*^9, {3.5728470834620466`*^9, 3.572847089873658*^9}, { 3.572847132180932*^9, 3.5728472650151653`*^9}, 3.5728473515485177`*^9, { 3.572849422046554*^9, 3.572849426554962*^9}, {3.572849678776205*^9, 3.572849686077018*^9}, {3.5728503673146143`*^9, 3.5728503811830387`*^9}, { 3.5728505998798227`*^9, 3.572850604637831*^9}, 3.5730459405924234`*^9, { 3.5731485633994884`*^9, 3.5731485765503116`*^9}, {3.5731486137719765`*^9, 3.57314870088253*^9}, {3.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.574138145976776*^9, 3.5741382270501184`*^9}, { 3.574140244632862*^9, 3.574140269296505*^9}, 3.574140413315958*^9, { 3.5741410772219243`*^9, 3.5741410812311316`*^9}, 3.5741411417904377`*^9, { 3.5741416870737953`*^9, 3.574141747321101*^9}, 3.574141858939297*^9, { 3.57414191144899*^9, 3.5741419427738447`*^9}, {3.5741420030367503`*^9, 3.574142023347986*^9}, {3.5741420657020607`*^9, 3.5741420940161104`*^9}, { 3.574142129755773*^9, 3.5741421926238832`*^9}, {3.574142233511555*^9, 3.5741422497667837`*^9}, {3.57414229313486*^9, 3.574142340590143*^9}, { 3.5741423817742157`*^9, 3.5741423857678223`*^9}, 3.5741444642998734`*^9, { 3.5741448806334047`*^9, 3.5741449068258505`*^9}, {3.574144967962358*^9, 3.574145006151225*^9}, {3.574145074260945*^9, 3.574145087645768*^9}, { 3.574145129781442*^9, 3.5741451479086742`*^9}, 3.574145241898839*^9, { 3.5741456385607357`*^9, 3.574145699291642*^9}, {3.574145900251196*^9, 3.574145900843996*^9}, {3.574146053053464*^9, 3.5741460670778885`*^9}, { 3.5741514165456843`*^9, 3.574151423300496*^9}, {3.5741514989450293`*^9, 3.5741515005830317`*^9}, {3.574151557460732*^9, 3.5741515590363345`*^9}, { 3.5741518196815925`*^9, 3.5741518545164537`*^9}, {3.574151924232976*^9, 3.5741519672266517`*^9}, {3.574152046459191*^9, 3.5741520801396503`*^9}, 3.574152110871704*^9, {3.574152152055776*^9, 3.5741522125214825`*^9}, { 3.5741522536119547`*^9, 3.5741523166984653`*^9}, {3.574152808551729*^9, 3.5741528165857434`*^9}, {3.5741528677226334`*^9, 3.5741528677226334`*^9}, {3.5741529531639833`*^9, 3.5741529533979836`*^9}, {3.5741530688537865`*^9, 3.574153091458226*^9}, { 3.574153148101926*^9, 3.574153151565132*^9}, {3.5741531957288094`*^9, 3.574153199940817*^9}, 3.5741536272723675`*^9, {3.574153885546421*^9, 3.574153934514907*^9}, {3.5741539731249747`*^9, 3.574154052170314*^9}, { 3.5741541159588256`*^9, 3.5741541334932566`*^9}, 3.5741542788075113`*^9, { 3.5741543641552615`*^9, 3.574154371799275*^9}, {3.574154435494187*^9, 3.5741544356501875`*^9}, {3.5741545315591555`*^9, 3.5741545430407753`*^9}, 3.5741675689700546`*^9}], Cell[TextData[{ StyleBox["(*-----------------------------------------------------------------\ --------*)\n(* next:", "Input"], StyleBox[" N22", "Input", FontColor->RGBColor[1, 0, 0]], StyleBox[" in ring; one doubly occ ", "Input"], StyleBox["LP", "Input", FontColor->RGBColor[1, 0, 0]], StyleBox[" as ", "Input"], StyleBox["pyramidal", "Input", FontColor->RGBColor[1, 0, 0]], StyleBox[" ligand: Ok *)", "Input"] }], "Text", CellChangeTimes->{{3.572794697520533*^9, 3.5727947043221455`*^9}, { 3.5727948024151173`*^9, 3.572794803507119*^9}, {3.5727948673580313`*^9, 3.572794869838436*^9}, {3.572795260993526*^9, 3.5727952676703377`*^9}, { 3.5727954366342344`*^9, 3.5727954702834935`*^9}, {3.5727973545484033`*^9, 3.5727973657024226`*^9}, {3.572803225319809*^9, 3.572803264553878*^9}, { 3.57280330550395*^9, 3.5728033127111626`*^9}, 3.5728033508376293`*^9, { 3.572803528365941*^9, 3.5728035301443443`*^9}, {3.572803715051469*^9, 3.572803769604765*^9}, {3.572840261866465*^9, 3.5728402628648667`*^9}, { 3.5728405648813972`*^9, 3.572840578905822*^9}, {3.5728406372187243`*^9, 3.572840716170463*^9}, {3.5728407476825185`*^9, 3.572840785746585*^9}, { 3.5728408298790627`*^9, 3.5728408871311636`*^9}, {3.5728409363336496`*^9, 3.572841070790286*^9}, {3.572841415987692*^9, 3.572841609740032*^9}, 3.5728416910629754`*^9, {3.5728417502806797`*^9, 3.572841879885707*^9}, { 3.572841914564568*^9, 3.5728419300709953`*^9}, {3.572841986199894*^9, 3.572842001659521*^9}, {3.5728426453322515`*^9, 3.5728426487174573`*^9}, { 3.572844776030794*^9, 3.572844786919613*^9}, {3.57284502999924*^9, 3.5728450550060835`*^9}, {3.572845459218394*^9, 3.572845496174859*^9}, { 3.5728455656105804`*^9, 3.572845617574272*^9}, {3.5728456738279705`*^9, 3.572845681440784*^9}, {3.5728457322656736`*^9, 3.572845755291314*^9}, 3.572845978356106*^9, {3.572846145151599*^9, 3.572846189096876*^9}, { 3.572846392926834*^9, 3.5728464086828613`*^9}, 3.572846518881455*^9, 3.5728469699562473`*^9, {3.5728470834620466`*^9, 3.572847089873658*^9}, { 3.572847132180932*^9, 3.5728472650151653`*^9}, 3.5728473515485177`*^9, { 3.572849422046554*^9, 3.572849426554962*^9}, {3.572849678776205*^9, 3.572849686077018*^9}, {3.5728503673146143`*^9, 3.5728503811830387`*^9}, { 3.5728505998798227`*^9, 3.572850604637831*^9}, 3.5730459405924234`*^9, { 3.5731485633994884`*^9, 3.5731485765503116`*^9}, {3.5731486137719765`*^9, 3.57314870088253*^9}, {3.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.574138145976776*^9, 3.5741382270501184`*^9}, { 3.574140244632862*^9, 3.574140269296505*^9}, 3.574140413315958*^9, { 3.5741410772219243`*^9, 3.5741410812311316`*^9}, 3.5741411417904377`*^9, { 3.5741416870737953`*^9, 3.574141747321101*^9}, 3.574141858939297*^9, { 3.57414191144899*^9, 3.5741419427738447`*^9}, {3.5741420030367503`*^9, 3.574142023347986*^9}, {3.5741420657020607`*^9, 3.5741420940161104`*^9}, { 3.574142129755773*^9, 3.5741421926238832`*^9}, {3.574142233511555*^9, 3.5741422497667837`*^9}, {3.57414229313486*^9, 3.574142340590143*^9}, { 3.5741423817742157`*^9, 3.5741423857678223`*^9}, 3.5741444642998734`*^9, { 3.5741448806334047`*^9, 3.5741449068258505`*^9}, {3.574144967962358*^9, 3.574145006151225*^9}, {3.574145074260945*^9, 3.574145087645768*^9}, { 3.574145129781442*^9, 3.5741451479086742`*^9}, 3.574145241898839*^9, { 3.5741456385607357`*^9, 3.574145699291642*^9}, {3.574145900251196*^9, 3.574145900843996*^9}, {3.574146053053464*^9, 3.5741460670778885`*^9}, { 3.5741514165456843`*^9, 3.574151423300496*^9}, {3.5741514989450293`*^9, 3.5741515005830317`*^9}, {3.574151557460732*^9, 3.5741515590363345`*^9}, { 3.5741518196815925`*^9, 3.5741518545164537`*^9}, {3.574151924232976*^9, 3.5741519672266517`*^9}, {3.574152046459191*^9, 3.574152061794018*^9}, { 3.574167602759714*^9, 3.5741676043197165`*^9}, 3.57416780541967*^9}], Cell[BoxData[{ StyleBox[ RowBox[{ RowBox[{"k", " ", "=", " ", "1"}], ";"}], "Input"], "\n", StyleBox[ RowBox[{ RowBox[{"Clear", "[", RowBox[{"conn", ",", "P", ",", "tpln"}], "]"}], ";"}], "Input"], "\n", StyleBox[ RowBox[{ RowBox[{"P", " ", "=", " ", "4"}], ";"}], "Input"], "\n", StyleBox[ RowBox[{ RowBox[{"tpln", " ", "=", " ", RowBox[{"{", RowBox[{"0.0", ",", " ", "0.0", ",", " ", "0.0"}], "}"}]}], ";"}], "Input"], "\n", StyleBox[ RowBox[{ RowBox[{"conn", " ", "=", " ", RowBox[{"{", RowBox[{"{", RowBox[{"9", ",", " ", "12", ",", " ", "3", ",", " ", "22"}], "}"}], "}"}]}], ";"}], "Input"], "\n", StyleBox[ RowBox[{ RowBox[{"rln", " ", "=", " ", "1.246"}], ";"}], "Input"], "\n", RowBox[{ RowBox[{ StyleBox["Do", "Input"], StyleBox["[", "Input"], RowBox[{ RowBox[{ StyleBox["(", "Input"], RowBox[{ StyleBox[ RowBox[{"c", " ", "=", " ", RowBox[{"conn", "[", RowBox[{"[", "k", "]"}], "]"}]}], "Input"], StyleBox[";", "Input"], StyleBox["\n", "Input"], StyleBox[" ", "Input"], StyleBox[ RowBox[{"a1", " ", "=", " ", RowBox[{"dc", "[", RowBox[{"[", RowBox[{ RowBox[{"c", "[", RowBox[{"[", "2", "]"}], "]"}], ",", " ", RowBox[{"c", "[", RowBox[{"[", "1", "]"}], "]"}]}], "]"}], "]"}]}], "Input"], StyleBox[";", "Input"], StyleBox[" ", "Input"], StyleBox[ RowBox[{"a2", " ", "=", " ", RowBox[{"dc", "[", RowBox[{"[", RowBox[{ RowBox[{"c", "[", RowBox[{"[", "2", "]"}], "]"}], ",", " ", RowBox[{"c", "[", RowBox[{"[", "3", "]"}], "]"}]}], "]"}], "]"}]}], "Input"], StyleBox[";", "Input"], StyleBox[" ", "Input"], StyleBox[ RowBox[{"d1", " ", "=", " ", RowBox[{"dc", "[", RowBox[{"[", RowBox[{ RowBox[{"c", "[", RowBox[{"[", "1", "]"}], "]"}], ",", " ", RowBox[{"c", "[", RowBox[{"[", "3", "]"}], "]"}]}], "]"}], "]"}]}], "Input"], StyleBox[";", "Input"], StyleBox["\n", "Input"], StyleBox[" ", "Input"], StyleBox[ RowBox[{"\[Alpha]", " ", "=", " ", RowBox[{"ArcCos", "[", RowBox[{ RowBox[{"(", RowBox[{ RowBox[{"a1", "^", "2"}], " ", "+", " ", RowBox[{"a2", "^", "2"}], " ", "-", " ", RowBox[{"d1", "^", "2"}]}], ")"}], "/", RowBox[{"(", RowBox[{"2", "*", "a1", "*", "a2"}], ")"}]}], "]"}]}], "Input"], StyleBox[";", "Input"], StyleBox["\n", "Input"], StyleBox[" ", "Input"], StyleBox[ RowBox[{"L", " ", "=", " ", RowBox[{"(", RowBox[{ RowBox[{"u2", "[", RowBox[{"[", RowBox[{"c", "[", RowBox[{"[", "2", "]"}], "]"}], "]"}], "]"}], " ", "+", " ", "rln"}], ")"}]}], "Input"], StyleBox[";", "Input"], StyleBox["\n", "Input"], StyleBox[" ", "Input"], StyleBox[ RowBox[{"\[Beta]", " ", "=", " ", RowBox[{"ArcSin", "[", RowBox[{"rln", "/", "L"}], "]"}]}], "Input"], StyleBox[";", "Input"], StyleBox["\n", "Input"], StyleBox[" ", "Input"], StyleBox[ RowBox[{"\[Gamma]", " ", "=", " ", RowBox[{ RowBox[{"\[Pi]", "/", "2"}], " ", "-", " ", RowBox[{"\[Alpha]", "/", "2"}]}]}], "Input"], StyleBox[";", "Input"], StyleBox[" ", "Input"], StyleBox[ RowBox[{"(*", RowBox[{ RowBox[{"\[Gamma]", "=", RowBox[{ RowBox[{"3", "*", RowBox[{"\[Pi]", "/", "2"}]}], "+", RowBox[{"\[Alpha]", "/", "2"}]}]}], ";"}], "*)"}], "Input"], StyleBox["\n", "Input"], StyleBox[" ", "Input"], StyleBox[ RowBox[{"v", " ", "=", " ", RowBox[{"Table", "[", RowBox[{ RowBox[{"Join", "[", RowBox[{ RowBox[{"t", "[", RowBox[{"[", RowBox[{"c", "[", RowBox[{"[", "i", "]"}], "]"}], "]"}], "]"}], ",", " ", RowBox[{"{", "1", "}"}]}], "]"}], ",", " ", RowBox[{"{", RowBox[{"i", ",", " ", "1", ",", " ", "P"}], "}"}]}], "]"}]}], "Input"], StyleBox[";", "Input"], StyleBox["\n", "Input"], StyleBox[" ", "Input"], StyleBox[ RowBox[{"x2", " ", "=", " ", RowBox[{"t", "[", RowBox[{"[", RowBox[{ RowBox[{"c", "[", RowBox[{"[", "2", "]"}], "]"}], ",", " ", "1"}], "]"}], "]"}]}], "Input"], StyleBox[";", "Input"], StyleBox["\n", "Input"], StyleBox[" ", "Input"], StyleBox[ RowBox[{"y2", " ", "=", " ", RowBox[{"t", "[", RowBox[{"[", RowBox[{ RowBox[{"c", "[", RowBox[{"[", "2", "]"}], "]"}], ",", " ", "2"}], "]"}], "]"}]}], "Input"], StyleBox[";", "Input"], StyleBox[" ", "Input"], StyleBox["\n", "Input"], StyleBox[" ", "Input"], StyleBox[ RowBox[{"z2", " ", "=", " ", RowBox[{"t", "[", RowBox[{"[", RowBox[{ RowBox[{"c", "[", RowBox[{"[", "2", "]"}], "]"}], ",", " ", "3"}], "]"}], "]"}]}], "Input"], StyleBox[";", "Input"], StyleBox["\n", "Input"], StyleBox[" ", "Input"], StyleBox[ RowBox[{"Q", " ", "=", " ", RowBox[{"{", RowBox[{ RowBox[{"{", RowBox[{"1", ",", " ", "0", ",", " ", "0", ",", " ", "0"}], "}"}], ",", "\n", " ", RowBox[{"{", RowBox[{"0", ",", " ", "1", ",", " ", "0", ",", " ", "0"}], "}"}], ",", "\n", " ", RowBox[{"{", RowBox[{"0", ",", " ", "0", ",", " ", "1", ",", " ", "0"}], "}"}], ",", "\n", " ", RowBox[{"{", RowBox[{ RowBox[{"-", "x2"}], ",", " ", RowBox[{"-", "y2"}], ",", " ", RowBox[{"-", "z2"}], ",", " ", "1"}], "}"}]}], "}"}]}], "Input"], StyleBox[";", "Input"], StyleBox["\n", "Input"], StyleBox[" ", "Input"], StyleBox[ RowBox[{"p", " ", "=", " ", RowBox[{"v", ".", "Q"}]}], "Input"], StyleBox[";", "Input"], StyleBox["\n", "Input"], StyleBox[" ", "Input"], StyleBox[ RowBox[{"p", " ", "=", " ", RowBox[{"Table", "[", RowBox[{ RowBox[{"Take", "[", RowBox[{ RowBox[{"p", "[", RowBox[{"[", "i", "]"}], "]"}], ",", " ", "3"}], "]"}], ",", " ", RowBox[{"{", RowBox[{"i", ",", " ", "1", ",", " ", "P"}], "}"}]}], "]"}]}], "Input"], StyleBox[";", "Input"], StyleBox["\n", "Input"], StyleBox[" ", "Input"], StyleBox[ RowBox[{"T1", " ", "=", " ", RowBox[{"ArcTan", "[", RowBox[{ RowBox[{"p", "[", RowBox[{"[", RowBox[{"1", ",", " ", "3"}], "]"}], "]"}], "/", RowBox[{"p", "[", RowBox[{"[", RowBox[{"1", ",", " ", "2"}], "]"}], "]"}]}], "]"}]}], "Input"], StyleBox[";", "Input"], StyleBox["\n", "Input"], StyleBox[" ", "Input"], StyleBox[ RowBox[{"U", " ", "=", " ", "p"}], "Input"], StyleBox[";", "Input"], StyleBox["\n", "Input"], StyleBox[" ", "Input"], StyleBox[ RowBox[{"T", " ", "=", " ", RowBox[{"RotationMatrix", "[", RowBox[{"T1", ",", " ", RowBox[{"{", RowBox[{"1", ",", " ", "0", ",", " ", "0"}], "}"}]}], "]"}]}], "Input"], StyleBox[";", "Input"], StyleBox["\n", "Input"], StyleBox[" ", "Input"], StyleBox[ RowBox[{"p", " ", "=", " ", RowBox[{"U", ".", "T"}]}], "Input"], StyleBox[";", "Input"], StyleBox["\n", "Input"], StyleBox[" ", "Input"], StyleBox[ RowBox[{"T2", " ", "=", " ", RowBox[{"ArcTan", "[", RowBox[{ RowBox[{"p", "[", RowBox[{"[", RowBox[{"1", ",", " ", "2"}], "]"}], "]"}], "/", RowBox[{"p", "[", RowBox[{"[", RowBox[{"1", ",", " ", "1"}], "]"}], "]"}]}], "]"}]}], "Input"], StyleBox[";", "Input"], StyleBox["\n", "Input"], StyleBox[" ", "Input"], StyleBox[ RowBox[{"U", " ", "=", " ", "p"}], "Input"], StyleBox[";", "Input"], StyleBox["\n", "Input"], StyleBox[" ", "Input"], StyleBox[ RowBox[{"T", " ", "=", " ", RowBox[{"RotationMatrix", "[", RowBox[{"T2", ",", " ", RowBox[{"{", RowBox[{"0", ",", " ", "0", ",", " ", "1"}], "}"}]}], "]"}]}], "Input"], StyleBox[";", "Input"], StyleBox["\n", "Input"], StyleBox[" ", "Input"], StyleBox[ RowBox[{"p", " ", "=", " ", RowBox[{"U", ".", "T"}]}], "Input"], StyleBox[";", "Input"], StyleBox["\n", "Input"], StyleBox[" ", "Input"], StyleBox[ RowBox[{"T3", " ", "=", " ", RowBox[{"ArcTan", "[", RowBox[{ RowBox[{"p", "[", RowBox[{"[", RowBox[{"3", ",", " ", "3"}], "]"}], "]"}], "/", RowBox[{"p", "[", RowBox[{"[", RowBox[{"3", ",", " ", "2"}], "]"}], "]"}]}], "]"}]}], "Input"], StyleBox[";", "Input"], StyleBox["\n", "Input"], StyleBox[" ", "Input"], StyleBox[ RowBox[{"U", " ", "=", " ", "p"}], "Input"], StyleBox[";", "Input"], StyleBox["\n", "Input"], StyleBox[" ", "Input"], StyleBox[ RowBox[{"T", " ", "=", " ", RowBox[{"RotationMatrix", "[", RowBox[{"T3", ",", " ", RowBox[{"{", RowBox[{"1", ",", " ", "0", ",", " ", "0"}], "}"}]}], "]"}]}], "Input"], StyleBox[";", "Input"], StyleBox["\n", "Input"], StyleBox[" ", "Input"], StyleBox[ RowBox[{"p", " ", "=", " ", RowBox[{"Chop", "[", RowBox[{"U", ".", "T"}], "]"}]}], "Input"], StyleBox[";", "Input"], StyleBox["\n", "Input"], StyleBox[" ", "Input"], StyleBox[ RowBox[{"nk", " ", "=", " ", "p"}], "Input"], StyleBox[";", "Input"], StyleBox["\n", "Input"], StyleBox[" ", "Input"], RowBox[{"(*", StyleBox[ RowBox[{ RowBox[{ RowBox[{"nk", "[", RowBox[{"[", RowBox[{"4", ",", "2"}], "]"}], "]"}], "=", RowBox[{"L", "*", RowBox[{"Cos", "[", "\[Gamma]", "]"}]}]}], ";", " ", RowBox[{ RowBox[{"nk", "[", RowBox[{"[", RowBox[{"4", ",", "1"}], "]"}], "]"}], "=", RowBox[{ RowBox[{"-", "L"}], "*", RowBox[{"Sin", "[", "\[Gamma]", "]"}]}]}], ";"}], "Input"], "*)"}], StyleBox["\n", "Input"], StyleBox[" ", "Input"], StyleBox[ RowBox[{ RowBox[{"nk", "[", RowBox[{"[", RowBox[{"4", ",", "3"}], "]"}], "]"}], " ", "=", " ", RowBox[{ RowBox[{"nk", "[", RowBox[{"[", RowBox[{"4", ",", "3"}], "]"}], "]"}], " ", "+", " ", RowBox[{"u2", "[", RowBox[{"[", RowBox[{"c", "[", RowBox[{"[", "4", "]"}], "]"}], "]"}], "]"}], " ", "+", " ", "rln"}]}], "Input"], StyleBox[";", "Input"], StyleBox[" ", "Input"], StyleBox["\n", "Input"], StyleBox[" ", "Input"], StyleBox[ RowBox[{"U", " ", "=", " ", "p"}], "Input"], StyleBox[";", "Input"], StyleBox["\n", "Input"], StyleBox[" ", "Input"], StyleBox[ RowBox[{"U1", " ", "=", " ", "nk"}], "Input"], StyleBox[";", "Input"], StyleBox["\n", "Input"], StyleBox[" ", "Input"], StyleBox[ RowBox[{"T", " ", "=", " ", RowBox[{"RotationMatrix", "[", RowBox[{ RowBox[{"-", "T3"}], ",", " ", RowBox[{"{", RowBox[{"1", ",", " ", "0", ",", " ", "0"}], "}"}]}], "]"}]}], "Input"], StyleBox[";", "Input"], StyleBox["\n", "Input"], StyleBox[" ", "Input"], StyleBox[ RowBox[{"p", " ", "=", " ", RowBox[{"U", ".", "T"}]}], "Input"], StyleBox[";", "Input"], StyleBox["\n", "Input"], StyleBox[" ", "Input"], StyleBox[ RowBox[{"nk", " ", "=", " ", RowBox[{"U1", ".", "T"}]}], "Input"], StyleBox[";", "Input"], StyleBox["\n", "Input"], StyleBox[" ", "Input"], StyleBox[ RowBox[{"U", " ", "=", " ", "p"}], "Input"], StyleBox[";", "Input"], StyleBox["\n", "Input"], StyleBox[" ", "Input"], StyleBox[ RowBox[{"U1", " ", "=", " ", "nk"}], "Input"], StyleBox[";", "Input"], StyleBox["\n", "Input"], StyleBox[" ", "Input"], StyleBox[ RowBox[{"T", " ", "=", " ", RowBox[{"RotationMatrix", "[", RowBox[{ RowBox[{"-", "T2"}], ",", " ", RowBox[{"{", RowBox[{"0", ",", " ", "0", ",", " ", "1"}], "}"}]}], "]"}]}], "Input"], StyleBox[";", "Input"], StyleBox["\n", "Input"], StyleBox[" ", "Input"], StyleBox[ RowBox[{"p", " ", "=", " ", RowBox[{"U", ".", "T"}]}], "Input"], StyleBox[";", "Input"], StyleBox["\n", "Input"], StyleBox[" ", "Input"], StyleBox[ RowBox[{"nk", " ", "=", " ", RowBox[{"U1", ".", "T"}]}], "Input"], StyleBox[";", "Input"], StyleBox["\n", "Input"], StyleBox[" ", "Input"], StyleBox[ RowBox[{"U", " ", "=", " ", "p"}], "Input"], StyleBox[";", "Input"], StyleBox["\n", "Input"], StyleBox[" ", "Input"], StyleBox[ RowBox[{"U1", " ", "=", " ", "nk"}], "Input"], StyleBox[";", "Input"], StyleBox["\n", "Input"], StyleBox[" ", "Input"], StyleBox[ RowBox[{"T", " ", "=", " ", RowBox[{"RotationMatrix", "[", RowBox[{ RowBox[{"-", "T1"}], ",", " ", RowBox[{"{", RowBox[{"1", ",", " ", "0", ",", " ", "0"}], "}"}]}], "]"}]}], "Input"], StyleBox[";", "Input"], StyleBox["\n", "Input"], StyleBox[" ", "Input"], StyleBox[ RowBox[{"p", " ", "=", " ", RowBox[{"U", ".", "T"}]}], "Input"], StyleBox[";", "Input"], StyleBox["\n", "Input"], StyleBox[" ", "Input"], StyleBox[ RowBox[{"nk", " ", "=", " ", RowBox[{"U1", ".", "T"}]}], "Input"], StyleBox[";", "Input"], StyleBox["\n", "Input"], StyleBox[" ", "Input"], StyleBox[ RowBox[{"Clear", "[", RowBox[{"v", ",", " ", "v1", ",", " ", "v2"}], "]"}], "Input"], StyleBox[";", "Input"], StyleBox["\n", "Input"], StyleBox[" ", "Input"], StyleBox[ RowBox[{"v", " ", "=", " ", RowBox[{"Table", "[", RowBox[{ RowBox[{"Join", "[", RowBox[{ RowBox[{"p", "[", RowBox[{"[", "i", "]"}], "]"}], ",", " ", RowBox[{"{", "1", "}"}]}], "]"}], ",", " ", RowBox[{"{", RowBox[{"i", ",", " ", "1", ",", " ", "P"}], "}"}]}], "]"}]}], "Input"], StyleBox[";", "Input"], StyleBox["\n", "Input"], StyleBox[" ", "Input"], StyleBox[ RowBox[{"v1", " ", "=", " ", RowBox[{"Table", "[", RowBox[{ RowBox[{"Join", "[", RowBox[{ RowBox[{"nk", "[", RowBox[{"[", "i", "]"}], "]"}], ",", " ", RowBox[{"{", "1", "}"}]}], "]"}], ",", " ", RowBox[{"{", RowBox[{"i", ",", " ", "1", ",", " ", "P"}], "}"}]}], "]"}]}], "Input"], StyleBox[";", "Input"], StyleBox["\n", "Input"], StyleBox[" ", "Input"], StyleBox[ RowBox[{"Q", " ", "=", " ", RowBox[{"{", RowBox[{ RowBox[{"{", RowBox[{"1", ",", " ", "0", ",", " ", "0", ",", " ", "0"}], "}"}], ",", "\n", " ", RowBox[{"{", RowBox[{"0", ",", " ", "1", ",", " ", "0", ",", " ", "0"}], "}"}], ",", "\n", " ", RowBox[{"{", RowBox[{"0", ",", " ", "0", ",", " ", "1", ",", " ", "0"}], "}"}], ",", "\n", " ", RowBox[{"{", RowBox[{"x2", ",", " ", "y2", ",", " ", "z2", ",", " ", "1"}], "}"}]}], "}"}]}], "Input"], StyleBox[";", "Input"], StyleBox["\n", "Input"], StyleBox[" ", "Input"], StyleBox[ RowBox[{"p", " ", "=", " ", RowBox[{"v", ".", "Q"}]}], "Input"], StyleBox[";", "Input"], StyleBox["\n", "Input"], StyleBox[" ", "Input"], StyleBox[ RowBox[{"nk", " ", "=", " ", RowBox[{"v1", ".", "Q"}]}], "Input"], StyleBox[";", "Input"], StyleBox["\n", "Input"], StyleBox[" ", "Input"], StyleBox[ RowBox[{"p", " ", "=", " ", RowBox[{"Table", "[", RowBox[{ RowBox[{"Take", "[", RowBox[{ RowBox[{"p", "[", RowBox[{"[", "i", "]"}], "]"}], ",", " ", "3"}], "]"}], ",", " ", RowBox[{"{", RowBox[{"i", ",", " ", "1", ",", " ", "P"}], "}"}]}], "]"}]}], "Input"], StyleBox[";", "Input"], StyleBox["\n", "Input"], StyleBox[ RowBox[{ StyleBox[" ", "Input"], " "}]], StyleBox[ RowBox[{"nk", " ", "=", " ", RowBox[{"Table", "[", RowBox[{ RowBox[{"Take", "[", RowBox[{ RowBox[{"nk", "[", RowBox[{"[", "i", "]"}], "]"}], ",", " ", "3"}], "]"}], ",", " ", RowBox[{"{", RowBox[{"i", ",", " ", "1", ",", " ", "P"}], "}"}]}], "]"}]}], "Input"], StyleBox[";", "Input"], StyleBox["\n", "Input"], StyleBox[" ", "Input"], StyleBox[ RowBox[{ RowBox[{"tpln", "[", RowBox[{"[", "k", "]"}], "]"}], " ", "=", " ", RowBox[{"nk", "[", RowBox[{"[", "4", "]"}], "]"}]}], "Input"]}], StyleBox[")", "Input"]}], StyleBox[",", "Input"], StyleBox[" ", "Input"], StyleBox[ RowBox[{"{", RowBox[{"k", ",", " ", "1"}], "}"}], "Input"]}], StyleBox["]", "Input"]}], StyleBox[";", "Input"]}]}], "Input", CellChangeTimes->{{3.572794697520533*^9, 3.5727947043221455`*^9}, { 3.5727948024151173`*^9, 3.572794803507119*^9}, {3.5727948673580313`*^9, 3.572794869838436*^9}, {3.572795260993526*^9, 3.5727952676703377`*^9}, { 3.5727954366342344`*^9, 3.5727954702834935`*^9}, {3.5727973545484033`*^9, 3.5727973657024226`*^9}, {3.572803225319809*^9, 3.572803264553878*^9}, { 3.57280330550395*^9, 3.5728033127111626`*^9}, 3.5728033508376293`*^9, { 3.572803528365941*^9, 3.5728035301443443`*^9}, {3.572803715051469*^9, 3.572803769604765*^9}, {3.572840261866465*^9, 3.5728402628648667`*^9}, { 3.5728405648813972`*^9, 3.572840578905822*^9}, {3.5728406372187243`*^9, 3.572840716170463*^9}, {3.5728407476825185`*^9, 3.572840785746585*^9}, { 3.5728408298790627`*^9, 3.5728408871311636`*^9}, {3.5728409363336496`*^9, 3.572841070790286*^9}, {3.572841415987692*^9, 3.572841609740032*^9}, 3.5728416910629754`*^9, {3.5728417502806797`*^9, 3.572841879885707*^9}, { 3.572841914564568*^9, 3.5728419300709953`*^9}, {3.572841986199894*^9, 3.572842001659521*^9}, {3.5728426453322515`*^9, 3.5728426487174573`*^9}, { 3.572844776030794*^9, 3.572844786919613*^9}, {3.57284502999924*^9, 3.5728450550060835`*^9}, {3.572845459218394*^9, 3.572845496174859*^9}, { 3.5728455656105804`*^9, 3.572845617574272*^9}, {3.5728456738279705`*^9, 3.572845681440784*^9}, {3.5728457322656736`*^9, 3.572845755291314*^9}, 3.572845978356106*^9, {3.572846145151599*^9, 3.572846189096876*^9}, { 3.572846392926834*^9, 3.5728464086828613`*^9}, 3.572846518881455*^9, 3.5728469699562473`*^9, {3.5728470834620466`*^9, 3.572847089873658*^9}, { 3.572847132180932*^9, 3.5728472650151653`*^9}, 3.5728473515485177`*^9, { 3.572849422046554*^9, 3.572849426554962*^9}, {3.572849678776205*^9, 3.572849686077018*^9}, {3.5728503673146143`*^9, 3.5728503811830387`*^9}, { 3.5728505998798227`*^9, 3.572850604637831*^9}, 3.5730459405924234`*^9, { 3.5731485633994884`*^9, 3.5731485765503116`*^9}, {3.5731486137719765`*^9, 3.57314870088253*^9}, {3.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.574138145976776*^9, 3.5741382270501184`*^9}, { 3.574140244632862*^9, 3.574140269296505*^9}, 3.574140413315958*^9, { 3.5741410772219243`*^9, 3.5741410812311316`*^9}, 3.5741411417904377`*^9, { 3.5741416870737953`*^9, 3.574141747321101*^9}, 3.574141858939297*^9, { 3.57414191144899*^9, 3.5741419427738447`*^9}, {3.5741420030367503`*^9, 3.574142023347986*^9}, {3.5741420657020607`*^9, 3.5741420940161104`*^9}, { 3.574142129755773*^9, 3.5741421926238832`*^9}, {3.574142233511555*^9, 3.5741422497667837`*^9}, {3.57414229313486*^9, 3.574142340590143*^9}, { 3.5741423817742157`*^9, 3.5741423857678223`*^9}, 3.5741444642998734`*^9, { 3.5741448806334047`*^9, 3.5741449068258505`*^9}, {3.574144967962358*^9, 3.574145006151225*^9}, {3.574145074260945*^9, 3.574145087645768*^9}, { 3.574145129781442*^9, 3.5741451479086742`*^9}, 3.574145241898839*^9, { 3.5741456385607357`*^9, 3.574145699291642*^9}, {3.574145900251196*^9, 3.574145900843996*^9}, {3.574146053053464*^9, 3.5741460670778885`*^9}, { 3.5741514165456843`*^9, 3.574151423300496*^9}, {3.5741514989450293`*^9, 3.5741515005830317`*^9}, {3.574151557460732*^9, 3.5741515590363345`*^9}, { 3.5741518196815925`*^9, 3.5741518545164537`*^9}, {3.574151924232976*^9, 3.5741519672266517`*^9}, {3.574152046459191*^9, 3.574152061794018*^9}, { 3.574167602759714*^9, 3.5741676043197165`*^9}, 3.57416780541967*^9, 3.57416807863855*^9, {3.5741682149359894`*^9, 3.5741682224240026`*^9}, { 3.5741686777264023`*^9, 3.574168677742002*^9}, {3.5741771118344154`*^9, 3.5741771184332275`*^9}, {3.5741775756544304`*^9, 3.5741775798976383`*^9}, {3.574177785521599*^9, 3.574177789047205*^9}, { 3.5741779763567343`*^9, 3.5741779943123655`*^9}, {3.5741780653236904`*^9, 3.5741780653236904`*^9}}], Cell[BoxData[{ RowBox[{ RowBox[{"DeleteFile", "[", " ", "\"\\"", "]"}], ";"}], "\[IndentingNewLine]", RowBox[{"For", "[", RowBox[{ RowBox[{"i", "=", "2"}], ",", RowBox[{"i", "<", RowBox[{"n", "+", "2"}]}], ",", RowBox[{"i", "++"}], ",", "\[IndentingNewLine]", RowBox[{"For", "[", RowBox[{ RowBox[{"j", "=", "2"}], ",", RowBox[{"j", "\[LessEqual]", "i"}], ",", RowBox[{"j", "++"}], ",", "\[IndentingNewLine]", RowBox[{"If", "[", RowBox[{ RowBox[{ RowBox[{"Pij", "[", RowBox[{"[", RowBox[{"i", ",", "j"}], "]"}], "]"}], ">", "0"}], ",", RowBox[{ RowBox[{"{", RowBox[{ RowBox[{"i", "-", "1"}], ",", RowBox[{"j", "-", "1"}], ",", RowBox[{"Extract", "[", RowBox[{"Pij", ",", RowBox[{"{", RowBox[{"i", ",", "j"}], "}"}]}], "]"}]}], "}"}], ">>>", " ", "\"\\""}]}], "]"}]}], "]"}]}], "]"}]}], "Input", CellChangeTimes->{{3.5681154444347754`*^9, 3.568115497147268*^9}, { 3.568127214924899*^9, 3.568127265796589*^9}, {3.568128215276656*^9, 3.568128238536297*^9}, {3.568130718566253*^9, 3.5681307485339055`*^9}, 3.5681308175952272`*^9, {3.5681308916497574`*^9, 3.5681309458598523`*^9}, { 3.5681309983383446`*^9, 3.5681310118947687`*^9}, {3.5681310723448744`*^9, 3.568131074357278*^9}, {3.5681315215476637`*^9, 3.568131584509374*^9}, { 3.56813162789305*^9, 3.5681316427754765`*^9}, {3.5681317113063965`*^9, 3.568131715268804*^9}, {3.5681323203938665`*^9, 3.5681323260098763`*^9}, { 3.568132387567585*^9, 3.568132440014877*^9}, {3.5681325121026034`*^9, 3.568132590945142*^9}, {3.56813274298981*^9, 3.5681327548302307`*^9}, { 3.568132877867647*^9, 3.568132888335265*^9}, {3.568133052345154*^9, 3.568133072344389*^9}, {3.5681331740533676`*^9, 3.5681331951446047`*^9}, { 3.568133267793932*^9, 3.5681332684803333`*^9}, {3.5681335079111547`*^9, 3.568133536833606*^9}, {3.5681336272201643`*^9, 3.5681336314945717`*^9}, { 3.568133737994359*^9, 3.568133744000369*^9}, {3.568133978515581*^9, 3.5681339917912045`*^9}, {3.5681340324916763`*^9, 3.5681340418204927`*^9}, {3.568134244262048*^9, 3.5681342454944506`*^9}, { 3.5681343354754086`*^9, 3.568134336099409*^9}, {3.5681345828762426`*^9, 3.568134583952645*^9}, {3.5681348406666956`*^9, 3.5681348474683075`*^9}, 3.568134889151581*^9, {3.5681352914606876`*^9, 3.568135296265496*^9}, { 3.568135518877887*^9, 3.568135519595488*^9}, 3.5681357593679094`*^9, { 3.5681787035360527`*^9, 3.568178728449296*^9}, 3.5682779128076954`*^9, { 3.572714864038488*^9, 3.572714889419732*^9}, {3.5727149730514793`*^9, 3.57271500191153*^9}, {3.572715036933592*^9, 3.5727150664176435`*^9}, { 3.572715803191337*^9, 3.572715915183934*^9}, {3.5727159899548655`*^9, 3.572716037722149*^9}, {3.572767087700392*^9, 3.5727670990260115`*^9}, 3.5727756458897667`*^9, {3.5727757435615377`*^9, 3.5727758099084544`*^9}}], Cell[CellGroupData[{ Cell[BoxData[{ RowBox[{"a", "=", RowBox[{ "ReadList", "[", "\"\\"", "]"}]}], "\[IndentingNewLine]", RowBox[{"nb", "=", RowBox[{"Length", "[", "a", "]"}]}], "\[IndentingNewLine]", RowBox[{"cw", "=", RowBox[{"nb", "-", "bh"}]}]}], "Input", CellChangeTimes->{{3.5681343270045934`*^9, 3.568134331481801*^9}, 3.5681343823222904`*^9, {3.5681345934218616`*^9, 3.5681345986322703`*^9}, { 3.568134635479535*^9, 3.5681346521559644`*^9}, {3.5681351451792307`*^9, 3.568135145428831*^9}, {3.5681351781888885`*^9, 3.5681352349417877`*^9}, { 3.568135340163973*^9, 3.568135340335573*^9}, {3.568135523495495*^9, 3.5681355244314966`*^9}, {3.5681357674799232`*^9, 3.5681357771675406`*^9}, {3.568136284433632*^9, 3.5681362987700567`*^9}, { 3.568136395053426*^9, 3.5681363965510283`*^9}, {3.568381170343589*^9, 3.568381179844005*^9}, {3.5689533222924633`*^9, 3.568953376658559*^9}}], Cell[BoxData[ RowBox[{"{", RowBox[{ RowBox[{"{", RowBox[{"2", ",", "1", ",", "1.2013279965009078`"}], "}"}], ",", RowBox[{"{", RowBox[{"3", ",", "1", ",", "1.2035630416206544`"}], "}"}], ",", RowBox[{"{", RowBox[{"4", ",", "2", ",", "1.1916287876895755`"}], "}"}], ",", RowBox[{"{", RowBox[{"5", ",", "4", ",", "1.179555107613742`"}], "}"}], ",", RowBox[{"{", RowBox[{"6", ",", "3", ",", "1.2050005437466393`"}], "}"}], ",", RowBox[{"{", RowBox[{"6", ",", "5", ",", "1.2073132239282893`"}], "}"}], ",", RowBox[{"{", RowBox[{"7", ",", "1", ",", "1.210717608441075`"}], "}"}], ",", RowBox[{"{", RowBox[{"8", ",", "1", ",", "1.183627179615938`"}], "}"}], ",", RowBox[{"{", RowBox[{"9", ",", "7", ",", "1.1673496499139193`"}], "}"}], ",", RowBox[{"{", RowBox[{"10", ",", "4", ",", "1.2045814928639587`"}], "}"}], ",", RowBox[{"{", RowBox[{"11", ",", "5", ",", "1.1808691340675268`"}], "}"}], ",", RowBox[{"{", RowBox[{"12", ",", "11", ",", "1.1903736621758352`"}], "}"}], ",", RowBox[{"{", RowBox[{"13", ",", "8", ",", "1.0564134618366994`"}], "}"}], ",", RowBox[{"{", RowBox[{"14", ",", "10", ",", "1.2293825517727222`"}], "}"}], ",", RowBox[{"{", RowBox[{"15", ",", "14", ",", "1.1932327174812738`"}], "}"}], ",", RowBox[{"{", RowBox[{"16", ",", "11", ",", "1.0176930524918362`"}], "}"}], ",", RowBox[{"{", RowBox[{"17", ",", "8", ",", "1.0848582630783898`"}], "}"}], ",", RowBox[{"{", RowBox[{"18", ",", "16", ",", "1.1627970698850243`"}], "}"}], ",", RowBox[{"{", RowBox[{"19", ",", "13", ",", "1.0626686099447697`"}], "}"}], ",", RowBox[{"{", RowBox[{"20", ",", "17", ",", "1.0770595298723757`"}], "}"}], ",", RowBox[{"{", RowBox[{"21", ",", "19", ",", "1.0852893940877768`"}], "}"}], ",", RowBox[{"{", RowBox[{"21", ",", "20", ",", "1.10623674057073`"}], "}"}], ",", RowBox[{"{", RowBox[{"22", ",", "3", ",", "1.147653878920771`"}], "}"}], ",", RowBox[{"{", RowBox[{"22", ",", "9", ",", "1.1398952761056529`"}], "}"}], ",", RowBox[{"{", RowBox[{"22", ",", "12", ",", "1.1573893650995721`"}], "}"}], ",", RowBox[{"{", RowBox[{"23", ",", "2", ",", "1.1519108281476054`"}], "}"}], ",", RowBox[{"{", RowBox[{"23", ",", "13", ",", "1.1673570375590883`"}], "}"}], ",", RowBox[{"{", RowBox[{"23", ",", "15", ",", "1.0949826350156644`"}], "}"}], ",", RowBox[{"{", RowBox[{"24", ",", "10", ",", "1.1285851820757147`"}], "}"}], ",", RowBox[{"{", RowBox[{"24", ",", "18", ",", "1.1311753277707284`"}], "}"}], ",", RowBox[{"{", RowBox[{"25", ",", "15", ",", "0.9296373349413725`"}], "}"}], ",", RowBox[{"{", RowBox[{"26", ",", "2", ",", "1.197690241471804`"}], "}"}], ",", RowBox[{"{", RowBox[{"27", ",", "3", ",", "1.1976491017341822`"}], "}"}], ",", RowBox[{"{", RowBox[{"28", ",", "4", ",", "1.197791331234718`"}], "}"}], ",", RowBox[{"{", RowBox[{"29", ",", "5", ",", "1.197713336895049`"}], "}"}], ",", RowBox[{"{", RowBox[{"30", ",", "6", ",", "1.1976053509123794`"}], "}"}], ",", RowBox[{"{", RowBox[{"31", ",", "6", ",", "1.1976644071276508`"}], "}"}], ",", RowBox[{"{", RowBox[{"32", ",", "7", ",", "1.1977088201556532`"}], "}"}], ",", RowBox[{"{", RowBox[{"33", ",", "7", ",", "1.1975864253419775`"}], "}"}], ",", RowBox[{"{", RowBox[{"34", ",", "9", ",", "1.1977632902290711`"}], "}"}], ",", RowBox[{"{", RowBox[{"35", ",", "9", ",", "1.197699431069534`"}], "}"}], ",", RowBox[{"{", RowBox[{"36", ",", "10", ",", "1.197810022985657`"}], "}"}], ",", RowBox[{"{", RowBox[{"37", ",", "12", ",", "1.197864803399098`"}], "}"}], ",", RowBox[{"{", RowBox[{"38", ",", "12", ",", "1.1975598310626303`"}], "}"}], ",", RowBox[{"{", RowBox[{"39", ",", "14", ",", "1.1978091098705343`"}], "}"}], ",", RowBox[{"{", RowBox[{"40", ",", "14", ",", "1.1976905983150141`"}], "}"}], ",", RowBox[{"{", RowBox[{"41", ",", "16", ",", "1.197609298602956`"}], "}"}], ",", RowBox[{"{", RowBox[{"42", ",", "17", ",", "1.1976515958889404`"}], "}"}], ",", RowBox[{"{", RowBox[{"43", ",", "18", ",", "1.197679276261204`"}], "}"}], ",", RowBox[{"{", RowBox[{"44", ",", "18", ",", "1.197793732547277`"}], "}"}], ",", RowBox[{"{", RowBox[{"45", ",", "19", ",", "1.1975933309096596`"}], "}"}], ",", RowBox[{"{", RowBox[{"46", ",", "20", ",", "1.1977750079351681`"}], "}"}], ",", RowBox[{"{", RowBox[{"47", ",", "21", ",", "1.197583473733498`"}], "}"}]}], "}"}]], "Output", CellChangeTimes->{3.574181428829998*^9, 3.574927825990522*^9, 3.5802185050455384`*^9}], Cell[BoxData["53"], "Output", CellChangeTimes->{3.574181428829998*^9, 3.574927825990522*^9, 3.5802185050455384`*^9}], Cell[BoxData["31"], "Output", CellChangeTimes->{3.574181428829998*^9, 3.574927825990522*^9, 3.5802185050455384`*^9}] }, Open ]], Cell[CellGroupData[{ Cell[BoxData[{ RowBox[{ RowBox[{"data1", "=", RowBox[{"Table", "[", RowBox[{ RowBox[{"a", "[", RowBox[{"[", RowBox[{"i", ",", "3"}], "]"}], "]"}], ",", RowBox[{"{", RowBox[{"i", ",", "1", ",", "nb"}], "}"}]}], "]"}]}], ";"}], "\[IndentingNewLine]", RowBox[{"Histogram", "[", RowBox[{"data1", ",", RowBox[{"{", RowBox[{"0.9", ",", "1.25", ",", "0.01"}], "}"}]}], "]"}]}], "Input", CellChangeTimes->{{3.574927794821667*^9, 3.574927820358912*^9}}], Cell[BoxData[ GraphicsBox[ {RGBColor[0.798413061722744, 0.824719615472648, 0.968322270542458], EdgeForm[Opacity[0.567]], {}, {RGBColor[0.798413061722744, 0.824719615472648, 0.968322270542458], EdgeForm[Opacity[0.567]], TagBox[ TooltipBox[ TagBox[ DynamicBox[{ FEPrivate`If[ CurrentValue["MouseOver"], EdgeForm[{ GrayLevel[0.5], AbsoluteThickness[1.5], Opacity[0.66]}], {}, {}], RectangleBox[{0.92, 0}, {0.93, 1}, "RoundingRadius" -> 0]}, ImageSizeCache->{{27.985714285714266`, 38.7285714285714}, { 90.01272165278871, 98.74020662545823}}], StatusArea[#, 1]& , TagBoxNote->"1"], StyleBox["1", { GrayLevel[0]}, StripOnInput -> False]], Annotation[#, Style[1, { GrayLevel[0]}], "Tooltip"]& ], TagBox[ TooltipBox[ TagBox[ DynamicBox[{ FEPrivate`If[ CurrentValue["MouseOver"], EdgeForm[{ GrayLevel[0.5], AbsoluteThickness[1.5], Opacity[0.66]}], {}, {}], RectangleBox[{1.01, 0}, {1.02, 1}, "RoundingRadius" -> 0]}, ImageSizeCache->{{115.67142857142846`, 126.4142857142856}, { 90.01272165278871, 98.74020662545823}}], StatusArea[#, 1]& , TagBoxNote->"1"], StyleBox["1", { GrayLevel[0]}, StripOnInput -> False]], Annotation[#, Style[1, { GrayLevel[0]}], "Tooltip"]& ], TagBox[ TooltipBox[ TagBox[ DynamicBox[{ FEPrivate`If[ CurrentValue["MouseOver"], EdgeForm[{ GrayLevel[0.5], AbsoluteThickness[1.5], Opacity[0.66]}], {}, {}], RectangleBox[{1.05, 0}, {1.06, 1}, "RoundingRadius" -> 0]}, ImageSizeCache->{{154.6428571428571, 165.38571428571413`}, { 90.01272165278871, 98.74020662545823}}], StatusArea[#, 1]& , TagBoxNote->"1"], StyleBox["1", { GrayLevel[0]}, StripOnInput -> False]], Annotation[#, Style[1, { GrayLevel[0]}], "Tooltip"]& ], TagBox[ TooltipBox[ TagBox[ DynamicBox[{ FEPrivate`If[ CurrentValue["MouseOver"], EdgeForm[{ GrayLevel[0.5], AbsoluteThickness[1.5], Opacity[0.66]}], {}, {}], RectangleBox[{1.06, 0}, {1.07, 1}, "RoundingRadius" -> 0]}, ImageSizeCache->{{164.38571428571413`, 175.12857142857138`}, { 90.01272165278871, 98.74020662545823}}], StatusArea[#, 1]& , TagBoxNote->"1"], StyleBox["1", { GrayLevel[0]}, StripOnInput -> False]], Annotation[#, Style[1, { GrayLevel[0]}], "Tooltip"]& ], TagBox[ TooltipBox[ TagBox[ DynamicBox[{ FEPrivate`If[ CurrentValue["MouseOver"], EdgeForm[{ GrayLevel[0.5], AbsoluteThickness[1.5], Opacity[0.66]}], {}, {}], RectangleBox[{1.07, 0}, {1.08, 1}, "RoundingRadius" -> 0]}, ImageSizeCache->{{174.12857142857138`, 184.87142857142862`}, { 90.01272165278871, 98.74020662545823}}], StatusArea[#, 1]& , TagBoxNote->"1"], StyleBox["1", { GrayLevel[0]}, StripOnInput -> False]], Annotation[#, Style[1, { GrayLevel[0]}], "Tooltip"]& ], TagBox[ TooltipBox[ TagBox[ DynamicBox[{ FEPrivate`If[ CurrentValue["MouseOver"], EdgeForm[{ GrayLevel[0.5], AbsoluteThickness[1.5], Opacity[0.66]}], {}, {}], RectangleBox[{1.08, 0}, {1.09, 2}, "RoundingRadius" -> 0]}, ImageSizeCache->{{183.87142857142862`, 194.61428571428564`}, { 82.2852366801192, 98.74020662545823}}], StatusArea[#, 2]& , TagBoxNote->"2"], StyleBox["2", { GrayLevel[0]}, StripOnInput -> False]], Annotation[#, Style[2, { GrayLevel[0]}], "Tooltip"]& ], TagBox[ TooltipBox[ TagBox[ DynamicBox[{ FEPrivate`If[ CurrentValue["MouseOver"], EdgeForm[{ GrayLevel[0.5], AbsoluteThickness[1.5], Opacity[0.66]}], {}, {}], RectangleBox[{1.09, 0}, {1.1, 1}, "RoundingRadius" -> 0]}, ImageSizeCache->{{193.61428571428564`, 204.3571428571429}, { 90.01272165278871, 98.74020662545823}}], StatusArea[#, 1]& , TagBoxNote->"1"], StyleBox["1", { GrayLevel[0]}, StripOnInput -> False]], Annotation[#, Style[1, { GrayLevel[0]}], "Tooltip"]& ], TagBox[ TooltipBox[ TagBox[ DynamicBox[{ FEPrivate`If[ CurrentValue["MouseOver"], EdgeForm[{ GrayLevel[0.5], AbsoluteThickness[1.5], Opacity[0.66]}], {}, {}], RectangleBox[{1.1, 0}, {1.11, 1}, "RoundingRadius" -> 0]}, ImageSizeCache->{{203.3571428571429, 214.0999999999999}, { 90.01272165278871, 98.74020662545823}}], StatusArea[#, 1]& , TagBoxNote->"1"], StyleBox["1", { GrayLevel[0]}, StripOnInput -> False]], Annotation[#, Style[1, { GrayLevel[0]}], "Tooltip"]& ], TagBox[ TooltipBox[ TagBox[ DynamicBox[{ FEPrivate`If[ CurrentValue["MouseOver"], EdgeForm[{ GrayLevel[0.5], AbsoluteThickness[1.5], Opacity[0.66]}], {}, {}], RectangleBox[{1.12, 0}, {1.1300000000000001`, 1}, "RoundingRadius" -> 0]}, ImageSizeCache->{{222.84285714285716`, 233.5857142857144}, { 90.01272165278871, 98.74020662545823}}], StatusArea[#, 1]& , TagBoxNote->"1"], StyleBox["1", { GrayLevel[0]}, StripOnInput -> False]], Annotation[#, Style[1, { GrayLevel[0]}], "Tooltip"]& ], TagBox[ TooltipBox[ TagBox[ DynamicBox[{ FEPrivate`If[ CurrentValue["MouseOver"], EdgeForm[{ GrayLevel[0.5], AbsoluteThickness[1.5], Opacity[0.66]}], {}, {}], RectangleBox[{1.1300000000000001`, 0}, {1.1400000000000001`, 2}, "RoundingRadius" -> 0]}, ImageSizeCache->{{232.5857142857144, 243.32857142857142`}, { 82.2852366801192, 98.74020662545823}}], StatusArea[#, 2]& , TagBoxNote->"2"], StyleBox["2", { GrayLevel[0]}, StripOnInput -> False]], Annotation[#, Style[2, { GrayLevel[0]}], "Tooltip"]& ], TagBox[ TooltipBox[ TagBox[ DynamicBox[{ FEPrivate`If[ CurrentValue["MouseOver"], EdgeForm[{ GrayLevel[0.5], AbsoluteThickness[1.5], Opacity[0.66]}], {}, {}], RectangleBox[{1.1400000000000001`, 0}, {1.15, 1}, "RoundingRadius" -> 0]}, ImageSizeCache->{{242.32857142857142`, 253.07142857142844`}, { 90.01272165278871, 98.74020662545823}}], StatusArea[#, 1]& , TagBoxNote->"1"], StyleBox["1", { GrayLevel[0]}, StripOnInput -> False]], Annotation[#, Style[1, { GrayLevel[0]}], "Tooltip"]& ], TagBox[ TooltipBox[ TagBox[ DynamicBox[{ FEPrivate`If[ CurrentValue["MouseOver"], EdgeForm[{ GrayLevel[0.5], AbsoluteThickness[1.5], Opacity[0.66]}], {}, {}], RectangleBox[{1.15, 0}, {1.1600000000000001`, 2}, "RoundingRadius" -> 0]}, ImageSizeCache->{{252.07142857142844`, 262.8142857142857}, { 82.2852366801192, 98.74020662545823}}], StatusArea[#, 2]& , TagBoxNote->"2"], StyleBox["2", { GrayLevel[0]}, StripOnInput -> False]], Annotation[#, Style[2, { GrayLevel[0]}], "Tooltip"]& ], TagBox[ TooltipBox[ TagBox[ DynamicBox[{ FEPrivate`If[ CurrentValue["MouseOver"], EdgeForm[{ GrayLevel[0.5], AbsoluteThickness[1.5], Opacity[0.66]}], {}, {}], RectangleBox[{1.1600000000000001`, 0}, {1.17, 3}, "RoundingRadius" -> 0]}, ImageSizeCache->{{261.8142857142857, 272.5571428571427}, { 74.55775170744967, 98.74020662545823}}], StatusArea[#, 3]& , TagBoxNote->"3"], StyleBox["3", { GrayLevel[0]}, StripOnInput -> False]], Annotation[#, Style[3, { GrayLevel[0]}], "Tooltip"]& ], TagBox[ TooltipBox[ TagBox[ DynamicBox[{ FEPrivate`If[ CurrentValue["MouseOver"], EdgeForm[{ GrayLevel[0.5], AbsoluteThickness[1.5], Opacity[0.66]}], {}, {}], RectangleBox[{1.17, 0}, {1.1800000000000002`, 1}, "RoundingRadius" -> 0]}, ImageSizeCache->{{271.5571428571427, 282.29999999999995`}, { 90.01272165278871, 98.74020662545823}}], StatusArea[#, 1]& , TagBoxNote->"1"], StyleBox["1", { GrayLevel[0]}, StripOnInput -> False]], Annotation[#, Style[1, { GrayLevel[0]}], "Tooltip"]& ], TagBox[ TooltipBox[ TagBox[ DynamicBox[{ FEPrivate`If[ CurrentValue["MouseOver"], EdgeForm[{ GrayLevel[0.5], AbsoluteThickness[1.5], Opacity[0.66]}], {}, {}], RectangleBox[{1.1800000000000002`, 0}, {1.19, 2}, "RoundingRadius" -> 0]}, ImageSizeCache->{{281.29999999999995`, 292.042857142857}, { 82.2852366801192, 98.74020662545823}}], StatusArea[#, 2]& , TagBoxNote->"2"], StyleBox["2", { GrayLevel[0]}, StripOnInput -> False]], Annotation[#, Style[2, { GrayLevel[0]}], "Tooltip"]& ], TagBox[ TooltipBox[ TagBox[ DynamicBox[{ FEPrivate`If[ CurrentValue["MouseOver"], EdgeForm[{ GrayLevel[0.5], AbsoluteThickness[1.5], Opacity[0.66]}], {}, {}], RectangleBox[{1.19, 0}, {1.2, 25}, "RoundingRadius" -> 0]}, ImageSizeCache->{{291.042857142857, 301.7857142857142}, {-95.44691769127974, 98.74020662545823}}], StatusArea[#, 25]& , TagBoxNote->"25"], StyleBox["25", { GrayLevel[0]}, StripOnInput -> False]], Annotation[#, Style[25, { GrayLevel[0]}], "Tooltip"]& ], TagBox[ TooltipBox[ TagBox[ DynamicBox[{ FEPrivate`If[ CurrentValue["MouseOver"], EdgeForm[{ GrayLevel[0.5], AbsoluteThickness[1.5], Opacity[0.66]}], {}, {}], RectangleBox[{1.2, 0}, {1.21, 5}, "RoundingRadius" -> 0]}, ImageSizeCache->{{300.7857142857142, 311.52857142857124`}, { 59.10278176211064, 98.74020662545823}}], StatusArea[#, 5]& , TagBoxNote->"5"], StyleBox["5", { GrayLevel[0]}, StripOnInput -> False]], Annotation[#, Style[5, { GrayLevel[0]}], "Tooltip"]& ], TagBox[ TooltipBox[ TagBox[ DynamicBox[{ FEPrivate`If[ CurrentValue["MouseOver"], EdgeForm[{ GrayLevel[0.5], AbsoluteThickness[1.5], Opacity[0.66]}], {}, {}], RectangleBox[{1.21, 0}, {1.22, 1}, "RoundingRadius" -> 0]}, ImageSizeCache->{{310.52857142857124`, 321.2714285714285}, { 90.01272165278871, 98.74020662545823}}], StatusArea[#, 1]& , TagBoxNote->"1"], StyleBox["1", { GrayLevel[0]}, StripOnInput -> False]], Annotation[#, Style[1, { GrayLevel[0]}], "Tooltip"]& ], TagBox[ TooltipBox[ TagBox[ DynamicBox[{ FEPrivate`If[ CurrentValue["MouseOver"], EdgeForm[{ GrayLevel[0.5], AbsoluteThickness[1.5], Opacity[0.66]}], {}, {}], RectangleBox[{1.22, 0}, {1.23, 1}, "RoundingRadius" -> 0]}, ImageSizeCache->{{320.2714285714285, 331.0142857142855}, { 90.01272165278871, 98.74020662545823}}], StatusArea[#, 1]& , TagBoxNote->"1"], StyleBox["1", { GrayLevel[0]}, StripOnInput -> False]], Annotation[#, Style[1, { GrayLevel[0]}], "Tooltip"]& ]}, {}, {}}, AspectRatio->NCache[GoldenRatio^(-1), 0.6180339887498948], Axes->{True, True}, AxesLabel->{None, None}, AxesOrigin->{0.92, 0}, FrameTicks->{{Automatic, Automatic}, {Automatic, Automatic}}, GridLines->{None, None}, PlotRange->{{0.9, 1.25}, {All, All}}, PlotRangePadding->{{ Scaled[0.02], Scaled[0.02]}, { Scaled[0.02], Scaled[0.1]}}, Ticks->{Automatic, Automatic}]], "Output", CellChangeTimes->{3.574927826021722*^9, 3.5802185050923386`*^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", "+", "2"}]}], "}"}]}], "]"}]}], ";"}], "\[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", "+", "2"}]}], "}"}]}], "]"}]}], ";"}], "\[IndentingNewLine]", RowBox[{ RowBox[{"Plot8c", "=", RowBox[{"Graphics3D", "[", RowBox[{"{", RowBox[{ RowBox[{"Opacity", "[", "0.4", "]"}], ",", RowBox[{"Lighter", "[", "Red", "]"}], ",", RowBox[{"Sphere", "[", RowBox[{ RowBox[{"tlo", "[", RowBox[{"[", "1", "]"}], "]"}], ",", "rlo"}], "]"}]}], "}"}], "]"}]}], ";"}], "\[IndentingNewLine]", RowBox[{ RowBox[{"Plot8d", "=", RowBox[{"Graphics3D", "[", RowBox[{"{", RowBox[{ RowBox[{"Opacity", "[", "0.4", "]"}], ",", RowBox[{"Lighter", "[", "Red", "]"}], ",", RowBox[{"Sphere", "[", RowBox[{ RowBox[{"tlu", "[", RowBox[{"[", "1", "]"}], "]"}], ",", "rlo"}], "]"}]}], "}"}], "]"}]}], ";"}], "\[IndentingNewLine]", RowBox[{ RowBox[{"Plot8e", "=", RowBox[{"Graphics3D", "[", RowBox[{"{", RowBox[{ RowBox[{"Opacity", "[", "0.4", "]"}], ",", RowBox[{"Lighter", "[", "Blue", "]"}], ",", RowBox[{"Sphere", "[", RowBox[{ RowBox[{"tpln", "[", RowBox[{"[", "1", "]"}], "]"}], ",", "rln"}], "]"}]}], "}"}], "]"}]}], ";"}], "\n", RowBox[{ RowBox[{"Plot8f", "=", RowBox[{"Graphics3D", "[", RowBox[{"{", RowBox[{ RowBox[{"Opacity", "[", "0.4", "]"}], ",", RowBox[{"Lighter", "[", "Red", "]"}], ",", RowBox[{"Sphere", "[", RowBox[{ RowBox[{"tlo2", "[", RowBox[{"[", "1", "]"}], "]"}], ",", "rlo"}], "]"}]}], "}"}], "]"}]}], ";"}], "\[IndentingNewLine]", RowBox[{ RowBox[{"Plot8g", "=", RowBox[{"Graphics3D", "[", RowBox[{"{", RowBox[{ RowBox[{"Opacity", "[", "0.4", "]"}], ",", RowBox[{"Lighter", "[", "Red", "]"}], ",", RowBox[{"Sphere", "[", RowBox[{ RowBox[{"tlu2", "[", RowBox[{"[", "1", "]"}], "]"}], ",", "rlo"}], "]"}]}], "}"}], "]"}]}], ";"}]}], "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.574139617964161*^9, 3.574139641769803*^9}, { 3.5741401605331144`*^9, 3.5741401659619236`*^9}, {3.574140285130533*^9, 3.5741402860821347`*^9}, {3.5741405877866645`*^9, 3.5741405928098736`*^9}, {3.574145398803915*^9, 3.574145409209133*^9}, { 3.574151327531928*^9, 3.574151335113541*^9}, 3.5741524953499794`*^9, { 3.5741623531476936`*^9, 3.574162431522231*^9}, {3.5741625870701046`*^9, 3.574162625726972*^9}, {3.5741629049830627`*^9, 3.5741629632647653`*^9}, { 3.5741674194437923`*^9, 3.574167437945424*^9}, {3.574167644957788*^9, 3.5741676471417923`*^9}, {3.5741677090271006`*^9, 3.574167714767911*^9}, { 3.5741678336245193`*^9, 3.574167835808523*^9}, {3.574168138620655*^9, 3.5741681404926586`*^9}, {3.574168462539624*^9, 3.574168504768898*^9}, { 3.5741770900723777`*^9, 3.5741770966711893`*^9}, {3.5741778261908703`*^9, 3.574177828203274*^9}, {3.574178114042576*^9, 3.574178117365382*^9}}], Cell[CellGroupData[{ Cell[BoxData[{ RowBox[{ RowBox[{"Plot9", "=", " ", RowBox[{"Table", "[", RowBox[{ RowBox[{"Graphics3D", "[", RowBox[{"{", RowBox[{ RowBox[{"Lighter", "[", RowBox[{"Orange", ",", "0.5"}], "]"}], ",", RowBox[{"Tube", "[", RowBox[{ RowBox[{"{", RowBox[{ RowBox[{"{", RowBox[{ RowBox[{"x", "[", RowBox[{"[", RowBox[{"a", "[", RowBox[{"[", RowBox[{"i", ",", "1"}], "]"}], "]"}], "]"}], "]"}], ",", RowBox[{"y", "[", RowBox[{"[", RowBox[{"a", "[", RowBox[{"[", RowBox[{"i", ",", "1"}], "]"}], "]"}], "]"}], "]"}], ",", RowBox[{"z", "[", RowBox[{"[", RowBox[{"a", "[", RowBox[{"[", RowBox[{"i", ",", "1"}], "]"}], "]"}], "]"}], "]"}]}], "}"}], ",", RowBox[{"{", RowBox[{ RowBox[{"x", "[", RowBox[{"[", RowBox[{"a", "[", RowBox[{"[", RowBox[{"i", ",", "2"}], "]"}], "]"}], "]"}], "]"}], ",", RowBox[{"y", "[", RowBox[{"[", RowBox[{"a", "[", RowBox[{"[", RowBox[{"i", ",", "2"}], "]"}], "]"}], "]"}], "]"}], ",", RowBox[{"z", "[", RowBox[{"[", RowBox[{"a", "[", RowBox[{"[", RowBox[{"i", ",", "2"}], "]"}], "]"}], "]"}], "]"}]}], "}"}]}], "}"}], ",", "0.1"}], "]"}]}], "}"}], "]"}], ",", RowBox[{"{", RowBox[{"i", ",", "1", ",", "nb"}], "}"}]}], "]"}]}], ";"}], "\[IndentingNewLine]", RowBox[{"Show", "[", RowBox[{ "Plot1o", ",", "Plot7", ",", "Plot8", ",", "Plot8a", ",", "Plot8b", ",", "Plot8c", ",", "Plot8d", ",", "Plot8e", ",", "Plot8f", ",", "Plot8g", ",", "Plot9", ",", RowBox[{"{", RowBox[{ RowBox[{"AspectRatio", "\[Rule]", "Automatic"}], ",", RowBox[{"Boxed", "\[Rule]", "False"}], ",", RowBox[{"SphericalRegion", "\[Rule]", "True"}]}], "}"}]}], "]"}], "\[IndentingNewLine]", RowBox[{"Show", "[", RowBox[{"Plot1o", ",", "Plot2", ",", "Plot9", ",", RowBox[{"{", RowBox[{ RowBox[{"Axes", "\[Rule]", "Automatic"}], ",", RowBox[{"AxesLabel", "\[Rule]", RowBox[{"{", RowBox[{"xl", ",", "yl", ",", "zl"}], "}"}]}], ",", RowBox[{"AspectRatio", "\[Rule]", "Automatic"}], ",", RowBox[{"Boxed", "\[Rule]", "True"}], ",", " ", RowBox[{"SphericalRegion", "\[Rule]", "True"}]}], "}"}]}], "]"}], "\[IndentingNewLine]"}], "Input", CellChangeTimes->{{3.5681365021632137`*^9, 3.5681365171392403`*^9}, { 3.568136560351316*^9, 3.5681365863097615`*^9}, {3.5681369135895367`*^9, 3.5681369265999594`*^9}, {3.568137821916732*^9, 3.5681378378443604`*^9}, { 3.5682072492149415`*^9, 3.5682072529901485`*^9}, 3.568209802830227*^9, { 3.5682216503836985`*^9, 3.5682217583046885`*^9}, {3.5682217912831464`*^9, 3.568221843465238*^9}, {3.5682219760654707`*^9, 3.5682221133457117`*^9}, { 3.568222159615393*^9, 3.5682221693498106`*^9}, {3.5682222565227633`*^9, 3.5682222578487663`*^9}, 3.5682224736283445`*^9, 3.5682227227607822`*^9, 3.5682227558640404`*^9, {3.568222818810151*^9, 3.5682228486062036`*^9}, { 3.5682230057764797`*^9, 3.5682230079916835`*^9}, {3.568223041952943*^9, 3.5682230548229656`*^9}, 3.5682232619601297`*^9, 3.5682233000709963`*^9, { 3.568223536645412*^9, 3.5682235381118145`*^9}, {3.568223591151908*^9, 3.568223591526308*^9}, {3.5682236491528096`*^9, 3.568223657483224*^9}, { 3.568223713222122*^9, 3.5682237532361927`*^9}, {3.568223800379475*^9, 3.568223827648323*^9}, {3.5682238887380304`*^9, 3.5682238893152313`*^9}, { 3.5682240287170763`*^9, 3.5682240612431335`*^9}, 3.5682241088076167`*^9, { 3.568224198772975*^9, 3.5682242396450467`*^9}, {3.568224282170721*^9, 3.5682243185031853`*^9}, {3.568224437890195*^9, 3.568224439590598*^9}, { 3.568224572253231*^9, 3.5682245867144566`*^9}, {3.5682247081762695`*^9, 3.568224733557514*^9}, {3.56822480520844*^9, 3.5682248433505073`*^9}, { 3.568224884206979*^9, 3.5682248959069996`*^9}, {3.568224982830352*^9, 3.5682250047639904`*^9}, {3.56822503870965*^9, 3.5682250803305235`*^9}, { 3.5682251223413973`*^9, 3.568225141451431*^9}, {3.568225234177994*^9, 3.5682252929588966`*^9}, {3.5682253775890455`*^9, 3.568225482140429*^9}, { 3.56822551694409*^9, 3.5682255297205124`*^9}, {3.568225573197789*^9, 3.5682255809666023`*^9}, 3.568225660698343*^9, 3.5682257301964645`*^9, { 3.568225765078126*^9, 3.5682257828933573`*^9}, {3.568225927026843*^9, 3.568225927416844*^9}, {3.568267062420238*^9, 3.568267081358671*^9}, { 3.568267188328059*^9, 3.5682672830358257`*^9}, {3.5682676367040462`*^9, 3.568267747979042*^9}, 3.5682678404716043`*^9, 3.568267882030078*^9, { 3.5682679252577534`*^9, 3.568267996612279*^9}, {3.5682680488879704`*^9, 3.568268061133992*^9}, {3.568268100914062*^9, 3.5682681150944867`*^9}, { 3.5682681672609787`*^9, 3.5682681709113846`*^9}, {3.568268272904364*^9, 3.5682683182536435`*^9}, {3.5682685202739983`*^9, 3.568268599194537*^9}, { 3.5682686348873997`*^9, 3.568268637773405*^9}, {3.5682686944951043`*^9, 3.568268872273017*^9}, {3.5682689420207396`*^9, 3.568269016947671*^9}, { 3.5682695040741262`*^9, 3.568269601153097*^9}, {3.5682696652380095`*^9, 3.5682696728352227`*^9}, {3.5682697489633565`*^9, 3.5682698308635006`*^9}, {3.568271156491429*^9, 3.568271160063835*^9}, { 3.568271244927984*^9, 3.568271369010602*^9}, {3.5682716250070515`*^9, 3.5682717312276382`*^9}, {3.5682717843301315`*^9, 3.5682718576814604`*^9}, {3.568271940673606*^9, 3.5682720536490045`*^9}, { 3.5682722259669075`*^9, 3.5682723223126764`*^9}, {3.568272370813162*^9, 3.568272411466833*^9}, {3.5682725893539457`*^9, 3.568272622238803*^9}, { 3.5682726936713285`*^9, 3.5682726960113325`*^9}, {3.568272741079812*^9, 3.56827275143823*^9}, {3.5682729218373294`*^9, 3.568272991070251*^9}, { 3.5682734285574193`*^9, 3.5682734302890224`*^9}, {3.5682734898811274`*^9, 3.5682735111595645`*^9}, {3.5682736115925407`*^9, 3.5682736313577757`*^9}, {3.5682738601945777`*^9, 3.568273987272401*^9}, { 3.5682763944346285`*^9, 3.5682764313910933`*^9}, 3.5682765128232365`*^9, { 3.5682766527398825`*^9, 3.568276660976697*^9}, {3.5682774496048822`*^9, 3.568277461663703*^9}, {3.5683784032731285`*^9, 3.568378422991563*^9}, { 3.568378459308427*^9, 3.5683784812420654`*^9}, {3.568378513440522*^9, 3.568378867046343*^9}, {3.568378915468828*^9, 3.56837896203491*^9}, { 3.5683790764299107`*^9, 3.568379270041851*^9}, {3.568380233530743*^9, 3.568380234388745*^9}, 3.5683804214954734`*^9, 3.568380471867962*^9, 3.5683805399464817`*^9, {3.5683812396077104`*^9, 3.568381293537005*^9}, { 3.568381339541486*^9, 3.568381420224828*^9}, {3.5684645223056345`*^9, 3.5684645572340956`*^9}, {3.5684651558539467`*^9, 3.5684651618911576`*^9}, {3.5688209923798466`*^9, 3.568820997683856*^9}, { 3.568821158754139*^9, 3.568821160750942*^9}, 3.56882222404881*^9, { 3.568822649274357*^9, 3.5688226508031597`*^9}, 3.568822723109287*^9, { 3.5693397221142225`*^9, 3.5693397223326235`*^9}, {3.5693899272912874`*^9, 3.5693899274472876`*^9}, {3.5693910617720795`*^9, 3.5693910848757205`*^9}, 3.5693911374166126`*^9, {3.569391214402748*^9, 3.5693912147147484`*^9}, 3.569391451944365*^9, {3.569391487793228*^9, 3.569391507620863*^9}, { 3.5693923162258854`*^9, 3.5693923173958874`*^9}, {3.569406068526634*^9, 3.569406086092265*^9}, 3.569690172138941*^9, 3.569780036185542*^9, { 3.570453906913044*^9, 3.5704539079894457`*^9}, {3.570454575670618*^9, 3.5704545899602437`*^9}, {3.570454765008151*^9, 3.570454772277764*^9}, 3.5708553779481487`*^9, {3.5709431726830034`*^9, 3.570943174555007*^9}, { 3.5709495710522423`*^9, 3.5709495907082767`*^9}, {3.570949647617176*^9, 3.570949673138821*^9}, {3.570950759321929*^9, 3.5709507772775607`*^9}, { 3.5709508127364225`*^9, 3.5709508405200715`*^9}, {3.570991123104905*^9, 3.570991124259307*^9}, {3.5709912161278687`*^9, 3.570991227937089*^9}, { 3.5709912804155817`*^9, 3.570991308776431*^9}, {3.5709914026885962`*^9, 3.5709914215490294`*^9}, {3.570991574429298*^9, 3.5709916038821497`*^9}, 3.570991652445035*^9, 3.570991830004547*^9, 3.570991865276209*^9, { 3.5709919181759014`*^9, 3.5709919260539155`*^9}, {3.570992027251293*^9, 3.570992050058533*^9}, 3.5709920901350036`*^9, 3.570992186979974*^9, { 3.57122255431676*^9, 3.5712225562355638`*^9}, 3.571223175338251*^9, { 3.5713153738729277`*^9, 3.571315375682531*^9}, 3.5713224026962075`*^9, { 3.5713224627875133`*^9, 3.5713224654863176`*^9}, {3.5713224965147724`*^9, 3.571322572268505*^9}, {3.5713226259637995`*^9, 3.5713226549330506`*^9}, { 3.5713308245340652`*^9, 3.571330884469371*^9}, {3.5713309160126257`*^9, 3.5713309422674723`*^9}, 3.571331071326499*^9, {3.5713311246629925`*^9, 3.5713311332274075`*^9}, {3.571331300334901*^9, 3.5713313470881834`*^9}, 3.5713314298931284`*^9, 3.571331594130217*^9, {3.571331632849485*^9, 3.5713316334578857`*^9}, {3.5713316704299507`*^9, 3.5713316709447517`*^9}, {3.571331783327349*^9, 3.571331790019761*^9}, { 3.5713319475956383`*^9, 3.571331948360039*^9}, {3.5713326567416835`*^9, 3.571332681717327*^9}, {3.571332736801024*^9, 3.571332753305853*^9}, { 3.571332796221528*^9, 3.5713328475768185`*^9}, {3.571332914344936*^9, 3.571332924672154*^9}, {3.5713330072586994`*^9, 3.5713330320471425`*^9}, { 3.5713330798612266`*^9, 3.5713330883320417`*^9}, {3.5713331731961904`*^9, 3.571333178266199*^9}, {3.571333407851803*^9, 3.571333426837036*^9}, { 3.571333542292839*^9, 3.571333557705666*^9}, {3.5713336117441607`*^9, 3.5713337055939255`*^9}, {3.5713337750608473`*^9, 3.571333798070888*^9}, { 3.5713366694988756`*^9, 3.5713366834765005`*^9}, {3.5713369716090064`*^9, 3.57133697359021*^9}, {3.57138272164856*^9, 3.571382756233821*^9}, { 3.57138283537276*^9, 3.571382866900415*^9}, {3.5713829070080853`*^9, 3.5713829086616883`*^9}, {3.571382939175342*^9, 3.5713830233374896`*^9}, { 3.5713831045200324`*^9, 3.571383106126835*^9}, {3.571383198260597*^9, 3.5713832448422785`*^9}, 3.5716785972796593`*^9, 3.5718167268987517`*^9, { 3.571838452469782*^9, 3.5718386879053955`*^9}, 3.571838766139532*^9, { 3.571838857446493*^9, 3.5718388645757055`*^9}, 3.5723437133735733`*^9, 3.5723437554312468`*^9, {3.5723449027196617`*^9, 3.572344929582909*^9}, 3.5723450406551046`*^9, {3.57234950163894*^9, 3.5723495196413713`*^9}, { 3.572584520172369*^9, 3.5725845258195786`*^9}, {3.5726224003989472`*^9, 3.57262241340937*^9}, 3.572796748424938*^9, 3.5727968708695536`*^9, { 3.572796971801731*^9, 3.572796995841373*^9}, {3.57279741546651*^9, 3.5727974308793373`*^9}, {3.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.574143473729334*^9, 3.5741434924337664`*^9}, 3.574144178335771*^9, {3.574151292400666*^9, 3.5741512965970736`*^9}, { 3.5741525172212176`*^9, 3.574152528141237*^9}, {3.5741794779685717`*^9, 3.5741794783585725`*^9}, {3.5741796114424057`*^9, 3.574179612206807*^9}, { 3.5741797391286306`*^9, 3.5741797606254683`*^9}, {3.574179795148329*^9, 3.574179859217641*^9}, {3.5741800413479614`*^9, 3.5741800659492044`*^9}, { 3.574180161031371*^9, 3.574180176880999*^9}}], Cell[BoxData[ Graphics3DBox[{ {RGBColor[0.4, 0.2666666666666667, 0.13333333333333336`], Opacity[0.8], SphereBox[{-1.34924546674, -1.3595066789199999`, 0.27384019466}, 0.255]}, {RGBColor[0.4, 0.2666666666666667, 0.13333333333333336`], Opacity[0.8], SphereBox[{0.32306755696, 0.47160002055999994`, -1.25523159824}, 0.255]}, {RGBColor[0.4, 0.2666666666666667, 0.13333333333333336`], Opacity[0.8], SphereBox[{-1.58204081268, -0.8987536856, 3.1456378996}, 0.255]}, {RGBColor[0.4, 0.2666666666666667, 0.13333333333333336`], Opacity[0.8], SphereBox[{1.5169397519799999`, 2.6919146869999997`, 0.16456111953199998`}, 0.255]}, {RGBColor[0.4, 0.2666666666666667, 0.13333333333333336`], Opacity[0.8], SphereBox[{2.0042433956, 2.0788875726, 2.9247289302}, 0.255]}, {RGBColor[0.4, 0.2666666666666667, 0.13333333333333336`], Opacity[0.8], SphereBox[{-0.6228158950799999, 1.6721618456199998`, 4.1439801454}, 0.255]}, {RGBColor[0.4, 0.2666666666666667, 0.13333333333333336`], Opacity[0.8], SphereBox[{-0.25806098256, -4.0763279546, 0.113791740816}, 0.255]}, {RGBColor[0.4, 0.2666666666666667, 0.13333333333333336`], Opacity[0.8], SphereBox[{-3.8006169312, -1.18890221564, -1.2256006945599998`}, 0.255]}, {RGBColor[0.4, 0.2666666666666667, 0.13333333333333336`], Opacity[0.8], SphereBox[{-0.6052792378, -5.0948902686, 2.7470946862}, 0.255]}, {RGBColor[0.4, 0.2666666666666667, 0.13333333333333336`], Opacity[0.8], SphereBox[{3.6777847412, 3.6938474122, -1.52315695052}, 0.255]}, {RGBColor[0.4, 0.2666666666666667, 0.13333333333333336`], Opacity[0.8], SphereBox[{3.6203370708000002`, -0.26586555094000003`, 3.3005954315999997`}, 0.255]}, {RGBColor[0.4, 0.2666666666666667, 0.13333333333333336`], Opacity[0.8], SphereBox[{2.5484844836000002`, -2.4192272252, 4.905161778199999}, 0.255]}, {RGBColor[0.4, 0.2666666666666667, 0.13333333333333336`], Opacity[0.8], SphereBox[{-3.7242720008, 0.34810642645999995`, -3.3512400884}, 0.255]}, {RGBColor[0.4, 0.2666666666666667, 0.13333333333333336`], Opacity[0.8], SphereBox[{2.6962610568, 4.1657119944, -4.2849537049999995`}, 0.255]}, {RGBColor[0.4, 0.2666666666666667, 0.13333333333333336`], Opacity[0.8], SphereBox[{9.61870534*^-6, 3.3329097462, -4.940877599599999}, 0.255]}, {RGBColor[0.4, 0.2666666666666667, 0.13333333333333336`], Opacity[0.8], SphereBox[{5.915409297799999, -0.46853866444, 2.2170265432}, 0.255]}, {RGBColor[0.4, 0.2666666666666667, 0.13333333333333336`], Opacity[0.8], SphereBox[{-6.0824610761999995`, -2.4836668818, -0.67659749704}, 0.255]}, {RGBColor[0.4, 0.2666666666666667, 0.13333333333333336`], Opacity[0.8], SphereBox[{7.0743782536, 1.60205301102, 0.6645977369399999}, 0.255]}, {RGBColor[0.4, 0.2666666666666667, 0.13333333333333336`], Opacity[0.8], SphereBox[{-5.6812722464, 0.76365717386, -5.0676782142}, 0.255]}, {RGBColor[0.4, 0.2666666666666667, 0.13333333333333336`], Opacity[0.8], SphereBox[{-8.1441521422, -2.137280106, -2.3279534593999998`}, 0.255]}, {RGBColor[0.4, 0.2666666666666667, 0.13333333333333336`], Opacity[0.8], SphereBox[{-7.963305363999999, -0.53112638956, -4.5187128111999995`}, 0.255]}, {RGBColor[ NCache[ Rational[1, 3], 0.3333333333333333], NCache[ Rational[1, 3], 0.3333333333333333], 1], Opacity[0.8], SphereBox[{-0.151939639578, -2.9251068753999996`, 4.3915342513999995`}, 0.24]}, {RGBColor[ NCache[ Rational[1, 3], 0.3333333333333333], NCache[ Rational[1, 3], 0.3333333333333333], 1], Opacity[0.8], SphereBox[{-1.1618035448, 1.5148610533799998`, -3.366546869}, 0.24]}, {RGBColor[1, NCache[ Rational[1, 3], 0.3333333333333333], NCache[ Rational[1, 3], 0.3333333333333333]], Opacity[0.8], SphereBox[{5.7757585464, 2.0155817515999996`, -1.6608045923599999`}, 0.178]}, {RGBColor[1, NCache[ Rational[1, 3], 0.3333333333333333], NCache[ Rational[1, 3], 0.3333333333333333]], Opacity[0.8], SphereBox[{-1.1299238671799998`, 4.2326082947999994`, -6.721755382}, 0.178]}, {RGBColor[1, 1, 1], Opacity[0.8], SphereBox[{1.8813545138199999`, -0.6804336408199999, -1.83229722686}, 0.12]}, {RGBColor[1, 1, 1], Opacity[0.8], SphereBox[{-3.5609996743999996`, -0.8826721173400001, 3.5600548113999997`}, 0.12]}, {RGBColor[1, 1, 1], Opacity[0.8], SphereBox[{0.28406361232, 4.272670486, 0.42928905541999995`}, 0.12]}, {RGBColor[1, 1, 1], Opacity[0.8], SphereBox[{3.0383014628, 3.5957706328, 3.7722710412}, 0.12]}, {RGBColor[1, 1, 1], Opacity[0.8], SphereBox[{-1.8969069587999998`, 3.170960228, 3.6766509056}, 0.12]}, {RGBColor[1, 1, 1], Opacity[0.8], SphereBox[{-0.46347419875999996`, 1.62852807228, 6.1591839518}, 0.12]}, {RGBColor[1, 1, 1], Opacity[0.8], SphereBox[{-1.17079864056, -5.2073289655999995`, -1.2920056662000001`}, 0.12]}, {RGBColor[1, 1, 1], Opacity[0.8], SphereBox[{ 1.6988258794799997`, -4.0392893249999995`, -0.39340315868000003`}, 0.12]}, {RGBColor[1, 1, 1], Opacity[0.8], SphereBox[{-2.4388803755999997`, -5.9008584075999995`, 3.0246954356}, 0.12]}, {RGBColor[1, 1, 1], Opacity[0.8], SphereBox[{0.7263161881, -6.5688765486, 3.1248509136}, 0.12]}, {RGBColor[1, 1, 1], Opacity[0.8], SphereBox[{4.2979928144, 5.415954716, -0.6637284629799999}, 0.12]}, {RGBColor[1, 1, 1], Opacity[0.8], SphereBox[{2.7011743444, -1.8628163017599997`, 6.8432647638}, 0.12]}, {RGBColor[1, 1, 1], Opacity[0.8], SphereBox[{3.6038964546, -4.0993826118, 4.51644514}, 0.12]}, {RGBColor[1, 1, 1], Opacity[0.8], SphereBox[{2.6561988656, 6.17940402, -4.4648556202}, 0.12]}, {RGBColor[1, 1, 1], Opacity[0.8], SphereBox[{3.9466927509999996`, 3.1915582413999997`, -5.5402986868}, 0.12]}, {RGBColor[1, 1, 1], Opacity[0.8], SphereBox[{6.9575931868, -2.1818776395999997`, 2.4747851696}, 0.12]}, {RGBColor[1, 1, 1], Opacity[0.8], SphereBox[{-6.234206073999999, -3.6866664534, 0.94144259594}, 0.12]}, {RGBColor[1, 1, 1], Opacity[0.8], SphereBox[{8.964293226199999, 1.0411634369599998`, 0.21512640784}, 0.12]}, {RGBColor[1, 1, 1], Opacity[0.8], SphereBox[{7.0358278432, 3.3143904313999997`, 1.7394360912199998`}, 0.12]}, {RGBColor[1, 1, 1], Opacity[0.8], SphereBox[{-5.476425948, 1.9689055193999998`, -6.678102711399999}, 0.12]}, {RGBColor[1, 1, 1], Opacity[0.8], SphereBox[{-9.885912596399999, -3.0902689278, -1.9447170265999998`}, 0.12]}, {RGBColor[1, 1, 1], Opacity[0.8], SphereBox[{-9.5603128066, -0.31360002969999995`, -5.7394758072}, 0.12]}, {RGBColor[0.36, 0.24, 0.12], Opacity[0.5], SphereBox[{-0.5128880492815882, -0.44373334667653763`, \ -0.4908793989175738}, 1.2013279965009078`]}, {RGBColor[0.36, 0.24, 0.12], Opacity[0.5], SphereBox[{-1.4656710640511892`, -1.129074913870774, 1.710083525919364}, 1.2035630416206544`]}, {RGBColor[0.36, 0.24, 0.12], Opacity[0.5], SphereBox[{0.9200036544699999, 1.5817573537799998`, -0.5453352393540001}, 1.1916287876895755`]}, {RGBColor[0.36, 0.24, 0.12], Opacity[0.5], SphereBox[{1.76059157379, 2.3854011298, 1.544645024866}, 1.179555107613742]}, {RGBColor[0.36, 0.24, 0.12], Opacity[0.5], SphereBox[{-1.10242835388, 0.3867040800099999, 3.6448090224999996`}, 1.2050005437466393`]}, {RGBColor[0.36, 0.24, 0.12], Opacity[0.5], SphereBox[{0.6907137502600001, 1.8755247091099998`, 3.5343545377999996`}, 1.2073132239282893`]}, {RGBColor[0.36, 0.24, 0.12], Opacity[0.5], SphereBox[{-0.8035229733003133, -2.718241615394324, 0.19379686324427717`}, 1.210717608441075]}, {RGBColor[0.36, 0.24, 0.12], Opacity[0.5], SphereBox[{-2.57493119897, -1.2742044472799998`, -0.47588024995}, 1.183627179615938]}, {RGBColor[0.36, 0.24, 0.12], Opacity[0.5], SphereBox[{-0.43167011018, -4.5856091116, 1.430443213508}, 1.1673496499139193`]}, {RGBColor[0.36, 0.24, 0.12], Opacity[0.5], SphereBox[{2.59736224659, 3.1928810495999995`, -0.679297915494}, 1.2045814928639587`]}, {RGBColor[0.36, 0.24, 0.12], Opacity[0.5], SphereBox[{2.812093315900647, 0.906796713608139, 3.1126163824308213`}, 1.1808691340675268`]}, {RGBColor[0.36, 0.24, 0.12], Opacity[0.5], SphereBox[{3.0842810330395722`, -1.342807045277774, 4.103072832274153}, 1.1903736621758352`]}, {RGBColor[0.36, 0.24, 0.12], Opacity[0.5], SphereBox[{-3.762444466, -0.42039789458999993`, -2.28842039148}, 1.0564134618366994`]}, {RGBColor[0.36, 0.24, 0.12], Opacity[0.5], SphereBox[{3.187022899, 3.9297797032999995`, -2.9040553277599996`}, 1.2293825517727222`]}, {RGBColor[0.36, 0.24, 0.12], Opacity[0.5], SphereBox[{1.3484610657873708`, 3.7494114792549986`, -4.612836411618629}, 1.1932327174812738`]}, {RGBColor[0.36, 0.24, 0.12], Opacity[0.5], SphereBox[{4.7681886784531144`, -0.3672299683305283, 2.7586620336351615`}, 1.0176930524918362`]}, {RGBColor[0.36, 0.24, 0.12], Opacity[0.5], SphereBox[{-4.941836959425521, -1.8364536148441393`, -0.9510274087628334}, 1.0848582630783898`]}, {RGBColor[0.36, 0.24, 0.12], Opacity[0.5], SphereBox[{6.4948937757, 0.5667571732900001, 1.4408121400699998`}, 1.1627970698850243`]}, {RGBColor[0.36, 0.24, 0.12], Opacity[0.5], SphereBox[{-4.703031964425005, 0.5559369749354138, -4.209687051475118}, 1.0626686099447697`]}, {RGBColor[0.36, 0.24, 0.12], Opacity[0.5], SphereBox[{-7.1133066091999995`, -2.3104734939, -1.5022754782199996`}, 1.0770595298723757`]}, {RGBColor[0.36, 0.24, 0.12], Opacity[0.5], SphereBox[{-6.8222888051999995`, 0.11626539215000009`, -4.7931955127}, 1.0852893940877768`]}, {RGBColor[0.36, 0.24, 0.12], Opacity[0.5], SphereBox[{-8.0537287531, -1.33420324778, -3.4233331352999996`}, 1.10623674057073]}, {RGBColor[0.36, 0.24, 0.12], Opacity[0.5], SphereBox[{-0.8593180973213066, -1.922801149620612, 3.7752699923247874`}, 1.147653878920771]}, {RGBColor[0.36, 0.24, 0.12], Opacity[0.5], SphereBox[{-0.3761637137579423, -3.998292792578663, 3.5781860671734953`}, 1.1398952761056529`]}, {RGBColor[0.36, 0.24, 0.12], Opacity[0.5], SphereBox[{1.1838862561928656`, -2.674862059750305, 4.645611729523223}, 1.1573893650995721`]}, {RGBColor[0.36, 0.24, 0.12], Opacity[0.5], SphereBox[{-0.42730958870728064`, 0.9988102511756276, -2.3221812645098865`}, 1.1519108281476054`]}, {RGBColor[0.36, 0.24, 0.12], Opacity[0.5], SphereBox[{-2.4291680659320005`, 0.9377989570397937, -3.3589763287189016`}, 1.1673570375590883`]}, {RGBColor[0.36, 0.24, 0.12], Opacity[0.5], SphereBox[{-0.5875262379212799, 2.4135116625166453`, -4.144729145208321}, 1.0949826350156644`]}, {RGBColor[0.36, 0.24, 0.12], Opacity[0.5], SphereBox[{4.756796504893018, 2.8306963156986766`, -1.5939506965724224`}, 1.1285851820757147`]}, {RGBColor[0.36, 0.24, 0.12], Opacity[0.5], SphereBox[{6.406519103408697, 1.8147241661951492`, -0.5313191391774437}, 1.1311753277707284`]}, {RGBColor[0.36, 0.24, 0.12], Opacity[0.5], SphereBox[{-0.5841016514330404, 3.7980026640832483`, -5.861490004164532}, 0.9296373349413725]}, {Opacity[0.5], SphereBox[{1.442612156737873, -0.35607363651738777`, -1.669821931166073}, 1.197690241471804]}, {Opacity[0.5], SphereBox[{-3.0038040066104807`, -0.8872000437861038, 3.443371583476315}, 1.1976491017341822`]}, {Opacity[0.5], SphereBox[{0.6311678085878621, 3.827624180489559, 0.3547574991183303}, 1.197791331234718]}, {Opacity[0.5], SphereBox[{2.7471613170277984`, 3.168690598057043, 3.5336446607562273`}, 1.197713336895049]}, {Opacity[0.5], SphereBox[{-1.5381661096061992`, 2.7489494159192565`, 3.808234976089791}, 1.1976053509123794`]}, {Opacity[0.5], SphereBox[{-0.5083381080331809, 1.6408135047410737`, 5.591787452168594}, 1.1976644071276508`]}, {Opacity[0.5], SphereBox[{-0.9138158106535509, -4.888893719846356, -0.8962010308114164}, 1.1977088201556532`]}, {Opacity[0.5], SphereBox[{ 1.1478277241949206`, -4.0497182450258675`, -0.25059293320740206`}, 1.1975864253419775`]}, {Opacity[0.5], SphereBox[{-1.9226407836971744`, -5.673942828968077, 2.946538580966871}, 1.1977632902290711`]}, {Opacity[0.5], SphereBox[{0.3514015049816738, -6.153871293746818, 3.018492515593396}, 1.197699431069534]}, {Opacity[0.5], SphereBox[{4.123380922831692, 4.931116761136505, -0.9056898955404835}, 1.197810022985657]}, {Opacity[0.5], SphereBox[{2.6581875722005615`, -2.0194626533243905`, 6.297630684991281}, 1.197864803399098]}, {Opacity[0.5], SphereBox[{3.306721533836817, -3.6262971649771782`, 4.625897031138741}, 1.1975598310626303`]}, {Opacity[0.5], SphereBox[{2.6674778837987856`, 5.612473746762925, -4.414206444137529}, 1.1978091098705343`]}, {Opacity[0.5], SphereBox[{3.5946284218674687`, 3.4658353483484956`, -5.186851000775003}, 1.1976905983150141`]}, {Opacity[0.5], SphereBox[{6.664150108805525, -1.6994604118675065`, 2.402209220663561}, 1.197609298602956]}, {Opacity[0.5], SphereBox[{-6.1914808043035405`, -3.347950305345634, 0.4858677805950583}, 1.1976515958889404`]}, {Opacity[0.5], SphereBox[{8.43217669734484, 1.199085151718024, 0.3416776691020736}, 1.197679276261204]}, {Opacity[0.5], SphereBox[{7.046681320606843, 2.8322991822498853`, 1.4368262441874524`}, 1.197793732547277]}, {Opacity[0.5], SphereBox[{-5.534104063801813, 1.6295464282815675`, -6.224659074072465}, 1.1975933309096596`]}, {Opacity[0.5], SphereBox[{-9.395533049308613, -2.8219620973799215`, \ -2.0526143599515603`}, 1.1977750079351681`]}, {Opacity[0.5], SphereBox[{-9.110644787209473, -0.3748487407543646, -5.3957466147656366`}, 1.197583473733498]}, {RGBColor[ NCache[ Rational[1, 3], 0.3333333333333333], 1, 1], Opacity[0.3], SphereBox[{-4.199650660042419, -0.09470756597377661, -0.4487415362256686}, 1.4]}, {RGBColor[ NCache[ Rational[1, 3], 0.3333333333333333], 1, 1], Opacity[0.3], SphereBox[{4.18493402816163, 0.3069658634659731, 4.446498763651897}, 1.4]}, {RGBColor[ NCache[ Rational[1, 3], 0.3333333333333333], 1, 1], Opacity[0.3], SphereBox[{-4.167456189461149, 1.43175818347192, -2.5835900089720503`}, 1.4]}, {RGBColor[ NCache[ Rational[1, 3], 0.3333333333333333], 1, 1], Opacity[0.3], SphereBox[{0.5122787593321467, 2.3084457373212994`, -5.745895501310052}, 1.4]}, {RGBColor[ NCache[ Rational[1, 3], 0.3333333333333333], 1, 1], Opacity[0.3], SphereBox[{5.324508187566037, -1.0014296363028028`, 1.0651311095640348`}, 1.4]}, {RGBColor[ NCache[ Rational[1, 3], 0.3333333333333333], 1, 1], Opacity[0.3], SphereBox[{-6.514876708945119, -1.3959378024439961`, 0.09142735313151507}, 1.4]}, {RGBColor[ NCache[ Rational[1, 3], 0.3333333333333333], 1, 1], Opacity[0.3], SphereBox[{-6.117226518875748, 1.8547586811311916`, -4.30646774846751}, 1.4]}, {RGBColor[ NCache[ Rational[1, 3], 0.3333333333333333], 1, 1], Opacity[0.3], SphereBox[{-8.573297266991815, -1.045921429425592, -1.5632504445418305`}, 1.4]}, {RGBColor[ NCache[ Rational[1, 3], 0.3333333333333333], 1, 1], Opacity[0.3], SphereBox[{-8.3981785734832, 0.5589521364757946, -3.755421190160302}, 1.4]}, {RGBColor[ NCache[ Rational[1, 3], 0.3333333333333333], 1, 1], Opacity[0.3], SphereBox[{-1.6217919451511027`, 2.5361228769322013`, -2.5266451132587315`}, 1.4]}, {RGBColor[ NCache[ Rational[1, 3], 0.3333333333333333], 1, 1], Opacity[0.3], SphereBox[{-1.6141260011765726`, 5.255602590323492, -5.897722030272318}, 1.4]}, {RGBColor[1, 1, NCache[ Rational[1, 3], 0.3333333333333333]], Opacity[0.3], SphereBox[{-3.40158320235758, -2.2830968653062236`, -2.0024598528943303`}, 1.4]}, {RGBColor[1, 1, NCache[ Rational[1, 3], 0.3333333333333333]], Opacity[0.3], SphereBox[{3.0557401134383713`, -0.8386969653459735, 2.1546920995481016`}, 1.4]}, {RGBColor[1, 1, NCache[ Rational[1, 3], 0.3333333333333333]], Opacity[0.3], SphereBox[{-3.2810878121388516`, -0.73554533055192, -4.118890167827949}, 1.4]}, {RGBColor[1, 1, NCache[ Rational[1, 3], 0.3333333333333333]], Opacity[0.3], SphereBox[{-0.5122595219214663, 4.3573737550787, -4.135859697889947}, 1.4]}, {RGBColor[1, 1, NCache[ Rational[1, 3], 0.3333333333333333]], Opacity[0.3], SphereBox[{6.506310408033963, 0.06435230742280279, 3.3689219768359644`}, 1.4]}, {RGBColor[1, 1, NCache[ Rational[1, 3], 0.3333333333333333]], Opacity[0.3], SphereBox[{-5.65004544345488, -3.5713959611560036`, -1.4446223472115154`}, 1.4]}, {RGBColor[1, 1, NCache[ Rational[1, 3], 0.3333333333333333]], Opacity[0.3], SphereBox[{-5.245317973924251, -0.3274443334111918, -5.82888867993249}, 1.4]}, {RGBColor[1, 1, NCache[ Rational[1, 3], 0.3333333333333333]], Opacity[0.3], SphereBox[{-7.715007017408183, -3.2286387825744076`, -3.092656474258169}, 1.4]}, {RGBColor[1, 1, NCache[ Rational[1, 3], 0.3333333333333333]], Opacity[0.3], SphereBox[{-7.528432154516798, -1.6212049155957953`, -5.282004432239697}, 1.4]}, {RGBColor[1, 1, NCache[ Rational[1, 3], 0.3333333333333333]], Opacity[0.3], SphereBox[{-0.701815144448897, 0.49359922982779847`, -4.2064486247412685`}, 1.4]}, {RGBColor[1, 1, NCache[ Rational[1, 3], 0.3333333333333333]], Opacity[0.3], SphereBox[{-0.6457217331834271, 3.209613999276507, -7.545788733727681}, 1.4]}, {RGBColor[1, NCache[ Rational[1, 3], 0.3333333333333333], NCache[ Rational[1, 3], 0.3333333333333333]], Opacity[0.4], SphereBox[{6.648380652815323, 2.5883560851654863`, -2.440720755933942}, 1.125]}, {RGBColor[1, NCache[ Rational[1, 3], 0.3333333333333333], NCache[ Rational[1, 3], 0.3333333333333333]], Opacity[0.4], SphereBox[{5.289392743420511, 0.8525778547625813, -1.990469940301056}, 1.125]}, {RGBColor[ NCache[ Rational[1, 3], 0.3333333333333333], NCache[ Rational[1, 3], 0.3333333333333333], 1], Opacity[0.4], SphereBox[{-0.8026452175843439, -3.1991667015319294`, 5.68225565854097}, 1.246]}, {RGBColor[1, NCache[ Rational[1, 3], 0.3333333333333333], NCache[ Rational[1, 3], 0.3333333333333333]], Opacity[0.4], SphereBox[{-2.307387309811171, 3.6745867249981137`, -6.720878510863759}, 1.125]}, {RGBColor[1, NCache[ Rational[1, 3], 0.3333333333333333], NCache[ Rational[1, 3], 0.3333333333333333]], Opacity[0.4], SphereBox[{-0.307852051546606, 5.073606991121825, -7.282761730204905}, 1.125]}, {RGBColor[1., 0.75, 0.5], TubeBox[{{0.32306755696, 0.47160002055999994`, -1.25523159824}, {-1.34924546674, \ -1.3595066789199999`, 0.27384019466}}, 0.1]}, {RGBColor[1., 0.75, 0.5], TubeBox[{{-1.58204081268, -0.8987536856, 3.1456378996}, {-1.34924546674, -1.3595066789199999`, 0.27384019466}}, 0.1]}, {RGBColor[1., 0.75, 0.5], TubeBox[{{1.5169397519799999`, 2.6919146869999997`, 0.16456111953199998`}, {0.32306755696, 0.47160002055999994`, -1.25523159824}}, 0.1]}, {RGBColor[1., 0.75, 0.5], TubeBox[{{2.0042433956, 2.0788875726, 2.9247289302}, {1.5169397519799999`, 2.6919146869999997`, 0.16456111953199998`}}, 0.1]}, {RGBColor[1., 0.75, 0.5], TubeBox[{{-0.6228158950799999, 1.6721618456199998`, 4.1439801454}, {-1.58204081268, -0.8987536856, 3.1456378996}}, 0.1]}, {RGBColor[1., 0.75, 0.5], TubeBox[{{-0.6228158950799999, 1.6721618456199998`, 4.1439801454}, { 2.0042433956, 2.0788875726, 2.9247289302}}, 0.1]}, {RGBColor[1., 0.75, 0.5], TubeBox[{{-0.25806098256, -4.0763279546, 0.113791740816}, {-1.34924546674, -1.3595066789199999`, 0.27384019466}}, 0.1]}, {RGBColor[1., 0.75, 0.5], TubeBox[{{-3.8006169312, -1.18890221564, -1.2256006945599998`}, \ {-1.34924546674, -1.3595066789199999`, 0.27384019466}}, 0.1]}, {RGBColor[1., 0.75, 0.5], TubeBox[{{-0.6052792378, -5.0948902686, 2.7470946862}, {-0.25806098256, -4.0763279546, 0.113791740816}}, 0.1]}, {RGBColor[1., 0.75, 0.5], TubeBox[{{3.6777847412, 3.6938474122, -1.52315695052}, { 1.5169397519799999`, 2.6919146869999997`, 0.16456111953199998`}}, 0.1]}, {RGBColor[1., 0.75, 0.5], TubeBox[{{3.6203370708000002`, -0.26586555094000003`, 3.3005954315999997`}, {2.0042433956, 2.0788875726, 2.9247289302}}, 0.1]}, {RGBColor[1., 0.75, 0.5], TubeBox[{{2.5484844836000002`, -2.4192272252, 4.905161778199999}, { 3.6203370708000002`, -0.26586555094000003`, 3.3005954315999997`}}, 0.1]}, {RGBColor[1., 0.75, 0.5], TubeBox[{{-3.7242720008, 0.34810642645999995`, -3.3512400884}, {-3.8006169312, -1.18890221564, \ -1.2256006945599998`}}, 0.1]}, {RGBColor[1., 0.75, 0.5], TubeBox[{{2.6962610568, 4.1657119944, -4.2849537049999995`}, { 3.6777847412, 3.6938474122, -1.52315695052}}, 0.1]}, {RGBColor[1., 0.75, 0.5], TubeBox[{{9.61870534*^-6, 3.3329097462, -4.940877599599999}, { 2.6962610568, 4.1657119944, -4.2849537049999995`}}, 0.1]}, {RGBColor[1., 0.75, 0.5], TubeBox[{{5.915409297799999, -0.46853866444, 2.2170265432}, { 3.6203370708000002`, -0.26586555094000003`, 3.3005954315999997`}}, 0.1]}, {RGBColor[1., 0.75, 0.5], TubeBox[{{-6.0824610761999995`, -2.4836668818, -0.67659749704}, \ {-3.8006169312, -1.18890221564, -1.2256006945599998`}}, 0.1]}, {RGBColor[1., 0.75, 0.5], TubeBox[{{7.0743782536, 1.60205301102, 0.6645977369399999}, { 5.915409297799999, -0.46853866444, 2.2170265432}}, 0.1]}, {RGBColor[1., 0.75, 0.5], TubeBox[{{-5.6812722464, 0.76365717386, -5.0676782142}, {-3.7242720008, 0.34810642645999995`, -3.3512400884}}, 0.1]}, {RGBColor[1., 0.75, 0.5], TubeBox[{{-8.1441521422, -2.137280106, -2.3279534593999998`}, \ {-6.0824610761999995`, -2.4836668818, -0.67659749704}}, 0.1]}, {RGBColor[1., 0.75, 0.5], TubeBox[{{-7.963305363999999, -0.53112638956, -4.5187128111999995`}, \ {-5.6812722464, 0.76365717386, -5.0676782142}}, 0.1]}, {RGBColor[1., 0.75, 0.5], TubeBox[{{-7.963305363999999, -0.53112638956, -4.5187128111999995`}, \ {-8.1441521422, -2.137280106, -2.3279534593999998`}}, 0.1]}, {RGBColor[1., 0.75, 0.5], TubeBox[{{-0.151939639578, -2.9251068753999996`, 4.3915342513999995`}, {-1.58204081268, -0.8987536856, 3.1456378996}}, 0.1]}, {RGBColor[1., 0.75, 0.5], TubeBox[{{-0.151939639578, -2.9251068753999996`, 4.3915342513999995`}, {-0.6052792378, -5.0948902686, 2.7470946862}}, 0.1]}, {RGBColor[1., 0.75, 0.5], TubeBox[{{-0.151939639578, -2.9251068753999996`, 4.3915342513999995`}, { 2.5484844836000002`, -2.4192272252, 4.905161778199999}}, 0.1]}, {RGBColor[1., 0.75, 0.5], TubeBox[{{-1.1618035448, 1.5148610533799998`, -3.366546869}, { 0.32306755696, 0.47160002055999994`, -1.25523159824}}, 0.1]}, {RGBColor[1., 0.75, 0.5], TubeBox[{{-1.1618035448, 1.5148610533799998`, -3.366546869}, {-3.7242720008, 0.34810642645999995`, -3.3512400884}}, 0.1]}, {RGBColor[1., 0.75, 0.5], TubeBox[{{-1.1618035448, 1.5148610533799998`, -3.366546869}, { 9.61870534*^-6, 3.3329097462, -4.940877599599999}}, 0.1]}, {RGBColor[1., 0.75, 0.5], TubeBox[{{5.7757585464, 2.0155817515999996`, -1.6608045923599999`}, { 3.6777847412, 3.6938474122, -1.52315695052}}, 0.1]}, {RGBColor[1., 0.75, 0.5], TubeBox[{{5.7757585464, 2.0155817515999996`, -1.6608045923599999`}, { 7.0743782536, 1.60205301102, 0.6645977369399999}}, 0.1]}, {RGBColor[1., 0.75, 0.5], TubeBox[{{-1.1299238671799998`, 4.2326082947999994`, -6.721755382}, { 9.61870534*^-6, 3.3329097462, -4.940877599599999}}, 0.1]}, {RGBColor[1., 0.75, 0.5], TubeBox[{{1.8813545138199999`, -0.6804336408199999, -1.83229722686}, { 0.32306755696, 0.47160002055999994`, -1.25523159824}}, 0.1]}, {RGBColor[1., 0.75, 0.5], TubeBox[{{-3.5609996743999996`, -0.8826721173400001, 3.5600548113999997`}, {-1.58204081268, -0.8987536856, 3.1456378996}}, 0.1]}, {RGBColor[1., 0.75, 0.5], TubeBox[{{0.28406361232, 4.272670486, 0.42928905541999995`}, { 1.5169397519799999`, 2.6919146869999997`, 0.16456111953199998`}}, 0.1]}, {RGBColor[1., 0.75, 0.5], TubeBox[{{3.0383014628, 3.5957706328, 3.7722710412}, {2.0042433956, 2.0788875726, 2.9247289302}}, 0.1]}, {RGBColor[1., 0.75, 0.5], TubeBox[{{-1.8969069587999998`, 3.170960228, 3.6766509056}, {-0.6228158950799999, 1.6721618456199998`, 4.1439801454}}, 0.1]}, {RGBColor[1., 0.75, 0.5], TubeBox[{{-0.46347419875999996`, 1.62852807228, 6.1591839518}, {-0.6228158950799999, 1.6721618456199998`, 4.1439801454}}, 0.1]}, {RGBColor[1., 0.75, 0.5], TubeBox[{{-1.17079864056, -5.2073289655999995`, -1.2920056662000001`}, \ {-0.25806098256, -4.0763279546, 0.113791740816}}, 0.1]}, {RGBColor[1., 0.75, 0.5], TubeBox[{{ 1.6988258794799997`, -4.0392893249999995`, -0.39340315868000003`}, \ {-0.25806098256, -4.0763279546, 0.113791740816}}, 0.1]}, {RGBColor[1., 0.75, 0.5], TubeBox[{{-2.4388803755999997`, -5.9008584075999995`, 3.0246954356}, {-0.6052792378, -5.0948902686, 2.7470946862}}, 0.1]}, {RGBColor[1., 0.75, 0.5], TubeBox[{{0.7263161881, -6.5688765486, 3.1248509136}, {-0.6052792378, -5.0948902686, 2.7470946862}}, 0.1]}, {RGBColor[1., 0.75, 0.5], TubeBox[{{4.2979928144, 5.415954716, -0.6637284629799999}, {3.6777847412, 3.6938474122, -1.52315695052}}, 0.1]}, {RGBColor[1., 0.75, 0.5], TubeBox[{{2.7011743444, -1.8628163017599997`, 6.8432647638}, { 2.5484844836000002`, -2.4192272252, 4.905161778199999}}, 0.1]}, {RGBColor[1., 0.75, 0.5], TubeBox[{{3.6038964546, -4.0993826118, 4.51644514}, { 2.5484844836000002`, -2.4192272252, 4.905161778199999}}, 0.1]}, {RGBColor[1., 0.75, 0.5], TubeBox[{{2.6561988656, 6.17940402, -4.4648556202}, {2.6962610568, 4.1657119944, -4.2849537049999995`}}, 0.1]}, {RGBColor[1., 0.75, 0.5], TubeBox[{{3.9466927509999996`, 3.1915582413999997`, -5.5402986868}, { 2.6962610568, 4.1657119944, -4.2849537049999995`}}, 0.1]}, {RGBColor[1., 0.75, 0.5], TubeBox[{{6.9575931868, -2.1818776395999997`, 2.4747851696}, { 5.915409297799999, -0.46853866444, 2.2170265432}}, 0.1]}, {RGBColor[1., 0.75, 0.5], TubeBox[{{-6.234206073999999, -3.6866664534, 0.94144259594}, {-6.0824610761999995`, -2.4836668818, -0.67659749704}}, 0.1]}, {RGBColor[1., 0.75, 0.5], TubeBox[{{8.964293226199999, 1.0411634369599998`, 0.21512640784}, { 7.0743782536, 1.60205301102, 0.6645977369399999}}, 0.1]}, {RGBColor[1., 0.75, 0.5], TubeBox[{{7.0358278432, 3.3143904313999997`, 1.7394360912199998`}, { 7.0743782536, 1.60205301102, 0.6645977369399999}}, 0.1]}, {RGBColor[1., 0.75, 0.5], TubeBox[{{-5.476425948, 1.9689055193999998`, -6.678102711399999}, {-5.6812722464, 0.76365717386, -5.0676782142}}, 0.1]}, {RGBColor[1., 0.75, 0.5], TubeBox[{{-9.885912596399999, -3.0902689278, -1.9447170265999998`}, \ {-8.1441521422, -2.137280106, -2.3279534593999998`}}, 0.1]}, {RGBColor[1., 0.75, 0.5], TubeBox[{{-9.5603128066, -0.31360002969999995`, -5.7394758072}, \ {-7.963305363999999, -0.53112638956, -4.5187128111999995`}}, 0.1]}}, AspectRatio->Automatic, Boxed->False, SphericalRegion->True]], "Output", CellChangeTimes->{3.5741814288923984`*^9, 3.574927826099722*^9, 3.5802185051703386`*^9}], Cell[BoxData[ Graphics3DBox[{ {RGBColor[0.4, 0.2666666666666667, 0.13333333333333336`], Opacity[0.8], SphereBox[{-1.34924546674, -1.3595066789199999`, 0.27384019466}, 0.255]}, {RGBColor[0.4, 0.2666666666666667, 0.13333333333333336`], Opacity[0.8], SphereBox[{0.32306755696, 0.47160002055999994`, -1.25523159824}, 0.255]}, {RGBColor[0.4, 0.2666666666666667, 0.13333333333333336`], Opacity[0.8], SphereBox[{-1.58204081268, -0.8987536856, 3.1456378996}, 0.255]}, {RGBColor[0.4, 0.2666666666666667, 0.13333333333333336`], Opacity[0.8], SphereBox[{1.5169397519799999`, 2.6919146869999997`, 0.16456111953199998`}, 0.255]}, {RGBColor[0.4, 0.2666666666666667, 0.13333333333333336`], Opacity[0.8], SphereBox[{2.0042433956, 2.0788875726, 2.9247289302}, 0.255]}, {RGBColor[0.4, 0.2666666666666667, 0.13333333333333336`], Opacity[0.8], SphereBox[{-0.6228158950799999, 1.6721618456199998`, 4.1439801454}, 0.255]}, {RGBColor[0.4, 0.2666666666666667, 0.13333333333333336`], Opacity[0.8], SphereBox[{-0.25806098256, -4.0763279546, 0.113791740816}, 0.255]}, {RGBColor[0.4, 0.2666666666666667, 0.13333333333333336`], Opacity[0.8], SphereBox[{-3.8006169312, -1.18890221564, -1.2256006945599998`}, 0.255]}, {RGBColor[0.4, 0.2666666666666667, 0.13333333333333336`], Opacity[0.8], SphereBox[{-0.6052792378, -5.0948902686, 2.7470946862}, 0.255]}, {RGBColor[0.4, 0.2666666666666667, 0.13333333333333336`], Opacity[0.8], SphereBox[{3.6777847412, 3.6938474122, -1.52315695052}, 0.255]}, {RGBColor[0.4, 0.2666666666666667, 0.13333333333333336`], Opacity[0.8], SphereBox[{3.6203370708000002`, -0.26586555094000003`, 3.3005954315999997`}, 0.255]}, {RGBColor[0.4, 0.2666666666666667, 0.13333333333333336`], Opacity[0.8], SphereBox[{2.5484844836000002`, -2.4192272252, 4.905161778199999}, 0.255]}, {RGBColor[0.4, 0.2666666666666667, 0.13333333333333336`], Opacity[0.8], SphereBox[{-3.7242720008, 0.34810642645999995`, -3.3512400884}, 0.255]}, {RGBColor[0.4, 0.2666666666666667, 0.13333333333333336`], Opacity[0.8], SphereBox[{2.6962610568, 4.1657119944, -4.2849537049999995`}, 0.255]}, {RGBColor[0.4, 0.2666666666666667, 0.13333333333333336`], Opacity[0.8], SphereBox[{9.61870534*^-6, 3.3329097462, -4.940877599599999}, 0.255]}, {RGBColor[0.4, 0.2666666666666667, 0.13333333333333336`], Opacity[0.8], SphereBox[{5.915409297799999, -0.46853866444, 2.2170265432}, 0.255]}, {RGBColor[0.4, 0.2666666666666667, 0.13333333333333336`], Opacity[0.8], SphereBox[{-6.0824610761999995`, -2.4836668818, -0.67659749704}, 0.255]}, {RGBColor[0.4, 0.2666666666666667, 0.13333333333333336`], Opacity[0.8], SphereBox[{7.0743782536, 1.60205301102, 0.6645977369399999}, 0.255]}, {RGBColor[0.4, 0.2666666666666667, 0.13333333333333336`], Opacity[0.8], SphereBox[{-5.6812722464, 0.76365717386, -5.0676782142}, 0.255]}, {RGBColor[0.4, 0.2666666666666667, 0.13333333333333336`], Opacity[0.8], SphereBox[{-8.1441521422, -2.137280106, -2.3279534593999998`}, 0.255]}, {RGBColor[0.4, 0.2666666666666667, 0.13333333333333336`], Opacity[0.8], SphereBox[{-7.963305363999999, -0.53112638956, -4.5187128111999995`}, 0.255]}, {RGBColor[ NCache[ Rational[1, 3], 0.3333333333333333], NCache[ Rational[1, 3], 0.3333333333333333], 1], Opacity[0.8], SphereBox[{-0.151939639578, -2.9251068753999996`, 4.3915342513999995`}, 0.24]}, {RGBColor[ NCache[ Rational[1, 3], 0.3333333333333333], NCache[ Rational[1, 3], 0.3333333333333333], 1], Opacity[0.8], SphereBox[{-1.1618035448, 1.5148610533799998`, -3.366546869}, 0.24]}, {RGBColor[1, NCache[ Rational[1, 3], 0.3333333333333333], NCache[ Rational[1, 3], 0.3333333333333333]], Opacity[0.8], SphereBox[{5.7757585464, 2.0155817515999996`, -1.6608045923599999`}, 0.178]}, {RGBColor[1, NCache[ Rational[1, 3], 0.3333333333333333], NCache[ Rational[1, 3], 0.3333333333333333]], Opacity[0.8], SphereBox[{-1.1299238671799998`, 4.2326082947999994`, -6.721755382}, 0.178]}, {RGBColor[1, 1, 1], Opacity[0.8], SphereBox[{1.8813545138199999`, -0.6804336408199999, -1.83229722686}, 0.12]}, {RGBColor[1, 1, 1], Opacity[0.8], SphereBox[{-3.5609996743999996`, -0.8826721173400001, 3.5600548113999997`}, 0.12]}, {RGBColor[1, 1, 1], Opacity[0.8], SphereBox[{0.28406361232, 4.272670486, 0.42928905541999995`}, 0.12]}, {RGBColor[1, 1, 1], Opacity[0.8], SphereBox[{3.0383014628, 3.5957706328, 3.7722710412}, 0.12]}, {RGBColor[1, 1, 1], Opacity[0.8], SphereBox[{-1.8969069587999998`, 3.170960228, 3.6766509056}, 0.12]}, {RGBColor[1, 1, 1], Opacity[0.8], SphereBox[{-0.46347419875999996`, 1.62852807228, 6.1591839518}, 0.12]}, {RGBColor[1, 1, 1], Opacity[0.8], SphereBox[{-1.17079864056, -5.2073289655999995`, -1.2920056662000001`}, 0.12]}, {RGBColor[1, 1, 1], Opacity[0.8], SphereBox[{ 1.6988258794799997`, -4.0392893249999995`, -0.39340315868000003`}, 0.12]}, {RGBColor[1, 1, 1], Opacity[0.8], SphereBox[{-2.4388803755999997`, -5.9008584075999995`, 3.0246954356}, 0.12]}, {RGBColor[1, 1, 1], Opacity[0.8], SphereBox[{0.7263161881, -6.5688765486, 3.1248509136}, 0.12]}, {RGBColor[1, 1, 1], Opacity[0.8], SphereBox[{4.2979928144, 5.415954716, -0.6637284629799999}, 0.12]}, {RGBColor[1, 1, 1], Opacity[0.8], SphereBox[{2.7011743444, -1.8628163017599997`, 6.8432647638}, 0.12]}, {RGBColor[1, 1, 1], Opacity[0.8], SphereBox[{3.6038964546, -4.0993826118, 4.51644514}, 0.12]}, {RGBColor[1, 1, 1], Opacity[0.8], SphereBox[{2.6561988656, 6.17940402, -4.4648556202}, 0.12]}, {RGBColor[1, 1, 1], Opacity[0.8], SphereBox[{3.9466927509999996`, 3.1915582413999997`, -5.5402986868}, 0.12]}, {RGBColor[1, 1, 1], Opacity[0.8], SphereBox[{6.9575931868, -2.1818776395999997`, 2.4747851696}, 0.12]}, {RGBColor[1, 1, 1], Opacity[0.8], SphereBox[{-6.234206073999999, -3.6866664534, 0.94144259594}, 0.12]}, {RGBColor[1, 1, 1], Opacity[0.8], SphereBox[{8.964293226199999, 1.0411634369599998`, 0.21512640784}, 0.12]}, {RGBColor[1, 1, 1], Opacity[0.8], SphereBox[{7.0358278432, 3.3143904313999997`, 1.7394360912199998`}, 0.12]}, {RGBColor[1, 1, 1], Opacity[0.8], SphereBox[{-5.476425948, 1.9689055193999998`, -6.678102711399999}, 0.12]}, {RGBColor[1, 1, 1], Opacity[0.8], SphereBox[{-9.885912596399999, -3.0902689278, -1.9447170265999998`}, 0.12]}, {RGBColor[1, 1, 1], Opacity[0.8], SphereBox[{-9.5603128066, -0.31360002969999995`, -5.7394758072}, 0.12]}, Text3DBox["1", {-1.9492454667399999`, -1.3595066789199999`, 0.27384019466}, {1, 0}], Text3DBox["2", {-0.27693244304, 0.47160002055999994`, -1.25523159824}, {1, 0}], Text3DBox["3", {-2.18204081268, -0.8987536856, 3.1456378996}, {1, 0}], Text3DBox["4", {0.9169397519799999, 2.6919146869999997`, 0.16456111953199998`}, {1, 0}], Text3DBox["5", {1.4042433956, 2.0788875726, 2.9247289302}, {1, 0}], Text3DBox["6", {-1.2228158950799999`, 1.6721618456199998`, 4.1439801454}, { 1, 0}], Text3DBox["7", {-0.85806098256, -4.0763279546, 0.113791740816}, { 1, 0}], Text3DBox[ "8", {-4.4006169312, -1.18890221564, -1.2256006945599998`}, {1, 0}], Text3DBox["9", {-1.2052792378000001`, -5.0948902686, 2.7470946862}, {1, 0}], Text3DBox["10", {3.0777847412, 3.6938474122, -1.52315695052}, {1, 0}], Text3DBox["11", {3.0203370708, -0.26586555094000003`, 3.3005954315999997`}, {1, 0}], Text3DBox["12", {1.9484844836000002`, -2.4192272252, 4.905161778199999}, { 1, 0}], Text3DBox["13", {-4.3242720008, 0.34810642645999995`, -3.3512400884}, {1, 0}], Text3DBox["14", {2.0962610568, 4.1657119944, -4.2849537049999995`}, {1, 0}], Text3DBox["15", {-0.59999038129466, 3.3329097462, -4.940877599599999}, {1, 0}], Text3DBox["16", {5.3154092978, -0.46853866444, 2.2170265432}, {1, 0}], Text3DBox["17", {-6.682461076199999, -2.4836668818, -0.67659749704}, {1, 0}], Text3DBox["18", {6.4743782536, 1.60205301102, 0.6645977369399999}, { 1, 0}], Text3DBox["19", {-6.2812722463999995`, 0.76365717386, -5.0676782142}, {1, 0}], Text3DBox["20", {-8.744152142199999, -2.137280106, -2.3279534593999998`}, { 1, 0}], Text3DBox[ "21", {-8.563305364, -0.53112638956, -4.5187128111999995`}, {1, 0}], Text3DBox["22", {-0.751939639578, -2.9251068753999996`, 4.3915342513999995`}, {1, 0}], Text3DBox["23", {-1.7618035447999998`, 1.5148610533799998`, -3.366546869}, {1, 0}], Text3DBox["24", {5.1757585464, 2.0155817515999996`, -1.6608045923599999`}, {1, 0}], Text3DBox["25", {-1.7299238671799997`, 4.2326082947999994`, -6.721755382}, {1, 0}], Text3DBox["26", { 1.2813545138199998`, -0.6804336408199999, -1.83229722686}, {1, 0}], Text3DBox["27", {-4.160999674399999, -0.8826721173400001, 3.5600548113999997`}, {1, 0}], Text3DBox["28", {-0.31593638768, 4.272670486, 0.42928905541999995`}, {1, 0}], Text3DBox["29", {2.4383014627999997`, 3.5957706328, 3.7722710412}, { 1, 0}], Text3DBox["30", {-2.4969069588, 3.170960228, 3.6766509056}, {1, 0}], Text3DBox["31", {-1.0634741987599998`, 1.62852807228, 6.1591839518}, {1, 0}], Text3DBox[ "32", {-1.7707986405599998`, -5.2073289655999995`, -1.2920056662000001`}, \ {1, 0}], Text3DBox["33", { 1.0988258794799997`, -4.0392893249999995`, -0.39340315868000003`}, {1, 0}], Text3DBox["34", {-3.0388803756, -5.9008584075999995`, 3.0246954356}, {1, 0}], Text3DBox["35", {0.1263161881, -6.5688765486, 3.1248509136}, {1, 0}], Text3DBox["36", {3.6979928143999996`, 5.415954716, -0.6637284629799999}, { 1, 0}], Text3DBox["37", {2.1011743444, -1.8628163017599997`, 6.8432647638}, {1, 0}], Text3DBox["38", {3.0038964546, -4.0993826118, 4.51644514}, {1, 0}], Text3DBox["39", {2.0561988656, 6.17940402, -4.4648556202}, {1, 0}], Text3DBox["40", {3.3466927509999995`, 3.1915582413999997`, -5.5402986868}, {1, 0}], Text3DBox["41", {6.3575931868, -2.1818776395999997`, 2.4747851696}, {1, 0}], Text3DBox["42", {-6.834206073999999, -3.6866664534, 0.94144259594}, { 1, 0}], Text3DBox["43", {8.3642932262, 1.0411634369599998`, 0.21512640784}, {1, 0}], Text3DBox["44", {6.4358278432, 3.3143904313999997`, 1.7394360912199998`}, { 1, 0}], Text3DBox["45", {-6.076425948, 1.9689055193999998`, -6.678102711399999}, {1, 0}], Text3DBox[ "46", {-10.485912596399999`, -3.0902689278, -1.9447170265999998`}, {1, 0}], Text3DBox[ "47", {-10.1603128066, -0.31360002969999995`, -5.7394758072}, {1, 0}], {RGBColor[1., 0.75, 0.5], TubeBox[{{0.32306755696, 0.47160002055999994`, -1.25523159824}, {-1.34924546674, \ -1.3595066789199999`, 0.27384019466}}, 0.1]}, {RGBColor[1., 0.75, 0.5], TubeBox[{{-1.58204081268, -0.8987536856, 3.1456378996}, {-1.34924546674, -1.3595066789199999`, 0.27384019466}}, 0.1]}, {RGBColor[1., 0.75, 0.5], TubeBox[{{1.5169397519799999`, 2.6919146869999997`, 0.16456111953199998`}, {0.32306755696, 0.47160002055999994`, -1.25523159824}}, 0.1]}, {RGBColor[1., 0.75, 0.5], TubeBox[{{2.0042433956, 2.0788875726, 2.9247289302}, {1.5169397519799999`, 2.6919146869999997`, 0.16456111953199998`}}, 0.1]}, {RGBColor[1., 0.75, 0.5], TubeBox[{{-0.6228158950799999, 1.6721618456199998`, 4.1439801454}, {-1.58204081268, -0.8987536856, 3.1456378996}}, 0.1]}, {RGBColor[1., 0.75, 0.5], TubeBox[{{-0.6228158950799999, 1.6721618456199998`, 4.1439801454}, { 2.0042433956, 2.0788875726, 2.9247289302}}, 0.1]}, {RGBColor[1., 0.75, 0.5], TubeBox[{{-0.25806098256, -4.0763279546, 0.113791740816}, {-1.34924546674, -1.3595066789199999`, 0.27384019466}}, 0.1]}, {RGBColor[1., 0.75, 0.5], TubeBox[{{-3.8006169312, -1.18890221564, -1.2256006945599998`}, \ {-1.34924546674, -1.3595066789199999`, 0.27384019466}}, 0.1]}, {RGBColor[1., 0.75, 0.5], TubeBox[{{-0.6052792378, -5.0948902686, 2.7470946862}, {-0.25806098256, -4.0763279546, 0.113791740816}}, 0.1]}, {RGBColor[1., 0.75, 0.5], TubeBox[{{3.6777847412, 3.6938474122, -1.52315695052}, { 1.5169397519799999`, 2.6919146869999997`, 0.16456111953199998`}}, 0.1]}, {RGBColor[1., 0.75, 0.5], TubeBox[{{3.6203370708000002`, -0.26586555094000003`, 3.3005954315999997`}, {2.0042433956, 2.0788875726, 2.9247289302}}, 0.1]}, {RGBColor[1., 0.75, 0.5], TubeBox[{{2.5484844836000002`, -2.4192272252, 4.905161778199999}, { 3.6203370708000002`, -0.26586555094000003`, 3.3005954315999997`}}, 0.1]}, {RGBColor[1., 0.75, 0.5], TubeBox[{{-3.7242720008, 0.34810642645999995`, -3.3512400884}, {-3.8006169312, -1.18890221564, \ -1.2256006945599998`}}, 0.1]}, {RGBColor[1., 0.75, 0.5], TubeBox[{{2.6962610568, 4.1657119944, -4.2849537049999995`}, { 3.6777847412, 3.6938474122, -1.52315695052}}, 0.1]}, {RGBColor[1., 0.75, 0.5], TubeBox[{{9.61870534*^-6, 3.3329097462, -4.940877599599999}, { 2.6962610568, 4.1657119944, -4.2849537049999995`}}, 0.1]}, {RGBColor[1., 0.75, 0.5], TubeBox[{{5.915409297799999, -0.46853866444, 2.2170265432}, { 3.6203370708000002`, -0.26586555094000003`, 3.3005954315999997`}}, 0.1]}, {RGBColor[1., 0.75, 0.5], TubeBox[{{-6.0824610761999995`, -2.4836668818, -0.67659749704}, \ {-3.8006169312, -1.18890221564, -1.2256006945599998`}}, 0.1]}, {RGBColor[1., 0.75, 0.5], TubeBox[{{7.0743782536, 1.60205301102, 0.6645977369399999}, { 5.915409297799999, -0.46853866444, 2.2170265432}}, 0.1]}, {RGBColor[1., 0.75, 0.5], TubeBox[{{-5.6812722464, 0.76365717386, -5.0676782142}, {-3.7242720008, 0.34810642645999995`, -3.3512400884}}, 0.1]}, {RGBColor[1., 0.75, 0.5], TubeBox[{{-8.1441521422, -2.137280106, -2.3279534593999998`}, \ {-6.0824610761999995`, -2.4836668818, -0.67659749704}}, 0.1]}, {RGBColor[1., 0.75, 0.5], TubeBox[{{-7.963305363999999, -0.53112638956, -4.5187128111999995`}, \ {-5.6812722464, 0.76365717386, -5.0676782142}}, 0.1]}, {RGBColor[1., 0.75, 0.5], TubeBox[{{-7.963305363999999, -0.53112638956, -4.5187128111999995`}, \ {-8.1441521422, -2.137280106, -2.3279534593999998`}}, 0.1]}, {RGBColor[1., 0.75, 0.5], TubeBox[{{-0.151939639578, -2.9251068753999996`, 4.3915342513999995`}, {-1.58204081268, -0.8987536856, 3.1456378996}}, 0.1]}, {RGBColor[1., 0.75, 0.5], TubeBox[{{-0.151939639578, -2.9251068753999996`, 4.3915342513999995`}, {-0.6052792378, -5.0948902686, 2.7470946862}}, 0.1]}, {RGBColor[1., 0.75, 0.5], TubeBox[{{-0.151939639578, -2.9251068753999996`, 4.3915342513999995`}, { 2.5484844836000002`, -2.4192272252, 4.905161778199999}}, 0.1]}, {RGBColor[1., 0.75, 0.5], TubeBox[{{-1.1618035448, 1.5148610533799998`, -3.366546869}, { 0.32306755696, 0.47160002055999994`, -1.25523159824}}, 0.1]}, {RGBColor[1., 0.75, 0.5], TubeBox[{{-1.1618035448, 1.5148610533799998`, -3.366546869}, {-3.7242720008, 0.34810642645999995`, -3.3512400884}}, 0.1]}, {RGBColor[1., 0.75, 0.5], TubeBox[{{-1.1618035448, 1.5148610533799998`, -3.366546869}, { 9.61870534*^-6, 3.3329097462, -4.940877599599999}}, 0.1]}, {RGBColor[1., 0.75, 0.5], TubeBox[{{5.7757585464, 2.0155817515999996`, -1.6608045923599999`}, { 3.6777847412, 3.6938474122, -1.52315695052}}, 0.1]}, {RGBColor[1., 0.75, 0.5], TubeBox[{{5.7757585464, 2.0155817515999996`, -1.6608045923599999`}, { 7.0743782536, 1.60205301102, 0.6645977369399999}}, 0.1]}, {RGBColor[1., 0.75, 0.5], TubeBox[{{-1.1299238671799998`, 4.2326082947999994`, -6.721755382}, { 9.61870534*^-6, 3.3329097462, -4.940877599599999}}, 0.1]}, {RGBColor[1., 0.75, 0.5], TubeBox[{{1.8813545138199999`, -0.6804336408199999, -1.83229722686}, { 0.32306755696, 0.47160002055999994`, -1.25523159824}}, 0.1]}, {RGBColor[1., 0.75, 0.5], TubeBox[{{-3.5609996743999996`, -0.8826721173400001, 3.5600548113999997`}, {-1.58204081268, -0.8987536856, 3.1456378996}}, 0.1]}, {RGBColor[1., 0.75, 0.5], TubeBox[{{0.28406361232, 4.272670486, 0.42928905541999995`}, { 1.5169397519799999`, 2.6919146869999997`, 0.16456111953199998`}}, 0.1]}, {RGBColor[1., 0.75, 0.5], TubeBox[{{3.0383014628, 3.5957706328, 3.7722710412}, {2.0042433956, 2.0788875726, 2.9247289302}}, 0.1]}, {RGBColor[1., 0.75, 0.5], TubeBox[{{-1.8969069587999998`, 3.170960228, 3.6766509056}, {-0.6228158950799999, 1.6721618456199998`, 4.1439801454}}, 0.1]}, {RGBColor[1., 0.75, 0.5], TubeBox[{{-0.46347419875999996`, 1.62852807228, 6.1591839518}, {-0.6228158950799999, 1.6721618456199998`, 4.1439801454}}, 0.1]}, {RGBColor[1., 0.75, 0.5], TubeBox[{{-1.17079864056, -5.2073289655999995`, -1.2920056662000001`}, \ {-0.25806098256, -4.0763279546, 0.113791740816}}, 0.1]}, {RGBColor[1., 0.75, 0.5], TubeBox[{{ 1.6988258794799997`, -4.0392893249999995`, -0.39340315868000003`}, \ {-0.25806098256, -4.0763279546, 0.113791740816}}, 0.1]}, {RGBColor[1., 0.75, 0.5], TubeBox[{{-2.4388803755999997`, -5.9008584075999995`, 3.0246954356}, {-0.6052792378, -5.0948902686, 2.7470946862}}, 0.1]}, {RGBColor[1., 0.75, 0.5], TubeBox[{{0.7263161881, -6.5688765486, 3.1248509136}, {-0.6052792378, -5.0948902686, 2.7470946862}}, 0.1]}, {RGBColor[1., 0.75, 0.5], TubeBox[{{4.2979928144, 5.415954716, -0.6637284629799999}, {3.6777847412, 3.6938474122, -1.52315695052}}, 0.1]}, {RGBColor[1., 0.75, 0.5], TubeBox[{{2.7011743444, -1.8628163017599997`, 6.8432647638}, { 2.5484844836000002`, -2.4192272252, 4.905161778199999}}, 0.1]}, {RGBColor[1., 0.75, 0.5], TubeBox[{{3.6038964546, -4.0993826118, 4.51644514}, { 2.5484844836000002`, -2.4192272252, 4.905161778199999}}, 0.1]}, {RGBColor[1., 0.75, 0.5], TubeBox[{{2.6561988656, 6.17940402, -4.4648556202}, {2.6962610568, 4.1657119944, -4.2849537049999995`}}, 0.1]}, {RGBColor[1., 0.75, 0.5], TubeBox[{{3.9466927509999996`, 3.1915582413999997`, -5.5402986868}, { 2.6962610568, 4.1657119944, -4.2849537049999995`}}, 0.1]}, {RGBColor[1., 0.75, 0.5], TubeBox[{{6.9575931868, -2.1818776395999997`, 2.4747851696}, { 5.915409297799999, -0.46853866444, 2.2170265432}}, 0.1]}, {RGBColor[1., 0.75, 0.5], TubeBox[{{-6.234206073999999, -3.6866664534, 0.94144259594}, {-6.0824610761999995`, -2.4836668818, -0.67659749704}}, 0.1]}, {RGBColor[1., 0.75, 0.5], TubeBox[{{8.964293226199999, 1.0411634369599998`, 0.21512640784}, { 7.0743782536, 1.60205301102, 0.6645977369399999}}, 0.1]}, {RGBColor[1., 0.75, 0.5], TubeBox[{{7.0358278432, 3.3143904313999997`, 1.7394360912199998`}, { 7.0743782536, 1.60205301102, 0.6645977369399999}}, 0.1]}, {RGBColor[1., 0.75, 0.5], TubeBox[{{-5.476425948, 1.9689055193999998`, -6.678102711399999}, {-5.6812722464, 0.76365717386, -5.0676782142}}, 0.1]}, {RGBColor[1., 0.75, 0.5], TubeBox[{{-9.885912596399999, -3.0902689278, -1.9447170265999998`}, \ {-8.1441521422, -2.137280106, -2.3279534593999998`}}, 0.1]}, {RGBColor[1., 0.75, 0.5], TubeBox[{{-9.5603128066, -0.31360002969999995`, -5.7394758072}, \ {-7.963305363999999, -0.53112638956, -4.5187128111999995`}}, 0.1]}}, AspectRatio->Automatic, Axes->Automatic, AxesLabel->{ FormBox["xl", TraditionalForm], FormBox["yl", TraditionalForm], FormBox["zl", TraditionalForm]}, Boxed->True, SphericalRegion->True]], "Output", CellChangeTimes->{3.5741814288923984`*^9, 3.574927826099722*^9, 3.580218505201539*^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", ",", RowBox[{"{", RowBox[{"tlo", "[", RowBox[{"[", "1", "]"}], "]"}], "}"}], ",", RowBox[{"{", RowBox[{"tlu", "[", RowBox[{"[", "1", "]"}], "]"}], "}"}], ",", RowBox[{"{", RowBox[{"tlo2", "[", RowBox[{"[", "1", "]"}], "]"}], "}"}], ",", RowBox[{"{", RowBox[{"tlu2", "[", RowBox[{"[", "1", "]"}], "]"}], "}"}], ",", RowBox[{"{", RowBox[{"tpln", "[", RowBox[{"[", "1", "]"}], "]"}], "}"}]}], "]"}]}], ";"}], "\[IndentingNewLine]", RowBox[{"bt", "=", RowBox[{"Length", "[", "tw", "]"}]}], "\[IndentingNewLine]", 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, { 3.574154703003457*^9, 3.5741547070750637`*^9}, {3.574162454859872*^9, 3.574162489694733*^9}, {3.574163001126032*^9, 3.574163043604906*^9}, 3.574167360725289*^9, {3.5741773298915987`*^9, 3.5741773364904103`*^9}, { 3.574178305454912*^9, 3.5741783215853405`*^9}, {3.5741783628006124`*^9, 3.574178369805025*^9}, {3.574178420083914*^9, 3.574178621293067*^9}, { 3.574178699277604*^9, 3.574178724456048*^9}, {3.574178788587761*^9, 3.57417879953898*^9}, {3.574178895931549*^9, 3.5741789320612125`*^9}}], Cell[BoxData["105"], "Output", CellChangeTimes->{3.5741814289547987`*^9, 3.5749278261465225`*^9, 3.580218505217139*^9}], Cell[BoxData[ TagBox[ RowBox[{"(", "\[NoBreak]", GridBox[{ { RowBox[{"-", "1.34924546674`"}], RowBox[{"-", "1.3595066789199999`"}], "0.27384019466`"}, {"0.32306755696`", "0.47160002055999994`", RowBox[{"-", "1.25523159824`"}]}, { RowBox[{"-", "1.58204081268`"}], RowBox[{"-", "0.8987536856`"}], "3.1456378996`"}, {"1.5169397519799999`", "2.6919146869999997`", "0.16456111953199998`"}, {"2.0042433956`", "2.0788875726`", "2.9247289302`"}, { RowBox[{"-", "0.6228158950799999`"}], "1.6721618456199998`", "4.1439801454`"}, { RowBox[{"-", "0.25806098256`"}], RowBox[{"-", "4.0763279546`"}], "0.113791740816`"}, { RowBox[{"-", "3.8006169312`"}], RowBox[{"-", "1.18890221564`"}], RowBox[{"-", "1.2256006945599998`"}]}, { RowBox[{"-", "0.6052792378`"}], RowBox[{"-", "5.0948902686`"}], "2.7470946862`"}, {"3.6777847412`", "3.6938474122`", RowBox[{"-", "1.52315695052`"}]}, {"3.6203370708000002`", RowBox[{"-", "0.26586555094000003`"}], "3.3005954315999997`"}, {"2.5484844836000002`", RowBox[{"-", "2.4192272252`"}], "4.905161778199999`"}, { RowBox[{"-", "3.7242720008`"}], "0.34810642645999995`", RowBox[{"-", "3.3512400884`"}]}, {"2.6962610568`", "4.1657119944`", RowBox[{"-", "4.2849537049999995`"}]}, {"9.61870534`*^-6", "3.3329097462`", RowBox[{"-", "4.940877599599999`"}]}, {"5.915409297799999`", RowBox[{"-", "0.46853866444`"}], "2.2170265432`"}, { RowBox[{"-", "6.0824610761999995`"}], RowBox[{"-", "2.4836668818`"}], RowBox[{"-", "0.67659749704`"}]}, {"7.0743782536`", "1.60205301102`", "0.6645977369399999`"}, { RowBox[{"-", "5.6812722464`"}], "0.76365717386`", RowBox[{"-", "5.0676782142`"}]}, { RowBox[{"-", "8.1441521422`"}], RowBox[{"-", "2.137280106`"}], RowBox[{"-", "2.3279534593999998`"}]}, { RowBox[{"-", "7.963305363999999`"}], RowBox[{"-", "0.53112638956`"}], RowBox[{"-", "4.5187128111999995`"}]}, { RowBox[{"-", "0.151939639578`"}], RowBox[{"-", "2.9251068753999996`"}], "4.3915342513999995`"}, { RowBox[{"-", "1.1618035448`"}], "1.5148610533799998`", RowBox[{"-", "3.366546869`"}]}, {"5.7757585464`", "2.0155817515999996`", RowBox[{"-", "1.6608045923599999`"}]}, { RowBox[{"-", "1.1299238671799998`"}], "4.2326082947999994`", RowBox[{"-", "6.721755382`"}]}, { RowBox[{"-", "0.5128880492815882`"}], RowBox[{"-", "0.44373334667653763`"}], RowBox[{"-", "0.4908793989175738`"}]}, { RowBox[{"-", "1.4656710640511892`"}], RowBox[{"-", "1.129074913870774`"}], "1.710083525919364`"}, {"0.9200036544699999`", "1.5817573537799998`", RowBox[{"-", "0.5453352393540001`"}]}, {"1.76059157379`", "2.3854011298`", "1.544645024866`"}, { RowBox[{"-", "1.10242835388`"}], "0.3867040800099999`", "3.6448090224999996`"}, {"0.6907137502600001`", "1.8755247091099998`", "3.5343545377999996`"}, { RowBox[{"-", "0.8035229733003133`"}], RowBox[{"-", "2.718241615394324`"}], "0.19379686324427717`"}, { RowBox[{"-", "2.57493119897`"}], RowBox[{"-", "1.2742044472799998`"}], RowBox[{"-", "0.47588024995`"}]}, { RowBox[{"-", "0.43167011018`"}], RowBox[{"-", "4.5856091116`"}], "1.430443213508`"}, {"2.59736224659`", "3.1928810495999995`", RowBox[{"-", "0.679297915494`"}]}, {"2.812093315900647`", "0.906796713608139`", "3.1126163824308213`"}, {"3.0842810330395722`", RowBox[{"-", "1.342807045277774`"}], "4.103072832274153`"}, { RowBox[{"-", "3.762444466`"}], RowBox[{"-", "0.42039789458999993`"}], RowBox[{"-", "2.28842039148`"}]}, {"3.187022899`", "3.9297797032999995`", RowBox[{"-", "2.9040553277599996`"}]}, {"1.3484610657873708`", "3.7494114792549986`", RowBox[{"-", "4.612836411618629`"}]}, {"4.7681886784531144`", RowBox[{"-", "0.3672299683305283`"}], "2.7586620336351615`"}, { RowBox[{"-", "4.941836959425521`"}], RowBox[{"-", "1.8364536148441393`"}], RowBox[{"-", "0.9510274087628334`"}]}, {"6.4948937757`", "0.5667571732900001`", "1.4408121400699998`"}, { RowBox[{"-", "4.703031964425005`"}], "0.5559369749354138`", RowBox[{"-", "4.209687051475118`"}]}, { RowBox[{"-", "7.1133066091999995`"}], RowBox[{"-", "2.3104734939`"}], RowBox[{"-", "1.5022754782199996`"}]}, { RowBox[{"-", "6.8222888051999995`"}], "0.11626539215000009`", RowBox[{"-", "4.7931955127`"}]}, { RowBox[{"-", "8.0537287531`"}], RowBox[{"-", "1.33420324778`"}], RowBox[{"-", "3.4233331352999996`"}]}, { RowBox[{"-", "0.8593180973213066`"}], RowBox[{"-", "1.922801149620612`"}], "3.7752699923247874`"}, { RowBox[{"-", "0.3761637137579423`"}], RowBox[{"-", "3.998292792578663`"}], "3.5781860671734953`"}, {"1.1838862561928656`", RowBox[{"-", "2.674862059750305`"}], "4.645611729523223`"}, { RowBox[{"-", "0.42730958870728064`"}], "0.9988102511756276`", RowBox[{"-", "2.3221812645098865`"}]}, { RowBox[{"-", "2.4291680659320005`"}], "0.9377989570397937`", RowBox[{"-", "3.3589763287189016`"}]}, { RowBox[{"-", "0.5875262379212799`"}], "2.4135116625166453`", RowBox[{"-", "4.144729145208321`"}]}, {"4.756796504893018`", "2.8306963156986766`", RowBox[{"-", "1.5939506965724224`"}]}, {"6.406519103408697`", "1.8147241661951492`", RowBox[{"-", "0.5313191391774437`"}]}, { RowBox[{"-", "0.5841016514330404`"}], "3.7980026640832483`", RowBox[{"-", "5.861490004164532`"}]}, {"1.442612156737873`", RowBox[{"-", "0.35607363651738777`"}], RowBox[{"-", "1.669821931166073`"}]}, { RowBox[{"-", "3.0038040066104807`"}], RowBox[{"-", "0.8872000437861038`"}], "3.443371583476315`"}, {"0.6311678085878621`", "3.827624180489559`", "0.3547574991183303`"}, {"2.7471613170277984`", "3.168690598057043`", "3.5336446607562273`"}, { RowBox[{"-", "1.5381661096061992`"}], "2.7489494159192565`", "3.808234976089791`"}, { RowBox[{"-", "0.5083381080331809`"}], "1.6408135047410737`", "5.591787452168594`"}, { RowBox[{"-", "0.9138158106535509`"}], RowBox[{"-", "4.888893719846356`"}], RowBox[{"-", "0.8962010308114164`"}]}, {"1.1478277241949206`", RowBox[{"-", "4.0497182450258675`"}], RowBox[{"-", "0.25059293320740206`"}]}, { RowBox[{"-", "1.9226407836971744`"}], RowBox[{"-", "5.673942828968077`"}], "2.946538580966871`"}, {"0.3514015049816738`", RowBox[{"-", "6.153871293746818`"}], "3.018492515593396`"}, {"4.123380922831692`", "4.931116761136505`", RowBox[{"-", "0.9056898955404835`"}]}, {"2.6581875722005615`", RowBox[{"-", "2.0194626533243905`"}], "6.297630684991281`"}, {"3.306721533836817`", RowBox[{"-", "3.6262971649771782`"}], "4.625897031138741`"}, {"2.6674778837987856`", "5.612473746762925`", RowBox[{"-", "4.414206444137529`"}]}, {"3.5946284218674687`", "3.4658353483484956`", RowBox[{"-", "5.186851000775003`"}]}, {"6.664150108805525`", RowBox[{"-", "1.6994604118675065`"}], "2.402209220663561`"}, { RowBox[{"-", "6.1914808043035405`"}], RowBox[{"-", "3.347950305345634`"}], "0.4858677805950583`"}, {"8.43217669734484`", "1.199085151718024`", "0.3416776691020736`"}, {"7.046681320606843`", "2.8322991822498853`", "1.4368262441874524`"}, { RowBox[{"-", "5.534104063801813`"}], "1.6295464282815675`", RowBox[{"-", "6.224659074072465`"}]}, { RowBox[{"-", "9.395533049308613`"}], RowBox[{"-", "2.8219620973799215`"}], RowBox[{"-", "2.0526143599515603`"}]}, { RowBox[{"-", "9.110644787209473`"}], RowBox[{"-", "0.3748487407543646`"}], RowBox[{"-", "5.3957466147656366`"}]}, { RowBox[{"-", "4.199650660042419`"}], RowBox[{"-", "0.09470756597377661`"}], RowBox[{"-", "0.4487415362256686`"}]}, {"4.18493402816163`", "0.3069658634659731`", "4.446498763651897`"}, { RowBox[{"-", "4.167456189461149`"}], "1.43175818347192`", RowBox[{"-", "2.5835900089720503`"}]}, {"0.5122787593321467`", "2.3084457373212994`", RowBox[{"-", "5.745895501310052`"}]}, {"5.324508187566037`", RowBox[{"-", "1.0014296363028028`"}], "1.0651311095640348`"}, { RowBox[{"-", "6.514876708945119`"}], RowBox[{"-", "1.3959378024439961`"}], "0.09142735313151507`"}, { RowBox[{"-", "6.117226518875748`"}], "1.8547586811311916`", RowBox[{"-", "4.30646774846751`"}]}, { RowBox[{"-", "8.573297266991815`"}], RowBox[{"-", "1.045921429425592`"}], RowBox[{"-", "1.5632504445418305`"}]}, { RowBox[{"-", "8.3981785734832`"}], "0.5589521364757946`", RowBox[{"-", "3.755421190160302`"}]}, { RowBox[{"-", "1.6217919451511027`"}], "2.5361228769322013`", RowBox[{"-", "2.5266451132587315`"}]}, { RowBox[{"-", "1.6141260011765726`"}], "5.255602590323492`", RowBox[{"-", "5.897722030272318`"}]}, { RowBox[{"-", "3.40158320235758`"}], RowBox[{"-", "2.2830968653062236`"}], RowBox[{"-", "2.0024598528943303`"}]}, {"3.0557401134383713`", RowBox[{"-", "0.8386969653459735`"}], "2.1546920995481016`"}, { RowBox[{"-", "3.2810878121388516`"}], RowBox[{"-", "0.73554533055192`"}], RowBox[{"-", "4.118890167827949`"}]}, { RowBox[{"-", "0.5122595219214663`"}], "4.3573737550787`", RowBox[{"-", "4.135859697889947`"}]}, {"6.506310408033963`", "0.06435230742280279`", "3.3689219768359644`"}, { RowBox[{"-", "5.65004544345488`"}], RowBox[{"-", "3.5713959611560036`"}], RowBox[{"-", "1.4446223472115154`"}]}, { RowBox[{"-", "5.245317973924251`"}], RowBox[{"-", "0.3274443334111918`"}], RowBox[{"-", "5.82888867993249`"}]}, { RowBox[{"-", "7.715007017408183`"}], RowBox[{"-", "3.2286387825744076`"}], RowBox[{"-", "3.092656474258169`"}]}, { RowBox[{"-", "7.528432154516798`"}], RowBox[{"-", "1.6212049155957953`"}], RowBox[{"-", "5.282004432239697`"}]}, { RowBox[{"-", "0.701815144448897`"}], "0.49359922982779847`", RowBox[{"-", "4.2064486247412685`"}]}, { RowBox[{"-", "0.6457217331834271`"}], "3.209613999276507`", RowBox[{"-", "7.545788733727681`"}]}, {"6.648380652815323`", "2.5883560851654863`", RowBox[{"-", "2.440720755933942`"}]}, {"5.289392743420511`", "0.8525778547625813`", RowBox[{"-", "1.990469940301056`"}]}, { RowBox[{"-", "2.307387309811171`"}], "3.6745867249981137`", RowBox[{"-", "6.720878510863759`"}]}, { RowBox[{"-", "0.307852051546606`"}], "5.073606991121825`", RowBox[{"-", "7.282761730204905`"}]}, { RowBox[{"-", "0.8026452175843439`"}], RowBox[{"-", "3.1991667015319294`"}], "5.68225565854097`"} }, 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.5741814289547987`*^9, 3.5749278261465225`*^9, 3.5802185052327385`*^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["105"], "Output", CellChangeTimes->{3.5741814290171986`*^9, 3.5749278262089224`*^9, 3.580218505295139*^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", "+", "2"}]}], "}"}]}], "]"}]}], ";"}], " "}], "\[IndentingNewLine]", RowBox[{ RowBox[{ RowBox[{"tv5", " ", "=", RowBox[{"Table", "[", RowBox[{ RowBox[{"{", RowBox[{"0", ",", "0", ",", "0"}], "}"}], ",", RowBox[{"{", RowBox[{"i", ",", "1", ",", RowBox[{"nj", "+", "2"}]}], "}"}]}], "]"}]}], ";"}], " "}], "\[IndentingNewLine]", RowBox[{ RowBox[{ RowBox[{"tv6", " ", "=", RowBox[{"Table", "[", RowBox[{ RowBox[{"{", RowBox[{"0", ",", "0", ",", "0"}], "}"}], ",", RowBox[{"{", RowBox[{"i", ",", "1", ",", "5"}], "}"}]}], "]"}]}], ";"}], " "}], "\[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.5741559876657133`*^9}], Cell[BoxData[ TagBox[ RowBox[{"(", "\[NoBreak]", GridBox[{ { RowBox[{"-", "1.34924546674`"}], RowBox[{"-", "1.3595066789199999`"}], "0.27384019466`"}, {"0.32306755696`", "0.47160002055999994`", RowBox[{"-", "1.25523159824`"}]}, { RowBox[{"-", "1.58204081268`"}], RowBox[{"-", "0.8987536856`"}], "3.1456378996`"}, {"1.5169397519799999`", "2.6919146869999997`", "0.16456111953199998`"}, {"2.0042433956`", "2.0788875726`", "2.9247289302`"}, { RowBox[{"-", "0.6228158950799999`"}], "1.6721618456199998`", "4.1439801454`"}, { RowBox[{"-", "0.25806098256`"}], RowBox[{"-", "4.0763279546`"}], "0.113791740816`"}, { RowBox[{"-", "3.8006169312`"}], RowBox[{"-", "1.18890221564`"}], RowBox[{"-", "1.2256006945599998`"}]}, { RowBox[{"-", "0.6052792378`"}], RowBox[{"-", "5.0948902686`"}], "2.7470946862`"}, {"3.6777847412`", "3.6938474122`", RowBox[{"-", "1.52315695052`"}]}, {"3.6203370708000002`", RowBox[{"-", "0.26586555094000003`"}], "3.3005954315999997`"}, {"2.5484844836000002`", RowBox[{"-", "2.4192272252`"}], "4.905161778199999`"}, { RowBox[{"-", "3.7242720008`"}], "0.34810642645999995`", RowBox[{"-", "3.3512400884`"}]}, {"2.6962610568`", "4.1657119944`", RowBox[{"-", "4.2849537049999995`"}]}, {"9.61870534`*^-6", "3.3329097462`", RowBox[{"-", "4.940877599599999`"}]}, {"5.915409297799999`", RowBox[{"-", "0.46853866444`"}], "2.2170265432`"}, { RowBox[{"-", "6.0824610761999995`"}], RowBox[{"-", "2.4836668818`"}], RowBox[{"-", "0.67659749704`"}]}, {"7.0743782536`", "1.60205301102`", "0.6645977369399999`"}, { RowBox[{"-", "5.6812722464`"}], "0.76365717386`", RowBox[{"-", "5.0676782142`"}]}, { RowBox[{"-", "8.1441521422`"}], RowBox[{"-", "2.137280106`"}], RowBox[{"-", "2.3279534593999998`"}]}, { RowBox[{"-", "7.963305363999999`"}], RowBox[{"-", "0.53112638956`"}], RowBox[{"-", "4.5187128111999995`"}]}, { RowBox[{"-", "0.151939639578`"}], RowBox[{"-", "2.9251068753999996`"}], "4.3915342513999995`"}, { RowBox[{"-", "1.1618035448`"}], "1.5148610533799998`", RowBox[{"-", "3.366546869`"}]}, {"5.7757585464`", "2.0155817515999996`", RowBox[{"-", "1.6608045923599999`"}]}, { RowBox[{"-", "1.1299238671799998`"}], "4.2326082947999994`", RowBox[{"-", "6.721755382`"}]}, {"0", "0", "0"}, {"0", "0", "0"}, {"0", "0", "0"}, {"0", "0", "0"}, {"0", "0", "0"}, {"0", "0", "0"}, {"0", "0", "0"}, {"0", "0", "0"}, {"0", "0", "0"}, {"0", "0", "0"}, {"0", "0", "0"}, {"0", "0", "0"}, {"0", "0", "0"}, {"0", "0", "0"}, {"0", "0", "0"}, {"0", "0", "0"}, {"0", "0", "0"}, {"0", "0", "0"}, {"0", "0", "0"}, {"0", "0", "0"}, {"0", "0", "0"}, {"0", "0", "0"}, {"0", "0", "0"}, {"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.8813545138199999`", RowBox[{"-", "0.6804336408199999`"}], RowBox[{"-", "1.83229722686`"}]}, { RowBox[{"-", "3.5609996743999996`"}], RowBox[{"-", "0.8826721173400001`"}], "3.5600548113999997`"}, {"0.28406361232`", "4.272670486`", "0.42928905541999995`"}, {"3.0383014628`", "3.5957706328`", "3.7722710412`"}, { RowBox[{"-", "1.8969069587999998`"}], "3.170960228`", "3.6766509056`"}, { RowBox[{"-", "0.46347419875999996`"}], "1.62852807228`", "6.1591839518`"}, { RowBox[{"-", "1.17079864056`"}], RowBox[{"-", "5.2073289655999995`"}], RowBox[{"-", "1.2920056662000001`"}]}, {"1.6988258794799997`", RowBox[{"-", "4.0392893249999995`"}], RowBox[{"-", "0.39340315868000003`"}]}, { RowBox[{"-", "2.4388803755999997`"}], RowBox[{"-", "5.9008584075999995`"}], "3.0246954356`"}, {"0.7263161881`", RowBox[{"-", "6.5688765486`"}], "3.1248509136`"}, {"4.2979928144`", "5.415954716`", RowBox[{"-", "0.6637284629799999`"}]}, {"2.7011743444`", RowBox[{"-", "1.8628163017599997`"}], "6.8432647638`"}, {"3.6038964546`", RowBox[{"-", "4.0993826118`"}], "4.51644514`"}, {"2.6561988656`", "6.17940402`", RowBox[{"-", "4.4648556202`"}]}, {"3.9466927509999996`", "3.1915582413999997`", RowBox[{"-", "5.5402986868`"}]}, {"6.9575931868`", RowBox[{"-", "2.1818776395999997`"}], "2.4747851696`"}, { RowBox[{"-", "6.234206073999999`"}], RowBox[{"-", "3.6866664534`"}], "0.94144259594`"}, {"8.964293226199999`", "1.0411634369599998`", "0.21512640784`"}, {"7.0358278432`", "3.3143904313999997`", "1.7394360912199998`"}, { RowBox[{"-", "5.476425948`"}], "1.9689055193999998`", RowBox[{"-", "6.678102711399999`"}]}, { RowBox[{"-", "9.885912596399999`"}], RowBox[{"-", "3.0902689278`"}], RowBox[{"-", "1.9447170265999998`"}]}, { RowBox[{"-", "9.5603128066`"}], RowBox[{"-", "0.31360002969999995`"}], RowBox[{"-", "5.7394758072`"}]}, {"0", "0", "0"}, {"0", "0", "0"}, {"0", "0", "0"}, {"0", "0", "0"}, {"0", "0", "0"}, {"0", "0", "0"}, {"0", "0", "0"}, {"0", "0", "0"}, {"0", "0", "0"}, {"0", "0", "0"}, {"0", "0", "0"}, {"0", "0", "0"}, {"0", "0", "0"}, {"0", "0", "0"}, {"0", "0", "0"}, {"0", "0", "0"}, {"0", "0", "0"}, {"0", "0", "0"}, {"0", "0", "0"}, {"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.5741814290327983`*^9, 3.5749278262245226`*^9, 3.5802185053107386`*^9}], Cell[BoxData["105"], "Output", CellChangeTimes->{3.5741814290327983`*^9, 3.5749278262245226`*^9, 3.5802185053107386`*^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", ",", "2"}], "}"}]}], "]"}], ",", RowBox[{"Table", "[", RowBox[{ RowBox[{"-", "1.0"}], ",", RowBox[{"{", RowBox[{"i", ",", "1", ",", "2"}], "}"}]}], "]"}], ",", RowBox[{"Table", "[", RowBox[{ RowBox[{"-", "2.0"}], ",", RowBox[{"{", RowBox[{"i", ",", "1", ",", "4"}], "}"}]}], "]"}], ",", RowBox[{"Table", "[", RowBox[{ RowBox[{"-", "2.0"}], ",", RowBox[{"{", RowBox[{"i", ",", "1", ",", "1"}], "}"}]}], "]"}]}], "]"}]}], ";"}], "\[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", "*", "nj"}]}], "}"}]}], "]"}], ",", RowBox[{"Table", "[", RowBox[{"0.0", ",", RowBox[{"{", RowBox[{"i", ",", "1", ",", "9"}], "}"}]}], "]"}]}], "]"}]}], ";"}], "\[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.5741561059295206`*^9, {3.5741631456134853`*^9, 3.574163148951891*^9}, { 3.5741631962199745`*^9, 3.574163261209688*^9}, {3.5741633039381638`*^9, 3.5741633233289976`*^9}, {3.574163815743862*^9, 3.5741638169606647`*^9}, { 3.5741638661475506`*^9, 3.574163867161553*^9}}], Cell[BoxData["105"], "Output", CellChangeTimes->{3.5741814290483985`*^9, 3.5749278262401223`*^9, 3.5802185053107386`*^9}], Cell[BoxData["105"], "Output", CellChangeTimes->{3.5741814290483985`*^9, 3.5749278262401223`*^9, 3.580218505326339*^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[{"-", "178.`"}]], "Output", CellChangeTimes->{3.5741814290639987`*^9, 3.5749278262401223`*^9, 3.580218505326339*^9}], Cell[BoxData["178.`"], "Output", CellChangeTimes->{3.5741814290639987`*^9, 3.5749278262401223`*^9, 3.580218505326339*^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["105"], "Output", CellChangeTimes->{3.574181429141999*^9, 3.5749278263181224`*^9, 3.5802185054043393`*^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["2604.44349412251`"], "Output", CellChangeTimes->{3.5741814291731987`*^9, 3.5749278263493223`*^9, 3.5802185054355392`*^9}] }, Open ]], Cell[CellGroupData[{ Cell[BoxData[ RowBox[{ RowBox[{"(*", " ", RowBox[{ "half", " ", "cloud", " ", "with", " ", "other", " ", "common", " ", RowBox[{"halfcloud", ":", " ", RowBox[{"subtract", " ", "WW"}]}]}], " ", "*)"}], "\[IndentingNewLine]", RowBox[{ RowBox[{ RowBox[{"For", " ", "[", RowBox[{ RowBox[{"i", "=", RowBox[{"nb", "+", "bc", "+", "1"}]}], ",", RowBox[{"i", "<", RowBox[{"nb", "+", "bc", "+", "nj", "+", "3"}]}], ",", RowBox[{"i", "++"}], ",", RowBox[{"Vee", "=", RowBox[{"Vee", "-", RowBox[{ RowBox[{"ow", "[", RowBox[{"[", "i", "]"}], "]"}], "*", RowBox[{ RowBox[{"ow", "[", RowBox[{"[", RowBox[{"i", "+", "nj"}], "]"}], "]"}], "/", RowBox[{"(", RowBox[{"rpo", "+", "rpi"}], ")"}]}]}]}]}]}], "]"}], ";"}], "\[IndentingNewLine]", RowBox[{ RowBox[{"Vee", "=", RowBox[{"Vee", "+", RowBox[{"1.25", "/", RowBox[{"(", RowBox[{"rpo", "+", "rpi"}], ")"}]}]}]}], ";"}], " ", RowBox[{"(*", " ", RowBox[{ RowBox[{"correct", " ", "for", " ", "the", " ", "two", " ", "\[Pi]"}], "-", RowBox[{ "clouds", " ", "with", " ", "occ", " ", "1", " ", "each", " ", "at", " ", "N23"}]}], " ", "*)"}], "\[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.574179222346523*^9, 3.5741793520919504`*^9}}], Cell[BoxData["2603.907779836795`"], "Output", CellChangeTimes->{3.574181429188799*^9, 3.5749278263649225`*^9, 3.5802185054511395`*^9}] }, Open ]], Cell[CellGroupData[{ Cell[BoxData[{ RowBox[{ RowBox[{ RowBox[{"sc", "=", "0.387"}], ";"}], " ", 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.386"}], ";"}], " ", 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", "<", "5"}], ",", RowBox[{"i", "++"}], ",", RowBox[{"Vee", "=", RowBox[{"Vee", "+", RowBox[{"3", "*", RowBox[{"sw", "/", "rlo"}]}]}]}]}], "]"}], "\[IndentingNewLine]", RowBox[{"For", "[", RowBox[{ RowBox[{"i", "=", "1"}], " ", ",", RowBox[{"i", "<", "2"}], ",", 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.574179075222664*^9, 3.574179075550265*^9}, { 3.5741811917719817`*^9, 3.5741813242006145`*^9}}], Cell[BoxData["2780.634999401975`"], "Output", CellChangeTimes->{3.574181429204399*^9, 3.5749278263649225`*^9, 3.5802185054511395`*^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[{"-", "5310.6761677026425`"}]], "Output", CellChangeTimes->{3.574181429204399*^9, 3.5749278263805227`*^9, 3.580218505466739*^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[{"-", "7248.210150861971`"}]], "Output", CellChangeTimes->{3.574181429219999*^9, 3.574927826396123*^9, 3.580218505482339*^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[{"-", "7299.165822902653`"}]], "Output", CellChangeTimes->{3.5741814292355986`*^9, 3.574927826396123*^9, 3.580218505482339*^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["2379.3946495409673`"], "Output", CellChangeTimes->{3.574181429251199*^9, 3.574927826411723*^9, 3.580218505497939*^9}] }, Open ]], Cell[CellGroupData[{ Cell[BoxData[ RowBox[{"ratio", "=", RowBox[{ RowBox[{"-", RowBox[{"(", RowBox[{"Vne", "+", RowBox[{"2", "*", "Vnn"}]}], ")"}]}], "/", RowBox[{"(", RowBox[{"Vee", "-", "Vnn"}], ")"}]}]}]], "Input"], Cell[BoxData["6.331308714840671`"], "Output", CellChangeTimes->{3.5802185055135393`*^9}] }, Open ]], Cell[CellGroupData[{ Cell[BoxData[{"Vee", "\[IndentingNewLine]", "Vnn", "\[IndentingNewLine]", \ "Vne", "\[IndentingNewLine]", RowBox[{ RowBox[{"Tpi", " ", "=", " ", RowBox[{"2.296", "*", RowBox[{"(", RowBox[{"nj", "+", "2"}], ")"}], "*", "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[{"Tlo", " ", "=", " ", RowBox[{"4", "*", "2", "*", "1.125", "*", RowBox[{"(", RowBox[{"1", "/", RowBox[{"rlo", "^", "2"}]}], ")"}]}]}], " ", RowBox[{"(*", " ", RowBox[{ "lp", " ", "kin", " ", "e", " ", "of", " ", "2", " ", "O", " ", "added"}], " ", "*)"}]}], "\[IndentingNewLine]", RowBox[{ RowBox[{"Tln", " ", "=", " ", RowBox[{"2", "*", "2", "*", "1.125", "*", RowBox[{"(", RowBox[{"1", "/", RowBox[{"rln", "^", "2"}]}], ")"}]}]}], " ", RowBox[{"(*", " ", RowBox[{ "lp", " ", "kin", " ", "e", " ", "of", " ", "2", " ", "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.574180622729782*^9, {3.5741806577674437`*^9, 3.5741806591402464`*^9}}], Cell[BoxData["2780.634999401975`"], "Output", CellChangeTimes->{3.5741814292823987`*^9, 3.574927826427323*^9, 3.5802185055135393`*^9}], Cell[BoxData["2379.3946495409673`"], "Output", CellChangeTimes->{3.5741814292823987`*^9, 3.574927826427323*^9, 3.5802185055135393`*^9}], Cell[BoxData[ RowBox[{"-", "7299.165822902653`"}]], "Output", CellChangeTimes->{3.5741814292823987`*^9, 3.574927826427323*^9, 3.5802185055291395`*^9}], Cell[BoxData["14.496428571428574`"], "Output", CellChangeTimes->{3.5741814292823987`*^9, 3.574927826427323*^9, 3.5802185055291395`*^9}], Cell[BoxData["7.111111111111111`"], "Output", CellChangeTimes->{3.5741814292823987`*^9, 3.574927826427323*^9, 3.5802185055291395`*^9}], Cell[BoxData["2.8985208526031294`"], "Output", CellChangeTimes->{3.5741814292823987`*^9, 3.574927826427323*^9, 3.5802185055291395`*^9}], Cell[BoxData[ RowBox[{"-", "2139.1361739597105`"}]], "Output", CellChangeTimes->{3.5741814292823987`*^9, 3.574927826427323*^9, 3.5802185055291395`*^9}], Cell[BoxData["1069.3908949856268`"], "Output", CellChangeTimes->{3.5741814292823987`*^9, 3.574927826427323*^9, 3.5802185055291395`*^9}], Cell[BoxData["2.0003313886345193`"], "Output", CellChangeTimes->{3.5741814292823987`*^9, 3.574927826427323*^9, 3.5802185055291395`*^9}], Cell[BoxData[ RowBox[{"-", "1069.7452789740837`"}]], "Output", CellChangeTimes->{3.5741814292823987`*^9, 3.574927826427323*^9, 3.5802185055291395`*^9}] }, Open ]] }, WindowSize->{1052, 819}, WindowMargins->{{182, Automatic}, {Automatic, 4}}, 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[CellGroupData[{ Cell[579, 22, 2067, 37, 72, "Input"], Cell[2649, 61, 6100, 104, 336, "Output"] }, Open ]], Cell[CellGroupData[{ Cell[8786, 170, 909, 18, 52, "Input"], Cell[9698, 190, 5272, 135, 734, "Output"] }, Open ]], Cell[CellGroupData[{ Cell[15007, 330, 765, 13, 31, "Input"], Cell[15775, 345, 1034, 15, 52, "Output"] }, Open ]], Cell[CellGroupData[{ Cell[16846, 365, 955, 14, 31, "Input"], Cell[17804, 381, 122, 2, 31, "Output"] }, Open ]], Cell[CellGroupData[{ Cell[17963, 388, 1560, 29, 31, "Input"], Cell[19526, 419, 1034, 15, 52, "Output"] }, Open ]], Cell[20575, 437, 1419, 23, 31, "Input"], Cell[21997, 462, 1592, 29, 31, "Input"], Cell[CellGroupData[{ Cell[23614, 495, 1234, 18, 31, "Input"], Cell[24851, 515, 3333, 98, 92, "Output"] }, Open ]], Cell[CellGroupData[{ Cell[28221, 618, 697, 14, 31, "Input"], Cell[28921, 634, 682, 12, 52, "Output"] }, Open ]], Cell[29618, 649, 908, 24, 31, "Input"], Cell[CellGroupData[{ Cell[30551, 677, 5790, 124, 172, "Input"], Cell[36344, 803, 864, 14, 72, "Output"], Cell[37211, 819, 869, 14, 72, "Output"] }, Open ]], Cell[CellGroupData[{ Cell[38117, 838, 519, 12, 31, "Input"], Cell[38639, 852, 1034, 15, 52, "Output"] }, Open ]], Cell[CellGroupData[{ Cell[39710, 872, 1401, 38, 72, "Input"], Cell[41114, 912, 737, 12, 52, "Output"] }, Open ]], Cell[CellGroupData[{ Cell[41888, 929, 827, 23, 92, "Input"], Cell[42718, 954, 120, 2, 31, "Output"], Cell[42841, 958, 120, 2, 31, "Output"] }, Open ]], Cell[42976, 963, 1824, 35, 72, "Input"], Cell[44803, 1000, 5011, 125, 212, "Input"], Cell[CellGroupData[{ Cell[49839, 1129, 2100, 42, 72, "Input"], Cell[51942, 1173, 54672, 773, 746, "Output"] }, Open ]], Cell[106629, 1949, 1331, 36, 72, "Input"], Cell[CellGroupData[{ Cell[107985, 1989, 4977, 90, 72, "Input"], Cell[112965, 2081, 15415, 232, 746, "Output"] }, Open ]], Cell[CellGroupData[{ Cell[128417, 2318, 2570, 53, 132, "Input"], Cell[130990, 2373, 122, 2, 31, "Output"] }, Open ]], Cell[CellGroupData[{ Cell[131149, 2380, 2598, 53, 92, "Input"], Cell[133750, 2435, 365, 7, 31, "Output"] }, Open ]], Cell[134130, 2445, 10282, 209, 232, "Input"], Cell[CellGroupData[{ Cell[144437, 2658, 1990, 42, 72, "Input"], Cell[146430, 2702, 354, 8, 31, "Output"], Cell[146787, 2712, 193, 4, 31, "Output"] }, Open ]], Cell[CellGroupData[{ Cell[147017, 2721, 623, 15, 52, "Input"], Cell[147643, 2738, 594, 12, 52, "Output"], Cell[148240, 2752, 194, 4, 31, "Output"] }, Open ]], Cell[CellGroupData[{ Cell[148471, 2761, 2789, 54, 72, "Input"], Cell[151263, 2817, 787, 14, 52, "Output"], Cell[152053, 2833, 199, 4, 31, "Output"] }, Open ]], Cell[CellGroupData[{ Cell[152289, 2842, 3698, 81, 132, "Input"], Cell[155990, 2925, 925, 15, 92, "Output"] }, Open ]], Cell[156930, 2943, 2072, 49, 112, "Input"], Cell[159005, 2994, 561, 12, 52, "Input"], Cell[159569, 3008, 2148, 49, 92, "Input"], Cell[161720, 3059, 2452, 56, 92, "Input"], Cell[164175, 3117, 1759, 41, 72, "Input"], Cell[CellGroupData[{ Cell[165959, 3162, 923, 20, 31, "Input"], Cell[166885, 3184, 137, 2, 31, "Output"] }, Open ]], Cell[CellGroupData[{ Cell[167059, 3191, 711, 18, 31, "Input"], Cell[167773, 3211, 138, 2, 31, "Output"] }, Open ]], Cell[CellGroupData[{ Cell[167948, 3218, 507, 10, 31, "Input"], Cell[168458, 3230, 138, 2, 31, "Output"] }, Open ]], Cell[CellGroupData[{ Cell[168633, 3237, 823, 23, 31, "Input"], Cell[169459, 3262, 140, 2, 31, "Output"] }, Open ]], Cell[CellGroupData[{ Cell[169636, 3269, 204, 4, 31, "Input"], Cell[169843, 3275, 140, 2, 31, "Output"] }, Open ]], Cell[169998, 3280, 1975, 34, 72, "Input"], Cell[CellGroupData[{ Cell[171998, 3318, 4534, 109, 212, "Input"], Cell[176535, 3429, 249, 6, 31, "Output"], Cell[176787, 3437, 4704, 160, 731, "Output"] }, Open ]], Cell[181506, 3600, 11234, 208, 172, "Input"], Cell[192743, 3810, 11008, 295, 1312, "Input"], Cell[203754, 4107, 4642, 104, 52, "Input"], Cell[208399, 4213, 3137, 49, 72, "Input"], Cell[211539, 4264, 13180, 322, 1292, "Input"], Cell[224722, 4588, 4350, 87, 52, "Input"], Cell[229075, 4677, 21204, 531, 1672, "Input"], Cell[250282, 5210, 25517, 605, 1712, "Input"], Cell[275802, 5817, 5176, 75, 49, "Text"], Cell[280981, 5894, 24182, 640, 1292, "Input"], Cell[305166, 6536, 3073, 58, 92, "Input"], Cell[CellGroupData[{ Cell[308264, 6598, 939, 17, 72, "Input"], Cell[309206, 6617, 4813, 111, 212, "Output"], Cell[314022, 6730, 120, 2, 31, "Output"], Cell[314145, 6734, 120, 2, 31, "Output"] }, Open ]], Cell[CellGroupData[{ Cell[314302, 6741, 507, 15, 52, "Input"], Cell[314812, 6758, 13021, 406, 246, "Output"] }, Open ]], Cell[327848, 7167, 10201, 233, 192, "Input"], Cell[338052, 7402, 6427, 103, 92, "Input"], Cell[344482, 7507, 10215, 234, 132, "Input"], Cell[354700, 7743, 5925, 93, 31, "Input"], Cell[360628, 7838, 13002, 229, 152, "Input"], Cell[CellGroupData[{ Cell[373655, 8071, 12214, 201, 212, "Input"], Cell[385872, 8274, 28472, 611, 375, "Output"], Cell[414347, 8887, 19996, 382, 371, "Output"] }, Open ]], Cell[CellGroupData[{ Cell[434380, 9274, 5636, 120, 152, "Input"], Cell[440019, 9396, 123, 2, 31, "Output"], Cell[440145, 9400, 11983, 298, 1604, "Output"] }, Open ]], Cell[CellGroupData[{ Cell[452165, 9703, 2499, 47, 92, "Input"], Cell[454667, 9752, 123, 2, 31, "Output"] }, Open ]], Cell[454805, 9757, 1841, 29, 52, "Input"], Cell[CellGroupData[{ Cell[456671, 9790, 4921, 108, 192, "Input"], Cell[461595, 9900, 6548, 193, 1604, "Output"], Cell[468146, 10095, 125, 2, 31, "Output"] }, Open ]], Cell[CellGroupData[{ Cell[468308, 10102, 6870, 133, 132, "Input"], Cell[475181, 10237, 125, 2, 31, "Output"], Cell[475309, 10241, 123, 2, 31, "Output"] }, Open ]], Cell[CellGroupData[{ Cell[475469, 10248, 632, 18, 52, "Input"], Cell[476104, 10268, 142, 3, 31, "Output"], Cell[476249, 10273, 125, 2, 31, "Output"] }, Open ]], Cell[CellGroupData[{ Cell[476411, 10280, 4670, 80, 92, "Input"], Cell[481084, 10362, 123, 2, 31, "Output"] }, Open ]], Cell[481222, 10367, 1863, 27, 31, "Input"], Cell[CellGroupData[{ Cell[483110, 10398, 2963, 56, 112, "Input"], Cell[486076, 10456, 139, 2, 31, "Output"] }, Open ]], Cell[CellGroupData[{ Cell[486252, 10463, 1955, 49, 112, "Input"], Cell[488210, 10514, 138, 2, 31, "Output"] }, Open ]], Cell[CellGroupData[{ Cell[488385, 10521, 3579, 82, 152, "Input"], Cell[491967, 10605, 138, 2, 31, "Output"] }, Open ]], Cell[CellGroupData[{ Cell[492142, 10612, 499, 15, 52, "Input"], Cell[492644, 10629, 154, 3, 31, "Output"] }, Open ]], Cell[492813, 10635, 1381, 21, 31, "Input"], Cell[CellGroupData[{ Cell[494219, 10660, 1709, 32, 52, "Input"], Cell[495931, 10694, 151, 3, 31, "Output"] }, Open ]], Cell[CellGroupData[{ Cell[496119, 10702, 1415, 43, 72, "Input"], Cell[497537, 10747, 153, 3, 31, "Output"] }, Open ]], Cell[CellGroupData[{ Cell[497727, 10755, 2550, 50, 92, "Input"], Cell[500280, 10807, 135, 2, 31, "Output"] }, Open ]], Cell[CellGroupData[{ Cell[500452, 10814, 230, 8, 31, "Input"], Cell[500685, 10824, 89, 1, 31, "Output"] }, Open ]], Cell[CellGroupData[{ Cell[500811, 10830, 3080, 64, 232, "Input"], Cell[503894, 10896, 138, 2, 31, "Output"], Cell[504035, 10900, 139, 2, 31, "Output"], Cell[504177, 10904, 155, 3, 31, "Output"], Cell[504335, 10909, 139, 2, 31, "Output"], Cell[504477, 10913, 138, 2, 31, "Output"], Cell[504618, 10917, 139, 2, 31, "Output"], Cell[504760, 10921, 156, 3, 31, "Output"], Cell[504919, 10926, 139, 2, 31, "Output"], Cell[505061, 10930, 139, 2, 31, "Output"], Cell[505203, 10934, 156, 3, 63, "Output"] }, Open ]] } ] *) (* End of internal cache information *)