(* 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[ 392958, 8061] NotebookOptionsPosition[ 386545, 7856] NotebookOutlinePosition[ 387045, 7876] CellTagsIndexPosition[ 387002, 7873] WindowFrame->Normal*) (* Beginning of Notebook Content *) Notebook[{ Cell[BoxData[ RowBox[{ RowBox[{"(*", " ", RowBox[{ RowBox[{ "Kimball", " ", "model", " ", "and", " ", "energy", " ", "derived", " ", "from", " ", "Wolfram", " ", "source"}], ",", " ", RowBox[{"ES", " ", "27", " ", "February", " ", "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}], Cell[CellGroupData[{ Cell[BoxData[ RowBox[{ RowBox[{"ChemicalData", "[", RowBox[{"\"\\"", ",", "\"\\""}], "]"}], "\[IndentingNewLine]"}]], "Input", CellChangeTimes->{{3.570856547809803*^9, 3.5708565502590075`*^9}, 3.5708567094884872`*^9, 3.5709425310070767`*^9}], Cell[BoxData[ Graphics3DBox[ {AbsoluteThickness[3], EdgeForm[None], Specularity[ GrayLevel[1], 100], GraphicsComplex3DBox[CompressedData[" 1:eJwtVQ1QlFUUJWtIUQEJzTFDowjMHEExKgQuowhiICy/7oIt7C7LArssy8bf 8r8C4ljq4ETlEGo/JqPYkENUpjcqhlCxEseszDGoJrQwtJIGmb73zr6ZnTf7 9r1zzz333LuP5RarDLPc3NxUyud+sff5Nd0I2MmXKn5/MmRnMOeJ5V7F588p a8ROlcrx7PWx9LY1wuOyzkLLmm4k9/VX0YqsPf1/a/Uk701b6Z8g5eB8PSmn QVktehKwyXv15HH5LWuEv40Sc70zn9sfR11/fZuQ+10mvfG6sjpq6HPl+h6V icKvbX25vTsS993LgNeUTeWnO5es7lhIa8XaWkl3U0bfOaBPY/n7fSUkrnvE FtCslS2LrvglkKAVpPAGDwOt2/7x5nm56/k1i4+TuxLB/10bRYhAVzXk2x17 vWpMy/KdbxL13r43UjEnmjJurv4k8MIymieAW+NZ4jRuYEHTolrLB5esvvpE egJLviojty1+IN3zeAC5iRWkZ0FnuD2M3rfl7/sjVAX85SWs3FrV8+lmLhEE bmnYIQj4VfDZQzG9t2sCSZ5rdcjPXMfxgkBzEupRlM+Cvl9IHd9UtqaHClGv N43Yg5wc2N98JGPIk+OuV/l2nzGzzPdYMyusfZxfp7LUu8fGIm3fV1369+eS fO9fDl0SylEHTyt0P2vF+bpGujL8b8poQhJ079Qh32An9D5hhv4/GoE77CAZ 5/lSem9gS1jrIUJdvRpwT2+kb/x/mKodimPpwwUvgcciA0u/HSjG/RgHOXno UMyfaSz5tJTj3kAtCTk72jOgzx0TSV10OXRYkfOePRS40aWou8XlR5sOuL+U ktRzvgX+m3H5PMOB+3kG5DWh5Z6OiSMDF1XIt74M+R024P1CE3g58oG/y6Wn Zw7q+KWNfEQChuXAizLwC2Gt0dqFyST5VeZgT17JUqeGEEYdLPBZogr1jNUD b34hP6rWh1/zCqeo3d5+5qWXzsi4kybU228bfLRYD14aLU0qbeetTWPp9ztW +G5cx7IPv1LDx/EViPNbNvrijg66djfCbw9a4Z/GAuBk1SDejIXrCk7Z24LT WdI8XgV/DxbDZ+lW4Bc5sX+/DTq3FbHU89lWlrp4ZSC+sQhxdzch7sU8+Hu7 Hb7Q7UK8g8mIF1PNUj5TCwuYPZNxLn5lyHNjK58cLDvd2R+D9wEO4D1dDR/s 02Eeednh19mVJOD6IgtQ7zErfm9ooOmjygDrziLJ82E9SfyZBtT1ERPq/0we cHqraa84Hy2mTWKw3I2Cb36qw7kmHz751R+8g8tJjMmTgy+Cp9GKOsRXUaQA Puqq30Y7CXnOeVRTYMjsY0tr0zFfps30s9DjkoGClWP12Br06Vw7eKqNNCTm zEdqzO8sV75PFSHfV+KR76IKvCs3oL8cqdDbNxm82+zw12AOeEzrof+YBXzX azEvprSod6+NOoWPxxPg8wU6TlXG+Bf7k0gO6FNplLhj/tYTI+78X60SaO4G 5H+hgMUz95AovnVEaYwODfwSbOJQ4evba6gvvPDD7PoIxDmcz2tE3iNb8P+z XM9iLK9KTHHNmRTw9ChhWUe1mptFu2RroH9oBX8mBCpMIvm9Swc/Pt7AUtd9 ZujvbWKZ96ZavJ9j5otKe2VqctBvE9XwvcUMfwYUIW68k6cOGj8YH42D71aY Weo52cJC5omJNORVakWfL21mOW87tIi7s5T/Bwnsn/k= "], { {RGBColor[0.65, 0.7, 0.7], SphereBox[22, 24.], SphereBox[23, 24.], SphereBox[24, 24.], SphereBox[25, 24.], SphereBox[26, 24.], SphereBox[27, 24.], SphereBox[28, 24.], SphereBox[29, 24.], SphereBox[30, 24.], SphereBox[31, 24.], SphereBox[32, 24.], 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.]}, {RGBColor[0.4, 0.4, 0.4], SphereBox[2, 34.], SphereBox[3, 34.], SphereBox[4, 34.], SphereBox[5, 34.], SphereBox[6, 34.], SphereBox[7, 34.], SphereBox[8, 34.], SphereBox[9, 34.], SphereBox[10, 34.], SphereBox[11, 34.], SphereBox[12, 34.], SphereBox[13, 34.], SphereBox[14, 34.], SphereBox[15, 34.], SphereBox[16, 34.], SphereBox[17, 34.], SphereBox[18, 34.], SphereBox[19, 34.], SphereBox[20, 34.], SphereBox[21, 34.]}, {RGBColor[0.800498, 0.201504, 0.192061], SphereBox[1, 31.]}, {RGBColor[0.65, 0.7, 0.7], CylinderBox[{53, 51}, 15.], CylinderBox[{54, 22}, 15.], CylinderBox[{55, 23}, 15.], CylinderBox[{56, 24}, 15.], CylinderBox[{57, 25}, 15.], CylinderBox[{58, 26}, 15.], CylinderBox[{59, 27}, 15.], CylinderBox[{60, 28}, 15.], CylinderBox[{61, 29}, 15.], CylinderBox[{62, 30}, 15.], CylinderBox[{63, 31}, 15.], CylinderBox[{64, 32}, 15.], CylinderBox[{65, 33}, 15.], CylinderBox[{66, 34}, 15.], CylinderBox[{67, 35}, 15.], CylinderBox[{68, 36}, 15.], CylinderBox[{69, 37}, 15.], CylinderBox[{70, 38}, 15.], CylinderBox[{71, 39}, 15.], CylinderBox[{72, 40}, 15.], CylinderBox[{73, 41}, 15.], CylinderBox[{74, 42}, 15.], CylinderBox[{75, 43}, 15.], CylinderBox[{76, 44}, 15.], CylinderBox[{77, 45}, 15.], CylinderBox[{78, 46}, 15.], CylinderBox[{79, 47}, 15.], CylinderBox[{80, 48}, 15.], CylinderBox[{81, 49}, 15.], CylinderBox[{82, 50}, 15.]}, {RGBColor[0.4, 0.4, 0.4], CylinderBox[{52, 21}, 15.], CylinderBox[{2, 3}, 15.], CylinderBox[{2, 5}, 15.], CylinderBox[{2, 8}, 15.], CylinderBox[{2, 9}, 15.], CylinderBox[{3, 4}, 15.], CylinderBox[{3, 54}, 15.], CylinderBox[{3, 55}, 15.], CylinderBox[{4, 6}, 15.], CylinderBox[{4, 56}, 15.], CylinderBox[{4, 57}, 15.], CylinderBox[{5, 7}, 15.], CylinderBox[{5, 10}, 15.], CylinderBox[{6, 7}, 15.], CylinderBox[{6, 58}, 15.], CylinderBox[{6, 59}, 15.], CylinderBox[{7, 11}, 15.], CylinderBox[{8, 60}, 15.], CylinderBox[{8, 61}, 15.], CylinderBox[{8, 62}, 15.], CylinderBox[{9, 63}, 15.], CylinderBox[{9, 64}, 15.], CylinderBox[{9, 65}, 15.], CylinderBox[{10, 12}, 15.], CylinderBox[{10, 66}, 15.], CylinderBox[{11, 67}, 15.], CylinderBox[{11, 68}, 15.], CylinderBox[{11, 69}, 15.], CylinderBox[{12, 13}, 15.], CylinderBox[{12, 70}, 15.], CylinderBox[{13, 14}, 15.], CylinderBox[{13, 15}, 15.], CylinderBox[{14, 71}, 15.], CylinderBox[{14, 72}, 15.], CylinderBox[{14, 73}, 15.], CylinderBox[{15, 16}, 15.], CylinderBox[{15, 74}, 15.], CylinderBox[{16, 17}, 15.], CylinderBox[{16, 75}, 15.], CylinderBox[{17, 18}, 15.], CylinderBox[{17, 76}, 15.], CylinderBox[{18, 19}, 15.], CylinderBox[{18, 20}, 15.], CylinderBox[{19, 77}, 15.], CylinderBox[{19, 78}, 15.], CylinderBox[{19, 79}, 15.], CylinderBox[{20, 21}, 15.], CylinderBox[{20, 80}, 15.], CylinderBox[{21, 81}, 15.], CylinderBox[{21, 82}, 15.]}, {RGBColor[0.800498, 0.201504, 0.192061], CylinderBox[{1, 52}, 15.], CylinderBox[{1, 53}, 15.]}}]}, Boxed->False, ImageSize->394.32310153075974`, Lighting->"Neutral", ViewPoint->{1.3, -2.4, -2.}]], "Output", CellChangeTimes->{3.5709426075408115`*^9, 3.570943185755827*^9, 3.5709437244403725`*^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}], Cell[BoxData[ TagBox[ RowBox[{"(", "\[NoBreak]", GridBox[{ { RowBox[{"-", "14.6026686924`"}], RowBox[{"-", "0.31240950232`"}], RowBox[{"-", "7.868819063999999`"}]}, {"6.2984567579999995`", "0.87813677494`", "4.5943018512`"}, {"8.0912398142`", "3.0808202978`", "5.136275268`"}, {"10.1614346472`", "3.1034970098`", "3.1087882425999998`"}, {"5.4828510164`", "0.92895150708`", "1.8780285960599998`"}, {"8.954466651`", "3.8282069308`", "0.5798057313199999`"}, {"6.659205451399999`", "2.2315774334`", "0.10211134441`"}, {"7.652445436999999`", RowBox[{"-", "1.61707633272`"}], "5.1421334186`"}, {"3.9725819972`", "1.10059531966`", "6.2977008676`"}, {"3.2546750897999996`", RowBox[{"-", "0.53636093058`"}], "1.15904454484`"}, {"5.6393203292`", "2.1062885995999996`", RowBox[{"-", "2.5537757163999997`"}]}, {"1.2153772769`", "0.6439052372399999`", "0.150276680698`"}, { RowBox[{"-", "1.00289648546`"}], RowBox[{"-", "0.7372954961599999`"}], RowBox[{"-", "0.36513285772`"}]}, { RowBox[{"-", "1.10875893598`"}], RowBox[{"-", "3.5256617982`"}], "0.20480850387999996`"}, { RowBox[{"-", "3.047183175`"}], "0.44584305518`", RowBox[{"-", "1.3762307540199998`"}]}, { RowBox[{"-", "5.1780382126`"}], RowBox[{"-", "0.97286873932`"}], RowBox[{"-", "2.1119577776`"}]}, { RowBox[{"-", "7.2930195518`"}], "0.22196721596`", RowBox[{"-", "2.9294532452`"}]}, { RowBox[{"-", "9.5026761636`"}], RowBox[{"-", "1.24914668052`"}], RowBox[{"-", "3.692524604`"}]}, { RowBox[{"-", "9.4310555482`"}], RowBox[{"-", "4.0933354886`"}], RowBox[{"-", "3.5706372769999994`"}]}, { RowBox[{"-", "11.584965243`"}], RowBox[{"-", "0.072731774288`"}], RowBox[{"-", "4.4973589074`"}]}, { RowBox[{"-", "13.7116628834`"}], RowBox[{"-", "1.5733480730799998`"}], RowBox[{"-", "5.6533043016`"}]}, {"8.9455849388`", "2.8361007808000003`", "6.994820788999999`"}, {"7.045654418399999`", "4.8545171214`", "5.077693761999999`"}, {"11.011055456799998`", "1.2324226054199998`", "2.9663029022`"}, {"11.60291764`", "4.4877213048`", "3.6071089888`"}, {"8.4075799466`", "5.8133640938`", "0.62856066212`"}, {"10.3173370422`", "3.5362442637999996`", RowBox[{"-", "0.9369639453199999`"}]}, {"6.3706442912`", RowBox[{"-", "3.1879677619999995`"}], "4.7785501362`"}, {"8.2460083736`", RowBox[{"-", "1.6577243389799998`"}], "7.113873526999999`"}, {"9.305010823999998`", RowBox[{"-", "1.78331552894`"}], "3.924016039`"}, {"2.6287978386`", RowBox[{"-", "0.38658124782`"}], "5.8226237512`"}, {"3.0889461196`", "2.9398467381999995`", "6.0161316936`"}, {"4.5430902766`", "0.9068606101399999`", "8.2673622774`"}, {"3.2353998846`", RowBox[{"-", "2.5602007847999997`"}], "1.42313375334`"}, {"6.8030136`", "3.2707377608`", RowBox[{"-", "3.7919241915999997`"}]}, {"3.7010283709999996`", "2.8028416031999996`", RowBox[{"-", "2.5785311269999998`"}]}, {"5.6759810136`", "0.15492918610999998`", RowBox[{"-", "3.2121562547999996`"}]}, {"1.29132536484`", "2.6420259206`", RowBox[{"-", "0.2581365716`"}]}, { RowBox[{"-", "0.33081543356`"}], RowBox[{"-", "4.5810737692`"}], RowBox[{"-", "1.38367627446`"}]}, { RowBox[{"-", "3.0658914624`"}], RowBox[{"-", "4.0899339818`"}], "0.51139765012`"}, { RowBox[{"-", "0.0062334501835999995`"}], RowBox[{"-", "3.9225042581999996`"}], "1.8987966848`"}, { RowBox[{"-", "3.0381124902`"}], "2.472706471`", RowBox[{"-", "1.61573462726`"}]}, { RowBox[{"-", "5.1264486927999995`"}], RowBox[{"-", "3.0110894083999997`"}], RowBox[{"-", "2.024841409`"}]}, { RowBox[{"-", "7.3442311263999995`"}], "2.2604902412`", RowBox[{"-", "3.0167585863999995`"}]}, { RowBox[{"-", "11.297726891`"}], RowBox[{"-", "4.846580272200001`"}], RowBox[{"-", "4.0077309008`"}]}, { RowBox[{"-", "8.877554802799999`"}], RowBox[{"-", "4.6857645896`"}], RowBox[{"-", "1.6773019003399998`"}]}, { RowBox[{"-", "8.0659174858`"}], RowBox[{"-", "4.8050063002`"}], RowBox[{"-", "4.9393658188`"}]}, { RowBox[{"-", "11.7452140078`"}], "1.9541656565999999`", RowBox[{"-", "4.3202915812`"}]}, { RowBox[{"-", "15.250088819999998`"}], RowBox[{"-", "1.7430832623999999`"}], RowBox[{"-", "4.2942133624`"}]}, { RowBox[{"-", "13.031550496`"}], RowBox[{"-", "3.4508286486`"}], RowBox[{"-", "6.158617033999999`"}]}, { RowBox[{"-", "15.9583581248`"}], RowBox[{"-", "1.33242690534`"}], RowBox[{"-", "8.547797615799999`"}]} }, 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.5709426076032114`*^9, 3.570943185771427*^9, 3.5709437244559727`*^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}], Cell[BoxData[ RowBox[{"{", RowBox[{"\<\"O\"\>", ",", "\<\"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\"\>", ",", "\<\"H\"\>", ",", "\<\"H\"\>"}], "}"}]], "Output", CellChangeTimes->{3.5709426076032114`*^9, 3.570943185787027*^9, 3.570943724471573*^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["51"], "Output", CellChangeTimes->{3.570942607618811*^9, 3.5709431858026266`*^9, 3.570943724487173*^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\"\>", ",", "\<\"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\"\>", ",", "\<\"Z\"\>", ",", "\<\"Z\"\>"}], "}"}]], "Output", CellChangeTimes->{3.570942607634411*^9, 3.570943185818227*^9, 3.5709437245027733`*^9}] }, Open ]], Cell[BoxData[ RowBox[{ RowBox[{"num", "=", 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}], Cell[BoxData[ RowBox[{ RowBox[{"um", "=", RowBox[{"Table", "[", RowBox[{ RowBox[{"{", RowBox[{ RowBox[{"un", "[", RowBox[{"[", "i", "]"}], "]"}], ",", RowBox[{"num", "[", 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}], Cell[CellGroupData[{ Cell[BoxData[ RowBox[{"us", "=", RowBox[{"Sort", "[", "um", "]"}]}]], "Input", CellChangeTimes->{{3.568807971988578*^9, 3.5688080897687845`*^9}, { 3.5688081769573374`*^9, 3.5688081865669546`*^9}, {3.568808274317109*^9, 3.5688082853151283`*^9}, {3.5688085365847692`*^9, 3.568808578330443*^9}, { 3.568808822704872*^9, 3.5688088761037655`*^9}, {3.56880890727262*^9, 3.568808937365073*^9}, {3.568809097608555*^9, 3.5688091594002633`*^9}, 3.5688092418308077`*^9, {3.5688092753552666`*^9, 3.568809302577315*^9}, { 3.5688096257786827`*^9, 3.568809703201618*^9}, {3.5688097456336927`*^9, 3.568809788268568*^9}, 3.568809850575077*^9, {3.568809946562046*^9, 3.5688099535664577`*^9}, {3.5688100003197403`*^9, 3.568810008556555*^9}, { 3.568810075371472*^9, 3.56881007981748*^9}, {3.568813431920168*^9, 3.568813533086345*^9}, {3.5688135960324554`*^9, 3.5688136045344706`*^9}, { 3.5688136407889347`*^9, 3.568813707494652*^9}, {3.568813812529636*^9, 3.5688138275524626`*^9}, {3.5688140611940727`*^9, 3.568814062738476*^9}, { 3.568814121113778*^9, 3.5688141965555105`*^9}, {3.568814326675339*^9, 3.568814331074547*^9}, 3.568814589473401*^9, {3.5688146762563534`*^9, 3.5688146945707855`*^9}}], Cell[BoxData[ RowBox[{"{", RowBox[{ RowBox[{"{", RowBox[{"\<\"C\"\>", ",", "2"}], "}"}], ",", RowBox[{"{", RowBox[{"\<\"C\"\>", ",", "3"}], "}"}], ",", RowBox[{"{", RowBox[{"\<\"C\"\>", ",", "4"}], "}"}], ",", RowBox[{"{", RowBox[{"\<\"C\"\>", ",", "5"}], "}"}], ",", RowBox[{"{", RowBox[{"\<\"C\"\>", ",", "6"}], "}"}], ",", RowBox[{"{", RowBox[{"\<\"C\"\>", ",", "7"}], "}"}], ",", RowBox[{"{", RowBox[{"\<\"C\"\>", ",", "8"}], "}"}], ",", RowBox[{"{", RowBox[{"\<\"C\"\>", ",", "9"}], "}"}], ",", RowBox[{"{", RowBox[{"\<\"C\"\>", ",", "10"}], "}"}], ",", RowBox[{"{", RowBox[{"\<\"C\"\>", ",", "11"}], "}"}], ",", RowBox[{"{", RowBox[{"\<\"C\"\>", ",", "12"}], "}"}], ",", RowBox[{"{", RowBox[{"\<\"C\"\>", ",", "13"}], "}"}], ",", RowBox[{"{", RowBox[{"\<\"C\"\>", ",", "14"}], "}"}], ",", RowBox[{"{", RowBox[{"\<\"C\"\>", ",", "15"}], "}"}], ",", RowBox[{"{", RowBox[{"\<\"C\"\>", ",", "16"}], "}"}], ",", RowBox[{"{", RowBox[{"\<\"C\"\>", ",", "17"}], "}"}], ",", RowBox[{"{", RowBox[{"\<\"C\"\>", ",", "18"}], "}"}], ",", RowBox[{"{", RowBox[{"\<\"C\"\>", ",", "19"}], "}"}], ",", RowBox[{"{", RowBox[{"\<\"C\"\>", ",", "20"}], "}"}], ",", RowBox[{"{", RowBox[{"\<\"C\"\>", ",", "21"}], "}"}], ",", RowBox[{"{", RowBox[{"\<\"O\"\>", ",", "1"}], "}"}], ",", RowBox[{"{", RowBox[{"\<\"Z\"\>", ",", "22"}], "}"}], ",", RowBox[{"{", RowBox[{"\<\"Z\"\>", ",", "23"}], "}"}], ",", RowBox[{"{", RowBox[{"\<\"Z\"\>", ",", "24"}], "}"}], ",", RowBox[{"{", RowBox[{"\<\"Z\"\>", ",", "25"}], "}"}], ",", RowBox[{"{", RowBox[{"\<\"Z\"\>", ",", "26"}], "}"}], ",", RowBox[{"{", RowBox[{"\<\"Z\"\>", ",", "27"}], "}"}], ",", RowBox[{"{", RowBox[{"\<\"Z\"\>", ",", "28"}], "}"}], ",", RowBox[{"{", RowBox[{"\<\"Z\"\>", ",", "29"}], "}"}], ",", RowBox[{"{", RowBox[{"\<\"Z\"\>", ",", "30"}], "}"}], ",", RowBox[{"{", RowBox[{"\<\"Z\"\>", ",", "31"}], "}"}], ",", RowBox[{"{", RowBox[{"\<\"Z\"\>", ",", "32"}], "}"}], ",", 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"}], "}"}]}], "}"}]], "Output", CellChangeTimes->{3.570942607634411*^9, 3.570943185833827*^9, 3.570943724518373*^9}] }, Open ]], Cell[CellGroupData[{ Cell[BoxData[ RowBox[{"num", "=", RowBox[{"Table", "[", RowBox[{ RowBox[{"us", "[", RowBox[{"[", RowBox[{"i", ",", "2"}], "]"}], "]"}], ",", RowBox[{"{", RowBox[{"i", ",", "1", ",", "n"}], "}"}]}], "]"}]}]], "Input", CellChangeTimes->{{3.56881016518083*^9, 3.5688102745058217`*^9}, { 3.5688103430679426`*^9, 3.5688103543155622`*^9}, {3.5688124958093233`*^9, 3.568812496386524*^9}, {3.5688126345871673`*^9, 3.568812635491969*^9}, { 3.568812673025635*^9, 3.5688126732128353`*^9}, {3.5688127492161684`*^9, 3.568812848541543*^9}, 3.5688129280080824`*^9, {3.568813062152718*^9, 3.5688131360032477`*^9}, 3.568813172678912*^9, 3.568821701869093*^9}], Cell[BoxData[ RowBox[{"{", RowBox[{ "2", ",", "3", ",", "4", ",", "5", ",", "6", ",", "7", ",", "8", ",", "9", ",", "10", ",", "11", ",", "12", ",", "13", ",", "14", ",", "15", ",", "16", ",", "17", ",", "18", ",", "19", ",", "20", ",", "21", ",", "1", ",", "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"}], "}"}]], "Output", CellChangeTimes->{3.570942607650011*^9, 3.5709431858494267`*^9, 3.5709437245339727`*^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.1", ",", RowBox[{"If", "[", RowBox[{ RowBox[{ RowBox[{"us", "[", RowBox[{"[", RowBox[{"i", ",", "1"}], "]"}], "]"}], "\[Equal]", "\"\\""}], ",", "0.24", ",", RowBox[{"If", "[", RowBox[{ RowBox[{ RowBox[{"us", "[", RowBox[{"[", RowBox[{"i", ",", "1"}], "]"}], "]"}], "\[Equal]", "\"\\""}], ",", "0.178", ",", RowBox[{"If", "[", RowBox[{ RowBox[{ RowBox[{"us", "[", RowBox[{"[", RowBox[{"i", ",", "1"}], "]"}], "]"}], "\[Equal]", "\"\\""}], ",", "0.5"}], "]"}]}], "]"}]}], "]"}]}], "]"}]}], "]"}], ",", RowBox[{"{", RowBox[{"i", ",", "1", ",", "n"}], "}"}]}], "]"}]}], "\[IndentingNewLine]", RowBox[{"u2", "=", RowBox[{"Table", "[", RowBox[{ RowBox[{"If", "[", RowBox[{ RowBox[{ RowBox[{"us", "[", RowBox[{"[", RowBox[{"i", ",", "1"}], "]"}], "]"}], "\[Equal]", "\"\\""}], ",", "0.2557", ",", RowBox[{"If", "[", RowBox[{ RowBox[{ RowBox[{"us", "[", RowBox[{"[", RowBox[{"i", ",", "1"}], "]"}], "]"}], "\[Equal]", "\"\\""}], ",", "0.6", ",", RowBox[{"If", "[", RowBox[{ RowBox[{ RowBox[{"us", "[", RowBox[{"[", RowBox[{"i", ",", "1"}], "]"}], "]"}], "\[Equal]", "\"\\""}], ",", "0.22522", ",", RowBox[{"If", "[", RowBox[{ RowBox[{ RowBox[{"us", "[", RowBox[{"[", RowBox[{"i", ",", "1"}], "]"}], "]"}], "\[Equal]", "\"\\""}], ",", "0.178", ",", RowBox[{"If", "[", RowBox[{ RowBox[{ RowBox[{"us", "[", RowBox[{"[", RowBox[{"i", ",", "1"}], "]"}], "]"}], "\[Equal]", "\"\\""}], ",", "0.5"}], "]"}]}], "]"}]}], "]"}]}], "]"}]}], "]"}], ",", RowBox[{"{", RowBox[{"i", ",", "1", ",", "n"}], "}"}]}], "]"}]}]}], "Input", CellChangeTimes->{{3.5679480369450207`*^9, 3.567948069112277*^9}, { 3.5679486805553513`*^9, 3.5679487948723516`*^9}, 3.567950206581231*^9, { 3.5681216077716007`*^9, 3.5681216839309344`*^9}, {3.568266380090639*^9, 3.5682664108850937`*^9}, {3.568266481350417*^9, 3.56826649971165*^9}, 3.5682795170433135`*^9, {3.5682795636873956`*^9, 3.5682797843809834`*^9}, { 3.568279837187076*^9, 3.5682798459854913`*^9}, {3.568279877201146*^9, 3.568279880711152*^9}, {3.5682799570264864`*^9, 3.5682799599124913`*^9}, { 3.5683770044498715`*^9, 3.5683771523693314`*^9}, 3.5688133425788107`*^9, { 3.568814931192001*^9, 3.5688150075073347`*^9}, {3.5688765350957685`*^9, 3.5688765981198792`*^9}, {3.568876634452343*^9, 3.5688766352167444`*^9}, { 3.568894358551657*^9, 3.5688944054453397`*^9}, {3.568894522929146*^9, 3.5688945259087515`*^9}, {3.5688946101644993`*^9, 3.5688946171221113`*^9}, {3.568894651067771*^9, 3.568894651956972*^9}, 3.5688946827982264`*^9, {3.568894734527918*^9, 3.568894735495119*^9}, { 3.5688947726699843`*^9, 3.568894773496786*^9}, {3.5688948078948464`*^9, 3.568895097914956*^9}, {3.5689558039020233`*^9, 3.568955804619624*^9}, { 3.5689559169086213`*^9, 3.5689559179070234`*^9}, {3.5689559496998787`*^9, 3.568955950589081*^9}, {3.568956090817727*^9, 3.568956118273775*^9}, 3.5689561556982408`*^9, {3.5690814230317364`*^9, 3.5690814238897376`*^9}, { 3.569232478412421*^9, 3.5692324795356236`*^9}, {3.5692325096124763`*^9, 3.5692325115780797`*^9}, {3.5692325933846235`*^9, 3.569232594289425*^9}, { 3.569235467676072*^9, 3.5692354683780737`*^9}, {3.5692358857568064`*^9, 3.5692358867552085`*^9}, {3.569236173312112*^9, 3.569236174060913*^9}, { 3.569344745239445*^9, 3.569344781213108*^9}, {3.5693896312339673`*^9, 3.5693896351495743`*^9}, {3.5693896840088596`*^9, 3.5693896981112843`*^9}, {3.5693897680462074`*^9, 3.5693897743798184`*^9}, 3.570595843597315*^9, 3.5705958765133724`*^9, {3.5706006955110383`*^9, 3.57060069660304*^9}, {3.570600739659116*^9, 3.5706007402207165`*^9}, { 3.5706007784563837`*^9, 3.5706008313872766`*^9}, {3.5706008641161346`*^9, 3.5706008892321787`*^9}, 3.5706010214580107`*^9, {3.5706011135917726`*^9, 3.570601115058175*^9}, {3.5706011509850388`*^9, 3.5706011750714808`*^9}, { 3.5706012352719865`*^9, 3.570601260746831*^9}, 3.570856110868636*^9, 3.570856144034294*^9, 3.5708561753903494`*^9, {3.5708562115824127`*^9, 3.570856236261656*^9}, 3.5708568877188005`*^9, 3.570856960992129*^9, { 3.5708570022854013`*^9, 3.570857003424204*^9}, 3.5708574863854513`*^9, 3.570857676003785*^9, {3.570857720697863*^9, 3.570857774736358*^9}, { 3.570857815015629*^9, 3.570857815265229*^9}, {3.5708578488052883`*^9, 3.5708579513754683`*^9}, {3.5708579844319267`*^9, 3.570858009937971*^9}, { 3.5708583084132957`*^9, 3.570858421435494*^9}}], 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.178`", ",", "0.1`", ",", "0.1`", ",", "0.1`", ",", "0.1`", ",", "0.1`", ",", "0.1`", ",", "0.1`", ",", "0.1`", ",", "0.1`", ",", "0.1`", ",", "0.1`", ",", "0.1`", ",", "0.1`", ",", "0.1`", ",", "0.1`", ",", "0.1`", ",", "0.1`", ",", "0.1`", ",", "0.1`", ",", "0.1`", ",", "0.1`", ",", "0.1`", ",", "0.1`", ",", "0.1`", ",", "0.1`", ",", "0.1`", ",", "0.1`", ",", "0.1`", ",", "0.1`", ",", "0.1`"}], "}"}]], "Output", CellChangeTimes->{3.5709426076656113`*^9, 3.5709431858650265`*^9, 3.570943724549573*^9}], Cell[BoxData[ RowBox[{"{", RowBox[{ "0.2557`", ",", "0.2557`", ",", "0.2557`", ",", "0.2557`", ",", "0.2557`", ",", "0.2557`", ",", "0.2557`", ",", "0.2557`", ",", "0.2557`", ",", "0.2557`", ",", "0.2557`", ",", "0.2557`", ",", "0.2557`", ",", "0.2557`", ",", "0.2557`", ",", "0.2557`", ",", "0.2557`", ",", "0.2557`", ",", "0.2557`", ",", "0.2557`", ",", "0.178`", ",", "0.6`", ",", "0.6`", ",", "0.6`", ",", "0.6`", ",", "0.6`", ",", "0.6`", ",", "0.6`", ",", "0.6`", ",", "0.6`", ",", "0.6`", ",", "0.6`", ",", "0.6`", ",", "0.6`", ",", "0.6`", ",", "0.6`", ",", "0.6`", ",", "0.6`", ",", "0.6`", ",", "0.6`", ",", "0.6`", ",", "0.6`", ",", "0.6`", ",", "0.6`", ",", "0.6`", ",", "0.6`", ",", "0.6`", ",", "0.6`", ",", "0.6`", ",", "0.6`", ",", "0.6`"}], "}"}]], "Output", CellChangeTimes->{3.5709426076656113`*^9, 3.5709431858650265`*^9, 3.570943724549573*^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\"\>", ",", "\<\"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\"\>", ",", "\<\"H\"\>", ",", "\<\"H\"\>"}], "}"}]], "Output", CellChangeTimes->{3.5709426076812115`*^9, 3.5709431858806267`*^9, 3.570943724565173*^9}] }, Open ]], Cell[CellGroupData[{ Cell[BoxData[ RowBox[{"cn", "=", RowBox[{"Table", "[", RowBox[{ RowBox[{"If", "[", RowBox[{ RowBox[{ RowBox[{"u", "[", RowBox[{"[", "i", "]"}], "]"}], "\[Equal]", "\"\\""}], ",", "6.0", ",", RowBox[{"If", "[", RowBox[{ RowBox[{ RowBox[{"u", "[", RowBox[{"[", "i", "]"}], "]"}], "\[Equal]", "\"\\""}], ",", "1.0", ",", RowBox[{"If", "[", RowBox[{ RowBox[{ RowBox[{"u", "[", RowBox[{"[", "i", "]"}], "]"}], "\[Equal]", "\"\\""}], ",", "7.0", ",", RowBox[{"If", "[", RowBox[{ RowBox[{ RowBox[{"u", "[", RowBox[{"[", "i", "]"}], "]"}], "\[Equal]", "\"\\""}], ",", "8.0", ",", RowBox[{"If", "[", RowBox[{ RowBox[{ RowBox[{"u", "[", RowBox[{"[", "i", "]"}], "]"}], "\[Equal]", "\"\\""}], ",", "17.0"}], "]"}]}], "]"}]}], "]"}]}], "]"}]}], "]"}], ",", RowBox[{"{", RowBox[{"i", ",", "1", ",", "n"}], "}"}]}], "]"}]}]], "Input", CellChangeTimes->{{3.5688224161787477`*^9, 3.5688224173799496`*^9}, { 3.5688224905908785`*^9, 3.568822500434496*^9}, 3.5692358293003073`*^9, 3.5692358676919746`*^9, {3.569344570581538*^9, 3.5693446110324097`*^9}}], Cell[BoxData[ RowBox[{"{", RowBox[{ "6.`", ",", "6.`", ",", "6.`", ",", "6.`", ",", "6.`", ",", "6.`", ",", "6.`", ",", "6.`", ",", "6.`", ",", "6.`", ",", "6.`", ",", "6.`", ",", "6.`", ",", "6.`", ",", "6.`", ",", "6.`", ",", "6.`", ",", "6.`", ",", "6.`", ",", "6.`", ",", "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.`", ",", "1.`", ",", "1.`"}], "}"}]], "Output", CellChangeTimes->{3.5709426076812115`*^9, 3.570943185896227*^9, 3.5709437245807734`*^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["21"], "Output", CellChangeTimes->{3.5709426076968117`*^9, 3.570943185911827*^9, 3.570943724596373*^9}], Cell[BoxData["30"], "Output", CellChangeTimes->{3.5709426076968117`*^9, 3.570943185911827*^9, 3.570943724596373*^9}] }, Open ]], Cell[CellGroupData[{ Cell[BoxData[ RowBox[{ RowBox[{"ChemicalData", "\[NoBreak]", "[", RowBox[{"\"\\"", ",", "\"\\""}], "]"}], "\[IndentingNewLine]"}]], "Input", CellChangeTimes->{{3.5708566311295495`*^9, 3.5708566338907547`*^9}, 3.5709425310382767`*^9}], Cell[BoxData["\<\"C20H30O\"\>"], "Output", CellChangeTimes->{3.5709426076968117`*^9, 3.5709431859274273`*^9, 3.5709437246119733`*^9}] }, Open ]], Cell[BoxData[{ RowBox[{ RowBox[{"DeleteFile", "[", " ", "\"\\"", "]"}], ";"}], "\[IndentingNewLine]", RowBox[{"For", "[", RowBox[{ RowBox[{"i", "=", "1"}], ",", RowBox[{"i", "<", RowBox[{"n", "+", "1"}]}], ",", RowBox[{"i", "++"}], ",", "\[IndentingNewLine]", RowBox[{ RowBox[{"{", RowBox[{ RowBox[{"u", "[", RowBox[{"[", "i", "]"}], "]"}], ",", RowBox[{"Extract", "[", RowBox[{"t1", ",", RowBox[{"{", "i", "}"}]}], "]"}]}], "}"}], ">>>", " ", "\"\\""}]}], "]"}]}], "Input", CellChangeTimes->{{3.567869377256353*^9, 3.5678694101568108`*^9}, { 3.5678695244894114`*^9, 3.56786953511303*^9}, 3.56786988243204*^9, 3.5678699252853155`*^9, {3.567870069179968*^9, 3.5678700766835814`*^9}, { 3.5678703216664114`*^9, 3.567870325738019*^9}, 3.5679271251072817`*^9, { 3.567942840466694*^9, 3.567942854381918*^9}, {3.567942932272855*^9, 3.567942950509287*^9}, 3.5679430681802936`*^9, {3.568278272060727*^9, 3.56827827391713*^9}, 3.5688732159559383`*^9, 3.568910867631465*^9, 3.5689997098549547`*^9, 3.5689998170427427`*^9, 3.5689998869620657`*^9, { 3.569059200815255*^9, 3.5690592031552596`*^9}, 3.5691460426137285`*^9, 3.569237204520723*^9, 3.569237465836782*^9, 3.56923802264856*^9, 3.5693403424181123`*^9, 3.569340450198702*^9, 3.569340738019207*^9, 3.569340852851009*^9, {3.5693411655067577`*^9, 3.5693411655067577`*^9}, 3.5693414976001415`*^9, {3.5693416978420925`*^9, 3.569341705314506*^9}, 3.569342614421703*^9, 3.5693435671777763`*^9, 3.569343662727944*^9, 3.5693437636289215`*^9, 3.5693440709750605`*^9, 3.5693442662562037`*^9, { 3.5702975520309644`*^9, 3.570297552764166*^9}, {3.5705591717487917`*^9, 3.5705591791432047`*^9}}], Cell[BoxData[ RowBox[{ RowBox[{"t", "=", RowBox[{"Table", "[", RowBox[{ RowBox[{"t1", "[", RowBox[{"[", RowBox[{"num", "[", RowBox[{"[", "i", "]"}], "]"}], "]"}], "]"}], ",", RowBox[{"{", RowBox[{"i", ",", "1", ",", "n"}], "}"}]}], "]"}]}], ";"}]], "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}}], Cell[BoxData[ RowBox[{ RowBox[{"Plot1", "=", RowBox[{"Table", "[", RowBox[{ RowBox[{"Graphics3D", "[", RowBox[{"{", RowBox[{ RowBox[{"If", "[", RowBox[{ RowBox[{ RowBox[{"u", "[", RowBox[{"[", "i", "]"}], "]"}], "\[Equal]", "\"\\""}], ",", RowBox[{"Lighter", "[", "Blue", "]"}], ",", 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[{"Lighter", "[", "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"}], "}"}]}], "]"}]}], ";"}]], "Input", CellChangeTimes->{{3.5679440895764875`*^9, 3.5679441000441055`*^9}, { 3.5679441319773617`*^9, 3.5679441523041973`*^9}, {3.567944240210352*^9, 3.5679442813476243`*^9}, {3.567944323966899*^9, 3.567944345931738*^9}, { 3.567944397567828*^9, 3.567944456941533*^9}, {3.567944491557994*^9, 3.5679445468444905`*^9}, {3.5679446505690727`*^9, 3.567944683875131*^9}, { 3.567944736244423*^9, 3.5679448177233667`*^9}, {3.567945549707852*^9, 3.5679455499730525`*^9}, {3.5679456039959474`*^9, 3.567945606195551*^9}, { 3.567945704460124*^9, 3.5679457164877453`*^9}, {3.5679457857362666`*^9, 3.5679458050023003`*^9}, {3.567946353670864*^9, 3.5679464127169676`*^9}, { 3.5679466013368993`*^9, 3.5679466311173515`*^9}, {3.5679467590999765`*^9, 3.567946915739851*^9}, {3.5679469466123056`*^9, 3.567946946815106*^9}, { 3.5679471385082426`*^9, 3.5679471497870626`*^9}, {3.5679483907224417`*^9, 3.5679484036080647`*^9}, {3.567948441937332*^9, 3.5679484421869326`*^9}, { 3.567948496740228*^9, 3.56794849772303*^9}, {3.567948847912445*^9, 3.5679488949933276`*^9}, {3.568011728877214*^9, 3.5680117308213253`*^9}, { 3.568011766325356*^9, 3.568011773436763*^9}, {3.5681173314452896`*^9, 3.5681173370612993`*^9}, {3.568117919800323*^9, 3.5681179678952074`*^9}, { 3.56811809459863*^9, 3.568118105409449*^9}, {3.5681181818963833`*^9, 3.5681182389144835`*^9}, {3.568118274888147*^9, 3.5681182883977704`*^9}, { 3.568118518513775*^9, 3.56811852739019*^9}, {3.5681188250543127`*^9, 3.568118862634779*^9}, {3.568118972396572*^9, 3.5681189862493963`*^9}, { 3.568119020694257*^9, 3.568119047136303*^9}, {3.5681190903015785`*^9, 3.568119136930061*^9}, {3.5681191671005135`*^9, 3.568119202808976*^9}, { 3.5681194788046613`*^9, 3.568119487603077*^9}, {3.5681195353235607`*^9, 3.5681195410331707`*^9}, 3.56811959201406*^9, {3.5681196426985493`*^9, 3.568119659702579*^9}, {3.568119726813897*^9, 3.56811974027672*^9}, { 3.5682659184078283`*^9, 3.5682659267694435`*^9}, {3.568265972477524*^9, 3.568266002725977*^9}, 3.568277802649102*^9, {3.568820898608082*^9, 3.568820922429324*^9}, 3.5688217528499823`*^9, 3.568821789307246*^9, { 3.569406212748887*^9, 3.569406252544557*^9}, {3.569492717066082*^9, 3.5694927471737347`*^9}, {3.5694931324008117`*^9, 3.5694931369404197`*^9}}], Cell[BoxData[ 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"}], "}"}]}], "]"}]}], ";"}]], "Input", CellChangeTimes->{{3.5679440895764875`*^9, 3.5679441000441055`*^9}, { 3.5679441319773617`*^9, 3.5679441523041973`*^9}, {3.567944240210352*^9, 3.5679442813476243`*^9}, {3.567944323966899*^9, 3.567944345931738*^9}, { 3.567944397567828*^9, 3.567944456941533*^9}, {3.567944491557994*^9, 3.5679445468444905`*^9}, {3.5679446505690727`*^9, 3.567944683875131*^9}, { 3.567944736244423*^9, 3.5679448177233667`*^9}, {3.567945549707852*^9, 3.5679455499730525`*^9}, {3.5679456039959474`*^9, 3.567945606195551*^9}, { 3.567945704460124*^9, 3.5679457164877453`*^9}, {3.5679457857362666`*^9, 3.5679458050023003`*^9}, {3.567946353670864*^9, 3.5679464127169676`*^9}, { 3.5679466013368993`*^9, 3.5679466311173515`*^9}, {3.5679467590999765`*^9, 3.567946915739851*^9}, {3.5679469466123056`*^9, 3.567946946815106*^9}, { 3.5679471385082426`*^9, 3.5679471497870626`*^9}, {3.5679483907224417`*^9, 3.5679484036080647`*^9}, {3.567948441937332*^9, 3.5679484421869326`*^9}, { 3.567948496740228*^9, 3.56794849772303*^9}, {3.567948847912445*^9, 3.5679488949933276`*^9}, {3.568011728877214*^9, 3.5680117308213253`*^9}, { 3.568011766325356*^9, 3.568011773436763*^9}, {3.5681173314452896`*^9, 3.5681173370612993`*^9}, {3.568117919800323*^9, 3.5681179678952074`*^9}, { 3.56811809459863*^9, 3.568118105409449*^9}, {3.5681181818963833`*^9, 3.5681182389144835`*^9}, {3.568118274888147*^9, 3.5681182883977704`*^9}, { 3.568118518513775*^9, 3.56811852739019*^9}, {3.5681188250543127`*^9, 3.568118862634779*^9}, {3.568118972396572*^9, 3.5681189862493963`*^9}, { 3.568119020694257*^9, 3.568119047136303*^9}, {3.5681190903015785`*^9, 3.568119136930061*^9}, {3.5681191671005135`*^9, 3.568119202808976*^9}, { 3.5681194788046613`*^9, 3.568119487603077*^9}, {3.5681195353235607`*^9, 3.5681195410331707`*^9}, 3.56811959201406*^9, {3.5681196426985493`*^9, 3.568119659702579*^9}, {3.568119726813897*^9, 3.56811974027672*^9}, { 3.5681199008322024`*^9, 3.568119920691037*^9}, {3.5681199536070952`*^9, 3.568119958521104*^9}, {3.568120000641178*^9, 3.568120067206495*^9}, { 3.5681211528280015`*^9, 3.5681211643408213`*^9}, 3.5681213201694956`*^9, { 3.568121503313817*^9, 3.568121508961027*^9}, {3.568266015439999*^9, 3.5682660461096525`*^9}, 3.568277806081108*^9, {3.568381589141924*^9, 3.568381589391525*^9}, 3.5688217602599955`*^9, {3.568821800305266*^9, 3.568821801397268*^9}, 3.5693901242572327`*^9, {3.570559203182847*^9, 3.5705592101248593`*^9}}], Cell[CellGroupData[{ Cell[BoxData[ RowBox[{"\[IndentingNewLine]", RowBox[{"ChemicalData", "\[NoBreak]", "[", RowBox[{"\"\\"", ",", "\"\\""}], "]"}]}]], "Input", CellChangeTimes->{{3.570856658569998*^9, 3.5708566598024*^9}, 3.5709425310382767`*^9}], Cell[BoxData[ GraphicsBox[{{ {GrayLevel[0], AbsoluteThickness[0.55], InsetBox[ StyleBox["\<\"O\"\>", StripOnInput->False, ScriptSizeMultipliers->0.8, ScriptMinSize->8, FontSize->Scaled[0.006189383406757125], FontWeight->Plain], {253.69000000000003`, 0.}], LineBox[{{259.01805455965354`, 3.0758887886234265`}, {296.995, 25.}}], {GrayLevel[0], InsetBox[ StyleBox["\<\"C\"\>", StripOnInput->False, ScriptSizeMultipliers->0.8, ScriptMinSize->8, FontSize->Scaled[0.006189383406757125], FontWeight->Plain], {340.3, 50.}], LineBox[{{296.995, 25.}, {335.499950847159, 47.228929019258175`}}]}}, {GrayLevel[0], AbsoluteThickness[0.55], InsetBox[ StyleBox["\<\"O\"\>", StripOnInput->False, ScriptSizeMultipliers->0.8, ScriptMinSize->8, FontSize->Scaled[0.006189383406757125], FontWeight->Plain], {253.69000000000003`, 0.}], LineBox[{{248.36214885456243`, 3.0762411158235237`}, { 226.84500000000003`, 15.5}}], {GrayLevel[0], InsetBox[ StyleBox["\<\"H\"\>", StripOnInput->False, ScriptSizeMultipliers->0.8, ScriptMinSize->8, FontSize->Scaled[0.006189383406757125], FontWeight->Plain], {200., 31.}], LineBox[{{226.84500000000003`, 15.5}, {204.7998658967906, 28.228611607366197`}}]}}, {GrayLevel[0], AbsoluteThickness[0.55], InsetBox[ StyleBox["\<\"C\"\>", StripOnInput->False, ScriptSizeMultipliers->0.8, ScriptMinSize->8, FontSize->Scaled[0.006189383406757125], FontWeight->Plain], {1206.32, 50.}], LineBox[{{1211.1199105991946`, 47.22868903048804}, {1249.62, 25.}}], {GrayLevel[0], InsetBox[ StyleBox["\<\"C\"\>", StripOnInput->False, ScriptSizeMultipliers->0.8, ScriptMinSize->8, FontSize->Scaled[0.006189383406757125], FontWeight->Plain], {1292.92, 0.}], LineBox[{{1249.62, 25.}, {1288.1200894008055`, 2.7713109695119447`}}]}}, {GrayLevel[0], AbsoluteThickness[0.55], InsetBox[ StyleBox["\<\"C\"\>", StripOnInput->False, ScriptSizeMultipliers->0.8, ScriptMinSize->8, FontSize->Scaled[0.006189383406757125], FontWeight->Plain], {1206.32, 50.}], LineBox[{{1201.5200894008053`, 47.22868903048804}, {1163.02, 25.}}], {GrayLevel[0], InsetBox[ StyleBox["\<\"C\"\>", StripOnInput->False, ScriptSizeMultipliers->0.8, ScriptMinSize->8, FontSize->Scaled[0.006189383406757125], FontWeight->Plain], {1119.72, 0.}], LineBox[{{1163.02, 25.}, {1124.5199105991946`, 2.7713109695119558`}}]}}, {GrayLevel[0], AbsoluteThickness[0.55], InsetBox[ StyleBox["\<\"C\"\>", StripOnInput->False, ScriptSizeMultipliers->0.8, ScriptMinSize->8, FontSize->Scaled[0.006189383406757125], FontWeight->Plain], {1206.32, 50.}], LineBox[{{1209.0913109695118`, 54.7999105991947}, {1231.32, 93.30000000000001}}], {GrayLevel[0], InsetBox[ StyleBox["\<\"C\"\>", StripOnInput->False, ScriptSizeMultipliers->0.8, ScriptMinSize->8, FontSize->Scaled[0.006189383406757125], FontWeight->Plain], {1256.32, 136.60000000000002`}], LineBox[{{1231.32, 93.30000000000001}, {1253.548689030488, 131.80008940080532`}}]}}, {GrayLevel[0], AbsoluteThickness[0.55], InsetBox[ StyleBox["\<\"C\"\>", StripOnInput->False, ScriptSizeMultipliers->0.8, ScriptMinSize->8, FontSize->Scaled[0.006189383406757125], FontWeight->Plain], {1206.32, 50.}], LineBox[{{1203.548689030488, 54.7999105991947}, {1181.32, 93.30000000000001}}], {GrayLevel[0], InsetBox[ StyleBox["\<\"C\"\>", StripOnInput->False, ScriptSizeMultipliers->0.8, ScriptMinSize->8, FontSize->Scaled[0.006189383406757125], FontWeight->Plain], {1156.32, 136.60000000000002`}], LineBox[{{1181.32, 93.30000000000001}, {1159.0913109695118`, 131.80008940080532`}}]}}, {GrayLevel[0], AbsoluteThickness[0.55], InsetBox[ StyleBox["\<\"C\"\>", StripOnInput->False, ScriptSizeMultipliers->0.8, ScriptMinSize->8, FontSize->Scaled[0.006189383406757125], FontWeight->Plain], {1292.92, 0.}], LineBox[{{1292.92, -5.5424999999999045`}, {1292.92, -50.}}], {GrayLevel[0], InsetBox[ StyleBox["\<\"C\"\>", StripOnInput->False, ScriptSizeMultipliers->0.8, ScriptMinSize->8, FontSize->Scaled[0.006189383406757125], FontWeight->Plain], {1292.92, -100.}], LineBox[{{1292.92, -50.}, {1292.92, -94.4575000000001}}]}}, {GrayLevel[0], AbsoluteThickness[0.55], InsetBox[ StyleBox["\<\"C\"\>", StripOnInput->False, ScriptSizeMultipliers->0.8, ScriptMinSize->8, FontSize->Scaled[0.006189383406757125], FontWeight->Plain], {1292.92, 0.}], LineBox[{{1298.3782438477342`, -0.9627462535227007}, {1323.45, -5.385}}], {GrayLevel[0], InsetBox[ StyleBox["\<\"H\"\>", StripOnInput->False, ScriptSizeMultipliers->0.8, ScriptMinSize->8, FontSize->Scaled[0.006189383406757125], FontWeight->Plain], {1353.98, -10.77}], LineBox[{{1323.45, -5.385}, { 1348.5217561522659`, -9.807253746477299}}]}}, {GrayLevel[0], AbsoluteThickness[0.55], InsetBox[ StyleBox["\<\"C\"\>", StripOnInput->False, ScriptSizeMultipliers->0.8, ScriptMinSize->8, FontSize->Scaled[0.006189383406757125], FontWeight->Plain], {1292.92, 0.}], LineBox[{{1294.8160487556408`, 5.208099976597248}, {1303.525, 29.13}}], {GrayLevel[0], InsetBox[ StyleBox["\<\"H\"\>", StripOnInput->False, ScriptSizeMultipliers->0.8, ScriptMinSize->8, FontSize->Scaled[0.006189383406757125], FontWeight->Plain], {1314.1299999999999`, 58.26}], LineBox[{{1303.525, 29.13}, {1312.233951244359, 53.05190002340274}}]}}, {GrayLevel[0], AbsoluteThickness[0.55], InsetBox[ StyleBox["\<\"C\"\>", StripOnInput->False, ScriptSizeMultipliers->0.8, ScriptMinSize->8, FontSize->Scaled[0.006189383406757125], FontWeight->Plain], {1292.92, -100.}], LineBox[{{1288.1200894008055`, -102.77131096951194`}, {1249.62, -125.}}], {GrayLevel[0], InsetBox[ StyleBox["\<\"C\"\>", StripOnInput->False, ScriptSizeMultipliers->0.8, ScriptMinSize->8, FontSize->Scaled[0.006189383406757125], FontWeight->Plain], {1206.32, -150.}], LineBox[{{1249.62, -125.}, { 1211.1199105991946`, -147.22868903048806`}}]}}, {GrayLevel[0], AbsoluteThickness[0.55], InsetBox[ StyleBox["\<\"C\"\>", StripOnInput->False, ScriptSizeMultipliers->0.8, ScriptMinSize->8, FontSize->Scaled[0.006189383406757125], FontWeight->Plain], {1292.92, -100.}], LineBox[{{1294.8160487556408`, -105.20809997659725`}, { 1303.525, -129.13}}], {GrayLevel[0], InsetBox[ StyleBox["\<\"H\"\>", StripOnInput->False, ScriptSizeMultipliers->0.8, ScriptMinSize->8, FontSize->Scaled[0.006189383406757125], FontWeight->Plain], {1314.1299999999999`, -158.26}], LineBox[{{1303.525, -129.13}, { 1312.233951244359, -153.05190002340274`}}]}}, {GrayLevel[0], AbsoluteThickness[0.55], InsetBox[ StyleBox["\<\"C\"\>", StripOnInput->False, ScriptSizeMultipliers->0.8, ScriptMinSize->8, FontSize->Scaled[0.006189383406757125], FontWeight->Plain], {1292.92, -100.}], LineBox[{{1298.3782438477342`, -99.0372537464773}, { 1323.45, -94.61500000000001}}], {GrayLevel[0], InsetBox[ StyleBox["\<\"H\"\>", StripOnInput->False, ScriptSizeMultipliers->0.8, ScriptMinSize->8, FontSize->Scaled[0.006189383406757125], FontWeight->Plain], {1353.98, -89.23}], LineBox[{{1323.45, -94.61500000000001}, { 1348.5217561522659`, -90.1927462535227}}]}}, {GrayLevel[0], AbsoluteThickness[0.55], InsetBox[ StyleBox["\<\"C\"\>", StripOnInput->False, ScriptSizeMultipliers->0.8, ScriptMinSize->8, FontSize->Scaled[0.006189383406757125], FontWeight->Plain], {1119.72, 0.}], LineBox[{{{1124.72, -5.5424999999999045`}, {1124.72, -50.}}, {{ 1114.72, -5.5424999999999045`}, {1114.72, -50.}}}], {GrayLevel[0], InsetBox[ StyleBox["\<\"C\"\>", StripOnInput->False, ScriptSizeMultipliers->0.8, ScriptMinSize->8, FontSize->Scaled[0.006189383406757125], FontWeight->Plain], {1119.72, -100.}], LineBox[{{{1124.72, -50.}, {1124.72, -94.4575000000001}}, {{ 1114.72, -50.}, {1114.72, -94.4575000000001}}}]}}, {GrayLevel[0], AbsoluteThickness[0.55], InsetBox[ StyleBox["\<\"C\"\>", StripOnInput->False, ScriptSizeMultipliers->0.8, ScriptMinSize->8, FontSize->Scaled[0.006189383406757125], FontWeight->Plain], {1119.72, 0.}], LineBox[{{1114.9200894008054`, 2.7713109695119558`}, {1076.42, 25.}}], {GrayLevel[0], InsetBox[ StyleBox["\<\"C\"\>", StripOnInput->False, ScriptSizeMultipliers->0.8, ScriptMinSize->8, FontSize->Scaled[0.006189383406757125], FontWeight->Plain], {1033.1200000000001`, 50.}], LineBox[{{1076.42, 25.}, {1037.9199105991947`, 47.22868903048804}}]}}, {GrayLevel[0], AbsoluteThickness[0.55], InsetBox[ StyleBox["\<\"C\"\>", StripOnInput->False, ScriptSizeMultipliers->0.8, ScriptMinSize->8, FontSize->Scaled[0.006189383406757125], FontWeight->Plain], {1206.32, -150.}], LineBox[{{1201.5200894008053`, -147.22868903048806`}, {1163.02, -125.}}], {GrayLevel[0], InsetBox[ StyleBox["\<\"C\"\>", StripOnInput->False, ScriptSizeMultipliers->0.8, ScriptMinSize->8, FontSize->Scaled[0.006189383406757125], FontWeight->Plain], {1119.72, -100.}], LineBox[{{1163.02, -125.}, { 1124.5199105991946`, -102.77131096951196`}}]}}, {GrayLevel[0], AbsoluteThickness[0.55], InsetBox[ StyleBox["\<\"C\"\>", StripOnInput->False, ScriptSizeMultipliers->0.8, ScriptMinSize->8, FontSize->Scaled[0.006189383406757125], FontWeight->Plain], {1206.32, -150.}], LineBox[{{1202.7572888934917`, -154.24575032492038`}, { 1186.395, -173.745}}], {GrayLevel[0], InsetBox[ StyleBox["\<\"H\"\>", StripOnInput->False, ScriptSizeMultipliers->0.8, ScriptMinSize->8, FontSize->Scaled[0.006189383406757125], FontWeight->Plain], {1166.47, -197.49}], LineBox[{{1186.395, -173.745}, { 1170.0327111065083`, -193.24424967507963`}}]}}, {GrayLevel[0], AbsoluteThickness[0.55], InsetBox[ StyleBox["\<\"C\"\>", StripOnInput->False, ScriptSizeMultipliers->0.8, ScriptMinSize->8, FontSize->Scaled[0.006189383406757125], FontWeight->Plain], {1206.32, -150.}], LineBox[{{1209.8827111065082`, -154.24575032492038`}, { 1226.245, -173.745}}], {GrayLevel[0], InsetBox[ StyleBox["\<\"H\"\>", StripOnInput->False, ScriptSizeMultipliers->0.8, ScriptMinSize->8, FontSize->Scaled[0.006189383406757125], FontWeight->Plain], {1246.17, -197.49}], LineBox[{{1226.245, -173.745}, { 1242.6072888934918`, -193.24424967507963`}}]}}, {GrayLevel[0], AbsoluteThickness[0.55], InsetBox[ StyleBox["\<\"C\"\>", StripOnInput->False, ScriptSizeMultipliers->0.8, ScriptMinSize->8, FontSize->Scaled[0.006189383406757125], FontWeight->Plain], {1119.72, -100.}], LineBox[{{1114.9200894008054`, -102.77131096951196`}, {1076.42, -125.}}], {GrayLevel[0], InsetBox[ StyleBox["\<\"C\"\>", StripOnInput->False, ScriptSizeMultipliers->0.8, ScriptMinSize->8, FontSize->Scaled[0.006189383406757125], FontWeight->Plain], {1033.1200000000001`, -150.}], LineBox[{{1076.42, -125.}, { 1037.9199105991947`, -147.22868903048806`}}]}}, {GrayLevel[0], AbsoluteThickness[0.55], InsetBox[ StyleBox["\<\"C\"\>", StripOnInput->False, ScriptSizeMultipliers->0.8, ScriptMinSize->8, FontSize->Scaled[0.006189383406757125], FontWeight->Plain], {1256.32, 136.60000000000002`}], LineBox[{{1251.5201341032093`, 139.37138839263383`}, {1229.475, 152.10000000000002`}}], {GrayLevel[0], InsetBox[ StyleBox["\<\"H\"\>", StripOnInput->False, ScriptSizeMultipliers->0.8, ScriptMinSize->8, FontSize->Scaled[0.006189383406757125], FontWeight->Plain], {1202.63, 167.6}], LineBox[{{1229.475, 152.10000000000002`}, {1207.4298658967907`, 164.82861160736618`}}]}}, {GrayLevel[0], AbsoluteThickness[0.55], InsetBox[ StyleBox["\<\"C\"\>", StripOnInput->False, ScriptSizeMultipliers->0.8, ScriptMinSize->8, FontSize->Scaled[0.006189383406757125], FontWeight->Plain], {1256.32, 136.60000000000002`}], LineBox[{{1259.0910013130706`, 141.40008937135133`}, { 1271.8200000000002`, 163.45000000000002`}}], {GrayLevel[0], InsetBox[ StyleBox["\<\"H\"\>", StripOnInput->False, ScriptSizeMultipliers->0.8, ScriptMinSize->8, FontSize->Scaled[0.006189383406757125], FontWeight->Plain], {1287.3200000000002`, 190.3}], LineBox[{{1271.8200000000002`, 163.45000000000002`}, { 1284.5489986869295`, 185.49991062864868`}}]}}, {GrayLevel[0], AbsoluteThickness[0.55], InsetBox[ StyleBox["\<\"C\"\>", StripOnInput->False, ScriptSizeMultipliers->0.8, ScriptMinSize->8, FontSize->Scaled[0.006189383406757125], FontWeight->Plain], {1256.32, 136.60000000000002`}], LineBox[{{1261.1200893713512`, 133.82899868692942`}, {1283.17, 121.10000000000002`}}], {GrayLevel[0], InsetBox[ StyleBox["\<\"H\"\>", StripOnInput->False, ScriptSizeMultipliers->0.8, ScriptMinSize->8, FontSize->Scaled[0.006189383406757125], FontWeight->Plain], {1310.02, 105.60000000000001`}], LineBox[{{1283.17, 121.10000000000002`}, {1305.2199106286487`, 108.37100131307062`}}]}}, {GrayLevel[0], AbsoluteThickness[0.55], InsetBox[ StyleBox["\<\"C\"\>", StripOnInput->False, ScriptSizeMultipliers->0.8, ScriptMinSize->8, FontSize->Scaled[0.006189383406757125], FontWeight->Plain], {1156.32, 136.60000000000002`}], LineBox[{{1151.5201341032093`, 133.8286116073662}, {1129.475, 121.10000000000002`}}], {GrayLevel[0], InsetBox[ StyleBox["\<\"H\"\>", StripOnInput->False, ScriptSizeMultipliers->0.8, ScriptMinSize->8, FontSize->Scaled[0.006189383406757125], FontWeight->Plain], {1102.63, 105.60000000000001`}], LineBox[{{1129.475, 121.10000000000002`}, {1107.4298658967907`, 108.37138839263383`}}]}}, {GrayLevel[0], AbsoluteThickness[0.55], InsetBox[ StyleBox["\<\"C\"\>", StripOnInput->False, ScriptSizeMultipliers->0.8, ScriptMinSize->8, FontSize->Scaled[0.006189383406757125], FontWeight->Plain], {1156.32, 136.60000000000002`}], LineBox[{{1153.5489986869293`, 141.40008937135136`}, {1140.82, 163.45000000000002`}}], {GrayLevel[0], InsetBox[ StyleBox["\<\"H\"\>", StripOnInput->False, ScriptSizeMultipliers->0.8, ScriptMinSize->8, FontSize->Scaled[0.006189383406757125], FontWeight->Plain], {1125.32, 190.3}], LineBox[{{1140.82, 163.45000000000002`}, {1128.0910013130706`, 185.49991062864868`}}]}}, {GrayLevel[0], AbsoluteThickness[0.55], InsetBox[ StyleBox["\<\"C\"\>", StripOnInput->False, ScriptSizeMultipliers->0.8, ScriptMinSize->8, FontSize->Scaled[0.006189383406757125], FontWeight->Plain], {1156.32, 136.60000000000002`}], LineBox[{{1161.1200893713512`, 139.37100131307062`}, {1183.17, 152.10000000000002`}}], {GrayLevel[0], InsetBox[ StyleBox["\<\"H\"\>", StripOnInput->False, ScriptSizeMultipliers->0.8, ScriptMinSize->8, FontSize->Scaled[0.006189383406757125], FontWeight->Plain], {1210.02, 167.6}], LineBox[{{1183.17, 152.10000000000002`}, {1205.2199106286487`, 164.8289986869294}}]}}, {GrayLevel[0], AbsoluteThickness[0.55], InsetBox[ StyleBox["\<\"C\"\>", StripOnInput->False, ScriptSizeMultipliers->0.8, ScriptMinSize->8, FontSize->Scaled[0.006189383406757125], FontWeight->Plain], {1033.1200000000001`, 50.}], LineBox[{{{1030.8199508471591`, 42.898429019258174`}, {992.315, 20.669499999999992`}}, {{1025.8199508471591`, 51.55942901925819}, { 987.315, 29.330500000000008`}}}], {GrayLevel[0], InsetBox[ StyleBox["\<\"C\"\>", StripOnInput->False, ScriptSizeMultipliers->0.8, ScriptMinSize->8, FontSize->Scaled[0.006189383406757125], FontWeight->Plain], {946.51, 0.}], LineBox[{{{992.315, 20.669499999999992`}, { 953.810049152841, -1.5594290192581859`}}, {{987.315, 29.330500000000008`}, {948.810049152841, 7.101570980741828}}}]}}, {GrayLevel[0], AbsoluteThickness[0.55], InsetBox[ StyleBox["\<\"C\"\>", StripOnInput->False, ScriptSizeMultipliers->0.8, ScriptMinSize->8, FontSize->Scaled[0.006189383406757125], FontWeight->Plain], {1033.1200000000001`, 50.}], LineBox[{{1033.1200000000001`, 55.542499999999905`}, { 1033.1200000000001`, 81.}}], {GrayLevel[0], InsetBox[ StyleBox["\<\"H\"\>", StripOnInput->False, ScriptSizeMultipliers->0.8, ScriptMinSize->8, FontSize->Scaled[0.006189383406757125], FontWeight->Plain], {1033.1200000000001`, 112.00000000000001`}], LineBox[{{1033.1200000000001`, 81.}, {1033.1200000000001`, 106.45750000000011`}}]}}, {GrayLevel[0], AbsoluteThickness[0.55], InsetBox[ StyleBox["\<\"C\"\>", StripOnInput->False, ScriptSizeMultipliers->0.8, ScriptMinSize->8, FontSize->Scaled[0.006189383406757125], FontWeight->Plain], {1033.1200000000001`, -150.}], LineBox[{{1035.8913883926339`, -154.79986589679064`}, { 1048.62, -176.84500000000003`}}], {GrayLevel[0], InsetBox[ StyleBox["\<\"H\"\>", StripOnInput->False, ScriptSizeMultipliers->0.8, ScriptMinSize->8, FontSize->Scaled[0.006189383406757125], FontWeight->Plain], {1064.12, -203.69000000000003`}], LineBox[{{1048.62, -176.84500000000003`}, { 1061.3486116073661`, -198.89013410320942`}}]}}, {GrayLevel[0], AbsoluteThickness[0.55], InsetBox[ StyleBox["\<\"C\"\>", StripOnInput->False, ScriptSizeMultipliers->0.8, ScriptMinSize->8, FontSize->Scaled[0.006189383406757125], FontWeight->Plain], {1033.1200000000001`, -150.}], LineBox[{{1028.3199106286488`, -152.7710013130706}, {1006.27, -165.5}}], {GrayLevel[0], InsetBox[ StyleBox["\<\"H\"\>", StripOnInput->False, ScriptSizeMultipliers->0.8, ScriptMinSize->8, FontSize->Scaled[0.006189383406757125], FontWeight->Plain], {979.42, -181.}], LineBox[{{1006.27, -165.5}, {984.2200893713513, -178.2289986869294}}]}}, {GrayLevel[0], AbsoluteThickness[0.55], InsetBox[ StyleBox["\<\"C\"\>", StripOnInput->False, ScriptSizeMultipliers->0.8, ScriptMinSize->8, FontSize->Scaled[0.006189383406757125], FontWeight->Plain], {1033.1200000000001`, -150.}], LineBox[{{1030.3486116073664`, -145.2001341032094}, { 1017.6200000000001`, -123.155}}], {GrayLevel[0], InsetBox[ StyleBox["\<\"H\"\>", StripOnInput->False, ScriptSizeMultipliers->0.8, ScriptMinSize->8, FontSize->Scaled[0.006189383406757125], FontWeight->Plain], {1002.12, -96.31}], LineBox[{{1017.6200000000001`, -123.155}, { 1004.8913883926339`, -101.10986589679061`}}]}}, {GrayLevel[0], AbsoluteThickness[0.55], InsetBox[ StyleBox["\<\"C\"\>", StripOnInput->False, ScriptSizeMultipliers->0.8, ScriptMinSize->8, FontSize->Scaled[0.006189383406757125], FontWeight->Plain], {946.51, 0.}], LineBox[{{941.7100894008053, 2.7713109695119558`}, {903.21, 25.}}], {GrayLevel[0], InsetBox[ StyleBox["\<\"C\"\>", StripOnInput->False, ScriptSizeMultipliers->0.8, ScriptMinSize->8, FontSize->Scaled[0.006189383406757125], FontWeight->Plain], {859.91, 50.}], LineBox[{{903.21, 25.}, {864.7099105991947, 47.22868903048805}}]}}, {GrayLevel[0], AbsoluteThickness[0.55], InsetBox[ StyleBox["\<\"C\"\>", StripOnInput->False, ScriptSizeMultipliers->0.8, ScriptMinSize->8, FontSize->Scaled[0.006189383406757125], FontWeight->Plain], {946.51, 0.}], LineBox[{{946.51, -5.5424999999999045`}, {946.51, -31.}}], {GrayLevel[0], InsetBox[ StyleBox["\<\"H\"\>", StripOnInput->False, ScriptSizeMultipliers->0.8, ScriptMinSize->8, FontSize->Scaled[0.006189383406757125], FontWeight->Plain], {946.51, -62.}], LineBox[{{946.51, -31.}, {946.51, -56.457500000000095`}}]}}, {GrayLevel[0], AbsoluteThickness[0.55], InsetBox[ StyleBox["\<\"C\"\>", StripOnInput->False, ScriptSizeMultipliers->0.8, ScriptMinSize->8, FontSize->Scaled[0.006189383406757125], FontWeight->Plain], {859.91, 50.}], LineBox[{{859.91, 55.542499999999905`}, {859.91, 100.}}], {GrayLevel[0], InsetBox[ StyleBox["\<\"C\"\>", StripOnInput->False, ScriptSizeMultipliers->0.8, ScriptMinSize->8, FontSize->Scaled[0.006189383406757125], FontWeight->Plain], {859.91, 150.}], LineBox[{{859.91, 100.}, {859.91, 144.4575000000001}}]}}, {GrayLevel[0], AbsoluteThickness[0.55], InsetBox[ StyleBox["\<\"C\"\>", StripOnInput->False, ScriptSizeMultipliers->0.8, ScriptMinSize->8, FontSize->Scaled[0.006189383406757125], FontWeight->Plain], {859.91, 50.}], LineBox[{{{857.6100894008052, 42.89868903048804}, {819.11, 20.670000000000005`}}, {{852.6100894008052, 51.55868903048804}, {814.11, 29.329999999999995`}}}], {GrayLevel[0], InsetBox[ StyleBox["\<\"C\"\>", StripOnInput->False, ScriptSizeMultipliers->0.8, ScriptMinSize->8, FontSize->Scaled[0.006189383406757125], FontWeight->Plain], {773.3100000000001, 0.}], LineBox[{{{819.11, 20.670000000000005`}, { 780.6099105991948, -1.5586890304880399`}}, {{814.11, 29.329999999999995`}, {775.6099105991948, 7.101310969511951}}}]}}, {GrayLevel[0], AbsoluteThickness[0.55], InsetBox[ StyleBox["\<\"C\"\>", StripOnInput->False, ScriptSizeMultipliers->0.8, ScriptMinSize->8, FontSize->Scaled[0.006189383406757125], FontWeight->Plain], {859.91, 150.}], LineBox[{{865.4524999999999, 150.}, {890.91, 150.}}], {GrayLevel[0], InsetBox[ StyleBox["\<\"H\"\>", StripOnInput->False, ScriptSizeMultipliers->0.8, ScriptMinSize->8, FontSize->Scaled[0.006189383406757125], FontWeight->Plain], {921.91, 150.}], LineBox[{{890.91, 150.}, {916.3675000000001, 150.}}]}}, {GrayLevel[0], AbsoluteThickness[0.55], InsetBox[ StyleBox["\<\"C\"\>", StripOnInput->False, ScriptSizeMultipliers->0.8, ScriptMinSize->8, FontSize->Scaled[0.006189383406757125], FontWeight->Plain], {859.91, 150.}], LineBox[{{859.91, 155.5424999999999}, {859.91, 181.}}], {GrayLevel[0], InsetBox[ StyleBox["\<\"H\"\>", StripOnInput->False, ScriptSizeMultipliers->0.8, ScriptMinSize->8, FontSize->Scaled[0.006189383406757125], FontWeight->Plain], {859.91, 212.}], LineBox[{{859.91, 181.}, {859.91, 206.4575000000001}}]}}, {GrayLevel[0], AbsoluteThickness[0.55], InsetBox[ StyleBox["\<\"C\"\>", StripOnInput->False, ScriptSizeMultipliers->0.8, ScriptMinSize->8, FontSize->Scaled[0.006189383406757125], FontWeight->Plain], {859.91, 150.}], LineBox[{{854.3675000000001, 150.}, {828.91, 150.}}], {GrayLevel[0], InsetBox[ StyleBox["\<\"H\"\>", StripOnInput->False, ScriptSizeMultipliers->0.8, ScriptMinSize->8, FontSize->Scaled[0.006189383406757125], FontWeight->Plain], {797.91, 150.}], LineBox[{{828.91, 150.}, {803.4524999999999, 150.}}]}}, {GrayLevel[0], AbsoluteThickness[0.55], InsetBox[ StyleBox["\<\"C\"\>", StripOnInput->False, ScriptSizeMultipliers->0.8, ScriptMinSize->8, FontSize->Scaled[0.006189383406757125], FontWeight->Plain], {773.3100000000001, 0.}], LineBox[{{768.5100894008053, 2.771310969511951}, {730.01, 25.}}], {GrayLevel[0], InsetBox[ StyleBox["\<\"C\"\>", StripOnInput->False, ScriptSizeMultipliers->0.8, ScriptMinSize->8, FontSize->Scaled[0.006189383406757125], FontWeight->Plain], {686.7099999999999, 50.}], LineBox[{{730.01, 25.}, {691.5099105991947, 47.22868903048805}}]}}, {GrayLevel[0], AbsoluteThickness[0.55], InsetBox[ StyleBox["\<\"C\"\>", StripOnInput->False, ScriptSizeMultipliers->0.8, ScriptMinSize->8, FontSize->Scaled[0.006189383406757125], FontWeight->Plain], {773.3100000000001, 0.}], LineBox[{{773.3100000000001, -5.5424999999999045`}, { 773.3100000000001, -31.}}], {GrayLevel[0], InsetBox[ StyleBox["\<\"H\"\>", StripOnInput->False, ScriptSizeMultipliers->0.8, ScriptMinSize->8, FontSize->Scaled[0.006189383406757125], FontWeight->Plain], {773.3100000000001, -62.}], LineBox[{{773.3100000000001, -31.}, { 773.3100000000001, -56.457500000000095`}}]}}, {GrayLevel[0], AbsoluteThickness[0.55], InsetBox[ StyleBox["\<\"C\"\>", StripOnInput->False, ScriptSizeMultipliers->0.8, ScriptMinSize->8, FontSize->Scaled[0.006189383406757125], FontWeight->Plain], {686.7099999999999, 50.}], LineBox[{{{684.4099508471589, 42.89842901925818}, {645.905, 20.669500000000006`}}, {{679.4099508471589, 51.55942901925817}, { 640.905, 29.330499999999994`}}}], {GrayLevel[0], InsetBox[ StyleBox["\<\"C\"\>", StripOnInput->False, ScriptSizeMultipliers->0.8, ScriptMinSize->8, FontSize->Scaled[0.006189383406757125], FontWeight->Plain], {600.1, 0.}], LineBox[{{{645.905, 20.669500000000006`}, { 607.400049152841, -1.5594290192581686`}}, {{640.905, 29.330499999999994`}, {602.400049152841, 7.101570980741823}}}]}}, {GrayLevel[0], AbsoluteThickness[0.55], InsetBox[ StyleBox["\<\"C\"\>", StripOnInput->False, ScriptSizeMultipliers->0.8, ScriptMinSize->8, FontSize->Scaled[0.006189383406757125], FontWeight->Plain], {686.7099999999999, 50.}], LineBox[{{686.7099999999999, 55.542499999999905`}, {686.7099999999999, 81.}}], {GrayLevel[0], InsetBox[ StyleBox["\<\"H\"\>", StripOnInput->False, ScriptSizeMultipliers->0.8, ScriptMinSize->8, FontSize->Scaled[0.006189383406757125], FontWeight->Plain], {686.7099999999999, 112.00000000000001`}], LineBox[{{686.7099999999999, 81.}, {686.7099999999999, 106.45750000000011`}}]}}, {GrayLevel[0], AbsoluteThickness[0.55], InsetBox[ StyleBox["\<\"C\"\>", StripOnInput->False, ScriptSizeMultipliers->0.8, ScriptMinSize->8, FontSize->Scaled[0.006189383406757125], FontWeight->Plain], {600.1, 0.}], LineBox[{{595.3000894008053, 2.771310969511951}, {556.8, 25.}}], {GrayLevel[0], InsetBox[ StyleBox["\<\"C\"\>", StripOnInput->False, ScriptSizeMultipliers->0.8, ScriptMinSize->8, FontSize->Scaled[0.006189383406757125], FontWeight->Plain], {513.5, 50.}], LineBox[{{556.8, 25.}, {518.2999105991947, 47.22868903048804}}]}}, {GrayLevel[0], AbsoluteThickness[0.55], InsetBox[ StyleBox["\<\"C\"\>", StripOnInput->False, ScriptSizeMultipliers->0.8, ScriptMinSize->8, FontSize->Scaled[0.006189383406757125], FontWeight->Plain], {600.1, 0.}], LineBox[{{600.1, -5.5424999999999045`}, {600.1, -31.}}], {GrayLevel[0], InsetBox[ StyleBox["\<\"H\"\>", StripOnInput->False, ScriptSizeMultipliers->0.8, ScriptMinSize->8, FontSize->Scaled[0.006189383406757125], FontWeight->Plain], {600.1, -62.}], LineBox[{{600.1, -31.}, {600.1, -56.457500000000095`}}]}}, {GrayLevel[0], AbsoluteThickness[0.55], InsetBox[ StyleBox["\<\"C\"\>", StripOnInput->False, ScriptSizeMultipliers->0.8, ScriptMinSize->8, FontSize->Scaled[0.006189383406757125], FontWeight->Plain], {513.5, 50.}], LineBox[{{513.5, 55.542499999999905`}, {513.5, 100.}}], {GrayLevel[0], InsetBox[ StyleBox["\<\"C\"\>", StripOnInput->False, ScriptSizeMultipliers->0.8, ScriptMinSize->8, FontSize->Scaled[0.006189383406757125], FontWeight->Plain], {513.5, 150.}], LineBox[{{513.5, 100.}, {513.5, 144.4575000000001}}]}}, {GrayLevel[0], AbsoluteThickness[0.55], InsetBox[ StyleBox["\<\"C\"\>", StripOnInput->False, ScriptSizeMultipliers->0.8, ScriptMinSize->8, FontSize->Scaled[0.006189383406757125], FontWeight->Plain], {513.5, 50.}], LineBox[{{{511.2000894008053, 42.89868903048804}, {472.70000000000005`, 20.67}}, {{506.2000894008053, 51.55868903048804}, {467.70000000000005`, 29.33}}}], {GrayLevel[0], InsetBox[ StyleBox["\<\"C\"\>", StripOnInput->False, ScriptSizeMultipliers->0.8, ScriptMinSize->8, FontSize->Scaled[0.006189383406757125], FontWeight->Plain], {426.90000000000003`, 0.}], LineBox[{{{472.70000000000005`, 20.67}, { 434.19991059919477`, -1.5586890304880456`}}, {{467.70000000000005`, 29.33}, {429.19991059919477`, 7.101310969511951}}}]}}, {GrayLevel[0], AbsoluteThickness[0.55], InsetBox[ StyleBox["\<\"C\"\>", StripOnInput->False, ScriptSizeMultipliers->0.8, ScriptMinSize->8, FontSize->Scaled[0.006189383406757125], FontWeight->Plain], {513.5, 150.}], LineBox[{{507.9575000000001, 150.}, {482.5, 150.}}], {GrayLevel[0], InsetBox[ StyleBox["\<\"H\"\>", StripOnInput->False, ScriptSizeMultipliers->0.8, ScriptMinSize->8, FontSize->Scaled[0.006189383406757125], FontWeight->Plain], {451.49999999999994`, 150.}], LineBox[{{482.5, 150.}, {457.04249999999985`, 150.}}]}}, {GrayLevel[0], AbsoluteThickness[0.55], InsetBox[ StyleBox["\<\"C\"\>", StripOnInput->False, ScriptSizeMultipliers->0.8, ScriptMinSize->8, FontSize->Scaled[0.006189383406757125], FontWeight->Plain], {513.5, 150.}], LineBox[{{513.5, 155.5424999999999}, {513.5, 181.}}], {GrayLevel[0], InsetBox[ StyleBox["\<\"H\"\>", StripOnInput->False, ScriptSizeMultipliers->0.8, ScriptMinSize->8, FontSize->Scaled[0.006189383406757125], FontWeight->Plain], {513.5, 212.}], LineBox[{{513.5, 181.}, {513.5, 206.4575000000001}}]}}, {GrayLevel[0], AbsoluteThickness[0.55], InsetBox[ StyleBox["\<\"C\"\>", StripOnInput->False, ScriptSizeMultipliers->0.8, ScriptMinSize->8, FontSize->Scaled[0.006189383406757125], FontWeight->Plain], {513.5, 150.}], LineBox[{{519.0424999999999, 150.}, {544.5, 150.}}], {GrayLevel[0], InsetBox[ StyleBox["\<\"H\"\>", StripOnInput->False, ScriptSizeMultipliers->0.8, ScriptMinSize->8, FontSize->Scaled[0.006189383406757125], FontWeight->Plain], {575.5, 150.}], LineBox[{{544.5, 150.}, {569.9575000000001, 150.}}]}}, {GrayLevel[0], AbsoluteThickness[0.55], InsetBox[ StyleBox["\<\"C\"\>", StripOnInput->False, ScriptSizeMultipliers->0.8, ScriptMinSize->8, FontSize->Scaled[0.006189383406757125], FontWeight->Plain], {426.90000000000003`, 0.}], LineBox[{{422.1000894008053, 2.7713109695119527`}, {383.6, 25.}}], {GrayLevel[0], InsetBox[ StyleBox["\<\"C\"\>", StripOnInput->False, ScriptSizeMultipliers->0.8, ScriptMinSize->8, FontSize->Scaled[0.006189383406757125], FontWeight->Plain], {340.3, 50.}], LineBox[{{383.6, 25.}, {345.09991059919474`, 47.22868903048805}}]}}, {GrayLevel[0], AbsoluteThickness[0.55], InsetBox[ StyleBox["\<\"C\"\>", StripOnInput->False, ScriptSizeMultipliers->0.8, ScriptMinSize->8, FontSize->Scaled[0.006189383406757125], FontWeight->Plain], {426.90000000000003`, 0.}], LineBox[{{426.90000000000003`, -5.5424999999999045`}, { 426.90000000000003`, -31.}}], {GrayLevel[0], InsetBox[ StyleBox["\<\"H\"\>", StripOnInput->False, ScriptSizeMultipliers->0.8, ScriptMinSize->8, FontSize->Scaled[0.006189383406757125], FontWeight->Plain], {426.90000000000003`, -62.}], LineBox[{{426.90000000000003`, -31.}, { 426.90000000000003`, -56.457500000000095`}}]}}, {GrayLevel[0], AbsoluteThickness[0.55], InsetBox[ StyleBox["\<\"C\"\>", StripOnInput->False, ScriptSizeMultipliers->0.8, ScriptMinSize->8, FontSize->Scaled[0.006189383406757125], FontWeight->Plain], {340.3, 50.}], LineBox[{{336.7367643491139, 54.245310111906214`}, {320.37, 73.745}}], {GrayLevel[0], InsetBox[ StyleBox["\<\"H\"\>", StripOnInput->False, ScriptSizeMultipliers->0.8, ScriptMinSize->8, FontSize->Scaled[0.006189383406757125], FontWeight->Plain], {300.44, 97.49}], LineBox[{{320.37, 73.745}, {304.0032356508861, 93.24468988809379}}]}}, {GrayLevel[0], AbsoluteThickness[0.55], InsetBox[ StyleBox["\<\"C\"\>", StripOnInput->False, ScriptSizeMultipliers->0.8, ScriptMinSize->8, FontSize->Scaled[0.006189383406757125], FontWeight->Plain], {340.3, 50.}], LineBox[{{343.8627111065083, 54.24575032492039}, {360.225, 73.745}}], {GrayLevel[0], InsetBox[ StyleBox["\<\"H\"\>", StripOnInput->False, ScriptSizeMultipliers->0.8, ScriptMinSize->8, FontSize->Scaled[0.006189383406757125], FontWeight->Plain], {380.15, 97.49}], LineBox[{{360.225, 73.745}, {376.5872888934917, 93.2442496750796}}]}}}, {}, {}}, ImageSize->Large, PlotRange->{{180., 1373.98}, {-216.16070000000002`, 224.4707}}]], "Output", CellChangeTimes->{3.5709426078996115`*^9, 3.570943186099027*^9, 3.5709437247991734`*^9}] }, Open ]], Cell[BoxData[ RowBox[{ StyleBox[ RowBox[{"(*", " ", RowBox[{"Distance", " ", "Matrix", " ", "Bohr"}], " ", "*)"}], "Text"], "\[IndentingNewLine]", RowBox[{ RowBox[{"dc", "=", RowBox[{"Table", "[", RowBox[{ RowBox[{"Sqrt", "[", RowBox[{ RowBox[{ RowBox[{"(", RowBox[{ RowBox[{"t", "[", RowBox[{"[", RowBox[{"i", ",", "1"}], "]"}], "]"}], "-", RowBox[{"t", "[", RowBox[{"[", RowBox[{"j", ",", "1"}], "]"}], "]"}]}], ")"}], "^", "2"}], "+", RowBox[{ RowBox[{"(", RowBox[{ RowBox[{"t", "[", RowBox[{"[", RowBox[{"i", ",", "2"}], "]"}], "]"}], "-", RowBox[{"t", "[", RowBox[{"[", RowBox[{"j", ",", "2"}], "]"}], "]"}]}], ")"}], "^", "2"}], "+", RowBox[{ RowBox[{"(", RowBox[{ RowBox[{"t", "[", RowBox[{"[", RowBox[{"i", ",", "3"}], "]"}], "]"}], "-", RowBox[{"t", "[", RowBox[{"[", RowBox[{"j", ",", "3"}], "]"}], "]"}]}], ")"}], "^", "2"}]}], "]"}], ",", RowBox[{"{", RowBox[{"i", ",", "1", ",", "n"}], "}"}], ",", RowBox[{"{", RowBox[{"j", ",", "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.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}}], 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}}], 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[{"i", "\[GreaterEqual]", "j"}], ",", RowBox[{"If", "[", RowBox[{ RowBox[{"(", RowBox[{ RowBox[{ RowBox[{"dc", "[", RowBox[{"[", RowBox[{"i", ",", "j"}], "]"}], "]"}], "<", "3.0"}], " ", "||", RowBox[{"(", RowBox[{ RowBox[{ RowBox[{"u", "[", RowBox[{"[", "i", "]"}], "]"}], "\[Equal]", "\"\\""}], " ", "&&", " ", RowBox[{"j", "\[Equal]", "10"}], " ", "&&", " ", RowBox[{"i", "\[Equal]", " ", "17"}]}], ")"}]}], ")"}], ",", RowBox[{"dc", "[", RowBox[{"[", RowBox[{"i", ",", "j"}], "]"}], "]"}], ",", "0"}], "]"}], ",", "0"}], "]"}], ",", RowBox[{"{", RowBox[{"i", ",", "1", ",", "n"}], "}"}], ",", RowBox[{"{", RowBox[{"j", ",", "1", ",", "n"}], "}"}]}], "]"}]}], ";"}], "\[IndentingNewLine]", RowBox[{"MatrixForm", "[", "Dij", "]"}]}]}]], "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}}], Cell[BoxData[ TagBox[ RowBox[{"(", "\[NoBreak]", GridBox[{ {"0.`", "0", "0", "0", "0", "0", "0", "0", "0", "0", "0", "0", "0", "0", "0", "0", "0", "0", "0", "0", "0", "0", "0", "0", "0", "0", "0", "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.8913009136018033`", "0.`", "0", "0", "0", "0", "0", "0", "0", "0", "0", "0", "0", "0", "0", "0", "0", "0", "0", "0", "0", "0", "0", "0", "0", "0", "0", "0", "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.897744729615149`", "0.`", "0", "0", "0", "0", "0", "0", "0", "0", "0", "0", "0", "0", "0", "0", "0", "0", "0", "0", "0", "0", "0", "0", "0", "0", "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.8365357849535755`", "0", "0", "0.`", "0", "0", "0", "0", "0", "0", "0", "0", "0", "0", "0", "0", "0", "0", "0", "0", "0", "0", "0", "0", "0", "0", "0", "0", "0", "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.8944306444976293`", "0", "0.`", "0", "0", "0", "0", "0", "0", "0", "0", "0", "0", "0", "0", "0", "0", "0", "0", "0", "0", "0", "0", "0", "0", "0", "0", "0", "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.4969033111783276`", "2.8364840302110523`", "0.`", "0", "0", "0", "0", "0", "0", "0", "0", "0", "0", "0", "0", "0", "0", "0", "0", "0", "0", "0", "0", "0", "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.89127882116865`", "0", "0", "0", "0", "0", "0.`", "0", "0", "0", "0", "0", "0", "0", "0", "0", "0", "0", "0", "0", "0", "0", "0", "0", "0", "0", "0", "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.891496051548036`", "0", "0", "0", "0", "0", "0", "0.`", "0", "0", "0", "0", "0", "0", "0", "0", "0", "0", "0", "0", "0", "0", "0", "0", "0", "0", "0", "0", "0", "0", "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.7620366698777885`", "0", "0", "0", "0", "0.`", "0", "0", "0", "0", "0", "0", "0", "0", "0", "0", "0", "0", "0", "0", "0", "0", "0", "0", "0", "0", "0", "0", "0", "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.847735773230699`", "0", "0", "0", "0.`", "0", "0", "0", "0", "0", "0", "0", "0", "0", "0", "0", "0", "0", "0", "0", "0", "0", "0", "0", "0", "0", "0", "0", "0", "0", "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.563079476006322`", "0", "0.`", "0", "0", "0", "0", "0", "0", "0", "0", "0", "0", "0", "0", "0", "0", "0", "0", "0", "0", "0", "0", "0", "0", "0", "0", "0", "0", "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.663475350554561`", "0.`", "0", "0", "0", "0", "0", "0", "0", "0", "0", "0", "0", "0", "0", "0", "0", "0", "0", "0", "0", "0", "0", "0", "0", "0", "0", "0", "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.847986419989531`", "0.`", "0", "0", "0", "0", "0", "0", "0", "0", "0", "0", "0", "0", "0", "0", "0", "0", "0", "0", "0", "0", "0", "0", "0", "0", "0", "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.569288589590436`", "0", "0.`", "0", "0", "0", "0", "0", "0", "0", "0", "0", "0", "0", "0", "0", "0", "0", "0", "0", "0", "0", "0", "0", "0", "0", "0", "0", "0", "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.6635653925414697`", "0.`", "0", "0", "0", "0", "0", "0", "0", "0", "0", "0", "0", "0", "0", "0", "0", "0", "0", "0", "0", "0", "0", "0", "0", "0", "0", "0", "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.563021237668669`", "0.`", "0", "0", "0", "0", "0", "0", "0", "0", "0", "0", "0", "0", "0", "0", "0", "0", "0", "0", "0", "0", "0", "0", "0", "0", "0", "0", "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.7620710231833114`", "0.`", "0", "0", "0", "0", "0", "0", "0", "0", "0", "0", "0", "0", "0", "0", "0", "0", "0", "0", "0", "0", "0", "0", "0", "0", "0", "0", "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.847700126249429`", "0.`", "0", "0", "0", "0", "0", "0", "0", "0", "0", "0", "0", "0", "0", "0", "0", "0", "0", "0", "0", "0", "0", "0", "0", "0", "0", "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.5234179395658387`", "0", "0.`", "0", "0", "0", "0", "0", "0", "0", "0", "0", "0", "0", "0", "0", "0", "0", "0", "0", "0", "0", "0", "0", "0", "0", "0", "0", "0", "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.8479645159754585`", "0.`", "0", "0", "0", "0", "0", "0", "0", "0", "0", "0", "0", "0", "0", "0", "0", "0", "0", "0", "0", "0", "0", "0", "0", "0", "0", "0", "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.7004375744153646`", "0.`", "0", "0", "0", "0", "0", "0", "0", "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.0600933686504748`", "0", "0", "0", "0", "0", "0", "0", "0", "0", "0", "0", "0", "0", "0", "0", "0", "0", "0", "0", "0.`", "0", "0", "0", "0", "0", "0", "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.059776938118349`", "0", "0", "0", "0", "0", "0", "0", "0", "0", "0", "0", "0", "0", "0", "0", "0", "0", "0", "0", "0", "0.`", "0", "0", "0", "0", "0", "0", "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.0598730589675256`", "0", "0", "0", "0", "0", "0", "0", "0", "0", "0", "0", "0", "0", "0", "0", "0", "0", "0", "0", "0", "0.`", "0", "0", "0", "0", "0", "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.0596780533600914`", "0", "0", "0", "0", "0", "0", "0", "0", "0", "0", "0", "0", "0", "0", "0", "0", "0", "0", "0", "0", "0", "0.`", "0", "0", "0", "0", "0", "0", "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.059687129769231`", "0", "0", "0", "0", "0", "0", "0", "0", "0", "0", "0", "0", "0", "0", "0", "0", "0", "0", "0", "0", "0.`", "0", "0", "0", "0", "0", "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.059914598740929`", "0", "0", "0", "0", "0", "0", "0", "0", "0", "0", "0", "0", "0", "0", "0", "0", "0", "0", "0", "0", "0", "0.`", "0", "0", "0", "0", "0", "0", "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.059831756042301`", "0", "0", "0", "0", "0", "0", "0", "0", "0", "0", "0", "0", "0", "0", "0", "0", "0", "0", "0", "0", "0.`", "0", "0", "0", "0", "0", "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.059545647756167`", "0", "0", "0", "0", "0", "0", "0", "0", "0", "0", "0", "0", "0", "0", "0", "0", "0", "0", "0", "0", "0", "0.`", "0", "0", "0", "0", "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.059713033204844`", "0", "0", "0", "0", "0", "0", "0", "0", "0", "0", "0", "0", "0", "0", "0", "0", "0", "0", "0", "0", "0", "0", "0.`", "0", "0", "0", "0", "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.0598903549200966`", "0", "0", "0", "0", "0", "0", "0", "0", "0", "0", "0", "0", "0", "0", "0", "0", "0", "0", "0", "0", "0", "0", "0.`", "0", "0", "0", "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.059839640489124`", "0", "0", "0", "0", "0", "0", "0", "0", "0", "0", "0", "0", "0", "0", "0", "0", "0", "0", "0", "0", "0", "0", "0", "0.`", "0", "0", "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.059752146204022`", "0", "0", "0", "0", "0", "0", "0", "0", "0", "0", "0", "0", "0", "0", "0", "0", "0", "0", "0", "0", "0", "0", "0", "0", "0.`", "0", "0", "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.041088532893879`", "0", "0", "0", "0", "0", "0", "0", "0", "0", "0", "0", "0", "0", "0", "0", "0", "0", "0", "0", "0", "0", "0", "0", "0", "0.`", "0", "0", "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.059887260061742`", "0", "0", "0", "0", "0", "0", "0", "0", "0", "0", "0", "0", "0", "0", "0", "0", "0", "0", "0", "0", "0", "0", "0", "0", "0.`", "0", "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.0597996583165434`", "0", "0", "0", "0", "0", "0", "0", "0", "0", "0", "0", "0", "0", "0", "0", "0", "0", "0", "0", "0", "0", "0", "0", "0", "0", "0.`", "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.0597603015255403`", "0", "0", "0", "0", "0", "0", "0", "0", "0", "0", "0", "0", "0", "0", "0", "0", "0", "0", "0", "0", "0", "0", "0", "0", "0", "0", "0.`", "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.0408468247238463`", "0", "0", "0", "0", "0", "0", "0", "0", "0", "0", "0", "0", "0", "0", "0", "0", "0", "0", "0", "0", "0", "0", "0", "0", "0", "0", "0.`", "0", "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.0597025058258973`", "0", "0", "0", "0", "0", "0", "0", "0", "0", "0", "0", "0", "0", "0", "0", "0", "0", "0", "0", "0", "0", "0", "0", "0", "0", "0.`", "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.0597979822662262`", "0", "0", "0", "0", "0", "0", "0", "0", "0", "0", "0", "0", "0", "0", "0", "0", "0", "0", "0", "0", "0", "0", "0", "0", "0", "0", "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.059767545619187`", "0", "0", "0", "0", "0", "0", "0", "0", "0", "0", "0", "0", "0", "0", "0", "0", "0", "0", "0", "0", "0", "0", "0", "0", "0", "0", "0", "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.040984980103778`", "0", "0", "0", "0", "0", "0", "0", "0", "0", "0", "0", "0", "0", "0", "0", "0", "0", "0", "0", "0", "0", "0", "0", "0", "0", "0", "0", "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.040733749438218`", "0", "0", "0", "0", "0", "0", "0", "0", "0", "0", "0", "0", "0", "0", "0", "0", "0", "0", "0", "0", "0", "0", "0", "0", "0", "0", "0", "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.041034289865974`", "0", "0", "0", "0", "0", "0", "0", "0", "0", "0", "0", "0", "0", "0", "0", "0", "0", "0", "0", "0", "0", "0", "0", "0", "0", "0", "0", "0.`", "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.0598277699890306`", "0", "0", "0", "0", "0", "0", "0", "0", "0", "0", "0", "0", "0", "0", "0", "0", "0", "0", "0", "0", "0", "0", "0", "0", "0", "0", "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.0596247627619664`", "0", "0", "0", "0", "0", "0", "0", "0", "0", "0", "0", "0", "0", "0", "0", "0", "0", "0", "0", "0", "0", "0", "0", "0", "0", "0", "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.0599745373753002`", "0", "0", "0", "0", "0", "0", "0", "0", "0", "0", "0", "0", "0", "0", "0", "0", "0", "0", "0", "0", "0", "0", "0", "0", "0", "0", "0", "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.040917857231867`", "0", "0", "0", "0", "0", "0", "0", "0", "0", "0", "0", "0", "0", "0", "0", "0", "0", "0", "0", "0", "0", "0", "0", "0", "0", "0", "0", "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.059779740145197`", "0", "0", "0", "0", "0", "0", "0", "0", "0", "0", "0", "0", "0", "0", "0", "0", "0", "0", "0", "0", "0", "0", "0", "0", "0", "0", "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.0598124012820667`", "0", "0", "0", "0", "0", "0", "0", "0", "0", "0", "0", "0", "0", "0", "0", "0", "0", "0", "0", "0", "0", "0", "0", "0", "0", "0", "0", "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.8273864433636156`", "0", "0", "0", "0", "0", "0", "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.5709426079620123`*^9, 3.5709431861614275`*^9, 3.5709437248615737`*^9}] }, Open ]], Cell[CellGroupData[{ Cell[BoxData[{ RowBox[{ RowBox[{ RowBox[{"nc", "=", "0"}], ";"}], " ", RowBox[{"(*", " ", RowBox[{ RowBox[{"parse", " ", "into", " ", "prim"}], ",", " ", "sec", ",", " ", "tert", ",", " ", RowBox[{ "and", " ", "quart", " ", "C", " ", "cores", " ", "with", " ", "different", " ", "radii"}]}], " ", "*)"}]}], "\[IndentingNewLine]", 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"}], "]"}]}], "]"}], "\n", RowBox[{ RowBox[{"cnt", "=", RowBox[{"Table", "[", RowBox[{"0", ",", RowBox[{"{", RowBox[{"i", ",", "1", ",", "nc"}], "}"}]}], "]"}]}], ";"}], "\[IndentingNewLine]", RowBox[{ RowBox[{"pri", "=", "cnt"}], ";", " ", RowBox[{"sec", "=", "cnt"}], ";", RowBox[{"ter", "=", "cnt"}], ";", " ", RowBox[{"qua", "=", "cnt"}], ";"}], "\[IndentingNewLine]", "nc"}], "Input", CellChangeTimes->{{3.5688800293771057`*^9, 3.5688801774057655`*^9}, { 3.5688802290574565`*^9, 3.568880330208034*^9}, {3.5688803807053227`*^9, 3.5688804136525807`*^9}, 3.568880491434317*^9, 3.5688805648948464`*^9, { 3.5688806280437574`*^9, 3.568880655234605*^9}, {3.568880712424306*^9, 3.568880716324312*^9}, {3.5688808087544746`*^9, 3.568880827786508*^9}, 3.5688808733385878`*^9, {3.568881358936241*^9, 3.5688813959239063`*^9}, { 3.568881446561595*^9, 3.5688815849182377`*^9}, {3.5688816223739033`*^9, 3.568881642607139*^9}, 3.568881728953291*^9, {3.568881797624612*^9, 3.568881809870633*^9}, 3.568881863612727*^9, {3.568883098916497*^9, 3.5688831014749017`*^9}, {3.56888372124679*^9, 3.568883843239004*^9}, 3.568888211750622*^9, {3.5688882521546926`*^9, 3.5688885232519693`*^9}, { 3.5688885890840845`*^9, 3.5688885895052853`*^9}, {3.568888675773437*^9, 3.5688886914514647`*^9}, {3.568888736285943*^9, 3.5688887717760057`*^9}, { 3.5688888256429005`*^9, 3.5688888541441507`*^9}, {3.568892442649892*^9, 3.5688924499507046`*^9}, {3.568892758441247*^9, 3.5688927597360487`*^9}, { 3.5688928234309607`*^9, 3.5688928379389863`*^9}, {3.5708938149488974`*^9, 3.5708938463361526`*^9}, {3.570893920483083*^9, 3.5708939282050962`*^9}, { 3.570894700000852*^9, 3.5708947833985987`*^9}}], Cell[BoxData["20"], "Output", CellChangeTimes->{3.570942607977612*^9, 3.570943186192628*^9, 3.5709437248771734`*^9}] }, Open ]], Cell[CellGroupData[{ Cell[BoxData[{ RowBox[{ RowBox[{"For", "[", RowBox[{ RowBox[{"j", "=", "1"}], ",", RowBox[{"j", "<", RowBox[{"nc", "+", "1"}]}], ",", RowBox[{"j", "++"}], ",", "\[IndentingNewLine]", RowBox[{"For", "[", RowBox[{ RowBox[{"i", "=", RowBox[{"bc", "+", "1"}]}], ",", RowBox[{"i", "<", RowBox[{"n", "+", "1"}]}], ",", RowBox[{"i", "++"}], ",", RowBox[{"If", "[", " ", RowBox[{ RowBox[{ RowBox[{"Dij", "[", RowBox[{"[", RowBox[{"i", ",", "j"}], "]"}], "]"}], "\[NotEqual]", "0"}], " ", ",", RowBox[{ RowBox[{"cnt", "[", RowBox[{"[", "j", "]"}], "]"}], "=", RowBox[{ RowBox[{"cnt", "[", RowBox[{"[", "j", "]"}], "]"}], "+", "1"}]}], ",", "0"}], "]"}]}], "]"}]}], "]"}], ";"}], "\[IndentingNewLine]", "cnt"}], "Input", CellChangeTimes->{{3.5688800293771057`*^9, 3.5688801774057655`*^9}, { 3.5688802290574565`*^9, 3.568880330208034*^9}, {3.5688803807053227`*^9, 3.5688804136525807`*^9}, 3.568880491434317*^9, 3.5688805648948464`*^9, { 3.5688806280437574`*^9, 3.568880655234605*^9}, {3.568880712424306*^9, 3.568880716324312*^9}, {3.5688808087544746`*^9, 3.568880827786508*^9}, 3.5688808733385878`*^9, {3.568881358936241*^9, 3.5688813959239063`*^9}, { 3.568881446561595*^9, 3.5688815849182377`*^9}, {3.5688816223739033`*^9, 3.568881642607139*^9}, 3.568881728953291*^9, {3.568881797624612*^9, 3.568881809870633*^9}, 3.568881863612727*^9, {3.568883098916497*^9, 3.5688831014749017`*^9}, {3.56888372124679*^9, 3.568883843239004*^9}, 3.568888211750622*^9, {3.5688882521546926`*^9, 3.5688885232519693`*^9}, { 3.5688885890840845`*^9, 3.5688885895052853`*^9}, {3.568888675773437*^9, 3.5688886914514647`*^9}, {3.568888736285943*^9, 3.5688887717760057`*^9}, { 3.5688888256429005`*^9, 3.5688888541441507`*^9}, {3.568892442649892*^9, 3.5688924499507046`*^9}, {3.568892758441247*^9, 3.5688927597360487`*^9}, { 3.5688928234309607`*^9, 3.5688928379389863`*^9}, {3.5708938149488974`*^9, 3.5708938463361526`*^9}, {3.570893920483083*^9, 3.5708939282050962`*^9}, { 3.570894700000852*^9, 3.570894821930666*^9}, 3.5709437180911617`*^9}], Cell[BoxData[ RowBox[{"{", RowBox[{ "0", ",", "2", ",", "2", ",", "0", ",", "2", ",", "0", ",", "3", ",", "3", ",", "1", ",", "3", ",", "1", ",", "0", ",", "3", ",", "1", ",", "1", ",", "1", ",", "0", ",", "3", ",", "1", ",", "2"}], "}"}]], "Output", CellChangeTimes->{3.5709437248927736`*^9}] }, Open ]], Cell[BoxData[{ RowBox[{ RowBox[{"n1", "=", "0"}], ";", " ", RowBox[{"n2", "=", "0"}], ";", " ", RowBox[{"n3", "=", "0"}], ";", " ", RowBox[{"n4", "=", "0"}], ";"}], "\n", RowBox[{ RowBox[{"For", "[", RowBox[{ RowBox[{"i", "=", "1"}], ",", RowBox[{"i", "<", RowBox[{"nc", "+", "1"}]}], ",", RowBox[{"i", "++"}], ",", RowBox[{"If", "[", RowBox[{ RowBox[{ RowBox[{"cnt", "[", RowBox[{"[", "i", "]"}], "]"}], "\[Equal]", "3"}], ",", RowBox[{ RowBox[{"n1", "=", RowBox[{"n1", "+", "1"}]}], ";", RowBox[{ RowBox[{"pri", "[", RowBox[{"[", "n1", "]"}], "]"}], "=", "i"}]}], ",", RowBox[{"If", "[", RowBox[{ RowBox[{ RowBox[{"cnt", "[", RowBox[{"[", "i", "]"}], "]"}], "\[Equal]", "2"}], ",", RowBox[{ RowBox[{"n2", "=", RowBox[{"n2", "+", "1"}]}], ";", RowBox[{ RowBox[{"sec", "[", RowBox[{"[", "n2", "]"}], "]"}], "=", "i"}]}], ",", RowBox[{"If", "[", RowBox[{ RowBox[{ RowBox[{"cnt", "[", RowBox[{"[", "i", "]"}], "]"}], "\[Equal]", "1"}], ",", RowBox[{ RowBox[{"n3", "=", RowBox[{"n3", "+", "1"}]}], ";", RowBox[{ RowBox[{"ter", "[", RowBox[{"[", "n3", "]"}], "]"}], "=", "i"}]}], ",", 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", "<", RowBox[{"nc", "+", "1"}]}], ",", RowBox[{"i", "++"}], ",", RowBox[{"If", "[", RowBox[{ RowBox[{ RowBox[{"sec", "[", RowBox[{"[", "i", "]"}], "]"}], "\[NotEqual]", "0"}], ",", RowBox[{ RowBox[{"u2", "[", RowBox[{"[", RowBox[{"sec", "[", RowBox[{"[", "i", "]"}], "]"}], "]"}], "]"}], "=", "0.255"}]}], "]"}]}], "]"}], "\[IndentingNewLine]", RowBox[{"For", " ", "[", RowBox[{ RowBox[{"i", "=", "1"}], ",", " ", RowBox[{"i", "<", RowBox[{"nc", "+", "1"}]}], ",", RowBox[{"i", "++"}], ",", RowBox[{"If", "[", RowBox[{ RowBox[{ RowBox[{"ter", "[", RowBox[{"[", "i", "]"}], "]"}], "\[NotEqual]", "0"}], ",", RowBox[{ RowBox[{"u2", "[", RowBox[{"[", RowBox[{"ter", "[", RowBox[{"[", "i", "]"}], "]"}], "]"}], "]"}], "=", "0.2557"}]}], "]"}]}], "]"}], "\[IndentingNewLine]", RowBox[{"For", " ", "[", RowBox[{ RowBox[{"i", "=", "1"}], ",", " ", RowBox[{"i", "<", RowBox[{"nc", "+", "1"}]}], ",", RowBox[{"i", "++"}], ",", RowBox[{"If", "[", RowBox[{ RowBox[{ RowBox[{"pri", "[", RowBox[{"[", "i", "]"}], "]"}], "\[NotEqual]", "0"}], ",", RowBox[{ RowBox[{"u2", "[", RowBox[{"[", RowBox[{"pri", "[", RowBox[{"[", "i", "]"}], "]"}], "]"}], "]"}], "=", "0.2567"}]}], "]"}]}], "]"}], "\[IndentingNewLine]", RowBox[{"For", " ", "[", RowBox[{ RowBox[{"i", "=", "1"}], ",", " ", RowBox[{"i", "<", RowBox[{"nc", "+", "1"}]}], ",", RowBox[{"i", "++"}], ",", RowBox[{"If", "[", RowBox[{ RowBox[{ RowBox[{"qua", "[", RowBox[{"[", "i", "]"}], "]"}], "\[NotEqual]", "0"}], ",", RowBox[{ RowBox[{"u2", "[", RowBox[{"[", RowBox[{"qua", "[", RowBox[{"[", "i", "]"}], "]"}], "]"}], "]"}], "=", "0.2577"}]}], "]"}]}], "]"}]}], "Input", CellChangeTimes->{{3.5688800293771057`*^9, 3.5688801774057655`*^9}, { 3.5688802290574565`*^9, 3.568880330208034*^9}, {3.5688803807053227`*^9, 3.5688804136525807`*^9}, 3.568880491434317*^9, 3.5688805648948464`*^9, { 3.5688806280437574`*^9, 3.568880655234605*^9}, {3.568880712424306*^9, 3.568880716324312*^9}, {3.5688808087544746`*^9, 3.568880827786508*^9}, 3.5688808733385878`*^9, {3.568881358936241*^9, 3.5688813959239063`*^9}, { 3.568881446561595*^9, 3.5688815849182377`*^9}, {3.5688816223739033`*^9, 3.568881642607139*^9}, 3.568881728953291*^9, {3.568881797624612*^9, 3.568881809870633*^9}, 3.568881863612727*^9, {3.568883098916497*^9, 3.5688831014749017`*^9}, {3.56888372124679*^9, 3.568883843239004*^9}, 3.568888211750622*^9, {3.5688882521546926`*^9, 3.5688885232519693`*^9}, { 3.5688885890840845`*^9, 3.5688885895052853`*^9}, {3.568888675773437*^9, 3.5688886914514647`*^9}, {3.568888736285943*^9, 3.5688887717760057`*^9}, { 3.5688888256429005`*^9, 3.5688888541441507`*^9}, {3.568892442649892*^9, 3.5688924499507046`*^9}, {3.568892758441247*^9, 3.5688927597360487`*^9}, { 3.5688928234309607`*^9, 3.5688928379389863`*^9}, {3.5708938149488974`*^9, 3.5708938463361526`*^9}, {3.570893920483083*^9, 3.5708939282050962`*^9}, { 3.570894700000852*^9, 3.5708948169698577`*^9}, {3.570894956839703*^9, 3.5708949736409326`*^9}, {3.5708961320833673`*^9, 3.570896139696181*^9}, 3.570896314088887*^9, {3.5708963602181683`*^9, 3.5708963666609793`*^9}, { 3.570896482038782*^9, 3.570896483645585*^9}, {3.5708965159376416`*^9, 3.570896521194851*^9}, {3.5709435995777535`*^9, 3.5709436285158043`*^9}, { 3.5709436695594764`*^9, 3.5709437026783347`*^9}, {3.57094471360691*^9, 3.5709447144805117`*^9}}], 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", "<", "i"}], ",", RowBox[{"j", "++"}], ",", "\[IndentingNewLine]", RowBox[{"If", "[", RowBox[{ RowBox[{"(", RowBox[{ RowBox[{ RowBox[{"Dij", "[", RowBox[{"[", RowBox[{"i", ",", "j"}], "]"}], "]"}], "\[NotEqual]", "0"}], " ", "&&", " ", RowBox[{ RowBox[{"u", "[", RowBox[{"[", "i", "]"}], "]"}], "\[Equal]", " ", "\"\\""}]}], ")"}], ",", RowBox[{"If", "[", RowBox[{ RowBox[{ RowBox[{"u", "[", RowBox[{"[", "j", "]"}], "]"}], "\[Equal]", "\"\\""}], ",", RowBox[{ RowBox[{"u2", "[", RowBox[{"[", "i", "]"}], "]"}], "=", "0.5693"}], ",", RowBox[{"If", "[", RowBox[{ RowBox[{ RowBox[{"u", "[", RowBox[{"[", "j", "]"}], "]"}], "\[Equal]", "\"\\""}], ",", RowBox[{ RowBox[{"u2", "[", RowBox[{"[", "i", "]"}], "]"}], "=", "0.5"}], ",", RowBox[{"If", "[", RowBox[{ RowBox[{ RowBox[{"u", "[", RowBox[{"[", "j", "]"}], "]"}], "\[Equal]", "\"\\""}], ",", RowBox[{ RowBox[{"u2", "[", RowBox[{"[", "i", "]"}], "]"}], "=", "0.5541"}], ",", RowBox[{"If", "[", RowBox[{ RowBox[{ RowBox[{"u", "[", RowBox[{"[", "j", "]"}], "]"}], "\[Equal]", "\"\\""}], ",", RowBox[{ RowBox[{"u2", "[", RowBox[{"[", "i", "]"}], "]"}], "=", "0.5241"}]}], "]"}]}], "]"}]}], "]"}]}], "]"}]}], "]"}]}], "]"}]}], "]"}], "\[IndentingNewLine]", "u2"}], "Input", CellChangeTimes->{{3.5688800293771057`*^9, 3.5688801774057655`*^9}, { 3.5688802290574565`*^9, 3.568880330208034*^9}, {3.5688803807053227`*^9, 3.5688804136525807`*^9}, 3.568880491434317*^9, 3.5688805648948464`*^9, { 3.5688806280437574`*^9, 3.568880655234605*^9}, {3.568880712424306*^9, 3.568880716324312*^9}, {3.5688808087544746`*^9, 3.568880827786508*^9}, 3.5688808733385878`*^9, {3.568881358936241*^9, 3.5688813959239063`*^9}, { 3.568881446561595*^9, 3.5688815849182377`*^9}, {3.5688816223739033`*^9, 3.568881642607139*^9}, 3.568881728953291*^9, {3.568881797624612*^9, 3.568881809870633*^9}, 3.568881863612727*^9, {3.568883098916497*^9, 3.5688831014749017`*^9}, {3.56888372124679*^9, 3.568883843239004*^9}, 3.568888211750622*^9, {3.5688882521546926`*^9, 3.5688885232519693`*^9}, { 3.5688885890840845`*^9, 3.5688885895052853`*^9}, {3.568888675773437*^9, 3.5688886914514647`*^9}, {3.568888736285943*^9, 3.5688887717760057`*^9}, { 3.5688888256429005`*^9, 3.5688888541441507`*^9}, {3.568892442649892*^9, 3.5688924499507046`*^9}, {3.568892758441247*^9, 3.5688927597360487`*^9}, { 3.5688928234309607`*^9, 3.5688928379389863`*^9}, {3.5708938149488974`*^9, 3.5708938463361526`*^9}, {3.570893920483083*^9, 3.5708939282050962`*^9}, { 3.570894700000852*^9, 3.57089481264865*^9}}], Cell[BoxData[ RowBox[{"{", RowBox[{ "0.2557`", ",", "0.255`", ",", "0.255`", ",", "0.2557`", ",", "0.255`", ",", "0.2557`", ",", "0.2567`", ",", "0.2567`", ",", "0.2557`", ",", "0.2567`", ",", "0.2557`", ",", "0.2557`", ",", "0.2567`", ",", "0.2557`", ",", "0.2557`", ",", "0.2557`", ",", "0.2557`", ",", "0.2567`", ",", "0.2557`", ",", "0.255`", ",", "0.178`", ",", "0.5693`", ",", "0.5693`", ",", "0.5693`", ",", "0.5693`", ",", "0.5693`", ",", "0.5693`", ",", "0.5693`", ",", "0.5693`", ",", "0.5693`", ",", "0.5693`", ",", "0.5693`", ",", "0.5693`", ",", "0.5693`", ",", "0.5693`", ",", "0.5693`", ",", "0.5693`", ",", "0.5693`", ",", "0.5693`", ",", "0.5693`", ",", "0.5693`", ",", "0.5693`", ",", "0.5693`", ",", "0.5693`", ",", "0.5693`", ",", "0.5693`", ",", "0.5693`", ",", "0.5693`", ",", "0.5693`", ",", "0.5693`", ",", "0.5241`"}], "}"}]], "Output", CellChangeTimes->{3.570942608008812*^9, 3.5709431862082276`*^9, 3.570943724908374*^9}] }, Open ]], Cell[BoxData[ RowBox[{ RowBox[{"(*", " ", RowBox[{ "subtract", " ", "core", " ", "radii", " ", "from", " ", "pair", " ", "distances"}], " ", "*)"}], "\[IndentingNewLine]", RowBox[{ RowBox[{ RowBox[{"Fij", "=", RowBox[{"Dij", "-", "u2"}]}], ";"}], "\[IndentingNewLine]", RowBox[{"(*", RowBox[{ RowBox[{"MatrixForm", "[", "Fij", "]"}], ";"}], "*)"}], "\[IndentingNewLine]", RowBox[{ RowBox[{"Gij", "=", RowBox[{"Table", "[", RowBox[{ RowBox[{"If", "[", RowBox[{ RowBox[{"i", "\[GreaterEqual]", "j"}], ",", RowBox[{"If", "[", RowBox[{ RowBox[{ RowBox[{"Fij", "[", RowBox[{"[", RowBox[{"i", ",", "j"}], "]"}], "]"}], ">", "0"}], ",", RowBox[{"Fij", "[", RowBox[{"[", RowBox[{"i", ",", "j"}], "]"}], "]"}], ",", "0"}], "]"}], ",", "\"\< \>\""}], "]"}], ",", RowBox[{"{", RowBox[{"i", ",", "1", ",", "n"}], "}"}], ",", RowBox[{"{", RowBox[{"j", ",", "1", ",", "n"}], "}"}]}], "]"}]}], ";"}], "\[IndentingNewLine]", RowBox[{"(*", RowBox[{ RowBox[{"MatrixForm", "[", "Gij", "]"}], ";"}], "*)"}]}]}]], "Input", CellChangeTimes->{{3.567958596890297*^9, 3.567958603270708*^9}, { 3.5679587604565845`*^9, 3.5679587707682023`*^9}, {3.5679588272871017`*^9, 3.567958828254304*^9}, {3.567959580066424*^9, 3.5679595814704266`*^9}, { 3.567959624994503*^9, 3.5679596300177116`*^9}, {3.5679597079086485`*^9, 3.567959902877791*^9}, {3.5679599961659546`*^9, 3.5679600446196404`*^9}, { 3.5679609611992497`*^9, 3.567960974006872*^9}, 3.567961975154231*^9, { 3.5679622637079377`*^9, 3.5679622945179915`*^9}, 3.5681142413606625`*^9, 3.568121878697276*^9, {3.5681219332193723`*^9, 3.56812197189184*^9}, { 3.5682778370003624`*^9, 3.5682778397927675`*^9}, {3.569341165522358*^9, 3.569341165537958*^9}, {3.5693418217531104`*^9, 3.5693418217531104`*^9}, { 3.57059671735485*^9, 3.570596744467697*^9}}], Cell[BoxData[{ RowBox[{ RowBox[{"Hij", "=", RowBox[{"Transpose", "[", "Gij", "]"}]}], ";"}], "\[IndentingNewLine]", RowBox[{ RowBox[{"(*", RowBox[{ RowBox[{"MatrixForm", "[", "Hij", "]"}], ";"}], "*)"}]}]}], "Input", CellChangeTimes->{{3.5679601758938704`*^9, 3.5679601965327067`*^9}, { 3.567960427147912*^9, 3.567960432217921*^9}, {3.5679605764089737`*^9, 3.5679605968294096`*^9}, {3.5679607389456596`*^9, 3.5679607643581038`*^9}, 3.5681142501278777`*^9, 3.5681218877140923`*^9, 3.569341165537958*^9, 3.5693418217531104`*^9}], Cell[BoxData[{ RowBox[{ RowBox[{ RowBox[{"Kij", "=", RowBox[{"Hij", "-", "u2"}]}], ";"}], "\[IndentingNewLine]", RowBox[{"(*", RowBox[{ RowBox[{"MatrixForm", "[", "Kij", "]"}], ";"}], "*)"}]}], "\[IndentingNewLine]", RowBox[{ RowBox[{"Lij", "=", RowBox[{"Table", "[", RowBox[{ RowBox[{"If", "[", RowBox[{ RowBox[{"i", "\[LessEqual]", "j"}], ",", RowBox[{"If", "[", RowBox[{ RowBox[{ RowBox[{"Kij", "[", RowBox[{"[", RowBox[{"i", ",", "j"}], "]"}], "]"}], ">", "0"}], ",", RowBox[{"Kij", "[", RowBox[{"[", RowBox[{"i", ",", "j"}], "]"}], "]"}], ",", "0"}], "]"}], ",", "\"\< \>\""}], "]"}], ",", RowBox[{"{", RowBox[{"i", ",", "1", ",", "n"}], "}"}], ",", RowBox[{"{", RowBox[{"j", ",", "1", ",", "n"}], "}"}]}], "]"}]}], ";"}], "\[IndentingNewLine]", RowBox[{ RowBox[{"(*", RowBox[{ RowBox[{"MatrixForm", "[", "Lij", "]"}], ";"}], "*)"}]}]}], "Input", CellChangeTimes->{{3.5679602339571724`*^9, 3.567960257419614*^9}, { 3.567960343406965*^9, 3.567960353500182*^9}, {3.5679604155258913`*^9, 3.567960421422702*^9}, {3.567960854323462*^9, 3.567960874197897*^9}, { 3.5679611596939983`*^9, 3.567961170270817*^9}, {3.5679614000124207`*^9, 3.567961407016833*^9}, {3.5679615066074076`*^9, 3.567961509649413*^9}, 3.5679616124379935`*^9, 3.5679616766477065`*^9, {3.5679617424486217`*^9, 3.5679617456310277`*^9}, 3.567961801276325*^9, {3.5679618582788253`*^9, 3.5679618970760937`*^9}, {3.5679620279135237`*^9, 3.567962030113127*^9}, 3.567962107894864*^9, {3.567962149468937*^9, 3.5679621572533503`*^9}, 3.5679623389156694`*^9, {3.567962645815009*^9, 3.567962648888214*^9}, { 3.567962691647889*^9, 3.567962693020692*^9}, {3.568048161486014*^9, 3.568048162827616*^9}, 3.5680482096900983`*^9, 3.5681142588638926`*^9, 3.568121899632513*^9, 3.5681219958534822`*^9, {3.568277844675576*^9, 3.5682778463603787`*^9}, {3.569341165537958*^9, 3.569341165537958*^9}, { 3.5693418217531104`*^9, 3.5693418217531104`*^9}}], Cell[BoxData[ RowBox[{ RowBox[{"(*", " ", RowBox[{"determine", " ", "bond", " ", "cloud", " ", "radii"}], " ", "*)"}], "\[IndentingNewLine]", RowBox[{ RowBox[{ RowBox[{"Lij", "=", RowBox[{"Table", "[", RowBox[{ RowBox[{"If", "[", RowBox[{ RowBox[{"i", "\[LessEqual]", "j"}], ",", RowBox[{"If", "[", RowBox[{ RowBox[{ RowBox[{"Lij", "[", RowBox[{"[", RowBox[{"i", ",", "j"}], "]"}], "]"}], ">", "0"}], ",", RowBox[{"If", "[", RowBox[{ RowBox[{ RowBox[{"u", "[", RowBox[{"[", "j", "]"}], "]"}], "\[NotEqual]", "\"\\""}], ",", RowBox[{"0.5", "*", RowBox[{"Lij", "[", RowBox[{"[", RowBox[{"i", ",", "j"}], "]"}], "]"}]}], ",", RowBox[{"Lij", "[", RowBox[{"[", RowBox[{"i", ",", "j"}], "]"}], "]"}]}], "]"}], ",", "0"}], "]"}], ",", "\"\< \>\""}], "]"}], ",", RowBox[{"{", RowBox[{"i", ",", "1", ",", "n"}], "}"}], ",", RowBox[{"{", RowBox[{"j", ",", "1", ",", "n"}], "}"}]}], "]"}]}], ";"}], " ", "\[IndentingNewLine]", RowBox[{ RowBox[{"Qij", "=", "Lij"}], ";"}], "\[IndentingNewLine]", RowBox[{"(*", RowBox[{ RowBox[{"MatrixForm", "[", "Lij", "]"}], ";"}], "*)"}]}]}]], "Input", CellChangeTimes->{{3.5679627617388124`*^9, 3.567962837461345*^9}, { 3.567963118121438*^9, 3.567963118698639*^9}, {3.5679631520670977`*^9, 3.5679631541731014`*^9}, {3.5679631898191643`*^9, 3.5679632154656096`*^9}, {3.5679635823158536`*^9, 3.56796361468591*^9}, { 3.567963691516045*^9, 3.567963693590849*^9}, {3.567963737957327*^9, 3.567963807299449*^9}, {3.568048114904332*^9, 3.5680481161835346`*^9}, 3.5680482221389203`*^9, {3.5680485003498087`*^9, 3.5680485123618298`*^9}, 3.5681142659931054`*^9, 3.5681219084621286`*^9, {3.568277848107582*^9, 3.5682778496519847`*^9}, {3.5683793122399254`*^9, 3.568379313019926*^9}, { 3.568379456758579*^9, 3.56837947986222*^9}, 3.5683796000760307`*^9, { 3.5683796473285136`*^9, 3.5683796831617765`*^9}, {3.568381744939398*^9, 3.5683817743298492`*^9}, {3.56846523720809*^9, 3.568465240218895*^9}, 3.569341165537958*^9, 3.5693418217531104`*^9, {3.5705967846533675`*^9, 3.5705968020785985`*^9}}], Cell[BoxData[ RowBox[{ RowBox[{"(*", " ", RowBox[{"determine", " ", "kinetic", " ", "energy"}], " ", "*)"}], "\[IndentingNewLine]", RowBox[{ RowBox[{ RowBox[{"Nij", "=", RowBox[{"Table", "[", RowBox[{ RowBox[{"If", "[", RowBox[{ RowBox[{"i", "\[LessEqual]", "j"}], ",", RowBox[{"If", "[", RowBox[{ RowBox[{ RowBox[{"Lij", "[", RowBox[{"[", RowBox[{"i", ",", "j"}], "]"}], "]"}], ">", "0"}], ",", RowBox[{"2.25", "/", RowBox[{ RowBox[{"Lij", "[", RowBox[{"[", RowBox[{"i", ",", "j"}], "]"}], "]"}], "^", "2"}]}], ",", "0"}], "]"}], ",", "\"\< \>\""}], "]"}], ",", RowBox[{"{", RowBox[{"i", ",", "1", ",", "n"}], "}"}], ",", RowBox[{"{", RowBox[{"j", ",", "1", ",", "n"}], "}"}]}], "]"}]}], ";"}], "\[IndentingNewLine]", RowBox[{"(*", RowBox[{"MatrixForm", "[", "Nij", "]"}], "*)"}]}]}]], "Input", CellChangeTimes->{{3.5679628944794455`*^9, 3.5679629710755796`*^9}, { 3.567963889963994*^9, 3.567963933800071*^9}, {3.5680478391738477`*^9, 3.5680478414358516`*^9}, 3.568048231171336*^9, {3.5680482823550262`*^9, 3.56804828449223*^9}, 3.5680483349271183`*^9, 3.568114273059918*^9, 3.5681219175101447`*^9, {3.568277851305588*^9, 3.568277857295998*^9}, { 3.5688722635742655`*^9, 3.568872266616271*^9}, 3.5688723032763357`*^9, 3.5688725225503206`*^9, 3.5692365125035076`*^9, {3.5692366381461277`*^9, 3.5692366389105296`*^9}, {3.5692366963654304`*^9, 3.5692366986898346`*^9}, 3.5693411655535583`*^9, 3.5693418217687106`*^9, {3.5705968460394754`*^9, 3.5705968602823005`*^9}}], Cell[CellGroupData[{ Cell[BoxData[ RowBox[{"Tval", "=", RowBox[{"Sum", "[", RowBox[{ RowBox[{"If", "[", RowBox[{ RowBox[{"i", "\[LessEqual]", "j"}], ",", RowBox[{"Nij", "[", RowBox[{"[", RowBox[{"i", ",", "j"}], "]"}], "]"}], ",", "0"}], "]"}], ",", RowBox[{"{", RowBox[{"i", ",", "1", ",", "n"}], "}"}], ",", RowBox[{"{", RowBox[{"j", ",", "1", ",", "n"}], "}"}]}], "]"}]}]], "Input", CellChangeTimes->{{3.567963992456174*^9, 3.567964003890994*^9}, { 3.5679640974287586`*^9, 3.5679642038209453`*^9}, {3.56796433180357*^9, 3.567964353487608*^9}, {3.567964403641696*^9, 3.567964453046983*^9}, { 3.5679646160984693`*^9, 3.5679646168316708`*^9}, {3.567964688747797*^9, 3.567964762255126*^9}, {3.568277859480002*^9, 3.568277863598409*^9}, { 3.568379511358675*^9, 3.5683795129030776`*^9}, 3.5688214977895346`*^9, { 3.56882774467134*^9, 3.56882781892747*^9}}], Cell[BoxData["82.82538165381717`"], "Output", CellChangeTimes->{3.570942608040012*^9, 3.570943186255028*^9, 3.5709437249395733`*^9}] }, Open ]], Cell[CellGroupData[{ Cell[BoxData[ RowBox[{"Tcor", "=", RowBox[{"Sum", "[", RowBox[{ RowBox[{"If", "[", RowBox[{ RowBox[{ RowBox[{"u", "[", RowBox[{"[", "i", "]"}], "]"}], "\[NotEqual]", "\"\\""}], ",", RowBox[{"2.25", "/", RowBox[{ RowBox[{"u2", "[", RowBox[{"[", "i", "]"}], "]"}], "^", "2"}]}], ",", "0"}], "]"}], ",", RowBox[{"{", RowBox[{"i", ",", "1", ",", "n"}], "}"}]}], "]"}]}]], "Input", CellChangeTimes->{ 3.5688724058309155`*^9, {3.568872452646598*^9, 3.568872478480243*^9}, { 3.5688764461756124`*^9, 3.5688764647552447`*^9}, {3.5692363452556133`*^9, 3.5692363456924143`*^9}, 3.569236415892538*^9, 3.5692365043134933`*^9}], Cell[BoxData["758.6902222287141`"], "Output", CellChangeTimes->{3.570942608040012*^9, 3.5709431862706275`*^9, 3.5709437249551735`*^9}] }, Open ]], Cell[CellGroupData[{ Cell[BoxData[ RowBox[{"Ttot", "=", RowBox[{"Tval", "+", "Tcor", " ", RowBox[{"(*", " ", RowBox[{"plus", " ", "\[Pi]", " ", "and", " ", "lone", " ", RowBox[{"pairs", ":", " ", RowBox[{"+", " ", "8.7616"}]}]}], " ", "*)"}]}]}]], "Input", CellChangeTimes->{ 3.5688724058309155`*^9, {3.568872452646598*^9, 3.568872478480243*^9}, { 3.5688764461756124`*^9, 3.568876459248435*^9}, {3.568876733122516*^9, 3.5688767685033784`*^9}, {3.568895188410715*^9, 3.5688952349923964`*^9}}], Cell[BoxData["841.5156038825313`"], "Output", CellChangeTimes->{3.570942608055612*^9, 3.5709431862862277`*^9, 3.5709437249707737`*^9}] }, Open ]], Cell[CellGroupData[{ Cell[BoxData[ RowBox[{"TvalH", "=", RowBox[{"Sum", "[", RowBox[{ RowBox[{"If", "[", RowBox[{ RowBox[{"(", RowBox[{ RowBox[{"i", "\[LessEqual]", "j"}], " ", "&&", " ", RowBox[{ RowBox[{"u", "[", RowBox[{"[", "j", "]"}], "]"}], "\[Equal]", " ", "\"\\""}]}], ")"}], ",", RowBox[{"Nij", "[", RowBox[{"[", RowBox[{"i", ",", "j"}], "]"}], "]"}], ",", "0"}], "]"}], ",", RowBox[{"{", RowBox[{"i", ",", "1", ",", "n"}], "}"}], ",", RowBox[{"{", RowBox[{"j", ",", "1", ",", "n"}], "}"}]}], "]"}]}]], "Input", CellChangeTimes->{ 3.5688724058309155`*^9, {3.568872452646598*^9, 3.568872478480243*^9}, { 3.5688764461756124`*^9, 3.568876459248435*^9}, {3.568876733122516*^9, 3.5688767642445707`*^9}}], Cell[BoxData["44.87087592996584`"], "Output", CellChangeTimes->{3.570942608071212*^9, 3.5709431863018274`*^9, 3.570943724986374*^9}] }, Open ]], Cell[CellGroupData[{ Cell[BoxData[ RowBox[{"TvalC", "=", RowBox[{"Tval", "-", "TvalH"}]}]], "Input", CellChangeTimes->{{3.5688726088808727`*^9, 3.568872610581275*^9}, { 3.5688726952426243`*^9, 3.5688727146490583`*^9}}], Cell[BoxData["37.954505723851334`"], "Output", CellChangeTimes->{3.570942608071212*^9, 3.5709431863174276`*^9, 3.570943725001974*^9}] }, Open ]], Cell[BoxData[ RowBox[{"\[IndentingNewLine]", RowBox[{ 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}], Cell[CellGroupData[{ Cell[BoxData[ RowBox[{"MatrixForm", "[", "Pij", "]"}]], "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.5681087223049684`*^9}, 3.568114284401138*^9, 3.5681220092695055`*^9, 3.5693411655535583`*^9, 3.5693418217687106`*^9, { 3.570340755052903*^9, 3.5703407609185133`*^9}, 3.570342272888769*^9, { 3.5703428806034365`*^9, 3.5703428850182447`*^9}}], Cell[BoxData[ TagBox[ RowBox[{"(", "\[NoBreak]", GridBox[{ {"\<\" \"\>", "\<\"C\"\>", "\<\"C\"\>", "\<\"C\"\>", "\<\"C\"\>", "\<\"C\ \"\>", "\<\"C\"\>", "\<\"C\"\>", "\<\"C\"\>", "\<\"C\"\>", "\<\"C\"\>", \ "\<\"C\"\>", "\<\"C\"\>", "\<\"C\"\>", "\<\"C\"\>", "\<\"C\"\>", "\<\"C\"\>", \ "\<\"C\"\>", "\<\"C\"\>", "\<\"C\"\>", "\<\"C\"\>", "\<\"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\"\>", "\<\"H\"\>", "\<\"H\"\>"}, {"\<\"C\"\>", "0", "\<\" \"\>", "\<\" \"\>", "\<\" \"\>", "\<\" \"\>", "\<\" \"\>", "\ \<\" \"\>", "\<\" \"\>", "\<\" \"\>", "\<\" \"\>", "\<\" \"\>", "\<\" \"\>", \ "\<\" \"\>", "\<\" \"\>", "\<\" \"\>", "\<\" \"\>", "\<\" \"\>", "\<\" \"\>", \ "\<\" \"\>", "\<\" \"\>", "\<\" \"\>", "\<\" \"\>", "\<\" \"\>", "\<\" \"\>", \ "\<\" \"\>", "\<\" \"\>", "\<\" \"\>", "\<\" \"\>", "\<\" \"\>", "\<\" \"\>", \ "\<\" \"\>", "\<\" \"\>", "\<\" \"\>", "\<\" \"\>", "\<\" \"\>", "\<\" \"\>", \ "\<\" \"\>", "\<\" \"\>", "\<\" \"\>", "\<\" \"\>", "\<\" \"\>", "\<\" \"\>", \ "\<\" \"\>", "\<\" \"\>", "\<\" \"\>", "\<\" \"\>", "\<\" \"\>", "\<\" \"\>", \ "\<\" \"\>", "\<\" \"\>", "\<\" \"\>"}, {"\<\"C\"\>", "1.1903004568009017`", "0", "\<\" \"\>", "\<\" \"\>", "\<\" \"\>", "\<\" \"\>", "\<\" \"\>", "\ \<\" \"\>", "\<\" \"\>", "\<\" \"\>", "\<\" \"\>", "\<\" \"\>", "\<\" \"\>", \ "\<\" \"\>", "\<\" \"\>", "\<\" \"\>", "\<\" \"\>", "\<\" \"\>", "\<\" \"\>", \ "\<\" \"\>", "\<\" \"\>", "\<\" \"\>", "\<\" \"\>", "\<\" \"\>", "\<\" \"\>", \ "\<\" \"\>", "\<\" \"\>", "\<\" \"\>", "\<\" \"\>", "\<\" \"\>", "\<\" \"\>", \ "\<\" \"\>", "\<\" \"\>", "\<\" \"\>", "\<\" \"\>", "\<\" \"\>", "\<\" \"\>", \ "\<\" \"\>", "\<\" \"\>", "\<\" \"\>", "\<\" \"\>", "\<\" \"\>", "\<\" \"\>", \ "\<\" \"\>", "\<\" \"\>", "\<\" \"\>", "\<\" \"\>", "\<\" \"\>", "\<\" \"\>", \ "\<\" \"\>", "\<\" \"\>"}, {"\<\"C\"\>", "0", "1.1938723648075746`", "0", "\<\" \"\>", "\<\" \"\>", "\<\" \"\>", "\<\" \"\>", "\<\" \"\>", "\ \<\" \"\>", "\<\" \"\>", "\<\" \"\>", "\<\" \"\>", "\<\" \"\>", "\<\" \"\>", \ "\<\" \"\>", "\<\" \"\>", "\<\" \"\>", "\<\" \"\>", "\<\" \"\>", "\<\" \"\>", \ "\<\" \"\>", "\<\" \"\>", "\<\" \"\>", "\<\" \"\>", "\<\" \"\>", "\<\" \"\>", \ "\<\" \"\>", "\<\" \"\>", "\<\" \"\>", "\<\" \"\>", "\<\" \"\>", "\<\" \"\>", \ "\<\" \"\>", "\<\" \"\>", "\<\" \"\>", "\<\" \"\>", "\<\" \"\>", "\<\" \"\>", \ "\<\" \"\>", "\<\" \"\>", "\<\" \"\>", "\<\" \"\>", "\<\" \"\>", "\<\" \"\>", \ "\<\" \"\>", "\<\" \"\>", "\<\" \"\>", "\<\" \"\>", "\<\" \"\>", "\<\" \"\>", \ "\<\" \"\>"}, {"\<\"C\"\>", "1.1625678924767877`", "0", "0", "0", "\<\" \"\>", "\<\" \"\>", "\<\" \"\>", "\<\" \"\>", "\<\" \"\>", "\ \<\" \"\>", "\<\" \"\>", "\<\" \"\>", "\<\" \"\>", "\<\" \"\>", "\<\" \"\>", \ "\<\" \"\>", "\<\" \"\>", "\<\" \"\>", "\<\" \"\>", "\<\" \"\>", "\<\" \"\>", \ "\<\" \"\>", "\<\" \"\>", "\<\" \"\>", "\<\" \"\>", "\<\" \"\>", "\<\" \"\>", \ "\<\" \"\>", "\<\" \"\>", "\<\" \"\>", "\<\" \"\>", "\<\" \"\>", "\<\" \"\>", \ "\<\" \"\>", "\<\" \"\>", "\<\" \"\>", "\<\" \"\>", "\<\" \"\>", "\<\" \"\>", \ "\<\" \"\>", "\<\" \"\>", "\<\" \"\>", "\<\" \"\>", "\<\" \"\>", "\<\" \"\>", \ "\<\" \"\>", "\<\" \"\>", "\<\" \"\>", "\<\" \"\>", "\<\" \"\>", "\<\" \"\>"}, {"\<\"C\"\>", "0", "0", "1.1922153222488148`", "0", "0", "\<\" \"\>", "\<\" \"\>", "\<\" \"\>", "\<\" \"\>", "\<\" \"\>", "\ \<\" \"\>", "\<\" \"\>", "\<\" \"\>", "\<\" \"\>", "\<\" \"\>", "\<\" \"\>", \ "\<\" \"\>", "\<\" \"\>", "\<\" \"\>", "\<\" \"\>", "\<\" \"\>", "\<\" \"\>", \ "\<\" \"\>", "\<\" \"\>", "\<\" \"\>", "\<\" \"\>", "\<\" \"\>", "\<\" \"\>", \ "\<\" \"\>", "\<\" \"\>", "\<\" \"\>", "\<\" \"\>", "\<\" \"\>", "\<\" \"\>", \ "\<\" \"\>", "\<\" \"\>", "\<\" \"\>", "\<\" \"\>", "\<\" \"\>", "\<\" \"\>", \ "\<\" \"\>", "\<\" \"\>", "\<\" \"\>", "\<\" \"\>", "\<\" \"\>", "\<\" \"\>", \ "\<\" \"\>", "\<\" \"\>", "\<\" \"\>", "\<\" \"\>", "\<\" \"\>"}, {"\<\"C\"\>", "0", "0", "0", "0.9927516555891638`", "1.1628920151055262`", "0", "\<\" \"\>", "\<\" \"\>", "\<\" \"\>", "\<\" \"\>", "\<\" \"\>", "\ \<\" \"\>", "\<\" \"\>", "\<\" \"\>", "\<\" \"\>", "\<\" \"\>", "\<\" \"\>", \ "\<\" \"\>", "\<\" \"\>", "\<\" \"\>", "\<\" \"\>", "\<\" \"\>", "\<\" \"\>", \ "\<\" \"\>", "\<\" \"\>", "\<\" \"\>", "\<\" \"\>", "\<\" \"\>", "\<\" \"\>", \ "\<\" \"\>", "\<\" \"\>", "\<\" \"\>", "\<\" \"\>", "\<\" \"\>", "\<\" \"\>", \ "\<\" \"\>", "\<\" \"\>", "\<\" \"\>", "\<\" \"\>", "\<\" \"\>", "\<\" \"\>", \ "\<\" \"\>", "\<\" \"\>", "\<\" \"\>", "\<\" \"\>", "\<\" \"\>", "\<\" \"\>", \ "\<\" \"\>", "\<\" \"\>", "\<\" \"\>", "\<\" \"\>"}, {"\<\"C\"\>", "1.1894394105843251`", "0", "0", "0", "0", "0", "0", "\<\" \"\>", "\<\" \"\>", "\<\" \"\>", "\<\" \"\>", "\<\" \"\>", "\ \<\" \"\>", "\<\" \"\>", "\<\" \"\>", "\<\" \"\>", "\<\" \"\>", "\<\" \"\>", \ "\<\" \"\>", "\<\" \"\>", "\<\" \"\>", "\<\" \"\>", "\<\" \"\>", "\<\" \"\>", \ "\<\" \"\>", "\<\" \"\>", "\<\" \"\>", "\<\" \"\>", "\<\" \"\>", "\<\" \"\>", \ "\<\" \"\>", "\<\" \"\>", "\<\" \"\>", "\<\" \"\>", "\<\" \"\>", "\<\" \"\>", \ "\<\" \"\>", "\<\" \"\>", "\<\" \"\>", "\<\" \"\>", "\<\" \"\>", "\<\" \"\>", \ "\<\" \"\>", "\<\" \"\>", "\<\" \"\>", "\<\" \"\>", "\<\" \"\>", "\<\" \"\>", \ "\<\" \"\>", "\<\" \"\>", "\<\" \"\>"}, {"\<\"C\"\>", "1.189548025774018`", "0", "0", "0", "0", "0", "0", "0", "\<\" \"\>", "\<\" \"\>", "\<\" \"\>", "\<\" \"\>", "\<\" \"\>", "\ \<\" \"\>", "\<\" \"\>", "\<\" \"\>", "\<\" \"\>", "\<\" \"\>", "\<\" \"\>", \ "\<\" \"\>", "\<\" \"\>", "\<\" \"\>", "\<\" \"\>", "\<\" \"\>", "\<\" \"\>", \ "\<\" \"\>", "\<\" \"\>", "\<\" \"\>", "\<\" \"\>", "\<\" \"\>", "\<\" \"\>", \ "\<\" \"\>", "\<\" \"\>", "\<\" \"\>", "\<\" \"\>", "\<\" \"\>", "\<\" \"\>", \ "\<\" \"\>", "\<\" \"\>", "\<\" \"\>", "\<\" \"\>", "\<\" \"\>", "\<\" \"\>", \ "\<\" \"\>", "\<\" \"\>", "\<\" \"\>", "\<\" \"\>", "\<\" \"\>", "\<\" \"\>", \ "\<\" \"\>", "\<\" \"\>"}, {"\<\"C\"\>", "0", "0", "0", "1.1253183349388942`", "0", "0", "0", "0", "0", "\<\" \"\>", "\<\" \"\>", "\<\" \"\>", "\<\" \"\>", "\<\" \"\>", "\ \<\" \"\>", "\<\" \"\>", "\<\" \"\>", "\<\" \"\>", "\<\" \"\>", "\<\" \"\>", \ "\<\" \"\>", "\<\" \"\>", "\<\" \"\>", "\<\" \"\>", "\<\" \"\>", "\<\" \"\>", \ "\<\" \"\>", "\<\" \"\>", "\<\" \"\>", "\<\" \"\>", "\<\" \"\>", "\<\" \"\>", \ "\<\" \"\>", "\<\" \"\>", "\<\" \"\>", "\<\" \"\>", "\<\" \"\>", "\<\" \"\>", \ "\<\" \"\>", "\<\" \"\>", "\<\" \"\>", "\<\" \"\>", "\<\" \"\>", "\<\" \"\>", \ "\<\" \"\>", "\<\" \"\>", "\<\" \"\>", "\<\" \"\>", "\<\" \"\>", "\<\" \"\>", \ "\<\" \"\>"}, {"\<\"C\"\>", "0", "0", "0", "0", "0", "1.1676678866153496`", "0", "0", "0", "0", "\<\" \"\>", "\<\" \"\>", "\<\" \"\>", "\<\" \"\>", "\<\" \ \"\>", "\<\" \"\>", "\<\" \"\>", "\<\" \"\>", "\<\" \"\>", "\<\" \"\>", "\<\" \ \"\>", "\<\" \"\>", "\<\" \"\>", "\<\" \"\>", "\<\" \"\>", "\<\" \"\>", "\<\" \ \"\>", "\<\" \"\>", "\<\" \"\>", "\<\" \"\>", "\<\" \"\>", "\<\" \"\>", "\<\" \ \"\>", "\<\" \"\>", "\<\" \"\>", "\<\" \"\>", "\<\" \"\>", "\<\" \"\>", "\<\" \ \"\>", "\<\" \"\>", "\<\" \"\>", "\<\" \"\>", "\<\" \"\>", "\<\" \"\>", "\<\" \ \"\>", "\<\" \"\>", "\<\" \"\>", "\<\" \"\>", "\<\" \"\>", "\<\" \"\>", "\<\" \ \"\>"}, {"\<\"C\"\>", "0", "0", "0", "0", "0", "0", "0", "0", "1.025839738003161`", "0", "0", "\<\" \"\>", "\<\" \"\>", "\<\" \"\>", "\<\" \"\>", "\<\" \"\>", "\ \<\" \"\>", "\<\" \"\>", "\<\" \"\>", "\<\" \"\>", "\<\" \"\>", "\<\" \"\>", \ "\<\" \"\>", "\<\" \"\>", "\<\" \"\>", "\<\" \"\>", "\<\" \"\>", "\<\" \"\>", \ "\<\" \"\>", "\<\" \"\>", "\<\" \"\>", "\<\" \"\>", "\<\" \"\>", "\<\" \"\>", \ "\<\" \"\>", "\<\" \"\>", "\<\" \"\>", "\<\" \"\>", "\<\" \"\>", "\<\" \"\>", \ "\<\" \"\>", "\<\" \"\>", "\<\" \"\>", "\<\" \"\>", "\<\" \"\>", "\<\" \"\>", \ "\<\" \"\>", "\<\" \"\>", "\<\" \"\>", "\<\" \"\>", "\<\" \"\>"}, {"\<\"C\"\>", "0", "0", "0", "0", "0", "0", "0", "0", "0", "0", "1.0760376752772804`", "0", "\<\" \"\>", "\<\" \"\>", "\<\" \"\>", "\<\" \"\>", "\<\" \"\>", "\ \<\" \"\>", "\<\" \"\>", "\<\" \"\>", "\<\" \"\>", "\<\" \"\>", "\<\" \"\>", \ "\<\" \"\>", "\<\" \"\>", "\<\" \"\>", "\<\" \"\>", "\<\" \"\>", "\<\" \"\>", \ "\<\" \"\>", "\<\" \"\>", "\<\" \"\>", "\<\" \"\>", "\<\" \"\>", "\<\" \"\>", \ "\<\" \"\>", "\<\" \"\>", "\<\" \"\>", "\<\" \"\>", "\<\" \"\>", "\<\" \"\>", \ "\<\" \"\>", "\<\" \"\>", "\<\" \"\>", "\<\" \"\>", "\<\" \"\>", "\<\" \"\>", \ "\<\" \"\>", "\<\" \"\>", "\<\" \"\>", "\<\" \"\>"}, {"\<\"C\"\>", "0", "0", "0", "0", "0", "0", "0", "0", "0", "0", "0", "1.1677932099947654`", "0", "\<\" \"\>", "\<\" \"\>", "\<\" \"\>", "\<\" \"\>", "\<\" \"\>", "\ \<\" \"\>", "\<\" \"\>", "\<\" \"\>", "\<\" \"\>", "\<\" \"\>", "\<\" \"\>", \ "\<\" \"\>", "\<\" \"\>", "\<\" \"\>", "\<\" \"\>", "\<\" \"\>", "\<\" \"\>", \ "\<\" \"\>", "\<\" \"\>", "\<\" \"\>", "\<\" \"\>", "\<\" \"\>", "\<\" \"\>", \ "\<\" \"\>", "\<\" \"\>", "\<\" \"\>", "\<\" \"\>", "\<\" \"\>", "\<\" \"\>", \ "\<\" \"\>", "\<\" \"\>", "\<\" \"\>", "\<\" \"\>", "\<\" \"\>", "\<\" \"\>", \ "\<\" \"\>", "\<\" \"\>", "\<\" \"\>"}, {"\<\"C\"\>", "0", "0", "0", "0", "0", "0", "0", "0", "0", "0", "0", "1.0289442947952179`", "0", "0", "\<\" \"\>", "\<\" \"\>", "\<\" \"\>", "\<\" \"\>", "\<\" \"\>", "\ \<\" \"\>", "\<\" \"\>", "\<\" \"\>", "\<\" \"\>", "\<\" \"\>", "\<\" \"\>", \ "\<\" \"\>", "\<\" \"\>", "\<\" \"\>", "\<\" \"\>", "\<\" \"\>", "\<\" \"\>", \ "\<\" \"\>", "\<\" \"\>", "\<\" \"\>", "\<\" \"\>", "\<\" \"\>", "\<\" \"\>", \ "\<\" \"\>", "\<\" \"\>", "\<\" \"\>", "\<\" \"\>", "\<\" \"\>", "\<\" \"\>", \ "\<\" \"\>", "\<\" \"\>", "\<\" \"\>", "\<\" \"\>", "\<\" \"\>", "\<\" \"\>", \ "\<\" \"\>", "\<\" \"\>"}, {"\<\"C\"\>", "0", "0", "0", "0", "0", "0", "0", "0", "0", "0", "0", "0", "0", "1.0760826962707348`", "0", "\<\" \"\>", "\<\" \"\>", "\<\" \"\>", "\<\" \"\>", "\<\" \"\>", "\ \<\" \"\>", "\<\" \"\>", "\<\" \"\>", "\<\" \"\>", "\<\" \"\>", "\<\" \"\>", \ "\<\" \"\>", "\<\" \"\>", "\<\" \"\>", "\<\" \"\>", "\<\" \"\>", "\<\" \"\>", \ "\<\" \"\>", "\<\" \"\>", "\<\" \"\>", "\<\" \"\>", "\<\" \"\>", "\<\" \"\>", \ "\<\" \"\>", "\<\" \"\>", "\<\" \"\>", "\<\" \"\>", "\<\" \"\>", "\<\" \"\>", \ "\<\" \"\>", "\<\" \"\>", "\<\" \"\>", "\<\" \"\>", "\<\" \"\>", "\<\" \"\>", \ "\<\" \"\>"}, {"\<\"C\"\>", "0", "0", "0", "0", "0", "0", "0", "0", "0", "0", "0", "0", "0", "0", "1.0258106188343346`", "0", "\<\" \"\>", "\<\" \"\>", "\<\" \"\>", "\<\" \"\>", "\<\" \"\>", "\ \<\" \"\>", "\<\" \"\>", "\<\" \"\>", "\<\" \"\>", "\<\" \"\>", "\<\" \"\>", \ "\<\" \"\>", "\<\" \"\>", "\<\" \"\>", "\<\" \"\>", "\<\" \"\>", "\<\" \"\>", \ "\<\" \"\>", "\<\" \"\>", "\<\" \"\>", "\<\" \"\>", "\<\" \"\>", "\<\" \"\>", \ "\<\" \"\>", "\<\" \"\>", "\<\" \"\>", "\<\" \"\>", "\<\" \"\>", "\<\" \"\>", \ "\<\" \"\>", "\<\" \"\>", "\<\" \"\>", "\<\" \"\>", "\<\" \"\>", "\<\" \"\>"}, {"\<\"C\"\>", "0", "0", "0", "0", "0", "0", "0", "0", "0", "0", "0", "0", "0", "0", "0", "1.1253355115916557`", "0", "\<\" \"\>", "\<\" \"\>", "\<\" \"\>", "\<\" \"\>", "\<\" \"\>", "\ \<\" \"\>", "\<\" \"\>", "\<\" \"\>", "\<\" \"\>", "\<\" \"\>", "\<\" \"\>", \ "\<\" \"\>", "\<\" \"\>", "\<\" \"\>", "\<\" \"\>", "\<\" \"\>", "\<\" \"\>", \ "\<\" \"\>", "\<\" \"\>", "\<\" \"\>", "\<\" \"\>", "\<\" \"\>", "\<\" \"\>", \ "\<\" \"\>", "\<\" \"\>", "\<\" \"\>", "\<\" \"\>", "\<\" \"\>", "\<\" \"\>", \ "\<\" \"\>", "\<\" \"\>", "\<\" \"\>", "\<\" \"\>", "\<\" \"\>"}, {"\<\"C\"\>", "0", "0", "0", "0", "0", "0", "0", "0", "0", "0", "0", "0", "0", "0", "0", "0", "1.1676500631247144`", "0", "\<\" \"\>", "\<\" \"\>", "\<\" \"\>", "\<\" \"\>", "\<\" \"\>", "\ \<\" \"\>", "\<\" \"\>", "\<\" \"\>", "\<\" \"\>", "\<\" \"\>", "\<\" \"\>", \ "\<\" \"\>", "\<\" \"\>", "\<\" \"\>", "\<\" \"\>", "\<\" \"\>", "\<\" \"\>", \ "\<\" \"\>", "\<\" \"\>", "\<\" \"\>", "\<\" \"\>", "\<\" \"\>", "\<\" \"\>", \ "\<\" \"\>", "\<\" \"\>", "\<\" \"\>", "\<\" \"\>", "\<\" \"\>", "\<\" \"\>", \ "\<\" \"\>", "\<\" \"\>", "\<\" \"\>", "\<\" \"\>"}, {"\<\"C\"\>", "0", "0", "0", "0", "0", "0", "0", "0", "0", "0", "0", "0", "0", "0", "0", "0", "1.0060089697829193`", "0", "0", "\<\" \"\>", "\<\" \"\>", "\<\" \"\>", "\<\" \"\>", "\<\" \"\>", "\ \<\" \"\>", "\<\" \"\>", "\<\" \"\>", "\<\" \"\>", "\<\" \"\>", "\<\" \"\>", \ "\<\" \"\>", "\<\" \"\>", "\<\" \"\>", "\<\" \"\>", "\<\" \"\>", "\<\" \"\>", \ "\<\" \"\>", "\<\" \"\>", "\<\" \"\>", "\<\" \"\>", "\<\" \"\>", "\<\" \"\>", \ "\<\" \"\>", "\<\" \"\>", "\<\" \"\>", "\<\" \"\>", "\<\" \"\>", "\<\" \"\>", \ "\<\" \"\>", "\<\" \"\>", "\<\" \"\>"}, {"\<\"C\"\>", "0", "0", "0", "0", "0", "0", "0", "0", "0", "0", "0", "0", "0", "0", "0", "0", "0", "0", "1.1686322579877293`", "0", "\<\" \"\>", "\<\" \"\>", "\<\" \"\>", "\<\" \"\>", "\<\" \"\>", "\ \<\" \"\>", "\<\" \"\>", "\<\" \"\>", "\<\" \"\>", "\<\" \"\>", "\<\" \"\>", \ "\<\" \"\>", "\<\" \"\>", "\<\" \"\>", "\<\" \"\>", "\<\" \"\>", "\<\" \"\>", \ "\<\" \"\>", "\<\" \"\>", "\<\" \"\>", "\<\" \"\>", "\<\" \"\>", "\<\" \"\>", \ "\<\" \"\>", "\<\" \"\>", "\<\" \"\>", "\<\" \"\>", "\<\" \"\>", "\<\" \"\>", \ "\<\" \"\>", "\<\" \"\>"}, {"\<\"O\"\>", "0", "0", "0", "0", "0", "0", "0", "0", "0", "0", "0", "0", "0", "0", "0", "0", "0", "0", "0", "1.1337187872076824`", "0", "\<\" \"\>", "\<\" \"\>", "\<\" \"\>", "\<\" \"\>", "\<\" \"\>", "\ \<\" \"\>", "\<\" \"\>", "\<\" \"\>", "\<\" \"\>", "\<\" \"\>", "\<\" \"\>", \ "\<\" \"\>", "\<\" \"\>", "\<\" \"\>", "\<\" \"\>", "\<\" \"\>", "\<\" \"\>", \ "\<\" \"\>", "\<\" \"\>", "\<\" \"\>", "\<\" \"\>", "\<\" \"\>", "\<\" \"\>", \ "\<\" \"\>", "\<\" \"\>", "\<\" \"\>", "\<\" \"\>", "\<\" \"\>", "\<\" \"\>", \ "\<\" \"\>"}, {"\<\"H\"\>", "0", "1.2357933686504747`", "0", "0", "0", "0", "0", "0", "0", "0", "0", "0", "0", "0", "0", "0", "0", "0", "0", "0", "0", "0", "\<\" \"\>", "\<\" \"\>", "\<\" \"\>", "\<\" \"\>", "\<\" \"\>", "\ \<\" \"\>", "\<\" \"\>", "\<\" \"\>", "\<\" \"\>", "\<\" \"\>", "\<\" \"\>", \ "\<\" \"\>", "\<\" \"\>", "\<\" \"\>", "\<\" \"\>", "\<\" \"\>", "\<\" \"\>", \ "\<\" \"\>", "\<\" \"\>", "\<\" \"\>", "\<\" \"\>", "\<\" \"\>", "\<\" \"\>", \ "\<\" \"\>", "\<\" \"\>", "\<\" \"\>", "\<\" \"\>", "\<\" \"\>", "\<\" \"\>"}, {"\<\"H\"\>", "0", "1.235476938118349`", "0", "0", "0", "0", "0", "0", "0", "0", "0", "0", "0", "0", "0", "0", "0", "0", "0", "0", "0", "0", "0", "\<\" \"\>", "\<\" \"\>", "\<\" \"\>", "\<\" \"\>", "\<\" \"\>", "\ \<\" \"\>", "\<\" \"\>", "\<\" \"\>", "\<\" \"\>", "\<\" \"\>", "\<\" \"\>", \ "\<\" \"\>", "\<\" \"\>", "\<\" \"\>", "\<\" \"\>", "\<\" \"\>", "\<\" \"\>", \ "\<\" \"\>", "\<\" \"\>", "\<\" \"\>", "\<\" \"\>", "\<\" \"\>", "\<\" \"\>", \ "\<\" \"\>", "\<\" \"\>", "\<\" \"\>", "\<\" \"\>", "\<\" \"\>"}, {"\<\"H\"\>", "0", "0", "1.2355730589675256`", "0", "0", "0", "0", "0", "0", "0", "0", "0", "0", "0", "0", "0", "0", "0", "0", "0", "0", "0", "0", "0", "\<\" \"\>", "\<\" \"\>", "\<\" \"\>", "\<\" \"\>", "\<\" \ \"\>", "\<\" \"\>", "\<\" \"\>", "\<\" \"\>", "\<\" \"\>", "\<\" \"\>", "\<\" \ \"\>", "\<\" \"\>", "\<\" \"\>", "\<\" \"\>", "\<\" \"\>", "\<\" \"\>", "\<\" \ \"\>", "\<\" \"\>", "\<\" \"\>", "\<\" \"\>", "\<\" \"\>", "\<\" \"\>", "\<\" \ \"\>", "\<\" \"\>", "\<\" \"\>", "\<\" \"\>", "\<\" \"\>"}, {"\<\"H\"\>", "0", "0", "1.2353780533600913`", "0", "0", "0", "0", "0", "0", "0", "0", "0", "0", "0", "0", "0", "0", "0", "0", "0", "0", "0", "0", "0", "0", "\<\" \"\>", "\<\" \"\>", "\<\" \"\>", "\<\" \"\>", "\<\" \"\>", "\ \<\" \"\>", "\<\" \"\>", "\<\" \"\>", "\<\" \"\>", "\<\" \"\>", "\<\" \"\>", \ "\<\" \"\>", "\<\" \"\>", "\<\" \"\>", "\<\" \"\>", "\<\" \"\>", "\<\" \"\>", \ "\<\" \"\>", "\<\" \"\>", "\<\" \"\>", "\<\" \"\>", "\<\" \"\>", "\<\" \"\>", \ "\<\" \"\>", "\<\" \"\>", "\<\" \"\>"}, {"\<\"H\"\>", "0", "0", "0", "0", "1.2353871297692312`", "0", "0", "0", "0", "0", "0", "0", "0", "0", "0", "0", "0", "0", "0", "0", "0", "0", "0", "0", "0", "0", "\<\" \"\>", "\<\" \"\>", "\<\" \"\>", "\<\" \"\>", "\<\" \"\>", "\ \<\" \"\>", "\<\" \"\>", "\<\" \"\>", "\<\" \"\>", "\<\" \"\>", "\<\" \"\>", \ "\<\" \"\>", "\<\" \"\>", "\<\" \"\>", "\<\" \"\>", "\<\" \"\>", "\<\" \"\>", \ "\<\" \"\>", "\<\" \"\>", "\<\" \"\>", "\<\" \"\>", "\<\" \"\>", "\<\" \"\>", \ "\<\" \"\>", "\<\" \"\>"}, {"\<\"H\"\>", "0", "0", "0", "0", "1.2356145987409288`", "0", "0", "0", "0", "0", "0", "0", "0", "0", "0", "0", "0", "0", "0", "0", "0", "0", "0", "0", "0", "0", "0", "\<\" \"\>", "\<\" \"\>", "\<\" \"\>", "\<\" \"\>", "\<\" \"\>", "\ \<\" \"\>", "\<\" \"\>", "\<\" \"\>", "\<\" \"\>", "\<\" \"\>", "\<\" \"\>", \ "\<\" \"\>", "\<\" \"\>", "\<\" \"\>", "\<\" \"\>", "\<\" \"\>", "\<\" \"\>", \ "\<\" \"\>", "\<\" \"\>", "\<\" \"\>", "\<\" \"\>", "\<\" \"\>", "\<\" \"\>", \ "\<\" \"\>"}, {"\<\"H\"\>", "0", "0", "0", "0", "0", "0", "1.233831756042301`", "0", "0", "0", "0", "0", "0", "0", "0", "0", "0", "0", "0", "0", "0", "0", "0", "0", "0", "0", "0", "0", "\<\" \"\>", "\<\" \"\>", "\<\" \"\>", "\<\" \"\>", "\<\" \"\>", "\ \<\" \"\>", "\<\" \"\>", "\<\" \"\>", "\<\" \"\>", "\<\" \"\>", "\<\" \"\>", \ "\<\" \"\>", "\<\" \"\>", "\<\" \"\>", "\<\" \"\>", "\<\" \"\>", "\<\" \"\>", \ "\<\" \"\>", "\<\" \"\>", "\<\" \"\>", "\<\" \"\>", "\<\" \"\>", "\<\" \"\>"}, {"\<\"H\"\>", "0", "0", "0", "0", "0", "0", "1.2335456477561668`", "0", "0", "0", "0", "0", "0", "0", "0", "0", "0", "0", "0", "0", "0", "0", "0", "0", "0", "0", "0", "0", "0", "\<\" \"\>", "\<\" \"\>", "\<\" \"\>", "\<\" \"\>", "\<\" \"\>", "\ \<\" \"\>", "\<\" \"\>", "\<\" \"\>", "\<\" \"\>", "\<\" \"\>", "\<\" \"\>", \ "\<\" \"\>", "\<\" \"\>", "\<\" \"\>", "\<\" \"\>", "\<\" \"\>", "\<\" \"\>", \ "\<\" \"\>", "\<\" \"\>", "\<\" \"\>", "\<\" \"\>", "\<\" \"\>"}, {"\<\"H\"\>", "0", "0", "0", "0", "0", "0", "1.233713033204844`", "0", "0", "0", "0", "0", "0", "0", "0", "0", "0", "0", "0", "0", "0", "0", "0", "0", "0", "0", "0", "0", "0", "0", "\<\" \"\>", "\<\" \"\>", "\<\" \"\>", "\<\" \"\>", "\<\" \"\>", "\ \<\" \"\>", "\<\" \"\>", "\<\" \"\>", "\<\" \"\>", "\<\" \"\>", "\<\" \"\>", \ "\<\" \"\>", "\<\" \"\>", "\<\" \"\>", "\<\" \"\>", "\<\" \"\>", "\<\" \"\>", \ "\<\" \"\>", "\<\" \"\>", "\<\" \"\>", "\<\" \"\>"}, {"\<\"H\"\>", "0", "0", "0", "0", "0", "0", "0", "1.2338903549200966`", "0", "0", "0", "0", "0", "0", "0", "0", "0", "0", "0", "0", "0", "0", "0", "0", "0", "0", "0", "0", "0", "0", "0", "\<\" \"\>", "\<\" \"\>", "\<\" \"\>", "\<\" \"\>", "\<\" \"\>", "\ \<\" \"\>", "\<\" \"\>", "\<\" \"\>", "\<\" \"\>", "\<\" \"\>", "\<\" \"\>", \ "\<\" \"\>", "\<\" \"\>", "\<\" \"\>", "\<\" \"\>", "\<\" \"\>", "\<\" \"\>", \ "\<\" \"\>", "\<\" \"\>", "\<\" \"\>"}, {"\<\"H\"\>", "0", "0", "0", "0", "0", "0", "0", "1.233839640489124`", "0", "0", "0", "0", "0", "0", "0", "0", "0", "0", "0", "0", "0", "0", "0", "0", "0", "0", "0", "0", "0", "0", "0", "0", "\<\" \"\>", "\<\" \"\>", "\<\" \"\>", "\<\" \"\>", "\<\" \"\>", "\ \<\" \"\>", "\<\" \"\>", "\<\" \"\>", "\<\" \"\>", "\<\" \"\>", "\<\" \"\>", \ "\<\" \"\>", "\<\" \"\>", "\<\" \"\>", "\<\" \"\>", "\<\" \"\>", "\<\" \"\>", \ "\<\" \"\>", "\<\" \"\>"}, {"\<\"H\"\>", "0", "0", "0", "0", "0", "0", "0", "1.2337521462040217`", "0", "0", "0", "0", "0", "0", "0", "0", "0", "0", "0", "0", "0", "0", "0", "0", "0", "0", "0", "0", "0", "0", "0", "0", "0", "\<\" \"\>", "\<\" \"\>", "\<\" \"\>", "\<\" \"\>", "\<\" \"\>", "\ \<\" \"\>", "\<\" \"\>", "\<\" \"\>", "\<\" \"\>", "\<\" \"\>", "\<\" \"\>", \ "\<\" \"\>", "\<\" \"\>", "\<\" \"\>", "\<\" \"\>", "\<\" \"\>", "\<\" \"\>", \ "\<\" \"\>"}, {"\<\"H\"\>", "0", "0", "0", "0", "0", "0", "0", "0", "1.2160885328938789`", "0", "0", "0", "0", "0", "0", "0", "0", "0", "0", "0", "0", "0", "0", "0", "0", "0", "0", "0", "0", "0", "0", "0", "0", "0", "\<\" \"\>", "\<\" \"\>", "\<\" \"\>", "\<\" \"\>", "\<\" \"\>", "\ \<\" \"\>", "\<\" \"\>", "\<\" \"\>", "\<\" \"\>", "\<\" \"\>", "\<\" \"\>", \ "\<\" \"\>", "\<\" \"\>", "\<\" \"\>", "\<\" \"\>", "\<\" \"\>", "\<\" \"\>"}, {"\<\"H\"\>", "0", "0", "0", "0", "0", "0", "0", "0", "0", "1.233887260061742`", "0", "0", "0", "0", "0", "0", "0", "0", "0", "0", "0", "0", "0", "0", "0", "0", "0", "0", "0", "0", "0", "0", "0", "0", "0", "\<\" \"\>", "\<\" \"\>", "\<\" \"\>", "\<\" \"\>", "\<\" \"\>", "\ \<\" \"\>", "\<\" \"\>", "\<\" \"\>", "\<\" \"\>", "\<\" \"\>", "\<\" \"\>", \ "\<\" \"\>", "\<\" \"\>", "\<\" \"\>", "\<\" \"\>", "\<\" \"\>"}, {"\<\"H\"\>", "0", "0", "0", "0", "0", "0", "0", "0", "0", "1.2337996583165434`", "0", "0", "0", "0", "0", "0", "0", "0", "0", "0", "0", "0", "0", "0", "0", "0", "0", "0", "0", "0", "0", "0", "0", "0", "0", "0", "\<\" \"\>", "\<\" \"\>", "\<\" \"\>", "\<\" \"\>", "\<\" \ \"\>", "\<\" \"\>", "\<\" \"\>", "\<\" \"\>", "\<\" \"\>", "\<\" \"\>", "\<\" \ \"\>", "\<\" \"\>", "\<\" \"\>", "\<\" \"\>", "\<\" \"\>"}, {"\<\"H\"\>", "0", "0", "0", "0", "0", "0", "0", "0", "0", "1.2337603015255403`", "0", "0", "0", "0", "0", "0", "0", "0", "0", "0", "0", "0", "0", "0", "0", "0", "0", "0", "0", "0", "0", "0", "0", "0", "0", "0", "0", "\<\" \"\>", "\<\" \"\>", "\<\" \"\>", "\<\" \"\>", "\<\" \"\>", "\ \<\" \"\>", "\<\" \"\>", "\<\" \"\>", "\<\" \"\>", "\<\" \"\>", "\<\" \"\>", \ "\<\" \"\>", "\<\" \"\>", "\<\" \"\>"}, {"\<\"H\"\>", "0", "0", "0", "0", "0", "0", "0", "0", "0", "0", "1.215846824723846`", "0", "0", "0", "0", "0", "0", "0", "0", "0", "0", "0", "0", "0", "0", "0", "0", "0", "0", "0", "0", "0", "0", "0", "0", "0", "0", "0", "\<\" \"\>", "\<\" \"\>", "\<\" \"\>", "\<\" \"\>", "\<\" \"\>", "\ \<\" \"\>", "\<\" \"\>", "\<\" \"\>", "\<\" \"\>", "\<\" \"\>", "\<\" \"\>", \ "\<\" \"\>", "\<\" \"\>"}, {"\<\"H\"\>", "0", "0", "0", "0", "0", "0", "0", "0", "0", "0", "0", "0", "1.2337025058258972`", "0", "0", "0", "0", "0", "0", "0", "0", "0", "0", "0", "0", "0", "0", "0", "0", "0", "0", "0", "0", "0", "0", "0", "0", "0", "0", "\<\" \"\>", "\<\" \"\>", "\<\" \"\>", "\<\" \"\>", "\<\" \"\>", "\ \<\" \"\>", "\<\" \"\>", "\<\" \"\>", "\<\" \"\>", "\<\" \"\>", "\<\" \"\>", \ "\<\" \"\>"}, {"\<\"H\"\>", "0", "0", "0", "0", "0", "0", "0", "0", "0", "0", "0", "0", "1.2337979822662262`", "0", "0", "0", "0", "0", "0", "0", "0", "0", "0", "0", "0", "0", "0", "0", "0", "0", "0", "0", "0", "0", "0", "0", "0", "0", "0", "0", "\<\" \"\>", "\<\" \"\>", "\<\" \"\>", "\<\" \"\>", "\<\" \"\>", "\ \<\" \"\>", "\<\" \"\>", "\<\" \"\>", "\<\" \"\>", "\<\" \"\>", "\<\" \"\>"}, {"\<\"H\"\>", "0", "0", "0", "0", "0", "0", "0", "0", "0", "0", "0", "0", "1.233767545619187`", "0", "0", "0", "0", "0", "0", "0", "0", "0", "0", "0", "0", "0", "0", "0", "0", "0", "0", "0", "0", "0", "0", "0", "0", "0", "0", "0", "0", "\<\" \"\>", "\<\" \"\>", "\<\" \"\>", "\<\" \"\>", "\<\" \"\>", "\ \<\" \"\>", "\<\" \"\>", "\<\" \"\>", "\<\" \"\>", "\<\" \"\>"}, {"\<\"H\"\>", "0", "0", "0", "0", "0", "0", "0", "0", "0", "0", "0", "0", "0", "1.2159849801037779`", "0", "0", "0", "0", "0", "0", "0", "0", "0", "0", "0", "0", "0", "0", "0", "0", "0", "0", "0", "0", "0", "0", "0", "0", "0", "0", "0", "0", "\<\" \"\>", "\<\" \"\>", "\<\" \"\>", "\<\" \"\>", "\<\" \"\>", "\ \<\" \"\>", "\<\" \"\>", "\<\" \"\>", "\<\" \"\>"}, {"\<\"H\"\>", "0", "0", "0", "0", "0", "0", "0", "0", "0", "0", "0", "0", "0", "0", "1.2157337494382179`", "0", "0", "0", "0", "0", "0", "0", "0", "0", "0", "0", "0", "0", "0", "0", "0", "0", "0", "0", "0", "0", "0", "0", "0", "0", "0", "0", "0", "\<\" \"\>", "\<\" \"\>", "\<\" \"\>", "\<\" \"\>", "\<\" \"\>", "\ \<\" \"\>", "\<\" \"\>", "\<\" \"\>"}, {"\<\"H\"\>", "0", "0", "0", "0", "0", "0", "0", "0", "0", "0", "0", "0", "0", "0", "0", "1.216034289865974`", "0", "0", "0", "0", "0", "0", "0", "0", "0", "0", "0", "0", "0", "0", "0", "0", "0", "0", "0", "0", "0", "0", "0", "0", "0", "0", "0", "0", "\<\" \"\>", "\<\" \"\>", "\<\" \"\>", "\<\" \"\>", "\<\" \"\>", "\ \<\" \"\>", "\<\" \"\>"}, {"\<\"H\"\>", "0", "0", "0", "0", "0", "0", "0", "0", "0", "0", "0", "0", "0", "0", "0", "0", "0", "1.2338277699890305`", "0", "0", "0", "0", "0", "0", "0", "0", "0", "0", "0", "0", "0", "0", "0", "0", "0", "0", "0", "0", "0", "0", "0", "0", "0", "0", "0", "\<\" \"\>", "\<\" \"\>", "\<\" \"\>", "\<\" \"\>", "\<\" \"\>", "\ \<\" \"\>"}, {"\<\"H\"\>", "0", "0", "0", "0", "0", "0", "0", "0", "0", "0", "0", "0", "0", "0", "0", "0", "0", "1.2336247627619663`", "0", "0", "0", "0", "0", "0", "0", "0", "0", "0", "0", "0", "0", "0", "0", "0", "0", "0", "0", "0", "0", "0", "0", "0", "0", "0", "0", "0", "\<\" \"\>", "\<\" \"\>", "\<\" \"\>", "\<\" \"\>", "\<\" \"\>"}, {"\<\"H\"\>", "0", "0", "0", "0", "0", "0", "0", "0", "0", "0", "0", "0", "0", "0", "0", "0", "0", "1.2339745373753002`", "0", "0", "0", "0", "0", "0", "0", "0", "0", "0", "0", "0", "0", "0", "0", "0", "0", "0", "0", "0", "0", "0", "0", "0", "0", "0", "0", "0", "0", "\<\" \"\>", "\<\" \"\>", "\<\" \"\>", "\<\" \"\>"}, {"\<\"H\"\>", "0", "0", "0", "0", "0", "0", "0", "0", "0", "0", "0", "0", "0", "0", "0", "0", "0", "0", "1.215917857231867`", "0", "0", "0", "0", "0", "0", "0", "0", "0", "0", "0", "0", "0", "0", "0", "0", "0", "0", "0", "0", "0", "0", "0", "0", "0", "0", "0", "0", "0", "\<\" \"\>", "\<\" \"\>", "\<\" \"\>"}, {"\<\"H\"\>", "0", "0", "0", "0", "0", "0", "0", "0", "0", "0", "0", "0", "0", "0", "0", "0", "0", "0", "0", "1.235479740145197`", "0", "0", "0", "0", "0", "0", "0", "0", "0", "0", "0", "0", "0", "0", "0", "0", "0", "0", "0", "0", "0", "0", "0", "0", "0", "0", "0", "0", "0", "\<\" \"\>", "\<\" \"\>"}, {"\<\"H\"\>", "0", "0", "0", "0", "0", "0", "0", "0", "0", "0", "0", "0", "0", "0", "0", "0", "0", "0", "0", "1.2355124012820666`", "0", "0", "0", "0", "0", "0", "0", "0", "0", "0", "0", "0", "0", "0", "0", "0", "0", "0", "0", "0", "0", "0", "0", "0", "0", "0", "0", "0", "0", "0", "\<\" \"\>"}, {"\<\"H\"\>", "0", "0", "0", "0", "0", "0", "0", "0", "0", "0", "0", "0", "0", "0", "0", "0", "0", "0", "0", "0", "1.1252864433636156`", "0", "0", "0", "0", "0", "0", "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.570942608086812*^9, 3.5709431863486276`*^9, 3.5709437250175743`*^9}] }, Open ]], Cell[BoxData[ RowBox[{"(*", " ", RowBox[{"sigma", " ", "bond", " ", "cloud", " ", "radii"}], " ", "*)"}]], "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.5681087223049684`*^9}, {3.5681133837179556`*^9, 3.5681133888191648`*^9}}], Cell[CellGroupData[{ Cell[BoxData[ 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[{ RowBox[{ RowBox[{"Pij", "[", RowBox[{"[", RowBox[{"i", ",", "j"}], "]"}], "]"}], ">", "0"}], " ", "&&", " ", RowBox[{"(", " ", RowBox[{ RowBox[{ RowBox[{"u", "[", RowBox[{"[", RowBox[{"i", "-", "1"}], "]"}], "]"}], "\[Equal]", "\"\\""}], " ", "||", " ", RowBox[{ RowBox[{"u", "[", RowBox[{"[", RowBox[{"j", "-", "1"}], "]"}], "]"}], "\[Equal]", "\"\\""}]}], " ", ")"}]}], ")"}], " ", ",", RowBox[{"Print", "[", RowBox[{ RowBox[{"u", "[", RowBox[{"[", RowBox[{"i", "-", "1"}], "]"}], "]"}], ",", RowBox[{"i", "-", "1"}], ",", "\"\< \>\"", ",", RowBox[{"u", "[", RowBox[{"[", RowBox[{"j", "-", "1"}], "]"}], "]"}], ",", RowBox[{"j", "-", "1"}], ",", "\"\< \>\"", ",", RowBox[{"Extract", "[", RowBox[{"Pij", ",", RowBox[{"{", RowBox[{"i", ",", "j"}], "}"}]}], "]"}]}], "]"}]}], "]"}]}], "]"}]}], "]"}]], "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}}], Cell[CellGroupData[{ Cell[BoxData[ InterpretationBox[ RowBox[{"\<\"O\"\>", "\[InvisibleSpace]", "21", "\[InvisibleSpace]", "\<\" \"\>", "\[InvisibleSpace]", "\<\"C\"\>", "\[InvisibleSpace]", "20", "\[InvisibleSpace]", "\<\" \"\>", "\[InvisibleSpace]", "1.1337187872076824`"}], SequenceForm["O", 21, " ", "C", 20, " ", 1.1337187872076824`], Editable->False]], "Print", CellChangeTimes->{3.570942608118012*^9, 3.5709431863798275`*^9, 3.570943725048774*^9}], Cell[BoxData[ InterpretationBox[ RowBox[{"\<\"H\"\>", "\[InvisibleSpace]", "51", "\[InvisibleSpace]", "\<\" \"\>", "\[InvisibleSpace]", "\<\"O\"\>", "\[InvisibleSpace]", "21", "\[InvisibleSpace]", "\<\" \"\>", "\[InvisibleSpace]", "1.1252864433636156`"}], SequenceForm["H", 51, " ", "O", 21, " ", 1.1252864433636156`], Editable->False]], "Print", CellChangeTimes->{3.570942608118012*^9, 3.5709431863798275`*^9, 3.570943725048774*^9}] }, Open ]] }, Open ]], Cell[BoxData[{ RowBox[{ RowBox[{"DeleteFile", "[", " ", "\"\\"", "]"}], ";"}], "\[IndentingNewLine]", RowBox[{"For", "[", RowBox[{ RowBox[{"i", "=", "2"}], ",", RowBox[{"i", "<", RowBox[{"n", "+", "2"}]}], ",", RowBox[{"i", "++"}], ",", "\[IndentingNewLine]", RowBox[{"For", "[", RowBox[{ RowBox[{"j", "=", "2"}], ",", RowBox[{"j", "\[LessEqual]", "i"}], ",", RowBox[{"j", "++"}], ",", "\[IndentingNewLine]", RowBox[{"If", "[", RowBox[{ RowBox[{ RowBox[{"Pij", "[", RowBox[{"[", RowBox[{"i", ",", "j"}], "]"}], "]"}], ">", "0"}], ",", RowBox[{ RowBox[{"{", RowBox[{ RowBox[{"i", "-", "1"}], ",", RowBox[{"j", "-", "1"}], ",", RowBox[{"Extract", "[", RowBox[{"Pij", ",", RowBox[{"{", RowBox[{"i", ",", "j"}], "}"}]}], "]"}]}], "}"}], ">>>", " ", "\"\\""}]}], "]"}]}], "]"}]}], "]"}]}], "Input", CellChangeTimes->{{3.5681154444347754`*^9, 3.568115497147268*^9}, { 3.568127214924899*^9, 3.568127265796589*^9}, {3.568128215276656*^9, 3.568128238536297*^9}, {3.568130718566253*^9, 3.5681307485339055`*^9}, 3.5681308175952272`*^9, {3.5681308916497574`*^9, 3.5681309458598523`*^9}, { 3.5681309983383446`*^9, 3.5681310118947687`*^9}, {3.5681310723448744`*^9, 3.568131074357278*^9}, {3.5681315215476637`*^9, 3.568131584509374*^9}, { 3.56813162789305*^9, 3.5681316427754765`*^9}, {3.5681317113063965`*^9, 3.568131715268804*^9}, {3.5681323203938665`*^9, 3.5681323260098763`*^9}, { 3.568132387567585*^9, 3.568132440014877*^9}, {3.5681325121026034`*^9, 3.568132590945142*^9}, {3.56813274298981*^9, 3.5681327548302307`*^9}, { 3.568132877867647*^9, 3.568132888335265*^9}, {3.568133052345154*^9, 3.568133072344389*^9}, {3.5681331740533676`*^9, 3.5681331951446047`*^9}, { 3.568133267793932*^9, 3.5681332684803333`*^9}, {3.5681335079111547`*^9, 3.568133536833606*^9}, {3.5681336272201643`*^9, 3.5681336314945717`*^9}, { 3.568133737994359*^9, 3.568133744000369*^9}, {3.568133978515581*^9, 3.5681339917912045`*^9}, {3.5681340324916763`*^9, 3.5681340418204927`*^9}, {3.568134244262048*^9, 3.5681342454944506`*^9}, { 3.5681343354754086`*^9, 3.568134336099409*^9}, {3.5681345828762426`*^9, 3.568134583952645*^9}, {3.5681348406666956`*^9, 3.5681348474683075`*^9}, 3.568134889151581*^9, {3.5681352914606876`*^9, 3.568135296265496*^9}, { 3.568135518877887*^9, 3.568135519595488*^9}, 3.5681357593679094`*^9, { 3.5681787035360527`*^9, 3.568178728449296*^9}, 3.5682779128076954`*^9}], 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.1903004568009017`"}], "}"}], ",", RowBox[{"{", RowBox[{"3", ",", "2", ",", "1.1938723648075746`"}], "}"}], ",", RowBox[{"{", RowBox[{"4", ",", "1", ",", "1.1625678924767877`"}], "}"}], ",", RowBox[{"{", RowBox[{"5", ",", "3", ",", "1.1922153222488148`"}], "}"}], ",", RowBox[{"{", RowBox[{"6", ",", "4", ",", "0.9927516555891638`"}], "}"}], ",", RowBox[{"{", RowBox[{"6", ",", "5", ",", "1.1628920151055262`"}], "}"}], ",", RowBox[{"{", RowBox[{"7", ",", "1", ",", "1.1894394105843251`"}], "}"}], ",", RowBox[{"{", RowBox[{"8", ",", "1", ",", "1.189548025774018`"}], "}"}], ",", RowBox[{"{", RowBox[{"9", ",", "4", ",", "1.1253183349388942`"}], "}"}], ",", RowBox[{"{", RowBox[{"10", ",", "6", ",", "1.1676678866153496`"}], "}"}], ",", RowBox[{"{", RowBox[{"11", ",", "9", ",", "1.025839738003161`"}], "}"}], ",", RowBox[{"{", RowBox[{"12", ",", "11", ",", "1.0760376752772804`"}], "}"}], ",", RowBox[{"{", RowBox[{"13", ",", "12", ",", "1.1677932099947654`"}], "}"}], ",", RowBox[{"{", RowBox[{"14", ",", "12", ",", "1.0289442947952179`"}], "}"}], ",", RowBox[{"{", RowBox[{"15", ",", "14", ",", "1.0760826962707348`"}], "}"}], ",", RowBox[{"{", RowBox[{"16", ",", "15", ",", "1.0258106188343346`"}], "}"}], ",", RowBox[{"{", RowBox[{"17", ",", "16", ",", "1.1253355115916557`"}], "}"}], ",", RowBox[{"{", RowBox[{"18", ",", "17", ",", "1.1676500631247144`"}], "}"}], ",", RowBox[{"{", RowBox[{"19", ",", "17", ",", "1.0060089697829193`"}], "}"}], ",", RowBox[{"{", RowBox[{"20", ",", "19", ",", "1.1686322579877293`"}], "}"}], ",", RowBox[{"{", RowBox[{"21", ",", "20", ",", "1.1337187872076824`"}], "}"}], ",", RowBox[{"{", RowBox[{"22", ",", "2", ",", "1.2357933686504747`"}], "}"}], ",", RowBox[{"{", RowBox[{"23", ",", "2", ",", "1.235476938118349`"}], "}"}], ",", RowBox[{"{", RowBox[{"24", ",", "3", ",", "1.2355730589675256`"}], "}"}], ",", RowBox[{"{", RowBox[{"25", ",", "3", ",", "1.2353780533600913`"}], "}"}], ",", RowBox[{"{", RowBox[{"26", ",", "5", ",", "1.2353871297692312`"}], "}"}], ",", RowBox[{"{", RowBox[{"27", ",", "5", ",", "1.2356145987409288`"}], "}"}], ",", RowBox[{"{", RowBox[{"28", ",", "7", ",", "1.233831756042301`"}], "}"}], ",", RowBox[{"{", RowBox[{"29", ",", "7", ",", "1.2335456477561668`"}], "}"}], ",", RowBox[{"{", RowBox[{"30", ",", "7", ",", "1.233713033204844`"}], "}"}], ",", RowBox[{"{", RowBox[{"31", ",", "8", ",", "1.2338903549200966`"}], "}"}], ",", RowBox[{"{", RowBox[{"32", ",", "8", ",", "1.233839640489124`"}], "}"}], ",", RowBox[{"{", RowBox[{"33", ",", "8", ",", "1.2337521462040217`"}], "}"}], ",", RowBox[{"{", RowBox[{"34", ",", "9", ",", "1.2160885328938789`"}], "}"}], ",", RowBox[{"{", RowBox[{"35", ",", "10", ",", "1.233887260061742`"}], "}"}], ",", RowBox[{"{", RowBox[{"36", ",", "10", ",", "1.2337996583165434`"}], "}"}], ",", RowBox[{"{", RowBox[{"37", ",", "10", ",", "1.2337603015255403`"}], "}"}], ",", RowBox[{"{", RowBox[{"38", ",", "11", ",", "1.215846824723846`"}], "}"}], ",", RowBox[{"{", RowBox[{"39", ",", "13", ",", "1.2337025058258972`"}], "}"}], ",", RowBox[{"{", RowBox[{"40", ",", "13", ",", "1.2337979822662262`"}], "}"}], ",", RowBox[{"{", RowBox[{"41", ",", "13", ",", "1.233767545619187`"}], "}"}], ",", RowBox[{"{", RowBox[{"42", ",", "14", ",", "1.2159849801037779`"}], "}"}], ",", RowBox[{"{", RowBox[{"43", ",", "15", ",", "1.2157337494382179`"}], "}"}], ",", RowBox[{"{", RowBox[{"44", ",", "16", ",", "1.216034289865974`"}], "}"}], ",", RowBox[{"{", RowBox[{"45", ",", "18", ",", "1.2338277699890305`"}], "}"}], ",", RowBox[{"{", RowBox[{"46", ",", "18", ",", "1.2336247627619663`"}], "}"}], ",", RowBox[{"{", RowBox[{"47", ",", "18", ",", "1.2339745373753002`"}], "}"}], ",", RowBox[{"{", RowBox[{"48", ",", "19", ",", "1.215917857231867`"}], "}"}], ",", RowBox[{"{", RowBox[{"49", ",", "20", ",", "1.235479740145197`"}], "}"}], ",", RowBox[{"{", RowBox[{"50", ",", "20", ",", "1.2355124012820666`"}], "}"}], ",", RowBox[{"{", RowBox[{"51", ",", "21", ",", "1.1252864433636156`"}], "}"}]}], "}"}]], "Output", CellChangeTimes->{3.570942608149212*^9, 3.570943186426628*^9, 3.570943725079974*^9}], Cell[BoxData["51"], "Output", CellChangeTimes->{3.570942608149212*^9, 3.570943186426628*^9, 3.570943725079974*^9}], Cell[BoxData["21"], "Output", CellChangeTimes->{3.570942608149212*^9, 3.570943186426628*^9, 3.570943725095574*^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[{"Gray", ",", "0.6"}], "]"}], ",", RowBox[{"{", RowBox[{ RowBox[{"Opacity", "[", "0.4", "]"}], ",", 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}}], 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[CellGroupData[{ Cell[BoxData[{ RowBox[{ RowBox[{"Plot9", "=", " ", RowBox[{"Table", "[", RowBox[{ RowBox[{"Graphics3D", "[", RowBox[{"{", RowBox[{"(*", RowBox[{ RowBox[{"Darker", "[", RowBox[{"Red", ",", "0.8"}], "]"}], ","}], "*)"}], 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[{"Show", "[", RowBox[{ "Plot1", ",", "Plot2", ",", "Plot7", ",", "Plot8", ",", "Plot9", ",", RowBox[{"{", RowBox[{ RowBox[{"AspectRatio", "\[Rule]", "Automatic"}], ",", RowBox[{"Boxed", "->", "False"}], ",", " ", RowBox[{"SphericalRegion", "\[Rule]", "True"}]}], "}"}]}], "]"}], "\[IndentingNewLine]", RowBox[{"Show", "[", RowBox[{"Plot1", ",", "Plot2", ",", "Plot9", ",", RowBox[{"{", RowBox[{ 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}}], Cell[BoxData[ Graphics3DBox[{ {RGBColor[0.7333333333333333, 0.6, 0.4666666666666667], SphereBox[{6.2984567579999995`, 0.87813677494, 4.5943018512}, 0.255]}, {RGBColor[0.7333333333333333, 0.6, 0.4666666666666667], SphereBox[{8.0912398142, 3.0808202978, 5.136275268}, 0.255]}, {RGBColor[0.7333333333333333, 0.6, 0.4666666666666667], SphereBox[{10.1614346472, 3.1034970098, 3.1087882425999998`}, 0.255]}, {RGBColor[0.7333333333333333, 0.6, 0.4666666666666667], SphereBox[{5.4828510164, 0.92895150708, 1.8780285960599998`}, 0.255]}, {RGBColor[0.7333333333333333, 0.6, 0.4666666666666667], SphereBox[{8.954466651, 3.8282069308, 0.5798057313199999}, 0.255]}, {RGBColor[0.7333333333333333, 0.6, 0.4666666666666667], SphereBox[{6.659205451399999, 2.2315774334, 0.10211134441}, 0.255]}, {RGBColor[0.7333333333333333, 0.6, 0.4666666666666667], SphereBox[{7.652445436999999, -1.61707633272, 5.1421334186}, 0.255]}, {RGBColor[0.7333333333333333, 0.6, 0.4666666666666667], SphereBox[{3.9725819972, 1.10059531966, 6.2977008676}, 0.255]}, {RGBColor[0.7333333333333333, 0.6, 0.4666666666666667], SphereBox[{3.2546750897999996`, -0.53636093058, 1.15904454484}, 0.255]}, {RGBColor[0.7333333333333333, 0.6, 0.4666666666666667], SphereBox[{5.6393203292, 2.1062885995999996`, -2.5537757163999997`}, 0.255]}, {RGBColor[0.7333333333333333, 0.6, 0.4666666666666667], SphereBox[{1.2153772769, 0.6439052372399999, 0.150276680698}, 0.255]}, {RGBColor[0.7333333333333333, 0.6, 0.4666666666666667], SphereBox[{-1.00289648546, -0.7372954961599999, -0.36513285772}, 0.255]}, {RGBColor[0.7333333333333333, 0.6, 0.4666666666666667], SphereBox[{-1.10875893598, -3.5256617982, 0.20480850387999996`}, 0.255]}, {RGBColor[0.7333333333333333, 0.6, 0.4666666666666667], SphereBox[{-3.047183175, 0.44584305518, -1.3762307540199998`}, 0.255]}, {RGBColor[0.7333333333333333, 0.6, 0.4666666666666667], SphereBox[{-5.1780382126, -0.97286873932, -2.1119577776}, 0.255]}, {RGBColor[0.7333333333333333, 0.6, 0.4666666666666667], SphereBox[{-7.2930195518, 0.22196721596, -2.9294532452}, 0.255]}, {RGBColor[0.7333333333333333, 0.6, 0.4666666666666667], SphereBox[{-9.5026761636, -1.24914668052, -3.692524604}, 0.255]}, {RGBColor[0.7333333333333333, 0.6, 0.4666666666666667], SphereBox[{-9.4310555482, -4.0933354886, -3.5706372769999994`}, 0.255]}, {RGBColor[0.7333333333333333, 0.6, 0.4666666666666667], SphereBox[{-11.584965243, -0.072731774288, -4.4973589074}, 0.255]}, {RGBColor[0.7333333333333333, 0.6, 0.4666666666666667], SphereBox[{-13.7116628834, -1.5733480730799998`, -5.6533043016}, 0.255]}, {RGBColor[1, NCache[ Rational[1, 3], 0.3333333333333333], NCache[ Rational[1, 3], 0.3333333333333333]], SphereBox[{-14.6026686924, -0.31240950232, -7.868819063999999}, 0.178]}, {RGBColor[0.7333333333333333, 0.6, 0.4666666666666667], SphereBox[{8.9455849388, 2.8361007808000003`, 6.994820788999999}, 0.1]}, {RGBColor[0.7333333333333333, 0.6, 0.4666666666666667], SphereBox[{7.045654418399999, 4.8545171214, 5.077693761999999}, 0.1]}, {RGBColor[0.7333333333333333, 0.6, 0.4666666666666667], SphereBox[{11.011055456799998`, 1.2324226054199998`, 2.9663029022}, 0.1]}, {RGBColor[0.7333333333333333, 0.6, 0.4666666666666667], SphereBox[{11.60291764, 4.4877213048, 3.6071089888}, 0.1]}, {RGBColor[0.7333333333333333, 0.6, 0.4666666666666667], SphereBox[{8.4075799466, 5.8133640938, 0.62856066212}, 0.1]}, {RGBColor[0.7333333333333333, 0.6, 0.4666666666666667], SphereBox[{10.3173370422, 3.5362442637999996`, -0.9369639453199999}, 0.1]}, {RGBColor[0.7333333333333333, 0.6, 0.4666666666666667], SphereBox[{6.3706442912, -3.1879677619999995`, 4.7785501362}, 0.1]}, {RGBColor[0.7333333333333333, 0.6, 0.4666666666666667], SphereBox[{8.2460083736, -1.6577243389799998`, 7.113873526999999}, 0.1]}, {RGBColor[0.7333333333333333, 0.6, 0.4666666666666667], SphereBox[{9.305010823999998, -1.78331552894, 3.924016039}, 0.1]}, {RGBColor[0.7333333333333333, 0.6, 0.4666666666666667], SphereBox[{2.6287978386, -0.38658124782, 5.8226237512}, 0.1]}, {RGBColor[0.7333333333333333, 0.6, 0.4666666666666667], SphereBox[{3.0889461196, 2.9398467381999995`, 6.0161316936}, 0.1]}, {RGBColor[0.7333333333333333, 0.6, 0.4666666666666667], SphereBox[{4.5430902766, 0.9068606101399999, 8.2673622774}, 0.1]}, {RGBColor[0.7333333333333333, 0.6, 0.4666666666666667], SphereBox[{3.2353998846, -2.5602007847999997`, 1.42313375334}, 0.1]}, {RGBColor[0.7333333333333333, 0.6, 0.4666666666666667], SphereBox[{6.8030136, 3.2707377608, -3.7919241915999997`}, 0.1]}, {RGBColor[0.7333333333333333, 0.6, 0.4666666666666667], SphereBox[{3.7010283709999996`, 2.8028416031999996`, -2.5785311269999998`}, 0.1]}, {RGBColor[0.7333333333333333, 0.6, 0.4666666666666667], SphereBox[{5.6759810136, 0.15492918610999998`, -3.2121562547999996`}, 0.1]}, {RGBColor[0.7333333333333333, 0.6, 0.4666666666666667], SphereBox[{1.29132536484, 2.6420259206, -0.2581365716}, 0.1]}, {RGBColor[0.7333333333333333, 0.6, 0.4666666666666667], SphereBox[{-0.33081543356, -4.5810737692, -1.38367627446}, 0.1]}, {RGBColor[0.7333333333333333, 0.6, 0.4666666666666667], SphereBox[{-3.0658914624, -4.0899339818, 0.51139765012}, 0.1]}, {RGBColor[0.7333333333333333, 0.6, 0.4666666666666667], SphereBox[{-0.0062334501835999995`, -3.9225042581999996`, 1.8987966848}, 0.1]}, {RGBColor[0.7333333333333333, 0.6, 0.4666666666666667], SphereBox[{-3.0381124902, 2.472706471, -1.61573462726}, 0.1]}, {RGBColor[0.7333333333333333, 0.6, 0.4666666666666667], SphereBox[{-5.1264486927999995`, -3.0110894083999997`, -2.024841409}, 0.1]}, {RGBColor[0.7333333333333333, 0.6, 0.4666666666666667], SphereBox[{-7.3442311263999995`, 2.2604902412, -3.0167585863999995`}, 0.1]}, {RGBColor[0.7333333333333333, 0.6, 0.4666666666666667], SphereBox[{-11.297726891, -4.846580272200001, -4.0077309008}, 0.1]}, {RGBColor[0.7333333333333333, 0.6, 0.4666666666666667], SphereBox[{-8.877554802799999, -4.6857645896, -1.6773019003399998`}, 0.1]}, {RGBColor[0.7333333333333333, 0.6, 0.4666666666666667], SphereBox[{-8.0659174858, -4.8050063002, -4.9393658188}, 0.1]}, {RGBColor[0.7333333333333333, 0.6, 0.4666666666666667], SphereBox[{-11.7452140078, 1.9541656565999999`, -4.3202915812}, 0.1]}, {RGBColor[0.7333333333333333, 0.6, 0.4666666666666667], SphereBox[{-15.250088819999998`, -1.7430832623999999`, -4.2942133624}, 0.1]}, {RGBColor[0.7333333333333333, 0.6, 0.4666666666666667], SphereBox[{-13.031550496, -3.4508286486, -6.158617033999999}, 0.1]}, {RGBColor[0.7333333333333333, 0.6, 0.4666666666666667], SphereBox[{-15.9583581248, -1.33242690534, -8.547797615799999}, 0.1]}, Text3DBox["1", {5.698456758, 0.87813677494, 4.5943018512}, {1, 0}], Text3DBox["2", {7.4912398142, 3.0808202978, 5.136275268}, {1, 0}], Text3DBox["3", {9.5614346472, 3.1034970098, 3.1087882425999998`}, {1, 0}], Text3DBox["4", {4.8828510164, 0.92895150708, 1.8780285960599998`}, {1, 0}], Text3DBox["5", {8.354466651000001, 3.8282069308, 0.5798057313199999}, {1, 0}], Text3DBox["6", {6.0592054513999996`, 2.2315774334, 0.10211134441}, { 1, 0}], Text3DBox["7", {7.052445436999999, -1.61707633272, 5.1421334186}, {1, 0}], Text3DBox["8", {3.3725819971999997`, 1.10059531966, 6.2977008676}, {1, 0}], Text3DBox["9", {2.6546750897999996`, -0.53636093058, 1.15904454484}, {1, 0}], Text3DBox["10", {5.039320329200001, 2.1062885995999996`, -2.5537757163999997`}, {1, 0}], Text3DBox["11", {0.6153772769, 0.6439052372399999, 0.150276680698}, {1, 0}], Text3DBox[ "12", {-1.60289648546, -0.7372954961599999, -0.36513285772}, {1, 0}], Text3DBox["13", {-1.7087589359800002`, -3.5256617982, 0.20480850387999996`}, {1, 0}], Text3DBox["14", {-3.647183175, 0.44584305518, -1.3762307540199998`}, {1, 0}], Text3DBox[ "15", {-5.778038212599999, -0.97286873932, -2.1119577776}, {1, 0}], Text3DBox["16", {-7.893019551799999, 0.22196721596, -2.9294532452}, {1, 0}], Text3DBox["17", {-10.1026761636, -1.24914668052, -3.692524604}, {1, 0}], Text3DBox[ "18", {-10.0310555482, -4.0933354886, -3.5706372769999994`}, {1, 0}], Text3DBox["19", {-12.184965242999999`, -0.072731774288, -4.4973589074}, {1, 0}], Text3DBox[ "20", {-14.3116628834, -1.5733480730799998`, -5.6533043016}, {1, 0}], Text3DBox["21", {-15.2026686924, -0.31240950232, -7.868819063999999}, {1, 0}], Text3DBox["22", {8.3455849388, 2.8361007808000003`, 6.994820788999999}, {1, 0}], Text3DBox["23", {6.445654418399999, 4.8545171214, 5.077693761999999}, {1, 0}], Text3DBox["24", {10.411055456799998`, 1.2324226054199998`, 2.9663029022}, {1, 0}], Text3DBox["25", {11.00291764, 4.4877213048, 3.6071089888}, {1, 0}], Text3DBox["26", {7.807579946600001, 5.8133640938, 0.62856066212}, {1, 0}], Text3DBox["27", {9.7173370422, 3.5362442637999996`, -0.9369639453199999}, { 1, 0}], Text3DBox["28", {5.7706442912, -3.1879677619999995`, 4.7785501362}, {1, 0}], Text3DBox["29", {7.646008373600001, -1.6577243389799998`, 7.113873526999999}, {1, 0}], Text3DBox["30", {8.705010823999999, -1.78331552894, 3.924016039}, {1, 0}], Text3DBox["31", {2.0287978386, -0.38658124782, 5.8226237512}, {1, 0}], Text3DBox["32", {2.4889461196, 2.9398467381999995`, 6.0161316936}, {1, 0}], Text3DBox["33", {3.9430902766, 0.9068606101399999, 8.2673622774}, {1, 0}], Text3DBox["34", {2.6353998846, -2.5602007847999997`, 1.42313375334}, {1, 0}], Text3DBox["35", {6.2030136, 3.2707377608, -3.7919241915999997`}, {1, 0}], Text3DBox["36", {3.1010283709999995`, 2.8028416031999996`, -2.5785311269999998`}, {1, 0}], Text3DBox["37", {5.075981013600001, 0.15492918610999998`, -3.2121562547999996`}, {1, 0}], Text3DBox["38", {0.6913253648400001, 2.6420259206, -0.2581365716}, {1, 0}], Text3DBox["39", {-0.93081543356, -4.5810737692, -1.38367627446}, {1, 0}], Text3DBox["40", {-3.6658914624000003`, -4.0899339818, 0.51139765012}, {1, 0}], Text3DBox["41", {-0.6062334501836, -3.9225042581999996`, 1.8987966848}, {1, 0}], Text3DBox["42", {-3.6381124902, 2.472706471, -1.61573462726}, {1, 0}], Text3DBox["43", {-5.726448692799999, -3.0110894083999997`, -2.024841409}, { 1, 0}], Text3DBox["44", {-7.944231126399999, 2.2604902412, -3.0167585863999995`}, {1, 0}], Text3DBox["45", {-11.897726891, -4.846580272200001, -4.0077309008}, {1, 0}], Text3DBox[ "46", {-9.477554802799999, -4.6857645896, -1.6773019003399998`}, {1, 0}], Text3DBox["47", {-8.6659174858, -4.8050063002, -4.9393658188}, {1, 0}], Text3DBox["48", {-12.3452140078, 1.9541656565999999`, -4.3202915812}, {1, 0}], Text3DBox[ "49", {-15.850088819999998`, -1.7430832623999999`, -4.2942133624}, {1, 0}], Text3DBox["50", {-13.631550496, -3.4508286486, -6.158617033999999}, { 1, 0}], Text3DBox[ "51", {-16.5583581248, -1.33242690534, -8.547797615799999}, {1, 0}], {RGBColor[0.2, 0.2, 0.2], {Opacity[0.4], SphereBox[{7.195065307464576, 1.9797451773236876`, 4.865354166986276}, 1.1903004568009017`]}}, {RGBColor[0.2, 0.2, 0.2], {Opacity[0.4], SphereBox[{9.126337230699999, 3.0921586538, 4.1225317553}, 1.1938723648075746`]}}, {RGBColor[0.2, 0.2, 0.2], {Opacity[0.4], SphereBox[{5.890653887199999, 0.90354414101, 3.2361652236299996`}, 1.1625678924767877`]}}, {RGBColor[0.2, 0.2, 0.2], {Opacity[0.4], SphereBox[{9.5579506491, 3.4658519703, 1.8442969869599999`}, 1.1922153222488148`]}}, {RGBColor[0.2, 0.2, 0.2], {Opacity[0.4], SphereBox[{6.0710282339, 1.58026447024, 0.990069970235}, 0.9927516555891638]}}, {RGBColor[0.2, 0.2, 0.2], {Opacity[0.4], SphereBox[{7.807119268525147, 3.030089193723594, 0.34101748162552803`}, 1.1628920151055262`]}}, {RGBColor[0.2, 0.2, 0.2], {Opacity[0.4], SphereBox[{6.975216947014566, -0.36903827206170825`, 4.868122896273723}, 1.1894394105843251`]}}, {RGBColor[0.2, 0.2, 0.2], {Opacity[0.4], SphereBox[{5.135921569876824, 0.9893275795758956, 5.4457068061676885`}, 1.189548025774018]}}, {RGBColor[0.2, 0.2, 0.2], {Opacity[0.4], SphereBox[{4.3687630530999995`, 0.19629528824999998`, 1.5185365704499998`}, 1.1253183349388942`]}}, {RGBColor[0.2, 0.2, 0.2], {Opacity[0.4], SphereBox[{6.14944195977895, 2.1689550144737897`, -1.2253658704249641`}, 1.1676678866153496`]}}, {RGBColor[0.2, 0.2, 0.2], {Opacity[0.4], SphereBox[{2.2350261833499996`, 0.05377215332999996, 0.654660612769}, 1.025839738003161]}}, {RGBColor[0.2, 0.2, 0.2], {Opacity[0.4], SphereBox[{ 0.10624039571999999`, -0.046695129459999984`, -0.107428088511}, 1.0760376752772804`]}}, {RGBColor[0.2, 0.2, 0.2], {Opacity[0.4], SphereBox[{-1.0558091252292516`, -2.130989114244999, \ -0.08026223732717044}, 1.1677932099947654`]}}, {RGBColor[0.2, 0.2, 0.2], {Opacity[0.4], SphereBox[{-2.02503983023, -0.14572622048999995`, -0.8706818058699999}, 1.0289442947952179`]}}, {RGBColor[0.2, 0.2, 0.2], {Opacity[0.4], SphereBox[{-4.1126106938, -0.2635128420699999, -1.7440942658099998`}, 1.0760826962707348`]}}, {RGBColor[0.2, 0.2, 0.2], {Opacity[0.4], SphereBox[{-6.2355288822, -0.3754507616799999, -2.5207055114}, 1.0258106188343346`]}}, {RGBColor[0.2, 0.2, 0.2], {Opacity[0.4], SphereBox[{-8.3978478577, -0.51358973228, -3.3109889246}, 1.1253355115916557`]}}, {RGBColor[0.2, 0.2, 0.2], {Opacity[0.4], SphereBox[{-9.46687843106807, -2.6707417010782457`, \ -3.6316023415116225`}, 1.1676500631247144`]}}, {RGBColor[0.2, 0.2, 0.2], {Opacity[0.4], SphereBox[{-10.5438207033, -0.660939227404, -4.0949417557}, 1.0060089697829193`]}}, {RGBColor[0.2, 0.2, 0.2], {Opacity[0.4], SphereBox[{-12.648575423259075`, -0.8232243416083211, \ -5.075473664166018}, 1.1686322579877293`]}}, {RGBColor[0.2, 0.2, 0.2], {Opacity[0.4], SphereBox[{-14.169868812021535`, -0.9249016511669437, -6.79264816313953}, 1.1337187872076824`]}}, {Opacity[0.5], SphereBox[{8.709489484663667, 2.9037282112593124`, 6.481217871187386}, 1.2357933686504747`]}, {Opacity[0.5], SphereBox[{7.3346428786614855`, 4.364286561484166, 5.0938850547310786`}, 1.235476938118349]}, {Opacity[0.5], SphereBox[{10.77624044002041, 1.7495431404822177`, 3.0056824668467543`}, 1.2355730589675256`]}, {Opacity[0.5], SphereBox[{11.204488251260202`, 4.1051183587434945`, 3.469371928219658}, 1.2353780533600913`]}, {Opacity[0.5], SphereBox[{8.558740089475585, 5.264664266257492, 0.6150847406058669}, 1.2353871297692312`]}, {Opacity[0.5], SphereBox[{9.940679624370931, 3.6169341848407526`, -0.5177732772025242}, 1.2356145987409288`]}, {Opacity[0.5], SphereBox[{6.724910793871082, -2.7538019676016257`, 4.879037936751255}, 1.233831756042301]}, {Opacity[0.5], SphereBox[{8.081935593676656, -1.6464884093520116`, 6.568844750903158}, 1.2335456477561668`]}, {Opacity[0.5], SphereBox[{8.848245507835912, -1.737367393018954, 4.260700913556169}, 1.233713033204844]}, {Opacity[0.5], SphereBox[{3.0001847523081597`, 0.024435589966594673`, 5.95392268258269}, 1.2338903549200966`]}, {Opacity[0.5], SphereBox[{3.333166055574349, 2.4315130737764017`, 6.093951989708165}, 1.233839640489124]}, {Opacity[0.5], SphereBox[{4.385406079469298, 0.9604074266018731, 7.722962679290262}, 1.2337521462040217`]}, {Opacity[0.5], SphereBox[{3.2407761209285644`, -1.9957117827605422`, 1.3494740448187397`}, 1.2160885328938789`]}, {Opacity[0.5], SphereBox[{6.481398630136755, 2.9489138822197276`, -3.4497317131095833`}, 1.233887260061742]}, {Opacity[0.5], SphereBox[{4.236745331311138, 2.6103240331788573`, -2.5716890755423845`}, 1.2337996583165434`]}, {Opacity[0.5], SphereBox[{5.665848316308251, 0.6942681146625476, -3.030185546735806}, 1.2337603015255403`]}, {Opacity[0.5], SphereBox[{1.2701394306775513`, 2.0846444987038364`, -0.14420853853229876`}, 1.215846824723846]}, {Opacity[0.5], SphereBox[{-0.5458383481192651, -4.289358808718669, -0.9446204488001934}, 1.2337025058258972`]}, {Opacity[0.5], SphereBox[{-2.524966790716883, -3.9339768651850755`, 0.42666060189627153`}, 1.2337979822662262`]}, {Opacity[0.5], SphereBox[{-0.31096092314473334`, -3.8128208072889964`, 1.4305945940112303`}, 1.233767545619187]}, {Opacity[0.5], SphereBox[{-3.0406426121298424`, 1.9073454546893096`, -1.5489288661374467`}, 1.2159849801037779`]}, {Opacity[0.5], SphereBox[{-5.140840532808636, -2.442490478124714, -2.0491441131904082`}, 1.2157337494382179`]}, {Opacity[0.5], SphereBox[{-7.32994682477678, 1.6918907012357107`, -2.992406751160414}, 1.216034289865974]}, {Opacity[0.5], SphereBox[{-10.781811914544614`, -4.638396723288159, \ -3.8869259463009813`}, 1.2338277699890305`]}, {Opacity[0.5], SphereBox[{-9.030547707164608, -4.522011515109373, -2.2006379222312407`}, 1.2336247627619663`]}, {Opacity[0.5], SphereBox[{-8.443190643707354, -4.608327076407212, -4.561100386529379}, 1.2339745373753002`]}, {Opacity[0.5], SphereBox[{-11.700513716959104`, 1.3887765581040856`, -4.369683294074904}, 1.215917857231867]}, {Opacity[0.5], SphereBox[{-14.824885159318958`, -1.6961703612792887`, \ -4.669850842760894}, 1.235479740145197]}, {Opacity[0.5], SphereBox[{-13.219522945289958`, -2.93192231956816, -6.018956481234968}, 1.2355124012820666`]}, {Opacity[0.5], SphereBox[{-15.569542264804337`, -1.0398828061626109`, \ -8.353064498297293}, 1.1252864433636156`]}, TubeBox[{{8.0912398142, 3.0808202978, 5.136275268}, {6.2984567579999995`, 0.87813677494, 4.5943018512}}, 0.15], TubeBox[{{10.1614346472, 3.1034970098, 3.1087882425999998`}, {8.0912398142, 3.0808202978, 5.136275268}}, 0.15], TubeBox[{{5.4828510164, 0.92895150708, 1.8780285960599998`}, { 6.2984567579999995`, 0.87813677494, 4.5943018512}}, 0.15], TubeBox[{{8.954466651, 3.8282069308, 0.5798057313199999}, {10.1614346472, 3.1034970098, 3.1087882425999998`}}, 0.15], TubeBox[{{6.659205451399999, 2.2315774334, 0.10211134441}, {5.4828510164, 0.92895150708, 1.8780285960599998`}}, 0.15], TubeBox[{{6.659205451399999, 2.2315774334, 0.10211134441}, {8.954466651, 3.8282069308, 0.5798057313199999}}, 0.15], TubeBox[{{7.652445436999999, -1.61707633272, 5.1421334186}, { 6.2984567579999995`, 0.87813677494, 4.5943018512}}, 0.15], TubeBox[{{3.9725819972, 1.10059531966, 6.2977008676}, {6.2984567579999995`, 0.87813677494, 4.5943018512}}, 0.15], TubeBox[{{3.2546750897999996`, -0.53636093058, 1.15904454484}, { 5.4828510164, 0.92895150708, 1.8780285960599998`}}, 0.15], TubeBox[{{5.6393203292, 2.1062885995999996`, -2.5537757163999997`}, { 6.659205451399999, 2.2315774334, 0.10211134441}}, 0.15], TubeBox[{{1.2153772769, 0.6439052372399999, 0.150276680698}, { 3.2546750897999996`, -0.53636093058, 1.15904454484}}, 0.15], TubeBox[{{-1.00289648546, -0.7372954961599999, -0.36513285772}, { 1.2153772769, 0.6439052372399999, 0.150276680698}}, 0.15], TubeBox[{{-1.10875893598, -3.5256617982, 0.20480850387999996`}, {-1.00289648546, -0.7372954961599999, \ -0.36513285772}}, 0.15], TubeBox[{{-3.047183175, 0.44584305518, -1.3762307540199998`}, {-1.00289648546, \ -0.7372954961599999, -0.36513285772}}, 0.15], TubeBox[{{-5.1780382126, -0.97286873932, -2.1119577776}, {-3.047183175, 0.44584305518, -1.3762307540199998`}}, 0.15], TubeBox[{{-7.2930195518, 0.22196721596, -2.9294532452}, {-5.1780382126, -0.97286873932, \ -2.1119577776}}, 0.15], TubeBox[{{-9.5026761636, -1.24914668052, -3.692524604}, {-7.2930195518, 0.22196721596, -2.9294532452}}, 0.15], TubeBox[{{-9.4310555482, -4.0933354886, -3.5706372769999994`}, \ {-9.5026761636, -1.24914668052, -3.692524604}}, 0.15], TubeBox[{{-11.584965243, -0.072731774288, -4.4973589074}, {-9.5026761636, \ -1.24914668052, -3.692524604}}, 0.15], TubeBox[{{-13.7116628834, -1.5733480730799998`, -5.6533043016}, \ {-11.584965243, -0.072731774288, -4.4973589074}}, 0.15], TubeBox[{{-14.6026686924, -0.31240950232, -7.868819063999999}, \ {-13.7116628834, -1.5733480730799998`, -5.6533043016}}, 0.15], TubeBox[{{8.9455849388, 2.8361007808000003`, 6.994820788999999}, { 8.0912398142, 3.0808202978, 5.136275268}}, 0.15], TubeBox[{{7.045654418399999, 4.8545171214, 5.077693761999999}, { 8.0912398142, 3.0808202978, 5.136275268}}, 0.15], TubeBox[{{11.011055456799998`, 1.2324226054199998`, 2.9663029022}, { 10.1614346472, 3.1034970098, 3.1087882425999998`}}, 0.15], TubeBox[{{11.60291764, 4.4877213048, 3.6071089888}, {10.1614346472, 3.1034970098, 3.1087882425999998`}}, 0.15], TubeBox[{{8.4075799466, 5.8133640938, 0.62856066212}, {8.954466651, 3.8282069308, 0.5798057313199999}}, 0.15], TubeBox[{{10.3173370422, 3.5362442637999996`, -0.9369639453199999}, { 8.954466651, 3.8282069308, 0.5798057313199999}}, 0.15], TubeBox[{{6.3706442912, -3.1879677619999995`, 4.7785501362}, { 7.652445436999999, -1.61707633272, 5.1421334186}}, 0.15], TubeBox[{{8.2460083736, -1.6577243389799998`, 7.113873526999999}, { 7.652445436999999, -1.61707633272, 5.1421334186}}, 0.15], TubeBox[{{9.305010823999998, -1.78331552894, 3.924016039}, { 7.652445436999999, -1.61707633272, 5.1421334186}}, 0.15], TubeBox[{{2.6287978386, -0.38658124782, 5.8226237512}, {3.9725819972, 1.10059531966, 6.2977008676}}, 0.15], TubeBox[{{3.0889461196, 2.9398467381999995`, 6.0161316936}, {3.9725819972, 1.10059531966, 6.2977008676}}, 0.15], TubeBox[{{4.5430902766, 0.9068606101399999, 8.2673622774}, {3.9725819972, 1.10059531966, 6.2977008676}}, 0.15], TubeBox[{{3.2353998846, -2.5602007847999997`, 1.42313375334}, { 3.2546750897999996`, -0.53636093058, 1.15904454484}}, 0.15], TubeBox[{{6.8030136, 3.2707377608, -3.7919241915999997`}, {5.6393203292, 2.1062885995999996`, -2.5537757163999997`}}, 0.15], TubeBox[{{3.7010283709999996`, 2.8028416031999996`, -2.5785311269999998`}, {5.6393203292, 2.1062885995999996`, -2.5537757163999997`}}, 0.15], TubeBox[{{5.6759810136, 0.15492918610999998`, -3.2121562547999996`}, { 5.6393203292, 2.1062885995999996`, -2.5537757163999997`}}, 0.15], TubeBox[{{1.29132536484, 2.6420259206, -0.2581365716}, {1.2153772769, 0.6439052372399999, 0.150276680698}}, 0.15], TubeBox[{{-0.33081543356, -4.5810737692, -1.38367627446}, {-1.10875893598, \ -3.5256617982, 0.20480850387999996`}}, 0.15], TubeBox[{{-3.0658914624, -4.0899339818, 0.51139765012}, {-1.10875893598, -3.5256617982, 0.20480850387999996`}}, 0.15], TubeBox[{{-0.0062334501835999995`, -3.9225042581999996`, 1.8987966848}, {-1.10875893598, -3.5256617982, 0.20480850387999996`}}, 0.15], TubeBox[{{-3.0381124902, 2.472706471, -1.61573462726}, {-3.047183175, 0.44584305518, -1.3762307540199998`}}, 0.15], TubeBox[{{-5.1264486927999995`, -3.0110894083999997`, -2.024841409}, \ {-5.1780382126, -0.97286873932, -2.1119577776}}, 0.15], TubeBox[{{-7.3442311263999995`, 2.2604902412, -3.0167585863999995`}, {-7.2930195518, 0.22196721596, -2.9294532452}}, 0.15], TubeBox[{{-11.297726891, -4.846580272200001, -4.0077309008}, \ {-9.4310555482, -4.0933354886, -3.5706372769999994`}}, 0.15], TubeBox[{{-8.877554802799999, -4.6857645896, -1.6773019003399998`}, \ {-9.4310555482, -4.0933354886, -3.5706372769999994`}}, 0.15], TubeBox[{{-8.0659174858, -4.8050063002, -4.9393658188}, {-9.4310555482, \ -4.0933354886, -3.5706372769999994`}}, 0.15], TubeBox[{{-11.7452140078, 1.9541656565999999`, -4.3202915812}, {-11.584965243, -0.072731774288, \ -4.4973589074}}, 0.15], TubeBox[{{-15.250088819999998`, -1.7430832623999999`, -4.2942133624}, \ {-13.7116628834, -1.5733480730799998`, -5.6533043016}}, 0.15], TubeBox[{{-13.031550496, -3.4508286486, -6.158617033999999}, \ {-13.7116628834, -1.5733480730799998`, -5.6533043016}}, 0.15], TubeBox[{{-15.9583581248, -1.33242690534, -8.547797615799999}, \ {-14.6026686924, -0.31240950232, -7.868819063999999}}, 0.15]}, AspectRatio->Automatic, Boxed->False, ImageSize->{390., 390.}, SphericalRegion->True, ViewPoint->{-1.2037540481702433`, -3.0444296859196056`, -0.8558177837631233}, ViewVertical->{ 0.07818575647655998, -1.026245140563744, -1.4170453182047085`}]], "Output", CellChangeTimes->{3.5709426082272124`*^9, 3.570943186520228*^9, 3.570943725173574*^9},ImageCache->GraphicsData["CompressedBitmap", "\<\ eJzsvHdcW2eaNny9SWZ3Zmdn3q3v7rs7u7OzO5n0SXHsxL0kTpvJJJmJk2y6 U9wxBjeMuw0Ym947SIBQoamghiRACAlEB9FE72DAxj3JNN5L5wiP8+1f3/+j n2+fIwmd5zzPfd33fV3Pec55ffuhXV8GbD+0+/Pt//Fy8PYDu3Z/fvA/XgoM 5kf3/y/gf0X47D/g218Clv9b4r+lC77/fJ/8ef/P+3/e//P+n/f/vP//bz9E 2NyP8DANLp7TCO+E7/9a/P6QsPkrREeXIylOh1yaLFYHVbQOpZd0KL/AbZgO yjM6FIXqhJ9+T/xpsLD5IeKilUhL1CIviX9G0yTqYEzQwcpDVcXoUBOlQ/VF 7vNQled0MJzQQX1QIxzqL8VDHfBt7vcVPp5qYYoOZTTf6z7h/++hnsdrorUk VaCZbTSzDXe8DnU8TXu4DpZQjditv7jngPg7ZMYrkJeiRlGqeLzKVBNqUyxo SLOhJb1K+KwruwrdOTb05FrQk2PmewPaM9hOsg4NPP/aM+XCob8jHjpQ2PwD MmPyIU0ugSxVD3WaVThUbZoDjWkutGXVoyvPLXw2IHNjqKgew3IXrQ6DMjv6 C2zozjOiPbMCLQlaOM8WC008cG8Tf4n8RAWKUiqw/LKnN8Kd2YL23Hb/yPw1 hlWdGC/pxERZBybL2rltwXhZE4aL69GvqEU3m+rM1qMtoQw1p2VL4kgLzewX Nv8Hktg8FCWpoUyphjpVPGtnZhda83qRuFkBz3618NmEZgDTugHMVvRjVu+l 9WKqogvjunYMqZvRxya7ZNXwZGvRGq/4n039E2TxciiSLChOaUBFaieqMvuE Q3fIRhD7YR8cwS0YCy0RPpszTWC+chwLljHaCGYrBzFp9mLE0I1+bTu6Shvg kdngySqFIypH9P9997Z3P+RxGigSHfdg6X40Fk7Ao5q557MfYP5cIRZsc7ha 7bNZLNRM43L1JKaqxjBqGcKAsRfdbNNTXAdPvp7YkXyrvQBh8yNIIzOhiDVD keBGSXIXjBlDqJVOokkxh66yKxjUXUPUF9P0xDimohowHybDtdrrWKxbxJW6 K5hzzGO6dhZjbPtcqBwXjisQHypD2tF8ZB3MgTKSMUa8F53VoeCE7g/3tv7v KLxQCEVMFZRxrShN9MKUPY7awlk0l1xFl+YGBo23MWG5g7yQRXRGj+Naci2u u77C9frbuFp/C/Ou64g6rUTsuVKknStG7lklZKfkUB0vQFlILiyMZCsj2cIz MPMMKk4y2o/qfnfvWfwHZOEKKKJqOQ4dKEsdhCl3ErXyeTSXXUdXxW0Mmr/G RNVvkbh7GIaLNzGePoI7mQbccP8Oi+6vkRRWgpSIcuRGlKEovASl51XQnpHD cLoQlhN5aIgXY9/N/FLP+KzjWdVE6GA7xbPZV/rNvWfzExSeU0IRWccz8vBs hmCUTKNWcQVN6pvoMnyFAQvPpuYbzDp+i/QTt9CUdg1X83twmyBODy9GZqQa EpoqshzaC2oYw9Swnmcs8SzrwuTozKiEJ9NMM3Jfj/Y0nZA5FAfyIN+Zh+zf pOHre0/pQUhP8ZTCHXSVByVpHATpLGpUi2hU30Cn8Sb6rbcxbr+DGedXmG/4 igN5BwP5l5F9Igu5kaUouKRF8UUjdBfNqIysRM0FC+ouVqIh2oimGC28+U5m mDoMFNaiKqIE1eFKVJ2TofKkFKajElTsy4H014koYTJWcNDyj2hw6964eRDy s/TfxU4oU0dQIZ1BlWoeDZqraDdeg9d2HSP2G5hy3sRsA1HTeAvRh/OQS//I zhZBecnKU7PDylG3RznhinWiMcGB1uQatKVUYlTVCmecmX40048GNLLcuFl+ nJEq1J6VwX4sD5Z96UK9sBJpRpYe/TEdbt57in8H2YlqOrYdqpRBaPImYVXO wqmeQ6txAT3WKxiyL2LcuYip+muYbWTYHS5E5mmmg/NGaM7pYbzYiOqo5uWq 48lqQEemHU0pDtzvz62dqTa0J5nRHK9HQ1Q5XGFFcIZmwRKQwB4RfTzzWsZD NWPBGFR6/d4TfBiSw2bIz7Uw//SjLGcUJvkEasum0KSfhcdyGd6aOQwx3sdc C0g/mQop0ZZ4wgbZuTrow5yojOpAbUIX3KndaM3qhifPI5xXS0Yz2rOa0ZXT LLzvy3GjJ5upN7MO7ek1RJ8F7lgN3BEyuE6ksJ6ZiMwKtLIGun1nHamF9Ujx tXtrzcMoCG1EUXQ3VBmDqCgYRlXJGFy6CbSaJ+GpmkaffQaDdTPIPp0LCQmB JMKOvNOt0IV3wB7dAkdaPxqzB9EuGUBXQb+Y1XO70C3pJiC7hfeD+V3ol3ag V9LG3jShLdvJeLOiMV6Nxsg8GA9HEbjV/N4i1iyygEaOu/FgweK9df1vkR/m gSzJi5K8fhgVg6gpH0K9fgQtlWPorBpHj30cOadkyDtnRl6YC2knulB2YQA1 CTzLlG40Ssb9uf8f0M5jdOUPwls4giHWId9rRD6EQfkAvPI+9Mi60JHfgpZc J5rTiIYEFZwXEjBa4sag0oleWQ08kkp0pmvRHKXyn+mvhM1f4ByzWAwxkszM nc4slXZeh6RTuh/5UZwV1AjJxT7I0rwolXphUPWjSj0Ap34AjSx4rbYhxn0x ck7bmI7dkEd0QnZhDJVJE2jMHBVOtrVoarkvmbsU0AY04EZ2h/DJWMk0hksn MUBv9hYPwCPvQltBM1py7MSRliOfgQmtByPqNvSXNqJbwfomZV9SS+G8mH9V 7Msvhc33kRinRRYzbyGtmNlXTfzryMAq2L8K9k3NhKJiTShgQvkX4Tf/grTD LciJ9kKS7oUq3wud0ovKci9qKryoM3qReawMmSdrkHO2GYUXu1GWOAht0hyc MeNCD4xnHIj5vEzYzwzohDb5d6wUvxXej6sXMKJhFGmml8O4tbAerRKT/53v 9QB6SIk8Cgc8ub70XOjv1Gt++pocX4YsUkoZk3Y5zcB9C+llDTvpYCfrYkWa KQR6hL/whej+Vfj5D5AW5UUWnVcoIRrl7F+pF0adF6lH1EgLtSODMSK51AdV 0ggyj89CetSO5ZNNDriMjPBvkCdd8qPxbzBafoWEah5DFXNkOVPoKR9BR3GP 39E2NOcUiX23iEjtIwHzlDXCU1TFmCr2d+4VkU36Xj8k0dLdpZANfgLdSlrZ kVqBdn7nC7OWJLGoOsj5q5hwNXuKxR7+FPGpXqSxd3kKL2RlXiQGqZF4xEEU tyHzohcFCaNIDq5mQhbzUfiOWUSf/EbYzzcuYSB3FEN5I+jLHEZf9gg6pcOY tCyiv2IWPdoxtBMNvlebqhqNUjlm7HPC+2HrGLwmL7p8vKuEuJTr4EpPvXJP D/H3yElUCX+t8neyOrUSLuaU5nSb8L47uxp9uVXol9hoFnglZvQSCF3ZFWhL EzNiXYQWmr1yP2b/Cbt2B2LP7gPYuzsI+2jnPkjB+U8VOL9Hj0uHq1FZOIfE 4BoUnG8T2ghLWEKieklsr/gK+suuEpcsQbSxigVMGOlP9QQjbMjv5+8zCq1o zSmBPS4BNScKMFE7L3zjtQ6h20Cfat3wlJrQnJ8Nf5df9suCnHgZ8qk8lKkG sctpdtSn1aE1o94Prb9iAmvAqKIeY0xQY0oHRuU1TG5WpmIj+TmLQbKvEJT/ sz8I9uwJxN69BxCwNwj79wYj0Gd7gnHmnSSEfVyEsN0ViDxcRZ87kHG0A7a0 OWhSOsXO/B/UFs2jsfQKOrVX0WdYxLB5kbR5ESO0IctVeM1z6CGd9706DU3w aExYcg9gydmBJVu52HFS7S5zHzxGRqvOiha55Fv9/kcU0NXyFCM1CslFWoNY DLNbhW2/rAMjyk5hf6qsEzPqdsxo2jCtacFUeSPGSl0YUtWir8jKMKHAoyh0 RSh57gKJ38e+38+eBwk9D6Ldh2D+/78RzFE4/9+FCNupReRBK8KIgZwTjVAn dKDdMAd7rheu/BE0srq3lU6TZ88yJi+Ta8/xGMOmOR7DzVhuMs2iyTKBJptY GxsNlcL2D3O/x9fjg+IQ1Eygi997LK3wGKrQqMpb9v1Lfq0mjcuHnDFcnGKH PrURNWliou/M7xXHY7cWowFxwv6cvh/zBi8WjH2YN3Zj1uChXmvDqLYJAxyP bgW1moRhkFT8j8Lhv8NxCETAvgMI3BeEoH3BCN7nG4mDew/eh0N7D7Lwnvl1 Ps5/pkbEASOi9lWRtDSSVjdDEVcLa1YXxc4AXEUcjuJxtKkn0aWbQq9+Cl7j FPqNk+gjCpbTX6PBBatKg4XGO/6w+A6GnfPw2kk5alisqkgTzFW4eu8QUEPG lVBDitrdlN4JR5aYP7oUYka07GnE8BERVFepHxeZRxato7hqHcaclRK2shfj pi5m2Fb0llFDypk5s8vJRwuYT3xtfI9xEIj9/nE4IIzDIRykHdp3GId9FnCY p3yE//8bzn5QitD/1uL4bjOiT1uRcMGAgmgbGZIR1pxu1JAN1SmH0Fg2glbN KDoqRuGpGKGHh9FpHkJbJUu9pQ/1phbU6Oy40niTnPoGZtzXMd7AAOKQ9NUR GQ4iw96CTotleUi2CpsHkBeZQQ8YSDWdUCe1Lyvd1qIJ9JTOYFh72T/A/xtz ZxS4RpV7veYyrpHTLdqnME+2NFM9gjMhRYgMVSA2RI4k0uWUA1Ik7c1GNkte 8jE1q5OYgAL2BnB0Av2jc9A/OodxKOCIMCpHCdQj+4/iqGBHELAmg6NkRuzR WoSfrsTZ42XIvmhCPlWANNIMc14XbLJe1KoYS6X9cKu9aCI/aCJw3eZeOCu7 YTd7YNO778PlxkV8l4z+KqbdTK8N8xh0XUavi6LeyexR24gWi+Fb4/OfKIgs oIqyQRHfBA3ptDVrGK7CSZYc/tJHIpizYj8chjlkCGMRLixSSN+qu4Ybzqu4 5lxA9BlS83MlyDpbjPwzKhSdUkAZWoSSI/koCc6FgbxAR/KTsF2C2A/ykEdZ WkhZWkTOUEQJk88BzD2u+65wOo8wz/jQde/YHRHG7jBHThi3wBCE+OyAuN3z fBjObmPAHazF2YMGXDxpQGKYARmX9Eg/r4cmsw16SQfMsk7YVF2oLu+CXedB DQPeZvLAZPTAoG/FRP08pjhgU+452mVMNsxipH4GAw1T6G5gZa7vRrvDhaqK sm8j7KeQRRZDEW2HKraNid8LW9446uWzaC+7wnRHQWi+hWnbbWQGXUbbhUFc ia/Grfo7iD1dhORwMiwKehmpcAkFvfZ8MQxnlTCdlKMytACWkDwUB9ECJVDt k6BopwSFH0tgIvOyRPunHDjCRo6whvSy+Ij2O/443b+HSGTuFrI2EbiMwsMB IRzJEI7kMcZByIFjjNM3HwlE/K58lKbJcfwjDY7tMuAERzP8hAGxHMXki3ok njdAxdEszW+HWtEOXUkHKtRkndpOlOk6oWJJGXSQUzunOXLTGKWNuKYwXD+B Afc4et1kayxsba521NfYsXjvKD4IGUdCccmJ4ngeMn0INukU6pVzaFdfY928 yZp5B9PVX+OK47eoOL+AUUqclMMpyLxQzhj3TUKooYssh4nvbeHlsBOTjnNU 9yekqDmeg8oTEliP045JYD4sgZ4jqtnBEf11Bqk+xZR/ysThm46liDOH6vCA XwDu37ufw0hQ7j3EAniEQ3nUD0hxGI9yEI8JFooXHn4TZ95OhyJKibJCBY4F hfDzEATv1OPQIQNOckjDOaRnT5QjM6UVuTltkBS0IV/eDmlxO3KKO5Aub0Sn bQzdNWPoqyXVc9DqRuF1jaC3YRhdbqofN+VaAxNAXfO1e0fyH1B4jkr+got4 7IImYxjWgmm4ihfQpr2OXtNtjNi+wrT9ayw4v0FmyCKigvOQdTwfBSdyUUyO q79kIK5MZPUmuC6ZHvBnzPoIxV2qvDz3XHVUisoACYrfSUV3ph6eDB06yByb SJmdvvnnc1rc78dj4B4fFg8KgxjMqD4Y4BvEYzgiDGAokRjK4x4LOo4fYe+6 i8iltCuVqvhJKO2YMJAhB5gBDhzBrkA99oXqcfCsHucvteBCchsuZLQhPLsN RsrEamZJJ0t8o3kQLVYq76pBdNgH0OEYQLtrAK0NXrhpdbSaOs93/FOiFxhJ 0cxJMYymy/cO6pMoOF0ORbiLpaQb6swRWApm4Cy5ilbdNfSYb2C46iamHLcx 57qNRfcdRB0pQtZJFUqYHisu2WC7ZEfdpVq4ox1oia+ldreIzD5OJKrtcXp0 xoo8vTNa1HSq/VEo2nERkvfD8ekrH+DTl9/HJy+9hw9f3CbOwlOKuZg8fGcY sGvPPSN8mCN8lCMcgsMc3fuE8f13hHBsfeP768cOI4GcvjSzBPGJ4QgNDqVx hGkh/lE+EshKvv8gPXSAbG8PMk56kBPrhTSTWq7AiwqfVqXiqaaec1Cruixe 1FfTajnyTi/sLi+s3Jocvff5JXJsjAYJjLIsWj67Kme0qVgJShhxJRx5FUdd 7ptzO6phMRard8QF0SOx57k9pVknfPxdRPOn8bQ0/jybkM2N1EHCP8v1FZOT uth7ffe3yD6qhPysE4qYLvZ5BObCaThK5tCsWyCtvorBqmuYcFzHZdcNZJ+T IOaQEhknjCg/UwnbOQOFnxtiFLxKYejAvS9vajUsZ6TCvv5EJtQhKSgNioVq ZySk75/Fzl98jB2vfYTP6b/t9N3HW7ahLVkDZ5iKPtuHQGqowD2H6LMjos/2 HxN85vPY0QPHBZ9tfvRdqo0clulSlMhUCD14nP46LvhN8FkwfRbk89kR2iH6 LYjH2if0Pu5YM1Lpt6wMKtR8+o5+01JVGsghzGaalUa/6e1eqGv4va1X+F0i 20ojvrJ98p9Wyn0t9aCRzqvkyFs58rZIcRbSd+VKT8fpQnRQBJbhe36Hx8So Ec+/T6fl+S6e8XdK/q6YDi/2OZxOlZ/m58d0WLV8xSymFMlsJ5Xt5XBbwNSs JFhKmU3K6WkN29SyTTU9XcaCV8bfKoLKou7lwf8I2UnfrHYnillIDPkTqCme RqN2lpxyDv1VLB61VzDluoq880UoICdNOVaL0tP1qD7nQsOFWrSmiPOJHWmi hOrJbvLnvH+D/YLIny2nC2Hz58SK03lQh6ajLDgGqh3nsfeNz7DnV9ux6/VP 8OUvPsJnr7yPT31Rm1iCgJ17Ra/vXvZ6CCPV53XR40fp8RB6d+/GWOScJi0o KGPboQdPMEGJnvd53ZcrfbH6AI4wHx4+wEgNpNcD9j7gD5E4OjyNDs+lwwvo 8CIGqoyKJ5/Bmmvou88fG+mJ5JspDDqaiqalmenvKo5/LcffyfGvp+/c9EED zUU/1F3yX1Wg74wHy/GXft/5fJbB3+bTVNxX8/cV/K2Jfq+k3y1+vJh9VzqJ lwr6rixYvUL4+d/wVDTIpPbOoRXQVEn+Q/AUBL7jg5yvOvMwNjZvZZWuPEM7 wdM4rLn0bQhIDtshj/DNgRPwkmHYlGNwachrTdPosc1i0H4ZmSczID1fjoKI KhRfaIDiTDtsFzrRHN+Ctux+dOcNCO7tlXSjP99zFwLOGKOwVxOpQVWEOMli vKCA9qwU5cfTUB4UiYIvT2Dfr7/Anrc+x643PsWXr3+Mz159H9tffBuNCYUI 3HUPBAKWAz+U7gwVIPDW48cQF6BCcVY5jtH5IgS+K0Dg2EERAiEM/qMEwZEg JusDlGCBQT/0q9XsRPFKYUEqkytNn1rhF5ffR1OymQg3oz3NhI50nxmI9Aph sqspUZy7dzLxVoWW+ikQcZJQimw6RcK/kdPKU/7ndKAzVqRQ9dEiThx+nFQx ViuZ1J/2z/tmM//l+uekinicUlpFkk4c3b+CPbYCdTyMy3eomArhkC7/xSzf TKODfq85ob547wzI3yL/VCuK4npQmj0AU9EgaikpGyvGKAkn0Fs9ieyTBZAw meeHOVAa0cIU0Q1T1ADcqfRzRhd6C8fuXgYdKPLSuu+hOv+C6hgrqqPFYm2K 1qAiUonyc3koP5aA4gOnsX/bbuzbthN7fvMldr65Hc8/+hyef/hZPPfg01j9 zAasXbEZa1e+gHWrtt4Nd5+vNzz6AU6/Rx4aVw6lrOQ+n7N9/x1nWB1jGviT n5nggxjqQQdx6MAB/MCP85wEOYNXTEklaQbo0ypRlWpDHQuTQDDSa9GZ5UB3 jgO9ebXok9jhldbAK6ni+0p0ZRv5NxXCLGfjJQ1qQlW4zx/QWYnFyEvRIp/O UtK0NHOKHtXJRjgTjXAnmdCcJM4ot6caaQZaxfIwCjhisNpPlpNBieQ0L7mM h9OiME30fxlxaUgRw8meWMnDiryoKdmKlhQrWlMttEqaCS3JBjQmVghXN90X tXCeKY38Nggy9jmRf6EHslRWMykZinIADs0gGo3DaLeOIPuECrlnLJCcbyDt 6GA164MmehzOtAkG+wj6GPDLfPd2bBkaUuu/BQIrVbk5Sg19TDnUF2RQn0kn AMJx4D1qrXf3Yv1T67H+yXVY+8RqrH1sFdY8sgKP/dvDWPfMZqx79gWsX/Ui Njz3EjY9/xID9jj2bE5A1hk1lAVqbHt5O7a9tB1vb92+7P+Qg37f044Eky4z zg/R/wcPBIr+F8/1IVjTHHR4PZrSxSUKXXlN6MtvxkBhM4aKmjEsb8KIwo0R eT2Gi3yXP+3oldrgyTGS0ejQHFUqjGB2fJEAJp93VMwIWmaISnrAnlqF+pQa NKfZ0U5AebJqxbqYy+Pk1Yj7OVZ4skUw+MDku9zqPFOCJ/zkWppUjMJUjX90 fa+/gTVZBGl9Uh2aUpxizc108TgudOU40Z1bx20trYafWwlUE9qSKtDK8Xef U164d777aWQeaYUkpg9F5KjqQnq/hDxU048GY79wLSX7ZDUkp5tQHOmBPoEq gVywKv2y0Opg0Tg8cnHlQ9beOmH7h3pyQk2xsO/KbIQlqZ5WA3O8CXqOmDZK BXVEDlEQjc308KYVm7DpmY3Y+PR6bHhyLdb//Hmse+xZrP7Zz7Hu6U1EwBYB AU8/vBbPPLoebz5+EjH7S6HI0uDDVz/FR698SqR9/PKnZFAfbv0U77/wCbZt /MjvfnL54CM4FEwlHxSMA4H78df+VQUFCTLhHJWpYuyYUt2wpzfDTUXUliNO gnplXRhSdGNU1Y3xki5MlHowWeZbG9OO8dIWDBc3ol/hQjeR4ck1ozNVjaYo OQtxMYroNTmRoE6zwUwE2FOdqCfaWoi2juxGEYTfI9BE8A3KfNfYRYB4cngo AqmVwVR3tgiPCaf8z5DEF0KWUsrDimmgOE2ctLQQBLXJ4vx1s3Axt0UEl6SV gG6Ft6AV/QR1f2ET993okRIoeT5AEsxspyOuBA0RBWv9mvNSlEbUCqxGKSwf mSwf2axIOWSeOad9E09abBFB9Ko/56WFepBNwlyQ5UUZhY6x2Aubxov0w2pk htqRd7YZiks90CUPwpo9DkPqAhqkV0VE/xOyDl+FUfd7LL/cHH9XTiscOU0w sXOmpCro4yvIY+XQRElRePw8thAXm33GEuHDzyYBP2uw/onnsPbRp/D4jx8R sCO28R2c+G+K9XgNCgtL8Omrn2D7qz7cfMb/v4vtxNCnL32Cj178GB9s+oiY IbUgbg4GH0RwUJBYNZ6APFEFBWnA8suS0oG6jG5Ero6C+YUY4bMh1SDGSocw qR7CtHYQM/71TdO6PkxqCSVNJwbL29Bb7LvERh/kGZF2NI70gFI51cwEUkva UQ9bWhNc6a1ozmxHZ24nevJFcj2k6BK2Y8UeYZmW7zVa3IphVZPo80IHPBIm lXQtZbLSj50HUJQkhyJFzTYqoUq1L1eb6tRWnH42/p58/QMW9R70F/ViUN6D IWUPhpXdNA/3O4j2NvTImtCVz3yTW0X4aNGRWITVQjN/haR4LZLJblJJQX1X dqWsOkV+yep7lZHJlp3TLTdfdkQr/NBnG0RI/ULYPCfor1zScTnpuJp0PCVI g9QjDmSfboUsqpdcagSmnElUF1ymHqolR25A3B5ReWTlLkFTs4TGnC405XXB LfEwvqtgYJmvzmlARUotdIlmaOJKUXg+BQWnw/HCyhexhfYCK84WYmqzkJPW YeNTzEePP4Mtq9bhyQefx1MPrRba2Lk5CWlnNJAVaLDmsfWsXOupWkhZf0n7 BRXMLz/G59Sx26ljP3nlQ3z4wvvE02EEsRT9wJ/dC2PyoOBoKZLtd2lyVUYf AlfnQflpCxw7RbCNlk8SPJOY0U/ismECc0aaaYw2imnjEMYN/Riq6EGfugNd PmDJqpEVmkzLZX6rJV9oZP/bmIM8cGf1oD2vj0DppzcHmMMG715DnPItyNOI 15MmND0YVYug6yW4uoqcwqoET3opqb4Uj/g5szSGGjtJSXAZCa5alKS4/cf7 e9Sm9SDm7XbYD7WLx5ENsc1hDBUPY6RkGKMMlLEyBkzZAEbKvBgsYR8I7C5F KzyFPoRZ4MksRUtiLhEhCp4M8mmf4BF4NSumnONXQqRpyJsqokWUmXyX1X2a iRnLdFb8zHxMC0NQ2YZ7VyA8gUusavFEWSZRFhegQeJhB1JOtyEvqg/K5FFo s6dgyp+B/IyYXmOP3EByrnhl9nr5APolLfDmcsQz3agi0TVGV0CfYUZltgPl SVaUJalRGJkK6ZnzeHHVS3iBRPaFlVuZvXwoY+VbsZ6Zaw1eXL0Zzz26Au9S 7Dz9szXC8SMDSplQNVj9ONH1+Aase2IDdvzqc47uzl99RkWwkwJpxxuf4Itf fYjtv/wAn/C3H7z47g/9WrYohhGfYKFz6lGaJBa06qxh5t0JxO+bFn30z+jZ r8S0YR6XzfOYr5zDgtVns5izzWDGMokJyxiGTUPwVvSiS92G9KNU2MdzkX1c TpnohoZJsDK9F47MAcbaEP02ij7FGIZKJjBWPrEMrRn9OPI/TxPeLaVIMa4X VWIfIdZV3CzmQgklVYbMD63vk91LePbMWclVNDdKk9tRkSwuXajLHMKhbcNQ Bo+h9YznbvIaKZ/CmHqK8OWpaycwoRvHmHYUQxp2gYq+q7QLHiXb8+VJqYGk qQAr/SOWmViKXMqqvFTRClLEBchqQkwfr1vmuPaLFYKk+lPOvB+1Z7SoCSkR DrTuXoj9NS5R9yQyBWbTYrbLkbDDjMSDTuroNhSGd8FVNo+2iiuQhTXCltou 1qt/RU/5EPp8CCvvR29ZL1yFTtSRIDQXNqI+z87xNvDPFbDEZUB7PhynHn8T v9z4Bl7f8CsijOha6auPG4iwtUTQKtpKrHrkabz51EmhhRyywdx8FT/f6Gfv 38Wut77Ava/P3vwQn7z+Plri1XCcVohp6yEoYsqgiK8hulqIrB4Y04dQkzsB t2wWHaoFxB5ehPb0FTSfZUifsKA/oBBXqq7javU1XKlZxHzNFcxUz2OiagYj lnH0mwfRXdGFrGOpyDkhp6mhSmqDLqkXVh7bmTuGloJJdCtmMFAyixH1Zfp1 jrAVF3ZIviyF+qgXU8ppv0P+AsMUL/0VXnQzJXqKG4gvch1pySP+VUSKuCJm XhPhVUdrZTe6oU8aIrMdhSt3Ei3504jYNQvzmcsYuNSFmfBiwoinXDGPSf28 0PSkYZaZdwbDzMr9uhF0k/B4SjvhUbnhUbC5wpLly0ox9H2Cb+o1Wpx6zaPA kzJBSc5x/xRpFZPTz/zaNJssQ0qxl0+W5zMZkVhMJGqS9DBQP1rjxaLgiBWJ a0O8Fe4E/36Cie9FYehmyXVHqOGkfFt37xKlnyCR/kwnqPNpxf45ytgPZUjZ YUR6cB1yTpKuRXRCHdMFU2IPbAmj0KW1wVnYgbbiNrgrF+Eq9aJZ3Y92nRed tA4SnDZtL5rKu+EqYc4vrkeVgrK6QAl1ahyr/gWqvhMoDwpC+Zdf+jH393jp p6ux4V9+gswnnhU+ycstxcpHN+K5xzfh+Sc2CZ+t+flGYbvr7Z3Y+fYOfPn2 F/j8N58Jn/nWo3uySJbjiv119Sko2HVFbB2Uce0oTeyHKXMMdukMGuUL6Cy9 Bq/2BqJO3IE28g5ao6cxcrEJU6dUWKy9g0XHbcw7bmC2dhGTNXMYqZpCP1Vw j7EX2aF5dFUxAWqAKrELFWkDsGWNwyWdRqt8Dt0lVzCkXsRYxTVMGa9h1nwN OTsd0J27DLd8Eb11VzDdTRQxv45UTqCfebWHddtT3gJPCROSggowO/3hZZDG ljDObIyzRpqHIO0nhRlFNYtSvfQyWmUL6FJdRUbINTREX8FUUhfmIgrZ9A1M m69jhs1PmRcxbl7AiGkW/aQOPRVM0Rp/k6XMuSrt8sRFQpwaKYniLHI2EZEf 7xtFVteYP80iawhaDUFbRtCWh/K7Q5qf+qlfQWo5ZD68CpitQHGqEZpkC4wk 79bEGtjja+GMr1uesGqhHmpNE9Wrb7qlNa1G2G9NMpO4atF6sYRqVbb2XqGx BhlJGmE2zRcQFTQLWUANU3Sdb/b7EwMyD1BsnHQTvS3QxrZDx7rtSvagzzzL NOJljNthTq+DNcvJlOWCPc8Fh8SFWokTVXlOaIs6YSCd1pe5YCyphE6uREFh KVS0soJSlEtLUJ6jRHlGvnC25bEidy47GYqXH3oaug8+Ej9/9ynseXMPVjy2 ESuJ4lU/F5H83JMb8OW2Pfhi2y58tm0HxnRiYe5htHgKSdszy9EQW/DXy0C+ aIAiup5A9qAseQim7EnYC+bQSK93qm+wKN/BqOlrxJ75PdQJf0Br6nWMp3gx H63HovMrLDhvY7buBiYdVzBiJwKqxtFdOUAQy1jEmXeOW1Ac30cgU9TnTrHI zKFNtcjicx1DultMb7eR+LkSmTu7URFzC271HfQ1MkDsDBBm8klm8RFm8QGS hB5jPzw6pj8Nu1JmQmthrgjkx9kFtbCgRxHXAmV8D0oThlk0yN1zL6O+4Ara FNcYOzcR/skMVBF30J22iCuZnRg7oyIHuYNZ6y1MW28wbhYZN/MsGNNsbgwe CitPBRO8llyx3MgmM4gQ7d0J8fxksYCXER06otkYK86p+xYA2PyrwS3kiJW+ udaT5IqUI8W7FT/x849Cyng5ZbyCGtkn5eWpVsqOGhiSHUQ0wZPohjO5CY2p zXcpdEd2K8y/OCO868ptIoUV9X1HloOanqmKp9MRo4QrLIdwvmce7p+QFF3A sy5n8ucZ00y06lQ9XCkGNCX7Vi8bkPTfGmQG1NBxLhRFNCA32AxDRD3c2W3s fRsacjtQnmCFLqUaxowa8lA7rDk+dWHLteNvYcmrgUlSBZ3EAmkKS21CJhIj L2Ht069g07OvYuvKl7GHquhMVini8kuQKRNncpRFSpQWyhH9Uejd69iWE69h 5ePrsOqJdczU68kk1tHWCt/ueHMnvvzVjj8tw9J3k+qR1at864GNaCfNuwvy CNbhi4zZqG4OL5FBINqZ2tzF19ChuQWv4SuMVn6NqapvMGv/BiXpS2jO+y3G 8yaxmO7AZJgas66bmHQSHbVz6K+ZQrd1CDkhSmZqM8eqSkidFRnjqJLOwiUn 4kquo0dzG0P6rxD9WQUyA6egS/09Goy/R3fb73DV8TUWWAlmaxk8dh6XlWDA NomeyiF0mbrhMZDz6yxoU0pFkP8rFJcqyIx8F0zboUrwMl7HYMyaQbVkAfVF 1xhXN9Fdfhv92q8RdfhrVCb9HqPSRdykhJhh12aqvqLdJiu6gRHbVcbUZfSY J9kcM7aJrNVIWlFRiYTTGRxWHz/9HmRMgSUEuZaoMjJtW+MrUB1Lehotzvy7 KEfuExYVfAcOvncwhdeG+SaXNTAFKvFj/xSwNE5KAcdqw6P6ZgiUqdUUcnXQ JTfwPJtRk8zin9wBd7oHLVldaM8R5/kTXy9GZ4gDt7Isd5lXd0EbuqQ+5FMw ZhLxjKDOxIJvgX0dpVsxq4QGZWl6mNLMsKeRxaRVoS2jGl1ZNejLrcGApAZp X1Qj82g9pOcbIDvhgDmhAXW5DajJaUZdXgtcec0s8ZVQp1igy7BCn2mFIYvb HL7Pq0S5xAQVdUVmcj6SYlOxmSJsC23tM69h08pXKcpextZnKcSe20KasRrP /HSV0I8nHt2E0IAoyC5F4ZPn30TKlq14/ucbsJa2zmcE/Hqa77X3rT3Y/dZu 7Hxzl/B+pHIQXn0Xuso5CooqePJLlrEuP0+VHEGsxzILpo7AkDeDmqIFNJRe R7v2JvqMtzBsIQiq72DGfgdzdXcgy1mCu+iPGFMs4GpBOxaSNZhwXceIg5nQ TqzXEOtHfazExsRu53AMoiJrErb8OUjON0EZ2QZNTCfCt7uQcfQ6tNSvrqol dHQuYaHuG1yp+xrzbGe27hYLxTUWigUMVDPDWkfhsfbCU0m5ZLChtaRAxPrP oYjUE+8uhmwHlDEDDNtxGLIvozr/CuoV1/mnt8m8v2J9+gZDxt8iKXyJomUJ c8oFfC1zkv0T6zW+bt5k/VhEv20ePZYpNjdMIzuxNCHlfB5Sz2ahgHyiyH9B roIp0JxkQnWCGY6EStST97oTrWii1PbdptKSUomWZN/1FaN40cN3K9AlLerP l8F2qOjf/cRKnkj2n1JKM9NqqWMbGK7NMCS1w0Ze50jtQUMG+W02+W3eIB04 hLg34slbGzGUNYQ7tkFh7qRf4UWPnLq4yANPAUcpj9ktx3f/VgmaE9JX33tx dQMkCUUoTClnR8wwku3Y0xyEvAsdmQ3oyXNjoKARw0WN9HMjJqgh0vbXI2Gn HbJzbhjSm5lMGlGZ1cBC3YDavAYYSPwV8WSiyUbhIlYJFWFJjgHKXD1keRVk 0jrExeVi48oXsZGQ3/TcS9hMW7PiNX72Kp74yZNY+ZOf45kH1+DpB18ToPvk 6rew9pMz2PBUPI5uOYu0Vz7Eiv9ahVX/JYbF2v9aiXU/FZn63rVvIWADbdMb 2LnudeGz7a9tp5RrJwHgSCipiVOTvu+/iFV0mpgJaxDSfLHvNjBCv6poDvWl V9GmIzk2Xceglfyl+gamam9i1nkTc0zrUuKmrnSJxPoG5ku8WJRUYLhuQdTJ /5fI/9OErO+VdorJIpw841I7Tn3ShbTT30AtW0Jt7RIa2v4AZ46HCs9DanQH 867bmGEzE06mXFKk/poZdFcT9dVEvY0E2WyDuyQPd2EfXiEsElNc8pDLDLJK T8CQM0eNQz2kvImWstvo0pIi6e9g0PwVxe1XkCUvoUv5B9xQT+G3RSZM229h gvRpuOYa+qsX0MNI81SPCG2mns9FRrhEoNByko6SVBMruQWVyVVkuTWoS6yF m4q1OcVJzuxER4YTnVkcacF8lyxrWFltaGNCbaNcbI1VoylctQx7RaIcCt+t hMnU7szsKmZ1DTWDKbmXjhqAK2MIjdkjaJWMobOAWqFoEvFvm9EQMYar2knc rGnHUOk4BkvG4C1mIVRR8MrJ+AqZ5wqoJfIr4MmWrL53IdEzyInJhSypFEoG mzbVAVuamy21oDW7HT3STgwweEZVHkyWeDBT7sGsuhMF7yUjcVcjcn3XDeLd FKmN0PB3hqx6VOa4oEk0IOcSpQCJnZQ1UJpOuFMEZmdXII3bxPQyrFvxAtY/ +yLWr9yKDau2CpcQ1z+3FU8+8iqe+skzAliefvANPPX0O8L+qodX4NmfEeoP r8a7q2MQ+fIR5Lz8C2x8fD02PbF+eaZny1PrcPg9MdEva5mdv9mJL974Ap++ 9jFLdIPARY8HpSOBPDOFPDOVJTfxjO4v/cvipFT7irM+GHUx9QwzIU/CWkSB UjKHFt0Cuo2EovUqRqqvYpwydKpukQSHVr+IguyvYdUsodfwNWZ1Y1hU1mA4 UbyfOiuIhO6QEQkBBoTtrxSWR/te+7ZpEfLxKJIj/oji4iVYXUuoymhHLT1Q l9sOZ14b62gb5utvYIaFZYJEaphStb92Ft0O0uxahkMN05vV6p+bexhyUmZF mFOYJlDEDjIBTbLmzsFWeBVO5TU0l91AJwtaj+EmBsw3MUwKn3x0GhXSJYxo v8HXhmHcKdRi3H6NoXCVoTeP7toZtjWC1HNZyA7LRdKJdJwLSkZYUAaiD+Qg OVBC8luAvEAm0gNy4cbFjuwW8uxWJlDxmleftBl9+U3Lt2p1ZrH8phrQEV+K louyH/m5miw6i4q6GIqkSppLmAJSJfZAm9BPvjOM2vQx1FNrNUum0V44iy75 ZURvy0HJvj4M5s/jlnMOw2qfXcagegbe8gl0l7F2Ffcx7VGQKKmBFBZGhgrf CoeHUBhXyOaYqVl3DClNqEnrhJt0qjO/D15FP0ZLBjClHsSsdhDz+gEsGPrR eqwOt0uZH461IOVsC7KjmlGY0AQVQ6Issx7a7DrIEvXIzjAgkSGRyJCIY/64 RBkenlSOD98JwOpnSHBWvIg1DIm1DIk1gr2Ix3/yNMNgFZ566Dd3r0FsXrsJ K8jmVz6xAc8/uRmrH0rA/o0XkfLKHqRvegVbnvVfK1m5hdvNCP78EA58EYz9 XwRh77v7sGvbbuz49ZfY8/klRJ2WIeWkFOkh6ShhOS4nGdUwLjQRVDnUXspT OshCfARVnIWQHXcwx3ZAlURakTMGs2wStSXiSrQOw2X0WsjEqyg77fMYJwOa dM1jyjV/H6br5/Dv0FaQ2FT+AZPmy7iqbhRLwt58JO4sxvnPyxEWYEbUEXGq 4dD2OcRHLaGofAmG+iWY05phzWwWuGVtno9f0iRNqJM28r0b484FDNXNweuc QZeTZcLZI9wf0G41/uM9105jY3RIpmWyp3nsqZQZwHeHa+4ZHbJDtfj+8n0n J8uYBtjbiA6G0ACUaRPQ5szCUjgPh/IKmsquop2FsdtwDX3mayyODJWqa0iP +gr2kiXMVN7CHyzdGKvladl5Wo7L6HaSRDlH6MmkE2k+TXkiF+FB2YgMkiIh UIZ0kv68A8UoDCqD8jC5yFENykM10J7QoF/mv6tW3kXzYEDeAW9RG3oKxfvw PDnV8KTr0ZmkhPNCNv51WfhEZzNJUyYnVN+dqlIxkLTJo7Ck0nsUQQ15TG0F C+iQX0W3ahHR77soUK5i3nwd1+qHMMp+juquYEjru0txhtpsnFmUzKuMWquM qafUTu2o/nYwvSKs/1EkVqM8uZHe8wi37jRLh9CtGMUgK9WEZgKz+kksmCZx tXIC5h02zBeMYqlhBPPWQQ6hF5fOtSIhugXpiU3IYUDlZzqZZWsRxSC9xNRx Ic2IIzEV+OXre/Hmm/vwm9/sw8qnNmPV01vw+EPP49EHV+LF9VQSG2gbX8Xj Dz+HZ594Hs8/vYr2NB5/ZB0ef3QjHn9sMxXEZqx9cgtefSYZZ7eeR+5rH2LL iq14gbXqBf8loYMfHEQQLfD9IAT8934E7riIg7ujEbI7Cud2XYLsrFTQepZ4 HaoYUHbqOrvvXlLCzEaYmfy3tysDy+73LxyQHqqG7Hwb5HF9KM0chD5/BNW+ pX3qCbRweDorp9Frmxb4zxCT8GjdDMYI8nHXNMZcUxh1TULOwHJb/4gRotD3 mssvQuxncpz/tGT5ZuH9O27iUvwSJKxPJc4lcguS1DQqyEw3bNluVDOGaiQN sEvrUStxcd8Ja54Dg2ymt55Kt54Z1NWFTocLDZUV4r1TPxCuKfvmJTNpUmY3 BTteyo6rGV+6SxQF7LiOHdew4+XHKRQOa1mTxRt15CdJdehgRbQXxSljUOdM w1wwC7vyMhrK5tGinUengSXXvACvlbqnaoHlaAFZ2X9Ei2EJi9T+f7Q1CXeq 93EkuurHEXc0Fkkn0xlbOUgILUTEgUJEM66S95ciO1CDgmCe4xE9SkKNUJ8g gzttWl7tMVLSj+FiLwaKe9CnFC+uegrrxUvpWVp0pEr/FFZREqYFcua4Olor lHE9KI4dhi5pApb0WThyF+DOX0Rr0XV0knxeeF8BRdAE+uRf4Vojyaf+Nkb1 NzFmuI5hPSusfg49OnZBy8ylI3PTkaZrqdHV+uWwelHYvAbpxRw2aWIku6BO bIclrY8kgcSQhLCnZAbDmsuYMsxjzjyPq9Z5SL8oxxBH9/eOWfzOM4KFmknM kkdP2oYwYu5j0+04GdWIsPh6RCQ6sCfcgIBdh7F/z1EE7juKoP0hWLd6K9av eQkb17yMJ362Ej9/iPbwStK1VXjy0VV45D+fweqntmLzupfw5JPP4r2tX+KZ R1ZjxWPrseqJTRTvW7DuyRew7j8j8dn6RMS9FgLpq68L1/VfXPkCgj88iIO0 oI+CceDDIBzZfQkhe2Nwal8MLuyNRtyeS9Cek6I2SSc8Hch3H28zkdbi2yb4 b3Xx3bYdyVAj0gzB5ff7pzeloc2QXepBUUo/1Hm+lZRDqCkdRr1uFC3GMXRY xtFdNY6+mnFyqnEMOMihaQPOMfTXj6DXPYyCsj/AZhUvLHcdrsKRdRdx4dVM vPWCiJJziUtI1S4hx/o1lLEOlCXWIS/ahMJ4E8zZTlhynbDlOVElqeO2FjaJ HRZJNfob2LabHm/oR0d9O1pq6/7efyU9M0mLrBRxdapPFpSz53r21Mye2li/ qn3PQfGtRo0Ub1S3+mZKTzPBhGhRskf1XT+bLTxqhfx0o7C+R0nuVJ41DkP+ JGyKKeq2Gbg1M2jVz6LTRDZpmUWfbZbCZxYDTDZFiiX0VP0Rt1yXGWbV0BRY UVZQiaRjcQyxPCSeKEJYYCEuBBYjdr8GaQf0yA0yoehIJYpDrSg/ZYPubDUM YeKSOMsFcTvGxDamHqONYqh8GN4ycVGDR0FRV0DM51Ok5yr/FGsXpUwRZihi 6mkdjDUvSn0XvVKmYcliOZYswl14A62K2+gsuYMLH7ejOt43Z/d7zDcxYRq/ ot3GmOkmRkwUdmTwPQbyRsMEPEaWMZOHWwqDCtO3Y+0XKIwsYpM2xlsTNCm+ WwmH4KL4alPNircS6hcxzeq/QGl8reY6GsMHcavyGv7Ys4hrziu4QkJy2TGD SYJr1DcvYe5Gt5aCrJjVWlYmtLLny4PYt+sIAhhvq597EeuepxRa/RI2MN4e e3AFy9hKPMFYe+IR2qMr8dh/PYenH1+DFU+txpY1r+Dpnz2LFY/w/WMbsOpx 8kFfrD31IjY+TVn18zQc3RqNrF/tQ+qW14Vrz0EfHUTwx2KsHdtzAScYY2cC YnExIAaJ++KQuTcOebti0ZRSifY0CzrTLejOrER3lplmRFdmBTp8y2t9T8zy rZGO0MJypMR/V9RjkJz1IJ8ukmd6ocn3wqwcQE05BaxuEE3GIbRZhtBpG0ZX NamAneagueiGhgG0u71oojU0iHf5rvm3DQh++C1E/UKCC7u6EZogBmHyaQuy I2woiKqGMr4GWdEGyk0D9Fl2GLPtMOXWwOyzvCqYpDbWVAu0BSbhbr12dy+a Xa2wW234O//FhNwUrTBp61sWXEzT3b1noAKOeD1cceJ0VWOcb8rWl22+I9w7 4PRN27LC2U9rYQxU4bv+KdvCYw2Qh3dCHs/KljEMjWQE5qIxVBePw0k50qib RKthEh2+KWQL87ZtEr1VE0IS0uqWSGR/518b90MkhCQgMTT/7hzK8U8Lcf4T FaI+L4OUyUgRakfpKQc0vifJhDthinTBcsl1dxFZjBMTFbMYq/jT9ffu8n54 qOg9St8caA2hqEFzRsoP/RcLY2K1iGMfE9nDDOaaXPZSyjxTEK7D1rVv46U1 27D1ubfvW47PC/nML9RqUQ3Cg5cUUQOMzwno0kiXc67AkX8d7qKbaFXdwZmP NMg/vIBOKt251j9iyPg1Y5Lxab5Du4XhyhsMkqvoMc3BU0m6TLB4rKSZlkbG aeW34/N+yC6UCE+fUsW03b3RvL10AX26azzszbsLT3QHujBd+hX+4PkKtxpu 4XrDDVyhYL/spD5xTGO0ZhQDVi/TQhs8GgfjU+dfMv5j7N0TgFUrtuC5VS8w Prdi7fNbWQ/F+Hz0wWfx6EPP4jHG509//HM8/rPn8RTp5Vsvv8bYfBk/+7eH 8czDa7GCFFOMTdbAJ1/Ehme2YtOzW/GbNemI/EUY8t/4EAc+OijEZtDHwQjd dQ6n9126u6o4c186pPsyULg3nVREvC7bT4I2mF+HoQIHzY7BAhYUqQU9uUZ0 ZIrL390Xy2E6VHi/v6jkhPchL5Ghme1FuW8lqNILW5kXtWQc9QYvGs1k6NZ+ tNT049RJJcJOKXGJFsv9+OPKZUjteekSQl8JvGeW5e9w/pARMeRTqefNyL5Y iYJYC8m/lbyORSPdBk2mFdosWi4jUVLJzGDmKRhRXFghRLy7vht2u/vv/POR 0pRy4UaPojQGJK2CXN+SYoI9qRKuZCsak21oSbGhPdXGZGQVklRHuu8GEKPw tBPfTR+NvrstwsphOVj0l37Gmbu/BgWn21EY1QtZMmMzpx+6gkHmqCFUl46g Tj2ChopRNBtH0WYeJTkYQUfVCDrtw8hIuwGrZQnj7q+EPk+ptIg9lCrsH/0k nSbeMxf2WRlidlQgZa8R2QcqIT1ohS68CcbIZlRGtcAW3bx8e37+3iK0Hbbi m0xxmrRfP4EeLXm2ug9lF4tRFilFWXgSyk4dx77dwSwTlPA7aTsOYPn28uQE Vl66OpWWk+i/vYzB+/rmbXh90zt4Y+M7eGvDu3hrHW0N7Xl+tnIbzn10Aue3 p0IR6WaF7WKZG0JJ4iS06ZdRmXsVtQU30MCK2sKKeubTbph8V8TsS5hsncMQ o3XYfBsjFLmjlpsYtlxHfyWjlnTTUzXlnzKl/q5i1FrM347aX0JGpygu1pEw d0LrW6UhmUC9Qly13qe/IWynq75Chn/V+p3mP+CrgVu41fg1rrtv44r7Bi43 XMWU8zJGHRPUBYPoNnXCo3dx6AyUNAniHaT+51sc2BeEVax8zzN6VzN61zB6 1zJ6f/azFXjwoRX4yY9X4Jdr38Hbr73LqH0JW9a+jEf/6wk8/O9PksVuxMrH xMhdy6q6/hlWVorCTQ8lY++LKUh54xgKXn8DgR8FMYKDcGZPOM4FxCF8fzri 9+cgPUBEhTwoH5pjSnjzxVWw5nMqWM6rMK5qxoSqiVvfI1wY0UW16Mu3Us8b 0JGiQeNF1QP+yamMiD5kJ3mRny3esOp7uJKJ0Wtl9NYYvQg7o8TFc0oknlci kyah5Z1WQnpCibgvYhG3PQ4Rb0Qj580UJL2XgshfK0isdbh0gLarBKcPqHDh iIphXAxJrBmFCWbIk01QpZlQnEXLpUkMUOYbUFSgRz5Nkl8BW227/6aqv8Du 3QewZ3fQ3Yfp7CVi9+w88F3/Ir78ZN+FRbUQ1iU8rC5VfJRmVmAu8vdLlp9n ow4p4GDlo48prk/iu8vHju6cKnRm+iiJHm3xHJiI4r/wh4DQ6J4ghLwuw/GP tTixW48zQXpEhOihlXGQlP2oKh1ArWYAzooBNBh9z+AYQFMVrbYfTXVepBX9 Dg67f+2osx1RQRliZH+UjWMfiXcjhH+uQ+xu5rj9VuQcrEb+0Vqce0eOix9w ID8tR/IX1cjYJc7HFBwdR2/BTfzRfQ137Pq719rLYowoiy1HeYwM5VFpKA87 y+8CGdwPIHBXMAIZ3oEM74AvAsVJt0eRlawVbmjMSREXTSgY6b96cRvefOEd /HrLu3h787t4Z9O7eHcjjZH+3npu13K7mp+v2oawj1IQ9glJw6dqFstB6oBJ aDLmSI4WYS+8ztC7iZCPKeGPLqCpdAkTHUvwmnwzwzcwxHo8bGExtS5i2HoV XhvlePVleOzTwmywp5ZRbmeU2yq/FeT/gcKzGiginFDGeISnH1jzp+BSiY89 6jXeFLaxe7SoiRI/+2poCTcZ4LeaqJCb7uBK001cdi9isn4eo3VT6K8ZQpe1 i6zAx9SNdwN8/90H2FBC0g7tO+R7aIv4vJYfMW43Ye0Kxu1jb+EtDtavX/kV NjO+N/uqN2P8Zz9inDP+n310M5574gWsYYyvY4xvYHXeuHIr1WkWTv4iFpJf 70XARwdwaudJnN8bhbCANFzcL0XSfjmyA5VCFyQBBeJcwvdRS2lWG6WFI0rN /TJUR6owUtqEfpUL3UV24c6CzuRS1JE7ibHzIBIv9CCFRSmL8V1Y6IVK5cW5 k4WIOKtEFGM5jtsMxncerZD78lMKZO6MRc6OOOR8EYfsFXvQ85szmDoejbzt ych6NZ1pqAYXDpsQc6gUJ4NUCDuqwsUTKsSeVSEhXAVJqhH5mbQcI6SM7Vyp AZm0dIkeiVllflL/V8LjovbuDeKIB4uPjNpDoU7Q+oDrg+1+wnb/jgPf8c+e SuMLKbh9Sxb0UFBDlKfakXRAzIT5QXIoDitRcrQY6mMlqDgh3tdpOl0C8xkV TYFBWSP6C+vRS37jyaVWyiCnSSxjNpT5T+n/3j2lfTyd5dM68qYSxz7V4dhe PU4F6xF+TI+oU3ro/ff2V2nFVFlr8cJRRbNzn9EfmyRHSpkY/VlHYqDYn4bT b8dheR126Ael+GitBF9uKUDAq3IcfoNZZpsD597vxMXtI4jfN4e047eQF/lb FKX+DqX5v0Wt+RvMDZHeWq5Cn+KEJqkG5YmVNC1NgfL4TKgvhiNod/B9CBYS QBBHMogZM2gni9aXgcuKKo91QEIy5Ft75CNFr7/4Nt7cug2/efEdbHuBwb7l Pby3+T28T/uA9qHPmBA+ZEL4kAnhw/Xv4PQblxD2YT4TQRnCvjAJSaA84zJM eQuoLryKOuUijnzWDXXK79HnWMJg+2X0mhbhNS9igD0YtF6hLWDQNgdvzWV0 1zIB1E3C4yRdcZKgOxqo6v4/pf4B1h415OedwtNP1RnD4ng+i1atj+KLc5Xy Q9TF2j+KmbfxFm403cLN5lu4RltovonZxuuYbKDWdjIJkId11bA1WwPaDXrx 2UT+5+uICcD/1KaAI4z/I8LziI4GHkUI7fWHQ7D12W1446V3sf65l7CROnsj mcCj//kEM8HT5OpPUUdvwcontuB5cvQ1zAK+zPHFO/ux4739HNFMxL4ZBtmv 38fZXedxbm8ywvflITpAIXbrb0nTFSg8KMLZGimu+vWtBHbFVaI+3kwzwRln gJ3CyhpdjkF1G3qK3fAU1QjPUW5LKfRng2exew+LGuH9xS4Ndh/R42hwFk4c keB0iAQXj0mQQJP4MsFpBeoSKoRpMdmeWMgp32Of34HqTYcxFxiBqwnRSHo3 DCnbc5DzCZPZgVqcPWbDxVAtj1mMk8eKce5UMSJIRiIvMDtcUiGVMj+ZGSGO JCQm24Awlu1DAeKjTn0PDdvH4Q7YJz4+7YD/EWpBzAg+FAf7t8tYPsBitv9z P5YfQJGwuoOlgcS9ONX5gJ8Jl4ZooTmhg/50BUzn9OIIhlcId8VXhWtgJWU0 ny+BV9GMbhkrgJQjlqlnDlX4hdoK4bFuvjPbvy/4f5zZ/l8V4v+R9R1gbWVZ mv9HVXf1Tk/a7Z7ZndA7nae7qivZlZyzXcE5YWOCwRiTkcjR5JxzFkIIhDIg CYmcM5hobHDOrlzdM9NT1dPd7Hn3PmHXjr7v8IQA8XTv+U+495z/hrqbEU6G ITrEgsRoC9ITLMhJtcDcSpkQZT+2zhV09NC1fwVFNWYkkIuOz+UEjEMl/4Xk o8ns+dE3SnH0zVr23HlHPy7un0PA0TsId/0MCQG/R0bsn1GYvYbKijXUN/0Z zW1rMPasYbB8CUMV8+ivmEVnxTTay8bQWjpIxrEbLWVmEg1aimvQkpsu0LD5 hlDAFOJHSk33H0LhTTDFU8HeEki9OI1rfanBgfW1/orFU4f3ncSxfRQO7DuD 03udcIbEae85uOx1hiuJm1MWPEi8zmTB53QmfE5kwvtwBi5/lIb4wxVkHfRk GaxI9+uBvvIpLHWfoFv5KQLdTCiM/ByDZB9XF9awYKEQwPYZrnV8iutdZA26 P6aw4ClZhSe4NvgIV4cfYHH0LhbHbtCVovLh8c3PbwxtR1M857LQU1hgUzxk Aznd+gmW6F2Fx5j8P/H0CrfGXxD6v5r6LX47/Vt8Of0VPp36Ek8mv8ADsgi3 ySJcHyaLMLhI6cYoZqxtz4iNnmPbChPIjewMZSLblkBgFPpRKdSZKhzcewSb KTewr7z9+iev4dc/fYOswkb88l82YMMre/AWxf/vvrEHzscCcP5kIDwcA7H7 tSoEf1CGdNdwFHqmItG3GqmU0uX6GZDjqWL3XxfcBlWkGcZYi53EfaxoCBPF g5gsHcBESR/GKJcdory2t9CKDoFkNUuLRS2lMg2dlAaouXr/CH6+QUzFA/ye AS8qIJ0AnYtEaT7SSQokhSgPKqY8twyKgDJWdjVL/lcfTJFmSDmqdwVi1TUZ v8vMQ/3FVNR6pKLKNRXlzjWQuVeiSqFDVMwA4hJsSInRr6+pRIqUEMKDf4zv 0YgGk50NWmcRZAbBP5jZ4WCBQ1DQ3R8ilPRYYBNkwjQ5mGmylDRZ4sltSr2w Scn6NzuRLJFTRsIDqippG7tqo2xoDGmDJtxsX9Hpy+zGQJYgnRjI7kBflhVd mWZY01rIpM6SSRWMRA+Z1RZcKZWxO3Rg9/gv/C792F2KAAthtylcA9xbERRo QQiZ3Kg4C+KTLUhKN0NDSZaWIgctGQl19wqC05SQpjbi9V/x2qsPfnQUGSdz RAMxgqObOEXjeaffUZTyDcKi/4T4rDVxRPfAkDaOlgzei99fuYiBygUMVs3B lDMAQ3Yv2ism0FoxTD66Fy1k6FoqKVoqr4UhP515uFA/zk0Y6hcqDq1w/xKE +ATh2M7DFIW0sFZkFaVLmrIOsgxnyDI44fS+czi71wXOe93g7Z4NH49s+NM1 5Hw2It2yEeOSjctO2UhwzELCySzEH81EOlmH1A8qIXFUk353IVPaizbZI3Q0 PIGfu7C18kfMUMwwP/sUs8JmgvUpljqe4GqnUKf4CMt9D7E8+ABXR+6RVaB4 YVxY7V2h5wuMge5b5uEXUMYMQZU5T+5hFZb6e+hXi1yi9LbCY5XStCe3uXn4 dOIzfDb1OWULn1Ow8Bk+mfoUjyc/wb3xp7g59hDXhIXl4Xks9A9Clpf2jD7O TyTi8+ecZ+GBUYz3LFLkPTvwqxAU+jdBX92MaDIVDvRqBAW27767F//641fx rz95A7/66Qb8+ucbEEJ/f2S/P45/FADHIwE4dyIQrqcC4UZBw0dbZUh1TUGB ZxESvOuR7KNDsruK8m4jKqX8sIeUI3pMB9ubTF/CRNkkoz2YrhzHVOUYxitH MFwxgL6yXvF3foOllmksqvnK7XhFxToIA0UKS4HOM8o3EQmSLCRJ85AhLUa+ tJz+ZxXqJLVoDKqDmpCmD6nHcu0IzFH1sMTUo/ejJHwVVYL/lFWiOSAPTX5Z UFxKRx0ZihqnJDIWJcir00Ot1EBXkQt9uCu7owNbD5Dsx/4t+9j3EUHh7BoW FIKdm7Y4sDTtO+KtCcij4ffjWvwi0+O/pK9C7CYYCil3d97czTXlyXkfbvEA koNUyA40IvOiwT5ajaE2aCM60RLTDfNlvpzQkdSDrqTu9SX0HrEby/5YbKK0 osEGQ1QCu7Fno/atW+N39n2EiRjzDDbD008OLx85IkLViCNJJPE/mY4L78eT LXhrvefwo9d9keFYiGJ3pfjaj3E+9PfwTfkDQor/jGJpP6rCBpEdwE1cOWUq uvQRGDP5mldf5RwGqmZhyu1HW14fDLlC+fQ4WmtG0FJLNoFCs5YaHdmFWjRl JzEfF864EMNZ5stsgzCipOzCiJ7cc9S+unJs39n1kTi7zw3+HpmUbXDTFUrX GM8cJHjk8Lv+J+Q45yCPLEKeI8mJLBQdKUfJoSrkH6hC5r5ypEq6kBXWDXcX E1IjPkc7xQmz82sYb32IKTPf55izPcB8530s9N7DwsBdzJPXniNozo+vYmFi heQ6ZsfmseV5S/ACaoN70Jg895zbeQGjxntkZB6gTLW2/trD0ad4TIh/OvEU AmfoU/yanj/Bw4nHuDv+EDfG72FpbAXzIzOY7OtFoE8ACxKCGPthGA8SAp+R SEaKzIcCUV/A3hI0kfvTy+sYpVy0wH7IKOXCsW3Ddmx/axe2v70bO97Zw+jp QoOiEUZ/e/hgAI4fDcDpEwE4Q9bgLAUMl53ykeMhQ5GnHDFuSlE//xcU0d3I 8v4UCw2U7vTwhdB/k+twM7QJszWzmK69gonaKYzUjKG/ahBdFd1oL+bWY9FI kYLWClVsJEfZNrbeGSxmQ4mBqUihCCFVWobc4BqUSeshk1J2HtIEbVgzWiLU MMVo0B6rgS1BjYpDCVi5QAagUIGvNTIYQsuhDS5Bc1ABlH7ZaLiYgrpzl7H7 ogGXKwwU4Bqgr+fBcO3RY8wQ7CNDsG/LXvZauCSMcXnt3LyFwYxHCAJfoqCf YmwmEE+SRIiMqOFC1hYYRq+F0s9CuA4Lvs07kBJJyh8olUr2J2MaoEOSpx45 l0yiKvwDmiP6UHBYhpHTdbAlDqMzRcRT2hD603nJ5WDxCHqLBtBRQJjKtWDJ yLfxjamVMCZksuWkIBo/dp+iegiOwn6vnPX2JYa3QN98SAMK6OcFiKLUK4G+ T7mUJ07tjxF1KB4RHySsA061rxEpZwpR4NGEct9WlAaZUBw9jurL41AmjkKX QAlB7CBqo/lmeWNiH7QZg9BnDsBIsYHw6K2eJpvQg1Yya/q8DliEolvZEFrk ZBfkZBdkFCtU1Qi8qA5Mp99kN8yGllFUhjNje2rvMZITOLn3OHvbI2QXTuxz phDBjewCb+AMvZSDsEucPSPei9ToIn+e75GL4vP8eblzLiqcclBxNhsVFDbU nKxC7eEqVB6rRRUZilSy0C6uy6gs/hMGyHcPzzzGkPEuRtvuYsJyB1O2O5ju vo2ZvlsURtzA9Mgqpik8mCbDMDNJ1/HrGB6csBuH/WLrtjx6BsrcZegqV9De sIoB3S1MtJFdsd3F1Z57WO2/j9tDD3Bv9CEejD10oJThAfmC++P3cXfiHm5O 3MHyxC3Mjl/F1PAEum3tZBeC2MpWkJ0VVRgtwS4ERTkwNs8XmUnY/Wt/5Hir KEvSOjDyuu9zsklmGSKYZdi6cRe2kVXY/u4e7Hh39zoXWphUaNGKkMY4MEa8 HyLiZDHSXJtQcEGHBBcl0r1bUCixoiqiG4q4fmiThqBv+QbzY3/AJ7Nf499n nuKboTn8ydCGRykaTMqvYEQ2hQHZKLqr+rnavYHF1k6ok2Kfg1wIo8uN972M lKAsZg4ypXIUSptQHaxBQ4ieomsjWqJbyYu2EXTa0J3chp7UNlhPFuKLOCX+ 0KQnU6FAW3Q9GgMz6Per0BBUhHqfTMjd41F1JhybX9sF7xwjSpWc8NNQngG9 9Ay2/fg1vP8vr2Hvlt3s9V1btpNJ2Mrujadqz5sDUW2/x7K1CGaUI9k6jrCe Ex4YxqxCmL+Uf9rvIdq9DrHuakpfORlThYQfBxBz2ABj4A3+az/ErXAV5QoT GMzhfBHdWUOwZvSis6QflsJOtOZyX2zMlsGYns9sgMRuA/xEGyBwDXO+YQd2 ay+TdhQighKvaDKRiYEFSCdzkEumoMAnH9kuaewt885mIO0wNwMpHyRCsSGS Pc8+UoAM8gQ5XnokBQ4jJ3oaZcnzUFD8q8m9gpa8SbTn8Q3f9uR+NCTaoEm2 kanitFQGMgHGvE4Y823QFbbDXDeI1vp+tCi6ScxolTfDUFUtxLfC7UYRbhi9 bxAfU8HSCuzmp/edIDmFU/sc2dseIzNwksyA4z6P77IXXkKeVx5Hu0chqs4X sed15wsgP5+/3i7e6FKHRre6Z8ZOs4Z+SuQ7NDfQo7+B/tYbGLLcwEjHDYz2 rGKsfwWjQysYGaUrIX5sgl8HKGLf+nxL2muoS74KZfF16GUrsKnoV4yrGDff xGwHBfg9t3Ct/zZWB+/g5jDJyG3cHKXvx+n1Cfr5xCpm6K3HRufR2zfM3pFD nebXN4zmN5wzywZy7l4B6ZECRy8h9OL2QiiSddArmtYZSu3MshzsEdi6YSe2 Eti3vSvILgSTWoTQ+1AYQIosjSEdsVNgprjnIPasFpGn65Hopka6bxsKQzpR FcXZojQpo+grvYrhymWYe/+M1aU1/PvNP+JPq59hbW4Ja13t+LhQiwE571y1 VnahrUxU24JyqNMu/zcXm+yfiFTCaZpEhhypCiVSA2TBbWiKsEAfY4M5oQO2 5A50p3Xa8/2vy1rxR8vzLBr/G81RdVCGVUFBqq7wSUO9RyS2v04m7rXdeD+U 0/Wp1EYY6isIPRTwvPYWXDa8yl7fSXDfQXCXPBdwhfpHrjN3OwhaSSaRBu04 I0KPYGToESyPWAc85W4M1a6lFD014LK7HqlefK2wKmQAiqhRaIX28qL/xM3u r/Fk5FN8PnQb/9ZzBV+3deNrOV+Z7c0fRUuKjT6zCe0l5EYL2sXxU5CLLYY8 yp/dZLD/c5C354iCHffPRIy0ELHBhYinaypJDmG/iLBfTmFA0fl0lLqmc0vk komCkxz3hZu9MX2So+iTKjUy3q9BxIfV5AJUiHJtQXz4FRSlzkGeR7lv8QIj dWBmqoJ0oqwffRSuGDP4vWrSTVBntKE5qxWa4ja01ZPrbyDMN3SQtMEobxZs aPQLNILRhEw76O3hleP+0yRncXr/OfZ+x/e6USxwgT2P9s5FrA+/z0Txmnep BCVelD96VsJ+DkiDVzUaL1WjybuKpIK92nSJWwb1BR4S1lGYo3Lja6im8Udo I+i261bQ2bKCHssKejtW0NdDMkDPyRL0jqw4oI9C9RfQOXR1nX5KdP3vi+VV tRnX0VDGz1ASalj6jGQ3hCMEbKuY7aaUoncVi2Rb2CEKo0JtJUUSgn0hGRy9 hs7+aXHV+CUEUpoZ5MMNgdQv4jlDwAlpBdbCXS97IJU+ia5CjxiBsPY5umIH Zgr+gtMVU7C7deNubH1HkF0UGEYyzx9Kox8qYd5fMAjR9EGSXLIReUyN8FNK xJ/XI8unFQUhXaiM7ufALlpAr1A0X7WEMdkS+fmr6JxYw727a/jmyZ+w9vgL rN1YxtooJxQZytWjJ6eBPVekZUGZFsN9l92xUiiTSvF7WmAV0oIakScxoIzy WXlYJ5opdW5J6IM1pR9dGQPoyx7AYC6PNZ9SIPAHbTc6KBAwJ3KUN4SXoT68 CI3RdVCEl0MRlIcGPwoAzvtjx+u7sJNEeEhKjKhW879x3boLnrt4//kHr2zG vl+8ibhfH0H4Tw7C/6eH4PSzQ+uLMKSyPNz6PsvChGyMy/M2QUgNpNwenKtA rHOT6IX+Cg0xE9AmUIicMouK5j+jb+jPWJn7Mz5f/gO+vvYl/rh4j/3mWl83 /kunw1B2p6jTB2AsNcJYoiRbUMpIx5lGkITatSIwmmlGpH86LksLkBBSiESS NLIFeWQHSiRFqAosgcy/hIYjF7XuPEaWX8hDpXMqtz8fJuOTGBl7XnaC7ymk 7lMh4pgSEU4aRJA6CI8U/xaUZF2BsoTbAavsCrrknElOl2WGUQxXNHlkC4QW jyIDLFWdaK+ykphhIm3VFdYhc5MbMt5xQvoGR6S+cRLJvzmGhFeOIPY3RxD1 m8MIefUwAl49BM9XD+Lkb3ir6a/+8RcIOCPa2/NxiKdYhjuHH6HkkgxVXnKu apeUaPRR8vsIUEIX1ECiIJGLr1VC7VvM79lHB4uUr+w21K1A3UgI1q6glWyB mWyBhWxBezddCbnmQXpO9sBCYuhZsPPPcaaRv0Fl1gpk5SvQyFdgauZ7u/0m fsbYWNcKxvtWMEFvMTbMudv7KMDooOdtvbPi/vFfEfAlIvDDyV1GsGU8NsUi XbEAfed3ckXGah0DvAOD/l+tM1ZH2XnKpeHY9PoObCHwB1A0wermSWWC6f1C RPA7sOD/O7h8JhMprvUIPtZIbsyIDF+LqLqvoZtMvtD4N1o3j/H6eUw1zGNa OY+euTXc/3gNX39FyP/iS/bb49VWjNXydfm2lDxIf/IhLv7kI4pmBHWNQOLF KKT5kdsPkBPqtcgPNKEyuIPcZB808YP0N0Kt6BhZjXEM5I+j1IUHbr+v6MMf uygyTrXCkiq6xpQWaBO1UMU3oiG6Fg1hxWiQpkJGY/jWL7ba12He+PEO7HSM wtGtH4mI2g3vs6H4cNsx5PspUHCxlrxjKYrP5aLkVDKKD0eh8EAg8rZ7IOtt R6S8chQxLx+BH2knOyBBRL0Q+gtRQHhgCHvX2LOViHXiGyzpPnxtT+AhaIib hi5pFm1pc7BmzaGLPKk5fQrqrjXMXV3Dk7t81Xjt0ZdYu3sXa9d4X+JodSva C9so0m5Ce2Yp0ncGIGObD9I3X0Tau+eR9tY5pLzpiOTXCD3nkyiKS0eKRzrS SXLcs+kz5aLMrQAVrkWo8SyB3KsMDZc4n1qNWzZJhn3x7esWFSXKHPTp+xRI O6KH9IQawc6cyyPet4WCtTb7iNaXTUNfO82OQOJv8Y8UBrdBWdYCRbkBrU1D 5FOH0dY0DENDF8pDNTTJKlRJG1FDOKwNrCNbVA2ZbwVNFtklrwLUXciG7Hwa al0SUX02lr3ry//wGsKceU4S5pZJkmvnOstzpklz4XCu8WiAJoibJwOljMZQ HVrCtCRqtIRyN1/vyeE+EG1D92WeBpbVrKCmYQX1an6qXDNhVU1YVYu7Kere FajouvN5KqwfoSj7Osoq6M8I5hqCeSv9qUWg+bcR5OnXaxQj9LajqFSOoqR+ FDKKiqopqiuNMzFWr1KSD7efxKHtjji0wwmHdzjj8HYXdhyBHeY7X3ZEvHMj tOSs6soyREr6n61DXDiKgDNVhzGm6vfe2MHL9f2E9phISAjmUoJ5cBCHegjp bAjpbrKTHBGn5Ah3MSLTlx//VRbNr+biSbYD3Fc9A0vOEGz5Q+gqFHhrCI7F Ai3vDDpIX+99uYbrw0/W+WusNa0wldSiwLUQBY6ZKDyWgIIPw5DpFIds5wJk Otcg81wj8t10orZsgCljEh3ZvChNeNRd4Lj5Wj+BzrRe2NJ70C7WKhjTLdCm GqFKUqM+Ro66iHIKEHJQRx5v4y9PYeNvnPDWRme8vckZGzcexIHdR3Diw0M4 dXAPNu0+ji27j0Ka0IyoeDUS4zVIj9ciJ06LohgdyiJ1qCTtrJYoUeNXg9qL RaglTas5cxmVR4NRdsALhdvPIHvDUSS9dpDj/FQVgg9TlHxaZee1KQgcpLcZ hjx6FE2Xx6BNGqdkeIo+5izas+Zhy7HTDb6I6w/W8Nnna1jp+wTjDcN2ymtr rQnWinrkh6gp99KgJFiLUmkzyiVNqCT/lUW5Uq60HPnSKpJalErkqKXXlf6N 0PipYPRrhsm/Ge2BKtgkXOkVF8tQcTAOc568yOkPpk47I2HGYe364PNb+Gdc lrQiJawNmTFtyI3UoziBIiXh2J8cA+QFWlQWGlFZYkBluR71zUNQaIbRQKJo HkBkph6Xs/VIyqH0h6K+TJJcEuGciSLhrAl6vTyHBjtbh6osLaozNHZrEuQo RaRbDEJds9d7AWJclEh24TpR6KIlO0Z/dkFvD/Ib/XVoDtBCQx5EK9FCJ1GT 8DMi9L48iOkLKsZiubggQYFQVvUK8gjtRQRZr2Q9vNP18M3Qs8JQX14QuvN5 GsaNyCy6hkIKCaooPZDrV5BRNoqsylFkV48io2oUbfkmWAjM1mwCuL8c1T5y VHjKUeIqx7FtJ3Byh1ACeRaOu87hzC5nOO50heMONwJ5DI6/kYHyaPJfCn7s AKOgF44cEKnooxgdeSSjIw9ndOTBjI5cuDM/Arq/bwQCCehBBHQJAV1KIJcS yKUE8vhTtQg/RnK2DdHuWmT5Gdd3exQJ3WhO7Yc+cwStORMw58/AWjiHjtIF Av8SbNVLsMgWYakZR2/TGAZ0/RjQtsBA99lYWYvLl5uRGqtGdowGBZFaZBNg 8rybkedjQqE3ZQpCLTshQRs5BlMsX9HqTxjHUOIYRlLG7TuFX/fNY6hwEu1p 3eQLuf3RpbXTrbVCmUTqRv+mLo6wHlMKeWQyNrznjHfITm6hzHDnhp3YvmE7 tr25FVve2IzNr72DV371yrPDPljoxA/7+DBMD7d4PQJS9YikyU4kNc0kyafn JWl6VJAiVCfoIIvVkV1RQi6tgdyPZ4uJRyoQerAW0WfUdrXMCxpDRdgUZNE8 +FUnX4U+49qLdgyTirXlT6Cj+gr6G6YxpB6Duf02NA290CkoJ66Wwy9ZA2ma FuHpOsRk6pBAoEkMzkFmRBmyo+pIGpEbpUN5ZAvqI81QRVphiOyAiay0La4L XQnddkui8qtHz2kZPsvowB+MI/atsQqPdNGm5pAtS2LPfU9zvofQi1pE+2mR INEgNUyDzCgNci+rkZuqQ2GaCiW5ZHkK1CguIitU2oya+nbUKqyolltpPKMR SplGWFAMU+FwSSw78igWf818FjtURSKcthCFEzTmbmk6XCKoB+So8dGZAAQ7 hVIWkYAYzzyEXzAgysO0fgqtRx8l8f2o9bZvOP8AzUED0AaTpobwPQcD5YSN F/ixkp+GZbHrYJwCY3G822GxSgFfsfrSzy+YVWD6+wYjwEc4PzKQlTIGiEWh AUIt80XJNo73wyLZSVmhgXEEK0tNMAjnbtDz7mITBgoplQmR0Z3I0SKVo5VM bwvhXXdJDtV5OZJ2pMKJcO68+xxc9gh1TS5w2e0K511u5CQUaC5sgaqujC21 RYaIi+wv0Vf7qQMCzAXK+dB1yvkXxBYwH9JlfwrbAwjmgZQKBAYJQt9LKDU4 WIMwpyZEuaqR4a8XB+5fKDUYhzJ1GuqcWeiLF9BSsYA22QIsigXYmuYxoBhC v3IQXY39MDQOwqDuhFFBOMgvxLa3txOGwtg+wz6pFs5xOiR6lVKSrkVGgA15 IYMojZpEffwctGnLMGfzLsmhotuYLL4l+vd/xb+PzaMjYxDWjD6YMvs5vjN6 0ExYb0izQJ5qQF1aI10r0BCbQJjei50b92DnW7uxfeMuEiFt2YYtGzZTCvMO 3PYc4YXoz+NbWMNgmW/MswN9pLE0ptyc7g8x4HyKAZIsPWLIBaXk6ZCVqxXH 6U3EH6fx+6gWMWc1ZCZ50UtOyDxKY5YoXuOcwU0F16ApuwZj9XX2fY945mtv xQi6KyhGqhhAK8V6Rspw9VWtUBTLYaith6Iwl+6T0i3/KGaH7LhJCUxGmiQX adIKpAfXI1uqQrFUhxqJkaLkPiiiB6BOoDlJGYYpfZjyhWG0XG5H46ly3Irp xDeqafxxYBKqCA3qfHPX95oVPnlQXEiGwj1ifSXM11WLIC+yNAEaxARrkBCp QUqcGmlJzcggrGfnqpGVT7pTSK8VNaO4rh2FtVYEC/ccKGA9ht1zmIh1AekR 0li2UYT/w6FO3ubUnhM4vd8Fp9m5Gh44usMDsR5JCHVLR+SFEkR71iDZy4As LzOKLpEp8eVhXXU4D/+K6Ptyf14ioY9bgDFuDnKPCvsn+3NpDdYMWizKhteL vBaVXTDEphPEv11oLR4Z7CAUgdMXbwHyEta6QHKRIH8hUFyzOySWa1cX6djJ KwKLnYmkm2Sw1IzxEjNMETJYI+XoiqlHH8WdA9Fy9NP3vWFydJAJKDuegdw9 qXDb54Tz+50RftgL7gdcsf83SSgMNUItb2VDxfH+PYb3CCb8mAnBtYc+OzLg +2KLQvShBsS7t0HqrEGSnw4Z4Vw1yzPJ7xRNo6mSwvPqfthq+9Ep70e3IPX9 6FL0okNJYXNTF1qaOqBrNKNZQaFuetZzsOZLiaEEnSTXDKRdqEPaRXKJ/jYU hPWjKm7U7lxMpXfQXcnXpIx+XeuNm4VTsGWNsOVqO/eLNncIqtxeKHNtUGRq oMggAKSVoD4hHjs2Cl0Le7FDOJXlrV3Y8tZObCZgb3pzM7wOOuLCB0f4EU3e oTR1zxw3AwxzJjFM8daBLW5ZOLC9kO/TAPMje04dOI7TH5zFqQ+cEPxhBYLf r0XkGTUivLqQEDGD7MRZ2E9xaSsYgaV4hJ0TITw6CcidFYPoqOxHe3UPWmsI zLXt0NcI+wYUYdbI2ejZ7y/4OUCnBqYhVVJCgJYjQ0qOVGKgsN0EWTCBNrwD 2miajbhu6CLaYYy2oi3WhlLHEkz5WfHvtbP4Q98yDBFqipcooo1UPwO0pBQN /jlo8IkVX9uMC45qXKB4zttHgyBy4CHhGkRQLBZNyU1sigqXswjQle2IyVMj na6JJW0EiQjxnrnzDhUBzZy4VHTk7BrN1oDDaDyFsyxO73MmNJ/HqX0eiDon Rax7GuIulOGyp4JEi0RPE7Iu2lDs3YOaQG7gmyP4eMoCzVAE8y0QuVsdZkjL PomW4Y8Vzfhziw1rw2NYW1zEjPYa6ZEFcxXj6EqugTE5F+qIIAcByw6skvQv IPUNEXoRnom3/cobEqRerGBz8/OR+w9QW9jMztdRC02a5RYy2zaMlnVhurwb HXEq9CaoMUiB2FiKGpOpasykqjCT0oipJCXG4hvQH9WA8qNhKNyfBDsvVOBh GRpyWwlT9Ti37RxfMn+JKWB4MJewdUSHEaJDRLrS1ynkkCDqtAH+pzUI99Ih NViPgmiKuMi7NhZ0QlNC9qyiC63V3TDVdFEATlLfBVNDJ1obO6BvskLVaIWy oQ01tY0IlUixlUDEzzWLEBUyCglO6Ug9zyGdRpDOJ0hXxI1BkcJNbWv+HGwi r/9Y7Ag+1/GTQXoq59CeO4yeohH0ECisipvQ53RAnW1dL7ZVZJZAlngZ2zbu Wz/IeTN5600E6Hc3bIPX8fO4eMQJFw4eFXpuCNAhdH/hz93fc5Ejs4q83oCe 7iCTGCMOJDeLp94/wZB84v1z5E/OI3BXJUJPUqjjoUeCfwdywrkPkSXxLXVN BiE2n1xx0QBMJcKx5FwjLRU9MFV3oa22AwZZO3R1bdDKdBgwmlFVUsqsjuCm Jf78JgW3l+RNqA7IQWpQNUkTMoIMyA8yUyLegbrQHqii+shPDaAtaQiG6G60 xvXCHN8Hi3MrHudfwdfWW/h0YAKdQpYV2wZ1jAEN0XxFVBFWC0VIEVulVIgb hw5kH9/H/8RZCuPOEbLPkxW5GK6Gd0wzfOJV8CUdDS9sp0ENIkUKES2RcM9R 7J6D6Z5DyFULyHZg2H6FDTJz2yKiQ2lcQ4Vx3etE4obmtEUUBhYh1i0bce5V uOzRiHgPAxIvtCP7UjdK/AZQI+Vobo7ilFgCb3DNOd5z+CCmEf9R0YZvWobw p+FF/HnxDj5dfoqmZEp0hLrAoutoI+XpyNGiK60YxsQYsTo8ZL3GOVisbXZg z15iz+1l2PamguBLQZBeDLD37/CDXv4ZNXn17MAkVZlwdFYXwbsfo+VDjBy8 K96IwZQ2jGZYME23MJ9rxVJuO5bzLCRtuJprxEK2BjMUAY0lNKL6dCgufOgO z4Pu2PZyNI/6alvJMbniPBlBtl0ujOF3Cd58FENIggnmUmkoBeNSjvIDeO+N LdhMuanvoSZI3K1ICrUiJ6YFGRFa5MVpUZKkRUWqhoySDdoqctBC52q9DeoG K5qUVtSTyOh5ea2OremFSKUsWQnyDhNPL3x2gGWKs4yQTij3syGHUF4WN4q6 lAk0Z/GdmPZivoa8WjKDz/p47NpdMobesgmyAIPoLBuEjUbNRqbXUj4MZV4r 5LnNqM+T82AjgY/EJnLd75HrFh6+jn64dPoSvE56wPOYMxYbTJiurGZKGegT xpD+bG/xmft+Du0RpI9/JZpKUSMPnMTJ953QnDuFI9vPQ7K1EpHHdIh2NSPO p52CZCuyI+1bYe9BmdUJdS4NHk2poagbxhIeORppQPUUvGpkFjQTypvqWqCs 1cKqa2HmKPBS6Lo5sgflKd6xlNgUEdrl5Mc1SAtsI6TbUBHcA3nkIJrjRmBI HIMpdZyi0iG0JYyg0kWFq/HT+A/9PXwzeR/dGePozBiFPr4dmnj6v3EGKAi5 9ZH19B4VUERkky+MxLYN75PpJHnrALa+vR9b3tlLsgeb391Fsg2b33kP0uAw B5EULtCLIloyToEUcgguXEIuXBoQzQxUSFA0G18HtoHzN2wDh4OcA104hurE 7jM4sccFzcnzKPIvQaxLHuLcahF3vhnx51uR5NGBrEv2yu1/QEPkFNSxXGf6 z6lxQzRYXxmn8B/DN/DNwsd4sPg7dOSRvlC4ZykcpjCqF4okDRqzycDmt9LP FOhOiRfLKXiBUrBvGIE6jNUuOwjVyw6sN+A732ohCvGRIORS4LdQzmO172Cw fBJTVQJhI19xGc/uFeO4v8OtMr4bbH8sFrbhSraWeXG5UxIuHPLEhb28Y1rZ oCLX5AaPD4T8/CxbDA+RUlwkCOmhlAZNIg0TXfZPxIYyXoS9+U2+h+Z5WIcA spLhlAzHSDVIJmBnErBzk7UoSNeirtIGeQ1JnRW19VZUkpTKyQhUGth5csKR gsEStvJAkxvC4knmeVhlDnkexxoCtRZpvu3IomTQ7nr1NOjxfp0w5X2+nrx2 lA5hTn2HHeTWUzbKyjG6KCltKyOpGkRLTS8lrSYYy/k2qORsGLsGnSWlOsu3 qH3O+uPSGW9cPE3jdNIFi5oOzCsUdH+i8vnx+5Myz8hBzQoGxFgxnBcPsCww jClfBAt9Tu4/hWP7CdPZM9DkXcexnZcg2a1EuKMJkZ4WxAe0IyOsXfwsr6Mq owP1OZxsornQzNr7hYeq2oLGWoolBWZiwrRM1gpzaz9mdXJeLeXFDU8Qu89I dp8pXklI9S0jXDdQCGRAul87YbobFWFcV5oTJmCkcMicwZU916UJ/YFj+FR+ F/8x8im6M6fRkz2FzhwylDljsGQPojGBEvvLOtTHNZLUoD6mgHAdhy0bDtBn 2EKI/i42E6Y3E6Y3vSswOuwk2Ypt23e/KJJ4B5D5EW7Vvj/DtmGZ845ax3QI DWeoqJYhwVwtBTcTHByKxsg+qBJmKFkmLDsVINa5DnEuGsS7mZBysRNZPvzj VYdNIuSwBk2OPDC6U9KPR3p+5tuXs19hbuo/0UVRYFfBFXQUTJIaTcJSMoqG 1DYo0nVkTlvRmE9etbCJhiAXDRfYWpADqzR8gbAbsV5z7MAqOF4Sa/rtdf1C z48UoT5BCPEOIHv93M7Z36MuuxqqIr751lI6yq6jlYuYlS2jN43Xms0UTWCh lMert6o4LcV92TTu1U3ijmwUN2p5ufR8STtmczWYTJTbOXXrK1rgLnDqHvbA +YMucKN8UCKJJFxHIohyxCBpOAKkYX8ptoPbu1N4n34wNr2+naZ0Nza+ehKH 9p7GpQta+PhSmhWiRVS0FpcTKCFPIdhnaFBAUM+rJtdEkkap1rPIn6/hOYhL igHPqah96z32aBlSnNRI9TYjM7gbBTF9qE4aQEPGEMFlGEaKwpv0a1i9vgZT US+mGlcwo7qJWfVtmi/y3eWUqlK62l41AE1FH7S169m5qrgEgQfOQeIUvh6k +52TwNspAF5nfSiD9MSiwPTV0oNFdTOnK/AKRQB5xkC7mwm0VwjYXczfkVo+ iyN59CNIGI7tPUGxZD+aM2bJg6/g6HYvnNzrh4ADaoQ4mRHm1Y64oHakhvMd ++IkK0oyrKjOs65bMllFO2oJ6VWE9AqZGWW1bSio0GKxswfj2lre3ntBKkJI vE8ayhTPVKRcqkSqTxNJKzIoL8iX9qEigtfWNydNw5g2C3MWb9VQuffhRuFt /LbrC/zuyiN0ZV9BT+4VdOVNwZY3AUveCFpzB1CfYIA8UUUio+fFqI9NxHsb 9mPTxv14721B9uEd8tzvkOd+593tePvtzfiuSDTifykM/j58G1bYnRGtkgPb nvmfZPwJ8VJhk4ZeDhYkgjkd4Y/rJFY0Rk+i4GIxCv2NhHI5Ys9pEedsRtKF bmT6DaJIMrbe/N+a8Q2u63+/7vwsOQuw5i0QqufRWTiHzqIrsBUSwsumKR0a p/yNDGmWAcYKwSmoKe9UoSW3ANWSOig9xXqidXhHOvCC5zDWUiDU5tshHkYQ DxMg7htEYbqfeMieCPHvQpnbQDbcCm2xvWPoKiZkq9xl/29cq1rGzVrehPhQ eQ2PG5fxsGkJ9xrncauBm+SlGjLxpRaoLkRDczaAvebtJYXLUS84H7kA50Nu cP7oLE7tOwH/oAhsfHsHfChZ4Lj+X/D3DaDBD/pv/Btb3tyNN185iY92n8ax fQexa9MBnLmogRu5cq8IDXxjNfAjjPskaiDJNjuwGPXFda8mmGGJRPqCyHsT QFMd4Pvtopp4SlGTL7RS2mhDbmQXyhJ6ICO7pszpg6awH4ZSShsrBjBcP49R 5TLGm1Yw1XwD5pJemiNKIyt70FbTjRbK//WUHTTV8F0byXmCmysfiYBzYfBz DmbPvc4FwvOsL86TA1+0XsGiZQCLBq1ofV6EvxdXx0DudRxYScCPWVFAsFgQ IKhjsKiKQgwURDmNIk5JgWMfIfsKoXoVhrL7FFD6wfFAEM4dpKTE2QLppXbK 3duREEUxOsW+2ankZ7PbUZTfjuJiupZZCMUW5FZZkF1JKlykwWL/DBa7u14Q Y1z/CwJ3VBjfyqQ7FGpXUi5WkwtXE7BNyAjogn1nzZAxD1POIjLcefnvp8Yv 8dXsv2G+/kssKr9Cd94s82nWgimYC8bQkj9IYVM3dAVmyFPlkKeUQB6fhLfe 3Iu3N5JQXvPW23tId3Zhw1vb4e7igSu93S+JjEB+NLl+PhHkIiLIRQi7rFEI orGT0MhJJITnIELwC8ypBIr4dRDJvOqkQ8h2zUShtwGFfj2IPaNFrKsFCZ7d yPAbQqF0HJUR0wh2+y3qG9YwPboGfcYcWrLnYMqdhSV/FtZCwm7RDGVqUxTY 0bViCk1ZHVDkWijR6aYMspmCOw1huQYfODYhNkBF6bocTV5CHbBQwBwl4jec f4kQslfWYCP04AlFy8GscDnUz/9b+P0FmnL1aC7og65oipJIvjw0peDLwCOF PJBYrL6FVdkd3G24S+DlP3uivYtH2lu4r13FHTUH+GpYCp5Ex2E6ugA28iZD Hie4W7dexbW2GTgddILTh6dwdv9hvoTvy6lbhL26QO9gBHhLSYXtpGJ/zbvo /Z910TNODX/OqfH6r07hg12ncXTfYezcJDDpCPK+wJrlQF/2kxXbvWUfj6/W nVi4kHLRLAaLVOK/ZPoY4PvtGprL54xIpJA8NcRKeXwHI5OTZXZBmd/NyOTm O++ilyKUgfoFDDVcxUgTIVtzHYbyDhiEPL+WcnxZO1QkymoDigt4SVuAZxS7 Brt5wceZ15BdJES7U0i+2LNKUJnDYscg5lu1HDLfWddL5l/o9gSddGBa+aKg l89HOi+IUY4qnu4yZYaAfB3asnuwyJ6Q5fTH2Q+D4HxYArdjwfD2sSAwpB3h Me2ITSRQp7cjkcCclE96W2TBZZKo/Da4O/tgcfg6FoemBG4lcdR+Dj8Rxcmu aUj2qCHXrCEUmwnBPDkvi+a7Zk2pc9BlLiDRrQ0tAdwtfzr2e8zIPsOc4nMs NH6Bq6rP0Vkwg/bCaZgKKfEuGIK2qAc6gQC/WEeKKafkPxeeTkHwdA7EBZcA nHf1I/EhuYj5kcm/EM2fD5k+Xxopf9J/f6EzJiBIQK2/hL6VhItDytO92lDy vBTvFVzqQcxJDWLOmRFHiE0jr5svHUN5xARqY6fQkDAFFaUP2oxpGLKn0ZpH d0k2x1JEcXTxBLorp9FVOQlb1ThByUZp2CDUVS0kGn4IXFU1K4X80LEZlwOb IQtRQOVNKVSAMJFCqfELrJo/nEkkey2C7pI30YodBwFSUvvAb3vel6DKNqOZ YhgdOX9bOWcqnW56hKv6j9ebuK/KHuJmwxP0+DRgOYDXZX+VXoevy+rXdx7W rAas9bVgbbRVzED/BlOpTrjVtQqXY+fhcpgi60Nn4Prh0W+RmQir8naKFWHr Tdh0EzJdO/tSAAULQRRys7/xF9uZGXojWMvS0cPNOLD9NA7vO4pt7x7AdkKx wOy8c8v7JMJ1P8k+7NiyhwIoIXAS9JzgGiSsHvIEw66IgaLNjjikQqy7mTJO K1IjCL7xlJGnWlGTbcWoaRWT7TdgrRxHZ+00uuvn0Nu0gAHtEgaNVzHYdhWK GgvktRZ7Ii5UjTq6RMH7UuT6kHqeC2JU+tf7H2Bx4AYW+wi13YO4YlKLH/0l UsQwpoh+XBFZ1BJA4hcUvj48jdEdaBY4kbOvQVd6B6bah+hpfIxTB3xx9mAg nI8Gwe24FO6npBTGS3Em2AS3aAvcYs1kNSTsPjycA+Dm7MvpDEavCiQnmOqy iuEp3QeF0PFnk5HsVo1kd8pkCKOpAT3IDR2CvQ5tQvNbzBl+h5ILg5jKv89e /WTxS0zJnmJG8THmGj/GQvPHlD48xZzmCVoLhbOCCaOlAnVOO4kO2pI6aPJz cJ7SjvPO/nB18SXxxvzECmbHlzA2MPIP4m5nzjkl8jw6ke8ziuizJsRe6EKS bz9ypMMoDh9FVewY6hLG0ZAyDlXmBLTZ4zDkjaOlYBytRWPkGifQQTPYUTWG 9tphtNUOoKWuD0Z5FwmFunXkKqtqGOhCSCsOnlUzSsG6MCXUvjGsHYVSxwhW RxAlFvvbO2siGOaEht/wAIFWRPL/Qa45iy9a6AuWYKu8xZ7PaD5G8XH7Rt7f 4eNcvhH2n5pR/NHKI9y1qetYW7rJn9+9h7WH97H2+C6+fkTxoKEfHVkFsJYk o+REKIq27oPbCXecP+YK96NOcD94XODhEXbIBOKS7wpPxZU0EX+X2GY3X3n4 O3KqvKtcwlbk7L1DEfRpeVf5wY/UqMhTQ1ddgc3CKWfvHcA2gt52gt42gtx2 JvuwlWAXKBUqT8LE4yh+yqpT/Py5gQ05qkOkZztigqxIimxHi8jk2iswubat QF9Ck1M1CbP8CixNc7BqF2AzLsLatoR20xIs5iUUku6cPxUMD8dgeJ4JxkUn QaRk6yV4PPIF7g1/hpuDH+OaQOYzTFgbnMVib98PxI/aGEM6krHEzgFpqbmL job7GNA8wLjxERwP+cHpGMHoZCDcTgXhvGMQOVqSs4FMTd2c/LAydg9Xxwk6 EzewMLaA2aExClO5m2hO6KKYmOCZcZXym9swVj5aXzwd13yBCDEwvan/Eg9m /4M9H695iMn6R5hufIRZ1SPMqR/iCt3PlO4exg23oa6gUK7CTEm8FpqyWsqd suDkRHA/583ajAUG2kmh+XBkjoAp3MfPIA9Tozm2D7kew8gNuIKCyGUk+PQh XTKA/PBBlMYMoTphGHUpw2jIGCGvMAJ13jC0+UMwl4/CUjGK9sphwsogrg89 QGtdD4z1hBWFjaSV4aWxtJRUhQIlf8r4SQ5RGpoQrIU8vBEa/zgGmQi2OhC+ 3sYV/lwbl9AGIxTFhwVK6D182Z0LzM0FBSYU0rUi14TabBPkGSYoUkmSSOJM qI9swyvPI+z7aE6n6CXrWZ3wkPIxZrSfQnf5d7il5aSsn458id9e+ff1Attv 7v0XvnrwDe7f+z0mlv+Nv/zXGNasYF4zQzPRD01uITZvDqDgvIJAFoaSbfvg fsINF445w+PQSTFGFrp5Q+hDCl+E715kPf8hdpogL5E+7Ae8bZNtb/G2zdCA 57hbSN4/oEZZrhY6WS2ihRZOikIFzpb33tuHTZtINu/De5v20GAHiuTff4mK zOuoLllBg8ir2ka3bzWuoMu8AhUZPbVsBhrlLLTqeWj1Cw5QE5j+Bg2aKax0 fopbPZ/hXv9neDj4GR4NfUbw+RRPRj7Bw+GPcXf4KW6MPMby6H1yEysEpRnM 9/XAjiN58BCUSfNoyqeQseImTPU30a26jUH9XUy03cOM5R7mO+7jatd9XOu5 h+t997AycBcrw3dwbewWlsZvkqlfZbzpM2PzGOztE3H0F2iKtZGbGyccLUFd cAv6igfsREOWX2g+QXbAI4zXfWUPPIYqbmG0juDScA+TlGpMN9/BlOY2wecm RlpWMWxaxoh5FiOmYQy32jAutNeMrGBkbIX0YXhcaNnrH1leb9n7R9FyNQon EFwmOKctISt0EQWXl5EU2I3M0F4URPehNL4flcn9qE3rp9schr5oiLL3IbSU DaKVMvjlvvtYHiRzMXIHhnpOGm1saIeBIKSVqVihDaujEiAUEE1QiMFhFx0S Q3Sk5ipoAy6Tdgg7Ymx9bR1BQksJE3I7FNeEBxGCAnJRUUKoKTahWjjPhFCk yjNBm2OCQTwVqTWZn2XSEkvXCPJ6UqN47Nb6Ad6qFEJSxgzbmrXV3sNg01NM 6z9HQdkaJkfWMDGxhi663tCSnW35Co9Mv8PH7b/DE9tv2YnQD2yf4o71MW6Y 72K55TrmjLOY1VGMoNTjoqM3Dh2qR9yZKpSfCEfZtvfhecIFHkdOsZQzgnnR MCG2pa/fpa9CFBsskupIyG0JzJKBDiKcgp7rgg7x521u4bwDj1X97N/TjOIc HfRyxbe7nxkBCm94FCh+Qsn+/EDcMi7IuoZiioqr6whSTStQ68glta6gsngc VVXTqJLPoqpxDpWqeVQ0zWPC+BCz5se42vEEK91PcKvvKe4OPMW9oSd4MCzI Y9wffoTbow+wIhC5CH5jbBkLI5MY7bL9UPwodZEzUGQsQ8lovVdgVt5At/oG Bg03MCYcPdB+C1dsBJfum1joIxm8QRkMQUdkmmAk5OPXMTg0LR5Q80+oDyMF iBmhrG4ezfk3oCu/C5PsAbqUjzCofoz4nDX09q/h+vIfcdX2FNc7n2K1+ylu 9j7FkPwWhpW3MKK6gVHdKkaM1zHQtowB8yIGLTMYMg+hx2hB78AKeoYFDHWN CBiyDl1fxxA/EW0TlBFjaBLMRM4KmkpuQl91GybhSIHGu6hM6UVtRh/qc/qg zOuDqrAPc9Z7mKNc2U5dPj98E3OjN6BtsECvtECnbIdG0cLrJv0iOX6EsiWG HxFDrnokhemhiFZBFxjP6j5Zz4xEjN8EEIkqEC4JQZQknyxuHmMpriMQNRGI dIUEEqF0nwBkyzKh036scwoJuaKuePqegNQVZhSPcRRB9DKa4jmIdMUraJdR dEEgmjJ8hkXzFxgmUzVT9wALTaQxOgJL6+d4YP4cT6xf4HHHF3jY+TnudXyK 27bHWLHcxZKZQNR2BbPGfqiyMghEPvAkOXxIifgzNag8GYXKHR/C7cgJAkw4 4wmMDOSsofzK+WgiBG8r8NH4E5j8JAJD1beAxCpmhb5xoewvkrlsYdSEwpu9 25tQkK3/No2AVASSVBjJcA4kMkN/z97z/7A2ikLlCsrJH1VRbJdUMI3E0itQ l62ire4mushRDJGjmCRHMdt+H0ud93G95wFW+x7g5sAD3Bq8j1tD93Bz9C5W CTTLE6T1grMYX8Tk0Njfi83UNXGLkOVch6JsBRrZCkyNK+igf9lH/3KIwslR KwGji+KjPhIy+hOkpqNk9IeEZmq69gwtiAvC/4CGiEE0JV6BKmcZ6tKbFBve gVVxF73N9zGsf4CJ1geYMT/EvPUhljoeYrnrIbvlld4H6FVcR1/zNfTqltHb soQe0wJ6LZQpWijRNw2grXsFrX0CUIz9AlAarFfWgfIj9nUzZIF9UMTOUjy2 jIaCFTRW3IBedoNz/KtuoldziwwCgbL1FsbNtzBJBmGaDMJ03w1MD61iij7b JH0uFQFFRUARaM7ratX/HSgiSFiZFckRNwOSw3k9gk6S+AwoEoEFQgSKkEG7 RiPQNYqdMyIcjakioBgIKGYCii3PjJ4cC/qzLBjKtGCYrsPZwtVE35swTOAZ SW7DUKz+X5/Hyk8Jol1sqURNDsdUexd9TY8wYXiKefMnGCi7TgnlHUomH2BZ 9xg3W8i6Wj7GQ+vH5Gw+xv0O+p4s703bI1xrJ3NhXcYsjfiVlm5UpsYwrMQF JpEk4uihJiSelaH6dAyqd330jEuT82lyjrx/YnCJDHoGlzB/voch9Q7gm8nP Nd4GC05H7LaPYLQbMdi1uQF5WQboFGrWi2dv0hEq+CPtnXiSUMJKkBhl/ACV vmQBk5agLLgOTRVZf4rjujU3METRy4SJLL/1FuY7b2Oph3DQdwvLAyRkFa+O 3WAEZFcmuRcYH50n5PEm4/KEZVTlrUBWQQpBzsxIwLBoCRzkzLrbCSAEiv5e ug5yC95JytNBYupfwl+LGFZET0OZvozGQgJX5Spa5Tdha7xFingbw4Y7GG+7 g2kyUbPWu1ggi73YdQdLfQKlKQV3Izfp/83DZJyDuW2W8rZZmE2T0Og7IaP/ L7Ou/Ez8NzUSIXdfgjz7OurJYjbREOjoltvIfFibKZSl2+5rIbxaKJDroKCt hzBMKBoZWsEwxaVC+FavEOj8LaiWGVn9Dqt84zrvwJT+e7xOPZCrvFBvdMTd iOQIIxpi1dBLEx2Yvv89TVAkwoQFe9J0iVsMgtyioRQOLxe6PUraYSnqQGdB F/ryejCU34tRclsTBX2YJNc1JWzDFnVjsqgTk/lWTOeaMZ1hwESC+pffDrMq pSY0JkxBk38VLdW30d14D6NkY2bNpMmk0aM1q5hWkvPT3MM1433cND/A3fYH uGejK8kt232sCFxRZAPmbEu40j5OEV8uvBwvca0PSkacJAkXz17C8SPNSD4n R+2ZONTsOUQaz5uTX2A8sj9kih8lCRc9RSgLuYRV/xBfrvLvvbkVmzbsxOa3 97BjbgXuaWFTTDi/STgnZtc7cmRnGlmfeVRwjAPT+e/wnpXnek9DSOP/Sdx7 q5ROQpZOZpumW1PLzXaXhhPjsAU3MtvTnaTZvau4Qhp6hTRzeowfrTQi8mBY ukf+UUz/islalpHWyBWkPWrSHkqAjJQAtdpWmOVtIUXXk8bo6Pq3oueoDhyE PGERCvIeQtiloQSqTSHw86yiV0uhl3DqU9sNTFjIutpuYKb7Bq700+2QpZ2h 25liqcPEhGDNBWqOgaEr4uYAD78qQqZQnbSM6twVCitWoKzmHf8tFFWaSaNt pNGdFgIfaXQvaXRPv+CNCJz03j2k1RVyM4qqW3jFu3fYukZLxXrOkG/Xc9LX F8mwxOKohxEpUUYoL6vtTZxSUmEpqbLw4Gnu38Jc3IfOwkH05VNGlD+K8cIx TJWM40rZBGYpbxSKrecqR+k6jNnyAcyV9mC+0Ix5Cqin0hS/eL7ScjvqoybQ mL1MaRp9MMVNDGpvY6qNrIL1PvoqljBav8p2MOfJoi233cIKua8bFNPeJFmx 0msd9LPOa5jquILx9kHUFhbi4ulLLNBhAc8ZElJljzMXcOKYGimuCsic4iHb d5iRmkVLeUQi8BsKjKeCSkdKuCVnSwwBUmx6ZyvrBBG2kLYIpEdvCYRHe5k6 v/nyNnYE2dskO9+sQXpaC8WZRtZCIPQIRT7XZhkWzNsspYEB/ywa25JQygyy +DyrSJ2NZLnaaY67aY77aY6HSJWHSfeGKVweImPbT/PbTdJJz/+vuEiYSUOX X096TBavSr+CGopeqkmHK0zXxeyEHEXQOGqTr0GWxyMeNf0vYQGtXUXw0YlW kv5mhHRqVLSSjKJqhEc7g4Ke0rV7aJGiVOE9f4jS1GWU5dP/pKynjiKoRvHw BgNhqJXey0QYMhOGTBS9tNL9mwiObXRlzvASOUOh1ljUzyC/CAemoC+SzY3h 6slVlGvo3zLDe/RCC1KiW6CM58WDws658BBUVOoWD4krb0ZsLR6GrWgcvYVT GC6awXjJrH2FfbF2HkuyeVyte3Z01mJFLxZLzVgoUuEXz9f5/xj1yeRci2is 6PN1UUozTGnVtOUWFjpuo7d6CUPKaxjXXMOM4RrmW69hsY3EQlmabRlXOpYw 0TGPEdsEek298Dh5AR6nL8LDUVBHb7if9SHxgvPp84zo5eQJLdLcGlDnnAD5 gSOICY5+gaWdL3KOPaaZYYI2OmDLu9vIegUyGrlgbH5jB179xSa8/qvN2PDr LXiHlPK9V7Zh029IKV8tR0pK63rj88mdrusNQmHrTYHSfxFXhYqzSZFoQuXk RptJOQykUG0migBoMq00me19gqenARkQjOJ13u30txQzXUdVPg8ammisdKQL raQL7aQLHaQL3fTnPfTnPfTn3YNcf4WgwSawk/Qtvipui+dTvFBI5riM1LlG aIom1WyguENJUGi0rTigsWvlBfF3Wbm6vYrV7rj97WYu2kGwcw7PNOifWVUh 06AY0qAErkFSV/oD18ukOalQl/CKEgtpTHfBPAaLFjFWuoypymuYJRu/QJ/r aj1vR7xO2LmuvE7C2/gW669gsW4Mi9U9WKxqwUKZ7OfPa9IWVEinUJdFHoMG t7WeO63hFnJY9NFmO1bRSYrZq1zAUPMC+fMFjLeSmOcxZp3DoG0WPdZZ2Mwj jNzJ7aQ73EiTXMnQuTp6w5WM3LnTniKJK1/DOHVShzR3JeSECfkHR/8/FjdO 2biFDNvW97aRbMc2ugpFagKD6uG9jnj95+/hjX/djLdJn959hfw46dNmkh2v FrBPrFG2YsvLW9lzp10uz1WxhFBszqcoq/Q6CkiRKmkqZaRI9WSZ6i0shEON ZWW7SElTlH4NJQSycpr5OhqaRjJkGvp1Pf16C0V8rWQEW8goGUh5DKIz3sj+ 9gWkkuPNUK2IplCsbRbKS4WacXacq1DfvF4oJTYzCEvLQvnZ/10vOQ2R8trI o55cQWLdEthHExSjuWQE6mK+Rmwtuopeij1GSsnBV93GlVpKHuQUTjVQuNXI d7NWm+/hRjNln823uXI0XcViwwwWFSOkKB1YlKl+/nyX4GaURS6gJpeUo5Kf UNdBoUi/yO41SdAx1VIcrJxFp2YWXUaSNkEZZmEiMZqmMCES/zid9CC5iLOk GGdP+8Dx1EVG7sMWtsScXGhwO31aj/QLjah3S0L9R8e+Re8n5OV2pdhOsuO9 HTi09xSjUj+x/yzjT9vwy01461ekGC8/U4ztr2ayT6sWFONVTnnlst8ZTnvO 8SoISbCvOEEZuUvIockuosmroMmuocmWEcxl9HFr25luiJwo/4MVOArn8goV hAHi2bz2yWQEJOuT+SNW4MrrrnnN0ZGLLQh1TWG3ctklD81FU1CLNSYdBbfQ X3oXo5X3MVX7CHP1j7GkfIprTU+xIp7KdlP7FDcpe1zVcSr2Jc0qFlWLWGwW D5BsaoU4k0fY5V2UU+ZUR7OoUfCTyjrIsfbSxxkgHW6qnUFz0yzU2lk0G2ah pJmU62dgE3ldOmkWTx7zwInjF3H8xCVOzxTwHD2TmCkKMyjEFqcdDcjwbEK9 ezIUB4+L3C1RbPa2M0jvpNnbiY0vv43jNHunDjjhzIFzcHnfGe4kG39JruJX gqvYjs3kKra9Gsc+ZjPN4ObX+Ay+++omOL/vhMGkVljEANXfK/RZXZW9loXV s/ApEWoRg0W6CF6NyOtQhBIwL8cM9lwZN4yjb2SQcKY9j3fL4butCsF7axD9 oQyJR+XIOG0vGvg+qjwbIPdR4I7xU9ww8uX8q/rbWNRdx6JhjmQUi3orFpWV 4OkhjoqrM7kErBKKoevIJ6kottK1crPSRlPSSsNuIHOSTeBKqB5iVkpBP1fQ lMnJSn14yIM3mj1Pkxf0bDoixOlwYBPyQzieNSLjogoKjxQ0HDrBpmM7A9IO kl3YSfL2y+/i5H5hKpxpaN1w/oPz8PzAHZc+9MBGmg4hlHzvNzvw+s8O8gjl O3j3dTLEr76L+QrhAOg2jCTrxdn4K16DJxJ22MtChdIEiVhOFsRLyiChWQgS y3fspRiJkl7EOrXTLLSs0yJ4bLXCb7cVIR/YEH3EiqRT7cg8x1m3SwlQ1T4G jIeP4+vaUdxs46eYXW25j8XWm1g0LZFMUBjUjUVtvX0mTorGOptmoID8XgGN 8vfEKNKfdZ0F8xH2D1/vHhaakMLtTfcskI5d5y9xdKJR9qJRvpCCQ6+8xkZ3 xyZB2XfbR+zc++QiP/Ckgb2ISx95weeQl1jr9xfY8lN+eIX9cenDM7hW30XO 2wzHXSdwfMtRXPKWmMUNHR9yJX5CpQ8NsD/bjI5EQGAkK/ZhdAmUNgQIwjav edlPcxa5kKMFyDijxNFdt3Byz12c3fcAHh88gt/hxwg5/hgxjk+Q5PwYmecf I//iQ3uR+Yziv/DHyT+s392S+SEW20nTbRRa2siLWPuw2NIkDu355/t5WLem 0MfFad1CORnrOncB7xP/O4EigvWKs2G81IxDG3bj8CsbaRh3k4LuIeXbilP7 XUlBORu2xweXcPEjH/gc9oX/EV8EHvNjr+97mZfbFZ2SiGP7PbxFtsblQye4 7j8N593Hnyu1C4b/JalZ1ARvmm0fmm1fxivuGxghnK8aFL6+sukgYrc5/f+1 96XdTV1puk+nqm7Xh+7bfVff1XVXd61et1fdrqoMlU7IQMIMIakkXQHCPAcK bDAYY5MwZWAIJsYMxjae51GWJ8mWZEueJFmTZ1uyJEvyLM8DxgTSdSuVbujn nCM7UL+gP+TDXhwDPnvv57zTs/e7310JebSZjSYz2ovSW8OoTJhAbdosTNnz aM5/gI6ib8SryKPZbt95jMSER0hPeoxq7WP4+x9hoHoe3upZgjcJZ90wnPU0 GQ2M1+qMcKiK8BSSLyI0KEKMKQWBlI5tLpa1DRxiltA8e0oSTPHEPXVr+x4l 1r+yERteeYdovo5Xn12K159/E9vfOYjd7waL+Bz6t+M4siEUxzadwFvPbcT6 54Lx9vOXxX97b+15RIdKdZM/WvI2dj+/THx+44WlOPi7fTj43m4cfGcrdq7a sHhQeSENKiwovD6wJiaPrID8KyL2lR1yBvPFMUQscQI16XdhzLkPW+FDtBc/ hL3sIVwVD+FRPUSv5gH6qr5Gv/Y+BrTz6NfNwVM7C1f9FJwGv1hU1GnsFFIh Au7uYCDCCxW8c8jpQG6/BJZU9lME7EfiMZ5/euIM8zks+dctxGkLNix5F5s4 N6Hg8vZ3DlNjj4rzXfPrTVj77C6se+4c3nohFutXFuDtraV4/7hUUCooQrqz 4ezyjxG3QqqYtfw3b+DQhgPEdy8OvbcDB97eKKSrMC4gUD9azFoJDwpH3QJO l8og/7IR8iudlDKSndvDUCZOQpcxC0PuHKyyebQWz6Oz/D66K+bhVlOKqu7B V30Pfdq76NPREdVNw6Ofgss4DqeJOJmF1EWqqNEYwOn3gcBUyNsXIhgxmTv0 +wqJQtk04UzteekI6F8uHqRd8fpqIrUd61/dhhf+4QWs//lvsGAhVv86FGue jcLaJZlY93451h8sx6az5dTlaOxZJt1y8dovX5FM4V8jYfk7WPHimwje9Hsc /uAjBH2wm2bxw8UcBOmaolNPXbRVG0Ap/3wh5Bf0kF9m6MIwvThmCOVJ46jK mEJ97gxMslk0lcyiXTELeyV1TD0Ld9UMPNoZeHWMpGon4dOPw904SmSIkHUA ThsNmbUD3YsoHQoYMSH79Mm6UxGBA0ynnigw94x4fOkXYjCx/LVV5DDrsOJN 0uJ/XIpXf/GeOOdVzyZi9So51mxX4N1QBXZdUeDydmmt4PpHFMPNkmFb9a9L seqlpeLzsTcu4dbKA4h//V0cYQAWzEAseNM+BH+wTdxaFpO0QsWMDXFbWbyZ IeRJtP4esvM1KPq8BfKrLshjBlCaOIrK9HHUMLY0FE7CUjKJ5vJJtFdMwq6e RHfVBM050akZg7thlCj54bIMESHhpiDGms1EytYZWJM4HFh/DBFydEVnf24x Rzd8wcnTD0UEnHyYUJ3z1dXipsOz/2cpVvxqPc1zOFa8r1i8l/Xw5ggc3U7/ tosGby/Z2/4zi2kuK18RrvmgZ31tDda8tnZhASFx1TYc2XKULQhHtxzAkU07 cS7szDPiXuFPcPbEwm6hsP0u3cz004WVqhsqqUDhTTVSr6uRcU2N9KtqJF9S oyyQGyI7b0WRsOlL2yW/M4jy1GFosv2oLRiBUdhPKxPyrUbRrhpBp2YEXTo/ HPXDcBgHYTcLG7696BZuWRLvV/Ggw9K6sKhzJOB8QhYzJQXnI+RK/hK7tn2O 4EOxuBWpFos3iYtT9ACvvfg+frdyA3b/9gPsfY+WfcNZbNp4Hhs3fobjO84g bBcVejcVei/F8SWyppeFumFrsOrltVj9MkXzn69g16sxiFz1CdJW/w5Htgfj 6DYGe1t24XzgisY/32hd2Dn6OOTETwLLMglxRClejSw2GZ/LYtVQxqihuqGG miiqiKLysholn6uR+0llcSC4ygk3Iv/zThRc84gbg0XJfVBk9qMqbwC1RQMw lAzCrBiErXIALVUDaK3t//564MDKeUdgn6ityRXYiggJLI7FcyCpbHkcjPw2 B8VPq+CAFBzQpmU7sOaffovtr+zAqUOn8dZb72PX+2HYvyEChzZ/guBtp3Fs B43iLjLDPUIZ2WVYIeK3mvitJX7rRPzWMDZZ9atEhLwZjZi1x5C66ncI2UHV 3LLrGXEX4i/FjAxhyfZs2EKBZGEXQtirXihz9TdIjC1DegLxSyR+4n6MGlV3 1Kjl8Bs49EZKpHh5bZQahqvSNn31F8T1tArFga2HrI9bkHPZjZybPnH7oYgM VpHdC01+L2rIYhvKe2FU9cJM3mCp88Fq+H6naaHMv7XZ96snhfGfkRKvQppQ E4ytnE3zxKgMHJWRo9pOMDf/y0YconEPWr8DW94mtX8vTEyvP/jhKQRt/VjS 4p2f4MTuT7CMYC5/aRUBXUMw10lgLnmLTSp+tf6lJJxddQVJbx1A1OsbxGu+ zpPYSQvg3y+Cnw1bWASnLoeeZNhxXBx1WnwpshOlm1lL2FRstfzZyLFbKaHN FIg2tg7OoZ2tja2FwiHs6RqpYPWfLqD6t0g904GMyB6kC8Q5iSRZSEcjea4k olUKH3RqH+pIkOvJ1OqNwgo0kRZqGzeJux2B/IngwJ5wZoJ0Z2xJoNxSHUfV yFHZOKqWOIE8SSOKW/o59r+8FcFv7cLhZQew6ZWd2PDSTuz+gCK6KRyHtoYj eHsEQnZG4PjuU6J4LheObxLRFYJ4Llknorn6lXU4tvskQvaEYdsbCbjy1mdI f3vrM0IG3jPixsI/PIHoaamov3iDIC3j8ePIiCWLSaxAYTLHLNaSEUpEVcOc oEPLHR06EmrgSKyFM7kG7hQd3Kla/lnFn9XoorS0cj5NgtxeVJYE+GDSNS+S 4n1IS/UhN5diWuRDKQmXkkBWUjRVdVJCgbrRB41ZWpIPpHIFBRYxchIUyE9S oZS9VLHpk6pgTaxG2x0teyXJThRGUQ1PajXqNydh7oYCR9/dhpDVB3B01UFs XboLm5bswN6NYTiwOYxoniSaJ3F010m88eJy8SDsMiK5/KW1WCnI5BIBxTAc I4ohe08wuElG8MpYxLzzMTLf3iRt0iymjpwPoPl9FtvpMGr7iVDqUBlkSZUc dxXURKw+qQGWJIN45aQ92QxXmmVx0b8/p5HNgN7s+kU63Elpab9VCcvFEpQE 8glvXGlHTIIPcZk+pJC/ZpK/5lTQAmjYKJcFhDO/1vf80z46904xCpOUHImG COpgSK6HLUmPjmQjnKmN8KSb0JdlwgBHkfrbq+g/r8QfZDr0Zeuwb/0ebH1z B0e1lfr+MnZ8EIo9m0Lx0ZYTOLj9BA7tPIHXf7OMSK4Uq2+LSC5ZS3RPUA5P 4CgRPLIvFMF7j2HdkjScXncdSQyuk9c8sdAXIS30CSieDQ+geDICl05cRlGi AvIkLeM8PXRJZpgSbWhJboE9tQ3ujHb05nSIRymHCzvgl0nLoiNF0sUcg4Vm +PKkg9bdlJzOmDI0XMjC4JOB3q+QczsPsoRSdlONCnZTx26sSTZ0pjTDld4K X3Ybu2iHv7ANo0VtMOwvwcMUE77T1rIrE7vRY99v92HL8p3YunIXtryxHds3 CAnYx7F363Hs334cr73wJmFaiddfXI2lhOnwjmMI2n0cQXtCcZgQHd4bikN7 Q8Tlm01vphLaOzi+/Tqku41+vrgWem4x2+sTEaLIsEjIE6pQkmiAKrEJ9Ykd sCbb0ZnWDXeWC735bgzKejBS3IOx0h5MlLlFOCYCp+T9pe3oL5bOKzmzBdVW 0CQVPoXQMhTGydiLmiGkAVVJwk0Y7WhJtcOR2U2AnUTAhdFiNyZKXUjfkojB K2Z8p+rAlLIL4woiV9aMfrkZPQUN2LRiBz5cvg0b3j+GzeTw2z48hh1bQ7Dk uTepooexb/MR7OfPB3YIG1LHcYAICacqgg/fJKmLZ0wSj/DdKfhifwpu7I9D 3B6hBngcIvl8YVdcYK/+DBmMUPohFPJ4JcfeQHfWhKqELhgSXWhO88JBZ+kt 6McAIw9/6SDHObhQ33hG1Y9plbS3MlLhwoBCOrzlLDTBmaVFd2rRggxJlGo1 cm6kQh5HUb3TQHdugy6hU7xruD3TC1deL/qL+jFSOoAJxQCmGd/og+vwTZ4b /2myY6bKg0mNCyMqB7tqh6fEKtb8q/miABVnU1GUQ3sp3NmhkPKhd2w4jJ0f BmPX1qPYTTnas/M49hCpsJAYGqM4fBkeL9ZPjg2Lx1d705D4UTKy999G3u5r SDkYh4R9cbi9Mw7Rm2PFjIaTuz4WDzHL4y1QxHdAm+BGY0ovWrMG0Z0/gl75 GIbLxjFWMY5J1QRmNOMiHHe1oyg6loiFVS6v0g5XaTNhaoAzV4nmpDQMPAnT r1F4MxfyWKmrCnZVl+SCNb0PnblD6CkawWDZGMbZzbR6HGn78tB/3YXvaocx X+vH3ZohTOn6MUq3Mahxsjvh+k1+kbwqONILEZfiQzp9dT5tYjFt4qZ/O4wP NwZjMwVq89ZjCDtyjTabQnIqDlFssRHxSCZUGYQq50QcUvanSTP5OfKD4pD9 +9jFVa/Io9cYUzZw6K1QxHWjJrEXpowhtOeNwVU0ib6yaQrKLCbUc5iuvov8 w9kwhkjnHoev2zCVJWnd48Zi+NRuuJWk5aVmOOVV6MzOfAqkn5FsFJOwCb21 QBXvRAO/RVP2MOyyMXhLJzGsnKa8zGKWxF93vBkPisfxH21+zOuncVc/iSmS t7HaQQzpvPBpHHApmghUHZz5JYEQ9P/iYkYP1q4/tFjN6PyJaHwRcRuXCEw0 WzxbOgHKDb8D2ckEpO29iHLKk/xQujiTGrL78pNx4rPsWCxyDkulauW3TKTl nVDG9aA2hfF89ig6CqfgLp1Fv/IeMvbIoD2gWKgyN1f5NeYb53GvYw7zvTML ZM+tdsBZyVErauGQ5T+Fz49QFE2NvmlCCfuRVvr+Fj7lXfjV98Sfkg6Xoee2 H9/yxdMmKzuYw1zjLKYMkxjTj2Corh8+rRuuSgqQki6wRCkxm+cRGvQxzh27 govhN3H5VCyuiVAkIP1UMvIiUlF8Kh3pH11Dzu+jURAcjeKjUr2ZhvBkGE9K S0HKT2JRfFKCo/xQNkpuOaCM70Vtmh+h7xQgZkMRinYwHgi3oy1qFJ7MB/yk f8KE4U+Yav8WY67/D3v3HzBpvItR/RQG60fhIxVyaV1wVrfBqW6Ao1SGP5Oa oq+Em4isKI1xQJ0oGa/mwgnxT1/lPfirvxafK8KcuFv+AH9yfI2H5oe4b76P OfM9TJlmMGYcx5B+mN3RalV3wamxECF14ETdc7h44itaF+EiywTcPpWG1IhM 5Ebkojgin9MuRE5wPAqPxaP2CxnqL0rF0xrOyGA9K0lN9efJ6MmQimNow3OR 9sFtnF9eiPgP9JAd7UH1pWmYE79Fp/w/4dI9Ro/1ERztjzBn/Hfca2QzPcSs 6WtMNt7DqHEGg/px+OqH4KzzwFnbLq5GdymL/lyfrmggj2pCyU0nA7F+6LOl DTRH+Ry18T78um8Qe1S6x+Ub63e439WPB5ZvcN/6AHet9zFl4YcwTWLQOMLe etkbpbOGNlpdhQXByYvNo5cpxxXqSlR4Fu4QkcyIIshOlaD8TBk0nyqgu6BA 3WUlDJFKNF6V6sIYP7dAHSGVdLZGxEJ7UirgpA5KRyWtSPqpGRRH/xGajP9A XfljNNQ+RpXhMfw1DzBR/xDTBiLS+BB3icyc+QFmzV9jwjyPEcr7gGECXoOQ y0h09LQ4dXq0VxT+ueAUXKyC/GoTim+6oEoZQEPOGJrkM+IwvJp5DNfcR2G4 lFnwsOePmLc8xNe2B5hnm7Xdx6R1DqPmaQw0jsJrFI6EdsNZb4OjWh2Ahyob V0h4NGKYIun+/4P8jBoVn1VBe0kSCEOUFqboalhuSD/rztJXHJSWoLuu5KLr uhTJ1XyqhO6zEihP5yKTgnKr6BFaaV6cFXfRWz2HoRoKR8M89YfqTxMwY5rH rOUeZtjGzXPwU9D7TRPwmIfhNBOaRgpOQ/3g06jkfqpB0SUbDY0TFckDqMsd g1UubfV5qmYRdVwFc5yE0rxnFHPWeSJyD/ea2FPTHCasNEiWafSbqeFm4fAe hcZgQae2Aj8OkKPc6yk08uXisfrSOzaoGZ400CPmnpYQUF2qR02kVNqo8YYe lhj9IjuwBcViKjwG3925uXg7XB3/vSpKh4YrJai9kI4qIQ+5YBzNdBr2yil4 qjmemhn4G2YxZqC7EoyieRbT5hkK+TTGzFMYNtOdWcfEoz5Oaw8RaoVdX/t0 zPxXKPzChqLrUgypyxmGuUjSKbdGgsir/ANmPN+KzzNWGvZZ2wx+imnbNMat 7MU6gT7bCNw2qpOlC93GRhgqi38c0KbCG9n0txTLOBPK4tpRHe+CgV6wJWtI smf0eMPlEwwVpN4caW6UHkqD90gqHkYl47Esnb62El1p9WhPJYWKraOYqaC9 XI6Gq9lQCamq+cOwloygQzlGOzcOb80E+usnMKyfoPbQU1BExs0TBGUco5Yx DHK4vqZh6eL0Jie6Lc2w1lY9DcyPkHPagsKvHCi541v8Vi3ldN7qEaQnPcLC HTTjlglqzgSmbAyqiPeobRSDTSPwNhP3Jq+4Jt1uMEgK9BPIohmB36ojKs1E xAFtojfw+l+gmxFIb9kMmhJ60JEaqFAelIeJc7n4Lj0Xj3Qq/LGjBcZUG8yZ BnIDUigqovZLDXSRtEtf5qDw1BVoc/thlA+gSTGEDjVnqvXDy8Crr2GEtoR+ s3EEw41+DFFxBm1D6GseEM8zOFsYTTc50GqyYehJ5vm/kXvBgYIYLxRpPtTk 98Fc2oc2hr+O6iF4GNf10dkMGv0YNvkxYvZTY4bhp+QNNg+ij6/uaemFo5lh tLUNWo1aQuNZyKLI1m4YUHyrDeUxbuho1U1ZUr6Ls2QGjQletKb0Q3ZQuiRj 7oYc35ZW4pG1GcMFvWi77YYn24W+/C7ygFa0kQA3JdVCG1XJVoCSzyKRftYC HSl2I4fcVNGHDk0/HAw/3bUD8NQP0LIyijCxWfvgaeqFq8UHe6uwQulFi82O 4SeR+DuknGhGTpSUo1uR7UOtzAdzOYNsNX9Ny1+v42sa+tFr6EOfqQ+9lj6K Wx8R8KE7kBjfQrEzGKwBd0wY6ETk0Qy4bnYyLPVClzoEE+1UW5GUMWJJlg5d j8a04l6guM5c5yBGZcMYkTF8TWQfBV5SMyeDw0505lAwshrQnEFVuS5D8cVI JJ23Qsnxagt9MJT6YGVk3UoS0sEovKvOB4eBzcw52HzobJZO8AprixZbD7T1 1gUYggJLEcmn7ci44RMTzyrIa2rIa4zlPthUPrQJr6zl6/RsJuGmcL62ySfe Qyy80sznusaOQGbVj1F4WSFtLl6zC+f8FtZS6oWEKPqxitjHi9c1+YtIX0hj RotH0ZkqJEMNYIB02FXUjS7S+raCRrSSR7RkFuBGkAkxp6xIPG9BGYeo4Zeq 4xCNHKKwmmrjrJs466aFjFSbtP5Xb/WNPLn+9zeIPdeFlFs+5KT6UJrLNwmn AIRb0oifeSG3tVFalzXzTXqbdIChUm8P7FL8EvlfCFcBmRja2VHOKLI63Q9j /iRUt9yopyxZUvvRljmEGttj0tlR0tkx+IvHxO87XjKELqpFX5mfxNILd4kb XSWdaC+xUEZ0nHEhekj6I4P0uEa7detzE2T5PpSTQan4nbVV/ED8ILX8IDVG ElCTtEhXYfSNSjM9Gshcj73tQ3I6uZeQdStcJ1fJ/1nN3yBWWv62ZjFJ0xc4 Tv8LyC408vN1oSTehyrOypA/DlVMN+oSPDCl9on005E7DE+Bn/R5BP2C1Jb6 MaH0w55Hs6QcxkAFZ6X0Muizo0NhQ3tpDWwFhfDKzHAJSRSpFeiMkyEmQ1ov y+bYCjg2GWcmE9bLOLtcfolxaTrSgvL/QAxpZHKxDxlKHzKpoOn870mVnr8W //nnKPi0EUVXO1ES64EqbRCFV5tRcauLpN9NI+tFc2YfunIH4OI38BVT2kpH 4a8YxYRmFPYCGk7VIPpJA118dRepTkelDW0K+u28fPjK2iiVZLU5OnSnFaM2 Ku2uNLgLgd4zI+pQeLEDRbd6oEjpQ94VK8pudEAT3436ZDcsGV605fbBUUj7 WTxA10AqqKYDUw6SQvLnKlqZaju6qz3o5J8dGits7H1I40FvhQPushY4ZXry 6kq0pWYEer8Y2BXNPtuGfKEqAGUv46KFjqkFituddEjdMKS7YcvxLK5qehW0 LxWSQ1rYLhZOebRr7WjS2KhZSgxr+9GncaOnohPOMtKNYi3suTmBXi8Fsl6y LrqQRz9y5zMLsiJbUMT5VsQR8RQHjFlO2PJ70CbroXRLcWq3ygOrwgN7HV1i jUS+rey1VtmI8XoGD3X0PdRlt5qxamUzSU4duuWyQK+XA/keGZFeXP/Yijtf tCDrq3Yi3oWKBAd06d3Q5zphlrlgK5XerslqQUOlB00NHuq29Hc6VSumjUKs RdJOJ9pLFudeYHEaPQlICQJdfhnYlLx01Iqrp1sRe6ED6de6UBjrQHmKExp6 q4USh3plD4qzOqFSeVFb74W2Wpr0XRO5immOLG6aLG4MvYxpXfUMcOsY++sM sFcUP93dXyH/QgXOh7TgwvkO3IjsQhLJY3aSE7IsF0oLpHpYynI3UjMdyFP6 Fj7iPbKMWfLGSfLGUdMsXTh5mMA0jOzNIDANA9pVRU919jNknhEuL6Qpi7Kj lKbss6sORMV2IzbZiUR+xJR8qcNL8fygBumWwFnO5y6D9hlysAmGqiMmEg1G Zl4ze/s+eMec1NWVQLhU8KlJ0lB6RTU1VJ8/sljZvl83hZjP7qHZ+hgPxh8t 3LIxxeB3nMHvMAOzPusoemyDDMLcDIBbGADXPdXB3yP7lB6Flzohj/FASWNV S3W3CKf1FX50M9Tz6EbRXzcGXdtjjBCdUdMYI8oxjJtGGU2OMH7yw8dQz9Xc J0aTDkaTlprqQC+RCzum5zpQEO1GcSJNaFYv9LJe2Mr60V45SPUdQk/NEL8y zaAYRg0zQhvCkGWQb6eaM071MHwSojN7UzdaTGQn4tuvBrYQsy+7kScUPWBw VkWLp6fFs9E9tal7Ya/muGoYftT1wqPvhZchidfai54maTN74axek9U+/+Rb /xfuhFiR8ZV0BK40QzoF2ECHYuKbm9SSl++kW+iiC7XTmXQtnIkK3DtuYuBw X3pllPjH/0RyNG0NIZAL50SE03TCmRRa8UZ6GPPC3qZJ8qHCLaPCuaMas/dr 6S3XArJ++4YXiSlSUrdcLp0MUWmeuPLUIG0/CX6quN7zQPrtGwGXcDNbOtOS zmlkMxLIokvIqPb9u/S/xDyxqB+ef3j+4fmH5x+e/zs/4y/+Cw1RPIU=\ \>"]], Cell[BoxData[ Graphics3DBox[{ {RGBColor[0.7333333333333333, 0.6, 0.4666666666666667], SphereBox[{6.2984567579999995`, 0.87813677494, 4.5943018512}, 0.255]}, {RGBColor[0.7333333333333333, 0.6, 0.4666666666666667], SphereBox[{8.0912398142, 3.0808202978, 5.136275268}, 0.255]}, {RGBColor[0.7333333333333333, 0.6, 0.4666666666666667], SphereBox[{10.1614346472, 3.1034970098, 3.1087882425999998`}, 0.255]}, {RGBColor[0.7333333333333333, 0.6, 0.4666666666666667], SphereBox[{5.4828510164, 0.92895150708, 1.8780285960599998`}, 0.255]}, {RGBColor[0.7333333333333333, 0.6, 0.4666666666666667], SphereBox[{8.954466651, 3.8282069308, 0.5798057313199999}, 0.255]}, {RGBColor[0.7333333333333333, 0.6, 0.4666666666666667], SphereBox[{6.659205451399999, 2.2315774334, 0.10211134441}, 0.255]}, {RGBColor[0.7333333333333333, 0.6, 0.4666666666666667], SphereBox[{7.652445436999999, -1.61707633272, 5.1421334186}, 0.255]}, {RGBColor[0.7333333333333333, 0.6, 0.4666666666666667], SphereBox[{3.9725819972, 1.10059531966, 6.2977008676}, 0.255]}, {RGBColor[0.7333333333333333, 0.6, 0.4666666666666667], SphereBox[{3.2546750897999996`, -0.53636093058, 1.15904454484}, 0.255]}, {RGBColor[0.7333333333333333, 0.6, 0.4666666666666667], SphereBox[{5.6393203292, 2.1062885995999996`, -2.5537757163999997`}, 0.255]}, {RGBColor[0.7333333333333333, 0.6, 0.4666666666666667], SphereBox[{1.2153772769, 0.6439052372399999, 0.150276680698}, 0.255]}, {RGBColor[0.7333333333333333, 0.6, 0.4666666666666667], SphereBox[{-1.00289648546, -0.7372954961599999, -0.36513285772}, 0.255]}, {RGBColor[0.7333333333333333, 0.6, 0.4666666666666667], SphereBox[{-1.10875893598, -3.5256617982, 0.20480850387999996`}, 0.255]}, {RGBColor[0.7333333333333333, 0.6, 0.4666666666666667], SphereBox[{-3.047183175, 0.44584305518, -1.3762307540199998`}, 0.255]}, {RGBColor[0.7333333333333333, 0.6, 0.4666666666666667], SphereBox[{-5.1780382126, -0.97286873932, -2.1119577776}, 0.255]}, {RGBColor[0.7333333333333333, 0.6, 0.4666666666666667], SphereBox[{-7.2930195518, 0.22196721596, -2.9294532452}, 0.255]}, {RGBColor[0.7333333333333333, 0.6, 0.4666666666666667], SphereBox[{-9.5026761636, -1.24914668052, -3.692524604}, 0.255]}, {RGBColor[0.7333333333333333, 0.6, 0.4666666666666667], SphereBox[{-9.4310555482, -4.0933354886, -3.5706372769999994`}, 0.255]}, {RGBColor[0.7333333333333333, 0.6, 0.4666666666666667], SphereBox[{-11.584965243, -0.072731774288, -4.4973589074}, 0.255]}, {RGBColor[0.7333333333333333, 0.6, 0.4666666666666667], SphereBox[{-13.7116628834, -1.5733480730799998`, -5.6533043016}, 0.255]}, {RGBColor[1, NCache[ Rational[1, 3], 0.3333333333333333], NCache[ Rational[1, 3], 0.3333333333333333]], SphereBox[{-14.6026686924, -0.31240950232, -7.868819063999999}, 0.178]}, {RGBColor[0.7333333333333333, 0.6, 0.4666666666666667], SphereBox[{8.9455849388, 2.8361007808000003`, 6.994820788999999}, 0.1]}, {RGBColor[0.7333333333333333, 0.6, 0.4666666666666667], SphereBox[{7.045654418399999, 4.8545171214, 5.077693761999999}, 0.1]}, {RGBColor[0.7333333333333333, 0.6, 0.4666666666666667], SphereBox[{11.011055456799998`, 1.2324226054199998`, 2.9663029022}, 0.1]}, {RGBColor[0.7333333333333333, 0.6, 0.4666666666666667], SphereBox[{11.60291764, 4.4877213048, 3.6071089888}, 0.1]}, {RGBColor[0.7333333333333333, 0.6, 0.4666666666666667], SphereBox[{8.4075799466, 5.8133640938, 0.62856066212}, 0.1]}, {RGBColor[0.7333333333333333, 0.6, 0.4666666666666667], SphereBox[{10.3173370422, 3.5362442637999996`, -0.9369639453199999}, 0.1]}, {RGBColor[0.7333333333333333, 0.6, 0.4666666666666667], SphereBox[{6.3706442912, -3.1879677619999995`, 4.7785501362}, 0.1]}, {RGBColor[0.7333333333333333, 0.6, 0.4666666666666667], SphereBox[{8.2460083736, -1.6577243389799998`, 7.113873526999999}, 0.1]}, {RGBColor[0.7333333333333333, 0.6, 0.4666666666666667], SphereBox[{9.305010823999998, -1.78331552894, 3.924016039}, 0.1]}, {RGBColor[0.7333333333333333, 0.6, 0.4666666666666667], SphereBox[{2.6287978386, -0.38658124782, 5.8226237512}, 0.1]}, {RGBColor[0.7333333333333333, 0.6, 0.4666666666666667], SphereBox[{3.0889461196, 2.9398467381999995`, 6.0161316936}, 0.1]}, {RGBColor[0.7333333333333333, 0.6, 0.4666666666666667], SphereBox[{4.5430902766, 0.9068606101399999, 8.2673622774}, 0.1]}, {RGBColor[0.7333333333333333, 0.6, 0.4666666666666667], SphereBox[{3.2353998846, -2.5602007847999997`, 1.42313375334}, 0.1]}, {RGBColor[0.7333333333333333, 0.6, 0.4666666666666667], SphereBox[{6.8030136, 3.2707377608, -3.7919241915999997`}, 0.1]}, {RGBColor[0.7333333333333333, 0.6, 0.4666666666666667], SphereBox[{3.7010283709999996`, 2.8028416031999996`, -2.5785311269999998`}, 0.1]}, {RGBColor[0.7333333333333333, 0.6, 0.4666666666666667], SphereBox[{5.6759810136, 0.15492918610999998`, -3.2121562547999996`}, 0.1]}, {RGBColor[0.7333333333333333, 0.6, 0.4666666666666667], SphereBox[{1.29132536484, 2.6420259206, -0.2581365716}, 0.1]}, {RGBColor[0.7333333333333333, 0.6, 0.4666666666666667], SphereBox[{-0.33081543356, -4.5810737692, -1.38367627446}, 0.1]}, {RGBColor[0.7333333333333333, 0.6, 0.4666666666666667], SphereBox[{-3.0658914624, -4.0899339818, 0.51139765012}, 0.1]}, {RGBColor[0.7333333333333333, 0.6, 0.4666666666666667], SphereBox[{-0.0062334501835999995`, -3.9225042581999996`, 1.8987966848}, 0.1]}, {RGBColor[0.7333333333333333, 0.6, 0.4666666666666667], SphereBox[{-3.0381124902, 2.472706471, -1.61573462726}, 0.1]}, {RGBColor[0.7333333333333333, 0.6, 0.4666666666666667], SphereBox[{-5.1264486927999995`, -3.0110894083999997`, -2.024841409}, 0.1]}, {RGBColor[0.7333333333333333, 0.6, 0.4666666666666667], SphereBox[{-7.3442311263999995`, 2.2604902412, -3.0167585863999995`}, 0.1]}, {RGBColor[0.7333333333333333, 0.6, 0.4666666666666667], SphereBox[{-11.297726891, -4.846580272200001, -4.0077309008}, 0.1]}, {RGBColor[0.7333333333333333, 0.6, 0.4666666666666667], SphereBox[{-8.877554802799999, -4.6857645896, -1.6773019003399998`}, 0.1]}, {RGBColor[0.7333333333333333, 0.6, 0.4666666666666667], SphereBox[{-8.0659174858, -4.8050063002, -4.9393658188}, 0.1]}, {RGBColor[0.7333333333333333, 0.6, 0.4666666666666667], SphereBox[{-11.7452140078, 1.9541656565999999`, -4.3202915812}, 0.1]}, {RGBColor[0.7333333333333333, 0.6, 0.4666666666666667], SphereBox[{-15.250088819999998`, -1.7430832623999999`, -4.2942133624}, 0.1]}, {RGBColor[0.7333333333333333, 0.6, 0.4666666666666667], SphereBox[{-13.031550496, -3.4508286486, -6.158617033999999}, 0.1]}, {RGBColor[0.7333333333333333, 0.6, 0.4666666666666667], SphereBox[{-15.9583581248, -1.33242690534, -8.547797615799999}, 0.1]}, Text3DBox["1", {5.698456758, 0.87813677494, 4.5943018512}, {1, 0}], Text3DBox["2", {7.4912398142, 3.0808202978, 5.136275268}, {1, 0}], Text3DBox["3", {9.5614346472, 3.1034970098, 3.1087882425999998`}, {1, 0}], Text3DBox["4", {4.8828510164, 0.92895150708, 1.8780285960599998`}, {1, 0}], Text3DBox["5", {8.354466651000001, 3.8282069308, 0.5798057313199999}, {1, 0}], Text3DBox["6", {6.0592054513999996`, 2.2315774334, 0.10211134441}, { 1, 0}], Text3DBox["7", {7.052445436999999, -1.61707633272, 5.1421334186}, {1, 0}], Text3DBox["8", {3.3725819971999997`, 1.10059531966, 6.2977008676}, {1, 0}], Text3DBox["9", {2.6546750897999996`, -0.53636093058, 1.15904454484}, {1, 0}], Text3DBox["10", {5.039320329200001, 2.1062885995999996`, -2.5537757163999997`}, {1, 0}], Text3DBox["11", {0.6153772769, 0.6439052372399999, 0.150276680698}, {1, 0}], Text3DBox[ "12", {-1.60289648546, -0.7372954961599999, -0.36513285772}, {1, 0}], Text3DBox["13", {-1.7087589359800002`, -3.5256617982, 0.20480850387999996`}, {1, 0}], Text3DBox["14", {-3.647183175, 0.44584305518, -1.3762307540199998`}, {1, 0}], Text3DBox[ "15", {-5.778038212599999, -0.97286873932, -2.1119577776}, {1, 0}], Text3DBox["16", {-7.893019551799999, 0.22196721596, -2.9294532452}, {1, 0}], Text3DBox["17", {-10.1026761636, -1.24914668052, -3.692524604}, {1, 0}], Text3DBox[ "18", {-10.0310555482, -4.0933354886, -3.5706372769999994`}, {1, 0}], Text3DBox["19", {-12.184965242999999`, -0.072731774288, -4.4973589074}, {1, 0}], Text3DBox[ "20", {-14.3116628834, -1.5733480730799998`, -5.6533043016}, {1, 0}], Text3DBox["21", {-15.2026686924, -0.31240950232, -7.868819063999999}, {1, 0}], Text3DBox["22", {8.3455849388, 2.8361007808000003`, 6.994820788999999}, {1, 0}], Text3DBox["23", {6.445654418399999, 4.8545171214, 5.077693761999999}, {1, 0}], Text3DBox["24", {10.411055456799998`, 1.2324226054199998`, 2.9663029022}, {1, 0}], Text3DBox["25", {11.00291764, 4.4877213048, 3.6071089888}, {1, 0}], Text3DBox["26", {7.807579946600001, 5.8133640938, 0.62856066212}, {1, 0}], Text3DBox["27", {9.7173370422, 3.5362442637999996`, -0.9369639453199999}, { 1, 0}], Text3DBox["28", {5.7706442912, -3.1879677619999995`, 4.7785501362}, {1, 0}], Text3DBox["29", {7.646008373600001, -1.6577243389799998`, 7.113873526999999}, {1, 0}], Text3DBox["30", {8.705010823999999, -1.78331552894, 3.924016039}, {1, 0}], Text3DBox["31", {2.0287978386, -0.38658124782, 5.8226237512}, {1, 0}], Text3DBox["32", {2.4889461196, 2.9398467381999995`, 6.0161316936}, {1, 0}], Text3DBox["33", {3.9430902766, 0.9068606101399999, 8.2673622774}, {1, 0}], Text3DBox["34", {2.6353998846, -2.5602007847999997`, 1.42313375334}, {1, 0}], Text3DBox["35", {6.2030136, 3.2707377608, -3.7919241915999997`}, {1, 0}], Text3DBox["36", {3.1010283709999995`, 2.8028416031999996`, -2.5785311269999998`}, {1, 0}], Text3DBox["37", {5.075981013600001, 0.15492918610999998`, -3.2121562547999996`}, {1, 0}], Text3DBox["38", {0.6913253648400001, 2.6420259206, -0.2581365716}, {1, 0}], Text3DBox["39", {-0.93081543356, -4.5810737692, -1.38367627446}, {1, 0}], Text3DBox["40", {-3.6658914624000003`, -4.0899339818, 0.51139765012}, {1, 0}], Text3DBox["41", {-0.6062334501836, -3.9225042581999996`, 1.8987966848}, {1, 0}], Text3DBox["42", {-3.6381124902, 2.472706471, -1.61573462726}, {1, 0}], Text3DBox["43", {-5.726448692799999, -3.0110894083999997`, -2.024841409}, { 1, 0}], Text3DBox["44", {-7.944231126399999, 2.2604902412, -3.0167585863999995`}, {1, 0}], Text3DBox["45", {-11.897726891, -4.846580272200001, -4.0077309008}, {1, 0}], Text3DBox[ "46", {-9.477554802799999, -4.6857645896, -1.6773019003399998`}, {1, 0}], Text3DBox["47", {-8.6659174858, -4.8050063002, -4.9393658188}, {1, 0}], Text3DBox["48", {-12.3452140078, 1.9541656565999999`, -4.3202915812}, {1, 0}], Text3DBox[ "49", {-15.850088819999998`, -1.7430832623999999`, -4.2942133624}, {1, 0}], Text3DBox["50", {-13.631550496, -3.4508286486, -6.158617033999999}, { 1, 0}], Text3DBox[ "51", {-16.5583581248, -1.33242690534, -8.547797615799999}, {1, 0}], TubeBox[{{8.0912398142, 3.0808202978, 5.136275268}, {6.2984567579999995`, 0.87813677494, 4.5943018512}}, 0.15], TubeBox[{{10.1614346472, 3.1034970098, 3.1087882425999998`}, {8.0912398142, 3.0808202978, 5.136275268}}, 0.15], TubeBox[{{5.4828510164, 0.92895150708, 1.8780285960599998`}, { 6.2984567579999995`, 0.87813677494, 4.5943018512}}, 0.15], TubeBox[{{8.954466651, 3.8282069308, 0.5798057313199999}, {10.1614346472, 3.1034970098, 3.1087882425999998`}}, 0.15], TubeBox[{{6.659205451399999, 2.2315774334, 0.10211134441}, {5.4828510164, 0.92895150708, 1.8780285960599998`}}, 0.15], TubeBox[{{6.659205451399999, 2.2315774334, 0.10211134441}, {8.954466651, 3.8282069308, 0.5798057313199999}}, 0.15], TubeBox[{{7.652445436999999, -1.61707633272, 5.1421334186}, { 6.2984567579999995`, 0.87813677494, 4.5943018512}}, 0.15], TubeBox[{{3.9725819972, 1.10059531966, 6.2977008676}, {6.2984567579999995`, 0.87813677494, 4.5943018512}}, 0.15], TubeBox[{{3.2546750897999996`, -0.53636093058, 1.15904454484}, { 5.4828510164, 0.92895150708, 1.8780285960599998`}}, 0.15], TubeBox[{{5.6393203292, 2.1062885995999996`, -2.5537757163999997`}, { 6.659205451399999, 2.2315774334, 0.10211134441}}, 0.15], TubeBox[{{1.2153772769, 0.6439052372399999, 0.150276680698}, { 3.2546750897999996`, -0.53636093058, 1.15904454484}}, 0.15], TubeBox[{{-1.00289648546, -0.7372954961599999, -0.36513285772}, { 1.2153772769, 0.6439052372399999, 0.150276680698}}, 0.15], TubeBox[{{-1.10875893598, -3.5256617982, 0.20480850387999996`}, {-1.00289648546, -0.7372954961599999, \ -0.36513285772}}, 0.15], TubeBox[{{-3.047183175, 0.44584305518, -1.3762307540199998`}, {-1.00289648546, \ -0.7372954961599999, -0.36513285772}}, 0.15], TubeBox[{{-5.1780382126, -0.97286873932, -2.1119577776}, {-3.047183175, 0.44584305518, -1.3762307540199998`}}, 0.15], TubeBox[{{-7.2930195518, 0.22196721596, -2.9294532452}, {-5.1780382126, -0.97286873932, \ -2.1119577776}}, 0.15], TubeBox[{{-9.5026761636, -1.24914668052, -3.692524604}, {-7.2930195518, 0.22196721596, -2.9294532452}}, 0.15], TubeBox[{{-9.4310555482, -4.0933354886, -3.5706372769999994`}, \ {-9.5026761636, -1.24914668052, -3.692524604}}, 0.15], TubeBox[{{-11.584965243, -0.072731774288, -4.4973589074}, {-9.5026761636, \ -1.24914668052, -3.692524604}}, 0.15], TubeBox[{{-13.7116628834, -1.5733480730799998`, -5.6533043016}, \ {-11.584965243, -0.072731774288, -4.4973589074}}, 0.15], TubeBox[{{-14.6026686924, -0.31240950232, -7.868819063999999}, \ {-13.7116628834, -1.5733480730799998`, -5.6533043016}}, 0.15], TubeBox[{{8.9455849388, 2.8361007808000003`, 6.994820788999999}, { 8.0912398142, 3.0808202978, 5.136275268}}, 0.15], TubeBox[{{7.045654418399999, 4.8545171214, 5.077693761999999}, { 8.0912398142, 3.0808202978, 5.136275268}}, 0.15], TubeBox[{{11.011055456799998`, 1.2324226054199998`, 2.9663029022}, { 10.1614346472, 3.1034970098, 3.1087882425999998`}}, 0.15], TubeBox[{{11.60291764, 4.4877213048, 3.6071089888}, {10.1614346472, 3.1034970098, 3.1087882425999998`}}, 0.15], TubeBox[{{8.4075799466, 5.8133640938, 0.62856066212}, {8.954466651, 3.8282069308, 0.5798057313199999}}, 0.15], TubeBox[{{10.3173370422, 3.5362442637999996`, -0.9369639453199999}, { 8.954466651, 3.8282069308, 0.5798057313199999}}, 0.15], TubeBox[{{6.3706442912, -3.1879677619999995`, 4.7785501362}, { 7.652445436999999, -1.61707633272, 5.1421334186}}, 0.15], TubeBox[{{8.2460083736, -1.6577243389799998`, 7.113873526999999}, { 7.652445436999999, -1.61707633272, 5.1421334186}}, 0.15], TubeBox[{{9.305010823999998, -1.78331552894, 3.924016039}, { 7.652445436999999, -1.61707633272, 5.1421334186}}, 0.15], TubeBox[{{2.6287978386, -0.38658124782, 5.8226237512}, {3.9725819972, 1.10059531966, 6.2977008676}}, 0.15], TubeBox[{{3.0889461196, 2.9398467381999995`, 6.0161316936}, {3.9725819972, 1.10059531966, 6.2977008676}}, 0.15], TubeBox[{{4.5430902766, 0.9068606101399999, 8.2673622774}, {3.9725819972, 1.10059531966, 6.2977008676}}, 0.15], TubeBox[{{3.2353998846, -2.5602007847999997`, 1.42313375334}, { 3.2546750897999996`, -0.53636093058, 1.15904454484}}, 0.15], TubeBox[{{6.8030136, 3.2707377608, -3.7919241915999997`}, {5.6393203292, 2.1062885995999996`, -2.5537757163999997`}}, 0.15], TubeBox[{{3.7010283709999996`, 2.8028416031999996`, -2.5785311269999998`}, {5.6393203292, 2.1062885995999996`, -2.5537757163999997`}}, 0.15], TubeBox[{{5.6759810136, 0.15492918610999998`, -3.2121562547999996`}, { 5.6393203292, 2.1062885995999996`, -2.5537757163999997`}}, 0.15], TubeBox[{{1.29132536484, 2.6420259206, -0.2581365716}, {1.2153772769, 0.6439052372399999, 0.150276680698}}, 0.15], TubeBox[{{-0.33081543356, -4.5810737692, -1.38367627446}, {-1.10875893598, \ -3.5256617982, 0.20480850387999996`}}, 0.15], TubeBox[{{-3.0658914624, -4.0899339818, 0.51139765012}, {-1.10875893598, -3.5256617982, 0.20480850387999996`}}, 0.15], TubeBox[{{-0.0062334501835999995`, -3.9225042581999996`, 1.8987966848}, {-1.10875893598, -3.5256617982, 0.20480850387999996`}}, 0.15], TubeBox[{{-3.0381124902, 2.472706471, -1.61573462726}, {-3.047183175, 0.44584305518, -1.3762307540199998`}}, 0.15], TubeBox[{{-5.1264486927999995`, -3.0110894083999997`, -2.024841409}, \ {-5.1780382126, -0.97286873932, -2.1119577776}}, 0.15], TubeBox[{{-7.3442311263999995`, 2.2604902412, -3.0167585863999995`}, {-7.2930195518, 0.22196721596, -2.9294532452}}, 0.15], TubeBox[{{-11.297726891, -4.846580272200001, -4.0077309008}, \ {-9.4310555482, -4.0933354886, -3.5706372769999994`}}, 0.15], TubeBox[{{-8.877554802799999, -4.6857645896, -1.6773019003399998`}, \ {-9.4310555482, -4.0933354886, -3.5706372769999994`}}, 0.15], TubeBox[{{-8.0659174858, -4.8050063002, -4.9393658188}, {-9.4310555482, \ -4.0933354886, -3.5706372769999994`}}, 0.15], TubeBox[{{-11.7452140078, 1.9541656565999999`, -4.3202915812}, {-11.584965243, -0.072731774288, \ -4.4973589074}}, 0.15], TubeBox[{{-15.250088819999998`, -1.7430832623999999`, -4.2942133624}, \ {-13.7116628834, -1.5733480730799998`, -5.6533043016}}, 0.15], TubeBox[{{-13.031550496, -3.4508286486, -6.158617033999999}, \ {-13.7116628834, -1.5733480730799998`, -5.6533043016}}, 0.15], TubeBox[{{-15.9583581248, -1.33242690534, -8.547797615799999}, \ {-14.6026686924, -0.31240950232, -7.868819063999999}}, 0.15]}, AspectRatio->Automatic, Boxed->True, ImageSize->{371., 371.}, SphericalRegion->True, ViewPoint->{2.7230237851951307`, -1.3379314701041443`, -1.4983593849829735`}, ViewVertical->{0.28887128130613865`, -2.472531656539677, 0.031897285461157485`}]], "Output", CellChangeTimes->{3.5709426082272124`*^9, 3.570943186520228*^9, 3.570943725204774*^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"}], "]"}]}], ";"}], "\[IndentingNewLine]", RowBox[{"bt", "=", RowBox[{"Length", "[", "tw", "]"}]}], "\[IndentingNewLine]", RowBox[{"MatrixForm", "[", "tw", "]"}], "\[IndentingNewLine]", RowBox[{ RowBox[{"(*", " ", RowBox[{"coordinates", " ", "of", " ", "clouds"}], " ", "*)"}]}]}], "Input", CellChangeTimes->{{3.568895397419882*^9, 3.5688955157148895`*^9}, { 3.568895549629349*^9, 3.5688955855718126`*^9}, {3.568895617317868*^9, 3.568895845234268*^9}, {3.5688960797194805`*^9, 3.5688961015127187`*^9}, { 3.568896219074525*^9, 3.5688962276233397`*^9}, {3.568896262910602*^9, 3.5688962903198504`*^9}, 3.5688964250728865`*^9, 3.568896456912543*^9, { 3.5688981540863237`*^9, 3.5688981869399815`*^9}, {3.5689021233572955`*^9, 3.5689021341525145`*^9}, {3.5689111169043026`*^9, 3.5689111218495116`*^9}, {3.568911235261711*^9, 3.568911242437723*^9}, 3.5689112948850155`*^9, {3.5689116510180407`*^9, 3.568911800419503*^9}, { 3.568911871820829*^9, 3.5689119012892804`*^9}, {3.5689119993042526`*^9, 3.5689120006770554`*^9}, {3.568912144306507*^9, 3.568912165085744*^9}, { 3.5689528310632005`*^9, 3.5689528569592457`*^9}, {3.5689534065794115`*^9, 3.5689534297298517`*^9}, {3.568954496214126*^9, 3.5689545054337425`*^9}, 3.5689569073699613`*^9, {3.56913308739126*^9, 3.5691332012870607`*^9}, { 3.569135511323518*^9, 3.5691355127119203`*^9}, {3.569136204167535*^9, 3.569136290747687*^9}, {3.5691598050571885`*^9, 3.569159843199256*^9}, { 3.5692215417755947`*^9, 3.569221597186892*^9}, {3.5692216819730406`*^9, 3.5692217090546885`*^9}, {3.5692217693019943`*^9, 3.5692218260704937`*^9}, {3.5692219780303607`*^9, 3.569221989433981*^9}, { 3.569222055468897*^9, 3.5692220728005276`*^9}, {3.5693401536421804`*^9, 3.5693401889450426`*^9}, 3.5693411655535583`*^9, {3.569341634303181*^9, 3.569341638733589*^9}, {3.5704549882757435`*^9, 3.5704550487414494`*^9}, { 3.570455928146194*^9, 3.5704559415310173`*^9}, {3.5708553973857827`*^9, 3.5708554057785974`*^9}}], Cell[BoxData["72"], "Output", CellChangeTimes->{3.5709426082740126`*^9, 3.5709431865826283`*^9, 3.570943725220374*^9}], Cell[BoxData[ TagBox[ RowBox[{"(", "\[NoBreak]", GridBox[{ {"6.2984567579999995`", "0.87813677494`", "4.5943018512`"}, {"8.0912398142`", "3.0808202978`", "5.136275268`"}, {"10.1614346472`", "3.1034970098`", "3.1087882425999998`"}, {"5.4828510164`", "0.92895150708`", "1.8780285960599998`"}, {"8.954466651`", "3.8282069308`", "0.5798057313199999`"}, {"6.659205451399999`", "2.2315774334`", "0.10211134441`"}, {"7.652445436999999`", RowBox[{"-", "1.61707633272`"}], "5.1421334186`"}, {"3.9725819972`", "1.10059531966`", "6.2977008676`"}, {"3.2546750897999996`", RowBox[{"-", "0.53636093058`"}], "1.15904454484`"}, {"5.6393203292`", "2.1062885995999996`", RowBox[{"-", "2.5537757163999997`"}]}, {"1.2153772769`", "0.6439052372399999`", "0.150276680698`"}, { RowBox[{"-", "1.00289648546`"}], RowBox[{"-", "0.7372954961599999`"}], RowBox[{"-", "0.36513285772`"}]}, { RowBox[{"-", "1.10875893598`"}], RowBox[{"-", "3.5256617982`"}], "0.20480850387999996`"}, { RowBox[{"-", "3.047183175`"}], "0.44584305518`", RowBox[{"-", "1.3762307540199998`"}]}, { RowBox[{"-", "5.1780382126`"}], RowBox[{"-", "0.97286873932`"}], RowBox[{"-", "2.1119577776`"}]}, { RowBox[{"-", "7.2930195518`"}], "0.22196721596`", RowBox[{"-", "2.9294532452`"}]}, { RowBox[{"-", "9.5026761636`"}], RowBox[{"-", "1.24914668052`"}], RowBox[{"-", "3.692524604`"}]}, { RowBox[{"-", "9.4310555482`"}], RowBox[{"-", "4.0933354886`"}], RowBox[{"-", "3.5706372769999994`"}]}, { RowBox[{"-", "11.584965243`"}], RowBox[{"-", "0.072731774288`"}], RowBox[{"-", "4.4973589074`"}]}, { RowBox[{"-", "13.7116628834`"}], RowBox[{"-", "1.5733480730799998`"}], RowBox[{"-", "5.6533043016`"}]}, { RowBox[{"-", "14.6026686924`"}], RowBox[{"-", "0.31240950232`"}], RowBox[{"-", "7.868819063999999`"}]}, {"7.195065307464576`", "1.9797451773236876`", "4.865354166986276`"}, {"9.126337230699999`", "3.0921586538`", "4.1225317553`"}, {"5.890653887199999`", "0.90354414101`", "3.2361652236299996`"}, {"9.5579506491`", "3.4658519703`", "1.8442969869599999`"}, {"6.0710282339`", "1.58026447024`", "0.990069970235`"}, {"7.807119268525147`", "3.030089193723594`", "0.34101748162552803`"}, {"6.975216947014566`", RowBox[{"-", "0.36903827206170825`"}], "4.868122896273723`"}, {"5.135921569876824`", "0.9893275795758956`", "5.4457068061676885`"}, {"4.3687630530999995`", "0.19629528824999998`", "1.5185365704499998`"}, {"6.14944195977895`", "2.1689550144737897`", RowBox[{"-", "1.2253658704249641`"}]}, {"2.2350261833499996`", "0.05377215332999996`", "0.654660612769`"}, {"0.10624039571999999`", RowBox[{"-", "0.046695129459999984`"}], RowBox[{"-", "0.107428088511`"}]}, { RowBox[{"-", "1.0558091252292516`"}], RowBox[{"-", "2.130989114244999`"}], RowBox[{"-", "0.08026223732717044`"}]}, { RowBox[{"-", "2.02503983023`"}], RowBox[{"-", "0.14572622048999995`"}], RowBox[{"-", "0.8706818058699999`"}]}, { RowBox[{"-", "4.1126106938`"}], RowBox[{"-", "0.2635128420699999`"}], RowBox[{"-", "1.7440942658099998`"}]}, { RowBox[{"-", "6.2355288822`"}], RowBox[{"-", "0.3754507616799999`"}], RowBox[{"-", "2.5207055114`"}]}, { RowBox[{"-", "8.3978478577`"}], RowBox[{"-", "0.51358973228`"}], RowBox[{"-", "3.3109889246`"}]}, { RowBox[{"-", "9.46687843106807`"}], RowBox[{"-", "2.6707417010782457`"}], RowBox[{"-", "3.6316023415116225`"}]}, { RowBox[{"-", "10.5438207033`"}], RowBox[{"-", "0.660939227404`"}], RowBox[{"-", "4.0949417557`"}]}, { RowBox[{"-", "12.648575423259075`"}], RowBox[{"-", "0.8232243416083211`"}], RowBox[{"-", "5.075473664166018`"}]}, { RowBox[{"-", "14.169868812021535`"}], RowBox[{"-", "0.9249016511669437`"}], RowBox[{"-", "6.79264816313953`"}]}, {"8.709489484663667`", "2.9037282112593124`", "6.481217871187386`"}, {"7.3346428786614855`", "4.364286561484166`", "5.0938850547310786`"}, {"10.77624044002041`", "1.7495431404822177`", "3.0056824668467543`"}, {"11.204488251260202`", "4.1051183587434945`", "3.469371928219658`"}, {"8.558740089475585`", "5.264664266257492`", "0.6150847406058669`"}, {"9.940679624370931`", "3.6169341848407526`", RowBox[{"-", "0.5177732772025242`"}]}, {"6.724910793871082`", RowBox[{"-", "2.7538019676016257`"}], "4.879037936751255`"}, {"8.081935593676656`", RowBox[{"-", "1.6464884093520116`"}], "6.568844750903158`"}, {"8.848245507835912`", RowBox[{"-", "1.737367393018954`"}], "4.260700913556169`"}, {"3.0001847523081597`", "0.024435589966594673`", "5.95392268258269`"}, {"3.333166055574349`", "2.4315130737764017`", "6.093951989708165`"}, {"4.385406079469298`", "0.9604074266018731`", "7.722962679290262`"}, {"3.2407761209285644`", RowBox[{"-", "1.9957117827605422`"}], "1.3494740448187397`"}, {"6.481398630136755`", "2.9489138822197276`", RowBox[{"-", "3.4497317131095833`"}]}, {"4.236745331311138`", "2.6103240331788573`", RowBox[{"-", "2.5716890755423845`"}]}, {"5.665848316308251`", "0.6942681146625476`", RowBox[{"-", "3.030185546735806`"}]}, {"1.2701394306775513`", "2.0846444987038364`", RowBox[{"-", "0.14420853853229876`"}]}, { RowBox[{"-", "0.5458383481192651`"}], RowBox[{"-", "4.289358808718669`"}], RowBox[{"-", "0.9446204488001934`"}]}, { RowBox[{"-", "2.524966790716883`"}], RowBox[{"-", "3.9339768651850755`"}], "0.42666060189627153`"}, { RowBox[{"-", "0.31096092314473334`"}], RowBox[{"-", "3.8128208072889964`"}], "1.4305945940112303`"}, { RowBox[{"-", "3.0406426121298424`"}], "1.9073454546893096`", RowBox[{"-", "1.5489288661374467`"}]}, { RowBox[{"-", "5.140840532808636`"}], RowBox[{"-", "2.442490478124714`"}], RowBox[{"-", "2.0491441131904082`"}]}, { RowBox[{"-", "7.32994682477678`"}], "1.6918907012357107`", RowBox[{"-", "2.992406751160414`"}]}, { RowBox[{"-", "10.781811914544614`"}], RowBox[{"-", "4.638396723288159`"}], RowBox[{"-", "3.8869259463009813`"}]}, { RowBox[{"-", "9.030547707164608`"}], RowBox[{"-", "4.522011515109373`"}], RowBox[{"-", "2.2006379222312407`"}]}, { RowBox[{"-", "8.443190643707354`"}], RowBox[{"-", "4.608327076407212`"}], RowBox[{"-", "4.561100386529379`"}]}, { RowBox[{"-", "11.700513716959104`"}], "1.3887765581040856`", RowBox[{"-", "4.369683294074904`"}]}, { RowBox[{"-", "14.824885159318958`"}], RowBox[{"-", "1.6961703612792887`"}], RowBox[{"-", "4.669850842760894`"}]}, { RowBox[{"-", "13.219522945289958`"}], RowBox[{"-", "2.93192231956816`"}], RowBox[{"-", "6.018956481234968`"}]}, { RowBox[{"-", "15.569542264804337`"}], RowBox[{"-", "1.0398828061626109`"}], RowBox[{"-", "8.353064498297293`"}]} }, 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.5709426082740126`*^9, 3.5709431865826283`*^9, 3.570943725220374*^9}] }, Open ]], Cell[BoxData[ RowBox[{ RowBox[{"(*", " ", RowBox[{"cloud", "-", RowBox[{"cloud", " ", "distances"}]}], " ", "*)"}], "\[IndentingNewLine]", RowBox[{ RowBox[{ RowBox[{"dw", "=", RowBox[{"Table", "[", RowBox[{ RowBox[{"Sqrt", "[", RowBox[{ RowBox[{ RowBox[{"(", RowBox[{ RowBox[{"tw", "[", RowBox[{"[", RowBox[{"i", ",", "1"}], "]"}], "]"}], "-", RowBox[{"tw", "[", RowBox[{"[", RowBox[{"j", ",", "1"}], "]"}], "]"}]}], ")"}], "^", "2"}], "+", RowBox[{ RowBox[{"(", RowBox[{ RowBox[{"tw", "[", RowBox[{"[", RowBox[{"i", ",", "2"}], "]"}], "]"}], "-", RowBox[{"tw", "[", RowBox[{"[", RowBox[{"j", ",", "2"}], "]"}], "]"}]}], ")"}], "^", "2"}], "+", RowBox[{ RowBox[{"(", RowBox[{ RowBox[{"tw", "[", RowBox[{"[", RowBox[{"i", ",", "3"}], "]"}], "]"}], "-", RowBox[{"tw", "[", RowBox[{"[", RowBox[{"j", ",", "3"}], "]"}], "]"}]}], ")"}], "^", "2"}]}], "]"}], ",", RowBox[{"{", RowBox[{"i", ",", "1", ",", "bt"}], "}"}], ",", RowBox[{"{", RowBox[{"j", ",", "1", ",", "bt"}], "}"}]}], "]"}]}], ";"}], "\[IndentingNewLine]", RowBox[{"(*", RowBox[{"MatrixForm", "[", "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}}], 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[{"{", RowBox[{ RowBox[{"x", "[", RowBox[{"[", "i", "]"}], "]"}], ",", RowBox[{"y", "[", RowBox[{"[", "i", "]"}], "]"}], ",", RowBox[{"z", "[", 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[{"{", RowBox[{ RowBox[{"x", "[", RowBox[{"[", "i", "]"}], "]"}], ",", RowBox[{"y", "[", RowBox[{"[", "i", "]"}], "]"}], ",", RowBox[{"z", "[", RowBox[{"[", "i", "]"}], "]"}]}], "}"}], ",", RowBox[{"{", RowBox[{"i", ",", RowBox[{"bc", "+", "1"}], ",", "n"}], "}"}]}], "]"}]}], ";"}], "\[IndentingNewLine]", RowBox[{ RowBox[{"tv", " ", "=", " ", RowBox[{"Join", "[", RowBox[{"tv1", ",", "tv2", ",", "tv3"}], "]"}]}], ";"}], "\[IndentingNewLine]", RowBox[{"MatrixForm", "[", "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}}], Cell[BoxData[ TagBox[ RowBox[{"(", "\[NoBreak]", GridBox[{ {"6.2984567579999995`", "0.87813677494`", "4.5943018512`"}, {"8.0912398142`", "3.0808202978`", "5.136275268`"}, {"10.1614346472`", "3.1034970098`", "3.1087882425999998`"}, {"5.4828510164`", "0.92895150708`", "1.8780285960599998`"}, {"8.954466651`", "3.8282069308`", "0.5798057313199999`"}, {"6.659205451399999`", "2.2315774334`", "0.10211134441`"}, {"7.652445436999999`", RowBox[{"-", "1.61707633272`"}], "5.1421334186`"}, {"3.9725819972`", "1.10059531966`", "6.2977008676`"}, {"3.2546750897999996`", RowBox[{"-", "0.53636093058`"}], "1.15904454484`"}, {"5.6393203292`", "2.1062885995999996`", RowBox[{"-", "2.5537757163999997`"}]}, {"1.2153772769`", "0.6439052372399999`", "0.150276680698`"}, { RowBox[{"-", "1.00289648546`"}], RowBox[{"-", "0.7372954961599999`"}], RowBox[{"-", "0.36513285772`"}]}, { RowBox[{"-", "1.10875893598`"}], RowBox[{"-", "3.5256617982`"}], "0.20480850387999996`"}, { RowBox[{"-", "3.047183175`"}], "0.44584305518`", RowBox[{"-", "1.3762307540199998`"}]}, { RowBox[{"-", "5.1780382126`"}], RowBox[{"-", "0.97286873932`"}], RowBox[{"-", "2.1119577776`"}]}, { RowBox[{"-", "7.2930195518`"}], "0.22196721596`", RowBox[{"-", "2.9294532452`"}]}, { RowBox[{"-", "9.5026761636`"}], RowBox[{"-", "1.24914668052`"}], RowBox[{"-", "3.692524604`"}]}, { RowBox[{"-", "9.4310555482`"}], RowBox[{"-", "4.0933354886`"}], RowBox[{"-", "3.5706372769999994`"}]}, { RowBox[{"-", "11.584965243`"}], RowBox[{"-", "0.072731774288`"}], RowBox[{"-", "4.4973589074`"}]}, { RowBox[{"-", "13.7116628834`"}], RowBox[{"-", "1.5733480730799998`"}], RowBox[{"-", "5.6533043016`"}]}, { RowBox[{"-", "14.6026686924`"}], RowBox[{"-", "0.31240950232`"}], RowBox[{"-", "7.868819063999999`"}]}, {"0", "0", "0"}, {"0", "0", "0"}, {"0", "0", "0"}, {"0", "0", "0"}, {"0", "0", "0"}, {"0", "0", "0"}, {"0", "0", "0"}, {"0", "0", "0"}, {"0", "0", "0"}, {"0", "0", "0"}, {"0", "0", "0"}, {"0", "0", "0"}, {"0", "0", "0"}, {"0", "0", "0"}, {"0", "0", "0"}, {"0", "0", "0"}, {"0", "0", "0"}, {"0", "0", "0"}, {"0", "0", "0"}, {"0", "0", "0"}, {"0", "0", "0"}, {"8.9455849388`", "2.8361007808000003`", "6.994820788999999`"}, {"7.045654418399999`", "4.8545171214`", "5.077693761999999`"}, {"11.011055456799998`", "1.2324226054199998`", "2.9663029022`"}, {"11.60291764`", "4.4877213048`", "3.6071089888`"}, {"8.4075799466`", "5.8133640938`", "0.62856066212`"}, {"10.3173370422`", "3.5362442637999996`", RowBox[{"-", "0.9369639453199999`"}]}, {"6.3706442912`", RowBox[{"-", "3.1879677619999995`"}], "4.7785501362`"}, {"8.2460083736`", RowBox[{"-", "1.6577243389799998`"}], "7.113873526999999`"}, {"9.305010823999998`", RowBox[{"-", "1.78331552894`"}], "3.924016039`"}, {"2.6287978386`", RowBox[{"-", "0.38658124782`"}], "5.8226237512`"}, {"3.0889461196`", "2.9398467381999995`", "6.0161316936`"}, {"4.5430902766`", "0.9068606101399999`", "8.2673622774`"}, {"3.2353998846`", RowBox[{"-", "2.5602007847999997`"}], "1.42313375334`"}, {"6.8030136`", "3.2707377608`", RowBox[{"-", "3.7919241915999997`"}]}, {"3.7010283709999996`", "2.8028416031999996`", RowBox[{"-", "2.5785311269999998`"}]}, {"5.6759810136`", "0.15492918610999998`", RowBox[{"-", "3.2121562547999996`"}]}, {"1.29132536484`", "2.6420259206`", RowBox[{"-", "0.2581365716`"}]}, { RowBox[{"-", "0.33081543356`"}], RowBox[{"-", "4.5810737692`"}], RowBox[{"-", "1.38367627446`"}]}, { RowBox[{"-", "3.0658914624`"}], RowBox[{"-", "4.0899339818`"}], "0.51139765012`"}, { RowBox[{"-", "0.0062334501835999995`"}], RowBox[{"-", "3.9225042581999996`"}], "1.8987966848`"}, { RowBox[{"-", "3.0381124902`"}], "2.472706471`", RowBox[{"-", "1.61573462726`"}]}, { RowBox[{"-", "5.1264486927999995`"}], RowBox[{"-", "3.0110894083999997`"}], RowBox[{"-", "2.024841409`"}]}, { RowBox[{"-", "7.3442311263999995`"}], "2.2604902412`", RowBox[{"-", "3.0167585863999995`"}]}, { RowBox[{"-", "11.297726891`"}], RowBox[{"-", "4.846580272200001`"}], RowBox[{"-", "4.0077309008`"}]}, { RowBox[{"-", "8.877554802799999`"}], RowBox[{"-", "4.6857645896`"}], RowBox[{"-", "1.6773019003399998`"}]}, { RowBox[{"-", "8.0659174858`"}], RowBox[{"-", "4.8050063002`"}], RowBox[{"-", "4.9393658188`"}]}, { RowBox[{"-", "11.7452140078`"}], "1.9541656565999999`", RowBox[{"-", "4.3202915812`"}]}, { RowBox[{"-", "15.250088819999998`"}], RowBox[{"-", "1.7430832623999999`"}], RowBox[{"-", "4.2942133624`"}]}, { RowBox[{"-", "13.031550496`"}], RowBox[{"-", "3.4508286486`"}], RowBox[{"-", "6.158617033999999`"}]}, { RowBox[{"-", "15.9583581248`"}], RowBox[{"-", "1.33242690534`"}], RowBox[{"-", "8.547797615799999`"}]} }, 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.570942608320812*^9, 3.570943186629428*^9, 3.5709437252671747`*^9}] }, Open ]], Cell[CellGroupData[{ Cell[BoxData[ RowBox[{"\[IndentingNewLine]", RowBox[{ RowBox[{"ow", "=", RowBox[{"Join", "[", RowBox[{"Table", "[", RowBox[{ RowBox[{"-", "2.0"}], ",", RowBox[{"{", RowBox[{"i", ",", "1", ",", RowBox[{"bc", "+", "nb"}]}], "}"}]}], "]"}], "]"}]}], RowBox[{"(*", " ", RowBox[{"nucleus", "-", RowBox[{"cloud", " ", "distances"}]}], " ", "*)"}], "\[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"}], "}"}]}], "]"}]}], "]"}]}], "\[IndentingNewLine]", RowBox[{ RowBox[{"dcw", "=", RowBox[{"Table", "[", RowBox[{ RowBox[{ RowBox[{"sq", "=", RowBox[{"Sqrt", "[", RowBox[{ RowBox[{ RowBox[{"(", RowBox[{ RowBox[{"tw", "[", RowBox[{"[", RowBox[{"i", ",", "1"}], "]"}], "]"}], "-", RowBox[{"tv", "[", RowBox[{"[", RowBox[{"j", ",", "1"}], "]"}], "]"}]}], ")"}], "^", "2"}], "+", RowBox[{ RowBox[{"(", RowBox[{ RowBox[{"tw", "[", RowBox[{"[", RowBox[{"i", ",", "2"}], "]"}], "]"}], "-", RowBox[{"tv", "[", RowBox[{"[", RowBox[{"j", ",", "2"}], "]"}], "]"}]}], ")"}], "^", "2"}], "+", RowBox[{ RowBox[{"(", RowBox[{ RowBox[{"tw", "[", RowBox[{"[", RowBox[{"i", ",", "3"}], "]"}], "]"}], "-", RowBox[{"tv", "[", RowBox[{"[", RowBox[{"j", ",", "3"}], "]"}], "]"}]}], ")"}], "^", "2"}]}], "]"}]}], ";", RowBox[{"If", "[", RowBox[{ RowBox[{"sq", ">", " ", "0.1"}], ",", StyleBox[ RowBox[{"1", "/", "sq"}], FontColor->RGBColor[1, 0, 0]], ",", "0"}], "]"}]}], ",", RowBox[{"{", RowBox[{"i", ",", "1", ",", "bt"}], "}"}], ",", RowBox[{"{", RowBox[{"j", ",", "1", ",", "bt"}], "}"}]}], "]"}]}], ";"}], "\[IndentingNewLine]", RowBox[{ RowBox[{"dcw", "=", RowBox[{"Table", "[", RowBox[{ RowBox[{"If", "[", RowBox[{ RowBox[{"i", "\[Equal]", " ", "j"}], ",", RowBox[{ RowBox[{"dcw", "[", RowBox[{"[", RowBox[{"i", ",", "j"}], "]"}], "]"}], "=", "0.0"}], ",", RowBox[{"dcw", "[", RowBox[{"[", RowBox[{"i", ",", "j"}], "]"}], "]"}]}], "]"}], ",", RowBox[{"{", RowBox[{"i", ",", "1", ",", "bt"}], "}"}], ",", RowBox[{"{", RowBox[{"j", ",", "1", ",", "bt"}], "}"}]}], "]"}]}], ";"}], "\[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}], 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.`"}]}], "}"}]], "Output", CellChangeTimes->{3.570942608320812*^9, 3.570943186645028*^9, 3.5709437252827744`*^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.`", ",", "8.`", ",", "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.`", ",", "1.`", ",", "1.`"}], "}"}]], "Output", CellChangeTimes->{3.570942608320812*^9, 3.570943186645028*^9, 3.5709437252827744`*^9}] }, Open ]], Cell[BoxData[ RowBox[{ RowBox[{"Vee", "=", "0.0"}], ";", " ", RowBox[{"Vnn", "=", "0.0"}], ";"}]], "Input", CellChangeTimes->{{3.5688982251756487`*^9, 3.5688986440675845`*^9}, { 3.5688986873108606`*^9, 3.56889871560931*^9}, {3.5688987970414534`*^9, 3.5688988526711507`*^9}, {3.568898887147211*^9, 3.568898888644814*^9}, { 3.5688989206248703`*^9, 3.568899041759083*^9}, {3.5688990876855636`*^9, 3.568899258349863*^9}, 3.568899300267137*^9, {3.568899351326027*^9, 3.5688993831032825`*^9}, {3.5688994370481772`*^9, 3.568899468217032*^9}, { 3.5688995813016305`*^9, 3.5688997165538683`*^9}, {3.5688998495129013`*^9, 3.568899932364647*^9}, {3.568899967667509*^9, 3.568900024529609*^9}, { 3.5689000794261055`*^9, 3.568900136257005*^9}, {3.5689001767858763`*^9, 3.56890020149632*^9}, {3.568902068726*^9, 3.568902074139209*^9}, 3.56890216040736*^9, 3.568902344113283*^9, {3.5689024237982235`*^9, 3.56890243907065*^9}, 3.5689025770684924`*^9, {3.568910195129884*^9, 3.568910199825492*^9}, 3.568910617609826*^9, {3.56891263539537*^9, 3.568912638842976*^9}, {3.568952611212014*^9, 3.5689526227248344`*^9}, { 3.5689527476498537`*^9, 3.5689527480086546`*^9}, {3.5689530637688093`*^9, 3.5689530642368097`*^9}, {3.569133363948546*^9, 3.569133373698563*^9}, { 3.5691350563331184`*^9, 3.56913505725352*^9}, 3.5691351502452836`*^9, { 3.569135237792637*^9, 3.5691352453118505`*^9}, {3.5691353071659594`*^9, 3.5691353166039753`*^9}, {3.5691447439722476`*^9, 3.5691448093675623`*^9}, {3.569146067386572*^9, 3.569146078244191*^9}, { 3.5691478509845047`*^9, 3.5691478547909117`*^9}, {3.569159874789311*^9, 3.56915988004652*^9}, {3.5691671967299757`*^9, 3.569167196901576*^9}, 3.5691672337020407`*^9, {3.5691672688489027`*^9, 3.5691672717661076`*^9}, 3.569171387282002*^9, 3.5692335989467897`*^9}], Cell[CellGroupData[{ Cell[BoxData[ RowBox[{ RowBox[{"(*", " ", RowBox[{"all", " ", "clouds", " ", "repulsion"}], " ", "*)"}], "\[IndentingNewLine]", RowBox[{ RowBox[{"For", "[", RowBox[{ RowBox[{"i", "=", "1"}], ",", RowBox[{"i", "<", "bt"}], ",", RowBox[{"i", "++"}], ",", "\[IndentingNewLine]", RowBox[{"For", "[", RowBox[{ RowBox[{"j", "=", RowBox[{"i", "+", "1"}]}], ",", RowBox[{"j", "<", RowBox[{"bt", "+", "1"}]}], ",", RowBox[{"j", "++"}], ",", "\[IndentingNewLine]", RowBox[{"Vee", "=", RowBox[{"Vee", "+", RowBox[{ RowBox[{"ow", "[", RowBox[{"[", "i", "]"}], "]"}], "*", RowBox[{ RowBox[{"ow", "[", RowBox[{"[", "j", "]"}], "]"}], "/", RowBox[{"dw", "[", RowBox[{"[", RowBox[{"i", ",", "j"}], "]"}], "]"}]}]}]}]}]}], "]"}]}], "]"}], "\[IndentingNewLine]", "Vee"}]}]], "Input", CellChangeTimes->{{3.5688982251756487`*^9, 3.5688986440675845`*^9}, { 3.5688986873108606`*^9, 3.56889871560931*^9}, {3.5688987970414534`*^9, 3.5688988526711507`*^9}, {3.568898887147211*^9, 3.568898888644814*^9}, { 3.5688989206248703`*^9, 3.568899041759083*^9}, {3.5688990876855636`*^9, 3.568899258349863*^9}, 3.568899300267137*^9, {3.568899351326027*^9, 3.5688993831032825`*^9}, {3.5688994370481772`*^9, 3.568899468217032*^9}, { 3.5688995813016305`*^9, 3.5688997165538683`*^9}, {3.5688998495129013`*^9, 3.568899932364647*^9}, {3.568899967667509*^9, 3.568900024529609*^9}, { 3.5689000794261055`*^9, 3.568900136257005*^9}, {3.5689001767858763`*^9, 3.56890020149632*^9}, {3.568902068726*^9, 3.568902074139209*^9}, 3.56890216040736*^9, 3.568902344113283*^9, {3.5689024237982235`*^9, 3.56890243907065*^9}, 3.5689025770684924`*^9, {3.568910195129884*^9, 3.568910199825492*^9}, 3.568910617609826*^9, {3.56891263539537*^9, 3.568912638842976*^9}, {3.568952611212014*^9, 3.5689526227248344`*^9}, { 3.5689527476498537`*^9, 3.5689527480086546`*^9}, {3.5689530637688093`*^9, 3.5689530642368097`*^9}, {3.569133363948546*^9, 3.569133373698563*^9}, { 3.5691350563331184`*^9, 3.56913505725352*^9}, 3.5691351502452836`*^9, { 3.569135237792637*^9, 3.5691352453118505`*^9}, {3.5691353071659594`*^9, 3.5691353166039753`*^9}, {3.5691447439722476`*^9, 3.5691448093675623`*^9}, {3.569146067386572*^9, 3.569146078244191*^9}, { 3.5691478509845047`*^9, 3.5691478969889855`*^9}, {3.569149270524598*^9, 3.569149283675421*^9}, {3.5691523005437512`*^9, 3.5691523013861527`*^9}, { 3.570457123841494*^9, 3.5704571330923104`*^9}, {3.570457176959587*^9, 3.570457191296013*^9}, {3.570463789649801*^9, 3.570463797637015*^9}, { 3.5704639300032473`*^9, 3.5704639472412777`*^9}, {3.570464099403945*^9, 3.5704641196371803`*^9}, {3.570464183737693*^9, 3.5704641855628963`*^9}, { 3.570855532092019*^9, 3.5708555433240385`*^9}}], Cell[BoxData["1478.1711310694561`"], "Output", CellChangeTimes->{3.5709426083832126`*^9, 3.5709431867074285`*^9, 3.5709437253451743`*^9}] }, Open ]], Cell[CellGroupData[{ Cell[BoxData[{ RowBox[{ RowBox[{ RowBox[{"sc", "=", "0.43"}], ";"}], " ", 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.43"}], ";"}], " ", RowBox[{"(*", " ", RowBox[{"bonding", " ", "clouds"}], " ", "*)"}]}], "\[IndentingNewLine]", RowBox[{"For", "[", RowBox[{ RowBox[{"i", "=", "1"}], " ", ",", RowBox[{"i", "<", RowBox[{"nb", "+", "1"}]}], ",", RowBox[{"i", "++"}], ",", RowBox[{"Vee", "=", RowBox[{"Vee", "+", RowBox[{"3", "*", RowBox[{"sw", "/", RowBox[{"a", "[", RowBox[{"[", RowBox[{"i", ",", "3"}], "]"}], "]"}]}]}]}]}]}], "]"}], "\[IndentingNewLine]", "Vee"}], "Input", CellChangeTimes->{{3.5689548890696163`*^9, 3.568955116299615*^9}, { 3.5689552553894596`*^9, 3.5689552575266633`*^9}, {3.5689552936875267`*^9, 3.5689553203323736`*^9}, {3.568955404229321*^9, 3.568955433245372*^9}, 3.5689554882822685`*^9, 3.5689562157115464`*^9, {3.568956283961666*^9, 3.5689562858180695`*^9}, {3.5689566111878405`*^9, 3.5689566291278725`*^9}, {3.5689566695319433`*^9, 3.5689567220104356`*^9}, {3.5690810958835616`*^9, 3.569081104525977*^9}, { 3.5691717160681796`*^9, 3.569171751714242*^9}, {3.5691717855663013`*^9, 3.5691719006789036`*^9}, 3.569234247377528*^9, {3.569235622381544*^9, 3.569235625142749*^9}, {3.5692356799612455`*^9, 3.569235740536152*^9}, { 3.57045575500149*^9, 3.5704557604770994`*^9}, {3.57046440981329*^9, 3.5704644333849316`*^9}, {3.5705963024877205`*^9, 3.5705963300061693`*^9}, {3.5706010463712544`*^9, 3.570601069225295*^9}, { 3.5706012097659416`*^9, 3.5706012109983435`*^9}, {3.570601290948484*^9, 3.570601291619285*^9}, {3.570601333099758*^9, 3.570601444951955*^9}, 3.5706014761208096`*^9, {3.570601526633698*^9, 3.570601615179454*^9}, { 3.5708576202336864`*^9, 3.5708576267544985`*^9}, {3.5708577990100007`*^9, 3.5708578016152053`*^9}, {3.5708580423548284`*^9, 3.570858044429632*^9}, { 3.570858075754487*^9, 3.5708581072821426`*^9}, {3.570858449889944*^9, 3.5708585756105647`*^9}}], Cell[BoxData["1642.0538808353822`"], "Output", CellChangeTimes->{3.5709426083832126`*^9, 3.5709431867542286`*^9, 3.5709437253607745`*^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[{"-", "3283.8282387622344`"}]], "Output", CellChangeTimes->{3.5709426083988123`*^9, 3.5709431867698283`*^9, 3.5709437253607745`*^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[{"-", "4825.961393770132`"}]], "Output", CellChangeTimes->{3.5709426084144125`*^9, 3.570943186785428*^9, 3.5709437253763742`*^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[{"-", "4894.091218716099`"}]], "Output", CellChangeTimes->{3.5709426084144125`*^9, 3.5709431868010283`*^9, 3.5709437253919744`*^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["1586.9262018401766`"], "Output", CellChangeTimes->{3.5709426084300127`*^9, 3.5709431868166285`*^9, 3.5709437254075747`*^9}] }, Open ]], Cell[CellGroupData[{ Cell[BoxData[{"Vee", "\[IndentingNewLine]", "Vnn", "\[IndentingNewLine]", \ "Vne", "\[IndentingNewLine]", RowBox[{"Vtot", "=", RowBox[{ "Vne", "+", "Vee", "+", "Vnn"}]}], "\[IndentingNewLine]", "Ttot", "\[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}}], Cell[BoxData["1642.0538808353822`"], "Output", CellChangeTimes->{3.570942608445613*^9, 3.5709431868322287`*^9, 3.5709437254387746`*^9}], Cell[BoxData["1586.9262018401766`"], "Output", CellChangeTimes->{3.570942608445613*^9, 3.5709431868322287`*^9, 3.5709437254543743`*^9}], Cell[BoxData[ RowBox[{"-", "4894.091218716099`"}]], "Output", CellChangeTimes->{3.570942608445613*^9, 3.5709431868322287`*^9, 3.5709437254543743`*^9}], Cell[BoxData[ RowBox[{"-", "1665.1111360405405`"}]], "Output", CellChangeTimes->{3.570942608445613*^9, 3.5709431868322287`*^9, 3.5709437254543743`*^9}], Cell[BoxData["841.5156038825313`"], "Output", CellChangeTimes->{3.570942608445613*^9, 3.5709431868322287`*^9, 3.5709437254543743`*^9}], Cell[BoxData["1.9787050036364822`"], "Output", CellChangeTimes->{3.570942608445613*^9, 3.5709431868322287`*^9, 3.5709437254543743`*^9}], Cell[BoxData[ RowBox[{"-", "823.5955321580092`"}]], "Output", CellChangeTimes->{3.570942608445613*^9, 3.5709431868322287`*^9, 3.5709437254543743`*^9}] }, Open ]] }, WindowSize->{1409, 939}, WindowMargins->{{Automatic, 60}, {Automatic, 15}}, 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, 1480, 27, 52, "Input"], Cell[CellGroupData[{ Cell[2062, 51, 282, 6, 52, "Input"], Cell[2347, 59, 6025, 102, 362, "Output"] }, Open ]], Cell[CellGroupData[{ Cell[8409, 166, 680, 14, 52, "Input"], Cell[9092, 182, 5553, 142, 791, "Output"] }, Open ]], Cell[CellGroupData[{ Cell[14682, 329, 609, 10, 31, "Input"], Cell[15294, 341, 1110, 16, 31, "Output"] }, Open ]], Cell[CellGroupData[{ Cell[16441, 362, 955, 14, 31, "Input"], Cell[17399, 378, 120, 2, 31, "Output"] }, Open ]], Cell[CellGroupData[{ Cell[17556, 385, 1560, 29, 31, "Input"], Cell[19119, 416, 1110, 16, 31, "Output"] }, Open ]], Cell[20244, 435, 1390, 22, 31, "Input"], Cell[21637, 459, 1566, 28, 31, "Input"], Cell[CellGroupData[{ Cell[23228, 491, 1234, 18, 31, "Input"], Cell[24465, 511, 3601, 106, 72, "Output"] }, Open ]], Cell[CellGroupData[{ Cell[28103, 622, 697, 14, 31, "Input"], Cell[28803, 638, 729, 12, 52, "Output"] }, Open ]], Cell[29547, 653, 908, 24, 31, "Input"], Cell[CellGroupData[{ Cell[30480, 681, 5635, 122, 52, "Input"], Cell[36118, 805, 890, 14, 52, "Output"], Cell[37011, 821, 913, 15, 52, "Output"] }, Open ]], Cell[CellGroupData[{ Cell[37961, 841, 519, 12, 31, "Input"], Cell[38483, 855, 1112, 16, 31, "Output"] }, Open ]], Cell[CellGroupData[{ Cell[39632, 876, 1401, 38, 31, "Input"], Cell[41036, 916, 793, 13, 52, "Output"] }, Open ]], Cell[CellGroupData[{ Cell[41866, 934, 827, 23, 92, "Input"], Cell[42696, 959, 120, 2, 31, "Output"], Cell[42819, 963, 120, 2, 31, "Output"] }, Open ]], Cell[CellGroupData[{ Cell[42976, 970, 284, 6, 52, "Input"], Cell[43263, 978, 137, 2, 31, "Output"] }, Open ]], Cell[43415, 983, 1824, 35, 72, "Input"], Cell[45242, 1020, 935, 19, 31, "Input"], Cell[46180, 1041, 4271, 83, 92, "Input"], Cell[50454, 1126, 3292, 57, 31, "Input"], Cell[CellGroupData[{ Cell[53771, 1187, 275, 6, 52, "Input"], Cell[54049, 1195, 35953, 882, 228, "Output"] }, Open ]], Cell[90017, 2080, 2567, 59, 52, "Input"], Cell[92587, 2141, 1254, 35, 72, "Input"], Cell[CellGroupData[{ Cell[93866, 2180, 4223, 78, 72, "Input"], Cell[98092, 2260, 16093, 224, 791, "Output"] }, Open ]], Cell[CellGroupData[{ Cell[114222, 2489, 2506, 53, 112, "Input"], Cell[116731, 2544, 120, 2, 31, "Output"] }, Open ]], Cell[CellGroupData[{ Cell[116888, 2551, 2272, 46, 72, "Input"], Cell[119163, 2599, 308, 6, 31, "Output"] }, Open ]], Cell[119486, 2608, 5743, 149, 152, "Input"], Cell[CellGroupData[{ Cell[125254, 2761, 3443, 77, 112, "Input"], Cell[128700, 2840, 1002, 16, 72, "Output"] }, Open ]], Cell[129717, 2859, 2072, 49, 112, "Input"], Cell[131792, 2910, 561, 12, 52, "Input"], Cell[132356, 2924, 2148, 49, 92, "Input"], Cell[134507, 2975, 2452, 56, 92, "Input"], Cell[136962, 3033, 1759, 41, 72, "Input"], Cell[CellGroupData[{ Cell[138746, 3078, 923, 20, 31, "Input"], Cell[139672, 3100, 136, 2, 31, "Output"] }, Open ]], Cell[CellGroupData[{ Cell[139845, 3107, 711, 18, 31, "Input"], Cell[140559, 3127, 138, 2, 31, "Output"] }, Open ]], Cell[CellGroupData[{ Cell[140734, 3134, 507, 10, 31, "Input"], Cell[141244, 3146, 138, 2, 31, "Output"] }, Open ]], Cell[CellGroupData[{ Cell[141419, 3153, 823, 23, 31, "Input"], Cell[142245, 3178, 136, 2, 31, "Output"] }, Open ]], Cell[CellGroupData[{ Cell[142418, 3185, 204, 4, 31, "Input"], Cell[142625, 3191, 137, 2, 31, "Output"] }, Open ]], Cell[142777, 3196, 1971, 35, 92, "Input"], Cell[CellGroupData[{ Cell[144773, 3235, 1770, 24, 31, "Input"], Cell[146546, 3261, 27805, 405, 806, "Output"] }, Open ]], Cell[174366, 3669, 1655, 24, 31, "Input"], Cell[CellGroupData[{ Cell[176046, 3697, 3421, 71, 72, "Input"], Cell[CellGroupData[{ Cell[179492, 3772, 458, 9, 23, "Print"], Cell[179953, 3783, 458, 9, 23, "Print"] }, Open ]] }, Open ]], Cell[180438, 3796, 2696, 53, 92, "Input"], Cell[CellGroupData[{ Cell[183159, 3853, 939, 17, 72, "Input"], Cell[184101, 3872, 4639, 107, 152, "Output"], Cell[188743, 3981, 118, 2, 31, "Output"], Cell[188864, 3985, 118, 2, 31, "Output"] }, Open ]], Cell[188997, 3990, 10201, 233, 72, "Input"], Cell[199201, 4225, 6235, 101, 31, "Input"], Cell[205439, 4328, 10215, 234, 72, "Input"], Cell[215657, 4564, 5925, 93, 31, "Input"], Cell[CellGroupData[{ Cell[221607, 4661, 7797, 141, 92, "Input"], Cell[229407, 4804, 83904, 1438, 405, 25262, 476, "CachedBoxData", "BoxData", \ "Output"], Cell[313314, 6244, 18326, 303, 418, "Output"] }, Open ]], Cell[CellGroupData[{ Cell[331677, 6552, 3879, 89, 152, "Input"], Cell[335559, 6643, 122, 2, 31, "Output"], Cell[335684, 6647, 7984, 193, 1106, "Output"] }, Open ]], Cell[343683, 6843, 3049, 67, 72, "Input"], Cell[346735, 6912, 1841, 29, 52, "Input"], Cell[CellGroupData[{ Cell[348601, 6945, 3517, 75, 112, "Input"], Cell[352121, 7022, 6013, 163, 1106, "Output"] }, Open ]], Cell[CellGroupData[{ Cell[358171, 7190, 6437, 145, 132, "Input"], Cell[364611, 7337, 2376, 76, 72, "Output"], Cell[366990, 7415, 1058, 17, 52, "Output"] }, Open ]], Cell[368063, 7435, 1863, 27, 31, "Input"], Cell[CellGroupData[{ Cell[369951, 7466, 2963, 56, 112, "Input"], Cell[372917, 7524, 141, 2, 31, "Output"] }, Open ]], Cell[CellGroupData[{ Cell[373095, 7531, 2532, 57, 112, "Input"], Cell[375630, 7590, 141, 2, 31, "Output"] }, Open ]], Cell[CellGroupData[{ Cell[375808, 7597, 499, 15, 52, "Input"], Cell[376310, 7614, 158, 3, 31, "Output"] }, Open ]], Cell[376483, 7620, 1381, 21, 31, "Input"], Cell[CellGroupData[{ Cell[377889, 7645, 1709, 32, 52, "Input"], Cell[379601, 7679, 155, 3, 31, "Output"] }, Open ]], Cell[CellGroupData[{ Cell[379793, 7687, 1415, 43, 72, "Input"], Cell[381211, 7732, 157, 3, 31, "Output"] }, Open ]], Cell[CellGroupData[{ Cell[381405, 7740, 2550, 50, 92, "Input"], Cell[383958, 7792, 141, 2, 31, "Output"] }, Open ]], Cell[CellGroupData[{ Cell[384136, 7799, 1351, 23, 172, "Input"], Cell[385490, 7824, 139, 2, 31, "Output"], Cell[385632, 7828, 139, 2, 31, "Output"], Cell[385774, 7832, 155, 3, 31, "Output"], Cell[385932, 7837, 156, 3, 31, "Output"], Cell[386091, 7842, 138, 2, 31, "Output"], Cell[386232, 7846, 139, 2, 31, "Output"], Cell[386374, 7850, 155, 3, 63, "Output"] }, Open ]] } ] *) (* End of internal cache information *)