(* 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[ 509316, 10236] NotebookOptionsPosition[ 501564, 9994] NotebookOutlinePosition[ 502359, 10019] CellTagsIndexPosition[ 502316, 10016] WindowFrame->Normal*) (* Beginning of Notebook Content *) Notebook[{ Cell[BoxData[ RowBox[{ RowBox[{"(*", " ", RowBox[{ RowBox[{ "Kimball", " ", "model", " ", "and", " ", "energy", " ", "derived", " ", "from", " ", "Wolfram", " ", "source"}], ",", " ", RowBox[{"ES", " ", "21", " ", "March", " ", "2013"}]}], " ", "*)"}], " ", "\[IndentingNewLine]", RowBox[{ RowBox[{"Clear", "[", RowBox[{ "tw", ",", "n2", ",", "n", ",", "nb", ",", "bc", ",", "bh", ",", "u", ",", "u1", ",", "u2", ",", "Vee", ",", "Vne", ",", "Vnn"}], "]"}], ";"}]}]], "Input", CellChangeTimes->{{3.568278170270548*^9, 3.568278174310955*^9}, { 3.5682782109554195`*^9, 3.5682782183342323`*^9}, {3.5688220426984916`*^9, 3.5688220506389055`*^9}, {3.568822092353379*^9, 3.568822134660653*^9}, { 3.5688728241768503`*^9, 3.568872825034852*^9}, {3.5688958900531473`*^9, 3.5688958965115585`*^9}, {3.5689027504159966`*^9, 3.568902751695199*^9}, { 3.5689109808408637`*^9, 3.568910992618884*^9}, {3.569134574760273*^9, 3.569134584135889*^9}, 3.56923802266416*^9, {3.56933446475942*^9, 3.569334471239791*^9}, {3.5693395229642725`*^9, 3.569339531606688*^9}, { 3.5694332905109916`*^9, 3.56943330667262*^9}, {3.570297588441428*^9, 3.5702976026530533`*^9}, {3.570558862041448*^9, 3.5705588713234644`*^9}, 3.5705590387585583`*^9, {3.570855141170933*^9, 3.570855146100541*^9}, { 3.5708563212974052`*^9, 3.5708563224362073`*^9}, {3.5708588179101906`*^9, 3.570858820452995*^9}, 3.570949483910489*^9, {3.5719810762355733`*^9, 3.5719810786847773`*^9}, 3.5723256977094345`*^9, 3.572583124905918*^9, { 3.5727976670013523`*^9, 3.572797667157352*^9}, 3.5728672700652885`*^9, { 3.572890249781396*^9, 3.5728902514193993`*^9}, {3.572890361602392*^9, 3.5728903775924206`*^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.5728903934264483`*^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.5728903934888487`*^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.572890393504449*^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.5728903935200486`*^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.5728903935200486`*^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.5728903935356483`*^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.5728903935512486`*^9}] }, Open ]], Cell[BoxData[ RowBox[{ RowBox[{"For", "[", RowBox[{ RowBox[{"i", "=", "1"}], ",", RowBox[{"i", "<", RowBox[{"n", "+", "1"}]}], ",", RowBox[{"i", "++"}], ",", RowBox[{"If", "[", RowBox[{ RowBox[{ RowBox[{"us", "[", RowBox[{"[", RowBox[{"i", ",", "1"}], "]"}], "]"}], "\[Equal]", "\"\\""}], ",", RowBox[{ RowBox[{"us", "[", RowBox[{"[", RowBox[{"i", ",", "1"}], "]"}], "]"}], "=", "\"\\""}]}], "]"}]}], "]"}], ";"}]], "Input", CellChangeTimes->{{3.568277663590458*^9, 3.568277712652544*^9}, 3.5682785838808746`*^9, {3.56880682872497*^9, 3.568806862015428*^9}, 3.5688069650848093`*^9, 3.568807273668951*^9, 3.5688073087846127`*^9, { 3.568807384553946*^9, 3.5688073893119545`*^9}, {3.56881489654434*^9, 3.5688149048591547`*^9}, {3.568821714349115*^9, 3.568821718951123*^9}}], Cell[CellGroupData[{ Cell[BoxData[{ RowBox[{"u1", "=", RowBox[{"Table", "[", RowBox[{ RowBox[{"If", "[", RowBox[{ RowBox[{ RowBox[{"us", "[", RowBox[{"[", RowBox[{"i", ",", "1"}], "]"}], "]"}], "\[Equal]", "\"\\""}], ",", "0.255", ",", RowBox[{"If", "[", RowBox[{ RowBox[{ RowBox[{"us", "[", RowBox[{"[", RowBox[{"i", ",", "1"}], "]"}], "]"}], "\[Equal]", "\"\\""}], ",", "0.12", ",", RowBox[{"If", "[", RowBox[{ RowBox[{ RowBox[{"us", "[", RowBox[{"[", RowBox[{"i", ",", "1"}], "]"}], "]"}], "\[Equal]", "\"\\""}], ",", "0.24", ",", RowBox[{"If", "[", RowBox[{ RowBox[{ RowBox[{"us", "[", RowBox[{"[", RowBox[{"i", ",", "1"}], "]"}], "]"}], "\[Equal]", "\"\\""}], ",", "0.178", ",", RowBox[{"If", "[", RowBox[{ RowBox[{ RowBox[{"us", "[", RowBox[{"[", RowBox[{"i", ",", "1"}], "]"}], "]"}], "\[Equal]", "\"\\""}], ",", "0.5"}], "]"}]}], "]"}]}], "]"}]}], "]"}]}], "]"}], ",", RowBox[{"{", RowBox[{"i", ",", "1", ",", "n"}], "}"}]}], "]"}]}], "\[IndentingNewLine]", RowBox[{"u2", "=", RowBox[{"Table", "[", RowBox[{ RowBox[{"If", "[", RowBox[{ RowBox[{ RowBox[{"us", "[", RowBox[{"[", RowBox[{"i", ",", "1"}], "]"}], "]"}], "\[Equal]", "\"\\""}], ",", "0.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}, {3.5727961392438684`*^9, 3.57279614016427*^9}, {3.572796215855603*^9, 3.5727962193812094`*^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.12`", ",", "0.12`", ",", "0.12`", ",", "0.12`", ",", "0.12`", ",", "0.12`", ",", "0.12`", ",", "0.12`", ",", "0.12`", ",", "0.12`", ",", "0.12`", ",", "0.12`", ",", "0.12`", ",", "0.12`", ",", "0.12`", ",", "0.12`", ",", "0.12`", ",", "0.12`", ",", "0.12`", ",", "0.12`", ",", "0.12`", ",", "0.12`", ",", "0.12`", ",", "0.12`", ",", "0.12`", ",", "0.12`", ",", "0.12`", ",", "0.12`", ",", "0.12`", ",", "0.12`"}], "}"}]], "Output", CellChangeTimes->{3.5728903935668488`*^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.5728903935668488`*^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.572890393582449*^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.5728903935980487`*^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.5728903935980487`*^9}], Cell[BoxData["30"], "Output", CellChangeTimes->{3.572890393613649*^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.572890393613649*^9}] }, Open ]], Cell[BoxData[{ RowBox[{ RowBox[{"DeleteFile", "[", " ", "\"\\"", "]"}], ";"}], "\[IndentingNewLine]", RowBox[{"For", "[", RowBox[{ RowBox[{"i", "=", "1"}], ",", RowBox[{"i", "<", RowBox[{"n", "+", "1"}]}], ",", RowBox[{"i", "++"}], ",", "\[IndentingNewLine]", RowBox[{ RowBox[{"{", RowBox[{ RowBox[{"u", "[", RowBox[{"[", "i", "]"}], "]"}], ",", RowBox[{"Extract", "[", RowBox[{"t1", ",", RowBox[{"{", "i", "}"}]}], "]"}]}], "}"}], ">>>", " ", "\"\\""}]}], "]"}]}], "Input", CellChangeTimes->{{3.567869377256353*^9, 3.5678694101568108`*^9}, { 3.5678695244894114`*^9, 3.56786953511303*^9}, 3.56786988243204*^9, 3.5678699252853155`*^9, {3.567870069179968*^9, 3.5678700766835814`*^9}, { 3.5678703216664114`*^9, 3.567870325738019*^9}, 3.5679271251072817`*^9, { 3.567942840466694*^9, 3.567942854381918*^9}, {3.567942932272855*^9, 3.567942950509287*^9}, 3.5679430681802936`*^9, {3.568278272060727*^9, 3.56827827391713*^9}, 3.5688732159559383`*^9, 3.568910867631465*^9, 3.5689997098549547`*^9, 3.5689998170427427`*^9, 3.5689998869620657`*^9, { 3.569059200815255*^9, 3.5690592031552596`*^9}, 3.5691460426137285`*^9, 3.569237204520723*^9, 3.569237465836782*^9, 3.56923802264856*^9, 3.5693403424181123`*^9, 3.569340450198702*^9, 3.569340738019207*^9, 3.569340852851009*^9, {3.5693411655067577`*^9, 3.5693411655067577`*^9}, 3.5693414976001415`*^9, {3.5693416978420925`*^9, 3.569341705314506*^9}, 3.569342614421703*^9, 3.5693435671777763`*^9, 3.569343662727944*^9, 3.5693437636289215`*^9, 3.5693440709750605`*^9, 3.5693442662562037`*^9, { 3.5702975520309644`*^9, 3.570297552764166*^9}, {3.5705591717487917`*^9, 3.5705591791432047`*^9}}], Cell[CellGroupData[{ Cell[BoxData[{ RowBox[{ RowBox[{"t", "=", RowBox[{"Table", "[", RowBox[{ RowBox[{"t1", "[", RowBox[{"[", RowBox[{"num", "[", RowBox[{"[", "i", "]"}], "]"}], "]"}], "]"}], ",", RowBox[{"{", RowBox[{"i", ",", "1", ",", "n"}], "}"}]}], "]"}]}], ";"}], "\[IndentingNewLine]", RowBox[{ RowBox[{"Plot1o", "=", RowBox[{"Table", "[", RowBox[{ RowBox[{"Graphics3D", "[", RowBox[{"{", RowBox[{ RowBox[{"Opacity", "[", "0.8", "]"}], ",", RowBox[{"If", "[", RowBox[{ RowBox[{ RowBox[{"u", "[", RowBox[{"[", "i", "]"}], "]"}], "\[Equal]", "\"\\""}], ",", RowBox[{"Lighter", "[", "Blue", "]"}], ",", RowBox[{"If", "[", RowBox[{ RowBox[{ RowBox[{"u", "[", RowBox[{"[", "i", "]"}], "]"}], "\[Equal]", "\"\\""}], ",", RowBox[{"Lighter", "[", "White", "]"}], ",", RowBox[{"If", "[", RowBox[{ RowBox[{ RowBox[{"u", "[", RowBox[{"[", "i", "]"}], "]"}], "\[Equal]", "\"\\""}], ",", RowBox[{"Lighter", "[", "Red", "]"}], ",", RowBox[{"If", "[", RowBox[{ RowBox[{ RowBox[{"u", "[", RowBox[{"[", "i", "]"}], "]"}], "\[Equal]", "\"\\""}], ",", RowBox[{"Lighter", "[", "Green", "]"}], ",", RowBox[{"If", "[", RowBox[{ RowBox[{ RowBox[{"u", "[", RowBox[{"[", "i", "]"}], "]"}], "\[Equal]", "\"\\""}], ",", RowBox[{"Lighter", "[", "Orange", "]"}], ",", RowBox[{"Darker", "[", "Brown", "]"}]}], "]"}]}], "]"}]}], "]"}]}], "]"}]}], "]"}], ",", RowBox[{"Sphere", "[", RowBox[{ RowBox[{"{", RowBox[{ RowBox[{"t", "[", RowBox[{"[", RowBox[{"i", ",", "1"}], "]"}], "]"}], ",", RowBox[{"t", "[", RowBox[{"[", RowBox[{"i", ",", "2"}], "]"}], "]"}], ",", RowBox[{"t", "[", RowBox[{"[", RowBox[{"i", ",", "3"}], "]"}], "]"}]}], "}"}], ",", RowBox[{"u1", "[", RowBox[{"[", "i", "]"}], "]"}]}], "]"}]}], "}"}], "]"}], ",", RowBox[{"{", RowBox[{"i", ",", "1", ",", "n"}], "}"}]}], "]"}]}], ";"}], "\[IndentingNewLine]", RowBox[{ RowBox[{"Plot2", "=", RowBox[{"Table", "[", RowBox[{ RowBox[{"Graphics3D", "[", RowBox[{"Text", "[", RowBox[{"i", ",", RowBox[{"{", RowBox[{ RowBox[{ RowBox[{"t", "[", RowBox[{"[", RowBox[{"i", ",", "1"}], "]"}], "]"}], "-", "0.6"}], ",", RowBox[{"t", "[", RowBox[{"[", RowBox[{"i", ",", "2"}], "]"}], "]"}], ",", RowBox[{"t", "[", RowBox[{"[", RowBox[{"i", ",", "3"}], "]"}], "]"}]}], "}"}], " ", ",", RowBox[{"{", RowBox[{"1", ",", "0"}], "}"}]}], "]"}], "]"}], ",", RowBox[{"{", RowBox[{"i", ",", "1", ",", "n"}], "}"}]}], "]"}]}], ";"}], "\[IndentingNewLine]", RowBox[{"Show", "[", RowBox[{"Plot1o", ",", "Plot2", ",", RowBox[{"{", RowBox[{ RowBox[{"AspectRatio", "\[Rule]", "Automatic"}], ",", RowBox[{"Boxed", "\[Rule]", "True"}], ",", " ", RowBox[{"Axes", "\[Rule]", "Automatic"}], ",", RowBox[{"AxesLabel", "\[Rule]", RowBox[{"{", RowBox[{"xl", ",", "yl", ",", "zl"}], "}"}]}], ",", RowBox[{"SphericalRegion", "\[Rule]", "True"}]}], "}"}]}], "]"}]}], "Input", CellChangeTimes->{{3.567869377256353*^9, 3.567869394073182*^9}, { 3.5678694248832364`*^9, 3.5678694526200852`*^9}, {3.5678694891241493`*^9, 3.5678694955045605`*^9}, {3.567869596046737*^9, 3.567869602645549*^9}, 3.56786971175214*^9, {3.5678697908910794`*^9, 3.567869798800293*^9}, { 3.5679434548425727`*^9, 3.5679434621121855`*^9}, 3.568011875875622*^9, 3.56811435956207*^9, {3.5682782821071444`*^9, 3.5682782839479475`*^9}, { 3.5688205455482616`*^9, 3.5688206262784038`*^9}, 3.5688208026055136`*^9, 3.5688732159559383`*^9, 3.568910867631465*^9, {3.5689830694736805`*^9, 3.568983072687286*^9}, {3.5725833074418383`*^9, 3.5725833223398647`*^9}, { 3.572583642982828*^9, 3.572583671421678*^9}, {3.572584036290719*^9, 3.5725840766323895`*^9}, {3.572584986320788*^9, 3.572585000719613*^9}, { 3.572585104865396*^9, 3.5725851158790154`*^9}, 3.5726667135591345`*^9, { 3.5727958552609696`*^9, 3.5727958810478153`*^9}, {3.5727959717619743`*^9, 3.5727959736963778`*^9}, {3.572796004615632*^9, 3.572796064270137*^9}}], Cell[BoxData[ Graphics3DBox[{ {RGBColor[0.4, 0.2666666666666667, 0.13333333333333336`], Opacity[0.8], SphereBox[{6.2984567579999995`, 0.87813677494, 4.5943018512}, 0.255]}, {RGBColor[0.4, 0.2666666666666667, 0.13333333333333336`], Opacity[0.8], SphereBox[{8.0912398142, 3.0808202978, 5.136275268}, 0.255]}, {RGBColor[0.4, 0.2666666666666667, 0.13333333333333336`], Opacity[0.8], SphereBox[{10.1614346472, 3.1034970098, 3.1087882425999998`}, 0.255]}, {RGBColor[0.4, 0.2666666666666667, 0.13333333333333336`], Opacity[0.8], SphereBox[{5.4828510164, 0.92895150708, 1.8780285960599998`}, 0.255]}, {RGBColor[0.4, 0.2666666666666667, 0.13333333333333336`], Opacity[0.8], SphereBox[{8.954466651, 3.8282069308, 0.5798057313199999}, 0.255]}, {RGBColor[0.4, 0.2666666666666667, 0.13333333333333336`], Opacity[0.8], SphereBox[{6.659205451399999, 2.2315774334, 0.10211134441}, 0.255]}, {RGBColor[0.4, 0.2666666666666667, 0.13333333333333336`], Opacity[0.8], SphereBox[{7.652445436999999, -1.61707633272, 5.1421334186}, 0.255]}, {RGBColor[0.4, 0.2666666666666667, 0.13333333333333336`], Opacity[0.8], SphereBox[{3.9725819972, 1.10059531966, 6.2977008676}, 0.255]}, {RGBColor[0.4, 0.2666666666666667, 0.13333333333333336`], Opacity[0.8], SphereBox[{3.2546750897999996`, -0.53636093058, 1.15904454484}, 0.255]}, {RGBColor[0.4, 0.2666666666666667, 0.13333333333333336`], Opacity[0.8], SphereBox[{5.6393203292, 2.1062885995999996`, -2.5537757163999997`}, 0.255]}, {RGBColor[0.4, 0.2666666666666667, 0.13333333333333336`], Opacity[0.8], SphereBox[{1.2153772769, 0.6439052372399999, 0.150276680698}, 0.255]}, {RGBColor[0.4, 0.2666666666666667, 0.13333333333333336`], Opacity[0.8], SphereBox[{-1.00289648546, -0.7372954961599999, -0.36513285772}, 0.255]}, {RGBColor[0.4, 0.2666666666666667, 0.13333333333333336`], Opacity[0.8], SphereBox[{-1.10875893598, -3.5256617982, 0.20480850387999996`}, 0.255]}, {RGBColor[0.4, 0.2666666666666667, 0.13333333333333336`], Opacity[0.8], SphereBox[{-3.047183175, 0.44584305518, -1.3762307540199998`}, 0.255]}, {RGBColor[0.4, 0.2666666666666667, 0.13333333333333336`], Opacity[0.8], SphereBox[{-5.1780382126, -0.97286873932, -2.1119577776}, 0.255]}, {RGBColor[0.4, 0.2666666666666667, 0.13333333333333336`], Opacity[0.8], SphereBox[{-7.2930195518, 0.22196721596, -2.9294532452}, 0.255]}, {RGBColor[0.4, 0.2666666666666667, 0.13333333333333336`], Opacity[0.8], SphereBox[{-9.5026761636, -1.24914668052, -3.692524604}, 0.255]}, {RGBColor[0.4, 0.2666666666666667, 0.13333333333333336`], Opacity[0.8], SphereBox[{-9.4310555482, -4.0933354886, -3.5706372769999994`}, 0.255]}, {RGBColor[0.4, 0.2666666666666667, 0.13333333333333336`], Opacity[0.8], SphereBox[{-11.584965243, -0.072731774288, -4.4973589074}, 0.255]}, {RGBColor[0.4, 0.2666666666666667, 0.13333333333333336`], Opacity[0.8], SphereBox[{-13.7116628834, -1.5733480730799998`, -5.6533043016}, 0.255]}, {RGBColor[1, NCache[ Rational[1, 3], 0.3333333333333333], NCache[ Rational[1, 3], 0.3333333333333333]], Opacity[0.8], SphereBox[{-14.6026686924, -0.31240950232, -7.868819063999999}, 0.178]}, {RGBColor[1, 1, 1], Opacity[0.8], SphereBox[{8.9455849388, 2.8361007808000003`, 6.994820788999999}, 0.12]}, {RGBColor[1, 1, 1], Opacity[0.8], SphereBox[{7.045654418399999, 4.8545171214, 5.077693761999999}, 0.12]}, {RGBColor[1, 1, 1], Opacity[0.8], SphereBox[{11.011055456799998`, 1.2324226054199998`, 2.9663029022}, 0.12]}, {RGBColor[1, 1, 1], Opacity[0.8], SphereBox[{11.60291764, 4.4877213048, 3.6071089888}, 0.12]}, {RGBColor[1, 1, 1], Opacity[0.8], SphereBox[{8.4075799466, 5.8133640938, 0.62856066212}, 0.12]}, {RGBColor[1, 1, 1], Opacity[0.8], SphereBox[{10.3173370422, 3.5362442637999996`, -0.9369639453199999}, 0.12]}, {RGBColor[1, 1, 1], Opacity[0.8], SphereBox[{6.3706442912, -3.1879677619999995`, 4.7785501362}, 0.12]}, {RGBColor[1, 1, 1], Opacity[0.8], SphereBox[{8.2460083736, -1.6577243389799998`, 7.113873526999999}, 0.12]}, {RGBColor[1, 1, 1], Opacity[0.8], SphereBox[{9.305010823999998, -1.78331552894, 3.924016039}, 0.12]}, {RGBColor[1, 1, 1], Opacity[0.8], SphereBox[{2.6287978386, -0.38658124782, 5.8226237512}, 0.12]}, {RGBColor[1, 1, 1], Opacity[0.8], SphereBox[{3.0889461196, 2.9398467381999995`, 6.0161316936}, 0.12]}, {RGBColor[1, 1, 1], Opacity[0.8], SphereBox[{4.5430902766, 0.9068606101399999, 8.2673622774}, 0.12]}, {RGBColor[1, 1, 1], Opacity[0.8], SphereBox[{3.2353998846, -2.5602007847999997`, 1.42313375334}, 0.12]}, {RGBColor[1, 1, 1], Opacity[0.8], SphereBox[{6.8030136, 3.2707377608, -3.7919241915999997`}, 0.12]}, {RGBColor[1, 1, 1], Opacity[0.8], SphereBox[{3.7010283709999996`, 2.8028416031999996`, -2.5785311269999998`}, 0.12]}, {RGBColor[1, 1, 1], Opacity[0.8], SphereBox[{5.6759810136, 0.15492918610999998`, -3.2121562547999996`}, 0.12]}, {RGBColor[1, 1, 1], Opacity[0.8], SphereBox[{1.29132536484, 2.6420259206, -0.2581365716}, 0.12]}, {RGBColor[1, 1, 1], Opacity[0.8], SphereBox[{-0.33081543356, -4.5810737692, -1.38367627446}, 0.12]}, {RGBColor[1, 1, 1], Opacity[0.8], SphereBox[{-3.0658914624, -4.0899339818, 0.51139765012}, 0.12]}, {RGBColor[1, 1, 1], Opacity[0.8], SphereBox[{-0.0062334501835999995`, -3.9225042581999996`, 1.8987966848}, 0.12]}, {RGBColor[1, 1, 1], Opacity[0.8], SphereBox[{-3.0381124902, 2.472706471, -1.61573462726}, 0.12]}, {RGBColor[1, 1, 1], Opacity[0.8], SphereBox[{-5.1264486927999995`, -3.0110894083999997`, -2.024841409}, 0.12]}, {RGBColor[1, 1, 1], Opacity[0.8], SphereBox[{-7.3442311263999995`, 2.2604902412, -3.0167585863999995`}, 0.12]}, {RGBColor[1, 1, 1], Opacity[0.8], SphereBox[{-11.297726891, -4.846580272200001, -4.0077309008}, 0.12]}, {RGBColor[1, 1, 1], Opacity[0.8], SphereBox[{-8.877554802799999, -4.6857645896, -1.6773019003399998`}, 0.12]}, {RGBColor[1, 1, 1], Opacity[0.8], SphereBox[{-8.0659174858, -4.8050063002, -4.9393658188}, 0.12]}, {RGBColor[1, 1, 1], Opacity[0.8], SphereBox[{-11.7452140078, 1.9541656565999999`, -4.3202915812}, 0.12]}, {RGBColor[1, 1, 1], Opacity[0.8], SphereBox[{-15.250088819999998`, -1.7430832623999999`, -4.2942133624}, 0.12]}, {RGBColor[1, 1, 1], Opacity[0.8], SphereBox[{-13.031550496, -3.4508286486, -6.158617033999999}, 0.12]}, {RGBColor[1, 1, 1], Opacity[0.8], SphereBox[{-15.9583581248, -1.33242690534, -8.547797615799999}, 0.12]}, 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}]}, AspectRatio->Automatic, Axes->Automatic, AxesLabel->{ FormBox["xl", TraditionalForm], FormBox["yl", TraditionalForm], FormBox["zl", TraditionalForm]}, Boxed->True, SphericalRegion->True]], "Output", CellChangeTimes->{3.5728903936760488`*^9}] }, Open ]], Cell[CellGroupData[{ Cell[BoxData[ RowBox[{ StyleBox[ RowBox[{"(*", " ", RowBox[{"Distance", " ", "Matrix", " ", "Bohr"}], " ", "*)"}], "Text"], "\[IndentingNewLine]", RowBox[{ RowBox[{ RowBox[{"dc", "=", RowBox[{"Table", "[", RowBox[{ RowBox[{"Norm", "[", RowBox[{ RowBox[{"t", "[", RowBox[{"[", "i", "]"}], "]"}], "-", RowBox[{"t", "[", RowBox[{"[", "j", "]"}], "]"}]}], "]"}], ",", RowBox[{"{", RowBox[{"i", ",", "1", ",", "n"}], "}"}], ",", RowBox[{"{", RowBox[{"j", ",", "1", ",", "n"}], "}"}]}], "]"}]}], ";"}], "\[IndentingNewLine]", RowBox[{"MatrixForm", "[", RowBox[{"Prepend", "[", RowBox[{"dc", ",", "num1"}], "]"}], "]"}]}]}]], "Input", CellChangeTimes->{{3.5678630319943895`*^9, 3.5678630956269007`*^9}, { 3.5678632280087337`*^9, 3.567863228336334*^9}, {3.5678632621727934`*^9, 3.5678633509213495`*^9}, {3.5678644293824434`*^9, 3.567864451908883*^9}, { 3.567864923404111*^9, 3.56786494544695*^9}, {3.5678650143210707`*^9, 3.5678650845367947`*^9}, {3.567869231084096*^9, 3.5678692412397137`*^9}, 3.5678693168686466`*^9, {3.5678704450470285`*^9, 3.5678704621290584`*^9}, 3.5682783281584253`*^9, 3.5688732159715385`*^9, 3.568910867647065*^9, 3.5689997098549547`*^9, 3.5689998170427427`*^9, 3.5689998869620657`*^9, 3.5691460426137285`*^9, 3.569237204536323*^9, 3.5692374658523817`*^9, 3.56923802264856*^9, 3.5693403424181123`*^9, 3.5693404502143016`*^9, 3.569340738019207*^9, 3.569340852851009*^9, 3.5693411655067577`*^9, 3.5693414978029413`*^9, 3.5693426144373026`*^9, 3.5693435671777763`*^9, 3.569343662743544*^9, 3.569343763644521*^9, 3.569344071177861*^9, 3.569344266271804*^9, 3.570297558707776*^9, {3.5703416079688015`*^9, 3.570341617375618*^9}, {3.5705956885798426`*^9, 3.5705957106070814`*^9}, { 3.5705965150536942`*^9, 3.5705965239457097`*^9}, {3.5720162655168724`*^9, 3.5720163727202606`*^9}, {3.5720166425383344`*^9, 3.572016643427536*^9}, { 3.5723503054303513`*^9, 3.572350361964851*^9}}], 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.891300913601803`", "4.699103853787448`", "2.8365357849535755`", "5.6456604195382925`", "4.705498569233301`", "2.8912788211686498`", "2.8914960515480357`", "4.802749562853708`", "7.282707645416863`", "6.755880485953587`", "8.973035898754421`", "9.670984337496368`", "11.09842886211482`", "13.420509544458463`", "15.548815952367294`", "17.968656855885133`", "18.40650224310029`", "20.084303045244784`", "22.614776096307434`", "24.363986301066415`", "4.0747272086073805`", "4.074748181525756`", "4.99844831158185`", "6.491606540329316`", "6.67322804138132`", "7.335655081369156`", "4.070916920768463`", "4.070846387916323`", "4.0708695370456045`", "4.071201659442276`", "4.07102034032594`", "4.0710575330309124`", "5.5911349196104005`", "8.735439561080153`", "7.867696984167238`", "7.864559328382025`", "7.1922756032851884`", "10.463577400961372`", "11.359702960556694`", "8.370246176327356`", "11.326020082351553`", "13.76472311250568`", "15.683178083591205`", "20.405710763059226`", "17.337858544358813`", "18.152800937333605`", "20.154450350325636`", "23.456690169623137`", "22.539174488645056`", "25.941610954455435`"}, {"2.891300913601803`", "0.`", "2.8977447296151486`", "4.69578564120759`", "4.697356915293075`", "5.302333662506481`", "4.718347970894257`", "4.715245762522987`", "7.231509012474707`", "8.13009872845285`", "8.836075065141044`", "11.29366258654023`", "12.353337489670647`", "13.168914398776806`", "15.653849892135543`", "17.604103318049237`", "20.155450891683248`", "20.840097698451405`", "22.133794151699075`", "24.7677789992208`", "26.375366734257415`", "2.0600933686504748`", "2.059776938118349`", "4.080524167837142`", "4.080392273440802`", "5.280753511052076`", "6.484377718757922`", "6.510462346283865`", "5.136988753709227`", "5.157773729381913`", "6.506321545678151`", "5.08103956697946`", "5.207607101651899`", "8.317915615352621`", "9.022657092680966`", "8.880848291857522`", "9.170093934209344`", "8.69086049360441`", "13.120419330428355`", "14.046023929997236`", "11.184672354644928`", "13.031574070981906`", "16.22036514379936`", "17.475659231939172`", "22.85582110771002`", "19.86667222752825`", "20.609670944987936`", "22.004111149652562`", "25.632436165451352`", "24.827591517532788`", "28.01988155922017`"}, {"4.699103853787448`", "2.8977447296151486`", "0.`", "5.304013785930496`", "2.8944306444976293`", "4.6974417567153415`", "5.719556988419028`", "7.24449280720618`", "8.046949353440622`", "7.314955441299691`", "9.738291678844478`", "12.306994130362146`", "13.393883239260072`", "14.200214953143812`", "16.708452182789813`", "18.692820696801366`", "21.257483800102737`", "21.915172719802033`", "23.256134931256586`", "25.856757944257506`", "27.30269389074729`", "4.0805686133650365`", "4.080532662500381`", "2.0598730589675256`", "2.0596780533600914`", "4.070738848751791`", "4.071816119211517`", "7.532643976669925`", "6.509899744004745`", "5.027822084536623`", "8.734195252129739`", "7.648497978459624`", "7.93737305482593`", "9.104332007262418`", "7.676378931409878`", "8.612365792214675`", "8.292628404148273`", "9.498840821471438`", "13.759439568954544`", "15.279202967776845`", "12.418141887031132`", "14.033782728976329`", "17.247077940418553`", "18.565595022599407`", "23.965479077846815`", "21.120188786974566`", "21.43720070766447`", "23.160601133853458`", "26.907978333991707`", "25.821668134530153`", "28.944722995865504`"}, {"2.8365357849535755`", "4.69578564120759`", "5.304013785930496`", "0.`", "4.705654017551942`", "2.496903311178327`", "4.6737327697959135`", "4.673743370850808`", "2.7620366698777885`", "4.588190791500567`", "4.612776839855671`", "7.062087017405967`", "8.129733509824755`", "9.142487681169351`", "11.540860915227148`", "13.668744536984152`", "16.135092176124804`", "16.653406122497707`", "18.247172029662156`", "20.770455995328078`", "22.360011592945764`", "6.466011669903028`", "5.3000261357623675`", "5.642471090558678`", "7.287645501465112`", "5.828610104510499`", "6.1720672113097645`", "5.113729203987871`", "6.460650327489391`", "5.113840307066866`", "5.04341916846885`", "5.1863645775566445`", "6.4581129710855025`", "4.17518258567141`", "6.274962686705219`", "5.152405321517077`", "5.15231904729345`", "5.006666841069639`", "8.648572992061112`", "10.006892108028879`", "7.325783414575387`", "9.337900188482417`", "11.971364041398319`", "13.79369324220947`", "18.69723848846861`", "15.823611063125337`", "16.214939613505763`", "18.337842336280126`", "21.796585394571924`", "20.653164662046592`", "23.94863532564527`"}, {"5.6456604195382925`", "4.697356915293075`", "2.8944306444976293`", "4.705654017551942`", "0.`", "2.836484030211052`", "7.2222713177918445`", "8.059365024273822`", "7.202263120770164`", "4.875913305603539`", "8.379604812951793`", "10.994807955529149`", "12.469503495263984`", "12.621650552325011`", "15.166529335937383`", "17.00884097624973`", "19.613731084804346`", "20.445156834931396`", "21.514255415370222`", "24.12015516560018`", "25.366564429689422`", "6.4912842864829585`", "4.992782138566354`", "4.082036566059717`", "4.076005012680517`", "2.059687129769231`", "2.059914598740929`", "8.575097660341877`", "8.561039480466672`", "6.541850511543646`", "9.23394098445422`", "8.046561682124286`", "9.33236473199723`", "8.615722835142895`", "4.904237415247329`", "6.214907845450026`", "6.214532417523627`", "7.799545311339111`", "12.680210048270702`", "14.394118394390977`", "11.920881149227338`", "12.267018114465184`", "15.86922613299823`", "16.76426436648417`", "22.504416647205097`", "19.888771581972165`", "19.8667335376453`", "21.354150972255244`", "25.31118017974487`", "24.120025918695276`", "27.029504671058692`"}, {"4.705498569233301`", "5.302333662506481`", "4.6974417567153415`", "2.496903311178327`", "2.836484030211052`", "0.`", "6.418760315573937`", "6.847072050600827`", "4.513249113445845`", "2.8477357732306996`", "5.670827813957963`", "8.230451367156727`", "9.669416786965037`", "9.979394911328765`", "12.461577545070533`", "14.418512392994492`", "16.9623441680525`", "17.67456095472248`", "18.955598957783543`", "21.50754621247985`", "22.848958252218416`", "7.287140943161137`", "5.63786979321194`", "5.3047622113994155`", "6.46648929940717`", "4.0203430127543305`", "4.020417855358123`", "7.164064310258354`", "8.173702997769123`", "6.142198878516989`", "7.471492662219656`", "6.944352654859937`", "8.53839217262483`", "6.03561788523444`", "4.0328709036311245`", "4.032740811188869`", "4.032811420985733`", "5.39558923059583`", "9.873204810437771`", "11.606314308829825`", "9.24818227707492`", "9.851249324610254`", "13.073298253923765`", "14.346582226587367`", "19.73429854176197`", "17.099907934115965`", "17.080961569618545`", "18.93032647791714`", "22.69675690589398`", "21.429240035266005`", "24.476054299456187`"}, {"2.8912788211686498`", "4.718347970894257`", "5.719556988419028`", "4.6737327697959135`", "7.2222713177918445`", "6.418760315573937`", "0.`", "4.718312227366359`", "6.031030325193609`", "8.783116561509447`", "8.45378718972802`", "10.296549905350012`", "10.236140769727635`", "12.69751000482373`", "14.7532421246597`", "17.085067052154695`", "19.29986403414882`", "19.336241581871978`", "21.57273237420678`", "23.93676068429462`", "25.81234481707233`", "4.9935404942719295`", "6.500297658184984`", "4.9126514123902`", "7.431761892164487`", "8.726626615576606`", "8.403200890018146`", "2.059831756042301`", "2.059545647756167`", "2.0597130332048446`", "5.216725068434715`", "6.508067829924347`", "5.079901832212502`", "5.850703688813151`", "10.219082465705737`", "9.734373755688047`", "8.765875376869543`", "9.368389218202191`", "10.728649825626253`", "11.934885194216704`", "8.630735390764293`", "13.292220758837788`", "14.717640293717459`", "17.507237053049383`", "21.28987421333069`", "18.14283477340042`", "18.943770937279293`", "21.876024505370278`", "24.770680122085363`", "23.64100877932866`", "27.29405213333197`"}, {"2.8914960515480357`", "4.715245762522987`", "7.24449280720618`", "4.673743370850808`", "8.059365024273822`", "6.847072050600827`", "4.718312227366359`", "0.`", "5.440662174435549`", "9.063005757350865`", "6.752893293598907`", "8.516253990666891`", "9.183987040258627`", "10.420893922019028`", "12.599819917628551`", "14.588561910853468`", "16.938372853996995`", "17.43612670364655`", "18.972276830846372`", "21.510672114530742`", "23.40356399740954`", "5.313070077424328`", "5.002411452213162`", "7.788176903398874`", "8.771198841621322`", "8.603403221927998`", "9.926161257779667`", "5.142985029726881`", "5.1513724524347095`", "6.5104622448092115`", "2.059890354920097`", "2.059839640489124`", "2.0597521462040214`", "6.140543146741334`", "10.701466960571464`", "9.042061612469183`", "9.707380446530252`", "7.248734369205782`", "10.47874743855108`", "10.486324808789199`", "7.772570986674293`", "10.660909320438032`", "12.998577643200738`", "14.702883065021958`", "19.358542171212253`", "16.19285786780259`", "17.49494978584634`", "18.98734992613955`", "22.131114483463673`", "21.56422587645734`", "24.97099910926123`"}, {"4.802749562853708`", "7.231509012474707`", "8.046949353440622`", "2.7620366698777885`", "7.202263120770164`", "4.513249113445845`", "6.031030325193609`", "5.440662174435549`", "0.`", "5.143458345260309`", "2.563079476006322`", "4.526633094539615`", "5.374573712989279`", "6.863363832719387`", "9.05542096762888`", "11.33775718603261`", "13.667325917454379`", "13.998204169183174`", "15.887881457763367`", "18.312292684427888`", "20.01092707841679`", "8.821351216002654`", "7.667392133466297`", "8.158199210919971`", "10.046271721719052`", "8.194684222000033`", "8.417871376660036`", "5.46270112475439`", "7.8505319597108105`", "6.76805183420059`", "4.707773072369857`", "5.975180450722637`", "7.366891006130199`", "2.0410885328938795`", "7.1830911213823505`", "5.031796569414447`", "5.044601156963315`", "3.9956585733829346`", "5.9733469181777386`", "7.279896254163713`", "4.758857464759668`", "7.506867629589164`", "9.300787421786193`", "11.7301543573716`", "16.032653014686478`", "13.132151919981384`", "13.54871796583204`", "16.162379775388178`", "19.329265064829162`", "18.090976670522195`", "21.540593099380335`"}, {"7.282707645416863`", "8.13009872845285`", "7.314955441299691`", "4.588190791500567`", "4.875913305603539`", "2.8477357732306996`", "8.783116561509447`", "9.063005757350865`", "5.143458345260309`", "0.`", "5.38718262125503`", "7.549514705294786`", "9.21223240874923`", "8.921829110271593`", "11.255738928685394`", "13.074295984112924`", "15.551069183051425`", "16.327448525551546`", "17.47002171958735`", "19.940094151927426`", "21.067460830524244`", "10.131125638913892`", "8.232245257414998`", "7.751802887870721`", "8.89900078466928`", "5.615419383721714`", "5.151960197030625`", "9.073422042892293`", "10.69701163204136`", "8.398100565410651`", "9.243468709493952`", "8.980119197170604`", "10.942457462151058`", "6.585648457759603`", "2.0598872600617417`", "2.0597996583165434`", "2.0597603015255403`", "4.945910813020211`", "9.04060115155273`", "11.116167252326067`", "9.383177595361854`", "8.735675330310558`", "11.931852823990146`", "12.992718717974252`", "18.366271798216797`", "16.051163710872824`", "15.533530857289861`", "17.474717560084027`", "21.31230164797439`", "19.811053742964365`", "22.67626021761034`"}, {"6.755880485953587`", "8.836075065141044`", "9.738291678844478`", "4.612776839855671`", "8.379604812951793`", "5.670827813957963`", "8.45378718972802`", "6.752893293598907`", "2.563079476006322`", "5.38718262125503`", "0.`", "2.663475350554561`", "4.773873911069254`", "4.531983581425866`", "6.971902499101017`", "9.058453770092642`", "11.542419019877302`", "12.232464276445512`", "13.636819782955506`", "16.16831136536605`", "17.760377606645115`", "10.555075359645397`", "8.717845093762191`", "10.209391136449092`", "11.602827515851553`", "8.870165707504642`", "9.612147980163753`", "7.917129773468324`", "10.159672896399906`", "9.250658372166747`", "5.935922958425277`", "6.571899467928143`", "8.77666781419329`", "3.9958668475647254`", "7.325494966458321`", "4.276196866985741`", "5.607320083619482`", "2.0408468247238463`", "5.660753411362866`", "6.392879173297813`", "5.040014945743233`", "4.955349139189088`", "7.63602522217874`", "9.268783926487597`", "14.28328512961503`", "11.559096067532051`", "11.905357205378822`", "13.77242496439435`", "17.220998218128184`", "16.11036735972931`", "19.35199144410719`"}, {"8.973035898754421`", "11.29366258654023`", "12.306994130362146`", "7.062087017405967`", "10.994807955529149`", "8.230451367156727`", "10.296549905350012`", "8.516253990666891`", "4.526633094539615`", "7.549514705294786`", "2.663475350554561`", "0.`", "2.8479864199895313`", "2.569288589590436`", "4.53196430869797`", "6.860143744136264`", "9.142197878249231`", "9.62144106668677`", "11.379679971571544`", "13.790449031436623`", "15.53832805905242`", "12.88061960011648`", "11.210347970257724`", "12.62193704995784`", "14.212179833621786`", "11.508937160018888`", "12.113538706483022`", "9.318388963848145`", "11.930002801731488`", "11.213559170380755`", "7.183351306920152`", "8.425264873594864`", "10.391399844327944`", "4.948134727758277`", "9.42016250906207`", "6.28956370791639`", "7.314985424088192`", "4.085916707595768`", "4.032834616544766`", "4.032919391885783`", "4.032898342031147`", "4.001277496137639`", "4.992840277556475`", "7.49869077642907`", "11.6678307732361`", "8.906314579730115`", "9.346450878209241`", "11.7594485166401`", "14.813229629636806`", "13.62410504860696`", "17.058019134210376`"}, {"9.670984337496368`", "12.353337489670647`", "13.393883239260072`", "8.129733509824755`", "12.469503495263984`", "9.669416786965037`", "10.236140769727635`", "9.183987040258627`", "5.374573712989279`", "9.21223240874923`", "4.773873911069254`", "2.8479864199895313`", "0.`", "4.693615287373065`", "5.333215937461896`", "7.881205447385712`", "9.530455018462602`", "9.156247329823797`", "11.9909967350918`", "14.034322300379`", "16.049736849438275`", "13.699128464832034`", "12.667551721520708`", "13.309963163711677`", "15.407033417158909`", "13.340077819531766`", "13.480720709845066`", "8.77351824617997`", "11.778626459041991`", "11.19441270568365`", "7.441975913559781`", "9.653756034999052`", "10.797936273801536`", "4.613908022521705`", "11.16964922751747`", "8.422053712767719`", "8.441273265288357`", "6.6343872807208175`", "2.059702505825897`", "2.0597979822662262`", "2.059767545619187`", "6.5587502104034865`", "4.623630009030418`", "9.096107045199561`", "11.104295648052636`", "8.077274743414808`", "8.746502552692212`", "12.792154478789577`", "14.946437531339619`", "13.51487118547959`", "17.376103972125684`"}, {"11.09842886211482`", "13.168914398776806`", "14.200214953143812`", "9.142487681169351`", "12.621650552325011`", "9.979394911328765`", "12.69751000482373`", "10.420893922019028`", "6.863363832719387`", "8.921829110271593`", "4.531983581425866`", "2.569288589590436`", "4.693615287373065`", "0.`", "2.6635653925414697`", "4.526560177115954`", "7.064814019452125`", "8.134702718459728`", "9.10516795255537`", "11.666259828870944`", "13.276215403746862`", "14.819390100883425`", "12.765379718887843`", "14.734665906388683`", "15.993620874173057`", "12.807851845419837`", "13.72420983501101`", "11.82291770439018`", "14.284363543320286`", "13.624920574043955`", "9.205063654005821`", "9.925681822824464`", "12.281029061593228`", "7.506236814391183`", "10.52815185055893`", "7.248401714295637`", "8.919016021114944`", "4.989590176496508`", "5.713895510222878`", "4.91291810651558`", "6.249451032226678`", "2.0409849801037785`", "4.0858809249681975`", "4.944582598680566`", "10.149187618145909`", "7.772854956408629`", "8.090429192889614`", "9.305819232739783`", "12.736440912098454`", "11.73639040329834`", "14.875888339518141`"}, {"13.420509544458463`", "15.653849892135543`", "16.708452182789813`", "11.540860915227148`", "15.166529335937383`", "12.461577545070533`", "14.7532421246597`", "12.599819917628551`", "9.05542096762888`", "11.255738928685394`", "6.971902499101017`", "4.53196430869797`", "5.333215937461896`", "2.6635653925414697`", "0.`", "2.563021237668669`", "4.612701421156518`", "5.472953048606032`", "6.895585477589143`", "9.258750491043926`", "11.063512912062103`", "17.231320192865386`", "15.331933236475942`", "17.109611196160916`", "18.550640086945613`", "15.431539720693657`", "16.1808332562903`", "13.62930044294257`", "16.303067723646087`", "15.711413472697044`", "11.146658969851886`", "12.235939310436986`", "14.344476509614509`", "9.262960421493108`", "12.82092375050388`", "9.659787920911358`", "10.967775445027888`", "7.639161051008199`", "6.086469104095695`", "4.5890362082255685`", "7.178723114346517`", "4.086258440467786`", "2.0407337494382185`", "3.99570601274816`", "7.4866672355028685`", "5.259367293489601`", "5.569502779739669`", "7.5214404516742634`", "10.334489502969213`", "9.175695703047339`", "12.56043844406276`"}, {"15.548815952367294`", "17.604103318049237`", "18.692820696801366`", "13.668744536984152`", "17.00884097624973`", "14.418512392994492`", "17.085067052154695`", "14.588561910853468`", "11.33775718603261`", "13.074295984112924`", "9.058453770092642`", "6.860143744136264`", "7.881205447385712`", "4.526560177115954`", "2.563021237668669`", "0.`", "2.7620710231833114`", "4.858410472214168`", "4.578861591773904`", "7.200104428604167`", "8.838204779684832`", "19.209820020053648`", "17.063777220914336`", "19.25669033256101`", "20.444552969968814`", "17.042065796709025`", "18.029950230874586`", "16.05417958963006`", "18.597393415779077`", "18.06891840903727`", "13.24430607136995`", "13.971240825239002`", "16.30739870974138`", "11.727450199982844`", "14.447733683353688`", "11.298369292272952`", "12.972254651926493`", "9.310402491428617`", "8.598308864680012`", "6.949860337248731`", "9.673980198314492`", "4.98958093472325`", "3.9956234804569877`", "2.041034289865974`", "6.549086746634346`", "5.307020484923868`", "5.468782542949653`", "4.975638470455831`", "8.30896773967353`", "7.539739095961287`", "10.443659662000977`"}, {"17.968656855885133`", "20.155450891683248`", "21.257483800102737`", "16.135092176124804`", "19.613731084804346`", "16.9623441680525`", "19.29986403414882`", "16.938372853996995`", "13.667325917454379`", "15.551069183051425`", "11.542419019877302`", "9.142197878249231`", "9.530455018462602`", "7.064814019452125`", "4.612701421156518`", "2.7620710231833114`", "0.`", "2.8477001262494284`", "2.5234179395658387`", "4.654603395877135`", "6.65799036883237`", "21.70822277552505`", "19.698189943376743`", "21.70970646674075`", "23.057371807573446`", "19.731399095031808`", "20.57488771565306`", "18.09642054940197`", "20.783670971936484`", "20.298426479622293`", "15.441979433129962`", "16.44246406989495`", "18.57339001221671`", "13.789394645998733`", "16.92083787250713`", "13.856312783537303`", "15.251026735703112`", "11.976924244761857`", "10.027738926814415`", "8.196049786293484`", "11.339847384419537`", "7.743115069299305`", "5.003696262903974`", "4.175295919028556`", "4.0327522326606315`", "4.032647010845922`", "4.032744245303481`", "3.9603380271735893`", "5.799892667269897`", "4.8354906075540525`", "8.078145901079193`"}, {"18.40650224310029`", "20.840097698451405`", "21.915172719802033`", "16.653406122497707`", "20.445156834931396`", "17.67456095472248`", "19.336241581871978`", "17.43612670364655`", "13.998204169183174`", "16.327448525551546`", "12.232464276445512`", "9.62144106668677`", "9.156247329823797`", "8.134702718459728`", "5.472953048606032`", "4.858410472214168`", "2.8477001262494284`", "0.`", "4.654395146648392`", "5.3862266632498335`", "7.714619271298365`", "22.30127589947553`", "20.647994270966617`", "22.1127833734969`", "23.823992218553098`", "20.8324956801669`", "21.334144752504148`", "17.894757304741525`", "20.798306702430107`", "20.311233434839476`", "15.729381534458145`", "17.26621653092388`", "18.984650273539533`", "13.701362864860105`", "17.82760622825288`", "14.865838730298607`", "15.697095752693503`", "13.088437900687026`", "9.372035915482636`", "7.5616357063557516`", "10.898218329205442`", "9.370393392383196`", "4.700040598036449`", "6.710642232751661`", "2.059827769989031`", "2.059624762761967`", "2.0599745373753002`", "6.518403259475371`", "6.3173092449583494`", "4.480403791090919`", "8.660278296321167`"}, {"20.084303045244784`", "22.133794151699075`", "23.256134931256586`", "18.247172029662156`", "21.514255415370222`", "18.955598957783543`", "21.57273237420678`", "18.972276830846372`", "15.887881457763367`", "17.47002171958735`", "13.636819782955506`", "11.379679971571544`", "11.9909967350918`", "9.10516795255537`", "6.895585477589143`", "4.578861591773904`", "2.5234179395658387`", "4.654395146648392`", "0.`", "2.8479645159754585`", "4.53108409868726`", "23.707277190248906`", "21.51881512234321`", "23.8325371504744`", "24.983155220324438`", "21.462130349984108`", "22.481369302642026`", "20.448743178712235`", "23.03476578257475`", "22.588420769265074`", "17.567914062451926`", "18.301169049780977`", "20.591548824909`", "16.151871654378507`", "18.702785690932057`", "15.672026769610921`", "17.310223598913247`", "13.825330924496809`", "12.517030598951079`", "10.66771643360683`", "13.776740705533168`", "9.371857144158362`", "7.513968618183454`", "5.061613194604894`", "4.807480726609668`", "6.046723457370738`", "5.913838805359456`", "2.040917857231867`", "4.032923634408739`", "4.032855805707429`", "6.092573417881813`"}, {"22.614776096307434`", "24.7677789992208`", "25.856757944257506`", "20.770455995328078`", "24.12015516560018`", "21.50754621247985`", "23.93676068429462`", "21.510672114530742`", "18.312292684427888`", "19.940094151927426`", "16.16831136536605`", "13.790449031436623`", "14.034322300379`", "11.666259828870944`", "9.258750491043926`", "7.200104428604167`", "4.654603395877135`", "5.3862266632498335`", "2.8479645159754585`", "0.`", "2.700437574415365`", "26.320508854865164`", "24.235057086109784`", "26.332162455388893`", "27.62824285741303`", "24.151319786530347`", "25.014888319356196`", "22.687654026061978`", "25.399749528131704`", "24.9306321578878`", "20.00289970923727`", "20.947675926515544`", "23.090526326797693`", "18.39165001522604`", "21.160856662679457`", "18.215572537778705`", "19.617004917874443`", "16.49141804449377`", "14.363955438148976`", "12.556639834672684`", "15.82376567191722`", "12.107733241404038`", "9.430734107626115`", "7.886309447925115`", "4.387373681621`", "6.990302754677654`", "6.5442924864844425`", "4.252904561141435`", "2.059779740145197`", "2.0598124012820667`", "3.672025879911945`"}, {"24.363986301066415`", "26.375366734257415`", "27.30269389074729`", "22.360011592945764`", "25.366564429689422`", "22.848958252218416`", "25.81234481707233`", "23.40356399740954`", "20.01092707841679`", "21.067460830524244`", "17.760377606645115`", "15.53832805905242`", "16.049736849438275`", "13.276215403746862`", "11.063512912062103`", "8.838204779684832`", "6.65799036883237`", "7.714619271298365`", "4.53108409868726`", "2.700437574415365`", "0.`", "28.02429581206147`", "25.747994457788092`", "27.85407042166091`", "29.008118440591318`", "25.28244661399283`", "26.150897441776962`", "24.65977778689471`", "27.356041251476757`", "26.698532996488552`", "22.00873796060772`", "22.723605850550125`", "25.068367605185774`", "20.238321159795362`", "22.083098752506924`", "19.30588672129641`", "20.81169257573597`", "17.868134311111184`", "16.246980244523062`", "14.751100034347722`", "17.93028229958622`", "13.438634458593055`", "11.455727543392356`", "9.10204481795235`", "6.810972521239417`", "9.49937095581729`", "8.455426579488524`", "5.088659697971816`", "3.904329155093647`", "3.9042128666623945`", "1.8273864433636153`"}, {"4.0747272086073805`", "2.0600933686504748`", "4.0805686133650365`", "6.466011669903028`", "6.4912842864829585`", "7.287140943161137`", "4.9935404942719295`", "5.313070077424328`", "8.821351216002654`", "10.131125638913892`", "10.555075359645397`", "12.88061960011648`", "13.699128464832034`", "14.819390100883425`", "17.231320192865386`", "19.209820020053648`", "21.70822277552505`", "22.30127589947553`", "23.707277190248906`", "26.320508854865164`", "28.02429581206147`", "0.`", "3.3703288480506424`", "4.802802152409033`", "4.611492023345507`", "7.048603706385401`", "8.079920408120458`", "6.916037648356012`", "4.549510427745831`", "5.558600167512166`", "7.187595190484125`", "5.938755242278644`", "4.97225187681467`", "9.63171741505365`", "11.00606144461905`", "10.915839256480908`", "11.048138817036826`", "10.546598748013581`", "14.534968015647515`", "15.306217640785482`", "12.320034748860431`", "14.760851061869724`", "17.70779686475956`", "19.129065751397302`", "24.287268386695253`", "21.200200018820333`", "22.140518109458796`", "23.59912580080403`", "27.089515448144432`", "26.37295755377702`", "29.65056475115396`"}, {"4.074748181525756`", "2.059776938118349`", "4.080532662500381`", "5.3000261357623675`", "4.992782138566354`", "5.63786979321194`", "6.500297658184984`", "5.002411452213162`", "7.667392133466297`", "8.232245257414998`", "8.717845093762191`", "11.210347970257724`", "12.667551721520708`", "12.765379718887843`", "15.331933236475942`", "17.063777220914336`", "19.698189943376743`", "20.647994270966617`", "21.51881512234321`", "24.235057086109784`", "25.747994457788092`", "3.3703288480506424`", "0.`", "5.770783780465455`", "4.802687457787667`", "4.750685634862752`", "6.972650705017682`", "8.07630414734344`", "6.927926565102432`", "7.106087949778835`", "6.89439300092275`", "4.494682301293575`", "5.658692821920154`", "9.102301362719393`", "9.013176702619328`", "8.603120095632214`", "9.627239754902684`", "8.153435197462969`", "13.608526212625362`", "14.251232431562874`", "11.699171485043832`", "12.335208171874804`", "16.139202771097743`", "16.712807671608093`", "22.652502506468736`", "19.75336764770964`", "20.542820663033176`", "21.209217414632004`", "25.069127239003688`", "24.460736003611387`", "27.4429751441825`"}, {"4.99844831158185`", "4.080524167837142`", "2.0598730589675256`", "5.642471090558678`", "4.082036566059717`", "5.3047622113994155`", "4.9126514123902`", "7.788176903398874`", "8.158199210919971`", "7.751802887870721`", "10.209391136449092`", "12.62193704995784`", "13.309963163711677`", "14.734665906388683`", "17.109611196160916`", "19.25669033256101`", "21.70970646674075`", "22.1127833734969`", "23.8325371504744`", "26.332162455388893`", "27.85407042166091`", "4.802802152409033`", "5.770783780465455`", "0.`", "3.370148795930381`", "5.764386214787013`", "4.5852297167453475`", "6.660143153367298`", "5.762011525521388`", "3.594785005607166`", "9.002332200441725`", "8.658901152952568`", "8.369097602755396`", "8.787842896838907`", "8.218027646132917`", "9.308485174027632`", "8.2339157718463`", "10.337172944616857`", "13.466888810289145`", "15.248425295885092`", "12.21038473404514`", "14.829446786431722`", "17.416600010478966`", "19.3331449431154`", "24.151049528188455`", "21.263697310104316`", "21.514670398807095`", "23.90529590159737`", "27.408327754988218`", "26.13893469810799`", "29.4364099829929`"}, {"6.491606540329316`", "4.080392273440802`", "2.0596780533600914`", "7.287645501465112`", "4.076005012680517`", "6.46648929940717`", "7.431761892164487`", "8.771198841621322`", "10.046271721719052`", "8.89900078466928`", "11.602827515851553`", "14.212179833621786`", "15.407033417158909`", "15.993620874173057`", "18.550640086945613`", "20.444552969968814`", "23.057371807573446`", "23.823992218553098`", "24.983155220324438`", "27.62824285741303`", "29.008118440591318`", "4.611492023345507`", "4.802687457787667`", "3.370148795930381`", "0.`", "4.565004043071458`", "4.8173254886494705`", "9.36296755353652`", "7.831522170681368`", "6.686307559752956`", "10.449983600311043`", "8.982595232801671`", "9.185950491347064`", "11.156088337634676`", "8.90313538840308`", "10.175500836351755`", "10.020181823685384`", "11.165825090094705`", "15.797625350322742`", "17.27233508796138`", "14.436849170897627`", "15.67476135357974`", "19.178704995194664`", "20.194816816216573`", "25.87575105015984`", "23.054882202698572`", "23.37220770880608`", "24.78704975310217`", "28.67643242094481`", "27.66309817172725`", "30.679631704730365`"}, {"6.67322804138132`", "5.280753511052076`", "4.070738848751791`", "5.828610104510499`", "2.059687129769231`", "4.0203430127543305`", "8.726626615576606`", "8.603403221927998`", "8.194684222000033`", "5.615419383721714`", "8.870165707504642`", "11.508937160018888`", "13.340077819531766`", "12.807851845419837`", "15.431539720693657`", "17.042065796709025`", "19.731399095031808`", "20.8324956801669`", "21.462130349984108`", "24.151319786530347`", "25.28244661399283`", "7.048603706385401`", "4.750685634862752`", "5.764386214787013`", "4.565004043071458`", "0.`", "3.359064480011353`", "10.119065899452108`", "9.894571779465691`", "8.329162599641778`", "9.94041932033854`", "8.09758540540855`", "9.867084015164194`", "9.874177523579606`", "5.346051643210551`", "6.442073512777714`", "7.364144537639585`", "7.841217830509647`", "13.72781810036491`", "15.156832984456353`", "12.930308890227035`", "12.132630797008773`", "16.373193133155585`", "16.553876196093906`", "22.8785648786497`", "20.354964715578916`", "20.374683133153148`", "21.107336527198346`", "25.318350898383407`", "24.32133553861431`", "26.999385517960246`"}, {"7.335655081369156`", "6.484377718757922`", "4.071816119211517`", "6.1720672113097645`", "2.059914598740929`", "4.020417855358123`", "8.403200890018146`", "9.926161257779667`", "8.417871376660036`", "5.151960197030625`", "9.612147980163753`", "12.113538706483022`", "13.480720709845066`", "13.72420983501101`", "16.1808332562903`", "18.029950230874586`", "20.57488771565306`", "21.334144752504148`", "22.481369302642026`", "25.014888319356196`", "26.150897441776962`", "8.079920408120458`", "6.972650705017682`", "4.5852297167453475`", "4.8173254886494705`", "3.359064480011353`", "0.`", "9.667394284643752`", "9.802229149828143`", "7.276788245410939`", "10.963312496999043`", "10.047430731407717`", "11.179230980815609`", "9.63797371245716`", "4.535610319171049`", "6.856249901158818`", "6.176728704091853`", "9.095565944374545`", "13.396774055753367`", "15.47149479368901`", "13.048010406839394`", "13.414912392105233`", "16.80956791293864`", "17.82930408763477`", "23.38615713905461`", "20.89481760662865`", "20.580080873735632`", "22.376461682869465`", "26.32177212872397`", "24.924995449011146`", "27.78562406392979`"}, {"4.070916920768463`", "6.510462346283865`", "7.532643976669925`", "5.113729203987871`", "8.575097660341877`", "7.164064310258354`", "2.059831756042301`", "5.142985029726881`", "5.46270112475439`", "9.073422042892293`", "7.917129773468324`", "9.318388963848145`", "8.77351824617997`", "11.82291770439018`", "13.62930044294257`", "16.05417958963006`", "18.09642054940197`", "17.894757304741525`", "20.448743178712235`", "22.687654026061978`", "24.65977778689471`", "6.916037648356012`", "8.07630414734344`", "6.660143153367298`", "9.36296755353652`", "10.119065899452108`", "9.667394284643752`", "0.`", "3.363386792337386`", "3.3635967903324184`", "4.7894959014706275`", "7.060542581810605`", "5.681494805959768`", "4.63493990998208`", "10.740337539058922`", "9.856129601668284`", "8.689586048949476`", "9.22802904673387`", "9.209958801542639`", "10.395688550071617`", "7.03541708313399`", "12.706487106195297`", "13.36041053081877`", "16.68982745307951`", "19.802047120238175`", "16.62615398896355`", "17.477614828219696`", "20.914463383085607`", "23.491675738108864`", "22.274107930847773`", "26.069501820550848`"}, {"4.070846387916323`", "5.136988753709227`", "6.509899744004745`", "6.460650327489391`", "8.561039480466672`", "8.173702997769123`", "2.059545647756167`", "5.1513724524347095`", "7.8505319597108105`", "10.69701163204136`", "10.159672896399906`", "11.930002801731488`", "11.778626459041991`", "14.284363543320286`", "16.303067723646087`", "18.597393415779077`", "20.783670971936484`", "20.798306702430107`", "23.03476578257475`", "25.399749528131704`", "27.356041251476757`", "4.549510427745831`", "6.927926565102432`", "5.762011525521388`", "7.831522170681368`", "9.894571779465691`", "9.802229149828143`", "3.363386792337386`", "0.`", "3.3633985982482706`", "5.902218645240308`", "6.995569171564957`", "4.649648878317834`", "7.635782889580781`", "12.054393243321115`", "11.597249662116052`", "10.794333906628529`", "11.009178032030988`", "12.422408427455887`", "13.32168943306763`", "10.021264873794932`", "14.852538532917567`", "16.253317067149922`", "19.00099155783052`", "22.711593411825216`", "19.485127893083057`", "20.524738432270563`", "23.31168920014887`", "26.1193092548981`", "25.141772813513082`", "28.831321839180653`"}, {"4.0708695370456045`", "5.157773729381913`", "5.027822084536623`", "5.113840307066866`", "6.541850511543646`", "6.142198878516989`", "2.0597130332048446`", "6.5104622448092115`", "6.76805183420059`", "8.398100565410651`", "9.250658372166747`", "11.213559170380755`", "11.19441270568365`", "13.624920574043955`", "15.711413472697044`", "18.06891840903727`", "20.298426479622293`", "20.311233434839476`", "22.588420769265074`", "24.9306321578878`", "26.698532996488552`", "5.558600167512166`", "7.106087949778835`", "3.594785005607166`", "6.686307559752956`", "8.329162599641778`", "7.276788245410939`", "3.3635967903324184`", "3.3633985982482706`", "0.`", "7.080070460334746`", "8.08236785374465`", "6.984095611147453`", "6.610456857372626`", "9.557153258508883`", "9.732449651565894`", "8.237208565223407`", "10.064452396515051`", "11.351131949333855`", "13.03862248609311`", "9.766110371357481`", "14.18292120325883`", "15.657693234341595`", "18.485777642019098`", "22.288315363827067`", "19.245899978441827`", "19.734216564599343`", "22.913955119491757`", "25.893895644650982`", "24.563429347123165`", "28.177779313390534`"}, {"4.071201659442276`", "6.506321545678151`", "8.734195252129739`", "5.04341916846885`", "9.23394098445422`", "7.471492662219656`", "5.216725068434715`", "2.059890354920097`", "4.707773072369857`", "9.243468709493952`", "5.935922958425277`", "7.183351306920152`", "7.441975913559781`", "9.205063654005821`", "11.146658969851886`", "13.24430607136995`", "15.441979433129962`", "15.729381534458145`", "17.567914062451926`", "20.00289970923727`", "22.00873796060772`", "7.187595190484125`", "6.89439300092275`", "9.002332200441725`", "10.449983600311043`", "9.94041932033854`", "10.963312496999043`", "4.7894959014706275`", "5.902218645240308`", "7.080070460334746`", "0.`", "3.3636743169421446`", "3.3636667254045176`", "4.944502014866888`", "11.101332879340799`", "9.049944736003805`", "9.550173224024551`", "6.923650778455646`", "8.847815453120939`", "8.622843521947646`", "5.9027587004058155`", "9.778475049825566`", "11.34083776836154`", "13.586867715370838`", "17.620316538749496`", "14.39194265181456`", "15.802526232164407`", "17.7473954165459`", "20.58749812506947`", "19.954604803080816`", "23.513528044101246`"}, {"4.07102034032594`", "5.08103956697946`", "7.648497978459624`", "5.1863645775566445`", "8.046561682124286`", "6.944352654859937`", "6.508067829924347`", "2.059839640489124`", "5.975180450722637`", "8.980119197170604`", "6.571899467928143`", "8.425264873594864`", "9.653756034999052`", "9.925681822824464`", "12.235939310436986`", "13.971240825239002`", "16.44246406989495`", "17.26621653092388`", "18.301169049780977`", "20.947675926515544`", "22.723605850550125`", "5.938755242278644`", "4.494682301293575`", "8.658901152952568`", "8.982595232801671`", "8.09758540540855`", "10.047430731407717`", "7.060542581810605`", "6.995569171564957`", "8.08236785374465`", "3.3636743169421446`", "0.`", "3.3638678582337507`", "7.167119472966368`", "10.492937928197634`", "8.617519601909775`", "9.980471620785124`", "6.53349675755913`", "11.091265587085426`", "10.844442794423834`", "8.580468829946762`", "9.798186096244608`", "12.944636008063569`", "13.816867210297229`", "19.18547959300535`", "16.141127993818653`", "17.44811326148744`", "18.107057187621496`", "21.553497421072354`", "21.188101604750255`", "24.35487955201637`"}, {"4.0710575330309124`", "5.207607101651899`", "7.93737305482593`", "6.4581129710855025`", "9.33236473199723`", "8.53839217262483`", "5.079901832212502`", "2.0597521462040214`", "7.366891006130199`", "10.942457462151058`", "8.77666781419329`", "10.391399844327944`", "10.797936273801536`", "12.281029061593228`", "14.344476509614509`", "16.30739870974138`", "18.57339001221671`", "18.984650273539533`", "20.591548824909`", "23.090526326797693`", "25.068367605185774`", "4.97225187681467`", "5.658692821920154`", "8.369097602755396`", "9.185950491347064`", "9.867084015164194`", "11.179230980815609`", "5.681494805959768`", "4.649648878317834`", "6.984095611147453`", "3.3636667254045176`", "3.3638678582337507`", "0.`", "7.782932157430703`", "12.494861293846611`", "11.04251854961154`", "11.559765915430445`", "9.288105529131203`", "12.124971165036234`", "11.959077999498744`", "9.196615633475254`", "12.553968021235695`", "14.655366694520767`", "16.446036208921345`", "20.849735803060057`", "17.614979891558647`", "19.131914890064166`", "20.612004608612704`", "23.59206061013137`", "23.150946698884972`", "26.60964857652451`"}, {"5.5911349196104005`", "8.317915615352621`", "9.104332007262418`", "4.17518258567141`", "8.615722835142895`", "6.03561788523444`", "5.850703688813151`", "6.140543146741334`", "2.0410885328938795`", "6.585648457759603`", "3.9958668475647254`", "4.948134727758277`", "4.613908022521705`", "7.506236814391183`", "9.262960421493108`", "11.727450199982844`", "13.789394645998733`", "13.701362864860105`", "16.151871654378507`", "18.39165001522604`", "20.238321159795362`", "9.63171741505365`", "9.102301362719393`", "8.787842896838907`", "11.156088337634676`", "9.874177523579606`", "9.63797371245716`", "4.63493990998208`", "7.635782889580781`", "6.610456857372626`", "4.944502014866888`", "7.167119472966368`", "7.782932157430703`", "0.`", "8.597938201333843`", "6.707634110279006`", "5.900362740181926`", "5.802521722344593`", "4.967897125214594`", "6.54810041276825`", "3.5482830573649378`", "8.597780759990538`", "9.056066745688874`", "12.445091332953394`", "15.682270113974328`", "12.682838562005413`", "13.16207912580519`", "16.66689027784854`", "19.366699040754668`", "17.96913569646604`", "21.663961955067013`"}, {"8.735439561080153`", "9.022657092680966`", "7.676378931409878`", "6.274962686705219`", "4.904237415247329`", "4.0328709036311245`", "10.219082465705737`", "10.701466960571464`", "7.1830911213823505`", "2.0598872600617417`", "7.325494966458321`", "9.42016250906207`", "11.16964922751747`", "10.52815185055893`", "12.82092375050388`", "14.447733683353688`", "16.92083787250713`", "17.82760622825288`", "18.702785690932057`", "21.160856662679457`", "22.083098752506924`", "11.00606144461905`", "9.013176702619328`", "8.218027646132917`", "8.90313538840308`", "5.346051643210551`", "4.535610319171049`", "10.740337539058922`", "12.054393243321115`", "9.557153258508883`", "11.101332879340799`", "10.492937928197634`", "12.494861293846611`", "8.597938201333843`", "0.`", "3.363563869536359`", "3.3637176435397382`", "6.577358187211191`", "10.878516397612023`", "13.041984300956619`", "11.423348030565995`", "10.110411350813441`", "13.597647029526753`", "14.204436458902396`", "19.83870537376695`", "17.71038628944903`", "16.959344800459647`", "18.602399888044136`", "22.621450484237194`", "21.075830301190372`", "23.70416629550882`"}, {"7.867696984167238`", "8.880848291857522`", "8.612365792214675`", "5.152405321517077`", "6.214907845450026`", "4.032740811188869`", "9.734373755688047`", "9.042061612469183`", "5.031796569414447`", "2.0597996583165434`", "4.276196866985741`", "6.28956370791639`", "8.422053712767719`", "7.248401714295637`", "9.659787920911358`", "11.298369292272952`", "13.856312783537303`", "14.865838730298607`", "15.672026769610921`", "18.215572537778705`", "19.30588672129641`", "10.915839256480908`", "8.603120095632214`", "9.308485174027632`", "10.175500836351755`", "6.442073512777714`", "6.856249901158818`", "9.856129601668284`", "11.597249662116052`", "9.732449651565894`", "9.049944736003805`", "8.617519601909775`", "11.04251854961154`", "6.707634110279006`", "3.363563869536359`", "0.`", "3.363533694148417`", "3.349143346349422`", "8.497390705962168`", "10.141460404917462`", "8.88934932942639`", "6.81556937111785`", "10.584550884349236`", "11.067246526166313`", "16.897305300865305`", "14.666703497720034`", "14.20964126782013`", "15.567285696831979`", "19.564095716479287`", "18.218249154628534`", "20.957673187719973`"}, {"7.864559328382025`", "9.170093934209344`", "8.292628404148273`", "5.15231904729345`", "6.214532417523627`", "4.032811420985733`", "8.765875376869543`", "9.707380446530252`", "5.044601156963315`", "2.0597603015255403`", "5.607320083619482`", "7.314985424088192`", "8.441273265288357`", "8.919016021114944`", "10.967775445027888`", "12.972254651926493`", "15.251026735703112`", "15.697095752693503`", "17.310223598913247`", "19.617004917874443`", "20.81169257573597`", "11.048138817036826`", "9.627239754902684`", "8.2339157718463`", "10.020181823685384`", "7.364144537639585`", "6.176728704091853`", "8.689586048949476`", "10.794333906628529`", "8.237208565223407`", "9.550173224024551`", "9.980471620785124`", "11.559765915430445`", "5.900362740181926`", "3.3637176435397382`", "3.363533694148417`", "0.`", "5.842695235389813`", "7.864773778617107`", "10.406923242907594`", "8.6622667158207`", "9.157296497776999`", "11.319270199334996`", "13.190810883949904`", "17.713124961722677`", "15.414068213124011`", "14.711355725226085`", "17.54888178067221`", "21.03981220257231`", "19.27835200084834`", "22.332172461077167`"}, {"7.1922756032851884`", "8.69086049360441`", "9.498840821471438`", "5.006666841069639`", "7.799545311339111`", "5.39558923059583`", "9.368389218202191`", "7.248734369205782`", "3.9956585733829346`", "4.945910813020211`", "2.0408468247238463`", "4.085916707595768`", "6.6343872807208175`", "4.989590176496508`", "7.639161051008199`", "9.310402491428617`", "11.976924244761857`", "13.088437900687026`", "13.825330924496809`", "16.49141804449377`", "17.868134311111184`", "10.546598748013581`", "8.153435197462969`", "10.337172944616857`", "11.165825090094705`", "7.841217830509647`", "9.095565944374545`", "9.22802904673387`", "11.009178032030988`", "10.064452396515051`", "6.923650778455646`", "6.53349675755913`", "9.288105529131203`", "5.802521722344593`", "6.577358187211191`", "3.349143346349422`", "5.842695235389813`", "0.`", "7.488080496451465`", "8.055855356540548`", "7.030581513600829`", "4.540459635036746`", "8.73308552347819`", "9.073499920570436`", "15.120281645679801`", "12.614145545993077`", "12.842514937827694`", "13.67207423470197`", "17.582305925062595`", "16.645819878084065`", "19.546517234180318`"}, {"10.463577400961372`", "13.120419330428355`", "13.759439568954544`", "8.648572992061112`", "12.680210048270702`", "9.873204810437771`", "10.728649825626253`", "10.47874743855108`", "5.9733469181777386`", "9.04060115155273`", "5.660753411362866`", "4.032834616544766`", "2.059702505825897`", "5.713895510222878`", "6.086469104095695`", "8.598308864680012`", "10.027738926814415`", "9.372035915482636`", "12.517030598951079`", "14.363955438148976`", "16.246980244523062`", "14.534968015647515`", "13.608526212625362`", "13.466888810289145`", "15.797625350322742`", "13.72781810036491`", "13.396774055753367`", "9.209958801542639`", "12.422408427455887`", "11.351131949333855`", "8.847815453120939`", "11.091265587085426`", "12.124971165036234`", "4.967897125214594`", "10.878516397612023`", "8.497390705962168`", "7.864773778617107`", "7.488080496451465`", "0.`", "3.3635047723952387`", "3.3635838019922204`", "7.55904253917332`", "5.086653318247189`", "9.93287247610409`", "11.279596770296374`", "8.552422465112818`", "8.516153924908611`", "13.476704293851762`", "15.463186432178135`", "13.615659529235053`", "17.49566893851274`"}, {"11.359702960556694`", "14.046023929997236`", "15.279202967776845`", "10.006892108028879`", "14.394118394390977`", "11.606314308829825`", "11.934885194216704`", "10.486324808789199`", "7.279896254163713`", "11.116167252326067`", "6.392879173297813`", "4.032919391885783`", "2.0597979822662262`", "4.91291810651558`", "4.5890362082255685`", "6.949860337248731`", "8.196049786293484`", "7.5616357063557516`", "10.66771643360683`", "12.556639834672684`", "14.751100034347722`", "15.306217640785482`", "14.251232431562874`", "15.248425295885092`", "17.27233508796138`", "15.156832984456353`", "15.47149479368901`", "10.395688550071617`", "13.32168943306763`", "13.03862248609311`", "8.622843521947646`", "10.844442794423834`", "11.959077999498744`", "6.54810041276825`", "13.041984300956619`", "10.141460404917462`", "10.406923242907594`", "8.055855356540548`", "3.3635047723952387`", "0.`", "3.363690821924004`", "6.8988196895914955`", "3.441265795941117`", "8.430893459291`", "9.421154440516858`", "6.238657757685094`", "7.431178308271977`", "11.627854536157967`", "13.3062493119492`", "12.008826399247944`", "15.996517145425427`"}, {"8.370246176327356`", "11.184672354644928`", "12.418141887031132`", "7.325783414575387`", "11.920881149227338`", "9.24818227707492`", "8.630735390764293`", "7.772570986674293`", "4.758857464759668`", "9.383177595361854`", "5.040014945743233`", "4.032898342031147`", "2.059767545619187`", "6.249451032226678`", "7.178723114346517`", "9.673980198314492`", "11.339847384419537`", "10.898218329205442`", "13.776740705533168`", "15.82376567191722`", "17.93028229958622`", "12.320034748860431`", "11.699171485043832`", "12.21038473404514`", "14.436849170897627`", "12.930308890227035`", "13.048010406839394`", "7.03541708313399`", "10.021264873794932`", "9.766110371357481`", "5.9027587004058155`", "8.580468829946762`", "9.196615633475254`", "3.5482830573649378`", "11.423348030565995`", "8.88934932942639`", "8.6622667158207`", "7.030581513600829`", "3.3635838019922204`", "3.363690821924004`", "0.`", "7.9020846064576995`", "6.514769147888186`", "10.781387410718068`", "12.776494383167226`", "9.595383784170219`", "10.606497208491833`", "14.526388838245731`", "16.597541259401474`", "15.323292004678146`", "19.243443423920578`"}, {"11.326020082351553`", "13.031574070981906`", "14.033782728976329`", "9.337900188482417`", "12.267018114465184`", "9.851249324610254`", "13.292220758837788`", "10.660909320438032`", "7.506867629589164`", "8.735675330310558`", "4.955349139189088`", "4.001277496137639`", "6.5587502104034865`", "2.0409849801037785`", "4.086258440467786`", "4.98958093472325`", "7.743115069299305`", "9.370393392383196`", "9.371857144158362`", "12.107733241404038`", "13.438634458593055`", "14.760851061869724`", "12.335208171874804`", "14.829446786431722`", "15.67476135357974`", "12.132630797008773`", "13.414912392105233`", "12.706487106195297`", "14.852538532917567`", "14.18292120325883`", "9.778475049825566`", "9.798186096244608`", "12.553968021235695`", "8.597780759990538`", "10.110411350813441`", "6.81556937111785`", "9.157296497776999`", "4.540459635036746`", "7.55904253917332`", "6.8988196895914955`", "7.9020846064576995`", "0.`", "5.882221833701944`", "4.53327272191998`", "11.292246660949063`", "9.23832154542942`", "9.44936244152194`", "9.13220289585684`", "13.193918951184802`", "12.473766554267812`", "15.148111583534863`"}, {"13.76472311250568`", "16.22036514379936`", "17.247077940418553`", "11.971364041398319`", "15.86922613299823`", "13.073298253923765`", "14.717640293717459`", "12.998577643200738`", "9.300787421786193`", "11.931852823990146`", "7.63602522217874`", "4.992840277556475`", "4.623630009030418`", "4.0858809249681975`", "2.0407337494382185`", "3.9956234804569877`", "5.003696262903974`", "4.700040598036449`", "7.513968618183454`", "9.430734107626115`", "11.455727543392356`", "17.70779686475956`", "16.139202771097743`", "17.416600010478966`", "19.178704995194664`", "16.373193133155585`", "16.80956791293864`", "13.36041053081877`", "16.253317067149922`", "15.657693234341595`", "11.34083776836154`", "12.944636008063569`", "14.655366694520767`", "9.056066745688874`", "13.597647029526753`", "10.584550884349236`", "11.319270199334996`", "8.73308552347819`", "5.086653318247189`", "3.441265795941117`", "6.514769147888186`", "5.882221833701944`", "0.`", "5.8044819417139015`", "6.736879993540243`", "4.122634803264317`", "4.511437369068343`", "8.586670114113398`", "10.45208008361141`", "8.931523164397644`", "12.755278413976736`"}, {"15.683178083591205`", "17.475659231939172`", "18.565595022599407`", "13.79369324220947`", "16.76426436648417`", "14.346582226587367`", "17.507237053049383`", "14.702883065021958`", "11.7301543573716`", "12.992718717974252`", "9.268783926487597`", "7.49869077642907`", "9.096107045199561`", "4.944582598680566`", "3.99570601274816`", "2.041034289865974`", "4.175295919028556`", "6.710642232751661`", "5.061613194604894`", "7.886309447925115`", "9.10204481795235`", "19.129065751397302`", "16.712807671608093`", "19.3331449431154`", "20.194816816216573`", "16.553876196093906`", "17.82930408763477`", "16.68982745307951`", "19.00099155783052`", "18.485777642019098`", "13.586867715370838`", "13.816867210297229`", "16.446036208921345`", "12.445091332953394`", "14.204436458902396`", "11.067246526166313`", "13.190810883949904`", "9.073499920570436`", "9.93287247610409`", "8.430893459291`", "10.781387410718068`", "4.53327272191998`", "5.8044819417139015`", "0.`", "8.192838712623189`", "7.238486159747215`", "7.3578863233918055`", "4.600182968321855`", "8.953383571304622`", "8.650782599139173`", "10.849176480784658`"}, {"20.405710763059226`", "22.85582110771002`", "23.965479077846815`", "18.69723848846861`", "22.504416647205097`", "19.73429854176197`", "21.28987421333069`", "19.358542171212253`", "16.032653014686478`", "18.366271798216797`", "14.28328512961503`", "11.6678307732361`", "11.104295648052636`", "10.149187618145909`", "7.4866672355028685`", "6.549086746634346`", "4.0327522326606315`", "2.059827769989031`", "4.807480726609668`", "4.387373681621`", "6.810972521239417`", "24.287268386695253`", "22.652502506468736`", "24.151049528188455`", "25.87575105015984`", "22.8785648786497`", "23.38615713905461`", "19.802047120238175`", "22.711593411825216`", "22.288315363827067`", "17.620316538749496`", "19.18547959300535`", "20.849735803060057`", "15.682270113974328`", "19.83870537376695`", "16.897305300865305`", "17.713124961722677`", "15.120281645679801`", "11.279596770296374`", "9.421154440516858`", "12.776494383167226`", "11.292246660949063`", "6.736879993540243`", "8.192838712623189`", "0.`", "3.3636280927679048`", "3.3636682427260713`", "6.822615633811116`", "5.033381637473015`", "3.0952508857973493`", "7.394792976137767`"}, {"17.337858544358813`", "19.86667222752825`", "21.120188786974566`", "15.823611063125337`", "19.888771581972165`", "17.099907934115965`", "18.14283477340042`", "16.19285786780259`", "13.132151919981384`", "16.051163710872824`", "11.559096067532051`", "8.906314579730115`", "8.077274743414808`", "7.772854956408629`", "5.259367293489601`", "5.307020484923868`", "4.032647010845922`", "2.059624762761967`", "6.046723457370738`", "6.990302754677654`", "9.49937095581729`", "21.200200018820333`", "19.75336764770964`", "21.263697310104316`", "23.054882202698572`", "20.354964715578916`", "20.89481760662865`", "16.62615398896355`", "19.485127893083057`", "19.245899978441827`", "14.39194265181456`", "16.141127993818653`", "17.614979891558647`", "12.682838562005413`", "17.71038628944903`", "14.666703497720034`", "15.414068213124011`", "12.614145545993077`", "8.552422465112818`", "6.238657757685094`", "9.595383784170219`", "9.23832154542942`", "4.122634803264317`", "7.238486159747215`", "3.3636280927679048`", "0.`", "3.363634154900378`", "7.700489428832123`", "7.491113988859316`", "6.23401414216136`", "10.420477949004004`"}, {"18.152800937333605`", "20.609670944987936`", "21.43720070766447`", "16.214939613505763`", "19.8667335376453`", "17.080961569618545`", "18.943770937279293`", "17.49494978584634`", "13.54871796583204`", "15.533530857289861`", "11.905357205378822`", "9.346450878209241`", "8.746502552692212`", "8.090429192889614`", "5.569502779739669`", "5.468782542949653`", "4.032744245303481`", "2.0599745373753002`", "5.913838805359456`", "6.5442924864844425`", "8.455426579488524`", "22.140518109458796`", "20.542820663033176`", "21.514670398807095`", "23.37220770880608`", "20.374683133153148`", "20.580080873735632`", "17.477614828219696`", "20.524738432270563`", "19.734216564599343`", "15.802526232164407`", "17.44811326148744`", "19.131914890064166`", "13.16207912580519`", "16.959344800459647`", "14.20964126782013`", "14.711355725226085`", "12.842514937827694`", "8.516153924908611`", "7.431178308271977`", "10.606497208491833`", "9.44936244152194`", "4.511437369068343`", "7.3578863233918055`", "3.3636682427260713`", "3.363634154900378`", "0.`", "7.720549290695115`", "7.8360648376943836`", "5.289412238599623`", "9.347203160697088`"}, {"20.154450350325636`", "22.004111149652562`", "23.160601133853458`", "18.337842336280126`", "21.354150972255244`", "18.93032647791714`", "21.876024505370278`", "18.98734992613955`", "16.162379775388178`", "17.474717560084027`", "13.77242496439435`", "11.7594485166401`", "12.792154478789577`", "9.305819232739783`", "7.5214404516742634`", "4.975638470455831`", "3.9603380271735893`", "6.518403259475371`", "2.040917857231867`", "4.252904561141435`", "5.088659697971816`", "23.59912580080403`", "21.209217414632004`", "23.90529590159737`", "24.78704975310217`", "21.107336527198346`", "22.376461682869465`", "20.914463383085607`", "23.31168920014887`", "22.913955119491757`", "17.7473954165459`", "18.107057187621496`", "20.612004608612704`", "16.66689027784854`", "18.602399888044136`", "15.567285696831979`", "17.54888178067221`", "13.67207423470197`", "13.476704293851762`", "11.627854536157967`", "14.526388838245731`", "9.13220289585684`", "8.586670114113398`", "4.600182968321855`", "6.822615633811116`", "7.700489428832123`", "7.720549290695115`", "0.`", "5.094553669531456`", "5.852184675019361`", "6.813521944735369`"}, {"23.456690169623137`", "25.632436165451352`", "26.907978333991707`", "21.796585394571924`", "25.31118017974487`", "22.69675690589398`", "24.770680122085363`", "22.131114483463673`", "19.329265064829162`", "21.31230164797439`", "17.220998218128184`", "14.813229629636806`", "14.946437531339619`", "12.736440912098454`", "10.334489502969213`", "8.30896773967353`", "5.799892667269897`", "6.3173092449583494`", "4.032923634408739`", "2.059779740145197`", "3.904329155093647`", "27.089515448144432`", "25.069127239003688`", "27.408327754988218`", "28.67643242094481`", "25.318350898383407`", "26.32177212872397`", "23.491675738108864`", "26.1193092548981`", "25.893895644650982`", "20.58749812506947`", "21.553497421072354`", "23.59206061013137`", "19.366699040754668`", "22.621450484237194`", "19.564095716479287`", "21.03981220257231`", "17.582305925062595`", "15.463186432178135`", "13.3062493119492`", "16.597541259401474`", "13.193918951184802`", "10.45208008361141`", "8.953383571304622`", "5.033381637473015`", "7.491113988859316`", "7.8360648376943836`", "5.094553669531456`", "0.`", "3.363674724140203`", "4.331658233573846`"}, {"22.539174488645056`", "24.827591517532788`", "25.821668134530153`", "20.653164662046592`", "24.120025918695276`", "21.429240035266005`", "23.64100877932866`", "21.56422587645734`", "18.090976670522195`", "19.811053742964365`", "16.11036735972931`", "13.62410504860696`", "13.51487118547959`", "11.73639040329834`", "9.175695703047339`", "7.539739095961287`", "4.8354906075540525`", "4.480403791090919`", "4.032855805707429`", "2.0598124012820667`", "3.9042128666623945`", "26.37295755377702`", "24.460736003611387`", "26.13893469810799`", "27.66309817172725`", "24.32133553861431`", "24.924995449011146`", "22.274107930847773`", "25.141772813513082`", "24.563429347123165`", "19.954604803080816`", "21.188101604750255`", "23.150946698884972`", "17.96913569646604`", "21.075830301190372`", "18.218249154628534`", "19.27835200084834`", "16.645819878084065`", "13.615659529235053`", "12.008826399247944`", "15.323292004678146`", "12.473766554267812`", "8.931523164397644`", "8.650782599139173`", "3.0952508857973493`", "6.23401414216136`", "5.289412238599623`", "5.852184675019361`", "3.363674724140203`", "0.`", "4.331513903278976`"}, {"25.941610954455435`", "28.01988155922017`", "28.944722995865504`", "23.94863532564527`", "27.029504671058692`", "24.476054299456187`", "27.29405213333197`", "24.97099910926123`", "21.540593099380335`", "22.67626021761034`", "19.35199144410719`", "17.058019134210376`", "17.376103972125684`", "14.875888339518141`", "12.56043844406276`", "10.443659662000977`", "8.078145901079193`", "8.660278296321167`", "6.092573417881813`", "3.672025879911945`", "1.8273864433636153`", "29.65056475115396`", "27.4429751441825`", "29.4364099829929`", "30.679631704730365`", "26.999385517960246`", "27.78562406392979`", "26.069501820550848`", "28.831321839180653`", "28.177779313390534`", "23.513528044101246`", "24.35487955201637`", "26.60964857652451`", "21.663961955067013`", "23.70416629550882`", "20.957673187719973`", "22.332172461077167`", "19.546517234180318`", "17.49566893851274`", "15.996517145425427`", "19.243443423920578`", "15.148111583534863`", "12.755278413976736`", "10.849176480784658`", "7.394792976137767`", "10.420477949004004`", "9.347203160697088`", "6.813521944735369`", "4.331658233573846`", "4.331513903278976`", "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.5728903937072487`*^9}] }, Open ]], Cell[BoxData[{ RowBox[{ RowBox[{"x", "=", RowBox[{"Table", "[", RowBox[{ RowBox[{"t", "[", RowBox[{"[", RowBox[{"i", ",", "1"}], "]"}], "]"}], ",", RowBox[{"{", RowBox[{"i", ",", "1", ",", "n"}], "}"}]}], "]"}]}], ";"}], "\[IndentingNewLine]", RowBox[{ RowBox[{"y", "=", RowBox[{"Table", "[", RowBox[{ RowBox[{"t", "[", RowBox[{"[", RowBox[{"i", ",", "2"}], "]"}], "]"}], ",", RowBox[{"{", RowBox[{"i", ",", "1", ",", "n"}], "}"}]}], "]"}]}], ";"}], "\[IndentingNewLine]", RowBox[{ RowBox[{"z", "=", RowBox[{"Table", "[", RowBox[{ RowBox[{"t", "[", RowBox[{"[", RowBox[{"i", ",", "3"}], "]"}], "]"}], ",", RowBox[{"{", RowBox[{"i", ",", "1", ",", "n"}], "}"}]}], "]"}]}], ";"}]}], "Input", CellChangeTimes->{{3.5678630319943895`*^9, 3.5678630956269007`*^9}, { 3.5678632280087337`*^9, 3.567863228336334*^9}, {3.5678632621727934`*^9, 3.5678633509213495`*^9}, {3.5678644293824434`*^9, 3.567864451908883*^9}, { 3.567864923404111*^9, 3.56786494544695*^9}, {3.5678650143210707`*^9, 3.5678650845367947`*^9}, {3.567869231084096*^9, 3.567869278118179*^9}, { 3.5682778102931156`*^9, 3.5682778156907253`*^9}, 3.571808490989086*^9, { 3.572601938592864*^9, 3.572601945722077*^9}}], Cell[CellGroupData[{ Cell[BoxData[ RowBox[{ RowBox[{"(*", " ", RowBox[{"connected", " ", RowBox[{"pairs", ":", " ", RowBox[{ RowBox[{"distance", " ", "criteria"}], " ", "<", " ", RowBox[{"3.0", " ", "bohr"}]}]}]}], " ", "*)"}], "\[IndentingNewLine]", RowBox[{ RowBox[{ RowBox[{"Dij", "=", RowBox[{"Table", "[", RowBox[{ RowBox[{"If", "[", RowBox[{ RowBox[{"(", RowBox[{ RowBox[{ RowBox[{"dc", "[", RowBox[{"[", RowBox[{"i", ",", "j"}], "]"}], "]"}], "<", "3.0"}], "||", RowBox[{"(", RowBox[{ RowBox[{ RowBox[{"u", "[", RowBox[{"[", "i", "]"}], "]"}], "\[Equal]", "\"\\""}], " ", "&&", " ", RowBox[{"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.891300913601803`", "0", "2.8365357849535755`", "0", "0", "2.8912788211686498`", "2.8914960515480357`", "0", "0", "0", "0", "0", "0", "0", "0", "0", "0", "0", "0", "0", "0", "0", "0", "0", "0", "0", "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.891300913601803`", "0.`", "2.8977447296151486`", "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.8977447296151486`", "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.496903311178327`", "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.836484030211052`", "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.496903311178327`", "2.836484030211052`", "0.`", "0", "0", "0", "2.8477357732306996`", "0", "0", "0", "0", "0", "0", "0", "0", "0", "0", "0", "0", "0", "0", "0", "0", "0", "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.8912788211686498`", "0", "0", "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.0597130332048446`", "0", "0", "0", "0", "0", "0", "0", "0", "0", "0", "0", "0", "0", "0", "0", "0", "0", "0", "0", "0", "0"}, {"2.8914960515480357`", "0", "0", "0", "0", "0", "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.059890354920097`", "2.059839640489124`", "2.0597521462040214`", "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.0410885328938795`", "0", "0", "0", "0", "0", "0", "0", "0", "0", "0", "0", "0", "0", "0", "0", "0", "0"}, {"0", "0", "0", "0", "0", "2.8477357732306996`", "0", "0", "0", "0.`", "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.0598872600617417`", "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.8479864199895313`", "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.8479864199895313`", "0.`", "0", "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.059702505825897`", "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.0409849801037785`", "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.0407337494382185`", "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.8477001262494284`", "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.8477001262494284`", "0.`", "0", "0", "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.059827769989031`", "2.059624762761967`", "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.700437574415365`", "0", "0", "0", "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.700437574415365`", "0.`", "0", "0", "0", "0", "0", "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.8273864433636153`"}, {"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.0597130332048446`", "0", "0", "0", "0", "0", "0", "0", "0", "0", "0", "0", "0", "0", "0", "0", "0", "0", "0", "0", "0", "0", "0", "0.`", "0", "0", "0", "0", "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.059890354920097`", "0", "0", "0", "0", "0", "0", "0", "0", "0", "0", "0", "0", "0", "0", "0", "0", "0", "0", "0", "0", "0", "0", "0.`", "0", "0", "0", "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.0597521462040214`", "0", "0", "0", "0", "0", "0", "0", "0", "0", "0", "0", "0", "0", "0", "0", "0", "0", "0", "0", "0", "0", "0", "0", "0", "0.`", "0", "0", "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.0410885328938795`", "0", "0", "0", "0", "0", "0", "0", "0", "0", "0", "0", "0", "0", "0", "0", "0", "0", "0", "0", "0", "0", "0", "0", "0", "0.`", "0", "0", "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.0598872600617417`", "0", "0", "0", "0", "0", "0", "0", "0", "0", "0", "0", "0", "0", "0", "0", "0", "0", "0", "0", "0", "0", "0", "0", "0", "0.`", "0", "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.059702505825897`", "0", "0", "0", "0", "0", "0", "0", "0", "0", "0", "0", "0", "0", "0", "0", "0", "0", "0", "0", "0", "0", "0", "0", "0", "0", "0.`", "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.0409849801037785`", "0", "0", "0", "0", "0", "0", "0", "0", "0", "0", "0", "0", "0", "0", "0", "0", "0", "0", "0", "0", "0", "0", "0", "0", "0", "0", "0", "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.0407337494382185`", "0", "0", "0", "0", "0", "0", "0", "0", "0", "0", "0", "0", "0", "0", "0", "0", "0", "0", "0", "0", "0", "0", "0", "0", "0", "0", "0", "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.059827769989031`", "0", "0", "0", "0", "0", "0", "0", "0", "0", "0", "0", "0", "0", "0", "0", "0", "0", "0", "0", "0", "0", "0", "0", "0", "0", "0", "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.059624762761967`", "0", "0", "0", "0", "0", "0", "0", "0", "0", "0", "0", "0", "0", "0", "0", "0", "0", "0", "0", "0", "0", "0", "0", "0", "0", "0", "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.8273864433636153`", "0", "0", "0", "0", "0", "0", "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.572890393769649*^9}] }, Open ]], Cell[CellGroupData[{ Cell[BoxData[ RowBox[{ RowBox[{"(*", " ", RowBox[{"count", " ", "C", " ", "atoms"}], " ", "*)"}], "\[IndentingNewLine]", RowBox[{ RowBox[{ RowBox[{"nc", "=", "0"}], ";"}], " ", "\n", RowBox[{"For", "[", RowBox[{ RowBox[{"i", "=", "1"}], ",", RowBox[{"i", "<", RowBox[{"bc", "+", "1"}]}], ",", RowBox[{"i", "++"}], ",", RowBox[{"If", "[", RowBox[{ RowBox[{ RowBox[{"u", "[", RowBox[{"[", "i", "]"}], "]"}], "\[Equal]", "\"\\""}], ",", RowBox[{"nc", "=", RowBox[{"nc", "+", "1"}]}], ",", "nc"}], "]"}]}], "]"}], "\[IndentingNewLine]", RowBox[{ RowBox[{"cnt", "=", RowBox[{"Table", "[", RowBox[{"0", ",", RowBox[{"{", "nc", "}"}]}], "]"}]}], ";"}], "\[IndentingNewLine]", RowBox[{ RowBox[{"pri", "=", "cnt"}], ";", " ", RowBox[{"sec", "=", "cnt"}], ";", RowBox[{"ter", "=", "cnt"}], ";", " ", RowBox[{"qua", "=", "cnt"}], ";"}], "\[IndentingNewLine]", "nc"}]}]], "Input", CellChangeTimes->{{3.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}, {3.572528557136052*^9, 3.57252856181606*^9}, 3.57252899467002*^9, 3.572529147612689*^9, { 3.572529371395082*^9, 3.572529383875104*^9}, {3.572531374906601*^9, 3.5725313995390444`*^9}}], Cell[BoxData["20"], "Output", CellChangeTimes->{3.572890393785249*^9}] }, Open ]], Cell[CellGroupData[{ Cell[BoxData[ RowBox[{ RowBox[{"(*", " ", RowBox[{ "count", " ", "H", " ", "atoms", " ", "bonded", " ", "to", " ", "each", " ", "C", " ", "atom"}], " ", "*)"}], "\[IndentingNewLine]", RowBox[{ RowBox[{ RowBox[{"For", "[", RowBox[{ RowBox[{"j", "=", "1"}], ",", RowBox[{"j", "\[LessEqual]", "nc"}], ",", RowBox[{"j", "++"}], ",", "\[IndentingNewLine]", RowBox[{"For", "[", RowBox[{ RowBox[{"i", "=", RowBox[{"bc", "+", "1"}]}], ",", RowBox[{"i", "\[LessEqual]", "n"}], ",", RowBox[{"i", "++"}], ",", RowBox[{"If", "[", " ", RowBox[{ RowBox[{ RowBox[{"Dij", "[", RowBox[{"[", RowBox[{"i", ",", "j"}], "]"}], "]"}], "\[NotEqual]", "0"}], " ", ",", RowBox[{ RowBox[{"cnt", "[", RowBox[{"[", "j", "]"}], "]"}], "=", RowBox[{ RowBox[{"cnt", "[", RowBox[{"[", "j", "]"}], "]"}], "+", "1"}]}], ",", "0"}], "]"}]}], "]"}]}], "]"}], ";"}], "\[IndentingNewLine]", "cnt"}]}]], "Input", CellChangeTimes->{{3.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, { 3.57252947817727*^9, 3.572529509876525*^9}, {3.5725312638188057`*^9, 3.572531289964452*^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.572890393785249*^9}] }, Open ]], Cell[BoxData[ RowBox[{ RowBox[{"(*", " ", RowBox[{ RowBox[{"parse", " ", "into", " ", "prim"}], ",", " ", "sec", ",", " ", "tert", ",", " ", RowBox[{ "and", " ", "quart", " ", "C", " ", "cores", " ", "with", " ", "different", " ", "radii"}]}], " ", "*)"}], "\[IndentingNewLine]", RowBox[{ RowBox[{ RowBox[{"n1", "=", "0"}], ";", " ", RowBox[{"n2", "=", "0"}], ";", " ", RowBox[{"n3", "=", "0"}], ";", " ", RowBox[{"n4", "=", "0"}], ";"}], "\n", RowBox[{ RowBox[{"For", "[", RowBox[{ RowBox[{"i", "=", "1"}], ",", RowBox[{"i", "\[LessEqual]", "nc"}], ",", RowBox[{"i", "++"}], ",", "\[IndentingNewLine]", RowBox[{"If", "[", RowBox[{ RowBox[{ RowBox[{"cnt", "[", RowBox[{"[", "i", "]"}], "]"}], "\[Equal]", "3"}], ",", RowBox[{ RowBox[{"n1", "=", RowBox[{"n1", "+", "1"}]}], ";", RowBox[{ RowBox[{"pri", "[", RowBox[{"[", "n1", "]"}], "]"}], "=", "i"}]}], ",", "\[IndentingNewLine]", RowBox[{"If", "[", RowBox[{ RowBox[{ RowBox[{"cnt", "[", RowBox[{"[", "i", "]"}], "]"}], "\[Equal]", "2"}], ",", RowBox[{ RowBox[{"n2", "=", RowBox[{"n2", "+", "1"}]}], ";", RowBox[{ RowBox[{"sec", "[", RowBox[{"[", "n2", "]"}], "]"}], "=", "i"}]}], ",", "\[IndentingNewLine]", RowBox[{"If", "[", RowBox[{ RowBox[{ RowBox[{"cnt", "[", RowBox[{"[", "i", "]"}], "]"}], "\[Equal]", "1"}], ",", RowBox[{ RowBox[{"n3", "=", RowBox[{"n3", "+", "1"}]}], ";", RowBox[{ RowBox[{"ter", "[", RowBox[{"[", "n3", "]"}], "]"}], "=", "i"}]}], ",", "\[IndentingNewLine]", RowBox[{"If", "[", RowBox[{ RowBox[{ RowBox[{"cnt", "[", RowBox[{"[", "i", "]"}], "]"}], "=", "0"}], ",", RowBox[{ RowBox[{"n4", "=", RowBox[{"n4", "+", "1"}]}], ";", RowBox[{ RowBox[{"qua", "[", RowBox[{"[", "n4", "]"}], "]"}], "=", "i"}]}]}], "]"}]}], "]"}]}], "]"}]}], "]"}]}], "]"}], ";"}], "\[IndentingNewLine]", RowBox[{"For", " ", "[", RowBox[{ RowBox[{"i", "=", "1"}], ",", " ", RowBox[{"i", "\[LessEqual]", "nc"}], ",", RowBox[{"i", "++"}], ",", RowBox[{"If", "[", RowBox[{ RowBox[{ RowBox[{"pri", "[", RowBox[{"[", "i", "]"}], "]"}], "\[NotEqual]", "0"}], ",", RowBox[{ RowBox[{"u2", "[", RowBox[{"[", RowBox[{"pri", "[", RowBox[{"[", "i", "]"}], "]"}], "]"}], "]"}], "=", "0.2547"}]}], "]"}]}], "]"}], "\[IndentingNewLine]", RowBox[{"For", " ", "[", RowBox[{ RowBox[{"i", "=", "1"}], ",", " ", RowBox[{"i", "\[LessEqual]", "nc"}], ",", RowBox[{"i", "++"}], ",", RowBox[{"If", "[", RowBox[{ RowBox[{ RowBox[{"sec", "[", RowBox[{"[", "i", "]"}], "]"}], "\[NotEqual]", "0"}], ",", RowBox[{ RowBox[{"u2", "[", RowBox[{"[", RowBox[{"sec", "[", RowBox[{"[", "i", "]"}], "]"}], "]"}], "]"}], "=", "0.255"}]}], "]"}]}], "]"}], "\[IndentingNewLine]", RowBox[{"For", " ", "[", RowBox[{ RowBox[{"i", "=", "1"}], ",", " ", RowBox[{"i", "\[LessEqual]", "nc"}], ",", RowBox[{"i", "++"}], ",", RowBox[{"If", "[", RowBox[{ RowBox[{ RowBox[{"ter", "[", RowBox[{"[", "i", "]"}], "]"}], "\[NotEqual]", "0"}], ",", RowBox[{ RowBox[{"u2", "[", RowBox[{"[", RowBox[{"ter", "[", RowBox[{"[", "i", "]"}], "]"}], "]"}], "]"}], "=", "0.2557"}]}], "]"}]}], "]"}], "\[IndentingNewLine]", RowBox[{"For", " ", "[", RowBox[{ RowBox[{"i", "=", "1"}], ",", " ", RowBox[{"i", "\[LessEqual]", "nc"}], ",", RowBox[{"i", "++"}], ",", RowBox[{"If", "[", RowBox[{ RowBox[{ RowBox[{"qua", "[", RowBox[{"[", "i", "]"}], "]"}], "\[NotEqual]", "0"}], ",", RowBox[{ RowBox[{"u2", "[", RowBox[{"[", RowBox[{"qua", "[", RowBox[{"[", "i", "]"}], "]"}], "]"}], "]"}], "=", "0.2577"}]}], "]"}]}], "]"}]}]}]], "Input", CellChangeTimes->{{3.5688800293771057`*^9, 3.5688801774057655`*^9}, { 3.5688802290574565`*^9, 3.568880330208034*^9}, {3.5688803807053227`*^9, 3.5688804136525807`*^9}, 3.568880491434317*^9, 3.5688805648948464`*^9, { 3.5688806280437574`*^9, 3.568880655234605*^9}, {3.568880712424306*^9, 3.568880716324312*^9}, {3.5688808087544746`*^9, 3.568880827786508*^9}, 3.5688808733385878`*^9, {3.568881358936241*^9, 3.5688813959239063`*^9}, { 3.568881446561595*^9, 3.5688815849182377`*^9}, {3.5688816223739033`*^9, 3.568881642607139*^9}, 3.568881728953291*^9, {3.568881797624612*^9, 3.568881809870633*^9}, 3.568881863612727*^9, {3.568883098916497*^9, 3.5688831014749017`*^9}, {3.56888372124679*^9, 3.568883843239004*^9}, 3.568888211750622*^9, {3.5688882521546926`*^9, 3.5688885232519693`*^9}, { 3.5688885890840845`*^9, 3.5688885895052853`*^9}, {3.568888675773437*^9, 3.5688886914514647`*^9}, {3.568888736285943*^9, 3.5688887717760057`*^9}, { 3.5688888256429005`*^9, 3.5688888541441507`*^9}, {3.568892442649892*^9, 3.5688924499507046`*^9}, {3.568892758441247*^9, 3.5688927597360487`*^9}, { 3.5688928234309607`*^9, 3.5688928379389863`*^9}, {3.5708938149488974`*^9, 3.5708938463361526`*^9}, {3.570893920483083*^9, 3.5708939282050962`*^9}, { 3.570894700000852*^9, 3.5708948169698577`*^9}, {3.570894956839703*^9, 3.5708949736409326`*^9}, {3.5708961320833673`*^9, 3.570896139696181*^9}, 3.570896314088887*^9, {3.5708963602181683`*^9, 3.5708963666609793`*^9}, { 3.570896482038782*^9, 3.570896483645585*^9}, {3.5708965159376416`*^9, 3.570896521194851*^9}, {3.5709435995777535`*^9, 3.5709436285158043`*^9}, { 3.5709436695594764`*^9, 3.5709437026783347`*^9}, {3.57094471360691*^9, 3.5709447144805117`*^9}, {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}, {3.5725287590472064`*^9, 3.5725287902628613`*^9}, {3.572529030674884*^9, 3.572529042343704*^9}, { 3.572529556645407*^9, 3.5725296188271165`*^9}, {3.572529678793622*^9, 3.5725297125832815`*^9}, 3.572529766184975*^9, 3.5725298594731393`*^9, { 3.572529901374813*^9, 3.5725299376604767`*^9}, {3.572531381084212*^9, 3.5725313843134174`*^9}, {3.572537228892798*^9, 3.572537235429209*^9}, { 3.572537287814101*^9, 3.5725373101221404`*^9}, {3.5725380504682407`*^9, 3.5725382242837462`*^9}, {3.572538261053011*^9, 3.572538276590638*^9}, { 3.5725383120339003`*^9, 3.5725383418611526`*^9}, {3.5725384271465025`*^9, 3.57253845404095*^9}, {3.572538956424232*^9, 3.5725390373103743`*^9}, { 3.572539306644847*^9, 3.5725394512103014`*^9}, {3.5725395463080683`*^9, 3.572539593981752*^9}, {3.5725398474041967`*^9, 3.5725398481529984`*^9}, { 3.572541676133009*^9, 3.572541712605873*^9}, {3.5725419267942495`*^9, 3.572541927823851*^9}, {3.5725420320164337`*^9, 3.572542068317698*^9}, { 3.572542098675351*^9, 3.5725421006877546`*^9}, {3.572542267561248*^9, 3.5725423059217153`*^9}, {3.5726066153250785`*^9, 3.5726066318455076`*^9}, {3.5726084389526815`*^9, 3.5726084422286873`*^9}, {3.5726211211499004`*^9, 3.5726211269999104`*^9}, 3.572624425506504*^9, 3.5726245538167295`*^9}], Cell[CellGroupData[{ Cell[BoxData[{ RowBox[{ RowBox[{"Eij", "=", RowBox[{"Table", "[", RowBox[{ RowBox[{"If", "[", RowBox[{ RowBox[{"i", "\[GreaterEqual]", "j"}], ",", RowBox[{"Dij", "[", RowBox[{"[", RowBox[{"i", ",", "j"}], "]"}], "]"}], ",", "0"}], "]"}], ",", RowBox[{"{", RowBox[{"i", ",", "1", ",", RowBox[{"bc", "-", "1"}]}], "}"}], ",", RowBox[{"{", RowBox[{"j", ",", "1", ",", RowBox[{"bc", "-", "1"}]}], "}"}]}], "]"}]}], ";"}], "\[IndentingNewLine]", RowBox[{"CD", "=", RowBox[{"Select", "[", RowBox[{ RowBox[{"Flatten", "[", "Eij", "]"}], ",", RowBox[{ RowBox[{"(", RowBox[{ RowBox[{"#", "\[GreaterEqual]", "2.4"}], " ", "&&", RowBox[{"#", "\[LessEqual]", "2.6"}]}], ")"}], " ", "&"}]}], "]"}]}], "\[IndentingNewLine]", RowBox[{ RowBox[{"Mean", "[", "CD", "]"}], " ", "\[PlusMinus]", " ", RowBox[{"StandardDeviation", "[", "CD", "]"}]}]}], "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.496903311178327`", ",", "2.563079476006322`", ",", "2.569288589590436`", ",", "2.563021237668669`", ",", "2.5234179395658387`"}], "}"}]], "Output", CellChangeTimes->{3.572890393800849*^9}], Cell[BoxData[ RowBox[{"2.5431421108019188`", "\[PlusMinus]", "0.03163615846976897`"}]], "Output", CellChangeTimes->{3.572890393800849*^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.891300913601803`", ",", "2.8977447296151486`", ",", "2.8365357849535755`", ",", "2.8944306444976293`", ",", "2.836484030211052`", ",", "2.8912788211686498`", ",", "2.8914960515480357`", ",", "2.7620366698777885`", ",", "2.8477357732306996`", ",", "2.663475350554561`", ",", "2.8479864199895313`", ",", "2.6635653925414697`", ",", "2.7620710231833114`", ",", "2.8477001262494284`", ",", "2.8479645159754585`"}], "}"}]], "Output", CellChangeTimes->{3.572890393816449*^9}], Cell[BoxData[ RowBox[{"2.825453749813209`", "\[PlusMinus]", "0.07826166491129986`"}]], "Output", CellChangeTimes->{3.572890393816449*^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.0597130332048446`", ",", "2.059890354920097`", ",", "2.059839640489124`", ",", "2.0597521462040214`", ",", "2.0410885328938795`", ",", "2.0598872600617417`", ",", "2.0597996583165434`", ",", "2.0597603015255403`", ",", "2.0408468247238463`", ",", "2.059702505825897`", ",", "2.0597979822662262`", ",", "2.059767545619187`", ",", "2.0409849801037785`", ",", "2.0407337494382185`", ",", "2.041034289865974`", ",", "2.059827769989031`", ",", "2.059624762761967`", ",", "2.0599745373753002`", ",", "2.040917857231867`", ",", "2.059779740145197`", ",", "2.0598124012820667`"}], "}"}]], "Output", CellChangeTimes->{3.5728903938320494`*^9}], Cell[BoxData[ RowBox[{"2.055894359505152`", "\[PlusMinus]", "0.007777002172673031`"}]], "Output", CellChangeTimes->{3.5728903938320494`*^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.572890393847649*^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.73986538240301`"], "Output", CellChangeTimes->{3.572890393878849*^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.572890393894449*^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.572890393894449*^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.799168435380814`"], "Output", CellChangeTimes->{3.5728903939100494`*^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.9406969470222`"], "Output", CellChangeTimes->{3.572890393925649*^9}] }, Open ]], Cell[BoxData[{ RowBox[{ RowBox[{"Mij", "=", RowBox[{"Prepend", "[", RowBox[{"Qij", ",", "u"}], "]"}]}], ";"}], "\[IndentingNewLine]", RowBox[{ RowBox[{"Oij", "=", RowBox[{"Transpose", "[", "Mij", "]"}]}], ";"}], "\[IndentingNewLine]", RowBox[{ RowBox[{"Pij", "=", RowBox[{"Prepend", "[", RowBox[{"Oij", ",", RowBox[{"Prepend", "[", RowBox[{"u", ",", "\"\< \>\""}], "]"}]}], "]"}]}], ";"}]}], "Input", CellChangeTimes->{{3.568045828002715*^9, 3.56804588761042*^9}, 3.5680459828797874`*^9, {3.568046033938677*^9, 3.5680460518787084`*^9}, { 3.568046989190755*^9, 3.5680470284404235`*^9}, {3.568047061028881*^9, 3.568047085567724*^9}, {3.5680471562982483`*^9, 3.568047169199471*^9}, { 3.568047223393966*^9, 3.568047364059413*^9}, {3.568047417286707*^9, 3.5680474225127163`*^9}, {3.5680474583459787`*^9, 3.568047487861231*^9}, { 3.5680475345521126`*^9, 3.5680475468605347`*^9}, {3.5680479168775845`*^9, 3.5680479311516094`*^9}, {3.568048066918648*^9, 3.568048067667449*^9}, { 3.5680483816336*^9, 3.5680483930216208`*^9}, {3.568048424159275*^9, 3.568048450211321*^9}, {3.5680486326224413`*^9, 3.5680486370996494`*^9}, { 3.5680487358166227`*^9, 3.5680487967191296`*^9}, 3.568048834377596*^9, 3.568048984418659*^9, {3.5680490255559316`*^9, 3.5680490790796256`*^9}, { 3.5680491274553103`*^9, 3.5680491280949116`*^9}, {3.5680491782333994`*^9, 3.568049231944294*^9}, {3.568049361533722*^9, 3.5680493691933355`*^9}, { 3.568049422171028*^9, 3.568049427490638*^9}, {3.568049476427923*^9, 3.5680495489368505`*^9}, {3.568049620634577*^9, 3.5680496274361887`*^9}, { 3.5680496655314555`*^9, 3.568049693876705*^9}, 3.568049746573598*^9, { 3.568049846460573*^9, 3.568049932759925*^9}, {3.568050009059659*^9, 3.5680500167348723`*^9}, {3.5680501572755194`*^9, 3.568050179911159*^9}, 3.5681087021497335`*^9, {3.5726244549749556`*^9, 3.5726244687341795`*^9}, 3.572624583643982*^9}], Cell[CellGroupData[{ Cell[BoxData[{ RowBox[{ RowBox[{"con", "=", RowBox[{"Table", "[", RowBox[{ RowBox[{"{", "i", "}"}], ",", RowBox[{"{", RowBox[{"i", ",", "1", ",", "n"}], "}"}]}], "]"}]}], ";", " ", RowBox[{"conj", "=", RowBox[{"Table", "[", RowBox[{"0", ",", RowBox[{"{", "nc", "}"}]}], "]"}]}], ";"}], "\[IndentingNewLine]", RowBox[{ RowBox[{"For", "[", RowBox[{ RowBox[{"i", "=", "1"}], ",", RowBox[{"i", "\[LessEqual]", "n"}], ",", RowBox[{"i", "++"}], ",", "\[IndentingNewLine]", RowBox[{"For", "[", RowBox[{ RowBox[{"j", "=", "1"}], ",", RowBox[{"j", "\[LessEqual]", "n"}], ",", RowBox[{"j", "++"}], ",", RowBox[{"If", "[", " ", RowBox[{ RowBox[{ RowBox[{"Dij", "[", RowBox[{"[", RowBox[{"i", ",", "j"}], "]"}], "]"}], "\[NotEqual]", "0"}], " ", ",", RowBox[{ RowBox[{"con", "[", RowBox[{"[", "i", "]"}], "]"}], "=", RowBox[{"{", RowBox[{ RowBox[{"con", "[", RowBox[{"[", "i", "]"}], "]"}], ",", "j"}], "}"}]}]}], "]"}]}], "]"}]}], "]"}], ";"}], "\[IndentingNewLine]", RowBox[{ RowBox[{ RowBox[{"conn", "=", RowBox[{"Table", "[", RowBox[{ RowBox[{"Flatten", "[", RowBox[{"con", "[", RowBox[{"[", "i", "]"}], "]"}], "]"}], ",", RowBox[{"{", RowBox[{"i", ",", "1", ",", "n"}], "}"}]}], "]"}]}], ";"}], "\[IndentingNewLine]", RowBox[{"(*", " ", RowBox[{ "identify", " ", "C", " ", "atoms", " ", "at", " ", "double", " ", "bonds"}], " ", "*)"}]}], "\[IndentingNewLine]", RowBox[{ RowBox[{"j", "=", "0"}], ";"}], "\[IndentingNewLine]", RowBox[{ RowBox[{"For", "[", RowBox[{ RowBox[{"i", "=", "1"}], ",", RowBox[{"i", "\[LessEqual]", "nc"}], ",", RowBox[{"i", "++"}], ",", RowBox[{"If", "[", RowBox[{ RowBox[{ RowBox[{"Length", "[", RowBox[{"conn", "[", RowBox[{"[", "i", "]"}], "]"}], "]"}], "\[Equal]", "4"}], ",", RowBox[{ RowBox[{"j", "=", RowBox[{"j", "+", "1"}]}], ";", RowBox[{ RowBox[{"conj", "[", RowBox[{"[", "j", "]"}], "]"}], "=", "i"}]}]}], "]"}]}], "]"}], ";"}], "\[IndentingNewLine]", RowBox[{"conj", "=", RowBox[{"Take", "[", RowBox[{"conj", ",", RowBox[{"{", RowBox[{"1", ",", "j"}], "}"}]}], "]"}]}], "\[IndentingNewLine]", RowBox[{ RowBox[{"nj", "=", RowBox[{"Length", "[", "conj", "]"}]}], ";"}], "\[IndentingNewLine]", RowBox[{"MatrixForm", "[", RowBox[{"conn", ",", " ", RowBox[{"TableAlignments", "\[Rule]", "Left"}]}], "]"}]}], "Input", CellChangeTimes->{{3.568045828002715*^9, 3.56804588761042*^9}, 3.5680459828797874`*^9, {3.568046033938677*^9, 3.5680460518787084`*^9}, { 3.568046989190755*^9, 3.5680470284404235`*^9}, {3.568047061028881*^9, 3.568047085567724*^9}, {3.5680471562982483`*^9, 3.568047169199471*^9}, { 3.568047223393966*^9, 3.568047364059413*^9}, {3.568047417286707*^9, 3.5680474225127163`*^9}, {3.5680474583459787`*^9, 3.568047487861231*^9}, { 3.5680475345521126`*^9, 3.5680475468605347`*^9}, {3.5680479168775845`*^9, 3.5680479311516094`*^9}, {3.568048066918648*^9, 3.568048067667449*^9}, { 3.5680483816336*^9, 3.5680483930216208`*^9}, {3.568048424159275*^9, 3.568048450211321*^9}, {3.5680486326224413`*^9, 3.5680486370996494`*^9}, { 3.5680487358166227`*^9, 3.5680487967191296`*^9}, 3.568048834377596*^9, 3.568048984418659*^9, {3.5680490255559316`*^9, 3.5680490790796256`*^9}, { 3.5680491274553103`*^9, 3.5680491280949116`*^9}, {3.5680491782333994`*^9, 3.568049231944294*^9}, {3.568049361533722*^9, 3.5680493691933355`*^9}, { 3.568049422171028*^9, 3.568049427490638*^9}, {3.568049476427923*^9, 3.5680495489368505`*^9}, {3.568049620634577*^9, 3.5680496274361887`*^9}, { 3.5680496655314555`*^9, 3.568049693876705*^9}, 3.568049746573598*^9, { 3.568049846460573*^9, 3.568049932759925*^9}, {3.568050009059659*^9, 3.5680500167348723`*^9}, {3.5680501572755194`*^9, 3.568050179911159*^9}, 3.5681087021497335`*^9, {3.5726244549749556`*^9, 3.5726244687341795`*^9}, { 3.572624511540655*^9, 3.5726245129758577`*^9}, {3.5726259545431895`*^9, 3.5726259555883913`*^9}, {3.5726268385811424`*^9, 3.5726268436979513`*^9}, {3.5727156260686264`*^9, 3.5727156464110622`*^9}, 3.572767008717453*^9, 3.572767169428935*^9, {3.5727947272385855`*^9, 3.5727947348669987`*^9}}], Cell[BoxData[ RowBox[{"{", RowBox[{ "4", ",", "6", ",", "9", ",", "11", ",", "12", ",", "14", ",", "15", ",", "16", ",", "17", ",", "19"}], "}"}]], "Output", CellChangeTimes->{3.572890393941249*^9}], Cell[BoxData[ TagBox[ RowBox[{"(", "\[NoBreak]", TagBox[GridBox[{ { RowBox[{"{", RowBox[{"1", ",", "2", ",", "4", ",", "7", ",", "8"}], "}"}]}, { RowBox[{"{", RowBox[{"2", ",", "1", ",", "3", ",", "22", ",", "23"}], "}"}]}, { RowBox[{"{", RowBox[{"3", ",", "2", ",", "5", ",", "24", ",", "25"}], "}"}]}, { RowBox[{"{", RowBox[{"4", ",", "1", ",", "6", ",", "9"}], "}"}]}, { RowBox[{"{", RowBox[{"5", ",", "3", ",", "6", ",", "26", ",", "27"}], "}"}]}, { RowBox[{"{", RowBox[{"6", ",", "4", ",", "5", ",", "10"}], "}"}]}, { RowBox[{"{", RowBox[{"7", ",", "1", ",", "28", ",", "29", ",", "30"}], "}"}]}, { RowBox[{"{", RowBox[{"8", ",", "1", ",", "31", ",", "32", ",", "33"}], "}"}]}, { RowBox[{"{", RowBox[{"9", ",", "4", ",", "11", ",", "34"}], "}"}]}, { RowBox[{"{", RowBox[{"10", ",", "6", ",", "35", ",", "36", ",", "37"}], "}"}]}, { RowBox[{"{", RowBox[{"11", ",", "9", ",", "12", ",", "38"}], "}"}]}, { RowBox[{"{", RowBox[{"12", ",", "11", ",", "13", ",", "14"}], "}"}]}, { RowBox[{"{", RowBox[{"13", ",", "12", ",", "39", ",", "40", ",", "41"}], "}"}]}, { RowBox[{"{", RowBox[{"14", ",", "12", ",", "15", ",", "42"}], "}"}]}, { RowBox[{"{", RowBox[{"15", ",", "14", ",", "16", ",", "43"}], "}"}]}, { RowBox[{"{", RowBox[{"16", ",", "15", ",", "17", ",", "44"}], "}"}]}, { RowBox[{"{", RowBox[{"17", ",", "16", ",", "18", ",", "19"}], "}"}]}, { RowBox[{"{", RowBox[{"18", ",", "17", ",", "45", ",", "46", ",", "47"}], "}"}]}, { RowBox[{"{", RowBox[{"19", ",", "17", ",", "20", ",", "48"}], "}"}]}, { RowBox[{"{", RowBox[{"20", ",", "19", ",", "21", ",", "49", ",", "50"}], "}"}]}, { RowBox[{"{", RowBox[{"21", ",", "20", ",", "51"}], "}"}]}, { RowBox[{"{", RowBox[{"22", ",", "2"}], "}"}]}, { RowBox[{"{", RowBox[{"23", ",", "2"}], "}"}]}, { RowBox[{"{", RowBox[{"24", ",", "3"}], "}"}]}, { RowBox[{"{", RowBox[{"25", ",", "3"}], "}"}]}, { RowBox[{"{", RowBox[{"26", ",", "5"}], "}"}]}, { RowBox[{"{", RowBox[{"27", ",", "5"}], "}"}]}, { RowBox[{"{", RowBox[{"28", ",", "7"}], "}"}]}, { RowBox[{"{", RowBox[{"29", ",", "7"}], "}"}]}, { RowBox[{"{", RowBox[{"30", ",", "7"}], "}"}]}, { RowBox[{"{", RowBox[{"31", ",", "8"}], "}"}]}, { RowBox[{"{", RowBox[{"32", ",", "8"}], "}"}]}, { RowBox[{"{", RowBox[{"33", ",", "8"}], "}"}]}, { RowBox[{"{", RowBox[{"34", ",", "9"}], "}"}]}, { RowBox[{"{", RowBox[{"35", ",", "10"}], "}"}]}, { RowBox[{"{", RowBox[{"36", ",", "10"}], "}"}]}, { RowBox[{"{", RowBox[{"37", ",", "10"}], "}"}]}, { RowBox[{"{", RowBox[{"38", ",", "11"}], "}"}]}, { RowBox[{"{", RowBox[{"39", ",", "13"}], "}"}]}, { RowBox[{"{", RowBox[{"40", ",", "13"}], "}"}]}, { RowBox[{"{", RowBox[{"41", ",", "13"}], "}"}]}, { RowBox[{"{", RowBox[{"42", ",", "14"}], "}"}]}, { RowBox[{"{", RowBox[{"43", ",", "15"}], "}"}]}, { RowBox[{"{", RowBox[{"44", ",", "16"}], "}"}]}, { RowBox[{"{", RowBox[{"45", ",", "18"}], "}"}]}, { RowBox[{"{", RowBox[{"46", ",", "18"}], "}"}]}, { RowBox[{"{", RowBox[{"47", ",", "18"}], "}"}]}, { RowBox[{"{", RowBox[{"48", ",", "19"}], "}"}]}, { RowBox[{"{", RowBox[{"49", ",", "20"}], "}"}]}, { RowBox[{"{", RowBox[{"50", ",", "20"}], "}"}]}, { RowBox[{"{", RowBox[{"51", ",", "21"}], "}"}]} }, 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.572890393941249*^9}] }, Open ]], Cell[BoxData[{ RowBox[{ RowBox[{ RowBox[{"Clear", "[", RowBox[{ "c", ",", "v", ",", "p", ",", "Q", ",", "P", ",", "v1", ",", "v2", ",", "nk", ",", "nl"}], "]"}], ";"}], " ", RowBox[{"(*", RowBox[{ RowBox[{"c1", "=", "20"}], ";", " ", RowBox[{"c2", "=", "21"}], ";", " ", RowBox[{"c3", "=", "51"}], ";"}], "*)"}], " "}], "\[IndentingNewLine]", RowBox[{ RowBox[{"rpo", "=", "1.4"}], ";"}], "\[IndentingNewLine]", RowBox[{ RowBox[{"rpi", "=", "1.4"}], ";"}], "\[IndentingNewLine]", RowBox[{ RowBox[{"tpo", "=", RowBox[{"Table", "[", RowBox[{ RowBox[{"{", RowBox[{"0", ",", "0", ",", "0"}], "}"}], ",", RowBox[{"{", "nj", "}"}]}], "]"}]}], ";"}], "\[IndentingNewLine]", RowBox[{ RowBox[{ RowBox[{"tpu", "=", RowBox[{"Table", "[", RowBox[{ RowBox[{"{", RowBox[{"0", ",", "0", ",", "0"}], "}"}], ",", RowBox[{"{", "nj", "}"}]}], "]"}]}], ";"}], "\[IndentingNewLine]", RowBox[{"(*", RowBox[{ RowBox[{"tplo", "=", RowBox[{"{", RowBox[{"0", ",", "0", ",", "0"}], "}"}]}], ";", "\[IndentingNewLine]", RowBox[{"tplu", "=", RowBox[{"{", RowBox[{"0", ",", "0", ",", "0"}], "}"}]}], ";"}], "*)"}]}], "\[IndentingNewLine]", RowBox[{ RowBox[{ RowBox[{"P", "=", "3"}], ";", " ", RowBox[{"c", "=", RowBox[{"{", RowBox[{"0", ",", "0", ",", "0", ",", "0", ",", "0"}], "}"}]}], ";"}], " "}]}], "Input", CellChangeTimes->{{3.568108824079547*^9, 3.568109012824279*^9}, { 3.568109558076436*^9, 3.568109588168889*^9}, {3.5681097523435774`*^9, 3.5681097637783976`*^9}, {3.5681100381828794`*^9, 3.5681101616726966`*^9}, {3.5681102015307665`*^9, 3.5681102288464146`*^9}, {3.568110263743676*^9, 3.568110267331682*^9}, { 3.5681103163469687`*^9, 3.5681103268925867`*^9}, {3.5681106443375444`*^9, 3.5681106916368275`*^9}, 3.568110873002746*^9, {3.5681109388660617`*^9, 3.5681110268970165`*^9}, {3.568111092526332*^9, 3.568111123461186*^9}, { 3.5681111884196997`*^9, 3.568111192756508*^9}, {3.5681112268113675`*^9, 3.568111366213212*^9}, {3.568111434946933*^9, 3.568111463354583*^9}, { 3.568111544396725*^9, 3.568111547625931*^9}, {3.5681116856081734`*^9, 3.5681117131422215`*^9}, {3.568111864696488*^9, 3.5681119835998964`*^9}, 3.5681120218355637`*^9, {3.56811206543764*^9, 3.568112066389242*^9}, { 3.568112332369709*^9, 3.5681123404505234`*^9}, {3.568112505935614*^9, 3.56811251481203*^9}, {3.5681125623609133`*^9, 3.568112569006525*^9}, { 3.568112648067464*^9, 3.568112734210815*^9}, {3.568112764443668*^9, 3.5681127697320776`*^9}, {3.5681128018681335`*^9, 3.568112843426607*^9}, { 3.568112884641879*^9, 3.5681128887602863`*^9}, {3.5681129663080225`*^9, 3.5681129699584293`*^9}, {3.568113133789917*^9, 3.568113227936082*^9}, { 3.5681132946885996`*^9, 3.5681133044698167`*^9}, {3.568113502200164*^9, 3.568113507348173*^9}, 3.56811354556824*^9, {3.5681222886191964`*^9, 3.5681222896019983`*^9}, {3.568207424138049*^9, 3.5682074415164795`*^9}, 3.568277923134914*^9, 3.568883508322016*^9, 3.568883588350157*^9, 3.5688836441982546`*^9, {3.5703421313965206`*^9, 3.5703421386505337`*^9}, { 3.570342288098796*^9, 3.5703424924279547`*^9}, 3.5709745658726373`*^9, 3.5709746291463485`*^9, {3.5709747534473667`*^9, 3.5709747617933817`*^9}, { 3.5709749537361183`*^9, 3.570975034747061*^9}, {3.5709751055243855`*^9, 3.5709751213584127`*^9}, {3.5709751694532976`*^9, 3.570975200060551*^9}, { 3.571073358435503*^9, 3.5710734289632273`*^9}, {3.571204792969243*^9, 3.571204820940092*^9}, {3.5712048565705547`*^9, 3.571204860002561*^9}, 3.571204896881026*^9, {3.571204943556308*^9, 3.571204987485985*^9}, 3.5712053579722357`*^9, 3.5712054148187356`*^9, 3.5712055260469313`*^9, { 3.571205631237916*^9, 3.5712056608311677`*^9}, {3.571206377683627*^9, 3.5712064172296963`*^9}, {3.571206525727887*^9, 3.571206547427525*^9}, { 3.5712066764397516`*^9, 3.5712067106974115`*^9}, {3.571206757949895*^9, 3.5712067585114956`*^9}, {3.5712073458681273`*^9, 3.571207357053347*^9}, { 3.5712075532392917`*^9, 3.5712076608170805`*^9}, {3.571208007434089*^9, 3.571208247690111*^9}, {3.571208301057805*^9, 3.5712083308850574`*^9}, { 3.571208811958702*^9, 3.571208871488407*^9}, {3.5712089993618317`*^9, 3.5712089996582317`*^9}, {3.5712091105588264`*^9, 3.571209160744115*^9}, { 3.5712092989135575`*^9, 3.5712093003643603`*^9}, {3.571209369940482*^9, 3.5712093926073227`*^9}, {3.5712094586578383`*^9, 3.5712094836958823`*^9}, {3.5712104228175316`*^9, 3.571210434267952*^9}, 3.571210475358424*^9, 3.5712108629099045`*^9, {3.571210903969177*^9, 3.5712109929361334`*^9}, {3.5712110295961976`*^9, 3.5712110392214146`*^9}, {3.571211240071767*^9, 3.5712112940946617`*^9}, { 3.571211404496056*^9, 3.5712114190976815`*^9}, {3.5712115264882703`*^9, 3.5712115363942876`*^9}, {3.571211575924757*^9, 3.5712116183724318`*^9}, { 3.5712116597281046`*^9, 3.571211695062166*^9}, {3.5712117551222715`*^9, 3.5712117807531166`*^9}, {3.571211826835598*^9, 3.5712118443232284`*^9}, { 3.571211962540236*^9, 3.5712119670174437`*^9}, 3.5712123580321307`*^9, { 3.5712123994658036`*^9, 3.571212411181424*^9}, {3.5712172605092583`*^9, 3.571217297153723*^9}, {3.571223622762637*^9, 3.57122364145147*^9}, { 3.5712237454256525`*^9, 3.571223750745262*^9}, {3.571223964808838*^9, 3.571224009097316*^9}, {3.57122674689975*^9, 3.5712267784742055`*^9}, { 3.5712269848157682`*^9, 3.57122698582977*^9}, {3.5712270624259043`*^9, 3.5712270629563055`*^9}, {3.571227212438168*^9, 3.571227212999769*^9}, { 3.571227409778515*^9, 3.5712274489969835`*^9}, {3.571227502177477*^9, 3.571227514127098*^9}, {3.57122758356282*^9, 3.5712276390521173`*^9}, 3.5712276745889797`*^9, {3.571227712746647*^9, 3.5712277584703274`*^9}, { 3.5712349496076813`*^9, 3.571234988008148*^9}, {3.5712351855668955`*^9, 3.5712353359043593`*^9}, {3.5712355859883986`*^9, 3.571235653661318*^9}, { 3.5712356890109797`*^9, 3.571235702208603*^9}, {3.5712449764989214`*^9, 3.5712449799309273`*^9}, {3.5712450401778336`*^9, 3.571245051456653*^9}, { 3.5712450868687153`*^9, 3.5712450934831266`*^9}, {3.571299135517318*^9, 3.571299166342972*^9}, {3.5713069890574045`*^9, 3.5713071726697273`*^9}, { 3.571307301791154*^9, 3.571307304536759*^9}, {3.571307397731323*^9, 3.571307405702937*^9}, {3.571311846659932*^9, 3.5713118507939396`*^9}, { 3.571317129094411*^9, 3.5713171472216425`*^9}, {3.5713172653138494`*^9, 3.5713172753602676`*^9}, {3.5713216932693615`*^9, 3.5713216983081703`*^9}, {3.5713370477995405`*^9, 3.5713370593279605`*^9}, {3.571404339740199*^9, 3.5714046172178864`*^9}, { 3.571404755449729*^9, 3.571404853246301*^9}, {3.571405069743481*^9, 3.571405208989326*^9}, {3.571405268612631*^9, 3.571405277442246*^9}, { 3.5714053796536255`*^9, 3.5714054114932814`*^9}, {3.571405595448805*^9, 3.5714056194884467`*^9}, {3.5714056687221336`*^9, 3.571405677660949*^9}, 3.5714067334520035`*^9, {3.57140676532286*^9, 3.5714067706580687`*^9}, { 3.571406950729185*^9, 3.571406989495253*^9}, {3.5714071848855963`*^9, 3.571407190579606*^9}, 3.5714072350240846`*^9, {3.571412503236558*^9, 3.5714125080413666`*^9}, {3.571412540879424*^9, 3.571412607787942*^9}, { 3.571412668378448*^9, 3.5714128101202965`*^9}, {3.5714128643147917`*^9, 3.571412873862009*^9}, {3.571412908150869*^9, 3.57141290869687*^9}, { 3.571413012374652*^9, 3.5714130213290677`*^9}, {3.571413054603926*^9, 3.5714130713583555`*^9}, 3.5714133323156137`*^9, {3.571730171730853*^9, 3.571730182494872*^9}, {3.5717303501171665`*^9, 3.5717303600855846`*^9}, { 3.5717305482375145`*^9, 3.5717305527147226`*^9}, {3.571760865342704*^9, 3.5717608700695124`*^9}, {3.57176111957635*^9, 3.5717611228835564`*^9}, 3.571761174316847*^9, {3.5717620076459103`*^9, 3.571762008441512*^9}, { 3.571765525077688*^9, 3.571765573718574*^9}, {3.572601603410675*^9, 3.572601639665139*^9}, {3.57260238631365*^9, 3.5726023989340725`*^9}, 3.5726046985809116`*^9, {3.5726052623971024`*^9, 3.572605269729115*^9}, { 3.572606450370389*^9, 3.5726064833176465`*^9}, {3.5726065169513054`*^9, 3.572606523955718*^9}, {3.5726066452459307`*^9, 3.572606662468361*^9}, { 3.5726068118542233`*^9, 3.5726068309330573`*^9}, {3.5726082044218693`*^9, 3.5726082108178806`*^9}, {3.5726129520308228`*^9, 3.5726129692220526`*^9}, {3.5726130228861475`*^9, 3.5726130532750006`*^9}, {3.572624083881504*^9, 3.572624093631521*^9}, { 3.5726247901883445`*^9, 3.572624801233164*^9}, {3.5726249931759005`*^9, 3.572625014937939*^9}, {3.572626882386019*^9, 3.5726268865668263`*^9}, { 3.5726673740642943`*^9, 3.572667386154316*^9}, {3.572707186162225*^9, 3.5727071892978306`*^9}, {3.5727073766385593`*^9, 3.5727073777617617`*^9}, 3.5727091442464643`*^9, 3.572709305488347*^9, {3.5727105300904984`*^9, 3.5727105312605004`*^9}, 3.5727107350904584`*^9, 3.5727108467086544`*^9, 3.572710916331577*^9, {3.5728420867264705`*^9, 3.5728421164913225`*^9}, { 3.572850453192765*^9, 3.5728504884332275`*^9}}], Cell[BoxData[ RowBox[{ RowBox[{"Do", "[", RowBox[{ RowBox[{"(", RowBox[{ RowBox[{"c", "=", RowBox[{"conn", "[", RowBox[{"[", RowBox[{"conj", "[", RowBox[{"[", "k", "]"}], "]"}], "]"}], "]"}]}], ";", "\[IndentingNewLine]", RowBox[{"c", "=", RowBox[{"Take", "[", RowBox[{"c", ",", "P"}], "]"}]}], ";", RowBox[{"v", "=", RowBox[{"Table", "[", RowBox[{ RowBox[{"Join", "[", RowBox[{ RowBox[{"t", "[", RowBox[{"[", RowBox[{"c", "[", RowBox[{"[", "i", "]"}], "]"}], "]"}], "]"}], ",", RowBox[{"{", "1", "}"}]}], "]"}], ",", RowBox[{"{", RowBox[{"i", ",", "1", ",", "P"}], "}"}]}], "]"}]}], ";", "\[IndentingNewLine]", RowBox[{"x2", "=", RowBox[{"t", "[", RowBox[{"[", RowBox[{ RowBox[{"c", "[", RowBox[{"[", "2", "]"}], "]"}], ",", "1"}], "]"}], "]"}]}], ";", RowBox[{"y2", "=", RowBox[{"t", "[", RowBox[{"[", RowBox[{ RowBox[{"c", "[", RowBox[{"[", "2", "]"}], "]"}], ",", "2"}], "]"}], "]"}]}], ";", RowBox[{"z2", "=", RowBox[{"t", "[", RowBox[{"[", RowBox[{ RowBox[{"c", "[", RowBox[{"[", "2", "]"}], "]"}], ",", "3"}], "]"}], "]"}]}], ";", "\n", RowBox[{"Q", "=", RowBox[{"{", RowBox[{ RowBox[{"{", RowBox[{"1", ",", "0", ",", "0", ",", "0"}], "}"}], ",", RowBox[{"{", RowBox[{"0", ",", "1", ",", "0", ",", "0"}], "}"}], ",", RowBox[{"{", RowBox[{"0", ",", "0", ",", "1", ",", "0"}], "}"}], ",", RowBox[{"{", RowBox[{ RowBox[{"-", "x2"}], ",", RowBox[{"-", "y2"}], ",", RowBox[{"-", "z2"}], ",", "1"}], "}"}]}], "}"}]}], ";", "\n", RowBox[{"p", "=", RowBox[{"v", ".", "Q"}]}], ";", RowBox[{"p", "=", RowBox[{"Table", "[", RowBox[{ RowBox[{"Take", "[", RowBox[{ RowBox[{"p", "[", RowBox[{"[", "i", "]"}], "]"}], ",", "3"}], "]"}], ",", RowBox[{"{", RowBox[{"i", ",", "1", ",", "P"}], "}"}]}], "]"}]}], ";", "\n", RowBox[{"T1", "=", RowBox[{"ArcTan", "[", RowBox[{ RowBox[{"p", "[", RowBox[{"[", RowBox[{"1", ",", "3"}], "]"}], "]"}], "/", RowBox[{"p", "[", RowBox[{"[", RowBox[{"1", ",", "2"}], "]"}], "]"}]}], "]"}]}], ";", "\n", RowBox[{"U", "=", "p"}], ";", RowBox[{"T", "=", RowBox[{"RotationMatrix", "[", RowBox[{"T1", ",", RowBox[{"{", RowBox[{"1", ",", "0", ",", "0"}], "}"}]}], "]"}]}], ";", RowBox[{"p", "=", RowBox[{"U", ".", "T"}]}], ";", "\n", RowBox[{"T2", "=", RowBox[{"ArcTan", "[", RowBox[{ RowBox[{"p", "[", RowBox[{"[", RowBox[{"1", ",", "2"}], "]"}], "]"}], "/", RowBox[{"p", "[", RowBox[{"[", RowBox[{"1", ",", "1"}], "]"}], "]"}]}], "]"}]}], ";", "\n", RowBox[{"U", "=", "p"}], ";", RowBox[{"T", "=", RowBox[{"RotationMatrix", "[", RowBox[{"T2", ",", RowBox[{"{", RowBox[{"0", ",", "0", ",", "1"}], "}"}]}], "]"}]}], ";", RowBox[{"p", "=", RowBox[{"U", ".", "T"}]}], ";", "\n", RowBox[{"T3", "=", RowBox[{"ArcTan", "[", RowBox[{ RowBox[{"p", "[", RowBox[{"[", RowBox[{"3", ",", "3"}], "]"}], "]"}], "/", RowBox[{"p", "[", RowBox[{"[", RowBox[{"3", ",", "2"}], "]"}], "]"}]}], "]"}]}], ";", "\n", RowBox[{"U", "=", "p"}], ";", RowBox[{"T", "=", RowBox[{"RotationMatrix", "[", RowBox[{"T3", ",", RowBox[{"{", RowBox[{"1", ",", "0", ",", "0"}], "}"}]}], "]"}]}], ";", RowBox[{"p", "=", RowBox[{"Chop", "[", RowBox[{"U", ".", "T"}], "]"}]}], ";", "\n", RowBox[{"nk", "=", "p"}], ";", RowBox[{"nl", "=", "p"}], ";", RowBox[{ RowBox[{"nk", "[", RowBox[{"[", RowBox[{"1", ",", "3"}], "]"}], "]"}], "=", "rpo"}], ";", RowBox[{ RowBox[{"nl", "[", RowBox[{"[", RowBox[{"1", ",", "3"}], "]"}], "]"}], "=", RowBox[{"-", "rpi"}]}], ";", "\n", RowBox[{"U", "=", "p"}], ";", RowBox[{"U1", "=", "nk"}], ";", RowBox[{"U2", "=", "nl"}], ";", RowBox[{"T", "=", RowBox[{"RotationMatrix", "[", RowBox[{ RowBox[{"-", "T3"}], ",", RowBox[{"{", RowBox[{"1", ",", "0", ",", "0"}], "}"}]}], "]"}]}], ";", RowBox[{"p", "=", RowBox[{"U", ".", "T"}]}], ";", RowBox[{"nk", "=", RowBox[{"U1", ".", "T"}]}], ";", RowBox[{"nl", "=", RowBox[{"U2", ".", "T"}]}], ";", "\n", RowBox[{"U", "=", "p"}], ";", RowBox[{"U1", "=", "nk"}], ";", RowBox[{"U2", "=", "nl"}], ";", RowBox[{"T", "=", RowBox[{"RotationMatrix", "[", RowBox[{ RowBox[{"-", "T2"}], ",", RowBox[{"{", RowBox[{"0", ",", "0", ",", "1"}], "}"}]}], "]"}]}], ";", RowBox[{"p", "=", RowBox[{"U", ".", "T"}]}], ";", RowBox[{"nk", "=", RowBox[{"U1", ".", "T"}]}], ";", RowBox[{"nl", "=", RowBox[{"U2", ".", "T"}]}], ";", "\n", RowBox[{"U", "=", "p"}], ";", RowBox[{"U1", "=", "nk"}], ";", RowBox[{"U2", "=", "nl"}], ";", RowBox[{"T", "=", RowBox[{"RotationMatrix", "[", RowBox[{ RowBox[{"-", "T1"}], ",", RowBox[{"{", RowBox[{"1", ",", "0", ",", "0"}], "}"}]}], "]"}]}], ";", RowBox[{"p", "=", RowBox[{"U", ".", "T"}]}], ";", RowBox[{"nk", "=", RowBox[{"U1", ".", "T"}]}], ";", RowBox[{"nl", "=", RowBox[{"U2", ".", "T"}]}], ";", "\[IndentingNewLine]", RowBox[{"v", " ", "=", RowBox[{"Table", "[", RowBox[{ RowBox[{"Join", "[", RowBox[{ RowBox[{"p", "[", RowBox[{"[", "i", "]"}], "]"}], ",", RowBox[{"{", "1", "}"}]}], "]"}], ",", RowBox[{"{", RowBox[{"i", ",", "1", ",", "P"}], "}"}]}], "]"}]}], ";", RowBox[{"v1", "=", RowBox[{"Table", "[", RowBox[{ RowBox[{"Join", "[", RowBox[{ RowBox[{"nk", "[", RowBox[{"[", "i", "]"}], "]"}], ",", RowBox[{"{", "1", "}"}]}], "]"}], ",", RowBox[{"{", RowBox[{"i", ",", "1", ",", "P"}], "}"}]}], "]"}]}], ";", RowBox[{"v2", "=", RowBox[{"Table", "[", RowBox[{ RowBox[{"Join", "[", RowBox[{ RowBox[{"nl", "[", RowBox[{"[", "i", "]"}], "]"}], ",", RowBox[{"{", "1", "}"}]}], "]"}], ",", RowBox[{"{", RowBox[{"i", ",", "1", ",", "P"}], "}"}]}], "]"}]}], ";", "\n", RowBox[{"Q", "=", RowBox[{"{", RowBox[{ RowBox[{"{", RowBox[{"1", ",", "0", ",", "0", ",", "0"}], "}"}], ",", RowBox[{"{", RowBox[{"0", ",", "1", ",", "0", ",", "0"}], "}"}], ",", RowBox[{"{", RowBox[{"0", ",", "0", ",", "1", ",", "0"}], "}"}], ",", RowBox[{"{", RowBox[{"x2", ",", "y2", ",", "z2", ",", "1"}], "}"}]}], "}"}]}], ";", "\[IndentingNewLine]", RowBox[{"p", "=", RowBox[{"v", ".", "Q"}]}], ";", RowBox[{"nk", "=", RowBox[{"v1", ".", "Q"}]}], ";", RowBox[{"nl", "=", RowBox[{"v2", ".", "Q"}]}], ";", RowBox[{"p", "=", RowBox[{"Table", "[", RowBox[{ RowBox[{"Take", "[", RowBox[{ RowBox[{"p", "[", RowBox[{"[", "i", "]"}], "]"}], ",", "3"}], "]"}], ",", RowBox[{"{", RowBox[{"i", ",", "1", ",", "P"}], "}"}]}], "]"}]}], ";", RowBox[{"nk", "=", RowBox[{"Table", "[", RowBox[{ RowBox[{"Take", "[", RowBox[{ RowBox[{"nk", "[", RowBox[{"[", "i", "]"}], "]"}], ",", "3"}], "]"}], ",", RowBox[{"{", RowBox[{"i", ",", "1", ",", "P"}], "}"}]}], "]"}]}], ";", RowBox[{"nl", "=", RowBox[{"Table", "[", RowBox[{ RowBox[{"Take", "[", RowBox[{ RowBox[{"nl", "[", RowBox[{"[", "i", "]"}], "]"}], ",", "3"}], "]"}], ",", RowBox[{"{", RowBox[{"i", ",", "1", ",", "P"}], "}"}]}], "]"}]}], ";", RowBox[{ RowBox[{"tpo", "[", RowBox[{"[", "k", "]"}], "]"}], "=", RowBox[{"nk", "[", RowBox[{"[", "1", "]"}], "]"}]}], ";", RowBox[{ RowBox[{"tpu", "[", RowBox[{"[", "k", "]"}], "]"}], "=", RowBox[{"nl", "[", RowBox[{"[", "1", "]"}], "]"}]}]}], ")"}], ",", RowBox[{"{", RowBox[{"k", ",", "nj"}], "}"}]}], "]"}], ";"}]], "Input", CellChangeTimes->{{3.572794697520533*^9, 3.5727947043221455`*^9}, { 3.5727948024151173`*^9, 3.572794803507119*^9}, {3.5727948673580313`*^9, 3.572794869838436*^9}, {3.572795260993526*^9, 3.5727952676703377`*^9}, { 3.5727954366342344`*^9, 3.5727954702834935`*^9}, {3.5727973545484033`*^9, 3.5727973657024226`*^9}, {3.572803225319809*^9, 3.572803264553878*^9}, { 3.57280330550395*^9, 3.5728033127111626`*^9}, 3.5728033508376293`*^9, { 3.572885788984761*^9, 3.572885852305272*^9}, {3.5728861028261127`*^9, 3.5728861056965175`*^9}, {3.572886145382987*^9, 3.5728861723086343`*^9}, 3.572886207361896*^9, {3.572888289154352*^9, 3.572888309340788*^9}, { 3.5728883520848627`*^9, 3.5728885202063584`*^9}, {3.5728885907496824`*^9, 3.572888648828584*^9}, {3.5728887000590744`*^9, 3.5728887309003286`*^9}, { 3.572888789494031*^9, 3.572888866386566*^9}, {3.5728891119153976`*^9, 3.5728891132414*^9}, {3.5728900276994057`*^9, 3.5728900513334475`*^9}, 3.572890132063589*^9, {3.5728902185813413`*^9, 3.572890231342164*^9}}], Cell[CellGroupData[{ Cell[BoxData[{ RowBox[{ RowBox[{"c1", "=", RowBox[{"conn", "[", RowBox[{"[", "21", "]"}], "]"}]}], ";"}], "\n", RowBox[{"c", "=", RowBox[{"{", RowBox[{ RowBox[{"c1", "[", RowBox[{"[", "2", "]"}], "]"}], ",", RowBox[{"c1", "[", RowBox[{"[", "1", "]"}], "]"}], ",", RowBox[{"c1", "[", RowBox[{"[", "3", "]"}], "]"}]}], "}"}]}], "\n", RowBox[{ RowBox[{"rlo", "=", "1.125"}], ";"}], "\[IndentingNewLine]", RowBox[{ RowBox[{"a1", "=", RowBox[{"dc", "[", RowBox[{"[", RowBox[{"21", ",", "51"}], "]"}], "]"}]}], ";", " ", RowBox[{"a2", "=", RowBox[{"dc", "[", RowBox[{"[", RowBox[{"20", ",", "21"}], "]"}], "]"}]}], ";", " ", RowBox[{"d1", "=", RowBox[{"dc", "[", RowBox[{"[", RowBox[{"20", ",", "51"}], "]"}], "]"}]}], ";"}], "\[IndentingNewLine]", RowBox[{ RowBox[{"\[Alpha]", "=", RowBox[{"ArcCos", "[", RowBox[{ RowBox[{"(", RowBox[{ RowBox[{"a1", "^", "2"}], "+", RowBox[{"a2", "^", "2"}], "-", RowBox[{"d1", "^", "2"}]}], ")"}], "/", RowBox[{"(", RowBox[{"2", "*", "a1", "*", "a2"}], ")"}]}], "]"}]}], ";"}], "\[IndentingNewLine]", RowBox[{ RowBox[{"\[Beta]", "=", RowBox[{"ArcSin", "[", RowBox[{"rlo", "/", RowBox[{"(", RowBox[{ RowBox[{"u2", "[", RowBox[{"[", "21", "]"}], "]"}], "+", "rlo"}], ")"}]}], "]"}]}], ";"}], "\[IndentingNewLine]", RowBox[{ RowBox[{"\[Gamma]", "=", RowBox[{ RowBox[{"\[Pi]", "/", "2"}], "-", RowBox[{"\[Alpha]", "/", "2"}]}]}], ";"}], "\[IndentingNewLine]", RowBox[{ RowBox[{ RowBox[{"L", "=", RowBox[{ RowBox[{"(", RowBox[{ RowBox[{"u2", "[", RowBox[{"[", "21", "]"}], "]"}], "+", "rlo"}], ")"}], "*", RowBox[{"Cos", "[", "\[Beta]", "]"}]}]}], ";"}], "\[IndentingNewLine]", RowBox[{"(*", RowBox[{ RowBox[{"c", "=", RowBox[{"Take", "[", RowBox[{"c", ",", "P"}], "]"}]}], ";"}], "*)"}]}], "\[IndentingNewLine]", RowBox[{ RowBox[{"v", "=", RowBox[{"Table", "[", RowBox[{ RowBox[{"Join", "[", RowBox[{ RowBox[{"t", "[", RowBox[{"[", RowBox[{"c", "[", RowBox[{"[", "i", "]"}], "]"}], "]"}], "]"}], ",", RowBox[{"{", "1", "}"}]}], "]"}], ",", RowBox[{"{", RowBox[{"i", ",", "1", ",", "P"}], "}"}]}], "]"}]}], ";"}], "\n", RowBox[{ RowBox[{"x2", "=", RowBox[{"t", "[", RowBox[{"[", RowBox[{ RowBox[{"c", "[", RowBox[{"[", "2", "]"}], "]"}], ",", "1"}], "]"}], "]"}]}], ";"}], "\[IndentingNewLine]", RowBox[{ RowBox[{ RowBox[{"y2", "=", RowBox[{"t", "[", RowBox[{"[", RowBox[{ RowBox[{"c", "[", RowBox[{"[", "2", "]"}], "]"}], ",", "2"}], "]"}], "]"}]}], ";"}], " "}], "\[IndentingNewLine]", RowBox[{ RowBox[{"z2", "=", RowBox[{"t", "[", RowBox[{"[", RowBox[{ RowBox[{"c", "[", RowBox[{"[", "2", "]"}], "]"}], ",", "3"}], "]"}], "]"}]}], ";"}], "\[IndentingNewLine]", RowBox[{ RowBox[{"Q", "=", RowBox[{"{", RowBox[{ RowBox[{"{", RowBox[{"1", ",", "0", ",", "0", ",", "0"}], "}"}], ",", "\[IndentingNewLine]", RowBox[{"{", RowBox[{"0", ",", "1", ",", "0", ",", "0"}], "}"}], ",", "\[IndentingNewLine]", RowBox[{"{", RowBox[{"0", ",", "0", ",", "1", ",", "0"}], "}"}], ",", "\[IndentingNewLine]", RowBox[{"{", RowBox[{ RowBox[{"-", "x2"}], ",", RowBox[{"-", "y2"}], ",", RowBox[{"-", "z2"}], ",", "1"}], "}"}]}], "}"}]}], ";"}], "\n", RowBox[{ RowBox[{"p", "=", RowBox[{"v", ".", "Q"}]}], ";"}], "\[IndentingNewLine]", RowBox[{ RowBox[{"p", "=", RowBox[{"Table", "[", RowBox[{ RowBox[{"Take", "[", RowBox[{ RowBox[{"p", "[", RowBox[{"[", "i", "]"}], "]"}], ",", "3"}], "]"}], ",", RowBox[{"{", RowBox[{"i", ",", "1", ",", "P"}], "}"}]}], "]"}]}], ";"}], "\n", RowBox[{ RowBox[{"T1", "=", RowBox[{"ArcTan", "[", RowBox[{ RowBox[{"p", "[", RowBox[{"[", RowBox[{"1", ",", "3"}], "]"}], "]"}], "/", RowBox[{"p", "[", RowBox[{"[", RowBox[{"1", ",", "2"}], "]"}], "]"}]}], "]"}]}], ";"}], "\n", RowBox[{ RowBox[{"U", "=", "p"}], ";"}], "\n", RowBox[{ RowBox[{"T", "=", RowBox[{"RotationMatrix", "[", RowBox[{"T1", ",", RowBox[{"{", RowBox[{"1", ",", "0", ",", "0"}], "}"}]}], "]"}]}], ";"}], "\[IndentingNewLine]", RowBox[{ RowBox[{"p", "=", RowBox[{"U", ".", "T"}]}], ";"}], "\n", RowBox[{ RowBox[{"T2", "=", RowBox[{"ArcTan", "[", RowBox[{ RowBox[{"p", "[", RowBox[{"[", RowBox[{"1", ",", "2"}], "]"}], "]"}], "/", RowBox[{"p", "[", RowBox[{"[", RowBox[{"1", ",", "1"}], "]"}], "]"}]}], "]"}]}], ";"}], "\n", RowBox[{ RowBox[{"U", "=", "p"}], ";"}], "\[IndentingNewLine]", RowBox[{ RowBox[{"T", "=", RowBox[{"RotationMatrix", "[", RowBox[{"T2", ",", RowBox[{"{", RowBox[{"0", ",", "0", ",", "1"}], "}"}]}], "]"}]}], ";"}], "\[IndentingNewLine]", RowBox[{ RowBox[{"p", "=", RowBox[{"U", ".", "T"}]}], ";"}], "\n", RowBox[{ RowBox[{"T3", "=", RowBox[{"ArcTan", "[", RowBox[{ RowBox[{"p", "[", RowBox[{"[", RowBox[{"3", ",", "3"}], "]"}], "]"}], "/", RowBox[{"p", "[", RowBox[{"[", RowBox[{"3", ",", "2"}], "]"}], "]"}]}], "]"}]}], ";"}], "\n", RowBox[{ RowBox[{"U", "=", "p"}], ";"}], "\n", RowBox[{ RowBox[{"T", "=", RowBox[{"RotationMatrix", "[", RowBox[{"T3", ",", RowBox[{"{", RowBox[{"1", ",", "0", ",", "0"}], "}"}]}], "]"}]}], ";"}], "\[IndentingNewLine]", RowBox[{ RowBox[{"p", "=", RowBox[{"Chop", "[", RowBox[{"U", ".", "T"}], "]"}]}], ";"}], "\n", RowBox[{ RowBox[{"nk", "=", "p"}], ";"}], "\[IndentingNewLine]", RowBox[{ RowBox[{"nl", "=", "p"}], ";"}], "\[IndentingNewLine]", RowBox[{ RowBox[{ RowBox[{ RowBox[{"nk", "[", RowBox[{"[", RowBox[{"2", ",", "1"}], "]"}], "]"}], "=", RowBox[{ RowBox[{"-", "L"}], "*", RowBox[{"Sin", "[", "\[Gamma]", "]"}]}]}], ";", " ", RowBox[{ RowBox[{"nk", "[", RowBox[{"[", RowBox[{"2", ",", "2"}], "]"}], "]"}], "=", RowBox[{"L", "*", RowBox[{"Cos", "[", "\[Gamma]", "]"}]}]}], ";", " ", RowBox[{ RowBox[{"nk", "[", RowBox[{"[", RowBox[{"2", ",", "3"}], "]"}], "]"}], "=", "rlo"}], ";"}], " "}], "\[IndentingNewLine]", RowBox[{ RowBox[{ RowBox[{"nl", "[", RowBox[{"[", RowBox[{"2", ",", "1"}], "]"}], "]"}], "=", RowBox[{"nk", "[", RowBox[{"[", RowBox[{"2", ",", "1"}], "]"}], "]"}]}], ";", " ", RowBox[{ RowBox[{"nl", "[", RowBox[{"[", RowBox[{"2", ",", "2"}], "]"}], "]"}], "=", RowBox[{"nk", "[", RowBox[{"[", RowBox[{"2", ",", "2"}], "]"}], "]"}]}], ";", " ", RowBox[{ RowBox[{"nl", "[", RowBox[{"[", RowBox[{"2", ",", "3"}], "]"}], "]"}], "=", RowBox[{"-", "rlo"}]}], ";"}], "\[IndentingNewLine]", RowBox[{ RowBox[{"Plota", " ", "=", " ", RowBox[{"Table", "[", RowBox[{ RowBox[{"Graphics3D", "[", RowBox[{"{", RowBox[{ RowBox[{"Opacity", "[", "0.7", "]"}], ",", 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.03"}], "]"}], "}"}], "]"}], ",", RowBox[{"{", RowBox[{"i", ",", "1", ",", RowBox[{"P", "-", "1"}]}], "}"}], ",", RowBox[{"{", RowBox[{"j", ",", RowBox[{"i", "+", "1"}], ",", "P"}], "}"}]}], "]"}]}], ";"}], "\[IndentingNewLine]", RowBox[{ RowBox[{"Plotd", "=", RowBox[{"Graphics3D", "[", RowBox[{"{", RowBox[{ RowBox[{"Opacity", "[", "0.2", "]"}], ",", RowBox[{"Lighter", "[", "Red", "]"}], ",", RowBox[{"Sphere", "[", RowBox[{ RowBox[{"nk", "[", RowBox[{"[", "2", "]"}], "]"}], ",", "rlo"}], "]"}]}], "}"}], "]"}]}], ";"}], "\[IndentingNewLine]", RowBox[{ RowBox[{"Plote", "=", RowBox[{"Graphics3D", "[", RowBox[{"{", RowBox[{ RowBox[{"Opacity", "[", "0.2", "]"}], ",", RowBox[{"Lighter", "[", "Red", "]"}], ",", RowBox[{"Sphere", "[", RowBox[{ RowBox[{"nl", "[", RowBox[{"[", "2", "]"}], "]"}], ",", "rlo"}], "]"}]}], "}"}], "]"}]}], ";"}], "\[IndentingNewLine]", 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[{"Plot3a", "=", " ", RowBox[{"Graphics3D", "[", RowBox[{"Tube", "[", RowBox[{ RowBox[{"{", RowBox[{ RowBox[{"p", "[", RowBox[{"[", "2", "]"}], "]"}], ",", RowBox[{"nk", "[", RowBox[{"[", "2", "]"}], "]"}]}], "}"}], ",", "0.03"}], "]"}], "]"}]}], ";"}], "\[IndentingNewLine]", RowBox[{ RowBox[{"Plot3b", "=", " ", RowBox[{"Graphics3D", "[", RowBox[{"Tube", "[", RowBox[{ RowBox[{"{", RowBox[{ RowBox[{"p", "[", RowBox[{"[", "2", "]"}], "]"}], ",", RowBox[{"nl", "[", RowBox[{"[", "2", "]"}], "]"}]}], "}"}], ",", "0.03"}], "]"}], "]"}]}], ";"}], "\[IndentingNewLine]", RowBox[{"Show", "[", RowBox[{ "Plotd", ",", "Plote", ",", "Plota", ",", "Plotb0", ",", "Plot3a", ",", "Plot3b", ",", "Plotc", ",", RowBox[{"{", RowBox[{ RowBox[{"Axes", "\[Rule]", "Automatic"}], ",", RowBox[{"AxesLabel", "\[Rule]", RowBox[{"{", RowBox[{"xl", ",", "yl", ",", "zl"}], "}"}]}], ",", RowBox[{"AspectRatio", "\[Rule]", "Automatic"}], ",", RowBox[{"Boxed", "\[Rule]", "True"}], ",", RowBox[{"PlotRange", "\[Rule]", "All"}], ",", " ", RowBox[{"SphericalRegion", "\[Rule]", "True"}]}], "}"}]}], "]"}], "\n", RowBox[{ RowBox[{"U", "=", "p"}], ";"}], "\n", RowBox[{ RowBox[{"U1", "=", "nk"}], ";"}], "\[IndentingNewLine]", RowBox[{ RowBox[{"U2", "=", "nl"}], ";"}], "\[IndentingNewLine]", RowBox[{ RowBox[{"T", "=", RowBox[{"RotationMatrix", "[", RowBox[{ RowBox[{"-", "T3"}], ",", RowBox[{"{", RowBox[{"1", ",", "0", ",", "0"}], "}"}]}], "]"}]}], ";"}], "\[IndentingNewLine]", RowBox[{ RowBox[{"p", "=", RowBox[{"U", ".", "T"}]}], ";"}], "\n", RowBox[{ RowBox[{"nk", "=", RowBox[{"U1", ".", "T"}]}], ";"}], "\[IndentingNewLine]", RowBox[{ RowBox[{"nl", "=", RowBox[{"U2", ".", "T"}]}], ";"}], "\n", RowBox[{ RowBox[{"U", "=", "p"}], ";"}], "\n", RowBox[{ RowBox[{"U1", "=", "nk"}], ";"}], "\[IndentingNewLine]", RowBox[{ RowBox[{"U2", "=", "nl"}], ";"}], "\[IndentingNewLine]", RowBox[{ RowBox[{"T", "=", RowBox[{"RotationMatrix", "[", RowBox[{ RowBox[{"-", "T2"}], ",", RowBox[{"{", RowBox[{"0", ",", "0", ",", "1"}], "}"}]}], "]"}]}], ";"}], "\[IndentingNewLine]", RowBox[{ RowBox[{"p", "=", RowBox[{"U", ".", "T"}]}], ";"}], "\n", RowBox[{ RowBox[{"nk", "=", RowBox[{"U1", ".", "T"}]}], ";"}], "\[IndentingNewLine]", RowBox[{ RowBox[{"nl", "=", RowBox[{"U2", ".", "T"}]}], ";"}], "\n", RowBox[{ RowBox[{"U", "=", "p"}], ";"}], "\n", RowBox[{ RowBox[{"U1", "=", "nk"}], ";"}], "\[IndentingNewLine]", RowBox[{ RowBox[{"U2", "=", "nl"}], ";"}], "\[IndentingNewLine]", RowBox[{ RowBox[{"T", "=", RowBox[{"RotationMatrix", "[", RowBox[{ RowBox[{"-", "T1"}], ",", RowBox[{"{", RowBox[{"1", ",", "0", ",", "0"}], "}"}]}], "]"}]}], ";"}], "\[IndentingNewLine]", RowBox[{ RowBox[{"p", "=", RowBox[{"U", ".", "T"}]}], ";"}], "\n", RowBox[{ RowBox[{"nk", "=", RowBox[{"U1", ".", "T"}]}], ";"}], "\[IndentingNewLine]", RowBox[{ RowBox[{"nl", "=", RowBox[{"U2", ".", "T"}]}], ";"}], "\n", RowBox[{ RowBox[{"Clear", "[", RowBox[{"v", ",", "v1", ",", "v2"}], "]"}], ";"}], "\[IndentingNewLine]", RowBox[{ RowBox[{"v", " ", "=", RowBox[{"Table", "[", RowBox[{ RowBox[{"Join", "[", RowBox[{ RowBox[{"p", "[", RowBox[{"[", "i", "]"}], "]"}], ",", RowBox[{"{", "1", "}"}]}], "]"}], ",", RowBox[{"{", RowBox[{"i", ",", "1", ",", "P"}], "}"}]}], "]"}]}], ";"}], "\[IndentingNewLine]", RowBox[{ RowBox[{"v1", "=", RowBox[{"Table", "[", RowBox[{ RowBox[{"Join", "[", RowBox[{ RowBox[{"nk", "[", RowBox[{"[", "i", "]"}], "]"}], ",", RowBox[{"{", "1", "}"}]}], "]"}], ",", RowBox[{"{", RowBox[{"i", ",", "1", ",", "P"}], "}"}]}], "]"}]}], ";"}], "\[IndentingNewLine]", RowBox[{ RowBox[{"v2", "=", RowBox[{"Table", "[", RowBox[{ RowBox[{"Join", "[", RowBox[{ RowBox[{"nl", "[", RowBox[{"[", "i", "]"}], "]"}], ",", RowBox[{"{", "1", "}"}]}], "]"}], ",", RowBox[{"{", RowBox[{"i", ",", "1", ",", "P"}], "}"}]}], "]"}]}], ";"}], "\n", RowBox[{ RowBox[{"Q", "=", RowBox[{"{", RowBox[{ RowBox[{"{", RowBox[{"1", ",", "0", ",", "0", ",", "0"}], "}"}], ",", "\[IndentingNewLine]", RowBox[{"{", RowBox[{"0", ",", "1", ",", "0", ",", "0"}], "}"}], ",", "\[IndentingNewLine]", RowBox[{"{", RowBox[{"0", ",", "0", ",", "1", ",", "0"}], "}"}], ",", "\[IndentingNewLine]", RowBox[{"{", RowBox[{"x2", ",", "y2", ",", "z2", ",", "1"}], "}"}]}], "}"}]}], ";"}], "\[IndentingNewLine]", RowBox[{ RowBox[{"p", "=", RowBox[{"v", ".", "Q"}]}], ";"}], "\[IndentingNewLine]", RowBox[{ RowBox[{"nk", "=", RowBox[{"v1", ".", "Q"}]}], ";"}], "\[IndentingNewLine]", RowBox[{ RowBox[{"nl", "=", RowBox[{"v2", ".", "Q"}]}], ";"}], "\[IndentingNewLine]", RowBox[{ RowBox[{"p", "=", RowBox[{"Table", "[", RowBox[{ RowBox[{"Take", "[", RowBox[{ RowBox[{"p", "[", RowBox[{"[", "i", "]"}], "]"}], ",", "3"}], "]"}], ",", RowBox[{"{", RowBox[{"i", ",", "1", ",", "P"}], "}"}]}], "]"}]}], ";"}], "\[IndentingNewLine]", RowBox[{ RowBox[{"nk", "=", RowBox[{"Table", "[", RowBox[{ RowBox[{"Take", "[", RowBox[{ RowBox[{"nk", "[", RowBox[{"[", "i", "]"}], "]"}], ",", "3"}], "]"}], ",", RowBox[{"{", RowBox[{"i", ",", "1", ",", "P"}], "}"}]}], "]"}]}], ";"}], "\[IndentingNewLine]", RowBox[{ RowBox[{"nl", "=", RowBox[{"Table", "[", RowBox[{ RowBox[{"Take", "[", RowBox[{ RowBox[{"nl", "[", RowBox[{"[", "i", "]"}], "]"}], ",", "3"}], "]"}], ",", RowBox[{"{", RowBox[{"i", ",", "1", ",", "P"}], "}"}]}], "]"}]}], ";"}], "\[IndentingNewLine]", RowBox[{ RowBox[{"tplo", "=", RowBox[{"nk", "[", RowBox[{"[", "2", "]"}], "]"}]}], ";"}], "\[IndentingNewLine]", RowBox[{ RowBox[{"tplu", "=", RowBox[{"nl", "[", RowBox[{"[", "2", "]"}], "]"}]}], ";"}], "\[IndentingNewLine]", "tplo", "\[IndentingNewLine]", "tplu", "\ \[IndentingNewLine]"}], "Input", CellChangeTimes->{{3.572794697520533*^9, 3.5727947043221455`*^9}, { 3.5727948024151173`*^9, 3.572794803507119*^9}, {3.5727948673580313`*^9, 3.572794869838436*^9}, {3.572795260993526*^9, 3.5727952676703377`*^9}, { 3.5727954366342344`*^9, 3.5727954702834935`*^9}, {3.5727973545484033`*^9, 3.5727973657024226`*^9}, {3.572803225319809*^9, 3.572803264553878*^9}, { 3.57280330550395*^9, 3.5728033127111626`*^9}, 3.5728033508376293`*^9, { 3.572803528365941*^9, 3.5728035301443443`*^9}, {3.572803715051469*^9, 3.572803769604765*^9}, {3.572840261866465*^9, 3.5728402628648667`*^9}, { 3.5728405648813972`*^9, 3.572840578905822*^9}, {3.5728406372187243`*^9, 3.572840716170463*^9}, {3.5728407476825185`*^9, 3.572840785746585*^9}, { 3.5728408298790627`*^9, 3.5728408871311636`*^9}, {3.5728409363336496`*^9, 3.572841070790286*^9}, {3.572841415987692*^9, 3.572841609740032*^9}, 3.5728416910629754`*^9, {3.5728417502806797`*^9, 3.572841879885707*^9}, { 3.572841914564568*^9, 3.5728419300709953`*^9}, {3.572841986199894*^9, 3.572842001659521*^9}, {3.5728426453322515`*^9, 3.5728426487174573`*^9}, { 3.572844776030794*^9, 3.572844786919613*^9}, {3.57284502999924*^9, 3.5728450550060835`*^9}, {3.572845459218394*^9, 3.572845496174859*^9}, { 3.5728455656105804`*^9, 3.572845617574272*^9}, {3.5728456738279705`*^9, 3.572845681440784*^9}, {3.5728457322656736`*^9, 3.572845755291314*^9}, 3.572845978356106*^9, {3.572846145151599*^9, 3.572846189096876*^9}, { 3.572846392926834*^9, 3.5728464086828613`*^9}, 3.572846518881455*^9, 3.5728469699562473`*^9, {3.5728470834620466`*^9, 3.572847089873658*^9}, { 3.572847132180932*^9, 3.5728472650151653`*^9}, 3.5728473515485177`*^9, { 3.572849422046554*^9, 3.572849426554962*^9}, {3.572849678776205*^9, 3.572849686077018*^9}, {3.5728503673146143`*^9, 3.5728503811830387`*^9}, { 3.5728505998798227`*^9, 3.572850604637831*^9}, {3.5728855843280015`*^9, 3.572885616822859*^9}, 3.572885693730994*^9, {3.5728863933454227`*^9, 3.572886404499442*^9}, 3.5728864615019426`*^9, {3.5728865549773064`*^9, 3.572886574695741*^9}, {3.57288674493884*^9, 3.572886761506069*^9}, { 3.5728868433750134`*^9, 3.5728868777730737`*^9}, {3.5728869498296003`*^9, 3.572886970967637*^9}, {3.572887082242633*^9, 3.5728871161726923`*^9}, 3.5728871675279827`*^9, {3.572887299972215*^9, 3.5728873001438155`*^9}, { 3.572887363105526*^9, 3.572887401294393*^9}, {3.5728875148313923`*^9, 3.5728875191526003`*^9}, {3.572887597995138*^9, 3.572887714324543*^9}, { 3.5728877910766773`*^9, 3.5728878814320364`*^9}, 3.572887956873769*^9, { 3.57288803751031*^9, 3.57288806580876*^9}}], Cell[BoxData[ RowBox[{"{", RowBox[{"20", ",", "21", ",", "51"}], "}"}]], "Output", CellChangeTimes->{3.5728903939880495`*^9}], Cell[BoxData[ Graphics3DBox[{ {RGBColor[1, NCache[ Rational[1, 3], 0.3333333333333333], NCache[ Rational[1, 3], 0.3333333333333333]], Opacity[0.2], SphereBox[{-0.39197710048364093`, 0.5277669492270595, 1.125}, 1.125]}, {RGBColor[1, NCache[ Rational[1, 3], 0.3333333333333333], NCache[ Rational[1, 3], 0.3333333333333333]], Opacity[0.2], SphereBox[{-0.39197710048364093`, 0.5277669492270595, -1.125}, 1.125]}, {Opacity[0.7], SphereBox[{2.700437574415364, 0, 0}, 0.255]}, {Opacity[0.7], SphereBox[{0, 0, 0}, 0.178]}, {Opacity[0.7], SphereBox[{-0.5280754835921541, -1.7494220465679622`, 0}, 0.5241]}, Text3DBox["20", {2.700437574415364, 0, 0}, {1, 0}], Text3DBox["21", {0, 0, 0}, {1, 0}], Text3DBox["51", {-0.5280754835921541, -1.7494220465679622`, 0}, {1, 0}], TubeBox[{{0, 0, 0}, {-0.39197710048364093`, 0.5277669492270595, 1.125}}, 0.03], TubeBox[{{0, 0, 0}, {-0.39197710048364093`, 0.5277669492270595, -1.125}}, 0.03], TubeBox[{{2.700437574415364, 0, 0}, {0, 0, 0}}, 0.03], TubeBox[{{ 2.700437574415364, 0, 0}, {-0.5280754835921541, -1.7494220465679622`, 0}}, 0.03], TubeBox[{{0, 0, 0}, {-0.5280754835921541, -1.7494220465679622`, 0}}, 0.03]}, AspectRatio->Automatic, Axes->Automatic, AxesLabel->{ FormBox["xl", TraditionalForm], FormBox["yl", TraditionalForm], FormBox["zl", TraditionalForm]}, Boxed->True, PlotRange->All, SphericalRegion->True]], "Output", CellChangeTimes->{3.5728903940036497`*^9}], Cell[BoxData[ RowBox[{"{", RowBox[{ RowBox[{"-", "15.117612717731944`"}], ",", "0.8239130912956434`", ",", RowBox[{"-", "7.492770378304183`"}]}], "}"}]], "Output", CellChangeTimes->{3.57289039401925*^9}], Cell[BoxData[ RowBox[{"{", RowBox[{ RowBox[{"-", "13.6335469032603`"}], ",", RowBox[{"-", "0.3184582136970856`"}], ",", RowBox[{"-", "8.739781388618775`"}]}], "}"}]], "Output", CellChangeTimes->{3.57289039401925*^9}] }, Open ]], Cell[BoxData[{ RowBox[{ RowBox[{"DeleteFile", "[", " ", "\"\\"", "]"}], ";"}], "\[IndentingNewLine]", RowBox[{"For", "[", RowBox[{ RowBox[{"i", "=", "2"}], ",", RowBox[{"i", "<", RowBox[{"n", "+", "2"}]}], ",", RowBox[{"i", "++"}], ",", "\[IndentingNewLine]", RowBox[{"For", "[", RowBox[{ RowBox[{"j", "=", "2"}], ",", RowBox[{"j", "\[LessEqual]", "i"}], ",", RowBox[{"j", "++"}], ",", "\[IndentingNewLine]", RowBox[{"If", "[", RowBox[{ RowBox[{ RowBox[{"Pij", "[", RowBox[{"[", RowBox[{"i", ",", "j"}], "]"}], "]"}], ">", "0"}], ",", RowBox[{ RowBox[{"{", RowBox[{ RowBox[{"i", "-", "1"}], ",", RowBox[{"j", "-", "1"}], ",", RowBox[{"Extract", "[", RowBox[{"Pij", ",", RowBox[{"{", RowBox[{"i", ",", "j"}], "}"}]}], "]"}]}], "}"}], ">>>", " ", "\"\\""}]}], "]"}]}], "]"}]}], "]"}]}], "Input", CellChangeTimes->{{3.5681154444347754`*^9, 3.568115497147268*^9}, { 3.568127214924899*^9, 3.568127265796589*^9}, {3.568128215276656*^9, 3.568128238536297*^9}, {3.568130718566253*^9, 3.5681307485339055`*^9}, 3.5681308175952272`*^9, {3.5681308916497574`*^9, 3.5681309458598523`*^9}, { 3.5681309983383446`*^9, 3.5681310118947687`*^9}, {3.5681310723448744`*^9, 3.568131074357278*^9}, {3.5681315215476637`*^9, 3.568131584509374*^9}, { 3.56813162789305*^9, 3.5681316427754765`*^9}, {3.5681317113063965`*^9, 3.568131715268804*^9}, {3.5681323203938665`*^9, 3.5681323260098763`*^9}, { 3.568132387567585*^9, 3.568132440014877*^9}, {3.5681325121026034`*^9, 3.568132590945142*^9}, {3.56813274298981*^9, 3.5681327548302307`*^9}, { 3.568132877867647*^9, 3.568132888335265*^9}, {3.568133052345154*^9, 3.568133072344389*^9}, {3.5681331740533676`*^9, 3.5681331951446047`*^9}, { 3.568133267793932*^9, 3.5681332684803333`*^9}, {3.5681335079111547`*^9, 3.568133536833606*^9}, {3.5681336272201643`*^9, 3.5681336314945717`*^9}, { 3.568133737994359*^9, 3.568133744000369*^9}, {3.568133978515581*^9, 3.5681339917912045`*^9}, {3.5681340324916763`*^9, 3.5681340418204927`*^9}, {3.568134244262048*^9, 3.5681342454944506`*^9}, { 3.5681343354754086`*^9, 3.568134336099409*^9}, {3.5681345828762426`*^9, 3.568134583952645*^9}, {3.5681348406666956`*^9, 3.5681348474683075`*^9}, 3.568134889151581*^9, {3.5681352914606876`*^9, 3.568135296265496*^9}, { 3.568135518877887*^9, 3.568135519595488*^9}, 3.5681357593679094`*^9, { 3.5681787035360527`*^9, 3.568178728449296*^9}, 3.5682779128076954`*^9, { 3.572714864038488*^9, 3.572714889419732*^9}, {3.5727149730514793`*^9, 3.57271500191153*^9}, {3.572715036933592*^9, 3.5727150664176435`*^9}, { 3.572715803191337*^9, 3.572715915183934*^9}, {3.5727159899548655`*^9, 3.572716037722149*^9}, {3.572767087700392*^9, 3.5727670990260115`*^9}, 3.5727756458897667`*^9, {3.5727757435615377`*^9, 3.5727758099084544`*^9}}], Cell[CellGroupData[{ Cell[BoxData[{ RowBox[{"a", "=", RowBox[{ "ReadList", "[", "\"\\"", "]"}]}], "\[IndentingNewLine]", RowBox[{"nb", "=", RowBox[{"Length", "[", "a", "]"}]}], "\[IndentingNewLine]", RowBox[{"cw", "=", RowBox[{"nb", "-", "bh"}]}]}], "Input", CellChangeTimes->{{3.5681343270045934`*^9, 3.568134331481801*^9}, 3.5681343823222904`*^9, {3.5681345934218616`*^9, 3.5681345986322703`*^9}, { 3.568134635479535*^9, 3.5681346521559644`*^9}, {3.5681351451792307`*^9, 3.568135145428831*^9}, {3.5681351781888885`*^9, 3.5681352349417877`*^9}, { 3.568135340163973*^9, 3.568135340335573*^9}, {3.568135523495495*^9, 3.5681355244314966`*^9}, {3.5681357674799232`*^9, 3.5681357771675406`*^9}, {3.568136284433632*^9, 3.5681362987700567`*^9}, { 3.568136395053426*^9, 3.5681363965510283`*^9}, {3.568381170343589*^9, 3.568381179844005*^9}, {3.5689533222924633`*^9, 3.568953376658559*^9}}], Cell[BoxData[ RowBox[{"{", RowBox[{ RowBox[{"{", RowBox[{"2", ",", "1", ",", "1.1903004568009015`"}], "}"}], ",", RowBox[{"{", RowBox[{"3", ",", "2", ",", "1.1938723648075744`"}], "}"}], ",", RowBox[{"{", RowBox[{"4", ",", "1", ",", "1.1625678924767877`"}], "}"}], ",", RowBox[{"{", RowBox[{"5", ",", "3", ",", "1.1922153222488148`"}], "}"}], ",", RowBox[{"{", RowBox[{"6", ",", "4", ",", "0.9927516555891636`"}], "}"}], ",", RowBox[{"{", RowBox[{"6", ",", "5", ",", "1.162892015105526`"}], "}"}], ",", RowBox[{"{", RowBox[{"7", ",", "1", ",", "1.1904394105843248`"}], "}"}], ",", RowBox[{"{", RowBox[{"8", ",", "1", ",", "1.1905480257740177`"}], "}"}], ",", RowBox[{"{", RowBox[{"9", ",", "4", ",", "1.1253183349388942`"}], "}"}], ",", RowBox[{"{", RowBox[{"10", ",", "6", ",", "1.1686678866153497`"}], "}"}], ",", RowBox[{"{", RowBox[{"11", ",", "9", ",", "1.025839738003161`"}], "}"}], ",", RowBox[{"{", RowBox[{"12", ",", "11", ",", "1.0760376752772804`"}], "}"}], ",", RowBox[{"{", RowBox[{"13", ",", "12", ",", "1.1687932099947655`"}], "}"}], ",", 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.168650063124714`"}], "}"}], ",", RowBox[{"{", RowBox[{"19", ",", "17", ",", "1.0060089697829193`"}], "}"}], ",", RowBox[{"{", RowBox[{"20", ",", "19", ",", "1.1686322579877293`"}], "}"}], ",", RowBox[{"{", RowBox[{"21", ",", "20", ",", "1.1337187872076826`"}], "}"}], ",", 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.2357130332048445`"}], "}"}], ",", RowBox[{"{", RowBox[{"31", ",", "8", ",", "1.235890354920097`"}], "}"}], ",", RowBox[{"{", RowBox[{"32", ",", "8", ",", "1.235839640489124`"}], "}"}], ",", RowBox[{"{", RowBox[{"33", ",", "8", ",", "1.2357521462040213`"}], "}"}], ",", RowBox[{"{", RowBox[{"34", ",", "9", ",", "1.2160885328938793`"}], "}"}], ",", RowBox[{"{", RowBox[{"35", ",", "10", ",", "1.2358872600617417`"}], "}"}], ",", RowBox[{"{", RowBox[{"36", ",", "10", ",", "1.2357996583165434`"}], "}"}], ",", RowBox[{"{", RowBox[{"37", ",", "10", ",", "1.2357603015255403`"}], "}"}], ",", RowBox[{"{", RowBox[{"38", ",", "11", ",", "1.215846824723846`"}], "}"}], ",", RowBox[{"{", RowBox[{"39", ",", "13", ",", "1.2357025058258968`"}], "}"}], ",", RowBox[{"{", RowBox[{"40", ",", "13", ",", "1.2357979822662262`"}], "}"}], ",", RowBox[{"{", RowBox[{"41", ",", "13", ",", "1.235767545619187`"}], "}"}], ",", RowBox[{"{", RowBox[{"42", ",", "14", ",", "1.2159849801037783`"}], "}"}], ",", RowBox[{"{", RowBox[{"43", ",", "15", ",", "1.2157337494382183`"}], "}"}], ",", RowBox[{"{", RowBox[{"44", ",", "16", ",", "1.216034289865974`"}], "}"}], ",", RowBox[{"{", RowBox[{"45", ",", "18", ",", "1.235827769989031`"}], "}"}], ",", RowBox[{"{", RowBox[{"46", ",", "18", ",", "1.2356247627619668`"}], "}"}], ",", 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.1252864433636154`"}], "}"}]}], "}"}]], "Output", CellChangeTimes->{3.5728903940504494`*^9}], Cell[BoxData["51"], "Output", CellChangeTimes->{3.5728903940504494`*^9}], Cell[BoxData["21"], "Output", CellChangeTimes->{3.5728903940660496`*^9}] }, Open ]], Cell[BoxData[{ RowBox[{ RowBox[{"wxc", "=", RowBox[{"Table", "[", RowBox[{ RowBox[{ RowBox[{ RowBox[{ RowBox[{"(", RowBox[{ RowBox[{"a", "[", RowBox[{"[", RowBox[{"i", ",", "3"}], "]"}], "]"}], "+", RowBox[{"u2", "[", RowBox[{"[", RowBox[{"a", "[", RowBox[{"[", RowBox[{"i", ",", "1"}], "]"}], "]"}], "]"}], "]"}]}], ")"}], "/", RowBox[{"(", RowBox[{ RowBox[{"u2", "[", RowBox[{"[", RowBox[{"a", "[", RowBox[{"[", RowBox[{"i", ",", "1"}], "]"}], "]"}], "]"}], "]"}], "+", RowBox[{"2", "*", RowBox[{"a", "[", RowBox[{"[", RowBox[{"i", ",", "3"}], "]"}], "]"}]}], "+", RowBox[{"u2", "[", RowBox[{"[", RowBox[{"a", "[", RowBox[{"[", RowBox[{"i", ",", "2"}], "]"}], "]"}], "]"}], "]"}]}], ")"}]}], "*", RowBox[{"(", RowBox[{ RowBox[{"x", "[", RowBox[{"[", RowBox[{"a", "[", RowBox[{"[", RowBox[{"i", ",", "2"}], "]"}], "]"}], "]"}], "]"}], "-", RowBox[{"x", "[", RowBox[{"[", RowBox[{"a", "[", RowBox[{"[", RowBox[{"i", ",", "1"}], "]"}], "]"}], "]"}], "]"}]}], ")"}]}], "+", RowBox[{"x", "[", RowBox[{"[", RowBox[{"a", "[", RowBox[{"[", RowBox[{"i", ",", "1"}], "]"}], "]"}], "]"}], "]"}]}], ",", RowBox[{"{", RowBox[{"i", ",", "1", ",", "cw"}], "}"}]}], "]"}]}], ";"}], "\n", RowBox[{ RowBox[{ RowBox[{"wyc", "=", RowBox[{"Table", "[", RowBox[{ RowBox[{ RowBox[{ RowBox[{ RowBox[{"(", RowBox[{ RowBox[{"a", "[", RowBox[{"[", RowBox[{"i", ",", "3"}], "]"}], "]"}], "+", RowBox[{"u2", "[", RowBox[{"[", RowBox[{"a", "[", RowBox[{"[", RowBox[{"i", ",", "1"}], "]"}], "]"}], "]"}], "]"}]}], ")"}], "/", RowBox[{"(", RowBox[{ RowBox[{"u2", "[", RowBox[{"[", RowBox[{"a", "[", RowBox[{"[", RowBox[{"i", ",", "1"}], "]"}], "]"}], "]"}], "]"}], "+", RowBox[{"2", "*", RowBox[{"a", "[", RowBox[{"[", RowBox[{"i", ",", "3"}], "]"}], "]"}]}], "+", RowBox[{"u2", "[", RowBox[{"[", RowBox[{"a", "[", RowBox[{"[", RowBox[{"i", ",", "2"}], "]"}], "]"}], "]"}], "]"}]}], ")"}]}], "*", RowBox[{"(", RowBox[{ RowBox[{"y", "[", RowBox[{"[", RowBox[{"a", "[", RowBox[{"[", RowBox[{"i", ",", "2"}], "]"}], "]"}], "]"}], "]"}], "-", RowBox[{"y", "[", RowBox[{"[", RowBox[{"a", "[", RowBox[{"[", RowBox[{"i", ",", "1"}], "]"}], "]"}], "]"}], "]"}]}], ")"}]}], "+", RowBox[{"y", "[", RowBox[{"[", RowBox[{"a", "[", RowBox[{"[", RowBox[{"i", ",", "1"}], "]"}], "]"}], "]"}], "]"}]}], ",", RowBox[{"{", RowBox[{"i", ",", "1", ",", "cw"}], "}"}]}], "]"}]}], ";"}], " "}], "\n", RowBox[{ RowBox[{"wzc", "=", RowBox[{"Table", "[", RowBox[{ RowBox[{ RowBox[{ RowBox[{ RowBox[{"(", RowBox[{ RowBox[{"a", "[", RowBox[{"[", RowBox[{"i", ",", "3"}], "]"}], "]"}], "+", RowBox[{"u2", "[", RowBox[{"[", RowBox[{"a", "[", RowBox[{"[", RowBox[{"i", ",", "1"}], "]"}], "]"}], "]"}], "]"}]}], ")"}], "/", RowBox[{"(", RowBox[{ RowBox[{"u2", "[", RowBox[{"[", RowBox[{"a", "[", RowBox[{"[", RowBox[{"i", ",", "1"}], "]"}], "]"}], "]"}], "]"}], "+", RowBox[{"2", "*", RowBox[{"a", "[", RowBox[{"[", RowBox[{"i", ",", "3"}], "]"}], "]"}]}], "+", RowBox[{"u2", "[", RowBox[{"[", RowBox[{"a", "[", RowBox[{"[", RowBox[{"i", ",", "2"}], "]"}], "]"}], "]"}], "]"}]}], ")"}]}], "*", RowBox[{"(", RowBox[{ RowBox[{"z", "[", RowBox[{"[", RowBox[{"a", "[", RowBox[{"[", RowBox[{"i", ",", "2"}], "]"}], "]"}], "]"}], "]"}], "-", RowBox[{"z", "[", RowBox[{"[", RowBox[{"a", "[", RowBox[{"[", RowBox[{"i", ",", "1"}], "]"}], "]"}], "]"}], "]"}]}], ")"}]}], "+", RowBox[{"z", "[", RowBox[{"[", RowBox[{"a", "[", RowBox[{"[", RowBox[{"i", ",", "1"}], "]"}], "]"}], "]"}], "]"}]}], ",", RowBox[{"{", RowBox[{"i", ",", "1", ",", "cw"}], "}"}]}], "]"}]}], ";"}]}], "Input", CellChangeTimes->{{3.5681365021632137`*^9, 3.5681365171392403`*^9}, { 3.568136560351316*^9, 3.5681365863097615`*^9}, {3.5681369135895367`*^9, 3.5681369265999594`*^9}, {3.568137821916732*^9, 3.5681378378443604`*^9}, { 3.5682072492149415`*^9, 3.5682072529901485`*^9}, 3.568209802830227*^9, { 3.5682216503836985`*^9, 3.5682217583046885`*^9}, {3.5682217912831464`*^9, 3.568221843465238*^9}, {3.5682219760654707`*^9, 3.5682221133457117`*^9}, { 3.568222159615393*^9, 3.5682221693498106`*^9}, {3.5682222565227633`*^9, 3.5682222578487663`*^9}, 3.5682224736283445`*^9, 3.5682227227607822`*^9, 3.5682227558640404`*^9, {3.568222818810151*^9, 3.5682228486062036`*^9}, { 3.5682230057764797`*^9, 3.5682230079916835`*^9}, {3.568223041952943*^9, 3.5682230548229656`*^9}, 3.5682232619601297`*^9, 3.5682233000709963`*^9, { 3.568223536645412*^9, 3.5682235381118145`*^9}, {3.568223591151908*^9, 3.568223591526308*^9}, {3.5682236491528096`*^9, 3.568223657483224*^9}, { 3.568223713222122*^9, 3.5682237532361927`*^9}, {3.568223800379475*^9, 3.568223827648323*^9}, {3.5682238887380304`*^9, 3.5682238893152313`*^9}, { 3.5682240287170763`*^9, 3.5682240612431335`*^9}, 3.5682241088076167`*^9, { 3.568224198772975*^9, 3.5682242396450467`*^9}, {3.568224282170721*^9, 3.5682243185031853`*^9}, {3.568224437890195*^9, 3.568224439590598*^9}, { 3.568224572253231*^9, 3.5682245867144566`*^9}, {3.5682247081762695`*^9, 3.568224733557514*^9}, {3.56822480520844*^9, 3.5682248433505073`*^9}, { 3.568224884206979*^9, 3.5682248959069996`*^9}, {3.568224982830352*^9, 3.5682250047639904`*^9}, {3.56822503870965*^9, 3.5682250803305235`*^9}, { 3.5682251223413973`*^9, 3.568225141451431*^9}, {3.568225234177994*^9, 3.5682252929588966`*^9}, {3.5682253775890455`*^9, 3.568225482140429*^9}, { 3.56822551694409*^9, 3.5682255297205124`*^9}, {3.568225573197789*^9, 3.5682255809666023`*^9}, 3.568225660698343*^9, 3.5682257301964645`*^9, { 3.568225765078126*^9, 3.5682257828933573`*^9}, {3.568225927026843*^9, 3.568225927416844*^9}, {3.568267062420238*^9, 3.568267081358671*^9}, { 3.568267188328059*^9, 3.5682672830358257`*^9}, {3.5682676367040462`*^9, 3.568267747979042*^9}, 3.5682678404716043`*^9, 3.568267882030078*^9, { 3.5682679252577534`*^9, 3.568267996612279*^9}, {3.5682680488879704`*^9, 3.568268061133992*^9}, {3.568268100914062*^9, 3.5682681150944867`*^9}, { 3.5682681672609787`*^9, 3.5682681709113846`*^9}, {3.568268272904364*^9, 3.5682683182536435`*^9}, {3.5682685202739983`*^9, 3.568268599194537*^9}, { 3.5682686348873997`*^9, 3.568268637773405*^9}, {3.5682686944951043`*^9, 3.568268872273017*^9}, {3.5682689420207396`*^9, 3.568269016947671*^9}, { 3.5682695040741262`*^9, 3.568269601153097*^9}, {3.5682696652380095`*^9, 3.5682696728352227`*^9}, {3.5682697489633565`*^9, 3.5682698308635006`*^9}, {3.568271156491429*^9, 3.568271160063835*^9}, { 3.568271244927984*^9, 3.568271369010602*^9}, {3.5682716250070515`*^9, 3.5682717312276382`*^9}, {3.5682717843301315`*^9, 3.5682718576814604`*^9}, {3.568271940673606*^9, 3.5682720536490045`*^9}, { 3.5682722259669075`*^9, 3.5682723223126764`*^9}, {3.568272370813162*^9, 3.568272411466833*^9}, {3.5682725893539457`*^9, 3.568272622238803*^9}, { 3.5682726936713285`*^9, 3.5682726960113325`*^9}, {3.568272741079812*^9, 3.56827275143823*^9}, {3.5682729218373294`*^9, 3.568272991070251*^9}, { 3.5682734285574193`*^9, 3.5682734302890224`*^9}, {3.5682734898811274`*^9, 3.5682735111595645`*^9}, {3.5682736115925407`*^9, 3.5682736313577757`*^9}, {3.5682738601945777`*^9, 3.568273987272401*^9}, { 3.5682763944346285`*^9, 3.5682764313910933`*^9}, 3.5682765128232365`*^9, { 3.5682766527398825`*^9, 3.568276660976697*^9}, {3.5682774496048822`*^9, 3.568277461663703*^9}, {3.5683784032731285`*^9, 3.568378422991563*^9}, { 3.568378459308427*^9, 3.5683784812420654`*^9}, {3.568378513440522*^9, 3.568378867046343*^9}, {3.568378915468828*^9, 3.56837896203491*^9}, { 3.5683790764299107`*^9, 3.568379270041851*^9}, {3.568380233530743*^9, 3.568380234388745*^9}, 3.5683804214954734`*^9, 3.568380471867962*^9, 3.5683805399464817`*^9, {3.5683812396077104`*^9, 3.568381293537005*^9}, { 3.568381339541486*^9, 3.5683813935175805`*^9}, 3.5684646396646404`*^9, 3.5684646988823442`*^9, 3.568465086387025*^9, {3.5684655859935026`*^9, 3.568465605087936*^9}, 3.568821235038273*^9, 3.5688233741452303`*^9, 3.568823449742963*^9, 3.5688274593312387`*^9, {3.5688284679978104`*^9, 3.5688284689026117`*^9}, {3.5688285131598897`*^9, 3.5688285201487017`*^9}, 3.5688285866360188`*^9, {3.5688292397623663`*^9, 3.568829246688778*^9}, { 3.5688780328231993`*^9, 3.568878075458074*^9}, 3.5688953020257144`*^9, 3.5693395777359695`*^9, {3.569339615191635*^9, 3.569339617079238*^9}, { 3.5693396917877693`*^9, 3.56933969216217*^9}, 3.5693893483274703`*^9}], Cell[BoxData[ RowBox[{ RowBox[{"Plot7", "=", RowBox[{"Table", "[", RowBox[{ RowBox[{"Graphics3D", "[", RowBox[{"{", RowBox[{ RowBox[{"Darker", "[", RowBox[{"Brown", ",", "0.4"}], "]"}], ",", RowBox[{"Opacity", "[", "0.5", "]"}], ",", RowBox[{"If", "[", RowBox[{ RowBox[{ RowBox[{"wxc", "[", RowBox[{"[", "i", "]"}], "]"}], "\[NotEqual]", "0"}], ",", RowBox[{"Sphere", "[", RowBox[{ RowBox[{"{", RowBox[{ RowBox[{"wxc", "[", RowBox[{"[", "i", "]"}], "]"}], ",", RowBox[{"wyc", "[", RowBox[{"[", "i", "]"}], "]"}], ",", RowBox[{"wzc", "[", RowBox[{"[", "i", "]"}], "]"}]}], "}"}], ",", RowBox[{"a", "[", RowBox[{"[", RowBox[{"i", ",", "3"}], "]"}], "]"}]}], "]"}]}], "]"}]}], "}"}], "]"}], ",", RowBox[{"{", RowBox[{"i", ",", "1", ",", "cw"}], "}"}]}], "]"}]}], ";"}]], "Input", CellChangeTimes->{{3.5681365021632137`*^9, 3.5681365171392403`*^9}, { 3.568136560351316*^9, 3.5681365863097615`*^9}, {3.5681369135895367`*^9, 3.5681369265999594`*^9}, {3.568137821916732*^9, 3.5681378378443604`*^9}, { 3.5682072492149415`*^9, 3.5682072529901485`*^9}, 3.568209802830227*^9, { 3.5682216503836985`*^9, 3.5682217583046885`*^9}, {3.5682217912831464`*^9, 3.568221843465238*^9}, {3.5682219760654707`*^9, 3.5682221133457117`*^9}, { 3.568222159615393*^9, 3.5682221693498106`*^9}, {3.5682222565227633`*^9, 3.5682222578487663`*^9}, 3.5682224736283445`*^9, 3.5682227227607822`*^9, 3.5682227558640404`*^9, {3.568222818810151*^9, 3.5682228486062036`*^9}, { 3.5682230057764797`*^9, 3.5682230079916835`*^9}, {3.568223041952943*^9, 3.5682230548229656`*^9}, 3.5682232619601297`*^9, 3.5682233000709963`*^9, { 3.568223536645412*^9, 3.5682235381118145`*^9}, {3.568223591151908*^9, 3.568223591526308*^9}, {3.5682236491528096`*^9, 3.568223657483224*^9}, { 3.568223713222122*^9, 3.5682237532361927`*^9}, {3.568223800379475*^9, 3.568223827648323*^9}, {3.5682238887380304`*^9, 3.5682238893152313`*^9}, { 3.5682240287170763`*^9, 3.5682240612431335`*^9}, 3.5682241088076167`*^9, { 3.568224198772975*^9, 3.5682242396450467`*^9}, {3.568224282170721*^9, 3.5682243185031853`*^9}, {3.568224437890195*^9, 3.568224439590598*^9}, { 3.568224572253231*^9, 3.5682245867144566`*^9}, {3.5682247081762695`*^9, 3.568224733557514*^9}, {3.56822480520844*^9, 3.5682248433505073`*^9}, { 3.568224884206979*^9, 3.5682248959069996`*^9}, {3.568224982830352*^9, 3.5682250047639904`*^9}, {3.56822503870965*^9, 3.5682250803305235`*^9}, { 3.5682251223413973`*^9, 3.568225141451431*^9}, {3.568225234177994*^9, 3.5682252929588966`*^9}, {3.5682253775890455`*^9, 3.568225482140429*^9}, { 3.56822551694409*^9, 3.5682255297205124`*^9}, {3.568225573197789*^9, 3.5682255809666023`*^9}, 3.568225660698343*^9, 3.5682257301964645`*^9, { 3.568225765078126*^9, 3.5682257828933573`*^9}, {3.568225927026843*^9, 3.568225927416844*^9}, {3.568267062420238*^9, 3.568267081358671*^9}, { 3.568267188328059*^9, 3.5682672830358257`*^9}, {3.5682676367040462`*^9, 3.568267747979042*^9}, 3.5682678404716043`*^9, 3.568267882030078*^9, { 3.5682679252577534`*^9, 3.568267996612279*^9}, {3.5682680488879704`*^9, 3.568268061133992*^9}, {3.568268100914062*^9, 3.5682681150944867`*^9}, { 3.5682681672609787`*^9, 3.5682681709113846`*^9}, {3.568268272904364*^9, 3.5682683182536435`*^9}, {3.5682685202739983`*^9, 3.568268599194537*^9}, { 3.5682686348873997`*^9, 3.568268637773405*^9}, {3.5682686944951043`*^9, 3.568268872273017*^9}, {3.5682689420207396`*^9, 3.568269016947671*^9}, { 3.5682695040741262`*^9, 3.568269601153097*^9}, {3.5682696652380095`*^9, 3.5682696728352227`*^9}, {3.5682697489633565`*^9, 3.5682698308635006`*^9}, {3.568271156491429*^9, 3.568271160063835*^9}, { 3.568271244927984*^9, 3.568271369010602*^9}, {3.5682716250070515`*^9, 3.5682717312276382`*^9}, {3.5682717843301315`*^9, 3.5682718576814604`*^9}, {3.568271940673606*^9, 3.5682720536490045`*^9}, { 3.5682722259669075`*^9, 3.5682723223126764`*^9}, {3.568272370813162*^9, 3.568272411466833*^9}, {3.5682725893539457`*^9, 3.568272622238803*^9}, { 3.5682726936713285`*^9, 3.5682726960113325`*^9}, {3.568272741079812*^9, 3.56827275143823*^9}, {3.5682729218373294`*^9, 3.568272991070251*^9}, { 3.5682734285574193`*^9, 3.5682734302890224`*^9}, {3.5682734898811274`*^9, 3.5682735111595645`*^9}, {3.5682736115925407`*^9, 3.5682736313577757`*^9}, {3.5682738601945777`*^9, 3.568273987272401*^9}, { 3.5682763944346285`*^9, 3.5682764313910933`*^9}, 3.5682765128232365`*^9, { 3.5682766527398825`*^9, 3.568276660976697*^9}, {3.5682774496048822`*^9, 3.568277461663703*^9}, {3.5683784032731285`*^9, 3.568378422991563*^9}, { 3.568378459308427*^9, 3.5683784812420654`*^9}, {3.568378513440522*^9, 3.568378867046343*^9}, {3.568378915468828*^9, 3.56837896203491*^9}, { 3.5683790764299107`*^9, 3.568379270041851*^9}, {3.568380233530743*^9, 3.568380234388745*^9}, 3.5683804214954734`*^9, 3.568380471867962*^9, 3.5683805399464817`*^9, {3.5683812396077104`*^9, 3.568381293537005*^9}, { 3.568381339541486*^9, 3.5683813935175805`*^9}, 3.5684646396646404`*^9, 3.5684646988823442`*^9, 3.568465086387025*^9, {3.5684655859935026`*^9, 3.568465605087936*^9}, 3.568821235038273*^9, 3.5688233741452303`*^9, 3.568823449742963*^9, 3.5688274593312387`*^9, {3.5688284679978104`*^9, 3.5688284689026117`*^9}, {3.5688285131598897`*^9, 3.5688285201487017`*^9}, 3.5688285866360188`*^9, {3.5688292397623663`*^9, 3.568829246688778*^9}, { 3.5688780328231993`*^9, 3.56887811871695*^9}, {3.568895331556566*^9, 3.5688953367201753`*^9}, 3.568895995276532*^9, {3.5693397032225895`*^9, 3.56933970331619*^9}, 3.569339737137049*^9, 3.569340055299608*^9, 3.569389360947892*^9, {3.570298060155057*^9, 3.570298071589877*^9}, { 3.5704539766451664`*^9, 3.5704539773627677`*^9}, {3.5709509139026003`*^9, 3.570950950500265*^9}, {3.570950995397144*^9, 3.5709510449896307`*^9}, { 3.570974064815357*^9, 3.5709741190878525`*^9}, {3.5709742487084804`*^9, 3.570974273528124*^9}, {3.5713747544125347`*^9, 3.571374762618149*^9}, 3.5713830670175667`*^9}], Cell[BoxData[{ RowBox[{ RowBox[{"wxh", "=", RowBox[{"Table", "[", RowBox[{ RowBox[{ RowBox[{ RowBox[{ RowBox[{"(", RowBox[{ RowBox[{"a", "[", RowBox[{"[", RowBox[{"i", ",", "3"}], "]"}], "]"}], "+", RowBox[{"u2", "[", RowBox[{"[", RowBox[{"a", "[", RowBox[{"[", RowBox[{"i", ",", "2"}], "]"}], "]"}], "]"}], "]"}]}], ")"}], "/", RowBox[{"(", RowBox[{ RowBox[{"u2", "[", RowBox[{"[", RowBox[{"a", "[", RowBox[{"[", RowBox[{"i", ",", "1"}], "]"}], "]"}], "]"}], "]"}], "+", RowBox[{"a", "[", RowBox[{"[", RowBox[{"i", ",", "3"}], "]"}], "]"}], "+", RowBox[{"u2", "[", RowBox[{"[", RowBox[{"a", "[", RowBox[{"[", RowBox[{"i", ",", "2"}], "]"}], "]"}], "]"}], "]"}]}], ")"}]}], "*", RowBox[{"(", RowBox[{ RowBox[{"x", "[", RowBox[{"[", RowBox[{"a", "[", RowBox[{"[", RowBox[{"i", ",", "1"}], "]"}], "]"}], "]"}], "]"}], "-", RowBox[{"x", "[", RowBox[{"[", RowBox[{"a", "[", RowBox[{"[", RowBox[{"i", ",", "2"}], "]"}], "]"}], "]"}], "]"}]}], ")"}]}], "+", RowBox[{"x", "[", RowBox[{"[", RowBox[{"a", "[", RowBox[{"[", RowBox[{"i", ",", "2"}], "]"}], "]"}], "]"}], "]"}]}], ",", RowBox[{"{", RowBox[{"i", ",", RowBox[{"cw", "+", "1"}], ",", "nb"}], "}"}]}], "]"}]}], ";"}], "\n", RowBox[{ RowBox[{"wyh", "=", RowBox[{"Table", "[", RowBox[{ RowBox[{ RowBox[{ RowBox[{ RowBox[{"(", RowBox[{ RowBox[{"a", "[", RowBox[{"[", RowBox[{"i", ",", "3"}], "]"}], "]"}], "+", RowBox[{"u2", "[", RowBox[{"[", RowBox[{"a", "[", RowBox[{"[", RowBox[{"i", ",", "2"}], "]"}], "]"}], "]"}], "]"}]}], ")"}], "/", RowBox[{"(", RowBox[{ RowBox[{"u2", "[", RowBox[{"[", RowBox[{"a", "[", RowBox[{"[", RowBox[{"i", ",", "1"}], "]"}], "]"}], "]"}], "]"}], "+", RowBox[{"a", "[", RowBox[{"[", RowBox[{"i", ",", "3"}], "]"}], "]"}], "+", RowBox[{"u2", "[", RowBox[{"[", RowBox[{"a", "[", RowBox[{"[", RowBox[{"i", ",", "2"}], "]"}], "]"}], "]"}], "]"}]}], ")"}]}], "*", RowBox[{"(", RowBox[{ RowBox[{"y", "[", RowBox[{"[", RowBox[{"a", "[", RowBox[{"[", RowBox[{"i", ",", "1"}], "]"}], "]"}], "]"}], "]"}], "-", RowBox[{"y", "[", RowBox[{"[", RowBox[{"a", "[", RowBox[{"[", RowBox[{"i", ",", "2"}], "]"}], "]"}], "]"}], "]"}]}], ")"}]}], "+", RowBox[{"y", "[", RowBox[{"[", RowBox[{"a", "[", RowBox[{"[", RowBox[{"i", ",", "2"}], "]"}], "]"}], "]"}], "]"}]}], ",", RowBox[{"{", RowBox[{"i", ",", RowBox[{"cw", "+", "1"}], ",", "nb"}], "}"}]}], "]"}]}], ";"}], "\n", RowBox[{ RowBox[{"wzh", "=", RowBox[{"Table", "[", RowBox[{ RowBox[{ RowBox[{ RowBox[{ RowBox[{"(", RowBox[{ RowBox[{"a", "[", RowBox[{"[", RowBox[{"i", ",", "3"}], "]"}], "]"}], "+", RowBox[{"u2", "[", RowBox[{"[", RowBox[{"a", "[", RowBox[{"[", RowBox[{"i", ",", "2"}], "]"}], "]"}], "]"}], "]"}]}], ")"}], "/", RowBox[{"(", RowBox[{ RowBox[{"u2", "[", RowBox[{"[", RowBox[{"a", "[", RowBox[{"[", RowBox[{"i", ",", "1"}], "]"}], "]"}], "]"}], "]"}], "+", RowBox[{"a", "[", RowBox[{"[", RowBox[{"i", ",", "3"}], "]"}], "]"}], "+", RowBox[{"u2", "[", RowBox[{"[", RowBox[{"a", "[", RowBox[{"[", RowBox[{"i", ",", "2"}], "]"}], "]"}], "]"}], "]"}]}], ")"}]}], "*", RowBox[{"(", RowBox[{ RowBox[{"z", "[", RowBox[{"[", RowBox[{"a", "[", RowBox[{"[", RowBox[{"i", ",", "1"}], "]"}], "]"}], "]"}], "]"}], "-", RowBox[{"z", "[", RowBox[{"[", RowBox[{"a", "[", RowBox[{"[", RowBox[{"i", ",", "2"}], "]"}], "]"}], "]"}], "]"}]}], ")"}]}], "+", RowBox[{"z", "[", RowBox[{"[", RowBox[{"a", "[", RowBox[{"[", RowBox[{"i", ",", "2"}], "]"}], "]"}], "]"}], "]"}]}], ",", RowBox[{"{", RowBox[{"i", ",", RowBox[{"cw", "+", "1"}], ",", "nb"}], "}"}]}], "]"}]}], ";"}]}], "Input", CellChangeTimes->{{3.5681365021632137`*^9, 3.5681365171392403`*^9}, { 3.568136560351316*^9, 3.5681365863097615`*^9}, {3.5681369135895367`*^9, 3.5681369265999594`*^9}, {3.568137821916732*^9, 3.5681378378443604`*^9}, { 3.5682072492149415`*^9, 3.5682072529901485`*^9}, 3.568209802830227*^9, { 3.5682216503836985`*^9, 3.5682217583046885`*^9}, {3.5682217912831464`*^9, 3.568221843465238*^9}, {3.5682219760654707`*^9, 3.5682221133457117`*^9}, { 3.568222159615393*^9, 3.5682221693498106`*^9}, {3.5682222565227633`*^9, 3.5682222578487663`*^9}, 3.5682224736283445`*^9, 3.5682227227607822`*^9, 3.5682227558640404`*^9, {3.568222818810151*^9, 3.5682228486062036`*^9}, { 3.5682230057764797`*^9, 3.5682230079916835`*^9}, {3.568223041952943*^9, 3.5682230548229656`*^9}, 3.5682232619601297`*^9, 3.5682233000709963`*^9, { 3.568223536645412*^9, 3.5682235381118145`*^9}, {3.568223591151908*^9, 3.568223591526308*^9}, {3.5682236491528096`*^9, 3.568223657483224*^9}, { 3.568223713222122*^9, 3.5682237532361927`*^9}, {3.568223800379475*^9, 3.568223827648323*^9}, {3.5682238887380304`*^9, 3.5682238893152313`*^9}, { 3.5682240287170763`*^9, 3.5682240612431335`*^9}, 3.5682241088076167`*^9, { 3.568224198772975*^9, 3.5682242396450467`*^9}, {3.568224282170721*^9, 3.5682243185031853`*^9}, {3.568224437890195*^9, 3.568224439590598*^9}, { 3.568224572253231*^9, 3.5682245867144566`*^9}, {3.5682247081762695`*^9, 3.568224733557514*^9}, {3.56822480520844*^9, 3.5682248433505073`*^9}, { 3.568224884206979*^9, 3.5682248959069996`*^9}, {3.568224982830352*^9, 3.5682250047639904`*^9}, {3.56822503870965*^9, 3.5682250803305235`*^9}, { 3.5682251223413973`*^9, 3.568225141451431*^9}, {3.568225234177994*^9, 3.5682252929588966`*^9}, {3.5682253775890455`*^9, 3.568225482140429*^9}, { 3.56822551694409*^9, 3.5682255297205124`*^9}, {3.568225573197789*^9, 3.5682255809666023`*^9}, 3.568225660698343*^9, 3.5682257301964645`*^9, { 3.568225765078126*^9, 3.5682257828933573`*^9}, {3.568225927026843*^9, 3.568225927416844*^9}, {3.568267062420238*^9, 3.568267081358671*^9}, { 3.568267188328059*^9, 3.5682672830358257`*^9}, {3.5682676367040462`*^9, 3.568267747979042*^9}, 3.5682678404716043`*^9, 3.568267882030078*^9, { 3.5682679252577534`*^9, 3.568267996612279*^9}, {3.5682680488879704`*^9, 3.568268061133992*^9}, {3.568268100914062*^9, 3.5682681150944867`*^9}, { 3.5682681672609787`*^9, 3.5682681709113846`*^9}, {3.568268272904364*^9, 3.5682683182536435`*^9}, {3.5682685202739983`*^9, 3.568268599194537*^9}, { 3.5682686348873997`*^9, 3.568268637773405*^9}, {3.5682686944951043`*^9, 3.568268872273017*^9}, {3.5682689420207396`*^9, 3.568269016947671*^9}, { 3.5682695040741262`*^9, 3.568269601153097*^9}, {3.5682696652380095`*^9, 3.5682696728352227`*^9}, {3.5682697489633565`*^9, 3.5682698308635006`*^9}, {3.568271156491429*^9, 3.568271160063835*^9}, { 3.568271244927984*^9, 3.568271369010602*^9}, {3.5682716250070515`*^9, 3.5682717312276382`*^9}, {3.5682717843301315`*^9, 3.5682718576814604`*^9}, {3.568271940673606*^9, 3.5682720536490045`*^9}, { 3.5682722259669075`*^9, 3.5682723223126764`*^9}, {3.568272370813162*^9, 3.568272411466833*^9}, {3.5682725893539457`*^9, 3.568272622238803*^9}, { 3.5682726936713285`*^9, 3.5682726960113325`*^9}, {3.568272741079812*^9, 3.56827275143823*^9}, {3.5682729218373294`*^9, 3.568272991070251*^9}, { 3.5682734285574193`*^9, 3.5682734302890224`*^9}, {3.5682734898811274`*^9, 3.5682735111595645`*^9}, {3.5682736115925407`*^9, 3.5682736313577757`*^9}, {3.5682738601945777`*^9, 3.568273987272401*^9}, { 3.5682763944346285`*^9, 3.5682764313910933`*^9}, 3.5682765128232365`*^9, { 3.5682766527398825`*^9, 3.568276660976697*^9}, {3.5682774496048822`*^9, 3.568277461663703*^9}, {3.5683784032731285`*^9, 3.568378422991563*^9}, { 3.568378459308427*^9, 3.5683784812420654`*^9}, {3.568378513440522*^9, 3.568378867046343*^9}, {3.568378915468828*^9, 3.56837896203491*^9}, { 3.5683790764299107`*^9, 3.568379270041851*^9}, {3.568380233530743*^9, 3.568380234388745*^9}, 3.5683804214954734`*^9, 3.568380471867962*^9, 3.5683805399464817`*^9, {3.5683812396077104`*^9, 3.568381293537005*^9}, { 3.568381339541486*^9, 3.5683813935175805`*^9}, 3.5684646396646404`*^9, 3.5684646988823442`*^9, 3.568465086387025*^9, {3.5684655859935026`*^9, 3.568465605087936*^9}, 3.568821235038273*^9, 3.5688233741452303`*^9, 3.568823449742963*^9, 3.5688274593312387`*^9, {3.5688284679978104`*^9, 3.5688284689026117`*^9}, {3.5688285131598897`*^9, 3.5688285201487017`*^9}, 3.5688285866360188`*^9, {3.5688292397623663`*^9, 3.568829246688778*^9}, { 3.5688780328231993`*^9, 3.5688781280925665`*^9}, 3.568895312524533*^9, 3.5693395940691977`*^9, {3.5693396336776676`*^9, 3.5693396557829065`*^9}, { 3.569340069402033*^9, 3.569340092412073*^9}, {3.569389186383586*^9, 3.5693891947764006`*^9}, {3.569389263291721*^9, 3.569389289686967*^9}, 3.569389336315449*^9}], Cell[BoxData[ RowBox[{ RowBox[{"Plot8", "=", RowBox[{"Table", "[", RowBox[{ RowBox[{"Graphics3D", "[", RowBox[{"{", RowBox[{ RowBox[{"Opacity", "[", "0.5", "]"}], ",", RowBox[{"Sphere", "[", RowBox[{ RowBox[{"{", RowBox[{ RowBox[{"wxh", "[", RowBox[{"[", "i", "]"}], "]"}], ",", RowBox[{"wyh", "[", RowBox[{"[", "i", "]"}], "]"}], ",", RowBox[{"wzh", "[", RowBox[{"[", "i", "]"}], "]"}]}], "}"}], ",", RowBox[{"a", "[", RowBox[{"[", RowBox[{ RowBox[{"i", "+", "cw"}], ",", "3"}], "]"}], "]"}]}], "]"}]}], "}"}], "]"}], ",", RowBox[{"{", RowBox[{"i", ",", "1", ",", "bh"}], "}"}]}], "]"}]}], ";"}]], "Input", CellChangeTimes->{{3.5681365021632137`*^9, 3.5681365171392403`*^9}, { 3.568136560351316*^9, 3.5681365863097615`*^9}, {3.5681369135895367`*^9, 3.5681369265999594`*^9}, {3.568137821916732*^9, 3.5681378378443604`*^9}, { 3.5682072492149415`*^9, 3.5682072529901485`*^9}, 3.568209802830227*^9, { 3.5682216503836985`*^9, 3.5682217583046885`*^9}, {3.5682217912831464`*^9, 3.568221843465238*^9}, {3.5682219760654707`*^9, 3.5682221133457117`*^9}, { 3.568222159615393*^9, 3.5682221693498106`*^9}, {3.5682222565227633`*^9, 3.5682222578487663`*^9}, 3.5682224736283445`*^9, 3.5682227227607822`*^9, 3.5682227558640404`*^9, {3.568222818810151*^9, 3.5682228486062036`*^9}, { 3.5682230057764797`*^9, 3.5682230079916835`*^9}, {3.568223041952943*^9, 3.5682230548229656`*^9}, 3.5682232619601297`*^9, 3.5682233000709963`*^9, { 3.568223536645412*^9, 3.5682235381118145`*^9}, {3.568223591151908*^9, 3.568223591526308*^9}, {3.5682236491528096`*^9, 3.568223657483224*^9}, { 3.568223713222122*^9, 3.5682237532361927`*^9}, {3.568223800379475*^9, 3.568223827648323*^9}, {3.5682238887380304`*^9, 3.5682238893152313`*^9}, { 3.5682240287170763`*^9, 3.5682240612431335`*^9}, 3.5682241088076167`*^9, { 3.568224198772975*^9, 3.5682242396450467`*^9}, {3.568224282170721*^9, 3.5682243185031853`*^9}, {3.568224437890195*^9, 3.568224439590598*^9}, { 3.568224572253231*^9, 3.5682245867144566`*^9}, {3.5682247081762695`*^9, 3.568224733557514*^9}, {3.56822480520844*^9, 3.5682248433505073`*^9}, { 3.568224884206979*^9, 3.5682248959069996`*^9}, {3.568224982830352*^9, 3.5682250047639904`*^9}, {3.56822503870965*^9, 3.5682250803305235`*^9}, { 3.5682251223413973`*^9, 3.568225141451431*^9}, {3.568225234177994*^9, 3.5682252929588966`*^9}, {3.5682253775890455`*^9, 3.568225482140429*^9}, { 3.56822551694409*^9, 3.5682255297205124`*^9}, {3.568225573197789*^9, 3.5682255809666023`*^9}, 3.568225660698343*^9, 3.5682257301964645`*^9, { 3.568225765078126*^9, 3.5682257828933573`*^9}, {3.568225927026843*^9, 3.568225927416844*^9}, {3.568267062420238*^9, 3.568267081358671*^9}, { 3.568267188328059*^9, 3.5682672830358257`*^9}, {3.5682676367040462`*^9, 3.568267747979042*^9}, 3.5682678404716043`*^9, 3.568267882030078*^9, { 3.5682679252577534`*^9, 3.568267996612279*^9}, {3.5682680488879704`*^9, 3.568268061133992*^9}, {3.568268100914062*^9, 3.5682681150944867`*^9}, { 3.5682681672609787`*^9, 3.5682681709113846`*^9}, {3.568268272904364*^9, 3.5682683182536435`*^9}, {3.5682685202739983`*^9, 3.568268599194537*^9}, { 3.5682686348873997`*^9, 3.568268637773405*^9}, {3.5682686944951043`*^9, 3.568268872273017*^9}, {3.5682689420207396`*^9, 3.568269016947671*^9}, { 3.5682695040741262`*^9, 3.568269601153097*^9}, {3.5682696652380095`*^9, 3.5682696728352227`*^9}, {3.5682697489633565`*^9, 3.5682698308635006`*^9}, {3.568271156491429*^9, 3.568271160063835*^9}, { 3.568271244927984*^9, 3.568271369010602*^9}, {3.5682716250070515`*^9, 3.5682717312276382`*^9}, {3.5682717843301315`*^9, 3.5682718576814604`*^9}, {3.568271940673606*^9, 3.5682720536490045`*^9}, { 3.5682722259669075`*^9, 3.5682723223126764`*^9}, {3.568272370813162*^9, 3.568272411466833*^9}, {3.5682725893539457`*^9, 3.568272622238803*^9}, { 3.5682726936713285`*^9, 3.5682726960113325`*^9}, {3.568272741079812*^9, 3.56827275143823*^9}, {3.5682729218373294`*^9, 3.568272991070251*^9}, { 3.5682734285574193`*^9, 3.5682734302890224`*^9}, {3.5682734898811274`*^9, 3.5682735111595645`*^9}, {3.5682736115925407`*^9, 3.5682736313577757`*^9}, {3.5682738601945777`*^9, 3.568273987272401*^9}, { 3.5682763944346285`*^9, 3.5682764313910933`*^9}, 3.5682765128232365`*^9, { 3.5682766527398825`*^9, 3.568276660976697*^9}, {3.5682774496048822`*^9, 3.568277461663703*^9}, {3.5683784032731285`*^9, 3.568378422991563*^9}, { 3.568378459308427*^9, 3.5683784812420654`*^9}, {3.568378513440522*^9, 3.568378867046343*^9}, {3.568378915468828*^9, 3.56837896203491*^9}, { 3.5683790764299107`*^9, 3.568379270041851*^9}, {3.568380233530743*^9, 3.568380234388745*^9}, 3.5683804214954734`*^9, 3.568380471867962*^9, 3.5683805399464817`*^9, {3.5683812396077104`*^9, 3.568381293537005*^9}, { 3.568381339541486*^9, 3.5683813935175805`*^9}, 3.5684646396646404`*^9, 3.5684646988823442`*^9, 3.568465086387025*^9, {3.5684655859935026`*^9, 3.568465605087936*^9}, 3.568821235038273*^9, 3.5688233741452303`*^9, 3.568823449742963*^9, 3.5688274593312387`*^9, {3.5688284679978104`*^9, 3.5688284689026117`*^9}, {3.5688285131598897`*^9, 3.5688285201487017`*^9}, 3.5688285866360188`*^9, {3.5688292397623663`*^9, 3.568829246688778*^9}, { 3.5688780328231993`*^9, 3.568878147967001*^9}, {3.56889532230575*^9, 3.5688953242557535`*^9}, 3.56889600529175*^9, 3.5688961595292206`*^9, { 3.5693396821781526`*^9, 3.5693396825213532`*^9}, 3.5693893658151007`*^9, { 3.5693895413934093`*^9, 3.5693895427506113`*^9}, {3.5697651043452682`*^9, 3.5697651089940763`*^9}, {3.5704647001766*^9, 3.570464712141821*^9}}], Cell[BoxData[{ RowBox[{ RowBox[{"Plot8a", "=", RowBox[{"Table", "[", RowBox[{ RowBox[{"Graphics3D", "[", RowBox[{"{", RowBox[{ RowBox[{"Opacity", "[", "0.3", "]"}], ",", RowBox[{"Lighter", "[", "Cyan", "]"}], ",", RowBox[{"Sphere", "[", RowBox[{ RowBox[{"tpo", "[", RowBox[{"[", "i", "]"}], "]"}], ",", "rpo"}], "]"}]}], "}"}], "]"}], ",", RowBox[{"{", RowBox[{"i", ",", "1", ",", "nj"}], "}"}]}], "]"}]}], ";"}], "\[IndentingNewLine]", RowBox[{ RowBox[{"Plot8b", "=", RowBox[{"Table", "[", RowBox[{ RowBox[{"Graphics3D", "[", RowBox[{"{", RowBox[{ RowBox[{"Opacity", "[", "0.3", "]"}], ",", RowBox[{"Lighter", "[", "Yellow", "]"}], ",", RowBox[{"Sphere", "[", RowBox[{ RowBox[{"tpu", "[", RowBox[{"[", "i", "]"}], "]"}], ",", "rpi"}], "]"}]}], "}"}], "]"}], ",", RowBox[{"{", RowBox[{"i", ",", "1", ",", "nj"}], "}"}]}], "]"}]}], ";"}], "\[IndentingNewLine]", RowBox[{ RowBox[{"Plot8c", "=", RowBox[{"Graphics3D", "[", RowBox[{"{", RowBox[{ RowBox[{"Opacity", "[", "0.4", "]"}], ",", RowBox[{"Lighter", "[", "Red", "]"}], ",", RowBox[{"Sphere", "[", RowBox[{"tplo", ",", "rlo"}], "]"}]}], "}"}], "]"}]}], ";"}], "\[IndentingNewLine]", RowBox[{ RowBox[{"Plot8d", "=", RowBox[{"Graphics3D", "[", RowBox[{"{", RowBox[{ RowBox[{"Opacity", "[", "0.4", "]"}], ",", RowBox[{"Lighter", "[", "Red", "]"}], ",", RowBox[{"Sphere", "[", RowBox[{"tplu", ",", "rlo"}], "]"}]}], "}"}], "]"}]}], ";"}]}], "Input", CellChangeTimes->{{3.5681365021632137`*^9, 3.5681365171392403`*^9}, { 3.568136560351316*^9, 3.5681365863097615`*^9}, {3.5681369135895367`*^9, 3.5681369265999594`*^9}, {3.568137821916732*^9, 3.5681378378443604`*^9}, { 3.5682072492149415`*^9, 3.5682072529901485`*^9}, 3.568209802830227*^9, { 3.5682216503836985`*^9, 3.5682217583046885`*^9}, {3.5682217912831464`*^9, 3.568221843465238*^9}, {3.5682219760654707`*^9, 3.5682221133457117`*^9}, { 3.568222159615393*^9, 3.5682221693498106`*^9}, {3.5682222565227633`*^9, 3.5682222578487663`*^9}, 3.5682224736283445`*^9, 3.5682227227607822`*^9, 3.5682227558640404`*^9, {3.568222818810151*^9, 3.5682228486062036`*^9}, { 3.5682230057764797`*^9, 3.5682230079916835`*^9}, {3.568223041952943*^9, 3.5682230548229656`*^9}, 3.5682232619601297`*^9, 3.5682233000709963`*^9, { 3.568223536645412*^9, 3.5682235381118145`*^9}, {3.568223591151908*^9, 3.568223591526308*^9}, {3.5682236491528096`*^9, 3.568223657483224*^9}, { 3.568223713222122*^9, 3.5682237532361927`*^9}, {3.568223800379475*^9, 3.568223827648323*^9}, {3.5682238887380304`*^9, 3.5682238893152313`*^9}, { 3.5682240287170763`*^9, 3.5682240612431335`*^9}, 3.5682241088076167`*^9, { 3.568224198772975*^9, 3.5682242396450467`*^9}, {3.568224282170721*^9, 3.5682243185031853`*^9}, {3.568224437890195*^9, 3.568224439590598*^9}, { 3.568224572253231*^9, 3.5682245867144566`*^9}, {3.5682247081762695`*^9, 3.568224733557514*^9}, {3.56822480520844*^9, 3.5682248433505073`*^9}, { 3.568224884206979*^9, 3.5682248959069996`*^9}, {3.568224982830352*^9, 3.5682250047639904`*^9}, {3.56822503870965*^9, 3.5682250803305235`*^9}, { 3.5682251223413973`*^9, 3.568225141451431*^9}, {3.568225234177994*^9, 3.5682252929588966`*^9}, {3.5682253775890455`*^9, 3.568225482140429*^9}, { 3.56822551694409*^9, 3.5682255297205124`*^9}, {3.568225573197789*^9, 3.5682255809666023`*^9}, 3.568225660698343*^9, 3.5682257301964645`*^9, { 3.568225765078126*^9, 3.5682257828933573`*^9}, {3.568225927026843*^9, 3.568225927416844*^9}, {3.568267062420238*^9, 3.568267081358671*^9}, { 3.568267188328059*^9, 3.5682672830358257`*^9}, {3.5682676367040462`*^9, 3.568267747979042*^9}, 3.5682678404716043`*^9, 3.568267882030078*^9, { 3.5682679252577534`*^9, 3.568267996612279*^9}, {3.5682680488879704`*^9, 3.568268061133992*^9}, {3.568268100914062*^9, 3.5682681150944867`*^9}, { 3.5682681672609787`*^9, 3.5682681709113846`*^9}, {3.568268272904364*^9, 3.5682683182536435`*^9}, {3.5682685202739983`*^9, 3.568268599194537*^9}, { 3.5682686348873997`*^9, 3.568268637773405*^9}, {3.5682686944951043`*^9, 3.568268872273017*^9}, {3.5682689420207396`*^9, 3.568269016947671*^9}, { 3.5682695040741262`*^9, 3.568269601153097*^9}, {3.5682696652380095`*^9, 3.5682696728352227`*^9}, {3.5682697489633565`*^9, 3.5682698308635006`*^9}, {3.568271156491429*^9, 3.568271160063835*^9}, { 3.568271244927984*^9, 3.568271369010602*^9}, {3.5682716250070515`*^9, 3.5682717312276382`*^9}, {3.5682717843301315`*^9, 3.5682718576814604`*^9}, {3.568271940673606*^9, 3.5682720536490045`*^9}, { 3.5682722259669075`*^9, 3.5682723223126764`*^9}, {3.568272370813162*^9, 3.568272411466833*^9}, {3.5682725893539457`*^9, 3.568272622238803*^9}, { 3.5682726936713285`*^9, 3.5682726960113325`*^9}, {3.568272741079812*^9, 3.56827275143823*^9}, {3.5682729218373294`*^9, 3.568272991070251*^9}, { 3.5682734285574193`*^9, 3.5682734302890224`*^9}, {3.5682734898811274`*^9, 3.5682735111595645`*^9}, {3.5682736115925407`*^9, 3.5682736313577757`*^9}, {3.5682738601945777`*^9, 3.568273987272401*^9}, { 3.5682763944346285`*^9, 3.5682764313910933`*^9}, 3.5682765128232365`*^9, { 3.5682766527398825`*^9, 3.568276660976697*^9}, {3.5682774496048822`*^9, 3.568277461663703*^9}, {3.5683784032731285`*^9, 3.568378422991563*^9}, { 3.568378459308427*^9, 3.5683784812420654`*^9}, {3.568378513440522*^9, 3.568378867046343*^9}, {3.568378915468828*^9, 3.56837896203491*^9}, { 3.5683790764299107`*^9, 3.568379270041851*^9}, {3.568380233530743*^9, 3.568380234388745*^9}, 3.5683804214954734`*^9, 3.568380471867962*^9, 3.5683805399464817`*^9, {3.5683812396077104`*^9, 3.568381293537005*^9}, { 3.568381339541486*^9, 3.568381420224828*^9}, {3.5684645223056345`*^9, 3.5684645572340956`*^9}, {3.5684651558539467`*^9, 3.5684651618911576`*^9}, {3.5688209923798466`*^9, 3.568820997683856*^9}, { 3.568821158754139*^9, 3.568821160750942*^9}, 3.56882222404881*^9, { 3.568822649274357*^9, 3.5688226508031597`*^9}, 3.568822723109287*^9, { 3.5693397221142225`*^9, 3.5693397223326235`*^9}, {3.5693899272912874`*^9, 3.5693899274472876`*^9}, {3.5693910617720795`*^9, 3.5693910848757205`*^9}, 3.5693911374166126`*^9, {3.569391214402748*^9, 3.5693912147147484`*^9}, 3.569391451944365*^9, {3.569391487793228*^9, 3.569391507620863*^9}, { 3.5693923162258854`*^9, 3.5693923173958874`*^9}, {3.569406068526634*^9, 3.569406086092265*^9}, 3.569690172138941*^9, 3.569780036185542*^9, { 3.570453906913044*^9, 3.5704539079894457`*^9}, {3.570454575670618*^9, 3.5704545899602437`*^9}, {3.570454765008151*^9, 3.570454772277764*^9}, 3.5708553779481487`*^9, {3.5709431726830034`*^9, 3.570943174555007*^9}, { 3.5709495710522423`*^9, 3.5709495907082767`*^9}, {3.570949647617176*^9, 3.570949673138821*^9}, {3.570950759321929*^9, 3.5709507772775607`*^9}, { 3.5709508127364225`*^9, 3.5709508405200715`*^9}, {3.570991123104905*^9, 3.570991124259307*^9}, {3.5709912161278687`*^9, 3.570991227937089*^9}, { 3.5709912804155817`*^9, 3.570991308776431*^9}, {3.5709914026885962`*^9, 3.5709914215490294`*^9}, {3.570991574429298*^9, 3.5709916038821497`*^9}, 3.570991652445035*^9, 3.570991830004547*^9, 3.570991865276209*^9, { 3.5709919181759014`*^9, 3.5709919260539155`*^9}, {3.570992027251293*^9, 3.570992050058533*^9}, 3.5709920901350036`*^9, 3.570992186979974*^9, { 3.57122255431676*^9, 3.5712225562355638`*^9}, 3.571223175338251*^9, { 3.5713153738729277`*^9, 3.571315375682531*^9}, 3.5713224026962075`*^9, { 3.5713224627875133`*^9, 3.5713224654863176`*^9}, {3.5713224965147724`*^9, 3.571322572268505*^9}, {3.5713226259637995`*^9, 3.5713226549330506`*^9}, { 3.5713308245340652`*^9, 3.571330884469371*^9}, {3.5713309160126257`*^9, 3.5713309422674723`*^9}, 3.571331071326499*^9, {3.5713311246629925`*^9, 3.5713311332274075`*^9}, {3.571331300334901*^9, 3.5713313470881834`*^9}, 3.5713314298931284`*^9, 3.571331594130217*^9, {3.571331632849485*^9, 3.5713316334578857`*^9}, {3.5713316704299507`*^9, 3.5713316709447517`*^9}, {3.571331783327349*^9, 3.571331790019761*^9}, { 3.5713319475956383`*^9, 3.571331948360039*^9}, {3.5713326567416835`*^9, 3.571332681717327*^9}, {3.571332736801024*^9, 3.571332753305853*^9}, { 3.571332796221528*^9, 3.5713328475768185`*^9}, {3.571332914344936*^9, 3.571332924672154*^9}, {3.5713330072586994`*^9, 3.5713330320471425`*^9}, { 3.5713330798612266`*^9, 3.5713330883320417`*^9}, {3.5713331731961904`*^9, 3.571333178266199*^9}, {3.571333407851803*^9, 3.571333426837036*^9}, { 3.571333542292839*^9, 3.571333557705666*^9}, {3.5713336117441607`*^9, 3.5713337055939255`*^9}, {3.5713337750608473`*^9, 3.571333798070888*^9}, { 3.5713366694988756`*^9, 3.5713366834765005`*^9}, {3.5713369716090064`*^9, 3.57133697359021*^9}, {3.57138272164856*^9, 3.571382756233821*^9}, { 3.57138283537276*^9, 3.571382866900415*^9}, {3.5713829070080853`*^9, 3.5713829086616883`*^9}, {3.571382939175342*^9, 3.5713830233374896`*^9}, { 3.5713831045200324`*^9, 3.571383106126835*^9}, {3.571383198260597*^9, 3.5713832448422785`*^9}, 3.5716785972796593`*^9, 3.5718167268987517`*^9, { 3.571838452469782*^9, 3.5718386879053955`*^9}, {3.571838766139532*^9, 3.571838773908346*^9}, 3.5718388425484667`*^9, {3.571838961763876*^9, 3.571838969236289*^9}, {3.571839027970392*^9, 3.5718390313399982`*^9}, { 3.571839741203645*^9, 3.5718397450100517`*^9}, {3.572538612521628*^9, 3.572538701894185*^9}, {3.572538746213863*^9, 3.572538844837236*^9}, 3.5725397817592816`*^9, {3.5726093687611146`*^9, 3.5726094120667906`*^9}, { 3.5726201406133776`*^9, 3.5726201439517837`*^9}, {3.5726204342214937`*^9, 3.572620455406331*^9}, {3.5726210034788933`*^9, 3.572621009968505*^9}, { 3.5728421659278097`*^9, 3.5728422874676228`*^9}, {3.572844941796685*^9, 3.57284494451109*^9}, {3.572850660423529*^9, 3.5728506878327775`*^9}}], Cell[CellGroupData[{ Cell[BoxData[{ 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]", RowBox[{ RowBox[{"Plot9a", "=", " ", RowBox[{"Graphics3D", "[", RowBox[{"Tube", "[", RowBox[{ RowBox[{"{", RowBox[{ RowBox[{"{", RowBox[{ RowBox[{"x", "[", RowBox[{"[", "21", "]"}], "]"}], ",", RowBox[{"y", "[", RowBox[{"[", "21", "]"}], "]"}], ",", RowBox[{"z", "[", RowBox[{"[", "21", "]"}], "]"}]}], "}"}], ",", RowBox[{"{", RowBox[{ RowBox[{"nk", "[", RowBox[{"[", RowBox[{"2", ",", "1"}], "]"}], "]"}], ",", RowBox[{"nk", "[", RowBox[{"[", RowBox[{"2", ",", "2"}], "]"}], "]"}], ",", RowBox[{"nk", "[", RowBox[{"[", RowBox[{"2", ",", "3"}], "]"}], "]"}]}], "}"}]}], "}"}], ",", "0.06"}], "]"}], "]"}]}], ";"}], "\[IndentingNewLine]", RowBox[{ RowBox[{"Plot9b", "=", " ", RowBox[{"Graphics3D", "[", RowBox[{"Tube", "[", RowBox[{ RowBox[{"{", RowBox[{ RowBox[{"{", RowBox[{ RowBox[{"x", "[", RowBox[{"[", "21", "]"}], "]"}], ",", RowBox[{"y", "[", RowBox[{"[", "21", "]"}], "]"}], ",", RowBox[{"z", "[", RowBox[{"[", "21", "]"}], "]"}]}], "}"}], ",", RowBox[{"{", RowBox[{ RowBox[{"nl", "[", RowBox[{"[", RowBox[{"2", ",", "1"}], "]"}], "]"}], ",", RowBox[{"nl", "[", RowBox[{"[", RowBox[{"2", ",", "2"}], "]"}], "]"}], ",", RowBox[{"nl", "[", RowBox[{"[", RowBox[{"2", ",", "3"}], "]"}], "]"}]}], "}"}]}], "}"}], ",", "0.06"}], "]"}], "]"}]}], ";"}], "\[IndentingNewLine]", RowBox[{"Show", "[", RowBox[{"Plot1o", ",", RowBox[{"(*", RowBox[{"Plot2", ","}], "*)"}], "Plot7", ",", "Plot8", ",", "Plot8a", ",", "Plot8b", ",", "Plot8c", ",", "Plot8d", ",", "Plot9", ",", RowBox[{"{", RowBox[{ RowBox[{"AspectRatio", "\[Rule]", "Automatic"}], ",", RowBox[{"Boxed", "\[Rule]", "False"}], ",", RowBox[{"(*", " ", RowBox[{ RowBox[{"Axes", "\[Rule]", "Automatic"}], ",", RowBox[{"AxesLabel", "\[Rule]", RowBox[{"{", RowBox[{"xl", ",", "yl", ",", "zl"}], "}"}]}], ","}], "*)"}], RowBox[{"SphericalRegion", "\[Rule]", "True"}]}], "}"}]}], "]"}], "\[IndentingNewLine]", RowBox[{"Show", "[", RowBox[{ "Plot1o", ",", "Plot2", ",", "Plot9", ",", "Plot9a", ",", "Plot9b", ",", RowBox[{"{", RowBox[{ RowBox[{"Axes", "\[Rule]", "Automatic"}], ",", RowBox[{"AxesLabel", "\[Rule]", RowBox[{"{", RowBox[{"xl", ",", "yl", ",", "zl"}], "}"}]}], ",", RowBox[{"AspectRatio", "\[Rule]", "Automatic"}], ",", RowBox[{"Boxed", "\[Rule]", "True"}], ",", " ", RowBox[{"SphericalRegion", "\[Rule]", "True"}]}], "}"}]}], "]"}], "\[IndentingNewLine]"}], "Input", CellChangeTimes->{{3.5681365021632137`*^9, 3.5681365171392403`*^9}, { 3.568136560351316*^9, 3.5681365863097615`*^9}, {3.5681369135895367`*^9, 3.5681369265999594`*^9}, {3.568137821916732*^9, 3.5681378378443604`*^9}, { 3.5682072492149415`*^9, 3.5682072529901485`*^9}, 3.568209802830227*^9, { 3.5682216503836985`*^9, 3.5682217583046885`*^9}, {3.5682217912831464`*^9, 3.568221843465238*^9}, {3.5682219760654707`*^9, 3.5682221133457117`*^9}, { 3.568222159615393*^9, 3.5682221693498106`*^9}, {3.5682222565227633`*^9, 3.5682222578487663`*^9}, 3.5682224736283445`*^9, 3.5682227227607822`*^9, 3.5682227558640404`*^9, {3.568222818810151*^9, 3.5682228486062036`*^9}, { 3.5682230057764797`*^9, 3.5682230079916835`*^9}, {3.568223041952943*^9, 3.5682230548229656`*^9}, 3.5682232619601297`*^9, 3.5682233000709963`*^9, { 3.568223536645412*^9, 3.5682235381118145`*^9}, {3.568223591151908*^9, 3.568223591526308*^9}, {3.5682236491528096`*^9, 3.568223657483224*^9}, { 3.568223713222122*^9, 3.5682237532361927`*^9}, {3.568223800379475*^9, 3.568223827648323*^9}, {3.5682238887380304`*^9, 3.5682238893152313`*^9}, { 3.5682240287170763`*^9, 3.5682240612431335`*^9}, 3.5682241088076167`*^9, { 3.568224198772975*^9, 3.5682242396450467`*^9}, {3.568224282170721*^9, 3.5682243185031853`*^9}, {3.568224437890195*^9, 3.568224439590598*^9}, { 3.568224572253231*^9, 3.5682245867144566`*^9}, {3.5682247081762695`*^9, 3.568224733557514*^9}, {3.56822480520844*^9, 3.5682248433505073`*^9}, { 3.568224884206979*^9, 3.5682248959069996`*^9}, {3.568224982830352*^9, 3.5682250047639904`*^9}, {3.56822503870965*^9, 3.5682250803305235`*^9}, { 3.5682251223413973`*^9, 3.568225141451431*^9}, {3.568225234177994*^9, 3.5682252929588966`*^9}, {3.5682253775890455`*^9, 3.568225482140429*^9}, { 3.56822551694409*^9, 3.5682255297205124`*^9}, {3.568225573197789*^9, 3.5682255809666023`*^9}, 3.568225660698343*^9, 3.5682257301964645`*^9, { 3.568225765078126*^9, 3.5682257828933573`*^9}, {3.568225927026843*^9, 3.568225927416844*^9}, {3.568267062420238*^9, 3.568267081358671*^9}, { 3.568267188328059*^9, 3.5682672830358257`*^9}, {3.5682676367040462`*^9, 3.568267747979042*^9}, 3.5682678404716043`*^9, 3.568267882030078*^9, { 3.5682679252577534`*^9, 3.568267996612279*^9}, {3.5682680488879704`*^9, 3.568268061133992*^9}, {3.568268100914062*^9, 3.5682681150944867`*^9}, { 3.5682681672609787`*^9, 3.5682681709113846`*^9}, {3.568268272904364*^9, 3.5682683182536435`*^9}, {3.5682685202739983`*^9, 3.568268599194537*^9}, { 3.5682686348873997`*^9, 3.568268637773405*^9}, {3.5682686944951043`*^9, 3.568268872273017*^9}, {3.5682689420207396`*^9, 3.568269016947671*^9}, { 3.5682695040741262`*^9, 3.568269601153097*^9}, {3.5682696652380095`*^9, 3.5682696728352227`*^9}, {3.5682697489633565`*^9, 3.5682698308635006`*^9}, {3.568271156491429*^9, 3.568271160063835*^9}, { 3.568271244927984*^9, 3.568271369010602*^9}, {3.5682716250070515`*^9, 3.5682717312276382`*^9}, {3.5682717843301315`*^9, 3.5682718576814604`*^9}, {3.568271940673606*^9, 3.5682720536490045`*^9}, { 3.5682722259669075`*^9, 3.5682723223126764`*^9}, {3.568272370813162*^9, 3.568272411466833*^9}, {3.5682725893539457`*^9, 3.568272622238803*^9}, { 3.5682726936713285`*^9, 3.5682726960113325`*^9}, {3.568272741079812*^9, 3.56827275143823*^9}, {3.5682729218373294`*^9, 3.568272991070251*^9}, { 3.5682734285574193`*^9, 3.5682734302890224`*^9}, {3.5682734898811274`*^9, 3.5682735111595645`*^9}, {3.5682736115925407`*^9, 3.5682736313577757`*^9}, {3.5682738601945777`*^9, 3.568273987272401*^9}, { 3.5682763944346285`*^9, 3.5682764313910933`*^9}, 3.5682765128232365`*^9, { 3.5682766527398825`*^9, 3.568276660976697*^9}, {3.5682774496048822`*^9, 3.568277461663703*^9}, {3.5683784032731285`*^9, 3.568378422991563*^9}, { 3.568378459308427*^9, 3.5683784812420654`*^9}, {3.568378513440522*^9, 3.568378867046343*^9}, {3.568378915468828*^9, 3.56837896203491*^9}, { 3.5683790764299107`*^9, 3.568379270041851*^9}, {3.568380233530743*^9, 3.568380234388745*^9}, 3.5683804214954734`*^9, 3.568380471867962*^9, 3.5683805399464817`*^9, {3.5683812396077104`*^9, 3.568381293537005*^9}, { 3.568381339541486*^9, 3.568381420224828*^9}, {3.5684645223056345`*^9, 3.5684645572340956`*^9}, {3.5684651558539467`*^9, 3.5684651618911576`*^9}, {3.5688209923798466`*^9, 3.568820997683856*^9}, { 3.568821158754139*^9, 3.568821160750942*^9}, 3.56882222404881*^9, { 3.568822649274357*^9, 3.5688226508031597`*^9}, 3.568822723109287*^9, { 3.5693397221142225`*^9, 3.5693397223326235`*^9}, {3.5693899272912874`*^9, 3.5693899274472876`*^9}, {3.5693910617720795`*^9, 3.5693910848757205`*^9}, 3.5693911374166126`*^9, {3.569391214402748*^9, 3.5693912147147484`*^9}, 3.569391451944365*^9, {3.569391487793228*^9, 3.569391507620863*^9}, { 3.5693923162258854`*^9, 3.5693923173958874`*^9}, {3.569406068526634*^9, 3.569406086092265*^9}, 3.569690172138941*^9, 3.569780036185542*^9, { 3.570453906913044*^9, 3.5704539079894457`*^9}, {3.570454575670618*^9, 3.5704545899602437`*^9}, {3.570454765008151*^9, 3.570454772277764*^9}, 3.5708553779481487`*^9, {3.5709431726830034`*^9, 3.570943174555007*^9}, { 3.5709495710522423`*^9, 3.5709495907082767`*^9}, {3.570949647617176*^9, 3.570949673138821*^9}, {3.570950759321929*^9, 3.5709507772775607`*^9}, { 3.5709508127364225`*^9, 3.5709508405200715`*^9}, {3.570991123104905*^9, 3.570991124259307*^9}, {3.5709912161278687`*^9, 3.570991227937089*^9}, { 3.5709912804155817`*^9, 3.570991308776431*^9}, {3.5709914026885962`*^9, 3.5709914215490294`*^9}, {3.570991574429298*^9, 3.5709916038821497`*^9}, 3.570991652445035*^9, 3.570991830004547*^9, 3.570991865276209*^9, { 3.5709919181759014`*^9, 3.5709919260539155`*^9}, {3.570992027251293*^9, 3.570992050058533*^9}, 3.5709920901350036`*^9, 3.570992186979974*^9, { 3.57122255431676*^9, 3.5712225562355638`*^9}, 3.571223175338251*^9, { 3.5713153738729277`*^9, 3.571315375682531*^9}, 3.5713224026962075`*^9, { 3.5713224627875133`*^9, 3.5713224654863176`*^9}, {3.5713224965147724`*^9, 3.571322572268505*^9}, {3.5713226259637995`*^9, 3.5713226549330506`*^9}, { 3.5713308245340652`*^9, 3.571330884469371*^9}, {3.5713309160126257`*^9, 3.5713309422674723`*^9}, 3.571331071326499*^9, {3.5713311246629925`*^9, 3.5713311332274075`*^9}, {3.571331300334901*^9, 3.5713313470881834`*^9}, 3.5713314298931284`*^9, 3.571331594130217*^9, {3.571331632849485*^9, 3.5713316334578857`*^9}, {3.5713316704299507`*^9, 3.5713316709447517`*^9}, {3.571331783327349*^9, 3.571331790019761*^9}, { 3.5713319475956383`*^9, 3.571331948360039*^9}, {3.5713326567416835`*^9, 3.571332681717327*^9}, {3.571332736801024*^9, 3.571332753305853*^9}, { 3.571332796221528*^9, 3.5713328475768185`*^9}, {3.571332914344936*^9, 3.571332924672154*^9}, {3.5713330072586994`*^9, 3.5713330320471425`*^9}, { 3.5713330798612266`*^9, 3.5713330883320417`*^9}, {3.5713331731961904`*^9, 3.571333178266199*^9}, {3.571333407851803*^9, 3.571333426837036*^9}, { 3.571333542292839*^9, 3.571333557705666*^9}, {3.5713336117441607`*^9, 3.5713337055939255`*^9}, {3.5713337750608473`*^9, 3.571333798070888*^9}, { 3.5713366694988756`*^9, 3.5713366834765005`*^9}, {3.5713369716090064`*^9, 3.57133697359021*^9}, {3.57138272164856*^9, 3.571382756233821*^9}, { 3.57138283537276*^9, 3.571382866900415*^9}, {3.5713829070080853`*^9, 3.5713829086616883`*^9}, {3.571382939175342*^9, 3.5713830233374896`*^9}, { 3.5713831045200324`*^9, 3.571383106126835*^9}, {3.571383198260597*^9, 3.5713832448422785`*^9}, 3.5716785972796593`*^9, 3.5718167268987517`*^9, { 3.571838452469782*^9, 3.5718386879053955`*^9}, 3.571838766139532*^9, { 3.571838857446493*^9, 3.5718388645757055`*^9}, 3.5723437133735733`*^9, 3.5723437554312468`*^9, {3.5723449027196617`*^9, 3.572344929582909*^9}, 3.5723450406551046`*^9, {3.57234950163894*^9, 3.5723495196413713`*^9}, { 3.572584520172369*^9, 3.5725845258195786`*^9}, {3.5726224003989472`*^9, 3.57262241340937*^9}, 3.572796748424938*^9, 3.5727968708695536`*^9, { 3.572796971801731*^9, 3.572796995841373*^9}, {3.57279741546651*^9, 3.5727974308793373`*^9}, {3.572842795856916*^9, 3.5728428061217337`*^9}, { 3.5728522627179437`*^9, 3.572852288426789*^9}, {3.5728523495164957`*^9, 3.572852453865079*^9}, {3.5728524960787535`*^9, 3.572852515110787*^9}, { 3.572852550008048*^9, 3.572852634669397*^9}, {3.5728602362372026`*^9, 3.5728602649256525`*^9}, 3.572860311756935*^9}], Cell[BoxData[ Graphics3DBox[{ {RGBColor[0.4, 0.2666666666666667, 0.13333333333333336`], Opacity[0.8], SphereBox[{6.2984567579999995`, 0.87813677494, 4.5943018512}, 0.255]}, {RGBColor[0.4, 0.2666666666666667, 0.13333333333333336`], Opacity[0.8], SphereBox[{8.0912398142, 3.0808202978, 5.136275268}, 0.255]}, {RGBColor[0.4, 0.2666666666666667, 0.13333333333333336`], Opacity[0.8], SphereBox[{10.1614346472, 3.1034970098, 3.1087882425999998`}, 0.255]}, {RGBColor[0.4, 0.2666666666666667, 0.13333333333333336`], Opacity[0.8], SphereBox[{5.4828510164, 0.92895150708, 1.8780285960599998`}, 0.255]}, {RGBColor[0.4, 0.2666666666666667, 0.13333333333333336`], Opacity[0.8], SphereBox[{8.954466651, 3.8282069308, 0.5798057313199999}, 0.255]}, {RGBColor[0.4, 0.2666666666666667, 0.13333333333333336`], Opacity[0.8], SphereBox[{6.659205451399999, 2.2315774334, 0.10211134441}, 0.255]}, {RGBColor[0.4, 0.2666666666666667, 0.13333333333333336`], Opacity[0.8], SphereBox[{7.652445436999999, -1.61707633272, 5.1421334186}, 0.255]}, {RGBColor[0.4, 0.2666666666666667, 0.13333333333333336`], Opacity[0.8], SphereBox[{3.9725819972, 1.10059531966, 6.2977008676}, 0.255]}, {RGBColor[0.4, 0.2666666666666667, 0.13333333333333336`], Opacity[0.8], SphereBox[{3.2546750897999996`, -0.53636093058, 1.15904454484}, 0.255]}, {RGBColor[0.4, 0.2666666666666667, 0.13333333333333336`], Opacity[0.8], SphereBox[{5.6393203292, 2.1062885995999996`, -2.5537757163999997`}, 0.255]}, {RGBColor[0.4, 0.2666666666666667, 0.13333333333333336`], Opacity[0.8], SphereBox[{1.2153772769, 0.6439052372399999, 0.150276680698}, 0.255]}, {RGBColor[0.4, 0.2666666666666667, 0.13333333333333336`], Opacity[0.8], SphereBox[{-1.00289648546, -0.7372954961599999, -0.36513285772}, 0.255]}, {RGBColor[0.4, 0.2666666666666667, 0.13333333333333336`], Opacity[0.8], SphereBox[{-1.10875893598, -3.5256617982, 0.20480850387999996`}, 0.255]}, {RGBColor[0.4, 0.2666666666666667, 0.13333333333333336`], Opacity[0.8], SphereBox[{-3.047183175, 0.44584305518, -1.3762307540199998`}, 0.255]}, {RGBColor[0.4, 0.2666666666666667, 0.13333333333333336`], Opacity[0.8], SphereBox[{-5.1780382126, -0.97286873932, -2.1119577776}, 0.255]}, {RGBColor[0.4, 0.2666666666666667, 0.13333333333333336`], Opacity[0.8], SphereBox[{-7.2930195518, 0.22196721596, -2.9294532452}, 0.255]}, {RGBColor[0.4, 0.2666666666666667, 0.13333333333333336`], Opacity[0.8], SphereBox[{-9.5026761636, -1.24914668052, -3.692524604}, 0.255]}, {RGBColor[0.4, 0.2666666666666667, 0.13333333333333336`], Opacity[0.8], SphereBox[{-9.4310555482, -4.0933354886, -3.5706372769999994`}, 0.255]}, {RGBColor[0.4, 0.2666666666666667, 0.13333333333333336`], Opacity[0.8], SphereBox[{-11.584965243, -0.072731774288, -4.4973589074}, 0.255]}, {RGBColor[0.4, 0.2666666666666667, 0.13333333333333336`], Opacity[0.8], SphereBox[{-13.7116628834, -1.5733480730799998`, -5.6533043016}, 0.255]}, {RGBColor[1, NCache[ Rational[1, 3], 0.3333333333333333], NCache[ Rational[1, 3], 0.3333333333333333]], Opacity[0.8], SphereBox[{-14.6026686924, -0.31240950232, -7.868819063999999}, 0.178]}, {RGBColor[1, 1, 1], Opacity[0.8], SphereBox[{8.9455849388, 2.8361007808000003`, 6.994820788999999}, 0.12]}, {RGBColor[1, 1, 1], Opacity[0.8], SphereBox[{7.045654418399999, 4.8545171214, 5.077693761999999}, 0.12]}, {RGBColor[1, 1, 1], Opacity[0.8], SphereBox[{11.011055456799998`, 1.2324226054199998`, 2.9663029022}, 0.12]}, {RGBColor[1, 1, 1], Opacity[0.8], SphereBox[{11.60291764, 4.4877213048, 3.6071089888}, 0.12]}, {RGBColor[1, 1, 1], Opacity[0.8], SphereBox[{8.4075799466, 5.8133640938, 0.62856066212}, 0.12]}, {RGBColor[1, 1, 1], Opacity[0.8], SphereBox[{10.3173370422, 3.5362442637999996`, -0.9369639453199999}, 0.12]}, {RGBColor[1, 1, 1], Opacity[0.8], SphereBox[{6.3706442912, -3.1879677619999995`, 4.7785501362}, 0.12]}, {RGBColor[1, 1, 1], Opacity[0.8], SphereBox[{8.2460083736, -1.6577243389799998`, 7.113873526999999}, 0.12]}, {RGBColor[1, 1, 1], Opacity[0.8], SphereBox[{9.305010823999998, -1.78331552894, 3.924016039}, 0.12]}, {RGBColor[1, 1, 1], Opacity[0.8], SphereBox[{2.6287978386, -0.38658124782, 5.8226237512}, 0.12]}, {RGBColor[1, 1, 1], Opacity[0.8], SphereBox[{3.0889461196, 2.9398467381999995`, 6.0161316936}, 0.12]}, {RGBColor[1, 1, 1], Opacity[0.8], SphereBox[{4.5430902766, 0.9068606101399999, 8.2673622774}, 0.12]}, {RGBColor[1, 1, 1], Opacity[0.8], SphereBox[{3.2353998846, -2.5602007847999997`, 1.42313375334}, 0.12]}, {RGBColor[1, 1, 1], Opacity[0.8], SphereBox[{6.8030136, 3.2707377608, -3.7919241915999997`}, 0.12]}, {RGBColor[1, 1, 1], Opacity[0.8], SphereBox[{3.7010283709999996`, 2.8028416031999996`, -2.5785311269999998`}, 0.12]}, {RGBColor[1, 1, 1], Opacity[0.8], SphereBox[{5.6759810136, 0.15492918610999998`, -3.2121562547999996`}, 0.12]}, {RGBColor[1, 1, 1], Opacity[0.8], SphereBox[{1.29132536484, 2.6420259206, -0.2581365716}, 0.12]}, {RGBColor[1, 1, 1], Opacity[0.8], SphereBox[{-0.33081543356, -4.5810737692, -1.38367627446}, 0.12]}, {RGBColor[1, 1, 1], Opacity[0.8], SphereBox[{-3.0658914624, -4.0899339818, 0.51139765012}, 0.12]}, {RGBColor[1, 1, 1], Opacity[0.8], SphereBox[{-0.0062334501835999995`, -3.9225042581999996`, 1.8987966848}, 0.12]}, {RGBColor[1, 1, 1], Opacity[0.8], SphereBox[{-3.0381124902, 2.472706471, -1.61573462726}, 0.12]}, {RGBColor[1, 1, 1], Opacity[0.8], SphereBox[{-5.1264486927999995`, -3.0110894083999997`, -2.024841409}, 0.12]}, {RGBColor[1, 1, 1], Opacity[0.8], SphereBox[{-7.3442311263999995`, 2.2604902412, -3.0167585863999995`}, 0.12]}, {RGBColor[1, 1, 1], Opacity[0.8], SphereBox[{-11.297726891, -4.846580272200001, -4.0077309008}, 0.12]}, {RGBColor[1, 1, 1], Opacity[0.8], SphereBox[{-8.877554802799999, -4.6857645896, -1.6773019003399998`}, 0.12]}, {RGBColor[1, 1, 1], Opacity[0.8], SphereBox[{-8.0659174858, -4.8050063002, -4.9393658188}, 0.12]}, {RGBColor[1, 1, 1], Opacity[0.8], SphereBox[{-11.7452140078, 1.9541656565999999`, -4.3202915812}, 0.12]}, {RGBColor[1, 1, 1], Opacity[0.8], SphereBox[{-15.250088819999998`, -1.7430832623999999`, -4.2942133624}, 0.12]}, {RGBColor[1, 1, 1], Opacity[0.8], SphereBox[{-13.031550496, -3.4508286486, -6.158617033999999}, 0.12]}, {RGBColor[1, 1, 1], Opacity[0.8], SphereBox[{-15.9583581248, -1.33242690534, -8.547797615799999}, 0.12]}, {RGBColor[0.36, 0.24, 0.12], Opacity[0.5], SphereBox[{7.195065307464576, 1.9797451773236876`, 4.865354166986276}, 1.1903004568009015`]}, {RGBColor[0.36, 0.24, 0.12], Opacity[0.5], SphereBox[{9.126337230699999, 3.0921586538, 4.122531755300001}, 1.1938723648075744`]}, {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.9927516555891636]}, {RGBColor[0.36, 0.24, 0.12], Opacity[0.5], SphereBox[{7.807119268525147, 3.030089193723594, 0.34101748162552803`}, 1.162892015105526]}, {RGBColor[0.36, 0.24, 0.12], Opacity[0.5], SphereBox[{6.9756852479854325`, -0.36990128571829195`, 4.868312373526277}, 1.1904394105843248`]}, {RGBColor[0.36, 0.24, 0.12], Opacity[0.5], SphereBox[{5.135117185323176, 0.9894045150241044, 5.446295912632312}, 1.1905480257740177`]}, {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.1686678866153497`]}, {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.1687932099947655`]}, {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.168650063124714]}, {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.1337187872076826`]}, {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.7373673930189542`, 4.260700913556169}, 1.2357130332048445`]}, {Opacity[0.5], SphereBox[{3.0001847523081597`, 0.024435589966594673`, 5.95392268258269}, 1.235890354920097]}, {Opacity[0.5], SphereBox[{3.333166055574349, 2.4315130737764017`, 6.093951989708165}, 1.235839640489124]}, {Opacity[0.5], SphereBox[{4.385406079469298, 0.9604074266018731, 7.722962679290262}, 1.2357521462040213`]}, {Opacity[0.5], SphereBox[{3.2407761209285644`, -1.9957117827605422`, 1.3494740448187397`}, 1.2160885328938793`]}, {Opacity[0.5], SphereBox[{6.481398630136755, 2.9489138822197276`, -3.4497317131095833`}, 1.2358872600617417`]}, {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.5458383481192652, -4.289358808718669, -0.9446204488001931}, 1.2357025058258968`]}, {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.2159849801037783`]}, {Opacity[0.5], SphereBox[{-5.140840532808636, -2.4424904781247143`, \ -2.0491441131904082`}, 1.2157337494382183`]}, {Opacity[0.5], SphereBox[{-7.32994682477678, 1.6918907012357107`, -2.992406751160414}, 1.216034289865974]}, {Opacity[0.5], SphereBox[{-10.781811914544614`, -4.638396723288159, \ -3.8869259463009813`}, 1.235827769989031]}, {Opacity[0.5], SphereBox[{-9.030547707164606, -4.522011515109373, -2.20063792223124}, 1.2356247627619668`]}, {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.0398828061626106`, \ -8.353064498297293}, 1.1252864433636154`]}, {RGBColor[ NCache[ Rational[1, 3], 0.3333333333333333], 1, 1], Opacity[0.3], SphereBox[{4.6635256219318, 2.032400203535989, 2.144687314779468}, 1.4]}, {RGBColor[ NCache[ Rational[1, 3], 0.3333333333333333], 1, 1], Opacity[0.3], SphereBox[{5.837473221196367, 3.3338302317969397`, 0.36629860805206116`}, 1.4]}, {RGBColor[ NCache[ Rational[1, 3], 0.3333333333333333], 1, 1], Opacity[0.3], SphereBox[{2.7233509627477925`, -0.3579043527195277, 2.4419505904374703`}, 1.4]}, {RGBColor[ NCache[ Rational[1, 3], 0.3333333333333333], 1, 1], Opacity[0.3], SphereBox[{0.7413802262397957, 0.9249102664988519, 1.437274337842977}, 1.4]}, {RGBColor[ NCache[ Rational[1, 3], 0.3333333333333333], 1, 1], Opacity[0.3], SphereBox[{-1.4769195846041612`, -0.4562410228206487, 0.921844408782289}, 1.4]}, {RGBColor[ NCache[ Rational[1, 3], 0.3333333333333333], 1, 1], Opacity[0.3], SphereBox[{-3.5916421311480695`, 0.5994933099079488, -0.09562306846903829}, 1.4]}, {RGBColor[ NCache[ Rational[1, 3], 0.3333333333333333], 1, 1], Opacity[0.3], SphereBox[{-5.660825084812886, -0.928845431043892, -0.7985733006294042}, 1.4]}, {RGBColor[ NCache[ Rational[1, 3], 0.3333333333333333], 1, 1], Opacity[0.3], SphereBox[{-7.775839371867796, 0.2659254086479037, -1.6160786989850544`}, 1.4]}, {RGBColor[ NCache[ Rational[1, 3], 0.3333333333333333], 1, 1], Opacity[0.3], SphereBox[{-9.985591234608183, -1.205024399077299, -2.379190580046668}, 1.4]}, {RGBColor[ NCache[ Rational[1, 3], 0.3333333333333333], 1, 1], Opacity[0.3], SphereBox[{-12.16253971504364, -0.22915290320468618`, \ -3.2316811602337077`}, 1.4]}, {RGBColor[1, 1, NCache[ Rational[1, 3], 0.3333333333333333]], Opacity[0.3], SphereBox[{6.302176410868199, -0.17449718937598857`, 1.6113698773405312`}, 1.4]}, {RGBColor[1, 1, NCache[ Rational[1, 3], 0.3333333333333333]], Opacity[0.3], SphereBox[{7.480937681603631, 1.1293246350030604`, -0.16207591923206066`}, 1.4]}, {RGBColor[1, 1, NCache[ Rational[1, 3], 0.3333333333333333]], Opacity[0.3], SphereBox[{ 3.7859992168522076`, -0.7148175084404714, -0.12386150075747016`}, 1.4]}, {RGBColor[1, 1, NCache[ Rational[1, 3], 0.3333333333333333]], Opacity[0.3], SphereBox[{1.6893743275602036`, 0.3629002079811485, -1.136720976446977}, 1.4]}, {RGBColor[1, 1, NCache[ Rational[1, 3], 0.3333333333333333]], Opacity[0.3], SphereBox[{-0.5288733863158377, -1.0183499694993507`, \ -1.6521101242222889`}, 1.4]}, {RGBColor[1, 1, NCache[ Rational[1, 3], 0.3333333333333333]], Opacity[0.3], SphereBox[{-2.50272421885193, 0.29219280045205076`, -2.656838439570961}, 1.4]}, {RGBColor[1, 1, NCache[ Rational[1, 3], 0.3333333333333333]], Opacity[0.3], SphereBox[{-4.695251340387114, -1.0168920475961083`, \ -3.4253422545705954`}, 1.4]}, {RGBColor[1, 1, NCache[ Rational[1, 3], 0.3333333333333333]], Opacity[0.3], SphereBox[{-6.810199731732203, 0.17800902327209567`, -4.242827791414945}, 1.4]}, {RGBColor[1, 1, NCache[ Rational[1, 3], 0.3333333333333333]], Opacity[0.3], SphereBox[{-9.019761092591818, -1.293268961962701, -5.005858627953332}, 1.4]}, {RGBColor[1, 1, NCache[ Rational[1, 3], 0.3333333333333333]], Opacity[0.3], SphereBox[{-11.00739077095636, 0.08368935462868587, -5.763036654566291}, 1.4]}, {RGBColor[1, NCache[ Rational[1, 3], 0.3333333333333333], NCache[ Rational[1, 3], 0.3333333333333333]], Opacity[0.4], SphereBox[{-15.117612717731944`, 0.8239130912956434, -7.492770378304183}, 1.125]}, {RGBColor[1, NCache[ Rational[1, 3], 0.3333333333333333], NCache[ Rational[1, 3], 0.3333333333333333]], Opacity[0.4], SphereBox[{-13.6335469032603, -0.3184582136970856, -8.739781388618775}, 1.125]}, 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.5728903941284494`*^9},ImageCache->GraphicsData["CompressedBitmap", "\<\ eJzsvId3W2eeJXjH1dthzpmZne2dntkzO9s1PT3bezpUdXUFV3WVo2w5lUO5 XOVsS7IsycqJiqSYcyaRMwMCQYIkEkEig8gAAeaco0hRyXKs6t2dvYDos579 F7bP8eV7hPAevvd9v/u79+I9+uWDF499fOrgxU8+Ovjd584fPHvsk48ufHf/ mfN86Tv/AvgXxzL4LjL7/w345sd/43//7ZPMj8wr/7z/z/v/vP/P+/+8///3 /QfZzZ8gHJlBNDKLhiorhJVWyMqtUBQT+RaMemdxc3EXpx4ecjS7+WNE+PYu QwRCHiKvsEJZxrcX8e3+WaTdM4XZt/0rxGMzaGqwQNxoharBCm29FcZaK7p5 WC8/xVzCbQGRa0VYGsbu/C5OPPykw3unWFvbgakzBAlP0UIYeZpensbG0ziq CX56H09j4WlM1yyYHJjBjeyx/waW7jBkAo6OaG+2oquJ7+PxjjorXDzWw2H4 eMFensNTShRa4b5uQUIYwPGHw/ho71Sb67cgbuqFiqfqICyEk6f0cUhBnjLC IUWJCIcV4ql9vDpXvhVxSRi52XP8W/T1hKAWWtEqskLPbY/Ahr4mO9wNDvgb +xFqGEC0cQAx7scbHYg12BGpsyHCYUaKezEq82Nv6Q7tnXJrfQeK5m60CS3o EtngENnhE/YhLOxHQjSAtHgAo9IBjEkdRB9GJTakOPQ4hxziVQ+rQriWPdef or8nwKFZ0Ca2wiDqQ6/QCYfAA2+zH0HBIGLCIJLiENLSIEZkGQwSPqQlbqT4 ealGG4YqujGucuPYw2Ee3Dv11vo21M2daOPpu8X96Be7ERD7EJMMIs1TjXMY 05oQZtuCmG8bJPyYa/VgRuPEuKIPac5YotaCMU0AV7Ln/HcYiU+gXdgDndgO vdiJbpEPDg7RK4giJEogIR1CWp7CqCqNCU0KUy0pTLcOYao1gUlNFGOqIMZk XowJ7Biu7sCnqzf3yntv2P8z1A1afoQZRpEbfeIg/JII4tIERlRDmGxNYU6X xpIhjVVjGrMyD5ZkLqx1RrHcEcK8zo/JFic/wo5UfQ/W/BOX90aube7gBGcm 2ctFC8EqisMtTCEoHoW7IozIDV516xSm2qcxo5vGnGEa84ZJzHeMY9Ywikld iv8ew7jSi3GRGUM1LXgke+4/RCg8iyiRCM1iKEgECO/shw8v7MA3cxcdgbap Cx1CF3pFEbjFKYRlo0irJjDZPsVPmsZK1wzWe2awZZ5G7JoXnykc2LKOYt3M i+5OYNYYwkQ7509uRbLWgH/InvtfYnVtF9HoLOqqLRCRCXISTEU2qNlR+jWR bEfZWtj9x+zb/zPGY6MwCLpg4FA6hBH0cCIcwjH4xVOIytmUfhNAunocE7Io 5owrWOhawZJpGcvdS8QCFrrnMNM1hQlOzHg7J0XlwlCzFjatC00kpIRQk5Tt HIqBFW8kz43kuTHPCr8sjFsLu3jv4ez8dq+53VxYwrjTh/bz+TASpnPcns3H jMOPW3NLD6f6z9Ba1wJ9cx86hWHYRMPwSacQU89hVLvIyeHoelawYVnFTfsq bvWvkIdzWLFPYGdgDpsOTrB9HPOczMmuKEfuIj+7sBEb/X729P8a62u30N0V ftg7CR0p28WLMfNirOwIdl6Mba/xZfpnkJ1mZ+7WT7OH/wV09S0wNNs4t0E2 rDR6BZMYEM1jUL6EhHoVAekqe+Ea5jvXOIfbWO7dxqrlJtasW1i1bmDRuoZZ 8xImumcwbuTVNdoxUNECY7UGLWx8Bg6pm8OxZvowh9PP4Qxwbgcyy8zGN3DV grgo+O7DqX1jb1TbnFqvWIWenHz05xTAe7EQQSJ8gThfiMFzhfCcKUCySY1J Twi6OlZGkw9dgiH2tikElItItq9xRJtY6OVobdu46djBLecOhsXT+Nyzibve Tex617DlXsaaixXimMK0ZRjjnWw0rTZ2d/X3ssP5H9nVdyFttkDBlqglTLww G0XCybn28uICFIpgDcHiGcyIBWXOzeIZuGLBnYXdR7On+Uvo6/UcpZvznSAm 2TkX4JSsIaja4mh3MGbYha1+G3O9t7BkuYdV2z2s993DhuMO1h23scwrmLNv YNK6iIA8AmeTA66GDrgq6tHFIVmbbBiot8FTb0egxo5grR2hLGzZoQU590Gq r+dSJ+7Mbb/9cM5/nd38F1b4Ekw5ebBfyof/UgGilwqRyinCKDFGjGe2F4uQ 5hrEzxeg6/gNtJWauMJRfvo4+qULGGxZx5BhG5Pdt1kZd7HRfx877vu47b2P VPMcPo/cwb3B27g9eAs3Azex7lvHonsR045JjPcmMN7hxohGh7/Ljul/gqXL SyntzUphphWahbxCNmIf+RRqpvQ19yMpoKYIHUQfNcvOmrA9lFguxGCBGQv9 Ez/Onu6/Ynt1A4a6bhgaBjnsYRgbZ2EWrMIlv4lQ620M6e9jvOsBZno+ZyPn pHezNPq/wIbzC2y6PseG61MsO+9ifmAbwdZxuKVRuClrHlEPfPUS2JsH4OIC Bxq9CLMc480+JIU+pEQZeDDE5pXIDJmLlKjsRSjXgL1VeH2vRm4tLMJ8KRcD XIVBrkDyUjHGLpVg+nIp5oiFK6VYvFLCbTF/L8Ik32M/VQLZMTm0ZSF0N09j QLGCYPtNpLruYMryKZYcn3P4X+KW7yskJIu45/sSD8Jf4H7kM9yOfIrtMC81 uI0l/xpmXHOYsJEFVPkxQ9ff7klcxkBoBN3ZhegQ98FC0+Ck3AWEXkRpg4Yk gazQjysGMakKYErlJ7yYULjY0PqpzHYMcVFipd24v7Tzo+xp/3eMBZMwUAAM dREY6sfR2cSrF2/CpdpFqJ01Y/wc491fYcbyOwx1/56LQS67/gkb7t9j0/M1 NjxfYMXzKYa7V+FTj8GjSsKjDMAnJwOEGribgxgURBAVxZCUxDEsT2BUyTpT xYmMNFJoOOQRqRejAgeGa0yYbnO99XBNns1ufoBweAZJOtlePZ1smQXWtjBG KZiJwVnE+XpjlQVSypeC8iVnXxtyjEB1tAyOSzfQc6EUhnM1kJxoQNURAeoO C6A72gjvqTqMXqjGxvVyrF0rw9LVYrhOl0NxVA358R501oxjQL2BoH4Xqe77 mLJ9gSXn19j0/h63Bv8Jk9rP8CD1BR7Efo/78a9xJ/4FtmOfYj18G0uDm5jx LmKifxzjtjDGTL34mz1J31q7yb7cAS0tlp6ur1fsZb8PIkB5j3GG0vIkLU8S sXouXrkD81IPFnQJIoZ5bRgztF0Tag/9Sj9Gms1IlHXg4Wr+FcYGh2CotMNQ E4OhdhIdjcswS2/CpbmLkO4z1uNXZPnvMGP7J7Lyn5B0/N/Y8dzCho+r6f8d t19hrv8OQm2z8LdOwts6DG9LBH7NAAZlWo4xhahkBCnFGEbV1PqWCUy1TWCm nYZHO4YZ7QjNEE1PS2ZlWYxiB0YbDHiwtoU3Hy7pvuzmh0wc0xAzcbSyi5so UTbWZj8lylhiQtE5FarPayC9okUHjaqN3d3B7t7PhmI4IYXoUDOufixE5XER ZKeFaDslRMdJIUzHheg5JkLPYSGMB4XQviNE+Fgd1nLL4T1TBeXHGig/MaPt eogOZwuDHXcw1PsAk31fsgl+nZ2CyZ772e39+O/xIMGlTf4edxJfYTvxGdZj d7EU2saMfxkTbjbMgShGzZa9pf0zDHQ5oSNHDeRmF5fUzqL3iYcQlXLKlGOc lglMaycRrExjri6FNd0QVrvGsWoaw3LXMBaNQ5gx0GRwiceVDATNJIN+4Buu GsroEiri5OsUOppW0SvbgbPlHoKGz5A0fYkxy1eY7vuazfFrpO2/wyaHu+7/ ChuBL7Ee+BwTdA0h7Rz8NI5ebRo+bQKBNrYQhY6hbhpJ5SxGWuYxoV3AjH4R cx2LWDAuYLFzHguds/RKU5g08DLakxhXBzAus2Chp39vYZ/Obh6F1TQItYAp h8HJQan2URfDXGRJrgZ1l9VcVA3aiM5LGnRzkfsutyOaSTnlRjScaEL5aTGa TkugOCmB9oQYltMiuM6K4OU2QAyeFMHPhXcdEcH2oRDuA43oPlAN5aEWLq4F mgse9LXcRMB4B0nzp5hwfIYFz+ecgS8Q1tzG3ZHf4S4X9P5QBl/i9hB5m+Ti xu9hKbyDmcEVjPumkHYEEOlsx+xsCrPTKeze2sL/sbfQ2kYd/VoffXAQPaIh DIjHMCidRFI1g9G2eS4a3UznIkaUc8wWM1g0TWHTsoBN6xzWLDP0cJOY62ZA MHImtZmmbcOIQPvNQuuLzDCUksKVDxe6W76Dgda7CBgeINH9GUasn2OSkjLr /Dx7aUnf/4lbsVtYG3xA3EdcN0O6z8LLLOI1TMBvGEJA54FfYUdctYx06yrG deuY7tjAfNcmFrs3aYI3sNK7zqGtYr5nGVOmOZo3ti8dG3Wrm81av7fQT2U3 fwN7t59x1swJsMMl6kdYRENPLVYXtELIxdbktaLrRhtsee1w5Wrhu65D4JoO kcIOqPKUaLwghvSiBO0XpHTuMljPKOA4qUDovBzJyzKkrkiRviJB6rIYiYsi hFgEHrK78+0myN4jk4+as4vdUz8Jn/EW4uY7GHPcw5znPpLdG5hy/Q47MQos mfsI7g59Rq++O/QAN5P3sRa/iwnPAhKONAbNbgRNJp5DgmCfAkGbgq/J4TPJ kfZZcW9n6z9mL/kPcOv2FmZYDzMzxHTqf8i+/B8wFklD30je0210CBKwCMbh kswipFhCqnWFpFnDXNcG55jCWpbCTWbFm32b2HFs4Gb/Gu3lCkPGIuats5jq 5Zx3UiDbPZzzLmwl0z/c6+5uBmFDYRiG8kmapxWYZDfRR9PkM9xBtPseUtb7 nAAqlfP+w0kY+AybEw+wPHgXK/R8MR1bj2EGXuMMPJ0z8HemWFIeBNRxJFtv YkS/w4rcxWzGO/bewbLlDh3wbQzmDWBHGcaCbZP+nOzomaVJG2F5hFgeZmwP D+1FMjyZ3TyOvi4XWmkbu0VOuMQkEjPPsCKK1sI2SPI0aC0woLvQhIFCMwI0 xFHmo2S5BakKEviyHIIcKZSXlTBcboWFDcJ5WQffZT1CVwwIX9JhslCH6eJ2 zBS3YqaIEaRAgZFcKWKX2SCoCPWvqqA83A3VeRezGH2iYQuRXkYPxy1Mu28j 3kVTn/oKW7F77Oz3cCt5j7VxF7eItcgWRvrHaCLSiPVFELY5EeruQKhHiuEB JUb6lBi2K5CyKJDoUSDaKacaWHF/e+vP9jzk/GIK9gEZnANyePvlCDgUCPCQ gFUBf68cni45ViZTuLuzlT3CZXDQEvcxm4TR0TwKq2gWHtkKIi0bGNZvY7rr FlPUba7GHXiqF7HbOYYd5x3sunfp7new5bqJVecGNX0F03auTm9mdcJcHTt2 Rsa+KaDtxV3oc/0wlDDK1y+iU7IJq+Ym3Fz4oIkMsuxiuO82M/VtTHluY9Z3 G9Hw77nAO+w58wjrxxDonICXMd7bRdZ1xuExuBHS7GJIdxdjxvuY7n7AsPwZ lmyfI9WYxi31MHZtG7gXYtDov4UZ1v24lbndnAkc7C2mfuxMjH1TQE9kN0/S JW2hrakz+8WHQxRFUJpCWsmZoQ2Q5amhLuxCV3EfBkpI3jIfElV+jNRRkxr9 DNsdkFyRQ3G1DYarnbBe64H7mgXBGzbEC21I0SEOl1gwXtKD5eoerNR0c2vE YpUeM+WtGC1SInFdgs6DcjS/2Q3l6X501KTRr1vFIBvLkH0L465tDPZ+ySmb x2qUDip+C5uJW9giZj1TtAbDGO1PITVAJ9cfRMTeB6+pDdMuJR0+4SRYTNMO JSbYdEZZTOluNj69DA+2t/40Ow1/h8XFIbjcMvjccoTcrDUi6VJgaID1x0PT mTpkUSV7FYiZFIh0yLl6VuiqeOn1DLqNSWasKdhEjPOqTUS1tzBivIvpnk8Z D6kWFMew8Bbu9H/GKM5e6XuAW/772PKRB95bdEUbHCZXy7YXD8nriEyIuXka wagVdpscfRY54kErFimSCyzqv9tTMReXTJ9PQ1ozC1n5FFoaZtFaPwWjkAGp ZZEWZAmx3jWMuW9iwnsTkYHbWFv8AkO2afg7htmiRuE2ZTACV1cMTua9UBvb nOFzGmpOvWEZ/U190OXXwSRoZCoSo6tJjM56IS1SMwItbrgVfRjvIyH60qw6 D3amJ/+7QnsUA8YB6Bnju4VR9uxRRJUzGKMBEl+VQp3fRS12wloShK88jnht kpY7hSlJCv1nzJCcboAqV4/261TBaw4481iMRV4kyv0YZkGO1/owVefBTK0T q4392GRg3mi2cZ+huN6EyWo90qUaxHPF0LyvhfRoH9rLE7C2LvDqlxGxrMKs Jl+STMSBTcyHNrEU2cRKbBOTLlrwfo5nIIGUM4a4M4xwvxd+qxlxmwZLXhVV b9mnwh/zp5K/K7HgVmLOqcAU29E4V23EKMNnO5v/di9lpVMW+L0yBH1cUB8L y8u69CgxzsMmWa9TrNepfu5natauxBiFcpiFl2I3k52vh7bcyaIbRlfzLGzS NSaHbUT1dzFiekDd+BJL9Kbrzt8hrfkcd5k0dgO/w53Br5mmvsDNjHUJ3MGi j/batcrkNIuIwYXBFh380jr4OewQiz7ST5AvEX522EyxJmcGeRkjbMD3tjfx H/dulcwupDBHWOwsUBapw0qw88YHWahTDzvvH+4V6pB/DnWH+lF1PICaS1E0 3UhAXjqE9uoUjA1p9DQPsyMPwyEeRsg4jRHvKvzRrzAVmWP5JODoSqHPNEzR S8OqS8OlZoLSPkCgfQnGKopdaSlMUiHMchlsYhnPI0O/kNtmCewNfL22CT2V LOLSSgSUHRjv92Nndur/U6ja2k7qwyDMghF45XPwNsyg96IVylwdZXUAncVh 9JenEaydQEowjQnZDObVsxAf64U6T4/WPDuMeR5YcgNw0kVEKxMYrktiojmJ GWES8+IYlhhaNiQB7Ej9uMncuS5x8rU+TDf1YqTWiESpGs4zYjS+a4aqIAYj E4Ndx7F0z0Pfdh+pwDpGvQxHfupQcAWp/iEkKaEJRxjxgRAiziAGBwLw9jkx aDNidVCD9aAG38FGSMNC3QipaWDVWPGzWD0Kth45pqwyGiIpPtve/NfZqfgR 7t7ZhN8tQcgvQ9TPpumn+hMTrPNp1vmcR4V5YoFYdD+s+3lilkU0zQIaZ0HI LzRDkWNk0SbR2bQAm3wD3rZdRDs+xUjPF4zIX2Op//dYdzPqG5kBw19jN/hP uB36PXZDX+Nm6HOsBe9jMbBLRzCNUGcQQWM/QnojgqoGJPl5KTb6rGMgYUZI mBEWbZpFm6RrSNA1xHQybIwM/fu9L5Lv3N1EPGnFgEsON5u8j8MNsuZD36r5 CA8P8fBBHh7g4SujQ9/ZU3ezKQQpw5ao1IrKg27Ung2j/moE4sIoVGX0XpVR 9sYYCyhOPYijTxqHm2HdYV7C/NpXMHdE0duZRE9nGh36GLrpXnXVy9BWqNFS Xg6dTIQuhRRWmRT9hEsmg1cqhV8sgU8ogadZhIEGAfrqGmCvqYa9ogTWwmtY HYp+o+6PZzf/iK2VDehqbOhoiMMinIJfvQJb/SYZEIL4VAfUl93oLhmGq3oa keZFDMtXMd1CA6FdhyxHBhWVXH7JAd1VP8z5MbjI1mDNMBKNIxgTjWFOPo4l uoU1JUM2beeuKoYddRgbykEsy72YlWTCtQXJGj3ixRI0HhUxd9rQVBTAlVN6 VF33QCufhL4hgGj/HBdzDgnnBAJmP+s2QD8XgJ8sdfUH4OjzwecwYz3Uis1I K25GW7Eda8VOvPUR7rTgj/hSCzbCaqwGWY9srHNOOetLSosmxsOa/luMpcyI +OlgA0w+ATnGSIEpvwpzPjWPUWPZr8FqQMMmSQxqsjRZDWRe57+z5mdZMIpz TVDldEJ5yQl93TSsii142u8wxj7AsPkLWsMvsej8msr+NaLq27gTp9pn6jrC Jhz5CjcjX2At/ABjVMx4bwrhnhDC3U46XCMbcQPGKQYTrOspp/IRTLOw/4h0 4q9ZPaBW0IiM9MgxzH48M2DBv9tb7aWlIXg8LBYvezVZHSHiPE2S9EjxLGlH xlATVmWWHkMZelBTEgYZP8qCT29uZm/JqoRWtOzdktWW2VB12I/a8xE0Xo9A VBSFmgVuaIgykEbQLYmgVxGBWRVGryaEHu9dOF1xCJo7oZaEcO6jShx/tRSl R06j4voJlOWeQj3RXl2MATmLmQjIGAhlYoQlGYgQFAvhFzXDI2qAS1ANZ1Mp nNXXEFfUZ7rTb75d4z/FSGAYhioXjPVUBck8Am2bGOq6TfPdB/k1N2RXkzBc H4Gzag4RwQpGW3Ywo6eRlk1DdEYJyWUXNNf86MglXUtG6PsnEG6cQYrZYEI+ i2kalXnNFNZaJ7HZNoLbbcPYIZ03WxNY1kQwq/RjTELnWqxF+XkZ6s+JIKEj bjpjgPhcB5pOdEHBffnxNjQeUKH+iBoNjGbi2naI6tsgE+uh0vSggwVgt/Ri I1PbsTbWdRt2k+3fwe2hNgrtLn/eSvKf4i1Yj2qwwhpfYI3PO1kEFgluTSX5 rof35mfpGt3uFHyuFHq0nWgXNqFd0Ex3x3oPsHezludZ50us8dVBni+U4U2G Vpn7plv8+b9hM9ySFYtV1v8S+eERy6G+YITqshPqGyFYlMwz2tsId1KOzJnv 9j7DvOtzrPi+gEOwg934DnZY57ein2Mn+hnP+oDGZhFp2zji1hQiVkqj2YlY txFpeqQZagj15DtZMfljLGZkxU15yXh49ubJPoY/CxXKJOVr5j/dsx/DtFIB H60U1SlMZcraKbJnhBjjoRO0U49gkuT5QdZOTTJTjtsexoAR2pThThnF+jpa alqzt/k7RDb0Ch3oFzjRW+qG+HwQVRdiqM2LQVQWh6o+jjZBDO3SKPRKggWg kLlwg3GmiOd489W38PPv/gc8872f4fBvnsbZD5/C+QNPI+fAPlz98BnkEQ2n 3oaF5R9i6UfkYsSzECGqECKsaMagogF+eTV8khJ4m65hopsdzCDB57Rdb3y7 9p+hGI9CX+5FRy0Tm2wZft02WX0P0os6qK8HoC0cQW/VPByNG2TUNoaV23A3 DKOnuB+SM3rILvuhZXQw5tNVVU5BdTyO0NVB+K+F4c8PY7Z1BQtti1hsm8WG fgq7xLZ+Ahu6ESy3JxERu1F9VYMGQnZFgfZrcpjLdGjPEUNxuBmGy71QHlFB c0yJ1uMKSA/JIHxHisqTYpRXt6GEuHqpFEdeeh71n7yCqOo85uzVuJ3S4k5a i7vDWtzLop377bidJi+GWpn+WrAW02AxxArJkKBfimmz6A/3bqbdubvFNGdF fZ0M5TdkaCRE10QQna+F9GwtZKfqIDlWB+GhOgzUi7E82Iq1PVnZirZhO56l 3yPYSbThuxmFISMf0mONlPDQV6rPGqDOGWB0CdHWzMDZfgvBzttImu9i3HGP MkHL4vsUbhUDoGcOswx3U/YZTNPCjJmpoKYoIl1hBLr8CPV66TfsiPXokWKN L/pITdJzJZCVokey9u2Ps78+VCEyJUOLfjmmbTJMmiRYcPX+yd7FZ9x4JM7I 6JCjn6xx0YS5SDAny30oYKWeSuC21ZIuNEakTMbUDdPQjVPcJsm6abJu1q36 A36GCn/PgSuzXi5DQI+kDPpr56G7eAG6Wj0FwE2DTZvZTP1irkuI6XTqE5AU JlBWkERNVRJNTMYiUQJiWRxCZQwFdVa89sp7+Nlf/y2e+K//CU//1X/CgRe/ hwsfPEGWPIXLB5/GdbKl4MAzKPnwWZR/sB9V7++H/OQ7iKvESKhFSKqFSLQI EGttQqS1AeGWGnrBUoQ1xdR7zkqvBJMdYny+s/lv9hpF5gEMY0cEDdU0bt88 0lVCV19ghSNzb8w1g59/m1w/xtbSFlOpF4bacUaKFfh0O0j0klznaZyuBtFe OIbe2kXOyiZimtvwiudhq0lCn9sL2ZkuSM4PZr8B6iwep0+bgyr/JoKGTxGS 3EOv7Gv4FZ8iId3GqGAREw0TmFfMYr19HiuqYcSbXWgkoUS5LVDnatijNLAW tEJ+uASK9/Kg/bAQxo/yoT9eD8PJOhhOC9F+WgE1SSZ/X4Cq31bjk5dfxCe/ +B6OP/Y9nCDy33icvXCs7QK90E5YivujWnw69hCZ/Tsj7dgdbsNWimwgwZai VIlgxtHLMOcQY2cm8Z29m6R36aCH2HoFDRJUFcsgIFSErlBOr9iAjpxadF1g 0jpHfFKOrqMV6DxUAf2BJkx2qShi7eRWe0bfsJtqf4SEb8efU+n4crINNxOt 2KCjWw5roDippe7YSbRBtJXH4Wjbgr9zG3HzLeaBXebz2yTNHHXoCxqjSRqk CUz1TWDSOow0nfpQdxDR7gADrA8BUx8NfQdXkobHLsRKhvdBfha5/wgVrxX/ MtsDMnsZTVwNarLaN5/JOvSSs/SS0ybW1a3Nh63meSwupeDkBLndcvhpDUNE hHoVY/SP0avF6NUcbYUUlqMwio7Bos5B2N7Azq1ijFIzRqkx59VggcjynljO wP9wu8R/zyhiursJXSXnYSrMQVfeFRgvXoWlxgoPE2VIlGYhjbC7j2FcM569 UzirncCcbhxdkhGYZMPolA9hojWGI8++iu//+Xfx6F/+OZ74i7/A4V/8Fc6/ /Sguf/gErpJ+Gerlkm75bz+PQgpYyRv7UP3Os2g4+Bzdy3NItgox1E5om5HQ NSGuq0dMW4tQSymFVYg5XvucXYZZUnDF3/uv9h5aTMZnIczcnCKUDVa01Vth 4PC7qqzoJhV7ionMczvXub1kxrRjCj/7di5/Bu3M1IbqMfTIVuDW30Ssdxfi 0+zCl4JoLRpHd/0SXFIacekqOsvDGGhOI8Crl57qhvxcAK1ls+gsm4K9fhE+ 8Rqiyi2kW25iQruFWcMmFozrWOqkPzRtINjFHNS/S0PPYRdoIS3p4vE9zEo9 cBSa4L7eBdWBGnQcqYXtdAMsJ8tgPlMO87lKmM+WwXSiAB1H89F+4AY0v8lD 0b5f4/RT38PZfd/HOeI8Uf3ek5gx5vCzL+J2TIbPJvR4MKHDp8TdcS12R9ux TTpukI7LcQ3mwyxE9ux5lxS3FxKP7FHxHqlo7hahukiAxlIZpGUymnYZhyqH vVgB89U69F2th+1cCfrOFMJ5thDus5mHirg9VYj+IyVYMGtIw4zk6h6hzuoY kzLKm1Hc3TRHkeIoaD1XaT3dojaozlrZlLyckTD9/wQ8HRuMMJu0cysIdKQR MVHf+r/CsIUp0TZCSo6wfklFkx+JHh+ivR4M9row2GMhlXXwqUoQFZ/FlKmK 9Gun1rZnO8R2Fm1Z7d1i2tug/q5SfxcZxzKUnB+QY84qoTz2/sHeDcNMY/K4 pfAxAgW8pCKR8Dz8hiBNLzhCNRulD4yZ6tErPQqz9BhxHGbxCfQJTiJqKMMM aTfvbcGinx0owMsebP2DbJv4QdYsZ2Q4pq1Eb0UOesquobcoD+bcfNhuNCMg mkBMPo20ehbjmfuTugXMGeifjItY6lrActcctzNIy6K48fp5/Pbxp/DKoz/G j777v+Dn//lnyH39Z7jy3mO4+sGTuPT2Uzj+/GPIee0l5P3qlyh+42UUvPwk il99AtW/fRpNB/ej/dK7GDI0I9nRhISxEYmOekT1NRixNDMcqLNfzsyTkfNk 5JxZhC92N9jivv2olxlygTX7uFdrM+1vI+n3rWfYnBVWuDOPeJVa4SJF3aRo 5hv+IdHgT7/NzkqMulehLxtmv1nAQPsa62ELlsYhKC8G0FIwhs66RfRLN9BR GUdXdZgGOwm/dAiST7qy7FQWTsFUMwVL7SyFdBkR5SqG2tYf3j41Zm7r0Yl2 L2C+axJJaRAx2SDEeUrICnTQFJjQWWRFX7kT3vIBhCr70HZcAtMZMZzHG+Cj 9Ru40gTnNQGcVxvRl1MFyzmy9GQRjB+TpW9dw43nnsLF/X+PS88Rz3+f2++j /N0nsNhzCQudObibkOHzSTKUuEeG7pKh22ToBhm6kmzBwjdi6adEDAiys3Kf xTjolaC+qBGCMgkU5XK6dRUdcgsGStvgKlDBnS+B83IdXJer4b9ahdD1SkTz yhHLK0U0txiRK0UInCnGij3z/F87vMZW1BUq2ZWUkN5QQn5dmXXepioVvEoV FumKJUdNUFxxUZGZaoXDcOiW4TLMwdEah0efoAQmkQ58Sa/KrYXojSLW6aZM uhDudWLQ3A+fuQ/enh706dVI0JWniLTyPCZ0N6jcWkZRYkibVfBbxDad8ha5 uh59KNvzgxnZzDhzVp7tYeU9sncb9/69TZJT+v+GNiJFFz/yzXfgroffgWe+ +XC3XESf/Cj6FJ9wewIO2Sm4JafhF55GTHmdEbaVMt5GX84eFW7L9I/v8Ecb /jSbaDMqbq+5QKkkUasK0FtWDHtBCRx5JQg0RegklzHKcp3Sr2OucwOLpk2s sJWtmjewZl5HfyGFI9fMob/z5D78r3iHhH3vsSdw4qWf4sKrTyPvbRL0zSdx 7LnHcOr5J3Dxl/tw49evkKwvofhXT6Hs10+h8rdPoeatpyA6sh/aq+8g0UXZ JGKdDUj1NmKF7mORjWU+k8o9D9vavEOC9UjPN55+a+MWVEIzNKKH38xohVZ0 kq+WRjv66+1w1zngr3VgsLYfIe6Ha/sIO0LVNkTI4UhRL8YV/ke/zdl/wNb8 HbTdSMHQPAtryyL85Ji7ZRLy015G/DT0tXPobJiiR3aisybIBhmBVxqD4HAH ZHyPPH8cHfWz6Kmbgku0gJBqEcm2ZYzolzHRuUirNI+Z7mlOcBwJmQ8thWrI b7RBU2SGsdQDW7kf7sogQrVE1QC6c2h2D7CbfVgOX4kW8dJ2BIpUCNBVuvIE 6L/eCOvlGvScLYXpaB5kvz2MKy/8wyO49tIP8AJ//j2uvvh9DIo+woo5B0um i7iblOHBlB73p3S4PUnK0utujJCyFNWFrKhyvoMyzHiEWSUNecRQNzUy64sg J1V15e0wl3fAVW5CsLIHobIOBIo18OaJECxgZi9mGikVYri8CSMV9Rgpr0a6 rBzu3HKImTSbCmRQliupyEp0lijRXaREL6nby9bVQ9p2XlRAn/HtH6sgPuWA LM/L9/vQqeTUSgZhVofgaA/DpIxiJP4Ake4o4j0RhE10s11c9B4HvKSqi/Fx oNcGW1cnIu03MNx+gdN+AePEROsFzBrzs6GaTpux+q3s/i267Zt02xuk7grd 9kKGthm362H9DUhwez7xsI2RrkGfFBG/DLHAw7sAw35S1afCFAVmNvvNjRo9 Cl6TTIp8puxSGv/KM3WoOlkPyaVyGPLz0V99BTHJWZquPKyH27NSv5WR+piW cq/Nyv3NLDgmpnBH/WXY6sjZmlKKbQXspZVwFlfCW6VGqu0mxg07mOnaxULP 7ewjFGvW2wjUDcNWNsFksIO8D07hvaf2492nnsV7Tz6DD554Gjlv/BTX338M N15+nFb4MfL2CZx+/klcfJHW9+WnUfDavqzlrXgzY3v3oe69fWh4/ynITj0P l7KA1qaJaUPIdNKOVXaZJfaY+eDevGXuftCczfeL/vhbD5O2CLvRJragXWyF TmSHSdgPK+PdQJMHvkYfgg0BRJoCSAgGkcw8YCrKwIekwIOhpgGk6jJ/RWLC lMbzk28//PEDGppNtFZOwSifRb9+DsHeRQiOOKG4muDrk1CVRiC70QddpRuW 5kEMSEPoyB+A9LgLkitJGIWLMNWNM8JPI6CcYZyeRYrnGaXrHTdNYaJ7jJHb z5H2QnRZhBY6AV15AN0VMbqDBPz1KcSak9TcPvTld8JVZET8UAOCZUaOvB/p mi6EKrTwlqjgLKIdvSGiHaXxOlcM05FLKPnV0yzI3Fd/SPLmvvoD5L7y92g4 /ARW7ZewasnBen8hHsyQvNN6kleH7XEWzWgbVtNsmAlOeoyTHpFjxi/E+FAv XD1CiIsbISfZWkhaU3kPBioyD6o7kKgfQLLOinC5DuESDeIVLUhVaTBWq2b4 pt40SjHZKIKSPab+shDNl5qhvCKEqVIJW4USAzynmwT2Fivho/568xXsScx2 VxWwXpBD+5EGjSddEBV4Ia7yQdPsg0HmR4/aD1FDGsPJW9k/Wqgr7kDeeRXy zyhQdIpgYK84r0bNNRUqT55E8+nXMK6/iMmOHEx1XMQ008G09gK2Q7LMw1Uj Ovxl1qHv0p9v05tvDHE+GJcXo5yPYOZrXWquR4rZ/oceJEL/EaMniWeIG8jc vlNigsU6TXc4R6Nr0yhRw/7aWKRAM3usiF5EnlMH1YV6aM7Wo+VYBVo/Jg5W out0BQZJ4llzNbWen5/gmiS032Fm11JOMoF+pKsKA43XYW8ogbmOYai6GvbK OjgJb2UN0vq7lIZPMdvzAIuWz9gLVmAto3S03ceK+1NYJZ04+Mo+HHrrSRym rh5540kcff1xXHn/UeQffAyf7N+H888+jmP7n6LePo2LL+3DtdeeQcEbz6D0 zWdQ+e6zqP7gGdQdeIaRdR/p8Ay6605jmRp7k7Zlk8NeI3eX2V/m6Q3mB/e4 62PPY++/sxD/o73nh109fvLVDJ3YRvSTLWSRgGxoDsHXFEVIEEdclMSQNIlh putRRRJjygzi3Ge7loUwKvZitMmOkRojNoMj+PG3n+y7DptiEZqGWRhVs3B0 zJJcMYjORSEvHoG4wA/Btd7sXwl11rtgFXnRWdGHpkMOiC8EoWGMzTwsY20e hVs+hmALo4duAknjONJdI0jqowxrHHqJGoIcJcTXe6HMdUOXH4alLAEPO2Wo eYhGtB8DxRZ4Se7IxxJEqy2I11qQlnox3MSAVqWHu6IdjlIVLAViEriGMTcX gvdfR97rP0b+6z+i4/kh4wwJ/Nr3sdZ/KUvgFTNjbUqGexnyUn23J6i8NMwr JO/CEGc9wVmPyZEeqEDMI0J7Qy3kJVKoygzQlVlgoZH3VHsQbfRjWBTEiNCD EEkdrzayJXZirNGIKWEHZiR6zMra0VYohuC6BJJcCTTXhOi43AxrIZNgpYbK 3UIb1IIYt3GSPkazHCWpQ2UKeFn87utyRnY1Ko5ZaK59EFT7oWz2QysNoKzI g+K8DhRdUqGCal1/UQYRITyrgIgEFhyTo+Y3ZSh/KR83njmOk794Csrzv8Js Vw5DC2G8iFn9BZL33qg+Q95Rkpc03iGBN1NUESrwIoP1fHgvQARomDkfE6le xH0SJKi6GeIOBzLEVbPZcfy9KmiblWguVUBMaAjVtVq0M+sbLme+ESyB8Wgh uj8uhPlIIaxHimD7uAjWg6WwHS/AGhvCzpCODkD3HQZ/Hf4q6+XHumvgbMqH vbEclvoaZrF62Gsb4KxvhK++nsnWj8nuLzFn+RqOulUYanepOSsYaO2BSS5G be4JnPngaZyjaOa8vx85bz2NSzS/JQf/EaWHHsMVEvny/l8gl8Y451fP4spr +3Ht9WeR/9v9KHlnPyo+2I/qA/tRe+hZ1H/0LMTHM4b5FU5dZrB/gi22mXWS eJkGYT5C4Q1lcganbZA9zy/BneXE3rMmf4bt9W3oBZ0wkAIGkQtGqmqPMAJH cwJeQRoh4QjikjGkFBMYVU1iXDOJzoMszasdmG7LfIc2iomWFMbVMYzLfRin 6x5pbP/xt5/BnoRZtQwFCawjgS2GWYgvx9F8NY3aqx7U5HRCnN8NTXkv9DVm dDWYocoxo+mEH9KSYeibmJYbEuiTDMGtSiHQzlEZUkQCNhEJ0NgFKZVIcLEd oqt9UGUeKCyMwVyRwkBdGv1VYVgL+uBm6g1UuxA4pkGiwZn1DMlmB9KqIIaE THG1nRio1tEWKWEuaIblagm6zp5B/hs/QcFvSOAsSOA3fgBt/mtYdVzGii0H 2+HaLHl3v03eYc5QirM+xEJlIg50XUPCI4G0oA6K4jaoS3vRUeqEvSpAd8B4 JYrDeMKB1EUbYrVmpKiAIwIrJiVWzCotmFP3QlssZZKXQkZFbWGiNdIaW5lq XQVqNiMjVbsTww1dGGnqxGizkTCwMemQamhDvEaNcIUCAToL6ydlaKM9LyeB K8v6kXelBblXDKi+oUfFBSXqLyggpFIrzsuhInmVh2shezsfsjfzIXkjH6Jf 5UPwwg3kP/kGqmj55jLJvzuH6f8iNr2cizE97hK3SeCdES22hkneFC0g1Xc+ uvf9XEiOSWcl4pSSJC1zkgk3RXkZJXGnSNy4WQVhCZtUuQIKjruN2y6i43o9 eq41wHSmDD0nSmA9VYL+MyVwnyuB93wxfBeK4Kdr8p8qQjCvDrdSXJc0x5LB MPczjiCtw1hPhsEF6GusJIPrYCZz7Y1NcDY3wydg7NQE4VfsQFt+DwOG/ws+ UwK9SgksKilsKglKz7yFKx8+Q4tMOf34Vyg//CrK3n8cdYd+gaoPH0fJ208g n+wtf+kxlLxOZr/9PCoO/hKlH7yIykMvovbjF9Fw9EVIT/8S8rMvQXnuRbRd /mV2vDvsM1vsMutk8TKtwkKU8xbZa3yZGEaHc2clucfgfw+3yQVD5o88hE4i hC5BgmI3DJdgHAHRFKKyWQwp5zHSsoCJNqZN7RJ6L8SxbprFnGEes+TjlH4K 49qRvb+T8ZDJJmwn03t/x7P3NzITWF/9Aj3da5CTxloe1pCXRuEZN26cMqLq SicEBZ1QlBrRXtnBINyB5hN9qLmUgooa2lIVYhSPwCKLwsFmYecUGxtMMNbo 0VWnR/3JBjSf74Do0gD1NwR9SZKJZgSOxjGYCjzovTFADfYwugfgPq5jBBhE ms0qVG/GYGM3ki1MfJJ+NuFO2KvbYC6TUoer0Hv1Im68+VMUvPUo8RPkv/Vj /v4P6K78NZYHLmO5LweL1vO4y/S7u2eeN2iel0c47cMs17QSc0kpvJ3X0Ssn FfIlUNDAq4sd6CwLwFEbQ1CYZoMcRXfBPKa6dzAucyEtdGFM5sa02oX5NieD fTekeTy2IPOwsBaGAgMs+UY4qZneXD0pb8eo0E7K92FaZse03EZYMCXrxYTE hGGhgS2rjVosgvtyJRzn6uExy1Geq8C1Mw0ouqhBEyncdFEJ6Vl+zvF6qI/R mB4oRPvBQugOZVAA7cF8tH2YD807+VC9fgP1+4+g9uDTWDBfwmJPDttaAe5N kMLjpAxpvDPGcqQGZymc5JzE9wJFVIF4by7bWobCmbSrZNpVM+22UHtbIS4R Ql7BFlKpgLZSzTDUCnu5FhZ6D0sO2+vZOvSdr4Mrpx4+hp3g9VpEblQjdqOS KEP8ejFilwqQrBBkqXt7RI87I5mtLkvjReq9s7GQ9VEFa0M9zKSvXSCAUyzk Z1VBeNoAcd2XCNp/D2dbN6krgk0tgUMjgYvIpevN//BZiu7zqDn6Oqo/ehk1 Hz4BweFfoPHQ40y1T6Dqt0+g7KUnUf/GE2ggqg+QukdfQePxlyE49QrEZ16B 9NzLbJUvQ3XxJbRdfRmzzkbssN1skcbrpPFykhTOCHGMFI6RwjFSOCLD2kjP NwzWN7IcBJm/uB4khmBqHoO9eRoe4TxC0iUkVKtIt66ToRtk6iazVQzrLcvZ L+EWTRuYN61iumsR48ZpZqJhvi+M8TYHlhwD3zB4f3YzinD6NmpFEVw71o+L hy3IO9vFpq9FY64O0iId1GV6tFXrUXfGieaqaTQUBqCoCaJdEIROEoCywsC4 3IJWrmZ7VSvqTwjQyHMIclyQ34hCW5aGqXYMvRVRdOS5YKYr7C/zwUOh6z9t wpAkhjCF18Pu4K7XIyRxIdoaRlhqh7lGi+5yOV03V7PgKm689VPkv028w0zz zo+R984PYap+A4tk7aKD1Wq/gDsU3TFvHRzaS9A1n0F782m0Np1Ca8MJxB15 CFmq2HGaIc9Tk3lmtBR6GFUjzF40EFImAM0MpnXzSLEpzrluYaYlhAl1EDPt QSwYBiG9znibYWxRB9qLzOgutMFRZIev2I5QiQXDAgemFF7Mqn1Y0Hix2OIh 3JhvGcCMug8TFO9hMj9YLaUrF8Ge24RGnrP8ci0uH8hFyYeFaDxYDPHhcqiP 1KD1cBX0R6phPFYN0/FqdJ+sQs/JSqIM3ceLYaRLNZDB2rdy0fjCIdQceIr5 kAJsvkDWGnCXzL09vsdaiu8qo+/iEFmb2EsScTk8rYeQZPRNehVkrgojXg0m yNqOZsb6cinUlSq0Vrajq9IAe0UXHIV69N9oZXwXof+SBO5rUhoJKcJFjMul EgzxutIVzUQ9hsuqMFxcguGCEqy5WmkCDLiTBbsr2btN9jobC+BoIGsbuc7N TbCRsU6ZAN317ApNjUhYbtMqd8KqElIl+Jkt7HiEn/uFB/Zln3Yo+3A/ag6/ jEpa4cZDT0J27HEIDj2B+vcyeBLVtNSCNx6H+IMnIX73STRQcBtPvgLBmVch PvcqpBdegSLnFaguvYzWa68gqruObXaZLZqD9dQeaxNkbYKsTZC1CbI2TuFd T+Kbv7Iaj6RgaOiAoYkC3BQjxtDVNIs+wTJ8knVElFsYat3GiPYWJjtuY6br DudsGGu2O1g23yZ2uW43MdNLaneTvl20151DpLGXFO7477RXjbW1W4jHZiGo s0BdZ4Wu1goNNST/fTUuHnMi99wASi73oCq3Ew1FejSUalFRrEb+aRcKcgZR VhBAbdEAKi9pUHddg+YCDXt0C6TMe9VHxag71Y2GCx5I8hPQlNF2F0fQXRZB R74H5hIf+isCZG0Q9gtmDMkS1Nog3I0mBhzmXsEArVMfAi2D8Ip7YapS0q7V o6vwGi7/mnr77k+JR4mfIO/dH6G95FeYJ4vnHTnobnoLN048gQsfPonTv/0F zmTxc5z9zT/i7K9/igNP/wOuvf8qJNfzIb/WDsUNO1qLA+wECQwIRxFSTiPd voDpjmUsda9iqH0O6+F7WOyIY4boZ/5V5smgKuxAS5EN+iJ2pWIfnKU+5l0f YtVujEt9mKN/WGyPYkUXwao+TISwpB/EvM6H6XYXRlv6EGxsRbBOjaacOggv NePKR4W48UER6g/VQflxHdQHa6A7LkLHcVbzKRHMZ6k550XouyiEg5rnyKHN vFALyzkymta1+0g+Ot69jOJXnkRQ9jEWrDnYGKzNsnh3j8Wb37A4RRanWI1D KkwGa2GTHUTSzczrURJqDHuZ3XuVUJYKGKUyDNbDUGmCpdICV1UffBU2eIrI 5msauPNaEShsQ7isDYmqNqRrWzFSr8FYo4qQYrRBiLG6WkzWVCJdVoHvZHn8 Q+yOPmRwWEP/UV/xUHeFTbBKBehXCOBWNiKg0cKuordRkNlqXnOLAK4WIXxE kAwuO/AMKg88R5v8HPX0eYbY5xhi90PFGpB+/BSaDzyNZvoRwUdPo/H9fVCR 3Sq+rqA2N3/yEgRnX4XoAhmc8yrkl1+B8srLaMl9BTOupm8xWAer+hIUVR+g 7AID84VnUHVxH2oJS0sFzHo9/mCPxRORNAz1PWRygEiho2Ea3Q1LcAg34Zfv IKq5Q3W4h7GOTzHV9RnM14ewZbuPJetnjH8PsGK/j0Ub2W27iQnLGsbNc8Qo EcK4qfdH3w7CM+juHISkyYK25of/zxB75v8ZwrDnJaOlH5ZD8k4xe5sC+ceM uHqZrL5uw4XrbThzvQVXrzTiKh3cucNGnDqiweUzLbhxqQUluS0Mcy2oJJtL D4lQfbwXVed8aLjoyT7Yqy0apCOKoKc8gN4yNxxVXrjrfBi41odRRRhJRQRB kQ9+sRcekQtOapqdY3TRuTolephqGtFRcg0fP/PX+OTFv0Puez9F7vs/wbX3 fgRN4a8Q0B5D/dXncfKtH+L4r3+Cs28+hgtv/gIXiZw3f44cMvnCb36G4y/8 AoeffBTnXnwb5QeFUFzvJ5NDMNUxqIsnEFLPIa1bppVZw5B6EhFhEm7pEAPb p0hTXzvL9ZBzLpQFFrQWuWEsCsJaFoWnOo5wQwzJxjCm1FEs6IaxYhjGQnsM 05oAEs02RBrNCNSZ4KzqQEhshrdBC1OFmmmjCdKLYhR+JEA55074sRTKtxph +ETM8K9B7zkVrBfVcFxWc77UcF1XwUPH7c6VcV9MNjXDeqk+e5u899h16N89 izpW67ydTCZL7+wxeZtheCPDZIbhxTSZnM4kCwZeTwEsUuqxiw7arcKQW4MR TyuMjc1QU1s15Tq0V/Sis7IPfZUu+Gp8iLJSA+U2uPI74C/uRIgaHas1MUF0 YVTQiXGxkYlBjwlpG8akZLRIjPGmaswICaOIrt6QdfbfsDnzyFRfbRksDbXo FTVm/ZJD1cj1r6dTbkOPtA5WZQPs6ka652Z4NAKyXIiwWgjpmbdRczDD4hdQ f/gFNBx5AU1Hn0PrmaehOr4Poo+egejjZyA+xu3RZyGn69acfBptx5+C/Og+ Jr7XILzI7n7pVciuvArFtZehzf9Vlsk3iZaqA2TuC8TzqMp5HtU5+1Gb8yyx D/UXM49hPYejr7yCoy+/AqtO/82d84nwMAwUSENdmBhFR/0chWYNDsk2/Ko7 iLV9ipT+c4x1MiDItzAi2cFS/2cMg19hxfEFQ9BntJj3MevYxYR9E+N9S8QE wXxssf/o219PfwarKQCVwIIOoRU2wk0EBVbESPAhbkM0UrrDxYxdBWh5vwDK twsheb0QlU8fwyfPfoQPf/k03n/i7/H2z3+CY69X4syvS3Hs7QocO9eCEyT4 8SsanP/NVZS8S4K/14rak2ZISez2Ij/NbJDk9pDcA4y9TvRURjHadQ+3g/MY FLkRlLjhJ9wixmdBH3OFBT3NRvS19JLcEhLgCI489zc4/Nxf4+gv/xZXP/gJ Tr32PXjbjyHnyM9w+NUf4Oirf49TJPYFEjvnrcdw6a1f4HIW/4iLv3kcF1/d h0/2PYoLL76FojfrUfkRF640jK76YfRLpxBsmYdLNAxrTQgukjQgiMDX6Mdg 6xA+nboHOUkou2akxDugvDEIY3EC9qo0STqCqHAYSdEQZlqHacpHkJaHEG32 INLgRKxxAOFGBwYbbBioMCJUrEW8rgeKK02U+naoCrpQe7oFZQdlEB5mU90n hvKFBvRd6YL9igH91/Rw5RngpY3y0TIFeLy/uA3eohYMFCphv8GoeoXkPl+C 3k9yUPbbx+EhWddJ7Aypb1GevyH2ykgbFjJfGYyQ2MNKjHoL4NHfQNJJk+1U IeUisb2tUBYyljNAacq7oS13cO1orapDGKyPIiGMZ+2VL8+EwQoronU2JJvt GBbbMSGzYZJhYlLdiwlNF8bUeowqGbdlQgYNAWbaOCYSe5fEvrVH7A3Gdr+C dqOhGj0iSrWcJFbVYUBdQ6m7QGLXUKbr+FoD+tVN8FCugzxXhAQ3Fp5C3aHn aZxfQGOG1J+8AMHx59F2/jm0nHwWyuP7IfmEOLkfsjP7If7kebSfeBrtZ/eh /dSTkJx6jqHwNRSfO4Hy8ydw4VgZQ2c5Ktlsrx4oRf6hSyg7ehSVp99E7eXn UXd5P+ovP4uGS/toQ5/EqV+9ipOvZfAKTpLgjVcf/t8GJ4IjMNDOGGqixARZ voju5k04ZLsMCPcR1X6OlPErjJl+x5pYx4rz91jo+x3Z/TusDJDdzi8YIB9g ZuAOJvq3Me5cwbiLudmZwLjD8U1efnjr+HPYTT60CNl/RTb0ifvgJ41i1Mi0 lK4x8+2O0o1ZFXXyqpD5rBS6gxfR8tYRtL59EaPnmtD0xgX85iffx/s//x72 /Zf/h6u3Do4zzfM8P1F7d3ERGxtxFxcXcbc703MzO9ADO9Nd7HIbyiyTLGa0 mJmZIcXMzIwpliyyZGZ2GQtcVS7sqp7ev+6bcs1c7/3xU8qWlHoy8/l84VXm m/+FI3/9K8x/Zy3UkonYZYPLP/4jlv/wlwR/dJjMU2VkOyqNB45QkzAnj1uU 7i8zIa8ezJlivFAeUGJkoUte2SmEqmc4VzPDsma+2oixcpLxihHdHb0MVjYx 2dysfuPOWRPeZv+Ap9mvcTv8d6T77MPb5l08hLYJb/8zvyXcThjb7yXaYS+x jqYxYf4xsXYWxFgcIvToh4QdMyPDykCmZKgiZo7+0qtM19+iJ2+Nvlyts2iF +fJVzlWvslZ1TuubZ3PggmSqi6aEYRqSFmlK2qA74xKTRTdYqpTHSx4u11/n UsMl1iuEQekqm7qOZUnZhewZLpds8KjxMi9nn3LHeEd9sZ/K2BoqIrWGyF51 ui4Kz7ZT6dtFR1i/EO9i2KGF1dw5FlIkcSnDLKYPq68PsZw1wEJmLws5Pczl dDGtdjSeWsN4vDCITKLFy5m25NM8XTMoeb/xbFOHnuqMoalESTLuCHG67/yt JYvHf6uM5choQzYXZ1u4NNfGlBJvc3o1LVm9tGZP0pWzxKhy11zxBdnBFQbi 1KhCb3NXmK8b5tmuWOBy7aIy2AK3Wxe40z7HnS4jt7onuNE1xPWObm60NXKv p4kbDQW8UgY3of3quskb3+B9Wx1+tCiP4aoiRhqKGGsuZKAqQl00iaFaYV9f xERjCUYl88XmclaF+UZ7BVtd5copxyjzPS60j1MReJx69eL2qBN0hh7WHKVe CNeHHaM+4hgN0UdpCBTikQfpij5AcZA7sSG5JIbmkq7LfE1ZmAGDTzbFXjmU eGRT4qJx0LhGUxpqI4QPUx53kPzgw2p2ZzTmhFlqLE4TJswrEhK4aXqRWq7w zt/W3JZ5f8JQ1edMN75Wg/iB8z0/cUmmPZz/iFtK4/dl2I9mfhbSP/Fk/vca Gff892oD33Br4RU3l5TIl+/p8qIQn3n3fzypw9SAKKscoq9aZNUsKgGfY7tu nesNm9xpPc/DjvM86VYn7N3kvkR4IbaSyUgD/WejeJRew1J8CZ3OaZQc8yNs 30cc+Ks/E+W/4vBf/z8c/5u/FOl2BB4PJv2gH6kfHSL1aAlZds3k+w9RETet 3TJDb94co8ULjBROMlwwzriawFTZJDNKrfNV6mxSnoXqCXXd8Z0/d43UjjNQ 20dvVRNtJYUkx8USZ38Iy4/+CosP/kLzKwId38Pt1G9xP/22CH8bvzNvi3B1 bId9RDtqnEyEH3yLBAdLqom3PUHU8Y8E+W7STueTad9Mtu8gbXnnqVf9b06b 1YOi2ly0yGz5ksBWdVZl3qhfkr/MUB/bTnf2kiBfojV1m57sq9qUt1iqvc9G w33OC/D5og1mE5e4WHqL62X3eDLyWrr8JXcnH3K++6Ku03QIwUhnapNCYSPl YZ2Uh/dTFjCg2jdAc+govTGTdITOk28+wGTYlIL9loLwLCs50/LLKVbzJ1kp GGOhYITp3D4msjs1zYK8gvHEbEYiQ7Q2Sx6fM/C5/HG6M5bceDPSwg8T6b6P YJWVUNuPCBPgAcffxX3vB3joYU12d2C8qUCAV9Gk9bVkDNGWOafbvMZowQVl mmsqFbdZr7rOoDbt6tC33FPmmsyYxKh1zRVMalvNc619kdv9i9wamOVG/wTX ege43tPO3aFObgrKL0xgX3sD96eaFwJ8rCOarooQKpK9yQp1JzvcldoML7rL c5Q387UVDIJcHt6gsK6QvtJaxlpnGZs95TTFOlHmZ4L7BFUhJ6gJO0F54GEM 7rvIc95Nrttusj1+R4HfPsoU2OujjlMXYUN6RCaZmnSVmrzwXErDcqkMzpH/ 51ArH2/wyaHxbA5NgrzRTeOssc2ixiGM8vhDJLicItLa4i19OMN/IUKcR1id JsLiFJWJ8fRmTr45m1Seie8nDIrvKfG91P4dG6YzSonroexPuDP7M3cVxB/I rh/N/cDjBbXuhW95tPiae0tfcXNF9r0qvtfE97kL3Jj/d/t+89KkaztnbWkv 66G3ckrV5hyLNVucV6W81qw02XGdxz3XeTZwg0+HrvP5yDWeNC9zxzDIYlwV Tw09bOY2MByex4B/Bp1OCcQePMbHf/nngvwvdiA3+9u/5OSv/wq/D95RAj6l 5B5L2qlCsi3ayfUaUEUZoz5lgk7t0MEiI+Mluum5QwwahhkuGWa8bESJXLu1 aoypumlVr2nJ+AT9DWN01SlFV9YphXtx9Lf/jO2B/Rx/721OvP032B/4G07t +RucT72N2+l3OGtuqt67CLXfT7jjfiIEeayjGYmOViQ5mcaSJEdLEk7tJkw1 PPa4l6y8nmzvPoqjpyiJGaMhdYruHCVSw4wEaE6RYo5l7drV+jnW6mepDWuj Jv4cXdmXaUm9SHfeDToybtDlI7svva+0LNKbv+NC/3dcHnrJVucd7fptLjRs sdWwwXr9OVbqFBHUSipCiqiMEOERQyJ9hFL/Ye3SEZojp+mLn2MgfpbuiEXK nUaZSJAY5hnVosZYk22uFc2pys+wqHQ8axhhUpV+KKuVsSyl9YxCxhJj8Dvy 93xyvpamYg9yRHi830GC7H5HqCZclEeI8gibXYSpufjs+wDv/bvwPrQf72MH aUxNpym5jZa0cbWIRXpyzkv5rih+XWYgY52B1HOMZ63rd15nbeT3PO27wJxh jiXdZ6tVsztn0V4zneZlWNY+bOTa0Bg3x4a5M9HHjd5akd2zQ/fl2RKaitwV K46RFnaYCLe9an+7cD/8nuZdRbH3CDj9EZmBHvRUGRiokb3Xmay8lIW2MlZk 4at95awNVFAmCy/2O4LBex8p+rkU23dIs/ot+TbvkO/8EQVee8nz30dugCbo tFJ5FvnR2RTG5GCIzNHjkEudKK8PyqY5MIc2/1w6/HPfots/h/+Fbr9sunyV br00rpk0OoURZWv5H4i2tRDgUbZn1APNibI+TZTlSTId4t+cFyzblM8/ob/q M4WQr5hvf81q7zcMFD/l6tQf6Ku5ymDdVTLihsmLHcYQPUxxxDDtmaazZis0 Dd3h5oby+YYu17Z59eST/xHwe8z0GSWFY8q7K0xVX+Rc7Q0uNt/hVuc9HvU9 4PnwQz4fe8iXspmvpx/w2niPKzn9PFcVvlc3wbxq3kh8OQMR+fT5JVNq5cU+ Ab7/r/6CA3/9lzj8y38jeNeHhO7eRfjvdhGx50Mi935Iglkhme7TyupjyqPD NGWM0pUvZy4eZ6hI1S6vl57CPgaK+rS2MYaqNTUjkutheusG6KjtpbmqlUpD KcfefpsD//Rrjvz2Hzn+zj/Jyd/H7uBZTn54ENf3P8D55Dty8nfwtd5DoAAP tT9MjKM5iU7WJDlbk6xJ2RkrEi0+Ju7UHsI1KSeryXTrJsGjncLIQWqSR2nL GqdPSWO0dIouJZ72xnM0t63T3rFOWXAnFeGzlCdcpiHzOu25t6lOfsZkzR9Y 7P6c8eobzJZu7pwnfVVCull3XmCrtjae53zjBhu6XKlXxa9dojKkUoDLuiMn qQyfojRwXBt0mBb1ho7YOfoSFhhLXWIocY1670lGonuYLZzlSu06WxXqEGUL LKrez5aaTtg/xEhepzyhnvG8UkGehO/Rv6fO4EGSqmeo234C7fYQYq/bLcAj do497ibS5oTmDCGHP8T/wC78Dn6E//GPibFxoyZKNp4ySWvaOQGurJl7gbqY BTqSVxhMX985rjibv8Vk1jKX517zqfG2bvciq7L1tQYJY4OR1bZpeZWRq2OT XJ8a4/aMMvtQAy+udNOgtWXFHicl7AjhWp9JfEK0pjDb3YRYfEjAiffwPfIB Zw9+qNmt9Z6hKj1BOJQoapRibC9nToAv9FawKMiNNbFkOH9ItMXbxFu9TYr1 26Rq8u3fpcjxfYq8dpPvt4f80DPkRGZoMsnVpSE8ncrQdKqD82kMMdASWKR6 XkxvcAkDoSU7LzwdjiiSyRn0uempq7kMBWTR45xJjVXkW8TaW/Jn+qgaaBot M8bWnBjrUwQdPkFv8jl6M66riT+ir/Ilo41fMNP+iv7qR1SmbZOTOkx+yhDF yUNUJQ3RkDhES5zSU4zSZZQmbIDW4H6G06Y5P7zFjfUtvv/m6/8B8lw6i7p3 /sg2rLw3o0243nifKx0KCP3PlCNf8NnES740vuSbuZd8N/+cpz1XeFG/xrPO dW7XznFDiny1TGUwo0lFvYSpkBRO//rXOPzzb/B67wP8P/hQBfwN5GF7BLoA j5ArRB0VRA6VpPhOkR9ppDpuXK4wRLvyZa9hgM6CHppzO2k19NJRKqgrTW9U 0EdbTS+NNT3UVHVRXFSH/YnjmH34Noff/Rf2/eYfOPzBbzkpITlm5syRg16Y 7w8g+ngEkQeciDhwlNCT5sQ5WpOwA7gNyS6CW5NqGlcB73iaJPO9RJxSaT+t 77FqJcaplYzgHkriByjLGCO/aIEiZfWKGuXymnnaa+So9TOU+jZTHjRNSdiK wthFWnJuSqPvUlv6lK7MeUYLVzCWrbFQuc6KYFwX0JuNgrLJNOdZb9pkpWGN eeX/yuBawa0qEzlLVeQCpcFTFEsQ6yNnaIudpy95ibH0c0xnrzKevklbqFEp YYDNqgtc75IQKxksqgTPlhuZLB1VZ+jd+dPhcEEZI9kpBGtjx4Ucwdt2D34C PMhuryAS5Pa67YI9wvZj3tKetEA78+Q+gg59pF25m8BjuwW5K1nORdRGjaqT rMrV1ykOM1IXt0RHyiqDmRtMqJzPGs6zYNhkunCeyyvf8Gr9EefqF1htnmel ZZbFlimWOie4NDXNdQXMW/PDXOxvorbQg/SY44S47sd/Z20mwH/3RoAEeYTN R1rDPj2Wu5VGduN1aDfeh/fge2gv1ZlJ9DaUMdRazuJgLZemG7k5VUZVhJzZ 4yBxVu+QaP0uyTbvkmb3nvrYexQ5vU+x6/sYAo6TF5FKQXQWeVFZFERmy73z aIowqKCX6D6upT2omp7QGoai6hiNqWM8rpaJ+Bom46s16kIxJQwHFTHoo2Tr mk6dbShxDla6L+PUB//vHdpjRXqsiXTbU6qsOTsnzuvJvycOnzJY/4Lemjuk RPZSmD6CIW2QitRBJV0RnTxId+KgUtwgg3EDDMVoovoZjOhnKFRJLaCbyaT+ f3uG955fnob6+dNP6S5SxStdE+ZXtb3us9mmmND7KfdGXvFs8iu+mPma1wtf 893S1zwfuM9nrVf5ceNz7sl7bjeucqN+kavVRlXMIS7ktbKdWvQW7m+/xz/g Kcp9RHmAKA+WjYeIvlBRHirKk91tSfGwJdG5mmRZVGrUBIXJs9SkTVCfM0Jt VjeVRSNUFfZTXSSq1SeqK3oor+jGUNZNTlEL1ietOPj+Lj7etYdD+/ZjbX4C izPHcfEJYv+u3ez53XEO7D3Nqb1HOOuoe9s5TN07jeyjfuRYuZJmeYYUV5u3 hLfpg5s1B0iyOEis+T7Cz+wl9GAyYRYtxHp1kSorj0kzkqFOUVgwRXnRhOgd p7FinKaKUSoTein1G6M4ZImyRNla1jXaC6/TlLahvL7FSO66dvsKM4pMizUr yversu51zovw881rInyV5cYV5hoWqQgQ4SEiPHRGlC+S6TVEUdAE1REztMYv 0peyzGimCM9dZa5wlancDUYSjdwo32S78hzbHTe51HaZBXWJsVJFoBLFoZIW 9Z8y+rOT1V1+w1mbPXjZKvtqAu32ycb3ESbCo+xOmdxHm1IWZEGczUlizOSe R39H8PE9xJjbkeVgoNCrU06+SqbfKEVKL7XxS7Qrog9mrTGev8ZM0ToLZaaX Iki0JDbb66/58srTnVOIr7SrRrSroHeOsdA/zPXleYE+xnR9PrHBEh4tzVfi EyDAgzWhO+Lz5q+bO+nC8jBRFlqqhSqXjSVhjmcJ8MgizD2L3KhqleEmqmKb dtJGvmcc2S4+5PubkX32IAk27yumv0+6/ftkSeiyTYC7f4ghOICiyHSF4RyK o/IpjSqmOqyUtvBK2kPq6QptpTe0mf6oVobj2gRTO9MpbRhTW5lJa8GY0sh4 bAMjEbWMhpQxqig/5Jmk63cW4PEqhP9Z5mIp1C2Itz9DnN1pOvIq6Yw7T1fW LbpKHtJSco3suF4yY7tI1/Vkayrj2ulIHZDlC+ikQdWsQSY0U0kDmn6mk/qY TNDEdLOaOsa1unPv/injh7i2ek2Z2Ehf8Taj5bdYaPyE812fcm3wSx6Mf8Pz me95tfAj3yz/yPOh57zsvM/P29/z3cY3fL7wcucp5te0QS/Xz7NdNc6WYsFW biV5Fmdw+c27uL37Pmc/EOjK6/67BbsgD9z7gaRMdinII92c8HTxwMPJQLDv ONER46QkTpKbMUVu/jS5RZMUVBgpKB8nt2SIzKJ+UjQBegR2v3uY3R8eYd/e o1ha2ODk6MxZT088Pd1wcXXm43172X/gGIePWWB+0gkHM/0+B2vldBvCXL1I 8IogQ49CkX0UBgtvCk5bmji34SApoj3BxLnG4Xf/Ddv3nPFyHsIrZIqQ+Gni 0qZIV73IzR3FkK9NbhilonKcsvxBCj3UmoIXKIzdwJCwRmniAlXJCzSqt3YV bDJSqm5aeVGbf0ORfY019e/1JtMss9q0xFKT3Ld5jvroVqqChhUVZ3R90hZx Xhik6B5hpDl+XupvOv/dEpN5S8wYlneePjBd/oLXGz9yd0jXr2i8KDff7L7C pNJWf2kvfSVN9BWV0pUdj+Pxd/Gw3ivW9+Fjuw9/W9PRtkMC6TSxch6T+yTs OFCCNqg25ukDRJgJuBOa03vItMkj27GRPO8hMgS6IdyUxubl7NIgRfShvGXG Cpcxal3zZcssVSyxoNSzvinY775gs32S6bZxpjpHmO0fYnN6msXeDoqSvH/R HxPoJv3Zq3VJb6U/4YI9Su4XbWtJtNVRNdzTRHoopflkEatJ1mR7Z1ESUEBX chO9iU3KsuVUOGdTap9NiVW24rmXvucI2e77yXb7HVkuu8h2/Ygc05/MQxMp Ds+gNKKAipgq6Wst9WF1dEQ00RneQXeU6mP8CGNJI0pNQxiVPOcy+pkKa+NG vIBP6WEysYux+FbGYuoZCzedXyOTVq+gneQo2J1MsMc76v50OKORm9uf0ON2 VS59ldSABuL8C4g4m0WMdzYJui1pZ3PI9cyjyL2AOp9quoJbmTa9J0/6JHOZ qstZphnT58NsFI5zoXCC7exhbjUvvfOnsOdxfVW5Ml8ZsOgyY1X3WWh5zvne L7g+8g0Ppn/g+fxPvFr+mSdDX/C8+zk/X/wDv9/6ie+2f+TrrW95sfiCKy2b KpfLbNZMs1Hez2ZRLT2BYcrt7+L0znu4fvA+Hrs+wGv3B3j/7gMibU8T6uKI i/NZbJz9sHPxw1HjpPH0MuAXPkZw8iThWdNE5U4SJfeM1i0IyxvHUdnJ3DqW Y6dDsXIKxcU9AHfPAP2cP14+fpz19sHVzRNnVzcOHDjIx0fMsHDywsbJG0sz e4JsbJTBbYh3VpJwtSXZTalCohPjG0GuTwQG73QqLPwodnAm/YwZMWf2Yb/7 n9l15ASHHOOw9erANXQC38gRwuJHiU0dJy1/kqwiiVRWHyn5/aR69Wg3GckM miU7bFK7V5k7flxJxahOskyPYYnx8gWVxRUWGtZZbNxmTT1otW5JWX6G+ZYZ jK3TtGf0UOnXT4VIzzw7pEd9kDzl9vLIKRoTjHSlzTKYLcfW4zetHjFbouus v8zWuB7HGjl91QrTFYsScXUy0d5X1q/gJtqLi8kLccfZYg/Olntxs9qHt/Uh QvS4RNlZESNBjNMkOFq/tXP0wmLn4GSiRCDh5F7CTKNak2QeQZZtnf6/hXRf FciwKSpiZ6gzPV8ofZa+nDlGFNcni+eZKdNllZZSd069eY3ZjR/41+efMVo/ wmjLEKPN/SwOjdBfW0GY52mJ0B4Bv/eNCClsBNnt2wE+UmEjWkuMNY2DPbF+ GcT7Z5GkyfRTzNaU+WZT7ZNNZ2ipXLeJDq8cmt2zaXbNod4hiwabbOpOZ1Dk YUNh4HGKg09Q6HeIPH8fVaNEKiLyKYmoolyQ10V10Krpie6mO26M7thh+hNH GJZzjmVMMJUzxWzuFDOxl3nde4vtvElmk5VMEvsU31sYizU9i970CsMEk2g6 W6ukxztbCXlLwS/gncx1O05x99aNneNIUe5JRHtmEOedQ7xXLmneBgp8qyjz qaX6bA21HtU0edZIPGoF/CRLBYss78z8zvsVXale5mrlPNdKJriirfjy3PW3 /xT4g1xfuUVPzhK9hVcZrX7IQttLNvu/4vrYdzyY+T3PF3/mgZz+cc8rfrz4 3/n99h/58cK/8t2Fn/j6wg98vvWaxwtPudS9zbm6Gc5VD3KurJ7F9DxC9pth 89v3sHvvPRw/FPQfS6atTxHo7CgIfbES4LYae9c3sDu7+OKyMz4cDojDLKyY I/5V/M45g/f3ubNXpfvAYW8OW8Vg7RCMg2sILmdDcffVeAdrAnET+K5evjif 9eKMjS2Hjpph7RmIjYcfNrZuOCt/moCPc7ElQcAnCfidKqGRtevjFOGe3oT7 xhHlmUmYXQRmR11539KDd239eN82kD0HAzgqm7D17MDFtx33gA68I7vwS9DE VBKo3ZZg0UGy5zBpwUolMVMUxg1TLnFoyp+jo0jWXDzLeOUM06Z3R6wzKrYb mWleZKZ1mdm2RaabphhvHqHsbDfF3iNkevbp+vrJCRiW9YxRFz9BW+rUzmlA h/ONjAn2iYplpkxCUj6HsUyiUTHDVKWRobJx+lQxeip66SlvpLO4iBT/FAIO +BGyy4OoE65E7TtF6HFzogV6rCZe91GCs43qlQ1JLm8OZiRpEq3MiD2tqK+J NDcn9VQZCZYNpHkNkBkoi9faqrW25rRJRYhpGkuWaC5boaF6jbbac3RVL9FT o6xfamSw5xK9tZMM1Aww2NhLf1MTZVmJuFjuwdVqr6jfh5fGR/Ej2NZsR4yi 7UW6Jt7FjaTAbFICMkkPzNL9kkVxQDZV/tnU++XQ6ptDu6iZSaijT1m61y+X bpMKyDI7PbPpcs2m3TZDJDlQEnqKisCjlAWGq5RnUyylqAyvE/mdO2fDa49S OY4eoiN2kp7EKfpTjQxnzDCaPse4lG0mcp7brfe52LQt+ucx5kmAVfMmdPuN aX1aQz3TsblSHQ9SLc1FvPUO9QnOIt7ZHLN3/p7DH+7G7pBilXs88dp3iV4F JHoW63GvpMirSQrWRoNPB83eLbT7tdIV0EZPUBsjMTLYyi2uNlzkVsulnTfE ut6wwY3aRW5WKM8Xd/H9s8/47Z9iX8Dnn7yi23Tyv8JrDNc8Yr79MzYGvuLa xLfcm/2eG31fcLf3y523LPpu+yeh/zM/XvqZ7y4J+4s/8vmFb3l+/hWP1p5x bfoaWwPzap9aVqLqj3cklu/vxvHQITxPnyRI28nH0Z7Tjt5YOP8b9v7C11/Y B8ibA3BxC8DCO5QjwckcCc3FLLSc3c7pfHAkgD1q2wdOBWBmHaXriMfOOQJH 90ghHoGrdzhuPmG4+Ybg6hskHIM45eyP2WkbztgrT/gEY3fWT83enmB7G2KF fbywTxT2pnJhQj/GzV4Fw13X64u9sw/2Tqbx5iPXMN639ucdi0DeP+XPrkPe 7Dnkxb6DgZidCcfGMUTr1+90C8RVucNFt8fLKVaJbYgEn3FSw8fJjBmhUEmw KneaBsM0bcVTdBeb3gp2nLGaccbrNY1jMr1RhlpH6G0fp1eJ1xDYg8G2V01h RNlB6dm3D0PYoGrpMA3JI7Rnmd6cYZZ+g/Aumma0VNutbFr4SzbKJhjVQz9U NUJP1QBdVV10VtTRaChg9zsnOXHYXfdPOIEuoZoUYoRCpnUMmYd8yLY9S+Zx S5JUzpJdbN4i2dWGEH3UjjU/RJTKTqgiUOShGKKPV0sduhWopUpaWqmWVpym PqayUSqVq5Iq1Wt5DYVTaqaKJ1VG2spHaS0fpF0u0dMwrBmgrbKHMBt/fPYc wEHX7SWF8dWE2VrJ303E/6JIIj41KJv04DwpTaaij8J6QB7VAYU0+hfR7l9M d0AJA0Hy+ehqRsPLGDYdKw8xaAoY1M8Nmk7W6JVNn3MqjcoV4zEfUxwUT1lw PhXhNQr2HZSED1AbOUqb6WkLUdP0JG/QFb9CX+IKQymron6VwYg5HrU/wZi9 wnK+6TQ/Uu78WSYVT8eyhxjL7GI0q5mJrApaouIpCFcw90+kztafYjcvjv/T 37Hnr/+c9//rXxDtFKJtqW3jmk6SRwlp7jXkujdS4tZKtYfpnJidtPn30OrX xbB3O2OBKg8xAyxmTnO/6w73Om9zu+MGN9svi/7Nnee33awd4uHQ9G//9ID8 /0lnyiK9eVcZqn7ETPtL1ga+4MrEV3QmXeFuyx0+2/qRL89/zzem9n7xB76/ 9APfXv6ery59x2cXXvNMwD9cf8bt1bvcXN7msnHil5Ne/TN3b9zE44wlZ62t cHdywszuLCcdfTgjGK1cAgV8sHw+BEe3UJw8NPLtg/6xHA7NwT63F+vMUT4+ W8wem1T2nIrkoGUsJxwTOeWSjIV7Gg6e8Th5x+HqFy+/1ehRcwuOwyUkATsl NAtbDyzs3LDwCMLOLwhbZ3e87AS3gn2cgE8Q8JGu9ni4eGDj8qZkOLj4vqWm 4cM45p4hHApM4gPbEN49E8J7ZoHs2ufJXjFx8FQ4J60isbYNxd4hTD8RhrOb NMcjHHdpkI9HBtEu48QGTpIQOUFm7BCG9Akq8iaoNYyL+xE6TW/rVD1MX70u G4fpbh6mvWWYFl1W13SozcWQbN6sGDJGSuAsyd7dZAf1UBTZS2XCIHUZY7Tm TtBZICtXt+gvGmOwZIyR8jGGK0cYrB6iVzbaWdtLh66vpaoeJxut/92DnDTz 4LSZJ9aH7Qi1sybCwYZoRxt83SNIUM/J8oog0z+fUjeBYO6PwdmbgjNWpMmq 4mzMdsK93e5/wnt3NFEWrUS5dhATIGjjZ0hImiY9eYKctAmKciapMkxRW6zb XDpGk9bWKA2qLe+hoaaPRq2trqZLvSyFE2a6H0/FEWKZROw+H+JPmSLICaIE +07fcHGVraeTFZxLtuDNCcyXvRuo9i8V7BW0B1bL/moZDK1jLLJewNdjjGtg IqZWUy2wqxiPKtfXShgPyWPaJ5kJj3gMvnZUBCRRGlqGIbRZbb6X0rARBftJ 2uNnaY9dYij3Ft0pW/SnnGc4fZuu0HmeD33DWt11Qb7BkkEdregcM4ZFJgsV vfIV/vP6NC2M55QxkhIjsVLElGgG2NvjcPQIhwT88fc/wHr3QWKdwvX1FBJc 8vR4V5Hj0UyxeweVHr00eA/Q6j9EV5B03n2CC0mX2MpVHEyaZEb383bF1s77 6d3te8Ctnlvc3HmXxHVuthq50dD5/wN+tv4KPVmX6a+8z1TrM1b6X3Jx/HO6 m37m9tp3PF/7ms/Pf82X26/l6q/55tJrXmteXfyaT7e/5Mn5z7m/+ZRbG7dV FDa4vb3Of/jlLYVMwOclp3DUJ5yjdt4cdwzgtKTMwjkMa5dIbN2isPeMxsFL 4xvNwcBk3Cun8KrfwDZtCquYYQ6fLWO/VTKHbZM4Jkk+7ZGmFJCJrW8WLpJ4 t+AM3EPTcQtLxTU8GccYAxm1S4Qm16hAnMVcO9U2IAx7f3+srWyIFOwxcvgQ F0dsnL12QLd1NRUMXxw1b8mvfZjgkF+kCkYK+1UFd9knifZgPvzYh/3Hgjhq HsNx63jMHfT7XCU62jVu3kl4+CTi4ZeAu38cXgqRoW4ThAUZiQkfJTV+jNws Nfv8CcpEZk3JMI2VwzTV6lEU8TWyukpNRl4Njs6eEidfXO2iibXpJ8FrjBjP LlL8OmSjXRQlDlGRPkRd5iBNOUO052s3FA3RU6opH6C7qp/Oml6F6R5dfzcN tZ0U5JZy6vApPv5gL2aHHLCw8sbczAV7M7t/pz3WScnH5c1RjqRfik+clxdp gRHk+0eQF5qvkJlIjazYb9f+nedJue2KJ8SmU+lqEt9QFaOoMeITx8hMGyUn YxhD7ihlxQr8SjN1NSol9aPUNoxSWT9IhW5vfEY1e987wMkjLpw+5o7FQRu8 7TwI1R7xdy4gzSaB9ANeZHhGkuOfQU5wAbkhpRQGVVLhX02Dfz1tgU30hLTI ctsYi25nKr6d2aQOFlM7VKtbMSaZplnTyFSc6UX2pcxG5WMMSKTLL5RixQRD cI2mXbQPKuBPUBc7Q0vCEi2xawwX3Gcw7w796ZcU8jdlqd+z1nAPo+Eis0Xb LBSfZ6Fkg5mSlZ1DF2NSuDE9HmNFHfq8ktHsJJFug8+Jw7gf3s+ev/lz9vzt n7Pv7/4rZ49a6n6PJc4phyTnclLcGslz76bMY4A6lbpW/zG6gifpC1eRi1hm ouG5qvsas+kLzGXMa2Z5NPyCe0NicOABN/tucrPnomZZ5A/z+eWL/OZPkf+P fPboGzpS1KtK7zHW9IjFniecH33ONeNL7i58yifnPuf5xhd8uvWFcPjiwhf8 r7zSx8+29f9bn/J46wV3tx5xffM6F5dX+Pbrr/6nX96o8cLjp4SWN3NIlB+x D+WEg/K4cwwWrnFYiRJrrwRdRhJc0IR/0wKBrds45S9glzSHU9o5HFLmORpQ w9GzBRxzy+T42SzMVcvOBOTiLI12CcvFJSIH58gsHOIryGm9QHn/XYq7ruIW mqrf44mFKc8HBWPl5Ei4KmqAswNnTMfyXHylOv9Gu7/phJb6eEBxw1+0x3Ei upJTsR3sc8lnv0she47HctA8kSNWSZywS8LcJQ1Lj0xcfKQ2fumKGJqgVNzV R1yDE3EKzyI8aZbAkBmCRUFMyiTJ8ruMwgmyCkWC/L2wYpi8Ku36nHr9fOyb 9Whd9hoH6U7AyQqFvWEiPPqJ8eklWd0gK6aXgsReylQTq7P6qJePNBb20lSs kW82VvVQL9qra/ukIkPkFdThrH7i4BbC4X1HOWVmy2lLD6ztfbA85YznGVui HH+JPb8c4lDXeWsH9zB9tJF92xHsIltydMfSOQgzicTuv32H3/76Q2zU5J3c J3H1GcE7aITQaAGfMk5a9gS5BRMYSiYorpigpEZTr88bFHdKevCTwNs6hbJf wnH8iD0Wll6KHK7YHLF5EzlUvaIkREFn42XlWYK8UpDXURTQTLl/MzU+zbT4 t9Md3CUYehiO6WM8vm/nL1TzmcM7r4BdyOgXEH3MpnWxmNau/CvwU+qZjy9m IS6bydBkCv3yKAys03V3URg8TFmE4kj8PPVxa7QmbDJseMRY+UtletObD3/H cr3pnPZXmTadcKjkEjOlAr7sPDNla0yWLjFWKnsvG9HPKHOX1jCSl0Kg5XHc j3zMmQ/eZq9A3/u3v8Lqo73E2gWop0gMHItIcmgi06WbfA+JudcEDX7TtIfM 0mN6H8noRUbjlnaebjydvMx89hoLOedYzFnmYsMN7o99yu2RJ9wcuqe5ptng 5sAUr25e/82fPg/+/2C65g4dkq6+2vtMdzxgZfARFyY/4frcU+4uP+PR6nOe bLxQbn8htk3znKdbz3i8ra9vP+ba1j0urF/i2uXLv7w6PoTq2XPULF6hbvku 2d3rhBsGiSoeJaZ8nJiSIYpGLtFx6Uuyxy8T0HROkF/CNnkW+5Q1nLMu4Flw Dbe881gmDajEV2KmdnZC4e20GpZVaCEOEYXYx5Tglz9A/cRn1Iw9p3L4EaV9 t0gun8Dc3QcLlXjr0DCsPN0IlnWdcpDVa9NbuJi6RIAgV8Z3Dd6BwME9lNOe YZyKLMAyfQCbxAksYsY46FnFXot0PrZM4bBdGmbOGYoXWVh4ZWHlI6EJzFG8 yJawZOEaliHRycEnq4fSnjukqEhbeyTgEFCEe0wlXgrzXvF1REcq6Efpe73D RY7fzoGMnS7h+v9B7uDijfupVCJcpgnyGSMycorEhCnS44bITR6kMK2fkpwB ygs1xf2UlenflWrPdWOUiqiMwlZc3E1/yAjCXtHppJk1Z07actLCDWuJm439 WaxO2BOobhMtyH85oPHWTsEJV8Wxw9vFSR3FUwnIR0nDBzvp44mT9uz6+/f4 zUk33rH0ZY9FDGcc6nAMnOBs1BTBiVNEZ0yTmDdNStE0aeVGEgqkZYZhAuMq cVG6c3bSzXQN5cjHRzl50hlzCwmIrRfmxx3xs7Qh3AS5Hq5kDx9yAtIEejE5 gjw/RPoWMk5TyCRdAUP0hw4zHDXMSMIoEyljGNPHWSmcZz5rnIWsEYE9zFb+ MOf0u2dUpBeyWzDunF+zlOmEDFqCsinwq6dQpbgwZJTiKCOVAqom7jwtSVuM VX/BUNlnLFV8xVztA0YLLzNRfJmp0ksYyy4wU36e+YrzGMvXdw6ZjlbOMlql DF/dzWhFDa1p0bjKyT2PHWHf3/6F5leY/ctvsNn1MSmO0SQ55ZHoWEWiQxfp Dv0UeIxT6TNDY9ACneEr9MWsMhS/TlPgEpuTP2FMW2c+d5PF/E2W5O7z+cvc n3zF7fEX3Bx7xM1x5fjxC9wcnePVnVv/5uhvXsv2vzPd8gntJfcZaLqPsec+ 50YesDX1kKtz+tElVYFzj7m/9pgH65rNR3Lvh9zcfsDl7ftsbt5ifnH9F7pP 8/Lrb6iZO0/twk3qlh7SsPSMpnOf0bL+Ja0qAu1q+R2XlCCufkvOxHURvo5P zbYsfBmHjAs4593As+QuflUPCW54TLjW5lmxinOBEU/DJJ6yw/iGi7TMfEfT zDfUG7+iZvIzKseeUjZ4H0P3VRJLB3EOi8UyNBSLEF8FeQ9FCW9OOfkr0AfL ykNlneGiXCXCPQprhwD8shvxb1jCOnkUW8UJ+6Q1bKLmOOxdxyHXIg45ZHLU NZsTXnmc8cvHIiAfe4VJ57ACnCLycIwuwi+nT0rznNKBRxR13yI4tYEzbt47 kcImOAzbQF/c7aywd3TaUZszItsUK2xc/d4S4n6UC3J/bG3cZJ0BBMQP4O4z jE/gNCHRM0THTpCcqkSQPSWrnCaveJKCSiMF1Ubyao1kVU8TmlCBq1csLt5R EpEIvGPLCY6p4MwZZ85YOWPtGYythz82dm44WcrJf+kzsXLxOPEd4OKgBuOO nUTGRkuzleDYaSxtXDlxyJy9tkG8bxMkwv14x8ydDw+5ceC40o9VHuZ2hepV fTgH90n4mvAIKMUjqARXdTUXtwhNGM7uIdifjcHs6BlOmztz2soDK5PQmQ6u KGmYCI9Uusj0jlZezxXlaq8BrRQE9FCi1pph0UPrmV6GwsYZTVwQ2UvMZyzI 2hZYylsUxabz7I+znCPqc0aYzB5UY+5lOKudkfQGRtPKmUjPoS8iiwLvelHe Q0HwGIURsxgi16hKOE9j4jqdxc8Yzn8pw/uKwcJLsvULjJVcYKJsiymRPV2x zlzlOtOVq4xXLzFaK8IlsKN1Iry6muyAs7iIcLt9u9n7N7/S/AXWuw5g++Fh UuzjSHUqJsWpkXTnHhE/gsF1ksqABZrCVmgJW6Q1bJa+uHM0hV7iwvwfMWae Zy5HdBu2WS5SXyha4/rgU26b3uF3+ik3jXc1aurTS7y6d+c3f/o69P+NyY5n tJTfp79FLb33Posj91mfvM/2zH0uLdznyvJ9rq7pcuM+F88Las3yxj0uXX/E l19/84bt51x88ERsX6Ju/i71i5/QuPQpzauvaN18Tdv2d7Rf+p6OKz/Qee1H qtZeEtCwiUfpptjexCHrGi6F9zhb8Rj/+qcEt74govMF0T3PiO17QlT/c2J6 7tIy+xMtcz/SNPc99eK7ZvoVlRMvKB15iKHvBoWdG+S1jBPX0MLxkACOOPpw 1N4PM6dgTjpFiO9ozjhGynrC8YoooGjgPNmjVwhoXJVzT2GbuIJ9whYu6VdU GTY4EzvMsZAGjvqWcMwnn+OBBsxDDFgoSdhFFGEXW01+90NqJr6SxnxG2fBT ivvvUdh1haC0SiWJQKzCIrEO8eeUrR0nHU0646u47y+2A6QzgeJb/NurPihG +4Smkd+5jlNsA1ZJ3Rx2L1FFacM9bAq/eIGeZiQyx0h0oZGoIlWBzH784+tx 9kpRdUjGxTcJZz8lh8BkUmtXMbRdEdgenLF1xUJVxMY7ZOfPEVYWKuZObwCP FuDuzo4C2XOnMtgoTdhq7Fx9JDjSp5M2uHgmcyKkjI/sI/nIMYGPLKLYfTSI /cdDOXgiArNTEZw8o/vWOg5Hx3icXeIFtEa1zOVsnNYXo5GeBmTgqgxuYenC KWsvrNx1291M63HC08qGCMGd5RVPtl+RAG/QdJHlO0iR/zhJZ66ykPeE9Xzl Y9n5uOCeVm5dKJS9FQg6QT6bN6t/zzJXOI1RXjChajSa18tITiujOdWMZuUx nphGrlsVed5dEo8xMoMWKYhcpVwZvSbjFi0pn3BeUM13v2ZUCXdQQI1on46W bzBescZE5TlmqpaZrFE+r5tnpMGoGdV0MlJbRbDNaRyVz0++9y/s/etfcfqd j7AR2HYfHiXFJoE0+zJSTM9RcOon03WcLNcZwb1Ec8QaJd7DVAeO0hg2RlPk bS6fE9w5W8ya7Ltoi6WSrZ2DAVsdd7k9+4qbc8+5uaBivnBVny/z6sHd3/zp mWP+E6Odz6ivuE9n832G5d7Tw/eZF9zLs3LyRc2KPl/V/wnwyXP3WLvymDen aH4pop9RO3OVurn71M8/o3H5c5rXvqJ161vaLv4gmn9Px7Wf6bzxB7pu/YGA uvN4GER0ygXsc27jUvyIs9XP8Gt+SXDHp0T0fkr0wAvihp4Rr4keekzL/Hc0 z/9A07yInhPRM19SMfWS0tHHGAZvUtC3SW7nBM0XbpE2OklW7zTByqhhhh4i igaIyO0jqqCf1o0vaDv/ivbtL8kZu4GbYRbb+Bns1LocUq7gqvV4FT/Av/Ix wfVPcCvawKNkBbd8o9LDDO76/tT2BzQaf0+d8Xtqpr6RsryibPQ5xYMPKey9 RmHHGulNQ/jk5Cvvh/KxsxfHHHw47hTAKSUHcyWHM3aBCqbemFv6YOhZpXXt KWmVC1jFNWGTPLKjKPvPlrDHNos9J+M5aJHEUdsUjjumcdI1lTPuKdh5pePk m4GTf4YCcppoTiGz+RIlfQ8p6rpNcumEFEw53M0LG99Q2WoQtp4eeKjphjvb KCg7qB94SWFElkg25XZbN1GtIG5j4YyDQxCeyV1YxnVw4Gw+v3NK5yPLBHYf i2T/iWgOn47lmGU8J7RbT9vFY+mUpFaeivPZFMUGjUllfKUy/imkVK0RnFCH hY1Uxk5Ee0VgczYYO09frMwVykV09tlUsn3KyfFtIcOrlyzvUTXvaUpD12iX 8vfk32e27ltul9zmkkheSFtiKn8VY8E5kbwsO1tkvmQOY8kMk8WydsMAI4Wd DOXWMZRjYCwtnQyrQtJtG0lxHyU9cJ7ciGUqks/TnP45K1N/ZKLjFTPdr1jo +4LJ5jsMlCgkl59j2BTAqxaZqp5nvG6OkUYjw02TmiFNO72VZdgd2of94QOY vfsbTr29C+sPDsuqj+Hw4XGSLWJJsy0j3a6VNMcBMt0Vu3yXKPY1Eb1OXfgC 1SFjtMYYaYy9x7WN3zOdt8FMvlSraJ3Fsg3m1fa3uu/+8spzhfIVJegVEb24 zLbS86r4fPrkq3/+0zO7/UdePP+JwZHn1IjsVpHdK7IHJu4zJNseFLG986L6 4jO+eP173rxhwhci+gW109epm30oop/TuPIFzRuvaZU/t136Ubn7Jzqvi+ab f6Tr9h/xr97Eu+KSiL6IQ+49nEuf4Fn3Ar/WTwnu/ozwgU+JGn5J7Ngz4kae EjPyiFytoXnhOxoXvpFyfE31zKsdokvGHlM4cpP8oU1yelTHLt4gZWBSXeAa dVKi+qUnNCy/VB/4YqcPtKkPtG1/Q/vFb0S06C1fwTZ2QURfwCH9Fq4FD/R/ T/Cve06wFCZCChPdrbX0PSOq5wUxCkC5w5/RoMxQN/MjNcZvqZz6ktLxlxRp nYUDygs961QYt2nZvktgazcBhjoOWJzlkJUfRyz8OHral6i8Lgq6N2hRZmld /5S2zU8JSu/HOqFbRE9jl7aKVfw8Zv4d7LcrYJ9l6k7jP+aaxXE1/tPeWZwR 0XYBOdgHZuOb3Ex2+23KRz6lRGss6n+AofcGSWUjWHqIVr9grAPUB/z9cXO2 x0cEme/8scH3TSdw9RfVyhU2UgALZYbgNPLaNrGIqtc6tK4kI4d969nrauAj szj2nUrkkEXyG5VxSOOUS5pUJhVrjzQcfTJx8pPK+EtlAlKJKJxUR5Ladd3i jL0PFo7KBL7RGvUhnyCs7FS17a3J8sgg26ua1LPtpHoOiO4JioJnqYlc2nnv xu7kTQbTtxkpusNi69d8MvA1j02vscxdZM5wTmF8lZnCBSbV20bzJxjKG6Qn u0NTR1tqPm3x0UTsTyfqcBmxFs0keIySG3OOwuhPmBz8g6LqS0bbXzKpx3um 7yXzg89F9z36yhbor5inv2pGoVskN04x2KzrNz29oWVQHbaNBPUsq4P78LP1 JMkrC8v3D4nooyL6OA67ThJ82Ic0q1LSbVpJtRskz2uO4sBVyoLXqQ09R3vC Bk2x8wxkbNCQ9JBrm18xVSC1Mr04omiZeanKXPky5/tucWvlcy7Nf8LG1HWM 3QvMdAzSWjxEQ94ETdlyNRWS5uQJbmj/f/7oq3/407Ou/s88/ewnNm98zfZt zZ2vefHlT+Le9LUvuXhfJE/ekFc9EskvRPIrmpW0Wy98T9tlky//Qb78r/Jl E8n/ndyp5wTWXFfCPY997n2cyp/iUf8Sn/ZPCZQvhw29JHJMKXv8KbGjj4gb u0e2mnPjzHMR9JlIfkW18TPKdT3FEw8pGL9B/ug6hRNzNF68QuHYspK/Wv2i 1rP4/N+zQsvmN2/SvykvXP5RJN8loHYLm+hF7BIvY591D5eiJ5yteoF/o1Sl TarSLZL7RfKgVEWERA98QtzwQxqHn0m5vtM6vpGiiOQJkTwmkodvUDCwRtmM 9P7iHXzb+qhdenMMsX7lsVTlGU0rL2k2HWlY+1yN5NW/Z4XEFiX/hEFsk6Us aedxSr2Me/YNXDK2MI8c4JC8+ohnPsfU7I+r2R/zzcYzoZ7Ywhml/u+oGn9N +diXlIjmoqFPMAzclqpskd44jm9aIVaBQVgGBYs4J47bu3NCzd70BKHTLkHy Vj9OW3jt5IWYvHaaV56S33EJq+hWrOPHsUlawl5rOurXyX7HMvaeTuNjC5O6 pGPmnMVJj2xOaQebi2IbKYy9fxZ2gVlkNl2lRMps6H+iVnSf5Ippzpj+VOkb hrV/NDZSFxsvL9yVFzKlUhnuNSS7dZDiMaS0PYUhRJ4VfY5mZafu1G0GMlVx sy4wlLHOeN42Kx0vebDw3/let/dBnSpngUg2zDOYPyk/76c9u11TR3tGIe1J sRz963eI2l9M1IlaYmzbCffYprVWzbD2E7qbnjDQ9oSRzidM9D5hWo/17NAj 5kbvM9q2LmJVdevH6W0apbdlhL7WYV32U15ooKbAQFlCLb0l6yR55mL53mGs 3z8mkk/i8NFpvPY7kmZeRLqF0rbdALle8xiCzlEduUl5qKp09DKdKav0ZqxS l/EIo+6v8QIle4PyQNEcsxVLzFYtsNx1kZWR28z2X9bIr/v0tY7+nVPFDfzb O2xmvXmHzZGkCUbjJlivXufLB69+/YZo252Lr7h4V9SKnLqpX6g9Z6L2G1H7 wy/U/kyH0nTnLZF7R+Te/SMBFVdxTL+AXdYtHOR3bg3P8Wp/QUDfC0KGnhMu YiNFbLTusfCh65SLisr5L+WnnypNv6By+jmlU9qZU/fIn7xKrkgtWVwldWxa X78gsu9oLZ/QsCjvNanIulRkSypy4UfaL/+kTPCHnUwQUL2FdcyyqL2idP8Q 55JneNa8VLoXtZ1SEOlw5KB8d0SdffiJiH2ET9sNalZeUzv7FVXGV1KPzymZ fI5hXAoydo28IT0KahzZy+t4N/RKPW7tHBesX3omaj/VepQF1r4UscoCW6+1 pjd5ILHtPDZx49gln8M+5RJO6Tdxz7uHT8lDAqs+IVQJP7z5E6JaHxOjBhTV /pCkHmWd2dfUTP5AlcgtH/+akvHPKRp9imHkDoV92/q9j/S7nhNf24F3ZhZH fH05Yn+WY45+HLPx5ZiVxtxHmaBzp6c3S1VaVj8lXeuxjlYeUOOwSVrHPlVr SrmKg7ziZFAfH7sUc9A5jyOuOZidzeOEbz4n/HIx98/FK7WHrLaHygNaz/Ar DMMvMAzJg/uv4xKaiq1fONaB8uBg9eegINxcHMh0zCTFSdQ6d5LsMUKGn5HC sCUqY9ZpStqiK+0CfVkX6VE2GcnbYrzwApNFF5SgNdo7t9S2ftS+e9l3jbmS KTryh2jXberIq6dDibo9NZY9f/Z/4fVOCJGHa/C1mqeh6V+J95fXhw9TX3aV LuXOvg7lzW6R2n+PiaE7TI7eYmryOit6HC9tPuDC1n1WpMQXtu+xuXGdb7/9 jlsbN+g1GEXPeZLc87F89whW75vtUGu/2xznvWeIOZZE+ukGUq37yPKcpiBo hdLwZaqiFqmMnKcj0XR+0iWq8x5jVIscKZhXK5hlvHiaqao5ptTLjZ3bzA9c Ym5Il4NK2v1zTNSNMi5qp0Wt6a2r5nJ+eXGK6cCg6c03Re9c9AjfPPySv/tT dBe4eOcFNSOKqpNCd+7Fv0fnlguKzpd/oP2a8L3xe6GrCH3nZ6H7s6LwCxXP y9iogNoVKT5rW3q2P8O39ylBQiRk8AHhw3eF7y2CtP2qjU+EpMb4CVXTjymf fkix8T4FxpvkTm+TOTZHw5WbjF28rhh/SWZ4T2t5KnQ/U2z+Suv5VlFeUnJJ a7kiKbn2rwoBfySu47ZMbVuF+CJ2OY9wKnuGR53Mv/UlgYpQof0viJC5Ro09 IVrYxo7cJ6j7isr/Z4rvn1FpfEmZZKRIMlI4KRmZuEzhzBbNVx8SPWIkpW9J 6N7VvJGRxuUvaFr9mpYNSduWzF+hpP2SKQD8QNrgdWxiJyUj68L3Gk7Z91S+ H+NT8ZSAumeENEvS2p8T1aU60aPRfRXR9Ylk7AeV8u+pmvpWMiJUJoXuhNAd vSPzl6FckKFsvaBl65FCx038mjrJaBslKLte00r98lOt6wVNkpXmc59LVr6g deMVKd1CN2pAcrKArdCxS7yKc9otPBSSfIofSn4f45SzinP2HM7aJq45Rtzy 5ghpuEfV2PdUjn1L2dhr1ZtXCiO/VIvBG1TN3FMAKMUmMAzLkGisQkKw8HAi xSaFJLsqkhyFrvsI6f4z5IeprMauKU5u0p5+ns7MTfqy1xnKP69tvcVE8Xmm S89jLNtkqthUXLfZHH3AZ6ppP6084Er7FJ2GBjrzDQSdOcFHf/afOfhn/wWP 9wuoK/w9UQET+Li1EuHXQbZCTV3FBdpbb9GjmN/Xd5NBBaih8asMTV1mY/0+ 65v332Jd7P4z/297bxXY1pZli46X01339u1+1e81162GYnhV3bf4FBwMnnAc 5jhgJw45ccDsxMxssWWSbckgWQaZmVGyLBlk5thhONB1388be0s5lVT37/vr j+mtxMneS3PNMeYYS1trt3aN4umzl65NFIUvZ9VBF9fHGIXbz4ncX+4gcneL yD3xoRs8N7ojZLsM993yEXq6DOEeJsReq0HK7VpIfOsg961B3v1apCdModo4 heK4augTTTCklKNcXouK7FbUlfYRtT1oNHSjUd+BWp2wg2EV6vnvmhNMaIsz oSNeePym8xGcwgZenezBXeEV6AjS49nM+vfeBG8DltefQ1ZqgbzcQdBQ0VKd qjupTvvY6wafIc/ynOBlgdpfIn+UMfaKAH6Fi0nDOBpqwaFIK46m2HBabsf5 7FFcyh+larbjGif6WukQbup6kFblQDrBkcY+m1o9huQaO+JqRxBVM4RwUxcS WsnDE9MYmJijch+Copqet459rumBCJasbgG8rwheZ8/VWAXw/m9IO56yCK04 6NtHDTCBYynzOEOgXMhZhJeW3pcq+QZ7mA/99S0C9zZ72eWCfhLIAkEzTxKZ RXI1i5LXi6vmeKr6IKPfVQ+zQAvK2P9Jag3CCp+LSFofUrkTuN3UABxP3sBn 1AEkEwsJrWqSCrmBHrwLh+/ZcZw64EzyHC5IOZbMZap36oAC6gDdknPNvmQB V3LHIDVRtVfTf1c/YW4eMTcEr4ngLR+DpHHaCd5+grd/GmltA/CQ55NMrNQC nK/mOfZlkkozHQX1SXY7563rMXJ6niDSyLzcNZBQWuhsSG4hNpwMd+Bs/Aw8 UudwWbaAa9RLN7IX4JM3j9uCFihgvnInca+Q+al4itTKx3Q0ayQTl5vQj0DZ tkQy4RgrugneG3C7cQN7Lrrj0h5PBB5IR+ARDQLPlCHkUi2i2HdT6E3l7Pua GCtVbyu0JIySuC4YErpQntyFqtROVKW0oSyWlc6+o48rF/ctKCfx2/pW8Kl1 AYv6Snjs3IqP/u5vcezdT3B173V4n5XC57QKt8+o4Hs6E0GnshBySo1UzoE8 vQe5RVZoDMPIJ3iN9TZxFXcDGroc+Alq2sfw+NkrEQEietus0EXWinvW6GLH 4LmdzoToPUT0HiF6jxG9pz/ej1sbwxC8OwfBx0ro7YngKxWIv1mJVJJ2hl8V ZH4GxNPXVxhGqRUM0CYZ6bephJV1KNO0wKTvRi2RW8+oKaUvljagMaUJbUnN 6EwW9qFuQV9qC/rpkQfSmnhsQH9KHQaI7sFYI/pCi/B89sF3nQg+4mq/ksIh yAwTkNfMico2k/Sd1UtlOPAIueYnyLM+hcb2jAh+TgQzxujN6PXcY4bhFmzG wTgrjqUP44zSivM5w/AsMMNLN4gLmg74Eb2JxhHOvhWJVC/x1RbE1JgRWTuE 0Jp+RNT3oWJyXhzJwBjbcwXRS6Qrat5E73NWMNFLpOS9Ri/pOZ/+2y/XwbYx jIMhVhyJH8cJ+RzO5szDs3AeXiVzuMaWe71knB58FN6lw7iY34WUqimqdgeS yCbxZJMYSoBIMklMwyAyrTPItIyx7dZBQYZR1FMx15PVmth229h2OzmWXsqA fiJ3kGMx/7soBaIrJ+GRQuT6dhO9YzhG9XSaUuC8fBkXqeKvUMVf1y7jZskS lTzRUjqLyxqbuGqWXk31XrOGZMqBRMqBBEqBmHI736/AoETlINE7OI2oxnai V+tU8k3TjEWRVTJbKE/aKZc6yXI9lEx9L4heO1tpAw7daaVyHsLhEOaG8sQ9 iYySsYhLyiVcyaY8yeOYCjkmHdHL8M6f4nufF5GbwrEl0lUkVC2JriK5epLz QHbop8/vXySjTME3MxsewX7Yu9UNfruT4b8/BwGn9Qi6WI2w602Qho9AkzKN IskUssMakR/dxv7WhpJEqufkNpSntqE0pgKlRG1pfBlRnoOchEzkpxahIFUD bbYR1ToDzuz3gfeZUNxxD4OfezD8TwQi+HgEIk6lI8Y9C9FEb9IZovesGukX tMgQvqsm74K8zAwjma6s1QEDY2L+sfOexx9jbXYVutBq6MKFzaZGkeZby7a7 HQff3YXDBO3RD/fh5MduOLPZDT5bYuHnpqWV1yP4oh7h1w2Iu21Awt0SklQu 4kMpmmWNUN3PRXaiFgXyamgUJKOiDhgNPQQ0G1Qpj5ktaErpRDvVRndaL/oy +jAo7YNZ3odhhRA9jC5Y5O2wSFtgTauBNVGPgci8t0D75+i3PoCseJyWa5Yt hoXQRovZvYqsPmqvoXXkDj8kcB8hz/YY7xC6j/FXSG9fxpnYYewNGcKBeLbf jGGcUplxJrsfp9UdOJXZiMiiIUTph2hlhxDJVhpRPYT7jCBq4rvlpFzHkvM2 cRklO2VyhROrSmI104XVbNFxs7tZKJWt7Li2z4nVzyHh7y+l2nEkjHiNGMHh ZHYUJTtKjgMe+eO4VGin87bhaonAIb24VtiJ+Ap2+kobYkxWYnQY4eSO6CYz VCNzUFmnoBikC67sYse3Ea9O+6BqWidvEA9dxGrfp8gdIG8MCTj9Pcfze7Hz C+tkx0P6aB/GcCRmFidTF+FO2e6RswIvdtmrRUvw1rOb0Up4l0xSlQwTDyvs rstIovNPqF1EPPkyhl07jV00hzyZbaajNhMX5ilE1LUhRNckfmKvaJiFsnHZ OS469qwOjqubORLGRh7JIOdeZq0eD+5it7WQPxzkj1mcTlnAOSmtRCZ/n7uK awVUAOz+PiVUJMTotUJanIIx8hi7afUKuWyJFmKB3DEJZRfLYJB8NUg5Psgx DU4hq98K89IS5PWdSAysRuhJPZLuDiI5dBwZMVNQp8wiXzpP/JEHQ2uRE9VE 2dssfom9JLkZxdSEuhgDiuL10CTkQx2XyX+rRH56AQrS86CKl+OOVwy8Tgbi unsoQs7eQ7h7EKJOByL6WBDijgQh7XQ8Ms7Ike6uhpRYVXjw/3mS09wLoRC+ X0mlYp157Pqc9McoDCqD7l43dBF2cedhzx3e2PGTj7Dp336Nn37rW/jFt76N X3372/gN48yv/XF1VzZ8Tmrh61GMUG89Qm8U4v71XMT66SCN0EEemQdlcgmU 7Ko52Y3QlfSgqLQXRbQ5hswuNKT1oy1tCN0ZFvTLmC/lCKyZI7CpR2DPHsFo tpVhgS1rECOZvbApWmGTVGMkrQgPui3fcYL0qHj4Hyij7pPRtAjGUyGsu3Qs Qt2zTISsIHtoFbmWB8i1rv0J8kbW8H8JL3FVacfO4F7sjurFvqRuHEzvxGFp K7zUnQjWDiGkhFFGPBKf/vSKd9gwg2otKBtf+hMXNUiL+8l7Y1CY2M8bV0kN D6EW7LT4SRTDIlhqKvKRV1Q0+fZXiGU/f4SLGWM4HGHF/mgrDqeOsJdacUZt pa22wIOW9VxeD9xz23BL24WIcgvCK824T1sTQnoIb7KImFRaSUfmcay8fAWZ sZO9nL2KdltZR1w2O3GZRfX7JS5d/dOJy9/DK6MbV3jdA/7DOEQMHCUuTymW cC5niZywBK+iBdHeXyudwiWtjbwxiHi+z/jqOcTS2kfXzCDKNI24uim+T/ZP y0NkD1PdDi/QUjtwR1+N+LIeOhWqX9p7ZQPz08T8tD1FVifH1cNx9X3OsX0h coaXpBMXkqlxiJNDIVM4HDNHi78Ed/b1C+zrl4Q1fu0SrhWzd+oFrqDd1tjh kTuIONMiYukUYugUoqpmkEqLnDPEHj1ElW0mLs0LrIJJZA1YUGmhg6LtV9Tb ESOspd7sQ2KwDclRpPikSWRLpqGK64X0fjVUEXXIjqmDJq6eSrceeVHF0MQW QZOoQ05SPpSJSuQk5yAvQ4PMxGxE3E7G7XMhuE4c3iEmQw6FI+OYHxJPBSHl eDDSjwZDeSYKKob6dBQyT0dAeTICRUElaLxfjrZgI4ZYgv/dhUlrwwS0AcI2 g8PQ0Wue23sNP//GN/HLb34L7xKTvyUW32N8wPiI+Dz889M4uUOGYwekuHwu F7cua3D3Ou1ySAliicnUhFJkSpsgl9VDldOOLF0fMsn/etkg6tKG0ZJmQ6dk FH3ycZgzHbBmTcKeO4WxvClM5E/Ckc++XjCOMTpHW94wbDl9sLHR2lQVsEqz 38Lkn2P5waeQaCchrZglE7JiW+aQ2TlPXC6SIQWmXCabMyzLbJw5w8v4S+RY idmRRSR3zOB8pgVbo7uwI6mD4GyHdxY9at4QfAjOm8VDuE7Perl4AIruKSy/ /Nx1f+ZfYMC+ClmJHfLKGc4y0dBKRdnJ6uylohp4QqX9lKikX7bSL9uebxDl 9l8io2MdngTm8YQR7I0awn4W42HJEI4rB3BM2Y3j6nYcz2qkgOtFIHnBj7xw l7wQXGchuBXWOfhBzoa08vIzcSDGdptzmVxYa6td/rJZOkH5ik2DwtZMYArL 5dYvxCXzqAraPRLiFeU4jsVN4FDyAo7JCMzsRZyj5fNgM7pYNMUYx7l8C85p eljw04gwTdGeTyGUgjtaAOTwIyaUb5k8l8WUZpEs1BTbnrmlJAla5dpJBsVE wwOSxSOO6xmyul5ScH/GRvkFyevfCcrfwzfPisvSYVxIGcX+YAcORi/gaMoS TsqWcZagvKBZIjks4jIb5ZXSGU6HAxfyR0hgfYgkWURQYIcTkDEkCyHtYvMW iWKVxzlkmSegHjSjvG8Q8uo+ksUoJJpRRF/qRtxdmphQO1LixiBPm4AkphMp weWQhFVBEWmCmjZUHa1HZlQBGySDgFSn5EOVRjAyFAk5iAmQI/BSOPzOhyDo bDDue8bh7vZ7UHx0G+knwiE/EQHVyUjkXkiGxjMJ+Z6JjARoPGJRE5CFvqQq 9MeWozdMD4ui8TUuG+QWJF8uws5fbcbO32zF1l+8j3eJyd8Sk+8LWHThcRNj C19v/c634fa7MzhxTAWPCxrcvFmCG34FuBuiQVBUISLSGxBFQZqQ3A1paBs0 V42opH5r4Ntup57vUcxgUD2H4ZwF2PMWMU5+dtBLTOoWMUWeniqawzjLwv76 UbYsC1teA/FZjFcry9924vKYePgaltc+R0bxDCRVwr2O7JfEpaqD2Oyeg7qX k9I/T6acJ2PyaGZYGCxvNbtOpqAGGYphgf3HYOhZRXrtDPxKRlHBSS23rqLB 8dDFYOSAtReQsnvIjFPOghMWVttXyQFUcP10voOC86V4Hn5MEOWNPOEP2xN2 6PQ2Vlc66V05KlrenfF92EMd7ybrxH5lK46pW+GtG2I7oHJuHkNizyTkrCgZ w+hYcSrnu+KCt7zMSvXM69cs8vpryKS7VHc9Ix8QiANUh+bXCtq5+K2xfQqv 5AFcltlwOYuuVzqJAymTOJo5j5M50zidN4FTuTYeLTitGYB3sQXB5Q4EUaEH lI9D3rtCTlsnl/E9Mh9ZIzQM5DS1dZqOl7zUzO5TRRCaJp2Kvl4A4eP/HITm 3yOyjA42nVwnG8MFVsPRxEUcTF7CEYLwpJodUrOI86wEz9I5EsQk/2yDO8nh DFVESMU0x8bU9HI8ZvKfhR1xeJ3zyU5tXWLMcH5HUTXhwMDEFORV/SSIUY5r BhmaGURepUkJZKeMHEVyItMc3oYYfwMS75UjLZzOj45SwgqWROdBGq+BJEmD jBRGWj4y6CojfTMQRAAGEICB5+8j9Gw4kryzkXwmFlE/vYf8YzFQn0lC7tlk aK8oUHRNjuJrMpRel8LoLUFLuI72rAGW9BpYEo0YjCzCi7kHr0Vrq7ENO3/2 EXb9chN2/XoL9v52Kw78bis2/eBHBOC38LELhJtcIPzke9/Ctu9+C9u/+334 bffBVXLCgR3ncO5SAAJDMpBGF6hLq2d0IyHMCkngGDTkorJLrWiNHkafegXm 3AcYyV/DaOE6JooeYqr4IaaFzX30a5jWr2CCZsZeMg1bMZskPZ6tqB02bQXW rRYXEI+7vpQgADG9eBaSyjlI6+Ygb2KTbCPAOp1gzOxjDDCGGKxr1bBgxQTw 8d9aZukQF4kUJ9DKyPqyUgddKn/XwKJqXWKzZeH1kmkHHlAK0aZY1tgZ1gm0 XOs6/2eeVXCva6IaDmUXOacSmNuKC4XDOJnfj8M5XbhttEJGUpD1c4wci2Rw Dul9M+xyX/yJC2Mrwrp0iZk4o0M1LTiVcCuVXiddai9Jf0BQYoIafk6cv+Bl XxBnLxBpmMYlqg4v5Ri8ciZwuYBYyxyFG//uABn2cOYQjtAwH82hUtUOI4QO MLZphnUsNA/G8IrY3ARsZdoWRG7KtE6icnIWA+MLbL4WKCodUJpeY+wRuee5 iLFsYiyHqjh3UFDGVKDDX+BSUh+bLzGvcuBK7gJOK5c5ljkcVM7jaPY8TuTP 4gTHeSLHhhNUP8fzBnBJZ0FC8yLHxIZrfiimWFTBxL2auM8aWSDup0Tcr750 rmPKK9joqogxE9U6XW4GG/t972GEBY8iMnoMYSFtuHe7FBFB5YgJK0cCMRYb lod4YiwhToO4RA1ik/MRx4gISkfwBTa3c/eIrwiEnItBpHs65D46ur80xG5P RdmOKORdkKHgogwlN3NRfjsPlXdyUX03B6a7WXytpMvqxAhpdURaA6u4h2ze V1zfUZ+wj+DCwd04vWsHdv18I/a8uwX72PQOEmtH39uGQ7/8ABuJsc3f/g62 fvc72PY9AWeM738bN36+Bymel/n6G9jz4x/g7NaPYe+mmE0WtrttYQygKNmO 0uQp5MQsoCRhFQVhy2i+OwBz4gQG06cxXvwck6XPMWV4jtmyZ5g1PmY8hMO4 itGyedgMk7CV0TjSbNj0dVgftcMFtBPi4S+xRKDpW9mpKK8yCDQpgSYj0BQE mqKHoGNxK1nYCgJNbubvzEKhz6J/5Qn+yuUwJZoxSMtmIKvhv2sUgMqK6yKr 95JF+5edanZoZQPLYAVfZSGsiMI22yVo1SzQxG6Scf0YrpdZ4FtuRxqHkMrG W2pbRd/SMyy/+MJJbNthbJoknNlLhEWn+mUomx8gs0O4z4LiqZ8cPvhEXDEW nFfe8FNx5Thv5CnuZNrpLm24pBrFpdxRXC4cxRUS0VW9HVeZpKtGC4/97O/O EWcJMcR3YKEmt7JWR+aJJdKMECOzUFqcDnNgdJ74HoKinBivmqdQW+WYBDzR zXU9d/bSfkHU0tWZPxX7aXrLOi4lW+DFvuWlnsRlzTRxzB5VMMseNcNw4Fzh OHvXKM4XWXFJWAxrdlB3EENDgmt7G+Nq2/wbGJ9x7ZryI/r+bvZ3ul9B71cv iXd5KZufICFzEUH3R+EfNkDFVQpffyOCQstxP7ocwffzEBKhQUiMBsHEVFBs Ps6euAS/0z4IOBOAYPdwBJ9LYL9KRezZHEi98qE4q4LkWBYyP0yB8ZIS+hsa VPuXojawBHVBxajxL0SVr/AF+yy0J9agOb4CNjXdkdyEEYkWK91ml0f5VwJq FzwO7WbswZldu7D7F5vh9u42HPzNNhz57Sc48d4nOP3BJzj22w9x8Be/wqFf /Qp7/te/4sy/bUSGhw8O/foXOPnBe7ixdyduue2CUZkPXWIVdPRKuiQLipIm oE+egymDYFKuoyvrCZqyXqBS8Sl65A8xIZ3DpHQc0+WfYrbiJeYqhae6PoGj UvhK3TJs9Gy2KqrJqgHYKpuEL9y8BtWp17fuPvoCvZPPkFrLjkBAZbCaJQSU hICSsGNksHul9xJEy8/wN+L/+Rtaws+QUTgFSTlBWPt2x1N30xr2UWr2L7A8 adgHeRxaEOWn+g35qRQXP2ZQ4Zj/P11DWVl7BZl2lCpzGnIqKkUjXR8FZGYX 1ZeoNIW1/XWRodn8LA83iKu2f4Pbajs8JSPwzLThYt4IvYwVXkXDuFxqxmV9 P1JaHaIkVpMg1Ox+ahKE2iKUoFMGO8dCQrDQ9736bINLYcuEdSEDGZ58o6hd oepcd6rOTqKl55m4PpQjrA8NveBoXohd8Q4RezGNQ1CM4VI2u6FmAlcKGUUO XC2dwLWycVwz2nG9fJjHQb4PAcP//Uv0qv9z9L7jAomxlW6UBKAopxCuWiSA 1zisxxzWUw7rBWJpKY6zYZy/qcelwHJcJVC8AvLgFazBGa8IHD58ER/96Mc4 tWkX/E/fRoD7fQSdjse9sxkId1cgwaMEqit0Y7Q38jMyxH+iQrW7sB2zHtU8 X6VvMSruanks4N/lo+xuLoxBOugDNCi5K3wvNRMtUQrMVNS4Hk/8b6goLoQn O4/nwT2Mvbh4cB8uHXTD6c27cODdT3CIQDn2/nac/Gg7zny8He6bt+Pclu04 /+4OZF8KgvfhA/DcsR03CJA7BNqdA7sReOwkdHFUefHdDOEmnknoUxZhkj5A S+ZjdOU8x0DBKwwXfQZ76edoL/k9LIb/jbnCB1hST2OxZAmW3HFMFAvfTHsA G8vNVjfBMMNW24r1yQkXTs6Khz9Bz8wz9Mw9Q+88j/PP/kH8678SoZCupcoW oMCeIm90OjFlO+euiyXW8x8FoFB2Yrkx5MOiAPxL16JHWd0MpCVsGpWzkNfN O28+a6cG7BI0IEm0X9CBq+JiaM7Q6gZRRf01ddQKfNQ2+grKvsxheOQJnwhY cFE3iNtlZigJTBVHouJIVByJkiNRcSTK4dejELrlNIv/c9emNq71l2KWGz2f nJ5L0Ujt1UoEdDwiyB9REwo3HAmfuD0VFgUEQD6lGr6TOQZPOr6LSgEAo/DS 2HFZy+CprpSydRnYugyD8KsyE48s9EHygtmljF143CAi8h0q5CmsvnKuw2xw eYUB+yJlqoXAdLBVkCRq2cIaH3JoBGYHUdDN9hmuxu6Pd4vfzN61/xx+873v 4r3v/wDv/+D/wQc//DER8K+4vOc4EeDPNhGNwNNpCDmtQORpWpqL9cjxrkDy UQlSj6YwFDAeVKPcrwLlvmWo9C+DKcBANOhhYsswBmhREWpA2b0i6INyofeX Q+8XD72PLxwjI++4QOBxYCcLfzdjD2MvAbAPlwmCawf3w5txftseXNi+B0c/ 3IETG3fg5CYGO0fa0VsIcT8tPsTkzYca+BIIV7dthuSWArqYXuhibQTCNEpT l2CSr6NZ/RRdeS/Rr/0UluLPKa8+x3j555is/BwD5V9grJ6A0L/EROYCnrbQ 6gjf4GpYhI2KxdY0DFtjG9anHS4Q3HMpMH0z1ZeRTaGa1d7AumGly1npCtoc JQlW6aothXnuSxsvNVPHU4H93+I5/hllvIrEwDI3zYnrieK6RTsLoYvM18NG 0edcV8waYAwyhhgWQX/PI6l9CmelZpxVW3Au14zz+QOQtfI8lF9yjkHOMcg5 BgVVoGzIqQClDOPEyp+6voQmLmUU0g3piTJKIHndkvghvqrtAdRdaxwCm0wf 5dmAc1lDWHzeILacr+IWbY1Hug0eShs8s0dwUfO611AelQzBi70mqc0BFfuM ikNQ8dJKy5xzWfEdyAWkWWZElP2pq5yl2kGW8xjk5TOQC6qn4QGUVFyq9ofi XUFZPY9w9txt7N7Ect57Eu//9Bf4HUv5PZby+z/8ET4kmfsdvQL/k/cQcCqR pSxDyIksRJ4pQPr1DiguGRDHUk47JYPsrBySgwa03ShBZWA1TMHVqAkxoeZe JarvkdzvC19DroQxXA/D/UIY7qkZaTAE3Efg4YOoLijc4PqerqdYzs5SFvjc i6V8hWV8nXHj0AH4kLPFLUqFPZOPHsC1XXsQ9slFRJ47K+yU7nxMxz9y5G4M YQf/vbj+yRZEU6+Jz9WLFqp5BqVpy6iizmnMeoYOzQv06V5iqPQVrGWvqG9e YaLqJSarX2C65jlG9I/R2/A5ZtiZ7U1rsLUswdY2xWA1t7xZzfddDLdM6VNK bZFG3s4gb0tYSRJWkpSVJGUlSTmNElZTBo/9K8/++vXC2ypFcf4kMgz8tcm1 +NbsUkDCApxA+71O2lf/Ee2rXNQfRFF2SjWIyIpJp+pyXVrS7VRdG0Td9Y5w WSy//EK88ldcw+6n15fpximTaGOqWcEElJJvVtW+zGuzR/QIn2qzR4i94sEG aqZVFq/QMkL1DpxPt+K8kn0ih30i3wJPLaN4ED4VZtFFKXhhBYctd7qoDSKI 34FxcpUW4nPX10GEn++h37oCWaEdMsMUsbQgYknRSKFEk5bZQatDPMUWtGHn Rzuxa/NubPzFr/Hb736PBfxDvMfi/eDHLN4j3vA/EcFIQcAJFUKOaxB1qgSy O71QXK6E1LMIqVQgqkv5yPRqQMelIlSFNKL6fgNqw+pQF1aDmrAqVEeyoGNq UB5VgbLIEkYeQ4qyUGEX1tPw3rsb1YWFqCwqwMUDu3DpwB4GlcgBN3gd2I+r AhGzcm+w0H2OHHTuvufabjNoy1lk+gUKz544iH8Sn0DhJwRr2P/1MyiOUpjs PgddmPDZq5OLS1i9FYp1NGQ/Rlv+U/QUPcNA6TNYjM+ozJ9hzPQUEzVPMFn7 GJN1jzDZsI4JOkQ7Na+tg4Kkk1zcaWEFt8H1oUy4ePhv6JmiEpl9hj6qkb4F xuKz194Tf+/a8c7AmUhnjWaY/rAuJWedKVhnym6nGHhN2EqzoH5dQoDH8smV Lz8B6Zl2XktQPhvQy6u9g6XnX3x5M9efiT//idqF1ymZFj8oEj/AbaR+aRU+ xHVZ7O4l0War+wSrveQkeJK7muSe1DoJ74IRuGdacDaP5F5ghrfB+p/CUVi7 Kpt4QEfy1HXt93jtacgosWXGWScm6qkMmsnsrcu8PrUTcRFT0IztH+/Cji27 8etvCMv838HvxGr8PnwP+rASozmVGQw1go9pqAaqoPLvYRVWIfdmPfJv1aPY rxmGoBbkna9Fc0gDqsObURvRhLrIelRH1KI+oQXVCQ2oiDPBGFcGY3whj0oY o+OQ6nUWPvt34+a+3UgO9mMV7mb17f2yCi+zCq8dPMAqPIibR15X4SHcPXYI Xu8fhOx6AEvvkLAd9Qbx8Qj/KD4ewf/4fucDEo7vY1Bif/Q+dMI3SUKFx4xP oSh1EUb5A9RmUxXkP0RH0SP0lj7CkFHY4vgRbKaHGK1Zx3jtGibYfSbYDMfa lmDvnIete4ZBWdxtwYx1xFWEeeLhq+i1P0WaYRbpLLAMkqC02bkeIyMBysgk ck6YbMDZiaVDzonrX3n6t+J//58w1C8io3QWGZUuF/laOr/Jo/+JfFa94doC q8eQ0TmDZF4+hZdP/Y9rMX8hXu4YMnJHIRHL06XUGwTadpaod4QEmzZvw0e/ +wDv/uhH+NnX/id+9vf/gJ/z+Mt/+Rfc3cfyOBQDv8MS+B/ORtDRAkScrULa 1ToorlYjWyiPu80oDhD2xW1D7u12dPnWkJRaURPVgtroJtTGNKEhqR3VSU2o SKyFMdkIY4qORzXLJIHnOu98/CTL4szvfomLLJVL+1ke+91YHvtZHmyjJCjv w87yuOXaR+zKpgNQXQ2F3wmxNKgEnLuVCzvq+5846KyRN/bUv+n2CQr9m6EN GYI2ZgK6lHmUypdQlbWMes0KWnWr6Cpl+oyrGKpYxXDVKkZqyEj1rImmRbLT PEY6ZzHSPQ1bLxmqdxzWbjNePnv2mqXyXYttvePPUMJulEpmEG76SefspNOK pBPR6ZxZ/Sgvs+zyUl9lQSyzIFgnrhmSCQqT/03B/yY4GKWwxvcmaVnERfQN Imu9I3LWa05yLvf9Bssrr2BoWBLrTDwthevxs9ewlZO9jbF9yzbs2vIJdjM2 /uRn+NnfOif9F1//Om7v9MbdPVHw2y/l5Ocg4JiOk25E8mUTFN51yLnVCI1f C3RBrSi91wptcDuMPg1oE7Y852RXxzSiMakDDSmdqE5pQUVaPcrT6SIyinnM QnlyIsLPHXc+jZBy/tz7v8Lx937FCd/nnPT9nPSDwqQfdE66sOOMsHHc7v1I POmP8IsX4HdS2KqfU75BnPOvf7mfuv/J/V/uqe57YjfqpAMoCOhDofB8pKQp aKWzMGTOwZQ3j4bCBbSWLKDLsIDe8gUMsJUP1czDzPxbWmZg6ZiCuXsSll4H rH0OHmmcbRNw3WHX4zIHy+tfII15FpdniWcJ8SwlnmVvinNSgnzQSQeCMBeO A6tPXT3r15yrZdxPrcPWj7di28Zt+GTTNuzkPO3Z/An2cY7cGPuF+RKA+s/f xK8ITo8PT+Lu7mj47pXA7wDn6XgRws6XIcGrChLvGmT5tkAT0AxdcBNK7jdC H96IbAKgN8yEprgGNCa3oTmtA/VpbajOaEaF8KQvWSWD8yQlONMS/mC9KFQv fPQu9vzwX3DJjfPk5pwnL87TVc7R9cOHcIPzdHG3GwJ3XUXohQvwFfYfPCnu OPqOuBnu3/OnsK2vsHM/ufs0NfAplsDJ3WISaqV25IVYoYkdhyZtEjrFJMqy p2DKn0aDbhotpdPoME6j2zSN3rop9NGx9dF09HUxeoR7rvs5R+9gbHTuSzi4 cNnnWmgTcFna/UBc80tzqc8MzlIGZymjV/hkyLXmR/X5NdfMCI/hOLF3F/Yy +9s5Mzs3uWZls3NGDjIOMQ5v/QQffP9H+PU3v41Dv9gJ3x2R8NslQcD+PFJQ ESIvmZBM9Eh8SJ13apAdUIv8kHroOCulEfUoiDBjovgRLNoRNKa1ojG9BfXC pggyYVOEWpSrKlGhKkK5IhN5kfdEESY8CEywEdd3bcK+H30DF/ftw0XOzMXX M0MEXT/inJk7Wz2RERCCOyecO0P6OneHdM7MV8SNiv1OH3AFT3t6LxoM2g0u VqnmZGSHjyEr0YFciQNalQOGXAcqCx2oLXGgsdyB5moHWhscaGthtDM4MR2c mI5eYa+iUTx59tL1lZBBl5peevKFuL7UOyeuLYnq6s9dmn9+4RE6eYbuTgd6 Oxic6sW5x/9D/PVGcVrOH9yNCyQQIc5QXJzYuRP7NnJaNm/HQcahLdtxZOt2 HGV47tmNU5s34X0Knzub2TW2pSPwQC6VgxahHkak3m7k9FRAcqcSqoAq5IRU QRNqIm9UQ5fQheamF+jVDKEhtQF1EkpweR2qlDWoyDShQm1kaFGuzES6740/ KBNBIx/bC7cffxPH33+X0+OcmkvsaFc4Ndc4NWc/OIKkG8HillpvTo2wp5+f GIfErWV9OT++Zzg3YrjhLuenzqB9x8VBFaopKCInoEx2QC1zbjVTXOBAGeem knNTzbmp4dzUNjM4N3XMah2z229bhOv7sZMukPRxulKTKyFhqJIqkZNQCU1c JQqErcfDK5EnPFQqsxtr049cd1/+OeLv+cPjoPPzAM9DzlWeK4xrDG9a5JuM W4f24zbD+ejpH+Di9q3w+Pl5+G1Ng+8eFQu5AIHuxYi7UYW463rOSBmkfkao go3Ivm9EAR26Pp76IaUJNRICRNGFJkUj6mRVKFeTtrKMKM828KhFiVwhKsUA lwZ4rRM9Nr8rzoQnZ8KTM3GRM+HFmXDfeAjJ1yNw45hz/6NbJw5vELdW/DNx 77W7p4QJoCIV4gz9kTvdvft+hhtucyK+XGOZ+xQG3SLS0x2QZnImNA5oiokW owNFVQ6U1DEaHSjlLJQ0T+DRs8/wQ2f2J1xaYJAcJk+vhJKRzShMq0RpSiWM ScJOSpUwxVaiOorHMNJBCN+1fyU6pF2vRyB82unxR2vOl8WJcHt7Ig5z9EcY PG4gu+/Hz+H/sTtUtwJwb3sGAveq6Qvy+Y4LEOSpRfjVIsT5FCPNXw/lvXLk RlRSZFejNKEahuRq9goTe0YVjOp6VORS+OXWwJRLoacuRam6AFFXPEVhFvBW i6Z9PLEHxzghHns5OW774cEJcd+xH/dPBsHX4wKuc0JuUPsLG2UJO3sLm2Xd PiVsmEVG42zc4Wzcdj+IO5yRO5yR25yR2jKdqzD/DAuLn6Jr4DF01YtI4myk czYkBgcq6Mks04+x+uQz/Mg5A+Mu8WYq60KWhNln5AvfqclgpjkLNZyFBs5C C/HQFle5gXqnkjPfyslo4mQ0Blei9rYRj6cefrmUnBDi/9bip5cICzdcZ9zg LPgw++LTtZyPrxKel3mAE3Hzw+NQ3ggQn57pf+AcQnZn4T6be+iFUkRcLUWU dzGSfcsgCTJCeb8cWRHl0MRUoDChHEUp5SjOMBIBZShWMbIMKMqtQElBHcoL alCcKEP03j0IOHVQ1Ew+ROyVPdsZ23B59xbcPH4Oh9/fhlOf7MaxbXtwded1 3Dp7HpePkq84GdePOydE2HjZh8rrFifiFifi1hn+mZPhw8m4xcm4xcmQRAfR oorJHRMPf42asg7kSiugoc7QSithYIJNTHBDWhVaU03oTDGhJ8mEvmQTBlKE qEI/iag3sRJdLP3OiAq0BhjwdHrdtTL+nmtNbvd/XF5mhm9++QAR5yODhKcV +jO83j8A2WV/8ZmFAeJyBuPQBQS5FSD4dAmCL5Yi+FIhom+XIpE1nx6ihyxM j8xoA7ITDMhNNUAjYSgYKgPymGZNtvMoiU/Hvas+SPGNR6GnNyKY7tMbP8KZ jR+Kj79y/+g9ZNyR4NzG49j/2704dyAA3l6puHYuhumLIeZouE4wjsbA93Ag MXodN5jmm0zzjTMHN+AGc/wOfx5ARkywKwlilkfFwyHUGlqQLyVlMss60qNB akK1pBZN6fVoT2tET1ozBtKbYc5ogVXajBGZEI2MBgxLazGUbsIgsz4Qa0Rn SLF41oqiAmb67fWjL1c+meU/XjsSlow8f+eGzJtRVOxnECg8Lk7IttgcqV0O e8D3gBZ+7qW4e74QwddZ3Hf0iAvUI4mZTmempYkGyJlpJTOtYKYVzLRCzcg0 IDE2Q9zL/habifvGjeLusxHegSi4EwzpkZO4teVDHP/Nz3Bq61F4HvXDleMh uH9TTtaIIvtE4N6pSAS73ULIzquI2h+A2CMxiDnA2BONwIPXcI3FfM1diANI jQ5xba4Ou3j4LtaW1lAgKWURV0ArIxFSPJskzWjMaEN7eid6JV0YkvbAquiF XdWLMXUvJrJ6GN2MToyr22FTNcMqr4c1vQqW+FKM5jU4l+n2v71AIqb5j5fo hAdkCFv67zsO2ZVIRHmdJyACiei/E5/PJ6Q74I3Od+tYKrzP6nDjSil8ffQI CdAj/L4e0VEGxAmbl6cwpekMKUNmQEysHEFXroo6xGP7Nrhv2rQB7ps38vRn N38M9128xPmLkAdGEy8+rE9KmNPBCPYIQ9DpIESfj0c0Mxx7PAJhO7wRTU8Q z0ynMtMZzHT6IYYbs73Pjyx4iqRb9OGbCf4O8lPzoZMIT0ypQRFrtEzSgbqM HrRJ+tEjGcKQ3IwR1bD4RYuJXCum8qyYzh/GTL6FxyFM5Q9gIq8H9uwOJroB Nkk5LMmFKIhP/MMSg2sN9Aq1sphg1+rTHRKdL5N7a88RpJwLQ6TXeSG3h5wJ /i5/HhClRcDJPywv3CJxehwNggcTfOW2HjeD9LjLOg5gHQcwwQGsZf+7Ybjr ddW5pyvjMn0FE8u8bhJze2HbNpzb8jHOMzw2fwjvIxfh7R5CfIQj+HwYwi7c Q7Q7a/x2DlQXUyF3j0f60QjIjkeSEDLJHX8KFdlDRfYou5KJ5juleDK15tos HLbXtbv4ANo0LXQkXh1rtjSjG5UZg7Qcw+iUjmBAMQqrehyjORNwsGlOF05i VuvAfJEDC8XjmC8ew2yRDVM6pr9gALa8Ttgy62BTEA+3A2hB9nxp5r9ML2v3 xhu7wF/fcxAxJ4Jpiy4wjYc5/EDhUVOBbEs//iOV4DTyEyMjuLB7Lzwo3Two 3Tx5Ui+e9ApF9GuVcPOEKN04l25k3I04w9yeYW49duyBF+PStu24sGUj80o1 4h5ERhW+6BCKexfCEbH9FiSXYmEQPuW/pUONTxHqfXSoupqDcp9sVAcVoI1z 2Z9cgz52qP444fmpZegI0L6V3u/B1jMMXVopdOkNjC7o04dgSrchi+7PdKMR ZvUMbLlzmCiYx7R2AXPFC1goXcCSYR7Lhjkslc1izjCFaf04xkpGYNP2w6Zp 4/+pQkNYGMUr1YSba61EtBJvpFdYM6UHDz54F2GeF8RnmgYIT/wQnB4zjH9z dv7XHvzU2x48zi8Q5/e44QKl2AWe+iK1sRdPe/Xom0k+hJMff4RTmzaKjurU FiHBdDbb9+Lsls28vPBR2BU6oUxq+EzKslA6rGhc+kkwtEfSYPKrRL1vFZr8 TGgV1GtAOTr8y2CVdZIN23lshUXaBEt6HQFbAXNsCcby6j94O8mFiVnQUZHp UtsYAzCk2VBD2R3j1oG2gF50BbZhrGAVk0VrmC1Zw4JhDUvGNaxUrGG14gGW K1ewULGI6fIZjJeNw1Y6DFtRD2w6UoWmiAJ535d2WkjyZSb5GpPszXLz3L0P t3fdRPSNm28ucgiJfgcBpwU77S88LI1W2v+0a6GDLkEWGeCULN9HrH8Qzu3d j3P7D+ACC9nzsDPPV5hjYbf787t34DhzfII5PrF5M05s2YKTW7biNMOd4UNi yLirQmZwEdTBBqTeKENRsAnqS+WI+Ol91F0xoCW4Fe33WtF1vwW9oU3oC6vD cEo7xrIGMaruh13dgxElu5CsHiNpRgwnOp8S+P6bif4+tPHk4eQ6RjeKkodh SB1HrWSW0zuDatUqjAlrGAozY1IyilHlNBbLn2Gl8hlWTU+xVv0YK9XrWKhe xXTVAsYrpmEvG4XNMAibvhW2YiMi3Y/Dc+9e57rFgTdWlI4IS7zXkBwU+sdr FmKyhSf4beDP19l2GuP9/9Ecfw8xzLb7vv04y3k8x4r24OkvsqK9mO0TWzfj yMcf48jGzTi6aSuObt6GY5s/wUmGx64DSL8thSpQy0xTZwcLe2eQLwPbYQrs RtjWQmh2yNEZ1o/uyH70RfdhIKYHQ3GdrNoWTGrs5M8RVq/wXSOCWM1WpCBP ykqFJ7O9/3ZF62KLoEtogi6xH0VJdpSlTqFWtoA29Sr68x5iRPsUA9oX6Mz/ lApiBUvyCawWLeJBzQus1TLhdU+wULuO6ZoVTJjmYKfhtFXxypWdGNAZEX/1 Go58uJXv9hOc2UkyZKKvMBNXt1xBgl8ofe8hkTzvvN5w3LkCsUFcfvgK88qe 6PK+vn/wvn/q6iljNhuig0NwRjBwzPF5VrMHNYrbhx9g/8cbcWDjFuzftA0H N23HYUb81TQYohqg9M9DZqAR6qAGSH2akBvUg7LgQdSGDKM5dAT3PsxC48UK 9MXbMZhogznJiuFkM6zJfZjMG2MPmsSEdhz2AitxyxznkCizTZQGeW9X8neg jS6hZ22BLn4IRYljKEufRa1iGW3Z6+gveIKRoheY0L8Sbyqcr/oMY6Z/Z8V+ jkfZE3haMoWVhudYaHiM6fo1jNcuYqh8HM35najJrEKdXIOSpFzs+l/vYc9P P8Cen3+Ivb/8CMffPYP7lwPf8LHOJ1QxyRuELG8Q1xS+Iq4q3PkjH1tXpvtv rqEL2dUXF+EEhfYBqrEd73+AnR9uws6PtuD8wcsI8UpBddo0WqTzUNxRQOVf zKzWQs1Kld0eQEGQFRXBo6gPnUBb5BQq/ayQ7shEf+gAzGlTGCZzjkjGKJKs mGTXnymdh6NkGqNFZEYta6iwl9HIDJdgdbD/vT9KbHgxdML39WPMrOAJJnYe taSGttxH6C98BmvJS3Lsp5iq/Axz1Z9hsfYzLNd/BjMTPN/6/+J5wzqelFJr lI6iQzuG+tx+1Oe1oSHHhKbMAlSm5EJOw7TvJx/A7WcfYs8v2NDO++Pwr9iB PtwGL/L0H5JLFXGbje4dVielhmt9YINoSt8RbemNM/tcVl/4+U3Yu4YIOj10 Sc1kOQF8NhiSJtlO5tEqX2FCs6DyK0dmQAvUAX3IuGVB0f1xVN6fRv39GXRE z6EvcQES93aUe1BlSpcwIl+AXTlLRpzAVMEMZstW4ChbwKh+mq2GDFg6xCD5 FldifWQYb2X0h2jMaYUunBHlzKg+YwE1qgdozXuMPvLAcOlzjBpfYLLqJWZq XmKh7iWWGl5gpYnRzN81voKj9TlWBz7Hsyo7xrXtaCpsQ0s+e252Pmpp7hoS KinR/bDzX9n/T/ji/G93wfO9XTj1my04wcx6UWJ4n3D2e2FHYx8m1ee00+Xf FFN6U0ypN0t1csz2dko7Oe74co69nSHAbRyGlFnUSJbRqlqD8pYGKt8aZPp1 IsvPjAyfMRQHT6MidAENUcvoTCTnpa9hQLKO5BM16A1mr8pchT1rEWPZM5jW LWC2Yh2TFSsYLZ+DzUiuqyADVHTzdQ3WOZ63UvpjjDSPQ3ef9BrO2Y4XUjov 9q8WUmu37hHM+iewlT8hdT7FVO1TzNY/xULjUyw2PcFS82PM1K6ip2AMHYV2 tDWuYqr/CV72TlG51aElPQM///rX4Pbudsqh8/C/monLJ2NIrxG4eSgK3m6R 8Nx0Dmffo6z6ZAeuM6XXmVJvptRbeLgqU3rdXQiKDPYwpvMvXJm0tTOTMdQ5 sZ0kr2EUxTvYGeZRI1tFq/ohlDe1UN1pQObdXsh9LFAETqP43hyqmMWG+Efo THuCftkTDMifoClhGRqPSoykT8Ket4oxzQKmS5Yxa3oMR9UDjFYtwWZigdbY GX183YD1idHXmbS7irMggLr23gCHM4YScmilahmNPF2n9gH69WsYLl/nqR7C UfMQU/UPMdu4jrkmTlbNIvoKRtCjHUFbkRmtJf2MPjRXmWFrtSL+dgK8TtyD 98kQBJ4NR8ipIGRcVeLeUb52C4LfxosI/Pgigrfcwd1NPvA+5I4rzOIVZvGy 8JzFM0IcQDLd+ldd6VubW4EusoJA6iJFWTnzk9CnLaJGvobWrMdQeOug8mlE 5u0+JF8eJsYnUMwirIxZRWPSI3RkPEOv/DkGlM8xpH4GY+Qk6ikt7QVrtD6L mDI8wGz1UziqH2K0VviweBa2BhJpA21RXSPWJ8feTt8P2Cr6URjYy3ZkR1Hq NIyKOdQJD2bULqGbszFoXIGV6nRU6ON1K5hsWMF00zIGim3o1prRXjyIltIB tOkH0KHvR1VuPeKCs5m6QDr8MARSb8ecu4842vDiO/nQ38pH9oUMZLAY43be RfyOO0jYFY74bWEI3eUHD1raC/QD8VEhmBizOb+R9Q1oQ43ECosuUsjalJg1 k2INzdmPIb9SAKU3i+5mH9Ku2pFDFtSFL6AidhUNyQ/RlvEY3Sy4vswnGMx5 DLPmIYrudaM5qgMT+WwvrI4ZyhUHq8NOLNma52FrER4oS13Y1Ii1ybG3VrS+ g9zbXcgPG0FhkgPFMjawLHJv/izraA499E0DFfMYNvEstfMYrZ+HtXoSbQV9 /H0/mksG0KQfQquBPkzTirT7uUgN1iD8Whr7bjBC6QBle32g9IyGybcQtXcK UX+7AA0+Bai/SfV7Ph2FZ9OQfyoFhe4StCfVOG+J+xc0UtHp7gnfcLeIpVXC JFUpWDqUFPqofiiv1kHl3QPpTdq/4EloI+ZhjFtBbcoDtEjW0KlYR0/WGvXd GgbpVgyJk3BUfIqZ6iUS0CNMC3dGNT2AvXWZTMC318EktbO0Wppeq5tRlwBb nXqOnAAL8mLGkc92XqpysDQm0aBlJkqn0G2cQn/lFIaqhccGTaGlqA8NhV2o L+5BbWk/9fIQjHSZqaEapN3TQB6s45B1SPXOQNCBECT/7CrqAvRoDjCgzd+A dr7uCCylfSvinwvR4qtB0+1sNF5XoTvcCKuq1XU3wr9gbeYRtMIn0fcGSWTj KCaBlVN51WWvoCpjFIqLVVBe6USmzzCFoAP54bPQx7HeUpbQIFlCm2oJndlL 6NEsUVAsoj1vCQMkrHFCY6rhAaaaVzAu3Loj3DzWRXfdxQ7bOYAZi/l1msZe p2n6JdT37MhKcCBP4nyiUqXGgTqdA816B9orHOiqdqCnQfj7NlRqu1BR3Asj EVfOIkq+l4PUe/lQBBdDHVKKgpAy6IMroL1TheTNMWg5LUVnSB167teJjqs/ vAZ94Sa+Luff6dEVomXKstFPMToQVYrFFpsrTf+MevkQCoPIDlGj0CZPQy8j j2fNo0GziIyzZUxTK5Q3BklSo8gJm0JRHNkjZQY10lk0qmbRmjOLDs0Megpn 0KebRn/RBCbqlzHRvMT0UHx0zjnvbOqZZIxipGsAr549e//Nzz++i5WZV5CH jkFJqOXIHNBls+MUsJhKmKVyBxqZndrKERTldaCosAdaQqyQnJQRXYC0YCq1 oBKo6JZyQkwoZiYqg5ugv9uKzGMFqNqThP6ITgxFCw6pA5a4dkYrzHGNGIqp RX9UJXrCSzAYVwJrShmdVCGez6+67qH+J6xOPiEVdCOfziCfukibMQmDagqm 3BmUZ4wg41wjZNd6ofC1IjN0lGCgrkgZR7lkgs1+Ag2U8s2c7fbCCXTqxmAx zZCA6JVaSdsdwhMvpzDSSy3cx+gdxaRt/PXCr0M8fBv6/HmkpzqgIL5yeSpt MbFWxhSZHGIaVDmdUGo4hPwBZGVbkOanhjRAy7SU06rXQxPSCkNwJw1OLyoC +tFFPaL6MA6WsEZYE80YSaYyTCEPpvZjJKWbZqedpqcJ/QlVGEqrgk1ezQZe jInialfh/KOI/Wx/M3KixpGbwjFx2gxZDrIdx3m9BWkXO5FxewgSmipVlBWa RE5fhg1lChuq1DbU5trRUGBjN7ZhqH4a5uYpmNsnMdTlwFCPA+Y+ISbQ3z2C 58+euzIy5eqx3f2PUWRaQiqvJmM2VMxGav4gImVdUGZ0c0RmqO+bkOGbAxnZ QxFUj+ygDmiD+1AeYkbDfStMhGRv9CgyDxVi6GYFRtPHMUZDMi4dxZjUhlEp TYhkAMOSLgykN2FIQTOS3QxbZgWsslz8teveupWpl1AG2aCKdSArzYECJWcn x4GKQgckPt1IutaPFH/OCglbEWdBTqoFhVILSlQWlOVYUF9iR1ct4d/oQG8r jx3CA9R4ZFH0Cg9T6xnH8+evXCt+866ytLWT/mOqqIioMuKHIfcrRMbdQkj9 qynI2pATSFcRNIzKe2NoCnegJpwAjZ1B8bU2NB2XYpxAn1DMwqGcgYPlPMFS tWfayKGDGJR3wJzVAVtBF+1XHd91EVYGBlzv+B+wNP0Cxtx5SEloCikhy3nX Eq6lpQ4k3+1HzA0zYoMsSIy0QJJogSqd71phIamNiQ+haeK7bW5yoIXvtpnv tpnvtpVz3tRF1/v804/efqcjrZSjkSZqqW6+4xGk3ZAj444eUt8GKPx7kM0O VBw0hiphK+/QKdRQR/UnLGBEuoq8w3mYSrNjUk31nLWMyewFOHJmMJo7AWuO FYPqXpjzaDSLaeOLW2g8jcK3zvG3rvt6lxY+RXHpIpI5p9I8B9RFRKDwbZjc UYSwuu/dtyAu0QqZwg4d6VzP3xkrOfd8h5Wcz8oWklg7UcF32WNdxMOnr1zP 38KCC0jaUCrtcEEq8q15q2n1KiC920Y+GUCOvw0lIZMwRcyhNmIJrUnrGJA9 xIjqIfKvNmMktAdTOQ8xzV4+pVnFZMECxgrIKZpRDOUOwlxIUJdR6ho7YdNX Y90+8g+ubxXMrXyGTis1k/0xescY44/R0/0YxUaiig1Kns93S/rNpc3RkGfy +Y7y64VHiyxi/elnm95+E/mBZXQ6VG4RVqqzHKTfNEF6q4M+dohvYhTF9K2m 6Hk0Jy6jhyZrSP4II+on6Eym371awsE/xnQhxYd2DZO6ZYzp5mDVTmAw3wJ7 FVuHaYTBeaqow/q4/Ruum3mEJyV0jvBNjHLwriclbH17ZFbOgjbQKZdSvXKR fr0GkpudkN9mTQaMoShsBlWxi2hOWUU3rd+g8jGsHNlozlMUXq7BtHoWU7rH 4p4FjhIamJIFWIvJVSVU3HU0LvU0LnWsnhoaF8foFefVF8XD15F3pxmFIUNI 8chGGs+Wca0LMlomdSCdIRFZGbeExtQH6JQ+RL/qESz0BzYa7uo48k9sK6/4 EJOla5jQr2KUdTgs7JJQQ1HWxObRzBE0UZg1CJp/FH906QdTz5Dn14/0SyVI 9TQh/UoH6cgMVeAYCnhpY/wC6lKX0UZX10OfP5j9AMP5D1BDuNQGNWBMOYRx wzKDDo1yd7h8BmMttBtC32rjpdsGROH86vHD15deEg9fgyltBJLLtUh2r+Cl 25DuPQQ5BUReOJ1Q3CyqU+bRJF1AR+YienMXKUMXUSdbQH/xp3jYQ03Fy9nL ZmGvnMVkK21JO4fQyct2UmN19MPa3ICrzksuuyipkjQUf6wMyWdbkErCzfCj +g2doPSbpF6ZQq10Bs2ZM2jPnaWlnkW/jkK+/AHM1YswG6YxUjmNacq5Cco5 e5egWaYYnNqufjyYn3NdzXnT69+hv3wSccebkOjVi+Q7hD9bSW40+36Ss+/X sFE3sgW05k+iQ0t1xxbVQ3IcoJZxtM7zKrMYFe7p7eFVhN7fY4els/ea8yqr LvKpk9ohofYS6DQxcBgygis3YQS6dKGN2mlI7KjJG0V9wSjaS8dhrpmCvWUa 9naetWsSVp55uE+ICZh7bCSzJbx1ib/BiuMJ1LdJNBFjSA+1QxFvR146g8LG mD3Kbj6KOu0o+ojBwTp2ZrK2uY3HTgcGydoDvMQAL9HXO44R2+R159kfuO7g W5l8AaU/ZVGMA9nUL1oFNYLwtEH2inpySzO5pY3c0kle6Wpmp+OZhX2oO7qd d/AJd/KZbbPezrOuu+47M2bPQxbPnk8prcmkN8sXNqInz/JstTxbPcfZwHE2 8Gz15N16KopannVq4RFuOE/10HXr0tLCZ2xai0iT83S5JDtSuJYUXkwKLyXh 6RucN06VksZbzQLxfYqbzlM8fn3P4NKn6Bwif5JLS5vInRyJsWNpA8xTj287 /6l4X6jXf73+r9f/9fq/Xv/X6/+/X+P/+P8ANmjttw==\ \>"]], Cell[BoxData[ Graphics3DBox[{ {RGBColor[0.4, 0.2666666666666667, 0.13333333333333336`], Opacity[0.8], SphereBox[{6.2984567579999995`, 0.87813677494, 4.5943018512}, 0.255]}, {RGBColor[0.4, 0.2666666666666667, 0.13333333333333336`], Opacity[0.8], SphereBox[{8.0912398142, 3.0808202978, 5.136275268}, 0.255]}, {RGBColor[0.4, 0.2666666666666667, 0.13333333333333336`], Opacity[0.8], SphereBox[{10.1614346472, 3.1034970098, 3.1087882425999998`}, 0.255]}, {RGBColor[0.4, 0.2666666666666667, 0.13333333333333336`], Opacity[0.8], SphereBox[{5.4828510164, 0.92895150708, 1.8780285960599998`}, 0.255]}, {RGBColor[0.4, 0.2666666666666667, 0.13333333333333336`], Opacity[0.8], SphereBox[{8.954466651, 3.8282069308, 0.5798057313199999}, 0.255]}, {RGBColor[0.4, 0.2666666666666667, 0.13333333333333336`], Opacity[0.8], SphereBox[{6.659205451399999, 2.2315774334, 0.10211134441}, 0.255]}, {RGBColor[0.4, 0.2666666666666667, 0.13333333333333336`], Opacity[0.8], SphereBox[{7.652445436999999, -1.61707633272, 5.1421334186}, 0.255]}, {RGBColor[0.4, 0.2666666666666667, 0.13333333333333336`], Opacity[0.8], SphereBox[{3.9725819972, 1.10059531966, 6.2977008676}, 0.255]}, {RGBColor[0.4, 0.2666666666666667, 0.13333333333333336`], Opacity[0.8], SphereBox[{3.2546750897999996`, -0.53636093058, 1.15904454484}, 0.255]}, {RGBColor[0.4, 0.2666666666666667, 0.13333333333333336`], Opacity[0.8], SphereBox[{5.6393203292, 2.1062885995999996`, -2.5537757163999997`}, 0.255]}, {RGBColor[0.4, 0.2666666666666667, 0.13333333333333336`], Opacity[0.8], SphereBox[{1.2153772769, 0.6439052372399999, 0.150276680698}, 0.255]}, {RGBColor[0.4, 0.2666666666666667, 0.13333333333333336`], Opacity[0.8], SphereBox[{-1.00289648546, -0.7372954961599999, -0.36513285772}, 0.255]}, {RGBColor[0.4, 0.2666666666666667, 0.13333333333333336`], Opacity[0.8], SphereBox[{-1.10875893598, -3.5256617982, 0.20480850387999996`}, 0.255]}, {RGBColor[0.4, 0.2666666666666667, 0.13333333333333336`], Opacity[0.8], SphereBox[{-3.047183175, 0.44584305518, -1.3762307540199998`}, 0.255]}, {RGBColor[0.4, 0.2666666666666667, 0.13333333333333336`], Opacity[0.8], SphereBox[{-5.1780382126, -0.97286873932, -2.1119577776}, 0.255]}, {RGBColor[0.4, 0.2666666666666667, 0.13333333333333336`], Opacity[0.8], SphereBox[{-7.2930195518, 0.22196721596, -2.9294532452}, 0.255]}, {RGBColor[0.4, 0.2666666666666667, 0.13333333333333336`], Opacity[0.8], SphereBox[{-9.5026761636, -1.24914668052, -3.692524604}, 0.255]}, {RGBColor[0.4, 0.2666666666666667, 0.13333333333333336`], Opacity[0.8], SphereBox[{-9.4310555482, -4.0933354886, -3.5706372769999994`}, 0.255]}, {RGBColor[0.4, 0.2666666666666667, 0.13333333333333336`], Opacity[0.8], SphereBox[{-11.584965243, -0.072731774288, -4.4973589074}, 0.255]}, {RGBColor[0.4, 0.2666666666666667, 0.13333333333333336`], Opacity[0.8], SphereBox[{-13.7116628834, -1.5733480730799998`, -5.6533043016}, 0.255]}, {RGBColor[1, NCache[ Rational[1, 3], 0.3333333333333333], NCache[ Rational[1, 3], 0.3333333333333333]], Opacity[0.8], SphereBox[{-14.6026686924, -0.31240950232, -7.868819063999999}, 0.178]}, {RGBColor[1, 1, 1], Opacity[0.8], SphereBox[{8.9455849388, 2.8361007808000003`, 6.994820788999999}, 0.12]}, {RGBColor[1, 1, 1], Opacity[0.8], SphereBox[{7.045654418399999, 4.8545171214, 5.077693761999999}, 0.12]}, {RGBColor[1, 1, 1], Opacity[0.8], SphereBox[{11.011055456799998`, 1.2324226054199998`, 2.9663029022}, 0.12]}, {RGBColor[1, 1, 1], Opacity[0.8], SphereBox[{11.60291764, 4.4877213048, 3.6071089888}, 0.12]}, {RGBColor[1, 1, 1], Opacity[0.8], SphereBox[{8.4075799466, 5.8133640938, 0.62856066212}, 0.12]}, {RGBColor[1, 1, 1], Opacity[0.8], SphereBox[{10.3173370422, 3.5362442637999996`, -0.9369639453199999}, 0.12]}, {RGBColor[1, 1, 1], Opacity[0.8], SphereBox[{6.3706442912, -3.1879677619999995`, 4.7785501362}, 0.12]}, {RGBColor[1, 1, 1], Opacity[0.8], SphereBox[{8.2460083736, -1.6577243389799998`, 7.113873526999999}, 0.12]}, {RGBColor[1, 1, 1], Opacity[0.8], SphereBox[{9.305010823999998, -1.78331552894, 3.924016039}, 0.12]}, {RGBColor[1, 1, 1], Opacity[0.8], SphereBox[{2.6287978386, -0.38658124782, 5.8226237512}, 0.12]}, {RGBColor[1, 1, 1], Opacity[0.8], SphereBox[{3.0889461196, 2.9398467381999995`, 6.0161316936}, 0.12]}, {RGBColor[1, 1, 1], Opacity[0.8], SphereBox[{4.5430902766, 0.9068606101399999, 8.2673622774}, 0.12]}, {RGBColor[1, 1, 1], Opacity[0.8], SphereBox[{3.2353998846, -2.5602007847999997`, 1.42313375334}, 0.12]}, {RGBColor[1, 1, 1], Opacity[0.8], SphereBox[{6.8030136, 3.2707377608, -3.7919241915999997`}, 0.12]}, {RGBColor[1, 1, 1], Opacity[0.8], SphereBox[{3.7010283709999996`, 2.8028416031999996`, -2.5785311269999998`}, 0.12]}, {RGBColor[1, 1, 1], Opacity[0.8], SphereBox[{5.6759810136, 0.15492918610999998`, -3.2121562547999996`}, 0.12]}, {RGBColor[1, 1, 1], Opacity[0.8], SphereBox[{1.29132536484, 2.6420259206, -0.2581365716}, 0.12]}, {RGBColor[1, 1, 1], Opacity[0.8], SphereBox[{-0.33081543356, -4.5810737692, -1.38367627446}, 0.12]}, {RGBColor[1, 1, 1], Opacity[0.8], SphereBox[{-3.0658914624, -4.0899339818, 0.51139765012}, 0.12]}, {RGBColor[1, 1, 1], Opacity[0.8], SphereBox[{-0.0062334501835999995`, -3.9225042581999996`, 1.8987966848}, 0.12]}, {RGBColor[1, 1, 1], Opacity[0.8], SphereBox[{-3.0381124902, 2.472706471, -1.61573462726}, 0.12]}, {RGBColor[1, 1, 1], Opacity[0.8], SphereBox[{-5.1264486927999995`, -3.0110894083999997`, -2.024841409}, 0.12]}, {RGBColor[1, 1, 1], Opacity[0.8], SphereBox[{-7.3442311263999995`, 2.2604902412, -3.0167585863999995`}, 0.12]}, {RGBColor[1, 1, 1], Opacity[0.8], SphereBox[{-11.297726891, -4.846580272200001, -4.0077309008}, 0.12]}, {RGBColor[1, 1, 1], Opacity[0.8], SphereBox[{-8.877554802799999, -4.6857645896, -1.6773019003399998`}, 0.12]}, {RGBColor[1, 1, 1], Opacity[0.8], SphereBox[{-8.0659174858, -4.8050063002, -4.9393658188}, 0.12]}, {RGBColor[1, 1, 1], Opacity[0.8], SphereBox[{-11.7452140078, 1.9541656565999999`, -4.3202915812}, 0.12]}, {RGBColor[1, 1, 1], Opacity[0.8], SphereBox[{-15.250088819999998`, -1.7430832623999999`, -4.2942133624}, 0.12]}, {RGBColor[1, 1, 1], Opacity[0.8], SphereBox[{-13.031550496, -3.4508286486, -6.158617033999999}, 0.12]}, {RGBColor[1, 1, 1], Opacity[0.8], SphereBox[{-15.9583581248, -1.33242690534, -8.547797615799999}, 0.12]}, 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], TubeBox[{{-14.6026686924, -0.31240950232, -7.868819063999999}, \ {-15.117612717731944`, 0.8239130912956434, -7.492770378304183}}, 0.06], TubeBox[{{-14.6026686924, -0.31240950232, -7.868819063999999}, \ {-13.6335469032603, -0.3184582136970856, -8.739781388618775}}, 0.06]}, AspectRatio->Automatic, Axes->Automatic, AxesLabel->{ FormBox["xl", TraditionalForm], FormBox["yl", TraditionalForm], FormBox["zl", TraditionalForm]}, Boxed->True, SphericalRegion->True]], "Output", CellChangeTimes->{ 3.57289039415965*^9},ImageCache->GraphicsData["CompressedBitmap", "\<\ eJztfXlcVVX39/dxttGexqecmtTUDOdZS83SzKxMyx4tDec5LbUwc8oshzQH xJw1cR5wHlBBEAVRQRAFEUSUUUAcwIH7nn3OXueue9j3gP3e96/3dz9h9557 z1p7zWvtvfY+H/YePaDv0N6jB37Tu+p73/YeMWDgN6Oqth/+rXap5L+Afw3Q /vpUhXjvAOgfh/afY6D4R1z53/dFvn9d/FNS8O4ddrWG/l6/rL8Tf63Y91XE P6XEt6WL+GVRkKqJf0pY8VdT3PU2+/4F+X1+fj4SEhL0T4+ZkPgvn9Xfl9F/ GRoaiuXLl2Ps2LHw9PTEqVOnOrOfPq2/L6//dMeOHfj5558xb948XLx4EX5+ fqhUqRK++eYb3Lx5Ex+y+ypI9IRC3CdQ7NmzR7+vW7dueO+997Br1y4sWbIE U6dOFXA4iMf1948UAhEQEIDbt2/r38bExOggNPQl9AulsGXLFly4cEHHoBHT iUF8VH9fGhkZGTrNM2fO1IlJTk7WSDS+E9AFtpycHJOwDxiMchbe0aiio6PF qB6VQhAfBb/EpxJiiBxGaTcwJGVPyK85DDEcSVFHBqmEG0lKSE/pX5d1gZSX l4fp06ebxHVg4CQkLmjBGw3S0xLSjRs3MG3aNBf5rVmzRv+/hHTfnrrnJIcI khhDCXmNqBTX3jeg5dtDe1He2a9fP9MoCJpQDkGl+PSeAe2OjQZUkrcJDKRf JeW/gsQjR47on9oboG7aK0IVG2iCzIkTJ+pkSmg59mS+Iu8k5ebQuEAltOv2 avG6AloJyRkBiQQrFQ7vGlAz7FWkuoRKFuSEWkaHIqglVZbK184AnGpPfE2F TZWR18Qwvb299U9tDWhX7aG9aQONWRlBu2KjMR4KUGUZKDKxiqYXfs0Ammiv O/UsJsLhCmkPGzZMJ7yyIiK8bGCIt2dCQwUG8koCg9B3wQhxizTIStK/cmQO GSaN7xBrr3ZNFbZaShIn2CUduenYC7OvpILgigbu8/bK2VxhjuUVxv1ScXBF 2zO3lQ0u7uFeVHBUe5VwjzjSHvE78k5Bt9BXhx4/jWuCQHKG5UwinzDflTDf ScoJvZTtGRs7aKfwJ4RXaJN4CZMqqyb4GfcEh9sbSnuFy6EATW5RGIu4RTrc MuoxPG2SbxgVQu1Z3cEGs5Axd3jSR7nBXN94E2JvO50UruZxeY08ltOe3CEJ tjeSzjZIuD+zRxJoz7mPJUChSOR6nmCWKLhlUqJLpIEB97A93K4Kl0ZwU1NT 9cEmJiaimQHN30afuytAPSodlVArYUs8ASK+GA4O++2Vtodb91AKS5cuNaFq gy2h4EsTA8kee270tPFBmZmZpm7ylIT8ksSw014jv1ZgqKBwNo0NaH72qtdH 4UKekteEFZN+NzKgbbWnvq8CWgXJYiHADRs2kNAkwE32AAcozP1JqUFCZuRk tm3bpgOWUDfYKNlghbE9KUcRFxdnSkj8SQs3ojZ87fVrqALw0worlma1xp7y EcxcxdDFJ3LYXC2l8a9k0MQALEozSmFZz7CxkSuT0Ja7URpJ6XcKaE9LlpOd 8lLHyKuwxJ7icRIqT1OeYq5dQBQ/F+OUHJCAfewBeyks5t/yFi5tZot1DcDe Nno0QQGVaixuh0ayivn2yjNRYTnPM3FTnvSWAW2uPcVTbKDxIkhCm22vPNMU RvisRdzklgXVEupMeyWarjAXmiChrFTEDWaHdQzAv9kTP0MB+D8KOzQKEkyz hzZbAY2KX14E6TmWnksZNSOm2ujOXIUBvciGSOZIyRwP+EaBi0n2+jTPLQbD E7M8v7x7JBPseeOtsNgXJNlUxwqlIH9lg8nLXgUXK4ztBYXTZiasp30lmEB+ sNfHJQoUFeU1XhWpJhll8TfGnl3LFVZJkx/cxkubI5dwR9vDXWUDl+cXxvQn vrVRzL8Vpl5Rqo1I5qg+1ZghoQ2310NfBUDDGMu5FLyUfIlxSu035jUwxJ74 DUVYOwFVzQEZM7sYyDAQUxiGzQoMVRUewJjdQX97NduqMMyX5TVeUMgZC097 6v0U0KqqzVwC7G0PcJcCYBWLST///PNo3bq1rq8S6lc2OrVPYViV2Ci+++47 9O7dWx9nmzZtxGgk1P/a69YBBWDDx7nOmxN5Ys6clw4Syxf2HDkksfDi/nmF jNktNCVO4UtHY05CdbNXtwCFNT9jj68c0x/yhNLpdbXXxqMKZE/ZI3vUPbKP 7Tl5TOELnrBHRoWkyPXPnj3LkXW2R3ZCYbWP2iOjukfoB/liiayTjX6fVGAq Z4+JygJhogcOHNC94KsGpg72On9K3snLgtL2yJ6V2kiuVry09xJfe3s2Rij8 QQl7fM/LQfHpGMq7JNK29iYQJXlISN0g4jGOsm0pr3fs1T7a8rVIYBhg7o9J xWUobmXPLgNwWeWIyU296h568+JAL8LtuPpDWsDgBiSRNbXR6SJmWikH4m7D BlMje2hR9l+XUyCjkMTLD/ES76UK1P8fISUvx30VIeXVCRWjEqmHjWJrfC0C KXk77kmIrSL7Ej9lbK1jr+Rn7ZE9ZYOMW5REVsseWhHInlEgIzvgibSRu8hM 9Z8io0qX+yyV0Ulk1WzsoAhMLz4cplftoRWxykCrTrza4rke2YFmfHrdWNI5 xy+FWFoHLWjj6/lFoCVnyL0Kzwj5arQYwuMKsT7FR2FogaAiPDwcEfbYX7Px aWR7xieHTROIC36jVYFwhYtB2A6B1ldVzo4P4bGiEJc2QQh9kchxwh57TRvs 3Ex1kZcoJPIyLnkrwxtsj5ZWa7n/c4vWQvTTfABlXfSVBuHj46MTX18yxrK4 qX+eaioxTzjEyzJW1XKwygqdLHIZobqJgUYpcNSzGSVFp9ObApF73uj+8XIz XvHSxktLyvs3hGF378XIS0rGGzbemJbyBB3Sk1D9ydPAUmzkAoTQy7dMs1At q9Ide9dFIeD3BGTu83eZJeF6IceuWiQli1s+OxbnDt9DXmqakp4qErR1zlA6 LQtpqj4BIkt8etMyEvEqZUNkVGgaTh/Pw53bd+VETWml8pdwB4jIPH/uJtYd f4AH8edNMnkAqCz1XgDk0xriqkiOBOk2tJZltAqQwuu9aWquHYU752vqd+eB /qmIKSOVNqhES4yPDM3FiZN34UhPRA0FzWRuFAic4lbSSEbj7+9v0ljbpJHK Z8syZylzLJdwYbcRCr61J7OshSQndDWZy1Zn4X6iYcREJncOKrdvIZP76fLu yHTTzkEU+v5yEgU3jO/quXpBnUFF5NPOqeiS5jsaStCJ+3BcT9Y/UWBTxVaR bpKPt6HwEQWFjeS1Eyuv425etv6poY0HJebHRsVjYfcFiF+0RdqVWwppXjY4 yoF7SUVTwyOWhRoeHh9VUNOAGLcxFXevGX1sRCGnpiTPPfb+HQvfGVnIPhMn 00u3pNA4DgVrhpttdGRVU4xNlS1XdiWFa+pjClLqk5HOvgzH/bv6pwZFWR1J Z87v15GbdYWx1S1Jr0pIAWccuJuc5qLiJcx3VL1zdaoq1URECDGtL2yMIl8V 98Q+riC2LoliVSxuJzxgcitW4w+Z4q5p5vjN+FVEnrg3QPv5jQz5qTBoO3Sb p+xA5B8b9U9PMwZRCkYM4muhlOJIBlEDJE8NnlQwiLImX6/TmjYYw2hcTH9J ww35K8u8VtGeO5TH+p90IO/a9YfijjmfGhqDiN9WIfavE0g7dpGKSp6jkpnw WYjKrozhgaiCgjGlXd0nW4gpibiT2Ug/leP0aZbfUcCJ3pxtjv4/9oypI2/Z cVD7+c0sSbDpTMq7cCJN40DSgk3IO3AcjltaGnUsFxm5+bCrr/l0pg0rnjDJ 0b4Q4yR+uISmojSDRHp6YwCyoxMkCca1/ZMD4Ui96eKfjizTXJ5m7eJTW3kt MvQykvYXnmlXMK+utIf9xx24cy2HWzWTimTliSU7EDDsD9w+HoX7+ffwgg3T eIS3YdpTEr94iekg4hkPBkWxjK7t9Y1CyOxLSNm+xWTZSq9NyL+U78Kys6HX kBRoBDjqAPT1PofrQZf1T8/Ys4xC8bY9BZoK3XBhWQlGTtzqPTg7wQcppy4i N7/AXJ/mfqUY3Cq8suDMAohjVm6FjN1TpIL5h+bjwf0C/RNZXZBvGHLPGApG MWH7nFg4bhe4cGvTX1dxM+AEG5NbbtUyrcKZflFD4d6jBtfki7xU2np/JM1a S5cpV1GlyzwvKZJvZVz4IMCJl5aosRbSUoiLvoWtO43vgofvMC6XNSVML/F5 w8abyMnMNNmXGpGOVP903L57x2RfZOgFRG83WPquvHZwnealkh84vYZ79r0l ecJHbivYcujb7VP0+mgEetSshl7Vq+DXtp8ga5kf7qRm4d4DR2UbdvKk1cJO nko9afKrFFNIUewLAC7uQzI97pqTexn745AVGmMl4eS5u+YtJzYdRcIGw+Mm hF5B4vokFDwooOndM7tycOtqugtPT4qCJt3IyR6152m9h+VpGTSsXAXv1miE oc2aY2rHlhjevBqy7xbw+Q9KmSnDsBboIsOw8JSnYE+6xW5wl2aehPM0nJ6T x04DEq9yCI9wYNPcFMQtCsPlVftNmIGnHLifHE5OavvkS0j0jcDmr7fhwHfB iN9+WQ6gFOK1OMlAk8X213TrvSov4ddPBiHiyH5qY449qjE+66ZUwGJ4z4dg fmnUffENtK3XAZ/XbY4RLd+EZ4tXzcKEFyvEeWvjUxGcr2Bqs4sfIB8hme6c H3Vm4MKZ7wjHsWgHCjRPatDwHMJO3URK6nWs3JiLwFgHTl1wIDrK4OWfy+7h 70XX9fd+48KwvZ/hqfdNC0L8lljErgzBWe9dmPD5ALR/+WX0rOkBr3eb46ta FYnZs/sFaYVOhiTWltlN7Jj9qMtl8RcZGoeZExPRq/ditGrYEJ2b1oNP4x9x 7vRxJcNVuaLsuicvw4MddZXwyVtngc2YXx5nkxw4p1U/3r/lIvXiBS0onUdc SBjOzfHBxbWJyNdStpJ2xD2iXz6ucT8ixoGYSAf8dhWgyetN8WnD99DPoz7G tq+HAc1eIa76jNDCXGa8tC1brjYvPlcnDtmF8VMzceqq8Tn0xHEsWTwfv3ju ROS3c0yu8mClSjstXFX10nGuOnlZ0vWdpjAHwxwI23YDv1b/CBebfoLsj7oo ++LpvtLyPp/Zf+Ldt2phrMcXWNynE/q3ry3Xvsth08/XUJCT7I5hLRXDkXAj Q69iQI8QbDnmQModB5ujSsXEelouGBFj1g4qJvHEyYZJLxWTSeQa9/prGXVO EmY3/Aor2/bDlQ86u9s8YOe5+n/VCyM9+iF4ynj8vc0fjvybMocylCtg/nUr r9pLLJGaA5466hh+WXALV3MclGKs8z6NQwMW6J8qmi6J1XDi9ZDMqeiOOW7m m4i6vVrNcO+eAzsWbcX2T/shKzLqYZhEucMCzz+QvckPMamafVy6qTPpOSVT QS1AhU3zjG+24N77xKZFxzFySAx2RDin2AZ5zEPqGj9GsjMhFC9iCZxrEhei EhC5QSvEziaYxQ5POS1MLdw/WNpMM2mVzMlA18LUMIYsJCSkacWIH3Z8NwOO 67FWA2ZFchns036X+bdBUUyKyb1n3WqkehJCUJkSaZSaz0uLdrd3OTL0PC7t vq4q3R8xNfc8fvvxPFZvvYeUWw6aE4wMTcGSJj8w5jjZz7URzkmAbatjcXRy FHJiUs3ua74LorJ79vMsl17OoZKWbjrgwJopc+A7ajsc9+7RruPtGl9Tl/uZ jDoneBtvaOa/TaOzW0mY8dU+pC89grz0q0WVkyQZX82y0wOMPaDFnUaiucWN S85i3PgUhCc5tw5N8/RD1Og/XJSR1JwiMmf2XxNCERh6B3du50vzK+XSWKq9 9Mtlxbt/uXKeFwdVGOfJm5ST8GK1MmD9H2vwZ/ftuHvXQR0UGzV+X/Ex+E1k cp4/pWBH4SmjNSvTERqj1eOn9xnZdEkZZ8gt0suco9JuCj0WjBGfT8Imr+ly +1BxJ+9KYdlPhzC3/3FsPOxA6h0HZfAidE2pNxW3I2NcGM8LLvEi4Z0VyzEr k5j5lS60h0Z8fs7ikgsPE6oOh0rOKFHKFIh8lZaUeE0IwPLfZ+OjVzrgmK83 8Vv4oXhvapFlcrnI5OJ2Vc1c+jqZi72h+bgftFVWxU5bEC9FAxYHQ5EoTJNU 4yoV8WGV2hhU1wM9q1c0ZhCLM/m+YuE1nAi/gbwbWaY2rfc+hYBBxrYSmmK0 3E7uw24eZUGPzXDcuKd/olxMiIxK4efUI7ORWGXpg7mAyY8JRslrFIYXzZ6J di9XxbC27TDYoyp+7dXZFCxH6nCZfTGkGyOlS/IT0j0hpeusi1QdIaZ04wrg H30XOX4b5aSb2tO5AUOpts/sWWhVpRq616iHoU08MLDRq9i+aFZDxS36J8pZ hnrMRcpaP6cQXbRBcJW9iMrdi4Nxzd9YiqHMkNcw1n29Jsh/iXf/Mt7pX9Aa DC9zjDK0bCFdorV3Ljuf2XPQocYbGNL+A/zwThOMaFJNKbsidHD2UB+EDRmP rHPxJpfPXbOIUsVGyo1EvRUUd0f78a2iakqVpbnyvTxitOT1zNKjODTjGLw+ 8EKnJh3Ro1Ub9Kr/Nqa2a4HtS/8wpKWcGhd/T6uZQPwWycSKpmOdDs5SmRIT /MYdg+NugYukeV31jNM5um4et8iXJyjUF8S1Q/xf5o40Def752p83Pxd9G7b CP06tMTMoXNwdPBOXPMNdCIt7QKB3tPof+sfgczgNGTHx5j2xsVqaNojeu4X nqBdyzNmo22bTv9tlZwWgGL0a/umB2L/2CMI3ZSO6LMOXL3uwM6Dx9C4eg10 alQb3Zq3R3+PEbi0YBEcqfEvSU5bwXEfExd1CQu7z8fFhZsN7+AUeAluxr96 bselJcbeCbrG5UkqsnS0H/Lj81x+x6uc/9haaWEpqoL9k/p7WoiIC72I0/PD cDL4BEYO/Arrls9HdKIDsRq/t225h8Nex/Xfp0smuglEJNKLSfmITc6VLsKd SMto1+7iXFIOFv85o3ArrxEaQhcfxK5fDmPP6AMI9U1BTESBMZI75jk9fy2a j1VL5+sLQkM8hiH5gBY94k+9qKDddfl9bTw2z81CXkwCaHlNpDXT6k/BHS2t IdarTnURk0hnfS7hwb1bJuO5iF6weAuldCpbbIxbCVyXWcTK46ThE3FWC+eO exSYyiAy9i7OhDsnR2+cjjEVsIz5zm7SN1rIJe4mhn7cEV1eroSJPbri7LFg VUDXLI7mDfXd1P5huJScCUduOtVqIYv2IXFXkjmc86cfICXDwbxwaXh5BmCk x1CcPByFgmsxuKfZ/XMWdrlKzVy4OZWL0xlaOZ6VbApsguceBA2e7+L7VALb 96tWmWbfZ78rZd2EXMlVUoUaydVzOwmhCYhZHIHlfy3XTcl5eoc4MGBGFo70 34zk1YfEhXJFOpPSaNG8K34aMgoDNF80oP4rmNanqxEnjFhbwSxSCUjyDe0v ORVhezZjpZZg/C0ak3ssw4Wxi7F1yC6cWJaIgwH3kZruwKl0x1OmGA7ge4/B WLToHLKTYnE79JgyiyNqaK1x3yUHMoKCkHchxmyuG+7xB3LCjbl0MrvC5wyV xA6fQKQdSGVCMNrkRfU1Z84c3YJEyevc2vice5lQx8xlzexjl0bp3Qlsgd7K 60tXHdi3JR8B3x+BS4bIiTUG+lghAUWGhMGr92S8VbE6PqjXCEM7fYgJHdpg ZueuSF7j/28Jijo5DUU2dIRExRW6hPSMuw4GIy0pGT1rvoava1aGz/QUpEVn ISrLYRZCXp674eUxEJFHziMwXgsUF4KUE0dsdqIkNkU7kBsVigdJ543JJEZx aSybuxmNn6uEDpUr4qfuXRGlFR2qVW4S2+aRhzW3XeC0BLh2zLqJBs+6yo6X z3TE1ZXQJMSviNFlR9h4kwUdCRd52YGokw7smXoO537dj5yTMcqEyoBRwbym y+2rn/H5Jz9gm8bswd17ofUbNdCtZT30f68OFv7hg737CnBwQSKChm5H+q4o ZIXF0GkibrpbnTI0hPyIi+cWOL/u3A1tazbEd53exehmdTD0w09w+Xr+42r7 YvlhGU3e2zHXc5b+KeCKAzfPnYAjK/kpyw9d6SbjXH5Ck/vFSC1xuShn3d3E 6NJooAn/3edewTc1X0efOq/gtz6fmXuluRKIP++RW3DnfJ5qw1PxZM8LP+rV vxqWjMTVsXA8cGY+XPbErGAtvK2emYaYBeFIXLnfffVsrIZ49RyPbp3HYMu+ IPjOXYEujXpj8rRV8J73J1YvWYDIUyco9MWnOXA+xoE1S2/i2KQQRM8+iiur D5Z2I31+sqF1MecxUwW8ev6Ezzp8hz7dvkTbGtXQrUlTfNf5HYz9+D0c9wpA xIxDuLxi36PuyKA1N4Ln9CXlMfOdSYhdsBkZedrAr2bjbpAho8Vacbx61iyc CQ42O9989hYg+/JFODKTzI0FFiGxIZRErKa2O9o1w8av25vLrl5tGiDDLxwx Pn7S57jqhlj2D5sbK9oESTd4hfnwukFz+inhV3HFN17XDfLTXDecvavUpM88 7O6j93F4820cHXEAqZuC9etiBmyFFhx1CX35gyah0fp737nL0aX+V5g0eSXO J1yWDucRHNfUYr9wDPMvafXMVlzdfgqBq7ZYdaGUcxzPuIyDHI94bd4dpON5 r2YX1K9WDR++XR/dWtdC9OnjOKtFpVPnHQjcfx8Bcy5oycJGpG0LR2ZojK6G zqZ8trz1uEmqTsL0dGSFGwvBkfEFiM4qQNbhgxjToi6+eL0KelWviOjjwWzi gBLnwFP5yLh6BY6cFF2FVs2aKVRIdZScibsCQhf66F+F/WWQN6KtBwZ1bKS/ v3pRqxC35iF82UWc+XEPoucFIX3rCYSuOIAVXyxB0oo9dC4PnyjcNjlE09MH 5kIhL17tlYhydFW7UerpFFzblKArkaqV3Nr27Q7buSvmyWttK9dEp6p10bXd CNNwJk5YgZhLSVIy4l/nwsL4Xxfjzz/2YO3SXBybGIyo2YG4suoACYCL0fQf X0+m7FF3X/V76RjOxV+mnoO9WtV6UQvw25ZmaR7liOFRlu9TZc7OGtTwsM7M JigsF9k3882INfizHug9Yj5mfjsSw5vXw6iGNbBr0R8vKXhE7jPtjgMpKWkY 82E7fP5aZfy3mq5oFU2boIkSAT/m22G4MaePDsi/49v6/z9o9RZ+HPYVnNpV HvGZDr3y3H+kAPPGRWPLgttIOZGAU3MCkKYZs2YY0tmWMlVom/cRXN2ZqloQ LJ72qLbTpEekInWb6MhR96+rzotz8OUiTb8WaQbVukZjfNb4bYxqVR+9mryH n72WCWGa4c0SZayBpRQOzYtH4KAtSNsRgethMXS5deWX0Lnqa/jwjU7o0d2L NLRLoz6YNGUlYhKSzHnoKM3JnNaczNH99zQncx6H+23QnMxJp14wr1BBusVF 2p8vurz5OT7t+D2WzV+DhlWr48N6DTC8Y1v89Om7WDHmT4ROOYaDnuuRvjcW icv2ITk05tlCXBDABnftiY7v/he/fTsaQ5vUwZAG1eC3aLbL0gFxMfN4GC58 1dGMQhnDP8GD6N1wqpRKHx9DjFaJBc44j6vXNI5ezkeMpkb+Rx04uPkmznhH 4+QoP2QHJiNl/RExkeHsddGY4K25PxGI1g7aJy6oVMnphZ9zrz2qwxL1e8gB ZZxNQ/rOqygocLZq8jbah5gXpfmBZtVqoKtWLQ76qCOGflAP0eHHimoOc2MW JVh4SdDKxQvnHFi39AZCJhxF26p18OErb6Hnl+MxoEc3jO8xGF2a9cWU6atw IfEyX4wyBLJPuilS2DO/+yNx+T7CZ1x+EUu0qLxGy10itNzFd66PFp3H6N90 /WgsfNcHYMK3Xtq1seji8V80eqsF2tSrg25ve6DHO28gKtw4lzFICztx2l/Q EU3aqzMQOj0MAVrZnXEwAUmr/JESGvMk025GsUQ5Dl3e+hKffjAGQ74cqml6 NXTWNH1wxw4Y36UD1mhDOv37QS1t2+887FRT7Du/fImonesQN3qYATczzoRr 18Ir0ia/8aHIu/lAupEnsf+Ca+dlxPwIhA7fiuwjl3Ht74MmHPF6u3Il9O3T ByNbtJAjMeDGRyXgwlpj6eR5KWG+i04rrSs+rOq6M7dSuKhhi91wEhl7r2na bLYt8v7mh+iTMBfATpxAq3q10LlNQxw94I+Ca7FFNdvZmkzh/q8wTdFa1myC z5u3xvftW6Dn2x/jl1mrEZd0Gf92NzLyReRGAzU3avzsCbxf6VV88to7+qfu n46D76ZA/b3Xlz+iS4Ov8fln2rUtgTh/2eg+8F4wD8uXzCePcDhWS+bjSWsM NEFDtiHj0BXnNYPGF/Q8VljM6lkzmQovQ5fXO+nvx4/20XFNGu0l1fq/qFPx FbyrWU331nXRU7OaHftCEKWp2+LldxE4Px7HROG79zzi/tppaM0jSNYi9rGP 28KxexaOzluES30+QP6hP63JCs1jWFks2nr+HuqP/GxqUzUmc4/EaS5B88rH grWMd4PRH9iuan10reGhi49S/fGf7EX8wghknw6ValnW5VwpWq0Xe+/FfJFF q/kskbOTwVldmf0LfQ4jd0c0bqUlm4tHXH1te+/Uuz6Pni7AnZxseaOt2pYr PnQyjkavao6pYW182bYNBn7YAKfWrzD3//Dfs628ZXQ/TK/P6rTAgM/6oO97 75Cqjf9+Mdb5GSf8GHODlUxYe7Uq6JymmnsPGSBC5kYjZMROhM8KwLWNIYjw 9jNXrDtUegWfvlofXd74RP/tpJ+XYsKkOfr7Lq9/qMWK/hj/3WL4bnVawmJv MXO/AGfCj4OOmt4b5UCshtd3VR5CZkTikKevXhFpqY80z9LY0ncgssd+hjvR e3Bi8BDc/q0nLH06JONFX+7A3TSH9AXuWFsGPrOM4rBLo7b6/0d10g2KXOvc JbcREHnTxVGKU7Po5BpV59GLrlopyhMXrVSuy7jdz5py7S6yUm8zOZUyd5/L VXjLBLUxKVQehzWfVXDOCAvu5jRUrGGLJWUQGnIcyxYt0CqZBVi8/gQywkJx IzKGDsi0DJr+T3cLn9vs1ero0rgherdpjoEd3sekX2aoerisU7CXtILg7CUH rmhUbF13B5P7zEKn15riw5qt0af9F+j19tuY0HMoqfPUyUuwcf9RGVUNlQrS bt2hFfM7VmTjxKQQxMwJxrV1gUg1a4ky+vRH8o8jUbB5OpJ3r0do13Zw7J1N KdruiSdxJ/GBHJu7oGhca+dRG19/ORAufTvrDjhw7TZXDNd5NIuyCPnQZKnz 8Gs3KsJbjkkdKjDncyD0LhbPm134DBn1SgRVO8sOO3DnRpaLxll+7zKt3PeL /6Jt/dr4tEVtDB4yEPfTLsK9hFX8K6uZ4Ry0rFUXX7Rsif5tmqFPqzb4acx0 RMUnGjrqdOVsQqQsoq45EH5BLABoGeBfKTgx5oCesiWt3C/HV073VEtmztQn MFIGfQTH2V3w6zcIN37shhvRe0isf/9wELnRbI8FQ1RY0X0Wzkfffl4ust6k FR3p+a6yFryneTGLrPkEWJGytjZCiwzuMckEq3Gv36PpdMJV3E+Kse5mcVnS WX7MgbwcY6dJBQVa+j0pxg7NntICg3D3Yowy/LhvJyuDhq/XQEcthH3+TiMM 6d8L9zMS8CAx5jGLPhZ2jCpwFbDvSIJ+/YD3RRx1zWX0X/Tr3hVtKlbEN5Vf xLCaFRG/az32t28Nx9bfcDfzIsl84ehNSDl2Czfybrk3bxexTJyxHcePG6vi od5+lLn4hTqQfc9V9HxK1Eb0z9hw3tq8LKReRFZMXAvS4mme3EhBc8Nrw7RI kJ2if3I+Y8BuYWHpgQfIuRABR1q8+yRZmRNpoXXRfKxYYizRnkp1IOPKJdw6 EfKYgl5baT8Brx7b9esPjkXj7oWLZq6wTssVJvecjnZV6qH7azXwXfOaGOpR FVs/bwJH1G7apTZn2Gok7buBBwWc7LJysPNXRcN3na+WvF5BL49huKpFB7NV 4IwDNx+4ipVPUkqx0mwZn42kfksuuiIyQ1ImUdbeO+3vIrpNYrd8VrLLteua r0lLStLncZ39bE6dpeCeeMOBgFgthTgXqNRypzcvJQNB1OFbyPxzP+4eNhZy fWbNRjOtdvrIoxlGNKqLXzu9Cb8ls4nBexYH4fy6DH3GldaSdmwOw8JVxnmm kaHxGOkxANmhMaRs/YcfQZ6Fs3zWxcJZXrA2lRrKe3DdNOUxZpBID53Oh+O2 kamr11PdX/OL1gSTaeyjfV7xO2eQ0r64elMrekSbhIZM/7GbTDUo2YHcU0Fw pCcUOi/JnWFY007n78rjuJa4x2oGkrHtPA4PnA7PBs3QoV5t9Gv4Pia2b4qY UyGmFlwMTUb4wst6awl1iQq2Dh8zzcTl5bka3p4zaLhDv4sSGy0ZD4wDGXid Jv7/knsBNpO3kQB5Qmo7Q6WWSny6AymXkpBPDSXFzjs0A9dyh/vp8Ti65oi8 t3BVy5lM98Vp2enxSzeRvWWDmYYVJTQi7WjkXSSKDZ7xpxD5d4B1UcCC0q1f ZEpUBnEaD/aFOHD+0A2kzdiFFd1H4dRIM42N1gzw0K/RKMhz3VI1cPBPcNzJ MpF4eS7EVs8ZLmwb/cNlFMjzQPjhndZi3CJwfi4F7SnjrQCO4nUJHtMElHEg DKmHwo2cw9rPaPCI3bF4ezJytQzo+okwdoeqUKM6PzKxAPsCs5GzZh2Sdoda LdveCEshSott/iEpyNkZipzT4c4mFksXv0vUCU9wwG/vA2RuisL1JQdxJ+q8 GXTFHpMt444hJyvPZW/X6B+m4dZ9Pp+Ygi88vtUPvqBr4yZp7M3PcfGrfFOP xa/yKZPmUv95DaLUf5c2mj3r0xFyKBcZKVmFkkIV5/i9Vy7fw97gLNy+ob5X 1VNNgjy4OxenA28iMyXTqDaU24hKYtGsS9gRdB23c7OVU50kkOm/hGD9ovO4 ePA6rk7bjtu7A9n5VjFYNfCAFoCdjZki4og07mxMjFkkRIYmoK/HYL1dUlyZ MFMr8m5cplt43fcfVzlwy1A9FMtZ+bhxkBUVLKhkvlMxsqIakErTjbYdY31g SVPjVC3RmrPvwH1cX3cKKT57cOtMDPp264rWlSuis/Y38q0uyE+RhYWlenO3 BVUUsX/+HUB753y9A/BzXSNTnupzDw9uJKMYvOR8I14WOsPvn/PSzU1VLHyz 56VxbY7nCqSv8ZO/K4fL1x04etqBxAPp6FCjLrq/Wh2eterDq21zbF84yyjG H3VBQf8XrBRzmOLFYyqtzAwa9hOOLFzKTKg0RvWahEYvvIjf1hbg48ovITok WLljwMJfzksVf1XTp8Q81bPxVFxSKaeLKCzJ1BsMxvY2w9g4xO6L2WhdqzG+ aNIeI5s0Rv8m1dGvcZV/S6YT92jHDh3wKl7U6iFOzjhrTMtPHDfBubHNaKdq 8uwbGNXnO3z95qv4pk4lZS++5CEPvsSz5uwadUYsZ/SM8vgZtyKcXsZn5h9o olU779drgt6NGmPwO7WxffmfRgVf3sWoxItSYTIJ8eKL2AcCgmnm25xvrvwy 2rxSB33bfQCvd1pibMtaJlGFGtKhPPulueIaJ2qddzCOD/vDXCrq26MnmtSu hU8b9MTG9l88zogRIBTnWZu64ZyvZPb5mH4LbSgSf/Uqvo4PGrTBl60aoW+H Vhj1SRvELT+nOa9AJKzewx9ZI3JZWjwTtL7oSifPZVV0LpWCsngITK73A/LP xRDJY5bc14vOuQ1H405cTHmpj/zBXgqS3bgfI4y5bn+wnqqxrPvfGD3sW7Rr XBs/DvsaUaeMRqQLlxw4uO02EmZpWAJikH0yhmbchbStiV4xuMGvLTPNVfti suc6nBszi9l9aY0H1zA70Bjyb1qxcWW5n1TQwlNbQhryAGtrFsyykrKF2CAi y+rvNyDv/B0z4l/Wcvj9wQ6c2ZiGqB+2IMfvaKEncim0vHDK5ErvSnlNiHZ+ o9EupPouycSOKKMR2tf7BFY3G2GataqE1Vj+tMk+qsB+HvgrJn0/UecBNdeL syDOHH9gKPTio7i8ek+hjaXi74WHo2WVHNsMz1W4ttK5Z9h3rwNROQ5aBxzY cBIiFq5UWil58vjQRMQuPo8dfrpZOrvcZNrLX+c1hTyw7Q4SZhsKKdp+aZ2Z B34LNaokqjA1j+mc39BquElNj8GnkZSbZ1rdkEEj8EPv/qRotF1DZIEHxx/W CiYX01Id5FVKui+6lpihJUtBDpzelIboH7bixo6j2C/aUSKcNT+PuBbCVBkN F91q/d9HMMxjMlJ9jbqr/6DxGDPme1Ij/f7vPH7C9a1+VaTYVn25Dvcz8goZ Ct9CzJXH/YF8pRCiKeBpTQFn9ziMpEUhxSBKlUZwolYwF0AhYNiQ0RjebyDW LPfFpG23TZNY7x2EE0P5dvCS2DRuB/Lj8lxGXrjjprgz2CWxbG0uYi7mSska 13iEl+TxRRmK5i0U5C2VMuPunlIP8nDf1PTE6F6r8XdEnvPokGQtjoxDXrRz o9K8ocuReShFugLjGo9+6o557UWrO3xDjOZh/+NKCQ9tRAk3tcVMUPwl0BMl fJ9z/f+8jI+bzMAP42dhypddzeFN9vRF1HdGbCAluRR6GfHL4uB4UGCuN1nD mk1U5M9soTBWQkEi9xIqEhcqdNE61Uhbs/p3+wytKlfHR60HYfwAT/Sv9zJi woKdO8iu4E8j4pvohWc58vNROPIc5mkC3BgdheIczcXzOPVC0TRxRzKP0SQU UOW8VcW78cn1zLg+73TEj590xKQOTeE7eIgp0t+1uHFFnjVBO03+/moj7ma4 PvuU26Vq1sJCGrcjIo27kzkW0lTZg2EoTxZK0vj/vWfMx/uNOuif/9uyNgZ2 bo5jB/OQ6XME9wJPmewRAcWn6SBkRSWY88LbftyDu3IzJ03Ec6NULQY//3Bk znJDJnf5fE8l3cdJFD1puyeFl5SROFJLCcXlg2e1ryIdSNkeh9zVgdgx2Rfz vziKjL+du5AWDNeq1yPX9E800chtsxgUqiI2d5y/MwpFdavSUfWKhvPahlEB zEWoG2zEMvLlZAe2rc7AzHmZiN4aYi5hJ4YmIXF1vO6CnmBjJOMkWnios5Cp it+czF8tgqTnwvBY4Fy4Mqct5abc/OtFtCeV1tcE4s8WIGP9Ga3e2atP1pBv FLONQZOD4ch3HnjL7ZHslsc6C32qUM6jxtRiKCodJEPDPzTtLLdHFXWUyMdr 2ZV/qEbh/nTc2XkG2Zv9zRMH132zGbfSjJ3jRDE3Q1JmOnlHuAjpbYhwVSTn znViEcHBVBLLlNLjpHyXNWoP3MX1ZcG4f+ys3upOHmOX137cSzTa9f/NxkM2 9oyEIYyDOuTE8wsVZKjCOCfjJ4USWsmgSYDlY3fjxlljWDSE5CwHTp5x4Oqu RNxaf0xfqKVex4UjViI3JIf93tWG6PHAwufzh3UK/+/ca/OUK0GqAMev/ViM KEDJ4vxR65AclMuUW6tLEzWV0pxCuP8tpM/Zj3z/46BpH9E3vnzWTPjN3Ygr axNQ8OCBqUrceMiJ8GCm2oD6xMORNlYCEjJVGBQtEM8ZugqX9+bgvua69NHR +q74+sgFB85rPiF9czSuL/XHnL4D0LpyJXxcpQpGejTEuaPBNBxuMLyzh0Sl SqUtFKliGd8qPLoYnp62aCSFp+nLzQUPnFmFa4ZiwLqQ5oDfpiC85/E2etZq jCH1m2D02w0wo283F+MmYyLSeMD6h6TxayPd6CH37rQ5Ul+Q9U7SN8ZaDzIw PhmCF22Ljau8jk6N2qHnW/UxuFkt9Gv2irUjzOlYXeOT0wlZbIoHZBUtNLPK J0ypBY88uTlqkte50Es48vs5PcJUdEtUaTSoUg1vN2iJ/7b/GvMaDsTm5X+a TOBG9bQ7iixwK7jSxs+xVdE2qBgqyM9mIDSkdrTi5POzL7Z/+QfuxDvP1RNp 1vbxx3HzRp7pc1QsCD0Wgk+7z8LyeZMxyXM5AvrPMJ0ut0KKBTwoO6sDBeGE SFXd9Fd4fmspWrpIwkvh554nkLTrOu6dOo+sDf7PmbTHYO2wQ7idXWAewWDJ uqm0+307NZKnYIDHGGRot6o632gzofUBf8K1y9xE9Zi3lvIaz8c83Vgnr16d D4t2/+SfsojT4vTFpFy9a3XfznykeAchP/CsOA7aVNm/eu3Uih+2xsFmLcvA 1ycRu6NumZB9vcPwe93BfA2YrJp6//iDtOlRQjRFb+EETwCIE1w1vmaccJfH uG+lVvWPlcYVLTcNCXPg0uZE5Kw9hmtr95pJ5r7Jp5GXbBwvQKti6/Y4cDHX Fe4Ez9XYL5sSVO6AxsSf9E338rj7nCs7eDxVsaOnwiqs7CA9VFkFtdpe0NKI oF23cG32QeT5h4m9cmbNssErALdijePV6LEu/UaeR+69uy5kRIamoY+Hl965 rHIHT/7Pye3hxg54tuTc6+UMIBUkmQe1avH0yQIkrbugZbJHkBd9wSzvF3+/ DdmnjVqYnoMycdV9i/cTZCZhsscQ5J5Rmz1pDg/Qz7qSqQrG3AV8bmPuFMBq S5LE2sglLTkP33kDV6buwq09waC1abHFMzw4GPNGrkVywE3cuX/PJE0cdrnh 9H3mHEpivOc6+FmUmNvzk/+MNG7TXRlp7uLXW6bc6OyEIC0NjNHkdnV1BNK8 9yFw8XI0qvISOmqp4OeVXsPqAX+Ixkk9ltCuSVJx+aIs33fTXURfd0hnZlzr 5fEzYhf7uTVe1SOcLXSrchKuzR8rDNWaXxlPAnGzt70cYrVMMVmT9LRRPvj0 9YboWaM2xrVug+FNayA6NEjV4aU+INUAGhedYDLHpf9CTP796DFcX9BQ2TE1 VPKwbuGGKphzbnQuhoI3UHODOtEaVqqK9m81Rc+6TTGiSW0MbP46ti6e5T4f LXxwDufU3vVJWOFzk18j7Zg8ZC0mtp2A9L3BSoN/VA6UnvgkJ6ifeziWdGQs cRfYmpqGQblIv65foFXNmujUoC3mtP4Afd6ursxeXY5WoC8unMlFRHQucm/n 89Rwr28cVo29jOyAM4VO7Raj4OsKIqKLEZZgFD/H7rEmNZzi9xQmYaXYzUHv 1BrgM28+Wr7VDr/VG4qzp45XlFxRCdr9iUrqzXJhpzTG3DJmD4gL3CeUl0Ow zARYeKAKaLyibOfGEHhAa6XmAYnLa/FdzPBciJQVfnKuy+02rcJGUTQ/qOjj HoAWzngkf7ZownlseLsIdRdeoK2p7uS8f1p+X2+42tWuv2GKzijBdvU/VJsq JXV8sYbo43HumYejr6VFsCpz7iKl9fNqI78c7zECeedinGdiORMY/sBKssNi jLLwiFyvNSuG+n0qRznJ12DYFM+/kPCXX1cJLj4+3mITqpNcbUfEY2djNyPi kaG9KW9doKWc1lAKUzZSVRKEtS0GfMa0d/369fqnckWPko9IVY/VZ6N0l8V8 aK+LVE6JMDx1qwO34oxTckZ5jEL2Nr/PGFZSS7L4QsenOgfOo4wqgfZQ+Fxr Fd3FxovSWYr7N13Fym3iPK9M/coG7/2IGDWDRs3VlJJRVRn87MON/k0b5aDR f2zajGpWjFrRY8/d0dQwFzdvy1NmQhOxsNGgbgqlplkPMXZ6ro14LxDL8dOc HE90WynG/0YRTk+g66YYtcpXk60N9BiDTHn8Mtd2irzEBe6rn3EdtsqX8eBd XaE01mH3sAzRcF8uztl56rU/QoYaVQZRy9W8FBsxgSvGiDnzXyuGX+thDowd m+l6BLH7fnyjDPTS0o6rZ+JNKrjaE9+5d366aCpUxxy78YX9FaOz20YSF3kR v3Rci6szt6O7RcxOQ7Udscp78xFXKoZfHGByu3Af/O9TM3E+wniyJg2RKzOR wl33Qw7xRYUyWwuxIcXk7NcK7aXfcSdtGaIquvAhPm/j5igGjijmEL+SsLhq iit8KdFiXCovzIf3dDG82EjTuJz2TwtLYijjxo2zLgUWYxRcthXcOCXBXBpF gvSA27Ztw5QpU/RP5AclOlp4ULluju7xYniUK9J9kTpIVBZMnJUqTOWLwV5q o+JSJbN9umh0XAGtTawqdOkSnUBBHqNSpUr/BF3JYvDxOkMnUIiTzVq0aKFb vAUdZ5yB7hEXNbcxoRyGhR7ULIgSfssGC0/shY6q+JUo7xNz3PQYvCfkfTwN ouqZ5sQtmsL5Zs3UyW2JIbjqn6t3NIqEciZa6yk1Ynga6uddMXPjaywhuGOl 6EPXFOKqwu+VYciJxRy5PKDkJffIeaLtzhgoKHATTmYScDkjzY0E6KgUo+vU XAnhIOu6cTh8KGXcDqW8ORTex2hdFHnVFT03pjrFMJzyivuSLDIQaMXLIoNq 7jHXkrJ0owCPK265JP4toeMs48JrOkhbw1jTPUaecLpLIyoo7ouQ14RKUgZT 1iJ1FdvruA6Fm7s1k1SlCyoSaCiFl3+LNIe67kfzshsl4JmBqtKOkL6AjNO6 f8QimoauI+B+qDgZnqpx/wwTg8g7xMsqhqauaLkfUGVt1rpVdQ77yeKxvIV7 zHbJGGGuqmDUIXlNYHbVxXJFsd95nLZzF6AxAWQuqXMH80wxfORrNiPkPrIU E5M7a7F9nJJqcs0cdeHHjtvnHbRWxSO6MepHXUZdRHBzNy36kCN+wjJilQeu qdAgfyb1AwcO6NmnQupuTjZ+yEG6Ox2ee4g3FYPcrxD8sGHDXAT/8j8eITfJ smyE7jyIh7yP70DczAyK0HCDslGA1/6vDLyUhbWqUFCfDZyK1s0KNDwUWA8P ZDpR3bR/61SwHOGj1uMKbAXfSOE9jNGVcan6WYZUQh9SSVMHxNdf8BGU1QXk zu80U6joJkY7TQQqhNaTYyllhawqTNfZOHvG1N6uIuYntLRSQF2s0LtyFmtR JfN9eUxxbpUQg9LGr1oCJExCIQQkp9IVqeEDDGRUPPOzoKnXmS87LZbKwycF iwiRclLEZQGE2EZS5tYynbFN6J/4RGfe0UPuVWwzJjZcOqMITVMbNDwcPFo8 no0yML3ABMT41tgGGRcQd0E27BtjIHvRIiABiaySW7IKkzU2q+oXo51Y+bBl epAfD6YGmkcK6YGb0D/BgF6RcUyotOQY+T4eVn5l3BHKx6XOuDPJAFxZwZ16 CqhTDGdoW178YoCsIm8XMidO1FWAHMsYTn6ujIXhqmToNwNNVcYSgUaYtMaS OkwOFA7GyWuFH1RSpBLJY3VfsbCJx3Tu2g1M5XVImZmZdimn3I1kni0uQAvR CnbVVriqMRbWqNJ541A1M/XkulhLAXJU8XjgbUB9nTFc/FLy4Q0FYJonFyog gIhPpS3x1w1bnCceyofGVrewXtxbwwZn4eP+/1FuLZXZugosWEkj4u69vxS8 wO7t7f1PcmOJ8Q119KJFc+4cPYvHUjdprsRXy8JfXrtwZL0VvCxmuioxca0m Xr6qwERrO4WrpH+adsoBkMVyYZJl81DQTcY0a8FjkzYaYuN6W0cd5Khw5TGB E0zuWpUFGmdYmqk6twhyuryZ/ZPi8WyvAbWugjmqB/W+K6/xLMNu1pEx6aCB qZ5aw1WHYL7LOFOcSUXiljEZKhvaXHWb95NRgNDbG7SgbJ0wdMMx4zhhM7zz QKfaHE3ZhhggifJRC8fczBEazzOQEArFOlUHNyHjsa44uXOYgamJgmOqBhxC ww2tmDZqhAMztSRMgnuqZdpGkl8cU1GJc6SBgpJkrtKqVZNGkj/i5S7NO2eA bM4kwRIx1bxAvWIEn1gDaksLL4RF065E7hkpCBTX9hhP4g1MrRQsqWCDqVA0 LSIHNA7BRGu1iT/hFlPxJuuNFQ+8o1BSmhPnfvzV4hmZce4K2ijC02MKqFWK F3WNLh2jo87CcNqZwGPAswqGF2dqUNc8y8yl8wnxcD0QUf+dUYnKPshC8YkW NLgXftZNPLQzwYeYsqxvuebudz7Gt+0VxlJOMepnmJzEmoCQjUJOzidCPMTj SYzAom7Y+st4955C8GXYNYo9NKdjJ+TK/8+Y+b7aUKkxhUcWGry7pN7G5T/E NGY9p+46TwDlxEj2dlT4ANWypDHqx1x0l/TXxnpfL/6Im7jn7geMZaQDBIKH CvLhvHpQ5Nc1TN445yabme8kYzpJiJZcgfAVM0jrZBh+Sm4deMxkNa0dFJES 6yCM+Sd8xKQlbFSs+qsyXP0ewyLk/o2SZtlkfi9bAPX3A//3/f9v7/Gv/wND +4MP\ \>"]] }, Open ]], Cell[CellGroupData[{ Cell[BoxData[{ RowBox[{ RowBox[{ RowBox[{"tc", "=", RowBox[{"Table", "[", RowBox[{ RowBox[{"{", RowBox[{ RowBox[{"x", "[", RowBox[{"[", "i", "]"}], "]"}], ",", RowBox[{"y", "[", RowBox[{"[", "i", "]"}], "]"}], ",", RowBox[{"z", "[", RowBox[{"[", "i", "]"}], "]"}]}], "}"}], ",", RowBox[{"{", RowBox[{"i", ",", "1", ",", "bc"}], "}"}]}], "]"}]}], ";"}], " ", RowBox[{"(*", " ", RowBox[{"core", " ", "clouds"}], " ", "*)"}]}], "\[IndentingNewLine]", RowBox[{ RowBox[{ RowBox[{"twc", "=", RowBox[{"Table", "[", RowBox[{ RowBox[{"{", RowBox[{ RowBox[{"wxc", "[", RowBox[{"[", "i", "]"}], "]"}], ",", RowBox[{"wyc", "[", RowBox[{"[", "i", "]"}], "]"}], ",", RowBox[{"wzc", "[", RowBox[{"[", "i", "]"}], "]"}]}], "}"}], ",", RowBox[{"{", RowBox[{"i", ",", "1", ",", "cw"}], "}"}]}], "]"}]}], ";"}], " ", RowBox[{"(*", " ", RowBox[{"Bond", " ", "c\[ODoubleDot]ouds", " ", "between", " ", "cores"}], " ", "*)"}]}], "\[IndentingNewLine]", RowBox[{ RowBox[{ RowBox[{"twh", "=", RowBox[{"Table", "[", RowBox[{ RowBox[{"{", RowBox[{ RowBox[{"wxh", "[", RowBox[{"[", "i", "]"}], "]"}], ",", RowBox[{"wyh", "[", RowBox[{"[", "i", "]"}], "]"}], ",", RowBox[{"wzh", "[", RowBox[{"[", "i", "]"}], "]"}]}], "}"}], ",", RowBox[{"{", RowBox[{"i", ",", "1", ",", "bh"}], "}"}]}], "]"}]}], ";"}], " ", RowBox[{"(*", " ", RowBox[{"H", "-", RowBox[{"bonding", " ", "clouds"}]}], " ", "*)"}], " "}], "\[IndentingNewLine]", RowBox[{ RowBox[{"tw", "=", RowBox[{"Join", "[", RowBox[{"tc", ",", "twc", ",", "twh", ",", "tpo", ",", "tpu", ",", RowBox[{"{", "tplo", "}"}], ",", RowBox[{"{", "tplu", "}"}]}], "]"}]}], ";"}], "\[IndentingNewLine]", RowBox[{ RowBox[{"bt", "=", RowBox[{"Length", "[", "tw", "]"}]}], "\[IndentingNewLine]", RowBox[{"(*", RowBox[{"MatrixForm", "[", "tw", "]"}], "*)"}]}], "\[IndentingNewLine]", RowBox[{ RowBox[{"(*", " ", RowBox[{"coordinates", " ", "of", " ", "clouds"}], " ", "*)"}]}]}], "Input", CellChangeTimes->{{3.568895397419882*^9, 3.5688955157148895`*^9}, { 3.568895549629349*^9, 3.5688955855718126`*^9}, {3.568895617317868*^9, 3.568895845234268*^9}, {3.5688960797194805`*^9, 3.5688961015127187`*^9}, { 3.568896219074525*^9, 3.5688962276233397`*^9}, {3.568896262910602*^9, 3.5688962903198504`*^9}, 3.5688964250728865`*^9, 3.568896456912543*^9, { 3.5688981540863237`*^9, 3.5688981869399815`*^9}, {3.5689021233572955`*^9, 3.5689021341525145`*^9}, {3.5689111169043026`*^9, 3.5689111218495116`*^9}, {3.568911235261711*^9, 3.568911242437723*^9}, 3.5689112948850155`*^9, {3.5689116510180407`*^9, 3.568911800419503*^9}, { 3.568911871820829*^9, 3.5689119012892804`*^9}, {3.5689119993042526`*^9, 3.5689120006770554`*^9}, {3.568912144306507*^9, 3.568912165085744*^9}, { 3.5689528310632005`*^9, 3.5689528569592457`*^9}, {3.5689534065794115`*^9, 3.5689534297298517`*^9}, {3.568954496214126*^9, 3.5689545054337425`*^9}, 3.5689569073699613`*^9, {3.56913308739126*^9, 3.5691332012870607`*^9}, { 3.569135511323518*^9, 3.5691355127119203`*^9}, {3.569136204167535*^9, 3.569136290747687*^9}, {3.5691598050571885`*^9, 3.569159843199256*^9}, { 3.5692215417755947`*^9, 3.569221597186892*^9}, {3.5692216819730406`*^9, 3.5692217090546885`*^9}, {3.5692217693019943`*^9, 3.5692218260704937`*^9}, {3.5692219780303607`*^9, 3.569221989433981*^9}, { 3.569222055468897*^9, 3.5692220728005276`*^9}, {3.5693401536421804`*^9, 3.5693401889450426`*^9}, 3.5693411655535583`*^9, {3.569341634303181*^9, 3.569341638733589*^9}, {3.5704549882757435`*^9, 3.5704550487414494`*^9}, { 3.570455928146194*^9, 3.5704559415310173`*^9}, {3.5708553973857827`*^9, 3.5708554057785974`*^9}, {3.5718402591869545`*^9, 3.5718402726497784`*^9}, 3.572328636723397*^9, {3.572328748419593*^9, 3.57232875246*^9}, { 3.5725921859362335`*^9, 3.5725921932682457`*^9}, {3.5725923978158054`*^9, 3.5725924023086133`*^9}, 3.5725926630786715`*^9, {3.5726167873570023`*^9, 3.57261679757502*^9}, 3.572620232450739*^9, {3.5726252144466896`*^9, 3.57262521482109*^9}, {3.572842310446463*^9, 3.5728423195412793`*^9}, 3.572851092419488*^9, {3.572851145927582*^9, 3.5728511735708303`*^9}, { 3.5728512529593697`*^9, 3.572851265595392*^9}, 3.5728513850916023`*^9}], Cell[BoxData["94"], "Output", CellChangeTimes->{3.57289039417525*^9}] }, Open ]], Cell[CellGroupData[{ Cell[BoxData[ RowBox[{ RowBox[{"(*", " ", RowBox[{"cloud", "-", RowBox[{"cloud", " ", "distances"}]}], " ", "*)"}], "\[IndentingNewLine]", RowBox[{ RowBox[{ RowBox[{"dw", "=", RowBox[{"Table", "[", RowBox[{ RowBox[{"Norm", "[", RowBox[{ RowBox[{"tw", "[", RowBox[{"[", "i", "]"}], "]"}], "-", RowBox[{"tw", "[", RowBox[{"[", "j", "]"}], "]"}]}], "]"}], ",", RowBox[{"{", RowBox[{"i", ",", "1", ",", "bt"}], "}"}], ",", RowBox[{"{", RowBox[{"j", ",", "1", ",", "bt"}], "}"}]}], "]"}]}], ";"}], "\[IndentingNewLine]", RowBox[{"(*", RowBox[{"MatrixForm", "[", "dw", "]"}], "*)"}], "\[IndentingNewLine]", RowBox[{"Length", "[", "dw", "]"}]}]}]], "Input", CellChangeTimes->{{3.5688982251756487`*^9, 3.5688986440675845`*^9}, { 3.5688986873108606`*^9, 3.56889871560931*^9}, {3.5688987970414534`*^9, 3.5688988526711507`*^9}, {3.568898887147211*^9, 3.568898888644814*^9}, { 3.5688989206248703`*^9, 3.568899041759083*^9}, {3.5688990876855636`*^9, 3.568899258349863*^9}, 3.568899300267137*^9, {3.568899351326027*^9, 3.5688993831032825`*^9}, {3.5688994370481772`*^9, 3.568899468217032*^9}, { 3.5688995813016305`*^9, 3.5688997165538683`*^9}, {3.5688998495129013`*^9, 3.568899932364647*^9}, {3.568899967667509*^9, 3.568900024529609*^9}, { 3.5689000794261055`*^9, 3.568900136257005*^9}, {3.5689001767858763`*^9, 3.56890020149632*^9}, {3.568902068726*^9, 3.568902074139209*^9}, 3.56890216040736*^9, 3.568902344113283*^9, {3.5689024237982235`*^9, 3.56890243907065*^9}, 3.5689025770684924`*^9, 3.568910195129884*^9, 3.568910620995032*^9, {3.568912393532545*^9, 3.5689124022841606`*^9}, { 3.5691332074958715`*^9, 3.5691332081666727`*^9}, {3.5691352237838125`*^9, 3.5691352313342257`*^9}, {3.5691489965881166`*^9, 3.5691490103317413`*^9}, {3.5691490440122004`*^9, 3.5691491351943607`*^9}, {3.569149201666077*^9, 3.5691492026956787`*^9}, { 3.5691494320784817`*^9, 3.5691494680989447`*^9}, {3.569152288984131*^9, 3.5691522953957424`*^9}, {3.5691595058486633`*^9, 3.569159537672719*^9}, 3.569237911685565*^9, 3.5693411655535583`*^9, 3.5693418217687106`*^9, { 3.5703410302061863`*^9, 3.570341063621445*^9}, {3.5720164790812473`*^9, 3.572016508424899*^9}, {3.57235540487335*^9, 3.572355408040156*^9}, { 3.572356807768214*^9, 3.5723568154122276`*^9}, {3.572621722359356*^9, 3.572621725962962*^9}}], Cell[BoxData["94"], "Output", CellChangeTimes->{3.5728903942220497`*^9}] }, Open ]], Cell[BoxData[ RowBox[{ RowBox[{"(*", " ", RowBox[{"nucleus", "-", RowBox[{"nucleus", " ", "distances"}]}], " ", "*)"}], "\[IndentingNewLine]", RowBox[{"(*", RowBox[{"MatrixForm", "[", "dc", "]"}], " ", "*)"}], " "}]], "Input", CellChangeTimes->{{3.5688982251756487`*^9, 3.5688986440675845`*^9}, { 3.5688986873108606`*^9, 3.56889871560931*^9}, {3.5688987970414534`*^9, 3.5688988526711507`*^9}, {3.568898887147211*^9, 3.568898888644814*^9}, { 3.5688989206248703`*^9, 3.568899041759083*^9}, {3.5688990876855636`*^9, 3.568899258349863*^9}, 3.568899300267137*^9, {3.568899351326027*^9, 3.5688993831032825`*^9}, {3.5688994370481772`*^9, 3.568899468217032*^9}, { 3.5688995813016305`*^9, 3.5688997165538683`*^9}, {3.5688998495129013`*^9, 3.568899932364647*^9}, {3.568899967667509*^9, 3.568900024529609*^9}, { 3.5689000794261055`*^9, 3.568900136257005*^9}, {3.5689001767858763`*^9, 3.56890020149632*^9}, {3.568902068726*^9, 3.568902074139209*^9}, 3.56890216040736*^9, 3.568902344113283*^9, {3.5689024237982235`*^9, 3.56890243907065*^9}, 3.5689025770684924`*^9, 3.568910195129884*^9, 3.568910620995032*^9, {3.568912393532545*^9, 3.5689124022841606`*^9}, { 3.5691332074958715`*^9, 3.5691332081666727`*^9}, {3.5691352237838125`*^9, 3.5691352313342257`*^9}, {3.5691489965881166`*^9, 3.5691490103317413`*^9}, {3.5691490440122004`*^9, 3.5691491273631463`*^9}, {3.5691523435842266`*^9, 3.56915234531583*^9}, { 3.5691524837816734`*^9, 3.569152599175076*^9}, {3.569159470889002*^9, 3.569159489874235*^9}, {3.569160442895509*^9, 3.5691604484335184`*^9}, 3.569237923385586*^9, 3.569341165569158*^9, 3.5693418217843103`*^9, { 3.570341048161818*^9, 3.570341058286236*^9}, {3.57034131095988*^9, 3.570341315156287*^9}, 3.5703415891395683`*^9, 3.570341976207448*^9}], Cell[CellGroupData[{ Cell[BoxData[{ RowBox[{ RowBox[{"tv1", "=", RowBox[{"Table", "[", RowBox[{ RowBox[{"t", "[", RowBox[{"[", "i", "]"}], "]"}], ",", RowBox[{"{", RowBox[{"i", ",", "1", ",", "bc"}], "}"}]}], "]"}]}], ";"}], "\[IndentingNewLine]", RowBox[{ RowBox[{"tv2", "=", RowBox[{"Table", "[", RowBox[{ RowBox[{"{", RowBox[{"0", ",", "0", ",", "0"}], "}"}], ",", RowBox[{"{", RowBox[{"i", ",", "1", ",", "cw"}], "}"}]}], "]"}]}], ";"}], "\[IndentingNewLine]", RowBox[{ RowBox[{"tv3", "=", " ", RowBox[{"Table", "[", RowBox[{ RowBox[{"t", "[", RowBox[{"[", "i", "]"}], "]"}], ",", RowBox[{"{", RowBox[{"i", ",", RowBox[{"bc", "+", "1"}], ",", "n"}], "}"}]}], "]"}]}], ";"}], "\[IndentingNewLine]", RowBox[{ RowBox[{ RowBox[{"tv4", " ", "=", RowBox[{"Table", "[", RowBox[{ RowBox[{"{", RowBox[{"0", ",", "0", ",", "0"}], "}"}], ",", RowBox[{"{", RowBox[{"i", ",", "1", ",", "nj"}], "}"}]}], "]"}]}], ";"}], " "}], "\[IndentingNewLine]", RowBox[{ RowBox[{ RowBox[{"tv5", " ", "=", RowBox[{"Table", "[", RowBox[{ RowBox[{"{", RowBox[{"0", ",", "0", ",", "0"}], "}"}], ",", RowBox[{"{", RowBox[{"i", ",", "1", ",", "nj"}], "}"}]}], "]"}]}], ";"}], " "}], "\[IndentingNewLine]", RowBox[{ RowBox[{ RowBox[{"tv6", " ", "=", RowBox[{"Table", "[", RowBox[{ RowBox[{"{", RowBox[{"0", ",", "0", ",", "0"}], "}"}], ",", RowBox[{"{", RowBox[{"i", ",", "1", ",", "1"}], "}"}]}], "]"}]}], ";"}], " "}], "\[IndentingNewLine]", RowBox[{ RowBox[{ RowBox[{"tv7", " ", "=", RowBox[{"Table", "[", RowBox[{ RowBox[{"{", RowBox[{"0", ",", "0", ",", "0"}], "}"}], ",", RowBox[{"{", RowBox[{"i", ",", "1", ",", "1"}], "}"}]}], "]"}]}], ";"}], " "}], "\[IndentingNewLine]", RowBox[{ RowBox[{"tv", " ", "=", " ", RowBox[{"Join", "[", RowBox[{ "tv1", ",", "tv2", ",", "tv3", ",", "tv4", ",", "tv5", ",", "tv6", ",", "tv7"}], "]"}]}], ";"}], "\[IndentingNewLine]", RowBox[{"MatrixForm", "[", "tv", "]"}], "\[IndentingNewLine]", RowBox[{"Length", "[", "tv", "]"}]}], "Input", CellChangeTimes->{{3.5688982251756487`*^9, 3.5688986440675845`*^9}, { 3.5688986873108606`*^9, 3.56889871560931*^9}, {3.5688987970414534`*^9, 3.5688988526711507`*^9}, {3.568898887147211*^9, 3.568898888644814*^9}, { 3.5688989206248703`*^9, 3.568899041759083*^9}, {3.5688990876855636`*^9, 3.568899258349863*^9}, 3.568899300267137*^9, {3.568899351326027*^9, 3.5688993831032825`*^9}, {3.5688994370481772`*^9, 3.568899468217032*^9}, { 3.5688995813016305`*^9, 3.5688997165538683`*^9}, {3.5688998495129013`*^9, 3.568899932364647*^9}, {3.568899967667509*^9, 3.568900024529609*^9}, { 3.5689000794261055`*^9, 3.568900136257005*^9}, {3.5689001767858763`*^9, 3.56890020149632*^9}, {3.568902068726*^9, 3.568902074139209*^9}, 3.56890216040736*^9, 3.568902344113283*^9, {3.5689024237982235`*^9, 3.56890243907065*^9}, 3.5689025770684924`*^9, 3.568910195129884*^9, 3.568910620995032*^9, {3.568912393532545*^9, 3.5689124022841606`*^9}, { 3.5691332074958715`*^9, 3.5691332081666727`*^9}, {3.5691352237838125`*^9, 3.5691352313342257`*^9}, {3.5691489965881166`*^9, 3.5691490103317413`*^9}, {3.5691490440122004`*^9, 3.5691491273631463`*^9}, {3.5691523435842266`*^9, 3.56915234531583*^9}, { 3.5691524837816734`*^9, 3.5691526041202846`*^9}, {3.5691595921324143`*^9, 3.5691596901941867`*^9}, {3.569159772406331*^9, 3.5691597832951508`*^9}, { 3.5691598700313025`*^9, 3.569159885147729*^9}, {3.569160485733184*^9, 3.569160486887586*^9}, {3.5691672792073207`*^9, 3.5691672793789206`*^9}, { 3.5691673418102303`*^9, 3.5691674875144863`*^9}, {3.569168259700243*^9, 3.569168260386644*^9}, {3.569168321257951*^9, 3.569168337466379*^9}, { 3.5691685152754917`*^9, 3.569168656096939*^9}, {3.5691687137702403`*^9, 3.569168772566744*^9}, {3.5691697249898825`*^9, 3.569169747063921*^9}, { 3.569169944981469*^9, 3.5691699696763124`*^9}, 3.569341165569158*^9, { 3.5693417833614435`*^9, 3.5693417874486504`*^9}, {3.5704552110753345`*^9, 3.5704552378605814`*^9}, {3.5704560776724567`*^9, 3.570456083070066*^9}, { 3.570855427306635*^9, 3.570855434529448*^9}, {3.57184030784344*^9, 3.5718403245666695`*^9}, {3.5723553440956435`*^9, 3.5723553601792717`*^9}, {3.5723567913257856`*^9, 3.572356801543803*^9}, { 3.5723587125159597`*^9, 3.572358735884801*^9}, {3.5726205042656164`*^9, 3.5726205078692226`*^9}, {3.5726209578956137`*^9, 3.5726209632776227`*^9}, {3.5726266468256054`*^9, 3.5726266628780336`*^9}, {3.57284236531176*^9, 3.57284238273699*^9}, { 3.572842728620798*^9, 3.572842734502008*^9}}], 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`"}]}, {"0", "0", "0"}, {"0", "0", "0"}, {"0", "0", "0"}, {"0", "0", "0"}, {"0", "0", "0"}, {"0", "0", "0"}, {"0", "0", "0"}, {"0", "0", "0"}, {"0", "0", "0"}, {"0", "0", "0"}, {"0", "0", "0"}, {"0", "0", "0"}, {"0", "0", "0"}, {"0", "0", "0"}, {"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.57289039423765*^9}], Cell[BoxData["94"], "Output", CellChangeTimes->{3.57289039425325*^9}] }, Open ]], Cell[CellGroupData[{ Cell[BoxData[{ RowBox[{"ow", "=", RowBox[{"Join", "[", RowBox[{ RowBox[{"Table", "[", RowBox[{ RowBox[{"-", "2.0"}], ",", RowBox[{"{", RowBox[{"i", ",", "1", ",", RowBox[{"bc", "+", "nb"}]}], "}"}]}], "]"}], ",", RowBox[{"Table", "[", RowBox[{ RowBox[{"-", "0.5"}], ",", RowBox[{"{", RowBox[{"i", ",", "1", ",", RowBox[{"2", "*", "nj"}]}], "}"}]}], "]"}], ",", RowBox[{"Table", "[", RowBox[{ RowBox[{"-", "2.0"}], ",", RowBox[{"{", RowBox[{"i", ",", "1", ",", "2"}], "}"}]}], "]"}]}], "]"}]}], "\[IndentingNewLine]", RowBox[{"cnv", "=", RowBox[{"Join", "[", RowBox[{ RowBox[{"Table", "[", RowBox[{ RowBox[{"cn", "[", RowBox[{"[", "i", "]"}], "]"}], ",", RowBox[{"{", RowBox[{"i", ",", "1", ",", "bc"}], "}"}]}], "]"}], ",", RowBox[{"Table", "[", RowBox[{"0.0", ",", RowBox[{"{", RowBox[{"i", ",", "1", ",", "cw"}], "}"}]}], "]"}], ",", RowBox[{"Table", "[", RowBox[{ RowBox[{"cn", "[", RowBox[{"[", "i", "]"}], "]"}], ",", RowBox[{"{", RowBox[{"i", ",", RowBox[{"bc", "+", "1"}], ",", "n"}], "}"}]}], "]"}], ",", RowBox[{"Table", "[", RowBox[{"0.0", ",", RowBox[{"{", RowBox[{"i", ",", "1", ",", RowBox[{ RowBox[{"2", "*", "nj"}], "+", "2"}]}], "}"}]}], "]"}]}], "]"}]}]}], "Input", CellChangeTimes->{{3.5688982251756487`*^9, 3.5688986440675845`*^9}, { 3.5688986873108606`*^9, 3.56889871560931*^9}, {3.5688987970414534`*^9, 3.5688988526711507`*^9}, {3.568898887147211*^9, 3.568898888644814*^9}, { 3.5688989206248703`*^9, 3.568899041759083*^9}, {3.5688990876855636`*^9, 3.568899258349863*^9}, 3.568899300267137*^9, {3.568899351326027*^9, 3.5688993831032825`*^9}, {3.5688994370481772`*^9, 3.568899468217032*^9}, { 3.5688995813016305`*^9, 3.5688997165538683`*^9}, {3.5688998495129013`*^9, 3.568899932364647*^9}, {3.568899967667509*^9, 3.568900024529609*^9}, { 3.5689000794261055`*^9, 3.568900136257005*^9}, {3.5689001767858763`*^9, 3.56890020149632*^9}, {3.568902068726*^9, 3.568902074139209*^9}, 3.56890216040736*^9, 3.568902344113283*^9, {3.5689024237982235`*^9, 3.56890243907065*^9}, 3.5689025770684924`*^9, 3.568910195129884*^9, 3.568910620995032*^9, {3.568912393532545*^9, 3.5689124022841606`*^9}, { 3.5691332074958715`*^9, 3.5691332081666727`*^9}, {3.5691352237838125`*^9, 3.5691352313342257`*^9}, {3.5691489965881166`*^9, 3.5691490103317413`*^9}, {3.5691490440122004`*^9, 3.5691491273631463`*^9}, {3.5691523435842266`*^9, 3.56915234531583*^9}, { 3.5691524837816734`*^9, 3.5691526041202846`*^9}, {3.5691595921324143`*^9, 3.5691596901941867`*^9}, {3.569159772406331*^9, 3.5691597832951508`*^9}, { 3.5691598700313025`*^9, 3.569159885147729*^9}, {3.569160485733184*^9, 3.569160486887586*^9}, {3.5691672792073207`*^9, 3.5691672793789206`*^9}, { 3.5691673418102303`*^9, 3.5691674875144863`*^9}, {3.569168259700243*^9, 3.569168260386644*^9}, {3.569168321257951*^9, 3.569168337466379*^9}, { 3.5691685152754917`*^9, 3.569168656096939*^9}, {3.5691687137702403`*^9, 3.569168772566744*^9}, {3.5691697249898825`*^9, 3.569169747063921*^9}, { 3.569169944981469*^9, 3.5691699655579047`*^9}, {3.56921753575448*^9, 3.569217541807291*^9}, {3.569217576283351*^9, 3.5692176436130695`*^9}, { 3.5692176921603546`*^9, 3.569217692768756*^9}, {3.5692177389136367`*^9, 3.569217740192839*^9}, {3.5692222042775583`*^9, 3.5692222070231633`*^9}, { 3.569230669979245*^9, 3.5692306709620466`*^9}, {3.5692308816872168`*^9, 3.5692309970650196`*^9}, {3.5692310297158766`*^9, 3.569231090602784*^9}, { 3.5692311251880445`*^9, 3.569231148868886*^9}, 3.56923793753481*^9, 3.569341165569158*^9, 3.5693418217375107`*^9, {3.5703412254249296`*^9, 3.5703412423509593`*^9}, {3.5704553045038986`*^9, 3.570455320681127*^9}, { 3.57045550485505*^9, 3.5704555063370533`*^9}, {3.5704556421508913`*^9, 3.5704556424784923`*^9}, 3.5704557137862177`*^9, {3.5704564711051474`*^9, 3.5704564908079824`*^9}, {3.570456521602436*^9, 3.5704565228348384`*^9}, { 3.5704569127419233`*^9, 3.5704569202767363`*^9}, 3.5704636205455036`*^9, 3.570596993178934*^9, {3.570855461377095*^9, 3.5708554743563175`*^9}, 3.570855611589759*^9, {3.571840408884818*^9, 3.571840415296429*^9}, { 3.571840465559717*^9, 3.571840473905732*^9}, {3.5720165322617407`*^9, 3.5720165635241957`*^9}, {3.5721934404423375`*^9, 3.57219344758715*^9}, 3.572193479551606*^9, {3.5721935303764954`*^9, 3.572193534214102*^9}, { 3.5726206642250977`*^9, 3.5726206651142993`*^9}, {3.572620782223705*^9, 3.572620782738506*^9}, {3.572620924963956*^9, 3.5726209465699935`*^9}, { 3.572842408289835*^9, 3.5728424357302833`*^9}, {3.5728424783807583`*^9, 3.57284247916076*^9}, 3.5728451195121975`*^9}], Cell[BoxData[ RowBox[{"{", RowBox[{ RowBox[{"-", "2.`"}], ",", RowBox[{"-", "2.`"}], ",", RowBox[{"-", "2.`"}], ",", RowBox[{"-", "2.`"}], ",", RowBox[{"-", "2.`"}], ",", RowBox[{"-", "2.`"}], ",", RowBox[{"-", "2.`"}], ",", RowBox[{"-", "2.`"}], ",", RowBox[{"-", "2.`"}], ",", RowBox[{"-", "2.`"}], ",", RowBox[{"-", "2.`"}], ",", RowBox[{"-", "2.`"}], ",", RowBox[{"-", "2.`"}], ",", RowBox[{"-", "2.`"}], ",", RowBox[{"-", "2.`"}], ",", RowBox[{"-", "2.`"}], ",", RowBox[{"-", "2.`"}], ",", RowBox[{"-", "2.`"}], ",", RowBox[{"-", "2.`"}], ",", RowBox[{"-", "2.`"}], ",", RowBox[{"-", "2.`"}], ",", RowBox[{"-", "2.`"}], ",", RowBox[{"-", "2.`"}], ",", RowBox[{"-", "2.`"}], ",", RowBox[{"-", "2.`"}], ",", RowBox[{"-", "2.`"}], ",", RowBox[{"-", "2.`"}], ",", RowBox[{"-", "2.`"}], ",", RowBox[{"-", "2.`"}], ",", RowBox[{"-", "2.`"}], ",", RowBox[{"-", "2.`"}], ",", RowBox[{"-", "2.`"}], ",", RowBox[{"-", "2.`"}], ",", RowBox[{"-", "2.`"}], ",", RowBox[{"-", "2.`"}], ",", RowBox[{"-", "2.`"}], ",", RowBox[{"-", "2.`"}], ",", RowBox[{"-", "2.`"}], ",", RowBox[{"-", "2.`"}], ",", RowBox[{"-", "2.`"}], ",", RowBox[{"-", "2.`"}], ",", RowBox[{"-", "2.`"}], ",", RowBox[{"-", "2.`"}], ",", RowBox[{"-", "2.`"}], ",", RowBox[{"-", "2.`"}], ",", RowBox[{"-", "2.`"}], ",", RowBox[{"-", "2.`"}], ",", RowBox[{"-", "2.`"}], ",", RowBox[{"-", "2.`"}], ",", RowBox[{"-", "2.`"}], ",", RowBox[{"-", "2.`"}], ",", RowBox[{"-", "2.`"}], ",", RowBox[{"-", "2.`"}], ",", RowBox[{"-", "2.`"}], ",", RowBox[{"-", "2.`"}], ",", RowBox[{"-", "2.`"}], ",", RowBox[{"-", "2.`"}], ",", RowBox[{"-", "2.`"}], ",", RowBox[{"-", "2.`"}], ",", RowBox[{"-", "2.`"}], ",", RowBox[{"-", "2.`"}], ",", RowBox[{"-", "2.`"}], ",", RowBox[{"-", "2.`"}], ",", RowBox[{"-", "2.`"}], ",", RowBox[{"-", "2.`"}], ",", RowBox[{"-", "2.`"}], ",", RowBox[{"-", "2.`"}], ",", RowBox[{"-", "2.`"}], ",", RowBox[{"-", "2.`"}], ",", RowBox[{"-", "2.`"}], ",", RowBox[{"-", "2.`"}], ",", RowBox[{"-", "2.`"}], ",", RowBox[{"-", "0.5`"}], ",", RowBox[{"-", "0.5`"}], ",", RowBox[{"-", "0.5`"}], ",", RowBox[{"-", "0.5`"}], ",", RowBox[{"-", "0.5`"}], ",", RowBox[{"-", "0.5`"}], ",", RowBox[{"-", "0.5`"}], ",", RowBox[{"-", "0.5`"}], ",", RowBox[{"-", "0.5`"}], ",", RowBox[{"-", "0.5`"}], ",", RowBox[{"-", "0.5`"}], ",", RowBox[{"-", "0.5`"}], ",", RowBox[{"-", "0.5`"}], ",", RowBox[{"-", "0.5`"}], ",", RowBox[{"-", "0.5`"}], ",", RowBox[{"-", "0.5`"}], ",", RowBox[{"-", "0.5`"}], ",", RowBox[{"-", "0.5`"}], ",", RowBox[{"-", "0.5`"}], ",", RowBox[{"-", "0.5`"}], ",", RowBox[{"-", "2.`"}], ",", RowBox[{"-", "2.`"}]}], "}"}]], "Output", CellChangeTimes->{3.57289039425325*^9}], Cell[BoxData[ RowBox[{"{", RowBox[{ "6.`", ",", "6.`", ",", "6.`", ",", "6.`", ",", "6.`", ",", "6.`", ",", "6.`", ",", "6.`", ",", "6.`", ",", "6.`", ",", "6.`", ",", "6.`", ",", "6.`", ",", "6.`", ",", "6.`", ",", "6.`", ",", "6.`", ",", "6.`", ",", "6.`", ",", "6.`", ",", "8.`", ",", "0.`", ",", "0.`", ",", "0.`", ",", "0.`", ",", "0.`", ",", "0.`", ",", "0.`", ",", "0.`", ",", "0.`", ",", "0.`", ",", "0.`", ",", "0.`", ",", "0.`", ",", "0.`", ",", "0.`", ",", "0.`", ",", "0.`", ",", "0.`", ",", "0.`", ",", "0.`", ",", "0.`", ",", "1.`", ",", "1.`", ",", "1.`", ",", "1.`", ",", "1.`", ",", "1.`", ",", "1.`", ",", "1.`", ",", "1.`", ",", "1.`", ",", "1.`", ",", "1.`", ",", "1.`", ",", "1.`", ",", "1.`", ",", "1.`", ",", "1.`", ",", "1.`", ",", "1.`", ",", "1.`", ",", "1.`", ",", "1.`", ",", "1.`", ",", "1.`", ",", "1.`", ",", "1.`", ",", "1.`", ",", "1.`", ",", "1.`", ",", "1.`", ",", "0.`", ",", "0.`", ",", "0.`", ",", "0.`", ",", "0.`", ",", "0.`", ",", "0.`", ",", "0.`", ",", "0.`", ",", "0.`", ",", "0.`", ",", "0.`", ",", "0.`", ",", "0.`", ",", "0.`", ",", "0.`", ",", "0.`", ",", "0.`", ",", "0.`", ",", "0.`", ",", "0.`", ",", "0.`"}], "}"}]], "Output", CellChangeTimes->{3.5728903942688503`*^9}] }, Open ]], Cell[CellGroupData[{ Cell[BoxData[ RowBox[{ RowBox[{"(*", " ", RowBox[{"nucleus", "-", RowBox[{"cloud", " ", "distances"}]}], " ", "*)"}], "\[IndentingNewLine]", RowBox[{ RowBox[{ RowBox[{"dcw", "=", RowBox[{"Table", "[", RowBox[{ RowBox[{ RowBox[{"sq", "=", RowBox[{"Norm", "[", RowBox[{ RowBox[{"tw", "[", RowBox[{"[", "i", "]"}], "]"}], "-", RowBox[{"tv", "[", RowBox[{"[", "j", "]"}], "]"}]}], "]"}]}], ";", RowBox[{"If", "[", RowBox[{ RowBox[{"(", RowBox[{ RowBox[{"sq", ">", " ", "0.1"}], " ", "&&", " ", RowBox[{"i", "\[NotEqual]", "j"}]}], ")"}], ",", RowBox[{"1", "/", "sq"}], ",", "0"}], "]"}]}], ",", RowBox[{"{", RowBox[{"i", ",", "1", ",", "bt"}], "}"}], ",", RowBox[{"{", RowBox[{"j", ",", "1", ",", "bt"}], "}"}]}], "]"}]}], ";"}], "\[IndentingNewLine]", RowBox[{"Length", "[", "dcw", "]"}], "\[IndentingNewLine]", RowBox[{"(*", RowBox[{"MatrixForm", "[", "dcw", "]"}], "*)"}], " "}]}]], "Input", CellChangeTimes->{{3.5688982251756487`*^9, 3.5688986440675845`*^9}, { 3.5688986873108606`*^9, 3.56889871560931*^9}, {3.5688987970414534`*^9, 3.5688988526711507`*^9}, {3.568898887147211*^9, 3.568898888644814*^9}, { 3.5688989206248703`*^9, 3.568899041759083*^9}, {3.5688990876855636`*^9, 3.568899258349863*^9}, 3.568899300267137*^9, {3.568899351326027*^9, 3.5688993831032825`*^9}, {3.5688994370481772`*^9, 3.568899468217032*^9}, { 3.5688995813016305`*^9, 3.5688997165538683`*^9}, {3.5688998495129013`*^9, 3.568899932364647*^9}, {3.568899967667509*^9, 3.568900024529609*^9}, { 3.5689000794261055`*^9, 3.568900136257005*^9}, {3.5689001767858763`*^9, 3.56890020149632*^9}, {3.568902068726*^9, 3.568902074139209*^9}, 3.56890216040736*^9, 3.568902344113283*^9, {3.5689024237982235`*^9, 3.56890243907065*^9}, 3.5689025770684924`*^9, 3.568910195129884*^9, 3.568910620995032*^9, {3.568912393532545*^9, 3.5689124022841606`*^9}, { 3.5691332074958715`*^9, 3.5691332081666727`*^9}, {3.5691352237838125`*^9, 3.5691352313342257`*^9}, {3.5691489965881166`*^9, 3.5691490103317413`*^9}, {3.5691490440122004`*^9, 3.5691491273631463`*^9}, {3.5691523435842266`*^9, 3.56915234531583*^9}, { 3.5691524837816734`*^9, 3.5691526041202846`*^9}, {3.5691595921324143`*^9, 3.5691596901941867`*^9}, {3.569159772406331*^9, 3.5691597832951508`*^9}, { 3.5691598700313025`*^9, 3.569159885147729*^9}, {3.569160485733184*^9, 3.569160486887586*^9}, {3.5691672792073207`*^9, 3.5691672793789206`*^9}, { 3.5691673418102303`*^9, 3.5691674875144863`*^9}, {3.569168259700243*^9, 3.569168260386644*^9}, {3.569168321257951*^9, 3.569168337466379*^9}, { 3.5691685152754917`*^9, 3.569168656096939*^9}, {3.5691687137702403`*^9, 3.569168772566744*^9}, {3.5691697249898825`*^9, 3.569169747063921*^9}, { 3.569169944981469*^9, 3.5691699655579047`*^9}, {3.56921753575448*^9, 3.569217541807291*^9}, {3.569217576283351*^9, 3.5692176436130695`*^9}, { 3.5692176921603546`*^9, 3.569217692768756*^9}, {3.5692177389136367`*^9, 3.569217740192839*^9}, {3.5692222042775583`*^9, 3.5692222070231633`*^9}, { 3.569230669979245*^9, 3.5692306709620466`*^9}, {3.5692308816872168`*^9, 3.5692309970650196`*^9}, {3.5692310297158766`*^9, 3.569231090602784*^9}, { 3.5692311251880445`*^9, 3.569231148868886*^9}, 3.56923793753481*^9, 3.569341165569158*^9, 3.5693418217375107`*^9, {3.5703412254249296`*^9, 3.5703412423509593`*^9}, {3.5704553045038986`*^9, 3.570455320681127*^9}, { 3.57045550485505*^9, 3.5704555063370533`*^9}, {3.5704556421508913`*^9, 3.5704556424784923`*^9}, 3.5704557137862177`*^9, {3.5704564711051474`*^9, 3.5704564908079824`*^9}, {3.570456521602436*^9, 3.5704565228348384`*^9}, { 3.5704569127419233`*^9, 3.5704569202767363`*^9}, 3.5704636205455036`*^9, 3.570596993178934*^9, {3.570855461377095*^9, 3.5708554743563175`*^9}, 3.570855611589759*^9, {3.571840408884818*^9, 3.571840415296429*^9}, { 3.571840465559717*^9, 3.571840473905732*^9}, {3.5720165322617407`*^9, 3.5720165635241957`*^9}, {3.5721934404423375`*^9, 3.57219344758715*^9}, 3.572193479551606*^9, 3.5721935303764954`*^9, {3.5721935661785583`*^9, 3.5721935879405966`*^9}, {3.5721936909943776`*^9, 3.572193697218788*^9}, { 3.5721937395728626`*^9, 3.57219374339487*^9}, {3.5721937963725624`*^9, 3.5721938223154078`*^9}, {3.572193859786674*^9, 3.572193861533877*^9}, 3.5723554650270557`*^9, {3.5723567325136824`*^9, 3.5723567701565485`*^9}, 3.572621740954589*^9}], Cell[BoxData["94"], "Output", CellChangeTimes->{3.57289039433125*^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["1770.358689172375`"], "Output", CellChangeTimes->{3.57289039434685*^9}] }, Open ]], Cell[CellGroupData[{ Cell[BoxData[ RowBox[{ RowBox[{"(*", " ", RowBox[{ "half", " ", "cloud", " ", "with", " ", "other", " ", "common", " ", RowBox[{"halfcloud", ":", " ", RowBox[{"subtract", " ", "WW"}]}]}], " ", "*)"}], "\[IndentingNewLine]", RowBox[{ RowBox[{ RowBox[{"For", " ", "[", RowBox[{ RowBox[{"i", "=", RowBox[{"nb", "+", "bc", "+", "1"}]}], ",", RowBox[{"i", "<", RowBox[{"nb", "+", "bc", "+", "nj", "+", "1"}]}], ",", RowBox[{"i", "++"}], ",", RowBox[{"Vee", "=", RowBox[{"Vee", "-", RowBox[{ RowBox[{"ow", "[", RowBox[{"[", "i", "]"}], "]"}], "*", RowBox[{ RowBox[{"ow", "[", RowBox[{"[", RowBox[{"i", "+", "nj"}], "]"}], "]"}], "/", RowBox[{"(", RowBox[{"rpo", "+", "rpi"}], ")"}]}]}]}]}]}], RowBox[{"(*", RowBox[{"dw", "[", RowBox[{"[", RowBox[{"i", ",", RowBox[{"i", "+", "nj"}]}], "]"}], "]"}], "*)"}], "]"}], ";"}], "\[IndentingNewLine]", "Vee", "\[IndentingNewLine]"}]}]], "Input", CellChangeTimes->{{3.571840548723463*^9, 3.571840579798718*^9}, { 3.5718477253093*^9, 3.5718477304573092`*^9}, {3.572620810756155*^9, 3.5726208298349886`*^9}, {3.5726208600522413`*^9, 3.5726208972739067`*^9}, { 3.57279778559276*^9, 3.57279781975682*^9}}], Cell[BoxData["1769.4658320295173`"], "Output", CellChangeTimes->{3.5728903943624496`*^9}] }, Open ]], Cell[CellGroupData[{ Cell[BoxData[{ RowBox[{ RowBox[{ RowBox[{"sc", "=", "0.372"}], ";"}], " ", 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.372"}], ";"}], " ", RowBox[{"(*", " ", RowBox[{"bonding", " ", "clouds"}], " ", "*)"}]}], "\[IndentingNewLine]", RowBox[{"For", "[", RowBox[{ RowBox[{"i", "=", "1"}], " ", ",", RowBox[{"i", "<", RowBox[{"nb", "+", "1"}]}], ",", RowBox[{"i", "++"}], ",", RowBox[{"Vee", "=", RowBox[{"Vee", "+", RowBox[{"3", "*", RowBox[{"sw", "/", RowBox[{"a", "[", RowBox[{"[", RowBox[{"i", ",", "3"}], "]"}], "]"}]}]}]}]}]}], "]"}], "\[IndentingNewLine]", RowBox[{"For", "[", RowBox[{ RowBox[{"i", "=", "1"}], " ", ",", RowBox[{"i", "<", "3"}], ",", RowBox[{"i", "++"}], ",", RowBox[{"Vee", "=", RowBox[{"Vee", "+", RowBox[{"3", "*", RowBox[{"sw", "/", "rlo"}]}]}]}]}], "]"}], "\[IndentingNewLine]", "Vee"}], "Input", CellChangeTimes->{{3.5689548890696163`*^9, 3.568955116299615*^9}, { 3.5689552553894596`*^9, 3.5689552575266633`*^9}, {3.5689552936875267`*^9, 3.5689553203323736`*^9}, {3.568955404229321*^9, 3.568955433245372*^9}, 3.5689554882822685`*^9, 3.5689562157115464`*^9, {3.568956283961666*^9, 3.5689562858180695`*^9}, {3.5689566111878405`*^9, 3.5689566291278725`*^9}, {3.5689566695319433`*^9, 3.5689567220104356`*^9}, {3.5690810958835616`*^9, 3.569081104525977*^9}, { 3.5691717160681796`*^9, 3.569171751714242*^9}, {3.5691717855663013`*^9, 3.5691719006789036`*^9}, 3.569234247377528*^9, {3.569235622381544*^9, 3.569235625142749*^9}, {3.5692356799612455`*^9, 3.569235740536152*^9}, { 3.57045575500149*^9, 3.5704557604770994`*^9}, {3.57046440981329*^9, 3.5704644333849316`*^9}, {3.5705963024877205`*^9, 3.5705963300061693`*^9}, {3.5706010463712544`*^9, 3.570601069225295*^9}, { 3.5706012097659416`*^9, 3.5706012109983435`*^9}, {3.570601290948484*^9, 3.570601291619285*^9}, {3.570601333099758*^9, 3.570601444951955*^9}, 3.5706014761208096`*^9, {3.570601526633698*^9, 3.570601615179454*^9}, { 3.5708576202336864`*^9, 3.5708576267544985`*^9}, {3.5708577990100007`*^9, 3.5708578016152053`*^9}, {3.5708580423548284`*^9, 3.570858044429632*^9}, { 3.570858075754487*^9, 3.5708581072821426`*^9}, {3.570858449889944*^9, 3.5708585756105647`*^9}, {3.572795632149378*^9, 3.5727956355657835`*^9}, { 3.5728516649872932`*^9, 3.5728517189321885`*^9}, {3.572851825152775*^9, 3.572851850284419*^9}, {3.5728520019946856`*^9, 3.572852210645052*^9}}], Cell[BoxData["1913.3721690969696`"], "Output", CellChangeTimes->{3.57289039437805*^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[{"-", "3609.116872379943`"}]], "Output", CellChangeTimes->{3.57289039439365*^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[{"-", "5154.00310016119`"}]], "Output", CellChangeTimes->{3.5728903944248505`*^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[{"-", "5222.086444203589`"}]], "Output", CellChangeTimes->{3.57289039444045*^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.926201840177`"], "Output", CellChangeTimes->{3.57289039445605*^9}] }, Open ]], Cell[CellGroupData[{ Cell[BoxData[{"Vee", "\[IndentingNewLine]", "Vnn", "\[IndentingNewLine]", \ "Vne", "\[IndentingNewLine]", RowBox[{ RowBox[{"Tpi", " ", "=", " ", RowBox[{"2.296", "*", "nj", "*", "0.5", "*", "1.125", "*", RowBox[{"(", RowBox[{ RowBox[{"1", "/", RowBox[{"rpo", "^", "2"}]}], "+", RowBox[{"1", "/", RowBox[{"rpi", "^", "2"}]}]}], ")"}]}]}], " ", RowBox[{"(*", " ", RowBox[{"pi", " ", "kin", " ", "e", " ", "added"}], " ", "*)"}]}], "\[IndentingNewLine]", RowBox[{ RowBox[{"Tlp", " ", "=", " ", RowBox[{"2", "*", "2", "*", "1.125", "*", RowBox[{"(", RowBox[{"1", "/", RowBox[{"rlo", "^", "2"}]}], ")"}]}]}], " ", RowBox[{"(*", " ", RowBox[{"lp", " ", "kin", " ", "e", " ", "added"}], " ", "*)"}]}], "\[IndentingNewLine]", RowBox[{"Vtot", "=", RowBox[{"Vne", "+", "Vee", "+", "Vnn"}]}], "\[IndentingNewLine]", RowBox[{"Ttot", " ", "=", RowBox[{"Ttot", "+", "Tpi", "+", "Tlp"}]}], "\[IndentingNewLine]", RowBox[{"Vir", " ", "=", RowBox[{ RowBox[{"-", "Vtot"}], "/", "Ttot"}]}], "\[IndentingNewLine]", RowBox[{"Etot", "=", RowBox[{"Ttot", "+", "Vtot"}]}]}], "Input", CellChangeTimes->{{3.5689074950860367`*^9, 3.5689075109980645`*^9}, { 3.568910298074465*^9, 3.5689103015064707`*^9}, {3.568910724064413*^9, 3.5689107693044925`*^9}, {3.568955368910859*^9, 3.568955378629676*^9}, { 3.568955601366867*^9, 3.568955616218093*^9}, {3.5704638504275074`*^9, 3.570463876370353*^9}, {3.570464305074706*^9, 3.5704643133895206`*^9}, { 3.570464352171189*^9, 3.570464353231991*^9}, {3.570712404698539*^9, 3.5707124150569572`*^9}, {3.570809962851386*^9, 3.5708101493809137`*^9}, { 3.5708102160710306`*^9, 3.570810245165082*^9}, {3.5708102767551374`*^9, 3.5708103693413*^9}, {3.570810404207361*^9, 3.5708104232081947`*^9}, { 3.5708104788690925`*^9, 3.5708104825818987`*^9}, {3.5708105169643593`*^9, 3.570810517884761*^9}, {3.570810561767638*^9, 3.5708105625476394`*^9}, { 3.5708106179589367`*^9, 3.570810645648985*^9}, {3.5708552812279787`*^9, 3.570855300572013*^9}, {3.5718406368324184`*^9, 3.5718406454592333`*^9}, 3.57184067742369*^9, {3.572851887958485*^9, 3.5728519643206196`*^9}, 3.572890306378296*^9}], Cell[BoxData["1913.3721690969696`"], "Output", CellChangeTimes->{3.57289039445605*^9}], Cell[BoxData["1586.926201840177`"], "Output", CellChangeTimes->{3.57289039447165*^9}], Cell[BoxData[ RowBox[{"-", "5222.086444203589`"}]], "Output", CellChangeTimes->{3.57289039447165*^9}], Cell[BoxData["13.17857142857143`"], "Output", CellChangeTimes->{3.57289039447165*^9}], Cell[BoxData["3.5555555555555554`"], "Output", CellChangeTimes->{3.57289039447165*^9}], Cell[BoxData[ RowBox[{"-", "1721.7880732664423`"}]], "Output", CellChangeTimes->{3.57289039447165*^9}], Cell[BoxData["860.8559577328867`"], "Output", CellChangeTimes->{3.57289039447165*^9}], Cell[BoxData["2.0000884675304675`"], "Output", CellChangeTimes->{3.5728903944872503`*^9}], Cell[BoxData[ RowBox[{"-", "860.9321155335556`"}]], "Output", CellChangeTimes->{3.5728903944872503`*^9}] }, Open ]] }, WindowSize->{1407, 889}, WindowMargins->{{171, Automatic}, {Automatic, 15}}, PrintingCopies->1, PrintingPageRange->{32000, 32000}, PrintingOptions->{"Magnification"->1., "PaperOrientation"->"Portrait", "PaperSize"->{595.2, 841.8}}, FrontEndVersion->"9.0 for Microsoft Windows (64-bit) (January 25, 2013)", StyleDefinitions->Notebook[{ Cell[ StyleData[StyleDefinitions -> "Default.nb"]]}, WindowSize -> {707, 817}, WindowMargins -> {{24, Automatic}, {Automatic, 30}}, Visible -> False, FrontEndVersion -> "9.0 for Microsoft Windows (64-bit) (January 25, 2013)", StyleDefinitions -> "PrivateStylesheetFormatting.nb"] ] (* End of Notebook Content *) (* Internal cache information *) (*CellTagsOutline CellTagsIndex->{} *) (*CellTagsIndex CellTagsIndex->{} *) (*NotebookFileOutline Notebook[{ Cell[557, 20, 1757, 31, 52, "Input"], Cell[CellGroupData[{ Cell[2339, 55, 282, 6, 52, "Input"], Cell[2624, 63, 5976, 101, 362, "Output"] }, Open ]], Cell[CellGroupData[{ Cell[8637, 169, 680, 14, 52, "Input"], Cell[9320, 185, 5504, 141, 791, "Output"] }, Open ]], Cell[CellGroupData[{ Cell[14861, 331, 609, 10, 31, "Input"], Cell[15473, 343, 1061, 15, 31, "Output"] }, Open ]], Cell[CellGroupData[{ Cell[16571, 363, 955, 14, 31, "Input"], Cell[17529, 379, 73, 1, 31, "Output"] }, Open ]], Cell[CellGroupData[{ Cell[17639, 385, 1560, 29, 31, "Input"], Cell[19202, 416, 1063, 15, 31, "Output"] }, Open ]], Cell[20280, 434, 1419, 23, 31, "Input"], Cell[21702, 459, 1592, 29, 31, "Input"], Cell[CellGroupData[{ Cell[23319, 492, 1234, 18, 31, "Input"], Cell[24556, 512, 3556, 105, 72, "Output"] }, Open ]], Cell[CellGroupData[{ Cell[28149, 622, 697, 14, 31, "Input"], Cell[28849, 638, 680, 11, 52, "Output"] }, Open ]], Cell[29544, 652, 908, 24, 31, "Input"], Cell[CellGroupData[{ Cell[30477, 680, 5735, 123, 52, "Input"], Cell[36215, 805, 875, 14, 52, "Output"], Cell[37093, 821, 864, 14, 52, "Output"] }, Open ]], Cell[CellGroupData[{ Cell[37994, 840, 519, 12, 31, "Input"], Cell[38516, 854, 1061, 15, 31, "Output"] }, Open ]], Cell[CellGroupData[{ Cell[39614, 874, 1401, 38, 31, "Input"], Cell[41018, 914, 744, 12, 52, "Output"] }, Open ]], Cell[CellGroupData[{ Cell[41799, 931, 827, 23, 92, "Input"], Cell[42629, 956, 73, 1, 31, "Output"], Cell[42705, 959, 71, 1, 31, "Output"] }, Open ]], Cell[CellGroupData[{ Cell[42813, 965, 284, 6, 52, "Input"], Cell[43100, 973, 84, 1, 31, "Output"] }, Open ]], Cell[43199, 977, 1824, 35, 72, "Input"], Cell[CellGroupData[{ Cell[45048, 1016, 4923, 122, 192, "Input"], Cell[49974, 1140, 11337, 195, 368, "Output"] }, Open ]], Cell[CellGroupData[{ Cell[61348, 1340, 2100, 42, 72, "Input"], Cell[63451, 1384, 64371, 888, 806, "Output"] }, Open ]], Cell[127837, 2275, 1331, 36, 72, "Input"], Cell[CellGroupData[{ Cell[129193, 2315, 4850, 86, 72, "Input"], Cell[134046, 2403, 17399, 246, 806, "Output"] }, Open ]], Cell[CellGroupData[{ Cell[151482, 2654, 2570, 53, 132, "Input"], Cell[154055, 2709, 71, 1, 31, "Output"] }, Open ]], Cell[CellGroupData[{ Cell[154163, 2715, 2598, 53, 92, "Input"], Cell[156764, 2770, 306, 6, 31, "Output"] }, Open ]], Cell[157085, 2779, 9726, 201, 232, "Input"], Cell[CellGroupData[{ Cell[166836, 2984, 1947, 43, 72, "Input"], Cell[168786, 3029, 238, 5, 31, "Output"], Cell[169027, 3036, 143, 3, 31, "Output"] }, Open ]], Cell[CellGroupData[{ Cell[169207, 3044, 570, 14, 52, "Input"], Cell[169780, 3060, 543, 11, 31, "Output"], Cell[170326, 3073, 142, 3, 31, "Output"] }, Open ]], Cell[CellGroupData[{ Cell[170505, 3081, 2767, 54, 72, "Input"], Cell[173275, 3137, 950, 17, 52, "Output"], Cell[174228, 3156, 145, 3, 31, "Output"] }, Open ]], Cell[CellGroupData[{ Cell[174410, 3164, 3698, 81, 112, "Input"], Cell[178111, 3247, 953, 15, 72, "Output"] }, Open ]], Cell[179079, 3265, 2072, 49, 112, "Input"], Cell[181154, 3316, 561, 12, 52, "Input"], Cell[181718, 3330, 2148, 49, 92, "Input"], Cell[183869, 3381, 2452, 56, 92, "Input"], Cell[186324, 3439, 1759, 41, 72, "Input"], Cell[CellGroupData[{ Cell[188108, 3484, 923, 20, 31, "Input"], Cell[189034, 3506, 87, 1, 31, "Output"] }, Open ]], Cell[CellGroupData[{ Cell[189158, 3512, 711, 18, 31, "Input"], Cell[189872, 3532, 87, 1, 31, "Output"] }, Open ]], Cell[CellGroupData[{ Cell[189996, 3538, 507, 10, 31, "Input"], Cell[190506, 3550, 87, 1, 31, "Output"] }, Open ]], Cell[CellGroupData[{ Cell[190630, 3556, 823, 23, 31, "Input"], Cell[191456, 3581, 90, 1, 31, "Output"] }, Open ]], Cell[CellGroupData[{ Cell[191583, 3587, 204, 4, 31, "Input"], Cell[191790, 3593, 86, 1, 31, "Output"] }, Open ]], Cell[191891, 3597, 1975, 34, 72, "Input"], Cell[CellGroupData[{ Cell[193891, 3635, 4534, 109, 212, "Input"], Cell[198428, 3746, 209, 5, 31, "Output"], Cell[198640, 3753, 4857, 171, 791, "Output"] }, Open ]], Cell[203512, 3927, 9209, 151, 192, "Input"], Cell[212724, 4080, 10303, 280, 392, "Input"], Cell[CellGroupData[{ Cell[223052, 4364, 19001, 580, 1692, "Input"], Cell[242056, 4946, 130, 3, 31, "Output"], Cell[242189, 4951, 1563, 38, 388, "Output"], Cell[243755, 4991, 215, 5, 31, "Output"], Cell[243973, 4998, 232, 6, 31, "Output"] }, Open ]], Cell[244220, 5007, 3073, 58, 92, "Input"], Cell[CellGroupData[{ Cell[247318, 5069, 939, 17, 72, "Input"], Cell[248260, 5088, 4593, 106, 152, "Output"], Cell[252856, 5196, 73, 1, 31, "Output"], Cell[252932, 5199, 73, 1, 31, "Output"] }, Open ]], Cell[253020, 5203, 10201, 233, 72, "Input"], Cell[263224, 5438, 6427, 103, 31, "Input"], Cell[269654, 5543, 10215, 234, 72, "Input"], Cell[279872, 5779, 5925, 93, 31, "Input"], Cell[285800, 5874, 10237, 167, 92, "Input"], Cell[CellGroupData[{ Cell[296062, 6045, 17592, 357, 272, "Input"], Cell[313657, 6404, 92619, 1618, 375, 25310, 513, "CachedBoxData", "BoxData", \ "Output"], Cell[406279, 8024, 39721, 667, 369, 18998, 325, "CachedBoxData", "BoxData", \ "Output"] }, Open ]], Cell[CellGroupData[{ Cell[446037, 8696, 4591, 99, 152, "Input"], Cell[450631, 8797, 70, 1, 31, "Output"] }, Open ]], Cell[CellGroupData[{ Cell[450738, 8803, 2499, 47, 92, "Input"], Cell[453240, 8852, 73, 1, 31, "Output"] }, Open ]], Cell[453328, 8856, 1841, 29, 52, "Input"], Cell[CellGroupData[{ Cell[455194, 8889, 4863, 112, 212, "Input"], Cell[460060, 9003, 6447, 184, 1436, "Output"], Cell[466510, 9189, 70, 1, 31, "Output"] }, Open ]], Cell[CellGroupData[{ Cell[466617, 9195, 4955, 95, 52, "Input"], Cell[471575, 9292, 3028, 97, 72, "Output"], Cell[474606, 9391, 1288, 19, 72, "Output"] }, Open ]], Cell[CellGroupData[{ Cell[475931, 9415, 4670, 80, 92, "Input"], Cell[480604, 9497, 70, 1, 31, "Output"] }, Open ]], Cell[480689, 9501, 1863, 27, 31, "Input"], Cell[CellGroupData[{ Cell[482577, 9532, 2963, 56, 112, "Input"], Cell[485543, 9590, 86, 1, 31, "Output"] }, Open ]], Cell[CellGroupData[{ Cell[485666, 9596, 1373, 36, 92, "Input"], Cell[487042, 9634, 90, 1, 31, "Output"] }, Open ]], Cell[CellGroupData[{ Cell[487169, 9640, 3019, 69, 132, "Input"], Cell[490191, 9711, 87, 1, 31, "Output"] }, Open ]], Cell[CellGroupData[{ Cell[490315, 9717, 499, 15, 52, "Input"], Cell[490817, 9734, 103, 2, 31, "Output"] }, Open ]], Cell[490935, 9739, 1381, 21, 31, "Input"], Cell[CellGroupData[{ Cell[492341, 9764, 1709, 32, 52, "Input"], Cell[494053, 9798, 105, 2, 31, "Output"] }, Open ]], Cell[CellGroupData[{ Cell[494195, 9805, 1415, 43, 72, "Input"], Cell[495613, 9850, 103, 2, 31, "Output"] }, Open ]], Cell[CellGroupData[{ Cell[495753, 9857, 2550, 50, 92, "Input"], Cell[498306, 9909, 86, 1, 31, "Output"] }, Open ]], Cell[CellGroupData[{ Cell[498429, 9915, 2257, 46, 192, "Input"], Cell[500689, 9963, 87, 1, 31, "Output"], Cell[500779, 9966, 86, 1, 31, "Output"], Cell[500868, 9969, 103, 2, 31, "Output"], Cell[500974, 9973, 86, 1, 31, "Output"], Cell[501063, 9976, 87, 1, 31, "Output"], Cell[501153, 9979, 104, 2, 31, "Output"], Cell[501260, 9983, 86, 1, 31, "Output"], Cell[501349, 9986, 90, 1, 31, "Output"], Cell[501442, 9989, 106, 2, 31, "Output"] }, Open ]] } ] *) (* End of internal cache information *)