(* 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[ 656991, 13565] NotebookOptionsPosition[ 648541, 13308] NotebookOutlinePosition[ 649042, 13328] CellTagsIndexPosition[ 648999, 13325] WindowFrame->Normal*) (* Beginning of Notebook Content *) Notebook[{ Cell[BoxData[ RowBox[{ RowBox[{"(*", " ", RowBox[{ RowBox[{ "Kimball", " ", "model", " ", "and", " ", "energy", " ", "derived", " ", "from", " ", "Wolfram", " ", "source"}], ",", " ", RowBox[{"ES", " ", "13", " ", "April", " ", "2013"}]}], " ", "*)"}], " ", "\[IndentingNewLine]", RowBox[{ RowBox[{"Clear", "[", RowBox[{ "tw", ",", "n2", ",", "n", ",", "nb", ",", "bc", ",", "bh", ",", "u", ",", "u1", ",", "u2", ",", "Vee", ",", "Vne", ",", "Vnn"}], "]"}], ";"}], " "}]], "Input", CellChangeTimes->{{3.568278170270548*^9, 3.568278174310955*^9}, { 3.5682782109554195`*^9, 3.5682782183342323`*^9}, {3.5688220426984916`*^9, 3.5688220506389055`*^9}, {3.568822092353379*^9, 3.568822134660653*^9}, { 3.5688728241768503`*^9, 3.568872825034852*^9}, {3.5688958900531473`*^9, 3.5688958965115585`*^9}, {3.5689027504159966`*^9, 3.568902751695199*^9}, { 3.5689109808408637`*^9, 3.568910992618884*^9}, {3.569134574760273*^9, 3.569134584135889*^9}, 3.56923802266416*^9, {3.56933446475942*^9, 3.569334471239791*^9}, {3.5693395229642725`*^9, 3.569339531606688*^9}, { 3.5694332905109916`*^9, 3.56943330667262*^9}, {3.570297588441428*^9, 3.5702976026530533`*^9}, {3.570558862041448*^9, 3.5705588713234644`*^9}, 3.5705590387585583`*^9, {3.570855141170933*^9, 3.570855146100541*^9}, { 3.5708563212974052`*^9, 3.5708563224362073`*^9}, {3.5708588179101906`*^9, 3.570858820452995*^9}, 3.570949483910489*^9, {3.5719810762355733`*^9, 3.5719810786847773`*^9}, 3.5723256977094345`*^9, 3.572583124905918*^9, { 3.5727976670013523`*^9, 3.572797667157352*^9}, 3.5728672700652885`*^9, { 3.5732075583876934`*^9, 3.5732075588400946`*^9}, {3.573221345358634*^9, 3.57322135451585*^9}, {3.573369135900576*^9, 3.5733691365557775`*^9}, { 3.574682961367374*^9, 3.5746829644717793`*^9}, 3.5747440056200757`*^9, { 3.574833269418433*^9, 3.5748332704636354`*^9}, 3.574833303161292*^9}], Cell[CellGroupData[{ Cell[BoxData[ RowBox[{ RowBox[{"ChemicalData", "[", RowBox[{"\"\\"", ",", "\"\\""}], "]"}], "\[IndentingNewLine]"}]], "Input", CellChangeTimes->{{3.570856547809803*^9, 3.5708565502590075`*^9}, 3.5708567094884872`*^9, 3.5709425310070767`*^9, 3.5730457924857635`*^9, 3.5746613722183495`*^9, 3.574701612088543*^9}], Cell[BoxData[ Graphics3DBox[ {AbsoluteThickness[3], EdgeForm[None], Specularity[ GrayLevel[1], 100], GraphicsComplex3DBox[CompressedData[" 1:eJwtVQtsk1UUHjAn4BBEQmBhMMnAohiZsDAYc2cvx9yYbUfp2j36WteudFvX dbDBnpChhpAFCS8R8THkESCoCyBZ8MhLREAeM8TgAjLeGyEIE5WH3nu//ybN 397ee853vvOd73/FWWl0DwwLCzOLzyDxOdKvK2y7EaA9mX8sGbWiCs/iVPq3 0dcZSkunUXJjRiGL3T2Zq8tZ/b+nkQrbDvfrrjlob9C7+u6cSRwm150WWnxo S9SbbgOXyvWpnZKGXvwyMHY5y+OFN0txLsbJLWvTVvr3Z1B7QJy4YKWV/puP dwwwU5W8cMVNT3bcPz/vrRwSt5OG7k+kd/Y9eNqVb+L3R/925lF1MnWcWHRo izWLfjj5eca+HjPvGmctSRyeQgfGt/YaxlhZ4Z5fRTJ90kknLXjxjW8231tA qo4WPy9ncXFdMhvlBYeL/xI0HN6cR3PlAXMRTZEF7i0nhXeDi5wj8md1JOTi vsHGfQZxMdsPHrpcJLIeGH+sHPXutrDiNVjAyF9AI2XC+BTwEx3HKr63BLxO 8ZHK32piwfqaMZ0G8L4rgDhXnazqumUA3o0u9OGGjwVr988P0wHHJzWscM41 AOcQJys+YxbyhgqBwGhkde5KEH3wLsG9TitJWN1T56Puhw18LyEjM1g3gabL dcGDex/UsuLnkZcv/SMEck2P/VAT6siyg/ff7bxUfjnZQD9mz/wwhaeRquML D+rsn0yKv7wyOjdRRNqZjf1hbi5JvPzeql/m0wRJaKOmB73Wz6N2On1KrHYH f7xRLMs0Qv884D86SFYZYJ6eRFb79REzwcP1KvRlXgXlSoJGxUFXbW7gn+NE n6kE57a6gP9gOfKNCwD/u5qedlZR8cGsyIEvmBH/WBA89rnBK1lY4f/KQ9fP ygKjWeW77NB06cT5HG0+nnPxOjEONy+lE+ZmIaXLgTAsQDxdKXg4EQRPk4p4 9d365PjxCai/zov5+jYIPbj1pJ7ledDPyEpOjheI+7Kg86QQq7rCXagv3Adc CYu4OzaiZe3jfMqRBE7KYIWvphrzfLwAOvw7BFxnHYi328lqjpuqobe9HpbT ti3iVehnzSLovT4E3qfX0E9ifKPWm8BDRwPPjOKCmJTe7xVvHwWh88Ut/Kyr 9vbk+wZS9V10IT/X4akL8sDXpSNMhS6zm6nu9uS4wQ+N6Ge71rcztdSzddPR mOZ0Vjrp9iPegOXo3zkb8OnKoMvoKuDu9ZG0m7zhevD+dZDktbbCavpMjEvs 8VyKkEbWmUryWE+SHvGfetHvlfXQS6qNvLJhrSnQtacZ+77Z4D2mBL5Ts4yU j23KRz09Jchb1oJ6N7jgJ40OVvMaSkS8Yhf8eqGRxoYLpztoY4VrVw5JOwkf re1HWaCDwSbN34qh/45MUnqP0PSwJEDbj4vB7TfQz8JeH6wy4P/iAEkYB/70 0tEY4fyONPj3Jif86I6Txsg8ZwrQ520OniF5HFSuxfehH6MD6M/ZSvi+xQYd XwhgHhwOvir7YrFCB8ecJG3E3pqt8WDjU2ou7cAz2w3fP1HEsrzI13KAq8dH 0dIQek3Yj7CRittdCV5NFpZt23okE/mHlLLq+8sB+JAnDe8dfRHyPvGz+n1r OvTSF4I+d2j1Pl+Kc3dqWOljognvKaMZfrIswE3S4CPN6GNfNc7XlnKqXTjF xQLM1TRtjrxlmKuet6GH70Ks9NfVwNvjTyfmvhSJuusrgHtWM6/S3R126FYa dP2rG3li69Dn9gqWZa1vTOcVUqdxTaTeN7GZ4KXGDz3lLKVn/4mVrEP+ZB/9 DwDH2SM= "], { {RGBColor[0.65, 0.7, 0.7], 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.], SphereBox[48, 24.], SphereBox[49, 24.], SphereBox[50, 24.], SphereBox[51, 24.], SphereBox[52, 24.], SphereBox[53, 24.], SphereBox[54, 24.]}, {RGBColor[0.4, 0.4, 0.4], 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.], SphereBox[26, 34.]}, {RGBColor[0.800498, 0.201504, 0.192061], SphereBox[1, 31.], SphereBox[2, 31.], SphereBox[3, 31.], SphereBox[4, 31.], SphereBox[5, 31.]}, {RGBColor[0.65, 0.7, 0.7], CylinderBox[{56, 48}, 15.], CylinderBox[{60, 54}, 15.], CylinderBox[{62, 27}, 15.], CylinderBox[{63, 28}, 15.], CylinderBox[{64, 29}, 15.], CylinderBox[{65, 30}, 15.], CylinderBox[{66, 31}, 15.], CylinderBox[{67, 32}, 15.], CylinderBox[{68, 33}, 15.], CylinderBox[{69, 34}, 15.], CylinderBox[{70, 35}, 15.], CylinderBox[{71, 36}, 15.], CylinderBox[{72, 37}, 15.], CylinderBox[{73, 38}, 15.], CylinderBox[{74, 39}, 15.], CylinderBox[{75, 40}, 15.], CylinderBox[{76, 41}, 15.], CylinderBox[{77, 42}, 15.], CylinderBox[{78, 43}, 15.], CylinderBox[{79, 44}, 15.], CylinderBox[{80, 45}, 15.], CylinderBox[{81, 46}, 15.], CylinderBox[{82, 47}, 15.], CylinderBox[{83, 49}, 15.], CylinderBox[{84, 50}, 15.], CylinderBox[{85, 51}, 15.], CylinderBox[{86, 52}, 15.], CylinderBox[{87, 53}, 15.]}, {RGBColor[0.4, 0.4, 0.4], CylinderBox[{10, 55}, 15.], CylinderBox[{57, 16}, 15.], CylinderBox[{58, 22}, 15.], CylinderBox[{59, 26}, 15.], CylinderBox[{61, 25}, 15.], CylinderBox[{6, 7}, 15.], CylinderBox[{6, 8}, 15.], CylinderBox[{6, 12}, 15.], CylinderBox[{6, 62}, 15.], CylinderBox[{7, 10}, 15.], CylinderBox[{7, 13}, 15.], CylinderBox[{7, 17}, 15.], CylinderBox[{8, 9}, 15.], CylinderBox[{8, 15}, 15.], CylinderBox[{8, 63}, 15.], CylinderBox[{9, 11}, 15.], CylinderBox[{9, 16}, 15.], CylinderBox[{9, 64}, 15.], CylinderBox[{10, 14}, 15.], CylinderBox[{10, 22}, 15.], CylinderBox[{11, 18}, 15.], CylinderBox[{11, 20}, 15.], CylinderBox[{11, 21}, 15.], CylinderBox[{12, 14}, 15.], CylinderBox[{12, 65}, 15.], CylinderBox[{12, 66}, 15.], CylinderBox[{13, 16}, 15.], CylinderBox[{13, 67}, 15.], CylinderBox[{13, 68}, 15.], CylinderBox[{14, 69}, 15.], CylinderBox[{14, 70}, 15.], CylinderBox[{15, 19}, 15.], CylinderBox[{15, 71}, 15.], CylinderBox[{15, 72}, 15.], CylinderBox[{17, 73}, 15.], CylinderBox[{17, 74}, 15.], CylinderBox[{17, 75}, 15.], CylinderBox[{18, 19}, 15.], CylinderBox[{18, 24}, 15.], CylinderBox[{19, 76}, 15.], CylinderBox[{19, 77}, 15.], CylinderBox[{20, 23}, 15.], CylinderBox[{20, 78}, 15.], CylinderBox[{20, 79}, 15.], CylinderBox[{21, 80}, 15.], CylinderBox[{21, 81}, 15.], CylinderBox[{21, 82}, 15.], CylinderBox[{22, 26}, 15.], CylinderBox[{23, 25}, 15.], CylinderBox[{23, 83}, 15.], CylinderBox[{23, 84}, 15.], CylinderBox[{24, 25}, 15.], CylinderBox[{24, 85}, 15.], CylinderBox[{26, 86}, 15.], CylinderBox[{26, 87}, 15.]}, {RGBColor[0.800498, 0.201504, 0.192061], CylinderBox[{55, 1}, 15.], CylinderBox[{1, 56}, 15.], CylinderBox[{2, 57}, 15.], CylinderBox[{3, 58}, 15.], CylinderBox[{4, 59}, 15.], CylinderBox[{4, 60}, 15.], CylinderBox[{5, 61}, 15.]}}]}, Boxed->False, ImageSize->353.22005839426595`, Lighting->"Neutral", ViewPoint->{1.3, -2.4, -2.}]], "Output", CellChangeTimes->{3.5748345054394045`*^9, 3.5801424180400114`*^9}] }, Open ]], Cell[CellGroupData[{ Cell[BoxData[{ 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.5746613722339497`*^9, 3.574701612088543*^9}], Cell[BoxData[ TagBox[ RowBox[{"(", "\[NoBreak]", GridBox[{ {"5.1100080766`", "5.2984137588`", "0.6941908460999999`"}, {"0.76584925602`", RowBox[{"-", "2.1319888731999996`"}], RowBox[{"-", "4.4699578804`"}]}, {"9.276286988799999`", "2.7047648237999997`", RowBox[{"-", "0.20067000393999998`"}]}, {"10.832854294999999`", RowBox[{"-", "1.31489024806`"}], "2.5123907169999997`"}, { RowBox[{"-", "11.5496273668`"}], RowBox[{"-", "3.4625449498`"}], RowBox[{"-", "2.7401027`"}]}, {"0.8207646935799999`", "2.0278649706`", "1.73903924876`"}, {"3.3073984452`", "1.06567318318`", "0.5237375609`"}, { RowBox[{"-", "1.61359923688`"}], "0.59437551878`", "0.9582422600799999`"}, { RowBox[{"-", "1.8057843710800001`"}], "0.6447556139399999`", RowBox[{"-", "1.9724959987999997`"}]}, {"5.239832252799999`", "2.8406361232`", "1.73371022144`"}, { RowBox[{"-", "4.309331170399999`"}], RowBox[{"-", "0.59690775162`"}], RowBox[{"-", "2.9302091355999997`"}]}, {"1.4827735059`", "2.2179714061999998`", "4.4886661678`"}, {"2.962145505`", "1.14220708618`", RowBox[{"-", "2.3672597601999996`"}]}, {"4.2775837736`", "2.9976723537999996`", "4.5005714416`"}, { RowBox[{"-", "1.9409375745999997`"}], RowBox[{"-", "2.0747301754`"}], "2.1006194216`"}, {"0.6504247919399999`", RowBox[{"-", "0.32340770764`"}], RowBox[{"-", "3.0855446127999997`"}]}, {"3.9550075453999995`", RowBox[{"-", "1.6268651134`"}], "1.3405527271399997`"}, { RowBox[{"-", "5.041411022799999`"}], RowBox[{"-", "2.8549980408`"}], RowBox[{"-", "1.3536107337999999`"}]}, { RowBox[{"-", "2.9632793405999998`"}], RowBox[{"-", "4.0665013794`"}], "0.22727734601999997`"}, { RowBox[{"-", "6.533916617599999`"}], "1.3064809673599997`", RowBox[{"-", "2.7266856454`"}]}, { RowBox[{"-", "4.1010833652`"}], RowBox[{"-", "1.3850368771800001`"}], RowBox[{"-", "5.707161492599999`"}]}, {"7.984092349999999`", "2.0208729844`", "1.5250277792599998`"}, { RowBox[{"-", "9.0576456906`"}], "0.14869498003599999`", RowBox[{"-", "3.6018177559999995`"}]}, { RowBox[{"-", "7.4173635226`"}], RowBox[{"-", "3.7745387124`"}], RowBox[{"-", "1.27696344724`"}]}, { RowBox[{"-", "9.5102350676`"}], RowBox[{"-", "2.4621240053999998`"}], RowBox[{"-", "2.5490514013999994`"}]}, {"9.007945896799999`", "0.31654800226`", "3.5730939208`"}, {"0.2169405448`", "3.8287738486`", "1.04562319032`"}, { RowBox[{"-", "3.1828655018`"}], "1.5730646141799998`", "1.7759644948`"}, { RowBox[{"-", "1.9891255876`"}], "2.5348784563999995`", RowBox[{"-", "2.667348249`"}]}, {"0.308970201`", "3.5349214555999997`", "5.4768038932`"}, {"1.23225253008`", "0.43588419916`", "5.4108524558`"}, {"4.5810737692`", "0.32274630354`", RowBox[{"-", "3.2592104321999997`"}]}, {"2.7567322888`", "3.0613561199999997`", RowBox[{"-", "2.9700823541999997`"}]}, {"4.4945243184`", "4.871713628`", "5.2281159516`"}, {"5.341121566399999`", "1.7417982487199999`", "5.675414095799999`"}, { RowBox[{"-", "3.3142014588`"}], RowBox[{"-", "1.90862326`"}], "3.5755505646`"}, { RowBox[{"-", "0.13934839523999998`"}], RowBox[{"-", "2.7017412621999997`"}], "2.7710942063999995`"}, {"2.4638247588`", RowBox[{"-", "2.8755960541999994`"}], "0.7883558926800001`"}, {"4.175349596999999`", RowBox[{"-", "1.68716627006`"}], "3.349539335`"}, {"5.6793825204`", RowBox[{"-", "2.2032315434`"}], "0.45576411667999994`"}, { RowBox[{"-", "3.7002724806`"}], RowBox[{"-", "5.6542491645999995`"}], "1.2394901806599998`"}, { RowBox[{"-", "1.4686194581599998`"}], RowBox[{"-", "4.6974808908`"}], RowBox[{"-", "0.9797473419599999`"}]}, { RowBox[{"-", "6.1200666236`"}], "2.875218109`", RowBox[{"-", "3.9334646689999997`"}]}, { RowBox[{"-", "6.718542847799999`"}], "1.8884220890599999`", RowBox[{"-", "0.79920291992`"}]}, { RowBox[{"-", "5.883472928399999`"}], RowBox[{"-", "2.0994855859999997`"}], RowBox[{"-", "6.340408675199999`"}]}, { RowBox[{"-", "2.6928595499999997`"}], RowBox[{"-", "2.8238175618`"}], RowBox[{"-", "5.8957561474`"}]}, { RowBox[{"-", "3.5814087152`"}], "0.21756415437999999`", RowBox[{"-", "6.825690312`"}]}, {"6.194710800599999`", "6.409761619399999`", "1.63198627086`"}, { RowBox[{"-", "8.9811117876`"}], RowBox[{"-", "0.016094796342`"}], RowBox[{"-", "5.6156987542`"}]}, { RowBox[{"-", "10.5633793674`"}], "1.35621855568`", RowBox[{"-", "2.9995620797999996`"}]}, { RowBox[{"-", "7.786049065199999`"}], RowBox[{"-", "5.490031975199999`"}], RowBox[{"-", "0.27219613304`"}]}, {"9.8541651996`", "1.43265797238`", "5.031395475`"}, {"7.5005114666`", RowBox[{"-", "0.7748065572599999`"}], "4.3635663066`"}, {"11.492746614199998`", RowBox[{"-", "2.4050542802`"}], "3.8036404928`"} }, 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.574834505548605*^9, 3.5801424180400114`*^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.57466137224955*^9, 3.574701612104143*^9}], Cell[BoxData[ RowBox[{"{", RowBox[{"\<\"O\"\>", ",", "\<\"O\"\>", ",", "\<\"O\"\>", ",", "\<\"O\"\>", ",", "\<\"O\"\>", ",", "\<\"C\"\>", ",", "\<\"C\"\>", ",", "\<\"C\"\>", ",", "\<\"C\"\>", ",", "\<\"C\"\>", ",", "\<\"C\"\>", ",", "\<\"C\"\>", ",", "\<\"C\"\>", ",", "\<\"C\"\>", ",", "\<\"C\"\>", ",", "\<\"C\"\>", ",", "\<\"C\"\>", ",", "\<\"C\"\>", ",", "\<\"C\"\>", ",", "\<\"C\"\>", ",", "\<\"C\"\>", ",", "\<\"C\"\>", ",", "\<\"C\"\>", ",", "\<\"C\"\>", ",", "\<\"C\"\>", ",", "\<\"C\"\>", ",", "\<\"H\"\>", ",", "\<\"H\"\>", ",", "\<\"H\"\>", ",", "\<\"H\"\>", ",", "\<\"H\"\>", ",", "\<\"H\"\>", ",", "\<\"H\"\>", ",", "\<\"H\"\>", ",", "\<\"H\"\>", ",", "\<\"H\"\>", ",", "\<\"H\"\>", ",", "\<\"H\"\>", ",", "\<\"H\"\>", ",", "\<\"H\"\>", ",", "\<\"H\"\>", ",", "\<\"H\"\>", ",", "\<\"H\"\>", ",", "\<\"H\"\>", ",", "\<\"H\"\>", ",", "\<\"H\"\>", ",", "\<\"H\"\>", ",", "\<\"H\"\>", ",", "\<\"H\"\>", ",", "\<\"H\"\>", ",", "\<\"H\"\>", ",", "\<\"H\"\>", ",", "\<\"H\"\>", ",", "\<\"H\"\>"}], "}"}]], "Output", CellChangeTimes->{3.574834505564205*^9, 3.5801424180556116`*^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["54"], "Output", CellChangeTimes->{3.574834505564205*^9, 3.580142418071212*^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\"\>", ",", "\<\"O\"\>", ",", "\<\"O\"\>", ",", "\<\"O\"\>", ",", "\<\"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\"\>", ",", "\<\"Z\"\>", ",", "\<\"Z\"\>", ",", "\<\"Z\"\>", ",", "\<\"Z\"\>", ",", "\<\"Z\"\>", ",", "\<\"Z\"\>"}], "}"}]], "Output", CellChangeTimes->{3.574834505579805*^9, 3.5801424180868115`*^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\"\>", ",", "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[{"\<\"C\"\>", ",", "26"}], "}"}], ",", RowBox[{"{", RowBox[{"\<\"O\"\>", ",", "1"}], "}"}], ",", RowBox[{"{", RowBox[{"\<\"O\"\>", ",", "2"}], "}"}], ",", RowBox[{"{", RowBox[{"\<\"O\"\>", ",", "3"}], "}"}], ",", RowBox[{"{", RowBox[{"\<\"O\"\>", ",", "4"}], "}"}], ",", RowBox[{"{", RowBox[{"\<\"O\"\>", ",", "5"}], "}"}], ",", 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"}], "}"}], ",", RowBox[{"{", RowBox[{"\<\"Z\"\>", ",", "48"}], "}"}], ",", RowBox[{"{", RowBox[{"\<\"Z\"\>", ",", "49"}], "}"}], ",", RowBox[{"{", RowBox[{"\<\"Z\"\>", ",", "50"}], "}"}], ",", RowBox[{"{", RowBox[{"\<\"Z\"\>", ",", "51"}], "}"}], ",", RowBox[{"{", RowBox[{"\<\"Z\"\>", ",", "52"}], "}"}], ",", RowBox[{"{", RowBox[{"\<\"Z\"\>", ",", "53"}], "}"}], ",", RowBox[{"{", RowBox[{"\<\"Z\"\>", ",", "54"}], "}"}]}], "}"}]], "Output", CellChangeTimes->{3.574834505595405*^9, 3.5801424181024113`*^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[{ "6", ",", "7", ",", "8", ",", "9", ",", "10", ",", "11", ",", "12", ",", "13", ",", "14", ",", "15", ",", "16", ",", "17", ",", "18", ",", "19", ",", "20", ",", "21", ",", "22", ",", "23", ",", "24", ",", "25", ",", "26", ",", "1", ",", "2", ",", "3", ",", "4", ",", "5", ",", "27", ",", "28", ",", "29", ",", "30", ",", "31", ",", "32", ",", "33", ",", "34", ",", "35", ",", "36", ",", "37", ",", "38", ",", "39", ",", "40", ",", "41", ",", "42", ",", "43", ",", "44", ",", "45", ",", "46", ",", "47", ",", "48", ",", "49", ",", "50", ",", "51", ",", "52", ",", "53", ",", "54"}], "}"}]], "Output", CellChangeTimes->{3.574834505595405*^9, 3.5801424181024113`*^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.25618", ",", 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.18048", ",", RowBox[{"If", "[", RowBox[{ RowBox[{ RowBox[{"us", "[", RowBox[{"[", RowBox[{"i", ",", "1"}], "]"}], "]"}], "\[Equal]", "\"\\""}], ",", "0.48698"}], "]"}]}], "]"}]}], "]"}]}], "]"}]}], "]"}], ",", RowBox[{"{", RowBox[{"i", ",", "1", ",", "n"}], "}"}]}], "]"}]}]}], "Input", CellChangeTimes->{{3.5679480369450207`*^9, 3.567948069112277*^9}, { 3.5679486805553513`*^9, 3.5679487948723516`*^9}, 3.567950206581231*^9, { 3.5681216077716007`*^9, 3.5681216839309344`*^9}, {3.568266380090639*^9, 3.5682664108850937`*^9}, {3.568266481350417*^9, 3.56826649971165*^9}, 3.5682795170433135`*^9, {3.5682795636873956`*^9, 3.5682797843809834`*^9}, { 3.568279837187076*^9, 3.5682798459854913`*^9}, {3.568279877201146*^9, 3.568279880711152*^9}, {3.5682799570264864`*^9, 3.5682799599124913`*^9}, { 3.5683770044498715`*^9, 3.5683771523693314`*^9}, 3.5688133425788107`*^9, { 3.568814931192001*^9, 3.5688150075073347`*^9}, {3.5688765350957685`*^9, 3.5688765981198792`*^9}, {3.568876634452343*^9, 3.5688766352167444`*^9}, { 3.568894358551657*^9, 3.5688944054453397`*^9}, {3.568894522929146*^9, 3.5688945259087515`*^9}, {3.5688946101644993`*^9, 3.5688946171221113`*^9}, {3.568894651067771*^9, 3.568894651956972*^9}, 3.5688946827982264`*^9, {3.568894734527918*^9, 3.568894735495119*^9}, { 3.5688947726699843`*^9, 3.568894773496786*^9}, {3.5688948078948464`*^9, 3.568895097914956*^9}, {3.5689558039020233`*^9, 3.568955804619624*^9}, { 3.5689559169086213`*^9, 3.5689559179070234`*^9}, {3.5689559496998787`*^9, 3.568955950589081*^9}, {3.568956090817727*^9, 3.568956118273775*^9}, 3.5689561556982408`*^9, {3.5690814230317364`*^9, 3.5690814238897376`*^9}, { 3.569232478412421*^9, 3.5692324795356236`*^9}, {3.5692325096124763`*^9, 3.5692325115780797`*^9}, {3.5692325933846235`*^9, 3.569232594289425*^9}, { 3.569235467676072*^9, 3.5692354683780737`*^9}, {3.5692358857568064`*^9, 3.5692358867552085`*^9}, {3.569236173312112*^9, 3.569236174060913*^9}, { 3.569344745239445*^9, 3.569344781213108*^9}, {3.5693896312339673`*^9, 3.5693896351495743`*^9}, {3.5693896840088596`*^9, 3.5693896981112843`*^9}, {3.5693897680462074`*^9, 3.5693897743798184`*^9}, 3.570595843597315*^9, 3.5705958765133724`*^9, {3.5706006955110383`*^9, 3.57060069660304*^9}, {3.570600739659116*^9, 3.5706007402207165`*^9}, { 3.5706007784563837`*^9, 3.5706008313872766`*^9}, {3.5706008641161346`*^9, 3.5706008892321787`*^9}, 3.5706010214580107`*^9, {3.5706011135917726`*^9, 3.570601115058175*^9}, {3.5706011509850388`*^9, 3.5706011750714808`*^9}, { 3.5706012352719865`*^9, 3.570601260746831*^9}, 3.570856110868636*^9, 3.570856144034294*^9, 3.5708561753903494`*^9, {3.5708562115824127`*^9, 3.570856236261656*^9}, 3.5708568877188005`*^9, 3.570856960992129*^9, { 3.5708570022854013`*^9, 3.570857003424204*^9}, 3.5708574863854513`*^9, 3.570857676003785*^9, {3.570857720697863*^9, 3.570857774736358*^9}, { 3.570857815015629*^9, 3.570857815265229*^9}, {3.5708578488052883`*^9, 3.5708579513754683`*^9}, {3.5708579844319267`*^9, 3.570858009937971*^9}, { 3.5708583084132957`*^9, 3.570858421435494*^9}, {3.5727961392438684`*^9, 3.57279614016427*^9}, {3.572796215855603*^9, 3.5727962193812094`*^9}, { 3.5731452670909014`*^9, 3.573145275920517*^9}, {3.573366168242963*^9, 3.5733661753721757`*^9}, 3.573367679154417*^9, {3.5746744522844534`*^9, 3.574674453220455*^9}, 3.5746820022776895`*^9, {3.574682057033786*^9, 3.574682057704587*^9}, {3.574682089045042*^9, 3.574682170757985*^9}, 3.57468220769885*^9, {3.5746826561216383`*^9, 3.5746827960226836`*^9}, { 3.5747437628680496`*^9, 3.5747437640692515`*^9}, 3.5747437976249104`*^9, { 3.574743832756172*^9, 3.5747439364027543`*^9}, {3.57474397413922*^9, 3.5747439758396235`*^9}}], 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.178`", ",", "0.178`", ",", "0.178`", ",", "0.178`", ",", "0.178`", ",", "0.12`", ",", "0.12`", ",", "0.12`", ",", "0.12`", ",", "0.12`", ",", "0.12`", ",", "0.12`", ",", "0.12`", ",", "0.12`", ",", "0.12`", ",", "0.12`", ",", "0.12`", ",", "0.12`", ",", "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.574834505611005*^9, 3.5801424181180115`*^9}], Cell[BoxData[ RowBox[{"{", RowBox[{ "0.25618`", ",", "0.25618`", ",", "0.25618`", ",", "0.25618`", ",", "0.25618`", ",", "0.25618`", ",", "0.25618`", ",", "0.25618`", ",", "0.25618`", ",", "0.25618`", ",", "0.25618`", ",", "0.25618`", ",", "0.25618`", ",", "0.25618`", ",", "0.25618`", ",", "0.25618`", ",", "0.25618`", ",", "0.25618`", ",", "0.25618`", ",", "0.25618`", ",", "0.25618`", ",", "0.18048`", ",", "0.18048`", ",", "0.18048`", ",", "0.18048`", ",", "0.18048`", ",", "0.6`", ",", "0.6`", ",", "0.6`", ",", "0.6`", ",", "0.6`", ",", "0.6`", ",", "0.6`", ",", "0.6`", ",", "0.6`", ",", "0.6`", ",", "0.6`", ",", "0.6`", ",", "0.6`", ",", "0.6`", ",", "0.6`", ",", "0.6`", ",", "0.6`", ",", "0.6`", ",", "0.6`", ",", "0.6`", ",", "0.6`", ",", "0.6`", ",", "0.6`", ",", "0.6`", ",", "0.6`", ",", "0.6`", ",", "0.6`", ",", "0.6`"}], "}"}]], "Output", CellChangeTimes->{3.574834505611005*^9, 3.5801424181180115`*^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\"\>", ",", "\<\"O\"\>", ",", "\<\"O\"\>", ",", "\<\"O\"\>", ",", "\<\"O\"\>", ",", "\<\"O\"\>", ",", "\<\"H\"\>", ",", "\<\"H\"\>", ",", "\<\"H\"\>", ",", "\<\"H\"\>", ",", "\<\"H\"\>", ",", "\<\"H\"\>", ",", "\<\"H\"\>", ",", "\<\"H\"\>", ",", "\<\"H\"\>", ",", "\<\"H\"\>", ",", "\<\"H\"\>", ",", "\<\"H\"\>", ",", "\<\"H\"\>", ",", "\<\"H\"\>", ",", "\<\"H\"\>", ",", "\<\"H\"\>", ",", "\<\"H\"\>", ",", "\<\"H\"\>", ",", "\<\"H\"\>", ",", "\<\"H\"\>", ",", "\<\"H\"\>", ",", "\<\"H\"\>", ",", "\<\"H\"\>", ",", "\<\"H\"\>", ",", "\<\"H\"\>", ",", "\<\"H\"\>", ",", "\<\"H\"\>", ",", "\<\"H\"\>"}], "}"}]], "Output", CellChangeTimes->{3.574834505626605*^9, 3.5801424181336117`*^9}] }, Open ]], Cell[CellGroupData[{ Cell[BoxData[ RowBox[{"cn", "=", RowBox[{"Table", "[", RowBox[{ RowBox[{"If", "[", RowBox[{ RowBox[{ RowBox[{"u", "[", RowBox[{"[", "i", "]"}], "]"}], "\[Equal]", "\"\\""}], ",", "6.0", ",", RowBox[{"If", "[", RowBox[{ RowBox[{ RowBox[{"u", "[", RowBox[{"[", "i", "]"}], "]"}], "\[Equal]", "\"\\""}], ",", "1.0", ",", RowBox[{"If", "[", RowBox[{ RowBox[{ RowBox[{"u", "[", RowBox[{"[", "i", "]"}], "]"}], "\[Equal]", "\"\\""}], ",", "7.0", ",", RowBox[{"If", "[", RowBox[{ RowBox[{ RowBox[{"u", "[", RowBox[{"[", "i", "]"}], "]"}], "\[Equal]", "\"\\""}], ",", "8.0", ",", RowBox[{"If", "[", RowBox[{ RowBox[{ RowBox[{"u", "[", RowBox[{"[", "i", "]"}], "]"}], "\[Equal]", "\"\\""}], ",", "7.0"}], "]"}]}], "]"}]}], "]"}]}], "]"}]}], "]"}], ",", RowBox[{"{", RowBox[{"i", ",", "1", ",", "n"}], "}"}]}], "]"}]}]], "Input", CellChangeTimes->{{3.5688224161787477`*^9, 3.5688224173799496`*^9}, { 3.5688224905908785`*^9, 3.568822500434496*^9}, 3.5692358293003073`*^9, 3.5692358676919746`*^9, {3.569344570581538*^9, 3.5693446110324097`*^9}, 3.5733593979404716`*^9}], Cell[BoxData[ RowBox[{"{", RowBox[{ "6.`", ",", "6.`", ",", "6.`", ",", "6.`", ",", "6.`", ",", "6.`", ",", "6.`", ",", "6.`", ",", "6.`", ",", "6.`", ",", "6.`", ",", "6.`", ",", "6.`", ",", "6.`", ",", "6.`", ",", "6.`", ",", "6.`", ",", "6.`", ",", "6.`", ",", "6.`", ",", "6.`", ",", "8.`", ",", "8.`", ",", "8.`", ",", "8.`", ",", "8.`", ",", "1.`", ",", "1.`", ",", "1.`", ",", "1.`", ",", "1.`", ",", "1.`", ",", "1.`", ",", "1.`", ",", "1.`", ",", "1.`", ",", "1.`", ",", "1.`", ",", "1.`", ",", "1.`", ",", "1.`", ",", "1.`", ",", "1.`", ",", "1.`", ",", "1.`", ",", "1.`", ",", "1.`", ",", "1.`", ",", "1.`", ",", "1.`", ",", "1.`", ",", "1.`", ",", "1.`", ",", "1.`"}], "}"}]], "Output", CellChangeTimes->{3.574834505642205*^9, 3.580142418149212*^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["26"], "Output", CellChangeTimes->{3.574834505642205*^9, 3.5801424181648116`*^9}], Cell[BoxData["28"], "Output", CellChangeTimes->{3.574834505642205*^9, 3.5801424181648116`*^9}] }, Open ]], Cell[CellGroupData[{ Cell[BoxData[ RowBox[{ RowBox[{"ChemicalData", "\[NoBreak]", "[", RowBox[{"\"\\"", ",", "\"\\""}], "]"}], "\[IndentingNewLine]"}]], "Input", CellChangeTimes->{{3.5708566311295495`*^9, 3.5708566338907547`*^9}, 3.5709425310382767`*^9, 3.5730457925169635`*^9, 3.57466137224955*^9, 3.5747016121197433`*^9}], Cell[BoxData["\<\"C21H28O5\"\>"], "Output", CellChangeTimes->{3.5748345056578054`*^9, 3.5801424181648116`*^9}] }, Open ]], Cell[BoxData[{ RowBox[{ RowBox[{"DeleteFile", "[", " ", "\"\\"", "]"}], ";"}], "\[IndentingNewLine]", RowBox[{"For", "[", RowBox[{ RowBox[{"i", "=", "1"}], ",", RowBox[{"i", "<", RowBox[{"n", "+", "1"}]}], ",", RowBox[{"i", "++"}], ",", "\[IndentingNewLine]", RowBox[{ RowBox[{"{", RowBox[{ RowBox[{"u", "[", RowBox[{"[", "i", "]"}], "]"}], ",", RowBox[{"Extract", "[", RowBox[{"t1", ",", RowBox[{"{", "i", "}"}]}], "]"}]}], "}"}], ">>>", " ", "\"\\""}]}], "]"}]}], "Input", CellChangeTimes->{{3.567869377256353*^9, 3.5678694101568108`*^9}, { 3.5678695244894114`*^9, 3.56786953511303*^9}, 3.56786988243204*^9, 3.5678699252853155`*^9, {3.567870069179968*^9, 3.5678700766835814`*^9}, { 3.5678703216664114`*^9, 3.567870325738019*^9}, 3.5679271251072817`*^9, { 3.567942840466694*^9, 3.567942854381918*^9}, {3.567942932272855*^9, 3.567942950509287*^9}, 3.5679430681802936`*^9, {3.568278272060727*^9, 3.56827827391713*^9}, 3.5688732159559383`*^9, 3.568910867631465*^9, 3.5689997098549547`*^9, 3.5689998170427427`*^9, 3.5689998869620657`*^9, { 3.569059200815255*^9, 3.5690592031552596`*^9}, 3.5691460426137285`*^9, 3.569237204520723*^9, 3.569237465836782*^9, 3.56923802264856*^9, 3.5693403424181123`*^9, 3.569340450198702*^9, 3.569340738019207*^9, 3.569340852851009*^9, {3.5693411655067577`*^9, 3.5693411655067577`*^9}, 3.5693414976001415`*^9, {3.5693416978420925`*^9, 3.569341705314506*^9}, 3.569342614421703*^9, 3.5693435671777763`*^9, 3.569343662727944*^9, 3.5693437636289215`*^9, 3.5693440709750605`*^9, 3.5693442662562037`*^9, { 3.5702975520309644`*^9, 3.570297552764166*^9}, {3.5705591717487917`*^9, 3.5705591791432047`*^9}}], Cell[CellGroupData[{ Cell[BoxData[{ RowBox[{ RowBox[{"t", "=", RowBox[{"Table", "[", RowBox[{ RowBox[{"t1", "[", RowBox[{"[", RowBox[{"num", "[", RowBox[{"[", "i", "]"}], "]"}], "]"}], "]"}], ",", RowBox[{"{", RowBox[{"i", ",", "1", ",", "n"}], "}"}]}], "]"}]}], ";"}], "\[IndentingNewLine]", RowBox[{ RowBox[{"Plot1o", "=", RowBox[{"Table", "[", RowBox[{ RowBox[{"Graphics3D", "[", RowBox[{"{", RowBox[{ RowBox[{"Opacity", "[", "0.8", "]"}], ",", RowBox[{"If", "[", RowBox[{ RowBox[{ RowBox[{"u", "[", RowBox[{"[", "i", "]"}], "]"}], "\[Equal]", "\"\\""}], ",", RowBox[{"Lighter", "[", "Blue", "]"}], ",", RowBox[{"If", "[", RowBox[{ RowBox[{ RowBox[{"u", "[", RowBox[{"[", "i", "]"}], "]"}], "\[Equal]", "\"\\""}], ",", RowBox[{"Lighter", "[", "White", "]"}], ",", RowBox[{"If", "[", RowBox[{ RowBox[{ RowBox[{"u", "[", RowBox[{"[", "i", "]"}], "]"}], "\[Equal]", "\"\\""}], ",", RowBox[{"Lighter", "[", "Red", "]"}], ",", RowBox[{"If", "[", RowBox[{ RowBox[{ RowBox[{"u", "[", RowBox[{"[", "i", "]"}], "]"}], "\[Equal]", "\"\\""}], ",", RowBox[{"Lighter", "[", "Green", "]"}], ",", RowBox[{"If", "[", RowBox[{ RowBox[{ RowBox[{"u", "[", RowBox[{"[", "i", "]"}], "]"}], "\[Equal]", "\"\\""}], ",", RowBox[{"Lighter", "[", "Orange", "]"}], ",", RowBox[{"Darker", "[", "Brown", "]"}]}], "]"}]}], "]"}]}], "]"}]}], "]"}]}], "]"}], ",", RowBox[{"Sphere", "[", RowBox[{ RowBox[{"{", RowBox[{ RowBox[{"t", "[", RowBox[{"[", RowBox[{"i", ",", "1"}], "]"}], "]"}], ",", RowBox[{"t", "[", RowBox[{"[", RowBox[{"i", ",", "2"}], "]"}], "]"}], ",", RowBox[{"t", "[", RowBox[{"[", RowBox[{"i", ",", "3"}], "]"}], "]"}]}], "}"}], ",", RowBox[{"u1", "[", RowBox[{"[", "i", "]"}], "]"}]}], "]"}]}], "}"}], "]"}], ",", RowBox[{"{", RowBox[{"i", ",", "1", ",", "n"}], "}"}]}], "]"}]}], ";"}], "\[IndentingNewLine]", RowBox[{ RowBox[{ 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[{"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"}]}], "}"}]}], "]"}], "*)"}]}], "\[IndentingNewLine]", RowBox[{"ChemicalData", "\[NoBreak]", "[", RowBox[{"\"\\"", ",", "\"\\""}], "]"}]}], "Input", CellChangeTimes->{{3.567869377256353*^9, 3.567869394073182*^9}, { 3.5678694248832364`*^9, 3.5678694526200852`*^9}, {3.5678694891241493`*^9, 3.5678694955045605`*^9}, {3.567869596046737*^9, 3.567869602645549*^9}, 3.56786971175214*^9, {3.5678697908910794`*^9, 3.567869798800293*^9}, { 3.5679434548425727`*^9, 3.5679434621121855`*^9}, 3.568011875875622*^9, 3.56811435956207*^9, {3.5682782821071444`*^9, 3.5682782839479475`*^9}, { 3.5688205455482616`*^9, 3.5688206262784038`*^9}, 3.5688208026055136`*^9, 3.5688732159559383`*^9, 3.568910867631465*^9, {3.5689830694736805`*^9, 3.568983072687286*^9}, {3.5725833074418383`*^9, 3.5725833223398647`*^9}, { 3.572583642982828*^9, 3.572583671421678*^9}, {3.572584036290719*^9, 3.5725840766323895`*^9}, {3.572584986320788*^9, 3.572585000719613*^9}, { 3.572585104865396*^9, 3.5725851158790154`*^9}, 3.5726667135591345`*^9, { 3.5727958552609696`*^9, 3.5727958810478153`*^9}, {3.5727959717619743`*^9, 3.5727959736963778`*^9}, {3.572796004615632*^9, 3.572796064270137*^9}, 3.5733691180073442`*^9, {3.5747381333641615`*^9, 3.5747381348149643`*^9}}], Cell[BoxData[ GraphicsBox[{{ {GrayLevel[0], AbsoluteThickness[0.55], InsetBox[ StyleBox["\<\"O\"\>", StripOnInput->False, ScriptSizeMultipliers->0.8, ScriptMinSize->8, FontSize->Scaled[0.009513935476001722], FontWeight->Plain], {803.19, 186.25}], LineBox[{{808.4145003157338, 192.03126087379724`}, {823.975, 209.25}}], {GrayLevel[0], InsetBox[ StyleBox["\<\"H\"\>", StripOnInput->False, ScriptSizeMultipliers->0.8, ScriptMinSize->8, FontSize->Scaled[0.009513935476001722], FontWeight->Plain], {844.76, 232.24999999999997`}], LineBox[{{823.975, 209.25}, {840.0532429587985, 227.04165687045293`}}]}}, {GrayLevel[0], AbsoluteThickness[0.55], InsetBox[ StyleBox["\<\"O\"\>", StripOnInput->False, ScriptSizeMultipliers->0.8, ScriptMinSize->8, FontSize->Scaled[0.009513935476001722], FontWeight->Plain], {479.5, 110.62}], LineBox[{{{488.74819366189365`, 111.05381428297132`}, {525.3, 89.95}}, {{ 483.74819366189365`, 102.39381428297132`}, {520.3, 81.29}}}], {GrayLevel[0], InsetBox[ StyleBox["\<\"C\"\>", StripOnInput->False, ScriptSizeMultipliers->0.8, ScriptMinSize->8, FontSize->Scaled[0.009513935476001722], FontWeight->Plain], {566.0999999999999, 60.62}], LineBox[{{{525.3, 89.95}, {562.5205462505462, 68.46007722254835}}, {{ 520.3, 81.29}, {557.5205462505462, 59.80007722254836}}}]}}, {GrayLevel[0], AbsoluteThickness[0.55], InsetBox[ StyleBox["\<\"O\"\>", StripOnInput->False, ScriptSizeMultipliers->0.8, ScriptMinSize->8, FontSize->Scaled[0.009513935476001722], FontWeight->Plain], {904.65, 249.2}], LineBox[{{{910.4245397901176, 241.96308288686762`}, {914.7634999999999, 199.979}}, {{900.4775397901177, 240.9350828868676}, {904.8165, 198.951}}}], {GrayLevel[0], InsetBox[ StyleBox["\<\"C\"\>", StripOnInput->False, ScriptSizeMultipliers->0.8, ScriptMinSize->8, FontSize->Scaled[0.009513935476001722], FontWeight->Plain], {914.9300000000001, 149.73000000000002`}], LineBox[{{{914.7634999999999, 199.979}, {919.1818425314256, 157.2268082100292}}, {{904.8165, 198.951}, {909.2348425314257, 156.19880821002917`}}}]}}, {GrayLevel[0], AbsoluteThickness[0.55], InsetBox[ StyleBox["\<\"O\"\>", StripOnInput->False, ScriptSizeMultipliers->0.8, ScriptMinSize->8, FontSize->Scaled[0.009513935476001722], FontWeight->Plain], {1087.22, 167.54}], LineBox[{{1080.9082074164253`, 162.97057386295276`}, {1046.72, 138.22}}], {GrayLevel[0], InsetBox[ StyleBox["\<\"C\"\>", StripOnInput->False, ScriptSizeMultipliers->0.8, ScriptMinSize->8, FontSize->Scaled[0.009513935476001722], FontWeight->Plain], {1006.22, 108.89999999999999`}], LineBox[{{1046.72, 138.22}, {1011.9062996248422`, 113.01660012346596`}}]}}, {GrayLevel[0], AbsoluteThickness[0.55], InsetBox[ StyleBox["\<\"O\"\>", StripOnInput->False, ScriptSizeMultipliers->0.8, ScriptMinSize->8, FontSize->Scaled[0.009513935476001722], FontWeight->Plain], {1087.22, 167.54}], LineBox[{{1094.3329116922807`, 164.3580402111564}, {1115.52, 154.88}}], {GrayLevel[0], InsetBox[ StyleBox["\<\"H\"\>", StripOnInput->False, ScriptSizeMultipliers->0.8, ScriptMinSize->8, FontSize->Scaled[0.009513935476001722], FontWeight->Plain], {1143.82, 142.22}], LineBox[{{1115.52, 154.88}, {1137.4119714483957`, 145.0866304403996}}]}}, {GrayLevel[0], AbsoluteThickness[0.55], InsetBox[ StyleBox["\<\"O\"\>", StripOnInput->False, ScriptSizeMultipliers->0.8, ScriptMinSize->8, FontSize->Scaled[0.009513935476001722], FontWeight->Plain], {200., -244.62}], LineBox[{{{204.27948124495325`, -236.41003936586213`}, { 240.91150000000002`, -215.44549999999998`}}, {{ 209.24648124495323`, -245.0890393658621}, {245.8785, -224.1245}}}], {GrayLevel[0], InsetBox[ StyleBox["\<\"C\"\>", StripOnInput->False, ScriptSizeMultipliers->0.8, ScriptMinSize->8, FontSize->Scaled[0.009513935476001722], FontWeight->Plain], {286.79, -194.95}], LineBox[{{{240.91150000000002`, -215.44549999999998`}, { 278.21372410364575`, -194.09740147219628`}}, {{245.8785, -224.1245}, { 283.18072410364573`, -202.77640147219628`}}}]}}, {GrayLevel[0], AbsoluteThickness[0.55], InsetBox[ StyleBox["\<\"C\"\>", StripOnInput->False, ScriptSizeMultipliers->0.8, ScriptMinSize->8, FontSize->Scaled[0.009513935476001722], FontWeight->Plain], {739.31, -39.379999999999995`}], LineBox[{{739.31, -32.359999999999985`}, {739.31, 10.620000000000001`}}], {GrayLevel[0], InsetBox[ StyleBox["\<\"C\"\>", StripOnInput->False, ScriptSizeMultipliers->0.8, ScriptMinSize->8, FontSize->Scaled[0.009513935476001722], FontWeight->Plain], {739.31, 60.62}], LineBox[{{739.31, 10.620000000000001`}, {739.31, 53.59999999999999}}]}}, {GrayLevel[0], AbsoluteThickness[0.55], InsetBox[ StyleBox["\<\"C\"\>", StripOnInput->False, ScriptSizeMultipliers->0.8, ScriptMinSize->8, FontSize->Scaled[0.009513935476001722], FontWeight->Plain], {739.31, -39.379999999999995`}], LineBox[{{733.2305462505462, -42.890077222548356`}, {696.01, -64.38}}], {GrayLevel[0], InsetBox[ StyleBox["\<\"C\"\>", StripOnInput->False, ScriptSizeMultipliers->0.8, ScriptMinSize->8, FontSize->Scaled[0.009513935476001722], FontWeight->Plain], {652.71, -89.38000000000001}], LineBox[{{696.01, -64.38}, {658.7894537494537, -85.86992277745165}}]}}, {GrayLevel[0], AbsoluteThickness[0.55], InsetBox[ StyleBox["\<\"C\"\>", StripOnInput->False, ScriptSizeMultipliers->0.8, ScriptMinSize->8, FontSize->Scaled[0.009513935476001722], FontWeight->Plain], {739.31, -39.379999999999995`}], LineBox[{{745.9918725063208, -41.532435785168644`}, { 786.6199999999999, -54.62}}], {GrayLevel[0], InsetBox[ StyleBox["\<\"C\"\>", StripOnInput->False, ScriptSizeMultipliers->0.8, ScriptMinSize->8, FontSize->Scaled[0.009513935476001722], FontWeight->Plain], {833.93, -69.86}], LineBox[{{786.6199999999999, -54.62}, { 827.2481274936791, -67.70756421483135}}]}}, {GrayLevel[0], AbsoluteThickness[0.55], InsetBox[ StyleBox["\<\"C\"\>", StripOnInput->False, ScriptSizeMultipliers->0.8, ScriptMinSize->8, FontSize->Scaled[0.009513935476001722], FontWeight->Plain], {739.31, -39.379999999999995`}], LineBox[{{740.0523781019291, -46.360635698399975`}, {743.54, -79.155}}], {GrayLevel[0], InsetBox[ StyleBox["\<\"H\"\>", StripOnInput->False, ScriptSizeMultipliers->0.8, ScriptMinSize->8, FontSize->Scaled[0.009513935476001722], FontWeight->Plain], {747.77, -118.93}], LineBox[{{743.54, -79.155}, { 747.0276218980708, -111.94936430160003`}}]}}, {GrayLevel[0], AbsoluteThickness[0.55], InsetBox[ StyleBox["\<\"C\"\>", StripOnInput->False, ScriptSizeMultipliers->0.8, ScriptMinSize->8, FontSize->Scaled[0.009513935476001722], FontWeight->Plain], {739.31, 60.62}], LineBox[{{745.9920785779702, 62.771795965660054`}, {786.6199999999999, 75.855}}], {GrayLevel[0], InsetBox[ StyleBox["\<\"C\"\>", StripOnInput->False, ScriptSizeMultipliers->0.8, ScriptMinSize->8, FontSize->Scaled[0.009513935476001722], FontWeight->Plain], {833.93, 91.09}], LineBox[{{786.6199999999999, 75.855}, {827.2479214220297, 88.93820403433995}}]}}, {GrayLevel[0], AbsoluteThickness[0.55], InsetBox[ StyleBox["\<\"C\"\>", StripOnInput->False, ScriptSizeMultipliers->0.8, ScriptMinSize->8, FontSize->Scaled[0.009513935476001722], FontWeight->Plain], {739.31, 60.62}], LineBox[{{733.2305462505462, 64.13007722254837}, {696.01, 85.62}}], {GrayLevel[0], InsetBox[ StyleBox["\<\"C\"\>", StripOnInput->False, ScriptSizeMultipliers->0.8, ScriptMinSize->8, FontSize->Scaled[0.009513935476001722], FontWeight->Plain], {652.71, 110.62}], LineBox[{{696.01, 85.62}, {658.7894537494537, 107.10992277745164`}}]}}, {GrayLevel[0], AbsoluteThickness[0.55], InsetBox[ StyleBox["\<\"C\"\>", StripOnInput->False, ScriptSizeMultipliers->0.8, ScriptMinSize->8, FontSize->Scaled[0.009513935476001722], FontWeight->Plain], {739.31, 60.62}], LineBox[{{739.31, 67.64000000000001}, {739.31, 110.62}}], {GrayLevel[0], InsetBox[ StyleBox["\<\"C\"\>", StripOnInput->False, ScriptSizeMultipliers->0.8, ScriptMinSize->8, FontSize->Scaled[0.009513935476001722], FontWeight->Plain], {739.31, 160.62}], LineBox[{{739.31, 110.62}, {739.31, 153.6}}]}}, {GrayLevel[0], AbsoluteThickness[0.55], InsetBox[ StyleBox["\<\"C\"\>", StripOnInput->False, ScriptSizeMultipliers->0.8, ScriptMinSize->8, FontSize->Scaled[0.009513935476001722], FontWeight->Plain], {652.71, -89.38000000000001}], LineBox[{{646.6303707617602, -85.87022674157728}, {609.405, -64.38}}], {GrayLevel[0], InsetBox[ StyleBox["\<\"C\"\>", StripOnInput->False, ScriptSizeMultipliers->0.8, ScriptMinSize->8, FontSize->Scaled[0.009513935476001722], FontWeight->Plain], {566.0999999999999, -39.379999999999995`}], LineBox[{{609.405, -64.38}, {572.1796292382397, -42.88977325842272}}]}}, {GrayLevel[0], AbsoluteThickness[0.55], InsetBox[ StyleBox["\<\"C\"\>", StripOnInput->False, ScriptSizeMultipliers->0.8, ScriptMinSize->8, FontSize->Scaled[0.009513935476001722], FontWeight->Plain], {652.71, -89.38000000000001}], LineBox[{{652.8178317314434, -96.39917176864152}, {653.51, -141.455}}], {GrayLevel[0], InsetBox[ StyleBox["\<\"C\"\>", StripOnInput->False, ScriptSizeMultipliers->0.8, ScriptMinSize->8, FontSize->Scaled[0.009513935476001722], FontWeight->Plain], {654.31, -193.53}], LineBox[{{653.51, -141.455}, { 654.2021682685565, -186.5108282313585}}]}}, {GrayLevel[0], AbsoluteThickness[0.55], InsetBox[ StyleBox["\<\"C\"\>", StripOnInput->False, ScriptSizeMultipliers->0.8, ScriptMinSize->8, FontSize->Scaled[0.009513935476001722], FontWeight->Plain], {652.71, -89.38000000000001}], LineBox[{{658.815999301348, -92.84369348123323}, { 687.5, -109.11500000000001`}}], {GrayLevel[0], InsetBox[ StyleBox["\<\"H\"\>", StripOnInput->False, ScriptSizeMultipliers->0.8, ScriptMinSize->8, FontSize->Scaled[0.009513935476001722], FontWeight->Plain], {722.29, -128.85}], LineBox[{{687.5, -109.11500000000001`}, { 716.184000698652, -125.38630651876679`}}]}}, {GrayLevel[0], AbsoluteThickness[0.55], InsetBox[ StyleBox["\<\"C\"\>", StripOnInput->False, ScriptSizeMultipliers->0.8, ScriptMinSize->8, FontSize->Scaled[0.009513935476001722], FontWeight->Plain], {566.0999999999999, -39.379999999999995`}], LineBox[{{559.9672662963422, -42.79613485097148}, { 520.5999999999999, -64.725}}], {GrayLevel[0], InsetBox[ StyleBox["\<\"C\"\>", StripOnInput->False, ScriptSizeMultipliers->0.8, ScriptMinSize->8, FontSize->Scaled[0.009513935476001722], FontWeight->Plain], {475.1, -90.07}], LineBox[{{520.5999999999999, -64.725}, { 481.23273370365763`, -86.6538651490285}}]}}, {GrayLevel[0], AbsoluteThickness[0.55], InsetBox[ StyleBox["\<\"C\"\>", StripOnInput->False, ScriptSizeMultipliers->0.8, ScriptMinSize->8, FontSize->Scaled[0.009513935476001722], FontWeight->Plain], {566.0999999999999, -39.379999999999995`}], LineBox[{{566.0999999999999, -32.359999999999985`}, {566.0999999999999, 10.620000000000001`}}], {GrayLevel[0], InsetBox[ StyleBox["\<\"C\"\>", StripOnInput->False, ScriptSizeMultipliers->0.8, ScriptMinSize->8, FontSize->Scaled[0.009513935476001722], FontWeight->Plain], {566.0999999999999, 60.62}], LineBox[{{566.0999999999999, 10.620000000000001`}, {566.0999999999999, 53.59999999999999}}]}}, {GrayLevel[0], AbsoluteThickness[0.55], InsetBox[ StyleBox["\<\"C\"\>", StripOnInput->False, ScriptSizeMultipliers->0.8, ScriptMinSize->8, FontSize->Scaled[0.009513935476001722], FontWeight->Plain], {566.0999999999999, -39.379999999999995`}], LineBox[{{572.179673103313, -35.87030272575374}, { 600.7449999999999, -19.38}}], {GrayLevel[0], InsetBox[ StyleBox["\<\"H\"\>", StripOnInput->False, ScriptSizeMultipliers->0.8, ScriptMinSize->8, FontSize->Scaled[0.009513935476001722], FontWeight->Plain], {635.39, 0.62}], LineBox[{{600.7449999999999, -19.38}, { 629.3103268966869, -2.8896972742462514`}}]}}, {GrayLevel[0], AbsoluteThickness[0.55], InsetBox[ StyleBox["\<\"C\"\>", StripOnInput->False, ScriptSizeMultipliers->0.8, ScriptMinSize->8, FontSize->Scaled[0.009513935476001722], FontWeight->Plain], {833.93, 91.09}], LineBox[{{831.7720922661825, 97.77010735035982}, {818.56, 138.67000000000002`}}], {GrayLevel[0], InsetBox[ StyleBox["\<\"O\"\>", StripOnInput->False, ScriptSizeMultipliers->0.8, ScriptMinSize->8, FontSize->Scaled[0.009513935476001722], FontWeight->Plain], {803.19, 186.25}], LineBox[{{818.56, 138.67000000000002`}, {805.5852775845373, 178.8350808411006}}]}}, {GrayLevel[0], AbsoluteThickness[0.55], InsetBox[ StyleBox["\<\"C\"\>", StripOnInput->False, ScriptSizeMultipliers->0.8, ScriptMinSize->8, FontSize->Scaled[0.009513935476001722], FontWeight->Plain], {833.93, 91.09}], LineBox[{{838.0514033729694, 85.40718078439261}, {863.11, 50.855000000000004`}}], {GrayLevel[0], InsetBox[ StyleBox["\<\"C\"\>", StripOnInput->False, ScriptSizeMultipliers->0.8, ScriptMinSize->8, FontSize->Scaled[0.009513935476001722], FontWeight->Plain], {892.2900000000001, 10.620000000000001`}], LineBox[{{863.11, 50.855000000000004`}, {888.1685966270306, 16.30281921560739}}]}}, {GrayLevel[0], AbsoluteThickness[0.55], InsetBox[ StyleBox["\<\"C\"\>", StripOnInput->False, ScriptSizeMultipliers->0.8, ScriptMinSize->8, FontSize->Scaled[0.009513935476001722], FontWeight->Plain], {833.93, 91.09}], LineBox[{{839.6162996248421, 95.20660012346598}, {874.4300000000001, 120.41000000000001`}}], {GrayLevel[0], InsetBox[ StyleBox["\<\"C\"\>", StripOnInput->False, ScriptSizeMultipliers->0.8, ScriptMinSize->8, FontSize->Scaled[0.009513935476001722], FontWeight->Plain], {914.9300000000001, 149.73000000000002`}], LineBox[{{874.4300000000001, 120.41000000000001`}, {909.2437003751579, 145.61339987653403`}}]}}, {GrayLevel[0], AbsoluteThickness[0.55], InsetBox[ StyleBox["\<\"C\"\>", StripOnInput->False, ScriptSizeMultipliers->0.8, ScriptMinSize->8, FontSize->Scaled[0.009513935476001722], FontWeight->Plain], {475.1, -90.07}], LineBox[{{475.0460845395205, -97.089792954434}, { 474.70000000000005`, -142.14999999999998`}}], {GrayLevel[0], InsetBox[ StyleBox["\<\"C\"\>", StripOnInput->False, ScriptSizeMultipliers->0.8, ScriptMinSize->8, FontSize->Scaled[0.009513935476001722], FontWeight->Plain], {474.3, -194.23}], LineBox[{{474.70000000000005`, -142.14999999999998`}, { 474.3539154604795, -187.21020704556597`}}]}}, {GrayLevel[0], AbsoluteThickness[0.55], InsetBox[ StyleBox["\<\"C\"\>", StripOnInput->False, ScriptSizeMultipliers->0.8, ScriptMinSize->8, FontSize->Scaled[0.009513935476001722], FontWeight->Plain], {475.1, -90.07}], LineBox[{{469.10341369472576`, -86.42015717004183}, { 428.76, -61.864999999999995`}}], {GrayLevel[0], InsetBox[ StyleBox["\<\"C\"\>", StripOnInput->False, ScriptSizeMultipliers->0.8, ScriptMinSize->8, FontSize->Scaled[0.009513935476001722], FontWeight->Plain], {382.41999999999996`, -33.660000000000004`}], LineBox[{{428.76, -61.864999999999995`}, { 388.4165863052742, -37.309842829958164`}}]}}, {GrayLevel[0], AbsoluteThickness[0.55], InsetBox[ StyleBox["\<\"C\"\>", StripOnInput->False, ScriptSizeMultipliers->0.8, ScriptMinSize->8, FontSize->Scaled[0.009513935476001722], FontWeight->Plain], {475.1, -90.07}], LineBox[{{475.15405239764044`, -83.05020809864641}, { 475.485, -40.06999999999999}}], {GrayLevel[0], InsetBox[ StyleBox["\<\"C\"\>", StripOnInput->False, ScriptSizeMultipliers->0.8, ScriptMinSize->8, FontSize->Scaled[0.009513935476001722], FontWeight->Plain], {475.87, 9.93}], LineBox[{{475.485, -40.06999999999999}, {475.8159476023596, 2.9102080986464083`}}]}}, {GrayLevel[0], AbsoluteThickness[0.55], InsetBox[ StyleBox["\<\"C\"\>", StripOnInput->False, ScriptSizeMultipliers->0.8, ScriptMinSize->8, FontSize->Scaled[0.009513935476001722], FontWeight->Plain], {833.93, -69.86}], LineBox[{{838.0510677601735, -64.17693739995255}, { 863.11, -29.619999999999997`}}], {GrayLevel[0], InsetBox[ StyleBox["\<\"C\"\>", StripOnInput->False, ScriptSizeMultipliers->0.8, ScriptMinSize->8, FontSize->Scaled[0.009513935476001722], FontWeight->Plain], {892.2900000000001, 10.620000000000001`}], LineBox[{{863.11, -29.619999999999997`}, {888.1689322398265, 4.936937399952554}}]}}, {GrayLevel[0], AbsoluteThickness[0.55], InsetBox[ StyleBox["\<\"C\"\>", StripOnInput->False, ScriptSizeMultipliers->0.8, ScriptMinSize->8, FontSize->Scaled[0.009513935476001722], FontWeight->Plain], {833.93, -69.86}], LineBox[{{840.0147279292023, -73.36092645275284}, {860.8, -85.32}}], {GrayLevel[0], InsetBox[ StyleBox["\<\"H\"\>", StripOnInput->False, ScriptSizeMultipliers->0.8, ScriptMinSize->8, FontSize->Scaled[0.009513935476001722], FontWeight->Plain], {887.67, -100.78}], LineBox[{{860.8, -85.32}, {881.5852720707976, -97.27907354724715}}]}}, {GrayLevel[0], AbsoluteThickness[0.55], InsetBox[ StyleBox["\<\"C\"\>", StripOnInput->False, ScriptSizeMultipliers->0.8, ScriptMinSize->8, FontSize->Scaled[0.009513935476001722], FontWeight->Plain], {833.93, -69.86}], LineBox[{{831.0879457899854, -76.27896626158281}, { 821.38, -98.20500000000001}}], {GrayLevel[0], InsetBox[ StyleBox["\<\"H\"\>", StripOnInput->False, ScriptSizeMultipliers->0.8, ScriptMinSize->8, FontSize->Scaled[0.009513935476001722], FontWeight->Plain], {808.83, -126.55000000000001`}], LineBox[{{821.38, -98.20500000000001}, { 811.6720542100146, -120.1310337384172}}]}}, {GrayLevel[0], AbsoluteThickness[0.55], InsetBox[ StyleBox["\<\"C\"\>", StripOnInput->False, ScriptSizeMultipliers->0.8, ScriptMinSize->8, FontSize->Scaled[0.009513935476001722], FontWeight->Plain], {652.71, 110.62}], LineBox[{{646.6303707617602, 107.11022674157728`}, {609.405, 85.62}}], {GrayLevel[0], InsetBox[ StyleBox["\<\"C\"\>", StripOnInput->False, ScriptSizeMultipliers->0.8, ScriptMinSize->8, FontSize->Scaled[0.009513935476001722], FontWeight->Plain], {566.0999999999999, 60.62}], LineBox[{{609.405, 85.62}, {572.1796292382397, 64.12977325842272}}]}}, {GrayLevel[0], AbsoluteThickness[0.55], InsetBox[ StyleBox["\<\"C\"\>", StripOnInput->False, ScriptSizeMultipliers->0.8, ScriptMinSize->8, FontSize->Scaled[0.009513935476001722], FontWeight->Plain], {652.71, 110.62}], LineBox[{{648.1968896221523, 115.99700983050647`}, {632.78, 134.365}}], {GrayLevel[0], InsetBox[ StyleBox["\<\"H\"\>", StripOnInput->False, ScriptSizeMultipliers->0.8, ScriptMinSize->8, FontSize->Scaled[0.009513935476001722], FontWeight->Plain], {612.85, 158.10999999999999`}], LineBox[{{632.78, 134.365}, {617.3631103778478, 152.7329901694935}}]}}, {GrayLevel[0], AbsoluteThickness[0.55], InsetBox[ StyleBox["\<\"C\"\>", StripOnInput->False, ScriptSizeMultipliers->0.8, ScriptMinSize->8, FontSize->Scaled[0.009513935476001722], FontWeight->Plain], {652.71, 110.62}], LineBox[{{657.2224460022893, 115.99756739394529`}, {672.635, 134.365}}], {GrayLevel[0], InsetBox[ StyleBox["\<\"H\"\>", StripOnInput->False, ScriptSizeMultipliers->0.8, ScriptMinSize->8, FontSize->Scaled[0.009513935476001722], FontWeight->Plain], {692.5600000000001, 158.10999999999999`}], LineBox[{{672.635, 134.365}, {688.0475539977108, 152.73243260605472`}}]}}, {GrayLevel[0], AbsoluteThickness[0.55], InsetBox[ StyleBox["\<\"C\"\>", StripOnInput->False, ScriptSizeMultipliers->0.8, ScriptMinSize->8, FontSize->Scaled[0.009513935476001722], FontWeight->Plain], {892.2900000000001, 10.620000000000001`}], LineBox[{{897.5085441587086, 15.315444266904816`}, {915.335, 31.355000000000004`}}], {GrayLevel[0], InsetBox[ StyleBox["\<\"H\"\>", StripOnInput->False, ScriptSizeMultipliers->0.8, ScriptMinSize->8, FontSize->Scaled[0.009513935476001722], FontWeight->Plain], {938.3800000000001, 52.09}], LineBox[{{915.335, 31.355000000000004`}, {933.1614558412916, 47.3945557330952}}]}}, {GrayLevel[0], AbsoluteThickness[0.55], InsetBox[ StyleBox["\<\"C\"\>", StripOnInput->False, ScriptSizeMultipliers->0.8, ScriptMinSize->8, FontSize->Scaled[0.009513935476001722], FontWeight->Plain], {892.2900000000001, 10.620000000000001`}], LineBox[{{897.5079811999728, 5.923930132895017}, {915.335, -10.12}}], {GrayLevel[0], InsetBox[ StyleBox["\<\"H\"\>", StripOnInput->False, ScriptSizeMultipliers->0.8, ScriptMinSize->8, FontSize->Scaled[0.009513935476001722], FontWeight->Plain], {938.3800000000001, -30.86}], LineBox[{{915.335, -10.12}, { 933.1620188000273, -26.163930132895025`}}]}}, {GrayLevel[0], AbsoluteThickness[0.55], InsetBox[ StyleBox["\<\"C\"\>", StripOnInput->False, ScriptSizeMultipliers->0.8, ScriptMinSize->8, FontSize->Scaled[0.009513935476001722], FontWeight->Plain], {654.31, -193.53}], LineBox[{{648.2579401402165, -197.0871015523315}, {609.41, -219.92}}], {GrayLevel[0], InsetBox[ StyleBox["\<\"C\"\>", StripOnInput->False, ScriptSizeMultipliers->0.8, ScriptMinSize->8, FontSize->Scaled[0.009513935476001722], FontWeight->Plain], {564.51, -246.30999999999997`}], LineBox[{{609.41, -219.92}, { 570.5620598597834, -242.75289844766849`}}]}}, {GrayLevel[0], AbsoluteThickness[0.55], InsetBox[ StyleBox["\<\"C\"\>", StripOnInput->False, ScriptSizeMultipliers->0.8, ScriptMinSize->8, FontSize->Scaled[0.009513935476001722], FontWeight->Plain], {654.31, -193.53}], LineBox[{{661.207134006062, -192.222352301871}, {684.77, -187.755}}], {GrayLevel[0], InsetBox[ StyleBox["\<\"H\"\>", StripOnInput->False, ScriptSizeMultipliers->0.8, ScriptMinSize->8, FontSize->Scaled[0.009513935476001722], FontWeight->Plain], {715.23, -181.98000000000002`}], LineBox[{{684.77, -187.755}, { 708.332865993938, -183.28764769812898`}}]}}, {GrayLevel[0], AbsoluteThickness[0.55], InsetBox[ StyleBox["\<\"C\"\>", StripOnInput->False, ScriptSizeMultipliers->0.8, ScriptMinSize->8, FontSize->Scaled[0.009513935476001722], FontWeight->Plain], {654.31, -193.53}], LineBox[{{656.7783605952321, -200.10172701593007`}, {665.21, -222.55}}], {GrayLevel[0], InsetBox[ StyleBox["\<\"H\"\>", StripOnInput->False, ScriptSizeMultipliers->0.8, ScriptMinSize->8, FontSize->Scaled[0.009513935476001722], FontWeight->Plain], {676.11, -251.57}], LineBox[{{665.21, -222.55}, { 673.6416394047678, -244.99827298406993`}}]}}, {GrayLevel[0], AbsoluteThickness[0.55], InsetBox[ StyleBox["\<\"C\"\>", StripOnInput->False, ScriptSizeMultipliers->0.8, ScriptMinSize->8, FontSize->Scaled[0.009513935476001722], FontWeight->Plain], {739.31, 160.62}], LineBox[{{732.29, 160.62}, {708.31, 160.62}}], {GrayLevel[0], InsetBox[ StyleBox["\<\"H\"\>", StripOnInput->False, ScriptSizeMultipliers->0.8, ScriptMinSize->8, FontSize->Scaled[0.009513935476001722], FontWeight->Plain], {677.3100000000001, 160.62}], LineBox[{{708.31, 160.62}, {684.33, 160.62}}]}}, {GrayLevel[0], AbsoluteThickness[0.55], InsetBox[ StyleBox["\<\"C\"\>", StripOnInput->False, ScriptSizeMultipliers->0.8, ScriptMinSize->8, FontSize->Scaled[0.009513935476001722], FontWeight->Plain], {739.31, 160.62}], LineBox[{{739.31, 167.64000000000001`}, {739.31, 191.62}}], {GrayLevel[0], InsetBox[ StyleBox["\<\"H\"\>", StripOnInput->False, ScriptSizeMultipliers->0.8, ScriptMinSize->8, FontSize->Scaled[0.009513935476001722], FontWeight->Plain], {739.31, 222.62}], LineBox[{{739.31, 191.62}, {739.31, 215.6}}]}}, {GrayLevel[0], AbsoluteThickness[0.55], InsetBox[ StyleBox["\<\"C\"\>", StripOnInput->False, ScriptSizeMultipliers->0.8, ScriptMinSize->8, FontSize->Scaled[0.009513935476001722], FontWeight->Plain], {739.31, 160.62}], LineBox[{{746.3299999999999, 160.62}, {770.31, 160.62}}], {GrayLevel[0], InsetBox[ StyleBox["\<\"H\"\>", StripOnInput->False, ScriptSizeMultipliers->0.8, ScriptMinSize->8, FontSize->Scaled[0.009513935476001722], FontWeight->Plain], {801.31, 160.62}], LineBox[{{770.31, 160.62}, {794.29, 160.62}}]}}, {GrayLevel[0], AbsoluteThickness[0.55], InsetBox[ StyleBox["\<\"C\"\>", StripOnInput->False, ScriptSizeMultipliers->0.8, ScriptMinSize->8, FontSize->Scaled[0.009513935476001722], FontWeight->Plain], {474.3, -194.23}], LineBox[{{480.3795791032389, -197.73986010083894`}, { 519.405, -220.26999999999998`}}], {GrayLevel[0], InsetBox[ StyleBox["\<\"C\"\>", StripOnInput->False, ScriptSizeMultipliers->0.8, ScriptMinSize->8, FontSize->Scaled[0.009513935476001722], FontWeight->Plain], {564.51, -246.30999999999997`}], LineBox[{{519.405, -220.26999999999998`}, { 558.4304208967611, -242.80013989916102`}}]}}, {GrayLevel[0], AbsoluteThickness[0.55], InsetBox[ StyleBox["\<\"C\"\>", StripOnInput->False, ScriptSizeMultipliers->0.8, ScriptMinSize->8, FontSize->Scaled[0.009513935476001722], FontWeight->Plain], {474.3, -194.23}], LineBox[{{{470.9962087458217, -202.4637078281182}, { 430.27849999999995`, -226.39199999999997`}}, {{ 465.49920874582176`, -193.10970782811822`}, { 424.7815, -217.03799999999998`}}}], {GrayLevel[0], InsetBox[ StyleBox["\<\"C\"\>", StripOnInput->False, ScriptSizeMultipliers->0.8, ScriptMinSize->8, FontSize->Scaled[0.009513935476001722], FontWeight->Plain], {380.76, -249.2}], LineBox[{{{430.27849999999995`, -226.39199999999997`}, { 389.56079125417824`, -250.32029217188176`}}, {{ 424.7815, -217.03799999999998`}, { 384.0637912541783, -240.96629217188178`}}}]}}, {GrayLevel[0], AbsoluteThickness[0.55], InsetBox[ StyleBox["\<\"C\"\>", StripOnInput->False, ScriptSizeMultipliers->0.8, ScriptMinSize->8, FontSize->Scaled[0.009513935476001722], FontWeight->Plain], {564.51, -246.30999999999997`}], LineBox[{{560.0116749797123, -251.6993851237274}, { 544.645, -270.10999999999996`}}], {GrayLevel[0], InsetBox[ StyleBox["\<\"H\"\>", StripOnInput->False, ScriptSizeMultipliers->0.8, ScriptMinSize->8, FontSize->Scaled[0.009513935476001722], FontWeight->Plain], {524.78, -293.90999999999997`}], LineBox[{{544.645, -270.10999999999996`}, { 529.2783250202876, -288.52061487627253`}}]}}, {GrayLevel[0], AbsoluteThickness[0.55], InsetBox[ StyleBox["\<\"C\"\>", StripOnInput->False, ScriptSizeMultipliers->0.8, ScriptMinSize->8, FontSize->Scaled[0.009513935476001722], FontWeight->Plain], {564.51, -246.30999999999997`}], LineBox[{{569.0494869981117, -251.66476029285857`}, { 584.5550000000001, -269.955}}], {GrayLevel[0], InsetBox[ StyleBox["\<\"H\"\>", StripOnInput->False, ScriptSizeMultipliers->0.8, ScriptMinSize->8, FontSize->Scaled[0.009513935476001722], FontWeight->Plain], {604.6, -293.6}], LineBox[{{584.5550000000001, -269.955}, { 600.0605130018884, -288.2452397071414}}]}}, {GrayLevel[0], AbsoluteThickness[0.55], InsetBox[ StyleBox["\<\"C\"\>", StripOnInput->False, ScriptSizeMultipliers->0.8, ScriptMinSize->8, FontSize->Scaled[0.009513935476001722], FontWeight->Plain], {382.41999999999996`, -33.660000000000004`}], LineBox[{{376.28695949262357`, -37.07558401080704}, { 335.025, -60.05500000000001}}], {GrayLevel[0], InsetBox[ StyleBox["\<\"C\"\>", StripOnInput->False, ScriptSizeMultipliers->0.8, ScriptMinSize->8, FontSize->Scaled[0.009513935476001722], FontWeight->Plain], {287.63, -86.45}], LineBox[{{335.025, -60.05500000000001}, { 293.7630405073764, -83.03441598919296}}]}}, {GrayLevel[0], AbsoluteThickness[0.55], InsetBox[ StyleBox["\<\"C\"\>", StripOnInput->False, ScriptSizeMultipliers->0.8, ScriptMinSize->8, FontSize->Scaled[0.009513935476001722], FontWeight->Plain], {382.41999999999996`, -33.660000000000004`}], LineBox[{{387.04166022806896`, -28.37599993032878}, { 402.83, -10.325000000000003`}}], {GrayLevel[0], InsetBox[ StyleBox["\<\"H\"\>", StripOnInput->False, ScriptSizeMultipliers->0.8, ScriptMinSize->8, FontSize->Scaled[0.009513935476001722], FontWeight->Plain], {423.24, 13.01}], LineBox[{{402.83, -10.325000000000003`}, {418.618339771931, 7.725999930328778}}]}}, {GrayLevel[0], AbsoluteThickness[0.55], InsetBox[ StyleBox["\<\"C\"\>", StripOnInput->False, ScriptSizeMultipliers->0.8, ScriptMinSize->8, FontSize->Scaled[0.009513935476001722], FontWeight->Plain], {382.41999999999996`, -33.660000000000004`}], LineBox[{{378.00556937432515`, -28.201685035553155`}, { 362.92499999999995`, -9.555000000000003}}], {GrayLevel[0], InsetBox[ StyleBox["\<\"H\"\>", StripOnInput->False, ScriptSizeMultipliers->0.8, ScriptMinSize->8, FontSize->Scaled[0.009513935476001722], FontWeight->Plain], {343.43, 14.549999999999999`}], LineBox[{{362.92499999999995`, -9.555000000000003}, {347.8444306256748, 9.091685035553141}}]}}, {GrayLevel[0], AbsoluteThickness[0.55], InsetBox[ StyleBox["\<\"C\"\>", StripOnInput->False, ScriptSizeMultipliers->0.8, ScriptMinSize->8, FontSize->Scaled[0.009513935476001722], FontWeight->Plain], {475.87, 9.93}], LineBox[{{468.85021043927156`, 9.984355524909658}, {444.875, 10.17}}], {GrayLevel[0], InsetBox[ StyleBox["\<\"H\"\>", StripOnInput->False, ScriptSizeMultipliers->0.8, ScriptMinSize->8, FontSize->Scaled[0.009513935476001722], FontWeight->Plain], {413.88, 10.41}], LineBox[{{444.875, 10.17}, {420.89978956072844`, 10.355644475090342`}}]}}, {GrayLevel[0], AbsoluteThickness[0.55], InsetBox[ StyleBox["\<\"C\"\>", StripOnInput->False, ScriptSizeMultipliers->0.8, ScriptMinSize->8, FontSize->Scaled[0.009513935476001722], FontWeight->Plain], {475.87, 9.93}], LineBox[{{475.924346758415, 16.949789628603547`}, {476.11, 40.93000000000001}}], {GrayLevel[0], InsetBox[ StyleBox["\<\"H\"\>", StripOnInput->False, ScriptSizeMultipliers->0.8, ScriptMinSize->8, FontSize->Scaled[0.009513935476001722], FontWeight->Plain], {476.34999999999997`, 71.93}], LineBox[{{476.11, 40.93000000000001}, {476.295653241585, 64.91021037139646}}]}}, {GrayLevel[0], AbsoluteThickness[0.55], InsetBox[ StyleBox["\<\"C\"\>", StripOnInput->False, ScriptSizeMultipliers->0.8, ScriptMinSize->8, FontSize->Scaled[0.009513935476001722], FontWeight->Plain], {475.87, 9.93}], LineBox[{{482.8897896286036, 9.875653241585004}, {506.87, 9.69}}], {GrayLevel[0], InsetBox[ StyleBox["\<\"H\"\>", StripOnInput->False, ScriptSizeMultipliers->0.8, ScriptMinSize->8, FontSize->Scaled[0.009513935476001722], FontWeight->Plain], {537.87, 9.45}], LineBox[{{506.87, 9.69}, {530.8502103713964, 9.504346758414995}}]}}, {GrayLevel[0], AbsoluteThickness[0.55], InsetBox[ StyleBox["\<\"C\"\>", StripOnInput->False, ScriptSizeMultipliers->0.8, ScriptMinSize->8, FontSize->Scaled[0.009513935476001722], FontWeight->Plain], {914.9300000000001, 149.73000000000002`}], LineBox[{{921.3382526540358, 146.8638705678138}, {960.575, 129.315}}], {GrayLevel[0], InsetBox[ StyleBox["\<\"C\"\>", StripOnInput->False, ScriptSizeMultipliers->0.8, ScriptMinSize->8, FontSize->Scaled[0.009513935476001722], FontWeight->Plain], {1006.22, 108.89999999999999`}], LineBox[{{960.575, 129.315}, {999.8117473459642, 111.7661294321862}}]}}, {GrayLevel[0], AbsoluteThickness[0.55], InsetBox[ StyleBox["\<\"C\"\>", StripOnInput->False, ScriptSizeMultipliers->0.8, ScriptMinSize->8, FontSize->Scaled[0.009513935476001722], FontWeight->Plain], {287.63, -86.45}], LineBox[{{287.57565324158503`, -93.46978962860355}, { 287.21000000000004`, -140.7}}], {GrayLevel[0], InsetBox[ StyleBox["\<\"C\"\>", StripOnInput->False, ScriptSizeMultipliers->0.8, ScriptMinSize->8, FontSize->Scaled[0.009513935476001722], FontWeight->Plain], {286.79, -194.95}], LineBox[{{287.21000000000004`, -140.7}, { 286.84434675841504`, -187.93021037139644`}}]}}, {GrayLevel[0], AbsoluteThickness[0.55], InsetBox[ StyleBox["\<\"C\"\>", StripOnInput->False, ScriptSizeMultipliers->0.8, ScriptMinSize->8, FontSize->Scaled[0.009513935476001722], FontWeight->Plain], {287.63, -86.45}], LineBox[{{285.3145212348173, -79.8228619987216}, {277.405, -57.185}}], {GrayLevel[0], InsetBox[ StyleBox["\<\"H\"\>", StripOnInput->False, ScriptSizeMultipliers->0.8, ScriptMinSize->8, FontSize->Scaled[0.009513935476001722], FontWeight->Plain], {267.18, -27.92}], LineBox[{{277.405, -57.185}, { 269.49547876518267`, -34.5471380012784}}]}}, {GrayLevel[0], AbsoluteThickness[0.55], InsetBox[ StyleBox["\<\"C\"\>", StripOnInput->False, ScriptSizeMultipliers->0.8, ScriptMinSize->8, FontSize->Scaled[0.009513935476001722], FontWeight->Plain], {287.63, -86.45}], LineBox[{{280.70453781673905`, -87.59820448885327}, { 257.05, -91.52000000000001}}], {GrayLevel[0], InsetBox[ StyleBox["\<\"H\"\>", StripOnInput->False, ScriptSizeMultipliers->0.8, ScriptMinSize->8, FontSize->Scaled[0.009513935476001722], FontWeight->Plain], {226.47, -96.59}], LineBox[{{257.05, -91.52000000000001}, { 233.39546218326095`, -95.44179551114674}}]}}, {GrayLevel[0], AbsoluteThickness[0.55], InsetBox[ StyleBox["\<\"C\"\>", StripOnInput->False, ScriptSizeMultipliers->0.8, ScriptMinSize->8, FontSize->Scaled[0.009513935476001722], FontWeight->Plain], {380.76, -249.2}], LineBox[{{374.6804006805871, -245.69017491669524`}, { 333.775, -222.075}}], {GrayLevel[0], InsetBox[ StyleBox["\<\"C\"\>", StripOnInput->False, ScriptSizeMultipliers->0.8, ScriptMinSize->8, FontSize->Scaled[0.009513935476001722], FontWeight->Plain], {286.79, -194.95}], LineBox[{{333.775, -222.075}, { 292.8695993194128, -198.45982508330474`}}]}}, {GrayLevel[0], AbsoluteThickness[0.55], InsetBox[ StyleBox["\<\"C\"\>", StripOnInput->False, ScriptSizeMultipliers->0.8, ScriptMinSize->8, FontSize->Scaled[0.009513935476001722], FontWeight->Plain], {380.76, -249.2}], LineBox[{{380.7871739899563, -256.21994740537775`}, {380.88, -280.2}}], {GrayLevel[0], InsetBox[ StyleBox["\<\"H\"\>", StripOnInput->False, ScriptSizeMultipliers->0.8, ScriptMinSize->8, FontSize->Scaled[0.009513935476001722], FontWeight->Plain], {381., -311.2}], LineBox[{{380.88, -280.2}, {380.9728260100437, -304.1800525946222}}]}}, {GrayLevel[0], AbsoluteThickness[0.55], InsetBox[ StyleBox["\<\"C\"\>", StripOnInput->False, ScriptSizeMultipliers->0.8, ScriptMinSize->8, FontSize->Scaled[0.009513935476001722], FontWeight->Plain], {1006.22, 108.89999999999999`}], LineBox[{{1011.2608437857011`, 104.01427651947438`}, {1028.48, 87.32499999999999}}], {GrayLevel[0], InsetBox[ StyleBox["\<\"H\"\>", StripOnInput->False, ScriptSizeMultipliers->0.8, ScriptMinSize->8, FontSize->Scaled[0.009513935476001722], FontWeight->Plain], {1050.74, 65.75}], LineBox[{{1028.48, 87.32499999999999}, {1045.699156214299, 70.63572348052561}}]}}, {GrayLevel[0], AbsoluteThickness[0.55], InsetBox[ StyleBox["\<\"C\"\>", StripOnInput->False, ScriptSizeMultipliers->0.8, ScriptMinSize->8, FontSize->Scaled[0.009513935476001722], FontWeight->Plain], {1006.22, 108.89999999999999`}], LineBox[{{1002.2842982022128`, 103.08702732168007`}, {988.84, 83.22999999999999}}], {GrayLevel[0], InsetBox[ StyleBox["\<\"H\"\>", StripOnInput->False, ScriptSizeMultipliers->0.8, ScriptMinSize->8, FontSize->Scaled[0.009513935476001722], FontWeight->Plain], {971.46, 57.56}], LineBox[{{988.84, 83.22999999999999}, {975.3957017977873, 63.372972678319925`}}]}}}, {}, {}}, ImageSize->Large, PlotRange->{{180., 1163.82}, {-328.012, 266.012}}]], "Output", CellChangeTimes->{3.5748345058450055`*^9, 3.580142418367612*^9}] }, Open ]], Cell["(* Distance Matrix Bohr *)", "Text", CellChangeTimes->{{3.5678630319943895`*^9, 3.5678630956269007`*^9}, { 3.5678632280087337`*^9, 3.567863228336334*^9}, {3.5678632621727934`*^9, 3.5678633509213495`*^9}, {3.5678644293824434`*^9, 3.567864451908883*^9}, { 3.567864923404111*^9, 3.56786494544695*^9}, {3.5678650143210707`*^9, 3.5678650845367947`*^9}, {3.567869231084096*^9, 3.5678692412397137`*^9}, 3.5678693168686466`*^9, {3.5678704450470285`*^9, 3.5678704621290584`*^9}, 3.5682783281584253`*^9, 3.5688732159715385`*^9, 3.568910867647065*^9, 3.5689997098549547`*^9, 3.5689998170427427`*^9, 3.5689998869620657`*^9, 3.5691460426137285`*^9, 3.569237204536323*^9, 3.5692374658523817`*^9, 3.56923802264856*^9, 3.5693403424181123`*^9, 3.5693404502143016`*^9, 3.569340738019207*^9, 3.569340852851009*^9, 3.5693411655067577`*^9, 3.5693414978029413`*^9, 3.5693426144373026`*^9, 3.5693435671777763`*^9, 3.569343662743544*^9, 3.569343763644521*^9, 3.569344071177861*^9, 3.569344266271804*^9, 3.570297558707776*^9, {3.5703416079688015`*^9, 3.570341617375618*^9}, {3.5705956885798426`*^9, 3.5705957106070814`*^9}, { 3.5705965150536942`*^9, 3.5705965239457097`*^9}, {3.5720162655168724`*^9, 3.5720163727202606`*^9}, {3.5720166425383344`*^9, 3.572016643427536*^9}, { 3.5723503054303513`*^9, 3.572350361964851*^9}, 3.573368567997178*^9, { 3.5746565325286493`*^9, 3.574656552839885*^9}}], Cell[BoxData[{ RowBox[{ RowBox[{"dc", "=", RowBox[{"Table", "[", RowBox[{ RowBox[{"Norm", "[", RowBox[{ RowBox[{"t", "[", RowBox[{"[", "i", "]"}], "]"}], "-", RowBox[{"t", "[", RowBox[{"[", "j", "]"}], "]"}]}], "]"}], ",", RowBox[{"{", RowBox[{"i", ",", "1", ",", "n"}], "}"}], ",", RowBox[{"{", RowBox[{"j", ",", "1", ",", "n"}], "}"}]}], "]"}]}], ";"}], "\[IndentingNewLine]", RowBox[{ RowBox[{"(*", RowBox[{"MatrixForm", "[", RowBox[{"Prepend", "[", RowBox[{"dc", ",", "num1"}], "]"}], "]"}], "*)"}]}]}], "Input", CellChangeTimes->{{3.5678630319943895`*^9, 3.5678630956269007`*^9}, { 3.5678632280087337`*^9, 3.567863228336334*^9}, {3.5678632621727934`*^9, 3.5678633509213495`*^9}, {3.5678644293824434`*^9, 3.567864451908883*^9}, { 3.567864923404111*^9, 3.56786494544695*^9}, {3.5678650143210707`*^9, 3.5678650845367947`*^9}, {3.567869231084096*^9, 3.5678692412397137`*^9}, 3.5678693168686466`*^9, {3.5678704450470285`*^9, 3.5678704621290584`*^9}, 3.5682783281584253`*^9, 3.5688732159715385`*^9, 3.568910867647065*^9, 3.5689997098549547`*^9, 3.5689998170427427`*^9, 3.5689998869620657`*^9, 3.5691460426137285`*^9, 3.569237204536323*^9, 3.5692374658523817`*^9, 3.56923802264856*^9, 3.5693403424181123`*^9, 3.5693404502143016`*^9, 3.569340738019207*^9, 3.569340852851009*^9, 3.5693411655067577`*^9, 3.5693414978029413`*^9, 3.5693426144373026`*^9, 3.5693435671777763`*^9, 3.569343662743544*^9, 3.569343763644521*^9, 3.569344071177861*^9, 3.569344266271804*^9, 3.570297558707776*^9, {3.5703416079688015`*^9, 3.570341617375618*^9}, {3.5705956885798426`*^9, 3.5705957106070814`*^9}, { 3.5705965150536942`*^9, 3.5705965239457097`*^9}, {3.5720162655168724`*^9, 3.5720163727202606`*^9}, {3.5720166425383344`*^9, 3.572016643427536*^9}, { 3.5723503054303513`*^9, 3.572350361964851*^9}, 3.573368567997178*^9, 3.5746565325286493`*^9}], Cell[BoxData[{ RowBox[{ RowBox[{"x", "=", RowBox[{"Table", "[", RowBox[{ RowBox[{"t", "[", RowBox[{"[", RowBox[{"i", ",", "1"}], "]"}], "]"}], ",", RowBox[{"{", RowBox[{"i", ",", "1", ",", "n"}], "}"}]}], "]"}]}], ";"}], "\[IndentingNewLine]", RowBox[{ RowBox[{"y", "=", RowBox[{"Table", "[", RowBox[{ RowBox[{"t", "[", RowBox[{"[", RowBox[{"i", ",", "2"}], "]"}], "]"}], ",", RowBox[{"{", RowBox[{"i", ",", "1", ",", "n"}], "}"}]}], "]"}]}], ";"}], "\[IndentingNewLine]", RowBox[{ RowBox[{"z", "=", RowBox[{"Table", "[", RowBox[{ RowBox[{"t", "[", RowBox[{"[", RowBox[{"i", ",", "3"}], "]"}], "]"}], ",", RowBox[{"{", RowBox[{"i", ",", "1", ",", "n"}], "}"}]}], "]"}]}], ";"}]}], "Input", CellChangeTimes->{{3.5678630319943895`*^9, 3.5678630956269007`*^9}, { 3.5678632280087337`*^9, 3.567863228336334*^9}, {3.5678632621727934`*^9, 3.5678633509213495`*^9}, {3.5678644293824434`*^9, 3.567864451908883*^9}, { 3.567864923404111*^9, 3.56786494544695*^9}, {3.5678650143210707`*^9, 3.5678650845367947`*^9}, {3.567869231084096*^9, 3.567869278118179*^9}, { 3.5682778102931156`*^9, 3.5682778156907253`*^9}, 3.571808490989086*^9, { 3.572601938592864*^9, 3.572601945722077*^9}}], Cell[CellGroupData[{ Cell[BoxData[ RowBox[{ RowBox[{"(*", " ", RowBox[{"connected", " ", RowBox[{"pairs", ":", " ", RowBox[{ RowBox[{"distance", " ", "criteria"}], " ", "<", " ", RowBox[{"3.0", " ", "bohr"}]}]}]}], " ", "*)"}], "\[IndentingNewLine]", RowBox[{ RowBox[{ RowBox[{"Dij", "=", RowBox[{"Table", "[", RowBox[{ RowBox[{"If", "[", RowBox[{ RowBox[{"(", RowBox[{ RowBox[{ RowBox[{"dc", "[", RowBox[{"[", RowBox[{"i", ",", "j"}], "]"}], "]"}], "<", "3.0"}], "||", RowBox[{"(", RowBox[{ RowBox[{ RowBox[{"u", "[", RowBox[{"[", "i", "]"}], "]"}], "\[Equal]", "\"\\""}], " ", "&&", " ", RowBox[{ RowBox[{"dc", "[", RowBox[{"[", RowBox[{"i", ",", "j"}], "]"}], "]"}], "<", "3.24"}]}], ")"}]}], ")"}], ",", RowBox[{"dc", "[", RowBox[{"[", RowBox[{"i", ",", "j"}], "]"}], "]"}], ",", "0"}], "]"}], ",", RowBox[{"{", RowBox[{"i", ",", "1", ",", "n"}], "}"}], ",", RowBox[{"{", RowBox[{"j", ",", "1", ",", "n"}], "}"}]}], "]"}]}], ";"}], "\[IndentingNewLine]", RowBox[{"MatrixForm", "[", RowBox[{"Prepend", "[", RowBox[{"Dij", ",", "num1"}], "]"}], "]"}]}]}]], "Input", CellChangeTimes->{{3.567863535157673*^9, 3.5678635412104836`*^9}, { 3.5678638182825704`*^9, 3.567863827283786*^9}, {3.5679503910983553`*^9, 3.5679504266352177`*^9}, {3.5679504653700857`*^9, 3.5679505048069553`*^9}, 3.567950534915008*^9, {3.567951107623214*^9, 3.567951136046464*^9}, 3.567951302545556*^9, {3.5679562986474605`*^9, 3.567956305355472*^9}, { 3.5679563590975666`*^9, 3.567956370688387*^9}, {3.567956414930065*^9, 3.567956430467692*^9}, {3.567956484740187*^9, 3.567956500667815*^9}, { 3.5679565456270943`*^9, 3.5679565868267665`*^9}, {3.5679569267045636`*^9, 3.5679569448941956`*^9}, {3.567956976562251*^9, 3.567957000711094*^9}, { 3.5679570348595533`*^9, 3.5679570632672033`*^9}, {3.5679573263928657`*^9, 3.5679573286548696`*^9}, {3.5679573611029263`*^9, 3.5679573637393312`*^9}, {3.5679592820903006`*^9, 3.567959317127962*^9}, { 3.567959397655304*^9, 3.5679594004945087`*^9}, {3.5679594704762316`*^9, 3.5679594724574347`*^9}, {3.567959655898157*^9, 3.567959673073787*^9}, 3.5681143121223865`*^9, 3.568121866388855*^9, 3.568220668221574*^9, { 3.568220718968463*^9, 3.568220723742071*^9}, {3.568220862051914*^9, 3.5682208641111183`*^9}, {3.568220906761593*^9, 3.5682209083527956`*^9}, { 3.5682209451844606`*^9, 3.5682209651680956`*^9}, {3.568221147782016*^9, 3.5682211695908546`*^9}, {3.568221237279373*^9, 3.568221253612602*^9}, { 3.568221305420293*^9, 3.568221306247094*^9}, {3.5682215161142635`*^9, 3.568221546206716*^9}, 3.56822158247678*^9, {3.568277819185131*^9, 3.5682778284359474`*^9}, 3.56882183684053*^9, {3.5688219650415554`*^9, 3.568821965915157*^9}, {3.5688769979329815`*^9, 3.5688771619984694`*^9}, { 3.568877204212144*^9, 3.5688772091729527`*^9}, {3.568877282493081*^9, 3.5688772843338842`*^9}, {3.568877374112042*^9, 3.568877378074449*^9}, { 3.56887744125456*^9, 3.5688774664954042`*^9}, {3.56887758366721*^9, 3.568877604867647*^9}, {3.568877667220957*^9, 3.5688776710429635`*^9}, { 3.5688778111156096`*^9, 3.56887782262843*^9}, {3.569341165522358*^9, 3.569341165522358*^9}, 3.5693418217375107`*^9, {3.5693429625675144`*^9, 3.5693429673099227`*^9}, {3.569390288837522*^9, 3.5693903143123665`*^9}, { 3.569390381798085*^9, 3.5693904158685455`*^9}, {3.5693905284539433`*^9, 3.569390564349606*^9}, {3.569390610868888*^9, 3.569390611056088*^9}, { 3.569390743671921*^9, 3.569390761487152*^9}, {3.569390843761697*^9, 3.569390861608128*^9}, {3.5693909829451413`*^9, 3.5693909887171516`*^9}, 3.5703416480920715`*^9, {3.5703416810237293`*^9, 3.5703416997437625`*^9}, 3.570341888192094*^9, {3.5705964879252462`*^9, 3.570596509843285*^9}, { 3.5705965495921545`*^9, 3.5705966388087115`*^9}, 3.570968886604662*^9, { 3.5709689930904493`*^9, 3.5709689944320517`*^9}, {3.5709690501397495`*^9, 3.570969050904151*^9}, {3.5709692134876366`*^9, 3.5709692140804377`*^9}, { 3.5709722325921392`*^9, 3.5709722334033403`*^9}, {3.5709723694355793`*^9, 3.570972545481889*^9}, {3.570972790558319*^9, 3.5709728063299465`*^9}, { 3.570972844066413*^9, 3.570972866764453*^9}, {3.5709729633598228`*^9, 3.57097298434186*^9}, {3.5709731454589424`*^9, 3.5709731466289444`*^9}, 3.570973453029083*^9, {3.5709736099653587`*^9, 3.570973638404208*^9}, { 3.571113899355363*^9, 3.571113958604267*^9}, 3.57111399989754*^9, { 3.5711140388820086`*^9, 3.571114044841219*^9}, {3.571115985874628*^9, 3.5711159997742524`*^9}, {3.57313788224113*^9, 3.5731379093851776`*^9}, 3.573137959679666*^9}], Cell[BoxData[ TagBox[ RowBox[{"(", "\[NoBreak]", GridBox[{ {"1", "2", "3", "4", "5", "6", "7", "8", "9", "10", "11", "12", "13", "14", "15", "16", "17", "18", "19", "20", "21", "22", "23", "24", "25", "26", "27", "28", "29", "30", "31", "32", "33", "34", "35", "36", "37", "38", "39", "40", "41", "42", "43", "44", "45", "46", "47", "48", "49", "50", "51", "52", "53", "54"}, {"0.`", "2.9302079521750017`", "2.9309834001467188`", "0", "0", "0", "2.8345800955971017`", "0", "0", "0", "0", "0", "0", "0", "0", "0", "0", "0", "0", "0", "0", "0", "0", "0", "0", "0", "2.022053960608266`", "0", "0", "0", "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.9302079521750017`", "0.`", "0", "0", "2.889433802400415`", "0", "0", "2.912545714942949`", "0", "0", "0", "2.887273288244717`", "0", "0", "0", "0", "0", "0", "0", "0", "0", "0", "0", "0", "0", "0", "0", "0", "0", "0", "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.9309834001467188`", "0", "0.`", "2.9374648971279256`", "0", "0", "0", "0", "0", "2.921694914464528`", "0", "0", "0", "0", "0", "0", "0", "0", "0", "0", "0", "0", "0", "0", "0", "0", "0", "2.0221519747106815`", "0", "0", "0", "0", "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.9374648971279256`", "0.`", "0", "2.9540969757539264`", "0", "0", "0", "0", "2.8651668165891406`", "0", "0", "0", "0", "0", "0", "0", "0", "0", "0", "0", "0", "0", "0", "0", "0", "0", "2.0221271005730834`", "0", "0", "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.889433802400415`", "0", "0", "0.`", "0", "0", "0", "2.9336161175363507`", "0", "0", "0", "0", "0", "0", "0", "2.8716760692135157`", "0", "0", "0", "0", "2.671727110782237`", "0", "0", "0", "0", "0", "0", "0", "0", "0", "0", "0", "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.9540969757539264`", "0", "0.`", "0", "0", "0", "0", "0", "0", "2.8496622931388442`", "0", "2.9348067804367526`", "2.8941283765538874`", "0", "0", "0", "0", "0", "0", "0", "0", "0", "0", "0", "0", "0", "0", "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.8345800955971017`", "0", "0", "0", "0", "0", "0.`", "0", "2.9015581565210673`", "0", "0", "0", "0", "0", "0", "0", "0", "0", "0", "0", "0", "0", "0", "0", "0", "0", "0", "0", "0", "2.0220256663968215`", "2.0221333097985035`", "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.912545714942949`", "0", "0", "0", "0", "0", "0.`", "0", "0", "2.8298431950426655`", "0", "0", "0", "0", "0", "0", "0", "0", "0", "0", "0", "0", "0", "0", "0", "0", "0", "0", "0", "0", "2.0218854320143453`", "2.0220590207110067`", "0", "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.9336161175363507`", "0", "2.9015581565210673`", "0", "0.`", "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.0219829157078513`", "2.022025634519029`", "0", "0", "0", "0", "0", "0", "0", "0", "0", "0", "0", "0", "0", "0", "0", "0", "0", "0", "0"}, {"0", "0", "2.921694914464528`", "0", "0", "0", "0", "0", "0", "0.`", "0", "0", "0", "2.9192029302071467`", "0", "0", "0", "0", "0", "0", "0", "0", "0", "0", "0", "0", "0", "0", "0", "0", "0", "0", "0", "0", "0", "2.0220947256701556`", "2.0219799482709417`", "0", "0", "0", "0", "0", "0", "0", "0", "0", "0", "0", "0", "0", "0", "0", "0", "0"}, {"0", "0", "0", "2.8651668165891406`", "0", "0", "0", "2.8298431950426655`", "0", "0", "0.`", "0", "0", "0", "0", "0", "0", "0", "0", "0", "0", "0", "2.280545709875913`", "0", "0", "0", "0", "0", "0", "0", "0", "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.887273288244717`", "0", "0", "0", "0", "0", "0", "0", "0", "0", "0.`", "0", "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.0218497494994616`", "2.0219332431508863`", "2.022008457261476`", "0", "0", "0", "0", "0", "0", "0", "0", "0", "0", "0", "0", "0", "0"}, {"0", "0", "0", "0", "0", "2.8496622931388442`", "0", "0", "0", "0", "0", "0", "0.`", "2.878468125395748`", "0", "0", "0", "0", "2.5488389777640843`", "0", "0", "0", "0", "0", "0", "0", "0", "0", "0", "0", "0", "0", "0", "0", "0", "0", "0", "0", "0", "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.9192029302071467`", "0", "0", "2.878468125395748`", "0.`", "0", "0", "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.022047660275224`", "2.0221404267200023`", "0", "0", "0", "0", "0", "0", "0", "0", "0", "0", "0", "0"}, {"0", "0", "0", "0", "0", "2.9348067804367526`", "0", "0", "0", "0", "0", "0", "0", "0", "0.`", "0", "0", "2.9112768740455555`", "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.0220098043519985`", "2.0218634897111936`", "0", "0", "0", "0", "0", "0", "0", "0", "0", "0"}, {"0", "0", "0", "0", "0", "2.8941283765538874`", "0", "0", "0", "0", "0", "0", "0", "0", "0", "0.`", "0", "0", "0", "0", "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.0219672368289467`", "2.0220662986042695`", "2.022250856851879`", "0", "0", "0", "0", "0", "0", "0"}, {"0", "0", "0", "0", "2.8716760692135157`", "0", "0", "0", "0", "0", "0", "0", "0", "0", "0", "0", "0.`", "0", "0", "0", "2.8543956716201757`", "0", "0", "2.261748852433172`", "0", "0", "0", "0", "0", "0", "0", "0", "0", "0", "0", "0", "0", "0", "0", "0", "0", "0", "0", "0", "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.9112768740455555`", "0", "0", "0.`", "0", "2.8512330519029985`", "0", "0", "0", "0", "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.0220607764402523`", "2.0218949010027294`", "0", "0", "0", "0"}, {"0", "0", "0", "0", "0", "0", "0", "0", "0", "0", "0", "0", "2.5488389777640843`", "0", "0", "0", "0", "0", "0.`", "2.778624017412136`", "0", "0", "0", "0", "0", "0", "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.0219800987445753`", "0", "0", "0"}, {"0", "0", "0", "0", "0", "0", "0", "0", "0", "0", "0", "0", "0", "0", "0", "0", "0", "2.8512330519029985`", "2.778624017412136`", "0.`", "0", "0", "0", "0", "0", "2.279575314554708`", "0", "0", "0", "0", "0", "0", "0", "0", "0", "0", "0", "0", "0", "0", "0", "0", "0", "0", "0", "0", "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.8543956716201757`", "0", "0", "0", "0.`", "0", "0", "0", "2.667765490626876`", "0", "0", "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.0219871406155687`", "2.0219445908950706`", "0"}, {"0", "0", "0", "0", "2.671727110782237`", "0", "0", "0", "0", "0", "0", "0", "0", "0", "0", "0", "0", "0", "0", "0", "0", "0.`", "0", "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.8141483746965141`", "0", "0", "0", "0", "0", "0"}, {"0", "0", "0", "0", "0", "0", "0", "0", "0", "0", "2.280545709875913`", "0", "0", "0", "0", "0", "0", "0", "0", "0", "0", "0", "0.`", "0", "0", "0", "0", "0", "0", "0", "0", "0", "0", "0", "0", "0", "0", "0", "0", "0", "0", "0", "0", "0", "0", "0", "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.261748852433172`", "0", "0", "0", "0", "0", "0", "0.`", "0", "0", "0", "0", "0", "0", "0", "0", "0", "0", "0", "0", "0", "0", "0", "0", "0", "0", "0", "0", "0", "0", "0", "0", "0", "0", "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.667765490626876`", "0", "0", "0", "0.`", "0", "0", "0", "0", "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.8141779056681424`"}, {"0", "0", "0", "0", "0", "0", "0", "0", "0", "0", "0", "0", "0", "0", "0", "0", "0", "0", "0", "2.279575314554708`", "0", "0", "0", "0", "0", "0.`", "0", "0", "0", "0", "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.022053960608266`", "0", "0", "0", "0", "0", "0", "0", "0", "0", "0", "0", "0", "0", "0", "0", "0", "0", "0", "0", "0", "0", "0", "0", "0", "0", "0.`", "0", "0", "0", "0", "0", "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.0221519747106815`", "0", "0", "0", "0", "0", "0", "0", "0", "0", "0", "0", "0", "0", "0", "0", "0", "0", "0", "0", "0", "0", "0", "0", "0", "0.`", "0", "0", "0", "0", "0", "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.0221271005730834`", "0", "0", "0", "0", "0", "0", "0", "0", "0", "0", "0", "0", "0", "0", "0", "0", "0", "0", "0", "0", "0", "0", "0", "0", "0.`", "0", "0", "0", "0", "0", "0", "0", "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.0220256663968215`", "0", "0", "0", "0", "0", "0", "0", "0", "0", "0", "0", "0", "0", "0", "0", "0", "0", "0", "0", "0", "0", "0", "0.`", "0", "0", "0", "0", "0", "0", "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.0221333097985035`", "0", "0", "0", "0", "0", "0", "0", "0", "0", "0", "0", "0", "0", "0", "0", "0", "0", "0", "0", "0", "0", "0", "0", "0.`", "0", "0", "0", "0", "0", "0", "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.0218854320143453`", "0", "0", "0", "0", "0", "0", "0", "0", "0", "0", "0", "0", "0", "0", "0", "0", "0", "0", "0", "0", "0", "0", "0", "0.`", "0", "0", "0", "0", "0", "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.0220590207110067`", "0", "0", "0", "0", "0", "0", "0", "0", "0", "0", "0", "0", "0", "0", "0", "0", "0", "0", "0", "0", "0", "0", "0", "0", "0.`", "0", "0", "0", "0", "0", "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.0219829157078513`", "0", "0", "0", "0", "0", "0", "0", "0", "0", "0", "0", "0", "0", "0", "0", "0", "0", "0", "0", "0", "0", "0", "0", "0", "0.`", "0", "0", "0", "0", "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.022025634519029`", "0", "0", "0", "0", "0", "0", "0", "0", "0", "0", "0", "0", "0", "0", "0", "0", "0", "0", "0", "0", "0", "0", "0", "0", "0", "0.`", "0", "0", "0", "0", "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.0220947256701556`", "0", "0", "0", "0", "0", "0", "0", "0", "0", "0", "0", "0", "0", "0", "0", "0", "0", "0", "0", "0", "0", "0", "0", "0", "0", "0.`", "0", "0", "0", "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.0219799482709417`", "0", "0", "0", "0", "0", "0", "0", "0", "0", "0", "0", "0", "0", "0", "0", "0", "0", "0", "0", "0", "0", "0", "0", "0", "0", "0", "0.`", "0", "0", "0", "0", "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.0218497494994616`", "0", "0", "0", "0", "0", "0", "0", "0", "0", "0", "0", "0", "0", "0", "0", "0", "0", "0", "0", "0", "0", "0", "0", "0", "0", "0.`", "0", "0", "0", "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.0219332431508863`", "0", "0", "0", "0", "0", "0", "0", "0", "0", "0", "0", "0", "0", "0", "0", "0", "0", "0", "0", "0", "0", "0", "0", "0", "0", "0", "0.`", "0", "0", "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.022008457261476`", "0", "0", "0", "0", "0", "0", "0", "0", "0", "0", "0", "0", "0", "0", "0", "0", "0", "0", "0", "0", "0", "0", "0", "0", "0", "0", "0", "0.`", "0", "0", "0", "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.022047660275224`", "0", "0", "0", "0", "0", "0", "0", "0", "0", "0", "0", "0", "0", "0", "0", "0", "0", "0", "0", "0", "0", "0", "0", "0", "0", "0", "0.`", "0", "0", "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.0221404267200023`", "0", "0", "0", "0", "0", "0", "0", "0", "0", "0", "0", "0", "0", "0", "0", "0", "0", "0", "0", "0", "0", "0", "0", "0", "0", "0", "0", "0.`", "0", "0", "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.0220098043519985`", "0", "0", "0", "0", "0", "0", "0", "0", "0", "0", "0", "0", "0", "0", "0", "0", "0", "0", "0", "0", "0", "0", "0", "0", "0", "0", "0", "0.`", "0", "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.0218634897111936`", "0", "0", "0", "0", "0", "0", "0", "0", "0", "0", "0", "0", "0", "0", "0", "0", "0", "0", "0", "0", "0", "0", "0", "0", "0", "0", "0", "0", "0.`", "0", "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.0219672368289467`", "0", "0", "0", "0", "0", "0", "0", "0", "0", "0", "0", "0", "0", "0", "0", "0", "0", "0", "0", "0", "0", "0", "0", "0", "0", "0", "0", "0", "0.`", "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.0220662986042695`", "0", "0", "0", "0", "0", "0", "0", "0", "0", "0", "0", "0", "0", "0", "0", "0", "0", "0", "0", "0", "0", "0", "0", "0", "0", "0", "0", "0", "0", "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.022250856851879`", "0", "0", "0", "0", "0", "0", "0", "0", "0", "0", "0", "0", "0", "0", "0", "0", "0", "0", "0", "0", "0", "0", "0", "0", "0", "0", "0", "0", "0", "0", "0.`", "0", "0", "0", "0", "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.8141483746965141`", "0", "0", "0", "0", "0", "0", "0", "0", "0", "0", "0", "0", "0", "0", "0", "0", "0", "0", "0", "0", "0", "0", "0", "0", "0", "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.0220607764402523`", "0", "0", "0", "0", "0", "0", "0", "0", "0", "0", "0", "0", "0", "0", "0", "0", "0", "0", "0", "0", "0", "0", "0", "0", "0", "0", "0", "0", "0", "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.0218949010027294`", "0", "0", "0", "0", "0", "0", "0", "0", "0", "0", "0", "0", "0", "0", "0", "0", "0", "0", "0", "0", "0", "0", "0", "0", "0", "0", "0", "0", "0", "0", "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.0219800987445753`", "0", "0", "0", "0", "0", "0", "0", "0", "0", "0", "0", "0", "0", "0", "0", "0", "0", "0", "0", "0", "0", "0", "0", "0", "0", "0", "0", "0", "0", "0", "0", "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.0219871406155687`", "0", "0", "0", "0", "0", "0", "0", "0", "0", "0", "0", "0", "0", "0", "0", "0", "0", "0", "0", "0", "0", "0", "0", "0", "0", "0", "0", "0", "0", "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.0219445908950706`", "0", "0", "0", "0", "0", "0", "0", "0", "0", "0", "0", "0", "0", "0", "0", "0", "0", "0", "0", "0", "0", "0", "0", "0", "0", "0", "0", "0", "0", "0", "0", "0.`", "0"}, {"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.8141779056681424`", "0", "0", "0", "0", "0", "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.5748345059230056`*^9, 3.580142418430012*^9}] }, Open ]], Cell[BoxData[""], "Input", CellChangeTimes->{{3.5711447475554733`*^9, 3.5711448173314643`*^9}, { 3.5711448756027975`*^9, 3.57114492740276*^9}, {3.5711449591545763`*^9, 3.5711450128426466`*^9}, 3.571145059034289*^9, {3.571145091643154*^9, 3.5711451544367456`*^9}, {3.5711457670857873`*^9, 3.571145777413378*^9}, { 3.571145816908637*^9, 3.5711458203728347`*^9}, {3.571145995427848*^9, 3.571146043099574*^9}, {3.571146121580063*^9, 3.571146129714528*^9}, { 3.5711468466695356`*^9, 3.571146852041843*^9}, {3.5711478420384674`*^9, 3.571147850085928*^9}, {3.57114788911016*^9, 3.571147906822173*^9}, 3.571148086181432*^9, {3.571148123252552*^9, 3.5711481317480383`*^9}, { 3.571148234499915*^9, 3.57114834630731*^9}, 3.571151990091008*^9, { 3.5712017864539623`*^9, 3.5712018128960094`*^9}, {3.5712024819499846`*^9, 3.5712024821527843`*^9}, {3.571202538780884*^9, 3.5712025389368844`*^9}, { 3.5712028115629635`*^9, 3.5712028346354036`*^9}, {3.5746569418109684`*^9, 3.574656960905402*^9}}], Cell[CellGroupData[{ Cell[BoxData[{ RowBox[{"For", "[", RowBox[{ RowBox[{"i", "=", "1"}], " ", ",", RowBox[{"i", "<", RowBox[{"n", "+", "1"}]}], ",", RowBox[{"i", "++"}], ",", "\[IndentingNewLine]", RowBox[{"For", "[", RowBox[{ RowBox[{"j", "=", "1"}], ",", " ", RowBox[{"j", "<", RowBox[{"bc", "+", "1"}]}], ",", RowBox[{"j", "++"}], ",", "\[IndentingNewLine]", RowBox[{"If", "[", RowBox[{ RowBox[{"(", RowBox[{ RowBox[{ RowBox[{"Dij", "[", RowBox[{"[", RowBox[{"i", ",", "j"}], "]"}], "]"}], "\[NotEqual]", "0"}], " ", "&&", " ", RowBox[{ RowBox[{"u", "[", RowBox[{"[", "i", "]"}], "]"}], "\[Equal]", " ", "\"\\""}]}], ")"}], ",", RowBox[{"If", "[", RowBox[{ RowBox[{ RowBox[{"u", "[", RowBox[{"[", "j", "]"}], "]"}], "\[Equal]", "\"\\""}], ",", RowBox[{ RowBox[{"u2", "[", RowBox[{"[", "i", "]"}], "]"}], "=", "0.59"}], ",", RowBox[{"If", "[", RowBox[{ RowBox[{ RowBox[{"u", "[", RowBox[{"[", "j", "]"}], "]"}], "\[Equal]", "\"\\""}], ",", RowBox[{ RowBox[{"u2", "[", RowBox[{"[", "i", "]"}], "]"}], "=", "0.5"}], ",", RowBox[{"If", "[", RowBox[{ RowBox[{ RowBox[{"u", "[", RowBox[{"[", "j", "]"}], "]"}], "\[Equal]", "\"\\""}], ",", RowBox[{ RowBox[{"u2", "[", RowBox[{"[", "i", "]"}], "]"}], "=", "0.5541"}], ",", RowBox[{"If", "[", RowBox[{ RowBox[{ RowBox[{"u", "[", RowBox[{"[", "j", "]"}], "]"}], "\[Equal]", "\"\\""}], ",", RowBox[{ RowBox[{"u2", "[", RowBox[{"[", "i", "]"}], "]"}], "=", "0.5241"}]}], "]"}]}], "]"}]}], "]"}]}], "]"}]}], "]"}]}], "]"}]}], "]"}], "\[IndentingNewLine]", "u2"}], "Input", CellChangeTimes->{{3.5688800293771057`*^9, 3.5688801774057655`*^9}, { 3.5688802290574565`*^9, 3.568880330208034*^9}, {3.5688803807053227`*^9, 3.5688804136525807`*^9}, 3.568880491434317*^9, 3.5688805648948464`*^9, { 3.5688806280437574`*^9, 3.568880655234605*^9}, {3.568880712424306*^9, 3.568880716324312*^9}, {3.5688808087544746`*^9, 3.568880827786508*^9}, 3.5688808733385878`*^9, {3.568881358936241*^9, 3.5688813959239063`*^9}, { 3.568881446561595*^9, 3.5688815849182377`*^9}, {3.5688816223739033`*^9, 3.568881642607139*^9}, 3.568881728953291*^9, {3.568881797624612*^9, 3.568881809870633*^9}, 3.568881863612727*^9, {3.568883098916497*^9, 3.5688831014749017`*^9}, {3.56888372124679*^9, 3.568883843239004*^9}, 3.568888211750622*^9, {3.5688882521546926`*^9, 3.5688885232519693`*^9}, { 3.5688885890840845`*^9, 3.5688885895052853`*^9}, {3.568888675773437*^9, 3.5688886914514647`*^9}, {3.568888736285943*^9, 3.5688887717760057`*^9}, { 3.5688888256429005`*^9, 3.5688888541441507`*^9}, {3.568892442649892*^9, 3.5688924499507046`*^9}, {3.568892758441247*^9, 3.5688927597360487`*^9}, { 3.5688928234309607`*^9, 3.5688928379389863`*^9}, {3.5708938149488974`*^9, 3.5708938463361526`*^9}, {3.570893920483083*^9, 3.5708939282050962`*^9}, { 3.570894700000852*^9, 3.57089481264865*^9}, {3.570973331551669*^9, 3.570973355887712*^9}, {3.5709734060886*^9, 3.5709734077266035`*^9}, 3.5709737061863275`*^9, {3.5712013634748197`*^9, 3.5712013661736245`*^9}, { 3.571201966837079*^9, 3.5712020689392586`*^9}, {3.5733681085139713`*^9, 3.573368111025576*^9}, {3.5733681833629026`*^9, 3.573368184579705*^9}, { 3.573368233454591*^9, 3.573368234047392*^9}}], Cell[BoxData[ RowBox[{"{", RowBox[{ "0.25618`", ",", "0.25618`", ",", "0.25618`", ",", "0.25618`", ",", "0.25618`", ",", "0.25618`", ",", "0.25618`", ",", "0.25618`", ",", "0.25618`", ",", "0.25618`", ",", "0.25618`", ",", "0.25618`", ",", "0.25618`", ",", "0.25618`", ",", "0.25618`", ",", "0.25618`", ",", "0.25618`", ",", "0.25618`", ",", "0.25618`", ",", "0.25618`", ",", "0.25618`", ",", "0.18048`", ",", "0.18048`", ",", "0.18048`", ",", "0.18048`", ",", "0.18048`", ",", "0.59`", ",", "0.59`", ",", "0.59`", ",", "0.59`", ",", "0.59`", ",", "0.59`", ",", "0.59`", ",", "0.59`", ",", "0.59`", ",", "0.59`", ",", "0.59`", ",", "0.59`", ",", "0.59`", ",", "0.59`", ",", "0.59`", ",", "0.59`", ",", "0.59`", ",", "0.59`", ",", "0.59`", ",", "0.59`", ",", "0.59`", ",", "0.5241`", ",", "0.59`", ",", "0.59`", ",", "0.59`", ",", "0.59`", ",", "0.59`", ",", "0.5241`"}], "}"}]], "Output", CellChangeTimes->{3.5748345059542055`*^9, 3.580142418461212*^9}] }, Open ]], Cell[BoxData[ RowBox[{ RowBox[{"(*", " ", RowBox[{ "subtract", " ", "core", " ", "radii", " ", "from", " ", "pair", " ", "distances"}], " ", "*)"}], "\[IndentingNewLine]", RowBox[{ RowBox[{ RowBox[{"Fij", "=", RowBox[{"Dij", "-", "u2"}]}], ";"}], "\[IndentingNewLine]", RowBox[{"(*", RowBox[{ RowBox[{"MatrixForm", "[", "Fij", "]"}], ";"}], "*)"}], "\[IndentingNewLine]", RowBox[{ RowBox[{"Gij", "=", RowBox[{"Table", "[", RowBox[{ RowBox[{"If", "[", RowBox[{ RowBox[{"i", "\[GreaterEqual]", "j"}], ",", RowBox[{"If", "[", RowBox[{ RowBox[{ RowBox[{"Fij", "[", RowBox[{"[", RowBox[{"i", ",", "j"}], "]"}], "]"}], ">", "0"}], ",", RowBox[{"Fij", "[", RowBox[{"[", RowBox[{"i", ",", "j"}], "]"}], "]"}], ",", "0"}], "]"}], ",", "\"\< \>\""}], "]"}], ",", RowBox[{"{", RowBox[{"i", ",", "1", ",", "n"}], "}"}], ",", RowBox[{"{", RowBox[{"j", ",", "1", ",", "n"}], "}"}]}], "]"}]}], ";"}], "\[IndentingNewLine]", RowBox[{"(*", RowBox[{ RowBox[{"MatrixForm", "[", "Gij", "]"}], ";"}], "*)"}]}]}]], "Input", CellChangeTimes->{{3.567958596890297*^9, 3.567958603270708*^9}, { 3.5679587604565845`*^9, 3.5679587707682023`*^9}, {3.5679588272871017`*^9, 3.567958828254304*^9}, {3.567959580066424*^9, 3.5679595814704266`*^9}, { 3.567959624994503*^9, 3.5679596300177116`*^9}, {3.5679597079086485`*^9, 3.567959902877791*^9}, {3.5679599961659546`*^9, 3.5679600446196404`*^9}, { 3.5679609611992497`*^9, 3.567960974006872*^9}, 3.567961975154231*^9, { 3.5679622637079377`*^9, 3.5679622945179915`*^9}, 3.5681142413606625`*^9, 3.568121878697276*^9, {3.5681219332193723`*^9, 3.56812197189184*^9}, { 3.5682778370003624`*^9, 3.5682778397927675`*^9}, {3.569341165522358*^9, 3.569341165537958*^9}, {3.5693418217531104`*^9, 3.5693418217531104`*^9}, { 3.57059671735485*^9, 3.570596744467697*^9}}], Cell[BoxData[{ RowBox[{ RowBox[{"Hij", "=", RowBox[{"Transpose", "[", "Gij", "]"}]}], ";"}], "\[IndentingNewLine]", RowBox[{ RowBox[{"(*", RowBox[{ RowBox[{"MatrixForm", "[", "Hij", "]"}], ";"}], "*)"}]}]}], "Input", CellChangeTimes->{{3.5679601758938704`*^9, 3.5679601965327067`*^9}, { 3.567960427147912*^9, 3.567960432217921*^9}, {3.5679605764089737`*^9, 3.5679605968294096`*^9}, {3.5679607389456596`*^9, 3.5679607643581038`*^9}, 3.5681142501278777`*^9, 3.5681218877140923`*^9, 3.569341165537958*^9, 3.5693418217531104`*^9}], Cell[BoxData[{ RowBox[{ RowBox[{ RowBox[{"Kij", "=", RowBox[{"Hij", "-", "u2"}]}], ";"}], "\[IndentingNewLine]", RowBox[{"(*", RowBox[{ RowBox[{"MatrixForm", "[", "Kij", "]"}], ";"}], "*)"}]}], "\[IndentingNewLine]", RowBox[{ RowBox[{"Lij", "=", RowBox[{"Table", "[", RowBox[{ RowBox[{"If", "[", RowBox[{ RowBox[{"i", "\[LessEqual]", "j"}], ",", RowBox[{"If", "[", RowBox[{ RowBox[{ RowBox[{"Kij", "[", RowBox[{"[", RowBox[{"i", ",", "j"}], "]"}], "]"}], ">", "0"}], ",", RowBox[{"Kij", "[", RowBox[{"[", RowBox[{"i", ",", "j"}], "]"}], "]"}], ",", "0"}], "]"}], ",", "\"\< \>\""}], "]"}], ",", RowBox[{"{", RowBox[{"i", ",", "1", ",", "n"}], "}"}], ",", RowBox[{"{", RowBox[{"j", ",", "1", ",", "n"}], "}"}]}], "]"}]}], ";"}], "\[IndentingNewLine]", RowBox[{ RowBox[{"(*", RowBox[{ RowBox[{"MatrixForm", "[", "Lij", "]"}], ";"}], "*)"}]}]}], "Input", CellChangeTimes->{{3.5679602339571724`*^9, 3.567960257419614*^9}, { 3.567960343406965*^9, 3.567960353500182*^9}, {3.5679604155258913`*^9, 3.567960421422702*^9}, {3.567960854323462*^9, 3.567960874197897*^9}, { 3.5679611596939983`*^9, 3.567961170270817*^9}, {3.5679614000124207`*^9, 3.567961407016833*^9}, {3.5679615066074076`*^9, 3.567961509649413*^9}, 3.5679616124379935`*^9, 3.5679616766477065`*^9, {3.5679617424486217`*^9, 3.5679617456310277`*^9}, 3.567961801276325*^9, {3.5679618582788253`*^9, 3.5679618970760937`*^9}, {3.5679620279135237`*^9, 3.567962030113127*^9}, 3.567962107894864*^9, {3.567962149468937*^9, 3.5679621572533503`*^9}, 3.5679623389156694`*^9, {3.567962645815009*^9, 3.567962648888214*^9}, { 3.567962691647889*^9, 3.567962693020692*^9}, {3.568048161486014*^9, 3.568048162827616*^9}, 3.5680482096900983`*^9, 3.5681142588638926`*^9, 3.568121899632513*^9, 3.5681219958534822`*^9, {3.568277844675576*^9, 3.5682778463603787`*^9}, {3.569341165537958*^9, 3.569341165537958*^9}, { 3.5693418217531104`*^9, 3.5693418217531104`*^9}}], Cell[BoxData[ RowBox[{ RowBox[{"(*", " ", RowBox[{"determine", " ", "bond", " ", "cloud", " ", "radii"}], " ", "*)"}], "\[IndentingNewLine]", RowBox[{ RowBox[{ RowBox[{"Lij", "=", RowBox[{"Table", "[", RowBox[{ RowBox[{"If", "[", RowBox[{ RowBox[{"i", "\[LessEqual]", "j"}], ",", RowBox[{"If", "[", RowBox[{ RowBox[{ RowBox[{"Lij", "[", RowBox[{"[", RowBox[{"i", ",", "j"}], "]"}], "]"}], ">", "0"}], ",", RowBox[{"If", "[", RowBox[{ RowBox[{ RowBox[{"u", "[", RowBox[{"[", "j", "]"}], "]"}], "\[NotEqual]", "\"\\""}], ",", RowBox[{"0.5", "*", RowBox[{"Lij", "[", RowBox[{"[", RowBox[{"i", ",", "j"}], "]"}], "]"}]}], ",", RowBox[{"Lij", "[", RowBox[{"[", RowBox[{"i", ",", "j"}], "]"}], "]"}]}], "]"}], ",", "0"}], "]"}], ",", "\"\< \>\""}], "]"}], ",", RowBox[{"{", RowBox[{"i", ",", "1", ",", "n"}], "}"}], ",", RowBox[{"{", RowBox[{"j", ",", "1", ",", "n"}], "}"}]}], "]"}]}], ";"}], " ", "\[IndentingNewLine]", RowBox[{ RowBox[{"Qij", "=", "Lij"}], ";"}], "\[IndentingNewLine]", RowBox[{"(*", RowBox[{ RowBox[{"MatrixForm", "[", "Lij", "]"}], ";"}], "*)"}]}]}]], "Input", CellChangeTimes->{{3.5679627617388124`*^9, 3.567962837461345*^9}, { 3.567963118121438*^9, 3.567963118698639*^9}, {3.5679631520670977`*^9, 3.5679631541731014`*^9}, {3.5679631898191643`*^9, 3.5679632154656096`*^9}, {3.5679635823158536`*^9, 3.56796361468591*^9}, { 3.567963691516045*^9, 3.567963693590849*^9}, {3.567963737957327*^9, 3.567963807299449*^9}, {3.568048114904332*^9, 3.5680481161835346`*^9}, 3.5680482221389203`*^9, {3.5680485003498087`*^9, 3.5680485123618298`*^9}, 3.5681142659931054`*^9, 3.5681219084621286`*^9, {3.568277848107582*^9, 3.5682778496519847`*^9}, {3.5683793122399254`*^9, 3.568379313019926*^9}, { 3.568379456758579*^9, 3.56837947986222*^9}, 3.5683796000760307`*^9, { 3.5683796473285136`*^9, 3.5683796831617765`*^9}, {3.568381744939398*^9, 3.5683817743298492`*^9}, {3.56846523720809*^9, 3.568465240218895*^9}, 3.569341165537958*^9, 3.5693418217531104`*^9, {3.5705967846533675`*^9, 3.5705968020785985`*^9}}], Cell[CellGroupData[{ Cell[BoxData[ RowBox[{ RowBox[{"(*", " ", RowBox[{"determine", " ", "kinetic", " ", "energy"}], " ", "*)"}], "\[IndentingNewLine]", RowBox[{ RowBox[{ RowBox[{"Nij", "=", RowBox[{"Table", "[", RowBox[{ RowBox[{"If", "[", RowBox[{ RowBox[{"i", "\[LessEqual]", "j"}], ",", RowBox[{"If", "[", RowBox[{ RowBox[{ RowBox[{"Lij", "[", RowBox[{"[", RowBox[{"i", ",", "j"}], "]"}], "]"}], ">", "0"}], ",", RowBox[{"2.25", "/", RowBox[{ RowBox[{"Lij", "[", RowBox[{"[", RowBox[{"i", ",", "j"}], "]"}], "]"}], "^", "2"}]}], ",", "0"}], "]"}], ",", "\"\< \>\""}], "]"}], ",", RowBox[{"{", RowBox[{"i", ",", "1", ",", "n"}], "}"}], ",", RowBox[{"{", RowBox[{"j", ",", "1", ",", "n"}], "}"}]}], "]"}]}], ";"}], "\n", RowBox[{"(*", RowBox[{"MatrixForm", "[", "Nij", "]"}], "*)"}], "\[IndentingNewLine]", RowBox[{"Tval", "=", RowBox[{"Sum", "[", RowBox[{ RowBox[{"If", "[", RowBox[{ RowBox[{"i", "\[LessEqual]", "j"}], ",", RowBox[{"Nij", "[", RowBox[{"[", RowBox[{"i", ",", "j"}], "]"}], "]"}], ",", "0"}], "]"}], ",", RowBox[{"{", RowBox[{"i", ",", "1", ",", "n"}], "}"}], ",", RowBox[{"{", RowBox[{"j", ",", "1", ",", "n"}], "}"}]}], "]"}]}], "\n", RowBox[{"Tcor", "=", RowBox[{"Sum", "[", RowBox[{ RowBox[{"If", "[", RowBox[{ RowBox[{ RowBox[{"u", "[", RowBox[{"[", "i", "]"}], "]"}], "\[NotEqual]", "\"\\""}], ",", RowBox[{"2.25", "/", RowBox[{ RowBox[{"u2", "[", RowBox[{"[", "i", "]"}], "]"}], "^", "2"}]}], ",", "0"}], "]"}], ",", RowBox[{"{", RowBox[{"i", ",", "1", ",", "n"}], "}"}]}], "]"}]}], "\n", RowBox[{"Ttot", "=", RowBox[{"Tval", "+", "Tcor"}]}], " ", RowBox[{"(*", " ", RowBox[{"plus", " ", "\[Pi]", " ", "and", " ", "lone", " ", RowBox[{"pairs", ":", " ", RowBox[{"+", " ", "8.7616"}]}]}], " ", "*)"}], "\n", RowBox[{"TvalH", "=", RowBox[{"Sum", "[", RowBox[{ RowBox[{"If", "[", RowBox[{ RowBox[{"(", RowBox[{ RowBox[{"i", "\[LessEqual]", "j"}], " ", "&&", " ", RowBox[{ RowBox[{"u", "[", RowBox[{"[", "j", "]"}], "]"}], "\[Equal]", " ", "\"\\""}]}], ")"}], ",", RowBox[{"Nij", "[", RowBox[{"[", RowBox[{"i", ",", "j"}], "]"}], "]"}], ",", "0"}], "]"}], ",", RowBox[{"{", RowBox[{"i", ",", "1", ",", "n"}], "}"}], ",", RowBox[{"{", RowBox[{"j", ",", "1", ",", "n"}], "}"}]}], "]"}]}], "\n", RowBox[{"TvalC", "=", RowBox[{"Tval", "-", "TvalH"}]}]}]}]], "Input", CellChangeTimes->{{3.5679628944794455`*^9, 3.5679629710755796`*^9}, { 3.567963889963994*^9, 3.567963933800071*^9}, {3.5680478391738477`*^9, 3.5680478414358516`*^9}, 3.568048231171336*^9, {3.5680482823550262`*^9, 3.56804828449223*^9}, 3.5680483349271183`*^9, 3.568114273059918*^9, 3.5681219175101447`*^9, {3.568277851305588*^9, 3.568277857295998*^9}, { 3.5688722635742655`*^9, 3.568872266616271*^9}, 3.5688723032763357`*^9, 3.5688725225503206`*^9, 3.5692365125035076`*^9, {3.5692366381461277`*^9, 3.5692366389105296`*^9}, {3.5692366963654304`*^9, 3.5692366986898346`*^9}, 3.5693411655535583`*^9, 3.5693418217687106`*^9, {3.5705968460394754`*^9, 3.5705968602823005`*^9}, 3.574657067547189*^9}], Cell[BoxData["96.39472911546898`"], "Output", CellChangeTimes->{3.574834505985406*^9, 3.5801424184924126`*^9}], Cell[BoxData["1065.3427280430255`"], "Output", CellChangeTimes->{3.574834505985406*^9, 3.5801424184924126`*^9}], Cell[BoxData["1161.7374571584946`"], "Output", CellChangeTimes->{3.574834505985406*^9, 3.5801424184924126`*^9}], Cell[BoxData["45.96663019438509`"], "Output", CellChangeTimes->{3.574834505985406*^9, 3.5801424185080123`*^9}], Cell[BoxData["50.42809892108389`"], "Output", CellChangeTimes->{3.574834505985406*^9, 3.5801424185080123`*^9}] }, Open ]], Cell[BoxData[{ RowBox[{ RowBox[{"Mij", "=", RowBox[{"Prepend", "[", RowBox[{"Qij", ",", "u"}], "]"}]}], ";"}], "\[IndentingNewLine]", RowBox[{ RowBox[{"Oij", "=", RowBox[{"Transpose", "[", "Mij", "]"}]}], ";"}], "\[IndentingNewLine]", RowBox[{ RowBox[{"Pij", "=", RowBox[{"Prepend", "[", RowBox[{"Oij", ",", RowBox[{"Prepend", "[", RowBox[{"u", ",", "\"\< \>\""}], "]"}]}], "]"}]}], ";"}]}], "Input", CellChangeTimes->{{3.568045828002715*^9, 3.56804588761042*^9}, 3.5680459828797874`*^9, {3.568046033938677*^9, 3.5680460518787084`*^9}, { 3.568046989190755*^9, 3.5680470284404235`*^9}, {3.568047061028881*^9, 3.568047085567724*^9}, {3.5680471562982483`*^9, 3.568047169199471*^9}, { 3.568047223393966*^9, 3.568047364059413*^9}, {3.568047417286707*^9, 3.5680474225127163`*^9}, {3.5680474583459787`*^9, 3.568047487861231*^9}, { 3.5680475345521126`*^9, 3.5680475468605347`*^9}, {3.5680479168775845`*^9, 3.5680479311516094`*^9}, {3.568048066918648*^9, 3.568048067667449*^9}, { 3.5680483816336*^9, 3.5680483930216208`*^9}, {3.568048424159275*^9, 3.568048450211321*^9}, {3.5680486326224413`*^9, 3.5680486370996494`*^9}, { 3.5680487358166227`*^9, 3.5680487967191296`*^9}, 3.568048834377596*^9, 3.568048984418659*^9, {3.5680490255559316`*^9, 3.5680490790796256`*^9}, { 3.5680491274553103`*^9, 3.5680491280949116`*^9}, {3.5680491782333994`*^9, 3.568049231944294*^9}, {3.568049361533722*^9, 3.5680493691933355`*^9}, { 3.568049422171028*^9, 3.568049427490638*^9}, {3.568049476427923*^9, 3.5680495489368505`*^9}, {3.568049620634577*^9, 3.5680496274361887`*^9}, { 3.5680496655314555`*^9, 3.568049693876705*^9}, 3.568049746573598*^9, { 3.568049846460573*^9, 3.568049932759925*^9}, {3.568050009059659*^9, 3.5680500167348723`*^9}, {3.5680501572755194`*^9, 3.568050179911159*^9}, 3.5681087021497335`*^9, {3.5726244549749556`*^9, 3.5726244687341795`*^9}, 3.572624583643982*^9, {3.574656664645282*^9, 3.5746566773749037`*^9}, { 3.574656980265036*^9, 3.5746569955686626`*^9}}], Cell[CellGroupData[{ Cell[BoxData[{ RowBox[{ RowBox[{"Eij", "=", RowBox[{"Table", "[", RowBox[{ RowBox[{"If", "[", RowBox[{ RowBox[{"i", "\[GreaterEqual]", "j"}], ",", RowBox[{"Dij", "[", RowBox[{"[", RowBox[{"i", ",", "j"}], "]"}], "]"}], ",", "0"}], "]"}], ",", RowBox[{"{", RowBox[{"i", ",", "1", ",", RowBox[{"bc", "-", "1"}]}], "}"}], ",", RowBox[{"{", RowBox[{"j", ",", "1", ",", RowBox[{"bc", "-", "1"}]}], "}"}]}], "]"}]}], ";"}], "\[IndentingNewLine]", RowBox[{"CD", "=", RowBox[{"Select", "[", RowBox[{ RowBox[{"Flatten", "[", "Eij", "]"}], ",", RowBox[{ RowBox[{"(", RowBox[{ RowBox[{"#", "\[GreaterEqual]", "2.4"}], " ", "&&", RowBox[{"#", "\[LessEqual]", "2.6"}]}], ")"}], " ", "&"}]}], "]"}]}], "\[IndentingNewLine]", RowBox[{ RowBox[{"Mean", "[", "CD", "]"}], " ", "\[PlusMinus]", " ", RowBox[{"StandardDeviation", "[", "CD", "]"}]}], "\n", RowBox[{"CC", "=", RowBox[{"Select", "[", RowBox[{ RowBox[{"Flatten", "[", "Eij", "]"}], ",", RowBox[{ RowBox[{"(", RowBox[{"#", "\[GreaterEqual]", "2.6"}], ")"}], " ", "&"}]}], "]"}]}], "\n", RowBox[{ RowBox[{ RowBox[{"Mean", "[", "CC", "]"}], " ", "\[PlusMinus]", " ", RowBox[{"StandardDeviation", "[", "CC", "]"}]}], " "}], "\n", RowBox[{ RowBox[{"Eij", "=", RowBox[{"Table", "[", RowBox[{ RowBox[{"If", "[", RowBox[{ RowBox[{"i", "\[GreaterEqual]", "j"}], ",", RowBox[{"Dij", "[", RowBox[{"[", RowBox[{"i", ",", "j"}], "]"}], "]"}], ",", "0"}], "]"}], ",", RowBox[{"{", RowBox[{"i", ",", RowBox[{"bc", "+", "1"}], ",", "n"}], "}"}], ",", RowBox[{"{", RowBox[{"j", ",", "1", ",", RowBox[{"bc", "-", "1"}]}], "}"}]}], "]"}]}], ";"}], "\[IndentingNewLine]", RowBox[{"CH", "=", RowBox[{"Select", "[", RowBox[{ RowBox[{"Flatten", "[", "Eij", "]"}], ",", RowBox[{ RowBox[{"(", RowBox[{ RowBox[{"#", ">", "0"}], " ", "&&", RowBox[{"#", "\[LessEqual]", "2.1"}]}], ")"}], " ", "&"}]}], "]"}]}], "\[IndentingNewLine]", RowBox[{ RowBox[{"Mean", "[", "CH", "]"}], " ", "\[PlusMinus]", " ", RowBox[{"StandardDeviation", "[", "CH", "]"}]}]}], "Input", CellChangeTimes->{{3.568045828002715*^9, 3.56804588761042*^9}, 3.5680459828797874`*^9, {3.568046033938677*^9, 3.5680460518787084`*^9}, { 3.568046989190755*^9, 3.5680470284404235`*^9}, {3.568047061028881*^9, 3.568047085567724*^9}, {3.5680471562982483`*^9, 3.568047169199471*^9}, { 3.568047223393966*^9, 3.568047364059413*^9}, {3.568047417286707*^9, 3.5680474225127163`*^9}, {3.5680474583459787`*^9, 3.568047487861231*^9}, { 3.5680475345521126`*^9, 3.5680475468605347`*^9}, {3.5680479168775845`*^9, 3.5680479311516094`*^9}, {3.568048066918648*^9, 3.568048067667449*^9}, { 3.5680483816336*^9, 3.5680483930216208`*^9}, {3.568048424159275*^9, 3.568048450211321*^9}, {3.5680486326224413`*^9, 3.5680486370996494`*^9}, { 3.5680487358166227`*^9, 3.5680487967191296`*^9}, 3.568048834377596*^9, 3.568048984418659*^9, {3.5680490255559316`*^9, 3.5680490790796256`*^9}, { 3.5680491274553103`*^9, 3.5680491280949116`*^9}, {3.5680491782333994`*^9, 3.568049231944294*^9}, {3.568049361533722*^9, 3.5680493691933355`*^9}, { 3.568049422171028*^9, 3.568049427490638*^9}, {3.568049476427923*^9, 3.5680495489368505`*^9}, {3.568049620634577*^9, 3.5680496274361887`*^9}, { 3.5680496655314555`*^9, 3.568049693876705*^9}, 3.568049746573598*^9, { 3.568049846460573*^9, 3.568049932759925*^9}, {3.568050009059659*^9, 3.5680500167348723`*^9}, {3.5680501572755194`*^9, 3.568050179911159*^9}, 3.5681087021497335`*^9, {3.5726244549749556`*^9, 3.5726244687341795`*^9}, 3.572624583643982*^9, {3.574656664645282*^9, 3.5746566773749037`*^9}, { 3.574656980265036*^9, 3.5746569955686626`*^9}}], Cell[BoxData[ RowBox[{"{", "2.5488389777640843`", "}"}]], "Output", CellChangeTimes->{3.5748345060166054`*^9, 3.5801424185236125`*^9}], Cell[BoxData[ RowBox[{ StyleBox[ RowBox[{"StandardDeviation", "::", "shlen"}], "MessageName"], RowBox[{ ":", " "}], "\<\"The argument \[NoBreak]\\!\\({2.5488389777640843`}\\)\ \[NoBreak] should have at least two elements. \\!\\(\\*ButtonBox[\\\"\ \[RightSkeleton]\\\", ButtonStyle->\\\"Link\\\", ButtonFrame->None, \ ButtonData:>\\\"paclet:ref/StandardDeviation\\\", ButtonNote -> \ \\\"StandardDeviation::shlen\\\"]\\)\"\>"}]], "Message", "MSG", CellChangeTimes->{3.574834506141406*^9, 3.5801424185860124`*^9}], Cell[BoxData[ RowBox[{"2.5488389777640843`", "\[PlusMinus]", RowBox[{"StandardDeviation", "[", RowBox[{"{", "2.5488389777640843`", "}"}], "]"}]}]], "Output", CellChangeTimes->{3.5748345060166054`*^9, 3.580142418601612*^9}], Cell[BoxData[ RowBox[{"{", RowBox[{ "2.9302079521750017`", ",", "2.9309834001467188`", ",", "2.9374648971279256`", ",", "2.889433802400415`", ",", "2.9540969757539264`", ",", "2.8345800955971017`", ",", "2.912545714942949`", ",", "2.9336161175363507`", ",", "2.9015581565210673`", ",", "2.921694914464528`", ",", "2.8651668165891406`", ",", "2.8298431950426655`", ",", "2.887273288244717`", ",", "2.8496622931388442`", ",", "2.9192029302071467`", ",", "2.878468125395748`", ",", "2.9348067804367526`", ",", "2.8941283765538874`", ",", "2.8716760692135157`", ",", "2.9112768740455555`", ",", "2.8512330519029985`", ",", "2.778624017412136`", ",", "2.8543956716201757`", ",", "2.671727110782237`", ",", "2.667765490626876`"}], "}"}]], "Output", CellChangeTimes->{3.5748345060166054`*^9, 3.580142418601612*^9}], Cell[BoxData[ RowBox[{"2.8724572847151353`", "\[PlusMinus]", "0.0737280879522222`"}]], "Output", CellChangeTimes->{3.5748345060166054`*^9, 3.580142418601612*^9}], Cell[BoxData[ RowBox[{"{", RowBox[{ "2.022053960608266`", ",", "2.0221519747106815`", ",", "2.0221271005730834`", ",", "2.0220256663968215`", ",", "2.0221333097985035`", ",", "2.0218854320143453`", ",", "2.0220590207110067`", ",", "2.0219829157078513`", ",", "2.022025634519029`", ",", "2.0220947256701556`", ",", "2.0219799482709417`", ",", "2.0218497494994616`", ",", "2.0219332431508863`", ",", "2.022008457261476`", ",", "2.022047660275224`", ",", "2.0221404267200023`", ",", "2.0220098043519985`", ",", "2.0218634897111936`", ",", "2.0219672368289467`", ",", "2.0220662986042695`", ",", "2.022250856851879`", ",", "1.8141483746965141`", ",", "2.0220607764402523`", ",", "2.0218949010027294`", ",", "2.0219800987445753`", ",", "2.0219871406155687`", ",", "2.0219445908950706`", ",", "1.8141779056681424`"}], "}"}]], "Output", CellChangeTimes->{3.5748345060166054`*^9, 3.580142418601612*^9}], Cell[BoxData[ RowBox[{"2.0071732392963884`", "\[PlusMinus]", "0.054513757635569045`"}]], "Output", CellChangeTimes->{3.5748345060166054`*^9, 3.580142418601612*^9}] }, Open ]], Cell[CellGroupData[{ Cell[BoxData[ RowBox[{ RowBox[{"(*", " ", RowBox[{"count", " ", "C", " ", "atoms"}], " ", "*)"}], "\[IndentingNewLine]", RowBox[{ RowBox[{ RowBox[{"nc", "=", "0"}], ";"}], " ", "\n", RowBox[{"For", "[", RowBox[{ RowBox[{"i", "=", "1"}], ",", RowBox[{"i", "<", RowBox[{"bc", "+", "1"}]}], ",", RowBox[{"i", "++"}], ",", RowBox[{"If", "[", RowBox[{ RowBox[{ RowBox[{"u", "[", RowBox[{"[", "i", "]"}], "]"}], "\[Equal]", "\"\\""}], ",", RowBox[{"nc", "=", RowBox[{"nc", "+", "1"}]}], ",", "nc"}], "]"}]}], "]"}], "\[IndentingNewLine]", RowBox[{ RowBox[{"cnt", "=", RowBox[{"Table", "[", RowBox[{"0", ",", RowBox[{"{", "nc", "}"}]}], "]"}]}], ";"}], "\[IndentingNewLine]", RowBox[{ RowBox[{"pri", "=", "cnt"}], ";", " ", RowBox[{"sec", "=", "cnt"}], ";", RowBox[{"ter", "=", "cnt"}], ";", " ", RowBox[{"qua", "=", "cnt"}], ";"}], "\[IndentingNewLine]", "nc"}]}]], "Input", CellChangeTimes->{{3.568045828002715*^9, 3.56804588761042*^9}, 3.5680459828797874`*^9, {3.568046033938677*^9, 3.5680460518787084`*^9}, { 3.568046989190755*^9, 3.5680470284404235`*^9}, {3.568047061028881*^9, 3.568047085567724*^9}, {3.5680471562982483`*^9, 3.568047169199471*^9}, { 3.568047223393966*^9, 3.568047364059413*^9}, {3.568047417286707*^9, 3.5680474225127163`*^9}, {3.5680474583459787`*^9, 3.568047487861231*^9}, { 3.5680475345521126`*^9, 3.5680475468605347`*^9}, {3.5680479168775845`*^9, 3.5680479311516094`*^9}, {3.568048066918648*^9, 3.568048067667449*^9}, { 3.5680483816336*^9, 3.5680483930216208`*^9}, {3.568048424159275*^9, 3.568048450211321*^9}, {3.5680486326224413`*^9, 3.5680486370996494`*^9}, { 3.5680487358166227`*^9, 3.5680487967191296`*^9}, 3.568048834377596*^9, 3.568048984418659*^9, {3.5680490255559316`*^9, 3.5680490790796256`*^9}, { 3.5680491274553103`*^9, 3.5680491280949116`*^9}, {3.5680491782333994`*^9, 3.568049231944294*^9}, {3.568049361533722*^9, 3.5680493691933355`*^9}, { 3.568049422171028*^9, 3.568049427490638*^9}, {3.568049476427923*^9, 3.5680495489368505`*^9}, {3.568049620634577*^9, 3.5680496274361887`*^9}, { 3.5680496655314555`*^9, 3.568049693876705*^9}, 3.568049746573598*^9, { 3.568049846460573*^9, 3.568049932759925*^9}, {3.568050009059659*^9, 3.5680500167348723`*^9}, {3.5680501572755194`*^9, 3.568050179911159*^9}, 3.5681087021497335`*^9, {3.5726244549749556`*^9, 3.5726244687341795`*^9}, 3.572624583643982*^9, {3.574656664645282*^9, 3.5746566836773148`*^9}, { 3.5746567220533824`*^9, 3.5746567296193953`*^9}}], Cell[BoxData["21"], "Output", CellChangeTimes->{3.5748345061570063`*^9, 3.5801424186172123`*^9}] }, Open ]], Cell[CellGroupData[{ Cell[BoxData[ RowBox[{ RowBox[{"(*", " ", RowBox[{"count", " ", "O", " ", "atoms"}], " ", "*)"}], "\[IndentingNewLine]", RowBox[{ RowBox[{ RowBox[{"no", "=", "0"}], ";"}], " ", "\n", RowBox[{"For", "[", RowBox[{ RowBox[{"i", "=", "1"}], ",", RowBox[{"i", "<", RowBox[{"bc", "+", "1"}]}], ",", RowBox[{"i", "++"}], ",", RowBox[{"If", "[", RowBox[{ RowBox[{ RowBox[{"u", "[", RowBox[{"[", "i", "]"}], "]"}], "\[Equal]", "\"\\""}], ",", RowBox[{"no", "=", RowBox[{"no", "+", "1"}]}], ",", "no"}], "]"}]}], "]"}], "\[IndentingNewLine]", "no"}]}]], "Input", CellChangeTimes->{{3.5747778571769943`*^9, 3.5747779085322847`*^9}}], Cell[BoxData["5"], "Output", CellChangeTimes->{3.574834506172606*^9, 3.5801424186328125`*^9}] }, Open ]], Cell[CellGroupData[{ Cell[BoxData[ RowBox[{ RowBox[{"(*", " ", RowBox[{ "count", " ", "H", " ", "atoms", " ", "bonded", " ", "to", " ", "each", " ", "C", " ", "atom"}], " ", "*)"}], "\[IndentingNewLine]", RowBox[{ RowBox[{ RowBox[{"For", "[", RowBox[{ RowBox[{"j", "=", "1"}], ",", RowBox[{"j", "\[LessEqual]", "nc"}], ",", RowBox[{"j", "++"}], ",", "\[IndentingNewLine]", RowBox[{"For", "[", RowBox[{ RowBox[{"i", "=", RowBox[{"bc", "+", "1"}]}], ",", RowBox[{"i", "\[LessEqual]", "n"}], ",", RowBox[{"i", "++"}], ",", RowBox[{"If", "[", " ", RowBox[{ RowBox[{ RowBox[{"Dij", "[", RowBox[{"[", RowBox[{"i", ",", "j"}], "]"}], "]"}], "\[NotEqual]", "0"}], " ", ",", RowBox[{ RowBox[{"cnt", "[", RowBox[{"[", "j", "]"}], "]"}], "=", RowBox[{ RowBox[{"cnt", "[", RowBox[{"[", "j", "]"}], "]"}], "+", "1"}]}], ",", "0"}], "]"}]}], "]"}]}], "]"}], ";"}], "\[IndentingNewLine]", "cnt"}]}]], "Input", CellChangeTimes->{{3.568045828002715*^9, 3.56804588761042*^9}, 3.5680459828797874`*^9, {3.568046033938677*^9, 3.5680460518787084`*^9}, { 3.568046989190755*^9, 3.5680470284404235`*^9}, {3.568047061028881*^9, 3.568047085567724*^9}, {3.5680471562982483`*^9, 3.568047169199471*^9}, { 3.568047223393966*^9, 3.568047364059413*^9}, {3.568047417286707*^9, 3.5680474225127163`*^9}, {3.5680474583459787`*^9, 3.568047487861231*^9}, { 3.5680475345521126`*^9, 3.5680475468605347`*^9}, {3.5680479168775845`*^9, 3.5680479311516094`*^9}, {3.568048066918648*^9, 3.568048067667449*^9}, { 3.5680483816336*^9, 3.5680483930216208`*^9}, {3.568048424159275*^9, 3.568048450211321*^9}, {3.5680486326224413`*^9, 3.5680486370996494`*^9}, { 3.5680487358166227`*^9, 3.5680487967191296`*^9}, 3.568048834377596*^9, 3.568048984418659*^9, {3.5680490255559316`*^9, 3.5680490790796256`*^9}, { 3.5680491274553103`*^9, 3.5680491280949116`*^9}, {3.5680491782333994`*^9, 3.568049231944294*^9}, {3.568049361533722*^9, 3.5680493691933355`*^9}, { 3.568049422171028*^9, 3.568049427490638*^9}, {3.568049476427923*^9, 3.5680495489368505`*^9}, {3.568049620634577*^9, 3.5680496274361887`*^9}, { 3.5680496655314555`*^9, 3.568049693876705*^9}, 3.568049746573598*^9, { 3.568049846460573*^9, 3.568049932759925*^9}, {3.568050009059659*^9, 3.5680500167348723`*^9}, {3.5680501572755194`*^9, 3.568050179911159*^9}, 3.5681087021497335`*^9, {3.5726244549749556`*^9, 3.5726244687341795`*^9}, 3.572624583643982*^9, {3.574656664645282*^9, 3.5746566836773148`*^9}, { 3.5746567220533824`*^9, 3.5746567296193953`*^9}}], Cell[BoxData[ RowBox[{"{", RowBox[{ "1", ",", "0", ",", "1", ",", "1", ",", "0", ",", "0", ",", "2", ",", "2", ",", "2", ",", "2", ",", "0", ",", "3", ",", "0", ",", "2", ",", "2", ",", "3", ",", "0", ",", "2", ",", "1", ",", "0", ",", "2"}], "}"}]], "Output", CellChangeTimes->{3.5748345061882057`*^9, 3.5801424186484127`*^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.259"}]}], "]"}]}], "]"}], "\[IndentingNewLine]", RowBox[{"For", " ", "[", RowBox[{ RowBox[{"i", "=", "1"}], ",", " ", RowBox[{"i", "\[LessEqual]", "nc"}], ",", RowBox[{"i", "++"}], ",", RowBox[{"If", "[", RowBox[{ RowBox[{ RowBox[{"sec", "[", RowBox[{"[", "i", "]"}], "]"}], "\[NotEqual]", "0"}], ",", RowBox[{ RowBox[{"u2", "[", RowBox[{"[", RowBox[{"sec", "[", RowBox[{"[", "i", "]"}], "]"}], "]"}], "]"}], "=", "0.258"}]}], "]"}]}], "]"}], "\[IndentingNewLine]", RowBox[{"For", " ", "[", RowBox[{ RowBox[{"i", "=", "1"}], ",", " ", RowBox[{"i", "\[LessEqual]", "nc"}], ",", RowBox[{"i", "++"}], ",", RowBox[{"If", "[", RowBox[{ RowBox[{ RowBox[{"ter", "[", RowBox[{"[", "i", "]"}], "]"}], "\[NotEqual]", "0"}], ",", RowBox[{ RowBox[{"u2", "[", RowBox[{"[", RowBox[{"ter", "[", RowBox[{"[", "i", "]"}], "]"}], "]"}], "]"}], "=", "0.2595"}]}], "]"}]}], "]"}], "\[IndentingNewLine]", RowBox[{"For", " ", "[", RowBox[{ RowBox[{"i", "=", "1"}], ",", " ", RowBox[{"i", "\[LessEqual]", "nc"}], ",", RowBox[{"i", "++"}], ",", RowBox[{"If", "[", RowBox[{ RowBox[{ RowBox[{"qua", "[", RowBox[{"[", "i", "]"}], "]"}], "\[NotEqual]", "0"}], ",", RowBox[{ RowBox[{"u2", "[", RowBox[{"[", RowBox[{"qua", "[", RowBox[{"[", "i", "]"}], "]"}], "]"}], "]"}], "=", "0.2595"}]}], "]"}]}], "]"}]}]}]], "Input", CellChangeTimes->{ 3.574656734486604*^9, 3.5746567701950665`*^9, 3.574656840972391*^9, { 3.574674470271285*^9, 3.574674475481694*^9}, {3.574674526181783*^9, 3.574674528927388*^9}, {3.5746746901536713`*^9, 3.5746746947712793`*^9}}], Cell[CellGroupData[{ Cell[BoxData[{ RowBox[{ RowBox[{"con", "=", RowBox[{"Table", "[", RowBox[{ RowBox[{"{", "i", "}"}], ",", RowBox[{"{", RowBox[{"i", ",", "1", ",", "n"}], "}"}]}], "]"}]}], ";", " ", RowBox[{"conj", "=", RowBox[{"Table", "[", RowBox[{"0", ",", RowBox[{"{", "nc", "}"}]}], "]"}]}], ";"}], "\[IndentingNewLine]", RowBox[{ RowBox[{"For", "[", RowBox[{ RowBox[{"i", "=", "1"}], ",", RowBox[{"i", "\[LessEqual]", "n"}], ",", RowBox[{"i", "++"}], ",", "\[IndentingNewLine]", RowBox[{"For", "[", RowBox[{ RowBox[{"j", "=", "1"}], ",", RowBox[{"j", "\[LessEqual]", "n"}], ",", RowBox[{"j", "++"}], ",", RowBox[{"If", "[", " ", RowBox[{ RowBox[{ RowBox[{"Dij", "[", RowBox[{"[", RowBox[{"i", ",", "j"}], "]"}], "]"}], "\[NotEqual]", "0"}], " ", ",", RowBox[{ RowBox[{"con", "[", RowBox[{"[", "i", "]"}], "]"}], "=", RowBox[{"{", RowBox[{ RowBox[{"con", "[", RowBox[{"[", "i", "]"}], "]"}], ",", "j"}], "}"}]}]}], "]"}]}], "]"}]}], "]"}], ";"}], "\[IndentingNewLine]", RowBox[{ RowBox[{ RowBox[{"conn", "=", RowBox[{"Table", "[", RowBox[{ RowBox[{"Flatten", "[", RowBox[{"con", "[", RowBox[{"[", "i", "]"}], "]"}], "]"}], ",", RowBox[{"{", RowBox[{"i", ",", "1", ",", "n"}], "}"}]}], "]"}]}], ";"}], "\[IndentingNewLine]", RowBox[{"(*", RowBox[{ RowBox[{ RowBox[{"conn", "[", RowBox[{"[", "10", "]"}], "]"}], "=", RowBox[{"{", RowBox[{"10", ",", "7", ",", "11", ",", "17"}], "}"}]}], ";"}], "*)"}], "\[IndentingNewLine]", RowBox[{"(*", " ", RowBox[{ "identify", " ", "C", " ", "atoms", " ", "at", " ", "double", " ", "bonds"}], " ", "*)"}]}], "\[IndentingNewLine]", RowBox[{ RowBox[{"j", "=", "0"}], ";"}], "\[IndentingNewLine]", RowBox[{ RowBox[{"For", "[", RowBox[{ RowBox[{"i", "=", "1"}], ",", RowBox[{"i", "\[LessEqual]", "nc"}], ",", RowBox[{"i", "++"}], ",", RowBox[{"If", "[", RowBox[{ RowBox[{"(", RowBox[{ RowBox[{ RowBox[{"Length", "[", RowBox[{"conn", "[", RowBox[{"[", "i", "]"}], "]"}], "]"}], "\[Equal]", "4"}], " ", "&&", " ", RowBox[{ RowBox[{"u", "[", RowBox[{"[", RowBox[{"conn", "[", RowBox[{"[", RowBox[{"i", ",", "4"}], "]"}], "]"}], "]"}], "]"}], "\[NotEqual]", "\"\\""}]}], ")"}], ",", RowBox[{ RowBox[{"j", "=", RowBox[{"j", "+", "1"}]}], ";", RowBox[{ RowBox[{"conj", "[", RowBox[{"[", "j", "]"}], "]"}], "=", "i"}]}]}], "]"}]}], "]"}], ";"}], "\[IndentingNewLine]", RowBox[{"conj", "=", RowBox[{"Take", "[", RowBox[{"conj", ",", RowBox[{"{", RowBox[{"1", ",", "j"}], "}"}]}], "]"}]}], "\[IndentingNewLine]", RowBox[{"nj", "=", RowBox[{"Length", "[", "conj", "]"}]}], "\[IndentingNewLine]", RowBox[{"MatrixForm", "[", RowBox[{"conn", ",", " ", RowBox[{"TableAlignments", "\[Rule]", "Left"}]}], "]"}]}], "Input", CellChangeTimes->{{3.568045828002715*^9, 3.56804588761042*^9}, 3.5680459828797874`*^9, {3.568046033938677*^9, 3.5680460518787084`*^9}, { 3.568046989190755*^9, 3.5680470284404235`*^9}, {3.568047061028881*^9, 3.568047085567724*^9}, {3.5680471562982483`*^9, 3.568047169199471*^9}, { 3.568047223393966*^9, 3.568047364059413*^9}, {3.568047417286707*^9, 3.5680474225127163`*^9}, {3.5680474583459787`*^9, 3.568047487861231*^9}, { 3.5680475345521126`*^9, 3.5680475468605347`*^9}, {3.5680479168775845`*^9, 3.5680479311516094`*^9}, {3.568048066918648*^9, 3.568048067667449*^9}, { 3.5680483816336*^9, 3.5680483930216208`*^9}, {3.568048424159275*^9, 3.568048450211321*^9}, {3.5680486326224413`*^9, 3.5680486370996494`*^9}, { 3.5680487358166227`*^9, 3.5680487967191296`*^9}, 3.568048834377596*^9, 3.568048984418659*^9, {3.5680490255559316`*^9, 3.5680490790796256`*^9}, { 3.5680491274553103`*^9, 3.5680491280949116`*^9}, {3.5680491782333994`*^9, 3.568049231944294*^9}, {3.568049361533722*^9, 3.5680493691933355`*^9}, { 3.568049422171028*^9, 3.568049427490638*^9}, {3.568049476427923*^9, 3.5680495489368505`*^9}, {3.568049620634577*^9, 3.5680496274361887`*^9}, { 3.5680496655314555`*^9, 3.568049693876705*^9}, 3.568049746573598*^9, { 3.568049846460573*^9, 3.568049932759925*^9}, {3.568050009059659*^9, 3.5680500167348723`*^9}, {3.5680501572755194`*^9, 3.568050179911159*^9}, 3.5681087021497335`*^9, {3.5726244549749556`*^9, 3.5726244687341795`*^9}, { 3.572624511540655*^9, 3.5726245129758577`*^9}, {3.5726259545431895`*^9, 3.5726259555883913`*^9}, {3.5726268385811424`*^9, 3.5726268436979513`*^9}, {3.5727156260686264`*^9, 3.5727156464110622`*^9}, 3.572767008717453*^9, 3.572767169428935*^9, {3.5727947272385855`*^9, 3.5727947348669987`*^9}, {3.5733216830258026`*^9, 3.573321731307887*^9}, 3.5746648213532076`*^9, 3.5747423225955195`*^9, {3.5747806605331182`*^9, 3.5747807483924723`*^9}, {3.5747809586028414`*^9, 3.57478099722851*^9}}], Cell[BoxData[ RowBox[{"{", RowBox[{"13", ",", "19"}], "}"}]], "Output", CellChangeTimes->{3.574834506203806*^9, 3.580142418664013*^9}], Cell[BoxData["2"], "Output", CellChangeTimes->{3.574834506203806*^9, 3.580142418664013*^9}], Cell[BoxData[ TagBox[ RowBox[{"(", "\[NoBreak]", TagBox[GridBox[{ { RowBox[{"{", RowBox[{"1", ",", "2", ",", "3", ",", "7", ",", "27"}], "}"}]}, { RowBox[{"{", RowBox[{"2", ",", "1", ",", "5", ",", "8", ",", "12"}], "}"}]}, { RowBox[{"{", RowBox[{"3", ",", "1", ",", "4", ",", "10", ",", "28"}], "}"}]}, { RowBox[{"{", RowBox[{"4", ",", "3", ",", "6", ",", "11", ",", "29"}], "}"}]}, { RowBox[{"{", RowBox[{"5", ",", "2", ",", "9", ",", "17", ",", "22"}], "}"}]}, { RowBox[{"{", RowBox[{"6", ",", "4", ",", "13", ",", "15", ",", "16"}], "}"}]}, { RowBox[{"{", RowBox[{"7", ",", "1", ",", "9", ",", "30", ",", "31"}], "}"}]}, { RowBox[{"{", RowBox[{"8", ",", "2", ",", "11", ",", "32", ",", "33"}], "}"}]}, { RowBox[{"{", RowBox[{"9", ",", "5", ",", "7", ",", "34", ",", "35"}], "}"}]}, { RowBox[{"{", RowBox[{"10", ",", "3", ",", "14", ",", "36", ",", "37"}], "}"}]}, { RowBox[{"{", RowBox[{"11", ",", "4", ",", "8", ",", "23"}], "}"}]}, { RowBox[{"{", RowBox[{"12", ",", "2", ",", "38", ",", "39", ",", "40"}], "}"}]}, { RowBox[{"{", RowBox[{"13", ",", "6", ",", "14", ",", "19"}], "}"}]}, { RowBox[{"{", RowBox[{"14", ",", "10", ",", "13", ",", "41", ",", "42"}], "}"}]}, { RowBox[{"{", RowBox[{"15", ",", "6", ",", "18", ",", "43", ",", "44"}], "}"}]}, { RowBox[{"{", RowBox[{"16", ",", "6", ",", "45", ",", "46", ",", "47"}], "}"}]}, { RowBox[{"{", RowBox[{"17", ",", "5", ",", "21", ",", "24"}], "}"}]}, { RowBox[{"{", RowBox[{"18", ",", "15", ",", "20", ",", "49", ",", "50"}], "}"}]}, { RowBox[{"{", RowBox[{"19", ",", "13", ",", "20", ",", "51"}], "}"}]}, { RowBox[{"{", RowBox[{"20", ",", "18", ",", "19", ",", "26"}], "}"}]}, { RowBox[{"{", RowBox[{"21", ",", "17", ",", "25", ",", "52", ",", "53"}], "}"}]}, { RowBox[{"{", RowBox[{"22", ",", "5", ",", "48"}], "}"}]}, { RowBox[{"{", RowBox[{"23", ",", "11"}], "}"}]}, { RowBox[{"{", RowBox[{"24", ",", "17"}], "}"}]}, { RowBox[{"{", RowBox[{"25", ",", "21", ",", "54"}], "}"}]}, { RowBox[{"{", RowBox[{"26", ",", "20"}], "}"}]}, { RowBox[{"{", RowBox[{"27", ",", "1"}], "}"}]}, { RowBox[{"{", RowBox[{"28", ",", "3"}], "}"}]}, { RowBox[{"{", RowBox[{"29", ",", "4"}], "}"}]}, { RowBox[{"{", RowBox[{"30", ",", "7"}], "}"}]}, { RowBox[{"{", RowBox[{"31", ",", "7"}], "}"}]}, { RowBox[{"{", RowBox[{"32", ",", "8"}], "}"}]}, { RowBox[{"{", RowBox[{"33", ",", "8"}], "}"}]}, { RowBox[{"{", RowBox[{"34", ",", "9"}], "}"}]}, { RowBox[{"{", RowBox[{"35", ",", "9"}], "}"}]}, { RowBox[{"{", RowBox[{"36", ",", "10"}], "}"}]}, { RowBox[{"{", RowBox[{"37", ",", "10"}], "}"}]}, { RowBox[{"{", RowBox[{"38", ",", "12"}], "}"}]}, { RowBox[{"{", RowBox[{"39", ",", "12"}], "}"}]}, { RowBox[{"{", RowBox[{"40", ",", "12"}], "}"}]}, { RowBox[{"{", RowBox[{"41", ",", "14"}], "}"}]}, { RowBox[{"{", RowBox[{"42", ",", "14"}], "}"}]}, { RowBox[{"{", RowBox[{"43", ",", "15"}], "}"}]}, { RowBox[{"{", RowBox[{"44", ",", "15"}], "}"}]}, { RowBox[{"{", RowBox[{"45", ",", "16"}], "}"}]}, { RowBox[{"{", RowBox[{"46", ",", "16"}], "}"}]}, { RowBox[{"{", RowBox[{"47", ",", "16"}], "}"}]}, { RowBox[{"{", RowBox[{"48", ",", "22"}], "}"}]}, { RowBox[{"{", RowBox[{"49", ",", "18"}], "}"}]}, { RowBox[{"{", RowBox[{"50", ",", "18"}], "}"}]}, { RowBox[{"{", RowBox[{"51", ",", "19"}], "}"}]}, { RowBox[{"{", RowBox[{"52", ",", "21"}], "}"}]}, { RowBox[{"{", RowBox[{"53", ",", "21"}], "}"}]}, { RowBox[{"{", RowBox[{"54", ",", "25"}], "}"}]} }, 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.574834506203806*^9, 3.580142418664013*^9}] }, Open ]], Cell[CellGroupData[{ Cell[BoxData[ RowBox[{"\[IndentingNewLine]", RowBox[{ RowBox[{ RowBox[{"j", "=", "0"}], ";", " ", RowBox[{"h", "=", "0"}], ";"}], "\[IndentingNewLine]", RowBox[{ RowBox[{"coco", "=", RowBox[{"Table", "[", RowBox[{ RowBox[{"{", RowBox[{"0", ",", "0", ",", "0", ",", "0"}], "}"}], ",", RowBox[{"{", "no", "}"}]}], "]"}]}], ";"}], "\[IndentingNewLine]", RowBox[{ RowBox[{"coch", "=", "coco"}], ";"}], "\[IndentingNewLine]", RowBox[{ RowBox[{"For", "[", RowBox[{ RowBox[{"i", "=", RowBox[{"nc", "+", "1"}]}], ",", " ", RowBox[{"i", "\[LessEqual]", RowBox[{"nc", "+", "no"}]}], ",", " ", RowBox[{"i", "++"}], ",", RowBox[{"If", "[", RowBox[{ RowBox[{ RowBox[{"Length", "[", RowBox[{"conn", "[", RowBox[{"[", "i", "]"}], "]"}], "]"}], "\[Equal]", "2"}], ",", RowBox[{ RowBox[{"j", "=", RowBox[{"j", "+", "1"}]}], ";", RowBox[{ RowBox[{"coco", "[", RowBox[{"[", "j", "]"}], "]"}], "=", RowBox[{"Join", "[", RowBox[{ RowBox[{"{", RowBox[{"conn", "[", RowBox[{"[", RowBox[{"i", ",", "1"}], "]"}], "]"}], "}"}], ",", RowBox[{"Take", "[", RowBox[{ RowBox[{"conn", "[", RowBox[{"[", RowBox[{"conn", "[", RowBox[{"[", RowBox[{"i", ",", "2"}], "]"}], "]"}], "]"}], "]"}], ",", "3"}], "]"}]}], "]"}]}]}], ",", RowBox[{ RowBox[{"h", "=", RowBox[{"h", "+", "1"}]}], ";", RowBox[{ RowBox[{"coch", "[", RowBox[{"[", "h", "]"}], "]"}], "=", RowBox[{"conn", "[", RowBox[{"[", "i", "]"}], "]"}]}]}]}], "]"}]}], "]"}], ";"}], "\[IndentingNewLine]", RowBox[{"coco", "=", RowBox[{"Take", "[", RowBox[{"coco", ",", RowBox[{"{", RowBox[{"1", ",", "j"}], "}"}]}], "]"}]}], "\[IndentingNewLine]", RowBox[{"coch", "=", RowBox[{"Take", "[", RowBox[{"coch", ",", RowBox[{"{", RowBox[{"1", ",", "h"}], "}"}]}], "]"}]}], "\[IndentingNewLine]", RowBox[{ RowBox[{"oj", "=", RowBox[{"Length", "[", "coco", "]"}]}], ";"}], "\[IndentingNewLine]", RowBox[{ RowBox[{"hj", "=", RowBox[{"Length", "[", "coch", "]"}]}], ";"}]}]}]], "Input", CellChangeTimes->{{3.568108824079547*^9, 3.568109012824279*^9}, { 3.568109558076436*^9, 3.568109588168889*^9}, {3.5681097523435774`*^9, 3.5681097637783976`*^9}, {3.5681100381828794`*^9, 3.5681101616726966`*^9}, {3.5681102015307665`*^9, 3.5681102288464146`*^9}, {3.568110263743676*^9, 3.568110267331682*^9}, { 3.5681103163469687`*^9, 3.5681103268925867`*^9}, {3.5681106443375444`*^9, 3.5681106916368275`*^9}, 3.568110873002746*^9, {3.5681109388660617`*^9, 3.5681110268970165`*^9}, {3.568111092526332*^9, 3.568111123461186*^9}, { 3.5681111884196997`*^9, 3.568111192756508*^9}, {3.5681112268113675`*^9, 3.568111366213212*^9}, {3.568111434946933*^9, 3.568111463354583*^9}, { 3.568111544396725*^9, 3.568111547625931*^9}, {3.5681116856081734`*^9, 3.5681117131422215`*^9}, {3.568111864696488*^9, 3.5681119835998964`*^9}, 3.5681120218355637`*^9, {3.56811206543764*^9, 3.568112066389242*^9}, { 3.568112332369709*^9, 3.5681123404505234`*^9}, {3.568112505935614*^9, 3.56811251481203*^9}, {3.5681125623609133`*^9, 3.568112569006525*^9}, { 3.568112648067464*^9, 3.568112734210815*^9}, {3.568112764443668*^9, 3.5681127697320776`*^9}, {3.5681128018681335`*^9, 3.568112843426607*^9}, { 3.568112884641879*^9, 3.5681128887602863`*^9}, {3.5681129663080225`*^9, 3.5681129699584293`*^9}, {3.568113133789917*^9, 3.568113227936082*^9}, { 3.5681132946885996`*^9, 3.5681133044698167`*^9}, {3.568113502200164*^9, 3.568113507348173*^9}, 3.56811354556824*^9, {3.5681222886191964`*^9, 3.5681222896019983`*^9}, {3.568207424138049*^9, 3.5682074415164795`*^9}, 3.568277923134914*^9, 3.568883508322016*^9, 3.568883588350157*^9, 3.5688836441982546`*^9, {3.5703421313965206`*^9, 3.5703421386505337`*^9}, { 3.570342288098796*^9, 3.5703424924279547`*^9}, 3.5709745658726373`*^9, 3.5709746291463485`*^9, {3.5709747534473667`*^9, 3.5709747617933817`*^9}, { 3.5709749537361183`*^9, 3.570975034747061*^9}, {3.5709751055243855`*^9, 3.5709751213584127`*^9}, {3.5709751694532976`*^9, 3.570975200060551*^9}, { 3.571073358435503*^9, 3.5710734289632273`*^9}, {3.571204792969243*^9, 3.571204820940092*^9}, {3.5712048565705547`*^9, 3.571204860002561*^9}, 3.571204896881026*^9, {3.571204943556308*^9, 3.571204987485985*^9}, 3.5712053579722357`*^9, 3.5712054148187356`*^9, 3.5712055260469313`*^9, { 3.571205631237916*^9, 3.5712056608311677`*^9}, {3.571206377683627*^9, 3.5712064172296963`*^9}, {3.571206525727887*^9, 3.571206547427525*^9}, { 3.5712066764397516`*^9, 3.5712067106974115`*^9}, {3.571206757949895*^9, 3.5712067585114956`*^9}, {3.5712073458681273`*^9, 3.571207357053347*^9}, { 3.5712075532392917`*^9, 3.5712076608170805`*^9}, {3.571208007434089*^9, 3.571208247690111*^9}, {3.571208301057805*^9, 3.5712083308850574`*^9}, { 3.571208811958702*^9, 3.571208871488407*^9}, {3.5712089993618317`*^9, 3.5712089996582317`*^9}, {3.5712091105588264`*^9, 3.571209160744115*^9}, { 3.5712092989135575`*^9, 3.5712093003643603`*^9}, {3.571209369940482*^9, 3.5712093926073227`*^9}, {3.5712094586578383`*^9, 3.5712094836958823`*^9}, {3.5712104228175316`*^9, 3.571210434267952*^9}, 3.571210475358424*^9, 3.5712108629099045`*^9, {3.571210903969177*^9, 3.5712109929361334`*^9}, {3.5712110295961976`*^9, 3.5712110392214146`*^9}, {3.571211240071767*^9, 3.5712112940946617`*^9}, { 3.571211404496056*^9, 3.5712114190976815`*^9}, {3.5712115264882703`*^9, 3.5712115363942876`*^9}, {3.571211575924757*^9, 3.5712116183724318`*^9}, { 3.5712116597281046`*^9, 3.571211695062166*^9}, {3.5712117551222715`*^9, 3.5712117807531166`*^9}, {3.571211826835598*^9, 3.5712118443232284`*^9}, { 3.571211962540236*^9, 3.5712119670174437`*^9}, 3.5712123580321307`*^9, { 3.5712123994658036`*^9, 3.571212411181424*^9}, {3.5712172605092583`*^9, 3.571217297153723*^9}, {3.571223622762637*^9, 3.57122364145147*^9}, { 3.5712237454256525`*^9, 3.571223750745262*^9}, {3.571223964808838*^9, 3.571224009097316*^9}, {3.57122674689975*^9, 3.5712267784742055`*^9}, { 3.5712269848157682`*^9, 3.57122698582977*^9}, {3.5712270624259043`*^9, 3.5712270629563055`*^9}, {3.571227212438168*^9, 3.571227212999769*^9}, { 3.571227409778515*^9, 3.5712274489969835`*^9}, {3.571227502177477*^9, 3.571227514127098*^9}, {3.57122758356282*^9, 3.5712276390521173`*^9}, 3.5712276745889797`*^9, {3.571227712746647*^9, 3.5712277584703274`*^9}, { 3.5712349496076813`*^9, 3.571234988008148*^9}, {3.5712351855668955`*^9, 3.5712353359043593`*^9}, {3.5712355859883986`*^9, 3.571235653661318*^9}, { 3.5712356890109797`*^9, 3.571235702208603*^9}, {3.5712449764989214`*^9, 3.5712449799309273`*^9}, {3.5712450401778336`*^9, 3.571245051456653*^9}, { 3.5712450868687153`*^9, 3.5712450934831266`*^9}, {3.571299135517318*^9, 3.571299166342972*^9}, {3.5713069890574045`*^9, 3.5713071726697273`*^9}, { 3.571307301791154*^9, 3.571307304536759*^9}, {3.571307397731323*^9, 3.571307405702937*^9}, {3.571311846659932*^9, 3.5713118507939396`*^9}, { 3.571317129094411*^9, 3.5713171472216425`*^9}, {3.5713172653138494`*^9, 3.5713172753602676`*^9}, {3.5713216932693615`*^9, 3.5713216983081703`*^9}, {3.5713370477995405`*^9, 3.5713370593279605`*^9}, {3.571404339740199*^9, 3.5714046172178864`*^9}, { 3.571404755449729*^9, 3.571404853246301*^9}, {3.571405069743481*^9, 3.571405208989326*^9}, {3.571405268612631*^9, 3.571405277442246*^9}, { 3.5714053796536255`*^9, 3.5714054114932814`*^9}, {3.571405595448805*^9, 3.5714056194884467`*^9}, {3.5714056687221336`*^9, 3.571405677660949*^9}, 3.5714067334520035`*^9, {3.57140676532286*^9, 3.5714067706580687`*^9}, { 3.571406950729185*^9, 3.571406989495253*^9}, {3.5714071848855963`*^9, 3.571407190579606*^9}, 3.5714072350240846`*^9, {3.571412503236558*^9, 3.5714125080413666`*^9}, {3.571412540879424*^9, 3.571412607787942*^9}, { 3.571412668378448*^9, 3.5714128101202965`*^9}, {3.5714128643147917`*^9, 3.571412873862009*^9}, {3.571412908150869*^9, 3.57141290869687*^9}, { 3.571413012374652*^9, 3.5714130213290677`*^9}, {3.571413054603926*^9, 3.5714130713583555`*^9}, 3.5714133323156137`*^9, {3.571730171730853*^9, 3.571730182494872*^9}, {3.5717303501171665`*^9, 3.5717303600855846`*^9}, { 3.5717305482375145`*^9, 3.5717305527147226`*^9}, {3.571760865342704*^9, 3.5717608700695124`*^9}, {3.57176111957635*^9, 3.5717611228835564`*^9}, 3.571761174316847*^9, {3.5717620076459103`*^9, 3.571762008441512*^9}, { 3.571765525077688*^9, 3.571765573718574*^9}, {3.572601603410675*^9, 3.572601639665139*^9}, {3.57260238631365*^9, 3.5726023989340725`*^9}, 3.5726046985809116`*^9, {3.5726052623971024`*^9, 3.572605269729115*^9}, { 3.572606450370389*^9, 3.5726064833176465`*^9}, {3.5726065169513054`*^9, 3.572606523955718*^9}, {3.5726066452459307`*^9, 3.572606662468361*^9}, { 3.5726068118542233`*^9, 3.5726068309330573`*^9}, {3.5726082044218693`*^9, 3.5726082108178806`*^9}, {3.5726129520308228`*^9, 3.5726129692220526`*^9}, {3.5726130228861475`*^9, 3.5726130532750006`*^9}, {3.572624083881504*^9, 3.572624093631521*^9}, { 3.5726247901883445`*^9, 3.572624801233164*^9}, {3.5726249931759005`*^9, 3.572625014937939*^9}, {3.572626882386019*^9, 3.5726268865668263`*^9}, { 3.5726673740642943`*^9, 3.572667386154316*^9}, {3.572707186162225*^9, 3.5727071892978306`*^9}, {3.5727073766385593`*^9, 3.5727073777617617`*^9}, 3.5727091442464643`*^9, 3.572709305488347*^9, {3.5727105300904984`*^9, 3.5727105312605004`*^9}, 3.5727107350904584`*^9, 3.5727108467086544`*^9, 3.572710916331577*^9, {3.5728420867264705`*^9, 3.5728421164913225`*^9}, { 3.572850453192765*^9, 3.5728504884332275`*^9}, {3.5731485879383316`*^9, 3.5731485959879456`*^9}, {3.5731825263710723`*^9, 3.573182535403488*^9}, { 3.5733139065045433`*^9, 3.5733140549856043`*^9}, 3.574655628725462*^9, 3.574657123722888*^9, {3.5746628507577467`*^9, 3.574662854080552*^9}, { 3.5747411461662536`*^9, 3.5747411501130605`*^9}, {3.5747732863761578`*^9, 3.5747733212266192`*^9}, {3.574777246966323*^9, 3.5747777516272087`*^9}, { 3.574778090990205*^9, 3.5747782123584185`*^9}, {3.5747782626217065`*^9, 3.5747782672393146`*^9}, {3.57477829882937*^9, 3.57477835005986*^9}, { 3.5747784095115643`*^9, 3.5747784447520266`*^9}, {3.5747785201625586`*^9, 3.574778535122985*^9}, {3.5747785781478605`*^9, 3.574778578319461*^9}, { 3.5747786106427174`*^9, 3.574778688830055*^9}, {3.5747787248193183`*^9, 3.5747787708393993`*^9}, 3.574778803895857*^9, {3.5747790916071625`*^9, 3.5747790975975733`*^9}, {3.574779153835672*^9, 3.574779165457692*^9}, { 3.5747792016185555`*^9, 3.574779212008174*^9}, {3.5747792458290334`*^9, 3.5747792599314585`*^9}, {3.5747792935339174`*^9, 3.574779301552331*^9}, { 3.574779474915436*^9, 3.574779529047531*^9}, {3.5747795770176153`*^9, 3.574779592914043*^9}, {3.5747796386065235`*^9, 3.574779641742129*^9}, { 3.574779726762278*^9, 3.57477972782308*^9}, 3.5747798402368774`*^9, { 3.5747800908513174`*^9, 3.5747801971811047`*^9}, {3.5747802368675737`*^9, 3.5747802741828394`*^9}, {3.574780331856141*^9, 3.574780343462561*^9}, { 3.574780380434626*^9, 3.5747803867058372`*^9}, {3.5747804240679026`*^9, 3.574780436781925*^9}, {3.574780765302902*^9, 3.574780854581859*^9}, { 3.574785122296955*^9, 3.574785156398615*^9}}], Cell[BoxData[ RowBox[{"{", RowBox[{ RowBox[{"{", RowBox[{"23", ",", "11", ",", "4", ",", "8"}], "}"}], ",", RowBox[{"{", RowBox[{"24", ",", "17", ",", "5", ",", "21"}], "}"}], ",", RowBox[{"{", RowBox[{"26", ",", "20", ",", "18", ",", "19"}], "}"}]}], "}"}]], "Output", CellChangeTimes->{3.574834506219406*^9, 3.5801424187888126`*^9}], Cell[BoxData[ RowBox[{"{", RowBox[{ RowBox[{"{", RowBox[{"22", ",", "5", ",", "48"}], "}"}], ",", RowBox[{"{", RowBox[{"25", ",", "21", ",", "54"}], "}"}]}], "}"}]], "Output", CellChangeTimes->{3.574834506219406*^9, 3.5801424187888126`*^9}] }, Open ]], Cell[BoxData[{ RowBox[{ RowBox[{ RowBox[{"Clear", "[", RowBox[{ "c", ",", "v", ",", "p", ",", "Q", ",", "P", ",", "v1", ",", "v2", ",", "nk", ",", "nl", ",", "i"}], "]"}], ";"}], " "}], "\[IndentingNewLine]", RowBox[{ RowBox[{"rpo", "=", "1.4"}], ";"}], "\[IndentingNewLine]", RowBox[{ RowBox[{ RowBox[{"rpi", "=", "1.4"}], ";"}], "\[IndentingNewLine]", RowBox[{"(*", RowBox[{ RowBox[{"tplo", "=", RowBox[{"{", RowBox[{"0", ",", "0", ",", "0"}], "}"}]}], ";", "\[IndentingNewLine]", RowBox[{"tplu", "=", RowBox[{"{", RowBox[{"0", ",", "0", ",", "0"}], "}"}]}], ";"}], "*)"}]}], "\[IndentingNewLine]", RowBox[{ RowBox[{ RowBox[{"P", "=", "3"}], ";", " ", RowBox[{"c", "=", RowBox[{"{", RowBox[{"0", ",", "0", ",", "0", ",", "0", ",", "0"}], "}"}]}], ";"}], " "}]}], "Input", CellChangeTimes->{{3.568108824079547*^9, 3.568109012824279*^9}, { 3.568109558076436*^9, 3.568109588168889*^9}, {3.5681097523435774`*^9, 3.5681097637783976`*^9}, {3.5681100381828794`*^9, 3.5681101616726966`*^9}, {3.5681102015307665`*^9, 3.5681102288464146`*^9}, {3.568110263743676*^9, 3.568110267331682*^9}, { 3.5681103163469687`*^9, 3.5681103268925867`*^9}, {3.5681106443375444`*^9, 3.5681106916368275`*^9}, 3.568110873002746*^9, {3.5681109388660617`*^9, 3.5681110268970165`*^9}, {3.568111092526332*^9, 3.568111123461186*^9}, { 3.5681111884196997`*^9, 3.568111192756508*^9}, {3.5681112268113675`*^9, 3.568111366213212*^9}, {3.568111434946933*^9, 3.568111463354583*^9}, { 3.568111544396725*^9, 3.568111547625931*^9}, {3.5681116856081734`*^9, 3.5681117131422215`*^9}, {3.568111864696488*^9, 3.5681119835998964`*^9}, 3.5681120218355637`*^9, {3.56811206543764*^9, 3.568112066389242*^9}, { 3.568112332369709*^9, 3.5681123404505234`*^9}, {3.568112505935614*^9, 3.56811251481203*^9}, {3.5681125623609133`*^9, 3.568112569006525*^9}, { 3.568112648067464*^9, 3.568112734210815*^9}, {3.568112764443668*^9, 3.5681127697320776`*^9}, {3.5681128018681335`*^9, 3.568112843426607*^9}, { 3.568112884641879*^9, 3.5681128887602863`*^9}, {3.5681129663080225`*^9, 3.5681129699584293`*^9}, {3.568113133789917*^9, 3.568113227936082*^9}, { 3.5681132946885996`*^9, 3.5681133044698167`*^9}, {3.568113502200164*^9, 3.568113507348173*^9}, 3.56811354556824*^9, {3.5681222886191964`*^9, 3.5681222896019983`*^9}, {3.568207424138049*^9, 3.5682074415164795`*^9}, 3.568277923134914*^9, 3.568883508322016*^9, 3.568883588350157*^9, 3.5688836441982546`*^9, {3.5703421313965206`*^9, 3.5703421386505337`*^9}, { 3.570342288098796*^9, 3.5703424924279547`*^9}, 3.5709745658726373`*^9, 3.5709746291463485`*^9, {3.5709747534473667`*^9, 3.5709747617933817`*^9}, { 3.5709749537361183`*^9, 3.570975034747061*^9}, {3.5709751055243855`*^9, 3.5709751213584127`*^9}, {3.5709751694532976`*^9, 3.570975200060551*^9}, { 3.571073358435503*^9, 3.5710734289632273`*^9}, {3.571204792969243*^9, 3.571204820940092*^9}, {3.5712048565705547`*^9, 3.571204860002561*^9}, 3.571204896881026*^9, {3.571204943556308*^9, 3.571204987485985*^9}, 3.5712053579722357`*^9, 3.5712054148187356`*^9, 3.5712055260469313`*^9, { 3.571205631237916*^9, 3.5712056608311677`*^9}, {3.571206377683627*^9, 3.5712064172296963`*^9}, {3.571206525727887*^9, 3.571206547427525*^9}, { 3.5712066764397516`*^9, 3.5712067106974115`*^9}, {3.571206757949895*^9, 3.5712067585114956`*^9}, {3.5712073458681273`*^9, 3.571207357053347*^9}, { 3.5712075532392917`*^9, 3.5712076608170805`*^9}, {3.571208007434089*^9, 3.571208247690111*^9}, {3.571208301057805*^9, 3.5712083308850574`*^9}, { 3.571208811958702*^9, 3.571208871488407*^9}, {3.5712089993618317`*^9, 3.5712089996582317`*^9}, {3.5712091105588264`*^9, 3.571209160744115*^9}, { 3.5712092989135575`*^9, 3.5712093003643603`*^9}, {3.571209369940482*^9, 3.5712093926073227`*^9}, {3.5712094586578383`*^9, 3.5712094836958823`*^9}, {3.5712104228175316`*^9, 3.571210434267952*^9}, 3.571210475358424*^9, 3.5712108629099045`*^9, {3.571210903969177*^9, 3.5712109929361334`*^9}, {3.5712110295961976`*^9, 3.5712110392214146`*^9}, {3.571211240071767*^9, 3.5712112940946617`*^9}, { 3.571211404496056*^9, 3.5712114190976815`*^9}, {3.5712115264882703`*^9, 3.5712115363942876`*^9}, {3.571211575924757*^9, 3.5712116183724318`*^9}, { 3.5712116597281046`*^9, 3.571211695062166*^9}, {3.5712117551222715`*^9, 3.5712117807531166`*^9}, {3.571211826835598*^9, 3.5712118443232284`*^9}, { 3.571211962540236*^9, 3.5712119670174437`*^9}, 3.5712123580321307`*^9, { 3.5712123994658036`*^9, 3.571212411181424*^9}, {3.5712172605092583`*^9, 3.571217297153723*^9}, {3.571223622762637*^9, 3.57122364145147*^9}, { 3.5712237454256525`*^9, 3.571223750745262*^9}, {3.571223964808838*^9, 3.571224009097316*^9}, {3.57122674689975*^9, 3.5712267784742055`*^9}, { 3.5712269848157682`*^9, 3.57122698582977*^9}, {3.5712270624259043`*^9, 3.5712270629563055`*^9}, {3.571227212438168*^9, 3.571227212999769*^9}, { 3.571227409778515*^9, 3.5712274489969835`*^9}, {3.571227502177477*^9, 3.571227514127098*^9}, {3.57122758356282*^9, 3.5712276390521173`*^9}, 3.5712276745889797`*^9, {3.571227712746647*^9, 3.5712277584703274`*^9}, { 3.5712349496076813`*^9, 3.571234988008148*^9}, {3.5712351855668955`*^9, 3.5712353359043593`*^9}, {3.5712355859883986`*^9, 3.571235653661318*^9}, { 3.5712356890109797`*^9, 3.571235702208603*^9}, {3.5712449764989214`*^9, 3.5712449799309273`*^9}, {3.5712450401778336`*^9, 3.571245051456653*^9}, { 3.5712450868687153`*^9, 3.5712450934831266`*^9}, {3.571299135517318*^9, 3.571299166342972*^9}, {3.5713069890574045`*^9, 3.5713071726697273`*^9}, { 3.571307301791154*^9, 3.571307304536759*^9}, {3.571307397731323*^9, 3.571307405702937*^9}, {3.571311846659932*^9, 3.5713118507939396`*^9}, { 3.571317129094411*^9, 3.5713171472216425`*^9}, {3.5713172653138494`*^9, 3.5713172753602676`*^9}, {3.5713216932693615`*^9, 3.5713216983081703`*^9}, {3.5713370477995405`*^9, 3.5713370593279605`*^9}, {3.571404339740199*^9, 3.5714046172178864`*^9}, { 3.571404755449729*^9, 3.571404853246301*^9}, {3.571405069743481*^9, 3.571405208989326*^9}, {3.571405268612631*^9, 3.571405277442246*^9}, { 3.5714053796536255`*^9, 3.5714054114932814`*^9}, {3.571405595448805*^9, 3.5714056194884467`*^9}, {3.5714056687221336`*^9, 3.571405677660949*^9}, 3.5714067334520035`*^9, {3.57140676532286*^9, 3.5714067706580687`*^9}, { 3.571406950729185*^9, 3.571406989495253*^9}, {3.5714071848855963`*^9, 3.571407190579606*^9}, 3.5714072350240846`*^9, {3.571412503236558*^9, 3.5714125080413666`*^9}, {3.571412540879424*^9, 3.571412607787942*^9}, { 3.571412668378448*^9, 3.5714128101202965`*^9}, {3.5714128643147917`*^9, 3.571412873862009*^9}, {3.571412908150869*^9, 3.57141290869687*^9}, { 3.571413012374652*^9, 3.5714130213290677`*^9}, {3.571413054603926*^9, 3.5714130713583555`*^9}, 3.5714133323156137`*^9, {3.571730171730853*^9, 3.571730182494872*^9}, {3.5717303501171665`*^9, 3.5717303600855846`*^9}, { 3.5717305482375145`*^9, 3.5717305527147226`*^9}, {3.571760865342704*^9, 3.5717608700695124`*^9}, {3.57176111957635*^9, 3.5717611228835564`*^9}, 3.571761174316847*^9, {3.5717620076459103`*^9, 3.571762008441512*^9}, { 3.571765525077688*^9, 3.571765573718574*^9}, {3.572601603410675*^9, 3.572601639665139*^9}, {3.57260238631365*^9, 3.5726023989340725`*^9}, 3.5726046985809116`*^9, {3.5726052623971024`*^9, 3.572605269729115*^9}, { 3.572606450370389*^9, 3.5726064833176465`*^9}, {3.5726065169513054`*^9, 3.572606523955718*^9}, {3.5726066452459307`*^9, 3.572606662468361*^9}, { 3.5726068118542233`*^9, 3.5726068309330573`*^9}, {3.5726082044218693`*^9, 3.5726082108178806`*^9}, {3.5726129520308228`*^9, 3.5726129692220526`*^9}, {3.5726130228861475`*^9, 3.5726130532750006`*^9}, {3.572624083881504*^9, 3.572624093631521*^9}, { 3.5726247901883445`*^9, 3.572624801233164*^9}, {3.5726249931759005`*^9, 3.572625014937939*^9}, {3.572626882386019*^9, 3.5726268865668263`*^9}, { 3.5726673740642943`*^9, 3.572667386154316*^9}, {3.572707186162225*^9, 3.5727071892978306`*^9}, {3.5727073766385593`*^9, 3.5727073777617617`*^9}, 3.5727091442464643`*^9, 3.572709305488347*^9, {3.5727105300904984`*^9, 3.5727105312605004`*^9}, 3.5727107350904584`*^9, 3.5727108467086544`*^9, 3.572710916331577*^9, {3.5728420867264705`*^9, 3.5728421164913225`*^9}, { 3.572850453192765*^9, 3.5728504884332275`*^9}, {3.5731485879383316`*^9, 3.5731485959879456`*^9}, {3.5731825263710723`*^9, 3.573182535403488*^9}, { 3.5733139065045433`*^9, 3.5733140549856043`*^9}, 3.574655628725462*^9, 3.574657123722888*^9, {3.5746628507577467`*^9, 3.574662854080552*^9}, { 3.5747411461662536`*^9, 3.5747411501130605`*^9}, {3.5747732863761578`*^9, 3.5747733212266192`*^9}, {3.574777246966323*^9, 3.574777607030555*^9}, { 3.5747831833383493`*^9, 3.5747831840715504`*^9}, {3.5747851902662745`*^9, 3.574785199875891*^9}, 3.5748282451644087`*^9}], Cell["\<\ (*--------------------------------------------------------------------------*) (* next: \[Pi]-clouds for C,half occ each above and below *)\ \>", "Text", CellChangeTimes->{{3.568108824079547*^9, 3.568109012824279*^9}, { 3.568109558076436*^9, 3.568109588168889*^9}, {3.5681097523435774`*^9, 3.5681097637783976`*^9}, {3.5681100381828794`*^9, 3.5681101616726966`*^9}, {3.5681102015307665`*^9, 3.5681102288464146`*^9}, {3.568110263743676*^9, 3.568110267331682*^9}, { 3.5681103163469687`*^9, 3.5681103268925867`*^9}, {3.5681106443375444`*^9, 3.5681106916368275`*^9}, 3.568110873002746*^9, {3.5681109388660617`*^9, 3.5681110268970165`*^9}, {3.568111092526332*^9, 3.568111123461186*^9}, { 3.5681111884196997`*^9, 3.568111192756508*^9}, {3.5681112268113675`*^9, 3.568111366213212*^9}, {3.568111434946933*^9, 3.568111463354583*^9}, { 3.568111544396725*^9, 3.568111547625931*^9}, {3.5681116856081734`*^9, 3.5681117131422215`*^9}, {3.568111864696488*^9, 3.5681119835998964`*^9}, 3.5681120218355637`*^9, {3.56811206543764*^9, 3.568112066389242*^9}, { 3.568112332369709*^9, 3.5681123404505234`*^9}, {3.568112505935614*^9, 3.56811251481203*^9}, {3.5681125623609133`*^9, 3.568112569006525*^9}, { 3.568112648067464*^9, 3.568112734210815*^9}, {3.568112764443668*^9, 3.5681127697320776`*^9}, {3.5681128018681335`*^9, 3.568112843426607*^9}, { 3.568112884641879*^9, 3.5681128887602863`*^9}, {3.5681129663080225`*^9, 3.5681129699584293`*^9}, {3.568113133789917*^9, 3.568113227936082*^9}, { 3.5681132946885996`*^9, 3.5681133044698167`*^9}, {3.568113502200164*^9, 3.568113507348173*^9}, 3.56811354556824*^9, {3.5681222886191964`*^9, 3.5681222896019983`*^9}, {3.568207424138049*^9, 3.5682074415164795`*^9}, 3.568277923134914*^9, 3.568883508322016*^9, 3.568883588350157*^9, 3.5688836441982546`*^9, {3.5703421313965206`*^9, 3.5703421386505337`*^9}, { 3.570342288098796*^9, 3.5703424924279547`*^9}, 3.5709745658726373`*^9, 3.5709746291463485`*^9, {3.5709747534473667`*^9, 3.5709747617933817`*^9}, { 3.5709749537361183`*^9, 3.570975034747061*^9}, {3.5709751055243855`*^9, 3.5709751213584127`*^9}, {3.5709751694532976`*^9, 3.570975200060551*^9}, { 3.571073358435503*^9, 3.5710734289632273`*^9}, {3.571204792969243*^9, 3.571204820940092*^9}, {3.5712048565705547`*^9, 3.571204860002561*^9}, 3.571204896881026*^9, {3.571204943556308*^9, 3.571204987485985*^9}, 3.5712053579722357`*^9, 3.5712054148187356`*^9, 3.5712055260469313`*^9, { 3.571205631237916*^9, 3.5712056608311677`*^9}, {3.571206377683627*^9, 3.5712064172296963`*^9}, {3.571206525727887*^9, 3.571206547427525*^9}, { 3.5712066764397516`*^9, 3.5712067106974115`*^9}, {3.571206757949895*^9, 3.5712067585114956`*^9}, {3.5712073458681273`*^9, 3.571207357053347*^9}, { 3.5712075532392917`*^9, 3.5712076608170805`*^9}, {3.571208007434089*^9, 3.571208247690111*^9}, {3.571208301057805*^9, 3.5712083308850574`*^9}, { 3.571208811958702*^9, 3.571208871488407*^9}, {3.5712089993618317`*^9, 3.5712089996582317`*^9}, {3.5712091105588264`*^9, 3.571209160744115*^9}, { 3.5712092989135575`*^9, 3.5712093003643603`*^9}, {3.571209369940482*^9, 3.5712093926073227`*^9}, {3.5712094586578383`*^9, 3.5712094836958823`*^9}, {3.5712104228175316`*^9, 3.571210434267952*^9}, 3.571210475358424*^9, 3.5712108629099045`*^9, {3.571210903969177*^9, 3.5712109929361334`*^9}, {3.5712110295961976`*^9, 3.5712110392214146`*^9}, {3.571211240071767*^9, 3.5712112940946617`*^9}, { 3.571211404496056*^9, 3.5712114190976815`*^9}, {3.5712115264882703`*^9, 3.5712115363942876`*^9}, {3.571211575924757*^9, 3.5712116183724318`*^9}, { 3.5712116597281046`*^9, 3.571211695062166*^9}, {3.5712117551222715`*^9, 3.5712117807531166`*^9}, {3.571211826835598*^9, 3.5712118443232284`*^9}, { 3.571211962540236*^9, 3.5712119670174437`*^9}, 3.5712123580321307`*^9, { 3.5712123994658036`*^9, 3.571212411181424*^9}, {3.5712172605092583`*^9, 3.571217297153723*^9}, {3.571223622762637*^9, 3.57122364145147*^9}, { 3.5712237454256525`*^9, 3.571223750745262*^9}, {3.571223964808838*^9, 3.571224009097316*^9}, {3.57122674689975*^9, 3.5712267784742055`*^9}, { 3.5712269848157682`*^9, 3.57122698582977*^9}, {3.5712270624259043`*^9, 3.5712270629563055`*^9}, {3.571227212438168*^9, 3.571227212999769*^9}, { 3.571227409778515*^9, 3.5712274489969835`*^9}, {3.571227502177477*^9, 3.571227514127098*^9}, {3.57122758356282*^9, 3.5712276390521173`*^9}, 3.5712276745889797`*^9, {3.571227712746647*^9, 3.5712277584703274`*^9}, { 3.5712349496076813`*^9, 3.571234988008148*^9}, {3.5712351855668955`*^9, 3.5712353359043593`*^9}, {3.5712355859883986`*^9, 3.571235653661318*^9}, { 3.5712356890109797`*^9, 3.571235702208603*^9}, {3.5712449764989214`*^9, 3.5712449799309273`*^9}, {3.5712450401778336`*^9, 3.571245051456653*^9}, { 3.5712450868687153`*^9, 3.5712450934831266`*^9}, {3.571299135517318*^9, 3.571299166342972*^9}, {3.5713069890574045`*^9, 3.5713071726697273`*^9}, { 3.571307301791154*^9, 3.571307304536759*^9}, {3.571307397731323*^9, 3.571307405702937*^9}, {3.571311846659932*^9, 3.5713118507939396`*^9}, { 3.571317129094411*^9, 3.5713171472216425`*^9}, {3.5713172653138494`*^9, 3.5713172753602676`*^9}, {3.5713216932693615`*^9, 3.5713216983081703`*^9}, {3.5713370477995405`*^9, 3.5713370593279605`*^9}, {3.571404339740199*^9, 3.5714046172178864`*^9}, { 3.571404755449729*^9, 3.571404853246301*^9}, {3.571405069743481*^9, 3.571405208989326*^9}, {3.571405268612631*^9, 3.571405277442246*^9}, { 3.5714053796536255`*^9, 3.5714054114932814`*^9}, {3.571405595448805*^9, 3.5714056194884467`*^9}, {3.5714056687221336`*^9, 3.571405677660949*^9}, 3.5714067334520035`*^9, {3.57140676532286*^9, 3.5714067706580687`*^9}, { 3.571406950729185*^9, 3.571406989495253*^9}, {3.5714071848855963`*^9, 3.571407190579606*^9}, 3.5714072350240846`*^9, {3.571412503236558*^9, 3.5714125080413666`*^9}, {3.571412540879424*^9, 3.571412607787942*^9}, { 3.571412668378448*^9, 3.5714128101202965`*^9}, {3.5714128643147917`*^9, 3.571412873862009*^9}, {3.571412908150869*^9, 3.57141290869687*^9}, { 3.571413012374652*^9, 3.5714130213290677`*^9}, {3.571413054603926*^9, 3.5714130713583555`*^9}, 3.5714133323156137`*^9, {3.571730171730853*^9, 3.571730182494872*^9}, {3.5717303501171665`*^9, 3.5717303600855846`*^9}, { 3.5717305482375145`*^9, 3.5717305527147226`*^9}, {3.571760865342704*^9, 3.5717608700695124`*^9}, {3.57176111957635*^9, 3.5717611228835564`*^9}, 3.571761174316847*^9, {3.5717620076459103`*^9, 3.571762008441512*^9}, { 3.571765525077688*^9, 3.571765573718574*^9}, {3.572601603410675*^9, 3.572601639665139*^9}, {3.57260238631365*^9, 3.5726023989340725`*^9}, 3.5726046985809116`*^9, {3.5726052623971024`*^9, 3.572605269729115*^9}, { 3.572606450370389*^9, 3.5726064833176465`*^9}, {3.5726065169513054`*^9, 3.572606523955718*^9}, {3.5726066452459307`*^9, 3.572606662468361*^9}, { 3.5726068118542233`*^9, 3.5726068309330573`*^9}, {3.5726082044218693`*^9, 3.5726082108178806`*^9}, {3.5726129520308228`*^9, 3.5726129692220526`*^9}, {3.5726130228861475`*^9, 3.5726130532750006`*^9}, {3.572624083881504*^9, 3.572624093631521*^9}, { 3.5726247901883445`*^9, 3.572624801233164*^9}, {3.5726249931759005`*^9, 3.572625014937939*^9}, {3.572626882386019*^9, 3.5726268865668263`*^9}, { 3.5726673740642943`*^9, 3.572667386154316*^9}, {3.572707186162225*^9, 3.5727071892978306`*^9}, {3.5727073766385593`*^9, 3.5727073777617617`*^9}, 3.5727091442464643`*^9, 3.572709305488347*^9, {3.5727105300904984`*^9, 3.5727105312605004`*^9}, 3.5727107350904584`*^9, 3.5727108467086544`*^9, 3.572710916331577*^9, {3.5728420867264705`*^9, 3.5728421164913225`*^9}, { 3.572850453192765*^9, 3.5728504884332275`*^9}, {3.5731485879383316`*^9, 3.5731485959879456`*^9}, {3.5731825263710723`*^9, 3.573182535403488*^9}, { 3.5733139065045433`*^9, 3.5733140549856043`*^9}, {3.574655628725462*^9, 3.5746556677099304`*^9}, {3.574782364321311*^9, 3.574782366817315*^9}, { 3.5747823996553726`*^9, 3.5747824011997757`*^9}}], Cell[CellGroupData[{ Cell[BoxData[{ RowBox[{"connc", "=", RowBox[{"Join", "[", RowBox[{ RowBox[{"Table", "[", RowBox[{ RowBox[{"Take", "[", RowBox[{ RowBox[{"conn", "[", RowBox[{"[", RowBox[{"conj", "[", RowBox[{"[", "i", "]"}], "]"}], "]"}], "]"}], ",", "3"}], "]"}], ",", RowBox[{"{", RowBox[{"i", ",", "1", ",", "nj"}], "}"}]}], "]"}], ",", RowBox[{"Table", "[", RowBox[{ RowBox[{"Drop", "[", RowBox[{ RowBox[{"coco", "[", RowBox[{"[", "i", "]"}], "]"}], ",", RowBox[{"{", RowBox[{"1", ",", "1"}], "}"}]}], "]"}], ",", RowBox[{"{", RowBox[{"i", ",", "1", ",", "oj"}], "}"}]}], "]"}], ",", RowBox[{"Table", "[", RowBox[{ RowBox[{"Drop", "[", RowBox[{ RowBox[{"coco", "[", RowBox[{"[", "i", "]"}], "]"}], ",", RowBox[{"{", RowBox[{"2", ",", "2"}], "}"}]}], "]"}], ",", RowBox[{"{", RowBox[{"i", ",", "1", ",", "oj"}], "}"}]}], "]"}]}], "]"}]}], "\[IndentingNewLine]", RowBox[{"cj", "=", RowBox[{"Length", "[", "connc", "]"}]}], "\[IndentingNewLine]", RowBox[{ RowBox[{"tpo", "=", RowBox[{"Table", "[", RowBox[{ RowBox[{"{", RowBox[{"0", ",", "0", ",", "0"}], "}"}], ",", RowBox[{"{", "cj", "}"}]}], "]"}]}], ";"}], "\[IndentingNewLine]", RowBox[{ RowBox[{"tpu", "=", "tpo"}], ";"}]}], "Input", CellChangeTimes->{{3.574782409030989*^9, 3.5747824335386324`*^9}, { 3.57478246631429*^9, 3.5747824836615205`*^9}, {3.574782729892353*^9, 3.574782734509961*^9}, {3.5747827728236284`*^9, 3.574782822150915*^9}, { 3.574782939494321*^9, 3.574782974048382*^9}, {3.5747830324548845`*^9, 3.574783065448942*^9}, {3.574783361818263*^9, 3.5747833666074715`*^9}, { 3.574783407073942*^9, 3.574783441097602*^9}, {3.574783484762079*^9, 3.5747834849804792`*^9}, 3.574783557801407*^9, {3.5747836107946997`*^9, 3.5747836636631927`*^9}, {3.574783719464491*^9, 3.574783731414112*^9}, { 3.574783780975399*^9, 3.5747838001946325`*^9}, {3.574783898490405*^9, 3.5747839481764927`*^9}, {3.5747840180958157`*^9, 3.5747840270034313`*^9}, {3.574784153800454*^9, 3.5747841712568846`*^9}, { 3.5747854335799017`*^9, 3.5747854339543023`*^9}, 3.5747867930286894`*^9, { 3.5747868591884055`*^9, 3.574786865865217*^9}, 3.574787046575935*^9, { 3.574787368045699*^9, 3.574787376922115*^9}, 3.5747874778074923`*^9, { 3.5747875111447506`*^9, 3.5747875582880335`*^9}, {3.5747875958996997`*^9, 3.574787678221044*^9}, 3.574787726456329*^9, {3.574787774847614*^9, 3.5747877758148155`*^9}, 3.5747879836695805`*^9, {3.574788032310466*^9, 3.574788047239692*^9}, {3.5747881733035135`*^9, 3.574788204831169*^9}, { 3.574828128133003*^9, 3.5748281291938047`*^9}, {3.57482825168522*^9, 3.574828270452053*^9}, 3.574828314724931*^9, {3.5748306212357817`*^9, 3.574830621703783*^9}}], Cell[BoxData[ RowBox[{"{", RowBox[{ RowBox[{"{", RowBox[{"13", ",", "6", ",", "14"}], "}"}], ",", RowBox[{"{", RowBox[{"19", ",", "13", ",", "20"}], "}"}], ",", RowBox[{"{", RowBox[{"11", ",", "4", ",", "8"}], "}"}], ",", RowBox[{"{", RowBox[{"17", ",", "5", ",", "21"}], "}"}], ",", RowBox[{"{", RowBox[{"20", ",", "18", ",", "19"}], "}"}], ",", RowBox[{"{", RowBox[{"23", ",", "4", ",", "8"}], "}"}], ",", RowBox[{"{", RowBox[{"24", ",", "5", ",", "21"}], "}"}], ",", RowBox[{"{", RowBox[{"26", ",", "18", ",", "19"}], "}"}]}], "}"}]], "Output", CellChangeTimes->{3.5748345062506065`*^9, 3.5801424189916134`*^9}], Cell[BoxData["8"], "Output", CellChangeTimes->{3.5748345062506065`*^9, 3.5801424189916134`*^9}] }, Open ]], Cell[BoxData[ RowBox[{ RowBox[{ RowBox[{"Do", "[", RowBox[{ RowBox[{"(", RowBox[{ RowBox[{"c", " ", "=", " ", RowBox[{"connc", "[", RowBox[{"[", "k", "]"}], "]"}]}], ";", " ", RowBox[{"(*", RowBox[{ RowBox[{"c", " ", "=", " ", RowBox[{"Take", "[", RowBox[{"c", ",", " ", "P"}], "]"}]}], ";"}], "*)"}], " ", "\[IndentingNewLine]", RowBox[{"v", " ", "=", " ", RowBox[{"Table", "[", RowBox[{ RowBox[{"Join", "[", RowBox[{ RowBox[{"t", "[", RowBox[{"[", RowBox[{"c", "[", RowBox[{"[", "i", "]"}], "]"}], "]"}], "]"}], ",", " ", RowBox[{"{", "1", "}"}]}], "]"}], ",", " ", RowBox[{"{", RowBox[{"i", ",", " ", "1", ",", " ", "P"}], "}"}]}], "]"}]}], ";", " ", "\[IndentingNewLine]", RowBox[{"x2", " ", "=", " ", RowBox[{"t", "[", RowBox[{"[", RowBox[{ RowBox[{"c", "[", RowBox[{"[", "2", "]"}], "]"}], ",", "1"}], "]"}], "]"}]}], ";", " ", "\n", " ", 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"}], "}"}], ",", " ", RowBox[{"{", RowBox[{"0", ",", " ", "1", ",", " ", "0", ",", " ", "0"}], "}"}], ",", " ", RowBox[{"{", RowBox[{"0", ",", " ", "0", ",", " ", "1", ",", " ", "0"}], "}"}], ",", " ", 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"}], "}"}]}], "]"}]}], ";", " ", "\[IndentingNewLine]", RowBox[{"T1", " ", "=", " ", RowBox[{"ArcTan", "[", RowBox[{ RowBox[{"p", "[", RowBox[{"[", RowBox[{"1", ",", "3"}], "]"}], "]"}], "/", RowBox[{"p", "[", RowBox[{"[", RowBox[{"1", ",", "2"}], "]"}], "]"}]}], "]"}]}], ";", " ", "\[IndentingNewLine]", RowBox[{"U", " ", "=", " ", "p"}], ";", " ", "\n", " ", RowBox[{"T", " ", "=", " ", RowBox[{"RotationMatrix", "[", RowBox[{"T1", ",", " ", RowBox[{"{", RowBox[{"1", ",", " ", "0", ",", " ", "0"}], "}"}]}], "]"}]}], ";", " ", "\[IndentingNewLine]", RowBox[{"p", " ", "=", " ", RowBox[{"U", " ", ".", " ", "T"}]}], ";", " ", "\[IndentingNewLine]", RowBox[{"T2", " ", "=", " ", RowBox[{"ArcTan", "[", RowBox[{ RowBox[{"p", "[", RowBox[{"[", RowBox[{"1", ",", "2"}], "]"}], "]"}], "/", RowBox[{"p", "[", RowBox[{"[", RowBox[{"1", ",", "1"}], "]"}], "]"}]}], "]"}]}], ";", " ", "\[IndentingNewLine]", RowBox[{"U", " ", "=", " ", "p"}], ";", " ", "\n", " ", RowBox[{"T", " ", "=", " ", RowBox[{"RotationMatrix", "[", RowBox[{"T2", ",", " ", RowBox[{"{", RowBox[{"0", ",", " ", "0", ",", " ", "1"}], "}"}]}], "]"}]}], ";", " ", "\[IndentingNewLine]", RowBox[{"p", " ", "=", " ", RowBox[{"U", " ", ".", " ", "T"}]}], ";", " ", "\[IndentingNewLine]", RowBox[{"T3", " ", "=", " ", RowBox[{"ArcTan", "[", RowBox[{ RowBox[{"p", "[", RowBox[{"[", RowBox[{"3", ",", "3"}], "]"}], "]"}], "/", RowBox[{"p", "[", RowBox[{"[", RowBox[{"3", ",", "2"}], "]"}], "]"}]}], "]"}]}], ";", " ", "\[IndentingNewLine]", RowBox[{"U", " ", "=", " ", "p"}], ";", " ", "\n", " ", RowBox[{"T", " ", "=", " ", RowBox[{"RotationMatrix", "[", RowBox[{"T3", ",", " ", RowBox[{"{", RowBox[{"1", ",", " ", "0", ",", " ", "0"}], "}"}]}], "]"}]}], ";", " ", "\[IndentingNewLine]", RowBox[{"p", " ", "=", RowBox[{"U", " ", ".", " ", "T"}]}], ";", " ", "\[IndentingNewLine]", 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"}]}], ";", " ", "\[IndentingNewLine]", 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"}]}], ";", " ", "\[IndentingNewLine]", RowBox[{"mk", " ", "=", " ", RowBox[{"U1", " ", ".", " ", "T"}]}], ";", " ", "\[IndentingNewLine]", RowBox[{"ml", " ", "=", " ", RowBox[{"U2", " ", ".", " ", "T"}]}], ";", " ", "\[IndentingNewLine]", RowBox[{"U", " ", "=", " ", "p"}], ";", " ", "\[IndentingNewLine]", RowBox[{"U1", " ", "=", " ", "mk"}], ";", " ", "\n", " ", RowBox[{"U2", " ", "=", " ", "ml"}], ";", " ", "\[IndentingNewLine]", RowBox[{"T", " ", "=", " ", RowBox[{"RotationMatrix", "[", RowBox[{ RowBox[{"-", "T2"}], ",", " ", RowBox[{"{", RowBox[{"0", ",", " ", "0", ",", " ", "1"}], "}"}]}], "]"}]}], ";", " ", "\[IndentingNewLine]", RowBox[{"p", " ", "=", " ", RowBox[{"U", " ", ".", " ", "T"}]}], ";", " ", "\[IndentingNewLine]", RowBox[{"mk", " ", "=", " ", RowBox[{"U1", " ", ".", " ", "T"}]}], ";", " ", "\[IndentingNewLine]", RowBox[{"ml", " ", "=", " ", RowBox[{"U2", " ", ".", " ", "T"}]}], ";", " ", "\[IndentingNewLine]", RowBox[{"U", " ", "=", " ", "p"}], ";", " ", "\[IndentingNewLine]", RowBox[{"U1", " ", "=", " ", "mk"}], ";", " ", "\[IndentingNewLine]", RowBox[{"U2", " ", "=", " ", "ml"}], ";", " ", "\n", " ", RowBox[{"T", " ", "=", " ", RowBox[{"RotationMatrix", "[", RowBox[{ RowBox[{"-", "T1"}], ",", " ", RowBox[{"{", RowBox[{"1", ",", " ", "0", ",", " ", "0"}], "}"}]}], "]"}]}], ";", " ", "\[IndentingNewLine]", RowBox[{"p", " ", "=", " ", RowBox[{"U", " ", ".", " ", "T"}]}], ";", " ", "\[IndentingNewLine]", RowBox[{"mk", " ", "=", " ", RowBox[{"U1", " ", ".", " ", "T"}]}], ";", " ", "\[IndentingNewLine]", RowBox[{"ml", " ", "=", " ", RowBox[{"U2", " ", ".", " ", "T"}]}], ";", " ", "\[IndentingNewLine]", 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"}], "}"}]}], "]"}]}], ";", "\[IndentingNewLine]", RowBox[{"v1", " ", "=", " ", RowBox[{"Table", "[", RowBox[{ RowBox[{"Join", "[", RowBox[{ RowBox[{"mk", "[", RowBox[{"[", "i", "]"}], "]"}], ",", " ", RowBox[{"{", "1", "}"}]}], "]"}], ",", " ", RowBox[{"{", RowBox[{"i", ",", " ", "1", ",", " ", "P"}], "}"}]}], "]"}]}], ";", " ", "\n", " ", RowBox[{"v2", " ", "=", " ", RowBox[{"Table", "[", RowBox[{ RowBox[{"Join", "[", RowBox[{ RowBox[{"ml", "[", RowBox[{"[", "i", "]"}], "]"}], ",", " ", RowBox[{"{", "1", "}"}]}], "]"}], ",", " ", RowBox[{"{", RowBox[{"i", ",", " ", "1", ",", " ", "P"}], "}"}]}], "]"}]}], ";", " ", "\[IndentingNewLine]", RowBox[{"Q", " ", "=", " ", RowBox[{"{", RowBox[{ RowBox[{"{", RowBox[{"1", ",", " ", "0", ",", " ", "0", ",", " ", "0"}], "}"}], ",", " ", RowBox[{"{", RowBox[{"0", ",", " ", "1", ",", " ", "0", ",", " ", "0"}], "}"}], ",", " ", RowBox[{"{", RowBox[{"0", ",", " ", "0", ",", " ", "1", ",", " ", "0"}], "}"}], ",", " ", RowBox[{"{", RowBox[{"x2", ",", " ", "y2", ",", " ", "z2", ",", " ", "1"}], "}"}]}], "}"}]}], ";", " ", "\n", " ", 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"}], "}"}]}], "]"}]}], ";", " ", "\n", " ", 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", "]"}], "]"}]}], ";", " ", "\n", " ", RowBox[{ RowBox[{"tpu", "[", RowBox[{"[", "k", "]"}], "]"}], " ", "=", " ", RowBox[{"ml", "[", RowBox[{"[", "1", "]"}], "]"}]}]}], ")"}], ",", " ", RowBox[{"{", RowBox[{"k", ",", " ", "cj"}], "}"}]}], "]"}], ";"}], " "}]], "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}, {3.574658310026972*^9, 3.5746585452285843`*^9}, { 3.574659591943223*^9, 3.5746596938582015`*^9}, {3.574664442038542*^9, 3.574664456640167*^9}, {3.5747841177643905`*^9, 3.574784120931196*^9}, { 3.574788295155328*^9, 3.5747883150453625`*^9}, {3.5748281376022196`*^9, 3.5748281378830204`*^9}, {3.5748343592063475`*^9, 3.574834363948756*^9}}], Cell["\<\ (*-------------------------------------------------------------------------*) (* O23, O24, O26 \[Pi] clouds; half occ above/below *) \ \>", "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.573148680368494*^9}, {3.5746557104540057`*^9, 3.574655729111638*^9}, { 3.5746640930035286`*^9, 3.5746641230803814`*^9}, {3.5747405754704514`*^9, 3.574740589572876*^9}}], Cell[BoxData[ RowBox[{"(*", RowBox[{ RowBox[{"k", "=", "1"}], ";", "\[IndentingNewLine]", RowBox[{"Clear", "[", "conn", "]"}], ";", "\n", RowBox[{"conn", "=", RowBox[{"Table", "[", RowBox[{ RowBox[{"Drop", "[", RowBox[{ RowBox[{"coco", "[", RowBox[{"[", "i", "]"}], "]"}], ",", RowBox[{"{", RowBox[{"2", ",", "2"}], "}"}]}], "]"}], ",", RowBox[{"{", RowBox[{"i", ",", "1", ",", "oj"}], "}"}]}], "]"}]}]}], "*)"}]], "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.573313757602282*^9, 3.573313827084804*^9}, { 3.573313870749281*^9, 3.5733138932289205`*^9}, {3.5733143087668505`*^9, 3.5733143094220514`*^9}, 3.574655698067584*^9, {3.574664136683605*^9, 3.5746641904412994`*^9}, 3.5746642515154066`*^9, {3.5747406023804984`*^9, 3.574740633486953*^9}, {3.5747406930010576`*^9, 3.574740698929068*^9}, { 3.574742754778679*^9, 3.574742788022337*^9}, {3.574782059964776*^9, 3.5747820642547836`*^9}, {3.5747821880410013`*^9, 3.5747822047798305`*^9}, {3.5747842580086365`*^9, 3.574784264997449*^9}, { 3.5747845089350777`*^9, 3.5747845105886803`*^9}, {3.5747846212864747`*^9, 3.574784637947304*^9}, 3.5747846974458084`*^9, 3.574784752950706*^9, { 3.5747852263335376`*^9, 3.5747852266455383`*^9}, 3.574785739652439*^9}], Cell[BoxData[ RowBox[{"(*", RowBox[{ RowBox[{"Do", "[", RowBox[{ RowBox[{"(", RowBox[{ RowBox[{"c", " ", "=", " ", RowBox[{"conn", "[", RowBox[{"[", "k", "]"}], "]"}]}], ";", " ", "\[IndentingNewLine]", RowBox[{"v", " ", "=", " ", RowBox[{"Table", "[", RowBox[{ RowBox[{"Join", "[", RowBox[{ RowBox[{"t", "[", RowBox[{"[", RowBox[{"c", "[", RowBox[{"[", "i", "]"}], "]"}], "]"}], "]"}], ",", " ", RowBox[{"{", "1", "}"}]}], "]"}], ",", " ", RowBox[{"{", RowBox[{"i", ",", " ", "1", ",", " ", "P"}], "}"}]}], "]"}]}], ";", " ", "\[IndentingNewLine]", RowBox[{"x2", " ", "=", " ", RowBox[{"t", "[", RowBox[{"[", RowBox[{ RowBox[{"c", "[", RowBox[{"[", "2", "]"}], "]"}], ",", "1"}], "]"}], "]"}]}], ";", " ", "\[IndentingNewLine]", RowBox[{"y2", " ", "=", " ", RowBox[{"t", "[", RowBox[{"[", RowBox[{ RowBox[{"c", "[", RowBox[{"[", "2", "]"}], "]"}], ",", "2"}], "]"}], "]"}]}], ";", " ", "\n", " ", RowBox[{"z2", " ", "=", " ", RowBox[{"t", "[", RowBox[{"[", RowBox[{ RowBox[{"c", "[", RowBox[{"[", "2", "]"}], "]"}], ",", "3"}], "]"}], "]"}]}], ";", " ", "\[IndentingNewLine]", RowBox[{"Q", " ", "=", " ", RowBox[{"{", RowBox[{ RowBox[{"{", RowBox[{"1", ",", " ", "0", ",", " ", "0", ",", " ", "0"}], "}"}], ",", " ", RowBox[{"{", RowBox[{"0", ",", " ", "1", ",", " ", "0", ",", " ", "0"}], "}"}], ",", " ", RowBox[{"{", RowBox[{"0", ",", " ", "0", ",", " ", "1", ",", " ", "0"}], "}"}], ",", " ", RowBox[{"{", RowBox[{ RowBox[{"-", "x2"}], ",", " ", RowBox[{"-", "y2"}], ",", " ", RowBox[{"-", "z2"}], ",", " ", "1"}], "}"}]}], "}"}]}], ";", " ", "\[IndentingNewLine]", RowBox[{"p", " ", "=", " ", RowBox[{"v", " ", ".", " ", "Q"}]}], ";", " ", "\n", " ", RowBox[{"p", " ", "=", " ", RowBox[{"Table", "[", RowBox[{ RowBox[{"Take", "[", RowBox[{ RowBox[{"p", "[", RowBox[{"[", "i", "]"}], "]"}], ",", " ", "3"}], "]"}], ",", " ", RowBox[{"{", RowBox[{"i", ",", " ", "1", ",", " ", "P"}], "}"}]}], "]"}]}], ";", " ", "\[IndentingNewLine]", RowBox[{"T1", " ", "=", " ", RowBox[{"ArcTan", "[", RowBox[{ RowBox[{"p", "[", RowBox[{"[", RowBox[{"1", ",", "3"}], "]"}], "]"}], "/", RowBox[{"p", "[", RowBox[{"[", RowBox[{"1", ",", "2"}], "]"}], "]"}]}], "]"}]}], ";", " ", "\[IndentingNewLine]", RowBox[{"U", " ", "=", " ", "p"}], ";", " ", "\n", " ", RowBox[{"T", " ", "=", " ", RowBox[{"RotationMatrix", "[", RowBox[{"T1", ",", " ", RowBox[{"{", RowBox[{"1", ",", " ", "0", ",", " ", "0"}], "}"}]}], "]"}]}], ";", " ", "\[IndentingNewLine]", RowBox[{"p", " ", "=", " ", RowBox[{"U", " ", ".", " ", "T"}]}], ";", " ", "\[IndentingNewLine]", RowBox[{"T2", " ", "=", " ", RowBox[{"ArcTan", "[", RowBox[{ RowBox[{"p", "[", RowBox[{"[", RowBox[{"1", ",", "2"}], "]"}], "]"}], "/", RowBox[{"p", "[", RowBox[{"[", RowBox[{"1", ",", "1"}], "]"}], "]"}]}], "]"}]}], ";", " ", "\[IndentingNewLine]", RowBox[{"U", " ", "=", " ", "p"}], ";", " ", "\n", " ", RowBox[{"T", " ", "=", " ", RowBox[{"RotationMatrix", "[", RowBox[{"T2", ",", " ", RowBox[{"{", RowBox[{"0", ",", " ", "0", ",", " ", "1"}], "}"}]}], "]"}]}], ";", " ", "\[IndentingNewLine]", RowBox[{"p", " ", "=", " ", RowBox[{"U", " ", ".", " ", "T"}]}], ";", " ", "\[IndentingNewLine]", RowBox[{"T3", " ", "=", " ", RowBox[{"ArcTan", "[", RowBox[{ RowBox[{"p", "[", RowBox[{"[", RowBox[{"3", ",", "3"}], "]"}], "]"}], "/", RowBox[{"p", "[", RowBox[{"[", RowBox[{"3", ",", "2"}], "]"}], "]"}]}], "]"}]}], ";", " ", "\[IndentingNewLine]", RowBox[{"U", " ", "=", " ", "p"}], ";", " ", "\n", " ", RowBox[{"T", " ", "=", " ", RowBox[{"RotationMatrix", "[", RowBox[{"T3", ",", " ", RowBox[{"{", RowBox[{"1", ",", " ", "0", ",", " ", "0"}], "}"}]}], "]"}]}], ";", " ", "\[IndentingNewLine]", RowBox[{"p", " ", "=", " ", RowBox[{"Chop", "[", RowBox[{"U", " ", ".", " ", "T"}], "]"}]}], ";", " ", "\[IndentingNewLine]", RowBox[{"nk", " ", "=", " ", "p"}], ";", " ", "\[IndentingNewLine]", RowBox[{"nl", " ", "=", " ", "p"}], ";", " ", "\[IndentingNewLine]", RowBox[{ RowBox[{"nk", "[", RowBox[{"[", RowBox[{"1", ",", "3"}], "]"}], "]"}], " ", "=", " ", "rpo"}], ";", " ", "\[IndentingNewLine]", RowBox[{ RowBox[{"nl", "[", RowBox[{"[", RowBox[{"1", ",", "3"}], "]"}], "]"}], " ", "=", " ", RowBox[{"-", "rpi"}]}], ";", " ", "\[IndentingNewLine]", RowBox[{"U", " ", "=", " ", "p"}], ";", " ", "\n", " ", RowBox[{"U1", " ", "=", " ", "nk"}], ";", " ", "\[IndentingNewLine]", RowBox[{"U2", " ", "=", " ", "nl"}], ";", " ", "\[IndentingNewLine]", RowBox[{"T", " ", "=", " ", RowBox[{"RotationMatrix", "[", RowBox[{ RowBox[{"-", "T3"}], ",", " ", RowBox[{"{", RowBox[{"1", ",", " ", "0", ",", " ", "0"}], "}"}]}], "]"}]}], ";", " ", "\[IndentingNewLine]", RowBox[{"p", " ", "=", " ", RowBox[{"U", " ", ".", " ", "T"}]}], ";", " ", "\[IndentingNewLine]", RowBox[{"nk", " ", "=", " ", RowBox[{"U1", " ", ".", " ", "T"}]}], ";", " ", "\[IndentingNewLine]", RowBox[{"nl", " ", "=", " ", RowBox[{"U2", " ", ".", " ", "T"}]}], ";", " ", "\[IndentingNewLine]", RowBox[{"U", " ", "=", " ", "p"}], ";", " ", "\[IndentingNewLine]", RowBox[{"U1", " ", "=", " ", "nk"}], ";", " ", "\n", " ", RowBox[{"U2", " ", "=", " ", "nl"}], ";", " ", "\[IndentingNewLine]", RowBox[{"T", " ", "=", " ", RowBox[{"RotationMatrix", "[", RowBox[{ RowBox[{"-", "T2"}], ",", " ", RowBox[{"{", RowBox[{"0", ",", " ", "0", ",", " ", "1"}], "}"}]}], "]"}]}], ";", " ", "\[IndentingNewLine]", RowBox[{"p", " ", "=", " ", RowBox[{"U", " ", ".", " ", "T"}]}], ";", " ", "\[IndentingNewLine]", RowBox[{"nk", " ", "=", " ", RowBox[{"U1", " ", ".", " ", "T"}]}], ";", " ", "\[IndentingNewLine]", RowBox[{"nl", " ", "=", " ", RowBox[{"U2", " ", ".", " ", "T"}]}], ";", " ", "\[IndentingNewLine]", RowBox[{"U", " ", "=", " ", "p"}], ";", " ", "\[IndentingNewLine]", RowBox[{"U1", " ", "=", " ", "nk"}], ";", " ", "\[IndentingNewLine]", RowBox[{"U2", " ", "=", " ", "nl"}], ";", " ", "\n", " ", RowBox[{"T", " ", "=", " ", RowBox[{"RotationMatrix", "[", RowBox[{ RowBox[{"-", "T1"}], ",", " ", RowBox[{"{", RowBox[{"1", ",", " ", "0", ",", " ", "0"}], "}"}]}], "]"}]}], ";", " ", "\[IndentingNewLine]", RowBox[{"p", " ", "=", " ", RowBox[{"U", " ", ".", " ", "T"}]}], ";", " ", "\[IndentingNewLine]", RowBox[{"nk", " ", "=", " ", RowBox[{"U1", " ", ".", " ", "T"}]}], ";", " ", "\[IndentingNewLine]", RowBox[{"nl", " ", "=", " ", RowBox[{"U2", " ", ".", " ", "T"}]}], ";", " ", "\[IndentingNewLine]", 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"}], "}"}]}], "]"}]}], ";", " ", "\[IndentingNewLine]", 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"}], "}"}]}], "]"}]}], ";", " ", "\[IndentingNewLine]", RowBox[{"Q", " ", "=", " ", RowBox[{"{", RowBox[{ RowBox[{"{", RowBox[{"1", ",", " ", "0", ",", " ", "0", ",", " ", "0"}], "}"}], ",", " ", RowBox[{"{", RowBox[{"0", ",", " ", "1", ",", " ", "0", ",", " ", "0"}], "}"}], ",", " ", RowBox[{"{", RowBox[{"0", ",", " ", "0", ",", " ", "1", ",", " ", "0"}], "}"}], ",", " ", RowBox[{"{", RowBox[{"x2", ",", " ", "y2", ",", " ", "z2", ",", " ", "1"}], "}"}]}], "}"}]}], ";", " ", "\n", " ", 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"}], "}"}]}], "]"}]}], ";", " ", "\n", " ", RowBox[{"nk", " ", "=", " ", RowBox[{"Table", "[", RowBox[{ RowBox[{"Take", "[", RowBox[{ RowBox[{"nk", "[", RowBox[{"[", "i", "]"}], "]"}], ",", " ", "3"}], "]"}], ",", " ", RowBox[{"{", RowBox[{"i", ",", " ", "1", ",", " ", "P"}], "}"}]}], "]"}]}], ";", " ", "\[IndentingNewLine]", RowBox[{"nl", " ", "=", " ", RowBox[{"Table", "[", RowBox[{ RowBox[{"Take", "[", RowBox[{ RowBox[{"nl", "[", RowBox[{"[", "i", "]"}], "]"}], ",", " ", "3"}], "]"}], ",", " ", RowBox[{"{", RowBox[{"i", ",", " ", "1", ",", " ", "P"}], "}"}]}], "]"}]}], ";", " ", "\[IndentingNewLine]", RowBox[{ RowBox[{"tpo", "[", RowBox[{"[", RowBox[{"nj", " ", "+", " ", "k"}], "]"}], "]"}], " ", "=", " ", RowBox[{"nk", "[", RowBox[{"[", "1", "]"}], "]"}]}], ";", " ", "\n", " ", RowBox[{ RowBox[{"tpu", "[", RowBox[{"[", RowBox[{"nj", " ", "+", " ", "k"}], "]"}], "]"}], " ", "=", " ", RowBox[{"nl", "[", RowBox[{"[", "1", "]"}], "]"}]}]}], ")"}], ",", " ", RowBox[{"{", RowBox[{"k", ",", " ", "oj"}], "}"}]}], "]"}], ";"}], " ", "*)"}]], "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.574657533005207*^9, 3.5746575357196116`*^9}, 3.57465758042929*^9, {3.5746576188989573`*^9, 3.574657656120623*^9}, { 3.574657805210085*^9, 3.5746580781325645`*^9}, {3.5746597562739115`*^9, 3.574659803885195*^9}, {3.574664210424935*^9, 3.574664211329736*^9}, { 3.5746646838389664`*^9, 3.574664694290984*^9}, {3.574740745151949*^9, 3.5747407459631505`*^9}, {3.5747426412104797`*^9, 3.5747426474972906`*^9}, {3.574742729147834*^9, 3.574742737961849*^9}, { 3.574785258828395*^9, 3.5747852591871953`*^9}, 3.5747857221336083`*^9}], Cell["\<\ (*-------------------------------------------------------------------------*) (* next: O23, O24, O26 in C=O, two doubly occ LP *)\ \>", "Text", CellChangeTimes->{{3.573213657265206*^9, 3.5732137071540937`*^9}, { 3.57331351711226*^9, 3.5733135247562733`*^9}, 3.5746557964101562`*^9, { 3.5746643799192324`*^9, 3.5746643831328382`*^9}, 3.5746732567499037`*^9, 3.574740785852421*^9}], Cell[BoxData[ RowBox[{ RowBox[{"k", "=", "1"}], ";"}]], "Input", CellChangeTimes->{{3.573211773936298*^9, 3.5732117775243044`*^9}, { 3.573211816539973*^9, 3.573211838910412*^9}, {3.573211886147295*^9, 3.573211954459815*^9}, {3.5732120794628344`*^9, 3.5732121037052774`*^9}, { 3.5732122844003944`*^9, 3.573212301045624*^9}, {3.5732124220394363`*^9, 3.573212444597076*^9}, {3.5732124755943303`*^9, 3.573212478745536*^9}, { 3.5732125394452424`*^9, 3.573212544234451*^9}, {3.5732125998329487`*^9, 3.5732126277257977`*^9}, 3.5732126684106693`*^9, {3.573212699017923*^9, 3.5732129163887043`*^9}, {3.573312183824718*^9, 3.57331218493232*^9}, 3.574657732950758*^9, {3.5746622177086344`*^9, 3.5746622626523137`*^9}, { 3.5746623611664867`*^9, 3.5746624066249666`*^9}, {3.574662510396349*^9, 3.5746625442640085`*^9}, {3.5746628828158026`*^9, 3.5746629097414503`*^9}, 3.574664223185757*^9, {3.5746695839262524`*^9, 3.574669588512661*^9}, { 3.5746696590715847`*^9, 3.574669659258785*^9}, {3.574682369907935*^9, 3.5746823705943365`*^9}, {3.574682413759612*^9, 3.574682423228829*^9}, { 3.574682475629321*^9, 3.57468248066813*^9}, 3.574682520073799*^9, { 3.5747408251956897`*^9, 3.57474083678651*^9}, {3.5747855534349117`*^9, 3.5747855725761456`*^9}, {3.574785769729292*^9, 3.574785777045705*^9}, 3.574786365775139*^9}], Cell[CellGroupData[{ Cell[BoxData[{ RowBox[{ RowBox[{"Clear", "[", "conn", "]"}], ";"}], "\[IndentingNewLine]", RowBox[{"conn", "=", RowBox[{"Table", "[", RowBox[{ RowBox[{"Drop", "[", RowBox[{ RowBox[{"coco", "[", RowBox[{"[", "i", "]"}], "]"}], ",", RowBox[{"{", RowBox[{"2", ",", "2"}], "}"}]}], "]"}], ",", RowBox[{"{", RowBox[{"i", ",", "1", ",", "oj"}], "}"}]}], "]"}]}], "\n", RowBox[{ RowBox[{"(*", RowBox[{ RowBox[{"conn", " ", "=", " ", RowBox[{"{", RowBox[{ RowBox[{"{", RowBox[{"4", ",", "23", ",", "8"}], "}"}], ",", RowBox[{"{", RowBox[{"5", ",", "24", ",", "21"}], "}"}], ",", RowBox[{"{", RowBox[{"18", ",", "26", ",", "19"}], "}"}]}], "}"}]}], ";"}], "*)"}]}]}], "Input", CellChangeTimes->{{3.573211773936298*^9, 3.5732117775243044`*^9}, { 3.573211816539973*^9, 3.573211838910412*^9}, {3.573211886147295*^9, 3.573211954459815*^9}, {3.5732120794628344`*^9, 3.5732121037052774`*^9}, { 3.5732122844003944`*^9, 3.573212301045624*^9}, {3.5732124220394363`*^9, 3.573212444597076*^9}, {3.5732124755943303`*^9, 3.573212478745536*^9}, { 3.5732125394452424`*^9, 3.573212544234451*^9}, {3.5732125998329487`*^9, 3.5732126277257977`*^9}, 3.5732126684106693`*^9, {3.573212699017923*^9, 3.5732129163887043`*^9}, {3.573312183824718*^9, 3.57331218493232*^9}, 3.574657732950758*^9, {3.5746622177086344`*^9, 3.5746622626523137`*^9}, { 3.5746623611664867`*^9, 3.5746624066249666`*^9}, {3.574662510396349*^9, 3.5746625442640085`*^9}, {3.5746628828158026`*^9, 3.5746629097414503`*^9}, 3.574664223185757*^9, {3.5746695839262524`*^9, 3.574669588512661*^9}, { 3.5746696590715847`*^9, 3.574669659258785*^9}, {3.574682369907935*^9, 3.5746823705943365`*^9}, {3.574682413759612*^9, 3.574682423228829*^9}, { 3.574682475629321*^9, 3.57468248066813*^9}, 3.574682520073799*^9, { 3.5747408251956897`*^9, 3.57474083678651*^9}, {3.5747855534349117`*^9, 3.5747855725761456`*^9}, {3.574785769729292*^9, 3.574785777045705*^9}, { 3.574786365775139*^9, 3.574786374511154*^9}}], Cell[BoxData[ RowBox[{"{", RowBox[{ RowBox[{"{", RowBox[{"23", ",", "4", ",", "8"}], "}"}], ",", RowBox[{"{", RowBox[{"24", ",", "5", ",", "21"}], "}"}], ",", RowBox[{"{", RowBox[{"26", ",", "18", ",", "19"}], "}"}]}], "}"}]], "Output", CellChangeTimes->{3.5748345063130064`*^9, 3.580142419022813*^9}] }, Open ]], Cell[BoxData[{ RowBox[{ RowBox[{"rlo", " ", "=", " ", "1.125"}], ";"}], "\[IndentingNewLine]", RowBox[{ RowBox[{"tplo", "=", RowBox[{"Table", "[", RowBox[{ RowBox[{"{", RowBox[{"0", ",", "0", ",", "0"}], "}"}], ",", RowBox[{"{", "oj", "}"}]}], "]"}]}], ";"}], "\[IndentingNewLine]", RowBox[{ RowBox[{"tplu", "=", RowBox[{"Table", "[", RowBox[{ RowBox[{"{", RowBox[{"0", ",", "0", ",", "0"}], "}"}], ",", RowBox[{"{", "oj", "}"}]}], "]"}]}], ";"}]}], "Input", CellChangeTimes->{{3.573211773936298*^9, 3.5732117775243044`*^9}, { 3.573211816539973*^9, 3.573211838910412*^9}, {3.573211886147295*^9, 3.573211954459815*^9}, {3.5732120794628344`*^9, 3.5732121037052774`*^9}, { 3.5732122844003944`*^9, 3.573212301045624*^9}, {3.5732124220394363`*^9, 3.573212444597076*^9}, {3.5732124755943303`*^9, 3.573212478745536*^9}, { 3.5732125394452424`*^9, 3.573212544234451*^9}, {3.5732125998329487`*^9, 3.5732126277257977`*^9}, 3.5732126684106693`*^9, {3.573212699017923*^9, 3.5732129163887043`*^9}, {3.573312183824718*^9, 3.57331218493232*^9}, 3.574657732950758*^9, {3.5746622177086344`*^9, 3.5746622626523137`*^9}, { 3.5746623611664867`*^9, 3.5746624066249666`*^9}, {3.574662510396349*^9, 3.5746625442640085`*^9}, {3.5746628828158026`*^9, 3.5746629097414503`*^9}, 3.574664223185757*^9, {3.5746695839262524`*^9, 3.574669588512661*^9}, { 3.5746696590715847`*^9, 3.574669659258785*^9}, {3.574682369907935*^9, 3.5746823705943365`*^9}, {3.574682413759612*^9, 3.574682423228829*^9}, { 3.574682475629321*^9, 3.57468248066813*^9}, 3.574682520073799*^9, { 3.5747408251956897`*^9, 3.57474083678651*^9}, {3.5747855534349117`*^9, 3.5747855725761456`*^9}, {3.574785769729292*^9, 3.574785777045705*^9}, 3.574786365775139*^9}], Cell[BoxData[ RowBox[{ RowBox[{ RowBox[{"Do", "[", RowBox[{ RowBox[{"(", RowBox[{ RowBox[{"c", " ", "=", " ", RowBox[{"conn", "[", RowBox[{"[", "k", "]"}], "]"}]}], ";", "\[IndentingNewLine]", RowBox[{"e1", "=", RowBox[{"c", "[", RowBox[{"[", "1", "]"}], "]"}]}], ";", " ", RowBox[{"e2", "=", RowBox[{"c", "[", RowBox[{"[", "2", "]"}], "]"}]}], ";", " ", RowBox[{ RowBox[{"c", "[", RowBox[{"[", "2", "]"}], "]"}], "=", "e1"}], ";", " ", RowBox[{ RowBox[{"c", "[", RowBox[{"[", "1", "]"}], "]"}], "=", "e2"}], ";", " ", "\[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", "]"}], "]"}]}], "]"}], "]"}]}], ";", " ", "\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[{"u2", "[", RowBox[{"[", RowBox[{"c", "[", RowBox[{"[", "2", "]"}], "]"}], "]"}], "]"}], " ", "+", " ", "rlo"}]}], ";", " ", "\n", RowBox[{"\[Beta]", " ", "=", " ", RowBox[{"ArcSin", "[", RowBox[{"rlo", "/", "L"}], "]"}]}], ";", " ", "\n", RowBox[{"If", "[", RowBox[{ RowBox[{"k", "\[Equal]", "3"}], ",", RowBox[{"\[Gamma]", " ", "=", RowBox[{ RowBox[{"3", "*", RowBox[{"\[Pi]", "/", "2"}]}], " ", "-", " ", RowBox[{"\[Alpha]", "/", "2"}]}]}], ",", RowBox[{"\[Gamma]", " ", "=", " ", RowBox[{ 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"}], "}"}], ",", " ", RowBox[{"{", RowBox[{"0", ",", " ", "1", ",", " ", "0", ",", " ", "0"}], "}"}], ",", " ", RowBox[{"{", RowBox[{"0", ",", " ", "0", ",", " ", "1", ",", " ", "0"}], "}"}], ",", " ", 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[{"U", " ", ".", " ", "T"}]}], ";", " ", "\n", RowBox[{"nk", " ", "=", " ", "p"}], ";", " ", "\n", RowBox[{"nl", " ", "=", " ", "p"}], ";", " ", "\n", RowBox[{ RowBox[{"nk", "[", RowBox[{"[", RowBox[{"2", ",", "2"}], "]"}], "]"}], " ", "=", " ", RowBox[{ RowBox[{"(", RowBox[{"-", "L"}], ")"}], "*", RowBox[{"Cos", "[", RowBox[{"\[Gamma]", " ", "+", " ", "1.0472"}], "]"}]}]}], ";", " ", RowBox[{ RowBox[{"nk", "[", RowBox[{"[", RowBox[{"2", ",", "1"}], "]"}], "]"}], " ", "=", " ", RowBox[{"L", "*", RowBox[{"Sin", "[", RowBox[{"\[Gamma]", " ", "+", " ", "1.0472"}], "]"}]}]}], ";", " ", RowBox[{ RowBox[{"nk", "[", RowBox[{"[", RowBox[{"2", ",", "3"}], "]"}], "]"}], " ", "=", " ", "0"}], ";", " ", "\n", RowBox[{ RowBox[{"nl", "[", RowBox[{"[", RowBox[{"2", ",", "2"}], "]"}], "]"}], " ", "=", " ", RowBox[{ RowBox[{"(", RowBox[{"-", "L"}], ")"}], "*", RowBox[{"Cos", "[", RowBox[{"\[Gamma]", " ", "-", " ", "1.0472"}], "]"}]}]}], ";", " ", RowBox[{ RowBox[{"nl", "[", RowBox[{"[", RowBox[{"2", ",", "1"}], "]"}], "]"}], " ", "=", " ", RowBox[{"L", "*", RowBox[{"Sin", "[", RowBox[{"\[Gamma]", " ", "-", " ", "1.0472"}], "]"}]}]}], ";", " ", RowBox[{ RowBox[{"nl", "[", RowBox[{"[", RowBox[{"2", ",", "3"}], "]"}], "]"}], " ", "=", " ", "0"}], ";", "\[IndentingNewLine]", 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[{ RowBox[{"Show", "[", RowBox[{ "Plotd", ",", " ", "Plote", ",", " ", "Plota", ",", " ", "Plotb0", ",", " ", "Plotc", ",", " ", RowBox[{"{", RowBox[{ RowBox[{"Axes", " ", "->", " ", "Automatic"}], ",", " ", RowBox[{"AxesLabel", " ", "->", " ", RowBox[{"{", RowBox[{"xl", ",", " ", "yl", ",", " ", "zl"}], "}"}]}], ",", " ", RowBox[{"AspectRatio", " ", "->", " ", "Automatic"}], ",", " ", "\n", " ", RowBox[{"Boxed", " ", "->", " ", "False"}], ",", " ", RowBox[{"PlotRange", " ", "->", " ", "All"}], ",", " ", RowBox[{"SphericalRegion", " ", "->", " ", "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"}], "}"}], ",", " ", RowBox[{"{", RowBox[{"0", ",", " ", "1", ",", " ", "0", ",", " ", "0"}], "}"}], ",", " ", RowBox[{"{", RowBox[{"0", ",", " ", "0", ",", " ", "1", ",", " ", "0"}], "}"}], ",", " ", 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[{"tplo", "[", RowBox[{"[", "k", "]"}], "]"}], "=", " ", RowBox[{"nk", "[", RowBox[{"[", "2", "]"}], "]"}]}], ";", " ", "\n", RowBox[{ RowBox[{"tplu", "[", RowBox[{"[", "k", "]"}], "]"}], "=", " ", RowBox[{"nl", "[", RowBox[{"[", "2", "]"}], "]"}]}]}], ")"}], ",", RowBox[{"{", RowBox[{"k", ",", "3"}], "}"}]}], "]"}], ";"}], " "}]], "Input", CellChangeTimes->{{3.573211773936298*^9, 3.5732117775243044`*^9}, { 3.573211816539973*^9, 3.573211838910412*^9}, {3.573211886147295*^9, 3.573211954459815*^9}, {3.5732120794628344`*^9, 3.5732121037052774`*^9}, { 3.5732122844003944`*^9, 3.573212301045624*^9}, {3.5732124220394363`*^9, 3.573212444597076*^9}, {3.5732124755943303`*^9, 3.573212478745536*^9}, { 3.5732125394452424`*^9, 3.573212544234451*^9}, {3.5732125998329487`*^9, 3.5732126277257977`*^9}, 3.5732126684106693`*^9, {3.573212699017923*^9, 3.5732129163887043`*^9}, {3.573312183824718*^9, 3.57331218493232*^9}, 3.574657732950758*^9, {3.5746622177086344`*^9, 3.5746622626523137`*^9}, { 3.5746623611664867`*^9, 3.5746624066249666`*^9}, {3.574662510396349*^9, 3.574662530957185*^9}, {3.57466257958247*^9, 3.574662598115303*^9}, { 3.574662628457356*^9, 3.574662634525767*^9}, {3.574662668783427*^9, 3.574662705069091*^9}, {3.574662754053177*^9, 3.57466279008924*^9}, 3.57466293250189*^9, {3.574662992858396*^9, 3.574663053807703*^9}, { 3.5746645474167266`*^9, 3.5746645481187277`*^9}, {3.574664974841877*^9, 3.5746649970095162`*^9}, {3.574669718180088*^9, 3.5746697769141912`*^9}, { 3.5746825528806562`*^9, 3.574682567201482*^9}, {3.574740851185335*^9, 3.5747408518093367`*^9}, {3.574743192827448*^9, 3.574743240033131*^9}, { 3.574786709740143*^9, 3.5747867108789454`*^9}, {3.5748289004747596`*^9, 3.574828999285333*^9}, {3.5748290986419077`*^9, 3.574829104507518*^9}, 3.574829273221814*^9, {3.574829709913381*^9, 3.574829725653809*^9}, { 3.5748301056548767`*^9, 3.5748301059356766`*^9}, 3.5748301718301926`*^9, { 3.5748303463632994`*^9, 3.5748304057682037`*^9}, {3.5748330513144503`*^9, 3.574833084667309*^9}, {3.5748331563338346`*^9, 3.5748331720586624`*^9}, { 3.574834293545832*^9, 3.5748342981478405`*^9}}], Cell["\<\ (*-------------------------------------------------------------------------*) (* next: O22,O25 in C-O-H two doubly occ LP *)\ \>", "Text", CellChangeTimes->{{3.572794697520533*^9, 3.5727947043221455`*^9}, { 3.5727948024151173`*^9, 3.572794803507119*^9}, {3.5727948673580313`*^9, 3.572794869838436*^9}, {3.572795260993526*^9, 3.5727952676703377`*^9}, { 3.5727954366342344`*^9, 3.5727954702834935`*^9}, {3.5727973545484033`*^9, 3.5727973657024226`*^9}, {3.572803225319809*^9, 3.572803264553878*^9}, { 3.57280330550395*^9, 3.5728033127111626`*^9}, 3.5728033508376293`*^9, { 3.572803528365941*^9, 3.5728035301443443`*^9}, {3.572803715051469*^9, 3.572803769604765*^9}, {3.572840261866465*^9, 3.5728402628648667`*^9}, { 3.5728405648813972`*^9, 3.572840578905822*^9}, {3.5728406372187243`*^9, 3.572840716170463*^9}, {3.5728407476825185`*^9, 3.572840785746585*^9}, { 3.5728408298790627`*^9, 3.5728408871311636`*^9}, {3.5728409363336496`*^9, 3.572841070790286*^9}, {3.572841415987692*^9, 3.572841609740032*^9}, 3.5728416910629754`*^9, {3.5728417502806797`*^9, 3.572841879885707*^9}, { 3.572841914564568*^9, 3.5728419300709953`*^9}, {3.572841986199894*^9, 3.572842001659521*^9}, {3.5728426453322515`*^9, 3.5728426487174573`*^9}, { 3.572844776030794*^9, 3.572844786919613*^9}, {3.57284502999924*^9, 3.5728450550060835`*^9}, {3.572845459218394*^9, 3.572845496174859*^9}, { 3.5728455656105804`*^9, 3.572845617574272*^9}, {3.5728456738279705`*^9, 3.572845681440784*^9}, {3.5728457322656736`*^9, 3.572845755291314*^9}, 3.572845978356106*^9, {3.572846145151599*^9, 3.572846189096876*^9}, { 3.572846392926834*^9, 3.5728464086828613`*^9}, 3.572846518881455*^9, 3.5728469699562473`*^9, {3.5728470834620466`*^9, 3.572847089873658*^9}, { 3.572847132180932*^9, 3.5728472650151653`*^9}, 3.5728473515485177`*^9, { 3.572849422046554*^9, 3.572849426554962*^9}, {3.572849678776205*^9, 3.572849686077018*^9}, {3.5728503673146143`*^9, 3.5728503811830387`*^9}, { 3.5728505998798227`*^9, 3.572850604637831*^9}, 3.5730459405924234`*^9, { 3.5731485633994884`*^9, 3.5731485765503116`*^9}, {3.5731486137719765`*^9, 3.57314870088253*^9}, 3.5746558585762653`*^9, {3.574670156150858*^9, 3.5746701578512607`*^9}, {3.5746701931541224`*^9, 3.5746702231061754`*^9}, {3.574670271856261*^9, 3.574670280545476*^9}, { 3.574670327688759*^9, 3.574670328952361*^9}, {3.5746703662988267`*^9, 3.574670379184449*^9}, {3.5746706373025026`*^9, 3.574670676068571*^9}, { 3.574740867627764*^9, 3.574740880248186*^9}}], Cell[CellGroupData[{ Cell[BoxData[{ RowBox[{ StyleBox[ RowBox[{ RowBox[{"k", "=", "1"}], ";"}], "Input"], "\n", RowBox[{"(*", RowBox[{ StyleBox[ RowBox[{ RowBox[{"Clear", "[", "conn", "]"}], ";"}], "Input"], "\n", StyleBox[ RowBox[{ RowBox[{"conn", " ", "=", " ", RowBox[{"{", RowBox[{ RowBox[{"{", RowBox[{"48", ",", "22", ",", "5"}], "}"}], ",", RowBox[{"{", RowBox[{"21", ",", "25", ",", "54"}], "}"}]}], "}"}]}], ";"}], "Input"]}], "*)"}]}], "\n", StyleBox[ RowBox[{ RowBox[{"rlo", " ", "=", " ", "1.125"}], ";"}], "Input"], "\n", RowBox[{ RowBox[{"tpso", "=", RowBox[{"Table", "[", RowBox[{ RowBox[{"{", RowBox[{"0", ",", "0", ",", "0"}], "}"}], ",", RowBox[{"{", "hj", "}"}]}], "]"}]}], ";"}], "\[IndentingNewLine]", RowBox[{ RowBox[{"tpsu", "=", "tpso"}], ";"}], "\[IndentingNewLine]", StyleBox[ RowBox[{ RowBox[{"rlo", "=", "1.125"}], ";"}], "Input"], "\[IndentingNewLine]", RowBox[{ RowBox[{"coch", "[", RowBox[{"[", "1", "]"}], "]"}], "=", RowBox[{"RotateLeft", "[", RowBox[{ RowBox[{"coch", "[", RowBox[{"[", "1", "]"}], "]"}], ",", RowBox[{"-", "1"}]}], "]"}]}]}], "Input", CellChangeTimes->{{3.572794697520533*^9, 3.5727947043221455`*^9}, { 3.5727948024151173`*^9, 3.572794803507119*^9}, {3.5727948673580313`*^9, 3.572794869838436*^9}, {3.572795260993526*^9, 3.5727952676703377`*^9}, { 3.5727954366342344`*^9, 3.5727954702834935`*^9}, {3.5727973545484033`*^9, 3.5727973657024226`*^9}, {3.572803225319809*^9, 3.572803264553878*^9}, { 3.57280330550395*^9, 3.5728033127111626`*^9}, 3.5728033508376293`*^9, { 3.572803528365941*^9, 3.5728035301443443`*^9}, {3.572803715051469*^9, 3.572803769604765*^9}, {3.572840261866465*^9, 3.5728402628648667`*^9}, { 3.5728405648813972`*^9, 3.572840578905822*^9}, {3.5728406372187243`*^9, 3.572840716170463*^9}, {3.5728407476825185`*^9, 3.572840785746585*^9}, { 3.5728408298790627`*^9, 3.5728408871311636`*^9}, {3.5728409363336496`*^9, 3.572841070790286*^9}, {3.572841415987692*^9, 3.572841609740032*^9}, 3.5728416910629754`*^9, {3.5728417502806797`*^9, 3.572841879885707*^9}, { 3.572841914564568*^9, 3.5728419300709953`*^9}, {3.572841986199894*^9, 3.572842001659521*^9}, {3.5728426453322515`*^9, 3.5728426487174573`*^9}, { 3.572844776030794*^9, 3.572844786919613*^9}, {3.57284502999924*^9, 3.5728450550060835`*^9}, {3.572845459218394*^9, 3.572845496174859*^9}, { 3.5728455656105804`*^9, 3.572845617574272*^9}, {3.5728456738279705`*^9, 3.572845681440784*^9}, {3.5728457322656736`*^9, 3.572845755291314*^9}, 3.572845978356106*^9, {3.572846145151599*^9, 3.572846189096876*^9}, { 3.572846392926834*^9, 3.5728464086828613`*^9}, 3.572846518881455*^9, 3.5728469699562473`*^9, {3.5728470834620466`*^9, 3.572847089873658*^9}, { 3.572847132180932*^9, 3.5728472650151653`*^9}, 3.5728473515485177`*^9, { 3.572849422046554*^9, 3.572849426554962*^9}, {3.572849678776205*^9, 3.572849686077018*^9}, {3.5728503673146143`*^9, 3.5728503811830387`*^9}, { 3.5728505998798227`*^9, 3.572850604637831*^9}, 3.5730459405924234`*^9, { 3.5731485633994884`*^9, 3.5731485765503116`*^9}, {3.5731486137719765`*^9, 3.57314870088253*^9}, 3.5746558585762653`*^9, {3.574670156150858*^9, 3.5746701578512607`*^9}, {3.5746701931541224`*^9, 3.5746702231061754`*^9}, {3.574670271856261*^9, 3.574670280545476*^9}, { 3.574670327688759*^9, 3.574670328952361*^9}, {3.5746703662988267`*^9, 3.574670446904168*^9}, {3.5746710892508965`*^9, 3.574671127018563*^9}, { 3.574671266124007*^9, 3.574671266124007*^9}, {3.574671949327207*^9, 3.574671952228812*^9}, 3.5746720468897786`*^9, {3.574672142595947*^9, 3.5746721470419545`*^9}, {3.5747408907470045`*^9, 3.574740924458664*^9}, { 3.574741956213276*^9, 3.5747419624688873`*^9}, {3.5748306614370527`*^9, 3.5748307091575365`*^9}, 3.5748307421983943`*^9, 3.574830849354983*^9, { 3.5748316203083367`*^9, 3.574831676156435*^9}, {3.574831733065335*^9, 3.574831738228944*^9}}], Cell[BoxData[ RowBox[{"{", RowBox[{"48", ",", "22", ",", "5"}], "}"}]], "Output", CellChangeTimes->{3.574834506359806*^9, 3.5801424190696135`*^9}] }, Open ]], Cell[BoxData[ RowBox[{ RowBox[{ RowBox[{"Do", "[", RowBox[{ RowBox[{ RowBox[{"c", " ", "=", " ", RowBox[{"coch", "[", RowBox[{"[", "k", "]"}], "]"}]}], ";", "\[IndentingNewLine]", RowBox[{"If", "[", RowBox[{ RowBox[{"k", "\[Equal]", "2"}], ",", RowBox[{ RowBox[{"e1", "=", RowBox[{"c", "[", RowBox[{"[", "1", "]"}], "]"}]}], ";", " ", RowBox[{"e2", "=", RowBox[{"c", "[", RowBox[{"[", "2", "]"}], "]"}]}], ";", " ", RowBox[{ RowBox[{"c", "[", RowBox[{"[", "2", "]"}], "]"}], "=", "e1"}], ";", " ", RowBox[{ RowBox[{"c", "[", RowBox[{"[", "1", "]"}], "]"}], "=", "e2"}]}]}], "]"}], ";", " ", "\[IndentingNewLine]", RowBox[{"a1", " ", "=", " ", RowBox[{"dc", "[", RowBox[{"[", RowBox[{ RowBox[{"c", "[", RowBox[{"[", "2", "]"}], "]"}], ",", RowBox[{"c", "[", RowBox[{"[", "1", "]"}], "]"}]}], "]"}], "]"}]}], ";", " ", "\[IndentingNewLine]", RowBox[{"a2", " ", "=", " ", RowBox[{"dc", "[", RowBox[{"[", RowBox[{ RowBox[{"c", "[", RowBox[{"[", "2", "]"}], "]"}], ",", RowBox[{"c", "[", RowBox[{"[", "3", "]"}], "]"}]}], "]"}], "]"}]}], ";", " ", "\[IndentingNewLine]", 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"}], ")"}]}], "]"}]}], ";", "\[IndentingNewLine]", RowBox[{"\[Beta]", " ", "=", " ", RowBox[{"ArcSin", "[", RowBox[{"rlo", "/", RowBox[{"(", RowBox[{ RowBox[{"u2", "[", RowBox[{"[", "21", "]"}], "]"}], " ", "+", " ", "rlo"}], ")"}]}], "]"}]}], ";", " ", "\[IndentingNewLine]", RowBox[{"If", "[", RowBox[{ RowBox[{"k", "\[Equal]", "1"}], ",", RowBox[{"\[Gamma]", " ", "=", RowBox[{ RowBox[{"\[Pi]", "/", "2"}], " ", "-", RowBox[{"\[Alpha]", "/", "2"}]}]}], ",", " ", RowBox[{"\[Gamma]", " ", "=", " ", RowBox[{ RowBox[{"3", "*", RowBox[{"\[Pi]", "/", "2"}]}], " ", "-", " ", RowBox[{"\[Alpha]", "/", "2"}]}]}]}], "]"}], ";", " ", "\n", " ", RowBox[{"L", " ", "=", " ", RowBox[{ RowBox[{"(", RowBox[{ RowBox[{"u2", "[", RowBox[{"[", "21", "]"}], "]"}], " ", "+", " ", "rlo"}], ")"}], "*", RowBox[{"Cos", "[", "\[Beta]", "]"}]}]}], ";", " ", "\[IndentingNewLine]", RowBox[{"v", " ", "=", " ", RowBox[{"Table", "[", RowBox[{ RowBox[{"Join", "[", RowBox[{ RowBox[{"t", "[", RowBox[{"[", RowBox[{"c", "[", RowBox[{"[", "i", "]"}], "]"}], "]"}], "]"}], ",", " ", RowBox[{"{", "1", "}"}]}], "]"}], ",", " ", RowBox[{"{", RowBox[{"i", ",", " ", "1", ",", " ", "P"}], "}"}]}], "]"}]}], ";", " ", "\[IndentingNewLine]", RowBox[{"x2", " ", "=", " ", RowBox[{"t", "[", RowBox[{"[", RowBox[{ RowBox[{"c", "[", RowBox[{"[", "2", "]"}], "]"}], ",", "1"}], "]"}], "]"}]}], ";", " ", "\n", " ", 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"}], "}"}], ",", " ", RowBox[{"{", RowBox[{"0", ",", " ", "1", ",", " ", "0", ",", " ", "0"}], "}"}], ",", " ", RowBox[{"{", RowBox[{"0", ",", " ", "0", ",", " ", "1", ",", " ", "0"}], "}"}], ",", " ", 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"}], "}"}]}], "]"}]}], ";", " ", "\[IndentingNewLine]", RowBox[{"T1", " ", "=", " ", RowBox[{"ArcTan", "[", RowBox[{ RowBox[{"p", "[", RowBox[{"[", RowBox[{"1", ",", "3"}], "]"}], "]"}], "/", RowBox[{"p", "[", RowBox[{"[", RowBox[{"1", ",", "2"}], "]"}], "]"}]}], "]"}]}], ";", " ", "\[IndentingNewLine]", RowBox[{"U", " ", "=", " ", "p"}], ";", " ", "\n", " ", RowBox[{"T", " ", "=", " ", RowBox[{"RotationMatrix", "[", RowBox[{"T1", ",", " ", RowBox[{"{", RowBox[{"1", ",", " ", "0", ",", " ", "0"}], "}"}]}], "]"}]}], ";", " ", "\[IndentingNewLine]", RowBox[{"p", " ", "=", " ", RowBox[{"U", " ", ".", " ", "T"}]}], ";", " ", "\[IndentingNewLine]", RowBox[{"T2", " ", "=", " ", RowBox[{"ArcTan", "[", RowBox[{ RowBox[{"p", "[", RowBox[{"[", RowBox[{"1", ",", "2"}], "]"}], "]"}], "/", RowBox[{"p", "[", RowBox[{"[", RowBox[{"1", ",", "1"}], "]"}], "]"}]}], "]"}]}], ";", " ", "\[IndentingNewLine]", RowBox[{"U", " ", "=", " ", "p"}], ";", " ", "\n", " ", RowBox[{"T", " ", "=", " ", RowBox[{"RotationMatrix", "[", RowBox[{"T2", ",", " ", RowBox[{"{", RowBox[{"0", ",", " ", "0", ",", " ", "1"}], "}"}]}], "]"}]}], ";", " ", "\[IndentingNewLine]", RowBox[{"p", " ", "=", " ", RowBox[{"U", " ", ".", " ", "T"}]}], ";", " ", "\[IndentingNewLine]", RowBox[{"T3", " ", "=", " ", RowBox[{"ArcTan", "[", RowBox[{ RowBox[{"p", "[", RowBox[{"[", RowBox[{"3", ",", "3"}], "]"}], "]"}], "/", RowBox[{"p", "[", RowBox[{"[", RowBox[{"3", ",", "2"}], "]"}], "]"}]}], "]"}]}], ";", " ", "\[IndentingNewLine]", RowBox[{"U", " ", "=", " ", "p"}], ";", " ", "\n", " ", RowBox[{"T", " ", "=", " ", RowBox[{"RotationMatrix", "[", RowBox[{"T3", ",", " ", RowBox[{"{", RowBox[{"1", ",", " ", "0", ",", " ", "0"}], "}"}]}], "]"}]}], ";", " ", "\[IndentingNewLine]", RowBox[{"p", " ", "=", " ", RowBox[{"U", " ", ".", " ", "T"}]}], ";", " ", "\[IndentingNewLine]", RowBox[{"nk", " ", "=", " ", "p"}], ";", " ", RowBox[{"nl", " ", "=", " ", "p"}], ";", " ", "\[IndentingNewLine]", RowBox[{ RowBox[{"nk", "[", RowBox[{"[", RowBox[{"2", ",", "2"}], "]"}], "]"}], " ", "=", " ", RowBox[{"L", "*", RowBox[{"Cos", "[", "\[Gamma]", "]"}]}]}], ";", " ", RowBox[{ RowBox[{"nk", "[", RowBox[{"[", RowBox[{"2", ",", "1"}], "]"}], "]"}], " ", "=", " ", RowBox[{ RowBox[{"(", RowBox[{"-", "L"}], ")"}], "*", RowBox[{"Sin", "[", "\[Gamma]", "]"}]}]}], ";", " ", 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[{"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", " ", "\[IndentingNewLine]", " ", RowBox[{ RowBox[{"Show", "[", RowBox[{ "Plotd", ",", " ", "Plote", ",", " ", "Plota", ",", " ", "Plotb0", ",", " ", "Plotc", ",", " ", RowBox[{"{", RowBox[{ RowBox[{"Axes", " ", "->", " ", "Automatic"}], ",", " ", RowBox[{"AxesLabel", " ", "->", " ", RowBox[{"{", RowBox[{"xl", ",", " ", "yl", ",", " ", "zl"}], "}"}]}], ",", " ", "\n", " ", RowBox[{"AspectRatio", " ", "->", " ", "Automatic"}], ",", " ", RowBox[{"Boxed", " ", "->", " ", "False"}], ",", " ", RowBox[{"PlotRange", " ", "->", " ", "Automatic"}], ",", " ", RowBox[{"SphericalRegion", " ", "->", " ", "True"}]}], "}"}]}], "]"}], "\[IndentingNewLine]", RowBox[{"U", " ", "=", " ", "p"}]}], ";", " ", "\[IndentingNewLine]", RowBox[{"U1", " ", "=", " ", "nk"}], ";", " ", "\n", " ", RowBox[{"U2", " ", "=", " ", "nl"}], ";", " ", "\[IndentingNewLine]", RowBox[{"T", " ", "=", " ", RowBox[{"RotationMatrix", "[", RowBox[{ RowBox[{"-", "T3"}], ",", " ", RowBox[{"{", RowBox[{"1", ",", " ", "0", ",", " ", "0"}], "}"}]}], "]"}]}], ";", " ", "\[IndentingNewLine]", RowBox[{"p", " ", "=", " ", RowBox[{"U", " ", ".", " ", "T"}]}], ";", " ", "\[IndentingNewLine]", RowBox[{"nk", " ", "=", " ", RowBox[{"U1", " ", ".", " ", "T"}]}], ";", " ", "\[IndentingNewLine]", RowBox[{"nl", " ", "=", " ", RowBox[{"U2", " ", ".", " ", "T"}]}], ";", " ", "\[IndentingNewLine]", RowBox[{"U", " ", "=", " ", "p"}], ";", " ", "\[IndentingNewLine]", RowBox[{"U1", " ", "=", " ", "nk"}], ";", " ", "\[IndentingNewLine]", RowBox[{"U2", " ", "=", " ", "nl"}], ";", " ", "\n", " ", RowBox[{"T", " ", "=", " ", RowBox[{"RotationMatrix", "[", RowBox[{ RowBox[{"-", "T2"}], ",", " ", RowBox[{"{", RowBox[{"0", ",", " ", "0", ",", " ", "1"}], "}"}]}], "]"}]}], ";", " ", "\[IndentingNewLine]", RowBox[{"p", " ", "=", " ", RowBox[{"U", " ", ".", " ", "T"}]}], ";", " ", "\[IndentingNewLine]", RowBox[{"nk", " ", "=", " ", RowBox[{"U1", " ", ".", " ", "T"}]}], ";", " ", "\[IndentingNewLine]", RowBox[{"nl", " ", "=", " ", RowBox[{"U2", " ", ".", " ", "T"}]}], ";", " ", "\[IndentingNewLine]", RowBox[{"U", " ", "=", " ", "p"}], ";", " ", "\[IndentingNewLine]", RowBox[{"U1", " ", "=", " ", "nk"}], ";", " ", "\[IndentingNewLine]", RowBox[{"U2", " ", "=", " ", "nl"}], ";", " ", "\n", " ", RowBox[{"T", " ", "=", " ", RowBox[{"RotationMatrix", "[", RowBox[{ RowBox[{"-", "T1"}], ",", " ", RowBox[{"{", RowBox[{"1", ",", " ", "0", ",", " ", "0"}], "}"}]}], "]"}]}], ";", " ", "\[IndentingNewLine]", RowBox[{"p", " ", "=", " ", RowBox[{"U", " ", ".", " ", "T"}]}], ";", "\[IndentingNewLine]", RowBox[{"nk", " ", "=", " ", RowBox[{"U1", " ", ".", " ", "T"}]}], ";", " ", "\[IndentingNewLine]", RowBox[{"nl", " ", "=", " ", RowBox[{"U2", " ", ".", " ", "T"}]}], ";", " ", "\[IndentingNewLine]", 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"}], "}"}]}], "]"}]}], ";", " ", "\[IndentingNewLine]", 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"}], "}"}]}], "]"}]}], ";", " ", "\[IndentingNewLine]", RowBox[{"Q", " ", "=", " ", RowBox[{"{", RowBox[{ RowBox[{"{", RowBox[{"1", ",", " ", "0", ",", " ", "0", ",", " ", "0"}], "}"}], ",", " ", RowBox[{"{", RowBox[{"0", ",", " ", "1", ",", " ", "0", ",", " ", "0"}], "}"}], ",", " ", RowBox[{"{", RowBox[{"0", ",", " ", "0", ",", " ", "1", ",", " ", "0"}], "}"}], ",", " ", RowBox[{"{", RowBox[{"x2", ",", " ", "y2", ",", " ", "z2", ",", " ", "1"}], "}"}]}], "}"}]}], ";", " ", "\n", " ", 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"}], "}"}]}], "]"}]}], ";", " ", "\n", " ", 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[{"tpso", "[", RowBox[{"[", "k", "]"}], "]"}], " ", "=", " ", RowBox[{"nk", "[", RowBox[{"[", "2", "]"}], "]"}]}], ";", " ", "\n", " ", RowBox[{ RowBox[{"tpsu", "[", RowBox[{"[", "k", "]"}], "]"}], " ", "=", " ", RowBox[{"nl", "[", RowBox[{"[", "2", "]"}], "]"}]}]}], ",", " ", RowBox[{"{", RowBox[{"k", ",", " ", "hj"}], "}"}]}], "]"}], ";"}], " "}]], "Input", CellChangeTimes->{{3.572794697520533*^9, 3.5727947043221455`*^9}, { 3.5727948024151173`*^9, 3.572794803507119*^9}, {3.5727948673580313`*^9, 3.572794869838436*^9}, {3.572795260993526*^9, 3.5727952676703377`*^9}, { 3.5727954366342344`*^9, 3.5727954702834935`*^9}, {3.5727973545484033`*^9, 3.5727973657024226`*^9}, {3.572803225319809*^9, 3.572803264553878*^9}, { 3.57280330550395*^9, 3.5728033127111626`*^9}, 3.5728033508376293`*^9, { 3.572803528365941*^9, 3.5728035301443443`*^9}, {3.572803715051469*^9, 3.572803769604765*^9}, {3.572840261866465*^9, 3.5728402628648667`*^9}, { 3.5728405648813972`*^9, 3.572840578905822*^9}, {3.5728406372187243`*^9, 3.572840716170463*^9}, {3.5728407476825185`*^9, 3.572840785746585*^9}, { 3.5728408298790627`*^9, 3.5728408871311636`*^9}, {3.5728409363336496`*^9, 3.572841070790286*^9}, {3.572841415987692*^9, 3.572841609740032*^9}, 3.5728416910629754`*^9, {3.5728417502806797`*^9, 3.572841879885707*^9}, { 3.572841914564568*^9, 3.5728419300709953`*^9}, {3.572841986199894*^9, 3.572842001659521*^9}, {3.5728426453322515`*^9, 3.5728426487174573`*^9}, { 3.572844776030794*^9, 3.572844786919613*^9}, {3.57284502999924*^9, 3.5728450550060835`*^9}, {3.572845459218394*^9, 3.572845496174859*^9}, { 3.5728455656105804`*^9, 3.572845617574272*^9}, {3.5728456738279705`*^9, 3.572845681440784*^9}, {3.5728457322656736`*^9, 3.572845755291314*^9}, 3.572845978356106*^9, {3.572846145151599*^9, 3.572846189096876*^9}, { 3.572846392926834*^9, 3.5728464086828613`*^9}, 3.572846518881455*^9, 3.5728469699562473`*^9, {3.5728470834620466`*^9, 3.572847089873658*^9}, { 3.572847132180932*^9, 3.5728472650151653`*^9}, 3.5728473515485177`*^9, { 3.572849422046554*^9, 3.572849426554962*^9}, {3.572849678776205*^9, 3.572849686077018*^9}, {3.5728503673146143`*^9, 3.5728503811830387`*^9}, { 3.5728505998798227`*^9, 3.572850604637831*^9}, 3.5730459405924234`*^9, { 3.5731485633994884`*^9, 3.5731485765503116`*^9}, {3.5731486137719765`*^9, 3.57314870088253*^9}, 3.5746558585762653`*^9, {3.574670156150858*^9, 3.5746701578512607`*^9}, {3.5746701931541224`*^9, 3.5746702231061754`*^9}, {3.574670271856261*^9, 3.574670280545476*^9}, { 3.574670327688759*^9, 3.574670328952361*^9}, {3.5746703662988267`*^9, 3.574670379184449*^9}, {3.57467048205103*^9, 3.5746705596923666`*^9}, { 3.57467096030107*^9, 3.574670965371079*^9}, {3.574671247216774*^9, 3.5746712771688266`*^9}, {3.5746714284734926`*^9, 3.5746715738501472`*^9}, {3.574671616063822*^9, 3.574671780534911*^9}, 3.5746718110797644`*^9, 3.5746721941540375`*^9, {3.5746722378497143`*^9, 3.5746722899070053`*^9}, {3.574672371073948*^9, 3.574672409106815*^9}, { 3.5746724505248876`*^9, 3.5746724544404945`*^9}, {3.57467249738737*^9, 3.574672498401372*^9}, 3.574672534031834*^9, {3.574742024385396*^9, 3.574742025524198*^9}, {3.574830761168028*^9, 3.574830777984857*^9}, { 3.574830820947333*^9, 3.5748308292933474`*^9}, {3.5748311210138597`*^9, 3.5748311809803653`*^9}, {3.574831455806048*^9, 3.5748314566796494`*^9}, { 3.5748315927430887`*^9, 3.574831592899089*^9}, 3.5748317545777726`*^9, { 3.5748342338445272`*^9, 3.574834240209338*^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.2089239760875008`"}], "}"}], ",", RowBox[{"{", RowBox[{"3", ",", "1", ",", "1.2093117000733593`"}], "}"}], ",", RowBox[{"{", RowBox[{"4", ",", "3", ",", "1.2125524485639627`"}], "}"}], ",", RowBox[{"{", RowBox[{"5", ",", "2", ",", "1.1885369012002074`"}], "}"}], ",", RowBox[{"{", RowBox[{"6", ",", "4", ",", "1.2208684878769631`"}], "}"}], ",", RowBox[{"{", RowBox[{"7", ",", "1", ",", "1.1611100477985508`"}], "}"}], ",", RowBox[{"{", RowBox[{"8", ",", "2", ",", "1.2000928574714744`"}], "}"}], ",", RowBox[{"{", RowBox[{"9", ",", "5", ",", "1.2106280587681753`"}], "}"}], ",", RowBox[{"{", RowBox[{"9", ",", "7", ",", "1.1945990782605336`"}], "}"}], ",", RowBox[{"{", RowBox[{"10", ",", "3", ",", "1.204667457232264`"}], "}"}], ",", RowBox[{"{", RowBox[{"11", ",", "4", ",", "1.1764034082945702`"}], "}"}], ",", RowBox[{"{", RowBox[{"11", ",", "8", ",", "1.1587415975213327`"}], "}"}], ",", RowBox[{"{", RowBox[{"12", ",", "2", ",", "1.1874566441223584`"}], "}"}], ",", RowBox[{"{", RowBox[{"13", ",", "6", ",", "1.168651146569422`"}], "}"}], ",", RowBox[{"{", RowBox[{"14", ",", "10", ",", "1.2034214651035733`"}], "}"}], ",", RowBox[{"{", RowBox[{"14", ",", "13", ",", "1.1830540626978738`"}], "}"}], ",", RowBox[{"{", RowBox[{"15", ",", "6", ",", "1.2112233902183762`"}], "}"}], ",", RowBox[{"{", RowBox[{"16", ",", "6", ",", "1.1908841882769436`"}], "}"}], ",", RowBox[{"{", RowBox[{"17", ",", "5", ",", "1.1796580346067578`"}], "}"}], ",", RowBox[{"{", RowBox[{"18", ",", "15", ",", "1.1994584370227777`"}], "}"}], ",", RowBox[{"{", RowBox[{"19", ",", "13", ",", "1.018239488882042`"}], "}"}], ",", RowBox[{"{", RowBox[{"20", ",", "18", ",", "1.1694365259514992`"}], "}"}], ",", RowBox[{"{", RowBox[{"20", ",", "19", ",", "1.133132008706068`"}], "}"}], ",", RowBox[{"{", RowBox[{"21", ",", "17", ",", "1.1710178358100878`"}], "}"}], ",", RowBox[{"{", RowBox[{"22", ",", "5", ",", "1.1175335553911183`"}], "}"}], ",", RowBox[{"{", RowBox[{"23", ",", "11", ",", "0.9219428549379565`"}], "}"}], ",", RowBox[{"{", RowBox[{"24", ",", "17", ",", "0.9125444262165858`"}], "}"}], ",", RowBox[{"{", RowBox[{"25", ",", "21", ",", "1.115552745313438`"}], "}"}], ",", RowBox[{"{", RowBox[{"26", ",", "20", ",", "0.9214576572773538`"}], "}"}], ",", RowBox[{"{", RowBox[{"27", ",", "1", ",", "1.175873960608266`"}], "}"}], ",", RowBox[{"{", RowBox[{"28", ",", "3", ",", "1.1759719747106816`"}], "}"}], ",", RowBox[{"{", RowBox[{"29", ",", "4", ",", "1.1759471005730835`"}], "}"}], ",", RowBox[{"{", RowBox[{"30", ",", "7", ",", "1.1758456663968215`"}], "}"}], ",", RowBox[{"{", RowBox[{"31", ",", "7", ",", "1.1759533097985035`"}], "}"}], ",", RowBox[{"{", RowBox[{"32", ",", "8", ",", "1.1757054320143454`"}], "}"}], ",", RowBox[{"{", RowBox[{"33", ",", "8", ",", "1.1758790207110068`"}], "}"}], ",", RowBox[{"{", RowBox[{"34", ",", "9", ",", "1.1758029157078513`"}], "}"}], ",", RowBox[{"{", RowBox[{"35", ",", "9", ",", "1.1758456345190291`"}], "}"}], ",", RowBox[{"{", RowBox[{"36", ",", "10", ",", "1.1759147256701556`"}], "}"}], ",", RowBox[{"{", RowBox[{"37", ",", "10", ",", "1.1757999482709418`"}], "}"}], ",", RowBox[{"{", RowBox[{"38", ",", "12", ",", "1.1756697494994617`"}], "}"}], ",", RowBox[{"{", RowBox[{"39", ",", "12", ",", "1.1757532431508864`"}], "}"}], ",", RowBox[{"{", RowBox[{"40", ",", "12", ",", "1.175828457261476`"}], "}"}], ",", RowBox[{"{", RowBox[{"41", ",", "14", ",", "1.175867660275224`"}], "}"}], ",", RowBox[{"{", RowBox[{"42", ",", "14", ",", "1.1759604267200023`"}], "}"}], ",", RowBox[{"{", RowBox[{"43", ",", "15", ",", "1.1758298043519986`"}], "}"}], ",", RowBox[{"{", RowBox[{"44", ",", "15", ",", "1.1756834897111936`"}], "}"}], ",", RowBox[{"{", RowBox[{"45", ",", "16", ",", "1.1757872368289468`"}], "}"}], ",", RowBox[{"{", RowBox[{"46", ",", "16", ",", "1.1758862986042695`"}], "}"}], ",", RowBox[{"{", RowBox[{"47", ",", "16", ",", "1.176070856851879`"}], "}"}], ",", RowBox[{"{", RowBox[{"48", ",", "22", ",", "1.1095683746965141`"}], "}"}], ",", RowBox[{"{", RowBox[{"49", ",", "18", ",", "1.1758807764402524`"}], "}"}], ",", RowBox[{"{", RowBox[{"50", ",", "18", ",", "1.1757149010027295`"}], "}"}], ",", RowBox[{"{", RowBox[{"51", ",", "19", ",", "1.1758000987445754`"}], "}"}], ",", RowBox[{"{", RowBox[{"52", ",", "21", ",", "1.1758071406155688`"}], "}"}], ",", RowBox[{"{", RowBox[{"53", ",", "21", ",", "1.1757645908950707`"}], "}"}], ",", RowBox[{"{", RowBox[{"54", ",", "25", ",", "1.1095979056681424`"}], "}"}]}], "}"}]], "Output", CellChangeTimes->{3.574834506437806*^9, 3.5801424191320133`*^9}], Cell[BoxData["57"], "Output", CellChangeTimes->{3.574834506437806*^9, 3.5801424191320133`*^9}], Cell[BoxData["29"], "Output", CellChangeTimes->{3.574834506437806*^9, 3.5801424191320133`*^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", ",", "cj"}], "}"}]}], "]"}]}], ";"}], "\[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", ",", "cj"}], "}"}]}], "]"}]}], ";"}], "\[IndentingNewLine]", RowBox[{ RowBox[{"Plot8d", "=", RowBox[{"Table", "[", RowBox[{ RowBox[{"Graphics3D", "[", RowBox[{"{", RowBox[{ RowBox[{"Opacity", "[", "0.4", "]"}], ",", RowBox[{"Lighter", "[", "Red", "]"}], ",", RowBox[{"Sphere", "[", RowBox[{ RowBox[{"tplo", "[", RowBox[{"[", "i", "]"}], "]"}], ",", "rlo"}], "]"}]}], "}"}], "]"}], ",", RowBox[{"{", RowBox[{"i", ",", "1", ",", "oj"}], "}"}]}], "]"}]}], ";"}], "\[IndentingNewLine]", RowBox[{ RowBox[{"Plot8e", "=", RowBox[{"Table", "[", RowBox[{ RowBox[{"Graphics3D", "[", RowBox[{"{", RowBox[{ RowBox[{"Opacity", "[", "0.4", "]"}], ",", RowBox[{"Lighter", "[", "Red", "]"}], ",", RowBox[{"Sphere", "[", RowBox[{ RowBox[{"tplu", "[", RowBox[{"[", "i", "]"}], "]"}], ",", "rlo"}], "]"}]}], "}"}], "]"}], ",", RowBox[{"{", RowBox[{"i", ",", "1", ",", "oj"}], "}"}]}], "]"}]}], ";"}], "\[IndentingNewLine]", RowBox[{ RowBox[{"Plot8f", "=", RowBox[{"Table", "[", RowBox[{ RowBox[{"Graphics3D", "[", RowBox[{"{", RowBox[{ RowBox[{"Opacity", "[", "0.4", "]"}], ",", RowBox[{"Lighter", "[", "Red", "]"}], ",", RowBox[{"Sphere", "[", RowBox[{ RowBox[{"tpso", "[", RowBox[{"[", "i", "]"}], "]"}], ",", "rlo"}], "]"}]}], "}"}], "]"}], ",", RowBox[{"{", RowBox[{"i", ",", "1", ",", "hj"}], "}"}]}], "]"}]}], ";"}], "\[IndentingNewLine]", RowBox[{ RowBox[{"Plot8g", "=", RowBox[{"Table", "[", RowBox[{ RowBox[{"Graphics3D", "[", RowBox[{"{", RowBox[{ RowBox[{"Opacity", "[", "0.4", "]"}], ",", RowBox[{"Lighter", "[", "Red", "]"}], ",", RowBox[{"Sphere", "[", RowBox[{ RowBox[{"tpsu", "[", RowBox[{"[", "i", "]"}], "]"}], ",", "rlo"}], "]"}]}], "}"}], "]"}], ",", RowBox[{"{", RowBox[{"i", ",", "1", ",", "hj"}], "}"}]}], "]"}]}], ";"}]}], "Input", CellChangeTimes->{{3.5681365021632137`*^9, 3.5681365171392403`*^9}, { 3.568136560351316*^9, 3.5681365863097615`*^9}, {3.5681369135895367`*^9, 3.5681369265999594`*^9}, {3.568137821916732*^9, 3.5681378378443604`*^9}, { 3.5682072492149415`*^9, 3.5682072529901485`*^9}, 3.568209802830227*^9, { 3.5682216503836985`*^9, 3.5682217583046885`*^9}, {3.5682217912831464`*^9, 3.568221843465238*^9}, {3.5682219760654707`*^9, 3.5682221133457117`*^9}, { 3.568222159615393*^9, 3.5682221693498106`*^9}, {3.5682222565227633`*^9, 3.5682222578487663`*^9}, 3.5682224736283445`*^9, 3.5682227227607822`*^9, 3.5682227558640404`*^9, {3.568222818810151*^9, 3.5682228486062036`*^9}, { 3.5682230057764797`*^9, 3.5682230079916835`*^9}, {3.568223041952943*^9, 3.5682230548229656`*^9}, 3.5682232619601297`*^9, 3.5682233000709963`*^9, { 3.568223536645412*^9, 3.5682235381118145`*^9}, {3.568223591151908*^9, 3.568223591526308*^9}, {3.5682236491528096`*^9, 3.568223657483224*^9}, { 3.568223713222122*^9, 3.5682237532361927`*^9}, {3.568223800379475*^9, 3.568223827648323*^9}, {3.5682238887380304`*^9, 3.5682238893152313`*^9}, { 3.5682240287170763`*^9, 3.5682240612431335`*^9}, 3.5682241088076167`*^9, { 3.568224198772975*^9, 3.5682242396450467`*^9}, {3.568224282170721*^9, 3.5682243185031853`*^9}, {3.568224437890195*^9, 3.568224439590598*^9}, { 3.568224572253231*^9, 3.5682245867144566`*^9}, {3.5682247081762695`*^9, 3.568224733557514*^9}, {3.56822480520844*^9, 3.5682248433505073`*^9}, { 3.568224884206979*^9, 3.5682248959069996`*^9}, {3.568224982830352*^9, 3.5682250047639904`*^9}, {3.56822503870965*^9, 3.5682250803305235`*^9}, { 3.5682251223413973`*^9, 3.568225141451431*^9}, {3.568225234177994*^9, 3.5682252929588966`*^9}, {3.5682253775890455`*^9, 3.568225482140429*^9}, { 3.56822551694409*^9, 3.5682255297205124`*^9}, {3.568225573197789*^9, 3.5682255809666023`*^9}, 3.568225660698343*^9, 3.5682257301964645`*^9, { 3.568225765078126*^9, 3.5682257828933573`*^9}, {3.568225927026843*^9, 3.568225927416844*^9}, {3.568267062420238*^9, 3.568267081358671*^9}, { 3.568267188328059*^9, 3.5682672830358257`*^9}, {3.5682676367040462`*^9, 3.568267747979042*^9}, 3.5682678404716043`*^9, 3.568267882030078*^9, { 3.5682679252577534`*^9, 3.568267996612279*^9}, {3.5682680488879704`*^9, 3.568268061133992*^9}, {3.568268100914062*^9, 3.5682681150944867`*^9}, { 3.5682681672609787`*^9, 3.5682681709113846`*^9}, {3.568268272904364*^9, 3.5682683182536435`*^9}, {3.5682685202739983`*^9, 3.568268599194537*^9}, { 3.5682686348873997`*^9, 3.568268637773405*^9}, {3.5682686944951043`*^9, 3.568268872273017*^9}, {3.5682689420207396`*^9, 3.568269016947671*^9}, { 3.5682695040741262`*^9, 3.568269601153097*^9}, {3.5682696652380095`*^9, 3.5682696728352227`*^9}, {3.5682697489633565`*^9, 3.5682698308635006`*^9}, {3.568271156491429*^9, 3.568271160063835*^9}, { 3.568271244927984*^9, 3.568271369010602*^9}, {3.5682716250070515`*^9, 3.5682717312276382`*^9}, {3.5682717843301315`*^9, 3.5682718576814604`*^9}, {3.568271940673606*^9, 3.5682720536490045`*^9}, { 3.5682722259669075`*^9, 3.5682723223126764`*^9}, {3.568272370813162*^9, 3.568272411466833*^9}, {3.5682725893539457`*^9, 3.568272622238803*^9}, { 3.5682726936713285`*^9, 3.5682726960113325`*^9}, {3.568272741079812*^9, 3.56827275143823*^9}, {3.5682729218373294`*^9, 3.568272991070251*^9}, { 3.5682734285574193`*^9, 3.5682734302890224`*^9}, {3.5682734898811274`*^9, 3.5682735111595645`*^9}, {3.5682736115925407`*^9, 3.5682736313577757`*^9}, {3.5682738601945777`*^9, 3.568273987272401*^9}, { 3.5682763944346285`*^9, 3.5682764313910933`*^9}, 3.5682765128232365`*^9, { 3.5682766527398825`*^9, 3.568276660976697*^9}, {3.5682774496048822`*^9, 3.568277461663703*^9}, {3.5683784032731285`*^9, 3.568378422991563*^9}, { 3.568378459308427*^9, 3.5683784812420654`*^9}, {3.568378513440522*^9, 3.568378867046343*^9}, {3.568378915468828*^9, 3.56837896203491*^9}, { 3.5683790764299107`*^9, 3.568379270041851*^9}, {3.568380233530743*^9, 3.568380234388745*^9}, 3.5683804214954734`*^9, 3.568380471867962*^9, 3.5683805399464817`*^9, {3.5683812396077104`*^9, 3.568381293537005*^9}, { 3.568381339541486*^9, 3.568381420224828*^9}, {3.5684645223056345`*^9, 3.5684645572340956`*^9}, {3.5684651558539467`*^9, 3.5684651618911576`*^9}, {3.5688209923798466`*^9, 3.568820997683856*^9}, { 3.568821158754139*^9, 3.568821160750942*^9}, 3.56882222404881*^9, { 3.568822649274357*^9, 3.5688226508031597`*^9}, 3.568822723109287*^9, { 3.5693397221142225`*^9, 3.5693397223326235`*^9}, {3.5693899272912874`*^9, 3.5693899274472876`*^9}, {3.5693910617720795`*^9, 3.5693910848757205`*^9}, 3.5693911374166126`*^9, {3.569391214402748*^9, 3.5693912147147484`*^9}, 3.569391451944365*^9, {3.569391487793228*^9, 3.569391507620863*^9}, { 3.5693923162258854`*^9, 3.5693923173958874`*^9}, {3.569406068526634*^9, 3.569406086092265*^9}, 3.569690172138941*^9, 3.569780036185542*^9, { 3.570453906913044*^9, 3.5704539079894457`*^9}, {3.570454575670618*^9, 3.5704545899602437`*^9}, {3.570454765008151*^9, 3.570454772277764*^9}, 3.5708553779481487`*^9, {3.5709431726830034`*^9, 3.570943174555007*^9}, { 3.5709495710522423`*^9, 3.5709495907082767`*^9}, {3.570949647617176*^9, 3.570949673138821*^9}, {3.570950759321929*^9, 3.5709507772775607`*^9}, { 3.5709508127364225`*^9, 3.5709508405200715`*^9}, {3.570991123104905*^9, 3.570991124259307*^9}, {3.5709912161278687`*^9, 3.570991227937089*^9}, { 3.5709912804155817`*^9, 3.570991308776431*^9}, {3.5709914026885962`*^9, 3.5709914215490294`*^9}, {3.570991574429298*^9, 3.5709916038821497`*^9}, 3.570991652445035*^9, 3.570991830004547*^9, 3.570991865276209*^9, { 3.5709919181759014`*^9, 3.5709919260539155`*^9}, {3.570992027251293*^9, 3.570992050058533*^9}, 3.5709920901350036`*^9, 3.570992186979974*^9, { 3.57122255431676*^9, 3.5712225562355638`*^9}, 3.571223175338251*^9, { 3.5713153738729277`*^9, 3.571315375682531*^9}, 3.5713224026962075`*^9, { 3.5713224627875133`*^9, 3.5713224654863176`*^9}, {3.5713224965147724`*^9, 3.571322572268505*^9}, {3.5713226259637995`*^9, 3.5713226549330506`*^9}, { 3.5713308245340652`*^9, 3.571330884469371*^9}, {3.5713309160126257`*^9, 3.5713309422674723`*^9}, 3.571331071326499*^9, {3.5713311246629925`*^9, 3.5713311332274075`*^9}, {3.571331300334901*^9, 3.5713313470881834`*^9}, 3.5713314298931284`*^9, 3.571331594130217*^9, {3.571331632849485*^9, 3.5713316334578857`*^9}, {3.5713316704299507`*^9, 3.5713316709447517`*^9}, {3.571331783327349*^9, 3.571331790019761*^9}, { 3.5713319475956383`*^9, 3.571331948360039*^9}, {3.5713326567416835`*^9, 3.571332681717327*^9}, {3.571332736801024*^9, 3.571332753305853*^9}, { 3.571332796221528*^9, 3.5713328475768185`*^9}, {3.571332914344936*^9, 3.571332924672154*^9}, {3.5713330072586994`*^9, 3.5713330320471425`*^9}, { 3.5713330798612266`*^9, 3.5713330883320417`*^9}, {3.5713331731961904`*^9, 3.571333178266199*^9}, {3.571333407851803*^9, 3.571333426837036*^9}, { 3.571333542292839*^9, 3.571333557705666*^9}, {3.5713336117441607`*^9, 3.5713337055939255`*^9}, {3.5713337750608473`*^9, 3.571333798070888*^9}, { 3.5713366694988756`*^9, 3.5713366834765005`*^9}, {3.5713369716090064`*^9, 3.57133697359021*^9}, {3.57138272164856*^9, 3.571382756233821*^9}, { 3.57138283537276*^9, 3.571382866900415*^9}, {3.5713829070080853`*^9, 3.5713829086616883`*^9}, {3.571382939175342*^9, 3.5713830233374896`*^9}, { 3.5713831045200324`*^9, 3.571383106126835*^9}, {3.571383198260597*^9, 3.5713832448422785`*^9}, 3.5716785972796593`*^9, 3.5718167268987517`*^9, { 3.571838452469782*^9, 3.5718386879053955`*^9}, {3.571838766139532*^9, 3.571838773908346*^9}, 3.5718388425484667`*^9, {3.571838961763876*^9, 3.571838969236289*^9}, {3.571839027970392*^9, 3.5718390313399982`*^9}, { 3.571839741203645*^9, 3.5718397450100517`*^9}, {3.572538612521628*^9, 3.572538701894185*^9}, {3.572538746213863*^9, 3.572538844837236*^9}, 3.5725397817592816`*^9, {3.5726093687611146`*^9, 3.5726094120667906`*^9}, { 3.5726201406133776`*^9, 3.5726201439517837`*^9}, {3.5726204342214937`*^9, 3.572620455406331*^9}, {3.5726210034788933`*^9, 3.572621009968505*^9}, { 3.5728421659278097`*^9, 3.5728422874676228`*^9}, {3.572844941796685*^9, 3.57284494451109*^9}, {3.572850660423529*^9, 3.5728506878327775`*^9}, 3.5731240021791506`*^9, {3.573124038683215*^9, 3.57312404156922*^9}, 3.5731241655738378`*^9, {3.573150838242284*^9, 3.5731508464166985`*^9}, { 3.5732110436990156`*^9, 3.573211066116255*^9}, {3.573212991206436*^9, 3.573213000894053*^9}, {3.573213104540635*^9, 3.573213182462772*^9}, { 3.5732202689099436`*^9, 3.573220322745638*^9}, {3.573220354086093*^9, 3.5732203696081204`*^9}, {3.573220402914179*^9, 3.573220410448992*^9}, { 3.5746631320730405`*^9, 3.574663233114418*^9}, {3.5746640424906397`*^9, 3.574664047560649*^9}, {3.5746708183720207`*^9, 3.574670838917257*^9}, { 3.5747409576711226`*^9, 3.574740975720354*^9}, {3.5747864634781103`*^9, 3.5747864662861156`*^9}, {3.574786586827527*^9, 3.574786630445204*^9}, { 3.574786972070204*^9, 3.5747869752838097`*^9}, {3.5748281512990437`*^9, 3.5748281556358514`*^9}}], Cell[CellGroupData[{ Cell[BoxData[{ RowBox[{ RowBox[{"Plot9", "=", " ", RowBox[{"Table", "[", RowBox[{ RowBox[{"Graphics3D", "[", RowBox[{"{", RowBox[{ RowBox[{"Lighter", "[", RowBox[{"Orange", ",", "0.5"}], "]"}], ",", RowBox[{"Tube", "[", RowBox[{ RowBox[{"{", RowBox[{ RowBox[{"{", RowBox[{ RowBox[{"x", "[", RowBox[{"[", RowBox[{"a", "[", RowBox[{"[", RowBox[{"i", ",", "1"}], "]"}], "]"}], "]"}], "]"}], ",", RowBox[{"y", "[", RowBox[{"[", RowBox[{"a", "[", RowBox[{"[", RowBox[{"i", ",", "1"}], "]"}], "]"}], "]"}], "]"}], ",", RowBox[{"z", "[", RowBox[{"[", RowBox[{"a", "[", RowBox[{"[", RowBox[{"i", ",", "1"}], "]"}], "]"}], "]"}], "]"}]}], "}"}], ",", RowBox[{"{", RowBox[{ RowBox[{"x", "[", RowBox[{"[", RowBox[{"a", "[", RowBox[{"[", RowBox[{"i", ",", "2"}], "]"}], "]"}], "]"}], "]"}], ",", RowBox[{"y", "[", RowBox[{"[", RowBox[{"a", "[", RowBox[{"[", RowBox[{"i", ",", "2"}], "]"}], "]"}], "]"}], "]"}], ",", RowBox[{"z", "[", RowBox[{"[", RowBox[{"a", "[", RowBox[{"[", RowBox[{"i", ",", "2"}], "]"}], "]"}], "]"}], "]"}]}], "}"}]}], "}"}], ",", "0.15"}], "]"}]}], "}"}], "]"}], ",", RowBox[{"{", RowBox[{"i", ",", "1", ",", "nb"}], "}"}]}], "]"}]}], ";"}], "\[IndentingNewLine]", RowBox[{ RowBox[{"Plot9a", "=", " ", RowBox[{"Graphics3D", "[", RowBox[{"Tube", "[", RowBox[{ RowBox[{"{", RowBox[{ RowBox[{"{", RowBox[{ RowBox[{"x", "[", RowBox[{"[", "21", "]"}], "]"}], ",", RowBox[{"y", "[", RowBox[{"[", "21", "]"}], "]"}], ",", RowBox[{"z", "[", RowBox[{"[", "21", "]"}], "]"}]}], "}"}], ",", RowBox[{"{", RowBox[{ RowBox[{"nk", "[", RowBox[{"[", RowBox[{"2", ",", "1"}], "]"}], "]"}], ",", RowBox[{"nk", "[", RowBox[{"[", RowBox[{"2", ",", "2"}], "]"}], "]"}], ",", RowBox[{"nk", "[", RowBox[{"[", RowBox[{"2", ",", "3"}], "]"}], "]"}]}], "}"}]}], "}"}], ",", "0.06"}], "]"}], "]"}]}], ";"}], "\[IndentingNewLine]", RowBox[{ RowBox[{"Plot9b", "=", " ", RowBox[{"Graphics3D", "[", RowBox[{"Tube", "[", RowBox[{ RowBox[{"{", RowBox[{ RowBox[{"{", RowBox[{ RowBox[{"x", "[", RowBox[{"[", "21", "]"}], "]"}], ",", RowBox[{"y", "[", RowBox[{"[", "21", "]"}], "]"}], ",", RowBox[{"z", "[", RowBox[{"[", "21", "]"}], "]"}]}], "}"}], ",", RowBox[{"{", RowBox[{ RowBox[{"nl", "[", RowBox[{"[", RowBox[{"2", ",", "1"}], "]"}], "]"}], ",", RowBox[{"nl", "[", RowBox[{"[", RowBox[{"2", ",", "2"}], "]"}], "]"}], ",", RowBox[{"nl", "[", RowBox[{"[", RowBox[{"2", ",", "3"}], "]"}], "]"}]}], "}"}]}], "}"}], ",", "0.06"}], "]"}], "]"}]}], ";"}], "\[IndentingNewLine]", RowBox[{"Show", "[", RowBox[{"Plot1o", ",", RowBox[{"(*", RowBox[{"Plot2", ","}], "*)"}], "Plot7", ",", "Plot8", ",", "Plot8a", ",", "Plot8b", ",", "Plot8d", ",", "Plot8e", ",", "Plot8f", ",", "Plot8g", ",", "Plot9", ",", RowBox[{"{", RowBox[{ RowBox[{"AspectRatio", "\[Rule]", "Automatic"}], ",", RowBox[{"Boxed", "\[Rule]", "False"}], ",", RowBox[{"(*", " ", RowBox[{ RowBox[{"Axes", "\[Rule]", "Automatic"}], ",", RowBox[{"AxesLabel", "\[Rule]", RowBox[{"{", RowBox[{"xl", ",", "yl", ",", "zl"}], "}"}]}], ","}], "*)"}], RowBox[{"SphericalRegion", "\[Rule]", "True"}]}], "}"}]}], "]"}], "\[IndentingNewLine]", RowBox[{"Show", "[", RowBox[{"Plot1o", ",", "Plot2", ",", "Plot9", ",", RowBox[{"(*", RowBox[{"Plot9a", ",", "Plot9b", ","}], "*)"}], RowBox[{"{", RowBox[{ RowBox[{"Axes", "\[Rule]", "Automatic"}], ",", RowBox[{"AxesLabel", "\[Rule]", RowBox[{"{", RowBox[{"xl", ",", "yl", ",", "zl"}], "}"}]}], ",", RowBox[{"AspectRatio", "\[Rule]", "Automatic"}], ",", RowBox[{"Boxed", "\[Rule]", "True"}], ",", " ", RowBox[{"SphericalRegion", "\[Rule]", "True"}]}], "}"}]}], "]"}], "\[IndentingNewLine]", RowBox[{"Show", "[", RowBox[{"Plot1o", ",", "Plot2", ",", "Plot7", ",", "Plot8", ",", RowBox[{"{", RowBox[{ RowBox[{"Axes", "\[Rule]", "Automatic"}], ",", RowBox[{"AxesLabel", "\[Rule]", RowBox[{"{", RowBox[{"xl", ",", "yl", ",", "zl"}], "}"}]}], ",", RowBox[{"AspectRatio", "\[Rule]", "Automatic"}], ",", RowBox[{"Boxed", "\[Rule]", "True"}], ",", " ", RowBox[{"SphericalRegion", "\[Rule]", "True"}]}], "}"}]}], "]"}], "\[IndentingNewLine]", RowBox[{"Show", "[", RowBox[{"Plot1o", ",", "Plot2", ",", "Plot8a", ",", "Plot8b", ",", RowBox[{"{", RowBox[{ RowBox[{"Axes", "\[Rule]", "Automatic"}], ",", RowBox[{"AxesLabel", "\[Rule]", RowBox[{"{", RowBox[{"xl", ",", "yl", ",", "zl"}], "}"}]}], ",", RowBox[{"AspectRatio", "\[Rule]", "Automatic"}], ",", RowBox[{"Boxed", "\[Rule]", "True"}], ",", " ", RowBox[{"SphericalRegion", "\[Rule]", "True"}]}], "}"}]}], "]"}], "\[IndentingNewLine]", RowBox[{"Show", "[", RowBox[{"Plot1o", ",", "Plot2", ",", RowBox[{"(*", RowBox[{"Plot8c", ","}], "*)"}], "Plot8d", ",", "Plot8e", ",", "Plot8f", ",", "Plot8g", ",", RowBox[{"{", RowBox[{ RowBox[{"Axes", "\[Rule]", "Automatic"}], ",", RowBox[{"AxesLabel", "\[Rule]", RowBox[{"{", RowBox[{"xl", ",", "yl", ",", "zl"}], "}"}]}], ",", RowBox[{"AspectRatio", "\[Rule]", "Automatic"}], ",", RowBox[{"Boxed", "\[Rule]", "True"}], ",", " ", RowBox[{"SphericalRegion", "\[Rule]", "True"}]}], "}"}]}], "]"}]}], "Input", CellChangeTimes->{{3.5681365021632137`*^9, 3.5681365171392403`*^9}, { 3.568136560351316*^9, 3.5681365863097615`*^9}, {3.5681369135895367`*^9, 3.5681369265999594`*^9}, {3.568137821916732*^9, 3.5681378378443604`*^9}, { 3.5682072492149415`*^9, 3.5682072529901485`*^9}, 3.568209802830227*^9, { 3.5682216503836985`*^9, 3.5682217583046885`*^9}, {3.5682217912831464`*^9, 3.568221843465238*^9}, {3.5682219760654707`*^9, 3.5682221133457117`*^9}, { 3.568222159615393*^9, 3.5682221693498106`*^9}, {3.5682222565227633`*^9, 3.5682222578487663`*^9}, 3.5682224736283445`*^9, 3.5682227227607822`*^9, 3.5682227558640404`*^9, {3.568222818810151*^9, 3.5682228486062036`*^9}, { 3.5682230057764797`*^9, 3.5682230079916835`*^9}, {3.568223041952943*^9, 3.5682230548229656`*^9}, 3.5682232619601297`*^9, 3.5682233000709963`*^9, { 3.568223536645412*^9, 3.5682235381118145`*^9}, {3.568223591151908*^9, 3.568223591526308*^9}, {3.5682236491528096`*^9, 3.568223657483224*^9}, { 3.568223713222122*^9, 3.5682237532361927`*^9}, {3.568223800379475*^9, 3.568223827648323*^9}, {3.5682238887380304`*^9, 3.5682238893152313`*^9}, { 3.5682240287170763`*^9, 3.5682240612431335`*^9}, 3.5682241088076167`*^9, { 3.568224198772975*^9, 3.5682242396450467`*^9}, {3.568224282170721*^9, 3.5682243185031853`*^9}, {3.568224437890195*^9, 3.568224439590598*^9}, { 3.568224572253231*^9, 3.5682245867144566`*^9}, {3.5682247081762695`*^9, 3.568224733557514*^9}, {3.56822480520844*^9, 3.5682248433505073`*^9}, { 3.568224884206979*^9, 3.5682248959069996`*^9}, {3.568224982830352*^9, 3.5682250047639904`*^9}, {3.56822503870965*^9, 3.5682250803305235`*^9}, { 3.5682251223413973`*^9, 3.568225141451431*^9}, {3.568225234177994*^9, 3.5682252929588966`*^9}, {3.5682253775890455`*^9, 3.568225482140429*^9}, { 3.56822551694409*^9, 3.5682255297205124`*^9}, {3.568225573197789*^9, 3.5682255809666023`*^9}, 3.568225660698343*^9, 3.5682257301964645`*^9, { 3.568225765078126*^9, 3.5682257828933573`*^9}, {3.568225927026843*^9, 3.568225927416844*^9}, {3.568267062420238*^9, 3.568267081358671*^9}, { 3.568267188328059*^9, 3.5682672830358257`*^9}, {3.5682676367040462`*^9, 3.568267747979042*^9}, 3.5682678404716043`*^9, 3.568267882030078*^9, { 3.5682679252577534`*^9, 3.568267996612279*^9}, {3.5682680488879704`*^9, 3.568268061133992*^9}, {3.568268100914062*^9, 3.5682681150944867`*^9}, { 3.5682681672609787`*^9, 3.5682681709113846`*^9}, {3.568268272904364*^9, 3.5682683182536435`*^9}, {3.5682685202739983`*^9, 3.568268599194537*^9}, { 3.5682686348873997`*^9, 3.568268637773405*^9}, {3.5682686944951043`*^9, 3.568268872273017*^9}, {3.5682689420207396`*^9, 3.568269016947671*^9}, { 3.5682695040741262`*^9, 3.568269601153097*^9}, {3.5682696652380095`*^9, 3.5682696728352227`*^9}, {3.5682697489633565`*^9, 3.5682698308635006`*^9}, {3.568271156491429*^9, 3.568271160063835*^9}, { 3.568271244927984*^9, 3.568271369010602*^9}, {3.5682716250070515`*^9, 3.5682717312276382`*^9}, {3.5682717843301315`*^9, 3.5682718576814604`*^9}, {3.568271940673606*^9, 3.5682720536490045`*^9}, { 3.5682722259669075`*^9, 3.5682723223126764`*^9}, {3.568272370813162*^9, 3.568272411466833*^9}, {3.5682725893539457`*^9, 3.568272622238803*^9}, { 3.5682726936713285`*^9, 3.5682726960113325`*^9}, {3.568272741079812*^9, 3.56827275143823*^9}, {3.5682729218373294`*^9, 3.568272991070251*^9}, { 3.5682734285574193`*^9, 3.5682734302890224`*^9}, {3.5682734898811274`*^9, 3.5682735111595645`*^9}, {3.5682736115925407`*^9, 3.5682736313577757`*^9}, {3.5682738601945777`*^9, 3.568273987272401*^9}, { 3.5682763944346285`*^9, 3.5682764313910933`*^9}, 3.5682765128232365`*^9, { 3.5682766527398825`*^9, 3.568276660976697*^9}, {3.5682774496048822`*^9, 3.568277461663703*^9}, {3.5683784032731285`*^9, 3.568378422991563*^9}, { 3.568378459308427*^9, 3.5683784812420654`*^9}, {3.568378513440522*^9, 3.568378867046343*^9}, {3.568378915468828*^9, 3.56837896203491*^9}, { 3.5683790764299107`*^9, 3.568379270041851*^9}, {3.568380233530743*^9, 3.568380234388745*^9}, 3.5683804214954734`*^9, 3.568380471867962*^9, 3.5683805399464817`*^9, {3.5683812396077104`*^9, 3.568381293537005*^9}, { 3.568381339541486*^9, 3.568381420224828*^9}, {3.5684645223056345`*^9, 3.5684645572340956`*^9}, {3.5684651558539467`*^9, 3.5684651618911576`*^9}, {3.5688209923798466`*^9, 3.568820997683856*^9}, { 3.568821158754139*^9, 3.568821160750942*^9}, 3.56882222404881*^9, { 3.568822649274357*^9, 3.5688226508031597`*^9}, 3.568822723109287*^9, { 3.5693397221142225`*^9, 3.5693397223326235`*^9}, {3.5693899272912874`*^9, 3.5693899274472876`*^9}, {3.5693910617720795`*^9, 3.5693910848757205`*^9}, 3.5693911374166126`*^9, {3.569391214402748*^9, 3.5693912147147484`*^9}, 3.569391451944365*^9, {3.569391487793228*^9, 3.569391507620863*^9}, { 3.5693923162258854`*^9, 3.5693923173958874`*^9}, {3.569406068526634*^9, 3.569406086092265*^9}, 3.569690172138941*^9, 3.569780036185542*^9, { 3.570453906913044*^9, 3.5704539079894457`*^9}, {3.570454575670618*^9, 3.5704545899602437`*^9}, {3.570454765008151*^9, 3.570454772277764*^9}, 3.5708553779481487`*^9, {3.5709431726830034`*^9, 3.570943174555007*^9}, { 3.5709495710522423`*^9, 3.5709495907082767`*^9}, {3.570949647617176*^9, 3.570949673138821*^9}, {3.570950759321929*^9, 3.5709507772775607`*^9}, { 3.5709508127364225`*^9, 3.5709508405200715`*^9}, {3.570991123104905*^9, 3.570991124259307*^9}, {3.5709912161278687`*^9, 3.570991227937089*^9}, { 3.5709912804155817`*^9, 3.570991308776431*^9}, {3.5709914026885962`*^9, 3.5709914215490294`*^9}, {3.570991574429298*^9, 3.5709916038821497`*^9}, 3.570991652445035*^9, 3.570991830004547*^9, 3.570991865276209*^9, { 3.5709919181759014`*^9, 3.5709919260539155`*^9}, {3.570992027251293*^9, 3.570992050058533*^9}, 3.5709920901350036`*^9, 3.570992186979974*^9, { 3.57122255431676*^9, 3.5712225562355638`*^9}, 3.571223175338251*^9, { 3.5713153738729277`*^9, 3.571315375682531*^9}, 3.5713224026962075`*^9, { 3.5713224627875133`*^9, 3.5713224654863176`*^9}, {3.5713224965147724`*^9, 3.571322572268505*^9}, {3.5713226259637995`*^9, 3.5713226549330506`*^9}, { 3.5713308245340652`*^9, 3.571330884469371*^9}, {3.5713309160126257`*^9, 3.5713309422674723`*^9}, 3.571331071326499*^9, {3.5713311246629925`*^9, 3.5713311332274075`*^9}, {3.571331300334901*^9, 3.5713313470881834`*^9}, 3.5713314298931284`*^9, 3.571331594130217*^9, {3.571331632849485*^9, 3.5713316334578857`*^9}, {3.5713316704299507`*^9, 3.5713316709447517`*^9}, {3.571331783327349*^9, 3.571331790019761*^9}, { 3.5713319475956383`*^9, 3.571331948360039*^9}, {3.5713326567416835`*^9, 3.571332681717327*^9}, {3.571332736801024*^9, 3.571332753305853*^9}, { 3.571332796221528*^9, 3.5713328475768185`*^9}, {3.571332914344936*^9, 3.571332924672154*^9}, {3.5713330072586994`*^9, 3.5713330320471425`*^9}, { 3.5713330798612266`*^9, 3.5713330883320417`*^9}, {3.5713331731961904`*^9, 3.571333178266199*^9}, {3.571333407851803*^9, 3.571333426837036*^9}, { 3.571333542292839*^9, 3.571333557705666*^9}, {3.5713336117441607`*^9, 3.5713337055939255`*^9}, {3.5713337750608473`*^9, 3.571333798070888*^9}, { 3.5713366694988756`*^9, 3.5713366834765005`*^9}, {3.5713369716090064`*^9, 3.57133697359021*^9}, {3.57138272164856*^9, 3.571382756233821*^9}, { 3.57138283537276*^9, 3.571382866900415*^9}, {3.5713829070080853`*^9, 3.5713829086616883`*^9}, {3.571382939175342*^9, 3.5713830233374896`*^9}, { 3.5713831045200324`*^9, 3.571383106126835*^9}, {3.571383198260597*^9, 3.5713832448422785`*^9}, 3.5716785972796593`*^9, 3.5718167268987517`*^9, { 3.571838452469782*^9, 3.5718386879053955`*^9}, 3.571838766139532*^9, { 3.571838857446493*^9, 3.5718388645757055`*^9}, 3.5723437133735733`*^9, 3.5723437554312468`*^9, {3.5723449027196617`*^9, 3.572344929582909*^9}, 3.5723450406551046`*^9, {3.57234950163894*^9, 3.5723495196413713`*^9}, { 3.572584520172369*^9, 3.5725845258195786`*^9}, {3.5726224003989472`*^9, 3.57262241340937*^9}, 3.572796748424938*^9, 3.5727968708695536`*^9, { 3.572796971801731*^9, 3.572796995841373*^9}, {3.57279741546651*^9, 3.5727974308793373`*^9}, {3.572842795856916*^9, 3.5728428061217337`*^9}, { 3.5728522627179437`*^9, 3.572852288426789*^9}, {3.5728523495164957`*^9, 3.572852453865079*^9}, {3.5728524960787535`*^9, 3.572852515110787*^9}, { 3.572852550008048*^9, 3.572852634669397*^9}, {3.5728602362372026`*^9, 3.5728602649256525`*^9}, 3.572860311756935*^9, 3.5731241886618786`*^9, 3.5731408095114717`*^9, 3.5731408826443996`*^9, {3.573211072949067*^9, 3.5732110779254756`*^9}, {3.5732129727516036`*^9, 3.573212981300419*^9}, { 3.5732130120948725`*^9, 3.57321301629128*^9}, {3.573213384015126*^9, 3.573213388164733*^9}, {3.573220427063021*^9, 3.57322044338065*^9}, { 3.5733208085662665`*^9, 3.5733208285343018`*^9}, {3.57332089027921*^9, 3.5733208917144127`*^9}, {3.5733209483737125`*^9, 3.5733209652997417`*^9}, {3.5733210904587617`*^9, 3.5733211330312366`*^9}, {3.5746581574587035`*^9, 3.5746581598923078`*^9}, {3.5746632559372582`*^9, 3.5746632963569293`*^9}, 3.574669479281269*^9, {3.5746708530664816`*^9, 3.5746708831121345`*^9}, { 3.5746734822639*^9, 3.5746735338531904`*^9}, 3.5747441301394944`*^9}], Cell[BoxData[ Graphics3DBox[{ {RGBColor[0.4, 0.2666666666666667, 0.13333333333333336`], Opacity[0.8], SphereBox[{0.8207646935799999, 2.0278649706, 1.73903924876}, 0.255]}, {RGBColor[0.4, 0.2666666666666667, 0.13333333333333336`], Opacity[0.8], SphereBox[{3.3073984452, 1.06567318318, 0.5237375609}, 0.255]}, {RGBColor[0.4, 0.2666666666666667, 0.13333333333333336`], Opacity[0.8], SphereBox[{-1.61359923688, 0.59437551878, 0.9582422600799999}, 0.255]}, {RGBColor[0.4, 0.2666666666666667, 0.13333333333333336`], Opacity[0.8], SphereBox[{-1.8057843710800001`, 0.6447556139399999, -1.9724959987999997`}, 0.255]}, {RGBColor[0.4, 0.2666666666666667, 0.13333333333333336`], Opacity[0.8], SphereBox[{5.239832252799999, 2.8406361232, 1.73371022144}, 0.255]}, {RGBColor[0.4, 0.2666666666666667, 0.13333333333333336`], Opacity[0.8], SphereBox[{-4.309331170399999, -0.59690775162, -2.9302091355999997`}, 0.255]}, {RGBColor[0.4, 0.2666666666666667, 0.13333333333333336`], Opacity[0.8], SphereBox[{1.4827735059, 2.2179714061999998`, 4.4886661678}, 0.255]}, {RGBColor[0.4, 0.2666666666666667, 0.13333333333333336`], Opacity[0.8], SphereBox[{2.962145505, 1.14220708618, -2.3672597601999996`}, 0.255]}, {RGBColor[0.4, 0.2666666666666667, 0.13333333333333336`], Opacity[0.8], SphereBox[{4.2775837736, 2.9976723537999996`, 4.5005714416}, 0.255]}, {RGBColor[0.4, 0.2666666666666667, 0.13333333333333336`], Opacity[0.8], SphereBox[{-1.9409375745999997`, -2.0747301754, 2.1006194216}, 0.255]}, {RGBColor[0.4, 0.2666666666666667, 0.13333333333333336`], Opacity[0.8], SphereBox[{0.6504247919399999, -0.32340770764, -3.0855446127999997`}, 0.255]}, {RGBColor[0.4, 0.2666666666666667, 0.13333333333333336`], Opacity[0.8], SphereBox[{3.9550075453999995`, -1.6268651134, 1.3405527271399997`}, 0.255]}, {RGBColor[0.4, 0.2666666666666667, 0.13333333333333336`], Opacity[0.8], SphereBox[{-5.041411022799999, -2.8549980408, -1.3536107337999999`}, 0.255]}, {RGBColor[0.4, 0.2666666666666667, 0.13333333333333336`], Opacity[0.8], SphereBox[{-2.9632793405999998`, -4.0665013794, 0.22727734601999997`}, 0.255]}, {RGBColor[0.4, 0.2666666666666667, 0.13333333333333336`], Opacity[0.8], SphereBox[{-6.533916617599999, 1.3064809673599997`, -2.7266856454}, 0.255]}, {RGBColor[0.4, 0.2666666666666667, 0.13333333333333336`], Opacity[0.8], SphereBox[{-4.1010833652, -1.3850368771800001`, -5.707161492599999}, 0.255]}, {RGBColor[0.4, 0.2666666666666667, 0.13333333333333336`], Opacity[0.8], SphereBox[{7.984092349999999, 2.0208729844, 1.5250277792599998`}, 0.255]}, {RGBColor[0.4, 0.2666666666666667, 0.13333333333333336`], Opacity[0.8], SphereBox[{-9.0576456906, 0.14869498003599999`, -3.6018177559999995`}, 0.255]}, {RGBColor[0.4, 0.2666666666666667, 0.13333333333333336`], Opacity[0.8], SphereBox[{-7.4173635226, -3.7745387124, -1.27696344724}, 0.255]}, {RGBColor[0.4, 0.2666666666666667, 0.13333333333333336`], Opacity[0.8], SphereBox[{-9.5102350676, -2.4621240053999998`, -2.5490514013999994`}, 0.255]}, {RGBColor[0.4, 0.2666666666666667, 0.13333333333333336`], Opacity[0.8], SphereBox[{9.007945896799999, 0.31654800226, 3.5730939208}, 0.255]}, {RGBColor[1, NCache[ Rational[1, 3], 0.3333333333333333], NCache[ Rational[1, 3], 0.3333333333333333]], Opacity[0.8], SphereBox[{5.1100080766, 5.2984137588, 0.6941908460999999}, 0.178]}, {RGBColor[1, NCache[ Rational[1, 3], 0.3333333333333333], NCache[ Rational[1, 3], 0.3333333333333333]], Opacity[0.8], SphereBox[{0.76584925602, -2.1319888731999996`, -4.4699578804}, 0.178]}, {RGBColor[1, NCache[ Rational[1, 3], 0.3333333333333333], NCache[ Rational[1, 3], 0.3333333333333333]], Opacity[0.8], SphereBox[{9.276286988799999, 2.7047648237999997`, -0.20067000393999998`}, 0.178]}, {RGBColor[1, NCache[ Rational[1, 3], 0.3333333333333333], NCache[ Rational[1, 3], 0.3333333333333333]], Opacity[0.8], SphereBox[{10.832854294999999`, -1.31489024806, 2.5123907169999997`}, 0.178]}, {RGBColor[1, NCache[ Rational[1, 3], 0.3333333333333333], NCache[ Rational[1, 3], 0.3333333333333333]], Opacity[0.8], SphereBox[{-11.5496273668, -3.4625449498, -2.7401027}, 0.178]}, {RGBColor[1, 1, 1], Opacity[0.8], SphereBox[{0.2169405448, 3.8287738486, 1.04562319032}, 0.12]}, {RGBColor[1, 1, 1], Opacity[0.8], SphereBox[{-3.1828655018, 1.5730646141799998`, 1.7759644948}, 0.12]}, {RGBColor[1, 1, 1], Opacity[0.8], SphereBox[{-1.9891255876, 2.5348784563999995`, -2.667348249}, 0.12]}, {RGBColor[1, 1, 1], Opacity[0.8], SphereBox[{0.308970201, 3.5349214555999997`, 5.4768038932}, 0.12]}, {RGBColor[1, 1, 1], Opacity[0.8], SphereBox[{1.23225253008, 0.43588419916, 5.4108524558}, 0.12]}, {RGBColor[1, 1, 1], Opacity[0.8], SphereBox[{4.5810737692, 0.32274630354, -3.2592104321999997`}, 0.12]}, {RGBColor[1, 1, 1], Opacity[0.8], SphereBox[{2.7567322888, 3.0613561199999997`, -2.9700823541999997`}, 0.12]}, {RGBColor[1, 1, 1], Opacity[0.8], SphereBox[{4.4945243184, 4.871713628, 5.2281159516}, 0.12]}, {RGBColor[1, 1, 1], Opacity[0.8], SphereBox[{5.341121566399999, 1.7417982487199999`, 5.675414095799999}, 0.12]}, {RGBColor[1, 1, 1], Opacity[0.8], SphereBox[{-3.3142014588, -1.90862326, 3.5755505646}, 0.12]}, {RGBColor[1, 1, 1], Opacity[0.8], SphereBox[{-0.13934839523999998`, -2.7017412621999997`, 2.7710942063999995`}, 0.12]}, {RGBColor[1, 1, 1], Opacity[0.8], SphereBox[{2.4638247588, -2.8755960541999994`, 0.7883558926800001}, 0.12]}, {RGBColor[1, 1, 1], Opacity[0.8], SphereBox[{4.175349596999999, -1.68716627006, 3.349539335}, 0.12]}, {RGBColor[1, 1, 1], Opacity[0.8], SphereBox[{5.6793825204, -2.2032315434, 0.45576411667999994`}, 0.12]}, {RGBColor[1, 1, 1], Opacity[0.8], SphereBox[{-3.7002724806, -5.6542491645999995`, 1.2394901806599998`}, 0.12]}, {RGBColor[1, 1, 1], Opacity[0.8], SphereBox[{-1.4686194581599998`, -4.6974808908, -0.9797473419599999}, 0.12]}, {RGBColor[1, 1, 1], Opacity[0.8], SphereBox[{-6.1200666236, 2.875218109, -3.9334646689999997`}, 0.12]}, {RGBColor[1, 1, 1], Opacity[0.8], SphereBox[{-6.718542847799999, 1.8884220890599999`, -0.79920291992}, 0.12]}, {RGBColor[1, 1, 1], Opacity[0.8], SphereBox[{-5.883472928399999, -2.0994855859999997`, -6.340408675199999}, 0.12]}, {RGBColor[1, 1, 1], Opacity[0.8], SphereBox[{-2.6928595499999997`, -2.8238175618, -5.8957561474}, 0.12]}, {RGBColor[1, 1, 1], Opacity[0.8], SphereBox[{-3.5814087152, 0.21756415437999999`, -6.825690312}, 0.12]}, {RGBColor[1, 1, 1], Opacity[0.8], SphereBox[{6.194710800599999, 6.409761619399999, 1.63198627086}, 0.12]}, {RGBColor[1, 1, 1], Opacity[0.8], SphereBox[{-8.9811117876, -0.016094796342, -5.6156987542}, 0.12]}, {RGBColor[1, 1, 1], Opacity[0.8], SphereBox[{-10.5633793674, 1.35621855568, -2.9995620797999996`}, 0.12]}, {RGBColor[1, 1, 1], Opacity[0.8], SphereBox[{-7.786049065199999, -5.490031975199999, -0.27219613304}, 0.12]}, {RGBColor[1, 1, 1], Opacity[0.8], SphereBox[{9.8541651996, 1.43265797238, 5.031395475}, 0.12]}, {RGBColor[1, 1, 1], Opacity[0.8], SphereBox[{7.5005114666, -0.7748065572599999, 4.3635663066}, 0.12]}, {RGBColor[1, 1, 1], Opacity[0.8], SphereBox[{11.492746614199998`, -2.4050542802, 3.8036404928}, 0.12]}, {RGBColor[0.36, 0.24, 0.12], Opacity[0.5], SphereBox[{2.065488684677457, 1.5462245999348945`, 1.1307007001840117`}, 1.2089239760875008`]}, {RGBColor[0.36, 0.24, 0.12], Opacity[0.5], SphereBox[{-0.39641727165000007`, 1.31112024469, 1.3486407544199999`}, 1.2093117000733593`]}, {RGBColor[0.36, 0.24, 0.12], Opacity[0.5], SphereBox[{-1.7096918039800002`, 0.6195655663599999, -0.5071268693600002}, 1.2125524485639627`]}, {RGBColor[0.36, 0.24, 0.12], Opacity[0.5], SphereBox[{4.273615349, 1.95315465319, 1.12872389117}, 1.1885369012002074`]}, {RGBColor[0.36, 0.24, 0.12], Opacity[0.5], SphereBox[{-3.058963013125819, 0.023226984735560063`, -2.451890132183268}, 1.2208684878769631`]}, {RGBColor[0.36, 0.24, 0.12], Opacity[0.5], SphereBox[{1.1519439432430656`, 2.122968397512835, 3.11457891372274}, 1.1611100477985508`]}, {RGBColor[0.36, 0.24, 0.12], Opacity[0.5], SphereBox[{3.134879779063645, 1.1039162372496354`, -0.9208583963452253}, 1.2000928574714744`]}, {RGBColor[0.36, 0.24, 0.12], Opacity[0.5], SphereBox[{4.759006315081223, 2.9191055564765716`, 3.116283090588319}, 1.2106280587681753`]}, {RGBColor[0.36, 0.24, 0.12], Opacity[0.5], SphereBox[{2.88017863975, 2.6078218799999995`, 4.4946188047}, 1.1945990782605336`]}, {RGBColor[0.36, 0.24, 0.12], Opacity[0.5], SphereBox[{-1.7773522860272264`, -0.7408612853247065, 1.5297235744229245`}, 1.204667457232264]}, {RGBColor[0.36, 0.24, 0.12], Opacity[0.5], SphereBox[{-0.5762583756081046, 0.160113674781444, -2.529664429624643}, 1.1764034082945702`]}, {RGBColor[0.36, 0.24, 0.12], Opacity[0.5], SphereBox[{1.8055422402552916`, 0.40892869064816145`, -2.726633018760351}, 1.1587415975213327`]}, {RGBColor[0.36, 0.24, 0.12], Opacity[0.5], SphereBox[{3.6308870439654886`, -0.27928234696015686`, 0.9317466415256053}, 1.1874566441223584`]}, {RGBColor[0.36, 0.24, 0.12], Opacity[0.5], SphereBox[{-4.675371096599999, -1.72595289621, -2.1419099346999997`}, 1.168651146569422]}, {RGBColor[0.36, 0.24, 0.12], Opacity[0.5], SphereBox[{-2.4521084575999996`, -3.0706157774, 1.16394838381}, 1.2034214651035733`]}, {RGBColor[0.36, 0.24, 0.12], Opacity[0.5], SphereBox[{-4.003001747900488, -3.4603669469908493`, -0.5636661606412433}, 1.1830540626978738`]}, {RGBColor[0.36, 0.24, 0.12], Opacity[0.5], SphereBox[{-5.420934540906021, 0.3541967870096132, -2.8285104582269973`}, 1.2112233902183762`]}, {RGBColor[0.36, 0.24, 0.12], Opacity[0.5], SphereBox[{-4.205308625976662, -0.99058871693032, -4.317333718450225}, 1.1908841882769436`]}, {RGBColor[0.36, 0.24, 0.12], Opacity[0.5], SphereBox[{6.611962301399999, 2.4307545538, 1.6293690003499999`}, 1.1796580346067578`]}, {RGBColor[0.36, 0.24, 0.12], Opacity[0.5], SphereBox[{-7.795781154099999, 0.7275879736979999, -3.1642517006999995`}, 1.1994584370227777`]}, {RGBColor[0.36, 0.24, 0.12], Opacity[0.5], SphereBox[{-6.22784188262672, -3.314170280036206, -1.3153369441916551`}, 1.018239488882042]}, {RGBColor[0.36, 0.24, 0.12], Opacity[0.5], SphereBox[{-9.284084735452852, -1.1575472505363353`, \ -3.0750987919602304`}, 1.1694365259514992`]}, {RGBColor[0.36, 0.24, 0.12], Opacity[0.5], SphereBox[{-8.465048122086795, -3.1175482344373995`, \ -1.9137664856061682`}, 1.133132008706068]}, {RGBColor[0.36, 0.24, 0.12], Opacity[0.5], SphereBox[{8.49569292018753, 1.169253497049627, 2.5484083292111697`}, 1.1710178358100878`]}, {RGBColor[0.36, 0.24, 0.12], Opacity[0.5], SphereBox[{5.173080962990611, 4.104343947451682, 1.1992238020623223`}, 1.1175335553911183`]}, {RGBColor[0.36, 0.24, 0.12], Opacity[0.5], SphereBox[{0.71005271281996, -1.2577151398170554`, -3.8007282217826246`}, 0.9219428549379565]}, {RGBColor[0.36, 0.24, 0.12], Opacity[0.5], SphereBox[{8.651814336977907, 2.3742637230477106`, 0.6332996153111482}, 0.9125444262165858]}, {RGBColor[0.36, 0.24, 0.12], Opacity[0.5], SphereBox[{9.9468961379869, -0.5228581510189438, 3.027341854549396}, 1.115552745313438]}, {RGBColor[0.36, 0.24, 0.12], Opacity[0.5], SphereBox[{-10.563793225632828`, -2.9789454368886763`, -2.64774926071905}, 0.9214576572773538]}, {Opacity[0.5], SphereBox[{0.3928370729024982, 3.3041614764231126`, 1.2476182205892412`}, 1.175873960608266]}, {Opacity[0.5], SphereBox[{-2.725753723477295, 1.2879821378507583`, 1.537770076655205}, 1.1759719747106816`]}, {Opacity[0.5], SphereBox[{-1.9357194444742705`, 1.9842975615763971`, -2.464942159252208}, 1.1759471005730835`]}, {Opacity[0.5], SphereBox[{0.6511622769026942, 3.1509986387335625`, 5.18873782785424}, 1.1758456663968215`]}, {Opacity[0.5], SphereBox[{1.3052815742868127`, 0.9553781257557059, 5.142027129007176}, 1.1759533097985035`]}, {Opacity[0.5], SphereBox[{4.10908428853371, 0.5616555114262259, -2.9991672025110905`}, 1.1757054320143454`]}, {Opacity[0.5], SphereBox[{2.8166142265629714`, 2.5018869430548216`, -2.794347872632494}, 1.1758790207110068`]}, {Opacity[0.5], SphereBox[{4.431279562481051, 4.32537369381166, 5.01601463601816}, 1.1758029157078513`]}, {Opacity[0.5], SphereBox[{5.0310745514254, 2.107915955208663, 5.332919019023687}, 1.1758456345190291`]}, {Opacity[0.5], SphereBox[{-2.9138754562260925`, -1.9570457942317965`, 3.1455871064894527`}, 1.1759147256701556`]}, {Opacity[0.5], SphereBox[{-0.6645671139826965, -2.5189482240204804`, 2.5756301619572826`}, 1.1757999482709418`]}, {Opacity[0.5], SphereBox[{2.89836369746469, -2.511708928779106, 0.9492691144100837}, 1.1756697494994617`]}, {Opacity[0.5], SphereBox[{4.111143348221905, -1.669594903005892, 2.764133630553342}, 1.1757532431508864`]}, {Opacity[0.5], SphereBox[{5.176929469821098, -2.0352883319736272`, 0.7135762183912849}, 1.175828457261476]}, {Opacity[0.5], SphereBox[{-3.4854234758281817`, -5.19138728303774, 0.9444088449780085}, 1.175867660275224]}, {Opacity[0.5], SphereBox[{-1.9043242866722403`, -4.513545519924539, -0.6278903804766721}, 1.1759604267200023`]}, {Opacity[0.5], SphereBox[{-6.240714859896816, 2.4178896757605512`, -3.581656615579237}, 1.1758298043519986`]}, {Opacity[0.5], SphereBox[{-6.664715519380403, 1.7187585702594388`, -1.3611558210604324`}, 1.1756834897111936`]}, {Opacity[0.5], SphereBox[{-5.364104856950209, -1.8913033481151162`, -6.155887639637208}, 1.1757872368289468`]}, {Opacity[0.5], SphereBox[{-3.103179898130508, -2.404593724633971, -5.840804495838775}, 1.1758862986042695`]}, {Opacity[0.5], SphereBox[{-3.7328147968502217`, -0.24935017872649823`, \ -6.499809367531759}, 1.176070856851879]}, {Opacity[0.5], SphereBox[{5.881344647325187, 6.088697795809551, 1.3610610317935217`}, 1.1095683746965141`]}, {Opacity[0.5], SphereBox[{-9.003422885810746, 0.03194457889927682, -5.028613881034756}, 1.1758807764402524`]}, {Opacity[0.5], SphereBox[{-10.124393189617836`, 1.0041734581828405`, -3.1751455321835036`}, 1.1757149010027295`]}, {Opacity[0.5], SphereBox[{-7.67864549065377, -4.9902833079879665`, -0.5648997752041748}, 1.1758000987445754`]}, {Opacity[0.5], SphereBox[{9.607467093524468, 1.1072787061666658`, 4.606257180094934}, 1.1758071406155688`]}, {Opacity[0.5], SphereBox[{7.939982696514464, -0.45663754046145233`, 4.133115240443274}, 1.1757645908950707`]}, {Opacity[0.5], SphereBox[{11.30210954194145, -2.0901155040968096`, 3.4306098184750677`}, 1.1095979056681424`]}, {RGBColor[ NCache[ Rational[1, 3], 0.3333333333333333], 1, 1], Opacity[0.3], SphereBox[{-5.358961260867368, -2.006712980699583, -0.2861022780424869}, 1.4]}, {RGBColor[ NCache[ Rational[1, 3], 0.3333333333333333], 1, 1], Opacity[0.3], SphereBox[{-7.664431457193039, -3.0390190828613326`, \ -0.11164447362838348`}, 1.4]}, {RGBColor[ NCache[ Rational[1, 3], 0.3333333333333333], 1, 1], Opacity[0.3], SphereBox[{ 0.8291060606893419, -1.1514990690964428`, -1.9709425756229002`}, 1.4]}, {RGBColor[ NCache[ Rational[1, 3], 0.3333333333333333], 1, 1], Opacity[0.3], SphereBox[{8.375706016811733, 3.1438048444574473`, 2.2637176828286005`}, 1.4]}, {RGBColor[ NCache[ Rational[1, 3], 0.3333333333333333], 1, 1], Opacity[0.3], SphereBox[{-9.901405623152794, -1.9016374196998063`, -1.327232927272743}, 1.4]}, {RGBColor[ NCache[ Rational[1, 3], 0.3333333333333333], 1, 1], Opacity[0.3], SphereBox[{0.9447486433585777, -2.9652784802602925`, -3.359271858170863}, 1.4]}, {RGBColor[ NCache[ Rational[1, 3], 0.3333333333333333], 1, 1], Opacity[0.3], SphereBox[{8.884558469335905, 1.5817726790289564`, -0.9392073488461326}, 1.4]}, {RGBColor[ NCache[ Rational[1, 3], 0.3333333333333333], 1, 1], Opacity[0.3], SphereBox[{-11.939926891713085`, -2.9016422762098957`, \ -1.5181966186614662`}, 1.4]}, {RGBColor[1, 1, NCache[ Rational[1, 3], 0.3333333333333333]], Opacity[0.3], SphereBox[{-4.723860784732631, -3.7032831009004172`, \ -2.4211191895575124`}, 1.4]}, {RGBColor[1, 1, NCache[ Rational[1, 3], 0.3333333333333333]], Opacity[0.3], SphereBox[{-7.17029558800696, -4.510058341938667, -2.4422824208516163`}, 1.4]}, {RGBColor[1, 1, NCache[ Rational[1, 3], 0.3333333333333333]], Opacity[0.3], SphereBox[{0.47174352319065793`, 0.5046836538164428, -4.200146649977099}, 1.4]}, {RGBColor[1, 1, NCache[ Rational[1, 3], 0.3333333333333333]], Opacity[0.3], SphereBox[{7.592478683188265, 0.8979411243425528, 0.7863378756913992}, 1.4]}, {RGBColor[1, 1, NCache[ Rational[1, 3], 0.3333333333333333]], Opacity[0.3], SphereBox[{-9.119064512047206, -3.022610591100195, -3.7708698755272554`}, 1.4]}, {RGBColor[1, 1, NCache[ Rational[1, 3], 0.3333333333333333]], Opacity[0.3], SphereBox[{0.5869498686814225, -1.2986992661397059`, -5.580643902629137}, 1.4]}, {RGBColor[1, 1, NCache[ Rational[1, 3], 0.3333333333333333]], Opacity[0.3], SphereBox[{9.66801550826409, 3.8277569685710437`, 0.5378673409661332}, 1.4]}, {RGBColor[1, 1, NCache[ Rational[1, 3], 0.3333333333333333]], Opacity[0.3], SphereBox[{-11.159327841886913`, -4.023447623390104, -3.962008781338534}, 1.4]}, {RGBColor[1, NCache[ Rational[1, 3], 0.3333333333333333], NCache[ Rational[1, 3], 0.3333333333333333]], Opacity[0.4], SphereBox[{1.9152106393636723`, -2.523938920947372, -4.949146362053256}, 1.125]}, {RGBColor[1, NCache[ Rational[1, 3], 0.3333333333333333], NCache[ Rational[1, 3], 0.3333333333333333]], Opacity[0.4], SphereBox[{10.521002526579034`, 2.3176862328262495`, -0.27230396809964874`}, 1.125]}, {RGBColor[1, NCache[ Rational[1, 3], 0.3333333333333333], NCache[ Rational[1, 3], 0.3333333333333333]], Opacity[0.4], SphereBox[{-11.737205518037161`, -4.658355821665403, -2.251094697706628}, 1.125]}, {RGBColor[1, NCache[ Rational[1, 3], 0.3333333333333333], NCache[ Rational[1, 3], 0.3333333333333333]], Opacity[0.4], SphereBox[{-0.3251321152214687, -2.7787181844066886`, -4.77943950510526}, 1.125]}, {RGBColor[1, NCache[ Rational[1, 3], 0.3333333333333333], NCache[ Rational[1, 3], 0.3333333333333333]], Opacity[0.4], SphereBox[{8.780998962563757, 3.4843125499304244`, -1.1233146506767009`}, 1.125]}, {RGBColor[1, NCache[ Rational[1, 3], 0.3333333333333333], NCache[ Rational[1, 3], 0.3333333333333333]], Opacity[0.4], SphereBox[{-12.529368502983907`, -2.840915747835946, -3.33840235045502}, 1.125]}, {RGBColor[1, NCache[ Rational[1, 3], 0.3333333333333333], NCache[ Rational[1, 3], 0.3333333333333333]], Opacity[0.4], SphereBox[{3.8077693186163524`, 5.76012979489429, 0.7548663701486931}, 1.125]}, {RGBColor[1, NCache[ Rational[1, 3], 0.3333333333333333], NCache[ Rational[1, 3], 0.3333333333333333]], Opacity[0.4], SphereBox[{10.25153153341149, -2.0758235938269896`, 1.514526352389777}, 1.125]}, {RGBColor[1, NCache[ Rational[1, 3], 0.3333333333333333], NCache[ Rational[1, 3], 0.3333333333333333]], Opacity[0.4], SphereBox[{5.511474863727479, 5.264886033394544, -0.6288319467734549}, 1.125]}, {RGBColor[1, NCache[ Rational[1, 3], 0.3333333333333333], NCache[ Rational[1, 3], 0.3333333333333333]], Opacity[0.4], SphereBox[{11.860455633064483`, -0.5687584572055808, 1.96465735058486}, 1.125]}, {RGBColor[1., 0.75, 0.5], TubeBox[{{3.3073984452, 1.06567318318, 0.5237375609}, {0.8207646935799999, 2.0278649706, 1.73903924876}}, 0.15]}, {RGBColor[1., 0.75, 0.5], TubeBox[{{-1.61359923688, 0.59437551878, 0.9582422600799999}, { 0.8207646935799999, 2.0278649706, 1.73903924876}}, 0.15]}, {RGBColor[1., 0.75, 0.5], TubeBox[{{-1.8057843710800001`, 0.6447556139399999, -1.9724959987999997`}, {-1.61359923688, 0.59437551878, 0.9582422600799999}}, 0.15]}, {RGBColor[1., 0.75, 0.5], TubeBox[{{5.239832252799999, 2.8406361232, 1.73371022144}, {3.3073984452, 1.06567318318, 0.5237375609}}, 0.15]}, {RGBColor[1., 0.75, 0.5], TubeBox[{{-4.309331170399999, -0.59690775162, -2.9302091355999997`}, \ {-1.8057843710800001`, 0.6447556139399999, -1.9724959987999997`}}, 0.15]}, {RGBColor[1., 0.75, 0.5], TubeBox[{{1.4827735059, 2.2179714061999998`, 4.4886661678}, { 0.8207646935799999, 2.0278649706, 1.73903924876}}, 0.15]}, {RGBColor[1., 0.75, 0.5], TubeBox[{{2.962145505, 1.14220708618, -2.3672597601999996`}, { 3.3073984452, 1.06567318318, 0.5237375609}}, 0.15]}, {RGBColor[1., 0.75, 0.5], TubeBox[{{4.2775837736, 2.9976723537999996`, 4.5005714416}, { 5.239832252799999, 2.8406361232, 1.73371022144}}, 0.15]}, {RGBColor[1., 0.75, 0.5], TubeBox[{{4.2775837736, 2.9976723537999996`, 4.5005714416}, {1.4827735059, 2.2179714061999998`, 4.4886661678}}, 0.15]}, {RGBColor[1., 0.75, 0.5], TubeBox[{{-1.9409375745999997`, -2.0747301754, 2.1006194216}, {-1.61359923688, 0.59437551878, 0.9582422600799999}}, 0.15]}, {RGBColor[1., 0.75, 0.5], TubeBox[{{ 0.6504247919399999, -0.32340770764, -3.0855446127999997`}, \ {-1.8057843710800001`, 0.6447556139399999, -1.9724959987999997`}}, 0.15]}, {RGBColor[1., 0.75, 0.5], TubeBox[{{0.6504247919399999, -0.32340770764, -3.0855446127999997`}, { 2.962145505, 1.14220708618, -2.3672597601999996`}}, 0.15]}, {RGBColor[1., 0.75, 0.5], TubeBox[{{3.9550075453999995`, -1.6268651134, 1.3405527271399997`}, { 3.3073984452, 1.06567318318, 0.5237375609}}, 0.15]}, {RGBColor[1., 0.75, 0.5], TubeBox[{{-5.041411022799999, -2.8549980408, -1.3536107337999999`}, \ {-4.309331170399999, -0.59690775162, -2.9302091355999997`}}, 0.15]}, {RGBColor[1., 0.75, 0.5], TubeBox[{{-2.9632793405999998`, -4.0665013794, 0.22727734601999997`}, {-1.9409375745999997`, -2.0747301754, 2.1006194216}}, 0.15]}, {RGBColor[1., 0.75, 0.5], TubeBox[{{-2.9632793405999998`, -4.0665013794, 0.22727734601999997`}, {-5.041411022799999, -2.8549980408, \ -1.3536107337999999`}}, 0.15]}, {RGBColor[1., 0.75, 0.5], TubeBox[{{-6.533916617599999, 1.3064809673599997`, -2.7266856454}, {-4.309331170399999, \ -0.59690775162, -2.9302091355999997`}}, 0.15]}, {RGBColor[1., 0.75, 0.5], TubeBox[{{-4.1010833652, -1.3850368771800001`, -5.707161492599999}, \ {-4.309331170399999, -0.59690775162, -2.9302091355999997`}}, 0.15]}, {RGBColor[1., 0.75, 0.5], TubeBox[{{7.984092349999999, 2.0208729844, 1.5250277792599998`}, { 5.239832252799999, 2.8406361232, 1.73371022144}}, 0.15]}, {RGBColor[1., 0.75, 0.5], TubeBox[{{-9.0576456906, 0.14869498003599999`, -3.6018177559999995`}, {-6.533916617599999, 1.3064809673599997`, -2.7266856454}}, 0.15]}, {RGBColor[1., 0.75, 0.5], TubeBox[{{-7.4173635226, -3.7745387124, -1.27696344724}, \ {-5.041411022799999, -2.8549980408, -1.3536107337999999`}}, 0.15]}, {RGBColor[1., 0.75, 0.5], TubeBox[{{-9.5102350676, -2.4621240053999998`, -2.5490514013999994`}, \ {-9.0576456906, 0.14869498003599999`, -3.6018177559999995`}}, 0.15]}, {RGBColor[1., 0.75, 0.5], TubeBox[{{-9.5102350676, -2.4621240053999998`, -2.5490514013999994`}, \ {-7.4173635226, -3.7745387124, -1.27696344724}}, 0.15]}, {RGBColor[1., 0.75, 0.5], TubeBox[{{9.007945896799999, 0.31654800226, 3.5730939208}, { 7.984092349999999, 2.0208729844, 1.5250277792599998`}}, 0.15]}, {RGBColor[1., 0.75, 0.5], TubeBox[{{5.1100080766, 5.2984137588, 0.6941908460999999}, { 5.239832252799999, 2.8406361232, 1.73371022144}}, 0.15]}, {RGBColor[1., 0.75, 0.5], TubeBox[{{0.76584925602, -2.1319888731999996`, -4.4699578804}, { 0.6504247919399999, -0.32340770764, -3.0855446127999997`}}, 0.15]}, {RGBColor[1., 0.75, 0.5], TubeBox[{{9.276286988799999, 2.7047648237999997`, -0.20067000393999998`}, {7.984092349999999, 2.0208729844, 1.5250277792599998`}}, 0.15]}, {RGBColor[1., 0.75, 0.5], TubeBox[{{10.832854294999999`, -1.31489024806, 2.5123907169999997`}, { 9.007945896799999, 0.31654800226, 3.5730939208}}, 0.15]}, {RGBColor[1., 0.75, 0.5], TubeBox[{{-11.5496273668, -3.4625449498, -2.7401027}, {-9.5102350676, \ -2.4621240053999998`, -2.5490514013999994`}}, 0.15]}, {RGBColor[1., 0.75, 0.5], TubeBox[{{0.2169405448, 3.8287738486, 1.04562319032}, {0.8207646935799999, 2.0278649706, 1.73903924876}}, 0.15]}, {RGBColor[1., 0.75, 0.5], TubeBox[{{-3.1828655018, 1.5730646141799998`, 1.7759644948}, {-1.61359923688, 0.59437551878, 0.9582422600799999}}, 0.15]}, {RGBColor[1., 0.75, 0.5], TubeBox[{{-1.9891255876, 2.5348784563999995`, -2.667348249}, {-1.8057843710800001`, 0.6447556139399999, -1.9724959987999997`}}, 0.15]}, {RGBColor[1., 0.75, 0.5], TubeBox[{{0.308970201, 3.5349214555999997`, 5.4768038932}, {1.4827735059, 2.2179714061999998`, 4.4886661678}}, 0.15]}, {RGBColor[1., 0.75, 0.5], TubeBox[{{1.23225253008, 0.43588419916, 5.4108524558}, {1.4827735059, 2.2179714061999998`, 4.4886661678}}, 0.15]}, {RGBColor[1., 0.75, 0.5], TubeBox[{{4.5810737692, 0.32274630354, -3.2592104321999997`}, { 2.962145505, 1.14220708618, -2.3672597601999996`}}, 0.15]}, {RGBColor[1., 0.75, 0.5], TubeBox[{{2.7567322888, 3.0613561199999997`, -2.9700823541999997`}, { 2.962145505, 1.14220708618, -2.3672597601999996`}}, 0.15]}, {RGBColor[1., 0.75, 0.5], TubeBox[{{4.4945243184, 4.871713628, 5.2281159516}, {4.2775837736, 2.9976723537999996`, 4.5005714416}}, 0.15]}, {RGBColor[1., 0.75, 0.5], TubeBox[{{5.341121566399999, 1.7417982487199999`, 5.675414095799999}, { 4.2775837736, 2.9976723537999996`, 4.5005714416}}, 0.15]}, {RGBColor[1., 0.75, 0.5], TubeBox[{{-3.3142014588, -1.90862326, 3.5755505646}, {-1.9409375745999997`, -2.0747301754, 2.1006194216}}, 0.15]}, {RGBColor[1., 0.75, 0.5], TubeBox[{{-0.13934839523999998`, -2.7017412621999997`, 2.7710942063999995`}, {-1.9409375745999997`, -2.0747301754, 2.1006194216}}, 0.15]}, {RGBColor[1., 0.75, 0.5], TubeBox[{{2.4638247588, -2.8755960541999994`, 0.7883558926800001}, { 3.9550075453999995`, -1.6268651134, 1.3405527271399997`}}, 0.15]}, {RGBColor[1., 0.75, 0.5], TubeBox[{{4.175349596999999, -1.68716627006, 3.349539335}, { 3.9550075453999995`, -1.6268651134, 1.3405527271399997`}}, 0.15]}, {RGBColor[1., 0.75, 0.5], TubeBox[{{5.6793825204, -2.2032315434, 0.45576411667999994`}, { 3.9550075453999995`, -1.6268651134, 1.3405527271399997`}}, 0.15]}, {RGBColor[1., 0.75, 0.5], TubeBox[{{-3.7002724806, -5.6542491645999995`, 1.2394901806599998`}, {-2.9632793405999998`, -4.0665013794, 0.22727734601999997`}}, 0.15]}, {RGBColor[1., 0.75, 0.5], TubeBox[{{-1.4686194581599998`, -4.6974808908, -0.9797473419599999}, \ {-2.9632793405999998`, -4.0665013794, 0.22727734601999997`}}, 0.15]}, {RGBColor[1., 0.75, 0.5], TubeBox[{{-6.1200666236, 2.875218109, -3.9334646689999997`}, {-6.533916617599999, 1.3064809673599997`, -2.7266856454}}, 0.15]}, {RGBColor[1., 0.75, 0.5], TubeBox[{{-6.718542847799999, 1.8884220890599999`, -0.79920291992}, {-6.533916617599999, 1.3064809673599997`, -2.7266856454}}, 0.15]}, {RGBColor[1., 0.75, 0.5], TubeBox[{{-5.883472928399999, -2.0994855859999997`, -6.340408675199999}, \ {-4.1010833652, -1.3850368771800001`, -5.707161492599999}}, 0.15]}, {RGBColor[1., 0.75, 0.5], TubeBox[{{-2.6928595499999997`, -2.8238175618, -5.8957561474}, \ {-4.1010833652, -1.3850368771800001`, -5.707161492599999}}, 0.15]}, {RGBColor[1., 0.75, 0.5], TubeBox[{{-3.5814087152, 0.21756415437999999`, -6.825690312}, {-4.1010833652, \ -1.3850368771800001`, -5.707161492599999}}, 0.15]}, {RGBColor[1., 0.75, 0.5], TubeBox[{{6.194710800599999, 6.409761619399999, 1.63198627086}, { 5.1100080766, 5.2984137588, 0.6941908460999999}}, 0.15]}, {RGBColor[1., 0.75, 0.5], TubeBox[{{-8.9811117876, -0.016094796342, -5.6156987542}, {-9.0576456906, 0.14869498003599999`, -3.6018177559999995`}}, 0.15]}, {RGBColor[1., 0.75, 0.5], TubeBox[{{-10.5633793674, 1.35621855568, -2.9995620797999996`}, {-9.0576456906, 0.14869498003599999`, -3.6018177559999995`}}, 0.15]}, {RGBColor[1., 0.75, 0.5], TubeBox[{{-7.786049065199999, -5.490031975199999, -0.27219613304}, \ {-7.4173635226, -3.7745387124, -1.27696344724}}, 0.15]}, {RGBColor[1., 0.75, 0.5], TubeBox[{{9.8541651996, 1.43265797238, 5.031395475}, {9.007945896799999, 0.31654800226, 3.5730939208}}, 0.15]}, {RGBColor[1., 0.75, 0.5], TubeBox[{{7.5005114666, -0.7748065572599999, 4.3635663066}, { 9.007945896799999, 0.31654800226, 3.5730939208}}, 0.15]}, {RGBColor[1., 0.75, 0.5], TubeBox[{{11.492746614199998`, -2.4050542802, 3.8036404928}, { 10.832854294999999`, -1.31489024806, 2.5123907169999997`}}, 0.15]}}, AspectRatio->Automatic, Boxed->False, SphericalRegion->True]], "Output", CellChangeTimes->{3.574834506531407*^9, 3.5801424191944137`*^9},ImageCache->GraphicsData["CompressedBitmap", "\<\ eJzsvAeTXHl23fkTSEmUpUzsroaSlpR2yY3dWGlFamY4Mz3TPd1oj254W0A5 lPfee++999577733HigLoOBNA+05VEgR3JNV1bPD/QyMwMn3Mqsq8737P+ee c19m4nNzT1srJ3NPOwvzP/nI3dzV1s7C408+dHHXQ7/39+Dv2RrwJxj2/wZ+ uPkb/fsbO8ON4ZG/2/+7/b/b/7v9v9s37Hcfbf6Alb4RerKLqXAPocYthDrX EGpdgrnbM8JW93D98W93HG3+Gc/279GfU0yNZwhNnqF0CL0eoQx4hDHkHsqQ WyiDrqH0OYfQ6xTMftcwtcdP0X60+Re80FPUeQXT6B1Cp3co/V5hjHqGMynM eIQzZ4C7AWHM6Okm9XQTerrVtGJe7xxUHz9b29HmH7PVP0SNixcVtk7U2Toz 4h3GlHc4814RLAmrXpGseUWeYl13/oF2w1nWMS/obOddg5l2CuTLnYOq4ydt PjnLL14/ZXqunabSOPJu3aDw1k3KbxlTd9OUViMzum6YM2rmwKyNJ3d9YtgW TrHjG61X2PaJ4o5PhF4vnDW90op7EHPOASev0Hi0+Te8fvOU3v48BgcLGBWK jK9RbmJEpYkxjcZmdBrfpv+mBSM3LZm4acWUMGtkzaadD/f94rjvH8s9vxj2 /aLZ9o1kyyecTa8Q1vVqOxkFlcev1nC0+SMWF9sZHspndLiAqeFCld+GKpMb 1BpezcScThML+m5ZMHrLkmljK+ZMrFkytWHFxJZVY+GmDfe1LA8D43kQEMu+ fwx3/aLY8g1nS6+64e7PN3sHFcevWnq0+VOWxaw1ocQ9mOoTdtX8llkjR7/1 5s0ThgdzGRvJZ3KkgJmRQhaFapNr1JncotHUjGZjczpumjF46zYTOtI5M0uW zS1Zu23JpnDXwoY7Znbc0dEeapUfBsVzLzCOnYAYtgxH6ROmowxiPzufk0Ms Ptr8H6z3j1DlKS6Kzu1arB7PYyoPinu/pbKLHheV22J9dYh5TI/mMz9awPJo EQPJftRr2RpNTKm9dXyoPTrEUTMt121rli2t2bDS4dnYsCPs2Vizb62thR3b ZrY88I7gQVACezrcOwHROtwIHW6IltLvh0ONO9Hp4cNXzEzv0FQzTWZsO7nR HeSFt7M6usPK8M4/Ofq1/+tIXSO5xTRoWToM6hJGpTCDumY9j9U1f6KwWZ1l l6kVzddvUnflBuNVCayMFbExWkyHl63OylhnZ0atyNhmakm/zmjC0pYFazvW bFVwezt27e05cLDjvvDAQQtgr7OztOeOuS0HksG+FuNuYCxb/loIPy2ETyDP +vvLj08u5kRwM9N3SEtpIy+1g3KhLqWD5qQO2hI66IgVojpoDdNjgR2M5U7x fO8l//CkA7zUGTdpedu8g+lRTxnWGf/QAZZPOsC6oQNs6M4fM2PnwoDxTXpu XaPbSLh+g7KiHOrqy4g1sSfe1JVoE3fyTRzp0AkPWtkyZWvPkr0Dmw6O7Dg5 cuDsyAMXBx4Kj1zseeR8fPI7OvG7du7shyRwNyiOrUAtqb+W1C+YFwMDnJx1 9MmStjVNkJfRQZnQIHSkd9CX1sGQzn40ueMU44kd/H3G4zsYielgILyDXr92 dnru6FHDU/zfOvkDWr0CtdRB9BqWWic+I1Iteqvteavk3uoPPtFHvWn3CFGM mdyk0dycPCtHXO1CcLcVrIMJSsjH3jIEpxveOF32xPWyN16XfUm84UWXpQvL jo5suTix5+rMPTdnDt2ceOTuxGN3Rx67qRKuduzZqUqWdmy5+rEdHK8KSIOB 6k8BIbwcHDwpQOTR5l/x+OFz8tIaKclqpzqrgxahJ6uL4YxuJjN6mBUWsnpY yu5hObuLJf1sUYWaFUWmRI3xsHYWskd//6QYU7kFdKkQPSrEsBritIqwpAKs qz3f9Y3VycdxcNQ843ggbDl5EqeG6u0cJoTjo62fYyj+9qEEecXiauqD2zUP wRuP6z743fAj+IY/kdcDKDD2ZcLejX13F+57unAoPPZ05rGX4KnCeDhwT9TY srZnRQ1qOziBrSDpIEjFCFQxhv52Mf41BWm1lGa1UaMTbc3ppS97gNHsYWay R1nMHWOtYJyNonG2Ssa4UzrK3ZJhtooH2CjoZTmniwUxZza6lfuDWzIjw3P+ J7b7B+n2CqBPuhgUNSZEiQXvGNZ84lSReNlHvKqRwGFAAo+EpcBk/FSFIMcQ wu0CiBAibf2JsvEjxCmMUFXH7awNnjc88DASPW754m/iT5hpANGmgSSYBJFy K5ABGy/ue7ny0NuVRz6uPPZRdbydeeQl4XiqKrYOrFrbsmkwkGBVJVhVCQrh +dDgDyKJOHGRnsZBKjKbqRIHmnOG6M0ZZyx7itm8WZYL59koXeBuxSK7VYvs 1yxwUDsvzGp/So+Nc6dsiPXCXlbFrfnYRr66//zomTs8fFWWYDXIcIWGKKZF kmWVZctP7VgluR+QKL9L4klQEqvBqcR7pxBjLTXc9lR5kyw8+Xckaz/F3IO0 2+7EOAbjf9MD71teeJn64nPbn0DLAMKtA4m1DiJRSLMKIvN2ELWWvjzwdeOh AX4qka+L9p247y31qM+s2spzPXzYClFpQiLZDArm64ODk8qEH21O8+zhMyrS 66iRKhqyx+jKmWUkZ5GZ/BWWi9fZrNhkp2aLg/otHjRusRhczoPcfh61rHPY vML9xgV262fYUpU2SgZYy2plu3bo6Nl7PEUaL4N9RKqnRDPrHceqr7qafyIH AUkciihPgpJZU2WSAzJIVx9JsvAmxdJH8CXV0o9UC3/ShAwrP7JUuXAjN1XH Bx/LYHxtQgiUzMJFqFghySmENJlslkMwObZB1NuqQv7uHPq7CS488HPmvo+j OrADK/a2LDk7sxWq3hISwVpQ0A9m6X+0+ftMTGwzM7HD3LgwtsOje6/4vZOy 9Tf0Up3RSl3WKC3Z8/TlrDGev8VCyTbrlXts1+1z0HTAYes9Gu1y9ZLJ/HVk DC/rx3jctc1hxxb7bWvcbVpgo2ZSpetV6epYLKqgzzNQZQsX1Ga9Y5nziWfN L5HtgGTuq2SPglKOyJTsn0auazyZ9uEqlf8RMdKsQki3CiXdJowM2zD9LJRs 6TBTGcTnuhe+thH4OUQS6BxFuFsUse5RJLlHkiY3z3QLI1vRKtde2nP1Uvxx 416AKwf+zup4jqw7OrAkg5qzt1DZotkICePZyMgPZfM52nwuG96mqWGa3OQO SmW/1fKfOrlPg9ynPrKDmpAOBgtkv/uvqEqppjajn7rMWdqy1hnI3WGy6B5L lQ/Yqn/EXvNjHrQ/UcmeUmBWyEZSI39dXc0X7YsKAA941HvAve4ddto32Gxe ZKN6lI3iVoYDIunzCFYpIxjwimFczJsX89b9k5ToVEaV8LFKmOSbRI5rHPlu yWJNjMqn0llHCFFk2ESTYRdNpmMMWc7R+r0o8hR4wl1jVMIY/F3iCHSPJ9Qr nmjveBKk+xTpP0N9IEthKcctiFxHf+Z93NkNdGU3wJkdfydWnOxZcLJhxuE2 66FRLIWEchK1vY4253j86CUZqS0UyMurZFVN2naoM/fK0wdV0mGVczhO+4pv vTL0co9Ccr3KqU0fpy5jmfbsbYYKHjBd/piV2ufcbX7JvfYveNj9Wn83Qrl7 s5jWx4vGWu61PmCxbJO5kjWmCpeYKV1krmJOSzChcvYx5KP06hGiUkYyKD8b 16nOi43rKuNOYAoPgtPoUTkzPOLFxmSVMoMcxySVUKWzjlMZE8TCRDKdEsly SyLbI1HHGk+eTyy5WaVEicX+7kkEeCcT7JtMpH8ycWoOSWqdaf7xZGg4ydI8 lu0RQI27F3dUyq1AFw1hjhqJ7JhytmLC0ZylUIX24dEfSul5UsqF2U3yJdRS de56oSNTGUgYzehkKr2TWWFeWFCJ5w3mpxI3BZaR61JJtnMn1bErdOQcMFzy mJnql6w2vmG77Wux7lse939LvU8vzbED7DQMc9g0w52aAzar91irvKuybjBb vMR47iQjaf0MJzTSrXmxz91Q0ij6PVVOnwSVM+m4nEGp3Fc5E8XULBeVSaUs cM9VOTPU/1RCm2SVMoVM5zSVMp0szzSyfdQE/FLJV8lyc6tIK28lxD6aAN80 AgPSCQ1KJ1rPmWBge3AyqRoU0gOiyPRVU/D0YUjusSTXmFLMGHexYdjZkgEH M9ZLyjgZNz1OSrk4s0GxTLQyu51G5Ytumelwdj9TWYPMy1RX8mSS+UNsFg6x VTgg9ClX9NAVUU2BW52Y0Ueh+yStaXsMlz9npu4Nqy3fst35V9zv+2uV9Dty nJRc86d42DnKXv0TWcsjtuvVDGr3WatSScvXmCmeZSJ3mInMVtqULao+c1BJ j8s5qnLOqZxrASlsq5xzYmaKdxJZriqTW47KWaRy5pBhnUamXQZZjpnqe9kq peCbTXZANrlBmeSHpBEnuL1tSsWHZoRe98Y/MIugkCzCQrOIDssgPiydxNBk koPjSA2IINXPn0ZZzZi7A4Mutpr5rOl2vk1fqAMnFxzcjzbnefroOaUZ9VRk qy/m9NGdM8yI3HdaTFnKn2a9WEwqm2WnYoa9qhkOqqaFCfYqxxhQ/ihya6LQ Y5Bi7xmqApcZrtRc1/A1q23fs93z39jp/J6miFmKQ8eYr5/nUdcc9xpfyJKe sdf4mLsND9is32OlZpN55Z4ZxcHpgg7aXQKp+MCCsndt6JSFjKicMyrnisp5 V+VsE0tT3FLEziz1t0ItaSkFziWym0z1zxw9nkeWRz5ZPkJAPtlBeeSG5pIf noWzeSQRn/kxpjwz6+BKRGQh/gGZBITlEhqeQ6R+JyZcZQ9LJCEkmji/IIJd POhwsaPF2YYmJ0vGCwP54vHC36rmv6ckpYIqkaFOYbcjZ5IhZZipvEWWipbZ KFtlu2qN/dp17jescdi4xqOmVWFJ+wsMy52K3doo8hil2H+e6rA1Efsh003f sNLxPWtt3xy10WL/ERqylHO65zjsXFF6u9/ygj/noPUZuy1PuNN8n7WGHRZr VpmrVrIs72E6v5Sqj29T/ZEtFe/bqZXGM6VqLqmKW6pmlBwjVVrOUNWyXUvk LpUUetaQZpsj11EFVeEs7yKy/IvJCiomO7SI3IgCIVdVq8DjRjydroksJkaS 2zGIT1oZTuoF3sE5+IukQaHphCh9hvjFqLWG4ObuR4WTNaMl4ewtF7GzmMv3 Xz/5gZxuJ+RcmV6hKr2e2sx+mrKn6cle0ry8znzRFmsVdxXvdjho2OWwZY/H bXs87djlWce2cIcnHZuMJPdQ4tJOkec4JYFLVEdu0JJwh6mmr1jq+IbhogO6 M1dJ9R2gt2qe/aEJ9luec7/tOYftz7nXIZK2P+Vu20PWm/dZatxkoWGW+Zo+ porLGPZKo/ZTW2o+taPhkhsTcqMFuca63ChKhp7slEmaSyGZLmUiaTX5nnVk u1WS7lwklyoh06eUzIAyskJKyQ4vJSeymLTMRrIHlrHzraUktZrqhCicXNww cg3gpkcoN+V+t5SZbnvG4RmVRURGIUFpOUQUpDMzlc/eWgm7KwXcmc+t+dvV HKjvpUYGU5c5QWvWMv25d5gs3GOp4kBd7QH7TYc80Jk+6XzEs+5HvOx9yKu+ Q1723edZ3z6PenYodmyj2GOCoqBlKqM3aE7aYrD0kNGqRwwV7+mxaXLiJ5ho n2evb4o9kdJQxQedz7jf+ZT9zidsdzxio+2A5TaF+JY5VbSPucpGTXzNVJ+x p/YzA+wYcIpg1v9Y8hEaVxIds0lxLibdpYJM91pyvRvJ928hxUVV8ywj3a+c jKAKMkTIzEjtR5WS3jSBZUwxH98KwOh2IMEe/gS4umPsHoypRxBm7v6YaXvL K46b7hFYqYOmNNeS2FBA+0AWu2tFbC8X8OLJ4t+q5jmqkmqpTRtSylmgPUtV yN9nuuxQjeyJsrS40/ZCze6lKveKlwMveT30kjfDz/li+CnPhx/zePCQpuAh il3HVc0lyqI3aUjapCfvrlrHJgPFu4S5tlBeOMvi4Cx3OxQu256w1/GE+11P uNf1mP0ueVLnIRud91jpVDXb55hr6mGprp8djUSDAQVUfe5IzVl7Gq+7MK5h cE4VDfVMJdq9QBUtIdlZVu1eJy42kRPQQoZPHcme5ST7VZASXElKuBBZQVJR L6ahOZx3juCSayRnjQLxdQshwscXK/cgzL1CsPAKFPww8/TlpuYGI80PFsHB RFanUdkczsxABOuLeT9cQnc92lxkZWKemqQ2alMnqUtfoyN7l9qIBbJPp0he KTSeTWLQoYqV2GFWkob5YuRr3ox9zVfjX/F6/A0vx1/xZPS5AuY2hQ6jFPkv UBK1pudcozllnpYs7WsbETREc8M8q6OjrDU/ZKvt0REZd7sesifsdB1yp1vd s2ef5R75Uec0Yw0dPND9vc67bLWu0mgZScVZRyrP2zCgLmooaZB8KNSriBj7 UuJVzmT3elJVzoyAVjJD2knyqSbet4J4lTMurJzYpAaMwwo46xTJeZdILrtF 8plpGE7O4QqcgTgqZJr7hAgBmHn7qLTumHj5YKTS3vBwxcjDnoIyF3pr7Bmq S2ZluIMvXzz9N0fl/AccHr5iekqT4uQOC5oaFzQxLozsxP5u0S+zNrFCbUI3 tcmzNKRv0ZF7nwzXKfIt2qiza6XDoVkKbGDCqZpZpzIWnQpYdslhO6qRB4Vj 7BWPaG7c5HD8OXWBMxR4zVEYtkR5/BJ1STPUp6+QHjZOXMokPd3zLHSvsND0 gFWl/I125ahOoes+mz0HrPXusdi3zVzPGhMdk+z173E4+Ij9vnvc6brLRusS 9ZbhlJ6zo9khlF4V3tdZSV0cDlU/jXKq0vxYR4JvE0mBraSEtpMY0qSuUUqE fynhcXX4Fvdwxj6Mz1Xk8+LvVc2a520iMbULx98/Gl/ZkqlvMOa+gdz29RM8 MRNu+vpj5O3KeVtz9WIjxmvDmW8pZLaxgJnafDb72/nq2ZN/fVTWf8rDhy+Z m90hXek9R3NniYakyoQOajUk1WlIqovQvubOKr82/el21O8uyhXWxtf0m/3U Ji6qgNt0FBxqkXZIC5nXkD2uFDVJY9QkvbHjjMePsJAwyHpiD9sJbezGNbAb U852ZB5b4emMeSod3e4j13OMgogpiqNHKRCcXTvIKJ5jcHCG8YZVpur3mWs+ YLJyldnqVaW0FeaVSabqp9TWBxmt7GKuoJRv8it4OKrkNvSIu317ajrrbLRM 0R2UTLmpF00ecYQ5J+Ltko+f8kOgzC5MSoiUEqIDW4gObSU6opWwyGYCVZ3I +hmMFGTPOBwvygXXCK54RHLDK5JzVrE4+iTiGxSFtdLXbf9ALP39sfL3xjLA DeMAP656unDBzgT/S79gs7tIx1PIanshyy0FLDXks1CVxzfPn/Avj2r7hyzM bZOt2SpfY2y5tnWasVpSNYdplXq0Qn2xglaoL7KD7jA9FqAU6tHKF3svT67e nSzTVdZG1VCiB6iNX1bD2qWj8DFDVQq+jQq+imrbvb+hq/yAsboH4vwhzQUz DJbMMFM+zXLFJOsVowrVfWyXtLNTWMtsXBWZFj3kuPcRb1VNsF0JPmpWBXUL DHQP0ZXYS1/6CCM5o4wXjzGlv5+qHWOycYyx5jGGm0WFpg7+pkMBqreShxOv ORh9xvbgfTZ67rCh0L3R2svzzTXWeyeIdorHySEbN+USD686vNT3fYPb8JNu /CLbSWjYpHTpW3InnhGnpvexVSCf2oVw5kg74Vz20FJ5hXJBDm3hlYhPcCwe alwWgVqmoACsgnywCnTnlr8P11wdMLK4htMHP2G3X1FPuNtbqPhayHpHAest +azW5vHt8yd/ePIWSEfzJIWakEsEw3X0Zk3JnVqxfq3YcEonY8mdTCZ3nmIq yfCGwqTh0rkWb0zSGvZv5c3+S/7s6Kl+j8d791jqG2Gld0RBeVW3v8dqz/Gb dcd98HcW9hrP7j2jJlz6izMs7B5tRU8YrFY7VWBc7vyGO33fcW/4ex6P/xXP p37Dq9nf8Hr+N+yPaR4fuMfG4D16pInRtklm2oZZaulhJK+NBKs+/M2a8LCo JNKzkby4dkpja2mQDjryJ+gpm6RPWb2/YZq+lhm62mZob51msHWIr0YHeTE2 yKuZJzyc+pKD8RdsDz9kc2Cbjb5F8b6fZ3fWj87g8YuviM8bISSxn7CMCcLz Z4koWSSl4x5FM28onv+KksWvKF35Gn+93uf2EXxiE8QZx1DOamHPKxZd8gzi koz9uls8HopD/qFyoiA1xUB/LbC3tKim6O0lc3fCzvQcrp/8JVURdqpLiQJ0 MbuDWuC+QjXufDlsPhv1uXz34gn/7OSNge6WcUo1uJdr4qzN7lQU7aIns5eh 9H4m0geYztAQnznIoob55WwD+lnK6mUhQ30otZO5hHamw5r56t4L/uNJ1326 f4+1/hHKPEKoUkiuF5qFVvdQ2twEV+07hzCVXiyXH770u1HuP1MV3Ett1KLi 3C6tknJ/1Qu6Ku+w2PGGrb6v2B/+mofj3/B0+ltezH7Lq/lv+WLhW14vfMOL ha95MvcVD2Zeszy6z/jgEjODU7RVN3DrSizWRpV42lYpJlWREFxBXlofpQWz lJXOUlu7Qo06cEXjKm1tyhfDr3g9+9e8nvtrXs39hmez3/Nw+msOJl9xd+wx GyO7bAwtSdIDPL27durkXd/WoW1yGrbIbT8gt+8xeUPPKBBJCqdeUTT3BcUL rylZfoN/5QQXXGK56B7HOcWO865qvJoqLiilXfYJ5Jx9FA6BWvCICJwCfTFV k7UI9NPWF2Mp+aa3E6GXfonvuZ9TG+OgLlPKg7ES7o1q4Yel7IFCdnry2W7P 00ifw7da9OP3cf8nepqGqchqpTJHi57TQ6sG5J6sYUYy1cWyJpjLnmIpb5rV gmk2iqbZLJ5iq3hS23E2CkdYzR9gxfC2WUob85H1Wvzn/MlJY9/Uwtcqfdap IzV7GT7EEUaPZzj9HuEMuYcz7BbGsM51SCQYdBacQlhKK+bNzj0u/G0mtOf1 kGdIaSExpEYnkhefQmlSGlUpadSlZkivGdQlpzNXNyaOb/N87ksx4EteLrzh ucr8WOW+P/OS3emnbE0fsDG5xurIKMGOjvzFf/hTTN+zwdU4CiunYrzUZ6LT 5knVMJtSukV/x2NWBr7g6dT3vJj5Xgww4Dteim1PZ7/h4cyX7GtJ706ICeNi wuiSON/LVy+f/sCEJ8+/Iadmg5yWXXK7H5A78Jj80acUqI8XzrygaP4lxYuv 8KsYUfCM4YJ7LJe8DGwI5KKbZO8uJngEiiWhmPvF4hMZhWdYABaSv2WwP8ZB mpQCvHC2uUbY1bcJuvwW9fGOPJku59FUGQ8nS7k/LjaMFLM3WMiu2LDTlsv9 0Va1dcMx/s88e/ScSs24NQb552iul6d1Z08ylD3LZPYC83lLLBeusFGywp3y VbYVSxaTu5m66Mh9/c125Rxb5VOsywc38vpYS2thp2bwj4+e/l8ylltMk3cI zd6htCtHN7sEU2frT4W5N4U33Cm+7k6JUHpVuOJG3U0v2sx9GbQJYNIxiAdd QxqVj0jhcrT5f3j95glzC+20NqQr0oeSFxFDUWwilYnJ1Kek0JqWJntKozs9 nR6hW/e7ktMYK6hhu29T7eGliPGCw9lnHMw+ZXtW8+/MLmlRMZx/71cYffoJ H/zpT3H5sx+T+86f4/vrn3H1F59w/a1PuSHkBRSxN6wWM/41j6e+5unM1yLe 17xQM38hAj6Ze8PhzBfsTb/gzpSee0rGMD6vRN3J758wo0UJO6dOfaL9Hrm9 YsbQQ/LVUgqmnogZT8WM5/iWDXLBI5HzbjEygzDOOqs3uKkv+EZx1i+a90Oy +SAggyvhGRiFJ3E+OJHPgtP4NCiFy5qjHa5eJ/zG24Td+CUNiU46xgoRt4LH M2UcTpVyMFHCnoEZAwXsdeeJGdl89+oJ/+joGP8XylMrqMlslSkM0CBGtGXP MZC1zHjOGrP5mywXK8mU3+Vu1Ta7tZppMqT7azE88k/lv6dEs1+/znbdCptV 82yUTbCR38NaZp1qtsy/OzEKwwcMJkWRdu/jz5M0ugZRbOlNnrE7RcYelN3y pPKmJzVGntQaeZ6i7oaHRqraa+5UX3Wj6pILrWLRmI0f66kF546JYnQyeL36 Qou7u8TuzjF27i7x6uXTf3704//CwcEiQ0P5jBx9bKmAmoRoysKiqYqNpz4h kdaUJHEnmf6MVAYzUxnOErQd1P3+1BT6EpJZqOlTg9HkP/uQ7blDOmp7ufTB aS6//2tunfkAm8vnOP+f3sL1f/8x+e/8BUHv/oxbb32Cya8+wcyAt4+3wwoc DyZfq6moac2+Foe+EF7xaPalnv85u+LE1swhG9NbrI5P8/hg7/gzGn9GS/8D spv2yem8R07ffXKHD0WlhxRMPhKVHhPfucJFr2Q1lSg+sfflY7Xg00FpvOef LPok83FQEh/4JnMxJOWIRldC4vksMInPlPtvGFly/ZoTV1Vrx6tXWWyO5+Vi pXprBU/my3k4W8796VL2jqgkWfQbqJQjerX8wclH0Z4/fEpNeg21mT3Uylma shbpzFpnKOcO0/k7LJbss16pubLmPrv1D7infN7oUMqYRzHPcmr4rr6Ze627 7DbLkBs04tQsiHXqNUVtmnd7j4n0T5jKLaLTO4hGtwDyrLzIMjV8xsaDEhMR yMSbWmNvGoQm4RQtt7z5A1rUa1pErCZxquGaG41XXGm86ETHVRderO+cPWbT tROq7u4vMTuveaQvn+G+AkZ7CxjvKWSiq5DxjkLG2goU/DXrjBxN/8f99T+y vNjO2HAeEyP5zI7qx6OFrI0UUhUYQV1UHE3xCXQmJ2qeSGQoK4nRnCQ1zWTG 85KPtiPZSQxlJDKQlKD9YjZnD/Cwtsfk4kVunPkEo49PYyeWOQg3fvoOdm8Z EXfmBn6f38L6Y2tsPrLB6vS1U1j++mOdheU7HxNm6sK9qedauefKSc+EpyLZ E/bUCO+KxOuz+6xMS+SjY//gpBc8fvItmdJ6VvM9srruk91vINp98sbukz/5 gILpQ/WpeM65xvCOetKvQnN52zuR93wS+MAvgY8DEvjQV/0pMEX9Kp3LIcmc 8YjCSAQ7hdmVW/wL7TtySUtQVVjJ5mAlL5YqeSqyPZ5XTIt2JDfKgcunf8rV d3/K9V//hOtv/5jYAH/aamq4u77+908ItzGzQm16swindpS5QFPmBt1ZO8r9 95gpOWSl8jGbtU/YaVT7b35Of0QfzTal7Ka28E19E886NnjQ+ZA9ZfQ7rTts NK2xUTvLRmU/6yXV//akIjv9Q3R7B9IiwqWbuZJp5kG+mSelpt5UmfhQJzSZ +NJq4ke70Kn9LgOMfek09qFDFGxTZ2tR+2q95krLZScaztny5Nk3fH7MvCsn H2ndV6PqHxDrBguYEGZk5fMKd0vCspL9ssa3ZY1vy5q4F9sKmW0pZLpB7KzO 56vnT48/yfbnrCy2iYX/3ycMV8TEjVENB8JyUy6NIbG0yEeP2JiZyLCBifmJ jBckMlmYyERBgjw0geG8eAaz4uhLjSH42nluiYnm165j9MkH2F8RE2/a4WTm h9OtCPyvhZJgHErcrTDCr0cRcTWGyKuJhJyLxvMja6zf+wjrdz8SJZ3YUcPa nXyosHbI9swDtubusTq3x+LsXWYnF7l3cI8/OMmvzYOPyWy6T1anuKiml6PJ OndEfBy/j2thH+8G5vFWgOCWwNueCbzrE8/74uFHAYl8rOZ22jeD8z5JR5Oz mbEFZkbG4qG50S3+FcYm1pqeE0jNqiIlqUIRv5KKJGdMz/wMi7M/5/aZn2P5 6c8wOf2XCpA/xUxctPzoXWzPncXm7FmS/P3ZXl8//kDIj6hKKNYk0y1OTgmr 4uMOPTkPGNVkM1f+nNWaV9xpfM1uyxsWCrYoMi1mPrqdl9W9vO5a4knfKw77 XrDf84S7kt6GJpONpmU2GtQEq5t5ujTPH51wv8crgFY3PzLMXMgSIXPNvCgx 86HK1Jc6Uz+aTSUXswA6zQLpFnqPEEDfEfzp1u90mvrQZqwUdtOdtusutF11 oNoqmKfPv/7smJe/ONr8I3b2ltgzdMXZDnq6CujtENQF5yY6OJDXvn75VOw9 njJfv37C0snnhCdktrPD4q+wOiQSDhVJ8EXcGRAZDZcj+rTfU8RWdxHrhqtI 4vRiUwHzhst7ve0nn078c1YXWpkczmVmNI+FsQJWxwrZHCtie7SY/aNBqJRN TbzD2el0JCXTk5HMYE4yowVJjBclMVEsUpckMlYSz0hxHAMFsTTEeBF84Ze4 fPQrrn/8IQ43buFiFYmXrcguhJlFkGgUqlUKJd80nIybUWTeiCLbKJ6sa/Gk nI8i8dNI/E5bitgf0FPaw/rEAWtT6qkKmQuzu8zM7jAxtcni8uZJDP8/aep/ SEbjPTLa75PZI1IP3CeuZwfzylne8snn5x4Z/MItmV96pvCOTyrv+qZx2i+d DxQQ37GO5YJdOF6WNjiamWFmKpiZCsYYWdiQUVpNelE1wdE5mJj7c/vCR9hf fAvHi7/A+cIvcD3/C9w0RNp++JdYvfcT7D55T4+fw/G8AWdx+PwsXVXVJx/7 +5GCUiW1KYPUps5rCtuiOeOA3vzHjJW+ZL76DWv1X3O35Vv227+jyt3wqdIO 7pUM86ZrjudD3/F06GsOB99w0P+C7d5HbHbts9Eha2/TsNnUxfP1Fb3K8WfL 9/oHaXX1IdPUWS3WnWwxukCMLhdTa00DaBKD28yD6RJ6zUPovx3CgDBoEcKQ RbC2wXoskB6dd4eaUpuyQNstD9qMnNV2bcmvmROzv/qHJ5Hx6NrUyQfL13pH WDegZ+TtY+L/5dHmn/OFyDw7305fv9Kj0vNEfyEzwpya8bwiwbya8ZyIOyPi TigSjNbn82Bj6Z+cZJVXr58epYmR0Wryc6wpybOlIt+O2jx7ust9mGiIUC9P ZVdD/Cn2pY5/zIH2D4aOsS+tGC7dbavvbyp9rElzKw0a9Afaj5vO/8ZXmpGm hnKYVb+fV79fOZJGMTuSxcGYYSrUdDhRzuPJcp5qWlyqy9XMlEJPbopkkMJw sWRSKpQlKZsmMliWQE9xPBHGvyLs2q+IuPw2zsbWeNtG4W8fQ4SQJCTfDifn Zhh15qFUm4dTYhqlUyjT7T+l1CSKoltR5F+LJOd8JDEfumPx7mlmx3eYmdph clomLQxMqt8v7/zTk1N5/OKvaBx7QrqUkS5lOFQsYFoyw5m4Wv7SLZOfOafy c7c0fumYxNv2ifzaVm3eKpxPlVlNL9oQctuaACszTC2tMLOyxNTqNpE5RWRW 1xGRkc8FU1cuiA3nL9ljc/FDXC+9hbvU4SFleAne53+O3Qc/xemz93QqbpfO 8b/ievEsLhfO4qyWn+Z3/LHAmrg6apOUOZKXpYptWrIO6S18xljFa3Wur1lr +p7ttr+mI3aeCsd2VrLGedk2wfPB5zwf+Q1PR77n4cjXWuEvtJJP1elOLhZ3 a3xq7+PFnfUfnfCvx9OXTBN7CcKQOzzJkSCK1dqrTANpMAumVULovB1Gj0UY /RbhDFqGM2wZfooR1eUf6zaMQasQ+iyD6bQIpN1cEUWxpV1DV/tNR6rCcyio nfr9E008P/pSTgkVniHUeGhGE1o8Qk8dXcn7/aNreW3OIUwfX8t761gqPz2Z /w1D1uBgPuNDyi3Cgvr9irCmDLOhfr+pXr/ZK6jfr3cVsaokvaj8Mqf8MlV1 lF9OPor/R0ffaplf6GBAWainPUmasaa20JamIlvaC+1VbQcG8h0ZynVkJMeJ kSwn9aJoHor0j8YNKOahcCghPNC0ck+aMlwWMVz+3uwsYL05n92B9lMn8+HG QgtzspcF6ceQ2jf0Z9t6qv3xUh5MlPFoStqZKeeZZuoXmq1faih6JazKciZq suguSqW3JIXesmS6paP20kQKw62Js3qXFKvThFnZE2ofQrBDDNGOMaQ6xpHr kECeRay0EkO7VSyd9rHU2yYKCTTYxVFvF0utTTSVllFSVSTF1yJI+NSVpLAk +sZ26JSWWkc0KR08PXbePyGqeQG/hjluZo9zLrqeT8Nr+bFpPD8xieetW5oF bwXyqZEHlxS/r5o4ckFDg7+5HZH2FljY2HJTiC0oIaexlYi8Ui7ftuPSTSMu 3bjO5Ws3uXTBHI9Lv8RT8DZcjrz8Fn6Xf4HH5z/D9ez7p/C8cl6S8dB84n75 rKR1Frfzn9NTU01NTD218ePUJq7KUPZoyX5Eb/FLWnLvU5W2TrhPK5HuDQTf LibRroIs5yqyXeoZ0+y42fCMp2O/4eHotxyMfMn20AuFCE3Ig9ts9C9KNgO8 uLvxo5OLktW2koqJk3zEQ/AmV3IpMQ2i2iyEJvMw2tW4ui0ipIlIaSOKYeso RoQxG0MDG7OJ5N8ybBNOv3UYXdJOh2UQHbflKebedGieqo0poLBlluU7h0ev ePxFmRLqvEIos/Wk6KY95TcdqDESR08uhA79cCHUxXAhVH7lFMJy6vGF0J8f y+gnJ1HLEJ1GNUVOaYpcGFHU0QS5KdxVhNqRJewOHVmFjOEP2Bs4sQdDjDp6 V+f4TbgFxadHq4u/f/LtCEMiM3xzy3AJZELKnJUq2yo8pCYb2ort1O4dGCp2 ZKzIiakiZ2YKXZgrcGFemMt3Ya0ygPv9mad4Nl2q6PlUt08mJbIJiUsh7MBw ZP0FR287bDbn6YjaONyfZ3Ywm3mdiUFRKwpqW6Ml7I6VcU+KejhVwZOZCp7P VUpNlXyh6e+1psDXy5WneLNcKRq9XpbIliS2RQlvvozHs6Vkun1EmvOHJNpf JNIxiBincOIcY0lxSiHXMZ1SpyyqnXOovp1Gn+6PuKdodMsVsunwyKTNPU0Z I5km5wTqZGLVynvlMrH4M46U94lOB18cv2n5Lo/ffEX20Cw5Iyvkjm4SlF9J aGEdYYVNXFC8OH3Wjo8uOfLZDRmKsSuXzF05c8ERexNnohxtCQkU9dp6hG5y W7qw9vLlitltriiyXTU25prRDa5fu4L1lc/xvvI2vld+hd/VXxFw9Zf4XfoF 7uc/wOfaBbwNuHoBr6vnpa9zEqCUdeFzinw1bMRIUXFrimf7lKXcITl8kOiA lqN34nMM78Y7lJHjUE6lexX13jXUe7ZR59ZKrVMrVTbNrNcfcjD6FdsjL9kY eSRoCB5ekqoGeLa9zr85uTi/1zdAprEtWSYaNky8yNaUm2sSqAlYPmEWTrN5 hOwlil7LaAasYiSfGEZtYxkTxtXHJuxitI1hxC6KAdtIuiWvDutQSSuQDgtf yUsxzcSO4s5FCmWUhm9iFRnbkHXemOTTF8k4fYn89y5T8u5lKn59mep3LlH7 9iX6rjswYunFtOxpygBXmZNz8NHl5K927/3sWFk/PpkkhwdyNJDkMXvU5Qs0 ERceTcS7woH4eV94MHpsGg/HDNsiDvWz+yPHYWxXue+OMt96+3EIu9PT/tvv x/z264fD+UxLtYavHg41yS6LrOkstqWvREda4shUiTNzwlKpCytlrqyVu7Eu GLZrur9a5Mrj4Wxezpfzcq6MF7NlPJsplQOVcCi9Heh5d5VDt7vy2NIkvzxS xrxed2HYcDmqiDVp7I5S3954OfelscdyrOfzlUeX8r5YquLNirBaxZdrVTr2 r7T37/lSt69XKnklwT2X4Na7E8ny+Jh0t4+JcvIjziWMRJd40hW/cpxyJbIC apyLaXIvpdFWQ5dHIVP+eQwFl9Plns7gOVv2bTwYCMqnyy+Ldu80mlzlbPbR 1IgxD0bW1ZQMdfs1rQtr5AwvaKJfl8p2SGyaJDS/mfCCdiKKuogq68E6MBO7 sGw+vGLPJ2qqLuHZWIp1Ff4RhBldw8olmLzOAbyTc7lqZcdVS1uuWlhz7bYF N8xMMLp1nRuyMN9r7+B//W0CbrxN0I1fEXxdVnbxA/xuXMTXgOsX8Ll+Xoo7 J7Wdxevy5wRcsqE2coza2DUSAjqI9G8kNrCZtKAWCoNbyPOoIs+hlDqPSjr8 Kun2a6THt5Ue+VmXVwudbi20OTTTFzDA3XGpbEIqm5DKxhZZH+j70ckbHfNN bWTdspe43AQfCSyAPJMQCSycGvNImm9H02kZQ6/mv0GbOIZt4xmzi2fcPp4J AxzitI1jVD1twC6aHrtIOo5EJv+yDpDQvORfjhT3rpOTW0v8r8+Q8f4Fst6X sITS0xLVe1doePcqLb++SpvQ8c5VOt+5Qtfbl+k/Y8qiRxjz7sffeF50DWLe OZCvdw9ORiX+68nIs7p4PKrPSWXLGtU3NY9sG1zCEMWUqQzvXT6elINMlYqB Bi/5I/lKCU/F8CeTxceuYlCkTGq7r4CtznzWGvJ4srrIl1LZ2FCuvDHv+PlP VNxWYEW3VNZfKpWVycTKXFgod2Wlwo2NKje2atzZrnU/xXadO28ZdrlTrYcl umfj2TIeOY1c5oVc5qlc5pEO574OY98gNg1+Ox259GY7SWh5R6l2ebiY9ZFS 7srM9icrOJwxXCOv5PliFV8sG0RWLYFV89V6NV8L32xou2G4fyy8L9YqebFS wUiFN9nen5Lkaka8SJzkGk+aawb5LnkUOpVR5VpFo2cN7b51tLpUMOFXxXxo OeORDVReDGDHPZH/nhjD/bgEhiJK6Q0toCMgmzavZFocI+j1SjkR2n8kZ3CK 3OFl8hQZ80YPsIutxkICtQ4pwja8FLvochzjKggu6iCleYS0tlGCsqt462dX ufWJEa6Xr2J/VjakJHPRxIarts5cs3Ximo0DN6yUHS0suGVugrGpfu+WhGP0 a4JuvkPwzbcJufkrvC59iL/RpVO6uahhwc/ogvR2Xno7J3c7S8BFS0q82kn2 bSJWp5sQ0Eh6UJM01kypfx159gpY0lq3f436Sg3DIW1iz2hoqxLTaEgLQ0HN DPhJZx5NDIX1sjH18PjduIl5lge6Ty4y/Bey4tPIUjjLMvYQ/IQg8k3CKDWL pNY8mhYl8i6rOAktnkEl8WG7RIkqkXGHRIkskUml9gnHeEYluEEl9h71tE6D 2OzC6LCVm1n7yNFciPOPJfqdT0h451PyPrhIoURW8f4V6k5LYO9do/O96/S8 e4N+YfC9Gwy9e124xrAwKNHN2/iw6hnGmkcIa25BLLsE8M3uwfGsxV8cbf4Z K/Mtv539DY5muCS2I50djBncwqAzEXq6jOczchK5yUsR/BSvdPujE3cplbuU 8HjKMC4VHbnLUZKT5mbLExhsjpfWcn/nuoI6fZOmTQXHfjnasLQ2Ua6gWCGt SWcbtR7crfdgt9GTg2bD1xvv6fbfat+D/UY9Lvnt6PeeT+bIcQzxrlyiUbSb K+VQojuQ6PbkngtVgXQnmTNcHiLBFbE0VCKdl7EtVzuYluCUGp9IbC+Wq3m9 eiw2g8AMQvs9vt2sVnz8Wrdf6v4XEt0LCW600odc3zPEOXmT6BpNsoSW6VpI sVsZZa4a6L2aaPVroTu4jU6vBqZDmliObpDwchmxyeBVSgn/o1rjbFo5o3G1 DERX0hVeQluQQXBiRFg6j6dXj2ex/8DC/n1yBmaJqhvCOCSfT9Wdz9gk8IlZ FJ/djuWsVTxn1eHPm4dyURHpmmc6PjlN2ASm8qt3jLlxwQInIzO8jG9SZOmO 09nr3D5ryrWrtly/Zcc1zW23NK8ZW1tgYnUTC9MLBBpLc0KI8TuKk79U+QNu XlYpAm5d0t4l/G9ePBbejfMS3zl8rn5OuGUqCd6VJPrVkR7YSLZ/EyUSUoFT NdWuDXT5tzAc1sJgYBfjET1MRfcwE2tAp/bb1YtaGAttYkQiHdX9jZkt1iZm eHrv4Leai0sny8hJuvMS/GV0ITK3cGkuilqVotkyjk7rBHptEhm0S2LYPkn6 SmbcMUlaE5wMkA4dxUiHeHo0RVepnFnSZ64Spp/CfqBRLJ5X44j82JbID2zI /tCM8vevUv/+NVpP36D7PSP637vJ8OmbjJ2+xcT7N5k8gpFwg8nT1xiT+S3b +rDhFc6mp+E/owhkxdXvRHN/fqK5L18/Zmog++h6waI0ty6v2jZoblwc1mTz RHp7Nlt+lOC+WKjg9WKFFuKNLOaPNNhUaE+PL5YfafG5eP9kxqDVoiOz2ZHZ 9Oe60CUc+2fhbzXdlWfFgIa1oVInxqW5GXnbUrU763XSnPS21+zFvVYvDtu9 T/Gww0svd9jhyYM2T+61eHDQKOnJ876UFL5YrZB0ynmqw3ioQ7g3LdlJ/rM1 wfSmWtCb487iQDHLQ6VHstuRxx3MVPJwvoqnS9W8lL+9XquRvGoks5pTfLul m+/u1Ihr3+j2qy39fLOKl5LeaLUvqW63SFQsT3RNkezyyXGtoNSjlmrPFur9 umgP7qEvok/NvYPZiE7WDJ/aNU5lL7KC/1ZRy6uqcqZSOxhLbmUwUQFL3tUe UUxbYAZjcfnstvX+ixOba51bxjgwgU9tQzijIPS5evd5+zQ+vRzAmc/cOXve k/NXvLl43Ycrt/y4ZurHDQf93jkvfv2hJUYa3i0s7XGysyHSNxZHC1eczR1w MLHH1MgFM8nP9MJtTK6aYHrLiFsmFwk0eZdgU8nO5B1ly9ME3rp8Slq8zL8z 7B6p7wfl+Ul5AWZWhNvFkeJVRZJ3HWmeTeR7t1Po2kKZcxvt/j0Mqxoj4QNS 3JBUNsRMzCBzcYMsJAkp/cwmdTMd385kVAPjgWpuMbUsjE0cK+4vWNi7R05Z E1k3pDojg+oCpLpQzWwRlJhFU2sRJ9UlKCIm0mObRL9dMkMOKYw4pjCmUXpc mHCSAqW8USmvUc6XaJdCiF0GEbbpxNukkWKRROrNaBKvRZN0Sdtz0aR9Hkv+ x0FSnfKYVDb4vjGj75sw+YEJ0x+aMvuhCXMfGWDM3Ie3mP/AiJkPrkt9V9ny iWRLytuS8rY8AnjeO/iT31WeDetzzcwO5mjWkRtJdVua1XYNV7jlco+my3l2 cmXui6VKvlyu5CvNNF+tVvK1AWsV2q/gS7nOF6L+C7nO0/lSHkp99yaLWGkO oSvzNl2i/2RbsvJ50dEVwPXuVPoKbBgyzG9lzkxKdfNVHqzWebLV6MVOqzcH 7d4cdvnwqNuHxz0+PDmCN4+69HinQYKSX5O75roEXq9rFtOxPNUxPNIx3JcD 78t95+pD6MtQ1VKtWewvZmWwVMovZ0cz3MGspLcg6cntXq7W6Dkksc0avtmq 5ds7tRKecNeAmmP53ZH8JMGXkuCY5Jfhbk6SU4xmuGzJr4xctzrKvVuokfQa gwbpjBhmIGaU3qB+5mMGqNNMNyVyvilo4X+0NjCfJQJmiYwZPQylttOb1EhH bCVt4XmMpZWxWlxx8ubfrzH2le6sffnMJoyztnGct03m/A3tX/Dj87NenL/k w8VrftJegLQXyA2LIC5f9cD0jBfuLnFctnThmr0TDjHpQj5XHPwxcfTHytEX I5tgTC2DsZRl2pr6Y3/TE/srDvj/TPb2y9OEvvdjfD6T/oyvEGQiSIKBR7h0 JEI/idDf+IbEF0SEfQRJ7tWK3M1ke3RR6N5DvqPq4TNEv+a9sbgxxqOnJLIp 5hKnJLxJBp2zxcxMCXCYxawRZtL7mU7uYFriGwsu5PH6zo9OPvS1sHefvP55 Mq9JgNclwBsS4E2DACMpNouhWgJsskqg3SaJbomvzz5F1pbKsGMqI06pEl0q Q5rxak1CSZZFRqiMETbJEl4SadbJZFslUWAeR4FxNHnXoym4EkPBpRhKLsRR cS6eqk/iqT8dyOgHpkzKCmc/Mmf+Y3OWhFMsf2ym2Lz8sanuG7Pw0U0J8zpz F28fi9Db8L8cBbPh6ctP/rb3TfdmHQ1Bhrdz10aKj680yPMeSH2Ppb4XBvVJ eV8eKa6Kb2QAymMbVfxU2UxqFPvfiP2vVpT7lpT7pMAHUuBYqaVMR8i00qDl cXKlsJT5xggGC+0YKXFiTPPcVKWMqdaT9QYv7rb6sNfhw/1uXx71+vK0T+j3 5Vn/8fZJnxQpFT7sOlbgXqPbiSlVKkfmMdOWoiyrHleXKOV70J5gTm+6DRNN aawM/aC+Sg6UNR8uVvN0pUbKlfo2DAZXe6y+u7WnjqT3x3y3rYckwK+E34qv xlcr5k6SQkySUyEpztXkaUCp8JO/SWxNYWN0RYtY8dP0hY0yGCwC2ijipnby 35q7eVTdy0LuJDO5Y0xkDzGU2UNvWhsdiZoHY4oZy6lhvaqePzy5ZBkX4s+n mvI/s/LnrHUE523iOXctlAtXQrh8I5xz5325eCWAy0ZBXDUNkfhCuGYWxLUP HHGToJLDEsjMyyG+eZzsgSWsQpK56hrMeadgrmrwsVT7t7fPwMMuHX9ZQIhV CuHmicTcUPu/GEH8Z2Ekv3WVpP/yn4n++U+IeP9tAi98ciTCAInQ/9ZFQi2d iLQL0d9Gk+LTTKpzN/luQ+Q4DFDhMU5n2AzDCTOMxSwwlbjIfMoii2mL1N1O ZEwD2rchMTxJETUyx5nNHWdKjWkqpVVCrdQS951csvwxd3aWaB3sJL5cLnvb naxrUuF1qdAolGzjSIqkwkqpsMEqkRYpq0P21mOfSr9DGoOOaQw5pdF+I5Cq q77EyCLj9PN4KTVJyNT9AutEyiyltNtxlN+KpsJIoVQhtOpGLHVG8TTdSKD1 agJtFxJo/jCKsQ/sWfjYguVPLFgV1j61YP3T29qa676U+ImxFGrE9EfXWHX0 kxIN/4FXqNQYwHf7+8fXMBWmj98WPNydY64vR2Is0HBUxPpwieyqjIPJcg5n ZS8Lhg9VHV/qM1x1+FaD0Heb1af4XtT8mW71kPC1SPpGuny1XsHz1XKeSJN7 Y2mMllnTl2/DQI6NyGZzckWxjMXmSIYKHRgtddbc58aMnHC53ouNFm+22304 kBYPe/143O/H00E/ng/58WLoePt00FePS5N9BrfUfNjmznJTEF2FIfTkB9OT G0R3piboFH/qw6yp8L5MuecVGuK8mGjMYUOz3860QY9VPFwy6FEiW/8dPd45 0qNBjqeO1PjHfLN9okcZ4kud+DOdaoyFN3Fa7zi7QumyWs3fcIGhk9rQYZoi p+iKm2UwaYE+7Vc51DMb1smb6iG+7+xkpWCBhYI5ZgqmmMgfYyh3QC2ri45U jY4J5Wy0jbPR0MKjlbmT71ycJi7YD8vLn3PGzInPLQM5ZxWlmS9WRhgsIwzn ys0orkibl64Hc8VYejQP46pZCBfP++F4K5BQj3CCA8IwdwvHPCiLOGnzkoMv Zq6xOLik46Ix1kfbYJc0IsTZGLlIgm0KSVbJZJjGkydO5l0TLsaQeyaS3PfN yDv9S3Lf+q9k/Pg/E/fLHxPxwa+IsPCUNsMIlaYzArrJ8x4m12mcfKcpGgMX 6YtfYThulfHEdWZSN1jI2NCYXEuLaSp3wkv5rqSCJ2XtzOXOMZk7rfpMMJ3T z0ZxN+t5YuHDJxx/U+9n7B4sMTPfQVdvAb1Cf3chFeWJxKeEE+sTQNJ7V4Sb pJ1zlYMGUCCtlkmrtdJqk9auTVrslFZ75JZd1nE0XvCk4op6rV0iSYqxybdj yDQKJv9GCMWWiVRYp1GnObfhdgp1Zik0mKXSaJ5K0+1U2i1S6da2xyyZfuNE Bq7H0XM2gumPHVg9Y8WGsHkES+1Ls2fMWTljxoL0OvOJEcvmLsf/N6CvXNM3 iJcDA/8/rT7anWe+N5eFAYNWi9kYKZUBlR1dyHg4X8kzxdWX0umbkyuF34mp 39+p/j3+6m61hrj/l6y3jI7rTvc1n5VzZu7MnDt3zaw15zQk6TA7iWMnjpkl W8zMzMyMJWbGklSCEjMzk5kxtpPYDjjU6T59es3ce3veKjs9nTsf3tqSbElV tffzg9L+7/qzHLw/X2/nR+H1u6uCtSY9in9en85kqdWXKfHHmVo/pkp8uTBa rpWAcwMK5hsCWWwKZaU1XIpdJBd6o7kqnnlrNJbPJuL4Yiaeh7PxfDUfz9cL 8c/xzUK8/Lqv5+N4NCeWOhPD1e4AVmtdWazxFuRTWWpMYakuiYWqROZK45nK 9aYz1orOaCvaon3pTEyQX1nMTQ2m0hU/P/sU02+0ttmpxfSP1zU+2Smp4Bmi nVpEW4sDyAo3JthuD0m2kWS4FJDlVS+7tF3yax/KuFGZCVoT5hnKFkSLz6OK GKI/bIh7dYv8ZWxJuz7hvPI8Z5Rn2GjcZLlhhbm6eUkUE4yUDzBZN8iV8TWu DA5LVjvD09NOTnLj6mVB1BAvS2MMnYMxcU/C1CMLU4dMzCxTxTozsXbOxs49 T3JrhlhnOraeGdIhU3F3ySIpTEFycg6ekRm4R2bKpBNY2EFiVithYeVEhpeT IJMRJs1JpkRQrdT+wbKIerFVpaeCJrdsCYa5NLrk0uQgY5VDg3E0VdYm1Jnr 0SC5tsLcgiLXaAqlweW4lVLk30OqfSNlbkO0R51hKPMqU/nXmMu7xXLxbTYq 7jCfvYbaqZzzKSKByn6e9IxztumqPD+Cct0Z1jWrfrq2udI+z5WWfkll55/+ AXQ/n907x/RsHTPiMXOzDSzONGhPf1qbaqC3rYDSfAXFWYUUmXlRfNSRElGW El0PKoyDaZSy2eaVR5e4ZJ9k10HJt4OeOaiNw+gyDROFyqE4oIgSj2xK7dOo ts+kyT6LdiGz26eWfp86+b4GBrxqGPKpZ8S3nlG/eiZ8apj1q2XOr5oFnwqW PKSwOmazbBHPZUNvrslcN9KMEGskxBqK2xq6ccbAhQ19R9b1bLgW/+xaivHJ fDs79yta/bi6PiC01nJGHun5mSYtrbcEqXviql+Kq351vp0nl56+tPjzNbX2 VY+/iM/8h8xfn23/XeZngfcnwfZ7wfYb8Z3HYq9b3b4st/kLsgFM1wcwW+Uv X1NoleDcYBbz9YEsPUN2qzOKC33RXBuO5fZ4HPen4vlScH00n8BXCwl8s5jA t0uareC7KPY6H8ulTl82m9zZbHBjvdaZjZZU+TyFjYZk+TyRlUrhsySEnnix 1XhrKX++DKYnMJyRxHxFNne3njL7SKKuhtnvhNkfhNmfhNk/irVqYNVg218V jp/VIexOvof14TewlbE79DoJZuEk2+STYFNLhmc7JVKuGhOkXMVO0xI/R2fK AsNZK1R6q9nKn+O7/lW+GV3mnEB7ruk8202aq9Bssaxck5ixKJFgiuHKIcYb h5lvG2S+sZFAB0tpMM6mxlIshjrVDKqfXh3iPz2DOT85VkA2wltgNnIMwsQl CXPJjSZm4rfW6Vg6ZEnmzcVefMFRjkxbd4Vk5CQcnLIJCi0iOqkIr2gFblEC cnQGHjHphEaXExtTQ4xAnCQFUCFTGF5JeVillOkqGmXbHFZBa5j4jL/4keT9 3sB8uv0lH3rn0OqRQ4tDNtVWcaS72FHgbC0ge1LknSlTRplPE4Vu7aQ7qChy 66IldIyexHX6ks4xorjMbMFNpiQPNzpVsRbfw8OGMX4WEbvafoGtljuyj6+x VSfPXcUSV/ovSAZZ5UrnGHcnx59Wg4P8+MPjv6+AWZD2tjzXwLrM5myjGFMj Z6caGWktoCIrm0qBujwig6Ij9pSccKHklDtlel5UGfjQaBtHm3c+XT4F9PoV 0iJAtxqHUuuQQIlfPqUSP4oF5jL7XOrsC1DZi+V6Kun3VdEfInFBZjRAxXhQ GxPB7UyGtDMX2MJiYBMrIS0yStYCa9jwkXbmlsm2ZRjXjHy4IXPdWAAXsK8I 2BeN3DlrKMXWwIl1AzuuJfzD5UHnfg31e6wNSWsfr+OMPMrzs01c1byouSZQ S2f9UmLyVxc7JAML1FefvoLy7zeeQv3XW50yAvVt+Zpsf74lUAvY3wvY34oX P5bcvN3rz4xSgG4MlK4ayFxtANt9WSIYbZzXQF2rObFGA3UEW10CdX8M10YE avHge9MC9VwCjwTorzUwy4gRLydwSD6P52qPH2dbPdlu8WBb6c5WvSvnVBmc a84QFU9nuyGNzXoBXODuTbCmP9GGwVRfxnMSmMhPYjovSQw8mwdn23l4vkMy vponkpene1qY75ODLb1RXKmEGHG0WIc0IiwSCZFn2k/XFI9jB3A98gYhp0xJ tcwn1a6OFNc2FD594sgjEhAnaUmcluA8S13EAANx49xRrfDjtITgthXONEtY btmWA3SbteZNlgTq2YYlRsSN24u66KlQ01NaR1eeAm9zE3xknsPXzIR/xsfU BG8TYwqenl//Pz1j28vCUMu1ZqmVg40rpk6JmIsZmppLXrbJlPycIzznYy85 0dG/EEsXMW4xb7+gAiITivCIzMJFDNpVuHYXrsPDs0mIlC4bVUWi8KyIrKUw ooGKCCV1kU00RTZLDWlCHaOkK6ae4cgaRiKrZCoZjihjMKyYvqB8esXNulwV lFhFECZsJ7kEohDny/SsIcVFSYxtM2lOago8+6TnDqEMGRX9XWYgaY2R9E0q HWuYiR7grvSJHwZnuN99Wwz5ITfaH3C59Rbnmy7Jrt/gXNumdIwtYXyGSx2q p6vbDvHTj4+1l71eXqxnZVEMekG4ltH85ey88H1R+L4sR/6VyUZqFFnUZRfK lFEdnU3RcWeKdd0o1vekTMyz2siXRgth2juPBotoyR3BKI2CKfKRhydPaWlA FSXOJZTbl1JvX0m7Zxs9/t0MBPfRHz3OaOQgk6HdzIT3MhPZx2xUHyvhXawE NbEeIiOVYT1cxUZILZv+Bax7JXHN2JcbmjHxkY+9uWrsxQVjD84aubFh5My6 oQPnvEKeXfE2lW/n5/gfMvb6YCVnxgTwiUYuaACXLnxLXPWe5Ou/Ay4H/o/X NM7cKQ7dyV9uSVH86+1O3IRv+dLtZ3zfFL5vCN/XhO8rrZzpCxC+A5lWBjPb FMxcYxDbA9miHW2Ss7OZrwnS8t1UkEZHYSr9xUlkheahSleIwacyL/NIzPqr pUS+Xk7kmxVhXebOaAjnO7xkp8qovDjbLNPowaXWHC6pcrioyuZ8s+hHtuhJ cxoDCg/yPU6R5mxOlrcjM8XJzJUks1iUxEadQtuJp7qbKVI0UJndiFKmICiX XK908t3TyLNPpMBWxiqRXLNEsowSSdT1JkbXk1SzXNJsxbTd21H49lIUMkhF 2DBNUgQb44YoC+hlvXyBRyOrfNa3wFnlCpvNG8L2Bpst66w2r7HQtMJg+Tid xf30VPXTW62mr6KG2qQYAixMCBS+g2SCNdtnSw4ChHF/Y2OKYuOfXVVVh+Gu drwtjLSQ+1ia4mAloNvHY+6cKaCnYm4nhdlZQPfIw15cyEZipalVGp5+eYTF FRGUkINjWAbOURm4COTeAntieAEpUeUkxzSSFt5AXngLpWFt1EaoUUZ30Rrb hTqhk97kLgaTO5iIb2YqvompBCWT8fWMx9UwHF3BYHgxAwE5UiRTybJ0Jdku mDjbTKJtS4lzVBFn3yoG30Ol1zDNwWM0R0zSJ6APp21R49XJYOgQVyoX+GZg hTsdt3jQ/T2fdX/Dza6HXFHf53zbddnXZ9lulZYyfo4rIwtc7lU/ezFhl5D+ SHvl+LXFOtaF9k2hfVtGc+bXRaH9itB+bUbJdZkb00rR2AIac4tQ5pWjLKim LiGPAh1XCvU8KDL0okxoqxbq6syCKNMPEIcPpMwuWmjPotivjGJ/aRf+7VT7 ddPk34faf5DesHH6YmYZTpxnImaCmagR5mNGmYsdY0la2nJwG+tBSjZD5L5F q1iP62IjqoXN8Cq2QhSccwh5jusmvpq3XJBffUUDu4knZ40FdmMX1o0dOO8d +uxCzhrY5/8HM+9MjxEF9afczpEae0eUTk60ujjR7ubMWFIoW8rMp6xf/wfW BXAN5H+9I9s7z2CX+f/DHiiwB2lhn2sJZrpBYB/K1urIUnc5JSJBWTHF5Idm URGaSWN4Jq0RCjpleiOy6AvPokf+bTojk1t9KWJoX4mZH+FCh6fA7i2w+3Je Svv5Fh8xcC+BPJ0rHYVcbpeoFGQqSfAAGd6fEGSyG9/ju/A8dhDHE4dwPnUY N/3D8judWSlJoLW8jvKcRupzG2mXqQjLpdQnnWrvdGrckqkVZ6x3TKTBIYl6 uyRqrBOpEOhL9BLIPV1AulU16W6tZPp2kxeoMfR+6mMGyfFX05s2xfXOVR7O LjBfOinP5yJrTati4isyyyw0SAUvHaG3dIiB2jH66gfpq22nt6KS3FB/QgT2 UBnN+olwC5NnKyn+mRAN/GbG8ti0Kyme+zvvHU95l//ka2GGh4UtpjaxmDuk YyaBXcu7i/DumY+VBHl9eRguEqiDogoJSSyQgF4ghi7MR6XjJLzHyzGWEqG5 LFgtadHt5Mb0UBzWTVVEHw1isqr4ISkiw/RljDCoGGY8XVwqtYu5tE6ZDvm4 jemUFjmUGhkS7ociSxgMyqTNOZIIcaloC+HdqpxER7WYez+ZrgNU+YzRHTZF T9wC/UmrUms7aA0YZrtkmS96N7jTs8RS0RkuKT8T/fyBm71fc6X7S86rb7Pd fonN1hWuTEtwn1ji0mDXs1cmjmh515x/syG8byzVsyVzRns2tTj6gpKrc03c kLkllnd7tpk7MnOt5TTnFaEqKEdVXIOqvJ6GtEKKHUPJM/AkTxJ0sYm3pHoX inWcKRTm8zzEF0RLC33rZNooFg+o9h2kyW9UDu1FemNXqHNsptG6Uip4B/NS 6BbjZ1lMnGM1aYaVUDUbER1sRbZxJkbFdmInG/FqNuMa2RJczvhJkTXx45qp L1cF+svy+zXQnzFxZ8NEoDcR6H1CtJcov5ashf4Xh/9Au/mEy9PzqCOT6fAO olXIb9W81YSDEwPOQr2bC5PuLkx7ujDl5cK4zFWVQkv/n29paH+mAEL+X/6R /ltP6f9GOrqG/u1esXmx96mmEGZVIUyKEmwNZzPW0UhJVj3FYi/VcrjVhWTQ KuR3S5YcilQwEaWgPzCZIZlhmUH/FPq8UxiPTZTY6/qU/HZfod9f6JdR+UmE 9xEyrnWW8jbVSZYkuX9Mltduwk3eJ1Bf6D+0E/9jhwk4fQRfgyN4GR0lwMqY KO8kCuNKRNIb6ZSpCc8Vec6gUabJK41mj2TaPOV5klF7JqH2SKLdPYkW6cFK exnzYsoMKshwkUzqpSbbv5MSwaMorJPC4EEWaxa5Oy60t44yXjjEYt30cyw2 LYhczzXMMFw2yEDZAMN1Yww2jtPf0EdfXQvq8lLCxK0jrEy1y0CeI8rKFEPt ipDIZ+tBwsyNCRUBKIt/uoyqIClWUr+xUG+qJT/A0hwbq2AhXuPymVryLYV8 G69cDCyTsXVS4BuaT2hinlRzIT+2AM94GVEBn+hMkkUEUyKqSI1sISOyl+KE SSqiJ6iLGZemMoU6bZZexSyDOTOM5k0zlzHEgkIeYpY87Kx+5rN6mVV0MZHR wXBKM4MJNfTJz1S5hZFtEUiMmYJ463qSHLpIcx8m22ucCl9JPGEz9CUskeve QZXXAAt5S9zu3OR23xqLJdsslWpmk/Wai9wceMLlvkec7/5M2uBVNrs2uDgh kX5mmfNDnb+Avz5fzdZirQBfJyNGutSoXUJxeaGJa/PN3Jxr5vZcC3dlPptv 4d5CC/el1LYWFNJWVE57WQ1tlfW01Shpr1NKo0khQyqzwtSTjJN2ZOvYkaHn LXc5hTyvcnK8Gsn2FLGUhlLsNURVwDTNkUt0Ra6gMC4hXS+TYuMs5sIGWUpe YTlVAmDyIqtR/WzE9LEV1822AL+VKp+n9rGZ0ir/XsVmbKoA7yfjK9D7cPEZ +NumAr6ZgG/mwMWIeK6lasBP4U/37v0C/vvP7H6hupG+6GTGo1MY8wliwMaR AVtHRh2dmHZxZkHAX/VyZd3blQ1fV9b8XFn2deFsRhh/uvUPAnDnqQj8Av+P Av93Wvif9vitnkCt3U81BzPTGsJ4UxCqilrJ0nWSoRppTa9CFZlDe2i6WH0m A2FpdPkl0OUTQ79/jMAfI0CPBMVylCH/WPq9YuXI8RUtPU1XlgVn2gJEAAJE AAKkF4sWdlVSl2wtXeG4ZMfdBOi8R4jeh4QafEzgsU/x3/8pwaePEmx8TKzz GLE+8do3OsgISJejupDm+Apq/XMll+XTHlBAm0+23J8cegOy6Q/KZjBYIb6V wUBQKr3+yXSKcLS7ZtBhU0WhZR3JYv/x7kpyglQkeHfSrpjhbPcqZ/un6c3p Y7hApqhPBHFGZpqhikEGK/qF/GGGlSP0KYfobeiis1ZJbkSYkK9Zo6Jdr/JP 2oUrhnKrOZneVL5s8velK2FmRiIAcXiZGjyF39wUPwtz0TYLfKwcMbNKxsIx SysAli7Z6JrEydfS8JCHGhSbi0d0Lm7RIgCxeXjE5wn8ecRI3E8LLyUtQjRN wM+OHCPbt59aO+nw/r20pcmRrFimP3dFHtYyk3nzLORMsZQ3yXL+hMw4C/kj zOYNMSkPfUShZjCtidbgHFr94imxDyfWJIskKyXJ9t2ke4xKBZug1G+CjnAh JXyMXIn9wxkLXGzd4FrPGnPF6yyUbrBYvi4j9ahshYtd97k88Ihz/ffZ6r/O Zv8m58ZWuTK3xDd3b/5yxa4rZwfZWtCsRny62P2MwH9OA/+iwK/545EAf2de xWcLKu4ttvJgqZXPl1v5Qmals4aO4nLU0rzU1fWo6xvpaNSsGOtoahSracgv JNvVh1xnb+L17ElzSSHRqYBE51qSnFUkOXWhkERT7D1GdcAkTYELJEpgzDDO J9eigGq7AmbE/dfSNtlKWxfgF9lIHBbY5T6n9LKROcZ65rBsO9nMkIaSIm1W BOCSCMBFUx/Om0rbFRHaMnMX+J21AqB5H4lrqRlcTk55dr7JjmcL15arG6R3 JTEt7K9o3o0pOJZJGycmbJ2YdXJmWYx/2cmBJTsr1hytmDLUY9pYjzVnK5ac LDmbHKDRgOf4s4BvL7dq+VTNH2V+kOT/5Ho7X19t46Hgf340/hn+IUy3hVCR kUJVVg3K3AbxWSWDWY30RBTRJ9Ve7ZdGu28KPYEpDIWKz0dq3v0lkdmYeKlB cbKNZSoylvEQkQH3SEoCDtEYe5qZSlfOtAZKbfajLkVUOOwkiR778TrxPiG6 OwjX/4gwwz2E6ugTckKH4CP7CRHvj3PXLB9NIj0wk3yp9FXBxVRKXGsOLKcj uJKu4HJ6QzSvR5UxElnKeFQJE9HFMoWSTfIYlWYyFJpBT4DcZ49cOhwqybRv IMmjmXD3ZjJDxOvrxIDGV+gt7kEtJtifJ6M5z6RqmMFqmZpBhhqGGVAO0qMc oFPZS3t9Bw3l1URqlqfZmBNjq1lEY/6cdGJzjLTrauJszbQTa/sPUmD5dAWb j6khPmaS+s3NxP+fSkCIjSW25uGYS6u2kJZ/2jSR00ZJOHlk4Rch6Ifn4CJb V40MiBy4x4skJOaQIk9NWliNyEAHqRHizZHTBO/MpMeohBmzPKYNFYwHdDCU NMWIePJc7gKLBYssFy6wWjwvM8di8QyzRRNMFowwkttLR2I9rZFFtIrSK32i SDTOI8m8QVp/t/j/KAqfcWnJY1T6DRJvr6Y9YZY1peA/ssp89TyzxYvMC/bz FSssVEhxqlhkumyeS0NfcnZY/H/4GptDIgGTy2LsCzy6c/3ZVfuOsDVXxRlp +poVyZrEr+H/ovB/VbPsRPi/Lex/JuzfF/YfaNhfaeXLVZk1OZzXWplorKaz Qqa2nk7hXy30q1tEC1oaaCzJoyo5jmARaVed03LfE4l1KBIXqifBsZ1Ulz6y PUYo8ZukJnCG5tBNOmPWybAoI9e2jBqnCrb9qrmUNseWYpvtrC02RV7XxUFW s2ZYUoisZg3JdLKerWQ9I49zwv95CQBnJQCcMfMS/j3YMHdj3cKJLWcvrqUp uCoa8PXC4i8nnb2n3YSyIjI2LHRNSwhYjUnjrJS8KxL3Vpx9mbdzZcHOgQkj U6b0DVk0MmTNxJBNMwM2zfXZsBAxsDjNotlppuyNuD2Qxc+3OrVnhvx86//r /0+kAVyYK2SsPZL+Gg8a062plcmK8KYstYj67AbUuSqG89TM5nczk6ZC7ZNL V0AO3eISQxIMJuNymU3KZikli5W0DFbT02SS5PN45hNjmYmMptvfiwK/vRQF HGSqwoWKRAOyRAVywnXw0vsYn5MfEnb6AyIMpQnonyDitBEReoaE654i0tiC VO84CQCZYtqFlAn1Fb7l1HiX0xZcL6FESX9EA0NRdYzF1jGVUMdMYi1zSTVy v6pkyuVrJfJvBQxGZklYSKXbXfKifTExTs24O3RSmznHvHT/KfUoNUktKOVx tmaqaM9WMadepqemn566frok9nc09tEq09zQQ11VM4leHkTZalTAglg7C8Hf QrPi559IsDdHX7vuJ97u6eKDX1b9aFbYuesew9vURJTgqQr4iwoEiwqE2Vph ZxmDkVUmJ04lYW2fgUdgNh5SvBxCsnEKz8YlKhvX2Gzc4rNxT8wWFcgjNURJ aliPzLiowDyhJ6Sd+PUyFdTNWlA75wKUXPKu5IxrERvRXSxmTLBSus5q6Rqr Quti2RKzZXNMlEwwkNdPa5Jkv/hyWmNypIAmimtmEWdQSaRZI9EOahHwfhLc ugi0aqNKwsBU1TrnBtcZK59lXJRlunRO+/Nmhf65ClGFijmmK6ZZbjvLmfE7 bI5LCxhb58KCzPzsvzxbxf7wMwHr7yLQIKPkvKT/SyIA10UAbv0iAMttfL7S JuC383C9nUfrmoWdjzfapTlfn2qis6yK7to6uhrFx5pFBFQNtLeKCJTnYS/x 8vTH7+N2UkTANpFo2yLZNfWyi9okFPSSKSJQJCJQHThLS9gaYxkXGElbJdep kfbAQe4XjfOnlh42s86ylbPNZs4mGzlrrOQssiQlaylvRLJVNyvSU1cUeSyf sGdD35UtCQEbIgDr5u6sWEh8t3DkQlQiV9I074SU9mzBxbvaTRjXp2cZjUpg Uvhfjk7jTEwGV2IU3JIdf1FkeVzXlDEdI2ZOG7NkaMymiQlnJVleEJu5aGXE BWsDzlvrs211WrTgFGthtlytj+LhchU/3ujgh+sdIqtFqEpdyIs/RUG8rjaU R1l+TICpDgleUaRIuy4IL6cvt4+pfJG2glEG41qE5zJJBKUMRJUxllDGbGoZ SxmlrGWXsJFbKM9GLuu5WfJ5GsuKRBZTYpiJDqfWy5xc311keO8mzmcPinBd Qm0P462/B18dSQF6Owk32E+UvlimgVinoYlsjUhxiyRDmr3Ct4D8wGqqghop 96ihwU/2SGiL3CexuBiV3JdWppJbmUtrZSG9Re5TixzoShYyGkS7aplIqaQ/ qlCSQxadPon0uOUSZ1lFrCTa9qoVpgeXqE5XURGvpEP4r09volGhRJndhKqg jeayDhqru6mv76Omro/yynbivbyEfwtihPtYe0sB3lK7/ihR5p/k1kJEINHB XL4mQmD/ayGwP/jJr0TAw9gYFz0DLA8dx2iPHof2xWBqkYOzdwHOsi/M3VOx 8c/AMSwLJ9Ey55gsXOKycE1QSFIqJkVKTUrIIGmhU2RHLUmau0xx7DL1MTMM Jc+wnD7FxYxRbqf18SBZCIqp42aCiovpfaxUbrBQucqMADtePkNv3gAd6a10 ZzXTnVGBKjqeTMsgIk8WEG1cJ4+3nUS3HnxFABS+E/QUr7LSvUFPwTitacPa a8+PFE0yKT9rqmJWZprJyikmqsYZrhlle/IGm5MX2ZD0dWltm0f37/8iAlvT FZyZq9au7j6z0CjTxHmp/5cl/V9faOW2CMC9pTYeiAB88UwANOh/takRga+2 NCLwtdzenJFDtar2VyJQnJ+O3r6dnPpkByc/fgez/Z+QYJVErFWxTIOktg4S nPvJ9BqjMGCaArdh6kNm6E6YZ0KxQWv0HM3py9xUb/KoZ5H1HEkBuVts5G2w lrfGcp4knoJZFos0lw3vYblIyXJuPvMnbVnQsWVex5olExeWLFxZtHBmxcWH i2nZnEvN5I/37/9KBEIZjohjMiqZeRGADTH/C7LDb4gA3IvL4ZyVN7PHTZnV MWFRz4R1CQPnTM24ZGnGVStTrtiYcMXWmEt2hlyw0+ecjYiApQ6Xcr04m+3J w6VKWkpdyY0/TUHCaXIiThLvephImwOEGeySg9lRjDeJTP+n0FULdOMKacCx avqi2wS2doYjaxmJr2MyrZ6FrHpW8+pYK6hms6iSreIyNkqKWS/OY7VAwXKO hIK0SEbCQsjx2yUC8yEhLiLDhh/iabhXRGAvvrq7CNb7iGgx/hhDMVUjM2KM TYkztyHDIwGFdz7ZPhUU+TbI/WmlyrtZulob6gg1w0l9jCZ2M5naw0x6N4uK bpazu1nN7ZTf3cFiTiuzmc0iAhKs4jRCoLkgRiYdHlHUOBZQFDcveXGVygLZ ++HN5MU2UZraQnFaM2XyfeU5LdQUqKkqaKcsv40i+XkZQekE7zso9/k00XaW WgGI+0UANOuhkhwtMdAuyUhytNBOonZVomiBwy9aIIHA2giLfZ9q2bc4fBLj /cewPHgcu8PH0X19D65H7LGzkgrgk4++VRqGtskYOyZi5pGMXXA6TlEKnGIV BAQlkCzZKFkif3LQsISBWQoSt1CVPRA3fERryV2Z69RmLDNSuMZG2SrXKxf4 omKKb8uG+KFQ2qGinttZLWzndrHVdUX7NsJ9hQN057XSklJES3wC/nrH8fo0 lGi9amKsWnA0biLcaZQGxQrjrZsMNE3SmDxAc2ofbRn9dCj6pFWNMFo+wWjF OKNVo6IB0qrqBlgY3mR9+iwr44tsLa8/+yPA/8n2tISVOc3Kc801lZQyzZyf a+GKiMANEYE7IgD3V9r5XCMAAv+jzQ4eb3Xw1XYHX8t8c0ZzPbev5fZ/5uas SrKdkk6pAx2qRjxEfw0O7HqOE7vf5jV05TbBLJ54i2I50kQDbDokCPST7NJP tDy8dMduKgIHUMUO0BLdT3f8BJ2ZC0zWrDAm0XFJzF/D/nq+SGC+ZKlCyTwl s9KCxlgo62GxtJHFvDwmdWyY0rVm6pQVk6ctJL7bMSUasB6VxFZqlvD/4JfL Cryj3cxzY2pGenYC01GpLIkAbGvejlfzVrySuretfThj4MhZPXsWdUxZ1Tdn W9LyBXMLLkucvGYjI/HzqrjOFQcTLjqIENjrcc5WlzOhVlzO85Q0fYLseD3y RQBS/Y8TYXtQ3OygZKIDcmTuJ9U1VKQwi2z/CooDlSKF7ajCNWsYpSMn9gr4 /cymyzZZxYyiVR5mKyuFLayXNrFZ0chmZR0bVdWsVZazUlHIUolC8lGCJIYQ aQPHCHDegbPhW5gfegPrI2/jdmo3XrrSAo7tJ+a0iIA8nlgTKdQySTZuKDwz RQTKyfFppMSnlWo/tUwHzSHdqKP7pOgOM5o6yHTmEHOKIZa0hWyAlex+EYFe FkQQZjI6mBCXH0lppD+hiqaQHNp9E+n3ieByZhhnu+oJ8GwhLKiF2IgWEiXx pCS3kJbRSnJGMxn5vaTJJESXEW3gRMxHh4jfsYeENz8k9rV3ifpwN7GHDxNl rPd0UZZMsrOMdmspW1EDJ40SmGvXhsTZm4oSmMjzbYTt4UMYfnwI471HMN1/ FOuDx9B9Zw/Oe/RJtbelNMQOe+NojEwVogQZGEo9MHJKw9glBTOvNGyiC7CJ zSfJq4Ik306S/EdJDp2nIvs6LRVf0FX3FUNNTzjb9ydujf6VrZ4nrKgfSPuT DNu8xa3WdR63LfFD6zR/bBrkp5o2vi2q4Wp+rezbRlRZDagyS1AlJ2P5yUcY vLVf9lUZdsdr8TQbJC9uCXX9Jt0N0+SLiJbHtdOQ3EVTWheqjE7aFJ2o87rp rxyS3zlAr6SorvoeRntmWJzaYmlug59+/Olfnl0Y9ss7W5yZljowU8eZWakD syIEs81SWjVC0MrNxTbuLrdzX0Tgi40OHmpFQM1XZ9SCvvo5vjmr1rzL9znR g7NP56sz7YyrG4kP9hMN+IgTH73OyZ0yH77GaZkQHXcSjAvkiKsn3qqdJAkD 4TZtktck53j0UR0+gDKmm/LgFppjuhhIl2yVOcOIYprRrCkx+yURAWkChQvM l8wxUz4tBWiU+You5ssbmPCPYEhEYOi0FUN6lgzqWdCnZ86wgwcrqdn8eP/B 3n/UgAhuT80yGZnMTNTTN6A+G5PNVeH/nHuE9uzeC4bO3DBy5Yah5tx8S84a W3HR3Jor1tZckzp5TczoqrjOFUcJB04mXHA04ILDKTbcDCQl25PivZd4j31E ux0l3PYQUXaHiLY/JGYmx7V8T6ZHmnBXSL5PHWWB7TSG96IM7aI1opuhlBGm s8aF6Qkx/1E5Rvok/nRJtexkvVLNRk07G3Uq1uubWK2rZ7m2ksWqQhZK05nL iaAy0BxXi3cwOvAqxjKWR97B/NM3cdn1KZFHDxOjf5pYU3N89x8i9MBBUm2D yHIWPXKtIMepjkq3Vmq81NT596AKFZeKGWE4eZyxtHGmFRPMZU2zoJC9kj3J UqzoUXw95xJquZhcJUEqni8TY/guNZxvFbFMSrgaCoui1u40nrtfwOydFzD/ 5ADWpxxxs/LExNBRxgFDfTv0jd048uEeTuw6gKOOJb4nzQk/bkLcUQNSDumQ Ifwqdu1FsWMnae/sIP34YZJlniPF2eo5rQzoPluhKQIgUSDOwRR/gxPY7N+L 0e5DmHx6BHMRgKNv7cbsQ12iLWwoCHQQn5JEdMqEEBEeR4t49Gwy0HdIx8BZ xi0dI59MLGLypZuXk+jVSaLfGGlRkmoKP6Op4kvGmp+w3fszl4f+zM2xf+fu 1F94MPsXvlz4C1cnvuHi6H2Wuja5PrDJF0NrfDu4wI994/xR3cWPyjq+Lstn LTeHgdR4jrzyCgde+gOGbxzF+UibGMg8tcUbNEjczw5sJi24VvvqZGViG7Up bTSkt6EUk1DmqGguaqOjppe2uh5a6rvp6xajG1/nx59+/s/PTvB7pIF/qvop /DOaE3abOCuR/oK4+VUN/JIA7koCeLDewZcC/kNx/8dPwddy/805tZAvc179 VAFkvtKcEioKYH9yD6d3vSHUv4qOUK8rCqD/4et4HjQm0SCHOIMaob+NBKc+ AiybhQc1Of691MRI84vSLM5ooTpa04xGGJDjbEgYGM4eYzpvikWJ//PFM0yX TTFVKcdh1TAzVZ2iBPV023qiFvtX61nRIay2CfmtxpaMR4Ryf3Hul6viPUV/ ltHwOKYiUpmJzGQ1+ukbrF+Pz2dJ34Etwf6yYH/b2J3PTTy4b+zKeSNrQd+G y9a2XLGz4aqDNVfFdi47W3DR2Yzzzsacc9RnzfqE5O+9RDt/gpfO+wRprrxm J9nf/gjRDmJdgn6SkwtZnnlkeVSS590kpbuTpughGkJ7aY+R8JY6wWzunNj9 vOT8Odal7K2XjIrN97Na08dafS+ryi5WmzpYbmphvqGOkfJixooUjGYm0hER iNXRtwX3t7Dc+Sb2O97G/sV38HnlPcLeeJ/Yd3aS8v5uwegT8j7dR45NJAVO ktNd6ynz6KAhoJ+G4AG5P4Mo/bvp9ZQIEtDOcmg7a55F3Ags4lFkMT8mlfAf OSX8P6Ul/LfaEv57cyl/6yjhb73F/G2wkL+N5LKcX85IQiKNDrp47f4Npu++ IMH7d+x96d/4WGbvy79h30u/Zc/z/8qnz/9G5rd8+vvfcujVlzkqiBsfPoWj gTX+htZEGYq965mSccqQnOO6FBw+QuHevRR8tJPs93eg0DlMqmaJqOyTBKen ESDCygCPE0dxPLKPeM9YTD85iuGug+i+dZRAA0sUPg6ke5kTKYdMnPz8RDlk UkwsCDSWYiD7XlcU4JSLjFsa+gEKYh2KRQE6iPcepVpxhRYpAJPN37Ko/p6t vh+5OPxHro//zO3pn7k39zOfL/wsffBnHq/8zFerf2Rr9BZro5fYHN/i5vQG D6cXeTI+zk+DXfyxo5onFUnkv/MeR/6vf8Xy9+9R75RDRdIKDTWrRDo3kyy9 TBHSQm6EisJYFaVJKirSWqhSyOTK5DdTV9lJXV03tTL1ykFu37n/vz+z/Ue3 hfwJIX+qXnvy+pmpJs79Qv6CZiFzO5+tCvli+V8K9Q+3n1n+U+qf0yK/gyfn n8KvuV7OVwK/Ki8Y+2M70d/5sswrWrvX++BVDD94DeMP3yDhVAZxepXEmzdL ResmxLqdaJdOckN6qI7rpiC0mZKIJipjmmhNkxCTPUJ/lpCQPcRA7oDk/UmB fJzJajGg6mHGJeBMVHdorztfo2tJ7SlLaiT3V582oz88iPn8ZG4O1HC9u0rz hlW/sv0ZxsIShP00ZiMVrEXncD4uj02x/BVR/jPC/VXh/q6J9HhTT7429+KR mTsXTG25YGXHRVs7LjnYit3bCPdWwr0FZ5xNOeNkyIjRAcId9+B+8gO8dT7A z2A3YfZi/cJ+pMNJ7UtWqY4hZHuUkOutpMCrXbq2WH6UsB85KHG5l2HrUs57 FHPNr4g7wUV8HlHE45hCniQU8F1yHt+l5fB9RhbfZ2XwpDCNb+V4Od9YwnhR MaMZCunfkQR+vIfQHfuJ1MTnvce0tpl54jQ5p/UpMDKi2MyEUmszyu0syHNO odCjikLvVsoD+6mPHJcZI8uxlWbLRi6FKrmX3MDjnGa+K2vl5/oO/qO1k//a 08Pfhnv524TMrMxSD/9ttZv/uq7mrxtt/Gm9ibHCagbT0hkLduK+41GM3/gd u//wr+yR2SfsH3r5txx+6TccfOHfZIR5zQj/R//wPLpvvI7OG69h9tGHuEhd 8bGyxkuil4+5LZGiw8lmwq6JKfkGhhSf0qX02BHKDnxKyccfkrfzXTJ0DhKx dxc+8m8ux48yUD3L8Tc/4PAr+3A/bkaSmz1JHhYESViMkrYYZ2JHopkdKRa2 RBub4C/f53dKB1/dE/joHMNTIkakuQ8ZNpU0JaxprznbV/Ml481fM6/+lvW+ 7zg//D1Xxn8Qrn/g7tyP3F/4kS+WfuTLlR94uPq9zHd8ufqE+6vfMtm/yeTA gpTvFe7MzfBwso/PK/KJOmqI+34TvA9bUOgSTEtMFbGuDUJMI2GuQo+faECo iowYFdmJKvJSVeRntlCQ00JeXgvZwn9RVTcZGSVU5GbzX56V/ke3BPzxGoFf wJ9UasE/O/0M/MVn4K918LkWfPVT8M928vW5TqFc5kKnRKxvL6h571fku5z6 BJM9b6D/0StC/qsYfPQahu+/gsmOlzGXrfenZsSfKJLgX0+ChP0Yxx5iPIV8 zXt8RrSSFdJIQWQjZXGNNKV20S2VsjenX/vCeE++1JfyISbqJAqrJHK2jTEh ejbaoKYtMJQGO2eUjo4Mp8dye7ZJ+36Et+Xx3Rmt5fZgNZ8vDfAr9P0YD0tk SnP93Mgs1mKeor9s7cuqgYug7841Yw/umWqQ9+ZbC2++t/ThB0tv7lm6cs7a jnP2dpx3tOWcszWrdqYsWZ5m1kqHDkk9zsc/wOXEh3ic/BCvUzsJtD1KhJ2e 9po9mmaaZh9HjlsFuV4qigP6qI0YoS5imMaoEfKt1ZxNHubL8h6+0axuVnbw 760d/N/qdv57Txt/61fxt6Fm/jaq5G/j9YJdtUw5j7saGFTUCGb50sqzCThu SKiIYIyplaQsGxLtbOV325Ps4kCyu4Mc8g5ig3K4u1qTbpdChmM5Ga5y2Hh3 Uyj4V0ROkuk2TGfkLNcr53igGpffMcWTwRl+HJvjp+l5fppb4MnCAg/m57jR N8elvmlpu+PMtA/Sm9tFh6KBlowy7VvUDIWFkntsP3mfvCmW/68Sav+VQ4L+ UcH++B9+w5Hn/41jgv0xsf7jL/6OEzLPSfd9HVP033wdvddfI0jafrw834ky 4Q5WBNvbyHNrQ4iNrRxSNmRaWZJnbkqxsT5leicpP3FIpOBjCnfvoPD1nRz9 ze8w/N3buHyiT4w8Hyn+ljgc0RNZ0CNAbD/W3JlESycixPZ9T+vhq3caH71T eJ3WwePUcdx1juCud0zi0Aid6efoLLxFT/XnjDQ9ZLbjMau9X7M9JAF//Fuu TX3Lzdkn3F14wr2lJzxY+ZbPV76R+ZoHq18JYo8YqBmlrbSLxsIqetq6aamR OBFRg7d9CqG2SSTZJZLtlEyWfSJJZvK5cQYpZuXy9QZinRuJFOuPFetPEOtP TJMR/OPF/kOCU/F38yfAXJeZvo6/k39TyB8V8seE/HEhf6JJ6Bfy51qfki9B /66Q/+AX8sXuHz8j/+t/IL9TU/c1CzllvhL6XU9JSZMid+LdFzny5gvsf+V5 Dskcf+0F9N9+CeN3Xibg0zBiT1UTZ95CoksfWZIqsyPVJPjXkx5aT25UPaXx TShTNOeL9aDO6aKzoFPUtYPB6h7m+maYG5hmvH2YsbZB5jpb2W7IZLs+gwfL LdxbbJGnulkUVMkdof/OL/QPV/Hv3z381Ut+YYyFCvxh6eL7GvhzBf58ZvQc BX5Xgd+DayZeAr83j0TnvxHwv7fy5QcrzdaHb628uWXjwkVrexaszenX1WX5 9EkmdY9Tt0tg3/kRQR9+RPi7HxL1+vvEvPk+cW+9T/zbO2TeI+WABQqzfHKd mijx7qIuRDw/YlTgH6MgaIb5yk1udy/yYGCOx6NzPJkU2Gbn+NPCLH9enuHP a5P8aWOcP22N8N1aP/dm1Sw2q+nKr6E7u5D+nGwMjppwcs8Jjh/Qw1DHGNOT upju2YnF+6/jIfk3wtSEKM1qGQMd4oyiSbEsJsWukTR3NXnBI5THzFIdNSV5 cpXRxjUWa5ZYalxhSbnMjMxC+RrLFassV66yWLXCXNUS0yIS4+VTDJWM0FvY Q2d+C53ZJbSnZxJv60TM0ZMUHv2UREmGR17+N46L55+QOfXK79H5w+85IfCf lNF56Xfoyhi9Jd7x7uty9LyO0dviJW++RrCpHgkaAXCxliMxSaTrNMlyGyn9 K9zRmlAHG+lXkgnsrFDIvsmzMKbN1hmHtz/i2O9fRO/lVwg+fohgA8kge/dg c8QAh2OGuJw0xE3XUCA3xEvPAC99Azz19XHX18NV/xTOsn8THJwYSc2jM26Q jqRt1LnX6Ky4y0DjfSbbPmex+0vWBx8KYY+4OPmYqzOPuTH/FbcXH3N3SWb5 EZ+tPBTCvmRt6Ix83zCq8nZq8hpIjqomPrSYYKckeRzJYhBpNJ70o982nErH RAoskigwSaDIUEY/gTyjAlJNC/G3jMXVwhMXK0+cLT0w3/Gq9KqXsdz9NjFO Jkz3P4P//+CPT+SuDUveHxH4RyXvj4vtC/znZ1u58g/w3xf4v3gG/yOB/6un 8D+nof85LfIvcWmyWKqHOUfffoGDr/5W5vdS057n8KsvcEygP/m6iIF8fPKV Fzn50gv4fhpJpIGKJOc+skMGKIzqJilASWaYksLoFiri26hObqMxs53m3HZa CttoKWllsGOE+Sk53KaXtdv16XHZ7ZoTkf437SlJX8g8WFGJvrZwZ/Ef4J+s EwGo5ov1/l+B78VI8FPwZwT8VQH/XLwGfGcJ/G5a8K8K+J+J4z8U8L+29OU7 LfiytfYR4AO5LElgzMyPrmP2tEmgGT9swpg4R80n+wg7qk+8HEgpOoZknjKQ kG1Avp4+xXp6lIqTFBl7UWhTTpGTinIfCfthoyglZCtjxlEnTdGfMctU7gLT +XMslCyyVLLCatka6+UbLFRvSt1Zl/C6LGFzgd7qKdqLelAVtKIS8Nuy82lM iePwjgPse3sve97ezacfHuLALh2O7zyI8Qc7sJD6FWpqjL+eDha73sb/hCY8 F5Fs00CqVw85oWOUxM5RHT9LY8IUbWmz9GQvMFywxESRAF66xFzFEouVIgbV sq1eZK56gamqOcYqphgsG6GntJfOEhUdUvaVqfEYf3oE2716pB47QcWRj0mS MKjzsgAuY/T6Sxi8+qLsUd0//E726CmB/rTm62+9JAfyG5jtEO9/73URAamO bwn8ZgK/i/U/kSjE79fSn+hqJV+SgONiSZCNKQ6ndbE6dpBD77/HBy88z8fP /47DEiR0X/0detI5HD74BD3J/sfe2iE59VMcdY2EbSNc9GT0DXEW7h2Ee81p kWOlaq60zXFF2SvF9zzNkWu0ZV6ho+Qm3bV3GG75jOnOeyz2PWB9+HMB6nMu TH3B5dkvuDb/BdcXPuf60ufcWH3A9fV7jKun6Vb2k5NcS0ZcHZmx1US4JImW JZHqlEjYu+Y07zBl+5gRbZ5ptDsmUW2Z8Bx1Fgn8C9VmiZQbJlFyMgGP3fux +OANidWvy/Y1rD58VbYvE+VkzJ3rl59dtesDtgeqODNUJ9wL72Ni9pMa3lVc ln5/Q2L+nWe8fy68f6nlXQxfeP/q/FPD//qCZtQM1kbha3kIi0PvyVP3orAu T6swf0RYP/rai5x4/UV033yRU2+8iM4rL3DqZTH+V9/A93AeSfZ9KAL6SfBp I9FP6kqIipxIFQVxKkqSW6hUtIoEtlFb2EpdRQdq9ehzTEwu888sTk/xSPNn R+20PcfD9Tb+Fz5fa+Xeqoo7mktHLTYJ9UL8TINMrZBf+SvifaQGLDAZmqYl flmIPyNWPyXELwnx25rreJh4c8fMhy8sfHksxN+1CWTdKohZi0AWTH2ZN/Vh VlRhUvpAxxFr+o6YoTSyIeiIEUbHzTE7aYa7sRUhtnZEOdgT72hPirM9mS72 KOwl89pVU+DeQWnwEPWxUzTETtIYN0ZbyiS9mr9n5C8wXjDLtPaUTrHVaqG9 bpOR+jVG6pYYql+QADRNf/U43RWDqMslIJUqaSssIdrTh5MfH+fg23vY//5+ Dnywl8MfHeDIJyc5/okO+rv2EGhqhM2+j7D45D28j1qRaFhAom0TSV69KIT4 wugZqhJmqI8fQ5U2RVfOHIMF84yWyPNWusBMxbzY+zwLNZqZY6ZmlonqGUYr JxmoHKG7Uqy+vBlVbiF1qTHse/k3HHprP14H9Mk9foLaw7sIkBCoL8eKxduv YvnOq5x+6fdC+u+FfD0x//+E8ZsvyfH75tNjWqjXkG8m1Bu99ar8n3gN8wlC u47cCuuullJaLLE6/Cn73nyV/ZILjr27gwOvvcGh51/C/cVXSX3/ZZGNV/H8 eA+eO3fh/vEhPA7qYf3pUVJcI2lJa6ApvY76tBo+G7/HjZGbXBm4wJXuVa50 jHJrbILHt3+iKf68PLAbtFXcorvhFsNtt5nqusPCwF3WRj5ja/wzMdHPOD/z GRfn73JxSWb1DufXb9Pe2Ethej05ifVkx9eS4J0hmpVElmsyBc4pRL5rRdMO K84es2DNNZgxzbWHXVJokcDfJp7fIvw3SAmot0ikWi8Or0/2Y/3Rm9jsekO2 r2O58xX8zY4/uz7mR1xfHOBMfy1nBhvE5AX2iWbOzai4JLBfF9hvr0qvX5d0 vyUGL53+S4H9kcD++LxmJMkL6DkRtlrQ/WSsBPbjAvthgf2ImPsRrbmLob/x B069+YensGtBl1z12h68jpqS5ZgqetZFkKOKUCm3sYEqksNVpEtJyZKSkpfZ SlFeOyWircUVaiobpNuPLLM5N6w9ueA5Hsvtf+bxVrt8pDnpoE1MvJX7ayru rvwD8pq3iZ0Xk5+t4vu7W3t+ne6f3Ba1DU5nKkLBQnQOW4L8xGlnFvTd2BST vyQ43xSTvy/Ib1kHMWERxJypH4vaEeRFDmal+k+ZeDBm7MaQkRO9BrY4fnQU 010n0f/4JHp7DTCU8TcQ03d6mkg1STTFTeq0ZaXg30ZO0CAlMZNUJkxTHTtM U8oYHZmCTf4MIwXTTJXMMFs5T79yleG6RcFdzFZwH26YZ7BOkK8Zp6dG897J nYJ9I21FhUR5eWImSfXYrgMc/Gg/h/cc5ZA42RGZE3uOcGKvLoYHTmG08y2M P3obE5kYvQLirZUkePaQGjRGXsQ45fGT1CWN05w2Tkf2NL0FM5LcZ7Xnlk5U zIipzzAjmM/UyP2smWK8eoJhkaC+6mG6qrtoL6tHmZuFr4U+++ToOCjY67x3 mLDDBpSdOEbj4Q/xEoytJMFbi4mbvvWyHCnPiww8j4GMiQZ5+brVh29iqUVf rOz91wT7V/E4obnAeJw8o6e0L0/ECfWaiRXqjfZ9wCGRkINC/ZE3JRzsPojt Pl1O/vZ1Qp9/g9pdr5Fw6AM89x3Ef/9+6Z178N+zD5/9J/E5pM+WtJmv5r7j i9mv+Wz6C25O3OXqyBWuDG5xpXeai20q7VH0+O7PNCRfoangFqqqW3QpbzHY fouJ7lvMDtxiafgWq+O3JJLeYnNeZklm9RZr67coyVWSm1hHblKj2F4mSW6p Qn06RS5ZVLjmEPueM40funD2hBNb3rFMRVUwG1ZIp1c2PZ4KurwyaPdIo9Ul GZVdAo3GUfjs3YfN7jdkXsPyo1forC5+Rv5/4cur22z3CPl9Qv6Q9PpxIX+6 RRSplWtLEu2F/LtC/r0NDf1qPj+jpV/89JyaV8gOfwa91SH8Zdz0Pua4uPlh 0eYjUuOPasAXhz+pcXjNyMenBXr911/FeMdJYsysqQ2yI9HCDIcjrni5tODn qyJEnD4iSkVMgoqULDVpeZ2kFapJLexAWVn27GwiER6Zf9KeU/QvcitWr7kM 42abJJNWaSQq7WVg7ywL9MuS7pek1i/W8P29bX51Hp8Ha6UtTIQpmI3KZi02 jxFdJ2b1XFk19OCcEH9ViB83D2DY1J8JmVmJ8fPa0Zi8t5b4SVMPRkxdGTRx osPak1hzb8z2nMR8nw5G+4Wsg4ZYnrbD1cRBE0W1STRZiE+1VJDl0EqGXz/Z kROUJs5QHt1PffIwrRmjQpfE46IJMdVxMfIZoXqO/tpZhupmhXjZNszSXz9D X/0U3XXDdNZ101GtRFlcgK2JGTYmJpjqnuKwBL+T+w9z8sBhju07wLHdsqv2 HZOPdSQIHMTwo7cw3f0Ozqf8ZLcoiXXpIdFngKywYYpjx6jLmKEpcwpVllSO /Al6iycZKpsSM59iTAx9vGpCSNf8ZWWMkZoRBmqHJesO0FGrpqm4guqcDPa/ /jz7xcwPyeFxVPq7yU4DEo8bUKt7lKZD7+P9/htCr63c/ovE+xcwlDJo+MYL mL79MhZCt5WYvNVOoV7qiKWG+h2vSWd9Rb4nxsVac2PF88Q8Q/2oFNqDYjhH BHedd9/FZq8ODvtOYfjKB4Q8/yZ1YoSph3fjduAE3oePSCo7RMjhfQTv+4TA A0fwP6LPRtM6Xyw84bO5x9ycfsDV8RtcGTvHleF5LnWr+eWt+h4K8sOqz6kr vIWy+hbtgnyvID/cI9gP3mJ6TNCfusX83C3mFuXjlVsMjGyJuVeSm1BPZkgx Kd65ZAjiBa4FVLgUU+taKoU9idpPfDmr6822XzrTCU0sJ9Uzp7nOT0ARQ4EF dAfk0embhdojhXaHWIoMXLD5+E2sP34dx4M7KE2Lo79LjYOZMU4yLpqRLudi YvzLW1f/r9qHcZiNjmq2u6XkD0joH/2l5Kuk5LfSXBpNR0UMAQ7HCXU+TqTr CWLdThDvfoIkf0NcDfdopcD3mRQEWR/WSsHR1576vybsa6TghMb/NVIgn+vJ 7jn9xk4cDpiQJaG3OdwCQ8kNRvLv5u+/iu1hHez/X7reO7rNK03z/B11de9s z8z2Tm+f3u3qKlfZZVc5S5ZlKwdSosScg5hzzjnnnDNBMAFgAHNOIqmcJYqS SEpWsqIlOcdK3TNzpvf9QNou15794yUgSPoI4Lu/53le4H73StD2sPfHy8mf 6JA4YsKkPJyJtd1Bf3m0IC+Nh/I9w/dfMi4qk4j0a3Ig9dElkQORhA/Pixyc Ezk4KzngrMjBWYn9Z9R8+WjxJ2pQzWd3HjIRVcBsfDEnJPZP2YdIBvDmhIUf F6wDGBYF6LcOY1RqyiZMyA9jXvx/QdRgQfz/iKjFtDzjMXsf+u086IrMpjI4 FTvxEXt5RY7GptjvO4izrRuHbb3ws3M3ZNQMUYNEtyBSHTslYo+SJ01+Zbr4 bfo4qvQROnJHGag6wmCFNMs10gZInO6VZn5APS/0LxhUYKRNql1Uon2e3rYp utsG0TZ3kBSfiLOzq5SLlBOHXV0x3X8QM5MD7Dfah/HuXaIGWznw/g72b9+P +Ubpcne/x0HpiqMPtpLg0key/7BkgFFpv2ZQl55GI+1He/64pNxJ9JVTDNRO M1I/LdF+mjGJ92sX6Y0zLCow0DJMjyiTTtWJuqqWQGc7UYNfslNGxu7fvICx tH6Wr27EbZsVhQct0JjuoXbX67i+/TvcxOedhXRLSY1WrygTf17E8Q1pXUUB nEW1DIqwaU0R7AT6cDtTEr2cSPRW6kcxMJKMsFtG3L5Xfo3L1gO4iRh47TTD 6Q2B/he/E0F4hZID24g6YCPtjqmkUiOi9u8jTjJF3L5tRO/dR7iROWe0Z7l/ 4lNuS7d+Y+Euq3Nra2RcH+njZ+vXh18+/Rn1VbdpUt+hXXeH7l7JAcN3GBbv H52VPCDePypiMCz+31jTT0FsOXlhIgDhdZSEqyjza6DGp4FmPxUdAWpqbYpo 2hnLJfNoboVmMJvdx5l8PRfztMwnqJiOa2Akrp5BERLl8q9+ZbEFz3jSTEyx fvsFLN/+FU5GW/F1sMFfKtDeZm19MztlKRRlZbO/MaxtFmhlzaS+d33hwn/g 20+fcVHfwuWhNi5PrOWDlrIEgl0PEOZqRIj9DiIddxDq5kmUuxfxUnGunrgY K8e12faSJA2PQ+8Q7rSXKOe9WEkXonQChnCgfASghINXlI8ARBVe/pUog7R4 r+4jytKZ+jA3kqy2bpCB8YJEFUUYnDb/FieJMkr5GW8m2nY3MXa7iLXbKbc7 uDBQIdCvC8Ki8uWjRBVl2sF/NmjCs0XRA9EERQ/uS0S4p2jCedGDC6IH50UP zokePFn8Ph6sXetXxQfT0kvHFDGbUMqkvKmjB72YlXigsQqiTUSg2zJkTRBs JCJITdmGM20nZR/KhDQKI46B9Dn6ofaMoju9Bl16FYHWrtgbH8LhkBmO8qa7 uxzmsIM7bvYiCPauxHm74ObpSbhtPSleI2RETFCUNElN5gS1yX20FYzTXT5J T+kILQ1H6GiYlbB5hB4J3H3SAAy0zhtmefZ3zKPXim1rp+loH6SqRo2NvSfW Tp7Yunhgc9gN//R8ghJSMDlkzt79JhjtN2b/ASNM9khc2CqCII2C8Z6d7N5r xaGtcqIteojzGCYtfILSrOPUFZ2kpeIUHVXH6CibQlM2RlfVGL010oDUjdHf INU0Ql+zIgJrE8raW/pobmgnNTaO7QLltpcUMXgBo9fewOqtt3F++y0B+z0C 99hQZWZOl/kuane+htumV3ET6J3felnE4Jc4vingS7PgKALhvFnE4HtB2Pgy 9m+/hK/JTuJEDOJEDA6b7DAIgcl727CUltN6pzXOe91w2+WIx3ZTfHaZy3Fl QP/yVVpkpJWZbCfmoC2xh2yIPGBBiLw3EQeNiDu0l3iTPUSZmBNqZMr9U59z +8RTVk98yOqxZcOyGVfG9H9nGD6vcu7C51xY+oIqzW0a9HdoHrpDi4QCtWjB tXtfcFVKX9dDbkiBaEAthWFqysO0NIR10+SvoTVQgy5UR4NTFfXGqeJBKXwS msh0xginike5XDrI5fwuZpPbGE9pYyhRRX9sDf0REgoCU9B5hkjSelH6uRfx sthPoKOyppENoVLh9jZ/Q4SIwN/+sPRZuLU11alp3Fle4e++34p4boKLfa3M qEvIjvTAx3avHGqryIAnYd7RRAbkkeCfJ2Egj2xpV1JcMklyyCDRJoMEiwyC jGw5vOt3hNpu5/Dujex/5Vfs/fVaMDBeDwX7xQYOyOMHXnkD+/csyXJ3ozXW BXORewspS0P9GmuRcXs50w5bXiHSVs6CneQ2+13E2O8k0m47TyUQPLvcx/PF vv+PBijLyIoOGDRAcsGHF0UDLooGXJJccEk04JJowEXRgI9+0IC1i/6VGbFd jMaWMJNYRpc0X/Wm/lRahdBoGUq7RRhdVhH0WkcyYBPJsJ2UfSSDjhH0OYWh dQ6l3ieZnmwV3dmN6HLq6MiuIcDRAztzK5zFjN08PXB3d+WwkxuuDh44uLrj 4BmEk1cw4c6tJAVMkBE1TnHyGFVpQzTmjtAmJ19VPk5D3Qyq2inaRAM0qiPo 1HN0tUkJ+zphv0M3R4t2iipVH66+MVg7+2Lt4oOVizc2PpG4S9ixC0zDPCCB /fKcdh2SdsHsEEZmphibGLNv3x627bVk+3Yrtr1vw4HtQcQ4jpEcNEdW7Jxo wFFqC4/SXHWS9oaTtAr/LaVDdFQOoa2RapBSDdKhHqRV+FdJEKhv7iUpLplt csa3Cvc7pCE3fvttTN7ejOXGd3De+Dau72zE5m2JmwdsabI0Q2++nYqtwv9m pX6H53tv4viWsC4Ng6PogcK9kzzu+M5aILDfJJog5h8l/Ef4ReIiUdJfmuKw wxnEuWWT6ioj1imfNPsCUm0KiTdNxnOTGeEvvI5afkfFwR3EmtoQb2ZLvLkN CVIxZhZSh4hVbkUvIw+Y0pnXzK3Twv9p4f/UsmHljE/u3VqfNvMiKxeu0VvX T3mciryQZopCtFQqV0aEy/sSPYo2fIDuyH6a3BuoNc3ljH02n0RkMhTTwtHi GS5WTrNUOcbJ3B4m0nQMpykrf6roja2gJ1yMPjiagL3vYr35JcMChWFSyuKG kVJRUsraZ38jfCiUR9utrXem7BwfYWXF3ZXvKf81J3s6SHU2wcNkG97WpkQG 5hATlEuSVGZQHgWBeZQJ6eU+uRS4ZFDkJGWfSZFNJoUWUgczpIOyJcBsMzt/ qUzLUj4F+Pla7JfzvE8IN3rlRWkLduF/0JHyYA+KfQ5gJq2d+WsvbcBCern/ jPnrv8Zi8xu4Gm0j2Eo6CfvdRAngUQJ4b2WMYX6BweQXlTkFyvyi/8onSwL6 kgF2nl1ZJ/yyEH5JCL8shC+Kyy9qpITwyz8hfG1JnwpWZ84wIITrfFNJOxRI vlBdbhFOvVkkagtlwdFotDYxdNrHoHOMptUphhqXOFSRJXTntUm10lWgRlug EndukGY+Bw+fMJy8/XDx8cbN11Mod8XM0R0jG1/sRJYdvMJxdA+TpqmVOP9x cpLmaG68Tk3+DHV5I5RVTFFRPUNN1RT1CuXSaKuF7hZxdrVmHpV2nnrdPCXN Y7iEpGPhHo6VayCWbgHY+kbiGV+GZ1wJDkFZ2Edk4RCRgnVgMkYO3ux38GOP tT3bbSx4V1Rsl5Tp4XSc/crx9lYT67lAUvgxshKPUZJ5lOr8ozSULtBcfZSW WnmedVM0VA/SWD9IfeMgdUJ4ZfMgpU0DxGeX857EvPde/g0739yE0eb32L/p XUw2bsbsnXdw2viWEPuquK3QuuUA6aa2tNkcot/ifaLWCY86aEyipSkBu95f +4hPifiK7oszO0hUt3/nNzju2CpNYRFRAblEe6aT5JlBnozOioBiqnyKqHTJ p8qpgCqHQipsiygSuvLfD6V5624qD+0gzsxmjWwLG/ldyq018RZWxJlbCuHm RB0yJczkIB+c+4jVc/dYPXON5RPH+faLz76H+2j/DH21IsIZ/eQGtVMUrKfM v4/6kGFUwYNoIkfoiR1lMHGcautijjsV87EI7kiihoWCWc5IaFqsm+dKzQST WT2MZHXSl96KPrEWvXSgvTEppNkcwHHnWwawIxxtBWpbYqSUtc3ipDYQLz// t7U97g2LHP64rlm09RrkP1vf1FfZVyDI1lxEdRfhruHEB+WQEJxLSkguuXJb GpxHtcDeIKDXe2dT7ZpBrdh5nbOUUya1AnytAF9nnkmucQCmb77Arhf+lT0v /EKA/1d2v/Qrdv3mRXa//Bpmm8xJkK6zMdoVD3n+pq//BtPXXhLgXzRQbvra C9IjbMLZeJfUTjxEcCOE8jCJ8o8v9grFymSCNStXZhNtUBjfwHMB/e8NmCsb kD1cFMwXBfMrgvmSYL4kRr4kmC8K5k+/b+7XVuzL4uN7j6hMLiNG6I43DSfD NIpCqXLzGKqtYqmziaXaPl60LZkSn3yaRWe1+Tp0BTq0RRo6itppLW5FVdyM Svy0c/ERwekFOPgF4OTvi2OAD8bu/hhJ3j9kH4S1YxA2doFY2wWRkXqW/Nxl oXqZhsZlSovmyCiZJbf8CIWVRyitmaOiYZ6q5gWqWo9S0X6U0o5jxBX34Bia g4VPHGZe0Zh7RWEfkIhXUo1UNW4xJbhEFOAeky+Vi3NkPtb+2Vj5ZGLtJb4e mYZxUD7mfkWYB5ZiF1qDXVgjzsFaAoNniIo+SXLqSXJzT1JScoLKyhPU1h2X 53iMhuaj1DTPUtQ4QZ409Jly653WyC4bH7a+sYntb73Hns3vY/zu+xi9/S4H hPBD4t12r0omf+NlXMSbXd9+hcOSHQqEsE47EwbEH+J3bybJ2pJEKxkiloeE QmMCjLfiKY/bCeF2m18hQBQqyieNpIgSMkLyyQvIoTKkmPqgYpqF8Db/Ylrd C2h1LaDNtZCWw0U02uXRaJZFh4kM0QPuQrIQbmGzQfC2lkGTKK1WgqUAbiGA m5sTLREnwvQgc71zrF64zcq5KywenV/7Fvx19BU6+qpn5azPkebRQoa7liLv XqoDh2kOH0cbM0Vv4izDKUeodKhizrWKpzHl3JARM583y7GyE5xT5j1UTDOV P8hkjp7+TA296c30plXRm5xFuoMZ7vu3SxttR7RUrFSclLJ0WcL68mWJhltb w/KFhjXLHNfWLYuztxLhSf3Zekz3d7TCx9KEMKdgCYw5pAjb6etclwnXa4ux 5tMWWIDKIxuVexZqjyxapFoNt5m0uEm5ZNFskyZvYCJGEs62/t/C989/wdZf SaP24q/Z/cp7HN5nT56/B/m+Zpj8TpqqV1/k4Ku/lpIu/rVfYfbWi1hvexvH /TtxMtQOnIy3MdxSwiNhW5ko9D3fymShZ0pMf26I6QrZT7+n+4rQvSR0XxW6 rwrdV4Xuq0L3lWb++O2z7018o+Emkaa506iOXiVe2YTIp4SQA3FEH0qUIZAk w6eWguBamkRlm3P1tOZLFfYIzt20lHTRXKqjsVRDU8so3dee03X1KV1XPqJq 7DSpTToOhYayxz2IPc6B7LHwxTNCImNJD5rTH6E9+4zmqScUNd0hr2qVgtol UitOk1B2jOSKo6RXLJBVe5QsQSpTdZzEugXck5o55J3CIb9kTAOSOCh4m4cX 4JepxTu1UaoBJwkXrnGleCQU45ZQSl79DN4Jddj452DllY5JZAb7Q0ow8SnF KbSCwxG1uMU24ZnQgltSG56JvQSkThCcdprYfHkdZafJrD5FrgzK3KZTZKtO klI1jXeGDvOgIiwCCjH2zeb9199h18b32SdY7xWsjSSWm2x6B1OJ5NYbXzV8 7+YscfuwGLLzO5vwNbITg7Wh12E/fYc2SuNnTaK1BQkSI+Mt95PkaGrYbC3V 057UoAQy5b3LluprmqQsrIi60GJqpYFU+eXT6puPxrcArchvj5j4BvQiXP8o fWweGqcsBhyz6LbLodwkTo4tPAvTiRJlE6TirYRrS4nmFsK2hbBtbkJ7aTUr F29y9ewlnjy4/w/rxt1bJkYd2UJOQBuZXjoy3bop8h2gJngMddQ0uvgj9CUv MJJ+jIrDDUx5NvA4rpYPivTM5S8wXzjPfPERZounmC4eZ7xwiIGcLuFbTW9W Db0Z+XTGh/zItTAc52QvhmhvWJcsSepnhjUJ/+6HRcgSndYWIou3t+RIX8+G dc8uz0o1bB8S4RhAin8mqQHZZEg4zxOeS4ML5CkXC9eltAeV0xlcQYtXER2+ xWhFIHUBShXRGSDvqF8uGvF0rXDf7pBKwS4fdvzLL9n6L+LdL0gj9puX2fuG CSG2h6mIdCdM4pjx715kv7B9QNrvg2++xKG3fyP1EpY73sbeZCcOJjtwOLCD nMxcqitULB7pNEwKMswTWFS+InkqUP8XwwShp4aSdC71+EoPD64K3NcE7mvS f18XuK8L3NdauXtFvfUvbbuUy3fvo5q7QPPRFdTH7lLUcpr45F5SozvJSeih OLWXisw+qnP6qcsfoKGon8aSfgmsfdTJia4u76aubYqe1S/oWfmM7uufCt/C +JWnNJy4SZh2khD1LCHSPgeL4LedfELHqWdozn6C7vyndF76jK7Fz+X3Pye0 5jgRtZeIqLlGYNl5AkpO4SPh2CG2DeuoFva5p2PkLVz6KZWGRUItthmtOIve uGfr8U5X45Ei9hsn1p1UhXtyOcF5Wuq7l4gt7MVGFNpBzq5JVA7GIWUY+VYK 25UcjqwTtlV4JrWKNnTgm6HFP7uTgNxuAvN78M6dxL9oCp/iaXyKhgkq0BOa 34WfpElz0YZDwaUYCV/btx1g50ax7Y3vske43ifB/MBmse13N2G56XXsFL7f eU1a6ddx2fIGzu9tIeyQAw1iOAOO++iQUZFga0m8jSlx1sK2kylpXg6kBcWS E5FPblQRzXnttOdqpb3Lpco7n0avQsOo1PgU0+mnbHJYTI9/odwW0B9cQr9o T593DuPeWQx75dLpnEemlavwvMZ1gkSFONGTWIkL0VZmRElkiBCnayur5MqF VW4s31j/TvtXlIoe5vjUkeOrEc3vJ8tdT7HfMDVhk6hjZtElLtCXepyRzJM0 BXUx5NvC/QQVt4oHOFZ8khPlJ5krW2C6bJYJqaGiEfoLeunL76Avr17gLmAg LZYogTpGgP5LqDcoyw1uUNYb5D8ZlhpMMSwzaLe+6ujaukJJgnK8g8X3dAc6 WhLucpg0GSsZ/llkSDOTLe9LiV8J1QGVNAbW0BZchy6kAX14Ixq/KqG8hu5Q 6RDCaqSq0cv40IeW0R2kbONahM6wqHIShXs92PlzcW1x7x2/3oj5NnkKXu7U xDqx77XfYvz6b6Upex0TiWkmG5V62XDRrdmOjdiY7JLaQWaeNFGNLdTUq6mt aeTqgo5HQvfjywrdTxYVupUZQR8t6g17kipkPxKy718Tuq+LbS8L3cvSey+3 G+j+4vmVn9BtzuLdR6iOXKF54QPUR+/TdvwJdWO3yaw8SmKinoy0fvKyBinK HaK0YIjy4iHKSqXVLBugun2ejjMP0d/8Vuprem58JYR/IYQLsVc/pmR+ifDO eUJbjxGqPkFI3VFye67J//kE7fnP0V36UkL8V3QtfS2u/zWhcrxw3UUiupaJ 7L6FrVBlktjDvuhW9oU1sD+qCROh0CKjG7uiceyLR3EoHsZRFMemYBivzA6c ExtxSW7ALa2O0KJumgfv0Nh/g1zVMWylXT0cXoxpXAFGQRUY+dfgGFwlAb4e t7hmA91eaUJ3pg4/sRP/vB4ChOTAQv0GAov1bCFAfvpIcPEq6hHQu3GWf7JX cv0+kfhdBw+z7bWNbJdsvmvjFva+855k83c5uGUz1m8L3JvekM75DRzffQMn KWcB3HP3QQnFDrQ4WTHkuJsW0y3E25oRK3AnCNzpvh7khmfLAE0hT556oQhJ VUg1Nd5lqHwqaVcGZIAMQhmU/dJbDIXXMBJRzXB4FUNh5QwIkCNiUXMhBcyF Kev7FdAtLWWGlQtxVpYb5BdZiAnGWEvDLXkhwvoQYVYmBJgbcfL0lf9z3a/L stPIccsi16uBXG8deX4yIALHKQoYoyZ8mubYObRJxyVbn2Q4+zSauDH0gR3c TmzjSWWXZHHJ4VWnOFqlLHd3humaBQZK5d+ITehLdPQWNzFQUEpfWAA5IoeJ podIcHFYWz1sffXADcr6gRuUBQQ5SJqykqiCuOvaSqLJgneygreTJXP9PWt7 hgjb6X5JZIoXZEm+yfYvId+/kkq/Whp9G2nzVYk7q4XdNvoj2oVrlfDcTF9k M/1KRciTipQKq5cnJryHVNIjjt7llSkaGcfhN95l4z//M++9sAl3M2dyQtwJ st7D3jdfZ5+cbuONSr2K0cbfYrTpFfYpF9QL2+5uzqQVlFCu1lDV0i4tXgt1 KhU9umYeXNTz8JJeGBeWpR4J14+llP2aHi6Jaxu4FtdeFrZXxLVXOgxs3xa2 //Dds5+w/X8wdv46qtmrqOdv03L0IW0nntJx+lNh7wt0l7+mrG+Zyt7r1Ays UDe0Sv3oqrC/IqHv1p9IkZ9/lPoD+g9+T48g3rP6Dd0rX9IlBp4+cZ6I7pOE tp0htOUsoY2nyOtfQXPuc7QXvxKsvxGsv6Xr2nd0L/+esPYTgvYVQfsGUT33 iO57iL10diapgxzKGsU8dwKrgklsxERtS6awK53EQUaIvZRtyRiuGe3YJ6pw SVWRUT9M68QT1KMPaBq+Q33/KrahJThLr2oXW8y+wAqMpdlwCK6Ux+pxjW3G QwK5V5oGH0HbN6dT0Ba8C7oJEIYDipXqwb+kW0pMW8q3WId3kZaQ4uPs9pNg 7hxtYHurhPMdEs53b36PfVu2cEBZ6UVOtrWwbSts229+A/cdW0iyk5Rpb4/3 fjsybR3Qulgw7LidEtPtRNsYG6a+Z4ekkOQeTbh1sAzQEirDVdQFNdHkW0+7 fxNdMiD7ZEAORaoZi1EzEatmSmRqKr5J7jcwHlPLcEQlY+FlHI8TzuX1D0pz onKJFKO2JFrQjrYxJ1IqXAJDmM0hQgTuxCA/vvjqm3/4Ae61DWmzXTLIdW8g z7OTfPHs4rBpqqLmqAqfQRUnSp98DH3GcQZzTtCRMIomtIMVeVu/rVVzrPIE x6qPMyeuMV05z0T1HIPl49LED9JV3klPeQujFXW0+PtTtmsPVZvfoWDLu6Sa m5Lsqmzgp6wNZvrDEoFrJblGKtVtnXNXW2FdOHexoiknhUB7C+I9fcn0SSLL L1uqlFxhu1jYrpVcofZtRxugRR/UyWBYF6NRPfSGddAf3sGA1FCkhpEYDaOx HYzEtTEgb3FPVCPd4uk9kon0/unkS/ba+Y8/x+aF1/DeugX7nZt4/3evsF0Y 3ymnfZcwvlty2y7pyXZJbjuwfS9+vqkkZ2spae2hvK2byvZOqts6qG1VU9fS wOxoK/eFc4X1B8L6A+H8gbTbD4TvD8W77wnfd4TvOys67q5quSuM3xbGP/94 adtP+W4aP4VqZhn13F1a5h8L38/pOPuZAUCdAuDV39O1/EcB98/izf8mIEvd +rcN9N7+N2zQy0/97T+tcf4D42LHy58TPXiCyJ5zhLVdEMYvin2fI3/oJprz X4ptf0Pnle+E7T8I28rh/yT/7hTh2mtEdN4iSn+f6IHHBGnv4Fy1iGXRUUzz JrEonMGqZAabshlsy6exK5+UW+XPk1hlduKT20up9gwdE3dpm/4YtTCuGntA /dBtokuGsZZ2yyqmiP2RFewLqsU+UMJ5RB0uEgncxLo9U9vxzhTGc7T45omF F+jwLxTWi6SKO4VrpYT/EmnyhXffinECqi/gmTZFYGQrVrut2PbGFra//R47 3tkijG/GaIs03m+/hrmcaK+9ewgRZ4q3tZMBm2Bnx29JsLfDz9SeQkcHul1N GbZ/jyy7fWI8fsJ4LGHCdpSdskZnHbVhWtrCu2mVrrczRAJthIbhGB3j8Z1M JeqYTdZxJEXLXKqGI/JaZlJaGYtvlAFay1hsBSPxtcJ4IQOBqaTaOYlZWwjX FoQK38E2ZmI+wrftIeaH9Wtsh3PbsJOtlWEn2zinEHJd6g2bSip8l4TNUBur XDF4jMa4I7Qlz9OVuUB/7lG5P0xLZAeLyW18LXzPVy1wpGqe2ao5w9KVQ3Lq +qvG6akepL++l4EGMfGqWgoCw0g6aEuxiRk18nbVizyWvL+FdOkb0tydhGkp D8MKgIbbdI91xt2Vxb7sxNNthHFryfMWBEkjnhOYSJZPKhk+hfJ2VpPt3Uix d6vEHw2tft0ikb3Ccz8j0YOMxw6Jd+sZjNYzEtvLWEIf40m9TCTr6Y9pZCBR S19MHdPhOZwNjeZuuBcfhAeQLToUJP1Xqsn7lJq8ip/RDiz2GmO5zxgbM1ds Lb3xcoknyruQWPdcUv2ryY3oIDe0ndzAdkpzdFRUa6nRtFPbIRLeVsvdCz3c U+qiMH1ZbsW/7wnbd6Tjvi1s3xK2bwnbt1Y1cr+Dh/emvl/gZg1ub5rGzqCa lpZ79h4tC0+kLVbgXnNX3ZVvDfR1Lf9pDe6bCtz/LiT/u7D93+m9I/eV+oHw P9DzwXciAl/L//mCmKEzhHVcEFe+LLVIWOtF8kduob0gx778LZ1LIhzX/ihu v3b8MGn5wzuEbt1tce8Hog4fEaT7EM+m23ipH+DaeBOX+qu4Nl3DsuIoVhXz WIkNeLcs4a2+SHjNJSq7P6B9fJX2qY9om/2MlunnqCYeUz9yl2pxcKvQQiwi 8jCOqGBvUA12AeU4SOxyllPnmqjGPVUIz2jDO7tdlKJD2n4J6gUa/IqkijVC tTxW3IFX2Rje5bMkaJZIVF8iMHWcpFgtKcF50l7twHjLPva9t4u9723FYstO /A4IQZa2RFjZEmVjS4yt8qVOnJ2t0B1rb0OomXKRqT0Vznb0uh5k0Gaz2EwI 8S7RBFtEkuJRSmmwhsaIPjRRQ3SEdNMjw3BIhuB4Yj/TKf0ckSZqIaOfo1l9 HM/qldsew2q8E0L5eLKa4URpbeMktcdXMhyVRbGbN8FCd5BUgETzEMXq3CTe elr/SPc/Ui7OHbS+tW2kgzu5DjXku2jJ9xmiSNy7OnYBdcpxdFkn6UiTiJ4x S0/uEXpzxdFjO7la2MfX7Z0bmK6a5b/Jz2nGq6forxilv26MQcMEwiGGmzUM 1dfgb2OPq6kjwWZOZFnYUWlqRpPxHlRbN1G6bQtpokMbBG0nDpDh+T3kCuDr C3kpq/m5SRPsaonHISPSPKNJds+QKiXFvY5M9xYK3TVUe3XR7NdLR3A/vZEj DESPyrs5Ifo3zqgEj/HkUSbTRplKG2E6qoGjoTmsRKTyUWIaX+dm8G9VWfxP VRZ/aM5E5eVMmJGyYtq7FJm8wZjFTkK94okOKSNGKiG4jDTpqbL8isjxzKNc MlhttIY6AbxOAk5tkNxKkKgVf6ipUlOjrWd8RM2t893cvih1WYC+0sWtq13c lIb7psB9Q+C+IeH8xoqGlevt/P73z7f/lXGPnEU1KWzPKGyLcZ/8mA4lOV/6 Gt3SmrN2KezdWGO755bC8r9LML/z38laQ/uOgvafDebdI+bdfUP8Xnrv6KHz 61gvEaaV6rhMvvTz2oty6MXv6Lwqh77+J7rXM0GoStBuu0ak9jaR+oeC9lNB +76gfQevlgf4tD8mQCu4dz0ltOcpYb1Piex9QlT/QwI7rhMriDcO3aFj6i6a +a9pO/KlSNYnNE1+RP3Yh1QP3SBdPYdleCb7wivYE1CFjZ/yRVg1TnLyXCTM uiY3456mxjOrBa+cVrzzpAqkCgX3IikJ4x5F0t8XjxDfdo50zWWy2i8RkTlG iqS3ikw1Tvttpdnea7iaxmTbbmze342roO65fT8hlmtTq5SN5qJsrYlWJmHY WxEpFWRlJX/vQJ10kf2uxtIdxpDulU2SW5EMimaqQvtojhhBFztJV/QIfbEj jCbJ4EsdYzZjnIXscY7njnMif4yT+SMczx9iPn+AqaxuJjK0jMrr6hW8h1Jq GU0poj86jignWyKdbEj1ltbW255kL1uC7PZTlpOGh/2PU8V9lJLnW5yepmxr vTYx9HfcXl0h0MGCYMe1TTFDHG3Jsq4k37GDAu8BikImqYw9giplHk3WUfT5 x+grXKAra4ru3Emas2ZZ1Z/im+MLjFVOMlY1ITXOeN2EmPogg41jDLdOSPUL /x2o83OIdlYW4HckxMERH0snYqycKLS2o97SjFaT3bRs30jpob0K/55OGBv4 N7BvKHvDIn4p7jYc3vEGbnuMJMzHSeWJHlRJNQv7Goo9eqjxHUAdNIwmbIzu yGkGpfGYSjvBbPZxhmMHOCJcnvQv4m5kKZ+lVvCHkjr+R2MT/0un5j8GW/iP CTX/c7aJP81WU+znhtWO94gWnTrmHs6klYth266EsDJSpLJDyygUDSgNKqPc Kx91rIQKaQjao6SkOWiXJqFdNKA9oJ02r2bq65po76vnxvkublySWuxidamL FWF/Wdi/LuwvL+uktFy93qFwv+OvGvKTK5JoJbBP30Nt8PS/5F5895r47oqk 6hsC9U3h/5ZAevvPPxPa/0ycgfeen/D+pfAqNt62SKjYc5juGiFi5/njt9cO KSG9U2y8a/nPwvu/GXgvnnlEeMtVIjS3JOA/IEqxcu19PBpv46m+L7w/wl/3 hKDuJ4TonwjvT4jof0TUwH3cm86T3HkV9eRtOuY+oUN4b537Yo33qafUjd+n avQmZUOLpLaMcCA0m71epVh6FWMdVIFdRC2OsfW4JDbgmtqEW4YKj2xpznOF /TypAqmiDtzy9Xjk9xLfeppM7UVyJKrkt18gPn+ctNh2qnLUFJV1Y/TOHoyF 8/1bd+Hy/h5ct+7Ffes+vHYaE2xpSYi1lTS9UrZSdpaESqJUrDRQGIu2caTJ 1ZpavxTKfYskYTZQEKynOkySb7SwnjiHPmlWUqOysP8M05mzzOUckXQpTMdr GIisZ0SM41FiOc8La5jOG2Ayp5uxLOkw05sZSKtlIreS0dQUQ7OfKpXi44Cr yY4N7HrjJf7eMCE8QCrIYW2z6xCllO1vlHXvlQnh1oYJ4WubXYet74NrKciv bXgdqnxRbR1Nrk0r+R69FAaNURY9RX3yDK2ZR+jME8fPnKAvZ5ppCWQTjceZ nrjE0sgx5pvmWVAdYV49y5HWafpqe+mu7WG4fYShtl76mttIC/Az7L6j7LsR 7+pEopsTkc7OeEgEUC4eK5cGqNnaFM3BXbTtWMPfgL1Umqdgr3zf6GGH+663 DXNg3XfvJ8UlRapYMn4daYeVnXO6KPHqp9Z/FHXIFLrIBTpCJ9AH9jLi08Jx r2puhtXzTFT0uzId/0Ol5z+6B/iPkWH+18wI/350hK+PD7Ko6eJkm1p6l2qS 3H0w33cQ193JJJnEUGcWgu6gC4W+6eSGl0vfU06lYF+rfGsX20pPch9dcTp6 4nXo47Vyq6EnroOemHb0Ea10BzVRXVPLVcH+mmB/TbC/Kpa/JNgvXuvkynWd lJbb92b49vcf7/wp8os3n6Iavk7z5F3U0qO3CvLtEuM1l75Ce+Vr4VOi/PJ3 wrMwfVNiuhLVb/9RQf6PWAvyykNKb64gv5beowakH19HPrTzOsGaRWpETTTS l68h/wdD298tfXm3JIimc58RprpCRPsNIrs/FOt+TKDmLu71H+DZfA/vtgf4 6R4R2PWYYP0jQf4h4YJ7cM8NPFsuUDS4QuvsXToWvqR9/kta5j6nefZjGqef Ujt5n8rxm5SOLlIydIwkVRv7nPMxcy3Cwq8c69BK7KKqcZTe1TmpjsNpDRzO EPyzG3HLbcQ9vwWfkkE8CwX3lpNkaC6QK7gXtF+kWCqhcIK0xA6qJQ4UV+uJ zmjG6N3dWLy3GyfB3WXbXlyl3KU8dhrhb2VJgI3lBgJsLXkNfztLw+fAcT6O uEtfmuToRaVvHqrAWqplfOX56qkNH6c1bpbu1GNoYiZo9O+kLbibSpcq6j3q UPs20RHYSleolvnUPr5tH5bxp2O6aITJgn7G8zrpl6akL6OO0fxqxnKyDVe6 hzgcwnL72+x58yX2Sjns3SbPZW3ud9hf7H+9wbD79d8Sabu2B7ay/3WoJJY7 Kyvre2CHGD7rCnawMswdV3bHVNiPcBS+rIrJce429POFEWNUJYzTlD5Ji3Df ljrKQOE0UzWzzDbMMFk3Y1hifrpR9KB5immx+Mn2cbrqutDVdzLQPoS+Vd6P giIixO5/yr4zyR7O0uw4S1JxlLfZmUxHZ2rkebTZHkJ3aCftO96mxHQPqetz DTx2b8Lu3d9g/Y6wv+sAKU4ZUmK9zk2kuWjIceuVXn6YbNsOVM5dtJpXMeNS z+WgFu6mdPGseICvGsf5Q+cM/z40z3+fPsofF45yf3SeS7oZxmsmJM4MSnVJ CftF9eizUvFzCSXKPYfDO2NJOxiNyiyIfhNn6nwyRd2rqQ+pRRVQzVDeEUZF I8dEH4czhhlS9vtO1zOY3iXqrWUwuZ2heDV9obWcG9Nw6WIXFyXuX7jSyfkl pXRSWj56fm33XzL/X3n66beoBq6jGr+D+sgjWo4/o/2M+OUFsfrFL9Fd/YrO ZYFZ+UBd+dBNWvMNQv13FNBz5zvDvR/qlmjDTfH6VeX/fEHa5HVC2i4TorlK aNc1gjSX1vTkoujJ4jeS778z6EnXqiIYStv/R0LrpB9QrxDeeYfIvgeEdN/D rXYZj6ZbeLXew1dzn4Cu+wT13Cek9x5hA3fwlN/hoz1L/eQNWgT+tvlPaRPP bznyMarZZ9RPP6Fm6kMqJlcpFVcpHpmnoFfPzZV7RGWOcMizFDNp4a3CKrCN qcQ+oRqH5BqcxBedMutwyqrDM19LUMUISe1nSGs/T7YAny+5vkiqVHuJpNJJ UlO11JS0U1LXT3bTEXLSmokx98bh/X04btuH8459uG5XRGCPNJWmeIoAeFpL 2VjiI34frawxIxUhWTvM3ptS7zLUAa2GDa9zXXUkWqlJsGgi5kA1KRaN5NiJ 0Lh0UenZT32guFLUJB0pog7584zVHuPx5Ck+npxipkToKR5ivFDPgLyOvtwm hgqrGS/KE8IPGYg3ektKbo3f/I2EdBvCHX86Mfz7TbGVjxmU2xj7v5ggLipw d2Vl7YvqoHUB+HFr3DCBP9LJgThbP9IttGR7DJIbPEJxzAgVCUNUxfTTnil9 fKn0zdUTDEjGHxZgRuqlh24aY0w9ykibmH3HMLqmblrrdbQ3Sf4uqpKn6kCE 05oAxCgCIPAnuDuTtC4AqZ7OhvX8Qp2k7F3Ic3GmwdkWjf1Buky307rjTdJ3 b8Z+y8sGAXDc8Rbu201IccgixbFSSk2qcydZ7oOEGquoP9TMvE8Hl+L6uJE3 xociWB+1H+OT3lN8MnqWJ5NnudZ+irNtx5koPMpI4ZwI2ww9BRLTCkfoKtLT Uyyxq6yJnrx04vwzyAgvJc67QEQonvxD8XSZhTO139OwHG9zqIiFxLmJotNM l5xhtvQ0c2WnmC05KoI+KYI+xGhuP6PZPYxndDCS2MiEDOFjE62cuKjj+CWl tDx6dn3vX06BK6NRfxXVyG2aZx7Qckzy/enndJz/BM3lTyXff07n9S8Mob3r xlcCtdQHXwvgSn0jsH9juN+tlPyd8m86paHXLX9G0bHbhEgjH9yxRHDXEjmj t2k7+6kIyhfrgiJB4rrSEIig3PhW/v93FE0+IKzpOmGaD4jouUvkwIccrlrC rX4FD/UHeLffFte/TUD3bYJ7P8C/+xqHW85KU3BenF1C/txTcfqPBPgnImJP aJx9RJ28rqqZO5RNX6dk8hxFowLGSJ/h1Y/MPqRx8EMiS6eJrpnGTKKWZbQI QHwFNkmVJOtmiWgcJl5iZ6L6OEnyu9IlXeS0XhK3v0yxdpGyrsskV06RktFJ dbmGmrZRSnTHOKY6zcW6M5QH5GG7zRjb7cY4CPhOO/bgtHsfDhaWuEmjHOhq T5iXI6FSIV4OBHnZE2BmQ5pjKel2NWJZLYQfbMdzh5pg4y5iLAbFjibI8Z2j OOoY1amnUBWeQVN7jn5lyzdl56vWU5ysVjZvnGembIrJ0lHGi/voL+6kr6iZ 3vwyRkvzf7jMVYHeWO77mB8wAB8l3XmM448TxuMdbf+GBLnz5to+2Otzxg3z xW3W5osbFj2T5PL9drgG4B3WgI8RKBMcgki100vPIu4ZNkJGoF4a/kFas0fo LpHmuVigKB+hp3qE3voR+lTD9LYMo28bpkuAb2vupb5GR0luhfwOewPw4QJ8 1DrwceL4CvCJAnuywJ4ilerlvMFA/b8QIbxHOh2m2NUZ1WEbdPYHhPutVOx8 Hd93X8Zt/zZibD1JsZUgZF9Nsm0byY59ZHtN4mekpz1klnNF81ytP8FKx1mW ZcRd0JzlZLPwWHmS2cITYodTBcd4SeT0KMNFC2LuR4TxKTpLx+gq7aOnQt79 KhU1KXlkhhWSFVFOVmQ1ITYFBO3Nou5QJuPmicxaJzGQfVzO2mVmyheZq7rC QvUix2ouc7z2EsdrLsj9s8yWzTMtI3e6aJiZ3E6OS6A43djKvSfX+eKbj43+ kvP/wuXrH9PUf0tC/X2a5x9JqBfWzz6l4+JzNIufCI/C+/XPhN/PhePPN9B1 84sNQvsXEhG65GfXTcPjdK5+jm7lU7QrH6NZ/ohQ7WWCpIEP0FwW/Xgq+vHx un58hlb0Q3ftSznmV4YwoHQDSjAIkVcU1nJDmv/bhPcK060rHK4RzpuW8Wxd xUezil/XKoE9y/h2LuLWfpqUwfM0TK/SNPtAzFyp+3L/Q+rF6Gtmb1Mxe4OS mSWKpk6RPzzBRx/e2bC+D+nI3BMahh/QOPUQ1dxD1Mce0nLqIa1nHtJ2/qEE +GPENcwR33SSZNU50tXSv0uWKBC8S7quUKZfIlkEPilLeu3Kbmrax1gZXeWT iVt8PHGTGyJv1zsvURdXRLSzH7a79mEtnaOrnRu+jj74SwU4elOWW8D4SP8a K+LzcaYZpFrXkeGkIdR2UnLAFCEeR4kNO0VG8lmK8wXp4tP0iHEM5onxZfcx nt/H6ZoTnK49wUllV8aaBemUJSmXiUGW9TNQLoOsTE1vcTndeakyKPcJ4P+7 ePpv8LE4sHY9iAHvtWnjhinj69PGN5DkbKf8sOWNtbmlhrnja/PGYwR0Jd4H GSC3+RFyATHSeQ3yOAExQZlM7iLhxKWXFL8BSuJGqBfI63NHaBLnUwvkbQJ5 h0De0TRCu3rYsAOfWkBvbh0iKS4bx507CBLIgx0cxLElCMmxo+TYsdLOxwvk CR5rzm4A3UtZoFNQZ5f8dCLVW1p+cf+4w4cpdXei+bAVWntjafnfRbVtK2Yv vUqSWTpJFrWk2HSS4TZKftAc+eHHKUk/z3DjOUZKT9JfcIKBzGOM5ByTN/0o U+LiM0L2QtlxposXGFOWMiqeo7dE/KRsks6KUTor+0W8euirbaIpo0QoLyYz olpIl+AW0U7AvlKSjMrQmZdw3CqLs+4lzFStMl9zg2P1NzjReINTTaucFg5O N12T+0vy2CWONpxloVZ+d+U4F6oHWK7v5tsnz4zXCN+0HuFHFx6hGv1QyFCG uBB++jHt5z+i49JTadufo732XJz5Y6HxE6H4UzpvfCrvXJf8fMtwv3P1E8Pf 6YRs7YqowspT2lceEd+3SKD6Eln9q6gXlI8DPhLleCbK8bFBObQG5RBlWBaF WFVU4gsaTj8lpH5ZYv9NwrpuCuU3cSq7xOHaK7ipruLZfhVv7ZJQvoh/z0U8 tacoH1uW3vw29VNS00rdom72A6H7BpVHJLIfuUbhzCXyJ48zNTe/fonSHobn n1I/JE4++ZCmIw9pPiqv/6Qgfvoh0ZWTxNYqeJ8mqekCaepFstuukq+7RnHP dcN0osTaBRKy+6ms6OZW5zxfzD7mc3kPPxGFeTp9l4eTH3B37DrDddMUpXRS mdRBc24vXRWT6OXM95bIbaHkutxJ5qQlCLd1J90sl3RBO9dNR37wGCkRcxQk H6Oh4KTE8BMcrzjBueoTzIvtLRT1caK4l4sV41ypO8oleT5na+bljM8xVTHF RLmgXTFAf6WgXalGX1pKUbiPkC1M/z3eFiZi2rZr80sVqpULQf5i0niyVIqL YZapHa/LXbuf7mlvmD9uuC6EwO83s7YTtoW/NbYdDWzHKgYr/Dm+s1UScDKJ 0r5nxo2SnTJCgTRPpQUjVJaOUFM5Qm2tVMMI1U3DVIqRlzcNkRkejO2WtyQD bRcNsSNIwkGIhINwOX6ksB3tqvDt/D3fIkOeyho9XusL9ewgSTqiQBtlZw4z ElxdKHWzZzrAl9hN7+D6ry+QbJJCqkWDBCY9uT7jFITOUBI6TVX4NKqYWTqS 5uhOm6Mvc47B3DlG8+ckmstbXHxEbHSWo1ULTJZLTC+ZQV8+LTBPoKsaoqt+ AL20GwONKhGzAjLCyuXFNJEVriEvvIfSsH5i9jdSdKiREYcaLrkUctm/hmON 9zipusdp9T3OttzlXOsdqVucbRXIW69zXH2ZBdUZFuqPcKFpgtW2IT5dvPYT qP+Bpx//gca+ezRNPDB4V8sJxbceCdiP6bj8BM2VjwTApwKg1PIzgVep5wLy c4Fb+dMbAvNTNKsiBKtPDEC3rdyn6qxYbP05VGP31wVDwD4lf39eIsGlZ3Jc EYyrH8txRRSWFWH41CAaBSN3CWpcIaT9BqGdq3g1XcGx4iLO9ZdwFd90b7+A l/YcProzJOovUj68QuXoClXjUpNS08tUzlynXGAuOXKVgtkr5E6fo2riKF9/ 9TVrnxyb8vTTP1M39EB6+Yc0CNRNAnVu5zkiy2eJqjpJdN15Ehovk6q+SlbH dfm7FQp7blDcd5OE2uMCm54vctR813OMrxc+5cuFj/l04RnP5h8zK/G4KqeP umw9zZldaNO1dCW3MFU9yawIxpxAPVc8yRFprKYF6pI9YTTsSkDroaXcp5uc gD7DinvNaUfR5h5nuPQER6pPcrL+FOdVJ1lsOcll9RzL0hCuth/lRts8qy1H uKqa4WK9/I4a8fIqiePV0oPXqOgqKSDSxQrz99/GSyJ4mNBsuAzkry4BWd+a XplF+jPDdNJQufvjZNLvN6NWrgYxbEtv2It2jeRQpT/+iw/IPPYY4fz6PjIs HWgMcSUrNJvo8GZikkdIzhohXWjOKpGqGCFTiM7IayI9SbKxl/w+L1EOD2v8 LW0ESDuJMvYEyfFD5Pjhh4VmITlGlCJWSI73WHPrRHHqRPHoJHHoJO/1xXZ8 HPE13431e7/FZucmXM0PkeGXxMFXNnL45deJ3OlCmmklOc5dZHn0k+YxQH7A KBVhE9THTNKSOIU2bZrurGn6cmYYyp+WPntaOh3RzFI5dQLxrGjoiDinvnoK XfUompoBelRSTRp6GxpJDxKdDq0jPaSFjJAucoOlzUg8ib7kDjmOgzTYdzDv 1cyKbzmX08c43fqEs+1PON/xWPL/Iy5oH3BeK5BLx3pchuHRtossNB9ntec0 q13TrLRrWCf6nfUg/vSTP9EwKOFVSaPzQt6JH5NoxyWpxUdolh6jufpYCHy8 QXz7Mf+E5ro8tCwlAHesyD+Xal2Rnv36PZqXbjJ66j6N0i83SQ+tHHZNKB6v CcWlj8SpnxqEQntNBOL6M9GG5ef8M/ESvQOF56A2YbpzGeeqi9hXnseh/jwu zWdxbTmNv8TvfMnAhf1LFA8vUTK6ROmE3E7JnyVyF8wukSu3mVOXKJ86w+Wl lf9keLEHuXjra/H0h9QJwlmaC4SVzBNecYaI6ovE1i+RpL5Oescq2bqb5HXf oq3vPl2StiYCtHxRqOX3/ef45sTXfHniSz478ZkkqyM05A+iKuinI68XfU4P w1k6xtPbOFUzyRlB+JwgfF68+bxgPBOvpnuLC6ft4uhw6qA1ZICCoBHKoqdp TD6CJmue3oKjDJYdY0LZ6LzhBMeaxZvbT3BZc5yr0slf1y2wrJvnmnaWRe00 J1rHGKzrZaC2g8GqerTFuXi8+Rb+JgeEM1sxYwVde2IF23gDug5/vZ/8BtK/ 31T+nwz7SKeu7yOtTAhPdLIkXFL2YaODmG/Zg+X7e7HZZoTDdiNcdhjj8N4u rH63k/iDtlT7u1Ib+ePnW+mKX6Z7G3448d/Wv8Zb+8o+xVuc30sc38OKWyur +FvZ4W9nT4Ck7CBx4lCXH/mNdlf4VZa6d1IuF/d0Yjfxwm68HDVeuFW+nPAy 24npxhcxefMFbDa+xb5X3mTzC6/jLu9F+oH9ZB4qJdW0nnSHDtLde8nxHxJD HqYmepSmhDHaUsfRZY7TkzNOX/44A4XjDBePMVIyyrhkofHaSQYbF+hrXqBH LeepQ+5rZuhr76U2vZhU/0IKE3qlJijLOEtTwU00Rfek/XmAJvUqaRZd6Lz1 nA/RcC+8hsXaa8LqJ1zo/JhLXc+51P2UC92PONN9jxOdN1iQPLrQfobVgQus 9i8Iw33fs7t5/ZsxxZUaBh+udZLr7Coxs+2c1IWHtBv4lboitSR1Ver6ww20 Lz/kVdrkZ4uU+roweuU2z777w9rnUEceGxrUpmlJrwt/JQkXhfdF4f7KY4Ms aK+K6UspqlBz4kP8G68T0HqNQEm0DpUXsK44h23tGdwazpDctkR65xJZAm/O gEA6IjUm9yflMYE3XSp5YhHVkSXuPni2tk/nL/joiz/TM3KFpPwFggrPElJ2 WYC9RmzDMlrtQ/TdT7gz9i2Pp3/Pcud9xkJ7+by0lz90TfDNqd/z1elvGa6f p6VoiHapzsIBBgr6GMvTM5PTzXymhssSppekrjVMb+B6wxS/Y9AunCX7QL6M j2HCr44Kp1EK/UYpjhynVrReWUS2q2BWsvYsfUWi9WUzTFTOMCOt+ZEGCXDN RzgpNntaO8e5zlnO9Yj+S6gaaJTw1tAu2lEvjIl3vfkucS+/RfQLrxH52jtE b91J1KG1qzeSDJyubfuc5v7Xe7//0w97v6e6/Ti5O8zsAHbvvoPFu7uwFl7t hFeHbftwEV4dtuzC5OX3Cd1jRYmXK/XRTgTvN/3px1OOysLTUk6GMnzrLsgm K7NsBNlEQXZupNdwbhRs/azt8BPL9RfLDRLLDTFg60SEWG6UIBstyMZIxQq0 sYJsrBzT38EUB+NtbP7VP/OusgveCz9n6y//lW2//AX7/5+XyHlnC5G73yTu QKRYbgOptu0iS91k+ekpDOmjPGqQ2vghVClDtKUPo80epitvGH3BkJyKIfpL BxmoHBJZlMck5XSpZxjsOstw70WG9Gfp1s5QFN1ERfooNbknpS5Tl7uCKv+2 yOcD+iqeMFr7HH3eLQpdhxgJG+JafDdP4hu52nSDiz1fcFn/GZd7P+Zi70ec 7X3ICf1tjnYvc6H/Kquji1InWR0c5ePlS+sffb1ruPm/DNQqDWLDeoOoOiaI nRIUBbFWQaztotRlKaG2TYhtvSZ1Xf5eqllKJY+N3XkquP5x/dvNXzMiTWfD yEMDsj+4+F8rweV1NVhXgnY5VtWpu0T3rODbdg0/QdajfRGzslP41FwisnmJ 2I4lEroEy16pQSlBNkn8NmFUwfYabUeW+eyr36/trbeflVOr9BbPi+YtMlj9 AVPNDzmufS5v0ucsj3zDncnf82j2jzxf+DPDkUN8VjnMnzu0fHP2T4zVzwme g2iKh+mRPnSoaJTJglHm8kc5Lif3dF4fy5JlbrQc51brMW61HWU+upRTNoF8 Hh/LnyviGfVPotSmjwrPGQpDxymTjrA2WfQ9bYSOnDG6RdP7SyYYqZhgvGqC qZoJpmvHmamXahxjtK5f2NTT29QlmUxHd1M7zRWVOEqnGGVsSfweYWX7ATKE q+yNW8l+bRMZL79B6qZ3Sd29m2RLM8ME7TVGM9c2aXeQXKNsx6yAGu9gQZCJ Md57duG5ezsBFq7YbdmNg0DqJJAe3mHEoVe3rW3J7HqYuihXos0PErhrP4E7 9xuWVVA+YlI+YEr1dpIuWnD6W8OqsUk+ohc+4u8+duKNNutDw8wAqY+NPb72 Dvg5OhIgkAYLpKHiq+ECaYQ830gBNFIA9bUzw3TbJrb99gW2/eYXhu0pt//q 5+xSlkeRMvrlL3H/l9eoff9das3eYe8vXyBhX7VhU8MkZx2p0o5kB3eLRvZQ FacXneylKbVPtLKP9tw+tPl96Ir76CzT013dh75xEJ2y0HfXSQZ7z0tdoLfn JLmFJykMU1EoY6QkboHKdAE054YA+iHa0sf0Vz1jrOFTpps/Z0j8tSZwirnE Se5k9PNJejPXpLG93C+QDnzGhYHnnB14zIn+eyz03mBp/Car09dYnTrL6vgk n964yjqh7613ucOnnlOndHrS4TYKnaqTQp7QqRY61UKSWkhSC53NQpJKqkmq 8coDLj/7an05ql9yafUr6oflGOLNTXKc5r+ivPX/h3K1VOnpe4T3rhAmelIv nWZK900iOlbwEyKD2pcI1Un1LBEiRpo4+P+299b/beVbluiaVHdP9+Drea97 btW9t5gpVeGkwuhwTIkTO2A7cUwhhxMz23HMzGzJDDKTbMkyk2SSmSkOVlXf +7nTM/3WkZRKVb+Zf+B9+oedIzuydM7+rr33Wud8v/vbjWx+Xs/Ism77i7Po rVciy4Nh6NOB7OAhlMRMoTaVVEP8FD0FLzAkeYXJyp8wW/szsm/kYTEkH39O T0VTWjuSvIQhykeqrwQ5PuUo8a5EpVcl6nls4s/NvkUYInUeSWnGWGozOgJy UXzEFjNX7+Mvj52xEOSEDMvriDd7CN+TpLaWFXAmzfW+JkbQnWxEO+aQKjPE vfOR7V/AUCS9ohQqCeUxPA/54QxB4aZlVAbSY9KRHJmKhMhEnNXbCv3tm2F0 0AAnDxjjoh5rix7L4/7jcNl7GF6kp75bd2p2c/X/bg28v/oabuvXwXXXdjge P6TbGP315uiGpLVHYbl7Jy7t2Y1Lu3fhwo4t8Lh0BwZrtsF4/XbNjgk7P10L g9X7cdfgJB7bncG1I3q4tGMPrGiXt9O27tZE5N1zxtDeF/obhqCRRkreYigK dpM1s6JApL2RcADejk44x0i8YGwEC0bhJTJcK0ahNaPQmlGov3crtnz1MTZ+ 8i42Ci1GP30fBz//BDve+z12vfcH7GYU7vv9e7j63jeI374OAfu/xX6WzRMf bsT1HeG8rAzcOpeBO5apcLFNhc/1VDy+lUrXpyL0YRoiXdIR7ZGGGJ80xD6i a0MYiYKCSK9FRoYMmRlNSE+Xw9OrDg+cG+EtdHyzy4OPfTW87eUIesgo9BpD sv80xMELKIxYRmnsU1QlPEdhyDRib1RD5lKOKS9md7c4tOU+o62gOXcR8txZ 1OeMoyFfDVWF0HpWyaOC0ViKpYGe11GobYryt5h58ie0DD9HcDkFG6MgjFEY weiJYE2LaCaLDWcIvYX8AXLn2ee6PxL+fRuzy6wvsgWESbRBHCkEMYMvWs4A a9YFcfv/IYhnn2o+ZeYpv37sOVomaJPPUdG3jOz2eZT3LGFy8ScWcm379UyX Soi82pEdNISi2CnUkM8rxE/QXfAUg6XPMV71AjN1L5F5Kxdz4Qw0UToDIAWp rHVpPqWsl7Uo8JGi3KcRdb4yyB81oi2Q5CFagbGMHkxk9WBa1IOyS74YtHbF nx754n8keqH0fjREdveQZXsTiRZO8DpTAifLQjjaiOHtwGC7l40o51x+Vy7S SIqy/Mk9A3ORG0aL5O9C0pEWkaHZey+JFh2ehhuGRjj83Qe/PDa1MdTH+RMG OHfCGGePsT4cO4XrJ07hwXFjeFCv+R0+isADegjZvRth27YglHUh8Ltv4LN5 HTz3bofTCT1c3rcPNvv1YMP32e8/AOs9u/DY+j78LBxhvHYnDny5kSVvF64c NoL35TNwMj+Ci7v24hLNaheDTLCdtG27cMP4+C+NkW8xyG6y5jlozADhPo66 xr/7MaBSIT9bDFPqyHPk0ecZZebk0Hs2COtPP8LGLz7A3q8+wdFvvsCpNatx 9PNPsYcRtpfRtf+9P+LI2x/B9bPvkKa3Hve2fo4j/N1hRp/hJ5txZVc0NXQW bluK8cBeBEf7NHjcSKXuS4bfvWQEODPaPFIR4pOKqMAMpMaVoiBbgcIcBdIy 5EhIaYKnew2cHWvh7CqFz6Uo+NgIi8mq4WvXBL+rnYhwG0FSwCw1wiIKolZQ GvcMlUkvmMRfIuauAumOdejwrcQi+dNieBFa8xlh+UuQ5c+hLn8SnRWTUNUI /VxVPLYwysrwavn1M1jtlOq/xsyzP6F5XIvuZtrM8z/puj7+J43oylHMI4TR E8boCW/4TfAhghEUTtNG37N3dcGQep+C2L0VosABFMRMoCp1DnLxAjoKltBf +gQjVSuYrHuKtLu5mIrMpwiORoonneRdjHTvGmR7y1lxWlHl14bGgHa0Breh M6wZ6jQVprLVmMkdQqNLJpoveOKldwj+Z3IYlnOlaI8sR8HdIGTdcESqzQ3E mbvC1UwCB3MOkm02PB1yEHg/D+FUCjFeeUj0p2oIykNqGI9h2YgPy0J0RCYi hQk8oem4YXIKVru34dg3X2kfQRhob1zaUeVc1T1eFGb12TKNW588ictGJ/l/ p3H/pAk8jE/ikZEBQk4cQwQrRtSB3Yje9QOitqxF6Npv4LXhezzcvAk3Nm/E 1b16yHZORtLdGOz7ZDV2ffADLu45AWfzM3C2JGnbuZ9Vivxvzz5YaYxBsVsI il2w0dunuQEi3Py4oTGeFwPhKivO8IAK/0nHZoTWA5ZGx3DR+BgM13wD4zXf akB/5vvvcOqbr7GPwD5AgB+kmbzzGYLWrEXmiQ24tPojVrUTH76L1fz3jzD8 bDMstz2Ew6kM3L4owr0rYrjfEsHnbib8HmYi0DUTwV6ZCH2cg9BgMTIzW5Ap aoFI1IrkNAXcH1TA5U41XJ2kcHVvhJddKnwvE/jWOuBf70TwgwEkEviZoYvI j3qCkrgVVCStoCbtKeqzniLRrRkF3rXoC6nA04hsLEUXQFE4j8bCWcgkU1AJ jYylY7Q+vibwq8te3zQ5oTn8jSavN/8qr7dMEfkv/vSB5r8t0FM1hgxHIvhR H3KjxlCePIUG0QzaCubQK5nHYOUCRmsXkXQ/B2PR+Ui+54sUD9JYcqRMr0bK ljaU+nWh5rES8lAl2iN60R3VicmcScwyNFUxCkhMvbHgHIl/TozHz7lZmC0Z wiRpqcQ9HaK7fki+ehcZVx4g0+Yu7pvFwd4yG7eu5tJ7+fBxykcAJVGIXwHC HhcggtwtOFCMxyEi+AVnMh3dgK3eblgf2ImLe7fh7IYfcIE85fWtdy2CjX5B sDAn/S7JhzAtTdjP57pwu+3MKVw9fQoOp0/DxdQEfmdOItjEABFGRxHDlB57 aBdi92xG5A/fI3DtF7j93mfY/d/fxrF3voDFxkO4T+UizN813aGH8zv1YL5b D5Z79Hg+B2j7afs0vOsi+Zf1iYNErBGu8v1XiGA7olc9oNKCd9eb5bcErxkr ijEBrAHvmu9x9vs1MKdpwPv+uzj87vu4RF4Ut20DRKc2wOCj92H88fsw+uQ9 GH78Lk589Ecc/4BZ/KutuGLkh6uXMuFwJRO3qFQeUqW4umTBwyMLXgSxb3Ah YlLbEJPSDklCB7qiO1Ab3ALXW/Vwd5TD3b0JXlSXfpY58LOqhp9NE/wJ4MC7 SiaYUWSEzhE+CyiKX0RZyiIq0xdRK1qENHsRaf7NqAiqxWgMs3KcCAvxuWgu ncaAdAGqxhmoZASwjJm7kQygs+01gO/p5o8k35aTPasgDhtGccIoajLHIc+b REfJFJTlMxisnkG8dwVGihqQ6hyGZLdiCq86ZHg2I9+7E2WPVKgLGURT5BA6 YgYxIprGdOEC5ksWkHbaF0N3YvFnMu//kZuCpYppzJF/TZWNQinqQA5zVdb9 KGTdCoDoujOcjUxxlqNsZewKe6tY3LhTiHvOhXDyKISLD4++eXC8H45bl2/g ut4m2FLLWh9icSdCy33jkHzFEfbb98Ly0GFYGxown755xOuge8R7x/TNpMlV ml1Q39XsOuV0Xng8y7wnoFb/GG6fNYH7ORM8opANOa2PcOPDKDIzw+Wv1uL0 e5/A/IuvEWyoRw2+F0c3rce+1euh9916GG7dhfN7D+HCvoMwJ1G5QJJivm8v zPfy93u2wfa8MB3OEIHeTv9Fh8qLRkc0Lc2siEqTLetxkog8TUSarVmD89+v heX362Dy5Zc4/MF75A4f4d4n3yPtwCY47viaHOIDnPz0A5z6jOj89D2c0CDz D0Tm7/nzB7Dbq49L+ldgZXoHFuRxVnfFsH0ohp3ZDURdCkOuZRRaI5Xoiu2D MnEAA8kDkEUp4X5PAU/XNjL3NvieF5NfVTK1Cmm1AwH3ehHu3IfU0GkKqxnk x8+gJGUW5RmzqBLNojabzDxPgE01pFG1mEsvx/8sz4e6YQ79MqF7LBNXExl7 Exm7TIGF8bHfonIP5kdeINmpF+mPhV0i1ShNHUYdJXdTwSg6SsfRW0mUSoaY 1fOR6JSGRJcyJLk1It2zDXm+vSgjY6gLH0ZTzBi6kicxWfiUefEZcm+ko8k+ Hs9Dxfjn3Fy8rFRjuWYR89VzmK6awmBhP6pDy5HpGI/MB6HIuuOFIHMrnNl+ iLnnEOz1zuDWMXPc0zeHo5EFHuqb4sbeo7AjDbXX4+ge3gVrQdcd3o8q5tA+ iqBIu4e4ume/hoJe/vXjShPtxIObOlRq5vO/edSh3RlJs0OvI+vy2xrKa6N3 DDYHDUmlT+EmGcJNvj/o+k3s+HQNdn5EKvru77Djo7f5+m2YbTuAw9+uw+b3 PsCWDz7ED7S9X38No207YEpkmu7fB9N9u3GGed3X5S6GWOVfQ7JYnKlZp2Gl W9tk/D2rPCu8KRPkWULSfM06XFqzHtbr1sPo009g8O7n8Fm9DlkntsBx91fQ F+D4OaEp7FbE1wafvgv9T/4IfQGaH76Dixu+xUUmVst9zOGHKAv26cN4k9Dg 2BAigxBUn/BG3YH76KSE6U8dhzpjAqNZE2hOGIbnw3ZS3i54XiyEz9ly+Fo1 wvdaO/zv9iDEWYk4/0FkRE0gO34CBRz7kvRJlIsmUZU9iZq8CUjS+pEeUY/h qmb8U1c9BmRT6FNMQNVMittMMdnci57GJqJQA8n7msNOzI/9iESPAaJejZx4 QjJDjdocNeRFarSWDqOzchgl0WWIfyBGvFMlISlHmkcncv37IAkZRk3UOJqT pjFc8AyTJS/Rk6RG4cV4TPvlUcWV4KfSWjyte47luhXM1y1hupYUIVeFxngZ KgjJXM8kwtIfKQ43cGrbYZjtOoILe47ish5L8NHTVFKncZHl0WzrNljt3wEb QtHq6GF4WF1BfXQJ1Pm96MtugypDChuSQOtdu2FloK+dbHpSN9lUB8dfZpdr 7+QLkNRsIIl3NI/errFqW+sdgTWRaH3wFBF5BlcOmuH64bO4aWyPr//4Dtb8 keLnD0xAH7KMfv0BLHYcxEXape0HYbphO/SZL08QMce/XQtDsoowMp+wO25Q peVjoavzv+o2W9euq32zyO7U98yNBKEZQXieILRcux5W6zbAdv1GmH31Dcze /wbhWzZBbLKFIPyA4BO2xDIkFL/VAlHYFZdgNBDA+Mnv+Tmfw3TzWnryACwO GdFMcHbfYTwwy4PfyTTknEtGg3kUOs38oHIpwQjlx3jOAibzFtCWMoG4gH64 36cGM5HA20IK7yut8LnTRd3WhUg/FZIjh5ERO4KcpFEUpI2iOHMUpdmjqMgd QWX+MOqLB9AiVaFPNg6lYhS9LSNQtqppQ+hp7sHc1LQOhw80B1PMjf+EWO8h JIWrIUpQo5g4rCQO6wvVkJWqkRdRTlWXg9iHNYhzbqYg6oE4YBDFYaOoY6ZW 5T7HcNFLTJb+hLgLceh1zsfLlAq8KpHgecNPeNrwCssNzzEvXcF0PcVWVg8a E1tQFydDbWwNSgISkXLvNvS3HcHJncdguuc4zu07DvMDx3F2z0EYbNiKsxQU Fw/uhMWRg0h3j8Fs+RQmSscwXDKI/oIeqKhg42664aoe6RyLtRUFjg2FkDAX UjtXSjsXUpjwfIcYvHvu5K9uVGtuVms2Mb+sdwKXD56EFQFoffAs7A+fx7H1 W2G0VQ9H1m/Djo+/ht7vvsKddz9B0Or3Yb11J2x2HoYtU7kNzZqAvEzCcXHb flhs3YsLm3ahLCiF5yfBkrJXdwt0J6x0q7uFRSPnd++AyXffU/CsZSpchwtM g5ZEoDURaLdhI85+vRr2rNCJe7dAfHYzEfehdsdWza6tRKRgQlr8nEj8jGnx sz/g2Cdvw2TjWpwics8eIAsgrY12kqAibAKRN+XwvpCHHLs8KK5lYuBqDEbu Z2Asrh/TRU8xU7yCmZIlNGdNIvJuE9zN6uBh0wzPm23wZqp87NaC2LABJEcP ICNhEOKUQeSlD6IwaxDSomF0VY2ju24M3Y0j6GZV7mIK7CICu1uF4yAG+4b3 ahH4UHM4g9mJn1BImhcTqUYqs1hOlhpFeWqUlaiRzkwVeUt4mFaLSAqfeE8l MgLUqIij6BE/hTL/JVHwE1JvFaPGIQ/z0VX4saQWz+vn8Uz2T3gq+wnLspeY b3yGqYYlKFI60ZjcgbqkZtQl1kMaX4I6Sn0/eiH4ZjwMdjMnEH2nD5zA4U07 cfyHnUi544KO2FSsVK9gqXoZs9XzmKycwkjZCAZK+rQP1PLqYcK0c24v6SOp 4mVSRVvNbD0dAiliXs/vERB455wWhcLNWeHWrD3Rd4mZ99JBE9pZIvAC6d9a HGVqO7ntIM7sOIRzRNru330NO0EGc9Ttt24iPd2PK7uP0A7Dfvch2O4+yEx8 AFY7KGK274HlDztQHhKNpf6+11vO/7LOWLfcyPKQngaApvy6swSf+doNuLhu I6w3bILdxk0w/uxbOH69HhlHt8Jpz+pVMPj8IyH7faHdNVjAn4HGmA0/J/4+ p4757B0YbVwHo82bNQ2zwx8UoyCYWSpyBg3UHJLAUcTcl5MOVUDhyCzoJMLM 3WhMhTZgtvQFZsqeMr6XoJbMIs2B2sVKgUcObXC92wIvZwXCgnoRHUEkJPSh MGMAEtEA5CXDaK4YRmsN66eUJlOjpYlG/LUSey00WZNynxZ7TprDVkzP/Iyc omlEJKuRIFIjLV+NTOIu+FouQm7WIeRBG1IDhlCeMIuG9GW0Zj9Db8ELyBKp oqyzMBhIqZ9Xh5XaQaw0MtvJf8QKbUn+CnPy55hqfAJFajcaUrtQm9qKupQG SJMkqI+XozltEd2iFQzmPcc4M2ilrxzpVwqgjKrH0+JarFRNYqXuBZbqSDZr lzBZM4eRqgkMlA1BJemGqlgGSXAkzPbs1cxNucTKe5lZz/aUMC+FuDvzZl6K MCvl1lnjVZrd297R3Ka00T8Ii/0cfz1TWOid12wgcYCKw5jJzoT89OyOwzDf eQSHPlyP87/7Er4ffwSPzatxfcd2XCdHvbZPMEKP6sSOiVpLAshJd+7Epa1b sTTU/190D5VLCLnLBm+Wtwpz4U2+E6ruOpwTIEe4XWK+sybc7DdthtGHX+MR 4Sc6uQ2BxzfjIhWMwRcfweBL4aaPwZcf4jP++wH0iTn9L96D/pfE3Be/x/H1 63D/1C2IHnVBTKpfEDqBiuh5NCQ+QXvac/SKXqEgcEjTMEfuS43rL8GyTwaW AwswxawzUbECdfki+llfkom1kGttCL3finBXGTJj1chN1tZHYbvZqgLyNYka UlL+hlo1Gom5BmJOSsytQgNR9xa6+6bx9PkrjRd0Sc9Nc9gEWe8KmvpWkHCv GCJ3BUT+KuSFj6GMQKunHG/JfoIeqoxA8xTI3Uowm1GL5apWLDa8YEJ7gSdy WtNzLDY9w6z8KSZly5Cn90Ca0Y3aDAItowH1qUyKCQRaxhN05zzHYMErjDNZ hppnoca3HlM5CjytHsZT6c9YkRK00heYlQr3QBcwXEPJXyk8BumFqlwBVUkp 6rLSYH7cABYGhrhoLICN2pMJzp4J7uoZ3UQogs1BAJqDBmgOlKdWzG1ndu/G WWpHY+aynV9+AcMfDmhen9l+GOd3HIUlK7/x1ztg8PY3cHn/Mzxe/yVu7tmu 2R/MgXbjAMF24Aiu7ifY9lG47NunuVdvvWsrghyuaoH2A0pEOqDpFl0IjwhM iGtTDdA2aIB2kcCy3riZVG8dzrOwRu38AaKz23Br6xbc1hgBt/ZbFuFvNXsk CrugnvjqfZxa/THOr/0clzZ8iYcHzyFNGDm/HogChpFP6VoRu4iG5KdoyyAZ z/4J/fk/Q8EQzw/tRV2IHMORNVgJL8SLgGRMJcmgrlxGX/Ws5lZ4QWgrAm60 4PEDGeKFMkgiJkoj+RKzFBJoEgKtvIJlj8mtop6vGwWQlcsFkLUopzVXL5gu u3noJgb31o4iy7kJIl8lssNGIImfRm36HBTZCwh2KET+rQIMxlZjVlKH6bpx zDWsYEHGKtck2BMsNC1jRr6ECfkCZBldkGYxi2URXJn1qE4tRG3yAhSZK+jO fYnBoh9R7N+BtDtV6EluwWK5DE8EYDX8jCfMjIuNLzHb8AwT0iUM182gv1b3 BKC6GaqyUrxann8zG8DQEJbGRA4zmbWJMWxPa6fsXCHArjKTXROM+BJuzV0+ dQyndu4id9yHPd98B/3N+2D0gx41zSGYbj8Cc6Lr0q5jOL/pAA69sxo33/0K kRzKGweOrMJNveP4OzhQBd/QO4rreodxRe8g7PT2w3b/bthSyV45uBsjKiX+ s64nV4koE5f1XyNMX3PX0mzTFi3CWDnNmcYuMo1ZM42ZfrsG175cj6RD2xBn slWDsFvbiLBtW5iIt23GF7i5bRMctm7E9a3rcW3bOlzdtgb2P6zGw0PnkOFY CZG3FmB54TMoj1uCNOUpWjJfMJxfoo/hPFTyijzkFXLDOlAWJcdAkhRPksvw l3QxpquH0Fc/B5VU2DtLCVW9DNX5fQgJGUJ4jBqxKWokM+tlkGuJitXILqNV 0QiynDpms+4ZLD/7mTj6Fai+wvzoCtKF4u1FIRBC0Rk7QTBMQSaegcvlYtQG 12Ekvx6jVb2YqF8k7VrEjGyR5VCwBWareUzJ5zCmmEFn+SDqRB2oFSlQk1WL ksQq1CQvoilrBV15zyClPg+4nI+qYDnGilowXzOAJUFQEExPSOsWmAlnGp9i vGEZ6oZZ9DcId9cJqrpm9FaU6KaZvKN5sH3eUPtg25KgshJaHRFQNgSULTOW LQH164Wll4+dg+NZT5zYsJuA2q8BlAlF8lkCymLnUVgRULZ7juHAH76H1bvf IOjLz+C3i6Mq7GP2d7h56BgcDh3FDWqRa4cO4cqhA7A/uAd2+7fD4cQBRDjf 0wHqBxQTUFb6x3QPcvQ1NxqtDh/+BVAXCChLAkrYavzkur24sess/I0vwOXY USJnCxGkBdUt4ukmzYGIurGNiNq+Ade26xC1dTWq7gRB5FoPkUc36+Mwcomo 0rgFMhIylKyn6Mh9it7CZ+iXPIO67BlGK5+is3AaebGNUGbL8ZemRrIZIkq4 4yYnouQsDA2NhMOQ5kqaWleg6FqBf9IQgjPVCMtVI4KpS9iCUdiKcW7lJxzS IslTNy+sPLIX6a7dyHpMCRE9grLkUdRnjaMkZQjpya1oL2vDQNUMhmtnMSad xQRHeLJxhrWOJp8mgiYx3DKB1golakStqBaREGVUoSBWheqUeciyltCR9wSh t8qQ7FSL9swWTFV3YU76DAsNz1ZhUfYUf4t5Zrxpls+xxkUMyWfRJ1ydjPEi bcJIu0K7dOrjXx7bmrHynT9lCHNSLIszxJMpzYyvzQzh5+Wsue+lZHJ7eMoV +ut3w2AT8bPlIE5vfYOfy7uJn33HcGbNTpi89x28PvsSYVu/026WdVi7j85N 2o0jR3D9yCFNT/4rh/bg2pE9uMuEd8v48H/WbUwjdAuzOnFUt4JBix/hluC5 LdTNxM+lQ2dx2cwN9rQrJ13gcsYNfuc94GriDkcDdzw46ob7e8/hFhWGA/Fz Y/smYmcjru3YgKs7iJ/t38N222qM1rYi62E1RC4dJCtDrCeTKImbo6MX0JhF wpK7hK7CJTLTZTJUcvfKJbLVRYzWLKC1fADjzX0Y4KCphFtjCjWtBz0NDcZa SHhpDl8g8U47Un0GkBmmRgGLYEX6MKTZI2guHEOHZBw9FePor57AYN0E1PUT GGkYx7CMphjDUMsI+luH0UOmX56lQAkpkCiqGflRZIHJVB5Zc2jLm4enXQkk kU0YKG3GeO04pupZ5ZhA5mRLtEXMyhYIsXmMNs1iUCGc8QhUTT3obZBhdnQY 2i2930JurviXwvuWrtnyApPjse+2Qn8dB36jduBNth7SDfwRWO05qhl4y20H cOL9Nbj/8TeIW/8ZB1w76JqNVoTIPnZY07T92lEO/GFGvf4BTePUO6eOYKSv V/NtAxx5ze7jQks52nkDbUu5VZqmcmtft5X75RwvHX+Dktc3jm1PWrGKuuL6 BTfcpt0zc4HraVeEnXNHrKUHHp9yx2Mjmr47/I+6w0/PDS67rhAdm4iOjbiy Yz1tHex3fI/HVyw131MZ3YbMh0SLTz9EIWMoiJlEefI0WcMM5DmzaCuYRVfJ HJRlc+ivoI8Z4oO10xiSThEhAjqYxFtIPVuG0KvoxtzkFH4Dk88xP/ISCU5K JFOaZUYRKiTmFSxl9Uw6TUVqtJUOo4tisIfsVlk7jL4GfhzZkpLA625Ro6NV KworJR3IjKxHln8/ciJIkBLGyZ4n0ZQzjVCfZkhIdnor28iGWa9YSiekc5hs mGMinNVkoTHCY7h5Ev0tY7rT7UJbff3f69BguHEnTqxhCdmwn2mAnOSHg0QC Ge8Ra1w8ZsMyYwtr2pEP18Huo+8Q9t0XeLRviw4FwjYgh+FAu36cSDimh2us HUKXTaGN7t3TRxHieh8+Lg9Y2jjy1FYWrzuOGWg7jr3ZgvoP2i2otR3HUExU WB3j+07ow+bUWThcfIC7tr64a+ONBxZucDN3g+dZFwSbuiHJ3AMpFh6IYr6I OUkjGqIN3BBx3A3hh90QtMcZt3YegN3O9bDduRZ2BzYLU7BX6aRfyi2KWndK 9cckGZEjKEocQ2X6OOrFE5DnMXcXTaBTMsHAnkBv9TiU9WNQykbpyWHNSPVo bh0NYqhvGCe1IPDW9UmcG/0RsW4DSAgihyGfySefKSUIagiCBoKgqZSqn+qs jeqsrYFGALQQAE3UZoI+q28aQlvPMPE6iDSvPmSSzOTHDaM8bYSnNwZF/jg6 Snha5RxgavGhWpabukmMSGky5p6mcQw1jzLnjKCXp9nTMoD2pg68eP4cf68r ccIKcONN+3Bi3X6YHbbCpbNesDvnRXXkjXtnvfHQ1BtOp71xX98Dd/Rc4LvF GIF793PUj5ApHMGNExz9E7o+78cOMP6P4YHQa9X0OEx3b8RxxqC5EfOJEUee dtnwTQMqO4Pjq4QNiFdp2k79X5odiIXmU9bMM2a79sDG2Az3rD3xwM4Xjva+ cOXRx8YH/hz9R6YuSDjrBrGlsFGUO5LN3FYhlXD4W6SwgCSddkPCSTfE67si Ws8Rt3btg63eFmFq71u6gRceuQkrS1J86N1QNcTUz0VCmGYOoy5nGLKCYShK hlm8h9HOEG3XjVCrcL+mRRue8iYVnj178XrgfTSHTzAz9iMK06cRwwFL5seK U8lCqZTKSDeqqJRqqZTqSWLrqZTqqJSq+bEVNAnpy+D4guZT5odfIPFhD1Ie MYNQcRUk8j2U9vU8tabCYbRJRtBVzoGtYvKvHUGflCZjFiEue1u0tzTbW4fQ rOhDd3cflYHwqe9pBvySgRXszb1w9YIXbvHoSPO44A3f894I4KAHctAfn/SE 7xFXBB90QYSeE9wO3eFAH2GIU+RywO2PH2SIn9A013xgpo9jG7/Bzq8+gP7O jZqBttI0BtVuSGuv6zm0CteEIRfaDP0e1xn7mh1pT2gbox7/8ivcvegMJ1tv ONv7wJ0j7mvnhyBbf0RYP0K4qReyLvhBdM4RyacdkWnuC5EFzdKH5sWfPZB+ 3h2pZq5IPeWMxBOOcDQ9gxHSnb/SPV2ZH3mFOCcV4v05MOFqZMXTsRycUhEH Jp+Dobtf0ijcL+F4N3BQpAptNNbIBzT3Sk5px9pPN9WrmcQst2AGkSQDSelq ZOZQoDC48xncBfyofI5zLsWKmB85MLHyVzqZNjfKM3HpR2Igc0M030bklZGV 1jI3NPLPFTyTVv55O/+sg2fSwTNp45k0c2jltAbFIDp6h/9vHeKuW9xhcvTB PVsfPKAzXC284GvurdkINYyjGsVwjjXzRhxHNvyEK2KPuSD1uBPimSSDD3ri 9tHTuGZ4FHfP6Gv2ahN6Jx7f9A32cESFZjKGOzfpej6+7iJ1gu/X7URKczDU NZcxFEzbVWaVZh/Sf8QD8xu4e+4unBnKrnbCcvcAPLYLQoRtKCItghjGQSi4 FIa8i16IMbyL7MuhyLUJRZ5NMC0IOTYBEF/2g9jaD9lW3hAz/JMuPfyb18u4 6MlCyrsoejKWpTaNnsxmli3geJaUcGwZbGUchDIpXzPYSmX0Yu/0ae0wPtLN fJ2c+QlNVAdtyhV0DqygoGEG3cMUebR29ZN/r7s3PcvILmZkxzKlpzClZzOl FxE85fyyan5ZPb9Myi9r4JdJ+UW1TQQWrUI2hOHJpf+mq7tzM0soL5DD83aI pq+EG82P9viSN4I5bJEctrgLwpZZ3kilpfF3KWasc6Ts2SbOEJ92Qfwpvue4 JzxOX8BDykJhGy47/f2aIdsrDBvtsrF2yH7dKETYY/KmkWYHAWN9/FHbMMT4 xC8mNAW6Y3IaHjbOcL/sBkcLd55fMHxtwxFqE41Ym1jEWkQjwzwapfbxkDgk oehWKopvJqPYIQElN+NpcSi9G4fiOzEouBmB/OuBKL8VjO4AEeVwj26m6X/E zNTPyMmbRkicGtFpaiRmc/wKGREMngyiP6OacdcxjSWq/DPaAYvXNchola8g JHQI0QzhVMadiHGXx8ApLFOjuIrGwClkfs2jSbuEj3g96fgjVBY0IC2yCCFu 8fCwY0EhtQhhmokm0hKtA5F8MRAZVkHI4DHrciCR9xhiq0dMP14oJAktteAQ XPLlzz5IMXaDx5lzmoWZGtd/Lcw6+ICvP9T1XNOu/76u2wZQs7XnSW2Pljua Pi13+e/vNZsB3j15QtOwxcXiCrxsXOHF8/Lg97tZhiLAOh4Rl5ORYJOG2PPx yLucgsqb6Si/lwXJvWyUPchGhaMYlU4iWibKndJR6piCwgcJKHdN0axZV0Xk oTMoGf9BN4V1Yv5nyHtX0NxHI+hnln/GWa2bE3VxIW99gubuFQQyS4azhMUQ 6DF0cw91RPfoyj9o3vbfyYL6kBGRj6zIYkqaUoIlAMGM32ibMCTaRCLdNgpi u2jkX41F0Y1YSG7GoPRWNMpuRSGXV1hi5Y8qa28Cygd5tn7IIaGLNb2JsySb b2l8+ncw3rlZt5r+hG5TRQN604CefNMb4y3Nmvo/4L7J6+3XTsDr8j1605MW BG8C+JF1IqIdChBlLUKCtRjpllkov5aDmvs5KHlQhDLHYlS6FKPKtQjVboWo ds9HhXsuylxFkIdVQpXeClWyFKqEUihjMvBqds5O67Qq3QT6+el5ZISJIIoo IKcsR3ZkLSJuJSPCJobfGIc020SIriQzLFIYNqkovZOKivupqHqQguoHyfRK HCRXwlFzNRjVNx6jyIEZkp7JZXm8tuugxh+r+O9HDKHXi5R/uyOdIT2iW6hs oluoTHtL02jgHTifM4e3lSO8rf1pkfChRx5fzkCBbzvK/LsRRY+kWBBD1/LQ 6kYx6lxBDFWiyr0C1Z4VqPEqR413KTpiWzCaN4zBnH6ohJV7Gc30Tg1UKflY 6ur6jVc+hrKlF1lh2fSKBOKIOk1znrLwVkQTycm26cgSNi1wEDFpiFF6PxuV D3NQ7ZSNOhcx6un7GqcMlN5MQA2xU38rDEX3oph4AlF41R0Jp22xh/7Y8/XH xMkW4kSfODHQLt02NsRNeuT26yWhWo+s+mXtNqNPWLztes4C3pfc4X05hBZH D6XhkXk6Eq+UIZ4WY5mDEKMo4pKjeJ74da1GR0w/6gPa0fC4HR3RfRhMo85i qHSn9KM3qx99eX1Q5XRAld0IlUiCscpy/MYte5AZlAJRGIESXoPs8CYUhneg MrwXFf5tSL2SC7GD0PC9EBJCs8KpGNWuxahzL4bUowgNnoWQeuWj9F4Gqu4m o+5+LModoxn0ERBf80Ca5RWc3rQWR9av1jzXsjPUuuW60LmRLtGukjXSbIF0 n6bZ/ki3BZLdzm24sXMr7uzaCpdjp+BxyhFepx/B53Qk/M8kIdQsA8kWhQi9 kEc1LsLD/eRsR8jZ9P0ReJKczdQf1eYBGPYuQRcZThdVTHtUHxQR3WgIbUNt kBwtSQqoCgma/Eoos9Jeu6ZS90BqYWoWWUFCC6YyiEIbkR3ajuJQJarDhyCL HkVjaB9ybpei6EE5Sp2JT7dK1HpU0SWVaPSphMy3Ag1+ZajyKEDFQzFkD1Mh c41HgUscxLf9kW53Gw8N3jzys6NrrhoZ4tIBPZzfsg1WP2yDvTC9aPVaWH70 Oa58/BVuffYNHny5Gq7froHn9xvgu2EL/PUtEUBmFXAuAr5n4ljCxYi0KkSG Qy2RU4VwyxI8PBQHd/0Y+J2MRJBpOJIsUzDkloM/x2RCGUs9GTuMrthBtEWr oIjsQkN4C6RhUtSHlqM1pQSqvKx/5R1hv2pRYC5EwTW0ZmSH9KAkbBA1kaNo ip9CZ8ocM0028vhNhdapKLFPheR6GotzGhof1UMeUIfGgGrU0EN590XII4AK WbDFdyMgusMKeM0RkZcsYfjpdzj+u89g8s6XMH/3G1h/+B2ufboWt7/aiAff ERwbdsBj6x747NoP//0H8fjwEQSR0AczM4UwDweZWSPgwmMEWMTD53wq/Cyy Ec54SrhTh0znNsQ7VCPuej1i7Svgd6kYQRb5/F0586tcM0msP34CffGj6GGl 74ztR0tMD+SxbZDFytAYw5GOzIU8MvY33tkHlbwbooAiekhK60BOUB8kYSOo jZ6CInEOqTerkHUiDH22YRi7+RgzvOLF+4FYcXyMFy4B+NHtEX708MMrTx+8 9PLAso8/ih4movBhFEoZXnl3vJB9/Rpsv9mOK2t24wZF9J1tB/FgzxE46R2H 61EDjrcRPE+eZNicgvdZE3hdOANPyzNwu3gGDy1Pwd3iFDzP28LnXCC8zido thf3vVSAIPsyVqgqyFKeoIj6T+TUhmKfTnSG9aMtsEuTcWTJfehNHcJAIsV/ 4jiUidSDicRPohKK5A40JcshT66CPD4PsqBEhp8Utr920adQyXoh8i+F6JGc rupGbvAgJBHjqIubhSJlEYEWEhQ6SDAaIsFsnAjLSSK8SBPh58ws/CU7A/8r Lx3/UpCKfylKwr+UkJiVRkMRko0S7yRUBaSiwDMIuU73cO2wEa4dO0nBYILr J0/j+pkzuGp6GjfMTHCXbrlzzgS3z5/CnbPGFB/Gb2m2cPijppe7y2kreJ8O gLfpa+8UIpDYibwpbB0xipKAYVSGjKLAW4maRz1oDe5Gd1AbemOG0Jc0gYHk cRpzcsoIupmX29OIn8wuNGcqoMiohiI1Fy2s1K0eeZiq7YPNrz30ueaplMin HCI/4QF4L3JJ+yWRk6hLmOefLqMifBJRLlJIExvRnlHHVF+HkcI6TEnqsFhR i6c1NXgurcJLWQVeKSRYkZaiJDAHRYFpKIsVI+dRKMQewgITI5w3Mta0Abhi bPSm/95pY9zRLDHQTuJ+oFtm8PCcxlOrNC/+qKH/Xsas5SasWmez4EMvPRa8 dLsO2T79KH48hPIQqpTAARR5dxIP3egK60R3SCuUCUMYTBnGQNoo+tKH0UMR 2iHuR2t2D1pyWtAirqG38tEVVYjuwAK0exMEEwuw/rWnPoFSSix5Mk17N9Nb SuQEj0ASNY3axEU0pVNHiZ+jP/8Vhot/xHjpj+jLXkYroduRPMliOYnelAke x/jzMHK9K5H/WIKisDzkh4jRWdqM3MAQ+Nnb/Obe8JXXPZB0szhvm/7r6e4P hLZjgo/epTwyphnB1YhlzCiaiEqH98V8+NtLEHmHOcJHiYKAfpSGDKIqgmou bACVAZ0EdAfjrgXKiBYMZg6jL4MmGkJPDssZq3tbfg+tBa15dZBnFUAVRxhE lqI3OAdqcaX1r4v9p8hyZbh5KLQPvINHURw9jRq6SJ7+BB3ZT6EqeAZl7jJz 2yiaE8fQTux2pY4x0kehShuBMm0YzRGdLJ4KdKTxrLLrIE2RoT6pktktDj72 1pqbplavu6qe/FddVTVuejP3+v6b1hXGeE/Xc1HomGEOj+OR8DJJhZdFDik0 U7JLG9K9u4hZJYqC+4n9QdRFDUHyiKcT3Im2qE4o41rpIFIfwUG5A+jK70N7 kRLtxXRSURta8qVoz6SDUlj3hYZaMcXojUjDi+k5XP61pz5C2gMqCZcmAqoX 2UEjKGLerkqahyxjUbMwvV00z1w+hEZWBUUiI5tKXIhwZdoQOegg+tIG0BLV Dnm4HB0Mz7a0OsgyGyFLK0dDghg2zNEX9h+Glb4BrDStKQ3ftKYUAGX6pgft Kk1zyg81HrtHF2nsvDAxjtTpgiEeHqdENkqG+3mxpnFCpJMCSZ7tyCSXzgtU QkKeUhXZD2nMIIofNaMxmphKbENXvBSd5M6dBXRTsRJtJb00xl1JO1rzFRgS KaHKJHtMk1NxVEGVmIPFjs7feOoAeqtHkPlAxvBjxQtUIz9yAhWJ05Cmz6Ix bZIcW4VqclNpfD+aEpn/klRoTepGZ3InuWono74XDYGM8tgGdKXXo00khSK7 AU1ZZZDG5iDA5C4Mv96KCweO/O+nDp7RecvM+JcJrEIqf90eTOj1p13XbahZ 0/1A/xGcT4vgY1eJ4PtNiHZtRbJ3B7IedaMguBelPN8qnm9VdA8k4QrISRJb 0xvRmtmA5mKyIwkrXKkSTZJeSIsIOIJsKJf5PpveErVBlUVtllGM0fKy16Cq 1oEq5ZYUma5d/KpB5ISPQhI/jrJ4ZpzATlKnblRE9bD69UCW0IvGhG6GYBdp VDeU6d0YFHVBSo7emlLPbMZjngzNeQ2Qi8vQGlmE9sfFcNh3BiYbd+OigXa2 m/X/brabZqalsOT9Fp30gWbC261fVuQa/bIi1+GUBULtZfC1lsL/pgLBjm2I du9Akk8XRI+7NdN2JNFKVCaqUBzbDkmiAg2ZTZCJGyAtJEmQ9KG+VIUaAmqw eBxjxVNQFzLJ5w+QTHbTmlivKtCbkfpbN32MhZHnSL3fgXThQafw0IHcNNmr CVkBLSgI4VdFdKAqhu6I70JdfA/5Rg86iKJeUS96stpRF1PDKluHzrwqNBe2 Ql7AuMsoR19MNXqph7tDimC0eitMdx2AJWPvkrG24Zztr+ZqXTf9pfONdq7W +5q5Wjd0yzWv00vX6KUQb0fNSQfYlsPTrhk+t9sR6NSJSAZDIglBJuVCbowK hUmkf+l9EDHsijJaUJmjQFWOFBWF3ShhhhqSzGK6dAljkjmoSybRVzwMFcGm KqbYL6KkzcnSOalGhyUJyViSiwopAUOI8+1EjLsMKQJPCGpBflgbSiPbUR3T gdqEHjSmKtEqUqErTwVpqpyJrBZNTN3NBfVoZF5sypFjNLUZQ8ky9CXUMy+W QxmaD4eDJ3FB31Az3+iisa7zCBOUnW6+0VUz7XyjVZrZRn/9y1LAq/TOlfMG KCsQYZXupkSWTw7C7jTA+Wo7XO93ws+9G2HkNLEhSiTTQxmJfRCn9yMzrRfx ya0Qi1tRkNOM+vRqzJW/oD3DdPkTjJUvYKhsBn1lpFXlFP7lTFBlPOfCnNc4 qtXhqCRqGPGeg/C51YBgJzmiPZuR7N9KTddOF3UQvpS6CSwfaZSEYiUacrpQ xMsvTaPuyaMVMvrzmaFEHRgX9WCYubA/jaUjmV8XK4EyMgtJXv7alhCkUBbE 0CW66DLdY0P32BJDdnSRnXb2zCrNYrS3EOTjLCyS1JzkL97xzCEFqGdh7kCw sxJebiq4svT4BaoQHNGHiLh+RCf3IyZ9ABGpHPUYJh6RAv+UU4pn4hbMVr7A VOVTCvxlDFXOoa9qAqrqQVoXVFUNUJbkvvZOne7RW0lSF9xsG+B1pwmPXVoR 6d2OxIAOZISyyEZ3oTCxGxJ6pkxoX5Dbg7SYOhRkNKI8txH1uZ2YyxvFTN4w JnMHMZKjwoCY+TyDQZ1CuCbmY6S4XPNN+WIxzIQJF/SMOSPMkgL/oim9cclM 8MZF0uxH3s4ozhfrGna+jQxXEcsJveElzKUYQE7IOEqjZsl7l5AUPYmMBOFp +bJmwuZIyStkM3+2pbfiZYkMf8nPx1LJMKaqnmK0+gkGa+bRVzcJVT0Lcz3z Tm0Dxlplv/XG21ApOomVAvjck8Hpfht8mOpC/LoQE9KNJKbldKZkUWovxFlK pKd3IDqmAamsizOZuVgomqPNYJYpbqpwDKMF5LR5rAbZ7awGjfRKGXqTUnWP gf4auTli5OfS8sQoyNMeXze/UNUPQuRaS5bGS/fTXnpJ1JyGyMrTnpB3rKAn 7yn6C59BLXmG0bJnSA+SYYSV6M/VdfhzdiYma5YxUruIQekcVI28dBkvvZFA qJdicWz4/3PpTSzcjwuZOSiCfVqZ03rwyKcXHsxfAczyITFKhCWoEJ6sQvpj BbKcJJiILcOrnCosSZaxWLqIudI5qo4pjJaMYbCIuCMtVeU2M29Vk0KIdc97 f8evX0KWozBLpo1Y7ycJHSMJnUF14jwa0xdI95eYpZagLFrGQMky1GXLaMud QGl6M5ZrmvHPDZUYr5vHsDCZTTbNcx+n8fvkZH8NDda/vrJ30Cenfnok4dXJ IH7cyTo7gNKwUdTHTqEleR7d6cQQHTqa+wypV0tQ4VqOReab58XdWGK+WapY wVzFEqbK5+joSQxKSL6L+5iVObBFTAK5+Zjpafl73V3o6ph2ZD1sQZaXCuLA EeRHTaJcgGraDJpEs7yQOXQXckxK5jFQNo+hijl00GHN5W1Yam3HSMMUhuQT 6BMmeDSP0AagJC6He7rxr65MWGEs8qMy9FdAHNCDvKAhlJF41cfPooXauSdz BYM5zzGa/xKhZNBNgVI8zavHCq9iibliqeoZ5qpWGCWLGK2YwWA5/VjOylxO mJQRskVFeLk4+/rKFkaeIu2OAhluvcgMUCM7fATF8WOoTBmHNGsSipxJtBdM oZsRoCydQl/5FAaq6LDaCaJwHIOyMV4V9UPLsHa5VQvJeVM7Xjx79tsrIxob eGXeFcyGWiWXFzTM2J9CPTVvMwOgR/QMg7kvoYgbRcyVCvTEKfBCUo/Fqh+x VP0KizUvMVfzDJPVyxitmsMgT0NVraYRkVUksqXFugcx/4Du8mmkPOxGmu8g 0kk0cmPUTIvDqMoYgVQ8iiamuFZylk7JKN87qqG6ynpa4zB6m0j4m7Xrdrpb h9DR3IfpqdnXEv715Wi6ObnzcjxbeDkqxvMISqm66hjPzRph+gz9eS9QyMSf 5lgHdWYznla0YZ6XsVj7Agu1zzFby8upfcKYXsBAndAngeSgnpdTK0dvRRH+ H92UgtKIISS6kRZwhNKpIXPieDnUJZWZwnN7NWQF2ge7LRVqtNVQs0h1UwoU /J1uSkFzC6WTcuT1vZp6XdxmOlNbu3FEfIVLGEUJY7Y2cQGKjGV0Zj9hvK8g 9m41Ch41YrKwmSPRh9map5irZQTVPcFM3TIm6pYwLJ1HfyMvoZEj0shLkDJ1 tTX9g+4BeVH0MGI9SGioI1Ij1RAnqFGYrkaZWLug4P/0gFwqTFfhsbVn9PVN 3NdnXk1NmOWkFXJiCrli1o/qpFkSwnkKuQX05C/C276AdL8JsxW0yg5M1Szx jBdpC5iqn8dYwxyGZOQcTayqTUOajKlsaMTc2PA/ar7mv2oWaYV5DyIyVI0E +j2dWjCHZ13Isy6RaB8Dl+seA5fx4stk/H3DEFae/wz7X58xg230KTLuyZHl 0cPMNURBNc40MklBNU1hNIOO/Fk8ul1BKdlM/zZoUD5eM4eJ2llM1M9gvGEa I3IGn2Jct8h2kGmESkIqJSC1Tz6bFSvIZskKpXSNzVAjmfBIL1Ijs5RGB2cy Yuq6eMXjK7iqPT2p5vCPqIhkBXTuRob/IPPAMEriRlCVOoYG0ThamKrFUV0o yW1l4HVhsHIS6mphWpBuKqKc5UFBEfCrPNDd1ImXz1/8QVccG7tWoFCuoKV/ Ba2DtKEV3Pj1GfwD5tTPkEiineo1gPTgIbIVNSRJalRnDKNRmAyZP0I9O4Lu 0lEoK0bQx7Dtq9fNT2HY9v46bFv60accRJj2Kxp0oTQ38hLxD5VI8htCWpgu lDikVVkEmzCJrpAhw2Ft47B2EIydBGMnwdiueDM7RwglpWoM4dqPbtRhXJh6 Ee3Sj9hHaqToMF5EjJcTLdVESz0/tpFDIOfHyvmxMrkw3eINxjuUk4jQfqRc NwchL30KEcFqxDF/pTPgs0UEXj6dUkKg6YBXrlsWIcw/kPConnwSqf2UJh0m pqd+RnPbCoKEp+E8oSTd0/BMnlAmPyWzij9XDmkwEa3901bN4a8g6+GgvXmK G6f9X820Spt/e/1vr//t9b+9/v/3a/y7/xcvXqYL\ \>"]], Cell[BoxData[ Graphics3DBox[{ {RGBColor[0.4, 0.2666666666666667, 0.13333333333333336`], Opacity[0.8], SphereBox[{0.8207646935799999, 2.0278649706, 1.73903924876}, 0.255]}, {RGBColor[0.4, 0.2666666666666667, 0.13333333333333336`], Opacity[0.8], SphereBox[{3.3073984452, 1.06567318318, 0.5237375609}, 0.255]}, {RGBColor[0.4, 0.2666666666666667, 0.13333333333333336`], Opacity[0.8], SphereBox[{-1.61359923688, 0.59437551878, 0.9582422600799999}, 0.255]}, {RGBColor[0.4, 0.2666666666666667, 0.13333333333333336`], Opacity[0.8], SphereBox[{-1.8057843710800001`, 0.6447556139399999, -1.9724959987999997`}, 0.255]}, {RGBColor[0.4, 0.2666666666666667, 0.13333333333333336`], Opacity[0.8], SphereBox[{5.239832252799999, 2.8406361232, 1.73371022144}, 0.255]}, {RGBColor[0.4, 0.2666666666666667, 0.13333333333333336`], Opacity[0.8], SphereBox[{-4.309331170399999, -0.59690775162, -2.9302091355999997`}, 0.255]}, {RGBColor[0.4, 0.2666666666666667, 0.13333333333333336`], Opacity[0.8], SphereBox[{1.4827735059, 2.2179714061999998`, 4.4886661678}, 0.255]}, {RGBColor[0.4, 0.2666666666666667, 0.13333333333333336`], Opacity[0.8], SphereBox[{2.962145505, 1.14220708618, -2.3672597601999996`}, 0.255]}, {RGBColor[0.4, 0.2666666666666667, 0.13333333333333336`], Opacity[0.8], SphereBox[{4.2775837736, 2.9976723537999996`, 4.5005714416}, 0.255]}, {RGBColor[0.4, 0.2666666666666667, 0.13333333333333336`], Opacity[0.8], SphereBox[{-1.9409375745999997`, -2.0747301754, 2.1006194216}, 0.255]}, {RGBColor[0.4, 0.2666666666666667, 0.13333333333333336`], Opacity[0.8], SphereBox[{0.6504247919399999, -0.32340770764, -3.0855446127999997`}, 0.255]}, {RGBColor[0.4, 0.2666666666666667, 0.13333333333333336`], Opacity[0.8], SphereBox[{3.9550075453999995`, -1.6268651134, 1.3405527271399997`}, 0.255]}, {RGBColor[0.4, 0.2666666666666667, 0.13333333333333336`], Opacity[0.8], SphereBox[{-5.041411022799999, -2.8549980408, -1.3536107337999999`}, 0.255]}, {RGBColor[0.4, 0.2666666666666667, 0.13333333333333336`], Opacity[0.8], SphereBox[{-2.9632793405999998`, -4.0665013794, 0.22727734601999997`}, 0.255]}, {RGBColor[0.4, 0.2666666666666667, 0.13333333333333336`], Opacity[0.8], SphereBox[{-6.533916617599999, 1.3064809673599997`, -2.7266856454}, 0.255]}, {RGBColor[0.4, 0.2666666666666667, 0.13333333333333336`], Opacity[0.8], SphereBox[{-4.1010833652, -1.3850368771800001`, -5.707161492599999}, 0.255]}, {RGBColor[0.4, 0.2666666666666667, 0.13333333333333336`], Opacity[0.8], SphereBox[{7.984092349999999, 2.0208729844, 1.5250277792599998`}, 0.255]}, {RGBColor[0.4, 0.2666666666666667, 0.13333333333333336`], Opacity[0.8], SphereBox[{-9.0576456906, 0.14869498003599999`, -3.6018177559999995`}, 0.255]}, {RGBColor[0.4, 0.2666666666666667, 0.13333333333333336`], Opacity[0.8], SphereBox[{-7.4173635226, -3.7745387124, -1.27696344724}, 0.255]}, {RGBColor[0.4, 0.2666666666666667, 0.13333333333333336`], Opacity[0.8], SphereBox[{-9.5102350676, -2.4621240053999998`, -2.5490514013999994`}, 0.255]}, {RGBColor[0.4, 0.2666666666666667, 0.13333333333333336`], Opacity[0.8], SphereBox[{9.007945896799999, 0.31654800226, 3.5730939208}, 0.255]}, {RGBColor[1, NCache[ Rational[1, 3], 0.3333333333333333], NCache[ Rational[1, 3], 0.3333333333333333]], Opacity[0.8], SphereBox[{5.1100080766, 5.2984137588, 0.6941908460999999}, 0.178]}, {RGBColor[1, NCache[ Rational[1, 3], 0.3333333333333333], NCache[ Rational[1, 3], 0.3333333333333333]], Opacity[0.8], SphereBox[{0.76584925602, -2.1319888731999996`, -4.4699578804}, 0.178]}, {RGBColor[1, NCache[ Rational[1, 3], 0.3333333333333333], NCache[ Rational[1, 3], 0.3333333333333333]], Opacity[0.8], SphereBox[{9.276286988799999, 2.7047648237999997`, -0.20067000393999998`}, 0.178]}, {RGBColor[1, NCache[ Rational[1, 3], 0.3333333333333333], NCache[ Rational[1, 3], 0.3333333333333333]], Opacity[0.8], SphereBox[{10.832854294999999`, -1.31489024806, 2.5123907169999997`}, 0.178]}, {RGBColor[1, NCache[ Rational[1, 3], 0.3333333333333333], NCache[ Rational[1, 3], 0.3333333333333333]], Opacity[0.8], SphereBox[{-11.5496273668, -3.4625449498, -2.7401027}, 0.178]}, {RGBColor[1, 1, 1], Opacity[0.8], SphereBox[{0.2169405448, 3.8287738486, 1.04562319032}, 0.12]}, {RGBColor[1, 1, 1], Opacity[0.8], SphereBox[{-3.1828655018, 1.5730646141799998`, 1.7759644948}, 0.12]}, {RGBColor[1, 1, 1], Opacity[0.8], SphereBox[{-1.9891255876, 2.5348784563999995`, -2.667348249}, 0.12]}, {RGBColor[1, 1, 1], Opacity[0.8], SphereBox[{0.308970201, 3.5349214555999997`, 5.4768038932}, 0.12]}, {RGBColor[1, 1, 1], Opacity[0.8], SphereBox[{1.23225253008, 0.43588419916, 5.4108524558}, 0.12]}, {RGBColor[1, 1, 1], Opacity[0.8], SphereBox[{4.5810737692, 0.32274630354, -3.2592104321999997`}, 0.12]}, {RGBColor[1, 1, 1], Opacity[0.8], SphereBox[{2.7567322888, 3.0613561199999997`, -2.9700823541999997`}, 0.12]}, {RGBColor[1, 1, 1], Opacity[0.8], SphereBox[{4.4945243184, 4.871713628, 5.2281159516}, 0.12]}, {RGBColor[1, 1, 1], Opacity[0.8], SphereBox[{5.341121566399999, 1.7417982487199999`, 5.675414095799999}, 0.12]}, {RGBColor[1, 1, 1], Opacity[0.8], SphereBox[{-3.3142014588, -1.90862326, 3.5755505646}, 0.12]}, {RGBColor[1, 1, 1], Opacity[0.8], SphereBox[{-0.13934839523999998`, -2.7017412621999997`, 2.7710942063999995`}, 0.12]}, {RGBColor[1, 1, 1], Opacity[0.8], SphereBox[{2.4638247588, -2.8755960541999994`, 0.7883558926800001}, 0.12]}, {RGBColor[1, 1, 1], Opacity[0.8], SphereBox[{4.175349596999999, -1.68716627006, 3.349539335}, 0.12]}, {RGBColor[1, 1, 1], Opacity[0.8], SphereBox[{5.6793825204, -2.2032315434, 0.45576411667999994`}, 0.12]}, {RGBColor[1, 1, 1], Opacity[0.8], SphereBox[{-3.7002724806, -5.6542491645999995`, 1.2394901806599998`}, 0.12]}, {RGBColor[1, 1, 1], Opacity[0.8], SphereBox[{-1.4686194581599998`, -4.6974808908, -0.9797473419599999}, 0.12]}, {RGBColor[1, 1, 1], Opacity[0.8], SphereBox[{-6.1200666236, 2.875218109, -3.9334646689999997`}, 0.12]}, {RGBColor[1, 1, 1], Opacity[0.8], SphereBox[{-6.718542847799999, 1.8884220890599999`, -0.79920291992}, 0.12]}, {RGBColor[1, 1, 1], Opacity[0.8], SphereBox[{-5.883472928399999, -2.0994855859999997`, -6.340408675199999}, 0.12]}, {RGBColor[1, 1, 1], Opacity[0.8], SphereBox[{-2.6928595499999997`, -2.8238175618, -5.8957561474}, 0.12]}, {RGBColor[1, 1, 1], Opacity[0.8], SphereBox[{-3.5814087152, 0.21756415437999999`, -6.825690312}, 0.12]}, {RGBColor[1, 1, 1], Opacity[0.8], SphereBox[{6.194710800599999, 6.409761619399999, 1.63198627086}, 0.12]}, {RGBColor[1, 1, 1], Opacity[0.8], SphereBox[{-8.9811117876, -0.016094796342, -5.6156987542}, 0.12]}, {RGBColor[1, 1, 1], Opacity[0.8], SphereBox[{-10.5633793674, 1.35621855568, -2.9995620797999996`}, 0.12]}, {RGBColor[1, 1, 1], Opacity[0.8], SphereBox[{-7.786049065199999, -5.490031975199999, -0.27219613304}, 0.12]}, {RGBColor[1, 1, 1], Opacity[0.8], SphereBox[{9.8541651996, 1.43265797238, 5.031395475}, 0.12]}, {RGBColor[1, 1, 1], Opacity[0.8], SphereBox[{7.5005114666, -0.7748065572599999, 4.3635663066}, 0.12]}, {RGBColor[1, 1, 1], Opacity[0.8], SphereBox[{11.492746614199998`, -2.4050542802, 3.8036404928}, 0.12]}, Text3DBox["1", {0.22076469357999995`, 2.0278649706, 1.73903924876}, {1, 0}], Text3DBox["2", {2.7073984452, 1.06567318318, 0.5237375609}, {1, 0}], Text3DBox["3", {-2.21359923688, 0.59437551878, 0.9582422600799999}, {1, 0}], Text3DBox["4", {-2.40578437108, 0.6447556139399999, -1.9724959987999997`}, {1, 0}], Text3DBox["5", {4.6398322528, 2.8406361232, 1.73371022144}, {1, 0}], Text3DBox[ "6", {-4.909331170399999, -0.59690775162, -2.9302091355999997`}, {1, 0}], Text3DBox["7", {0.8827735059, 2.2179714061999998`, 4.4886661678}, {1, 0}], Text3DBox["8", {2.362145505, 1.14220708618, -2.3672597601999996`}, {1, 0}], Text3DBox["9", {3.6775837736, 2.9976723537999996`, 4.5005714416}, {1, 0}], Text3DBox["10", {-2.5409375745999996`, -2.0747301754, 2.1006194216}, {1, 0}], Text3DBox["11", { 0.050424791939999936`, -0.32340770764, -3.0855446127999997`}, {1, 0}], Text3DBox["12", {3.3550075453999995`, -1.6268651134, 1.3405527271399997`}, {1, 0}], Text3DBox[ "13", {-5.641411022799999, -2.8549980408, -1.3536107337999999`}, {1, 0}], Text3DBox["14", {-3.5632793406, -4.0665013794, 0.22727734601999997`}, {1, 0}], Text3DBox["15", {-7.133916617599999, 1.3064809673599997`, -2.7266856454}, {1, 0}], Text3DBox[ "16", {-4.7010833652, -1.3850368771800001`, -5.707161492599999}, {1, 0}], Text3DBox["17", {7.3840923499999995`, 2.0208729844, 1.5250277792599998`}, { 1, 0}], Text3DBox["18", {-9.657645690599999, 0.14869498003599999`, -3.6018177559999995`}, {1, 0}], Text3DBox["19", {-8.0173635226, -3.7745387124, -1.27696344724}, {1, 0}], Text3DBox[ "20", {-10.1102350676, -2.4621240053999998`, -2.5490514013999994`}, {1, 0}], Text3DBox["21", {8.4079458968, 0.31654800226, 3.5730939208}, {1, 0}], Text3DBox["22", {4.5100080766, 5.2984137588, 0.6941908460999999}, {1, 0}], Text3DBox["23", {0.16584925602, -2.1319888731999996`, -4.4699578804}, {1, 0}], Text3DBox["24", {8.6762869888, 2.7047648237999997`, -0.20067000393999998`}, {1, 0}], Text3DBox["25", {10.232854295, -1.31489024806, 2.5123907169999997`}, {1, 0}], Text3DBox["26", {-12.149627366799999`, -3.4625449498, -2.7401027}, { 1, 0}], Text3DBox["27", {-0.38305945519999995`, 3.8287738486, 1.04562319032}, {1, 0}], Text3DBox["28", {-3.7828655018, 1.5730646141799998`, 1.7759644948}, {1, 0}], Text3DBox["29", {-2.5891255876, 2.5348784563999995`, -2.667348249}, { 1, 0}], Text3DBox["30", {-0.291029799, 3.5349214555999997`, 5.4768038932}, {1, 0}], Text3DBox["31", {0.63225253008, 0.43588419916, 5.4108524558}, {1, 0}], Text3DBox["32", {3.9810737691999996`, 0.32274630354, -3.2592104321999997`}, {1, 0}], Text3DBox["33", {2.1567322888, 3.0613561199999997`, -2.9700823541999997`}, {1, 0}], Text3DBox["34", {3.8945243184, 4.871713628, 5.2281159516}, {1, 0}], Text3DBox["35", {4.7411215663999995`, 1.7417982487199999`, 5.675414095799999}, {1, 0}], Text3DBox["36", {-3.9142014588, -1.90862326, 3.5755505646}, {1, 0}], Text3DBox["37", {-0.73934839524, -2.7017412621999997`, 2.7710942063999995`}, {1, 0}], Text3DBox["38", {1.8638247587999999`, -2.8755960541999994`, 0.7883558926800001}, {1, 0}], Text3DBox["39", {3.5753495969999993`, -1.68716627006, 3.349539335}, {1, 0}], Text3DBox["40", {5.0793825204, -2.2032315434, 0.45576411667999994`}, {1, 0}], Text3DBox["41", {-4.3002724805999994`, -5.6542491645999995`, 1.2394901806599998`}, {1, 0}], Text3DBox[ "42", {-2.0686194581599997`, -4.6974808908, -0.9797473419599999}, {1, 0}], Text3DBox["43", {-6.720066623599999, 2.875218109, -3.9334646689999997`}, { 1, 0}], Text3DBox["44", {-7.318542847799999, 1.8884220890599999`, -0.79920291992}, {1, 0}], Text3DBox[ "45", {-6.483472928399999, -2.0994855859999997`, -6.340408675199999}, {1, 0}], Text3DBox[ "46", {-3.2928595499999997`, -2.8238175618, -5.8957561474}, {1, 0}], Text3DBox["47", {-4.1814087152, 0.21756415437999999`, -6.825690312}, {1, 0}], Text3DBox["48", {5.5947108006, 6.409761619399999, 1.63198627086}, {1, 0}], Text3DBox["49", {-9.5811117876, -0.016094796342, -5.6156987542}, {1, 0}], Text3DBox["50", {-11.1633793674, 1.35621855568, -2.9995620797999996`}, {1, 0}], Text3DBox[ "51", {-8.3860490652, -5.490031975199999, -0.27219613304}, {1, 0}], Text3DBox["52", {9.254165199600001, 1.43265797238, 5.031395475}, {1, 0}], Text3DBox["53", {6.9005114666, -0.7748065572599999, 4.3635663066}, {1, 0}], Text3DBox["54", {10.892746614199998`, -2.4050542802, 3.8036404928}, {1, 0}], {RGBColor[1., 0.75, 0.5], TubeBox[{{3.3073984452, 1.06567318318, 0.5237375609}, {0.8207646935799999, 2.0278649706, 1.73903924876}}, 0.15]}, {RGBColor[1., 0.75, 0.5], TubeBox[{{-1.61359923688, 0.59437551878, 0.9582422600799999}, { 0.8207646935799999, 2.0278649706, 1.73903924876}}, 0.15]}, {RGBColor[1., 0.75, 0.5], TubeBox[{{-1.8057843710800001`, 0.6447556139399999, -1.9724959987999997`}, {-1.61359923688, 0.59437551878, 0.9582422600799999}}, 0.15]}, {RGBColor[1., 0.75, 0.5], TubeBox[{{5.239832252799999, 2.8406361232, 1.73371022144}, {3.3073984452, 1.06567318318, 0.5237375609}}, 0.15]}, {RGBColor[1., 0.75, 0.5], TubeBox[{{-4.309331170399999, -0.59690775162, -2.9302091355999997`}, \ {-1.8057843710800001`, 0.6447556139399999, -1.9724959987999997`}}, 0.15]}, {RGBColor[1., 0.75, 0.5], TubeBox[{{1.4827735059, 2.2179714061999998`, 4.4886661678}, { 0.8207646935799999, 2.0278649706, 1.73903924876}}, 0.15]}, {RGBColor[1., 0.75, 0.5], TubeBox[{{2.962145505, 1.14220708618, -2.3672597601999996`}, { 3.3073984452, 1.06567318318, 0.5237375609}}, 0.15]}, {RGBColor[1., 0.75, 0.5], TubeBox[{{4.2775837736, 2.9976723537999996`, 4.5005714416}, { 5.239832252799999, 2.8406361232, 1.73371022144}}, 0.15]}, {RGBColor[1., 0.75, 0.5], TubeBox[{{4.2775837736, 2.9976723537999996`, 4.5005714416}, {1.4827735059, 2.2179714061999998`, 4.4886661678}}, 0.15]}, {RGBColor[1., 0.75, 0.5], TubeBox[{{-1.9409375745999997`, -2.0747301754, 2.1006194216}, {-1.61359923688, 0.59437551878, 0.9582422600799999}}, 0.15]}, {RGBColor[1., 0.75, 0.5], TubeBox[{{ 0.6504247919399999, -0.32340770764, -3.0855446127999997`}, \ {-1.8057843710800001`, 0.6447556139399999, -1.9724959987999997`}}, 0.15]}, {RGBColor[1., 0.75, 0.5], TubeBox[{{0.6504247919399999, -0.32340770764, -3.0855446127999997`}, { 2.962145505, 1.14220708618, -2.3672597601999996`}}, 0.15]}, {RGBColor[1., 0.75, 0.5], TubeBox[{{3.9550075453999995`, -1.6268651134, 1.3405527271399997`}, { 3.3073984452, 1.06567318318, 0.5237375609}}, 0.15]}, {RGBColor[1., 0.75, 0.5], TubeBox[{{-5.041411022799999, -2.8549980408, -1.3536107337999999`}, \ {-4.309331170399999, -0.59690775162, -2.9302091355999997`}}, 0.15]}, {RGBColor[1., 0.75, 0.5], TubeBox[{{-2.9632793405999998`, -4.0665013794, 0.22727734601999997`}, {-1.9409375745999997`, -2.0747301754, 2.1006194216}}, 0.15]}, {RGBColor[1., 0.75, 0.5], TubeBox[{{-2.9632793405999998`, -4.0665013794, 0.22727734601999997`}, {-5.041411022799999, -2.8549980408, \ -1.3536107337999999`}}, 0.15]}, {RGBColor[1., 0.75, 0.5], TubeBox[{{-6.533916617599999, 1.3064809673599997`, -2.7266856454}, {-4.309331170399999, \ -0.59690775162, -2.9302091355999997`}}, 0.15]}, {RGBColor[1., 0.75, 0.5], TubeBox[{{-4.1010833652, -1.3850368771800001`, -5.707161492599999}, \ {-4.309331170399999, -0.59690775162, -2.9302091355999997`}}, 0.15]}, {RGBColor[1., 0.75, 0.5], TubeBox[{{7.984092349999999, 2.0208729844, 1.5250277792599998`}, { 5.239832252799999, 2.8406361232, 1.73371022144}}, 0.15]}, {RGBColor[1., 0.75, 0.5], TubeBox[{{-9.0576456906, 0.14869498003599999`, -3.6018177559999995`}, {-6.533916617599999, 1.3064809673599997`, -2.7266856454}}, 0.15]}, {RGBColor[1., 0.75, 0.5], TubeBox[{{-7.4173635226, -3.7745387124, -1.27696344724}, \ {-5.041411022799999, -2.8549980408, -1.3536107337999999`}}, 0.15]}, {RGBColor[1., 0.75, 0.5], TubeBox[{{-9.5102350676, -2.4621240053999998`, -2.5490514013999994`}, \ {-9.0576456906, 0.14869498003599999`, -3.6018177559999995`}}, 0.15]}, {RGBColor[1., 0.75, 0.5], TubeBox[{{-9.5102350676, -2.4621240053999998`, -2.5490514013999994`}, \ {-7.4173635226, -3.7745387124, -1.27696344724}}, 0.15]}, {RGBColor[1., 0.75, 0.5], TubeBox[{{9.007945896799999, 0.31654800226, 3.5730939208}, { 7.984092349999999, 2.0208729844, 1.5250277792599998`}}, 0.15]}, {RGBColor[1., 0.75, 0.5], TubeBox[{{5.1100080766, 5.2984137588, 0.6941908460999999}, { 5.239832252799999, 2.8406361232, 1.73371022144}}, 0.15]}, {RGBColor[1., 0.75, 0.5], TubeBox[{{0.76584925602, -2.1319888731999996`, -4.4699578804}, { 0.6504247919399999, -0.32340770764, -3.0855446127999997`}}, 0.15]}, {RGBColor[1., 0.75, 0.5], TubeBox[{{9.276286988799999, 2.7047648237999997`, -0.20067000393999998`}, {7.984092349999999, 2.0208729844, 1.5250277792599998`}}, 0.15]}, {RGBColor[1., 0.75, 0.5], TubeBox[{{10.832854294999999`, -1.31489024806, 2.5123907169999997`}, { 9.007945896799999, 0.31654800226, 3.5730939208}}, 0.15]}, {RGBColor[1., 0.75, 0.5], TubeBox[{{-11.5496273668, -3.4625449498, -2.7401027}, {-9.5102350676, \ -2.4621240053999998`, -2.5490514013999994`}}, 0.15]}, {RGBColor[1., 0.75, 0.5], TubeBox[{{0.2169405448, 3.8287738486, 1.04562319032}, {0.8207646935799999, 2.0278649706, 1.73903924876}}, 0.15]}, {RGBColor[1., 0.75, 0.5], TubeBox[{{-3.1828655018, 1.5730646141799998`, 1.7759644948}, {-1.61359923688, 0.59437551878, 0.9582422600799999}}, 0.15]}, {RGBColor[1., 0.75, 0.5], TubeBox[{{-1.9891255876, 2.5348784563999995`, -2.667348249}, {-1.8057843710800001`, 0.6447556139399999, -1.9724959987999997`}}, 0.15]}, {RGBColor[1., 0.75, 0.5], TubeBox[{{0.308970201, 3.5349214555999997`, 5.4768038932}, {1.4827735059, 2.2179714061999998`, 4.4886661678}}, 0.15]}, {RGBColor[1., 0.75, 0.5], TubeBox[{{1.23225253008, 0.43588419916, 5.4108524558}, {1.4827735059, 2.2179714061999998`, 4.4886661678}}, 0.15]}, {RGBColor[1., 0.75, 0.5], TubeBox[{{4.5810737692, 0.32274630354, -3.2592104321999997`}, { 2.962145505, 1.14220708618, -2.3672597601999996`}}, 0.15]}, {RGBColor[1., 0.75, 0.5], TubeBox[{{2.7567322888, 3.0613561199999997`, -2.9700823541999997`}, { 2.962145505, 1.14220708618, -2.3672597601999996`}}, 0.15]}, {RGBColor[1., 0.75, 0.5], TubeBox[{{4.4945243184, 4.871713628, 5.2281159516}, {4.2775837736, 2.9976723537999996`, 4.5005714416}}, 0.15]}, {RGBColor[1., 0.75, 0.5], TubeBox[{{5.341121566399999, 1.7417982487199999`, 5.675414095799999}, { 4.2775837736, 2.9976723537999996`, 4.5005714416}}, 0.15]}, {RGBColor[1., 0.75, 0.5], TubeBox[{{-3.3142014588, -1.90862326, 3.5755505646}, {-1.9409375745999997`, -2.0747301754, 2.1006194216}}, 0.15]}, {RGBColor[1., 0.75, 0.5], TubeBox[{{-0.13934839523999998`, -2.7017412621999997`, 2.7710942063999995`}, {-1.9409375745999997`, -2.0747301754, 2.1006194216}}, 0.15]}, {RGBColor[1., 0.75, 0.5], TubeBox[{{2.4638247588, -2.8755960541999994`, 0.7883558926800001}, { 3.9550075453999995`, -1.6268651134, 1.3405527271399997`}}, 0.15]}, {RGBColor[1., 0.75, 0.5], TubeBox[{{4.175349596999999, -1.68716627006, 3.349539335}, { 3.9550075453999995`, -1.6268651134, 1.3405527271399997`}}, 0.15]}, {RGBColor[1., 0.75, 0.5], TubeBox[{{5.6793825204, -2.2032315434, 0.45576411667999994`}, { 3.9550075453999995`, -1.6268651134, 1.3405527271399997`}}, 0.15]}, {RGBColor[1., 0.75, 0.5], TubeBox[{{-3.7002724806, -5.6542491645999995`, 1.2394901806599998`}, {-2.9632793405999998`, -4.0665013794, 0.22727734601999997`}}, 0.15]}, {RGBColor[1., 0.75, 0.5], TubeBox[{{-1.4686194581599998`, -4.6974808908, -0.9797473419599999}, \ {-2.9632793405999998`, -4.0665013794, 0.22727734601999997`}}, 0.15]}, {RGBColor[1., 0.75, 0.5], TubeBox[{{-6.1200666236, 2.875218109, -3.9334646689999997`}, {-6.533916617599999, 1.3064809673599997`, -2.7266856454}}, 0.15]}, {RGBColor[1., 0.75, 0.5], TubeBox[{{-6.718542847799999, 1.8884220890599999`, -0.79920291992}, {-6.533916617599999, 1.3064809673599997`, -2.7266856454}}, 0.15]}, {RGBColor[1., 0.75, 0.5], TubeBox[{{-5.883472928399999, -2.0994855859999997`, -6.340408675199999}, \ {-4.1010833652, -1.3850368771800001`, -5.707161492599999}}, 0.15]}, {RGBColor[1., 0.75, 0.5], TubeBox[{{-2.6928595499999997`, -2.8238175618, -5.8957561474}, \ {-4.1010833652, -1.3850368771800001`, -5.707161492599999}}, 0.15]}, {RGBColor[1., 0.75, 0.5], TubeBox[{{-3.5814087152, 0.21756415437999999`, -6.825690312}, {-4.1010833652, \ -1.3850368771800001`, -5.707161492599999}}, 0.15]}, {RGBColor[1., 0.75, 0.5], TubeBox[{{6.194710800599999, 6.409761619399999, 1.63198627086}, { 5.1100080766, 5.2984137588, 0.6941908460999999}}, 0.15]}, {RGBColor[1., 0.75, 0.5], TubeBox[{{-8.9811117876, -0.016094796342, -5.6156987542}, {-9.0576456906, 0.14869498003599999`, -3.6018177559999995`}}, 0.15]}, {RGBColor[1., 0.75, 0.5], TubeBox[{{-10.5633793674, 1.35621855568, -2.9995620797999996`}, {-9.0576456906, 0.14869498003599999`, -3.6018177559999995`}}, 0.15]}, {RGBColor[1., 0.75, 0.5], TubeBox[{{-7.786049065199999, -5.490031975199999, -0.27219613304}, \ {-7.4173635226, -3.7745387124, -1.27696344724}}, 0.15]}, {RGBColor[1., 0.75, 0.5], TubeBox[{{9.8541651996, 1.43265797238, 5.031395475}, {9.007945896799999, 0.31654800226, 3.5730939208}}, 0.15]}, {RGBColor[1., 0.75, 0.5], TubeBox[{{7.5005114666, -0.7748065572599999, 4.3635663066}, { 9.007945896799999, 0.31654800226, 3.5730939208}}, 0.15]}, {RGBColor[1., 0.75, 0.5], TubeBox[{{11.492746614199998`, -2.4050542802, 3.8036404928}, { 10.832854294999999`, -1.31489024806, 2.5123907169999997`}}, 0.15]}}, AspectRatio->Automatic, Axes->Automatic, AxesLabel->{ FormBox["xl", TraditionalForm], FormBox["yl", TraditionalForm], FormBox["zl", TraditionalForm]}, Boxed->True, SphericalRegion->True]], "Output", CellChangeTimes->{3.574834506531407*^9, 3.580142419506414*^9},ImageCache->GraphicsData["CompressedBitmap", "\<\ eJzsvWV8FMnaB/o/C6zbWd9lWQ3uBEkgwSV4iBIPcSHu7k5cIAGCu0uCuyUh aIIGd4cFFlkgc6u6uyY1k57Anvd+uB9u/2hmujNdVY9LPVU9dlKgm7PXpEB3 x0m/jfCf5Ovm7hjw23Aff3Kr2X+A/7iR0+Y30O8KgP2nIP8U7vQ/euf//06/ 36EfzSh63qPf3qPfQsQ/3RU+mkPEnUK8Kf0OzVRuB/5/8onvpXsvXrxQ3rP8 1618K/309u3bSEtLg5mZGeLi4r5QIm4kh0kBf82U377lRrBr1y7hWeEP5J62 tjZatWqFI0eO4L8y/Q7niNVc+P6pSjsjRoxAeXk5nj59KrRx/fp14X5xcTEc HR3p/Q/EZ8nR4i0diIC3UALJGr98+bL0bHOcO3cOiYmJwv1p06Z9qbnJeuHj /UbDpcNkwyLNPn78GCkpKfjrr7+En9A/f6bEnYTWVxraIiSg1x9Lf2Zt0Sva noSBT2UGaSA2LPLEx0LD6mBTnLKWaIfk+mNp0LGxsXj27JlwtWDBAuHnDYOW 2n7GDZr+SA0BzaVRUYyyrj6SHuHbZ90TKpiJDT/RgA1p0F8Lf/5A2QiDy9vb m2EEpmJLj9RaYuBTvJLWRM79UPhzXl6ewKkcBAx0qbEHEgg8vKGhoQL70F/z FP5GAp526uHhgdOnT4sSQ/7n8A0TXlI1Qtyce5JByHrYvXs3Dh48KF019Ep/ R6+MxR5uNd3Dh9KTFK6tW7cKV19L906ePIn169dLAtLwO9oMvTISe7ihxg6U HBQ90oB/a6I1ChclCYVLau0qh2w5ZcBzplzTLWRQMUFseqNSqbV+d7RTItOr X6V7vCg2l/5nzdCDMIHU3RYZ6fxNTRMxXNFe2sv00EwaKGUt9lv6XcKtoeae WmkAkX6S645NdEbBZqimp6QSm+jsJ07baCIax8OscxcXF2UTH0j3mCDRq3Fi j5uUCugnDigZZc5oTzUPa7eDdI/XPKwvXqz4vmQtrUaF31OmB16s6ODo1Vix h81KaL6RBqPebm5urnJYvaWGVq1ahbNnz6o0zilQ1vihJhBEmnuPGxaT4l4y PXwk3aPai41kjNhDgHL4Er+wQ8CZoYxpYDyrJliML1j/vD5jNpQ+xrDCUCmN I1CNUJocnDFNi/oAGRXyASd0MrZytNhfkDRGvjM2kNFqlOXJwOAYJNPzJzLK a9S/g3cEJ4pyxooHhtwbKDMK5lbwXDKyEfVbqFCffR/eNLpHSE3fu3cPBQUF Kt3xxkDqLkwGwEEyPdBD6mGUjGL7TAatki8TqgRokEQzKja8GWM8SD9HN9E4 HY9kAFjjG5tGxnsc4EzKWA+8avyYa4YnqYSsn5UgiBYEZU13+74aNmi3DGu8 DmPd0uHxilwyB7/I0KaNOIB1kmjwQQX9pDz4sfQYs6sNzKXa+xcy9kCAVC2u UUgm/Q+x6xQlMtpKulJOa7NogoBkJqP+WN88YRqw3EwG8N/F3pNlBkiOP5sm CO8fMh/MVGZYLCbhjUrL/8OwfuOGJWNNbWUU85fcUJnp+Um+dTnl1PR4ftEg 2ZTXCZrsZcbDQks6fEapD5Uo+Vz5rSH856wW/fyjyREJ2G3CGeU9fzY8XpN+ IQkCb8ekEESyMo26/OZfo+0HNbSp2Xw5m2uncazvq4RtnNV7X77zr5WI/VNd AHm3ScYSuUlj4E0Bizx4Rd1CvmMd8ctMDaIlYdlTRmEzDPPmrXmTnZQ0jWHG 6byqcm+iY97QNd3xtKZRKEdaD+keb0C+kUFrcyWddMW+CptWUsz/4HU0a5c3 faJDhTwN2pe2tmbNGiasQTKtijLd2C2mjzK09Rd7yZE4RC6cYvqQ9sa0KgOi sVZtLjQvQ1R6yXCmL/aa2TSmImU6Yck6nkX0xNbSm9Z6MTJaj7XG2yeptVQJ 7zxGWKqL01Zyrf7AyQUzL/3EVpM0QCx5yOoJDmpeo2VUzA9qv6OPSz3EN41T PmKjiKFXUTI9fC8xBG/SGIb6ij0JBl/Qr204RlO3f+yhNBkt9b0oOnQczQQY GMakHiw0qvDGloSPMeh92ijrk9cdP6mhjj4jCa4Qc2nMg8oZVQ6x7BE+3k+R 6b+ldI9FhPRKRzO4LWU0Jj0opkhX+TJKivXAq+U+Yg/mSl31M0cydYXI1EqB jE5pKYM+vnG14aubVA0OG+2RIS5PptefZXSIGNBjohKkb5vua7rUBmU+yoQN zNBCGaowlUGZSWrfixME9hM6BOK4o1RGQbHMCh0B791IClcM0iXj0nRyTkpd S5ZZtRcWM/CGSEyfwLVpNMiZuhkySoyl6XhFqy324KxmLHjeWSijS37lumTq QGrKQYOJ4pXBIpkmWcKSV7E9xCbtmoafjxWpTqdXmgctpiSXLVvG2ELqxEYN BfxEyEoZqWfKQ0P6sbvYqqX0pNw8EK9XmupBPecoYag7L6PvlhReI6NbfpcR /25i0yYc3mUyZuqZ6v3792O1jKj/oaYfaQ9dxR6MuB5kpkt401ZaKsrmKpke /pTRj13EHrToh9o0p3Dv7Q7YZhn18qcMtj5QdiE2LKXQ3ynqUzdBaijmtSkT Y5aG5ZXH7zIqjTZDIflYplspahIS4cI4NfjackP+WYZmnOO9S+PwGqdLKLSE 1B9pHuG/QOWPGrQE/SSst1dGI7ZW42BliPx/Hsx3wv9vz/pLve6RUVdtZAxC CzUe/jdD+kaNR/iAoEqm/7bSPd5cNJdp909O0NRmwb+RIQk9JCxUN9Erb1ka oJb60mtCgLk5ykMySrWNBAfPvcTwi1MhkpeqGjTRX/FBE8/E1TI9/MkNjpdF +gxLrhF8SgnJPhq4VtKAJ2Q09h8yA2kmg7Z2Yg+iE6E5ZqRjOiWjVNmcG2+Q ReqgOzdoGXvJG2Q6YUOvTjbRA69MpR66No2W8zKqmc1m8WZGSrp20tAaPcj4 L8morPYcn7D5S/IpNdieE286JLkSAs6SXJTpoB2nE9nMFsuFkUdEwZbQ8dYs B9cXLsgouvYSX/NuBNMrrTn51SyrH3I9sVYYFXj57Szdk1Q7ryF+V5NaHmmU CSUf4nYTrfKKWmr116YxxPOi6mxjo1y5oGGYy1FTUY31dl447+uODJkRdZLa ePnypdAVLWgg3UuD+lkGmRx/mL671maGOdEuHrvsvFGf4QbFvnnpMoqnvSTo dEiU8LNnzxbEjQpJbW2tQGxpfD82oRPod+rKCYMUx9gwn8WNFiztadbXHytT c/F4HYnO75yWG1obSV74oWVmZgpDo1ilGoG55WSY0ih/kDqgrh9nreT8fRM1 1DWgsxGWWdJ0cd4y2JskYnHJVJwpi5+iUdOqYpQOgvIZGzYroKKD5FFIWVTK oLOcFNVU5ubmmDdvHqyVHCc00IxHqGEHS4T5ZWP70kI8PLfz6wZCNFcCJx1M LC8Sdr16QDRHLjKq9lc1SOjfKCRUSVDZo79jbbHR06vfeQhaKCWAnhQJ9DFL JSRy0yzNpSdrKg7BRD8YBWmFOLo+G8/vnGmUz2+AUF4GcsxdML9lD1zv2A33 C6fKwfnzO8DJZpIpxahcNILzfRVJp5+Uj8mjljKDawgr2DAX562Ek2Uyls+c irPror6TeUgzpprD/odh2KFjjteGJng0sr8clMzV1QAlm6OjrMjCIRUAP1Cx RPTcvn07AxJOjA072yMqOAe7lhfiUd3272WBV6rM5nDTMsGKEe54ZEPGHG/M Bs539V0TAyddfyU9wnIFjQau2hpTBPzgHZT8dhTmg8JQnFmE42VT8OzWSSUX q+l9NABBnjtQi3DrJFzOSYVihhcUl45I2RHVvr9uGpJv3w4J77s0k4FkkpKd 1sDNLhWr5xA9tSqIVaWqaTU5uWGaznZAMHbFZ+DNjHD8Mz+MgdN48lIjOHx2 msUiauDwerO5DDj2jKu6uSA+PA/7Vhbg0dkt38nowQ8Z5CWbMd0nDY+nJkBR aMPGzQvnZ9y46T21cbPcJpsDfcu4W8iMW09WfDm2X5dXjNq8Ehwin5crqv8r 3a6pOA6LYZGYmVuEE+XpbZR8WYsAs3iczSTGcqYv6nfMkgROFTBWYUA5RAaw n6Xm+NlTprclAJne4dPzH8gA2O8d9VMzaVw1FUeQ0sca5cNtUaZnhLU9RmB5 pwGY00YXJwgejhA87Mkr/lTCQ6R1LDyd0rF+3lRcryhtK91O8puOzTHpeDUj CvVLo+RQ8D6nyzWgQbJrLVRmZhkePlYy1DeqGOE7YUaPMj3DiJC8b65JqkQ8 fCFQMsouCfN8UrDEPQ4rHSOw1ioAZUYeKB9pj7IBZljXaxRWdhmEhe36YaOV G44R3FSSk2kbeqTE5KNidT4end6gYtJPE5O+l/yWXrVkElG0AXmeqXhQmATF NAeGtcaVih8oHVM5rLG8B28B5Qqm/6sZbyxnQ7tgeOuj1kSDtyVn6d7HmQtX sXV7JbzDshATkYvMsBxMC84Uf/wz1tgEYb2pl9LXWd9nLFZ3G4olHfRR0ro3 agizVRMELc/JR5CFu/CbOYVTcao8Rdn9QfL3M+S8WlCMuyXFWK2tjQpdbZwe qI1rBr1x30QXT+z64WX2ZFZB4zk+FjXpVDoDoNg7z1Fiex7Hch625A+2k+Dl bW8zJT/JYUMNydTIMK38MUffkpISQY31USrMhjzLJ4wlz17Eym37sYkglR4R ETlIC88Rvpf6p2OhV5LwfbV9CNZN9EXZeBeUD7PB+n4TJIvyOfbn2+HGqN54 YKYr3PnHsz9eBw5BfZQBFEkkdMo0gqLAHIoSKyhmE62+0AlvFtgx7MV6TcOa iAy8nB4Dxco4R4kbqfxS7Mk5/qzklbeV78CNvDX+hEMUJQhturcqotQaEw3H L+pmFBsI6vJLlgrfk8NzkReajRmBGZhPpHwpkXJ6jGrTTficF+uMWU46OBk5 Aoo59mJby9yhWDUZirW+eFUWgGflIXi0IQy3NkTiXFk0KlZF4+X9C0x/Ly5Y h1TnFNwuSCYYdcGrs9XSdEfjqIMCRq8pzrrI4OxjJcBq+o73ND7VhCmNbu1n EmXVMPWeNEp2u/Y80TXbK7CNINA3PBu92/WSZjo+RvKozkg276ZEAj1qdpfi /rmduHZmF06f3IW9h3b8IfXkYhCJQykkjpwZDMX+RT8r9fh7SkHqIykhdX+F 4oL5+cxj7iqBxzsvcknxr1WxRh0D5nB/poa1w4cPKyvzVG0DWBj3PpzNrZW6 66L3KCyMtmtAnOpzWhLkS2dvw5LgdDwriUN9ljHLbagzqfTJ4kWaq0hpr4+a /vr4p7a6gxr/yMVATCT4qKKLDJ4+UbKBDHbYkD6XwY4BZ+HY79jwP5T+5tDG RLiuDzfGPzumN+ClwVk6g2i7ZFzLJXp3ugfqLxyWZkyacuKbw6zNWKyc6I+X GX5QVK9gSTQNCGFOEa9QOkm9qE/SU79CnKlULvHi/asvZTAxXInChroiRjnb 1kbYO84Gb0JNoNg1s6N0235wGPYnZqB+ZhgUlUsb6ivl7EczaaiRVr6IHOyD 3UlT8HhNJhT36pRJPQ1u/ccykDPu4T1LtdykOgZ4v+C/MhgwlsCy1DLE9tEE 2mBTAu0sBu3i6Vswi1inJ8XEzc+3aKURRhkNJWUWnLraYYUvidoW5uHJwblS 4kUj3Eyc+QiIpY8pnKwgnIkq7yf9qhn2r2RgN5KANNcai00GNngdZAbF7jkd lYM/hWCLRFzIpuGmN15sKoU6AjQpDZbfMm0zBgUTI1BTlIMHG9N+axr2L2UG 3pWDkzktTcD5tQycE6TBxFqFYz1xKf4JIC7C7rksTWql74/tsel4PSMCbxaF /6RU6Q1ODMsURVr5IHSgN3YmZODumhy8enBJuWJHA0xyq7IYTGxdgQxMPNt/ w8FEXS3asiFj0LylWDHYBi/8KEzzGEyLp25CkVcaHk1NhKLIrjXHj5O62GCZ VyIuzSf8WD1fWfOjIYyRc7DZ+HkLrzZ+qnXY+L/lxs+yc+O58S8eYINnPhPJ +Od3lm77GMXh1BTq6BItuWuOljR+k9ajkGcajmMFhJ02pOPxzZPKtFFTodiP 3AiYoyxnetWA4C0Qi8n59OJYJRBLMLefDZ56WZDRLmBAxPuUoDwqHf/MiIZi ecyfSibyRrC+F7bHZeDO6lw8PrtF6rHpyOjn/w0I3hr+wAHBIqOhMuIrelRi HLU4bzFm6FrjsYclAU4sXqFWncaKD8gnm79ZXFiGTLdU3KPxX7ETju3fr5z7 p7+362SFxZ4JuDgvD0+rF+BrNZBlAhbZ1XsMZFa9yoH8jczPWQUen1YYIpkD OTvNfy7OW4TC3tZ46GaJlzHiShOnNsNQOcYML71G4XVdNdQ8wGYNprAFJuq5 YpqlJaaO6YfJHX9G7ERj5VLCGOsIZBuF4UheNmHlDDy7c1Yy0R80ORXxpwxZ mUcgl3FRQw3vEbSUQY2wsKi5UvsRn5xH0uK8hcjqaY17Llaojx1GrmdjymAP nE+Mh2JxGF4fWixnIuUshNj8hyjOzkSPH9tiYsfuCNPripheWsjupoVLhSWo zStuxbiL9BTQzxNbY9Jxe1UuntZtk3y7xsEIjy5WqcCLMkMXTcyw9SzMjKqh i9d6P8uga4CMPRSp/zHHRQuQ0t0Kd5xIVBo7Aq4dTbHNMxJP5qbj77IwuQU5 mhH2KUqystHt+3Yw6d4L/gN7I2ZoDyw3GYNaS3scGzMBlf2GYku3fgyBP3Ai aNPRAgvd43F+LkFg9UIp4GrsjfORSnsZBPI2mfkev2hGXCtNiHtPHl3zENfV EjccrBHTbwSmj/HF5awU1Jel4M398/8OXV8i0MwDvX/vDnP9vnAfrQ+/cf0w LyQMO2PSUBUWh6O+oah18ZLQZ4QqVfSxypRo6zBMMQzBoVwqrlPwgniwH2lA Hx/MdJIGw9tz3vwzl0YNfXLVlzz6+ivR956MmLLvNB0a3sUSm8YZI7CHDSqC Y/F8STpeVc389R3RKN77lhityQjQcUWRcwAMh+rBZmwfjB/UGVt2VWLW3JXI SsrH/OR8rE/MfifUniDW4xPO1nBqmNUgbo5Kw62Vufj73A7JAfsItYSL89v3 w1V/T41o79YEynmPpQmU/6oJ5RpGy5ZgB3ayQEi3CVg8MQi3i1JRvyERL++e 0YzsjxrZoJqKw3DtbI0lkxNwanY+7h9cKonIlzhx/ooKwue9DeF6Kgj/QFK5 6qxi1cEc81zE/NHTg4uaS2xNNYZzeyPsJKR/k+KGjbH2Sl9EW4KIj1IYjmkm kBX7q+GYz/awolo+uz1ckjZDLQPE9XXGsZgEvFqZjr/2FYg0UUsuvifhnQ7V uv0ElNpG4ejUXFwvn4Knd8+JAvrf/wlvW7tTvE0XGLWB8O8rkZY2NhgHs7OE 7y/unWMpJ8qUxVl5sGw7GiVGQTiSkYHnq4kje/eMcsm0nCvNO3BqSJOriGWp bYrrYdL47NuNQ5lTGB7OJBK+MYb5ZWatRyJnQggqiN24vi4HL+5fkiznrwQx l7GZIKZ07gpkviNi6HGZIIYe1HgP/Pl34fvGiDTcXJ4rfFcXTTOtYcg28MGB ePqbPNytmqPM7PHYYKLLc2grzdhg1WZ8DnqIBPbivDnIGeqJutRkvFmbihdn N0l1TUSZW/khfogPdiRMwZVV+Xh4docycORRwlZMM5RUcigR//Y5Rn33M0Z9 /4dwtTclDFc3TxW+8557DOkvcYAHdoQn49qiXDyqXtRHBvouEiH5ui7iwkns wAbIe3BaHAJYxpQttKYy4dHJHDu9o/B0fjrqlwfi+faSthIOqEIPJAq9LDQV Fxbn407VfCmB1qAgKC7owbPHusTs9yRRMGzdBdZt2wtXKWN7INZyRINQij2E 9nHEBr94XJqTi7+IJtORAaKz9HtWpUIzOtR7pdRUg53HVmsZ2OW2/xFG21FC SqxVIErH++FqDnEoylPwKp04sjtnNiT1DsONxMdLifI9PYcq3yVS4Kcxx3z0 9DmsKt+O1Cki3fu36wq7tl0wp3c3iUc+xN/HxOqXxXkz4d3FGqvcYlA3PQd3 iN//971zOhwkLGxhvMAmDiVXqwl8tFHDB818fCGLj8b32Fwi5Zl1dh54Mn+6 pJ8/EHIGIT3tUBUahxdL0/Fotj/ehNCc4Czlhiyi/jVCqV0Ujk3LxbXyDDy5 U/dDgzn/WmN8vm/nLgxurQ13rf7Y3aMvntn2JErXHM/jhuLwrBI4dzDBAtsI nMjPwt2yLLx8cEnUmhrKjt6TwSZLR9WRcSaaOSL0j57YZenC8mq8I9ZKFcO8 V9BWBsOfKkeiHv41R4KVP7bojsYrzxF4vnE6q3NKto7EMqtg3JmWhjcbE3DQ 2U5Kvc0GS9RQpZ1LlHYlVdrrRaX9g/S8oIClgJkefLgjOiKfEE6bBXuC0LLO /fDEvCcubUzEsSxbWLUdixkmwTgyZQrurM3BPw8uSxWzcqVOYiabEY1NOjD5 TjRyIIZaWzjdyHmmcJoyWuD9rCYw2k4Go5/IDOct5XJWWoOxU2803kwejlc7 Z/wiqbHFeaVI1HdFbXwiXq9Kw1JvN2wYYYNXgRTZc1lSKZqQKWGoL3YmUmuQ hwdnt0uaUDW05HFND9Gd+gjmBM+L2+vh/vheWBhhT66HI3eULyoS03FrRS5u V86S/KXPVQBQb5sKBG2bdzrp7yx+020mILkZnMj/tJyO58YmUM27W+01ofq9 d0CwndYQ7O0/GvXew/FsRwlDsEN7Q2x0CcejWel4uSEKy/KWYc0QG7z0F5KR fyolgvR7YQm1MfMaVLKyqonA46+li9099VDp4Ip75LqFDPrVI/sWqkJHCDFB awBK2ujhukFvRPUegOSBntgVmYJri/PwcE0Y6s9VS4T4QmiZP1jZJM919JMy PtVSdJQm7Wxh13M8GDUCyP93JWow7cv7cWrU4D2XDjLU+PhdqeGgNRSVgwg1 fIfh7/PVrSQ+jLLyRcEIL5zPIB7PulQ8PVWO0swZiOqkj8w+HbHK11ZZNUoN nbuQCBYNXWNhkzMQnwuZzpIRHrji7YXrk6xxYexIHNLph+tTS3B9zwFNWQS5 hStiN2Lcn6GlD18S1oXrOGNTQAIuzc3FjU0kyi4PRP20CXRyrasaS7Be6MGC bQ55nyn7YigOtPOF+9AQlKXkIHiEsUBDUy09LO0zDg9sx0Bx4agKFdnzTVCx oyYqaggT2RYuLsQdPjSUENB/GLcTCBFHymVeXSywxy8azxam483BWdhBAhDv X9vB+sdfENrhN/i1b4kVeZmSff5QTOwQ2zvLPlq0vcSp4MipmZrEShSWI907 A7tTM1FDlOSFsDBc8/LANRsLnB85DPt76qImJQMXdu1rpJbVSWiq1Re+3Wyx 2iMG52bk4PaGdBRMTUT1+jQ83xAMxQxTvi6dI2GD9XxfQgMjm9MkZ6Q6xuNo aQGebogVphFturpio0cUXk6NgOL4epWlQMxZEjN1yjmvxs6m6lwKy5S7E8V9 bDghS8BQKW0spog3EQocJSc95hr743o+iezLk3HffSgemOjgmYMezjr2Q0Tv tojupYVN3QdiWfs+OE2eoZV3LP9lRmcvjEJRmZ0NtUBWFJBPsWzFdiRPKUZu UgFWp+VhX8oUnIhLwMWQYFzzdMNVSzOcHTYEde4euFggRvRqTRF6UMPn2sEM i+wjcLIwG3fLs4gHcRE1Zy4iLCMd+9el4+9z29txIqVp5qRBwXKq9nMVFUlP mrRzNPaCv8dk3CA29EWEFf7yckd0wEzMTMvHlbXZqL9/ji0JU4twBAIIjs1/ VCnXODpSnUViQeFkrRE4MXI0FEFDJJ/3N7iaGWNwq5YINTVBzf79wt11EkXO 5Rdju70Lyrpr47CutjCODXqdkddVS/h+KCIOL5elk8jdD4qiiVCU2kKxwEmo oAkb2QtphiOwzT4AO01dsWukJXb0G41N3QZgSTuR6gdZ3vV9wbtIHCZ5F6vz cP/MtiZUvCiZX2maTMSarQdQOmclpqYUYH1aLiqT03EqJg6XggJxzc0ZV82N cGrQIJxycUddfrHcnDzLmdDDut04zDQLwdGsKbi7TnAH+QoNTTNR76s1K+o2 JVQfksjQiESDcSiMCMOWghA8N7HEIyOx7uL05Uss3OL37qBVDDSX/J30N3VD 3NC8LHewzAE/PfeVhGMfwh1nRhPuCB7SwMON4obmkle1WpJ0dhj/8Scsf2uN ib/+KVznd9LG9J7amKunjQVDemHRSF0sGq8n/K3X999i1Dcthe/HE/zwemMc npcH4+GGcFwpj0LlqmhEO4+FM/l9kJMLCsJzMC84g5jmRGxwj8Q2O3/sMnHB bgML7Og7Chu7DsDitr1xioypipxfS8ihoXVQXzeUh6cKjtVt4lipK3qeHuye BrZ6X9I+5dsrEBqZjZmEuzYS7qpOSsOZ6BhcDiRKz9kBl03Go1a/P445udHc eDPJ8eC5i1oj89bi8jXKnDSBe63UHbyu0eTRNRTFQnW3JxZHi5qmFFY9J2Nu yBScnJ+FGB83HIr2wPOaWmaO+XDuO3k5U+MkPibpznESc8NZ5UiglgHOjyOc FDpYauIHoeUtYl2xQKMjedMRr9VbuD+roz4WdxuE1T2Ho1x3FLYOnCDcn/B7 G+J/6JNTj5z9hHtexB+JImcKiYXzO2hjHdFNlX20RXz8hAjdTkgz6AK/vr9i d/V2oXPDTo5wsglFQpg7ZueG4viRKtTUXUbZtgoUTV+GuIhcFIZnY77EYhvd IrDdzo+wmDN2jZiI7boG2NC1PxZKLHYgr/hzicNEB9EWy70TcWaumAlRK4og v5JTUZ9ITkHN2UvYvLMSUbG5mJtagK2p2TicmIK6yChc8fPBdUdbXDIco25b WmB3VAquL8lDXWEAbo7ujdflxVKiq+mpls9kBUBJ7AY+NdQahSDDaOzMzcNf G6bg+lJvJMZFaSz4lFsLJLT5H/rtP+I3jfzUQ7rHh3WiXv4C1Qf2Q/eXlhhF zkizBjt1kkgR9Tp2SzXZh/NKhF5z2+piJuGphV0HSuP5DDuHmwt1WhWmjjho LZYaH/Hwx1HfEGy2ccXakSbYOcZcuD+jqzY29tCW5OFL/O0wAK8mD8GbYKKb Y8ZBkWICRbaF8NetvgaIN+iOjDFd4NNP9DYjrUJgMyoGJdlFqFqbLuqNL1Fz 7jLKCc9Nnb4c8YTnphKeWxCUjtU+CdjoGo7ttr7YZeyEXWSo23WIvu+ij3lt euEkAW1vXjHbZVr0ZI0xe1I0jhfn4Vp5Ov66dYaVZGtQXp/zWqP23BWl4haZ 9AscS0jG+YhwXPWZjGv2JGYZY4DqPn0x4McfMOy7nxCkbYrNQYm4Mi8X+wpC kdNaHxeH9kH9umLl7gAa+O7zJrQLNzH0IUGcK0w7O2OaTxrOLijAk42RwhSi NPmhkeuay2hDNV7jg/xflLhopvym3F2XYHervSuHmlZY0UNbia412tpYS851 xLaVkbOcnBt6EX4h57IeneD5R0v4tG6JzI6dyXNDsb7PSGzWH48dw8ywZ4w1 Dpg4CO0ccvDCEXd/HPMJwbGgCOHe8dgEHE9KxrG0dKnvb1BVmIcD0wqQOsgM VQOH4y+L/njuNED465uQkVDEjRdBzrEUP0uJ/zXfDYolk6FYSfyytSQ2LAvF qw0R+HtTtNjsB0gc0x0XbPRxeEYxJnRxQYR/NjYsKsLtszuk2OxLgUs2bKtE 8YzlSCL8Oi0sCwsJv67xjscmF8KvNj7YZeRI+NUM2/uI/Lrbxk2YC7peUc3K O8yJP59vHIqqHDFJ95y42My70uBPfyUZJZ5hGG2Xl+0WPjMS87Gc+Mx7UlhU FooiAwPBATH9pTV8CTH2p4Ti1oY0TB46AnHEkJzQ08GbVcW/vEPvXEGbqulO tnKBpdYQeA4PwwZi/e+vz8ab++eUjgVLhdArfnk8S3f82KRKbLQzakPYp7K4 +ZS0UlREsaovyGOLlanG9LDCDQ/CGvETpAYTDMh/iSOZwk4irJQ0iv4heRT5 L2U0dSRSRyOmf1vE6nfG0okTcCwwHMfDidaJicfxxGRR6r5GxbR87C0pxI6Z RaKIzCrC4tJCFJfk4syxalHVHq3CptVrET3YBzfiwgibehI2FdWwyKZBJFgM ldj+SzzYFIdrGxNQu564fEvi8fD8Hlw/uwdnTu5BLHl+aK/ucB0zFps8PfEi 2Al/2/aH3bg4zMwrQvW6VDG6aYkThIU3bq+ED2HbZMLCxYSFFwWmYS1hYXrs sPbGrgkO2DXMFNv6DEdZZz3sIiy8OTMPuj//hFEt/0TSMOIKJE3BVRKW3KjZ oDEGZPExTwaRKVRLqFZu3o+SWSuQlywGry79h8O4fRc4tGmNyH6dkGqojS1z 8oTktJ9Wf1T20sVTB20p1m465GBVlkmESZNa94ZRextkuSTj+OwCvDy4gBXh 8pNBcjzaMCPxnmb2/ESN7fhPzTUSn6Ku4iCif+qGqt+6oIzE/7M76KKERIR5 bXrjTH6J4GKdkKKLY3nFIpd9ip3k1mYu6KCNRVjG48r0KcQGhQn36tf5ktMP 9ev9mKl7s94fr6XzPfJ/AGEuuqojanxPRI/XxdxgF+yYUYTNpUVYSxh3KWFc eqwomSF87ov0xf4prthetY9Bp16K42Yah8rZhbi/KRlXCc/Sg/LsA5FnuczF h8SSVSLObyamuiXhbEgYXgXa4rzrBGxaUog7Z7Z9Ldm0pRv3CEuAfEMyheZK CN8uDkzFWq84bHYOFfnW0AGTfu8Akx9+hcXvbZFsMBQXl+bj2Np0TYs/eXJo Lsj+BGu3HUCvNj2g/0c7BLcjhk2/GxYZdcTamdkCW7oQttzerS+eWfVUKSzV VI3H5nQSCVvO7dgXhcTJd9APwMr4bNxanYtXdVuUk2tsQoqvquKzVmI5njLW 4LNWTa5zkYP0M2zKnYMZ7Q1xd4gJjrn64JizF446eOKonRuOWLvgsIUjDptP Ep49OMEaVWMtpJZ+xJ5B40Ql0s+AKI9hwvdFJCTdFuCPqnA34TrXxQhZk62E 75mT3TFlso/wPcM7HOlB0UiPjkdaSiJiI73gZj4Ek0Zow3mUNtJCHXHi4nlu wQHp9r7FKPwdoScBAD4gaCaBvnLbVqUQQn71I1u7kRwxBwsnJ+JqaBDe+Jnj ttcoUYcxidtCGNA/NAvpRHFOJ59LCAMO/L0LCQw6wL1bJ8QO6460sZ2QG+bF r9R9G5OxVagu5tYw0NJBAjHMtXq6OGbZFUeC+wsMZksYbE3HfvjLpNc3avzF 580Zf/3O8RdVJzcsjWDY2gTx1vGoKi7A043JymwMK6ShV2xirQn+4rMnn6tB 0zRzfUh8yeNI6+eMuoke2Jabj505edidnYs9WTnYNyWbuZdVqRk4mJKO6qRU HEpIEe4eiUnE0SjRSB0Ni8GxkCjh+/GAMBwnIctx7yDhetyfHQg9xH1eDDtO hmEv8b7hxHgYeyYib4INIoyshAFNn1aIBcRGL5xVIGKDxacPrUbiyXRvFceB 1bvTeW3HsbFY75uAO6FEtXoZ4vHCErlgj82qUkplzViElPQCaLfthZFaXZDZ tSe2ju2GlPFtcTJUH4/T3XGvsvrfbK/dXOKbACs3BBOeqeqtixeTeuLFmsl4 XuoDU60BmNdOD3fG9sKbs9XqVcJysTDb6CmB8M1MwjfXLSYQPWcI615eWBCW iSvL8/H6/E7mdPGunXqOlrJQbW3tz/+We8B8tM9w6fApHF1Whi0HDmBHZSX2 VFXhwMEqVJLR0+NwdTWOkbOGnEuXLUdaTo7kL/2AmYWi2VpYSExYoeSHkc/1 BYXYkC/+bVwvHYzvJ+qlCc5E5yTECt/rZrpCUWCCeuIDvgoYiEe2ujg7oif+ XlSMG9OKcavBl6flQvT4y5a4i9vnNGiilhK2I61iYDsmFv4TE7AzIA6PQifj jZsBXtVWi6EaCzc1ZbgcjCfCjEj/ik798di8Lw6EDsGLMn8o5lrieWh/PFhQ zLknDWmWDyTuoNrDg3DHTsk8XdoQizcLrBHeVx+FrfVweTgJWdcX87sOyETL bSTGiCeMUdJeF1fNJ6A+3YUolTEINYrB7vx8PN6QwSbseH+KzZfzWVu2q2ET 3CFX5alBEBpeWaWSEOJ9MBXtxMxHv549YDiwJ+wMtJU7WJ7ZkIJ7mxMamJGy 6WLi5JU2rHx86dMf9ybqoGZITzyZV4wrheQkYfKszKmw+KENMrq3xrnFRWyC lZbTGvfyRVJkHubkZSHGPgkHial7FuKKlw6D8PeRasmf/EBlflm9pJrZCWNC zcUd++ORaV/sTrHDttVpuLsxigRy7qgvGIvneR54cqhai2MAB8JA5Z374bFp L2xclYGH5SF4lj4SyaSp0wN0UL+6mK9K1uTRt5MgiiNcMK29Dq6YGqI+zRk1 qU4w6+qKEr901C0qwIvKmcrV9Lz7wuZJ+XxFg0H/VpUZ+GTYp8ofNfyc7e+h TuK3OjnE5FVVopQEaHOJbyti9Wviz+7F6ZP7hd/vJhg9v0E0PC82RaG+TDQi ikXOUMwgxiOLwB09DM899XHLuA/m9GiHkLYt4dvuR5ys3C+x9UdE+BPgYpWM hSVTUXdgIaI9pyHHOQknQ8LxT5A93qR7K18aICd4LRgDNjgwmEBINq89kXuj vlBsKsG6HXtQWJqOmvIk/F0eBMVCW/wTS7hqRfGfSg4ohRXhgGXt++H++N44 kDYJR8pS8HK1B/aZDcAhHV28THXhN6fgtwLgOaCD1GQs4YDCdjq4ZDwe9SkE KysCEDHSFF4G4dickYcHZdl4fa+OrcZkScwGQ6HKBMxbU6PlN6ocwaesWsuo PFGHfduII4oKErBlvZgKvUQ8n4eb4/FyYwRRe4Ek1p4MxQJHbPMajOi+bZHV pyvKug3EEqLkNli5ChO4VLa/l5QS3YTHRMcfaTHEfVmZh6f3xC3jEkNmY7ZH Ei6GhuB1gCVeJHhIKkxjFlDdF1UCI5Xll7brj7uGhMobxTcS1Jw4j+Jli7Bu eTqub4zB67Vk6MVGeLWl9E+J4UwJlWe10cONkX2wIsAWs+dn4TL56Zt5Fqgd roNnNj3RTIbM6lMqnTgy55NQ9IIRIXOyExTLA1C7YSmMO9ghxy0FtXNIGF09 n63AZ8UM9IrVmPJh9LuRmV8yoivzhKKhOJCOt/b8RRw4sg/nTu/HvLmpqFqX RqLOZKxLtEaoQW8Um0/E5kmB2Gbuge1jiLocaISNvYZhdWd9zCYh9glx4lWa JKO7uyTDwy4VS2ZQoZ3P1iKnx8zDSu9E3AwNQL2PMe6GuilfHaWBwB/KD55F 4rfG9oNiQwmnmVrgzOXLSC1Mw8H1ycSehkJx+5TklH1J3Nr+yCcW+8KQPqhJ CIFHbDo2E2X+qDwYj2NH4sioTk05d50l1irJzkSQyUTE/NkV5w3H4U0SnaAm DsX9c8KaI6cBgVidmI07a3Px8swG9d0VKGX+d9ry+RJdyaeQU+C0N3oQbmIK ujRrNnS69oH1KH14EeXn7+KM7MhczCR+6ZLANKzxiheqyrZa+2K7kTO2j7DE ln5jiDQPwrIOfbHJ2lXYrOYqkWb1qhRqI8Wrj+kCAJ5aqDlYB0+TeGzxi8OD UG/Ue47G6xPVzZqgPcHRp2rAsc9IK3H3l+ujCfHLp7Ms+9aKfTh7klumzGJO Ot1HrfQJfR28zHBBZPBUJBZl4uDaRBzId4OfkwPcnZ0Zof9QMpic/WshuUt0 /qjnry0x5OefYfX9Dwj8syXO+xhBsVRkA/orwzZmSLJNwKHpNFxMVNkRgdlz xgd8uKihQkHigy/VWqFXfeWf4AFgioVNnhp3skS0UwimRbthYV4wjh6uFP6y fMtebNlRiekzlyMpKhdFETmYFzIFK/ySUeYRjc0OQdg20RPbx9pj2yATbOo1 Ams698e8tn2EWSW69865impmCdmIDNsSy+aQhuWzpuLcgbkqmpqm4JY5hiHM OhH7A2PwNMQdr5yH4umhA3J88YUGvqAcSI8rBnpQlE0XPa3PVX5GFwCHEVao 6KeP646DBA/N2dkdnp7uWFXgj6czJiKiRyusKcpiPrea5hGuP5CYwNXMBNrf tcKoVu0wSUsb8d3bImVoayUD0BHZ9PHBoohMXF2RR+K+HcrCcDbJTa/+/J+Z gHf3dWXsuZSZ4cvkaiqOwW14KDbmF+DGxnQRlq+EXYLWba/Azp1VQiVCJtEL M2iKMChNmJ3ZQPTCFhs/bDd2xXYDK2zVG4fy7oOxnOiFLUQvHBdnFMUB/xdm /UOQk1yAfWtyULl+sXD3PPnJii7aON5XG7fH9MYzx75YZGaFVMckHAuOxItg Rzy11ld6Sl9IDoOcdlMn+sXhhOjrp0vpPZHqwoqglDy4m1ggwMERIc5OQtsD uunBMy4dW4jmPzHDCSmD2mGpTidcKSpmlOC71LzGUSzb7/BVK+j+2I78jhY2 fghv8n+Mbjvlbw1bj0W4SQz2FuTjycY03kZT8tErtpyGX9ap/tpoWZoPllQo I7CXYSCmeKbh2JIi3K+YwSzPsk27sXmHuP0TC8nmhk4Bf2yzmIzt4ydh2xBT bO5jINxL/aOr8GnYbiJ8XdKxas7U9yStep847S/c9FAfPhSKjHHEjZpIvMBJ qF/pjuhJESh2S0JdSCheBdrgVbLnf+WYsxkStAagbogeXua4SfWEXzWqzg72 DYTz8PFY22sgnpj1EnDe8Zs2GNrPAIF+zvAfqYuYUSQsd3fDNbNxONZXF2cL in/XSMqvGwk1bTLSyh2mJBYf8Gs/DCDKzFCrp0DQCeSMI+eDymqhNmNiNzfM DMjA+cUFeH1hd6O9TSjn/iYJL5/JIZ8tNROSLZ6q3L4bdv18sDI9H1fLs/Hi bl0jOVi7/QB2EDENjsjGlChx3dciIqZ00n+DawS22PpLVP4KZn3NkZ9WiANr snAyUkwoK2ZYkjjMkUS7nniy3h91a0NxlHjIZ4+JbxFIiZyDRV4si2uGJ9Hu rJiHxkFRhGanBhGaefUSleT3GhOp9KCP2NDsSwcSOhn2xvxRgxGoZ4/hfXTh MEYfFsSpTnB0wpbwFNQEhOGKqzOuGo/BVW9PPCY417yE82OVe4uJdpmgNQiT 6AalY8MRbRcM/Z66GNdpsCiZHxDfXhsLiD8eaRUGn1ER2JqZR+L4LLy6e1Zl mxZmnNl+XHIbIr9HgVQjKB9vD1FibAWibRJRObcIV9eEyq2TYv4xPTYRKZ02 YxniCF0LIlky7iPY9uiBoNE6SDLqit3xo/GwLFD4y4qpYShfM52rbWkB5/Gx KPONJ/61L+q9xuHh/BLla+spNUIIAWv76+OVZy+W5dbk9IoKQ1VoaCptTls9 3BzVB/usjLE5PBVXluRhbkEkZs8sRO2ZK/DyzBCsx46wZJz0D8EVZwdcMRyJ S54eeESErVVTDotIV1ppN7GtMfwG+GKKUzLmJOcT/VOEMycrMG1qIfm7h0jX FpjwW0cYd7RHvkcqTs6j05JzlaVDVMCWLl0qXLHpBP6dPUy787H0T28jawtM 7OGMuTE5uLAuD5vnxAkIk1vzpXlKrDm8vcUpRvvePRBt0J0FNSxwEzW7+H/N 4fMIsEjEroBY/BXqidduI/Cqpvobjqr+hKpH9fTxxr03K0bQ4Fg3JIBYzcQE QtIiEhfR4psLfrY4N5cIxsHFrFZh+Zo98PfJxOzwLOwOS8RpvyBcdbTH5bHD cd7NjVgaKeuu8TXHpA8XgjH+2Ld9Fe7cucgmNmoqagg1+6DXTy3R++sf4djX EeuScoTi2Df3z/MbwzCryTQDH0OpkY7PdwyWeH1x3nz40SK0kiLcJG45X9Ys V1akYrjUon4zPVMsGWSH5/6WOJTpJu3rQOh17CLi7JNwKCgKz4Jd8GLSIDw9 XP01Ry9vQq9qXUIv1978NLymxCGbGqfRTBo5T/XXwf14R9woT1Ouh1q5fh9C /LKwIDwT+0ITcNY3AFcn2eDSyCE44+KK2xXSrimS90yLIOkRMiwIucRrWDBF zOrfu3OtufSzcqJV5xOVafHDbxj/4x+w6tgNIQN6YEe8JdZOy+I3GGLG7x3I wsewgyWcxDhkoCgwE6dWFODv8zv42hdWVixi98tG5ptda8rHlKbOwvz+tnjm ZwXFnoWfSaiM8SpBnksSTkm5xNdpXmig0Ex4EKmo6EP0pHMftgW4XGKP9NAQ LnITB2JZHaVXJDkP6+jihWNPPL9/4SMJt6vL9yMiIBtLwqfgQGgc6nx8cc3O EheGD8KdkhIRZ99KjsloAcoU63jMjMnFihlTsW/HMiXkp0hP+wmp0ttoY103 HRwZMAjXTMfhsac1JnXrAr/+2ogcqo3Uoe2wZWaOcsO+CxcuKK0doxsfhYjb Nyk1GyUzo91gCYs0necyJATluYUknsjA0xu1Sq3HV16qL7JqECR28Jn695R0 WIJZerZ46mMNxe6FrEg2MWw25ngm4lJoMF77W+B5vIey6JySzpWQbm8vffzj oKM+2Su3Xf/by51aEOdhBFy6WiCttzVuuBO2jhsHlqJITp+PuKBsrAzPwMGQ GJz38sY1a3PUDe6PW9NKvpPcJNFFGQj7znaIHBOGQn/RBd+3dQ3u3rkiFJ7S Y26HXthLGK9utAHuOZjhRRBx1lK8oSgKhWJ+LGwH6sBlsC4ChvTCzLG6eBbn rbJLFptQ/OXtFOVrHZgkRtrEIs0tFUcXFRGvd6bc/tcfv8VvaEBqc2Ebq5K+ tnjiTUm46AvpdkbsPKwiHuutUH/U+xhxJQeq1pIJE935mCaehJ39CHl3auvj pb3Of99hJHKL4IQrVuAaZeWH2IGTETsqCCn2CbhenIHXqwM/k/RqTe0FpGcv RmpwNtaGp+NQcDQueE7GNUsTnB6gh+tTiyXu+0kKJTxh3mYCfPV9kEGCW+q6 zIiOEfrPIhJa3l0XxwYNFq6feJH4KMYdipxAKEqjoFiaiJdr03GP+KVrc4Mw REcbI/rowNNgJPZP8sUde3P8He3JyM3bQ7baiY8i1cjdOHZsDltdbywnYfKV 8hy8vFf3vgy5mRuiAckfKSm9CIU6tvhrsjWexw5hiZqag+fgZZqArf5xeBjq jTeeo2j6T9Xpk68aotikUkNPccWzDvI7D8N1o+F4sbIUkwgjbO3WHy9sdSXb 3fS2lk0t8mT2nTqe/r2csS4gCRcW5GHlgsXYVL4cz+5fkvBIOOLUJWQR1ZQV ko2y8DQcDYrEJQ93XDM3RK1eX1wuLJZ++zUZewmMtIbBubsT/Aa5ImmErdD1 wo69sV+3v/D9gaM5XoQ44U2aWMujWBCH16tS8aQsExfI+ehcBepO7VOqzoNV VZhePBUTB4aj0CIC1ZO8cN/OGI8j3JW6nS20ayjiU93LsQnWGKQk6DJhBq6C +N3X1oV/KMMa7zXNGp8qW1qInN42eOBhg9fxw1glRc3RC4iwSUKFkPZzE9J+ 8zIzODfyC+E7pX8kcUMMtXpLSzeGkHMcOS1g1M4Ry+zD8DwvDK9LJgqFPnRt xTMrXRU9pcmzaqqUXC23LuxS0ckaS9xicXpmLh5VLWPbVNWcvozcgmXID83G JhIRHQ8MB/PoH1cpmZ1fgf2h5CD0gwXxBWM7jUd+W21s7tEXtUOG4KbFBKU7 nUt0w6xo1C9LUs6yX6tYipt1B3Dr9qUGf4MImi19u4BlOI47eOCh7TjcCnRj DMHv98NCIRra0gVg1Br+pMoQjZZSqK1CUe6r280Bc6JycH5tPp6c3cRmwRmT yK1U+ULJFQuQQXe1c7NBfcKI95W9qL8/pRmWzNqGdKckHA+OVBayT/i9LcLM 7aRUja7k044kpwkM25D7Hd1g2MMPhvqhmDAyBsamSUgjgXXdqlzUP7ggzOiu 69wfTy2Ib7almJ+91VQNy9IEjCvkOEXYk6PdBJRaRwj7Zd4qz8Sze+e/Y7qD xMdFhcswLSwbW0l8XBsQiisuTsLjV7w88FdldRM5xy+IHLgJ23EaEU9iepfh uDB+NB66TMTLMGfUp/tCURwOxcJ4QX88JrqjTtIfp0/ubYhPDp2H88goLLQO wykHV/xlPZLGk4xTeCeCbWNHMcK/LP4tHNNLI6LkoKKsMBc+Y6OwvbiQRGVJ n3AjoR4bv6qQLnlN7mGNO662UCSMZHwoK79yZuUrhHmkQv/XDkTu2kpMM4yc E8hpBcP2YpxqqBsMw6FRMJqQAFObVFi4Z8A2aArSZizBmh0HULZvDzMkEwkf rZSKi15vKX6X6eGvZARKkijKPsIuJOODUJmRiZtrc4StV0R9/TGWrtoNH68p KCXR+M4wce/+K06TcGW8AS4SG/SworpBfX4uOZ0DYNfJBhGjw2DWwRZrJ4Xg RXYYFLOpUknG83UZhEuzcIUolRtEqVy/eYnVhkQ65MFrTDRW2oTgnIMT/rIc hn+OV6sHfhQuxin8q2lZEKjGKXxc/q85Jb8MOX5TcHJFIZ6d38k4hWe+Bk6Z g7ju1rjlTDll9L/mlM+EPR97/tSeqJMuMO4kFucaEqNLDxOLZEx0The+O0al o2TiJKSY2klk/EQoJVhCq4xM+qJ+c0mTLirbwDzaKgCJQ7yxMy4d11bk4a+6 nco05PK1exHoK1Zv7xHSMIHKbP5G+0mYbGyMgT/9JLmfhvDRI+6nA3E/k/Lh bh6F6fF5uLY6F6fXZ+IBUQg1tXvYu7QjXachyDAKZXZBuOxgj0dmg/DiqAqV mSvBv1hdZQFKA3X58P5dqcv0/KatB3DtTIWEwsakZbtBRHa1wg1HStYx+Nd0 /QCzswvAH1YOIZgUNgUrixOlJ4izkz2eRHlD8Y+vPh5a6+D8cG2c8XXBrWK6 LrCYNWXwa08Ete2O7AljEes3WYW0bBteOmcdrOOK8uBkXFqYh/sH54uIFGPO L7CybD/C/LOwMDwT+0PFIl2/Lp1h9kNLGP3cGk7dHBFrFIXi0CwsLSqSsmeX cJpoZfZ28+jJ0xFtHIWt9gG4PskG9430IGf7f5LByw+aKaitVFBNzknKkymk iyWuTiJkih/378n0MVzaDMJOYxckmxrAz0gXLqO7w958EDauSEVtWTJubIrH k01R4sPEuM23h6LEHIqscVDEDsFLHz2ctx6CUitzeDk4wJXwq+e4sfDo3hYn Kvb/ISGOZgw86ZJbz3icnZWHRweXSgKpum8QPWnSJiowGzlOAcLfzLQ6wr5T ZyTb+GN+RgFWzy+g+TMmz7G+M5BqGoU9k/xwa5IF/o6dDDkry/bJ5kN1iSas bIAP1XtKzauPThM+5ZYsMhIFdLbERTtKovFNk+jjRt3FE02zoL817kYHQbEs GtVLEnHscBWrN9lSsYcEovuwdetCkWLlyUIT98sicX5BANaneyDWxwWhni7Y HWeHZ+mGUEQPRpT2b4js/Au22tkLS3euV1Qr3+gpbGjd3gRz7KJQMzUHN8sz 8PROXcP6S8nH4Q/d3zvBol1HIQsWOlYHeaG2eB5I4vZQF5q7bqVs+gzM+4ch 1zwSlZO8cc/eFE+iPORMHSMXH2qrkYuPp3qpihA3qytPEp+OFjhnY0e0jyFX Vt9M9Zu0g1Nyl/E4M9kHb2ZFQVE5XUp2fKOSXYuNjUBUZBBmT43C4TUJuCWK DV5tCEH9Wl9ED+uO+MFdcIRYsEOjjHFAbzgJq/Ww385N2FWDEOAnDv/mbUaj 0DgE1VlZuEX3SHtwSW6WjhXvF2fmYtRvPZDTbzBKjPURa6aNTEdiE1c4QzFt Al4E6+NmuIsww8rekVpTVQerIREoIcHtEYfJeGBniAehbnIG6Yd/RwtD6R5f I8fw7tVhIk5bEbzHTpBy1S3g0WYI9pi74kVuOOrXReDl3bPKlb28RWeBGfPw GtTYf7Glcg8CHG0QF2CPGJdxxNHthwSr8dgSmYa9wXGo8grFYUcvEf+jTVBB 8L+N4P+AhH+a2mXbc8RaBSN1mC/2JGYIG7788+CKqKwa+IutXa4RPUFJK4hG bdGiVJwsT8ATSvoVRMuXGOFliD5uR7riYVW1co1G9Xk4jIjEXKswnHCgr28c jUdzSxj+eXPCUlH85g9q+OctA8M/b2IY/j3am+OEBcF/jJGyqjfRajKWDLLF /bhgKJZH4+XZjWCLu5vyqMAK2L8VUob2PZxhMXQsbMfow35sH6QkEGNauhTJ xCkqTczDyrhsbGbk8CbkcPIm5HDAoTGEHPrDsb27Hha17yW8N+wAOf+rtOze CO/nTmL+FFxeQjdYndvElPVXynv0oJmhzE5iZl9RaCN81pw6jz3V+zB3AdWX CUIJY/1KVyimG5MIrz9OD++JFxUVTBwXT9sIj9FRWGoTirMOzvjLSpgYZHTi TQwzO/xM5/9IJ9d2ZjhuTulkLD37qcBs6d2NcM7bF/VzSFxRKdZlakjHad4g pzmiraORQRzWQ9OIp7QxhW3CXLazAvv2VCGJkGwmIdkKSrKoNOwJjickCxNJ ZuGAw2NMUdF/BCGZPpa07y2QrJK9e5BSzAPe3e2F5LM00Sn6aSobSrNxGWnp YFlvQzwLFOjD5sV2HtyL0nmpOF6WiL8Iid6scoNihgnuD9bDs8NKbRnpXAS/ cdFYaxuMi8QB+WviYLw8Vs2/LoGZFLbDjPqrtinOflQlE28y5MikvktQA27l ihmbw6mtKQ6TwKU+ygTPtpd8Kll7SlHvtkNxwNINT/LCcWdJKFYvLpWlJJdO byFMb7rremJ9zBTcWJ2Hv+u2SosZCBF3ECLurkIiIeIMJRHT1YjoKBCxkhBx ByHiUkLEs+ImL/zehY4dzLHAMRoninOFadB2HOloYnjvcFO8iSOOzZEVDdrg A2yt3Itps1NxhJDu+sJwXHB3x02z0bjm5Q5GtyiPEkRMiMImu0BcdbDFQ5P+ +PuwCt2Y+flKGhF7lzjNk7DYSI1uPI3Gc02xOsAP/iXd6Kuyqowp3UzxeucM 9lKBBGsv5Jo5YJq3J3Gv3BHs79Uo82bS1giFDvGonZWPm+uiPpe0wXpCnb2E OglxeZhOd0OIz8YmSp0QQh0fQh1nHxyxJNQZa4bKAQbY2UMfyzuI1KmW9uum pbGlGVNg0XYcis3JM7nZuFWWTWc+eQoFtR6OOvOJUGTaov5GDb31viRcdZW1 yJ86AxmOCVjnl4harwDcsLfAxaF6+PtQ9Y8SEmK8ZyDRJAo77f1xc5KVMA0m Z6DkVtF//3bK8P52C96sMvWtNKtsRwR7oharrN1Qn0xosmeW+lsKIgKC4e7k jFQ3N5zMCcbTPYVKM0LTX/6D/IW9eu4Ql+qf+xeUWYx1Ow4IRIkjRClJzGNe bqVPOKGHL6GHEw6PMxfoUdpeG0O//h4G37RE/CB77E8hErgmFy8fXBZXDqlu PEGP/C5jxHtTrZX3PpRGXnPiElztU1Dqm4YDvpG45OqCm8YGuOjuJgbnDcna 5g0KgDqJJ2GmF4pM4knvn+TDJq3krBITKT7wkYjzmQwhDDUR5y0pBnqw4CbJ twi70jLxak086m/Wvi8hplERW+kcePcfjz227vinMAKv14crSWLR0RKzPJNR tyAfTw7OEwf8uVCZJ/jbcbmUUlgWnyOIz+6QBIFcKUPGwvi3tphIgsYA3W6Y OWkkjq1Mb6e0PmTEJlq6WK1LvWIbcO/xJGKdOB9JkzOwwS8Bpyb74aatGc4M 7Ev6r1bmddWJK322YHSprIPFoHAUUa/a2Ruvou1Rv2uOnDni6UL3A5ehi5xX 3ehVvbLbLTbDnooqPLx7VboSPQhN3hz9awpxs9YY2OOv5BAoVkVDcf98gwcW iKjRodibnYt7GzKFkknRr/lMBR9rCHH2EDGKIcQpJrrNUm8kxnToAat27RHa qw1Sh7bF+pm50gKt5nDWGoiqUWaoTyQm5Ojyz5hMnLwML8c0zPNNRZVvuJC6 v2E4HPdnljTav4InhdJyVZ+Dw6hobEvIwD/Lk6C4fVrlPV1MazFfiw9r/l8g wLvMiLHwcknedOT3MsWVQH/UL4jG68ppSoVFDbBtN0ehPvzS0nw8OFCijIp5 8JlKcCRWQ69jNzi1GYzyzv1xZ6w2VszIbC/9iGapw9uOwEUrCyhybNn8YFLK QmR4ZQgrR854+uCmtTHuBHkKM2ofyfSm2Vo2Q+2pyzhcdRC3zu5Vxiz8yn2W I+HjGDWEU/+4KYT/OwPe9ExTCw7RQe0NcMjeA6+mReLV+jClGoqyjkCqaSSq i6ijnCaX2FMWhdraw0xrNErbDsbFwb3xKLAfGpA/AyXdxuKRJzEB06xYScWS RTvg55KORX4pOOQTiqtOk3B97BDcKSnmWEvOkf9NRtGzOmk+/JBBr3r40fg1 kk3vC8K2oki38kXZaAc8SQ2FYnW0sCajgXePwrWPB9ZGTcF1EkI/OyftO95C zcLzCDTUGoMEreHCUs/7HsQdnO8neZz0PY59Ua5nhH/CiKo4tFIkz4eoOXoe aWmLkOudjh1+sajznIxbFoa45edBZ2n4rd7VtYUc1zCs8mr6HbAqFy3wb49R f5mX3G4YH0tDXUY4ZVofc1wLDoBiYTT+qZiqZEaTtuORZxeHmpn5uFMex7Zh 5S0w952VlNDCADetkdjYpT/uEp3wZIE1Xp2vbngvRDXctQYRB4co4mTqyy8D q+hatmw3gt3SsdwvGUe9g3GdOOpXRw3EtWnFUKtxFb7x7+xgWvZz8a806GpG GlymnNJQQyKfLWJIbPyuaY1lEJ9x4IR1GIVjjp54XRyJl+tDlAEEfdGazwA/ bE7Kwu11uXhFXEA5jap5bow6XscJM47G7HaDcWlIL9yeMQmvjy5toxT0EsQR XXLV1hKKPNumql3Z7EZNzUVMyViMIh/ixvhF47y7B26Zj8UNEliwjYF5Lcqi bBoC8fXy9PhBFae80y2H0w+bwCmhhdrsKRP8KVZ+2DTWEU/TieCviaKbHytZ 1JxEjDPdk3BmHnHbque1bEIAWdkfFfskrWE4QsT+UoIFXt09A4ZOmkmY3WMc HtPKtmLLJgtJGifPV6zcgwiPDKz2S0KNdyBukBDmrvFAhlRedzKkMgeZnsxh lhiVLfXhHeMJMkhl75hqyv7L7TKsec5O3MKjoJ8tboYFQrE4Gs8PFCq5OtIq AOEGwcIGNbSm7eW9Orwd72LBkIeWATZ3JXphnHZb6baVVj9sGWiMV5FEFxxe 2fASEA27VSgjktpLxAQmY7pPGiqDiCtTRIZ6aCm/KTlTqWwOjI9IvlNFMm+U Jkjyz6tZemooFRYQrO66NI1gccqbbu/1cFYqnq0LaaaEWr3mWHrbYFd7LPRP xcUl+XhYOUPSIv9qn4eGGYbjsCAKZS5RKJeH9sKrE9XKV6XQriZrDUHNBHMo 0mzx5shSJYZ4yNRLhpohPn4eZqTl4/6BZcr3cDXSymq+71tJ8KFAAhowaCjz fWsFIBvehk0HcP1UFZ7euwB1I/2uJKNrjJKMIoTNNu9vTG942UDD/qCM1amK SSUq5qiuLl4sKWbbAFFlndpxlJDaUOTbfP620evKaGOmahtvzCyLyPGccqDN UA2tnldX33NIefVlU+pPHkmJ7jlYEZGBayupE7ajwR9dSBjLAFu76ePeeO3W SpR6YmHP8fjbzwaKdUlvRUhfTpOyPRUY1Ly/pIYQXluOkSRHzgQR5Hwt37F6 kRg9VfifLg9ZtHg5Hp3bL4WboqRZEkmb326QUtK0pPbt6O5DQ0zwOlrIZn4h 0y3DRT8ZjfYvgTZ4BxPBqMrb8Ib9gNW3mHm7puvByUJ662E43leHysKfSuRU w6/1UJw2mQhFBkHCzVqldeMVB6sY4YtT1CClkDA9PYyDtOk4TBVSrX+vUBmA lLe9CW9vE3n7T+Xt6cjuNBp3nK3oVJCx1AK/68vHb4et8bqapqvQPlBDIb1q o6qphG+9JDLQwVsRHl3YfhCuDuuFfwiP/iFBYKyli+XSRIliXaIJh24mfMxG 0df/Uj5kUxzUykqQfCIzooFqkMjN9jHk8O6PozSyCYSnphCequkn8BQbMN3R ad8I5RSBCdcz8/bZgOmL8diCQeYWqA2Y71i/Ca2h3LtafqzUbPgS9tjRXQ/3 DLV/VyK+GCFthuPcRAshYU7531SG/5ljwRvOb1UHyuv7vtJANUi53KZijhwr WGuNwmLCCteGE1Y4Wa1c9kzzCYVdxuC+mxVNK5tzepjRlOUBecPUsPXYl5qH 3PsdRFbuVchOHDNkEU1SS5jh5dJiNuSBLdsipk1vIev6Zn3CRI572fIKJiy8 FpVLfnymOnhes2rLyKR6AuP7JgZPucNfi067EO6YoP2tUkBZBTjblmTQVz/C 5edWCO/8Cy6WlTJwGvP2/wmcbhoEk88c/KQRHJGHbAkPLe0wENclHvpGyQQ0 ZUfU/lppUZSYHyc40OoF25bt0P/rnzHmt87CK8HeEwRELHhg4+blWXUdi6oK fQeYede+8zsoI7bags+yOHP8l0P474ReH8p/X0iEW0bGX0bObdL7LPy0eiJW q7c4rI+woLsBlvYZj9X65lg/TFw/EqVjAH2CCEOtvsK6CPZyNGOCIPqqgrpB fWHGiR5bBd1CBgkNql5N9Bq/Ok1jPM42XOA5hEFNGTdQawSSW7fHgj5aIu/9 jhUE0g3k3E7OfcTdDSJQJ7bug+w2/TCt/UDM7jIUC7VHYbmOEdYMtECZgb0A +taJk7HD3l/4vts7EnsCY7EnPAl7YtOEe3ETJ2F4Dx2MaWNEkDKRnOPJOVzY /8mugyV22vrgdbonFJVLlCjiRZ2hqPGGLKp88oVmZLXh+ESTE6Ulg7HRSv5v CBREdP2B9QRNpyRxoHvt1JKzhpzHhBdViDOw9KUVJVZesGzZBtbf/wLXn76H VasfhL2uS6xcEU64I6W1DvLa6qGk4yDM7ToMi3uOxcq+Jlg72AobRk/CZiM3 bLP0xg6HAOxyD8Ue3yhhfn5PZDL2xKezd1iUTSvCypIiLCgpxOb1q4S7x45U w93ZFUN0+sB4nBXsB5sicoIfDDu7wkw/GGtTcvBkbTp9KzNDPK+UWBUwzccx z6DBmZTQLWfr1V9TIrfzXlsZdI+T6K3mSqMB7a2FPWamdx+DO1biTOkzZ138 7UROBx08naSDJ3Y6eGzTB39Z98Ejy954OLE3Hpj3RnDHXxDc6Xes0jPD+qE2 2DjWEVtMPYSXHOx0CsJuz3Ds8Y/BntAE7IlOwe7EDOxKy8KOzFxszcvHxqJC rCsuwvLpRZgzvQBla4U6BqKxD0IttckKoujGCEGhMUSoCvFsYSoUxc6o3bIa W/dV4PbtK6Id+Ehldlx9cwt6UNfhW1Vk8/pbfdcIOdeSvWeR151vR/YviLZP xnKnSDyfGgXFQhfxt7Ssd74dFPPIOZd4P3OIiznHGorZ5JxFfIxSS+zyH4Lo wT2IGkgkaiAVu5OmYFdGNrZn52FLfgHKpxZhNUHmEoLM6cV5OEUYtYach45U Ye+hA2pLjzSlV6vqEDB5Co5Oz8ebhbGon2KClyeqLSXsU/y0atVKmfOk/gnl YMnJaQKjv7yDVeksg9ExSg6Q25ZbVGPfoebwBcRH5eDYyhycKxdfN39hQ6yw ke1lcl7dGItrG2NwfUMMbmyMxk1y3iZniKEOQib0RWaIsyDgJwm+qIAfJDjb XrX3MyXOmqsNg5j2WZuQFZOHq3NyCNlCCPlCYSUNMTIyUqlp5bbf+EYVT7y4 svJEDXhib5Dis/VjZRAjR2O56USWPZydPRXd22jDfIgeAkz1YD+8E04cqfhN AjYxdh6WZxbg8YIMKGZ64s2W2bDktBsrFfqXwPLb4GsyIT1lTE9TYsaW6vJ/ Q8MLTuly++DxUVgRG4FViVYs/KY1IPunFeDVwkQo8qxRf7ZaAvB9FV1C70hu hRqz80zLr8jX5ML3kYFLzTQ2TGc340GItIpFtmMSrszNxfMV3soMwrH/p70r ja2qCsKjQF2C/iBiUyOkLkhB1JpGNhWUImuxYROKUHgYDISlkLK0UFm6EB48 WiqtklgphbaoENAWaUwK8sMfakCMNUoQKNGEPwrEGAX1lec9b86czj2d+3r8 D79ebrnfnfudme/MPcucdigu8Py/thJuNWyAG29N1g7ZyzfUTlmRZT+3w2Ua cqRwHyVDM58KQePa7XD9cAXELrRSpbnN+e9B3bYquFq/01O2lRDds9KQzEdz 1BWdmDwQbKTLrN4LzEfpw2wR8eWl0gtHrILWreVws3kH/Pv9UTPwuyPyAbR6 L3uj0bvn3YUQu/iNtrSXz98pfdJmUoTxfrt3gJlc+EYL9xGXast5ftYGOFtd CR0tJWba8MwFWJdXHp+L7GjcBB3bpurW7mkcNhKJqI7OMo6rMh2PFZDwZiaw q+j1jRAJlcLlukqINuUPJFmsOwG7i3fDlf1e0+9f47XzGiOLzc3NkJGREe+M ExjF1w4EqcI44T6ybMaQ+VC/ejtcO6S870SaBi0rqYdPKqrhj4YwxGoWwz/H a2G2/pvSK9WWycnJkJ6ezg4ANRZy3bLre0gzIBMFC+mzULneguF58FlpeXxn YscPTXqpQi9YtigcP34h2lgMsYrZED13Wg+EJBk9qampgVAoRIz05ZbeYyxN VA8kK9A63LO8cuJ6OLN7l+dxpf38nWDQNEpbe/y8q/Z9nvrUF0LsYBFMC3B9 5UrUkMnc9qT4n4Qx+eyE5n4M2+aXwCXvyR3H1lKXJfUNNOW5paAWGrZXwfWG iJdarYBbJ+t0LyoXwPEsuVOZ8ZDfJSjO1Oqxafoa/yImC6cPngv7VoXht4+8 VOHiyVSLRtR76JwuCc3eDKfeqYK/G8sg1taCnnR3YG+i27S/XyrV/6ShSWma lIzLHbocWkrK4a+mCNw6d8zaaGGZSQsMVbWu9YUVcPqwx/m1S68wC1XEBsgx jkuaqv0k+ep9WBtzI98wbXwAVowrhK8rd0H0eBmNaVltHDd7SoLYJKdDEYXe zBBW8eHVhIYchbK5xXBhb6U6IU4uwej9422mrAhoMwx6M+NERiiHoqyO5xVk xbS0HNibF4ZfP1QO9Xnn1jApQjPdGgeTb18hJHKfLMGU6eaZ9gKFnjD3uaVw bPNO+LPJ6+fPfbpYaBGVTfAWwbzWzLBRH6vrYk3SBvCs9zXrVYO+bMwM89t1 sDRzHXxZoVxo66JuGkgLD2afZr6L1wUhgec5yf836ghsydkC599X7rQ+lCDS WVMNR2xaP6muKrJUU00QjJphhXSX3Jh0p+2r8/Ez21Wtw+jFU7kO8o0JlhmP 5l4zXjBlpmxAokWN5y//At9+h2eXzmH8JGg0TKdMRUhyJt1wY5mtlBPOsgwI MirXTYox5MxANw/rTOHpM4RYmoe/1IOSgthHhs32QK74Y/Q1nrkdd1DGyQiZ Ikv0S8zjqBtucqMERdVUZeGBNFpAPeImWtjr6j2VfqJHCaiHHBjAEDYj3Nyj XxQgD7oJfQ6i9pf17XkB+IAbA/MQOFXglb7QeD+2T1/z7+tUmD0MA+p/LEDY R5hhJDEjBNgat8DEnMMUg+bcDhdQ97jJIfYv8BjjltEwVACudlC2ZYg6wCJW uRZVfOD9YaUbA3mISofc8JClgQ7eye10C658RB3IGGBRS6dEcyEOJ5IXjboO UQdZDHR2137IrQ7BtQEhBwukpguQxW6vvxFR6aRj7lZPs2skt5vcIgsfro85 6RKyQwTgIgcGkCVjFyeV7OeaXeDmVmFEpZVm6g2IgcHsGmnLaouBgMBC7zMt w3kdJKCuctSWXQj7rByvAwXk5W4sIGV6DtrvXU8IqEvc5AVVyIQnZ2GAgPqm g7agXGod6RKvVKKfK9ZCiwHbtTQDtQg8zGJAPfNRAdUxncGuyEg0oSoGpCnR OQ7agt2m6Us4qakC5CyHyMLO3ZwUYsUrVQrt8g3T/etjLmLGEjmplCVwzc52 kxfMm3w5BTHwsICa5cAAJngm8+GkUt7F1XWCW1RhyXydpXUJ1xQBeKybvJxA 4JeFcE1mr0DqSiltd/JyCmHHCCw8KMCOcmPhC0TNZCywkKXvHy7dI928CwtB 6YV6fu/iH3gkL8Mc5EXXYhxnQSoG+giQGW7achZRxwu8SsuonnF7/TZEnWBF raZAKt35ZJC8MNf6EVEnCaRKFVPSHILrJ4ScrG/nmZu0u+txt9e/hKhZAqnS wtVUN235GVGnyCErzcT1c2DgCqJmW6SqeJUGyVPcAgs33prtMZwBWkLHNbuv W6d9FVGnWm6lw5VWSXGB7WMxIAXW74hqr13li2g55P1uDODqG7Oci39r0Xge V9d73TzrJqLOFHjtIaDe5fD6UYTEL+QkO1ZJVWkrdqKBdD3yg9Mv9/lciXS5 m9eDOATyAzmaEgpKhSE4RfwWdCrf7LUPUhfXiv9ecvv37d/4G+74DygmlRo= \ \>"]], Cell[BoxData[ Graphics3DBox[{ {RGBColor[0.4, 0.2666666666666667, 0.13333333333333336`], Opacity[0.8], SphereBox[{0.8207646935799999, 2.0278649706, 1.73903924876}, 0.255]}, {RGBColor[0.4, 0.2666666666666667, 0.13333333333333336`], Opacity[0.8], SphereBox[{3.3073984452, 1.06567318318, 0.5237375609}, 0.255]}, {RGBColor[0.4, 0.2666666666666667, 0.13333333333333336`], Opacity[0.8], SphereBox[{-1.61359923688, 0.59437551878, 0.9582422600799999}, 0.255]}, {RGBColor[0.4, 0.2666666666666667, 0.13333333333333336`], Opacity[0.8], SphereBox[{-1.8057843710800001`, 0.6447556139399999, -1.9724959987999997`}, 0.255]}, {RGBColor[0.4, 0.2666666666666667, 0.13333333333333336`], Opacity[0.8], SphereBox[{5.239832252799999, 2.8406361232, 1.73371022144}, 0.255]}, {RGBColor[0.4, 0.2666666666666667, 0.13333333333333336`], Opacity[0.8], SphereBox[{-4.309331170399999, -0.59690775162, -2.9302091355999997`}, 0.255]}, {RGBColor[0.4, 0.2666666666666667, 0.13333333333333336`], Opacity[0.8], SphereBox[{1.4827735059, 2.2179714061999998`, 4.4886661678}, 0.255]}, {RGBColor[0.4, 0.2666666666666667, 0.13333333333333336`], Opacity[0.8], SphereBox[{2.962145505, 1.14220708618, -2.3672597601999996`}, 0.255]}, {RGBColor[0.4, 0.2666666666666667, 0.13333333333333336`], Opacity[0.8], SphereBox[{4.2775837736, 2.9976723537999996`, 4.5005714416}, 0.255]}, {RGBColor[0.4, 0.2666666666666667, 0.13333333333333336`], Opacity[0.8], SphereBox[{-1.9409375745999997`, -2.0747301754, 2.1006194216}, 0.255]}, {RGBColor[0.4, 0.2666666666666667, 0.13333333333333336`], Opacity[0.8], SphereBox[{0.6504247919399999, -0.32340770764, -3.0855446127999997`}, 0.255]}, {RGBColor[0.4, 0.2666666666666667, 0.13333333333333336`], Opacity[0.8], SphereBox[{3.9550075453999995`, -1.6268651134, 1.3405527271399997`}, 0.255]}, {RGBColor[0.4, 0.2666666666666667, 0.13333333333333336`], Opacity[0.8], SphereBox[{-5.041411022799999, -2.8549980408, -1.3536107337999999`}, 0.255]}, {RGBColor[0.4, 0.2666666666666667, 0.13333333333333336`], Opacity[0.8], SphereBox[{-2.9632793405999998`, -4.0665013794, 0.22727734601999997`}, 0.255]}, {RGBColor[0.4, 0.2666666666666667, 0.13333333333333336`], Opacity[0.8], SphereBox[{-6.533916617599999, 1.3064809673599997`, -2.7266856454}, 0.255]}, {RGBColor[0.4, 0.2666666666666667, 0.13333333333333336`], Opacity[0.8], SphereBox[{-4.1010833652, -1.3850368771800001`, -5.707161492599999}, 0.255]}, {RGBColor[0.4, 0.2666666666666667, 0.13333333333333336`], Opacity[0.8], SphereBox[{7.984092349999999, 2.0208729844, 1.5250277792599998`}, 0.255]}, {RGBColor[0.4, 0.2666666666666667, 0.13333333333333336`], Opacity[0.8], SphereBox[{-9.0576456906, 0.14869498003599999`, -3.6018177559999995`}, 0.255]}, {RGBColor[0.4, 0.2666666666666667, 0.13333333333333336`], Opacity[0.8], SphereBox[{-7.4173635226, -3.7745387124, -1.27696344724}, 0.255]}, {RGBColor[0.4, 0.2666666666666667, 0.13333333333333336`], Opacity[0.8], SphereBox[{-9.5102350676, -2.4621240053999998`, -2.5490514013999994`}, 0.255]}, {RGBColor[0.4, 0.2666666666666667, 0.13333333333333336`], Opacity[0.8], SphereBox[{9.007945896799999, 0.31654800226, 3.5730939208}, 0.255]}, {RGBColor[1, NCache[ Rational[1, 3], 0.3333333333333333], NCache[ Rational[1, 3], 0.3333333333333333]], Opacity[0.8], SphereBox[{5.1100080766, 5.2984137588, 0.6941908460999999}, 0.178]}, {RGBColor[1, NCache[ Rational[1, 3], 0.3333333333333333], NCache[ Rational[1, 3], 0.3333333333333333]], Opacity[0.8], SphereBox[{0.76584925602, -2.1319888731999996`, -4.4699578804}, 0.178]}, {RGBColor[1, NCache[ Rational[1, 3], 0.3333333333333333], NCache[ Rational[1, 3], 0.3333333333333333]], Opacity[0.8], SphereBox[{9.276286988799999, 2.7047648237999997`, -0.20067000393999998`}, 0.178]}, {RGBColor[1, NCache[ Rational[1, 3], 0.3333333333333333], NCache[ Rational[1, 3], 0.3333333333333333]], Opacity[0.8], SphereBox[{10.832854294999999`, -1.31489024806, 2.5123907169999997`}, 0.178]}, {RGBColor[1, NCache[ Rational[1, 3], 0.3333333333333333], NCache[ Rational[1, 3], 0.3333333333333333]], Opacity[0.8], SphereBox[{-11.5496273668, -3.4625449498, -2.7401027}, 0.178]}, {RGBColor[1, 1, 1], Opacity[0.8], SphereBox[{0.2169405448, 3.8287738486, 1.04562319032}, 0.12]}, {RGBColor[1, 1, 1], Opacity[0.8], SphereBox[{-3.1828655018, 1.5730646141799998`, 1.7759644948}, 0.12]}, {RGBColor[1, 1, 1], Opacity[0.8], SphereBox[{-1.9891255876, 2.5348784563999995`, -2.667348249}, 0.12]}, {RGBColor[1, 1, 1], Opacity[0.8], SphereBox[{0.308970201, 3.5349214555999997`, 5.4768038932}, 0.12]}, {RGBColor[1, 1, 1], Opacity[0.8], SphereBox[{1.23225253008, 0.43588419916, 5.4108524558}, 0.12]}, {RGBColor[1, 1, 1], Opacity[0.8], SphereBox[{4.5810737692, 0.32274630354, -3.2592104321999997`}, 0.12]}, {RGBColor[1, 1, 1], Opacity[0.8], SphereBox[{2.7567322888, 3.0613561199999997`, -2.9700823541999997`}, 0.12]}, {RGBColor[1, 1, 1], Opacity[0.8], SphereBox[{4.4945243184, 4.871713628, 5.2281159516}, 0.12]}, {RGBColor[1, 1, 1], Opacity[0.8], SphereBox[{5.341121566399999, 1.7417982487199999`, 5.675414095799999}, 0.12]}, {RGBColor[1, 1, 1], Opacity[0.8], SphereBox[{-3.3142014588, -1.90862326, 3.5755505646}, 0.12]}, {RGBColor[1, 1, 1], Opacity[0.8], SphereBox[{-0.13934839523999998`, -2.7017412621999997`, 2.7710942063999995`}, 0.12]}, {RGBColor[1, 1, 1], Opacity[0.8], SphereBox[{2.4638247588, -2.8755960541999994`, 0.7883558926800001}, 0.12]}, {RGBColor[1, 1, 1], Opacity[0.8], SphereBox[{4.175349596999999, -1.68716627006, 3.349539335}, 0.12]}, {RGBColor[1, 1, 1], Opacity[0.8], SphereBox[{5.6793825204, -2.2032315434, 0.45576411667999994`}, 0.12]}, {RGBColor[1, 1, 1], Opacity[0.8], SphereBox[{-3.7002724806, -5.6542491645999995`, 1.2394901806599998`}, 0.12]}, {RGBColor[1, 1, 1], Opacity[0.8], SphereBox[{-1.4686194581599998`, -4.6974808908, -0.9797473419599999}, 0.12]}, {RGBColor[1, 1, 1], Opacity[0.8], SphereBox[{-6.1200666236, 2.875218109, -3.9334646689999997`}, 0.12]}, {RGBColor[1, 1, 1], Opacity[0.8], SphereBox[{-6.718542847799999, 1.8884220890599999`, -0.79920291992}, 0.12]}, {RGBColor[1, 1, 1], Opacity[0.8], SphereBox[{-5.883472928399999, -2.0994855859999997`, -6.340408675199999}, 0.12]}, {RGBColor[1, 1, 1], Opacity[0.8], SphereBox[{-2.6928595499999997`, -2.8238175618, -5.8957561474}, 0.12]}, {RGBColor[1, 1, 1], Opacity[0.8], SphereBox[{-3.5814087152, 0.21756415437999999`, -6.825690312}, 0.12]}, {RGBColor[1, 1, 1], Opacity[0.8], SphereBox[{6.194710800599999, 6.409761619399999, 1.63198627086}, 0.12]}, {RGBColor[1, 1, 1], Opacity[0.8], SphereBox[{-8.9811117876, -0.016094796342, -5.6156987542}, 0.12]}, {RGBColor[1, 1, 1], Opacity[0.8], SphereBox[{-10.5633793674, 1.35621855568, -2.9995620797999996`}, 0.12]}, {RGBColor[1, 1, 1], Opacity[0.8], SphereBox[{-7.786049065199999, -5.490031975199999, -0.27219613304}, 0.12]}, {RGBColor[1, 1, 1], Opacity[0.8], SphereBox[{9.8541651996, 1.43265797238, 5.031395475}, 0.12]}, {RGBColor[1, 1, 1], Opacity[0.8], SphereBox[{7.5005114666, -0.7748065572599999, 4.3635663066}, 0.12]}, {RGBColor[1, 1, 1], Opacity[0.8], SphereBox[{11.492746614199998`, -2.4050542802, 3.8036404928}, 0.12]}, Text3DBox["1", {0.22076469357999995`, 2.0278649706, 1.73903924876}, {1, 0}], Text3DBox["2", {2.7073984452, 1.06567318318, 0.5237375609}, {1, 0}], Text3DBox["3", {-2.21359923688, 0.59437551878, 0.9582422600799999}, {1, 0}], Text3DBox["4", {-2.40578437108, 0.6447556139399999, -1.9724959987999997`}, {1, 0}], Text3DBox["5", {4.6398322528, 2.8406361232, 1.73371022144}, {1, 0}], Text3DBox[ "6", {-4.909331170399999, -0.59690775162, -2.9302091355999997`}, {1, 0}], Text3DBox["7", {0.8827735059, 2.2179714061999998`, 4.4886661678}, {1, 0}], Text3DBox["8", {2.362145505, 1.14220708618, -2.3672597601999996`}, {1, 0}], Text3DBox["9", {3.6775837736, 2.9976723537999996`, 4.5005714416}, {1, 0}], Text3DBox["10", {-2.5409375745999996`, -2.0747301754, 2.1006194216}, {1, 0}], Text3DBox["11", { 0.050424791939999936`, -0.32340770764, -3.0855446127999997`}, {1, 0}], Text3DBox["12", {3.3550075453999995`, -1.6268651134, 1.3405527271399997`}, {1, 0}], Text3DBox[ "13", {-5.641411022799999, -2.8549980408, -1.3536107337999999`}, {1, 0}], Text3DBox["14", {-3.5632793406, -4.0665013794, 0.22727734601999997`}, {1, 0}], Text3DBox["15", {-7.133916617599999, 1.3064809673599997`, -2.7266856454}, {1, 0}], Text3DBox[ "16", {-4.7010833652, -1.3850368771800001`, -5.707161492599999}, {1, 0}], Text3DBox["17", {7.3840923499999995`, 2.0208729844, 1.5250277792599998`}, { 1, 0}], Text3DBox["18", {-9.657645690599999, 0.14869498003599999`, -3.6018177559999995`}, {1, 0}], Text3DBox["19", {-8.0173635226, -3.7745387124, -1.27696344724}, {1, 0}], Text3DBox[ "20", {-10.1102350676, -2.4621240053999998`, -2.5490514013999994`}, {1, 0}], Text3DBox["21", {8.4079458968, 0.31654800226, 3.5730939208}, {1, 0}], Text3DBox["22", {4.5100080766, 5.2984137588, 0.6941908460999999}, {1, 0}], Text3DBox["23", {0.16584925602, -2.1319888731999996`, -4.4699578804}, {1, 0}], Text3DBox["24", {8.6762869888, 2.7047648237999997`, -0.20067000393999998`}, {1, 0}], Text3DBox["25", {10.232854295, -1.31489024806, 2.5123907169999997`}, {1, 0}], Text3DBox["26", {-12.149627366799999`, -3.4625449498, -2.7401027}, { 1, 0}], Text3DBox["27", {-0.38305945519999995`, 3.8287738486, 1.04562319032}, {1, 0}], Text3DBox["28", {-3.7828655018, 1.5730646141799998`, 1.7759644948}, {1, 0}], Text3DBox["29", {-2.5891255876, 2.5348784563999995`, -2.667348249}, { 1, 0}], Text3DBox["30", {-0.291029799, 3.5349214555999997`, 5.4768038932}, {1, 0}], Text3DBox["31", {0.63225253008, 0.43588419916, 5.4108524558}, {1, 0}], Text3DBox["32", {3.9810737691999996`, 0.32274630354, -3.2592104321999997`}, {1, 0}], Text3DBox["33", {2.1567322888, 3.0613561199999997`, -2.9700823541999997`}, {1, 0}], Text3DBox["34", {3.8945243184, 4.871713628, 5.2281159516}, {1, 0}], Text3DBox["35", {4.7411215663999995`, 1.7417982487199999`, 5.675414095799999}, {1, 0}], Text3DBox["36", {-3.9142014588, -1.90862326, 3.5755505646}, {1, 0}], Text3DBox["37", {-0.73934839524, -2.7017412621999997`, 2.7710942063999995`}, {1, 0}], Text3DBox["38", {1.8638247587999999`, -2.8755960541999994`, 0.7883558926800001}, {1, 0}], Text3DBox["39", {3.5753495969999993`, -1.68716627006, 3.349539335}, {1, 0}], Text3DBox["40", {5.0793825204, -2.2032315434, 0.45576411667999994`}, {1, 0}], Text3DBox["41", {-4.3002724805999994`, -5.6542491645999995`, 1.2394901806599998`}, {1, 0}], Text3DBox[ "42", {-2.0686194581599997`, -4.6974808908, -0.9797473419599999}, {1, 0}], Text3DBox["43", {-6.720066623599999, 2.875218109, -3.9334646689999997`}, { 1, 0}], Text3DBox["44", {-7.318542847799999, 1.8884220890599999`, -0.79920291992}, {1, 0}], Text3DBox[ "45", {-6.483472928399999, -2.0994855859999997`, -6.340408675199999}, {1, 0}], Text3DBox[ "46", {-3.2928595499999997`, -2.8238175618, -5.8957561474}, {1, 0}], Text3DBox["47", {-4.1814087152, 0.21756415437999999`, -6.825690312}, {1, 0}], Text3DBox["48", {5.5947108006, 6.409761619399999, 1.63198627086}, {1, 0}], Text3DBox["49", {-9.5811117876, -0.016094796342, -5.6156987542}, {1, 0}], Text3DBox["50", {-11.1633793674, 1.35621855568, -2.9995620797999996`}, {1, 0}], Text3DBox[ "51", {-8.3860490652, -5.490031975199999, -0.27219613304}, {1, 0}], Text3DBox["52", {9.254165199600001, 1.43265797238, 5.031395475}, {1, 0}], Text3DBox["53", {6.9005114666, -0.7748065572599999, 4.3635663066}, {1, 0}], Text3DBox["54", {10.892746614199998`, -2.4050542802, 3.8036404928}, {1, 0}], {RGBColor[0.36, 0.24, 0.12], Opacity[0.5], SphereBox[{2.065488684677457, 1.5462245999348945`, 1.1307007001840117`}, 1.2089239760875008`]}, {RGBColor[0.36, 0.24, 0.12], Opacity[0.5], SphereBox[{-0.39641727165000007`, 1.31112024469, 1.3486407544199999`}, 1.2093117000733593`]}, {RGBColor[0.36, 0.24, 0.12], Opacity[0.5], SphereBox[{-1.7096918039800002`, 0.6195655663599999, -0.5071268693600002}, 1.2125524485639627`]}, {RGBColor[0.36, 0.24, 0.12], Opacity[0.5], SphereBox[{4.273615349, 1.95315465319, 1.12872389117}, 1.1885369012002074`]}, {RGBColor[0.36, 0.24, 0.12], Opacity[0.5], SphereBox[{-3.058963013125819, 0.023226984735560063`, -2.451890132183268}, 1.2208684878769631`]}, {RGBColor[0.36, 0.24, 0.12], Opacity[0.5], SphereBox[{1.1519439432430656`, 2.122968397512835, 3.11457891372274}, 1.1611100477985508`]}, {RGBColor[0.36, 0.24, 0.12], Opacity[0.5], SphereBox[{3.134879779063645, 1.1039162372496354`, -0.9208583963452253}, 1.2000928574714744`]}, {RGBColor[0.36, 0.24, 0.12], Opacity[0.5], SphereBox[{4.759006315081223, 2.9191055564765716`, 3.116283090588319}, 1.2106280587681753`]}, {RGBColor[0.36, 0.24, 0.12], Opacity[0.5], SphereBox[{2.88017863975, 2.6078218799999995`, 4.4946188047}, 1.1945990782605336`]}, {RGBColor[0.36, 0.24, 0.12], Opacity[0.5], SphereBox[{-1.7773522860272264`, -0.7408612853247065, 1.5297235744229245`}, 1.204667457232264]}, {RGBColor[0.36, 0.24, 0.12], Opacity[0.5], SphereBox[{-0.5762583756081046, 0.160113674781444, -2.529664429624643}, 1.1764034082945702`]}, {RGBColor[0.36, 0.24, 0.12], Opacity[0.5], SphereBox[{1.8055422402552916`, 0.40892869064816145`, -2.726633018760351}, 1.1587415975213327`]}, {RGBColor[0.36, 0.24, 0.12], Opacity[0.5], SphereBox[{3.6308870439654886`, -0.27928234696015686`, 0.9317466415256053}, 1.1874566441223584`]}, {RGBColor[0.36, 0.24, 0.12], Opacity[0.5], SphereBox[{-4.675371096599999, -1.72595289621, -2.1419099346999997`}, 1.168651146569422]}, {RGBColor[0.36, 0.24, 0.12], Opacity[0.5], SphereBox[{-2.4521084575999996`, -3.0706157774, 1.16394838381}, 1.2034214651035733`]}, {RGBColor[0.36, 0.24, 0.12], Opacity[0.5], SphereBox[{-4.003001747900488, -3.4603669469908493`, -0.5636661606412433}, 1.1830540626978738`]}, {RGBColor[0.36, 0.24, 0.12], Opacity[0.5], SphereBox[{-5.420934540906021, 0.3541967870096132, -2.8285104582269973`}, 1.2112233902183762`]}, {RGBColor[0.36, 0.24, 0.12], Opacity[0.5], SphereBox[{-4.205308625976662, -0.99058871693032, -4.317333718450225}, 1.1908841882769436`]}, {RGBColor[0.36, 0.24, 0.12], Opacity[0.5], SphereBox[{6.611962301399999, 2.4307545538, 1.6293690003499999`}, 1.1796580346067578`]}, {RGBColor[0.36, 0.24, 0.12], Opacity[0.5], SphereBox[{-7.795781154099999, 0.7275879736979999, -3.1642517006999995`}, 1.1994584370227777`]}, {RGBColor[0.36, 0.24, 0.12], Opacity[0.5], SphereBox[{-6.22784188262672, -3.314170280036206, -1.3153369441916551`}, 1.018239488882042]}, {RGBColor[0.36, 0.24, 0.12], Opacity[0.5], SphereBox[{-9.284084735452852, -1.1575472505363353`, \ -3.0750987919602304`}, 1.1694365259514992`]}, {RGBColor[0.36, 0.24, 0.12], Opacity[0.5], SphereBox[{-8.465048122086795, -3.1175482344373995`, \ -1.9137664856061682`}, 1.133132008706068]}, {RGBColor[0.36, 0.24, 0.12], Opacity[0.5], SphereBox[{8.49569292018753, 1.169253497049627, 2.5484083292111697`}, 1.1710178358100878`]}, {RGBColor[0.36, 0.24, 0.12], Opacity[0.5], SphereBox[{5.173080962990611, 4.104343947451682, 1.1992238020623223`}, 1.1175335553911183`]}, {RGBColor[0.36, 0.24, 0.12], Opacity[0.5], SphereBox[{0.71005271281996, -1.2577151398170554`, -3.8007282217826246`}, 0.9219428549379565]}, {RGBColor[0.36, 0.24, 0.12], Opacity[0.5], SphereBox[{8.651814336977907, 2.3742637230477106`, 0.6332996153111482}, 0.9125444262165858]}, {RGBColor[0.36, 0.24, 0.12], Opacity[0.5], SphereBox[{9.9468961379869, -0.5228581510189438, 3.027341854549396}, 1.115552745313438]}, {RGBColor[0.36, 0.24, 0.12], Opacity[0.5], SphereBox[{-10.563793225632828`, -2.9789454368886763`, -2.64774926071905}, 0.9214576572773538]}, {Opacity[0.5], SphereBox[{0.3928370729024982, 3.3041614764231126`, 1.2476182205892412`}, 1.175873960608266]}, {Opacity[0.5], SphereBox[{-2.725753723477295, 1.2879821378507583`, 1.537770076655205}, 1.1759719747106816`]}, {Opacity[0.5], SphereBox[{-1.9357194444742705`, 1.9842975615763971`, -2.464942159252208}, 1.1759471005730835`]}, {Opacity[0.5], SphereBox[{0.6511622769026942, 3.1509986387335625`, 5.18873782785424}, 1.1758456663968215`]}, {Opacity[0.5], SphereBox[{1.3052815742868127`, 0.9553781257557059, 5.142027129007176}, 1.1759533097985035`]}, {Opacity[0.5], SphereBox[{4.10908428853371, 0.5616555114262259, -2.9991672025110905`}, 1.1757054320143454`]}, {Opacity[0.5], SphereBox[{2.8166142265629714`, 2.5018869430548216`, -2.794347872632494}, 1.1758790207110068`]}, {Opacity[0.5], SphereBox[{4.431279562481051, 4.32537369381166, 5.01601463601816}, 1.1758029157078513`]}, {Opacity[0.5], SphereBox[{5.0310745514254, 2.107915955208663, 5.332919019023687}, 1.1758456345190291`]}, {Opacity[0.5], SphereBox[{-2.9138754562260925`, -1.9570457942317965`, 3.1455871064894527`}, 1.1759147256701556`]}, {Opacity[0.5], SphereBox[{-0.6645671139826965, -2.5189482240204804`, 2.5756301619572826`}, 1.1757999482709418`]}, {Opacity[0.5], SphereBox[{2.89836369746469, -2.511708928779106, 0.9492691144100837}, 1.1756697494994617`]}, {Opacity[0.5], SphereBox[{4.111143348221905, -1.669594903005892, 2.764133630553342}, 1.1757532431508864`]}, {Opacity[0.5], SphereBox[{5.176929469821098, -2.0352883319736272`, 0.7135762183912849}, 1.175828457261476]}, {Opacity[0.5], SphereBox[{-3.4854234758281817`, -5.19138728303774, 0.9444088449780085}, 1.175867660275224]}, {Opacity[0.5], SphereBox[{-1.9043242866722403`, -4.513545519924539, -0.6278903804766721}, 1.1759604267200023`]}, {Opacity[0.5], SphereBox[{-6.240714859896816, 2.4178896757605512`, -3.581656615579237}, 1.1758298043519986`]}, {Opacity[0.5], SphereBox[{-6.664715519380403, 1.7187585702594388`, -1.3611558210604324`}, 1.1756834897111936`]}, {Opacity[0.5], SphereBox[{-5.364104856950209, -1.8913033481151162`, -6.155887639637208}, 1.1757872368289468`]}, {Opacity[0.5], SphereBox[{-3.103179898130508, -2.404593724633971, -5.840804495838775}, 1.1758862986042695`]}, {Opacity[0.5], SphereBox[{-3.7328147968502217`, -0.24935017872649823`, \ -6.499809367531759}, 1.176070856851879]}, {Opacity[0.5], SphereBox[{5.881344647325187, 6.088697795809551, 1.3610610317935217`}, 1.1095683746965141`]}, {Opacity[0.5], SphereBox[{-9.003422885810746, 0.03194457889927682, -5.028613881034756}, 1.1758807764402524`]}, {Opacity[0.5], SphereBox[{-10.124393189617836`, 1.0041734581828405`, -3.1751455321835036`}, 1.1757149010027295`]}, {Opacity[0.5], SphereBox[{-7.67864549065377, -4.9902833079879665`, -0.5648997752041748}, 1.1758000987445754`]}, {Opacity[0.5], SphereBox[{9.607467093524468, 1.1072787061666658`, 4.606257180094934}, 1.1758071406155688`]}, {Opacity[0.5], SphereBox[{7.939982696514464, -0.45663754046145233`, 4.133115240443274}, 1.1757645908950707`]}, {Opacity[0.5], SphereBox[{11.30210954194145, -2.0901155040968096`, 3.4306098184750677`}, 1.1095979056681424`]}}, AspectRatio->Automatic, Axes->Automatic, AxesLabel->{ FormBox["xl", TraditionalForm], FormBox["yl", TraditionalForm], FormBox["zl", TraditionalForm]}, Boxed->True, SphericalRegion->True]], "Output", CellChangeTimes->{3.574834506531407*^9, 3.580142419709214*^9}], Cell[BoxData[ Graphics3DBox[{ {RGBColor[0.4, 0.2666666666666667, 0.13333333333333336`], Opacity[0.8], SphereBox[{0.8207646935799999, 2.0278649706, 1.73903924876}, 0.255]}, {RGBColor[0.4, 0.2666666666666667, 0.13333333333333336`], Opacity[0.8], SphereBox[{3.3073984452, 1.06567318318, 0.5237375609}, 0.255]}, {RGBColor[0.4, 0.2666666666666667, 0.13333333333333336`], Opacity[0.8], SphereBox[{-1.61359923688, 0.59437551878, 0.9582422600799999}, 0.255]}, {RGBColor[0.4, 0.2666666666666667, 0.13333333333333336`], Opacity[0.8], SphereBox[{-1.8057843710800001`, 0.6447556139399999, -1.9724959987999997`}, 0.255]}, {RGBColor[0.4, 0.2666666666666667, 0.13333333333333336`], Opacity[0.8], SphereBox[{5.239832252799999, 2.8406361232, 1.73371022144}, 0.255]}, {RGBColor[0.4, 0.2666666666666667, 0.13333333333333336`], Opacity[0.8], SphereBox[{-4.309331170399999, -0.59690775162, -2.9302091355999997`}, 0.255]}, {RGBColor[0.4, 0.2666666666666667, 0.13333333333333336`], Opacity[0.8], SphereBox[{1.4827735059, 2.2179714061999998`, 4.4886661678}, 0.255]}, {RGBColor[0.4, 0.2666666666666667, 0.13333333333333336`], Opacity[0.8], SphereBox[{2.962145505, 1.14220708618, -2.3672597601999996`}, 0.255]}, {RGBColor[0.4, 0.2666666666666667, 0.13333333333333336`], Opacity[0.8], SphereBox[{4.2775837736, 2.9976723537999996`, 4.5005714416}, 0.255]}, {RGBColor[0.4, 0.2666666666666667, 0.13333333333333336`], Opacity[0.8], SphereBox[{-1.9409375745999997`, -2.0747301754, 2.1006194216}, 0.255]}, {RGBColor[0.4, 0.2666666666666667, 0.13333333333333336`], Opacity[0.8], SphereBox[{0.6504247919399999, -0.32340770764, -3.0855446127999997`}, 0.255]}, {RGBColor[0.4, 0.2666666666666667, 0.13333333333333336`], Opacity[0.8], SphereBox[{3.9550075453999995`, -1.6268651134, 1.3405527271399997`}, 0.255]}, {RGBColor[0.4, 0.2666666666666667, 0.13333333333333336`], Opacity[0.8], SphereBox[{-5.041411022799999, -2.8549980408, -1.3536107337999999`}, 0.255]}, {RGBColor[0.4, 0.2666666666666667, 0.13333333333333336`], Opacity[0.8], SphereBox[{-2.9632793405999998`, -4.0665013794, 0.22727734601999997`}, 0.255]}, {RGBColor[0.4, 0.2666666666666667, 0.13333333333333336`], Opacity[0.8], SphereBox[{-6.533916617599999, 1.3064809673599997`, -2.7266856454}, 0.255]}, {RGBColor[0.4, 0.2666666666666667, 0.13333333333333336`], Opacity[0.8], SphereBox[{-4.1010833652, -1.3850368771800001`, -5.707161492599999}, 0.255]}, {RGBColor[0.4, 0.2666666666666667, 0.13333333333333336`], Opacity[0.8], SphereBox[{7.984092349999999, 2.0208729844, 1.5250277792599998`}, 0.255]}, {RGBColor[0.4, 0.2666666666666667, 0.13333333333333336`], Opacity[0.8], SphereBox[{-9.0576456906, 0.14869498003599999`, -3.6018177559999995`}, 0.255]}, {RGBColor[0.4, 0.2666666666666667, 0.13333333333333336`], Opacity[0.8], SphereBox[{-7.4173635226, -3.7745387124, -1.27696344724}, 0.255]}, {RGBColor[0.4, 0.2666666666666667, 0.13333333333333336`], Opacity[0.8], SphereBox[{-9.5102350676, -2.4621240053999998`, -2.5490514013999994`}, 0.255]}, {RGBColor[0.4, 0.2666666666666667, 0.13333333333333336`], Opacity[0.8], SphereBox[{9.007945896799999, 0.31654800226, 3.5730939208}, 0.255]}, {RGBColor[1, NCache[ Rational[1, 3], 0.3333333333333333], NCache[ Rational[1, 3], 0.3333333333333333]], Opacity[0.8], SphereBox[{5.1100080766, 5.2984137588, 0.6941908460999999}, 0.178]}, {RGBColor[1, NCache[ Rational[1, 3], 0.3333333333333333], NCache[ Rational[1, 3], 0.3333333333333333]], Opacity[0.8], SphereBox[{0.76584925602, -2.1319888731999996`, -4.4699578804}, 0.178]}, {RGBColor[1, NCache[ Rational[1, 3], 0.3333333333333333], NCache[ Rational[1, 3], 0.3333333333333333]], Opacity[0.8], SphereBox[{9.276286988799999, 2.7047648237999997`, -0.20067000393999998`}, 0.178]}, {RGBColor[1, NCache[ Rational[1, 3], 0.3333333333333333], NCache[ Rational[1, 3], 0.3333333333333333]], Opacity[0.8], SphereBox[{10.832854294999999`, -1.31489024806, 2.5123907169999997`}, 0.178]}, {RGBColor[1, NCache[ Rational[1, 3], 0.3333333333333333], NCache[ Rational[1, 3], 0.3333333333333333]], Opacity[0.8], SphereBox[{-11.5496273668, -3.4625449498, -2.7401027}, 0.178]}, {RGBColor[1, 1, 1], Opacity[0.8], SphereBox[{0.2169405448, 3.8287738486, 1.04562319032}, 0.12]}, {RGBColor[1, 1, 1], Opacity[0.8], SphereBox[{-3.1828655018, 1.5730646141799998`, 1.7759644948}, 0.12]}, {RGBColor[1, 1, 1], Opacity[0.8], SphereBox[{-1.9891255876, 2.5348784563999995`, -2.667348249}, 0.12]}, {RGBColor[1, 1, 1], Opacity[0.8], SphereBox[{0.308970201, 3.5349214555999997`, 5.4768038932}, 0.12]}, {RGBColor[1, 1, 1], Opacity[0.8], SphereBox[{1.23225253008, 0.43588419916, 5.4108524558}, 0.12]}, {RGBColor[1, 1, 1], Opacity[0.8], SphereBox[{4.5810737692, 0.32274630354, -3.2592104321999997`}, 0.12]}, {RGBColor[1, 1, 1], Opacity[0.8], SphereBox[{2.7567322888, 3.0613561199999997`, -2.9700823541999997`}, 0.12]}, {RGBColor[1, 1, 1], Opacity[0.8], SphereBox[{4.4945243184, 4.871713628, 5.2281159516}, 0.12]}, {RGBColor[1, 1, 1], Opacity[0.8], SphereBox[{5.341121566399999, 1.7417982487199999`, 5.675414095799999}, 0.12]}, {RGBColor[1, 1, 1], Opacity[0.8], SphereBox[{-3.3142014588, -1.90862326, 3.5755505646}, 0.12]}, {RGBColor[1, 1, 1], Opacity[0.8], SphereBox[{-0.13934839523999998`, -2.7017412621999997`, 2.7710942063999995`}, 0.12]}, {RGBColor[1, 1, 1], Opacity[0.8], SphereBox[{2.4638247588, -2.8755960541999994`, 0.7883558926800001}, 0.12]}, {RGBColor[1, 1, 1], Opacity[0.8], SphereBox[{4.175349596999999, -1.68716627006, 3.349539335}, 0.12]}, {RGBColor[1, 1, 1], Opacity[0.8], SphereBox[{5.6793825204, -2.2032315434, 0.45576411667999994`}, 0.12]}, {RGBColor[1, 1, 1], Opacity[0.8], SphereBox[{-3.7002724806, -5.6542491645999995`, 1.2394901806599998`}, 0.12]}, {RGBColor[1, 1, 1], Opacity[0.8], SphereBox[{-1.4686194581599998`, -4.6974808908, -0.9797473419599999}, 0.12]}, {RGBColor[1, 1, 1], Opacity[0.8], SphereBox[{-6.1200666236, 2.875218109, -3.9334646689999997`}, 0.12]}, {RGBColor[1, 1, 1], Opacity[0.8], SphereBox[{-6.718542847799999, 1.8884220890599999`, -0.79920291992}, 0.12]}, {RGBColor[1, 1, 1], Opacity[0.8], SphereBox[{-5.883472928399999, -2.0994855859999997`, -6.340408675199999}, 0.12]}, {RGBColor[1, 1, 1], Opacity[0.8], SphereBox[{-2.6928595499999997`, -2.8238175618, -5.8957561474}, 0.12]}, {RGBColor[1, 1, 1], Opacity[0.8], SphereBox[{-3.5814087152, 0.21756415437999999`, -6.825690312}, 0.12]}, {RGBColor[1, 1, 1], Opacity[0.8], SphereBox[{6.194710800599999, 6.409761619399999, 1.63198627086}, 0.12]}, {RGBColor[1, 1, 1], Opacity[0.8], SphereBox[{-8.9811117876, -0.016094796342, -5.6156987542}, 0.12]}, {RGBColor[1, 1, 1], Opacity[0.8], SphereBox[{-10.5633793674, 1.35621855568, -2.9995620797999996`}, 0.12]}, {RGBColor[1, 1, 1], Opacity[0.8], SphereBox[{-7.786049065199999, -5.490031975199999, -0.27219613304}, 0.12]}, {RGBColor[1, 1, 1], Opacity[0.8], SphereBox[{9.8541651996, 1.43265797238, 5.031395475}, 0.12]}, {RGBColor[1, 1, 1], Opacity[0.8], SphereBox[{7.5005114666, -0.7748065572599999, 4.3635663066}, 0.12]}, {RGBColor[1, 1, 1], Opacity[0.8], SphereBox[{11.492746614199998`, -2.4050542802, 3.8036404928}, 0.12]}, Text3DBox["1", {0.22076469357999995`, 2.0278649706, 1.73903924876}, {1, 0}], Text3DBox["2", {2.7073984452, 1.06567318318, 0.5237375609}, {1, 0}], Text3DBox["3", {-2.21359923688, 0.59437551878, 0.9582422600799999}, {1, 0}], Text3DBox["4", {-2.40578437108, 0.6447556139399999, -1.9724959987999997`}, {1, 0}], Text3DBox["5", {4.6398322528, 2.8406361232, 1.73371022144}, {1, 0}], Text3DBox[ "6", {-4.909331170399999, -0.59690775162, -2.9302091355999997`}, {1, 0}], Text3DBox["7", {0.8827735059, 2.2179714061999998`, 4.4886661678}, {1, 0}], Text3DBox["8", {2.362145505, 1.14220708618, -2.3672597601999996`}, {1, 0}], Text3DBox["9", {3.6775837736, 2.9976723537999996`, 4.5005714416}, {1, 0}], Text3DBox["10", {-2.5409375745999996`, -2.0747301754, 2.1006194216}, {1, 0}], Text3DBox["11", { 0.050424791939999936`, -0.32340770764, -3.0855446127999997`}, {1, 0}], Text3DBox["12", {3.3550075453999995`, -1.6268651134, 1.3405527271399997`}, {1, 0}], Text3DBox[ "13", {-5.641411022799999, -2.8549980408, -1.3536107337999999`}, {1, 0}], Text3DBox["14", {-3.5632793406, -4.0665013794, 0.22727734601999997`}, {1, 0}], Text3DBox["15", {-7.133916617599999, 1.3064809673599997`, -2.7266856454}, {1, 0}], Text3DBox[ "16", {-4.7010833652, -1.3850368771800001`, -5.707161492599999}, {1, 0}], Text3DBox["17", {7.3840923499999995`, 2.0208729844, 1.5250277792599998`}, { 1, 0}], Text3DBox["18", {-9.657645690599999, 0.14869498003599999`, -3.6018177559999995`}, {1, 0}], Text3DBox["19", {-8.0173635226, -3.7745387124, -1.27696344724}, {1, 0}], Text3DBox[ "20", {-10.1102350676, -2.4621240053999998`, -2.5490514013999994`}, {1, 0}], Text3DBox["21", {8.4079458968, 0.31654800226, 3.5730939208}, {1, 0}], Text3DBox["22", {4.5100080766, 5.2984137588, 0.6941908460999999}, {1, 0}], Text3DBox["23", {0.16584925602, -2.1319888731999996`, -4.4699578804}, {1, 0}], Text3DBox["24", {8.6762869888, 2.7047648237999997`, -0.20067000393999998`}, {1, 0}], Text3DBox["25", {10.232854295, -1.31489024806, 2.5123907169999997`}, {1, 0}], Text3DBox["26", {-12.149627366799999`, -3.4625449498, -2.7401027}, { 1, 0}], Text3DBox["27", {-0.38305945519999995`, 3.8287738486, 1.04562319032}, {1, 0}], Text3DBox["28", {-3.7828655018, 1.5730646141799998`, 1.7759644948}, {1, 0}], Text3DBox["29", {-2.5891255876, 2.5348784563999995`, -2.667348249}, { 1, 0}], Text3DBox["30", {-0.291029799, 3.5349214555999997`, 5.4768038932}, {1, 0}], Text3DBox["31", {0.63225253008, 0.43588419916, 5.4108524558}, {1, 0}], Text3DBox["32", {3.9810737691999996`, 0.32274630354, -3.2592104321999997`}, {1, 0}], Text3DBox["33", {2.1567322888, 3.0613561199999997`, -2.9700823541999997`}, {1, 0}], Text3DBox["34", {3.8945243184, 4.871713628, 5.2281159516}, {1, 0}], Text3DBox["35", {4.7411215663999995`, 1.7417982487199999`, 5.675414095799999}, {1, 0}], Text3DBox["36", {-3.9142014588, -1.90862326, 3.5755505646}, {1, 0}], Text3DBox["37", {-0.73934839524, -2.7017412621999997`, 2.7710942063999995`}, {1, 0}], Text3DBox["38", {1.8638247587999999`, -2.8755960541999994`, 0.7883558926800001}, {1, 0}], Text3DBox["39", {3.5753495969999993`, -1.68716627006, 3.349539335}, {1, 0}], Text3DBox["40", {5.0793825204, -2.2032315434, 0.45576411667999994`}, {1, 0}], Text3DBox["41", {-4.3002724805999994`, -5.6542491645999995`, 1.2394901806599998`}, {1, 0}], Text3DBox[ "42", {-2.0686194581599997`, -4.6974808908, -0.9797473419599999}, {1, 0}], Text3DBox["43", {-6.720066623599999, 2.875218109, -3.9334646689999997`}, { 1, 0}], Text3DBox["44", {-7.318542847799999, 1.8884220890599999`, -0.79920291992}, {1, 0}], Text3DBox[ "45", {-6.483472928399999, -2.0994855859999997`, -6.340408675199999}, {1, 0}], Text3DBox[ "46", {-3.2928595499999997`, -2.8238175618, -5.8957561474}, {1, 0}], Text3DBox["47", {-4.1814087152, 0.21756415437999999`, -6.825690312}, {1, 0}], Text3DBox["48", {5.5947108006, 6.409761619399999, 1.63198627086}, {1, 0}], Text3DBox["49", {-9.5811117876, -0.016094796342, -5.6156987542}, {1, 0}], Text3DBox["50", {-11.1633793674, 1.35621855568, -2.9995620797999996`}, {1, 0}], Text3DBox[ "51", {-8.3860490652, -5.490031975199999, -0.27219613304}, {1, 0}], Text3DBox["52", {9.254165199600001, 1.43265797238, 5.031395475}, {1, 0}], Text3DBox["53", {6.9005114666, -0.7748065572599999, 4.3635663066}, {1, 0}], Text3DBox["54", {10.892746614199998`, -2.4050542802, 3.8036404928}, {1, 0}], {RGBColor[ NCache[ Rational[1, 3], 0.3333333333333333], 1, 1], Opacity[0.3], SphereBox[{-5.358961260867368, -2.006712980699583, -0.2861022780424869}, 1.4]}, {RGBColor[ NCache[ Rational[1, 3], 0.3333333333333333], 1, 1], Opacity[0.3], SphereBox[{-7.664431457193039, -3.0390190828613326`, \ -0.11164447362838348`}, 1.4]}, {RGBColor[ NCache[ Rational[1, 3], 0.3333333333333333], 1, 1], Opacity[0.3], SphereBox[{ 0.8291060606893419, -1.1514990690964428`, -1.9709425756229002`}, 1.4]}, {RGBColor[ NCache[ Rational[1, 3], 0.3333333333333333], 1, 1], Opacity[0.3], SphereBox[{8.375706016811733, 3.1438048444574473`, 2.2637176828286005`}, 1.4]}, {RGBColor[ NCache[ Rational[1, 3], 0.3333333333333333], 1, 1], Opacity[0.3], SphereBox[{-9.901405623152794, -1.9016374196998063`, -1.327232927272743}, 1.4]}, {RGBColor[ NCache[ Rational[1, 3], 0.3333333333333333], 1, 1], Opacity[0.3], SphereBox[{0.9447486433585777, -2.9652784802602925`, -3.359271858170863}, 1.4]}, {RGBColor[ NCache[ Rational[1, 3], 0.3333333333333333], 1, 1], Opacity[0.3], SphereBox[{8.884558469335905, 1.5817726790289564`, -0.9392073488461326}, 1.4]}, {RGBColor[ NCache[ Rational[1, 3], 0.3333333333333333], 1, 1], Opacity[0.3], SphereBox[{-11.939926891713085`, -2.9016422762098957`, \ -1.5181966186614662`}, 1.4]}, {RGBColor[1, 1, NCache[ Rational[1, 3], 0.3333333333333333]], Opacity[0.3], SphereBox[{-4.723860784732631, -3.7032831009004172`, \ -2.4211191895575124`}, 1.4]}, {RGBColor[1, 1, NCache[ Rational[1, 3], 0.3333333333333333]], Opacity[0.3], SphereBox[{-7.17029558800696, -4.510058341938667, -2.4422824208516163`}, 1.4]}, {RGBColor[1, 1, NCache[ Rational[1, 3], 0.3333333333333333]], Opacity[0.3], SphereBox[{0.47174352319065793`, 0.5046836538164428, -4.200146649977099}, 1.4]}, {RGBColor[1, 1, NCache[ Rational[1, 3], 0.3333333333333333]], Opacity[0.3], SphereBox[{7.592478683188265, 0.8979411243425528, 0.7863378756913992}, 1.4]}, {RGBColor[1, 1, NCache[ Rational[1, 3], 0.3333333333333333]], Opacity[0.3], SphereBox[{-9.119064512047206, -3.022610591100195, -3.7708698755272554`}, 1.4]}, {RGBColor[1, 1, NCache[ Rational[1, 3], 0.3333333333333333]], Opacity[0.3], SphereBox[{0.5869498686814225, -1.2986992661397059`, -5.580643902629137}, 1.4]}, {RGBColor[1, 1, NCache[ Rational[1, 3], 0.3333333333333333]], Opacity[0.3], SphereBox[{9.66801550826409, 3.8277569685710437`, 0.5378673409661332}, 1.4]}, {RGBColor[1, 1, NCache[ Rational[1, 3], 0.3333333333333333]], Opacity[0.3], SphereBox[{-11.159327841886913`, -4.023447623390104, -3.962008781338534}, 1.4]}}, AspectRatio->Automatic, Axes->Automatic, AxesLabel->{ FormBox["xl", TraditionalForm], FormBox["yl", TraditionalForm], FormBox["zl", TraditionalForm]}, Boxed->True, SphericalRegion->True]], "Output", CellChangeTimes->{3.574834506531407*^9, 3.5801424197560143`*^9}], Cell[BoxData[ Graphics3DBox[{ {RGBColor[0.4, 0.2666666666666667, 0.13333333333333336`], Opacity[0.8], SphereBox[{0.8207646935799999, 2.0278649706, 1.73903924876}, 0.255]}, {RGBColor[0.4, 0.2666666666666667, 0.13333333333333336`], Opacity[0.8], SphereBox[{3.3073984452, 1.06567318318, 0.5237375609}, 0.255]}, {RGBColor[0.4, 0.2666666666666667, 0.13333333333333336`], Opacity[0.8], SphereBox[{-1.61359923688, 0.59437551878, 0.9582422600799999}, 0.255]}, {RGBColor[0.4, 0.2666666666666667, 0.13333333333333336`], Opacity[0.8], SphereBox[{-1.8057843710800001`, 0.6447556139399999, -1.9724959987999997`}, 0.255]}, {RGBColor[0.4, 0.2666666666666667, 0.13333333333333336`], Opacity[0.8], SphereBox[{5.239832252799999, 2.8406361232, 1.73371022144}, 0.255]}, {RGBColor[0.4, 0.2666666666666667, 0.13333333333333336`], Opacity[0.8], SphereBox[{-4.309331170399999, -0.59690775162, -2.9302091355999997`}, 0.255]}, {RGBColor[0.4, 0.2666666666666667, 0.13333333333333336`], Opacity[0.8], SphereBox[{1.4827735059, 2.2179714061999998`, 4.4886661678}, 0.255]}, {RGBColor[0.4, 0.2666666666666667, 0.13333333333333336`], Opacity[0.8], SphereBox[{2.962145505, 1.14220708618, -2.3672597601999996`}, 0.255]}, {RGBColor[0.4, 0.2666666666666667, 0.13333333333333336`], Opacity[0.8], SphereBox[{4.2775837736, 2.9976723537999996`, 4.5005714416}, 0.255]}, {RGBColor[0.4, 0.2666666666666667, 0.13333333333333336`], Opacity[0.8], SphereBox[{-1.9409375745999997`, -2.0747301754, 2.1006194216}, 0.255]}, {RGBColor[0.4, 0.2666666666666667, 0.13333333333333336`], Opacity[0.8], SphereBox[{0.6504247919399999, -0.32340770764, -3.0855446127999997`}, 0.255]}, {RGBColor[0.4, 0.2666666666666667, 0.13333333333333336`], Opacity[0.8], SphereBox[{3.9550075453999995`, -1.6268651134, 1.3405527271399997`}, 0.255]}, {RGBColor[0.4, 0.2666666666666667, 0.13333333333333336`], Opacity[0.8], SphereBox[{-5.041411022799999, -2.8549980408, -1.3536107337999999`}, 0.255]}, {RGBColor[0.4, 0.2666666666666667, 0.13333333333333336`], Opacity[0.8], SphereBox[{-2.9632793405999998`, -4.0665013794, 0.22727734601999997`}, 0.255]}, {RGBColor[0.4, 0.2666666666666667, 0.13333333333333336`], Opacity[0.8], SphereBox[{-6.533916617599999, 1.3064809673599997`, -2.7266856454}, 0.255]}, {RGBColor[0.4, 0.2666666666666667, 0.13333333333333336`], Opacity[0.8], SphereBox[{-4.1010833652, -1.3850368771800001`, -5.707161492599999}, 0.255]}, {RGBColor[0.4, 0.2666666666666667, 0.13333333333333336`], Opacity[0.8], SphereBox[{7.984092349999999, 2.0208729844, 1.5250277792599998`}, 0.255]}, {RGBColor[0.4, 0.2666666666666667, 0.13333333333333336`], Opacity[0.8], SphereBox[{-9.0576456906, 0.14869498003599999`, -3.6018177559999995`}, 0.255]}, {RGBColor[0.4, 0.2666666666666667, 0.13333333333333336`], Opacity[0.8], SphereBox[{-7.4173635226, -3.7745387124, -1.27696344724}, 0.255]}, {RGBColor[0.4, 0.2666666666666667, 0.13333333333333336`], Opacity[0.8], SphereBox[{-9.5102350676, -2.4621240053999998`, -2.5490514013999994`}, 0.255]}, {RGBColor[0.4, 0.2666666666666667, 0.13333333333333336`], Opacity[0.8], SphereBox[{9.007945896799999, 0.31654800226, 3.5730939208}, 0.255]}, {RGBColor[1, NCache[ Rational[1, 3], 0.3333333333333333], NCache[ Rational[1, 3], 0.3333333333333333]], Opacity[0.8], SphereBox[{5.1100080766, 5.2984137588, 0.6941908460999999}, 0.178]}, {RGBColor[1, NCache[ Rational[1, 3], 0.3333333333333333], NCache[ Rational[1, 3], 0.3333333333333333]], Opacity[0.8], SphereBox[{0.76584925602, -2.1319888731999996`, -4.4699578804}, 0.178]}, {RGBColor[1, NCache[ Rational[1, 3], 0.3333333333333333], NCache[ Rational[1, 3], 0.3333333333333333]], Opacity[0.8], SphereBox[{9.276286988799999, 2.7047648237999997`, -0.20067000393999998`}, 0.178]}, {RGBColor[1, NCache[ Rational[1, 3], 0.3333333333333333], NCache[ Rational[1, 3], 0.3333333333333333]], Opacity[0.8], SphereBox[{10.832854294999999`, -1.31489024806, 2.5123907169999997`}, 0.178]}, {RGBColor[1, NCache[ Rational[1, 3], 0.3333333333333333], NCache[ Rational[1, 3], 0.3333333333333333]], Opacity[0.8], SphereBox[{-11.5496273668, -3.4625449498, -2.7401027}, 0.178]}, {RGBColor[1, 1, 1], Opacity[0.8], SphereBox[{0.2169405448, 3.8287738486, 1.04562319032}, 0.12]}, {RGBColor[1, 1, 1], Opacity[0.8], SphereBox[{-3.1828655018, 1.5730646141799998`, 1.7759644948}, 0.12]}, {RGBColor[1, 1, 1], Opacity[0.8], SphereBox[{-1.9891255876, 2.5348784563999995`, -2.667348249}, 0.12]}, {RGBColor[1, 1, 1], Opacity[0.8], SphereBox[{0.308970201, 3.5349214555999997`, 5.4768038932}, 0.12]}, {RGBColor[1, 1, 1], Opacity[0.8], SphereBox[{1.23225253008, 0.43588419916, 5.4108524558}, 0.12]}, {RGBColor[1, 1, 1], Opacity[0.8], SphereBox[{4.5810737692, 0.32274630354, -3.2592104321999997`}, 0.12]}, {RGBColor[1, 1, 1], Opacity[0.8], SphereBox[{2.7567322888, 3.0613561199999997`, -2.9700823541999997`}, 0.12]}, {RGBColor[1, 1, 1], Opacity[0.8], SphereBox[{4.4945243184, 4.871713628, 5.2281159516}, 0.12]}, {RGBColor[1, 1, 1], Opacity[0.8], SphereBox[{5.341121566399999, 1.7417982487199999`, 5.675414095799999}, 0.12]}, {RGBColor[1, 1, 1], Opacity[0.8], SphereBox[{-3.3142014588, -1.90862326, 3.5755505646}, 0.12]}, {RGBColor[1, 1, 1], Opacity[0.8], SphereBox[{-0.13934839523999998`, -2.7017412621999997`, 2.7710942063999995`}, 0.12]}, {RGBColor[1, 1, 1], Opacity[0.8], SphereBox[{2.4638247588, -2.8755960541999994`, 0.7883558926800001}, 0.12]}, {RGBColor[1, 1, 1], Opacity[0.8], SphereBox[{4.175349596999999, -1.68716627006, 3.349539335}, 0.12]}, {RGBColor[1, 1, 1], Opacity[0.8], SphereBox[{5.6793825204, -2.2032315434, 0.45576411667999994`}, 0.12]}, {RGBColor[1, 1, 1], Opacity[0.8], SphereBox[{-3.7002724806, -5.6542491645999995`, 1.2394901806599998`}, 0.12]}, {RGBColor[1, 1, 1], Opacity[0.8], SphereBox[{-1.4686194581599998`, -4.6974808908, -0.9797473419599999}, 0.12]}, {RGBColor[1, 1, 1], Opacity[0.8], SphereBox[{-6.1200666236, 2.875218109, -3.9334646689999997`}, 0.12]}, {RGBColor[1, 1, 1], Opacity[0.8], SphereBox[{-6.718542847799999, 1.8884220890599999`, -0.79920291992}, 0.12]}, {RGBColor[1, 1, 1], Opacity[0.8], SphereBox[{-5.883472928399999, -2.0994855859999997`, -6.340408675199999}, 0.12]}, {RGBColor[1, 1, 1], Opacity[0.8], SphereBox[{-2.6928595499999997`, -2.8238175618, -5.8957561474}, 0.12]}, {RGBColor[1, 1, 1], Opacity[0.8], SphereBox[{-3.5814087152, 0.21756415437999999`, -6.825690312}, 0.12]}, {RGBColor[1, 1, 1], Opacity[0.8], SphereBox[{6.194710800599999, 6.409761619399999, 1.63198627086}, 0.12]}, {RGBColor[1, 1, 1], Opacity[0.8], SphereBox[{-8.9811117876, -0.016094796342, -5.6156987542}, 0.12]}, {RGBColor[1, 1, 1], Opacity[0.8], SphereBox[{-10.5633793674, 1.35621855568, -2.9995620797999996`}, 0.12]}, {RGBColor[1, 1, 1], Opacity[0.8], SphereBox[{-7.786049065199999, -5.490031975199999, -0.27219613304}, 0.12]}, {RGBColor[1, 1, 1], Opacity[0.8], SphereBox[{9.8541651996, 1.43265797238, 5.031395475}, 0.12]}, {RGBColor[1, 1, 1], Opacity[0.8], SphereBox[{7.5005114666, -0.7748065572599999, 4.3635663066}, 0.12]}, {RGBColor[1, 1, 1], Opacity[0.8], SphereBox[{11.492746614199998`, -2.4050542802, 3.8036404928}, 0.12]}, Text3DBox["1", {0.22076469357999995`, 2.0278649706, 1.73903924876}, {1, 0}], Text3DBox["2", {2.7073984452, 1.06567318318, 0.5237375609}, {1, 0}], Text3DBox["3", {-2.21359923688, 0.59437551878, 0.9582422600799999}, {1, 0}], Text3DBox["4", {-2.40578437108, 0.6447556139399999, -1.9724959987999997`}, {1, 0}], Text3DBox["5", {4.6398322528, 2.8406361232, 1.73371022144}, {1, 0}], Text3DBox[ "6", {-4.909331170399999, -0.59690775162, -2.9302091355999997`}, {1, 0}], Text3DBox["7", {0.8827735059, 2.2179714061999998`, 4.4886661678}, {1, 0}], Text3DBox["8", {2.362145505, 1.14220708618, -2.3672597601999996`}, {1, 0}], Text3DBox["9", {3.6775837736, 2.9976723537999996`, 4.5005714416}, {1, 0}], Text3DBox["10", {-2.5409375745999996`, -2.0747301754, 2.1006194216}, {1, 0}], Text3DBox["11", { 0.050424791939999936`, -0.32340770764, -3.0855446127999997`}, {1, 0}], Text3DBox["12", {3.3550075453999995`, -1.6268651134, 1.3405527271399997`}, {1, 0}], Text3DBox[ "13", {-5.641411022799999, -2.8549980408, -1.3536107337999999`}, {1, 0}], Text3DBox["14", {-3.5632793406, -4.0665013794, 0.22727734601999997`}, {1, 0}], Text3DBox["15", {-7.133916617599999, 1.3064809673599997`, -2.7266856454}, {1, 0}], Text3DBox[ "16", {-4.7010833652, -1.3850368771800001`, -5.707161492599999}, {1, 0}], Text3DBox["17", {7.3840923499999995`, 2.0208729844, 1.5250277792599998`}, { 1, 0}], Text3DBox["18", {-9.657645690599999, 0.14869498003599999`, -3.6018177559999995`}, {1, 0}], Text3DBox["19", {-8.0173635226, -3.7745387124, -1.27696344724}, {1, 0}], Text3DBox[ "20", {-10.1102350676, -2.4621240053999998`, -2.5490514013999994`}, {1, 0}], Text3DBox["21", {8.4079458968, 0.31654800226, 3.5730939208}, {1, 0}], Text3DBox["22", {4.5100080766, 5.2984137588, 0.6941908460999999}, {1, 0}], Text3DBox["23", {0.16584925602, -2.1319888731999996`, -4.4699578804}, {1, 0}], Text3DBox["24", {8.6762869888, 2.7047648237999997`, -0.20067000393999998`}, {1, 0}], Text3DBox["25", {10.232854295, -1.31489024806, 2.5123907169999997`}, {1, 0}], Text3DBox["26", {-12.149627366799999`, -3.4625449498, -2.7401027}, { 1, 0}], Text3DBox["27", {-0.38305945519999995`, 3.8287738486, 1.04562319032}, {1, 0}], Text3DBox["28", {-3.7828655018, 1.5730646141799998`, 1.7759644948}, {1, 0}], Text3DBox["29", {-2.5891255876, 2.5348784563999995`, -2.667348249}, { 1, 0}], Text3DBox["30", {-0.291029799, 3.5349214555999997`, 5.4768038932}, {1, 0}], Text3DBox["31", {0.63225253008, 0.43588419916, 5.4108524558}, {1, 0}], Text3DBox["32", {3.9810737691999996`, 0.32274630354, -3.2592104321999997`}, {1, 0}], Text3DBox["33", {2.1567322888, 3.0613561199999997`, -2.9700823541999997`}, {1, 0}], Text3DBox["34", {3.8945243184, 4.871713628, 5.2281159516}, {1, 0}], Text3DBox["35", {4.7411215663999995`, 1.7417982487199999`, 5.675414095799999}, {1, 0}], Text3DBox["36", {-3.9142014588, -1.90862326, 3.5755505646}, {1, 0}], Text3DBox["37", {-0.73934839524, -2.7017412621999997`, 2.7710942063999995`}, {1, 0}], Text3DBox["38", {1.8638247587999999`, -2.8755960541999994`, 0.7883558926800001}, {1, 0}], Text3DBox["39", {3.5753495969999993`, -1.68716627006, 3.349539335}, {1, 0}], Text3DBox["40", {5.0793825204, -2.2032315434, 0.45576411667999994`}, {1, 0}], Text3DBox["41", {-4.3002724805999994`, -5.6542491645999995`, 1.2394901806599998`}, {1, 0}], Text3DBox[ "42", {-2.0686194581599997`, -4.6974808908, -0.9797473419599999}, {1, 0}], Text3DBox["43", {-6.720066623599999, 2.875218109, -3.9334646689999997`}, { 1, 0}], Text3DBox["44", {-7.318542847799999, 1.8884220890599999`, -0.79920291992}, {1, 0}], Text3DBox[ "45", {-6.483472928399999, -2.0994855859999997`, -6.340408675199999}, {1, 0}], Text3DBox[ "46", {-3.2928595499999997`, -2.8238175618, -5.8957561474}, {1, 0}], Text3DBox["47", {-4.1814087152, 0.21756415437999999`, -6.825690312}, {1, 0}], Text3DBox["48", {5.5947108006, 6.409761619399999, 1.63198627086}, {1, 0}], Text3DBox["49", {-9.5811117876, -0.016094796342, -5.6156987542}, {1, 0}], Text3DBox["50", {-11.1633793674, 1.35621855568, -2.9995620797999996`}, {1, 0}], Text3DBox[ "51", {-8.3860490652, -5.490031975199999, -0.27219613304}, {1, 0}], Text3DBox["52", {9.254165199600001, 1.43265797238, 5.031395475}, {1, 0}], Text3DBox["53", {6.9005114666, -0.7748065572599999, 4.3635663066}, {1, 0}], Text3DBox["54", {10.892746614199998`, -2.4050542802, 3.8036404928}, {1, 0}], {RGBColor[1, NCache[ Rational[1, 3], 0.3333333333333333], NCache[ Rational[1, 3], 0.3333333333333333]], Opacity[0.4], SphereBox[{1.9152106393636723`, -2.523938920947372, -4.949146362053256}, 1.125]}, {RGBColor[1, NCache[ Rational[1, 3], 0.3333333333333333], NCache[ Rational[1, 3], 0.3333333333333333]], Opacity[0.4], SphereBox[{10.521002526579034`, 2.3176862328262495`, -0.27230396809964874`}, 1.125]}, {RGBColor[1, NCache[ Rational[1, 3], 0.3333333333333333], NCache[ Rational[1, 3], 0.3333333333333333]], Opacity[0.4], SphereBox[{-11.737205518037161`, -4.658355821665403, -2.251094697706628}, 1.125]}, {RGBColor[1, NCache[ Rational[1, 3], 0.3333333333333333], NCache[ Rational[1, 3], 0.3333333333333333]], Opacity[0.4], SphereBox[{-0.3251321152214687, -2.7787181844066886`, -4.77943950510526}, 1.125]}, {RGBColor[1, NCache[ Rational[1, 3], 0.3333333333333333], NCache[ Rational[1, 3], 0.3333333333333333]], Opacity[0.4], SphereBox[{8.780998962563757, 3.4843125499304244`, -1.1233146506767009`}, 1.125]}, {RGBColor[1, NCache[ Rational[1, 3], 0.3333333333333333], NCache[ Rational[1, 3], 0.3333333333333333]], Opacity[0.4], SphereBox[{-12.529368502983907`, -2.840915747835946, -3.33840235045502}, 1.125]}, {RGBColor[1, NCache[ Rational[1, 3], 0.3333333333333333], NCache[ Rational[1, 3], 0.3333333333333333]], Opacity[0.4], SphereBox[{3.8077693186163524`, 5.76012979489429, 0.7548663701486931}, 1.125]}, {RGBColor[1, NCache[ Rational[1, 3], 0.3333333333333333], NCache[ Rational[1, 3], 0.3333333333333333]], Opacity[0.4], SphereBox[{10.25153153341149, -2.0758235938269896`, 1.514526352389777}, 1.125]}, {RGBColor[1, NCache[ Rational[1, 3], 0.3333333333333333], NCache[ Rational[1, 3], 0.3333333333333333]], Opacity[0.4], SphereBox[{5.511474863727479, 5.264886033394544, -0.6288319467734549}, 1.125]}, {RGBColor[1, NCache[ Rational[1, 3], 0.3333333333333333], NCache[ Rational[1, 3], 0.3333333333333333]], Opacity[0.4], SphereBox[{11.860455633064483`, -0.5687584572055808, 1.96465735058486}, 1.125]}}, AspectRatio->Automatic, Axes->Automatic, AxesLabel->{ FormBox["xl", TraditionalForm], FormBox["yl", TraditionalForm], FormBox["zl", TraditionalForm]}, Boxed->True, SphericalRegion->True]], "Output", CellChangeTimes->{3.574834506531407*^9, 3.5801424197872143`*^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", ",", "tplo", ",", "tplu", ",", "tpso", ",", "tpsu"}], "]"}]}], ";"}], "\[IndentingNewLine]", RowBox[{ RowBox[{"bt", "=", RowBox[{"Length", "[", "tw", "]"}]}], "\[IndentingNewLine]", RowBox[{"(*", RowBox[{"MatrixForm", "[", "tw", "]"}], "*)"}]}], "\[IndentingNewLine]", RowBox[{ RowBox[{"(*", " ", RowBox[{"coordinates", " ", "of", " ", "clouds"}], " ", "*)"}]}]}], "Input", CellChangeTimes->{{3.568895397419882*^9, 3.5688955157148895`*^9}, { 3.568895549629349*^9, 3.5688955855718126`*^9}, {3.568895617317868*^9, 3.568895845234268*^9}, {3.5688960797194805`*^9, 3.5688961015127187`*^9}, { 3.568896219074525*^9, 3.5688962276233397`*^9}, {3.568896262910602*^9, 3.5688962903198504`*^9}, 3.5688964250728865`*^9, 3.568896456912543*^9, { 3.5688981540863237`*^9, 3.5688981869399815`*^9}, {3.5689021233572955`*^9, 3.5689021341525145`*^9}, {3.5689111169043026`*^9, 3.5689111218495116`*^9}, {3.568911235261711*^9, 3.568911242437723*^9}, 3.5689112948850155`*^9, {3.5689116510180407`*^9, 3.568911800419503*^9}, { 3.568911871820829*^9, 3.5689119012892804`*^9}, {3.5689119993042526`*^9, 3.5689120006770554`*^9}, {3.568912144306507*^9, 3.568912165085744*^9}, { 3.5689528310632005`*^9, 3.5689528569592457`*^9}, {3.5689534065794115`*^9, 3.5689534297298517`*^9}, {3.568954496214126*^9, 3.5689545054337425`*^9}, 3.5689569073699613`*^9, {3.56913308739126*^9, 3.5691332012870607`*^9}, { 3.569135511323518*^9, 3.5691355127119203`*^9}, {3.569136204167535*^9, 3.569136290747687*^9}, {3.5691598050571885`*^9, 3.569159843199256*^9}, { 3.5692215417755947`*^9, 3.569221597186892*^9}, {3.5692216819730406`*^9, 3.5692217090546885`*^9}, {3.5692217693019943`*^9, 3.5692218260704937`*^9}, {3.5692219780303607`*^9, 3.569221989433981*^9}, { 3.569222055468897*^9, 3.5692220728005276`*^9}, {3.5693401536421804`*^9, 3.5693401889450426`*^9}, 3.5693411655535583`*^9, {3.569341634303181*^9, 3.569341638733589*^9}, {3.5704549882757435`*^9, 3.5704550487414494`*^9}, { 3.570455928146194*^9, 3.5704559415310173`*^9}, {3.5708553973857827`*^9, 3.5708554057785974`*^9}, {3.5718402591869545`*^9, 3.5718402726497784`*^9}, 3.572328636723397*^9, {3.572328748419593*^9, 3.57232875246*^9}, { 3.5725921859362335`*^9, 3.5725921932682457`*^9}, {3.5725923978158054`*^9, 3.5725924023086133`*^9}, 3.5725926630786715`*^9, {3.5726167873570023`*^9, 3.57261679757502*^9}, 3.572620232450739*^9, {3.5726252144466896`*^9, 3.57262521482109*^9}, {3.572842310446463*^9, 3.5728423195412793`*^9}, 3.572851092419488*^9, {3.572851145927582*^9, 3.5728511735708303`*^9}, { 3.5728512529593697`*^9, 3.572851265595392*^9}, 3.5728513850916023`*^9, 3.573124143499799*^9, {3.5733124027399025`*^9, 3.573312472362825*^9}, { 3.5733130968319216`*^9, 3.5733130974091225`*^9}, {3.573316202329376*^9, 3.573316209786189*^9}, 3.573368517265889*^9, 3.5746700189174166`*^9, { 3.574670900474965*^9, 3.5746709256066093`*^9}}], Cell[BoxData["109"], "Output", CellChangeTimes->{3.5748345067030067`*^9, 3.5801424198028145`*^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["109"], "Output", CellChangeTimes->{3.574834506765407*^9, 3.580142419865215*^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", ",", "cj"}], "}"}]}], "]"}]}], ";"}], " "}], "\[IndentingNewLine]", RowBox[{ RowBox[{ RowBox[{"tv5", " ", "=", RowBox[{"Table", "[", RowBox[{ RowBox[{"{", RowBox[{"0", ",", "0", ",", "0"}], "}"}], ",", RowBox[{"{", RowBox[{"i", ",", "1", ",", "cj"}], "}"}]}], "]"}]}], ";"}], " "}], "\[IndentingNewLine]", RowBox[{ RowBox[{ RowBox[{"tv6", " ", "=", RowBox[{"Table", "[", RowBox[{ RowBox[{"{", RowBox[{"0", ",", "0", ",", "0"}], "}"}], ",", RowBox[{"{", RowBox[{"i", ",", "1", ",", "10"}], "}"}]}], "]"}]}], ";"}], " "}], "\[IndentingNewLine]", RowBox[{ RowBox[{ RowBox[{"tv", " ", "=", " ", RowBox[{"Join", "[", RowBox[{ "tv1", ",", "tv2", ",", "tv3", ",", "tv4", ",", "tv5", ",", "tv6"}], "]"}]}], ";"}], "\[IndentingNewLine]", RowBox[{"(*", RowBox[{"MatrixForm", "[", "tv", "]"}], "*)"}]}], "\[IndentingNewLine]", RowBox[{"Length", "[", "tv", "]"}]}], "Input", CellChangeTimes->{{3.5688982251756487`*^9, 3.5688986440675845`*^9}, { 3.5688986873108606`*^9, 3.56889871560931*^9}, {3.5688987970414534`*^9, 3.5688988526711507`*^9}, {3.568898887147211*^9, 3.568898888644814*^9}, { 3.5688989206248703`*^9, 3.568899041759083*^9}, {3.5688990876855636`*^9, 3.568899258349863*^9}, 3.568899300267137*^9, {3.568899351326027*^9, 3.5688993831032825`*^9}, {3.5688994370481772`*^9, 3.568899468217032*^9}, { 3.5688995813016305`*^9, 3.5688997165538683`*^9}, {3.5688998495129013`*^9, 3.568899932364647*^9}, {3.568899967667509*^9, 3.568900024529609*^9}, { 3.5689000794261055`*^9, 3.568900136257005*^9}, {3.5689001767858763`*^9, 3.56890020149632*^9}, {3.568902068726*^9, 3.568902074139209*^9}, 3.56890216040736*^9, 3.568902344113283*^9, {3.5689024237982235`*^9, 3.56890243907065*^9}, 3.5689025770684924`*^9, 3.568910195129884*^9, 3.568910620995032*^9, {3.568912393532545*^9, 3.5689124022841606`*^9}, { 3.5691332074958715`*^9, 3.5691332081666727`*^9}, {3.5691352237838125`*^9, 3.5691352313342257`*^9}, {3.5691489965881166`*^9, 3.5691490103317413`*^9}, {3.5691490440122004`*^9, 3.5691491273631463`*^9}, {3.5691523435842266`*^9, 3.56915234531583*^9}, { 3.5691524837816734`*^9, 3.5691526041202846`*^9}, {3.5691595921324143`*^9, 3.5691596901941867`*^9}, {3.569159772406331*^9, 3.5691597832951508`*^9}, { 3.5691598700313025`*^9, 3.569159885147729*^9}, {3.569160485733184*^9, 3.569160486887586*^9}, {3.5691672792073207`*^9, 3.5691672793789206`*^9}, { 3.5691673418102303`*^9, 3.5691674875144863`*^9}, {3.569168259700243*^9, 3.569168260386644*^9}, {3.569168321257951*^9, 3.569168337466379*^9}, { 3.5691685152754917`*^9, 3.569168656096939*^9}, {3.5691687137702403`*^9, 3.569168772566744*^9}, {3.5691697249898825`*^9, 3.569169747063921*^9}, { 3.569169944981469*^9, 3.5691699696763124`*^9}, 3.569341165569158*^9, { 3.5693417833614435`*^9, 3.5693417874486504`*^9}, {3.5704552110753345`*^9, 3.5704552378605814`*^9}, {3.5704560776724567`*^9, 3.570456083070066*^9}, { 3.570855427306635*^9, 3.570855434529448*^9}, {3.57184030784344*^9, 3.5718403245666695`*^9}, {3.5723553440956435`*^9, 3.5723553601792717`*^9}, {3.5723567913257856`*^9, 3.572356801543803*^9}, { 3.5723587125159597`*^9, 3.572358735884801*^9}, {3.5726205042656164`*^9, 3.5726205078692226`*^9}, {3.5726209578956137`*^9, 3.5726209632776227`*^9}, {3.5726266468256054`*^9, 3.5726266628780336`*^9}, {3.57284236531176*^9, 3.57284238273699*^9}, { 3.572842728620798*^9, 3.572842734502008*^9}, 3.5731240921601086`*^9, { 3.5733125819686174`*^9, 3.573312582608218*^9}, {3.5733126196738834`*^9, 3.5733126474263325`*^9}, {3.5733131200291624`*^9, 3.5733131288743777`*^9}, 3.573368536719124*^9, {3.5746698693443537`*^9, 3.5746698885011873`*^9}, { 3.574740991757182*^9, 3.5747410134412203`*^9}, {3.5748285231568966`*^9, 3.5748285315497117`*^9}}], Cell[BoxData["109"], "Output", CellChangeTimes->{3.5748345067810073`*^9, 3.5801424198808146`*^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", "*", "cj"}]}], "}"}]}], "]"}], ",", RowBox[{"Table", "[", RowBox[{ RowBox[{"-", "2.0"}], ",", RowBox[{"{", RowBox[{"i", ",", "1", ",", "10"}], "}"}]}], "]"}]}], "]"}]}], ";"}], "\[IndentingNewLine]", "ow", "\[IndentingNewLine]", RowBox[{"cnv", "=", RowBox[{"Join", "[", RowBox[{ RowBox[{"Table", "[", RowBox[{ RowBox[{"cn", "[", RowBox[{"[", "i", "]"}], "]"}], ",", RowBox[{"{", RowBox[{"i", ",", "1", ",", "bc"}], "}"}]}], "]"}], ",", RowBox[{"Table", "[", RowBox[{"0.0", ",", RowBox[{"{", RowBox[{"i", ",", "1", ",", "cw"}], "}"}]}], "]"}], ",", RowBox[{"Table", "[", RowBox[{ RowBox[{"cn", "[", RowBox[{"[", "i", "]"}], "]"}], ",", RowBox[{"{", RowBox[{"i", ",", RowBox[{"bc", "+", "1"}], ",", "n"}], "}"}]}], "]"}], ",", RowBox[{"Table", "[", RowBox[{"0.0", ",", RowBox[{"{", RowBox[{"i", ",", "1", ",", RowBox[{"2", "*", "cj"}]}], "}"}]}], "]"}], ",", RowBox[{"Table", "[", RowBox[{"0.0", ",", RowBox[{"{", RowBox[{"i", ",", "1", ",", "10"}], "}"}]}], "]"}]}], "]"}]}]}], "Input", CellChangeTimes->{{3.5688982251756487`*^9, 3.5688986440675845`*^9}, { 3.5688986873108606`*^9, 3.56889871560931*^9}, {3.5688987970414534`*^9, 3.5688988526711507`*^9}, {3.568898887147211*^9, 3.568898888644814*^9}, { 3.5688989206248703`*^9, 3.568899041759083*^9}, {3.5688990876855636`*^9, 3.568899258349863*^9}, 3.568899300267137*^9, {3.568899351326027*^9, 3.5688993831032825`*^9}, {3.5688994370481772`*^9, 3.568899468217032*^9}, { 3.5688995813016305`*^9, 3.5688997165538683`*^9}, {3.5688998495129013`*^9, 3.568899932364647*^9}, {3.568899967667509*^9, 3.568900024529609*^9}, { 3.5689000794261055`*^9, 3.568900136257005*^9}, {3.5689001767858763`*^9, 3.56890020149632*^9}, {3.568902068726*^9, 3.568902074139209*^9}, 3.56890216040736*^9, 3.568902344113283*^9, {3.5689024237982235`*^9, 3.56890243907065*^9}, 3.5689025770684924`*^9, 3.568910195129884*^9, 3.568910620995032*^9, {3.568912393532545*^9, 3.5689124022841606`*^9}, { 3.5691332074958715`*^9, 3.5691332081666727`*^9}, {3.5691352237838125`*^9, 3.5691352313342257`*^9}, {3.5691489965881166`*^9, 3.5691490103317413`*^9}, {3.5691490440122004`*^9, 3.5691491273631463`*^9}, {3.5691523435842266`*^9, 3.56915234531583*^9}, { 3.5691524837816734`*^9, 3.5691526041202846`*^9}, {3.5691595921324143`*^9, 3.5691596901941867`*^9}, {3.569159772406331*^9, 3.5691597832951508`*^9}, { 3.5691598700313025`*^9, 3.569159885147729*^9}, {3.569160485733184*^9, 3.569160486887586*^9}, {3.5691672792073207`*^9, 3.5691672793789206`*^9}, { 3.5691673418102303`*^9, 3.5691674875144863`*^9}, {3.569168259700243*^9, 3.569168260386644*^9}, {3.569168321257951*^9, 3.569168337466379*^9}, { 3.5691685152754917`*^9, 3.569168656096939*^9}, {3.5691687137702403`*^9, 3.569168772566744*^9}, {3.5691697249898825`*^9, 3.569169747063921*^9}, { 3.569169944981469*^9, 3.5691699655579047`*^9}, {3.56921753575448*^9, 3.569217541807291*^9}, {3.569217576283351*^9, 3.5692176436130695`*^9}, { 3.5692176921603546`*^9, 3.569217692768756*^9}, {3.5692177389136367`*^9, 3.569217740192839*^9}, {3.5692222042775583`*^9, 3.5692222070231633`*^9}, { 3.569230669979245*^9, 3.5692306709620466`*^9}, {3.5692308816872168`*^9, 3.5692309970650196`*^9}, {3.5692310297158766`*^9, 3.569231090602784*^9}, { 3.5692311251880445`*^9, 3.569231148868886*^9}, 3.56923793753481*^9, 3.569341165569158*^9, 3.5693418217375107`*^9, {3.5703412254249296`*^9, 3.5703412423509593`*^9}, {3.5704553045038986`*^9, 3.570455320681127*^9}, { 3.57045550485505*^9, 3.5704555063370533`*^9}, {3.5704556421508913`*^9, 3.5704556424784923`*^9}, 3.5704557137862177`*^9, {3.5704564711051474`*^9, 3.5704564908079824`*^9}, {3.570456521602436*^9, 3.5704565228348384`*^9}, { 3.5704569127419233`*^9, 3.5704569202767363`*^9}, 3.5704636205455036`*^9, 3.570596993178934*^9, {3.570855461377095*^9, 3.5708554743563175`*^9}, 3.570855611589759*^9, {3.571840408884818*^9, 3.571840415296429*^9}, { 3.571840465559717*^9, 3.571840473905732*^9}, {3.5720165322617407`*^9, 3.5720165635241957`*^9}, {3.5721934404423375`*^9, 3.57219344758715*^9}, 3.572193479551606*^9, {3.5721935303764954`*^9, 3.572193534214102*^9}, { 3.5726206642250977`*^9, 3.5726206651142993`*^9}, {3.572620782223705*^9, 3.572620782738506*^9}, {3.572620924963956*^9, 3.5726209465699935`*^9}, { 3.572842408289835*^9, 3.5728424357302833`*^9}, {3.5728424783807583`*^9, 3.57284247916076*^9}, 3.5728451195121975`*^9, {3.5731249170427575`*^9, 3.573124927962777*^9}, {3.5731450428093076`*^9, 3.5731450615449405`*^9}, { 3.5731451273458557`*^9, 3.573145132259865*^9}, {3.573312700185625*^9, 3.573312779979765*^9}, {3.5733131504804153`*^9, 3.5733131516816177`*^9}, { 3.5733132756862354`*^9, 3.5733132772462387`*^9}, {3.5733147916812983`*^9, 3.573314840275384*^9}, {3.5733593507659893`*^9, 3.573359359377204*^9}, { 3.5746698998736076`*^9, 3.574669995361375*^9}, {3.5747410251880407`*^9, 3.574741049430484*^9}, {3.574828384379053*^9, 3.574828403270686*^9}, 3.5748284615211887`*^9, {3.5748284935168447`*^9, 3.5748284944996467`*^9}}], Cell[BoxData[ RowBox[{"{", RowBox[{ RowBox[{"-", "2.`"}], ",", RowBox[{"-", "2.`"}], ",", RowBox[{"-", "2.`"}], ",", RowBox[{"-", "2.`"}], ",", RowBox[{"-", "2.`"}], ",", RowBox[{"-", "2.`"}], ",", RowBox[{"-", "2.`"}], ",", RowBox[{"-", "2.`"}], ",", RowBox[{"-", "2.`"}], ",", RowBox[{"-", "2.`"}], ",", RowBox[{"-", "2.`"}], ",", RowBox[{"-", "2.`"}], ",", RowBox[{"-", "2.`"}], ",", RowBox[{"-", "2.`"}], ",", RowBox[{"-", "2.`"}], ",", RowBox[{"-", "2.`"}], ",", RowBox[{"-", "2.`"}], ",", RowBox[{"-", "2.`"}], ",", RowBox[{"-", "2.`"}], ",", RowBox[{"-", "2.`"}], ",", RowBox[{"-", "2.`"}], ",", RowBox[{"-", "2.`"}], ",", RowBox[{"-", "2.`"}], ",", RowBox[{"-", "2.`"}], ",", RowBox[{"-", "2.`"}], ",", RowBox[{"-", "2.`"}], ",", RowBox[{"-", "2.`"}], ",", RowBox[{"-", "2.`"}], ",", RowBox[{"-", "2.`"}], ",", RowBox[{"-", "2.`"}], ",", RowBox[{"-", "2.`"}], ",", RowBox[{"-", "2.`"}], ",", RowBox[{"-", "2.`"}], ",", RowBox[{"-", "2.`"}], ",", RowBox[{"-", "2.`"}], ",", RowBox[{"-", "2.`"}], ",", RowBox[{"-", "2.`"}], ",", RowBox[{"-", "2.`"}], ",", RowBox[{"-", "2.`"}], ",", RowBox[{"-", "2.`"}], ",", RowBox[{"-", "2.`"}], ",", RowBox[{"-", "2.`"}], ",", RowBox[{"-", "2.`"}], ",", RowBox[{"-", "2.`"}], ",", RowBox[{"-", "2.`"}], ",", RowBox[{"-", "2.`"}], ",", RowBox[{"-", "2.`"}], ",", RowBox[{"-", "2.`"}], ",", RowBox[{"-", "2.`"}], ",", RowBox[{"-", "2.`"}], ",", RowBox[{"-", "2.`"}], ",", RowBox[{"-", "2.`"}], ",", RowBox[{"-", "2.`"}], ",", RowBox[{"-", "2.`"}], ",", RowBox[{"-", "2.`"}], ",", RowBox[{"-", "2.`"}], ",", RowBox[{"-", "2.`"}], ",", RowBox[{"-", "2.`"}], ",", RowBox[{"-", "2.`"}], ",", RowBox[{"-", "2.`"}], ",", RowBox[{"-", "2.`"}], ",", RowBox[{"-", "2.`"}], ",", RowBox[{"-", "2.`"}], ",", RowBox[{"-", "2.`"}], ",", RowBox[{"-", "2.`"}], ",", RowBox[{"-", "2.`"}], ",", RowBox[{"-", "2.`"}], ",", RowBox[{"-", "2.`"}], ",", RowBox[{"-", "2.`"}], ",", RowBox[{"-", "2.`"}], ",", RowBox[{"-", "2.`"}], ",", RowBox[{"-", "2.`"}], ",", RowBox[{"-", "2.`"}], ",", RowBox[{"-", "2.`"}], ",", RowBox[{"-", "2.`"}], ",", RowBox[{"-", "2.`"}], ",", RowBox[{"-", "2.`"}], ",", RowBox[{"-", "2.`"}], ",", RowBox[{"-", "2.`"}], ",", RowBox[{"-", "2.`"}], ",", RowBox[{"-", "2.`"}], ",", RowBox[{"-", "2.`"}], ",", RowBox[{"-", "2.`"}], ",", RowBox[{"-", "0.5`"}], ",", RowBox[{"-", "0.5`"}], ",", RowBox[{"-", "0.5`"}], ",", RowBox[{"-", "0.5`"}], ",", RowBox[{"-", "0.5`"}], ",", RowBox[{"-", "0.5`"}], ",", RowBox[{"-", "0.5`"}], ",", RowBox[{"-", "0.5`"}], ",", RowBox[{"-", "0.5`"}], ",", RowBox[{"-", "0.5`"}], ",", RowBox[{"-", "0.5`"}], ",", RowBox[{"-", "0.5`"}], ",", RowBox[{"-", "0.5`"}], ",", RowBox[{"-", "0.5`"}], ",", RowBox[{"-", "0.5`"}], ",", RowBox[{"-", "0.5`"}], ",", RowBox[{"-", "2.`"}], ",", RowBox[{"-", "2.`"}], ",", RowBox[{"-", "2.`"}], ",", RowBox[{"-", "2.`"}], ",", RowBox[{"-", "2.`"}], ",", RowBox[{"-", "2.`"}], ",", RowBox[{"-", "2.`"}], ",", RowBox[{"-", "2.`"}], ",", RowBox[{"-", "2.`"}], ",", RowBox[{"-", "2.`"}]}], "}"}]], "Output", CellChangeTimes->{3.574834506796607*^9, 3.5801424198964148`*^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.`", ",", "8.`", ",", "8.`", ",", "8.`", ",", "8.`", ",", "8.`", ",", "0.`", ",", "0.`", ",", "0.`", ",", "0.`", ",", "0.`", ",", "0.`", ",", "0.`", ",", "0.`", ",", "0.`", ",", "0.`", ",", "0.`", ",", "0.`", ",", "0.`", ",", "0.`", ",", "0.`", ",", "0.`", ",", "0.`", ",", "0.`", ",", "0.`", ",", "0.`", ",", "0.`", ",", "0.`", ",", "0.`", ",", "0.`", ",", "0.`", ",", "0.`", ",", "0.`", ",", "0.`", ",", "0.`", ",", "1.`", ",", "1.`", ",", "1.`", ",", "1.`", ",", "1.`", ",", "1.`", ",", "1.`", ",", "1.`", ",", "1.`", ",", "1.`", ",", "1.`", ",", "1.`", ",", "1.`", ",", "1.`", ",", "1.`", ",", "1.`", ",", "1.`", ",", "1.`", ",", "1.`", ",", "1.`", ",", "1.`", ",", "1.`", ",", "1.`", ",", "1.`", ",", "1.`", ",", "1.`", ",", "1.`", ",", "1.`", ",", "0.`", ",", "0.`", ",", "0.`", ",", "0.`", ",", "0.`", ",", "0.`", ",", "0.`", ",", "0.`", ",", "0.`", ",", "0.`", ",", "0.`", ",", "0.`", ",", "0.`", ",", "0.`", ",", "0.`", ",", "0.`", ",", "0.`", ",", "0.`", ",", "0.`", ",", "0.`", ",", "0.`", ",", "0.`", ",", "0.`", ",", "0.`", ",", "0.`", ",", "0.`"}], "}"}]], "Output", CellChangeTimes->{3.574834506796607*^9, 3.5801424198964148`*^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["109"], "Output", CellChangeTimes->{3.574834506874607*^9, 3.580142419974415*^9}] }, Open ]], Cell[CellGroupData[{ Cell[BoxData[{ RowBox[{"Elcharge", "=", RowBox[{"Sum", "[", RowBox[{ RowBox[{"ow", "[", RowBox[{"[", "i", "]"}], "]"}], ",", RowBox[{"{", RowBox[{"i", ",", "1", ",", RowBox[{"Length", "[", "ow", "]"}]}], "}"}]}], "]"}]}], "\[IndentingNewLine]", RowBox[{"Length", "[", "ow", "]"}], "\[IndentingNewLine]", RowBox[{"Nuccharge", "=", RowBox[{"Sum", "[", RowBox[{ RowBox[{"cnv", "[", RowBox[{"[", "i", "]"}], "]"}], ",", RowBox[{"{", RowBox[{"i", ",", "1", ",", RowBox[{"Length", "[", "cnv", "]"}]}], "}"}]}], "]"}]}], "\[IndentingNewLine]", RowBox[{"Length", "[", "cnv", "]"}], "\[IndentingNewLine]"}], "Input", CellChangeTimes->{{3.5688982251756487`*^9, 3.5688986440675845`*^9}, { 3.5688986873108606`*^9, 3.56889871560931*^9}, {3.5688987970414534`*^9, 3.5688988526711507`*^9}, {3.568898887147211*^9, 3.568898888644814*^9}, { 3.5688989206248703`*^9, 3.568899041759083*^9}, {3.5688990876855636`*^9, 3.568899258349863*^9}, 3.568899300267137*^9, {3.568899351326027*^9, 3.5688993831032825`*^9}, {3.5688994370481772`*^9, 3.568899468217032*^9}, { 3.5688995813016305`*^9, 3.5688997165538683`*^9}, {3.5688998495129013`*^9, 3.568899932364647*^9}, {3.568899967667509*^9, 3.568900024529609*^9}, { 3.5689000794261055`*^9, 3.568900136257005*^9}, {3.5689001767858763`*^9, 3.56890020149632*^9}, {3.568902068726*^9, 3.568902074139209*^9}, 3.56890216040736*^9, 3.568902344113283*^9, {3.5689024237982235`*^9, 3.56890243907065*^9}, 3.5689025770684924`*^9, {3.568910195129884*^9, 3.568910199825492*^9}, 3.568910617609826*^9, {3.56891263539537*^9, 3.568912638842976*^9}, {3.568952611212014*^9, 3.5689526227248344`*^9}, { 3.5689527476498537`*^9, 3.5689527480086546`*^9}, {3.5689530637688093`*^9, 3.5689530642368097`*^9}, {3.569133363948546*^9, 3.569133373698563*^9}, { 3.5691350563331184`*^9, 3.56913505725352*^9}, 3.5691351502452836`*^9, { 3.569135237792637*^9, 3.5691352453118505`*^9}, {3.5691353071659594`*^9, 3.5691353166039753`*^9}, {3.5691447439722476`*^9, 3.5691448093675623`*^9}, {3.569146067386572*^9, 3.569146078244191*^9}, { 3.5691478509845047`*^9, 3.5691478547909117`*^9}, {3.569159874789311*^9, 3.56915988004652*^9}, {3.5691671967299757`*^9, 3.569167196901576*^9}, 3.5691672337020407`*^9, {3.5691672688489027`*^9, 3.5691672717661076`*^9}, 3.569171387282002*^9, 3.5692335989467897`*^9, {3.573315125131884*^9, 3.57331521983965*^9}, {3.573315279213355*^9, 3.573315294797782*^9}, { 3.5733153507238803`*^9, 3.5733153551854877`*^9}, {3.5733153963695602`*^9, 3.5733154277724156`*^9}, {3.5733182525629773`*^9, 3.5733182928434477`*^9}}], Cell[BoxData[ RowBox[{"-", "194.`"}]], "Output", CellChangeTimes->{3.5748345068902073`*^9, 3.580142419990015*^9}], Cell[BoxData["109"], "Output", CellChangeTimes->{3.5748345068902073`*^9, 3.580142419990015*^9}], Cell[BoxData["194.`"], "Output", CellChangeTimes->{3.5748345068902073`*^9, 3.580142419990015*^9}], Cell[BoxData["109"], "Output", CellChangeTimes->{3.5748345068902073`*^9, 3.580142419990015*^9}] }, Open ]], Cell[BoxData[ RowBox[{ RowBox[{"Vee", "=", "0.0"}], ";", " ", RowBox[{"Vnn", "=", "0.0"}], ";"}]], "Input", CellChangeTimes->{{3.5688982251756487`*^9, 3.5688986440675845`*^9}, { 3.5688986873108606`*^9, 3.56889871560931*^9}, {3.5688987970414534`*^9, 3.5688988526711507`*^9}, {3.568898887147211*^9, 3.568898888644814*^9}, { 3.5688989206248703`*^9, 3.568899041759083*^9}, {3.5688990876855636`*^9, 3.568899258349863*^9}, 3.568899300267137*^9, {3.568899351326027*^9, 3.5688993831032825`*^9}, {3.5688994370481772`*^9, 3.568899468217032*^9}, { 3.5688995813016305`*^9, 3.5688997165538683`*^9}, {3.5688998495129013`*^9, 3.568899932364647*^9}, {3.568899967667509*^9, 3.568900024529609*^9}, { 3.5689000794261055`*^9, 3.568900136257005*^9}, {3.5689001767858763`*^9, 3.56890020149632*^9}, {3.568902068726*^9, 3.568902074139209*^9}, 3.56890216040736*^9, 3.568902344113283*^9, {3.5689024237982235`*^9, 3.56890243907065*^9}, 3.5689025770684924`*^9, {3.568910195129884*^9, 3.568910199825492*^9}, 3.568910617609826*^9, {3.56891263539537*^9, 3.568912638842976*^9}, {3.568952611212014*^9, 3.5689526227248344`*^9}, { 3.5689527476498537`*^9, 3.5689527480086546`*^9}, {3.5689530637688093`*^9, 3.5689530642368097`*^9}, {3.569133363948546*^9, 3.569133373698563*^9}, { 3.5691350563331184`*^9, 3.56913505725352*^9}, 3.5691351502452836`*^9, { 3.569135237792637*^9, 3.5691352453118505`*^9}, {3.5691353071659594`*^9, 3.5691353166039753`*^9}, {3.5691447439722476`*^9, 3.5691448093675623`*^9}, {3.569146067386572*^9, 3.569146078244191*^9}, { 3.5691478509845047`*^9, 3.5691478547909117`*^9}, {3.569159874789311*^9, 3.56915988004652*^9}, {3.5691671967299757`*^9, 3.569167196901576*^9}, 3.5691672337020407`*^9, {3.5691672688489027`*^9, 3.5691672717661076`*^9}, 3.569171387282002*^9, 3.5692335989467897`*^9, {3.573315125131884*^9, 3.57331521983965*^9}, {3.573315279213355*^9, 3.573315294797782*^9}, { 3.5733153507238803`*^9, 3.5733153551854877`*^9}, {3.5733153963695602`*^9, 3.5733154277724156`*^9}}], Cell[CellGroupData[{ Cell[BoxData[ RowBox[{ RowBox[{"(*", " ", RowBox[{"all", " ", "clouds", " ", "repulsion"}], " ", "*)"}], "\[IndentingNewLine]", RowBox[{ RowBox[{"For", "[", RowBox[{ RowBox[{"i", "=", "1"}], ",", RowBox[{"i", "<", "bt"}], ",", RowBox[{"i", "++"}], ",", "\[IndentingNewLine]", RowBox[{"For", "[", RowBox[{ RowBox[{"j", "=", RowBox[{"i", "+", "1"}]}], ",", RowBox[{"j", "<", RowBox[{"bt", "+", "1"}]}], ",", RowBox[{"j", "++"}], ",", "\[IndentingNewLine]", RowBox[{"Vee", "=", RowBox[{"Vee", "+", RowBox[{ RowBox[{"ow", "[", RowBox[{"[", "i", "]"}], "]"}], "*", RowBox[{ RowBox[{"ow", "[", RowBox[{"[", "j", "]"}], "]"}], "/", RowBox[{"dw", "[", RowBox[{"[", RowBox[{"i", ",", "j"}], "]"}], "]"}]}]}]}]}]}], "]"}]}], "]"}], "\[IndentingNewLine]", "Vee"}]}]], "Input", CellChangeTimes->{{3.5688982251756487`*^9, 3.5688986440675845`*^9}, { 3.5688986873108606`*^9, 3.56889871560931*^9}, {3.5688987970414534`*^9, 3.5688988526711507`*^9}, {3.568898887147211*^9, 3.568898888644814*^9}, { 3.5688989206248703`*^9, 3.568899041759083*^9}, {3.5688990876855636`*^9, 3.568899258349863*^9}, 3.568899300267137*^9, {3.568899351326027*^9, 3.5688993831032825`*^9}, {3.5688994370481772`*^9, 3.568899468217032*^9}, { 3.5688995813016305`*^9, 3.5688997165538683`*^9}, {3.5688998495129013`*^9, 3.568899932364647*^9}, {3.568899967667509*^9, 3.568900024529609*^9}, { 3.5689000794261055`*^9, 3.568900136257005*^9}, {3.5689001767858763`*^9, 3.56890020149632*^9}, {3.568902068726*^9, 3.568902074139209*^9}, 3.56890216040736*^9, 3.568902344113283*^9, {3.5689024237982235`*^9, 3.56890243907065*^9}, 3.5689025770684924`*^9, {3.568910195129884*^9, 3.568910199825492*^9}, 3.568910617609826*^9, {3.56891263539537*^9, 3.568912638842976*^9}, {3.568952611212014*^9, 3.5689526227248344`*^9}, { 3.5689527476498537`*^9, 3.5689527480086546`*^9}, {3.5689530637688093`*^9, 3.5689530642368097`*^9}, {3.569133363948546*^9, 3.569133373698563*^9}, { 3.5691350563331184`*^9, 3.56913505725352*^9}, 3.5691351502452836`*^9, { 3.569135237792637*^9, 3.5691352453118505`*^9}, {3.5691353071659594`*^9, 3.5691353166039753`*^9}, {3.5691447439722476`*^9, 3.5691448093675623`*^9}, {3.569146067386572*^9, 3.569146078244191*^9}, { 3.5691478509845047`*^9, 3.5691478969889855`*^9}, {3.569149270524598*^9, 3.569149283675421*^9}, {3.5691523005437512`*^9, 3.5691523013861527`*^9}, { 3.570457123841494*^9, 3.5704571330923104`*^9}, {3.570457176959587*^9, 3.570457191296013*^9}, {3.570463789649801*^9, 3.570463797637015*^9}, { 3.5704639300032473`*^9, 3.5704639472412777`*^9}, {3.570464099403945*^9, 3.5704641196371803`*^9}, {3.570464183737693*^9, 3.5704641855628963`*^9}, { 3.570855532092019*^9, 3.5708555433240385`*^9}}], Cell[BoxData["2833.78313442372`"], "Output", CellChangeTimes->{3.574834506921407*^9, 3.580142420021215*^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", "+", "cj"}]}], ",", RowBox[{"i", "++"}], ",", RowBox[{"Vee", "=", RowBox[{"Vee", "-", RowBox[{ RowBox[{"ow", "[", RowBox[{"[", "i", "]"}], "]"}], "*", RowBox[{ RowBox[{"ow", "[", RowBox[{"[", RowBox[{"i", "+", "nj", "+", "3"}], "]"}], "]"}], "/", RowBox[{"(", RowBox[{"rpo", "+", "rpi"}], ")"}]}]}]}]}]}], RowBox[{"(*", RowBox[{"dw", "[", RowBox[{"[", RowBox[{"i", ",", RowBox[{"i", "+", "nj"}]}], "]"}], "]"}], "*)"}], "]"}], ";"}], "\[IndentingNewLine]", "Vee", "\[IndentingNewLine]"}]}]], "Input", CellChangeTimes->{{3.571840548723463*^9, 3.571840579798718*^9}, { 3.5718477253093*^9, 3.5718477304573092`*^9}, {3.572620810756155*^9, 3.5726208298349886`*^9}, {3.5726208600522413`*^9, 3.5726208972739067`*^9}, {3.57279778559276*^9, 3.57279781975682*^9}, 3.5733150956478324`*^9, {3.5733650408599825`*^9, 3.573365073947641*^9}, { 3.573365126847334*^9, 3.573365203209468*^9}, {3.57467280495751*^9, 3.574672834457162*^9}, {3.574672996697447*^9, 3.5746729984914503`*^9}, { 3.574743538820456*^9, 3.574743544140065*^9}, {3.574828627021879*^9, 3.5748286276614804`*^9}}], Cell[BoxData["2833.1581344237197`"], "Output", CellChangeTimes->{3.5748345069370074`*^9, 3.580142420021215*^9}] }, Open ]], Cell[CellGroupData[{ Cell[BoxData[{ RowBox[{ RowBox[{ RowBox[{"sc", "=", "0.36"}], ";"}], " ", 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.36"}], ";"}], " ", 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", "<", "11"}], ",", RowBox[{"i", "++"}], ",", RowBox[{"Vee", "=", RowBox[{"Vee", "+", RowBox[{"3", "*", RowBox[{"sw", "/", "rlo"}]}]}]}]}], "]"}], "\[IndentingNewLine]", "Vee"}], "Input", CellChangeTimes->{{3.5689548890696163`*^9, 3.568955116299615*^9}, { 3.5689552553894596`*^9, 3.5689552575266633`*^9}, {3.5689552936875267`*^9, 3.5689553203323736`*^9}, {3.568955404229321*^9, 3.568955433245372*^9}, 3.5689554882822685`*^9, 3.5689562157115464`*^9, {3.568956283961666*^9, 3.5689562858180695`*^9}, {3.5689566111878405`*^9, 3.5689566291278725`*^9}, {3.5689566695319433`*^9, 3.5689567220104356`*^9}, {3.5690810958835616`*^9, 3.569081104525977*^9}, { 3.5691717160681796`*^9, 3.569171751714242*^9}, {3.5691717855663013`*^9, 3.5691719006789036`*^9}, 3.569234247377528*^9, {3.569235622381544*^9, 3.569235625142749*^9}, {3.5692356799612455`*^9, 3.569235740536152*^9}, { 3.57045575500149*^9, 3.5704557604770994`*^9}, {3.57046440981329*^9, 3.5704644333849316`*^9}, {3.5705963024877205`*^9, 3.5705963300061693`*^9}, {3.5706010463712544`*^9, 3.570601069225295*^9}, { 3.5706012097659416`*^9, 3.5706012109983435`*^9}, {3.570601290948484*^9, 3.570601291619285*^9}, {3.570601333099758*^9, 3.570601444951955*^9}, 3.5706014761208096`*^9, {3.570601526633698*^9, 3.570601615179454*^9}, { 3.5708576202336864`*^9, 3.5708576267544985`*^9}, {3.5708577990100007`*^9, 3.5708578016152053`*^9}, {3.5708580423548284`*^9, 3.570858044429632*^9}, { 3.570858075754487*^9, 3.5708581072821426`*^9}, {3.570858449889944*^9, 3.5708585756105647`*^9}, {3.572795632149378*^9, 3.5727956355657835`*^9}, { 3.5728516649872932`*^9, 3.5728517189321885`*^9}, {3.572851825152775*^9, 3.572851850284419*^9}, {3.5728520019946856`*^9, 3.572852210645052*^9}, 3.573124800838154*^9, {3.573322145410615*^9, 3.573322167859054*^9}, { 3.573322202803116*^9, 3.573322232630368*^9}, {3.5733683306427617`*^9, 3.5733683367267723`*^9}, {3.5733684056944933`*^9, 3.573368412932906*^9}, { 3.5733695833093615`*^9, 3.5733696100478086`*^9}, {3.5733696433694673`*^9, 3.573369694568757*^9}, {3.5733697316344223`*^9, 3.5733697335688257`*^9}, { 3.573369920425954*^9, 3.5733699263851643`*^9}, {3.57336995814682*^9, 3.573370085162243*^9}, {3.5733701175791*^9, 3.573370122087508*^9}, { 3.5733701577803707`*^9, 3.5733701630219803`*^9}, {3.573370193660434*^9, 3.573370198262442*^9}, {3.5746729482125616`*^9, 3.5746729642181897`*^9}, { 3.5746730450731316`*^9, 3.5746730625763626`*^9}, {3.574674580516679*^9, 3.5746746053675222`*^9}, {3.574674636692377*^9, 3.574674639859183*^9}, { 3.574743595854156*^9, 3.574743647131446*^9}}], Cell[BoxData["3013.914681939357`"], "Output", CellChangeTimes->{3.5748345069370074`*^9, 3.5801424200368147`*^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[{"-", "5785.64230554095`"}]], "Output", CellChangeTimes->{3.574834506952607*^9, 3.5801424200368147`*^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[{"-", "7916.969917664019`"}]], "Output", CellChangeTimes->{3.5748345069682074`*^9, 3.580142420052415*^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[{"-", "7982.743614440182`"}]], "Output", CellChangeTimes->{3.5748345069838076`*^9, 3.580142420052415*^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["2588.638566678578`"], "Output", CellChangeTimes->{3.574834506999408*^9, 3.580142420068015*^9}] }, Open ]], Cell[CellGroupData[{ Cell[BoxData[ RowBox[{"ratio", "=", RowBox[{ RowBox[{"-", RowBox[{"(", RowBox[{"Vne", "+", RowBox[{"2", "*", "Vnn"}]}], ")"}]}], "/", RowBox[{"(", RowBox[{"Vee", "-", "Vnn"}], ")"}]}]}]], "Input"], Cell[BoxData["6.596811766310267`"], "Output", CellChangeTimes->{3.5801424200836153`*^9}] }, Open ]], Cell[CellGroupData[{ Cell[BoxData[ RowBox[{ RowBox[{"(*", " ", RowBox[{ RowBox[{ "now", " ", "add", " ", "the", " ", "energy", " ", "terms", " ", "of", " ", RowBox[{"Cl", "[", "Ne", "]"}], "7"}], "+", " ", RowBox[{"from", " ", "Ne_s24b2", RowBox[{"_atoms", ".", "nb"}]}]}], " ", "*)"}], "\[IndentingNewLine]", RowBox[{ "Vee", "\[IndentingNewLine]", "Vnn", "\[IndentingNewLine]", "Vne", "\[IndentingNewLine]", RowBox[{"Tpi", " ", "=", " ", RowBox[{"2.296", "*", "cj", "*", "0.5", "*", "1.125", "*", RowBox[{"(", RowBox[{ RowBox[{"1", "/", RowBox[{"rpo", "^", "2"}]}], "+", RowBox[{"1", "/", RowBox[{"rpi", "^", "2"}]}]}], ")"}]}]}], " ", RowBox[{"(*", " ", RowBox[{"pi", " ", "kin", " ", "e", " ", "added"}], " ", "*)"}], "\[IndentingNewLine]", RowBox[{"Tlp", " ", "=", RowBox[{"10", "*", "2.25", "*", RowBox[{"(", RowBox[{"1", "/", RowBox[{"rlo", "^", "2"}]}], ")"}]}]}], "\[IndentingNewLine]", RowBox[{"Vtot", "=", RowBox[{"Vne", "+", "Vee", "+", "Vnn"}]}], "\[IndentingNewLine]", RowBox[{"Ttot", " ", "=", RowBox[{"Ttot", "+", "Tpi", "+", "Tlp"}]}], "\[IndentingNewLine]", RowBox[{"Vir", " ", "=", RowBox[{ RowBox[{"-", "Vtot"}], "/", "Ttot"}]}], "\[IndentingNewLine]", RowBox[{"Etot", "=", RowBox[{"Ttot", "+", "Vtot"}]}], "\[IndentingNewLine]"}]}]], "Input", CellChangeTimes->{{3.5689074950860367`*^9, 3.5689075109980645`*^9}, { 3.568910298074465*^9, 3.5689103015064707`*^9}, {3.568910724064413*^9, 3.5689107693044925`*^9}, {3.568955368910859*^9, 3.568955378629676*^9}, { 3.568955601366867*^9, 3.568955616218093*^9}, {3.5704638504275074`*^9, 3.570463876370353*^9}, {3.570464305074706*^9, 3.5704643133895206`*^9}, { 3.570464352171189*^9, 3.570464353231991*^9}, {3.570712404698539*^9, 3.5707124150569572`*^9}, {3.570809962851386*^9, 3.5708101493809137`*^9}, { 3.5708102160710306`*^9, 3.570810245165082*^9}, {3.5708102767551374`*^9, 3.5708103693413*^9}, {3.570810404207361*^9, 3.5708104232081947`*^9}, { 3.5708104788690925`*^9, 3.5708104825818987`*^9}, {3.5708105169643593`*^9, 3.570810517884761*^9}, {3.570810561767638*^9, 3.5708105625476394`*^9}, { 3.5708106179589367`*^9, 3.570810645648985*^9}, {3.5708552812279787`*^9, 3.570855300572013*^9}, {3.5718406368324184`*^9, 3.5718406454592333`*^9}, 3.57184067742369*^9, {3.572851887958485*^9, 3.5728519643206196`*^9}, 3.573124110349741*^9, 3.5731249811744704`*^9, {3.573321827294856*^9, 3.573321828074857*^9}, {3.5733218842973557`*^9, 3.573322060546466*^9}, { 3.5733223511749763`*^9, 3.573322362562996*^9}, {3.5733662939947844`*^9, 3.573366334227255*^9}, {3.573366373336523*^9, 3.5733663802005353`*^9}, { 3.5733670479305086`*^9, 3.573367141577473*^9}, {3.573367235162038*^9, 3.5733672396704454`*^9}, {3.5733673160013795`*^9, 3.573367336141015*^9}, { 3.57337971917793*^9, 3.573379817005702*^9}, {3.5733798503429604`*^9, 3.5733798602021775`*^9}, 3.574672644355228*^9, {3.5746726806096916`*^9, 3.5746727600450315`*^9}, {3.5747435066375995`*^9, 3.574743512113209*^9}, { 3.574828574792988*^9, 3.57482858761621*^9}}], Cell[BoxData["3013.914681939357`"], "Output", CellChangeTimes->{3.574834506999408*^9, 3.5801424200836153`*^9}], Cell[BoxData["2588.638566678578`"], "Output", CellChangeTimes->{3.574834506999408*^9, 3.5801424200836153`*^9}], Cell[BoxData[ RowBox[{"-", "7982.743614440182`"}]], "Output", CellChangeTimes->{3.574834506999408*^9, 3.5801424200992155`*^9}], Cell[BoxData["10.542857142857144`"], "Output", CellChangeTimes->{3.574834506999408*^9, 3.5801424200992155`*^9}], Cell[BoxData["17.77777777777778`"], "Output", CellChangeTimes->{3.574834506999408*^9, 3.5801424200992155`*^9}], Cell[BoxData[ RowBox[{"-", "2380.1903658222463`"}]], "Output", CellChangeTimes->{3.574834506999408*^9, 3.5801424200992155`*^9}], Cell[BoxData["1190.0580920791297`"], "Output", CellChangeTimes->{3.574834506999408*^9, 3.5801424200992155`*^9}], Cell[BoxData["2.000062334489787`"], "Output", CellChangeTimes->{3.574834506999408*^9, 3.5801424200992155`*^9}], Cell[BoxData[ RowBox[{"-", "1190.1322737431167`"}]], "Output", CellChangeTimes->{3.574834506999408*^9, 3.580142420114815*^9}] }, Open ]] }, WindowSize->{1044, 949}, WindowMargins->{{Automatic, 281}, {Automatic, 10}}, PrintingCopies->1, PrintingPageRange->{32000, 32000}, PrintingOptions->{"Magnification"->1., "PaperOrientation"->"Portrait", "PaperSize"->{595.2, 841.8}}, FrontEndVersion->"9.0 for Microsoft Windows (64-bit) (January 25, 2013)", StyleDefinitions->"Default.nb" ] (* End of Notebook Content *) (* Internal cache information *) (*CellTagsOutline CellTagsIndex->{} *) (*CellTagsIndex CellTagsIndex->{} *) (*NotebookFileOutline Notebook[{ Cell[557, 20, 1958, 33, 52, "Input"], Cell[CellGroupData[{ Cell[2540, 57, 357, 7, 52, "Input"], Cell[2900, 66, 6414, 108, 315, "Output"] }, Open ]], Cell[CellGroupData[{ Cell[9351, 179, 755, 15, 52, "Input"], Cell[10109, 196, 5867, 147, 836, "Output"] }, Open ]], Cell[CellGroupData[{ Cell[16013, 348, 685, 12, 31, "Input"], Cell[16701, 362, 1143, 16, 52, "Output"] }, Open ]], Cell[CellGroupData[{ Cell[17881, 383, 955, 14, 31, "Input"], Cell[18839, 399, 93, 1, 31, "Output"] }, Open ]], Cell[CellGroupData[{ Cell[18969, 405, 1560, 29, 31, "Input"], Cell[20532, 436, 1143, 16, 52, "Output"] }, Open ]], Cell[21690, 455, 1419, 23, 31, "Input"], Cell[23112, 480, 1592, 29, 31, "Input"], Cell[CellGroupData[{ Cell[24729, 513, 1234, 18, 31, "Input"], Cell[25966, 533, 3782, 111, 92, "Output"] }, Open ]], Cell[CellGroupData[{ Cell[29785, 649, 697, 14, 31, "Input"], Cell[30485, 665, 739, 12, 52, "Output"] }, Open ]], Cell[31239, 680, 908, 24, 31, "Input"], Cell[CellGroupData[{ Cell[32172, 708, 6296, 131, 172, "Input"], Cell[38471, 841, 944, 14, 72, "Output"], Cell[39418, 857, 972, 15, 92, "Output"] }, Open ]], Cell[CellGroupData[{ Cell[40427, 877, 519, 12, 31, "Input"], Cell[40949, 891, 1143, 16, 52, "Output"] }, Open ]], Cell[CellGroupData[{ Cell[42129, 912, 1428, 39, 72, "Input"], Cell[43560, 953, 803, 13, 52, "Output"] }, Open ]], Cell[CellGroupData[{ Cell[44400, 971, 827, 23, 92, "Input"], Cell[45230, 996, 95, 1, 31, "Output"], Cell[45328, 999, 95, 1, 31, "Output"] }, Open ]], Cell[CellGroupData[{ Cell[45460, 1005, 359, 7, 52, "Input"], Cell[45822, 1014, 111, 1, 31, "Output"] }, Open ]], Cell[45948, 1018, 1824, 35, 72, "Input"], Cell[CellGroupData[{ Cell[47797, 1057, 5231, 128, 252, "Input"], Cell[53031, 1187, 40884, 998, 363, "Output"] }, Open ]], Cell[93930, 2188, 1442, 19, 30, "Text"], Cell[95375, 2209, 1997, 39, 52, "Input"], Cell[97375, 2250, 1331, 36, 72, "Input"], Cell[CellGroupData[{ Cell[98731, 2290, 4977, 90, 72, "Input"], Cell[103711, 2382, 19593, 295, 851, "Output"] }, Open ]], Cell[123319, 2680, 1027, 14, 31, "Input"], Cell[CellGroupData[{ Cell[124371, 2698, 3846, 83, 132, "Input"], Cell[128220, 2783, 1007, 16, 92, "Output"] }, Open ]], Cell[129242, 2802, 2072, 49, 112, "Input"], Cell[131317, 2853, 561, 12, 52, "Input"], Cell[131881, 2867, 2148, 49, 92, "Input"], Cell[134032, 2918, 2452, 56, 92, "Input"], Cell[CellGroupData[{ Cell[136509, 2978, 3673, 95, 172, "Input"], Cell[140185, 3075, 111, 1, 31, "Output"], Cell[140299, 3078, 112, 1, 31, "Output"], Cell[140414, 3081, 112, 1, 31, "Output"], Cell[140529, 3084, 111, 1, 31, "Output"], Cell[140643, 3087, 111, 1, 31, "Output"] }, Open ]], Cell[140769, 3091, 2075, 35, 72, "Input"], Cell[CellGroupData[{ Cell[142869, 3130, 3969, 94, 172, "Input"], Cell[146841, 3226, 136, 2, 31, "Output"], Cell[146980, 3230, 523, 10, 21, "Message"], Cell[147506, 3242, 231, 4, 31, "Output"], Cell[147740, 3248, 862, 16, 72, "Output"], Cell[148605, 3266, 166, 3, 31, "Output"], Cell[148774, 3271, 953, 17, 72, "Output"], Cell[149730, 3290, 168, 3, 31, "Output"] }, Open ]], Cell[CellGroupData[{ Cell[149935, 3298, 2672, 54, 132, "Input"], Cell[152610, 3354, 97, 1, 31, "Output"] }, Open ]], Cell[CellGroupData[{ Cell[152744, 3360, 739, 22, 92, "Input"], Cell[153486, 3384, 94, 1, 31, "Output"] }, Open ]], Cell[CellGroupData[{ Cell[153617, 3390, 2771, 55, 92, "Input"], Cell[156391, 3447, 342, 6, 31, "Output"] }, Open ]], Cell[156748, 3456, 4820, 136, 232, "Input"], Cell[CellGroupData[{ Cell[161593, 3596, 5267, 128, 232, "Input"], Cell[166863, 3726, 139, 3, 31, "Output"], Cell[167005, 3731, 92, 1, 31, "Output"], Cell[167100, 3734, 5191, 180, 836, "Output"] }, Open ]], Cell[CellGroupData[{ Cell[172328, 3919, 11921, 200, 232, "Input"], Cell[184252, 4121, 365, 9, 31, "Output"], Cell[184620, 4132, 262, 7, 31, "Output"] }, Open ]], Cell[184897, 4142, 9149, 139, 152, "Input"], Cell[194049, 4283, 8208, 112, 49, "Text"], Cell[CellGroupData[{ Cell[202282, 4399, 2966, 67, 112, "Input"], Cell[205251, 4468, 690, 19, 31, "Output"], Cell[205944, 4489, 96, 1, 31, "Output"] }, Open ]], Cell[206055, 4493, 13265, 308, 1172, "Input"], Cell[219323, 4803, 2371, 33, 49, "Text"], Cell[221697, 4838, 3738, 59, 72, "Input"], Cell[225438, 4899, 15326, 335, 1172, "Input"], Cell[240767, 5236, 400, 7, 49, "Text"], Cell[241170, 5245, 1368, 20, 31, "Input"], Cell[CellGroupData[{ Cell[242563, 5269, 2133, 44, 72, "Input"], Cell[244699, 5315, 332, 9, 31, "Output"] }, Open ]], Cell[245046, 5327, 1824, 34, 72, "Input"], Cell[246873, 5363, 20682, 507, 1452, "Input"], Cell[267558, 5872, 2583, 36, 49, "Text"], Cell[CellGroupData[{ Cell[270166, 5912, 4118, 81, 172, "Input"], Cell[274287, 5995, 151, 3, 31, "Output"] }, Open ]], Cell[274453, 6001, 22762, 538, 1472, "Input"], Cell[297218, 6541, 3073, 58, 92, "Input"], Cell[CellGroupData[{ Cell[300316, 6603, 939, 17, 72, "Input"], Cell[301258, 6622, 5150, 118, 232, "Output"], Cell[306411, 6742, 95, 1, 31, "Output"], Cell[306509, 6745, 95, 1, 31, "Output"] }, Open ]], Cell[306619, 6749, 10201, 233, 192, "Input"], Cell[316823, 6984, 6427, 103, 92, "Input"], Cell[323253, 7089, 10215, 234, 152, "Input"], Cell[333471, 7325, 5925, 93, 31, "Input"], Cell[339399, 7420, 12588, 227, 132, "Input"], Cell[CellGroupData[{ Cell[352012, 7651, 15946, 304, 352, "Input"], Cell[367961, 7957, 118616, 2104, 375, 30732, 662, "CachedBoxData", "BoxData", \ "Output"], Cell[486580, 10063, 53280, 936, 364, 22290, 426, "CachedBoxData", "BoxData", \ "Output"], Cell[539863, 11001, 20609, 410, 366, "Output"], Cell[560475, 11413, 15628, 319, 363, "Output"], Cell[576106, 11734, 15086, 309, 361, "Output"] }, Open ]], Cell[CellGroupData[{ Cell[591229, 12048, 4855, 104, 152, "Input"], Cell[596087, 12154, 98, 1, 31, "Output"] }, Open ]], Cell[CellGroupData[{ Cell[596222, 12160, 2499, 47, 92, "Input"], Cell[598724, 12209, 94, 1, 31, "Output"] }, Open ]], Cell[598833, 12213, 1841, 29, 52, "Input"], Cell[CellGroupData[{ Cell[600699, 12246, 4971, 109, 192, "Input"], Cell[605673, 12357, 98, 1, 31, "Output"] }, Open ]], Cell[CellGroupData[{ Cell[605808, 12363, 5765, 107, 92, "Input"], Cell[611576, 12472, 3514, 112, 112, "Output"], Cell[615093, 12586, 1502, 22, 92, "Output"] }, Open ]], Cell[CellGroupData[{ Cell[616632, 12613, 4670, 80, 92, "Input"], Cell[621305, 12695, 94, 1, 31, "Output"] }, Open ]], Cell[CellGroupData[{ Cell[621436, 12701, 2695, 47, 112, "Input"], Cell[624134, 12750, 115, 2, 31, "Output"], Cell[624252, 12754, 96, 1, 31, "Output"], Cell[624351, 12757, 98, 1, 31, "Output"], Cell[624452, 12760, 96, 1, 31, "Output"] }, Open ]], Cell[624563, 12764, 2066, 30, 31, "Input"], Cell[CellGroupData[{ Cell[626654, 12798, 2963, 56, 112, "Input"], Cell[629620, 12856, 108, 1, 31, "Output"] }, Open ]], Cell[CellGroupData[{ Cell[629765, 12862, 1701, 41, 92, "Input"], Cell[631469, 12905, 112, 1, 31, "Output"] }, Open ]], Cell[CellGroupData[{ Cell[631618, 12911, 3899, 81, 132, "Input"], Cell[635520, 12994, 113, 1, 31, "Output"] }, Open ]], Cell[CellGroupData[{ Cell[635670, 13000, 499, 15, 52, "Input"], Cell[636172, 13017, 127, 2, 31, "Output"] }, Open ]], Cell[636314, 13022, 1381, 21, 31, "Input"], Cell[CellGroupData[{ Cell[637720, 13047, 1709, 32, 52, "Input"], Cell[639432, 13081, 128, 2, 31, "Output"] }, Open ]], Cell[CellGroupData[{ Cell[639597, 13088, 1415, 43, 72, "Input"], Cell[641015, 13133, 128, 2, 31, "Output"] }, Open ]], Cell[CellGroupData[{ Cell[641180, 13140, 2550, 50, 92, "Input"], Cell[643733, 13192, 109, 1, 31, "Output"] }, Open ]], Cell[CellGroupData[{ Cell[643879, 13198, 230, 8, 31, "Input"], Cell[644112, 13208, 89, 1, 31, "Output"] }, Open ]], Cell[CellGroupData[{ Cell[644238, 13214, 3208, 61, 232, "Input"], Cell[647449, 13277, 111, 1, 31, "Output"], Cell[647563, 13280, 111, 1, 31, "Output"], Cell[647677, 13283, 128, 2, 31, "Output"], Cell[647808, 13287, 112, 1, 31, "Output"], Cell[647923, 13290, 111, 1, 31, "Output"], Cell[648037, 13293, 129, 2, 31, "Output"], Cell[648169, 13297, 112, 1, 31, "Output"], Cell[648284, 13300, 111, 1, 31, "Output"], Cell[648398, 13303, 127, 2, 63, "Output"] }, Open ]] } ] *) (* End of internal cache information *)