(* 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[ 474514, 10013] NotebookOptionsPosition[ 466125, 9748] NotebookOutlinePosition[ 466627, 9768] CellTagsIndexPosition[ 466584, 9765] 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.571825946001467*^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.571825946017067*^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.571825946032667*^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.5718259460482674`*^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.5718259460638676`*^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.5718259460950675`*^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.5718259461106677`*^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.5718259461262674`*^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.5718259461418676`*^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.571825946157468*^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.5718259461730676`*^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.5718259461886673`*^9}], Cell[BoxData["30"], "Output", CellChangeTimes->{3.5718259461886673`*^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.5718259462042675`*^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.571825946375868*^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.571825946469468*^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.5718259465006685`*^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.5718259465162683`*^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.571825946547468*^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.5718259465630684`*^9}], Cell[BoxData[ RowBox[{"2.5431421108019188`", "\[PlusMinus]", "0.031636158469768805`"}]], "Output", CellChangeTimes->{3.5718259465630684`*^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.5718259465786686`*^9}], Cell[BoxData[ RowBox[{"2.825453749813209`", "\[PlusMinus]", "0.07826166491129996`"}]], "Output", CellChangeTimes->{3.5718259465786686`*^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.5718259465942683`*^9}], Cell[BoxData[ RowBox[{"2.055894359505152`", "\[PlusMinus]", "0.007777002172673114`"}]], "Output", CellChangeTimes->{3.571825946609868*^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.5718259466254683`*^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.5718259466722684`*^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.571825946687868*^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.5718259467034683`*^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.5718259467190685`*^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.5718259467346687`*^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.5718259467658687`*^9}], Cell[BoxData[ RowBox[{"{", RowBox[{"12", ",", "11", ",", "13", ",", "14"}], "}"}]], "Output", CellChangeTimes->{3.5718259467658687`*^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[{"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.5718259467814684`*^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.5718259467970686`*^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.571825946828269*^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.5718259468438687`*^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.5718259468438687`*^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.5718259468594685`*^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.5718259468750687`*^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.5718259468750687`*^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.571825946906269*^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.571825946921869*^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.571825946921869*^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.5718259469530687`*^9},ImageCache->GraphicsData["CompressedBitmap", "\<\ eJztfXd8G8eZ9nOW3JJcmu0kFycX3+VyNckll+RKnN6c3MWxnVhyi+04kmwV W5ZcZVvusS1XFUsyKVJsYu8kwA6ABEiCIAGQIEiCAAvAXsHeCRL7vbMzCy5h iHG+f777/b7g5xG4i9132jPP+7wzs+sb73ts756H7nts3677rrvhkfsO7d23 69HrfvbwI3Rq218Af7GX0o3Xgf0tAco/Ev0n7WP/sDN//vv/x79d7OsSBocT /ESb/LUdHCESPwkc/3/76/uK6Ze/tmF5eRkTExPy0VP8p1H56zL5J6PRiJ07 d+KGG26Qv5uamsRVQ/LXh0JXvf766/JVxcXFmJ+fl3+dmZnBrl272PERfteA ynZKSops88iRI+jt7WVXbRelYj9FRUXJR0/yO3vlr8vfVyqW34svvijnebm4 XZRUPnqC3+69SKVEcS8Rd7KfRInpYn6O1ULJQVjrkr8ujVgN5Tb2t9IRl4WZ Z0ePc1OeCAVjH2aWcvykqkVYWdnRY6o+xZUXq9KmunxSVRd2HTsnzLSKuoyO jsqdePDgwVBdtkfIXW1KMf8oN9W8dSNfFlYI1kVXRcjhEW4tnX1tY23xxS36 XinClSrjCv6UorKqsQ/LUBjPED+ph8t1YS2hZMFa4hJVOZUevFZUl5mNAMfD PKdE9iWPy+0R8vz8RZqM2SQbl4pbrFZr6JbPilvcbvcmkIn+PnzxCn42QmYq rP1zhL54+OLWPq3CX3iTheNPMa3G3xamr9m6VbapCqrT6eQjJQfWKkquB1VA ksnv6q0B+s0IDfAQt7E3ZAPbFG4VR/T5nzCAqptCQfq/R0C/ML4vrAnY55II zfJzFedGYM9wzlXnqDTJgzyD/QLqautKzjds3UgKJBWvwZKSk5rfPhrC/R1/ Wi1/dBGUsppS/j8St7A2Vkj+oxFM3/G+jrt0U8cpf3N7V0RsVPYLOzabzT9S NaaC4Mu3HNq38ywORvjpu1s38TZVXnFxcapW2eyhPhbB9G0814dC1f7O1nn9 MgLmw5tTZTdDID3cW7CeUIp1YwSkf1g+9z55IjopdevxHsk7qzNRzn04VOk7 ud0LW9f9sgh1V9qD3cIqyGw/wK09HeruL0bwFIz1mWb5kDCgdNzGwI3swJQW up9n8kwEKF+nYtoIzaOGKX4jGpqZjiBw1PDdwzN4bEsUf27rJtyusqs4qTsi dNduntezEXL4jCoHpUHZh33TrbsjdNKui1v7lGo4h7fV4OCg0ty7w9pDxq+q m98P1Yv5pAhjVimmOhOlIX6v6mYZqleF2Q1zowdV1Veo9T5u4x0VqtTMxeqi CNZD4na1JP4dv/3NrSukIKarq0u2yo4eVlVIyUFYO7a1tSMRMHEvv/NV1Z3q aojLnlE1gNKw9/A7X5a/PnRRBcx+VWX4dIQ+F5Ze2Lr0is9Ty62nI3Tu3dza c2H0wEiSfVpbW0VtN4c4v1UP/YsPc3VOr6hoin3YNcLMkQ82YtU98ZK4hdUv gpK9ixv+FfuSR9uXwiqoDFd2/xXCfkFBQQg3Lwr7rAYRJKuwf0uE4fyFDzac FfWv9DpLr6haWgGO8Dc/D1HepRHy/COUpx7pCuWdiECvIq+bQiNdbVfdcsLu uQiAEhri5ovS5vt9ihKNMGcQG6EJbrt4Y/8ReRzuQ5gCjIkwpm4Lh0u43TCK S47AKju5jV0XoTgGLqWNUsMAzY528Nt/98EqpIZqaoQmu5Vbu3tra4qaUGMw JQIuhLW7LkJ7ou8KIqCB+3YBiq1pT9UfBRFq9GtuaccHoz1mTKlRfoQOF9Z+ I6yFa0NR/DJBGurMlJrdosb5+2umFjqqri9R0QrLLCzyFEb/KQLS/+aDVVwN swpVMyqe9KaL5/CFMIpUS8QrVeaVapVHQIow/zchtrok9Nfn/4ivkMFHJT15 8iTMwrQ6NP4VN/0PYSVnn2s/WNuoebw2AsS4QMc/hugvks5T5hXpJkcEYL3P xqdU1VYGTbiLVG5WG1Sq/cuLd9gntq62WugqDazkoGYePhWAb1+E8phVOu4U d6pl2bWhWn6F2/jPCJVVh/vqynZEgM/nI9SST5PgW396ZTvCKsvOc4+2WSor pP/3PKd/u0hOoiEGIyBnoyG2RagB1x742haNE0aAYtZ5M7Q+UCZf+dObqU/F ckq5lOb6qwjNhciTIKIA/7xF61Ehxi9CgGJi9DOhOl4S+gsb01fs++9VI4xa M9IksLo1maiYioDdSFATVfjSRaoghqy6DZUcJlXnFEHwuVANOGfhb7duGi5D L5dtZF1Ix4DNgxFKY5QmKC0O+jEWAdI/4davC2sQ9Vyw0iCsaCzK54z4l3CR 2fpCMyqjNLBQaqLUFq1B5zkNemI1GIjXYDhBg9FEDRadHqyO+DEcAf8/5kWI NDXMPllZWRs8fM0mucFSK5Uii3LWRGlhiCpCXVQJlaQUrpgydJ8vQ19iGYZT yjCeXoKprGLM5Ggxm6vFXC6VymRGYMyPwbBOYX11RagD/ouXT5Gz7Ef1hzUV 6WLu5K6CgVokncpSEFWMiqgK1EZVwh5tRFtsNboSa9CXWoORzGpM5FZjutCI eW0llop1WCkto1RMSYPlYkp15k3l2rxM875BxclTVepIw3xjbGzbCAYukztV /RFZcUh9CqMEHVajLKpNcZQRVVG1aIiuhzPeio5kO3oyGjGc2wi/xo6ZEjsW yq1Y1tcjUGnGurEaQVMlpXIEjUUIGKjVyzQI+P0DKigokeGlW1bu8si/bt/q dHgDRK4x60OCulLjdMJRRpQBeVFm6kMbamOa0BjvhCu1Fd5sFwYK2jFW3I7p ChfmDW1YMbUiUONEsI7ood4GqcFCqYaSAZKlFOs1GszrNUp3qpnkIoUXNcbm yfeN/tuQR2FqZtvmLt4uKszITfmwxmYDjLqYt+hn0Fhjp0pXUhfX00ByoDK6 DfXxbjSndcKT041ejRfDpT5M6H2YNfmwVNuNQH0X1m3kJhvdkBxtkJqbITnt 9F1Hx0ZI9jIELFqs9HjUDkkhuK0rvmVXXxZ+eivPstEW9IM6bFBWT0vTyqju DciOcopbt2PUNaOGB++FDyM4twRpZBqSj3isvRuS2wPJQ1X3UGe66yG1maj6 ZVio04gF6isxQaPHRxzVT2lYELKf0pTdgxlKy0P+UFHUwmrbH2+frUEQCTvb xChTVgiVDzu+UvyW9HoG0s/YkRPVgS77lPx7pGkD3hc0ZCbJQw5TF/vaIXkJ A10N1BhVCDiKMdU/xBdJPyazSBVxYyFxdQWlamIUKyUnJXe0Ft5YLfrjtBhO 0mIsWQN/KnFgqweBUX8oe7XX2BbOz1tC5tLw0xt8GKYQLhFmWPTAPsJ3f0iY SX69APo0+yZTkVrnMuXfWfLuAzRC+qghvBasu3XoszXywf9JuVWYx8igFsmj ligl5jGSB7NElcERXYH2WB264/Xov6DDSJoOE1nlmMktw1x+MRYKtJSIT2vM CliY72T+kn2Iz74XDpbtob/eV2v6fFyUecg7iJTXqJmHqJgLfuXCjRYXvjDm cBas98bC8tto1Nx5FlW3n0bFjpMo/s07yLv5TST/6jWM5VgwVViBuQotZjSp 6DiXhv7kSnLLFeiJJxcdW4xO6n4PNYCLkpNSI6UGSrWU9JTcVrdRzvBa2dun 0ymWssjDaqLKoSOmriW/ZD9Xg9ZYMzoTzehNrcNwVh38+WbKthYLxdVYLqvC aoUOgYoSBMo1mK0xblJSLHZUr+vwVSte7Sv+L9nno+KWQe8QHPllkHqJJYZa IM1PbFj8fuiWs+cmUWWXUGOTYKFktUqw11PkZZHgNJPYqZXgMq2j0zwHv8WJ 8apa+Epd6CqZg1c7A2/BJHy5RDhZo/ClD6MneQC+xF74znvhi+6E74wb3pNt 6H67GV2v29D5hzp0PG+E+xmC2hNFaD2cB+eDmXA8kAL77xNgvScWddS71Xec ReVt76J8xwkU/fpt5Nz8BhJupN7VODCab8dITj2GMkmwpJmodw3opd71xZWi O4b3rptJQ9G7dkr1MgFoUE4pTvigja7VUion/qkiuVFDcsMCS7QVjvN2tF9o gjfDgYHcZjnv6RIH5iuasGywY83YgGC1GcEaE6UKVJ16DZq4GCV8VO9oUDiE rxW+Tynwntk0XDYCik+KHl1ylhDVVUPqITLob+U3Ly9yWx8K2TpdsIbCDuq1 /iCGeoJYc45gPasUCxdyMZ2l5aXaAUN5D6rKjCivd8E0IME8JKFhWELjqITm Mep4Su3jEjyUOil5KfVQ6qXUT2mQfh+idLYqiMQ6CRkNEvIJQEUEpvJGCXr6 NlKqtW8Aq1ENrBoOLHdVAB2GFXRWLKGrbAHdxQxY0/DmE7ByxuHLHEVP2hB8 yf3wJRCwYglYUZ3wniZgnWhF91sOdB2zovPlWnier4L76XK4Htei9VAunAcy 0HR/MgErHg33xMB8VxRMd5yB4bZTKLv1ODS/fguZN70O84vZGCskYOXZMJJN wMqoxUCqkThQj96EcgJzKbpiitBBYGmn1EqpmZJNxCFGSiWU+IrFp4V+ZcAq pqRHJoEqn4ROWVQjTOea0RDXCmeyCx2ZbvTkk5cuopCpzINZgwdLpnYEal1Y t9CYtTog2Ujd2c30twHrZm2I+tWS7noOokvD2EL5bK1aI5HIJ8S5+QYtSYwK SB21G67LSxJkaCjcxX8Eg7MSmghFLe2TsBVWocgpYdy3hnV7HwJJueh8IR66 Q3Gwa7WYGh26TgCxjUBU1CVB1yvJQKwjE9YRMkVAdNJvbeMbQOxSAbEvDIhR JglJBMRMAcRiBkRKBkomSmZK9QRCawMHYjNd20JAbKsJbgBRL4BYKoCoYUCc EEAcQU8qAfFCP/mRHvhiugmIHQTEdniPExDfbELXaw3ofKkGnucq0f5UGVyP EVgezkHz/nQ07bkA231xqL/7HGoJiMbbz0C/8xRKCYgFt7yF9JuOoeYFAmJB kwzE4WwLAbGGgFiFviQdegiI3vMl6Dq3AcQWSg5KVkpmSiww7rC6xQLBNujy qmQQhvqKzhWS6tRFu1TnPoqBmmHMdExhvnsaS75prPZOIeAaJrXtRbCpiyQm 9XkLCcxWAlwLhRrNegw32NRTC4rKvl7lw8IYboPSLgv9tT301ycEjOaazViz F1E+ekiuWlJ2NADcTkouksCk/ttIBo8wBTiN4OzSJeK2bj9BiGC0NtKLJU0i qiqnUKmfgMktYcq7gqClCyMJCRh+NxGLLe4fCfS5CEHF3URXhL5qgT5bGPrc lDoioW+Mo2+Y0rlqCclEbVmEsAKBvgpKlQx9dGy2cfTZ1OirVdC3Bk/lKqFv mdC3SOibJ/TNEvqm4M0j9GWPwZcxAl/qIHqS+sjP+Qh9XfC9R+h714Xu4y3o eqMRna/Wo+PFaniO6tF+pBRtjxai5WA2mveloXF3Eqy/Ow8Loa/mzvdk5aTb KZTTLUw5HcO4lnxcQSNGcq2ylBlMr8ZASiVHHyknb2wJOs9tKKcWMQUTppzw TRGIcL9qoGSR+z87qg1aGjH2oiH0N0/L565UVOs49WgH9WwnafpOUq6eOow6 nArbqeOUb6sQFklZ8oWBz2N10o+lag2CVvK9jQQmB/nOZlJDzY30NwGq0YWg zY21+g4sm7swb+rGpN6LkTIvDNmDskdbmZjAdG4SqqJbUURhamJSO0p0XmjL 2jDXtQjJ5MLc2+exTuWbpbCUbz64VSasEi+RTx9Jq0HygAJWDoJVC8HFFQYr nwpWAwJWFc0BxJKXTCFYZRN0CglKJSpYVVOqI1g1CFg1WVSwqg6i3aiCVbmA VRHBqnAKvjw/hxWTbCmDJNkErM51wXvWA+8pgtU7TpJsdnS9YkHHCya4j+rQ /mQx2g7no+XBLDj2pqJxV6IsyGXJxgS5LNlOoohgxSRbIgnycU0zl2y5DRiO JNli3y/ZGjdLNs4Nl2Okd5DQxKJnNuXlkLu8qnAA/sHFiH7sSiVunCZ09Xow 77SiJSU50rYkEdNdEcHKF8S/81YzVo0EqFryipZySPVVlIihLAQqsx3rNQ6s mpxYMLRgpqIN48VtGCxoo4Zugzu1BWXWOSxOz2OyvACaF3MpBKuU2ZnJhbLW dRiYavNJWOyYhVRhh/+lMxQ+6DFBY4pvILgZua4gyuiaSgGsepJs9gjAYpKt WwCrVwUs5in1rRLOE0hSiYdyCDwaAlEpgUlHSY4FVMCyC2A563gs0Fa9TsAK cGDpOLC6SwhYF4sFEi4SCxxjsYA5FAu4VLFAk4gFZMkmYgEDAauMYgEtxQJZ BKy8Xadw/uFknD+kRezBCrm/BtOYZDNwyUbAYh+1ZJuyupXuJd0Mr8GMluws hO+aZl5MHeHL3olPhl+DxXozVio0WKskHFQVU6rAelUlAoZqrOjMWCyvx2xx AyY0xKG5NvRlUD2TCXVxDbBGW5Ckm8bUzAoqXjuN1NcS5VB8u0C3qYfanPyQ l1T7imsSQW0N+p46jkVtqdho9xXke0jVUP9X9ZO0Vvp/dHP/eyL0f7+q/w1t EuJJ+aRR/+dSP2upv8vsG5JdiQUbwmNBIqN3nzbj9BEn6vL4fBWT7F3FG7Eg +zDJ7hOSfa3FFRpThsI+aOJtaCnIC01AqSeaxUzTl+Wvq7Hm92NBy+emV0q0 9F2MpaIyzGt0mCmoxERuFUYzqctTTOhONMEVYyTeqCQhpKcIvQxHX7Mg5ngh 9O/GkGDtvFy0sp1arIVaboBaOdAyivWccoqN8jCTpUWlCKFbTHakv67BKNMa wrVUUO8cfEaDV15w4EwUn6VKpVZJodGUTSJjfk1SJoQMhf00sFso1cOSo7ki At38B7f7VfnrKqy0ezCTrZETBWmYzNRiPK0Yw8kl6E9gHFmK9uhSEntspqYY BnKtWoJ0JluHKHSjfSxILpOEmb9PkN7lcgSXT5HYaA9p8MZ+BJLzMR2TgZEU DXSiSCO+AaS/qqGY0hkSiH+4UYtzj/QjJS4QOvdsdBDaFgkTK8HQRJPbNkUU 1kG1bKVko2SELrXgirDhxIIUUduvCa3G1mUWSFIOxWkwEKtBzzkNeQAuKppE TMWkLFvrcdk8ygRZ7zTpKBofwX43/AmxfILsCrQT9DsnCNYuCZM+Unr13Vg+ l4bh00lYanGXikxbiEULCRZP//QEjt2sQ+xTw0hNXkMSxQ0tzimUmzy45T+S 8ciLSyjvli4VDmRmZAm9TVMoi+5CXpSbaukUta2RXVGrrWPToxGKDuY7tvF9 UXYPFTKfkBIYG0agPPkjouzdk5JcrYZOCbPdS5Cq2zF3PA7rJiPmGt2FQsqw shdF6XDo26fw5o4axD0/jsSEEcSZgnA6+9HXQhqdRlpLhgG/+Y4Wz7y7Rs2x hBXS8YveaZIq05j2TMGd60NzejfqEztRFeOmoLUVueRHM6IaqDLVlCpk1cZm RpRttmrpxVe18QNRqZZu7nyWp6YpTi38qKhU/wyJlLYgWrzMl81B0jdh4uWz WNXJvixbuFNWqdKoKjz2vfdw/E4bEl6dQlpuELoWLr2HmD6rLyHL5GbtdWhJ rcDOH9filQtk2jGKhSo3pnUejJd6MKAhzZLjhiutHU2JbaiLaaEx4qBGs5Hs rJOxyaZ4uCTViMptDy39sQ8BVdTvR+LXCqrf3DSpPE8t5tvcHxP1M9DpWqpb py+I5fYpBItr0ff0CeJp0shWd6q4rJXqV05C5cgP43Dq3hYkvjWHNA1rGqLU MWm7GPprTWYEq4vQcjIOd97kwgm6ZKiuHUt6O+bKmjBZ5MBIgQN92Q50pjah NaERthgbaohcKqLY9LaJ+k9P1Sqh4coqt01WFIp6uVwZrm53aDVC2dgXeiRD LIluRwrx/9j0Klaq8rDW61GEVz2FRg5yOX2MNFvHsJ6rw0JKPvFVEX/+hurL 1kRP7knG0Z8m4/RuNy68u4DUUpIWNC7tY4IcP8kW4lC0/w/I2p+G7LQOjNTY sVRahfmiakwV1mIslyRihpm8hxnu+Fo0n6shKWiCkai9lMZAXlQp68ZIVf2I gKx6H843eP1+Iup3Oi8A70QQwWYDRZHdV4n6OWl4ekijj/SsY71pAIGUAszE ZmI0RSt24F2BHMrv3Qcy8MIvsvDegW4kRy8jRUeSiNpleEH6kOjPo3sKsfeh adSmm+HP1WC+QIvZvGJM5ZRhPKMcQykV6EnUoTNWh9boCtgJlrVUJ508uayV m5FVjSkDZR5G7Tn4fg/8VFRImXWRupswZai8WgEfnfIQKZYR50z4VhFs8GI5 Jh0jZy7Anag5Iy7Lo0zP7M0jztdwzo8PILmSXD05yKEF6cPCFbOh+uy+Whx+ dhFlnbyx2TLJrJ7qSO5k9IIGg/Fa9J7XoosiRBfVo4lSHaVKMTnGmo/xCnVY +MNyzEWIav1MVEsJ59eHvJjLilc2nXfSad8UuQGSQTPEl8EaN+ZOxGO92oS5 Jvc7grQVro86oCGur0DMkQ2ubyX/PzDPthMIEqNrf319Pp46HkBlv+D9KzBr 92Ca0iQVeVxsbRik1Eup2+b5dAT98nVehRsUwzRmMkk+rfrHKT5M/4wwzOh+ kBjSQSyy0DkPyeDAxB/eQ0BnYOx4TFWFIqLjh799kii/Wqb81Ix16B2SjNbe uaB4PIVVwYsdPzTi5YQgqodW/j4Cc3PXi1+In2oJs4vTs/La4WdFwSqoTY3U 5B6itSU30VpJHfqfOSFrrh6r+yVxGStYCY3FR797Fu/caZVpOzWP03bzmPRJ UaZ0YvY7/seJd/JJgSxK/ygyVk9b/isv03+LOwqIJ6amlzGbn4LlDve1YmjW UqRjp9RDxVptpabM02MxtQCzOUXi+QSFamvx5A/P4+S9Tk61WlLKRLVNY9LV IoejuxNwz119eM8gYXxZ+qcwGLI+FGX6H3HHOSN11tQa1uqKEBzo+LwoUxM5 PRcbIkQXa45BrKUWEl1kYSxVKx6n5XR4Ys8FPPPTC0SH7SE6LCHPaBuTPqWU aU827t8/iXhLgNSV9C9hfcfKxEWi2FpH6rJumes9Vw2ksZ6/VvrFtyarf62D TbuuYt3qw8r5DIyeSUZHouawuCybsdj9GXj+F5mbWWxAZrHPiPyP7q3Cw0cW UEox6VcjsJDYQXejSprVUScFe9uwYDZeJzJjkSiTOMZ26truZYqcKQY/mUCR cjUbrgdCLFRELJSLl39ZiOjDfbLyTK6SZBIbXJCUXV3ySP2vbBx5c5XFv/8a gUVEsX4l7nBTPxUQA66NDmBZm/i3Ij/GIP1UYjuhfa5zAVKlE5OvRiGgN9B4 d+9WDcECYuao/Rq8dnM5sciQzCKJTDEKFrk2VLYu7Ph+BV6MXUf1cPDromxs mVvpRh7XiD2ndEdXEI1MPLHVbEvO34myDRCf6ymccJHAWHKTriq1YODoSSwV l6PP6r5HVTatoIc3dphw/vkxpGZu0EPPbFDsb2JlG8DtP2/EWzk0FBckTgWX bnoWga1EsnKKMt4i7tTJAogayGXEZKP7SwL+RgpA6ykc8tKQXGnzYz2/Eotp hZjNLRab8hWaMOCR757BO3c0IP7VSTVNXBcakvG4+zYvzurkIfl1IVbUG/5Y Ev3LR4fYDs3Fyvj0CpbKsxDwuv9BFM/KFiEGeIS31jyEtXTywOf56PyNijHK SMI/8YNYnLynmRhjdoMxxqW/DRUvDbvvH0dcXRD+FUn9wKci9MWGT+WxMCP1 nW+CVIS9nEWd/6QOxhqCGPMFaGT2YCWOynM2hQJXjRhEV8jBnC66Hk//JAmn d7UjSTBGUavMGH+nDM0HKvDQ4/MocSuzVpvpgmcpdsFzgeAgtEodVkgT/f8s Mmsb4VGTnio8yebHzR2YfzeJhmYN5pvcN6jo4tT96Xju5xk4u78LyVGb6OJL qqF5y3+m44nXVmDola6PwBjcA4gd8dzB65mDH+ikYO78l0V+XRM8IKon3pll E6xVLZh6LRoBgzw0fyguyyXGOL03hxgjnxijV9YtFzYY4x9CxerArd8rwfPR a2xUficCY4hi7VTuIMeYaSFPMz5KHjn5qyK/PnLYw5RYxLPomYFU1oDBZ9/F ckk5Bqzu68VlBaTB39tfSGxRFmKLBMYW1Nj988LhsGL14baf1eONTHlAfi+C lhB7MG9X++spyteuFa78cuhJiNWIMEQehQVVWEzXYI5G4bdUo1BLAvPgf53A G7caN2iiWaaJL4dgfh533dqB02XyKPyBqvsUASH2sd6hctbT0xSwdtSx0Ojr okx1/SJOoDIFmoexllGM2bhsjKdpxTr2legkBdVDiW0Y7SSRy5YR+ul7utGD 2Ua+P+lqVflLKLjhLFIfziJfDZU/Gb/fNYLzZnmYKo/yqsWG2Cx7p+LYCSxD UwGsmgpYnPMNUf5mJQ6Q1y17sRKfg/H3UuFL0ojoYvO+Ip289KElEa9FW3QR OmOK0BunxWCCFqPJWnlP0ST1yXylWRbMSojM6acaj/8ghujHIdNPKtFPGaef rylDfU8xDjwyi2Jq7Z9E4B5RqbtEpUbJIblJGQSdFDGPer+pNCKNVQ8Nt1In xQLyUlgnFk5fwHothbUOMSf6iU27gsooLqgmAW0lF9NyTo+OOD16k/QYStVj PFOH6dxyzBWUYlFTjCWNlr41WKo1Q5mTkaksyoKnZCpzIekUURmBq400gnVU 0DynjWcP1OOxl5eg75F+FoHNOOuJR+9UQsPbTOFO1b+L/DpEXFDL4gJGG8ZW TB07h0BlJaZsbr5AdLVqYV5LRSyhoaGDgYSqhTyBI5bFm3XwpVgwmGnBeF4d pjVmLJTUYrncRGxQiTV9BaUi+luDFav5sk0kmUYkmc5JUqWpKIr6hqq2bHbm 2bNrMA3x2l4iT0FsC20uZ1fyh5/F01AqETPci7nseD5L+nn0KHEEkeiCh6R8 uRVDzxEllZZjkHLi24LZtlIdxV4m6tI6mKIbYItpRGuiA11pzejPcWK00Imp kmbMVziwXNmEgMlGYRVb0aiFVEdAMpdReKXFcqNZrLEw+tUS/Wbjpcj0+61Q hX3Y+eMaHEsNYmReukEID7Y1NPzhbFHne5Q7O9a5OJqYQLA6Q3nYo7x1HVXk GTzeIJZd9FOhCb3HE5XdhzqxJLSxtH0VhorIv5R3YrayA0vVHgTMbqw3tEGy sRVA4oamBkrVxKwVyHn6BN7bV4BXbyrl9J2yhnhjUKFvMY3JYhsT7rzZhVPF EsaWpJ+L0qkFi4rLuZYQj8ptkzXV/BRd6dSJ7UCfRXWvBFsvW2mhWOolvVz0 XGrfokMaWJK65WN/O18xDa3R901jbWAawSEK1Zq9kFo6MVpRA09SHoofPYOa 51Nx/rlNdP/tEF0m4Xf3DiKmWmJ0qTzpr94XzZ/fEg9Cb0eyUFqzBWksNrte ULkunc3F1OH4W81y2UoSBtCd34vVhFz4o1Llc8pEKkN/MVH5K7+MR+5TzWhK cMJZ3IbuukZ0trZiuEYvNg+woCgf+x6eJuVDBVxavikCn3MBKRZct8sRRg/J rrX6Ehao8Zp+GqlvpCD9DJvc9ISW9FiQpGmk+nhX5V0B7BM0m9FwXoNS6tnH f3AOJ+5p4pxcxDm5ke6RZiYh9bsg9djgSE4W2kuQ2P4aPPL8Iiq8kvLcp5qn N/ZD8ofcxWOXXJw1D1Ms126GNN6rmEw9lgnDBRp/Kwsb69tXUtTHwyn2me5e gvV8j8ysKYJZ60eCoa1l7FZvZQ2as9LFwoogoOvz8MypAIxD0m/C6Ja7QH5O vW9DlHl3uHLra8dCnUkxnvpKDkatNJgG20ObPciceiGVfTT6RWSQ9x6Y3tgQ zRaG9GkWNOdlhsZYi7UbO39UiVeTg2ifCOyIoCjDy8o5Xs5oj0rOZdWtY3Vs mALApP8Q91WcyYHUaQ6RhbybeHFR/pUTB2/G9JhJpNDYWZ0fulSQV4dtklyH R6wD1KOxIEPM9bMyD+KOXzbjhFbmhZ1hcpMhIdL6Mp+EFC/B2AYzlXlpkiK/ +jxh+dNYH+6gAa4jnNRB8jRCcrfS355Nm2HWB2eQfp4IhNz86hzfAe+nCHKk dRptZUMwxHSSw3NR6Zvl7eds+32rrRMKW7PZkXt/24doo8wKt6tKrzjjSC0u Sr9XJQxn2Jx5u4mFjN8UFRhobMdaQxFRrR5SMyG7maIRh4MouBVBG/1m8WCp phNJz3mRTvDw25rgy+9Ce2YHmi64YY51Eb07SWE3kkezyNNLytr5N0OskYm9 Byb5QtXy2p0RIHORPe4C4fsUcVjJxOEqlnS5LK7k9q/BgkFDRMHW/iuoc0z0 TZ1htlLI1IgVowMLeicSjnYhg1hrrM6CrowWtCY1wxbbBFOUjcjFQp64RuyJ KZaViPJGpKN7K3HomQW28iS0zuYwZWOfFJ84Ei8Y4prPQ5pvne1wGe78hihr YMJPYbGyTl2C9Sod1gxVWNHVYLGsDjNFFsQ/5UYWddeIsQruxHo0x1hICdWS IjIRUAwElLLQgglr539T0civv52Fp95ZhXFAUj9nrd7dLMiPz5DggCLgSKVZ mIDrsrNwlJf34/KqAHsAaamILfhq6bsE85oyzOTr4M82IPtJM3KI473phWiN NsBGqqaaApuyqFI2fRRpNeBroeJ2YscPKvCHhHW4JoN3CQ5Qq5Dwd1mIMj+o UmCFTIENdsOfGPdNEQisuDyYydJgOpOJfC3GU9nDBEUoPlQA7WvFcB5PRCMp MDO1oZ5SoViwZbPgG5qwH7f/wo53Cggzi9LvI2CWT3+JV1nRHZ51ef5xxT9O WjSVj94PY2XYT2Leg7kmiq6iScUfyEPuKxpY34pFHdsmSHKwi81lqwfM7jjc c4cXUZXyiN8VhruNJypD7yXh4mWOhm2x8CrbkJ66jAISZUtD9hB7H92divv3 jqOwWV4z3iMuVS/M8JlG8f4UUhg2KsPUMqSuehZQKjMt6Wkr0FCgu9hfH3oJ 1tEHynDwyXl5JWJvhAbjc/M4rJIGvRNrWCURu97r+ZZiOWMVWjYB2F0VahDZ lT9ox5E3VtgOi31hDcIGojD+SLgDbzVthFxkPHNV3la4NN6p6mqPPBnxUizD oXQgAr+Ksf1ouKftacVkZdU3FOPZAXlzGTvaGJO9uO1nFj7Htyg9FMG1C5J7 TLmDBmGWeQ2BkX7M5yT8m2I8Z03eYMSOlDCNLQ3/dkcHzurl6QEFDOoXhAm/ +4Tah01MUiCRBWUuND1vHeU9m8fm0d0XsHvPCAqaZJwcCmtw1ibC8pPiJ9m/ TC1QgxughMnp+UF5+zA7UmaFj+7R4MHHZuUJ7MPCd6sfaFeaXLivIwr1GyQM T65iVpPJhK4y9Z1eyPfysaOvqMFywILHX11iC0ePiEzUfMIyZF0gMnlK4ewF ztlrDWVMrH5FyUQjMUPy0ZdVmdz6XY08g9U2IT2haiAlEz6vEnqrkkKwkqee ScovK8ZJk1QNcOP/EjLuxW0/qcYbWfI81Fvc0DPi13YiGQ250rWBDixYqpWV iXQKekyD6ofdmaFh3HVLG86UywB5mxs6qvzavgYHY6yxUeL2C8qLBNNLJFQP cUPKzNjR3Yn4/X2DOF+7wlZD+HqeeN0PZ5+FyRlIDQWhNwykl0qoGQrKR8oi 09E9OThweFqeIRWvY31eZHCBaGZiakle0p9odCuvZ0ingpuHuRXl3LP7TXjs pUU2n4mT3MoLCqW4GKUEsKTPZwJBWXBLr5BQJ6yoZ0aZ5n72TIBqu3aKG3pR RR9OKn3QYSDv3fUlYShDR304wg39XchQFwliA46lBVlnvcsNvaSiCgNRRbCb NNXEgDJXnEEjtmGUG/piyNAA7rjRgXdL5M46zQ29rKKF7NoAAkM95Oviv6gY qmQTN+vy0cbkeAJ+d3cfYmuCrLP4mnLorUBsKnDJP0GqI03cQVaqKM4d41b+ JtRZGdj30KQ8x/UeN6G8wqmAIq9Z5m0cpaHLM4wsGuMmrlNM7NXj8LMLbAoJ PHzFa6rxPDK5AqnbxtzKF8QdmdVsno1b+WtVTz13sBnPnFyFaSgYzQ0dU43Z Dir6am0RRT6evxaGsmokOMYD8tHGekuHLDheTV5n0x78tUN4XTU+69n4ZMt3 oz7lwf7sWkKCf1U++lzIUB/u+G8bTtLYHV+S+EYEvKGMz2FJlrrrve3kHYyf E4ZyzBJa/MvykbI6xTYr3XOnFzEmeX6Uv7VIvJ+MsnEF5P2DK6ND5AkSrxWG ctmWT/+SfPRZpaV3p+CB/eNyYM4fo8LbmwbnNIK12aHL8ywUmPoX5KO/Ukw8 UIJDT89DRx4snpt4R/x0wSphcopih7aq0OX59RSx+znTfVrNvA/Z8NTbK4yK EriV46rB2UeDc1abzShcWakvaJAokJyVjz6lMrTj+yWyNKSe4jtZBGXwwdlC w3nNVoHgYMenhKFCohC3n7+w55qQoR7cfkMdjhfKkV8SN3RS/NrFBieJlSBb gvH3XSMM3bWnCh4/f9vD1aGeMuHunR5EV8mSjG/7xCklG6KiHOMKAiREFyw1 VwtDd99vRoefvy30qlBPXcCe+0egcSovScJpZWQOMGEyjpWS5NDl9zxgQ+f4 uMqhsJFZQDprVt4GxTc14Yx6ZE5SY1oLQ5ffu9dBNeUvt1Y2rjx7oA5Pvk5x ATmMNG7irKhLtJ6NzGV5BWHC7v64uON3+1rQPc7f2vAxVTfd+t1CvBi7huE5 KZ0bek81MjvH1rBEoU7A51be2Xnffhe84zwM/mjIUDdu+6kRb+fKapu/a1NQ hjIy2fS5kYLqLuUlnb8/4IF3lL92ZGPTyBDu+nWrvJOAuimTG4pWj0xq93Wf E9Lk4F8KQ7se7IJvxCcffUTl8HbtGkShg810rWZxQ8pLv9hyxOpwP/xJCaHN Tbsf8sI3zF+Q/eFQT2XhwUenZUWcw00obybTs2Hpn6RAMD10+Z6DPegZ4i/G Vrb5PbvfiMdfWZQ3FudyE+dVw3JqkkaxsyJ0+f0P96FngD9yfoXa1X0nl7RK AK6J9TxuJU4ZlgSZ/gkiOF8jY2JlIuSBQwPo6ePPbF8eMtSJnT/W482sIOsm /kYsQRYbw3LVXMqYWJmT2Ht4GD6fTT66LGSoH3f+yoEzFXI38Rd1ISF8WLLJ t7GeS0R7uPkOHwrZ+YNV+x4Zha+rDr5zGowVmeUoa3XYr+xKZc8i3Hdvr7zV dmJlnW/ZFJvirkJLD9+HtdbvgTslT14qKKZYsIpSA8WGTkr7HxtHV5seQxQ7 shhyMkMrx5WzORrq2TTsPzSJUg9BiptOEoOUxbqFDRQ2j42g98xxec9zHYXF DgqP3ecrceAJP3xNPgqfKymM1mNBU07yqxRP70zHoy+Qt3T4Wdit3Vxg9bOL MRVTmCO9ZXwmFrZzFrTF16M7xYpTjznQa3RjuqgBi2UWDFwoxKm9OtI4q2hr 6sK6SYtFvQZq03zS6BMUrNfh2BNWVJyyymfcaa3oyWlD3GE7BorbMK9vRX96 FdLuz0X1eTtGm9oh2chV2nQIWooQ6PVAoy7y1Ug/o5FNZUbZoIlqhiHaBUMM n/Bte6MIPResSHy6HSMGL3qzGpH+sAmWTBK1djLtbKFQopFSHf1tQH9+ukaN kkvRXGNF+qkSkUMbiqI7xATSR7Bu1+Ph52dhqhvDvb/tRh6NlMXhafE0E43R Lsqhi8DdYcFwRe4my38JZ00T0t/kZW+z8XfyqOddXUQj7CHKc3krpJzWUdIu QXmIU1oiN0mYmm+zwZmRrdmMbKepGenHeJmlmYmNB++Uh2TKSCoaRMSkPGPV apuAJduMlrx8bLJ3GZxVTjqt4/a8raSmOkhlTsomlf2l08NL8DZOIl+1Jdyp Ldhk6RoMdY9szLq6GihR67S2yU8Ysk+gwYuV1mEs+9jTiFMYMQ/Dk+uDI60b 5rgOlEe5CEJs6tUq+8rylIJwOCzV0AlbKaTGKkrUrTbyuvVNWDe3YMXUhjmD CxOl7RjStMOX44IrtQ32+BaYoh0oCe0XZtOLpWyqJsz6SrcHAfYQUE0xpBoS BtVGrBtrsWqwyO+hmS62yU879WfZ0ZlMTRBnRX1UPSqJJjTyVl1daPKPxppG PaY/hkWLGcvsbTXlWqyWl8iLeQtavfy8gz/bKD875U0ywRXLn3WoidJTk5Qj 9yKbfwUbcRnxcayN+6l5zJjLY+yixZR4zGAoqQQ950vgOVeCZvkRgyL5EQON vE7K96KS2SJuLUV4MLaNn71mabLULG/jZwTpFg9wsWcCq9g33dnOd33ylwn+ r/ifivz57z///ee///f8jb/4P/FFmUw=\ \>"]] }, 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.5718259470154696`*^9}], Cell[BoxData["51"], "Output", CellChangeTimes->{3.5718259470154696`*^9}], Cell[BoxData["21"], "Output", CellChangeTimes->{3.5718259470154696`*^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[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", ",", "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}], 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["1", {4.614869202947836, -3.554310950391028, 2.411210070600467}, {1, 0}], Text3DBox["2", {7.355112314062959, -2.694350105008248, 2.744610744548887}, {1, 0}], Text3DBox["3", {8.698692918106337, -2.8869753357724486`, 0.184413252376878}, {1, 0}], Text3DBox["4", {3.436317047127267, -2.223875705206328, 0.2005784563998525}, {1, 0}], Text3DBox["5", { 7.579900032796996, -0.889281432147307, -1.5862505505532845`}, {1, 0}], Text3DBox["6", { 4.7478889268919975`, -1.0475497829032905`, -1.5687611588525774`}, {1, 0}], Text3DBox["7", {4.554603956711093, -6.408806156108559, 1.9554486830630382`}, {1, 0}], Text3DBox["8", {3.1227514141769537`, -2.934903448589884, 4.8092651715653805`}, {1, 0}], Text3DBox["9", { 0.6815830692450876, -2.219666918267925, -0.00009431944060711572}, {1, 0}], Text3DBox["10", {3.319565980468145, 0.2052663027820938, -3.690068409183111}, {1, 0}], Text3DBox["11", {-0.6, 0., 0.}, {1, 0}], Text3DBox["12", {-3.263475350554561, 1.7565345705532793`*^-16, 1.358295608504471*^-16}, {1, 0}], Text3DBox[ "13", {-4.687318925031777, -2.466514975398433, -2.220446049250313*^-16}, { 1, 0}], Text3DBox["14", {-4.548174753024606, 2.2250373601984865`, 0.00021820557347695946`}, {1, 0}], Text3DBox["15", {-7.200929289123932, 2.2311038412662842`, -0.23944232383529152`}, {1, 0}], Text3DBox["16", {-8.500976716180661, 4.430454713383563, -0.034966668901050824`}, {1, 0}], Text3DBox["17", {-11.251826703888613`, 4.436845077763216, -0.2836026387026047}, {1, 0}], Text3DBox["18", {-12.643504552133923`, 1.9998051966611783`, -0.7667852063335983}, {1, 0}], Text3DBox["19", {-12.531748958592422`, 6.602231036219992, -0.08225525094987507}, {1, 0}], Text3DBox["20", {-15.304830822908883`, 6.682445648461901, -0.7260599371997856}, {1, 0}], Text3DBox["21", {-15.821743048234781`, 8.880020066728685, -2.2078937743091855`}, {1, 0}], Text3DBox["22", {8.299396137123855, -3.908897364942389, 4.114715741419429}, {1, 0}], Text3DBox["23", {7.392748568810903, -0.742272719481524, 3.4008564516189583`}, {1, 0}], Text3DBox["24", { 8.408442027272741, -4.765260190419248, -0.6098646865305253}, {1, 0}], Text3DBox["25", {10.713479643249574`, -2.538480162591921, 0.43232301408399265`}, {1, 0}], Text3DBox["26", {8.16330504090098, 0.9833954796886937, -0.9577357512584818}, {1, 0}], Text3DBox["27", { 8.270052100922678, -1.208769002057873, -3.500634516647988}, {1, 0}], Text3DBox["28", {2.6020810864769364`, -7.028549825763692, 1.7398585897487386`}, {1, 0}], Text3DBox["29", {5.409425343058154, -7.378357814268131, 3.5588757175099066`}, {1, 0}], Text3DBox["30", {5.609017102259517, -6.8530179555298485`, 0.24275881770402474`}, {1, 0}], Text3DBox["31", {1.1404429301981458`, -3.419711376269311, 4.528974925752826}, {1, 0}], Text3DBox["32", {3.286111547147487, -0.9228169584104742, 5.218851264497889}, {1, 0}], Text3DBox["33", {3.878583189445202, -4.020883335260933, 6.387854705621925}, {1, 0}], Text3DBox[ "34", {-0.3328707252213564, -3.9838318474541836`, -0.15709113671015373`}, \ {1, 0}], Text3DBox["35", {4.65300229354374, 1.0879568787632234`, -4.988506112813955}, {1, 0}], Text3DBox["36", {2.061682422695675, 1.6413780536672604`, -2.9167078034782667`}, {1, 0}], Text3DBox["37", { 2.210777334269506, -1.2069464697931862`, -4.699452044267817}, {1, 0}], Text3DBox["38", {0.4203883875406166, 1.76744541635184, -0.00002783052498023242}, {1, 0}], Text3DBox[ "39", {-4.894103018093187, -3.1398329183587794`, -1.9355251739643942`}, { 1, 0}], Text3DBox["40", {-6.550602516247866, -2.1836453585045152`, 0.8312200468535239}, {1, 0}], Text3DBox["41", {-3.6470682891414357`, -3.8597577658933635`, 1.1042624159364158`}, {1, 0}], Text3DBox["42", {-3.5358943438166253`, 3.9877560719028837`, 0.18387768817683914`}, {1, 0}], Text3DBox["43", {-8.198066956231491, 0.48462038532931356`, -0.5860058058554208}, {1, 0}], Text3DBox["44", {-7.5034040526726535`, 6.177088756853044, 0.3113558276591548}, {1, 0}], Text3DBox["45", {-14.673353460622273`, 2.34092304697066, -0.6877759478452892}, {1, 0}], Text3DBox["46", {-12.123358651611445`, 0.6160670190566108, 0.667359507909542}, {1, 0}], Text3DBox["47", {-12.1404648102148, 1.2797459382315148`, -2.630105033157284}, {1, 0}], Text3DBox["48", {-11.579857747734993`, 8.296324131762642, 0.5416817701468233}, {1, 0}], Text3DBox["49", {-16.411129713270977`, 6.749118263850597, 1.0101284470066787`}, {1, 0}], Text3DBox["50", {-15.809789536084145`, 4.99742674481006, -1.797766576537123}, {1, 0}], Text3DBox["51", {-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`]}, 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, SphericalRegion->True]], "Output", CellChangeTimes->{ 3.571825947093469*^9},ImageCache->GraphicsData["CompressedBitmap", "\<\ eJzsvHdcVHma9v19enafffZ9n92d3dnZ6e7pVtsc2g7TyU7miIKIgrHNimJG zIqASJCcc04FRS6gyBQ5xyIjAoKKWbvtMGGffe+qQqdn3nn/f//Y+njX71gF dc75Xfd93dd1zq8w3mNz6MCxPTaH9+2Zssp6z8lDh/ednrLyhLW89Iv/Af/j kC6moNv+L3j59F/y778O6550r/z39n9v//f2f2///3D7F/rtv2No+CGVFX3U lPdRW9ZrePl/MjzykOqqPuoq+2iQtxrL+hi79XDrzz6BX1FT00tKcg2+7ipC 3FREuqqIdVYR76gi4kI6QccUeNgo8LuaRqS8HyfvJ8n7CnlfYaci+VI2PUV9 3B94gIXho/9TP/wHY6MP8fPOIsBXPspHPtJbRYqninTZVfYNFdHW8YQdjib0 YDQR+6KJ2hFF3L4YsuX9XNmNWnaTf11GexltJc5ncbOg29ywlz/ph9fJSqsg xC+bcH8VMRLJfioyZW+5XioKPHNIOZdA4qkYFCdjSD4ZjfJYNGlW0WQciCZ1 WxiFtmmUe+RSKVHhkUO5HFml7LnSPou20PJNhr0NTMz1sMx11cRcjw49fEv/ 8pvkplcQGZBNdKCKBAllQC7ZfmryfQoo9S4i80o6aedSyLyQgupiCrkXklFf UKA+m0j+6XgKj8Wg3hdGlXMujUEaGgNLaQgopsEvn0avHBpcMuiKKttoOJhe /fB/UVvbh4e7TLBMWLhgEy2TFi+HniDYJAg28YJNV3Hf6/of/wW5aSXEBGQS F6SSM9E9fk2ZfyXZdnn6/+VezZW5zqPIQU2JQx4ah1w08jEa2wwq5KArbOIo sQqlwbOIjqg62iNraAuvpC2kjHZ/Na3uafTEFmJmOMpu/fDPNNT14ueTTbCk QbQAkyRpkCZpkKWDWSY7T444T2DOdZAQmHPOZ9Nf0PNPul/XH6YhoSfrj/He 6Dhx/qn6SU4MKiA5qEz/ekFArWF0rUBlV6jfLnLSUOpSQYVrJdUSta7l1LiW UeNSQs31fKouKqi2Caf2aiI9iR0SbXTFN9MRW482ogJtkJp2LwXf3r7LBsM5 dU3MfHZ6FWGSbBESCRJpknQqObcCObdiOTeNJFKFh+o1KuQk/x6NAKNxUlFm l01LaCWP+u/zvydQMWgOvfT4izMtSi8hSdBSBBWRElRBemAd6oBm/XtptoUk H0uV6qim2LVe/1qVZzN1Xi00eLfQ5NNMo0+jbNdR51lFwdlkai9EUG8bRXdU PQOpffSm9NCp0KJNaEIbVY42VMVgRsHLM+2c4IeXmR0rE64IzCFTMjtDTird MZO0y2mknEkmXSLfNl1OMYuy6xk0SDLU++bKrlXUumRRcUnJk4Hx/9cpG0pK 95iEIkAtn1+JMrCR7IB2CoO6KA/p07+bvtuPIrcWyjy1+v/X+fXQ5N9LS2Av bUE9tAZ30xSkpT6glXKHQpo98mh0TaXFU8lg1gj9mUN0pQ+gVXaiTWxAG1uC NjKZb8fGTA1n22rg0z9joE7X6GvlNf1rvyROTiPigpKE8xmkXsgi+6Lw0hUV RbY5lF4VZHVhm0XppXRqb+TQElxIq38eze4ZVNsm6ZOZ6X8B9stR4ZchZ18m 0Si8oSXHv4+S4EGqIkb070ecrqTZr40K35v6/zcEDdMSMkJ7+IikqYwRQ7RE 3KQxvIca9xoaA6pp9FXT6BHDUO59BnLv0q26jTZTZiC1HW1ytcxCDvdbWybO vmOCsHWPOP80/ZgoaRfqkG3YvpRHxuUCIYgiIYdiyh1LqHIqEWxLqHcpliii zqmAGsdcaoTBWvwL6ZDiafNMpSuu8B/0H/+/pCE9MDQkiUZpSk3lBnjHBh/o fsIw1TNQyLEr/Gok2lH69+tfLQkbozrmniH5XYb0Y1NQP3XBhtfaIx/QGf2A 7tj7aOPu0Ro7Rm14v3BpK41hzTSFamgKSKMjWsPN/Ef0qO+hzRlGm9WDNqMR bVoR9zs7qZJDq5VDq6/4Wc+UwzP6+UT9Rr/LpADD5PhdyiLsstqQqLZl5NlX UOJYRYVLDbVudTR61hFuepXWo1dp86mixbuCZs8y6m4UUSUT1ioTrQ3JkfcS eT5yVwrCQDF1tb14eQq5Sx+L9FAZUkV4JMXJsK0Uqky5kGWYtb9H4VMiM9dI sm83qX5D5AbfnUjeX5Dv3k+J721iHMYnqu9NIbnnQnbP6U58RmfSE9oS71MV doumKJm1GC1NMXU0ReTRnVzPYNEzegsfolWPoc0bIFWS2/FiLC7nwwgVLogS Fo93EUIWFk8SFlfIoSmkSLoLe1cbJq7tzwD/hiS/VEn2Iv3/gi4VEX1Zo9/O cain2LmZSrdWYbJ2mn07aAvoQHUik5thuXSHtNIZ3ER7YD1NflXyM2VUS7q1 BhegDctgvKFNTlm3v38Q7fGAAJ9MgoWYoySSpPmkCzmrhJIMx/EeRdJ4iuSQ C+SQC68YZjXOqRiFdyvJPv2kBYySG3af0pin1CS9IN9rhBL/+5QHPaEi6ff0 pzyiJfZHOhJ/okvxo0zVD3SmfEd7yhOqw4doSrxFY1KvjE00xRXRndbCYOl3 9BbL7yt7cbVLxs1egY9dPMGXw0kWpNM9DNoox8XQFPOuSQi3qC/LeCaTxwMP VhqmtF0/mE1QSA6BdoYzCL1YRdyVBkM3dNZS7t5DrU8fzQEDtIfcpNq9lVGh ir6oAfqjpQ9EddMZqaU1THpHkPQLSaR6nzwpowKhmDj9Xu7KbIb5Z0kjEAEo oZSWp5J9FvjkirzJo8JLTZVEjWzXeOVSLbqrSicoj4QRfDST+OvNKLwGZUbv kBvxiNL4b6mR2cr3HqMk4LEQ/XPUQTKT+X+gO+UpHYrfUxMhJRx5m+KgTjI9 q8n2qqEorFGiiial9LikYrqzWhnUvCDGpxjva2n4OCoJcFQQ7hBP4rU4crxz yJdjKXYXlnYTNeMm+k5CIzOsEfQrRCiVX8mURlK2wjCr9a8agaEPmL+i6iRR ArqHz/lc/Rh2uYnEq4aGVOwmdO0zLLLtNm1CVZ1Rd2i40c/9jJsMJoxxK+E2 AwnDdMcP0hbTQ2NkG3Uh1dQJ1bXFFaKNT6W/sZUo/wxi9BIyh7RAtbSCQor8 Syj301DjX05DoHBHcIVoiHJaQzTSBkqEBgsJOxpO2PFsQo+WiQDsQxl0j5yo J5QkvKBa+SPFwfcpDnxAeehTqiK/JT/m99wrHifXuwm16IR8nwbyfOrI9q4m zb0MpVeBRCZKT5lD33CaUypI9C0i4Ho6AU5pBDspibyeQsI1BVmumRTL/Gu8 S6j0KaXGt1QadCn1ctz1ftIYfAuol7xoEIFa55gulVrCcsNkN/0NPfCyCQde zsT3XBH+5+snCtYElesIKodeKr1u0xz2QNj8Ed1xj6lzFTGe+ZAhKcjhlIcM pozTmzxGR5IUYVwPdZFNMt1lNITniAaQqfUIIT4wm4SgfJFWxeQEllMkXbMi QNI/uIGmsCba5He00U10xUjENspYLx2mmjCrcMKP5RB+XEPYqXqUweOoZKqL E76lSvk9mphHFAXeoyz0ESWhd8jwqKcs6zljed2ofevIl86m9q0m06tcCKlU uLpAQkSFTxypHt5c3XOCG2eCCHFOJ1hUf6RzFglO2aRey0LtWkCFfzU1InYb gutoDq2jJayO1vBaEeLVUsKVkhIaWoVc23xyaHZRMqppX/bz2d72F7P9SoNI gficzsD3TDkB51uJsO0j+foIOe7jIjb7pbjHaIn6VhL1BWqnPu5mPeBW6vcM p71gJP1bBtOf0psmiCjHaFIMUh/XQV10DXURUnDhSWT5RpEUWCCzXU5mYK3I 9Uah0VZqQztojuyUbtRNV0I3vUnd9Cu6GUjuoj9ZS6+ijQKXfCKO5hBxrEK0 UIM40AGyoh5TKJ2rQvktlcmP5fNuo3RrJuWGJLBHjVBpB131f6JGkFP7VUqU kyXJmeFfrC+stEDxY/4xpHp7Y3vAFruD13E+4U+4i5o450KU0gayrhdKRjRT K22nMbyd1sh22qM70Ma0S0ZIxEk7im2WLGmgQ6xQR2gpWmk1re7SyIfvLDVM bsOrzvd3PxMPsdcku0/l4Hu6Bv9zWiLsBlG43CXH6xGFfk8o9f9e/J905tgX Qlwj3Mn/gaHM3zOS9RMj2T9wK/s7+rKeina5T7NyhHqFZLko25fVo1PSaaKk dQ9D9XxGY7Q0ACGgLsUQfcohbqYNcSt9iKGMQW4JUQ2kizQLqyfisEjdo+VE 2DQQebmFDNFW+QmP0CifUJP5lAy/DmmTGpJulKP0EGPiJRExyOOOR+T4lUmU iIKXkEJPD1WTHpwqxxJBjIsH9gftcTjkhoOlH+4nYlE4V5LhVEWhVxM1od00 Roiaj+mTPOunK7GfnqR++hR9Er2SC910J4lhiW8VDOrQhouKD8oQM5PHxGQ3 /g1CMSgCC/1r4RdS8T2ulqmvx+98N+H2Iyhu3Efl+5TSkBfURv9ATeSPtER/ LwRzn6G8ZzLVPzGs+pGRHJn2nBf0qZ6JbHxIc/oY9akiQZXNVCcUUBYeT1aA 0qADAzpRB/YJ396SMjDI+M7kO1Ii97iZcY+hrHFGVPe4nXOXFrdMBlUj4u3y cbUI5bJJGFe2KrDdl8W1Y2o8zheT7K8lI6STKOcSoh2LRGyJN3QvIcVTF/nk F9znTk0v2UJmmaElZEUWkRUtaR6qICUwFLdTDjLlzjL1flyzDMP1YDTxV6Uk nBupCh2gIeoWLXFDomRG6Fbcplcp/Sr1NjfTRySGJTVuybHfFHUjcjmpTbRB jXjGAkn5hImZr9YPe6mqkSSS8HTJJkA6bLBomBD7bNo0fa9QeTmOD43pt32P 5ON7slGovpcwh1GS3B6Q7f9URL+ohBhBIvEH8jxHGcz7lgFRB4OCxFCukE/e C27Ja325UgiqhzRl3aFOTE5dZgtVinw0UQlcPHhOv4/LB7xwlKRztQrA81iQ /rXutMf0Zz0RVJ8ykveU0fyntLsUkH7KGfOvvsZiySp2L93CZaNAbC3iuLo7 FYcj2dw4Kxl0OR9vkbgBV6Xr2ucS5ZRP3I0CQaWAMNckItzVtHf+H0qSK0iN yCctOo+0qCwUIQmEOnvhIKTjYCmjZaggEseNgwp8D6ZKl75JbdSotK07tCfd oyvlvsy8mLiMB2Jl70s2SlZmjzOYfVcIYJSujFti6gSV5BZBRlx8XCbjzU1L DBNdOXEpsL6uDz/vbEJEAceIykwSFZzqrnrJFukiMNMviRQKrpoonv/A11JO 8lgDvgJKiMNt4t3vk+n/WOSXSIiY5yJsv0Pp0s3Nsme0ShfoT30kwMhkqp8x qH5Cb+4jOnLu05QzRl3OAJpUYeagGAMZzcTksxVs+GwVFgvWsOVzI7ZJ6HHa fIbigAaG1D+IYtVyO7QZx70nMV+0jK3LjNi+bA3fLF2N9dIrXFkfie32JK4e SOG6tQ6XLFxskvG8kILvFSVB9ulEOuUQI348TnR1lJcSRWyV5N1z4kLTiAtL lTGFcP8IzlrsxmH/dcPViF/hb5XDzx8dwn090uP6s+TshACGcp5J+j3Tp82t vEf0i8/uUo0KMdxEm94pflL4KSWf+x0dTGBRrh/e5c7oQ4J8swiRVhHjZ7he maG7XinYFMhRFotuLhV9WiZer1QqqFg0apGd4ern45sPyZDM8t0rrcOqDt+z PQQ5jBDrfpd0cSb5YQ8JFwcVJXUd79JEaeQtOSzJ6kwBJPsRA9n36Fc/oCdv nPa8OzSpR8iMFuMYpBCHFITHGRv96W76bCWbF6xm+xdGBsD+J3u+NmafxO5P VxO2z4NHhU+xP3T+NXYsX8cH7JTnXcvXslsw2rtkNaeXO3JpYxyXdyVhdywd uxMK7E/G43wmAfeLiXhfSSRA/E+oyJxw93QifNKI8JdGUfqA3tY+wkJSCQ6I 5/SOndjvOo3DPmka+0P1B+O4P10/Bp8SZrRvpF6EQGvKt/rXerJ+YED4YTDv R4alaY4U/CCMNkKuQwpa72S69cZ/RPiiV0Kad2Ypg2XFExhp9MMSmuq6JCuy iBKvkyCRJpHjn0Ohby5l4nkqdT5HPFKdhO5CV71vDrWCX7XgVyXOrcIui1yb VLx3pEtVV0mb1+J+qY2rZ/O5bJ2K0+lUPE+n4XVMSeiZdEJOiKY+mkbypWJy 3RpolyrvUw2L2R6lNX+Y7JhSFKGZKILjiff15+BaM8w/W64/Y8GInV+t02/v X2TCwcUm7Pp4GYe+Xs2hJcZsXbCEb1askzBm5woTdsu4d7kx+5et48ByIw4u X4X1KifOWyRw6WAap/ZFc94qZoIIpuFmG4uPcxK+bkr8pIJ8xb17+SnJq/se l+Ou+Mn+fBYswH7nOez3eGG/N5IrO+P1v+19vIhgm3ICj0mfutwmKBgu59QE PSP9QgeFjv0yl9JHRUA3pX1PskM2vSkqugseos0fkxhAq25Hm1tBR1rSy1Iq 0w+zuTv2YMIyZYu6zCFdlF1eQKEQSIno5FJqAzT6q+ktwRraQjW0h5VJlNAW UiSv5dPkn0ujUGHd9QwitggJ78nl6rEMLp5K5trpFCkHJYESEbo4qSTpbCqK U6kkn5TxmMRhJQl7kymP6qI9d0BgKiIpLIPEMCXxwTGGGfw7tn8unCUI7Vko s754vaGi/pnDAoaVALHryyUsmj6FVe++y66VUmErTdgn7+2XOCBgWa5cy6FV a7BatYJTa0/9YoJBrY/Ecv5ULJfPxepfuWYfi4dPOs7uydg7x3DVKY69Zhe5 /NFmkjdspXKPCQ4ml7m0NoLLZtkcW1bIWWPDVXO343fws3tOkOcfJM/+qH+t Mus/qVb/J+2Ff2Ko5I+MlP5B4vcMlf7IQMm39BQ/Rlt0F22xdKBikWWFVbRn JU9AVKoftnB3dFxYTvnKbqWJQskL1Ijrr6QqsIb6YJ2Fqac9skHsVQPdsQ30 xNbTG1crYzXd0YJ8RCntIQW0+WWTe0HO7HCE8EmCcH4SXjYKgs8kE3M2mciT iZJV6WSfTSHvXAq551PIke1smxSyTiaTaaUgzSad+LB0EqMyiYtQEuYfjqWx KVs+Xcp26UffSDXt1tHcl2vZ/8UaDi834chKU4n1HBVg1s6fx5IZ70hMZcvC ZexdqQNqPQflfctVJhxavQ6rNUYcWbMS6w1GnN+6kU1f72L7env9rFoejeWo tQGx01fiOHtdwTHbGPabH2bdgh2snnsQuw1nSDt5jnqHY7jtcRUlqOLyIQ02 h6o5fKjGoJlOlhN2psqQS/9CfexTetS/p7/w9wwW60AS0VomorVMpFLZCwZK v6W79AnasnG0miEJ6VElVdy/2cdfIPZbCtNKSAzI0Ns1pRSPKqhaVEkDlcHN 1Ie20iI2SBujpSdBS19SJwMKLYPJHRLt3BQV0q9oojuhFm1sJVF20fheiMDt ZCjOx+LwOpVE0Olkos6kkiS8Z8jlGRTbZVLqkP6q3eZfMdweS7MKI/FkBFFR KkID4zm+YwffLFzMpjkf8o30p11frWXbR6vYt0g381s4Y3aEi+ZHOLXOgmOr TVgycwpLZ06VmIbR/Pf0ZXVAj9R6Dq0x4bDROo6sNeLY2pWcsTDlwvZNrJg9 jZVzpr/iv8XLtvLxjFn87s3XJd7ks7d+y4K3P+SruZIVFqfEyrlS5HcFl52W 2Ft46X/LYYeSi9tSDEhZawg9V6HfLvYdpdx/lLrIu/QWSacq+V66z/fc0rxg SPOtjM8Y0DylW/MIbYV0qkqBqlJqq6zy51CV6IfPuDd6j0S/ZBQBeSQH6m4R NYjtaEUTpKU2rIvmKGlycToXNSDC+SaDqTcZTr/JSEY/tzP6GM7oEQfYSV9q O9URGgKuRBMkyRh8MZKAk3EEHJemfCqbeJtclOfUZF0p1Z+G2r5ApEmBflvj Ii3RxXApPN8uiexzkWQcDybmeCAHtuxh5cw5rJk0la3Tp7Nr9lS++UQKbOkG Dixdj9VqC2w2HeHCliMC3Tds/uxTgeodlglcr8nzdEnHHQuXc0AKy1IH11ph zHXGHF23hqNrVwhc5lzcYS6QTWWx/J7u8cHbr+vHT9/+LV9Meouvpkzi89/K OOltFk9+m1Vvf8DmTxezdcVKDpsYYb1mOw4b3XEwj5xwyn+Hy9EivK3LCD6v Qe099JKwq0KHqAkZpE/Yb6DsOTcFrcHyJxLiIyoe0lUlxVV9R0IYsbqDjvJy vn304C9AW0qRMp8kv0z9LZ8UUbpZAdIHg3qo0Pmw6EHaddcJk0dEUI+KLR8V yz/GqEjLsZzb3MkdEc8oll11k/r4eoKuRhFil0CYnYJI22TiL6YSY51PvCgj hY1ohnMaCpwNHF/iUoHGzZCHlZ5lVHgV67fzrqeTczWBzNOBJOyyw8ZsCwvf nsX6mfPZ+f77WH7yLge++Jx9i405sEzqTOrn2FoLYbdvOGa0ni0LPtPXmA60 ZTNnsFzC/LPPOSCAWRoZc1gAO2IsdWa8hjNbzLgggF36xvzl3Z7fvf0mn0x+ iwVTfqt/5evJb7Bo0hssmfI2S96ZzNJ3JmHzsTlnjFawcvIkicnSMb/C3sQJ hw1hOGyVXi0E6XSkEE/rYgLFLuf5DlIUdIuy0EEqw29SE9FPU+IgvWWP6ZPS 6i9/IHGfnqp7dNaIzKgVQVgrUqOmlZttbS+vJhgQW06iZzwK3wIU/jXixNvJ DuijOOQWVVG3aYoXvJPv6T3azcwHDIsPHc19yB1R2XcLHnCvYJyxgruiRcdI dk/TX5kOd0gjyl5FvF0uabY5FHg2knRatOxJFVmn8yjzbDIg5tGIxttwJV/j XYnGt1K/neWYgfJ8hEgQDxQH7InZbsOCSXNYJCy1ePp8jGZ/zN7PlrxCzFJ6 lJWw4RFB5KiU0Lr35k0gNl2P2IpZ4sc+eJ/9a4xFWa7jkLGgZrJOVOIqTq3c ypl1Vmz/ZL1+3x9PfsNAjFP1SC2e/CZLJVbNmMJqaYtG0+cQss2KlVOnsGbq ZIxkXPvOVPZ/vBEH40AcNidwbU8mjlZ53DiVT/DlclR+NykIvil2f4DyyH6Z 1l5qortoyRikS/pVd/lduivHBKnbdNQN01E/KGMvrdVNfPv06QRYqlfLBV77 870mw0X9e8Oj4njF+/mUCY5NpPh1S1e7RUn4GNWx4zQrHtGV9kRv7m7lPOe2 +rlg9px7Rc8ZL37GeMlT7oja0T0ipKNFXEuVUBPjIM7JXkOmXRlZV4sJP5BE xlElpWfSqLpouBKkulZCrpOh0vKd88l1Nqy1SLAJI846iPgTPsQevEbUrpOs nTufz4SmvpLU//KtqSx4Yworp88T/bhULwQPrTIWbSHVJFVlsUCocsZfYrhy zkz2Skfb8rko/6W7RLsc5+wuZ85aXeXI3gMsfXcai2ZPmaC5/80XAtzXEoul 9JZKLJ/yFqtFiBrJ5x58dxUXjIxYK3myZvpUTGZMfw1T4fBfc2aRLfZm0Tjs VOJgmYXTCTGyzm1k+PWRG9xPQVgfJZG9aKK7qYjpoCqmmWb1IG0VI7RVD9NS O0hz/QAt9X00i9Hq7uhh4hJ1jn74e/3x/fVtcsN1vHn67Y6qJhQe2Si8qyTa Ufr2owq+TUnUODWJT2hRPqcr44XeCQ6pf2S08EdB8EfGRbveF0l0X/M9dzXf 6T8rVJpd2KU0/T3cmEul4sEqUF2pJOF4AbFHxFBcKKb6WiktNwx3LLPt5TUH w/3e/Gs5qByy9NuKC7HEnQkl5oQvMVbOxFpemJjpr1guRLZyyhRWTJ7GEkF2 6ZtSGjPnse2rlez/aCHnP14onCmIykwvnTFdqnOGlNOXbPp4GwdWn+PoAXdO 7j2Jzf4DnPtmM1amRiydJ+gLosvenc4X77wlzU6H5m9ZJGS6RJBcLq+tmCoN b/pk1s6ahrvRAfYv/AST2dMx1sWs2ZhJ1mwQ3l4vZXvFKJSrWxK5ui8VZ+kh cW7dpPj0kBHYgyq0B3VEN4XRWopj2iiNa6Q6u4OGSulD1QPU1fZTJ3DWSVlW VrZO3N7J/dkCj5/dbDAAOckAZGUrCrdcFJ61KLw6SfW7JTu7i8eJcoJ2xBF3 pI3U053kXpKcuiaU6z5KQ8A92iLu0xn/iF7lY3qzn6B0yjCU57Uywu1rib7W TLJzFyrXLhQXG4k/U4XqaiM+ZpEvb4qXuGkoc9dQ7FI0gdNccq6rSL6cRPyF aGLPBBN7ykP/TtyhI6yZZhAYa6e/wzqpknXThOIE02VvSfxmKrZzV6BYuhz7 Be+ydsYSzD4+yG5jO7ZvssHCZBvb1qzD0mwDp7dbcGbHZs4Kjus/e1+P4XLB cMW7M1gm2vNLES4LBcPFwgLL3nmb5dPeFhZ4W0+vm2d/gde2Xa+xfu5M/p31 c2ZgKlvGs2Wc9Q6mIne3zP+ai+tjuLQjBZ8L9YS7aInz7JTm1UlasJbMsA5U kWLFpSrVCfXkJ1VQUdlHeXXfa5TX9ulmpqqTx0+f62GaKMy8v3lhXfcwLBfq qBAcXdSCZb0UpiSO3zCq8HHiPYbEWDaQqfgDOal/Ii9DzGTRH7ld9kfulP+R e5V/5H6VLv7A3aqfiLoSo//USPsqIu2aiHNoJdW5m1yPHlIdGqVAm8lx0xJg mUfc0UyK3GulXdZSfKOSkhvllAqohTdKyL4uitVOSaJtgoiiCOLO+ek/N/74 KX1P0j3WS1GsnzVVZm6qiJ132CRFajZlOvvf+wz1YSsyDq7HbLEFxmu2sEgK cvFsmelPf8fxLeac3CYCSIC0mQBymRTjSxBXvDtTvPwsVgk6iya9pVcyy6ZO YsW0SVKMk1gnr19cuINLm4xYP28WphLCrfNmCreazpuhL9ANs9+RY5uM1do9 uO2rIOBcJwH2nYS4dhLlpSVeRGNSSDspka2kxTaRnlhPuqKK/Io+1IKmWrfM pv02D598O9EEJyD89V9wqjK5Bn93w7qB8KvJeFvG4X1ITaBNPZGOvWRLmRXH P6Uq5TuaMn+gM/dH+gt+4lbJT4xofmKs4ifuCWz/oP+E14lz6iLVrZ887wFS rzeSaN9Ammu7iOgOgo6qSTuVQ4lnAyXudZR56KCrplBqMFu6Ytr1LJIckkkQ AxJ/OXiiS55j6/yZhkSbO+M1zOZO5xOOySwnmnzCPkHDQmxd1IkjVHudYtE0 QWGWSNC5swSNWWxeupCjgtZxQeuUoHVa0Nq+TOh43rRXSK2Un1v97mwx9rMx klrS6c3lgtQKoc1VMyZjPOc9IvadnEBqNqbysxv0MUtC6FOHmByV6ZwphJ/y 5lbeD8Re7cHrQhde17rwdesiyFdLWHAHURFtxMS0EJvQQExSDQnZjaSU9NJ1 6yGrfiZjeOOvORN/H4PFivNRkeJtQEwlyPnvj9EXQ8DRKoJsWoi43EWm3xgV 0gEbs76jI+8FvYUvuFn6vTjM77ld+T13qqT71bx4dak/ytZg63SI6x6pnjfJ 8uyR06gh5ZoUr0szue6tZDi24X8klyzrFEq9Ginz1kU9BYKgyrWQdJccFI6p JIjGTbAPe2mg10kjMpfZ3Sqz6/b5fII3LsD6i3c59sl7mH30IcdMVuB/zQqr DasNckZkzDKZbUuLTVgJese2mnNCh+AOC0w+fd+Ansz6CvmZFYLEmnfnsPa9 OZi8P5d18wVNqeUVgpyRoHLoI2MubTDF5F0dcnN0dTZ/Dv8mz/J/+dkNklxb PvqA3V8tQ3E1mqH8PzJS+AduF/2evPA7hIs2dXLvxNVPi3twO54RLXhENRKV UI5G07zmZ7LlZV/RLQuNlkjxf7nS6N8o9lKh8VQRezSekP0qgo9WEHK2WWa+ kySZ9RyfIeqzntKW94yuwuf0lT5nUPOc4UpRo1XPGa15xljNM0OZLSDZpZ1Y u3qSrzeR6doi7NhKoU8rMZfF+zioaAosFrMg5sG3AbV7GdluRaTfyEMhXTLR KYmE6xEkOnrrP23dO2+ydsrr7J41hdh1C7Az/hSb92ejtPicI1/OlRmazqb3 pnJ29ybOSBh//D5LpMaMPvmQg+YbObR5E0cEoWOC0AmpsaVz3pH6EyYUPtMh tFJqZvUEQsYfzMX0w7mY/W6uCFip3c9+h8fGo6wTdIzlZ0wk1s+fI+1Nfvhf sfj4d+z64itOrDaVMGHfsnXcKfuJ4WJpICW/53bpTwxJXveXPKO76AHaolG0 xX0yNqNVFzLe3cbPEeIjwnxTiQrI1i8fTg3MITcgl2I/NRVi72r8CmnwLyTz Qiqhe7MIO6oh/Fyj9CHhWudOMt1FAAUN0KS7s1XwmO4Ssf2aJ9yseMytqscM Vz9iRGK4+oGhnC4Yyir4SpsY9TaD2LwsZXq2hBjbClKu15Dr1USBWBK19DCl TyUF/mpUN3Io9NIIqkVkuReQptNHrpkk3lCQ6BpJgpO3WMdLE8n1Nkc/nY71 wg/x+voDQrZ8JSJvPpsENfP5UzH/cBp7V32B9e6NEmasFfT2mZqxf+NGDkh9 HdoiNSboHd1mztLZIijn6thzpp5BVwoqq6Va1r5vQG69oLbtq084Kyi/XD6+ 9bOv2Pb517x8HF1txrE1GzhhJJAZmcj2Wgoz/5P7NT/or0XeLhMaKvuO/lJJ 9NJHaMvEfWvEeZe1oC0s5NsH915CZmDCI+Sna4gNzCQ+KIe0oHzyJLlLAsqo CqygPqiSltAq2sOr6YysIninOGyrUiLONhBl10aiczvpHh3k+nRQGtZDc/44 HcX3xVbep7f8PgOV4tqrxiXucbP6roFpj2TqR79zuusrrfptT7GqgecKiZQC i7crIdmxlGz3SvI8qyQ1ssW+lkohKqTQMuS1fLI9pJ+5Cxu6S8F5CGzuUnCu XsTan8f4ndfFEv8HplN/g/fKD7FdvwCLD2az6f2ZUmgz9MVm/tF09qz5gpMC 24ldG+jv1uJ68Qp7N5ixd9NG9gt0lgLdYYFuiQ42kRR62pxroMRVUj9GOjqU YtsskNkIZGeFPi8s36M/n/2L1+jHA8sMrv7QSjOsVhvWEh4T6I6vXS9hzFGj tdwseUFZwZ941CR+KnuQW5qnkvaP6SqXihNbrq3sR1vRJPOa/3KZbLZ+OEpb nU6ppJEYmEdKUAk5QRUUB9YIdPU0hDaJim+mU/phb3wr/QktNPrXEra/hIjT dUTYNhHr1EqKcFuWbytq/xbKE3tpKhijrUR2W3aHLo1hAUFP5Sj5CRr9tq+l wXj7nK3Fz9ZwIcX9VC4BZ9WEX84XCApIul5IqkshGWLp4hyTxX2oyQ/OlWpU k+OZI80vmzTPTJK90kjySpQIk+pz47z5OpH9bwiEvxHe/DVm774jFTaXTR8K fB/MYuMHM1g6620+n/4mn4hk/2LONDavWs4eUxP2rDdhy7LlmHzxBbsFwr0C 4X6BcJF0qyWi+JYKfEsFvmU6LfL5QjYt38jBHQ6c3OMiJt4Fm83OOH7jzTlT R/05WS3d9go+y1UbOLx6g6EC15pybN16iXU4WZ4WcnzOQNkzEoMa6M3KY7D8 IX0VUgKS8tqa22irewXCBgaaGybQC5gw4RWVvdSIlqwTTVmn6eO2qJTXJ77v Eu8rsxIgZimwTAxiLQWBTVQEt1EfpqU1qouuuB76knq5mdLLUGovw2k9JJ8s JfRYDWEXmwgXfxanW6/l3USWXyO5gXXU5A3RUDBEc/EQraVDtGluveypCRHp eO5N0GtTw2trsTuUwY0TWfieVRFyKUfqPY94R2lyoiVTRImkCY2mumVRHFlH SUiJgJpJhle60GwqCt8UknzjSfIOlsNwlfb/oZinNzGZ8brYg1+zctKvWS8C cePv5khdTeGjyb/hY4nPpFGukOb4zerlHDJbz6EN6zlsKqPEzmXL2PTZAky+ /IKdFhsxWfQli2ZN19uGNZ9+xYGdthzZ68C5gy5ckbi23wWXvS7c2HYDvz0e uFk44WJyXX92divO68eDq0w5JN1PD7jU5FFjqUnjtUQ5hkn7Eftb9ojaPN2U DQqo9+ipvkNnrYBaN4S2tpuOqjq+ffL4ZV366of/m9raXtKUNQSKJInyUJHg pjIsLXcWRK+pxDWp6CrpY/zmQ/nplwtiDevXVr6Sph21bRNLuYtJCagjO7CN 4qAuqsP6aI6+iTZhkN5k3TqzYYYzRridNcyYaog7qlsoztQRdKqJoCsthDo1 E+PeiMKnjnT/avLjm6nI7ae6oJ/a4n5SovKJDpa+HZpKRHgqvleS8din4oZV PrZ7U2UyU3A6noanTQYBFzMJu5ol/j+bODEUic5SxdI7U90ySffOpyy+DpV/ Fqk+KZIEQsx+kgR+0cR5B+Jy8oj4rrfEd/2WdTN+g9H0X7NaiHrlpN/w5fTf 8rGA/4nEF1PfZKH8f/ea5VhtFFAkEY6Zrf8FxyQbfsUxKfajJib4XLyI+8UL bPjic07sOcfpQ87YHHbhksS1Qy64WrrgdcAFn93OhO/2ImS3K6E7XQkwNxS4 v6nThEL/FyyNJMfWGXPYeJ2EEXmRGuHbcTpL70kvuytcPCYFfVsgGaZdd3m0 vp/2Wi19HV1SKXrsvSe+jaVbGO/nnUmon4o4iVRfFdliKtQiUQvFUBTfkHAx LIxX26nIuaii0r/S8AUWo7/wJT+/QlecUiATKkJFAEzxbyMnoJfSkEGirNKp 9migO+UOA+mGlW+jOePcyRvnnvoe9/Lvcid/jALPTnytW/C1bSVAEiLCvUG8 Tg3K0Brys/soUvehymwmUBIuMDAVf0kIn5A0vIJSsTX3wWFLAnZ7UrggLGFv pcD1VAre51INostOd91dScx1JfHOSunEShRuqSIACyhOLCXRJ4F4vzhi/WOI 8Y0gzN1b3OYk1s+RkIQwmS0JMesN1s3U3VL6Dz6R+ErM+WKRustmi02c+w5H N0rXlDghcXKj6Wucko2Z8ryek2a6MOGkJMZxE2NO7jzN+cPOXLRyxtbKhesS 7oddpXPdIPigG6FCBorDhusVcQfdid3vqt+O2OFExBYnQ0dbY81+I2MOCstb SkIcWLeGhvxRmgtHaS25TVvZCG2VwqM1gzTVDdAsCdFc30t9dSvPnj6dyAkv /fBL7uiW9/sZlrsoJLIlCiQ3yiQ3qrxzqPXJoV6iQfKkXvKkRjijQviizF5F c2jV3/4mm+4xjSSPpFdfTVH6dZGruy0TMYaDaQwF55V0+rYxmP2UkdynkgfP uFf4lPtFT3lQ/Ji7xQ/FiI1TnzhIpFMHN6624OnUKLRVJ0K+AmVGH+k5ffgG q3H1TsVZxL2jXxq2DgGc3mfJ6Q17uWIShd3OFM58EzshWt/C51IigVcTX4nW aOdEYtwSiPaIJzk6n8zYTCL8YmQf0QR5hbBn2ZeYzp3MeskJk7lvS0g+zH6D hdIpFkhXWDD5P1g4c7J0CjGes6ewffGXnNi0gVMS1ps2/ILT5htklm3MTTm9 SRfrsd5oIql6mgv7r3JZ8uDqEV0euOFh5Yn/YR9CDvkReSiA6N1+hG+/QuT2 iy9vTiZaehG/3524vTeI3+VkePmf2LvWiH2SBd5X/ajKvUVt/iB10hbqNTep rxImremnpq6PWomqmi6ePvuWdQa4PPXDv3F39L5+OU1sYDZKMUc5ItuKAwqk /IuoF5JvDtItnSmmI7QYbVgR2tAC2kPyaAk0pEatazYdURX/+MoNvzaxTufn iaEbFe5pKLwqUHi3Cf/0kxdyG030ffKChyiIGKEp9TtuRg4wprjF3aIfGC/5 gQfiHB5qXnBPbPFo2RNulYzTV3ibssRuIYkWgnzruC6SPFDRR3BaH9ZS7Ccv +XP8hC1H91hyzNyME9KWrTdv5Mymg1wyS+CUeQzWu2L/fiIvfK/GEHDNsDYj xC2WYI8YgnwUxCeVEBaUiI9XBDuXfo3pvHckFyZjMk/yYd7bGEs+rJ4lTUKa xRdTfsPnkhOLpk9ixZypmH40X3LBTHZlhrWEjYUZZzZLWJi9xtnNG6REzsiz fvHBroPYH7mGwxEnyQ17rll54Wblj9/hIEIOhxJ1JJwoywgSDvgRscuR2H2O KI/5kHkmksyz4SiPB5F0xA/FIU+S9jmRsOMKtiY7Ob33qJioPopVfZTm96ER i6wRPVcm2q60WqJG3hMV+OTZC4wNODm9avo/u5n27xOLeVL0i3mSxYrlSEIU B2pEz1fSGFJNW1gtnVG19MTU0h9Xy0BctUQl/bEauqNL0IYX0CrJ0uSRiTa6 9B//xv2BV3v7wpApN7JReNRItmhJ8x8kL+wumrhH1Cc/pyPje/pUP9GR+wfx 439iPHecJwUPuStt5mHFT4xXfM9o+XMxLI/oKxFhVDCIVq1Fm1uNNiNT//nZ yQkc3GiMpdSkpZSrlUB13HwjJyVLTos6P7N1E+fMLTlu7MZRc0NqnDkUpx+v WkfrR9crMbjZG65be96IxUNSx81TwjeZ0Ng8di5fJCmiS5cpGL87WWKSxFus m/cmS2f++2t8KaLiH+T5Df0t1RViGg4YrdRnzGlJWBs5FEmVLRtf49wWM8mX 81vN9Fvnt2/D4bAt1486SbjjeNgLZ8sAfA6HE2QVTcSROOJOJJB0LIW0M4nE WwUQf9iDrHMx5F5OkkhAdSmWjPORKE4Ek3zEG8WBayTsOou/uKC01D6ypPXm SOvNLZIokxZcLiF+ILOsm4dPX2BiyBfXv3HV8mXBJ+q+wxxYRKaYv6KgWiqD G2mUgm2PaqPaRfcN63wGFe0Mp7QzomyVaJbtRnmtlt6ESkmUEjpCcmjxUPJ8 eJx//P+8FTHD8D0tZ/HdN+r0tyFSA4bJjRhHk/CEeuV3tGf9SF/e77mlu8RX 8kc6i/6EVvN/eFL7LS/UIzwsvMto5XfcqnhCX5noq5JhtMVdaAtr6VAZbK0q ORFLoe9D0uAPbdzAETFzOmI5JelyWvz42W3mnNtuzhGTNZgv2D1xpG9hfdyQ LpcuxnDVzpBKdk4x2LrEcsk5hgPb93Fo7zl8Tx/EWJcq8yazTtJl7btvS7zF qjmvs3Daf+iz5cspb/K1xCKJb5Yu4qS5gdhstgi5SZzbKtlyXvd0YdtGpsiz GbZ7DkqLscdJUsXpaCA3dN/Ns1HifyiBsCPJxJxQEncqlazzajIuZaK6kkWu SGm1XSb59hnkO6SRa68k205BxpU4lGdCJLU8UF0IkfJUE5XcR5x05AShmURJ mfiCPmILxVzeemT68yz5W1/3+pVosSrpN02UBbVTF9ZJa3QP3Ql9eJl4UXvW m9sZ/Yxl9nM3q4872T2MZnWKqWinP7WJLkWt4SvdIZny/yL+519Zllmv9pgk tkDhrLtF1SMdboScqPuUJj6lVhpOW/b39Kp/YLBIt2zuR8YqfuRe5Y/cr/6R Oy1/4HHnT/xQe4c7ZaP6a0edmhHJnW60JXW052X9OTfMDLlxeKMZR8x1ubFJ csMcG11ubLfQr7s9uWo3RrMXsXTGhxO5O4lvDkTz88dhyZM9llfZtnEX69+f h+kHEu/PxdHWm0ubVmAkuWE0fxJr5r/NGsmPxbN+PZEbb+jzY8n0KaycPY0j 4kpObd70ZzqTOL9tk+TEJi5u2/QaF7dvkt1f3L6R64fO4yRqxOmIP85HInC3 isNPxHSOWwtJF4qIO60i6bSaXAex01eF/+0LUDvmU3A9n0IntUQueU6iH69n kH4tBbVrGvXB+dIbRC+6h1HbLszd+YiGbhl7HjH64MXE34pw/ivNYFjDVZic JzbdcOMjPaAJdWAX5aH9+mVS2sQh+lJGqA/qo+9SNndyRhnPu819KeNxtbhM 9aCIyn5uZnfTk9GGNrkGbYxOsCTy7Padf9bv5p+It01H4VgrfqBbTOwIqsj7 lCQ+pibtGS2q53Tnf8tA8XcMifQYrXjBnaoXr75QdbfmOQNtkikDf+SFNNKx wha0lZIRZTX6L5bleQbjc9JaMkLcm9kGyQpDRuwTN7d/8Rb2LTuE5ZoLHNvn zrn91lht2c6yGTNYPseQsQt060CmGm6U61YyLpNYPlOH6hTWvTdXf8Nj/Ydz Mf16BeEeruxb/AFGwhprP5yK0QdTWDzjt3odsmj6ZJbOns5yCaN5Mzkh2WAt 2WAjmXBWsvKcMNZ5YayXy+kuSRi68m8kHcIk4iUVlAQcyRCb2EmcTTEKq2zU p3IouKAm26GM3Otl5DuXUehaRtGNUoli8m6Iv/LT0Jgg058qjTe5Aa1oKW1s Cs/HRl/+uRiXiYWnP6cF3SNB5LjCx7DoIt1fS0HwAJWRog4T7tCVovsi1X1G VA8ot65mPP+hkPcDHhXd52Gx2MriO9wWdTgoKrg3RyDJaEarKJddZ3C3qQUD /NPoKO1DYVeFwqWTZP9hMiPvUZj4gKq0RzSpHoteeEJv8VP9t1yGK55xu0p3 I0asSs0T/XGNVD/kZvV9KiruMai9x+/buymMiMLJdCe+HyzEVop26bTZbF6w no2f7cXi61Ps3uzCsR3WHLe05owQwrlvLLiwczMvl4t/Ne0dPtWtiHtnEl9O m2x4+XWWz5oitT5Xfzl+7QdzWPe7OezYfIpzO7ewad5Utr03BSOJJfJzS2dN lZguqM9glSC+dv4skTQvUTf0KAPiFoK4hW493j9OEHHQETXhh4vJtKmg7GoV 9U4VVPi0UBEoZ+beRLFHExV+bZT7tlAb3kV/rqCh+6pCplB9eivaNGnZKdmM tzW/BNh14qLhz21Aks4CeJfrtzP8+ygMHaEq9h7NyQ/pTn+q/5LNqPo5Fdd6 eJKi5VHpc55onokFeMK4CLrR0nFuFY/SV3CTTpXkVrr0gBQ199s7/mWitBMu alBcbxPrOUha+Cjq+DuUK+9Rl32f1rwH0vwf0lsq+JU/5FblQ4YFS8Nkm1Kc WEVaRB6pEdIIU/PJiFRg/ekeErYcxM1oKeZfbWeTsTWmq7exbcNmjm0256RM rGFxh4V+kc55wfSixKVdmzlqasQX70zho7ff4pPJb/OZlPUX0w2lvXjWZJbP m66/37LyvTmsEnBXfzibhbNmCsHPw+LjeZxb+QkuKz/DbOYXbJy9kE1zl2Ix fwXbPlzNzo/Xcnrdfs6sP8h5s8NYfbmHUwv3cXbJfi4uO4jtSkvsV1vq9+Vi bviCz439MZw3DdBv+1kZ7lNF2XQQcaqB7Ktt2JsrCT+UTfolUfchY9KSx2iU OWwOl/oLG6I+dICq4G7KAtqoi5Pp10GQXSd1JhB0tlv8tY34xZ+F/a9J9taS GThIUeQdqhIe0pL6jJ6sF/pb52OFP1LlP8548iiPRcQ/kQ7cnjlKXngbOaHN 1Cp76CseplPdIzttkrQrpikugn+ZWF2bH9hI4tUmkjx6SQkeRBU7TLF8VmXm GA05d2gtuCsd+y7dZffoqzDc8RmousNAteFWQnqkCmVkFsoIJUmh0Rzeas9J s0vCeXZUul5gw/wZwtHTWSbg6Hja9JOPOCHAn9qmWwxioV8Mck5A1xX0BQH+ 4i4LDpms4sM3fsvvBPyPpkzi0wlO/3KmAP/+LFZ9NJcVH85hmcSSD2bz+ez5 rPzdh1zcvIUqxzMEWG7HYok5W5ZtYfOKrWxetY2ta7ax3+IgJ/ae4pT0DuuD 1pw+ZI3NYSEVK+vXsDliLaLztDyftLLW7855v2Ex02kzX3HAIfrtoNMlBJ2q IuxcO5lOvWQ43iTpcjOeByoItEyiwSGR1si7ItbHaBPubY64JbnQR2WIlvKg JjQBFbSkS2fNKeR+j3YCd7eJHt6maSDJJU/8fj3JXt1iAYYpih6nSvFEfus7 unVfqc3/PWPFf0CrfEaOYwFutln4i+wMkzHqcibRFzKIOpNG2CkliquiLzwL ZG9lQhQxv9TvZioFIT3EO3WSKDySGjFAbuIgxalDVGYPU58nB104QluJqLUy wzdxuyqHUSeU6LcVkekkRqYRH67Az8kV82W72brTCQ97DxR+DlitXcKy6RN4 zxWs5s1m+9KFhgVAgreNkPdZwfrcrs2/4LyA/b8w/fgDPpdaf1/gfv+dt/W7 +XTGJL56byZfvDtN/N78aWKmv/5wJit13zLZ5USAnRtZftfwObtTuvQ08YAz WDHXcAN91fzZBnoRDWm91eLVvbxzuvt5sveLepqxeE14xkJI1m7n4VcS8vK2 aBz2puN53NBF80PuEu/YT6JrPzl+A1QEj1ATfo8o+yrprI20R0txxNyhI2ZU BPgwjVED1ER2UxXRQmVEDZWh4t8zpcL7OieQdtcPvyHpuqDs0ihGQHIo5DaF sdJDk5/RnPmCrlwR1YU/oY7swMshE48zyUQ7pKK4lkWaQxZZYjCyL2eQfTGd zLOppFqnkHwsiXjhqFtVHfxyolff7XtK5MUWYtx6iRfVlxot3jSpn6K0Acqz B6jOu0m9tIPGYsPfSSpIqyIh1PDXjKIj0ogMTyUoIEZvrHWXYSxWbmHPtoN4 7FojfnqD9GkDzPqbqDLxq2XiD6w34uT2P0N9ZqcObgudIZfZfofDG1brF2vq 7t4tmGH4w10fitz6RGTaAl1IM/76ZTOePhcrs0NY7dnP5SN75BPMWTZ7qtCI gD3HAPaWJQv1YJ/YYqCUP/cTC30/0dHKxQla0T3svrHk5Z/VcdqrxPlwDu4n DcuN031GyfK+jdp/lJLgMYoDhMcjRmmKvkObDuXYMTrjxuiKv017/DDNcYPC 5b1Ux4sxj6+lOqaQaimLsfYW/gLu10m0F4/t1EiyZy/pIaMUCNwVKU9oynxO Z953xHqV4O+YSahTJmEXlWSIGci9nknhtUxK7DMpFT9ZdjWdEttUiq6kkH8x iRybOPJOK6j1K//lxH2qOwPPCbncToRHHzHBfSQL4llJfahT+yjO7qMsr4+K ImGjsr5XojwoNJUAQf2Gkx/n9u3j9GYz3cUTjq7fwMElxjhuX8eFrSLE160S +2VATrfaSNd9N3z+EcdFGp0UAWwtM35aF4K2zU6xb4KWze5N0pnf5eMpv+WD SQaPsmjOdJZILJfQle0qkVyrRWhvmbOMG9t3sWrmNMw+el//uyafvCeIG1Y4 rfvkdxw238RRC/O/WlGoayIW+iZiQNyA9IVdFhPn+AZO30QaGP1QLm4TaCvc Bsn0HiIvYJgSqcCigFHqwm/TFDNGq6DckTBKZ+IoXYkjdIh3akkapF7RR22y VqKO2qQiaqKTaHRM5tnQOOY/R/wN6dXikRzq9M45VWgjL3YcTcpDGjIfE+NR QKBjGhFOGSQ4Z5Jkm0G+fSqlYgcrnfOokahz1UUOta5ZVIstrHJSUGYfS5Wz bAsRNAWV8a/6ff2KxvIHBElmhQrksTECuxxmRnof2TlS8PnyWmIFnv6p3AhI xUXGizZXOKm7vqq7tLvF4HB1V0KOrDOVKbsk9vaX8iwpIH14sRT4Ev1tdily UcX6xS+ihI9LnBDYT34jhSdwn9y1iX0bV/H1u9P4+J03X5sQ4cv0KE9nlcQa ibUSuvWclxYdZO/CBazVWaxZ01g9YyomH78ntk0nwmeyc/UqLAVtKxHhxwTt E1tfrkiU+v7mJeJC4tJCXt70vm7hzPVt4VzfmcxL6RRwqYFEt37SvQfJDRii OGSYCtFkJYG3qQ8foDnmlt4ZaxUjdCpElSffokUpnJjWR126lrq0BuqURVTG JtLunU6/ougvkX6TtqJ+kq5US0J1khI4hEroojT5HhGuKgIdkgkVc6/7I5Pp zmrUzoUU2+ZR6yIN2UNDs5eGVp8yWn1LafUrosVXTZNPJrXuSbQF59Hsq6Le OV0S7P6/Ttx0uD30LXV1j/AM6sVfwA4TsKME7Gipb4+oCs7eUHLqpC2HN23g mJjnUxNXZs9OXMa4vHOjgL/pF1zesYm54l0NOC+aNYtFgvMSwXmT9OtDgrOV lPZRwfioYHxMMN5jZsB3ocTqT9/D6KP39D5ZX8YSa+bOYK104XXzZrB+5qeE HziDsWwbi1hfN2+aAD8No5lTWTJ9GjtWrOSgmRkHN23kkMUmw7JT2efL5qGj kjN/biCG/vGWvgdc3nqC6+bBXN+RxHXLLByEw8McO4m/IaXmPYDKf5DC4CHK wofRCNZV4TfFAw/TkSL4KodpT7lFe9pNWjL6aczqoT5LK1FPbVoxDTF5aEPy 6fBXcLemZeKPmXpMFHXsOQ1JTu0idAbE4QyTEdYm2iuOkGvSLaWjJzsVk+Os odi5igLbCpq8qmj3r6MzuF6ijq7QGjrDqtCGaegIKaAjvJDu2DIZC2jzz6LB WTGxYuQzDmxYh+XG9fpLpvqr7BOXTF/a0WPGa3Hct1E6ncyIxBV9CL4Sl77Z KDbVTITXl3wlgJgs+Zp98rsHBP+DUt4HBfodpgKm2OBVn85n+9rlUm3rZT+m bF34pQFM4Vzd+l5jscMm787k0MemXBbA1s+fKTEDk/nT5b1pWHw0n33LlrLf 2JQDphs4sHEjB+VYD0vlHt1qbugP2w2rUXU9QqcKRG0LrG9P9AhxgcL1DqZ+ OG6N5dreVDzPVBPs0E60SxcKTyEz3wHygm5SHHaLiqhblIiybkwalkodoSVl UAzRTVFOgmZ2r5iWTupz2qlV1aNJFe2b0Ig2uhxthIrB7Hz+AtJJ3Bt4RtyV FhI9e0gJ7RcolQReTSLUIZcYxzJSHaulauspu9Ek0UKLf7PA1UZXeDs9UW30 6pZjxTbRE1NHT6zuklmF+LFslBcCUVq7k3LIjmtb9rHP1IS9603ITkqip6Pj VxMoH9ShbPYS5Y2C8iYDyvqL4hbsXbyGGwfXY7dPUJY5u6IP3fYEyt/oviC4 gfPb1+Nw9iTpymQy/h++3gOqrSxLG/2Wq8P0/DOv55/V8/55k2e6K3V3tSvn Kme7nAgGHMsG2zhgnBMZG9tgMMbY5JxBEgookCUQkkBEgZBIEjkH41ihq//3 v7XePvdeMK6eGa11UHCVru7Z++z9ffvsvY9MAqWcnmm4riFN8tyJY14uOE4S 9iMJnybLwG23kgs4tPZzbCdvzvKAXf7wOu64XcTxDR/BbTVJmfD3kQ2fwp+0 47KnCy7v2gmf9etx1MUdvqQJvp5M0p7w27uU0Up2+gBDAyRtTsoX6Zf+My6S a7jgw48Arwu47pGNmz4y3L9qRmI4y2exoYCFE+8PQJ3iRDVx5bpcknbOEIyF TrSU0BqVOtFaRjZZ3Q9zRS+aK+xoqugmHNuCTrkN9tJu2EXEp4u1JG3RkpTv CVKuSO5FfmQvsu80435gNpLDypB+vQ4FN8yQR3agOsYKI7Hshvhesrs96Mnp J2kOwFHcD2dJH5yiHvQXd8EQX07aIIHmVjEU13MhD06G/OJtSPwCuLjxKTch v8nFBXFBwX8thOx77TYoJCKU0VgFpViEV+H+6Yc44e7GBTpPkZ0+u0cIe+/n 6cqRDa4I3r0Vt094IJRsXxg3SPI0Qkj6l/a4wN/1K3xNEgw6dpVuTYM8cjN5 NzW4su8q9m/YAJ8dW8nA0s8hqfuTxM+SxM9z22SE6AWcF0DjFJHlNCLDqxjS I59K4P4PuLrHjYYrrnrtxGWP7YgODCUN3oUjtMCP0g8+vufldNgzDBWQtzhH hugcCf4cif2sDxseOOO9C9f2PsBd3xrEnW/CveB2JEV0ISvahqJ7vZAl9UGT NoCq7AHoyKlV5gzAJO6BSdEPk6oPxvJeGCp7aNhRX25FvaINvSpy3fTvdlkn mXUjuXAl5rraPVamavBR2aTgClK2EiSEVC0FB6vv9sOY6ERb+hC60ocJ14+g XzQCB/l/J/mHPhFdOEGLunsVqL2rQsUdOVRRJST0bJQF3YfiUhjC9u7mclXO 0ThLwj9Dy9t/pwscNtsvBGTGBH7QwwU+NI6SMT9G/+kJIQ/O89OPsZY84bZ3 3ob3tq+IxpACsJDYkgJs3QW/bTtx95QbpwCrEOqzm2jLlb1uOL5tM7w3rIXP hjW0JD9H5PGrUMVpUE5KUEFKcOqrPfB4/zN4vPc59n66nkyLO7+hT+OCsEfK CZ+BAhqh204g4SyjRsH7PfA2/d3F7YEF7nMnBXFDgKAHNaXFZL3s8HHbRffk gSME0Xzpdx8nPeAQA+nAKdIBf9IBf1LSUzT8vMkZHNoFR5+dm5X4Y2WIOdGI O5facTe0E4k3rci6Q3pA60+a0gtVZi8q8kgf8ntQIemFrswOrboPNeV9qKWl X00Gvo5c9mDVHPoqJmBXD8FO7+2qZtKHSsz3WF/SgX/jRJ4eUoJ7FxSID6hD YjDfAVp2ewCVBAwbUsfQSkSvJX2a4D5B/tJp9EunyZgQSU40wJRYD32CDroH 1ai6p4HmjgxlkYUou54CZUgk4n19uGSVy7TUWLLKBZL2eXc+eclps/HtfH+P 6GvBOEx29Ci3d+7K58J5cLlwOEtjDynEelIIxo83EAbet/ZLLlR2cT/PaQ+7 0kKjBRh5fBfHZ0NIHa6QgA5vWk9jHY21OLLpSxwhhWB9teu4vtoaGGM12P3h J9j74WfY8+EX2Pv+l9j/7pfw20E/k5Th0h4G/18gxHMubkjxCeaZwF8QQvTk 2ADb8FrSicC9rqQTLrjktX2VwD3LxBJSdfIoZBoO0zcepW/zpW87Rl9yjL7i GHkrXxqaMonQKvT/IcgsQexxLW6dbEPkpU7EhFmREGlDZlwPCpLI92f0QZrf hzLyAKW0ItVKek2ITanph4LMQnP5OEZrn2Kw5iH6qmdgryQkX9VHz+TzNbWY J5XzWIHW+XqQf0L8eb7EXxwzBE0CsYH0GTTmzaH+Tg8arhvIDXRCfyED7WQB mlOa0ZjSCEOKEXVJdahJqEb5PSWUd0RQ3s6C6kYsEv2OIWA3LZXdZDJpXPFi iuCCix47kRQazO2vYjUO09uj9PExGidJAfxpnCXTfJ7GBRoXhWSndb/mOwMw JdhMmHzXR+9xdJeRn6Oee7j9qGsn9nEU99JeQQE2s7EORzavxdFNa/DgVDBM pK/NCTVoo5FwLAj7P/4MBz7+gsaXOPDRGhz6iCzIB2s4w8XvdvJ7W2xf6/JX 3si6cJHb22LwchXHF37G8QVeE9xpuJE2kGXYs+Mngrnt7bFDThhEIeNwyCoO hLyCvl77ih1sXvii6FJSAAOyI9oRc6kL165241aEHXEkhOSEXmSm9yE3tx8F Rf0oFPdzRKdQ3kdKMAJb1SNM6L7HmO45BrWP0Vc7D3vtOOxaBz1bYK+uw7yj d0n4d7inX2By8iH9siakPuALwkRCYdgDvyQknZUj+ZwOS7k7ohv9qEyeRlPR I9QS/qyJaIMuoglJF9qhS61He4YJzentaEpvhTGtCfWpBtQma1GRwPLhpVDd zYUqOh7JZ07wXjWIJPVTWjm8V71CgOwy6UO1uETYdf8p7lwLgi99fowBNRqn SR+EpKIru92Xqs8YPWaRVVaEx8JtjBbv276DY+ERfvsIRLjDZ+N6+JBW+Gzm NeMIGxvXQX49H20prOlpI2wZjUg9dR1ff7oGBz9du4r+rKM58qG/R2n4fryG 4xpXhPQMphRhW88g6gRL0WAq8XOBa3gS1+D5RtABphSkEPt28juGS7ui4hgr Vj5i7zgRQZDvdmIfYtP6cTe7H/klIyjInsZc0yIm6r7HZP13mKj/FqP1z+Gs e4K+ugXY6ydh1zvpmXy+tg5zjp4lGccIGqiU8cdb5CZpIE5abtmXdDwJaf5l SDtbL4j4H6G4RfY/Zhgd4qcQh5FYSfNyrzuhL5rBMOF6M9s/yehAU2Y7jBkt qE83oZZEX5FUCVWCAqr7BVDHPUDy+ZMIIb8ZQtYxmBvunJyXvOYlQk+81v8l VJISAZCTE/By42R8zouBcb4cgeW6BezlQNgu/BX3kevbb2Pd63y1wyauxugN bHt7Ndw+/oRY4nac3/ohvNd8gkOb1q/Coc0bSEe8N28k+W+E/IYEHekdsGZZ 0JPHmEonMs9F4dBn6+H9+QYa9N/ROPzFRvh+uQHHv1iHUxs2EsHczdGPc257 kHU2jIS8m9EPkjsp2c94mQscM5jYR9DX5A727/zliqymunx+k0x82wrx3UFI k6agzuQLvUyi52iXfwOr6lv0lH+LgepvMVj7LSwN/wfz5kWM65/ReIpR/WM4 9Y/Q20Cr20iSN5LkDbS663RLAD9aWDrlcgN36kIhV6dGIChZI+xN/jtUoaXL ipcdyLcHUcY4UBM/DEPCKMqIf1Q96EMbgc9eAvv2km50ZlvRntVBK7wF1cmV KE9UoDq1FhWp1VCllkGdXAj1/QdkDU5yhjGUVkAomcWQA4L495H497JlvgM1 kmIhS+Mv4UuqcJzMP+f/OUTuziFyBsjYI2AfmVaWh8Rw2K+5j5hGubz7Dta+ 8TrW/Y6Pwn32729i+29XY9/7b+PIp3+A99oPcGDTBuzftAn7N2/moiv3z95F W4Yd1qXykpIBDIkHkH0xjpf7F5tpbIHPl1tweM0W+K7djONrN+DkmrWcJ2L7 JRc2HcaDs2eIcHD48xDbrmEEhKkBIyHBgiIEHSQlOEj/z4Gdf7MiH0UcUQfx rU4y805IkiahzJznPjeIHqNF/gQW1VPYKp6S734KB/nxqqJRdJdZ4ShtIeEv YrhhQai9Id/eROa9icy7qR3WulrPFXkwhD4qZPXITy5DcaoGitRKVKbUQJ/C 7+Kws2HYoyK8DNl+SkEvXMhCD3CW3ZA4iI7sMVrWBCxpssyFVhjSzTBktaIl 34K2Qht0yeWkBwpUpdeiPKMa6gzSgbQCKBNYDuFBLvISTiOMJoPpQghbGcwa knsM2OuCWmkJ90sH7N3L+ZNLrOzcilAsF7lmiUYHPDn4FXqA/2xJtzw/+Ahf /OYNfPnaW/jg31dj09sfwIOY5Ndr38eh7Xvh7XqUkNdN+O2LxLXjebh9kvzw LSPUN01wiMcwLB3DmHwMuVcS4M2E/8VX8FmzFT5rt+Lwuq04uv4rHF+/GX7E 88+7bOOUIGp3ICJPHmSbZmzPbBVjIwQOSQV+Sp95IugQKcAh0vlDhHy+3imE pflZFl9vJ+M/sFzYW5U/j3rRAhplD9GmWkRXxSI560X0aRfRKB2EKNdAxn4E Qw1zcBpnMNDI97GxNy8V6LRhdnTEc8V+OS0T7pCbRCl/khCt0spUPeoJrzWn NnHXtWW3oj+vFc7CVmQfUyL3LJ9IIYrsIUvQA3VUG5oyBtCW4yBNGICzeo4M vYEMvhENmUbSBCNMWQbUZeuhy2tCQ0EztDnk69NlpAm5kD6I5eJv4YcYUAqn OfmY1wTBRvJAiRz+nu3LWbRcSiRpgJ9AzTgkLqBwbtkf4BOLQmmEfc1/FrD1 AC5t9kPEkRvEGPbiwMYv8dGbb+LDtz/EAa8zOHE4Av6HbyLoWBxunEhB+uli 0vhCFJyVovC0DAWnZMg/JoMxuhWT6nlMl8+RFnyFw19uIy3YDp9123F4w3Yc 5dpcfoWTGzfCjyjm8U37kHQmgNtbYVoQ7C1sn/6c/nrRW4IHxPYDiekFehMM JkVIjQwWFIE/JkUUYoY4qgfi+yPce03eFGpLZrgEE7NyFu30U7qI0dlq59Cj myVvP4N+/TQGDFPoa5xAT/MYbC18pY6tpQcWU7PXSiX4GQruF0KUpIQkRQcl AXZtSisa0zqWdgcGCu0YEvHHDyztDuQHd6A4sheiiE7Cbr3QE/VsyiZPkNuD LjKVlSl1qE2rhy6jHvWZRAIz61CXpYM2W4uqnGpoCnWoLCLLkFuI3NBA3Cbo RfKn6fiE/pI1OOTJ68CKKN3lvTt+lBbrzqU+8rF6lhLrycV3OR1gMVM3d1zd 5o3zW85wn0WcOI/w40e46B+Pt8jsHjyA+GgiuJEliA3IQWJAIdKvliD3sgS5 rA/nBRkUZyRQnRJBc6YUqrMEXk4poDgqh6NgBDe+vkxuYAdZgZ3wXr+T4OMO YpLbcWzTVpwgd+JHxOKKqz/iLp6mVb6b0wN+f43ThCBvZgoC6YYDSAMCSAOu HnJFjUIkpI39eXeGgisGlFzvQsldB0Qpw7x5LhqHVjIBg2ISZvUk2iomYame hLV2At26Cdj0pAEmchDmYXS1DKKLNKGrdQAdzTZMjE0sbctECpe0mi0oSZAQ BqyBLLkJ5SkW6FNtaMnsQ3feAPqLnRiSDGFcPoSpsiHYs7qRfbwBeVc7kEUo QRbPml71o5Z0Qp/dg6a8brQSfKpIJhRA3qUqrYbuvyajhq5Vk1WFypxKUmoN yvKUkGeXoCA1A9GXLiLp2h2ITp9Fiu8BRHi4Icyb34PhdILcZiBhp8v7eZ3w ddu+Ihq860U0eJ/X8tk0/pvOIdA3BuFcvI49/uLliDDZmwDfSwjxj8S9iCyk 3y5ZwsClV6RQXpGjMkDxwiAHKlF/RYK6KzLUnpWhxl+B1BNx5Bh2EKogVSCT c3SXH04eisLZg5G4dCCSMOotRBxMQPCeaITsO0em6gify/Ez+ktswYc02MeD xi5c8XHHpUOuf/MinYkHwrPOJytW4t9AlO6EIo9PRdFKh9FQNoJGzQiaK0fQ VjOM9rohdBgG0d7oRJvZwTXobm1l1Tn96LY5dq+U/b9webDiBDXEiUYokiyo SmZ5sKxdINvtG4dTOoGxsilMqacwWz6F+copGGKtSDtuRm6EFYVEV6QPukn+ 3SRbK/S5nTDlt3NyVySWk3kpJ+9PI0MDVbYaZblKSPPKluY5TEg2eHGDv0LB uVNIZK7g0C7OWR7Z8gk57U9Rfi8NN31P4IQ7n/Pqx6rVt7nh5GZfMsMXcO5o LAJPXETgcV8Ofwmh4FVcLPi3vNSZNh09iWunb+H6mSiICAMV3pYgL7AIogAp ZFf5Av3qEL6VmjGiBk03+W6UppuVaLpVTp+pYA6WwXC2GEHuF3DKJxJnj0bh 8pEohNCIOByJKO9IxOyPIU2+j3sHohG3Nxp3PaMRszMKofuPcHtzV328uK4X l0n+l0n+l8gYVJeJf7VUMTX4DDmhVuTeGUBekgMlmQ7ICxzQiByoljlQp3RA X+6AscYBU50DjQZ6bnTAQCJnvZbYs8U2smeluA+j+G4h+RUtibyFT3xNFRJf i1ji6xyGyhYwrnmImcpFzBPYYEjYmT1KbLiLzGQ3Mm92o+CuFaVJXVCmW1CZ 1Q5tbgvKaYmX3FdwB45JUhWQZNDrbAWKcxTIp5GTKeHNtCAXFp9ljzDhOfjc RSSGX4f0ejAS9u/B4Q/fxP7/+B0SV3+O8NW/xdp/ewtbf+uJvWsv4oh3LE34 RZw74ssF+wIP8mY2ZEnmPvz3c+F/MiEhhw8i4vR13DwbhVtnYyBPrUFplAqi q2VQBJApCuLP9NPf4KFOS4wJHbF8P8ROtvN8V4e2OzVojKxARkA+os6m4OLh GwQdSNi+UbhNwo87EokEUoTk/dFI2x+G9AMRyDwYTc/0ntZ+ins0Yl0CuVSN VVzLjFe4phlJt0M5yfwd9/dvMD30DOlhNM+xDmSR1AuyHJAUOqCQkOTLHKgk ideQxGtI4rUNpAlCQ6ZKeh4cW9i7UtofQxQrhTjeAMn9TpQlEoTPGIOpYAYW sZAJq36GycrnmK39Bv2iMbQkODDf8gyPGp5CFGZHUqANqbdsyImzojixE9K0 dqiymqEiB591T4acBDlyUmikK5CZqUBalgJJBPTCT5/i4bn37uXw65LEQ0jt v17zHtw/eJ3Gazjvs48o+Rc485EnRPuOQUIrftd7W7Bryz5s/nQtXD94l0tZ ukiOfimBJZAHVq9wwOoXy8DqGi3+W2duIvJsLOIDs6AmXKtNNkMeUL3sE+pv tqAxph2tdzuEz/4BtqQ22JNaYEtsQtcDA+GTYiQE5iHxShbizyfhFgk6lgR9 /+htpNBI84lGxu5gpHqeRYbXWeQfCkHRsWjkH41Gnnc0cvbdxn3Pq3yLDRLy GVrZjj773wvJw22GBSTGDSA51YHMXAfyS2h104ouVTsgq6RR64CU5Fta70BD 5wTmH3+LfSsF+2uIYpQQ323kzqJRJg+hNnsSjcXsvJbH6FM9x0jFd5iq+SN6 iT+0ZMxh0fQDnhi/xyPTt5g3PUOXYgaxgV2EgrqRHNeF7KQOFGa0QpRtRFpK Fe7HyxGfKEdcshx3UhS4EZWCqyf9OAGwR6CAaoJ5ZEOi/RX3ufsHb8DtQ5a6 +hqN32Dtbz/FRY9QFF+9jsY7ATix7gMuM4qFazcth2uF3GY+T2XpuznAhDc5 xBRy+Gvc8g9D5JkYRJ1JRCaZ4MrkdqKtXVAFNqA6tIW7vIGcUbNwkGN3Sg96 0vjXfRlW9JK1KowQIzmkACk0MoNykU8AsDCoEAm+cUg9Go8sMtf5viko8o1F 5v4A5B0MgOTUHUjPxkNy5i5EfjEoIUEXHbqFhN2X8OB2GAb67PhHIWhqbl5A s2URd3MGcL/YgSSpA8m0alVNE+gcXMT0w29xYKUk/wOiKPK9d5ohjiN+lTKC 2twZNJYswiJ/hj71dxip+iN6RE/Rmv8cC43/myT4Jzxp+hMeNbHyoW8w3fgE Y8YFNJWNIjXBhttxFtxLakVCmgmpJZ0IjpYjIEaGCxev46zvKa7j1XniSxcF SbKMwwBvPjuIhLh/zfvcx24fvgFXEqQrCdLl/d9g/yZX7GG5qzfjUJRwjXDN NqxnuatChHXL79+Ax8fv4QJ99XLiEctFCeCEyGMdWqHHTiPSn1bo6QeIDyiB ktxIDQnKmDYA/V0btORmGm73cD+hLZFv6G/PHER/Nv96ILcflXdZb9cCMpPF NETICxFDHCSGKlwFZZgGxWcLkH8yHbJzJSi7kgvF5WyCcllQXc2E6ko6yi6n QHbxAUrPxUHidxu19H6iwYbrvGCu/XeVo5+g5AYr8+JLABWpY6jJm4NJ/Bgd iucks8doyV9Es/h7dJMjtRZPEoaaxGDZHMbJoU7UP8FU0zOMmlifYHK4esLS 9TbYa42wKEXcpVQlYhwlHsMyBk4Qzz1FmPbMfl5m7MGSfS4LeXv+ntvg8gFf A72TBLaTBLaDBOb5+WouOHqUeOre3YcQ57ONC6m7vr0a638UHeWzUJk+eAlZ qAw/XyF5/QXnrG4ev4pbtARu+achL8YIdWIv0UUCDZmjSxjO/GAU7TQV3Znj WEpmcxaMLuO6zPASZF6TIYsEVBSqgTxEQz5XhbqYJqgClCg9no+qiyKUBZZA HVQMZUABPRdAcSUH8stZEF9IhYreN99RoelGCSyxJYKszguy4o6jJg9oNjow Pvrwf/wnIsRS+Rd/SBZXl3W3j7DAGKpIhNr8GRTf6ULmxUoYFX+CRTFL4hul pTeGAfEYHOJReh6h98PokY/DoZ2BwzSNHtMw7IZu2OsMmB3sF67xU8QEh3Id lY4yMe7hEz+WXBBLAb1w0ItL+Vgqsd9OYtxGHpENjy/e5oKcLN3gxCYXHP1y M+J9vlqOm7u++zYX4Vya/xfJJF7CZ2+S6yHRHQvHzZMPkHu7HpIEO9RJg9Cl j6OJTIylaB4tqZMwxZHXT5pCR/oMurNn0EvzMFDE1y7U3NcjK4yvJs26VoHc MMKNoXVQ0aim10Vn5Cg9IYLufCnMgRK039HCdM+M2ltV0N2qgDFGi2bCT413 6mhRV6P+BvGnkGLiT6loJxrIrzScEeK9S51j0uI1yLunIcKrgSSGRhS9Zsdo 5pgxN7z4sxebJf+4TJJXEmbRtUayqD2QkjUtSx9DSVwvcm51IDNKj7osM9oL BtFdPIhe8RAGiNU6SwdpOOm1AzZ2pGZRHzo1TvQ00eo0daG7vg7PFhcENvZ3 UIrE8HH3wBFPTxzjEjuE9D8SwRkSwRkS7Zb3yCS+/wY209j0/us4sOlzXGKJ BPs8uH1j/x3uOLF+B+IPbuRioKu4qOWvsJNEu+bN17H2d69jw1t8qZ7/itRC 9jhNkPbyoUO4cfQm3Rext3gCZvf7oUkepfubRt65anSKHqNX9mwVWpLn8a9o z3wIY8IgGqLb0BLL7+inX0pApnC+R1ZwLQqDGyANaUR5GEkwvBm5J9RQXaqG MbwWltu1sJIoWgkDdhBJ7CS40JnYhg5iEa33G9EUpydp0397UwHDtXzUB8RB c0mJxcEFhPGC8eee/i/h8FQVshJJqux4ogQNKh6QdEnqdcLxRHW36f1NDcrD NWhMN2PeufCTFYHSJUGv+i8iJkVBRjLR3SiM60f6TQtxnm6oEu3QpvegMacP bQX96CpmJ1QPoL90AA5ZP40+DEh7YS+1o7PURia8E2ZZK9cNulVbQyuaz1Lp s9sRFRa+vHXvu88Tx0mgJw544uCur7DuXRIeCX/bZ+/gyI4tXErpUsIA2xY8 s4tM+hZXLgS6iguF/9NyIPyUyxayA+/g89/xgmfffUxIQeTe039XEJ/MNy64 20QuqBuyB06i3hO4e7oBSQdFxJ0HURo0BtWtGVTHLaA+5THxu2doLvkG7fLv 0KH+41Kmd1a4HtlhTSgKb4WcaF3FbfK/sT3IP6uHmpQg1j0TrTe0sCaZ0Zna i+60HtgJUNnTumFN7YSFAFgLIeam+Ho0xpajMVpMHDkZ+mslqA9S4vHQAnhy g1MCu2FnvbKzj/KTNZDRqKRRl6SBiZSgmZSAdfroYOM+6RqZgKZYDRoiSRmC 1ex8qp8sO+L/SvTW2nHkBrfi/pVGpFxvReGdDpQ96EJ1qg2GrB7yzr2wFPeh W9KHHmkf+mS96JP3oFdug01hhaXMArO8FSaJAS1aE54+fkx+kH37LyEvlXA5 gwc83fC1lxuuBVyA67pPlwuyl6KSLAK1tAvMCmtOu+wixWXx7ldeRDm/3iWY /vdwPyJ4OQ9AIZcs39Ps6LTQcICVENtRen8ImvQpFEU7ISLV7pR+g14lO5Lq B4xW/0D0nUSc+wSdRU/IjvE1pFmEizJDq7nXGSHtKLhGtuKmDeXRvdDdtaPi DqGYm10ovFQDmb8cnWn95MaH0Js1hP6sQfQR/bRn9aEroxvt6R1oTmlEc6KW XL4C5rhsNEVnEV1Wo+maHE+G5xHCS+LYimj2CgzFvc9NUqA4RU3gqRzVKZUw JFeTlSIbk6qFLU2Lngwt+jJr6dLV6M2opM/KYSFD0ULGwXCNqdX8Kz/Sg7// Mz3gkqf8VYg7Z8SDkBZkR7Wh9J4F5YQ3dZndMOXZ0VJsR4fYDqvUjm4Zkz/p tZJ0QGVBi6oNRmUz6qX1qM2U8yrwP/kctV0u8KFxdJcrfGm4f/oR1r76H9j2 zmr4fLUFZ1YkH3NqIKDhc15eCOfoEgt6/4xXBW5fkA94s0etvOQVQdtW3pHo lgbiqGbOq5UmjECdMQ0d4cxG4gUW+TfoUX0LBzG+kZrvMa77frkZUWagHCsf BRG9kN7uR9U9JxoSBlAXPwTd/UHUEdJOPiyGJc5Okh9Hf+4UHHkTGMgbQ2/e EBcDtmTb0JpJ7iPDiJb0SgINxWhPKEJXUgU648rQckP83wh/ZoI/S50JnoVf qlPrYEgxoI1YijWjCb3k2x355JvvyDBS1IjRYiM9N2CwQIf+nGp0p5MSPFDD dL30x57gxbv/m3ttbbZypyjcPqzH3UutSLrWjvzoDrKUnahII/HnWGEs6Ia5 pButEivaZTSUXWhVW9Co6YBe045aZQt0Ii26k2QE2G0/FUJy/T02+Hi6kOd3 xTEafh6uy13ajmzewB3cxFrsM1Lk/sG7y9nJrDUDK6cLOrybVV6tehGV/AdO BVig85TbVziyZR13I6nkAzPIB2be5HNuuuoc3C8oIfUX3zRDHMPrgTJjBrX5 Dzn+0S5/Crv6Gforn2Oo9jlG655jQv8cU4bnmDE+e0UATJmhFuRE9HHvVPeG UZs4At2DAdQnjMKUwvL6ZlAW0Q7x5UpShWkSyjwGC2fhKJpGX9EEbEXD6CT/ 2Z5nRVteM9pytWjNKkVnhhy2LD1sqZWwxsvQV1yDYF4fjr4AbHyUq0ZWi5Ik vqm+JsWEenYyeHo7rNmd6M+3YrDYCl0w4cnT1zEl68K0zELPbRgvbcawyIj+ wjq6ViW6yAhNGO0CMPuxRrxQQq20BmJ2VntkAyJ9m3H3SieSI7pQENsFWaKV jKoVNblW1BVZ0VBqhYEcgUHVhXoNOQ5NJzRkEKplzUTlDLDnaGBJKvyJAAei w4NJG1yIrb1IUztD45yHK9ef7SINdvACK+vdSFqxhVz7dmJep4h1Ma1gocsw XzIQ3nsgbBazqOXPccZ920tLV0IesYw8ojp2qfPzaiivE5cK1qAmgfDONROZ CBvED4ZRljGF6vw5GMQLaJUvwqp+hN6qx3DUPsZw3WOM6R9jwvAYk0b+3JH8 IDU5TSNywizIE3SDlXtVJ42g+sEQ6pOIJ6TNoiVzAdp4B8quytCd0gYH8Yih 4nk4RfPoF8/ALppAV8kQ2kt6aXSgvViPtvwydOVq0FNI85ejJ/CghpXMxkrd +FH5PmcvxqdR/EAEcRLvu6pTLDCm2dCRzRI0BjAkIqIndaIuwozx1HrMqx2Y 1/RjTtODKXU3RsmPO6TN6KGfYM9Sw3K/ZFkLV56VXHKPrpGgg4TArCbJjgdX rAg/bUb0RR2yYiwoIdwgy7FBVWSDRkx+k/yEuswGhbIbYlITo8qOARUxeIKK 9mIdbLkSPJuaFvzSr6AqLSEKyNcUnPTi9eOckMLIOrdd9uL7c7m+/QdeR94U dISY+Z5P3ucKcll9ZsRJ0pWje5cKcVnA88T2zfDZtI7GWhze9CUR/n0kLcJT 8S9SWY1kSAxkSOrJgaiuypG4R0Y4vxVicgCytAlU5E2hXjSDJvkcIcN5dFfO o692AY66BQzpF5ZjpukNyL2qQm6gcTlmWhI7RMhqFBpSkMr7I6hLnoQxfRbN WfOw5D6EKqUDtsIR2EgRRwrHMCKdx0DpHHpKp9ElGUWHlJiWtAvtpSZSFhWh lir0SLpgLzLDnqcjqckw29YZxKuF74sQzD9wn9jMXRARjRAn8jF7LWsOSoCl q3AU/ZIxjComMKWahDnahqd0qUfV41isGcVCzTBmqpwYr+jDoMpKJIn0soiQ R2YpJlo6Vyriir4C/4xuUxuBLjK/902QEKDUJDu4oikl3T6rh7kV0Y148jKp ZE9ycnuQW0ijpAcZJXaYNCOY0k1jtHYUjsoBctd0mzITrRcVZros3PX67TYy Iju5fFdWXuTvJeQzggwFy3OjwdLc2IPVjDNjwop6t5Ki7PgDKcun73N7Ibf8 vBB6Yg8XzWMBWk5LNrPsRtKUzWs4TRFdSyU2WEmIuxJt9NyRwKrnKmiUo53s TDMhrbyjMqQcrEbhDRtKk4ehyhlFbfEEDFLyEcopWMqn0V09jV7tDAbqp+HU T3O/bdA4hZyLMuRcbUB2CN8iufjuIOTkruRxAyi/Pwxt8jga0qdhzp5FRx5p XdE8rAXseQF9pQsYV5GqyGbRIydVUYwTKHfSsKJDbkKbRAWnksi7gnE1C9lk mscigiCZ2X+uKnzAXSvmt3dYD1hVEh8Qbs4fRzcpvkM+j3H1AmYrH6IrYRjP SFRP6+bxpG4OD+umMaubwETtCIaq+tGn6qRLGulyasx2di1fhrcn/tz32kws g4s4+b0W4uQ9KE8dhp7QVGvJAon8MancM/SyqC7dXkWmHY/03+FJwzd4ZHiG eTLJU/oF8tyEvmqH0VPB+l7wifpz9m7uKrHhgTjuuVPIiXPDWaE2iT2usr5t +3ZxFcjB+/jPWD4ki/htEIr9t5Gq7Fz9Bja++gYiT+3CtVN7cOyT1ThGauJN xuQQqYo3pyrrSN180JSsR3tyA7pSDbClG9CbaSBgridoUMcBdWtaFbnDciTu LUfysXqy2Q5IMwZRXjBE8z4Co2IUzeoxtFeOoatmHDbtOHrrCVU2jPFu7VYV spitDWxD1s0eQU5OlN7phZqQaQ2LaaRPwJQ9jdb8GXQVzZLc5mnZPkR/2SIc ihn0yydgL5tCl5pURTNIoxsdShM65XriRuPoUztpDpmNZucm01IvKkbQSqj6 IlBYHE3uIE7PL7y/JYYwA5v0IUntCSYqn2GOcFV/1gy+qZ3Cs4ZneGp4gkXD I8w2zGGifgJD2iH0VZLUCD7apdVw1FQtawmPIfljfsTRBEhi27moTUX6GPT5 swRFH9FdPKNf/B0mav5ImvcDJvX/G49q5/FdzdTyzs0UOe3Rhlm+UUlNP+xV fP7+XK+Nu8Ixjx2kHS5/ljHHHqx8JXi/p3DDv4bre+9g3Zt8X/AtpBnr33gd G3/zO+xevRpHPvoDjn36Bg5uXIuvSSsOEL49SCNgny9pRTM60lqJKbajN7eD QGI7gcR2DBW10WjhejMO5LM6wjoYoyuR6K1FyiUzCsloSrMd0BQ5UVtKHKRs EE0ksdbKweVgZqfJCVVqA/duyeBnxfSTEekh3GtDWfwAKpJIu9JG0ZA9DnP+ JAGNKVjF0yThWdKMaWJ0U+gtG4ZNM4bOihFYKhw0yNeojehWd2Kwagp99Lld TfOnZgc1N5C8ZIJSnBCgY0mUjKTUiNJ48v0pBIPIWbYQpLIpnpCUnmOy+jvM E9saLn6Eb/SzeNb4HZ42foPFpmeYNS0SxJrFEOl6P5NSRQfsKh390txV/yV/ OYVuvZVrIC+OtqCUllJ5xgT0hYTiSonSq77BYOV3GK/9HjP1f8SC4Y9waP8E Z9P/h+8bZ/GcLjXV+ASjxnk49BPoqSfqrqPLVmkx00+wRSy0o/Rw5RPpPIX6 ph+lUrLHUhIdew772oPMxe+x5tXfYs1rb+GLV/+ANW++C/cPP8DBL9+Hz7rV 2PP5Z9izaSONTbi49wSMKZ1oT+9Gd7YdfQW9hOh7MSLuxVhpL6H4HoJuNoyW dmFI3I5+dp5rnp6wSiXij9YhJ86BglQHSnMdUBU7UFXqgK7MgYZyB0zVDjQR GWpqcHDxflOTAwnHNUi52IgUYjbFDwZRfM+OwqhOSON6oEqg/58Vw2aRKcof Q3PxOFF+QqmlE+iWkzlSjqFNPQprlQMdhAo6qonZVHbCVKbHmPYRBmvn0FdN 5oX+zV5lJTGSt1Eqf6QoxTcVJDEzJHRFDallfQFhZVrONuUzTmKTrM1s/Q+Y kD/DNySpZ+Yf8NT8PRbN32C2iUwLOymiYQJ9OroK6/NWqcf8QN8vBItREkHW IspCFMAJdeYk0ZQFtEgfkyY/haPqGVfYMaX/BnPGb/CQ6R997TDp4rj1/8Uf 26fIjw1ggKWEG0gh9ITKamvwdGGWV4jlhoLuXG9SLlwpZFUGLWVVHlzapngL Zzf6IWhPGEKPhuGM1z5s//gDfPn71/HxW+9g48cfw3XtR9hFfmTHmo04tuMw 0v1SoEvpgTl9AJ05TvQWDRFdGCE0OErTMYqpshHMKIcxTS59QunACLn1ASLk Paw+Nb8ODXeVKIgwIf2eA9lpDhTnOSAj7K+SO1BBmL+aBFerpaF3oMbAn09V SoqVdNqI4qhelDxwLFsWaXwvVMkDwjv2+Bu0lQ6jQ0FDTbSlwgkjWYr2yi60 VPeikdask+DNWB2tdx1BE+0U7GTh7Vq2Y9cEe7nqR4qgzWuEOLKZvH8fVGTX 6wrn0Cx9xEnKWUV8XEcCb/gW3fkTeG4ex9Nm8v4t3+JhC33e/JTv+EYAqo+d WlJPILFWj1mHoAg/R2EIAYubrBGOg6j/BLTkDJukC+T4FoUb+l+YNvLJYkuP WfMjOFqeYrL/B3xvGcaUloiKsQ2dtRWEW9MQx/UQJCXY5fZS6bzfTv5kgOPr fHFy41lc3HdTUILNCDl+lEvcDTvkgZAV6Zq7N3yCgoJ8JMbcReCJICJWRqTF diI1gkz2tTborhKYuGfFAJnqYdkMxstmMa2exWz5DOYqCGxVTmKyYhyjmmE4 VP2E/2gKxI0cvhuqqEYLWTY5OfvEDAcyC8hKSBwoIcsgIctQSpZBQoog1jlQ Z2E5E9+hs2oCeeEsX2kAReR6UsLNyInkMWlpgh3KtF7utS6fVwoT8YTGsgFy Sf0wVfahvrIfDdoBNFR1o6ua5k7/HKP6J3DWLxKIIXejJxeiJ3dfZ0Z31Y+V obt+EKIbLErfy21DaQtnlqU1UP2YYN4TTBmeErsexKOmaTxieTetT7HQ8gQz zY9JGRYw2EiOzETKYOhEt06HyQGhXPaf0K0dRkl4K7+JmU5kvYD4F3GrDtUs mao57oaGCU2OGxfILSxg2ryAGTNfUzDWNIvB5inYOmYx5XyE500duOR2CGGv foaA35L/Z5v5n67Dgc/2YP+Xx3Fw3UVe9j/F5ZMXlypclnP3+IjmP3ERTZZg x6VqHmSpmnzL5+I7uaSzNRwAZ/NekTwIfeYE6gj/G1PH0Z9I3oAA46SG7rzy CeZpdhZqHmG+9iGmauYwWj0JZ8UwAWfC/HKCO1IdcYWiVcKyGJv8Fo2WRa4D aFvvIjr6aTgW0U6Dx+b/CE1CL7Jv9CGH7MjdgEYkXedrWwpIHcVJxOczeV5Q VdKLWlkvtEoaGnpd2Yuaql5UVPSiSmoih9WCyYbHXN9nZwPhUCOpgYnUwEhq 0NCEobYmvKQHf4fZoYcoDmFbkjbIiA4wQZVlEaBJaocitQPl6R2oTLegIXMM c+ZFzLcskg4sYq6F7r55HqPmOTjMk+gxs4KODnRoq/mDM7Aa+VcbUXK7hxja IDS5I6gXj8FcNkGgZ5K7nQGiMEMNxDxN0xhrZIPvRDfUPI7O+h5UEDWSZJWg KD0fXq/tQ9J2X+TT6t/zEa1mr2i4rdsP9537hWJ7vs1C4MHdy1l8YUK2XZiP l1BwTxhCKHFgme0pt/jJKIkupnXAl5bICPRWpo4JIPSv0SwhYC2bwnReHxZ0 ZAzrnmO+7imm6xbJB8/CSbSht5LuXUPWQEX0SyoVcqX/AdMj3yDtZt+ytXsQ YUHqHWLgCd0oTLdDkseLtYwwh1LRgzJVDxSaHshZDTSZ9tJ0PWEowiMNCxg2 0DybZtDbRK6Sbf02dcNmMGFm2ClI9KQQ1KlJs6EkshtJkUZcDyjF3WApUkKk yA6WoSBIhsIAGTJOy5B9TgZjehumm2mZNc9gwjyF4ZZJ9LWMwtbchy4TKdPI EC/Mf+Xaa+STuSoihCvLdKKSULJeNoRmFV8GYNOOktkZxQBxJ6dxFM5G/nOj pgmSHDlKcqQoyCjAyd1XsOvLK0jwuw7trTDsZgfNCFHpLb99HR4fvccl011Z IUw+sPSvfNqkj5eQUeeJoJeS1Pm6nJIoMSkzf9i3jABXZfokGvL5cjW7/Dlv YSr/iKHaP2GcGMxT+v3Py0cxTzx3msznWP1DOHVk2FjP9BrypVXkS5VlQi+2 /4VGHb9XEBHagZioLsTHdyMl1YbMbBv3eZ7IjtxSGlI76oivO3UEn+rnMaKf o3U5ixHDDGc4+82sFILVwji507e7GgxLYceTQvhWVWjG9QvFiA6QIClYgtzQ UohpKGhoSKpVNJSXZNBclkJxXgqxnxTdCjuGSIIDrcPoZkdfNNtg0hvx10Ia g6V6GrmRfShkHQNzCKYQXKknuMIerYQjLbVOWOucS4WVWpUJRdky5NHIzpTg 7s1oLkLouuMSAq7eRXb8bfjv2Lgswc3E5LeRfd79yXvL7fpWZuOxXLxgH6HQ hHURYdnl3lxmOR+V5Nfd36Iic3q53T17ONl5xtXfY1JH5JP4xbD+Txht+T/4 vmUezdHs+MJ+8nyz6Kkjc1fXQ+uHvF552VLhSk0q71jjb/FSCr/XjRvJ3dxr icgJqcSJrkqyljUsaDRNpmkKjnoahkladuQEzKPo4YpWBmFr6UeX2YKp0bHg l/eURsceorGRcGBOFeIjxciOUyIlQIw8Ep40VAINjcoQCbT0bLxeiqYIGRqu laKOBFoVKIHqnARtKgt3PnQLXcVosuDx4ye8PfkXsiffIuP2AHIJLUiIf6hF vNz0BDWNjHvo+PfaagsyM2RIzZQhKV2Ka5eDcN7LnQvpen/6FS7u2IZ7h7Yi cI/Q+k+I1rE6ZBatO+m2bUUzNiH57uWKgBcZ4aJVK/YyxDeNAn4ZhiZzBvWF D9FC7LBbyUtxuOY5xnVsoRGkNDBS8Jz85gSM8gYMEyJxECntMdCiMJAvrTdj qLWRK0VdAsn5l80oumVHcfxS27tfoqZkBHoC7E3KUbQSpbZUjcFaMwabjr5H T8M4wlnM7mZWZeIQDt/uQ599YGlD+IiwX8+qymVSM5LjNcihERuchdiALDwI zEVGYD5dvggltOBUwUrUhKtQf10F/U0VzNFKtJOsW2Jk9LoUhkiS8TUJKq6I UKdsh9Zkx6Mnz7nuMasgF4uETjJLBPsvBZo9NfotyiQTSE1dur2fQEkQspxw f2UtjTrHUnrE9VvspJfjXMXxReFkjcNfbIf/uk144L2FC7GdZo3+XuMT6thh r1tJtttXv4ELRJsuHWQJdV5cQh1Lp7vC0nZIuCz3+wIJN/F26PIulVX3wodJ SLLqzCnoCudhLn2ITuUivz5recw4oWe48TFmTGwsEnt8iGFikAPk33uaSBqN 5NvIb80OO/5WcFgzzqfIDe5CfswAChJJtTOJQRGArhY7yTQ5YVINorl8EK3V g+ggEmppoEFMqr2Jrx5p4apHBmAwWfHo8RNBpocFbKWUN/InPiVpIKNncWwp yTMNycF5yAkugSSoFOoABSquqqC+VAldhBamaB1a43Rou18La2ItLAmVaH+g Rkt8GRpipai9KUGpfwrC/QPh7cFvtrOGMKtwzN2Vps3XzQV3QoIxYLMJYOjf MTHxHZd8G58zgFSxA1kKB3Jo4WaVD+D8+VD4HznO9XQ6w0rId/N1xKyG+Oh6 F5zZuBUJ3hu5LKwwGmd2bhGKiN/AprfewFckWF/XrXyaHUvdY638vNnwxDmh cQ9LBv7pi+Dz3xLmdUJBPI3jFpIZtCt5WN5fs8ARyhGC52OGBUwQr5kwzWGM 0MdQE9E/dspaMyEQs5U5raWCkOnB58gMsyM71oF8MlDibAfKCsnBEA2qpXut p3s1kJEykZFqbKBBEjSSBBuaHdDTqCGMuvj4uZCS471k8ibnkZGgQB534p4G Gho6kmTClQdIC8pGVjB5+2AVNCEV0IVWw3RNi5Yb7Nh6PRpvG9CaaEZrggk9 GY3oTG9AR1odmtnhV6QFZYGJEJ+4gfv7znG7oyu6uKziTjR7Bf6sC5SrC+4F BWOpNefywSkefOH3ctGv0HTFd7Mbzm3ZgRuH2aZp+Nee5HvDvyahuW7Bl6w3 HwltAwlt98YvucQ8fyF57jTxE38SmB8h1HtRYfxZDiQyaw0PpESx/ZCmDqEi b3Q5L7NDQzSJhQvJZTnrGZomDGegYZokWY1jgABGD3cq2gCs5k70WCzCLvdf YWroGVT5Y0iNI75KBqeQPEppCQlNRgaHhFVJqLaaOGt1PQ0DGZ4KE4tWNFnH l+2WIKxDwi+dnpglbCtFYYqKfqmGcHTFcu5DNgmqMESzbEdMt0xoj25E910z 7PFm9NGwPTCg7bYStlsi2DOMGJZa0FdkgOZaBuTBCZBdvA3x8VAE7t5DIMQV 5z1df8LtYb/CdW9ix8+xo+d+KdygWvziSAp/T/4MpOX+ibRSjm3bhQvbXXHr 6B5cO+TFl/v+Dy7fjRV971//GbZ/9A5c1n+BI/S/HD1AsiVpHiVZqhUSLrP+ LwTlr04lRBXZg+IEBxRZTlQVD5FPGoaZwGVHxSjJkCyfjgfIfYYR9DUOE/gb 4mpguwR/1Gho+Xvhl0+OfweZbAIJ6Q6kkyXMozVURGtIpCHrWEXP5AtKaB3p +FDCtZVieA3V8joUJStovVSiIlULfUo9WlL5jcjswGLkhpRzr8uvm1EfyTNN 6/0u9Cd1wZnahSGWhhKmguWmBgN31HDGSdGXZ0BtjBgVUQVQRmRCERwPxYXr iD10hGAF65Pjxu0Us545V73YcOWaKF0UGiglhgT/Qsiy6+vhW6ixTCVv+icf Gi6ffgSPzz7GoS2beVEttboUetgcd/HEJTd3RB3bu4rJihYHH+LxfCnEo5WX /FLIharMHkbenQEUpTggJ82uJM2uI5xrUjnRXOFEew05kTonOg2ECAiytTcz yOXgDgozNHaTI3kqJPD+DKaORZhXHODRNsAO8Xh4g5/2g9zTv6GruQvFiRKI kytRltIAbYoZTWmt6MzkoWduUBnyQ/je21W3OmGM5TeU7LT2nESohgmNj+UO oOGWER2hZRjPNmI0uw7tZO6095SoJJOloukvu5aKsqBoZPqdoul25/de9wht aX6GoD1u9JZJgiTg5YKLu3aiWlTyM4FTsCQh5rJY+ypfWjpcvJ1ZMlpAXp99 hHWv/hrrXnsVLu+9g+Pbty6f6xNIVuqE+276Sg9En9y7Ilfsp38WWamVlwjW 8pfE+8eQdVeImefxmLWa5FCvEdxBHQ2SgZFkoDeTjGhUGXqYK0DRygn+OQru 5UGUqIY0WY/yZD5NuDWToD5Rc97M/AqKiM5lE2NJo8WWNY6h/EkMk9EcyR2G 8YoCs9mk04Xs3N0WWDPMaLhfgSry7Jo7IpRFZpN+34M04Arb0F7F4ahfIIT+ stz2kH3u9Ik7TTXfE+YKN8E7WG8wIZjzr8tJN0eXm4OQaaIZPisciOi7ZQPX HIz1hWLNr7cS8vZz2UaEl83ybnJFuzlfEuO39z+NXgQeIsJLs5wUcw/NDALR zLUaHZgcXRRY3l9xNVxJrI9wBtn1QhZ0JruuckBTyR9oVU42XUVOuIzGwNgi z5zxtQBVZsamUBJPjjVBC3liC6oEotSRN4TeEr5yIj+gHsWh7dxr3b0hmFP4 DvP2zHH0ZU/BkmiDJaIcc0V69BcNYkQxjJbMRjSkGdFAzrghsQZVBKWUd/Kh vJ0IOc1aMFdBwLdfWcUBnZ/T3130ns0+a8HhxvUqW2rF8ooAIGPCg15KYzm9 Mo3Fk3Vz4w3U+l//x4tZ/z1rlfkGefhtHEn1I59ylbxwzKm9XKYTTWWoEGW4 sJeEuX0DOYTPOVZQHEdYJFYDaTQ939Kg5JoGtZlmLpTGHwj5F2RGFiHRkAUn 651Gk5+lpEEqX9kyCevQonjlhL+C7kYLRHEqiB+Ylnc/+6V8nCH/qokmmm+6 pHswBmMCD9m6c+cxJHmIjHMqWFNVmFbMYUYxhUnZMJpogg3pBtSl6iCPL4Qm UY7q+xKUxyRBfit0uR8J20AL5/qdeHAQJYzcXqjQ74S1A2OTfcFzu5Av9CoG eoQ0kKWJpkllE31RyBXizZE7RywPfvEpN9lcztDv+ZwhF8Kp/u7bcGrvXmKS uxHtv5ePCnBtJ8gj79iMg5vW0vgSF/bshypBg6r7ZP5oxuuEzHstzXi1cDqr o2YA2pVT+XPYGm0Q362B5B5vILTpfEt8q2RuucIl/zJLK1/ZQOJXsBQ+Rp/k EYbkixhTPMSEch6TqllMqyYJg3SjiQRsyDBxOeGKB4VQJpRAmUwOMTmPjM4N RLm60/R50VR64dpBL+alWJM1NrNh5KFCvhb6O3C9Q3Ys1eHwTYT4hAl/rn/U Ul7Nv3D5NEFCTg17uL3zNl/PtpRXQ0xuz2fv4dCOHQg66oXrB7chgIF+sk0H N63Dwc00kZvX4CDhzPzryainyTSx/Jl4/ijTNvYcx+fTGGli9TSp7WmmWn4+ d/+X+8A/gc3UC3FMHSR3LVAmDixNq1W2CId6ZTeAr1Bwi3XrnkJj9iwsxQ/R I30Ip2wew0Q2xtQzGFeTxpaPoU/UicYsExoyDSSyeqhTWFeeMihTi+gSSbgf HIR7F8OQ4eOPmEO7OQxwncY1Wp/XhM2eUKGHVeB+Msz7+OC+igPrfM4Bx648 l7o08RMbSAwreB+ffxDKTM9+/vN1Am1m7IrRZnZSgeu778N/21qc3/guQc+v cGDjWhzYvI4Ge16Dwoh0GJJq0MIYY5IW1hQtOXctetJqaFTDRnC4M7Gcm/jm 2yp0ZTbU/HeT/SL5QxylJ97aBWXSID+xLrAqHkMZ1Y6CSzy6yCHqJb0zhKqk cRizJ9FeOI1u8TT65cQMlFMYUk9gmCZ6tGIYdlE7jJn1qM+oR22GDhWZVVBl 0mRnFECedB+3TnjzjaiP+SLxShhyz55FLGnWdW9+wrnJXtH04oqwk6KWlNBk M6/n9oIZsdjEXn6COfu+tId/gDc57HHGZQtcPniXKyti7dE+/rc3ySu+jb0f vIPDn6/GwXXvYy+Zhd2k1XtoFETkwphM5C7FhK60JvTQ2uzPNsOZZ8ZgfiM5 fCO9Jr+Tw05srUYX0f72GDlG62zV/IR7/ijd8i+53yEi0ii+Y4WClSzn8hlj Odc7ILlWiwblLDJPGPjp/y1kRMaqkgjCZA6iOZ91JR9Cl5glfg2hX+3EYMUA 2otM0GcQ18ysQXVWFTTZ5VBmS4l05yIj8jqCV2xUMTh1/YQvUgNDUXDuDO54 e3D9RZZgVQDbsDrAT/OLfuI8r+E7f3os9xsKOcD3GuKWYThXw8MeQTuO4Pym 4zi49Wt88da7+PStj7Dm7Q/gSqhvD83wrs/fhdtnnyL8TATKUxqJNrQQbegg Ne1Eby7BpQIrhoutGBNZMS7uwoTYgjFxG4ZKaPYLjLBna2FLVqItpmTlLP+o KuqnwgYhexSH10Mc3QV58iCqcydhEs/BUraAvopFjGgfQx3ZiRT/VmSS+yuJ 7ob6AauS6oUxpw/NhX1oF/XBIulBp7Qb3XL6hdp+1KSXoypLA02OGoqcMkiz xShOy1yioaHCXLNHOHmgCL+jyAimOT/vj9tc5yu2NeS6vDV0TOjqzTIQTgtz fVk4aIE9Lri60aTu5r/+n4mUnEf4qfMIOXaY45BBBwiM73eB24a12Lp7Py4d P4nrV1OQcrMBRaekUF1UwphqR0dmH8HYATiLHBgROzEhdWJK7iSH7sBMWT8m FT0YlVvhlHSgp7gR9hxmTiSYMnehip9br+XYzorM0I+4f8sL0EJ0y4LSREJ/ OWNoEE2hvWwGFsUEDLm9aCnqR97FFiRftiD7RhfZ9U5oiAxqM6xoyLOiscgK MxnoFkk7jWa0yzpQW1xLTFeBUm5rR4aCzGKE+R3nUCy31vkWY9yEc+tdQLKh Pp64ziY9JBh5504gcNd6uP+BDOq/vA23N17HwS2b+MkmnnHgi+04uf4Q9n9y nPsOf+8YBB2+iMDTFwQnc43b2Q33/vPd/tSbwt7evQLCsVUQJzbxnUGi+lB7 VovGMLIPxeMYLp3AuHwS08pJzKknMV8+jrnyUUyXD5ODcmBQ2YNeul8uuz5P Bae64j+fcLz3kvmeHXqComsW7lggVeYQdMUjaCgZRFV6J/S5NJ+FNnSyraKA diQGdiKLGKHoXidhCgsqMy2oze9AXVEb9KJm1IsJL9Mqqyqsp3lmx/nIkZ5R its3Y4T2BPycLzV04npaeL/oZxFMcx7k44Ej2z8ntr2HXvvjyG+2IXu9Ozxf +ze4vrkNLh/6Yf+2cPjuC8fZwxeWw89LRiqcXzj8x/yUc+VBh3Yt2ydG+9it i+KkEN8nU/qgHarEXujShmnZ0vJOn0J/OpHcwiFMqR9itvwhFiofYrF6HgvV hF6rpzBeNYbBcif6WNa6tBl2cQ2seflV/7Wf5D3k+9zrqjQ+VYI9KvKdZMjb CUm0ojarA6b8TrSRIneJupER1IZ7QRakRFmQH09CIjMnz2mHsqANqpJmVIrM qBCboRI1ISVVibhkKc4fOwn/PZ44Syv/gjDhyz0huHRm/rMgmvAzXluxd+27 2PEhO+3mN1j3xlqcWX8WJSevIM5rJ9zWbsOG11/F5jdfh8eH771E/4QJ56pw CAWGC83iOWfgzRfjLDFAtuXZbWonaKCG+B5LBSQbmehEHXGwloJZ8v8PYS19 gn7ZY8yKx7CgmMTD2md4pHuCh7pHmNUtYFw7jaHqEbK5/bCrLLCX6WETi6tW ouoPX7LgWSHdNGn8TlPeHbpqQjM0aW3QZbNJtsCU04wOcSe02TTBdzoQE92B hIQOpKe3Izu3DcUFrRAVtaKwuBnZhU2oSK3Coc3bcdTjRUuBs/t588qX/fO7 FFcP8RPsT5O7g7USoMnd/sGr5LdW48hXe3Bg9w2kht8hy3KGO4qIm2CCcNsI Vex8SyhqWT457EUDRDLbS614grm2d7u4PeXLNMHslrsNpB/RFdylS+N7oEke QX32NFqK+T3lQeVzjJd/i5Hq7zFT+y2+KZ/E0wqaaP0zzOgfYbyeeJp2An3V L5L0bAoZXprhD16a4anB5ygv5Gle4o0m5Ma20iy30yyTXcjphPwu4RHCOU3k 8xpVXTBoOpFGs52e10522QpdSSeqStrRVEzYqKCWPIUc8tA4+Ag9/9lRD6eE vMqlynxutmmG2REP7LH1g9fxFWuT8vnbXFdrtnd4xOMQLp88jVt+B+H29mpu hvn+xa8LWf7v4Qp9V4DQA0doKhfMGenl3V4fQt/ebkiK4jdquDrSyCruopK4 fqhTx1CXN4sWEV/+41R/i7HK7zBVy9IUv6c5/AGjDT/gh7oJTEpaMd7wEIP1 0+jVEbDVsdy3RnSr5S9N7z+9NL3cVcf5VJMbgS24d7MdmURlipO7IMsi+Jdr gSKvC9XSTlSUdUOl7IZUZiH47MBC1SBmKvsxprHBWUbOWELAJ49wfWoh971R oeHw9vRYokR+LL5/gI/vL6Vtb3j/NezZ8CnH9RhxZvUTfi67cJWQc8yRXThD JJhrHP8mv2u37S0+Kd6PiDNbCyxKEcDC1YF8sz5uR9YTV2huL/m444K328qd 9FegShtfNopL+waj1c8xqXtOCvoN5g3P8dD4HAONf0RLTg3Gatox2DCD3oYR 2Bt6YK8jRN1iWlLY/ctujyexny3Pqa2xi3udGU1W83YXbt7qQvx9K9LTbMjJ tSE7347svE6iCT1oVg7jqXYOT3QzZIqmaOWMYZxWyGC5nTB0K9l9HbrzJXgy NcV9NytsV5RKcJAMxGFS3aNso4ULyHvAfeNn2EUT6sdVt/EVB1zzZeJ1/m60 or1cEevL75x5r/mcrPHLFQdepLZ/viW6cjuU9Ulyh7PPjpWb3YUh/PnM7GCw slR+kpvEfA5bX/kjDNU8wpiOVU08xozhMeaMjzBneoQp00M+DdpEWttIk2wi rW0wEmRwrJzjFVq7NJbes01Ubr3ca4MygTxsxjCaCyZRS0OaN0qM+jEx66d4 WDaFp/VP8Vz/BE8aFvGwYQGztFbGdaMYrBlALxkOu4I0WFKGqc6OpUpFFp2P Cg/BoV0udMMsPv8P+Oqd38Hji49f2vFi7SJYXvbpXZ5c8DnuuCe338V43aF1 n3NblOuXtihXv853AhFOGjsvnDTGtifP0ASfJrNLE/yihp5+BysolqeMoDpv cllzbeVzGCDAMKybx5h+HpOGeUzRZE6b5jBhmsFw4zQGWGqNmeVIWWFtaIBA Rw68rLn8N74OcUw9GZ5OqJIGUJdNnrN4FjbZIgbV7Bze51jQfgNz0Q/4TjOI 58Zv8NT0DA9JjLN01XH9JAZ1Q+itsqNVokV9ejbUWSncwTBZxKR3b93AleMe 5+gaH2X3p7HutX/H+td/jY1kQT3efweXhBM8WIb7GY/dXKfoeydYYvO1g9z+ 4UF+/3Dnh+9ize/fwPo/vI4T+7zgJ5zSceog2zf0xElCwXFR4dze1E9XTmVJ lA0Sggaa7OHlqbSoWer4JPq1U2RBpzDSMIVRwyTp5gRGmsbhbB5FL8t5aRng enD2dFqWptKHe3ofNkM/xP9/e1ceFOWV7X+TTKZq3uTVq8yrmfljliRuAdxF neTFLS6oUXABEXHXTBKNJmaSGMcFjY5iooIiIIgiIPRCNzQ0awPd0BuLQNML TffXTS/S7KtrXs38Nef7vm7EGafqVb1/7apLX5qm+55zz/a799xzL9RRBGJE cQp72Y8PDcJBmAKHEBRPMKB8ihH1j/Ao/o6nCoquVaNwlfeCKaNZkndCR15K kiCkdgvSi9/jW4rgw0JnYlHwJCwNmoTl1GIWv8etoX/hX0NfPm0S8W4K5+fZ S48iyE5+vmEtd4f34S3R3N0GCQeix1csxvOB6bMPbAhDDJmLC2fjsIskeHcs u5+Xj+JC8c/923nsI/uUEblX7JBQxFqew9d3qpe50FLqhokCJmu1GzaVG3Yy k3adC7YGJ9qbHDD6t/P0mibFRGYFwaSyQXiWmPWDCbLUTlRn9aBeRMwqGoGj bIxCsYfoq+WNcR/LJMX/wlNEn5rvgknMQJGiRGFCIQlrHn1GGsTx57E4+G0s pbacmBVGbW3QZKwLYu/ymoWDa1fiGxK+FVMnYRXLLPbuRWLUBrJ5m6kdIYdy OHorVwM+4WA0j6ZeG0dTbGh/bOdGipkiENhV63U9Rua5DuQkMZDcIjSZx0Ap YaArYtDEHmNRMNxxcKOamo5+bwgU92R31cwYHXsAxcT8jFnIIyAmusgvuihI 0XXiPrQVDcBGyMBTPUzWc4Q8ggeWfCcMUh/G6ofhkRqhuK5AaVIZZEmFkFzL heRKKvaTui2Z/AdSrbexOoQ4QS0iZAo2Bk/BJnreTO1zcq8rpkwmjkyl90zj 7sviODInGLven4/DMVu5WPDKZ9HcCkHcnkDwHckF32zi6Fc7wgP7W2xOVvoF O+4kMxBlMgQf+PqXKn9Ols5f+5JNC6vz729VaqwYHnuEqomcCIUi3UgwvQ2S 6+y1SR5ohF1oIQveTsrirOqDId+OVpEV5vwO2CQdYEq85E/uozK5jHCWDAXJ Ymo5SD99BhsWzsaySX/AiklvEhemYEMIBcrTpyJqxjRsmTkV0dR2vzsHu5b8 D1ZO4wPldRM4ETU3GLHLP8CJvVtw+TO+WCWfefksSj5KnEj5IRGN9XwuDpeT Q6R2e4b9+yCvw+d5Qu6ki1AUgyz2QkuS48IifiOq1L8RJX+2EVUzkSO/Qa9z DHdPtRIwZkE0AZs88nMFHrQRSNfmmqDLacM9gQlGsZm0xILGOxrUlhCq1JrI 2mVDmkpmJSWL2+D8gORixeQ3sXryW1hPGvGq3wrGzH5nPDz6bOUiLpORvYCY rT4WTtzYSNzYTNzYtmI5/rIvGpc+2wo+pn2di2mPbIvA3nUryaQsRua1EggS S0gWS1D4A3tRJPXP0WunSig2ZQKbQ/e7nqC+dRhShQ/JIgbphQxuFjMwdQ6z m0MqngmBpLSyVBuy4zsgSiV2EQtrxQ6oxVZU3myAiiJ+Xa4BzQICtiIjt9Ej TymAUd8Ps1wJcZoIucmZWEk2dMWUt7BqyttYS8SHU4skUWAf2+YEEUGxc4Pw W2yfyzODDZPY43ar2PiTPZRJTFhPPmfjoiU4tp/EYfNissNruHTATyPXIjZs GWJXLUXqmRQSxRLupHcNe9L7MjViRB0xQkmMqIgrQdE3xRhyEDLlydzvDzpK b7v/KUx9lawkwcOMJv9v/E9xaj4EafkT3vcfWEPWbQ0L96aSzk8jaSfXGklS zz5i5wVhO7UdoUGBCHzDPP5gIbe4PzuYy5Fb9850on4mPno3BIfWL8aedasQ E/YBNYLuMdtRkVKCWqJMR5Q1XeVqAL2CVuq8huaEEjRcKoH6PBF9vBgjzkG0 TUjJeHYNfCAkv3uVv7VIftvgp2sGbqVIkJYqQWomn6mx7XcEW3//W6wnutYH B2E9ubqNwdSmvcX9PWrWAmybzQPHfXPC8NHCCK5/YPkn2LdiP96fNpdChQXk RuchbGYoot9bgN3L5pFWL0TUqmWIXLkMN8/egIIrcqNAY3I1DCk1MKfWwJpe A9vNKmoKdKRXwJJayl9gelkOTVwBhp39homa+m/KEYbi/Hc6XPNX9MrJaIMo m99JvpQowcWrUsSdTMbOsL3ca5/PW4atNGkRQR9i1fQ9CA/9GFveP4zYFcd4 mVx7BPs+2MH1P4rYgY8it3N9dvsnblckl7cTSwq8emEoFhBzwt7/I9azOwcf EubfsB+SGwpUpCpR5985MKbpYc1oAJPZgM7sBrhz9PDc1dKzGs4sJWy3FTCl laE1oYhQtArPUfyLfxubs49r8XxWzbE4BU6dLh8/n/an1Qewc1EMIufu5F45 siYKW+fNRPiycIQvDiPBnEXh4GyyNzO4v3NyuyCE6+9cGEItmCeZDWkmVB8P uGlFgQBVUgWEyQU4f6wGuZ8IUR2vgJ5dxr9pQEemEc4cEzxkM7tEJnSLjejO NxCOboFX1AinQAdrthLmm6UwJIrx4H4fWv/vZF/8SyH3nHhMgutficfV869b 43E2Kh7fRSZwr5w7cRkR8+eQ651BVmUmOShyPDPfCWh97HxSxQXUiOLAeuOh dUu4ZJOJnpi/pSKCX+a9mgvR9XJIkjUQXm5B1pct0H8ph+UOu6jugEfkRLeE sHuhE/0yB/qL7Ogt6oBPZoaLsL1N1ABLTg0sNwvQd8/kJ3r3i9bUX0VLk42X 4m8F/gHOgfTEs2JG6dsvID0mHqnh53h+EO2rps7AmpCZWDM9BGtD2BWpd7Bp 1jREE7Ex80OwbeF0xBLBsX9kW/DzWR/+2xiOErT/ckc4TPoWCBMLILqmgjTp HsqvW6BJc0DwnRvNp+vhyrTCV9CNvuJuDJZ0Y5hdjiqnyLuMhYZOuOUdsBca +NNrd8thyMieSPCLNiIDpCfHCXCTyM47Lh63yNJPEyHYe4FrgSm/s/0Svnxv F1ZOCeFulg+bzscXEURyVOh0RNP8bl04/RXEEL2/x17SU/ZQxwnyJ8fHF4o2 4evdG1BRKOSQnOhKGUSJekivGVGZwkB7y4PWu91oyulHR1Y3fMnNGCgbxnDF MEYVQ9zR9IGqXnQT5nBXOGEvaUd74T0KJEnAc0UBwd7zIlQ4DeIbcuSdl0Jw VAwZybXiZDHUZ0rQ+NcS6M/QawcvQb7vIhxx1yHY9WcI953B3V0X8Gnoeiwj f7KCqzpL4SWFF5tCQ0itQxBF87uFbTS/R7Z8yC0ZH/NT+w2bUE8UBypuW3Tt hKr40hCFV61QpLmgy/IFsJu3eIyi4kfoIWQyVtqDUeUYRpQjBLYG0V3TC3eV F/YK+4RjSQUBgnmH+y531Uru9XwIU+WQkW2sJttYcqoC5ccVqD1TjcZ4JQyX lLAkKqE6fgfGL9LQeC4N+X/6MwoOnoTkYDyubv6CHC45miB2u3wq1s4JQfi8 EGwgijcSxZvIeMUum8+t3R7dHcUVlP/Kn2H+xW5+SYWjliJi0UU+N67wGlsJ nF9OMYiHYZc94Pq9lY/RWfEj+quf4EcZw1UBH6gbIYAwALfSB3uVE5ZKMyzl JNXFxc9R+zaqpVVkFmXIT6lCaYqW293UJjai+qQW2vP1aL7cAHNSPWyp9Wg8 IUV/uhzVJ26h8ngayo4lQ/ZVAiSHziMx8iAWTw3CkulBWDkrGKvnhuBDongd Ubxl6Xwu9ZpdR2VTr4/4U68P8QW2Jy7LvQHFLf4QnEEyCnsxfzyiu+ox+pVP MFz7BN66v+FxTQ98hSZ0Flnhru2BTel6drilrCgwo3yk+Bb6unrIEArJEFYS ENARYGyB9oYZrbc6YEy3QnexjeIWI7lzI+wZRnTGl8EnaKTXSb7P5KD09G3I TtxA/jeXIT50Gt/v/ZjzpotmBGMpGydRGBy+aP7zGcu7xjOW+a30n3GUCM/w kylNcqCCKNXk9QdE11Uxiq7qMfSqxjCoHiO4OwY3Qd4aCkS6qlrRqe5FB3tm Q02E1urRUlb4PKFvcuV1RFeLIUqqQ1FSM/2rBfWED4w5bjBCL1l8D/kwJ0yE 3dsu1mNI3A5nrhVMngWtt+uhuFSIgu8ykX8yBZJv4yH4/Cg+IRS8beMafH34 AE59+zX2bIvEvtgo7Nseib3b+ZRfG03iz55ZiV9yVRDKMnhZbZb2wSLnc+g9 1YPwqQbRqx5Cv2YQA1rqawdwX9vHn5rV00QSHuZP8DHPkfdrVAsUECVQozBR nmSCMo0haEMkCbrhpG/xETweKB2EKcOKHtatE7lWgQtmkQOtQiusMrJ0MoJG d0lzr+ei5spVdFjb/+vZyN+gz7ehOJ2/r6U+vwuGYl4cnVU9pE096Koj0dP0 oFtLllXrg1vfBabBC0uDk9hvRGudOhAR8cP+FfLi88hkqZB/pQUlSR2ozXCj iQy0hbu4gZB86SgGK8fQ+kMrntT245FqBGO1hNao30MK7K12wVHRAau8hd+G Ekv8Fw/xOpP7fQfyCQSVZ/mPp71OQNCD9koPV26ELWbhqvOQLHnQqSdBaOyE tckBUxPB5noDujzefxpw7jkxRN9raMCEnFIcqM28T3CSZlE6DJd8DD3lD9Eh 8KFf4sWDukd4qH6IMZLWQc0Qeur64FXdh6OKQfv4to7MP+A3+Psx4izISWQg zWBQkUv4P59BQxHNURmNSuFAe40D1jpqOgd3ftbUSCC6iT3U0gGzyR4AETtf 4JQD9x5VZ2kgOq+F+JKJqwJSS46wSTgIS+EoOksfkvN7BOMNN4Z0w3igeYyH 2scY1T0khDyKHs0APHU+MEonDcW/c1Iiwy8DSxuux7h5zoY7SQzybxP4zGNQ I2WgIajaQPi9qYbwPuH2Zh3DrQHoGvmrPVrNrgC4e/HQee5zZuIsO3QzilNd UGWzBUwGYJYNwVk2AouQpK90CEPqBxjVPsCY7gFG9GMY0LNL6INwq7thV5Me 1Zm5PYqWUin4y9j/Ez73YxQJu5BOcUJuFoMCQtml5DMUNOyaagbKWnrW8PdT lNEz4yVtmrBK/NPxeIAf+3+TnLCLdk5ieBfqRT0wyvqgzrKi/poWPVrScjW7 7DCEYR2NWD+EPv0gunR9cOl8sOnYUs0mmOs06O1k/Ccwfo4u31Pky7uQQqj+ DslGbhEDIY1QoGBwV2FHu3sYlgmjemGB4d88x1z2IbhghPS6A5WZbmjJGrJp HqpsG+QZKniVFBCRge3V9qJfx7Ye9Oh74NX74CD1bm9wwKw3kHrXYnRoAA8n bKNN2PT59b98aU6cEYJE/zJNrhP1UhcMcjesFR44qr3kvry4r76PLo2X+OKF t560tNGFDv+BSgPFtD6P99GLv+9X//J9pSl2ZMXbIKQZLqUZVtEM17OVuEqJ AIUTHTVOMConHGpqegfsRFg76RZ72qK50QqL2YbHE4X0xRj2Fb8uyG+5cesS TQ95FHkOCY+YAlB20bPUv+ipYmAkQWrT84ue7FECHT23Wdx4wn/Nx37ZvFc3 hLQEhvAwySVZhTJSqRo5WYdKUi1/Nrya5FJJH6Ug1WowevGU/4hP/CCsy/sU TfeGkUJamS1kICLRLqCRyGgkMtJKKY2m1sCXmfiR/1e+xvFr8PY+RYOFP8fQ zJ5joPY3/i0c1Qde9l/2X/Zf9l/2/z99/OQfI72ndg==\ \>"]], 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["1", {4.614869202947836, -3.554310950391028, 2.411210070600467}, {1, 0}], Text3DBox["2", {7.355112314062959, -2.694350105008248, 2.744610744548887}, {1, 0}], Text3DBox["3", {8.698692918106337, -2.8869753357724486`, 0.184413252376878}, {1, 0}], Text3DBox["4", {3.436317047127267, -2.223875705206328, 0.2005784563998525}, {1, 0}], Text3DBox["5", { 7.579900032796996, -0.889281432147307, -1.5862505505532845`}, {1, 0}], Text3DBox["6", { 4.7478889268919975`, -1.0475497829032905`, -1.5687611588525774`}, {1, 0}], Text3DBox["7", {4.554603956711093, -6.408806156108559, 1.9554486830630382`}, {1, 0}], Text3DBox["8", {3.1227514141769537`, -2.934903448589884, 4.8092651715653805`}, {1, 0}], Text3DBox["9", { 0.6815830692450876, -2.219666918267925, -0.00009431944060711572}, {1, 0}], Text3DBox["10", {3.319565980468145, 0.2052663027820938, -3.690068409183111}, {1, 0}], Text3DBox["11", {-0.6, 0., 0.}, {1, 0}], Text3DBox["12", {-3.263475350554561, 1.7565345705532793`*^-16, 1.358295608504471*^-16}, {1, 0}], Text3DBox[ "13", {-4.687318925031777, -2.466514975398433, -2.220446049250313*^-16}, { 1, 0}], Text3DBox["14", {-4.548174753024606, 2.2250373601984865`, 0.00021820557347695946`}, {1, 0}], Text3DBox["15", {-7.200929289123932, 2.2311038412662842`, -0.23944232383529152`}, {1, 0}], Text3DBox["16", {-8.500976716180661, 4.430454713383563, -0.034966668901050824`}, {1, 0}], Text3DBox["17", {-11.251826703888613`, 4.436845077763216, -0.2836026387026047}, {1, 0}], Text3DBox["18", {-12.643504552133923`, 1.9998051966611783`, -0.7667852063335983}, {1, 0}], Text3DBox["19", {-12.531748958592422`, 6.602231036219992, -0.08225525094987507}, {1, 0}], Text3DBox["20", {-15.304830822908883`, 6.682445648461901, -0.7260599371997856}, {1, 0}], Text3DBox["21", {-15.821743048234781`, 8.880020066728685, -2.2078937743091855`}, {1, 0}], Text3DBox["22", {8.299396137123855, -3.908897364942389, 4.114715741419429}, {1, 0}], Text3DBox["23", {7.392748568810903, -0.742272719481524, 3.4008564516189583`}, {1, 0}], Text3DBox["24", { 8.408442027272741, -4.765260190419248, -0.6098646865305253}, {1, 0}], Text3DBox["25", {10.713479643249574`, -2.538480162591921, 0.43232301408399265`}, {1, 0}], Text3DBox["26", {8.16330504090098, 0.9833954796886937, -0.9577357512584818}, {1, 0}], Text3DBox["27", { 8.270052100922678, -1.208769002057873, -3.500634516647988}, {1, 0}], Text3DBox["28", {2.6020810864769364`, -7.028549825763692, 1.7398585897487386`}, {1, 0}], Text3DBox["29", {5.409425343058154, -7.378357814268131, 3.5588757175099066`}, {1, 0}], Text3DBox["30", {5.609017102259517, -6.8530179555298485`, 0.24275881770402474`}, {1, 0}], Text3DBox["31", {1.1404429301981458`, -3.419711376269311, 4.528974925752826}, {1, 0}], Text3DBox["32", {3.286111547147487, -0.9228169584104742, 5.218851264497889}, {1, 0}], Text3DBox["33", {3.878583189445202, -4.020883335260933, 6.387854705621925}, {1, 0}], Text3DBox[ "34", {-0.3328707252213564, -3.9838318474541836`, -0.15709113671015373`}, \ {1, 0}], Text3DBox["35", {4.65300229354374, 1.0879568787632234`, -4.988506112813955}, {1, 0}], Text3DBox["36", {2.061682422695675, 1.6413780536672604`, -2.9167078034782667`}, {1, 0}], Text3DBox["37", { 2.210777334269506, -1.2069464697931862`, -4.699452044267817}, {1, 0}], Text3DBox["38", {0.4203883875406166, 1.76744541635184, -0.00002783052498023242}, {1, 0}], Text3DBox[ "39", {-4.894103018093187, -3.1398329183587794`, -1.9355251739643942`}, { 1, 0}], Text3DBox["40", {-6.550602516247866, -2.1836453585045152`, 0.8312200468535239}, {1, 0}], Text3DBox["41", {-3.6470682891414357`, -3.8597577658933635`, 1.1042624159364158`}, {1, 0}], Text3DBox["42", {-3.5358943438166253`, 3.9877560719028837`, 0.18387768817683914`}, {1, 0}], Text3DBox["43", {-8.198066956231491, 0.48462038532931356`, -0.5860058058554208}, {1, 0}], Text3DBox["44", {-7.5034040526726535`, 6.177088756853044, 0.3113558276591548}, {1, 0}], Text3DBox["45", {-14.673353460622273`, 2.34092304697066, -0.6877759478452892}, {1, 0}], Text3DBox["46", {-12.123358651611445`, 0.6160670190566108, 0.667359507909542}, {1, 0}], Text3DBox["47", {-12.1404648102148, 1.2797459382315148`, -2.630105033157284}, {1, 0}], Text3DBox["48", {-11.579857747734993`, 8.296324131762642, 0.5416817701468233}, {1, 0}], Text3DBox["49", {-16.411129713270977`, 6.749118263850597, 1.0101284470066787`}, {1, 0}], Text3DBox["50", {-15.809789536084145`, 4.99742674481006, -1.797766576537123}, {1, 0}], Text3DBox["51", {-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, SphericalRegion->True]], "Output", CellChangeTimes->{ 3.571825947124669*^9},ImageCache->GraphicsData["CompressedBitmap", "\<\ eJztfXl4FdX5/1sSwu6CWhVRqVurrbWLbd3XVmy17lq3tiJuqICgIiIuKIoI KCigrAbCpkDZIeyyhYSshOzJvVkg+wIJWW5Ckvmed855574z98zk2j9+f/ye zsMld+bOvOe8n/OedzvL/H3IGy89P3zIG8OGDhk0ePSQ114aNvT1QXeNHC0u RfwE4Ccvic9jgwC/GwD0nyH+GcPwP7zyv+//zfd2/BOBcHbDb93w2/Pypw7z TyRIrA15Ud0HEbbLz/7/9US7BUWEExTzvnMVxUAgAHv27IHHHnsMli5deh+7 5Wzze0/zltTUVJg8eTIMHjwYNm/eDH6/Hy688EK8/nf2SH/zex/zEUHNpDp2 7Fjz8cbGRvPXhoYGePTRR2Ho0KHmtXvZ86eb36NstaIixb2RqtJIYtKkSbBu 3Tokwyn09abQU1F44YUXzG/4s6jcPYxCb/N7d6isrDRZHjFihMlDcXGx4Ez+ 9sEHH0BdXR2sXLnS4uNvjEYPl1ooHPopMk8//bRVOYQLSXEykRoyeGC1BJkz 1M/jx4+HmpoaSwQUU39llH5ifu9lUeJtiZWvr6+HCRMmmN8l2R6wZs0ayMvL s8jiPcTs3ZJ2J6sgb2/EStwWoeQTS8Qn8ex0dY1TJznG2nzzzTfm2WBZwinv 9uyhnkR+EFw8O01d27t3LyQmJtpKQB4UPPI+s/P8UZYV8C6rN6NBwkxlZWVl wcaNG1lZsmsxATlD01l/LwtuYgVzscOCBZQXqcbjheCHSyeij7f3kHIjju7u 5Z30Fs9B5s+9Q8rjvZgBebp7QSdcCkJRE7W9VD1J/Vn2iiDKJG19LRWmWqpW 1dBNnB01vERTTpS6RsBJxRXKyR9kidXekh6pkY2feZRKlcPHg9ypsiq85fBX igbqsObmZoZaiMzdIQmWehO8RhFErUYEI9QjKI6cXwWXIlyiEVwiLFj7nflz Pxth/OCtjjrYmgzPb5clFGlwx0PJ4rUe2oSoBtmJgJycHEuqbpMl+JiZc4JT WlpKMvQHTUm9mAzho3h2q6Sa5w051Qc53rFjh3lGvHC91YvdR8ioEnI87NTN HqSwRng/wqBIvWdJoAKKDrMr3O/Nyq0aFdhT1Y3LA4F0iyzhfUdfc/Nn7vEu /Q7X0qNC9JUycBIc+EDVkRdGFbnUAuRyDwkXtP6iikfzO3PmTPOsr7rGrd5N P47pQao7O/y9S1yUkOqUgzUKp5+6RkYPz24MafXutlan75foa3GxQ/l69WRR 5F0eteJuh6rVxPDhGOgtGvcxPUlPUdvgI3g7to8q+CMLDhe+B3h0uAc1KpSc RV4taoYbJNHl+pLOdWFMCfTDroVF2ZQeQ/d6SXqFxeM53tg9popAmSbXkuw8 3kJyfZ2ku8NBjXoJUhVwPaHRneQOccH8k6S2TekrF1trdSz8/rgHae5CKNJb vNkmM841xz80uvR01W6cjHBcB1rwni+L2+hd3BCN8jqNKS+NGbpQ0z1+Kgtb r5FPZYjhOU1J/TUwDdQIpKG8ZHk/rPEWzhc0JZ2lrnFf6wILqwgNS2fKslZp ysIDCYmyhmlUy1mMK5KtnlZZZ4ZT6ndM/nTeJZc/XRXO1gAbpe/pp+sv62zC mVxldBlycahfYnUkZdhfCYsTWXzGpa6nWdgF8yzMXwhShSXeYu90grGJCEeu 085UZJAED1SV49xdX81z3LFb5F2vNzV1OIfVldoyUl/w2RYqUgZhIStO4x2P 1RT3U03zReiLu1J+ma+RB9Ydx2n0408d+Fs8mZW/StKdY/5xd4sVGO+40g8J RmSYAbO9G4HnDMgzJia4CpYY97B1Uh4M4zVV4kyNYqQu85GrYuxl4ePMYHHc fi2LmOHN1MceSlEXpnDX8WpZwufeJXyqKWEAEyYKT2TwCFM0okmKVcAyRT3J 3Vqixn02RW0yawtn2g/PZ8yYAVM1ivJ8JSg8yBRsK6qfhCcoSJww/ExTyHmK DNaba3GleX4pC/vIu7CZijD3JS/QAKI6zwQPifta0+0Hatpd9e+H8I8ju325 S2WVkM7RlEB+A3e3fiFLeDh8G3SxpmCyGqLg+eoR7jVSwTzyVgWboZ1ZrotG 1VVhoEMvOY2z0pwLNHrpAtUqyD/PRGG1fjwWAzSKlxlinnHE5sez+a6VirJl jvCjGurnP7pebsGDAmi6BbruYcqAcU17MeOEWvCKH12ts72rNcmqls4xc15z K4Q8i9TEJDhZVWme0X1cMw5S13jC+XLW3xwDJ+doujN51lM0VdOxQLl8PGpr a8GflATt7e30DNUcL426ez5UZ6daZHQ1576TqvkrLp0TvwuEP9dWyipaJkJ2 ffIptAYCFieUX099JgmMtiZXQC9WNHiPJFm5TFKTXmgvNwGgwRzz+8uW0gs2 woWsmlQ9ezXlb3tThOKpqrN+I2TLS8uhc7XPJk/cTlzEOiLaFLL4SqEoLp53 gOxQPxRAIjPUm18NU3jpWSTdrJ49S3Nft6DG7OXseUJ+FDJ1tdY1SqmXlooe UVXjigClyblsyRQ9DPVWdm/+SBYf/eVoyPpmuHl2hocO6WZVPxh3iFurqhqA HcRfUlwuGI1HbSVxg835I0nrYUma9BPgGW89NSakMo56k7j956lD0FBXbJ4F o85IDSg91bXYeHFexfP5ERA35xAYpyptLHGzTiMoPF7opSlDajD4pzdz4zya wkUjl5WWgZEbsFWmvb0DMgvEfQ0ngrL3elqIFHBGKOdGMQMeQrg8eHmS8cKj K5WLedOuQpTm5V0lDO72xwqJapWjWJdZ3bMdWksbwBCaOohCKRipx2xNx7n7 maoC4qwJonq6c/k405qa8M7qq3FxcfCWlhObElUWJlPYxw7xl3jHa6WfCM1w 6qQy7RGwab+gUNGiVI685vOJ3lVTZeOTOzOXa8Qx2H1VD3vUWwj5UBpxNkZR 4pxRM0ZZbVAOy1+fBCczU6z6mhqvttU8u8LitQOS8sTzRwus+3LSSuBUoKJL vnjkpxtflb6X9CG6moQgqZGT9bqniuiuCPoKa2B7sgEdOw5DhyC+OzpDtFld T0vWuznUWZRpEGqPCTId0tdYec82MDqbCDXu6BFC3FUPtp7i7QFVIYrZeGjz oabquu7VQ3X2DJ8BedHHoO27k6JO7brhVy8rglJ7vFIqR0qkbdnbKZRoGzQ1 NkHLJ1nkv3BfhdjE1sHaYwtJ4w9/9264jx2VcVMfVOrmdRnQUNQCncXHtGPL XqoHmUv/diNkRc+2TCRe25tuQMle0Yb+ah1zl6oK6DggyZWelJpp4n4rdryJ di1qfuulJODIt8egvaUOtiUJgdyZbgpkD0tcuivF5eyyyEPaClHZjGNQWt8M JxtPqvRchCmrVUfFfSfK5PPSFEVaYKvjYoWHI6QnOHkULcNFNZvENRWnC9Zm KnhMC5cYHLxGoa0/2AaNfr8lyA4mmX/Q3WS4MCcfjLgc6Ow0oM2gYCgSZs0X Ore6E+pFlaoqK3nXx/g5yHxvqwgkh5/KymqoEY/lph2Bld9+B9nR3+J1yiTw nI8MMeEvDAPN5Kx56smDO4XOa2u0CWhhUQAKUw3oPFah5Zn1g2pRr6bVe4Va Up0yIshFD7Pmm+9bDx/NT4KJN/8F5v3mOkj6ZpZ5XVI4w/yOB7qlSC0/Ixty EtPBl+Q3r6euboBN4+th29cGHBRG6sARA46Uiu+J+ZC0beOFrC0pLaMQuMO7 e1POoEk8kf+usHIdzVZmIhAwYGtQ0LvZObNy4Tnl0NQuZ+v1tXcdoZA5YjHR i2HYwGthws9/Czdf8BC8d+MQWPXkc3BoxFOQsmo7JHybDIeW1cLWN+tg3efS 3d2bYkB+pfgcNyC7rtO85i87CYF2UyzI/eLjczJJocb5XRmPVk+a5rKiVd0s r2UIR64uUYh7od+KFLGFCjJyoGllHHQIkW7voBT7WU6xMP+ie3TjBffDO9cN gcd+/SjcdtUIeP/x8bBqzPtwaPKbkJaUBgWNBvgFc5IZpltZxsueuqEQRfF4 MzNM2L0p/EXDFKOYiVsp/Ln2Bqake5uy7RMti0oaGfP7fGbHwl+rhPi1rIkT z8jZkLJr9pM+VGYuxK7aBrdcORzefuQT+PjZHfDo3W/Day9NgQWTPoed8z4x fSy7oZD9hvxCcVyh0C4oKNBNVlADiXK8ODQbj/yjI6kmVC1WZSAhdgRxjFR0 EOHYhAA8f/3f4b1L7oSVt98OO+8VEJY0wommgHQ++5kPF/kKzb/bpzSbflP+ iQBMn74CRgybCvM//RymvPYWlGXkwuHMLGhra+XOZqRz5o95+RcaNa1cwz95 yymfNUNOyyJ1ze8TavpkIARqJouUgkGNfvegf8HUe1+BTc++Aunj/gmtbe39 LWzaxS0VFnqJsQbk1hlwLMAUXZR5W0JKBmTn58POx4VBOyEi7rYA9RvMgZL7 SDO2ePJVuVPXOjh25BNWKKHGjNH3c+bD1pmLoL66OFwu77zpLZj04kT49y2j 4dnBz0FzU9PpTBP7fUUQtz4NDqw4BYkHpJi2dCgL1F0Vbdq/w1WQ5cPw1DDj Hp2PTExi/yO9q5j8nYvlUdmDYO4vKKg0OM2ZIy+4RDz25wtug4+vuR/+c8/9 kPjsrV3iIZt19ty1MPL1L2DmkhjYsTkJ/nbNU+DL9YMRaO3NcPHl5sPuOcni 0wzJhQYUtgidRObQrB5N8E2KPSzMhMyLZRdZAEVq8LlK8eCcyYZdQOF0jbf4 T1EUiEH+191PPt9kqVa0SqPwiQOBVvMv+selQsgxK1ZWXAKVopULc/PM53MT UyEvLhn8iYchb28KFCdlg39fFhxNKIKV8/4DD/7iefj8oddg7ZDhkPruc10K o1QGZ0N5RbWV8kQFtOE/u2HerBhoqKwxBTw17qAoO4nd027WMSsxB3bPFtpn hwHFDeLTJH7rNGgSEQpazRc5IoJos2DILg4KK2kNHupcpZBGTcKH9lQPVTMq fqVkQtceFCB97u0O6dojLS0TNo9+B9JmBSB1sQEpQsEkbhVOTIIB6cLLSs8Q 34WmLRBhW3GVbN8ctPu1wvusFuIoMMgVPsDRZgP2J2fAPXeMgw+HfiikeQik jHvdqz2cY8lpqe3BPtIHCn3NMPXjL+DeAbfDtN/dD5seuBf2zZ4J677YDeve bYJDIvjwCfRbBKzktBdiTkDAKM/k/zklmDvoNOHXpYt/zRQ5AakSHtRNdLl2 7qZjihbPdGlt1kVlIJVT4Dc9OF06iTw8Uz/MWwuvCf3w3sh5jiEA5wjV1AVG UEn2gPXRMbD5iaEw+4lRsOv1kZA8dQIkljdAqxGcDpIzN00AUs8KjbIBhVcU SL9Rj/DxCUkGfu6iI5QUz3Jw6CaL/SydC/Ypn6T2fYUl5iqPOQt2w4JZS80a 9mQglAuFcaKZCZUyKV9Mh8DqUfD6ix/AF699ClumfAzZG6OteRSlaE3SqxQT sqhcDPnKJQgkJYQAz0UrBC7z1pKz1M8OyffqmKc5Glcd7n040tRfb06cBfOm fInRWzCNHKHMDSpcY+U8aC3eD4e2xELym6PgzXHTYdP61ULZVRMeqVvTHR5p JORiuqaiAxqqqzEIukbBxHmlTqNmmvzMAYnDi5hjiXFQoPtbNQ6Nr8mHWbM2 Bz58ZiLUZiartu8jwehosxR05szZYOxZAO2nmqEGRTUpxtTE+BtNNEFjE5iN E5bbrS54QCi54ji/GeURh3wGKaUQFYeD1C0UAOCRkZFh3r4pTJknr2VBXAG0 Hi9jmPeElTuDCHQuEWwcjQe/sNxNE/8JgZL4863u4hiXwKAi35DDDILj32rE Vk2KorFz/AmPiRMnwldffWU2pfCXfiwTZl5PxExGdY1qr56m19rU0g5Hlgm/ ceNcIQ4nwTdfhLV752B+7XzWT5Mfj7UV5VUkaXV05osOiTClqtLGKAmjmmV1 niVZpOVQl+NNuGLs3HPPheXLl+MD6398TyXJrDthmBmGoDPaA5JF/H9qwlsi homH2mqhYr6fCx3H4k12B6iuVSrcHSOnxl5EiJXkKfwXn5kCVdlpyoe1p7Zl Xk5lF3rbqOCHFs2h6dq1a5cp6iIY2qDpjbS2KCEXh00KlRULNlfKqtXQNuNN qKr2weG588HYMg/a22i+Zg+InbVTYHFCB2OXTYrxGZbxG0cXoxgbq6847W91 A/LFdTwLiKhMxra01Ewu7DX6pdIvKNfFItqiAcw64RgGvp0HgbR5sHZDHHQs /tps4faOdmvaTG1tHbTNyzVz3E5uJQKWYu4Ora2tphuIrGO3Rbfwt4obDMKR XTyrqqoiyT6dt3MozwsXLkRdFKHheboq1PkI17KI/RHh9uKY70WuJqcnpKcf EyahHr699mrIeeleOHn8GGSsF9K0bg6cPFlDj6YlZoHRWM+a/jRtD+M4YDCG OGAqAUeElVj8RjFMt0ZHR5u3DhkyBMMaBcv5lhRTuypAbJKGsCIqqAu+0LSR LeZEOzZj1FSo3L8TOvw+E6KgWmEei+wnFqc9zVTTnRf8BcZ+mgEtx8oh+fm/ QMu8mXB0y3ZoDzRcpBDFMCjtn1uhqbnaqn03B7d0IDACDGKORsyxeWWA0CsE S1QS6MngPRQDcrRceiM+WllpH+3F4ubOnWuSm+qoqx1BikkRrNyjASgVYYJR Vg8dGXl47Ty7CVP6Cm/eHrsN7r1qGHz8wHTYldsM5QsmQkVeOkz9JgCdbY0k WKbu9NUy3RSlFSLBNI1woSf3/fffm2e/8HhEyB3xy6M06ZdJ5a2dtI1y0p0B hTQRqJcsWQma6ws1ut6ufrtDfWM7FKFpqRXeaE6B8OyqpRMjH+sLfl8xJOxI Mc+2rRJhW1493Hr7u/DOCwvhiTsmQkOrAXu27YK1730G9VVlFymp3DZ7l+n6 u8BFq1Ko+nh2mTfCurEfBRfJOJlm5QxGOXBKSUmR82xc1BOVUOTzWaNsrtNR +lod14DSkwY0Iogi6GqsrJIPyTL6wI4UEb820lwVGfRkZhVAzIZd8N33q2H2 CiFgzacgINimGTkV5ZWwfuwiGPny8xyC0xlD2EOwsw1S9hBRwxEUhMaBnGVr +eRWB3TYCVlQ1UMD3TANFEyHSbU+8aUvoTYrSXpGrqaPg5dbY0CbiLCNbB8E Cv0yTutmEouAgtw8WD9rP3wzslGaIcsdqm2COanCca4uUa5OKATPD30O9u7Y akJA7YiCRbpsIHsOlbUOun4MCJo1ZIMuwprzKxVjKG4vOHSY6wSapEThoWce Ns+uVLcWVBtQL8TLKK6FjqJCwgVT9hnCguLATYQq2Rx28/lh7/pU2LqgBbav NyBPgFvWKnN5lug6rAlNJUtJKoNjxw3wJSdAuqBdLUTi9KAq6GPZUBvGzz8P j9z3IIy68iZYeM0fIWmOHNqiFADeh1ji2XkMbzKu06ZNM0WSbAflWPgspn7u ePd2w/vH5KfkDImW5Qnm2eVWc0Wq1sbotARNS+YJSFyyBEYNvAMW3TQY9j/y J8jKzIO0uAzYOr8Stn5nQIJP9PZmE3DHiBlzIrvDLX/fDrtWboI5194JsX+7 Ho6XldKq6HZMpspWQvDokC0XBQlxCTD4gofh41uegdWPPQtJw/8B5TmZZzuA QDzPceCts9X0HB+2cODNfZs+rBjUQNi0LziAdQOb1ER2TIE1N+MKzX0kz8Vl AXjk4bfg/TuHwZqhr0LSmKHwQ1wA/EKZYs4e/ebTXJ8/x+wb1w94BN664XlY /tQwOPjas5CxcAkU7M6Aok3p4N+SATnzRNAbcwSyojOgYLUfspeUQNqzaZD2 YiEkvlUO6W+XQ8rEKkiYWAorxiYADYetWZQF21cdN8/SDkmep0xaDXf/biRM eOxtuP/qF+DVPw+B2LWxUC5iVBxeO4thRyroTJcmItcU7zmXNRHNMfdoItJY KDzY0khiiCWKwQCMPJZta8qg8xib9WMLZLEvX3/V6/DOPz+E79/9GOKnvwOl R+LPdMW9t/nIDVcMhzcffQ+WvvkhHJgyHrIP7oGjQsmXiq5xtNFM5HaD4kZz NFIYTr9QU/UBGd7XNbXC9r2JMPHzuSYUaliJeUN9bN7QTXe+D2NfnQIxk6fB mgVHIHbDEbjloqdh+8i3oL01EKL5gxi5uhq0zoEPZjgQ544rCSEPg15T1/Jy RVgeH2eeXaZXTKQTMjML4F8vT4MvJ0+HHzatMHHU4Ryp7t+1KwGeGToFvpo4 HTZFTzeHIntoVKyzy+vmanMHGb+h15eYmgXbdu2D1vpWsy6Njc1Q4Pfjd512 76UwdXFCCDju7dowlbhQyk/4IDpYRzKFXbkouWtY5fzKb1dHw5hpc6GzvV03 zEYpThz4q99XDQVFxchldweYus7pslSNZn/wy/hBHPfnGdBZUWj1a1LZSJIX 6ebN0S4b3BFWSJLHTxk3lV48wwPJQ3PyLG18qReScpbInthvYc6677V+MVnT xL1Cwbc1MKXgGgMFN29hK/JZ0WyKuKhio0x/nau0AFekeIULPZbD/YrLGGjk AttAk8O4WDU8669BbIS6lnRQdOmS7KDsdZOWWf6KowTxG76ArXs3Sioscyp1 Y+Y7Qm10BGxVdsDSx3owIqSAXSKeMFQu91wlLigGWE3q7pzznzvMjoZz7lGd peF8uLpWVnocjC0yb/sr61o55O1bBvlZB4DSrTirpia9VKdarTVkaL2P18pZ mme7dDT8i6zhc79Uz4XubaBlgzQUT8K8ahXdDrmfbENtYLHhKyiGQ0vfgrrS w9Z6IqoOoslYuFg9si9N1KJe5u7PUO3rpirwV5ZmIma41+Vghpv0c1gTotfF mYmdlQedbVKaiGxmRgEkL3odmsozXLHdsmUL1C0rxyy5pVGwTcorDegQlqQL E0k6gcdTV/04rn7KuCKX9RXSSgcrwDjms3GVlJQFyfNfg1MVh5Vd7OWqI6UN E52kscWapJ+PsxUa5ThOzzD0LMVy3Mhdqa5xz8DGYqRtGaiQPieXwSQE9h3h zW08YOMyOTUXYt4fCR0VKaoNvGtJCjJpcak11nqJ1Z7tkIFcC3PgNGakJDmt vpoWIY653XZwjAcbe3PaNeT43xrLYtjGD2Vtk99IMlU8obHnQCYsGT8aOo4l QG/GgVu4HpwaL9o+qSWoo4W5KC8XvaTZsEaenT4SV5pnMB4o00KzuLjdVUhQ Wp4SUHg2QAPDU3itBwS5JjzITCIG91/4EHw94GpYPudbmuNqTSCLOwKLR40W YlypdfWcVo9E+EhisbDIchO0y9Vze7JFF9kXq/VqSHtyn/nnXbPPLegFbuw7 xhTJm42JXgpjr3wYPrntEXjouuWQuHWjpOGY5U9uHSL18rh5MP2VqdBYlhOp QcOZW6Dg1ZwfMa7CnO0azBGHDgrrfJepU7+CirxKKC0uprw21w9XMK4JOAdI 3EoNZLdTOP2kukaiYfcCuKDccOFz8MF9b8DQfx2HuK8mQtG+2IGOh/HjPhrW z3SOY6Jj4P3J38LEZ2dA3uLZ5hROr/iB/HKcqERzZ505/iCecj68zhPAX/eh M3Oi0nqeax4SOG7x+7hjeRFrDop7H7fExmXDJ547u+FXb8MbQz+FpROnwA+z P4CMxINgZBRBW0oy1FVWa8cx3LHtbQ7M3HHxv+GTvw2HdcNGwIrRz8HwF55z djYK8RLW5lnzIgYw6EhVcQOAh9MAlJXWws6lu6Au5YANTrLOJJrcOjvg5NaZ vBzuB/7D3h+1OR85VXjTgsNQV98EBw6lw9INW4RmKDd/rW0QHxHod6AezvFh StM2byIUW/tQHt6bl1sAP6xOgemvFsIjD4yAYS8Mg+EvDYOF770GSfNXQO3W XVBTWU0uPI7TBxYKXDtarQ2tyITgQWIZMoUqNT0X6mqrLUVOTnZQiXqAGWmC iWKPSlGUpcPzMQ2KbDJxd4vlrV9XQnOn/E6DXv4KA6oQxnphzkRVA6Ic8bt+ wAL/P9O8lpWZA2tm7oHF447DV0vi4HXF/s4du2DIa5/BvJmzobgwDxqbDKgU nw5MzaflwKn8fLN4GoPw+4S/0Sy9KQpDdMoXD+RV11MuZSjaR4HsHpYDWZoN gz6HQHaQBtlHLBSDloMv/Tu4uAWajOAmYjgQUVgvk1BG+XHozMjDobAzVfFU aSl++bB5frx5bdaKOBgpwONqjbsz9gboDv5qEfRgEXUibMgugObKKitfFz+v xHLgzlb9X5e5JUDtatYOLN/+k0SUgOWOnKP/40GzkS7RoPoUY+3wmlMmgrSB McYOOP7a1iKqcOwoBBIO4br6fkFxFrHKgjRY+qEfZq+Ks0YiuDXobrWVrReU CAlvaZEN05qQYi7XJ88GlWznQeno9XeIoc6zCToeQcEgzchjGRJN7u0otPgu KOTsXaZBi/aAw7lgObsMOHGqXTa2c0hf1gYPwRWO9RQdg5b8PNusYBzwKfH5 2LIhabTyhTTuWpoPSyf5YeZ/4mCEQxr7sqa1K+qgdakXXbxEfDpRm6RkQpso Gx2DdjbvPWFvrrUdAjW5S2hIu3pyv+iSruFEW07OI6lXit4t4wNy6kvK2mZo aj2lamJfZ0Rc8r++4wJ+lKBq0b/yRegQvRjGDLoVlt54C6TNnw0FAsWNU9Ng +Rc1MCVmoxNF536/OgsY7OaRkCdUc2OrARn7MqHwuyXBHFYrZL8jPPGOFiu8 dgnr/uTowIibbk9fDYbkD3FXlJIGj6prhb5y8MfLSut2aXZnro+pKuN9dfDi E2Ng0l3DYN3zw2DHuI9g6rKNMNLh4p1h9bZghyYTm5l1THSh4+pM/m+6lOUB JZ/B3uwW7t3o4JGnR/nebx4w/VyDNG03WZBTCjU5omMYhjYT755J7wFNTU1w 182jYfRzo4V38hKMfvkl2L1rJwuvwhqhpAHOA9/nWNYhyqHndJHfrQ6dhmeE DHdaenNkomweIC3bEOBf7gAJgznaADQ1zgf1tXKIWZdcJ3eYrlF7Uq3RUXj+ 1Qkw67NpkLQ/9lwHCTdgyACgvar99rjp3umCQGf0cqdGOw1yBya4xV13BhFO xXdMwr5CA9FtmnY2bMNvMo7dvDgFGoXy7TCMs5SGdYiGhRweutgWySxbMx9m L1op04UOMxq0e1J6pJu+aM58mDXg15C6ZqNlbbys510OJrF0Ao87bAq8s/Ry TvpQvYGBbSNmh+/W8LsJjeDgoppdc36A5nZzjeZZFtdKDIk5usYhpN6Mwxzr YhfCkp1rnR6J+c1l+xZa/r1gzgIYcek9sPD2B2HnY3+FA6tXhGB5j0OVY/EU IHD/LDwc+eVfanA0t2L2GmShrFlt7QlI2bCOTeDQTx4gcYhiiCX9sBB27Nlg bYStM8lS9Z+vNuRINB059I5wDAFncleIv5WCdl5mNuSmpZvPZMclQU6cnH+W uzcLipJ8kL0pC7Kj42Hf3Di4fuDTMPbO4bDgaVyD8grsfPsps273s35u3/DI 7oV4Q8zXX9q3J7QnbW50NEVQTkNIDnABlvczUm7l4jxtx0zYn7wlDGD7QG5O AWwY/S7smxeAhG0GJO0zICFO/E0xzP1p8o4akFMq/KEqmgrUxwx7Ck6I8OdE KyQX1cDLs5bCv9//Bu66fTiMevJD+MeNL8OR996EssxE26bPFLBd+F+Dyj2+ X6tbEVSWwbnBrsBCaTnHahxo9rOALIOMXfPBn71fSm0XG4/IGKektFw1Fv4f zERwRUwFkhaprT0OD73yJYwY+im8OvgVaDuWSqjxaOxCdo3EM3zUyHmhNUMk 5MEJgXo5ObsrOM/2gFMQJ18RO+ze6DFwNH+f5c9xSjoV3ZdrIUSOH1jx4IB9 O3z+yVyo+yFdOIOlhF7ozD0tekEWIzWA0SIOHqdd7AGY2kdZCINuNxPzrL83 ZJSP8RcUQcKSMdBQmuzZlfspFBzktFk3g1m+7Mx8uP+v46ClthFHOAg17uYQ atzNkZrGWi1CSSuchiFw08E10GpHnftL3WfkjR/B8f2bWct07TpHWmBHeWNK 2cLi4jJIjBkDjcfStLkDWXBPz1FZFzVAwxKYX5h0z2jIWL0BjIZWc/DoAUd/ xq4fJrYhrwqxY3uBoyZdKamsQ7XQ3lKp2DRse4vq52ZsjFkHNasWmKaXT2nX RFeURPb5SiA55g1oqzzSlX4IepnOeE9uoZEjYu+OjnbYj4uVaxKAa0aK33ST r2xIRtAm++bZtW4wdqnhC3fXgcHBcwDvZKEnZOWXQE3dCTieWWzuFeTgPrj5 i/t2mBGQm1sEyQtHwanSJOvFU14DvFEaWjpFQCxgIq5ExGOd1RXg1J14RiCG vinF+omTpbfA8FRMcHlCFzOaK/c3WFmjXp6NQgMxOiTikoRp3XcUOgp9rpPi 3Adiupu5szt+8QLs++plKP9uuDm3vy9D3i27oNNbXSGPubSGiiDyXP9Sh+Ke kkK+R9CS2J1NSgRhHSmLQwrFYT4iOPIFq+qgPdDoQN65RZWOe3JkKGfd2GJA DQ4CFJ+CDn+BbRDALt9gH57cumUHjLz2WVj2xDCIf20IVCQf4Dkdt1Ha3hYv wQwtZTHNRZAthqsW9kBYIcM7uPpLFpq7o9dpiFubxX1UZW1zozdtsiFcUjO0 5jlwSuCK2V7fSWgr9MtR1TOdPcn6i4ji5jyYqtyyKAF2Lg3APTd/AsMffA9i xkyEA9PGQ0nsf6ClqipkrgeP3Qhmyibuz8TpZPUmfQ4p9fXzHNcYpC6dn+NJ ftf1DjwxLKWkUsXsauvxvo6a6wSkryrWL4KZcpyWn18JJ/Py+jpqo7YMo604 5r7RCNtFSJQjVKO/Saar8JYFizfBlIkzYPemlVBYg1uFoKhXmiOTTU3NbiFa cG2eiYLN7iLZA7jCv7rEpgcIvnPdIQ0j8XWmBt4bNPDSkMSpNUF4df3PKRi9 LM5omiA78NxfbsBxETQa2YXQrKywXHviMzMBfOp4Xq7PfG7XMh9s/KYJdsYH d+UMai5rqgAfM8M6fhWTCKu3xYFxuA42vDLG5O9iRd6lo/DV4pVCXbSXl2nD Vj6rnhw2qciBll9wyv1VPXn2T6CmA57PvjL21SjI9T2SB/0Uq4aaMPsYeGGl AS1C7qvWL4J/DPgjzLz6Jth297VQ7vdBfm4eHI7Lhp0x9bBtRTONoHUYcrkE xytKdTgv3wOTkoWo+6uFHc/OxyFR56bUnCSFgo3NogOs2g7HD+0PUdPOFQ0O 7HV7jJLEI/aUL7xJAzzltzFxbeTVMclyzQ/8uKx+T5i1YA+M/MNQWP7kMEgY NQRivwtAdoXQQ22mRunDmlnnVdj1haicDyUUjUBeKTRVVgUXFutw4Ppl954k OFlfG+LhIZwUHnEP2hJtKoC0NPelb2agUmZrkLJzGPIbpcdt3VMD6Nk/CtDu EB+XAq8+9B4seWsixE17F0qPJABH0c0I0DCLTgzt2lOALFR+s2lp/dCQlXVe mFWk8VvuwtFMXO48K2h104NuYYBSVutiVXNMeDYXFmmnRtG7ih3cMcnobo4m zpy/DiYL47Vt3TJTKnpqkNMu/3CN32k9Q16pASdEz0/fnAL+6Pnhjso8wRgm bUuYhb6w0HIuuMd7O4PdHhfbezH+pvCiaT1eOulgQhbMePV1ERZlhgyg6bSx M+zqqlOWlVWLDin7h9m3HLmIfzr6Fp9m6YEMd0rvUNd4qOucesNZycoqAaO+ zBkO2/RL/KEsWDpWBPcVWZbz3uWiBB0OHzgUkYWDw9HR8EdezJ0a/s5SdXKx UCSD/gKh7uuLzDM5otsLDiVnw7J3xojrJW4pDucbvkKdWXpbElcC/btiK9Ji C02RgE7H2Wms5dzsLwF9OKkS2mul43IFe25vXAYsHjEWoj8aanuuv4YZYnQi qz11UWoobpB72DlC44sHZrBEG/9Zw1FvJj/8UDVjo49yoG5D9GKIi5kf3Mk1 dEj75ZGTYN7ocWDUFkK0A/Ygox4Vt09qpPFLnsyIUuLiHJfmk9e8VB5ZMswU PnDBX2H2zY/Ajsfvh+zFsy3j6TXVfNXaBNi0eCW0V/gXOUDFM/JQuDF3cMhN +GDGIeULujEO3eypnUOXocbuphfw5J9GwL7bX4S4d1+HzE+fUUMZ4SyTi4C1 GxJgymtfC2Eug8Ws7cgrpwEGbl8d3PKa3a3wJVnGPqTDWHERTCgw7z54JuOP 7EwfrIjOg7jrX4DlW9bAlq8+heSdm8HI8kGLQJO2mfda0SYIbt4WD9NGfgGN 1UFOuQ9MnHLdrzglY8ut4mAXkPEv7jcSnAnsMl4emlmQzBbA1u8NmLl+L+wd OgaONtRCYloW5KjpZzjJtMGM9fLNWO8sD+ZFFSgdsu2Hg/Dh2BXQ2VRv7UTM PdTTu2aeG74/O7qRTsJYIMA87GAEyznHv7Tn9g+4S8JJ3IW5HaaPngHV6XGW ksLdmZvNhf+5cLKyOpzlOBTETZu9HiaNj4GO1oB6OaTdhpzGRIK6ugYBMo23 ewtdd2WDeDTEmVV/HfMeRRl5om1PKWT6KK4xvgwg1wmJyDX3Kd0ypY5JtjZN j0B/HbMV3p+yDALHa5cwxqnndwmGNKi4LyQOTK1cufJmbznUZ5glyxyfUEC2 LO2AvBMyPUQTPYpE/NCKnWB/PEbAEQwQN3Xq8kJRryz1wjkLYfHXs8wl81nR X5u4cbDIaSSwuMmLsoPlGGm6wRss3QAuDw2wYASMdqDAXzDPk56UbF7JO27C RXOWcSuzNhSfjDzIST2sTT728oKnj+0ywoBeVGpSCtwx6DmY9vBo2DZ6NKR/ OBSqy0thqUO94Fm/riCyewXXeePjHFiT6XMe0lF98/OKIGfLJrVzMoD1yk5O +e3Za8yQP2vFOigT8Z/MW/b3VFLJccmwPSYN5r3RCLGxBhw+Wm/uSD7hlcmw 9rPJsHfRJ9CYlI0pBMKDKxtKn3MfwoEH9yH+wPDQ9HbnSDgepIA4EzyAU8x0 YT7I+TgqOuApTPXn+nGRLk+y0wx8eRYJKdkGZIu+2dhh7pBMeRq8DfcvyMzO lrnJKnELduH0dGiorCabxJUQgcRdDwdInLvfhmEMTreUoXNbXbvjfIZSATpa bOD/HFsF8FNYI7jGrQPzi0TwWQ8rhUcdM/BqKPf5LPmRgwYFcHBLlvn89nVC UMVzxQH7hIPCamHsEKJDhxEi7rNQPanludlWEPE37JLPck0YEPW3Q+QSXHOw whm5I5/ciVdQVHtBlnBtVn+zDj645lFY99BjsPXJh2DT14dh2XtNsBX33W7k L57rxqFCg2CquPRcNAg6t71311BxD+dXHkyR0nSukZJ1C0JHh24nSl1iyGmz dFG9u8GKgpsvGQ6THn0LYseMhYTZk6HueC0mmekVt0eFLLWZnVjIYiBA0Rv3 9vluWQScDaQomxOEH9MUpKZeEQY/zp0lg9jYfWGOE55XyYVU5nevETTdO8y8 DPyuXYdgzCtTYfmUaZC0ealtm6xQGvbUpk90zk7snJl5cEpAsNChwPikQQ2a ps/Als9GWf4Uf8OaYFQXhzuDqZ+54mofp8APWeW6ujqIfXU87F6/Sue9/9j3 YH23bht89PY0aBfhiu7t584VLlx6/Dg3oq4BWlIzoELoSXoHDm79TWJAUHIH Qk2ddZ98YPe7GhsbL3EBkwvRZa5g6rMMqBywViPfmQHF2wtEeNJgvQmM3+9C hpTsdhGgTX8nGjoa66WTolckzF7huOiWvQVQsO57S/q4j9Hzv4FM7qNEftgg B166MC+4O5vnTsbdraUfaZkdYOTItYvBxWjB2dyk9X44cAhmTojBECVkcxsd mnjw1aJUBXrjMXctCBvuf4WBDb29DM8uVP3WBZsrFU2nwHvLQXfb2ursHBwi ybNmAf0QdwhmfRgN7QKRs+3Imd+WM04pOCFEuBOlOA06QzpDM8Cbv6vtzc4C zCgbD+3tneDHHaVrqmk8Zs8BxUZDvZaNFeo+HkBQ8p9bb86GS6/izo9Xmkgg xVcuUanBBapCU/nl+zYp67VHNMbsj4QRbW700Hj2a9RAvJt2d+fMsVjLkYE4 x5ufWzT8RDB+mvytbO8mISDx8fD15IUmP/s1Xaa7hp6q5zma2nUxCZfGlPgG qKTYMnJPgZHnty1Dx9p9OmWJWeMDjpoEM20etQsmLHAv2gkTJpymKujiB//Z tVkizJejGEX5rBUiYF9CPHw2RYpDnLrG3U/dC2cj7RVEY0V71Qgtw3dXcXPW B3vUEntevgjGjBN1EHw7p8Oi9ODVnyqrf5BVlRxD52btIdW3G45wUlR/09Q9 uB+5AS35DRBoavqRXl2kOblwztIYmDZrKaTPnknccMeMuOHq38ENV/VuO/Vw H8xcQBRp6cPgN0I9oF5pHixLP1+wm9pTAO/HSPGGgQ/Ap7cOgS3PDIHDox40 J7oRT9xDIki4onfwFIqgt79+t1Wp4BA1kx+LKNkuPMbefj98c9nvIH42f6Ni f3NVUeaOneY9uCduWlKq+T0jsQC2LJZ5q8+faIDlXxuwcqUBqdmNMGPaEpj0 zAcQK7BOnT4Kmpoa45WYcA2KHyVEqstLJ763Tf17+Hz36ZuD5kURmm6mW147 w7w27tp/wdonh8D2Z0fBB7+bC6u+LIYpjwkd98Zx+Ooz+Wq4uJx2yKuT9Iqa DPMFPcDfVFEDw974ChZ9OQMOpWRCk+gHrbnZB9XPXCe7cd7D1CEjR47Uemxy hkqoL44H9gjuUAWNu/DVMkVb7VicBruWl5lX3nn8PVj7zgTYN28GxJdUweFy Awqr2iG74CjsHP45A8xlPnKU5ajh5hYFleLntDSMTeOURHFPhlS7w+iMHz/e Gm955L/jrIe5Hbg5/7BT/jhz7CL4ZuqXkHpgG8s2BF0UCo/M1wYVN0B7fr7S +pGW24LJO/HXUV0+IPCQhrLSSlRT5/bQwTMlg53NwTcTgHwnEOagjPQjiOMB dZm6i1KASi/8VP1KKKslXg9w+ly5UmVoz1u7AjB/pVUXRRUCzKMN0FGQr7yJ SIt1dA+DlSB/igf9D1j0uvFyUTdR2WS4EpcdgkCLnFA5kIFQgUm4jGwEYZ+6 FR/FslHjq8L59GTKqtOS/NBcdYRco1ItrQKhp9Ma1ESFAoZTx+oFDAWwW1HS WZEgHLpNyh5R17hfTTUqXp0PDY11rjWyumBPZ0XNfQOOIkyZRZAVd3Crus3N ZitlqRIYF+hl5yFNVckhyc0tAKNF7gxyTtCg6FfA0kM7dxdC/BfyDWubHDaL ahcyWT24vSGXqgc1deMz+Jp3HhVnndq0XuhuCTzEXMugw4o5oVOa17FjMdUN FQUtjg31X3HTgyIwTklBPNfeM0IbexOritNrZCZPvSfpYo203aepCoepISYT 8C1a53VVlfWO5iIXgzuB6o17gxwqQu0xei/ruc4oITsu29R+eHa+pgJUuTVd iDWfPg7aTXYoFODUbW9A4R4s9Xx039r2ypdNJsrKYA2i3JKX6iXhlzrKR9m4 U1u+nWNVBQLHv19EJx1y67J4TTM4fXGJv5X7CtkyIdSd5TwTDsXCr6tcLl/4 fSA8bSL5tVYehG42oMv5hE41V7Uh8LOzS+B4aaF5ttdDaRD7coKamsglpZAJ wC0OQXctfn94akDurGDtXslF7eYui1Lu/Q+Obu4iVXIRt7VlKOUqEd6bPfqM kmIKj3aGIUFy8aR21wiSXx5txYYnHnLgU+2hEDQ2Cq7bNYTDsRFy7Yu1bQBv gNvUNe5qrHOQ1DWrRNN6qSj3J27VkFwdnpaWtVHDdnZQKb3DvZTvw1C4Upmp deoh5psm8XMTuSw8BSpTEaBbRHujhuriMHSi3JQDfu8gib/eoCH5bRhiKu2s tUaVI8pXmJHdmx+emEqvRw3Th4D6Rw3hOWFoJbkZobXgkCNKa0C5YZwVnvaR E8ItbrmhIVS4bp8RnqKRk6m1q8p+r6H6eRhNNUSSvIGBylyD32qofhZeaz0n Cd+kwfU3GqqTPJqKNMpLkuTNGlCv0ZD8qAuNgiTlduJWP+eqm7QM6j1KTrzv oVEY7/IlA5ZO4u10NaNK2nS8usbbqZuaBcH3CRwtyd6mN6C/1FAeG55WGSMJ 6ybaX6Wh+kYYWmWcJHmnBliyk1xVjwpDVN+TJP+sQfUXGpLDw5PTCZLqX/TG T7d77MthaJWPJdXBGkTJC+NK9YXwtMqnkurdGvt3mYbqs+FplamS6l81uF6q ofrvMJpKvg1TJZ9DVPUgjap+OjxJ/UoSvleDK0VZyClRfcKlqfhQ9NeS5N81 WuUiRpIMwKNhaJV5kuR9GkR12wY9GJ5WkcPPyriGqOoLNITvC0NS5YQnK2zn iA7QkPxbeJIqh6fgIQ2ousXqd4WhUb6TJB/WgHqehuSdYYipdBCtzA8nSQN2 XO/dGp5GkXkKJSghavocDeGbwmgnyZW1HShH9GwNyevCa6ctkurjGjV9lobq teFplO2SqnNVHFKllStcU/82jKaSeT21S3xwvywF6hkaqleHp1Fk5Kr0j13+ acybK/+rwtAoMkdtLX3joNIsZq5QdZO6nOwfkiT/pUG0n4bkJeFJqnyRlPWW Coea7qMhfHEYkirf5Kg8SzuiurlaA8OTVDnkqWya3fbR2CVX0+eFJ6k5kupQ Da49NFSdrxbUNVWBJPmcHlTdRIQzw2stmWmx3jvIcY3UUD3No6lIUo9Kki9q lEqEhqRzYymXppIvaVLuuh1UXTIvytFULmF6laQ6TD3jMH/23Jx3dC7z+Oql O30trvFWVHRdKAy5Ga2KHHqYT2MPwY9TEcgdgKw3aJEOwY9M0IN5Mux/3//3 /f/9d/jJ/wHvIf5D\ \>"]] }, Open ]], Cell[CellGroupData[{ Cell[BoxData[{ RowBox[{ RowBox[{ RowBox[{"tc", "=", RowBox[{"Table", "[", RowBox[{ RowBox[{"{", RowBox[{ RowBox[{"x", "[", RowBox[{"[", "i", "]"}], "]"}], ",", RowBox[{"y", "[", RowBox[{"[", "i", "]"}], "]"}], ",", RowBox[{"z", "[", RowBox[{"[", "i", "]"}], "]"}]}], "}"}], ",", RowBox[{"{", RowBox[{"i", ",", "1", ",", "bc"}], "}"}]}], "]"}]}], ";"}], " ", RowBox[{"(*", " ", RowBox[{"core", " ", "clouds"}], " ", "*)"}]}], "\[IndentingNewLine]", RowBox[{ RowBox[{ RowBox[{"twc", "=", RowBox[{"Table", "[", RowBox[{ RowBox[{"{", RowBox[{ RowBox[{"wxc", "[", RowBox[{"[", "i", "]"}], "]"}], ",", RowBox[{"wyc", "[", RowBox[{"[", "i", "]"}], "]"}], ",", RowBox[{"wzc", "[", RowBox[{"[", "i", "]"}], "]"}]}], "}"}], ",", RowBox[{"{", RowBox[{"i", ",", "1", ",", "cw"}], "}"}]}], "]"}]}], ";"}], " ", RowBox[{"(*", " ", RowBox[{"Bond", " ", "c\[ODoubleDot]ouds", " ", "between", " ", "cores"}], " ", "*)"}]}], "\[IndentingNewLine]", RowBox[{ RowBox[{ RowBox[{"twh", "=", RowBox[{"Table", "[", RowBox[{ RowBox[{"{", RowBox[{ RowBox[{"wxh", "[", RowBox[{"[", "i", "]"}], "]"}], ",", RowBox[{"wyh", "[", RowBox[{"[", "i", "]"}], "]"}], ",", RowBox[{"wzh", "[", RowBox[{"[", "i", "]"}], "]"}]}], "}"}], ",", RowBox[{"{", RowBox[{"i", ",", "1", ",", "bh"}], "}"}]}], "]"}]}], ";"}], " ", RowBox[{"(*", " ", RowBox[{"H", "-", RowBox[{"bonding", " ", "clouds"}]}], " ", "*)"}], " "}], "\[IndentingNewLine]", RowBox[{ RowBox[{"tw", "=", RowBox[{"Join", "[", RowBox[{"tc", ",", "twc", ",", "twh"}], "]"}]}], ";"}], "\[IndentingNewLine]", RowBox[{"bt", "=", RowBox[{"Length", "[", "tw", "]"}]}], "\[IndentingNewLine]", RowBox[{"MatrixForm", "[", "tw", "]"}], "\[IndentingNewLine]", RowBox[{ RowBox[{"(*", " ", RowBox[{"coordinates", " ", "of", " ", "clouds"}], " ", "*)"}]}]}], "Input", CellChangeTimes->{{3.568895397419882*^9, 3.5688955157148895`*^9}, { 3.568895549629349*^9, 3.5688955855718126`*^9}, {3.568895617317868*^9, 3.568895845234268*^9}, {3.5688960797194805`*^9, 3.5688961015127187`*^9}, { 3.568896219074525*^9, 3.5688962276233397`*^9}, {3.568896262910602*^9, 3.5688962903198504`*^9}, 3.5688964250728865`*^9, 3.568896456912543*^9, { 3.5688981540863237`*^9, 3.5688981869399815`*^9}, {3.5689021233572955`*^9, 3.5689021341525145`*^9}, {3.5689111169043026`*^9, 3.5689111218495116`*^9}, {3.568911235261711*^9, 3.568911242437723*^9}, 3.5689112948850155`*^9, {3.5689116510180407`*^9, 3.568911800419503*^9}, { 3.568911871820829*^9, 3.5689119012892804`*^9}, {3.5689119993042526`*^9, 3.5689120006770554`*^9}, {3.568912144306507*^9, 3.568912165085744*^9}, { 3.5689528310632005`*^9, 3.5689528569592457`*^9}, {3.5689534065794115`*^9, 3.5689534297298517`*^9}, {3.568954496214126*^9, 3.5689545054337425`*^9}, 3.5689569073699613`*^9, {3.56913308739126*^9, 3.5691332012870607`*^9}, { 3.569135511323518*^9, 3.5691355127119203`*^9}, {3.569136204167535*^9, 3.569136290747687*^9}, {3.5691598050571885`*^9, 3.569159843199256*^9}, { 3.5692215417755947`*^9, 3.569221597186892*^9}, {3.5692216819730406`*^9, 3.5692217090546885`*^9}, {3.5692217693019943`*^9, 3.5692218260704937`*^9}, {3.5692219780303607`*^9, 3.569221989433981*^9}, { 3.569222055468897*^9, 3.5692220728005276`*^9}, {3.5693401536421804`*^9, 3.5693401889450426`*^9}, 3.5693411655535583`*^9, {3.569341634303181*^9, 3.569341638733589*^9}, {3.5704549882757435`*^9, 3.5704550487414494`*^9}, { 3.570455928146194*^9, 3.5704559415310173`*^9}, {3.5708553973857827`*^9, 3.5708554057785974`*^9}}], Cell[BoxData["72"], "Output", CellChangeTimes->{3.5718259471558695`*^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`"}]} }, 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.5718259471558695`*^9}] }, Open ]], Cell[BoxData[ RowBox[{ RowBox[{"(*", " ", RowBox[{"cloud", "-", RowBox[{"cloud", " ", "distances"}]}], " ", "*)"}], "\[IndentingNewLine]", RowBox[{ RowBox[{ RowBox[{"dw", "=", RowBox[{"Table", "[", RowBox[{ RowBox[{"Sqrt", "[", RowBox[{ RowBox[{ RowBox[{"(", RowBox[{ RowBox[{"tw", "[", RowBox[{"[", RowBox[{"i", ",", "1"}], "]"}], "]"}], "-", RowBox[{"tw", "[", RowBox[{"[", RowBox[{"j", ",", "1"}], "]"}], "]"}]}], ")"}], "^", "2"}], "+", RowBox[{ RowBox[{"(", RowBox[{ RowBox[{"tw", "[", RowBox[{"[", RowBox[{"i", ",", "2"}], "]"}], "]"}], "-", RowBox[{"tw", "[", RowBox[{"[", RowBox[{"j", ",", "2"}], "]"}], "]"}]}], ")"}], "^", "2"}], "+", RowBox[{ RowBox[{"(", RowBox[{ RowBox[{"tw", "[", RowBox[{"[", RowBox[{"i", ",", "3"}], "]"}], "]"}], "-", RowBox[{"tw", "[", RowBox[{"[", RowBox[{"j", ",", "3"}], "]"}], "]"}]}], ")"}], "^", "2"}]}], "]"}], ",", RowBox[{"{", RowBox[{"i", ",", "1", ",", "bt"}], "}"}], ",", RowBox[{"{", RowBox[{"j", ",", "1", ",", "bt"}], "}"}]}], "]"}]}], ";"}], "\[IndentingNewLine]", RowBox[{"(*", RowBox[{"MatrixForm", "[", "dw", "]"}], "*)"}]}]}]], "Input", CellChangeTimes->{{3.5688982251756487`*^9, 3.5688986440675845`*^9}, { 3.5688986873108606`*^9, 3.56889871560931*^9}, {3.5688987970414534`*^9, 3.5688988526711507`*^9}, {3.568898887147211*^9, 3.568898888644814*^9}, { 3.5688989206248703`*^9, 3.568899041759083*^9}, {3.5688990876855636`*^9, 3.568899258349863*^9}, 3.568899300267137*^9, {3.568899351326027*^9, 3.5688993831032825`*^9}, {3.5688994370481772`*^9, 3.568899468217032*^9}, { 3.5688995813016305`*^9, 3.5688997165538683`*^9}, {3.5688998495129013`*^9, 3.568899932364647*^9}, {3.568899967667509*^9, 3.568900024529609*^9}, { 3.5689000794261055`*^9, 3.568900136257005*^9}, {3.5689001767858763`*^9, 3.56890020149632*^9}, {3.568902068726*^9, 3.568902074139209*^9}, 3.56890216040736*^9, 3.568902344113283*^9, {3.5689024237982235`*^9, 3.56890243907065*^9}, 3.5689025770684924`*^9, 3.568910195129884*^9, 3.568910620995032*^9, {3.568912393532545*^9, 3.5689124022841606`*^9}, { 3.5691332074958715`*^9, 3.5691332081666727`*^9}, {3.5691352237838125`*^9, 3.5691352313342257`*^9}, {3.5691489965881166`*^9, 3.5691490103317413`*^9}, {3.5691490440122004`*^9, 3.5691491351943607`*^9}, {3.569149201666077*^9, 3.5691492026956787`*^9}, { 3.5691494320784817`*^9, 3.5691494680989447`*^9}, {3.569152288984131*^9, 3.5691522953957424`*^9}, {3.5691595058486633`*^9, 3.569159537672719*^9}, 3.569237911685565*^9, 3.5693411655535583`*^9, 3.5693418217687106`*^9, { 3.5703410302061863`*^9, 3.570341063621445*^9}}], Cell[BoxData[ RowBox[{ RowBox[{"(*", " ", RowBox[{"nucleus", "-", RowBox[{"nucleus", " ", "distances"}]}], " ", "*)"}], "\[IndentingNewLine]", RowBox[{"(*", RowBox[{"MatrixForm", "[", "dc", "]"}], " ", "*)"}], " "}]], "Input", CellChangeTimes->{{3.5688982251756487`*^9, 3.5688986440675845`*^9}, { 3.5688986873108606`*^9, 3.56889871560931*^9}, {3.5688987970414534`*^9, 3.5688988526711507`*^9}, {3.568898887147211*^9, 3.568898888644814*^9}, { 3.5688989206248703`*^9, 3.568899041759083*^9}, {3.5688990876855636`*^9, 3.568899258349863*^9}, 3.568899300267137*^9, {3.568899351326027*^9, 3.5688993831032825`*^9}, {3.5688994370481772`*^9, 3.568899468217032*^9}, { 3.5688995813016305`*^9, 3.5688997165538683`*^9}, {3.5688998495129013`*^9, 3.568899932364647*^9}, {3.568899967667509*^9, 3.568900024529609*^9}, { 3.5689000794261055`*^9, 3.568900136257005*^9}, {3.5689001767858763`*^9, 3.56890020149632*^9}, {3.568902068726*^9, 3.568902074139209*^9}, 3.56890216040736*^9, 3.568902344113283*^9, {3.5689024237982235`*^9, 3.56890243907065*^9}, 3.5689025770684924`*^9, 3.568910195129884*^9, 3.568910620995032*^9, {3.568912393532545*^9, 3.5689124022841606`*^9}, { 3.5691332074958715`*^9, 3.5691332081666727`*^9}, {3.5691352237838125`*^9, 3.5691352313342257`*^9}, {3.5691489965881166`*^9, 3.5691490103317413`*^9}, {3.5691490440122004`*^9, 3.5691491273631463`*^9}, {3.5691523435842266`*^9, 3.56915234531583*^9}, { 3.5691524837816734`*^9, 3.569152599175076*^9}, {3.569159470889002*^9, 3.569159489874235*^9}, {3.569160442895509*^9, 3.5691604484335184`*^9}, 3.569237923385586*^9, 3.569341165569158*^9, 3.5693418217843103`*^9, { 3.570341048161818*^9, 3.570341058286236*^9}, {3.57034131095988*^9, 3.570341315156287*^9}, 3.5703415891395683`*^9, 3.570341976207448*^9}], Cell[CellGroupData[{ Cell[BoxData[{ RowBox[{ RowBox[{"tv1", "=", RowBox[{"Table", "[", RowBox[{ RowBox[{"{", RowBox[{ RowBox[{"x", "[", RowBox[{"[", "i", "]"}], "]"}], ",", RowBox[{"y", "[", RowBox[{"[", "i", "]"}], "]"}], ",", RowBox[{"z", "[", RowBox[{"[", "i", "]"}], "]"}]}], "}"}], ",", RowBox[{"{", RowBox[{"i", ",", "1", ",", "bc"}], "}"}]}], "]"}]}], ";"}], "\[IndentingNewLine]", RowBox[{ RowBox[{"tv2", "=", RowBox[{"Table", "[", RowBox[{ RowBox[{"{", RowBox[{"0", ",", "0", ",", "0"}], "}"}], ",", RowBox[{"{", RowBox[{"i", ",", "1", ",", "cw"}], "}"}]}], "]"}]}], ";"}], "\[IndentingNewLine]", RowBox[{ RowBox[{"tv3", "=", " ", RowBox[{"Table", "[", RowBox[{ RowBox[{"{", RowBox[{ RowBox[{"x", "[", RowBox[{"[", "i", "]"}], "]"}], ",", RowBox[{"y", "[", RowBox[{"[", "i", "]"}], "]"}], ",", RowBox[{"z", "[", RowBox[{"[", "i", "]"}], "]"}]}], "}"}], ",", RowBox[{"{", RowBox[{"i", ",", RowBox[{"bc", "+", "1"}], ",", "n"}], "}"}]}], "]"}]}], ";"}], "\[IndentingNewLine]", RowBox[{ RowBox[{"tv", " ", "=", " ", RowBox[{"Join", "[", RowBox[{"tv1", ",", "tv2", ",", "tv3"}], "]"}]}], ";"}], "\[IndentingNewLine]", RowBox[{"MatrixForm", "[", "tv", "]"}]}], "Input", CellChangeTimes->{{3.5688982251756487`*^9, 3.5688986440675845`*^9}, { 3.5688986873108606`*^9, 3.56889871560931*^9}, {3.5688987970414534`*^9, 3.5688988526711507`*^9}, {3.568898887147211*^9, 3.568898888644814*^9}, { 3.5688989206248703`*^9, 3.568899041759083*^9}, {3.5688990876855636`*^9, 3.568899258349863*^9}, 3.568899300267137*^9, {3.568899351326027*^9, 3.5688993831032825`*^9}, {3.5688994370481772`*^9, 3.568899468217032*^9}, { 3.5688995813016305`*^9, 3.5688997165538683`*^9}, {3.5688998495129013`*^9, 3.568899932364647*^9}, {3.568899967667509*^9, 3.568900024529609*^9}, { 3.5689000794261055`*^9, 3.568900136257005*^9}, {3.5689001767858763`*^9, 3.56890020149632*^9}, {3.568902068726*^9, 3.568902074139209*^9}, 3.56890216040736*^9, 3.568902344113283*^9, {3.5689024237982235`*^9, 3.56890243907065*^9}, 3.5689025770684924`*^9, 3.568910195129884*^9, 3.568910620995032*^9, {3.568912393532545*^9, 3.5689124022841606`*^9}, { 3.5691332074958715`*^9, 3.5691332081666727`*^9}, {3.5691352237838125`*^9, 3.5691352313342257`*^9}, {3.5691489965881166`*^9, 3.5691490103317413`*^9}, {3.5691490440122004`*^9, 3.5691491273631463`*^9}, {3.5691523435842266`*^9, 3.56915234531583*^9}, { 3.5691524837816734`*^9, 3.5691526041202846`*^9}, {3.5691595921324143`*^9, 3.5691596901941867`*^9}, {3.569159772406331*^9, 3.5691597832951508`*^9}, { 3.5691598700313025`*^9, 3.569159885147729*^9}, {3.569160485733184*^9, 3.569160486887586*^9}, {3.5691672792073207`*^9, 3.5691672793789206`*^9}, { 3.5691673418102303`*^9, 3.5691674875144863`*^9}, {3.569168259700243*^9, 3.569168260386644*^9}, {3.569168321257951*^9, 3.569168337466379*^9}, { 3.5691685152754917`*^9, 3.569168656096939*^9}, {3.5691687137702403`*^9, 3.569168772566744*^9}, {3.5691697249898825`*^9, 3.569169747063921*^9}, { 3.569169944981469*^9, 3.5691699696763124`*^9}, 3.569341165569158*^9, { 3.5693417833614435`*^9, 3.5693417874486504`*^9}, {3.5704552110753345`*^9, 3.5704552378605814`*^9}, {3.5704560776724567`*^9, 3.570456083070066*^9}, { 3.570855427306635*^9, 3.570855434529448*^9}}], Cell[BoxData[ TagBox[ RowBox[{"(", "\[NoBreak]", GridBox[{ {"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`"}]} }, 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.571825947202669*^9}] }, Open ]], Cell[CellGroupData[{ Cell[BoxData[ RowBox[{"\[IndentingNewLine]", RowBox[{ RowBox[{"ow", "=", RowBox[{"Join", "[", RowBox[{"Table", "[", RowBox[{ RowBox[{"-", "2.0"}], ",", RowBox[{"{", RowBox[{"i", ",", "1", ",", RowBox[{"bc", "+", "nb"}]}], "}"}]}], "]"}], "]"}]}], RowBox[{"(*", " ", RowBox[{"nucleus", "-", RowBox[{"cloud", " ", "distances"}]}], " ", "*)"}], "\[IndentingNewLine]", RowBox[{"cnv", "=", RowBox[{"Join", "[", RowBox[{ RowBox[{"Table", "[", RowBox[{ RowBox[{"cn", "[", RowBox[{"[", "i", "]"}], "]"}], ",", RowBox[{"{", RowBox[{"i", ",", "1", ",", "bc"}], "}"}]}], "]"}], ",", RowBox[{"Table", "[", RowBox[{"0.0", ",", RowBox[{"{", RowBox[{"i", ",", "1", ",", "cw"}], "}"}]}], "]"}], ",", RowBox[{"Table", "[", RowBox[{ RowBox[{"cn", "[", RowBox[{"[", "i", "]"}], "]"}], ",", RowBox[{"{", RowBox[{"i", ",", RowBox[{"bc", "+", "1"}], ",", "n"}], "}"}]}], "]"}]}], "]"}]}], "\[IndentingNewLine]", RowBox[{ RowBox[{"dcw", "=", RowBox[{"Table", "[", RowBox[{ RowBox[{ RowBox[{"sq", "=", RowBox[{"Sqrt", "[", RowBox[{ RowBox[{ RowBox[{"(", RowBox[{ RowBox[{"tw", "[", RowBox[{"[", RowBox[{"i", ",", "1"}], "]"}], "]"}], "-", RowBox[{"tv", "[", RowBox[{"[", RowBox[{"j", ",", "1"}], "]"}], "]"}]}], ")"}], "^", "2"}], "+", RowBox[{ RowBox[{"(", RowBox[{ RowBox[{"tw", "[", RowBox[{"[", RowBox[{"i", ",", "2"}], "]"}], "]"}], "-", RowBox[{"tv", "[", RowBox[{"[", RowBox[{"j", ",", "2"}], "]"}], "]"}]}], ")"}], "^", "2"}], "+", RowBox[{ RowBox[{"(", RowBox[{ RowBox[{"tw", "[", RowBox[{"[", RowBox[{"i", ",", "3"}], "]"}], "]"}], "-", RowBox[{"tv", "[", RowBox[{"[", RowBox[{"j", ",", "3"}], "]"}], "]"}]}], ")"}], "^", "2"}]}], "]"}]}], ";", RowBox[{"If", "[", RowBox[{ RowBox[{"sq", ">", " ", "0.1"}], ",", StyleBox[ RowBox[{"1", "/", "sq"}], FontColor->RGBColor[1, 0, 0]], ",", "0"}], "]"}]}], ",", RowBox[{"{", RowBox[{"i", ",", "1", ",", "bt"}], "}"}], ",", RowBox[{"{", RowBox[{"j", ",", "1", ",", "bt"}], "}"}]}], "]"}]}], ";"}], "\[IndentingNewLine]", RowBox[{ RowBox[{"dcw", "=", RowBox[{"Table", "[", RowBox[{ RowBox[{"If", "[", RowBox[{ RowBox[{"i", "\[Equal]", " ", "j"}], ",", RowBox[{ RowBox[{"dcw", "[", RowBox[{"[", RowBox[{"i", ",", "j"}], "]"}], "]"}], "=", "0.0"}], ",", RowBox[{"dcw", "[", RowBox[{"[", RowBox[{"i", ",", "j"}], "]"}], "]"}]}], "]"}], ",", RowBox[{"{", RowBox[{"i", ",", "1", ",", "bt"}], "}"}], ",", RowBox[{"{", RowBox[{"j", ",", "1", ",", "bt"}], "}"}]}], "]"}]}], ";"}], "\[IndentingNewLine]", RowBox[{"(*", RowBox[{"MatrixForm", "[", "dcw", "]"}], "*)"}], " "}]}]], "Input", CellChangeTimes->{{3.5688982251756487`*^9, 3.5688986440675845`*^9}, { 3.5688986873108606`*^9, 3.56889871560931*^9}, {3.5688987970414534`*^9, 3.5688988526711507`*^9}, {3.568898887147211*^9, 3.568898888644814*^9}, { 3.5688989206248703`*^9, 3.568899041759083*^9}, {3.5688990876855636`*^9, 3.568899258349863*^9}, 3.568899300267137*^9, {3.568899351326027*^9, 3.5688993831032825`*^9}, {3.5688994370481772`*^9, 3.568899468217032*^9}, { 3.5688995813016305`*^9, 3.5688997165538683`*^9}, {3.5688998495129013`*^9, 3.568899932364647*^9}, {3.568899967667509*^9, 3.568900024529609*^9}, { 3.5689000794261055`*^9, 3.568900136257005*^9}, {3.5689001767858763`*^9, 3.56890020149632*^9}, {3.568902068726*^9, 3.568902074139209*^9}, 3.56890216040736*^9, 3.568902344113283*^9, {3.5689024237982235`*^9, 3.56890243907065*^9}, 3.5689025770684924`*^9, 3.568910195129884*^9, 3.568910620995032*^9, {3.568912393532545*^9, 3.5689124022841606`*^9}, { 3.5691332074958715`*^9, 3.5691332081666727`*^9}, {3.5691352237838125`*^9, 3.5691352313342257`*^9}, {3.5691489965881166`*^9, 3.5691490103317413`*^9}, {3.5691490440122004`*^9, 3.5691491273631463`*^9}, {3.5691523435842266`*^9, 3.56915234531583*^9}, { 3.5691524837816734`*^9, 3.5691526041202846`*^9}, {3.5691595921324143`*^9, 3.5691596901941867`*^9}, {3.569159772406331*^9, 3.5691597832951508`*^9}, { 3.5691598700313025`*^9, 3.569159885147729*^9}, {3.569160485733184*^9, 3.569160486887586*^9}, {3.5691672792073207`*^9, 3.5691672793789206`*^9}, { 3.5691673418102303`*^9, 3.5691674875144863`*^9}, {3.569168259700243*^9, 3.569168260386644*^9}, {3.569168321257951*^9, 3.569168337466379*^9}, { 3.5691685152754917`*^9, 3.569168656096939*^9}, {3.5691687137702403`*^9, 3.569168772566744*^9}, {3.5691697249898825`*^9, 3.569169747063921*^9}, { 3.569169944981469*^9, 3.5691699655579047`*^9}, {3.56921753575448*^9, 3.569217541807291*^9}, {3.569217576283351*^9, 3.5692176436130695`*^9}, { 3.5692176921603546`*^9, 3.569217692768756*^9}, {3.5692177389136367`*^9, 3.569217740192839*^9}, {3.5692222042775583`*^9, 3.5692222070231633`*^9}, { 3.569230669979245*^9, 3.5692306709620466`*^9}, {3.5692308816872168`*^9, 3.5692309970650196`*^9}, {3.5692310297158766`*^9, 3.569231090602784*^9}, { 3.5692311251880445`*^9, 3.569231148868886*^9}, 3.56923793753481*^9, 3.569341165569158*^9, 3.5693418217375107`*^9, {3.5703412254249296`*^9, 3.5703412423509593`*^9}, {3.5704553045038986`*^9, 3.570455320681127*^9}, { 3.57045550485505*^9, 3.5704555063370533`*^9}, {3.5704556421508913`*^9, 3.5704556424784923`*^9}, 3.5704557137862177`*^9, {3.5704564711051474`*^9, 3.5704564908079824`*^9}, {3.570456521602436*^9, 3.5704565228348384`*^9}, { 3.5704569127419233`*^9, 3.5704569202767363`*^9}, 3.5704636205455036`*^9, 3.570596993178934*^9, {3.570855461377095*^9, 3.5708554743563175`*^9}, 3.570855611589759*^9}], Cell[BoxData[ RowBox[{"{", RowBox[{ RowBox[{"-", "2.`"}], ",", RowBox[{"-", "2.`"}], ",", RowBox[{"-", "2.`"}], ",", RowBox[{"-", "2.`"}], ",", RowBox[{"-", "2.`"}], ",", RowBox[{"-", "2.`"}], ",", RowBox[{"-", "2.`"}], ",", RowBox[{"-", "2.`"}], ",", RowBox[{"-", "2.`"}], ",", RowBox[{"-", "2.`"}], ",", RowBox[{"-", "2.`"}], ",", RowBox[{"-", "2.`"}], ",", RowBox[{"-", "2.`"}], ",", RowBox[{"-", "2.`"}], ",", RowBox[{"-", "2.`"}], ",", RowBox[{"-", "2.`"}], ",", RowBox[{"-", "2.`"}], ",", RowBox[{"-", "2.`"}], ",", RowBox[{"-", "2.`"}], ",", RowBox[{"-", "2.`"}], ",", RowBox[{"-", "2.`"}], ",", RowBox[{"-", "2.`"}], ",", RowBox[{"-", "2.`"}], ",", RowBox[{"-", "2.`"}], ",", RowBox[{"-", "2.`"}], ",", RowBox[{"-", "2.`"}], ",", RowBox[{"-", "2.`"}], ",", RowBox[{"-", "2.`"}], ",", RowBox[{"-", "2.`"}], ",", RowBox[{"-", "2.`"}], ",", RowBox[{"-", "2.`"}], ",", RowBox[{"-", "2.`"}], ",", RowBox[{"-", "2.`"}], ",", RowBox[{"-", "2.`"}], ",", RowBox[{"-", "2.`"}], ",", RowBox[{"-", "2.`"}], ",", RowBox[{"-", "2.`"}], ",", RowBox[{"-", "2.`"}], ",", RowBox[{"-", "2.`"}], ",", RowBox[{"-", "2.`"}], ",", RowBox[{"-", "2.`"}], ",", RowBox[{"-", "2.`"}], ",", RowBox[{"-", "2.`"}], ",", RowBox[{"-", "2.`"}], ",", RowBox[{"-", "2.`"}], ",", RowBox[{"-", "2.`"}], ",", RowBox[{"-", "2.`"}], ",", RowBox[{"-", "2.`"}], ",", RowBox[{"-", "2.`"}], ",", RowBox[{"-", "2.`"}], ",", RowBox[{"-", "2.`"}], ",", RowBox[{"-", "2.`"}], ",", RowBox[{"-", "2.`"}], ",", RowBox[{"-", "2.`"}], ",", RowBox[{"-", "2.`"}], ",", RowBox[{"-", "2.`"}], ",", RowBox[{"-", "2.`"}], ",", RowBox[{"-", "2.`"}], ",", RowBox[{"-", "2.`"}], ",", RowBox[{"-", "2.`"}], ",", RowBox[{"-", "2.`"}], ",", RowBox[{"-", "2.`"}], ",", RowBox[{"-", "2.`"}], ",", RowBox[{"-", "2.`"}], ",", RowBox[{"-", "2.`"}], ",", RowBox[{"-", "2.`"}], ",", RowBox[{"-", "2.`"}], ",", RowBox[{"-", "2.`"}], ",", RowBox[{"-", "2.`"}], ",", RowBox[{"-", "2.`"}], ",", RowBox[{"-", "2.`"}], ",", RowBox[{"-", "2.`"}]}], "}"}]], "Output", CellChangeTimes->{3.5718259472182693`*^9}], Cell[BoxData[ RowBox[{"{", RowBox[{ "6.`", ",", "6.`", ",", "6.`", ",", "6.`", ",", "6.`", ",", "6.`", ",", "6.`", ",", "6.`", ",", "6.`", ",", "6.`", ",", "6.`", ",", "6.`", ",", "6.`", ",", "6.`", ",", "6.`", ",", "6.`", ",", "6.`", ",", "6.`", ",", "6.`", ",", "6.`", ",", "8.`", ",", "0.`", ",", "0.`", ",", "0.`", ",", "0.`", ",", "0.`", ",", "0.`", ",", "0.`", ",", "0.`", ",", "0.`", ",", "0.`", ",", "0.`", ",", "0.`", ",", "0.`", ",", "0.`", ",", "0.`", ",", "0.`", ",", "0.`", ",", "0.`", ",", "0.`", ",", "0.`", ",", "0.`", ",", "1.`", ",", "1.`", ",", "1.`", ",", "1.`", ",", "1.`", ",", "1.`", ",", "1.`", ",", "1.`", ",", "1.`", ",", "1.`", ",", "1.`", ",", "1.`", ",", "1.`", ",", "1.`", ",", "1.`", ",", "1.`", ",", "1.`", ",", "1.`", ",", "1.`", ",", "1.`", ",", "1.`", ",", "1.`", ",", "1.`", ",", "1.`", ",", "1.`", ",", "1.`", ",", "1.`", ",", "1.`", ",", "1.`", ",", "1.`"}], "}"}]], "Output", CellChangeTimes->{3.5718259472338696`*^9}] }, Open ]], Cell[BoxData[ RowBox[{ RowBox[{"Vee", "=", "0.0"}], ";", " ", RowBox[{"Vnn", "=", "0.0"}], ";"}]], "Input", CellChangeTimes->{{3.5688982251756487`*^9, 3.5688986440675845`*^9}, { 3.5688986873108606`*^9, 3.56889871560931*^9}, {3.5688987970414534`*^9, 3.5688988526711507`*^9}, {3.568898887147211*^9, 3.568898888644814*^9}, { 3.5688989206248703`*^9, 3.568899041759083*^9}, {3.5688990876855636`*^9, 3.568899258349863*^9}, 3.568899300267137*^9, {3.568899351326027*^9, 3.5688993831032825`*^9}, {3.5688994370481772`*^9, 3.568899468217032*^9}, { 3.5688995813016305`*^9, 3.5688997165538683`*^9}, {3.5688998495129013`*^9, 3.568899932364647*^9}, {3.568899967667509*^9, 3.568900024529609*^9}, { 3.5689000794261055`*^9, 3.568900136257005*^9}, {3.5689001767858763`*^9, 3.56890020149632*^9}, {3.568902068726*^9, 3.568902074139209*^9}, 3.56890216040736*^9, 3.568902344113283*^9, {3.5689024237982235`*^9, 3.56890243907065*^9}, 3.5689025770684924`*^9, {3.568910195129884*^9, 3.568910199825492*^9}, 3.568910617609826*^9, {3.56891263539537*^9, 3.568912638842976*^9}, {3.568952611212014*^9, 3.5689526227248344`*^9}, { 3.5689527476498537`*^9, 3.5689527480086546`*^9}, {3.5689530637688093`*^9, 3.5689530642368097`*^9}, {3.569133363948546*^9, 3.569133373698563*^9}, { 3.5691350563331184`*^9, 3.56913505725352*^9}, 3.5691351502452836`*^9, { 3.569135237792637*^9, 3.5691352453118505`*^9}, {3.5691353071659594`*^9, 3.5691353166039753`*^9}, {3.5691447439722476`*^9, 3.5691448093675623`*^9}, {3.569146067386572*^9, 3.569146078244191*^9}, { 3.5691478509845047`*^9, 3.5691478547909117`*^9}, {3.569159874789311*^9, 3.56915988004652*^9}, {3.5691671967299757`*^9, 3.569167196901576*^9}, 3.5691672337020407`*^9, {3.5691672688489027`*^9, 3.5691672717661076`*^9}, 3.569171387282002*^9, 3.5692335989467897`*^9}], Cell[CellGroupData[{ Cell[BoxData[ RowBox[{ RowBox[{"(*", " ", RowBox[{"all", " ", "clouds", " ", "repulsion"}], " ", "*)"}], "\[IndentingNewLine]", RowBox[{ RowBox[{"For", "[", RowBox[{ RowBox[{"i", "=", "1"}], ",", RowBox[{"i", "<", "bt"}], ",", RowBox[{"i", "++"}], ",", "\[IndentingNewLine]", RowBox[{"For", "[", RowBox[{ RowBox[{"j", "=", RowBox[{"i", "+", "1"}]}], ",", RowBox[{"j", "<", RowBox[{"bt", "+", "1"}]}], ",", RowBox[{"j", "++"}], ",", "\[IndentingNewLine]", RowBox[{"Vee", "=", RowBox[{"Vee", "+", RowBox[{ RowBox[{"ow", "[", RowBox[{"[", "i", "]"}], "]"}], "*", RowBox[{ RowBox[{"ow", "[", RowBox[{"[", "j", "]"}], "]"}], "/", RowBox[{"dw", "[", RowBox[{"[", RowBox[{"i", ",", "j"}], "]"}], "]"}]}]}]}]}]}], "]"}]}], "]"}], "\[IndentingNewLine]", "Vee"}]}]], "Input", CellChangeTimes->{{3.5688982251756487`*^9, 3.5688986440675845`*^9}, { 3.5688986873108606`*^9, 3.56889871560931*^9}, {3.5688987970414534`*^9, 3.5688988526711507`*^9}, {3.568898887147211*^9, 3.568898888644814*^9}, { 3.5688989206248703`*^9, 3.568899041759083*^9}, {3.5688990876855636`*^9, 3.568899258349863*^9}, 3.568899300267137*^9, {3.568899351326027*^9, 3.5688993831032825`*^9}, {3.5688994370481772`*^9, 3.568899468217032*^9}, { 3.5688995813016305`*^9, 3.5688997165538683`*^9}, {3.5688998495129013`*^9, 3.568899932364647*^9}, {3.568899967667509*^9, 3.568900024529609*^9}, { 3.5689000794261055`*^9, 3.568900136257005*^9}, {3.5689001767858763`*^9, 3.56890020149632*^9}, {3.568902068726*^9, 3.568902074139209*^9}, 3.56890216040736*^9, 3.568902344113283*^9, {3.5689024237982235`*^9, 3.56890243907065*^9}, 3.5689025770684924`*^9, {3.568910195129884*^9, 3.568910199825492*^9}, 3.568910617609826*^9, {3.56891263539537*^9, 3.568912638842976*^9}, {3.568952611212014*^9, 3.5689526227248344`*^9}, { 3.5689527476498537`*^9, 3.5689527480086546`*^9}, {3.5689530637688093`*^9, 3.5689530642368097`*^9}, {3.569133363948546*^9, 3.569133373698563*^9}, { 3.5691350563331184`*^9, 3.56913505725352*^9}, 3.5691351502452836`*^9, { 3.569135237792637*^9, 3.5691352453118505`*^9}, {3.5691353071659594`*^9, 3.5691353166039753`*^9}, {3.5691447439722476`*^9, 3.5691448093675623`*^9}, {3.569146067386572*^9, 3.569146078244191*^9}, { 3.5691478509845047`*^9, 3.5691478969889855`*^9}, {3.569149270524598*^9, 3.569149283675421*^9}, {3.5691523005437512`*^9, 3.5691523013861527`*^9}, { 3.570457123841494*^9, 3.5704571330923104`*^9}, {3.570457176959587*^9, 3.570457191296013*^9}, {3.570463789649801*^9, 3.570463797637015*^9}, { 3.5704639300032473`*^9, 3.5704639472412777`*^9}, {3.570464099403945*^9, 3.5704641196371803`*^9}, {3.570464183737693*^9, 3.5704641855628963`*^9}, { 3.570855532092019*^9, 3.5708555433240385`*^9}}], Cell[BoxData["1478.1617366451412`"], "Output", CellChangeTimes->{3.5718259472806697`*^9}] }, Open ]], Cell[CellGroupData[{ Cell[BoxData[{ RowBox[{ RowBox[{ RowBox[{"sc", "=", "0.43"}], ";"}], " ", RowBox[{"(*", " ", RowBox[{"core", " ", "clouds"}], " ", "*)"}]}], "\[IndentingNewLine]", RowBox[{"For", "[", RowBox[{ RowBox[{"i", "=", "1"}], " ", ",", RowBox[{"i", "<", RowBox[{"bc", "+", "1"}]}], ",", RowBox[{"i", "++"}], ",", RowBox[{"Vee", "=", RowBox[{"Vee", "+", RowBox[{"3", "*", RowBox[{"sc", "/", RowBox[{"u2", "[", RowBox[{"[", "i", "]"}], "]"}]}]}]}]}]}], "]"}], "\[IndentingNewLine]", RowBox[{ RowBox[{ RowBox[{"sw", "=", "0.43"}], ";"}], " ", RowBox[{"(*", " ", RowBox[{"bonding", " ", "clouds"}], " ", "*)"}]}], "\[IndentingNewLine]", RowBox[{"For", "[", RowBox[{ RowBox[{"i", "=", "1"}], " ", ",", RowBox[{"i", "<", RowBox[{"nb", "+", "1"}]}], ",", RowBox[{"i", "++"}], ",", RowBox[{"Vee", "=", RowBox[{"Vee", "+", RowBox[{"3", "*", RowBox[{"sw", "/", RowBox[{"a", "[", RowBox[{"[", RowBox[{"i", ",", "3"}], "]"}], "]"}]}]}]}]}]}], "]"}], "\[IndentingNewLine]", "Vee"}], "Input", CellChangeTimes->{{3.5689548890696163`*^9, 3.568955116299615*^9}, { 3.5689552553894596`*^9, 3.5689552575266633`*^9}, {3.5689552936875267`*^9, 3.5689553203323736`*^9}, {3.568955404229321*^9, 3.568955433245372*^9}, 3.5689554882822685`*^9, 3.5689562157115464`*^9, {3.568956283961666*^9, 3.5689562858180695`*^9}, {3.5689566111878405`*^9, 3.5689566291278725`*^9}, {3.5689566695319433`*^9, 3.5689567220104356`*^9}, {3.5690810958835616`*^9, 3.569081104525977*^9}, { 3.5691717160681796`*^9, 3.569171751714242*^9}, {3.5691717855663013`*^9, 3.5691719006789036`*^9}, 3.569234247377528*^9, {3.569235622381544*^9, 3.569235625142749*^9}, {3.5692356799612455`*^9, 3.569235740536152*^9}, { 3.57045575500149*^9, 3.5704557604770994`*^9}, {3.57046440981329*^9, 3.5704644333849316`*^9}, {3.5705963024877205`*^9, 3.5705963300061693`*^9}, {3.5706010463712544`*^9, 3.570601069225295*^9}, { 3.5706012097659416`*^9, 3.5706012109983435`*^9}, {3.570601290948484*^9, 3.570601291619285*^9}, {3.570601333099758*^9, 3.570601444951955*^9}, 3.5706014761208096`*^9, {3.570601526633698*^9, 3.570601615179454*^9}, { 3.5708576202336864`*^9, 3.5708576267544985`*^9}, {3.5708577990100007`*^9, 3.5708578016152053`*^9}, {3.5708580423548284`*^9, 3.570858044429632*^9}, { 3.570858075754487*^9, 3.5708581072821426`*^9}, {3.570858449889944*^9, 3.5708585756105647`*^9}}], Cell[BoxData["1642.211749922033`"], "Output", CellChangeTimes->{3.5718259472962694`*^9}] }, Open ]], Cell[CellGroupData[{ Cell[BoxData[ RowBox[{ RowBox[{"(*", " ", RowBox[{ RowBox[{"all", " ", "nuclei", " ", "with", " ", "all", " ", "clouds"}], ",", " ", RowBox[{ RowBox[{"except", " ", "i"}], " ", "=", " ", "j"}]}], " ", "*)"}], "\[IndentingNewLine]", RowBox[{"Vne", "=", RowBox[{"cnv", ".", RowBox[{"(", RowBox[{"ow", ".", "dcw"}], ")"}]}]}]}]], "Input", CellChangeTimes->{ 3.569233528637466*^9, 3.5692342309507*^9, {3.5704557844231415`*^9, 3.570455793127957*^9}}], Cell[BoxData[ RowBox[{"-", "3283.8169192355053`"}]], "Output", CellChangeTimes->{3.5718259473118696`*^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[{"-", "4828.703147016751`"}]], "Output", CellChangeTimes->{3.5718259473430696`*^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[{"-", "4896.786491059151`"}]], "Output", CellChangeTimes->{3.5718259473586693`*^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.5718259473742695`*^9}] }, Open ]], Cell[CellGroupData[{ Cell[BoxData[{"Vee", "\[IndentingNewLine]", "Vnn", "\[IndentingNewLine]", \ "Vne", "\[IndentingNewLine]", RowBox[{"Vtot", "=", RowBox[{ "Vne", "+", "Vee", "+", "Vnn"}]}], "\[IndentingNewLine]", "Ttot", "\[IndentingNewLine]", RowBox[{"Vir", " ", "=", RowBox[{ RowBox[{"-", "Vtot"}], "/", "Ttot"}]}], "\[IndentingNewLine]", RowBox[{"Etot", "=", RowBox[{"Ttot", "+", "Vtot"}]}], "\[IndentingNewLine]"}], "Input", CellChangeTimes->{{3.5689074950860367`*^9, 3.5689075109980645`*^9}, { 3.568910298074465*^9, 3.5689103015064707`*^9}, {3.568910724064413*^9, 3.5689107693044925`*^9}, {3.568955368910859*^9, 3.568955378629676*^9}, { 3.568955601366867*^9, 3.568955616218093*^9}, {3.5704638504275074`*^9, 3.570463876370353*^9}, {3.570464305074706*^9, 3.5704643133895206`*^9}, { 3.570464352171189*^9, 3.570464353231991*^9}, {3.570712404698539*^9, 3.5707124150569572`*^9}, {3.570809962851386*^9, 3.5708101493809137`*^9}, { 3.5708102160710306`*^9, 3.570810245165082*^9}, {3.5708102767551374`*^9, 3.5708103693413*^9}, {3.570810404207361*^9, 3.5708104232081947`*^9}, { 3.5708104788690925`*^9, 3.5708104825818987`*^9}, {3.5708105169643593`*^9, 3.570810517884761*^9}, {3.570810561767638*^9, 3.5708105625476394`*^9}, { 3.5708106179589367`*^9, 3.570810645648985*^9}, {3.5708552812279787`*^9, 3.570855300572013*^9}}], Cell[BoxData["1642.211749922033`"], "Output", CellChangeTimes->{3.5718259473898697`*^9}], Cell[BoxData["1586.9262018401766`"], "Output", CellChangeTimes->{3.5718259473898697`*^9}], Cell[BoxData[ RowBox[{"-", "4896.786491059151`"}]], "Output", CellChangeTimes->{3.57182594740547*^9}], Cell[BoxData[ RowBox[{"-", "1667.648539296941`"}]], "Output", CellChangeTimes->{3.57182594740547*^9}], Cell[BoxData["844.1218307487597`"], "Output", CellChangeTimes->{3.57182594740547*^9}], Cell[BoxData["1.9756017183179468`"], "Output", CellChangeTimes->{3.57182594740547*^9}], Cell[BoxData[ RowBox[{"-", "823.5267085481812`"}]], "Output", CellChangeTimes->{3.57182594740547*^9}] }, Open ]] }, WindowSize->{1156, 978}, WindowMargins->{{332, Automatic}, {Automatic, -24}}, 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, 5974, 101, 362, "Output"] }, Open ]], Cell[CellGroupData[{ Cell[8358, 165, 680, 14, 52, "Input"], Cell[9041, 181, 5502, 141, 791, "Output"] }, Open ]], Cell[CellGroupData[{ Cell[14580, 327, 609, 10, 31, "Input"], Cell[15192, 339, 1061, 15, 52, "Output"] }, Open ]], Cell[CellGroupData[{ Cell[16290, 359, 955, 14, 31, "Input"], Cell[17248, 375, 73, 1, 31, "Output"] }, Open ]], Cell[CellGroupData[{ Cell[17358, 381, 1560, 29, 31, "Input"], Cell[18921, 412, 1063, 15, 52, "Output"] }, Open ]], Cell[19999, 430, 1419, 23, 31, "Input"], Cell[21421, 455, 1592, 29, 31, "Input"], Cell[CellGroupData[{ Cell[23038, 488, 1234, 18, 31, "Input"], Cell[24275, 508, 3556, 105, 92, "Output"] }, Open ]], Cell[CellGroupData[{ Cell[27868, 618, 697, 14, 31, "Input"], Cell[28568, 634, 680, 11, 52, "Output"] }, Open ]], Cell[29263, 648, 908, 24, 31, "Input"], Cell[CellGroupData[{ Cell[30196, 676, 5635, 122, 132, "Input"], Cell[35834, 800, 841, 13, 72, "Output"], Cell[36678, 815, 864, 14, 72, "Output"] }, Open ]], Cell[CellGroupData[{ Cell[37579, 834, 519, 12, 31, "Input"], Cell[38101, 848, 1061, 15, 52, "Output"] }, Open ]], Cell[CellGroupData[{ Cell[39199, 868, 1401, 38, 31, "Input"], Cell[40603, 908, 744, 12, 52, "Output"] }, Open ]], Cell[CellGroupData[{ Cell[41384, 925, 827, 23, 92, "Input"], Cell[42214, 950, 73, 1, 31, "Output"], Cell[42290, 953, 73, 1, 31, "Output"] }, Open ]], Cell[CellGroupData[{ Cell[42400, 959, 284, 6, 52, "Input"], Cell[42687, 967, 86, 1, 31, "Output"] }, Open ]], Cell[42788, 971, 1824, 35, 72, "Input"], Cell[44615, 1008, 935, 19, 31, "Input"], Cell[CellGroupData[{ Cell[45575, 1031, 275, 6, 52, "Input"], Cell[45853, 1039, 35902, 881, 228, "Output"] }, Open ]], Cell[81770, 1923, 2567, 59, 52, "Input"], Cell[84340, 1984, 1309, 35, 72, "Input"], Cell[CellGroupData[{ Cell[85674, 2023, 4850, 86, 72, "Input"], Cell[90527, 2111, 17389, 246, 806, "Output"] }, Open ]], Cell[CellGroupData[{ Cell[107953, 2362, 2506, 53, 112, "Input"], Cell[110462, 2417, 73, 1, 31, "Output"] }, Open ]], Cell[CellGroupData[{ Cell[110572, 2423, 2272, 46, 72, "Input"], Cell[112847, 2471, 308, 6, 31, "Output"] }, Open ]], Cell[113170, 2480, 9192, 221, 232, "Input"], Cell[CellGroupData[{ Cell[122387, 2705, 584, 9, 31, "Input"], Cell[122974, 2716, 2380, 81, 341, "Output"] }, Open ]], Cell[CellGroupData[{ Cell[125391, 2802, 1947, 43, 72, "Input"], Cell[127341, 2847, 241, 5, 31, "Output"], Cell[127585, 2854, 146, 3, 31, "Output"] }, Open ]], Cell[CellGroupData[{ Cell[127768, 2862, 570, 14, 52, "Input"], Cell[128341, 2878, 536, 10, 52, "Output"], Cell[128880, 2890, 144, 3, 31, "Output"] }, Open ]], Cell[CellGroupData[{ Cell[129061, 2898, 2767, 54, 72, "Input"], Cell[131831, 2954, 944, 16, 72, "Output"], Cell[132778, 2972, 143, 3, 31, "Output"] }, Open ]], Cell[CellGroupData[{ Cell[132958, 2980, 3698, 81, 132, "Input"], Cell[136659, 3063, 955, 15, 72, "Output"] }, Open ]], Cell[137629, 3081, 2072, 49, 112, "Input"], Cell[139704, 3132, 561, 12, 52, "Input"], Cell[140268, 3146, 2148, 49, 92, "Input"], Cell[142419, 3197, 2452, 56, 92, "Input"], Cell[144874, 3255, 1759, 41, 72, "Input"], Cell[CellGroupData[{ Cell[146658, 3300, 923, 20, 31, "Input"], Cell[147584, 3322, 87, 1, 31, "Output"] }, Open ]], Cell[CellGroupData[{ Cell[147708, 3328, 711, 18, 31, "Input"], Cell[148422, 3348, 87, 1, 31, "Output"] }, Open ]], Cell[CellGroupData[{ Cell[148546, 3354, 507, 10, 31, "Input"], Cell[149056, 3366, 89, 1, 31, "Output"] }, Open ]], Cell[CellGroupData[{ Cell[149182, 3372, 823, 23, 31, "Input"], Cell[150008, 3397, 89, 1, 31, "Output"] }, Open ]], Cell[CellGroupData[{ Cell[150134, 3403, 204, 4, 31, "Input"], Cell[150341, 3409, 90, 1, 31, "Output"] }, Open ]], Cell[150446, 3413, 1971, 35, 92, "Input"], Cell[152420, 3450, 6879, 98, 31, "Input"], Cell[CellGroupData[{ Cell[159324, 3552, 666, 16, 52, "Input"], Cell[159993, 3570, 72, 1, 31, "Output"], Cell[160068, 3573, 141, 3, 31, "Output"] }, Open ]], Cell[CellGroupData[{ Cell[160246, 3581, 9199, 163, 172, "Input"], Cell[169448, 3746, 753, 22, 52, "Output"] }, Open ]], Cell[CellGroupData[{ Cell[170238, 3773, 8768, 150, 152, "Input"], Cell[179009, 3925, 690, 20, 31, "Output"] }, Open ]], Cell[179714, 3948, 1166, 24, 72, "Input"], Cell[180883, 3974, 657, 11, 31, "Input"], Cell[181543, 3987, 744, 13, 31, "Input"], Cell[CellGroupData[{ Cell[182312, 4004, 872, 18, 31, "Input"], Cell[183187, 4024, 106, 2, 31, "Output"] }, Open ]], Cell[CellGroupData[{ Cell[183330, 4031, 1960, 54, 192, "Input"], Cell[185293, 4087, 757, 20, 72, "Output"], Cell[186053, 4109, 661, 19, 31, "Output"] }, Open ]], Cell[186729, 4131, 761, 12, 31, "Input"], Cell[CellGroupData[{ Cell[187515, 4147, 984, 20, 52, "Input"], Cell[188502, 4169, 90, 1, 31, "Output"] }, Open ]], Cell[CellGroupData[{ Cell[188629, 4175, 2006, 56, 192, "Input"], Cell[190638, 4233, 755, 20, 72, "Output"], Cell[191396, 4255, 643, 18, 33, "Output"] }, Open ]], Cell[192054, 4276, 766, 13, 31, "Input"], Cell[CellGroupData[{ Cell[192845, 4293, 1062, 22, 52, "Input"], Cell[193910, 4317, 88, 1, 31, "Output"] }, Open ]], Cell[CellGroupData[{ Cell[194035, 4323, 2177, 58, 192, "Input"], Cell[196215, 4383, 755, 20, 72, "Output"], Cell[196973, 4405, 670, 18, 55, "Output"] }, Open ]], Cell[197658, 4426, 1661, 41, 72, "Input"], Cell[199322, 4469, 3518, 87, 152, "Input"], Cell[CellGroupData[{ Cell[202865, 4560, 4578, 119, 172, "Input"], Cell[207446, 4681, 18539, 316, 348, 1872, 41, "CachedBoxData", "BoxData", \ "Output"] }, Open ]], Cell[226000, 5000, 5257, 100, 92, "Input"], Cell[231260, 5102, 2696, 53, 92, "Input"], Cell[CellGroupData[{ Cell[233981, 5159, 939, 17, 72, "Input"], Cell[234923, 5178, 4593, 106, 192, "Output"], Cell[239519, 5286, 73, 1, 31, "Output"], Cell[239595, 5289, 73, 1, 31, "Output"] }, Open ]], Cell[239683, 5293, 10201, 233, 132, "Input"], Cell[249887, 5528, 6427, 103, 52, "Input"], Cell[256317, 5633, 10215, 234, 132, "Input"], Cell[266535, 5869, 5925, 93, 31, "Input"], Cell[CellGroupData[{ Cell[272485, 5966, 14718, 283, 272, "Input"], Cell[287206, 6251, 82848, 1452, 375, 28656, 562, "CachedBoxData", "BoxData", \ "Output"], Cell[370057, 7705, 40963, 729, 357, 21752, 412, "CachedBoxData", "BoxData", \ "Output"] }, Open ]], Cell[CellGroupData[{ Cell[411057, 8439, 3879, 89, 152, "Input"], Cell[414939, 8530, 73, 1, 31, "Output"], Cell[415015, 8533, 8464, 207, 1118, "Output"] }, Open ]], Cell[423494, 8743, 3049, 67, 72, "Input"], Cell[426546, 8812, 1841, 29, 52, "Input"], Cell[CellGroupData[{ Cell[428412, 8845, 3517, 75, 112, "Input"], Cell[431932, 8922, 6541, 170, 1112, "Output"] }, Open ]], Cell[CellGroupData[{ Cell[438510, 9097, 6437, 145, 152, "Input"], Cell[444950, 9244, 2329, 75, 72, "Output"], Cell[447282, 9321, 1011, 16, 72, "Output"] }, Open ]], Cell[448308, 9340, 1863, 27, 31, "Input"], Cell[CellGroupData[{ Cell[450196, 9371, 2963, 56, 112, "Input"], Cell[453162, 9429, 90, 1, 31, "Output"] }, Open ]], Cell[CellGroupData[{ Cell[453289, 9435, 2532, 57, 112, "Input"], Cell[455824, 9494, 89, 1, 31, "Output"] }, Open ]], Cell[CellGroupData[{ Cell[455950, 9500, 499, 15, 52, "Input"], Cell[456452, 9517, 107, 2, 31, "Output"] }, Open ]], Cell[456574, 9522, 1381, 21, 31, "Input"], Cell[CellGroupData[{ Cell[457980, 9547, 1709, 32, 52, "Input"], Cell[459692, 9581, 106, 2, 31, "Output"] }, Open ]], Cell[CellGroupData[{ Cell[459835, 9588, 1415, 43, 72, "Input"], Cell[461253, 9633, 106, 2, 31, "Output"] }, Open ]], Cell[CellGroupData[{ Cell[461396, 9640, 2550, 50, 92, "Input"], Cell[463949, 9692, 90, 1, 31, "Output"] }, Open ]], Cell[CellGroupData[{ Cell[464076, 9698, 1351, 23, 172, "Input"], Cell[465430, 9723, 89, 1, 31, "Output"], Cell[465522, 9726, 90, 1, 31, "Output"], Cell[465615, 9729, 103, 2, 31, "Output"], Cell[465721, 9733, 103, 2, 31, "Output"], Cell[465827, 9737, 86, 1, 31, "Output"], Cell[465916, 9740, 87, 1, 31, "Output"], Cell[466006, 9743, 103, 2, 31, "Output"] }, Open ]] } ] *) (* End of internal cache information *)