(* 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[ 464125, 9957] NotebookOptionsPosition[ 455555, 9687] NotebookOutlinePosition[ 456056, 9707] CellTagsIndexPosition[ 456013, 9704] 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.571840710979348*^9, 3.5718477516733465`*^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.571840711041748*^9, 3.5718477517045465`*^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.5718407110573483`*^9, 3.571847751720146*^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.5718407110729485`*^9, 3.5718477517357464`*^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.5718407110729485`*^9, 3.5718477517513466`*^9}] }, Open ]], Cell[BoxData[ RowBox[{ RowBox[{"num1", "=", RowBox[{"Table", "[", RowBox[{"i", ",", RowBox[{"{", RowBox[{"i", ",", "1", ",", "n"}], "}"}]}], "]"}]}], ";"}]], "Input", CellChangeTimes->{{3.568807971988578*^9, 3.5688080897687845`*^9}, { 3.5688081769573374`*^9, 3.5688081865669546`*^9}, {3.568808274317109*^9, 3.5688082853151283`*^9}, {3.5688085365847692`*^9, 3.568808578330443*^9}, { 3.568808822704872*^9, 3.5688088761037655`*^9}, {3.56880890727262*^9, 3.568808937365073*^9}, {3.568809097608555*^9, 3.5688091594002633`*^9}, 3.5688092418308077`*^9, {3.5688092753552666`*^9, 3.568809302577315*^9}, { 3.5688096257786827`*^9, 3.568809703201618*^9}, {3.5688097456336927`*^9, 3.568809788268568*^9}, 3.568809850575077*^9, {3.568809946562046*^9, 3.5688099535664577`*^9}, {3.5688100003197403`*^9, 3.568810008556555*^9}, { 3.568810075371472*^9, 3.56881007981748*^9}, {3.568813431920168*^9, 3.568813533086345*^9}, {3.5688135960324554`*^9, 3.5688136045344706`*^9}, { 3.5688136407889347`*^9, 3.568813707494652*^9}, {3.568813812529636*^9, 3.5688138275524626`*^9}, {3.5688140611940727`*^9, 3.568814062738476*^9}, { 3.568814121113778*^9, 3.5688141965555105`*^9}, {3.568814326675339*^9, 3.568814331074547*^9}, 3.568814589473401*^9, {3.5688146762563534`*^9, 3.5688146829331646`*^9}, 3.5688147231032352`*^9, 3.5688216336189733`*^9, 3.5711137970191836`*^9}], Cell[BoxData[ RowBox[{ RowBox[{"um", "=", RowBox[{"Table", "[", RowBox[{ RowBox[{"{", RowBox[{ RowBox[{"un", "[", RowBox[{"[", "i", "]"}], "]"}], ",", RowBox[{"num1", "[", RowBox[{"[", "i", "]"}], "]"}]}], "}"}], ",", RowBox[{"{", RowBox[{"i", ",", "1", ",", "n"}], "}"}]}], "]"}]}], ";"}]], "Input", CellChangeTimes->{{3.568807971988578*^9, 3.5688080897687845`*^9}, { 3.5688081769573374`*^9, 3.5688081865669546`*^9}, {3.568808274317109*^9, 3.5688082853151283`*^9}, {3.5688085365847692`*^9, 3.568808578330443*^9}, { 3.568808822704872*^9, 3.5688088761037655`*^9}, {3.56880890727262*^9, 3.568808937365073*^9}, {3.568809097608555*^9, 3.5688091594002633`*^9}, 3.5688092418308077`*^9, {3.5688092753552666`*^9, 3.568809302577315*^9}, { 3.5688096257786827`*^9, 3.568809703201618*^9}, {3.5688097456336927`*^9, 3.568809788268568*^9}, 3.568809850575077*^9, {3.568809946562046*^9, 3.5688099535664577`*^9}, {3.5688100003197403`*^9, 3.568810008556555*^9}, { 3.568810075371472*^9, 3.56881007981748*^9}, {3.568813431920168*^9, 3.568813533086345*^9}, {3.5688135960324554`*^9, 3.5688136045344706`*^9}, { 3.5688136407889347`*^9, 3.568813707494652*^9}, {3.568813812529636*^9, 3.5688138275524626`*^9}, {3.5688140611940727`*^9, 3.568814062738476*^9}, { 3.568814121113778*^9, 3.5688141965555105`*^9}, {3.568814326675339*^9, 3.568814331074547*^9}, 3.568814589473401*^9, {3.5688146762563534`*^9, 3.5688146885023746`*^9}, 3.5688147203576307`*^9, 3.56882164316619*^9, 3.57111380070079*^9}], Cell[CellGroupData[{ Cell[BoxData[ RowBox[{"us", "=", RowBox[{"Sort", "[", "um", "]"}]}]], "Input", CellChangeTimes->{{3.568807971988578*^9, 3.5688080897687845`*^9}, { 3.5688081769573374`*^9, 3.5688081865669546`*^9}, {3.568808274317109*^9, 3.5688082853151283`*^9}, {3.5688085365847692`*^9, 3.568808578330443*^9}, { 3.568808822704872*^9, 3.5688088761037655`*^9}, {3.56880890727262*^9, 3.568808937365073*^9}, {3.568809097608555*^9, 3.5688091594002633`*^9}, 3.5688092418308077`*^9, {3.5688092753552666`*^9, 3.568809302577315*^9}, { 3.5688096257786827`*^9, 3.568809703201618*^9}, {3.5688097456336927`*^9, 3.568809788268568*^9}, 3.568809850575077*^9, {3.568809946562046*^9, 3.5688099535664577`*^9}, {3.5688100003197403`*^9, 3.568810008556555*^9}, { 3.568810075371472*^9, 3.56881007981748*^9}, {3.568813431920168*^9, 3.568813533086345*^9}, {3.5688135960324554`*^9, 3.5688136045344706`*^9}, { 3.5688136407889347`*^9, 3.568813707494652*^9}, {3.568813812529636*^9, 3.5688138275524626`*^9}, {3.5688140611940727`*^9, 3.568814062738476*^9}, { 3.568814121113778*^9, 3.5688141965555105`*^9}, {3.568814326675339*^9, 3.568814331074547*^9}, 3.568814589473401*^9, {3.5688146762563534`*^9, 3.5688146945707855`*^9}}], Cell[BoxData[ RowBox[{"{", RowBox[{ RowBox[{"{", RowBox[{"\<\"C\"\>", ",", "2"}], "}"}], ",", RowBox[{"{", RowBox[{"\<\"C\"\>", ",", "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.5718407110885487`*^9, 3.5718477517669463`*^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.571840711104149*^9, 3.571847751782546*^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.571840711119749*^9, 3.5718477517981462`*^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.571840711119749*^9, 3.5718477518137465`*^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.571840711119749*^9, 3.5718477518293467`*^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.571840711135349*^9, 3.571847751844947*^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.5718407111509485`*^9, 3.571847751860547*^9}], Cell[BoxData["30"], "Output", CellChangeTimes->{3.5718407111509485`*^9, 3.571847751860547*^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.5718407111509485`*^9, 3.571847751876147*^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[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.571840711322549*^9, 3.5718477520477467`*^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[{ RowBox[{"x", "=", RowBox[{"Table", "[", RowBox[{ RowBox[{"t", "[", RowBox[{"[", RowBox[{"i", ",", "1"}], "]"}], "]"}], ",", RowBox[{"{", RowBox[{"i", ",", "1", ",", "n"}], "}"}]}], "]"}]}], ";", "\[IndentingNewLine]", RowBox[{"y", "=", RowBox[{"Table", "[", RowBox[{ RowBox[{"t", "[", RowBox[{"[", RowBox[{"i", ",", "2"}], "]"}], "]"}], ",", RowBox[{"{", RowBox[{"i", ",", "1", ",", "n"}], "}"}]}], "]"}]}], ";", "\[IndentingNewLine]", RowBox[{"z", "=", RowBox[{"Table", "[", RowBox[{ RowBox[{"t", "[", RowBox[{"[", RowBox[{"i", ",", "3"}], "]"}], "]"}], ",", RowBox[{"{", RowBox[{"i", ",", "1", ",", "n"}], "}"}]}], "]"}]}], ";"}], "*)"}]], "Input", CellChangeTimes->{{3.5678630319943895`*^9, 3.5678630956269007`*^9}, { 3.5678632280087337`*^9, 3.567863228336334*^9}, {3.5678632621727934`*^9, 3.5678633509213495`*^9}, {3.5678644293824434`*^9, 3.567864451908883*^9}, { 3.567864923404111*^9, 3.56786494544695*^9}, {3.5678650143210707`*^9, 3.5678650845367947`*^9}, {3.567869231084096*^9, 3.567869278118179*^9}, { 3.5682778102931156`*^9, 3.5682778156907253`*^9}, 3.571808490989086*^9}], Cell[CellGroupData[{ Cell[BoxData[ RowBox[{ RowBox[{"(*", " ", RowBox[{"connected", " ", RowBox[{"pairs", ":", " ", RowBox[{ RowBox[{"distance", " ", "criteria"}], " ", "<", " ", RowBox[{"3.0", " ", "bohr"}]}]}]}], " ", "*)"}], "\[IndentingNewLine]", RowBox[{ RowBox[{ RowBox[{"Dij", "=", RowBox[{"Table", "[", RowBox[{ RowBox[{"If", "[", RowBox[{ RowBox[{"(", RowBox[{ RowBox[{ RowBox[{"dc", "[", RowBox[{"[", RowBox[{"i", ",", "j"}], "]"}], "]"}], "<", "3.0"}], "||", RowBox[{"(", RowBox[{ RowBox[{ RowBox[{"u", "[", RowBox[{"[", "i", "]"}], "]"}], "\[Equal]", "\"\\""}], " ", "&&", " ", RowBox[{"j", "\[Equal]", "10"}], " ", "&&", " ", RowBox[{"i", "\[Equal]", " ", "17"}]}], ")"}]}], ")"}], ",", RowBox[{"dc", "[", RowBox[{"[", RowBox[{"i", ",", "j"}], "]"}], "]"}], ",", "0"}], "]"}], ",", RowBox[{"{", RowBox[{"i", ",", "1", ",", "n"}], "}"}], ",", RowBox[{"{", RowBox[{"j", ",", "1", ",", "n"}], "}"}]}], "]"}]}], ";"}], "\[IndentingNewLine]", RowBox[{"MatrixForm", "[", RowBox[{"Prepend", "[", RowBox[{"Dij", ",", "num1"}], "]"}], "]"}]}]}]], "Input", CellChangeTimes->{{3.567863535157673*^9, 3.5678635412104836`*^9}, { 3.5678638182825704`*^9, 3.567863827283786*^9}, {3.5679503910983553`*^9, 3.5679504266352177`*^9}, {3.5679504653700857`*^9, 3.5679505048069553`*^9}, 3.567950534915008*^9, {3.567951107623214*^9, 3.567951136046464*^9}, 3.567951302545556*^9, {3.5679562986474605`*^9, 3.567956305355472*^9}, { 3.5679563590975666`*^9, 3.567956370688387*^9}, {3.567956414930065*^9, 3.567956430467692*^9}, {3.567956484740187*^9, 3.567956500667815*^9}, { 3.5679565456270943`*^9, 3.5679565868267665`*^9}, {3.5679569267045636`*^9, 3.5679569448941956`*^9}, {3.567956976562251*^9, 3.567957000711094*^9}, { 3.5679570348595533`*^9, 3.5679570632672033`*^9}, {3.5679573263928657`*^9, 3.5679573286548696`*^9}, {3.5679573611029263`*^9, 3.5679573637393312`*^9}, {3.5679592820903006`*^9, 3.567959317127962*^9}, { 3.567959397655304*^9, 3.5679594004945087`*^9}, {3.5679594704762316`*^9, 3.5679594724574347`*^9}, {3.567959655898157*^9, 3.567959673073787*^9}, 3.5681143121223865`*^9, 3.568121866388855*^9, 3.568220668221574*^9, { 3.568220718968463*^9, 3.568220723742071*^9}, {3.568220862051914*^9, 3.5682208641111183`*^9}, {3.568220906761593*^9, 3.5682209083527956`*^9}, { 3.5682209451844606`*^9, 3.5682209651680956`*^9}, {3.568221147782016*^9, 3.5682211695908546`*^9}, {3.568221237279373*^9, 3.568221253612602*^9}, { 3.568221305420293*^9, 3.568221306247094*^9}, {3.5682215161142635`*^9, 3.568221546206716*^9}, 3.56822158247678*^9, {3.568277819185131*^9, 3.5682778284359474`*^9}, 3.56882183684053*^9, {3.5688219650415554`*^9, 3.568821965915157*^9}, {3.5688769979329815`*^9, 3.5688771619984694`*^9}, { 3.568877204212144*^9, 3.5688772091729527`*^9}, {3.568877282493081*^9, 3.5688772843338842`*^9}, {3.568877374112042*^9, 3.568877378074449*^9}, { 3.56887744125456*^9, 3.5688774664954042`*^9}, {3.56887758366721*^9, 3.568877604867647*^9}, {3.568877667220957*^9, 3.5688776710429635`*^9}, { 3.5688778111156096`*^9, 3.56887782262843*^9}, {3.569341165522358*^9, 3.569341165522358*^9}, 3.5693418217375107`*^9, {3.5693429625675144`*^9, 3.5693429673099227`*^9}, {3.569390288837522*^9, 3.5693903143123665`*^9}, { 3.569390381798085*^9, 3.5693904158685455`*^9}, {3.5693905284539433`*^9, 3.569390564349606*^9}, {3.569390610868888*^9, 3.569390611056088*^9}, { 3.569390743671921*^9, 3.569390761487152*^9}, {3.569390843761697*^9, 3.569390861608128*^9}, {3.5693909829451413`*^9, 3.5693909887171516`*^9}, 3.5703416480920715`*^9, {3.5703416810237293`*^9, 3.5703416997437625`*^9}, 3.570341888192094*^9, {3.5705964879252462`*^9, 3.570596509843285*^9}, { 3.5705965495921545`*^9, 3.5705966388087115`*^9}, 3.570968886604662*^9, { 3.5709689930904493`*^9, 3.5709689944320517`*^9}, {3.5709690501397495`*^9, 3.570969050904151*^9}, {3.5709692134876366`*^9, 3.5709692140804377`*^9}, { 3.5709722325921392`*^9, 3.5709722334033403`*^9}, {3.5709723694355793`*^9, 3.570972545481889*^9}, {3.570972790558319*^9, 3.5709728063299465`*^9}, { 3.570972844066413*^9, 3.570972866764453*^9}, {3.5709729633598228`*^9, 3.57097298434186*^9}, {3.5709731454589424`*^9, 3.5709731466289444`*^9}, 3.570973453029083*^9, {3.5709736099653587`*^9, 3.570973638404208*^9}, { 3.571113899355363*^9, 3.571113958604267*^9}, 3.57111399989754*^9, { 3.5711140388820086`*^9, 3.571114044841219*^9}, {3.571115985874628*^9, 3.5711159997742524`*^9}}], Cell[BoxData[ TagBox[ RowBox[{"(", "\[NoBreak]", GridBox[{ {"1", "2", "3", "4", "5", "6", "7", "8", "9", "10", "11", "12", "13", "14", "15", "16", "17", "18", "19", "20", "21", "22", "23", "24", "25", "26", "27", "28", "29", "30", "31", "32", "33", "34", "35", "36", "37", "38", "39", "40", "41", "42", "43", "44", "45", "46", "47", "48", "49", "50", "51"}, {"0.`", "2.8913009136018033`", "0", "2.8365357849535755`", "0", "0", "2.89127882116865`", "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"}, {"2.8913009136018033`", "0.`", "2.897744729615149`", "0", "0", "0", "0", "0", "0", "0", "0", "0", "0", "0", "0", "0", "0", "0", "0", "0", "0", "2.0600933686504748`", "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", "2.897744729615149`", "0.`", "0", "2.8944306444976293`", "0", "0", "0", "0", "0", "0", "0", "0", "0", "0", "0", "0", "0", "0", "0", "0", "0", "0", "2.0598730589675256`", "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"}, {"2.8365357849535755`", "0", "0", "0.`", "0", "2.4969033111783276`", "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", "2.8944306444976293`", "0", "0.`", "2.8364840302110523`", "0", "0", "0", "0", "0", "0", "0", "0", "0", "0", "0", "0", "0", "0", "0", "0", "0", "0", "0", "2.059687129769231`", "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", "2.4969033111783276`", "2.8364840302110523`", "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"}, {"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", "2.059831756042301`", "2.059545647756167`", "2.059713033204844`", "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", "2.0598903549200966`", "2.059839640489124`", "2.059752146204022`", "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", "2.563079476006322`", "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", "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", "2.059887260061742`", "2.0597996583165434`", "2.0597603015255403`", "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.`", "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", "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", "2.663475350554561`", "0.`", "2.847986419989531`", "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", "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", "2.0597025058258973`", "2.0597979822662262`", "2.059767545619187`", "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.`", "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", "2.040984980103778`", "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.`", "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", "2.040733749438218`", "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.`", "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", "2.041034289865974`", "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.`", "2.847700126249429`", "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", "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", "2.0598277699890306`", "2.0596247627619664`", "2.0599745373753002`", "0", "0", "0", "0"}, {"0", "0", "0", "0", "0", "0", "0", "0", "0", "0", "0", "0", "0", "0", "0", "0", "2.5234179395658387`", "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", "2.040917857231867`", "0", "0", "0"}, {"0", "0", "0", "0", "0", "0", "0", "0", "0", "0", "0", "0", "0", "0", "0", "0", "0", "0", "2.8479645159754585`", "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", "2.059779740145197`", "2.0598124012820667`", "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", "1.8273864433636156`"}, {"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.571840711384949*^9, 3.5718477521101475`*^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.571840711400549*^9, 3.571847752141347*^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.571840711416149*^9, 3.571847752156947*^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[{"pri", "[", RowBox[{"[", "i", "]"}], "]"}], "\[NotEqual]", "0"}], ",", RowBox[{ RowBox[{"u2", "[", RowBox[{"[", RowBox[{"pri", "[", RowBox[{"[", "i", "]"}], "]"}], "]"}], "]"}], "=", "0.2547"}]}], "]"}]}], "]"}], "\[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[{"qua", "[", RowBox[{"[", "i", "]"}], "]"}], "\[NotEqual]", "0"}], ",", RowBox[{ RowBox[{"u2", "[", RowBox[{"[", RowBox[{"qua", "[", RowBox[{"[", "i", "]"}], "]"}], "]"}], "]"}], "=", "0.2577"}]}], "]"}]}], "]"}], "\[IndentingNewLine]", RowBox[{ RowBox[{"con", "=", RowBox[{"Table", "[", RowBox[{ RowBox[{"{", "i", "}"}], ",", RowBox[{"{", RowBox[{"i", ",", "1", ",", "bc"}], "}"}]}], "]"}]}], ";"}], "\[IndentingNewLine]", RowBox[{ RowBox[{"For", "[", RowBox[{ RowBox[{"i", "=", "1"}], ",", RowBox[{"i", "<", RowBox[{"bc", "+", "1"}]}], ",", RowBox[{"i", "++"}], ",", "\[IndentingNewLine]", RowBox[{"For", "[", RowBox[{ RowBox[{"j", "=", "1"}], ",", RowBox[{"j", "<", RowBox[{"bc", "+", "1"}]}], ",", RowBox[{"j", "++"}], ",", RowBox[{"If", "[", " ", RowBox[{ RowBox[{ RowBox[{"Dij", "[", RowBox[{"[", RowBox[{"i", ",", "j"}], "]"}], "]"}], "\[NotEqual]", "0"}], " ", ",", RowBox[{ RowBox[{"con", "[", RowBox[{"[", "i", "]"}], "]"}], "=", RowBox[{"{", RowBox[{ RowBox[{"con", "[", RowBox[{"[", "i", "]"}], "]"}], ",", "j"}], "}"}]}]}], "]"}]}], "]"}]}], "]"}], ";"}], "\[IndentingNewLine]", RowBox[{ RowBox[{"conn", "=", RowBox[{"Table", "[", RowBox[{ RowBox[{"Flatten", "[", RowBox[{"con", "[", RowBox[{"[", "i", "]"}], "]"}], "]"}], ",", RowBox[{"{", RowBox[{"i", ",", "1", ",", "bc"}], "}"}]}], "]"}]}], ";"}]}], "Input", CellChangeTimes->{{3.5688800293771057`*^9, 3.5688801774057655`*^9}, { 3.5688802290574565`*^9, 3.568880330208034*^9}, {3.5688803807053227`*^9, 3.5688804136525807`*^9}, 3.568880491434317*^9, 3.5688805648948464`*^9, { 3.5688806280437574`*^9, 3.568880655234605*^9}, {3.568880712424306*^9, 3.568880716324312*^9}, {3.5688808087544746`*^9, 3.568880827786508*^9}, 3.5688808733385878`*^9, {3.568881358936241*^9, 3.5688813959239063`*^9}, { 3.568881446561595*^9, 3.5688815849182377`*^9}, {3.5688816223739033`*^9, 3.568881642607139*^9}, 3.568881728953291*^9, {3.568881797624612*^9, 3.568881809870633*^9}, 3.568881863612727*^9, {3.568883098916497*^9, 3.5688831014749017`*^9}, {3.56888372124679*^9, 3.568883843239004*^9}, 3.568888211750622*^9, {3.5688882521546926`*^9, 3.5688885232519693`*^9}, { 3.5688885890840845`*^9, 3.5688885895052853`*^9}, {3.568888675773437*^9, 3.5688886914514647`*^9}, {3.568888736285943*^9, 3.5688887717760057`*^9}, { 3.5688888256429005`*^9, 3.5688888541441507`*^9}, {3.568892442649892*^9, 3.5688924499507046`*^9}, {3.568892758441247*^9, 3.5688927597360487`*^9}, { 3.5688928234309607`*^9, 3.5688928379389863`*^9}, {3.5708938149488974`*^9, 3.5708938463361526`*^9}, {3.570893920483083*^9, 3.5708939282050962`*^9}, { 3.570894700000852*^9, 3.5708948169698577`*^9}, {3.570894956839703*^9, 3.5708949736409326`*^9}, {3.5708961320833673`*^9, 3.570896139696181*^9}, 3.570896314088887*^9, {3.5708963602181683`*^9, 3.5708963666609793`*^9}, { 3.570896482038782*^9, 3.570896483645585*^9}, {3.5708965159376416`*^9, 3.570896521194851*^9}, {3.5709435995777535`*^9, 3.5709436285158043`*^9}, { 3.5709436695594764`*^9, 3.5709437026783347`*^9}, {3.57094471360691*^9, 3.5709447144805117`*^9}, {3.571117678992402*^9, 3.571117755775737*^9}, { 3.571117807801828*^9, 3.5711178311706696`*^9}, {3.5711179386236577`*^9, 3.5711179514468803`*^9}, {3.5711180538922606`*^9, 3.5711181329531994`*^9}, {3.571118284803866*^9, 3.5711183600895977`*^9}, 3.571118418542901*^9, {3.5711187358786583`*^9, 3.571118760152301*^9}, { 3.5711189251069903`*^9, 3.571118931175401*^9}, {3.571119065756838*^9, 3.571119069968845*^9}, {3.5711191828038435`*^9, 3.5711191858302484`*^9}, { 3.571119378740187*^9, 3.571119441873498*^9}, {3.571119489453582*^9, 3.5711194938839893`*^9}, {3.571119574255331*^9, 3.571119584660549*^9}, { 3.5711196943599415`*^9, 3.5711197163091803`*^9}, {3.5711198294561787`*^9, 3.5711198460078077`*^9}, {3.5711199544435987`*^9, 3.571119960418409*^9}, { 3.57112005791858*^9, 3.5711200601337843`*^9}, {3.571122132488224*^9, 3.5711221772447023`*^9}, {3.5711222335764017`*^9, 3.571122265696858*^9}, { 3.5711223339157777`*^9, 3.5711223418093915`*^9}, {3.5711223939602833`*^9, 3.5711223957542863`*^9}, {3.571122528292119*^9, 3.571122529087721*^9}, { 3.5711226076026583`*^9, 3.5711226245598884`*^9}, 3.5711226547927413`*^9, { 3.571122698566418*^9, 3.571122702404025*^9}, {3.5711227857393713`*^9, 3.5711228031646023`*^9}, {3.571122843085072*^9, 3.5711228432878723`*^9}, { 3.5711232359405622`*^9, 3.571123255206596*^9}, 3.571123320991912*^9, { 3.5711233774484105`*^9, 3.5711234457765303`*^9}, {3.571123624911645*^9, 3.571123633975261*^9}, {3.571123734751438*^9, 3.5711237424110518`*^9}, { 3.5711242010206575`*^9, 3.5711242671491733`*^9}, {3.5711245724573097`*^9, 3.5711245843601303`*^9}, {3.571124620583394*^9, 3.5711246628750687`*^9}, { 3.571124751951225*^9, 3.5711247552428303`*^9}, {3.5711248069569216`*^9, 3.5711248951750765`*^9}, {3.5711250701761837`*^9, 3.5711251099562535`*^9}, 3.571125196598806*^9, 3.571135972980551*^9, {3.5711360048826065`*^9, 3.571136013634222*^9}, {3.571760985057314*^9, 3.5717610088005557`*^9}, { 3.5717610576442413`*^9, 3.571761063431852*^9}}], Cell[CellGroupData[{ Cell[BoxData[ RowBox[{"MatrixForm", "[", RowBox[{"conn", ",", " ", RowBox[{"TableAlignments", "\[Rule]", "Left"}]}], "]"}]], "Input", CellChangeTimes->{{3.571124951132375*^9, 3.571124964985199*^9}, 3.5711250544357557`*^9, {3.5711252381260786`*^9, 3.571125242696887*^9}, { 3.571136059092702*^9, 3.5711361005731745`*^9}, {3.5711361560936728`*^9, 3.571136166779691*^9}, {3.5711362400686197`*^9, 3.571136243375826*^9}, { 3.57113630839674*^9, 3.5711363448852043`*^9}, {3.571136388861681*^9, 3.571136392215687*^9}, {3.5711365868732414`*^9, 3.571136607385415*^9}}], Cell[BoxData[ TagBox[ RowBox[{"(", "\[NoBreak]", TagBox[GridBox[{ { RowBox[{"{", RowBox[{"1", ",", "2", ",", "4", ",", "7", ",", "8"}], "}"}]}, { RowBox[{"{", RowBox[{"2", ",", "1", ",", "3"}], "}"}]}, { RowBox[{"{", RowBox[{"3", ",", "2", ",", "5"}], "}"}]}, { RowBox[{"{", RowBox[{"4", ",", "1", ",", "6", ",", "9"}], "}"}]}, { RowBox[{"{", RowBox[{"5", ",", "3", ",", "6"}], "}"}]}, { RowBox[{"{", RowBox[{"6", ",", "4", ",", "5", ",", "10"}], "}"}]}, { RowBox[{"{", RowBox[{"7", ",", "1"}], "}"}]}, { RowBox[{"{", RowBox[{"8", ",", "1"}], "}"}]}, { RowBox[{"{", RowBox[{"9", ",", "4", ",", "11"}], "}"}]}, { RowBox[{"{", RowBox[{"10", ",", "6"}], "}"}]}, { RowBox[{"{", RowBox[{"11", ",", "9", ",", "12"}], "}"}]}, { RowBox[{"{", RowBox[{"12", ",", "11", ",", "13", ",", "14"}], "}"}]}, { RowBox[{"{", RowBox[{"13", ",", "12"}], "}"}]}, { RowBox[{"{", RowBox[{"14", ",", "12", ",", "15"}], "}"}]}, { RowBox[{"{", RowBox[{"15", ",", "14", ",", "16"}], "}"}]}, { RowBox[{"{", RowBox[{"16", ",", "15", ",", "17"}], "}"}]}, { RowBox[{"{", RowBox[{"17", ",", "16", ",", "18", ",", "19"}], "}"}]}, { RowBox[{"{", RowBox[{"18", ",", "17"}], "}"}]}, { RowBox[{"{", RowBox[{"19", ",", "17", ",", "20"}], "}"}]}, { RowBox[{"{", RowBox[{"20", ",", "19", ",", "21"}], "}"}]}, { RowBox[{"{", RowBox[{"21", ",", "20"}], "}"}]} }, GridBoxAlignment->{ "Columns" -> {{Left}}, "ColumnsIndexed" -> {}, "Rows" -> {{Baseline}}, "RowsIndexed" -> {}}, GridBoxSpacings->{"Columns" -> { Offset[0.27999999999999997`], { Offset[0.5599999999999999]}, Offset[0.27999999999999997`]}, "ColumnsIndexed" -> {}, "Rows" -> { Offset[0.2], { Offset[0.4]}, Offset[0.2]}, "RowsIndexed" -> {}}], Column], "\[NoBreak]", ")"}], Function[BoxForm`e$, MatrixForm[BoxForm`e$, TableAlignments -> Left]]]], "Output", CellChangeTimes->{3.5718407114317493`*^9, 3.5718477521881475`*^9}] }, Open ]], Cell[CellGroupData[{ Cell[BoxData[{ RowBox[{ RowBox[{"Eij", "=", RowBox[{"Table", "[", RowBox[{ RowBox[{"If", "[", RowBox[{ RowBox[{"i", "\[GreaterEqual]", "j"}], ",", RowBox[{"Dij", "[", RowBox[{"[", RowBox[{"i", ",", "j"}], "]"}], "]"}], ",", "0"}], "]"}], ",", RowBox[{"{", RowBox[{"i", ",", "1", ",", RowBox[{"bc", "-", "1"}]}], "}"}], ",", RowBox[{"{", RowBox[{"j", ",", "1", ",", RowBox[{"bc", "-", "1"}]}], "}"}]}], "]"}]}], ";"}], "\[IndentingNewLine]", RowBox[{"CD", "=", RowBox[{"Select", "[", RowBox[{ RowBox[{"Flatten", "[", "Eij", "]"}], ",", RowBox[{ RowBox[{"(", RowBox[{ RowBox[{"#", "\[GreaterEqual]", "2.4"}], " ", "&&", RowBox[{"#", "\[LessEqual]", "2.6"}]}], ")"}], " ", "&"}]}], "]"}]}], "\[IndentingNewLine]", RowBox[{ RowBox[{"Mean", "[", "CD", "]"}], " ", "\[PlusMinus]", " ", RowBox[{"StandardDeviation", "[", "CD", "]"}]}]}], "Input", CellChangeTimes->{{3.5711447475554733`*^9, 3.5711448173314643`*^9}, { 3.5711448756027975`*^9, 3.57114492740276*^9}, {3.5711449591545763`*^9, 3.5711450128426466`*^9}, 3.571145059034289*^9, {3.571145091643154*^9, 3.5711451544367456`*^9}, {3.5711457670857873`*^9, 3.571145777413378*^9}, { 3.571145816908637*^9, 3.5711458203728347`*^9}, {3.571145995427848*^9, 3.571146043099574*^9}, {3.571146121580063*^9, 3.571146129714528*^9}, { 3.5711468466695356`*^9, 3.571146852041843*^9}, {3.5711478420384674`*^9, 3.571147850085928*^9}, {3.57114788911016*^9, 3.571147906822173*^9}, 3.571148086181432*^9, {3.571148123252552*^9, 3.5711481317480383`*^9}, { 3.571148234499915*^9, 3.57114834630731*^9}, 3.571151990091008*^9, { 3.5712017864539623`*^9, 3.5712018128960094`*^9}, {3.5712024819499846`*^9, 3.5712024821527843`*^9}, {3.571202538780884*^9, 3.5712025389368844`*^9}, { 3.5712028115629635`*^9, 3.5712028346354036`*^9}}], Cell[BoxData[ RowBox[{"{", RowBox[{ "2.4969033111783276`", ",", "2.563079476006322`", ",", "2.569288589590436`", ",", "2.563021237668669`", ",", "2.5234179395658387`"}], "}"}]], "Output", CellChangeTimes->{3.5718407114473495`*^9, 3.5718477522037473`*^9}], Cell[BoxData[ RowBox[{"2.5431421108019188`", "\[PlusMinus]", "0.031636158469768805`"}]], "Output", CellChangeTimes->{3.5718407114473495`*^9, 3.5718477522037473`*^9}] }, Open ]], Cell[CellGroupData[{ Cell[BoxData[{ RowBox[{"CC", "=", RowBox[{"Select", "[", RowBox[{ RowBox[{"Flatten", "[", "Eij", "]"}], ",", RowBox[{ RowBox[{"(", RowBox[{"#", "\[GreaterEqual]", "2.6"}], ")"}], " ", "&"}]}], "]"}]}], "\n", RowBox[{ RowBox[{"Mean", "[", "CC", "]"}], " ", "\[PlusMinus]", " ", RowBox[{"StandardDeviation", "[", "CC", "]"}], " "}]}], "Input", CellChangeTimes->{{3.571152083381344*^9, 3.571152103920519*^9}, { 3.571200806148241*^9, 3.571200809159046*^9}, 3.571201865936102*^9, { 3.5712028396274123`*^9, 3.57120285544584*^9}}], Cell[BoxData[ RowBox[{"{", RowBox[{ "2.8913009136018033`", ",", "2.897744729615149`", ",", "2.8365357849535755`", ",", "2.8944306444976293`", ",", "2.8364840302110523`", ",", "2.89127882116865`", ",", "2.891496051548036`", ",", "2.7620366698777885`", ",", "2.847735773230699`", ",", "2.663475350554561`", ",", "2.847986419989531`", ",", "2.6635653925414697`", ",", "2.7620710231833114`", ",", "2.847700126249429`", ",", "2.8479645159754585`"}], "}"}]], "Output", CellChangeTimes->{3.5718407114629493`*^9, 3.571847752219347*^9}], Cell[BoxData[ RowBox[{"2.825453749813209`", "\[PlusMinus]", "0.07826166491129996`"}]], "Output", CellChangeTimes->{3.5718407114629493`*^9, 3.571847752219347*^9}] }, Open ]], Cell[CellGroupData[{ Cell[BoxData[{ RowBox[{ RowBox[{"Eij", "=", RowBox[{"Table", "[", RowBox[{ RowBox[{"If", "[", RowBox[{ RowBox[{"i", "\[GreaterEqual]", "j"}], ",", RowBox[{"Dij", "[", RowBox[{"[", RowBox[{"i", ",", "j"}], "]"}], "]"}], ",", "0"}], "]"}], ",", RowBox[{"{", RowBox[{"i", ",", RowBox[{"bc", "+", "1"}], ",", "n"}], "}"}], ",", RowBox[{"{", RowBox[{"j", ",", "1", ",", RowBox[{"bc", "-", "1"}]}], "}"}]}], "]"}]}], ";"}], "\[IndentingNewLine]", RowBox[{"CH", "=", RowBox[{"Select", "[", RowBox[{ RowBox[{"Flatten", "[", "Eij", "]"}], ",", RowBox[{ RowBox[{"(", RowBox[{ RowBox[{"#", ">", "0"}], " ", "&&", RowBox[{"#", "\[LessEqual]", "2.1"}]}], ")"}], " ", "&"}]}], "]"}]}], "\[IndentingNewLine]", RowBox[{ RowBox[{"Mean", "[", "CH", "]"}], " ", "\[PlusMinus]", " ", RowBox[{"StandardDeviation", "[", "CH", "]"}]}]}], "Input", CellChangeTimes->{{3.5688800293771057`*^9, 3.5688801774057655`*^9}, { 3.5688802290574565`*^9, 3.568880330208034*^9}, {3.5688803807053227`*^9, 3.5688804136525807`*^9}, 3.568880491434317*^9, 3.5688805648948464`*^9, { 3.5688806280437574`*^9, 3.568880655234605*^9}, {3.568880712424306*^9, 3.568880716324312*^9}, {3.5688808087544746`*^9, 3.568880827786508*^9}, 3.5688808733385878`*^9, {3.568881358936241*^9, 3.5688813959239063`*^9}, { 3.568881446561595*^9, 3.5688815849182377`*^9}, {3.5688816223739033`*^9, 3.568881642607139*^9}, 3.568881728953291*^9, {3.568881797624612*^9, 3.568881809870633*^9}, 3.568881863612727*^9, {3.568883098916497*^9, 3.5688831014749017`*^9}, {3.56888372124679*^9, 3.568883843239004*^9}, 3.568888211750622*^9, {3.5688882521546926`*^9, 3.5688885232519693`*^9}, { 3.5688885890840845`*^9, 3.5688885895052853`*^9}, {3.568888675773437*^9, 3.5688886914514647`*^9}, {3.568888736285943*^9, 3.5688887717760057`*^9}, { 3.5688888256429005`*^9, 3.5688888541441507`*^9}, {3.568892442649892*^9, 3.5688924499507046`*^9}, {3.568892758441247*^9, 3.5688927597360487`*^9}, { 3.5688928234309607`*^9, 3.5688928379389863`*^9}, {3.5708938149488974`*^9, 3.5708938463361526`*^9}, {3.570893920483083*^9, 3.5708939282050962`*^9}, { 3.570894700000852*^9, 3.57089481264865*^9}, {3.570973331551669*^9, 3.570973355887712*^9}, {3.5709734060886*^9, 3.5709734077266035`*^9}, 3.5709737061863275`*^9, {3.5712013634748197`*^9, 3.5712013661736245`*^9}, { 3.571201966837079*^9, 3.571202078205675*^9}, {3.5712022379343557`*^9, 3.5712022402275596`*^9}, {3.571202304764873*^9, 3.5712023101312823`*^9}, 3.571202353748959*^9, {3.5712024254310846`*^9, 3.5712024257586856`*^9}, { 3.57120276994209*^9, 3.5712027833893137`*^9}}], Cell[BoxData[ RowBox[{"{", RowBox[{ "2.0600933686504748`", ",", "2.059776938118349`", ",", "2.0598730589675256`", ",", "2.0596780533600914`", ",", "2.059687129769231`", ",", "2.059914598740929`", ",", "2.059831756042301`", ",", "2.059545647756167`", ",", "2.059713033204844`", ",", "2.0598903549200966`", ",", "2.059839640489124`", ",", "2.059752146204022`", ",", "2.041088532893879`", ",", "2.059887260061742`", ",", "2.0597996583165434`", ",", "2.0597603015255403`", ",", "2.0408468247238463`", ",", "2.0597025058258973`", ",", "2.0597979822662262`", ",", "2.059767545619187`", ",", "2.040984980103778`", ",", "2.040733749438218`", ",", "2.041034289865974`", ",", "2.0598277699890306`", ",", "2.0596247627619664`", ",", "2.0599745373753002`", ",", "2.040917857231867`", ",", "2.059779740145197`", ",", "2.0598124012820667`"}], "}"}]], "Output", CellChangeTimes->{3.5718407114629493`*^9, 3.571847752234947*^9}], Cell[BoxData[ RowBox[{"2.055894359505152`", "\[PlusMinus]", "0.007777002172673114`"}]], "Output", CellChangeTimes->{3.5718407114629493`*^9, 3.571847752234947*^9}] }, Open ]], Cell[CellGroupData[{ Cell[BoxData[{ RowBox[{"For", "[", RowBox[{ RowBox[{"i", "=", "1"}], " ", ",", RowBox[{"i", "<", RowBox[{"n", "+", "1"}]}], ",", RowBox[{"i", "++"}], ",", "\[IndentingNewLine]", RowBox[{"For", "[", RowBox[{ RowBox[{"j", "=", "1"}], ",", " ", RowBox[{"j", "<", RowBox[{"bc", "+", "1"}]}], ",", RowBox[{"j", "++"}], ",", "\[IndentingNewLine]", RowBox[{"If", "[", RowBox[{ RowBox[{"(", RowBox[{ RowBox[{ RowBox[{"Dij", "[", RowBox[{"[", RowBox[{"i", ",", "j"}], "]"}], "]"}], "\[NotEqual]", "0"}], " ", "&&", " ", RowBox[{ RowBox[{"u", "[", RowBox[{"[", "i", "]"}], "]"}], "\[Equal]", " ", "\"\\""}]}], ")"}], ",", RowBox[{"If", "[", RowBox[{ RowBox[{ RowBox[{"u", "[", RowBox[{"[", "j", "]"}], "]"}], "\[Equal]", "\"\\""}], ",", RowBox[{ RowBox[{"u2", "[", RowBox[{"[", "i", "]"}], "]"}], "=", "0.5693"}], ",", RowBox[{"If", "[", RowBox[{ RowBox[{ RowBox[{"u", "[", RowBox[{"[", "j", "]"}], "]"}], "\[Equal]", "\"\\""}], ",", RowBox[{ RowBox[{"u2", "[", RowBox[{"[", "i", "]"}], "]"}], "=", "0.5"}], ",", RowBox[{"If", "[", RowBox[{ RowBox[{ RowBox[{"u", "[", RowBox[{"[", "j", "]"}], "]"}], "\[Equal]", "\"\\""}], ",", RowBox[{ RowBox[{"u2", "[", RowBox[{"[", "i", "]"}], "]"}], "=", "0.5541"}], ",", RowBox[{"If", "[", RowBox[{ RowBox[{ RowBox[{"u", "[", RowBox[{"[", "j", "]"}], "]"}], "\[Equal]", "\"\\""}], ",", RowBox[{ RowBox[{"u2", "[", RowBox[{"[", "i", "]"}], "]"}], "=", "0.5241"}]}], "]"}]}], "]"}]}], "]"}]}], "]"}]}], "]"}]}], "]"}]}], "]"}], "\[IndentingNewLine]", "u2"}], "Input", CellChangeTimes->{{3.5688800293771057`*^9, 3.5688801774057655`*^9}, { 3.5688802290574565`*^9, 3.568880330208034*^9}, {3.5688803807053227`*^9, 3.5688804136525807`*^9}, 3.568880491434317*^9, 3.5688805648948464`*^9, { 3.5688806280437574`*^9, 3.568880655234605*^9}, {3.568880712424306*^9, 3.568880716324312*^9}, {3.5688808087544746`*^9, 3.568880827786508*^9}, 3.5688808733385878`*^9, {3.568881358936241*^9, 3.5688813959239063`*^9}, { 3.568881446561595*^9, 3.5688815849182377`*^9}, {3.5688816223739033`*^9, 3.568881642607139*^9}, 3.568881728953291*^9, {3.568881797624612*^9, 3.568881809870633*^9}, 3.568881863612727*^9, {3.568883098916497*^9, 3.5688831014749017`*^9}, {3.56888372124679*^9, 3.568883843239004*^9}, 3.568888211750622*^9, {3.5688882521546926`*^9, 3.5688885232519693`*^9}, { 3.5688885890840845`*^9, 3.5688885895052853`*^9}, {3.568888675773437*^9, 3.5688886914514647`*^9}, {3.568888736285943*^9, 3.5688887717760057`*^9}, { 3.5688888256429005`*^9, 3.5688888541441507`*^9}, {3.568892442649892*^9, 3.5688924499507046`*^9}, {3.568892758441247*^9, 3.5688927597360487`*^9}, { 3.5688928234309607`*^9, 3.5688928379389863`*^9}, {3.5708938149488974`*^9, 3.5708938463361526`*^9}, {3.570893920483083*^9, 3.5708939282050962`*^9}, { 3.570894700000852*^9, 3.57089481264865*^9}, {3.570973331551669*^9, 3.570973355887712*^9}, {3.5709734060886*^9, 3.5709734077266035`*^9}, 3.5709737061863275`*^9, {3.5712013634748197`*^9, 3.5712013661736245`*^9}, { 3.571201966837079*^9, 3.5712020689392586`*^9}}], Cell[BoxData[ RowBox[{"{", RowBox[{ "0.2557`", ",", "0.255`", ",", "0.255`", ",", "0.2557`", ",", "0.255`", ",", "0.2557`", ",", "0.2547`", ",", "0.2547`", ",", "0.2557`", ",", "0.2547`", ",", "0.2557`", ",", "0.2557`", ",", "0.2547`", ",", "0.2557`", ",", "0.2557`", ",", "0.2557`", ",", "0.2557`", ",", "0.2547`", ",", "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.571840711478549*^9, 3.5718477522505474`*^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.739865382403`"], "Output", CellChangeTimes->{3.5718407115253496`*^9, 3.5718477522817473`*^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["761.3819653663568`"], "Output", CellChangeTimes->{3.5718407115253496`*^9, 3.571847752297347*^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["844.1218307487597`"], "Output", CellChangeTimes->{3.5718407115409493`*^9, 3.5718477523129473`*^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.79916843538082`"], "Output", CellChangeTimes->{3.571840711556549*^9, 3.5718477523285475`*^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.940696947022175`"], "Output", CellChangeTimes->{3.571840711556549*^9, 3.5718477523285475`*^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[BoxData[ RowBox[{ RowBox[{ RowBox[{"Clear", "[", RowBox[{"c", ",", "v", ",", "p", ",", "Q", ",", "P"}], "]"}], ";"}], " ", RowBox[{"(*", RowBox[{ RowBox[{"c1", "=", "20"}], ";", " ", RowBox[{"c2", "=", "21"}], ";", " ", RowBox[{"c3", "=", "51"}], ";"}], "*)"}], " "}]], "Input", CellChangeTimes->{{3.568108824079547*^9, 3.568109012824279*^9}, { 3.568109558076436*^9, 3.568109588168889*^9}, {3.5681097523435774`*^9, 3.5681097637783976`*^9}, {3.5681100381828794`*^9, 3.5681101616726966`*^9}, {3.5681102015307665`*^9, 3.5681102288464146`*^9}, {3.568110263743676*^9, 3.568110267331682*^9}, { 3.5681103163469687`*^9, 3.5681103268925867`*^9}, {3.5681106443375444`*^9, 3.5681106916368275`*^9}, 3.568110873002746*^9, {3.5681109388660617`*^9, 3.5681110268970165`*^9}, {3.568111092526332*^9, 3.568111123461186*^9}, { 3.5681111884196997`*^9, 3.568111192756508*^9}, {3.5681112268113675`*^9, 3.568111366213212*^9}, {3.568111434946933*^9, 3.568111463354583*^9}, { 3.568111544396725*^9, 3.568111547625931*^9}, {3.5681116856081734`*^9, 3.5681117131422215`*^9}, {3.568111864696488*^9, 3.5681119835998964`*^9}, 3.5681120218355637`*^9, {3.56811206543764*^9, 3.568112066389242*^9}, { 3.568112332369709*^9, 3.5681123404505234`*^9}, {3.568112505935614*^9, 3.56811251481203*^9}, {3.5681125623609133`*^9, 3.568112569006525*^9}, { 3.568112648067464*^9, 3.568112734210815*^9}, {3.568112764443668*^9, 3.5681127697320776`*^9}, {3.5681128018681335`*^9, 3.568112843426607*^9}, { 3.568112884641879*^9, 3.5681128887602863`*^9}, {3.5681129663080225`*^9, 3.5681129699584293`*^9}, {3.568113133789917*^9, 3.568113227936082*^9}, { 3.5681132946885996`*^9, 3.5681133044698167`*^9}, {3.568113502200164*^9, 3.568113507348173*^9}, 3.56811354556824*^9, {3.5681222886191964`*^9, 3.5681222896019983`*^9}, {3.568207424138049*^9, 3.5682074415164795`*^9}, 3.568277923134914*^9, 3.568883508322016*^9, 3.568883588350157*^9, 3.5688836441982546`*^9, {3.5703421313965206`*^9, 3.5703421386505337`*^9}, { 3.570342288098796*^9, 3.5703424924279547`*^9}, 3.5709745658726373`*^9, 3.5709746291463485`*^9, {3.5709747534473667`*^9, 3.5709747617933817`*^9}, { 3.5709749537361183`*^9, 3.570975034747061*^9}, {3.5709751055243855`*^9, 3.5709751213584127`*^9}, {3.5709751694532976`*^9, 3.570975200060551*^9}, { 3.571073358435503*^9, 3.5710734289632273`*^9}, {3.571204792969243*^9, 3.571204820940092*^9}, {3.5712048565705547`*^9, 3.571204860002561*^9}, 3.571204896881026*^9, {3.571204943556308*^9, 3.571204987485985*^9}, 3.5712053579722357`*^9, 3.5712054148187356`*^9, 3.5712055260469313`*^9, { 3.571205631237916*^9, 3.5712056608311677`*^9}, {3.571206377683627*^9, 3.5712064172296963`*^9}, {3.571206525727887*^9, 3.571206547427525*^9}, { 3.5712066764397516`*^9, 3.5712067106974115`*^9}, {3.571206757949895*^9, 3.5712067585114956`*^9}, {3.5712073458681273`*^9, 3.571207357053347*^9}, { 3.5712075532392917`*^9, 3.5712076608170805`*^9}, {3.571208007434089*^9, 3.571208247690111*^9}, {3.571208301057805*^9, 3.5712083308850574`*^9}, { 3.571208811958702*^9, 3.571208871488407*^9}, {3.5712089993618317`*^9, 3.5712089996582317`*^9}, {3.5712091105588264`*^9, 3.571209160744115*^9}, { 3.5712092989135575`*^9, 3.5712093003643603`*^9}, {3.571209369940482*^9, 3.5712093926073227`*^9}, {3.5712094586578383`*^9, 3.5712094836958823`*^9}, {3.5712104228175316`*^9, 3.571210434267952*^9}, 3.571210475358424*^9, 3.5712108629099045`*^9, {3.571210903969177*^9, 3.5712109929361334`*^9}, {3.5712110295961976`*^9, 3.5712110392214146`*^9}, {3.571211240071767*^9, 3.5712112940946617`*^9}, { 3.571211404496056*^9, 3.5712114190976815`*^9}, {3.5712115264882703`*^9, 3.5712115363942876`*^9}, {3.571211575924757*^9, 3.5712116183724318`*^9}, { 3.5712116597281046`*^9, 3.571211695062166*^9}, {3.5712117551222715`*^9, 3.5712117807531166`*^9}, {3.571211826835598*^9, 3.5712118443232284`*^9}, { 3.571211962540236*^9, 3.5712119670174437`*^9}, 3.5712123580321307`*^9, { 3.5712123994658036`*^9, 3.571212411181424*^9}, {3.5712172605092583`*^9, 3.571217297153723*^9}, {3.571223622762637*^9, 3.57122364145147*^9}, { 3.5712237454256525`*^9, 3.571223750745262*^9}, {3.571223964808838*^9, 3.571224009097316*^9}, {3.57122674689975*^9, 3.5712267784742055`*^9}, { 3.5712269848157682`*^9, 3.57122698582977*^9}, {3.5712270624259043`*^9, 3.5712270629563055`*^9}, {3.571227212438168*^9, 3.571227212999769*^9}, { 3.571227409778515*^9, 3.5712274489969835`*^9}, {3.571227502177477*^9, 3.571227514127098*^9}, {3.57122758356282*^9, 3.5712276390521173`*^9}, 3.5712276745889797`*^9, {3.571227712746647*^9, 3.5712277584703274`*^9}, { 3.5712349496076813`*^9, 3.571234988008148*^9}, {3.5712351855668955`*^9, 3.5712353359043593`*^9}, {3.5712355859883986`*^9, 3.571235653661318*^9}, { 3.5712356890109797`*^9, 3.571235702208603*^9}, {3.5712449764989214`*^9, 3.5712449799309273`*^9}, {3.5712450401778336`*^9, 3.571245051456653*^9}, { 3.5712450868687153`*^9, 3.5712450934831266`*^9}, {3.571299135517318*^9, 3.571299166342972*^9}, {3.5713069890574045`*^9, 3.5713071726697273`*^9}, { 3.571307301791154*^9, 3.571307304536759*^9}, {3.571307397731323*^9, 3.571307405702937*^9}, {3.571311846659932*^9, 3.5713118507939396`*^9}, { 3.571317129094411*^9, 3.5713171472216425`*^9}, {3.5713172653138494`*^9, 3.5713172753602676`*^9}, {3.5713216932693615`*^9, 3.5713216983081703`*^9}, {3.5713370477995405`*^9, 3.5713370593279605`*^9}, {3.571404339740199*^9, 3.5714046172178864`*^9}, { 3.571404755449729*^9, 3.571404853246301*^9}, {3.571405069743481*^9, 3.571405208989326*^9}, {3.571405268612631*^9, 3.571405277442246*^9}, { 3.5714053796536255`*^9, 3.5714054114932814`*^9}, {3.571405595448805*^9, 3.5714056194884467`*^9}, {3.5714056687221336`*^9, 3.571405677660949*^9}, 3.5714067334520035`*^9, {3.57140676532286*^9, 3.5714067706580687`*^9}, { 3.571406950729185*^9, 3.571406989495253*^9}, {3.5714071848855963`*^9, 3.571407190579606*^9}, 3.5714072350240846`*^9, {3.571412503236558*^9, 3.5714125080413666`*^9}, {3.571412540879424*^9, 3.571412607787942*^9}, { 3.571412668378448*^9, 3.5714128101202965`*^9}, {3.5714128643147917`*^9, 3.571412873862009*^9}, {3.571412908150869*^9, 3.57141290869687*^9}, { 3.571413012374652*^9, 3.5714130213290677`*^9}, {3.571413054603926*^9, 3.5714130713583555`*^9}, 3.5714133323156137`*^9, {3.571730171730853*^9, 3.571730182494872*^9}, {3.5717303501171665`*^9, 3.5717303600855846`*^9}, { 3.5717305482375145`*^9, 3.5717305527147226`*^9}, {3.571760865342704*^9, 3.5717608700695124`*^9}, {3.57176111957635*^9, 3.5717611228835564`*^9}, 3.571761174316847*^9, {3.5717620076459103`*^9, 3.571762008441512*^9}, { 3.571765525077688*^9, 3.571765573718574*^9}}], Cell[CellGroupData[{ Cell[BoxData[{ RowBox[{"P", "=", RowBox[{"Length", "[", RowBox[{"conn", "[", RowBox[{"[", "12", "]"}], "]"}], "]"}]}], "\[IndentingNewLine]", RowBox[{"c", "=", RowBox[{"Table", "[", RowBox[{ RowBox[{"conn", "[", RowBox[{"[", RowBox[{"12", ",", "i"}], "]"}], "]"}], ",", RowBox[{"{", RowBox[{"i", ",", "1", ",", "P"}], "}"}]}], "]"}]}]}], "Input", CellChangeTimes->{{3.5717611834272623`*^9, 3.571761287767046*^9}, { 3.571761989144278*^9, 3.5717619949942884`*^9}, {3.5717626601482563`*^9, 3.5717627281175756`*^9}, 3.5717640513743*^9, 3.5717643152643633`*^9, { 3.571767210754249*^9, 3.5717672165886593`*^9}}], Cell[BoxData["4"], "Output", CellChangeTimes->{3.5718407115721493`*^9, 3.5718477523441477`*^9}], Cell[BoxData[ RowBox[{"{", RowBox[{"12", ",", "11", ",", "13", ",", "14"}], "}"}]], "Output", CellChangeTimes->{3.5718407115721493`*^9, 3.571847752359748*^9}] }, Open ]], Cell[CellGroupData[{ Cell[BoxData[{ RowBox[{"v", "=", RowBox[{"Table", "[", RowBox[{ RowBox[{"Join", "[", RowBox[{ RowBox[{"t", "[", RowBox[{"[", RowBox[{"c", "[", RowBox[{"[", "i", "]"}], "]"}], "]"}], "]"}], ",", RowBox[{"{", "1", "}"}]}], "]"}], ",", RowBox[{"{", RowBox[{"i", ",", "1", ",", "P"}], "}"}]}], "]"}]}], "\[IndentingNewLine]", RowBox[{ RowBox[{ RowBox[{"x2", "=", RowBox[{"t", "[", RowBox[{"[", RowBox[{ RowBox[{"c", "[", RowBox[{"[", "2", "]"}], "]"}], ",", "1"}], "]"}], "]"}]}], ";", " ", RowBox[{"y2", "=", RowBox[{"t", "[", RowBox[{"[", RowBox[{ RowBox[{"c", "[", RowBox[{"[", "2", "]"}], "]"}], ",", "2"}], "]"}], "]"}]}], ";", " ", RowBox[{"z2", "=", RowBox[{"t", "[", RowBox[{"[", RowBox[{ RowBox[{"c", "[", RowBox[{"[", "2", "]"}], "]"}], ",", "3"}], "]"}], "]"}]}], ";"}], " ", RowBox[{"(*", " ", RowBox[{"to", " ", "be", " ", "set", " ", "to", " ", RowBox[{"(", RowBox[{"0", ",", "0", ",", "0"}], ")"}]}], " ", "*)"}]}], "\[IndentingNewLine]", RowBox[{ RowBox[{ RowBox[{"Q", "=", RowBox[{"{", RowBox[{ RowBox[{"{", RowBox[{"1", ",", "0", ",", "0", ",", "0"}], "}"}], ",", "\[IndentingNewLine]", RowBox[{"{", RowBox[{"0", ",", "1", ",", "0", ",", "0"}], "}"}], ",", "\[IndentingNewLine]", RowBox[{"{", RowBox[{"0", ",", "0", ",", "1", ",", "0"}], "}"}], ",", "\[IndentingNewLine]", RowBox[{"{", RowBox[{ RowBox[{"-", "x2"}], ",", RowBox[{"-", "y2"}], ",", RowBox[{"-", "z2"}], ",", "1"}], "}"}]}], "}"}]}], ";"}], "\[IndentingNewLine]", RowBox[{"(*", RowBox[{"MatrixForm", "[", "Q", "]"}], "*)"}]}], "\[IndentingNewLine]", RowBox[{ RowBox[{"(*", RowBox[{ RowBox[{"p", "=", RowBox[{"Table", "[", RowBox[{"0", ",", RowBox[{"{", "P", "}"}], ",", RowBox[{"{", "4", "}"}]}], "]"}]}], ";"}], "*)"}]}]}], "Input", CellChangeTimes->{{3.568108824079547*^9, 3.568109012824279*^9}, { 3.568109558076436*^9, 3.568109588168889*^9}, {3.5681097523435774`*^9, 3.5681097637783976`*^9}, {3.5681100381828794`*^9, 3.5681101616726966`*^9}, {3.5681102015307665`*^9, 3.5681102288464146`*^9}, {3.568110263743676*^9, 3.568110267331682*^9}, { 3.5681103163469687`*^9, 3.5681103268925867`*^9}, {3.5681106443375444`*^9, 3.5681106916368275`*^9}, 3.568110873002746*^9, {3.5681109388660617`*^9, 3.5681110268970165`*^9}, {3.568111092526332*^9, 3.568111123461186*^9}, { 3.5681111884196997`*^9, 3.568111192756508*^9}, {3.5681112268113675`*^9, 3.568111366213212*^9}, {3.568111434946933*^9, 3.568111463354583*^9}, { 3.568111544396725*^9, 3.568111547625931*^9}, {3.5681116856081734`*^9, 3.5681117131422215`*^9}, {3.568111864696488*^9, 3.5681119835998964`*^9}, 3.5681120218355637`*^9, {3.56811206543764*^9, 3.568112066389242*^9}, { 3.568112332369709*^9, 3.5681123404505234`*^9}, {3.568112505935614*^9, 3.56811251481203*^9}, {3.5681125623609133`*^9, 3.568112569006525*^9}, { 3.568112648067464*^9, 3.568112734210815*^9}, {3.568112764443668*^9, 3.5681127697320776`*^9}, {3.5681128018681335`*^9, 3.568112843426607*^9}, { 3.568112884641879*^9, 3.5681128887602863`*^9}, {3.5681129663080225`*^9, 3.5681129699584293`*^9}, {3.568113133789917*^9, 3.568113227936082*^9}, { 3.5681132946885996`*^9, 3.5681133044698167`*^9}, {3.568113502200164*^9, 3.568113507348173*^9}, 3.56811354556824*^9, {3.5681222886191964`*^9, 3.5681222896019983`*^9}, {3.568207424138049*^9, 3.5682074415164795`*^9}, 3.568277923134914*^9, 3.568883508322016*^9, 3.568883588350157*^9, 3.5688836441982546`*^9, {3.5703421313965206`*^9, 3.5703421386505337`*^9}, { 3.570342288098796*^9, 3.5703424924279547`*^9}, 3.5709745658726373`*^9, 3.5709746291463485`*^9, {3.5709747534473667`*^9, 3.5709747617933817`*^9}, { 3.5709749537361183`*^9, 3.570975034747061*^9}, {3.5709751055243855`*^9, 3.5709751213584127`*^9}, {3.5709751694532976`*^9, 3.570975200060551*^9}, { 3.571073358435503*^9, 3.5710734289632273`*^9}, {3.571204792969243*^9, 3.571204820940092*^9}, {3.5712048565705547`*^9, 3.571204860002561*^9}, 3.571204896881026*^9, {3.571204943556308*^9, 3.571204987485985*^9}, 3.5712053579722357`*^9, 3.5712054148187356`*^9, 3.5712055260469313`*^9, { 3.571205631237916*^9, 3.5712056608311677`*^9}, {3.571206377683627*^9, 3.5712064172296963`*^9}, {3.571206525727887*^9, 3.571206547427525*^9}, { 3.5712066764397516`*^9, 3.5712067106974115`*^9}, {3.571206757949895*^9, 3.5712067585114956`*^9}, {3.5712073458681273`*^9, 3.571207357053347*^9}, { 3.5712075532392917`*^9, 3.5712076608170805`*^9}, {3.571208007434089*^9, 3.571208247690111*^9}, {3.571208301057805*^9, 3.5712083308850574`*^9}, { 3.571208811958702*^9, 3.571208871488407*^9}, {3.5712089993618317`*^9, 3.5712089996582317`*^9}, {3.5712091105588264`*^9, 3.571209160744115*^9}, { 3.5712092989135575`*^9, 3.5712093003643603`*^9}, {3.571209369940482*^9, 3.5712093926073227`*^9}, {3.5712094586578383`*^9, 3.5712094836958823`*^9}, {3.5712104228175316`*^9, 3.571210434267952*^9}, 3.571210475358424*^9, 3.5712108629099045`*^9, {3.571210903969177*^9, 3.5712109929361334`*^9}, {3.5712110295961976`*^9, 3.5712110392214146`*^9}, {3.571211240071767*^9, 3.5712112940946617`*^9}, { 3.571211404496056*^9, 3.5712114190976815`*^9}, {3.5712115264882703`*^9, 3.5712115363942876`*^9}, {3.571211575924757*^9, 3.5712116183724318`*^9}, { 3.5712116597281046`*^9, 3.571211695062166*^9}, {3.5712117551222715`*^9, 3.5712117807531166`*^9}, {3.571211826835598*^9, 3.5712118443232284`*^9}, { 3.571211962540236*^9, 3.5712119670174437`*^9}, 3.5712123580321307`*^9, { 3.5712123994658036`*^9, 3.571212411181424*^9}, {3.5712172605092583`*^9, 3.571217297153723*^9}, {3.571223622762637*^9, 3.57122364145147*^9}, { 3.5712237454256525`*^9, 3.571223750745262*^9}, {3.571223964808838*^9, 3.571224009097316*^9}, {3.57122674689975*^9, 3.5712267784742055`*^9}, { 3.5712269848157682`*^9, 3.57122698582977*^9}, {3.5712270624259043`*^9, 3.5712270629563055`*^9}, {3.571227212438168*^9, 3.571227212999769*^9}, { 3.571227409778515*^9, 3.5712274489969835`*^9}, {3.571227502177477*^9, 3.571227514127098*^9}, {3.57122758356282*^9, 3.5712276390521173`*^9}, 3.5712276745889797`*^9, {3.571227712746647*^9, 3.5712277584703274`*^9}, { 3.5712349496076813`*^9, 3.571234988008148*^9}, {3.5712351855668955`*^9, 3.5712353359043593`*^9}, {3.5712355859883986`*^9, 3.571235653661318*^9}, { 3.5712356890109797`*^9, 3.571235702208603*^9}, {3.5712449764989214`*^9, 3.5712449799309273`*^9}, {3.5712450401778336`*^9, 3.571245051456653*^9}, { 3.5712450868687153`*^9, 3.5712450934831266`*^9}, {3.571299135517318*^9, 3.571299166342972*^9}, {3.5713069890574045`*^9, 3.5713071726697273`*^9}, { 3.571307301791154*^9, 3.571307304536759*^9}, {3.571307397731323*^9, 3.571307405702937*^9}, {3.571311846659932*^9, 3.5713118507939396`*^9}, { 3.571317129094411*^9, 3.5713171472216425`*^9}, {3.5713172653138494`*^9, 3.5713172753602676`*^9}, {3.5713216932693615`*^9, 3.5713216983081703`*^9}, {3.5713370477995405`*^9, 3.5713370593279605`*^9}, {3.571404339740199*^9, 3.5714046172178864`*^9}, { 3.571404755449729*^9, 3.571404853246301*^9}, {3.571405069743481*^9, 3.571405208989326*^9}, {3.571405268612631*^9, 3.571405277442246*^9}, { 3.5714053796536255`*^9, 3.5714054114932814`*^9}, {3.571405595448805*^9, 3.5714056194884467`*^9}, {3.5714056687221336`*^9, 3.571405677660949*^9}, 3.5714067334520035`*^9, {3.57140676532286*^9, 3.5714067706580687`*^9}, { 3.571406950729185*^9, 3.571406989495253*^9}, {3.5714071848855963`*^9, 3.571407190579606*^9}, 3.5714072350240846`*^9, {3.571412503236558*^9, 3.5714125080413666`*^9}, {3.571412540879424*^9, 3.571412607787942*^9}, { 3.571412668378448*^9, 3.5714128101202965`*^9}, {3.5714128643147917`*^9, 3.571412873862009*^9}, {3.571412908150869*^9, 3.57141290869687*^9}, { 3.571413012374652*^9, 3.5714130213290677`*^9}, {3.571413054603926*^9, 3.5714130713583555`*^9}, {3.5714133323156137`*^9, 3.5714133752624893`*^9}, {3.5714136494641714`*^9, 3.5714136769202194`*^9}, {3.5714140550180836`*^9, 3.5714140686213074`*^9}, {3.571727178397596*^9, 3.571727294992201*^9}, { 3.571727762556222*^9, 3.5717277702158356`*^9}, 3.571761575961952*^9, { 3.5717627754636593`*^9, 3.5717629062542887`*^9}, {3.5717630000884533`*^9, 3.571763131861885*^9}, {3.5717635952762985`*^9, 3.5717636098623247`*^9}, { 3.5717636458671875`*^9, 3.5717636504691963`*^9}, {3.5717641103580036`*^9, 3.571764139015254*^9}, {3.571764227280209*^9, 3.571764231336216*^9}, { 3.571764503946695*^9, 3.57176454651917*^9}, {3.5717645924768505`*^9, 3.571764614254489*^9}, {3.571764811860036*^9, 3.571764868316535*^9}, { 3.5717649431186666`*^9, 3.571764944039068*^9}, 3.5717656631067305`*^9, { 3.5717658044741793`*^9, 3.5717658055037813`*^9}, {3.57176583912184*^9, 3.571765881195114*^9}, 3.571807177607179*^9, 3.57180734301427*^9}], Cell[BoxData[ RowBox[{"{", RowBox[{ RowBox[{"{", RowBox[{ RowBox[{"-", "1.00289648546`"}], ",", RowBox[{"-", "0.7372954961599999`"}], ",", RowBox[{"-", "0.36513285772`"}], ",", "1"}], "}"}], ",", RowBox[{"{", RowBox[{ "1.2153772769`", ",", "0.6439052372399999`", ",", "0.150276680698`", ",", "1"}], "}"}], ",", RowBox[{"{", RowBox[{ RowBox[{"-", "1.10875893598`"}], ",", RowBox[{"-", "3.5256617982`"}], ",", "0.20480850387999996`", ",", "1"}], "}"}], ",", RowBox[{"{", RowBox[{ RowBox[{"-", "3.047183175`"}], ",", "0.44584305518`", ",", RowBox[{"-", "1.3762307540199998`"}], ",", "1"}], "}"}]}], "}"}]], "Output", CellChangeTimes->{3.5718407115877495`*^9, 3.571847752359748*^9}] }, Open ]], Cell[CellGroupData[{ Cell[BoxData[{ RowBox[{ RowBox[{"p", "=", RowBox[{"v", ".", "Q"}]}], ";"}], "\[IndentingNewLine]", RowBox[{ RowBox[{"t1", "=", RowBox[{"Table", "[", RowBox[{ RowBox[{"Join", "[", RowBox[{ RowBox[{"t", "[", RowBox[{"[", "i", "]"}], "]"}], ",", RowBox[{"{", "1", "}"}]}], "]"}], ",", RowBox[{"{", RowBox[{"i", ",", "1", ",", "n"}], "}"}]}], "]"}]}], ";"}], "\[IndentingNewLine]", RowBox[{ RowBox[{"t", "=", RowBox[{"t1", ".", "Q"}]}], ";"}], "\[IndentingNewLine]", RowBox[{ RowBox[{"For", "[", RowBox[{ RowBox[{"i", "=", "1"}], ",", RowBox[{"i", "<", RowBox[{"P", "+", "1"}]}], ",", RowBox[{"i", "++"}], ",", RowBox[{ RowBox[{"p", "[", RowBox[{"[", "i", "]"}], "]"}], "=", RowBox[{"Take", "[", RowBox[{ RowBox[{"p", "[", RowBox[{"[", "i", "]"}], "]"}], ",", "3"}], "]"}]}]}], "]"}], ";"}], "\[IndentingNewLine]", "p", "\[IndentingNewLine]", RowBox[{ RowBox[{"For", "[", RowBox[{ RowBox[{"i", "=", "1"}], ",", RowBox[{"i", "<", RowBox[{"n", "+", "1"}]}], ",", RowBox[{"i", "++"}], ",", RowBox[{ RowBox[{"t", "[", RowBox[{"[", "i", "]"}], "]"}], "=", RowBox[{"Take", "[", RowBox[{ RowBox[{"t", "[", RowBox[{"[", "i", "]"}], "]"}], ",", "3"}], "]"}]}]}], "]"}], ";"}], "\[IndentingNewLine]", RowBox[{ RowBox[{"(*", RowBox[{"MatrixForm", "[", "t", "]"}], "*)"}]}]}], "Input", CellChangeTimes->{{3.568108824079547*^9, 3.568109012824279*^9}, { 3.568109558076436*^9, 3.568109588168889*^9}, {3.5681097523435774`*^9, 3.5681097637783976`*^9}, {3.5681100381828794`*^9, 3.5681101616726966`*^9}, {3.5681102015307665`*^9, 3.5681102288464146`*^9}, {3.568110263743676*^9, 3.568110267331682*^9}, { 3.5681103163469687`*^9, 3.5681103268925867`*^9}, {3.5681106443375444`*^9, 3.5681106916368275`*^9}, 3.568110873002746*^9, {3.5681109388660617`*^9, 3.5681110268970165`*^9}, {3.568111092526332*^9, 3.568111123461186*^9}, { 3.5681111884196997`*^9, 3.568111192756508*^9}, {3.5681112268113675`*^9, 3.568111366213212*^9}, {3.568111434946933*^9, 3.568111463354583*^9}, { 3.568111544396725*^9, 3.568111547625931*^9}, {3.5681116856081734`*^9, 3.5681117131422215`*^9}, {3.568111864696488*^9, 3.5681119835998964`*^9}, 3.5681120218355637`*^9, {3.56811206543764*^9, 3.568112066389242*^9}, { 3.568112332369709*^9, 3.5681123404505234`*^9}, {3.568112505935614*^9, 3.56811251481203*^9}, {3.5681125623609133`*^9, 3.568112569006525*^9}, { 3.568112648067464*^9, 3.568112734210815*^9}, {3.568112764443668*^9, 3.5681127697320776`*^9}, {3.5681128018681335`*^9, 3.568112843426607*^9}, { 3.568112884641879*^9, 3.5681128887602863`*^9}, {3.5681129663080225`*^9, 3.5681129699584293`*^9}, {3.568113133789917*^9, 3.568113227936082*^9}, { 3.5681132946885996`*^9, 3.5681133044698167`*^9}, {3.568113502200164*^9, 3.568113507348173*^9}, 3.56811354556824*^9, {3.5681222886191964`*^9, 3.5681222896019983`*^9}, {3.568207424138049*^9, 3.5682074415164795`*^9}, 3.568277923134914*^9, 3.568883508322016*^9, 3.568883588350157*^9, 3.5688836441982546`*^9, {3.5703421313965206`*^9, 3.5703421386505337`*^9}, { 3.570342288098796*^9, 3.5703424924279547`*^9}, 3.5709745658726373`*^9, 3.5709746291463485`*^9, {3.5709747534473667`*^9, 3.5709747617933817`*^9}, { 3.5709749537361183`*^9, 3.570975034747061*^9}, {3.5709751055243855`*^9, 3.5709751213584127`*^9}, {3.5709751694532976`*^9, 3.570975200060551*^9}, { 3.571073358435503*^9, 3.5710734289632273`*^9}, {3.571204792969243*^9, 3.571204820940092*^9}, {3.5712048565705547`*^9, 3.571204860002561*^9}, 3.571204896881026*^9, {3.571204943556308*^9, 3.571204987485985*^9}, 3.5712053579722357`*^9, 3.5712054148187356`*^9, 3.5712055260469313`*^9, { 3.571205631237916*^9, 3.5712056608311677`*^9}, {3.571206377683627*^9, 3.5712064172296963`*^9}, {3.571206525727887*^9, 3.571206547427525*^9}, { 3.5712066764397516`*^9, 3.5712067106974115`*^9}, {3.571206757949895*^9, 3.5712067585114956`*^9}, {3.5712073458681273`*^9, 3.571207357053347*^9}, { 3.5712075532392917`*^9, 3.5712076608170805`*^9}, {3.571208007434089*^9, 3.571208247690111*^9}, {3.571208301057805*^9, 3.5712083308850574`*^9}, { 3.571208811958702*^9, 3.571208871488407*^9}, {3.5712089993618317`*^9, 3.5712089996582317`*^9}, {3.5712091105588264`*^9, 3.571209160744115*^9}, { 3.5712092989135575`*^9, 3.5712093003643603`*^9}, {3.571209369940482*^9, 3.5712093926073227`*^9}, {3.5712094586578383`*^9, 3.5712094836958823`*^9}, {3.5712104228175316`*^9, 3.571210434267952*^9}, 3.571210475358424*^9, 3.5712108629099045`*^9, {3.571210903969177*^9, 3.5712109929361334`*^9}, {3.5712110295961976`*^9, 3.5712110392214146`*^9}, {3.571211240071767*^9, 3.5712112940946617`*^9}, { 3.571211404496056*^9, 3.5712114190976815`*^9}, {3.5712115264882703`*^9, 3.5712115363942876`*^9}, {3.571211575924757*^9, 3.5712116183724318`*^9}, { 3.5712116597281046`*^9, 3.571211695062166*^9}, {3.5712117551222715`*^9, 3.5712117807531166`*^9}, {3.571211826835598*^9, 3.5712118443232284`*^9}, { 3.571211962540236*^9, 3.5712119670174437`*^9}, 3.5712123580321307`*^9, { 3.5712123994658036`*^9, 3.571212411181424*^9}, {3.5712172605092583`*^9, 3.571217297153723*^9}, {3.571223622762637*^9, 3.57122364145147*^9}, { 3.5712237454256525`*^9, 3.571223750745262*^9}, {3.571223964808838*^9, 3.571224009097316*^9}, {3.57122674689975*^9, 3.5712267784742055`*^9}, { 3.5712269848157682`*^9, 3.57122698582977*^9}, {3.5712270624259043`*^9, 3.5712270629563055`*^9}, {3.571227212438168*^9, 3.571227212999769*^9}, { 3.571227409778515*^9, 3.5712274489969835`*^9}, {3.571227502177477*^9, 3.571227514127098*^9}, {3.57122758356282*^9, 3.5712276390521173`*^9}, 3.5712276745889797`*^9, {3.571227712746647*^9, 3.5712277584703274`*^9}, { 3.5712349496076813`*^9, 3.571234988008148*^9}, {3.5712351855668955`*^9, 3.5712353359043593`*^9}, {3.5712355859883986`*^9, 3.571235653661318*^9}, { 3.5712356890109797`*^9, 3.571235702208603*^9}, {3.5712449764989214`*^9, 3.5712449799309273`*^9}, {3.5712450401778336`*^9, 3.571245051456653*^9}, { 3.5712450868687153`*^9, 3.5712450934831266`*^9}, {3.571299135517318*^9, 3.571299166342972*^9}, {3.5713069890574045`*^9, 3.5713071726697273`*^9}, { 3.571307301791154*^9, 3.571307304536759*^9}, {3.571307397731323*^9, 3.571307405702937*^9}, {3.571311846659932*^9, 3.5713118507939396`*^9}, { 3.571317129094411*^9, 3.5713171472216425`*^9}, {3.5713172653138494`*^9, 3.5713172753602676`*^9}, {3.5713216932693615`*^9, 3.5713216983081703`*^9}, {3.5713370477995405`*^9, 3.5713370593279605`*^9}, {3.571404339740199*^9, 3.5714046172178864`*^9}, { 3.571404755449729*^9, 3.571404853246301*^9}, {3.571405069743481*^9, 3.571405208989326*^9}, {3.571405268612631*^9, 3.571405277442246*^9}, { 3.5714053796536255`*^9, 3.5714054114932814`*^9}, {3.571405595448805*^9, 3.5714056194884467`*^9}, {3.5714056687221336`*^9, 3.571405677660949*^9}, 3.5714067334520035`*^9, {3.57140676532286*^9, 3.5714067706580687`*^9}, { 3.571406950729185*^9, 3.571406989495253*^9}, {3.5714071848855963`*^9, 3.571407190579606*^9}, 3.5714072350240846`*^9, {3.571412503236558*^9, 3.5714125080413666`*^9}, {3.571412540879424*^9, 3.571412607787942*^9}, { 3.571412668378448*^9, 3.5714128101202965`*^9}, {3.5714128643147917`*^9, 3.571412873862009*^9}, {3.571412908150869*^9, 3.57141290869687*^9}, { 3.571413012374652*^9, 3.5714130213290677`*^9}, {3.571413054603926*^9, 3.5714130713583555`*^9}, {3.5714133323156137`*^9, 3.5714133752624893`*^9}, {3.5714136494641714`*^9, 3.5714136769202194`*^9}, {3.5714140550180836`*^9, 3.5714140686213074`*^9}, {3.571727178397596*^9, 3.571727294992201*^9}, { 3.571727762556222*^9, 3.5717277702158356`*^9}, 3.571761575961952*^9, { 3.5717627754636593`*^9, 3.5717629062542887`*^9}, {3.5717630000884533`*^9, 3.571763131861885*^9}, {3.5717635952762985`*^9, 3.5717636098623247`*^9}, { 3.5717636458671875`*^9, 3.5717636504691963`*^9}, {3.5717641103580036`*^9, 3.571764139015254*^9}, {3.571764227280209*^9, 3.571764231336216*^9}, { 3.571764503946695*^9, 3.57176454651917*^9}, {3.5717645924768505`*^9, 3.5717646223509026`*^9}, {3.5717656229210606`*^9, 3.571765642998296*^9}, { 3.5717662636921854`*^9, 3.571766367572768*^9}, {3.571807209478035*^9, 3.57180723495288*^9}, {3.5718074521676617`*^9, 3.5718074557556677`*^9}, { 3.571807570213069*^9, 3.571807697306492*^9}, {3.5718079241152906`*^9, 3.571807943599725*^9}, {3.5718096885407896`*^9, 3.571809697510805*^9}, 3.5718165284352036`*^9, 3.5718171395662766`*^9}], Cell[BoxData[ RowBox[{"{", RowBox[{ RowBox[{"{", RowBox[{ RowBox[{"-", "2.21827376236`"}], ",", RowBox[{"-", "1.3812007333999998`"}], ",", RowBox[{"-", "0.515409538418`"}]}], "}"}], ",", RowBox[{"{", RowBox[{"0.`", ",", "0.`", ",", "0.`"}], "}"}], ",", RowBox[{"{", RowBox[{ RowBox[{"-", "2.32413621288`"}], ",", RowBox[{"-", "4.16956703544`"}], ",", "0.05453182318199998`"}], "}"}], ",", RowBox[{"{", RowBox[{ RowBox[{"-", "4.2625604519`"}], ",", RowBox[{"-", "0.19806218205999992`"}], ",", RowBox[{"-", "1.5265074347179999`"}]}], "}"}]}], "}"}]], "Output", CellChangeTimes->{3.5718407116033497`*^9, 3.5718477523753476`*^9}] }, Open ]], Cell[BoxData[ RowBox[{"(*", " ", RowBox[{ RowBox[{ "Rotation", " ", "of", " ", "general", " ", "triangle", " ", "into", " ", "xy", " ", "plane", " ", "with", " ", "one", " ", "point"}], ",", " ", RowBox[{"O", " ", "atom"}], ",", " ", RowBox[{"at", " ", "0", "rigine", " ", "by", " ", "translation"}], ",", " ", RowBox[{ RowBox[{ RowBox[{"one", " ", "leg", " ", "on", " ", "x"}], "-", RowBox[{"axis", " ", "O"}], " ", "-", " ", RowBox[{"C", " ", "atoms"}]}], ";", " ", RowBox[{"example", ":", " ", RowBox[{ "COH", " ", "in", " ", "Vitamine", " ", "A", " ", "ES", " ", "8.3", ".2013"}]}]}]}], " ", "*)"}]], "Input", CellChangeTimes->{{3.57122682638189*^9, 3.5712268889379997`*^9}, { 3.5712269197480536`*^9, 3.571226954208514*^9}, 3.5717274377948513`*^9, { 3.5717276506728253`*^9, 3.5717276517648273`*^9}, {3.5717276823564816`*^9, 3.5717276859288874`*^9}, {3.571727797188283*^9, 3.571727800043088*^9}, { 3.5717279910186234`*^9, 3.5717280697363615`*^9}, {3.571728112667637*^9, 3.5717281224332542`*^9}, {3.571728210573409*^9, 3.571728214598216*^9}, 3.571728252256682*^9}], Cell[BoxData[ RowBox[{ RowBox[{"Clear", "[", RowBox[{"T1", ",", "U", ",", "T"}], "]"}], ";"}]], "Input", CellChangeTimes->{{3.57122682638189*^9, 3.5712268889379997`*^9}, { 3.5712269197480536`*^9, 3.571226954208514*^9}, 3.5717274377948513`*^9, { 3.5717276506728253`*^9, 3.5717276517648273`*^9}, {3.5717276823564816`*^9, 3.5717276859288874`*^9}, {3.571727797188283*^9, 3.571727800043088*^9}, { 3.5717279910186234`*^9, 3.5717280697363615`*^9}, {3.571728112667637*^9, 3.5717281224332542`*^9}, {3.571728210573409*^9, 3.571728214598216*^9}, 3.571728252256682*^9, 3.57172833649683*^9, {3.571761320043503*^9, 3.571761327515916*^9}}], Cell[BoxData[ RowBox[{"(*", " ", RowBox[{ RowBox[{ RowBox[{"rotate", " ", "p1", " ", "around", " ", "x"}], "-", RowBox[{"axis", " ", "until", " ", "the", " ", "z"}], "-", "comp"}], " ", "=", " ", "0"}], " ", "*)"}]], "Input", CellChangeTimes->{{3.57122682638189*^9, 3.5712268889379997`*^9}, { 3.5712269197480536`*^9, 3.571226954208514*^9}, 3.5717274377948513`*^9, { 3.5717276506728253`*^9, 3.5717276517648273`*^9}, {3.5717276823564816`*^9, 3.5717276859288874`*^9}, {3.571727797188283*^9, 3.571727800043088*^9}, { 3.5717279910186234`*^9, 3.5717280697363615`*^9}, {3.571728112667637*^9, 3.5717281224332542`*^9}, {3.571728210573409*^9, 3.571728214598216*^9}, 3.571728252256682*^9, 3.5717283506460547`*^9}], Cell[CellGroupData[{ Cell[BoxData[ RowBox[{"T1", "=", RowBox[{"-", RowBox[{"ArcTan", "[", RowBox[{ RowBox[{"p", "[", RowBox[{"[", RowBox[{"1", ",", "3"}], "]"}], "]"}], "/", RowBox[{"p", "[", RowBox[{"[", RowBox[{"1", ",", "2"}], "]"}], "]"}]}], "]"}]}]}]], "Input", CellChangeTimes->{{3.57122682638189*^9, 3.5712268889379997`*^9}, { 3.5712269197480536`*^9, 3.571226954208514*^9}, 3.5717274377948513`*^9, { 3.5717276506728253`*^9, 3.5717276517648273`*^9}, {3.5717276823564816`*^9, 3.5717276859288874`*^9}, {3.571727797188283*^9, 3.571727800043088*^9}, { 3.5717279910186234`*^9, 3.5717280697363615`*^9}, {3.571728112667637*^9, 3.5717281224332542`*^9}, {3.571728210573409*^9, 3.571728214598216*^9}, 3.571728252256682*^9, 3.5717283506460547`*^9, 3.5717284313605967`*^9, { 3.571728664549806*^9, 3.571728670509017*^9}}], Cell[BoxData[ RowBox[{"-", "0.35715697208794783`"}]], "Output", CellChangeTimes->{3.57184071161895*^9, 3.5718477523909473`*^9}] }, Open ]], Cell[CellGroupData[{ Cell[BoxData[{ RowBox[{ RowBox[{"U", "=", "p"}], ";", " ", RowBox[{"t1", "=", "t"}], ";"}], "\n", RowBox[{ RowBox[{"T", "=", RowBox[{"Table", "[", RowBox[{"0", ",", RowBox[{"{", "3", "}"}], ",", RowBox[{"{", "3", "}"}]}], "]"}]}], ";"}], "\[IndentingNewLine]", RowBox[{ RowBox[{ RowBox[{"T", "[", RowBox[{"[", RowBox[{"1", ",", "1"}], "]"}], "]"}], "=", "1.0"}], ";"}], "\[IndentingNewLine]", RowBox[{ RowBox[{ RowBox[{"T", "[", RowBox[{"[", RowBox[{"2", ",", "2"}], "]"}], "]"}], "=", RowBox[{ RowBox[{"T", "[", RowBox[{"[", RowBox[{"3", ",", "3"}], "]"}], "]"}], "=", RowBox[{"Cos", "[", "T1", "]"}]}]}], ";"}], "\[IndentingNewLine]", RowBox[{ RowBox[{ RowBox[{"T", "[", RowBox[{"[", RowBox[{"2", ",", "3"}], "]"}], "]"}], "=", RowBox[{"Sin", "[", "T1", "]"}]}], ";"}], "\[IndentingNewLine]", RowBox[{ RowBox[{ RowBox[{"T", "[", RowBox[{"[", RowBox[{"3", ",", "2"}], "]"}], "]"}], "=", RowBox[{"-", RowBox[{"T", "[", RowBox[{"[", RowBox[{"2", ",", "3"}], "]"}], "]"}]}]}], ";"}], "\[IndentingNewLine]", RowBox[{"MatrixForm", "[", "T", "]"}], "\n", RowBox[{"p", "=", RowBox[{"U", ".", "T"}]}], "\[IndentingNewLine]", RowBox[{ RowBox[{"t", "=", RowBox[{"t1", ".", "T"}]}], ";"}]}], "Input", CellChangeTimes->{{3.57122682638189*^9, 3.5712268889379997`*^9}, { 3.5712269197480536`*^9, 3.571226954208514*^9}, 3.5717274377948513`*^9, { 3.5717276506728253`*^9, 3.5717276517648273`*^9}, {3.5717276823564816`*^9, 3.5717276859288874`*^9}, {3.571727797188283*^9, 3.571727800043088*^9}, { 3.5717279910186234`*^9, 3.5717280697363615`*^9}, {3.571728112667637*^9, 3.5717281224332542`*^9}, {3.571728210573409*^9, 3.571728214598216*^9}, 3.571728252256682*^9, 3.5717283506460547`*^9, 3.5717284313605967`*^9, 3.571728664549806*^9, {3.571807732234954*^9, 3.5718077591294007`*^9}}], Cell[BoxData[ TagBox[ RowBox[{"(", "\[NoBreak]", GridBox[{ {"1.`", "0", "0"}, {"0", "0.9368945654721608`", RowBox[{"-", "0.3496120323855159`"}]}, {"0", "0.3496120323855159`", "0.9368945654721608`"} }, 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.5718407116345496`*^9, 3.5718477524065475`*^9}], Cell[BoxData[ RowBox[{"{", RowBox[{ RowBox[{"{", RowBox[{ RowBox[{"-", "2.21827376236`"}], ",", RowBox[{"-", "1.4742328371858202`"}], ",", "0.`"}], "}"}], ",", RowBox[{"{", RowBox[{"0.`", ",", "0.`", ",", "0.`"}], "}"}], ",", RowBox[{"{", RowBox[{ RowBox[{"-", "2.32413621288`"}], ",", RowBox[{"-", "3.8873797143432576`"}], ",", "1.5088213742123333`"}], "}"}], ",", RowBox[{"{", RowBox[{ RowBox[{"-", "4.2625604519`"}], ",", RowBox[{"-", "0.7192487487009318`"}], ",", RowBox[{"-", "1.3609315977314367`"}]}], "}"}]}], "}"}]], "Output", CellChangeTimes->{3.5718407116345496`*^9, 3.5718477524065475`*^9}] }, Open ]], Cell[BoxData[ RowBox[{"(*", " ", RowBox[{ RowBox[{"Rotate", " ", "p1", " ", "around", " ", "z"}], "-", RowBox[{"axis", " ", "to", " ", "make", " ", "y"}], "-", RowBox[{"comp", " ", "to", " ", "0"}]}], " ", "*)"}]], "Input", CellChangeTimes->{{3.57122682638189*^9, 3.5712268889379997`*^9}, { 3.5712269197480536`*^9, 3.571226954208514*^9}, 3.5717274377948513`*^9, { 3.5717276506728253`*^9, 3.5717276517648273`*^9}, {3.5717276823564816`*^9, 3.5717276859288874`*^9}, {3.571727797188283*^9, 3.571727800043088*^9}, { 3.5717279910186234`*^9, 3.5717280697363615`*^9}, {3.571728112667637*^9, 3.5717281224332542`*^9}, {3.571728210573409*^9, 3.571728214598216*^9}, 3.571728252256682*^9, {3.5717283506460547`*^9, 3.571728378039703*^9}}], Cell[CellGroupData[{ Cell[BoxData[{ RowBox[{ RowBox[{"Clear", "[", RowBox[{"T1", ",", "U", ",", "T"}], "]"}], ";"}], "\[IndentingNewLine]", RowBox[{"T1", "=", RowBox[{"ArcTan", "[", RowBox[{ RowBox[{"p", "[", RowBox[{"[", RowBox[{"1", ",", "2"}], "]"}], "]"}], "/", RowBox[{"p", "[", RowBox[{"[", RowBox[{"1", ",", "1"}], "]"}], "]"}]}], "]"}]}]}], "Input", CellChangeTimes->{{3.57122682638189*^9, 3.5712268889379997`*^9}, { 3.5712269197480536`*^9, 3.571226954208514*^9}, 3.5717274377948513`*^9, { 3.5717276506728253`*^9, 3.5717276517648273`*^9}, {3.5717276823564816`*^9, 3.5717276859288874`*^9}, {3.571727797188283*^9, 3.571727800043088*^9}, { 3.5717279910186234`*^9, 3.5717280697363615`*^9}, {3.571728112667637*^9, 3.5717281224332542`*^9}, {3.571728210573409*^9, 3.571728214598216*^9}, 3.571728252256682*^9, {3.5717283506460547`*^9, 3.571728378039703*^9}, 3.571728435791004*^9, {3.5717286390437613`*^9, 3.571728643552169*^9}}], Cell[BoxData["0.5865604927767859`"], "Output", CellChangeTimes->{3.5718407116501493`*^9, 3.5718477524221478`*^9}] }, Open ]], Cell[CellGroupData[{ Cell[BoxData[{ RowBox[{ RowBox[{"U", "=", "p"}], ";", " ", RowBox[{"t1", "=", "t"}], ";"}], "\n", RowBox[{ RowBox[{"T", "=", RowBox[{"Table", "[", RowBox[{"0", ",", RowBox[{"{", "3", "}"}], ",", RowBox[{"{", "3", "}"}]}], "]"}]}], ";"}], "\[IndentingNewLine]", RowBox[{ RowBox[{ RowBox[{"T", "[", RowBox[{"[", RowBox[{"1", ",", "1"}], "]"}], "]"}], "=", RowBox[{ RowBox[{"T", "[", RowBox[{"[", RowBox[{"2", ",", "2"}], "]"}], "]"}], "=", RowBox[{"Cos", "[", "T1", "]"}]}]}], ";"}], "\[IndentingNewLine]", RowBox[{ RowBox[{ RowBox[{"T", "[", RowBox[{"[", RowBox[{"1", ",", "2"}], "]"}], "]"}], "=", RowBox[{"-", RowBox[{"Sin", "[", "T1", "]"}]}]}], ";"}], "\[IndentingNewLine]", RowBox[{ RowBox[{ RowBox[{"T", "[", RowBox[{"[", RowBox[{"2", ",", "1"}], "]"}], "]"}], "=", RowBox[{"-", RowBox[{"T", "[", RowBox[{"[", RowBox[{"1", ",", "2"}], "]"}], "]"}]}]}], ";"}], "\[IndentingNewLine]", RowBox[{ RowBox[{ RowBox[{"T", "[", RowBox[{"[", RowBox[{"3", ",", "3"}], "]"}], "]"}], "=", "1"}], ";"}], "\[IndentingNewLine]", RowBox[{"MatrixForm", "[", "T", "]"}], "\n", RowBox[{"p", "=", RowBox[{"U", ".", "T"}]}], "\[IndentingNewLine]", RowBox[{ RowBox[{"t", "=", RowBox[{"t1", ".", "T"}]}], ";"}]}], "Input", CellChangeTimes->{{3.57122682638189*^9, 3.5712268889379997`*^9}, { 3.5712269197480536`*^9, 3.571226954208514*^9}, 3.5717274377948513`*^9, { 3.5717276506728253`*^9, 3.5717276517648273`*^9}, {3.5717276823564816`*^9, 3.5717276859288874`*^9}, {3.571727797188283*^9, 3.571727800043088*^9}, { 3.5717279910186234`*^9, 3.5717280697363615`*^9}, {3.571728112667637*^9, 3.5717281224332542`*^9}, {3.571728210573409*^9, 3.571728214598216*^9}, 3.571728252256682*^9, {3.5717283506460547`*^9, 3.571728378039703*^9}, 3.571728435791004*^9, 3.5717286390437613`*^9, {3.5718077693942184`*^9, 3.571807786039448*^9}}], Cell[BoxData[ TagBox[ RowBox[{"(", "\[NoBreak]", GridBox[{ {"0.8328493679876309`", RowBox[{"-", "0.5534997111495216`"}], "0"}, {"0.5534997111495216`", "0.8328493679876309`", "0"}, {"0", "0", "1"} }, 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.5718407116501493`*^9, 3.5718477524221478`*^9}], Cell[BoxData[ RowBox[{"{", RowBox[{ RowBox[{"{", RowBox[{ RowBox[{"-", "2.663475350554561`"}], ",", "2.220446049250313`*^-16", ",", "0.`"}], "}"}], ",", RowBox[{"{", RowBox[{"0.`", ",", "0.`", ",", "0.`"}], "}"}], ",", RowBox[{"{", RowBox[{ RowBox[{"-", "4.087318925031777`"}], ",", RowBox[{"-", "1.9511930157174961`"}], ",", "1.5088213742123333`"}], "}"}], ",", RowBox[{"{", RowBox[{ RowBox[{"-", "3.9481747530246056`"}], ",", "1.7603001131025588`", ",", RowBox[{"-", "1.3609315977314367`"}]}], "}"}]}], "}"}]], "Output", CellChangeTimes->{3.5718407116501493`*^9, 3.571847752437748*^9}] }, Open ]], Cell[BoxData[ RowBox[{"(*", " ", RowBox[{ RowBox[{ RowBox[{"rotate", " ", "p2", " ", "around", " ", "x"}], "-", RowBox[{"axis", " ", "to", " ", "make", " ", "z"}], "-", "comp"}], " ", "=", " ", "0"}], " ", "*)"}]], "Input", CellChangeTimes->{{3.57122682638189*^9, 3.5712268889379997`*^9}, { 3.5712269197480536`*^9, 3.571226954208514*^9}, 3.5717274377948513`*^9, { 3.5717276506728253`*^9, 3.5717276517648273`*^9}, {3.5717276823564816`*^9, 3.5717276859288874`*^9}, {3.571727797188283*^9, 3.571727800043088*^9}, { 3.5717279910186234`*^9, 3.5717280697363615`*^9}, {3.571728112667637*^9, 3.5717281224332542`*^9}, {3.571728210573409*^9, 3.571728214598216*^9}, 3.571728252256682*^9, {3.5717283506460547`*^9, 3.571728399520941*^9}}], Cell[CellGroupData[{ Cell[BoxData[{ RowBox[{ RowBox[{"Clear", "[", RowBox[{"T1", ",", "U", ",", "T"}], "]"}], ";"}], "\[IndentingNewLine]", RowBox[{"T1", "=", RowBox[{"-", RowBox[{"ArcTan", "[", RowBox[{ RowBox[{"p", "[", RowBox[{"[", RowBox[{"3", ",", "3"}], "]"}], "]"}], "/", RowBox[{"p", "[", RowBox[{"[", RowBox[{"3", ",", "2"}], "]"}], "]"}]}], "]"}]}]}]}], "Input", CellChangeTimes->{{3.57122682638189*^9, 3.5712268889379997`*^9}, { 3.5712269197480536`*^9, 3.571226954208514*^9}, 3.5717274377948513`*^9, { 3.5717276506728253`*^9, 3.5717276517648273`*^9}, {3.5717276823564816`*^9, 3.5717276859288874`*^9}, {3.571727797188283*^9, 3.571727800043088*^9}, { 3.5717279910186234`*^9, 3.5717280697363615`*^9}, {3.571728112667637*^9, 3.5717281224332542`*^9}, {3.571728210573409*^9, 3.571728214598216*^9}, 3.571728252256682*^9, {3.5717283506460547`*^9, 3.571728399520941*^9}, 3.5717284402682123`*^9, {3.571728618592126*^9, 3.571728625549738*^9}, { 3.5717637051628923`*^9, 3.571763708875698*^9}}], Cell[BoxData["0.6582355033940122`"], "Output", CellChangeTimes->{3.5718407116657495`*^9, 3.571847752437748*^9}] }, Open ]], Cell[CellGroupData[{ Cell[BoxData[{ RowBox[{ RowBox[{"U", "=", "p"}], ";", " ", RowBox[{"t1", "=", "t"}], ";"}], "\n", RowBox[{ RowBox[{"T", "=", RowBox[{"Table", "[", RowBox[{"0", ",", RowBox[{"{", "3", "}"}], ",", RowBox[{"{", "3", "}"}]}], "]"}]}], ";"}], "\[IndentingNewLine]", RowBox[{ RowBox[{ RowBox[{"T", "[", RowBox[{"[", RowBox[{"1", ",", "1"}], "]"}], "]"}], "=", "1.0"}], ";"}], "\[IndentingNewLine]", RowBox[{ RowBox[{ RowBox[{"T", "[", RowBox[{"[", RowBox[{"2", ",", "2"}], "]"}], "]"}], "=", RowBox[{ RowBox[{"T", "[", RowBox[{"[", RowBox[{"3", ",", "3"}], "]"}], "]"}], "=", RowBox[{"Cos", "[", "T1", "]"}]}]}], ";"}], "\[IndentingNewLine]", RowBox[{ RowBox[{ RowBox[{"T", "[", RowBox[{"[", RowBox[{"2", ",", "3"}], "]"}], "]"}], "=", RowBox[{"Sin", "[", "T1", "]"}]}], ";"}], "\[IndentingNewLine]", RowBox[{ RowBox[{ RowBox[{"T", "[", RowBox[{"[", RowBox[{"3", ",", "2"}], "]"}], "]"}], "=", RowBox[{"-", RowBox[{"T", "[", RowBox[{"[", RowBox[{"2", ",", "3"}], "]"}], "]"}]}]}], ";"}], "\[IndentingNewLine]", RowBox[{"MatrixForm", "[", "T", "]"}], "\n", RowBox[{"p", "=", RowBox[{"U", ".", "T"}]}], "\n", RowBox[{ RowBox[{"t", "=", RowBox[{"t1", ".", "T"}]}], ";"}]}], "Input", CellChangeTimes->{{3.57122682638189*^9, 3.5712268889379997`*^9}, { 3.5712269197480536`*^9, 3.571226954208514*^9}, 3.5717274377948513`*^9, { 3.5717276506728253`*^9, 3.5717276517648273`*^9}, {3.5717276823564816`*^9, 3.5717276859288874`*^9}, {3.571727797188283*^9, 3.571727800043088*^9}, { 3.5717279910186234`*^9, 3.5717280697363615`*^9}, {3.571728112667637*^9, 3.5717281224332542`*^9}, {3.571728210573409*^9, 3.571728214598216*^9}, 3.571728252256682*^9, {3.5717283506460547`*^9, 3.571728399520941*^9}, 3.5717284402682123`*^9, 3.571728618592126*^9, {3.5718077941670623`*^9, 3.5718078246807156`*^9}, {3.5718080993659983`*^9, 3.5718081006452007`*^9}, {3.571808212606597*^9, 3.571808244165453*^9}, { 3.5718091624922657`*^9, 3.571809166751073*^9}, {3.5718095319789143`*^9, 3.571809539186127*^9}}], Cell[BoxData[ TagBox[ RowBox[{"(", "\[NoBreak]", GridBox[{ {"1.`", "0", "0"}, {"0", "0.7910728437407143`", "0.6117219596319716`"}, {"0", RowBox[{"-", "0.6117219596319716`"}], "0.7910728437407143`"} }, 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.5718407116813498`*^9, 3.5718477524533477`*^9}], Cell[BoxData[ RowBox[{"{", RowBox[{ RowBox[{"{", RowBox[{ RowBox[{"-", "2.663475350554561`"}], ",", "1.7565345705532793`*^-16", ",", "1.358295608504471`*^-16"}], "}"}], ",", RowBox[{"{", RowBox[{"0.`", ",", "0.`", ",", "0.`"}], "}"}], ",", RowBox[{"{", RowBox[{ RowBox[{"-", "4.087318925031777`"}], ",", RowBox[{"-", "2.466514975398433`"}], ",", RowBox[{"-", "2.220446049250313`*^-16"}]}], "}"}], ",", RowBox[{"{", RowBox[{ RowBox[{"-", "3.9481747530246056`"}], ",", "2.2250373601984865`", ",", "0.00021820557347695946`"}], "}"}]}], "}"}]], "Output", CellChangeTimes->{3.5718407116813498`*^9, 3.5718477524533477`*^9}] }, Open ]], Cell[BoxData[{ RowBox[{ RowBox[{"x", "=", RowBox[{"Table", "[", RowBox[{ RowBox[{"t", "[", RowBox[{"[", RowBox[{"i", ",", "1"}], "]"}], "]"}], ",", RowBox[{"{", RowBox[{"i", ",", "1", ",", "n"}], "}"}]}], "]"}]}], ";"}], "\[IndentingNewLine]", RowBox[{ RowBox[{"y", "=", RowBox[{"Table", "[", RowBox[{ RowBox[{"t", "[", RowBox[{"[", RowBox[{"i", ",", "2"}], "]"}], "]"}], ",", RowBox[{"{", RowBox[{"i", ",", "1", ",", "n"}], "}"}]}], "]"}]}], ";"}], "\[IndentingNewLine]", RowBox[{ RowBox[{"z", "=", RowBox[{"Table", "[", RowBox[{ RowBox[{"t", "[", RowBox[{"[", RowBox[{"i", ",", "3"}], "]"}], "]"}], ",", RowBox[{"{", RowBox[{"i", ",", "1", ",", "n"}], "}"}]}], "]"}]}], ";"}]}], "Input", CellChangeTimes->{{3.57122682638189*^9, 3.5712268889379997`*^9}, { 3.5712269197480536`*^9, 3.571226954208514*^9}, 3.5717274377948513`*^9, { 3.5717276506728253`*^9, 3.5717276517648273`*^9}, {3.5717276823564816`*^9, 3.5717276859288874`*^9}, {3.571727797188283*^9, 3.571727800043088*^9}, { 3.5717279910186234`*^9, 3.5717280697363615`*^9}, {3.571728112667637*^9, 3.5717281224332542`*^9}, {3.571728210573409*^9, 3.571728214598216*^9}, 3.571728252256682*^9, {3.5717283506460547`*^9, 3.571728399520941*^9}, 3.5717284402682123`*^9, 3.571728618592126*^9, {3.5718077941670623`*^9, 3.5718078246807156`*^9}, {3.5718080993659983`*^9, 3.5718081006452007`*^9}, {3.571808212606597*^9, 3.571808244165453*^9}, 3.5718091624922657`*^9, 3.5718095108876777`*^9, {3.571809555768956*^9, 3.571809560589365*^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"}], "}"}]}], "]"}]}], ";"}], "\[IndentingNewLine]", RowBox[{ RowBox[{"Plot2", "=", RowBox[{"Table", "[", RowBox[{ RowBox[{"Graphics3D", "[", RowBox[{"Text", "[", RowBox[{"i", ",", RowBox[{"{", RowBox[{ RowBox[{ RowBox[{"t", "[", RowBox[{"[", RowBox[{"i", ",", "1"}], "]"}], "]"}], "-", "0.6"}], ",", RowBox[{"t", "[", RowBox[{"[", RowBox[{"i", ",", "2"}], "]"}], "]"}], ",", RowBox[{"t", "[", RowBox[{"[", RowBox[{"i", ",", "3"}], "]"}], "]"}]}], "}"}], " ", ",", RowBox[{"{", RowBox[{"1", ",", "0"}], "}"}]}], "]"}], "]"}], ",", RowBox[{"{", RowBox[{"i", ",", "1", ",", "n"}], "}"}]}], "]"}]}], ";"}]}], "Input", CellChangeTimes->{{3.57122682638189*^9, 3.5712268889379997`*^9}, { 3.5712269197480536`*^9, 3.571226954208514*^9}, 3.5717274377948513`*^9, { 3.5717276506728253`*^9, 3.5717276517648273`*^9}, {3.5717276823564816`*^9, 3.5717276859288874`*^9}, {3.571727797188283*^9, 3.571727800043088*^9}, { 3.5717279910186234`*^9, 3.5717280697363615`*^9}, {3.571728112667637*^9, 3.5717281224332542`*^9}, {3.571728210573409*^9, 3.571728214598216*^9}, 3.571728252256682*^9, {3.5717283506460547`*^9, 3.571728399520941*^9}, 3.5717284402682123`*^9, 3.571728618592126*^9, {3.5718077941670623`*^9, 3.5718078246807156`*^9}, {3.5718080993659983`*^9, 3.5718081006452007`*^9}, {3.571808212606597*^9, 3.571808244165453*^9}, 3.5718091624922657`*^9, 3.5718095108876777`*^9, 3.571809555768956*^9}], Cell[CellGroupData[{ Cell[BoxData[{ RowBox[{ RowBox[{"Plota", " ", "=", " ", RowBox[{"Table", "[", RowBox[{ RowBox[{"Graphics3D", "[", RowBox[{"{", RowBox[{ RowBox[{"Opacity", "[", "0.5", "]"}], ",", RowBox[{"Sphere", "[", RowBox[{ RowBox[{"p", "[", RowBox[{"[", "i", "]"}], "]"}], ",", RowBox[{"u2", "[", RowBox[{"[", RowBox[{"c", "[", RowBox[{"[", "i", "]"}], "]"}], "]"}], "]"}]}], "]"}]}], "}"}], "]"}], ",", RowBox[{"{", RowBox[{"i", ",", "1", ",", "P"}], "}"}]}], "]"}]}], ";"}], "\[IndentingNewLine]", RowBox[{ RowBox[{"Plotc", " ", "=", " ", RowBox[{"Table", "[", RowBox[{ RowBox[{"Graphics3D", "[", RowBox[{"{", RowBox[{"Tube", "[", RowBox[{ RowBox[{"{", RowBox[{ RowBox[{"p", "[", RowBox[{"[", "i", "]"}], "]"}], ",", RowBox[{"p", "[", RowBox[{"[", "j", "]"}], "]"}]}], "}"}], ",", "0.02"}], "]"}], "}"}], "]"}], ",", RowBox[{"{", RowBox[{"i", ",", "1", ",", RowBox[{"P", "-", "1"}]}], "}"}], ",", RowBox[{"{", RowBox[{"j", ",", RowBox[{"i", "+", "1"}], ",", "P"}], "}"}]}], "]"}]}], ";"}], "\[IndentingNewLine]", RowBox[{ RowBox[{ RowBox[{"Plotb0", "=", RowBox[{"Table", "[", RowBox[{ RowBox[{"Graphics3D", "[", RowBox[{"Text", "[", RowBox[{ RowBox[{"c", "[", RowBox[{"[", "i", "]"}], "]"}], ",", RowBox[{"p", "[", RowBox[{"[", "i", "]"}], "]"}], ",", RowBox[{"{", RowBox[{"1", ",", "0"}], "}"}]}], "]"}], "]"}], ",", RowBox[{"{", RowBox[{"i", ",", "1", ",", "P"}], "}"}]}], "]"}]}], ";"}], "\[IndentingNewLine]", RowBox[{"(*", RowBox[{ RowBox[{"Plotb1", "=", RowBox[{"Graphics3D", "[", RowBox[{"Text", "[", RowBox[{ RowBox[{"u", "[", RowBox[{"[", "c1", "]"}], "]"}], ",", RowBox[{"p", "[", RowBox[{"[", "1", "]"}], "]"}], ",", RowBox[{"{", RowBox[{"1", ",", "0"}], "}"}]}], "]"}], "]"}]}], ";", "\[IndentingNewLine]", RowBox[{"Plotb2", "=", RowBox[{"Graphics3D", "[", RowBox[{"Text", "[", RowBox[{ RowBox[{"u", "[", RowBox[{"[", "c2", "]"}], "]"}], ",", RowBox[{"{", RowBox[{"0", ",", "0", ",", "0"}], "}"}], ",", RowBox[{"{", RowBox[{"1", ",", "0"}], "}"}]}], "]"}], "]"}]}], ";"}], "*)"}]}], "\[IndentingNewLine]", RowBox[{"Show", "[", RowBox[{"Plota", ",", "Plotb0", ",", RowBox[{"(*", RowBox[{"Plotb1", ",", "Plotb2", ","}], "*)"}], "Plotc", ",", RowBox[{"{", RowBox[{ RowBox[{"Axes", "\[Rule]", "Automatic"}], ",", RowBox[{"AxesLabel", "\[Rule]", RowBox[{"{", RowBox[{"xl", ",", "yl", ",", "zl"}], "}"}]}], ",", RowBox[{"AspectRatio", "\[Rule]", "Automatic"}], ",", RowBox[{"Boxed", "\[Rule]", "False"}], ",", RowBox[{"PlotRange", "\[Rule]", "Automatic"}], ",", " ", RowBox[{"SphericalRegion", "\[Rule]", "True"}]}], "}"}]}], "]"}], "\n", RowBox[{ RowBox[{"(*", " ", RowBox[{ "now", " ", "add", " ", "O", " ", "lone", " ", "pairs", " ", "perpendicular", " ", "to", " ", "COH", " ", "plane", " ", "and", " ", "retransform", " ", "into", " ", "molecular", " ", "skeleton"}], " ", "*)"}]}]}], "Input", CellChangeTimes->{{3.57122682638189*^9, 3.5712268889379997`*^9}, { 3.5712269197480536`*^9, 3.571226954208514*^9}, 3.5717274377948513`*^9, { 3.5717276506728253`*^9, 3.5717276517648273`*^9}, {3.5717276823564816`*^9, 3.5717276859288874`*^9}, {3.571727797188283*^9, 3.571727800043088*^9}, { 3.5717279910186234`*^9, 3.5717280697363615`*^9}, {3.571728112667637*^9, 3.5717281224332542`*^9}, {3.571728210573409*^9, 3.571728214598216*^9}, 3.571728252256682*^9, {3.5717283506460547`*^9, 3.571728399520941*^9}, 3.5717285241495595`*^9, {3.57172885463614*^9, 3.5717288695653667`*^9}, { 3.5717299854197264`*^9, 3.5717300132501755`*^9}, {3.571730085447102*^9, 3.571730106335539*^9}, {3.5717632443380823`*^9, 3.5717633006385813`*^9}, { 3.5717633829599257`*^9, 3.5717634269364033`*^9}, {3.5717637493577695`*^9, 3.5717637647393966`*^9}, {3.5717638216014967`*^9, 3.5717638263439045`*^9}, {3.5717638636747704`*^9, 3.571763964248147*^9}, { 3.5717666186552095`*^9, 3.5717667028485575`*^9}, {3.5717668402223983`*^9, 3.571766846025608*^9}}], Cell[BoxData[ Graphics3DBox[{ {Opacity[0.5], SphereBox[{-2.663475350554561, 1.7565345705532793`*^-16, 1.358295608504471*^-16}, 0.2557]}, {Opacity[0.5], SphereBox[{0., 0., 0.}, 0.2557]}, {Opacity[0.5], SphereBox[{-4.087318925031777, -2.466514975398433, \ -2.220446049250313*^-16}, 0.2547]}, {Opacity[0.5], SphereBox[{-3.9481747530246056`, 2.2250373601984865`, 0.00021820557347695946`}, 0.2557]}, Text3DBox["12", {-2.663475350554561, 1.7565345705532793`*^-16, 1.358295608504471*^-16}, {1, 0}], Text3DBox["11", {0., 0., 0.}, {1, 0}], Text3DBox[ "13", {-4.087318925031777, -2.466514975398433, -2.220446049250313*^-16}, { 1, 0}], Text3DBox["14", {-3.9481747530246056`, 2.2250373601984865`, 0.00021820557347695946`}, {1, 0}], TubeBox[{{-2.663475350554561, 1.7565345705532793`*^-16, 1.358295608504471*^-16}, {0., 0., 0.}}, 0.02], TubeBox[{{-2.663475350554561, 1.7565345705532793`*^-16, 1.358295608504471*^-16}, {-4.087318925031777, -2.466514975398433, \ -2.220446049250313*^-16}}, 0.02], TubeBox[{{-2.663475350554561, 1.7565345705532793`*^-16, 1.358295608504471*^-16}, {-3.9481747530246056`, 2.2250373601984865`, 0.00021820557347695946`}}, 0.02], TubeBox[{{0., 0., 0.}, {-4.087318925031777, -2.466514975398433, -2.220446049250313*^-16}}, 0.02], TubeBox[{{0., 0., 0.}, {-3.9481747530246056`, 2.2250373601984865`, 0.00021820557347695946`}}, 0.02], TubeBox[{{-4.087318925031777, -2.466514975398433, \ -2.220446049250313*^-16}, {-3.9481747530246056`, 2.2250373601984865`, 0.00021820557347695946`}}, 0.02]}, AspectRatio->Automatic, Axes->Automatic, AxesLabel->{ FormBox["xl", TraditionalForm], FormBox["yl", TraditionalForm], FormBox["zl", TraditionalForm]}, Boxed->False, PlotRange->Automatic, SphericalRegion->True]], "Output", CellChangeTimes->{3.5718407117125497`*^9, 3.5718477524845476`*^9},ImageCache->GraphicsData["CompressedBitmap", "\<\ eJztfXd8G8eZ9nOWbMtOd0lyKXdOcrma5C6X5O5SL93JXRzbiSW32I4jyVax ZbnLttxjW64qlmRS7BR7JwF2ACRAEiwASBAEQYAFYO+9kyCx3zs7s+ASBhnf 9893v98X/jwCdrH7TnvmeZ93ZnZ9w72PHdj/4L2PHdx773XXP3Lv0QMH9z56 3c8feoRO7fgL4C8OULrhOrDvEqD8I9F/0kH2Dzvz5+//v393sY9LGDRO8ROt 8sdOcLRI/CRw8v/trxvFvEY+sQPLy8uYmJiQj57iF43IH5fJPxmNRuzZswfX X3+9/NnU1CSuGpQ/rgxe9frrr8tXFRUVYX5+Xv51ZmYGe/fuZcfH+F39KtvJ ycmyzWPHjqGnp4ddtVOUiv0UEREhHz3J7+yRPy5/X6lYfi+++KKc5+XidlFS +egJfrt3i0qJ4l4i7mQ/iRLTxfwcq4WSg7DWKX9cGrYaym3su9IDl4WYZ0eP c1OeMAVjf8ws5XiVqkVYWdnRY6rOxBVbVWlTXa5S1YVdx84JM05Rl5GREbkT jxw5EqzLzjC5q00p5h/lppq3b+TLQgrBuujqMDk8wq01btPjSsZXqEwqqFMK yCrE/lg2wmQa+9jBTn4hpNaKYVbrS1RlUnrrs6JqzFgY6D3M7aeLO9Wj7/Nb NAqzRHdeKm6xWCzBWz4jbnG73ZtgJHpUZJbAPuSRvjNMtp8Jk60KV/8Ypt0f 2roSn1JhLbTJQrGmmFZjbRvT127fPjtUBdXpdPKRkgNrHyXXI1vncNX2sPxm mKZ4UIUXmS8/EQJGdQMoWP63MPgWhg4EDWGHwsniiP5+qeLSMKwYyqXqfJTq P8CtHgypPvu7JEyT/Gz7JlFAqXgGlpRc1Rx2mGdySAwmdQ5K7j/dAoesfpTT j4VV1p4KZX8kCOzb/2e1+qH8766w7ch+Ycdms/nHqvZTAPrRMFnc/r6+u3RT 3ynf/3P7xtyhyi42NlY++nFIYwb9zZbj+Tae3ZEwP31n+/x/FQbfodVl6Vae w4PB6n5HYD7UM7B+Ugp9QxjMb2M8ZfvBHs4Nq3NQzl0pn3ufyhEddnH79rgs THsobcRuYVVlGX0o2BB3qAg3xGcw/mdK5UphQOlgln4RwhnqcihtdR83/XSw 769TMW2YFlLjGL8VzcAMhhEzanzv5/k8EwbmWzkoYW2nypripG4P00/7uMHH tkXxX6ryUpqR/bFPMrIvTNdwpsGzYax9UjXeQ9tqYGBAaeR9Ie0h43drq1d/ 8OGslFGdg9Ief1D17PuhGuqTQhzqEVVDKGR7r6oL3+eT1HTH6qcI1qPCkFoS /54benP7eioo6uzslK2yo4dU9VRyENZObG/tWBjE3MPvfFV1p7oa4rJnVE2h tPfd/M6X5Y8rt1TA7FdVhk+HwYGw9ML2pVf8oVqMqa0pNbqLW3suhCgYcbI/ p9Mpars5xPmdenBuPfTVOb2iIiz2x64RZo59sPGs7omXxC2sfmHU7Z3c8BMh 1VIGLrtrl7Can58fRMuLwiordxgZK6z+mn3II/CLH2w4K5pf6WGWXlG1qgIS 4Q1uDjPEP/fBh7hCeafCkKrI4RdByrs0TF5bUZ7I60IYGAlff2NwpH9mC0+i RCPMGUSHaQLhdW8KU6ytZPcWPoQpwagw4+fWrRv5E9tTXFIYLtkTComrtqA4 BjOltVJCAM2OdnNDv/9glVSDNiVMM97Crd21vTVFV6hxmRwGNcLanVvQnujP /DC44P5ewGN72lP1UX6YGv2GW9r9wWiPGVNqlBcGBMLab4W1UL0oil8q6EOd mVKzm9VAfX/N1OJH1fXFKoJhmYVEo8LoDR+skmpIlauaTPGaN3Jr/xAG6X8d QoxqYXiFyrxShbIwqNjG/Of+hF+QgUYlPX36NMzifnVo/Gtu+gtBmrok+C3c LMGf8Hs1YeDEmxh/F1J49vfpMPSnzCbS7fYwcBLW/j5If59UNYAyVEIdo3Kz 2qDSAL8KNfgnJJ5a8ioNrNhVs8x/b91nH92C/FhOdNwhblHLsv/i1v4jTGXV kwHqyraHAdJng7X8Kjf4rf95ZdtDKsvOfy5MLflEDP51ixxEZQfCIIbPp22W xQrp/y23+i/bNEQIxYl55c0w2miIHWGK/mWeyVf/543Tq+IxpVxKI33mg+T5 j9s0F+U7tgWriXnPvwzTcgg/H/JlFe6pIcPN8KobkqmIqTDA/GSwUpcEv2Fj Got9ii778hY1EwNV3ZpKhpOqc4oM+PzWdfni9m3HZejlsrXMi2not3owTGmU 0gSlxYFxjIYB9wZWOIcFw/Bw88NKm7Hisnifs+RH4KIM6gvMqIjQoI5SE6XW SA06LmjQHa1Bf5wGQ/EajCRosOjwYHV4HENhxsZPeBHCxeXsLzMzc4Obr90k N1hyUikyKWdNhBaGiELURhRTSUrgiipFV0wpehNKMZRcirG0YkxlFmEmW4vZ HC3mcqhUJjP8o+MYCOko1n+iVIp0ZqfUf6yBSCtzd3c1DNQOaVSC/IgilEeU oyaiArZII1qjq9CZUI3elGoMZ1RhIqcK0wVGzGsrsFSkw0pJKaUiShosF1Gq NW8qjdJhlwc77Nuby8U6RP0nbtglkDxCAGDlyqQyFUUYURlRg4bIejjiLGhP sqE7vRFDOY0Y19gwU2zDQpkFy/p6+CvMWDdWIWCqoFSGgLEQfgO1WKkG/vHx flU3KlHdpeEHKud3HjBtyRQbo23HRlzx/sqxRidEKpVLo+5OjzAgN8JMjW5F TVQTGuMccKU44c1yoT+/DaNFbZgud2He0IoVkxP+agcCtTTQ662QGuooVVMy QKorwXq1BvN6jdL+ak7YuW3lLg//6xY3hZsoukTUmPGU8scalg0E6k6ewafR WG2jWldQd9YT4O2oiGxFfZwbzakd8GR3oUfjxVCJDxN6H2ZNPizVdMFf34l1 K7m4Rjckeyuk5mZIDht91tKxEZKtFP46LVa6PWq3opDT9jXH5un9jX7cEF4h AmnH5q7eGfxGv6hV/eWC2kpSS6nKDciKcKA40gNjXBcGHFMYcc2IdcYPITC3 BGl4GpKP+KWtC5LbA8lDVfVQ77nrIbWaqLqlWKjViBXjKzBBI8NH3NFHaUhQ 5jilKZsHM5SWB8eDC6xqEbTj/x4Jl4We3uzM3r+gwNhYaRv2XTmvlCvx9XSk nbMhO6JdXLdzU3dAKRCNmElydUPUwb42SF5CQGcDNU0l/PYiTPUN8qXMj8l8 UUlcVkCMWk6pirjDQslByR2phTdai75YLYYStRhN0mA8hTjL6YF/ZDw4G6Dm 9kv+dGttj5RwAFO6gIl+hRZooF4pWjHp9XzoU22bGjrcTMVlyr+z5JT7aXD0 Uit467Du1qHX2sgH/lVykzB6T6fmyKVmKCHWMZKTqYsohT2yHG3ROnTF6dF3 UYfhVB0mMsswk1OKubwiLORrKRFtVpuVQjP3xlwa+yMu2xFK7Nsi6NLQ0xvs GaJQPiYqN+gdQPJr1BmDVJ+FceUa3h6fky+PejgTlnuiUfe7SFTfcR6Vt51F +e7TKPrtO8i96U0k/fo1jGbXYaqgHHPlWsxoUtB+IRV9SRXkXcvRHUeeNroI HYQPDzWSi5KDUiOlBko1lPSU3Ba3Uc72s7LTTqNTLGWSy9RElEFHTF5DLsp2 oRrOaDM6EszoSanFUGYtxvPMlG0NFoqqsFxaidVyHfzlxfCXaTBbbdwkjVhY qF6y+X4o1nYGv4W0mdyOHxcNN+AdhD2Pgvge4o/BFkjzE8E7eIP/QL7y/IVJ VNokVFsl1FGyWCTY6imAqpPgMJM+qZHgMq2jwzyH8ToHxipr4CtxobN4Dl7t DLz5k/DlEBdljsCXNoTupH74Enrgi/HCF9kB3zk3vKdb0fV2Mzpft6Ljj7Vo f94I9zMEvScK4Xw4F44HMmC/Pxm2P8TDcnc0aqknq24/j4pb30XZ7lMo/M3b yL7pDcTfQD2psWMkz4bh7HoMZpDaSDVRTxrQQz3piy1BVxTvSTdTc6InbZTq ZTbQoCxCEyu80UYvaimVEQ1VksioJpFRh7pIC+wxNrRdbII33Y7+nGY56+li O+bLm7BssGHN2IBAlRmBahOlclSeeQ2a2Cgl9FPvS1D45Hu8w+Re2PWBmXXz uFeGxpKjmGiwClI3cUWfk1+zvLhDOBX1LWfz11DQTh3ZF8BgdwBrjmGsZ5Zg 4WIOpjO1IpvdMJR1o7LUiLJ6F0z9EsyDEhqGJDSOSGgeJTBQahuT4KHUQclL qZtSD6U+SgP0+yCl85UBJNRKSG+QkEegKiSAlTVK0NOnkVKNbQNsjWqwVXOw uSv9aDesoKN8CZ2lC+gqYmCbhjePwJY9Bl/GCLpTB+FL6oMvnsAWTWCL6ID3 LIHtlBNdb9nRecKCjpdr4Hm+Eu6ny+B6XAvn0Rw4Dqej6b4kAlscGu6OgvnO CJhuPwfDrWdQestJaH7zFjJufB3mF7MwWkBgy7ViOIvAll6D/hQj8aQePfFl BPASdEYVop0Q1EbJSamZklWEE0ZKxZT4wsOnhJRlaCuipEcGIS2PdFBpRCNM F5rREOuEI8mF9gw3uvPIqRdSDFTqwazBgyVTG/w1LqzX0UC22CFZSf3ZzPTd gHWzNuge1JLvuxxDoWqNg24TjWyEiVcJbzvfoCXRUQ6pvQZSl43f7CVRMjgI aXHpEoFDNcQGZiU0EVxa2iZhLahEoUPCmG8N67Ze+BNz0PFCHHRHY2HTajE1 Migitt1oJbgUdkrQ9Ugy5GrJhmWYbBHkHPRb69gG5DpVkOsNgVyESUIiQS5D QK6IQY6SgZKJkplSPcHN0sAh10zXthDkWqsDG5DTC8iVCMhpGOQmBOSG0Z1C kLvYRx6jG76oLoJcO0GuDd6TBLk3m9D5WgM6XqqG57kKtD1VCtdjBIuHstF8 KA1N+y/Cem8s6u+6gBqCnPG2c9DvOYMSglz+zW8h7cYTqH6BIJffJENuKKuO IFdNkKtEb6IO3QQ5b0wxOi9sQK6Fkp2ShZKZEotk2y1uMcv/aehyKwXcKijV kga1kTJyQBfpQnWMB9akTjgzveivHsJM+xTmu6ax5JvGas8U/K4hkt1eBJo6 SXtS17eQ8nQStFoo6GjWY6jBqp4fUOS2QN2lIbSm/G0fWYRju0+Ic3PNZqzZ Cil//YZgcDsouTaUFfN+Q9MIzC4F7+8aJ2wRvtaGe7CkSUBlxRQq9BMwuSVM eVcQqOvEcHw8ht5NwGKL+8cCli6CVlEXMRbBskrA0hoCSzel9nCwHOWwHKJ0 oUpCErFbJkEvX8CynFIFgyUdm60cllY1LGsUWK7BU7FKsFwmWC4SLOcJlrME yyl4cwmWWaPwpQ/DlzKA7sRecn8+gmUnfO8RLN91oetkCzrfaETHq/Vof7EK nuN6tB0rQeujBWg5koXmg6lo3JcIy+9jUEewrL7jPVk86fYI8XQzE08nMKYl 35ffiOEci6xmBtKq0J9cwWFJ4skbXYyOCxviqUVMpoSIJyg7t7i/Nai6bQe0 NJRshYMb53Yp6naMhH87xUQdJPw7SOF6ajFidyiMpw5tvqNyriGMt0FxlwW/ 7Qx+4xj7PFYnx7FUpUHAQt66UU/hJXnXZtJPzY30nbDW6ELA6sZafTuWzZ2Y N3VhUu/FcKkXhqwB2d2tTExgOicRlZFOFFKIm5DYhmKdF9rSVsx1LkIyuTD3 dgzWqeCzFNLyfQe3yBxX7CW+6iUtNkDuUQDOToBrISC5QgDnUwGuXwCuvNmP aHKhyQS4LAJVAYGsWAW4Kkq1BLgGAbimOhXgqgJoM6oAVyYAV0iAK5iCL3ec A45pvOQB0ngCcBc64T3vgfcMAe4dB2k8GzpfqUP7Cya4j+vQ9mQRWh/OQ8sD mbAfSEHj3gRZrcsaj6l1WeOdRiEBjmm8BFLrY5pmrvFyGjAUTuNFv1/jNW7W eMpmi+GeAcIaC8HZBJddBkNlQT/GBxbD0s0VgpmkaYJdjwfzDgtakpPCbUL6 tgpu4eQ493B/jXmLGatGQlUNOdW6Mkj1lZTIsdYRssw2rFfbsWpyYMHQgpny VowVtWIgv5VauxXulBaUWuawOD2PybJ8aF7MoUCuQmZ1JihKneswMGHnk7DY Pgup3Ibxl85RgKHHBA05vlPgJuS4AiilayoEuupJ1NnCoIuJui6Brh4VupiH 1TslxBBSUoimsglBGkJSCSFKR0mOIFTosgl0OWp5BNFatU7o8nN06Ti6uooJ XVtFEPFbRBAnWARhDkYQLlUE0SQiCFnUiQjCQOgqpQhCSxFEJqErd+8ZxDyU hJijWkQfKZf7aiCViToDF3WELvanFnVTFreyXYLkNbwGM1qyMhG6PZp5PwGJ XWGAxdFwLRbrzVgp12CtghBRWUSpHOuVFfAbqrCiM2OxrB6zRQ2Y0BDZ5ljR m041TiIQxjbAElmHRN00pmZWUP7aWaS8liCH9jsF2E3d1PrksLwk8Vdckwho q9H71EksakvELruvIs9DuoiQUNlHMlxBwshmJHjCIKFPhQRDq4Q40k6phIQc 6nEt9XypbUPeK7FkQ2gsSdz07tNmnD3mQG3ujNw+TN53Fm3EkuyPyXufkPdr La5gexoKeqGJs6IlPzc4h6SeZVZPy8jE/iX5xDVYGx/HgpZPUa8Ua+mzCEuF pZjX6DCTX4GJnEqMZBAMkk3oSjDBFWUkQqkgUaWnuL4Ux1+rQ9TJAujfjSIN 3KHM7dmo7VqoDfupvf0tI1jPLqOQKhczFFJVyNd8FC0mG9Je12CktSvIDuXU T0ee0eCVF+w4FzEln0uh9kmmEZZFumR+TVKmUQwFfTTYWyjVoy5bsysMD/07 t/s1+eNqrLR5MJOlkROL7SYztBhLLcJQUjH64hl5lqAtsoSEI5sDKoKBvLGW YJ7BFiEK3GgbDZCTJZE33ivY8HI57suj+G2kmwR9Yx/8SXmYjkrHcLIGfI/3 RzDs60faqxoKRx3IPZ0tV+qPN2hx4ZE+JMf6kVzBK/9sZADaFgkTK4HgFJbb OkW01k61dFKyUjJCl5K/K2SIsdBG1JavNn5YXpRZIHk6GKtBf7QG3Rc05Bq4 DmkSkRiTxWyhx2X1KPN5PdMkvWikBPrcGI+PvlLEPW00CDomCOAuCZM+Eof1 XVi+kIqhs4lYanGXiLtbiFkLCBZP/+wUTtykUzRMIoUgLY4plJk8QV1T1rUx HbpDeJiZ4SX0NE2hNLITuRFuqq1D1Lpa9lVOa/umJyUUbc23dIv9yzvhocLm EWL8o0PwlyV9WNSha1KSq9fQIWG2i4RwVRvmTsZi3WTEXKO7QGgdVofCCB2O fucM3txdjdjnx5AQP4xYUwAORx96W0j309hrSTfgt9/T4pl316hZlrBCscGi d5q0zDSmPVNw5/jQnNaF+oQOVEa5KeR1IoccbXpEA1WmilK5LPjYZIuy61Yt 2vhyt9gLTk3bxR3T8tQ0RbkFHxWV6pshFdMaQIuX+bk5SPomTLx8Hqs62c9l CVfLKlUSUYnHfvAeTt5hRfyrU0jNCUDXwlX7IBNw9cVkmVywrRYtKeXY85Ma vHKRTNtHsFDpxrTOg7ESD/o1JGqy3XCltqEpoRW1US00VuzUaFYKpGpljLJZ I65mNcFNzsr6H/sjwIr6/Vj8Wk71m5smGeipwXyr+2OifgY6XUN16/AFsNw2 hUBRDXqfPkXMTfLa4k4RlzmpfmWkZI79KBZn7mlBwltzSNWwpiGSHZV2CgpY azIjUFWIltOxuONGF07RJYO1bVjS2zBX2oTJQjuG8+3ozbKjI6UJzvhGWKOs qCaSKY9gs+cm6j89VauYgMwqt0NWGwqQL1eGrdsdXPNQdvwFn9AQK5A7kUwe YXR6FSuVuVjr8SjKrJ6iKjs5oV5Gns5RrOfosJCcR7xVKLZu75IXRk/vT8Lx nyXh7D43Lr67gJQSkh00Pm2jgiSvYit6KDz0R2QeSkVWajuGq21YKqnEfGEV pgpqMJpDGjLdTP7EDHdcDZovVJNWNMFIFF9CYyA3ooR1Y7iqflhAVr1B5xu8 fj8V9Tub64d3IoBAswHScNfVon4OGp4eEvHD3etYb+qHPzkfM9EZGEnWiq15 u5BN+b17fzpe+GUm3jvchaTIZSTrSC5RuwwtSFeK/jy+vwAHHpxGTZoZ4zka zOdrMZtbhKnsUoyll2EwuRzdCTp0ROvgjCyHjWBZQ3XSyVPTWrkZWdWYVlDi abUH4RtCxFMmO4NTOVJXE6YMFdco4KNTHiLHUuKcCd8qAg1eLEelYfjcRbgT NOfEZbmU6bkDucT9Gs79cX4kEfc7yVEOLkgfEi6ZDdVnD9bg4WcXUdrBG5ut wszqqY7kVkYuajAQp0VPjBadFFy6qB5NlGopVYipNdZ8jFeow0KfmGOuQlTr 56JaykzA+qAXc5lxym70DjrtmyJ3QMJohvgyUO3G3Kk4rFeZMNfkfkeQtsL5 EYc1xPnliDo2hJSkNZn0naQD+ufFkzDCP/zmu3l46qQfFX3SpSKnWZsH05Qm qchjYqfDAKUeSl1Wz6fCKJqv8ypcrximMZNBgmp1fIwCyLRPC8OM7geIIe3E Igsd85AMdkz88T34dQbGjidUVSgkOn7oO6eJ8qtkyk9JX4feLslo7ZkLiMll VgUvdv/IiJfjA6gaXPnbMMzNXbB4GmoHagizi9Oz8kLlZ0TByqlNjdTkHqK1 JTfRWnEt+p45JWuvbov7JXEZK1gxjcVHv38e79xhkWk7JZfTdvOodJUoUxox ++3/7cA7eaREFqW/FxmrJz3/mZfpv8Qd+cQTU9PLmM1LxnK7+7NiaNZQFGSj 1E3FWnVSU+bqsZiSj9nsQvGIgUK1NXjyRzE4fY+DU62WtDNRbdOodI3I4fi+ eNx9Zy/eM0gYW5b+IQSGrA9Fmf5b3HHBSJ01tYa12kIE+ts/L8rURE7PxYYI 0cWafQBrKQVEF5kYTdGKZ2o5HZ7afxHP/Owi0WFbkA6LyTNaR6VPKmXan4X7 Dk0irs5PKkv6p5C+Y2XiYlHstCOVWbvMdZ+rGtJo918p/eJbk+MBrZ3N5a5i 3eLDSkw6Rs4loT1B87C4LIux2H3peP6XGZtZrF9msU+L/I8fqMRDxxZQQvHq 18KwkNj/doNKotVSJwV6WrFgNl4nMmNRKpM4xjbq2q5liqopSD8dT1F0FRuu h4MsVEgslIOXf1WAyId7ZQWaVCnJJDawICm7suSR+u0sHHtzlcXG/xyGRUSx fi3ucFM/5RMDro30Y1mboGyCZwzSRyW2EdrnOhYgVTgw+WoE/HoDjXf3PtUQ zCdmjjikwWs3lRGLDMosksCko2CRzwbL1ond/1mOF6PXUTUU+LooG1tIV7rx K7xsNyp3dAbQyMQTWyyvy/4bUbZ+4nM9hRUuEhhLbtJVJXXoP34aS0Vl6LW4 71aVTSvo4Y3dJsQ8P4qUjA166J4NiE1OrGz9uO0XjXgrm4bigsSp4NJNDySw dUxWTlHGm8WdOlkAUQO5jJhsdH9ZwN/oo1CUwiIvDcmV1nGs51VgMbUAszlF Yt++QhMGPPL9c3jn9gbEvTqpponrgkMyDnfd6sV5nTwkvy7EinpPIEuif/no EHuiuVgZm17BUlkm/F7334niWdjKRj+P9NaaB7GWRh44ho/O36oYo5Qk/BM/ jMbpu5uJMWY3GGNM+mKweKnYd98YYmsDGF+R1E+HKkJf7NNUnhczUt/5JkhF 2MpY9PkPUAVlDQGM+vw0MruxEkvlOZ9MAaxGDKJdclCni6zH0z9NxNm9bUgU jFHolBnjb5SheX85Hnx8HsVuZVprM13wLMVWeC4Q7IRWqd0CaaLvH0VmrcM8 etJThSfZ1Lq5HfPvJtLQrMZ8k/t6FV2cuS8Nz/0iHecPdSIpYhNdfFk1NG/+ jzQ88doKDD3Sd8MwBvcAYls8d/B65uD7Oyioi/mKyK9zggdE9cQ7s2wGtrIF U69Fwm+Qh+aPxGU5xBhnD2QTY+QRY/TIuuXiBmP8XbBY7bjlB8V4PnKNjcrv hWEMUaw9yh3kGDPqyNOMjZBHTvqayK+XHPYQJRbxLHpmIJU2YODZd7FcXIZ+ i/u74rJ80uDvHSogtigNskU8Ywtq7L554XBYsXpx68/r8UaGPCB/EEZLiK2S t6n99RTla9MKV3459CTEqkUYIo/C/EospmkwR6PwW6pRqCWBeeTbp/DGLcYN mmiWaeIrQZjH4M5b2nG2VB6FP1R1nyIgxC7U21XOenqaAtb2WhYafV2UqbZP xAlUJn/zENbSizAbm4WxVK1Yr7wCHaSguimx/aMdJHLZCkQffU43ejDbyDdD XaMqfzEFN5xF6kNZ5GvB8ifhD3uHEWOWh6nyBLBabIg9rncojp3AMjjlx6op n8U53xDlb1biAHkxtAcrcdkYey8FvkSNiC42b1vSyasmWhLxWrRGFqIjqhA9 sVoMxGsxkqSVtyxNUp/MV5hlwayEyJx+qvD4D6OIfuwy/aQQ/ZRy+vkXZajv L8LhR2ZRRK390zDcIyp1p6jUCDkkNymDgIMi5hHvN5VGpLHqoeFW4qBYQF5F 68DC2YtYr6Gw1i7mSz+xad9RKcUFVSSgLeRiWi7o0R6rR0+iHoMpeoxl6DCd U4a5/BIsaoqwpNHSpwZLNWYoczMylUXU4SmZylxIPENURuBqJY1gGRE0z2nj 2cP1eOzlJei7pZ+HYTPOeuL5O5XQ8DZTuFP5byK/dhEX1LC4gNGG0YmpExfg r6jAlNXNJ3OuUS3ra6mIxTQ0dDCQUK0jT2CPZvFmLXzJdRjIqMNYbi2mNWYs FNdgucxEbFCBNX05pUL6rsGKxXzZJpJMJZJM4ySp0lQURX1DVVs2O/Ps+TWY BnltL5GnIHYEN6OzK/lEqHgkSiVihnowlxXH500/j24ljiASXfCQlC+zYPA5 oqSSMgxQTnyXMNu0qqPYy0RdWgtTZAOsUY1wJtjRmdqMvmwHRgocmCpuxny5 HcsVTfCbrBRWsdWOGki1BCRzKYVXWiw3msUiDKNfLdFvFl4KT7/fClbYhz0/ qcaJlACG56XrhfBg+05Dn9UWdb5bubN9nYujiQkEqtL5YuEXUOZcRyV5Bo83 gGUX/VRgQs/JBCQevUD9aSb+tRLs7DBHO9GU2Ia2dDd8ue0YLCQnU9aB2Yp2 LFV54De7sd7QCsnK1gmJIJoaKFURvZYj++lTeO9gPl69sYRzePIa4owBhcPF nCYLcEy44yYXzhRJGF2SfiGUi1q1qAidCwrx0NwOWVjNT9GVDh0Ur1TVI8Ha w5ZipoLbEQuPaoLL8XyW8mMbC/+901jrn0ZgkGK1Zi+klg6MlFfDk5iLokfP ofr5FMQ8t4nvxaorI8xE/P6eAURVSYwwlfcAqLdY87e4iCejdyJJaK3Z/FQW nXGPdyV0aSXyboWTbzXLxSuO70dXXg9W43Pk4+5EzcYeAi5bi4jPX/lVHHKe akZTvAOOolZ01Taiw+nEULVe7EpgkVEeDj40TfKHyri0fGMYUucqUizL7pTD jG7SXmv1xSxa45X9FFLeSEbaOTbD6Qmu8rBISdNIVfKuyucWSIsFzGY0xGhQ Qj37+A8v4NTdTZyYCzkxN9I90swkpD4XpG4r7ElJQoAJJjtUjUeeX0S5V1Ke 2VSTtSjsXpUuax6iMK7NDGmsRzGUciIDhos09FYWNlYpr6CAj0dS7G+6awmW mG6ZVJMFqdYPB4K7h9it3opqNGemiVUWwT3fzcUzZ/wwDkq/DWFajl1JrI3y 51fFk/cqqdbbhoVak2Iy5ZVsjFho4Ay0sZvUW/I1+kWkk4vun55Xln7YcpA+ tQ7NuRnBIdRi6cKeH1fg1aQA2ib8u8OoRmXhTr0/QBRvv0qyZdauY3V0iIK8 xH8Xrrz8XDakDmpbL3+YQt6QvLi4scNAlDUtahLJNDxW5wcvFQTVbp0kOvGI uf56NOani/l8VuYB3P6rZpzSysN+T4ik3NhNvnlFkQsa3C9+MlOZlyYpuqvP FZYvx/pQO41hXXC8S24ngcMDqbVLjP2PYn1gBmkxU0ghV746x7fQj1OUOOyc RmvpIAxRHeTUXFT6ZnkjO9tM5LR2KITMJkDu+V0vIo3ysL9NVfhND3+EFJ7P kvKXtQjtN8OmxdtMLCr8phhm/Y1tWGsoJCLVQ2omBDdTwGG3E8E6EbDSb3Ue LFV3IPE5L9IIHOPWJvjyOtGW0Y6mi24ibReRt4NIvJGcVp08g6QsnX8zyAkZ OHB4kq9JLa/d8QEQo6rAQUX8VTDxt4olXQ6LG7nxa7Fg0BAHsHX/cuoYE33W kvezUEjUiBWjHQt6B+KPdyKdCGm0tg6d6S1wJjbDGt0EE3meEip0trwsZBA7 uTTBbTTHD1Tg6DML8hLT78KEIVvs9BdQP6QSeB4SeOtsv8tQxzdEwf0T4xQD K8vUxViv1GHNUIkVXTUWS2sxU1iHuKfcyKSOGzZWwp1Qj+aoOpI9NSR/TIQY AyGmNLg6wlr8X1XE8ZvvZOKpd1Zh7JfUT1arN0ILktvYscznt8RbjEi3kTir Y7qt08aiUF7yj8uLAewxpKVCtt6rpc9izGtKMZOnw3iWAVlPmpFNrO5NK4Az 0gAriZkqimdKI0rYrFG4RYB/CRa8A7t/WI4/xq/DNRm4U4wytfgIfY8Fn8wR 73viwquACa+BLownxH5T6P8VlwczmRpMZzBtr8VYCntEoRBFR/Ohfa0IDhIk jSS8zNSaekoFYr2WTX5vSME+3PZLG97JJygtSn8Ig2M+6yVeckV3eNblaceV 8TGSoCl8RH8IK0PjpOE9mGuioCqSxPvhXOS8ooHlrWjUsh2HpAI72RS2ehDt i8Xdt3sRUSGzwN4QOLJWEZkr7yThcmWOhnKR8Cg7kJayjHzSYkuDtiChH9+X gvsOjKGgWV4y3i8uVa/H8AlG8e4UkhVWKsPUMqTOehZHKhMsaakr0FB8u9hX H3w51vH7S3HkyXl5AeJAmAbjU/J4WCUGeibWsEradb3H8y3FcvoqtGzer6sy 2CCy837AhmNvrLCtFgdDGoSNT2H8kVDn7TRtRFpkPGNV3oi4NNah6mqPPAfx UjTDoXQ4DOeKsfJoqL/tdmKyovIbivEsv7zpjB1tjM4e3PrzOj61tyg9GMat Cwp5TLmDBmGmeQ3+4T7MZ8f/q2I8e03ec8SOlOiMrQj/bnc7zuvlWQEFDOrX iQm39oTarU1MUvyQCWUKNC13HWXdm8fm8X0XsW//MPKbZJwcDWlw1ibC8pPi J9nnTC1QgxugRMdpeQF5JzI7UiaDj+/X4IHHZuV564eFO1c/1q40ufAIxxSP YJAwNLmKWU0GU7fKjHdaAd/jx46+qgbL4To8/uoSWy96RGSi5hOWIesCkclT CnsvcPZeayhl8vSrSiYaiRmSj76iyuSW72vkiavWCekJVQMpmfDplOA7kBSC lTz1TE5+RTFOMqWynxv/p6BxL279aRXeyJSnn97ihp4Rv7YRyWjIva71t2Oh rkpZkEijMMc0oH40nRkawp03t+JcmQyQt7mh48qvbWuwM8YaHSFuv6i8WDCt WELVIDekTIgd35eAP9w7gJiaFbYIwpfxxKt+OPssTM5AasgPvg8grURC9WBA PlLWlo7vz8bhh6fliVHxqtjnRQYXiWYmppbklfyJRrfyMoU0Krh5iFtRzj17 yITHXlpk05g4za28oFCKi1GKH0v6PKYblHW2tHIJtcKKekKU6e1nz/mptmtn uKEXVfThoNIH7Aby451fFobSddSHw9zQ3wQNdZJGNuBEaoB11rvc0EsqqjAQ VQS6SGdN9CtTxOk0YhtGuKEvBQ314/Yb7Hi3WO6ss9zQyypayKrxwz/YTb4u 7kuKoQo2X7MuH23Micfj93f1Iro6wDqLLyUH3xLEZgCXxidIf6SKO8hKJUW2 o9zKF4KdlY6DD07KU1vvcRPK65vyKdaaZd7GXhK8PN3I4i9u4jrFxAE9Hn52 gc0cgceseE01nocnVyB1WZlb+WtxR0YVm17jVv5K1VPPHWnGM6dXYRoMRHJD J1Rjtp2KvlpTSPGP56+EocxqCfYxv3y0sczSLguOV5PW2WwHf/kQXleNz3o2 Ptmq3YhPeQw/q4aQML4qH30uaKgXt/+XFadp7I4tSXz/Ad5QxueQJMvf9Z42 8g5G5dUR2WYJLePL8pGyKMX2KN19hxdRJnlalL/FSLybjLJx+eWNhCsjg+QJ Ej4rDOWwXaDjfE/+Z5SW3peM+w+NyaE4fyALb28anNMI1GQFL8+to6B0fEE+ +kvFxP3FOPr0PHTkweK4iXfETxctEianKJ5orQxenldPMfo4Z7pPqZn3QSue enuFUVE8t3JSNTh7aXDOarMYhSsL9PkNEsWWs/LRJ1WGdv9nsSwNqaf4BhZB GXxwttBwXrOWIzDQ/klhqIAoxD3OX9ZzbdBQN267vhYnC+RgMJEbOi1+7WSD k8RKgK28jPdeKwzdub8SnnH+Mohrgj1lwl17PIislCUZ3/+JM0o2REXZxhX4 SYgu1FUr75e+6z4z2sf5W0SvDvbURey/bxgah/KCJJxVRmY/EyZjWClOCl5+ 9/1WdIyNqRwKG5n5pLNm5d1PfC8TzqlH5iQ1pqUgePk9B+xUU/68sLJf5dnD tXjydYoQyGGkchPnRV0i9WxkLssLBxM298fFHb8/2IKuMf7Gho+puumW7xfg xeg1DM1JadzQe6qR2TG6hiUKevw+sTlrB+495IJ3jEfGHw0a6sKtPzPi7RxZ bfP32ArKUEYmmzU3QhruVN6w+YfDHnhH+AtJNvaKDOLO3zjlDQTUTRncUKR6 ZFK7r/sckCYHPiIM7X2gE75hn3z0YZXD27t3AAV2Nre1mskNKS8BY6sQq0N9 GE+MD+5p2vegF74h/nLsDwV7KhMPPDotK+JsbkJ5U5meDcvxSQoJ04KX7z/S je5B/lJsZXffs4eMePyVRXmHcQ43EaMallOTNIod5cHL73uoF939/LH2XWpX 970c0ip+uCbWc7mVWGVYEmT6JojgfI2MiZVdovcf7Ud3L38S/PKgoQ7s+Yke b2YGWDfxt2EJstgYlqvmEsbEyjzFgYeH4PNZ5aPLgob6cMev7ThXLncTf0kX 4kOHJZt4G+2+RLSHm2/soUieP6N18JER+Dpr4bugwWihWY6yVofGlakj9ozC vff0yDttJ1bW+U5NsRfuarR08+1Xa30euJNz5RWCIooFKyk1UGzooHTosTF0 tuoxSLEjiyEn07VyXDmbraGeTcWho5Mo8RCkuOlEMUhZrFvQQGHz6DB6zp2U tzzXUlhsp/DYHVOBw0+Mw9fko/C5gsJoPRY0ZSS/SvD0njQ8+gJ5S/s4C7u1 mwusfuAxqnwKc6S3jM9Ew3qhDq1x9ehKtuDMY3b0GN2YLmzAYmkd+i8W4MwB HWmcVbQ2dWLdpMWiXoNNpq8RCxGlSI8wUsxeixNPWFB+xoKmN7VwpzrRnd2K 2Idt6C9qxbzeib60SqTel4OqGBtGmtogWcljWnUI1BXC3+PRqKzzWZ5PQBPR DEOkC4YoPsPb+kYhui9akPB0G4YNXvRkNiLtIRPqMkjT2siko4UiiUZKtfTd gL68NGjUKLkWzdUWpJ0pls1lRLSiMLIdTcWDGHBMy+caiDHWbXo89PwsTLWj uOd3XcilEbM4NC0eg6Kx2klZdRLI2+swVJ6zOYtL4ahuQtqbfIK/1TopgMWn y9kTmRdyV0g6raO4TVKewZOWyE0SpuZbrXCkZ20yuAsOUzPSTvAySzPcMagm TpVHaEpJMBpE3KQ8muW0TqAuy4yW3LzNxbwMjkoHnebzkpLXSZqqnbTmpDzL o2wunR5agrdxEnmqfeEObX6IpcGuYazb+UMbkquBErWNs5VPbn4E/gYvVpxD WPaxpxunMGwegifHB3tqF8yx7SiLcBGA2JSsRXaYZcn5UKOB2yG/1FhJiXrW Sn63ns/+rphaMWdwYaKkDYOaNviyXXCltMIW1wJTpB3FwY3CbNKxhE3WaDbD eKXLAz97Mqi6CFI1SYMqI9aNNVg11MlvspkussrPQfVl2tCRRNWPtaA+oh4V RBQaeY+uLjgrSKNNox7VH8NinRnL7H03ZVqslhXLq3gLWr38wMN4llF+qsqb aIIrmj/sUB2hp/YoQ84Wu34FH3Eh8XGsjY1jqdqMuVzGL1pMiecMBhOL0R1T DM+FYjTLzxgUys8YaOQFUr4JlcwWcmvJwoexffzsJUuTJWZ5Hz+jSLd4tIs9 R1jJPunONr7dk79K8H/F/0vkz9///P3P3//3fMdf/B/bwKFY\ \>"]] }, Open ]], Cell[BoxData[ RowBox[{"(*", 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[{"t", "[", RowBox[{"[", RowBox[{"i", "-", "1"}], "]"}], "]"}], ",", "\"\< \>\"", ",", RowBox[{"t", "[", RowBox[{"[", RowBox[{"j", "-", "1"}], "]"}], "]"}], ",", "\"\< , \>\"", ",", RowBox[{"Dij", "[", RowBox[{"[", RowBox[{ RowBox[{"i", "-", "1"}], ",", RowBox[{"j", "-", "1"}]}], "]"}], "]"}]}], "]"}]}], "]"}]}], "]"}]}], "]"}], "*)"}]], "Input", CellChangeTimes->{{3.568108824079547*^9, 3.568109012824279*^9}, { 3.568109558076436*^9, 3.568109588168889*^9}, {3.5681097523435774`*^9, 3.5681097637783976`*^9}, {3.5681100381828794`*^9, 3.5681101616726966`*^9}, {3.5681102015307665`*^9, 3.5681102288464146`*^9}, {3.568110263743676*^9, 3.568110267331682*^9}, { 3.5681103163469687`*^9, 3.5681103268925867`*^9}, {3.5681106443375444`*^9, 3.5681106916368275`*^9}, 3.568110873002746*^9, {3.5681109388660617`*^9, 3.5681110268970165`*^9}, {3.568111092526332*^9, 3.568111123461186*^9}, { 3.5681111884196997`*^9, 3.568111192756508*^9}, {3.5681112268113675`*^9, 3.568111366213212*^9}, {3.568111434946933*^9, 3.568111463354583*^9}, { 3.568111544396725*^9, 3.568111547625931*^9}, {3.5681116856081734`*^9, 3.5681117131422215`*^9}, {3.568111864696488*^9, 3.5681119835998964`*^9}, 3.5681120218355637`*^9, {3.56811206543764*^9, 3.568112066389242*^9}, { 3.568112332369709*^9, 3.5681123404505234`*^9}, {3.568112505935614*^9, 3.56811251481203*^9}, {3.5681125623609133`*^9, 3.568112569006525*^9}, { 3.568112648067464*^9, 3.568112734210815*^9}, {3.568112764443668*^9, 3.5681127697320776`*^9}, {3.5681128018681335`*^9, 3.568112843426607*^9}, { 3.568112884641879*^9, 3.5681128887602863`*^9}, {3.5681129663080225`*^9, 3.5681129699584293`*^9}, {3.568113133789917*^9, 3.568113227936082*^9}, { 3.5681132946885996`*^9, 3.5681133044698167`*^9}, {3.568113502200164*^9, 3.568113507348173*^9}, 3.56811354556824*^9, {3.5681222886191964`*^9, 3.5681222896019983`*^9}, {3.568207424138049*^9, 3.5682074415164795`*^9}, 3.568277923134914*^9, 3.568883508322016*^9, 3.568883588350157*^9, 3.5688836441982546`*^9, {3.5703421313965206`*^9, 3.5703421386505337`*^9}, { 3.570342288098796*^9, 3.5703424924279547`*^9}, 3.5709745658726373`*^9, 3.5709746291463485`*^9, {3.5709747534473667`*^9, 3.5709747617933817`*^9}, { 3.5709749537361183`*^9, 3.570975034747061*^9}, {3.5709751055243855`*^9, 3.5709751213584127`*^9}, {3.5709751694532976`*^9, 3.570975200060551*^9}, { 3.571073358435503*^9, 3.5710734289632273`*^9}, {3.571204792969243*^9, 3.571204820940092*^9}, {3.5712048565705547`*^9, 3.571204860002561*^9}, 3.571204896881026*^9, {3.571204943556308*^9, 3.571204987485985*^9}, 3.5712053579722357`*^9, 3.5712054148187356`*^9, 3.5712055260469313`*^9, { 3.571205631237916*^9, 3.5712056608311677`*^9}, {3.571206377683627*^9, 3.5712064172296963`*^9}, {3.571206525727887*^9, 3.571206547427525*^9}, { 3.5712066764397516`*^9, 3.5712067106974115`*^9}, {3.571206757949895*^9, 3.5712067585114956`*^9}, {3.5712073458681273`*^9, 3.571207357053347*^9}, { 3.5712075532392917`*^9, 3.5712076608170805`*^9}, {3.571208007434089*^9, 3.571208247690111*^9}, {3.571208301057805*^9, 3.5712083308850574`*^9}, { 3.571208811958702*^9, 3.571208871488407*^9}, {3.5712089993618317`*^9, 3.5712089996582317`*^9}, {3.5712091105588264`*^9, 3.571209160744115*^9}, { 3.5712092989135575`*^9, 3.5712093003643603`*^9}, {3.571209369940482*^9, 3.5712093926073227`*^9}, {3.5712094586578383`*^9, 3.5712094836958823`*^9}, {3.5712104228175316`*^9, 3.571210434267952*^9}, 3.571210475358424*^9, 3.5712108629099045`*^9, {3.571210903969177*^9, 3.5712109452624493`*^9}}], Cell[BoxData[{ RowBox[{ RowBox[{"DeleteFile", "[", " ", "\"\\"", "]"}], ";"}], "\[IndentingNewLine]", RowBox[{"For", "[", RowBox[{ RowBox[{"i", "=", "2"}], ",", RowBox[{"i", "<", RowBox[{"n", "+", "2"}]}], ",", RowBox[{"i", "++"}], ",", "\[IndentingNewLine]", RowBox[{"For", "[", RowBox[{ RowBox[{"j", "=", "2"}], ",", RowBox[{"j", "\[LessEqual]", "i"}], ",", RowBox[{"j", "++"}], ",", "\[IndentingNewLine]", RowBox[{"If", "[", RowBox[{ RowBox[{ RowBox[{"Pij", "[", RowBox[{"[", RowBox[{"i", ",", "j"}], "]"}], "]"}], ">", "0"}], ",", RowBox[{ RowBox[{"{", RowBox[{ RowBox[{"i", "-", "1"}], ",", RowBox[{"j", "-", "1"}], ",", RowBox[{"Extract", "[", RowBox[{"Pij", ",", RowBox[{"{", RowBox[{"i", ",", "j"}], "}"}]}], "]"}]}], "}"}], ">>>", " ", "\"\\""}]}], "]"}]}], "]"}]}], "]"}]}], "Input", CellChangeTimes->{{3.5681154444347754`*^9, 3.568115497147268*^9}, { 3.568127214924899*^9, 3.568127265796589*^9}, {3.568128215276656*^9, 3.568128238536297*^9}, {3.568130718566253*^9, 3.5681307485339055`*^9}, 3.5681308175952272`*^9, {3.5681308916497574`*^9, 3.5681309458598523`*^9}, { 3.5681309983383446`*^9, 3.5681310118947687`*^9}, {3.5681310723448744`*^9, 3.568131074357278*^9}, {3.5681315215476637`*^9, 3.568131584509374*^9}, { 3.56813162789305*^9, 3.5681316427754765`*^9}, {3.5681317113063965`*^9, 3.568131715268804*^9}, {3.5681323203938665`*^9, 3.5681323260098763`*^9}, { 3.568132387567585*^9, 3.568132440014877*^9}, {3.5681325121026034`*^9, 3.568132590945142*^9}, {3.56813274298981*^9, 3.5681327548302307`*^9}, { 3.568132877867647*^9, 3.568132888335265*^9}, {3.568133052345154*^9, 3.568133072344389*^9}, {3.5681331740533676`*^9, 3.5681331951446047`*^9}, { 3.568133267793932*^9, 3.5681332684803333`*^9}, {3.5681335079111547`*^9, 3.568133536833606*^9}, {3.5681336272201643`*^9, 3.5681336314945717`*^9}, { 3.568133737994359*^9, 3.568133744000369*^9}, {3.568133978515581*^9, 3.5681339917912045`*^9}, {3.5681340324916763`*^9, 3.5681340418204927`*^9}, {3.568134244262048*^9, 3.5681342454944506`*^9}, { 3.5681343354754086`*^9, 3.568134336099409*^9}, {3.5681345828762426`*^9, 3.568134583952645*^9}, {3.5681348406666956`*^9, 3.5681348474683075`*^9}, 3.568134889151581*^9, {3.5681352914606876`*^9, 3.568135296265496*^9}, { 3.568135518877887*^9, 3.568135519595488*^9}, 3.5681357593679094`*^9, { 3.5681787035360527`*^9, 3.568178728449296*^9}, 3.5682779128076954`*^9}], 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.190439410584325`"}], "}"}], ",", RowBox[{"{", RowBox[{"8", ",", "1", ",", "1.190548025774018`"}], "}"}], ",", RowBox[{"{", RowBox[{"9", ",", "4", ",", "1.1253183349388942`"}], "}"}], ",", RowBox[{"{", RowBox[{"10", ",", "6", ",", "1.1686678866153495`"}], "}"}], ",", RowBox[{"{", RowBox[{"11", ",", "9", ",", "1.025839738003161`"}], "}"}], ",", RowBox[{"{", RowBox[{"12", ",", "11", ",", "1.0760376752772804`"}], "}"}], ",", RowBox[{"{", RowBox[{"13", ",", "12", ",", "1.1687932099947653`"}], "}"}], ",", 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.1686500631247143`"}], "}"}], ",", 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.235831756042301`"}], "}"}], ",", RowBox[{"{", RowBox[{"29", ",", "7", ",", "1.2355456477561668`"}], "}"}], ",", RowBox[{"{", RowBox[{"30", ",", "7", ",", "1.235713033204844`"}], "}"}], ",", RowBox[{"{", RowBox[{"31", ",", "8", ",", "1.2358903549200966`"}], "}"}], ",", RowBox[{"{", RowBox[{"32", ",", "8", ",", "1.235839640489124`"}], "}"}], ",", RowBox[{"{", RowBox[{"33", ",", "8", ",", "1.2357521462040217`"}], "}"}], ",", RowBox[{"{", RowBox[{"34", ",", "9", ",", "1.2160885328938789`"}], "}"}], ",", RowBox[{"{", RowBox[{"35", ",", "10", ",", "1.235887260061742`"}], "}"}], ",", RowBox[{"{", RowBox[{"36", ",", "10", ",", "1.2357996583165434`"}], "}"}], ",", RowBox[{"{", RowBox[{"37", ",", "10", ",", "1.2357603015255403`"}], "}"}], ",", RowBox[{"{", RowBox[{"38", ",", "11", ",", "1.215846824723846`"}], "}"}], ",", RowBox[{"{", RowBox[{"39", ",", "13", ",", "1.2357025058258972`"}], "}"}], ",", RowBox[{"{", RowBox[{"40", ",", "13", ",", "1.2357979822662262`"}], "}"}], ",", RowBox[{"{", RowBox[{"41", ",", "13", ",", "1.235767545619187`"}], "}"}], ",", RowBox[{"{", RowBox[{"42", ",", "14", ",", "1.2159849801037779`"}], "}"}], ",", RowBox[{"{", RowBox[{"43", ",", "15", ",", "1.2157337494382179`"}], "}"}], ",", RowBox[{"{", RowBox[{"44", ",", "16", ",", "1.216034289865974`"}], "}"}], ",", RowBox[{"{", RowBox[{"45", ",", "18", ",", "1.2358277699890305`"}], "}"}], ",", RowBox[{"{", RowBox[{"46", ",", "18", ",", "1.2356247627619663`"}], "}"}], ",", RowBox[{"{", RowBox[{"47", ",", "18", ",", "1.2359745373753002`"}], "}"}], ",", 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.5718407117437496`*^9, 3.5718477525313478`*^9}], Cell[BoxData["51"], "Output", CellChangeTimes->{3.5718407117437496`*^9, 3.5718477525313478`*^9}], Cell[BoxData["21"], "Output", CellChangeTimes->{3.5718407117437496`*^9, 3.5718477525313478`*^9}] }, Open ]], Cell[BoxData[{ RowBox[{ RowBox[{"wxc", "=", RowBox[{"Table", "[", RowBox[{ RowBox[{ RowBox[{ RowBox[{ RowBox[{"(", RowBox[{ RowBox[{"a", "[", RowBox[{"[", RowBox[{"i", ",", "3"}], "]"}], "]"}], "+", RowBox[{"u2", "[", RowBox[{"[", RowBox[{"a", "[", RowBox[{"[", RowBox[{"i", ",", "1"}], "]"}], "]"}], "]"}], "]"}]}], ")"}], "/", RowBox[{"(", RowBox[{ RowBox[{"u2", "[", RowBox[{"[", RowBox[{"a", "[", RowBox[{"[", RowBox[{"i", ",", "1"}], "]"}], "]"}], "]"}], "]"}], "+", RowBox[{"2", "*", RowBox[{"a", "[", RowBox[{"[", RowBox[{"i", ",", "3"}], "]"}], "]"}]}], "+", RowBox[{"u2", "[", RowBox[{"[", RowBox[{"a", "[", RowBox[{"[", RowBox[{"i", ",", "2"}], "]"}], "]"}], "]"}], "]"}]}], ")"}]}], "*", RowBox[{"(", RowBox[{ RowBox[{"x", "[", RowBox[{"[", RowBox[{"a", "[", RowBox[{"[", RowBox[{"i", ",", "2"}], "]"}], "]"}], "]"}], "]"}], "-", RowBox[{"x", "[", RowBox[{"[", RowBox[{"a", "[", RowBox[{"[", RowBox[{"i", ",", "1"}], "]"}], "]"}], "]"}], "]"}]}], ")"}]}], "+", RowBox[{"x", "[", RowBox[{"[", RowBox[{"a", "[", RowBox[{"[", RowBox[{"i", ",", "1"}], "]"}], "]"}], "]"}], "]"}]}], ",", RowBox[{"{", RowBox[{"i", ",", "1", ",", "cw"}], "}"}]}], "]"}]}], ";"}], "\n", RowBox[{ RowBox[{ RowBox[{"wyc", "=", RowBox[{"Table", "[", RowBox[{ RowBox[{ RowBox[{ RowBox[{ RowBox[{"(", RowBox[{ RowBox[{"a", "[", RowBox[{"[", RowBox[{"i", ",", "3"}], "]"}], "]"}], "+", RowBox[{"u2", "[", RowBox[{"[", RowBox[{"a", "[", RowBox[{"[", RowBox[{"i", ",", "1"}], "]"}], "]"}], "]"}], "]"}]}], ")"}], "/", RowBox[{"(", RowBox[{ RowBox[{"u2", "[", RowBox[{"[", RowBox[{"a", "[", RowBox[{"[", RowBox[{"i", ",", "1"}], "]"}], "]"}], "]"}], "]"}], "+", RowBox[{"2", "*", RowBox[{"a", "[", RowBox[{"[", RowBox[{"i", ",", "3"}], "]"}], "]"}]}], "+", RowBox[{"u2", "[", RowBox[{"[", RowBox[{"a", "[", RowBox[{"[", RowBox[{"i", ",", "2"}], "]"}], "]"}], "]"}], "]"}]}], ")"}]}], "*", RowBox[{"(", RowBox[{ RowBox[{"y", "[", RowBox[{"[", RowBox[{"a", "[", RowBox[{"[", RowBox[{"i", ",", "2"}], "]"}], "]"}], "]"}], "]"}], "-", RowBox[{"y", "[", RowBox[{"[", RowBox[{"a", "[", RowBox[{"[", RowBox[{"i", ",", "1"}], "]"}], "]"}], "]"}], "]"}]}], ")"}]}], "+", RowBox[{"y", "[", RowBox[{"[", RowBox[{"a", "[", RowBox[{"[", RowBox[{"i", ",", "1"}], "]"}], "]"}], "]"}], "]"}]}], ",", RowBox[{"{", RowBox[{"i", ",", "1", ",", "cw"}], "}"}]}], "]"}]}], ";"}], " "}], "\n", RowBox[{ RowBox[{"wzc", "=", RowBox[{"Table", "[", RowBox[{ RowBox[{ RowBox[{ RowBox[{ RowBox[{"(", RowBox[{ RowBox[{"a", "[", RowBox[{"[", RowBox[{"i", ",", "3"}], "]"}], "]"}], "+", RowBox[{"u2", "[", RowBox[{"[", RowBox[{"a", "[", RowBox[{"[", RowBox[{"i", ",", "1"}], "]"}], "]"}], "]"}], "]"}]}], ")"}], "/", RowBox[{"(", RowBox[{ RowBox[{"u2", "[", RowBox[{"[", RowBox[{"a", "[", RowBox[{"[", RowBox[{"i", ",", "1"}], "]"}], "]"}], "]"}], "]"}], "+", RowBox[{"2", "*", RowBox[{"a", "[", RowBox[{"[", RowBox[{"i", ",", "3"}], "]"}], "]"}]}], "+", RowBox[{"u2", "[", RowBox[{"[", RowBox[{"a", "[", RowBox[{"[", RowBox[{"i", ",", "2"}], "]"}], "]"}], "]"}], "]"}]}], ")"}]}], "*", RowBox[{"(", RowBox[{ RowBox[{"z", "[", RowBox[{"[", RowBox[{"a", "[", RowBox[{"[", RowBox[{"i", ",", "2"}], "]"}], "]"}], "]"}], "]"}], "-", RowBox[{"z", "[", RowBox[{"[", RowBox[{"a", "[", RowBox[{"[", RowBox[{"i", ",", "1"}], "]"}], "]"}], "]"}], "]"}]}], ")"}]}], "+", RowBox[{"z", "[", RowBox[{"[", RowBox[{"a", "[", RowBox[{"[", RowBox[{"i", ",", "1"}], "]"}], "]"}], "]"}], "]"}]}], ",", RowBox[{"{", RowBox[{"i", ",", "1", ",", "cw"}], "}"}]}], "]"}]}], ";"}]}], "Input", CellChangeTimes->{{3.5681365021632137`*^9, 3.5681365171392403`*^9}, { 3.568136560351316*^9, 3.5681365863097615`*^9}, {3.5681369135895367`*^9, 3.5681369265999594`*^9}, {3.568137821916732*^9, 3.5681378378443604`*^9}, { 3.5682072492149415`*^9, 3.5682072529901485`*^9}, 3.568209802830227*^9, { 3.5682216503836985`*^9, 3.5682217583046885`*^9}, {3.5682217912831464`*^9, 3.568221843465238*^9}, {3.5682219760654707`*^9, 3.5682221133457117`*^9}, { 3.568222159615393*^9, 3.5682221693498106`*^9}, {3.5682222565227633`*^9, 3.5682222578487663`*^9}, 3.5682224736283445`*^9, 3.5682227227607822`*^9, 3.5682227558640404`*^9, {3.568222818810151*^9, 3.5682228486062036`*^9}, { 3.5682230057764797`*^9, 3.5682230079916835`*^9}, {3.568223041952943*^9, 3.5682230548229656`*^9}, 3.5682232619601297`*^9, 3.5682233000709963`*^9, { 3.568223536645412*^9, 3.5682235381118145`*^9}, {3.568223591151908*^9, 3.568223591526308*^9}, {3.5682236491528096`*^9, 3.568223657483224*^9}, { 3.568223713222122*^9, 3.5682237532361927`*^9}, {3.568223800379475*^9, 3.568223827648323*^9}, {3.5682238887380304`*^9, 3.5682238893152313`*^9}, { 3.5682240287170763`*^9, 3.5682240612431335`*^9}, 3.5682241088076167`*^9, { 3.568224198772975*^9, 3.5682242396450467`*^9}, {3.568224282170721*^9, 3.5682243185031853`*^9}, {3.568224437890195*^9, 3.568224439590598*^9}, { 3.568224572253231*^9, 3.5682245867144566`*^9}, {3.5682247081762695`*^9, 3.568224733557514*^9}, {3.56822480520844*^9, 3.5682248433505073`*^9}, { 3.568224884206979*^9, 3.5682248959069996`*^9}, {3.568224982830352*^9, 3.5682250047639904`*^9}, {3.56822503870965*^9, 3.5682250803305235`*^9}, { 3.5682251223413973`*^9, 3.568225141451431*^9}, {3.568225234177994*^9, 3.5682252929588966`*^9}, {3.5682253775890455`*^9, 3.568225482140429*^9}, { 3.56822551694409*^9, 3.5682255297205124`*^9}, {3.568225573197789*^9, 3.5682255809666023`*^9}, 3.568225660698343*^9, 3.5682257301964645`*^9, { 3.568225765078126*^9, 3.5682257828933573`*^9}, {3.568225927026843*^9, 3.568225927416844*^9}, {3.568267062420238*^9, 3.568267081358671*^9}, { 3.568267188328059*^9, 3.5682672830358257`*^9}, {3.5682676367040462`*^9, 3.568267747979042*^9}, 3.5682678404716043`*^9, 3.568267882030078*^9, { 3.5682679252577534`*^9, 3.568267996612279*^9}, {3.5682680488879704`*^9, 3.568268061133992*^9}, {3.568268100914062*^9, 3.5682681150944867`*^9}, { 3.5682681672609787`*^9, 3.5682681709113846`*^9}, {3.568268272904364*^9, 3.5682683182536435`*^9}, {3.5682685202739983`*^9, 3.568268599194537*^9}, { 3.5682686348873997`*^9, 3.568268637773405*^9}, {3.5682686944951043`*^9, 3.568268872273017*^9}, {3.5682689420207396`*^9, 3.568269016947671*^9}, { 3.5682695040741262`*^9, 3.568269601153097*^9}, {3.5682696652380095`*^9, 3.5682696728352227`*^9}, {3.5682697489633565`*^9, 3.5682698308635006`*^9}, {3.568271156491429*^9, 3.568271160063835*^9}, { 3.568271244927984*^9, 3.568271369010602*^9}, {3.5682716250070515`*^9, 3.5682717312276382`*^9}, {3.5682717843301315`*^9, 3.5682718576814604`*^9}, {3.568271940673606*^9, 3.5682720536490045`*^9}, { 3.5682722259669075`*^9, 3.5682723223126764`*^9}, {3.568272370813162*^9, 3.568272411466833*^9}, {3.5682725893539457`*^9, 3.568272622238803*^9}, { 3.5682726936713285`*^9, 3.5682726960113325`*^9}, {3.568272741079812*^9, 3.56827275143823*^9}, {3.5682729218373294`*^9, 3.568272991070251*^9}, { 3.5682734285574193`*^9, 3.5682734302890224`*^9}, {3.5682734898811274`*^9, 3.5682735111595645`*^9}, {3.5682736115925407`*^9, 3.5682736313577757`*^9}, {3.5682738601945777`*^9, 3.568273987272401*^9}, { 3.5682763944346285`*^9, 3.5682764313910933`*^9}, 3.5682765128232365`*^9, { 3.5682766527398825`*^9, 3.568276660976697*^9}, {3.5682774496048822`*^9, 3.568277461663703*^9}, {3.5683784032731285`*^9, 3.568378422991563*^9}, { 3.568378459308427*^9, 3.5683784812420654`*^9}, {3.568378513440522*^9, 3.568378867046343*^9}, {3.568378915468828*^9, 3.56837896203491*^9}, { 3.5683790764299107`*^9, 3.568379270041851*^9}, {3.568380233530743*^9, 3.568380234388745*^9}, 3.5683804214954734`*^9, 3.568380471867962*^9, 3.5683805399464817`*^9, {3.5683812396077104`*^9, 3.568381293537005*^9}, { 3.568381339541486*^9, 3.5683813935175805`*^9}, 3.5684646396646404`*^9, 3.5684646988823442`*^9, 3.568465086387025*^9, {3.5684655859935026`*^9, 3.568465605087936*^9}, 3.568821235038273*^9, 3.5688233741452303`*^9, 3.568823449742963*^9, 3.5688274593312387`*^9, {3.5688284679978104`*^9, 3.5688284689026117`*^9}, {3.5688285131598897`*^9, 3.5688285201487017`*^9}, 3.5688285866360188`*^9, {3.5688292397623663`*^9, 3.568829246688778*^9}, { 3.5688780328231993`*^9, 3.568878075458074*^9}, 3.5688953020257144`*^9, 3.5693395777359695`*^9, {3.569339615191635*^9, 3.569339617079238*^9}, { 3.5693396917877693`*^9, 3.56933969216217*^9}, 3.5693893483274703`*^9}], Cell[BoxData[ RowBox[{ RowBox[{"Plot7", "=", RowBox[{"Table", "[", RowBox[{ RowBox[{"Graphics3D", "[", RowBox[{"{", RowBox[{ RowBox[{"Darker", "[", RowBox[{"Brown", ",", "0.4"}], "]"}], ",", RowBox[{"Opacity", "[", "0.5", "]"}], ",", RowBox[{"If", "[", RowBox[{ RowBox[{ RowBox[{"wxc", "[", RowBox[{"[", "i", "]"}], "]"}], "\[NotEqual]", "0"}], ",", RowBox[{"Sphere", "[", RowBox[{ RowBox[{"{", RowBox[{ RowBox[{"wxc", "[", RowBox[{"[", "i", "]"}], "]"}], ",", RowBox[{"wyc", "[", RowBox[{"[", "i", "]"}], "]"}], ",", RowBox[{"wzc", "[", RowBox[{"[", "i", "]"}], "]"}]}], "}"}], ",", RowBox[{"a", "[", RowBox[{"[", RowBox[{"i", ",", "3"}], "]"}], "]"}]}], "]"}]}], "]"}]}], "}"}], "]"}], ",", RowBox[{"{", RowBox[{"i", ",", "1", ",", "cw"}], "}"}]}], "]"}]}], ";"}]], "Input", CellChangeTimes->{{3.5681365021632137`*^9, 3.5681365171392403`*^9}, { 3.568136560351316*^9, 3.5681365863097615`*^9}, {3.5681369135895367`*^9, 3.5681369265999594`*^9}, {3.568137821916732*^9, 3.5681378378443604`*^9}, { 3.5682072492149415`*^9, 3.5682072529901485`*^9}, 3.568209802830227*^9, { 3.5682216503836985`*^9, 3.5682217583046885`*^9}, {3.5682217912831464`*^9, 3.568221843465238*^9}, {3.5682219760654707`*^9, 3.5682221133457117`*^9}, { 3.568222159615393*^9, 3.5682221693498106`*^9}, {3.5682222565227633`*^9, 3.5682222578487663`*^9}, 3.5682224736283445`*^9, 3.5682227227607822`*^9, 3.5682227558640404`*^9, {3.568222818810151*^9, 3.5682228486062036`*^9}, { 3.5682230057764797`*^9, 3.5682230079916835`*^9}, {3.568223041952943*^9, 3.5682230548229656`*^9}, 3.5682232619601297`*^9, 3.5682233000709963`*^9, { 3.568223536645412*^9, 3.5682235381118145`*^9}, {3.568223591151908*^9, 3.568223591526308*^9}, {3.5682236491528096`*^9, 3.568223657483224*^9}, { 3.568223713222122*^9, 3.5682237532361927`*^9}, {3.568223800379475*^9, 3.568223827648323*^9}, {3.5682238887380304`*^9, 3.5682238893152313`*^9}, { 3.5682240287170763`*^9, 3.5682240612431335`*^9}, 3.5682241088076167`*^9, { 3.568224198772975*^9, 3.5682242396450467`*^9}, {3.568224282170721*^9, 3.5682243185031853`*^9}, {3.568224437890195*^9, 3.568224439590598*^9}, { 3.568224572253231*^9, 3.5682245867144566`*^9}, {3.5682247081762695`*^9, 3.568224733557514*^9}, {3.56822480520844*^9, 3.5682248433505073`*^9}, { 3.568224884206979*^9, 3.5682248959069996`*^9}, {3.568224982830352*^9, 3.5682250047639904`*^9}, {3.56822503870965*^9, 3.5682250803305235`*^9}, { 3.5682251223413973`*^9, 3.568225141451431*^9}, {3.568225234177994*^9, 3.5682252929588966`*^9}, {3.5682253775890455`*^9, 3.568225482140429*^9}, { 3.56822551694409*^9, 3.5682255297205124`*^9}, {3.568225573197789*^9, 3.5682255809666023`*^9}, 3.568225660698343*^9, 3.5682257301964645`*^9, { 3.568225765078126*^9, 3.5682257828933573`*^9}, {3.568225927026843*^9, 3.568225927416844*^9}, {3.568267062420238*^9, 3.568267081358671*^9}, { 3.568267188328059*^9, 3.5682672830358257`*^9}, {3.5682676367040462`*^9, 3.568267747979042*^9}, 3.5682678404716043`*^9, 3.568267882030078*^9, { 3.5682679252577534`*^9, 3.568267996612279*^9}, {3.5682680488879704`*^9, 3.568268061133992*^9}, {3.568268100914062*^9, 3.5682681150944867`*^9}, { 3.5682681672609787`*^9, 3.5682681709113846`*^9}, {3.568268272904364*^9, 3.5682683182536435`*^9}, {3.5682685202739983`*^9, 3.568268599194537*^9}, { 3.5682686348873997`*^9, 3.568268637773405*^9}, {3.5682686944951043`*^9, 3.568268872273017*^9}, {3.5682689420207396`*^9, 3.568269016947671*^9}, { 3.5682695040741262`*^9, 3.568269601153097*^9}, {3.5682696652380095`*^9, 3.5682696728352227`*^9}, {3.5682697489633565`*^9, 3.5682698308635006`*^9}, {3.568271156491429*^9, 3.568271160063835*^9}, { 3.568271244927984*^9, 3.568271369010602*^9}, {3.5682716250070515`*^9, 3.5682717312276382`*^9}, {3.5682717843301315`*^9, 3.5682718576814604`*^9}, {3.568271940673606*^9, 3.5682720536490045`*^9}, { 3.5682722259669075`*^9, 3.5682723223126764`*^9}, {3.568272370813162*^9, 3.568272411466833*^9}, {3.5682725893539457`*^9, 3.568272622238803*^9}, { 3.5682726936713285`*^9, 3.5682726960113325`*^9}, {3.568272741079812*^9, 3.56827275143823*^9}, {3.5682729218373294`*^9, 3.568272991070251*^9}, { 3.5682734285574193`*^9, 3.5682734302890224`*^9}, {3.5682734898811274`*^9, 3.5682735111595645`*^9}, {3.5682736115925407`*^9, 3.5682736313577757`*^9}, {3.5682738601945777`*^9, 3.568273987272401*^9}, { 3.5682763944346285`*^9, 3.5682764313910933`*^9}, 3.5682765128232365`*^9, { 3.5682766527398825`*^9, 3.568276660976697*^9}, {3.5682774496048822`*^9, 3.568277461663703*^9}, {3.5683784032731285`*^9, 3.568378422991563*^9}, { 3.568378459308427*^9, 3.5683784812420654`*^9}, {3.568378513440522*^9, 3.568378867046343*^9}, {3.568378915468828*^9, 3.56837896203491*^9}, { 3.5683790764299107`*^9, 3.568379270041851*^9}, {3.568380233530743*^9, 3.568380234388745*^9}, 3.5683804214954734`*^9, 3.568380471867962*^9, 3.5683805399464817`*^9, {3.5683812396077104`*^9, 3.568381293537005*^9}, { 3.568381339541486*^9, 3.5683813935175805`*^9}, 3.5684646396646404`*^9, 3.5684646988823442`*^9, 3.568465086387025*^9, {3.5684655859935026`*^9, 3.568465605087936*^9}, 3.568821235038273*^9, 3.5688233741452303`*^9, 3.568823449742963*^9, 3.5688274593312387`*^9, {3.5688284679978104`*^9, 3.5688284689026117`*^9}, {3.5688285131598897`*^9, 3.5688285201487017`*^9}, 3.5688285866360188`*^9, {3.5688292397623663`*^9, 3.568829246688778*^9}, { 3.5688780328231993`*^9, 3.56887811871695*^9}, {3.568895331556566*^9, 3.5688953367201753`*^9}, 3.568895995276532*^9, {3.5693397032225895`*^9, 3.56933970331619*^9}, 3.569339737137049*^9, 3.569340055299608*^9, 3.569389360947892*^9, {3.570298060155057*^9, 3.570298071589877*^9}, { 3.5704539766451664`*^9, 3.5704539773627677`*^9}, {3.5709509139026003`*^9, 3.570950950500265*^9}, {3.570950995397144*^9, 3.5709510449896307`*^9}, { 3.570974064815357*^9, 3.5709741190878525`*^9}, {3.5709742487084804`*^9, 3.570974273528124*^9}, {3.5713747544125347`*^9, 3.571374762618149*^9}, 3.5713830670175667`*^9}], Cell[BoxData[{ RowBox[{ RowBox[{"wxh", "=", RowBox[{"Table", "[", RowBox[{ RowBox[{ RowBox[{ RowBox[{ RowBox[{"(", RowBox[{ RowBox[{"a", "[", RowBox[{"[", RowBox[{"i", ",", "3"}], "]"}], "]"}], "+", RowBox[{"u2", "[", RowBox[{"[", RowBox[{"a", "[", RowBox[{"[", RowBox[{"i", ",", "2"}], "]"}], "]"}], "]"}], "]"}]}], ")"}], "/", RowBox[{"(", RowBox[{ RowBox[{"u2", "[", RowBox[{"[", RowBox[{"a", "[", RowBox[{"[", RowBox[{"i", ",", "1"}], "]"}], "]"}], "]"}], "]"}], "+", RowBox[{"a", "[", RowBox[{"[", RowBox[{"i", ",", "3"}], "]"}], "]"}], "+", RowBox[{"u2", "[", RowBox[{"[", RowBox[{"a", "[", RowBox[{"[", RowBox[{"i", ",", "2"}], "]"}], "]"}], "]"}], "]"}]}], ")"}]}], "*", RowBox[{"(", RowBox[{ RowBox[{"x", "[", RowBox[{"[", RowBox[{"a", "[", RowBox[{"[", RowBox[{"i", ",", "1"}], "]"}], "]"}], "]"}], "]"}], "-", RowBox[{"x", "[", RowBox[{"[", RowBox[{"a", "[", RowBox[{"[", RowBox[{"i", ",", "2"}], "]"}], "]"}], "]"}], "]"}]}], ")"}]}], "+", RowBox[{"x", "[", RowBox[{"[", RowBox[{"a", "[", RowBox[{"[", RowBox[{"i", ",", "2"}], "]"}], "]"}], "]"}], "]"}]}], ",", RowBox[{"{", RowBox[{"i", ",", RowBox[{"cw", "+", "1"}], ",", "nb"}], "}"}]}], "]"}]}], ";"}], "\n", RowBox[{ RowBox[{"wyh", "=", RowBox[{"Table", "[", RowBox[{ RowBox[{ RowBox[{ RowBox[{ RowBox[{"(", RowBox[{ RowBox[{"a", "[", RowBox[{"[", RowBox[{"i", ",", "3"}], "]"}], "]"}], "+", RowBox[{"u2", "[", RowBox[{"[", RowBox[{"a", "[", RowBox[{"[", RowBox[{"i", ",", "2"}], "]"}], "]"}], "]"}], "]"}]}], ")"}], "/", RowBox[{"(", RowBox[{ RowBox[{"u2", "[", RowBox[{"[", RowBox[{"a", "[", RowBox[{"[", RowBox[{"i", ",", "1"}], "]"}], "]"}], "]"}], "]"}], "+", RowBox[{"a", "[", RowBox[{"[", RowBox[{"i", ",", "3"}], "]"}], "]"}], "+", RowBox[{"u2", "[", RowBox[{"[", RowBox[{"a", "[", RowBox[{"[", RowBox[{"i", ",", "2"}], "]"}], "]"}], "]"}], "]"}]}], ")"}]}], "*", RowBox[{"(", RowBox[{ RowBox[{"y", "[", RowBox[{"[", RowBox[{"a", "[", RowBox[{"[", RowBox[{"i", ",", "1"}], "]"}], "]"}], "]"}], "]"}], "-", RowBox[{"y", "[", RowBox[{"[", RowBox[{"a", "[", RowBox[{"[", RowBox[{"i", ",", "2"}], "]"}], "]"}], "]"}], "]"}]}], ")"}]}], "+", RowBox[{"y", "[", RowBox[{"[", RowBox[{"a", "[", RowBox[{"[", RowBox[{"i", ",", "2"}], "]"}], "]"}], "]"}], "]"}]}], ",", RowBox[{"{", RowBox[{"i", ",", RowBox[{"cw", "+", "1"}], ",", "nb"}], "}"}]}], "]"}]}], ";"}], "\n", RowBox[{ RowBox[{"wzh", "=", RowBox[{"Table", "[", RowBox[{ RowBox[{ RowBox[{ RowBox[{ RowBox[{"(", RowBox[{ RowBox[{"a", "[", RowBox[{"[", RowBox[{"i", ",", "3"}], "]"}], "]"}], "+", RowBox[{"u2", "[", RowBox[{"[", RowBox[{"a", "[", RowBox[{"[", RowBox[{"i", ",", "2"}], "]"}], "]"}], "]"}], "]"}]}], ")"}], "/", RowBox[{"(", RowBox[{ RowBox[{"u2", "[", RowBox[{"[", RowBox[{"a", "[", RowBox[{"[", RowBox[{"i", ",", "1"}], "]"}], "]"}], "]"}], "]"}], "+", RowBox[{"a", "[", RowBox[{"[", RowBox[{"i", ",", "3"}], "]"}], "]"}], "+", RowBox[{"u2", "[", RowBox[{"[", RowBox[{"a", "[", RowBox[{"[", RowBox[{"i", ",", "2"}], "]"}], "]"}], "]"}], "]"}]}], ")"}]}], "*", RowBox[{"(", RowBox[{ RowBox[{"z", "[", RowBox[{"[", RowBox[{"a", "[", RowBox[{"[", RowBox[{"i", ",", "1"}], "]"}], "]"}], "]"}], "]"}], "-", RowBox[{"z", "[", RowBox[{"[", RowBox[{"a", "[", RowBox[{"[", RowBox[{"i", ",", "2"}], "]"}], "]"}], "]"}], "]"}]}], ")"}]}], "+", RowBox[{"z", "[", RowBox[{"[", RowBox[{"a", "[", RowBox[{"[", RowBox[{"i", ",", "2"}], "]"}], "]"}], "]"}], "]"}]}], ",", RowBox[{"{", RowBox[{"i", ",", RowBox[{"cw", "+", "1"}], ",", "nb"}], "}"}]}], "]"}]}], ";"}]}], "Input", CellChangeTimes->{{3.5681365021632137`*^9, 3.5681365171392403`*^9}, { 3.568136560351316*^9, 3.5681365863097615`*^9}, {3.5681369135895367`*^9, 3.5681369265999594`*^9}, {3.568137821916732*^9, 3.5681378378443604`*^9}, { 3.5682072492149415`*^9, 3.5682072529901485`*^9}, 3.568209802830227*^9, { 3.5682216503836985`*^9, 3.5682217583046885`*^9}, {3.5682217912831464`*^9, 3.568221843465238*^9}, {3.5682219760654707`*^9, 3.5682221133457117`*^9}, { 3.568222159615393*^9, 3.5682221693498106`*^9}, {3.5682222565227633`*^9, 3.5682222578487663`*^9}, 3.5682224736283445`*^9, 3.5682227227607822`*^9, 3.5682227558640404`*^9, {3.568222818810151*^9, 3.5682228486062036`*^9}, { 3.5682230057764797`*^9, 3.5682230079916835`*^9}, {3.568223041952943*^9, 3.5682230548229656`*^9}, 3.5682232619601297`*^9, 3.5682233000709963`*^9, { 3.568223536645412*^9, 3.5682235381118145`*^9}, {3.568223591151908*^9, 3.568223591526308*^9}, {3.5682236491528096`*^9, 3.568223657483224*^9}, { 3.568223713222122*^9, 3.5682237532361927`*^9}, {3.568223800379475*^9, 3.568223827648323*^9}, {3.5682238887380304`*^9, 3.5682238893152313`*^9}, { 3.5682240287170763`*^9, 3.5682240612431335`*^9}, 3.5682241088076167`*^9, { 3.568224198772975*^9, 3.5682242396450467`*^9}, {3.568224282170721*^9, 3.5682243185031853`*^9}, {3.568224437890195*^9, 3.568224439590598*^9}, { 3.568224572253231*^9, 3.5682245867144566`*^9}, {3.5682247081762695`*^9, 3.568224733557514*^9}, {3.56822480520844*^9, 3.5682248433505073`*^9}, { 3.568224884206979*^9, 3.5682248959069996`*^9}, {3.568224982830352*^9, 3.5682250047639904`*^9}, {3.56822503870965*^9, 3.5682250803305235`*^9}, { 3.5682251223413973`*^9, 3.568225141451431*^9}, {3.568225234177994*^9, 3.5682252929588966`*^9}, {3.5682253775890455`*^9, 3.568225482140429*^9}, { 3.56822551694409*^9, 3.5682255297205124`*^9}, {3.568225573197789*^9, 3.5682255809666023`*^9}, 3.568225660698343*^9, 3.5682257301964645`*^9, { 3.568225765078126*^9, 3.5682257828933573`*^9}, {3.568225927026843*^9, 3.568225927416844*^9}, {3.568267062420238*^9, 3.568267081358671*^9}, { 3.568267188328059*^9, 3.5682672830358257`*^9}, {3.5682676367040462`*^9, 3.568267747979042*^9}, 3.5682678404716043`*^9, 3.568267882030078*^9, { 3.5682679252577534`*^9, 3.568267996612279*^9}, {3.5682680488879704`*^9, 3.568268061133992*^9}, {3.568268100914062*^9, 3.5682681150944867`*^9}, { 3.5682681672609787`*^9, 3.5682681709113846`*^9}, {3.568268272904364*^9, 3.5682683182536435`*^9}, {3.5682685202739983`*^9, 3.568268599194537*^9}, { 3.5682686348873997`*^9, 3.568268637773405*^9}, {3.5682686944951043`*^9, 3.568268872273017*^9}, {3.5682689420207396`*^9, 3.568269016947671*^9}, { 3.5682695040741262`*^9, 3.568269601153097*^9}, {3.5682696652380095`*^9, 3.5682696728352227`*^9}, {3.5682697489633565`*^9, 3.5682698308635006`*^9}, {3.568271156491429*^9, 3.568271160063835*^9}, { 3.568271244927984*^9, 3.568271369010602*^9}, {3.5682716250070515`*^9, 3.5682717312276382`*^9}, {3.5682717843301315`*^9, 3.5682718576814604`*^9}, {3.568271940673606*^9, 3.5682720536490045`*^9}, { 3.5682722259669075`*^9, 3.5682723223126764`*^9}, {3.568272370813162*^9, 3.568272411466833*^9}, {3.5682725893539457`*^9, 3.568272622238803*^9}, { 3.5682726936713285`*^9, 3.5682726960113325`*^9}, {3.568272741079812*^9, 3.56827275143823*^9}, {3.5682729218373294`*^9, 3.568272991070251*^9}, { 3.5682734285574193`*^9, 3.5682734302890224`*^9}, {3.5682734898811274`*^9, 3.5682735111595645`*^9}, {3.5682736115925407`*^9, 3.5682736313577757`*^9}, {3.5682738601945777`*^9, 3.568273987272401*^9}, { 3.5682763944346285`*^9, 3.5682764313910933`*^9}, 3.5682765128232365`*^9, { 3.5682766527398825`*^9, 3.568276660976697*^9}, {3.5682774496048822`*^9, 3.568277461663703*^9}, {3.5683784032731285`*^9, 3.568378422991563*^9}, { 3.568378459308427*^9, 3.5683784812420654`*^9}, {3.568378513440522*^9, 3.568378867046343*^9}, {3.568378915468828*^9, 3.56837896203491*^9}, { 3.5683790764299107`*^9, 3.568379270041851*^9}, {3.568380233530743*^9, 3.568380234388745*^9}, 3.5683804214954734`*^9, 3.568380471867962*^9, 3.5683805399464817`*^9, {3.5683812396077104`*^9, 3.568381293537005*^9}, { 3.568381339541486*^9, 3.5683813935175805`*^9}, 3.5684646396646404`*^9, 3.5684646988823442`*^9, 3.568465086387025*^9, {3.5684655859935026`*^9, 3.568465605087936*^9}, 3.568821235038273*^9, 3.5688233741452303`*^9, 3.568823449742963*^9, 3.5688274593312387`*^9, {3.5688284679978104`*^9, 3.5688284689026117`*^9}, {3.5688285131598897`*^9, 3.5688285201487017`*^9}, 3.5688285866360188`*^9, {3.5688292397623663`*^9, 3.568829246688778*^9}, { 3.5688780328231993`*^9, 3.5688781280925665`*^9}, 3.568895312524533*^9, 3.5693395940691977`*^9, {3.5693396336776676`*^9, 3.5693396557829065`*^9}, { 3.569340069402033*^9, 3.569340092412073*^9}, {3.569389186383586*^9, 3.5693891947764006`*^9}, {3.569389263291721*^9, 3.569389289686967*^9}, 3.569389336315449*^9}], Cell[BoxData[ RowBox[{ RowBox[{"Plot8", "=", RowBox[{"Table", "[", RowBox[{ RowBox[{"Graphics3D", "[", RowBox[{"{", RowBox[{ RowBox[{"Opacity", "[", "0.5", "]"}], ",", RowBox[{"Sphere", "[", RowBox[{ RowBox[{"{", RowBox[{ RowBox[{"wxh", "[", RowBox[{"[", "i", "]"}], "]"}], ",", RowBox[{"wyh", "[", RowBox[{"[", "i", "]"}], "]"}], ",", RowBox[{"wzh", "[", RowBox[{"[", "i", "]"}], "]"}]}], "}"}], ",", RowBox[{"a", "[", RowBox[{"[", RowBox[{ RowBox[{"i", "+", "cw"}], ",", "3"}], "]"}], "]"}]}], "]"}]}], "}"}], "]"}], ",", RowBox[{"{", RowBox[{"i", ",", "1", ",", "bh"}], "}"}]}], "]"}]}], ";"}]], "Input", CellChangeTimes->{{3.5681365021632137`*^9, 3.5681365171392403`*^9}, { 3.568136560351316*^9, 3.5681365863097615`*^9}, {3.5681369135895367`*^9, 3.5681369265999594`*^9}, {3.568137821916732*^9, 3.5681378378443604`*^9}, { 3.5682072492149415`*^9, 3.5682072529901485`*^9}, 3.568209802830227*^9, { 3.5682216503836985`*^9, 3.5682217583046885`*^9}, {3.5682217912831464`*^9, 3.568221843465238*^9}, {3.5682219760654707`*^9, 3.5682221133457117`*^9}, { 3.568222159615393*^9, 3.5682221693498106`*^9}, {3.5682222565227633`*^9, 3.5682222578487663`*^9}, 3.5682224736283445`*^9, 3.5682227227607822`*^9, 3.5682227558640404`*^9, {3.568222818810151*^9, 3.5682228486062036`*^9}, { 3.5682230057764797`*^9, 3.5682230079916835`*^9}, {3.568223041952943*^9, 3.5682230548229656`*^9}, 3.5682232619601297`*^9, 3.5682233000709963`*^9, { 3.568223536645412*^9, 3.5682235381118145`*^9}, {3.568223591151908*^9, 3.568223591526308*^9}, {3.5682236491528096`*^9, 3.568223657483224*^9}, { 3.568223713222122*^9, 3.5682237532361927`*^9}, {3.568223800379475*^9, 3.568223827648323*^9}, {3.5682238887380304`*^9, 3.5682238893152313`*^9}, { 3.5682240287170763`*^9, 3.5682240612431335`*^9}, 3.5682241088076167`*^9, { 3.568224198772975*^9, 3.5682242396450467`*^9}, {3.568224282170721*^9, 3.5682243185031853`*^9}, {3.568224437890195*^9, 3.568224439590598*^9}, { 3.568224572253231*^9, 3.5682245867144566`*^9}, {3.5682247081762695`*^9, 3.568224733557514*^9}, {3.56822480520844*^9, 3.5682248433505073`*^9}, { 3.568224884206979*^9, 3.5682248959069996`*^9}, {3.568224982830352*^9, 3.5682250047639904`*^9}, {3.56822503870965*^9, 3.5682250803305235`*^9}, { 3.5682251223413973`*^9, 3.568225141451431*^9}, {3.568225234177994*^9, 3.5682252929588966`*^9}, {3.5682253775890455`*^9, 3.568225482140429*^9}, { 3.56822551694409*^9, 3.5682255297205124`*^9}, {3.568225573197789*^9, 3.5682255809666023`*^9}, 3.568225660698343*^9, 3.5682257301964645`*^9, { 3.568225765078126*^9, 3.5682257828933573`*^9}, {3.568225927026843*^9, 3.568225927416844*^9}, {3.568267062420238*^9, 3.568267081358671*^9}, { 3.568267188328059*^9, 3.5682672830358257`*^9}, {3.5682676367040462`*^9, 3.568267747979042*^9}, 3.5682678404716043`*^9, 3.568267882030078*^9, { 3.5682679252577534`*^9, 3.568267996612279*^9}, {3.5682680488879704`*^9, 3.568268061133992*^9}, {3.568268100914062*^9, 3.5682681150944867`*^9}, { 3.5682681672609787`*^9, 3.5682681709113846`*^9}, {3.568268272904364*^9, 3.5682683182536435`*^9}, {3.5682685202739983`*^9, 3.568268599194537*^9}, { 3.5682686348873997`*^9, 3.568268637773405*^9}, {3.5682686944951043`*^9, 3.568268872273017*^9}, {3.5682689420207396`*^9, 3.568269016947671*^9}, { 3.5682695040741262`*^9, 3.568269601153097*^9}, {3.5682696652380095`*^9, 3.5682696728352227`*^9}, {3.5682697489633565`*^9, 3.5682698308635006`*^9}, {3.568271156491429*^9, 3.568271160063835*^9}, { 3.568271244927984*^9, 3.568271369010602*^9}, {3.5682716250070515`*^9, 3.5682717312276382`*^9}, {3.5682717843301315`*^9, 3.5682718576814604`*^9}, {3.568271940673606*^9, 3.5682720536490045`*^9}, { 3.5682722259669075`*^9, 3.5682723223126764`*^9}, {3.568272370813162*^9, 3.568272411466833*^9}, {3.5682725893539457`*^9, 3.568272622238803*^9}, { 3.5682726936713285`*^9, 3.5682726960113325`*^9}, {3.568272741079812*^9, 3.56827275143823*^9}, {3.5682729218373294`*^9, 3.568272991070251*^9}, { 3.5682734285574193`*^9, 3.5682734302890224`*^9}, {3.5682734898811274`*^9, 3.5682735111595645`*^9}, {3.5682736115925407`*^9, 3.5682736313577757`*^9}, {3.5682738601945777`*^9, 3.568273987272401*^9}, { 3.5682763944346285`*^9, 3.5682764313910933`*^9}, 3.5682765128232365`*^9, { 3.5682766527398825`*^9, 3.568276660976697*^9}, {3.5682774496048822`*^9, 3.568277461663703*^9}, {3.5683784032731285`*^9, 3.568378422991563*^9}, { 3.568378459308427*^9, 3.5683784812420654`*^9}, {3.568378513440522*^9, 3.568378867046343*^9}, {3.568378915468828*^9, 3.56837896203491*^9}, { 3.5683790764299107`*^9, 3.568379270041851*^9}, {3.568380233530743*^9, 3.568380234388745*^9}, 3.5683804214954734`*^9, 3.568380471867962*^9, 3.5683805399464817`*^9, {3.5683812396077104`*^9, 3.568381293537005*^9}, { 3.568381339541486*^9, 3.5683813935175805`*^9}, 3.5684646396646404`*^9, 3.5684646988823442`*^9, 3.568465086387025*^9, {3.5684655859935026`*^9, 3.568465605087936*^9}, 3.568821235038273*^9, 3.5688233741452303`*^9, 3.568823449742963*^9, 3.5688274593312387`*^9, {3.5688284679978104`*^9, 3.5688284689026117`*^9}, {3.5688285131598897`*^9, 3.5688285201487017`*^9}, 3.5688285866360188`*^9, {3.5688292397623663`*^9, 3.568829246688778*^9}, { 3.5688780328231993`*^9, 3.568878147967001*^9}, {3.56889532230575*^9, 3.5688953242557535`*^9}, 3.56889600529175*^9, 3.5688961595292206`*^9, { 3.5693396821781526`*^9, 3.5693396825213532`*^9}, 3.5693893658151007`*^9, { 3.5693895413934093`*^9, 3.5693895427506113`*^9}, {3.5697651043452682`*^9, 3.5697651089940763`*^9}, {3.5704647001766*^9, 3.570464712141821*^9}}], Cell[BoxData[{ RowBox[{ RowBox[{"conj", "=", RowBox[{"{", RowBox[{ "9", ",", "11", ",", "12", ",", "14", ",", "15", ",", "16", ",", "17", ",", "19"}], "}"}]}], ";", " ", RowBox[{"nj", "=", RowBox[{"Length", "[", "conj", "]"}]}], ";"}], "\[IndentingNewLine]", RowBox[{ RowBox[{"rpo", "=", "1.4"}], ";"}], "\[IndentingNewLine]", RowBox[{ RowBox[{"px", "=", RowBox[{"Table", "[", RowBox[{ RowBox[{"x", "[", RowBox[{"[", RowBox[{"conj", "[", RowBox[{"[", "i", "]"}], "]"}], "]"}], "]"}], ",", RowBox[{"{", RowBox[{"i", ",", "1", ",", "nj"}], "}"}]}], "]"}]}], ";"}], "\[IndentingNewLine]", RowBox[{ RowBox[{"py", "=", RowBox[{"Table", "[", RowBox[{ RowBox[{"y", "[", RowBox[{"[", RowBox[{"conj", "[", RowBox[{"[", "i", "]"}], "]"}], "]"}], "]"}], ",", RowBox[{"{", RowBox[{"i", ",", "1", ",", "nj"}], "}"}]}], "]"}]}], ";"}], "\n", RowBox[{ RowBox[{"pz", "=", RowBox[{"Table", "[", RowBox[{ RowBox[{ RowBox[{"z", "[", RowBox[{"[", RowBox[{"conj", "[", RowBox[{"[", "i", "]"}], "]"}], "]"}], "]"}], "+", "rpo"}], ",", RowBox[{"{", RowBox[{"i", ",", "1", ",", "nj"}], "}"}]}], "]"}]}], ";"}], "\[IndentingNewLine]", RowBox[{ RowBox[{"Plot8a", "=", RowBox[{"Table", "[", RowBox[{ RowBox[{"Graphics3D", "[", RowBox[{"{", RowBox[{ RowBox[{"Opacity", "[", "0.3", "]"}], ",", RowBox[{"Lighter", "[", "Cyan", "]"}], ",", RowBox[{"Sphere", "[", RowBox[{ RowBox[{"{", RowBox[{ RowBox[{"px", "[", RowBox[{"[", "i", "]"}], "]"}], ",", RowBox[{"py", "[", RowBox[{"[", "i", "]"}], "]"}], ",", RowBox[{"pz", "[", RowBox[{"[", "i", "]"}], "]"}]}], "}"}], ",", "rpo"}], "]"}]}], "}"}], "]"}], ",", RowBox[{"{", RowBox[{"i", ",", "1", ",", "nj"}], "}"}]}], "]"}]}], ";"}], "\[IndentingNewLine]", RowBox[{ RowBox[{"rpi", "=", "1.4"}], ";"}], "\[IndentingNewLine]", RowBox[{ RowBox[{"qx", "=", RowBox[{"Table", "[", RowBox[{ RowBox[{"x", "[", RowBox[{"[", RowBox[{"conj", "[", RowBox[{"[", "i", "]"}], "]"}], "]"}], "]"}], ",", RowBox[{"{", RowBox[{"i", ",", "1", ",", "nj"}], "}"}]}], "]"}]}], ";"}], "\[IndentingNewLine]", RowBox[{ RowBox[{"qy", "=", RowBox[{"Table", "[", RowBox[{ RowBox[{"y", "[", RowBox[{"[", RowBox[{"conj", "[", RowBox[{"[", "i", "]"}], "]"}], "]"}], "]"}], ",", RowBox[{"{", RowBox[{"i", ",", "1", ",", "nj"}], "}"}]}], "]"}]}], ";"}], "\n", RowBox[{ RowBox[{"qz", "=", RowBox[{"Table", "[", RowBox[{ RowBox[{ RowBox[{"z", "[", RowBox[{"[", RowBox[{"conj", "[", RowBox[{"[", "i", "]"}], "]"}], "]"}], "]"}], "-", "rpi"}], ",", RowBox[{"{", RowBox[{"i", ",", "1", ",", "nj"}], "}"}]}], "]"}]}], ";"}], "\[IndentingNewLine]", RowBox[{ RowBox[{"Plot8b", "=", RowBox[{"Table", "[", RowBox[{ RowBox[{"Graphics3D", "[", RowBox[{"{", RowBox[{ RowBox[{"Opacity", "[", "0.3", "]"}], ",", RowBox[{"Lighter", "[", "Yellow", "]"}], ",", RowBox[{"Sphere", "[", RowBox[{ RowBox[{"{", RowBox[{ RowBox[{"qx", "[", RowBox[{"[", "i", "]"}], "]"}], ",", RowBox[{"qy", "[", RowBox[{"[", "i", "]"}], "]"}], ",", RowBox[{"qz", "[", RowBox[{"[", "i", "]"}], "]"}]}], "}"}], ",", "rpi"}], "]"}]}], "}"}], "]"}], ",", RowBox[{"{", RowBox[{"i", ",", "1", ",", "nj"}], "}"}]}], "]"}]}], ";"}], "\[IndentingNewLine]"}], "Input", CellChangeTimes->{{3.5681365021632137`*^9, 3.5681365171392403`*^9}, { 3.568136560351316*^9, 3.5681365863097615`*^9}, {3.5681369135895367`*^9, 3.5681369265999594`*^9}, {3.568137821916732*^9, 3.5681378378443604`*^9}, { 3.5682072492149415`*^9, 3.5682072529901485`*^9}, 3.568209802830227*^9, { 3.5682216503836985`*^9, 3.5682217583046885`*^9}, {3.5682217912831464`*^9, 3.568221843465238*^9}, {3.5682219760654707`*^9, 3.5682221133457117`*^9}, { 3.568222159615393*^9, 3.5682221693498106`*^9}, {3.5682222565227633`*^9, 3.5682222578487663`*^9}, 3.5682224736283445`*^9, 3.5682227227607822`*^9, 3.5682227558640404`*^9, {3.568222818810151*^9, 3.5682228486062036`*^9}, { 3.5682230057764797`*^9, 3.5682230079916835`*^9}, {3.568223041952943*^9, 3.5682230548229656`*^9}, 3.5682232619601297`*^9, 3.5682233000709963`*^9, { 3.568223536645412*^9, 3.5682235381118145`*^9}, {3.568223591151908*^9, 3.568223591526308*^9}, {3.5682236491528096`*^9, 3.568223657483224*^9}, { 3.568223713222122*^9, 3.5682237532361927`*^9}, {3.568223800379475*^9, 3.568223827648323*^9}, {3.5682238887380304`*^9, 3.5682238893152313`*^9}, { 3.5682240287170763`*^9, 3.5682240612431335`*^9}, 3.5682241088076167`*^9, { 3.568224198772975*^9, 3.5682242396450467`*^9}, {3.568224282170721*^9, 3.5682243185031853`*^9}, {3.568224437890195*^9, 3.568224439590598*^9}, { 3.568224572253231*^9, 3.5682245867144566`*^9}, {3.5682247081762695`*^9, 3.568224733557514*^9}, {3.56822480520844*^9, 3.5682248433505073`*^9}, { 3.568224884206979*^9, 3.5682248959069996`*^9}, {3.568224982830352*^9, 3.5682250047639904`*^9}, {3.56822503870965*^9, 3.5682250803305235`*^9}, { 3.5682251223413973`*^9, 3.568225141451431*^9}, {3.568225234177994*^9, 3.5682252929588966`*^9}, {3.5682253775890455`*^9, 3.568225482140429*^9}, { 3.56822551694409*^9, 3.5682255297205124`*^9}, {3.568225573197789*^9, 3.5682255809666023`*^9}, 3.568225660698343*^9, 3.5682257301964645`*^9, { 3.568225765078126*^9, 3.5682257828933573`*^9}, {3.568225927026843*^9, 3.568225927416844*^9}, {3.568267062420238*^9, 3.568267081358671*^9}, { 3.568267188328059*^9, 3.5682672830358257`*^9}, {3.5682676367040462`*^9, 3.568267747979042*^9}, 3.5682678404716043`*^9, 3.568267882030078*^9, { 3.5682679252577534`*^9, 3.568267996612279*^9}, {3.5682680488879704`*^9, 3.568268061133992*^9}, {3.568268100914062*^9, 3.5682681150944867`*^9}, { 3.5682681672609787`*^9, 3.5682681709113846`*^9}, {3.568268272904364*^9, 3.5682683182536435`*^9}, {3.5682685202739983`*^9, 3.568268599194537*^9}, { 3.5682686348873997`*^9, 3.568268637773405*^9}, {3.5682686944951043`*^9, 3.568268872273017*^9}, {3.5682689420207396`*^9, 3.568269016947671*^9}, { 3.5682695040741262`*^9, 3.568269601153097*^9}, {3.5682696652380095`*^9, 3.5682696728352227`*^9}, {3.5682697489633565`*^9, 3.5682698308635006`*^9}, {3.568271156491429*^9, 3.568271160063835*^9}, { 3.568271244927984*^9, 3.568271369010602*^9}, {3.5682716250070515`*^9, 3.5682717312276382`*^9}, {3.5682717843301315`*^9, 3.5682718576814604`*^9}, {3.568271940673606*^9, 3.5682720536490045`*^9}, { 3.5682722259669075`*^9, 3.5682723223126764`*^9}, {3.568272370813162*^9, 3.568272411466833*^9}, {3.5682725893539457`*^9, 3.568272622238803*^9}, { 3.5682726936713285`*^9, 3.5682726960113325`*^9}, {3.568272741079812*^9, 3.56827275143823*^9}, {3.5682729218373294`*^9, 3.568272991070251*^9}, { 3.5682734285574193`*^9, 3.5682734302890224`*^9}, {3.5682734898811274`*^9, 3.5682735111595645`*^9}, {3.5682736115925407`*^9, 3.5682736313577757`*^9}, {3.5682738601945777`*^9, 3.568273987272401*^9}, { 3.5682763944346285`*^9, 3.5682764313910933`*^9}, 3.5682765128232365`*^9, { 3.5682766527398825`*^9, 3.568276660976697*^9}, {3.5682774496048822`*^9, 3.568277461663703*^9}, {3.5683784032731285`*^9, 3.568378422991563*^9}, { 3.568378459308427*^9, 3.5683784812420654`*^9}, {3.568378513440522*^9, 3.568378867046343*^9}, {3.568378915468828*^9, 3.56837896203491*^9}, { 3.5683790764299107`*^9, 3.568379270041851*^9}, {3.568380233530743*^9, 3.568380234388745*^9}, 3.5683804214954734`*^9, 3.568380471867962*^9, 3.5683805399464817`*^9, {3.5683812396077104`*^9, 3.568381293537005*^9}, { 3.568381339541486*^9, 3.568381420224828*^9}, {3.5684645223056345`*^9, 3.5684645572340956`*^9}, {3.5684651558539467`*^9, 3.5684651618911576`*^9}, {3.5688209923798466`*^9, 3.568820997683856*^9}, { 3.568821158754139*^9, 3.568821160750942*^9}, 3.56882222404881*^9, { 3.568822649274357*^9, 3.5688226508031597`*^9}, 3.568822723109287*^9, { 3.5693397221142225`*^9, 3.5693397223326235`*^9}, {3.5693899272912874`*^9, 3.5693899274472876`*^9}, {3.5693910617720795`*^9, 3.5693910848757205`*^9}, 3.5693911374166126`*^9, {3.569391214402748*^9, 3.5693912147147484`*^9}, 3.569391451944365*^9, {3.569391487793228*^9, 3.569391507620863*^9}, { 3.5693923162258854`*^9, 3.5693923173958874`*^9}, {3.569406068526634*^9, 3.569406086092265*^9}, 3.569690172138941*^9, 3.569780036185542*^9, { 3.570453906913044*^9, 3.5704539079894457`*^9}, {3.570454575670618*^9, 3.5704545899602437`*^9}, {3.570454765008151*^9, 3.570454772277764*^9}, 3.5708553779481487`*^9, {3.5709431726830034`*^9, 3.570943174555007*^9}, { 3.5709495710522423`*^9, 3.5709495907082767`*^9}, {3.570949647617176*^9, 3.570949673138821*^9}, {3.570950759321929*^9, 3.5709507772775607`*^9}, { 3.5709508127364225`*^9, 3.5709508405200715`*^9}, {3.570991123104905*^9, 3.570991124259307*^9}, {3.5709912161278687`*^9, 3.570991227937089*^9}, { 3.5709912804155817`*^9, 3.570991308776431*^9}, {3.5709914026885962`*^9, 3.5709914215490294`*^9}, {3.570991574429298*^9, 3.5709916038821497`*^9}, 3.570991652445035*^9, 3.570991830004547*^9, 3.570991865276209*^9, { 3.5709919181759014`*^9, 3.5709919260539155`*^9}, {3.570992027251293*^9, 3.570992050058533*^9}, 3.5709920901350036`*^9, 3.570992186979974*^9, { 3.57122255431676*^9, 3.5712225562355638`*^9}, 3.571223175338251*^9, { 3.5713153738729277`*^9, 3.571315375682531*^9}, 3.5713224026962075`*^9, { 3.5713224627875133`*^9, 3.5713224654863176`*^9}, {3.5713224965147724`*^9, 3.571322572268505*^9}, {3.5713226259637995`*^9, 3.5713226549330506`*^9}, { 3.5713308245340652`*^9, 3.571330884469371*^9}, {3.5713309160126257`*^9, 3.5713309422674723`*^9}, 3.571331071326499*^9, {3.5713311246629925`*^9, 3.5713311332274075`*^9}, {3.571331300334901*^9, 3.5713313470881834`*^9}, 3.5713314298931284`*^9, 3.571331594130217*^9, {3.571331632849485*^9, 3.5713316334578857`*^9}, {3.5713316704299507`*^9, 3.5713316709447517`*^9}, {3.571331783327349*^9, 3.571331790019761*^9}, { 3.5713319475956383`*^9, 3.571331948360039*^9}, {3.5713326567416835`*^9, 3.571332681717327*^9}, {3.571332736801024*^9, 3.571332753305853*^9}, { 3.571332796221528*^9, 3.5713328475768185`*^9}, {3.571332914344936*^9, 3.571332924672154*^9}, {3.5713330072586994`*^9, 3.5713330320471425`*^9}, { 3.5713330798612266`*^9, 3.5713330883320417`*^9}, {3.5713331731961904`*^9, 3.571333178266199*^9}, {3.571333407851803*^9, 3.571333426837036*^9}, { 3.571333542292839*^9, 3.571333557705666*^9}, {3.5713336117441607`*^9, 3.5713337055939255`*^9}, {3.5713337750608473`*^9, 3.571333798070888*^9}, { 3.5713366694988756`*^9, 3.5713366834765005`*^9}, {3.5713369716090064`*^9, 3.57133697359021*^9}, {3.57138272164856*^9, 3.571382756233821*^9}, { 3.57138283537276*^9, 3.571382866900415*^9}, {3.5713829070080853`*^9, 3.5713829086616883`*^9}, {3.571382939175342*^9, 3.5713830233374896`*^9}, { 3.5713831045200324`*^9, 3.571383106126835*^9}, {3.571383198260597*^9, 3.5713832448422785`*^9}, 3.5716785972796593`*^9, 3.5718167268987517`*^9, { 3.571838452469782*^9, 3.5718386879053955`*^9}, {3.571838766139532*^9, 3.571838773908346*^9}, 3.5718388425484667`*^9, {3.571838961763876*^9, 3.571838969236289*^9}, {3.571839027970392*^9, 3.5718390313399982`*^9}, { 3.571839741203645*^9, 3.5718397450100517`*^9}}], Cell[CellGroupData[{ Cell[BoxData[{ RowBox[{ RowBox[{ RowBox[{"Plot9", "=", " ", RowBox[{"Table", "[", RowBox[{ RowBox[{"Graphics3D", "[", RowBox[{"{", RowBox[{"If", "[", RowBox[{ RowBox[{"(", RowBox[{ RowBox[{ RowBox[{"a", "[", RowBox[{"[", RowBox[{"i", ",", "3"}], "]"}], "]"}], ">", "0.98"}], " ", "&&", " ", RowBox[{ RowBox[{"a", "[", RowBox[{"[", RowBox[{"i", ",", "3"}], "]"}], "]"}], "<", "1.05"}]}], ")"}], ",", RowBox[{"(", RowBox[{"{", RowBox[{ RowBox[{"Lighter", "[", RowBox[{"Orange", ",", "0.5"}], "]"}], ",", RowBox[{"Tube", "[", RowBox[{ RowBox[{"{", RowBox[{ RowBox[{"{", RowBox[{ RowBox[{"x", "[", RowBox[{"[", RowBox[{"a", "[", RowBox[{"[", RowBox[{"i", ",", "1"}], "]"}], "]"}], "]"}], "]"}], ",", RowBox[{ RowBox[{"y", "[", RowBox[{"[", RowBox[{"a", "[", RowBox[{"[", RowBox[{"i", ",", "1"}], "]"}], "]"}], "]"}], "]"}], "+", "0.12"}], ",", RowBox[{"z", "[", RowBox[{"[", RowBox[{"a", "[", RowBox[{"[", RowBox[{"i", ",", "1"}], "]"}], "]"}], "]"}], "]"}]}], "}"}], ",", RowBox[{"{", RowBox[{ RowBox[{"x", "[", RowBox[{"[", RowBox[{"a", "[", RowBox[{"[", RowBox[{"i", ",", "2"}], "]"}], "]"}], "]"}], "]"}], ",", RowBox[{ RowBox[{"y", "[", RowBox[{"[", RowBox[{"a", "[", RowBox[{"[", RowBox[{"i", ",", "2"}], "]"}], "]"}], "]"}], "]"}], "+", "0.12"}], ",", RowBox[{"z", "[", RowBox[{"[", RowBox[{"a", "[", RowBox[{"[", RowBox[{"i", ",", "2"}], "]"}], "]"}], "]"}], "]"}]}], "}"}]}], "}"}], ",", "0.06"}], "]"}], ",", RowBox[{"Tube", "[", RowBox[{ RowBox[{"{", RowBox[{ RowBox[{"{", RowBox[{ RowBox[{"x", "[", RowBox[{"[", RowBox[{"a", "[", RowBox[{"[", RowBox[{"i", ",", "1"}], "]"}], "]"}], "]"}], "]"}], ",", RowBox[{ RowBox[{"y", "[", RowBox[{"[", RowBox[{"a", "[", RowBox[{"[", RowBox[{"i", ",", "1"}], "]"}], "]"}], "]"}], "]"}], "-", "0.12"}], ",", RowBox[{"z", "[", RowBox[{"[", RowBox[{"a", "[", RowBox[{"[", RowBox[{"i", ",", "1"}], "]"}], "]"}], "]"}], "]"}]}], "}"}], ",", RowBox[{"{", RowBox[{ RowBox[{"x", "[", RowBox[{"[", RowBox[{"a", "[", RowBox[{"[", RowBox[{"i", ",", "2"}], "]"}], "]"}], "]"}], "]"}], ",", RowBox[{ RowBox[{"y", "[", RowBox[{"[", RowBox[{"a", "[", RowBox[{"[", RowBox[{"i", ",", "2"}], "]"}], "]"}], "]"}], "]"}], "-", "0.12"}], ",", RowBox[{"z", "[", RowBox[{"[", RowBox[{"a", "[", RowBox[{"[", RowBox[{"i", ",", "2"}], "]"}], "]"}], "]"}], "]"}]}], "}"}]}], "}"}], ",", "0.06"}], "]"}]}], "}"}], ")"}], ",", 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.06"}], "]"}]}], "]"}], "}"}], "]"}], ",", RowBox[{"{", RowBox[{"i", ",", "1", ",", "nb"}], "}"}]}], "]"}]}], ";"}], "\[IndentingNewLine]"}], "\[IndentingNewLine]", RowBox[{"Show", "[", RowBox[{ "Plot1", ",", "Plot2", ",", "Plot7", ",", "Plot8", ",", "Plot8a", ",", "Plot8b", ",", "Plot9", ",", RowBox[{"{", RowBox[{ RowBox[{"AspectRatio", "\[Rule]", "Automatic"}], ",", RowBox[{"Boxed", "->", "False"}], ",", " ", RowBox[{"SphericalRegion", "\[Rule]", "True"}]}], "}"}]}], "]"}], "\[IndentingNewLine]", RowBox[{"Show", "[", RowBox[{"Plot1", ",", "Plot2", ",", "Plot9", ",", RowBox[{"{", RowBox[{ RowBox[{"Axes", "\[Rule]", "Automatic"}], ",", RowBox[{"AxesLabel", "\[Rule]", RowBox[{"{", RowBox[{"xl", ",", "yl", ",", "zl"}], "}"}]}], ",", RowBox[{"AspectRatio", "\[Rule]", "Automatic"}], ",", RowBox[{"Boxed", "\[Rule]", "True"}], ",", " ", RowBox[{"SphericalRegion", "\[Rule]", "True"}]}], "}"}]}], "]"}], "\[IndentingNewLine]"}], "Input", CellChangeTimes->{{3.5681365021632137`*^9, 3.5681365171392403`*^9}, { 3.568136560351316*^9, 3.5681365863097615`*^9}, {3.5681369135895367`*^9, 3.5681369265999594`*^9}, {3.568137821916732*^9, 3.5681378378443604`*^9}, { 3.5682072492149415`*^9, 3.5682072529901485`*^9}, 3.568209802830227*^9, { 3.5682216503836985`*^9, 3.5682217583046885`*^9}, {3.5682217912831464`*^9, 3.568221843465238*^9}, {3.5682219760654707`*^9, 3.5682221133457117`*^9}, { 3.568222159615393*^9, 3.5682221693498106`*^9}, {3.5682222565227633`*^9, 3.5682222578487663`*^9}, 3.5682224736283445`*^9, 3.5682227227607822`*^9, 3.5682227558640404`*^9, {3.568222818810151*^9, 3.5682228486062036`*^9}, { 3.5682230057764797`*^9, 3.5682230079916835`*^9}, {3.568223041952943*^9, 3.5682230548229656`*^9}, 3.5682232619601297`*^9, 3.5682233000709963`*^9, { 3.568223536645412*^9, 3.5682235381118145`*^9}, {3.568223591151908*^9, 3.568223591526308*^9}, {3.5682236491528096`*^9, 3.568223657483224*^9}, { 3.568223713222122*^9, 3.5682237532361927`*^9}, {3.568223800379475*^9, 3.568223827648323*^9}, {3.5682238887380304`*^9, 3.5682238893152313`*^9}, { 3.5682240287170763`*^9, 3.5682240612431335`*^9}, 3.5682241088076167`*^9, { 3.568224198772975*^9, 3.5682242396450467`*^9}, {3.568224282170721*^9, 3.5682243185031853`*^9}, {3.568224437890195*^9, 3.568224439590598*^9}, { 3.568224572253231*^9, 3.5682245867144566`*^9}, {3.5682247081762695`*^9, 3.568224733557514*^9}, {3.56822480520844*^9, 3.5682248433505073`*^9}, { 3.568224884206979*^9, 3.5682248959069996`*^9}, {3.568224982830352*^9, 3.5682250047639904`*^9}, {3.56822503870965*^9, 3.5682250803305235`*^9}, { 3.5682251223413973`*^9, 3.568225141451431*^9}, {3.568225234177994*^9, 3.5682252929588966`*^9}, {3.5682253775890455`*^9, 3.568225482140429*^9}, { 3.56822551694409*^9, 3.5682255297205124`*^9}, {3.568225573197789*^9, 3.5682255809666023`*^9}, 3.568225660698343*^9, 3.5682257301964645`*^9, { 3.568225765078126*^9, 3.5682257828933573`*^9}, {3.568225927026843*^9, 3.568225927416844*^9}, {3.568267062420238*^9, 3.568267081358671*^9}, { 3.568267188328059*^9, 3.5682672830358257`*^9}, {3.5682676367040462`*^9, 3.568267747979042*^9}, 3.5682678404716043`*^9, 3.568267882030078*^9, { 3.5682679252577534`*^9, 3.568267996612279*^9}, {3.5682680488879704`*^9, 3.568268061133992*^9}, {3.568268100914062*^9, 3.5682681150944867`*^9}, { 3.5682681672609787`*^9, 3.5682681709113846`*^9}, {3.568268272904364*^9, 3.5682683182536435`*^9}, {3.5682685202739983`*^9, 3.568268599194537*^9}, { 3.5682686348873997`*^9, 3.568268637773405*^9}, {3.5682686944951043`*^9, 3.568268872273017*^9}, {3.5682689420207396`*^9, 3.568269016947671*^9}, { 3.5682695040741262`*^9, 3.568269601153097*^9}, {3.5682696652380095`*^9, 3.5682696728352227`*^9}, {3.5682697489633565`*^9, 3.5682698308635006`*^9}, {3.568271156491429*^9, 3.568271160063835*^9}, { 3.568271244927984*^9, 3.568271369010602*^9}, {3.5682716250070515`*^9, 3.5682717312276382`*^9}, {3.5682717843301315`*^9, 3.5682718576814604`*^9}, {3.568271940673606*^9, 3.5682720536490045`*^9}, { 3.5682722259669075`*^9, 3.5682723223126764`*^9}, {3.568272370813162*^9, 3.568272411466833*^9}, {3.5682725893539457`*^9, 3.568272622238803*^9}, { 3.5682726936713285`*^9, 3.5682726960113325`*^9}, {3.568272741079812*^9, 3.56827275143823*^9}, {3.5682729218373294`*^9, 3.568272991070251*^9}, { 3.5682734285574193`*^9, 3.5682734302890224`*^9}, {3.5682734898811274`*^9, 3.5682735111595645`*^9}, {3.5682736115925407`*^9, 3.5682736313577757`*^9}, {3.5682738601945777`*^9, 3.568273987272401*^9}, { 3.5682763944346285`*^9, 3.5682764313910933`*^9}, 3.5682765128232365`*^9, { 3.5682766527398825`*^9, 3.568276660976697*^9}, {3.5682774496048822`*^9, 3.568277461663703*^9}, {3.5683784032731285`*^9, 3.568378422991563*^9}, { 3.568378459308427*^9, 3.5683784812420654`*^9}, {3.568378513440522*^9, 3.568378867046343*^9}, {3.568378915468828*^9, 3.56837896203491*^9}, { 3.5683790764299107`*^9, 3.568379270041851*^9}, {3.568380233530743*^9, 3.568380234388745*^9}, 3.5683804214954734`*^9, 3.568380471867962*^9, 3.5683805399464817`*^9, {3.5683812396077104`*^9, 3.568381293537005*^9}, { 3.568381339541486*^9, 3.568381420224828*^9}, {3.5684645223056345`*^9, 3.5684645572340956`*^9}, {3.5684651558539467`*^9, 3.5684651618911576`*^9}, {3.5688209923798466`*^9, 3.568820997683856*^9}, { 3.568821158754139*^9, 3.568821160750942*^9}, 3.56882222404881*^9, { 3.568822649274357*^9, 3.5688226508031597`*^9}, 3.568822723109287*^9, { 3.5693397221142225`*^9, 3.5693397223326235`*^9}, {3.5693899272912874`*^9, 3.5693899274472876`*^9}, {3.5693910617720795`*^9, 3.5693910848757205`*^9}, 3.5693911374166126`*^9, {3.569391214402748*^9, 3.5693912147147484`*^9}, 3.569391451944365*^9, {3.569391487793228*^9, 3.569391507620863*^9}, { 3.5693923162258854`*^9, 3.5693923173958874`*^9}, {3.569406068526634*^9, 3.569406086092265*^9}, 3.569690172138941*^9, 3.569780036185542*^9, { 3.570453906913044*^9, 3.5704539079894457`*^9}, {3.570454575670618*^9, 3.5704545899602437`*^9}, {3.570454765008151*^9, 3.570454772277764*^9}, 3.5708553779481487`*^9, {3.5709431726830034`*^9, 3.570943174555007*^9}, { 3.5709495710522423`*^9, 3.5709495907082767`*^9}, {3.570949647617176*^9, 3.570949673138821*^9}, {3.570950759321929*^9, 3.5709507772775607`*^9}, { 3.5709508127364225`*^9, 3.5709508405200715`*^9}, {3.570991123104905*^9, 3.570991124259307*^9}, {3.5709912161278687`*^9, 3.570991227937089*^9}, { 3.5709912804155817`*^9, 3.570991308776431*^9}, {3.5709914026885962`*^9, 3.5709914215490294`*^9}, {3.570991574429298*^9, 3.5709916038821497`*^9}, 3.570991652445035*^9, 3.570991830004547*^9, 3.570991865276209*^9, { 3.5709919181759014`*^9, 3.5709919260539155`*^9}, {3.570992027251293*^9, 3.570992050058533*^9}, 3.5709920901350036`*^9, 3.570992186979974*^9, { 3.57122255431676*^9, 3.5712225562355638`*^9}, 3.571223175338251*^9, { 3.5713153738729277`*^9, 3.571315375682531*^9}, 3.5713224026962075`*^9, { 3.5713224627875133`*^9, 3.5713224654863176`*^9}, {3.5713224965147724`*^9, 3.571322572268505*^9}, {3.5713226259637995`*^9, 3.5713226549330506`*^9}, { 3.5713308245340652`*^9, 3.571330884469371*^9}, {3.5713309160126257`*^9, 3.5713309422674723`*^9}, 3.571331071326499*^9, {3.5713311246629925`*^9, 3.5713311332274075`*^9}, {3.571331300334901*^9, 3.5713313470881834`*^9}, 3.5713314298931284`*^9, 3.571331594130217*^9, {3.571331632849485*^9, 3.5713316334578857`*^9}, {3.5713316704299507`*^9, 3.5713316709447517`*^9}, {3.571331783327349*^9, 3.571331790019761*^9}, { 3.5713319475956383`*^9, 3.571331948360039*^9}, {3.5713326567416835`*^9, 3.571332681717327*^9}, {3.571332736801024*^9, 3.571332753305853*^9}, { 3.571332796221528*^9, 3.5713328475768185`*^9}, {3.571332914344936*^9, 3.571332924672154*^9}, {3.5713330072586994`*^9, 3.5713330320471425`*^9}, { 3.5713330798612266`*^9, 3.5713330883320417`*^9}, {3.5713331731961904`*^9, 3.571333178266199*^9}, {3.571333407851803*^9, 3.571333426837036*^9}, { 3.571333542292839*^9, 3.571333557705666*^9}, {3.5713336117441607`*^9, 3.5713337055939255`*^9}, {3.5713337750608473`*^9, 3.571333798070888*^9}, { 3.5713366694988756`*^9, 3.5713366834765005`*^9}, {3.5713369716090064`*^9, 3.57133697359021*^9}, {3.57138272164856*^9, 3.571382756233821*^9}, { 3.57138283537276*^9, 3.571382866900415*^9}, {3.5713829070080853`*^9, 3.5713829086616883`*^9}, {3.571382939175342*^9, 3.5713830233374896`*^9}, { 3.5713831045200324`*^9, 3.571383106126835*^9}, {3.571383198260597*^9, 3.5713832448422785`*^9}, 3.5716785972796593`*^9, 3.5718167268987517`*^9, { 3.571838452469782*^9, 3.5718386879053955`*^9}, 3.571838766139532*^9, { 3.571838857446493*^9, 3.5718388645757055`*^9}}], Cell[BoxData[ Graphics3DBox[{ {RGBColor[0.7333333333333333, 0.6, 0.4666666666666667], SphereBox[{5.214869202947836, -3.554310950391028, 2.411210070600467}, 0.255]}, {RGBColor[0.7333333333333333, 0.6, 0.4666666666666667], SphereBox[{7.9551123140629585`, -2.694350105008248, 2.744610744548887}, 0.255]}, {RGBColor[0.7333333333333333, 0.6, 0.4666666666666667], SphereBox[{9.298692918106337, -2.8869753357724486`, 0.184413252376878}, 0.255]}, {RGBColor[0.7333333333333333, 0.6, 0.4666666666666667], SphereBox[{4.036317047127267, -2.223875705206328, 0.2005784563998525}, 0.255]}, {RGBColor[0.7333333333333333, 0.6, 0.4666666666666667], SphereBox[{8.179900032796995, -0.889281432147307, -1.5862505505532845`}, 0.255]}, {RGBColor[0.7333333333333333, 0.6, 0.4666666666666667], SphereBox[{5.347888926891997, -1.0475497829032905`, -1.5687611588525774`}, 0.255]}, {RGBColor[0.7333333333333333, 0.6, 0.4666666666666667], SphereBox[{5.154603956711092, -6.408806156108559, 1.9554486830630382`}, 0.255]}, {RGBColor[0.7333333333333333, 0.6, 0.4666666666666667], SphereBox[{3.7227514141769538`, -2.934903448589884, 4.8092651715653805`}, 0.255]}, {RGBColor[0.7333333333333333, 0.6, 0.4666666666666667], SphereBox[{ 1.2815830692450876`, -2.219666918267925, -0.00009431944060711572}, 0.255]}, {RGBColor[0.7333333333333333, 0.6, 0.4666666666666667], SphereBox[{3.9195659804681453`, 0.2052663027820938, -3.690068409183111}, 0.255]}, {RGBColor[0.7333333333333333, 0.6, 0.4666666666666667], SphereBox[{0., 0., 0.}, 0.255]}, {RGBColor[0.7333333333333333, 0.6, 0.4666666666666667], SphereBox[{-2.663475350554561, 1.7565345705532793`*^-16, 1.358295608504471*^-16}, 0.255]}, {RGBColor[0.7333333333333333, 0.6, 0.4666666666666667], SphereBox[{-4.087318925031777, -2.466514975398433, \ -2.220446049250313*^-16}, 0.255]}, {RGBColor[0.7333333333333333, 0.6, 0.4666666666666667], SphereBox[{-3.9481747530246056`, 2.2250373601984865`, 0.00021820557347695946`}, 0.255]}, {RGBColor[0.7333333333333333, 0.6, 0.4666666666666667], SphereBox[{-6.600929289123933, 2.2311038412662842`, -0.23944232383529152`}, 0.255]}, {RGBColor[0.7333333333333333, 0.6, 0.4666666666666667], SphereBox[{-7.9009767161806606`, 4.430454713383563, -0.034966668901050824`}, 0.255]}, {RGBColor[0.7333333333333333, 0.6, 0.4666666666666667], SphereBox[{-10.651826703888613`, 4.436845077763216, -0.2836026387026047}, 0.255]}, {RGBColor[0.7333333333333333, 0.6, 0.4666666666666667], SphereBox[{-12.043504552133923`, 1.9998051966611783`, -0.7667852063335983}, 0.255]}, {RGBColor[0.7333333333333333, 0.6, 0.4666666666666667], SphereBox[{-11.931748958592422`, 6.602231036219992, -0.08225525094987507}, 0.255]}, {RGBColor[0.7333333333333333, 0.6, 0.4666666666666667], SphereBox[{-14.704830822908884`, 6.682445648461901, -0.7260599371997856}, 0.255]}, {RGBColor[1, NCache[ Rational[1, 3], 0.3333333333333333], NCache[ Rational[1, 3], 0.3333333333333333]], SphereBox[{-15.221743048234782`, 8.880020066728685, -2.2078937743091855`}, 0.178]}, {RGBColor[0.7333333333333333, 0.6, 0.4666666666666667], SphereBox[{8.899396137123855, -3.908897364942389, 4.114715741419429}, 0.1]}, {RGBColor[0.7333333333333333, 0.6, 0.4666666666666667], SphereBox[{7.992748568810903, -0.742272719481524, 3.4008564516189583`}, 0.1]}, {RGBColor[0.7333333333333333, 0.6, 0.4666666666666667], SphereBox[{9.008442027272741, -4.765260190419248, -0.6098646865305253}, 0.1]}, {RGBColor[0.7333333333333333, 0.6, 0.4666666666666667], SphereBox[{11.313479643249574`, -2.538480162591921, 0.43232301408399265`}, 0.1]}, {RGBColor[0.7333333333333333, 0.6, 0.4666666666666667], SphereBox[{8.76330504090098, 0.9833954796886937, -0.9577357512584818}, 0.1]}, {RGBColor[0.7333333333333333, 0.6, 0.4666666666666667], SphereBox[{8.870052100922678, -1.208769002057873, -3.500634516647988}, 0.1]}, {RGBColor[0.7333333333333333, 0.6, 0.4666666666666667], SphereBox[{3.2020810864769365`, -7.028549825763692, 1.7398585897487386`}, 0.1]}, {RGBColor[0.7333333333333333, 0.6, 0.4666666666666667], SphereBox[{6.009425343058154, -7.378357814268131, 3.5588757175099066`}, 0.1]}, {RGBColor[0.7333333333333333, 0.6, 0.4666666666666667], SphereBox[{6.209017102259517, -6.8530179555298485`, 0.24275881770402474`}, 0.1]}, {RGBColor[0.7333333333333333, 0.6, 0.4666666666666667], SphereBox[{1.7404429301981459`, -3.419711376269311, 4.528974925752826}, 0.1]}, {RGBColor[0.7333333333333333, 0.6, 0.4666666666666667], SphereBox[{3.886111547147487, -0.9228169584104742, 5.218851264497889}, 0.1]}, {RGBColor[0.7333333333333333, 0.6, 0.4666666666666667], SphereBox[{4.478583189445202, -4.020883335260933, 6.387854705621925}, 0.1]}, {RGBColor[0.7333333333333333, 0.6, 0.4666666666666667], SphereBox[{ 0.26712927477864357`, -3.9838318474541836`, -0.15709113671015373`}, 0.1]}, {RGBColor[0.7333333333333333, 0.6, 0.4666666666666667], SphereBox[{5.25300229354374, 1.0879568787632234`, -4.988506112813955}, 0.1]}, {RGBColor[0.7333333333333333, 0.6, 0.4666666666666667], SphereBox[{2.6616824226956752`, 1.6413780536672604`, -2.9167078034782667`}, 0.1]}, {RGBColor[0.7333333333333333, 0.6, 0.4666666666666667], SphereBox[{2.810777334269506, -1.2069464697931862`, -4.699452044267817}, 0.1]}, {RGBColor[0.7333333333333333, 0.6, 0.4666666666666667], SphereBox[{1.0203883875406166`, 1.76744541635184, -0.00002783052498023242}, 0.1]}, {RGBColor[0.7333333333333333, 0.6, 0.4666666666666667], SphereBox[{-4.294103018093187, -3.1398329183587794`, \ -1.9355251739643942`}, 0.1]}, {RGBColor[0.7333333333333333, 0.6, 0.4666666666666667], SphereBox[{-5.950602516247867, -2.1836453585045152`, 0.8312200468535239}, 0.1]}, {RGBColor[0.7333333333333333, 0.6, 0.4666666666666667], SphereBox[{-3.0470682891414356`, -3.8597577658933635`, 1.1042624159364158`}, 0.1]}, {RGBColor[0.7333333333333333, 0.6, 0.4666666666666667], SphereBox[{-2.935894343816625, 3.9877560719028837`, 0.18387768817683914`}, 0.1]}, {RGBColor[0.7333333333333333, 0.6, 0.4666666666666667], SphereBox[{-7.5980669562314915`, 0.48462038532931356`, -0.5860058058554208}, 0.1]}, {RGBColor[0.7333333333333333, 0.6, 0.4666666666666667], SphereBox[{-6.903404052672654, 6.177088756853044, 0.3113558276591548}, 0.1]}, {RGBColor[0.7333333333333333, 0.6, 0.4666666666666667], SphereBox[{-14.073353460622274`, 2.34092304697066, -0.6877759478452892}, 0.1]}, {RGBColor[0.7333333333333333, 0.6, 0.4666666666666667], SphereBox[{-11.523358651611446`, 0.6160670190566108, 0.667359507909542}, 0.1]}, {RGBColor[0.7333333333333333, 0.6, 0.4666666666666667], SphereBox[{-11.5404648102148, 1.2797459382315148`, -2.630105033157284}, 0.1]}, {RGBColor[0.7333333333333333, 0.6, 0.4666666666666667], SphereBox[{-10.979857747734993`, 8.296324131762642, 0.5416817701468233}, 0.1]}, {RGBColor[0.7333333333333333, 0.6, 0.4666666666666667], SphereBox[{-15.811129713270976`, 6.749118263850597, 1.0101284470066787`}, 0.1]}, {RGBColor[0.7333333333333333, 0.6, 0.4666666666666667], SphereBox[{-15.209789536084145`, 4.99742674481006, -1.797766576537123}, 0.1]}, {RGBColor[0.7333333333333333, 0.6, 0.4666666666666667], SphereBox[{-17.01116869616512, 8.858589591365654, -2.577809708872591}, 0.1]}, Text3DBox[ FormBox["1", StandardForm], {4.614869202947836, -3.554310950391028, 2.411210070600467}, {1, 0}], Text3DBox[ FormBox["2", StandardForm], {7.355112314062959, -2.694350105008248, 2.744610744548887}, {1, 0}], Text3DBox[ FormBox["3", StandardForm], {8.698692918106337, -2.8869753357724486`, 0.184413252376878}, {1, 0}], Text3DBox[ FormBox["4", StandardForm], {3.436317047127267, -2.223875705206328, 0.2005784563998525}, {1, 0}], Text3DBox[ FormBox["5", StandardForm], { 7.579900032796996, -0.889281432147307, -1.5862505505532845`}, {1, 0}], Text3DBox[ FormBox["6", StandardForm], { 4.7478889268919975`, -1.0475497829032905`, -1.5687611588525774`}, {1, 0}], Text3DBox[ FormBox["7", StandardForm], {4.554603956711093, -6.408806156108559, 1.9554486830630382`}, {1, 0}], Text3DBox[ FormBox["8", StandardForm], {3.1227514141769537`, -2.934903448589884, 4.8092651715653805`}, {1, 0}], Text3DBox[ FormBox["9", StandardForm], { 0.6815830692450876, -2.219666918267925, -0.00009431944060711572}, {1, 0}], Text3DBox[ FormBox["10", StandardForm], {3.319565980468145, 0.2052663027820938, -3.690068409183111}, {1, 0}], Text3DBox[ FormBox["11", StandardForm], {-0.6, 0., 0.}, {1, 0}], Text3DBox[ FormBox["12", StandardForm], {-3.263475350554561, 1.7565345705532793`*^-16, 1.358295608504471*^-16}, {1, 0}], Text3DBox[ FormBox[ "13", StandardForm], {-4.687318925031777, -2.466514975398433, \ -2.220446049250313*^-16}, {1, 0}], Text3DBox[ FormBox["14", StandardForm], {-4.548174753024606, 2.2250373601984865`, 0.00021820557347695946`}, {1, 0}], Text3DBox[ FormBox["15", StandardForm], {-7.200929289123932, 2.2311038412662842`, -0.23944232383529152`}, {1, 0}], Text3DBox[ FormBox["16", StandardForm], {-8.500976716180661, 4.430454713383563, -0.034966668901050824`}, {1, 0}], Text3DBox[ FormBox["17", StandardForm], {-11.251826703888613`, 4.436845077763216, -0.2836026387026047}, {1, 0}], Text3DBox[ FormBox["18", StandardForm], {-12.643504552133923`, 1.9998051966611783`, -0.7667852063335983}, {1, 0}], Text3DBox[ FormBox["19", StandardForm], {-12.531748958592422`, 6.602231036219992, -0.08225525094987507}, {1, 0}], Text3DBox[ FormBox["20", StandardForm], {-15.304830822908883`, 6.682445648461901, -0.7260599371997856}, {1, 0}], Text3DBox[ FormBox["21", StandardForm], {-15.821743048234781`, 8.880020066728685, -2.2078937743091855`}, {1, 0}], Text3DBox[ FormBox["22", StandardForm], {8.299396137123855, -3.908897364942389, 4.114715741419429}, {1, 0}], Text3DBox[ FormBox["23", StandardForm], {7.392748568810903, -0.742272719481524, 3.4008564516189583`}, {1, 0}], Text3DBox[ FormBox["24", StandardForm], { 8.408442027272741, -4.765260190419248, -0.6098646865305253}, {1, 0}], Text3DBox[ FormBox["25", StandardForm], {10.713479643249574`, -2.538480162591921, 0.43232301408399265`}, {1, 0}], Text3DBox[ FormBox["26", StandardForm], {8.16330504090098, 0.9833954796886937, -0.9577357512584818}, {1, 0}], Text3DBox[ FormBox["27", StandardForm], { 8.270052100922678, -1.208769002057873, -3.500634516647988}, {1, 0}], Text3DBox[ FormBox["28", StandardForm], {2.6020810864769364`, -7.028549825763692, 1.7398585897487386`}, {1, 0}], Text3DBox[ FormBox["29", StandardForm], {5.409425343058154, -7.378357814268131, 3.5588757175099066`}, {1, 0}], Text3DBox[ FormBox["30", StandardForm], {5.609017102259517, -6.8530179555298485`, 0.24275881770402474`}, {1, 0}], Text3DBox[ FormBox["31", StandardForm], {1.1404429301981458`, -3.419711376269311, 4.528974925752826}, {1, 0}], Text3DBox[ FormBox["32", StandardForm], {3.286111547147487, -0.9228169584104742, 5.218851264497889}, {1, 0}], Text3DBox[ FormBox["33", StandardForm], {3.878583189445202, -4.020883335260933, 6.387854705621925}, {1, 0}], Text3DBox[ FormBox[ "34", StandardForm], {-0.3328707252213564, -3.9838318474541836`, \ -0.15709113671015373`}, {1, 0}], Text3DBox[ FormBox["35", StandardForm], {4.65300229354374, 1.0879568787632234`, -4.988506112813955}, {1, 0}], Text3DBox[ FormBox["36", StandardForm], {2.061682422695675, 1.6413780536672604`, -2.9167078034782667`}, {1, 0}], Text3DBox[ FormBox["37", StandardForm], { 2.210777334269506, -1.2069464697931862`, -4.699452044267817}, {1, 0}], Text3DBox[ FormBox["38", StandardForm], {0.4203883875406166, 1.76744541635184, -0.00002783052498023242}, {1, 0}], Text3DBox[ FormBox[ "39", StandardForm], {-4.894103018093187, -3.1398329183587794`, \ -1.9355251739643942`}, {1, 0}], Text3DBox[ FormBox["40", StandardForm], {-6.550602516247866, -2.1836453585045152`, 0.8312200468535239}, {1, 0}], Text3DBox[ FormBox["41", StandardForm], {-3.6470682891414357`, -3.8597577658933635`, 1.1042624159364158`}, {1, 0}], Text3DBox[ FormBox["42", StandardForm], {-3.5358943438166253`, 3.9877560719028837`, 0.18387768817683914`}, {1, 0}], Text3DBox[ FormBox["43", StandardForm], {-8.198066956231491, 0.48462038532931356`, -0.5860058058554208}, {1, 0}], Text3DBox[ FormBox["44", StandardForm], {-7.5034040526726535`, 6.177088756853044, 0.3113558276591548}, {1, 0}], Text3DBox[ FormBox["45", StandardForm], {-14.673353460622273`, 2.34092304697066, -0.6877759478452892}, {1, 0}], Text3DBox[ FormBox["46", StandardForm], {-12.123358651611445`, 0.6160670190566108, 0.667359507909542}, {1, 0}], Text3DBox[ FormBox["47", StandardForm], {-12.1404648102148, 1.2797459382315148`, -2.630105033157284}, {1, 0}], Text3DBox[ FormBox["48", StandardForm], {-11.579857747734993`, 8.296324131762642, 0.5416817701468233}, {1, 0}], Text3DBox[ FormBox["49", StandardForm], {-16.411129713270977`, 6.749118263850597, 1.0101284470066787`}, {1, 0}], Text3DBox[ FormBox["50", StandardForm], {-15.809789536084145`, 4.99742674481006, -1.797766576537123}, {1, 0}], Text3DBox[ FormBox["51", StandardForm], {-17.611168696165123`, 8.858589591365654, -2.577809708872591}, {1, 0}], {RGBColor[0.36, 0.24, 0.12], Opacity[0.5], SphereBox[{6.585322472539166, -3.1242264270526015`, 2.577950766651566}, 1.1903004568009017`]}, {RGBColor[0.36, 0.24, 0.12], Opacity[0.5], SphereBox[{8.626902616084648, -2.7906627203903485`, 1.4645119984628827`}, 1.1938723648075746`]}, {RGBColor[0.36, 0.24, 0.12], Opacity[0.5], SphereBox[{4.625593125037551, -2.889093327798678, 1.3058942635001594`}, 1.1625678924767877`]}, {RGBColor[0.36, 0.24, 0.12], Opacity[0.5], SphereBox[{8.739296475451667, -1.8881283839598777`, -0.7009186490882032}, 1.1922153222488148`]}, {RGBColor[0.36, 0.24, 0.12], Opacity[0.5], SphereBox[{4.692102987009632, -1.6357127440548092`, -0.6840913512263624}, 0.9927516555891638]}, {RGBColor[0.36, 0.24, 0.12], Opacity[0.5], SphereBox[{6.764243927920533, -0.9683960784455738, -1.5775080127574201`}, 1.1628920151055262`]}, {RGBColor[0.36, 0.24, 0.12], Opacity[0.5], SphereBox[{5.184726157927952, -4.982052192117276, 2.1832505602568513`}, 1.190439410584325]}, {RGBColor[0.36, 0.24, 0.12], Opacity[0.5], SphereBox[{4.468552290262841, -3.2445000910091095`, 3.6106522948466457`}, 1.190548025774018]}, {RGBColor[0.36, 0.24, 0.12], Opacity[0.5], SphereBox[{2.6589500581861776`, -2.2217713117371263`, 0.10024206847962269`}, 1.1253183349388942`]}, {RGBColor[0.36, 0.24, 0.12], Opacity[0.5], SphereBox[{ 4.633476671469191, -0.42092177300862277`, -2.6297872390872845`}, 1.1686678866153495`]}, {RGBColor[0.36, 0.24, 0.12], Opacity[0.5], SphereBox[{ 0.6407915346225438, -1.1098334591339625`, -0.00004715972030355786}, 1.025839738003161]}, {RGBColor[0.36, 0.24, 0.12], Opacity[0.5], SphereBox[{-1.3317376752772805`, 8.782672852766397*^-17, 6.791478042522354*^-17}, 1.0760376752772804`]}, {RGBColor[0.36, 0.24, 0.12], Opacity[0.5], SphereBox[{-3.3756471115227633`, -1.233690515567272, \ -4.317035136879166*^-17}, 1.1687932099947653`]}, {RGBColor[0.36, 0.24, 0.12], Opacity[0.5], SphereBox[{-3.3058250517895833`, 1.1125186800992433`, 0.00010910278673854764`}, 1.0289442947952179`]}, {RGBColor[0.36, 0.24, 0.12], Opacity[0.5], SphereBox[{-5.274552021074269, 2.2280706007323854`, -0.11961205913090728`}, 1.0760826962707348`]}, {RGBColor[0.36, 0.24, 0.12], Opacity[0.5], SphereBox[{-7.250953002652297, 3.3307792773249236`, -0.13720449636817117`}, 1.0258106188343346`]}, {RGBColor[0.36, 0.24, 0.12], Opacity[0.5], SphereBox[{-9.276401710034637, 4.43364989557339, -0.15928465380182777`}, 1.1253355115916557`]}, {RGBColor[0.36, 0.24, 0.12], Opacity[0.5], SphereBox[{-11.347909979204609`, 3.2178972410551125`, -0.5252787598510738}, 1.1686500631247143`]}, {RGBColor[0.36, 0.24, 0.12], Opacity[0.5], SphereBox[{-11.291787831240518`, 5.519538056991604, -0.1829289448262399}, 1.0060089697829193`]}, {RGBColor[0.36, 0.24, 0.12], Opacity[0.5], SphereBox[{-13.318630688062932`, 6.642348200298842, -0.40423671431629515`}, 1.1686322579877293`]}, {RGBColor[0.36, 0.24, 0.12], Opacity[0.5], SphereBox[{-14.970656526657216`, 7.81256356336863, -1.4881032847707398`}, 1.1337187872076824`]}, {Opacity[0.5], SphereBox[{8.63844642064536, -3.5732612400936126`, 3.7360917496197943`}, 1.2357933686504747`]}, {Opacity[0.5], SphereBox[{7.982346316299241, -1.2818057315345557`, 3.2194772575319113`}, 1.235476938118349]}, {Opacity[0.5], SphereBox[{9.088660481236301, -4.246146858121774, -0.390345125045201}, 1.2355730589675256`]}, {Opacity[0.5], SphereBox[{10.756587715041261`, -2.634805072093197, 0.3638001558102846}, 1.2353780533600913`]}, {Opacity[0.5], SphereBox[{8.60205119495846, 0.4657853288558904, -1.131457997742889}, 1.2353871297692312`]}, {Opacity[0.5], SphereBox[{8.679314304013959, -1.1204720048613594`, -2.9715549166665793`}, 1.2356145987409288`]}, {Opacity[0.5], SphereBox[{3.7417228639005664`, -6.857263957342785, 1.7994437669185726`}, 1.235831756042301]}, {Opacity[0.5], SphereBox[{5.773135452723566, -7.110354160359513, 3.115656111425859}, 1.2355456477561668`]}, {Opacity[0.5], SphereBox[{5.91757970584381, -6.730238824003428, 0.7161424030046266}, 1.235713033204844]}, {Opacity[0.5], SphereBox[{2.2883013233566065`, -3.2857231022970277`, 4.606439843514081}, 1.2358903549200966`]}, {Opacity[0.5], SphereBox[{3.840961953037316, -1.4789189074860516`, 5.105649557858674}, 1.235839640489124]}, {Opacity[0.5], SphereBox[{4.269676972037823, -3.7207266631966673`, 5.951544432371517}, 1.2357521462040217`]}, {Opacity[0.5], SphereBox[{0.550080521567983, -3.491771322886063, -0.11330161625028846`}, 1.2160885328938789`]}, {Opacity[0.5], SphereBox[{4.884474700916567, 0.8440038456778132, -4.629651238079265}, 1.235887260061742]}, {Opacity[0.5], SphereBox[{3.0093439569368936`, 1.244456723732132, -3.130453927306445}, 1.2357996583165434`]}, {Opacity[0.5], SphereBox[{3.117236962515263, -0.8166230273850317, -4.420467104598807}, 1.2357603015255403`]}, {Opacity[0.5], SphereBox[{0.7357481578136856, 1.2744115132977705`, -0.000020067121240517554`}, 1.215846824723846]}, {Opacity[0.5], SphereBox[{-4.236948072732446, -2.953728418391867, -1.400547681622075}, 1.2357025058258972`]}, {Opacity[0.5], SphereBox[{-5.435616407118735, -2.2618266531189177`, 0.6014821906424632}, 1.2357979822662262`]}, {Opacity[0.5], SphereBox[{-3.334583590696663, -3.474678817389819, 0.7990548721387388}, 1.235767545619187]}, {Opacity[0.5], SphereBox[{-3.2182537156787347`, 3.4960739809732937`, 0.1326488234544845}, 1.2159849801037779`]}, {Opacity[0.5], SphereBox[{-7.31989716850656, 0.9718338847574606, -0.4893255846514677}, 1.2157337494382179`]}, {Opacity[0.5], SphereBox[{-7.181654212483737, 5.689904996205656, 0.21475705993111635`}, 1.216034289865974]}, {Opacity[0.5], SphereBox[{-13.512339088236871`, 2.246644100443872, -0.7096127108566131}, 1.2358277699890305`]}, {Opacity[0.5], SphereBox[{-11.667131957565656`, 0.9985454970556262, 0.27094818067159143`}, 1.2356247627619663`]}, {Opacity[0.5], SphereBox[{-11.679486200954633`, 1.4787434153296135`, -2.115153047992303}, 1.2359745373753002`]}, {Opacity[0.5], SphereBox[{-11.24538125443611, 7.823768513771956, 0.36763882919665475`}, 1.215917857231867]}, {Opacity[0.5], SphereBox[{-15.505361117722627`, 6.730690701329708, 0.5302654656089367}, 1.235479740145197]}, {Opacity[0.5], SphereBox[{-15.070226828707614`, 5.463139671507617, -1.5015635876654208`}, 1.2355124012820666`]}, {Opacity[0.5], SphereBox[{-16.49795596796186, 8.864735916998391, -2.471716691706597}, 1.1252864433636156`]}, {RGBColor[ NCache[ Rational[1, 3], 0.3333333333333333], 1, 1], Opacity[0.3], SphereBox[{1.2815830692450876`, -2.219666918267925, 1.3999056805593928`}, 1.4]}, {RGBColor[ NCache[ Rational[1, 3], 0.3333333333333333], 1, 1], Opacity[0.3], SphereBox[{0., 0., 1.4}, 1.4]}, {RGBColor[ NCache[ Rational[1, 3], 0.3333333333333333], 1, 1], Opacity[0.3], SphereBox[{-2.663475350554561, 1.7565345705532793`*^-16, 1.4000000000000001`}, 1.4]}, {RGBColor[ NCache[ Rational[1, 3], 0.3333333333333333], 1, 1], Opacity[0.3], SphereBox[{-3.9481747530246056`, 2.2250373601984865`, 1.4002182055734769`}, 1.4]}, {RGBColor[ NCache[ Rational[1, 3], 0.3333333333333333], 1, 1], Opacity[0.3], SphereBox[{-6.600929289123933, 2.2311038412662842`, 1.1605576761647085`}, 1.4]}, {RGBColor[ NCache[ Rational[1, 3], 0.3333333333333333], 1, 1], Opacity[0.3], SphereBox[{-7.9009767161806606`, 4.430454713383563, 1.365033331098949}, 1.4]}, {RGBColor[ NCache[ Rational[1, 3], 0.3333333333333333], 1, 1], Opacity[0.3], SphereBox[{-10.651826703888613`, 4.436845077763216, 1.1163973612973952`}, 1.4]}, {RGBColor[ NCache[ Rational[1, 3], 0.3333333333333333], 1, 1], Opacity[0.3], SphereBox[{-11.931748958592422`, 6.602231036219992, 1.3177447490501248`}, 1.4]}, {RGBColor[1, 1, NCache[ Rational[1, 3], 0.3333333333333333]], Opacity[0.3], SphereBox[{1.2815830692450876`, -2.219666918267925, -1.400094319440607}, 1.4]}, {RGBColor[1, 1, NCache[ Rational[1, 3], 0.3333333333333333]], Opacity[0.3], SphereBox[{0., 0., -1.4}, 1.4]}, {RGBColor[1, 1, NCache[ Rational[1, 3], 0.3333333333333333]], Opacity[0.3], SphereBox[{-2.663475350554561, 1.7565345705532793`*^-16, -1.3999999999999997`}, 1.4]}, {RGBColor[1, 1, NCache[ Rational[1, 3], 0.3333333333333333]], Opacity[0.3], SphereBox[{-3.9481747530246056`, 2.2250373601984865`, -1.399781794426523}, 1.4]}, {RGBColor[1, 1, NCache[ Rational[1, 3], 0.3333333333333333]], Opacity[0.3], SphereBox[{-6.600929289123933, 2.2311038412662842`, -1.6394423238352913`}, 1.4]}, {RGBColor[1, 1, NCache[ Rational[1, 3], 0.3333333333333333]], Opacity[0.3], SphereBox[{-7.9009767161806606`, 4.430454713383563, -1.4349666689010507`}, 1.4]}, {RGBColor[1, 1, NCache[ Rational[1, 3], 0.3333333333333333]], Opacity[0.3], SphereBox[{-10.651826703888613`, 4.436845077763216, -1.6836026387026046`}, 1.4]}, {RGBColor[1, 1, NCache[ Rational[1, 3], 0.3333333333333333]], Opacity[0.3], SphereBox[{-11.931748958592422`, 6.602231036219992, -1.482255250949875}, 1.4]}, TubeBox[{{7.9551123140629585`, -2.694350105008248, 2.744610744548887}, { 5.214869202947836, -3.554310950391028, 2.411210070600467}}, 0.06], TubeBox[{{9.298692918106337, -2.8869753357724486`, 0.184413252376878}, { 7.9551123140629585`, -2.694350105008248, 2.744610744548887}}, 0.06], TubeBox[{{4.036317047127267, -2.223875705206328, 0.2005784563998525}, { 5.214869202947836, -3.554310950391028, 2.411210070600467}}, 0.06], TubeBox[{{8.179900032796995, -0.889281432147307, -1.5862505505532845`}, { 9.298692918106337, -2.8869753357724486`, 0.184413252376878}}, 0.06], {RGBColor[1., 0.75, 0.5], TubeBox[{{5.347888926891997, -0.9275497829032905, -1.5687611588525774`}, { 4.036317047127267, -2.103875705206328, 0.2005784563998525}}, 0.06], TubeBox[{{ 5.347888926891997, -1.1675497829032904`, -1.5687611588525774`}, { 4.036317047127267, -2.343875705206328, 0.2005784563998525}}, 0.06]}, TubeBox[{{5.347888926891997, -1.0475497829032905`, -1.5687611588525774`}, { 8.179900032796995, -0.889281432147307, -1.5862505505532845`}}, 0.06], TubeBox[{{5.154603956711092, -6.408806156108559, 1.9554486830630382`}, { 5.214869202947836, -3.554310950391028, 2.411210070600467}}, 0.06], TubeBox[{{3.7227514141769538`, -2.934903448589884, 4.8092651715653805`}, { 5.214869202947836, -3.554310950391028, 2.411210070600467}}, 0.06], TubeBox[{{ 1.2815830692450876`, -2.219666918267925, -0.00009431944060711572}, { 4.036317047127267, -2.223875705206328, 0.2005784563998525}}, 0.06], TubeBox[{{3.9195659804681453`, 0.2052663027820938, -3.690068409183111}, { 5.347888926891997, -1.0475497829032905`, -1.5687611588525774`}}, 0.06], {RGBColor[1., 0.75, 0.5], TubeBox[{{0., 0.12, 0.}, { 1.2815830692450876`, -2.099666918267925, -0.00009431944060711572}}, 0.06], TubeBox[{{0., -0.12, 0.}, { 1.2815830692450876`, -2.339666918267925, -0.00009431944060711572}}, 0.06]}, TubeBox[{{-2.663475350554561, 1.7565345705532793`*^-16, 1.358295608504471*^-16}, {0., 0., 0.}}, 0.06], TubeBox[{{-4.087318925031777, -2.466514975398433, \ -2.220446049250313*^-16}, {-2.663475350554561, 1.7565345705532793`*^-16, 1.358295608504471*^-16}}, 0.06], {RGBColor[1., 0.75, 0.5], TubeBox[{{-3.9481747530246056`, 2.3450373601984866`, 0.00021820557347695946`}, {-2.663475350554561, 0.12000000000000018`, 1.358295608504471*^-16}}, 0.06], TubeBox[{{-3.9481747530246056`, 2.1050373601984864`, 0.00021820557347695946`}, {-2.663475350554561, -0.11999999999999982`, 1.358295608504471*^-16}}, 0.06]}, TubeBox[{{-6.600929289123933, 2.2311038412662842`, -0.23944232383529152`}, {-3.9481747530246056`, 2.2250373601984865`, 0.00021820557347695946`}}, 0.06], {RGBColor[1., 0.75, 0.5], TubeBox[{{-7.9009767161806606`, 4.550454713383563, -0.034966668901050824`}, {-6.600929289123933, 2.3511038412662844`, -0.23944232383529152`}}, 0.06], TubeBox[{{-7.9009767161806606`, 4.310454713383563, -0.034966668901050824`}, {-6.600929289123933, 2.111103841266284, -0.23944232383529152`}}, 0.06]}, TubeBox[{{-10.651826703888613`, 4.436845077763216, -0.2836026387026047}, {-7.9009767161806606`, 4.430454713383563, -0.034966668901050824`}}, 0.06], TubeBox[{{-12.043504552133923`, 1.9998051966611783`, -0.7667852063335983}, {-10.651826703888613`, 4.436845077763216, -0.2836026387026047}}, 0.06], {RGBColor[1., 0.75, 0.5], TubeBox[{{-11.931748958592422`, 6.722231036219992, -0.08225525094987507}, {-10.651826703888613`, 4.556845077763216, -0.2836026387026047}}, 0.06], TubeBox[{{-11.931748958592422`, 6.482231036219992, -0.08225525094987507}, {-10.651826703888613`, 4.316845077763216, -0.2836026387026047}}, 0.06]}, TubeBox[{{-14.704830822908884`, 6.682445648461901, -0.7260599371997856}, {-11.931748958592422`, 6.602231036219992, -0.08225525094987507}}, 0.06], TubeBox[{{-15.221743048234782`, 8.880020066728685, -2.2078937743091855`}, {-14.704830822908884`, 6.682445648461901, -0.7260599371997856}}, 0.06], TubeBox[{{8.899396137123855, -3.908897364942389, 4.114715741419429}, { 7.9551123140629585`, -2.694350105008248, 2.744610744548887}}, 0.06], TubeBox[{{7.992748568810903, -0.742272719481524, 3.4008564516189583`}, { 7.9551123140629585`, -2.694350105008248, 2.744610744548887}}, 0.06], TubeBox[{{9.008442027272741, -4.765260190419248, -0.6098646865305253}, { 9.298692918106337, -2.8869753357724486`, 0.184413252376878}}, 0.06], TubeBox[{{11.313479643249574`, -2.538480162591921, 0.43232301408399265`}, { 9.298692918106337, -2.8869753357724486`, 0.184413252376878}}, 0.06], TubeBox[{{8.76330504090098, 0.9833954796886937, -0.9577357512584818}, { 8.179900032796995, -0.889281432147307, -1.5862505505532845`}}, 0.06], TubeBox[{{8.870052100922678, -1.208769002057873, -3.500634516647988}, { 8.179900032796995, -0.889281432147307, -1.5862505505532845`}}, 0.06], TubeBox[{{3.2020810864769365`, -7.028549825763692, 1.7398585897487386`}, { 5.154603956711092, -6.408806156108559, 1.9554486830630382`}}, 0.06], TubeBox[{{6.009425343058154, -7.378357814268131, 3.5588757175099066`}, { 5.154603956711092, -6.408806156108559, 1.9554486830630382`}}, 0.06], TubeBox[{{6.209017102259517, -6.8530179555298485`, 0.24275881770402474`}, { 5.154603956711092, -6.408806156108559, 1.9554486830630382`}}, 0.06], TubeBox[{{1.7404429301981459`, -3.419711376269311, 4.528974925752826}, { 3.7227514141769538`, -2.934903448589884, 4.8092651715653805`}}, 0.06], TubeBox[{{3.886111547147487, -0.9228169584104742, 5.218851264497889}, { 3.7227514141769538`, -2.934903448589884, 4.8092651715653805`}}, 0.06], TubeBox[{{4.478583189445202, -4.020883335260933, 6.387854705621925}, { 3.7227514141769538`, -2.934903448589884, 4.8092651715653805`}}, 0.06], TubeBox[{{ 0.26712927477864357`, -3.9838318474541836`, -0.15709113671015373`}, { 1.2815830692450876`, -2.219666918267925, -0.00009431944060711572}}, 0.06], TubeBox[{{5.25300229354374, 1.0879568787632234`, -4.988506112813955}, { 3.9195659804681453`, 0.2052663027820938, -3.690068409183111}}, 0.06], TubeBox[{{2.6616824226956752`, 1.6413780536672604`, -2.9167078034782667`}, {3.9195659804681453`, 0.2052663027820938, -3.690068409183111}}, 0.06], TubeBox[{{2.810777334269506, -1.2069464697931862`, -4.699452044267817}, { 3.9195659804681453`, 0.2052663027820938, -3.690068409183111}}, 0.06], TubeBox[{{1.0203883875406166`, 1.76744541635184, -0.00002783052498023242}, {0., 0., 0.}}, 0.06], TubeBox[{{-4.294103018093187, -3.1398329183587794`, -1.9355251739643942`}, \ {-4.087318925031777, -2.466514975398433, -2.220446049250313*^-16}}, 0.06], TubeBox[{{-5.950602516247867, -2.1836453585045152`, 0.8312200468535239}, {-4.087318925031777, -2.466514975398433, \ -2.220446049250313*^-16}}, 0.06], TubeBox[{{-3.0470682891414356`, -3.8597577658933635`, 1.1042624159364158`}, {-4.087318925031777, -2.466514975398433, \ -2.220446049250313*^-16}}, 0.06], TubeBox[{{-2.935894343816625, 3.9877560719028837`, 0.18387768817683914`}, {-3.9481747530246056`, 2.2250373601984865`, 0.00021820557347695946`}}, 0.06], TubeBox[{{-7.5980669562314915`, 0.48462038532931356`, -0.5860058058554208}, {-6.600929289123933, 2.2311038412662842`, -0.23944232383529152`}}, 0.06], TubeBox[{{-6.903404052672654, 6.177088756853044, 0.3113558276591548}, {-7.9009767161806606`, 4.430454713383563, -0.034966668901050824`}}, 0.06], TubeBox[{{-14.073353460622274`, 2.34092304697066, -0.6877759478452892}, {-12.043504552133923`, 1.9998051966611783`, -0.7667852063335983}}, 0.06], TubeBox[{{-11.523358651611446`, 0.6160670190566108, 0.667359507909542}, {-12.043504552133923`, 1.9998051966611783`, -0.7667852063335983}}, 0.06], TubeBox[{{-11.5404648102148, 1.2797459382315148`, -2.630105033157284}, {-12.043504552133923`, 1.9998051966611783`, -0.7667852063335983}}, 0.06], TubeBox[{{-10.979857747734993`, 8.296324131762642, 0.5416817701468233}, {-11.931748958592422`, 6.602231036219992, -0.08225525094987507}}, 0.06], TubeBox[{{-15.811129713270976`, 6.749118263850597, 1.0101284470066787`}, {-14.704830822908884`, 6.682445648461901, -0.7260599371997856}}, 0.06], TubeBox[{{-15.209789536084145`, 4.99742674481006, -1.797766576537123}, {-14.704830822908884`, 6.682445648461901, -0.7260599371997856}}, 0.06], TubeBox[{{-17.01116869616512, 8.858589591365654, -2.577809708872591}, {-15.221743048234782`, 8.880020066728685, -2.2078937743091855`}}, 0.06]}, AspectRatio->Automatic, Boxed->False, ImageSize->{259., 259.}, SphericalRegion->True, ViewPoint->{0.4524891501162165, 2.999464131073368, 1.4994894115769506`}, ViewVertical->{-0.5097839227422976, 1.3550100889978616`, -0.4322861207774241}]], "Output", CellChangeTimes->{3.5718407118217497`*^9, 3.5718477526405478`*^9},ImageCache->GraphicsData["CompressedBitmap", "\<\ eJzsvIdfXNmVLvpdqT22x3dsX4/nzv3NjO0Odrfd7TRtezzubuUcyElCZBAi 5wxCgMg5Q5EpciygSEUsqEiGKlKRM0KhpZa6p23P+M1b55yCpj1+8/6A985P W/vUoaja69trfetbe5+Djq2f0113Wz9ne9vXr/jYejk52/u+ftnThy6d/B/A /zjJtNfBnP8ncPjff9K//3yN+Y+58v+f/3/xvJjtTmJt/TFk4kVsrT2GPfej Arb7Ora2nqChXob8FCEqkoWojxeiKVqI5vA2SAqkeLL8GDbcr/DY7hsYUy6A l9WGyiwhWjLb0Z3WgYHUTgyldGI4pR1DiUKIo9ownjsIa+5X89nub9DeNIjS nDZU53ZCmNOH/uwhyHIkGCuQYbJIiqmiYUwWDmIiV4TxlDbMlg7AivuIPLb7 Fva3D1CR04LqvH605crQnzsORcEUJstVmK1SY6FWDU3tDBZrJzFXNQJViRgz Wa14tfUIltxHpXMQMcdJ7or2OMH+/zdopM8U5akhK9KgzKMZba55WGrewFrr Btbb1rDWtgyNYB6z9VNQl4sxnV2D72ixlgwxOD9hX13lPj1D+yMuLv9T+1XM 2f9iz2sITOYQ5C6gv3AdI5W7UDU+wvDDJax1PMFW9xPs9DzGlmgfy93bmBMu Q90wAXVFJ17t7eGb7Gd9DUqlBlmEWinNY02CEA0xQjRGUB8kwEL3/GXuyzPZ 7u+ORnPY1HIVe602W42WvE0Mlh9grP45ZltfQpT2GLuN29gd+Ax74k+xLf4E qwNPMd+zDbVwHuqmIRyo1fifWhfZ3X6CvMw2lJCL1GcKIUxrR08KuUlyJ8RJ HRik0Ymj2zBdJMElblhZbPfdLw1rVj6P2jQZe62lYB+DVZ9gvPlzzHf8O1Z6 /4TpEhrW8J+wL/137Eh/j7XhV5gfOIBatAJ1pxIHC4vf0Hre3s5jlOS0ojy3 HU05InRnDUCcOQw5ed8oT4qJAgk1MTltLybIoRcrxbj434xMuoja5BFuZMVP MFD7KUZb/4i57j9hZeBPGCl+hl0ZjUzxH9hR/AFrss+wMPQM6oF1qPvGcbC0 xI3sm+BnN6EqrxsNuUPoylFiKHcCI0UzmCpXQ12pxnyVCvPVU5itHIO6VApV Tic0Nb0XuMEls91XsLn5BKNSDSYlGkyJNcd87IuBM8fs8AJq47mBN5U8RV/d p1AKP4e65/dYEv8B/fwXeDTwGEL6dhG17hIVOgomIGmagVo8hkfLi3/Nfti3 oRpRo4YGU5srp0icwkD+PBQly5iqWsNc3To0TRsYzVdgsVRJ5xqKFjKIL4OK J8DL7d3z3JgS2e6rGFEuIie9Dfw0IiAiozZikY5YapFCLi7ZUOUi9FuoTV1B Y/EBuuueQ9b2ElM9NPPkmMIKFRJDm1AYIUBluAC1oc2oDWhCrXc9qp35WB+d 18JyEo211WiuqWFfnfiCEujDySeOH+PVe1A3HkDT8gSr7U8wlDGDpSoZljt2 MUd0oG5UQV09gIMpFbRWJWgDQdgsQUk2hWB2OzqzOjGY0Q1ppgjKrG5qnZBT YEjjKBAKh7Rc9C76i6dQmzCPOt4OhNUHENPXiuqXkRLViOyYZhSHN6HxYQuE ka3optYT1QJRZAN6ImvR7FmEeD1f2Brq4i41RwNd3NOnpquL9uqaIzd4tLnL BXvWBOqzV9FVsAdp5VP22nzbK6x0fobulHls9n6Grb5XWO37GPPd+xTsS1AL lFgbEGstva+dPyaRNNZRIklsQzklkUpKIv1lcsz3a/CaNgi7msXgUwA2UpCJ yN0l5DljBUpMl45gtlyJOb4c6rIhQqMXkxlCzJX3a2frXTxaeYbqB+NElito Kt9CY5kaaWQxg0hZbDuqwkXoienDYOIghlIHIUnvp9aN5qACVLunoMYhDtkm 3nAz0oOHIbXDnhBy19XBkoqjPx4lvtoMNc3YNrpKn0FGkc0cC53/AXXrn7A8 9Ceiv//A9hBFtZiiuv8p8c0G1F2UCwQCLSqhbPeP2Nk6QEuTDMVEgg3U2tOF 6CXvHkgSsiTYRxTdc78NH69yGWNKOYMqSpB1ecPozBuDhDeD3phBTGYNQ1O/ gJWmBaw1zWGlcYYyHRFC+TBU2RRPW/tapH6C/dVPUBE3i0reEnJiW5AZ1Qxe dA9qo4fQGqNAT+I4JNljkOePQ1kwhm5CsO0+H4KQYjT55aDJKQYPbt2Bj4kB fE2Zpg833RuwOnMWt379AWLsI1hEMj2kyAlQoyljHwP8V+w1Rc3vMdn179hg UJL8O7alhJKEUBI/J+7boaaCqr31MExC2O6vKF8coDBLAH4OSYqcLvRm90Ca 1c8F5HcwmtVxFIyV6dXEOmI0506jj7eIkfI1DOaoMJo4hHXhDrY6drDTtYXN zjVohMQ6jdPEOgNYaes7qZ2UvbVXyI+SITWkGhkPelEYKUd9zAQ6U1Toy1iE tHABitIFAkgJEQVndxwFW3QDBA8qIQjIRqNrCPxvGSHgliHsL16A5ekzsD51 GrYffASP8zfZYeZ7yMALmdVKim+gPW8foqpPsTRIaUrye2zKPqf2GValRFyS j6GWEDjDKqyMKr4Mzj+hNLMOlbldlJTF6KOIUeSPYqpkArMVk+yHa2rGuLit IF8o6sVIQr02kY+jJXcFgyU7GK89wHzLMygzd7Hd8xx7/c+x3/8M2/2Psdyz i9kOkhRNo5RwBFywvkNfW4RYz3LE+g2A92CGssYi2jNX0Z66AFnyGJaI4vtS Bkn6DaA3tRcdyTTEeAFaIsvQGpKAaBtzOF65BNtz52BPjTnunT4Hpw/PsOeF nnIU3Z9nz9sy1lFW+BQTQqIZ8SssSYhyZC+pvcCy7Bnm5JTUFRRk0knsry0f IhSs5ZUZpQrVOe1oyJOjO28SssJZ9CTI0OeRh+WmZawLltmv2Wydx3LzDGWn Ua0cexutvG2IK59houkVFjs+x3Tj77EvfIZHw3/AgeRz7JCmWBXTEHq3oG6n DNbcg0/2tjE/q0JseAjLtBF2YYh0LECUUyNS3btRHTkKadku6kIV6A6XQk16 ciBrBOJsJUleOboyxWhNZeCqQ2t0NtLu2sH+/Hk4XLiIexcuw/n8Zc5vXsND w0AUu1ESCZujoF7iLn8dg0WLmOjaxyxpigXJEyxKH2Nevk85eRsq5TImJApo FYIP05080gOc3T9gk5wgV43+gmWM8jfQR7JvIKQPmx372CGm3xdxGWKta5Xt lUVi9EfXsOetRY8grn2JidY/YFH0H1gf+L9IPO3ikfxPOGAUj5ycXPoS84OU MXoXSYuJEWh3G7bGlJWM9cDF9VtI9x4gwyj4Ho6h7uEicfgERGHtFNObkBfM Y5CER1dGJ9rTetCSJkBrSiHiba1x9+JlOF68BueL1+F66QbcL12Hx6WrcL94 CYUOvSgJmsL9wF3UFO+ghTiiu3gO4upZTAzskTjawbR0CxOKdYyNLGNEMYtP XnxyiJY/273+JbG3v7mD2vROznQKKHHZHsbrnmCh9WPIeB9jr/0xaaZPcCB+ wb5nY+ARB1nlCPqJ7JlDQFJ1gLTWmPD3mO/9I9aG/ojJ1n/HY/krPBr5A3aV n2ONzueHydPFS69pvdPD2OBLUiTDfxilD0bQEDuDtnQNhvnb6MxUEFLTEBdO kfeL0ZTbjc4iBTp5InTlVaM0KBjxVvaIuaoLz6u34XXNCB7M+bWbcDhzCrlG EQi2kCMvZg3FybMUSbNoLphBe8koJKI1SAdXIJUsQSzXYFC+iLGpxYvHwbr2 JbDU0mlSZ4McWExsVVFsNX/KxtYGGc4cB5I/4gnpdTYmJRxos6TZ+4n2maOJ lF1v/Qso21+R/xBpDn2GDTmRZe/H2B2l8mOEqEH+MdHCI7RXtuP2xVPs75mc vcD2d353FuEGD9jzSFuuuCp+MIam1DlCbQxdlP0kFfPoo+w3UDRGimsEnST+ 26i1FFDxm1WIWIpJJyNLRLoGINMtFDlB4eC5uyHjnjOMf/o2ss6ZQXjHFrWx VHRFqpGbPENKbwJVhQq0tpBo7tNASEK8heruhbVHh2WO75GKPaZnv0rupaGo ogqnliqc1t+zUbUx+Cdimz9qU8hJPFL+EVuKz7Aseaq99l30ZlaivnAHnbWP IW17iskeQoVy7ZL0OcbaXmBzeB282EJqPOTG5sDZxASXf/kzXPvVv7CfYPUh kfOp8/C95IAo42LuY/8n4n26SEKL0JwuR3sO0yQQFcjRUySDiOr0ziKSEsV9 VPq0UDWVy3HKt+CpYw1PXXO46xjB+epNXPvlaeS4R0KS5IeB8nFEe+TA3SYL ISFtSM0ZQU7FODrlW5heeYorHD5+2uxz3KWYphLPcEktbYli6QAD9S8xKvw3 iqXfs7G0LfsjVoXPcTD6Bzwa/Rxbyk8pc3xM9Q6FeucYOjJaiPJW0VqxjdKM ASSF5lPu56GdP4SY4CKYXboGc6IQy0tXYEX0cuqt7+OjN17H6TfexPWfvMd+ t9PZy/C8YITDSUvylyDBpwW8+1QEUSYUZBMqOf1oyxfjULo0l9QjKzwcduev s1ccrnAB7XLTGK66RnC6oQMf21CY6dvg1qkLsLigA8sLN2B57hosz16C5akz qMtIu3Y84N76L+jURIm1gfOIAudjqug+ocB5RWL1UzZwFPVP8Vj5GB2V0yhN H0AqlUjZQQ3I9a1G3YNWpDo14OoHl6B36jJMTl/B7TNXcOnH7+LU66/D6IMz 8LK0g83lK9D79T/j9Jvfp/Ymzr/1Q1z50Y+0aLwJz8s3EHDZm30V7SxAsr8Q eeEdKI0ldDJ60EhVd3uZFI1U67IzWcIxI7+ADyfdm7A+xxGJ7WUOIUcdQzjp GcDhpi5uXbxJs3MTHr+zhh31DheZdp3aZTicP3NcxF/5b7Led6mumkV9AXFm zQEkbU8oXp6R4PiYXOU5uquXkRxRj7zoZlQ8bEJ9ZCOaw+vRElKJAttkpBnG IOFyJOxOGeM2AXXt3XdP4NIPX8df4zLhcOXNN+jyKej84mc4Q57DHBd/9Dau /Zjz5lu/ev9wfSn0RgLHTR5NSApqRnZEMwrjW8Cn+lfRv4qynBaUFjSz78kv qEOgi5PWob4Nm+v6sNXRx53LF2F0+izBQsr88k1Y/c4Kvlf0cY/Ona7eoPi7 Atfrl+Brog9fqnW89Vl4Lh9XTt/DPlNVRYyTVlxGS8UW+pp3oOjaw2T/I+KT RWTGkJNECdAY14j22FZ0UVXXR31rcDGq3JJR5ZyAUttYFBhEwv6DmwTEm7j6 zlu4zrY3ceWNf8L17/8Drr3zI5ylUDr31ttHfKb7059A72e/BjdJzPFNBOiH INi2AaGeDYgJrKf5qENWUhO6ezRoap9Eck4TImNyuXC8bcz2FheundCCc/uq Du5QRJmROLh14RruEDg25C8Bd5wQcsEaztdvwuXGDbjeuELA6JKCN4C/mT78 6TwvPPjyceH9S0yJNlGZMIeawiW01ayir3UdXXXTyHpYjfxYAcqiuwmUPiqo BjGYKkYvlb0tQSVo9i9Ag1c26t3TUHsvHnyzEFj94jfQefstGLz7I+i+8zqu v/GP0H3zH2D0kx8SMG/h3A/fxsUf/xjX3vsJrv/0n+FuG048dAq++ibwM6Cm bwRvAwd43Q6Dh1sd/AJrERLdiJI2DbqUW5hafoyW2jougsyM4HDb+JDM9c5x 1FOY2gOTc5dx6zwBc/EGbAkYd0NzuJ1yRIDOVaIkUlJ6108gyNyI3C3otgEC b+kj0EQHK7Mzl44Xtn+HvfVXJBYWwC+iianRoJAmKedhM4pj+tEQJ0V7/CT6 M6nALJxGGwVRa1gN2u9XoyOMj7aQEnZA1Y6RSNW1Ikx+CCNqJ7WOYfD293Hh B9/HuTffPlqSdbQMhwW5vMEvfgI/IzP4G5uSgLkELwNDGrQuXPUYA85AJPhi keNwoYc55mbVaG6o0776BsqzNQhxT4XxmcswPUvcT/xsTd5iT2nL6rwpwnQs 4GaggxALE/qcEAtjQiT4jhGCzQ0QdEsPvQ3VWkTC2O5t7FBV2VK3gZx0BdLI 2szIPhQ9HEF9PCFANZMoRgJZ4gDaI4XopjDqjWmj1oLOh43smGp80lHjFIJ7 v/sXmPzsbZj89EcweO8tGL7H8f31H73Bccq7v4DNrSD2XOcX70Hvn9+Dzbmz 8DI0gbu+AdwJERfiQyeDq8Shp7+QGVxh9z/ZX9xdfgFh5Tpu/vYC9D+8AsPT 12BGEFgQe1iTLrSlIAo874xgS9MTCLU0xVfof/JCSxv4WLghwNwV+RE5+JJT vPPFGlBSG/Lu85HsVYcUPzEKQ6fQn7eO+nA5RA+kmEyVQZ40iD4mcJIHMJDS B1FyN4TxrVxq8I3DA0oJJj97B2a/fAemv3ibNBcHg85b32P727p+5Nnn2fNr v3gXN3/5LizOnoYbBYorQeBsoA9HQx04GFyBWFCrXZr+W1hfvw5zsvIOKWCr G/qw16P3GRANWJjC5do9pFqYIdTKFAH2nvCh4A1zjEeMfRwSreOQZB4LQbgQ sgIZuzHypUL9JFqapCjSrnhzfvsd5Pu2gecvRVUYCfaYJdSET6MndR75tq0Y SlFClq+CkjdN5reih+hfxJOyv9mTwkeLny9K7J2Qamt3uO4ZRWSlQ8mGObxP /Qqn3uaSywXi0ss//zEcdA3gSE5wl6y3p8rU2vAGOmrqsLO6pEXgu/RzyhCG +nAyJqRMjeF5ywQ+d0wJATMEWprB18CXMk4sQt3iEesajzSnBOTdTUShfQIE gaUQJ7VDHCeEOKIV4zmD545nlL9DYWYTu4wjyOEKJklWL/Lcctjz4mCq86IX 0Jm6TiBsYCBnEx2pKygP6II0vglDuZNoS25jV8k6sga4sHiYrQ3ab8P0/R+z Z/o/o+zy85+x5/UPnGF5/hJ7/uG77+DUT9/BnZt6sNDVxR09on4PT7TWt0Mh lvyNdojC2hrcoyl3MiKZSgB43DKFNwHgxwBgY4P7zomI8khAnEcyslwzUOiS A75LHmo88tBLnDvBG8J4Xj/Gs7oxntQKNSnhsxwKQVpX6G4eRGVu+7HcdhKT VGl0x/VqXzHH9yEt2oMyfwOS7AU0kzsMUkUi5k1QG2ff0ZEzhMZ0LirC75ix vfGv3qX2Exi+/zaHxm9+wfYPaL4/oPzLHGd/+AbOv/sedEi8tfFFGFessNtD Epkaz5+/4JD4eyyqVHCkALhnRFqLkHAjV/AkJHwIiXCnAES4JiPRPRdRFrFI NI1GhWcF6v2q0BxUhdmKGShz5RCnDEAU1QFRaAO6vQqodJnGo5XHOM0hEqhd 4ptWTKM6uxV1uRJ05o1DwlNhsmz+MEmVeQ+xZ+URi2w/XLIDWRGV6KWr6MlW oidPiX4etQI6L5AdporQOyY4PI50xftv4NzP38IHb7+pvfY1XKTzGz99D9Yk 4a3PXYIVSWs/G2d0Dc/j2fNX39LikRwSSmRgCEcT8gzCwt2cvMLaGg/dYhBD s5/sUkMhmIxM23zUBbUQGbShk1SAOIMKyoxRyIj7JanDGIrrwdCDOvQHF6I7 rA2jecM4dRyPr6CvsY9U1yAac6fRm6+BsmxdO9o3MFk6x56VhcyyvZC3gwH+ FobL1qAsX8ZAwQR5hgTdPCrLeMMQ5g2gtbAXgkIqx3ILqKi4wv6e7vvEi7/6 MbUf4fx738MZ4tALlFasPjSC+a9+SYj8lIqMK7C+wBU9FtRsL11GdmgwRRsz zv+DhRkV7HX14UAu4kgu4nzbBGH2Xnjomo5otwokOLWi1KsDlUHdaHzQSyQ3 DEnuPBT58xjnzWE8X01uMgVpphyy5C7I4kohT+uEIkGIubLhj46j8hpq0gSo zRpBM6Xn/uLtr7BmvI7SgClUJi4fTXU/gTBUvgBZ5QzaeXK05PTRr3RBUNCF xqJ21BXWITsqmnKhEfv+q//8Y1x+/x2cee+fcOonP8A5AuEyFfFXf/IBHtyg gpXo0onqDGciDS8Sy6wuNNUjpUHaR606wkKlRkLYfdgRczqYGSPybjiinAvw 0KUBye6dKPWRoCp8GC3xYxjKX4eicBPjxduYLtnGTAmdlyzTNRVhI4Uiuxnj 2fWY5g1iOrMdmqqBD7/sIbUp3ahNn4aAMmc//zHGGl9qq4DXUeQ2cgSGoJDb 7mO26vr54+irW0FTfj8qc1pRUdCCssImFOSUUaAb4J6+PvteO8qMumd/i2u/ +RkMz3wAk7MfwfzcKXiTdAw18kMgaetgc2NW8oSYM7LHkBOEZgSK8Y1vf7Fd 9neIsItBhGPZ0Xiy3MmrqTQeSCbp/GAchT5iKNPaoK54BnXVY0xW7WCEv4yR 8kmMlIowXdqNucpJbnMztxW78il88GXyqE3sR23qHAQUCP1VzzEmoMq/648c C3wTc00fH317eSYXM42F42gplkFQqYKwQYUq/iB4xR1IyarG3Tu2sNDR5cLt fyEnJRtZscmwuHIB94wN4GpiCC8CwpdAuHf1HlJsHVgdGMo2Y2oEyB1DBN8m dWymg+XZGe0e/EkI6mpgSUT8BSH9HSIt49iz7JARVKWss+eZbtPI8JtFdeJz jPJfYKriBWarqBilSn26/jFG6zapzWKsZhDqmiEsNC9DXTcDNV+MtY6BLwN0 ErUxxCbJ82gs2DuS0X1Vv8emkltx4+bqe8jNmKHKcgIlREiFxVMorppCIZU0 FQ3TUIg20FDag+ToLEzKVjGqXIKMckZ6fDIlCD3SC4ZwM6Uy5JYx/MxNEEiJ IsY0gJWHYaSY7lsRM1gZI8SSgYdksrkeehqrtLrjq1iYVSH+QcjRKrAzfSZz uBvqaaH6W0Q7tBP7cPsZTamLlA+XMFh4AHnRAcZK9qGq/xia1ueYbqJ4EOxi rGUB401D0FAZtNi+C3XLEtSNYwRZ2yFEnkf1/8kvVgJ+wq4ENBTsUNX/FPKW 54j3EGGiYxMbUm4na2/kJdtvKZ9jSf6EPW9umMCAeB61FGGp2bOo5WvQ1qBB D337gEiDwUHqJRqIqCln1iEkZ2CVlhGDnDG8iTv9CbVA0pqBt7wRZ2eBMGtC jlqYtQlCrAg5S4o0C0KuqVqL3F8R35COpRLVkVBzMdaHBzUvY4PDRY0YByFS feTsq5q0eXQVbKO/9BGx42Moap9iovljzAoOCLQtjLVvY7x9gYAbxEbvS2hE T6Du3IS6XQV1ay9ePtr53bEVFHDS4vhaE3Oo+lZREz2J+tx1tFfuYYg+nTlm B55iSfKMPd9UctvJa8oDLCq5zYRpyQg+efaU/ZzR4QNkZy2gsFxD7qdBjZBa twZ9Y1uYWTlg38MqNa1UdTPjAPRjACSZGmxlhhR7X4TZmFE7BJAoy4oAtNRn AfyG1vWSHgTjLgOgiT4BaEAAGsLb1BB+Zobgcsx3kBnch/IYJdry14hKtzFI dsnr9jHatI+Jlj0oOrah7F7FeNcUVtqnsdK6AU3/C6h7ye16F6DuFuPlwe6X 0PvGX0SP6flBMpqrRTSXkhRu2IKsfedIwCxI9qCRUZN/cW1CMYfZaTX7u9wN GN+CsKaaJXQmMF0JHU9Cx5fQCSB0gqzNcP92MKLInUIInRAbEwRbGyPQ2hAB VnpHyCxSUDqSezGu5UTIuBP3MYcvBfnhdzPrAVHX048RyTdJbqyii7/BvpI0 bkAqXIOkaxmS7gUMtlMAKv6IqY4FaAafQy3eh3poEep+sTYmvf6sKP3WES57 VJiWR86QeNaguWIJouYVDHesYaRnHeMD65gcWiNyWsGoYglSxSKm1av4G+2d NI56eqySZTS9O2HhxWh6IqcA8hSPWw5IdnJDMGERRFgE2BjD38YQuXGh39BG mbCO4CRuYlKAC0HqSVznc8v4cCcumKRmlJkPYu7ZIdwo5XDJKTFQwAVe7hya Sjjx2t20gO42CsTOOXRSYKn697E2/AlWhz/GooQCTkYuI1uAaqBfC4j3saWK Q1c5oTXr+LXdlZcoeKhGaZ4GdRUaCBuJfYRfsE8/MU83NcX0OpeR/jfaqmup HDRgNa0LaVoPom5vIiBfQsafaDviThihQUgRIr42ZLK1AZbnOU873OS0oYxm b6ALBz1dtNfUMHUDt5n+NSSHBxO/cdnBlb7CkxzRl+E5+pogC9PDjQpm9SDU kqLTOBUhDtyKR0JoD3hpU5SQVKisVLPXqgWzaBMuYUS0g0XxU2iGnkAjeYQ5 OUGmXIdKocL+xsYHx6PsK38xyl7TDnBU9gTZOcQzRNYVjRzPVHdpeWb54Nta mBJDwqhiZjQuwUSJ352m25Ng8iaIXM28yHks4UXweJLTdApq2d9ispmdsZaX CQMmk3H3lOixi1Kd1dXcJH6dqoqbR6ngsOj2peoigL4i2NAbD+850IQzCw/f of+JyQirQIt7CLALZ615GDeBuKwZJBVx+yB19YRR1z4me/cwM0DYDG1DJdvE lHIVUyMajErHP/yL+e8EJwSYH/0a8aH3YUtVsAON6B4Z7UJGu5HKcSMeDbMP gjMlJM0C5wuJZCyThJzIWDcKEUpA7C0ifqZM04cvXfchP+kiVmLenxwW/Bct 9tPzQsS9uyx/hxBLhVLyCyHuDj7G3cxRHqRARcoiago53S9qWodYuA5Z1zqU lH+UwySm5ZxEkcjnqax9qbU4h+3ex7xaDUF9HaxoSm1vGcGOeMyWBG1ayEOq 1nh4NDbG8t9dJugpM7BWmTBZgbm3w4hEsBGJXkNK1QYIIOHrT9XAsnqGshIR hYH+Edd4MJXiTQ+E3b2LQCuOe4PZRnNrzRWoHO/qH3kqcxQT/zPrp8whbKLA 7aBg7tWgV8wFcefwAlOcakukBG2JpFh6BOXSAZSL1OYefU3LHHNqFZooXTZT O6lNE/o/1EepvjVk93QQ6+1GzEaqi0l/JiyzIYBT+ScQcseYdHAIYRPErG+S rT311drVAeJUCgsnE2PcveaGQHsH+FgwzGHG2hpozdhLGdma49QvtjY5MvsK Sms1qGzRoKqT4o9oanbt6eHaQKx2nDsff4qm8VVk9aiQQy23ixrxZm4rvW5S QdC/gt1Hr05qlxkF9TWwMiJG0gpIJwo3Jwq31NAQaGjMuqf9URgYg7agADj9 63n4/OYcPH/wHjzOX0IIlbdBN69zep44KeyQlyxIz5vrgxfFLWQlBYfirr4B LC85w8vaHu5EZ15ktw+xpp8Vx5z+1gxrmnCsacOx5l9pp2N971OIpzkVo10b itEGXfPEMrIHyDJq+f0q8PpUKCCrC8nqgk5qZDmvhX5WP4MWIipGN9uQi9qz uUkPrlqzPalnilVPYhz3Kya475CKfrEcO9trNGW6VOHow57ZPtAzhP+VGwj8 6BwSL19F0vvvI0rnKuL1riLs0mkyndzbXAcz8jEMp+fD8+wduJjb4S5T7ZOX uJlzi0JelgwbUvKgqfaiqWaYMCM27DpnXbRWUAgmNcgRq5BHjSdWo3BgDkX9 CyimdgLFAwv0nuI+utZDP2OsbZ6Boa71EbUcVrj+RCtu129QynVjaSUrlJuY e8zStiFHKV5/Jgf9LG4jikYbRdVt3JXzyDa4huIPfgujt3RQrmMOsc0VSjoc 5dnT7zuSdS70fldyBldyBFeiIBeivHZB7Q3Oqods9yYEE/PIFU8jb2iOrNKg SLyM4sFVlAyto1SygVIp05hz5hr9bGARDj73oW9qA3M9I5ZaWFllxsmrwFuG LLUk2wUi6q4VApjFBmOGXoiOyJWZkGOp5Ta3NstKOiuzQ9HBsEoQq+YMkJ+W AqOzASgPjIIk2Z3L28R8seHhLPPZaJnPjqK7rbkOC/Pqm5xxUdol8d2PXyBv YIymbB68oVUUijdQTPmkVLqLMvkeypT7KBvZR/kIc85c22YNNra5C0MrR+jr 3SZKMYSPmdHRRh7DKCG6Loh1tKXzLxYP8h4EkSKpYRep7zEL0Lc4neZryS5u niCTTClpM4c/hZUvGbg0rwK/oh9F2bXgp0ahpa7mBFpZmlugaD/M+XrHjfo6 WsZmkD9ATbyKAvE2GbRPg35MBjxF+egz8Mef0bfxJ57Rt/HH6drYY4Tm1cHU 0QPGDp4wtXGErb4R/A430r4HfwMrJHt4EWd8eQ0gwIwDNIkkxF1mJdVMGzQW HPf7UtD4avOANwVNF8kHJqjjKKPqnrJAKAXbPQpiZ+IxF33qyQHSQjgu+zOr 8nrk4PUvgjewhcLBA5RQsVWqIMk89pJseQX+1CuyqmL6FdF5xTRdm3yB+wUC mLn4wcQpAGb3PHDH0JhTZwQ7c2R436e63YSr3y2/qN8DzXW1GvTbbNQwq16O ZlzEMIc7RYy7NbcH26E1yZblKT2Wp/z0PODO8JOR/gmWqE7Ck4LXk6xbZlj6 uGX/hHzRODHhCgr69yi6nqFE9pKc7jOUT3yOWOEuEjp34Zmvhi/TsmeQ0roF n5R6mLmHwNQ9FLfcfWF6+w5ZZgo3fUNEWPmTkDI7Vl8ba+trssxC96SWpxeY SHkQDhvyXS5jfR2LxOOMMfbaspslXQpgv+te8NbeFHuC1T2vwc9Eq3wM2ODV 4YyKZLvvYffJU+RTvcjrWUNB3yMUDT9HieJTov+PEVazDr+MMYSnKxCXoUBy hhxpGTIkZI3iXlApDO28YeIVDjOfQJg52LOVXfS9cES6OpBmOqx5Temcqewo c1sRjVvqEr3+18qTrX+NufrXlRUABnC46IQka2tW6ZxgCek1rdIhjyarfQ1v 6vzZFLWTJaS+OEteILP3Cbyyp+CfokBE+ggSM8eQkT2O3PwJFBSOoahYidwi OQzIEj2nYJj6h8DE0QFuep4Id+K0EqOTQhgFSNYEUy4NpKAPoKDPjQ352pFc pRB1JO1171iN6k3M5kf0HXfHgzQLhSizWvkV+p+TbEHMxrUps3Gtws0/s6J1 Arx2mo/eR0jv2IFX1hh800ZxP40UduYM0nNnkVc8j2L+PMqq58CvUaGiZhKO AQlkRSD03Xyha+eMYGc3Kniuw9HwLFyouRmcJXq/Dv87ulrq0idFoPq6VuMI 66pIMDLOpM9Wlx5cdQl/0mARt/zZ8pJEyQl2hfE1Vouxe8239dDbWP0lG/4R rVRN81qXwRPtwTFLCuPYPuiE98AkvA93wgdg/WAQXvEKPMyaQiVV0DUty6hp nUd+wwx0nQOg60ra3D8IljdO467OGbjonoGH3hl4s+00vPQ+gtvND5AW6a9d bfg6Vx4zhZ4RUx5zhZ4PpacACjhvIy+k2d9iNmSIFF5j98tZRXVHH71NNX82 A2PqXSRWT8OGN4ybUa3Qi+mG0f1+3KFR2z0chmOcBC4J1GKpRQyjoE6D2u41 +MaXw88/CvfiiqB35Qwsr9Pob56Gi85pdvRe+jR6w1PwMvwIcc5GmG4owN7M +NcPDSDZ7mSoxxUkbKVqwlaqARRY7vrmiLPz0pZgXzkqwZjVuGAqSPqaa77s R9/DzvNX8CgZgllSO/QiW2EQKYLpfTEsH0rhkCCHS5oC7lkKeOXIYf6gEXqe xbjg4IsLphbQpyHcoprJ/cZ5WF09BRuaB0dmHgzOwM3oDNK9zTBUEQtNTxHm Owsx10zVimoMX9NuRBxWIIwQcjHhKhAfmgd2cZFkWsStMCI70y/VVkFWDEfQ fDRzd0gwTwzJ5RqMUUuLacP0sAYzgxrsrz65eJzFvobd5y+ROziFhI5x3I7v gsGDLhiGD8IsQgnrhInDZW5HMtYgqhKXA7JxwTEeZw0CcOmiIYzPncedX/4Y Vr/+JbGyAdaG+GhI9EFzig92ZHxsS/nYkpRjfagUy/3FWOouwIIgH58+3tWS 2T9wpYj+YSliBHdGNjDFpAWnjUItfRFz1/yo5Ao6XOqiIFwh/cA8g5GXKURZ hhD1qUK0JAkhjBOiPYr6MCEU+TI8WTo4/kwLlw3+D3slt3+EFbT5Q1y1Zhg0 CKNwBUyjx2CVOgvHvEWYp06wP7viGYvrtr7QsfTENetg6Ou6wu0378Phw1/B 9aNfwffK75Bob4hdRSX2RypP4NFIJZUNe8oKbMvLsSYpw/JAMZY7ediUCr6m BYDbmeQ0kwtFnoe5ds+aZtvVyAZJTh6sdAog4/21a1t+tndINLWgJEeImmwh 2giAnrQOiFM6SSl2QprSASkBISEghu4L8Hz1QLuZH6ElLebIG5gkEaUhEbXB vnaNVMAiagqm8WrcSZuDTd7i4U011+1DcNM+CIaWzrhy2RJu127A/fwH8Dz3 LwjS+QghOh9gtD4Rj8erKdIeT1SR3QfjVdgZrcC6ohzLw4wHFJEH5H1Ny3TM xDvo6rO66h4JYlcKWI87X6xgRduGwM+aqcGIjYh1vakOy47JR2WeELXMU6bZ vejPHIQscxijOVJM5ksxzZNQE2Myl3nMqANjMQ14sbZ/WKdFHFuL4w1wu0nc q3+Ef9oyBfQ6PAo4MM7ZRuG8fTR7bnD3Acwd/HHLxgW3bprino0rPI2tKRFE IZxalEUUEizj0RZfiqWuSjydqsZjansTldggBJZp9peHSmj2eXi6MoLDqWd2 He30DGBrag07M1fY6N+DxWV7mJ6+AG9jJ3joX4G97nXSYoZoLq9DTW4ravL6 0JIrRV/2CGQ5kxgvnIaqVIU5vgqLlTPUJjHPH4W6RAJ1TgeW6/u01od/kXXf QH7PKMlNzueLBh+zfWL1FgLSVhFUuIsHfO5Od137KOjffcie33aOxB2nENy+ 6wVnmyA4O0cj8m4UUh0fItfhIQptH6LYMgpdwcXo8C3GcEwJnswQDFNV2Byv wIqSj2UZOYKkAM/WR3HoCaPKRUSF8+Ftn4gAi4cI1vPH/WveiDGIRcDVOAQb 2lHesoQwuQ78hArU5vShLmcEHSQWh3IXMFa8BBV/FQs1a2TuOlYb17DWuIyl +kXM1kxDXS6BqrAJL3d2cYbD4oF2yYU58rsnweslfdq3x6HzTyRP/w2+SasI 5O0jlM/tgOjejYP+PW6/77Z7DG67heFeQBK8XWMR6B7HPjxV4hSPqnuJqHdO RKNLPJQJZZDFlmA4ohhjKcXYm67GJjnFyighMUJIKAiJzdGvatNnu0CG3NRm pASXIT+oDEUePBQ7ZoFvn4lKu0zwbiei1DAFjWZpEISXgOdTgsqkYTRkzUGU swpZ0RYmK/YwV/cIy02Psd76GJttB9gU7mO5bQuzgiWo6yehru7BwfTMn2Ex trjCRUY3I6H2T2hXecrGPieWfAXfzF34lxzAPm7gaP/TyD0Bpl5xcInKg5dH CoI8UxDlmY30u2modcuDwJuH9gAeOgPzoM4VYCa7AZNpVRiLK8ZEej42JwmL ccJinLAYLcTTrVHtOsv30C2QoiitCemhZSgOqURtUB3aAprQEyTAYKgAw2HN qHLIRINNMrrt4lF/OwqJhtnkNXwUhYyih7cLefkTTNe+wELzS6y2fYqNjk+x 3fUKW93PsdJ1gLn2Tahb56BukeBgbuHQO45lCYoUIWnjDk5VFg09Z68ymJRP /gH8mT/gfs0T+JTt45pjAm64JJIaSMSdoDR43y+AnxcP973KkOBdgRK3MjT7 V6I9tAo94VUYjK6BKr8TiyUiqAraMZldj/EEHpb6iSimiDCmqB/n4dMXO9yK Nzegv0ZuVC2KQrl7iJmjP1wMafQQRuOHMZE4hC73EigelB1uFqf5TiM/jNub PqH9iLHClxgqfI7BkicYK9+BLEUJdUEd5kh1qrvJSbqUONAsaeHw0y4AKRUa NNfLUZAsRHmCEBUxQvSWyaHu05CfMO95HXnNVOwJV6gu2kfh0DMUy1+idOwV yiY/I7Soqf4NObJPYBdfB12vJOj7J8EpugA+wXz4eFYjyrsJsT7NqAtohPB+ M0SkrwYiajGa3IZZXi+m8roxlteJMV4bJnKqMFmaheUZQmu6GItj+ZzzfJ81 k08JMSdE+wB+qAK9kdydV+NpKsxkqTAeK8Z6XDXEyYMYTuqkIK1Dp0cmN8Gh kxCVPoO85hWmBZ+z11ZEv8dG3+fYHvg3bA28wsrAC8z1H0A9uAp1/xgOVg4B O9wi3N1+TNqkFWWUohuzhOhMF6IvRYjBRCEGKDX3kEZpD27D0+Un2pXd19Ey sIB8gYaicAcFRMzFMqqYR56jbOIFyqc/QfkM1f6ql0jrX4FxYBqMQ4iCYsrg 41sLb3cBYgJ7kBLUidpAAQSBdRCF1ZN3NGGRgFsu6MJCcS/Gi/ogzWmFIpeA 5eVgSVUKzXQRDnbHuXn8AdTKadbo4theoiLuDq72yDmIE7g1+5m8DSiTJ7GR 3oQp3gpmixcxwZuEPK0XvfdL2feUPlChnbcHad0nmGjhNt2Xel5irf8lNgY/ wbr4OZbFTzE7vA+1lEAcHsGjVc1hFHI7Z3+PPUKxlMROVS4Jndx29Gd3Qp5J bpAlwlRONypTWpAS34zAyCYEhjQipUqJ7FYVshpnIOhfQl79HPI71ind7aJQ 8gjFiscoGXtCiDJP25RNPyMiK595itTeeRiGpMLrfiU8XRsR7ilCfNAAMrya UenXDEFwK6q8m9EWxtzeK8R0IqW0qh7MV3ZBXtIFKa8W0twszKtKsLbcriWy b2JWwSmNYiofCgK4OyC64jYgSd/noOQ9wVJKOxardrBU/QhzVcTi5YuH620N Ya0oiZhBU/YKBmufQCngdt/nep5C0/8UK4NPSFwcYFG6h1n5FtSKRagk8rPH QfwO+MS81XkdaCP5MJgzjJFcGWYKFRAXDCMitQNR6R2IThPiYXIrouKa8eB+ HTKqFFRTkzZuUsEzcgCh2TOHpOKbL8R11wj21eHf2/ANroenSzcigxU4vPkv zVGJqpBFCOLW0Z2zhb7cGSzUDVJ6HsJSUw9GqkWQ8hshLczGwnjtV7XrltWU 5VnIIsZQGMQ9vt2dfEDwco+UrVBlv9LwHJr6z9h+vv4AkzXrGK3i9tAa7rei KHwctZnzOHywcqR9D1PdxG99u5gb3MHcMGElX8f0yDJmlHPY3dw51Imux9TB sc1HzvifojF3GD25Y1RaTGOmVI2HOg/xILYGcXn9SCR8k0h9JmZ1Iz61E3EJ zUhMb0ORSLsNIFRR/S6HRzL3iK9FSD6uO0VAj8A08uQAveUXgduBEbgVxD3o 5uPJ3TmcHdiH+ngley7JVWC8VIG5agVWGhXYaJFjrU0CjXAQ44IeijkBZBV5 lPlyj+3ZfJ81pTqm8ih5FAZzz+l2pj8jB+ZukNE0vqCs8Axrgk+x3PwC881P MNm4hdHGWSjrxex78oPkqMjgHFtUt4ahljXIKUuO9qxiXLyCMekSRihfjIws Ym527dxxYP/SZvjP2Wu12WIIcpg/OLFI1q1iqHwevhFdSMroQkqRDOlFCqQV KJCaL0dSngQJ2X1ISG9BKVUxJQPzKO6bRVGnCj4pHGKXrR/gBol3fecIGLtz 6N72j4B5ECEcwr32c2jRMp0SLRlcpafkT2CCkFXVy7DYIsVKuwQrnUNY6BqA uofcVtiJyVYq57ryv9h/5fzlr8ELXkBN7O4RxJOVi5hhREjTCyy1kNO2EuW1 HJzUBs94Zy/KI8QoTl4En6fh3PWv0Ku980isvfOoj4r5CfWmto51PvrCE1rt +Ijcl4UwcxRt2YsYKiYWqd5HdFY/EijQEzIUyChRI7NkFpmlc0gvVyOlfApJ JSNIKuxHdpMCZdI1lA6vEJSLuOsbxn7eFSM/XLeJhJ5jJMm9KM5B/aMO7yDx vWOPKIM8JDi3HD3R0VsyBnntOKZbJrDQOYHVnnFsDoxhc2gEqxIFJUyq2Lo6 MNHJFIUF2BoRaM34wZFnHB6P1rjapDaJq1UqozfQmrELQf4a+fcBJuoOoGoi Jdeyj7nWXcwItzDWsYKRrhkohL3cXQWbW9jZ+BTZyXPgFWnAr9GgjlJsY5cG Db10TnXQ/PqTwweFnf/MSY8mGL8kYp1iX9elz0CYt45hKpOqi2cRyzhksRqR MTJkla0hp2ID2dXryKSSJK1Wg+QqNZIrlchrn2E3W8oV2+zukomtA4eokRm7 QW1j4QIHW1f2mrO1HR4aebDnXjd+h5Dr99nzzPA+VGdxDi6uU2K0ZQSqrhEs 9CkpnSqwLCWnVQxjfFCM0V4BvSaYh6n27s/94om5w+V/Fts4Lo5LIhZRn7qK jvx1DJRvQlazibHGTUw2r2OqbRVjnUtQ9sxBLhqFpHsQo7JJDpevYGP7U8im nkI5+xQjC0+x/eSzw0dIXI7KziMQh7VPfKbOQcjbxnDVU2TljyKWR+5ItVxM yhyyqYzJrX2EnIZ9ZDXtIZ3GkUo1XWoDqdmeRVQwGzujjxGWVwtTRzf284xN 7sDbjFt4DTLnti+CbzixD/yG3eJunPa6+SHbJ/t2UHXB6ZquGgmGqNoY6ZRi sk+CmWFqchLUsiH0dveSNqmiSo2iXV5MQOad+AK/v/0Sk7H+Gc7xem3OEsri 51CfvYB20ka9FRSStYuQNM9D2j6LIdEMBnun0NMlxzB3jwN0/jJg38X+GqcU alMW0ErFubjmGR5kigkw5raRFcRkriOnchu5DU+Q0/wU3ulSWN2vha5LMvRd E2Dkkw6XtFaEUSF8v7DpMHZNbe3hamqEAHMT7Z02J+GjcwreOsw68VkcPppS TPmuvmIY7U3D6OsYxlD/MCTDw+ilOBYP9GJOUYe1sQqq4Aij0WIsyfKO8Dj2 53e+if1VKgZiuIRTnU90nTRNqo6kTck02qqn0d48hfb2KbR2TaG5awKyyVU8 ff5K97/Nytwof04MMYdm5v7I6gOEpw8hJk9FxLeCaN4medMWHtIs2IQ1UB1P oNjHwuhuNEyI1Cw942HlFYs7gTkwdnsAQydvmLoH4Ja7O+xNjNhF5HuXzJEa fB/3rbRbTha68Nc/DW9dQsrwPCpS/CBvb0J5QR+yKC8VVw6jsnEY1a2Emqgf iiEhHlHtv0317uoE1bsThNR4ETSK3BNfZvLDnaqiPA2q+RqUEV2Xlc/QJ06h pGEKxYIpdEiXManZgz6Hi5d2NWmmdx01MdNoyFtFd+UWwlIGEZU1jdiCJSTx NxGSPk0ekYMb1nEwcabKwTEeZs5xuOORAFu/ZNj5U+8fSwAE4qK5Awxc/WDm 7QW7W8YINLdDKiXNECvTE+ze1HfYuzIDDBhPOQMP4/MoJww0siqsj1RjZ6IG +1O1OJiuxeMZaio6n6nG/nQVtqYIgynCYJpoabKINfi1P3P5r0Ihf4JGIc1c pQYFjRoUUjpUrT7Fo2efwfC4tP05eogyqtMX0VK6jMC4XtxPG0dU3gLiytdw 3ZHstUuCsUsmblNtZ+KcADPXONgGpMI+KAUOwcnUEmAXnIjLFna4Yu8KUz8f 2BhZIco9GB4m1+Fteh1+zPYP9f636Nz0Grsp4WZyHtP9fCxIyCBlFTbHOMP3 psj46Rp2wven6NpUFTZmqFZgytSZUixNFeLTl7sOnBXsTVx4BxubT6CQatBC yTPZZwAVORp4hncgMEGBsGwVHCLaccMpG1etYqBD7mtwL46sioOZexwsvMmF feNhG5SAu2GJ1OKg7x6K87aOuOrojKC7AbC7eRrOzGaQLrcZ5Ms2xoU/gvPV f0Wk6y1M9JRDLa7AooyzaIMs2ppgVnS3J6tJk2xNkpXT9DMVH0vqMmhmirGm Ed7lLHHX0vuoUoOcDCHK07kVeUGSEK2xQvDuNSDUoR6uVFP5pE7hlGMmfu2c h985Z+ND51ycds7BmXvZOGufBR3HJPLLKFh4RFL/AHah0TDzvE9S2QsGjh6w uH4KDuwG0Rl4aq1hAtLf4BR8DT5CjIM+2uIDoegoxURfOVRDFVggq5YVVVgd qSK6on6CccRKLM3wqWYrwxxVwWsrHY7H2eZ99g8YdQhkKMuhGp5aN9Xxg2SZ lCyTJwshI+tED1pwx7EWV8Pb8S/uefitaxZ+a5mIM44ZuOCchcsuWbhK7Rpz bpuJW27R0HX2whU7V1jbOSM0Mho6F34L86unYHfjNJzIMndmw87gDHyMqBmf QrKHMbthNFqVirbkIEg7yii78zFF86WWVGBOThaOVGB+nM4pvGbI26ZmyrC0 3IlPXu59yaqTKMlqZBfSOd5hjq9iIqcPx4/MlAb4xDbCOLjx6MmDMw5ZRz8/ XCz9yDERv7OMxUdmITinawrdi5eh99G/wvQXP0RBhBui7t2Cm+5Z+BieRYDp WWT43MJ4XTw2xaVYHaB0ISrCRE0qengPMdheBilZNSLmUwlRgXEltTF6TaQp nyyDWtPpdCxLkreJmkgN5bSiiQqv3lzuz7tNF4xivmwMyxVjWKsiPVzIPZv3 MLMV9uHNOHM3m3192jEPF1yzccWHx76+HsQ9zXjWOQxnLINxztAX58/dxt0P PoDZL96ByY9/AJfz/wpJeTx2aHR7hPm+ogKPFEzPx66sHJsSsmqwBMuiQlL6 edhamMDK8jQ6e8ogEpejR1KOsdlurO9M49mLPefjmvNd7G/tojqznuTDAIQ5 oxjK46TSQsUCVus02CIqnKiZoDKTewYzPkOE5NQWXLVJ4Sxy5eO8dyWuBFTg RhifvXbO2hPnze7iookdLpncxYWbbgj6zT/j1k/fwO13X4f/tQ8QcO13GKlJ wOPRKjwZY1olnoxW4hF51A5ZtibV7l2JeNiUC7yOj/rrUCumqe7oQl3WCLpy 5iAr4v6y0ErDNrZadrEv3NV6y/9GamY/MopJ7GUr4OjLjfCiewUu+jfickgT zvvycMqc+2MTF+544vItZ+gYmcPkmiHcz5+D+c9/CIcrRvA1soafgRXyPEzw dLzqBJ4ROX0VzyaqcDBeeWzjidl2KcRSTy68vow1+zco08Woz5iBiHKmgr/H futayzPsdjzHgeg5YuK5ddakMhUprXlE50ziQSqnvXWIjQ3cc2HgV4LTJh44 bcaN+rrxXeia2EPf1ALWFs64Z/cQvpb3EWUTgUSbh0ixiEKSaRRaInhY7arE c8oTH1N7TAbs0tDXR5htkjJWsy+L8/5s1JWxlahNlqMhYwE9RVtQVnNPsKy3 f4r54g1MlM4jvURBjbvtOqVkhXTiPB5kc8L0pksB9D2LOM8w9sAFU0/uurkb dO84w84zCk53oxDkFIlEhwjk2UeilCzg08j5VlFocklDF7O5E12MjymlP6aR 75KsWacoXVbSqBXkJdL8L436NcwOL7F/nLIhYxmikr1DBTpMem1l8PfH6OQk UkvWqDDdREzx8tE17/QF6HqWE9T8o72HK3d8cdPaGw4+8XB3S0SQcyxi3OKQ fS8WlXfj0eicBAFdb3WPR39IJhSxxZCGF2EkoYA0iXbQRJbLY5xqXVbkH3qI /X+nNP+a6lcNaqNHUJe5jK7SfRTHqDBIWm1F9Am2B15C1DCPVN4Yx5nfQ1zl OiKK5o94M6bqBdzTR3H2VgDO3wnEZasAmHvHwcMnDb4eGYh2y0KKRx7yKT82 U9/hx4MoMB89wbmQx5ZClVWLyZRyjD7kQc0vIH1BhkxWcKJygvh05L81BIfF y7vs5ZpwOerSFiEsoUKsbp8KvQMsiJ5gbeApOutUSM5VIoU3i+TSFSRXb3I8 Wr6AUFKVoSXc1lhCwzPokV8YuJLS8kyCT2QxfL0LEEhTluBRgSyfGpR4lqIj uJLd+hiIrMRQJB9z+e2YzhFgJl+AyQw+lNEZrDVr04w8JGumirC50Ko1xvaL UuK7R/XF8dpLxFOjOpGpAlbQV70BZcsWZrp2qDDexYp4l8hSgoTcaSSULiK+ mqOomLp5+GcucHP193BL6YWeWzxsQrPgfZ8PH+9a3PcUIMW3BRlBLWgNbYYo UgBxdAtksQKMJrZgjifCVF4H5JmNUGZWYyKzADONWVq9VwIN6b3PXu7iuBl/ 8W8Gf/O/WMT0pWFTqMrSoLVcg4GGZSiEK5jsXoO6fw1Rib2Izho5zMQP6xeQ KuK2enxzVxBUtsaeRzeswTy0EFahOfCi+fDxakW4VydSQ/uRFt4NIemW7vAm 9IfXQRJRg+X8TiwVdmG2WISxwnZIyeMkyTmYacmGhnTfIqP7loScAIfdUWyc 0FYif8mM3WXm+ZY58HM1EFRoIKJM1kT+JRdpUF4+grBUGfkUx1FJwmWUKDjf imvagFcet/gTVsX1XpEV8HBv4Hzhb5Dv3AC+RzPq/URovy/CdFwZ1vi9WKrs wBS/C/LiZkjzizGQFoQJcQZWVzq0WzT/Zez/D6HydYysHSCwRAmb+EE4JQ/C PXUQnmnUqMiyDO6FV8a49pf/HonCcTinc6uK5x1D2d47tBLePiJ4uXFrDpHe 3B8/zvdWozF1E5LiWSyVyzFNdfZa/RCWG3qx0NAORRVJzfJyDBWEQl4byf2V sf9XhmJeMncxZfXPsDej52pvSA8rV+IBX4lI6iNKlYcr9zF1ClhF5LOvDh+a 83ISwMOTao9IbiOohzKfsmgak1SfqMpl0NTIsNoow5pgGMutg5hv7YasoQPS Gj6rJDRt+Xg8P+pzPA98mx1UzuAMcplbbqgVDKpQ1K9GUZ8axT3URPS6W8Uu 4qaQcvNMHWW//bJNOK45PuAG97ewd0+Bp0MrAtz7kRWlQF0K99C0vHQCM7WT 0DRPYrVtDBvtSmx2ybEmkmKxdxDjHd0Ya2vAHImzZVEBFoU5h57gpF3Q4W6J mkTe0Ax4Q2oUiudQPLiAkv5FlBLxM0vNpWI6Fy+gdIB+1kuj7+K2KD68HYOr dhHsuaFbJA4f4zT1eYjQ21V4eIePeJdm8OPE7E+G+SOYqB/FXOsoVrpGsdEz iq0BJTaG5FiRSqge68OkqE579wwNuScPnz7d8T4+4u8gt1+JPPE04TlPo11C sXgVJeJ1lA1voEy6gXIZNTnTr9HrVZQNLSE4hZttAzMbGBq7wNrS5ZBZ420D EazLPc8S7VjH0h5z9FXIoGggD22TY65bjqV+GuSwFMvyYcxJxZD3iKCRVmJF xkgXyqfifDxdHdEO9p4W3rHVTeQPjNFgF1BAAy0Wb6JkaIcGtkeD3P+/u/vO 4LayLL3PvTVhXV6Pyx7Pru11ead2Z2tn2u4td033dJBEMYhBEkUxSsykmEQx ikkkwZyjmAkwk2DOOUcAJAgCzBnMmaJItTpM7/qX1+e9B1Ckpmfs30bV7Qew hYvvpnO+c+6550IoozJ1ikr5CT2pyI7o7wdwD4lmUZjZOsPKyAL+lxHpPwLP issFkPTUES+MvkSQXvSl76omfwwdFSKMNIgh7RBjpl+MhVERFsdFmJkQYWxo DFtTDWS8C7HF0Bcp8cXxAlzsynEN+k/RrlhEAXOqY2QLRSOH1MenKJe8RsXk BUF98wEqp9/QkqyceYOqmQv69Jr+/IoD8l9g4eQJi0c28DQzvXRO+ug7ItHF CRG2Zgh+eBN+96kYeiHIsR5pkd2oLhShrU6E/g4RRgm4eFSMoRExOvvE2FY0 4YQoDBtYwzreCLisEBf77wH/BQT9kygYWkXh0B6KR05QKj5HufQthPJvCCVN d9FrJHftwZs/Q2pjGgE5cpIOCzBxcMcjdz88ekrF1hEu5gTd2hwhNGlyXkR+ gAg7cxrSUJNbhJoLLw14dAc5cflIyxCDXyxBWbUEFY0SlDaLMSXqxpuFWmKM 1SzyPdYRRjpyhpDLC/D910fXkf8Ggl4FCgaUKBw8oEV4hrLxr1Au+xZCxe8R XqOEP38WoflyxGWJkEJUPjlXioTsSRgR7X5g4wkT5+d47PYMLo/MyaA2R7xT MHeg3d4CEfbmCLPQ4aAzhraVLmqzAshqqMaRogavZpggrlqcz9figgoTyXRG 0Fm6xfiv5hiCQnRLIfC7ivqXEHTNoKB3E4UDRzS/z1E28TXKp75DJCEOFMwh PGsCiTlSZFDJy52AIE+CIv4Y/MIE1OceePDEF6YuhNqSOffMQ8RTBzZ4NUx1 mJxnYwQ/Iw34mFCx0cWqiKaAtAoHU4wBUYPTWcZlczZXQ/bQ2Vw1G391MF+J 7QUh64DanC/Gxck0rsH+NQTt0yjoItj972BHCJcRlD8DXqYM8TkKZJAVkc+f Q3HRHMrLZyCskCMzp5U62gdGbn4wdnWHw0NPBDpYwsNEhw0/9qJ54UPFz1Qb 3ve/hBd1dpy/LRZHhFiXEKxJJkquGofTjP+MiDmZcEezjKOQTDgG8mI5NhZL sUY8yv86ZH6THAXtShT0HyKtex8hdatwSBmFY6IIgalypOYuIVdAYrFsDRXV 66im/1/bsIz6pnm4BSfDyINsiGd+cLWygpPhLRYu407ye6gB/4e3qDCL8gs4 av9PlMQ+xzQZ8YujjMuPCepjnGQ0F+SMHUGklSj4NhFX5WIFVpfKsEwk6fff nVyH/A9k+5+AR71mzxfjSZEUZkk9eBjVA1NePx4TH7MNJXIRI0Vm4SqqiLfV te6gsWMLjV3reBFfAguXAFhFxOPRl7+Fo85nlx4wP4IbYEzFhCAb30Bb2gvU RXqiNTMU8n4h5qi3l8SVWJVWYp2s+nWSG2sEeXle7Ssqw3ffnXKxPnBV8QtG Xyd0TMExdwjOBSJ1TNQjHudQUb+eRkoQnjaB8OxWROW1wNo/FtYOzxAf8Aze z5xg+uUnsLn9Kdyojz3VM9f0FtK8LUgJxrMuoNXuInRlBqMpOxSSASIRo5WY Hq/E7GQlZhT0nsTF1Cz17UYvvvnuVJUxEy6XSLkAE4ZZhNdPckj/BubhPbCM GoJD/BhcUiR4lsEZ71rOmdCzT4CFLw+a981gqK0L41tfwkdXE3Whz5Hx5BEq EnxRneSLplRfzNQl41hSjkNRGfZHS7E1VAxlTyGmqtIxP9GNbpoZA2MVGBqv wKC0ArvH83j77SmXxQPOKq/20VdfExfjQkAELLlYRkCJDO5kZHGK4j/BMn4U DulSuGXLYBTBRdLccU+HrnUMzI0d8eDOXbhracLys4/h8sWncP7dx2gIeooj iRCnE0KcSYV4PUmFnq8mKnA8Xk6EghAz4bfdBdiXtKlS+3Ow1CSweGwLpaM7 eFG2qMLyn2GZTMQwYwqGEULo+nKxj3etPXCPbG99i2DY3NBE1Of/HR4aX8BT 4zP4aHwCz5sf4xWtjXNaGxe0Nt7Iuef5FOck2yd+sMUEww4WYaOHJTRhV0nt T3D8houyE4xyLozi0T1CdkiE5vjSI2CXoMDj1FlYpEou9531HAJx155WtJ03 zGyew+O+E0IM3eFrGYMgU1+8uGeD4Ht30ZLsjTeKanw1XU3ffTvD+I0uaAW/ oll2KKvANrNhOlaMzSEmXFeOa/D+DoqtPQiGZi4nf8noMcrEZyifOCe6wgXn vEhfJsW0AcsQLnGjgSOPxHoILJ+GwcUlCs9cY0hGRiPbKQqZ9rHItYlB7iP6 bBaDhPve2O6sxNckxr8m0f2WCuPcekUQD+VCbEtJ8UioA0VMGK3ivc5rl82j YHDhEl3pGKlNyRtiKW8vvbjB+TtwCm/GA4fwS++vpw9Rao9khLrHIdk5AkVO sahwjEW1Qyz9m1qHGPwbCAll3/NiHPRW4pt5QkflDaF7Rdr8kOTJ9hTj/yFk 0iK82b+O7Mfgd0tIUK+QWuQs1FIRS0PUAdhV8/+EgKxdOIS3w/BJNB55JsA7 jI/nxPVDqaR4pCDnaTLKnZLR/DQN7Z7p6PZJQZdPIto94jAZVwJxcCGO+ivw lnT1m3kO2AEDTF7BEaQp6rJDxfsjyu+YQEHPKgr6iCANnxJBeoPyyW9YmlE5 80+onPtnVC38L1Qv/jOepfTjrlMcXHkEzT8XgT58xPoUId1dgGLfIjbstTug CIMEZThUgOGQPPS/yMRCVjVmkgliaBbrNzsneKcMfyOxtsV6bgiegvjbofwa ur9Fu2QZBZ2Ernef0L1iTwaWyzh0QgYddVzVAiEkdFkDm3js/xK+kWXw8S5G iE8NEn3qUeBbi5IXtegJrsFgeA3GoqogiRZSKYM4phTStCrI0sowk8rHSg1Z bixtIHREdLbmVURnukAtONTQFKvHELQSvO49FFHHlYgvUEYTrUJB8Ga/ZQ8q Vi18R9C+Q+XitzTpBHgeWA7/5w2I9OtEqn83CkO7UBTZjsHINoji2jCZ2Iap pBZMJjRgNodJRNiCiYxKSBKyoShIwinBOiQ2s6PaTmPYzJ6y431ox2ffgN+4 BEHnNtHHY5SIzlAqpRknv0AFUXTh3FcE7y0qFzhhk1glhq9XDfx8Oggal628 OGYUtTF97P4O4xvpCymHlFeC6eQarBe1Y66oGzJ+AyaziyBKjMREUcglY1ES Y1mdK8Z33x6roVmqliiTrq+FLClBWidKkqnEd2JRpMTJzoUqt8WfoW1oG/zW TZqS+5fLtlxxRtC5eBi1Oz0mpweR4SPw8x1C5HMusWJm6DByvXog9JVA4DOD kpBRrAnasF3ej01hN1aE7ZgqbSNzvgITuQkQ5XtAVPICKwR7aaGUYS0RHOJH qgCE46Nz9mIwYW4nmnM60Z3ViYH0TgwR+pzoNkTwWhCY0ItsMtuzOxfRLNlG 8/A28uuU4HftkkDa40TlxAECCtrVwQaBPl2XckptsBUkrKMnphcT6UNYLiDj TEi2Tu0YNusHsd7QhenadsiqqzBelAxJqSdG8t0hG8tkuIsqkh0W7OM/sneS led3oC6fEOd1YpSQT2Z1QZjaCl5iM8KohMc3IzSqGS+Cm5BZLaPpsgh+yyKS SsmyyKX33Zywsgvn496zyMt+f+QXxb5z9srAczcuUUxYJOcqaSINLi2awYJw Fht1c9htnKbCuEtE2GgZwVp7H2Zb2zHZUA1RRRxGhV4YFwZifaiKO6ECc/bx V+yVaFU0/+v5Xejh90KcNwBF7jByXnYiOqMDcRntSMxoQ2JaCxKSmxEbSy16 Uc+6T4qoJYVti0gpn4NXKqeu9J0iYfiUiyo0941SK1N7v0T4OrfSJBJDfRC9 J0+G8ZIpzFUrsN5EDeiYxlGPAsf9cuz0irExMIL53l5MtdVhsuUltsbI5B8o hLI7H78/P1INhdGf8lP9AlXZzJUvXWjLH8Vo3gQU+VNIChUiPruPbLk+pFF5 SSUjuxfpGd1ISetAEo1aVukwSgcXWXdRUdcibNzi2Rp17aNw3yVKTWksg6Pg YlOOKKfmy3Y1vhzBWJkUitpJLLfKsNklwx4ZyAfDUqJJNEgSERaHBzHZ1YiD yXL6TCJmlCEDAlxsyq+165Nr7VK/X5ByXsz63FH05Cowzl9ETuYg/Hj1ZKT2 4qVAgizBBHL5E8ihkkWf0/kjSM3pRVJ6C8pFjKdpFWmV3TB9ZM3WZXPXGLZW 7nC0f8Z+dnPhns8tXZFqH4pw4zLEOHF3eOSH1KG/TIzxOglm2yRY7hmHckhC fEGMzXERVsfHIBscxI60hkxGojsTKocNwyd25OpVZPiOHP7iWvuWJzla1pg9 hYHcZXTlzyMmsx9J+RLE0dTPLpxDXiEtnZJF5JUtIKd8FpllcqQXS5Am6ENR /xIqxrfByyhSZ2AyumMKP3MTBD4yRYilqXqLJ9HGHzzzOwg2MkPw4xpEu9ch I7Ae9fkDGCCZMN4qgrxXRLaNCPM0bjNUxgZF2Jc3kvleiQMFsSX1ntQEc9RG ca11P+iF//jyb9VJXJxsU8Y8hvibEOYrEJcjQgp/BnGpC8jjL0NQtgVB5Rb4 NZvIrVlHVvUyXlbOIL1CQrRihvVfheVWwsLpKcwd3WFuZgPnh0zmGS4NY5i1 GdJceEh0d0SEjSl4ZLr5GVrAzzodYd71yE/uQROJwO4mMQa6xBjqF6NvQIL2 HjEZzc04J0V9Sk1l/Veq+CvGDfTmQKFq6YPrLm6uyf+IumQpWjJXMFy0h/DU HsTnTiGVGpRVtImkhAUUVB2hoO4I/IZD5DXuI7thCz6ksHxTmxCU14Gw8hEY WtnDkix+C1cfWFg6wpZpmKUZQq3NEWjoicSnToiwM0OkrRnCTRlT+hb8HtDT xg75KXnIEIghoMYV0UyVjXZhkop6N5Rp2AnZp+/4UQnrJTo/vJyh71qmzh/D vIao5+sSptCctY6h0kOyS4dInsxS42h0inaRlHuAAhq1gsYzCFpewT9zFCZ+ fBgTvzTzSMAj70RYB+fDyDkIuqaPoW/pBMtnXrAwYcKgzOH7wA6p3n5sUgXG ARbJJFgw00Hgg1t4zhjh1rqozwzAHtlAx3JmN5oaw3pkLliPzAU17IyI3zE1 bu+qH4noVdRV6fIDYdJqG7EpS4lBpm0pI4jLorblryGzZIcNAkzN30ZB8xmc o1tgzGzKucTCzDUKj9zCYe1JNqRrKO7aeEPb1BKa5vbQfWwLQ4MHcNczR7Jn OJv0kWnbBwi3N2fivKyNEPRQA77GGnhuo4uRulSykIhXk313rGDMEqY91ez2 NdMuhtT+AT9b71A1zYx9/CNOts5RFTaJ+pdr6CXkvIQhxLycRlLeCl6WbiG7 eh+ZNSdwDauFqXcezD3SYEHmySP3WFi4RVArIvDYjQezJ89xx9wa2pZ20LGk 520thDpHwkXnNnyM9eFBo+JFJeiRAQIt9BFoqgMv41usA2ppuALrYhIRE0R0 ZYxxxbSoit2EP1a14qoDanWuiKVz15T0/0BP/jKqklbRWqDEi+g+RKRMkphY QHLJOl5W7cA3ZQDG3jTBXBJh458DC/cEthmP3KNpYkXBxiMCth483LNxgba1 A7RsbWFt6Q43I304kEHtQsXn3g3WIRXAlpvwefAlnHU/QUtxChT95awvbU1c SVKO8acRbCb8gQwfxim1taB2SpVjmaN3qgPgKqb0IXrKdlFFcyozTY7guHH4 pU3CM0sGX/40zMPqoOOZhzvOqTB0S4IZMwIE/bFHNGy8omHnFQUHb2qCbzT0 n7jhgWcoDLRu4f5HfwsnzU/wlIqXzu/Y8KygKyFaPIcHaEkMxmBNLmR9jIOq knNQTXCBTGsEf1XloJpnHFTzrINKdUpfRU1/hI6qA0QnyWHK68ED4o2mSQNQ u6k0XHOh5cbF+tx9kgwrgmvrHQ0HguroHwlTW29EuXnCjceD1odM5nEG8qdw 0/oUz7R+C5+7nyOA5Ja/6Q0SKR5Y6y7GUlshBvJi0V2bA/GAEJNjlVcilSoh J3klm63AykYvvv72VJVniJss6pvJQoSTsE5950IzDOcIpKaHAJquWdB0SOHo jHMmtG0SceeJBzTtnaBp5ww9B1c8sbVCnMM9+Op9AvNPfwOTTz+Co/ZncLlD XX33d2hM9cZMbSIORkqwM8Scui7CakcBdkbbsbE5j+2dBXSPlKNXXIG9owU2 Fumrb07jr06KH7MIeNUj8BX0su8fvGjC/YAWtW9Iz5fAumdAxz0VOl5cWNiN J/G4aRkOXSsH6Jk+goHmHdhq3ID5h7+C1Ud/j5h7X6LOxxGLZMctCqKxlP8C rycqcDZegVNJOY5EpdgdIbLVV4j1dgHOVhSpVxfbT7C+z4VCu6c1wjeNC87x j22H5YvOS6+VtqcA2r7cBpe2XxLXtU5B7FNL1wn379yB48efIuKzX8Hy138D Kyq2H/0KYyk8rJanU0nEWlkY3siEuJAx3rQKnBBJ2mdiiYaLmVMfWGnPS70q 0X6M06PXeJpUzv5KQBpZGGldiEnuUe/Nu0dx463jUwa9AM6tp+HKgdI2s2ef +mYBMDdyQayGERyp2H/yOew/+iVsP/xvED53xnpNJtZrU7BRHYW3JKje0nw7 lwtxKqvA/kQZtkSkI4eKaLzzVeBMVdvXp4evkJBWAa8U7mAVL7UPsSmcuZiW MY7MnHHViP8lblty5w+cnnBbbjybaKTRoMabhyHOOAzhBjwE3DaHv84nUDbk YKMpDZsN0fhmhhBRuaCFe0qo9ln2XMq50kb4eL01pboT9hLWYPMgeEml8E1q Zn8qKnkcSWnclm82fx65RfOX1q+ZW8LlglETxEBnDmKCbRgqbMJR9IiKeTgE BJNvHI1UfW9stOZgsy0N+z2p+IZ079ck2S8YPTVNEBn6KyUdNUEQJQKc71xC NFHp4NP9Y9Rm1cErRnjpfIwjcyoti7iSYP3ybzkk8YtqNxDPV59++yu4+2XC 0y0RQU8TEKsyUQqfRKHaPgL19pFocIxAs1M06h1jUGkVjVbPBGy0p+JwNBff zlez3r9zFirxIHkFtpgj4zIaYynxoL2pa0j/AosTc6jL6IJ3ZAMCY0cRkTCN hJdER/OJmpbsEtM6QHLmEkrqDlHYcEDMTp2X/i/h6ZUOP/c09lO6exYEblxS 2Cq3ZHR5pqHPh4pvMnq8E9DqHoMBvwzM5GWzHsCvCelXDNK5KpwwVHSakDIH uqepU6cESL0K899jaXwZdcTJvHltCIoeR2TSPBJJ92QU7iGv4gj55ccobnyF 4qYzFLacEkc7QmSemIXj65GHUI8SJD4r46bFT9HsL8BIcDHGeAUY5eVjKCQb 3YGpGI3Mhiw65wMW2k9YNyXLukg875J43pxlo8+hnOJfB/j3pISYi5RF8H7R gaAoKSJTFok0biGj+JBAHiK/+ozAnaO49ZwM7DPw205o1Efh61sCP88qRHs3 4aVvOwqCOlDDa0ZrXBP6I6ohiamBNK4aE7FCiKJLMBwtwHhyAcRRyRjPicU2 s0ZYAlWJQyKGO4zfbYE5DF6E85Ppayh/hsWxddTFSRAWMoSgCCkikpeQmLtN zGMLqYVHENQz3XeGojYujia/nYhLVj94wV2Xd8xlhw6hJHIQjfF9qE/uxnhc O6aS2iFPbsVkUiNE8VWQ0dyfzBRCmpqNiZfBGM7wJiGYhyOWHNFIL5ZhY6GE IUdpP2xavfv0d6iNkiAlbBwBoVKEJS0gNHkevPRFvKzeRV79AQTNhyhoO2T/ dV7HPiLjOd0T4kskPpCTV8I4MZpTxGhJH0JLYCOmQgvYfpXGV2CB34rZog7I +IQ6j/o2LRyKEm+MZnlC3hRPNK4c60tlWOE25/4kYo5fMK+6lCX4+ksQEjeL F8mzNJ24VRMRy/kJ4yNnkJHIxYCUxcuQHzOH4qBZtKQtYTiZ0FBfLhd2Yq28 E0sVLZCVNUNWWgpJXgxmq70hKfLEcO4zTIuyscDtwyGdg3bv0grnPINc5hZh 7BKKCFRAuJz0zCxi87ljaWlVnOM/q3FJ7WLx9KmGl2vHpejMTlxCI8mtmoIl TOaMYZovwlLhGA7qZdioGsZaTR9W6toxWdMGWXU5JsqjMFPnA0mFJ0aKnqE3 yw3ffnf68gq898zoH6mEO/PqKthEeZoSPJ4CATHT4KlS6SSUzeBpbJWqf3+O wCAR4qIn2U+lOfMY5zOhUHIo6xTYb1LguE2Bo84pbLWLsNLRC1lzK6QNZRiv iaDiQ+9DoGiMgbKDj7NVuQrd/esG4pU4r5+glShvMYmd4KhZ+MZzqIyJxmg7 hl5KRUMv3mW/+RPCyCgOYX1kJ9qTujFTPYm1Bhl22mTY75rEYZ8Ue0MT2BoZ w1zfAGY6G/CadPMx6eZdljwUEbURkGnYih+G+INnY3+Mw4Pv0dJxiPQCLoz0 pnU0NOxC1brHxJdz6bm61l9eT1QQUIfK8CbUxzRhML8Hi03j1Dvj2OmTYHdY jG2RCErRKGYH+rExVofXpLGPCesuu/lFOma4AMr+vJd/fIW8s0i5qflf2ZS7 zMvUyBIWVk/Z94YecbB6yvEcXysfhBg3kJnZjszntSgMqUVVdD3qk+ogbxnD QvcYVgfHsD42hmWxCFPDIsyPdLGs4rWC8JEO3FPvfomJ54zkq/vx8Tvz+M/Y bKNeZg/x3Mz40mEb+tgEPEsTRFkmkBlfg+hntUgPqIUgoh4VifXoLOvCRJcI kwMijA+JMToohny0nyhDFb4iqfyaNNsx9dHu5Ls9rg1x/tWfpx5wMbnH5oJj cvn7mDEJBU3YBHwhlqYIoxJq4oYkF0eEPbwBP9s0BHnXIS6sHi8TGlCY14a2 VjHauki+dYsxJ+rgCAuz/0cozgjBkYK56V4V7TNFCCYue8BIJbCkk0o2U4di QolpJmH4mPJygJhrs5hEaR6m7/IhBz/mLgJ5bmSMNNdQRNowzhotRJjcgr/h Lfg4BSLEOxiRgcEY7SMhJmnGVzOk8merr2xPVrEOtyPiVDvqzazpIhystOHa DPpzTMuVKMjpRAVznVZWJ1rTaS2l0DO+E3W0rphkIh+oth1cjQ1hqaMHuzv6 cNYzgLvBXTZzbIDpQ4Sa+yH5mRPnW7IwQISxBuumCDTVRJidHiKf6NJ8JljM 1vN0NS5mLs8IMEqWcS0dzAqxpfK+bM4W4vxYgWty7dds7omS3HZU5HeiOa8T vbmdGCHUkpfcyZ+JpE6ImTQoUZ2YLJSSLb6E+7/9Ekaf3oLFZxqw/UITT25o wvWmFly+eIB0r2AEmz9EpJ0Z6xnjGWkg2ESDLEwNhDjoI8xFF/tSmmlTxAOI 4TNHGV7PMGNPLSHIR8QL9tSOFdJh6zOFyOAgc9l6f0OQX6EitwXV/A608Tsx RLAncrownd2NhawuLGV3YZk6f5GaMUPN6AyogtCuGK6GljAj2Jafa8Dhy9tw vaEF91taiHEIgaeGNjxvaiPE4iHCGdjmdxFKHe1rRh3+RB91OYHYGidoBP2Q OTIipyaQcXI88w7ylsqLsr5QjO+/O7mG+tcYbBlBbV4rmvO7SVz1Q5o7hPnc EawSsdosHMV2yQh2Sofo2YfJhBoM8crR41+KuHsesPjkFqw+uw3HLzXhRojd NW0Q5+wOHy0t+GhqwUtDC8EWRuDZmyHI7A58TG/D20Yb/TVpWB0TYoMJQiLk u2TC7xLqXVUkzwahXltiDobRbN7oQiYH2UAF+dXhKWpzSHrl9aArbwyiXClm 86awVqTATvk0DiqncVytwEntFJQFg1AkN2MioR5jkUIM+xfCS9OcYGvD4aYO XG/fQZhbNKKNTOCjo0NFG97aWvC4fRvBTOJMB/q7uQ7CvK0g7anAzJCQGGAl VhhnCcFeU7wfzVOO09NZZF2F/A8YauhFXXYHGknx9+fIIc1fwGLxCraEazis WcerhnWcN6/homUFi9mDmMkagOxlD8aTWjAeWYFG30w8/kwXtjf1YafjgkAL a3gy13Pr6sFLTxeeutp4duc2vIz14UeQcxPD8eb1KeQTfRjtF2JitBJT1NuK SSryq86SPiamJ/sq2r9GTVoNGTRE8jKnMJyzCHmhEivCbezV7eG0aR/nbQf4 qnMfr5rXsSygzudPQJ4rgjSD5kgK0deYPOS5pULvwy8Q5BwOZ517eKpLRf8u nhrow81AFy56mnC8cwNZiRHqo6fnF6fY2J7H9t4Cdg8Y78gCdjgPCXI5hNo/ qA6ZF5f0pTa5hWwcCdpezmGUv44yu0r1ntRFkRQnOdxJO3XgiiipmthqF4bi s2D3Sw0ISVok6X0Oax1D2OsZwkH/Hhzu3oWdgR54Do7gB/qh7E8heUfAahmx mjyJ9sxljBVuozlRAVEDd6nSzuA3qq25n+FIFZTBvA57JjCamYfn2t7o8vVD k6cRqsIFRCfy8eALElR2z8B/kYSlNhEWG5rUUDQvqeqVjYafsr749qw1jBXv EmE6wXrzOQ46uZtk3gy+Vd8wPVO+dglAVjWEGWEvov3LYKVtAaebmnDQvgsn bQM4aenjyW1dONzSoWlIq+ORxTUAP7incz1nLtsvcXK0Zq9hpGQPitpjrLa8 wm7XGY77X19eyKuoVL6DVD9EoymEtZYB7AiKx0cmcNO5C3d6/4xguWvqwU2L Wcgk8G9+gczQ0FLux7Teo57/+g+wVEUq0JixisHiLaLde1hsOcBG16F6c+zV 6NE7GDXL6rxAE40DCLXxgS3TIYTA7rePwbupS2LjLrzvGMDrjh6txzvwYNbj vTt4bvyADL7Qkv9XVL202qpT19BZoMRY1Qb7t+XObTWq/ZGdS1SS+jn19n1y QBSsSZjZaenBRVsfz3QMEPDRIwTeewhffQP40rpjbnf11tdCgMld9n5ePxMu PXrx1Sn9R/aMufV1vPENiqNWUJOjRHeZEqI6pTp8fV3ybtCYV1edHBakuqw0 dGCvSQueusuDQDl/aoVoGszn95iiT0UPgcak1h4/ZK9JCDQ3RF5ESPFVPvDX ONr+PfgJa6jiK9FB02OoUYnxTiJcA0S4RpnLOYhwEfkaGl2FsHQOmRGdMPtS G49v6cJOQ9UlujQ4BgZ48Vtb+N6nLjE0gN/Duwi3MkGYlTFC2cvHHiDA4n7x Ve70c0zJLtgEJrV1SrS1U9P7lOgdpqdIiXaieet75zja+T1Swvkw+vwOzG7o wUaDmx5uejRRSYY43bBBlO59UoQPPiCux9wHHG5N1Jh+OMSSuR/PsPg6n5TM XkCxcoFZJZXNCxxffK+yVf4cHXU1eEzzzew2FQ0D2NB7B717cDK4Bz9TI8To WNH8Yijaj+i/pgi3oSbaGLPZg19YGapHnPPl/zu019bA9SFzC4Ax8Xcu7Xyg 6r465oq2IBMbJD00Zytkq6PCszVm8/gG2aiBP1Z5SFweGLGJVT3MuEvfApi0 IEzyehvucogIPQfEW3KEJozJH85cUWL3kMY3FO9VlRLK3RnhzqR3pqr8qKog a+YaHCaZsDm11RYvH5izDCPU3vQyQS1zZ/G1qv4t1haW4MTc5cpenmIK38dm 8Kf2BVFVL6iqYCahr74TYphtN9L8AexVRmGqZWup8vWxmUMfmsCVSbSvuiDK jwD5Uy0BdubUZlskGT1mE6f6sJn2l1Byxb2v1kbMdQJ2JqYqUcktMG+qw4fq 8KbGuN0wQc7nX0BeXFx6dazeHVVTP4+OLhD4nPNxOhjYkHK1wVM9GyT4xMLj 55/h9OM7+JdydS2PVe1Qf7unTYoyIqp1udyZ9P6MTgynUVFlyat+VolBPXv8 b8JberUruEuPq4nnthBFH1B9XU5fnyXDYo7KOK8Za2ntGGUoer649PpwMLyT eTXRtweJyElzuDvsV3IHoeQPYEPQh5mIaqySep7LpBoS2vB25+xqX6qy6Kjp ICt0iLmKcySYy+HubtspkWG/fBLioCacVJMBXj6K9eJ+LOS2QZpYU3Kla9U2 bGP2KAaypzCZO3eZwuyoagWrOcQoqxeIqs3jsE6BTapuuawP8/x6fH148v6S qkkVEocaQEvGJIazF6AoWMN6xRYOanZw2rgLRboCb9q28bpNicPWJWw1TWO5 VoSlyjaczs6+V1ttUiPqUkVoS5/FWN4aZst2sFF9gKPGI8zlb+O8/whfdR/i dfcuDrs3sNWxiOXWSSw19eJsafF9bLGtxA6kaH+5BFHBFuaEh9hkjqASU9hs fIs3va/xVf8pzqjWg74dbPauYblnGktdgzhbW7oqp96/BfBnqIuTEelZwVjR LmarjrHReAZ5xXd4NfwWF/3nuBg8w+ngKfaG9qEkm3NpeBZLg0M4Xr9URCYq sfueImI/LwxtoyZqivp1FSNFO5imXuhNk2GlaQ9HvSd4NXCCs6ETHI8cYWds H6ti+gnxDBZHhkr+77UzzwrmSuW0VfQVbkBatYn+ihUoO3ax07uLA2Jrh8O7 2BNtY3NiE8uTa1iSzjL3Z12r/T/80dpPtr9FefwqGbWkrCpIadUrMU9zYJVG bWNQiU1SJ8oJJZZlSixMrUMmUagX3sP3/D4/u/YjLUQyS9KVaC5SYqBGCUkL acUeJWZIT82SblYw7gmqdHmFyPvbb65V+oMu2L/4gzYc7n+P9vZDVJECbmsm FUjVD1D1AyLudqXtgwuUc9UaX6c57LsfqRTb/sn3UCxfYH79AotbF1jYvoCQ +9q/cDLy/7v3+Ff/B7N39lA=\ \>"]], Cell[BoxData[ Graphics3DBox[{ {RGBColor[0.7333333333333333, 0.6, 0.4666666666666667], SphereBox[{5.214869202947836, -3.554310950391028, 2.411210070600467}, 0.255]}, {RGBColor[0.7333333333333333, 0.6, 0.4666666666666667], SphereBox[{7.9551123140629585`, -2.694350105008248, 2.744610744548887}, 0.255]}, {RGBColor[0.7333333333333333, 0.6, 0.4666666666666667], SphereBox[{9.298692918106337, -2.8869753357724486`, 0.184413252376878}, 0.255]}, {RGBColor[0.7333333333333333, 0.6, 0.4666666666666667], SphereBox[{4.036317047127267, -2.223875705206328, 0.2005784563998525}, 0.255]}, {RGBColor[0.7333333333333333, 0.6, 0.4666666666666667], SphereBox[{8.179900032796995, -0.889281432147307, -1.5862505505532845`}, 0.255]}, {RGBColor[0.7333333333333333, 0.6, 0.4666666666666667], SphereBox[{5.347888926891997, -1.0475497829032905`, -1.5687611588525774`}, 0.255]}, {RGBColor[0.7333333333333333, 0.6, 0.4666666666666667], SphereBox[{5.154603956711092, -6.408806156108559, 1.9554486830630382`}, 0.255]}, {RGBColor[0.7333333333333333, 0.6, 0.4666666666666667], SphereBox[{3.7227514141769538`, -2.934903448589884, 4.8092651715653805`}, 0.255]}, {RGBColor[0.7333333333333333, 0.6, 0.4666666666666667], SphereBox[{ 1.2815830692450876`, -2.219666918267925, -0.00009431944060711572}, 0.255]}, {RGBColor[0.7333333333333333, 0.6, 0.4666666666666667], SphereBox[{3.9195659804681453`, 0.2052663027820938, -3.690068409183111}, 0.255]}, {RGBColor[0.7333333333333333, 0.6, 0.4666666666666667], SphereBox[{0., 0., 0.}, 0.255]}, {RGBColor[0.7333333333333333, 0.6, 0.4666666666666667], SphereBox[{-2.663475350554561, 1.7565345705532793`*^-16, 1.358295608504471*^-16}, 0.255]}, {RGBColor[0.7333333333333333, 0.6, 0.4666666666666667], SphereBox[{-4.087318925031777, -2.466514975398433, \ -2.220446049250313*^-16}, 0.255]}, {RGBColor[0.7333333333333333, 0.6, 0.4666666666666667], SphereBox[{-3.9481747530246056`, 2.2250373601984865`, 0.00021820557347695946`}, 0.255]}, {RGBColor[0.7333333333333333, 0.6, 0.4666666666666667], SphereBox[{-6.600929289123933, 2.2311038412662842`, -0.23944232383529152`}, 0.255]}, {RGBColor[0.7333333333333333, 0.6, 0.4666666666666667], SphereBox[{-7.9009767161806606`, 4.430454713383563, -0.034966668901050824`}, 0.255]}, {RGBColor[0.7333333333333333, 0.6, 0.4666666666666667], SphereBox[{-10.651826703888613`, 4.436845077763216, -0.2836026387026047}, 0.255]}, {RGBColor[0.7333333333333333, 0.6, 0.4666666666666667], SphereBox[{-12.043504552133923`, 1.9998051966611783`, -0.7667852063335983}, 0.255]}, {RGBColor[0.7333333333333333, 0.6, 0.4666666666666667], SphereBox[{-11.931748958592422`, 6.602231036219992, -0.08225525094987507}, 0.255]}, {RGBColor[0.7333333333333333, 0.6, 0.4666666666666667], SphereBox[{-14.704830822908884`, 6.682445648461901, -0.7260599371997856}, 0.255]}, {RGBColor[1, NCache[ Rational[1, 3], 0.3333333333333333], NCache[ Rational[1, 3], 0.3333333333333333]], SphereBox[{-15.221743048234782`, 8.880020066728685, -2.2078937743091855`}, 0.178]}, {RGBColor[0.7333333333333333, 0.6, 0.4666666666666667], SphereBox[{8.899396137123855, -3.908897364942389, 4.114715741419429}, 0.1]}, {RGBColor[0.7333333333333333, 0.6, 0.4666666666666667], SphereBox[{7.992748568810903, -0.742272719481524, 3.4008564516189583`}, 0.1]}, {RGBColor[0.7333333333333333, 0.6, 0.4666666666666667], SphereBox[{9.008442027272741, -4.765260190419248, -0.6098646865305253}, 0.1]}, {RGBColor[0.7333333333333333, 0.6, 0.4666666666666667], SphereBox[{11.313479643249574`, -2.538480162591921, 0.43232301408399265`}, 0.1]}, {RGBColor[0.7333333333333333, 0.6, 0.4666666666666667], SphereBox[{8.76330504090098, 0.9833954796886937, -0.9577357512584818}, 0.1]}, {RGBColor[0.7333333333333333, 0.6, 0.4666666666666667], SphereBox[{8.870052100922678, -1.208769002057873, -3.500634516647988}, 0.1]}, {RGBColor[0.7333333333333333, 0.6, 0.4666666666666667], SphereBox[{3.2020810864769365`, -7.028549825763692, 1.7398585897487386`}, 0.1]}, {RGBColor[0.7333333333333333, 0.6, 0.4666666666666667], SphereBox[{6.009425343058154, -7.378357814268131, 3.5588757175099066`}, 0.1]}, {RGBColor[0.7333333333333333, 0.6, 0.4666666666666667], SphereBox[{6.209017102259517, -6.8530179555298485`, 0.24275881770402474`}, 0.1]}, {RGBColor[0.7333333333333333, 0.6, 0.4666666666666667], SphereBox[{1.7404429301981459`, -3.419711376269311, 4.528974925752826}, 0.1]}, {RGBColor[0.7333333333333333, 0.6, 0.4666666666666667], SphereBox[{3.886111547147487, -0.9228169584104742, 5.218851264497889}, 0.1]}, {RGBColor[0.7333333333333333, 0.6, 0.4666666666666667], SphereBox[{4.478583189445202, -4.020883335260933, 6.387854705621925}, 0.1]}, {RGBColor[0.7333333333333333, 0.6, 0.4666666666666667], SphereBox[{ 0.26712927477864357`, -3.9838318474541836`, -0.15709113671015373`}, 0.1]}, {RGBColor[0.7333333333333333, 0.6, 0.4666666666666667], SphereBox[{5.25300229354374, 1.0879568787632234`, -4.988506112813955}, 0.1]}, {RGBColor[0.7333333333333333, 0.6, 0.4666666666666667], SphereBox[{2.6616824226956752`, 1.6413780536672604`, -2.9167078034782667`}, 0.1]}, {RGBColor[0.7333333333333333, 0.6, 0.4666666666666667], SphereBox[{2.810777334269506, -1.2069464697931862`, -4.699452044267817}, 0.1]}, {RGBColor[0.7333333333333333, 0.6, 0.4666666666666667], SphereBox[{1.0203883875406166`, 1.76744541635184, -0.00002783052498023242}, 0.1]}, {RGBColor[0.7333333333333333, 0.6, 0.4666666666666667], SphereBox[{-4.294103018093187, -3.1398329183587794`, \ -1.9355251739643942`}, 0.1]}, {RGBColor[0.7333333333333333, 0.6, 0.4666666666666667], SphereBox[{-5.950602516247867, -2.1836453585045152`, 0.8312200468535239}, 0.1]}, {RGBColor[0.7333333333333333, 0.6, 0.4666666666666667], SphereBox[{-3.0470682891414356`, -3.8597577658933635`, 1.1042624159364158`}, 0.1]}, {RGBColor[0.7333333333333333, 0.6, 0.4666666666666667], SphereBox[{-2.935894343816625, 3.9877560719028837`, 0.18387768817683914`}, 0.1]}, {RGBColor[0.7333333333333333, 0.6, 0.4666666666666667], SphereBox[{-7.5980669562314915`, 0.48462038532931356`, -0.5860058058554208}, 0.1]}, {RGBColor[0.7333333333333333, 0.6, 0.4666666666666667], SphereBox[{-6.903404052672654, 6.177088756853044, 0.3113558276591548}, 0.1]}, {RGBColor[0.7333333333333333, 0.6, 0.4666666666666667], SphereBox[{-14.073353460622274`, 2.34092304697066, -0.6877759478452892}, 0.1]}, {RGBColor[0.7333333333333333, 0.6, 0.4666666666666667], SphereBox[{-11.523358651611446`, 0.6160670190566108, 0.667359507909542}, 0.1]}, {RGBColor[0.7333333333333333, 0.6, 0.4666666666666667], SphereBox[{-11.5404648102148, 1.2797459382315148`, -2.630105033157284}, 0.1]}, {RGBColor[0.7333333333333333, 0.6, 0.4666666666666667], SphereBox[{-10.979857747734993`, 8.296324131762642, 0.5416817701468233}, 0.1]}, {RGBColor[0.7333333333333333, 0.6, 0.4666666666666667], SphereBox[{-15.811129713270976`, 6.749118263850597, 1.0101284470066787`}, 0.1]}, {RGBColor[0.7333333333333333, 0.6, 0.4666666666666667], SphereBox[{-15.209789536084145`, 4.99742674481006, -1.797766576537123}, 0.1]}, {RGBColor[0.7333333333333333, 0.6, 0.4666666666666667], SphereBox[{-17.01116869616512, 8.858589591365654, -2.577809708872591}, 0.1]}, Text3DBox[ FormBox["1", StandardForm], {4.614869202947836, -3.554310950391028, 2.411210070600467}, {1, 0}], Text3DBox[ FormBox["2", StandardForm], {7.355112314062959, -2.694350105008248, 2.744610744548887}, {1, 0}], Text3DBox[ FormBox["3", StandardForm], {8.698692918106337, -2.8869753357724486`, 0.184413252376878}, {1, 0}], Text3DBox[ FormBox["4", StandardForm], {3.436317047127267, -2.223875705206328, 0.2005784563998525}, {1, 0}], Text3DBox[ FormBox["5", StandardForm], { 7.579900032796996, -0.889281432147307, -1.5862505505532845`}, {1, 0}], Text3DBox[ FormBox["6", StandardForm], { 4.7478889268919975`, -1.0475497829032905`, -1.5687611588525774`}, {1, 0}], Text3DBox[ FormBox["7", StandardForm], {4.554603956711093, -6.408806156108559, 1.9554486830630382`}, {1, 0}], Text3DBox[ FormBox["8", StandardForm], {3.1227514141769537`, -2.934903448589884, 4.8092651715653805`}, {1, 0}], Text3DBox[ FormBox["9", StandardForm], { 0.6815830692450876, -2.219666918267925, -0.00009431944060711572}, {1, 0}], Text3DBox[ FormBox["10", StandardForm], {3.319565980468145, 0.2052663027820938, -3.690068409183111}, {1, 0}], Text3DBox[ FormBox["11", StandardForm], {-0.6, 0., 0.}, {1, 0}], Text3DBox[ FormBox["12", StandardForm], {-3.263475350554561, 1.7565345705532793`*^-16, 1.358295608504471*^-16}, {1, 0}], Text3DBox[ FormBox[ "13", StandardForm], {-4.687318925031777, -2.466514975398433, \ -2.220446049250313*^-16}, {1, 0}], Text3DBox[ FormBox["14", StandardForm], {-4.548174753024606, 2.2250373601984865`, 0.00021820557347695946`}, {1, 0}], Text3DBox[ FormBox["15", StandardForm], {-7.200929289123932, 2.2311038412662842`, -0.23944232383529152`}, {1, 0}], Text3DBox[ FormBox["16", StandardForm], {-8.500976716180661, 4.430454713383563, -0.034966668901050824`}, {1, 0}], Text3DBox[ FormBox["17", StandardForm], {-11.251826703888613`, 4.436845077763216, -0.2836026387026047}, {1, 0}], Text3DBox[ FormBox["18", StandardForm], {-12.643504552133923`, 1.9998051966611783`, -0.7667852063335983}, {1, 0}], Text3DBox[ FormBox["19", StandardForm], {-12.531748958592422`, 6.602231036219992, -0.08225525094987507}, {1, 0}], Text3DBox[ FormBox["20", StandardForm], {-15.304830822908883`, 6.682445648461901, -0.7260599371997856}, {1, 0}], Text3DBox[ FormBox["21", StandardForm], {-15.821743048234781`, 8.880020066728685, -2.2078937743091855`}, {1, 0}], Text3DBox[ FormBox["22", StandardForm], {8.299396137123855, -3.908897364942389, 4.114715741419429}, {1, 0}], Text3DBox[ FormBox["23", StandardForm], {7.392748568810903, -0.742272719481524, 3.4008564516189583`}, {1, 0}], Text3DBox[ FormBox["24", StandardForm], { 8.408442027272741, -4.765260190419248, -0.6098646865305253}, {1, 0}], Text3DBox[ FormBox["25", StandardForm], {10.713479643249574`, -2.538480162591921, 0.43232301408399265`}, {1, 0}], Text3DBox[ FormBox["26", StandardForm], {8.16330504090098, 0.9833954796886937, -0.9577357512584818}, {1, 0}], Text3DBox[ FormBox["27", StandardForm], { 8.270052100922678, -1.208769002057873, -3.500634516647988}, {1, 0}], Text3DBox[ FormBox["28", StandardForm], {2.6020810864769364`, -7.028549825763692, 1.7398585897487386`}, {1, 0}], Text3DBox[ FormBox["29", StandardForm], {5.409425343058154, -7.378357814268131, 3.5588757175099066`}, {1, 0}], Text3DBox[ FormBox["30", StandardForm], {5.609017102259517, -6.8530179555298485`, 0.24275881770402474`}, {1, 0}], Text3DBox[ FormBox["31", StandardForm], {1.1404429301981458`, -3.419711376269311, 4.528974925752826}, {1, 0}], Text3DBox[ FormBox["32", StandardForm], {3.286111547147487, -0.9228169584104742, 5.218851264497889}, {1, 0}], Text3DBox[ FormBox["33", StandardForm], {3.878583189445202, -4.020883335260933, 6.387854705621925}, {1, 0}], Text3DBox[ FormBox[ "34", StandardForm], {-0.3328707252213564, -3.9838318474541836`, \ -0.15709113671015373`}, {1, 0}], Text3DBox[ FormBox["35", StandardForm], {4.65300229354374, 1.0879568787632234`, -4.988506112813955}, {1, 0}], Text3DBox[ FormBox["36", StandardForm], {2.061682422695675, 1.6413780536672604`, -2.9167078034782667`}, {1, 0}], Text3DBox[ FormBox["37", StandardForm], { 2.210777334269506, -1.2069464697931862`, -4.699452044267817}, {1, 0}], Text3DBox[ FormBox["38", StandardForm], {0.4203883875406166, 1.76744541635184, -0.00002783052498023242}, {1, 0}], Text3DBox[ FormBox[ "39", StandardForm], {-4.894103018093187, -3.1398329183587794`, \ -1.9355251739643942`}, {1, 0}], Text3DBox[ FormBox["40", StandardForm], {-6.550602516247866, -2.1836453585045152`, 0.8312200468535239}, {1, 0}], Text3DBox[ FormBox["41", StandardForm], {-3.6470682891414357`, -3.8597577658933635`, 1.1042624159364158`}, {1, 0}], Text3DBox[ FormBox["42", StandardForm], {-3.5358943438166253`, 3.9877560719028837`, 0.18387768817683914`}, {1, 0}], Text3DBox[ FormBox["43", StandardForm], {-8.198066956231491, 0.48462038532931356`, -0.5860058058554208}, {1, 0}], Text3DBox[ FormBox["44", StandardForm], {-7.5034040526726535`, 6.177088756853044, 0.3113558276591548}, {1, 0}], Text3DBox[ FormBox["45", StandardForm], {-14.673353460622273`, 2.34092304697066, -0.6877759478452892}, {1, 0}], Text3DBox[ FormBox["46", StandardForm], {-12.123358651611445`, 0.6160670190566108, 0.667359507909542}, {1, 0}], Text3DBox[ FormBox["47", StandardForm], {-12.1404648102148, 1.2797459382315148`, -2.630105033157284}, {1, 0}], Text3DBox[ FormBox["48", StandardForm], {-11.579857747734993`, 8.296324131762642, 0.5416817701468233}, {1, 0}], Text3DBox[ FormBox["49", StandardForm], {-16.411129713270977`, 6.749118263850597, 1.0101284470066787`}, {1, 0}], Text3DBox[ FormBox["50", StandardForm], {-15.809789536084145`, 4.99742674481006, -1.797766576537123}, {1, 0}], Text3DBox[ FormBox["51", StandardForm], {-17.611168696165123`, 8.858589591365654, -2.577809708872591}, {1, 0}], TubeBox[{{7.9551123140629585`, -2.694350105008248, 2.744610744548887}, { 5.214869202947836, -3.554310950391028, 2.411210070600467}}, 0.06], TubeBox[{{9.298692918106337, -2.8869753357724486`, 0.184413252376878}, { 7.9551123140629585`, -2.694350105008248, 2.744610744548887}}, 0.06], TubeBox[{{4.036317047127267, -2.223875705206328, 0.2005784563998525}, { 5.214869202947836, -3.554310950391028, 2.411210070600467}}, 0.06], TubeBox[{{8.179900032796995, -0.889281432147307, -1.5862505505532845`}, { 9.298692918106337, -2.8869753357724486`, 0.184413252376878}}, 0.06], {RGBColor[1., 0.75, 0.5], TubeBox[{{5.347888926891997, -0.9275497829032905, -1.5687611588525774`}, { 4.036317047127267, -2.103875705206328, 0.2005784563998525}}, 0.06], TubeBox[{{ 5.347888926891997, -1.1675497829032904`, -1.5687611588525774`}, { 4.036317047127267, -2.343875705206328, 0.2005784563998525}}, 0.06]}, TubeBox[{{5.347888926891997, -1.0475497829032905`, -1.5687611588525774`}, { 8.179900032796995, -0.889281432147307, -1.5862505505532845`}}, 0.06], TubeBox[{{5.154603956711092, -6.408806156108559, 1.9554486830630382`}, { 5.214869202947836, -3.554310950391028, 2.411210070600467}}, 0.06], TubeBox[{{3.7227514141769538`, -2.934903448589884, 4.8092651715653805`}, { 5.214869202947836, -3.554310950391028, 2.411210070600467}}, 0.06], TubeBox[{{ 1.2815830692450876`, -2.219666918267925, -0.00009431944060711572}, { 4.036317047127267, -2.223875705206328, 0.2005784563998525}}, 0.06], TubeBox[{{3.9195659804681453`, 0.2052663027820938, -3.690068409183111}, { 5.347888926891997, -1.0475497829032905`, -1.5687611588525774`}}, 0.06], {RGBColor[1., 0.75, 0.5], TubeBox[{{0., 0.12, 0.}, { 1.2815830692450876`, -2.099666918267925, -0.00009431944060711572}}, 0.06], TubeBox[{{0., -0.12, 0.}, { 1.2815830692450876`, -2.339666918267925, -0.00009431944060711572}}, 0.06]}, TubeBox[{{-2.663475350554561, 1.7565345705532793`*^-16, 1.358295608504471*^-16}, {0., 0., 0.}}, 0.06], TubeBox[{{-4.087318925031777, -2.466514975398433, \ -2.220446049250313*^-16}, {-2.663475350554561, 1.7565345705532793`*^-16, 1.358295608504471*^-16}}, 0.06], {RGBColor[1., 0.75, 0.5], TubeBox[{{-3.9481747530246056`, 2.3450373601984866`, 0.00021820557347695946`}, {-2.663475350554561, 0.12000000000000018`, 1.358295608504471*^-16}}, 0.06], TubeBox[{{-3.9481747530246056`, 2.1050373601984864`, 0.00021820557347695946`}, {-2.663475350554561, -0.11999999999999982`, 1.358295608504471*^-16}}, 0.06]}, TubeBox[{{-6.600929289123933, 2.2311038412662842`, -0.23944232383529152`}, {-3.9481747530246056`, 2.2250373601984865`, 0.00021820557347695946`}}, 0.06], {RGBColor[1., 0.75, 0.5], TubeBox[{{-7.9009767161806606`, 4.550454713383563, -0.034966668901050824`}, {-6.600929289123933, 2.3511038412662844`, -0.23944232383529152`}}, 0.06], TubeBox[{{-7.9009767161806606`, 4.310454713383563, -0.034966668901050824`}, {-6.600929289123933, 2.111103841266284, -0.23944232383529152`}}, 0.06]}, TubeBox[{{-10.651826703888613`, 4.436845077763216, -0.2836026387026047}, {-7.9009767161806606`, 4.430454713383563, -0.034966668901050824`}}, 0.06], TubeBox[{{-12.043504552133923`, 1.9998051966611783`, -0.7667852063335983}, {-10.651826703888613`, 4.436845077763216, -0.2836026387026047}}, 0.06], {RGBColor[1., 0.75, 0.5], TubeBox[{{-11.931748958592422`, 6.722231036219992, -0.08225525094987507}, {-10.651826703888613`, 4.556845077763216, -0.2836026387026047}}, 0.06], TubeBox[{{-11.931748958592422`, 6.482231036219992, -0.08225525094987507}, {-10.651826703888613`, 4.316845077763216, -0.2836026387026047}}, 0.06]}, TubeBox[{{-14.704830822908884`, 6.682445648461901, -0.7260599371997856}, {-11.931748958592422`, 6.602231036219992, -0.08225525094987507}}, 0.06], TubeBox[{{-15.221743048234782`, 8.880020066728685, -2.2078937743091855`}, {-14.704830822908884`, 6.682445648461901, -0.7260599371997856}}, 0.06], TubeBox[{{8.899396137123855, -3.908897364942389, 4.114715741419429}, { 7.9551123140629585`, -2.694350105008248, 2.744610744548887}}, 0.06], TubeBox[{{7.992748568810903, -0.742272719481524, 3.4008564516189583`}, { 7.9551123140629585`, -2.694350105008248, 2.744610744548887}}, 0.06], TubeBox[{{9.008442027272741, -4.765260190419248, -0.6098646865305253}, { 9.298692918106337, -2.8869753357724486`, 0.184413252376878}}, 0.06], TubeBox[{{11.313479643249574`, -2.538480162591921, 0.43232301408399265`}, { 9.298692918106337, -2.8869753357724486`, 0.184413252376878}}, 0.06], TubeBox[{{8.76330504090098, 0.9833954796886937, -0.9577357512584818}, { 8.179900032796995, -0.889281432147307, -1.5862505505532845`}}, 0.06], TubeBox[{{8.870052100922678, -1.208769002057873, -3.500634516647988}, { 8.179900032796995, -0.889281432147307, -1.5862505505532845`}}, 0.06], TubeBox[{{3.2020810864769365`, -7.028549825763692, 1.7398585897487386`}, { 5.154603956711092, -6.408806156108559, 1.9554486830630382`}}, 0.06], TubeBox[{{6.009425343058154, -7.378357814268131, 3.5588757175099066`}, { 5.154603956711092, -6.408806156108559, 1.9554486830630382`}}, 0.06], TubeBox[{{6.209017102259517, -6.8530179555298485`, 0.24275881770402474`}, { 5.154603956711092, -6.408806156108559, 1.9554486830630382`}}, 0.06], TubeBox[{{1.7404429301981459`, -3.419711376269311, 4.528974925752826}, { 3.7227514141769538`, -2.934903448589884, 4.8092651715653805`}}, 0.06], TubeBox[{{3.886111547147487, -0.9228169584104742, 5.218851264497889}, { 3.7227514141769538`, -2.934903448589884, 4.8092651715653805`}}, 0.06], TubeBox[{{4.478583189445202, -4.020883335260933, 6.387854705621925}, { 3.7227514141769538`, -2.934903448589884, 4.8092651715653805`}}, 0.06], TubeBox[{{ 0.26712927477864357`, -3.9838318474541836`, -0.15709113671015373`}, { 1.2815830692450876`, -2.219666918267925, -0.00009431944060711572}}, 0.06], TubeBox[{{5.25300229354374, 1.0879568787632234`, -4.988506112813955}, { 3.9195659804681453`, 0.2052663027820938, -3.690068409183111}}, 0.06], TubeBox[{{2.6616824226956752`, 1.6413780536672604`, -2.9167078034782667`}, {3.9195659804681453`, 0.2052663027820938, -3.690068409183111}}, 0.06], TubeBox[{{2.810777334269506, -1.2069464697931862`, -4.699452044267817}, { 3.9195659804681453`, 0.2052663027820938, -3.690068409183111}}, 0.06], TubeBox[{{1.0203883875406166`, 1.76744541635184, -0.00002783052498023242}, {0., 0., 0.}}, 0.06], TubeBox[{{-4.294103018093187, -3.1398329183587794`, -1.9355251739643942`}, \ {-4.087318925031777, -2.466514975398433, -2.220446049250313*^-16}}, 0.06], TubeBox[{{-5.950602516247867, -2.1836453585045152`, 0.8312200468535239}, {-4.087318925031777, -2.466514975398433, \ -2.220446049250313*^-16}}, 0.06], TubeBox[{{-3.0470682891414356`, -3.8597577658933635`, 1.1042624159364158`}, {-4.087318925031777, -2.466514975398433, \ -2.220446049250313*^-16}}, 0.06], TubeBox[{{-2.935894343816625, 3.9877560719028837`, 0.18387768817683914`}, {-3.9481747530246056`, 2.2250373601984865`, 0.00021820557347695946`}}, 0.06], TubeBox[{{-7.5980669562314915`, 0.48462038532931356`, -0.5860058058554208}, {-6.600929289123933, 2.2311038412662842`, -0.23944232383529152`}}, 0.06], TubeBox[{{-6.903404052672654, 6.177088756853044, 0.3113558276591548}, {-7.9009767161806606`, 4.430454713383563, -0.034966668901050824`}}, 0.06], TubeBox[{{-14.073353460622274`, 2.34092304697066, -0.6877759478452892}, {-12.043504552133923`, 1.9998051966611783`, -0.7667852063335983}}, 0.06], TubeBox[{{-11.523358651611446`, 0.6160670190566108, 0.667359507909542}, {-12.043504552133923`, 1.9998051966611783`, -0.7667852063335983}}, 0.06], TubeBox[{{-11.5404648102148, 1.2797459382315148`, -2.630105033157284}, {-12.043504552133923`, 1.9998051966611783`, -0.7667852063335983}}, 0.06], TubeBox[{{-10.979857747734993`, 8.296324131762642, 0.5416817701468233}, {-11.931748958592422`, 6.602231036219992, -0.08225525094987507}}, 0.06], TubeBox[{{-15.811129713270976`, 6.749118263850597, 1.0101284470066787`}, {-14.704830822908884`, 6.682445648461901, -0.7260599371997856}}, 0.06], TubeBox[{{-15.209789536084145`, 4.99742674481006, -1.797766576537123}, {-14.704830822908884`, 6.682445648461901, -0.7260599371997856}}, 0.06], TubeBox[{{-17.01116869616512, 8.858589591365654, -2.577809708872591}, {-15.221743048234782`, 8.880020066728685, -2.2078937743091855`}}, 0.06]}, AspectRatio->Automatic, Axes->Automatic, AxesLabel->{ FormBox["xl", TraditionalForm], FormBox["yl", TraditionalForm], FormBox["zl", TraditionalForm]}, Boxed->True, ImageSize->{326., Automatic}, SphericalRegion->True, ViewPoint->{0.4633313544835289, 2.4860416078759577`, 2.248315186948214}, ViewVertical->{-0.44777676976327163`, 1.569358116725196, -0.017116406430501007`}]], "Output", CellChangeTimes->{3.5718407118217497`*^9, 3.571847752687348*^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[{"tpo", "=", RowBox[{"Table", "[", RowBox[{ RowBox[{"{", RowBox[{ RowBox[{"px", "[", RowBox[{"[", "i", "]"}], "]"}], ",", RowBox[{"py", "[", RowBox[{"[", "i", "]"}], "]"}], ",", RowBox[{"pz", "[", RowBox[{"[", "i", "]"}], "]"}]}], "}"}], ",", RowBox[{"{", RowBox[{"i", ",", "1", ",", "nj"}], "}"}]}], "]"}]}], ";", " ", RowBox[{"(*", " ", RowBox[{"pi", " ", "clouds", " ", "above"}], " ", "*)"}], "\[IndentingNewLine]", RowBox[{"tpu", "=", RowBox[{"Table", "[", RowBox[{ RowBox[{"{", RowBox[{ RowBox[{"qx", "[", RowBox[{"[", "i", "]"}], "]"}], ",", RowBox[{"qy", "[", RowBox[{"[", "i", "]"}], "]"}], ",", RowBox[{"qz", "[", RowBox[{"[", "i", "]"}], "]"}]}], "}"}], ",", RowBox[{"{", RowBox[{"i", ",", "1", ",", "nj"}], "}"}]}], "]"}]}], ";", " ", RowBox[{"(*", " ", RowBox[{"pi", " ", "clouds", " ", "below"}], " ", "*)"}], " ", "\[IndentingNewLine]", RowBox[{"tw", "=", RowBox[{"Join", "[", RowBox[{"tc", ",", "twc", ",", "twh", ",", "tpo", ",", "tpu"}], "]"}]}], ";"}], "\[IndentingNewLine]", RowBox[{"bt", "=", RowBox[{"Length", "[", "tw", "]"}]}], "\[IndentingNewLine]", RowBox[{"MatrixForm", "[", "tw", "]"}], "\[IndentingNewLine]", RowBox[{ RowBox[{"(*", " ", RowBox[{"coordinates", " ", "of", " ", "clouds"}], " ", "*)"}]}]}], "Input", CellChangeTimes->{{3.568895397419882*^9, 3.5688955157148895`*^9}, { 3.568895549629349*^9, 3.5688955855718126`*^9}, {3.568895617317868*^9, 3.568895845234268*^9}, {3.5688960797194805`*^9, 3.5688961015127187`*^9}, { 3.568896219074525*^9, 3.5688962276233397`*^9}, {3.568896262910602*^9, 3.5688962903198504`*^9}, 3.5688964250728865`*^9, 3.568896456912543*^9, { 3.5688981540863237`*^9, 3.5688981869399815`*^9}, {3.5689021233572955`*^9, 3.5689021341525145`*^9}, {3.5689111169043026`*^9, 3.5689111218495116`*^9}, {3.568911235261711*^9, 3.568911242437723*^9}, 3.5689112948850155`*^9, {3.5689116510180407`*^9, 3.568911800419503*^9}, { 3.568911871820829*^9, 3.5689119012892804`*^9}, {3.5689119993042526`*^9, 3.5689120006770554`*^9}, {3.568912144306507*^9, 3.568912165085744*^9}, { 3.5689528310632005`*^9, 3.5689528569592457`*^9}, {3.5689534065794115`*^9, 3.5689534297298517`*^9}, {3.568954496214126*^9, 3.5689545054337425`*^9}, 3.5689569073699613`*^9, {3.56913308739126*^9, 3.5691332012870607`*^9}, { 3.569135511323518*^9, 3.5691355127119203`*^9}, {3.569136204167535*^9, 3.569136290747687*^9}, {3.5691598050571885`*^9, 3.569159843199256*^9}, { 3.5692215417755947`*^9, 3.569221597186892*^9}, {3.5692216819730406`*^9, 3.5692217090546885`*^9}, {3.5692217693019943`*^9, 3.5692218260704937`*^9}, {3.5692219780303607`*^9, 3.569221989433981*^9}, { 3.569222055468897*^9, 3.5692220728005276`*^9}, {3.5693401536421804`*^9, 3.5693401889450426`*^9}, 3.5693411655535583`*^9, {3.569341634303181*^9, 3.569341638733589*^9}, {3.5704549882757435`*^9, 3.5704550487414494`*^9}, { 3.570455928146194*^9, 3.5704559415310173`*^9}, {3.5708553973857827`*^9, 3.5708554057785974`*^9}, {3.5718402591869545`*^9, 3.5718402726497784`*^9}}], Cell[BoxData["88"], "Output", CellChangeTimes->{3.57184071188415*^9, 3.571847752734148*^9}], Cell[BoxData[ TagBox[ RowBox[{"(", "\[NoBreak]", GridBox[{ {"5.214869202947836`", RowBox[{"-", "3.554310950391028`"}], "2.411210070600467`"}, {"7.9551123140629585`", RowBox[{"-", "2.694350105008248`"}], "2.744610744548887`"}, {"9.298692918106337`", RowBox[{"-", "2.8869753357724486`"}], "0.184413252376878`"}, {"4.036317047127267`", RowBox[{"-", "2.223875705206328`"}], "0.2005784563998525`"}, {"8.179900032796995`", RowBox[{"-", "0.889281432147307`"}], RowBox[{"-", "1.5862505505532845`"}]}, {"5.347888926891997`", RowBox[{"-", "1.0475497829032905`"}], RowBox[{"-", "1.5687611588525774`"}]}, {"5.154603956711092`", RowBox[{"-", "6.408806156108559`"}], "1.9554486830630382`"}, {"3.7227514141769538`", RowBox[{"-", "2.934903448589884`"}], "4.8092651715653805`"}, {"1.2815830692450876`", RowBox[{"-", "2.219666918267925`"}], RowBox[{"-", "0.00009431944060711572`"}]}, {"3.9195659804681453`", "0.2052663027820938`", RowBox[{"-", "3.690068409183111`"}]}, {"0.`", "0.`", "0.`"}, { RowBox[{"-", "2.663475350554561`"}], "1.7565345705532793`*^-16", "1.358295608504471`*^-16"}, { RowBox[{"-", "4.087318925031777`"}], RowBox[{"-", "2.466514975398433`"}], RowBox[{"-", "2.220446049250313`*^-16"}]}, { RowBox[{"-", "3.9481747530246056`"}], "2.2250373601984865`", "0.00021820557347695946`"}, { RowBox[{"-", "6.600929289123933`"}], "2.2311038412662842`", RowBox[{"-", "0.23944232383529152`"}]}, { RowBox[{"-", "7.9009767161806606`"}], "4.430454713383563`", RowBox[{"-", "0.034966668901050824`"}]}, { RowBox[{"-", "10.651826703888613`"}], "4.436845077763216`", RowBox[{"-", "0.2836026387026047`"}]}, { RowBox[{"-", "12.043504552133923`"}], "1.9998051966611783`", RowBox[{"-", "0.7667852063335983`"}]}, { RowBox[{"-", "11.931748958592422`"}], "6.602231036219992`", RowBox[{"-", "0.08225525094987507`"}]}, { RowBox[{"-", "14.704830822908884`"}], "6.682445648461901`", RowBox[{"-", "0.7260599371997856`"}]}, { RowBox[{"-", "15.221743048234782`"}], "8.880020066728685`", RowBox[{"-", "2.2078937743091855`"}]}, {"6.585322472539166`", RowBox[{"-", "3.1242264270526015`"}], "2.577950766651566`"}, {"8.626902616084648`", RowBox[{"-", "2.7906627203903485`"}], "1.4645119984628827`"}, {"4.625593125037551`", RowBox[{"-", "2.889093327798678`"}], "1.3058942635001594`"}, {"8.739296475451667`", RowBox[{"-", "1.8881283839598777`"}], RowBox[{"-", "0.7009186490882032`"}]}, {"4.692102987009632`", RowBox[{"-", "1.6357127440548092`"}], RowBox[{"-", "0.6840913512263624`"}]}, {"6.764243927920533`", RowBox[{"-", "0.9683960784455738`"}], RowBox[{"-", "1.5775080127574201`"}]}, {"5.184726157927952`", RowBox[{"-", "4.982052192117276`"}], "2.1832505602568513`"}, {"4.468552290262841`", RowBox[{"-", "3.2445000910091095`"}], "3.6106522948466457`"}, {"2.6589500581861776`", RowBox[{"-", "2.2217713117371263`"}], "0.10024206847962269`"}, {"4.633476671469191`", RowBox[{"-", "0.42092177300862277`"}], RowBox[{"-", "2.6297872390872845`"}]}, {"0.6407915346225438`", RowBox[{"-", "1.1098334591339625`"}], RowBox[{"-", "0.00004715972030355786`"}]}, { RowBox[{"-", "1.3317376752772805`"}], "8.782672852766397`*^-17", "6.791478042522354`*^-17"}, { RowBox[{"-", "3.3756471115227633`"}], RowBox[{"-", "1.233690515567272`"}], RowBox[{"-", "4.317035136879166`*^-17"}]}, { RowBox[{"-", "3.3058250517895833`"}], "1.1125186800992433`", "0.00010910278673854764`"}, { RowBox[{"-", "5.274552021074269`"}], "2.2280706007323854`", RowBox[{"-", "0.11961205913090728`"}]}, { RowBox[{"-", "7.250953002652297`"}], "3.3307792773249236`", RowBox[{"-", "0.13720449636817117`"}]}, { RowBox[{"-", "9.276401710034637`"}], "4.43364989557339`", RowBox[{"-", "0.15928465380182777`"}]}, { RowBox[{"-", "11.347909979204609`"}], "3.2178972410551125`", RowBox[{"-", "0.5252787598510738`"}]}, { RowBox[{"-", "11.291787831240518`"}], "5.519538056991604`", RowBox[{"-", "0.1829289448262399`"}]}, { RowBox[{"-", "13.318630688062932`"}], "6.642348200298842`", RowBox[{"-", "0.40423671431629515`"}]}, { RowBox[{"-", "14.970656526657216`"}], "7.81256356336863`", RowBox[{"-", "1.4881032847707398`"}]}, {"8.63844642064536`", RowBox[{"-", "3.5732612400936126`"}], "3.7360917496197943`"}, {"7.982346316299241`", RowBox[{"-", "1.2818057315345557`"}], "3.2194772575319113`"}, {"9.088660481236301`", RowBox[{"-", "4.246146858121774`"}], RowBox[{"-", "0.390345125045201`"}]}, {"10.756587715041261`", RowBox[{"-", "2.634805072093197`"}], "0.3638001558102846`"}, {"8.60205119495846`", "0.4657853288558904`", RowBox[{"-", "1.131457997742889`"}]}, {"8.679314304013959`", RowBox[{"-", "1.1204720048613594`"}], RowBox[{"-", "2.9715549166665793`"}]}, {"3.7417228639005664`", RowBox[{"-", "6.857263957342785`"}], "1.7994437669185726`"}, {"5.773135452723566`", RowBox[{"-", "7.110354160359513`"}], "3.115656111425859`"}, {"5.91757970584381`", RowBox[{"-", "6.730238824003428`"}], "0.7161424030046266`"}, {"2.2883013233566065`", RowBox[{"-", "3.2857231022970277`"}], "4.606439843514081`"}, {"3.840961953037316`", RowBox[{"-", "1.4789189074860516`"}], "5.105649557858674`"}, {"4.269676972037823`", RowBox[{"-", "3.7207266631966673`"}], "5.951544432371517`"}, {"0.550080521567983`", RowBox[{"-", "3.491771322886063`"}], RowBox[{"-", "0.11330161625028846`"}]}, {"4.884474700916567`", "0.8440038456778132`", RowBox[{"-", "4.629651238079265`"}]}, {"3.0093439569368936`", "1.244456723732132`", RowBox[{"-", "3.130453927306445`"}]}, {"3.117236962515263`", RowBox[{"-", "0.8166230273850317`"}], RowBox[{"-", "4.420467104598807`"}]}, {"0.7357481578136856`", "1.2744115132977705`", RowBox[{"-", "0.000020067121240517554`"}]}, { RowBox[{"-", "4.236948072732446`"}], RowBox[{"-", "2.953728418391867`"}], RowBox[{"-", "1.400547681622075`"}]}, { RowBox[{"-", "5.435616407118735`"}], RowBox[{"-", "2.2618266531189177`"}], "0.6014821906424632`"}, { RowBox[{"-", "3.334583590696663`"}], RowBox[{"-", "3.474678817389819`"}], "0.7990548721387388`"}, { RowBox[{"-", "3.2182537156787347`"}], "3.4960739809732937`", "0.1326488234544845`"}, { RowBox[{"-", "7.31989716850656`"}], "0.9718338847574606`", RowBox[{"-", "0.4893255846514677`"}]}, { RowBox[{"-", "7.181654212483737`"}], "5.689904996205656`", "0.21475705993111635`"}, { RowBox[{"-", "13.512339088236871`"}], "2.246644100443872`", RowBox[{"-", "0.7096127108566131`"}]}, { RowBox[{"-", "11.667131957565656`"}], "0.9985454970556262`", "0.27094818067159143`"}, { RowBox[{"-", "11.679486200954633`"}], "1.4787434153296135`", RowBox[{"-", "2.115153047992303`"}]}, { RowBox[{"-", "11.24538125443611`"}], "7.823768513771956`", "0.36763882919665475`"}, { RowBox[{"-", "15.505361117722627`"}], "6.730690701329708`", "0.5302654656089367`"}, { RowBox[{"-", "15.070226828707614`"}], "5.463139671507617`", RowBox[{"-", "1.5015635876654208`"}]}, { RowBox[{"-", "16.49795596796186`"}], "8.864735916998391`", RowBox[{"-", "2.471716691706597`"}]}, {"1.2815830692450876`", RowBox[{"-", "2.219666918267925`"}], "1.3999056805593928`"}, {"0.`", "0.`", "1.4`"}, { RowBox[{"-", "2.663475350554561`"}], "1.7565345705532793`*^-16", "1.4000000000000001`"}, { RowBox[{"-", "3.9481747530246056`"}], "2.2250373601984865`", "1.4002182055734769`"}, { RowBox[{"-", "6.600929289123933`"}], "2.2311038412662842`", "1.1605576761647085`"}, { RowBox[{"-", "7.9009767161806606`"}], "4.430454713383563`", "1.365033331098949`"}, { RowBox[{"-", "10.651826703888613`"}], "4.436845077763216`", "1.1163973612973952`"}, { RowBox[{"-", "11.931748958592422`"}], "6.602231036219992`", "1.3177447490501248`"}, {"1.2815830692450876`", RowBox[{"-", "2.219666918267925`"}], RowBox[{"-", "1.400094319440607`"}]}, {"0.`", "0.`", RowBox[{"-", "1.4`"}]}, { RowBox[{"-", "2.663475350554561`"}], "1.7565345705532793`*^-16", RowBox[{"-", "1.3999999999999997`"}]}, { RowBox[{"-", "3.9481747530246056`"}], "2.2250373601984865`", RowBox[{"-", "1.399781794426523`"}]}, { RowBox[{"-", "6.600929289123933`"}], "2.2311038412662842`", RowBox[{"-", "1.6394423238352913`"}]}, { RowBox[{"-", "7.9009767161806606`"}], "4.430454713383563`", RowBox[{"-", "1.4349666689010507`"}]}, { RowBox[{"-", "10.651826703888613`"}], "4.436845077763216`", RowBox[{"-", "1.6836026387026046`"}]}, { RowBox[{"-", "11.931748958592422`"}], "6.602231036219992`", RowBox[{"-", "1.482255250949875`"}]} }, 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.57184071188415*^9, 3.571847752734148*^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[{ RowBox[{"tv4", " ", "=", RowBox[{"Table", "[", RowBox[{ RowBox[{"{", RowBox[{"0", ",", "0", ",", "0"}], "}"}], ",", RowBox[{"{", RowBox[{"i", ",", "1", ",", "nj"}], "}"}]}], "]"}]}], ";"}], " "}], "\[IndentingNewLine]", RowBox[{ RowBox[{ RowBox[{"tv5", " ", "=", RowBox[{"Table", "[", RowBox[{ RowBox[{"{", RowBox[{"0", ",", "0", ",", "0"}], "}"}], ",", RowBox[{"{", RowBox[{"i", ",", "1", ",", "nj"}], "}"}]}], "]"}]}], ";"}], " "}], "\[IndentingNewLine]", RowBox[{ RowBox[{"tv", " ", "=", " ", RowBox[{"Join", "[", RowBox[{"tv1", ",", "tv2", ",", "tv3", ",", "tv4", ",", "tv5"}], "]"}]}], ";"}], "\[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}, {3.57184030784344*^9, 3.5718403245666695`*^9}}], Cell[BoxData[ TagBox[ RowBox[{"(", "\[NoBreak]", GridBox[{ {"5.214869202947836`", RowBox[{"-", "3.554310950391028`"}], "2.411210070600467`"}, {"7.9551123140629585`", RowBox[{"-", "2.694350105008248`"}], "2.744610744548887`"}, {"9.298692918106337`", RowBox[{"-", "2.8869753357724486`"}], "0.184413252376878`"}, {"4.036317047127267`", RowBox[{"-", "2.223875705206328`"}], "0.2005784563998525`"}, {"8.179900032796995`", RowBox[{"-", "0.889281432147307`"}], RowBox[{"-", "1.5862505505532845`"}]}, {"5.347888926891997`", RowBox[{"-", "1.0475497829032905`"}], RowBox[{"-", "1.5687611588525774`"}]}, {"5.154603956711092`", RowBox[{"-", "6.408806156108559`"}], "1.9554486830630382`"}, {"3.7227514141769538`", RowBox[{"-", "2.934903448589884`"}], "4.8092651715653805`"}, {"1.2815830692450876`", RowBox[{"-", "2.219666918267925`"}], RowBox[{"-", "0.00009431944060711572`"}]}, {"3.9195659804681453`", "0.2052663027820938`", RowBox[{"-", "3.690068409183111`"}]}, {"0.`", "0.`", "0.`"}, { RowBox[{"-", "2.663475350554561`"}], "1.7565345705532793`*^-16", "1.358295608504471`*^-16"}, { RowBox[{"-", "4.087318925031777`"}], RowBox[{"-", "2.466514975398433`"}], RowBox[{"-", "2.220446049250313`*^-16"}]}, { RowBox[{"-", "3.9481747530246056`"}], "2.2250373601984865`", "0.00021820557347695946`"}, { RowBox[{"-", "6.600929289123933`"}], "2.2311038412662842`", RowBox[{"-", "0.23944232383529152`"}]}, { RowBox[{"-", "7.9009767161806606`"}], "4.430454713383563`", RowBox[{"-", "0.034966668901050824`"}]}, { RowBox[{"-", "10.651826703888613`"}], "4.436845077763216`", RowBox[{"-", "0.2836026387026047`"}]}, { RowBox[{"-", "12.043504552133923`"}], "1.9998051966611783`", RowBox[{"-", "0.7667852063335983`"}]}, { RowBox[{"-", "11.931748958592422`"}], "6.602231036219992`", RowBox[{"-", "0.08225525094987507`"}]}, { RowBox[{"-", "14.704830822908884`"}], "6.682445648461901`", RowBox[{"-", "0.7260599371997856`"}]}, { RowBox[{"-", "15.221743048234782`"}], "8.880020066728685`", RowBox[{"-", "2.2078937743091855`"}]}, {"0", "0", "0"}, {"0", "0", "0"}, {"0", "0", "0"}, {"0", "0", "0"}, {"0", "0", "0"}, {"0", "0", "0"}, {"0", "0", "0"}, {"0", "0", "0"}, {"0", "0", "0"}, {"0", "0", "0"}, {"0", "0", "0"}, {"0", "0", "0"}, {"0", "0", "0"}, {"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.899396137123855`", RowBox[{"-", "3.908897364942389`"}], "4.114715741419429`"}, {"7.992748568810903`", RowBox[{"-", "0.742272719481524`"}], "3.4008564516189583`"}, {"9.008442027272741`", RowBox[{"-", "4.765260190419248`"}], RowBox[{"-", "0.6098646865305253`"}]}, {"11.313479643249574`", RowBox[{"-", "2.538480162591921`"}], "0.43232301408399265`"}, {"8.76330504090098`", "0.9833954796886937`", RowBox[{"-", "0.9577357512584818`"}]}, {"8.870052100922678`", RowBox[{"-", "1.208769002057873`"}], RowBox[{"-", "3.500634516647988`"}]}, {"3.2020810864769365`", RowBox[{"-", "7.028549825763692`"}], "1.7398585897487386`"}, {"6.009425343058154`", RowBox[{"-", "7.378357814268131`"}], "3.5588757175099066`"}, {"6.209017102259517`", RowBox[{"-", "6.8530179555298485`"}], "0.24275881770402474`"}, {"1.7404429301981459`", RowBox[{"-", "3.419711376269311`"}], "4.528974925752826`"}, {"3.886111547147487`", RowBox[{"-", "0.9228169584104742`"}], "5.218851264497889`"}, {"4.478583189445202`", RowBox[{"-", "4.020883335260933`"}], "6.387854705621925`"}, {"0.26712927477864357`", RowBox[{"-", "3.9838318474541836`"}], RowBox[{"-", "0.15709113671015373`"}]}, {"5.25300229354374`", "1.0879568787632234`", RowBox[{"-", "4.988506112813955`"}]}, {"2.6616824226956752`", "1.6413780536672604`", RowBox[{"-", "2.9167078034782667`"}]}, {"2.810777334269506`", RowBox[{"-", "1.2069464697931862`"}], RowBox[{"-", "4.699452044267817`"}]}, {"1.0203883875406166`", "1.76744541635184`", RowBox[{"-", "0.00002783052498023242`"}]}, { RowBox[{"-", "4.294103018093187`"}], RowBox[{"-", "3.1398329183587794`"}], RowBox[{"-", "1.9355251739643942`"}]}, { RowBox[{"-", "5.950602516247867`"}], RowBox[{"-", "2.1836453585045152`"}], "0.8312200468535239`"}, { RowBox[{"-", "3.0470682891414356`"}], RowBox[{"-", "3.8597577658933635`"}], "1.1042624159364158`"}, { RowBox[{"-", "2.935894343816625`"}], "3.9877560719028837`", "0.18387768817683914`"}, { RowBox[{"-", "7.5980669562314915`"}], "0.48462038532931356`", RowBox[{"-", "0.5860058058554208`"}]}, { RowBox[{"-", "6.903404052672654`"}], "6.177088756853044`", "0.3113558276591548`"}, { RowBox[{"-", "14.073353460622274`"}], "2.34092304697066`", RowBox[{"-", "0.6877759478452892`"}]}, { RowBox[{"-", "11.523358651611446`"}], "0.6160670190566108`", "0.667359507909542`"}, { RowBox[{"-", "11.5404648102148`"}], "1.2797459382315148`", RowBox[{"-", "2.630105033157284`"}]}, { RowBox[{"-", "10.979857747734993`"}], "8.296324131762642`", "0.5416817701468233`"}, { RowBox[{"-", "15.811129713270976`"}], "6.749118263850597`", "1.0101284470066787`"}, { RowBox[{"-", "15.209789536084145`"}], "4.99742674481006`", RowBox[{"-", "1.797766576537123`"}]}, { RowBox[{"-", "17.01116869616512`"}], "8.858589591365654`", RowBox[{"-", "2.577809708872591`"}]}, {"0", "0", "0"}, {"0", "0", "0"}, {"0", "0", "0"}, {"0", "0", "0"}, {"0", "0", "0"}, {"0", "0", "0"}, {"0", "0", "0"}, {"0", "0", "0"}, {"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.5718407119777503`*^9, 3.5718477527965484`*^9}] }, Open ]], Cell[CellGroupData[{ Cell[BoxData[ RowBox[{"\[IndentingNewLine]", RowBox[{ RowBox[{"ow", "=", RowBox[{"Join", "[", RowBox[{ RowBox[{"Table", "[", RowBox[{ RowBox[{"-", "2.0"}], ",", RowBox[{"{", RowBox[{"i", ",", "1", ",", RowBox[{"bc", "+", "nb"}]}], "}"}]}], "]"}], ",", RowBox[{"Table", "[", RowBox[{ RowBox[{"-", "0.5"}], ",", RowBox[{"{", RowBox[{"i", ",", "1", ",", RowBox[{"2", "*", "nj"}]}], "}"}]}], "]"}]}], "]"}]}], RowBox[{"(*", " ", 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"}], "}"}]}], "]"}], ",", RowBox[{"Table", "[", RowBox[{"0.0", ",", RowBox[{"{", RowBox[{"i", ",", "1", ",", RowBox[{"2", "*", "nj"}]}], "}"}]}], "]"}]}], "]"}]}], "\[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, {3.571840408884818*^9, 3.571840415296429*^9}, { 3.571840465559717*^9, 3.571840473905732*^9}}], Cell[BoxData[ RowBox[{"{", RowBox[{ RowBox[{"-", "2.`"}], ",", RowBox[{"-", "2.`"}], ",", RowBox[{"-", "2.`"}], ",", RowBox[{"-", "2.`"}], ",", RowBox[{"-", "2.`"}], ",", RowBox[{"-", "2.`"}], ",", RowBox[{"-", "2.`"}], ",", RowBox[{"-", "2.`"}], ",", RowBox[{"-", "2.`"}], ",", RowBox[{"-", "2.`"}], ",", RowBox[{"-", "2.`"}], ",", RowBox[{"-", "2.`"}], ",", RowBox[{"-", "2.`"}], ",", RowBox[{"-", "2.`"}], ",", RowBox[{"-", "2.`"}], ",", RowBox[{"-", "2.`"}], ",", RowBox[{"-", "2.`"}], ",", RowBox[{"-", "2.`"}], ",", RowBox[{"-", "2.`"}], ",", RowBox[{"-", "2.`"}], ",", RowBox[{"-", "2.`"}], ",", RowBox[{"-", "2.`"}], ",", RowBox[{"-", "2.`"}], ",", RowBox[{"-", "2.`"}], ",", RowBox[{"-", "2.`"}], ",", RowBox[{"-", "2.`"}], ",", RowBox[{"-", "2.`"}], ",", RowBox[{"-", "2.`"}], ",", RowBox[{"-", "2.`"}], ",", RowBox[{"-", "2.`"}], ",", RowBox[{"-", "2.`"}], ",", RowBox[{"-", "2.`"}], ",", RowBox[{"-", "2.`"}], ",", RowBox[{"-", "2.`"}], ",", RowBox[{"-", "2.`"}], ",", RowBox[{"-", "2.`"}], ",", RowBox[{"-", "2.`"}], ",", RowBox[{"-", "2.`"}], ",", RowBox[{"-", "2.`"}], ",", RowBox[{"-", "2.`"}], ",", RowBox[{"-", "2.`"}], ",", RowBox[{"-", "2.`"}], ",", RowBox[{"-", "2.`"}], ",", RowBox[{"-", "2.`"}], ",", RowBox[{"-", "2.`"}], ",", RowBox[{"-", "2.`"}], ",", RowBox[{"-", "2.`"}], ",", RowBox[{"-", "2.`"}], ",", RowBox[{"-", "2.`"}], ",", RowBox[{"-", "2.`"}], ",", RowBox[{"-", "2.`"}], ",", RowBox[{"-", "2.`"}], ",", RowBox[{"-", "2.`"}], ",", RowBox[{"-", "2.`"}], ",", RowBox[{"-", "2.`"}], ",", RowBox[{"-", "2.`"}], ",", RowBox[{"-", "2.`"}], ",", RowBox[{"-", "2.`"}], ",", RowBox[{"-", "2.`"}], ",", RowBox[{"-", "2.`"}], ",", RowBox[{"-", "2.`"}], ",", RowBox[{"-", "2.`"}], ",", RowBox[{"-", "2.`"}], ",", RowBox[{"-", "2.`"}], ",", RowBox[{"-", "2.`"}], ",", RowBox[{"-", "2.`"}], ",", RowBox[{"-", "2.`"}], ",", RowBox[{"-", "2.`"}], ",", RowBox[{"-", "2.`"}], ",", RowBox[{"-", "2.`"}], ",", RowBox[{"-", "2.`"}], ",", RowBox[{"-", "2.`"}], ",", RowBox[{"-", "0.5`"}], ",", RowBox[{"-", "0.5`"}], ",", RowBox[{"-", "0.5`"}], ",", RowBox[{"-", "0.5`"}], ",", RowBox[{"-", "0.5`"}], ",", RowBox[{"-", "0.5`"}], ",", RowBox[{"-", "0.5`"}], ",", RowBox[{"-", "0.5`"}], ",", RowBox[{"-", "0.5`"}], ",", RowBox[{"-", "0.5`"}], ",", RowBox[{"-", "0.5`"}], ",", RowBox[{"-", "0.5`"}], ",", RowBox[{"-", "0.5`"}], ",", RowBox[{"-", "0.5`"}], ",", RowBox[{"-", "0.5`"}], ",", RowBox[{"-", "0.5`"}]}], "}"}]], "Output", CellChangeTimes->{3.57184071199335*^9, 3.5718477527965484`*^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.`", ",", "0.`", ",", "0.`", ",", "0.`", ",", "0.`", ",", "0.`", ",", "0.`", ",", "0.`", ",", "0.`", ",", "0.`", ",", "0.`", ",", "0.`", ",", "0.`", ",", "0.`", ",", "0.`", ",", "0.`", ",", "0.`"}], "}"}]], "Output", CellChangeTimes->{3.57184071199335*^9, 3.571847752812148*^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["1656.6367054329978`"], "Output", CellChangeTimes->{3.57184071207135*^9, 3.571847752890148*^9}] }, Open ]], Cell[CellGroupData[{ Cell[BoxData[ RowBox[{ RowBox[{"(*", " ", RowBox[{ "half", " ", "cloud", " ", "with", " ", "other", " ", "common", " ", RowBox[{"halfcloud", ":", " ", RowBox[{"subtract", " ", "WW"}]}]}], " ", "*)"}], "\[IndentingNewLine]", RowBox[{ RowBox[{ RowBox[{"For", " ", "[", RowBox[{ RowBox[{"i", "=", RowBox[{"nb", "+", "bc", "+", "1"}]}], ",", RowBox[{"i", "<", RowBox[{"nb", "+", "bc", "+", "nj", "+", "1"}]}], ",", RowBox[{"i", "++"}], ",", RowBox[{"Vee", "=", RowBox[{"Vee", "-", RowBox[{ RowBox[{"ow", "[", RowBox[{"[", "i", "]"}], "]"}], "*", RowBox[{ RowBox[{"ow", "[", RowBox[{"[", RowBox[{"i", "+", "nj"}], "]"}], "]"}], "/", RowBox[{"dw", "[", RowBox[{"[", RowBox[{"i", ",", RowBox[{"i", "+", "nj"}]}], "]"}], "]"}]}]}]}]}]}], "]"}], ";"}], "\[IndentingNewLine]", "Vee", "\[IndentingNewLine]"}]}]], "Input", CellChangeTimes->{{3.571840548723463*^9, 3.571840579798718*^9}, { 3.5718477253093*^9, 3.5718477304573092`*^9}}], Cell[BoxData["1655.9224197187116`"], "Output", CellChangeTimes->{3.57184071207135*^9, 3.571847752890148*^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["1819.9724329956034`"], "Output", CellChangeTimes->{3.5718407120869503`*^9, 3.5718477529057484`*^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[{"-", "3480.4512177219653`"}]], "Output", CellChangeTimes->{3.5718407121025505`*^9, 3.5718477529213486`*^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[{"-", "5025.337445503212`"}]], "Output", CellChangeTimes->{3.5718407121025505`*^9, 3.5718477529369483`*^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[{"-", "5093.420789545611`"}]], "Output", CellChangeTimes->{3.5718407121181507`*^9, 3.5718477529525485`*^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.5718407121337504`*^9, 3.5718477529681487`*^9}] }, Open ]], Cell[CellGroupData[{ Cell[BoxData[{"Vee", "\[IndentingNewLine]", "Vnn", "\[IndentingNewLine]", \ "Vne", "\[IndentingNewLine]", RowBox[{ RowBox[{"Tpi", " ", "=", " ", RowBox[{"2.296", "*", "nj", "*", "0.5", "*", "1.125", "*", RowBox[{"(", RowBox[{ RowBox[{"1", "/", RowBox[{"rpo", "^", "2"}]}], "+", RowBox[{"1", "/", RowBox[{"rpi", "^", "2"}]}]}], ")"}]}]}], " ", RowBox[{"(*", " ", RowBox[{"pi", " ", "kin", " ", "e", " ", "added"}], " ", "*)"}]}], "\[IndentingNewLine]", RowBox[{"Vtot", "=", RowBox[{"Vne", "+", "Vee", "+", "Vnn"}]}], "\[IndentingNewLine]", RowBox[{"Ttot", " ", "=", RowBox[{"Ttot", "+", "Tpi"}]}], "\[IndentingNewLine]", RowBox[{"Vir", " ", "=", RowBox[{ RowBox[{"-", "Vtot"}], "/", "Ttot"}]}], "\[IndentingNewLine]", RowBox[{"Etot", "=", RowBox[{"Ttot", "+", "Vtot"}]}], "\[IndentingNewLine]"}], "Input", CellChangeTimes->{{3.5689074950860367`*^9, 3.5689075109980645`*^9}, { 3.568910298074465*^9, 3.5689103015064707`*^9}, {3.568910724064413*^9, 3.5689107693044925`*^9}, {3.568955368910859*^9, 3.568955378629676*^9}, { 3.568955601366867*^9, 3.568955616218093*^9}, {3.5704638504275074`*^9, 3.570463876370353*^9}, {3.570464305074706*^9, 3.5704643133895206`*^9}, { 3.570464352171189*^9, 3.570464353231991*^9}, {3.570712404698539*^9, 3.5707124150569572`*^9}, {3.570809962851386*^9, 3.5708101493809137`*^9}, { 3.5708102160710306`*^9, 3.570810245165082*^9}, {3.5708102767551374`*^9, 3.5708103693413*^9}, {3.570810404207361*^9, 3.5708104232081947`*^9}, { 3.5708104788690925`*^9, 3.5708104825818987`*^9}, {3.5708105169643593`*^9, 3.570810517884761*^9}, {3.570810561767638*^9, 3.5708105625476394`*^9}, { 3.5708106179589367`*^9, 3.570810645648985*^9}, {3.5708552812279787`*^9, 3.570855300572013*^9}, {3.5718406368324184`*^9, 3.5718406454592333`*^9}, 3.57184067742369*^9}], Cell[BoxData["1819.9724329956034`"], "Output", CellChangeTimes->{3.57184071214935*^9, 3.5718477529837484`*^9}], Cell[BoxData["1586.9262018401766`"], "Output", CellChangeTimes->{3.57184071214935*^9, 3.5718477529837484`*^9}], Cell[BoxData[ RowBox[{"-", "5093.420789545611`"}]], "Output", CellChangeTimes->{3.57184071214935*^9, 3.5718477529837484`*^9}], Cell[BoxData["10.542857142857144`"], "Output", CellChangeTimes->{3.57184071214935*^9, 3.5718477529837484`*^9}], Cell[BoxData[ RowBox[{"-", "1686.522154709831`"}]], "Output", CellChangeTimes->{3.57184071214935*^9, 3.5718477529837484`*^9}], Cell[BoxData["854.664687891617`"], "Output", CellChangeTimes->{3.57184071214935*^9, 3.5718477529837484`*^9}], Cell[BoxData["1.97331442213944`"], "Output", CellChangeTimes->{3.57184071214935*^9, 3.5718477529837484`*^9}], Cell[BoxData[ RowBox[{"-", "831.8574668182141`"}]], "Output", CellChangeTimes->{3.57184071214935*^9, 3.5718477529837484`*^9}] }, Open ]] }, WindowSize->{1027, 978}, WindowMargins->{{Automatic, 367}, {Automatic, -6}}, 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, 5998, 101, 362, "Output"] }, Open ]], Cell[CellGroupData[{ Cell[8382, 165, 680, 14, 52, "Input"], Cell[9065, 181, 5526, 141, 777, "Output"] }, Open ]], Cell[CellGroupData[{ Cell[14628, 327, 609, 10, 31, "Input"], Cell[15240, 339, 1085, 15, 52, "Output"] }, Open ]], Cell[CellGroupData[{ Cell[16362, 359, 955, 14, 31, "Input"], Cell[17320, 375, 97, 1, 31, "Output"] }, Open ]], Cell[CellGroupData[{ Cell[17454, 381, 1560, 29, 31, "Input"], Cell[19017, 412, 1087, 15, 52, "Output"] }, Open ]], Cell[20119, 430, 1419, 23, 31, "Input"], Cell[21541, 455, 1592, 29, 31, "Input"], Cell[CellGroupData[{ Cell[23158, 488, 1234, 18, 31, "Input"], Cell[24395, 508, 3580, 105, 92, "Output"] }, Open ]], Cell[CellGroupData[{ Cell[28012, 618, 697, 14, 31, "Input"], Cell[28712, 634, 700, 11, 52, "Output"] }, Open ]], Cell[29427, 648, 908, 24, 31, "Input"], Cell[CellGroupData[{ Cell[30360, 676, 5635, 122, 172, "Input"], Cell[35998, 800, 863, 13, 72, "Output"], Cell[36864, 815, 886, 14, 72, "Output"] }, Open ]], Cell[CellGroupData[{ Cell[37787, 834, 519, 12, 31, "Input"], Cell[38309, 848, 1085, 15, 52, "Output"] }, Open ]], Cell[CellGroupData[{ Cell[39431, 868, 1401, 38, 92, "Input"], Cell[40835, 908, 764, 12, 52, "Output"] }, Open ]], Cell[CellGroupData[{ Cell[41636, 925, 827, 23, 92, "Input"], Cell[42466, 950, 95, 1, 31, "Output"], Cell[42564, 953, 95, 1, 31, "Output"] }, Open ]], Cell[CellGroupData[{ Cell[42696, 959, 284, 6, 52, "Input"], Cell[42983, 967, 108, 1, 31, "Output"] }, Open ]], Cell[43106, 971, 1824, 35, 72, "Input"], Cell[44933, 1008, 935, 19, 31, "Input"], Cell[CellGroupData[{ Cell[45893, 1031, 275, 6, 52, "Input"], Cell[46171, 1039, 35926, 881, 228, "Output"] }, Open ]], Cell[82112, 1923, 2567, 59, 52, "Input"], Cell[84682, 1984, 1309, 35, 72, "Input"], Cell[CellGroupData[{ Cell[86016, 2023, 4850, 86, 72, "Input"], Cell[90869, 2111, 17413, 246, 792, "Output"] }, Open ]], Cell[CellGroupData[{ Cell[108319, 2362, 2506, 53, 112, "Input"], Cell[110828, 2417, 93, 1, 31, "Output"] }, Open ]], Cell[CellGroupData[{ Cell[110958, 2423, 2272, 46, 72, "Input"], Cell[113233, 2471, 328, 6, 31, "Output"] }, Open ]], Cell[113576, 2480, 9192, 221, 252, "Input"], Cell[CellGroupData[{ Cell[122793, 2705, 584, 9, 31, "Input"], Cell[123380, 2716, 2406, 81, 327, "Output"] }, Open ]], Cell[CellGroupData[{ Cell[125823, 2802, 1947, 43, 72, "Input"], Cell[127773, 2847, 265, 5, 31, "Output"], Cell[128041, 2854, 170, 3, 31, "Output"] }, Open ]], Cell[CellGroupData[{ Cell[128248, 2862, 570, 14, 52, "Input"], Cell[128821, 2878, 558, 10, 52, "Output"], Cell[129382, 2890, 166, 3, 31, "Output"] }, Open ]], Cell[CellGroupData[{ Cell[129585, 2898, 2767, 54, 72, "Input"], Cell[132355, 2954, 966, 16, 72, "Output"], Cell[133324, 2972, 167, 3, 31, "Output"] }, Open ]], Cell[CellGroupData[{ Cell[133528, 2980, 3698, 81, 132, "Input"], Cell[137229, 3063, 977, 15, 92, "Output"] }, Open ]], Cell[138221, 3081, 2072, 49, 112, "Input"], Cell[140296, 3132, 561, 12, 52, "Input"], Cell[140860, 3146, 2148, 49, 92, "Input"], Cell[143011, 3197, 2452, 56, 112, "Input"], Cell[145466, 3255, 1759, 41, 72, "Input"], Cell[CellGroupData[{ Cell[147250, 3300, 923, 20, 31, "Input"], Cell[148176, 3322, 111, 1, 31, "Output"] }, Open ]], Cell[CellGroupData[{ Cell[148324, 3328, 711, 18, 31, "Input"], Cell[149038, 3348, 111, 1, 31, "Output"] }, Open ]], Cell[CellGroupData[{ Cell[149186, 3354, 507, 10, 31, "Input"], Cell[149696, 3366, 113, 1, 31, "Output"] }, Open ]], Cell[CellGroupData[{ Cell[149846, 3372, 823, 23, 31, "Input"], Cell[150672, 3397, 111, 1, 31, "Output"] }, Open ]], Cell[CellGroupData[{ Cell[150820, 3403, 204, 4, 31, "Input"], Cell[151027, 3409, 112, 1, 31, "Output"] }, Open ]], Cell[151154, 3413, 1971, 35, 92, "Input"], Cell[153128, 3450, 6879, 98, 31, "Input"], Cell[CellGroupData[{ Cell[160032, 3552, 666, 16, 52, "Input"], Cell[160701, 3570, 96, 1, 31, "Output"], Cell[160800, 3573, 163, 3, 31, "Output"] }, Open ]], Cell[CellGroupData[{ Cell[161000, 3581, 9223, 166, 172, "Input"], Cell[170226, 3749, 775, 22, 52, "Output"] }, Open ]], Cell[CellGroupData[{ Cell[171038, 3776, 8768, 150, 152, "Input"], Cell[179809, 3928, 714, 20, 52, "Output"] }, Open ]], Cell[180538, 3951, 1166, 24, 72, "Input"], Cell[181707, 3977, 657, 11, 31, "Input"], Cell[182367, 3990, 744, 13, 31, "Input"], Cell[CellGroupData[{ Cell[183136, 4007, 872, 18, 31, "Input"], Cell[184011, 4027, 129, 2, 31, "Output"] }, Open ]], Cell[CellGroupData[{ Cell[184177, 4034, 1960, 54, 192, "Input"], Cell[186140, 4090, 781, 20, 58, "Output"], Cell[186924, 4112, 685, 19, 52, "Output"] }, Open ]], Cell[187624, 4134, 761, 12, 31, "Input"], Cell[CellGroupData[{ Cell[188410, 4150, 984, 20, 52, "Input"], Cell[189397, 4172, 114, 1, 31, "Output"] }, Open ]], Cell[CellGroupData[{ Cell[189548, 4178, 2006, 56, 192, "Input"], Cell[191557, 4236, 779, 20, 58, "Output"], Cell[192339, 4258, 665, 18, 55, "Output"] }, Open ]], Cell[193019, 4279, 766, 13, 31, "Input"], Cell[CellGroupData[{ Cell[193810, 4296, 1062, 22, 52, "Input"], Cell[194875, 4320, 112, 1, 31, "Output"] }, Open ]], Cell[CellGroupData[{ Cell[195024, 4326, 2177, 58, 192, "Input"], Cell[197204, 4386, 781, 20, 58, "Output"], Cell[197988, 4408, 696, 18, 55, "Output"] }, Open ]], Cell[198699, 4429, 1661, 41, 72, "Input"], Cell[200363, 4472, 3518, 87, 152, "Input"], Cell[CellGroupData[{ Cell[203906, 4563, 4578, 119, 192, "Input"], Cell[208487, 4684, 18579, 316, 348, 1872, 41, "CachedBoxData", "BoxData", \ "Output"] }, Open ]], Cell[227081, 5003, 5257, 100, 92, "Input"], Cell[232341, 5105, 2696, 53, 92, "Input"], Cell[CellGroupData[{ Cell[235062, 5162, 939, 17, 72, "Input"], Cell[236004, 5181, 4617, 106, 212, "Output"], Cell[240624, 5289, 97, 1, 31, "Output"], Cell[240724, 5292, 97, 1, 31, "Output"] }, Open ]], Cell[240836, 5296, 10201, 233, 192, "Input"], Cell[251040, 5531, 6427, 103, 92, "Input"], Cell[257470, 5636, 10215, 234, 192, "Input"], Cell[267688, 5872, 5925, 93, 31, "Input"], Cell[273616, 5967, 11924, 232, 252, "Input"], Cell[CellGroupData[{ Cell[285565, 6203, 14878, 286, 332, "Input"], Cell[300446, 6491, 69396, 1253, 274, 32949, 654, "CachedBoxData", "BoxData", \ "Output"], Cell[369845, 7746, 23276, 428, 326, "Output"] }, Open ]], Cell[CellGroupData[{ Cell[393158, 8179, 5006, 121, 192, "Input"], Cell[398167, 8302, 92, 1, 31, "Output"], Cell[398262, 8305, 10125, 251, 1350, "Output"] }, Open ]], Cell[408402, 8559, 3049, 67, 92, "Input"], Cell[411454, 8628, 1841, 29, 52, "Input"], Cell[CellGroupData[{ Cell[413320, 8661, 4168, 96, 152, "Input"], Cell[417491, 8759, 6919, 186, 1338, "Output"] }, Open ]], Cell[CellGroupData[{ Cell[424447, 8950, 6933, 158, 172, "Input"], Cell[431383, 9110, 2862, 91, 92, "Output"], Cell[434248, 9203, 1231, 18, 72, "Output"] }, Open ]], Cell[435494, 9224, 1863, 27, 31, "Input"], Cell[CellGroupData[{ Cell[437382, 9255, 2963, 56, 112, "Input"], Cell[440348, 9313, 109, 1, 31, "Output"] }, Open ]], Cell[CellGroupData[{ Cell[440494, 9319, 1141, 31, 92, "Input"], Cell[441638, 9352, 109, 1, 31, "Output"] }, Open ]], Cell[CellGroupData[{ Cell[441784, 9358, 2532, 57, 112, "Input"], Cell[444319, 9417, 114, 1, 31, "Output"] }, Open ]], Cell[CellGroupData[{ Cell[444470, 9423, 499, 15, 52, "Input"], Cell[444972, 9440, 131, 2, 31, "Output"] }, Open ]], Cell[445118, 9445, 1381, 21, 31, "Input"], Cell[CellGroupData[{ Cell[446524, 9470, 1709, 32, 52, "Input"], Cell[448236, 9504, 130, 2, 31, "Output"] }, Open ]], Cell[CellGroupData[{ Cell[448403, 9511, 1415, 43, 72, "Input"], Cell[449821, 9556, 130, 2, 31, "Output"] }, Open ]], Cell[CellGroupData[{ Cell[449988, 9563, 2550, 50, 92, "Input"], Cell[452541, 9615, 114, 1, 31, "Output"] }, Open ]], Cell[CellGroupData[{ Cell[452692, 9621, 1891, 36, 192, "Input"], Cell[454586, 9659, 111, 1, 31, "Output"], Cell[454700, 9662, 111, 1, 31, "Output"], Cell[454814, 9665, 127, 2, 31, "Output"], Cell[454944, 9669, 111, 1, 31, "Output"], Cell[455058, 9672, 127, 2, 31, "Output"], Cell[455188, 9676, 109, 1, 31, "Output"], Cell[455300, 9679, 109, 1, 31, "Output"], Cell[455412, 9682, 127, 2, 31, "Output"] }, Open ]] } ] *) (* End of internal cache information *)