(* 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[ 585602, 11316] NotebookOptionsPosition[ 577657, 11071] NotebookOutlinePosition[ 578369, 11095] CellTagsIndexPosition[ 578326, 11092] 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}], 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.}, ViewVertical->{0.057070534077638034`, -0.405659667829273, 1.5817389102647454`}]], "Output", CellChangeTimes->{ 3.572842834030183*^9, 3.5728447931128235`*^9, 3.572845061480095*^9, 3.5728457678961363`*^9, 3.5728459853449183`*^9, 3.5728461957112875`*^9, 3.5728465332334805`*^9, 3.5728469922798862`*^9, 3.5728472847648*^9, 3.572847362078536*^9, 3.5728494321241717`*^9, 3.572849694220232*^9, 3.572850389263853*^9, 3.572850494470438*^9, 3.5728506089434385`*^9, 3.5728506946967897`*^9, 3.5728510978482976`*^9, 3.5728511849120502`*^9, 3.5728512725686045`*^9, 3.572851600605981*^9, 3.5728517363886194`*^9, 3.5728518294583826`*^9, 3.572851971574632*^9, 3.572852013101905*^9, { 3.5728520460803633`*^9, 3.5728521580417595`*^9}, {3.5728521890702143`*^9, 3.57285221541866*^9}, 3.5728526423914104`*^9, 3.5728602408392105`*^9, 3.5728602755180717`*^9, 3.5728603162341433`*^9, 3.5728857060550156`*^9, 3.572886479613574*^9, 3.572886581980954*^9, 3.572886769992484*^9, 3.572886889005093*^9, 3.572886979438452*^9, 3.5728871238479056`*^9, 3.5728871722859907`*^9, 3.572887307460228*^9, 3.5728873757259483`*^9, 3.5728874089072065`*^9, 3.5728877341209774`*^9, 3.572887890027652*^9, 3.5728879643773823`*^9, 3.5728880699739676`*^9, 3.5800571786796684`*^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.572842834045783*^9, 3.5728447931284237`*^9, 3.572845061480095*^9, 3.572845767911736*^9, 3.5728459853449183`*^9, 3.5728461957268877`*^9, 3.57284653324908*^9, 3.5728469922954865`*^9, 3.5728472847804003`*^9, 3.572847362094136*^9, 3.572849432139772*^9, 3.572849694235832*^9, 3.5728503892794533`*^9, 3.5728504944860377`*^9, 3.5728506089590387`*^9, 3.57285069471239*^9, 3.5728510978638973`*^9, 3.5728511849120502`*^9, 3.5728512725842047`*^9, 3.5728516006215806`*^9, 3.572851736404219*^9, 3.572851829473983*^9, 3.572851971590232*^9, 3.5728520131331053`*^9, { 3.572852046095963*^9, 3.5728521580573597`*^9}, {3.5728521890858145`*^9, 3.5728522154342604`*^9}, 3.57285264240701*^9, 3.572860240870411*^9, 3.5728602755336714`*^9, 3.572860316249743*^9, 3.572885706070616*^9, 3.572886479629174*^9, 3.572886581996554*^9, 3.572886769992484*^9, 3.5728868890206933`*^9, 3.572886979454052*^9, 3.5728871238479056`*^9, 3.572887172317191*^9, 3.572887307475828*^9, 3.5728873757415485`*^9, 3.5728874089228067`*^9, 3.5728877341209774`*^9, 3.5728878900432515`*^9, 3.572887964392982*^9, 3.5728880699895678`*^9, 3.5800571786926694`*^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.5728428340613832`*^9, 3.572844793144024*^9, 3.572845061495695*^9, 3.5728457679273357`*^9, 3.572845985360518*^9, 3.5728461957268877`*^9, 3.57284653324908*^9, 3.5728469923110867`*^9, 3.5728472847960005`*^9, 3.572847362094136*^9, 3.572849432139772*^9, 3.5728496942514324`*^9, 3.572850389295053*^9, 3.5728504945016375`*^9, 3.572850608974639*^9, 3.5728506947435894`*^9, 3.5728510978794975`*^9, 3.5728511849276505`*^9, 3.5728512725998044`*^9, 3.5728516006371803`*^9, 3.572851736419819*^9, 3.5728518294895825`*^9, 3.572851971605832*^9, 3.5728520131487055`*^9, { 3.572852046111563*^9, 3.57285215807296*^9}, {3.572852189101414*^9, 3.5728522154498606`*^9}, 3.5728526424382105`*^9, 3.5728602408860106`*^9, 3.572860275564872*^9, 3.5728603162653427`*^9, 3.5728857060862155`*^9, 3.572886479629174*^9, 3.572886582012154*^9, 3.5728867700080843`*^9, 3.572886889036293*^9, 3.572886979469652*^9, 3.572887123863506*^9, 3.572887172332791*^9, 3.5728873074914284`*^9, 3.5728873757571483`*^9, 3.5728874089384065`*^9, 3.5728877341365776`*^9, 3.5728878900588517`*^9, 3.572887964392982*^9, 3.5728880700051675`*^9, 3.5800571787056704`*^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.572842834076983*^9, 3.572844793144024*^9, 3.5728450615112953`*^9, 3.5728457679273357`*^9, 3.5728459853761177`*^9, 3.5728461957424874`*^9, 3.5728465332646804`*^9, 3.572846992326687*^9, 3.5728472847960005`*^9, 3.572847362109736*^9, 3.5728494321553717`*^9, 3.5728496942514324`*^9, 3.572850389295053*^9, 3.5728504945172377`*^9, 3.572850608990239*^9, 3.5728506947591896`*^9, 3.5728510978794975`*^9, 3.5728511849432507`*^9, 3.572851272615404*^9, 3.5728516006527805`*^9, 3.5728517364510193`*^9, 3.5728518295051823`*^9, 3.5728519716214323`*^9, 3.5728520131487055`*^9, { 3.572852046127163*^9, 3.5728521580885596`*^9}, {3.572852189117014*^9, 3.5728522154654603`*^9}, 3.5728526424538107`*^9, 3.572860240901611*^9, 3.5728602755804715`*^9, 3.572860316296543*^9, 3.5728857061018157`*^9, 3.5728864796447744`*^9, 3.572886582027754*^9, 3.5728867700236845`*^9, 3.572886889051893*^9, 3.5728869794852524`*^9, 3.5728871238791056`*^9, 3.5728871723483906`*^9, 3.5728873074914284`*^9, 3.5728873757571483`*^9, 3.572887408954006*^9, 3.572887734152178*^9, 3.5728878900588517`*^9, 3.5728879644085817`*^9, 3.5728880700207677`*^9, 3.580057178716671*^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.5728428340925827`*^9, 3.572844793159624*^9, 3.5728450615112953`*^9, 3.572845767942936*^9, 3.5728459853761177`*^9, 3.5728461957580876`*^9, 3.57284653328028*^9, 3.572846992326687*^9, 3.5728472848116007`*^9, 3.5728473621253357`*^9, 3.572849432170972*^9, 3.5728496942670326`*^9, 3.572850389310653*^9, 3.5728504945172377`*^9, 3.572850608990239*^9, 3.57285069477479*^9, 3.5728510978950977`*^9, 3.5728511849588504`*^9, 3.572851272615404*^9, 3.5728516006683807`*^9, 3.5728517364666195`*^9, 3.5728518295207825`*^9, 3.5728519716370325`*^9, 3.572852013164305*^9, { 3.572852046127163*^9, 3.57285215810416*^9}, {3.572852189132614*^9, 3.5728522154810605`*^9}, 3.5728526424694104`*^9, 3.572860240932811*^9, 3.5728602756116714`*^9, 3.5728603163121433`*^9, 3.5728857061174154`*^9, 3.5728864796603746`*^9, 3.572886582027754*^9, 3.5728867700392847`*^9, 3.5728868890674934`*^9, 3.5728869794852524`*^9, 3.572887123894706*^9, 3.572887172363991*^9, 3.5728873075070286`*^9, 3.572887375772748*^9, 3.572887408954006*^9, 3.5728877341677775`*^9, 3.5728878900744514`*^9, 3.572887964424182*^9, 3.5728880700363674`*^9, 3.580057178730672*^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.572842834108183*^9, 3.5728447931752243`*^9, 3.5728450615268955`*^9, 3.572845767958536*^9, 3.572845985391718*^9, 3.5728461957736874`*^9, 3.5728465332958803`*^9, 3.5728469923422866`*^9, 3.5728472848272004`*^9, 3.572847362140936*^9, 3.572849432186572*^9, 3.5728496942826324`*^9, 3.572850389326253*^9, 3.572850494532838*^9, 3.572850609021439*^9, 3.5728506948059893`*^9, 3.572851097910698*^9, 3.5728511849744506`*^9, 3.5728512726310043`*^9, 3.572851600683981*^9, 3.572851736482219*^9, 3.5728518295363827`*^9, 3.5728519716526327`*^9, 3.572852013195505*^9, { 3.5728520461583633`*^9, 3.5728521581197596`*^9}, {3.5728521891638145`*^9, 3.5728522154966607`*^9}, 3.5728526425006104`*^9, 3.572860240948411*^9, 3.5728602756272717`*^9, 3.5728603163277435`*^9, 3.5728857061330156`*^9, 3.5728864796759744`*^9, 3.572886582043354*^9, 3.5728867700548844`*^9, 3.5728868890830936`*^9, 3.5728869795164523`*^9, 3.572887123910306*^9, 3.572887172395191*^9, 3.5728873075226283`*^9, 3.572887375788348*^9, 3.5728874089852066`*^9, 3.5728877341833773`*^9, 3.5728878900900517`*^9, 3.572887964439782*^9, 3.5728880700519676`*^9, 3.5800571787466726`*^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.572842834123783*^9, 3.572844793190824*^9, 3.5728450615424953`*^9, 3.5728457679741364`*^9, 3.572845985407318*^9, 3.5728461957736874`*^9, 3.5728465332958803`*^9, 3.5728469923578863`*^9, 3.5728472848428*^9, 3.572847362140936*^9, 3.5728494322021723`*^9, 3.572849694298232*^9, 3.572850389341853*^9, 3.572850494548438*^9, 3.572850609021439*^9, 3.5728506948215895`*^9, 3.5728510979262977`*^9, 3.5728511849900503`*^9, 3.5728512726466045`*^9, 3.572851600699581*^9, 3.572851736497819*^9, 3.572851829551983*^9, 3.5728519716682324`*^9, 3.5728520132111053`*^9, { 3.5728520461739635`*^9, 3.57285215813536*^9}, {3.5728521891794147`*^9, 3.5728522155278606`*^9}, 3.5728526425318108`*^9, 3.5728602409796104`*^9, 3.5728602756584716`*^9, 3.572860316358943*^9, 3.5728857061330156`*^9, 3.572886479691574*^9, 3.5728865820589542`*^9, 3.572886770070484*^9, 3.5728868890830936`*^9, 3.5728869795164523`*^9, 3.572887123925906*^9, 3.572887172410791*^9, 3.5728873075382285`*^9, 3.5728873758039484`*^9, 3.5728874089852066`*^9, 3.5728877341989775`*^9, 3.572887890105652*^9, 3.5728879644553823`*^9, 3.5728880700519676`*^9, 3.580057178758673*^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.5728428341393833`*^9, 3.5728447932064238`*^9, 3.572845061558095*^9, 3.5728457679741364`*^9, 3.5728459854229183`*^9, 3.5728461957892876`*^9, 3.5728465333114805`*^9, 3.5728469923734865`*^9, 3.5728472848584003`*^9, 3.572847362156536*^9, 3.572849432217772*^9, 3.5728496943138323`*^9, 3.5728503893574533`*^9, 3.5728504945640383`*^9, 3.572850609037039*^9, 3.5728506948371897`*^9, 3.5728510979418974`*^9, 3.5728511849900503`*^9, 3.5728512726622047`*^9, 3.572851600715181*^9, 3.572851736513419*^9, 3.572851829567583*^9, 3.572851971683832*^9, 3.5728520132267056`*^9, { 3.5728520461895633`*^9, 3.57285215815096*^9}, {3.5728521891950145`*^9, 3.572852215543461*^9}, 3.572852642547411*^9, 3.5728602409952106`*^9, 3.5728602756740713`*^9, 3.572860316374543*^9, 3.572885706148616*^9, 3.5728864797071743`*^9, 3.5728865820745544`*^9, 3.5728867700860844`*^9, 3.5728868890986934`*^9, 3.5728869795320525`*^9, 3.572887123941506*^9, 3.572887172426391*^9, 3.5728873075538282`*^9, 3.5728873758195486`*^9, 3.572887409000807*^9, 3.5728877342145777`*^9, 3.5728878901212516`*^9, 3.5728879644709826`*^9, 3.572888070067568*^9, 3.580057178774674*^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.5728428341393833`*^9, 3.5728447932064238`*^9, 3.572845061558095*^9, 3.5728457679741364`*^9, 3.5728459854229183`*^9, 3.5728461957892876`*^9, 3.5728465333114805`*^9, 3.5728469923734865`*^9, 3.5728472848584003`*^9, 3.572847362156536*^9, 3.572849432217772*^9, 3.5728496943138323`*^9, 3.5728503893574533`*^9, 3.5728504945640383`*^9, 3.572850609037039*^9, 3.5728506948371897`*^9, 3.5728510979418974`*^9, 3.5728511849900503`*^9, 3.5728512726622047`*^9, 3.572851600715181*^9, 3.572851736513419*^9, 3.572851829567583*^9, 3.572851971683832*^9, 3.5728520132267056`*^9, { 3.5728520461895633`*^9, 3.57285215815096*^9}, {3.5728521891950145`*^9, 3.572852215543461*^9}, 3.572852642547411*^9, 3.5728602409952106`*^9, 3.5728602756740713`*^9, 3.572860316374543*^9, 3.572885706148616*^9, 3.5728864797071743`*^9, 3.5728865820745544`*^9, 3.5728867700860844`*^9, 3.5728868890986934`*^9, 3.5728869795320525`*^9, 3.572887123941506*^9, 3.572887172426391*^9, 3.5728873075538282`*^9, 3.5728873758195486`*^9, 3.572887409000807*^9, 3.5728877342145777`*^9, 3.5728878901212516`*^9, 3.5728879644709826`*^9, 3.572888070067568*^9, 3.5800571787766743`*^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.5728428341549835`*^9, 3.572844793222024*^9, 3.572845061573695*^9, 3.572845767989736*^9, 3.572845985438518*^9, 3.572846195804888*^9, 3.5728465333270807`*^9, 3.5728469923890867`*^9, 3.5728472848740005`*^9, 3.5728473621721363`*^9, 3.5728494322333717`*^9, 3.5728496943294325`*^9, 3.5728503893730536`*^9, 3.572850494579638*^9, 3.572850609052639*^9, 3.5728506948683896`*^9, 3.5728510979418974`*^9, 3.5728511850056505`*^9, 3.572851272677805*^9, 3.5728516007307806`*^9, 3.572851736544619*^9, 3.572851829583183*^9, 3.5728519716994324`*^9, 3.5728520132423053`*^9, { 3.572852046205163*^9, 3.57285215816656*^9}, {3.572852189210614*^9, 3.572852215559061*^9}, 3.5728526425630107`*^9, 3.572860241010811*^9, 3.5728602757052717`*^9, 3.572860316405743*^9, 3.5728857061642156`*^9, 3.5728864797227745`*^9, 3.572886582090154*^9, 3.5728867701016846`*^9, 3.572886889114293*^9, 3.5728869795476522`*^9, 3.572887123957106*^9, 3.572887172441991*^9, 3.5728873075694284`*^9, 3.5728873758195486`*^9, 3.5728874090164065`*^9, 3.5728877342145777`*^9, 3.5728878901368513`*^9, 3.5728879644865823`*^9, 3.5728880700831676`*^9, 3.580057178788675*^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.5728428341705832`*^9, 3.572844793222024*^9, 3.572845061573695*^9, 3.5728457680053363`*^9, 3.572845985438518*^9, 3.572846195804888*^9, 3.5728465333270807`*^9, 3.572846992404687*^9, 3.5728472848740005`*^9, 3.5728473621877365`*^9, 3.572849432248972*^9, 3.5728496943294325`*^9, 3.5728503893730536`*^9, 3.5728504945952377`*^9, 3.572850609068239*^9, 3.57285069488399*^9, 3.5728510979574976`*^9, 3.5728511850212507`*^9, 3.572851272677805*^9, 3.572851600746381*^9, 3.5728517365602193`*^9, 3.5728518295987825`*^9, 3.5728519717150326`*^9, 3.5728520132579055`*^9, { 3.572852046220763*^9, 3.57285215818216*^9}, {3.5728521892262144`*^9, 3.572852215574661*^9}, 3.5728526425942106`*^9, 3.572860241042011*^9, 3.572860275720872*^9, 3.572860316421343*^9, 3.5728857061798153`*^9, 3.5728864797383747`*^9, 3.572886582105754*^9, 3.5728867701172843`*^9, 3.5728868891298933`*^9, 3.5728869795632524`*^9, 3.572887123957106*^9, 3.572887172441991*^9, 3.5728873075850286`*^9, 3.5728873758351483`*^9, 3.5728874090320063`*^9, 3.572887734230178*^9, 3.5728878901524515`*^9, 3.5728879645021825`*^9, 3.5728880700987673`*^9, 3.5800571788006754`*^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.572842834186183*^9, 3.572844793237624*^9, 3.5728450615892954`*^9, 3.572845768020936*^9, 3.572845985454118*^9, 3.5728461958204875`*^9, 3.5728465333426805`*^9, 3.572846992420287*^9, 3.5728472848896008`*^9, 3.5728473622033362`*^9, 3.572849432248972*^9, 3.5728496943450327`*^9, 3.5728503893886533`*^9, 3.5728504945952377`*^9, 3.572850609068239*^9, 3.5728506948995895`*^9, 3.572851097973098*^9, 3.572851185036851*^9, 3.5728512726934047`*^9, 3.572851600761981*^9, 3.5728517365758195`*^9, 3.5728518296143827`*^9, 3.5728519717306323`*^9, 3.572852013273505*^9, { 3.5728520462363634`*^9, 3.57285215819776*^9}, {3.5728521892418146`*^9, 3.5728522155902605`*^9}, 3.572852642609811*^9, 3.5728602410576105`*^9, 3.572860275736472*^9, 3.572860316436943*^9, 3.5728857061954155`*^9, 3.5728864797383747`*^9, 3.572886582121354*^9, 3.5728867701172843`*^9, 3.5728868891454935`*^9, 3.5728869795788527`*^9, 3.572887123972706*^9, 3.572887172457591*^9, 3.5728873076006284`*^9, 3.572887375850748*^9, 3.5728874090476065`*^9, 3.572887734245778*^9, 3.5728878901680517`*^9, 3.5728879645021825`*^9, 3.5728880701143675`*^9, 3.5800571788146763`*^9}], Cell[BoxData["30"], "Output", CellChangeTimes->{ 3.572842834186183*^9, 3.572844793237624*^9, 3.5728450615892954`*^9, 3.572845768020936*^9, 3.572845985454118*^9, 3.5728461958204875`*^9, 3.5728465333426805`*^9, 3.572846992420287*^9, 3.5728472848896008`*^9, 3.5728473622033362`*^9, 3.572849432248972*^9, 3.5728496943450327`*^9, 3.5728503893886533`*^9, 3.5728504945952377`*^9, 3.572850609068239*^9, 3.5728506948995895`*^9, 3.572851097973098*^9, 3.572851185036851*^9, 3.5728512726934047`*^9, 3.572851600761981*^9, 3.5728517365758195`*^9, 3.5728518296143827`*^9, 3.5728519717306323`*^9, 3.572852013273505*^9, { 3.5728520462363634`*^9, 3.57285215819776*^9}, {3.5728521892418146`*^9, 3.5728522155902605`*^9}, 3.572852642609811*^9, 3.5728602410576105`*^9, 3.572860275736472*^9, 3.572860316436943*^9, 3.5728857061954155`*^9, 3.5728864797383747`*^9, 3.572886582121354*^9, 3.5728867701172843`*^9, 3.5728868891454935`*^9, 3.5728869795788527`*^9, 3.572887123972706*^9, 3.572887172457591*^9, 3.5728873076006284`*^9, 3.572887375850748*^9, 3.5728874090476065`*^9, 3.572887734245778*^9, 3.5728878901680517`*^9, 3.5728879645021825`*^9, 3.5728880701143675`*^9, 3.5800571788156767`*^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.5728428342173834`*^9, 3.572844793253224*^9, 3.5728450616048956`*^9, 3.572845768020936*^9, 3.572845985469718*^9, 3.5728461958360877`*^9, 3.57284653335828*^9, 3.572846992435887*^9, 3.5728472849052005`*^9, 3.572847362218936*^9, 3.572849432264572*^9, 3.5728496943606324`*^9, 3.572850389404253*^9, 3.572850494610838*^9, 3.5728506090838394`*^9, 3.5728506949151897`*^9, 3.572851097988698*^9, 3.572851185052451*^9, 3.572851272709005*^9, 3.5728516007775807`*^9, 3.572851736591419*^9, 3.572851829645583*^9, 3.5728519717462325`*^9, 3.5728520133047056`*^9, { 3.572852046251963*^9, 3.57285215821336*^9}, {3.572852189273014*^9, 3.5728522156058607`*^9}, 3.572852642734611*^9, 3.5728602410732107`*^9, 3.572860275767672*^9, 3.5728603164525433`*^9, 3.5728857062110157`*^9, 3.5728864797539744`*^9, 3.5728865821369543`*^9, 3.5728867701328845`*^9, 3.5728868891610937`*^9, 3.5728869795944524`*^9, 3.572887123988306*^9, 3.5728871724731913`*^9, 3.572887307616228*^9, 3.5728873758663483`*^9, 3.5728874090632067`*^9, 3.5728877342613783`*^9, 3.5728878901680517`*^9, 3.572887964517782*^9, 3.5728880701299677`*^9, 3.5800571788266773`*^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.5728428342797832`*^9, 3.572844793300024*^9, 3.5728450616672955`*^9, 3.5728457680833364`*^9, 3.572845985532118*^9, 3.5728461958984876`*^9, 3.57284653342068*^9, 3.5728469924982867`*^9, 3.572847284967601*^9, 3.5728473622813363`*^9, 3.572849432326972*^9, 3.5728496944230323`*^9, 3.572850389466653*^9, 3.572850494673238*^9, 3.5728506091618395`*^9, 3.57285069497759*^9, 3.572851098051098*^9, 3.572851185099251*^9, 3.572851272818205*^9, 3.5728516008555813`*^9, 3.57285173671622*^9, 3.572851829707983*^9, 3.572851971808633*^9, 3.5728520133671055`*^9, { 3.5728520463143635`*^9, 3.5728521582757597`*^9}, {3.572852189335415*^9, 3.5728522156682606`*^9}, 3.572852642812611*^9, 3.5728602411512113`*^9, 3.572860275830072*^9, 3.5728603165305433`*^9, 3.572885706273416*^9, 3.5728864798163743`*^9, 3.572886582199354*^9, 3.572886770195285*^9, 3.5728868892234936`*^9, 3.5728869796568527`*^9, 3.572887124050706*^9, 3.572887172535591*^9, 3.572887307678629*^9, 3.572887375928748*^9, 3.5728874091256065`*^9, 3.572887734323778*^9, 3.5728878902304516`*^9, 3.572887964580182*^9, 3.572888070192368*^9, 3.58005717888768*^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.5728428343109837`*^9, 3.5728447933468246`*^9, 3.572845061698496*^9, 3.5728457681301365`*^9, 3.5728459855633183`*^9, 3.5728461959296875`*^9, 3.5728465334518805`*^9, 3.572846992545087*^9, 3.5728472850144005`*^9, 3.5728473623125362`*^9, 3.5728494323737726`*^9, 3.5728496944698324`*^9, 3.5728503894978533`*^9, 3.5728504947200384`*^9, 3.572850609193039*^9, 3.57285069502439*^9, 3.5728510980822983`*^9, 3.5728511851460505`*^9, 3.572851272849405*^9, 3.572851600902381*^9, 3.5728517367474194`*^9, 3.572851829754783*^9, 3.5728519718554325`*^9, 3.5728520134139056`*^9, { 3.5728520463611636`*^9, 3.5728521583225603`*^9}, {3.5728521893822145`*^9, 3.572852215715061*^9}, 3.5728526428594112`*^9, 3.5728602411980114`*^9, 3.572860275876872*^9, 3.572860316577344*^9, 3.572885706320216*^9, 3.5728864798631744`*^9, 3.5728865822305546`*^9, 3.5728867702420845`*^9, 3.5728868892702937`*^9, 3.572886979688052*^9, 3.5728871240975065`*^9, 3.5728871725823913`*^9, 3.572887307709829*^9, 3.5728873759755487`*^9, 3.572887409156807*^9, 3.572887734370578*^9, 3.572887890277252*^9, 3.5728879646269827`*^9, 3.572888070239168*^9, 3.5800571789336834`*^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.5728428343889837`*^9, 3.5728447933936243`*^9, 3.5728450617452955`*^9, 3.5728457681613364`*^9, 3.5728459856101184`*^9, 3.572846195976488*^9, 3.572846533498681*^9, 3.5728469925762873`*^9, 3.572847285061201*^9, 3.5728473623593364`*^9, 3.5728494324205723`*^9, 3.572849694516633*^9, 3.572850389544654*^9, 3.572850494766838*^9, 3.5728506092398396`*^9, 3.57285069507119*^9, 3.572851098129098*^9, 3.572851185192851*^9, 3.572851272896205*^9, 3.5728516009491816`*^9, 3.57285173679422*^9, 3.5728518298015833`*^9, 3.572851971902233*^9, 3.5728520134607058`*^9, { 3.5728520464079638`*^9, 3.57285215836936*^9}, {3.5728521894290147`*^9, 3.572852215761861*^9}, 3.572852642906211*^9, 3.572860241229211*^9, 3.572860275923672*^9, 3.5728603166085434`*^9, 3.572885706351416*^9, 3.572886479909975*^9, 3.5728865822773542`*^9, 3.572886770288885*^9, 3.5728868893014936`*^9, 3.572886979734853*^9, 3.572887124144306*^9, 3.572887172613591*^9, 3.572887307756629*^9, 3.5728873760067487`*^9, 3.5728874092036066`*^9, 3.572887734417378*^9, 3.572887890324052*^9, 3.5728879646737823`*^9, 3.572888070285968*^9, 3.5800571789806857`*^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.572842834404584*^9, 3.5728447934092245`*^9, 3.5728450617608957`*^9, 3.572845768176936*^9, 3.572845985625718*^9, 3.5728461959920883`*^9, 3.572846533514281*^9, 3.572846992591887*^9, 3.572847285076801*^9, 3.572847362374936*^9, 3.5728494324361725`*^9, 3.5728496945322328`*^9, 3.5728503895602536`*^9, 3.5728504947824383`*^9, 3.5728506092554393`*^9, 3.57285069508679*^9, 3.572851098144698*^9, 3.572851185192851*^9, 3.572851272911805*^9, 3.572851600980381*^9, 3.5728517368098197`*^9, 3.5728518298171835`*^9, 3.5728519719334326`*^9, 3.5728520134763055`*^9, { 3.572852046423564*^9, 3.57285215838496*^9}, {3.572852189444615*^9, 3.572852215777461*^9}, 3.572852642921811*^9, 3.5728602412604113`*^9, 3.572860275939272*^9, 3.572860316639744*^9, 3.572885706367016*^9, 3.572886479925575*^9, 3.5728865822929544`*^9, 3.572886770304485*^9, 3.572886889317094*^9, 3.5728869797504525`*^9, 3.5728871241599064`*^9, 3.5728871726291914`*^9, 3.5728873077722287`*^9, 3.5728873760223484`*^9, 3.572887409219207*^9, 3.572887734432978*^9, 3.572887890339652*^9, 3.5728879646893826`*^9, 3.572888070301568*^9, 3.580057178998687*^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.5728428344201837`*^9, 3.5728447934092245`*^9, 3.5728450617608957`*^9, 3.5728457681925364`*^9, 3.572845985625718*^9, 3.5728461959920883`*^9, 3.5728465335298805`*^9, 3.572846992607487*^9, 3.5728472850924006`*^9, 3.5728473623905363`*^9, 3.5728494324361725`*^9, 3.5728496945478325`*^9, 3.5728503895758533`*^9, 3.5728504947980385`*^9, 3.5728506092710395`*^9, 3.5728506951023903`*^9, 3.572851098144698*^9, 3.5728511852084513`*^9, 3.572851272911805*^9, 3.572851600995981*^9, 3.57285173682542*^9, 3.572851829832783*^9, 3.572851971949033*^9, 3.5728520134919057`*^9, { 3.5728520464391637`*^9, 3.5728521584005604`*^9}, {3.5728521894602146`*^9, 3.5728522157930613`*^9}, 3.5728526429374113`*^9, 3.5728602412604113`*^9, 3.572860275954872*^9, 3.572860316639744*^9, 3.572885706382616*^9, 3.572886479925575*^9, 3.5728865823085546`*^9, 3.572886770304485*^9, 3.572886889332694*^9, 3.5728869797660527`*^9, 3.5728871241599064`*^9, 3.5728871726447916`*^9, 3.5728873077878284`*^9, 3.5728873760379486`*^9, 3.572887409234807*^9, 3.572887734448578*^9, 3.5728878903552523`*^9, 3.5728879646893826`*^9, 3.572888070317168*^9, 3.5800571790116873`*^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.5728428344357834`*^9, 3.5728447934248247`*^9, 3.572845061776496*^9, 3.5728457682081366`*^9, 3.5728459856413183`*^9, 3.572846196007688*^9, 3.5728465335298805`*^9, 3.572846992623087*^9, 3.5728472851080008`*^9, 3.5728473624061365`*^9, 3.5728494324517727`*^9, 3.5728496945634327`*^9, 3.5728503895914536`*^9, 3.5728504948136387`*^9, 3.572850609286639*^9, 3.5728506951179905`*^9, 3.5728510981602983`*^9, 3.572851185224051*^9, 3.5728512729274054`*^9, 3.5728516010115814`*^9, 3.57285173685662*^9, 3.572851829848383*^9, 3.572851971964633*^9, 3.572852013507506*^9, { 3.5728520464547634`*^9, 3.5728521584317603`*^9}, {3.572852189475815*^9, 3.5728522158086615`*^9}, 3.5728526429530115`*^9, 3.5728602412916117`*^9, 3.5728602759860725`*^9, 3.5728603166553435`*^9, 3.5728857063982162`*^9, 3.5728864799411745`*^9, 3.572886582324155*^9, 3.5728867703200846`*^9, 3.5728868893482943`*^9, 3.5728869797816525`*^9, 3.5728871241755066`*^9, 3.572887172660392*^9, 3.5728873078034286`*^9, 3.572887376053549*^9, 3.572887409250407*^9, 3.572887734464178*^9, 3.572887890370852*^9, 3.5728879647049828`*^9, 3.572888070332768*^9, 3.5800571790286884`*^9}], Cell[BoxData[ RowBox[{"2.5431421108019188`", "\[PlusMinus]", "0.03163615846976897`"}]], "Output", CellChangeTimes->{ 3.5728428344357834`*^9, 3.5728447934248247`*^9, 3.572845061776496*^9, 3.5728457682081366`*^9, 3.5728459856413183`*^9, 3.572846196007688*^9, 3.5728465335298805`*^9, 3.572846992623087*^9, 3.5728472851080008`*^9, 3.5728473624061365`*^9, 3.5728494324517727`*^9, 3.5728496945634327`*^9, 3.5728503895914536`*^9, 3.5728504948136387`*^9, 3.572850609286639*^9, 3.5728506951179905`*^9, 3.5728510981602983`*^9, 3.572851185224051*^9, 3.5728512729274054`*^9, 3.5728516010115814`*^9, 3.57285173685662*^9, 3.572851829848383*^9, 3.572851971964633*^9, 3.572852013507506*^9, { 3.5728520464547634`*^9, 3.5728521584317603`*^9}, {3.572852189475815*^9, 3.5728522158086615`*^9}, 3.5728526429530115`*^9, 3.5728602412916117`*^9, 3.5728602759860725`*^9, 3.5728603166553435`*^9, 3.5728857063982162`*^9, 3.5728864799411745`*^9, 3.572886582324155*^9, 3.5728867703200846`*^9, 3.5728868893482943`*^9, 3.5728869797816525`*^9, 3.5728871241755066`*^9, 3.572887172660392*^9, 3.5728873078034286`*^9, 3.572887376053549*^9, 3.572887409250407*^9, 3.572887734464178*^9, 3.572887890370852*^9, 3.5728879647049828`*^9, 3.572888070332768*^9, 3.580057179030689*^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.5728428344513836`*^9, 3.5728447934404244`*^9, 3.572845061792096*^9, 3.5728457682237363`*^9, 3.5728459856569185`*^9, 3.572846196023288*^9, 3.5728465335454807`*^9, 3.572846992638687*^9, 3.5728472851080008`*^9, 3.5728473624217367`*^9, 3.5728494324673724`*^9, 3.5728496945634327`*^9, 3.5728503896070538`*^9, 3.5728504948292384`*^9, 3.5728506093022394`*^9, 3.57285069513359*^9, 3.572851098175898*^9, 3.5728511852396507`*^9, 3.572851272943005*^9, 3.572851601042781*^9, 3.57285173685662*^9, 3.572851829863983*^9, 3.5728519719802327`*^9, 3.5728520135231056`*^9, { 3.5728520464703636`*^9, 3.5728521584473605`*^9}, {3.572852189491415*^9, 3.572852215824261*^9}, 3.5728526429686117`*^9, 3.5728602413072114`*^9, 3.5728602760016727`*^9, 3.5728603166709437`*^9, 3.572885706413816*^9, 3.5728864799567747`*^9, 3.5728865823397546`*^9, 3.572886770335685*^9, 3.572886889363894*^9, 3.5728869797972527`*^9, 3.5728871241911063`*^9, 3.5728871726759915`*^9, 3.572887307819029*^9, 3.572887376069149*^9, 3.572887409266007*^9, 3.572887734464178*^9, 3.572887890370852*^9, 3.5728879647205825`*^9, 3.572888070348368*^9, 3.5800571790436897`*^9}], Cell[BoxData[ RowBox[{"2.825453749813209`", "\[PlusMinus]", "0.07826166491129986`"}]], "Output", CellChangeTimes->{ 3.5728428344513836`*^9, 3.5728447934404244`*^9, 3.572845061792096*^9, 3.5728457682237363`*^9, 3.5728459856569185`*^9, 3.572846196023288*^9, 3.5728465335454807`*^9, 3.572846992638687*^9, 3.5728472851080008`*^9, 3.5728473624217367`*^9, 3.5728494324673724`*^9, 3.5728496945634327`*^9, 3.5728503896070538`*^9, 3.5728504948292384`*^9, 3.5728506093022394`*^9, 3.57285069513359*^9, 3.572851098175898*^9, 3.5728511852396507`*^9, 3.572851272943005*^9, 3.572851601042781*^9, 3.57285173685662*^9, 3.572851829863983*^9, 3.5728519719802327`*^9, 3.5728520135231056`*^9, { 3.5728520464703636`*^9, 3.5728521584473605`*^9}, {3.572852189491415*^9, 3.572852215824261*^9}, 3.5728526429686117`*^9, 3.5728602413072114`*^9, 3.5728602760016727`*^9, 3.5728603166709437`*^9, 3.572885706413816*^9, 3.5728864799567747`*^9, 3.5728865823397546`*^9, 3.572886770335685*^9, 3.572886889363894*^9, 3.5728869797972527`*^9, 3.5728871241911063`*^9, 3.5728871726759915`*^9, 3.572887307819029*^9, 3.572887376069149*^9, 3.572887409266007*^9, 3.572887734464178*^9, 3.572887890370852*^9, 3.5728879647205825`*^9, 3.572888070348368*^9, 3.5800571790456896`*^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.572842834466984*^9, 3.572844793456024*^9, 3.572845061792096*^9, 3.5728457682393365`*^9, 3.5728459856725187`*^9, 3.572846196038888*^9, 3.572846533561081*^9, 3.5728469926542873`*^9, 3.572847285123601*^9, 3.572847362437337*^9, 3.572849432482972*^9, 3.572849694579033*^9, 3.5728503896226535`*^9, 3.572850494844838*^9, 3.5728506093178396`*^9, 3.57285069514919*^9, 3.572851098191498*^9, 3.5728511852396507`*^9, 3.5728512729586053`*^9, 3.572851601058381*^9, 3.57285173687222*^9, 3.5728518298795834`*^9, 3.5728519719958324`*^9, 3.572852013538706*^9, { 3.572852046485964*^9, 3.5728521584629602`*^9}, {3.5728521895070148`*^9, 3.572852215839861*^9}, 3.5728526429842114`*^9, 3.572860241322811*^9, 3.5728602760172725`*^9, 3.5728603166865435`*^9, 3.572885706429416*^9, 3.572886479972375*^9, 3.5728865823553543`*^9, 3.572886770351285*^9, 3.5728868893794937`*^9, 3.572886979812853*^9, 3.572887124206706*^9, 3.5728871726915913`*^9, 3.572887307834629*^9, 3.5728873760847487`*^9, 3.572887409281607*^9, 3.5728877344797783`*^9, 3.5728878903864517`*^9, 3.5728879647361827`*^9, 3.572888070348368*^9, 3.5800571790606904`*^9}], Cell[BoxData[ RowBox[{"2.055894359505152`", "\[PlusMinus]", "0.007777002172673031`"}]], "Output", CellChangeTimes->{ 3.572842834466984*^9, 3.572844793456024*^9, 3.572845061792096*^9, 3.5728457682393365`*^9, 3.5728459856725187`*^9, 3.572846196038888*^9, 3.572846533561081*^9, 3.5728469926542873`*^9, 3.572847285123601*^9, 3.572847362437337*^9, 3.572849432482972*^9, 3.572849694579033*^9, 3.5728503896226535`*^9, 3.572850494844838*^9, 3.5728506093178396`*^9, 3.57285069514919*^9, 3.572851098191498*^9, 3.5728511852396507`*^9, 3.5728512729586053`*^9, 3.572851601058381*^9, 3.57285173687222*^9, 3.5728518298795834`*^9, 3.5728519719958324`*^9, 3.572852013538706*^9, { 3.572852046485964*^9, 3.5728521584629602`*^9}, {3.5728521895070148`*^9, 3.572852215839861*^9}, 3.5728526429842114`*^9, 3.572860241322811*^9, 3.5728602760172725`*^9, 3.5728603166865435`*^9, 3.572885706429416*^9, 3.572886479972375*^9, 3.5728865823553543`*^9, 3.572886770351285*^9, 3.5728868893794937`*^9, 3.572886979812853*^9, 3.572887124206706*^9, 3.5728871726915913`*^9, 3.572887307834629*^9, 3.5728873760847487`*^9, 3.572887409281607*^9, 3.5728877344797783`*^9, 3.5728878903864517`*^9, 3.5728879647361827`*^9, 3.572888070348368*^9, 3.5800571790626907`*^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.5728428344825835`*^9, 3.5728447934716244`*^9, 3.572845061807696*^9, 3.5728457682393365`*^9, 3.5728459856725187`*^9, 3.572846196054488*^9, 3.572846533576681*^9, 3.5728469926542873`*^9, 3.5728472851392007`*^9, 3.572847362452937*^9, 3.5728494324985723`*^9, 3.572849694594633*^9, 3.5728503896382537`*^9, 3.5728504948604383`*^9, 3.57285060933344*^9, 3.57285069516479*^9, 3.572851098207098*^9, 3.572851185255251*^9, 3.572851272974205*^9, 3.5728516010739813`*^9, 3.5728517368878202`*^9, 3.572851829895183*^9, 3.572851972027033*^9, 3.572852013554306*^9, { 3.572852046501564*^9, 3.5728521584785604`*^9}, {3.572852189522615*^9, 3.572852215855461*^9}, 3.572852642999811*^9, 3.5728602413384113`*^9, 3.572860276032872*^9, 3.5728603167021437`*^9, 3.572885706429416*^9, 3.572886479987975*^9, 3.5728865823709545`*^9, 3.5728867703668847`*^9, 3.572886889395094*^9, 3.572886979812853*^9, 3.5728871242223063`*^9, 3.5728871727071915`*^9, 3.572887307834629*^9, 3.5728873761003485`*^9, 3.572887409297207*^9, 3.5728877344953785`*^9, 3.572887890402052*^9, 3.572887964751783*^9, 3.572888070363968*^9, 3.580057179077691*^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.5728428345137835`*^9, 3.5728447935028243`*^9, 3.572845061838896*^9, 3.5728457682861366`*^9, 3.5728459857193184`*^9, 3.572846196085688*^9, 3.5728465336078806`*^9, 3.572846992701087*^9, 3.5728472851704006`*^9, 3.5728473624841366`*^9, 3.5728494325297728`*^9, 3.5728496946258326`*^9, 3.5728503896694536`*^9, 3.5728504949072385`*^9, 3.5728506093646393`*^9, 3.5728506951959906`*^9, 3.5728510982382984`*^9, 3.5728511852864513`*^9, 3.5728512730054054`*^9, 3.572851601120782*^9, 3.57285173693462*^9, 3.572851829941983*^9, 3.5728519720582333`*^9, 3.572852013585506*^9, { 3.5728520465483637`*^9, 3.5728521585097604`*^9}, {3.572852189553815*^9, 3.5728522159022613`*^9}, 3.5728526430310116`*^9, 3.5728602413696117`*^9, 3.5728602760796723`*^9, 3.5728603167489443`*^9, 3.5728857064762163`*^9, 3.5728864800191746`*^9, 3.572886582402155*^9, 3.5728867703980846`*^9, 3.5728868894262943`*^9, 3.5728869798596525`*^9, 3.5728871242535067`*^9, 3.572887172738392*^9, 3.5728873078814287`*^9, 3.572887376131549*^9, 3.5728874093284073`*^9, 3.572887734542178*^9, 3.5728878904332523`*^9, 3.572887964782983*^9, 3.5728880704107685`*^9, 3.5800571791156936`*^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.5728428345293837`*^9, 3.5728447935028243`*^9, 3.572845061854496*^9, 3.5728457682861366`*^9, 3.5728459857193184`*^9, 3.572846196085688*^9, 3.5728465336078806`*^9, 3.572846992701087*^9, 3.572847285186001*^9, 3.572847362499737*^9, 3.5728494325453725`*^9, 3.572849694641433*^9, 3.572850389685054*^9, 3.572850494922838*^9, 3.5728506093802395`*^9, 3.5728506952115903`*^9, 3.5728510982382984`*^9, 3.5728511853020515`*^9, 3.5728512730054054`*^9, 3.5728516011363816`*^9, 3.57285173693462*^9, 3.572851829941983*^9, 3.572851972073833*^9, 3.5728520136011057`*^9, { 3.572852046563964*^9, 3.57285215852536*^9}, {3.572852189569415*^9, 3.5728522159022613`*^9}, 3.572852643046612*^9, 3.572860241385212*^9, 3.572860276095272*^9, 3.5728603167489443`*^9, 3.5728857064762163`*^9, 3.5728864800191746`*^9, 3.572886582417755*^9, 3.572886770413685*^9, 3.572886889441894*^9, 3.5728869798596525`*^9, 3.5728871242691064`*^9, 3.5728871727539916`*^9, 3.5728873078814287`*^9, 3.572887376147149*^9, 3.5728874093440075`*^9, 3.572887734542178*^9, 3.5728878904488525`*^9, 3.572887964798583*^9, 3.5728880704107685`*^9, 3.5800571791306944`*^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.572842834544984*^9, 3.5728447935184245`*^9, 3.572845061854496*^9, 3.572845768301737*^9, 3.5728459857349186`*^9, 3.572846196101288*^9, 3.572846533623481*^9, 3.572846992716687*^9, 3.572847285201601*^9, 3.572847362499737*^9, 3.5728494325453725`*^9, 3.572849694657033*^9, 3.5728503897006536`*^9, 3.5728504949384384`*^9, 3.5728506093958397`*^9, 3.5728506952115903`*^9, 3.572851098253898*^9, 3.5728511853176513`*^9, 3.572851273021005*^9, 3.5728516011519814`*^9, 3.57285173695022*^9, 3.5728518299575834`*^9, 3.572851972105033*^9, 3.572852013616706*^9, { 3.572852046579564*^9, 3.5728521585409603`*^9}, {3.572852189569415*^9, 3.572852215917861*^9}, 3.572852643046612*^9, 3.5728602414008117`*^9, 3.572860276095272*^9, 3.572860316764544*^9, 3.5728857064918165`*^9, 3.572886480034775*^9, 3.572886582417755*^9, 3.572886770413685*^9, 3.572886889441894*^9, 3.5728869798752527`*^9, 3.572887124284706*^9, 3.5728871727539916`*^9, 3.572887307897029*^9, 3.572887376147149*^9, 3.5728874093440075`*^9, 3.5728877345577784`*^9, 3.5728878904644523`*^9, 3.5728879648141828`*^9, 3.5728880704263687`*^9, 3.5800571791446953`*^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.572842834560584*^9, 3.5728447935184245`*^9, 3.572845061870096*^9, 3.572845768301737*^9, 3.5728459857349186`*^9, 3.572846196116888*^9, 3.572846533639081*^9, 3.5728469927322874`*^9, 3.572847285217201*^9, 3.572847362515337*^9, 3.5728494325609727`*^9, 3.572849694657033*^9, 3.5728503897006536`*^9, 3.5728504949540386`*^9, 3.57285060941144*^9, 3.5728506952271905`*^9, 3.5728510982694983`*^9, 3.572851185333251*^9, 3.572851273036605*^9, 3.572851601183182*^9, 3.5728517369658203`*^9, 3.5728518299731836`*^9, 3.572851972120633*^9, 3.572852013632306*^9, { 3.5728520465951643`*^9, 3.5728521585565605`*^9}, {3.5728521895850153`*^9, 3.572852215933461*^9}, 3.5728526430622115`*^9, 3.5728602414164114`*^9, 3.5728602761264725`*^9, 3.5728603167801437`*^9, 3.5728857065074167`*^9, 3.572886480050375*^9, 3.572886582433355*^9, 3.572886770429285*^9, 3.572886889457494*^9, 3.572886979890853*^9, 3.572887124284706*^9, 3.5728871727695913`*^9, 3.572887307912629*^9, 3.572887376162749*^9, 3.572887409359607*^9, 3.5728877345733786`*^9, 3.572887890480052*^9, 3.5728879648297825`*^9, 3.5728880704419684`*^9, 3.580057179159696*^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.5728428345761843`*^9, 3.5728447935340247`*^9, 3.572845061885696*^9, 3.572845768317337*^9, 3.572845985750519*^9, 3.572846196116888*^9, 3.572846533639081*^9, 3.5728469927322874`*^9, 3.572847285217201*^9, 3.5728473625309367`*^9, 3.5728494325765724`*^9, 3.572849694672633*^9, 3.5728503897162538`*^9, 3.572850494969639*^9, 3.57285060941144*^9, 3.57285069524279*^9, 3.5728510982694983`*^9, 3.572851185333251*^9, 3.572851273052205*^9, 3.5728516011987815`*^9, 3.5728517369658203`*^9, 3.572851829988784*^9, 3.5728519721362333`*^9, 3.5728520136479063`*^9, { 3.5728520465951643`*^9, 3.5728521585721607`*^9}, {3.5728521896006155`*^9, 3.5728522159490614`*^9}, 3.5728526430778117`*^9, 3.5728602414320116`*^9, 3.5728602761420727`*^9, 3.572860316795744*^9, 3.5728857065074167`*^9, 3.572886480065975*^9, 3.5728865824489546`*^9, 3.5728867704448853`*^9, 3.572886889473094*^9, 3.572886979890853*^9, 3.5728871243003063`*^9, 3.5728871727851915`*^9, 3.572887307912629*^9, 3.5728873761783485`*^9, 3.572887409375207*^9, 3.5728877345889783`*^9, 3.572887890480052*^9, 3.5728879648297825`*^9, 3.5728880704419684`*^9, 3.5800571791736965`*^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.572842834591784*^9, 3.5728447935496244`*^9, 3.5728450619012957`*^9, 3.572845768332937*^9, 3.5728459857661185`*^9, 3.5728461961324883`*^9, 3.5728465336546807`*^9, 3.572846992747887*^9, 3.572847285232801*^9, 3.5728473625465364`*^9, 3.5728494325921726`*^9, 3.572849694688233*^9, 3.5728503897318535`*^9, 3.572850494985239*^9, 3.5728506094426394`*^9, 3.5728506952583904`*^9, 3.5728510983006983`*^9, 3.572851185348851*^9, 3.5728512730678053`*^9, 3.5728516012143817`*^9, 3.57285173699702*^9, 3.5728518300199833`*^9, 3.5728519721674333`*^9, 3.5728520136791058`*^9, { 3.5728520466263638`*^9, 3.572852158587761*^9}, {3.572852189616215*^9, 3.5728522159646616`*^9}, 3.5728526430934114`*^9, 3.572860241447612*^9, 3.572860276157673*^9, 3.572860316811344*^9, 3.5728857065230165`*^9, 3.572886480081575*^9, 3.572886582464555*^9, 3.572886770460485*^9, 3.572886889488694*^9, 3.572886979922053*^9, 3.5728871243159065`*^9, 3.5728871728007917`*^9, 3.5728873079438295`*^9, 3.5728873761939487`*^9, 3.572887409390807*^9, 3.5728877346045785`*^9, 3.572887890495652*^9, 3.572887964860983*^9, 3.5728880704731684`*^9, 3.5800571791946983`*^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.572842834591784*^9, 3.5728447935496244`*^9, 3.5728450619012957`*^9, 3.572845768332937*^9, 3.5728459857661185`*^9, 3.5728461961324883`*^9, 3.5728465336546807`*^9, 3.572846992747887*^9, 3.572847285232801*^9, 3.5728473625465364`*^9, 3.5728494325921726`*^9, 3.572849694688233*^9, 3.5728503897318535`*^9, 3.572850494985239*^9, 3.5728506094426394`*^9, 3.5728506952583904`*^9, 3.5728510983006983`*^9, 3.572851185348851*^9, 3.5728512730678053`*^9, 3.5728516012143817`*^9, 3.57285173699702*^9, 3.5728518300199833`*^9, 3.5728519721674333`*^9, 3.5728520136791058`*^9, { 3.5728520466263638`*^9, 3.572852158587761*^9}, {3.572852189616215*^9, 3.5728522159646616`*^9}, 3.5728526430934114`*^9, 3.572860241447612*^9, 3.572860276157673*^9, 3.572860316811344*^9, 3.5728857065230165`*^9, 3.572886480081575*^9, 3.572886582464555*^9, 3.572886770460485*^9, 3.572886889488694*^9, 3.572886979922053*^9, 3.5728871243159065`*^9, 3.5728871728007917`*^9, 3.5728873079438295`*^9, 3.5728873761939487`*^9, 3.572887409390807*^9, 3.5728877346045785`*^9, 3.572887890495652*^9, 3.572887964860983*^9, 3.5728880704731684`*^9, 3.580057179196698*^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[{"\[IndentingNewLine]", RowBox[{ RowBox[{"Do", "[", RowBox[{ RowBox[{"(", RowBox[{ RowBox[{"c", "=", RowBox[{"conn", "[", RowBox[{"[", RowBox[{"conj", "[", RowBox[{"[", "k", "]"}], "]"}], "]"}], "]"}]}], ";", "\n", RowBox[{"c", "=", RowBox[{"Take", "[", RowBox[{"c", ",", "P"}], "]"}]}], ";", "\n", RowBox[{"v", "=", RowBox[{"Table", "[", RowBox[{ RowBox[{"Join", "[", RowBox[{ RowBox[{"t", "[", RowBox[{"[", RowBox[{"c", "[", RowBox[{"[", "i", "]"}], "]"}], "]"}], "]"}], ",", RowBox[{"{", "1", "}"}]}], "]"}], ",", RowBox[{"{", RowBox[{"i", ",", "1", ",", "P"}], "}"}]}], "]"}]}], ";", "\n", RowBox[{"x2", "=", RowBox[{"t", "[", RowBox[{"[", RowBox[{ RowBox[{"c", "[", RowBox[{"[", "2", "]"}], "]"}], ",", "1"}], "]"}], "]"}]}], ";", "\[IndentingNewLine]", RowBox[{"y2", "=", RowBox[{"t", "[", RowBox[{"[", RowBox[{ RowBox[{"c", "[", RowBox[{"[", "2", "]"}], "]"}], ",", "2"}], "]"}], "]"}]}], ";", "\[IndentingNewLine]", RowBox[{"z2", "=", RowBox[{"t", "[", RowBox[{"[", RowBox[{ RowBox[{"c", "[", RowBox[{"[", "2", "]"}], "]"}], ",", "3"}], "]"}], "]"}]}], ";", "\n", 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", "\n", RowBox[{"p", "=", RowBox[{"v", ".", "Q"}]}], ";", "\[IndentingNewLine]", 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"}], ";", "\n", RowBox[{"T", "=", RowBox[{"RotationMatrix", "[", RowBox[{"T1", ",", RowBox[{"{", RowBox[{"1", ",", "0", ",", "0"}], "}"}]}], "]"}]}], ";", "\[IndentingNewLine]", 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"}], ";", "\[IndentingNewLine]", RowBox[{"T", "=", RowBox[{"RotationMatrix", "[", RowBox[{"T2", ",", RowBox[{"{", RowBox[{"0", ",", "0", ",", "1"}], "}"}]}], "]"}]}], ";", "\[IndentingNewLine]", 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"}], ";", "\n", RowBox[{"T", "=", RowBox[{"RotationMatrix", "[", RowBox[{"T3", ",", RowBox[{"{", RowBox[{"1", ",", "0", ",", "0"}], "}"}]}], "]"}]}], ";", "\[IndentingNewLine]", RowBox[{"p", "=", RowBox[{"Chop", "[", RowBox[{"U", ".", "T"}], "]"}]}], ";", "\n", RowBox[{"nk", "=", "p"}], ";", "\[IndentingNewLine]", RowBox[{"nl", "=", "p"}], ";", "\[IndentingNewLine]", RowBox[{ RowBox[{"nk", "[", RowBox[{"[", RowBox[{"1", ",", "3"}], "]"}], "]"}], "=", "rpo"}], ";", "\[IndentingNewLine]", RowBox[{ RowBox[{"nl", "[", RowBox[{"[", RowBox[{"1", ",", "3"}], "]"}], "]"}], "=", RowBox[{"-", "rpi"}]}], ";", "\n", RowBox[{"U", "=", "p"}], ";", "\n", RowBox[{"U1", "=", "nk"}], ";", "\[IndentingNewLine]", RowBox[{"U2", "=", "nl"}], ";", "\[IndentingNewLine]", RowBox[{"T", "=", RowBox[{"RotationMatrix", "[", RowBox[{ RowBox[{"-", "T3"}], ",", RowBox[{"{", RowBox[{"1", ",", "0", ",", "0"}], "}"}]}], "]"}]}], ";", "\[IndentingNewLine]", RowBox[{"p", "=", RowBox[{"U", ".", "T"}]}], ";", "\n", RowBox[{"nk", "=", RowBox[{"U1", ".", "T"}]}], ";", "\[IndentingNewLine]", RowBox[{"nl", "=", RowBox[{"U2", ".", "T"}]}], ";", "\n", RowBox[{"U", "=", "p"}], ";", "\n", RowBox[{"U1", "=", "nk"}], ";", "\[IndentingNewLine]", RowBox[{"U2", "=", "nl"}], ";", "\[IndentingNewLine]", RowBox[{"T", "=", RowBox[{"RotationMatrix", "[", RowBox[{ RowBox[{"-", "T2"}], ",", RowBox[{"{", RowBox[{"0", ",", "0", ",", "1"}], "}"}]}], "]"}]}], ";", "\[IndentingNewLine]", RowBox[{"p", "=", RowBox[{"U", ".", "T"}]}], ";", "\n", RowBox[{"nk", "=", RowBox[{"U1", ".", "T"}]}], ";", "\[IndentingNewLine]", RowBox[{"nl", "=", RowBox[{"U2", ".", "T"}]}], ";", "\n", RowBox[{"U", "=", "p"}], ";", "\n", RowBox[{"U1", "=", "nk"}], ";", "\[IndentingNewLine]", RowBox[{"U2", "=", "nl"}], ";", "\[IndentingNewLine]", RowBox[{"T", "=", RowBox[{"RotationMatrix", "[", RowBox[{ RowBox[{"-", "T1"}], ",", RowBox[{"{", RowBox[{"1", ",", "0", ",", "0"}], "}"}]}], "]"}]}], ";", "\[IndentingNewLine]", RowBox[{"p", "=", RowBox[{"U", ".", "T"}]}], ";", "\n", RowBox[{"nk", "=", RowBox[{"U1", ".", "T"}]}], ";", "\[IndentingNewLine]", RowBox[{"nl", "=", RowBox[{"U2", ".", "T"}]}], ";", "\n", RowBox[{"Clear", "[", RowBox[{"v", ",", "v1", ",", "v2"}], "]"}], ";", "\[IndentingNewLine]", RowBox[{"v", " ", "=", RowBox[{"Table", "[", RowBox[{ RowBox[{"Join", "[", RowBox[{ RowBox[{"p", "[", RowBox[{"[", "i", "]"}], "]"}], ",", RowBox[{"{", "1", "}"}]}], "]"}], ",", RowBox[{"{", RowBox[{"i", ",", "1", ",", "P"}], "}"}]}], "]"}]}], ";", "\[IndentingNewLine]", RowBox[{"v1", "=", RowBox[{"Table", "[", RowBox[{ RowBox[{"Join", "[", RowBox[{ RowBox[{"nk", "[", RowBox[{"[", "i", "]"}], "]"}], ",", RowBox[{"{", "1", "}"}]}], "]"}], ",", RowBox[{"{", RowBox[{"i", ",", "1", ",", "P"}], "}"}]}], "]"}]}], ";", "\[IndentingNewLine]", 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"}], "}"}], ",", "\[IndentingNewLine]", RowBox[{"{", RowBox[{"0", ",", "1", ",", "0", ",", "0"}], "}"}], ",", "\[IndentingNewLine]", RowBox[{"{", RowBox[{"0", ",", "0", ",", "1", ",", "0"}], "}"}], ",", "\[IndentingNewLine]", RowBox[{"{", RowBox[{"x2", ",", "y2", ",", "z2", ",", "1"}], "}"}]}], "}"}]}], ";", "\[IndentingNewLine]", RowBox[{"p", "=", RowBox[{"v", ".", "Q"}]}], ";", "\[IndentingNewLine]", RowBox[{"nk", "=", RowBox[{"v1", ".", "Q"}]}], ";", "\[IndentingNewLine]", RowBox[{"nl", "=", RowBox[{"v2", ".", "Q"}]}], ";", "\[IndentingNewLine]", RowBox[{"p", "=", RowBox[{"Table", "[", RowBox[{ RowBox[{"Take", "[", RowBox[{ RowBox[{"p", "[", RowBox[{"[", "i", "]"}], "]"}], ",", "3"}], "]"}], ",", RowBox[{"{", RowBox[{"i", ",", "1", ",", "P"}], "}"}]}], "]"}]}], ";", "\[IndentingNewLine]", RowBox[{"nk", "=", RowBox[{"Table", "[", RowBox[{ RowBox[{"Take", "[", RowBox[{ RowBox[{"nk", "[", RowBox[{"[", "i", "]"}], "]"}], ",", "3"}], "]"}], ",", RowBox[{"{", RowBox[{"i", ",", "1", ",", "P"}], "}"}]}], "]"}]}], ";", "\[IndentingNewLine]", RowBox[{"nl", "=", RowBox[{"Table", "[", RowBox[{ RowBox[{"Take", "[", RowBox[{ RowBox[{"nl", "[", RowBox[{"[", "i", "]"}], "]"}], ",", "3"}], "]"}], ",", RowBox[{"{", RowBox[{"i", ",", "1", ",", "P"}], "}"}]}], "]"}]}], ";", "\[IndentingNewLine]", RowBox[{ RowBox[{"tpo", "[", RowBox[{"[", "k", "]"}], "]"}], "=", RowBox[{"nk", "[", RowBox[{"[", "1", "]"}], "]"}]}], ";", "\[IndentingNewLine]", 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}], 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.5728450619480963`*^9, 3.572845768379737*^9, 3.5728459858129187`*^9, 3.572846196179288*^9, 3.572846533701481*^9, 3.5728469928102875`*^9, 3.572847285279601*^9, 3.572847362593337*^9, 3.5728494326389728`*^9, 3.572849694735033*^9, 3.572850389778654*^9, 3.572850495047639*^9, 3.57285060948944*^9, 3.5728506953207903`*^9, 3.5728510983474984`*^9, 3.572851185395651*^9, 3.5728512731146054`*^9, 3.572851601276782*^9, 3.5728517370438204`*^9, 3.572851830066784*^9, 3.5728519722142334`*^9, 3.5728520137259064`*^9, {3.572852046673164*^9, 3.5728521586345606`*^9}, { 3.572852189678615*^9, 3.5728522160114613`*^9}, 3.5728526431558113`*^9, 3.5728602415100117`*^9, 3.5728602762200727`*^9, 3.572860316858144*^9, 3.5728857065698166`*^9, 3.572886480128375*^9, 3.5728865825113544`*^9, 3.572886770507285*^9, 3.572886889535494*^9, 3.572886979968853*^9, 3.5728871243627067`*^9, 3.572887172847592*^9, 3.572887307990629*^9, 3.572887376240749*^9, 3.5728874094376073`*^9, 3.5728877346513786`*^9, 3.572887890558052*^9, 3.572887964907783*^9, 3.5728880705199685`*^9, 3.580057179243701*^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, AutomaticImageSize->True, Axes->Automatic, AxesLabel->{ FormBox["xl", TraditionalForm], FormBox["yl", TraditionalForm], FormBox["zl", TraditionalForm]}, Boxed->True, ImageSize->{360., 360.}, PlotRange->All, SphericalRegion->True, ViewPoint->{2.6093018836017703`, 2.0591568401961022`, 0.6335746110016268}, ViewVertical->{0.33505364378944696`, 0.311127368175954, 0.9030060474640892}]], "Output", CellChangeTimes->{ 3.5728450619480963`*^9, 3.572845768379737*^9, 3.5728459858129187`*^9, 3.572846196179288*^9, 3.572846533701481*^9, 3.5728469928102875`*^9, 3.572847285279601*^9, 3.572847362593337*^9, 3.5728494326389728`*^9, 3.572849694735033*^9, 3.572850389778654*^9, 3.572850495047639*^9, 3.57285060948944*^9, 3.5728506953207903`*^9, 3.5728510983474984`*^9, 3.572851185395651*^9, 3.5728512731146054`*^9, 3.572851601276782*^9, 3.5728517370438204`*^9, 3.572851830066784*^9, 3.5728519722142334`*^9, 3.5728520137259064`*^9, {3.572852046673164*^9, 3.5728521586345606`*^9}, { 3.572852189678615*^9, 3.5728522160114613`*^9}, 3.5728526431558113`*^9, 3.5728602415100117`*^9, 3.5728602762200727`*^9, 3.572860316858144*^9, 3.5728857065698166`*^9, 3.572886480128375*^9, 3.5728865825113544`*^9, 3.572886770507285*^9, 3.572886889535494*^9, 3.572886979968853*^9, 3.5728871243627067`*^9, 3.572887172847592*^9, 3.572887307990629*^9, 3.572887376240749*^9, 3.5728874094376073`*^9, 3.5728877346513786`*^9, 3.572887890558052*^9, 3.572887964907783*^9, 3.5728880705199685`*^9, 3.5800571792587013`*^9}], Cell[BoxData[ RowBox[{"{", RowBox[{ RowBox[{"-", "15.117612717731944`"}], ",", "0.8239130912956434`", ",", RowBox[{"-", "7.492770378304183`"}]}], "}"}]], "Output", CellChangeTimes->{ 3.5728450619480963`*^9, 3.572845768379737*^9, 3.5728459858129187`*^9, 3.572846196179288*^9, 3.572846533701481*^9, 3.5728469928102875`*^9, 3.572847285279601*^9, 3.572847362593337*^9, 3.5728494326389728`*^9, 3.572849694735033*^9, 3.572850389778654*^9, 3.572850495047639*^9, 3.57285060948944*^9, 3.5728506953207903`*^9, 3.5728510983474984`*^9, 3.572851185395651*^9, 3.5728512731146054`*^9, 3.572851601276782*^9, 3.5728517370438204`*^9, 3.572851830066784*^9, 3.5728519722142334`*^9, 3.5728520137259064`*^9, {3.572852046673164*^9, 3.5728521586345606`*^9}, { 3.572852189678615*^9, 3.5728522160114613`*^9}, 3.5728526431558113`*^9, 3.5728602415100117`*^9, 3.5728602762200727`*^9, 3.572860316858144*^9, 3.5728857065698166`*^9, 3.572886480128375*^9, 3.5728865825113544`*^9, 3.572886770507285*^9, 3.572886889535494*^9, 3.572886979968853*^9, 3.5728871243627067`*^9, 3.572887172847592*^9, 3.572887307990629*^9, 3.572887376240749*^9, 3.5728874094376073`*^9, 3.5728877346513786`*^9, 3.572887890558052*^9, 3.572887964907783*^9, 3.5728880705199685`*^9, 3.580057179267702*^9}], Cell[BoxData[ RowBox[{"{", RowBox[{ RowBox[{"-", "13.6335469032603`"}], ",", RowBox[{"-", "0.3184582136970856`"}], ",", RowBox[{"-", "8.739781388618775`"}]}], "}"}]], "Output", CellChangeTimes->{ 3.5728450619480963`*^9, 3.572845768379737*^9, 3.5728459858129187`*^9, 3.572846196179288*^9, 3.572846533701481*^9, 3.5728469928102875`*^9, 3.572847285279601*^9, 3.572847362593337*^9, 3.5728494326389728`*^9, 3.572849694735033*^9, 3.572850389778654*^9, 3.572850495047639*^9, 3.57285060948944*^9, 3.5728506953207903`*^9, 3.5728510983474984`*^9, 3.572851185395651*^9, 3.5728512731146054`*^9, 3.572851601276782*^9, 3.5728517370438204`*^9, 3.572851830066784*^9, 3.5728519722142334`*^9, 3.5728520137259064`*^9, {3.572852046673164*^9, 3.5728521586345606`*^9}, { 3.572852189678615*^9, 3.5728522160114613`*^9}, 3.5728526431558113`*^9, 3.5728602415100117`*^9, 3.5728602762200727`*^9, 3.572860316858144*^9, 3.5728857065698166`*^9, 3.572886480128375*^9, 3.5728865825113544`*^9, 3.572886770507285*^9, 3.572886889535494*^9, 3.572886979968853*^9, 3.5728871243627067`*^9, 3.572887172847592*^9, 3.572887307990629*^9, 3.572887376240749*^9, 3.5728874094376073`*^9, 3.5728877346513786`*^9, 3.572887890558052*^9, 3.572887964907783*^9, 3.5728880705199685`*^9, 3.5800571792717023`*^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.572842834685384*^9, 3.5728447936432247`*^9, 3.5728450619792957`*^9, 3.5728457684265366`*^9, 3.572845985859719*^9, 3.5728461962260885`*^9, 3.5728465337482815`*^9, 3.5728469928570876`*^9, 3.572847285342001*^9, 3.5728473626401367`*^9, 3.572849432685773*^9, 3.572849694797433*^9, 3.572850389841054*^9, 3.5728504951100388`*^9, 3.57285060955184*^9, 3.5728506954923906`*^9, 3.5728510983942986`*^9, 3.5728511854580517`*^9, 3.5728512732238054`*^9, 3.572851601432782*^9, 3.5728517371530204`*^9, 3.572851830129184*^9, 3.5728519722766333`*^9, 3.572852013788306*^9, { 3.572852046735564*^9, 3.5728521586969604`*^9}, {3.5728521897410154`*^9, 3.5728522160738616`*^9}, 3.572852643311812*^9, 3.572860241681612*^9, 3.572860276391673*^9, 3.572860317029744*^9, 3.5728857066946163`*^9, 3.572886480190775*^9, 3.5728865825737553`*^9, 3.572886770569685*^9, 3.5728868895978947`*^9, 3.572886980093653*^9, 3.5728871244719067`*^9, 3.572887172909992*^9, 3.572887308053029*^9, 3.572887376303149*^9, 3.5728874095000076`*^9, 3.572887734760579*^9, 3.5728878906672525`*^9, 3.5728879649701834`*^9, 3.5728880705667686`*^9, 3.5800571793047047`*^9}], Cell[BoxData["51"], "Output", CellChangeTimes->{ 3.572842834685384*^9, 3.5728447936432247`*^9, 3.5728450619792957`*^9, 3.5728457684265366`*^9, 3.572845985859719*^9, 3.5728461962260885`*^9, 3.5728465337482815`*^9, 3.5728469928570876`*^9, 3.572847285342001*^9, 3.5728473626401367`*^9, 3.572849432685773*^9, 3.572849694797433*^9, 3.572850389841054*^9, 3.5728504951100388`*^9, 3.57285060955184*^9, 3.5728506954923906`*^9, 3.5728510983942986`*^9, 3.5728511854580517`*^9, 3.5728512732238054`*^9, 3.572851601432782*^9, 3.5728517371530204`*^9, 3.572851830129184*^9, 3.5728519722766333`*^9, 3.572852013788306*^9, { 3.572852046735564*^9, 3.5728521586969604`*^9}, {3.5728521897410154`*^9, 3.5728522160738616`*^9}, 3.572852643311812*^9, 3.572860241681612*^9, 3.572860276391673*^9, 3.572860317029744*^9, 3.5728857066946163`*^9, 3.572886480190775*^9, 3.5728865825737553`*^9, 3.572886770569685*^9, 3.5728868895978947`*^9, 3.572886980093653*^9, 3.5728871244719067`*^9, 3.572887172909992*^9, 3.572887308053029*^9, 3.572887376303149*^9, 3.5728874095000076`*^9, 3.572887734760579*^9, 3.5728878906672525`*^9, 3.5728879649701834`*^9, 3.5728880705667686`*^9, 3.5800571793077044`*^9}], Cell[BoxData["21"], "Output", CellChangeTimes->{ 3.572842834685384*^9, 3.5728447936432247`*^9, 3.5728450619792957`*^9, 3.5728457684265366`*^9, 3.572845985859719*^9, 3.5728461962260885`*^9, 3.5728465337482815`*^9, 3.5728469928570876`*^9, 3.572847285342001*^9, 3.5728473626401367`*^9, 3.572849432685773*^9, 3.572849694797433*^9, 3.572850389841054*^9, 3.5728504951100388`*^9, 3.57285060955184*^9, 3.5728506954923906`*^9, 3.5728510983942986`*^9, 3.5728511854580517`*^9, 3.5728512732238054`*^9, 3.572851601432782*^9, 3.5728517371530204`*^9, 3.572851830129184*^9, 3.5728519722766333`*^9, 3.572852013788306*^9, { 3.572852046735564*^9, 3.5728521586969604`*^9}, {3.5728521897410154`*^9, 3.5728522160738616`*^9}, 3.572852643311812*^9, 3.572860241681612*^9, 3.572860276391673*^9, 3.572860317029744*^9, 3.5728857066946163`*^9, 3.572886480190775*^9, 3.5728865825737553`*^9, 3.572886770569685*^9, 3.5728868895978947`*^9, 3.572886980093653*^9, 3.5728871244719067`*^9, 3.572887172909992*^9, 3.572887308053029*^9, 3.572887376303149*^9, 3.5728874095000076`*^9, 3.572887734760579*^9, 3.5728878906672525`*^9, 3.5728879649701834`*^9, 3.5728880705667686`*^9, 3.5800571793087044`*^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.572842834763384*^9, 3.572844793736825*^9, 3.572845062088496*^9, 3.5728457685201373`*^9, 3.572845985953319*^9, 3.5728461963040886`*^9, 3.572846533857481*^9, 3.5728469929506874`*^9, 3.5728472854200015`*^9, 3.5728473627181373`*^9, 3.572849432794973*^9, 3.572849694875433*^9, 3.5728503899502544`*^9, 3.572850495188039*^9, 3.57285060962984*^9, 3.572850695585991*^9, 3.572851098503499*^9, 3.5728511855672517`*^9, 3.5728512733174057`*^9, 3.5728516015263824`*^9, 3.5728517372622204`*^9, 3.5728518302383842`*^9, 3.5728519723858337`*^9, 3.5728520138975067`*^9, { 3.5728520468447647`*^9, 3.572852158806161*^9}, {3.572852189850216*^9, 3.5728522161830616`*^9}, 3.572852643421012*^9, 3.5728602417908125`*^9, 3.572860276454073*^9, 3.5728603170921445`*^9, 3.572885706757017*^9, 3.572886480268775*^9, 3.572886582636155*^9, 3.572886770647685*^9, 3.5728868896602945`*^9, 3.5728869801560535`*^9, 3.5728871245499067`*^9, 3.572887172972392*^9, 3.5728873081154294`*^9, 3.5728873763811493`*^9, 3.5728874095780077`*^9, 3.572887734854179*^9, 3.5728878907452526`*^9, 3.572887965032583*^9, 3.5728880706447687`*^9, 3.5800571793757086`*^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.572842834763384*^9, 3.572844793736825*^9, 3.572845062088496*^9, 3.5728457685201373`*^9, 3.572845985953319*^9, 3.5728461963040886`*^9, 3.572846533857481*^9, 3.5728469929506874`*^9, 3.5728472854200015`*^9, 3.5728473627181373`*^9, 3.572849432794973*^9, 3.572849694875433*^9, 3.5728503899502544`*^9, 3.572850495188039*^9, 3.57285060962984*^9, 3.572850695585991*^9, 3.572851098503499*^9, 3.5728511855672517`*^9, 3.5728512733174057`*^9, 3.5728516015263824`*^9, 3.5728517372622204`*^9, 3.5728518302383842`*^9, 3.5728519723858337`*^9, 3.5728520138975067`*^9, { 3.5728520468447647`*^9, 3.572852158806161*^9}, {3.572852189850216*^9, 3.5728522161830616`*^9}, 3.572852643421012*^9, 3.5728602417908125`*^9, 3.572860276454073*^9, 3.5728603170921445`*^9, 3.572885706757017*^9, 3.572886480268775*^9, 3.572886582636155*^9, 3.572886770647685*^9, 3.5728868896602945`*^9, 3.5728869801560535`*^9, 3.5728871245499067`*^9, 3.572887172972392*^9, 3.5728873081154294`*^9, 3.5728873763811493`*^9, 3.5728874095780077`*^9, 3.572887734854179*^9, 3.5728878907452526`*^9, 3.572887965032583*^9, 3.5728880706447687`*^9, 3.580057179648724*^9},ImageCache->GraphicsData["CompressedBitmap", "\<\ eJztfXlcVVX39/dxttHmnnJqNjXDedZSszQrK9OyrDSc57TUwpwzyyHNATEV p8R5wHlABUH0IigIgiCCiDIKigOgct+zzznr3HUO+x6w3/v+9f7uJ+zec+9Z a695rb3X3ueD3qMH9B3ae/TA73rXfPf73iMGDPxuVM2Ow79XLpX9D/CfAcpf n5oQ750A/eNU/nMOFP+IK//7/l+/f0X8U1bw9G12tZb6Xr2svhN/bdj3NcQ/ 5cS35Uv4ZUmQntW/LygoQFJSkvrpQfFvGeuYnlLfV1B/6XA44Ovri7Fjx8LT 0xMREREPShC9xW5/Qn1fWb19x44dmDhxIubPn4/z58/D398f1apVw3fffYcb N26wAXAIVdT3DxkDEBDEAPbs2aNC6N69O959913s2rULS5cuxbRp0wTEDxiI h9X3DxQDERgYiFu3bqnfxsbGqiCUgZRRL5TDli1bcO7cORWDQmoXBlEjuzyy srJUjsyaNUslKzU1VSFW+05AF9iuXbtmkPg+g1HJwlkaVUxMjBgVcVZ8FJwT n8qIIXIY5d3A0Cl7RP+awxDD0SnqzCCVcSNnHdJj6tcVTZDy8/MxY8YMg7hO DJwOiYtc8EaB9IQO6fr165g+fbpJfmvWrFH/r0O6a0/d0zqHCJIYQxn9GlEp rr2nQSuwh/acfme/fv0MTSZoQjkEleLTuxq02zYaUE2/TWAg/Sqr/ytIPHLk iPqpowbqhr0i1LCBJsicNGmSSqYO7Zo9mS/qd5Jyc2hcoDq0q/Zq8YoEWhmd MwISCVZXOLyjQc2yV5HXdKhkQS6oFVQoglpSZV35OmiA0+2Jry2xqQr6NTFM b29v9VN7Ddple2hv2EBjVkbQLtlojIcEVEUGikysnQYq2V5jGlgMg0MTMh42 bJhKblXD4b6swU20J7ixBC55IAFX6LYgWtyiGx+ZAo8PL2jI4u1Vq7nEHsvp pAiW6M7acN7Eoqr6LzlGpx5stdEgzl79WkoMrrLEfJ832FdWQqU2DsTYs7SN DS7uw0qFK8oe19v6nYJUoYRaUNSuCZrIw/1XwkHlVcY94tM2qt1B4iIIq1Aa 8RJWUsmg8BHjXRnjnU424dYFGW5vBx0lfoSiLvk6YQviFt2LVpDT/qR72h32 TO9kMwYhYO7PdBfkZgxPGMyorl0KtTegLhKf8rB+jVyTy6iKoWuovQmxt5UP bZBwx2WPJMiehx/rAIV6kd95hBmk4Jv2yQ7JYXsk3STOjZCkp6erQJOTkzVK VDE00uAG2Ch/DwnQB3UnJjRQmB1PgIhdmvPDfnv97unWeZTDsmXLDKjKsMtI 2NVMQ7LHni+9bDxUdna2obw8JSGvpWPYaa+o30owVJH4paYaNH97jewj8TeP 6deEwZPaN9GgbbWnvq8EWhWdxUKAGzZsIKHpADfZAxwg8QeP6hokZEb+aNu2 bSpgHeoGGyUbLLHBR/VRJCQkGBISf7rha5Ecfvb6NVQC+AmJceuGsMae8hHM isXQxSfyq1wtdXNdyaCJAViUZpTEsp5kYyMPp0PzdaM0OqU/SKA9obOc7JSX OlqGhaX2FI/TofIU5jHm+wVE8XMxTp0DOmAfe8BeEot5XL+FS5vZYn0NsLeN Hk2QQKUai9uhlqxigb3yTJJYzjNM3JRFvalBm2dP8VQbaLwI0qHNsVee6RIj fMoibnLLgmod6ix7JZohMReaPqGMVUQQZof1NMC/2xM/UwL4vxI71AoSTLeH NkcCjYpfXgTV1aBNs9GYeRKzeY4NjIxQLT7U7EkrPzHZXnfmu4WreV2W71Mo 4jFfq5h1fXbLB2+JdT6rE0s1q1AA8k02mLzs1W2JxLCelThoZq6V3CP7yV4L l0qQVdWv8TpJLdzKMJmMsWeXr8QCqbrj9lxOMnK94httj2GVDQaeVbhGrsP9 3kZF/5GYOpWIIq2jmlVhizZpiuH2uuknAagZYyVTEUzJlxixbgfavAaG2LNh QwnWTkBlc0CvahgGMgzEFIZhswRDTYkH0GZ30N9e4bZKjPUF/RqvM/Q5Bk97 6v0l0GrKTV8H2Nse4C4JwBoWM3/mmWfQtm1bVYd1qN/Y6NQ+iYlVY6P44Ycf 0Lt3b3Wc7dq1E6PRoX5lr1sHJIA1v2eeQSfyxOw5Lx10LF/Yc+SQjoXPAzwj kTG7habEKXypaIxpo+726hYosesn7fGR+yOTF590N9XNXhuPSpA9Zo/sQffI Prbn5DGJL3jEHhmVlCLXP3PmDEf2oT2yExKrfdAeGdU9Qj/IP+vIutjo90kJ pkr2mKgsECZ64MAB1Qu+pGHqZK/zEfqdvCwob4/sKV0bydWKl/Jex9fRno2R En9Qxh7fM/qg+HwN5V060vb2JhCt85CQukHEox1l27q83rZX+xjL1yKpYYC5 PyYV14NnG3t2aYArSkdMbuol99BblgZ6CW7H7A9pAYMbkI6suY1OlzAPSwuq 3G3YYGpiDy3a/utKEmQUknj5IV7iva4CDf9HSMnLcV9FSHl1QsWojtTDRrEV vpaAlLwd9yTEVpF9iZ8yttazV/Iz9sges0HGLUpHVsceWgnInpQgIzvgqa+W u6DW/wgZVbrcZ8mMTkf2qo0dlIDpufvD9JI9tBIWJKrrgHkFxnM9sgPF+HSZ vaBTJgAKivgqfgnIyAVyX8LzQL4GLRCraxRlXZP/Rk4rJC5GHB4ejkh7nC/b +C+yM/HpIYniPMaxas0IhCFcoLZFTCuoMnfGEas1hNuOksfMTCdgQjf0YeCE /Thq24yDm2SJDKhgylbZCELsB0BrtNzryQagSrtMMWlXNOkmofbx8VGJD7TH LVvUldmSbGLhCbPOyZoSaCQCWwNdRJZFT/UzRZtTm4KQF6f1+vxkKLdyEx+6 eAlNpeXi/RvCsLv3EuSnpOJ1G/9KK3nmPh6dCqoteYpXjlEhgAmNrG9DBQ1o 77poBP6RhOx9AfpMSKVi/Cci9HuJAb5z4nH28B3kp2dIaamhi9M6A6i7oJpm YmSr/kSI+PSGYVqyFVsiP9qRgVPH83H7VqE+AVOcHN6m5AYcWW/c2RtYd/we 7iXGGSRyV15d12oBlk9QiKsizRFk29BZkdEpQIpR1bUMR7xkc0B0becCRQVv 31M/lTAh5Fr+lQEkpkc58nDiZCGcmcmoJaGZTI6cu0vUUhpJWwICAsw0uh1I WWMgF3Butyan7+0pqyABI1tfJ4YvX52Du8ma7RKN3CfIfLuFRu6CK0torGPQ SMW+ZRmVSPf79SSKrmuX3c2V6WQ+YCHJBV1OZvCJu3BeTVU/UQiTxU6ROpLn tiHzAXdkumkPIQpPrLyKwvxc9VMD41uXNtJw46MTsajHQiQu3qJbmz0nyhrm q74jKYREO3EnpWSqebyyUM2D44MSqhsRgzemo/CK1rvWxMbbkn7u/ScefjNz kHs6Qc8q3VJIQzkUoth2rtaI9apkeLIkubqZGq7ZD0moaUgWPecinHcLGTVW w2SkzP3jKvJyLjGOuiWFhhh42onC1AwTKVy/auocFAFDzOMLy6MgWMM9SQ9L SKpPDF8Vj1tJmndsXJJFGq1r0zOMyzXsSSP92huo/Px6lotNZQy1JO3ePHUH ov7cqH56glFPaRRRz1cxKa3RqafWRR74H5VQT5mSn9cpRaBOJtBSdSGR3Yb+ nWNcq2rPB0pMA046kX/lqv6pOGgZOmMy1BGLyN9XIf7vE8g4dp4qQp5qkibx KYTqZt7w2FNFwpt6+rWEk7nIjNC6O5uV0q8SY2I25xrX/mvPGEK346Dy8xs5 JTChsulahsKQlIWbkH/gOJw3lSTqWB6y8gpgVyvzqUkbzjxiqKfyhRg2sacs SzjYq6xhO2QkpzYGIjcmSR+2dm3/lCA402+YHM2R5YrvUgzasMCycnhRjotI 2V989lzCUzLu/ceduH3lms4/UNGlueATS3cgcNifuHU8GncL7uBZG6bxMG/D tMcYeDG1QzxzoS5ZhejaXr9ohM65gLTtWwz2rfTahIILBSb2nXFcQUqQFrio 9c/P+yyuBl9UPz1pz6rGut5u21OkqNB1GpqL/QLFBB+kRZxHXkGRsdrMPUwp uFR8dcAVB4lTVi6Fjt3jlkvkOgIcBbh3t0j9ZCQ1fmHIO60pGbn+7XPj4bxV ZOLSpr8v40bgCTYmt1yqY+ilKynR9PIB7D3qxM20G1gxexYiQ0KMYWasD1Df F11MQ9E9Jy0JyzJlnmiUyLgKJkYIcOKlZGi85W/rTu1yyPAdmhQrWg1W/bxh 4w1cy842WJcemYn0gEzcKrxtsC7KcQ4x2zV2vqNfO7hOcVSp91yewj3r3mSj okHbCrUS+nb/1DTS39p/gpzl/ridnoM79zTu27GTZ6sWdvLE6FFDlJxzosIX AJymVEBjesIVFwuz9icgxxFrpePk2UKdjgo4sekokjZorjbJcQnJ61MUTSii OdrTu67h5uVME2NPinImU8uwHrRnbIP7ZWwFNK5eA+/UaoKhLVpiWufWGN7y VeQWFvFJD8qBKdmw1uUi2bDwlKdaj7rFrtk7TSQJr2n4GY2GSgiPdGLTvDQk LA7DxVX7DSBBEU7cTQ2nfQ7bp1xAsl8kNn+7DQd+CEHi9otGVEpUIiJTdOrs 7a9o1Ls1nsdvnwxC5JH91Kccf1ThdM4NXe1K5SdLze3yqP/c62jfoBM+r98S I1q/Ac9WLxmlBS83iNXWdqUSWF3FrKJl4NJkxmVrM7f2e/D8U3jzHeE4FuNE keJKNZKeRljEDaSlX8XKjXkIinci4pwTMdEalL+W38E/i6+q7/3HhWF7P81V 75sejMQt8YhfGYoz3rsw4fMB6PjCC+hV2wNe77TEN3WqEu/n9AtWypYsnXZb 3jez4/2DpsviL8qRgFmTkvF17yVo07gxPmzeAD5Nf8bZU8el/JfljHq/O02Y 82hHrSF8VtZVYzJZVMaZFCfOKjWN9+95SD9/TolKcUgIDcPZuT44vzYZBUqu 5qaHuoweXcTruML9yFgnYqOc8N9VhGavNMenjd9FP4+GGNuxAQa0eJG46jNC iXPZ2rYS6w4zC1dblp6rk4bswvhp2Yi4rH12nDiOpUsW4FfPnYj6fq7BVR6s ZPmmhauyhjjOVRcvy5rfKQpzMMyJsG3X8dtrH+F880+Q+1FXac873UeZn8+c v/DOm3Uw1uMLLOnTBf071tUXsCth08QrKLqW6o5hrSXD0eFGOS5jQM9QbDnm RNptVx0Q5UjHpAZKEhgZa0wty5jEMycbJj1fSiaRp9wboKTV11Iwp/E3WNm+ Hy69/6G7jQF2jqz/N19jpEc/hEwdj3+2BcBZcENPojTlClxw1cqrjjqWKMUf Txt1DL8uvInL15yUZ6zzPoVDAxaqn6q6QoCrlhOv+2ROVXfMcTPlQtTtVYqE O3ec2LF4K7Z/2g85UdH3w6RyOpiFnn8id5M/YtMV+7hwQ2XS01Kmgvp4ipvm ab9cwb33iE2Lj2PkkFjsiHTNrQ3ymI/0Nf6MZFdCKF7EErjm4c9FJyFqg1KN nUkyqhyeclqYWrwdsLyRZtJCmIuB5opUM4YcJCVlKFWIP3b8MBPOq/FWA2az ehWwT/ld9j8aRbFpBveecquR8ppbUJkWpdWbz+gW7W5mP8oRhwu7r8rKzQcM zY3D7z/HYfXWO0i76aRJvihHGpY2+4kxx8V+ro1wzetsWx2Po1OicS023Wih 5lsZqrtnP10j9puHSlq66YATa6bOhd+o7XDeuUNbh7crfE339TcYdVbwNlHT zMcNo7NbOpj5zT5kLjuC/MzLJdWRJBk/xbIzA7WNnE0toN2ZEFX4G5eewbjx aQhPce0Emu7pj+jRf5qUkdScIjJn9t8THAhy3MbtWwW6+ZUzdYcqL/VyRfHu P2bO8+KgBuM8eZNKOrx4pQxY/+ca/NVjOwoLndQGsVHh9yUfjd9EJuf5YxJ2 WK2hLNaszIQjVinET+3Tsmm+ashfQo+pXHYcC8GIzydjk9eM+5yrKoflvxzC vP7HsfGwE+m3nZTBi9A1tcE03IqKNTGeF1ziRcI7IxZjVqYw8ytfbCOM+Py0 xSUXHyZkbQrVXFGinCEQ/VVep8RrQiB8/5iDj17shGN+3sRv4YcSvanPlcnl PJNLyateJ/Ow11GAu8Fb9dLYZQviJemi4mAoEoUpkmpaoyo+qFEXg+p7oNdr VUs/77xi0RWcCL+O/Os5hjat945A4CBtbwhNNVpuJ/dhN5GysOdmOK/fUT9R LiZEppfChi1ZQNtIrLrug7mAyY8JRunXKAwvnjMLHV6oiWHtO2CwR0389vWH hmA5UqdlWlBIN1aXLslPSPeELl1XmSTruDCkm1CEgJhCXPPfqM+2yT2dGzCU avvMmY02NV5Fj1oNMLSZBwY2eQnbF89uLLlF/UQ5y1CPeUhb6+8SokkbBFfZ i6jcvSQEVwK0BRbKDHkNY91Da4D8j3j3H+2d+gW1QfIyR6tKKxbTJVpy57Lz mTMXnWq9jiEd38dPbzfDiGavSmVXgg7OGeqDsCHjkXM20eDy2SsWUcrYSLmR qLeCE24rP75ZUk0pszQz3ysjVkleTy87ikMzj8HrfS90adYZPdu0w9cN38K0 Dq2wfdmfmrRMi5kc4hNyJhC/RTKxovlYl4OzVKbEBP9xx+AsLDJJmtdVT7qc o3nbtkW+PEGhNh+uHeL/eu5Ic3F+f63Gxy3fQe/2TdCvU2vMGjoXRwfvxBW/ IBfS8iYI9J5G/3v/SGSHZCA3MdawNy5WTdMeUHO/8CTlWr42DW3bOfq4VXJK AIpVr+2bEYT9Y4/AsSkTMWecuHzViZ0Hj6Hpa7XQpUlddG/ZEf09RuDCwsVw pic+r3PaCo77mIToC1jUYwHOL9qseQeXwE2Tkb95bseFpdoGCLrG5Ukqsmy0 PwoS802/41XOf22ttLgUZcH+UfU9rUAkOM7j1IIwnAw5gZEDv8E63wWISXYi XuH3ti13cNjruPr7TJ2JbgIRifR8SgHiU/N0F+FOpBWUa4U4m3INS/6aWbwf VwsNjiUHsevXw9gz+gAcfmmIjSzSRnLbOGzn78ULsGrZAnUFaIjHMKQeUKJH YsRzEtrL8lHuXZuIzfNykB+bZKzqibRmesOpuK2kNcR62dEsYhLpjM8F3Ltz 02A8F9GzFm8hlU51i41xKwFM1alYgZw8fBLOKOHceYcCUwVExRfidLhr7u76 qVhDASsY7+wmfWOEXBJuYOjHndH1hWqY1LMbzhwLkQV0xeJoGlHdEh0Qhgup 2XDmZVKtFrp4H5J3pRjDiTt1D2lZTuaFy8PLMxAjPYbi5OFoFF2JxR3F7p+2 sMssNWPlJiIPp7KUcjwn1RDYBM89CB68wOT7ZALb95tSmebeZb8rZ91JXM0s qWLd4PK5nSRHEmKXRML3b1/VlFznZohd/zNzcKT/ZqSuPiQuVCrRmZRHq5bd 8MuQURig+KIBDV/E9D7dtDihxdoqRpFKQFKvK3+p6QjbsxkrlQTjH9Fd3HM5 zo1dgq1DduHE8mQcDLyL9EwnIjKdjxliOIAfPQZj8eKzyE2Jxy3HMWkWR9TQ IuO+C05kBQcj/1wsqJtzuMefuBauTa2T2RU/LKgsdvgEIeNAOhOC1usuqq+5 c+eqFiRKXteOwqfdy4T6Xy4qZh+/LFptVGAL9VZeX7jsxL4tBQj88QhMGSIn VhvoQ8UEFBUaBq/eU/Bm1dfwfoMmGNrlA0zo1A6zPuyG1DUBj+ugREiiF+kI iYordBndM+46GIKMlFT0qv0yvq1dHT4z0pARk4PoHKdRCHl57oaXx0BEHYlD UKISKM4FSyeO2OxEWWyKcSIv2oF7KXHaZBKjuDyWz9uMpk9XQ6fqVfFLj26I VooO2fI2iW3zyMOK2y5yWQLMDbNuosFTZtnx8pnOqbrkSEHiilhVdoSNN1vQ uW5RF52IPunEnmlncfa3/bh2MlaaUGkwqhjXVLl9MxGff/ITtinMHtzja7R9 vRa6t26A/u/Ww6I/fbB3XxEOLkxG8NDtyNwVjZywWDoSxF0jqyFDTcgPmDy3 wPnth93RvnZj/NDlHYxuUQ9DP/gEF68WPCy3L5YfVlDkvR3zPGernwIvOXHj 7Ak4c1Ifs/zQTDcZp+8JRe7no5TE5bw+6+4mRpdHI0X47zz9Ir6r/Qr61HsR v/f5zNgEzZVA/HmP3ILbcfmyXUulkz0v/KgJ/3JYKpJXx8N5z5X5cNkTs0KU 8LZ6VgZiF4YjeeV+99Wzthri1Ws8un84Blv2BcNv3gp0bdIbU6avgvf8v7B6 6UJERZyg0JeY4URcrBNrlt3AscmhiJlzFJdWHyzvRvq879e6mPOQoQJevX7B Z51+QJ/uX6J9rVfRvVlz/PDh2xj78bs47hWIyJmHcHHFPtlBjaY1N4Ln8iWV MevtyYhfuBlZ+crAL+eiMFiT0RKlOF49ezZOh4QYHW4+e4uQe/E8nNkpxo4B i5DYEMoiXlHbHR1aYOO3HUGrgl7tGiHLPxyxPv66zzHrhlj7D5sXL5r+SDd4 hXn/ukFz+mnhl3HJL1HVDfLTXDdcBxhQTzvzsLuP3sXhzbdwdMQBpG/SOi7E DNgKJTiqEvryJ0VCo9X3fvN80bXhN5g8ZSXiki7qDucBHFfUYr9wDAsuKPXM VlzeHoGgVVusulDONY4nTeMgxyNem3cHq3jerd0VDV99FR+81RDd29ZBzKnj OKNEpYg4J4L230Xg3HNKsrARGdvCke2IVdXQ1bDOlrceNkhVSZiRiZxwbV04 KrEIMTlFyDl8EGNa1ccXr9TA169VRczxEDZxQIlzUEQBsi5fgvNamqpCq2bP EipUTS62srpvdSzyUb8K+1sjb0R7Dwzq3ER9f/m8UiFuzUf48vM4/fMexMwP RubWE3CsOIAVXyxFyoo9dLgOnyjcNiVU0dN7xkIhL17tlYhydFm/UfqpNFzZ lKQqkayLnNLK4p7EjO3sJaPVqX312uhSsz66dRhhGM6kCSsQeyFFl4z417Ww MP63Jfjrzz1YuywPxyaFIHpOEC6tOkAC4GI0/Me3Uyh7VN1Xw69VDGcTL1IL wl6laj2vBPhty3IUj3JE8yi++2SZs6sG1TysK7MJDstD7o0CI2IN/qwneo9Y gFnfj8Twlg0wqnEt7Fr85/MSHpH7zLjtRFpaBsZ80AGfv1wdX72qKlpVwyZo okTAj/1+GK7P7aMCCuj8lvr/99u8iZ+HfQOXdlVGYrZTrTz3HynC/HEx2LLw FtJOJCFibiAyFGNWDEN3tuUMFdrmfQSXd6bLFgRLpz2yHTSZkelI3yY6cuSN 67JT4Zx8uUjRr8WKQbWt1RSfNX0Lo9o0xNfN3sVEr+VCmEZ4s0QZa2Aph0Pz ExE0aAsydkTialgsXW5b/Xl8WPNlfPB6F/Ts4UUa2rVJH0yeuhKxSSnGPHS0 4mROKU7m6P47ipOJw+F+GxQnc9KlF8wrVNHd4mLlzw9d3/gcn3b+EcsXrEHj mq/hgwaNMLxze/zy6TtYMeYvOKYew0HP9cjcG4/k5fuQ6oh9qhgXBLDB3Xqh 8ztf4ffvR2Nos3oY0uhV+C+eY1o6IC5mHw/DuW86G1Eoa/gnuBezGy6Vkunj Q4hVKrGgmXG4fEXh6MUCxCpqFHDUiYObb+C0dwxOjvJHblAq0tYfERMZrLeo HLwV9ycC0dpB+8QFmSq5vPDT7rVHdjCheg85oKwzGcjceRlFRa4eTd4/ex/z ojQ/0OLVWuimVIuDPuqMoe83QEz4sZKaw9yYRRkWXpKUcvHcWSfWLbuO0AlH 0b5mPXzw4pvo9eV4DOjZHeN7DkbXFn0xdcYqnEu+yBejNIHs090UKezpPwKQ 7LuP8GmXn8NSJSqvUXIX0RvpN89Hic5j1G+6fTQWfusDMeF7L+XaWHT1+ApN 3myFdg3qoftbHuj59uuIDtfOXAxWwk6C8hd8RJH26iw4ZoQhUCm7sw4mIWVV ANIcsY8y7WYU6yjHoeubX+LT98dgyJdDFU1/FR8qmj64cyeM79oJa5Qhnfrj oJK27Xcd0aoo9u1fv0T0znVIGD1Mg5udYMC1690VaZP/eAfyb9zT3cij2H/O 3H4ZuSASjuFbkXvkIq78c9CAI15vVa+Gvn36YGSrVvpINLiJ0Uk4t1ZbOnlG lzDfPKeU1lXvV3XdmVs5nFewxW84iay9VxRtNtoWeWPzffRJGAtgJ06gTYM6 +LBdYxw9EICiK/El9d7Zmkzx/q8wRdFa126Gz1u2xY8dW6HXWx/j19mrkZBy EY+7Gxn5InKjQYob1X72CN6r9hI+eflt9VOPT8fBb1OQ+t7ry5/RtdG3+Pwz 5dqWIMRd1LoPvBfOh+/SBeQRDscryXwiaY2GJnjINmQduuS6ptH4rJrHCotZ PXsWU+Hl6PpKF/X9+NE+Kq7Jo710tf4K9aq+iHcUq+nRtj56KVazY18oohV1 W+JbiKAFiTgmCt+9cUj4e6emNQ8gVYnYxz5uD+fu2Tg6fzEu9HkfBYf+siYr NI9hZbFo6/lnaAAKcqlNVZvMPZKguATFKx8LUTLeDVp/YIeaDdGtlocqPkr1 x3+yF4mLIpF7yqGrZUXT4VC0Wi820Iv5IotW81kiVyeDq7oy+hf6HEbejhjc zEg1Fo+4+tr23sk3fB49VYTb13L1G23VtlLpoZNxNHlJcUyN6+LL9u0w8ING iFi/wtgKxH/PtrlWUP0wvT6r1woDPuuDvu++Tao2/sclWOevHdOjzQ1WM2Dt Vaqgs4pq7j2kgQidF4PQETsRPjsQVzaGItLb31ix7lTtRXz6UkN0ff0T9beT Jy7DhMlz1fddX/lAiRX9Mf6HJfDb6rKEJd5i5n4hTocfN86S3hvtRLyC129V PkJnRuGQp59aESmpj26e5bGl70Dkjv0Mt2P24MTgIbj1ey9Y+nRIxou/3IHC DKfuC9yxtgJ8ZmvFYdcm7dX/j+qiGhS51nlLbyEw6obJUYqjr+j4GVnn0XNm rRTliUkrpesybrd5pl0pRE76LSancsaWc96Q7mKBNilUGYcVn1V0VgsL7uY0 ZKxhiyUV4Ag9juWLFyqVzEIsWX8CWWEOXI+KpVMuLYOm/9Pdwue2eOk1dG3a GL3btcTATu9h8q8zZT1c1inYC0pBcOaCE5cUKrauu40pfWajy8vN8UHttujT 8Qt8/dZbmNBrKKnztClLsXH/UT2qaioVrNy6Qynmd6zIxYnJoYidG4Ir64KQ btQSFdTpj9SfR6Jo8wyk7l4PR7cOcO6dQyna7kkncTv5nj42d0FRu9bBoy6+ /XIgTH076w44ceUWVwzzPJpFWYR8aLLUddC0GxXhLcekDlWY8zngKMSS+XOK HwQjX4mgamf5YSduX88xaZzl96Zp5b5ffIX2Devi01Z1MXjIQNzNOA/3Epbx r6JihnPRuk59fNG6Nfq3a4E+bdrhlzEzEJ2YrOmoy5WzCZGKiL7iRPg5sQCg ZIB/p+HEmANqypaycr8+vkqqp1o6a5Y6gZE26CM4z+yCf79BuP5zd1yP2UNi /eeng8iLYXssGKLiiu6zaAH69vMyyXqTUnRkFphlLXhP82IWWfMJsBJlbW2E FhncQzoTrMa9fo+i00mXcTcl1rqbxbSk43vMifxr2k6TKhK09HtSjB2KPWUE BaPwfKw0/LhvJ6uAxq/UQmclhH3+dhMM6f817mYl4V5y7EMWfSzuGGXgqmDf kST1+gHv8zhqzmXUX/Tr0Q3tqlbFd9Wfw7DaVZG4az32d2wL59bfUZh9nmS+ aPQmpB27iev5N92bt0ksk2Zux/Hj2qq4w9ufMhd/hxO5d8yi51OiNqJ/0obz 1uZlIfUSsmLiWrAST/P1jRQ0N7w2TIkEuWnqJ9fp/nYLC8sO3MO1c5FwZiS6 T5KlOZESWhcvwIql2hJtRLoTWZcu4OaJ0Ick9NpK+xF49dyuXr93LAaF584b ucI6JVeY0msGOtRogB4v18IPLWtjqEdNbP28GZzRu2mr2txhq5Gy7zruFXGy K+qDXbAqBn7r/JTk9RK+9hiGy0p0MFoFTjtx455ZrHySUhcrzZbx2Ujqt+Si KyEzJGUSZe2dUwEm0W0Se+BzUk3Xriq+JiMlRZ3HdfWzuXSWgnvydScC45UU 4myQVMtd3rycHgiiD99E9l/7UXhYW8j1mT0HLZTa6SOPFhjRpD5+6/IG/JfO IQbvWRKMuHVZ6owrrSXt2ByGRau0Q0mjHIkY6TEAuY5YUrb+w48g38JZPuti 4SwvWJvrGsp7cN005TFmkEgPnSqA85aWqcvXU91f849RBJOtbaB9RvI7V5BS vrh8Qyl6RJuEgkz9sZtMNTjVibyIYDgzk1Dagzqsaafrd5VxXEnc4xUDydoW h8MDZ8CzUQt0alAX/Rq/h0kdmyM2ItTQgvOOVIQvuqi2llCXqGDr8DHTDVxe nqvh7TmThjv0h2ix25LxQDt4gddp4v/PuxdgC/02EiBPSG1nqORSScx0Iu1C CgqooaTUeYdi4ErucDczEUfXHNHvLV7VcibTfQlKdnr8wg3kbtlgpGElCY1I OxpViGSxwTMxAlH/BFoXBSwo3fpFpkQVkKDwYF+oE3GHriNj5i6s6DEKESON NDZGMcBDv8WgKN+8pWrg4F/gvJ1jIPHyXIStnjNNbBv900UU6ad78BM4rcW4 ReD8iAraU8ZbAZyl6xI8pggo60AY0g+FazmHtZ9R4xG7Y8n2VOQpGdDVE2Hs DlmhRnV+VHIR9gXl4tqadUjZ7bBatr0RlkO0EtsCQtNwbacD106Fu5pYLF38 pqgTnuSE/957yN4UjatLD+J2dJwRdMUeky3jjuFaTr5pb9fon6bj5l0+n5iG Lzy+Vw/AoGvjJivsLbhm8qt8U4/Fr/Ipk5a6/vMaRKr/pjaaPeszEXooD1lp OcWSQhnn+L2XLt7B3pAc3Louv1fWU02CPLg7D6eCbiA7LVurNqTbiMpi8ewL 2BF8FbfycqVTnSSQGb+GYv3iOJw/eBWXp2/Hrd1B7IyJWKwaeEAJwK7GTBFx RBp3JjbWKBKiHEno6zFYbZcUVybMUoq86xfpFl73/dcsB24ZsudeuSofNw6y qoQF1Yx3MkbKHtDlRtO1th1tfWBpc+1MLdGas+/AXVxdF4E0nz24eToWfbt3 Q9vqVfGh8jfyza4oSNMLC0v15m4Lqihi//onkPbO+XkHYmJ9LVOe5nMH966n ohS85HwjXhY7uO/f89LNTTUsfLPnpXZtrucKZK7x139XCRevOnH0lBPJBzLR qVZ99HjpNXjWaQiv9i2xfdFsrRh/0ISC/i9YKeYwxYvHVFqZGTTsFxxZtIyZ UHmM+noymjz7HH5fW4SPqz+PmNAQ6Y4BC385L2X8lU2fEvOqSzgi45Kbp8e5 RGFJpl5nMLa3G8bGIXZfzEHbOk3xRbOOGNmsKfo3ew39mtZ4XGc6cY927NAp reJFrR7KSBLOaNPyk8ZNcG1s09qpmj31Okb1+QHfvvESvqtXTdqLr/OQB1/i WUt2jTojfBk9ozwm4maky8v4zPoTzZRq570GzdC7SVMMfrsutvv+pVXwlU1G JV6UCrOjC02L2AcCQ2jm25hvrv4C2r1YD307vA+vt1tjbOs6BlHFGtIhPfyl peQaJ2qddwiOD/vTWCrq27MXmtWtg08b9cLGjl88zIgRICSHUhu64ZqvZPb5 kHoLbSgSfw2qvoL3G7XDl22aoG+nNhj1STsk+J5VnFcQklbv4c+dEbksLZ4J Wp8z08lzWRmdy3RBWTwEpjT4CQVnY4nkMUvvqkXnvMajcTshtrKuj/zpXBKS 3bgfLYyZtz/w0lN8Xt7jH4we9j06NK2Ln4d9i+gIrRHp3AUnDm67haTZCpbA WOSejKUZdyFta6JXCm7wa8sNc1W+mOK5DmfHzGZ2X17hwRXMCdKG/LtSbFzy 9dcVtPjUlpCGfgq1NQtmWUnFYmwQkWX1jxuQH3fbiPgXlRx+f4gTpzdmIPqn Lbjmf7TYY7UkWl48ZTLTu1K/JkS7oMloE6l+S7OxI1prhPbzPoHVLUYYZi0r YRWWP2GwjyqwiQN/w+QfJ6k8oOZ6cRbE6eP3NIVechQXV+8ptrFU/D17f7Ss 0sc203MVrqx07Rn22+tE9DUnrQMObDwZkYtWSq2UPHmiIxnxS+Kww181S1eX m5728lecopAHtt1G0hxNIUXbL60z88BvoUaWRBWn5iGV8xvaDDeo6Tn4FFLy 8g2rGzJoBH7q3Z8UjbZriCzw4PjDSsFkMi3ZCV7ldPdF15KzlGQp2IlTmzIQ 89NWXN9xFPtFO0qkq+bnEddCmCyj4aJbrf77AIZ5TEG6n1Z39R80HmPG/Ehq pN7/g8cvuLrVv4YutlVfrsPdrPxihsK3EHPlcX8wXzmEKgp4SlHAOT0PI2Vx aCmIkqURnKgVzAVQCBg2ZDSG9xuINb5+mLztlmES672DcWIo3w5eFpvG7UBB Qr5p5MU7bko7g10Wy9fmIfZ8ni5Z7RqP8Dp5fFGGonkrCXnLdJlxd0+pB3m4 72p7YvTXq/FPZL7r6JBUJY6MQ36Ma6PS/KG+yD6UprsC7RqPfvKOeeVFqzt8 Q4ziYf9rpoSHNqKEm9oSJij+EuiJEr7PueF/X8DHzWbip/GzMfXLbsbwpnj6 IfoHLTaQklxwXETi8gQ47xUZ603WsGYTFfmDVyiMlZGQyL2EjMRFEl20TjXS 1qz+3T9Dm+qv4aO2gzB+gCf6N3gBsWEhrh1kl/CXFvEN9MKzHJl4FM58p3Ga ADdGZ7E4R3PxPE49WzJN3JHMZzQJBZQ5b1nxrn0yHxzX5+3O+PmTzpjcqTn8 Bg8xRPqHEjcu6WdN0E6Tf77ZiMIs8wNMuV3KZi0spHE7ItK4O5lrIU2WPWiG 8mixJI3/33vmArzXpJP6+avWdTHww5Y4djAf2T5HcCcowmCPCCg+zQchJzrJ mBfe9vMeFOqbOWkinhulbDH4mfsjc7YbMrnL53sq6T5OouhJ2z05vKweiaOU lFBcPnhG+SrKibTtCchbHYQdU/yw4IujyPrHtQtp4XClej1yRf1EE43cNktB oSxic8f5B6NQVLcyHZWvaLiubRgVyFyEvMFGLCNfTHVi2+oszJqfjZitocYS drIjBcmrE1UX9AgbIxkn0cJDnYVMWfzmZP5mESQ93IXHAtfClTFtqW/KLbha QntSeXVNIPFMEbLWn1bqnb3qZA35RjHbGDwlBM4C18G33B7Jbnmss9AnC+U8 akwrhaLSQTI0/EPTz3B7lFFHiXyikl0FOBQK92fi9s7TyN0cYJw4uO67zbiZ oe0cJ4q5GZIy08k7wkXo3oYIl0Vy7lwnlRAcDCWxTCk9TMp3UaH2QCGuLg/B 3WNn1FZ38hi7vPbjTrLWrv84Gw/Z2JM6DGEc1CEnHkIoIUMWxjkZv0iU0EoG TQL4jt2N62e0YdEQUnOcOHnaicu7knFz/TF1oZZ6HReNWIm80Gvs92Ybomf8 Cp/Pn8Ip/L9rr81jZoJkAY5f+7kUUYCSxQWj1iE1OI8pt1KXJisqpTiF8ICb yJy7HwUBx0HTPqJv3Hf2LPjP24hLa5NQdO+eoUrceMiJ8GAm24D6yP2RNlYH JGQqMShaIJ47dBUu7r2Gu4rrUkdH67vi6yPnnIhTfELm5hhcXRaAuX0HoG31 avi4Rg2M9GiMs0dDaDjcYHhnD4lKlkpbKJLFMr5VeHQpPD1t0UgJz1CXm4vu ubIKc4aiwTqX4YT/pmC86/EWetVpiiENm2H0W40ws293k3GTMRFpPGD9S9L4 tZFu9JB7d9ocqS7IeqeoG2OtBxlonzTBi7bFpjVeQZcmHdDrzYYY3KIO+rV4 0doR5nKs5vjkckIWm+IBWUYLzazyCVNqwSNPboya5HXWcQFH/jirRpiqbokq j0Y1XsVbjVrjq47fYn7jgdjs+5fBBG5UT7ijyAK3ipk2fo6tjLZBpVBBfjYD oSG1oxUnn4l+2P7ln7id6DpXT6RZ28cfx43r+YbPkbHAcSwUn/aYDd/5UzDZ 0xeB/WcaTpdbIcUCHpRd1YGEcEIkq276Szy/tRQtXyLh5TCx1wmk7LqKOxFx yNkQ8LRBeyzWDjuEW7lFxhEMlqybSrs/tlMjeRoGeIxBlnKrrPONNhNan9In XLuem8ie1dZav8bzMU831smr1woGZ2WlNO0bTlDi9PmUPLVrdd/OAqR5B6Mg 6Iw4DtpQ2b+/3qkUP2yNg81aVoCfTzJ2R980IPt5h+GP+oP5GjBZNfX+8Sdk 01OEaIrewgmeABAnuGp8yzjhLo9x30ot6x8rj0tKbhoa5sSFzcm4tvYYrqzd aySZ+6acQn6qdrwArYqt2+PE+Twz3Ameq7Ffb0qQuQMaE3+EN93L4+7TZnbw eCpjRy+JVVjZQXooswpqtT2npBHBu27iypyDyA8IE3vljJplg1cgbsZrx6vR k036jYxD3p1CExlRjgz08fBSO5dl7uDR/zm5Pd3YAc+WXHu9XAGkik7mQaVa PHWyCCnrzimZ7BHkx5wzyvslP25D7imtFqYnn0xaddfi/QSZKZjiMQR5p+Vm T5rDA/RTZjJlwZi7gM9tzJ0CWF2dJLE2ckFJzsN3Xselabtwc08IaG1abPEM DwnB/JFrkRp4A7fv3jFIE4ddbjh1lzmHshjvuQ7+FiXm9vzovyON23Q3Rpq7 +PWmITc6OyFYSQNjFbldXh2JDO99CFriiyY1nkdnJRX8vNrLWD3gT9E4qcYS 2jVJKq6/KMv321SImKtO3Zlp1772mIj4Jf5ujVf2HGYL3bKchGvzxxJDteZX 2qM/3Oxtr4R4JVNMVSQ9fZQPPn2lMXrVqotxbdthePNaiHEEyzq85AekakAT YpIM5pj6L8Tk388ew9UFDZkdU0MlD+sWbsiCOefGh6VQ8EZyblAnWuNqNdHx zeboVb85RjSri4EtX8HWJbPd56PFD87hnNq7PgUrfG7wa6QdU4asxaT2E5C5 N0Rq8A/qA6UnO+kT1E/fH0s6M5a4C2zNDcOgXKRfty/QpnZtdGnUHnPbvo8+ b70mzV5NRyvQF+dO5yEyJg95twp4arjXLwGrxl5EbuDpYqd2i1HwdQUR0cUI yzCKn2b3WJMaTvG7EpOwUuzmoHdqDfCZvwCt3+yA3xsMxZmI41V1rsgEXdqn 6JEVhEUojLmpzR4QF7hPqKwPwTITYOGBLKDxirKDG0PgAa2NnAckLq8lhZjp uQhpK/z1uS6327SKG0XJ/KCij3sAWjjjkfypkgnnseGtEtRdeIH2hrqT8/7F 967acLWrQ3/NFC2Pg3C3EUb/v12rE1+sIfp4nHvy/uhrbRGszJy76tKauFrL L8d7jED+2VjXmViuBIY/q5LssBSjLD4i87UWpVC/T/VRTvbTGDbV828k/e3f TQeXmJhosQnZSa62I+Kxs6mbEfHI0NGQtyrQci5rKIepG6kqCcbaVgM+Y9q7 fv169VOlkkfJRySrxxqyUbrLYj6w10Uqp0QYnrbViZsJ2ik5ozxGIXeb/2cM K6klWXyx41NdA+dRRpZAe0h8rrWK7mrjReksxf2bLmPlNnGeV7Z6ZYP3fkSO mkmj5mpKyaisDH7q/kb/ho1y0Og/NmxGNitGrejxZ28rapiHG7f0U2YcyVjU ZFB3iVLTrIcYOz3mRrwXiPXx05wcT3TbSMb/eglOT6DrLhm1zFeTrQ30GINs /fhlru0UeYkL3Fc/aR62zJfx4P2aRGmsw+5pGaLmvkzO2XXqdQBCh2pVBlHL 1bwcGzGBK8WIOfNfLoVf62kMjB2baT6C2H0/vlYGeilpx+XTiQYVXO2J79w7 P1EyFbJjjt34wv6S0dltI0mIOo9fO6/F5Vnb0cMiZpeh2o5Y5r35iKuVwi8O MLhdvA/+j2nZiIvUnrBJQ+TKTKRw132fQ3xOoszWQmxIKTn7rUR76XfcSVuG KIsufIjP2Lg5ioEjSjnEb3RYXDXFFb6UaDEumRfmw3uiFF5spGFcLvunhSUx lHHjxlmXAksxCi7bKm6ckmAujSJJ94Dbtm3D1KlT1U/kB3V0tPAgc90c3cOl 8CiXdPdF6qCjsmDirJRhqlwK9lIbFZcqme0TJaPjCmhtYpWhy9TRCRTkMapV q/Zv0JUtBR+vMnQChTjZrFWrVqrFW9BxxmnoHjCpuY0JXWNY6IHMgijht2yw 8MRe6KiMX8n6fWKOm56K94h+H0+DqHqmOXGLpnC+WTN1cltiCGb9M3tHrUio ZKC1nlIjhqegfsaMmRtfUx2CO1aKPnRFIS5L/F4FhpxYzJHrB5Q87x45T7Td GQMFBW7CqUwCpjPS3EiAjkrRuk6NlRAOsr4bh8OHUsHtUCobQ+F9jNZFkZfM 6Lkx1SuF4VSW3JdikYFAK14WGbzqHnMdXZZuFOBhyS0XxL9lVJwVTLymg7QV jLXdY+QJp7s0oorkvkj9mlBJymAqWqQuY3s981C4uVszSVm6ICOBhlJ8+bdE c6jvfjQvuFECnhnIKu1I3ReQcVr3j1hE09g8Au6HSpPhyRr3TzMxiLxDvKxi aG5Gy/2ALGuz1q2yc9hPlo7lrdxjtkvGCHNNCaMO6dcEZrMuViqJ/a7jtF27 ALUJIGNJnTuYJ0vhI1+2GSH3keWYmNxZi+3jlGSTa8aoiz9v3D7voLUqHtG1 UT9oGnUJwc3dtOh9jvgRy4hlHri2RIMCmNQPHDigZp8Sqbs52fg+B+nudHju Id6QDHK/RPDDhg0zCf6Ffz1CbpIV2QjdeRAP/T6+A3EzMyhCww3KRgFe/r8y 8HIW1spCQUM2cCpaN0vQ8FBgPTyQ6cRrhv1bp4L1ET5oPa7AVvBNJN5DG10F U9XPMqQy6pDKGjogvv6Cj6CiKiB3fqeFREU3MdppIlAitF4cSzkrZFlhus7G 2TOm9jaLmJ/Q0kYCdYlE7ypZrEWWzPflMcW1VUIMShm/bAmQMAmFEJBcSlei hg/QkFHxzM+Cpl5nvuy0RFcePilYQojUJ0VMCyDENpIyt5YZjG1C/8QnOvOO HnIvY5s2sWHqjCI0zW3Q8HDwYOl4NkrD9CwTEONbUxtkXEDcBdmwb4yG7DmL gAQkskpuyTJM1tgsq1+0dmLpw5bpQX48mGpoHiimB25C/wQNelXGMaHSOsfI 9/Gw8hvjjlA+LnXGncka4OoS7jSQQJ2qOUPb8uJXDWQN/XYhc+JEfQnIsYzh 5OcqWBguS4Z+19DUZCwRaIRJKyypx+RA4WCcfq34g0pKVCL9WN0XLWziMZ27 dg1TZRVSdna2Xcqp70YyzhYXoIVoBbvqSlzVGAtrZOm8dqiakXpyXawjATmq dDzw1qC+whgufqnz4XUJYJonFyoggIhP5S3x1w1bXCce6g+Nfc3CenFvLRuc xY/7/1e5ta7M1lVgwUoaEXfv/XXBC+ze3t7/JjfWMb4uj160aM6do2fpWOom zdXx1bHwl9cuHFlvCS9Lma7qmLhWEy9fkmCitZ3iVdK/TTv1AZDFcmGSZfNQ 0F2PadaCxyZt1MTG9baePMhR4cpjAieY3LUsC9TOsDRSdW4R5HR5M/snpePZ Xg1qfQlzZA/qfUe/xrMMu1lHxqSDGqYGcg2XHYL5DuNMaSYViVvaZKje0GbW bd5PRgFCbW9QgrJ1wtANx7TjhI3wzgOdbHM0ZRtigCTKBy0cczNHqD3PQIdQ LNbJOrgJGY91pcmdwzRMzSQckzXgEBpuaKW0US0cGKklYRLcky3TNtH5xTGV lDhHaSgoSeYqLVs1aaLzR7zcpXlnNZAtmSRYIiabF2hQiuATr0FtbeGFsGja lcg9IwWB0toe40mihqmNhCVVbDAVi6Yl5IDaIZhoKzfxR9xiKt1kvbbigbcl Skpz4tyPv1Q6I9POXUE7SXh6SAK1Rumirtalo3XUWRhOOxN4DHhKwvDSTA2q mmeZuXQ9IR7mAxHV32mVqN4HWSw+0YIG98JPuYmHdiZ4H1OWDS3X3P3OR/u2 o8RYKklG/SSTk1gTELKRyMn1RIj7eDyJFljkDVt/a+/elQi+ArtGsYfmdOyE XP3/GTPfkxsqNabwyEKDd5fU27j8+5jGbODSXdcJoJwYnb2dJT5Atiypjfoh k+6S/tpY7yulH3Ez99x9n7GMdIBA8FBBPpxXD5L8upbBG9fcZAvjnc6YLjpE S65A+EoZpFUyND+lbx14yGA1rR2UkBKrILT5J3zEpCVsVKz6yzJc9R7NIvT9 G2WNssn4Xm8BVN8P/N/3/7+9x3/+D7mdajQ=\ \>"]] }, 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.5728428348257847`*^9, 3.572844793799225*^9, 3.5728450621352963`*^9, 3.5728457685669374`*^9, 3.572845986000119*^9, 3.5728461963664885`*^9, 3.5728465339042816`*^9, 3.5728469930130877`*^9, 3.5728472854668016`*^9, 3.572847362780537*^9, 3.572849432857373*^9, 3.5728496949378333`*^9, 3.572850389997054*^9, 3.572850495250439*^9, 3.57285060967664*^9, 3.572850695663991*^9, 3.5728510990027*^9, 3.572851186316053*^9, 3.572851273988207*^9, 3.5728516016199827`*^9, 3.572851737964222*^9, 3.572851830955985*^9, 3.5728519731502347`*^9, 3.5728520144591074`*^9, { 3.572852047141165*^9, 3.5728521590557613`*^9}, {3.5728521904586163`*^9, 3.572852216448262*^9}, 3.5728526434990125`*^9, 3.5728602418688126`*^9, 3.572860276547673*^9, 3.572860317154545*^9, 3.572885706803817*^9, 3.572886480331176*^9, 3.5728865826829553`*^9, 3.5728867706944857`*^9, 3.5728868897226944`*^9, 3.572886980202853*^9, 3.5728871245967073`*^9, 3.572887173034792*^9, 3.5728873081778297`*^9, 3.5728873764279494`*^9, 3.5728874096248074`*^9, 3.572887734900979*^9, 3.5728878907920527`*^9, 3.572887965094983*^9, 3.572888070691569*^9, 3.580057179891738*^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.5728428348725843`*^9, 3.5728447938460255`*^9, 3.5728450621820965`*^9, 3.5728457686293373`*^9, 3.572845986046919*^9, 3.5728461964132886`*^9, 3.5728465339510813`*^9, 3.572846993059888*^9, 3.5728472855136013`*^9, 3.5728473628273373`*^9, 3.572849432904173*^9, 3.5728496949846334`*^9, 3.5728503900438547`*^9, 3.5728504952972393`*^9, 3.57285060972344*^9, 3.572850695710791*^9, 3.5728510990494995`*^9, 3.572851186362853*^9, 3.572851274035007*^9, 3.5728516016667824`*^9, 3.572851738011022*^9, 3.572851831002785*^9, 3.572851973197035*^9, 3.5728520145059075`*^9, { 3.572852047187965*^9, 3.572852159102562*^9}, {3.572852190505417*^9, 3.5728522164950624`*^9}, 3.5728526435458126`*^9, 3.572860241915612*^9, 3.5728602765944734`*^9, 3.5728603172013445`*^9, 3.5728857068506165`*^9, 3.5728864803779755`*^9, 3.5728865827297554`*^9, 3.5728867707412853`*^9, 3.5728868897694945`*^9, 3.572886980249654*^9, 3.572887124643507*^9, 3.572887173081592*^9, 3.5728873082246294`*^9, 3.5728873764747496`*^9, 3.572887409671608*^9, 3.572887734947779*^9, 3.572887890838853*^9, 3.5728879651417837`*^9, 3.572888070738369*^9, 3.580057179941741*^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.5728428349037848`*^9, 3.572844793861625*^9, 3.5728450621976967`*^9, 3.5728457686449375`*^9, 3.572845986062519*^9, 3.5728461964288883`*^9, 3.5728465339666815`*^9, 3.572846993075488*^9, 3.5728472855292015`*^9, 3.5728473628429375`*^9, 3.572849432919773*^9, 3.5728496950002337`*^9, 3.5728503900594544`*^9, 3.5728504953128395`*^9, 3.5728506097390404`*^9, 3.5728506957263913`*^9, 3.5728510990650997`*^9, 3.5728511863940535`*^9, 3.5728512740506067`*^9, 3.5728516016823826`*^9, 3.572851738026622*^9, 3.572851831018385*^9, 3.572851973212635*^9, 3.5728520145215073`*^9, { 3.5728520472035646`*^9, 3.5728521591181617`*^9}, {3.572852190521017*^9, 3.572852216510662*^9}, 3.5728526435614123`*^9, 3.5728602419312124`*^9, 3.572860276610073*^9, 3.572860317248145*^9, 3.5728857068662167`*^9, 3.5728864803935757`*^9, 3.572886582745355*^9, 3.5728867707568855`*^9, 3.5728868897850943`*^9, 3.5728869802652535`*^9, 3.572887124659107*^9, 3.5728871730971923`*^9, 3.5728873082402296`*^9, 3.57288737649035*^9, 3.5728874096872077`*^9, 3.572887734963379*^9, 3.572887890854453*^9, 3.5728879651573834`*^9, 3.5728880707539687`*^9, 3.580057179958742*^9}], Cell[BoxData["94"], "Output", CellChangeTimes->{ 3.5728428349037848`*^9, 3.572844793861625*^9, 3.5728450621976967`*^9, 3.5728457686449375`*^9, 3.572845986062519*^9, 3.5728461964288883`*^9, 3.5728465339666815`*^9, 3.572846993075488*^9, 3.5728472855292015`*^9, 3.5728473628429375`*^9, 3.572849432919773*^9, 3.5728496950002337`*^9, 3.5728503900594544`*^9, 3.5728504953128395`*^9, 3.5728506097390404`*^9, 3.5728506957263913`*^9, 3.5728510990650997`*^9, 3.5728511863940535`*^9, 3.5728512740506067`*^9, 3.5728516016823826`*^9, 3.572851738026622*^9, 3.572851831018385*^9, 3.572851973212635*^9, 3.5728520145215073`*^9, { 3.5728520472035646`*^9, 3.5728521591181617`*^9}, {3.572852190521017*^9, 3.572852216510662*^9}, 3.5728526435614123`*^9, 3.5728602419312124`*^9, 3.572860276610073*^9, 3.572860317248145*^9, 3.5728857068662167`*^9, 3.5728864803935757`*^9, 3.572886582745355*^9, 3.5728867707568855`*^9, 3.5728868897850943`*^9, 3.5728869802652535`*^9, 3.572887124659107*^9, 3.5728871730971923`*^9, 3.5728873082402296`*^9, 3.57288737649035*^9, 3.5728874096872077`*^9, 3.572887734963379*^9, 3.572887890854453*^9, 3.5728879651573834`*^9, 3.5728880707539687`*^9, 3.580057179961742*^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.5728428349193845`*^9, 3.572844793877225*^9, 3.5728450622132964`*^9, 3.5728457686605372`*^9, 3.5728459860781193`*^9, 3.5728461964444885`*^9, 3.5728465339822817`*^9, 3.5728469930910883`*^9, 3.5728472855448017`*^9, 3.5728473628585377`*^9, 3.5728494329353733`*^9, 3.572849695015834*^9, 3.572850390075054*^9, 3.572850495344039*^9, 3.5728506097702403`*^9, 3.572850695741991*^9, 3.5728510990807*^9, 3.572851186409653*^9, 3.572851274066207*^9, 3.5728516016979823`*^9, 3.572851738026622*^9, 3.572851831033985*^9, 3.5728519732282352`*^9, 3.5728520145371075`*^9, { 3.572852047219165*^9, 3.5728521591337614`*^9}, {3.572852190536617*^9, 3.5728522165262623`*^9}, 3.572852643577012*^9, 3.5728602419468126`*^9, 3.5728602766256733`*^9, 3.572860317263745*^9, 3.572885706881817*^9, 3.572886480409176*^9, 3.5728865827609553`*^9, 3.5728867707724857`*^9, 3.5728868898006945`*^9, 3.5728869802808533`*^9, 3.5728871246747074`*^9, 3.5728871731127925`*^9, 3.57288730825583*^9, 3.5728873765059495`*^9, 3.572887409702808*^9, 3.572887734978979*^9, 3.572887890870053*^9, 3.572887965172983*^9, 3.5728880707695684`*^9, 3.5800571799737425`*^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.5728428349193845`*^9, 3.572844793877225*^9, 3.5728450622132964`*^9, 3.5728457686605372`*^9, 3.5728459860781193`*^9, 3.5728461964444885`*^9, 3.5728465339822817`*^9, 3.5728469930910883`*^9, 3.5728472855448017`*^9, 3.5728473628585377`*^9, 3.5728494329353733`*^9, 3.572849695015834*^9, 3.572850390075054*^9, 3.572850495344039*^9, 3.5728506097702403`*^9, 3.572850695741991*^9, 3.5728510990807*^9, 3.572851186409653*^9, 3.572851274066207*^9, 3.5728516016979823`*^9, 3.572851738026622*^9, 3.572851831033985*^9, 3.5728519732282352`*^9, 3.5728520145371075`*^9, { 3.572852047219165*^9, 3.5728521591337614`*^9}, {3.572852190536617*^9, 3.5728522165262623`*^9}, 3.572852643577012*^9, 3.5728602419468126`*^9, 3.5728602766256733`*^9, 3.572860317263745*^9, 3.572885706881817*^9, 3.572886480409176*^9, 3.5728865827609553`*^9, 3.5728867707724857`*^9, 3.5728868898006945`*^9, 3.5728869802808533`*^9, 3.5728871246747074`*^9, 3.5728871731127925`*^9, 3.57288730825583*^9, 3.5728873765059495`*^9, 3.572887409702808*^9, 3.572887734978979*^9, 3.572887890870053*^9, 3.572887965172983*^9, 3.5728880707695684`*^9, 3.580057179975743*^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.5728428351845846`*^9, 3.5728447941424255`*^9, 3.5728450624940968`*^9, 3.572845768925738*^9, 3.57284598634332*^9, 3.572846196709689*^9, 3.5728465342474823`*^9, 3.5728469933562884`*^9, 3.572847285825602*^9, 3.572847363123738*^9, 3.572849433200574*^9, 3.572849695281034*^9, 3.572850390340255*^9, 3.5728504956092396`*^9, 3.5728506100354404`*^9, 3.5728506960071917`*^9, 3.5728510991431*^9, 3.5728511866748533`*^9, 3.572851274144207*^9, 3.5728516017603827`*^9, 3.572851738104622*^9, 3.5728518310963855`*^9, 3.572851973290635*^9, 3.5728520145995073`*^9, { 3.572852047297165*^9, 3.5728521592117615`*^9}, {3.572852190599017*^9, 3.572852216588662*^9}, 3.5728526436550126`*^9, 3.5728602420248127`*^9, 3.5728602766880736`*^9, 3.572860317341745*^9, 3.572885706944217*^9, 3.5728864804715757`*^9, 3.5728865828233557`*^9, 3.5728867708348856`*^9, 3.572886889863095*^9, 3.5728869803432536`*^9, 3.5728871247371073`*^9, 3.5728871731751924`*^9, 3.5728873083182297`*^9, 3.57288737656835*^9, 3.572887409780808*^9, 3.572887735041379*^9, 3.5728878909480534`*^9, 3.5728879652353835`*^9, 3.5728880708319693`*^9, 3.5800571800467467`*^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.5728428356993856`*^9, 3.572844794626026*^9, 3.572845062977698*^9, 3.572845769409339*^9, 3.5728459868425207`*^9, 3.57284619720889*^9, 3.572846534746683*^9, 3.5728469938554893`*^9, 3.572847286324803*^9, 3.572847363622939*^9, 3.5728494336997747`*^9, 3.572849695780235*^9, 3.5728503908394556`*^9, 3.5728504961084404`*^9, 3.572850610300641*^9, 3.572850696256792*^9, 3.5728510991743*^9, 3.572851186908854*^9, 3.572851274159807*^9, 3.572851601791583*^9, 3.572851738120222*^9, 3.5728518311275854`*^9, 3.5728519733218355`*^9, 3.5728520146307077`*^9, { 3.572852047312765*^9, 3.5728521592273617`*^9}, {3.5728521906302166`*^9, 3.5728522166198626`*^9}, 3.5728526436706123`*^9, 3.572860242056013*^9, 3.5728602767192736`*^9, 3.572860317357345*^9, 3.572885706975417*^9, 3.572886480502776*^9, 3.5728865828545556`*^9, 3.5728867708660855`*^9, 3.5728868898942947`*^9, 3.5728869803744535`*^9, 3.572887124768307*^9, 3.5728871732063923`*^9, 3.57288730834943*^9, 3.5728873765995493`*^9, 3.572887409812008*^9, 3.5728877350725794`*^9, 3.572887890963653*^9, 3.5728879652665834`*^9, 3.572888070863169*^9, 3.5800571800747485`*^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.5728428356993856`*^9, 3.5728447946416264`*^9, 3.572845062993298*^9, 3.5728457694249387`*^9, 3.572845986858121*^9, 3.57284619722449*^9, 3.572846534762283*^9, 3.572846993871089*^9, 3.572847286340403*^9, 3.572847363638539*^9, 3.572849433715375*^9, 3.572849695795835*^9, 3.572850390855056*^9, 3.5728504961240406`*^9, 3.5728506103318415`*^9, 3.5728506962879925`*^9, 3.5728510991743*^9, 3.572851186940054*^9, 3.5728512741754074`*^9, 3.572851601791583*^9, 3.5728517381358223`*^9, 3.5728518311431856`*^9, 3.5728519733218355`*^9, 3.572852014646308*^9, { 3.5728520473283653`*^9, 3.572852159242962*^9}, {3.572852190645817*^9, 3.5728522166354628`*^9}, 3.5728526436862125`*^9, 3.572860242056013*^9, 3.572860276734874*^9, 3.572860317372945*^9, 3.572885706975417*^9, 3.572886480502776*^9, 3.5728865828701553`*^9, 3.5728867708660855`*^9, 3.5728868898942947`*^9, 3.5728869803900537`*^9, 3.572887124768307*^9, 3.5728871732063923`*^9, 3.57288730834943*^9, 3.5728873766151495`*^9, 3.572887409827608*^9, 3.5728877350725794`*^9, 3.5728878909792533`*^9, 3.5728879652821836`*^9, 3.572888070878769*^9, 3.580057180086749*^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.572842835714986*^9, 3.5728447946572266`*^9, 3.572845062993298*^9, 3.572845769440539*^9, 3.5728459868737206`*^9, 3.57284619722449*^9, 3.5728465347778826`*^9, 3.572846993886689*^9, 3.572847286340403*^9, 3.572847363638539*^9, 3.572849433715375*^9, 3.572849695795835*^9, 3.572850390870656*^9, 3.572850496139641*^9, 3.572850610363041*^9, 3.5728506963191924`*^9, 3.5728510991899*^9, 3.5728511869712543`*^9, 3.5728512741754074`*^9, 3.572851601807183*^9, 3.5728517381514225`*^9, 3.572851831158786*^9, 3.5728519733374352`*^9, 3.572852014661908*^9, { 3.5728520473283653`*^9, 3.572852159258562*^9}, {3.572852190645817*^9, 3.5728522166510625`*^9}, 3.5728526437018127`*^9, 3.572860242071613*^9, 3.5728602767504735`*^9, 3.572860317388545*^9, 3.5728857069910173`*^9, 3.572886480518376*^9, 3.5728865828701553`*^9, 3.5728867708816857`*^9, 3.572886889909895*^9, 3.5728869803900537`*^9, 3.5728871248151073`*^9, 3.5728871732375927`*^9, 3.57288730836503*^9, 3.5728873766151495`*^9, 3.572887409827608*^9, 3.572887735119379*^9, 3.572887890994853*^9, 3.5728879652821836`*^9, 3.572888070894369*^9, 3.58005718009875*^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.5728428371345882`*^9, 3.572844796076829*^9, 3.5728450644129004`*^9, 3.5728457708445415`*^9, 3.5728459883089232`*^9, 3.572846198659693*^9, 3.5728465361818857`*^9, 3.572846995290692*^9, 3.5728472877756057`*^9, 3.572847365058141*^9, 3.5728494351505775`*^9, 3.5728496972154374`*^9, 3.5728503922902584`*^9, 3.572850497559243*^9, 3.572850611782644*^9, 3.5728506977543945`*^9, 3.5728510992523003`*^9, 3.5728511883908567`*^9, 3.572851274191007*^9, 3.5728516018227825`*^9, 3.5728517381514225`*^9, 3.572851831158786*^9, 3.572851973353035*^9, 3.572852014661908*^9, { 3.5728520473439655`*^9, 3.572852159258562*^9}, {3.572852190661417*^9, 3.5728522166666627`*^9}, 3.572852643717413*^9, 3.5728602420872126`*^9, 3.5728602767660737`*^9, 3.5728603174197454`*^9, 3.5728857070066175`*^9, 3.5728864805339756`*^9, 3.5728865828857555`*^9, 3.5728867708972855`*^9, 3.572886889925495*^9, 3.572886980405654*^9, 3.5728871248151073`*^9, 3.5728871732531924`*^9, 3.5728873083806295`*^9, 3.5728873766307497`*^9, 3.5728874098432083`*^9, 3.572887735119379*^9, 3.5728878910260534`*^9, 3.572887965297784*^9, 3.572888070894369*^9, 3.5800571801097507`*^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.5728428383201904`*^9, 3.5728447972936316`*^9, 3.5728450655829024`*^9, 3.5728457720301433`*^9, 3.572845989494525*^9, 3.572846199845295*^9, 3.572846537367488*^9, 3.572846996476294*^9, 3.5728472889768076`*^9, 3.572847366228143*^9, 3.5728494363361793`*^9, 3.5728496984010396`*^9, 3.5728503934758606`*^9, 3.5728504987448454`*^9, 3.5728506129526463`*^9, 3.5728506989243965`*^9, 3.5728510993615003`*^9, 3.5728511895608587`*^9, 3.572851274206607*^9, 3.5728516018227825`*^9, 3.572851738167022*^9, 3.5728518311743855`*^9, 3.572851973353035*^9, 3.5728520146775084`*^9, { 3.5728520473595653`*^9, 3.572852159274162*^9}, {3.572852190677017*^9, 3.5728522166666627`*^9}, 3.572852643717413*^9, 3.572860242102813*^9, 3.5728602767816734`*^9, 3.572860317435345*^9, 3.572885707037817*^9, 3.572886480549576*^9, 3.5728865829013557`*^9, 3.5728867709128857`*^9, 3.572886889925495*^9, 3.572886980452454*^9, 3.5728871248307076`*^9, 3.572887173268792*^9, 3.5728873083962297`*^9, 3.57288737664635*^9, 3.572887409858808*^9, 3.5728877351349792`*^9, 3.572887891041653*^9, 3.5728879653133836`*^9, 3.5728880709099693`*^9, 3.580057180122751*^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.572842839474592*^9, 3.572844798510433*^9, 3.5728450667373047`*^9, 3.5728457731845455`*^9, 3.5728459908205276`*^9, 3.5728462009996967`*^9, 3.5728465385218897`*^9, 3.5728469976618958`*^9, 3.5728472993040257`*^9, 3.5728473673825455`*^9, 3.5728494374905815`*^9, 3.572849699555442*^9, 3.5728503946302624`*^9, 3.5728504999148474`*^9, 3.572850614091448*^9, 3.572850700078799*^9, 3.5728510994707003`*^9, 3.5728511906996603`*^9, 3.572851274206607*^9, 3.5728516018383827`*^9, 3.572851738167022*^9, 3.5728518311899853`*^9, 3.572851973368635*^9, 3.572852014693108*^9, { 3.5728520473595653`*^9, 3.572852159289762*^9}, {3.572852190677017*^9, 3.572852216682263*^9}, 3.572852643733013*^9, 3.572860242118413*^9, 3.5728602767816734`*^9, 3.572860317435345*^9, 3.572885707053417*^9, 3.572886480549576*^9, 3.5728865829013557`*^9, 3.5728867709128857`*^9, 3.572886889941095*^9, 3.572886980452454*^9, 3.5728871248463078`*^9, 3.5728871732843924`*^9, 3.5728873083962297`*^9, 3.57288737664635*^9, 3.572887409874408*^9, 3.5728877351505795`*^9, 3.572887891057253*^9, 3.5728879653289833`*^9, 3.5728880709255695`*^9, 3.5800571801347523`*^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.5728428395057926`*^9, 3.572844798900434*^9, 3.572845066768504*^9, 3.5728457732001452`*^9, 3.572845991070128*^9, 3.572846201015297*^9, 3.5728465385530896`*^9, 3.572846997677496*^9, 3.572847299366426*^9, 3.5728473674137454`*^9, 3.5728494375061812`*^9, 3.5728496995710416`*^9, 3.5728503946614623`*^9, 3.572850499930447*^9, 3.572850614107048*^9, 3.5728507000943985`*^9, 3.5728510995487003`*^9, 3.5728511907308607`*^9, 3.572851274222207*^9, 3.572851601853983*^9, 3.572851738182622*^9, 3.5728518312055855`*^9, 3.5728519733842354`*^9, 3.572852014708708*^9, { 3.572852047375165*^9, 3.5728521593053617`*^9}, {3.572852190692617*^9, 3.5728522166978626`*^9}, 3.572852643748613*^9, 3.5728602421340127`*^9, 3.5728602767972736`*^9, 3.572860317450945*^9, 3.572885707053417*^9, 3.572886480565176*^9, 3.572886582916956*^9, 3.572886770928486*^9, 3.5728868899566946`*^9, 3.572886980468054*^9, 3.5728871248619075`*^9, 3.5728871732999926`*^9, 3.57288730841183*^9, 3.57288737666195*^9, 3.572887409905608*^9, 3.5728877351661797`*^9, 3.572887891057253*^9, 3.5728879653289833`*^9, 3.5728880709411693`*^9, 3.580057180150753*^9}] }, Open ]], Cell[CellGroupData[{ Cell[BoxData[ RowBox[{"ratio", "=", RowBox[{ RowBox[{"-", RowBox[{"(", RowBox[{"Vne", "+", RowBox[{"2", "*", "Vnn"}]}], ")"}]}], "/", RowBox[{"(", RowBox[{"Vee", "-", "Vnn"}], ")"}]}]}]], "Input"], Cell[BoxData["6.274343217455128`"], "Output", CellChangeTimes->{3.5800571801617537`*^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"}]}], "\[IndentingNewLine]"}], "Input", CellChangeTimes->{{3.5689074950860367`*^9, 3.5689075109980645`*^9}, { 3.568910298074465*^9, 3.5689103015064707`*^9}, {3.568910724064413*^9, 3.5689107693044925`*^9}, {3.568955368910859*^9, 3.568955378629676*^9}, { 3.568955601366867*^9, 3.568955616218093*^9}, {3.5704638504275074`*^9, 3.570463876370353*^9}, {3.570464305074706*^9, 3.5704643133895206`*^9}, { 3.570464352171189*^9, 3.570464353231991*^9}, {3.570712404698539*^9, 3.5707124150569572`*^9}, {3.570809962851386*^9, 3.5708101493809137`*^9}, { 3.5708102160710306`*^9, 3.570810245165082*^9}, {3.5708102767551374`*^9, 3.5708103693413*^9}, {3.570810404207361*^9, 3.5708104232081947`*^9}, { 3.5708104788690925`*^9, 3.5708104825818987`*^9}, {3.5708105169643593`*^9, 3.570810517884761*^9}, {3.570810561767638*^9, 3.5708105625476394`*^9}, { 3.5708106179589367`*^9, 3.570810645648985*^9}, {3.5708552812279787`*^9, 3.570855300572013*^9}, {3.5718406368324184`*^9, 3.5718406454592333`*^9}, 3.57184067742369*^9, {3.572851887958485*^9, 3.5728519643206196`*^9}}], Cell[BoxData["1913.3721690969696`"], "Output", CellChangeTimes->{ 3.5728428395213923`*^9, 3.572844798931634*^9, 3.572845066768504*^9, 3.572845773215745*^9, 3.572845991101328*^9, 3.572846201030897*^9, 3.5728465385530896`*^9, 3.572846997693096*^9, 3.572847299413226*^9, 3.572847367429345*^9, 3.572849437521781*^9, 3.5728496995866413`*^9, 3.5728503946614623`*^9, 3.5728504999460473`*^9, 3.5728506141226482`*^9, 3.5728507001099987`*^9, 3.5728510995487003`*^9, 3.572851190762061*^9, 3.5728512742378073`*^9, 3.572851601869583*^9, 3.572851738198222*^9, 3.5728518312211857`*^9, 3.5728519733998356`*^9, 3.572852014708708*^9, { 3.572852047390765*^9, 3.5728521593053617`*^9}, {3.5728521907082167`*^9, 3.572852216713463*^9}, 3.5728526437642126`*^9, 3.572860242149613*^9, 3.572860276812874*^9, 3.572860317466545*^9, 3.5728857070690174`*^9, 3.572886480580776*^9, 3.5728865829325557`*^9, 3.572886770944086*^9, 3.572886889972295*^9, 3.572886980483654*^9, 3.5728871248775077`*^9, 3.5728871732999926`*^9, 3.5728873084430304`*^9, 3.57288737667755*^9, 3.572887409905608*^9, 3.5728877351661797`*^9, 3.572887891072853*^9, 3.572887965375784*^9, 3.572888070972369*^9, 3.5800571801727543`*^9}], Cell[BoxData["1586.926201840177`"], "Output", CellChangeTimes->{ 3.5728428395213923`*^9, 3.572844798931634*^9, 3.572845066768504*^9, 3.572845773215745*^9, 3.572845991101328*^9, 3.572846201030897*^9, 3.5728465385530896`*^9, 3.572846997693096*^9, 3.572847299413226*^9, 3.572847367429345*^9, 3.572849437521781*^9, 3.5728496995866413`*^9, 3.5728503946614623`*^9, 3.5728504999460473`*^9, 3.5728506141226482`*^9, 3.5728507001099987`*^9, 3.5728510995487003`*^9, 3.572851190762061*^9, 3.5728512742378073`*^9, 3.572851601869583*^9, 3.572851738198222*^9, 3.5728518312211857`*^9, 3.5728519733998356`*^9, 3.572852014708708*^9, { 3.572852047390765*^9, 3.5728521593053617`*^9}, {3.5728521907082167`*^9, 3.572852216713463*^9}, 3.5728526437642126`*^9, 3.572860242149613*^9, 3.572860276812874*^9, 3.572860317466545*^9, 3.5728857070690174`*^9, 3.572886480580776*^9, 3.5728865829325557`*^9, 3.572886770944086*^9, 3.572886889972295*^9, 3.572886980483654*^9, 3.5728871248775077`*^9, 3.5728871732999926`*^9, 3.5728873084430304`*^9, 3.57288737667755*^9, 3.572887409905608*^9, 3.5728877351661797`*^9, 3.572887891072853*^9, 3.572887965375784*^9, 3.572888070972369*^9, 3.580057180174754*^9}], Cell[BoxData[ RowBox[{"-", "5222.086444203589`"}]], "Output", CellChangeTimes->{ 3.5728428395213923`*^9, 3.572844798931634*^9, 3.572845066768504*^9, 3.572845773215745*^9, 3.572845991101328*^9, 3.572846201030897*^9, 3.5728465385530896`*^9, 3.572846997693096*^9, 3.572847299413226*^9, 3.572847367429345*^9, 3.572849437521781*^9, 3.5728496995866413`*^9, 3.5728503946614623`*^9, 3.5728504999460473`*^9, 3.5728506141226482`*^9, 3.5728507001099987`*^9, 3.5728510995487003`*^9, 3.572851190762061*^9, 3.5728512742378073`*^9, 3.572851601869583*^9, 3.572851738198222*^9, 3.5728518312211857`*^9, 3.5728519733998356`*^9, 3.572852014708708*^9, { 3.572852047390765*^9, 3.5728521593053617`*^9}, {3.5728521907082167`*^9, 3.572852216713463*^9}, 3.5728526437642126`*^9, 3.572860242149613*^9, 3.572860276812874*^9, 3.572860317466545*^9, 3.5728857070690174`*^9, 3.572886480580776*^9, 3.5728865829325557`*^9, 3.572886770944086*^9, 3.572886889972295*^9, 3.572886980483654*^9, 3.5728871248775077`*^9, 3.5728871732999926`*^9, 3.5728873084430304`*^9, 3.57288737667755*^9, 3.572887409905608*^9, 3.5728877351661797`*^9, 3.572887891072853*^9, 3.572887965375784*^9, 3.572888070972369*^9, 3.580057180174754*^9}], Cell[BoxData["13.17857142857143`"], "Output", CellChangeTimes->{ 3.5728428395213923`*^9, 3.572844798931634*^9, 3.572845066768504*^9, 3.572845773215745*^9, 3.572845991101328*^9, 3.572846201030897*^9, 3.5728465385530896`*^9, 3.572846997693096*^9, 3.572847299413226*^9, 3.572847367429345*^9, 3.572849437521781*^9, 3.5728496995866413`*^9, 3.5728503946614623`*^9, 3.5728504999460473`*^9, 3.5728506141226482`*^9, 3.5728507001099987`*^9, 3.5728510995487003`*^9, 3.572851190762061*^9, 3.5728512742378073`*^9, 3.572851601869583*^9, 3.572851738198222*^9, 3.5728518312211857`*^9, 3.5728519733998356`*^9, 3.572852014708708*^9, { 3.572852047390765*^9, 3.5728521593053617`*^9}, {3.5728521907082167`*^9, 3.572852216713463*^9}, 3.5728526437642126`*^9, 3.572860242149613*^9, 3.572860276812874*^9, 3.572860317466545*^9, 3.5728857070690174`*^9, 3.572886480580776*^9, 3.5728865829325557`*^9, 3.572886770944086*^9, 3.572886889972295*^9, 3.572886980483654*^9, 3.5728871248775077`*^9, 3.5728871732999926`*^9, 3.5728873084430304`*^9, 3.57288737667755*^9, 3.572887409905608*^9, 3.5728877351661797`*^9, 3.572887891072853*^9, 3.572887965375784*^9, 3.572888070972369*^9, 3.5800571801757545`*^9}], Cell[BoxData["3.5555555555555554`"], "Output", CellChangeTimes->{ 3.5728428395213923`*^9, 3.572844798931634*^9, 3.572845066768504*^9, 3.572845773215745*^9, 3.572845991101328*^9, 3.572846201030897*^9, 3.5728465385530896`*^9, 3.572846997693096*^9, 3.572847299413226*^9, 3.572847367429345*^9, 3.572849437521781*^9, 3.5728496995866413`*^9, 3.5728503946614623`*^9, 3.5728504999460473`*^9, 3.5728506141226482`*^9, 3.5728507001099987`*^9, 3.5728510995487003`*^9, 3.572851190762061*^9, 3.5728512742378073`*^9, 3.572851601869583*^9, 3.572851738198222*^9, 3.5728518312211857`*^9, 3.5728519733998356`*^9, 3.572852014708708*^9, { 3.572852047390765*^9, 3.5728521593053617`*^9}, {3.5728521907082167`*^9, 3.572852216713463*^9}, 3.5728526437642126`*^9, 3.572860242149613*^9, 3.572860276812874*^9, 3.572860317466545*^9, 3.5728857070690174`*^9, 3.572886480580776*^9, 3.5728865829325557`*^9, 3.572886770944086*^9, 3.572886889972295*^9, 3.572886980483654*^9, 3.5728871248775077`*^9, 3.5728871732999926`*^9, 3.5728873084430304`*^9, 3.57288737667755*^9, 3.572887409905608*^9, 3.5728877351661797`*^9, 3.572887891072853*^9, 3.572887965375784*^9, 3.572888070972369*^9, 3.5800571801767545`*^9}], Cell[BoxData[ RowBox[{"-", "1721.7880732664423`"}]], "Output", CellChangeTimes->{ 3.5728428395213923`*^9, 3.572844798931634*^9, 3.572845066768504*^9, 3.572845773215745*^9, 3.572845991101328*^9, 3.572846201030897*^9, 3.5728465385530896`*^9, 3.572846997693096*^9, 3.572847299413226*^9, 3.572847367429345*^9, 3.572849437521781*^9, 3.5728496995866413`*^9, 3.5728503946614623`*^9, 3.5728504999460473`*^9, 3.5728506141226482`*^9, 3.5728507001099987`*^9, 3.5728510995487003`*^9, 3.572851190762061*^9, 3.5728512742378073`*^9, 3.572851601869583*^9, 3.572851738198222*^9, 3.5728518312211857`*^9, 3.5728519733998356`*^9, 3.572852014708708*^9, { 3.572852047390765*^9, 3.5728521593053617`*^9}, {3.5728521907082167`*^9, 3.572852216713463*^9}, 3.5728526437642126`*^9, 3.572860242149613*^9, 3.572860276812874*^9, 3.572860317466545*^9, 3.5728857070690174`*^9, 3.572886480580776*^9, 3.5728865829325557`*^9, 3.572886770944086*^9, 3.572886889972295*^9, 3.572886980483654*^9, 3.5728871248775077`*^9, 3.5728871732999926`*^9, 3.5728873084430304`*^9, 3.57288737667755*^9, 3.572887409905608*^9, 3.5728877351661797`*^9, 3.572887891072853*^9, 3.572887965375784*^9, 3.572888070972369*^9, 3.5800571801777544`*^9}], Cell[BoxData["860.8559577328867`"], "Output", CellChangeTimes->{ 3.5728428395213923`*^9, 3.572844798931634*^9, 3.572845066768504*^9, 3.572845773215745*^9, 3.572845991101328*^9, 3.572846201030897*^9, 3.5728465385530896`*^9, 3.572846997693096*^9, 3.572847299413226*^9, 3.572847367429345*^9, 3.572849437521781*^9, 3.5728496995866413`*^9, 3.5728503946614623`*^9, 3.5728504999460473`*^9, 3.5728506141226482`*^9, 3.5728507001099987`*^9, 3.5728510995487003`*^9, 3.572851190762061*^9, 3.5728512742378073`*^9, 3.572851601869583*^9, 3.572851738198222*^9, 3.5728518312211857`*^9, 3.5728519733998356`*^9, 3.572852014708708*^9, { 3.572852047390765*^9, 3.5728521593053617`*^9}, {3.5728521907082167`*^9, 3.572852216713463*^9}, 3.5728526437642126`*^9, 3.572860242149613*^9, 3.572860276812874*^9, 3.572860317466545*^9, 3.5728857070690174`*^9, 3.572886480580776*^9, 3.5728865829325557`*^9, 3.572886770944086*^9, 3.572886889972295*^9, 3.572886980483654*^9, 3.5728871248775077`*^9, 3.5728871732999926`*^9, 3.5728873084430304`*^9, 3.57288737667755*^9, 3.572887409905608*^9, 3.5728877351661797`*^9, 3.572887891072853*^9, 3.572887965375784*^9, 3.572888070972369*^9, 3.5800571801787543`*^9}], Cell[BoxData["2.0000884675304675`"], "Output", CellChangeTimes->{ 3.5728428395213923`*^9, 3.572844798931634*^9, 3.572845066768504*^9, 3.572845773215745*^9, 3.572845991101328*^9, 3.572846201030897*^9, 3.5728465385530896`*^9, 3.572846997693096*^9, 3.572847299413226*^9, 3.572847367429345*^9, 3.572849437521781*^9, 3.5728496995866413`*^9, 3.5728503946614623`*^9, 3.5728504999460473`*^9, 3.5728506141226482`*^9, 3.5728507001099987`*^9, 3.5728510995487003`*^9, 3.572851190762061*^9, 3.5728512742378073`*^9, 3.572851601869583*^9, 3.572851738198222*^9, 3.5728518312211857`*^9, 3.5728519733998356`*^9, 3.572852014708708*^9, { 3.572852047390765*^9, 3.5728521593053617`*^9}, {3.5728521907082167`*^9, 3.572852216713463*^9}, 3.5728526437642126`*^9, 3.572860242149613*^9, 3.572860276812874*^9, 3.572860317466545*^9, 3.5728857070690174`*^9, 3.572886480580776*^9, 3.5728865829325557`*^9, 3.572886770944086*^9, 3.572886889972295*^9, 3.572886980483654*^9, 3.5728871248775077`*^9, 3.5728871732999926`*^9, 3.5728873084430304`*^9, 3.57288737667755*^9, 3.572887409905608*^9, 3.5728877351661797`*^9, 3.572887891072853*^9, 3.572887965375784*^9, 3.572888070972369*^9, 3.5800571801797543`*^9}], Cell[BoxData[ RowBox[{"-", "860.9321155335556`"}]], "Output", CellChangeTimes->{ 3.5728428395213923`*^9, 3.572844798931634*^9, 3.572845066768504*^9, 3.572845773215745*^9, 3.572845991101328*^9, 3.572846201030897*^9, 3.5728465385530896`*^9, 3.572846997693096*^9, 3.572847299413226*^9, 3.572847367429345*^9, 3.572849437521781*^9, 3.5728496995866413`*^9, 3.5728503946614623`*^9, 3.5728504999460473`*^9, 3.5728506141226482`*^9, 3.5728507001099987`*^9, 3.5728510995487003`*^9, 3.572851190762061*^9, 3.5728512742378073`*^9, 3.572851601869583*^9, 3.572851738198222*^9, 3.5728518312211857`*^9, 3.5728519733998356`*^9, 3.572852014708708*^9, { 3.572852047390765*^9, 3.5728521593053617`*^9}, {3.5728521907082167`*^9, 3.572852216713463*^9}, 3.5728526437642126`*^9, 3.572860242149613*^9, 3.572860276812874*^9, 3.572860317466545*^9, 3.5728857070690174`*^9, 3.572886480580776*^9, 3.5728865829325557`*^9, 3.572886770944086*^9, 3.572886889972295*^9, 3.572886980483654*^9, 3.5728871248775077`*^9, 3.5728871732999926`*^9, 3.5728873084430304`*^9, 3.57288737667755*^9, 3.572887409905608*^9, 3.5728877351661797`*^9, 3.572887891072853*^9, 3.572887965375784*^9, 3.572888070972369*^9, 3.5800571801807547`*^9}] }, Open ]] }, WindowSize->{1216, 889}, WindowMargins->{{Automatic, 281}, {Automatic, 4}}, 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"]]}, 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, 1653, 29, 52, "Input"], Cell[CellGroupData[{ Cell[2235, 53, 282, 6, 52, "Input"], Cell[2520, 61, 7218, 119, 353, "Output"] }, Open ]], Cell[CellGroupData[{ Cell[9775, 185, 680, 14, 52, "Input"], Cell[10458, 201, 6650, 157, 791, "Output"] }, Open ]], Cell[CellGroupData[{ Cell[17145, 363, 609, 10, 31, "Input"], Cell[17757, 375, 2214, 31, 31, "Output"] }, Open ]], Cell[CellGroupData[{ Cell[20008, 411, 955, 14, 31, "Input"], Cell[20966, 427, 1236, 17, 31, "Output"] }, Open ]], Cell[CellGroupData[{ Cell[22239, 449, 1560, 29, 31, "Input"], Cell[23802, 480, 2213, 31, 31, "Output"] }, Open ]], Cell[26030, 514, 1419, 23, 31, "Input"], Cell[27452, 539, 1592, 29, 31, "Input"], Cell[CellGroupData[{ Cell[29069, 572, 1234, 18, 31, "Input"], Cell[30306, 592, 4715, 121, 92, "Output"] }, Open ]], Cell[CellGroupData[{ Cell[35058, 718, 697, 14, 31, "Input"], Cell[35758, 734, 1832, 27, 52, "Output"] }, Open ]], Cell[37605, 764, 908, 24, 31, "Input"], Cell[CellGroupData[{ Cell[38538, 792, 5735, 123, 172, "Input"], Cell[44276, 917, 2033, 30, 72, "Output"], Cell[46312, 949, 2024, 30, 72, "Output"] }, Open ]], Cell[CellGroupData[{ Cell[48373, 984, 519, 12, 31, "Input"], Cell[48895, 998, 2215, 31, 31, "Output"] }, Open ]], Cell[CellGroupData[{ Cell[51147, 1034, 1401, 38, 31, "Input"], Cell[52551, 1074, 1897, 28, 52, "Output"] }, Open ]], Cell[CellGroupData[{ Cell[54485, 1107, 827, 23, 92, "Input"], Cell[55315, 1132, 1227, 17, 31, "Output"], Cell[56545, 1151, 1227, 17, 31, "Output"] }, Open ]], Cell[CellGroupData[{ Cell[57809, 1173, 284, 6, 52, "Input"], Cell[58096, 1181, 1235, 17, 31, "Output"] }, Open ]], Cell[59346, 1201, 1824, 35, 72, "Input"], Cell[CellGroupData[{ Cell[61195, 1240, 4923, 122, 212, "Input"], Cell[66121, 1364, 12472, 211, 368, "Output"] }, Open ]], Cell[CellGroupData[{ Cell[78630, 1580, 2100, 42, 72, "Input"], Cell[80733, 1624, 65531, 904, 806, "Output"] }, Open ]], Cell[146279, 2531, 1331, 36, 72, "Input"], Cell[CellGroupData[{ Cell[147635, 2571, 4850, 86, 72, "Input"], Cell[152488, 2659, 18539, 262, 806, "Output"] }, Open ]], Cell[CellGroupData[{ Cell[171064, 2926, 2570, 53, 132, "Input"], Cell[173637, 2981, 1210, 17, 31, "Output"] }, Open ]], Cell[CellGroupData[{ Cell[174884, 3003, 2598, 53, 92, "Input"], Cell[177485, 3058, 1468, 22, 31, "Output"] }, Open ]], Cell[178968, 3083, 9726, 201, 232, "Input"], Cell[CellGroupData[{ Cell[188719, 3288, 1947, 43, 72, "Input"], Cell[190669, 3333, 1400, 21, 31, "Output"], Cell[192072, 3356, 1303, 19, 31, "Output"] }, Open ]], Cell[CellGroupData[{ Cell[193412, 3380, 570, 14, 52, "Input"], Cell[193985, 3396, 1698, 27, 52, "Output"], Cell[195686, 3425, 1297, 19, 31, "Output"] }, Open ]], Cell[CellGroupData[{ Cell[197020, 3449, 2767, 54, 72, "Input"], Cell[199790, 3505, 2091, 33, 72, "Output"], Cell[201884, 3540, 1286, 19, 31, "Output"] }, Open ]], Cell[CellGroupData[{ Cell[203207, 3564, 3698, 81, 112, "Input"], Cell[206908, 3647, 2092, 31, 72, "Output"] }, Open ]], Cell[209015, 3681, 2072, 49, 112, "Input"], Cell[211090, 3732, 561, 12, 52, "Input"], Cell[211654, 3746, 2148, 49, 92, "Input"], Cell[213805, 3797, 2452, 56, 92, "Input"], Cell[216260, 3855, 1759, 41, 72, "Input"], Cell[CellGroupData[{ Cell[218044, 3900, 923, 20, 31, "Input"], Cell[218970, 3922, 1257, 17, 31, "Output"] }, Open ]], Cell[CellGroupData[{ Cell[220264, 3944, 711, 18, 31, "Input"], Cell[220978, 3964, 1236, 17, 31, "Output"] }, Open ]], Cell[CellGroupData[{ Cell[222251, 3986, 507, 10, 31, "Input"], Cell[222761, 3998, 1229, 17, 31, "Output"] }, Open ]], Cell[CellGroupData[{ Cell[224027, 4020, 823, 23, 31, "Input"], Cell[224853, 4045, 1232, 17, 31, "Output"] }, Open ]], Cell[CellGroupData[{ Cell[226122, 4067, 204, 4, 31, "Input"], Cell[226329, 4073, 1241, 17, 31, "Output"] }, Open ]], Cell[227585, 4093, 1975, 34, 72, "Input"], Cell[CellGroupData[{ Cell[229585, 4131, 4534, 109, 212, "Input"], Cell[234122, 4242, 1363, 21, 31, "Output"], Cell[235488, 4265, 6009, 187, 791, "Output"] }, Open ]], Cell[241512, 4455, 9209, 151, 192, "Input"], Cell[250724, 4608, 11327, 298, 1352, "Input"], Cell[CellGroupData[{ Cell[262076, 4910, 19001, 580, 1692, "Input"], Cell[281080, 5492, 1226, 19, 31, "Output"], Cell[282309, 5513, 2876, 59, 375, "Output"], Cell[285188, 5574, 1314, 21, 31, "Output"], Cell[286505, 5597, 1333, 22, 31, "Output"] }, Open ]], Cell[287853, 5622, 3073, 58, 92, "Input"], Cell[CellGroupData[{ Cell[290951, 5684, 939, 17, 72, "Input"], Cell[291893, 5703, 5743, 122, 172, "Output"], Cell[297639, 5827, 1223, 17, 31, "Output"], Cell[298865, 5846, 1223, 17, 31, "Output"] }, Open ]], Cell[300103, 5866, 10201, 233, 132, "Input"], Cell[310307, 6101, 6427, 103, 31, "Input"], Cell[316737, 6206, 10215, 234, 132, "Input"], Cell[326955, 6442, 5925, 93, 31, "Input"], Cell[332883, 6537, 10237, 167, 92, "Input"], Cell[CellGroupData[{ Cell[343145, 6708, 17592, 357, 312, "Input"], Cell[360740, 7067, 93770, 1634, 375, 25310, 513, "CachedBoxData", "BoxData", \ "Output"], Cell[454513, 8703, 40844, 682, 369, 18998, 325, "CachedBoxData", "BoxData", \ "Output"] }, Open ]], Cell[CellGroupData[{ Cell[495394, 9390, 4591, 99, 152, "Input"], Cell[499988, 9491, 1215, 17, 31, "Output"] }, Open ]], Cell[CellGroupData[{ Cell[501240, 9513, 2499, 47, 92, "Input"], Cell[503742, 9562, 1223, 17, 31, "Output"] }, Open ]], Cell[504980, 9582, 1841, 29, 52, "Input"], Cell[CellGroupData[{ Cell[506846, 9615, 4863, 112, 212, "Input"], Cell[511712, 9729, 7610, 200, 1436, "Output"], Cell[519325, 9931, 1233, 17, 31, "Output"] }, Open ]], Cell[CellGroupData[{ Cell[520595, 9953, 4955, 95, 52, "Input"], Cell[525553, 10050, 4181, 113, 92, "Output"], Cell[529737, 10165, 2436, 35, 72, "Output"] }, Open ]], Cell[CellGroupData[{ Cell[532210, 10205, 4670, 80, 92, "Input"], Cell[536883, 10287, 1222, 17, 31, "Output"] }, Open ]], Cell[538120, 10307, 1863, 27, 31, "Input"], Cell[CellGroupData[{ Cell[540008, 10338, 2963, 56, 112, "Input"], Cell[542974, 10396, 1230, 17, 31, "Output"] }, Open ]], Cell[CellGroupData[{ Cell[544241, 10418, 1373, 36, 92, "Input"], Cell[545617, 10456, 1229, 17, 31, "Output"] }, Open ]], Cell[CellGroupData[{ Cell[546883, 10478, 3019, 69, 132, "Input"], Cell[549905, 10549, 1224, 17, 31, "Output"] }, Open ]], Cell[CellGroupData[{ Cell[551166, 10571, 499, 15, 52, "Input"], Cell[551668, 10588, 1265, 18, 31, "Output"] }, Open ]], Cell[552948, 10609, 1381, 21, 31, "Input"], Cell[CellGroupData[{ Cell[554354, 10634, 1709, 32, 52, "Input"], Cell[556066, 10668, 1255, 18, 31, "Output"] }, Open ]], Cell[CellGroupData[{ Cell[557358, 10691, 1415, 43, 72, "Input"], Cell[558776, 10736, 1256, 18, 31, "Output"] }, Open ]], Cell[CellGroupData[{ Cell[560069, 10759, 2550, 50, 92, "Input"], Cell[562622, 10811, 1230, 17, 31, "Output"] }, Open ]], Cell[CellGroupData[{ Cell[563889, 10833, 230, 8, 31, "Input"], Cell[564122, 10843, 89, 1, 31, "Output"] }, Open ]], Cell[CellGroupData[{ Cell[564248, 10849, 2254, 45, 212, "Input"], Cell[566505, 10896, 1230, 17, 31, "Output"], Cell[567738, 10915, 1227, 17, 31, "Output"], Cell[568968, 10934, 1244, 18, 31, "Output"], Cell[570215, 10954, 1229, 17, 31, "Output"], Cell[571447, 10973, 1230, 17, 31, "Output"], Cell[572680, 10992, 1247, 18, 31, "Output"], Cell[573930, 11012, 1229, 17, 31, "Output"], Cell[575162, 11031, 1230, 17, 31, "Output"], Cell[576395, 11050, 1246, 18, 63, "Output"] }, Open ]] } ] *) (* End of internal cache information *)