(* 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[ 455665, 9543] NotebookOptionsPosition[ 447285, 9279] NotebookOutlinePosition[ 447787, 9299] CellTagsIndexPosition[ 447744, 9296] 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.571766381550393*^9, 3.5717667144393773`*^9, 3.571766857507229*^9, 3.5717672257614756`*^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.571766381565993*^9, 3.5717667144549775`*^9, 3.571766857522829*^9, 3.571767225777076*^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.571766381565993*^9, 3.5717667144705777`*^9, 3.571766857538429*^9, 3.5717672257926755`*^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.5717663815815926`*^9, 3.5717667144861774`*^9, 3.5717668575540285`*^9, 3.5717672258082757`*^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.5717663815815926`*^9, 3.5717667145017776`*^9, 3.5717668575696287`*^9, 3.5717672258238754`*^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.571766381597193*^9, 3.571766714517378*^9, 3.571766857585229*^9, 3.5717672258394756`*^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.571766381612793*^9, 3.5717667145329776`*^9, 3.571766857600829*^9, 3.571767225855076*^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.5717663816283927`*^9, 3.5717667145485773`*^9, 3.571766857616429*^9, 3.5717672258706756`*^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.5717663816283927`*^9, 3.5717667145485773`*^9, 3.571766857616429*^9, 3.5717672258862753`*^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.5717663816283927`*^9, 3.5717667145641775`*^9, 3.5717668576320286`*^9, 3.5717672259018755`*^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.571766381643993*^9, 3.5717667145797777`*^9, 3.571766857647629*^9, 3.5717672259018755`*^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.571766381643993*^9, 3.571766714595378*^9, 3.571766857663229*^9, 3.5717672259174757`*^9}], Cell[BoxData["30"], "Output", CellChangeTimes->{3.571766381643993*^9, 3.571766714595378*^9, 3.571766857663229*^9, 3.571767225933076*^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.5717663816595926`*^9, 3.5717667146109776`*^9, 3.571766857678829*^9, 3.571767225948676*^9}] }, Open ]], Cell[BoxData[{ RowBox[{ RowBox[{"DeleteFile", "[", " ", "\"\\"", "]"}], ";"}], "\[IndentingNewLine]", RowBox[{"For", "[", RowBox[{ RowBox[{"i", "=", "1"}], ",", RowBox[{"i", "<", RowBox[{"n", "+", "1"}]}], ",", RowBox[{"i", "++"}], ",", "\[IndentingNewLine]", RowBox[{ RowBox[{"{", RowBox[{ RowBox[{"u", "[", RowBox[{"[", "i", "]"}], "]"}], ",", RowBox[{"Extract", "[", RowBox[{"t1", ",", RowBox[{"{", "i", "}"}]}], "]"}]}], "}"}], ">>>", " ", "\"\\""}]}], "]"}]}], "Input", CellChangeTimes->{{3.567869377256353*^9, 3.5678694101568108`*^9}, { 3.5678695244894114`*^9, 3.56786953511303*^9}, 3.56786988243204*^9, 3.5678699252853155`*^9, {3.567870069179968*^9, 3.5678700766835814`*^9}, { 3.5678703216664114`*^9, 3.567870325738019*^9}, 3.5679271251072817`*^9, { 3.567942840466694*^9, 3.567942854381918*^9}, {3.567942932272855*^9, 3.567942950509287*^9}, 3.5679430681802936`*^9, {3.568278272060727*^9, 3.56827827391713*^9}, 3.5688732159559383`*^9, 3.568910867631465*^9, 3.5689997098549547`*^9, 3.5689998170427427`*^9, 3.5689998869620657`*^9, { 3.569059200815255*^9, 3.5690592031552596`*^9}, 3.5691460426137285`*^9, 3.569237204520723*^9, 3.569237465836782*^9, 3.56923802264856*^9, 3.5693403424181123`*^9, 3.569340450198702*^9, 3.569340738019207*^9, 3.569340852851009*^9, {3.5693411655067577`*^9, 3.5693411655067577`*^9}, 3.5693414976001415`*^9, {3.5693416978420925`*^9, 3.569341705314506*^9}, 3.569342614421703*^9, 3.5693435671777763`*^9, 3.569343662727944*^9, 3.5693437636289215`*^9, 3.5693440709750605`*^9, 3.5693442662562037`*^9, { 3.5702975520309644`*^9, 3.570297552764166*^9}, {3.5705591717487917`*^9, 3.5705591791432047`*^9}}], Cell[BoxData[ RowBox[{ RowBox[{"t", "=", RowBox[{"Table", "[", RowBox[{ RowBox[{"t1", "[", RowBox[{"[", RowBox[{"num", "[", RowBox[{"[", "i", "]"}], "]"}], "]"}], "]"}], ",", RowBox[{"{", RowBox[{"i", ",", "1", ",", "n"}], "}"}]}], "]"}]}], ";"}]], "Input", CellChangeTimes->{{3.567869377256353*^9, 3.567869394073182*^9}, { 3.5678694248832364`*^9, 3.5678694526200852`*^9}, {3.5678694891241493`*^9, 3.5678694955045605`*^9}, {3.567869596046737*^9, 3.567869602645549*^9}, 3.56786971175214*^9, {3.5678697908910794`*^9, 3.567869798800293*^9}, { 3.5679434548425727`*^9, 3.5679434621121855`*^9}, 3.568011875875622*^9, 3.56811435956207*^9, {3.5682782821071444`*^9, 3.5682782839479475`*^9}, { 3.5688205455482616`*^9, 3.5688206262784038`*^9}, 3.5688208026055136`*^9, 3.5688732159559383`*^9, 3.568910867631465*^9, {3.5689830694736805`*^9, 3.568983072687286*^9}}], Cell[BoxData[ RowBox[{ RowBox[{"Plot1", "=", RowBox[{"Table", "[", RowBox[{ RowBox[{"Graphics3D", "[", RowBox[{"{", RowBox[{ RowBox[{"If", "[", RowBox[{ RowBox[{ RowBox[{"u", "[", RowBox[{"[", "i", "]"}], "]"}], "\[Equal]", "\"\\""}], ",", RowBox[{"Lighter", "[", "Blue", "]"}], ",", RowBox[{"If", "[", RowBox[{ RowBox[{ RowBox[{"u", "[", RowBox[{"[", "i", "]"}], "]"}], "\[Equal]", "\"\\""}], ",", RowBox[{"Lighter", "[", "Red", "]"}], ",", RowBox[{"If", "[", RowBox[{ RowBox[{ RowBox[{"u", "[", RowBox[{"[", "i", "]"}], "]"}], "\[Equal]", "\"\\""}], ",", RowBox[{"Lighter", "[", "Green", "]"}], ",", RowBox[{"If", "[", RowBox[{ RowBox[{ RowBox[{"u", "[", RowBox[{"[", "i", "]"}], "]"}], "\[Equal]", "\"\\""}], ",", RowBox[{"Lighter", "[", "Orange", "]"}], ",", RowBox[{"Lighter", "[", "Brown", "]"}]}], "]"}]}], "]"}]}], "]"}]}], "]"}], ",", RowBox[{"Sphere", "[", RowBox[{ RowBox[{"{", RowBox[{ RowBox[{"t", "[", RowBox[{"[", RowBox[{"i", ",", "1"}], "]"}], "]"}], ",", RowBox[{"t", "[", RowBox[{"[", RowBox[{"i", ",", "2"}], "]"}], "]"}], ",", RowBox[{"t", "[", RowBox[{"[", RowBox[{"i", ",", "3"}], "]"}], "]"}]}], "}"}], ",", RowBox[{"u1", "[", RowBox[{"[", "i", "]"}], "]"}]}], "]"}]}], "}"}], "]"}], ",", RowBox[{"{", RowBox[{"i", ",", "1", ",", "n"}], "}"}]}], "]"}]}], ";"}]], "Input", CellChangeTimes->{{3.5679440895764875`*^9, 3.5679441000441055`*^9}, { 3.5679441319773617`*^9, 3.5679441523041973`*^9}, {3.567944240210352*^9, 3.5679442813476243`*^9}, {3.567944323966899*^9, 3.567944345931738*^9}, { 3.567944397567828*^9, 3.567944456941533*^9}, {3.567944491557994*^9, 3.5679445468444905`*^9}, {3.5679446505690727`*^9, 3.567944683875131*^9}, { 3.567944736244423*^9, 3.5679448177233667`*^9}, {3.567945549707852*^9, 3.5679455499730525`*^9}, {3.5679456039959474`*^9, 3.567945606195551*^9}, { 3.567945704460124*^9, 3.5679457164877453`*^9}, {3.5679457857362666`*^9, 3.5679458050023003`*^9}, {3.567946353670864*^9, 3.5679464127169676`*^9}, { 3.5679466013368993`*^9, 3.5679466311173515`*^9}, {3.5679467590999765`*^9, 3.567946915739851*^9}, {3.5679469466123056`*^9, 3.567946946815106*^9}, { 3.5679471385082426`*^9, 3.5679471497870626`*^9}, {3.5679483907224417`*^9, 3.5679484036080647`*^9}, {3.567948441937332*^9, 3.5679484421869326`*^9}, { 3.567948496740228*^9, 3.56794849772303*^9}, {3.567948847912445*^9, 3.5679488949933276`*^9}, {3.568011728877214*^9, 3.5680117308213253`*^9}, { 3.568011766325356*^9, 3.568011773436763*^9}, {3.5681173314452896`*^9, 3.5681173370612993`*^9}, {3.568117919800323*^9, 3.5681179678952074`*^9}, { 3.56811809459863*^9, 3.568118105409449*^9}, {3.5681181818963833`*^9, 3.5681182389144835`*^9}, {3.568118274888147*^9, 3.5681182883977704`*^9}, { 3.568118518513775*^9, 3.56811852739019*^9}, {3.5681188250543127`*^9, 3.568118862634779*^9}, {3.568118972396572*^9, 3.5681189862493963`*^9}, { 3.568119020694257*^9, 3.568119047136303*^9}, {3.5681190903015785`*^9, 3.568119136930061*^9}, {3.5681191671005135`*^9, 3.568119202808976*^9}, { 3.5681194788046613`*^9, 3.568119487603077*^9}, {3.5681195353235607`*^9, 3.5681195410331707`*^9}, 3.56811959201406*^9, {3.5681196426985493`*^9, 3.568119659702579*^9}, {3.568119726813897*^9, 3.56811974027672*^9}, { 3.5682659184078283`*^9, 3.5682659267694435`*^9}, {3.568265972477524*^9, 3.568266002725977*^9}, 3.568277802649102*^9, {3.568820898608082*^9, 3.568820922429324*^9}, 3.5688217528499823`*^9, 3.568821789307246*^9, { 3.569406212748887*^9, 3.569406252544557*^9}, {3.569492717066082*^9, 3.5694927471737347`*^9}, {3.5694931324008117`*^9, 3.5694931369404197`*^9}}], Cell[BoxData[ RowBox[{ RowBox[{"Plot2", "=", RowBox[{"Table", "[", RowBox[{ RowBox[{"Graphics3D", "[", RowBox[{"Text", "[", RowBox[{"i", ",", RowBox[{"{", RowBox[{ RowBox[{ RowBox[{"t", "[", RowBox[{"[", RowBox[{"i", ",", "1"}], "]"}], "]"}], "-", "0.6"}], ",", RowBox[{"t", "[", RowBox[{"[", RowBox[{"i", ",", "2"}], "]"}], "]"}], ",", RowBox[{"t", "[", RowBox[{"[", RowBox[{"i", ",", "3"}], "]"}], "]"}]}], "}"}], " ", ",", RowBox[{"{", RowBox[{"1", ",", "0"}], "}"}]}], "]"}], "]"}], ",", RowBox[{"{", RowBox[{"i", ",", "1", ",", "n"}], "}"}]}], "]"}]}], ";"}]], "Input", CellChangeTimes->{{3.5679440895764875`*^9, 3.5679441000441055`*^9}, { 3.5679441319773617`*^9, 3.5679441523041973`*^9}, {3.567944240210352*^9, 3.5679442813476243`*^9}, {3.567944323966899*^9, 3.567944345931738*^9}, { 3.567944397567828*^9, 3.567944456941533*^9}, {3.567944491557994*^9, 3.5679445468444905`*^9}, {3.5679446505690727`*^9, 3.567944683875131*^9}, { 3.567944736244423*^9, 3.5679448177233667`*^9}, {3.567945549707852*^9, 3.5679455499730525`*^9}, {3.5679456039959474`*^9, 3.567945606195551*^9}, { 3.567945704460124*^9, 3.5679457164877453`*^9}, {3.5679457857362666`*^9, 3.5679458050023003`*^9}, {3.567946353670864*^9, 3.5679464127169676`*^9}, { 3.5679466013368993`*^9, 3.5679466311173515`*^9}, {3.5679467590999765`*^9, 3.567946915739851*^9}, {3.5679469466123056`*^9, 3.567946946815106*^9}, { 3.5679471385082426`*^9, 3.5679471497870626`*^9}, {3.5679483907224417`*^9, 3.5679484036080647`*^9}, {3.567948441937332*^9, 3.5679484421869326`*^9}, { 3.567948496740228*^9, 3.56794849772303*^9}, {3.567948847912445*^9, 3.5679488949933276`*^9}, {3.568011728877214*^9, 3.5680117308213253`*^9}, { 3.568011766325356*^9, 3.568011773436763*^9}, {3.5681173314452896`*^9, 3.5681173370612993`*^9}, {3.568117919800323*^9, 3.5681179678952074`*^9}, { 3.56811809459863*^9, 3.568118105409449*^9}, {3.5681181818963833`*^9, 3.5681182389144835`*^9}, {3.568118274888147*^9, 3.5681182883977704`*^9}, { 3.568118518513775*^9, 3.56811852739019*^9}, {3.5681188250543127`*^9, 3.568118862634779*^9}, {3.568118972396572*^9, 3.5681189862493963`*^9}, { 3.568119020694257*^9, 3.568119047136303*^9}, {3.5681190903015785`*^9, 3.568119136930061*^9}, {3.5681191671005135`*^9, 3.568119202808976*^9}, { 3.5681194788046613`*^9, 3.568119487603077*^9}, {3.5681195353235607`*^9, 3.5681195410331707`*^9}, 3.56811959201406*^9, {3.5681196426985493`*^9, 3.568119659702579*^9}, {3.568119726813897*^9, 3.56811974027672*^9}, { 3.5681199008322024`*^9, 3.568119920691037*^9}, {3.5681199536070952`*^9, 3.568119958521104*^9}, {3.568120000641178*^9, 3.568120067206495*^9}, { 3.5681211528280015`*^9, 3.5681211643408213`*^9}, 3.5681213201694956`*^9, { 3.568121503313817*^9, 3.568121508961027*^9}, {3.568266015439999*^9, 3.5682660461096525`*^9}, 3.568277806081108*^9, {3.568381589141924*^9, 3.568381589391525*^9}, 3.5688217602599955`*^9, {3.568821800305266*^9, 3.568821801397268*^9}, 3.5693901242572327`*^9, {3.570559203182847*^9, 3.5705592101248593`*^9}}], Cell[CellGroupData[{ Cell[BoxData[ RowBox[{"\[IndentingNewLine]", RowBox[{"ChemicalData", "\[NoBreak]", "[", RowBox[{"\"\\"", ",", "\"\\""}], "]"}]}]], "Input", CellChangeTimes->{{3.570856658569998*^9, 3.5708566598024*^9}, 3.5709425310382767`*^9}], Cell[BoxData[ GraphicsBox[{{ {GrayLevel[0], AbsoluteThickness[0.55], InsetBox[ StyleBox["\<\"O\"\>", StripOnInput->False, ScriptSizeMultipliers->0.8, ScriptMinSize->8, FontSize->Scaled[0.006189383406757125], FontWeight->Plain], {253.69000000000003`, 0.}], LineBox[{{259.01805455965354`, 3.0758887886234265`}, {296.995, 25.}}], {GrayLevel[0], InsetBox[ StyleBox["\<\"C\"\>", StripOnInput->False, ScriptSizeMultipliers->0.8, ScriptMinSize->8, FontSize->Scaled[0.006189383406757125], FontWeight->Plain], {340.3, 50.}], LineBox[{{296.995, 25.}, {335.499950847159, 47.228929019258175`}}]}}, {GrayLevel[0], AbsoluteThickness[0.55], InsetBox[ StyleBox["\<\"O\"\>", StripOnInput->False, ScriptSizeMultipliers->0.8, ScriptMinSize->8, FontSize->Scaled[0.006189383406757125], FontWeight->Plain], {253.69000000000003`, 0.}], LineBox[{{248.36214885456243`, 3.0762411158235237`}, { 226.84500000000003`, 15.5}}], {GrayLevel[0], InsetBox[ StyleBox["\<\"H\"\>", StripOnInput->False, ScriptSizeMultipliers->0.8, ScriptMinSize->8, FontSize->Scaled[0.006189383406757125], FontWeight->Plain], {200., 31.}], LineBox[{{226.84500000000003`, 15.5}, {204.7998658967906, 28.228611607366197`}}]}}, {GrayLevel[0], AbsoluteThickness[0.55], InsetBox[ StyleBox["\<\"C\"\>", StripOnInput->False, ScriptSizeMultipliers->0.8, ScriptMinSize->8, FontSize->Scaled[0.006189383406757125], FontWeight->Plain], {1206.32, 50.}], LineBox[{{1211.1199105991946`, 47.22868903048804}, {1249.62, 25.}}], {GrayLevel[0], InsetBox[ StyleBox["\<\"C\"\>", StripOnInput->False, ScriptSizeMultipliers->0.8, ScriptMinSize->8, FontSize->Scaled[0.006189383406757125], FontWeight->Plain], {1292.92, 0.}], LineBox[{{1249.62, 25.}, {1288.1200894008055`, 2.7713109695119447`}}]}}, {GrayLevel[0], AbsoluteThickness[0.55], InsetBox[ StyleBox["\<\"C\"\>", StripOnInput->False, ScriptSizeMultipliers->0.8, ScriptMinSize->8, FontSize->Scaled[0.006189383406757125], FontWeight->Plain], {1206.32, 50.}], LineBox[{{1201.5200894008053`, 47.22868903048804}, {1163.02, 25.}}], {GrayLevel[0], InsetBox[ StyleBox["\<\"C\"\>", StripOnInput->False, ScriptSizeMultipliers->0.8, ScriptMinSize->8, FontSize->Scaled[0.006189383406757125], FontWeight->Plain], {1119.72, 0.}], LineBox[{{1163.02, 25.}, {1124.5199105991946`, 2.7713109695119558`}}]}}, {GrayLevel[0], AbsoluteThickness[0.55], InsetBox[ StyleBox["\<\"C\"\>", StripOnInput->False, ScriptSizeMultipliers->0.8, ScriptMinSize->8, FontSize->Scaled[0.006189383406757125], FontWeight->Plain], {1206.32, 50.}], LineBox[{{1209.0913109695118`, 54.7999105991947}, {1231.32, 93.30000000000001}}], {GrayLevel[0], InsetBox[ StyleBox["\<\"C\"\>", StripOnInput->False, ScriptSizeMultipliers->0.8, ScriptMinSize->8, FontSize->Scaled[0.006189383406757125], FontWeight->Plain], {1256.32, 136.60000000000002`}], LineBox[{{1231.32, 93.30000000000001}, {1253.548689030488, 131.80008940080532`}}]}}, {GrayLevel[0], AbsoluteThickness[0.55], InsetBox[ StyleBox["\<\"C\"\>", StripOnInput->False, ScriptSizeMultipliers->0.8, ScriptMinSize->8, FontSize->Scaled[0.006189383406757125], FontWeight->Plain], {1206.32, 50.}], LineBox[{{1203.548689030488, 54.7999105991947}, {1181.32, 93.30000000000001}}], {GrayLevel[0], InsetBox[ StyleBox["\<\"C\"\>", StripOnInput->False, ScriptSizeMultipliers->0.8, ScriptMinSize->8, FontSize->Scaled[0.006189383406757125], FontWeight->Plain], {1156.32, 136.60000000000002`}], LineBox[{{1181.32, 93.30000000000001}, {1159.0913109695118`, 131.80008940080532`}}]}}, {GrayLevel[0], AbsoluteThickness[0.55], InsetBox[ StyleBox["\<\"C\"\>", StripOnInput->False, ScriptSizeMultipliers->0.8, ScriptMinSize->8, FontSize->Scaled[0.006189383406757125], FontWeight->Plain], {1292.92, 0.}], LineBox[{{1292.92, -5.5424999999999045`}, {1292.92, -50.}}], {GrayLevel[0], InsetBox[ StyleBox["\<\"C\"\>", StripOnInput->False, ScriptSizeMultipliers->0.8, ScriptMinSize->8, FontSize->Scaled[0.006189383406757125], FontWeight->Plain], {1292.92, -100.}], LineBox[{{1292.92, -50.}, {1292.92, -94.4575000000001}}]}}, {GrayLevel[0], AbsoluteThickness[0.55], InsetBox[ StyleBox["\<\"C\"\>", StripOnInput->False, ScriptSizeMultipliers->0.8, ScriptMinSize->8, FontSize->Scaled[0.006189383406757125], FontWeight->Plain], {1292.92, 0.}], LineBox[{{1298.3782438477342`, -0.9627462535227007}, {1323.45, -5.385}}], {GrayLevel[0], InsetBox[ StyleBox["\<\"H\"\>", StripOnInput->False, ScriptSizeMultipliers->0.8, ScriptMinSize->8, FontSize->Scaled[0.006189383406757125], FontWeight->Plain], {1353.98, -10.77}], LineBox[{{1323.45, -5.385}, { 1348.5217561522659`, -9.807253746477299}}]}}, {GrayLevel[0], AbsoluteThickness[0.55], InsetBox[ StyleBox["\<\"C\"\>", StripOnInput->False, ScriptSizeMultipliers->0.8, ScriptMinSize->8, FontSize->Scaled[0.006189383406757125], FontWeight->Plain], {1292.92, 0.}], LineBox[{{1294.8160487556408`, 5.208099976597248}, {1303.525, 29.13}}], {GrayLevel[0], InsetBox[ StyleBox["\<\"H\"\>", StripOnInput->False, ScriptSizeMultipliers->0.8, ScriptMinSize->8, FontSize->Scaled[0.006189383406757125], FontWeight->Plain], {1314.1299999999999`, 58.26}], LineBox[{{1303.525, 29.13}, {1312.233951244359, 53.05190002340274}}]}}, {GrayLevel[0], AbsoluteThickness[0.55], InsetBox[ StyleBox["\<\"C\"\>", StripOnInput->False, ScriptSizeMultipliers->0.8, ScriptMinSize->8, FontSize->Scaled[0.006189383406757125], FontWeight->Plain], {1292.92, -100.}], LineBox[{{1288.1200894008055`, -102.77131096951194`}, {1249.62, -125.}}], {GrayLevel[0], InsetBox[ StyleBox["\<\"C\"\>", StripOnInput->False, ScriptSizeMultipliers->0.8, ScriptMinSize->8, FontSize->Scaled[0.006189383406757125], FontWeight->Plain], {1206.32, -150.}], LineBox[{{1249.62, -125.}, { 1211.1199105991946`, -147.22868903048806`}}]}}, {GrayLevel[0], AbsoluteThickness[0.55], InsetBox[ StyleBox["\<\"C\"\>", StripOnInput->False, ScriptSizeMultipliers->0.8, ScriptMinSize->8, FontSize->Scaled[0.006189383406757125], FontWeight->Plain], {1292.92, -100.}], LineBox[{{1294.8160487556408`, -105.20809997659725`}, { 1303.525, -129.13}}], {GrayLevel[0], InsetBox[ StyleBox["\<\"H\"\>", StripOnInput->False, ScriptSizeMultipliers->0.8, ScriptMinSize->8, FontSize->Scaled[0.006189383406757125], FontWeight->Plain], {1314.1299999999999`, -158.26}], LineBox[{{1303.525, -129.13}, { 1312.233951244359, -153.05190002340274`}}]}}, {GrayLevel[0], AbsoluteThickness[0.55], InsetBox[ StyleBox["\<\"C\"\>", StripOnInput->False, ScriptSizeMultipliers->0.8, ScriptMinSize->8, FontSize->Scaled[0.006189383406757125], FontWeight->Plain], {1292.92, -100.}], LineBox[{{1298.3782438477342`, -99.0372537464773}, { 1323.45, -94.61500000000001}}], {GrayLevel[0], InsetBox[ StyleBox["\<\"H\"\>", StripOnInput->False, ScriptSizeMultipliers->0.8, ScriptMinSize->8, FontSize->Scaled[0.006189383406757125], FontWeight->Plain], {1353.98, -89.23}], LineBox[{{1323.45, -94.61500000000001}, { 1348.5217561522659`, -90.1927462535227}}]}}, {GrayLevel[0], AbsoluteThickness[0.55], InsetBox[ StyleBox["\<\"C\"\>", StripOnInput->False, ScriptSizeMultipliers->0.8, ScriptMinSize->8, FontSize->Scaled[0.006189383406757125], FontWeight->Plain], {1119.72, 0.}], LineBox[{{{1124.72, -5.5424999999999045`}, {1124.72, -50.}}, {{ 1114.72, -5.5424999999999045`}, {1114.72, -50.}}}], {GrayLevel[0], InsetBox[ StyleBox["\<\"C\"\>", StripOnInput->False, ScriptSizeMultipliers->0.8, ScriptMinSize->8, FontSize->Scaled[0.006189383406757125], FontWeight->Plain], {1119.72, -100.}], LineBox[{{{1124.72, -50.}, {1124.72, -94.4575000000001}}, {{ 1114.72, -50.}, {1114.72, -94.4575000000001}}}]}}, {GrayLevel[0], AbsoluteThickness[0.55], InsetBox[ StyleBox["\<\"C\"\>", StripOnInput->False, ScriptSizeMultipliers->0.8, ScriptMinSize->8, FontSize->Scaled[0.006189383406757125], FontWeight->Plain], {1119.72, 0.}], LineBox[{{1114.9200894008054`, 2.7713109695119558`}, {1076.42, 25.}}], {GrayLevel[0], InsetBox[ StyleBox["\<\"C\"\>", StripOnInput->False, ScriptSizeMultipliers->0.8, ScriptMinSize->8, FontSize->Scaled[0.006189383406757125], FontWeight->Plain], {1033.1200000000001`, 50.}], LineBox[{{1076.42, 25.}, {1037.9199105991947`, 47.22868903048804}}]}}, {GrayLevel[0], AbsoluteThickness[0.55], InsetBox[ StyleBox["\<\"C\"\>", StripOnInput->False, ScriptSizeMultipliers->0.8, ScriptMinSize->8, FontSize->Scaled[0.006189383406757125], FontWeight->Plain], {1206.32, -150.}], LineBox[{{1201.5200894008053`, -147.22868903048806`}, {1163.02, -125.}}], {GrayLevel[0], InsetBox[ StyleBox["\<\"C\"\>", StripOnInput->False, ScriptSizeMultipliers->0.8, ScriptMinSize->8, FontSize->Scaled[0.006189383406757125], FontWeight->Plain], {1119.72, -100.}], LineBox[{{1163.02, -125.}, { 1124.5199105991946`, -102.77131096951196`}}]}}, {GrayLevel[0], AbsoluteThickness[0.55], InsetBox[ StyleBox["\<\"C\"\>", StripOnInput->False, ScriptSizeMultipliers->0.8, ScriptMinSize->8, FontSize->Scaled[0.006189383406757125], FontWeight->Plain], {1206.32, -150.}], LineBox[{{1202.7572888934917`, -154.24575032492038`}, { 1186.395, -173.745}}], {GrayLevel[0], InsetBox[ StyleBox["\<\"H\"\>", StripOnInput->False, ScriptSizeMultipliers->0.8, ScriptMinSize->8, FontSize->Scaled[0.006189383406757125], FontWeight->Plain], {1166.47, -197.49}], LineBox[{{1186.395, -173.745}, { 1170.0327111065083`, -193.24424967507963`}}]}}, {GrayLevel[0], AbsoluteThickness[0.55], InsetBox[ StyleBox["\<\"C\"\>", StripOnInput->False, ScriptSizeMultipliers->0.8, ScriptMinSize->8, FontSize->Scaled[0.006189383406757125], FontWeight->Plain], {1206.32, -150.}], LineBox[{{1209.8827111065082`, -154.24575032492038`}, { 1226.245, -173.745}}], {GrayLevel[0], InsetBox[ StyleBox["\<\"H\"\>", StripOnInput->False, ScriptSizeMultipliers->0.8, ScriptMinSize->8, FontSize->Scaled[0.006189383406757125], FontWeight->Plain], {1246.17, -197.49}], LineBox[{{1226.245, -173.745}, { 1242.6072888934918`, -193.24424967507963`}}]}}, {GrayLevel[0], AbsoluteThickness[0.55], InsetBox[ StyleBox["\<\"C\"\>", StripOnInput->False, ScriptSizeMultipliers->0.8, ScriptMinSize->8, FontSize->Scaled[0.006189383406757125], FontWeight->Plain], {1119.72, -100.}], LineBox[{{1114.9200894008054`, -102.77131096951196`}, {1076.42, -125.}}], {GrayLevel[0], InsetBox[ StyleBox["\<\"C\"\>", StripOnInput->False, ScriptSizeMultipliers->0.8, ScriptMinSize->8, FontSize->Scaled[0.006189383406757125], FontWeight->Plain], {1033.1200000000001`, -150.}], LineBox[{{1076.42, -125.}, { 1037.9199105991947`, -147.22868903048806`}}]}}, {GrayLevel[0], AbsoluteThickness[0.55], InsetBox[ StyleBox["\<\"C\"\>", StripOnInput->False, ScriptSizeMultipliers->0.8, ScriptMinSize->8, FontSize->Scaled[0.006189383406757125], FontWeight->Plain], {1256.32, 136.60000000000002`}], LineBox[{{1251.5201341032093`, 139.37138839263383`}, {1229.475, 152.10000000000002`}}], {GrayLevel[0], InsetBox[ StyleBox["\<\"H\"\>", StripOnInput->False, ScriptSizeMultipliers->0.8, ScriptMinSize->8, FontSize->Scaled[0.006189383406757125], FontWeight->Plain], {1202.63, 167.6}], LineBox[{{1229.475, 152.10000000000002`}, {1207.4298658967907`, 164.82861160736618`}}]}}, {GrayLevel[0], AbsoluteThickness[0.55], InsetBox[ StyleBox["\<\"C\"\>", StripOnInput->False, ScriptSizeMultipliers->0.8, ScriptMinSize->8, FontSize->Scaled[0.006189383406757125], FontWeight->Plain], {1256.32, 136.60000000000002`}], LineBox[{{1259.0910013130706`, 141.40008937135133`}, { 1271.8200000000002`, 163.45000000000002`}}], {GrayLevel[0], InsetBox[ StyleBox["\<\"H\"\>", StripOnInput->False, ScriptSizeMultipliers->0.8, ScriptMinSize->8, FontSize->Scaled[0.006189383406757125], FontWeight->Plain], {1287.3200000000002`, 190.3}], LineBox[{{1271.8200000000002`, 163.45000000000002`}, { 1284.5489986869295`, 185.49991062864868`}}]}}, {GrayLevel[0], AbsoluteThickness[0.55], InsetBox[ StyleBox["\<\"C\"\>", StripOnInput->False, ScriptSizeMultipliers->0.8, ScriptMinSize->8, FontSize->Scaled[0.006189383406757125], FontWeight->Plain], {1256.32, 136.60000000000002`}], LineBox[{{1261.1200893713512`, 133.82899868692942`}, {1283.17, 121.10000000000002`}}], {GrayLevel[0], InsetBox[ StyleBox["\<\"H\"\>", StripOnInput->False, ScriptSizeMultipliers->0.8, ScriptMinSize->8, FontSize->Scaled[0.006189383406757125], FontWeight->Plain], {1310.02, 105.60000000000001`}], LineBox[{{1283.17, 121.10000000000002`}, {1305.2199106286487`, 108.37100131307062`}}]}}, {GrayLevel[0], AbsoluteThickness[0.55], InsetBox[ StyleBox["\<\"C\"\>", StripOnInput->False, ScriptSizeMultipliers->0.8, ScriptMinSize->8, FontSize->Scaled[0.006189383406757125], FontWeight->Plain], {1156.32, 136.60000000000002`}], LineBox[{{1151.5201341032093`, 133.8286116073662}, {1129.475, 121.10000000000002`}}], {GrayLevel[0], InsetBox[ StyleBox["\<\"H\"\>", StripOnInput->False, ScriptSizeMultipliers->0.8, ScriptMinSize->8, FontSize->Scaled[0.006189383406757125], FontWeight->Plain], {1102.63, 105.60000000000001`}], LineBox[{{1129.475, 121.10000000000002`}, {1107.4298658967907`, 108.37138839263383`}}]}}, {GrayLevel[0], AbsoluteThickness[0.55], InsetBox[ StyleBox["\<\"C\"\>", StripOnInput->False, ScriptSizeMultipliers->0.8, ScriptMinSize->8, FontSize->Scaled[0.006189383406757125], FontWeight->Plain], {1156.32, 136.60000000000002`}], LineBox[{{1153.5489986869293`, 141.40008937135136`}, {1140.82, 163.45000000000002`}}], {GrayLevel[0], InsetBox[ StyleBox["\<\"H\"\>", StripOnInput->False, ScriptSizeMultipliers->0.8, ScriptMinSize->8, FontSize->Scaled[0.006189383406757125], FontWeight->Plain], {1125.32, 190.3}], LineBox[{{1140.82, 163.45000000000002`}, {1128.0910013130706`, 185.49991062864868`}}]}}, {GrayLevel[0], AbsoluteThickness[0.55], InsetBox[ StyleBox["\<\"C\"\>", StripOnInput->False, ScriptSizeMultipliers->0.8, ScriptMinSize->8, FontSize->Scaled[0.006189383406757125], FontWeight->Plain], {1156.32, 136.60000000000002`}], LineBox[{{1161.1200893713512`, 139.37100131307062`}, {1183.17, 152.10000000000002`}}], {GrayLevel[0], InsetBox[ StyleBox["\<\"H\"\>", StripOnInput->False, ScriptSizeMultipliers->0.8, ScriptMinSize->8, FontSize->Scaled[0.006189383406757125], FontWeight->Plain], {1210.02, 167.6}], LineBox[{{1183.17, 152.10000000000002`}, {1205.2199106286487`, 164.8289986869294}}]}}, {GrayLevel[0], AbsoluteThickness[0.55], InsetBox[ StyleBox["\<\"C\"\>", StripOnInput->False, ScriptSizeMultipliers->0.8, ScriptMinSize->8, FontSize->Scaled[0.006189383406757125], FontWeight->Plain], {1033.1200000000001`, 50.}], LineBox[{{{1030.8199508471591`, 42.898429019258174`}, {992.315, 20.669499999999992`}}, {{1025.8199508471591`, 51.55942901925819}, { 987.315, 29.330500000000008`}}}], {GrayLevel[0], InsetBox[ StyleBox["\<\"C\"\>", StripOnInput->False, ScriptSizeMultipliers->0.8, ScriptMinSize->8, FontSize->Scaled[0.006189383406757125], FontWeight->Plain], {946.51, 0.}], LineBox[{{{992.315, 20.669499999999992`}, { 953.810049152841, -1.5594290192581859`}}, {{987.315, 29.330500000000008`}, {948.810049152841, 7.101570980741828}}}]}}, {GrayLevel[0], AbsoluteThickness[0.55], InsetBox[ StyleBox["\<\"C\"\>", StripOnInput->False, ScriptSizeMultipliers->0.8, ScriptMinSize->8, FontSize->Scaled[0.006189383406757125], FontWeight->Plain], {1033.1200000000001`, 50.}], LineBox[{{1033.1200000000001`, 55.542499999999905`}, { 1033.1200000000001`, 81.}}], {GrayLevel[0], InsetBox[ StyleBox["\<\"H\"\>", StripOnInput->False, ScriptSizeMultipliers->0.8, ScriptMinSize->8, FontSize->Scaled[0.006189383406757125], FontWeight->Plain], {1033.1200000000001`, 112.00000000000001`}], LineBox[{{1033.1200000000001`, 81.}, {1033.1200000000001`, 106.45750000000011`}}]}}, {GrayLevel[0], AbsoluteThickness[0.55], InsetBox[ StyleBox["\<\"C\"\>", StripOnInput->False, ScriptSizeMultipliers->0.8, ScriptMinSize->8, FontSize->Scaled[0.006189383406757125], FontWeight->Plain], {1033.1200000000001`, -150.}], LineBox[{{1035.8913883926339`, -154.79986589679064`}, { 1048.62, -176.84500000000003`}}], {GrayLevel[0], InsetBox[ StyleBox["\<\"H\"\>", StripOnInput->False, ScriptSizeMultipliers->0.8, ScriptMinSize->8, FontSize->Scaled[0.006189383406757125], FontWeight->Plain], {1064.12, -203.69000000000003`}], LineBox[{{1048.62, -176.84500000000003`}, { 1061.3486116073661`, -198.89013410320942`}}]}}, {GrayLevel[0], AbsoluteThickness[0.55], InsetBox[ StyleBox["\<\"C\"\>", StripOnInput->False, ScriptSizeMultipliers->0.8, ScriptMinSize->8, FontSize->Scaled[0.006189383406757125], FontWeight->Plain], {1033.1200000000001`, -150.}], LineBox[{{1028.3199106286488`, -152.7710013130706}, {1006.27, -165.5}}], {GrayLevel[0], InsetBox[ StyleBox["\<\"H\"\>", StripOnInput->False, ScriptSizeMultipliers->0.8, ScriptMinSize->8, FontSize->Scaled[0.006189383406757125], FontWeight->Plain], {979.42, -181.}], LineBox[{{1006.27, -165.5}, {984.2200893713513, -178.2289986869294}}]}}, {GrayLevel[0], AbsoluteThickness[0.55], InsetBox[ StyleBox["\<\"C\"\>", StripOnInput->False, ScriptSizeMultipliers->0.8, ScriptMinSize->8, FontSize->Scaled[0.006189383406757125], FontWeight->Plain], {1033.1200000000001`, -150.}], LineBox[{{1030.3486116073664`, -145.2001341032094}, { 1017.6200000000001`, -123.155}}], {GrayLevel[0], InsetBox[ StyleBox["\<\"H\"\>", StripOnInput->False, ScriptSizeMultipliers->0.8, ScriptMinSize->8, FontSize->Scaled[0.006189383406757125], FontWeight->Plain], {1002.12, -96.31}], LineBox[{{1017.6200000000001`, -123.155}, { 1004.8913883926339`, -101.10986589679061`}}]}}, {GrayLevel[0], AbsoluteThickness[0.55], InsetBox[ StyleBox["\<\"C\"\>", StripOnInput->False, ScriptSizeMultipliers->0.8, ScriptMinSize->8, FontSize->Scaled[0.006189383406757125], FontWeight->Plain], {946.51, 0.}], LineBox[{{941.7100894008053, 2.7713109695119558`}, {903.21, 25.}}], {GrayLevel[0], InsetBox[ StyleBox["\<\"C\"\>", StripOnInput->False, ScriptSizeMultipliers->0.8, ScriptMinSize->8, FontSize->Scaled[0.006189383406757125], FontWeight->Plain], {859.91, 50.}], LineBox[{{903.21, 25.}, {864.7099105991947, 47.22868903048805}}]}}, {GrayLevel[0], AbsoluteThickness[0.55], InsetBox[ StyleBox["\<\"C\"\>", StripOnInput->False, ScriptSizeMultipliers->0.8, ScriptMinSize->8, FontSize->Scaled[0.006189383406757125], FontWeight->Plain], {946.51, 0.}], LineBox[{{946.51, -5.5424999999999045`}, {946.51, -31.}}], {GrayLevel[0], InsetBox[ StyleBox["\<\"H\"\>", StripOnInput->False, ScriptSizeMultipliers->0.8, ScriptMinSize->8, FontSize->Scaled[0.006189383406757125], FontWeight->Plain], {946.51, -62.}], LineBox[{{946.51, -31.}, {946.51, -56.457500000000095`}}]}}, {GrayLevel[0], AbsoluteThickness[0.55], InsetBox[ StyleBox["\<\"C\"\>", StripOnInput->False, ScriptSizeMultipliers->0.8, ScriptMinSize->8, FontSize->Scaled[0.006189383406757125], FontWeight->Plain], {859.91, 50.}], LineBox[{{859.91, 55.542499999999905`}, {859.91, 100.}}], {GrayLevel[0], InsetBox[ StyleBox["\<\"C\"\>", StripOnInput->False, ScriptSizeMultipliers->0.8, ScriptMinSize->8, FontSize->Scaled[0.006189383406757125], FontWeight->Plain], {859.91, 150.}], LineBox[{{859.91, 100.}, {859.91, 144.4575000000001}}]}}, {GrayLevel[0], AbsoluteThickness[0.55], InsetBox[ StyleBox["\<\"C\"\>", StripOnInput->False, ScriptSizeMultipliers->0.8, ScriptMinSize->8, FontSize->Scaled[0.006189383406757125], FontWeight->Plain], {859.91, 50.}], LineBox[{{{857.6100894008052, 42.89868903048804}, {819.11, 20.670000000000005`}}, {{852.6100894008052, 51.55868903048804}, {814.11, 29.329999999999995`}}}], {GrayLevel[0], InsetBox[ StyleBox["\<\"C\"\>", StripOnInput->False, ScriptSizeMultipliers->0.8, ScriptMinSize->8, FontSize->Scaled[0.006189383406757125], FontWeight->Plain], {773.3100000000001, 0.}], LineBox[{{{819.11, 20.670000000000005`}, { 780.6099105991948, -1.5586890304880399`}}, {{814.11, 29.329999999999995`}, {775.6099105991948, 7.101310969511951}}}]}}, {GrayLevel[0], AbsoluteThickness[0.55], InsetBox[ StyleBox["\<\"C\"\>", StripOnInput->False, ScriptSizeMultipliers->0.8, ScriptMinSize->8, FontSize->Scaled[0.006189383406757125], FontWeight->Plain], {859.91, 150.}], LineBox[{{865.4524999999999, 150.}, {890.91, 150.}}], {GrayLevel[0], InsetBox[ StyleBox["\<\"H\"\>", StripOnInput->False, ScriptSizeMultipliers->0.8, ScriptMinSize->8, FontSize->Scaled[0.006189383406757125], FontWeight->Plain], {921.91, 150.}], LineBox[{{890.91, 150.}, {916.3675000000001, 150.}}]}}, {GrayLevel[0], AbsoluteThickness[0.55], InsetBox[ StyleBox["\<\"C\"\>", StripOnInput->False, ScriptSizeMultipliers->0.8, ScriptMinSize->8, FontSize->Scaled[0.006189383406757125], FontWeight->Plain], {859.91, 150.}], LineBox[{{859.91, 155.5424999999999}, {859.91, 181.}}], {GrayLevel[0], InsetBox[ StyleBox["\<\"H\"\>", StripOnInput->False, ScriptSizeMultipliers->0.8, ScriptMinSize->8, FontSize->Scaled[0.006189383406757125], FontWeight->Plain], {859.91, 212.}], LineBox[{{859.91, 181.}, {859.91, 206.4575000000001}}]}}, {GrayLevel[0], AbsoluteThickness[0.55], InsetBox[ StyleBox["\<\"C\"\>", StripOnInput->False, ScriptSizeMultipliers->0.8, ScriptMinSize->8, FontSize->Scaled[0.006189383406757125], FontWeight->Plain], {859.91, 150.}], LineBox[{{854.3675000000001, 150.}, {828.91, 150.}}], {GrayLevel[0], InsetBox[ StyleBox["\<\"H\"\>", StripOnInput->False, ScriptSizeMultipliers->0.8, ScriptMinSize->8, FontSize->Scaled[0.006189383406757125], FontWeight->Plain], {797.91, 150.}], LineBox[{{828.91, 150.}, {803.4524999999999, 150.}}]}}, {GrayLevel[0], AbsoluteThickness[0.55], InsetBox[ StyleBox["\<\"C\"\>", StripOnInput->False, ScriptSizeMultipliers->0.8, ScriptMinSize->8, FontSize->Scaled[0.006189383406757125], FontWeight->Plain], {773.3100000000001, 0.}], LineBox[{{768.5100894008053, 2.771310969511951}, {730.01, 25.}}], {GrayLevel[0], InsetBox[ StyleBox["\<\"C\"\>", StripOnInput->False, ScriptSizeMultipliers->0.8, ScriptMinSize->8, FontSize->Scaled[0.006189383406757125], FontWeight->Plain], {686.7099999999999, 50.}], LineBox[{{730.01, 25.}, {691.5099105991947, 47.22868903048805}}]}}, {GrayLevel[0], AbsoluteThickness[0.55], InsetBox[ StyleBox["\<\"C\"\>", StripOnInput->False, ScriptSizeMultipliers->0.8, ScriptMinSize->8, FontSize->Scaled[0.006189383406757125], FontWeight->Plain], {773.3100000000001, 0.}], LineBox[{{773.3100000000001, -5.5424999999999045`}, { 773.3100000000001, -31.}}], {GrayLevel[0], InsetBox[ StyleBox["\<\"H\"\>", StripOnInput->False, ScriptSizeMultipliers->0.8, ScriptMinSize->8, FontSize->Scaled[0.006189383406757125], FontWeight->Plain], {773.3100000000001, -62.}], LineBox[{{773.3100000000001, -31.}, { 773.3100000000001, -56.457500000000095`}}]}}, {GrayLevel[0], AbsoluteThickness[0.55], InsetBox[ StyleBox["\<\"C\"\>", StripOnInput->False, ScriptSizeMultipliers->0.8, ScriptMinSize->8, FontSize->Scaled[0.006189383406757125], FontWeight->Plain], {686.7099999999999, 50.}], LineBox[{{{684.4099508471589, 42.89842901925818}, {645.905, 20.669500000000006`}}, {{679.4099508471589, 51.55942901925817}, { 640.905, 29.330499999999994`}}}], {GrayLevel[0], InsetBox[ StyleBox["\<\"C\"\>", StripOnInput->False, ScriptSizeMultipliers->0.8, ScriptMinSize->8, FontSize->Scaled[0.006189383406757125], FontWeight->Plain], {600.1, 0.}], LineBox[{{{645.905, 20.669500000000006`}, { 607.400049152841, -1.5594290192581686`}}, {{640.905, 29.330499999999994`}, {602.400049152841, 7.101570980741823}}}]}}, {GrayLevel[0], AbsoluteThickness[0.55], InsetBox[ StyleBox["\<\"C\"\>", StripOnInput->False, ScriptSizeMultipliers->0.8, ScriptMinSize->8, FontSize->Scaled[0.006189383406757125], FontWeight->Plain], {686.7099999999999, 50.}], LineBox[{{686.7099999999999, 55.542499999999905`}, {686.7099999999999, 81.}}], {GrayLevel[0], InsetBox[ StyleBox["\<\"H\"\>", StripOnInput->False, ScriptSizeMultipliers->0.8, ScriptMinSize->8, FontSize->Scaled[0.006189383406757125], FontWeight->Plain], {686.7099999999999, 112.00000000000001`}], LineBox[{{686.7099999999999, 81.}, {686.7099999999999, 106.45750000000011`}}]}}, {GrayLevel[0], AbsoluteThickness[0.55], InsetBox[ StyleBox["\<\"C\"\>", StripOnInput->False, ScriptSizeMultipliers->0.8, ScriptMinSize->8, FontSize->Scaled[0.006189383406757125], FontWeight->Plain], {600.1, 0.}], LineBox[{{595.3000894008053, 2.771310969511951}, {556.8, 25.}}], {GrayLevel[0], InsetBox[ StyleBox["\<\"C\"\>", StripOnInput->False, ScriptSizeMultipliers->0.8, ScriptMinSize->8, FontSize->Scaled[0.006189383406757125], FontWeight->Plain], {513.5, 50.}], LineBox[{{556.8, 25.}, {518.2999105991947, 47.22868903048804}}]}}, {GrayLevel[0], AbsoluteThickness[0.55], InsetBox[ StyleBox["\<\"C\"\>", StripOnInput->False, ScriptSizeMultipliers->0.8, ScriptMinSize->8, FontSize->Scaled[0.006189383406757125], FontWeight->Plain], {600.1, 0.}], LineBox[{{600.1, -5.5424999999999045`}, {600.1, -31.}}], {GrayLevel[0], InsetBox[ StyleBox["\<\"H\"\>", StripOnInput->False, ScriptSizeMultipliers->0.8, ScriptMinSize->8, FontSize->Scaled[0.006189383406757125], FontWeight->Plain], {600.1, -62.}], LineBox[{{600.1, -31.}, {600.1, -56.457500000000095`}}]}}, {GrayLevel[0], AbsoluteThickness[0.55], InsetBox[ StyleBox["\<\"C\"\>", StripOnInput->False, ScriptSizeMultipliers->0.8, ScriptMinSize->8, FontSize->Scaled[0.006189383406757125], FontWeight->Plain], {513.5, 50.}], LineBox[{{513.5, 55.542499999999905`}, {513.5, 100.}}], {GrayLevel[0], InsetBox[ StyleBox["\<\"C\"\>", StripOnInput->False, ScriptSizeMultipliers->0.8, ScriptMinSize->8, FontSize->Scaled[0.006189383406757125], FontWeight->Plain], {513.5, 150.}], LineBox[{{513.5, 100.}, {513.5, 144.4575000000001}}]}}, {GrayLevel[0], AbsoluteThickness[0.55], InsetBox[ StyleBox["\<\"C\"\>", StripOnInput->False, ScriptSizeMultipliers->0.8, ScriptMinSize->8, FontSize->Scaled[0.006189383406757125], FontWeight->Plain], {513.5, 50.}], LineBox[{{{511.2000894008053, 42.89868903048804}, {472.70000000000005`, 20.67}}, {{506.2000894008053, 51.55868903048804}, {467.70000000000005`, 29.33}}}], {GrayLevel[0], InsetBox[ StyleBox["\<\"C\"\>", StripOnInput->False, ScriptSizeMultipliers->0.8, ScriptMinSize->8, FontSize->Scaled[0.006189383406757125], FontWeight->Plain], {426.90000000000003`, 0.}], LineBox[{{{472.70000000000005`, 20.67}, { 434.19991059919477`, -1.5586890304880456`}}, {{467.70000000000005`, 29.33}, {429.19991059919477`, 7.101310969511951}}}]}}, {GrayLevel[0], AbsoluteThickness[0.55], InsetBox[ StyleBox["\<\"C\"\>", StripOnInput->False, ScriptSizeMultipliers->0.8, ScriptMinSize->8, FontSize->Scaled[0.006189383406757125], FontWeight->Plain], {513.5, 150.}], LineBox[{{507.9575000000001, 150.}, {482.5, 150.}}], {GrayLevel[0], InsetBox[ StyleBox["\<\"H\"\>", StripOnInput->False, ScriptSizeMultipliers->0.8, ScriptMinSize->8, FontSize->Scaled[0.006189383406757125], FontWeight->Plain], {451.49999999999994`, 150.}], LineBox[{{482.5, 150.}, {457.04249999999985`, 150.}}]}}, {GrayLevel[0], AbsoluteThickness[0.55], InsetBox[ StyleBox["\<\"C\"\>", StripOnInput->False, ScriptSizeMultipliers->0.8, ScriptMinSize->8, FontSize->Scaled[0.006189383406757125], FontWeight->Plain], {513.5, 150.}], LineBox[{{513.5, 155.5424999999999}, {513.5, 181.}}], {GrayLevel[0], InsetBox[ StyleBox["\<\"H\"\>", StripOnInput->False, ScriptSizeMultipliers->0.8, ScriptMinSize->8, FontSize->Scaled[0.006189383406757125], FontWeight->Plain], {513.5, 212.}], LineBox[{{513.5, 181.}, {513.5, 206.4575000000001}}]}}, {GrayLevel[0], AbsoluteThickness[0.55], InsetBox[ StyleBox["\<\"C\"\>", StripOnInput->False, ScriptSizeMultipliers->0.8, ScriptMinSize->8, FontSize->Scaled[0.006189383406757125], FontWeight->Plain], {513.5, 150.}], LineBox[{{519.0424999999999, 150.}, {544.5, 150.}}], {GrayLevel[0], InsetBox[ StyleBox["\<\"H\"\>", StripOnInput->False, ScriptSizeMultipliers->0.8, ScriptMinSize->8, FontSize->Scaled[0.006189383406757125], FontWeight->Plain], {575.5, 150.}], LineBox[{{544.5, 150.}, {569.9575000000001, 150.}}]}}, {GrayLevel[0], AbsoluteThickness[0.55], InsetBox[ StyleBox["\<\"C\"\>", StripOnInput->False, ScriptSizeMultipliers->0.8, ScriptMinSize->8, FontSize->Scaled[0.006189383406757125], FontWeight->Plain], {426.90000000000003`, 0.}], LineBox[{{422.1000894008053, 2.7713109695119527`}, {383.6, 25.}}], {GrayLevel[0], InsetBox[ StyleBox["\<\"C\"\>", StripOnInput->False, ScriptSizeMultipliers->0.8, ScriptMinSize->8, FontSize->Scaled[0.006189383406757125], FontWeight->Plain], {340.3, 50.}], LineBox[{{383.6, 25.}, {345.09991059919474`, 47.22868903048805}}]}}, {GrayLevel[0], AbsoluteThickness[0.55], InsetBox[ StyleBox["\<\"C\"\>", StripOnInput->False, ScriptSizeMultipliers->0.8, ScriptMinSize->8, FontSize->Scaled[0.006189383406757125], FontWeight->Plain], {426.90000000000003`, 0.}], LineBox[{{426.90000000000003`, -5.5424999999999045`}, { 426.90000000000003`, -31.}}], {GrayLevel[0], InsetBox[ StyleBox["\<\"H\"\>", StripOnInput->False, ScriptSizeMultipliers->0.8, ScriptMinSize->8, FontSize->Scaled[0.006189383406757125], FontWeight->Plain], {426.90000000000003`, -62.}], LineBox[{{426.90000000000003`, -31.}, { 426.90000000000003`, -56.457500000000095`}}]}}, {GrayLevel[0], AbsoluteThickness[0.55], InsetBox[ StyleBox["\<\"C\"\>", StripOnInput->False, ScriptSizeMultipliers->0.8, ScriptMinSize->8, FontSize->Scaled[0.006189383406757125], FontWeight->Plain], {340.3, 50.}], LineBox[{{336.7367643491139, 54.245310111906214`}, {320.37, 73.745}}], {GrayLevel[0], InsetBox[ StyleBox["\<\"H\"\>", StripOnInput->False, ScriptSizeMultipliers->0.8, ScriptMinSize->8, FontSize->Scaled[0.006189383406757125], FontWeight->Plain], {300.44, 97.49}], LineBox[{{320.37, 73.745}, {304.0032356508861, 93.24468988809379}}]}}, {GrayLevel[0], AbsoluteThickness[0.55], InsetBox[ StyleBox["\<\"C\"\>", StripOnInput->False, ScriptSizeMultipliers->0.8, ScriptMinSize->8, FontSize->Scaled[0.006189383406757125], FontWeight->Plain], {340.3, 50.}], LineBox[{{343.8627111065083, 54.24575032492039}, {360.225, 73.745}}], {GrayLevel[0], InsetBox[ StyleBox["\<\"H\"\>", StripOnInput->False, ScriptSizeMultipliers->0.8, ScriptMinSize->8, FontSize->Scaled[0.006189383406757125], FontWeight->Plain], {380.15, 97.49}], LineBox[{{360.225, 73.745}, {376.5872888934917, 93.2442496750796}}]}}}, {}, {}}, ImageSize->Large, PlotRange->{{180., 1373.98}, {-216.16070000000002`, 224.4707}}]], "Output", CellChangeTimes->{3.571766381831193*^9, 3.5717667147981777`*^9, 3.5717668578660293`*^9, 3.5717672261202765`*^9}] }, Open ]], Cell[BoxData[ RowBox[{ StyleBox[ RowBox[{"(*", " ", RowBox[{"Distance", " ", "Matrix", " ", "Bohr"}], " ", "*)"}], "Text"], "\[IndentingNewLine]", RowBox[{ RowBox[{"dc", "=", RowBox[{"Table", "[", RowBox[{ RowBox[{"Sqrt", "[", RowBox[{ RowBox[{ RowBox[{"(", RowBox[{ RowBox[{"t", "[", RowBox[{"[", RowBox[{"i", ",", "1"}], "]"}], "]"}], "-", RowBox[{"t", "[", RowBox[{"[", RowBox[{"j", ",", "1"}], "]"}], "]"}]}], ")"}], "^", "2"}], "+", RowBox[{ RowBox[{"(", RowBox[{ RowBox[{"t", "[", RowBox[{"[", RowBox[{"i", ",", "2"}], "]"}], "]"}], "-", RowBox[{"t", "[", RowBox[{"[", RowBox[{"j", ",", "2"}], "]"}], "]"}]}], ")"}], "^", "2"}], "+", RowBox[{ RowBox[{"(", RowBox[{ RowBox[{"t", "[", RowBox[{"[", RowBox[{"i", ",", "3"}], "]"}], "]"}], "-", RowBox[{"t", "[", RowBox[{"[", RowBox[{"j", ",", "3"}], "]"}], "]"}]}], ")"}], "^", "2"}]}], "]"}], ",", RowBox[{"{", RowBox[{"i", ",", "1", ",", "n"}], "}"}], ",", RowBox[{"{", RowBox[{"j", ",", "1", ",", "n"}], "}"}]}], "]"}]}], ";"}]}]], "Input", CellChangeTimes->{{3.5678630319943895`*^9, 3.5678630956269007`*^9}, { 3.5678632280087337`*^9, 3.567863228336334*^9}, {3.5678632621727934`*^9, 3.5678633509213495`*^9}, {3.5678644293824434`*^9, 3.567864451908883*^9}, { 3.567864923404111*^9, 3.56786494544695*^9}, {3.5678650143210707`*^9, 3.5678650845367947`*^9}, {3.567869231084096*^9, 3.5678692412397137`*^9}, 3.5678693168686466`*^9, {3.5678704450470285`*^9, 3.5678704621290584`*^9}, 3.5682783281584253`*^9, 3.5688732159715385`*^9, 3.568910867647065*^9, 3.5689997098549547`*^9, 3.5689998170427427`*^9, 3.5689998869620657`*^9, 3.5691460426137285`*^9, 3.569237204536323*^9, 3.5692374658523817`*^9, 3.56923802264856*^9, 3.5693403424181123`*^9, 3.5693404502143016`*^9, 3.569340738019207*^9, 3.569340852851009*^9, 3.5693411655067577`*^9, 3.5693414978029413`*^9, 3.5693426144373026`*^9, 3.5693435671777763`*^9, 3.569343662743544*^9, 3.569343763644521*^9, 3.569344071177861*^9, 3.569344266271804*^9, 3.570297558707776*^9, {3.5703416079688015`*^9, 3.570341617375618*^9}, {3.5705956885798426`*^9, 3.5705957106070814`*^9}, { 3.5705965150536942`*^9, 3.5705965239457097`*^9}}], Cell[BoxData[{ RowBox[{ RowBox[{"x", "=", RowBox[{"Table", "[", RowBox[{ RowBox[{"t", "[", RowBox[{"[", RowBox[{"i", ",", "1"}], "]"}], "]"}], ",", RowBox[{"{", RowBox[{"i", ",", "1", ",", "n"}], "}"}]}], "]"}]}], ";"}], "\[IndentingNewLine]", RowBox[{ RowBox[{"y", "=", RowBox[{"Table", "[", RowBox[{ RowBox[{"t", "[", RowBox[{"[", RowBox[{"i", ",", "2"}], "]"}], "]"}], ",", RowBox[{"{", RowBox[{"i", ",", "1", ",", "n"}], "}"}]}], "]"}]}], ";"}], "\[IndentingNewLine]", RowBox[{ RowBox[{"z", "=", RowBox[{"Table", "[", RowBox[{ RowBox[{"t", "[", RowBox[{"[", RowBox[{"i", ",", "3"}], "]"}], "]"}], ",", RowBox[{"{", RowBox[{"i", ",", "1", ",", "n"}], "}"}]}], "]"}]}], ";"}]}], "Input", CellChangeTimes->{{3.5678630319943895`*^9, 3.5678630956269007`*^9}, { 3.5678632280087337`*^9, 3.567863228336334*^9}, {3.5678632621727934`*^9, 3.5678633509213495`*^9}, {3.5678644293824434`*^9, 3.567864451908883*^9}, { 3.567864923404111*^9, 3.56786494544695*^9}, {3.5678650143210707`*^9, 3.5678650845367947`*^9}, {3.567869231084096*^9, 3.567869278118179*^9}, { 3.5682778102931156`*^9, 3.5682778156907253`*^9}}], Cell[CellGroupData[{ Cell[BoxData[ RowBox[{ RowBox[{"(*", " ", RowBox[{"connected", " ", RowBox[{"pairs", ":", " ", RowBox[{ RowBox[{"distance", " ", "criteria"}], " ", "<", " ", RowBox[{"3.0", " ", "bohr"}]}]}]}], " ", "*)"}], "\[IndentingNewLine]", RowBox[{ RowBox[{ RowBox[{"Dij", "=", RowBox[{"Table", "[", RowBox[{ RowBox[{"If", "[", RowBox[{ RowBox[{"(", 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.5717663818935933`*^9, 3.5717667148605785`*^9, 3.5717668579284296`*^9, 3.5717672261826763`*^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.5717663819091935`*^9, 3.571766714891778*^9, 3.5717668579596295`*^9, 3.5717672262138767`*^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.5717663819247932`*^9, 3.571766714907378*^9, 3.5717668579752293`*^9, 3.5717672262294765`*^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.5717663819247932`*^9, 3.5717667149385786`*^9, 3.5717668580064297`*^9, 3.5717672262606764`*^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.5717663819403934`*^9, 3.5717667149541783`*^9, 3.57176685802203*^9, 3.5717672262762766`*^9}], Cell[BoxData[ RowBox[{"2.5431421108019188`", "\[PlusMinus]", "0.031636158469768805`"}]], "Output", CellChangeTimes->{3.5717663819403934`*^9, 3.5717667149541783`*^9, 3.57176685802203*^9, 3.5717672262762766`*^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.5717663819559937`*^9, 3.571766714969778*^9, 3.5717668580376296`*^9, 3.5717672262918763`*^9}], Cell[BoxData[ RowBox[{"2.825453749813209`", "\[PlusMinus]", "0.07826166491129996`"}]], "Output", CellChangeTimes->{3.5717663819559937`*^9, 3.571766714969778*^9, 3.5717668580376296`*^9, 3.5717672262918763`*^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.571766381971594*^9, 3.5717667149853783`*^9, 3.5717668580532293`*^9, 3.571767226307476*^9}], Cell[BoxData[ RowBox[{"2.055894359505152`", "\[PlusMinus]", "0.007777002172673114`"}]], "Output", CellChangeTimes->{3.571766381971594*^9, 3.5717667149853783`*^9, 3.5717668580532293`*^9, 3.571767226307476*^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.5717663819871936`*^9, 3.5717667150165787`*^9, 3.5717668580688295`*^9, 3.5717672263386765`*^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.5717663820183935`*^9, 3.5717667150633783`*^9, 3.57176685811563*^9, 3.571767226369877*^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.5717663820183935`*^9, 3.5717667150789785`*^9, 3.57176685813123*^9, 3.5717672264010763`*^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.5717663820339937`*^9, 3.5717667150789785`*^9, 3.5717668581468296`*^9, 3.5717672264010763`*^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.571766382049594*^9, 3.571766715110179*^9, 3.57176685816243*^9, 3.5717672264322767`*^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.571766382049594*^9, 3.571766715110179*^9, 3.57176685817803*^9, 3.571767226447877*^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[{"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.5717663820651937`*^9, 3.571766715141379*^9, 3.57176685820923*^9, 3.571767226463477*^9}], Cell[BoxData[ RowBox[{"{", RowBox[{"12", ",", "11", ",", "13", ",", "14"}], "}"}]], "Output", CellChangeTimes->{3.5717663820651937`*^9, 3.571766715141379*^9, 3.57176685820923*^9, 3.571767226479077*^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}}], 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.5717663820807934`*^9, 3.5717667151569786`*^9, 3.5717668582248297`*^9, 3.5717672264946766`*^9}] }, Open ]], Cell[CellGroupData[{ Cell[BoxData[{ RowBox[{ RowBox[{ RowBox[{"p", "=", RowBox[{"v", ".", "Q"}]}], ";"}], "\[IndentingNewLine]"}], "\[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]"}], "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}}], 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.5717663820807934`*^9, 3.571766715172579*^9, 3.57176685824043*^9, 3.571767226510277*^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.5717663820963936`*^9, 3.5717667152193785`*^9, 3.5717668582716303`*^9, 3.571767226525877*^9}] }, Open ]], Cell[CellGroupData[{ Cell[BoxData[{ RowBox[{ RowBox[{"U", "=", "p"}], ";"}], "\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"}]}]}], "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}], 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.571766382111994*^9, 3.5717667152349787`*^9, 3.57176685828723*^9, 3.5717672265414767`*^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.571766382111994*^9, 3.5717667152349787`*^9, 3.57176685828723*^9, 3.5717672265570765`*^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.571766382127594*^9, 3.571766715250579*^9, 3.57176685831843*^9, 3.5717672265726767`*^9}] }, Open ]], Cell[CellGroupData[{ Cell[BoxData[{ RowBox[{ RowBox[{"U", "=", "p"}], ";"}], "\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"}]}]}], "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}], 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.5717663821431937`*^9, 3.571766715281779*^9, 3.57176685833403*^9, 3.571767226588277*^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.5717663821431937`*^9, 3.571766715281779*^9, 3.57176685833403*^9, 3.571767226588277*^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.5717663821587934`*^9, 3.5717667153129787`*^9, 3.5717668583496304`*^9, 3.571767226603877*^9}] }, Open ]], Cell[CellGroupData[{ Cell[BoxData[{ RowBox[{ RowBox[{"U", "=", "p"}], ";"}], "\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"}]}]}], "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}], 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.5717663821587934`*^9, 3.571766715328579*^9, 3.5717668583808303`*^9, 3.5717672266194773`*^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.5717663821587934`*^9, 3.571766715328579*^9, 3.5717668583808303`*^9, 3.5717672266350775`*^9}] }, Open ]], 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, AutomaticImageSize->True, Axes->Automatic, AxesLabel->{ FormBox["xl", TraditionalForm], FormBox["yl", TraditionalForm], FormBox["zl", TraditionalForm]}, Boxed->False, ImageSize->{360., 360.}, PlotRange->Automatic, SphericalRegion->True, ViewPoint->{0.08857085551040457, 0.6301405186914121, 3.323413626116599}, ViewVertical->{0.026674052781319936`, 0.902490183525992, 13.76093183136826}]], "Output", CellChangeTimes->{3.5717663821743937`*^9, 3.571766715359779*^9, 3.57176685841203*^9, 3.571767226650677*^9},ImageCache->GraphicsData["CompressedBitmap", "\<\ eJztfQd4nMd55huCVHGR7JyTSy65RHdOHHdLThwnTnFkqzdLstWLJdOiWCRK IlWoziJ2EiwgSABsIAgQHSB6772XRe8dWGCBRVu0xe7eN/PP/PvvYoFdxU7u nufCh7PY/Xf3fWfe+Wa+me+fmX345bc3v/L6y29v2fjybffuePnNzVs27rzt njd20CWvPwD+YDNLt4E9twHywUb/bVvYA7vyX8//6/l/0PNv8+deqKmpQW9v L3/1zy7ev3TpEhoaGn6f7z/K/2xA28QyJRtaDDY06m1oGLSiYfWvPcz/fBED M2YUDi6iRG9F0YgNBUM2ZPfZkNplQ1yLDZG1NoQVLaOhy4K61eEe5H9uxcyS GXUGE5qmrGietqGJkm7ShppxGyooV0WDBN9tQwpBx9TZEF5CKXIUjSUjqFkd /gH+50Z0T4yja3oOfXNW9C3Y0DdvwzD9HV9kEihCtI9SKVoJtpBynmpBUXAD qgV0cnIy8vLytND3i68NGPUYmp3G6MIyDGYbJpeZPMrXsqsJKt6C0mAdqlaH uk9ALSzNY3R6DFOL85hZtsJsteHL4mt6gxVh4QvozWlApTuo9Rgd78bsvBEL 5kVYrLZbJYregli/Hhi7R1CxOsq9AmVudgym6QGYFyZhtVq+KlGGzGgKy+Sv yt2heGFK34DlmUHYlufx38S12uvVmOgd4q/KVoe4R7y1NDeJhbEmWOdG6RX7 t175gP2fFGq2oxWD5bUOyKx5hYSErETegMXJfljGGmGjIkrEDeJrii/gDQlf ENdshh4M5Gd5Cm+e7IN1pF6FWQ1eWkx/Rox6rYg9rsOePXvoDYZ/+PBh/vdf HDmWJ3pgG6x24PBSvmun01UMIn1jCoaPRWC6qgU3yfJMD2MwP8FOSMpOTU1h cHCQJyrbOkbqxGkxdMI20ujAuV40NlmuML9K5H3QgspTerR/kARjTC69K2hn 9RgoSvZUxvrcFlK+y4WMN/HnYX5VqN7bgMI9XUjxHUX5iUG0v3oe843tUm3b VB96S1M8YyQDzWqGvrGDv+I6rmNPlUr7giheNWr2NaAqoB6G4xk4sb8VIb5m NB6oI5XDmcpeAsxq7IChs9odt2wwtSEpakkVwW4hthrUfNaAhsQmJH44AEtE HHTUIQbH2JB+ZkYVmH9vaQZmYycWZobL3bOlBVTxFu3IVotaYrP1tcNv/zQG jpXAlJHG343LteHYKSvXuOu9ICz0tmB2vB3j+iEP2IY7xpER3K1hu4Gz1e1X 2HRV8wh6ewRzh895ico/FUymmTaL7uhGNL7nw813Dab7xFsp5+qRnbUkOBS+ ML861B9gTG38yrEPJ9B6uA7WgmylgumTi8sWdI3MIDJpViibyJRdo97ul0qG DiC7yCqyzR6/Soz1Doy6iimc2jaKuePBvH+fon5+cnEJo7MT6B8acFBXWDBK 3FGvx2DrJIIvGBCWTh68z7ZefIOx6w42cnZZvrzsRVTHkNOqqIF+wYKB2Vn0 G8e0al/jZlyL4aPcjEXH4DIDigP/CtLTphGWQ36/nCqr04ZOcty9k6yV6FDm 3QZ9Tz8M5G0HyfN2z9lw5doseuKr0degg352VjphrUl3KMKjcHX2h4S91lTN 4GrCDCIqyT4bbUjrsOEMlTEuUo+KdgNqaIBTP6kMKc74TyL7015YwiJuEqxM 9ONOouevzvoI//NlVOtmkd1sQSQNSPb5diHnXDeqG/qQM2BD7sAy+metMNKw YOeT3dAfp7bZ046bpcwhisxNGplzV6d8TK3QRjQdYebUAlnJutpFRO8agnHv SdE1KTqGSB3fZzrmIMcz+GYBLztOnz1T6DlaAXNuhnBTQrDTVlRwwQK4YFme wDeh5agjvK5iDgFvjmL+6AXhw12Lk/F54JtFi/fC4V2jaGAtoChPhZfiZGjE SfcEvhmtxxR46ceObhrDrHcE5ttayAyFOHlCHG+7OKmewbcdd4SPDZ5F8b5O mEOCqY0p8KddiJPsCXwL2jl8k+r8P3xuBBPeabB0t6rwjuIkcHGSXMBzQ17P 3OEPXBB5OxKFXzYg5WMaaUXE4g9XyDSgypTggkiOvOSwYhXKjhMK5c3iWsDB aQweo56rt1OMOkm6azaE+i6RdDWqdHEuKL3Usq13Imfp+87krejk5I0qua56 ASHvDGPu0Fl8bQ1hI8Tn9Xo9xsfHefISj2woLDP0JRfZ+J6LbJxUsiEl8/7I iPbDtbAUZOGPNLJ7S9k3KbKHic8zyu3bt/PkJR6ffPJJ7Nq1y/NstKHrlGM2 dBUzOPMa83lB+O8uqyIMU5UtiNKoISlvFg5OS+nKANrQzVkb1KF0fPgcava3 YD7wssqq61HqIFNTB5EuWHnO+bDvdmeidnSfVoikGvtfHsWUdxzMnS34E0EU 70LlcBdEKxppO3qc4KOCppG7u4f8VTj+xxrqhXoI78Pgdep86Z2nBzF6PBvW njYVnsl0jcs0rcp0zRP4DvSecYTX1S3i+geDWI5Mwp+7FMefxGlDsPg8m3ts 3LjRHfwt4prvvin0Hi3HUk46/qdGnDAncYI8ge9Eny+Dr1fhdZXzuLRDT87p PP7CWRwfJk48F+eKe/hwDbycjh9934CmQ3StMBd/KcXJXynOZffwEQTff5bB 1wn49dTuDPDePAqTdxhMLS23CQYfVZ9qVZ+LHjD4E8M5heEr4tr1ayaU7euA Ofgq/tca+lxwDx/p34WBczrqr2shAw2fvKCH0TuF+6f/rdHnhJM+Ae7hoxi8 nyN8RKAR6Z/0wRIejb+S4oRqxDmiiOPnHj5aha8RDs4LFw5NY/h4AfdAf6UR J9RJnHPu4WP8uzHo7wivq1lE+HvDMB08g2+sIY6ve/jYADu8jNCc+mQSnUeq YcnPwt9oxAl3EsfHM/ihAAZfrcLrKmZxdjsN+44F4puuxNlF4kTn4LR7+OsB PSr818S1QyRM3YFmzFy8iG85iVMpxJkjcU66h48j+OHzDL5KOFEvHNw4imnv WCx1tODbzuLst4tzwoXD/CdH+PjzBH+h3gE++uoMCvZ0wxIaiu8I+AYmTqwN WVycOC6Ot3v4BBW+En8sru16ZhhjxzN5l/9djTgnuTj9JI4fF+eYJ/C9GLno CN9Qv4QEFqKITBCjgxugo6nSGVWgKhIolAl0xD1DomToqRRu3Avn9k+j/1gp FrLTxWhM0eejfXMO+uwX77GxHRvbsNTR0cHp/sWRJolo9JymQqVhsYgrO0cw f8RfjANIpwKNTq8oOu0T7zFoFsRk6dSpU65oki/0QX+J0ZSLsYIXjn04jpbD 9bAW5gga0qthzpVe+93rlUIMo5cdGVjQ4eRWNgC7hh9q9dq/4KDXZ+7hUzl8 HcGX4U9lCwkzoeKzNixdvYK/XUOnvR7AXyT4QILvLhOjES/s+fUoJr2TYOlq EfCkT9OCK312u2dIu9iPMc5QqjJEXplEFgsJhEfhR1p9Dixq9MnGp+7h0y8R /BUGX4I/E9d20Px/5Hg+NZIO/L2ATyB9Tvk46vOxZ/AGJ3g2/4+i+f/sgdP4 sarPIs6E2RDhqM+H4itsUD87O+uKIeMyMQQRQ1exGLB54fTuKXQfqcRyXib+ QaPPxweXhD7XMUH6fOAePpPgx53g1RDAsUv4iQt92oQ+uzyADxzA+FUGXyTG g0oIQHewCbaiAgFP+jQvqfo02/V51z1DlspQKIaEXjiyaQwz3lFYbG8RH7fr k+0zperzjnv47CsDmAiuha3TDs+iAEV7O7F8Tcb+7fpUefcp9tPQhp2fB75A jDiVKMC4dzqs3W0C3kmfz1R93nLPkBM0AGMIY8hXGdj0P/mjfh60/qmDPmYH fd50D597dZDDWzvycJu4FnCARaiLMZ+Zhn/T6HNa6NP2yjmuz3YP4a85wrPJ fPA75AYOn8Odqj5m+JI+kVyfSgwf5vq85p4hL3gQk9dqYGnPFUNmZZ7eJsLQ PxMFaGT6HHLUZ5t7+HwBv9yeo8Kz+bfPa0rM+S5nfY6TPr9V9NniHr4ghOBD Cb4tW4zIlYl21f5WLAYFCnjSp8WlPq96wjCEqdBqmNuy8HVx7TM+w07AMs2w 73bQZ1noE8v12eQevvAawYcRfGumCs9m2Dl8hh0h7lMo+vg46fNb8Xk2/WXT YBfwRQQ/TfBLrRlizO+Ft58aoBl2DnX/7QJ+VX1+4wFDKDGEV2OxJV1lYJPs 2PepYPtOqvelmT6fCH0631P0eUGws6UGcizEEtOL6JwGvsWCab45DX8trvnu ZfNtJRj8wKpSteI5wcTG1XI4xJJrppKwYcyEV8HUlKoysan3xbf0WDh6Qdxk YKotO6l2jan2gnvVOENEFWYaksVkSZl9N7LZd1G+uJFAqvWSaocdVXvePXxp OMFHVmFKlyTgldn3sc1KeHihreVhqVahVKtXVetZAaNdweCCYZYYJuoSxHRM mX2X0ux7OSRY3JMgiVqXcZYkiuISVUiJnnbPUBahMEwNtIgZmTIBn/BOJdfQ il84SGRBjpQoKhtPuYcvZ/BRytIFCR9OE/C0j/t4WPgxjT5nVH3Ocn2e8Aze JOC/Ja6xCfjQ8UI+AX9M1ceyQp/JipZfumeoiCSGaEcGXc0Cwt4dxtxhX/xy hT40gX4vhuvzuCfwI5iLVhZlyGU7J2kO3nG4hvxCFn61hj6Puod/+65rK+DV OfjxICGx0Cec6bOo1ecR9wzv3BWGuRiF4Tvi2kHSpvaAEoN9UqPPp0cc9XnY A/i7IzEv4L8r4TeO0TT8Oo+8PiXgE13o86B7+HfvjsZ8bLkDPJuG57NpeFgY npb6tCn6RAt9hhR97veA4Z5YleF74tp7fCaeRTPxdjwjCtDE9bE66HOfe/j3 7rmOBSf4hrolxH+oBF+f0+jj66TPPe7hd90Tp8J/X1w799k0+o6W8eDrc6o+ Vlf63OUBw70JWLhe5sDAZuCBO1n8NUA4L9f6/Nw9/Pv3JmJRwP9AXDv2wTia D+t4/PXFNfS50wP4+5KwGKeFX8+n3Se2jvH461xry4suJSrH0CEu0U/dk3xw XzKRlPJXt4trcaEmlH/WDnPIVbykleioo0T/6h7+w/tTVfg7xLU9L47C6J3M Q7AvO0lUzSXy5RL9s2fwS/GO8GzmnSFCsL9xoU8L1yeE6fMT8RXtMjEnho8e SCMGZbnED8U1NvmWUdiNGn12q/pEkz5ZYt5/AxYWFvgNOPaXJUH3z85M6SuY 2Dw8chcLyPrgFY1UZ7lUPWjbqEglYxhsbMTusd177708sX8rmT5+MANLCQrT 34prp3dPoutIFSz5mYJJUe3cStV+5F41haHYgUFXYYL/G0p49lUn1XJPk2rv Kqr9nXv4Tx7MhFnAy4+zKXk9TclNly5is5SqaKVUP/QA/qEsmBMVeFnYw6+w +XgMzB0tAt6uTwzTZ5+qz+3uGT7lDEUODDE0JS/c28UjtFvX0Ef2NNq7y87w D2er8H8vG/qzIzB4Z/AI7TatPmcc9fmee/jdD+fAnOQIz+bjSR+xRWTxeE3q 0+5Sn+94wpCL5SRllc6PxTX/A8qiscXsdLyu0WePkz7fdg+/55GV8GxKfvVt Fpn1wxsO+li4Pq1Cn296Ap9H8AX81T+Ia8flfLwwR8A761Mm9fmGe4a9jCFZ y/BlPiU/vW2MR2Snm1r41YZOA/pnbQhObkFwYiuC4lqRUWlAk96GyqwWtR02 Mx2PMR2NpGMU1/GvPcjGL/JgEdn4R/54C5+6p3xShc6Dx/naqIYpG+qNNtQY bCgfsaFoQFl2ncyWXdfaEJo4hoYqw6sayc+pkp/hkst1JLXtBnQQJFtb3jxG kDqDelt1jVzu+0U+5TJfk8sN6OzVY9/LLAiciPG2VhiX5Io+p1XboaMYax8T YQBRZRErqkxZIPBFtPYYkNNkQNU4FZZgioZsyO1VFo+xRWSR1TaEJFCBu6zq ogJtzvmtLL5I4BtOZXi0QC2DDJe2dA3y1XZBl6eU1WfhUer6CLZMPCp4DI0F w6tXcmSWWE1zA+lhQCUZS5fJhnHSYmzBhtklm7LA70b0UAV2GJRleFEVJE0+ SZNiRmPxiLpARVsOeddJG3b+umOJPmMlSsnTtMEbUVZci8nFRcxZlK+wMIf+ eB6PcsuSsVXr0ZeHYewcdejnnY1GLgYrKW3BCJVoZlmu+1nPljMiLJMtpKdp eYbpplVL4LhIxCZW6/6lc0kK1ZLI7rCvpx+zC9NYsljEKkklpBLzvhJUl5Wv H7Uixq+XSqO3uxWyMT8nGzNWtEiYirJmzC4rOfqSyKWeWkR2MVvOP4/s5Okb VyvQOnUht1Pl/IVjkfY/VgirKJL0T0N9Q+gl77dsnlfXMJ3ZqyzkY1F8tUjD y6gKU1YmbxEV68r0qkp1WLBY1Rv/2bnLCAucRlFUu7rU7ncsQK5jAXp6sDw3 KiQTdVI5hwtvKfcJ5OqYkuvd6CtQlvtLR8wszI8sLGd3NUpeOM0tTN7zz06Z Q5ifHvrBOdXqtBn/mgtTkqu/1y7FgceLYE11LMVgcxVfja3kS7l25H2DWJFY oJaiNSZNhd2qsayd7xYg1ndBsayD3LJkDYQFjOK6T5WDQK57p3XqM1EZshB/ 6VyAYiqAskpUDtRqiyr56nV76e0QCrZybdY7Ckvtih+Tjb9OjPXthboR9aV1 0A/ouY3tJRvL09iYukllcJGqqAszA4MuS2bf2+Cq53KqlYMrCrUBIx1tfDuA pn4hlz9rVxmW7FPuuaiNpVaHgYoKTYG8kBVlrzkpUPWxbt6zqQLJamZLjEri qu2lcCrZOtfGZ6/K25wK90uaF6RmOxTONj3Id1doC7feqXAfP69X7/ioG1sm ejFcW6Mp3BcR5hOh7U/592WHp5hlKb9GZqmWsYFGLPH+uZ+3jD9yLNkhVrI0 x5LVxsfw7Sra3CiN6i7+nEUTc3ZWo2ZnBmp2pKH6zRRUb09C1esJqNoWh8ot sajYHI3yTZEofyUcZRtD0fRBIBreDUDJi1dQ/MJlFD13EYXPnkfBMwHIf9of eU/7Ifepc8h58iyynziLzCd8kfGrM0j/pQ/SHj+NlMdPIfmxk0h89AQSfnEc cY8cQ+zDRxHz0BFEPngY4Q8eQugDBxFy/wFcvW8/Lt/7GS7csw9+d+9Bxq5Q DERWYiCiAv3hZegPK0VfaAn6rhWjN6QQvcEF6Lmaj56gPHRfyUV3YDa6ArPQ dTkTnZcy0HExHR0X0tB+PhVtAcmUktDqn4gWv4R1aPZLwJ+giR4bKTVQ0lGq p1RHqZZSDaVqSlWUKiiVUyqjVEqpmFIhpQJKeZRyKGVRyqCUQimRUoxfglxx lx2du8JO1on3ZEtn/zrfjeQtXW1Qg7PUJsp+V1v51UpbGa4uXpEjxVa+w5/7 bg3DSEg/inSLCGV7CUttiKAURSmmzIbrlOIpJVJKopRMqaxsCKXFvcigz2TS 6yz6m00ph1IuYeRRyi+m4SilQnJBRZSKaVhaQqm0gL7PEo3FyvNsqKBUmWtF ZY4VVTkWVGXTgIhSTdYyajIpZZhRm24mBerSlvA86lOXUJ+yiPrkReiSFqBL nEcDS/FzaIgzUZpFY+wMGmOm0Rg9jaaoKTRFTqIpwoim8Ak0hY2jOZTSNQOa Q8bQfHUUzUHUD18ZQXPgMJovD6H54iCaLwyg+Xw/mgP60Ozfi+ZzPWg+241m X0o+XWg63YGmU+1oOtGGJu9WNB1vRuPRJjQeaUDjIR05tjo07K9Fw2fV0O2t gm5PBXS7y6D7pBT1HxWj/sMi1L1fgLpdeah9Nwe1b2dRe01HzVupqH4jmdpr Iqpei0fV1uvUXmNQ8WoUtdcIlP02jNrrNZS+HIySXweh+MVAFD9/idrrBcf2 +pQfcqi9ZvP26osrD3pTe/Wh9nqa2quyJCeZ2mrio96IF+2V/SvY3YjG3eVo f8UX1v4OOUxmUYFtL32CC2d9oOzB81J34XluoId/RY4wLcvBQHV5zbCZjC6a zA3OaMjcXgRLz7hsNax3H2pW9hQqLfBPoNNbEdtiRVKHsgU3vZvsk1peDg2e 8/rJJmkiVzhI9kiplOY5ZcNkh5QqKFVRqqbJXg2lWkp1NN+sp6Rju4H1fFfw Oj4J9UIzPbZQatWzsrfxa+302CHSOnTya1302D2ipHXoGSGA3hE2q+ijxz7i 6xdpgCXKz+ksC/ypbVykNnKZ2s1VakPXqD2FObXLWNEuE0TbZO0yhVIapXRK Gc7tslS0yxLRLouVdnn0wxLKGGuZX+Rtk/0rd2qbfAjwSQ06AoYwWb6A+elR h/nToQ/PozArXXnFN0l6eWQOR1aYgxfqc5pg02u2G2o2cNKk5ef+mMs1wGY2 q32n1dCCqVHFG8ob9yM0kQnzq9CY5s0OeWkkPx29/Sq/ZsiZxQzNROYt9t2n CYH2wcw6TUlXjrz+3rFIR5+gTjw906FIwzTn02V3CJtWriX55aPFm4aJxlmV 1La8gEGd0l3LBQ5hPkWajCgi6CjzV7ZcQNamePXaosXexUu8rLCENQvhFHA4 9qQ963LYHrTLrsN68cjorz4bj+WmSSwvzarVsDBB1TCgyf3NCD2aScOgCRXC f9NZxD97DQNhIxijRjmxaFMHu7qC0s+TW+8nyym3GQ65rU3vhK7QoMmtF86/ HgND1BBs83N2i7GYMTHcBaNhTET9boSuqIcspgeZfqkIeew8us/T9LbdgtlF mzrX627qwkhX56pe2imLJ56yZ1HOsNOvdEM/suxQyuaKHhS9W46l3lF7Fq0W LC5Oo6OtSQ0bXnznEnb/NARpH7XDqDNjcMqqroHuqNep6smsaTcoOGXtJM9a ukPWhtqMuHqij0/uZdaO3XcZ88VUgctL6vh42WrDnHkJswuzasy0nWzi+L8d QN3uKrSnTuPyaQM6BiwydzOT0xjq7XOomDVyd+ppe+7kOr6hjmkEX5mCftyG Y5suo+tsB6yTUzI2wnaQTpot1N+OwTBu3CoMsInyFfNGMEp35mE8l9q50cbD NCEnuhAWZOJllbVrsVqhq20UYrvN5OmnqXtJV5qHjG0Nds7g+PEeHNveiJG6 KczNGSG3VrIWOmG2YYQMyrC4jLHxKdFd3aA0qa0XkPNqIvRJk+gbsLLPS6c6 1DaBEN9hhEWZWSBJBg/NlOHa+k4YjVNqv7JGhs88QxnOUPbf/aMgDnozEeU0 MgrLW0R+mw3tY5TJOZuXeNtktvG9qkMLyl7VThM5K8OsDC8EUHNOeD4Ug+F6 jPVpD5FYD/3wkrIPN8mKhm6bnBSZSIWyum5MGGfUvX1r5NmX5Tk9VSPyrYj1 y0IleSPb6Bz6+kxILjUhON+ExBYajXYpHr6UvGsllaWarKWgh+qZCjBsmBWC b0CWfyquPX4B3Rf7MNGhtHIZVBxon0J2kRlhmVaEk4dsJq9smLXJOOv8MrM0 0oEgG7rHMDoxre7uW6MkZ5+tVNWX0fUzD4dgqdLIO3457e4ZNKGw1sCjxSxq XNpsUG98JPklwf/+U2g92QpjwzL6J61itvllVFdN40rcNMLLaWxQT2OBVvL7 pEbfNI0rZmk8Q0o0TCrniWQ3jWLUaFJbtHbNv1O2/Z5j2U7RNEVqnpuD0X+5 B5bJCewQonWQBXvfeRD1e6thrFzE+DRX6VbRDnv7aWROOqbWmXAxy4DgAgON agwo7p5D68gchgwmdd68Rm78eW6SHbotXUU7kjbnwtplxFsiN82Um+tvhKDs nXyM55kwrTT7b7hnCHh+JUPE2xmYyRjDErVm9SYIMQRvvYjcLUkYTZ5ET7+F tdhvumc4/3wVMSQ5OK54vxzoDjbANm4SazMVhvObziHphXAMRo7yBkZt8dvu GS68wBgS+au/0zjt809Ew1w3Cat5TrqUbP80hP3yInou9WOi04KZRfuijzUY Lq1gIAPfFgH9tX7MTQwLt7AByWSw5x84jbZTbZhsXMb8gn1Fwxrwl1+sVuHl fdjGik5kv1HMhv+iPdxAsiXg5M8OQbev1m50S7YfuGcI/DUxZCY4MOy/KwBz eeN8bCk7ZmZIcW9eQ/m7hRjPn8M0tSDTsu0O9wxXOEM8fyVv3ib5F6D1RCsf 9Klhc2K4tu0S8ramYDR1CiaDDQsW29+6Zwh6yc5wh6aag59LhKVpio3NNmlI Lrzqh+QXIzEURX1WP79X8iP3JFdfpo42M05DQva1PRbjMcqQapOo6Rz/dET8 6jJ6Awcw0WXlhvRj9/DBv7HDyxvQbDhU/F4Flvr06uqBFL9kXHzQB20+7Zhs WsbcgvRha8Jf28jgrzvAH78/EAslypBmo8aQTv38MHT762CsXoJhxsburf1Y sLMuna3XlImxOS1OCP0tY4rlr6T9HX81EN1+nWyYoi7paKGaiH8rFBW7ijFR qBoUX9LhxZfqOgZxf+JIE8ZoxMk431frvBXRv0mHtW0SprmJlwRTAzGFbruM /NfSMJY2LQ1LLq5ZgyT8lVoqS7SGhOzgzWRMJulhnZ/BrzVWdZGsKuWlKAxH G6BXrOpO9wwRm+wM8s49c+tVu+n62Jxg2IBcsqqoJwLRFzTIrWp6yaaucFoD PvJVgsmIcoD3/UUolqomua+VC6hSyaouPeSLjjMdmGxWrOpu9/BRm+sIXtkt LTvL01tCMBjYg2Xyic8LfRL8EnH650fRcFDHrWpsms14rPe4Z4jeYmeQ6w6Y n0veksf9nFxj1ko1kEjWVPV+CSaK5qgp2NhNtvvcM8RwhggHhsh3MjHL/JzJ KNbgKVYU9logCl7PwFj6NGbHuRU94J4hditjULZ6S6eV4JeLhkON3M+p6wiJ 4dJmf6S9HI3h2HGMkBXp520PuWe4vo0xKFv2v6XpAC8+GQNzPfdzci1knn8G op+8gr6rgxjvJkOi7ukR9wzxr9UTQ6iGwQvntkVCHzoA0/iQupIzjQwp8OGz 6DhLo/EWCzekR93DJ7xep8LLkUNjRRdy3yyBpXdcXYrKDMnnrmN8jbaxdgmj 1D0ZFqyPuWdIJAZr+jUHhoN3X8Bc/jjvAH+pMaSkHeGo+qAUE8Xz0pDkYmDt NgInhqTt9cSgbFqXy7GT/QvRfkrxc48LBhZxiXj9CgrfyMRY5gw3pHmL7Qn3 DMlv1MOSfpW/si8pJ6/5QhIszVMwL808qrGly5sDkL4xFiNxEximqcDwnPUp 9yQpb9ZjOS1IQ+KFi9uvq35OHhJ47hVfxD51Ff0hQxjvsWKKeqRn3MOncnhl c7xcoRLll4GS9yuxSH5OLilP90tB0CN+6PTrhrHVAhPZ6XPu4dPeqoc5LdAB /sQDV7BQyiYXi2JV8Q1IJEPyvfs4mo40wlhHk0nqkUbnLc+7Z0jfoYM5Vdl+ LzdbeL96BT3+in97SDC0UQ0c+ek+VH9UjomSeUxO8TUML7pnyNipw1LqJf7q 62o1tyH2txmwtk9i1jT+gMaWIl8PQvGb2TBkqbb0knuSzLd1WEy9qCHxQshb KZhKVlzb/RpDCtxyHpm/vY6R+AkMkSENmiy/cc+QxRhSlG3+cl/Qdb9sVO+p 465N7krx2+SL68/QROraMAw97Ogrm7qtZi34d3SYTw5wgD/7aJjq2uSunQwy pKu/8EeXPxlSm2JIrjYFOcFnv6uDKcmfv5Kbpny2XMPglV5ybePqMXSJNLA/ e683mo81wVhvxgj1SJvdw+e8p8NMorLNX91URn4tdWs+rN1G4XyVcNKxn+5H zccVmChdgFGxIrnCky2t1Y7H2D9iFIO/R1Vg6knfa8BUwlm1LLvvPIfZTAMW TRNiIHEDjxGxWHDJWzkwZM9iVokF8+LIIZnYraMtk6QJI5+Wt4s8fPwZtUzM zzUeaeJ+7mcak+JR21fioU8wYpBMimaMr4uvaPfUrGDIR/77OkwXpYuVCkoH eOmpWCwrfu5OUS9qgDV0BIZeK5sNiSmrG4YiFBCDradH3aro91oURsMGMGsY VPcSyuBo1/ke1are8gS+BIUfNHB4uZWziWonb0cp93NyJySLb/jddwItx1sw SVY1TN3TTk/gS1H0oSP8oXvIyRUoTk5u5VSDlJ9WwVhOVkXw08u2tz1hKEPx R4yhW91My53c6TbYJmfEZOAGTbgxV7mtYOSmJDfTapeEr2AoR4lg+HNNHYe9 mAxLCzm5xRl1x64IFma/mgB9IhnSIDekXZ6QVKD0Yy0JfXx7PMavD5OTM6lb jmVcbyBMD0MfTYWomj/wBL4SZZ8o8HJLdrRfJso+qCInN6KuYszyT0MoC75d sIfYP/IEvkrAd6nwJx+8ioUyxcnJ2RoLOgSwKBnNtCcbljFE1fyJJ/DVqPhU gZfb4U9sDkJvQBd5uEkRDboBcTRX9P63g6jbUw1jxSImCH7KbPvUE4YaVOym 0W9vlzgxQPFw11/J4h5uZtbwd4KExR1iNQEsEbfe4xlJ5R4tCU2Dd6RiKmUU FvJw6rkBMoC1WQlg9Ssh532eMNSiak8D30cgz1VgHq5mbz33cD/UMKgBrAgl gDWxaNvvGQM7xFTLcO6xcCxVK07uDlHT9uiVPYp70BP4OlTva+Tw8oSLM1tD MRTUCzM5OXnCRYomesXDrVNWHPYEvh41Al49CaSiA+mvFXAn9wOhD49e3XkI 9ftqePRKGNIRzxhqP2vkC0wlw96f+cGUpXg2edZIi0P0iqxoklvRMU8YdKjb rzDItWWJfnloOkpObcIkpr3K9DBERq9SpmQY1NtThgbOIJca8lHX03FY1nGn 9m2NISnRqwgMRY5hrJ/fajjpCUmDcuaoSuIF/9eiMRY+gBlDv3pijRq9uszC oEr06rQn8I3QHWjk+5nlcT5NFd3I36n4NXnejhq9Ot3Ow6C9kxac8Qyer4/U wB+59yLmC5Xo1d9oDOnUz0T0qmpJxt59PWFoUubjfe3qncSjmy6hw6ed+7Vv aAwpgUWt3ivCeIGIWllsPuJttoua3QOViY2WiPGfVpI1HlbIvqrWeCvCf50q XdxfacyKx662pWHUHrvyFW+ziB+77yoT48zLy1vB14ymww38yFe56DXwjQRM xCne7usa87r4qj8PYw1FG3hw1LBoOy/9vGY/zAr5msUZpG3qXcQYcnjlH1Zj gRze10X954kwVu8Ve3D0omfwzU7wpx8MxqJwePKcMVdhrMuewLeg5ahyJK68 CX9y81X0nVcc3m1CHzWMdaBeGxwN9Iyh9RhjaLUfJEcOL35TNqwdk2KoaQ9j VbIwlj0oGuQJQ+sKhrAd6ZhOZd5uWgzWtGGsdB7GEgYV7BlD23GFQR7lF0fe ru4zGi4b5sQ4yimMFaMGQ+VhgdplAisY2sR5pC3qyniG5v94BMw13OP9majp fP8MxLAwFouHdivx0DAPGby1DMzhhWH4ah85PIN62qE2jDUpwlgRnsErh462 qOsXGio6kfF6IXd4f6oxJCWMRbOlmiWMkSFNLNkiPWFoR+eJRn4irGTY93N/ mLKZwxsXXlyJPhz+171KGKtoHtNKGCvaM4aukwqDvC2aSPOu5mPN3OH9sWBQ w1jbMzGWMSPjobGeMHSg65TCcLOmmoOeiecOz2Ke+5rGlngY6zexGL4+Dj1N FfULtjjPSJTjPzXnv74eg7GIQerz5tUjWJUwVhD6g4eUeCgZkqsjZ13AK6dy 2k+0ZbdrCt8ug6XPoB4vq4axznWp8VBXR+eugO9cAX/03kuqw/uq0MchjFVr 5oY0vmh1dfavEwM7e7KXn/vZqDm5+DI6zygO7ysaQzr6r/tQ/aESxhLxUFeH FzsxsOMnlbM5G8WiDMXLRb6UBkvrJJYWp2/R2BILYxWxMJY9JOrqAGYnEnZE ZJ8DiReuvJEIY/wId21f1hiSGsaKm8AIi4fOWzM9ZPBVzl+Vi2Fi/LJQ8ZHi 2uQJ0iyMFfd0MPpDhtV4aPbq8Eog8mb0kbE0dxtQ1mrA3vdykfdRGnLC0xAQ UIyq/FaU5rSqa5B8HgrBYrni8uSx2w7hLREndXVoOMfgyxCVmZX6MyvtvWNI LWhFh0k5iZ2tcrnq2yVODlUGS11UH42NBlw9XUxT4vPov9jNHeMXhLosXHHu Hm8006CYRVNZWH5swZLnIh/Oe380OZIH1w/0j6K1ZwzDlJMZi01+gx14KTMl V1WykNn1F+PReykL+o4xuXBFiZp9pkTNShZk7LXARX5cneaszAzVH04Zovw0 dw/zHWhmq3qQPjvCcoAffqqDXLMSvjMD02mKxy30L+ZbDzeITK0SXeP7UJQ9 5o45c/WbIMqMUv3lhKF+PTq6+6jftajWr82WNBy2qqKeTTHITSvXvoDG4CIY 2kdVaN4Di6jcSLyR3zEYNFnzlOyxzehKVj5H9ro62rFkXhDlZ4838ZM5B9mp qH31Km3Ar6JgruX+fZ342NKoASUHYklAvUMob1wJ5bn65YVVFl4L45L3Gns7 2rA0Pw6rZVn0ezfy4zy1eTq7LRwjwcqIQO6TyT8ehJSnT6ErwB7wq3CRC/t6 WLHEV95GHe4bwuJ0H2xmk7rAih30OeSvELNlHVnbi0DjBLnozB4FbMZYcBxG qa8gvSpd0P7Ekay/pR7W6V4hJnu8hR/7qZDV8RUeppxxLMwqa0Q7tAHBMqXB THa1YqK+qco920B9EWwLE3aDUArwFbUq2JGg7DjWxA98lLW+E7MrIoSiOfDP W6cM6IqMWINaHh4y3DsAy0gtbEsmlxvylGtfVK+xo0OHKSdXn03AcsMUrmzy UcOHQ0r4UO0SlqqTVBxXVe2UlcHWJlgHqzS0jllRLPNGfqxo/b5qNO6rQMJz IrbYy9frqI3Y0piGvspKB2rtkjonavM4TVR6SzXUX1qxY0D7lx052rC/WY07 kjHLUYa1PRf9NZ4zj3XQBCZ/1QYoG4MQNTZmER3lVnaXRI4trT3FZEAeEy4N t8HalOGWUM6BrAMV6NN5CL8eNdmN1BUlOUC5chHqSnWyu+VhZYtc5erwsqXM lyRQu1TanAzD2OYn0Fed7SlE6flEGmG2OkBYp3oxpe91gNAuBnKC6CvvgEms +ZLhFJtlCUvUYxjH9OrvkrmAkN1o0alMLLYruZDxEjN1q92tyrJhDyCG2qfR EqiM8WRUYpm8xfCIUpDq1SGkgykI1GE8XdknICfui+QLh8ZGYTROqj8D5wJC rgy5fqEHTdeVzcJyVsuW5vaOGTFhnEbt6hDygKeyPANyo1phGjSoO9RZPzJK Dbq6gxq3caZudRS5NozNvIuLi0XPqaD09ZoQFdOPsioDhoZNchTNDjtgP1VX 2m5A/7hJ5x6c/ZNvKdX1BfQMmFBaY8CdD7yCC/HNiCs3IKnagNR6A9J0BhS1 kLfpNMgVK2yAwn79i70K84xRWrA0U+19JVenoNyuuSZ/+vCd1ankubns49oC sviFnPKxowxlm5XTHO1t2bWyoQ0X3q4pgvzu7Rpl5LVbPc+utlO+WaPaWtm9 UZMNqeSNmuxK1eQ1ZlTO19hrlgftNW3xb9QUS1a49A7sFCSZvz9bQyZtnl1d +5wyyY+tJZOn0mmzu9Y1V5J4ek1brJvWyJ/WmtbKi6sqY9dk9XhaZa50cVU9 XxJ1wExMHgjKEivTP63e+H6f1bSahTtLow1Y/kdVk6dm5GletN7938Pr3KIr Kipcmoe8Jjlk3txxaDs08RuH7KBW5ed/VmmuTEtpB2w7LPt7Ey/5evW1uCuy nmVE6ZqVckvzulFzzeGnj9bzLK3norGCiYPYbvg91MV/hl142r1o7WKtvPy+ 7fHfw3GDC12UZQ0Oq93ljakvs8f1LEe3MFvawEzpJhZV4LtRb+J0XjwT7LdN WeK/crpes8FaWtCNa1jVOmFBrEWw99irm9xZFePWHO+3llX9f1aTfMHUTezb G5hf+cP/typxHXvcICqRlYh9wakS/y8Jl7ymcOuZcDf/+4S7SVxj/+RdZocO lX2YlZq92iCusTEBi+Bp+m3Lajn8oujrK8SpNprv8Bfit8r5wHnV05ycfh6X X1QW16s/zqId/srn6zWhAs11/vvBt7qg4Y9/pMF1PtLIMRsrkderH3BCdvWz dt9VgZQRlnJh/e+Lcr3ju/zZ7S4+933Hd/mbH/8OGmh/ElrLw/45y8D+fUvl dxUY+YGLb9zh4nPfVakf+Z3zvuKHv29R37Ob6XfWzPY313z3Oxrr1MjzsHNT EF2Cs4ouCqa2gVvVd13V9Q9dXHNW2H0Gb19NWq/V3nA6JOwWD7PhqqI/f3Z3 qxV+h+vPuaJZGzJJLcod6rPvrfkN/vpPnY1U2wP+RzznNyt4d8evip8Vlb8/ JHOq/btj9bqlf8rOUTFIX1FUuaJYi+eqZ0rQZM6Dj+9wyq62KSRpoJx7Tvt3 Pc7SP7p46027IvZOTYsn8vAP6ud2rU4Qp34o6T/HAn6X5/iD/wMBAlXt\ \>"]] }, 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.5717663822211943`*^9, 3.571766715531379*^9, 3.5717668585836306`*^9, 3.5717672266974773`*^9}], Cell[BoxData["51"], "Output", CellChangeTimes->{3.5717663822211943`*^9, 3.571766715531379*^9, 3.5717668585836306`*^9, 3.5717672266974773`*^9}], Cell[BoxData["21"], "Output", CellChangeTimes->{3.5717663822211943`*^9, 3.571766715531379*^9, 3.5717668585836306`*^9, 3.5717672266974773`*^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[{"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}], Cell[BoxData[ Graphics3DBox[{ {RGBColor[0.7333333333333333, 0.6, 0.4666666666666667], SphereBox[{6.2984567579999995`, 0.87813677494, 4.5943018512}, 0.255]}, {RGBColor[0.7333333333333333, 0.6, 0.4666666666666667], SphereBox[{8.0912398142, 3.0808202978, 5.136275268}, 0.255]}, {RGBColor[0.7333333333333333, 0.6, 0.4666666666666667], SphereBox[{10.1614346472, 3.1034970098, 3.1087882425999998`}, 0.255]}, {RGBColor[0.7333333333333333, 0.6, 0.4666666666666667], SphereBox[{5.4828510164, 0.92895150708, 1.8780285960599998`}, 0.255]}, {RGBColor[0.7333333333333333, 0.6, 0.4666666666666667], SphereBox[{8.954466651, 3.8282069308, 0.5798057313199999}, 0.255]}, {RGBColor[0.7333333333333333, 0.6, 0.4666666666666667], SphereBox[{6.659205451399999, 2.2315774334, 0.10211134441}, 0.255]}, {RGBColor[0.7333333333333333, 0.6, 0.4666666666666667], SphereBox[{7.652445436999999, -1.61707633272, 5.1421334186}, 0.255]}, {RGBColor[0.7333333333333333, 0.6, 0.4666666666666667], SphereBox[{3.9725819972, 1.10059531966, 6.2977008676}, 0.255]}, {RGBColor[0.7333333333333333, 0.6, 0.4666666666666667], SphereBox[{3.2546750897999996`, -0.53636093058, 1.15904454484}, 0.255]}, {RGBColor[0.7333333333333333, 0.6, 0.4666666666666667], SphereBox[{5.6393203292, 2.1062885995999996`, -2.5537757163999997`}, 0.255]}, {RGBColor[0.7333333333333333, 0.6, 0.4666666666666667], SphereBox[{1.2153772769, 0.6439052372399999, 0.150276680698}, 0.255]}, {RGBColor[0.7333333333333333, 0.6, 0.4666666666666667], SphereBox[{-1.00289648546, -0.7372954961599999, -0.36513285772}, 0.255]}, {RGBColor[0.7333333333333333, 0.6, 0.4666666666666667], SphereBox[{-1.10875893598, -3.5256617982, 0.20480850387999996`}, 0.255]}, {RGBColor[0.7333333333333333, 0.6, 0.4666666666666667], SphereBox[{-3.047183175, 0.44584305518, -1.3762307540199998`}, 0.255]}, {RGBColor[0.7333333333333333, 0.6, 0.4666666666666667], SphereBox[{-5.1780382126, -0.97286873932, -2.1119577776}, 0.255]}, {RGBColor[0.7333333333333333, 0.6, 0.4666666666666667], SphereBox[{-7.2930195518, 0.22196721596, -2.9294532452}, 0.255]}, {RGBColor[0.7333333333333333, 0.6, 0.4666666666666667], SphereBox[{-9.5026761636, -1.24914668052, -3.692524604}, 0.255]}, {RGBColor[0.7333333333333333, 0.6, 0.4666666666666667], SphereBox[{-9.4310555482, -4.0933354886, -3.5706372769999994`}, 0.255]}, {RGBColor[0.7333333333333333, 0.6, 0.4666666666666667], SphereBox[{-11.584965243, -0.072731774288, -4.4973589074}, 0.255]}, {RGBColor[0.7333333333333333, 0.6, 0.4666666666666667], SphereBox[{-13.7116628834, -1.5733480730799998`, -5.6533043016}, 0.255]}, {RGBColor[1, NCache[ Rational[1, 3], 0.3333333333333333], NCache[ Rational[1, 3], 0.3333333333333333]], SphereBox[{-14.6026686924, -0.31240950232, -7.868819063999999}, 0.178]}, {RGBColor[0.7333333333333333, 0.6, 0.4666666666666667], SphereBox[{8.9455849388, 2.8361007808000003`, 6.994820788999999}, 0.1]}, {RGBColor[0.7333333333333333, 0.6, 0.4666666666666667], SphereBox[{7.045654418399999, 4.8545171214, 5.077693761999999}, 0.1]}, {RGBColor[0.7333333333333333, 0.6, 0.4666666666666667], SphereBox[{11.011055456799998`, 1.2324226054199998`, 2.9663029022}, 0.1]}, {RGBColor[0.7333333333333333, 0.6, 0.4666666666666667], SphereBox[{11.60291764, 4.4877213048, 3.6071089888}, 0.1]}, {RGBColor[0.7333333333333333, 0.6, 0.4666666666666667], SphereBox[{8.4075799466, 5.8133640938, 0.62856066212}, 0.1]}, {RGBColor[0.7333333333333333, 0.6, 0.4666666666666667], SphereBox[{10.3173370422, 3.5362442637999996`, -0.9369639453199999}, 0.1]}, {RGBColor[0.7333333333333333, 0.6, 0.4666666666666667], SphereBox[{6.3706442912, -3.1879677619999995`, 4.7785501362}, 0.1]}, {RGBColor[0.7333333333333333, 0.6, 0.4666666666666667], SphereBox[{8.2460083736, -1.6577243389799998`, 7.113873526999999}, 0.1]}, {RGBColor[0.7333333333333333, 0.6, 0.4666666666666667], SphereBox[{9.305010823999998, -1.78331552894, 3.924016039}, 0.1]}, {RGBColor[0.7333333333333333, 0.6, 0.4666666666666667], SphereBox[{2.6287978386, -0.38658124782, 5.8226237512}, 0.1]}, {RGBColor[0.7333333333333333, 0.6, 0.4666666666666667], SphereBox[{3.0889461196, 2.9398467381999995`, 6.0161316936}, 0.1]}, {RGBColor[0.7333333333333333, 0.6, 0.4666666666666667], SphereBox[{4.5430902766, 0.9068606101399999, 8.2673622774}, 0.1]}, {RGBColor[0.7333333333333333, 0.6, 0.4666666666666667], SphereBox[{3.2353998846, -2.5602007847999997`, 1.42313375334}, 0.1]}, {RGBColor[0.7333333333333333, 0.6, 0.4666666666666667], SphereBox[{6.8030136, 3.2707377608, -3.7919241915999997`}, 0.1]}, {RGBColor[0.7333333333333333, 0.6, 0.4666666666666667], SphereBox[{3.7010283709999996`, 2.8028416031999996`, -2.5785311269999998`}, 0.1]}, {RGBColor[0.7333333333333333, 0.6, 0.4666666666666667], SphereBox[{5.6759810136, 0.15492918610999998`, -3.2121562547999996`}, 0.1]}, {RGBColor[0.7333333333333333, 0.6, 0.4666666666666667], SphereBox[{1.29132536484, 2.6420259206, -0.2581365716}, 0.1]}, {RGBColor[0.7333333333333333, 0.6, 0.4666666666666667], SphereBox[{-0.33081543356, -4.5810737692, -1.38367627446}, 0.1]}, {RGBColor[0.7333333333333333, 0.6, 0.4666666666666667], SphereBox[{-3.0658914624, -4.0899339818, 0.51139765012}, 0.1]}, {RGBColor[0.7333333333333333, 0.6, 0.4666666666666667], SphereBox[{-0.0062334501835999995`, -3.9225042581999996`, 1.8987966848}, 0.1]}, {RGBColor[0.7333333333333333, 0.6, 0.4666666666666667], SphereBox[{-3.0381124902, 2.472706471, -1.61573462726}, 0.1]}, {RGBColor[0.7333333333333333, 0.6, 0.4666666666666667], SphereBox[{-5.1264486927999995`, -3.0110894083999997`, -2.024841409}, 0.1]}, {RGBColor[0.7333333333333333, 0.6, 0.4666666666666667], SphereBox[{-7.3442311263999995`, 2.2604902412, -3.0167585863999995`}, 0.1]}, {RGBColor[0.7333333333333333, 0.6, 0.4666666666666667], SphereBox[{-11.297726891, -4.846580272200001, -4.0077309008}, 0.1]}, {RGBColor[0.7333333333333333, 0.6, 0.4666666666666667], SphereBox[{-8.877554802799999, -4.6857645896, -1.6773019003399998`}, 0.1]}, {RGBColor[0.7333333333333333, 0.6, 0.4666666666666667], SphereBox[{-8.0659174858, -4.8050063002, -4.9393658188}, 0.1]}, {RGBColor[0.7333333333333333, 0.6, 0.4666666666666667], SphereBox[{-11.7452140078, 1.9541656565999999`, -4.3202915812}, 0.1]}, {RGBColor[0.7333333333333333, 0.6, 0.4666666666666667], SphereBox[{-15.250088819999998`, -1.7430832623999999`, -4.2942133624}, 0.1]}, {RGBColor[0.7333333333333333, 0.6, 0.4666666666666667], SphereBox[{-13.031550496, -3.4508286486, -6.158617033999999}, 0.1]}, {RGBColor[0.7333333333333333, 0.6, 0.4666666666666667], SphereBox[{-15.9583581248, -1.33242690534, -8.547797615799999}, 0.1]}, Text3DBox["1", {5.698456758, 0.87813677494, 4.5943018512}, {1, 0}], Text3DBox["2", {7.4912398142, 3.0808202978, 5.136275268}, {1, 0}], Text3DBox["3", {9.5614346472, 3.1034970098, 3.1087882425999998`}, {1, 0}], Text3DBox["4", {4.8828510164, 0.92895150708, 1.8780285960599998`}, {1, 0}], Text3DBox["5", {8.354466651000001, 3.8282069308, 0.5798057313199999}, {1, 0}], Text3DBox["6", {6.0592054513999996`, 2.2315774334, 0.10211134441}, { 1, 0}], Text3DBox["7", {7.052445436999999, -1.61707633272, 5.1421334186}, {1, 0}], Text3DBox["8", {3.3725819971999997`, 1.10059531966, 6.2977008676}, {1, 0}], Text3DBox["9", {2.6546750897999996`, -0.53636093058, 1.15904454484}, {1, 0}], Text3DBox["10", {5.039320329200001, 2.1062885995999996`, -2.5537757163999997`}, {1, 0}], Text3DBox["11", {0.6153772769, 0.6439052372399999, 0.150276680698}, {1, 0}], Text3DBox[ "12", {-1.60289648546, -0.7372954961599999, -0.36513285772}, {1, 0}], Text3DBox["13", {-1.7087589359800002`, -3.5256617982, 0.20480850387999996`}, {1, 0}], Text3DBox["14", {-3.647183175, 0.44584305518, -1.3762307540199998`}, {1, 0}], Text3DBox[ "15", {-5.778038212599999, -0.97286873932, -2.1119577776}, {1, 0}], Text3DBox["16", {-7.893019551799999, 0.22196721596, -2.9294532452}, {1, 0}], Text3DBox["17", {-10.1026761636, -1.24914668052, -3.692524604}, {1, 0}], Text3DBox[ "18", {-10.0310555482, -4.0933354886, -3.5706372769999994`}, {1, 0}], Text3DBox["19", {-12.184965242999999`, -0.072731774288, -4.4973589074}, {1, 0}], Text3DBox[ "20", {-14.3116628834, -1.5733480730799998`, -5.6533043016}, {1, 0}], Text3DBox["21", {-15.2026686924, -0.31240950232, -7.868819063999999}, {1, 0}], Text3DBox["22", {8.3455849388, 2.8361007808000003`, 6.994820788999999}, {1, 0}], Text3DBox["23", {6.445654418399999, 4.8545171214, 5.077693761999999}, {1, 0}], Text3DBox["24", {10.411055456799998`, 1.2324226054199998`, 2.9663029022}, {1, 0}], Text3DBox["25", {11.00291764, 4.4877213048, 3.6071089888}, {1, 0}], Text3DBox["26", {7.807579946600001, 5.8133640938, 0.62856066212}, {1, 0}], Text3DBox["27", {9.7173370422, 3.5362442637999996`, -0.9369639453199999}, { 1, 0}], Text3DBox["28", {5.7706442912, -3.1879677619999995`, 4.7785501362}, {1, 0}], Text3DBox["29", {7.646008373600001, -1.6577243389799998`, 7.113873526999999}, {1, 0}], Text3DBox["30", {8.705010823999999, -1.78331552894, 3.924016039}, {1, 0}], Text3DBox["31", {2.0287978386, -0.38658124782, 5.8226237512}, {1, 0}], Text3DBox["32", {2.4889461196, 2.9398467381999995`, 6.0161316936}, {1, 0}], Text3DBox["33", {3.9430902766, 0.9068606101399999, 8.2673622774}, {1, 0}], Text3DBox["34", {2.6353998846, -2.5602007847999997`, 1.42313375334}, {1, 0}], Text3DBox["35", {6.2030136, 3.2707377608, -3.7919241915999997`}, {1, 0}], Text3DBox["36", {3.1010283709999995`, 2.8028416031999996`, -2.5785311269999998`}, {1, 0}], Text3DBox["37", {5.075981013600001, 0.15492918610999998`, -3.2121562547999996`}, {1, 0}], Text3DBox["38", {0.6913253648400001, 2.6420259206, -0.2581365716}, {1, 0}], Text3DBox["39", {-0.93081543356, -4.5810737692, -1.38367627446}, {1, 0}], Text3DBox["40", {-3.6658914624000003`, -4.0899339818, 0.51139765012}, {1, 0}], Text3DBox["41", {-0.6062334501836, -3.9225042581999996`, 1.8987966848}, {1, 0}], Text3DBox["42", {-3.6381124902, 2.472706471, -1.61573462726}, {1, 0}], Text3DBox["43", {-5.726448692799999, -3.0110894083999997`, -2.024841409}, { 1, 0}], Text3DBox["44", {-7.944231126399999, 2.2604902412, -3.0167585863999995`}, {1, 0}], Text3DBox["45", {-11.897726891, -4.846580272200001, -4.0077309008}, {1, 0}], Text3DBox[ "46", {-9.477554802799999, -4.6857645896, -1.6773019003399998`}, {1, 0}], Text3DBox["47", {-8.6659174858, -4.8050063002, -4.9393658188}, {1, 0}], Text3DBox["48", {-12.3452140078, 1.9541656565999999`, -4.3202915812}, {1, 0}], Text3DBox[ "49", {-15.850088819999998`, -1.7430832623999999`, -4.2942133624}, {1, 0}], Text3DBox["50", {-13.631550496, -3.4508286486, -6.158617033999999}, { 1, 0}], Text3DBox[ "51", {-16.5583581248, -1.33242690534, -8.547797615799999}, {1, 0}], {RGBColor[0.36, 0.24, 0.12], Opacity[0.5], SphereBox[{7.195065307464576, 1.9797451773236876`, 4.865354166986276}, 1.1903004568009017`]}, {RGBColor[0.36, 0.24, 0.12], Opacity[0.5], SphereBox[{9.126337230699999, 3.0921586538, 4.1225317553}, 1.1938723648075746`]}, {RGBColor[0.36, 0.24, 0.12], Opacity[0.5], SphereBox[{5.890653887199999, 0.90354414101, 3.2361652236299996`}, 1.1625678924767877`]}, {RGBColor[0.36, 0.24, 0.12], Opacity[0.5], SphereBox[{9.5579506491, 3.4658519703, 1.8442969869599999`}, 1.1922153222488148`]}, {RGBColor[0.36, 0.24, 0.12], Opacity[0.5], SphereBox[{6.0710282339, 1.58026447024, 0.990069970235}, 0.9927516555891638]}, {RGBColor[0.36, 0.24, 0.12], Opacity[0.5], SphereBox[{7.807119268525147, 3.030089193723594, 0.34101748162552803`}, 1.1628920151055262`]}, {RGBColor[0.36, 0.24, 0.12], Opacity[0.5], SphereBox[{6.9756852479854325`, -0.36990128571829195`, 4.868312373526277}, 1.190439410584325]}, {RGBColor[0.36, 0.24, 0.12], Opacity[0.5], SphereBox[{5.135117185323176, 0.9894045150241044, 5.446295912632312}, 1.190548025774018]}, {RGBColor[0.36, 0.24, 0.12], Opacity[0.5], SphereBox[{4.3687630530999995`, 0.19629528824999998`, 1.5185365704499998`}, 1.1253183349388942`]}, {RGBColor[0.36, 0.24, 0.12], Opacity[0.5], SphereBox[{6.149083820821049, 2.16891101852621, -1.2262985015650358`}, 1.1686678866153495`]}, {RGBColor[0.36, 0.24, 0.12], Opacity[0.5], SphereBox[{2.2350261833499996`, 0.05377215332999996, 0.654660612769}, 1.025839738003161]}, {RGBColor[0.36, 0.24, 0.12], Opacity[0.5], SphereBox[{0.10624039571999999`, -0.046695129459999984`, -0.107428088511}, 1.0760376752772804`]}, {RGBColor[0.36, 0.24, 0.12], Opacity[0.5], SphereBox[{-1.0558462962107484`, -2.1319681801150008`, \ -0.0800621165128296}, 1.1687932099947653`]}, {RGBColor[0.36, 0.24, 0.12], Opacity[0.5], SphereBox[{-2.02503983023, -0.14572622048999995`, -0.8706818058699999}, 1.0289442947952179`]}, {RGBColor[0.36, 0.24, 0.12], Opacity[0.5], SphereBox[{-4.1126106938, -0.2635128420699999, -1.7440942658099998`}, 1.0760826962707348`]}, {RGBColor[0.36, 0.24, 0.12], Opacity[0.5], SphereBox[{-6.2355288822, -0.3754507616799999, -2.5207055114}, 1.0258106188343346`]}, {RGBColor[0.36, 0.24, 0.12], Opacity[0.5], SphereBox[{-8.3978478577, -0.51358973228, -3.3109889246}, 1.1253355115916557`]}, {RGBColor[0.36, 0.24, 0.12], Opacity[0.5], SphereBox[{-9.46685328073193, -2.6717404680417554`, -3.631559539488377}, 1.1686500631247143`]}, {RGBColor[0.36, 0.24, 0.12], Opacity[0.5], SphereBox[{-10.5438207033, -0.660939227404, -4.0949417557}, 1.0060089697829193`]}, {RGBColor[0.36, 0.24, 0.12], Opacity[0.5], SphereBox[{-12.648575423259075`, -0.8232243416083211, -5.075473664166018}, 1.1686322579877293`]}, {RGBColor[0.36, 0.24, 0.12], Opacity[0.5], SphereBox[{-14.169868812021535`, -0.9249016511669437, -6.79264816313953}, 1.1337187872076824`]}, {Opacity[0.5], SphereBox[{8.709489484663667, 2.9037282112593124`, 6.481217871187386}, 1.2357933686504747`]}, {Opacity[0.5], SphereBox[{7.3346428786614855`, 4.364286561484166, 5.0938850547310786`}, 1.235476938118349]}, {Opacity[0.5], SphereBox[{10.77624044002041, 1.7495431404822177`, 3.0056824668467543`}, 1.2355730589675256`]}, {Opacity[0.5], SphereBox[{11.204488251260202`, 4.1051183587434945`, 3.469371928219658}, 1.2353780533600913`]}, {Opacity[0.5], SphereBox[{8.558740089475585, 5.264664266257492, 0.6150847406058669}, 1.2353871297692312`]}, {Opacity[0.5], SphereBox[{9.940679624370931, 3.6169341848407526`, -0.5177732772025242}, 1.2356145987409288`]}, {Opacity[0.5], SphereBox[{6.724910793871082, -2.7538019676016257`, 4.879037936751255}, 1.235831756042301]}, {Opacity[0.5], SphereBox[{8.081935593676656, -1.6464884093520116`, 6.568844750903158}, 1.2355456477561668`]}, {Opacity[0.5], SphereBox[{8.848245507835912, -1.737367393018954, 4.260700913556169}, 1.235713033204844]}, {Opacity[0.5], SphereBox[{3.0001847523081597`, 0.024435589966594673`, 5.95392268258269}, 1.2358903549200966`]}, {Opacity[0.5], SphereBox[{3.333166055574349, 2.4315130737764017`, 6.093951989708165}, 1.235839640489124]}, {Opacity[0.5], SphereBox[{4.385406079469298, 0.9604074266018731, 7.722962679290262}, 1.2357521462040217`]}, {Opacity[0.5], SphereBox[{3.2407761209285644`, -1.9957117827605422`, 1.3494740448187397`}, 1.2160885328938789`]}, {Opacity[0.5], SphereBox[{6.481398630136755, 2.9489138822197276`, -3.4497317131095833`}, 1.235887260061742]}, {Opacity[0.5], SphereBox[{4.236745331311138, 2.6103240331788573`, -2.5716890755423845`}, 1.2357996583165434`]}, {Opacity[0.5], SphereBox[{5.665848316308251, 0.6942681146625476, -3.030185546735806}, 1.2357603015255403`]}, {Opacity[0.5], SphereBox[{1.2701394306775513`, 2.0846444987038364`, -0.14420853853229876`}, 1.215846824723846]}, {Opacity[0.5], SphereBox[{-0.5458383481192651, -4.289358808718669, -0.9446204488001934}, 1.2357025058258972`]}, {Opacity[0.5], SphereBox[{-2.524966790716883, -3.9339768651850755`, 0.42666060189627153`}, 1.2357979822662262`]}, {Opacity[0.5], SphereBox[{-0.31096092314473334`, -3.8128208072889964`, 1.4305945940112303`}, 1.235767545619187]}, {Opacity[0.5], SphereBox[{-3.0406426121298424`, 1.9073454546893096`, -1.5489288661374467`}, 1.2159849801037779`]}, {Opacity[0.5], SphereBox[{-5.140840532808636, -2.442490478124714, -2.0491441131904082`}, 1.2157337494382179`]}, {Opacity[0.5], SphereBox[{-7.32994682477678, 1.6918907012357107`, -2.992406751160414}, 1.216034289865974]}, {Opacity[0.5], SphereBox[{-10.781811914544614`, -4.638396723288159, \ -3.8869259463009813`}, 1.2358277699890305`]}, {Opacity[0.5], SphereBox[{-9.030547707164608, -4.522011515109373, -2.2006379222312407`}, 1.2356247627619663`]}, {Opacity[0.5], SphereBox[{-8.443190643707354, -4.608327076407212, -4.561100386529379}, 1.2359745373753002`]}, {Opacity[0.5], SphereBox[{-11.700513716959104`, 1.3887765581040856`, -4.369683294074904}, 1.215917857231867]}, {Opacity[0.5], SphereBox[{-14.824885159318958`, -1.6961703612792887`, \ -4.669850842760894}, 1.235479740145197]}, {Opacity[0.5], SphereBox[{-13.219522945289958`, -2.93192231956816, -6.018956481234968}, 1.2355124012820666`]}, {Opacity[0.5], SphereBox[{-15.569542264804337`, -1.0398828061626109`, \ -8.353064498297293}, 1.1252864433636156`]}, TubeBox[{{8.0912398142, 3.0808202978, 5.136275268}, {6.2984567579999995`, 0.87813677494, 4.5943018512}}, 0.06], TubeBox[{{10.1614346472, 3.1034970098, 3.1087882425999998`}, {8.0912398142, 3.0808202978, 5.136275268}}, 0.06], TubeBox[{{5.4828510164, 0.92895150708, 1.8780285960599998`}, { 6.2984567579999995`, 0.87813677494, 4.5943018512}}, 0.06], TubeBox[{{8.954466651, 3.8282069308, 0.5798057313199999}, {10.1614346472, 3.1034970098, 3.1087882425999998`}}, 0.06], {RGBColor[1., 0.75, 0.5], TubeBox[{{6.659205451399999, 2.3515774334, 0.10211134441}, {5.4828510164, 1.04895150708, 1.8780285960599998`}}, 0.06], TubeBox[{{6.659205451399999, 2.1115774334, 0.10211134441}, {5.4828510164, 0.80895150708, 1.8780285960599998`}}, 0.06]}, TubeBox[{{6.659205451399999, 2.2315774334, 0.10211134441}, {8.954466651, 3.8282069308, 0.5798057313199999}}, 0.06], TubeBox[{{7.652445436999999, -1.61707633272, 5.1421334186}, { 6.2984567579999995`, 0.87813677494, 4.5943018512}}, 0.06], TubeBox[{{3.9725819972, 1.10059531966, 6.2977008676}, {6.2984567579999995`, 0.87813677494, 4.5943018512}}, 0.06], TubeBox[{{3.2546750897999996`, -0.53636093058, 1.15904454484}, { 5.4828510164, 0.92895150708, 1.8780285960599998`}}, 0.06], TubeBox[{{5.6393203292, 2.1062885995999996`, -2.5537757163999997`}, { 6.659205451399999, 2.2315774334, 0.10211134441}}, 0.06], {RGBColor[1., 0.75, 0.5], TubeBox[{{1.2153772769, 0.7639052372399999, 0.150276680698}, { 3.2546750897999996`, -0.41636093058, 1.15904454484}}, 0.06], TubeBox[{{1.2153772769, 0.5239052372399999, 0.150276680698}, { 3.2546750897999996`, -0.65636093058, 1.15904454484}}, 0.06]}, TubeBox[{{-1.00289648546, -0.7372954961599999, -0.36513285772}, { 1.2153772769, 0.6439052372399999, 0.150276680698}}, 0.06], TubeBox[{{-1.10875893598, -3.5256617982, 0.20480850387999996`}, {-1.00289648546, -0.7372954961599999, \ -0.36513285772}}, 0.06], {RGBColor[1., 0.75, 0.5], TubeBox[{{-3.047183175, 0.56584305518, -1.3762307540199998`}, {-1.00289648546, \ -0.6172954961599999, -0.36513285772}}, 0.06], TubeBox[{{-3.047183175, 0.32584305518, -1.3762307540199998`}, {-1.00289648546, \ -0.8572954961599999, -0.36513285772}}, 0.06]}, TubeBox[{{-5.1780382126, -0.97286873932, -2.1119577776}, {-3.047183175, 0.44584305518, -1.3762307540199998`}}, 0.06], {RGBColor[1., 0.75, 0.5], TubeBox[{{-7.2930195518, 0.34196721596, -2.9294532452}, {-5.1780382126, -0.85286873932, \ -2.1119577776}}, 0.06], TubeBox[{{-7.2930195518, 0.10196721596, -2.9294532452}, {-5.1780382126, -1.09286873932, \ -2.1119577776}}, 0.06]}, TubeBox[{{-9.5026761636, -1.24914668052, -3.692524604}, {-7.2930195518, 0.22196721596, -2.9294532452}}, 0.06], TubeBox[{{-9.4310555482, -4.0933354886, -3.5706372769999994`}, \ {-9.5026761636, -1.24914668052, -3.692524604}}, 0.06], {RGBColor[1., 0.75, 0.5], TubeBox[{{-11.584965243, 0.047268225712, -4.4973589074}, {-9.5026761636, -1.12914668052, \ -3.692524604}}, 0.06], TubeBox[{{-11.584965243, -0.19273177428799998`, -4.4973589074}, \ {-9.5026761636, -1.36914668052, -3.692524604}}, 0.06]}, TubeBox[{{-13.7116628834, -1.5733480730799998`, -5.6533043016}, \ {-11.584965243, -0.072731774288, -4.4973589074}}, 0.06], TubeBox[{{-14.6026686924, -0.31240950232, -7.868819063999999}, \ {-13.7116628834, -1.5733480730799998`, -5.6533043016}}, 0.06], TubeBox[{{8.9455849388, 2.8361007808000003`, 6.994820788999999}, { 8.0912398142, 3.0808202978, 5.136275268}}, 0.06], TubeBox[{{7.045654418399999, 4.8545171214, 5.077693761999999}, { 8.0912398142, 3.0808202978, 5.136275268}}, 0.06], TubeBox[{{11.011055456799998`, 1.2324226054199998`, 2.9663029022}, { 10.1614346472, 3.1034970098, 3.1087882425999998`}}, 0.06], TubeBox[{{11.60291764, 4.4877213048, 3.6071089888}, {10.1614346472, 3.1034970098, 3.1087882425999998`}}, 0.06], TubeBox[{{8.4075799466, 5.8133640938, 0.62856066212}, {8.954466651, 3.8282069308, 0.5798057313199999}}, 0.06], TubeBox[{{10.3173370422, 3.5362442637999996`, -0.9369639453199999}, { 8.954466651, 3.8282069308, 0.5798057313199999}}, 0.06], TubeBox[{{6.3706442912, -3.1879677619999995`, 4.7785501362}, { 7.652445436999999, -1.61707633272, 5.1421334186}}, 0.06], TubeBox[{{8.2460083736, -1.6577243389799998`, 7.113873526999999}, { 7.652445436999999, -1.61707633272, 5.1421334186}}, 0.06], TubeBox[{{9.305010823999998, -1.78331552894, 3.924016039}, { 7.652445436999999, -1.61707633272, 5.1421334186}}, 0.06], TubeBox[{{2.6287978386, -0.38658124782, 5.8226237512}, {3.9725819972, 1.10059531966, 6.2977008676}}, 0.06], TubeBox[{{3.0889461196, 2.9398467381999995`, 6.0161316936}, {3.9725819972, 1.10059531966, 6.2977008676}}, 0.06], TubeBox[{{4.5430902766, 0.9068606101399999, 8.2673622774}, {3.9725819972, 1.10059531966, 6.2977008676}}, 0.06], TubeBox[{{3.2353998846, -2.5602007847999997`, 1.42313375334}, { 3.2546750897999996`, -0.53636093058, 1.15904454484}}, 0.06], TubeBox[{{6.8030136, 3.2707377608, -3.7919241915999997`}, {5.6393203292, 2.1062885995999996`, -2.5537757163999997`}}, 0.06], TubeBox[{{3.7010283709999996`, 2.8028416031999996`, -2.5785311269999998`}, {5.6393203292, 2.1062885995999996`, -2.5537757163999997`}}, 0.06], TubeBox[{{5.6759810136, 0.15492918610999998`, -3.2121562547999996`}, { 5.6393203292, 2.1062885995999996`, -2.5537757163999997`}}, 0.06], TubeBox[{{1.29132536484, 2.6420259206, -0.2581365716}, {1.2153772769, 0.6439052372399999, 0.150276680698}}, 0.06], TubeBox[{{-0.33081543356, -4.5810737692, -1.38367627446}, {-1.10875893598, \ -3.5256617982, 0.20480850387999996`}}, 0.06], TubeBox[{{-3.0658914624, -4.0899339818, 0.51139765012}, {-1.10875893598, -3.5256617982, 0.20480850387999996`}}, 0.06], TubeBox[{{-0.0062334501835999995`, -3.9225042581999996`, 1.8987966848}, {-1.10875893598, -3.5256617982, 0.20480850387999996`}}, 0.06], TubeBox[{{-3.0381124902, 2.472706471, -1.61573462726}, {-3.047183175, 0.44584305518, -1.3762307540199998`}}, 0.06], TubeBox[{{-5.1264486927999995`, -3.0110894083999997`, -2.024841409}, \ {-5.1780382126, -0.97286873932, -2.1119577776}}, 0.06], TubeBox[{{-7.3442311263999995`, 2.2604902412, -3.0167585863999995`}, {-7.2930195518, 0.22196721596, -2.9294532452}}, 0.06], TubeBox[{{-11.297726891, -4.846580272200001, -4.0077309008}, \ {-9.4310555482, -4.0933354886, -3.5706372769999994`}}, 0.06], TubeBox[{{-8.877554802799999, -4.6857645896, -1.6773019003399998`}, \ {-9.4310555482, -4.0933354886, -3.5706372769999994`}}, 0.06], TubeBox[{{-8.0659174858, -4.8050063002, -4.9393658188}, {-9.4310555482, \ -4.0933354886, -3.5706372769999994`}}, 0.06], TubeBox[{{-11.7452140078, 1.9541656565999999`, -4.3202915812}, {-11.584965243, -0.072731774288, \ -4.4973589074}}, 0.06], TubeBox[{{-15.250088819999998`, -1.7430832623999999`, -4.2942133624}, \ {-13.7116628834, -1.5733480730799998`, -5.6533043016}}, 0.06], TubeBox[{{-13.031550496, -3.4508286486, -6.158617033999999}, \ {-13.7116628834, -1.5733480730799998`, -5.6533043016}}, 0.06], TubeBox[{{-15.9583581248, -1.33242690534, -8.547797615799999}, \ {-14.6026686924, -0.31240950232, -7.868819063999999}}, 0.06]}, AspectRatio->Automatic, Boxed->False, SphericalRegion->True]], "Output", CellChangeTimes->{3.571766382283594*^9, 3.5717667156249795`*^9, 3.5717668586616306`*^9, 3.571767226822277*^9},ImageCache->GraphicsData["CompressedBitmap", "\<\ eJzsvId/W1d+JX7WnpRNNpu+ySabTTaZ4pnJVHu6x1WS5aJm9W41W7LVK0VJ pEgVNrET7BUkQXQQhSDRC0EQ7CTABvZeRTXbsj2T/WUP8EhZ3p3/4Bd89OV7 gMCH++79nvM9594Lrjtw/uiREwfOHzt04J/eOHvg9NFjh87905pTZ/nSs/8J +E9HQ/FPCJ3/O7Dy49/579+PhX6EXvmP8/84/4/z/zj/j/P/v5x/HD78AcbH F+FtCKKZ0eoJos0dRLuTR3sQJ4W3frD81jG+tTH01tDblt/axrdOjSziRvg9 /wVNviDSU3XITtWjOEWPijt6SBP1UMTpobzJ43XGFT2cuQ2YH1z4SPiEI+HD H8PX2I+MFB0K+duVDEWyHuokParj9dDc4hVi9Ki6okO3JYjo8O/8KaYnF5GT oUVeph4lDEmGHqo0PXT8dCM/3cRPt/DTLbf1MN9gRPO1CB2G6nrxofDxh5Yv NTW5AFGaBoW8TBWjmlHLy1l5OQeb42Jz3GyOK0EPG5tTx0v58r1YHFzE1fA1 /hwzU4sozNKhWKRHOUOexaZkGlCXXgNbWg1cKTWoZzQwvOGjAR5e08Mm1sdo 0ZHrxPIQHVy+5DSbVZCpgZiXUzKMIgNsWTXwMHyZNWgV1aA9FNkGHvVoZbN9 bG49e812TYd7QwuIDF/rLzE7tYBSUTXE2ezhHAOU2Ubos0wwZ1nhzLCjIcOB piwnWrKdaMtxoj3XwbChNduMlsxatLK5zXEaBIpsOCo0c3/48NcQZMW/Y2Zy HsWZyvBzFS9fm2OCM8eKxmw72vIc8Bc40VPsRF+pA/2ldoYVfcUmBAqMaM/R o5lN98RW497wPM6Ervhs6ErPhq/938JXnZmcgzhLicpsHW/CCHmOBfpsB2+i Hq4sL7zZPrTkNqGjoBn+4mZ0lzSjp7SJ0Yju4gZ0FbrQlWdFFzuvPVGBSWfn B//vvUyPz6AkvYqjqAs/r2V3OHM88OU1oqOwCd2lzQhWNGNI0oxRaTPGZD6G l+f1GKx0oE9s4SfxnjJ18N5Q4Hz42v/9ST+FP5APs8oGiUiDqpw6yHIcqM72 wCRqgjO7Dd7cTrQU+tFZEkC3uBu9Fd0ISroxIAlgoKoL/ZJ2vtaCQFkjAoUO BDisHckV+Fr46s9idGwR9a4gxkcX8Z7wiXtDh6+FP/mvUJmphkxkgS6nIfyK N78dHcVd6Cnn9aXdGFV0Y0LdjWlNN3TbL2BSbMJUdRvG1E0Ykjegl/cZKK5D J9Nzqr77+fBH/GGYVEJM0cJIua1D+g0dOtiMdkcQ08OLPw+/7etf6YnZiZnw cykTWZrtYmI2wZDdDqvID09eLwqPyiFefxudOY3orxrGoHwYQ4phjCiHMKIa wJCyH0F5D7qlnQhU+NgqGwJ5SjQrLaQVNoPYzSYdFJAOSgkMMfFbTjoRXyWd WIOYHVzY81QH4W+ftC70qEiTkBHqoBI1MA86wq+1lPQjUDmAAfkQRtXDmNKN YNYwjN6SJjTdVmK4vAazxl5M1gQwou1AUMWcqXIROoRpetWPlhkzxHkhxswl yZQx9avIWwo2VE2SqSYpqMlZShKN7LIW3eb+F0K/9syXiPhnBHydyz1nYzRB ldVFiuiDI3cQjUUjMCa0Q3e7Af6STgwopzGimcZY9TTGtVMY102wbWMYqB5G j5r3I2fvVTbAkSyFMToZ+WS/snRSOBumYg9qyVQG9l4Ne88Qy4hikEzrs9y7 hc7a96R9BKskTQtpphuarDaYcvrCr7ZVjKFHPonh6ilM6qcxWzuDBdMMBoqG 8Yl9Enet45i3jmLaPIixuj4MGPzoZroFJDb4C5WYaur8fvij/kzg63RNmPrL GHKGli02sivN7EYbu9HB8XaE+HqZ/k3XSI4sPgvBBSFbn/tKGoaiMrlE6NDM BkYnO7QfdTkjcBVOoqlsBp2SObiKF9BTNcq7uIsx/RImDHcxaVxkLGDMOIdB wxR6mRBt0i6Y0+rYHCUsCTmQsByo2EQDm1jHJlpDTQyVlEShrDg54g7WSUe0 Du359bg7MLfzd3RsVZoZ0oym8DNL/jAaxJPh8z7NAkbZlOm6JcxblnDXvoSB 4gk8ck/hnmseC85ZzDgmMW4bxaApiB49x1vp4Zgb0K+v/V74o/7iScUpYTWp ZKhDVSfLAGuGAa4MFi0WMh+PzeFgRUgXKk6okNUzNWyXNVga/H86OPSoSq6E NN0aPpel90CdOYK6vGm4SubRXLmELtl99Koewl7+MSYNcxg38lj3MaZNjzBl fohx8z2W7nl0akZgyW2EhbxvJUPb0kpgTC5kva5jvTbDlWZBAz+nkdGUaUFz pplNrYMv1PRkA3xxWtRfkbOZszue5n6BGaUpTsjTOqAVBcPVh8nWr3uIsdqP MWP9BIuOT9BVPINPGh7gYcMj3Odx0XMPs/ULmHBNY8g2gt66HgS0zQgozGgr K/vWk0r2zJcD+RcoYwmTsg5Xs1DWiUxwiKxoyLKhmcWyncWgKz9UMO0sjqSz AhaUvDrWeSNamENNSQRelJL1fe4HX62TQpv/mR08AI1oAqbCObjF99AifQS/ 8lP0aT9Do/QLDNY9wIT5N5iyfIFp6+eYtn2KcetDDDF1HMV+2ApbYS2shy2/ Fo5sCawsh3bi2ZPJMkgqbMn1Mku96CoIhYfhRkc+VQPLfQfVQvsdDfrKbcsd /MZyUaqnbvRQN4aehTsDvydoS2rK5npWDf5/EyvF15b/b3RsAQ183RcKVhGv o5+vhv7vbyCJU0J6xwNZWgDa3GFYy6bhld1lejxEsOZTjJk/w6z9C9x1/wZt hfP4uPlzPPJ9jvu+x1j0fYxZ731MeOYx5JxAH1VloKado+ZAR5UE33lKcoTO SjKkFAPa8HM1JUcdNZJTVA9vjheteT50FvooCppY+JsQLPdhoLwRAxUNCIrd 6KXYCRRZWL4oCFKr0Vvu+En4ot+ENEHFW6iHNNnP2xiGJnsadcV34a54iGb5 p/BrPkef/rcYNP4bXKr/D3OuTzBl/y2mHRw4x+cYDyUj+dxV1gt7aSds1AKO EhtcBQo4szTwiFrRlNeO9sIOdLEGdJd1olfcyYHpYLShR8wkLfGSXFmbcmrR larAtKdruzBor4cPf4eJiUWoWPHzSFrlDBmJS0nCKopW4ebZciRFyZB/W018 8/Xl8qUm58pZJbR5TtiNHciitA+Zgkq+R54k/L6CdCFlHbYWe9Fp6X9meVwr b2roGxohS+3hr4/BWj4Hr+I+OnUfo7/uM4xZv8Cs67fwEYVLDf8bD5t+i4fN v8X95i+w2PwpZpseYsJ7F8PuafTZhxAwdSFgZHYqZcvjKmCkVmFCZZZq+dmf w57TjIbcNrSys/ylXRwnP6rPM/P330BvUjnGFF0Yk3dgRN6KISnHupLkybH1 5xvRkabEZH0XXlge2KrbHNgE1pCkAKRpI1DnzqKuZAkuycdoVjzmoH2OXsMX GKj7Ai2a32DE+xkmOaBTzs8w5XqMcQ60t2IQrvJ+2Cs6GS1wljvhLlFTHJLC 8nvQVtwHvzhIERikLKIYkQYxKOtn9CJIAddLkRgop0AscVMOGdCZUb48sK+F Dy9Ao3ST68lCLJ56hpnM4mB1yrxcioQLJci6WIqi86UoP1MKbbTsK0Yo41Ip 4s6VIO1cKYovV3DQ1TDxd20cZAeTwMn32CkXLKxoNdQwXnLFAs1S+XU1pHE+ yoo+aArGYakgwpX30aF/hD7Tpxi1P8aM+zNy56dYbHuAB0Ttw1aitvUzLLY8 xmzzx5hoXMKQZwa9zmEEbH6OcD1a1FXPfcmufxO+w4r0SqHYUFRqspvD5+7c AJoLe9FZ1o9eyQB7a5B81ozWOyZMVg9S4tLVavsxUd1DueRHUNmOHilFpZgo zmNlTitfHuU/hSRGBultD0e6OzzKqrw51Jbeg7PqEXzKT9Ch+xTdxsfoNz3G kPUx3IZ/wwLbP8nRFbLuWTglfbBVBSCUB6HeNOQPorVkGF3lo1Qa4+iXTVDw TmBYNUG5OcZgCafs7FcG0S0LsIQTxmWsFEUq9k/bNmGUXw0ffgKD2k3/qIOa BsGcTQsqMqKJURhViszIEhRdLYXsSimqI8tgjCiD6YIYjqsSdDDPiqJLkX65 BAWRpahkViiYEdUccXeiBs1UBa2MNuqaNmZPC5WAl9nhCjluSmtXYSOkN70s qL1Q57MSVcyjXrmENv199LCcDzseoUuzhLGGz7HY9CnutXzKUeax9RMstLLa NrPk+zjSDbPorR9BwOWH3+rG7EAfvv2UoepqbEdVhmA65RTBWtqG0MNTMMjq O0LhPYYge29EPQnzzRbMVPRgpmYSc8ZxzBjHMGUcxpiBmaDrRa+aokgWGm0L a68Mk742CFLmWwg4+iCNdXPE/czeESiJ6ZrSu7BX3YdX9QBtVAl+4yP0mh9h wPYILfqPMdL1OcbcDzDuvocmSQ8aqvrDbbPJ++GQ++GSuuEQq8OvtVfMIFA1 iz7FPEd3ASPV1JO6BZqyDnRQIw7rphCkYO/WDBAdzHqplyNfi8GaWiwP+Svh w09hVNnD5UpDX2nJsdFLsjDnuVEWU46ca6UQR1dCdV2K2usK2KOV8FxXwhuj QlOMEkUXC5B7rQRlUeVQRFXCcE0C8xUp7FRMrkgZ/V4deout6C+2MEzoLTIi kM80YHr5CH75qSqIL9lZ17rZRaOoLZ+BS0mFp18kUKlJHQRIxRJmOz/BHKl6 oeUh7rYyCPb51vuYbr6HMd8iBr0z6GkgwOs70WmzY7w/8J2n7Jk0vUYY8awO 6EVCr3pLJ9EhIS8o5jCkmQ/3ni1xEIuyTsybFrBgnqc0nqW/oAUyEVO1wyyv fQioWfll9WRLHeY7OlcGfG54HlXX6KxiO1ihhyDPmYKOWtUiWWAi30WTdgkd xnsIUJf22e7xziidTJ9jrusBRtwL8Er8qJf1hJtmVw7CoeyEU+6Cs6w9/Fpn 1RJ6WNiCmgccXEpMw0MMlo9gKLsePSmVGKGhCNawF/SjCFSHmtlKxW6Hv7Ji ZcBf/lLyPQtzjocFrAkdRa3LVPINlMYooIrVwXTDCPdNE5rizWhPMqMr2YSy ywXIuVSA0ugqqGLUqI3RwRFjQMONGjTdqkFrXA3aWKNHqhoxJm1g1GO0yomh Co5+qYmSj/+foUPmNiXKo1sgzx6GvmyCyT2NRt0sOqnV3YpxdFKtjDfcxZTv LkF9l22ba7mLP+A5TVPTPEZ9swj6ptDdOIAuTyt8ljo89/SNSZIqyK8Wjnnz 8o39JexFU2gko3TK76JPfZ8dSD1rfEgFPYe7tQ+xaGNK2R9ggek2Y7+LCesc hi2T6KujItCRM0O+Um5CR1npEz635LegKrqZ6qMfMtE4NPwMqWgI1QUj5PUR tNTMo4M3FbDMo9c+j0b9AgaDv0HQPbPcrr+GTRmATeXngLfCLHXAVboksJT8 E7LLYwzoPoM3pQsTBX48ME9gyUsJp+rBqPk+BpijPcZJBAyDDFZvHXNSqVwZ 7J/+LqX/PYjTJJBmmaHLbgy/0lIkpFzelSKUXleFz403XeRlD5qTqNbTfegR +VBPCZYXkY/iK1VMcx3fY4XjtgON8S60JbvRmUbdkOFEb7odwxSJM5pOzFS3 YVrTgglVI4blbvRX0psU10J3SY3cY3ZUpQehpps30R/XV0+gxTgFBbk/2PKI FXsWo95Zcvoce2uyaZYpMNE0w+GfwmDTBHqaRtHZ2IOWeqbb0CC+u4z2qkQ5 a4iLnNsBZUYQNbnjcJTOoZHw6VQ9ojv7hFB5jEnTZ2gvfYR7dioH6qgl6qgF 9yfUitSDTupB+yz6LeRPYz8C+jZCyo4uqUQY/L/C7OBdFJ1xIv20B0kXfEiL akHerXaIkzooRTvpVrugz+4iogdJ7aPw21lOLI8w10OJKhXERZ2qAyZGrbJ5 pZY3S0Pj+xk8d3rRlNDEinMX457fYsJCCU/fNWl7jFErKwZ9V49plhRJsJu6 Eagju+s0y0P/i/Dh+Sd+5OlJxM6GdkjSdJBnNsDIBgq1ZDR8LI6SoyLWHD63 xLUy8zrRkRVAb143Boq7kXUwHkWXilFxzQAVqc58s5FOvgWtaW3wi9rRSz0c LKDeLfBhOM+DRWMQC8Y+zBu7MW3oxJi2FQPMhZ6q0GRgDSpO6lES2wlpbhC6 8gFYFUPw6EZh0n2OLts4elwT6K+fwGDDBHNgyDuB38egbwz9HPvupmG0NdH/ NXSiq8P/ryvDH68O2zxpih/KzCEYCqZgL6dllD2g1fsE/YbPMVr3G0xaf4te +Re456FQrP8tljy/wQLPZz2fYMJNgnAuoN82iW4zwVXHMl/j5sDIVsh+cmIe 1aoGZN7UIeGABXeYBqmXG5Ed40NJfDMqEpuhSG2GNqsFhuxW1Oa2wCZuh10/ jO6R38KjrYdeIaSBVtEOVYVA8q6KR7DF98Od0MWmkuDZzGHTb8IuZsL2BSbt n2HCwRywf0LVQGVkJb+wpwK2XgSsVCI1WnwlCX71O5PA39CDqlQrFBltMOUK 5TBpvSh8LI02oipWmOV1MA2bswYpbkYQDFFaThMyzhWg5JoW5VesUF/zwHC9 Ec7EdrRk+NGVE8BAaT+Gxb0YE/sxUdaGWXUPlqyjWLAOY8YcxHhdD4aYDL1q nzBVV6BC9vF6lKUGkUziyU50ISuxD/UNS/CRftusQ6wJQ/C7QtWddNzA88ZB tPsGwotI9d5eWBxNWFi8iydZcItZkEAxeScARdYIDEUzNEVLaFQ8Qof2Mfpq PseImV1q/w0ai5ewRIO/yAy42/AFFryfY7bhMc0+Raf7Lvod0+i28bOtgnXo rJb/eNkXhma/8jO1KBLplxX6HyH5rBfpV71YeVQle6HJ9EKb0whdXiP0hV7U VTULb/8aJGIPJGUdyIntR+YpvcADf4o2NrDbQC9QRy9geYwR4n7c8SmZienp fIRRxwMEWau6nRx/F8ffxYLvIOqavV8d/z/4neNfHldJjVK/XIZ+j9pjBvLE jieNLr/kXZ7feg6DVXMw37FBdFaB0ijqgAgnwe9D3W3qk+Ru+DJ70Z7Djy/o xaB4ABOyIUxL+7BoGMZ91yzuOqcx6xgndQ1jxNSHPkMHCdmK3NhK3DpdiDsX FYSPDOlnZEg5UY2cM3KkHWORSrRAV+GGocqNGoU7bEys5na4vEFYPP1o6hzG wtL97y0PeSXFqPR2yEN3U+WNQl80B1vlErzKh2jXfYze2k/DPTlO9NRlzuNu 0wLmveT8xlB8ihkvnWIDh7x+CX0uamsXPYSTQ26tx4DXKUzCfxszHPKSrGqU hZbFGAqRIdxPqltmJLxfHz5Pu9aI3Fu+8Lk0ywdZbiPkHHYly6KirAGpqSoU lNiRlyLF+V378fp3f4Y3n1+NDb96C5tefAfbXnwb2xk7GHm0XGbS6ZD9EUYc VH3OBxhz3cMIS1TQtYjuehYBDxPAQwJweTE3MriSAD97YnC/9lQqVNxiPyUJ jTOXTMArW4CWtVtIhe+iLLo7fGZNHEJLLuts5b3wcxkhn3tWhTLCXUym08R0 wJzUC/FH1XDebkJnEd0nKaJfPMQ0oCtWDGNeN4IHDfdIrncxVz+PKdcUmljw ipN1SKWpyLsmRtmVQujpBRXRahQcl6OUn1FwpBglHxSj8HARMvcUIPlMETLS ZcjMUiKVEZ+hQHJGOR1d6L7+M7zefijkXojoJwuT9CijVim/rYc4NI3PTu+y BfEny3kScARJb/Wkh0A4T7RFs7BULsKjvIdWqsJuqsEBa6izycRFD0kF85j1 snA3MnwPMd1If8Z7GvIsos/DPPGQGtxdLPAuzAz2reRJGZtZEV51NECRXQed SJjJdmW54c3yhM/jLjYjMVYoArkUq4XZTSjmWBcX+1BU6sXFGwocee8S3n7+ eWz6wbew6Sc/xcZfrMWWX76FncyV3S++hb2/fgv7GPsZ7zGKrhVikM5iKCRh WMMG3XPhZnZ7pxBoZEp7A/C7PXi4tEhZvLwIN3E3vLLvY8grmKfiBrS5hJX9 6eHFXz2VTss0t8Ilzz41Ey6mI5Sy9CmzBn5/mcWM6WOw582hqfQeapMFelFe r0P+WQMKLrdRPbeh+nY3zKmDEB1Soe6aG6bL3bBGdi5/0N9hMMuLgbIvqalD 34+MG1Jk35Sh5EYVZDSp1VHFkF/MQ9nOaKgOJEB5QoSK48WoPFkMCaP0WCEK DxYi84NSXElS4NLpazi97zCOb1iPtMhIBLv8fx2+kz9BU2MfstK1KMzQo4Kh ZGrqUvUwMrXqaKtN8XrU3tRDH62H5rIefaZ+/PFyas0OL1AaO0lDlDQZw1AX TqOuYo6uZgHNurvoqiW1WO5xfO7BKyeZe+5jynuPKUXT0bjE87sY83LMvHPo DY2Xl9XOQztvt+H+4twPl1Pry2XgWkhp16uzXTCJhIrjpdZozRe0RHdpJ5TJ bYLGyGtHTHITDMUt0BY3QVPYgB//zxfw629/D2//6AfY+rPvYdvPfo4tP1+L Hb98E3t+9WY4rQ689CYOvvwmDoXilTdx+OW1iNl3mkWRJows2eeZQk8j6cfH 1PJRKDR2YqDLj794epdHmh5ZjHx2Yym7sYLdKI3TQ8ZulF3XQ35VD1deAxaG FoWahZ8/Ya6nlkB+D37HIPu2iRV9ALVl03TVi8u59yxqMifgKpqH8EtC5VLF WJF/yoiCiFYo4nqhSeiHOWOU7x1Ac+ksujg2JunH8NEWhB79mnvol80Jnadn 6SgSOi/vWjnE1+l6Y2UwRkmgu1CIsv0pqDmaDteZVDScS0T1mTuoPp0I1ekU yE5loPLoHYj3xiH93Ys4v3UDzm3ZgDObN+DUpvU4sX49gn7/Xy77SJ3KjYIs HcqWd20YsvSwMPWc7DMPw8t+a0wRZstC62ahlT8b06+ZCvuPl1ceLBzzqtg2 up4BKPPHUVM+CQeNtbd6Fu1GagQz5ax9Aa21n2GkfhFjDQsY94Zinik3i2Hv DE015a6PY9nYj66GZvS1tQop9x3MTsxCkimjvTVAmu2AMtuLGlEL7KLlFe6C HnSWCMu2/ZJgeHI59BiW9zF6MCgLoCXbjfdfWYfXf/AT/OJff4hVP3gRB771 a2z96UvY8fM3sItpt/dFptlrG3FywxGcWr8PR159E0deW4v3X32DsQYx+09Q A47D76X581EXNg2go6kPLQ1teHDv3p89tdNHp/Yijz1ZEFryZW9K2ZNq9qLu jh41rA+1rA91rA+1MYwonkfo0JRdL+Qe8FL48PvE9F1IYhohy+iHoZQ5pphF q2FhxU3rsybgKJ57wk7WbGr5GDMKTtQh90IzZHeC0CQyXdOHmePjZMJpdIbm nGTTCCqEpdhh9TB6JcIsZJ9pjDZSEj4vi6dLSzCiJr6WnqAW2vNSKI6XwX65 Ai2xYnTeLoQpMgfmyCy2PgPGiynQnk2E8ng8qg7cQua7Z3Fp20Zc2Mb027oe Z95dz45dt4zNP0eN2okSkRYSyhh1tgG1oho4smrRkGWi6DejPduMzhwTunLr GEZ0ZteEZ29D67cNzMHOovrlVbn/yRLy5T6O0I6v9noGS0irQ1i9mx26h4or zXTnPUygQVRTKZil43CrJ+AzTKG9bhp+6zQ66MJDvDJYP80Ky2ig2/dOMjfH w46/q2kIHY3daHI34v7S0golBnxdkGYql3c2UJwwL2tF3XDlCN6mvYz0VCmY 3MHQ5K5qInw+rhnDmGYEdTE2fPTWQex85TXsfOlVVtlfYf3PfopN33gLx7// Knb+7A3s/uVaUiLz8/WNOLHxCM5uOYIT67bj/VXMz1Vv4IPX1zBWI/rgh2hp FLxJEw1qY2MPRscm8WfLS+ahfV9FImHfV2lo2ZxdqmSC6pigtSkGWJINsCca 4EwywJ0YCtIjq477FuO6Dnbq5XsDcz99akqP3Ci+7KHVIMcVjcAmG4dPN73M g8+iIq6PFmQU8uTOJ4sGluxmyKNrkfdhDQoueFGZMgpJXBdq0oNw5o3AVzaG jqoJdMsn0KcaE3pOE0S3tA1t4kbhMn8LcbwRyjgrc9QOW4ITnjsOWKKroY7Q QP1+Abov5KEjVQZXbBmcsSVwxhTCGp2LuquZ0DNfNSfjITsYgxs7duPyjo24 tH0D83U9zm1eh8yrl4U++xGMSivEIjUkVFOhWeq6bCtc5CFfjhvtefXwF3rQ W+xBf6mHYsGNAbGLftWOvuLQxHwt2slbLXe00PF3M1N1yHtqC83Ta5CqWJYj koE934vSMw6Ux/pRmdYPecEAvcggLHLCuHoUjTVjkOR3wu97hICdqekcQ4+b 4RlFd+MwushNbeSmlqZ+wqILo6PjBIkgwlf2UTaF4EKYtLoZy5sj/8sy60hS SqkgapjTHkYHR68PpuyhlQHtqgwxyCwGlPPLA/r3mNDPoz6lFcb4LmjyrNj9 6mrGKux+5XXsefk17H/ppXBV/+Cf12LXT9dizy/fDKfzAVb191dvxEfvhFI5 dM50Xs10XsN0Xr0aR1a9DoWEKdjIxKDObukMLqeysEewjAwizqHeJotUsZtV WUYYMupgTrPAkWpFfaoN3jQ7fBl2NGfaGFY0ZZjRlFaL5juhPYLVaLgmxVfy +fdJCGMovxWgdwrCWDkEt2YU1SmtKz0gTx9EcawTpTfMyz3wHTgLGpF9REd1 WY/iuCCUqd3QpfdRgQbRUDaIVskIujiA3apBgWs13WgtF6R4QXQJxHGClauO 88KU4IU7pYkt98ByoxrG6xpybyk6zpewHhvCK/MNCVJ4EipZj8Ww3iyCkXmt i0iF9uRNFB04jSu7NiFyJ3N6x5c5PRjw/9fwHX4Xs5OzKM+Uk37pECjjjDn1 cOQ0wpfbjI7CVsq3NvSXt2NI0o5RaTvGZG2MFozKaPOrGhCscMJF/kiMKEbK JZolimEFi52OXFLL/LaE9jWFllWZ23bStTW0D5Vyyxipp9i2o5SsIM4KQlYc hK4yCJNyAA7tAEpyB+BvWUSLZRCVhW5ICpzs4qp8K7VWZZ6Fg22BqtqJvJyS fwjfyh+HqS6DcMphlDy1l1fOj5Uvq7zQbtweSz/+aJkGpSmS8Pae0Cy9LL0b 1VnDMOdOor6YBbZiEQHZEvpV9zFU/QCj+ofoLBtGbfwgfPT0o5YlXNt/Cntf W/MM9lAX/CX2vbIKB15+FYde+hW2fH87Ln2faf8LwRu99/JbOPjaWzi86i0c Wc1YQ1XxxlrGG4w1fL4KEUeOosbdj6X7n+K/frnx8S9p4AQTF3qoRBaqMwdF pBvODA8aMr1oYrlpzfWRhnzozG9keBkedOS60JFtQ2eGER1JKvRXWPCTr667 1eQPQJxC68oRqJMNwFDYgewPXeGPqkjuRvol+pAYYeFKn+WEOd+NolM1yDlh Rx6ZSZ7ZD026H+a8HrhL++CT9KNN3o8OVW/4d1qlPvjETkHDXqlEcUxd+Fx9 qwmmpDZ4srrQkNEIyy0KjNs1UJ6uRNv5CvhSatAisrPgG5nsGriTFbAnSWCK K4MhJhf6iCRoTlzF7b07cWX3JlzetZLk65AVFfGHv9Mohh5/B7PSjKosDWTZ Id8S2pTFZuR1oa2oGwFxL4KSPozwFsaV/ZhS92G6upfRjalqP8bVHZTtDqRH iSFiFF4tQXlEIepYQO1MfHe6gXg1oCnd8Ex4o9nfoCkknZOFDc5OCr2CD+0o pAsoEQUhYa+rmfc1iiBysjohSnMiOqIcN84XI/F8IdLOMU4XI/1EMVKPFSNh fzYiN0Tg9NvHoK+qWp58WNlWTtpZ3lsoJf7UxJ+BQKgNbStPELaVmwmEupDY pN3RX9Di7uAi/nBlZ88dapdUYdFCnhaEVjQOS+EsPOIltFU9RED5CfqrP8Ww 4TEsaWO8/gJ6zJ9hxvIJpiwPsY8aed/rawkIxqtr8R4xcfDV13HklZdwdvtm 7P/GRlx84x0cfn0d9r78Nva/9jYOEA2H1hAVb/C4lrpm7VrGGzj4xmq8/9Zq zC19/GfLe2xCD4vaFj5Kc0LbboU1Al2WB6bMJqrGFjSI2tGU24m2gi4qQz8C JX5Yzxeh444RPWXtCJS2wF/sQyDfiQCVZleaFI9oK154evvBX8NQMoqSdME9 GOVB5J5zCwRNT514Vonsa5rwc3lKLSnDBBmrdvoRC7IuUVxm90GW3CrsBi7u grvCD6/U/0QH1WaHzFU1Ms5mLL/231F2zQNFbBP08a1kzFaYE90wU9A4k2xQ X1Sh7bIKrSxbbVkWtBZ4CG0rPJmhjS8amJNlMMSVQB+dCd2lWGQdOYRre98N YyJi1wZigqS/9W38LkA8s8wBs+PTQrdmmqGgiddnd8Ke24vGogF0lg/Bk9xA CvFiQjOOad04Zg1jmK8ZxbxxGDPGQXRWNSMnpgK5sRKUxFSiKroCmqvlsFNF NmZZ0Uql1MHq4qckCLDt3QVmBPIEQd+WZQjvoW+M08J4rRai+F7kEhklREYi q0VUpBLxUVLcOleMZCIi63wBCngsPFOMopNFyHvvDrJ3xiFzaxzSNsbh1tuX cObNXSFv+9/Ct/dH0NPbhsTuyv5QFbFqCO0dIjzt/Gg3QeJJ0T8TNrdfQwPr lZt4cYU2tl7Vfrl6KQwXgZJYDWmysLwjTxuCNmcKluJFeCoekPo+QUD9GTzF C8i+MAS74n9jKLT9zfYFZmyfoex6Cfa/zpLAOPjGRhzftBvvETSHKNrff/1l nNuxBftf3omIn77F4duCs5vfxUfr+b6NG7FvNUFDsOx7403+3nq+9g4u7wwN 8TqYFZUrQHmyNz20WZM9LxN5oBYJu29tmX7UZ9O65PWR7mixSwfQXU4rdEkF w9FMDLBrglV9tII96K7oRKCsGYEiZ3gbUUdGyQpQXluWkS2uBeQuAyX0EEW2 Iv1qO6KPy5/M5RbHqVGZXA0NL511zID0U27kpwRRGt9Iy+GDPr8ZJuLSVtkK m8TH92mhSlPQCJQg83Q+B1yF3MuU3lENUNxqhf5OB0euE5rrFtTEUt/dcaP6 igGtUVREOax5eW605TnRXNKEtuKQPDHCkq5BzZ1K6G/lEyiJKDn5Ia7t24wr BMrl3RsRwV68sP0dSr6VoitMKv6MJl+Yx5Ky2ioy28Nb1Z0Fw2gqm4BfOoWk TXmov5SLKcM85mrnsWCaw13zLO5aptGt6EI+PXLhTRmKb6pQdUPDVlejLkqD +qQ6Vmsv/EVe9JY0IljmpWHwYpBacEDs5nMHekLGIb8WHYRIS6IGnYU2KGXd SIyrwfVICWIiqpAeXYW0C8UQsWAUMEpP5UL8UQbKD8WhIhQH4yA+EIeSfXEo 3B6HnHU3cemdXRjw+/FXywlTo3LQBGrD37KpYmjosWvpwW2ZJtRnWNBItdxM GLeJrPTjFioK+nJRHVqzaqigDeGdvd5YDUbM3U8Wd1aOAsX8vdCHid7wyogs bQTa3BmYS5bgkTxC+VUvsi8NoCj9M/hqv8CYRVhnnLJ/jmnHZxDHhDDzNjHz Ns5sfx9ndhxm4XgTh1evoUt4hZjZigu7tmLHcztw4823+ZmRe7biP+MKf17Z syUckXs2c6RDIUiFiF3rYVFKll3E3y6bd4XQTlED5FmtqM4U5kOc2QPw5g+j pXgUneIxdFfSjlZNwnLJyfEKYEgxjiHlKPoVw+iR9SMQ3sXIKlNGuiuW4ePp qeefwo0g6n6EAgkZ7tqXk8qJlxUQxSpRmkSPmaZmEzQEiwkp1/zIS2xGMSlH wqYpC7xQUxOXUxFVJJJt70iQfyULGSeLkXleh5wIDud1H2TxHdCm+qELAS3K Av0NO6uKA+qrdeiLlaOjoAX1HD57igLOTA0axc1oKg3tTw99J0EOfSKryq1U KC5fQBTBcpVgidzDqrKbYNm5DgPdXcsbm5/9ypA/xZV/SzFhorr2EendqM0Z gqtkEi2SOXQr76KR9r6FfTev7caC5QHu2h7gnv0elhxL0KSRr29KUXpLi4pb dVDdsMB4wwo7j+6bRhqTDhqTTuGT/wfG5e14+tFb7mLXW9BFDmxLkiGPyjGH EXk4FneOplC9iiA6no4inouPpqLqwzTIP0qD6kQq1CdSoD6ZDNXxRMiPxUNy hDDafxslm2MRuX4nBv3+v1iZbJ+cR7lIHdbnVTlGIsfMAm+DPcsFj6geTdkN aMttCO84DxDpPcUNDA/Dje7C0H75EJqI8DQtmm8r8GB07umu/Ap4bnvDmzZl 6aO01nOkzHtIj2hE2jE9tCUL6DV+igHTY4xYP8W4/VNMOqjKXB+jLKY4DJ79 r7+D41sO4MTW/ThA73GYnuP4hndwbqcAnuMbduLiD94JgWfvtmfJjFvJhpF7 BeRE7lnmyd1EjUqyAhqboo7EqF3WDq2QcZC1GQPh5+78CfiKp9BePgs/B7xX tgBfziBGCKRhTWir4DxjFgOaSfSoR6gu+2i3OhCQ1iNAqz/f2fH803u6hY2T oSm+0ENVJSw1nN+lwMUPasPnCVe1SL+hRm6iGkWpahSmKnHrlANJkT6kxbiR c6ceBeluZMZWEWdlyL8lDv9e1mURUo+XIf1szRNFJknsgvyWF1racGWMHYZb Lqqy+jCOumOr0VHcjsZcJ+wZ1XDSmLly7XCWNsBdaIIyXgxlXD4dTjLk14id /VtwlfiJ3Evs7NnI3haw88zyulVvwA+1rAp7312P995dLzThRRzeuB6HNqyH jjK/zy8wkTTZTkS1QZXRj7r8cbjEs2ihR+3WPMSQ4RNM1j1Gv/MzPKjtxZLz Me67P0VQO4zS2AqU3dKh/Da97i03dDcbYObtuRMa4LvjouPpx7AsiDGlUMun NP10PH10PN0UfX6MqJZXcyQeamozKqLzkXe9CLGnUhG7Px55h1MhO5YG9Ufp qDyeC/nJPGjO5EN3Lh+GC3kwXsxlZKPmQhb059JRfToZyo8SID90C+KtUTiz cd1fLE/nlGdIWYS0lPgmKHIc1NH1sNGkebLJTnlt6CikjC/pCH8nIFjegcHK ULQzWhGsaOLrDfx/oj/PhC9Xb/DtrwjfcF/eoIKLC+11H4U6bxa1ZXfhqrqP CorPDt1DdBsfod/8CEPW0E4HYdF7wnUfpTEFtC4hBfcO9q56J6zKDtC+HF67 JqzIzu3cxiHehkt7tmH/z3fj+tr1iNy3DVfCsTWMrDCu9rIahfRHOC02hHD1 5IuQPUwJFVNCLa1i+zX8+Sw0zIOvLnkKkJCmlJNhBVMtTRf2Uukyx2DNEUR9 s3gRHZJ76JbdR5/qAXyJQ5ipux+ezxjT3w9/AWtQP49e7SQC1cMIaLqFnYYq M+a7u/F06aL+m6TT1CgF9EnShS8vhx7iC0VI3JcZPr96zoIbkRbcvqFFItEY y6p2J16L29csuHbBg9gIAyJPlSHmYhnir4qRHCMgMemCCElHhfPUCA9yooTt gdKbHmgTfVCwgunjnDBT8jlS3eiI1aG9pJ2FuZFF2gxrVh2rFyk400BB7oQ1 Xwd5fB7kNxJQculDHHjpx7iyf7PQ5XuJxN3rVr7RUy2vwnub1+PglvV4f8sG HNu8YSV9jm/agF/ho418cf16xDNlBSh2QZ01iLqiKbgqF1nIHqBb9wmGjJ9h 0vwFeWwSvUybT8y9GNRMwCKyQXxDRRhaUXkrJGVb6NvaYUvqQENqaOdSE4XE GMbU45jSCisDczVj4a/o+Esb0VHiQUuRMC/To6QMTlMi72ousi/mIGJfMpIO F0B8oozwqoDtUhkUZ8pQfUGMmohy1F2pgIV+zHpNzCiF5VoxzFcKUHM5G9rz 6dCcTITqSAxyd5yA6FoEpdPKXs2vPbV9uSpLQT9RC1m2m4XOhzpRG1zZXfDl BdBe1EO504e+yn4MVgXDZDIq78eYog+jih4My/0YILv3SELb/snwBQJnT1Fe P9kX+o/osvZAGuXggFONpQ5DmTuNmtJ52KsW4FXdRatuCV3GJfSYlxC0LmHQ voRh512MuBZRHJOLfa+9GVaJYVyuIS7DUwprcIZF7hwxeWG3gMuTm3bh+A/f Rez2TU+wycJHdP4eLu/bwiAu94WShLhUS5Y55I+hCdE0s2Qfs+PAuxtwiHGY 6XFkYyjW4wj5+k5kJPrJ10/JoGd5My2MHijShrHyFb2WiofolH1CKfQY5oQB 9tcjDBs+wygr+ZjxY8YDDBrvordmFgH9OAIGSksD2U/vgF9e/vxX5yy0Stqq TF14Jac6S8CkI0M4hhZvS2kGQo+S9+IRd5S4O1aGWx8U4/ChRJw5VcTuS0ND 8iUc3xyBo4crcPyUeHld+xu4dUjAZMJxAzLOL1MNy0h1EoUyBZkuwYo6liZd vBn1tyroLG0UzG64cx1wsDJaaBpqs4zQpWlgKKqDqVAKWVwCondtwI4XvoVt P/4mTm1eg0v7NuLcnnXhO0qIigyD8QjjKAF5nHGScZpdL+Dy7OYNQlf+A+68 L4b0jh9K0QhqS2bgkiyhRfUITdIF2HJ76Rdb4RC1oj63DQH3F1jQNCPnfDby IhTIv2qBOLYJqtt+GJN64UjrQ6Ool7qtCyOaufCahr9U+LaLO8UCTyoVaErd E6lQk6CCNb4cuRfTURCRi7JrVUg9rULyMTkqz1Xjzpps1J6qoMVWoOaKEuYo FWwxKjhuKOG6qWDI4LxZRWVbAdP1UhiuFkB7KRPa03FQvR+J6G1bl5dk/v4r NexJHQt9G0rkhFzUDK2oi53dA09eEK3FQ+gqH0Fv1SihN4YR5XiYXCaqxzCp HcUEdcFo9SAG1f3oVYa+m9GCgJhWv1iHL+vmP37lMysumSG93sa+DkKePQ4t BZ5ZMgO3chaN1XNoq5lHl2kePZZ59NvnEHTMYcA5C7PYFp4S3Mu6uWfVW9i7 5i3sX7sWh99+E6dZL88uY/MisXlp73YcWbMbMa+ExSiR+WdhZF5mRBCb5/bv x+n3juPM/o9QlFYGZ207GftDHNq8BweYIIeZIO8zjhKbH4Zi04Znwuz9LD4k PD8kh6dGRC7fHg1Kooy34ySftzP6oUgfgz5nFtYimlPxQ7RUfYpOxWeUWF/A kTiOUfNvMGykSa37HGPU26OmjzHIctpbu4BA7RQCpkHh63t1rE/qyuefnm1/ GQaVM2y1ZaFZwGx6r2xhZr1FZAwf/bnG8BJl6KE8EU/7HonygzG07/FwHixE dFwF4m/cQUHqVbz58xexZ82HOPvr98Pv377hSPi47dXViN6YED6PP6pG+nmB ayW3HNBQ7FUn2VCdUAdjipnPzTBWulBfYCRarQwL7DlmmLNNMNLeazM0UKZX QlesRG1eFiJ3vYMdP3kO2174JjY//w2yxSpk3bxMtF7GoS3r8P7W9Ti2dQNO hJC6ZSPObt2I81tDy/8b2f8X+fNX4Z0okVuO4eaObNz5UAsFQVtTMgtn1RKc 5dNQJHihT2mEOdPHqt7EZG6CLb8HA/5/Q3FECfIuaZEbYUfhZS9B24Pa1EE4 RcPw0Vl0lTHhpVPwZrfDmSLshPRm1KMxww1PUh29oLADbkLaBr/Sh7wruci5 Voms8wTtRxIkf6RF6SULyk4ZkfBqFszn1bDGGmC7WQNrjIYg1RCsaoYS9pty OAl+y20ZrWk5dFEh4KZBe+Y60pikJnnlE3/cs6zxNU8Jut5lUf/l7rU/J5gb Ic/shD6rn8Q1DG/RONrFk7i9OgHu82IMq+cwpp3DpG4O04Y5zLA2TNVMY7xm AkP6EfRpg1jZ1esvqXyaLAS++r6wC4KWSBLXg6qMISgLR1FTPg6rfAJumrFG /RRamcid5in4rZPotk+G98B3e8aw69U12P3aWuxe9SZ2E8N73ngDJ7ZvxSli +AwxfI4YvkAMXySGI4jcAz/aieitm4jdbbi8fyvOHzqJkx/E48wHcbhEW331 0G3kRUsRtec2onfeRtTWOERtuo0LGz/EqQ27mV5MJWL45LvE8Cme/ANLN59u DG0iWY+MSOEPxUjjqEwSXMRyB6RJA5CnT0KXuwBr8X14Kj5Gs+wxOlSfQx7d H95xPWj8HMPE76j5McbMn2LUQgybH6LXfBcB6zQCtuUvaVrrMT8YXJHALy9T Ro3ShrIsNRlQAK8zx0Zr6xCkWZGwVDAodmG43Bk+r2FSyI9dQtWRk+i+KMJQ TiUyd1zCBfbK7lW/wuvf+Res/u43sOYnL2PXG2dWNMPp11fh2tazy2Qcevw+ FZ8JFTctUBHD2mQrvaYBumTjs8u1yJ5TC0eOAHeTqAY1Ij00WSooMsshSxNB niMifA5iyw++ju0/+Bds/dG/YMevv4fk65dxmPA9sgJfQvY0x+3ctk2E7ru4 tP1dROygJmI8w5+bWJEitm9E5OYPcHNrFm7urUTqOSv0xTMwMJ/Kbgh3rkut hynTw3Y1CHfwPZYoD0rooIsi69gUF4/NkMQw45MHhM1JzPiW4hGYk3ywpxL5 cUKH+jP8GCsbxoTtHnrVQZYa4StDFddLkHWuAJlnK5BxRoHME0qIjmtQckYP 6aVa5BysQ/a6IrhjrGhIsMB8XUdEa4nkaiJYAwvLcG2sHDU3pDDcltIai6GN yoX2cgKUp8/BrJAs263fD8u/fZR/B5iWhxhHmJEfhMpL6PE/cJilRS+pEprb IGzbk6aztKS3QZHRCwOJzl5AhJXN0pEtoPiiDa4MC3orB9BeHERXaZAVmOJZ PYEZ011MsJIOE4n9NSMI6EJfpqN6UdLaVqnxaGZK4JZ3qKw6Ib7ehQpWL0nO AFSlg6iRDMOiDO0TGUGDYQRNtSNoNY+gzT6MdvcQ2hoGkXEjDTsI6J2vr8WO 1Wt5N5vwEcH87isvYuurv8Z2xo7Xfo2dPF5kqp7YvBNRv1iHSwcO4sKH8bj4 UTwiebx+LA63CeiMUxlIfO827uy7jZTdcUjdEYcUAjp1E+NtAvydY1RvG3Em VBdCsTkUwo7E0LawM5vWIevKZVTFSiC9TTTHdRLNg5BnTEGbtwhLyQO4Kynq 5J/AVDCDRqK7t+ZTBEOb6k2fYIQoHgltmrZSN1uZJbZFBJzLm+hdAQQcRPNw 8Pmn99b9Htq9neEdEFWswHqC2J7jebJW11fWgqHKVoxJV76d+CeYZtXwJlbC FJWD4ZtlmKqSM08SCe5buL3zGHszBOivYxUB/ca/fgtvf/9bWFk4itgShbi3 DuLG+vzwK0mntBBFGlB6g64q0YTqNDMUifTUSVpUpwjzajXp1TCFvwYtyDKj qBq6bDWU2XJIs0pQkZaOyPdIuWcukDZfw/4ffwMHX/gn7Prld7F77auURtTP hPTxJ5B+FxdX4LxzMyJ3bn4GV3a9y/QW9oqQrXduROzGdNzaJebAqoUt+/8V zjzqhELBgeacldHJelF0xYviq62Q3AxAk9SH0jMmmFJ6oIvwwXKrF80ZEyud 6Wddac5reYrO/hlmkYVpk0wAlyOT4E07pUDG8WrknGSnXDRDfoVSJcqGtL12 lO2sIIC98N6xshRTO8fVwhVvhI0UaIqrhuGWAprYSqhviAniImivp6H6ciRy Yi+Hh7qv24/32BkHGIcpTz5gfMjU+2gzARwqMkINPk6l+FFoS/blyJXv5UtT GxhdFEIDqMkR9lraSVW6hA5+IsVKWgC9TDhfbkh0NMNF2nKnNaKpoAP91RMY tsyhv44VtIbSUB/6jmQDsazHnL9tWYb+8Mkk4B4CYT9j/c9W460fr8LbL6zG 2z9ZhejjqchP4p0qg7BVB+GqCcJjDqLBzgj9hZKGINyNQWx9eQ22sUJvW7UK r7/wA/zi21/Hi4xXGK8993W8zlj1LR6/+XVsfP6HtFaRuHr0Nq5QbF5j3Dwe j6QP45B85CbSWJ2zDtxGzntxyNsXh/y9jD2MXYztDFbq1HUXcX7bu89S1W0i BYa0XmiX8Tmy5Dni+fKW/ZDG0tDfYmVOHICMWK7OWwjPXjslD9CoeMi8maJh eIxu40Mocjuhzusk3jtgYHeGVtG98kEKkDkE6qeELzp42IUuNz5eWvwKlv8R Zani8F/CU9EOmagc63mVtiI/esu7MSztwYSyFzOaXsxpe7Gg72b4Ma/vwFiq FtPVdTBcz4EmMg3KM3FU3VHsyBfxGjvu9e98E2uI5be+/xw9xJvhtLi8ZytO 7j2L6HeTcGurcjml/xfyo3WoiDNAkVyD6oxaSOKVkN8RvuqvTlVAl6mGPlNF hSe8psyRQZJdCXFmAfKSkvDuD7+Btd/5VyrsH+C9F7+Pgy89h6OvfhtvP/+v QsqSOU+yr88Qx+eJ4UvE8OVdmwnezbi6ezOuMZ7BtT2bCeiru4V9AFffPYOb 20px67ASsR8qhET/JXQZghgOPRwFws6K3BMVyGElF8d3ozS6HVU3/cwHou8j NUxFn6G2/CEcVdNwZLbBk92GRjrqpvw2NBe0wVfQAk9BI5z59eGv8GedyiKy WZLP6YhyLdIo9jOP61F22Q5JpA2ySEsY3bkf1KP8Axk0UdXEjgm+VDtcRLk9 yUQZQBWTUA0NRbY8tgyK6/nQ3hZBGxOD6P2bwqgOTRMcWpm3W5kq2CxMFZwJ oTtUZQSJdJrQOkX1KIzWD+n4fJCmdEOVSQ+SN42y600ovVoP2fVGVN9qhjGh lYzbj76Gx/DntaI+oxWeTEKcOt2W4YGroBn9oaXeOtaY0J9Qqm0ivGsx19MZ zsm46EjsX1YMTxvTPa+8iU3Pr8YmwnvTT1djM+Ojzcegp7KpNQRhMgVhtjFc QdTV8zVPEPmlOrz1s5/il8/9C3717X/BS9/++gpDvfFtJg2R/eZyvL/hIM7u u4KI964j6v0biD9yA8nHE5DxYQJE7yci73ASig7fQQmj7MgdlDMqjiSh/HAC xAfjUb6fANh5C6J3z4dsG8vF3/PnprCNu8BicoG9ffrtt5B9vBTS662Qxgep ciYI3TkYSxZhq7yLsrg+lKV1IifRjttX1bjDyLiiRs5lFfIvqVBwnnFGifwT FO/Xa9EQUjfeDnQ6nSvbDH4dPryGjoZWVKYpIcu0Uz9SE+b40RjavVAxiKB8 GOPqUczoRrFQM4oljsQ90zBjEEviZtxztmOypgtNhUbU3amA4nIKZCev48Sq d/Ayu+qtF35IFfRrnN6+Bed2bsHF3Vtxea8wJXhtP49bMnH9YC0ST9QgK6Ia BdfVKGdCylJ0kKdqUHpL+IMtkiQJn0upVhhZgggUZ1egSFQGUUoWdr3+Mta9 8G289r0fYsMvX6Cqeh6S6IPYvu4szq45jtOv7sOZl9/BaeL63I7NuMi2hDaA RO7egqt7tuDa3i3PIEr4sRl/xNcEbEe9k4/o3ZUc6rLwZ2ZHCTqhKtEIVVrt yiyVKU+YthMdEyP7RC2yLvpQfMMfdoGFlN8ViS2Q3aqnDKfxTm+CQ9SM+pxm ePOb2XXNaGb4imjGC4nvAg8sefbw9bLOaZB5vg5ZZ01P9teV0UDLrnKoYlyo 5TWLTzdAcUYNbaya12lDV3E76tPtMCfXoeaOHtU00Qp2o+xGATQJ2cT3bcR9 sDM8oXCYjuSDrQKuT5D6Tm0h9THObd0kfNxxJuTG8JzCWSZl5LaDguxObCa2 e6HMHEMONUpOhAtl17yQxTZBG0dMJ7XBktKGurwgelt+ixlZExpELahndtlF XpoWF2wFXnRbx+gCKb0tLcS2CQ5FeVhACJSzIUw5RzcLQuK4YFTxwVvvYNev 3ghjevPPV2PrLxg/XwURK5PCGISCZVtmJWCs/egZvRue6Vz94+/hReL6ZeI6 9FjNqrOWoA493vnON7CO8R4z9uJ7l3HpvSu4sDcSN/fFIp+ALTuahJxjGSj4 IBOlH4hQfiwbkg+zITueDfmJbChOiKA4nhle35YfvQP54XjI+bt5285QBW4O K8FL4dhEo7cRl7ZtwMWt63Bx/UFIrzVSi/dQ/oxCkTMFfckMlPn9iDpbjYQY gjpahUxGfpSKvKlCRaQSVRFE6kXGeQL7jJxoYxyTopr/NzM29n9h2+/1oyrV SNx4YcjqYiEKolk8ioBsEoOaGUzqZzFfN4cliqgHtlmMyvwYyqzHYn0f5u0j mLIMYLS2G0FdKwJymqNSLfJOn8f71HEfhBzNts04tWNLeJ37/8Z2FHXz1R1Z uHJEi9vnapB5pQ5F17WkLt5Jsgp5sQKmCuLKUJJcjtL0chTTSocTP0OM5OQC 7HyTIu35b2HN9ymwfkR8//yHOHXuNK/3HsXW/8Iqjuj+nSfx/varuLjlKq6+ egTX1+/ClfUbwxtUru3diqh9W59B9L6t+AP+3MKnW8Igv0KIR247hEvrSnB+ Z+kyvn6JkjgtJHd0T2q3LluY5k89WIiMo3qkna5HblQ7xAk9UKUTBHFeyGMc qE6sR11GA2xMcFduY7hWNxLPviIvfMUN8BR54Ch0w1KwjO3TaqpyE621FYnH tMvCv4712wZ5lAvaG/Uw3vbAnNiA8ggvdJerqXvr4aXu7ZR0oz7bhZoUI6qT NFAkVEEWX0QhmAZtUjx2vvbT8NT++yFsE8AniOnTjLNb3w3pyVDNeSY87fAc 83MTIrYLuRmaQbyy9QBu7byD5PdDM7d9yIlqQfIZKzHuRlkUb/WmD9XxTTDe aYY5rRl21uu6/D70dv4blkys4TmNoQkJmg83M84Kl5zYdvbTH7agSaMkttfh EGnn8NZlkxCSFPSqJxmhOc0zm7/iX5/BwTVv0R7tW3cEu988hBiyXOw1NW5E qsJfYK03tOODzbvDTLbppV/g1eeEPyX7xre/ibe+882V7w5eOXiFPi4aMe/d wMpcieZ0IRTnK1H2YSEqjxdDeqqERFoK9dnQn7QqgfZ8MaOQ5/lQn86G5mQ6 NEfjoaJ2Td11OKwLQx4vYif9Ho1dxI6N7Ek67fXvoPKSG5LYTibSAL3vKCqy Aog6J0FyrAYp15XIYhRGK1EepSCZK6CMVNBOKaC9LIc+Qk6HJ4Pukgz681LU nJWiPdcd+vOfK3NlArz/AeXxFRRYdsjTW1Hzf/h6D7C4rjVLdH3ue193vw5v 3nRP6OmbbN9s3+u2fW3ZspVzABEkFIkCRM4555xzzpmqgqqigIICihwEkhBJ IIRyRtm+7p4382bWOafgynfevPq+X6dA0qlde//r/9faZ+9/FyxhsOImLpI/ Lsif4Ib6Ge53v8BT3Qu8GHghFse9QT757cg6ng8/xpOhB7g/cBs3ddex0nUV 8+3jmGvSkg+mwuGYBG+XE+bwILx9zpyAP+EdRHhv1JOMsLXYxEi0jwLJYUzh sT0oT1AhM0KCdl5yHbKSpffpGdS76dJ7k907sYMyfsdHv8LOj3/JIP4H+B47 srlqUID2PkLb2dwU7myDN9vgfu4807A3/K2TkEzKnWhkh4QjJoS2tQDtKP4Z aX38e2upjv5+G9yPVhia/J+QH6PYbHJVcjOtSYJdaAOy7NuQ7jmI7IgZlCXP Mb9NoiisF3Xx5Kpp0+hKG4cudxT9OXoMlQ4TzsMYrRjCWAV1e7l+c5dqrqcW 2aT4sQ6Kzd+1x+k3P1fyvo9xNbsFg7xXf8EoxmpmeK8RQlcpQrk1uRzNyVlo iA0ToSzOMhATroSwJyEsqhOiN+CUmZRjBJVCLww5bSZegw3eKGy1irNIJp7L ke+nR5xzB9IYbgqC9ZQfw+KT/zaKfmXKCDrTGWqyRqAj7+7Mv4Lrl5/jxehV DNDzeoSVIoU6tBd1YKqbmWBwCs2ZSfwuAuxMRAohKCchzGxQCJ8TIo1guCGx Fd6ftoSXbTC8HBLh55CAEMrfJLdsNKaqGbqk2o+xJxMQY56AKKN4+Bu7wO7Q frG3Dv32VzjygVQ79hhVoqeZNcJsg8Sfsy9Iz2KSbXKRa1Mgvm/xZsZzk0Pm IUObTwvavRpFRGmCmyBjTteE1KMjuJa/q4LSn5LHKxtK13jIHQJFRiguZRTQ fUbqy41lwLJ0JWpDpqlAF1FI6hXumY8Apwx+nzgE28ch8nw8MpyzUOpRikb/ BqjD29FJ645shzaqDVrmdC2R3x3RjOH4NozHtmM4uPl7oP4Z6sUypsOQZc2i s+g6BmvuYrrlMRaUz7HW9VrcEbA+8C2uy+9iuXQJ3018g9fjr/Fi/AWejD3F /eEHuKW/iZXeJcx3cLQU/bhc3wh7YzIqU1M4EVDu5OPeBLUvQR1AUAuPEIRX mI0F5S2R/UOGSzfxV4G+CkRRXSTEKTen7qKjqxEXV4PwxMbNeHBw+zaYf/U5 bLd/DY89e+Cxew9cd+6G0/Zd8DI6REy/J6ZrZ3MzuFtImPZjEwLfog2BDj4I c4hCqi1DrJEj0i3OIJaO9fYiLyE2GH20U/zUgAtSNas4/xbxmhbWKDVxCwoz GpGb3ogkKznS3HRIDRpHeoCOmBboOcVRGNMmZbAiexCdxGB30bSYtofp7yNF fRgs0UFfLkn47kqJ3ue5yim7uxHvpEKMg7RLIddb2jjUENULeXwfVMmS1Ndm SNeB2gH0Z/dCl92DrqxuyvxJ5ss+jm4LFUQlfSoTldEBzIWk4vyqLseFkGcm KZWT5vAnvgOpVoJpIVQsobR3qE0ElRJ6lpg/Q6yfNkH08RDEnyhBrGUTYkhT Urx7qKj6UBbev1EoWpZI1UC9qEnvR3cmFUJWH3qzdVi++hxPLi5Ak9qB3kwV uoraMNg+AE1tPRJ93cXnFiKTYPPcNiDOJgqTnWQT74gS9v9CgLUrApwTEeiS iHBe45wSkeyYgAwivTagDF0patR7k0SdSUAOkZ51PBHZxxKReDTI4ERbcPKL T3F66xcItfZBom24+NukC3niNdW2DAV20tPbWk/mTV8Km+AuKMkrlRED0Ebo 0HihHMNuqZiJKER3MPNneBP/vgbKwGKofDOg8opArp0ds4MB5WfN3lq0bIQe WT2q4lRwMvWDn10U/M/HIcgxHiGMWDGO6Uixz0KWXTbybLJRZJ1LNVAOdZgS ugQt+pK06E/qpmkwwdGeydHiUkYHZpLkWKrW4ZO3Yf6eoartGB1hHp2lNzFY 9wDTsmdYUL/CmvZb3O//Dkuyh1hgTv928t9o/4rXk3/Ei8k3eDL5AveFff1D d7HSv4IFoXxVxyAut7ZA2dAIBxNTJg0zuNCBPOg4PsSYPzEWaIC5MKUdKtBz W4sNWenjHA0/KncHxq3zfjU4axMHGwsXOJ51wcmP/wDj7UawOWoE93174Unz Fm0PvPfugeee3XDbtQtOO3Zg57s/xdFPPmK++jOYn7MQYC593F8hUmiBvf1m Wiw444V0cxtmdSPs+dW7ksv+ACe/tIP92Rq4XGiEr2+r9Ot/JAtsQlyKDPEZ rYhlgI8904oYqyYkOMuQSS2cQcpUQErVkNIFWaYWytwe8qMeaIt60F02iF6B izOBDxDkuoqujdnFXHLebFcNomxbEGUvhZYsb4ma10Z1kft2Q8ERVqdqJYzz 1r3EdG92F7RZGmhoCo64PEcFWR7xnU9852RRdtiwz8xx4csDxLcZPARKw6Hx Y9+8PRMhLKX/C3E+4gv+aS7iW/DOUAsrxJkWIMikmF7YjkTPLubxTuQHdqI8 vBt1MVJ72lJ6oE7vQWcmv2aWFtpstpUS4crsM0w3D2KwvBMj1cIqIdLGwiJ6 t6XIwTe4hQfb5mUAtj/bFyDEHlqwYxDC3JIQ7paIKNdEJBHhmUR4nmMiiuwT UGqbgME0NcpsElAumHUiyiwTUXqGdiIRxUaxUrjm9w3i9408Zyd1+R+Q6JCH XCfpgU2eUzPKXKSJ20ZfUoJADdpCuqDiV+yM5CgGtWOStGW6sAfDKSpoEwfR E6dFV4RCTOmdQYVQ+zDYuLtJABfNsL76nLS++sSebTDbv5exzBWBttEEdiKC 7fjVzqcjybEYWQ5lKHKoQql9BSrsy1DDgFLnXAF1aLu45EGfMYhLxeOYpbKb LRnGrLDxKqcDV9KamXivfPxWdZP/ZTuY8NqL2milWO+4hdpRU34bgw2PcFHx HAua17jB1D7beh9XKm/jJTH/hpj/5iJxf/E7sRruk6lXuD+xjlsj97GiX8W8 ULCsexgzba3iZ9gdNYG9mRkuEHiu7GxPAs+HMtjPUsJ9EGV5sM1GDGDepQkv fxtz+NqY4tTuL5nDt+KLdz+C0cefwZL53GbnZ3DcvQ2ue/fBY/8+eNF8DuyD 74G9NAaA/bsZFHbBec8ObP/pj3HsXz4VwS9MDXgJUwNsg7DySNAOIYb4E842 GPTDO4hgI6TFV6EuXoh2CcfJr/bA+Fcf4ct/fh973/019nx2BGf2mMPioAdO mYfgwvkIeNsHw8c+iFrREr4c0JCD8Yg81YBo+2YkerQgwaMGmQH1qExg1knr QGtWB9pyNVAXaAwD8ynUVRqoars3g1CGdT3STtcj4bwcUQ4S/tO9pGtFuAr1 Qu2ARN4nhf8vXVqeoMnsQFd2B7GvREe2EvLsdjTnt6OlsBmthXSgzBTYHDOF 2xk3WJ9Ogt+JcITud0PoQQdEGJ1ByO6jxPgJcVONsHg5zFKatQi3JOWxFGKC wYGZ5yOPxSLwSAGDZyvC2b4Ej3ZkBahQHLZRnO5XaEvrhILgaEulpanQmqFB q8A9KnQYaNBitEUNVVkVcqNjvsc53Dhkgrbw4bD5idg/LvKOMMdARLkT9+5J iKeluCUzRiaj0DkVZRfSUMWsWEvrCq1F3YV01Dulo8EpFfWOKahzSEYdwVVn mYAq82hsTKhn2Lkj0VGKCVlU3ykukg4rdlOh2kvq16bAHshDdczs/eiIHkB3 rB7j0TN4oLrFDNvPbKuDlhlXk9CBdkpOZYICHXF1m2W0006cR+rxE4afpM89 uesI85Av3TBEckPbbETbFiCFzCLHrhrFDnUod6hFjUs9Gtwb0OxJLebdgA6C f6l2nnYVCzVMtVUzmKugXCaPmytQYja7Bv+/yBf+dJXiWpyA/CWG4NsYaHyE qbZ1zHW+wETjHUxV3sWTiT/iOQn9qymS+mnazDd4Pv0Gjy8S+ZPPcHP0AZaH bmB+gMjvHcK1Ub30/PXqHOzoZvbHzeFEcu/KofOgW3mfMyDciii0kt4HEHD+ NsfF9z42HHYiPzshjOLgDA5++hUV+ecw/XoLzu74Go7bd8N13wF4HDgAr4MH 4XPoAHxpPpRm3of2wuPgbrgc2AmzT36PU59uw9mv+LPFW7MG4prD7wkMEf1S FKC7GyJQsDVTjbUpzjECff3Td7H1Jx/C+MOPYfn5xzix5WuY76F4OXQEHmyL N9viQ/M7SGM7/A7uQ9DhSsKlGZFOTQh3qkKyTz0KKLXKkxSoTWtDY1Y7WnPb IStoFz9PXk76X6lAY5UCdVXStEA83Tj+ZAtSHTqxscMq2b1ZfFdENlEZKUet wNqSCPM0iRa0p7ehPUOB9mwFw4sMsvwWNAgPHQvrUJtbgHgvd+x+7ydwMjMR lY8bx8dTGB9bb+Yd7w1vTTFzQrKFNaSIKLx+x2ggCB5pJsN5vwl8duUg6EQd g3gjIsiHUnykyFQcrkB5pPQVauLb0Uj0N2fw62YLO87bUMt0qajToau1Fz1y DSqLSBAtYjiMnvDeYwufPVQcB4yoOJgE2DT/DeQ7+CLGLR5xHkS+RwpS3dOQ 45aFYpccVLjkodalAI0uhVTaheiPJRf3KGTbZZ4F2ME/89Dqno0W1wy0XkhB s1U0moz9UGJ9AHFWPsi0i0e6S7HY5mSDiCvx0KLGz3AaTIgebRHDUEePojNu DLqQGdxue4D+1DEMpI6gP42pP60fnSndVFxqKBNbGQFqoIovgIqRzd/+vHRv V2+k+0ozBId/K80gOBxm1LUMpPtJESjathiJNpXItKlBnm0DShyaUencijp3 qj2TVGjt0tARokRnqBIDCb1YaVrBtcZrWGiYx1ydsO19TDzOY660FY+mZiBV LJKqnfxAGtDNRfj/KK5TV5bdQl/DfYy3PUJV8gTaotqo1m/h4egLPJ14gWdT L/Fi+iVezrzE+vQLPLr4HHcnn2Jt7D6uGYoRzvbpcW9lUYotRiL+bU3McJ7+ dYGD6HL6BNzPStjyZjrxMWDfh0ra24B9d2szZBL3QpmS9JAMGH2+A6Zb9+DU 9v04/fVBOOzaT8c7BPeDh+F56DC8jwh2iHYQnkf2w/XIXjgd2g1tShlO/2E7 Tn++XVyl5WZgHr7/G9UhvEKJ+xAD9gPJPvwZg3ytjuHQ7z/Flnf/BYf+5XOc /moLbHZ8SvZxkOzjEGMQP59t8WFb/A4Ldoh2UIxFfiYZjB/NCGQIj3RrQHJA M3Ji5Cgm/svTFagiPmsKJJBUlylQUb4xPXcGEWYpiDnXhFgXJTVJHaKd68S/ yQ5qRFG4hP+auBbUJ0k7WFvTifPMFrTmNKE5rwH1BXWoLqhBZV4FyrPzYfHJ 77Dr3R/j3NadcBJ2mJ+QMO/DMZFmPAz9wX7xc/JBjLMP4lyixN8VWPoiy8ie NMSawvgorCmIj/xmK+NeCbzNq+BnVY0IR+khSWqgDPnhEngq2b4KYUdnmgy1 OTLUFclQXczvWd2J2vpOVJTUk9l9gROM607mJrA57YHzp8LhczIGkQfcEbrP GmH7jlGiWSHWNRoJTPkJHmlI8shGlns+ityKUelaijrXCjR5UNZ4VaHdpwpK P179hGm0Kqj8K2nlfF+KNt8iKFwy0H0hFirHSJQett6IdYlUWSkXlMh269pc 5t8cOoy+nFUiYQLquCkoAqZwveUJdGkX0Z8+Rdo9gf6MUfSQfnem66BK7YQy tQ3KtAZeS4j/RMQ7nBHv5nhkH05t24Jtv/yx+POnP3oPAZSXG+Ve0mwakGfX gjIyqBrnNmZ6JVq81Eg/U4n+qGZ0UWpoo7ppXZivXsKy7CYWW65jrmkBcw3M /HXCwQAarHV1fw/rf7ZRd2MJ/MbvNn7fmDoHefEqtHW3MSK/h0uaB+htXsAN /WPcHXmCh+NP8XjqKZ5efIp12pOLT/Bg6jHuTDzC6vg9LI5fx9WRGVzU9eD5 k0cb9TkXGQASwyNgwwBgf/L4xkydK/O/G/HvbnXc0Nk/hZOVGdSKJvE/9rRq 0ZirQm54FY5t2Uf/OIhzOw7h3M4jcNyxBy4Hj8L98FF4HDkCT6MjcDc6DFej g3A6uh/Rdg5Ybh5FgXskTm/ZjlPM0870c3cmDy9i35e53/9t5WFtsUlTA4h5 P3IPH+b8gPNWOH/YAgc//hq7PvkSRlu34vT2vXDYuQ8u+/mZbIPXoaPwOXIU vkcFO0JjLDh6EB5sh7uJP3zPK+Dt2IRQT+I4hDk8ToGsFAVyMxXIy5Vwn1Ok QEaR9D7CzdkQkwQVRJp9rBqRtjL4WVdvznIm+9UiK6QOBRH1m9X8a5IbyCdo WfWoyakj5mtRll+D4rxqlOVVkaafhi2db+e7P8HZz76G/VGjP8O/BQLewn+o tbA3Kox/eom/C7NmzHTxRqybFy0CwbZexP8H2PPuDrgdqCCvaoC/g0SX47wa keQvvS+Il6GUcakiqxUVea0oL2hFSVELigpbkJtbTxl/Erve+xGMPviA+DcV uYgrXcXD4jicztgxJ3gzDkci0T6W4Exi4sxEilMu0txLkOdWgTLXaurqOjR5 NkDu2wQl42tHcDM6Q5p4bWJy5PvQRloDVIHV0PiWoDuwCCrvLHQS/10uQci0 jaS0ykOCfQ0SHGS8vxrZHj0o8RtATfAwmiPGMF75BG0xF1HjO4YV1R+hTZuB LmMG/ZnTGMiaQl+2sIJiBJ1ZA1AJMzuZpP5Zzbwy7qSmIMvDRuwPGyrSbb/4 MbYzCOz54Jfi7wLOBEj9fqZQ6j+bJqTbylHooCShEWrVd6HZRwu5fw+a4ufI xxegpezojdNDF9+PkaxxXG+/jyXFLczJhDNX5mjCqRE6zNU3GGLBn2oyb5xf 9ecRoC7uKiXiMjqqr0PfuoZJ1W3Mau/iWv898Yyq2+T49yYe4MEkbeoBef99 pv97uDl5F8uTt3B1fBEzw5OYvTgp1dTAX2Nxbg5tLc2wIomzPWWO82eOw/4s QwHlY0p8BJSKZkN7foQHt++hIbMJTbk6yPMmUR7RBtMvD8Fi+xFY7jHCWUpS xwNH4HTYCM70X2ejo3AyPgIHYn+0XIPbHfPsh0tYaB1DgLk1Tn25jdrDCC7C UzrmNwH7PpabuuMdBNCp3xN/9CPUfAh9L0I/NzEMtUIVvNwOGH26GyZf7IfF 14dgydBzbhc/ci/T/kFjeBw2htdRY8KdZkSeasyQZCyFoQuM9YutUwh3zIe9 QyPcvUkBIuQIi1cgMpmWLsE9LCgGwa6uQgiSkPwzBLEpATT/0w4INK+H95l6 BNg3IdilAdFedYj3r0ZaSDVyImuRH1eLoqRaFKfRMmtRkFNLVNUgN78eRQWN Ytb0EBgR2ZDRh7/DuS3bYLV9l/j8VHjU4iXskDTswBJeVEPviND/OxH6wiuU fRRCciYIoSAGRcfDO3Dggw+x5Z9/i6MfChugE+F2rg7ujhurIf8aKRQ4GQky ZKfKkJPJKxN/JkVIem4rYiOy4EFiJGW9z0Qi4sbmbLyEFRtBlpaIdw5DvFsa Ej1KkezZSrDLqOvJfl1bmehbIfOjuAlqpwZWoitcCW1kO6/tvCrRI5RbYbDt C62HNroRbX5l0AblQx0g7NOJQZljFBJsCpBgW0vgK5Ds1IksTx2KAwZREzoK Zcocrsi+Q5HHCAH1bxgou4bu9Bn0Zk0T6Mz8OQR8ziS0OWPQZA9CmdOLdnqL Mq8FytwKQz/8Faz374Tplk+w45c/IeB/AuM/bJGAfjYcQefSNmaNE6zlyDzf gSKnblS569Dg04/WAAqN4CEUhV3BdM0K8T4CXdIo+pOHxWqXU+VzWFLdw1y7 4cgd+v1c+yCbq/jf4P1PZwRu4L2rfJWOfg2y0mV0N6xgSHEdU5obmO0lsRi4 hZWhW7gxehs3x2jjt7BGW51Yw9Ik/83kCqbGrkLfP/TvDdvSZ0cvoTFTqEI2 AkXuFfQULmO08hayfIpxfJcRLCiVzwnbcw8fg93RY+KsfXNCCZ723cND3W3c 6VnFauciFpXkMs2D8Dc/x39/gJrwOJwJYTdCeGP+fUM6+NA7KRs2GER2YjiW F+fQkNHMZvQhm1nA+LMDZJiHcXqHEaz3GMNq7zFRPbgeNoH7URN4GB0TtxW5 MVI4H2OEIYQHSjuwpLzKKDpB9rADp7d+DUc6qS0zhpOtixhJxLDBZmzMYGxM 1gszGL4MJcIMxnmTvUjx6oHb6SZ4O7Qg2KMZMQEtSGRWSopsREZcAzKS6pGT 0YTs7CaCpAk5BTIkx+YhyMoOnoxubgwnzlQ0IafscPaLHTj75dfio1I34teT YPEhfv0M+A2yktjMO4SsBSTaGcIuCiaABTUTQDVjvedL2Ow3x9fvfYKdH3wG 48+34Cyltr1pMFxcWuHtJ0NgqAxh0TJEEMQRyXyfIkOoezj8zp5nyDvCmHIQ bof3ivc/xygrvJzMJRB7CI9wT0n9E2bjgARnsnbXLBqB7FqHbJcWFHpIGx9l QUPQBPcTrDr0hHejN7ILIxnD0MX1oTdQibGQNgxFytERSWUTUIv2sGo0B5ei 2T8HyuBUqHwikGCZTwTViUBOcu5EpncfigKHUBU2iu78Gxgqe4bxmj9CV7yI jtRJdGUQuFmT6M2ZgC53HLq8MXTnjaAjbxDtBTq0F2rQXtTKa4XYRqt9O2B7 cD8OfvRb8ee9lOsnvtwtvo88G4eIs/mbQD7bjkzHbhS79qHaexCN/iO0ATZ7 HKWxt3Cpfg3dsaPoYzP608ZpI7hYtYglzSPMddzBnLBVoJNupxnFnFL9L29P 3f3ge/Dd3NknVfK+v/IKZZHzqM5dhqxyGV1Ny9C3L2OicwUzPSuY7b+Oef11 LA7RRlawML6CqxMrmJ4gRMeX0D84jWfPXxjqM3+FuVFhoUkPmjOn0Ja7AF3p GsZq7+MKpc9y+3Pc1rzEjOIVng3cw4uBV3ilf4mXg8+xPriOR/pHuNMv7H9Y 5RcjE2kbJxPpQnVqOmzoI+cJZ0fC2ZlwdiWO3AQlYCXYcbjSnK3MkZ4QLrZE OGSrKV2FpqwRtORcQUmYBq6mXjDfboTTu4/Bep8JrA6Y4gKVt9NRskdj2jET OB47hngXPwxV92Ot5yaudUoRsiOzBifpr2f374cj2yEwA6kft8LrnMQOfNkW X2vDDAUx40lzZ+JTCA+nstSIci6BtXkWnJiMfLxlCAmWIYoJLzZBjoTkViSm yxGfKUdUeitCPMLgzbZ4ivHlKFyMD6EiIh0dWS0488VOnN26DTYH9sNFUCfE jNcZSZ2IrNAwQyFgOsiQjDe5AWOLs+leeFqcQohtGEw+3SMWNT/Ke1psOwDr Xcdgy1jntGM/nM2c4EQG7X7yAtWJ6TvwNTLBNngbk8GQsbgZHYILxYrFFik3 nWOo24DyBkUQXlG27oh3SiKcmTedq5HkIjyTbEeIcbn49yr7UrSH96Ejdgw9 iVTGKdPMw3rCtAedYZ3ojFDR2vlvWtEa3oT6kFrUBpSi1i8btT7xaCWUYyyy EH+uFvG2CiS6dCGdUC4I1KMifBhdhQ/RXfgSc93foJvZRZk2Ck3mKLqyR5mH R9CTN0wbQle+HurCfrQX96CtpAPtJS18X4ai8EDDUP8Y235OAv6Ln25yDpcD log8nYSoM0WIPCNNskSd1SDbvgfFHnqUefYj11GOErc2yMKGUZGyjstNt9Cd wBCSIswAEM8ZY9BmDGGp6ynmu+5jTnsDcz3zvApHI2k2FLm0Jfzf4d7qa6jr 71CnLaOZiFUTsb1tyxjqWMaYdhmTumVM6aWzhoXDMYbHltHHq0Y/i6fPX/2D YU2OcPZKU+oAmjOEc6BXoKu4g/GGR5iVP8eK+jXusLce6f7IdP6veDP4AK9H vsXL0TdYH32FRyPruDv4EDf6b2FJS4B0XCRIerHcq92k7ZZC0iNIJNp+XKTt 52kq0valxTmJWWzD1WFh014XmtgRrVkL0BStQV91H61pw8xPgTi51xTnDpjh zGEz2FGx2xqZIs41GFP1k3jMuHFv4DHW+qg0tKuY11wV90qpswrp91awpTPa E6sXiA8XoWQVY4a7sA2HOPVgXnOnuZKcZhlyv65Ry3ZQKTHG2x9yhskW5n6z MNicjoCjdSRcz0fChQTQ0zmcqsCJOdaM+DSlWjeBq4kxnE2OItbZE0udDMaq WeT7xeP0V9thffCA+PxSiBkep09sqnHhGaawpzdArCYivH60yQF8iVNH4jQv tECMYQ6HLsDks4Mw33oEp7cbw3o349cu5t6DJMGUEx4HjOF51JxygsZ2ebNd HowfAjdxIS+JcXRFgX8Szn61U/ykCyTPzieOb+wTFjZjx9kFig8MEi6UIsGp gWJWIaWOA7iYQc4WPgp9VB90yYRPzDDhqIMmWkd+2QNtXCdUMUq0Mts2hDcS olW0AtQHpaApIAK5VpEIMypEvI2M9FyDVK9e5Ab2ozppAU1pT3BR/QqXVc/o 7s/RXTBN7TvESDcITY4enbkDhGY/NIU6KEsIzbIutJWraE1QlJQiysUep/ft pO0hPH9C4bUVJyi8Tn5BsbXfCpEWyYg6VYLIkw2ItWxDnG03ks/3osRjCGXe euS6CAvAlWgM7UNV9mtcbrmO7iSGIvLl/qwJ9GURnlnDWBI3ez/AXB95c/8i r9TJ2s4NeEr1jv4WU6PrKCQ0qwnNVkJTRWh2aZbRQ2j29i1DS2h2Di6jTX8N AzNr/+GtFN2UNMjemCWXuLFR8X627RVWNN/iTu93eEwkPhv6N6yM/xu+GWfa HP8j1sff4JF4yPcT3BAO+dZRxGtJ6DX9eLy0+LcGfXx1yFAPLG0ardnXoCm5 DX2NVDturv01VvkRwtmCg5WXcH38v+FbZvwXw9/hGUH/aPgV7g2tY03/ENd0 NzGv3di21IkH85fQ1kSwE2k2RNr508fhcIZedUFc9+FoaQ4HSzMR8++8NaHY lNZPoF0yfO0f4RxJpO1+MzgcNIf1YSZXOq/LEWO4mNBJTZikTY4h1tUPN3T3 GW/WyHTYhI5JBJyyguWBA+IjwgtCUj4tyXVPw2PCt5PyxmMCLxvzjWnbpowJ ZAe2w/jTgwb8ueDsLhPY7mNTDjBcHWJ8IM93NzIj1zcnnpjP2RyhOIiLiREu kGN3l3ays6/izFe7xDtYH9gn3YnN8TBw2TjbUMTbZyPeoRIJwlSxk/SkrdRP WlDXGjGKpgTGn8KbuNLwEjeyrmImkZwymgiIH4QuYQDapF4o4zSQxbSjKaoF DdTwDZElqAlPR21wGDLOBiNwXyZCzCoR56RGomc3Yj26kR91FwNE17jiMaZV j3FF85iJ8DGGaufQntUHZbYOqtxeqAt6iK5uoqsT8go1FJVtvDaipaRYXGFi sZfa/6Q9jn7yBcyFWdUtB3Hqi8M4v+MEIs2ZAE+UEmGNiLNSIeVCH7LchpHn okdV4BjK/HpRHdwLBRN8ddF3uNQyh05hb0Eqv1u2sEB3iIlYj8W+J5gbEDZg 38J07yxGVAPQ1TUiPVGNzHi2qXoMMwPLmNZdkw7OxF7DXNH4xXUouu6iqGEZ FfJl1CgJQIJOO3kXV1bXce/pa/zHt7RsU9yQeMye8OqtfoixFukE0+WuN7it +wYP9d/i6cgfcXvkX/Fqfh0vJr7F+iR/P/4Kdwjw1aF7TIyM8n2XCbcBPFxe +FvD1Nis3gC15EtoETYAl3IA6qQqhHOqN7jeJaD5j3g48B2eDH2H21f+G/5t 7DpuqdbwiPn17sgLrA0+xrUB4YBEw06izm7cnZ/ZxNDC/Bzkrc1okwm4apM3 C9VBFub+7PH8fkM7GFRSrxD20gECtUlSfYQTTB5n6ejWxJzdEXOcPnhcLEkl PO6yIxEeq5/CHSbY1YFHjCpsS+81ftVpOnsPgm1tYGtGgBwnISfTc2ZScz0j PZ7zIO48iTlP640ka84ka4aVJRL6YYqDZKkMd1O6dPLOsc+PwvxrqUaT5V4m eQpMBwLPnnHA3pj/n0zz/L4DhjhgAgcmtN4qqXjGXM8C8kMSxPd2FJfCy4nA czUAL9YqnFktF/Hnq8W9rMlOHcjx7JWwfgwtwqbNuClokqbRFjOCzop7mFT8 VzxtI7VhFhoh9noT+qGM74IsTo36GBlqoutQGV2CqqgMVIWGI8TkFHy3J8P/ UAECzKvhZ9OOWJ8b0HR8h76mexiS3cN4+31Md9zHZZK7WS0/g/qqs2wIsjxi rYiYLlWjpYLZk5hrrZKjubwecSH+MNm1DWHOkcz/EzD9fDfMPz9A3B2mDjnK PG6MyGNxiDIrJv4aiDs1UpwHkOM1imyPYZT56FFLwtkUNcK2D6Om+r9ioGiU OpYZNa0P2sw+9DCzdufrsEgqN6ZZQXfTRWibB6FtYJsKFahJVaMhSY0mYq85 mtdwWrAKiz3XDKeTw3bzkbDwIDhFcn1t9QOMUO8Jr6Xu57jZ9xL3B1/h8chr JqzXWO67j7uki08nX+LBxAvcHnsqnp2zIByUOXgZV3v7cO/a3N/86d5/QQ23 skm6pfH7e6x0v8It3Wvc0zMJDr/BU8LnomYVq3XNTIqvcHf0OW4MP8bSEAXy oLBhZwqz3Zq37vs53XGW974BdalU/XCi5SXac6dQEFaD0qhaWBw0RXV8LZlK HabUI7jdOo0H/KzbQy+wqn/CKHBXPJ1vrm+G8OjFg6VZLJECW5mZwYYU+Dzh 4ci05EQK7Myk6Gwp6FT+LGrVCFxblGArnPzelNBrSI/SAUBd5Y/hdlya4T+5 mzx4A66HyWvJ9WxMj8Pu0D6cJ0RiXIOwNvAc1/oeYb7/1gbFDDxjCXthEY25 maHb/hKuRGvMWSLDOg9xNtRM5+Xi9Ee2t87wb0zFfY9tCRchZ8iWx1JDpV9E TyatdAmTTCfrDI7PWhexUDCAxjgVamJlqIoXioaWojouEzVRETjx6Qc4/4kL /PbmIsCkAuEOc6iqfIq8CB26Gm6ir+UmhhS3MKa6hSkNQ37XLVyi5L7Sv4bL gzfQ00bipRqBolmLuko5ujsGMdRPIrY4zy5qZfoeoE3D9A97YE5qfGLLEZzc aoQzjCYe+1wRZZyPaLN6xBAayU79yPQaRoHfEPJ9+lAb1If6aD2a4/Soafnv aEthKkzViWtNNdlaEk5qz2Idepsvo6d1Bj2yCfS26qFrEtbctaEtTS2u0tAk qNEZSyM8NBFqdIXw6tuO9etP8Ku3IALpdMHN5yUhA2K5ktb81Y3DUy8qOXBd T7Da9xS3B9dxf+QZHo0LpQtvMwYv4fEkfzf+FLfGHmNl7C4Wxsj0hmcwo+vG Ru55+yOaYi8ycEjlWXV1EtW7ol4nIJ/hRt9z3NG/wP3hF8w5L7DSfw+3h+/i wdgzprenWB1hzB8Vzudk/hmcwMrF8c3zAt/+jMYYPUmrBCBV6QP0GfLc5faX FEGvsNpDgPYLAH2Nh0Ov0V17Eff19/jdCPrhZ7g+9BiL/Nw5StW5wWkCXys9 /P0rLDLFKZjizlE3WZ0iLTxjjqQ46akP5eP3iyXGT4sV5mT5dwwOvAstmePI DqqC+V4TnDxgSv3IdHfEFCcPGaE8rgTDdRNidVahGuQ1oVjEEL/uEL+ufpIx ugPJIWGwM5VWnwjzPU7UbqEnfRB7No9ppZZpRZho6EQGnakoSEqpjbHjkCVO MOYOQJ02jk7ySy1jty5nHP254xjIG8NA83WsTP93/HHsPq7UDaMjvQl1KRWo S85GXWwk9r//Exz51ftw2uIPP/Mx5KTdhYtVBcLcGpHmL4e87DJ0suvQt13H sPo6xrquY6J3BZMDNIPiHx+nTS4b6PVvGePaSAGGNuOnBJajBIsxzmwzgf0u S0Qcyka0STUiT8kRZ9+FZLceZAobLvx11I1a1ET0oj6uF7Wq/xetyVrIqdnb MjqhzNFAXUzQVI8QJFPolfP7KsbQJ9Oju1o6UKSbYNElS4f6DCRKZwEOEDgD zKmDUbwGt+HF6pNfSn5l96eh/Udc6bmFhhipmLCqYg19jbclT+6kEuhlmh54 SE96hHtjj/BgnDYhXB/izvgDrE3cw9LELcyNL+LK8ATurd34u7fdpjFykvFj CfLiW9hA4bTqIcXNYyzrnlDwPGGYf4J7o0+IDMEei59za+wBRZJwhCSF4Ng8 rgyN4O7qioTCjafqDeF9ZJmXCcHraC+5i95aCYLT7U8x3/kMyz3PsNb/HLf1 z3F36LkI9wcjZKojT3FzhBAffYiFUeatUeat4Slcn5li84QOkvRFU/QU861E oTrKH6K/Xsq3l9qfYZ4q+pqW+Un3Ajf7KQ6Fzxh8xs9ZZ2ghvAk78RTYUXbO KKXU0DghPibePSkknHnFHLbHpbkT3xPOiDmZzYRRg1hbOeLp88KGu/wgPcoj humzI2iIG4Q8eQTKtBFoMkfQTU7fkzOCvlypoF57kgZy8oi28hH66GO8WHiJ e90TuFhUgerYCBj/+GNEvvsHRHx9EvGeffA6VUHpWMw8SU3hXIc4YfFq/hS6 yex1qmX0dy1Dr1vGIPOufmgZA/T5dzAwtoyPMDN3+/thMEHa1CTk+TCrTPH9 cVJOC/r+afr+uZ1mcN/jjYgjZYi0aEK0bTtinMmlvDTIDuhEQXAnioM6UBvd iZqe/4HGZA2a6c+tmUoohPn+CmK9gQmSPt/LhNWrGIW2tY8JpBO9GVromVCG 03sxmtGL8cweTIjWjbH0TkykdmAyUYnxKBlerj3GL/4XAEiTdVWB0nG7rcUr 6KqTaPyU+hbj1G1qpju4PniHPOcubo0Kdkd86naDjr88uYark9dxafwqxvTD 0hFRG95fQ2HWkDyPloLrm4RqvP0OLnXew3zPPVzrv4/Vwfu4SWImLM6/NXqP N76L1YnbWJq8Kd74ytgVjA/o/+5tx+8pmUZj1LT4k7zoFrqqpQMjJ9sfUnw+ woKW6Op7LC4OuklHFNB7h3abDnmDn3Ft/A7mJ4is8QWidhx3b1w3OP5/xFXd qmEwpeOelWX30FsnnV4y1U5x2/GE938ione1X0LwTWqpWwzwa8MPCCoBtQTV +A3anIjcV8/WJbn0kcjbEiMiYEXftyVvizTLQLRFJaKtWxHrzJzAeJhD4lCb NIm+6luMh/2MhXoo0vRQZVKrZzPmUcd2ZUtLPttSlUyPrahPq0ddZiMashrQ 1zmJ1YUnCDnlDuftTpRSSYi9kMiYG42gc6mItC5lbqlAnKVweFMF0mh5F5pR n6JHRyd1Qw+tfxmawWV0MN53CLWcLt8ySL7/c9P3G2MMZ1MkzCLbT1qAbm7w +1PbTKQpkHcRcqweYWdbEOGgQKxbO1J9lUybSmQFtCPHrwU1+v8BRVQLGtNk qM9pQ2NRJ5rKu6CSj0GtYIprG4dGPoquwn70ZekxmDWE0axhTOSO4GLeCGby R3CpYJg2xPcDmMnV4XJWNy6ntmM6vhEvbz7EzyW3P/9nD6seXH+Fyqi5Dd/s blzBYBuTnIYO3bMq1lxc1N9g8qaNrGKJGnp+QjhZdQVTE9cwPHIJL168lFzn H8WbPFx9herIq6jLugZZmaQn9LJVjFN6z3TRpXtvYqH/Fq7piZ2hm1geWaM7 3sCC4OqTwjOvJYyPzODF8xd//1ZjH1x/htrgCaJpYSON9DbewrDiNlF6F1e6 7mK+9564FmaF5Gd1kCAaJmpJsK4xhcwbnolfJkqXZucllG5MUdUGDpFfz4pp ZOPm/c13Maa4h4tqUghKyvke5kJKquWB++IHrAhb6HjzRSE/8eZXSQVmx2dx bfaqob7oh1igq8tbmhm6VYgwK0Gyoxp5oeMoip0hKWWYrX+AodaHqInrQWOS Dq3kxoqMPqiy+tCRo0NLUhtkKdJKlIqkMlSnlKA2qxoNOXVoyC5FaVIWLpyl LLbPQJxbJnK9M1HqnYzYM2FIOBWGDMtMZNlUIJuWb1uBEodqVDg2o8yWMKlh BKGbNzDE903fwaPn30plxX8nftz8gJT1mmKvMANK0dDssyM48aURjD7fi30f f4mDn2zF0T9sFf/O51gNAs61INRJjhhPOZLJomI8mpDlp0B1dDvkaW1kMc3i saaVhVS8df2QycYhJ5NRkPbLqkj7s8cxmD2FsbyLmCog6S66hCsll3C19BLm yqj8ykheyybFcztmiwZxNa8bVzPluE7pYnBvR8Pjm/s33qAsfgnV7GVZNcHc xITWRhB3LGOyexkX+a1n9NKBtBeZ0ibGpUJtfSPzePbi9cY5uKrcRVQmLKGW t5FX8jaNvI2Ct1ETIl3Ss9sr/bRB2sgKc8AyYbGMMdrQ6Dyh8Zp3Ee71D7jc fQc10RIuhENDO2pXoGtZxXD7DcJtDZe61zDbu0ZduYYFPW2Y4ZNwmyXcZuhc FyeXMCbA7fkLwz3/EQ+vv0Rt2CXUpy6hsWAF7ZXX0d1wAwOyNYwqb2Kq45Z4 XOZs7y1xRn2e950X77uKK7zvJd53hvedEPH2/C/F2/6KWHuK2oAhNERfRgMp f3P+DbSX30RX7W205l5EeUwnahO60JjSjZb0biiYalvTlGhgGG5MlbZUl6WW oDy1GHW51ajPrUFaeAHpdQrcbdIR7JpLepOPMu9slHmmIP1sGLLor0XnolFu k4gK63SU2+agzCYHTZ41UAUo0O4lQ1OICn/51gz3oxtvn+r9GzRn38au33yG T959F5++9x4+f+99fPn++/jqfal+j9WXIXA8Ug6746XwPF+PSG8Z29JGOqZB SVIXGvI6IStVojhPg9KKXtQ0j6OuZRK1zVNoL5pCT/YM9LlXMJp/FVNF87hU uojZ8kXMVy5hQaizX7NIm8dizVXMV1/GXOUk5koHMcd4fjW/AW/uPsD7kqNe EC9/T7r8DZSNd1BaQChWLaONjtpJR+3VkHERnnpmoQFmIZ1QbozWPjCPp8/f SIdEUc+SnZckSacWNvO/q+igWhK4fjUdkH4+Qj8fpZ+P8r8OksD10de1w0v0 8TcG2vN/o6PgmujkwuKElvJlqOuXqcb579v5/zQCXlZEvAgn0U4TL1O8xzgd fISmp5M/p5NL9/r30OQtoCpmHjXUxI3F/DrVwmKHFfTJVzCsXMG4hnlDyyDf RyNoxPsRNBMT0j2HJdD8tcERL3etoUYonJC0yMTI5pVch7JqFfXZYyiKUlJj qlFNnVOfqkZTuhpVTHbVyQ2oTpfKf1VkM+Bl1/Cr1SA9sghxvpkItAtHkF00 Qlxz4G+agvwtbsi2jEL+2WgU0aqsE1HvkIZGx1Q0OgglRJPQGVSO8VThODwV RqMUuFTYZyg/+3ebmXSDCwvX3mKJS2Z5t+PwF/ux7w/b8Bmd8gs6peCMG5U2 d9FB99KOfrgLFntCcdKiAA7kJe4uLQgO1yI1rReFhT0oLu9HVtEIcvL6kV82 hNJK6pL8aXTmXCX/X8Bw/jVMkLfOlK1itpIYr7mJpTrm1oabWGlcozF9M7Uv NFB7181irpqOWTmAuQolbqg0Bp90NrCb8bF1yFV3UczBq2leRhMdoZWO0Kql k/Xyd92LuHrj6X8ydMC9m9+grfkOG7qMav6XFv6XNrqwWvMnIqXWC8/i6JOX 7+Dxszf4Dwb/ndY9Ev23Iu+tUzdl9L8/FyDD0uP1Hlrn0CLWX2zc499Bxc8V Yn0FHaSulIG6hoSNMNIyUPcRB3riYKiPvkUYDdLfBAnTT+uRcPA3Bl/T5M6h KnIO1WnXxHjfUraM8rRhZIXJURCtQGm8ApVMyGWJTShOkI5eKE2vQUmW9L4o pxb5KZWI88tCCH0s5Hw4IuwiEeeYg1zXbIT+SySaTcNRapmCSutUNDhmQ+ZW ALl7PhTuebQcyFwzMJOnxUy2BjMMqFNxrXh189Fbp1a8Y6AWD6+vI91e+mTh ZbR1Pw5/tg1b330P2+hlO9+TQt5uvt9Ljzvwc9ov3sORj+lpuy7A3U0JB59W eMWqEZCiQnAqFWd+P7JJKdNCp5Dvqke9Yw9kzl0YYPgfpXyfKr+Dy1X3MFd7 H4sND7DcRIne8gCrrYKRErWSDrUwuzTRyxqvYK5hDHP1WnpbncHD3AyEbujS Osbn1jGxwOvi+o8MD5ju3P0W4zPryKi4hgJGslKOYJmSIz4hPWB6sP4N/rPh CfBdep2CXpfPwFnOyFfPEW/lv29jhlfSUZX0nDZ6jozet3Rz/T9vOCvjbV7C ovjwuILBroEOJ6fDKelwHXQ4Df1bIzgsnUVJG7lyR+KK/MgZ7X2UxSyiXDgn UfjYnBkkBcqQES4X9wwVJMqRl9iI7IRq5KTUbOwezcquRYxXKsJsQxB2PhLh 52MRY5eINOdqFDjkIu5gJmp3x6LaLhd1DnlodSuB0rcSat8KdPiVQ+1XCpVv EWnQEGaL+zGb34UrGQpMJ9YbsuGHuDZ/FZZHDuPop7tEemb85T6YbhXWRTP4 /PoDusH72GPIgvt/QVf45fs4+Evh+h5CvjiDDKcLdJGf4cjvf4OEyEDD8UVU IdnDYqHspqwFFMfdQLb/GpSeExhJXMR42iKu1D3FfOM6rjU/w4rsGVblz3BD sY61tsdinbglBXUgyf9c6wKv0zQ93UNucIc2wzTkrTvfYGx6HVOz68jigOQz ++QpruEynfzSisE9GJdGnqCF4jmHgaLY8AyymuNWTcVWxbGbW1vHw2ffSueg /ZJD/QYFsQsoZC4qLVpGmJ8MsaEyJEXLkcqhSk5oREJcNRKSahCfSkurRRzN 184HIdaBCLOJQLhdPKLs0pBgm4Vcdw6xbQHK7IqR9WUmFHYFaHIpg8qvHpqg JnQFN6I7pIFWh87gaoymdTDIjpO28jsXanCV9Pfh2JUfGr60MGQb1d2tjx6B 0R/24tiW/TD78gAsvjogec/72PeLn2P/L3+OA7/6OQ7++n1c+PggMs+78P27 sPjsE5zfvR1djQ1Mf41oyuyhTdCuoiWDdDDrFnoK7qM97wl6Cp+hK+MRxsNm sJCzhGuyNxyhN7jR/hprype4qXqOVdUTXFM+wHw76SJxN6ciiFUjmGtT49Hc NBOWOGwvxMvPyRqfQMYB9g/ugk+ADEHEQVisHCExjQiIrkZAbA3842pgc9oB Zjv3IdjSE6E2wQi1ikOEbTpibPOQROVd4q1BsV0lKh2Jm+NV6LIgCDzr0RXa Dm14OzSG/SJKv2q0+VVAEVgNWXANNNENGGA0nitRERTVPzTMX6RGBsPRcOqF UH7G5ogRjn26D2ZbDlC+HMSprw7i3PZDsN55CLZ7DsFur/DzDpz9YCcq3UNh d+AA7Pbvh5fJUfiZG8HX9AiaUls2nr8pc+7i7ddMwxt0VP0RQ/X/SiL4GGsl a7hRtIi1jje4qXmJ1Y5nWOp4jHmq1DkNodA1R5vAXEcXHi9eMfTpK/HyPglc A+wsw+HAQOHkFAXLc94wMzmPw1/vxd7f/BL7fvNrWO06gBBLb4RaR9HSEGGV h1jrUqTYtKLUS4NCm0rknslD5vEC1B4th44xSkPqrOQYqYP4PrhV3IOjDG5A e1gT2iKaIQutgSywGDL/DHSGJ+HN/fsGhvOR6KmOx4+K5cQuiDW6TTZLf1jv O4qzO47QYw/hNDv13C7hrKdDsNl3COe3H0GJTRB8T50SV1cKZQIDxDKWxgjg /WKt/agt9ZLONMyyKvMeoKfkKQYrX2C87rX4u9nW77DQ9h1d8zvMqP8fTCn/ Gx61sDfrr2OhfAxLnU8x1/0Acz1rmOtdpE3xZy0eLl3ZcNnXhu5NDQmFwzET OJiZwezrrdjFGLjnV7/Anl//Slw4bL37IELOBdBFE2g5CDtXgjiraqTaq1Hq 2YVcq0pkns5DgVUBsk80ose5CapgNTqEJ1JhanadUtzloA5nN5OctscooIhs hCK8EoowJvmQeKTZ2AjnIBtS+e+hbq5nlx41VFWQqqpsVFaQKquYi9UVHA6z 648aw9nIGDa7DyHF1B3x9rZiHcHA09+vFBpoYQT7rbvRlKinSTP7zZm30J7/ ENrSdQxWvcJY/Rvx91fk3xLx32JJ/Q1WNMJZaW9wtftb9FUt4Wq9Dks97F7d Q8z1MyoMLIkVGed6e95/u2f/gGtX52BvZAJ7E1OYfvUldjLL7PrlL7CbPbuH PWuz6zBCzoQh9Bwz4TlqwTOV4gEV6U4DqPDRIdeuAVlWpci3K0WJQws01s1Q h/VAE9GDrigtuqO7aB1QR7WjM7EbqgQV2mJltDq0xZSgLSoV5Z4u8DA2Eo/R FVrlaHaEPWoknlQl9Kqwgc1VKCMm1qwwh/dbO9c36laE7rRDtofHX4iF3H70 /SKNp47Befc+NMUKZ6FdQlOS9AS5jZ3axU4dqH6B0YaX4u8uKV7hqvIVFtWv cI1RYKXrBa5rGWK165im2l/se4Q5/X3MDbFTSUTnhqZwtU9r6NQ3BpErVmcw NsV5uquUEL7CbnZmoLkjQk5FsUMzEXqmBOFnahBzphFZnuMod+9EBV212LkV FW5yyEP6UGytxWhQByNmP7pi+9Ad24PuuG50xnehK7UX6uROtCe105poFWhL YHojDfA2NYbXMSPhcFV25lF2oLG4C1joSHGHsqEokVACwEco1XxK6MwT7MgT 8N11FiV+YezH44bieFLprKDNAnkmYoE8j8MHEHs2DE3R02hKkKKAPP8BNGVP NifjxlufYVrxDFeUzxg3n2Gxk5Sj+ymWhWno3kdY7n+AxUEy02HhWc6a9Lxl ZAqPb93E97r0Y/HMn/iwUBzZuhVf/ExaY7z1Zz/Ddvqqy8GzCLaIRcjJHISe Kue1DnHnWpEbcBGlbp2o9taixrcXTUEDkIfpUekzhDEfFTSxenTFD6A7oQ9d CT3oSRsQT15Tp2nRLpRSTm+lVaE9NReKuBCpDr+ZEbyZYS78WbdubrA8cVys fi10q59wlDK71H6rCfKcgoTDXs6ewE/FbhUKFm3WHtyoSnZWOkpZDKzh5ANx 0qksrfn3xCfIwmug4RFGWh5jUvEYM0phVp8O2fkI890PsdhLgt93j13K7hyh g44JM/kr4tOCqyOTePX82Ua3Snnr0++dwWdDO3VgL/b87gPxoz77p/+Cz370 zzjx+X4EmcYi+EQugo6Xs6ubEGfdhiwnDYNrD2r9dKgJ6EdTiB6tEYNoix5E vfsABuL6CHl2cVI/tCkD0GWNoDtTD3VmL5TZwnFYcloNlFl5qArz2ayF7md+ FGYf/1Ys7S7U0XAiipzNzTf3r3qdPAEfdq0fu9bb2IJkPAKxTueF7j13Qjqu +i8NBaHMDQWhTKWCUOeMkXZhoy7ND9CYuoKm3FtQlNyBpuruxqEko/J7mFTe w7Ra2K19F7PaO7iqu42r+puYHb6BK2PXxV0e4tTxxDyTwsLGPOYLA0ncOB7D hhHMjiZWtzaXqls7mx37ofhJHyLAOGuTj0TbqZDh0o1iBtXqgAHUBvaLq25b IvuhiO1HbeggxiK7oEnW0XqhyxyCLkeoQTwIda4OyvxOKAsUtFooc/OQ6+uK gLcKUBv/+qdwMmUThJKQGz1KZ93sUfams7B+/IQvYhzt2VkW7DSxiBtZi1iw 6B2xxNY/8Vcbh62yTy3FQ4yhLbiCOnJUoVZmXdZ1NBWuoq1iDZraNfQ23YS+ 9SZG2m5iXHUTU51ruNhzA9P9q5geuo7p0RVMjy+L05qXJq9hcvTyxuO+5+Ll i82TCTZKhTuIqcFQKtxwrpXwOvy7j8Tr0d9L2y4CjbIRbFqB0NPS9GaKWzfy GA6KfbWoDO5FXUQ/mqN0kMX2QsEQUOlXidGUOvRk6dGXO4jeXL24vlpdSJ8t Zg8Xs4eL2cP5ecj2cTaUUxYKAR+DyW9/hjPbtmz2sJOhh90tTsCTPSycm+m3 5wJSvLzFPeFCibygjTJ5wezi/8LeFI7LNDccmcnBY++uLkpZsbtoCdXR8+JE Rw1lcFMJlXLVCjT1K+hpXkG/YgWDqhWMdK1glCp6TE8bXsaoYd5vYlJ4v4gX L18bOveZYSZRIIrCkQ9SneY/Hf3gKpSJZ3zzFGo104SXUK/5yO+lTvbfH4bA Q5kIOVZpSHO/oNtpke/LwBDUiarwTtRFdaM5Tgs5c391Zj+mGnrQmzOA3rw+ 9OTr0FnUA3UJeUFZB03GOEexUJAjppqgt9LN2S0f4uy2L3BBWOlo6FyXjc5l MHDbZY3sgAj4nbX4XucKZcje4Z/CAdxBhkMPg8Q9t7y/tQn8LY3/wtANmpLr KItb2pwnaCiTJqVUwtyuYhla9TJ03cvo66Oxc/uGpQmpAeEBxOgSnr98A8My jeuGmZGxMWnBSXqqGtkpauQnqVEQr4aqegyXBpZx/8ZTRgtJJr8tLP9UglMY BRPyyc1Ku1KU+lw8IkY4IObU119Jnr43Q7wGMfmFWkvPNzN9NMj2VaIwSIWy MBWqolSoi1WhObGTUVg4SnQC/Xl6xhEtuoq60VHaCVU5B6JCSWuFsqwaucF+ hgK5UlEyoXSmw54vcOzDn4lLTi+YmuECB8P5+HG4cTBOf2WOFOdQ8RRK8QQ7 wz5ocd+VaOQZVoKRvAn7J8VKUKTBHIyChNAfGCbYL/Y/RmHiEgqzl1FavIya 6mU0Ni5DJqfXcyCUHAg1vVzNXlQPSY97x2bv/Frq/2XDtJHwUCcvW43CHDXK eK3JVKMxXY1Wjoew6ELBsZBFq9ESrsZAyRgerz41bLH/W1GPOrylRzek00bV Yx/x4ASpwLq/WBbVwpQxXaieIbzCD+WI1wDzKrqfdIRFnGsrUr1ldFQ5CkIU KCcprmMT5ALhyCQIsrugKuhHdxmzZXkvOis6OAZtUFYp0F7ZgtbSCok4CEnN QBxCSBqCzx7Dsd/9FI7GJmLJX0eOxwVh+fERC6Q4RiPY0U7cxCLsaRX2wQn7 Wv2lah3viJts/w/4Wx8XywIG2JiJ21n9ORzXF+d+aOiMOzdfY3JsHRl515BT voziumWUty6jun0ZtRoah6OuZxm903fw+Pm3hgWwSxuP9e4+QUfbGErz1Cin 1dFaOCTtWZRfhjVQPclq6BJplF89MWp0RfDvgtQYzRv5gWGq9/9L0P6pDrXZ 20VqxRq1QsV7CRJmiDksFQAJNrcVrxEn6xFiZRgW9xak+MqQFSRHabTwOKID dUkdaErtQCubJ2dT5QUqyEuUkJXzfa2WUVdY1iX8rhEJbheErcFSbhQ5h5mB cwhbjHZRXx0TS7QK6vXMQaq84wHwt7cXtyYKW42F7YmbQ2NpIW5/9uOo+FmT jtuQRxqKp/hxXPITw6QTpTlmt+59g+HL6xi7uo7xhXVMLK3j7tNvP5Q6f1G8 /A0esPPL85QMafR/WqN4jCE7l9+qlwMwwG84REyMchDewRiR8UOmQDWGiQ89 B0MfocJM0bBhWuHvkRoR9D3du1EmeKOa6GZFwZNSNVGpWrn5xtKajYLlwcb+ BiL2PqIuyBDt1oxkPzmyghXIj1CgJKYNFQltqE5pQ31mGxpzaYUKNJYo0FBO q6QRFw01HSgraECdgydyLE/z44Ujx4QCCnthuXM7rHZuY+LYCqs9Z2Dy+R6c FGY6drrB1ykKzmc94E7zPOMBr9O0kx5sk7fAdHzE46uFfTE+hhoWwsbz/KRw fC1174LhWe6Du49RladAbaEK9YX0a3axMr8D3Xka9Od0YTi7G+PZWkzRpoUS wbmCddE6MU0WPMmQNMFOH4trx2yZ/h3DE5Y/18Au5hs1Gzf0r7lUuc1QY1WQ a967LFHsHSb4IsXaP/BPMymPHgtACEl7qK0MQfYNiPKUIdFfjvQQOXKiGIri 2d2pCpRlKVDBr1JZxGupVDSrooJharN41j+hzi8CBSct4bNvF+x2b4fdrm1I sA+kQPDGub3WcLZMgZ9rDjwt4xFok4hwmySEn45G5MloRJ9MQpR5EsLMQkje bcVdEJ7sYU+b4+J2YA9hJ8Ti3Pd7+OfoadOjvkCJBvZus7CqrEArrszvz+vH CLPXZN4gZvKHcIVOOlc8hPmSISyUDGKhdIDv+zBLinE5rxOXslS4mCjHnYE5 wzQDnViUcMdECSeU6nWnxhAnbt4q1yuW4yZEnXdQa7iFCtW4j+MjsSZ3iGhS Ygw66QD/k83wtW2Gt0MDwnzkiAmWIylSjrR4qTxRjqE8UR4dOZdUMo/OnFMs R6Sbm0i0/2d7VxrUVpadv/R0UjWVVCZTSVUqy0y26j+pqUkmSWUmqe6ebtvd 7vZ0u+32Mr1437GxDTaYHQxmx2xCgAABYtGCkBC7QAiQ2CSBFrSgDSH2xQZv 0+6p1ORPzltE40lS+Zdfrarj94zg6b1zz/J9V/ecy7zO7d/PHk8fOoGki9dQ k5IP6YUo5Hx0ECfeIsRy6j7un81EzpUcQjA5yDiTi8wvs5F5Ign3P4pGzi+i UXj4LkpO5qOEtF1yOA8PPk5ENGk6mpJteV46v8cbPPyUu9PsglyogoJsV0Ha ba8aRl+lEcPCCUxUmGCptMAumoGrzoq5eiv8jVYEJSRN0yQWBCRT8DWS9ilv uUSDcAo6YSuUo6XgIT//8AlLlFmSfCwy9xAhyYyWCQ+Qhi+/+Slq7+Yh88pZ ZjuX19gOyX/I90TleTILQT6hWJmCqAsK3Lypxl2y5eRU0uID0nh+B7KLO5BT 1vEackjVP0B6Yha/F/ZJXP7w4K6Czx3Yx/YNukhy6cA7uHH6CjJuZJHr5+H+ pQIU3ShE9a08VN0sR8nFIjw8lY2Szx+giNxJcCIZlSQ1p/JR/QXJZ/kQHctD 4ZEE9Gja+N1teQW/AWl5KxRCDRSVA1BWGqBhdkUSTsMotMFMzMle64K73g1v E9HJljmEpHMIyzxYlLtJnFiQOxCUkvJbzHA3GuGu1cIlbIfibjol/I93qfI3 sxDHuFkIphs3s1cP0xTgvZOojM5FdtQldq+c19j+sz+mf7lO1Ml859kIW074 8jAqmK1sj13BpbMZuHopAzei7uPWzUzExGQiNpbkSvQroCLqk1/g7H5S64H9 OP8etxj32geHWBVffu8dokHXcO8CRYaLJZQ1yyG8U46m+BLI7lZCFdeMtug6 SC8LITlTjLoz+WgktTdeLETDxQJ0xTdAn6rAVFYnXGIDr+Hp3QVh3/lmadgb 2FrZgFwgI6X3kRigEprRLbRDL3RjosoLa50fzoYgvM3zCEhDpOAFLLYtYKU9 hBXVPEkAi+0+hJQe+BSzcEstcDeNkoX3wFndzCmdYdOfclzvOin95kl+6oef m7hz+DOUXHrAKpyZlHh9j8KTWQrNyFGWRiecOgydWorCpBRcIhR3iVD1ZQbF EcVhuhhE0zVv8VAhlqnUJuR/et+7lNX24wwp+9Ihbtoo6sOPSdn7cf2TzxH/ RTxK4+qRcFWAvNhqpHyci8aTudAkqNBLCHQgrgND8R0YiVdhNE6JaUKhdoqp dqGeMpUO1rJ+2B5SzMxVY65xmI8Ztj2rzSLrJ/auoXCbHFAwrUgFQyQmqAQO 9FbMQZEyhrrjQtgbluBpWYFftopQ2xppeR0r6jWsaUg6V7HWtYzlzkUsaObh V3vhVjq4b6RbdXBL2pBFwZcpeWVZ9rFXNc/0R7nx8QnknMpA1tVLEXZN2j5J Wj/Jm/zv0f8pou9S7aMRqv0ajzMLk1Jx8Qg3fXs5Uj3LDAINwC2+gvbcwfdw ah9X1nrqwAGcPchV2J0jq2daZsScuAFhghh1ZLEld1tRliCH4KoUqf+YjN5r CgwlDWIkWQdj6iAm0gYwldYLS46WPJvpMzwFV+04JTQDnJU6OMu64ChU4FfL m/x2Avwo/P3/OgqyonoomKZBZUYaDStU5R70C+eRflyB5qvNGLk9itlcit7K xwirtrGs2SbNb2O9ZxsbvY9JtrDSu4aFniX4u4LwdHjgVs3A3c7smMw0c7zK jsLVoxwdjyI1RZOamHmOyx9/ipQTibh/5RLXCfwUsYwkdiuhZLYp+AlW6GdE AV/n2TjlzzN72PjvoyA5DefJCy4wfQpO8KWUzPjSIFxlZirfeQef79uHL/Yf 2G0reeq9gzhLEv/lDVTE15Dy21Cf1omq+D60pOmgSRlB2oEmiN8TEKydwHjm JCYfTMCcPY7pHAOsOUOYq5mGT+KAl3Kcp4FZCEZ5rXoQbsol9hJJZABmdpd2 vM4n0Yjq5YXNUJQMkEyhrXQW6jI/tJVhGOrWYG7aQl8tIXbxE7hLfVhqWES4 MYy1vhfY7H+OTe1TbGh3sKLdwkL/GgK9YXi6/XB3UQjqnIRb3Q9xShLbiOUK Q76ZmZDj3DTThV8cQexHd/Dgdiw7C8K2YmZUz0yBfJfbNZ7UzkjiWW4SJIHv wnyPyJ5OI999lLyUNJw9eoztK3OBLn35l1yfiDMffYgTpPeT+/bj5P73ST7A Zwc+xBcHPiAwGg3B3QrUpcggTu1CA+m7Om4EyvRJdKdYoEubQfK/1UB7Xo2p PDssBXZYC22wP5yG4+EUvCIr5mU+isYeSnP0uIQt3A1jpH9yiho5NswzPC60 7llKGLH71/ivCXYHIZ9if5EeCrp6W7EbHeXz0FavwNCwCUvLNpzyp/C1v8CM 8iXGpL9GQPEEWy1hbNTPYWvwBTZ0z7Ci20F4cBMBLb/bcD/lDvkoJlu7KKe0 4YN/eBMf/uRtskJGA5TkDpM/7L+FwpRMdq6P7SDFD8Tu7Aez6w0z+3GWkeNs X8wI5Y5jKXdkGfIbbLOQ3LR0nKYBPku+dYGS+eG338InP38XR949gCP7DuIo 0yv35E00Z2ihyhlEbaKERoAge6oODanjqL5rgTrViv50F4Yz59B514qyAyJM pZowU+IjTOzFbLkbLorSrnIzFpRhBNvm4WXWAsmcFHXJA1oo7zV14pF9NgLN /6/wI88h9eePQFHIFJ950SEIQ1uzBkPjY1han8DZ9gI+9VeY7/oai32/Jnv/ NTwDv4Gr7zd4rlrEs+5lLKnDWBh6DP/gGkwqDwYIYA42aKGra0OnQEqGnIBP fvIWjvzzz3HkX97B+beuIut2Ks5TJL7Np0lmI5Q4xgf+20zHb7PqFI5U/y27 8JuprUu8HIOkq6kkOUi6Vghl2Rx6yIr0lcvoyBshTcshTu5HPeW1mnsm1CW7 0JHmgzZzHqMP5jFZEEZrtAnt59SwVSxilkKAqyoEj8iHuWonFjvWMK9eho9Z ZqOkPNdmJ5mAWzEAV3PTm/8jvOEC3Y/Z94abmJ2gScd5NnbnPjV9SH/tBkYl 2zDLnmG2/Vfwar5CsOclwv0vsTz4EmtDL7Gu/woLI18jMPafeDr2DM/6QpgV j0HXYsVQywT0zZSZGtugrZCir7gHN97/Ep/+08/x2b+ew/3rZI4/O0jn+3D2 7fdxnWIQq+dTTIMlEr6nRNzZ4+zMxSvcOS+NK8X8a/JMGdsHi+kxoShxor04 gB7BIoar19GSqkJdghriJD3qk0yoirGjKdUHTcYC6XYRhtxlmIpXMS3YQP1l PSaSJuCsWac4sYI58QK8YgqrXY8Q6lqHT7MEd0eQhOmXRZbcMUw6buN16+Zn p9yjXigyh7lKySIfu81pHylypGkbJvkT2FXP4Ol8Dn/vc4S0z7E4+BwrQ8+x OvwMayPPItst2chWF+3/gV/pfQiqjRiVDcDQrEBdfBEKT8Si8Xgsjv30Cu5e LsKZ9y/j8gdRuPjuZ/jiZ/vw5U/fRdTRIyyyYBpmxZAeY0mPsWePv4aYc0y7 kBiWIB9lCTK7fIxj5H+z63eRl+KhB6rSEHqEKxiu3UL1bRHdQzfECUbUJ1oh iHGiNSOEzqwlaHM2YCzegrniMWaqtqHPX0HDuU7MlgaIZ2xgTrICr2QeS707 CPVswdezRvkoDHcPGWyvjY4EBzRqvKLRH2Fz4RHkaUN8HZ4X7TS2PbVrZLJb mJQ/hpUQh7NzB166bJDS3QJF2iX9DpaHuRJZb9cizFLuy09DmxNjfeQzM4/w 3BpCQNaBD370Pm4eukVwIgsF14splxUSj3yAxJPZSPgoEXcPxuP2+3dw7e1z LDVi+hrdZLsin2D7GkXzrRcYKhzwur/Lz8BHotc3UayNohh5WQFXsdVeEkZv 1Xqk6r7+nn1X6ZwRfB8GwVOYRM8xXf0U1tqn0GQGob3ZRTH0EeZa1+GlHLPU 9xShvm34+jYop5CFDpCyBynjDZD393ZGlBnhjkO1M6RMcpR8D5TlC+isWYFO sgajbB1m1SZsnZv0Z1vwEmYI6LYQGtpCeHiTvSGz1AkT0RdWke3TGFMxMg51 swH5mc2IJvqafqkIJdeLUBtNfOu2APXEwXJ/+QAZB28h492ryCTJPpiK9EMJ BLLP49ppBrtdO8MYJVOo30t0l4Ns3FqdvTlBlkmOnkMazLWxP1eWLaK7agN6 MTfQtTFcw0JB1CQq7nH1a5rcNe5+y3cwWfkUlppnsNY/g13yFPKUaVgzDZij Z5+TLWKR3HFe+wS+gS24h1bg1jNtR4hL6wkrabtfVeX3sBl6gtbEKciyXZCX BKGuXkBfI8Ud6TImlCuwdKzC3r0KF0GvuYE1+IdWEdSvwqJ0IuLmI4SCDR1W jHXMEJ3vQnG6BOnR1bh7sRQF0QLUxgqIzpZCebcaXXFS9NxpRetFIVrPC1H2 SSrKjz5A6Uckh7KReOQ6Crhuvd/7LVDDBKVIXzVFvo/VXFf1BnT1jynRT7Lv 1N2eQPl1M4SxNrRkcCVb/eTNI+TNE9UUvOp2MN24DVvLYxhqViGOaaRk34VA 5zoFsSeY123DqyfNMW0aDCG2zYJ7dAILM6ZX5+DegFboREv6LFqZihVhABox 4amWEEYUC5igRG3pCsPWS1lOu0i2HIajn1tjM9JmxnA7t6p+pMOOmkIlBGR4 wrRWiFLlSLpSjpKYKpS+fQftCSIMJBI1uqfA8D05RhiJl2I4rhVDsU0YvNUA 7bU6GAnRzxBP/SM+Y0dUxpSVyFO5rbEUuV4C34vQVK9hoH4To+R/NVFctas4 xkaB0IeWzDDaKeAxr6GKDRhEm5ik3zU3bWCGfNUmX4M4dwgO5QSC5KsLQ48Q HNnEHLv+h2kAQMY2QRjJOIlH4dCbe6fd30C/KABJthfNFErldN7J9I+UBjCs ZDrCBjHVHcR0XxDWwSCGFSb2LrRKE/pVFvZc3TKGssxWVGS0oiZNgcZ0JYUB FWriWlBwIAu6L0thSOnGWGo3JtO6MZXeRdJB5yqMk2aNSS0Yja/HeIoUpkw1 W0P7B/w67r0uisji9L9iyx/kKdytKIpDUBHU6RWvYqh5DZJ4rjNN3c1piBM9 aLw/T8hjkbvtimUM1yzD2EBu1LxMUWcJ0/JF2NoW4FSHEBzaIMWtw29cxdz4 MrfUZ4qC3tQsXGOTePFkO2JvPv77pl7K5OI8PxrLA5DVBKCWBNAr4wpcRjoD lBECmNCRHTYboZFPRnYaUqtsKM1ohIBVWjvE6RpI07uhTu9HR/Igqj9vhOZQ Pqbuj8DyYAQz2SOw5upJdJjJ1WI6uwfmLDUmM2SYzm2DvVgDS7YcT8MbeyrY 92zw8ZeQ3Z8lth2AooILX9qmJXQLue5JNTemOItLJ2vL5Ry0m35voCYEfUOI 4EEIE9J5QhnzMLcRzetfhG+YUq5hiRRFeHEqxC3gMfvhMjkRdLp4+unn58Zn Rh+juiCAWqapmjiAthbSiZJ01ck1VhscDKC1aQytUhOa5dNoVlghEvRCmNJM /teOurQesqxBYmnD6Ek3oid1AsasKVT/ezasqf2wF5gxW2SGs9hEMoHZYiMc RcOwFQ7Akt8F0wMp3JW9cJYq4ZMPcAV4vwsHhYGmJIpK5IYtZXRbouBuY7+6 2yOovDKG6jtWRDq5SR/OQSXwolvkRX+9D7omH0ZafZTjvJhUzbEFdq5RsqZx pq46iFlzgF1+M2vxwzppf3vvt75/h5Wll2hXLqO8OgARGY5EHoBUTXfRTUeN C5X14xBKzKhomoFENAtBvBhVSXJSCKGkND1a0ihDppmgTZ9Bd7IFk3mzEB1t guWGGq5SFzzlTswJZjFXYYenYobIk4ni6hhmSodgLtLALdbDLSIUJWzhK6z+ lJ0Ca0h3o7EwwFZscas3AuijkFBzZxKCmxZUJNpRmemAuIACbZkTyionNHUu 9DS6oG12Qa90s1VYM2wVVgAzTBWkiSnvt5IuvgOLaQ4vnnMrO3k7CfFfFY7P 7GDvq7N7GlVlutd5v6lK6oAoZYho4wSkRNQ7KdTr7nvQleyAqdAPRdQwBo8L MCech68qCD8FNB+NlU/kIUIzC6doGraqcZgFRNabxwk7DsJdr8TmjI3XwJ9R oFtHTaYXdQ8DbN2brD4AFZmrrGIWBefH8PCODcVpDghyHKh56ICkwgGZyAFl vQNdhGOM/QGMk8tPjJCMMTVndKSnn2Tqz0x+PHv+MjLtvsQeuO1AFHmdBOC4 /h716RzcqErshyiZ4HAyBbxUF7oy/NBnE2TOCMBcvARH2QoajzYgUDKLAPGK gHgZQfEiAvUheBt8cNU7Yaszw1JNfEJOvEJmIKbcjVB/H/6EH/DV8FfokK5A SBFMRIMtaaZHbQtAqQmgOMWGnHgH8u478DDfAWGZA421TqgVZP5d5LX0qLqh AIZGSehRdTTQeqb0acKPJ8+/5rudvvqYDzSEtMbZxjnMqyJOhaqEIYgSTUSj ZqFII+/KpLCTR+Epa5EoVBjOqk30JpGDp1GCa9jCfOMm5pvWEGxegq+ZklvT HKEuG6wSE9wqBwmhqvYBOFub+IZxf4wVpgaEjOthnR8VrWTLFHzqKPgUkOqS EmzIJzYirPFCQu/JKHgr6T01BaYOCkwdw1ytT6TCjOsSifA3TPcH7E+k6Woo ssYoqc+iPFrEDWHcKNHuaTQkuOnZiD5mh6EvJMZTuASzcJMY7Q4mCDPpryjo mbYxTxgo1ErPJ1uDj5Cjm/zO3uKEo42plSB62E3D2El+q5Tjh/zqHaauialv edgQQAX9fjXdfy3df11vAP2WVTgXdvgme1hkDz/czayuYXKadAK+WXaCaNx+ l5V3jBDFWdGY5IEiYx7duUvQF69hsmILVhExIoJrnsYnaLnSi4UKG0IyIl2K xwi2bcBH6NTdNg+7zA1nF2UKLdNnkmk4N0q33X5jr0G8ui9NpJxJeHv8lQjQ RchnqHQDE8JHmK7ZgaP+CdwEsfvzPHDnGDDfRtysfZuEaJ9qDa72MGYpiHp0 i1y7uyE7IT0jXD0q8B+/sJsXOUTxFxionH7lQyuix1BFaLU2aQ7SLC5hDpYR B60kDlr7GLaGx3A2E3oVLUN3rxf+9kcIqInXqDfgJXDuJKjpGVhlmnhxjcVG ySqHjViwjEduYpU9/DkGqr0Q3dKyHyG4ZqDnt6KGNN+cxVXFa8nHR6tI+7Xr BJI3yBjW4ZSvE36XwCHsYT/O27ECj2YJTqK8PsMGPEamDxJ97Bg9+6iBEGdg 76dGMlzJaTXKLo5QTJ9GpFVJW0EI3aVh6CqXYKhdwpRkGZbWZQKZy1BWTBEl noKrYxEuDT1hTxhB4xrX/WmS1D3pI6Bpg8toxIudx5EnXWMPXNOp8isjKD6l R2mUmdIZFwJa88jViOX0Vs4TiSS0ISG00bpAhHCBGE0IM6oQrB2UUHvmETJS lJtYgmeKoJkpxLYFck3ZEJyd5Yr/sM7HNeZVcnoIRZem8DDWDkEq19eOSeFq oQ89NT4MNvgx3OyHQebHGOGaiXYf7H3z8BsI34wvYG7PClqX2Qv75AxePH3K 1xli5Rt8xX0bwNTLc2bFvL6P8sxZ1BUQIylzUZJ0Extxo0fiRn+LG5MaH5y6 EFwj9BljQTgnCS5QmnBYGCG4YPZgZXkdN7nP2uTjWE+5h83PkiI/6oq9EJd6 IK3yoF3sQWeTB+MUtqd6uC4E03rKuxSzZsbp/xSWLZSBLBZmlaUfTncIt7hL b7GH78Oq20Rtlo8uS6m/imAIJb5OSnz9lA10HYRnKZwYB7li1zG+2NVAlzWa uKJXq2sRt7lLPuKJLFMO2SlbQRUlF3EtA/EosiooktLleugu++kutXSX2lGm 7paEbYbix86zrxHDXWqbJ+2myW0Kyqvsqq5aCtISCnKtFORkFKTldFcyykNS 8ndPeAd3uD99yqO8Mds2u/aIKQe1+Ihr+ncQz/0Kyy2ivj3/9vzb82/Pvz3/ /zzH7/wXKUsONg==\ \>"]], Cell[BoxData[ Graphics3DBox[{ {RGBColor[0.7333333333333333, 0.6, 0.4666666666666667], SphereBox[{6.2984567579999995`, 0.87813677494, 4.5943018512}, 0.255]}, {RGBColor[0.7333333333333333, 0.6, 0.4666666666666667], SphereBox[{8.0912398142, 3.0808202978, 5.136275268}, 0.255]}, {RGBColor[0.7333333333333333, 0.6, 0.4666666666666667], SphereBox[{10.1614346472, 3.1034970098, 3.1087882425999998`}, 0.255]}, {RGBColor[0.7333333333333333, 0.6, 0.4666666666666667], SphereBox[{5.4828510164, 0.92895150708, 1.8780285960599998`}, 0.255]}, {RGBColor[0.7333333333333333, 0.6, 0.4666666666666667], SphereBox[{8.954466651, 3.8282069308, 0.5798057313199999}, 0.255]}, {RGBColor[0.7333333333333333, 0.6, 0.4666666666666667], SphereBox[{6.659205451399999, 2.2315774334, 0.10211134441}, 0.255]}, {RGBColor[0.7333333333333333, 0.6, 0.4666666666666667], SphereBox[{7.652445436999999, -1.61707633272, 5.1421334186}, 0.255]}, {RGBColor[0.7333333333333333, 0.6, 0.4666666666666667], SphereBox[{3.9725819972, 1.10059531966, 6.2977008676}, 0.255]}, {RGBColor[0.7333333333333333, 0.6, 0.4666666666666667], SphereBox[{3.2546750897999996`, -0.53636093058, 1.15904454484}, 0.255]}, {RGBColor[0.7333333333333333, 0.6, 0.4666666666666667], SphereBox[{5.6393203292, 2.1062885995999996`, -2.5537757163999997`}, 0.255]}, {RGBColor[0.7333333333333333, 0.6, 0.4666666666666667], SphereBox[{1.2153772769, 0.6439052372399999, 0.150276680698}, 0.255]}, {RGBColor[0.7333333333333333, 0.6, 0.4666666666666667], SphereBox[{-1.00289648546, -0.7372954961599999, -0.36513285772}, 0.255]}, {RGBColor[0.7333333333333333, 0.6, 0.4666666666666667], SphereBox[{-1.10875893598, -3.5256617982, 0.20480850387999996`}, 0.255]}, {RGBColor[0.7333333333333333, 0.6, 0.4666666666666667], SphereBox[{-3.047183175, 0.44584305518, -1.3762307540199998`}, 0.255]}, {RGBColor[0.7333333333333333, 0.6, 0.4666666666666667], SphereBox[{-5.1780382126, -0.97286873932, -2.1119577776}, 0.255]}, {RGBColor[0.7333333333333333, 0.6, 0.4666666666666667], SphereBox[{-7.2930195518, 0.22196721596, -2.9294532452}, 0.255]}, {RGBColor[0.7333333333333333, 0.6, 0.4666666666666667], SphereBox[{-9.5026761636, -1.24914668052, -3.692524604}, 0.255]}, {RGBColor[0.7333333333333333, 0.6, 0.4666666666666667], SphereBox[{-9.4310555482, -4.0933354886, -3.5706372769999994`}, 0.255]}, {RGBColor[0.7333333333333333, 0.6, 0.4666666666666667], SphereBox[{-11.584965243, -0.072731774288, -4.4973589074}, 0.255]}, {RGBColor[0.7333333333333333, 0.6, 0.4666666666666667], SphereBox[{-13.7116628834, -1.5733480730799998`, -5.6533043016}, 0.255]}, {RGBColor[1, NCache[ Rational[1, 3], 0.3333333333333333], NCache[ Rational[1, 3], 0.3333333333333333]], SphereBox[{-14.6026686924, -0.31240950232, -7.868819063999999}, 0.178]}, {RGBColor[0.7333333333333333, 0.6, 0.4666666666666667], SphereBox[{8.9455849388, 2.8361007808000003`, 6.994820788999999}, 0.1]}, {RGBColor[0.7333333333333333, 0.6, 0.4666666666666667], SphereBox[{7.045654418399999, 4.8545171214, 5.077693761999999}, 0.1]}, {RGBColor[0.7333333333333333, 0.6, 0.4666666666666667], SphereBox[{11.011055456799998`, 1.2324226054199998`, 2.9663029022}, 0.1]}, {RGBColor[0.7333333333333333, 0.6, 0.4666666666666667], SphereBox[{11.60291764, 4.4877213048, 3.6071089888}, 0.1]}, {RGBColor[0.7333333333333333, 0.6, 0.4666666666666667], SphereBox[{8.4075799466, 5.8133640938, 0.62856066212}, 0.1]}, {RGBColor[0.7333333333333333, 0.6, 0.4666666666666667], SphereBox[{10.3173370422, 3.5362442637999996`, -0.9369639453199999}, 0.1]}, {RGBColor[0.7333333333333333, 0.6, 0.4666666666666667], SphereBox[{6.3706442912, -3.1879677619999995`, 4.7785501362}, 0.1]}, {RGBColor[0.7333333333333333, 0.6, 0.4666666666666667], SphereBox[{8.2460083736, -1.6577243389799998`, 7.113873526999999}, 0.1]}, {RGBColor[0.7333333333333333, 0.6, 0.4666666666666667], SphereBox[{9.305010823999998, -1.78331552894, 3.924016039}, 0.1]}, {RGBColor[0.7333333333333333, 0.6, 0.4666666666666667], SphereBox[{2.6287978386, -0.38658124782, 5.8226237512}, 0.1]}, {RGBColor[0.7333333333333333, 0.6, 0.4666666666666667], SphereBox[{3.0889461196, 2.9398467381999995`, 6.0161316936}, 0.1]}, {RGBColor[0.7333333333333333, 0.6, 0.4666666666666667], SphereBox[{4.5430902766, 0.9068606101399999, 8.2673622774}, 0.1]}, {RGBColor[0.7333333333333333, 0.6, 0.4666666666666667], SphereBox[{3.2353998846, -2.5602007847999997`, 1.42313375334}, 0.1]}, {RGBColor[0.7333333333333333, 0.6, 0.4666666666666667], SphereBox[{6.8030136, 3.2707377608, -3.7919241915999997`}, 0.1]}, {RGBColor[0.7333333333333333, 0.6, 0.4666666666666667], SphereBox[{3.7010283709999996`, 2.8028416031999996`, -2.5785311269999998`}, 0.1]}, {RGBColor[0.7333333333333333, 0.6, 0.4666666666666667], SphereBox[{5.6759810136, 0.15492918610999998`, -3.2121562547999996`}, 0.1]}, {RGBColor[0.7333333333333333, 0.6, 0.4666666666666667], SphereBox[{1.29132536484, 2.6420259206, -0.2581365716}, 0.1]}, {RGBColor[0.7333333333333333, 0.6, 0.4666666666666667], SphereBox[{-0.33081543356, -4.5810737692, -1.38367627446}, 0.1]}, {RGBColor[0.7333333333333333, 0.6, 0.4666666666666667], SphereBox[{-3.0658914624, -4.0899339818, 0.51139765012}, 0.1]}, {RGBColor[0.7333333333333333, 0.6, 0.4666666666666667], SphereBox[{-0.0062334501835999995`, -3.9225042581999996`, 1.8987966848}, 0.1]}, {RGBColor[0.7333333333333333, 0.6, 0.4666666666666667], SphereBox[{-3.0381124902, 2.472706471, -1.61573462726}, 0.1]}, {RGBColor[0.7333333333333333, 0.6, 0.4666666666666667], SphereBox[{-5.1264486927999995`, -3.0110894083999997`, -2.024841409}, 0.1]}, {RGBColor[0.7333333333333333, 0.6, 0.4666666666666667], SphereBox[{-7.3442311263999995`, 2.2604902412, -3.0167585863999995`}, 0.1]}, {RGBColor[0.7333333333333333, 0.6, 0.4666666666666667], SphereBox[{-11.297726891, -4.846580272200001, -4.0077309008}, 0.1]}, {RGBColor[0.7333333333333333, 0.6, 0.4666666666666667], SphereBox[{-8.877554802799999, -4.6857645896, -1.6773019003399998`}, 0.1]}, {RGBColor[0.7333333333333333, 0.6, 0.4666666666666667], SphereBox[{-8.0659174858, -4.8050063002, -4.9393658188}, 0.1]}, {RGBColor[0.7333333333333333, 0.6, 0.4666666666666667], SphereBox[{-11.7452140078, 1.9541656565999999`, -4.3202915812}, 0.1]}, {RGBColor[0.7333333333333333, 0.6, 0.4666666666666667], SphereBox[{-15.250088819999998`, -1.7430832623999999`, -4.2942133624}, 0.1]}, {RGBColor[0.7333333333333333, 0.6, 0.4666666666666667], SphereBox[{-13.031550496, -3.4508286486, -6.158617033999999}, 0.1]}, {RGBColor[0.7333333333333333, 0.6, 0.4666666666666667], SphereBox[{-15.9583581248, -1.33242690534, -8.547797615799999}, 0.1]}, Text3DBox["1", {5.698456758, 0.87813677494, 4.5943018512}, {1, 0}], Text3DBox["2", {7.4912398142, 3.0808202978, 5.136275268}, {1, 0}], Text3DBox["3", {9.5614346472, 3.1034970098, 3.1087882425999998`}, {1, 0}], Text3DBox["4", {4.8828510164, 0.92895150708, 1.8780285960599998`}, {1, 0}], Text3DBox["5", {8.354466651000001, 3.8282069308, 0.5798057313199999}, {1, 0}], Text3DBox["6", {6.0592054513999996`, 2.2315774334, 0.10211134441}, { 1, 0}], Text3DBox["7", {7.052445436999999, -1.61707633272, 5.1421334186}, {1, 0}], Text3DBox["8", {3.3725819971999997`, 1.10059531966, 6.2977008676}, {1, 0}], Text3DBox["9", {2.6546750897999996`, -0.53636093058, 1.15904454484}, {1, 0}], Text3DBox["10", {5.039320329200001, 2.1062885995999996`, -2.5537757163999997`}, {1, 0}], Text3DBox["11", {0.6153772769, 0.6439052372399999, 0.150276680698}, {1, 0}], Text3DBox[ "12", {-1.60289648546, -0.7372954961599999, -0.36513285772}, {1, 0}], Text3DBox["13", {-1.7087589359800002`, -3.5256617982, 0.20480850387999996`}, {1, 0}], Text3DBox["14", {-3.647183175, 0.44584305518, -1.3762307540199998`}, {1, 0}], Text3DBox[ "15", {-5.778038212599999, -0.97286873932, -2.1119577776}, {1, 0}], Text3DBox["16", {-7.893019551799999, 0.22196721596, -2.9294532452}, {1, 0}], Text3DBox["17", {-10.1026761636, -1.24914668052, -3.692524604}, {1, 0}], Text3DBox[ "18", {-10.0310555482, -4.0933354886, -3.5706372769999994`}, {1, 0}], Text3DBox["19", {-12.184965242999999`, -0.072731774288, -4.4973589074}, {1, 0}], Text3DBox[ "20", {-14.3116628834, -1.5733480730799998`, -5.6533043016}, {1, 0}], Text3DBox["21", {-15.2026686924, -0.31240950232, -7.868819063999999}, {1, 0}], Text3DBox["22", {8.3455849388, 2.8361007808000003`, 6.994820788999999}, {1, 0}], Text3DBox["23", {6.445654418399999, 4.8545171214, 5.077693761999999}, {1, 0}], Text3DBox["24", {10.411055456799998`, 1.2324226054199998`, 2.9663029022}, {1, 0}], Text3DBox["25", {11.00291764, 4.4877213048, 3.6071089888}, {1, 0}], Text3DBox["26", {7.807579946600001, 5.8133640938, 0.62856066212}, {1, 0}], Text3DBox["27", {9.7173370422, 3.5362442637999996`, -0.9369639453199999}, { 1, 0}], Text3DBox["28", {5.7706442912, -3.1879677619999995`, 4.7785501362}, {1, 0}], Text3DBox["29", {7.646008373600001, -1.6577243389799998`, 7.113873526999999}, {1, 0}], Text3DBox["30", {8.705010823999999, -1.78331552894, 3.924016039}, {1, 0}], Text3DBox["31", {2.0287978386, -0.38658124782, 5.8226237512}, {1, 0}], Text3DBox["32", {2.4889461196, 2.9398467381999995`, 6.0161316936}, {1, 0}], Text3DBox["33", {3.9430902766, 0.9068606101399999, 8.2673622774}, {1, 0}], Text3DBox["34", {2.6353998846, -2.5602007847999997`, 1.42313375334}, {1, 0}], Text3DBox["35", {6.2030136, 3.2707377608, -3.7919241915999997`}, {1, 0}], Text3DBox["36", {3.1010283709999995`, 2.8028416031999996`, -2.5785311269999998`}, {1, 0}], Text3DBox["37", {5.075981013600001, 0.15492918610999998`, -3.2121562547999996`}, {1, 0}], Text3DBox["38", {0.6913253648400001, 2.6420259206, -0.2581365716}, {1, 0}], Text3DBox["39", {-0.93081543356, -4.5810737692, -1.38367627446}, {1, 0}], Text3DBox["40", {-3.6658914624000003`, -4.0899339818, 0.51139765012}, {1, 0}], Text3DBox["41", {-0.6062334501836, -3.9225042581999996`, 1.8987966848}, {1, 0}], Text3DBox["42", {-3.6381124902, 2.472706471, -1.61573462726}, {1, 0}], Text3DBox["43", {-5.726448692799999, -3.0110894083999997`, -2.024841409}, { 1, 0}], Text3DBox["44", {-7.944231126399999, 2.2604902412, -3.0167585863999995`}, {1, 0}], Text3DBox["45", {-11.897726891, -4.846580272200001, -4.0077309008}, {1, 0}], Text3DBox[ "46", {-9.477554802799999, -4.6857645896, -1.6773019003399998`}, {1, 0}], Text3DBox["47", {-8.6659174858, -4.8050063002, -4.9393658188}, {1, 0}], Text3DBox["48", {-12.3452140078, 1.9541656565999999`, -4.3202915812}, {1, 0}], Text3DBox[ "49", {-15.850088819999998`, -1.7430832623999999`, -4.2942133624}, {1, 0}], Text3DBox["50", {-13.631550496, -3.4508286486, -6.158617033999999}, { 1, 0}], Text3DBox[ "51", {-16.5583581248, -1.33242690534, -8.547797615799999}, {1, 0}], TubeBox[{{8.0912398142, 3.0808202978, 5.136275268}, {6.2984567579999995`, 0.87813677494, 4.5943018512}}, 0.06], TubeBox[{{10.1614346472, 3.1034970098, 3.1087882425999998`}, {8.0912398142, 3.0808202978, 5.136275268}}, 0.06], TubeBox[{{5.4828510164, 0.92895150708, 1.8780285960599998`}, { 6.2984567579999995`, 0.87813677494, 4.5943018512}}, 0.06], TubeBox[{{8.954466651, 3.8282069308, 0.5798057313199999}, {10.1614346472, 3.1034970098, 3.1087882425999998`}}, 0.06], {RGBColor[1., 0.75, 0.5], TubeBox[{{6.659205451399999, 2.3515774334, 0.10211134441}, {5.4828510164, 1.04895150708, 1.8780285960599998`}}, 0.06], TubeBox[{{6.659205451399999, 2.1115774334, 0.10211134441}, {5.4828510164, 0.80895150708, 1.8780285960599998`}}, 0.06]}, TubeBox[{{6.659205451399999, 2.2315774334, 0.10211134441}, {8.954466651, 3.8282069308, 0.5798057313199999}}, 0.06], TubeBox[{{7.652445436999999, -1.61707633272, 5.1421334186}, { 6.2984567579999995`, 0.87813677494, 4.5943018512}}, 0.06], TubeBox[{{3.9725819972, 1.10059531966, 6.2977008676}, {6.2984567579999995`, 0.87813677494, 4.5943018512}}, 0.06], TubeBox[{{3.2546750897999996`, -0.53636093058, 1.15904454484}, { 5.4828510164, 0.92895150708, 1.8780285960599998`}}, 0.06], TubeBox[{{5.6393203292, 2.1062885995999996`, -2.5537757163999997`}, { 6.659205451399999, 2.2315774334, 0.10211134441}}, 0.06], {RGBColor[1., 0.75, 0.5], TubeBox[{{1.2153772769, 0.7639052372399999, 0.150276680698}, { 3.2546750897999996`, -0.41636093058, 1.15904454484}}, 0.06], TubeBox[{{1.2153772769, 0.5239052372399999, 0.150276680698}, { 3.2546750897999996`, -0.65636093058, 1.15904454484}}, 0.06]}, TubeBox[{{-1.00289648546, -0.7372954961599999, -0.36513285772}, { 1.2153772769, 0.6439052372399999, 0.150276680698}}, 0.06], TubeBox[{{-1.10875893598, -3.5256617982, 0.20480850387999996`}, {-1.00289648546, -0.7372954961599999, \ -0.36513285772}}, 0.06], {RGBColor[1., 0.75, 0.5], TubeBox[{{-3.047183175, 0.56584305518, -1.3762307540199998`}, {-1.00289648546, \ -0.6172954961599999, -0.36513285772}}, 0.06], TubeBox[{{-3.047183175, 0.32584305518, -1.3762307540199998`}, {-1.00289648546, \ -0.8572954961599999, -0.36513285772}}, 0.06]}, TubeBox[{{-5.1780382126, -0.97286873932, -2.1119577776}, {-3.047183175, 0.44584305518, -1.3762307540199998`}}, 0.06], {RGBColor[1., 0.75, 0.5], TubeBox[{{-7.2930195518, 0.34196721596, -2.9294532452}, {-5.1780382126, -0.85286873932, \ -2.1119577776}}, 0.06], TubeBox[{{-7.2930195518, 0.10196721596, -2.9294532452}, {-5.1780382126, -1.09286873932, \ -2.1119577776}}, 0.06]}, TubeBox[{{-9.5026761636, -1.24914668052, -3.692524604}, {-7.2930195518, 0.22196721596, -2.9294532452}}, 0.06], TubeBox[{{-9.4310555482, -4.0933354886, -3.5706372769999994`}, \ {-9.5026761636, -1.24914668052, -3.692524604}}, 0.06], {RGBColor[1., 0.75, 0.5], TubeBox[{{-11.584965243, 0.047268225712, -4.4973589074}, {-9.5026761636, -1.12914668052, \ -3.692524604}}, 0.06], TubeBox[{{-11.584965243, -0.19273177428799998`, -4.4973589074}, \ {-9.5026761636, -1.36914668052, -3.692524604}}, 0.06]}, TubeBox[{{-13.7116628834, -1.5733480730799998`, -5.6533043016}, \ {-11.584965243, -0.072731774288, -4.4973589074}}, 0.06], TubeBox[{{-14.6026686924, -0.31240950232, -7.868819063999999}, \ {-13.7116628834, -1.5733480730799998`, -5.6533043016}}, 0.06], TubeBox[{{8.9455849388, 2.8361007808000003`, 6.994820788999999}, { 8.0912398142, 3.0808202978, 5.136275268}}, 0.06], TubeBox[{{7.045654418399999, 4.8545171214, 5.077693761999999}, { 8.0912398142, 3.0808202978, 5.136275268}}, 0.06], TubeBox[{{11.011055456799998`, 1.2324226054199998`, 2.9663029022}, { 10.1614346472, 3.1034970098, 3.1087882425999998`}}, 0.06], TubeBox[{{11.60291764, 4.4877213048, 3.6071089888}, {10.1614346472, 3.1034970098, 3.1087882425999998`}}, 0.06], TubeBox[{{8.4075799466, 5.8133640938, 0.62856066212}, {8.954466651, 3.8282069308, 0.5798057313199999}}, 0.06], TubeBox[{{10.3173370422, 3.5362442637999996`, -0.9369639453199999}, { 8.954466651, 3.8282069308, 0.5798057313199999}}, 0.06], TubeBox[{{6.3706442912, -3.1879677619999995`, 4.7785501362}, { 7.652445436999999, -1.61707633272, 5.1421334186}}, 0.06], TubeBox[{{8.2460083736, -1.6577243389799998`, 7.113873526999999}, { 7.652445436999999, -1.61707633272, 5.1421334186}}, 0.06], TubeBox[{{9.305010823999998, -1.78331552894, 3.924016039}, { 7.652445436999999, -1.61707633272, 5.1421334186}}, 0.06], TubeBox[{{2.6287978386, -0.38658124782, 5.8226237512}, {3.9725819972, 1.10059531966, 6.2977008676}}, 0.06], TubeBox[{{3.0889461196, 2.9398467381999995`, 6.0161316936}, {3.9725819972, 1.10059531966, 6.2977008676}}, 0.06], TubeBox[{{4.5430902766, 0.9068606101399999, 8.2673622774}, {3.9725819972, 1.10059531966, 6.2977008676}}, 0.06], TubeBox[{{3.2353998846, -2.5602007847999997`, 1.42313375334}, { 3.2546750897999996`, -0.53636093058, 1.15904454484}}, 0.06], TubeBox[{{6.8030136, 3.2707377608, -3.7919241915999997`}, {5.6393203292, 2.1062885995999996`, -2.5537757163999997`}}, 0.06], TubeBox[{{3.7010283709999996`, 2.8028416031999996`, -2.5785311269999998`}, {5.6393203292, 2.1062885995999996`, -2.5537757163999997`}}, 0.06], TubeBox[{{5.6759810136, 0.15492918610999998`, -3.2121562547999996`}, { 5.6393203292, 2.1062885995999996`, -2.5537757163999997`}}, 0.06], TubeBox[{{1.29132536484, 2.6420259206, -0.2581365716}, {1.2153772769, 0.6439052372399999, 0.150276680698}}, 0.06], TubeBox[{{-0.33081543356, -4.5810737692, -1.38367627446}, {-1.10875893598, \ -3.5256617982, 0.20480850387999996`}}, 0.06], TubeBox[{{-3.0658914624, -4.0899339818, 0.51139765012}, {-1.10875893598, -3.5256617982, 0.20480850387999996`}}, 0.06], TubeBox[{{-0.0062334501835999995`, -3.9225042581999996`, 1.8987966848}, {-1.10875893598, -3.5256617982, 0.20480850387999996`}}, 0.06], TubeBox[{{-3.0381124902, 2.472706471, -1.61573462726}, {-3.047183175, 0.44584305518, -1.3762307540199998`}}, 0.06], TubeBox[{{-5.1264486927999995`, -3.0110894083999997`, -2.024841409}, \ {-5.1780382126, -0.97286873932, -2.1119577776}}, 0.06], TubeBox[{{-7.3442311263999995`, 2.2604902412, -3.0167585863999995`}, {-7.2930195518, 0.22196721596, -2.9294532452}}, 0.06], TubeBox[{{-11.297726891, -4.846580272200001, -4.0077309008}, \ {-9.4310555482, -4.0933354886, -3.5706372769999994`}}, 0.06], TubeBox[{{-8.877554802799999, -4.6857645896, -1.6773019003399998`}, \ {-9.4310555482, -4.0933354886, -3.5706372769999994`}}, 0.06], TubeBox[{{-8.0659174858, -4.8050063002, -4.9393658188}, {-9.4310555482, \ -4.0933354886, -3.5706372769999994`}}, 0.06], TubeBox[{{-11.7452140078, 1.9541656565999999`, -4.3202915812}, {-11.584965243, -0.072731774288, \ -4.4973589074}}, 0.06], TubeBox[{{-15.250088819999998`, -1.7430832623999999`, -4.2942133624}, \ {-13.7116628834, -1.5733480730799998`, -5.6533043016}}, 0.06], TubeBox[{{-13.031550496, -3.4508286486, -6.158617033999999}, \ {-13.7116628834, -1.5733480730799998`, -5.6533043016}}, 0.06], TubeBox[{{-15.9583581248, -1.33242690534, -8.547797615799999}, \ {-14.6026686924, -0.31240950232, -7.868819063999999}}, 0.06]}, AspectRatio->Automatic, Boxed->True, ImageSize->{513., Automatic}, SphericalRegion->True]], "Output", CellChangeTimes->{3.571766382283594*^9, 3.5717667156249795`*^9, 3.5717668586616306`*^9, 3.5717672268534775`*^9}] }, Open ]], Cell[CellGroupData[{ Cell[BoxData[{ RowBox[{ RowBox[{ RowBox[{"tc", "=", RowBox[{"Table", "[", RowBox[{ RowBox[{"{", RowBox[{ RowBox[{"x", "[", RowBox[{"[", "i", "]"}], "]"}], ",", RowBox[{"y", "[", RowBox[{"[", "i", "]"}], "]"}], ",", RowBox[{"z", "[", RowBox[{"[", "i", "]"}], "]"}]}], "}"}], ",", RowBox[{"{", RowBox[{"i", ",", "1", ",", "bc"}], "}"}]}], "]"}]}], ";"}], " ", RowBox[{"(*", " ", RowBox[{"core", " ", "clouds"}], " ", "*)"}]}], "\[IndentingNewLine]", RowBox[{ RowBox[{ RowBox[{"twc", "=", RowBox[{"Table", "[", RowBox[{ RowBox[{"{", RowBox[{ RowBox[{"wxc", "[", RowBox[{"[", "i", "]"}], "]"}], ",", RowBox[{"wyc", "[", RowBox[{"[", "i", "]"}], "]"}], ",", RowBox[{"wzc", "[", RowBox[{"[", "i", "]"}], "]"}]}], "}"}], ",", RowBox[{"{", RowBox[{"i", ",", "1", ",", "cw"}], "}"}]}], "]"}]}], ";"}], " ", RowBox[{"(*", " ", RowBox[{"Bond", " ", "c\[ODoubleDot]ouds", " ", "between", " ", "cores"}], " ", "*)"}]}], "\[IndentingNewLine]", RowBox[{ RowBox[{ RowBox[{"twh", "=", RowBox[{"Table", "[", RowBox[{ RowBox[{"{", RowBox[{ RowBox[{"wxh", "[", RowBox[{"[", "i", "]"}], "]"}], ",", RowBox[{"wyh", "[", RowBox[{"[", "i", "]"}], "]"}], ",", RowBox[{"wzh", "[", RowBox[{"[", "i", "]"}], "]"}]}], "}"}], ",", RowBox[{"{", RowBox[{"i", ",", "1", ",", "bh"}], "}"}]}], "]"}]}], ";"}], " ", RowBox[{"(*", " ", RowBox[{"H", "-", RowBox[{"bonding", " ", "clouds"}]}], " ", "*)"}], " "}], "\[IndentingNewLine]", RowBox[{ RowBox[{"tw", "=", RowBox[{"Join", "[", RowBox[{"tc", ",", "twc", ",", "twh"}], "]"}]}], ";"}], "\[IndentingNewLine]", RowBox[{"bt", "=", RowBox[{"Length", "[", "tw", "]"}]}], "\[IndentingNewLine]", RowBox[{"MatrixForm", "[", "tw", "]"}], "\[IndentingNewLine]", RowBox[{ RowBox[{"(*", " ", RowBox[{"coordinates", " ", "of", " ", "clouds"}], " ", "*)"}]}]}], "Input", CellChangeTimes->{{3.568895397419882*^9, 3.5688955157148895`*^9}, { 3.568895549629349*^9, 3.5688955855718126`*^9}, {3.568895617317868*^9, 3.568895845234268*^9}, {3.5688960797194805`*^9, 3.5688961015127187`*^9}, { 3.568896219074525*^9, 3.5688962276233397`*^9}, {3.568896262910602*^9, 3.5688962903198504`*^9}, 3.5688964250728865`*^9, 3.568896456912543*^9, { 3.5688981540863237`*^9, 3.5688981869399815`*^9}, {3.5689021233572955`*^9, 3.5689021341525145`*^9}, {3.5689111169043026`*^9, 3.5689111218495116`*^9}, {3.568911235261711*^9, 3.568911242437723*^9}, 3.5689112948850155`*^9, {3.5689116510180407`*^9, 3.568911800419503*^9}, { 3.568911871820829*^9, 3.5689119012892804`*^9}, {3.5689119993042526`*^9, 3.5689120006770554`*^9}, {3.568912144306507*^9, 3.568912165085744*^9}, { 3.5689528310632005`*^9, 3.5689528569592457`*^9}, {3.5689534065794115`*^9, 3.5689534297298517`*^9}, {3.568954496214126*^9, 3.5689545054337425`*^9}, 3.5689569073699613`*^9, {3.56913308739126*^9, 3.5691332012870607`*^9}, { 3.569135511323518*^9, 3.5691355127119203`*^9}, {3.569136204167535*^9, 3.569136290747687*^9}, {3.5691598050571885`*^9, 3.569159843199256*^9}, { 3.5692215417755947`*^9, 3.569221597186892*^9}, {3.5692216819730406`*^9, 3.5692217090546885`*^9}, {3.5692217693019943`*^9, 3.5692218260704937`*^9}, {3.5692219780303607`*^9, 3.569221989433981*^9}, { 3.569222055468897*^9, 3.5692220728005276`*^9}, {3.5693401536421804`*^9, 3.5693401889450426`*^9}, 3.5693411655535583`*^9, {3.569341634303181*^9, 3.569341638733589*^9}, {3.5704549882757435`*^9, 3.5704550487414494`*^9}, { 3.570455928146194*^9, 3.5704559415310173`*^9}, {3.5708553973857827`*^9, 3.5708554057785974`*^9}}], Cell[BoxData["72"], "Output", CellChangeTimes->{3.571766382330394*^9, 3.5717667156717796`*^9, 3.571766858708431*^9, 3.5717672268690777`*^9}], Cell[BoxData[ TagBox[ RowBox[{"(", "\[NoBreak]", GridBox[{ {"6.2984567579999995`", "0.87813677494`", "4.5943018512`"}, {"8.0912398142`", "3.0808202978`", "5.136275268`"}, {"10.1614346472`", "3.1034970098`", "3.1087882425999998`"}, {"5.4828510164`", "0.92895150708`", "1.8780285960599998`"}, {"8.954466651`", "3.8282069308`", "0.5798057313199999`"}, {"6.659205451399999`", "2.2315774334`", "0.10211134441`"}, {"7.652445436999999`", RowBox[{"-", "1.61707633272`"}], "5.1421334186`"}, {"3.9725819972`", "1.10059531966`", "6.2977008676`"}, {"3.2546750897999996`", RowBox[{"-", "0.53636093058`"}], "1.15904454484`"}, {"5.6393203292`", "2.1062885995999996`", RowBox[{"-", "2.5537757163999997`"}]}, {"1.2153772769`", "0.6439052372399999`", "0.150276680698`"}, { RowBox[{"-", "1.00289648546`"}], RowBox[{"-", "0.7372954961599999`"}], RowBox[{"-", "0.36513285772`"}]}, { RowBox[{"-", "1.10875893598`"}], RowBox[{"-", "3.5256617982`"}], "0.20480850387999996`"}, { RowBox[{"-", "3.047183175`"}], "0.44584305518`", RowBox[{"-", "1.3762307540199998`"}]}, { RowBox[{"-", "5.1780382126`"}], RowBox[{"-", "0.97286873932`"}], RowBox[{"-", "2.1119577776`"}]}, { RowBox[{"-", "7.2930195518`"}], "0.22196721596`", RowBox[{"-", "2.9294532452`"}]}, { RowBox[{"-", "9.5026761636`"}], RowBox[{"-", "1.24914668052`"}], RowBox[{"-", "3.692524604`"}]}, { RowBox[{"-", "9.4310555482`"}], RowBox[{"-", "4.0933354886`"}], RowBox[{"-", "3.5706372769999994`"}]}, { RowBox[{"-", "11.584965243`"}], RowBox[{"-", "0.072731774288`"}], RowBox[{"-", "4.4973589074`"}]}, { RowBox[{"-", "13.7116628834`"}], RowBox[{"-", "1.5733480730799998`"}], RowBox[{"-", "5.6533043016`"}]}, { RowBox[{"-", "14.6026686924`"}], RowBox[{"-", "0.31240950232`"}], RowBox[{"-", "7.868819063999999`"}]}, {"7.195065307464576`", "1.9797451773236876`", "4.865354166986276`"}, {"9.126337230699999`", "3.0921586538`", "4.1225317553`"}, {"5.890653887199999`", "0.90354414101`", "3.2361652236299996`"}, {"9.5579506491`", "3.4658519703`", "1.8442969869599999`"}, {"6.0710282339`", "1.58026447024`", "0.990069970235`"}, {"7.807119268525147`", "3.030089193723594`", "0.34101748162552803`"}, {"6.9756852479854325`", RowBox[{"-", "0.36990128571829195`"}], "4.868312373526277`"}, {"5.135117185323176`", "0.9894045150241044`", "5.446295912632312`"}, {"4.3687630530999995`", "0.19629528824999998`", "1.5185365704499998`"}, {"6.149083820821049`", "2.16891101852621`", RowBox[{"-", "1.2262985015650358`"}]}, {"2.2350261833499996`", "0.05377215332999996`", "0.654660612769`"}, {"0.10624039571999999`", RowBox[{"-", "0.046695129459999984`"}], RowBox[{"-", "0.107428088511`"}]}, { RowBox[{"-", "1.0558462962107484`"}], RowBox[{"-", "2.1319681801150008`"}], RowBox[{"-", "0.0800621165128296`"}]}, { RowBox[{"-", "2.02503983023`"}], RowBox[{"-", "0.14572622048999995`"}], RowBox[{"-", "0.8706818058699999`"}]}, { RowBox[{"-", "4.1126106938`"}], RowBox[{"-", "0.2635128420699999`"}], RowBox[{"-", "1.7440942658099998`"}]}, { RowBox[{"-", "6.2355288822`"}], RowBox[{"-", "0.3754507616799999`"}], RowBox[{"-", "2.5207055114`"}]}, { RowBox[{"-", "8.3978478577`"}], RowBox[{"-", "0.51358973228`"}], RowBox[{"-", "3.3109889246`"}]}, { RowBox[{"-", "9.46685328073193`"}], RowBox[{"-", "2.6717404680417554`"}], RowBox[{"-", "3.631559539488377`"}]}, { RowBox[{"-", "10.5438207033`"}], RowBox[{"-", "0.660939227404`"}], RowBox[{"-", "4.0949417557`"}]}, { RowBox[{"-", "12.648575423259075`"}], RowBox[{"-", "0.8232243416083211`"}], RowBox[{"-", "5.075473664166018`"}]}, { RowBox[{"-", "14.169868812021535`"}], RowBox[{"-", "0.9249016511669437`"}], RowBox[{"-", "6.79264816313953`"}]}, {"8.709489484663667`", "2.9037282112593124`", "6.481217871187386`"}, {"7.3346428786614855`", "4.364286561484166`", "5.0938850547310786`"}, {"10.77624044002041`", "1.7495431404822177`", "3.0056824668467543`"}, {"11.204488251260202`", "4.1051183587434945`", "3.469371928219658`"}, {"8.558740089475585`", "5.264664266257492`", "0.6150847406058669`"}, {"9.940679624370931`", "3.6169341848407526`", RowBox[{"-", "0.5177732772025242`"}]}, {"6.724910793871082`", RowBox[{"-", "2.7538019676016257`"}], "4.879037936751255`"}, {"8.081935593676656`", RowBox[{"-", "1.6464884093520116`"}], "6.568844750903158`"}, {"8.848245507835912`", RowBox[{"-", "1.737367393018954`"}], "4.260700913556169`"}, {"3.0001847523081597`", "0.024435589966594673`", "5.95392268258269`"}, {"3.333166055574349`", "2.4315130737764017`", "6.093951989708165`"}, {"4.385406079469298`", "0.9604074266018731`", "7.722962679290262`"}, {"3.2407761209285644`", RowBox[{"-", "1.9957117827605422`"}], "1.3494740448187397`"}, {"6.481398630136755`", "2.9489138822197276`", RowBox[{"-", "3.4497317131095833`"}]}, {"4.236745331311138`", "2.6103240331788573`", RowBox[{"-", "2.5716890755423845`"}]}, {"5.665848316308251`", "0.6942681146625476`", RowBox[{"-", "3.030185546735806`"}]}, {"1.2701394306775513`", "2.0846444987038364`", RowBox[{"-", "0.14420853853229876`"}]}, { RowBox[{"-", "0.5458383481192651`"}], RowBox[{"-", "4.289358808718669`"}], RowBox[{"-", "0.9446204488001934`"}]}, { RowBox[{"-", "2.524966790716883`"}], RowBox[{"-", "3.9339768651850755`"}], "0.42666060189627153`"}, { RowBox[{"-", "0.31096092314473334`"}], RowBox[{"-", "3.8128208072889964`"}], "1.4305945940112303`"}, { RowBox[{"-", "3.0406426121298424`"}], "1.9073454546893096`", RowBox[{"-", "1.5489288661374467`"}]}, { RowBox[{"-", "5.140840532808636`"}], RowBox[{"-", "2.442490478124714`"}], RowBox[{"-", "2.0491441131904082`"}]}, { RowBox[{"-", "7.32994682477678`"}], "1.6918907012357107`", RowBox[{"-", "2.992406751160414`"}]}, { RowBox[{"-", "10.781811914544614`"}], RowBox[{"-", "4.638396723288159`"}], RowBox[{"-", "3.8869259463009813`"}]}, { RowBox[{"-", "9.030547707164608`"}], RowBox[{"-", "4.522011515109373`"}], RowBox[{"-", "2.2006379222312407`"}]}, { RowBox[{"-", "8.443190643707354`"}], RowBox[{"-", "4.608327076407212`"}], RowBox[{"-", "4.561100386529379`"}]}, { RowBox[{"-", "11.700513716959104`"}], "1.3887765581040856`", RowBox[{"-", "4.369683294074904`"}]}, { RowBox[{"-", "14.824885159318958`"}], RowBox[{"-", "1.6961703612792887`"}], RowBox[{"-", "4.669850842760894`"}]}, { RowBox[{"-", "13.219522945289958`"}], RowBox[{"-", "2.93192231956816`"}], RowBox[{"-", "6.018956481234968`"}]}, { RowBox[{"-", "15.569542264804337`"}], RowBox[{"-", "1.0398828061626109`"}], RowBox[{"-", "8.353064498297293`"}]} }, GridBoxAlignment->{ "Columns" -> {{Center}}, "ColumnsIndexed" -> {}, "Rows" -> {{Baseline}}, "RowsIndexed" -> {}}, GridBoxSpacings->{"Columns" -> { Offset[0.27999999999999997`], { Offset[0.7]}, Offset[0.27999999999999997`]}, "ColumnsIndexed" -> {}, "Rows" -> { Offset[0.2], { Offset[0.4]}, Offset[0.2]}, "RowsIndexed" -> {}}], "\[NoBreak]", ")"}], Function[BoxForm`e$, MatrixForm[BoxForm`e$]]]], "Output", CellChangeTimes->{3.571766382330394*^9, 3.5717667156717796`*^9, 3.571766858708431*^9, 3.571767226884678*^9}] }, Open ]], Cell[BoxData[ RowBox[{ RowBox[{"(*", " ", RowBox[{"cloud", "-", RowBox[{"cloud", " ", "distances"}]}], " ", "*)"}], "\[IndentingNewLine]", RowBox[{ RowBox[{ RowBox[{"dw", "=", RowBox[{"Table", "[", RowBox[{ RowBox[{"Sqrt", "[", RowBox[{ RowBox[{ RowBox[{"(", RowBox[{ RowBox[{"tw", "[", RowBox[{"[", RowBox[{"i", ",", "1"}], "]"}], "]"}], "-", RowBox[{"tw", "[", RowBox[{"[", RowBox[{"j", ",", "1"}], "]"}], "]"}]}], ")"}], "^", "2"}], "+", RowBox[{ RowBox[{"(", RowBox[{ RowBox[{"tw", "[", RowBox[{"[", RowBox[{"i", ",", "2"}], "]"}], "]"}], "-", RowBox[{"tw", "[", RowBox[{"[", RowBox[{"j", ",", "2"}], "]"}], "]"}]}], ")"}], "^", "2"}], "+", RowBox[{ RowBox[{"(", RowBox[{ RowBox[{"tw", "[", RowBox[{"[", RowBox[{"i", ",", "3"}], "]"}], "]"}], "-", RowBox[{"tw", "[", RowBox[{"[", RowBox[{"j", ",", "3"}], "]"}], "]"}]}], ")"}], "^", "2"}]}], "]"}], ",", RowBox[{"{", RowBox[{"i", ",", "1", ",", "bt"}], "}"}], ",", RowBox[{"{", RowBox[{"j", ",", "1", ",", "bt"}], "}"}]}], "]"}]}], ";"}], "\[IndentingNewLine]", RowBox[{"(*", RowBox[{"MatrixForm", "[", "dw", "]"}], "*)"}]}]}]], "Input", CellChangeTimes->{{3.5688982251756487`*^9, 3.5688986440675845`*^9}, { 3.5688986873108606`*^9, 3.56889871560931*^9}, {3.5688987970414534`*^9, 3.5688988526711507`*^9}, {3.568898887147211*^9, 3.568898888644814*^9}, { 3.5688989206248703`*^9, 3.568899041759083*^9}, {3.5688990876855636`*^9, 3.568899258349863*^9}, 3.568899300267137*^9, {3.568899351326027*^9, 3.5688993831032825`*^9}, {3.5688994370481772`*^9, 3.568899468217032*^9}, { 3.5688995813016305`*^9, 3.5688997165538683`*^9}, {3.5688998495129013`*^9, 3.568899932364647*^9}, {3.568899967667509*^9, 3.568900024529609*^9}, { 3.5689000794261055`*^9, 3.568900136257005*^9}, {3.5689001767858763`*^9, 3.56890020149632*^9}, {3.568902068726*^9, 3.568902074139209*^9}, 3.56890216040736*^9, 3.568902344113283*^9, {3.5689024237982235`*^9, 3.56890243907065*^9}, 3.5689025770684924`*^9, 3.568910195129884*^9, 3.568910620995032*^9, {3.568912393532545*^9, 3.5689124022841606`*^9}, { 3.5691332074958715`*^9, 3.5691332081666727`*^9}, {3.5691352237838125`*^9, 3.5691352313342257`*^9}, {3.5691489965881166`*^9, 3.5691490103317413`*^9}, {3.5691490440122004`*^9, 3.5691491351943607`*^9}, {3.569149201666077*^9, 3.5691492026956787`*^9}, { 3.5691494320784817`*^9, 3.5691494680989447`*^9}, {3.569152288984131*^9, 3.5691522953957424`*^9}, {3.5691595058486633`*^9, 3.569159537672719*^9}, 3.569237911685565*^9, 3.5693411655535583`*^9, 3.5693418217687106`*^9, { 3.5703410302061863`*^9, 3.570341063621445*^9}}], Cell[BoxData[ RowBox[{ RowBox[{"(*", " ", RowBox[{"nucleus", "-", RowBox[{"nucleus", " ", "distances"}]}], " ", "*)"}], "\[IndentingNewLine]", RowBox[{"(*", RowBox[{"MatrixForm", "[", "dc", "]"}], " ", "*)"}], " "}]], "Input", CellChangeTimes->{{3.5688982251756487`*^9, 3.5688986440675845`*^9}, { 3.5688986873108606`*^9, 3.56889871560931*^9}, {3.5688987970414534`*^9, 3.5688988526711507`*^9}, {3.568898887147211*^9, 3.568898888644814*^9}, { 3.5688989206248703`*^9, 3.568899041759083*^9}, {3.5688990876855636`*^9, 3.568899258349863*^9}, 3.568899300267137*^9, {3.568899351326027*^9, 3.5688993831032825`*^9}, {3.5688994370481772`*^9, 3.568899468217032*^9}, { 3.5688995813016305`*^9, 3.5688997165538683`*^9}, {3.5688998495129013`*^9, 3.568899932364647*^9}, {3.568899967667509*^9, 3.568900024529609*^9}, { 3.5689000794261055`*^9, 3.568900136257005*^9}, {3.5689001767858763`*^9, 3.56890020149632*^9}, {3.568902068726*^9, 3.568902074139209*^9}, 3.56890216040736*^9, 3.568902344113283*^9, {3.5689024237982235`*^9, 3.56890243907065*^9}, 3.5689025770684924`*^9, 3.568910195129884*^9, 3.568910620995032*^9, {3.568912393532545*^9, 3.5689124022841606`*^9}, { 3.5691332074958715`*^9, 3.5691332081666727`*^9}, {3.5691352237838125`*^9, 3.5691352313342257`*^9}, {3.5691489965881166`*^9, 3.5691490103317413`*^9}, {3.5691490440122004`*^9, 3.5691491273631463`*^9}, {3.5691523435842266`*^9, 3.56915234531583*^9}, { 3.5691524837816734`*^9, 3.569152599175076*^9}, {3.569159470889002*^9, 3.569159489874235*^9}, {3.569160442895509*^9, 3.5691604484335184`*^9}, 3.569237923385586*^9, 3.569341165569158*^9, 3.5693418217843103`*^9, { 3.570341048161818*^9, 3.570341058286236*^9}, {3.57034131095988*^9, 3.570341315156287*^9}, 3.5703415891395683`*^9, 3.570341976207448*^9}], Cell[CellGroupData[{ Cell[BoxData[{ RowBox[{ RowBox[{"tv1", "=", RowBox[{"Table", "[", RowBox[{ RowBox[{"{", RowBox[{ RowBox[{"x", "[", RowBox[{"[", "i", "]"}], "]"}], ",", RowBox[{"y", "[", RowBox[{"[", "i", "]"}], "]"}], ",", RowBox[{"z", "[", RowBox[{"[", "i", "]"}], "]"}]}], "}"}], ",", RowBox[{"{", RowBox[{"i", ",", "1", ",", "bc"}], "}"}]}], "]"}]}], ";"}], "\[IndentingNewLine]", RowBox[{ RowBox[{"tv2", "=", RowBox[{"Table", "[", RowBox[{ RowBox[{"{", RowBox[{"0", ",", "0", ",", "0"}], "}"}], ",", RowBox[{"{", RowBox[{"i", ",", "1", ",", "cw"}], "}"}]}], "]"}]}], ";"}], "\[IndentingNewLine]", RowBox[{ RowBox[{"tv3", "=", " ", RowBox[{"Table", "[", RowBox[{ RowBox[{"{", RowBox[{ RowBox[{"x", "[", RowBox[{"[", "i", "]"}], "]"}], ",", RowBox[{"y", "[", RowBox[{"[", "i", "]"}], "]"}], ",", RowBox[{"z", "[", RowBox[{"[", "i", "]"}], "]"}]}], "}"}], ",", RowBox[{"{", RowBox[{"i", ",", RowBox[{"bc", "+", "1"}], ",", "n"}], "}"}]}], "]"}]}], ";"}], "\[IndentingNewLine]", RowBox[{ RowBox[{"tv", " ", "=", " ", RowBox[{"Join", "[", RowBox[{"tv1", ",", "tv2", ",", "tv3"}], "]"}]}], ";"}], "\[IndentingNewLine]", RowBox[{"MatrixForm", "[", "tv", "]"}]}], "Input", CellChangeTimes->{{3.5688982251756487`*^9, 3.5688986440675845`*^9}, { 3.5688986873108606`*^9, 3.56889871560931*^9}, {3.5688987970414534`*^9, 3.5688988526711507`*^9}, {3.568898887147211*^9, 3.568898888644814*^9}, { 3.5688989206248703`*^9, 3.568899041759083*^9}, {3.5688990876855636`*^9, 3.568899258349863*^9}, 3.568899300267137*^9, {3.568899351326027*^9, 3.5688993831032825`*^9}, {3.5688994370481772`*^9, 3.568899468217032*^9}, { 3.5688995813016305`*^9, 3.5688997165538683`*^9}, {3.5688998495129013`*^9, 3.568899932364647*^9}, {3.568899967667509*^9, 3.568900024529609*^9}, { 3.5689000794261055`*^9, 3.568900136257005*^9}, {3.5689001767858763`*^9, 3.56890020149632*^9}, {3.568902068726*^9, 3.568902074139209*^9}, 3.56890216040736*^9, 3.568902344113283*^9, {3.5689024237982235`*^9, 3.56890243907065*^9}, 3.5689025770684924`*^9, 3.568910195129884*^9, 3.568910620995032*^9, {3.568912393532545*^9, 3.5689124022841606`*^9}, { 3.5691332074958715`*^9, 3.5691332081666727`*^9}, {3.5691352237838125`*^9, 3.5691352313342257`*^9}, {3.5691489965881166`*^9, 3.5691490103317413`*^9}, {3.5691490440122004`*^9, 3.5691491273631463`*^9}, {3.5691523435842266`*^9, 3.56915234531583*^9}, { 3.5691524837816734`*^9, 3.5691526041202846`*^9}, {3.5691595921324143`*^9, 3.5691596901941867`*^9}, {3.569159772406331*^9, 3.5691597832951508`*^9}, { 3.5691598700313025`*^9, 3.569159885147729*^9}, {3.569160485733184*^9, 3.569160486887586*^9}, {3.5691672792073207`*^9, 3.5691672793789206`*^9}, { 3.5691673418102303`*^9, 3.5691674875144863`*^9}, {3.569168259700243*^9, 3.569168260386644*^9}, {3.569168321257951*^9, 3.569168337466379*^9}, { 3.5691685152754917`*^9, 3.569168656096939*^9}, {3.5691687137702403`*^9, 3.569168772566744*^9}, {3.5691697249898825`*^9, 3.569169747063921*^9}, { 3.569169944981469*^9, 3.5691699696763124`*^9}, 3.569341165569158*^9, { 3.5693417833614435`*^9, 3.5693417874486504`*^9}, {3.5704552110753345`*^9, 3.5704552378605814`*^9}, {3.5704560776724567`*^9, 3.570456083070066*^9}, { 3.570855427306635*^9, 3.570855434529448*^9}}], Cell[BoxData[ TagBox[ RowBox[{"(", "\[NoBreak]", GridBox[{ {"6.2984567579999995`", "0.87813677494`", "4.5943018512`"}, {"8.0912398142`", "3.0808202978`", "5.136275268`"}, {"10.1614346472`", "3.1034970098`", "3.1087882425999998`"}, {"5.4828510164`", "0.92895150708`", "1.8780285960599998`"}, {"8.954466651`", "3.8282069308`", "0.5798057313199999`"}, {"6.659205451399999`", "2.2315774334`", "0.10211134441`"}, {"7.652445436999999`", RowBox[{"-", "1.61707633272`"}], "5.1421334186`"}, {"3.9725819972`", "1.10059531966`", "6.2977008676`"}, {"3.2546750897999996`", RowBox[{"-", "0.53636093058`"}], "1.15904454484`"}, {"5.6393203292`", "2.1062885995999996`", RowBox[{"-", "2.5537757163999997`"}]}, {"1.2153772769`", "0.6439052372399999`", "0.150276680698`"}, { RowBox[{"-", "1.00289648546`"}], RowBox[{"-", "0.7372954961599999`"}], RowBox[{"-", "0.36513285772`"}]}, { RowBox[{"-", "1.10875893598`"}], RowBox[{"-", "3.5256617982`"}], "0.20480850387999996`"}, { RowBox[{"-", "3.047183175`"}], "0.44584305518`", RowBox[{"-", "1.3762307540199998`"}]}, { RowBox[{"-", "5.1780382126`"}], RowBox[{"-", "0.97286873932`"}], RowBox[{"-", "2.1119577776`"}]}, { RowBox[{"-", "7.2930195518`"}], "0.22196721596`", RowBox[{"-", "2.9294532452`"}]}, { RowBox[{"-", "9.5026761636`"}], RowBox[{"-", "1.24914668052`"}], RowBox[{"-", "3.692524604`"}]}, { RowBox[{"-", "9.4310555482`"}], RowBox[{"-", "4.0933354886`"}], RowBox[{"-", "3.5706372769999994`"}]}, { RowBox[{"-", "11.584965243`"}], RowBox[{"-", "0.072731774288`"}], RowBox[{"-", "4.4973589074`"}]}, { RowBox[{"-", "13.7116628834`"}], RowBox[{"-", "1.5733480730799998`"}], RowBox[{"-", "5.6533043016`"}]}, { RowBox[{"-", "14.6026686924`"}], RowBox[{"-", "0.31240950232`"}], RowBox[{"-", "7.868819063999999`"}]}, {"0", "0", "0"}, {"0", "0", "0"}, {"0", "0", "0"}, {"0", "0", "0"}, {"0", "0", "0"}, {"0", "0", "0"}, {"0", "0", "0"}, {"0", "0", "0"}, {"0", "0", "0"}, {"0", "0", "0"}, {"0", "0", "0"}, {"0", "0", "0"}, {"0", "0", "0"}, {"0", "0", "0"}, {"0", "0", "0"}, {"0", "0", "0"}, {"0", "0", "0"}, {"0", "0", "0"}, {"0", "0", "0"}, {"0", "0", "0"}, {"0", "0", "0"}, {"8.9455849388`", "2.8361007808000003`", "6.994820788999999`"}, {"7.045654418399999`", "4.8545171214`", "5.077693761999999`"}, {"11.011055456799998`", "1.2324226054199998`", "2.9663029022`"}, {"11.60291764`", "4.4877213048`", "3.6071089888`"}, {"8.4075799466`", "5.8133640938`", "0.62856066212`"}, {"10.3173370422`", "3.5362442637999996`", RowBox[{"-", "0.9369639453199999`"}]}, {"6.3706442912`", RowBox[{"-", "3.1879677619999995`"}], "4.7785501362`"}, {"8.2460083736`", RowBox[{"-", "1.6577243389799998`"}], "7.113873526999999`"}, {"9.305010823999998`", RowBox[{"-", "1.78331552894`"}], "3.924016039`"}, {"2.6287978386`", RowBox[{"-", "0.38658124782`"}], "5.8226237512`"}, {"3.0889461196`", "2.9398467381999995`", "6.0161316936`"}, {"4.5430902766`", "0.9068606101399999`", "8.2673622774`"}, {"3.2353998846`", RowBox[{"-", "2.5602007847999997`"}], "1.42313375334`"}, {"6.8030136`", "3.2707377608`", RowBox[{"-", "3.7919241915999997`"}]}, {"3.7010283709999996`", "2.8028416031999996`", RowBox[{"-", "2.5785311269999998`"}]}, {"5.6759810136`", "0.15492918610999998`", RowBox[{"-", "3.2121562547999996`"}]}, {"1.29132536484`", "2.6420259206`", RowBox[{"-", "0.2581365716`"}]}, { RowBox[{"-", "0.33081543356`"}], RowBox[{"-", "4.5810737692`"}], RowBox[{"-", "1.38367627446`"}]}, { RowBox[{"-", "3.0658914624`"}], RowBox[{"-", "4.0899339818`"}], "0.51139765012`"}, { RowBox[{"-", "0.0062334501835999995`"}], RowBox[{"-", "3.9225042581999996`"}], "1.8987966848`"}, { RowBox[{"-", "3.0381124902`"}], "2.472706471`", RowBox[{"-", "1.61573462726`"}]}, { RowBox[{"-", "5.1264486927999995`"}], RowBox[{"-", "3.0110894083999997`"}], RowBox[{"-", "2.024841409`"}]}, { RowBox[{"-", "7.3442311263999995`"}], "2.2604902412`", RowBox[{"-", "3.0167585863999995`"}]}, { RowBox[{"-", "11.297726891`"}], RowBox[{"-", "4.846580272200001`"}], RowBox[{"-", "4.0077309008`"}]}, { RowBox[{"-", "8.877554802799999`"}], RowBox[{"-", "4.6857645896`"}], RowBox[{"-", "1.6773019003399998`"}]}, { RowBox[{"-", "8.0659174858`"}], RowBox[{"-", "4.8050063002`"}], RowBox[{"-", "4.9393658188`"}]}, { RowBox[{"-", "11.7452140078`"}], "1.9541656565999999`", RowBox[{"-", "4.3202915812`"}]}, { RowBox[{"-", "15.250088819999998`"}], RowBox[{"-", "1.7430832623999999`"}], RowBox[{"-", "4.2942133624`"}]}, { RowBox[{"-", "13.031550496`"}], RowBox[{"-", "3.4508286486`"}], RowBox[{"-", "6.158617033999999`"}]}, { RowBox[{"-", "15.9583581248`"}], RowBox[{"-", "1.33242690534`"}], RowBox[{"-", "8.547797615799999`"}]} }, GridBoxAlignment->{ "Columns" -> {{Center}}, "ColumnsIndexed" -> {}, "Rows" -> {{Baseline}}, "RowsIndexed" -> {}}, GridBoxSpacings->{"Columns" -> { Offset[0.27999999999999997`], { Offset[0.7]}, Offset[0.27999999999999997`]}, "ColumnsIndexed" -> {}, "Rows" -> { Offset[0.2], { Offset[0.4]}, Offset[0.2]}, "RowsIndexed" -> {}}], "\[NoBreak]", ")"}], Function[BoxForm`e$, MatrixForm[BoxForm`e$]]]], "Output", CellChangeTimes->{3.5717663823771944`*^9, 3.5717667157341795`*^9, 3.571766858755231*^9, 3.5717672269314775`*^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.571766382392794*^9, 3.5717667157497797`*^9, 3.571766858770831*^9, 3.5717672269470778`*^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.571766382392794*^9, 3.5717667157497797`*^9, 3.571766858770831*^9, 3.5717672269470778`*^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.1617366451408`"], "Output", CellChangeTimes->{3.5717663824551945`*^9, 3.57176671579658*^9, 3.571766858833231*^9, 3.5717672270094776`*^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.2117499220326`"], "Output", CellChangeTimes->{3.5717663824551945`*^9, 3.5717667158121796`*^9, 3.571766858848831*^9, 3.571767227025078*^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.5717663824707947`*^9, 3.57176671582778*^9, 3.5717668588644314`*^9, 3.571767227040678*^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.5717663824863944`*^9, 3.57176671584338*^9, 3.571766858880031*^9, 3.5717672270562778`*^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.5717663824863944`*^9, 3.57176671585898*^9, 3.5717668588956313`*^9, 3.5717672270718775`*^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.571766382501994*^9, 3.57176671587458*^9, 3.571766858911231*^9, 3.5717672270874777`*^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.2117499220326`"], "Output", CellChangeTimes->{3.5717663825175943`*^9, 3.57176671589018*^9, 3.5717668589268312`*^9, 3.571767227103078*^9}], Cell[BoxData["1586.9262018401766`"], "Output", CellChangeTimes->{3.5717663825175943`*^9, 3.57176671589018*^9, 3.5717668589268312`*^9, 3.571767227118678*^9}], Cell[BoxData[ RowBox[{"-", "4896.786491059151`"}]], "Output", CellChangeTimes->{3.5717663825175943`*^9, 3.57176671589018*^9, 3.5717668589268312`*^9, 3.571767227118678*^9}], Cell[BoxData[ RowBox[{"-", "1667.6485392969414`"}]], "Output", CellChangeTimes->{3.5717663825175943`*^9, 3.57176671589018*^9, 3.5717668589268312`*^9, 3.571767227118678*^9}], Cell[BoxData["844.1218307487597`"], "Output", CellChangeTimes->{3.5717663825175943`*^9, 3.57176671589018*^9, 3.5717668589268312`*^9, 3.571767227118678*^9}], Cell[BoxData["1.9756017183179473`"], "Output", CellChangeTimes->{3.5717663825175943`*^9, 3.57176671589018*^9, 3.5717668589268312`*^9, 3.571767227118678*^9}], Cell[BoxData[ RowBox[{"-", "823.5267085481817`"}]], "Output", CellChangeTimes->{3.5717663825175943`*^9, 3.57176671589018*^9, 3.5717668589268312`*^9, 3.571767227118678*^9}] }, Open ]] }, WindowSize->{1156, 978}, WindowMargins->{{Automatic, 293}, {Automatic, -34}}, 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, 6047, 102, 362, "Output"] }, Open ]], Cell[CellGroupData[{ Cell[8431, 166, 680, 14, 52, "Input"], Cell[9114, 182, 5573, 142, 791, "Output"] }, Open ]], Cell[CellGroupData[{ Cell[14724, 329, 609, 10, 31, "Input"], Cell[15336, 341, 1134, 16, 52, "Output"] }, Open ]], Cell[CellGroupData[{ Cell[16507, 362, 955, 14, 31, "Input"], Cell[17465, 378, 148, 2, 31, "Output"] }, Open ]], Cell[CellGroupData[{ Cell[17650, 385, 1560, 29, 31, "Input"], Cell[19213, 416, 1138, 16, 52, "Output"] }, Open ]], Cell[20366, 435, 1419, 23, 31, "Input"], Cell[21788, 460, 1592, 29, 31, "Input"], Cell[CellGroupData[{ Cell[23405, 493, 1234, 18, 31, "Input"], Cell[24642, 513, 3625, 106, 92, "Output"] }, Open ]], Cell[CellGroupData[{ Cell[28304, 624, 697, 14, 31, "Input"], Cell[29004, 640, 749, 12, 52, "Output"] }, Open ]], Cell[29768, 655, 908, 24, 31, "Input"], Cell[CellGroupData[{ Cell[30701, 683, 5635, 122, 132, "Input"], Cell[36339, 807, 914, 14, 72, "Output"], Cell[37256, 823, 937, 15, 72, "Output"] }, Open ]], Cell[CellGroupData[{ Cell[38230, 843, 519, 12, 31, "Input"], Cell[38752, 857, 1138, 16, 52, "Output"] }, Open ]], Cell[CellGroupData[{ Cell[39927, 878, 1401, 38, 31, "Input"], Cell[41331, 918, 815, 13, 52, "Output"] }, Open ]], Cell[CellGroupData[{ Cell[42183, 936, 827, 23, 92, "Input"], Cell[43013, 961, 142, 2, 31, "Output"], Cell[43158, 965, 140, 2, 31, "Output"] }, Open ]], Cell[CellGroupData[{ Cell[43335, 972, 284, 6, 52, "Input"], Cell[43622, 980, 157, 2, 31, "Output"] }, Open ]], Cell[43794, 985, 1824, 35, 72, "Input"], Cell[45621, 1022, 935, 19, 31, "Input"], Cell[46559, 1043, 4271, 83, 132, "Input"], Cell[50833, 1128, 3292, 57, 31, "Input"], Cell[CellGroupData[{ Cell[54150, 1189, 275, 6, 52, "Input"], Cell[54428, 1197, 35977, 882, 228, "Output"] }, Open ]], Cell[90420, 2082, 2567, 59, 52, "Input"], Cell[92990, 2143, 1254, 35, 72, "Input"], Cell[CellGroupData[{ Cell[94269, 2182, 4850, 86, 72, "Input"], Cell[99122, 2270, 17466, 247, 806, "Output"] }, Open ]], Cell[CellGroupData[{ Cell[116625, 2522, 2506, 53, 112, "Input"], Cell[119134, 2577, 146, 2, 31, "Output"] }, Open ]], Cell[CellGroupData[{ Cell[119317, 2584, 2272, 46, 72, "Input"], Cell[121592, 2632, 381, 7, 31, "Output"] }, Open ]], Cell[121988, 2642, 9192, 221, 232, "Input"], Cell[CellGroupData[{ Cell[131205, 2867, 584, 9, 31, "Input"], Cell[131792, 2878, 2457, 82, 341, "Output"] }, Open ]], Cell[CellGroupData[{ Cell[134286, 2965, 1947, 43, 72, "Input"], Cell[136236, 3010, 313, 6, 31, "Output"], Cell[136552, 3018, 218, 4, 31, "Output"] }, Open ]], Cell[CellGroupData[{ Cell[136807, 3027, 570, 14, 52, "Input"], Cell[137380, 3043, 609, 11, 52, "Output"], Cell[137992, 3056, 217, 4, 31, "Output"] }, Open ]], Cell[CellGroupData[{ Cell[138246, 3065, 2767, 54, 72, "Input"], Cell[141016, 3121, 1015, 17, 72, "Output"], Cell[142034, 3140, 216, 4, 31, "Output"] }, Open ]], Cell[CellGroupData[{ Cell[142287, 3149, 3698, 81, 132, "Input"], Cell[145988, 3232, 1030, 16, 72, "Output"] }, Open ]], Cell[147033, 3251, 2072, 49, 112, "Input"], Cell[149108, 3302, 561, 12, 52, "Input"], Cell[149672, 3316, 2148, 49, 92, "Input"], Cell[151823, 3367, 2452, 56, 92, "Input"], Cell[154278, 3425, 1759, 41, 72, "Input"], Cell[CellGroupData[{ Cell[156062, 3470, 923, 20, 31, "Input"], Cell[156988, 3492, 157, 2, 31, "Output"] }, Open ]], Cell[CellGroupData[{ Cell[157182, 3499, 711, 18, 31, "Input"], Cell[157896, 3519, 161, 2, 31, "Output"] }, Open ]], Cell[CellGroupData[{ Cell[158094, 3526, 507, 10, 31, "Input"], Cell[158604, 3538, 164, 2, 31, "Output"] }, Open ]], Cell[CellGroupData[{ Cell[158805, 3545, 823, 23, 31, "Input"], Cell[159631, 3570, 157, 2, 31, "Output"] }, Open ]], Cell[CellGroupData[{ Cell[159825, 3577, 204, 4, 31, "Input"], Cell[160032, 3583, 156, 2, 31, "Output"] }, Open ]], Cell[160203, 3588, 1971, 35, 92, "Input"], Cell[162177, 3625, 6864, 97, 31, "Input"], Cell[CellGroupData[{ Cell[169066, 3726, 666, 16, 52, InheritFromParent], Cell[169735, 3744, 140, 2, 31, "Output"], Cell[169878, 3748, 209, 4, 31, "Output"] }, Open ]], Cell[CellGroupData[{ Cell[170124, 3757, 9156, 163, 172, "Input"], Cell[179283, 3922, 828, 23, 52, "Output"] }, Open ]], Cell[CellGroupData[{ Cell[180148, 3950, 7566, 115, 112, "Input"], Cell[187717, 4067, 758, 21, 31, "Output"] }, Open ]], Cell[188490, 4091, 1166, 24, 72, "Input"], Cell[189659, 4117, 657, 11, 31, "Input"], Cell[190319, 4130, 744, 13, 31, "Input"], Cell[CellGroupData[{ Cell[191088, 4147, 872, 18, 31, "Input"], Cell[191963, 4167, 181, 3, 31, "Output"] }, Open ]], Cell[CellGroupData[{ Cell[192181, 4175, 1780, 50, 172, "Input"], Cell[193964, 4227, 827, 21, 72, "Output"], Cell[194794, 4250, 731, 20, 31, "Output"] }, Open ]], Cell[195540, 4273, 761, 12, 31, "Input"], Cell[CellGroupData[{ Cell[196326, 4289, 984, 20, 52, "Input"], Cell[197313, 4311, 158, 2, 31, "Output"] }, Open ]], Cell[CellGroupData[{ Cell[197508, 4318, 1822, 51, 172, "Input"], Cell[199333, 4371, 823, 21, 72, "Output"], Cell[200159, 4394, 711, 19, 33, "Output"] }, Open ]], Cell[200885, 4416, 766, 13, 31, "Input"], Cell[CellGroupData[{ Cell[201676, 4433, 1062, 22, 52, "Input"], Cell[202741, 4457, 163, 2, 31, "Output"] }, Open ]], Cell[CellGroupData[{ Cell[202941, 4464, 1804, 50, 172, "Input"], Cell[204748, 4516, 830, 21, 72, "Output"], Cell[205581, 4539, 745, 19, 55, "Output"] }, Open ]], Cell[CellGroupData[{ Cell[206363, 4563, 4578, 119, 172, "Input"], Cell[210944, 4684, 18905, 323, 375, 2085, 46, "CachedBoxData", "BoxData", \ "Output"] }, Open ]], Cell[229864, 5010, 5257, 100, 92, "Input"], Cell[235124, 5112, 2696, 53, 92, "Input"], Cell[CellGroupData[{ Cell[237845, 5169, 939, 17, 72, "Input"], Cell[238787, 5188, 4666, 107, 192, "Output"], Cell[243456, 5297, 146, 2, 31, "Output"], Cell[243605, 5301, 146, 2, 31, "Output"] }, Open ]], Cell[243766, 5306, 10201, 233, 132, "Input"], Cell[253970, 5541, 6427, 103, 52, "Input"], Cell[260400, 5646, 10215, 234, 132, "Input"], Cell[270618, 5882, 5925, 93, 31, "Input"], Cell[CellGroupData[{ Cell[276568, 5979, 14523, 279, 272, "Input"], Cell[291094, 6260, 81893, 1390, 375, 25765, 468, "CachedBoxData", "BoxData", \ "Output"], Cell[372990, 7652, 19012, 318, 560, "Output"] }, Open ]], Cell[CellGroupData[{ Cell[392039, 7975, 3879, 89, 152, "Input"], Cell[395921, 8066, 144, 2, 31, "Output"], Cell[396068, 8070, 8002, 193, 1106, "Output"] }, Open ]], Cell[404085, 8266, 3049, 67, 72, "Input"], Cell[407137, 8335, 1841, 29, 52, "Input"], Cell[CellGroupData[{ Cell[409003, 8368, 3517, 75, 112, "Input"], Cell[412523, 8445, 6039, 163, 1106, "Output"] }, Open ]], Cell[CellGroupData[{ Cell[418599, 8613, 6437, 145, 152, "Input"], Cell[425039, 8760, 2400, 76, 72, "Output"], Cell[427442, 8838, 1082, 17, 72, "Output"] }, Open ]], Cell[428539, 8858, 1863, 27, 31, "Input"], Cell[CellGroupData[{ Cell[430427, 8889, 2963, 56, 112, "Input"], Cell[433393, 8947, 160, 2, 31, "Output"] }, Open ]], Cell[CellGroupData[{ Cell[433590, 8954, 2532, 57, 112, "Input"], Cell[436125, 9013, 161, 2, 31, "Output"] }, Open ]], Cell[CellGroupData[{ Cell[436323, 9020, 499, 15, 52, "Input"], Cell[436825, 9037, 177, 3, 31, "Output"] }, Open ]], Cell[437017, 9043, 1381, 21, 31, "Input"], Cell[CellGroupData[{ Cell[438423, 9068, 1709, 32, 52, "Input"], Cell[440135, 9102, 176, 3, 31, "Output"] }, Open ]], Cell[CellGroupData[{ Cell[440348, 9110, 1415, 43, 72, "Input"], Cell[441766, 9155, 178, 3, 31, "Output"] }, Open ]], Cell[CellGroupData[{ Cell[441981, 9163, 2550, 50, 92, "Input"], Cell[444534, 9215, 158, 2, 31, "Output"] }, Open ]], Cell[CellGroupData[{ Cell[444729, 9222, 1351, 23, 172, "Input"], Cell[446083, 9247, 160, 2, 31, "Output"], Cell[446246, 9251, 160, 2, 31, "Output"], Cell[446409, 9255, 176, 3, 31, "Output"], Cell[446588, 9260, 177, 3, 31, "Output"], Cell[446768, 9265, 159, 2, 31, "Output"], Cell[446930, 9269, 160, 2, 31, "Output"], Cell[447093, 9273, 176, 3, 31, "Output"] }, Open ]] } ] *) (* End of internal cache information *)