(* 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[ 539387, 10508] NotebookOptionsPosition[ 532121, 10278] NotebookOutlinePosition[ 532622, 10298] CellTagsIndexPosition[ 532579, 10295] WindowFrame->Normal*) (* Beginning of Notebook Content *) Notebook[{ Cell[BoxData[ RowBox[{ RowBox[{"(*", " ", RowBox[{ RowBox[{ "Kimball", " ", "model", " ", "and", " ", "energy", " ", "derived", " ", "from", " ", "Wolfram", " ", "source"}], ",", " ", RowBox[{"ES", " ", "20", " ", "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}}], Cell[CellGroupData[{ Cell[BoxData[ RowBox[{ RowBox[{"ChemicalData", "[", RowBox[{"\"\\"", ",", "\"\\""}], "]"}], "\[IndentingNewLine]"}]], "Input", CellChangeTimes->{{3.570856547809803*^9, 3.5708565502590075`*^9}, 3.5708567094884872`*^9, 3.5709425310070767`*^9}], Cell[BoxData[ Graphics3DBox[ {AbsoluteThickness[3], EdgeForm[None], Specularity[ GrayLevel[1], 100], GraphicsComplex3DBox[CompressedData[" 1:eJwtVQ1QlFUUJWtIUQEJzTFDowjMHEExKgQuowhiICy/7oIt7C7LArssy8bf 8r8C4ljq4ETlEGo/JqPYkENUpjcqhlCxEseszDGoJrQwtJIGmb73zr6ZnTf7 9r1zzz333LuP5RarDLPc3NxUyud+sff5Nd0I2MmXKn5/MmRnMOeJ5V7F588p a8ROlcrx7PWx9LY1wuOyzkLLmm4k9/VX0YqsPf1/a/Uk701b6Z8g5eB8PSmn QVktehKwyXv15HH5LWuEv40Sc70zn9sfR11/fZuQ+10mvfG6sjpq6HPl+h6V icKvbX25vTsS993LgNeUTeWnO5es7lhIa8XaWkl3U0bfOaBPY/n7fSUkrnvE FtCslS2LrvglkKAVpPAGDwOt2/7x5nm56/k1i4+TuxLB/10bRYhAVzXk2x17 vWpMy/KdbxL13r43UjEnmjJurv4k8MIymieAW+NZ4jRuYEHTolrLB5esvvpE egJLviojty1+IN3zeAC5iRWkZ0FnuD2M3rfl7/sjVAX85SWs3FrV8+lmLhEE bmnYIQj4VfDZQzG9t2sCSZ5rdcjPXMfxgkBzEupRlM+Cvl9IHd9UtqaHClGv N43Yg5wc2N98JGPIk+OuV/l2nzGzzPdYMyusfZxfp7LUu8fGIm3fV1369+eS fO9fDl0SylEHTyt0P2vF+bpGujL8b8poQhJ079Qh32An9D5hhv4/GoE77CAZ 5/lSem9gS1jrIUJdvRpwT2+kb/x/mKodimPpwwUvgcciA0u/HSjG/RgHOXno UMyfaSz5tJTj3kAtCTk72jOgzx0TSV10OXRYkfOePRS40aWou8XlR5sOuL+U ktRzvgX+m3H5PMOB+3kG5DWh5Z6OiSMDF1XIt74M+R024P1CE3g58oG/y6Wn Zw7q+KWNfEQChuXAizLwC2Gt0dqFyST5VeZgT17JUqeGEEYdLPBZogr1jNUD b34hP6rWh1/zCqeo3d5+5qWXzsi4kybU228bfLRYD14aLU0qbeetTWPp9ztW +G5cx7IPv1LDx/EViPNbNvrijg66djfCbw9a4Z/GAuBk1SDejIXrCk7Z24LT WdI8XgV/DxbDZ+lW4Bc5sX+/DTq3FbHU89lWlrp4ZSC+sQhxdzch7sU8+Hu7 Hb7Q7UK8g8mIF1PNUj5TCwuYPZNxLn5lyHNjK58cLDvd2R+D9wEO4D1dDR/s 02Eeednh19mVJOD6IgtQ7zErfm9ooOmjygDrziLJ82E9SfyZBtT1ERPq/0we cHqraa84Hy2mTWKw3I2Cb36qw7kmHz751R+8g8tJjMmTgy+Cp9GKOsRXUaQA Puqq30Y7CXnOeVRTYMjsY0tr0zFfps30s9DjkoGClWP12Br06Vw7eKqNNCTm zEdqzO8sV75PFSHfV+KR76IKvCs3oL8cqdDbNxm82+zw12AOeEzrof+YBXzX azEvprSod6+NOoWPxxPg8wU6TlXG+Bf7k0gO6FNplLhj/tYTI+78X60SaO4G 5H+hgMUz95AovnVEaYwODfwSbOJQ4evba6gvvPDD7PoIxDmcz2tE3iNb8P+z XM9iLK9KTHHNmRTw9ChhWUe1mptFu2RroH9oBX8mBCpMIvm9Swc/Pt7AUtd9 ZujvbWKZ96ZavJ9j5otKe2VqctBvE9XwvcUMfwYUIW68k6cOGj8YH42D71aY Weo52cJC5omJNORVakWfL21mOW87tIi7s5T/Bwnsn/k= "], { {RGBColor[0.65, 0.7, 0.7], SphereBox[22, 24.], SphereBox[23, 24.], SphereBox[24, 24.], SphereBox[25, 24.], SphereBox[26, 24.], SphereBox[27, 24.], SphereBox[28, 24.], SphereBox[29, 24.], SphereBox[30, 24.], SphereBox[31, 24.], SphereBox[32, 24.], SphereBox[33, 24.], SphereBox[34, 24.], SphereBox[35, 24.], SphereBox[36, 24.], SphereBox[37, 24.], SphereBox[38, 24.], SphereBox[39, 24.], SphereBox[40, 24.], SphereBox[41, 24.], SphereBox[42, 24.], SphereBox[43, 24.], SphereBox[44, 24.], SphereBox[45, 24.], SphereBox[46, 24.], SphereBox[47, 24.], SphereBox[48, 24.], SphereBox[49, 24.], SphereBox[50, 24.], SphereBox[51, 24.]}, {RGBColor[0.4, 0.4, 0.4], SphereBox[2, 34.], SphereBox[3, 34.], SphereBox[4, 34.], SphereBox[5, 34.], SphereBox[6, 34.], SphereBox[7, 34.], SphereBox[8, 34.], SphereBox[9, 34.], SphereBox[10, 34.], SphereBox[11, 34.], SphereBox[12, 34.], SphereBox[13, 34.], SphereBox[14, 34.], SphereBox[15, 34.], SphereBox[16, 34.], SphereBox[17, 34.], SphereBox[18, 34.], SphereBox[19, 34.], SphereBox[20, 34.], SphereBox[21, 34.]}, {RGBColor[0.800498, 0.201504, 0.192061], SphereBox[1, 31.]}, {RGBColor[0.65, 0.7, 0.7], CylinderBox[{53, 51}, 15.], CylinderBox[{54, 22}, 15.], CylinderBox[{55, 23}, 15.], CylinderBox[{56, 24}, 15.], CylinderBox[{57, 25}, 15.], CylinderBox[{58, 26}, 15.], CylinderBox[{59, 27}, 15.], CylinderBox[{60, 28}, 15.], CylinderBox[{61, 29}, 15.], CylinderBox[{62, 30}, 15.], CylinderBox[{63, 31}, 15.], CylinderBox[{64, 32}, 15.], CylinderBox[{65, 33}, 15.], CylinderBox[{66, 34}, 15.], CylinderBox[{67, 35}, 15.], CylinderBox[{68, 36}, 15.], CylinderBox[{69, 37}, 15.], CylinderBox[{70, 38}, 15.], CylinderBox[{71, 39}, 15.], CylinderBox[{72, 40}, 15.], CylinderBox[{73, 41}, 15.], CylinderBox[{74, 42}, 15.], CylinderBox[{75, 43}, 15.], CylinderBox[{76, 44}, 15.], CylinderBox[{77, 45}, 15.], CylinderBox[{78, 46}, 15.], CylinderBox[{79, 47}, 15.], CylinderBox[{80, 48}, 15.], CylinderBox[{81, 49}, 15.], CylinderBox[{82, 50}, 15.]}, {RGBColor[0.4, 0.4, 0.4], CylinderBox[{52, 21}, 15.], CylinderBox[{2, 3}, 15.], CylinderBox[{2, 5}, 15.], CylinderBox[{2, 8}, 15.], CylinderBox[{2, 9}, 15.], CylinderBox[{3, 4}, 15.], CylinderBox[{3, 54}, 15.], CylinderBox[{3, 55}, 15.], CylinderBox[{4, 6}, 15.], CylinderBox[{4, 56}, 15.], CylinderBox[{4, 57}, 15.], CylinderBox[{5, 7}, 15.], CylinderBox[{5, 10}, 15.], CylinderBox[{6, 7}, 15.], CylinderBox[{6, 58}, 15.], CylinderBox[{6, 59}, 15.], CylinderBox[{7, 11}, 15.], CylinderBox[{8, 60}, 15.], CylinderBox[{8, 61}, 15.], CylinderBox[{8, 62}, 15.], CylinderBox[{9, 63}, 15.], CylinderBox[{9, 64}, 15.], CylinderBox[{9, 65}, 15.], CylinderBox[{10, 12}, 15.], CylinderBox[{10, 66}, 15.], CylinderBox[{11, 67}, 15.], CylinderBox[{11, 68}, 15.], CylinderBox[{11, 69}, 15.], CylinderBox[{12, 13}, 15.], CylinderBox[{12, 70}, 15.], CylinderBox[{13, 14}, 15.], CylinderBox[{13, 15}, 15.], CylinderBox[{14, 71}, 15.], CylinderBox[{14, 72}, 15.], CylinderBox[{14, 73}, 15.], CylinderBox[{15, 16}, 15.], CylinderBox[{15, 74}, 15.], CylinderBox[{16, 17}, 15.], CylinderBox[{16, 75}, 15.], CylinderBox[{17, 18}, 15.], CylinderBox[{17, 76}, 15.], CylinderBox[{18, 19}, 15.], CylinderBox[{18, 20}, 15.], CylinderBox[{19, 77}, 15.], CylinderBox[{19, 78}, 15.], CylinderBox[{19, 79}, 15.], CylinderBox[{20, 21}, 15.], CylinderBox[{20, 80}, 15.], CylinderBox[{21, 81}, 15.], CylinderBox[{21, 82}, 15.]}, {RGBColor[0.800498, 0.201504, 0.192061], CylinderBox[{1, 52}, 15.], CylinderBox[{1, 53}, 15.]}}]}, Boxed->False, ImageSize->394.32310153075974`, Lighting->"Neutral", ViewPoint->{1.3, -2.4, -2.}]], "Output", CellChangeTimes->{3.572795498316743*^9, 3.5727956405889926`*^9, 3.5727958891754293`*^9, 3.5727960974357953`*^9, 3.5727961633147106`*^9, 3.5727962270096226`*^9, 3.572796752231345*^9, 3.572796874051959*^9, 3.572797000334181*^9, 3.572797390381666*^9, 3.572797437446949*^9, 3.5727978631872964`*^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.572795498332343*^9, 3.572795640604593*^9, 3.5727958891910295`*^9, 3.572796097451395*^9, 3.572796163330311*^9, 3.572796227025223*^9, 3.572796752262545*^9, 3.5727968740675592`*^9, 3.572797000349781*^9, 3.572797390397266*^9, 3.5727974374625487`*^9, 3.572797863202896*^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.572795498347943*^9, 3.5727956406201925`*^9, 3.5727958892066293`*^9, 3.5727960974669952`*^9, 3.572796163345911*^9, 3.5727962270564227`*^9, 3.5727967522781453`*^9, 3.5727968740831594`*^9, 3.5727970003653812`*^9, 3.572797390397266*^9, 3.5727974374937487`*^9, 3.5727978632184963`*^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.572795498347943*^9, 3.5727956406357927`*^9, 3.572795889222229*^9, 3.5727960974825954`*^9, 3.5727961633771105`*^9, 3.572796227072023*^9, 3.572796752293745*^9, 3.572796874098759*^9, 3.572797000380981*^9, 3.572797390412866*^9, 3.572797437509349*^9, 3.5727978632340965`*^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.5727954983635426`*^9, 3.572795640651393*^9, 3.572795889237829*^9, 3.572796097498195*^9, 3.5727961633927107`*^9, 3.5727962270876226`*^9, 3.5727967523093452`*^9, 3.572796874129959*^9, 3.572797000412181*^9, 3.572797390428466*^9, 3.572797437524949*^9, 3.5727978632496967`*^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.5727954983791428`*^9, 3.572795640682593*^9, 3.5727958892534294`*^9, 3.572796097529395*^9, 3.572796163423911*^9, 3.572796227118823*^9, 3.572796752340545*^9, 3.5727968741455593`*^9, 3.572797000427781*^9, 3.572797390444066*^9, 3.5727974375561485`*^9, 3.572797863265297*^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.5727954983791428`*^9, 3.5727956406981926`*^9, 3.5727958892690296`*^9, 3.5727960975449953`*^9, 3.5727961634395113`*^9, 3.5727962271500225`*^9, 3.5727967523561454`*^9, 3.5727968741611595`*^9, 3.5727970004589815`*^9, 3.572797390444066*^9, 3.5727974375717487`*^9, 3.5727978632808967`*^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.572795498394743*^9, 3.572795640713793*^9, 3.57279588928463*^9, 3.5727960975605955`*^9, 3.572796163455111*^9, 3.5727962271656227`*^9, 3.572796752371745*^9, 3.5727968741923594`*^9, 3.5727970004745812`*^9, 3.5727973904596663`*^9, 3.572797437587349*^9, 3.5727978632964964`*^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.572795498394743*^9, 3.572795640713793*^9, 3.57279588928463*^9, 3.5727960975605955`*^9, 3.572796163455111*^9, 3.5727962271656227`*^9, 3.572796752371745*^9, 3.5727968741923594`*^9, 3.5727970004745812`*^9, 3.5727973904596663`*^9, 3.572797437587349*^9, 3.5727978632964964`*^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.5727954984103427`*^9, 3.572795640729393*^9, 3.5727958893002295`*^9, 3.5727960975761952`*^9, 3.572796163486311*^9, 3.572796227196823*^9, 3.5727967524029455`*^9, 3.572796874207959*^9, 3.572797000490181*^9, 3.5727973904752665`*^9, 3.5727974376185493`*^9, 3.5727978633120966`*^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.572795498425943*^9, 3.5727956407449927`*^9, 3.5727958893158293`*^9, 3.572796097591795*^9, 3.572796163501911*^9, 3.5727962272124233`*^9, 3.5727967524185457`*^9, 3.5727968742235594`*^9, 3.572797000505781*^9, 3.5727973904752665`*^9, 3.572797437634149*^9, 3.572797863327697*^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.572795498425943*^9, 3.5727956407605925`*^9, 3.5727958893314295`*^9, 3.572796097607395*^9, 3.572796163533111*^9, 3.572796227228023*^9, 3.572796752434146*^9, 3.5727968742391596`*^9, 3.572797000536981*^9, 3.572797390490866*^9, 3.572797437649749*^9, 3.572797863343297*^9}], Cell[BoxData["30"], "Output", CellChangeTimes->{3.572795498425943*^9, 3.5727956407605925`*^9, 3.5727958893314295`*^9, 3.572796097607395*^9, 3.572796163533111*^9, 3.572796227228023*^9, 3.572796752434146*^9, 3.5727968742391596`*^9, 3.572797000536981*^9, 3.572797390490866*^9, 3.572797437649749*^9, 3.572797863343297*^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.572795498441543*^9, 3.5727956407761927`*^9, 3.5727958893470297`*^9, 3.5727960976229954`*^9, 3.5727961635487113`*^9, 3.572796227243623*^9, 3.5727967524497457`*^9, 3.5727968742703595`*^9, 3.5727970005525813`*^9, 3.572797390506466*^9, 3.572797437680949*^9, 3.5727978633588967`*^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.5727954985039434`*^9, 3.572795640854193*^9, 3.5727958894094296`*^9, 3.5727960976853957`*^9, 3.572796163611111*^9, 3.572796227321623*^9, 3.5727967525121455`*^9, 3.57279687433276*^9, 3.5727970006149817`*^9, 3.5727973905688667`*^9, 3.572797437743349*^9, 3.572797863421297*^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.572795498535143*^9, 3.572795640885393*^9, 3.57279588954983*^9, 3.572796097810196*^9, 3.5727961636579113`*^9, 3.5727962273528233`*^9, 3.5727967525589457`*^9, 3.5727968743795595`*^9, 3.5727970006617813`*^9, 3.572797390600066*^9, 3.572797437790149*^9, 3.5727978634524965`*^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.5727954985975432`*^9, 3.5727956409321933`*^9, 3.57279588959663*^9, 3.5727960978569956`*^9, 3.5727961637047114`*^9, 3.572796227399623*^9, 3.572796752605746*^9, 3.57279687442636*^9, 3.572797000708582*^9, 3.5727973906468663`*^9, 3.5727974378369493`*^9, 3.572797863499297*^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.572795498613143*^9, 3.572795640963393*^9, 3.5727958896122303`*^9, 3.572796097872596*^9, 3.5727961637203116`*^9, 3.5727962274308233`*^9, 3.5727967526213455`*^9, 3.57279687444196*^9, 3.5727970007241817`*^9, 3.572797390662466*^9, 3.5727974378525496`*^9, 3.5727978635148973`*^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.572795498628743*^9, 3.572795640963393*^9, 3.57279588962783*^9, 3.572796097888196*^9, 3.5727961637359114`*^9, 3.5727962274464235`*^9, 3.5727967526213455`*^9, 3.5727968744575596`*^9, 3.5727970007241817`*^9, 3.5727973906780663`*^9, 3.5727974378681498`*^9, 3.5727978635148973`*^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.5727954986443434`*^9, 3.5727956409945936`*^9, 3.5727958896434298`*^9, 3.572796097903796*^9, 3.572796163767112*^9, 3.5727962274620237`*^9, 3.5727967526369457`*^9, 3.57279687447316*^9, 3.5727970007397814`*^9, 3.5727973906936665`*^9, 3.5727974378837495`*^9, 3.572797863530497*^9}], Cell[BoxData[ RowBox[{"2.5431421108019188`", "\[PlusMinus]", "0.03163615846976897`"}]], "Output", CellChangeTimes->{3.5727954986443434`*^9, 3.5727956409945936`*^9, 3.5727958896434298`*^9, 3.572796097903796*^9, 3.572796163767112*^9, 3.5727962274620237`*^9, 3.5727967526369457`*^9, 3.57279687447316*^9, 3.5727970007397814`*^9, 3.5727973906936665`*^9, 3.5727974378837495`*^9, 3.572797863530497*^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.5727954986443434`*^9, 3.5727956409945936`*^9, 3.57279588965903*^9, 3.572796097919396*^9, 3.5727961637827115`*^9, 3.572796227477624*^9, 3.572796752652546*^9, 3.57279687448876*^9, 3.5727970007553816`*^9, 3.5727973906936665`*^9, 3.5727974378993497`*^9, 3.5727978635460973`*^9}], Cell[BoxData[ RowBox[{"2.825453749813209`", "\[PlusMinus]", "0.07826166491129986`"}]], "Output", CellChangeTimes->{3.5727954986443434`*^9, 3.5727956409945936`*^9, 3.57279588965903*^9, 3.572796097919396*^9, 3.5727961637827115`*^9, 3.572796227477624*^9, 3.572796752652546*^9, 3.57279687448876*^9, 3.5727970007553816`*^9, 3.5727973906936665`*^9, 3.5727974378993497`*^9, 3.5727978635460973`*^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.5727954986599436`*^9, 3.5727956410101933`*^9, 3.57279588967463*^9, 3.5727960979349957`*^9, 3.5727961637983117`*^9, 3.5727962274932237`*^9, 3.572796752668146*^9, 3.57279687448876*^9, 3.572797000770982*^9, 3.5727973907092667`*^9, 3.5727974379149494`*^9, 3.572797863561697*^9}], Cell[BoxData[ RowBox[{"2.055894359505152`", "\[PlusMinus]", "0.007777002172673031`"}]], "Output", CellChangeTimes->{3.5727954986599436`*^9, 3.5727956410101933`*^9, 3.57279588967463*^9, 3.5727960979349957`*^9, 3.5727961637983117`*^9, 3.5727962274932237`*^9, 3.572796752668146*^9, 3.57279687448876*^9, 3.572797000770982*^9, 3.5727973907092667`*^9, 3.5727974379149494`*^9, 3.572797863561697*^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.5727954986755433`*^9, 3.572795641025793*^9, 3.5727958896902304`*^9, 3.572796097950596*^9, 3.5727961638295116`*^9, 3.5727962275244236`*^9, 3.5727967526837463`*^9, 3.57279687450436*^9, 3.5727970007865815`*^9, 3.572797390724867*^9, 3.5727974379305496`*^9, 3.572797863577297*^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.5727954987067432`*^9, 3.5727956410725937`*^9, 3.5727958897214303`*^9, 3.5727960979817963`*^9, 3.5727961638607116`*^9, 3.5727962275556235`*^9, 3.572796752714946*^9, 3.57279687455116*^9, 3.5727970008177814`*^9, 3.5727973907716665`*^9, 3.5727974379617496`*^9, 3.572797863608497*^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.5727954987223434`*^9, 3.572795641088194*^9, 3.5727958897370305`*^9, 3.572796097997396*^9, 3.572796163876312*^9, 3.5727962275712233`*^9, 3.572796752730546*^9, 3.57279687455116*^9, 3.5727970008333817`*^9, 3.5727973907716665`*^9, 3.5727974379773493`*^9, 3.572797863608497*^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.5727954987223434`*^9, 3.572795641088194*^9, 3.5727958897370305`*^9, 3.572796097997396*^9, 3.5727961638919115`*^9, 3.5727962276024237`*^9, 3.572796752730546*^9, 3.57279687456676*^9, 3.5727970008333817`*^9, 3.5727973907872667`*^9, 3.5727974379773493`*^9, 3.572797863624097*^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.5727954987379436`*^9, 3.5727956411037936`*^9, 3.57279588975263*^9, 3.5727960980129957`*^9, 3.572796163923112*^9, 3.572796227618024*^9, 3.572796752746146*^9, 3.5727968745823603`*^9, 3.572797000848982*^9, 3.572797390802867*^9, 3.5727974379929495`*^9, 3.572797863639697*^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.572795498753544*^9, 3.5727956411193933`*^9, 3.5727958897682304`*^9, 3.572796098028596*^9, 3.572796163938712*^9, 3.5727962276336236`*^9, 3.572796752746146*^9, 3.5727968745823603`*^9, 3.572797000864582*^9, 3.572797390818467*^9, 3.5727974380085497`*^9, 3.572797863639697*^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.5727954987691436`*^9, 3.5727956411349936`*^9, 3.5727958897838306`*^9, 3.572796098044196*^9, 3.5727961639543123`*^9, 3.572796227649224*^9, 3.572796752761746*^9, 3.57279687459796*^9, 3.5727970008801823`*^9, 3.572797390834067*^9, 3.57279743802415*^9, 3.5727978636708975`*^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.5727954987691436`*^9, 3.5727956411349936`*^9, 3.5727958897838306`*^9, 3.572796098044196*^9, 3.5727961639543123`*^9, 3.572796227649224*^9, 3.572796752761746*^9, 3.57279687459796*^9, 3.5727970008801823`*^9, 3.572797390834067*^9, 3.57279743802415*^9, 3.5727978636708975`*^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[{"tpu", "=", RowBox[{"Table", "[", RowBox[{ RowBox[{"{", RowBox[{"0", ",", "0", ",", "0"}], "}"}], ",", RowBox[{"{", "nj", "}"}]}], "]"}]}], ";"}], "\[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}], Cell[BoxData[ RowBox[{"\[IndentingNewLine]", RowBox[{ 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"}], "]"}], "]"}]}], ";", "\[IndentingNewLine]", RowBox[{"Q", "=", RowBox[{"{", RowBox[{ RowBox[{"{", RowBox[{"1", ",", "0", ",", "0", ",", "0"}], "}"}], ",", "\[IndentingNewLine]", RowBox[{"{", RowBox[{"0", ",", "1", ",", "0", ",", "0"}], "}"}], ",", "\[IndentingNewLine]", RowBox[{"{", RowBox[{"0", ",", "0", ",", "1", ",", "0"}], "}"}], ",", "\[IndentingNewLine]", RowBox[{"{", RowBox[{ RowBox[{"-", "x2"}], ",", RowBox[{"-", "y2"}], ",", RowBox[{"-", "z2"}], ",", "1"}], "}"}]}], "}"}]}], ";", "\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"}], "}"}]}], "]"}], ";"}], "\[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}], Cell[BoxData[{ RowBox[{ RowBox[{"c", "=", RowBox[{"conn", "[", RowBox[{"[", RowBox[{"conj", "[", RowBox[{"[", "11", "]"}], "]"}], "]"}], "]"}]}], ";"}], "\n", RowBox[{ RowBox[{"c", "=", RowBox[{"Take", "[", RowBox[{"c", ",", "P"}], "]"}]}], ";"}], "\n", 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[{"nk", "[", RowBox[{"[", RowBox[{"2", ",", "3"}], "]"}], "]"}], "=", "rlo"}], ";"}], "\[IndentingNewLine]", RowBox[{ RowBox[{ RowBox[{"nl", "[", RowBox[{"[", RowBox[{"2", ",", "3"}], "]"}], "]"}], "=", RowBox[{"-", "rlo"}]}], ";"}], "\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[{ RowBox[{"tplo", "[", RowBox[{"[", "k", "]"}], "]"}], "=", RowBox[{"nk", "[", RowBox[{"[", "1", "]"}], "]"}]}], ";"}], "\[IndentingNewLine]", RowBox[{ RowBox[{ RowBox[{"tplu", "[", RowBox[{"[", "k", "]"}], "]"}], "=", RowBox[{"nl", "[", RowBox[{"[", "1", "]"}], "]"}]}], ";"}], "\[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}}], 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.572795498831544*^9, 3.5727956412129936`*^9, 3.5727958898618307`*^9, 3.572796098122196*^9, 3.572796164032312*^9, 3.572796227742824*^9, 3.5727967528397465`*^9, 3.5727968746759605`*^9, 3.5727970009581823`*^9, 3.5727973908964667`*^9, 3.5727974380865498`*^9, 3.5727978637488976`*^9}], Cell[BoxData["51"], "Output", CellChangeTimes->{3.572795498831544*^9, 3.5727956412129936`*^9, 3.5727958898618307`*^9, 3.572796098122196*^9, 3.572796164032312*^9, 3.572796227742824*^9, 3.5727967528397465`*^9, 3.5727968746759605`*^9, 3.5727970009581823`*^9, 3.5727973908964667`*^9, 3.5727974380865498`*^9, 3.5727978637488976`*^9}], Cell[BoxData["21"], "Output", CellChangeTimes->{3.572795498831544*^9, 3.5727956412129936`*^9, 3.5727958898618307`*^9, 3.572796098122196*^9, 3.572796164032312*^9, 3.572796227742824*^9, 3.5727967528397465`*^9, 3.5727968746759605`*^9, 3.5727970009581823`*^9, 3.5727973908964667`*^9, 3.5727974380865498`*^9, 3.5727978637488976`*^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"}], "}"}]}], "]"}]}], ";"}]}], "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}}], Cell[CellGroupData[{ Cell[BoxData[{ RowBox[{ RowBox[{ RowBox[{"Plot9", "=", " ", RowBox[{"Table", "[", RowBox[{ RowBox[{"Graphics3D", "[", RowBox[{"{", RowBox[{"If", "[", RowBox[{ RowBox[{"(", RowBox[{ RowBox[{ RowBox[{"a", "[", RowBox[{"[", RowBox[{"i", ",", "3"}], "]"}], "]"}], ">", "0.98"}], " ", "&&", " ", RowBox[{ RowBox[{"a", "[", RowBox[{"[", RowBox[{"i", ",", "3"}], "]"}], "]"}], "<", "1.05"}]}], ")"}], ",", RowBox[{"(", RowBox[{"{", RowBox[{ RowBox[{"Lighter", "[", RowBox[{"Orange", ",", "0.5"}], "]"}], ",", RowBox[{"Tube", "[", RowBox[{ RowBox[{"{", RowBox[{ RowBox[{"{", RowBox[{ RowBox[{"x", "[", RowBox[{"[", RowBox[{"a", "[", RowBox[{"[", RowBox[{"i", ",", "1"}], "]"}], "]"}], "]"}], "]"}], ",", RowBox[{ RowBox[{"y", "[", RowBox[{"[", RowBox[{"a", "[", RowBox[{"[", RowBox[{"i", ",", "1"}], "]"}], "]"}], "]"}], "]"}], "+", "0.12"}], ",", RowBox[{"z", "[", RowBox[{"[", RowBox[{"a", "[", RowBox[{"[", RowBox[{"i", ",", "1"}], "]"}], "]"}], "]"}], "]"}]}], "}"}], ",", RowBox[{"{", RowBox[{ RowBox[{"x", "[", RowBox[{"[", RowBox[{"a", "[", RowBox[{"[", RowBox[{"i", ",", "2"}], "]"}], "]"}], "]"}], "]"}], ",", RowBox[{ RowBox[{"y", "[", RowBox[{"[", RowBox[{"a", "[", RowBox[{"[", RowBox[{"i", ",", "2"}], "]"}], "]"}], "]"}], "]"}], "+", "0.12"}], ",", RowBox[{"z", "[", RowBox[{"[", RowBox[{"a", "[", RowBox[{"[", RowBox[{"i", ",", "2"}], "]"}], "]"}], "]"}], "]"}]}], "}"}]}], "}"}], ",", "0.06"}], "]"}], ",", RowBox[{"Tube", "[", RowBox[{ RowBox[{"{", RowBox[{ RowBox[{"{", RowBox[{ RowBox[{"x", "[", RowBox[{"[", RowBox[{"a", "[", RowBox[{"[", RowBox[{"i", ",", "1"}], "]"}], "]"}], "]"}], "]"}], ",", RowBox[{ RowBox[{"y", "[", RowBox[{"[", RowBox[{"a", "[", RowBox[{"[", RowBox[{"i", ",", "1"}], "]"}], "]"}], "]"}], "]"}], "-", "0.12"}], ",", RowBox[{"z", "[", RowBox[{"[", RowBox[{"a", "[", RowBox[{"[", RowBox[{"i", ",", "1"}], "]"}], "]"}], "]"}], "]"}]}], "}"}], ",", RowBox[{"{", RowBox[{ RowBox[{"x", "[", RowBox[{"[", RowBox[{"a", "[", RowBox[{"[", RowBox[{"i", ",", "2"}], "]"}], "]"}], "]"}], "]"}], ",", RowBox[{ RowBox[{"y", "[", RowBox[{"[", RowBox[{"a", "[", RowBox[{"[", RowBox[{"i", ",", "2"}], "]"}], "]"}], "]"}], "]"}], "-", "0.12"}], ",", RowBox[{"z", "[", RowBox[{"[", RowBox[{"a", "[", RowBox[{"[", RowBox[{"i", ",", "2"}], "]"}], "]"}], "]"}], "]"}]}], "}"}]}], "}"}], ",", "0.06"}], "]"}]}], "}"}], ")"}], ",", RowBox[{"Tube", "[", RowBox[{ RowBox[{"{", RowBox[{ RowBox[{"{", RowBox[{ RowBox[{"x", "[", RowBox[{"[", RowBox[{"a", "[", RowBox[{"[", RowBox[{"i", ",", "1"}], "]"}], "]"}], "]"}], "]"}], ",", RowBox[{"y", "[", RowBox[{"[", RowBox[{"a", "[", RowBox[{"[", RowBox[{"i", ",", "1"}], "]"}], "]"}], "]"}], "]"}], ",", RowBox[{"z", "[", RowBox[{"[", RowBox[{"a", "[", RowBox[{"[", RowBox[{"i", ",", "1"}], "]"}], "]"}], "]"}], "]"}]}], "}"}], ",", RowBox[{"{", RowBox[{ RowBox[{"x", "[", RowBox[{"[", RowBox[{"a", "[", RowBox[{"[", RowBox[{"i", ",", "2"}], "]"}], "]"}], "]"}], "]"}], ",", RowBox[{"y", "[", RowBox[{"[", RowBox[{"a", "[", RowBox[{"[", RowBox[{"i", ",", "2"}], "]"}], "]"}], "]"}], "]"}], ",", RowBox[{"z", "[", RowBox[{"[", RowBox[{"a", "[", RowBox[{"[", RowBox[{"i", ",", "2"}], "]"}], "]"}], "]"}], "]"}]}], "}"}]}], "}"}], ",", "0.06"}], "]"}]}], "]"}], "}"}], "]"}], ",", RowBox[{"{", RowBox[{"i", ",", "1", ",", "nb"}], "}"}]}], "]"}]}], ";"}], "\[IndentingNewLine]"}], "\[IndentingNewLine]", RowBox[{"Show", "[", RowBox[{ "Plot1o", ",", "Plot2", ",", "Plot7", ",", "Plot8", ",", "Plot8a", ",", "Plot8b", ",", "Plot9", ",", 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"}]}], "}"}]}], "]"}], "\[IndentingNewLine]", RowBox[{"Show", "[", RowBox[{"Plot1o", ",", "Plot2", ",", "Plot9", ",", RowBox[{"{", RowBox[{ RowBox[{"Axes", "\[Rule]", "Automatic"}], ",", RowBox[{"AxesLabel", "\[Rule]", RowBox[{"{", RowBox[{"xl", ",", "yl", ",", "zl"}], "}"}]}], ",", RowBox[{"AspectRatio", "\[Rule]", "Automatic"}], ",", RowBox[{"Boxed", "\[Rule]", "True"}], ",", " ", RowBox[{"SphericalRegion", "\[Rule]", "True"}]}], "}"}]}], "]"}], "\[IndentingNewLine]"}], "Input", CellChangeTimes->{{3.5681365021632137`*^9, 3.5681365171392403`*^9}, { 3.568136560351316*^9, 3.5681365863097615`*^9}, {3.5681369135895367`*^9, 3.5681369265999594`*^9}, {3.568137821916732*^9, 3.5681378378443604`*^9}, { 3.5682072492149415`*^9, 3.5682072529901485`*^9}, 3.568209802830227*^9, { 3.5682216503836985`*^9, 3.5682217583046885`*^9}, {3.5682217912831464`*^9, 3.568221843465238*^9}, {3.5682219760654707`*^9, 3.5682221133457117`*^9}, { 3.568222159615393*^9, 3.5682221693498106`*^9}, {3.5682222565227633`*^9, 3.5682222578487663`*^9}, 3.5682224736283445`*^9, 3.5682227227607822`*^9, 3.5682227558640404`*^9, {3.568222818810151*^9, 3.5682228486062036`*^9}, { 3.5682230057764797`*^9, 3.5682230079916835`*^9}, {3.568223041952943*^9, 3.5682230548229656`*^9}, 3.5682232619601297`*^9, 3.5682233000709963`*^9, { 3.568223536645412*^9, 3.5682235381118145`*^9}, {3.568223591151908*^9, 3.568223591526308*^9}, {3.5682236491528096`*^9, 3.568223657483224*^9}, { 3.568223713222122*^9, 3.5682237532361927`*^9}, {3.568223800379475*^9, 3.568223827648323*^9}, {3.5682238887380304`*^9, 3.5682238893152313`*^9}, { 3.5682240287170763`*^9, 3.5682240612431335`*^9}, 3.5682241088076167`*^9, { 3.568224198772975*^9, 3.5682242396450467`*^9}, {3.568224282170721*^9, 3.5682243185031853`*^9}, {3.568224437890195*^9, 3.568224439590598*^9}, { 3.568224572253231*^9, 3.5682245867144566`*^9}, {3.5682247081762695`*^9, 3.568224733557514*^9}, {3.56822480520844*^9, 3.5682248433505073`*^9}, { 3.568224884206979*^9, 3.5682248959069996`*^9}, {3.568224982830352*^9, 3.5682250047639904`*^9}, {3.56822503870965*^9, 3.5682250803305235`*^9}, { 3.5682251223413973`*^9, 3.568225141451431*^9}, {3.568225234177994*^9, 3.5682252929588966`*^9}, {3.5682253775890455`*^9, 3.568225482140429*^9}, { 3.56822551694409*^9, 3.5682255297205124`*^9}, {3.568225573197789*^9, 3.5682255809666023`*^9}, 3.568225660698343*^9, 3.5682257301964645`*^9, { 3.568225765078126*^9, 3.5682257828933573`*^9}, {3.568225927026843*^9, 3.568225927416844*^9}, {3.568267062420238*^9, 3.568267081358671*^9}, { 3.568267188328059*^9, 3.5682672830358257`*^9}, {3.5682676367040462`*^9, 3.568267747979042*^9}, 3.5682678404716043`*^9, 3.568267882030078*^9, { 3.5682679252577534`*^9, 3.568267996612279*^9}, {3.5682680488879704`*^9, 3.568268061133992*^9}, {3.568268100914062*^9, 3.5682681150944867`*^9}, { 3.5682681672609787`*^9, 3.5682681709113846`*^9}, {3.568268272904364*^9, 3.5682683182536435`*^9}, {3.5682685202739983`*^9, 3.568268599194537*^9}, { 3.5682686348873997`*^9, 3.568268637773405*^9}, {3.5682686944951043`*^9, 3.568268872273017*^9}, {3.5682689420207396`*^9, 3.568269016947671*^9}, { 3.5682695040741262`*^9, 3.568269601153097*^9}, {3.5682696652380095`*^9, 3.5682696728352227`*^9}, {3.5682697489633565`*^9, 3.5682698308635006`*^9}, {3.568271156491429*^9, 3.568271160063835*^9}, { 3.568271244927984*^9, 3.568271369010602*^9}, {3.5682716250070515`*^9, 3.5682717312276382`*^9}, {3.5682717843301315`*^9, 3.5682718576814604`*^9}, {3.568271940673606*^9, 3.5682720536490045`*^9}, { 3.5682722259669075`*^9, 3.5682723223126764`*^9}, {3.568272370813162*^9, 3.568272411466833*^9}, {3.5682725893539457`*^9, 3.568272622238803*^9}, { 3.5682726936713285`*^9, 3.5682726960113325`*^9}, {3.568272741079812*^9, 3.56827275143823*^9}, {3.5682729218373294`*^9, 3.568272991070251*^9}, { 3.5682734285574193`*^9, 3.5682734302890224`*^9}, {3.5682734898811274`*^9, 3.5682735111595645`*^9}, {3.5682736115925407`*^9, 3.5682736313577757`*^9}, {3.5682738601945777`*^9, 3.568273987272401*^9}, { 3.5682763944346285`*^9, 3.5682764313910933`*^9}, 3.5682765128232365`*^9, { 3.5682766527398825`*^9, 3.568276660976697*^9}, {3.5682774496048822`*^9, 3.568277461663703*^9}, {3.5683784032731285`*^9, 3.568378422991563*^9}, { 3.568378459308427*^9, 3.5683784812420654`*^9}, {3.568378513440522*^9, 3.568378867046343*^9}, {3.568378915468828*^9, 3.56837896203491*^9}, { 3.5683790764299107`*^9, 3.568379270041851*^9}, {3.568380233530743*^9, 3.568380234388745*^9}, 3.5683804214954734`*^9, 3.568380471867962*^9, 3.5683805399464817`*^9, {3.5683812396077104`*^9, 3.568381293537005*^9}, { 3.568381339541486*^9, 3.568381420224828*^9}, {3.5684645223056345`*^9, 3.5684645572340956`*^9}, {3.5684651558539467`*^9, 3.5684651618911576`*^9}, {3.5688209923798466`*^9, 3.568820997683856*^9}, { 3.568821158754139*^9, 3.568821160750942*^9}, 3.56882222404881*^9, { 3.568822649274357*^9, 3.5688226508031597`*^9}, 3.568822723109287*^9, { 3.5693397221142225`*^9, 3.5693397223326235`*^9}, {3.5693899272912874`*^9, 3.5693899274472876`*^9}, {3.5693910617720795`*^9, 3.5693910848757205`*^9}, 3.5693911374166126`*^9, {3.569391214402748*^9, 3.5693912147147484`*^9}, 3.569391451944365*^9, {3.569391487793228*^9, 3.569391507620863*^9}, { 3.5693923162258854`*^9, 3.5693923173958874`*^9}, {3.569406068526634*^9, 3.569406086092265*^9}, 3.569690172138941*^9, 3.569780036185542*^9, { 3.570453906913044*^9, 3.5704539079894457`*^9}, {3.570454575670618*^9, 3.5704545899602437`*^9}, {3.570454765008151*^9, 3.570454772277764*^9}, 3.5708553779481487`*^9, {3.5709431726830034`*^9, 3.570943174555007*^9}, { 3.5709495710522423`*^9, 3.5709495907082767`*^9}, {3.570949647617176*^9, 3.570949673138821*^9}, {3.570950759321929*^9, 3.5709507772775607`*^9}, { 3.5709508127364225`*^9, 3.5709508405200715`*^9}, {3.570991123104905*^9, 3.570991124259307*^9}, {3.5709912161278687`*^9, 3.570991227937089*^9}, { 3.5709912804155817`*^9, 3.570991308776431*^9}, {3.5709914026885962`*^9, 3.5709914215490294`*^9}, {3.570991574429298*^9, 3.5709916038821497`*^9}, 3.570991652445035*^9, 3.570991830004547*^9, 3.570991865276209*^9, { 3.5709919181759014`*^9, 3.5709919260539155`*^9}, {3.570992027251293*^9, 3.570992050058533*^9}, 3.5709920901350036`*^9, 3.570992186979974*^9, { 3.57122255431676*^9, 3.5712225562355638`*^9}, 3.571223175338251*^9, { 3.5713153738729277`*^9, 3.571315375682531*^9}, 3.5713224026962075`*^9, { 3.5713224627875133`*^9, 3.5713224654863176`*^9}, {3.5713224965147724`*^9, 3.571322572268505*^9}, {3.5713226259637995`*^9, 3.5713226549330506`*^9}, { 3.5713308245340652`*^9, 3.571330884469371*^9}, {3.5713309160126257`*^9, 3.5713309422674723`*^9}, 3.571331071326499*^9, {3.5713311246629925`*^9, 3.5713311332274075`*^9}, {3.571331300334901*^9, 3.5713313470881834`*^9}, 3.5713314298931284`*^9, 3.571331594130217*^9, {3.571331632849485*^9, 3.5713316334578857`*^9}, {3.5713316704299507`*^9, 3.5713316709447517`*^9}, {3.571331783327349*^9, 3.571331790019761*^9}, { 3.5713319475956383`*^9, 3.571331948360039*^9}, {3.5713326567416835`*^9, 3.571332681717327*^9}, {3.571332736801024*^9, 3.571332753305853*^9}, { 3.571332796221528*^9, 3.5713328475768185`*^9}, {3.571332914344936*^9, 3.571332924672154*^9}, {3.5713330072586994`*^9, 3.5713330320471425`*^9}, { 3.5713330798612266`*^9, 3.5713330883320417`*^9}, {3.5713331731961904`*^9, 3.571333178266199*^9}, {3.571333407851803*^9, 3.571333426837036*^9}, { 3.571333542292839*^9, 3.571333557705666*^9}, {3.5713336117441607`*^9, 3.5713337055939255`*^9}, {3.5713337750608473`*^9, 3.571333798070888*^9}, { 3.5713366694988756`*^9, 3.5713366834765005`*^9}, {3.5713369716090064`*^9, 3.57133697359021*^9}, {3.57138272164856*^9, 3.571382756233821*^9}, { 3.57138283537276*^9, 3.571382866900415*^9}, {3.5713829070080853`*^9, 3.5713829086616883`*^9}, {3.571382939175342*^9, 3.5713830233374896`*^9}, { 3.5713831045200324`*^9, 3.571383106126835*^9}, {3.571383198260597*^9, 3.5713832448422785`*^9}, 3.5716785972796593`*^9, 3.5718167268987517`*^9, { 3.571838452469782*^9, 3.5718386879053955`*^9}, 3.571838766139532*^9, { 3.571838857446493*^9, 3.5718388645757055`*^9}, 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}}], 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}], {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]}, 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, Axes->Automatic, AxesLabel->{ FormBox["xl", TraditionalForm], FormBox["yl", TraditionalForm], FormBox["zl", TraditionalForm]}, Boxed->True, ImageSize->{399., Automatic}, SphericalRegion->True, ViewPoint->{-1.2208475870308024`, -2.3381859173184063`, 2.1195324449734096`}, ViewVertical->{-0.7226837734362352, 0.3465060821496621, 1.067170912520294}]], "Output", CellChangeTimes->{3.572795498909544*^9, 3.572795641322194*^9, 3.5727958899710307`*^9, 3.5727960982313967`*^9, 3.572796164157112*^9, 3.5727962278208237`*^9, 3.5727967529177465`*^9, 3.5727968747695603`*^9, 3.572797001036182*^9, 3.5727973909900675`*^9, 3.57279743818015*^9, 3.572797863842498*^9},ImageCache->GraphicsData["CompressedBitmap", "\<\ eJzsvWd0W9e1NTqvEye5uSX3fimOu2T1Ykm2ZKv33rtkdauTIiVS7BR77x0E G0iiEEQjCZJgrwB7771KpHqxLNtJ7LyMkbcODkDD8gm/Md7vx6FFHByA++y9 9lxzzbVP0f6LdmZXb160M798ccZOm4vWZuaXbWfssLKhXb/4N+DfIsiCZ4DZ /idg/PVP+vfPSOYXs+f/3/7/sj2of/kFfvjhBzQ3N+Ovf/0rNOxHA/qXX6Gv rw9hYWG4du0aPD09kZiYiHv37uWw3+rXv/wWdXV1cHJy0jfAfOvBgwf6v5RK pQgICEBbWxvzWRb7V736l1/rD1tcXDz1l8zeqqoqfVfe0L97E9988w0qKir0 rebl5THHRgbbTI9J740f/8Kwj/kz5sDMu18amuLoEBRsU92vNcWM503DPua9 sXdvTtMrGdtUl+HPGBcwjuvq6iI3svuMg2Pe/cakV8z3THuVxjbVafgzU+/+ mmOAvzU09eTJE/0Ambky9krMNtVh+DNTd/87xwD/wzDtTPNMz5jPTHqWyrbW ZvCrqefp099yDPO//0XfXr58iWS2tVYO5/+nYR/TB6VSqX/3PybON/aNgSPT tyS2qRYT5zMfM87/LxOPMV9nhvr71yBh7BXzWTzbVLNJD4we+51hn1AoxNDQ kP7dHzggYQgS8Nmmmjic/z8mzTNHZt69xQFUY69i2KYaTDzP9IIx+vh/OVDx 9jRYjWJbq+eIoD+YoIJxI/Pu3WkiKJxtqu61phjP/5EDD+9P06tQtqlaE9cw kcH04k8cA5wxTQQFsU3VcETQnzlgP9MEpUyvTCOIPRiqTDxvMpFvc4xxtknH Xgsg+LKt6Tg8/y7HGOdOE9rebFNajvB5n2OM8zjCx9gzT7apSg7u+oBjgAv/ RfgwQe3GNlXB4fkPDfvGxsamBrh4mvBxYZsq5wifGSa+Mg5y6TTh48Q2VcpN XB9xxPWyaYDqwLZWwuH52RxxvXya8LFlmyrmIK45r+GB+fpn0/TqNttUEQdx zeMI6pXT9OoW21Qhh+fnm+DBOMDVr/XKFKWWbFP53MS1gAPz66aJa3O2tTyO 8FnMgfn104TPdbYpDQdxfcyB+Y3TZ8YrbGu5HNy1hGOMW6ZJi5fYpnI4ImgZ xxi3ThNBX7JNqbm56xOOYe6YJojOsa1lcQfRpxzRvWuavp1hW8vkCKIVHNG9 d5qOfcE2lcFBX58b9qnV6qkx7psmiE6wTak4nL/SZG6NmuTgNEF0lG1KyRFE qzhC+/A0vWI/g/w1zxuCaI0JfRmj++g0QXSAbU3G4fl1HNF9fJogYl2JdA76 Ws8B+5PTB9FutjUpB4Nt5ED+qWmCaCfbVBrHPG7igP0ZjuRo1Jbb2abE3Ay2 mWOY5/9FfmSOzkY+RBwMto1jjBemiSB2IBByMNh2jjFemiaC2MlCKgd97eCI 6yvTYHUt21QKh+d3csT19WkiiA0TCLjpazdHaJtN0zGWCgylws/oaw9HdFtM E0RsUkciRxDt44jum9OkSJaHkcBBXwc4QtvKpFevy0s21xhqmJ86/yBHaN+e JrTZfIo4Dvo6xIF5W44IMvZMX578glm2YXU8YrmJ7AhHANj/i1higtxY9rAL QvqVDUNpBx7HvBzjCArHaeJLX7b/kmn8zX99oBgO6jvO4Z87Jvg6deoUqqur DcUxZ7PRHBx4ksM9zibTs3v3bly+fJktnt8wcXcUBxy++JfO+NVUoB0+fBg7 d+7EiRMn8N133/0HR3fZGg8Rr4WoYUJPcTiCFc+/npoZZ2dn/UHoAEhJSUFP T4/JCAzth3PQ5VkOd9jpf//mJ9P+6tUrfePMJwUFBdDpdLPYVsM4mPMcB6vY coDpl4Z97e3telwy79g6wlDH/pRFz3PQiw1Hs0akMZ1m5tKk2RCOWbxg4mDj 4sZtjlEZl40MM6l/xxa9hlL5Z+x60YR5jDWRFUfLvzHsCwoK0k+dScuB3Ex7 ycQVRiK6xcF9/27SMs2ZacsBHJ67woG1m681y7jnN4Zeff/99/qmGS/TBBqc 7M/RkWsmQDOSsAVHfBqX9JiWGUczsDDOo6F5P44/u84RiTf+ZfO/mGq+rKzM sEz603lla2PDSsNPiduMw0fmHLAyup5xO3MY5t0bJtNhnGjDoby56fyGid+M AXqd42jGZTVDcJq27MUx0ZYc/rrG0axxic00Qg3NenKQ9k0O31w18aFhUFNJ xzRCDc16cMyaFYcTLnM0+38M+5jEw/wws2lo1p1jcNYcTrj4mrOY4Pq9YWqY Zm/dumWcPUPLrty0bWQQRvIZyerLf9k4Kx+MFG6cRMMRXDj+zNbE00bSuvDa 95ix/tHQOyOwDRNpaPkOx1/Yc5DWOY7v/ZljDtnVqamEakreDhyMdZaj2Xc4 olG/nqpPZWz8GpaifjqbjhzYO8NBtsYlQtMYNC6NmmZlNosY+v0zajcO0ZTP TnEc7T2OuPyToUnTo/3TIO7+jT2qPTftG+fLVH8aRYiRbZlX41FNWfStKSfq T/D829TRDIe045gMVw6fnjQ5ntH375nkA+PxCBP/t0PavtZ1xmHuJo41xrpR C5pygnERnHGskV6NmPkjh4Pp5w3OTthwNO5h4mcjMxiVrynmZppgiWEH5t3v pwb9xtQWO/6p/hiObKQI0+ziyeHxoxxHNi63muLqHc7xWb0GJQM/eXP4mV1+ +hXu3nuGmupBNJA16gbRpCUr73+box+zOBLE2z/1AKaUiSm0fDlczK4+/ycm Jp5BoaxFRJgGfDJBiAaiIA3SAjRI9yXz1EDmqkFFYi2ejjz7I4cfjWvIpuzE QuYngsYYpr4GNBl7aLrawK5k/g7qjFrERmsQT5YaRb2I1EAVroE6VINc6l2e vwb5PmReGhS4kznnooFfjedDT6Yyk2m2msvBdGwgTaVnU0yyXfypLGf2GAtF Q83Jrgb/HzyYfIqEmBwk8TRIJpOQqajnOdTr/Ig8lITmoTw4D5VkWr1poA0k o1HovHJR6ZyFlyNPfmcydcbOG1fCVSqVHtIM8g2+teCAiO9rs8/4+5cGUJqu E1Ezcw10//D+U6TwspHK10BIJo3VIJOXB01MIYqjilERWQpdRBlqIstQH12O hpgyNMaUoiG6GPVRhWgIz0NjYA7qPDPw9diT/3qtB4yr5hl6wAyCCV8GvBRI hnGYv8b6hjnzNYGOkbB+/dpQmKilocwyUP3DyccQ8jIhpmFI4vKQzi9AZmwJ NLwKlETrUBldjeqYWtTz69AcX4fWxDq0JzFWS1aNtgQd2uLK0c4rQnt4Npp9 5Xg1/ug/XhsS43Dj2SkG80wV+M8f8z1bh5tWg2YcPuFS1r81GZ7J2tJMw/BK sioh5WdDGpeP9LgSqPiV0MRWo5hXj0peE2r5LWhMaEOroB0dqR3oEnagR9SO HnEbWSttN6ErtR5dgip00d93RarREij+LcfwFnGEtBFHrzE9ewJ2SiibtuLH gdD/MjjOuIRjuhrEAuLP6GjoRDpPBRk/DzKaDyVFdja/AYW8VpTzOlAd343G pF60pvajUzwAnWcp+tIHMSAbwKC8n6yXtrvRm96BbkkzulNr0J1YjO5YJR7V t/+Go6vGUyimBPGLaQd8zWQCjfjkGrDpZQCvD5jVde+iumYQdWSNZIrEIvDc 0xHrloWUwDKa5Raa5U6U8nqhixtAvWAYLaJRdKSNI8NWi3bXWowkt2M48y5G MsfJRml7GP2qQXQretAtbUW3qBrdyfnojBNNldamo19iMnpjbp1+9Fc5Rmoc vWlu+L3J6E3XEX/87JeYnHxG1FCHSCL4uHDNLwxZPNpCiOjraYi5kg42s/+e eL8VNYK7aBJNoE16H93yh5Db16HjTj4GsyYwlvMIY7kPMZ77ACO5kxjIvoue rGF0q7rRLSMkpFWgW5iBb4lU3nzNEcwELuVI9dM7whgbr2lW39eUgGHMf3rN HSYfGcrKjzA58RTZmbXgUwZJMOQ/GWWSDHKPlICRcitF3xfRDan+VXxVCekl Nj0UuNahRfoEHYpn6M14AY1vPQY9cjCm+Qp388kKXuBewXP0Zd1HU/oIKgVd KIyuQ3FEOYpDc1ESKEKtUIPOsgHjpUmm/Gs8n8eIQKMCmd49l7j98HqeYna/ M41v2Otr5v8k06ZQokpjMm0MZVryUQFlWrWHHDJrkb4zKmu5/jXTSoWsWxn6 7dzrGSiyKUZXxiv0qb+FJrAN42FFGC/4DveKvsNw7ldoSZtEdfIItEn9KE/s QllcMyp4VaighFgZIUeRbxzUbqRFnHJRxa8yXawx9Q9TYDLU+ebr2eD1steU KU33ffBasjOIDnat498p2b2Wt/k/z9ts2LyPHAc1NE45+nf5zqxcYn5K7dUo s86E1rkU/bk/oDC0F6M09PGSv6Mn82s0iB6QTaBOOI6a1GHoknuhTWyHLqEO uvhSVMVmQBcahVISiqXelHTtBbh13RIPeyamLkgw+oJhVSO7snXhVI1uCjFW lP9Wr0vlilpEkuJLIE2aTKovxTcHHhejEHNbiu6KQTweffaWQcY+e/EQg8Ot GCLLzUtEgSYRhTlk6kQ06TQoz8+Eq7ODUfywV7gtnFIMEn7uj4qBX4w8XjlK YnTQkmKoialBrlOW3mFF7iUo9ijTb5d5laPcu1y/rfMsRLUr4cFehWqPEsLJ MO5J76JV9gKN4sdokjwie0Db5EzxGKqFg6hK6UJ1ShNhrRI1STl0HD5qwwsg 90yGlflNVPpkosY9C1+PPjFeKmK6NGzkaoMvjQsSPy+t/hv3iWCjI3MQR1GS YlDTDJukeyvAt+Qj3TEN+TSFGtL6GtL6tQm1eDb8lOXn/8GLrx6isVmDopIk lJFpSwSoKhKgplCA2nwyDVk2vc9MQrUyEVnxEbhjY21UZ6xuWIRiE/ki+5l8 aTTIl1aU+ZHvvSr1fq3wq2P9G9SA6qB6/XZNYBXq/EmMknKuuyNDqZsWfam9 qCcfN6Y9RJP0AXHgfTRLJ9EgmUCteBQ14n6kBpdAREhytUqFt6UATmaBML9m AbmzHFkOSrQQ/zX5qkjxPYbxUoOflXyYWhk3zXIeBk/lZFYRPeXqiwCGmjKI mjTkcIVnGpIsolDinwUddaGKTEeArqQiq4LKmHKXHNLUWnap7gO0tOSirDwR FeVJqCon55YJ0FAqQHNJMlqLyAqS0ZYnQGuuAC3k+OYsMlUSmmSJKE2JIzqI nZIZTIuPCeWmekph0FNFsS3EbO2oie8iPdVjTLzawBZUBbehJqzDwCDvoiGy DbURzagLI/kcVIYGXzWKLCJJdvWgPu0+GtPJ4WStZC3pkyhK6EaMTyG8nRUI cJYh3CkNPAchfCwDYXHdAkmWIqSap0F4RQLRBRFUV1OhcxaR8x9OZRnTOtfg /LOvpRNDreBhKMTysnSUFnL1fCgjU8fmkWgsgNJDCqFVHHFVPvm5BE28ErTE FqOZV4immHwanQb1NCe1PtnoSKj8bwMHvfzqASrKEqCrTERVZRJqKwVorCC/ lyejvSwZnaXJ6C5OfgM9hclYiR6alu4CAbpoajpoajrUSehQJaItLR4PR4am 1J8kVgxJhBJyfimE4VoIAqqQ7l+PLL9m5AW0UbnYibp4krZpY2iM64ZOPxfd qAvvo4prAHVkDdEDaOL3URlD+2NaUB9Zg4bQIpQ7JaA2qgB1aRNooHlokk2i hUwVVYsgVxWC3VQId1MgxlmKZGcJAq0C9PORfltMiVKGzJvpyLQgI+GVdZn2 naEhh+ZMzYlpQWCYk9cX/pg85WkoLgsyKyCKzSZupQmJKyDUFRPqypHhRZxr I0RNVCVaE2rQkVSDrmRS6ckkVFOoPBFUoiOxFG38QrRRADUHZGGiovs/DbTN TExVRQJqtIlkSajXUgCQtVcmo6s8BXUaijWFLzJTnCCKsYA02pJIjyyctoNv oELog3KBN3ooS/RkJaBLFo9vH5Nk7B9CmFMo/G7HIcBOhRBH0uJOWqQ41kLm 3EhpvwX5XjRDvh0oD+hES+IIzQxFQOQg1cWjaOSPoYE/jvq4MTQJRlhR9BYq vCX0NTmq09i18gbZPZr0AkR4qBDhqUKUpxLxHkoku8rhZ+0HS5qQDAcZ8u0z UEhW5KCiVwUKbGUouJ2GIgqewisJaI4smpoY08KFXTzCaQ6B62moJR8RJUh4 GXrVwJBxVlwlCvk1SHdTQ2InR21sPdqT20gst6FP0oaBtDYMUiUxKG3GYFoj +sS19JkOXUll6OTloi1YgVd3DaXyDlSXx6NOm4B6XSIadMRS2mR0aFNQnx+N bIkTpImWUCbeRBZZTsJNaOJvIo9/E/kx9BplidwwS2QH3YDa1xw1CZ7oz05A jzwOWnkWwhwSEOogR7BtDgJvFSD6thYixyZkuLUj37sbaucmVAb1ozp0EPXh Q5Q3KGwiaUJiJ9CcQDSVRKImmSiLhE0T5WLmp45EjT7PhGSgOiQFWiqumJ/k gDxE08zEeCkRSybwUkHkmQFf6yC4Wboh00mOYhcKOzfShu6F0HoUoNIjDxXu 2Sh3zUCFUzoqbVNR7ShCt6DcWGcxmsi4mmOIolMc+dvLMFniKClkFEUyfhmU cTXIiqpBoq0KGZ7FlLe1qHYvRxdN2ICsH0OKfowo+zGm6iMjOafqwrCyHX1y qn4kdRRdZejmqzGsKmEL/2Xobs1GgzYejTpGK9Fk6ZjJSkWO1BGKZEtkJN9E dvIt5JMVk5UKrFCeZIXKBLI4K1TE3kJ59E2URFiiKMQChf7mKPS4jkxHc+qm CyLsUxHpmI1ox1LE2FchzqYeyTaNUNxpR9BJHapcWlATTgk8epwY+S6aY8ZR G0qRFDWJ1qQnVOY/QbPwMU3YA9SJ7qJGOKT3njaOWc7JZaPsD/r5ifXKQJJ3 FoReatwyv03RFIpc9wKUeFRC601f96tGbUA16khD1AZqURNQhho/0m4+uaj1 UKDWKQltgUpMajsXG1KNUb8aFq0M02U8E2Ba/3oZli8eTz6CLEYBOWUYOb8W 8qgGxNpmQ+5eQdX7ILFIF7Ru3RgQ9WI44y7Gsu7ibvY4JnLGyEZxL2cYo9kD GMjqQY+SYlDKTBsVLfFyfDP5kF2++B1eEQk2VMShieKsSZekn7bawiiashvI TKX4EVIsCWnKhDRdZNpUK9Kb1qhNtqa0XpdkjdWEeyvK/reojiG9ybOkooGY x/EUpOZHEXPJElHE0TH2eYi114Jv34RU5y6iiH5keg4g0OIhKtO+QXvOYwwm dWEgeQBdlJpaYqlfUaTD4mjqhC8oxp6RDnuEWgnVVaTFtKR79TousVD/mh2a pn+N9VTQ/GWCT7ouwUvDzt/tSKrptCj2roWOav/a4FZKc21oCm9Dc0QLWROa IurQEFZFCbycpEk+6n3k6IrOQUeoFK/uPZy6+tu0EDFKC8NsnuBegtRfG/6L HxfX/4zuhk59X+U8HdIiGxBmSyrapx5VScQvonvQxt5FXuwkRdwwxrIf4Z7m ESbzH+F+wUM8KHiAiYJJjOXfxZBmBL3ZfehWtaI7vQrdohw8ae0wTm1vixpN FfGU05LIklFN06pKuUFTaoFcEdGkiKJQTFMqtka16DbqyRqFNmhOtSFMtght 2Jh4DyrnE8iwOw7jD8+2GHzbOiTYtUPoMgClzxg0QZMoi3iEykiaz4hJlEpf kcr8Afdqv8Vz9SDG0kaI4ofRkkpzKXmOOukT1JC+1pE8qRT1sHMpLEZlUgar Fv9EU5lJU5mPaK9C3DS3QYh9CjK96pHt2Ujat5eiuw+Nkf1oie5HG68f7bG9 aOd3oy22A628FtJk9aTJKtFAmqw7iSGsLIqUQna9/Vc/mUlmj0GUGCbzOIce YQXLb1BdM4D62kE0k4X75SCLGLFNN4jWykE8MFaT70ytZaSHi/XbkvAqBN7O gci/BSUJE6hOZUqMx+hWPqMofYEqgvlE7gNMFn6FB8VfkXsqUZdeAZ2oBCVJ +SiMJ30v7SL2akIdSZtWYT46hCLjdDeV8dFMcqZZL2NSoEo200+1hqa6QExT LbGGTnKbIsgWjRI7tJC1kXWk2REyO6V2mEm/bem9rb67zQQH5kfteYpdIbpl Cd61KP12/O0mJNr3QOg+ApX/BPLCHhF5P0NN3FdUA7wke4b6BCr4ku6jIe9b DNX/HS/7vsMPumHcz7uLDvGwvp3K9HEUJDexxwkTkMxOhnH6Yzxp6ik3WZrb ItBORBVtC7J9OpDj1ou6yFESr+PEEuNoj7uLzsRxEhFjZISypEG0J/aiJaEd DXH1+lMN3SJShSlF6E5MN158b1oFc11Qwq6qTp1ENF1TuWRYLmhsGERUBPFM hIYkOMVwmAZKAlsmFWVZ/vRKRZnKgwo351z0lgz80bBOa8SFPEyJFP98/ftE nwbk8O+iNPkhaig8WuUv0ZP5CoM536JMNII6uY6yAB+Z8XFQRkZDGhhKaj8E Ut8gSDz94XMrEL43AiB2TUVFRCbpSj76SwcNN+Etwf2RJjSXxRFAEtFM+lYj tUd26g0Ch+UUOLQSG9QSGBrJWkT2aE+1Q7fYHn1p9hhIJ1PQtsIB3fTaKbdj 14GCzkLjf06/nXb7FmKvRrMAsWpAklM/idFhiB2HqSKZRHnsC6JrAkjKS7SK vyKgfUUAJHoXUbWXSpMouYuWkpcYafsbvpv8C/7RNvyGgYHSA8XICo5FdnAg Qm1j9Xsj3IthQdjwtpVA6NGBTO9+lASNI89nHA3Enk38B2hLfIhOwUOa+4fo oXDrEU6S4KRDCUf16/6NJE4bEog55S2UILU03Gw8aWvjWsc34MF4atd0wf6i oXBvauhHbFQuEqlgF5EpojXIjmLO3mlQTNgoJWyUEzbKqWAv9aN93hoUuVFx b5+N58PP/ndqje8NA1ISaDb9LVn2UEQNIzf+PkpTn6ImnTyo+g492X9DXrIa yoR4pEYl0OexyAinZBcWgTT/KAQ68OBuxYffzVgE3eAh9FoMQi9FIfRcJMLP RCPdQoEMSxWGCnsNJ2b+Fw8YpJRS1igXoDqP2iIayU210GeLIkJJBaGkhhDS QMhoSiEKIaR0EUL6ZA4YVDiSJHQwrOOS6gk/N5U0NAEX2dn8BPwrUsRbVCDJ eRAC93GkuEwgP4zyR9xzVAteoIGIsEXyAu3pL9CheI4u5VN0UBnaJhklYFK5 StagfIiqqq/RP/BXYrseZMXIkBXOR250JJwPeCHkjgY3zGzhaZeBOLceyDxH CIQTKAt7iIKgR2hMeIQWYqn2FGpf+By9pC96Jc8I7E/QK32ELukEHW+EdEc3 6fx6dGd2UZ4lCaUowpOu7qlTPaZrOwaIGC/oNVV1Fw1rC7mZVUiiSodZdk4n U/MIHgSV0ug8aCPzUB2Rh1qyetrWrycQdOoIOtXBGugIMhWuORgu6mXXeD6c ohLmUP7XIyEJ0On3KaPGkEPYLxVRyMm/QZVsDAqijsxEAklyItLC41CRHAl5 cAy87GLhZx+HULIYWz4SbvORfCsWQosYiMyiIboSCeGFMKR8EQnRF0mQnU1F K19rWLL/E/obs9BcQnmnNBn5lE+yk82hSaWcI7JGMYFFS/vqCCD1KQ40e46U YxzRK3fCgMoJw5lOGFU7YTzHSd/v8VxHNi9Ef8muIy2nSbuC2IthLKuYFxOr 9EDkMwGh513khtxDSfwz6JKfUVZ8hibpM2JOmlQGMBmP9X9TldKJYip3ssOL oQjPhzy6EGlReRCFKyGPUyCTF49ElyCcP1yMa1dsYHZEAIvVarjtLgPvfAOS r1ZD7T6AoggmtT1HS8rX6BC9ojLoFQHlFfrTCYTyr6g0ekbgeITmtFHqSy+a mNOGuSTOcoha1BVEMdIp0DCnsI1rUgbQHOI+A3TRsASSn6lFaixpB6q05WQ5 /HwUxRaigleCGuY8OiW55tgytMWVoSOequmEUnQkFFNyLEBrbD4aiYYaQjWo 9VZjrKTHFD/MkfRqNKgecpJVejWd9Bgl4peUFobJSbGEmzjCDUMwPH2Ehbrz KcL4CHUizJAlOcZB7BAHGeFHRfjJtIqF+mYM1JZRUJuHI4t0g+pLIpMvk6A6 mYjG8CIDye1DUz4PzcUJqM4Jp+NeR46ANAtVGQWkP0rEtqRZ7FErdCBp6og2 qRO65M7oUzljKMsZoznOGNc4416eMybynfV975NbkIK+rN8ujLyuf80LuQ6B uTcLIrNCJNjWI5VAJPAaQ1bAMIriH1M8PCEZ/AQN6U/QpKBtmsg8fgPrj6gy ZEUUITM8D4qIbKRFZEAYJkdKRDrkiTJII8PhZWaPW2aOCLLRwOd2Nxwsx+Bt dR+uN57A4doT+F6eQOTFASRcbIbKphflPiNUjXSjJX6S4uEbdKZ/hXZSxfXJ Q2ggVVxDIKpIbEUpvx6lNLUNEtIvWcrFJhgyXslrWKo5yH2a7KIhUNsbuiHi ZUHCYIhwkRNXgiJ+BSpjdajlV1OpVUvCqQ5dyXXoTa1Dv5CMhNOAqJq2tehN KSdxxWAqH22RpEX9frxWw7jqa+Q7GZXP7L6lUAueIDelH+m8aKgSKIkL+NAk xSInOhw8D8pGd+IR45EAPr2mksmcE5FJJXSOgwD5diQK7ZNQ7JiIEkc+iu2j UWrHQ5F1NApuRCLzYiTSjwXD/MAXFMEH4HJuPWxObEaCx3mi/UMEJktoqFwt oLqmVGSHKokD6W5HKkGc0E5A6lG5YEDtgqEcF4zlueBugQsmCl0wWURWfAfG i8HKY81QHHMDbHZmfj5F7Nl4xF/TEGFWIMX7LlL9xqHw7kFe3EOUJD+iuuoR afhHyIyqgyy0jNinFIowtlxND85CemgG0iNVSItW6Bdn0mIyCUxSeN66jetX r8P5ixAEE+PF2HchzmkYqZ4TUAQ+hibiBQHia5Qm/IA03vfI4v+Agti/IyX8 eyiDXyLP7z7KfHpQ4FGLx9IhKiN7KGP3U2nVCW1SI7SJldDG5VC+ScRQUb+x smWqWQZQxtNCjPAxkJPxhpyfi+C38HDyEcQxCkj5OYQqZg1Qi0Li2wqCbW0c aYnEFnSktOmvIRlIa8dQejtGZO0YlbeStWBU1kj7CGkSkmHCCnRRQd8ZrSZ0 yQyXedi+fveZfm+3dhBy7xrIA3uI08nzcZ3kxQhix2iiqxhokmORFRmKWPcw RN7hIdo1Dnx3AcRkckcB1HZJyCdtVGodB61dPKpcUlDtIUK1F5mnEDUeQhQ7 EIWRqs684g3xaQ8kH3CC7eFTsDq8CTf3bYTTiXXwvrwWXlc2IMHrFKHMllBm j6o0R6ISZ8oBzuhQuqAni1BGCBvOc8VYoSvuFbtissQV90sIZaUuekTUMdQX +gUyg08ZyqGLKIwyR9K1QPAvqhF/swRJVPoIA0kweXRBzSfRJKBCmyStNKya 9hdBElIEYYAaAn/2pHVKkBjicBlEUTIIo9NIlEogS6SyiqqHa1euwPmIA1yO hsPlWDICr1WB5zCIZO9JyIKfICfyBYr5r6gi+YHo9zuKmO/QIPqaXr9CCwmz NvlzFCu/QzHlwwfNP2Cg/AGqxYOoSu2mSraZTIuqZObktgAVbrloI5n9YvCx 4VZq9iyk8Uz/a3Dbz3FG97IhWRZnlBCRZEHGL4YyrhoafiPK+K2oie9Ak6Ab uXcqobuWiy7fbIwoBzCeMYC7mf2YyOoj68E90nFjmQRDZQt6ZaTrxKT6kwrR Fa3Eg9rO16/S+vHxKsfweOwpZO6VkPt1Qk4FqChcRLEbDiWfElsCISWW0Bcc iiinSPBc4hDnKoDAWYh0pxRkWBHabFJQZi/Un6GqdRejiZDW6puKtgAhGvzS UOmRgmJnPgqI4/KsQ5Fj5gf5OVfwj1vi1oEdsN67CT7nP4PvpXXwvboJfte3 IsruMLKib6CKEmN1mjMa5XfQkemC3mxXDGjcMFLghvFiN9wrddMjoj/HGq2y q/rtDP9d+leJ506keuzQb6e6bIHI9SQiz0Uh1qwA8Y5NEPgOgXenlcqZQRrn KAQBFYij0jaJStx4HxUSfOQI807Q/z0vMB6CCAmSoshixEiKliIkkKdH2+FP P4HLAULc4XDcOSwwntdQR72YKhKqhV8TPT9HLYm5BulTNMoeo4VEVRup/TbV A7QoJ9FAWraOdEmNtI+sFbXSKiqZNYQACepJJtf7ZaP6jgIvRx4bVu1+qtLZ 5Zmp+xVNl8ovG058PJp4iPQoSu28Ashjq5DBb0YBvxOV/F7UJw1QzTOMfP8B KuaGMBqnw101s+46jvu543igGcPDvBHc1wzhbm4/RrJ70J9JWlDRSJqxEt2C XLRTHHJdMPemYS29LKlVv9whCshEakgg6dVQKGIjkZVA3BYZggj7IMQ6xyCO OCvBWYIU62SSXlLkO0opS8qhc1OizluF5gAV2oOV6AqVoyNEjAZvPqq8U1FB /FZKPFjoHIcC2wiSaH5QXXBE8NGTsCGU+Z1bCb+L6+F3dTP8zbYiyHwHgm/s RH6cJSHtDhqJ09qzXNGT64aBfDeqSNxJVbrjXrkbmmXXjEmzIHIvMgN2Qe67 yyAGPofQbStib29BwNkTCDwVjChLHeLc+xDh3ApxSAf4/tUIdclElEcWwt3S qcpn13VDfJIQ6hen346lwONFiajWFsPTPRzm16/j6GfLcHjRHFxbdwBuB8Pg eiiZqE2m/364Q5/+VRX1hPjiKYrE3+rfV6Q8hE78kFD0APXyBzSs+2hWTZJN oFExRuXEKOplw6hT9KNO2U5WgzoZFWaCHLTySkkEFaCNEvmAuNwINNOzzQag 7eU41X/hp2vCrMP+THirILw1EpN0kbofhC5xlGTvXSqZJtBHnUsjfh5wLcKE 5iEe5D/Eo8KHeFz0gGwSD4ru4V7hOEbzhzFIuOtRM5gjgpOUoDtZgfuNLa9f svjjU5p24NHIC6Q510PoTZVfUAAkESGQ8SKQEReNRHdfxDiGge+cBL5TGmKt RBDdTicVq0Khew4qPdWo8ctFhbsa5dYq9JBPennZaAkWoyUolV4FqAmUotxP imIvIQpd45FLsMu84QXVdXvYEeT8z66CP0HOnyAXcH0bgghuEVa7EHV7N6pl d9BAQq1N7YpuIrW+QncME9xGy9xRnnQGmqiDKIg5iCLeQRRGHyBi2w2F3y6k E+4k3jsg9NpG5eIWRN7ahlDzrQi7vgluRwIQcrMRIY7tRGbtcLutgo+DCv7O Cvg6iRHgJkaIt5iF7f8gJEyEUOK1Oy6BuH7NHM5njuLYknk49vFcXFuzG657 /WC7PQbmW2PhdIq9jC7GtQ+p/sNIC73HNvN7lIsnoKXJrJZPoEZ5jxB1Fw2K cUqoo2hWjKAhYxD1lK0asjrQkFmDekU+FZwV6BTUUkmnRRePxFG4Cg9rOmG6 kGk8mW6A3G6TQsBEN7HfeU/fF2ZLEpICeVSB/r0iph3ZsQNUTo9RyTyJprRH 6KIqaCDrGVVZz1Fk24uHmWN4VPwCT0pf4GnZczwpe4qHZY8xUfoQY8UTGCoc Ra+GSt6sVnQrdeiW5uBxe/uvOdI5C8UDKOS1IdnNg/wUAGFoMCRRYZRbSbU5 EeRIfcU6pyHaRop4awUkNlnIcshFgWcRaoKLUR9SDCFV5z3RwxhIqkF7VBba wuVoj5TRthRNkemoDMlCSYAchT4EO3dShDYhUFvfgdeRPfA/RZC7sAH+l4mO rm1nIWe9Gzy7PRQGJ1GX4YrWbDd05rmjlyA3WOKB4oSzyI48TEXwIeTzDqEw 9hDyIg8gK3APlAQ7GcEuzXcnRD7bSK1tQ9jNnQi33IbwGxtx58gWWGy3h+tV HRWFRbCxUMGRQsjRNg3ODiK4uYrh5ZUGb9ICXv5EbaTePIMlsLSwxdUrV+Fj HYjjSxeQzX+Dfs2j+t11hxtst4TixlYerA6J4X45Tz+bggB2fT1H8gxZ8aNs LSwaQ0naOMopf1bKaZZlI2gk3DUph9GYSTWnegANOT1ozGlHY3YNMWAF+tK6 0CNpR7eoiUiEZpRKvy4Skq8mHkw9E4e5hYj5YQScAX+7OFSU8VpfI/jSQ6SG d38i4I2gJInCQvwYzfIX6M54icGcVxjP/wZVMU8xmdCNx2Xf4mnFt3he+Q2e al/hUeVXmKx8hvHyRxgquUczNITu3E50q4nzVEUYKSn6heF8TU0dRRVZWGAu /O+kw5aKxhjiqnYqIdoqBo34vD/SCFmQj0mNtwuioEBEWvtTDZaEaPt0dgHB Ohtp9vlQuxajyLcM1ZE1aIrWQRfRiGLJcwym1aAtOgedPDK+Gh1xmWjlK1Ed lYOyMDWKgmQo8hMgxzUaaicfxFw6B+9jaxB4bgMCL25B4FXCogXhhqgv1mEP 4p33QhJ8HjFux+B7awe8zbbA12w9gm6uI8W+GWLCWx7hMDfyIHLDD0Aduo+w uAsysjT/nRD6bUc0tRNjfwwxdgcQYbmRtOQOmG3ZjcvrtuPCTitcPRuFa+Zy XLEQwfy2GLeI5m+7psHaQ4JbHmJcPHkVF0+fxqWzZ/DFxlMIsLTAiWUL3sDJ ZQswg37Ph9nqI4THUFhtj4LVwWS4Xcxms7Vfv/5VmUyFSgy7vqROGUIuiagi 0nFavZZjsuwwcd8Q6rIp2+aS0NJ0k7WjNptCXNVDin0YfYoBdMu6KKkRHlMZ MZWNJy3txltDjHezGeBoQONOjrR35bW19vn6v5GHayGPaGVDJ+4uSkkgVEuf kyD4mnD1HYby/orxwu+pdvsB9f7jeFbwCM903+N51d/wrOoveFz1Le7rXmJc +wzDFQ/QVzKG7gIixLxmdGeXoUMmxsTEU2SoahEdqUECmTBCgxgXIQJvRFFl QQwXoEGWrwaZnhqoXDWoTKjFk+Gnxjvvjcvz6cGBMC66RFqFIdpWZALcrZTL S6H21qI4qBraqAb9mbAmPtVLsczF/Z0EyiIqtYvY2keQhzbSNHXxeSiPzkNR eAaKKHervXiQ3/FD4PnTWD/nA2ybNwM7F87Fjd0rYXFoLUIJoH43tsD82Oew PLkKdy5thue1LfCm/Op5aRV8r6xG4PXVCDFbhTCzlZD57kZOBAE0Yj+UQXuQ TtpQErATiV7bEW6zD9FOR8FzOkSEvwPXt+2B+bZdOL92PXbMm42ztL1/xWfY unwz9uy4hP17rmDvmh3YvWAe9i9bgnPHjuIigfPEquUwP+QJlzOHcPLThfiC 7A36vYDY8uSn82G93krvIddjQricY699dzFnE3awYw4iXdgLnOM8c5EWoiVq akGZqB9aGZW2qgFUqfuhI3RW5fWgOp9KXU0bajKbMKp+gGH1JPqzxom+mJsm iIrSiYrSStCVIp66e8l4D7uhIjFA1Pi4GdNihL01ZPEUYeq/yIA0tArysA4W pPETKBE+IYX0Es0Z36I7528YKviBSr7/B5Pl/0BR6HM8k/bjWfU/8Lzm73hW 8z0e1/wV96u/wd2qFxjWPkZf2T10l1BcFVHWzq9EZkwK4qJ/ehZL4C5E9M0o aAKz9Gexygxnscr8NCihUrCIuXvOKRdDxf2/MNT3jfkxhtMCVP9nJEIaGYNf 6zu9GVn+tSgMa0RpZB3xey3qospJmA+Sdh1AR1IlOYy5waIMPeJydJJ+bUot RDm/iMSdGtkETKknDxIXf4hsLLBjwSzsmz8T++d/hAMLZ+Hg0rnY//linN7+ Ca4c/gyWxz+D6+XN8Lm6BZ4X18D7ImX9K6sQdG0VQgmY4TdWItJiJRLtNyKL AWboHqQRKFMDdsD/5la4m6+F5411sD2zGuYHluH6dgLm9t04vuJTbJz5Po4T QDfM/ggb58zGpjlzsHXuXOyYPw97ly3FlUuXcOHEcRz9ZCGOLl2DAPswFpTL GVCeot+/pN8L6P18nF+xHvYbw4y1k8N5IeyuSEgoSA0x/e+IvKME3zMbCV5q JBFViEIpCSXXo0TVjTIqM8s0vfTdckLmb1FNmXxc84LsOUY1pONyH6Anm7BJ 6rI7g2ZaRdlclmGEpfF+HUP9YoCl8YFKpmey2NvQ5kzBUg/JoBrIQ9gLcrIT 76NE/AxV8ldozvoLujQEyUKCZOnfMVH5d3Rl/gU9cffwnITjszqCZB1Bsu5v uF/7HcarX2JY9xR9lZPoLqd8XtaO1HAZIj0FSI013FVIJnBJoiwcjeIQNarC 81BDVheRR4Nnzpe9OXXGrMpfA61HLlrjq6bO8Tfm8dBclIjmYuOlBruR4usH 40+AWSabthzZi/JVgZTVo9qRH1yBivBK1PGqkEm1/3DDd+hIrkaXkBwp0aJX pkOnvAKt6UVUuxWQQsyEktSbzC8eaR5BkDhZYc/C2Ti6YCYOz/sIRwmrBxbO xIHFH2HfigU4svZjXD+4As5fboTn5Y1wu7AK3kSi/tdWU/29GqEWq0lJrqIi ZiWibn1ORfQ6CHy3wcdmJWwvLSNRswxXDy7AyfWz8MW6j7D34xnYMHMmNnw4 A7vmz8XGjz7AgeXL9VjdMJvB6lxsnTcPu5ayOD1z6CAOL1tEWF2Ek+tOw+7M WZxcvghfrFiEU2RssvkQBxZ8hCMLVsF6YxRsDgpw+4sU3LoghMM1ETwsRfCz ocLJMR2RbuwFj3w/JeKCFIgLkUOaUoUMZRs0BM58KhQqcoZI432HuwXf4m7h K4wWfoWB/CfoyaP5zx0hOqNUn1NHoNXgcVfzlOQ0LXkMT/vZyn3x1bXXLr5a inTvzKm5VkSPQp30EMXi59ApXqFR/S2p/b9goPivVFz+Dfe0hEvK7bqEF3hR eB9P6/9G9lc8qv8LJuu+xXjtKwxVP0Ov7j66dcMQR2WA5ytCUphCf+W4MkqN BKdEpDoKUB5egLroMjTxykgNlqFdf6aulKyEtgv1Z+maiGobw5glLFKOAvYZ p425hNeCRFQoeYY5uIGI69GIupE+NQ6+PYvVrMAmlPK6kBtcTom8CrUJVahP 0qKhmiJbUod2aSM6KSl1SqvRJq1EjbAQhfwCZEdnQRkmJfVLPO0bAvEda+xf OIcwOhvHyY4RVg8vIqx+PBP7yI6uJVxsXkJzvwZulzbA9cvV8LqyhlTpWtIx axBiuQbht1ZTAU94vb0SjheXwuHqp4SRT2F29GOc3DAHpzfMxpkNs3Bm7UfY 9hFjM7GNwev772Dln/+ANe/8Eavfe4ewOkeP1R1LluhxeppwepBwum/RAhxc tBBmx3xxZesuHF68DEeWrMCxZZ/j2IpVOP7ZZ/Qdlqd2z/8ARxauwNX1Drh5 SACLL4Sw+lIMjxtpcLkphK+jEoFuKgR7qxAWoEJEiArhVGZHRKnAj8tBhqIN +YoOTMpHcU/Qg97MJxhNG8Zo8SsMFj1HT+Ej0nlEroWk9QpImmqK8KS3w1ih m15GYrh9awtHhXTTsPqnP7PhQ0k+sAtyQmgWIbSQGFWreElF2tfoyPsGfcXf YricEKj9DpNV3xHLvsKYdASPG74l+waPGl5hsv5rjNV+haEaQmjNfYiJkeL8 RIj3l0AYpiL05yHWLgnpbnLUxFahMbaGmLKWMjBFnP4cYC36UmvIqsl06Emu QFdSCUnHArSTQGgOykRXchn6arIgDXVHvKcjkrzvGDNYtOFSoB9V6TGIPeuQ SSAtiGhGWVQ9yuOqoUusQG1yOXLV/8Dd0nYiUS26FCQClBVokBdDKyxGYUIx BVM2lFTay0IESPcLxZ2jR3Bo3nwi0zk4t2gWjsyfgaMEzkNLPyKA0PtPP8IX mxbh7PYluHliBRzPr4Q7KVJvszXwt1iDoFsEVKs18Lu5ksCwFFYXlsDsBCXn rfNwhuzc1rk4v5HaJkI9Qm3unEVG5Llr1kyse/sPWPX2H7Hqz2Rvv4U178/E pgXLcJkAeuLAIWyftxy7Fn2OPctW48DSrfB3jsDRz5bj2Mrl+ILEySm9LaJ2 Z2PPgvf13tmz4D3sXfAu9s5/m75zHNcPJeP66TQ4X5fDzkoJZ3sV3FxU8PJS wccvAz5BGW/AJzQDv4OrUwxEsfXoKKbcmvcMA03/wNftr/BV0Us8rHyKwZKX 6Cl5SjJvAt2lJE5LSAAUluBJfxemAenm10DKyIBbhgvKOsv6IPOohNy/A/LI EWQk3Ee++AkqFM9Qp36Otryv0FNMZXz51xjVfk1q82tM1H6NeukzvCgfwcOG l3jQ8BUm6p4TSKmLdY9Rk9+JeD8hBP4iCPzSCfzFVLAKoSSFWc1vRGN8M9qS WtGV2oY+cTsV2u0YkrZhJL2VrIWsicBbitaEIjQS/TJgZYrweh8Jkl38kORu xzLoL5ER7D4FzhizXBaf2yD2qUNGSAPySZjWJDWiVtCEdlLyrfIGZMvuYaRm jN5XoENVjlZlEeGTdDCJ09z4Aih5aqh4UvJGItKDguF08hgOL1lK9ikOLViI 0ws/wrFFZEtm4RCDzxVErp/NwuktC3F+9xI4UMJ3ubwKHkSiPhZr4U8k6nVj FSzOLYXluSW4sH8ujq6fidOb5+LC1vm4uG0+Lm+Zj0tr5+M0keHZJQtwftlC XPh0EfbPm0nY/ANWv/0nen0L6+cu0GPz5KHD2ElEum/pIj2JHv5kMY6tvwSb c+dxYsVinPyMzIDP48vns275jR6iexYSPBcSPBe8jV3z3sJ+4tZTaw7Cfpfh OuHfw9ojA6Y/5pv3wXzjHgwVfY+Rku/RnvkYJYJhtGkeoqfoAQYIGz3lz9DN yL1KknsVbQTPUnzz7NEULE3P3BhgucmkWDKuJ1obYMmUvXKvFqrkB6GMv4dc 4QOUyh+hOusxmjVP0VFEXFj2HIOVJIupABqveYFK+RPcz+6jjP4ME/VPcZeg OFL/EP0N9yHjZUIQINWfURUE5CLcTgpVQDmq+O1oSOhCW3I3ukS96Jf2YUjW jxFFP3rFzBMSKMMmUpZPLEFbQiGa40ih8rJRHaGE1i8FhXbhyLByR4qrLUTu jkZYpjmEsgn9ugZRt0tZ/y+kmqQWRbxaVAoaUJ1KxbykHo2yGmRKRjHU8RAt SgJ9RgkaFLmoleWiJJm5ATUHKn4mWRpkEQmQBgfgKEHkGLOCuGwB9s77EEfn fYDTH39E72fjyCekTVfMwfHP5xAEZuHc9kWwOLEczpTXXa9SDWS+kWC5EdfO LIX5uWU4sWMeDq8nOFMOP01w/HLHYuM5nqPLl1C5sxAHSTowZdm2GW8TS7Jo XD97lh6Jh3buxGZK69sXzMdeQuMBQuOhTxfj6kl/XN+3nSJjMU4Y0Mgw5t7F M7BzPsuUuxf+CMc9C9/G3kUkSxfPxaWNW2C3ZAMurN6p/96X6/exONx+juwE rm85CPOtB/T7LLbsgf8FOwyXfodRSqRjFd+gXU3VtKAVBcnNqM0ZRncVybpq wmUV0WVZiRGSxoeVMed5DOpzI0ehdNtwfVNHySjSXRogC+6BnEeCM+UuCtMn UJlxH3W5NHkFj9BZ8hi9FY8xqHuM4erHGK15jFLhYzzRdmOs7gHB8T4GGyZQ W9CGRGLIJBIpcT5qRNzJhNRfh7LYHtTE96MlZZAK5mH0pRMwFGPoTetCe0od OoV16BFSOhdSKhdWoTtVi3bKuU2Jxajn56LcX4wSVx6K7P2QcPEMkm6aQ+nh oR9mbpA/sryD9dvx13LAv83edpTsX0PArEZ+fB2KBbXQiqiQl9aiRVWPAnrf PfIPNKiKUK/KQ2FGMfJkpVCkayGSVUEo00IoKYIwTgL/O97YtWoXjn+yACc+ WcBi/i0cpXR+7hPC4nLSoZ/NxbHP5+LEytk4tYqwuWMhrE+tJNpaC/sv1xI9 rsD5I0R7a0mjUu1ziFL2UbLjhM9zWxfg9Pr5OPIx2ZL5BjlyYP4sIqyDVMvs pzhgqHLXqlW4eOECDm7fTun8XWycNQdbGN1JAN23ZCGBdCt8XKKItokyCZj7 lzKffUi1/gfYPvc9anP73HfxAZtI5r1N+98mwP4Z+xbPxherPoX5zt2wXLQR F9fswsV1e/Tfu7btLG7ts4DtIQtY7jqOG9tYcFpu2wuLbbsxWEr1BZHkSMVX GKl8geHKZ2jQDKE0ow05Eh20uaTUapox2tYy36SQZ+5qYE62UIn05lT9w96O ig0cZyPZp3rtRXF8D6Q+nUiPHIAycRi54jGUKO5Cp76H+rwJKpsn0V56H035 /dSNTtRmNyOP0PagsIPeN6A2vw5V+TWE8BzEe4sQ652FMOdMyCNakB/bj4q4 YdQlj6FNcg89skmyMXSKu9AhoviStKI/rRWDlMeH0psxQKVKX1o9usQ1aCO0 VsfmoSwoHWW+ySjzCIfS0gKCL09DaHZN77K84CAUR7LsGX9FjbhbJfrtBB/S KFHVRIeEVEENSqk9XXo16pU66GRFyKr7HkXZlUhTVyMtowbSzBqISYGK08sg ERNCBVnghSXi0L4r2LTTDJu3mhkgtGfuB1ik3z5IJf255fOIq+bh6Kp5OLGa ttcQdFdRtj5AqvDY57D+cgNOHSYeo3Jn79pZ2LduFg6uI9pdT+UVbZ9cv4CU wgLizQU4tGiuvt1DxJ+HFzFG5ReztLVujR6i2xd/jDXvvqOH6XoqmzbPnUuQ m0dwm0fwv4Rb589jzxLaRyG0nYHoghl6mBpL+G3z3iGF+jbZWwTxP2LzB+/h wqZ1sPviGK7P3wSbbTtwad1eXN64X/8XNw9YwOYwQXQ3QXSHYd+OvbDcsRtC z0T0lz/HQAVpuMonGKh6RMXGA3TXTaCxvAel6grkiKnAKCs1+U8Z3tTndNOH EDDbxhMxzI9xxZO9IMfwiPafXdrIPgLvYzwc+gqpTs2I825CuK8O/u758LKj oo4s1FaJkFvpCLagRBhcAFlgPqqySN/l1FHqf4T2QkJEQRUqCnSIcQ5HzB0R IhxkSPYtRxavjwrkUWiTJvSPseiQPUYXIbc5lXhV3I1uaQ/6ZT0YkndjVMlY F0mADgzI2wjdzeggPtTyNPpbMipCJKgIiEOpqztSL52ZurRQ7e2DkqhIaPxj DPs+poK+DMnelRCF65Aeq6MSUId8kQ6l6YRaqo0ySYNGUFTKyzuRotIRYish kZRASIhNTc1FfKwSfp5xsLjqhB3rSPOR7Vp7WN/6hrWXsH3pJv32HtKJB0mX nv6UxNzqBTi5lllAmo9Dq2boi/QvD3yMU3vmY9eaWdi9lmqVtXP0r/vIDqyZ jV0LPsAhQu2RZcyCJoPbt/TtHl48B0fIjhL5ndm1A1evXMbm+Quw6cOZWP/h h1hNyF3z4bvYPI9VADsXzMPFU4H4YvNabCHUbjVB7jYi123zGHuXjrFt/jv4 L/r9Z2wl9G7+gF4/IBVAquLo0qW4PH8zfPdsx+X1P6LXbCehlpDL+vZ/YbFz H27uJPTu2o1Ah3gok5qgJp3vTfWVD2Elh0rfnCTCRA5VGg09qC/X/uyRS/M5 iqZf/Wv0ruUopNjHVF7UP7dILqmCq7UMfnYKhDoowHNUIN4+HQnWzLU9Eois JEi1pG0zCZKuSKiEzkW2vB/9JR0oydeigCzKPhoRVCzFkyQQuJZA5FqFvOhh 6FIfoZGKrhbpIzSk9BH5DqBLOog++RCGlEMYzRjCeOYg7mYOQBdahomoYtrX ghYiyqp4Kr9jNaiMJtUangJtQBDU9jaQmn0JmdUlpFlfgSYoAJVxPKQ4+SPg jAIBV7MRap+HCNd88AOY66cqkSWsRF5aBZLltYiQaBFKoSLXtCGBSqZkYR4S yaIZyAakwvUOH5ZmHtixgSC7iWzzEezcfFTv1u3rjmLLuvMsdElY7iU7u3gZ LD9dAfuVK2C5fhkOrvoIp3YthcUXK7GftOn2lTOxnch4++o52Lp8NrbMI0jN eh+75s7AYRKpBxbNM0Djjzj8MZVYpBOO0uuZ3Sxsj3+2FCeWLMfGD6jEnzkL az98H6sJusx6/46FC7Ft8Va4u0Zh4+wPCM4fUvtEsPPJCL5b9bpgKwGXjkvA 3UqaYCtBd8scgu2Hb1MKmUECeRb2zyVyf48l/cukDS5vZIXrVdID17ezMDbf uR83DpyCxRkHWF7yg9VFX0S4qRDrqkLCHRWSnJUQOJDZKpBspUCSmRT1Cva/ zuJ4btZcjvpqGgQb/7cN02s4HAyyITujCvExuRAwDy4MUSPBhXpkr6CepEFo I4HwlgQyQnEGbefYS6AiNMtvSpBOaFYQ2ssF3cjLKkRMohL+5iEIsYhD2C0Z WQ4knlSQ+zWjQnAfjfKXqBIMokk0jHbpGHrk4ygKqkN1aBtaeGMo8m6HLnIM +eH38Kz6a0yWD6EtvRE1ggroEoqgi1NDx5NAFx6BspBwqG0tIScEK+yvwu3c cRzbuRGn95JC234ETkclcL4oh9tNBfydlAh3VyE5mFBNxBCWUgvfcA2C/FWI IWKPo+iIDkuDt38aXNxTcMc1BXa3o3DhwC1cOWIF8xPWuHnGGtYXbAzOXQlb s0B43PBDhq8HlP5ekAf5IC3ID4nenlT2EIo/n4+zB6hEWvgh9q28hsPzzmDv R3uw+8MV2DtjKbYR2vYsmI1DhOD9Brlw+ON5+rLrOJVT5w8d1KP3xOfLcJrK satrd2L33IXYOGMW1s+ciZVEmmtIOmxZsAC711/BpZNfUGn2PjaQbaKqcDMh eCsheDMR72bC76b5RNaE4M2E4C1zSd3OfBf7FxBqF83Ry5RDtH1g5gxc+vwz QzT9Epe37MeVbftxlRB8bcc+dvcfYHvVD45krld8keShhNBNCYmrAul3FJA7 KWg66NVGARVZkXMuGkm5PRt68hMgm0gA43NDTa+8++XU2X2D6l3NcX6Vhe/7 BL0qJDOPeyGikzG3ZJEVEJTT7wghtpZCZiOFkizDPg3ZzmnIc5FA40xQdiJI 24qRbpmCxBMJ8Nt8HPuWLYfbcUd4nI2Ax7lkeF6QESGq9SPPCmglkmyA4k6H AQbbkJvwV1Khf0OH+mt0Fn2NgcJH6MuaRH/ZpP4ivkZxHWqpXqtKLiPoa1CV KEM1LwbaqBiCegzizS5iLxUk+1cuxuG1Kyhnr8L5TavJ3UdJsYlgR8d3MpfB /bYMdgGFcAougk9UKe54Z8AnUAl3DzH5I5EsAQ7uabBxk+LyzQgcOmWDI2fI ztrg0HkbHKDXXftOY89+9uL0PTsOYs+2g+woNp3F7hWfYc8KguZnK7DnkyWU t+dg26JFOL5hC1YTLFbNXoTVq89hw+fnseWTC9izyQfHVzrh7Cdm+PLjszi9 aCvOLlppfEDfFHpXfopjS+fBavseXFu3m1534+Snn2ED8fA6Qu8qQvJnMz/A 6VNBOLRhDdYQr69jUEzSfCMheBMh+A1sIPy+iQ2E4A2E4E1z38HOj97DAULt GyRU5uJdvVQ5QlLlwJyZOD5nBsx2bMclkhCXNu3Dpa37cHnbPlifs4fDdYIu 2R0yz2t+CCAISzwUkLkroSIeznRRQk2WQ5ZHsNYGaKD100DnmYtKp0x8NfLk X/4fn6bPCGYea/nTB2b+lJTZ+yKm/kMl01qORfVK5GdRhR2brX+K6Y83jBWh MDQTBb5ilPqmocBdgXxKIblutM8jA4VeKjIFctwYYk6G8EYUeAedkbjTBdcX LIX7QTvY7Q+H1Y5k2O/Ng+2RWn23AiwfI8L3bxDH/gUFopf6fb0ZExhUT2A0 ZxJ3NROYoPpxMv8e7hXcxVj+GAbzh9CU1ohaSS2qxJWoEhagOlWB6ng+qvl8 qLzccW7jCpxaQ+l3zcdkS6imWokvt6ybukP85kEr3PoyHddvZ+GqSx4s3HNw kxjE3CYVFy3iYW6dBLPbAly3F+KseRR27L+FjdsIgTvPY/vuC9ixj+zARew8 9CV2k+05fAF7D51lfb0fW/feIBWyH3uYM0mfr8C+z5Zjz6cfY9uq9QT6/Vg5 ewFWzV2C1XOXki3DmrmfYP28ZXpO3bl6O/ZuPI0j687g5NbbuLDTC9eP38K1 K9dgtvY4Li/bBIvPNsB6yx5cJaTZ7NyB27v24sqGTYTs2fjkvfew/ENCvrUX Pp/xHj7/6H0KovexZg4hnJC9nsq5NXOJw+cx9g7WE6p3k5pg+JhZ5TiqN8oH VAYy16genPsRTpDYP/P5EtgeP4ov6ZgXN+/D7bN2cL7ujztm/nAx84MXWeA1 f8RYREPukY0Mcmm2ey5yPTXI8yIlGFSABiKQBlKJ9REFaAzNQ2NANuooAr4e ffyzxwQbHjf4IfcFWj8+1dCA6M+5L1x1MFyXz9zBJuZlIs1wB1u24Q62MupR kZ8S5QEZqArJRH1YFpr+X8LeOyquNMvy/a18/eZNv5npXs/MTHd1maxKqzSV mcpUyluE994JIYSQQ0JCXgIhPAiP8N577733RniEEQjkvU1XNVV/vBMRkKOu zukXax3ujYCA4N69z9n73vN9X0QZI5FljF0rZfxaCXWiK0tdQylyCSTjwBVS bC+RZXmZVL3z+Bi7c9ZiCJdDD1fGLn9N+sUWci+30ZWqal+bKllirnyZxcpl lmuWuSNAvlO3xO26W9yqW2S+VgCdO0Rvbh9due105dTRnVVIZ1IMRT6eOOxa x/5d33JAwnHrF9ht/Bzbrd+yb+dWyS9bOaS5VaX/jDQwsvNE3+QcZrbBWBxO xfJgGtaimI5dzWPfxSSMRPvt2O3EFjUHtmmKtdJ1ZLf+AdQMnVA3OYim6UG0 TZ3QMXNE1+boyv+0DnV9eX3zDnTXC6LXf43ut19JGtdH3/wo6z/8jI0fC5rX fMnGT75i0ydfsuXzb9n+5RbUv/wSHdHFehIGn6/BztxM8vMBTHXssFTfg7Pe CQ6YBXJM5zKndp3g7BZ7Tm+25Ow2XXb94WPW/dOvWPvr37HpfSkF7/6KrwTN 30iuXieIXi+5er2geZ2geeMH/8LuD34nmvxD5cUQE2V8LDXgYyy+/FhZCxSN r0aimW3W/F6Q/QdJBhf3Woh2P2NzCLeDvrgLkt0PB+B5+Cr+h0IIPRhBipTv oiuNlHk2UenTQuPVNvqiuhlJ6GU0QbbxXVyPa2ckppnRyFpGQwQ/Prkrgvjf THr965UU/vbk+atOcGXG0nW/cH9Xtd7BJh7ceUhWVL4Y+3Ly4hooiWujNq5L OWKuKaiW1qAqukJrhGO1omvrGI+tZzK+nhsJdbR6ZVBzMZ6qCzGUnAoj71gQ 5Qc8KTniS7GgOsn8Et4mwfjbpKlS81HVHJ1xZxtIc2sk70oTJX6tytcmSxaY qVjkZtUit2oXWa5b4Hb9AssNN7nVMM9c3SyD+YLoAkF0foeEIDqngI6UONxs DAW160XfbeCgxJGd63HesY4DW9cKorexX32bKo2qoadnho1kWnMLB8y0HTlm vB8DvX24J9dwXiqS0T5fDK0uomtxDi3zU2iYHmeX0WHUTI6ibiYp2PwIOjbH 0RX5rOd4VpWc9x1XbrUtD6NuehRNAbHOhm/R3bAObQWwrU6gb3OCDQLijZ+u lfiKjZ8LqD8XUH+zle2Seneu24LGl1+g+9ka9piZKbsHjeW9lqJhDu7U5ISW MSe1jXHVMcbyWyGNuhXrP/qEDR99zme/+h1rJTb95rciRiQt//afWP8HMaSi g7TXfiHkWovljs2icb7GUEijuEaiAPQ7mHyxRmBh+uUazL/6RMSM4jXzrz4W EWIsgsTuExEgf3wPJ43NXHKwx+eYN34uAbg7+XDC9BQeDsEEHYwl0imBjPN1 VPj10Bw2wHDiKKPJo4ynjjGZNspU2ojEMBOpg4yn9DKR2M5ETB0T4UXM59X/ r6ZAX508V9FfozCGimerBnEF2N/8DbAVRvDCSp91Q1EDedHFYvnrKYjtFM3R T1PsMG3XBmgJalgdSzEuH+btR+OVLOo90qhxS6LxbBR3PEN4mCnC2uUqJSf8 KNh3AV/jYAKtUwnYX/DOSjILdikm1b2OXM96inwblK8qpseZrphjrnqeBUnI t+rnWGqYlZhhseEGc/VTDBT201PUR3dRO92FNXTl5RF3/jCO6gJnjY1y7EU/ q6kgfVJjE6c1NiixoHgc09bioM425b6tgT0mRvZY6B7E0eYkxkZHMdVzxi24 lNTOxxjvD8DQxgPjvVcw2e+FmZMXxgc80HNww8DRHSMndwyd3NCV0HO6hP7B C6wOBNK2dUHD6iTq5k5ob9iI9sb1aOzUQWfPWfTsz7Jti5bg+Vs2ffEtG79Y x8Z1W9myYQfbN25n58ataGzZgf2ePdhZmGP89dfs267JEQ1jjmmZ4KJtqjoT 34haeY/tEjs/fI+1//zfWf8v4u5+9xvUxV0qrpHoffoZ2u9/iPVXa3GSOnXK yowz1mY/Q1oBZsWlP0V/o5mE+dpPsPhasRV4r/1YOSDL9lNRHl++z0HNLaKZ T+F33Ad/l2BcLc9z2uIyvg7hxDhnkHQ0m+7YSfoTpriecoOxtBkmM2aZzppl JmeW2ZwbEtPcyJ5UDUlIH2QyuUMyYw0T0Tm8uXP/P76F6reu2K2uH/O2Q1xZ cO7rX/CFqoVi/oWcyGzyo6oFze0UxQxQHTtOS8w0TaHddIR30BvdpTyMY8l9 TKf2M5fRz2RiBy2+qrvgjZ459F1K5MfkXOazyqnySKbwXCR5ruFUnLhMom0g geaJBDrksYrpKwfTCXXNJctT/q6famqg+pgOJipucKNaDkDtDcX0Hyw0KGKK mw0TzDaOM1I9SHdxF90lLbKtojU3G7c9hhzQ3CCxCSfNzRzctVHO/WZctTdx RnsjJzXVlb//tJ4xDvoqTWZuuB9zrQM4it8zNXbFzMgVC+NT2NhcIrX7GRcT uzDc4yU520ew7IuZyEVth8voSunRPyii5dAVtA95onv4CnpHPNA/cnnlf/sS XccLaNidR10EibqmHuqbNrHbzAUt+0vo7L/EbqP9rP/jejZ9vZVdaibs2m2M uroRaju1BPsaHBBDtNfaVsqLvpgyQw6qG3NE0wRnLVORslpsESArHls/ep+d H7+PmmzVFeD+w+/Y8uvfc+zz9ex895/Z/fvfiSj5AK2P1ygBbvTp53hr6hNk Z8VeZb+GAtifYLICarO1SmC/I8hew2+wEFxbrP0I60/fk+0Hksr/gN/Ry4Lr QDwPheJq4clF21AinHNJOFpAmVcnfYnzDKUuMJpxi8nsJW7kLjObv8x8wTI3 C29JLDJXcJPpfMF87jiTWQOC7zYmUxTDG8ZWxor+e7P//+ueyBV0ry5O/PZd aRW6f89E7wj5kUWC8Gbyo/soiR6jNmaGtvgFQXgPXVH9yn4bpVBIH2Emc5Sb OaP0hjfS4qca2bHgmcVfatu5nijeMiCfGt8sMQpJYhgSqbscQtkxNwKM4wm0 z+LqERUrPA6nSUVLI1E8pwoZppSG1tInQmOiSrJ3zQQzdYLq+nFmG8aYaRxh umWYoZoeuktFjpc20l5UTktmGo4akrE1N7JfMraDoPuoIN1Fdwun9DZzVuKM rgrhrup6nNA1Ue5baB/ggJ2g2+Q0ZiZnMTc+h7XlJfZIlg4rmSK9/zUHfYox 2u+P8cEATI9eRdPRC52DPugd9kX7sA9aR3zQOeqDrrO85uyF/jHVnXLdI15o HZLvH7yIhrElNpfSsJVjZRdQwd7AUuz881DX2sOuXaaCbjN2aZixW9CrrWsq p+4AVhbW6AnSLQThDmpGHFA3EVtgiv0OTWWq3vaxCuHbBdm717yPhqBcS/Y1 P3gPrd//kcid2nJMtd57j39AS9Gp9v7v0X7vXbT/8Fv01nzChaOniff2IeOY M+5G2hxa/yWmaz9VIfxrZeoWMSIo/7XsfoSlAuFff4DlN2sE4VfwOxaO77FE 2crpdC4g8mgJmeea6E5cZiD1DiOZ95jIuS8ofshs4UNuFj9koeQhi6UPJO4x X3qbG8XCgCJBeb4IldxeJnMamEjL/M//DsD/+1sXQFbvtahW51mZtvbfTJqj WnTrH5jsVQzUF6t4rZOCqOuURt2gPm6BlvibYhmH6I4bZShZ1bY+nTXNfK5k 2YzR1csLTyIreVU/RHtYLS2hVTSGlFF7tYAqvwxKFLNDBCZQdf4cPoae+Fun E+CUz1WXQoJc8wg6nU2iRzHp3uJW/UspCK6gSnT8cMXI6qidyUZBfPMgY639 K0z4L7QW11GTV0hluLegW3K31iZB92YcNLdxVH8bJ/QF3QZbOGsg6NZXZ+9X G1feuxELHQcc7U5iJjrR1FTMo+kFzM0uYGfvjZ2DD5djmkgf+IEwMa9OHjkY HQrCxDkYDcnj2of8Bdl+qB/xR8s5AO1jgegcD0DXxQ89F0G5IFzTOVQiAE1J dlquvrgWPeC0nN7TZQ84U36fMxX32OuTh5qmrSDbgl1aFmjoWXBAjKKlpQ3q u0W/7NbGYLcu9oLu/YJuW9El21ZEyHZBs+KxS7aK64daH3+g7J+z/mYjOn/4 kng9XcVd9w/elzOrK4JF90PR2x/+XtnrZijMMJDnx/S1OXH4FBfs9xAfGEjB RVdCLM1w275BgXBB9zcKdBt/+R5GH/0W489+q2wu8j3ih+/RGIl0QXoBQUfL uOZcTU3YLL0pDxjKfMxozlOmCp4xU/xckPyChbIX3Kp4wVLlM25VPuVm5UNm yu8yWboozmqayeJhQXqbYpDFP/zNJb+3ly9ZXQrr7TuJK+j+4hc8pGp9txxy gtLJD28QePdREDkh0J6nPuE2jXFztESP05M4zVDarPKA3si9yc2CBfqie+l2 U6XuxbJRuq+10nGtidbIepqEJnWhJVQH5VLuk0J1aCbVVy4T43AQL6NkfO1z 8TuSx1URJ6Fn84i+lE/ilQJSfRSRL5FLbpjgPKKUoqgSimNV6b6pqF657W0T f1ut8p0tyfFkXnFeAfhmiS0iqrdyVG8rLoaiMo22cMZ4M3u//oZACxMBug7m OjZi0JwF1AqAnxWAX8TM7BJWtlew2++HnZM/HnGtpA/9iYzhP5M58mcOCu+M joWx2ykAjcNX0TgSyG7nq6gfC0bTJQitE0Fon7iKzgl/NFwiUXeJQP1ECIa+ eViKLz9V9pTTFc84I2f3TNUTzlY/5mzNQ4yPBLBTw4rdutY4HnDC0mavgN6I 3Rp6aGvoYiBhrWbAPhEoWz74vQD8D/8K4GoCbK01H6ItW4etu9m/VQ2j97/m tABd76MP0JPX9ZXxnrJ9znDNe6o2ENlar/uC83sscDHRVQoUG/XdXHC0IzYo hBKf88Tst8ZTRJ7GB/+MwftiKj/+J2y+/RKfQ8H4HE6QyMb3cAmBR6opCZmn LekxvRnPGc5+yVj+a6aLv2O27HtuVnzPYtX3LFV/x3LNG2YKb3MzRcpx9UMm K29LzDNZITm8olvQXqkcnfGP/86V7f/7LQ2ueCgc5YpK+ePfwFyhVi6vwDw3 MJf80Bbyw4YE6tOUxyzSkHyPpoQFWuOm6UmeYzhjQfkrp3IX6Y4YYPZqM49K J5jIUv0pRWt727UGGsLLaIgspy6yguqwQqqD0ykLzZU07k/iMQt8rK24YpaJ 5/5cvJ1z8HfNIfhcNhGKIehumcRcziTeM5O0q/nKifdzowrIjS1Q/o2sxJVV YopqaGxQwbw9NpIMjyNKdeIoysRRewtOuls5YiAwN9qKq8kW7L75Fn8rU1Es OlzU1MHO2gET42NKdWJqel7CDXNLD/Y4+GN3IBC7Q4F4JLQLzP9MxvW/CMwl Rv/KpYwh1A6HSQSz/ZDA0zkEteOh7D4RisZJCdcIdp+MQ+1EHFpueZhc68Y6 ZRDLpGaB+AvOVL/kTM1Lzta9kHgu8Yxz9U8wdg5UQtzEci+79K3YpWPKTk0D NEUv62npY6ouW4HtVsm9qjz+Pjs+Vg26UPvwAyXE921T56iGIcfkfdYfrOPC 5s0YCPwNPlHEB8ouUUPFABNFv8jnEgJ1k0/+gKPaFi7YqaBuu3UdxqJUjL8W taKmxpkDewg6d5KThruVPf+mn/6Gk9pmHNkRh/36LBzWF7F/QyVHttVxSr0Z N/12fM26CbHtI9phkKTDQ2Qev07+6RFKL4xSfXmUBi8JnyleVtxmUdEoX3OP yVpJ5nVTshVvV1XH4+nRlaVw/y3MFZ13/7giSBQwV3ThKWAuemYF6Z+/5Tb/ 9eqZf0+ufz75we3kh4xQED5LeewyDakPaUpaojV+hp7Umz93DDV4d7Acp5o1 d7VdsjeuX/RML/WC8uqwXGoj86mPrqY6spjqiCxKwzKpjwgj8aQV/vvU8Nlj zSXzDNz253BJksLl45n4nMog8HwGIZfSCfdIJ8Y/m6SwfFa745Pi80lIUCE9 KjqLZO+Tyv3m8FBKgzxwUBctLk5zvyD9gN4WDksyP2a8VZLWBnxtzHDRUeeS jj4XLIwxFqdpbHwcE5MzEhcxNnXHys4HW0cFyq9idyQID3HT6cMrSB+VGPsr meN/5YRYJtvwLnS8y9jmEs0OQfYO1wR2nkpmx6lM9APbMb42hlXaPFbpU1hn DGOZ2srp6tecqZWof83ZBonGV5xrFOTXPuLQSTdsRNls17VhuyB9p4EF2zQN 0ZDQ1jZAX5TL5vffFaT/Xon0bR+9v9pQpBhFZ79Tk8MC8qMC8mNaBuz/aBuX dm4RYH+E4acfYvTZh6p7MwqQf/ERZsr7Mh9g9plqZJXqCv3/iZHIcMNvPsFo 3Ro01/xWJP6vMVwr7/3id5wz2scpp3LcTvb93QoSkiPfsPpQfZx/oKHor7SW /ZWOyr/QU/MX+ur/B22FP7LU/z0zDc+ZbJAU3rjEZNOMUoNO1jXweGb8//3l OzerynwV0QqNsmo1V2D92S/YzI0rv21p+SldXXP0dEq0z6mGPX1KjsiG/MAO 8oNGBe3zlMXfoT79MY3Jt2lJmKNGodQDRmh1b+Vu6U2W6u5LDu+jM0YxqVw/ PfGC9oQ+QbZIlmuF1MVUKAeyVceUUh2dQ2lkBo2x14h3FbTv3y0hiLffzgkT T07uzcD1YCZnj2VwWdDieT4dX/d0gsS9RoTmExmhQnhYTD4h0fmsTkQafcKC pY50ejNj2bd7I/s0NrFPkL5ffysHJZ9brNuMl60ZroY7uaRnyFlBubORAQZG jhgauWBkfBZD44tY2Hhj7RCAjdNV9ki+thUNHlY+L0j/E+kiWzJHJcYkxv+M e9VdThbdxTJlShC8gGXasoQ8T70v6L4n+3ewTF/GKnMBq+xprLOuy/NWTtV+ Jyj/njON33G2SaL5Da7Fcxy5GMiJ3OkVuO3AzOYSe20CfsaQ7c4DmK03ROvz jYLwD9ghofPHL7HfZcABDQOOCLyPCryPCSOOfKqOm+YWjD79SOD9kbL9RAFz 0y8+xkxxs+ZLxc2aDzH/4/uSo0WbG2sr/8ZJS9W11P3aWlht34GF1APT9V+j tuY36H/9ofztX+Gx56jgo5n8q8OCEdUNuJLYh8ptW8ZrenJ/UO6Plf2k3M7U /In5up9YbPiJW42C9aYfWGr+joWm18w0v2Cy+RGTrSJb2mZlK8K8sZE3Tx7+ t7/B/MplcNXiaP/HL84Qr3gonq9o9NUlLt++Bb9+pXGqt2+W4sJeYsQ7pkhk BleJbq8iN0C2vlVkeIrmTunh4eLTlbbsX9EsJy/fT8pA4JiSGKXxd6kTYrRk PqI5YVYExTw9obeYLZ1jqkbRJLJES1Q3HTHddMX3iO7voTuph46kbhri6kQo tVAXX0d1vJSF+FwqopKpSYh7B39HdfbI191csRM9ovMR+7e9zz7xkE6O6Rw9 lomLVIPTwo2LV7K5EpiPR3ABbsEqblw+YIWH1XblvofVVjwsthB+zIzHE7li gS3Yu1vku3DDXrhh9s02LlgacdRgBxcNjDlhbsxBA30OGepjbWiNvoGL8OI8 ltZeUgH8sHIIxPpgEDZHQrARbqQN/ijc+In06z+RMfqTcENi/CcCmx/jmDEp GmZC+DEvcUt4cVtC+KHgRsYdLDKXsMy5iaVg3ipnGKeSBU7VKXjxA2cEI2eb vxdezAsvrnJapP2p2me45qsWBjl5uVC5PXUkQrk9v8efi2aqKz0XddxEr7nj ru7Joc12kv712L/S6nRY0ainrY+zVLqTa7UkF2xW8sPo84/eEUP7EYrLimsk Plbe+DH/8kMsvpRK8MV72G1bj4O2iiZ7RObslbBX2yWxk30SVhu2YbnpSymy uqQfzybeuYTMy71Ckxlxg6pRKTXJzwUtb+jO/47B4u+Vr01U/cCN2u+ZUyxO KClhsekNt5pfS7ziZssLZlqfMdn+mMlOkT2dQpEOKQvNDf/8y9fTV9u0//9m 0FcJpZWRXP+mdVt1q/8fGeibITqykqRrVWRJFEWuLnlcRb2wpkFY0xgo+36q DoTyy4o2qF4e33y60hX+IRNtN8j3Eub4j8hxmKdYWFOT/oTW3OfURI8R53OH 5qqfGKgSSSflZKZygeaodtpiO+iI76QrqZNOifakDlqT2mhMaqE2qY6qZGFN Uo4wJ46imBjCjhnid0Ad/wO7OWHwKS76a7Db/B6W37wr5/N3mEqYbZOUZmDP EcfTq6O6LlvtxMN6J1dsdkhsVxXqs1wy20x/aRC9FSEcMtjGPt0t6HwtZ9vU GhM9fSy096ArUkRT2xpzPVMsJUxN9olccpXj7IaFEMZirx+WIpmsDgVhdTQY t8RW0ga+I234eyHM90KYH8gYkxj/QUjzA4czp7FIGBXS3MAy+SYWyUKQFCFN hkTWbSxyhES5QqY8IVbeIAfkaJ2q/4HTQpYzQpYT2dc55HJOCPSI08WLnAlv 4ax3Cee9VH7fxyOf8CsqUxRxPIMACy/lfqipH6HGfoQYyFbHjyA1b47tspai oschLT2O6OiJ/9fn0kZdDqiLH/7sYyHMx8KXj1VsWauIFcZ89REWXyk0lQj/ b7/CdpcatsIUxcN+9y4pzorYiYPaDjk723EztaXRW5BzoZBYh2xi99WS5TEu SFmmOFY1S3hz5ks681/RX/ya4XJVmp+qk+LR8Io5kYk3m1+y0PJc4hnzbU+4 0SEFpes+kz3LEiKkugZZHBlaWUfx7/52YeLVyR7f7rZdocdqK/nb9nf9yg9U lnSRGFVJpmKBUokqiYaoKlqFJ53CkR7hSF+YhPCkN6SKbsWS4AGqVTTrLlYy Wz+z8rv+9cqq8wvXVSB8l1jXKuLc2knyGyBTvEde2Ih4kTaa4q/TmzXNUMEN xkpnmaqcZSB7iOaYFnHerUKVNikyrbQlt9AsLrI+uZHqlFqqUkupSsmiKkHo 4hdOjPth/JxE99ts5IThZxzSXIPtxvfkZL6L6drfvYPJV+9ijtGXv8PVeBdn zXaJPdjFJatdXLbexRXbXXja7sRzjyJ2yL4UE7NN+DgZkp8ejqWVNZsVDYgm B9iw3RIDYye0DeW5kRO6EkYmhzA3O4ylqSNq+hfQNxRDbeWJmfDGXHhjIVbD /MhVUnpfkdr/irSh18KbNyLE3gh3JMYkxt8Q0HQf87gh4c4kFomzWCQJd1IX pcDcwiJbIncBi3x5vWAMi7x+XOvecKpBQjLtcanBh1zOclo4c7ZkkQvexVzy LcXdtwRPnyICvFSFJs1XNTNFlhj0SEsVb+Ks/Yiz8iPWUsLCj3jhUKyONyc0 rHASA35IeHNYT4+A7SLMpKiar/sKIyVnPhFMKVjzsYo3axUC7T0MP3sXQ6k4 NsIXB03VKLTDWjorvFFxxmrdRqo9oukKrlbOohK3N434fVXEHxCYiGEujHmg fF9D5lPa8p7RU/ycgXLVJK7jdc+Zqn/GjcZnzDY/Za7lMXOtj5jtfKCcg2Cy V0RYn5jqvmkmuwd4cGvhN//Otf/VUvP2rdsV3qyuaf92R7qqpvxn7t15REJk EaliCxRr05VK1MZW0xpTQ3d0Df1RNQxH1TIqz8dia95hXL75HxiLqeK6UKtf KNWlWFjTs5L+6I4PVv7SraUndIqP6WyfW+kr/kL5Pw8OCSubk5T7HU3JUpHT lfuJF1tI9u0lwUuOm1cTpRE9Yli6RMeJgckZZbh4ivGKKXqy+qiPaRTD0ih6 rZGWpEaakxtoTKmjNk0olV5JZVqxUCtdOQPsGedLxPieEQ5ocNzwc1yMPmfv NsmJ34qX/HYNhlvWorfxKwzWfYzFho9wNRFemauJCFPDzVqNy7ZqXNmjJjXb 024Xa3G32S7c28gp4w1Ybv4cfeejWOy/KNLXWjhlIdVsH5r6tuxW34Om+l4M 9B0xsziMhbnwSkLT6AK7dHzYpeePga0/Jo4SBwMJKp4gpec5Kf3PSR18Idx6 Idx6Kdx6KdyS7Zhsx15gHtWHeewo5vFTmCXOYJY2h1nmPOY5EnmzmBdMSVzH tnCUk7UvcW14ybH4JiWnTjU8EE7N4+5T+A4efiWCI2/fYq76FBOxUpJyfStX PNwm0vaFkLpPNKVDEKmiM1PtA0i18yfN2pcUI09cta04ILrNfrcO4RrGUpb1 cRW9ard5nWoSp7WKWIPp14pQNEG8j6F4GwOhleJhrbOfA1qqQZwO6hqig9WE VmpKeuUcS2MoqoWh6GYGoxopP19M4l5Vb3iCcy8ZPiqfU5Oh8jkdRY/oLXus 3B+pfcxYvZScxodMNwuVWu8z3XGXqe47TPSKl+8XSvXPM9E3xfXOnnf/5hLV 25Ra7SdebV5TGPkVM7M6JuTtbghV+fiv1Ja0kRFTpqRTWVwN9XH1tMc20Rvb wnBsK2PxrUxJTZhJaWM2rZW59Bbm0pqYTa3nhtSFyYRqRoRfA8Ktbt9yFhun +d0KXaUc0TcgCSYhEQ+3BPzcEgm5lEjkhUSiziQSdy6dhPO51Kf2MtY8p2zz UBU0fbpak5V7iuVq2nNVa5onnWsk6nyDvL9G6lkPlXGDVIS3UhfdLuTrpCOj l+GyMcYqx6mSVFAjKaE2toY6xX3sZNmmitRMr6Aio4zy9HxKU1JIvurOGStz wkJC8RbiHTT+RkTZdgx0NdDV3I3uzq3obFV06qxDa8M3aGhaoGN+GgfzPZy3 2i31bzfutrvxsBPy7VXjjPk2XE23cEpE4F6jHezaouhIU8Ny43b0vliP7rda aGuZsXO3FerqdmgJ8XQkdGXf1NRJCt8hTMyPscvQl13GQewyD2e3TSQBBeMk tj8iqfsxyb1PhHxPSR2SGH5K2nWJkadC/HT5uoaD6YOYRQ1iGjOKacIEpqlT mIpANMuRyBPS5Y/KdoBDJbc4Uf0E55h6Id0ZTlbfxrX+IZe9s/HyK8bLvwRv P9Xa1hE+VST4qOaULfZvoiKgSbmfczSWQpd4Co/HknckhuzD18hWrFhzMISc /YHk2HmTYe6Oi64lFpu1iDU25bSVqXzWS3YW/D0HNXco2WeiaDHauhVrdWP2 WbnjZOWGs4jhk5aeK1fA/jNnjXw5qXMGZw1HLlofFKuUxEhEP+NJfRK9jCd2 M5bYSa5zJYkOTauXVXMj5ylPu0Ntzt2fb8j2Vt5joPoew3X3GGm4K/C7w1jb MmNdS4z1LjLaf5OxgXmJOUb6xnn98tVKF/9/+sXbfYrvrDJPIQYVD4VfWilq q6Xm315O+O/UFDWKECxSFbS4RuoUKiyuk764bq4n9DKZ3MdMej/zWf0s5vSz lNvHcl6PRLfsd3Arp5X5zCZupNYyniCVTkxXn2TMF4uPV2Tr/8Xz5/cZGKqk sTmRiLB4/L0SCfMWBso21TNRZHMiecLOAmFm4VnZuiaSe1wR6RScKuZGw8xK 06yRKoe1JSq3iqV1h9tUTJ1oSZEclqLcD3MsIti5lGSfNmFqN2UxvVREdVB5 rZm6+BaaFEO3sjpFlg/QmtFK+bVyKmLKKY+TbbJs00opSS+hKKOIwrQcshPj cd+viccBDY6eCcHe3kzKlQYGgh7dnZuFoRvQ2fQNOmIbtNd9gaawzVB3DyaK MDks4YKt2SFcrQ1xt9vNud078FHfLtZlF6cs9Tlia8XWT9ehs247ezapcXDX To45HMRQyx61jcaobzNHc5cVOsJaPa096OvuxdTKCQu7Q2iYXWCnWRC6TknY ejTiKqxLaL1HYscDYesDkvsekTLwSEqlxNCjd8TDPeK/CWkf4dcwh3VMHyZC VpP4EYxTRzHOHMMkexzT3DGJYfYVTONSeg9nETCHjp/hRPmCVMu7uIVVSEnM U04Z5OtfTqBfDWG+DauDtEqudlMZ3E1NWBf1EZ2ruC8/m0HF2TSJVIrlJBee jBPqXqPoSBCF+z1JsjvJ/t0GRJibcVEIqujBFqrK1zWcNNXhoIUzR+wvc9TO nZN73Dln6ybaw40r1p74SLH1Ey3rL57Qz9CPaIsYMu3k5O2rlLJxnemMMUUb BjMZI0ynD9EV2kGcXR2Jx7tJPNND8pVBCpMXqRDtXZe3RHPxEu1lS3RXLtFX s8RAwy0GWxYZ7FhgsHuegd55BvvnGBSODvTPiFKcXSHa3/+bmzgPHjxgaGhI +d3Vaxkr3Hzvl8cmqOj5Tzy484DMa7nkRivmXWmiOq6Llrg+eqX4XE+8zmTa CLNZYyzI+Wo7WcRNjwLuFY9yv2SEByXD3CsZ5E5xH0uFXdzMa2daqDqRVM3o tVKmc1p/tdLY9fLFA1paEqkoS+Cqd5ycykRiJdJ8k8jzSaLEK4nKK0nUXk6i 3i2JhouJNAhb684lUn0qkTJha60oj37JGn+3cjV+/Hol3W2qBRwUj+vC1vF2 FVtnW1MZq4pW7oc7xhB3qolkrw4ygjuUfTXl8V2UXWukUmpDbWIDDakiXtMb Rbn0iU6oJDcin5zofLJj88hKzCUjOY/stELSkzPwdLHh4n4NEZEaGNs6c9Da Aq1vvkRv27dob/lW6uhatCW01q9j91frMdtq9vOct0f0nXExU61UqQKtDumB flw6uh+XQ/Y42dgrhy/s+Hon9tr6WGzbzsUjvoT6VuBxMgEbeb/6Dks01SzR 1rCUGm6BrpYYUXNbnE65sU/0hpN/N05B/TiF9uEad52Etjskdt4lqeee1NZ7 UlvvC2MlBu8La2U7fI/U6/c4mj2IXfIgRrH9GCYPY5h2HaNMoW32dSwlnAuW OBKYy+HL1zheMotL9TKn8kbw9srA17cAX78K/PwaCPJtEaEvdSqwn6Ig0TCh w9RGDNMQpfDhA3SHtlJ1sYDqSwXUuOVL5EqNDaTwhD+lZ2MoOx1DuUsQZUfc uaJhx1Vzcy7stVSNmFjDRYf9XHAO4OKxQC4c8eOC8PqKgydee9zws3Ej0Mab qL2hpDjEknswjdKjIoWO5FN2qIBcq2yaTlYwlzvHvGj0+bwbsj8lSB2nK0Jx k1U+uvA15lwX6ZGTFKTOU5Y9T03+TRqL52kpn6e95iadjfN0t87R3SG+qlui d44u4Wpn3xyjE7dYXaz1b2+0rlxIWaHm6ri5ty8xblwZM9RQWEfutRLyoxsp ie2mLnaIjrgxBpImGU9XzNw0w2LBrAjYftrcRniSMczDwn6eVN3gSfUUj6sm uF85xu3yYRZL+pkt6GIyu5nJpEoRFQW8uv1wpQfzvzIyXElHayI15fGE+cQQ 5Z9IgkSWfxLFfslU+6TQ4J1Kq2cqHV6pdMt+j7zW45Ms+0l0XEmkxV0IK6W1 /lQaI0ldP19ZHb9eQW9bvJTSxBXAuzPZnsJMu0r0TlbHkOSuWm/xdoeUY+9q 4i61k+jXQbpkUMViw2WJHRRG1IgfrqEysZYCEfTpitWnYgpJDMkkISKT+KhM oqMziZKIiEzlkLkue3S3omukz/ZNm9n5xVeqIQ5rP0f76z9KGV2nHHqhvXEL Wht3Ymlkz8HDV9i/x0X5WQ44SqWQsLU9iJWJ6vNZ6NpzxGwHeyz1sDAxQFfD gG1fbWbzl7vQ2qaDjY49sZ61JHjXkeRXR0pALalXqwm4mMLB46FS34I4fykV H+9yUlvniSgdxcm3Q8japySrU3gPweVzxLcuS3m9TWLXbSGtRO8dKbO3SR6Q GJIYXhb3OMzhnEEcsofQFwzopwxhkDaMmVSiw2nTHPLL4pB7hJB2imNSU49V LnA+oQkfr0x8fEolGvDzaeeaXx+ZgcMUXB2lLGyc6msT1MdO0hw/wXD6DDfz FyUpV1B/RcKzjJrLeRSfiaDobBglF2Mpk/+t/GwU5af8SLI5SoitBeelsl4Q riqY6n48QByusPsPuB/0xtfJhyBHH8Id/Iiy95ciXUjFiSKqXYupO11M/RlF FNFwuogyp3xajufRca6KcTHai8W3uFm0wEyhajb1zmt9hB9oJ/JkN1Ee4kQT 5sgTE16SM0dF0ZzAeY76mjkaG+doErI2ClkbuufeobFnTpDZP3br5yuLn/zN HTVXV1fFhZsVnv7+FwaPbFy586V4ZIdnS1ERXEZ3Kp83xUzSlTDLUPpNJnMW mS+8xXLpMvcqlmk818+D5F6e1S3xov4Wz+sXeFo/z8O6Ge7WTnGraoz5siGm pJ5OZjUwkVjMTHGDqpv0XcaGK+iSmldXHkekzzVi/eNJCkgiOyCFUv90auW0 K9Yr6fTLo883i8GgfK6H5DESmstoaI5sMxkOTqdffr5b6m67ewKt51MZT+lQ rqne1xrPwMqa6iMdqlqqoOrN9nSmamNVDE7hXncG9xXRk6Fs+I9275CP0kFq WIeUzQ7yxF6nhZSLCM/mWkA20cHZxEXkEitKIzQkg6CwDAIlfINTsdRUQ3PD 5+zYvRO1XduVg512fvE5Gmu/FJZ+idbaz1DftI3tG9TZ+e1ONLbrYm3tjI2U Xhsb1UKJFuZ2WFpKWO3B3MxG+ZqBkQu6hoexMNLFQM8MnZ1G6G43xtnWG/9L rcQK+hPlM6dc7SQttJOM8A4yI9vJiGohPaqRiJg2gq61cDW0lmtiTFLbF4ko n+R0zDBOIf0cCO/lQEQXcY1LxLcskdAu0blEYrewt1eif4mkIdkOLxHaOctB MThOefLeolGssqS0JgxxIG5cMsN5DkpGPZw/yxGB7dESCYGul3s8Pp6igL1q 8JfPGuE/SFLgKNmBkxSH3qDi2qzYf4F24jw9aQuCsntCkXt0hnbR6FNPo28d Db6K9R7SKHKLodgjhTKPLHmeSPnFMNHEFwhxsOScgq0ODlw57o+XENX9iBdn bE5xwfwEwU4BRDoGKVcyzTqaTtWZaurP19J8sY5Wt1raL0s986im43IlTefK 6LxQQsepfPrcqlgqf8BC+R1mSm8xWSyULRxnMr+P5AttBJ9qJy56jqTkOTKy 5sgtmKOwTKhbPUdp/RxlzbIVypa2S10du8PTlz/83HCn8KG/+c1vmJqaWtW4 7/7NFSDFxdVNbxE0N1wKaWQrhVEDyuctcbP0pN7ievYdpuWwLZQ+4G7lQx7W PKQ/aILnkUW8bH7Aq5b7vGi5y7OW2zxqXuJe402W62e5WT3BjbJBJgvamcyo YiQhS3VP/n2WF4foaVXUuwQyrkUS7x9DckCyEDSTkoA86vwLafbMocMtjT7P dK77ZTARmMGN4AzmwtKZi8rjRkwJU9GFjEfmcl0I2x8otdYzgR6PDFpjrjEo 9XRQ6ul1Ieh4Ryo32tNWCBpH6hV7evP8uN+bxcO+rHd41J/Ff+SxfG1KLiHM XfJlgBiTCCFseCM+Hrn4eWavytPgyPyf5fTq9O07P3ufzd9+w6Zv17NLeLj+ 08+Fo39k51dfs/2rb9j69Xb52a3fanBZOCem0fYkVnulctqfxM5B1Wq1z9EF O/tDWNs4YGKmmoxB3+wwmmZnMTS0lUpqjd4ua4x22OK6LxK3U4IT/3ZSRDqm i3TMih4mO26InIRBMcv9ZCb1kC6qICKhi+DoNq6KOkiTapnWsUxq2wJn4gY4 ECocjejGPXuMGOForHA0Tjga3yXRK1wVfsYPSgg/464vEdQ1x/7MIfbnjnC5 9AbRNQscPXmB0xEluAo3D2RN45Q7zUFxrAeLprl6JYWrXmXCy1aJfqL9R0kO nCYneI7iyAWqYm9Rn7hMc8qy4P6hgOypcOIpM7nLNMl7mgNbaAxspi6wgaoA 4alfGaU+ipE36ZRdiab4lBexYgvOCD89nb3wcQnA58RVTlqe4LTpCS4YuhJx IJJYx2gSHeOoOt8i1qmdFo8OUWmddIsE7xUV1SfHsdWtnh6/Rvq8aum/XErf uVz6PStYrHrEbOVdpsoXmZT/ebJEHF9JO22JFfT3PSM0eoaI1DlipKQmSm5K kbyUUiVRO0etqJGHz3/4ud979fqQov1k5crs7/5XLVaqy6D/TL6cn+JrI8pp 9pQXXDLvMirHakaO1a3KZ9yrfc6jhuf0hM/wIqaW123Ped3+jJcdT3jWoZho 8j73W2+z3LzIQsMMN6pH5fP3yvFuYDwjj5f37q2MAP2QV1LeelvipLzFU5oW QbxvhGAsiYyAHAoDSqjyUYy2z6HdQ0qnnIeRq4VMhhYxK8lgIbqIpbhC7sTn cychl4WkMmYSypmILeZ6ZB4DQWl0i9pqOR9Md1EMQ2JDR6RsTgozZ4WZg6WK NRaP0Jfvz4O+bCFlNo8Hs3kymP0OT4eyRR09HcqSp1mMNxQRH1kp0Mvl5Pk8 zl3O5YKXasWP81LZT10IwfWYykE6aG5Qbr/942d8LQJ3wxdr2fj1N6z/fAPb Nmmx/pvdbN2kx4ZvtNmtvhcjq9OY2p7Bwv4s1g5nsXU8h52Tamyyw+Ez7D98 6h0sbQ6gWjHWaM8BtG0vomFyAT11ewx37BOG7ifKb4xgvwlSxCGlR02TFXeD nMRp8lKnyU2fIidjgiwxjhkZgySn9RKc1E9wXCtRRddJ6xaz2Sksbb1JeNmE GNQ+HMJEh4oeimpaIrp1iZgOYWu3hLA0VlgaIyyNGZLvSVzMHSUwV9hZPMcx 14t4xVdI9V2W6it6uVO0crdCM98hOqOBcK9swn1rJTqJ8BuSzz1J8tU5csJv EWDeQLNLixhS8VAFz0VzvWax4jXLVa+5U/OasXRxe0FdNAW3UxcshjWogTLR 8qWClFL/bGFrIqWXAolyOSjC9jS+x33wdbkqEcYpiwucM7lIkH0EMY6JJB5I oeRsE3WX+2jxGhBxNkSvaO6BoGGGQoYZDhmk26+fodBeBq+2M+TfwJBXKf1u mdzInWFWytJU9Ur3epVU0coeJsuUawv8bysMax97+rOY/eoXCLnS8/ibXx55 pKqVqllqlT+HYr2WRvLDxcHLSa6JU63L1Z/7kLEiSWHlL7glB+l+wxueNH9H V9QCz+LbeNP5HW+63/Cq+xXPu5/zuOsJ9zsfcrvtNgvNN5lR9CRXSN0saWUi r4R7I8M/03NqqIyB1jhlYYu9EkiyrxQz/xwxoaUU+1RQcVEK55VSSWPlomAr haIVtB/KY/FaObeTq7mXWsWD9AoeZpTxIKOEhYwaplNqGE0oYygqny7vSDrd A+lOjWKoLYWxtjSm2zJozhLj4rmP2aYEFTUHhJbCyKfDOTy7nvMOz6/noClf s+WpfGs4C2eDDTgbKmIjxw02clJ/k/LwnNBYh+POrzhssB1nox3K1w5aa6Gh bYj2Tl127jbgiz/uYv1Xu1FXs+FUQBYuXmkY7fXE0OIcRrYXMLW/iMX+S1gf uITtoUvYHbmkqqDOF9h7+DSWe49KOKv46XAUvX0XULO4jLquKwa7nLA38SFG MO7vs0BS7IyYolvkpCyRl75EfvYt8nIXyM27SXb+DJn5k2TmDhOZeZ2QlF5i K4TPfQ+VHE0TDqaJAkttHCelvpfSnkX6F14SIZU0QipppFTSSFG7kcLTdxi4 +1Jl+NUoEpA6n7iAZ2Q5MTVC4Hopr6Kd4tuk5MovTexaJjpNyHkln3Bv2fr0 SIwS5X+D5OAFcq7dJvjIfdoy3zBSfJ+bGbMsiKu7lycSN2acO/U/cq/he/ri JpRjmutDO6gKbaEspI6SoApKg/MpDUql3CuUqFOu+Bz1EHL6S4RLxOF9KIaw wylcO5BGvFMmxefaqfG4TpP3GB0BE/QETzEYNs31iGlGI6cZuzZFX9AoYzGj DEUMMizyevhqPcN+hQyHlTNb/4SpuntM1kkJrRd81yl67muVPfff/gITVyYk +PUvXPvZqnhNJbt+JeWilXyRP8WRN6iVk6jkX/4TxkpfMFv1hlt133O/6Uee tP1Ed+wyjxP7eNPzI296f+RV7/c8733Nk94XPOh+wu3O+yxIYp1pnGGyZkQS SCcTxRXcHx9RJYaPePX8Hv3NsQyJdm0tiyHRK4wUn3TS/IrJ86+l8KJ4f48q 2vwUs+c0yGFppPJcFzdi57mX1cP9zGYe5TTxJK+BJ/l1PCqo4V5+JTPZLYyn y+FKLKc7OJ4unxDavQMYbk1jrDWd8gQ34kWzTjclclfo93AgRziWw9PruTwf yeXFaK7g66V8/a18zeG5RHH4CY4ZbZTYzHGJk4abOS2heFyUrZvw8pyZHifN tCUXq/oS7Qz3YGGyF0t9Rw7YncDK0hUrC1fcgopI7biPk3sGhtaXhIvumO6/ jIWTB9aHPLA5emX1Rts+F3dsD5/F0uHEijj+NUZOJ9FxuISatSdqZpdExB7F 83ynaOvbRAbdIS75LlmpD8nNfEiBZM+CggfkF90nt/gO2SVLZJXMk1k8RVz+ OCFiCoOSW0nvf0Ja7wMRtHdIa18QGk6R2jzIyMLS3/9tU2JdO1H5C6vyPVZ4 Fic8ixdirk7ZF+bZL4VwnOiAWZJDl8iOukde1BPas9+ILfuRofI/ycH/H0y1 /pXbvT/wXbv4noJxXjfdZzZK5Gl4F1VhbZSGNVIcVkVBcB7ZPjHkukuiOXFG +OWJz7EQiTh8j6Vx9ZgU3UM5RDvmUXi2i2qPcRq8p2mVv98VMk9/xALXoxYZ i14U+SSciVuQ1+YZS5hmOHac4SjhmLiTobBqKYaZzDY+Y6rpIZMiDiabRaI2 Sf2oq+e7Jw9/nq7mbX6tzLb/L3/DL4UE3fav+BXYTn7wiPJZTdIybVmq/oWx 8lfM1HzHrYYfud/yJ550/JmuxCUeJI3wpu/PfNf/J171/8jz/u953PeKB73P uN0t8l4EyEyLWNnYJgqiqymMKKA6q+H/WTlj9xZUA1+GWhOpSIlQnZ13yblS S7F7LfW+jXSGtEqlEkcZ38lg9CAD+UvcLp0QKnXxtKiLZyUdPCtt43FpC/dL G1koamEit5WBZKFWpAjQ4Ci6rwYyUBZPUbwb0ZftRU0msNybzT2h1aOhXBWt RlW0ejmW+7/xajyX3/NSvh43lmpmLIwy3sIJCVfjrZwxVs3udMl0C+4mm7lg psklGzPOG6qaRSxN7bHQ2oeT+D0rEZfWVuewsTyPjdV5ge9jQstuKCfKMbK/ gvEBL8wOeWF51BubY97scfHG7qQX9q6ewrKLQimLA2dEhBgfOoOhVDp1Bz/U 7HzZbX2FQy7FXAu5T9y1xyQnPCUk6QVZWS/Iy3tJQeELCkqek1/+jLyKx+RU PiCr8jaZFTdJKZsmJG+c4IwuMgafCbUekd5zj/SuW1LhZkhtv87Irdv80hLD qoK2nYHpF1wru0WUFDPFI1qqX4xUv4gk1eQtYe6thF0eEKJNci3gJklht6lI fExv7huuF/7AROlPzFT+ifmaP3Or/s8sN/6JO80/sdD/F16M/A8ezv6Fv8w+ 46+9N1gu62Mqq5oK/1Qlycp8A0k4dR4vx8t4O0dJpODjnEPQ0SJijlaSc7qb ysuT1HnPiqdcoD1kmd6IOwKfe4zE3WMi4R5TSeKp4m4xknyHseQFhpNuMBQv xSy2j6GYJgavFTGW3SEJ4BGTbeJV26VItAnJGutXpmL4D8zOzio7bhQsev78 +SrZVpYR+NUvDBDb8Vb/Zr6fashMUdS8Cvf/xKhI7ZlaYVnTD9xr/ZHHnT/x vOcn7iSN8XrgTxI/8WpQWDb4A48H5EDW3BI2DRHoUUSYRwHR7nnEX8om8Vwa qW65crCqSL9SxbhIlgeLT/9xpar116tuASrabKqSY0j2SCXFq4RMb9X43jKv ZhqC2oU+3QzHKyZEGWAha5C2hEUeNs7ypHSI5+WDvKjq53l1H0+qu3lQ3c6d qmYmC7sZFJHZHZtD97UEuoIDKfA/Q7jbXq7XJ7DQk81yfw73B3N4PJzLMwXt xsSTjufxaiJP0YkuX3/PaGUwLsItF5MtEts4KXHadBtnzVQT9lwy38pl8y3K /eO7dnPZQNWkYKEtvLM/gbXNGWxsLmAr1WuPjRt79rgr756n978gpGxKVKIP xk6+mBzxw+KYH1Yu/ti4+rHnlB97T/tifcxDsG528IJwT194qHPYHTXHUNT2 BaHjFMWxK21ci3hCXNwLklNe4xf1mtzC5+QV/UBB2fcUVnxHfvVr8mpeklP7 lKzaB2TWLct2jtCiaYJzeskYek76wBPSe+9LLIvCFGXZNUZKS9vPzZJvc0+1 ovxW+mdfKP/XCBGRkVLcwotUU3uEXGgl5NIgSf6z5ETepjrpCS0ZL+nJ+47h ou8ZL/+B6aofmKv9kcWGH5QDa263/MDd1u+52/Ydd9pEQLW+YnRIXrvxmqUb z7jeOEBJeIqIx2CSzlyWfOfDaf0QLtomEXq6hrzAcRpjlil2G6fKc456v1s0 S4nvCH9AX9QjhuNEnCU+YTLlCdNpjxiKu89k1n1xkssMp80zlDLFUPIQQ0nt DCZUMFbYw5SyH1ucXZdwrnOQiea6lcl9/k45TsHLS9VPK1xbWdvwn3/hksrO lZsD422z5HlLWbs6SmHUPNUpd2nJkUxU/JyRypfcqHvFYvMb7rZ/x6Ou73kq MnExaYJXA9/zevB7Xg59z1T9MtnRreKZS4n1LRENWESmVwF5nlLOL2dTdClN GFNFfUAVdb5VciSqKHUTXRjf81/+55Wdz4k/f5Vk9yxSr1SSdkW1qEG5fztN 4b30xIqYSbmuXAxpUbLz3eJxxuUMPa8a4kXtOC/rRnneMMyThgEeNPSK5O/g RnkPgzkNdCcV0BmbLEfen2BnO0LcDnHW0RRr9Y3sUd9EbpCrWFdXBopDeCFM eykcezWZx2tFTKm2ZddOqtgmLHMx3Y6r2XbOmG//eaCqm9V25fAgx2++WXnt ayx17KTKuQjTVtgmTLO1vYyd3RXs9nniEV1PhiSqjKHvCKucw/hoKEZHAzE9 fhWLE1exOnUVmzOB2J4NwNLFE5PDbhLu6B5zZ9ehcHY6XcPwbCH7vDrZ71VP ZPRz4hJfk5T+HdeyfiS74idyy36ioFKi5ify634kr/47chpfktX4hEyRa1lN C4SWzBCc30/G8EvSB59KFnggnu42aX3zpPaIl2tv/3nC7NUeZAWG/uecln+3 MsJFmbl9usn3HxcjskBhzD2qhGdNGS/oynvFYPFrRsvfMFX9Roz9G242vlGi a6nl9cpR+4ihwmU6suZozZ6hKXuKkvhmMoIzyY1Ipig8FG9xuwfMarAx6Mde vQ/H7Z0c31rPuW1VxNoPkOrUQ/bRLiqvzNB57Sl9sS/ESbxgLOUFk+kvmM54 xnDCAxXPsu4wnLkoOXlGYkSii8G0GnrjEplU9HD3iIDsUfRv9/N46dbPk2i9 LR5Vd8R/npzo7X421RjQP/Bw8Qk5Hm3KQTsF1+aokLLalP2Q7uLHDFc+FS/4 nJvNL7jd/pL7Xa94LD5sNnFSKtlrXgwphmYsESWmKi6glBSJHP8SivyKpNQX UOWdR+2VbOrcUulZGRzRo5hWMbCKVsWatVLhas5V8Ozm0/+0UpkVj8G6OFWV a0oh4WwYyZfyVCfgX8j2aqM8uIcmUdU9iSOMZIwzkzvJLUnMd8tv0Fvymlc9 d3nRMM2r5kletIzzpHWEhy2D3G3uYa6mh6H8FjpTisRlR5MvCfqKvRm2QjcH xexcWls4qr2FYzqK+W1P6G5RrOvsYsVYRajQTjEKVUG6HZRFuQrVtirp5mK2 A1fzHZyx3ME5q51ctN6Bm80O9n/7LUGWJlw018NRTR/HvUeEaopZvERQ2iro 5sGevV7YOXiz19EHj7gmEXU/kDn8I5kjP5E1+hMXUzowcgnGxDUE89MhWJwN xupcEKYnfTA84oHhUQ/UjkegcTITU0lLewL72OcnwAtoIULAFSsFLjHrO4JT fiSxWApaySvyhW4F9UK5RqGcpKmclu/Ian1BZvtD4iVdhpbNECeiUEm5IRGZ gw8lxLsN3CS1XyjX2fG//0KL8i8tG6LSnKqLuvlXRDX5jEk2u0lh9F0qkh7T mPGUjrxn9ElGv17+gvFq4UDdSzFJL5SgUzy6hG892ao5VLpzpunMm6RN7GVb /nXyowvEAKZQEh3BZTmsYYcySXWXvxM2TWH4Iv4eD4j0fkqs22OCTz3B1/UZ Ecfvk3hsgYxjI+Q799Lmvyw2Y5quq0M0BfQwHz/AaO49hnKWGMieYyB3TKKX gZx6+lPTmOwT3vXdlJhivKuP18+frf0F6qkKG6tjW/9m2N2uldtrioHZS0tP ybzQTJ7PMAURM5SJO6vPukun+OrBiodM1D1mrukJt9qecqfrGfd7n4u7nOTJ wHNu1N8kzr+QxMASMiQKJMoDSqgRFjYIC1t98mn3zqEvuJDRmGpxqVXK8RUj UVUMRagYqViet8W9kucLT1QDpNZwd051Y1HJwsZU4k+Fk3KhQKSpSmdm+3ZS HjZAU+wIPakTjEguvFF4g8WyWe5WiTHOfszT0RdCv1lett3gRfuUGM8JHnaM SLUeYK6+X85lI9XRGRSHRFHs74uPgwUOGps5pLkFZ6HgCaGgq554Nv2tnDWQ MFRty8JchYSK6RDepuI2JQ1PKKhouZMzQsNzNkJF253sW7+eQBtTLiq8nqY2 9vsdxdetVr5L/x9l7wEV156d+f7Wvd2e12OPn2fsGYfx8xu/9kzb0+7uezvd JOlKKEckRM5CCQWUswRIQogskMg555xzzjkjcgYBAqF0Q7ffrHn7nCpo3bb8 ll1rbU5VAUVR9X17f9+p/95/CQfMLO5hbu2ExTHRkCce4hBcIfD/hpj2b9VG 8Niu3xLbLcee33A7roVbsbXo3QpE/7YS/uhfjeCIQx6mDyowcmnAxK0Zc/dm rN1asPGo5KZPB36RrwhOeMM90Z5heb8hTkx5QuFXQsO3JJW9JaHiDXFVr4mt FirWLPBENKenpDTlc76o9pdEtQkV24SKbVL9WoWKzd10zMx87z1U/IFWQL1L xbXz4Im3yyTrKf3cgyT7TpIRMkdh9DMqEhaoS12kJWuJjrwlQd1z+kueiwTV nCuvieuXt6xPvV4v9KtN6aQ6pZ2alGZqkqvJDIwj5q43gadDCTgjYut0iUY7 /Tk12mHka5ca/5ekBH8jrvIbiuWYK5Ee8JYy32Xe1K4yltNLS+IUTUnDNKV0 05TaKMdiGmKi6JEk1NM8RHdjD4PdvbyPehr/tj7T6d1TJl9ql8dMT0vxbRzC 2yuHQKUxXHgQLZUpVipTwJVUXI/E420ntz06yY+eoCJ5isYsMZ75c/KqzDNc 8YxxeZOm6xZpDOqlL6eM4IcJhLmmEeOWTpprBvmu2WrLrLJDe7VLDvWuWTS4 pTEQVs7T8DIGI0oZDC/iaVgBfSH5dAXm0qb0PXnkUHM3U1kRrnkjtzMz+A4f iyLI9Q8jXNRVxK1iUaRVGu/3uJWS4C7qonrpSFR2x+1nNGeA6YIB8X4DdDb9 b17WCRdr+lmp7Weprpd58SzTtW1059aQF5hMpsJHb3/S3R/wwMZAHYB7Wkqi Os5vv4aD1w9u5OahjdzSkzisOQZeMuJlf5JEIhnrfNzCOYMtXDTW4YqpDtfM dbD49HMemulzQ1+HW7v34XJcHyPzE8LHC5iaSFk0vSOl8S5mVk6Y2zzE4oQL FrYuOIRUCh+/VedJxXQKF7v+Sfgf2/NP8vbG9f6TxG+JE26unTi87t2HrWcH Rq4NWu32l1hKvlI+mbvh28GT6JcEiubzTRJO5rwhJv81ccWvSSh9TaL4qISq l8TVCg/rlompn8crbxSPrF6iO15re6eWiex4JiFcbBcl2tolXJzmw/e4GbUu fqh5Xuvn6/6YkqBWEm43k/iwjySfMVKDpsiNnKYkfpaqlDkaMudpyZ2nKXOK IkmxZdG9VMT0aH79D6lNaqNe6FcrDrImrZnatEZKo0qpiM+hwSuP4FOhBJ3J lChjbUxJTeyrdRStTU2pC31BU+SqKM0XdMa/oCdxRd3hZbh8hbbkeZpTBPhp wzRm9NCY2ShH4WFmFh3CwfbmQZrq2t/LQc35Su2nAxppvmaGNUMW/pGZ6SUy 0uoJFMxHSiRKpD/OJcdbVOEjsWPCySI3+d7ROMKPJRFyLBl/62Ry/LuoSZ+Q V2eSrqJp+pVdOqpmGaudk6xWS4hTqCjRJKKEg8nCvxzXAkrciqlyL6XWvYxG rxKavYvokSQ/GtvAeFw9E/G1EtVyvZLRmDKGoorpC8unM0A4+Sib2rupP9B2 c808baYlJ0jDxYIIcnxDtbg7SrRbA+m+bRSFdlEb0y2vYA99mb2M5PUxWdTH XFkf9fkvxbXNsyL8W67vFUHdw3x9F2NVTZRFZlMQLulDeJj+xI80Dyeu6G/D dudGkaSbuLB/E1d0v+T6oS+Fe19yx2AT9koYKudUJPSVARAGrEpl7MjzWpen doZbOG+iw2UzHUw/3YiTuT5X5XFv7T2Ao+UhblsZYm16FGPji8LFG8JFB0zN 72Nq7YzZMRfMbd0wP+2Od/YQ0e1aHqo1UaJHQuFfr+ao1MjYHpGv3V8TJJJF uZx/1K0ejd1bMH2kOXNs9bgSx8BRvGNW8Et6QVD6C8JyXhBZILwT/RdXLlG5 QlyNwsHnRDcs8qREamLeII+KBoWLUhNFY0R2PpeYl5gkomOQ8NYO5l+9XF+x +y4X/0T7wfD8sDzmlTri73WR4DVEYsAo6eHj5MdOUJo0SVX6FPXZ02QHt5Mf 3kFRpObEenFcK+WJmudfl9pCZVoL1enNEk0UCnTawkpp9ysj9GQIIaczCTlT TohdA2GXO9a3y6iOe0Vj0huqQpYp8dY2GYoPrY9cojlmibb4RcnfC3QlP6Mj WSRg6oywbpL6rGHqc7olGuR6IQ0l1TQJC+sa+lldff2+T8k1H8ppPyz/rkTQ kPCntDT2E/Qkmwhlqx2JTD/NtjulIhCrhIy1Qsb6RxqhWHk/kzTbRJJPJ5Nw Mpn448oWQfnUZo7SnD9Gp1jBXlErT6sm8b6VQPiDSCIephEnBEx1LSXPtZIy 92p1RV+jTx0tvjUiZOuYSOpkKlmUYWo7s6ltEmLWUprkvnrGEmsYiqugL7KI 7qBc2r3T6Yku+4FWP7dkBdKaG0prfoSkvnBC7RKIuFZA5P1aqefNpPq2UhDW TlVsp7yQXfRkdzOY3814SQ8zFT1Up06JeX7D84Zunjd2sdjYyVhlA42p+ZRG F4gbFjIGRpHh50uSx10piJs4tVuK274vuSREvKa3WYTlZu4YbsbBaPMHOBp/ yf8tXzdJaAaytGd7sNKXwFm9TdgpXDTS4Zxw0eTTL3EwO8xF4eHNfQdxsNqh dgTcEi6eMrXCyPCS8PEWxiaOmFg6YSL10OyEG2an3DE94y6W7Gvh4towFuFk 97fCu2+Vutj7rfLlG1GAsT1fq0SM6XqjAu2qd796NHJvwuRRk3rd3KeQh6EL eMYs8jhpCf/051IUnxNa8JwIUYBRFUtEVy8SXbdAVMMzfEon8cgfwSWnj+DG OaK6RJh2yc92LRLRPSvHcSI6BwhrbXsfB/+TVpw+G3lJ9M12YlwGiH0sHAwe JiNqhLz4UUpSRkWYtstL30xWSAu5ERrO5cW3UZLYrl4vSxO/lt5CWUYLJcK/ NL8ixmPr6Q2tJ/lyPGG2mYSdriDsbL3wr5WY273q71XGvaA+eXVtDH5FyDOq I+apj5FaGy90S5yVtD1DqxS+powJ6rLHqM0bojZfUnp+PbU5hVRWtlFe/5QX q2/eRzvNqpT1YYvvnnXZpG1KzEmtJNwvk2jxYilSY3IlSuV6tV8eDb55tDzJ o12iU6j4gerafkizRxZ5l5PIPC9C7WKyesy4lkdNtpTn/GHaikeoEinw6Fow EQ+EBw/zSHApJ8O1hgK3Riq8mql73EKzfytt8sKOJPQyk/6U+cwBFrL6Wczu YyFbTFp2F7OZ7UzKizuS0sBAQjW90cX0BGXS5pXEi8l57QdM22hOF/5lCf/y ImgriSTBQWr1RanZd6uIEYwl+TWTG9ZKRVybcKqdjuwO+go7GS7tZKKyk5ka 4WX3/2a5vZeFpg56y+qpyqsgK62S+FRlh+IyouJziQqL4/R5B4z2G2Oy34Tz BzZz+dBmrh/ewi0RmfZGmtkud8X03TPdLPGlxCbummwk4LIhz3sTSH1yCRu9 nZjo67J962F09azZI4+nt89ayGaG3kFTbE1MOWVsyknzIxgaXMLI6BZGQkAj ywcYH3XB5KQbJqc9uCOCNLLlrYjSr9ThLjFdymCXrxVN+vWHwr2v+AO5+nZd binF6pJHD8c829Y+ajf2KZXIxj5whIdR03glzvM4fR4/sfyBBc8IKZ0nrEKi Zo6w+lm8SsZwFdo9zBvgceWY1D6pe0K5yO4Fod2cxJTEKOGdfXTMz6tv0DvQ +zNtl/f86Csi7HuIFP8X5TdEfOgQadFDpEf2EiNJOcG/geTgRtLChXrRLWvN vPmiNfPS2sjPaCMvXRROQgMlD5XuwE4GoztoflJN+IkMwk+WE2bXqGHXn6lT QmuTn6+/Di1pS5QETlEeNk2V/NO1cVJoEyZpTB6nMX2MuqwRqoVt1WJaqgUn VQV1lGfl0dgzw/MX72Xb32jY9ifv7wvcpF1ClptaSqRfOrHKfuxitPIC8ykP KKQuoJgW/xI6AkoF4KX0h5aKIVOMWQlDEUVyLKDLN4fiW8nk3UwmX445l5PJ upFDRdYQNfny0gUX4n0tinCnTMKdS0XS15Hl0kKhRweVj7uoD+ihObibEfGz s5njPMsZZzFvnOdSM5cLRiWGWSwYZC6/n6ncHsayOhgUIvclCvGiCqTupTDb 1K1VNLtYWp5nYLidwSGJwXaeDrSr3+mvzKIlPYTWnHBxiZFUJ8aKAskh4nY5 0a71IrAbyQxrFBUjll1qbEt2K10FbQyUtjEiKW28po2u1nl6O0fJLZK3v6Ce zPw6kpVNmdOF0PFF+PlEc8/ei/0mduwRguzVv8Q+vcvYHDLjuoEOt6W62Yvj cxTHd0/U5n1zIaSFENJcCGm+iet6n5Md505EZjzbDluzSceCfYePs/OABYd0 j6NvbMVBPTO1uV6dGCNhoneUXfuvonf4FgZCRgOrBxgKGY2EjEan3YhofClk fEVU22vFoX2gVru/ED6Kset5IzyUY+9rOb6W+15JvNRwUsSjX8Wcev3ww2r0 PTQTY489quG6by+3gvu5FzWEW/KECN8ZnhTM4FcqR6l/j0rGPuCBKNE/xkk8 tmvRgPBxQfj4TDg4T0TPLOE90xKThHcPE9rRs85HLTD/i3Y9/9zoa4Idegjx GCRM+BgTNkSQVOZgrzrCfRuICmomNqyFxKhWUiSLpkr5SxUypqZ2yLGDlrh+ cm/U0R/3VDL6IKOJAxL9hB5JIfy4do/4G11rnwVlPepTt1uuS1tY767vLlik QUpeScQYZTFjVCSMigWVYpIxRGXOU8rz+ygv7JFop6a4nsmRsfd6Ps3yaO30 1e8uBdOcd3FgfuaZ2uoW559JSmCB0LCE8sAKoUgVrYE1dIsc7A+vE/9VJz6s TvxYnerNJsWbTcRXSoEvo1/oVn43leK7GjrmXk4k40YGhULHJzcDeHw9mdD7 BULHGuKcRBg8VPo15V/we0pT+DDj6bPMZM/xLHeOpYI5lovmeFE8ywt5b1dK p1gqmeBZ8SgzhUOMCyWHsjvpE3vdm1AudMyk4XEwjS3iT4tDKZWoLAqTXCWR H0ZVbpikhVAy/e9S8OSeiH0fWgsj6SiLJu52KiFXS9XnFS/vbmpwPbkxDZSl NErea6KloJmukmb6K5rpqGghp7iXvI5ZUgvryKtoJTG7mqS0Mnz9UnkgHvee /WNOWJ/l4E5DCVP0dik17CR6h85JXOaioS72pltxNNuqjpi5Z6mE0NFSNKu5 DlbGhzA6dYZdJ2w5bH5FfkfouN1EaqwVB/Qt2bPPmD275XEPHVcHzBgroTQ5 7L/B1l332av3gMMiTPWFivonXfDI6CW8YYXIZmXIzKp60jK6U6Lr5QcK6eRL z0sxIzHdqxIv5P4ViWUVhJHdmgkrlm61HHLRfLx6wqWei16dXPXr5mZIN3ei enGI68MxqY+7qf3czegXCDuKcvkP2Gf14VUxojGCXXOqDlUIGNY7JTFJWM84 oV2DNE3NqARUMKk5TfjntNQs4ec1SECgssy0Bk/3eh4/bsIvoJWgkDZCI9oJ lxIXEddJZEInqXG9NMQO8zRezKLnBKPpk4ynTjCRNi4xRltwl7CvWCmD6yek kl1bf+/Uyx/Rnj9LZ9Es3SWiNvPF4OWMUl8wQn2JmLryp9RV9kv00dUkGOwd fB/jNI1C2jFI311ysFnLuEjvGOKl8CUHiJsJqKQ0sJbawEZaJa90izJ7GiXJ P66diYR2MVxiwCS3zKW2MifWdi61SYyYED65hrGECjFseerulErTZPalGOKC anG1e8yDE8F4nInD54o4r7tNUgA7yPHqosKvi0Z5NQYSx5nMnGOh8DnL4ihe lD3nZfkSLysWWa1Y4LnInGflM8yUyasoKna4oI/+7HY6E8qo8Q+n6pEH1WVh 1Es0lYbRKtFWHE57oUR+OG3CupbsMBJvniTJ/rQkuRtUp/nRXRlN/P1cgm9X EyEqOOFxDZmhdRTEi6rIEC2fV09zUQO1JY3E5TcTk1tHvLic7FIplmlVBAan qZth370fiqO9H5fOO6J/yETYZszhPabo7zfD8IA5xroSh2ykYF3B6tAxHMyF dRbCOsut3LPSEVu3DWPDQ+zVPcTnn25hx692YvbJJnQ/+gSjzXrs22vMdmHx zu2G7Nluzt6dluyTMNA/LhbwJIcN7dh64AE6B13ZbuDGQRtnXJMEZTWLhNcv EaFMl1GWg7WtENUhrOpc+UChl3zpXuHfrbNs7aJKxh6lTK2NWPkL9jlnc9yh jVOu7Zzz7uBSQCdXwjq5Ht3FjXhhYFI3N1IkUru5LxLUr26CiPYZIjqkzHVJ dCssmyRU2BbaM0GoSNHM/uG1CqDxRH+mlrD790q54dSIg3sL933acPbrwDWw k6DgPpGdQ5RLHeqOnRXYzDGUPC9vay/zhfMCoXmmspSYZTxrmqSLVWv8Cr/f RqxL8zv8+oE4twka8yYkr06IN5mgvXycjqoxOupGaG8Qv9Q0JD/b1qw0zzaL /3+5+vKd5lnNtLO1IZofvod8mjZa7Z6Z323W05DvLp0NHcQ9TiRRbF2qfyX5 AWLDAsQKBXfSGd5Nf0yvFO1+JlP6mUnrZ15S2oKkssXsXpZyeuTYJXZMSJnZ InaskREh4kBcOY2+aRQ5BhN02pkretewN3THySwAZ7NQfM7lEnghk6ireSTe LiLDsZQy91qa/FoZT5lgUUi4WvmKV1UveVW9KopTyCkJYKFqgdnKWSaEhCPF yp6DFdRGZVAXFiMq2YeGbD86ysPoLg+ntzScvpJw+oWE/ULCPiFhb144TXHe pN05TZrTWVIfnhU14UpNUgKPz5YQ4FiD34MyAl0KiXpUSH5sLaWptRRk1hEk /1tASg2+8jefhBTj+yiJe9efSIkL4I5TJLfsgzl/0ZnD+mZCJCGFwTH0D5iq O1+a7bPAar8FR0VBntCVo955zh6yJcB8P0HWB/E8cojTFiYckd87YXCUDT/6 GIMNe7DcuAPbzVuEsAbofLKHrV/oslPHiD07zYSQVuzfJ2VwnyV6BjZi/06y U98eHUMPdMweY+taS3DZLCFV4s1qn0nZE0I1ixdrkWhblNK3JERc+kBE4RL/ Vfgod6mxQJRIxMh1iTgjMSXcGSWssx9/gcEtn16sHNuwcWvnpE87pwPaORva gV1kO3YxHdxK78VZ3FFYi9I4L9EuvOsUvnUJ77qV5oUQYd/3CO4eF/6NrX3y 9TfaE2Z9jV0k+WSS9LhSooXkx71kPh6myG+SquAZmiLn6YhdFLHznKcpy4yk r1AavMJk9grTOSvM5C0znbvERO4zRnJniL/SiL9dMwHX2wh0bCHsYSPJ/p3k JQxTLBqyIkMMXfYIdVLYGkqGaayQqJaoG6K+YegDGpoU/tU1DLD68s07/PuB umAsOzt7fW/PNS6+y0HNyAn+6F9cRfYZ0Z4R4nyySPIrJ8NfmfHXQXVgH83h T+mOGWIocYSJVJF7mWPCtTGWcsWV5Y+yUjjCi8JhOQ6KO+sXd9YjXOlkTLjY GVtErX8sdV5BxF94wB19RxwNHnHfNAQHg1hu6aXxwCwPTxtxTLZlhNqJe7pY Q9LVetJuNlDh3k9z0DTxl8pIvFpG2YNm3mR08bykj9maZ4yWjtKaWkNjUin1 cTk0RCfQGOpPY6KXyMNwBoWDw2USwsMRiQ8YETb+DcPCx0GRokXu18gUDma6 nSXL4xwuVyy5fc6EswaeXD2WzO3zyTiLTPa5n4q3Ryb3Qytwia7iUVgJ12+H c+2CL3duhGB/Iwj7m8Hcuh3DhSuBHDO7ge2R25w9Yc+5Uw5csHPk4oW7miz8 d5y9eI/Tp25w/ISzes+ja6c4e9KKo7anJM5icMCIDf/4S/ZuNeDY7oOYbtnG cZPT3HEI5fjRB+okmF3bhII7jNi3y5B9Ulv365qy/5ApumbHOXw6luMP69UB ExfkbQyumCakepawOuFSo3CqSaJFFKCY2Mi2+Q+IbJ8XjRTZMa/9hGBWqKd1 ZuvCUClVw+QOjal4ySiZxi91HH8pHtfD+7gZ28/tpAHc84cJUbvhJ9Ru+NBm ObZKtEt0SHRNECwRJBQMkmN63/ga9TS26IeUJxWS9CifJO9aCWV/iadCvXGK A2eoDlugOXpZ/QiuL/kVg+mvyXeZoK/gDVN5r9UWvtmCl8wUvGBSEvhIwTMG 8qaIvtbC4/OtPLnVit+9RnUAQJqAOjtxiIK0IUqyhygrGKJCNGVlhUS1XK9T 6l5Fg8K7svpBXrzU8Oon2iVYv887Ldc0g5e0m+D9s5Y7He1Kn3ivBMkrRST7 1pHt206pfx+1ocO0KnvuJU4xnDYt9XuG+dxZFkUAr4gAXhUB/LJ0mlUxXyul EywJ+ueLh5kuHKBHKkJzVA51zk8Y9fGl7JoTD43deWAZjLNVPI5Whdyxacf5 TB+PLomIvzFMuMMYsU4TJLtNkeE1SY7PFPl+UzTErdCR+y2tmW95LsZkqWmR 2bolurJbaRM52JRaQUNSPk0JyZIHA2lJfsRIRQRj5RFMyHGyIuIDpioj5DWa rFRuhjMuRBwVNVrqc52gqxYaImxUNyN492J/NYkz7oVccM3mvH08FxziOXkm ALtLIZy/Es7FGxGcOuWCkc1d9pqc55DpKYwsLmJqfQlzm0tYHr2IpY0dphbH 1cczsz6CubUVllYWWFge0dwnAtPE+CCHjE04oGcsJNvHxo82sOlzXfS2H8Zs lzFuFwPxtxcb6pRNmHMmLsLxc2ddOXXeHdtzrtjaPeTKtRC8wqrxTusSstVy 3EOZ5qKZ5BKsTHJRu1LFWjUIi5qkgDWLCGxRhGRE6wzfF1E4rRWFSmGbUhn2 gchCpYUntHuM4I6Bd9aG/SnN3cs8SR3DVxjnJ1Ltfb3tQe/0tgcJ2wIlApRo H6dxcmF9ecd/0zZfJrhGkORZRJJXo0QPyY+GyfKdojj4GdWRz2mOXaUz6TX9 aW8ZyvyakuBvJI9+y1ThN8wUfaU25M0Uv2Ky+AUjRUsMFM7RWyAF9VEbnpea 8bzThI9YxeiIIRLjh0hLHSJLXp/c/CHyiofIL5djldyukaNEQ/cMz1ffrp2+ VMZSqx9hSAX7Ow2tfvCekyZb1fv+mK66NhK9MqRuV5AiNTvXr4eyIKmfkSJq 42foT5WKkbmo1uWFgiWWi0XhlS5pwPgfRezN87xyZh2MzyIz+To9h/+3sZqJ ogLxsE+EUp7c1hcnZ5OExynN4PCw64Uk2JeRcb9Sq6n/M1XedWpzQYOv0MWv ji5xkAsFQuGmr1hufMNC40uGRDz25LbTntVIc2YVTWmFNCenyosexGhlJBMS U1VRzFRHSbGLkseeq42S/DhXGym3I+V+5fvhVEQ5ofvJjzm44afqXzfZ/DNs dn+OrZDr7AEJk0uac3dnojA6FYr5+SiOnIvl6LkojE9HYGp6m8P7bTggAu6A 8SkOmJ7msOVljI9cx+zYdcxPXMfK9hpHTl3F5vQV9bFMrY5hduSodsnE/8XB w/rsPWjC3t3izLboYW12W8SkG+ctw/C7nUawcxlhrspwmDKivUuJ8Skh5kkh 4b5FeAYoA1dKcfUqxPlhDoGZHVz1reG4W4MQqoGjj+rWh62EVElJqZWoV8gS 1jgpOSa8eVIdjaQqvA6JLqVUTWgE3oci8BQuDDH3+q22v+BPaB5Y5XHOxHe7 z6Vq+UvV8m+U0HafK53nfnJsmVt996TB32pFYnl8MUnuJSR5NEv0kfJolCz/ GYpDF6mOfkFz/Gs6U97Sl/E1g9nfEOu6xEztb5kqEvqUfMNs6VfMlL5hsvSl CBNlDLWy182U2IYhOXaSHlSHs73I/RBJKdFDRCQNEZMxRHzOEAlSreKFQvHy s+XiLxdffPW+Mx+ayYH/rNFJSQLbtMKvp66bRI88qbl1pPh0kOf/lPKwMRpi Z+hIlvqZ8ZyxnBfMFK6yWPKSlbJXvBRj9Lpac354PqKZuUjNCKT/VdfHy2bt ItSEAlIfhJDi6EPqrfs8snjCTb0n2Fsm4GWXrf5MxM1iEh01Z1/z3aoo9arW /K68/w3+NTQF1tAs0RXRxFzRFM+b5dUS89Vf0EtPXgftOU00Z1fTnFVES1oq jfGB6jixmRrNoKJn9dEsNEQruaQxWhy+cv1ZfRS1cc4c3/1rTu35NdZbPtL6 YSu5psOpfZuw092E9YHN6v0Hlc+89M0x3G2DrZEtB7fZcGSrGVYX7nHZOxSb +0/Yb3oBPYtb6B+5hfHx25ievI3FqdtYnrmNtd0tbOxuqo917NxVrE5pdoM3 sbJUjzvMrrBdz5bd+63YtcWI3V8accLQGdfrBTy8LaZPzGC4ZwNRPo3E+DUS H9hAQlA9CcG1xIdUERFSiWdwHR7+Fbh7C58Cy4moVMYs9HLMo4Fj8r7eie0i oFiIIKY1uHJtYJEi0SSalYFFEt+VaB+o+uxDsodn1xdGatYu/wcaB1/QNLJK qohIn7JxfOQhfaonSOuZV3rCmX31jfqT755o01iQv6Wvpo8kFyGNawtJbv1S c6ReBMxRFPac6phVmhLf0JH6Fb2ZX/E092vyE/4X40VfM1nyNdMKYcreMl32 Rvz3K3Xt80C5uDARuL2Vw3LsoresmsXRIaZm31LXvkyj1M3mvmVan0oMLtMy tLy+Lfy7TPmD9fVnH6yvP9MuTl5bsv1uo9t29b6/pqe2j0R3TQlN8e4hL3CY isgpQeI8nanPGch+wZiiSovfsFT+lm6/LlaShpmRqqBcvm5/zjedGiYN53Uy kKM5A5rlGU+aazgpTn6kObrgaf4EJ31/TcL9P0i6qzn5W+hRTpGHZrVxrV8F 9YGVNAZVfkBTcAX/J30JLTyrXRSz069ypju/k/a8ZlryqmnJKaQ1I4WaOF/J SjHM18dIXYoRuRcjPIuVl2G5JVay3POWGJabY0TyPeTk3k84s+8Tzu77lPN7 NQvWT+h8zIltH3Ns+6+w2fEr9A5sU+/X07fg8E4bjpnacXD7UewMzmNldArr 0444pRVz0S+TQ+Z30DvigP4xR4xsHZW2a8zFLFmec8T6vAM2F+01vLl4S+IG x85f1ZTYv2eb1R10TK+xW2i5Z6s1+zcdwcu+mSdObXjdbSdANEiUbxexQd0k hHSTFN5FcqTYieh2EmNaiI9uIDyqDs/QRjwCqnDzKSAov1eoM4x3RjeXAhux 8a7GL19qQfH//xyhoPZ3tdYErfMv1hYTvTvw/4faz7J6q3pIcpLa4Sx1w7Vf XM44GYFzFAoFKmNfip19Rbs4m+7sN2R4z9JW/b8YFfxMlL5mUmA/Vf6SqYpV UdUvGK6UuqFshlM9Q2+NUKCmU6hQpVDg8/egfG3TeeXyznLntQUo796t7fJc 6xp695zBDq0m7anpJ9GlVIpgC2nefeQFjVERPSv/wCJ57lJG7jfT69vPYOBT piOHWal8wWLzb3jV+Rv1T71u/IrVxteMFfRrpdPfURaST/ajZNLco0l1CST9 gTthZ1xxOqjp6XQ9p+m/Db+VR8I9zUzq6Dvipu4lqtdrAkqpDSylPriUhhAl SuR6MX2pTUKDbrGK3XQVdNBWIKUjv4qW3AJaMhPpKQhnviFWHZn1vDmO5dY4 VlrjPuBFWxx/yIv2WFbalK2k9URVfSrxGecPfM4l7RCQ6/s+49LuX3H0y5+u 73Koq2fGwR3W2Bjbobv9GKcMr2BuehFjNa7ik95NdMsKh095omdzj8Mn7mN4 2gmTs06i0pywvOiE9aX72FzWtAMeu+LAscu3JW5o/8YP2X7Uka3Wt9m56wT7 thznjGUoj5x68XcfINhnEDfPIWKD+4kPHyYpepjUOImEQVISB0hK6iUhqZPY RHHG0SLZ1YE95fimthJZPU5kxSARpV08SqsT29HPE6GCb4lGLvlVa+VSg1Yu NSuKTBFLH6pyaQ1F/+n3eKDARyNK/lIqv7j8e00kKWt7hQPpUgbyw5eoiF2m PmmFlvQXwocZQu+KHipdZrh4VVzkCxX3ExUrEqJMKpYYql6gv3aeXrFbvfXC gboO4Vglr1eWtAMbv0uCH/ybSbDWyPPuGqWd2kWSPVUDJIq+TXJtI/XxAHkh 45THzNGQ/Jywa0uSg1cYzZ9nuu63kme/ZaX2G17WfyPg1+wG97r5axaqNAsc Rwr76MzQLOLK9kkl2SOYNIkMF0+SHa9yd68vziaR6y2LoTeziLubo9UvyuV7 UjXiqQ4sojqoiJqgog+oDSmUUlAbXEBrdAl9WQ30FrbTUdRKa1EDzYUVNOfl UpsRy6zgXxkcp4ymWhHYv2iPY7UjTv7Qy844dRJHnEijzyQ+l/iCixJXdDU9 yjcPfsH5bT/j7KZ/0KR/Iyv2bTPnuIkd+ofsOKF/FWvzG5gr3ZOWSvekA+fu hBHT+gqfwlEOHXPmsO1DDM4+xPi8C2YXXbC4/BCrqw81/9k/cPTafQn5VVFR B89cVO/ddsKZrUfs2a5rx+7Np3C7N4iP2ygBgqewgEk8PMeIj5kmUXCUkjBD WvI0aWlTpKaPk5wxQmLGIHHpvYQnd+AV3YFHeC3esTVEisuIrBoWDsj3Spvp GJlQ3+/GYZEoY6s0T6ziXT5O85Rcn5b7JGZefrPeTfHuIlLNThV/QVlYA0n2 dSQ96FFbK1PFK+SGPaMsdoFqSZmNaUuk+8tzCxG7Xaf0DD5XO5pGypcYrVgU V/iMkep5Butm6WuY1rZYPRXMtzPW1fU+qP/7fzPUP3znxNU7nVhb3/Mbmlt/ TeL9cpF0bWK6n5IbOinon6c+5bn8by+pyHzNaMkrZirE9Va/YbnuLasNb3nV pNkTUWlAni2f1OifogGRf/Xq9TSfGBI8H5MqkenhSehVW27tOSUaKGKtyTH0 ViZRjhkkO2t2CU9zTyXfJ4vygDyqgvOoCMqjMlgJpU85hzL/dLoyK+kuaqat WEx3UR2NhaXU5WXRWSLoV6ezxbPcFs+LjnjBfDyvuiS64+UFey1fv0+mzznO CdLPHVSmZWzkksQa8c5s+yl2237CHd1PRcDvX2shNj18Hhu9KxwRrWNh7oCl 1V0sJdtbHbuPxfH7xLS/JbbjK2zdMtE77cZhO3cML7hjctkds6tuWFxzw+q6 C9Y3HnLkxgOJ+5hfuMn+s9fZfsaNbSfd0LG5y9aDF7lyXjzAw3EeP5om0G+e 8NAFvLwXiEmYlmz/nFRRpOkZgrKsBdJynpGcM0NS7oQ4ymFis3rxiu/FM6YJ 99BiouqnhQVjUgn6RRS10TE2qV2y+V0x8MN14azFzsLYsvaWcvlTMkOnKYyZ pSJxjrpUcQiZzyhIW6ZNoK1s7zpQKpAum2OwYpbBqhkGa6cYWN8mZkRigO76 Vl6vrvLpezD+h/9mjK996107vP29ANf4HeWS5NxKss8A2SGTlArA61IWact6 LnpiRcz7C1WQzde8ZEmIu9L4aj1Fv2xRzo8NMFb8dH3T2zz/XBK9QyR8BegB ZHh58Oi0OTcPbcZ+TwhOFgnqTwbY5xNyJ5VYpzRSXNM/0L6gRX5ZlAZqoiQw UyKD4oA0CgKSpW7m0lpcR0NxLXVFVRRnZpMQEUZFghvzLQJwAfeKgFsZrfSq Wxmy9LonQVzvG/mqXMt6fEEdA6OA+6J2JMVluW0r4D6/5+dq+4Sj4UaMt23H Rv8EJofPYqV7CWtTcbxmotwtBdk2Tlgdd8bqpISts+iGYbVLN7b7W0555qB3 zhP9i54YXfbC5JonZtc9sLjhjuVNQfpNSfk3H2B66Ra7z91l21kfdE56slnK g9m1VJycxnF3n+XxkwWCgpcJj3hBTOwrApJekyJvSWrWK9JzXpKev0pa4Qop hYskFc0Rr4ymyB/CK3kAz/g23CPLiWqcFZSLzql7SkRNB3ntnX/9HoD/SJu+ 15BRHKBZWZ3golkknho0Tk7kBMXxU1SmTFGXMU1TzjRt+dN0Fk3TXSypumyK vspJcb/j9NSP0d04Srd2J5bOpn6e9jx9H7T/6N8MbW0f/zuNROp5nu+x/q2f q7+WeL9Fbf/NDB6nOGaGaqWFQojZk7/IUMmSqq1mapZ5Vr/CUuMKy00vWGl5 wVLDPBPFveJHehks6qUwsJDcgBxS/WJJ8Qslwy+IlEcu3LM4wK3DW7A/ZISD XiyOR9LxvFmK341kwhyTiXVOIVkSdvqjVHKepJHvJyEYzvVLlceT+wKS1F7J 7PAkUqPTiAxOICwolsAnQdgZ6Sr71H/A0R2fS05O9rigzjN6JfB905vA214F 1m/7EtiMzyVDzuttlFA2MFJ2DtvAie0/4/z+X3PbWNhm/CW39m/ikoEZRnon MdtnxxGz65iZOmBhcQ/LIw8kUT/E+qQk4NOuWJ915W5EJbFd3xLXo+nmUWbj Hb7iJ+GN4bVHGN/wwvSmwPq2O+a3XSUeYnj5PjrnnrDlzBN2XAjhkEM6JvfS cXo4g/ujBR4HrBAk5TI85g0xiV/hF/8NqXlvJb4mveAr0ovfkiZlNEXkb1LZ IvGls8SWjOGVNohncifusVVENc1JTBDZMEREXSf5nZ3/9T1w/nvteq53wRN1 SXM2ItZzkHj/YdLCRsiNGaU4UQxd2hi1meM05o7Rkj8upXOM9vJROqpH1TUi bfLnlA1LWps1m5bU13e+N03/0fppld81+GlPsPyeXvr9VKxcNApcX70ed6eZ RI8+0gJHyI+aoDJpisbMGTrz5hgonhe99IxJ8QQzdYti6ZZE0i6x1LzETNUo Y8qq+qJOnsqxIDCXnKAs0oNS5LGiSfPzI8jhCtcP63DbQAdH463cNTTljnEC DmcK8byezZNbyYTcSyb6YTIJ7smkeItVfZIiuE8m1VewKrhNDogn1i+aSP9o QoPiCAxMwNc3kosmepze9QV2uzdwQWnbVtpFJc7t/kJKwAXe9CUKbCX6E3nT n8C5Q1+owD1/eDPnBMRHd3zE+YOfcdNkizo54dr+L3E5qMs5s8MYif87ZnEF M+M74jHvYmEl/vGoAPeEgPaUmwDXHetz7tyNrFZbtLXg/YC4vt+KIbuT2ILt 40z0b/lheMsLo9seGDn4Ymjvj67geseVcA455mDkWoGRWxnGTpncd5/H/cky j4NfEhT1hvD4r4hO+Qa/xN+QVCr4LfxWcCtR9jVpFV+RUvGKJLFt8RULxFZM 4ZUxjGdqF+7x1US1CHabRXILgCIaO+mYnl6fL/XPcvHvQMSfMDe0Svi1NhUY UT5DxAUNkRoxRLYY3cLkIcrSh6nKVhpThqkvGaahYoiGaok6pSds6APq1JUV VfX9vFh9rT7o++Y3/mQdqWtPRbm9UZuf1zaOr6sZYmri+fffA3UtJyKv1BP/ sJckX3mK4SOUxgu70iZozZmiu3Cap6UzjCjLi2rmmK6fE0s2z1yj5Fzx4kP5 rTwtaKWvsJXc4EzJ3emkBieSEhRBnO9j7K31uK6vLC7fiqPJVpzMtnHPxIzr ZoE4XS7G+XIKj24n4y/4DRX8RnokE+OtjIYQPD9JJMovgWCfKPwkfH2j8fGL w8nBjfNGepzZKaJ3twazV/Zt4NqBDVzX3cgNJeR6wAWjD1Xg/hXel41U2J4+ 8AU2O3+uzmy8rp0ycFEg67h3v5SGzVhtPchRs/OYGiqT4xwwNxdBfMQZy+Ou IhvcsTrjgZVIBasLHjhGVanyQenciuuV6PuNAt1vlS/f8P/gUzHJreRmbiU2 ENPxAvf0PoycCzFyqcDQrRIjj3JOebVwz3MRd98VfEJfESi5NizpLVHpXxGX /TUR5b8lOe8laYLXdMFratVbkqvekFi9SnzNEuEVM3hlCWbTu/DOaSOqdY7I VsFsq2C2ScXs2pimdxawazeF+ZeFZajrIGGPh9R9LJIih8iIHyI3dUhdp10i iqWsZIhyAW25gLZMXZNQqm5k0do7zfLqm38RsT9dR+waWpXQnBT8I7Wr30fp 6n+US4RXrmR+zXbv8a5y/YHcdzeXrsohZsee/x7lPvnOfzI/8pIo+25ivQZJ kf8gL0aeafII9ZmjtOWNi/iZoF/83VDVJKM1U4zXTTFZP8VQWR+9eY30FDTS WdhARrDogZBk4oPjiAkIwdvxFpcOb+W64TZum2zDUbB832I7zlbbcbXezrWz 8dyyS8f+SgoP76TgdT+ZJ66Cba9kAn2S8fVOVLeccPOM4oHEfYmrtqc4tu0L Tu3coGJZyb3KqIwbuhvUVv3beoqZu3N4o/ic23obCL5kxNuBRDWyfC9xcs8n WGz9GXb6oolNdLhmpsOZA5u4umMvTkd2cGvXLpxsDDAyuICJ4U21PdjMYq1F 3w3L0wJoO4nzHlhedMenYFBA/ZXafRjXq2x2Gden+Km4PrmvV1xh9xsRGi+J FkBHdyxi4FyAoUs5hu6VGAqgbb0acPR+hqv/Ct7hL/GPe0VIymsixXP7JSzj l/sbSbwrpFa8FjBL1LwmueYViXWrxNU/J6hsBs/sYTwyOvEre0pkuwC6XQRE 2yDhLe0C6Cn+/J3TAe+g+sfvKdEaVaqZINVSuYi/29P13R5iYgXcko3TMofI zJPUVyRRNkSWADurSu6TGJxc1o72/AMVwEreVxazvQNqzdB5vtDm/ozUWgKe 5BDhm0uC0hYvkfs4l0LvXIoF1CXa3dgLneX+e/L9O7mUB9WvPePv/S45G6j3 5fgOEPlggNgnUkPkWefHCZiFinXyIrUUjNBZMkqvSJ/+ylEGq8cYqhmlp6ST ttwakUY1NBbWCIATiQ5KJDwgGs979yX76XBRfyvXjATIpgJk8+3ctxQgC4hd jmzH/sxpoh9cxN72Ojcu+HBNErS9gPmeS7JU2CRuOsVw9UE0Zy7c5YiJOaaf /S0nt/2Sk9s3cHbXRi7s3cgVAeH1g5u4JVn3joDTwWCTmLRNqlFzUMJgA0/s DHgjQM4JOIfFlp9yRhEWRjpcEiArSwXstuzCzfYAF7fu4PFJPW4ab8TQ+DLG BjcxUXtrH2Bm44L5SXcsJDNbnBMQXxCFe8lN3Xs6tkvTQqQCt++tgPgtSnZ+ ww8E3PJ9tbXoFTEKoDtX1IWeysXwYQkGbmvTF/4zXhEr+Ma/ICh1lbCsVaLy XxJW+EpUw0uSKl+SItk4uU5UsBiThIZlMW4LeOWN4ZkzgHtWm/rZjLqCrXOc iPYBAXKbFsTfXTXyP9dPW3z4ewnu39Moj5uaNa3ugRAg6ThUMBAp6ThSkBtZ OERRyzQ9Y8uazfS+v74STBmVuZZ9P9KA7DPtSfDZmSUCRV+F+0mKFfef4a/p Hy8T5FYLauuUIUPems2cm5QRYB6a8V+VkoqLHXPJvpbD0shzzcc3h8gJHiXM ZZBo/yFS5EnmJgxRmjZEtQidBqkZLcVDtJcO0yn06pK60VzcRk1OJdV5VZQX VBMTmU6gfxzOjg+w2b2JM4e2ctFgG1eNlL1ft+Mgmfae1Q4eWO/goc0OURT6 +Ht4CTC2435CiW24ntiKy3Ed7Pb+BIuNP0Tvl/8NvV/8DQd++pec3fkTbLf9 Sh3IYLdH7JWU/asHv+SmMoxB/0sB5ZfcNfqSe8ZKbJLYyF0JR6MNQsKzQuSj nJKsbKe/BRMDXQwP7me7jokA0Zq9202wMLIWYBpjc0gXc+PTGOnfwMjYEWPJ tiZHXTCzdcPsjBvm5yUuuuEQWab22CjgU/raFCAqvd+vlCbUl/wtMT2/a7ZR mrSVDjXlou+cj75LPofdNOcYbzweVo/uEYv4JCzhn/qckOznRBQsE12yTGz5 MvFVyyTWPJc0+5yExiXimxbUZjhPeWM8cnvwKu6Rx18gomtaYpSIjj7ynj7V OvjvonTtMzxl0H9N77J664v3FPuP14u9snPyWnHWZNM/ZG5mkTDfdKL8c8Sc aNuoJar982j0y6PVVzPqqltQ+SE98vUP1GbqNkFlowiDamUI3e0clke1CDxI S/kiQW5SJwSBiYLAzHjNSsoyoUmV/KO1kuDrJcE3SGJvqFHUTCV5OVVk5VYT FpOD/S1nLKQWW0sttpUUeV7Qd8V4OzfMtnPHYgd3BX1KTXU+ugOXYzuwv+xA iP1x3AR9roJCF0HgWfFBhpIK9Tb/nAMbPmLfFz9Td2I8JnX95LaN4rWUCQSb uay7met6W7glaLI33CK+bovo4s3cFw/lZPalHJXYyNX9H3Fs09+re7+6uTuw w+AIOw6bs2O3NUZmx9m+w1z81XEMjZTtpszQ1zvCYf1z6nbiu3SdOGz2ACPx XMYnXTE544LpeRdMLrpIPV0mql3tNxEEvlCApjR5vVCbn+Vmj9zdrYRgSN7n qO4lTTL8K/Scs7G6X84F5y71ntsBgzyImMYzfp7Hqc8IyF4gpGCB8JJFouQd iakSa1W7QFzDM2Kb5gR2Y3gUDOGe18/D3HaCmic0swe6JwnvGiaso4f22bn3 jYC68R6U/XwdZe98MqBdTfFfBGWCabHCMf5ZKsryAvMoD9T2DgeU0BlQSl9w KU9DSxkKL2UkooSRyCI5FsjtfAZCcunRDndS8l+lQxbLI0saxOkyM/GW9ORp AgMkCYtOTpSclyGIy8kR5Mn/WCQ6uahcQlRrQmolsalVhKdUUFOYiPGmTzHT +RxLcTHH9n2JnajKS4K2a2ai2gRt9pLn7kmecxK0OQvaLpicINr7AVeP7uOs jdgUa32MDu/m4L5t7N2pw67NG9n22RfsFQTsMzrNrkMXOXTgOCcO7OfywS2a fntDHRyMdbgrBfa+WB8n8y08UNp8TZVhbR9xed9POa4nf9/HB7ekeIxPnGPr DksOmxxni+Q4U+OTGJhYYGBoxiFdU4wNbUVV2rJrvz1b97uy9ZAnO409MTj5 EMMzDzE691CKYKfaXBGlNFd0LAninquQ+lDA9VxsUky33Ne1qEZU94LEvIor Zam3cvGu70HXMZ3TVxo5e7edi+4a3N0J6uO+vOYeSZM8zprFP2+W4OJZQstm Ca8SPNXJfeWCtfynuOYP4JLfj3O+2KSagXeafMcJ6xokpK3zX4u3X3znnOba 3vCLi4u/0EIuwieOWL80kpSkFlhMWWA59YFVtAbV0BNcy9PwOoaj6hiPrWMy vo6phBqmE6olKpmKL2MiViAYVUB/WK46w6jZK5tK+1TNp2b7mZr+ikYhr0/4 IIGS4Pxj2ghObBM90IZPXBVeEkERmaT4e1AU/oD2okh87c9iuuVzzLdLchOT cfLAl1wQqF0RqN0QqN0WqDkc2cm9oztxOraT28f2YHnmJmdOmnNUzION9WGB 0nb279jM9g2bBGab2LlxK4cPmKgtrMrmzbr7TnBA1w7jgyexO3xA7SZ3EJjd NVU6yXVwUtpYzcSkCMyu6/2SE6a6Uh6NRbOdY7+tLVbmFzlpcpRNW42xPGzN QQNLDh42Y/9+E/T0pLSa2Ip5OYm+oUBS152tht5sNfVhi7kfB0494rhLLOH1 s2ojQaTSSKDM22uX6HimbNfeuaA003U+E5jJfV3zKsyUjgKlkS5cbOvaMP7Q zgEcgus5caoW25utnH6gObN+za+TWyHdOEb2cD+2F3ehuac470f5w3gXDuOa 3YdLTi/Oub08yJOfyeviYUnX73UsjKqPP//6zZ/9K+H2Sy3cvr++qbKyeavy G0pR/Vj7MUBnYxdxT5JI8sshM6CM4oBaagIbaAlqpieslcGoNtoeV1NrFcqI YxzzApZnaa0spDfzLL2J+bR6ZlNqmEyqZCSuhP7IfLqCcmjxymCyqk+Dvb2s vJinuVXqbmkoFaVhhMSnU18SRmOxRKFEfhiJ9qdIuH+GBNez5Abfwk5vJ6Zb v8BCiqqN+ALbg5s5b7yVq4K7G1JQb0tBdZAUd9z6IJbWhpgdt+X8pTOYGO/j 4J6t7NkimNu4ha2fbEDnV5+hu/sgBgdNMNI9it5OEw7vNsVgjxkG+23Q1z3H ST3T9dbpexbKcTOXDnzMTYNPOW2+DxNTEymWBnyxYRtbf7EDs19uxOTXn2Pw yTb27zzM9t0m7NqttE8bs3evJfv2SfozsBGvcRJd46voGD1Cx/IJOja+6N3I lfQ2Qljt1Pqa+ogW0fmtsyi7j88qbSyzUlJV8d8l3+wWeaV0jSlg6J1cm2+X OzS+7liP2jVz/LYGc+cftXPFv4MbIZ3ciezEIbaTu4ld3Evp4n66HDO6uJvd hYOk2Du5HXhW96tzC9TOmN4JtZkzpGuEtvklfh9wyuKv9wHuV9pn8u/UvLZ2 mmZtl++1+36mBV6MdzSJvlmk+JWS619HeUArDUGddIR10x/dy2hCHzUP22l3 72E+poIlYcmysGRFNOdyThdLOe3MZ7cwndHIeGoNQwnl9ClzMwIzaHRP0tTZ vxTgzdHWlqPu211dEUpDRZiovTDaJTpLw+kukSiWKAyX8u5E2t0zpLnYke5x jizv85w+oIOpmFMLMac2ezdxYr/4C6mHF6QW3pDkd8TyoLxhZlYGIid27dUV U2vN9p99zNaPf82ODV+iIwlvy68+58DeQxgcNsXIwBpToxNqB7HBATOMDipd xOYY7pTj7nMc3Xkcjz06eOtuwVOMsJ/xTkm0BzllZcUxUW2nDY6z4Uc/x+Dz fRzR2Y3tpm1ior/AyvoyOl/osn3LYXbvMmOvAHvfIRv2HzoiYYW+5XF2mtxh 98lwzO6XcNy7iWNeDZo16DUThNVNqivQw5sEWxEtU+IbI1qnxHNKdCjyalLb 7KvFhhLdY787USKmcF4zbUq52Ni3c8KlnTMCwwv+AsXQDq5FtXMjtp2bCR3c ShZoprVzPaODu0W9+DaJeutWH3p9pXvXGNlDk+qD/+m/EoG/XvtAvKamZq15 d203XCXp/c4lyze66tuJ904m6Unx7zodArppCh2gK2aIQW2L4GzmGI1hIyyI LX9RMMpq4Qgvi4ZZLRpkubCfhYIeZvM6mchuZTi9nv7EcnojpQL7JzPV0KVd cvg/WRUkVpYHU1MZQkNlqLq9Xqdo816J/vJwnpaFMySIHBJEDqktfeGk3zlN 1kM7sjzPketznoh78o5+9jM2/Pi/s+Wj/8GOn/+IPb/8Eft//SMO7JcyK+VT z0iPXXt289lPP2XzTz9j+8efsuPjT9j6808lDX4pqe8I5vvPYqNnx0nj85y1 uMB5m8tcOnGVK6eua16ef+Ss3SOunX20/pY6nz/K2VMnsDl5huO2dhy1Os2G f/yUfVsNOLLXFKud+zhlc4E7d8O5Zx/MlRvBnDztqi4P3LXXhN37jMV22HHs pBNO/ulc8avhmIeyA20Txx83cjG0leAKQVW1wKBuQm2KCGuUUBoiWuXYLtGh tLyqDRGCvglNN4Tczh6e1YiqPxMUviVDdJxf+gQ3gwawdG7jqKDQVlB4JqQd uwilo1YiQdCY1Y1P3QihyjrxTu1a8W5tO1/nOFmDU++Oslxb8Pc+5H2y7iWU fKfgTfnJtdVHyn0hISFrOVBzulGzq2uit2a9W6ZvC8V+moGJLVGj9CRMMpw6 rba9P8udpSFghtWsTl6VzPC6bFpiipflE6yUjbEoXmGueIBJQeJITisD6XX0 xhfTE57GQGbR97W+Wdk7sqYiiPqqEJqUnVerQukREA5IDFWGMyogHJMYL1N6 Syfk2j4m5HpPqg9ZD84SdN2CU2I4D23+GUZbPmL3xz/is//xt2z8hx+y5cd/ x4YNn7Jpx1Y26Wxj46btcnsHn/74Mzb+bIOkQ9F+v9okKXGnvGYnMD56DZMT 1zCzvYOp7W2p3ZexsjnLkaPKfsjWUmvN1ZfC3NxCbIJmr9WTBoZcs9iuOc8m tfiwiZmA3YL9ewzZ9NFmNn1xkINibg/p7OPG0Xt4XA4g4G4yIc6ZhLmkE+yR hc/jAtwfF+PyqAhn90LuOeUSmNUhukxg4tXEUUHisSf1uGeJRq7QbPYWvNZa 0CTRMqHuhay0FgR3KjCZILBTs146a3BWs7b+P9Lc94IngkDf3An8iybUPa1u JvXjVjRCkAA7WIAdLO41WIAd3P5Oe1unpr1t7vXX62X33c+Sfx96Sqfmp+vQ U46K1lNgtrbGc630rqc/Le6SHmkWHmc/6aQ0cEC93hY/RV/KHCOZC5q2ssIl VkqeM5OzwJuKJd5ULvJGPPmrqnlWqmZYrJxkrnyUqZKnjBZ08zS7md6USnrj smkNifqe9sMZBXe15UE0VAXTXB1CZ3UofdVhDFaFMyIxrrRVSkxLzFRFfMhs dYQ8c7lK3pPrHPj0x9pT89uw3voRxp//WL31yU//gV988SW/+HQLv/p0K7/+ lQ6bP9nDL36yiV//ZDNbfy358MtdHDK0QVfkv66ZOFCrC5gcuYzZ0UtYHr+E 9YmLHLG9wFHbc1gdPaE+rpGpMQYi81SYGUmONNNsvnbI2AxdsRYHDlmzV0df JONpjtt4YmPgT9CNdNyuRxP4II9wjxKiHpUQ41OsdoXF+sp9fvl4BZTj5luK i1cxTs55BAibfbI7uRjSgo1A7lxoC36l8v5XChakIgcKTgIFJ8pZjkDBSWCb Zjm+vxwzB+cVjGiW/v4xM4tf0zy4yuO8CZ4oWzNod3fyr/3d/qMBze92gY0r y5rft7rzfQj7bK2sar6lZDflVzS57XcZ7p2zKH//LtI8NRO2cp70UhaiOeHY njRHf/oiYznP1e7mxZJVXpS/pC3uFV+XD/FVzQve1q7wqvY5L2oXWKqZY75q iumKEcZK+nma305vRq2grZCOmFjNszCiriyAJnVf6eB1lA1VS1YTKE1WaZoM 52qimK+N4lldFAv1USzWa4718c7icn+N9bZfYLpR03x4ROBms/VjTm77WAMN KxN2mlmxeet+Nm3Yx64N+mqX7fZfHOK09UWB2jGuPw5G99g1Dkit07O6gqHN dUyOX8f85HUsT13H+vQ1jpy9ytGzVzh2VtvMaGyCibmZBnIC0wPyOMpln4jD vbpH2LPLkj2bTTmi78idc4ncu5yMi30toa6VRHjXE+1bT1xAPQlBtSSG1JAY WilRRpSEl9z28BfoeRfjESA/XzVMRJmo/cIO7KPq8c1/yuMSwY1kO1/Jdr6S 7XwFM74CvScSzbOaDqg/1n6W1Ti0qu6hmdo6j0/FuLqHpk/NhLp9poBjrVlK U43/+ZKH9+Hr8+/iS8HSmlv4g99LY0oT7X//3Qddf0X8wyyS3DV9djl+TykL 1+wy2ZGywEDWMmP5q2pTr7LD62rlWzrjlvmm6dX/V9l3x8d1HGl+J1mW17LX tnbvbu211mHtXfsc9uy1ZCVLzJkgQQBEBgiAYEIGiJxzBoiccw6DnAORMwaR yJnIRGC2du8fX/W8edDD6Emm5/drzuBxpqq76uvqqu7qbrzseoYX3U/xtJuQ 172LR13bBIs1PKTmLDRNY6puFOOVPRgvbcBwXh5nXH+HsYFS9LILXlsSuPGT EDZF5mqe0LUs26pH6Orktuk96snETm8mdlnpy6D3DBicfg8m5/8I8/Pvw1q+ 5Yihy+T073D79O9heJHLP1dWofFNVQ8a541xQ9uUUHYdFurm0KPQwTEuC74l tTD2TISyniNUDJxx1dgZmjSO6txxhq6pM66ZO8HAwglGlg7QuM7dhGxoYgHD OyZyY/rPOHtRm4oBFQoNjurizKd6sLieDj+n+4j2G4SvSz9SI6XIiB1GDsWR eSlDKEiTojBjEIWZ/SjM6kF+ZgfS0tsQmtSFkNj7CAirRXz1GFJb2GaLUUJZ H4ZmVg50+3D/M6zucxD5v68ID26F4OA0HmZi+BmNryuYHzbKERlua9IPZe1k n3J8KpAfwCWFVcSys4aWOZAUP8JkxT4Wap5itfEFDWgv8bjtJUYk/43PKCp/ 2fMSL3pZevcz7Pfuk0Z3sNG1iZX2FcyTKZpqHMd4DQ16lU0YLip4TW6O2TWk PY2x6Cdna5A8/WFysCbIBM0SSBYZSMj8bHTJAdKXib3+TOwPZL6GxwOZOAK/ 28owvfg+zC9+ACsqtvJNOXaEF5vz7xF2fk++zyXZs8sq+lA7cx3GWuaEEWOY aNyFrrY5NFi55oiE9kXcq56E8jVXqFx3h9otd2iYeEDbzAO6Fu7Qt3SDHuFE 1cgMakbcjbzGVnYwtrTBdXNz2d8ndWxxWsWMLJEJLlyk9xM3oaXkgSD3YUT4 jyMudAKRIVNIihtHTvI08tOnCRvTKM6ZhCRvAsUF4ygqGEFBwSBy83oRRdgJ IbwExzYiqrAPaW1zSLs/QXgZQFJ1yx9EYGErWEjnT4URQOTjwwjh3e3PL6j5 muI0xL9+bkO+j3zfLhSEjB2EOl15Wxgq2cVE5WMs1BE0yHZst76gkegl5suf Yqf//+Fl30s873+Jp/3Psdf3BNu97I6WLax0rpIxmMdU8wTGGwYwXnsf0pJ8 8NhYne9HX1McBpoTZSszo+T0TLWkkSOUjuWOTKx1Z2KL7VnszyJMZOHxYBae SLNew9MhtmflzgWyHUofym6LvUvFXr5fxUX5I7he+QjuVFS1OX/58slrMNa0 guoFE9xWt4WBrgN0dB2hS1jQNXCBe2wNsgYf45ZXlmyzluodb6ibeUPLwhu6 Vt7QsXTHZSNLXL19l98UcP2uI4xs7GBkRYPdHRveCJ9TMsfZ0yY4d/wO7Czq EeI7hcjQOSRELSA1YQmhkcvIS5tEQe4KJAUrKCleRolkEZKSeRSVElpKJ5BX MoKE/CGEpg8QOloREF0lT9ifQur9YSQ3tPOXXQn3LdnL9cufXSJHBJfKBv6e lPb2dhQWFsr+4nePCycGOINhigyXSuR7MzSMoixuDo3pq+jM38JgyQ4eVO1h vv4xHpKfstX2FHvsjvDuZxS7/wUve+cJDc/xZOAZdvufYrtvH+s9j7DcuYY5 6oKTrYSG+4SG+mZMd7bIuEkK8hDsch2Xj76LK1RUjr4HOwNlxLubINHDFCtd mdjozcJ2f5Zs+9ITaTaeDufg2XA2no9kQxJqBotLBIXLH8Oaih27ouMKdwSJ q+qf4K7GfdbQ1MGlE7qyz5pXbHBDlfSn6wJ9fTfoG5AJMPKAvrEHLChwzx56 huyR51AxCabih6vm/tCw8oOGpQ8uXL8LNRpaDOy9YWjvScUdRnYuMLR1hOFd W1y444gT191w9JoDTp8xw6kTpjAyyICf9wxCgxcRHfkQifHrSE/dQGzyFvLZ 3qWibZSUbKG0fBOlFRuQVK2iuGoZhVVzyKucRE75CEKzhxGSRiFZYh3SySdO 65hBahsNLc2dvxcAgk9QExtBuPOAD2IipnUW0H+Ohi+E6D+Rj1AjzQvIde9C fvAoSmLnUJ/+EO3kvA6UbGK8ahuz9TtYad7FZtseHnXuY6/nMcZqX+LPD8i1 GHhMFv0xdeV9bPbtYZUAsUSAmO1cwEQ7AaK1H6ONjQhwsIK+ihJ0L52GxrF3 oXXsPegc+yP0qBgcfR9Gxz7A9eMfwIhKrp85dthetiE5GEbIGI5SGctBiLkq LAgIlsp/go3yJ7BX+YTftuGu/ik8ND6BqfZ5+fD/Bxgq34Whriv09dxxzdAT BsZeMLjpA4PbPtC/7Y3s4RfIHn2JyKYVwkIgVC2CoGLhhzPXHaFsRsOGgz/0 HfxwzZF+40i/dXAnbBA+7OxxxtQXx2964aiRC44fM6G4yR9uXjPw819EWPga YmK3kJS8g4zMPSTSe7pkH8WljwkDj1FWtY/S2l2U1G2juH4DhfUryKubR07N BELzxhCS1Yeg1CYk0OCb1k3ObOcYUtq6eW9CeBS0owgWPj2MhcXFRZnOuVSZ L8bMP5Zbho35XWQ5dyEvYATF0TOoSV1EK7uuSLKGkap1TNdvYrF5i0KMbQot HuFR947sOsgX4yt43L9DY/wOHvU/wkbfNh72bGGhexXT3fN40DmOvpomZN8L hoW+BoxVL8Hg/FFS/rsU7b4Hw2Pv4wYB4M7xD2F68kOYn/oIlqepnPkIpqc+ hLQ4SLbz5cUYt1Xg5XgOTMhpYCCwIhDcVfkUDmpH4KzOtgccgbvmEXhoHYGx 8gUYqt6ClvJN6CpRFKztIrsGUt+ANGlMGr3lC4M7fjAwIS2b+hES/oycsc+Q M/4ZhQqrUDIPwXFDZyjRgKFpHwxthyDoOAZAz8kP+k6EICdP6Dm6QcveDyfN gnDstj8+MXSB+rUk2JLT4OY3D//gVYRFbSEmcQ9J6Y+RkfsMOUXPkVD0EpKa JyiteYGyumcobXyKkiZCSNMOCps3kEeIzKmfRWjhBEJyBxCceR+RFT1I651D ajehoaP7P0SyT8TQwJ3ZeBBmMNDwvuU3BZZBENryB3vVMm/HewSp5Cmn+nUh 2rEcqZ6VyPWvhiSkFpX36lAXXY+uzC6MlY5gguC8M/df5PBt4hGVrd4NrPWu Y7lnDfO9y5jsmUV1TinyYuMQ7uGEm6pKuENguHHuKIHgPRiTNbgpB4IZKd6K QGBzlryA8x+Rc2F74SOcgi19flAewgHhQS5ZoVyyCAQWAoLVlU9hS0BwUD8K Z82jcNU6Cg9t+nz5CKzYCYuXDaBxzgzXte9C86oD9PS9cM2IgHCDQHAngGLW QIooAnHNIoDAwIDwX8h58F8IqJ2HYWQ17KhLqjhEQs0hFOqOwdB0DoK2cwC0 Xfzo3RsaziG46kigsQjBKcsIKNmnwNJ9ELYBE3ALXoJf2CbCYncRk/IESVnP kVHwEjklf0Zc/mcoatxHScOfUdb0EqX3X0DS8hTFrfsobHmEvJY1ZFMcGiKZ REihFME5rYio6kZaP7u4cAzJnV2/FVkxFQPD0cNgEMah31IwDWwplT9d8X5Z Jzy1JXA1KIKvWTEi7CRIcitFlm85CoMqUBZWhWqSUH1MDRrja9CcUIOJ4b/g 0eAiOQkPCQUPsUIIWOhbwnTfAu5XtCIzLh7JkWGwMdSBidolmBMS7pw/Rqbg PdxiKDjBUPARrM5wCLCjuJElrjte+vg1ONEgcBKOSh9hsjIELycICJO5MKG/ LQkEVipHYHv1KBw0j8FZ6xhcdY7B7tIR+Fzi9l6onjKGsY4N+Qrm0NRwIlfR B9eMCQS3GQiCYGAeDAPLYOhbBSFbnsDuXjJGIKhBEg13OZMEjInP4Fo0iFuR RVBzjYaaWySuutG7SwxUnCPgmFkDo3ulUPMshKo7gZSAcDdwEq6hK/CLeITQ hMeITn+KxNznSC+mcaj8JfKrX1KI8N8obX5KICAgtBEQ2lke8BMUtO8ir20T ac0rCCmZQkixFEEFLUiTLiNtkMaIfgJCV6d838NfRwJ3sB0XPMhWk74tHmhy NuLvZPnnxYXdiAmtRHJIJdKDqQRUIsWnEqNtM+Ttz8g9jZ+jrCAXBtS5TZTs 4ahZAPebxQiyLkaMk4QMiAQ5/iUoCilFUagEVVHlqI2pQH1cBdpqt7A0OIel 7kUs9C5gto+iDAJ5z/0hpCWkITE6Bm7WFhxcqFipXYbp+eO4ffx9gguNFidJ /2c/phCS7XcgX5H8RWcaJVyusPtOXVU+poDZmcKIlxN5hJc8VERby/Biqcpd rehAWHEirFhd+hTOZy/C3/AM7ipdgpG+JbRUTaCubAFNTWfoGvlCn+3TuUNY MWNYCcE162Do2TC8/BlukhEYRlQRVvZeI7B8Rv9M/Jm6UQ5Lsx1/TsblCbJG 9pA5xDJ/uE0J7pJuwko+VNyzYeE2AJsAdmbqAnwjdxGSuI+ojCcUPDxBWslT ZFU+Q17tM8RVPkdhwyNImsiX6HiG4s6nKOoirHTuIbdzG1G1Swgpm0Jw6SAC iu4jbWgZqdIZpAwMsysWf/2KUDkugIrC8o8QNILYkz93qL93GrERFUiLqkQB lbLISlTfq0RdWCXqCUT1gZWo8aXnNKrkOVdie2FX7racQIAbOd2qF3GdgHRL TYkCgHA46hXD06QYIXeLEetSjBRvskM+eYj3zURuaB7Rl5BSS1BZOIml0QU0 5tRjgoDLblZkByKnJRchPi4NAV6+uEMAMiMAWVKxUVOGxYUTMJG5IB/D/DS5 Fuc/ga3SJ3C4/Amcr3xCAccnFHBwOdoeV9mm2o/p748Ra6XGgSnKGhZXjkBH XQ16RNtQ/TJUla5A+6gKrK9pwOjUJfgZqkJD/RY0VU2hqmwJbT2KQY38oHcz UL57hhkdKgQki7AC2GR2wOBeORL7H71BGHpBGGIJ2rL0bMJQ5vAedwbv0LrM DqQOzhB+cmkgKoCZSx+syQtxCJ+DZ8wagpJ2EJG1i/iCPSSX7iODfNCcuscI y91BUcdzSDp3qTxGcRcNOt17yCfvLq19AyGVcwipeICg8n4EV3dztyANTSF5 QMquI/uVAobYurUYhrjDyw4iU34Nh5sx+GK0ykW138Xa6jYqSzpk13jlx1Si gkoDlVYCUxeBqYfA1BfG8sDY/ZKV6GQ3MJNFqnGtRHtc1+tyLE09GIORDEsX ZVgyJf1YULFWiYS9gQQeZhIE05gW7Up4Ikwl+OUhI7gQ+feKURhZjKy4Fiw9 fImChGKU5NSimxnD8nZEx+fD2ysQt2jsMlUlLFGxvqoMW3Vl2Kich+kJ5s7+ iYwSy+36lALYT+F0hUupdj9Iqf4EXvKUak+Nj2W4am3OQXBuDs5o3sBZZR2c V9HBmYuaOH9KH7paxlA6pYdr6jcIRzo4p2KFS5dscOWylew+Lf5eO10KaHTJ m9FlN5pTgHsnshR34uuQ0LfJ0vyfMaP0jIx1Nv2bTbFc9jhLs6bCrjGQXX21 xaXmDLED0bkj4vRtS2Hm0A1LnxHYhXJLav7JawjP2kZ04TYSywg01TvIrGdX bO3K7pos7CCAdZJbS4Aq6NlGbu8WohoWZamHwdUjCCC3Nr5vmoA1h5ShB0jq H8CroorbeHpwyKRw2YZDla7MMrGvChN2ZOnVpNbMmHIUx1ailkpLbBW6Y6ow GM3dJjxOzyZYiavEA3ofo2dDEVyi631vQlwCty1lapygpXKBopqLMofWRAYt ggGVu2RWbK66wMZIAhdzCfzsJQhzkyDGR4LEQAlSwiRIi6ASXYyuB39BSV4F madiSOqGEJVWBQsjI7mTfJncI2Ua75RxV/0K7DWu0LiqAjMa7yxOk+N7/lMu Z1r5CJxUKQq6SlEQRUNczvSnXM60NoXLmiegqmcEKx9fhBeSv+TsgfNXdHCR 4HX6hC50tI0JYjq4pnEDWld1oa2mi8vKJjh+3gPHz/lARdsXmgQvrVvk9JoG QMcyABoWvrhk6g3rtGZZQj5LkGaZ+o9fJ1Q9ZgZrnHuYxbKmCVcZo49kh4Vz 2fQLZEy4XfkGtypgYtMFMw8pbIK4NAH3hEkEZa4gonADsWWbSKomB6hhC5kU hma3biG3Ywv5XZvI79lEHkUbMQ3zCKmZQlDNGAJrBhHcOICUsSXZXTXJQ+OQ rq/zp+ALz/kSg9apw9ASesrclUxHZQMem1BhBislIh9ZMaUyONXF1aAtrh59 sY0YiWMXuzRhJrkJ82lNWMxopFJPpZb+rsZ0MkEtnsuh7gyowEBiO4LcHGBM kLohj4/MSf0y1ZNlsSf1O5D6nTSvwNbAHdYWEjg7SODtLkGgrwShQRKEE6zC CVbxhYuIS6+CW2A2vJz9cP0K0VSh0VTlMkwIThYyeBIdDRWChgqctFQISkdh cYZc6PNHYHOZXUR25OAiMndNlgx9lODEkqOPwEhDmVStoaGBf4KKhg5pKQeR VM5fUJedJKSnYYjTJzWhr3ET2pr60NIgiGnqQP2KFo4RpE4o+eOESghZuRBo 3PKDJgXhVwlKZ4wcYJlQjYyhRzTE7bBUaHYB2Q7b+7FDbgh9RCYrLDl6lCVG b3LZqqPLB3fC3jLpOJjs5o/h8EgeR2DOHCJLHyKuahVJdfSb5jWkt64hs30N WV2rSG1fQlg1Bd019N3aMfjXSuFd3YOYgWkkjy3IEqIrZ+ahCCOGCzEYcYdO Hcy7CFd2OBhpy6BlZWEFLydf5JCRriHItMa1oj+uA6NkZaZTujGf0Y3l7G6s 5nVjPb8TGwUd2MhvxVpeM5ZzGjBP0cZkClko8qS7A0px7dwpTtX8wCRTtTLs GHwIOk5aV+BC6nalwi5rtDT2gZlJHKxuRcLuTjzc2LteMOx1wmCr4oub756G /n9+CJ3TR3FT5ZIMQqYEIUu1K7BRV4EdwcdBSxVO2qpwvKoEyzNklS4cwV15 br3zVYXrs3SPwkhTWZZwqiUrGriqdhVeSbE4f+0GdE6qQ+3oZZw8Tf939SY0 tfWhoaULLR1dqKtr0XfZ6ekmOKEaghNa93BSJxxn9YNx5ZYXTho4wJwsO0t0 ZheLZwxtkZdERmNkW5ZXv81u7dnCTwk79B+j9KWxDaSNsWxnlvQuy/hDknT0 YG3N0oJbV7vtLs92jpDCOW4I7inD8M4cQWDBA4SXTiOyYhpR1TOIqZtGSPko gitHEUgjnH/NMHxqh+FZ04cYctFkV4mMziNxaBLrz57/UuD/8HP+YlA6cxhK wiUgDkqfYuPhBrIichHgSnG1mR3yg8vRFdePoSQpptKHsJAzjNX8EWwWj2C7 ZBg7pUPYLRvETlk/tkt7sCHpwEphC+ZyWJpzFeLv2EHv/Y9J5dwgZEYqtz4Y hDiL4cxgRBByNDSDLQXQrncC4EvvwVTu3fRHmIE3vFWcEHDFA9FaPrh3xQ1B Si5wuWAP+/N6cDinTMHWJbhRwOV+5jw8Tp+H50kqJ85ROQ/HDz6F/cdHYfvJ UVgdPQrrCwQlCuzdCUaeFKzd1r4og9Fr0NLWogBPR1sTaiqqOHpaBWd+/hGu vXsEqr/7EBfePQEVsjwXVHVxkfwmdkyssro2WS4taOgZ4Ky6J47r3MNxwygc MbyHj/TCYU1OQUoXjVO9qwQnshSDVKTrBCkqw6xsvCb78A1kjNB/kRFKJyCl 8WntLN14lKW1T/HT1ExPa5svYXF34MAumQdJcZcw5RgvhWuKFJ4ZQ/DOkcI3 bwh+hVQkVMqH4FNJz6uH4FEjhVvNADwbBuRZqotIGJ7B+vOXEAOTnWBpUXGP LgHrLIert0QWkr4jN1F1BTXIiyhFYVQzSu7dh7WpLWJdkzCQPIzZ3CmsFE1j s3QGO+Uz2KuaxhPy7Z7UTOAxWdFd6gFblYNYLe/FYnEHptnVlzYuMD12HIYn T9FIdJlGoivkN1+BnQYzIyoyM+Kspw/7275wMSE8kbMRRiWGSiLhK9HIH/G6 /rin5o54DS9kabkjQ9sTKRoeiFIl3KmEIVAtGB43LOBs6goX2xD4OoYgxCUY ka6BiHMLQJK7H9LcfZHl7o1cN08UuLqj2NUVJc7OiLG0gPVNayosadQGNsY2 cDC0ho2GCc799iJ0PlTGjRMXYXr0NPRYO8yccIrwdlZJU+ZQXVDRk2Hsoto1 KGnexnGtIPxJNxwfG0VCw7sO1olSJLUTOLooaOtZQWrfCtIGqAyyvRbp0ofU y9OHHpL/TWWEnrM7MNmde+NLSOZz10fnUDGz9Bo3wjE9fU+GLP51w1MKU0KW FSHLLk4Kp2QpXDIIOYQs9wIqEvpcRoiroP+rlMKBdBTZP0u0WILo64gfnpch ilH+hciCNbcs+cXNtMxUnTsMKX7GgA2W35HnTWWHZFN4VQdJZCfqoqRoiCJX zScXzlauGEiXYq1sBY+qVghCK3hav4znDUt43riAp41z2Gucxnb9BNZqRrFU MYAZMlv+14wp1DqJ2+fPwUTlYGT6mnwB3NMsAIHmAQfSiTMIRsr1CGTdjkHh nXCk67kjT9UBdQaOyNV3QbqOM+LVnJGk7Y8YFX/4X3SEFQ10NpqqsKOBzkFb Dc66anDVU4MbFXuVs+Dzih01jx/w0SRrpKWjQ0UfOjoG0NUxxPljl/Hh++q4 fFKLLKshbl++DCP6f4/IXLgF5cLwjjuu33HB6QuqOHtJHedU9XD1mg00DQNw zDAJ+kEdMI7swY3ILgrPp5HUxpLbycvtZsntFK31Ear6qQwsyzLbU9kN4rLs 9qVD2e0s/7xi9qHY4VR8xjt7mfiNwcBLipvBBKhIKSzJTNmkksnKksI2j8BV SJ8JTNalNCzWjnJJoyNc0mj5LMvie/lLEfyIDXHnOdzwU9HClStupukGNpbX kRtcgvzwFpRGDKAhZhxdKbMYylmiOK4NjpZOaIq/j926LcLKNl5QqPCyZQMv WtfxrHUV+y3LeNRM0G6cwjI5eLMVfTC/cAEW587C5OQJzqshU2RDpogpmr3c 7njJ3n0orGav6FvRSDWNkX0uNQ1BpXkIqi2CUWsVjIrjtzBs7YAyMy+Umfog S98ZeTf8kWHgj2RNf4RcspeDSA0OOmpwIhC5MBDpq8Fd/yps5Kcx26gdJ3N4 HNc1L0BdU4MDEwFIS+c6tHUo9NekWO2EGk4q3caJY2pQu3wdOioasLcJQpBr IkJdEhDuEotAr0SEhJQh8F6DLCXYyaMYlrZZsKKg4ZpPK66zdOCoblin9COh WZ6c3iFMTl86lJye/IXk9EWUz6xycdJbWHv0GVJrH8I+ZRIm8QQcAsz1BClu EGBuZBJQSsbgUT8pS/V8TZbs+Tr51ixXc19G4VWRcoFDCn9JGVvV4iN/Dj1/ wkj7CPKCqlEQ2oWyiGE0JUyjO2MR+dZt6PZsx6SEWuCTDC9bL7ImG3jZto/P 2vfwsmMHzzq2sd+xjkdtK1hvmcdy0yRma4bIZ9aExcWLMDt7CnoffgitH/+E QqXTuHlRnQYIdy5oJXSEmsfJPueYR6LYgjsIucY6Bg22MWh2iMF9x2iMalij yy2YPoej0T4YRbfcUGbhjyITf+QY+yOdom0f1Tuw1f4cKc56V+FKKHGj4n7t qoyu5aWjsv2xV8k8cb34R4SS29CggeeSkhHUtCxw914JbtlHQ1fXAQluEkJI OkJcUxDulohIjwQkBxchLbwMSRGV8A2QwMmrED4hNfAOrIG7JwXmwS0wiuyG UXQnAsunZInj8fLE8QT5mfR84jgNIEPspi4+cZxlew9s7H1LjpDV3c9kZ9Hf q1tCBAEusnUJUQS4qK4vZmTy80DC7AcxNFw8jIYvLmtdx2jbGPL862V3P5Sz PN3kefRkP0SB8wa5JOuYz58jt3gFlSEFcLVwQB9FUv9dOo7/Ihf5z5J+vCjq xNP8Fuzl1mM7uwKrmYXIc3SiCEcJ5meOQ+On/44bP/sFTvynGW5d9YTbbX94 W4TL9JFoHit7L7ZMQoV1iuxzk2MqWl1S0e6eitIbIdgwd0WXZwI6PeLoWTRq bMme2IdCYk72g9yQ/Ju+yNDyhIuGHkVlanAkNDgRGlwICa6EBDc5Gpy0L+G6 EjcAXbl6DSrq3NU6Kmq3oaR8GxfOGkDnVgBs/cvg5pwPL+dc+LjUItKzCGFe OYgJKEJqRC2yYhuRGVODhJAixAZSYB/bwOV3RzTAN7gGnp6l8E/rpEC9G47Z IwfXcsRSAB3byeV1x7G8bkJF7ACX080Ss/s3mGpfHntFzSpxmuXniFn8zBxU btXhL8IDQTjo66MgcADlUZNoTl1ET+46qhN3MFS2h5W6J9hqfo79thfYbNxC rHcsMoJZuuIO5qXPsTL6BKvju1h7sIX18YdYJ/+qMCqWnAg1mCqdhca//xa3 fv0fuP3pcXjecoLvHT8Em96TcU01S+UGA5sslFtzn+vuJqDLKw89vrloN43G glsU+vwz0OuXhi7fZPSFZqPeLRZltj4oMLNEkakjCm54IkrbCrakYHtSsCMp 2IkU7EzFRa5g12tq5C1oyT5fumKIyyo3ZZ+VKBy+cNkUZ04bwsKnCvYOxXCh 4uVSAjf7RiQG30dyZDuyEnqRk9yDnKQOxLPDpKKrUZh+HwVpDYhNaUMYDZ6B UfXwC6qgQYPin/oBJFW2oWeOO0g5vGlJlhEdQd0/gvqtZHxD1l97H+6DP3RY mJPgLH/Ga5T9paBV4YrSm/LAQ+iNyL5Mr1zPZhQEDKIsZhpNacvoztvASOkO pqv3sdzwBJstT7Hf/uxgEqgzv1N2BibnIrPXCczcn0RVcgHMVVRw5/J5aH/8 KTR/+Ss4qHHXTfmRMxhqEi/7nGGeI3uvcChCqXWa7HO5RRR6/UswEFiCZt1g rIanQEo2YyCEVB2cjYX8dnSFFaDWMxHFdh4ouusOiYU3WXRn2JAll6lWj6lW 7UC17OVMatXUuib7rK5jDTVt7uaes0qmOH32Bq7eCIWZTQnu2lXAw7UBIf6d iA0fQFjIGDKju5CbNkZlCIlRLchM7kRJ3gAkeb0oyutEdnY77qV2IoSpNqIa fgHFCEutRXJd+/mv0FhRUdGBxi5xSuDvwBau33DJBD8W1Vi2633k+0tREj2N hrQVdOVvYKh0C1PVj7DUuIuN1j3sdjzGk+7Hsu+/6Odu1nCxdUFBbCGW27j7 nRYJaNNtkxhvGYSfmQWMLpwn1/kKTK6qwMPQAT43g/gIO9E0F9lWRSi2Lz3Y 9CixTESzez4pqRrS0GrMWkZhJKICQxHlGKShcTSxBpu1E5gp7EatbwYqyGkq cY1EiV0ACs1d4K9/HTakOFtdTnkOVHh+jqQ4Nc2bpDBL8Om2Sio2OH/ZCio6 PnAMGoSnzxACA8ZxL4w8HxJFSsIMomNmkZMxgdxMllfci+z0IZQWT6JMMo5S yQgk5FIXFvciLrsPoSkdCCIDHBBeiuC4EiQ3dcpjrMOrt2Kau8wp47siayRv yNdIxDRXlziMXJ9Bis+mUEemtD3vIQZL1zBRvYGFRnal6ja2Ox5hr3sHj3u5 A6SfDuxitX0FZcnl8HDg7kCY71rEZCdprq0fZUlJ0D5xEsZXrsCSxjFPQ0/4 3IiA/81kRNzORrI5Vdu2DBLnKlR71qHJrwEdQY3oDW3CYHgTah2LsEemczS6 HsMxdRgk07Va8QBbjfNYq5/CZFEPKv3SUeIZD4lLKIpt3RF43RiW1O+sSX02 upwK7Uh9dvqsqEJF4zZUtayhqm0PVQr6zirb4IqWN2zDh+DsNQxvvwkEh8wi MmoRCQkUSBGKs7MeIiWLQvKkIeTmsCvSllFRQX5wxRxKKSArqXyAoophpBQN IiyDnc7dgsCYSviFUxtbuiGdn5PP5v119SkfVp/Qtfn8HCxuuZTLiR6qX0KW uxQF4czQzaElZwF9kmWMVT3EbMMqlu+vY719A1tdm9jp2cRe35bsd7v9m9ju 20BbMXc1VGVuNR50j2O0vQdddVUIcHSB0WVSnLoRPK+Rc3M9FgE30hF1pwAp 1qXIdaxCiXsdanya0Bx4Hx2hrei71wZpZBt63cqxGlGG0fgWDMc340FmF3Zb 17jtdU3kXjdMYrSoCyWk3GIPcpmdfRFjagJTTTWYk/IsSXlWpDhrVkh5NqQ4 ZXUTKGvchbKmI86r2uGSpjdsyLmzuzcGF+8J+AbOISRiGdHxq0hM3UBa1hZS 0lcQkbiK4uIFlFZsoaJ6ExU166ioe4gy8kdL6uZQVDOBrPIRhGUPIDitHYFJ tQiIzUNYXgkG52flM/p/XXFXOMV9T2TmXyzi5qYGNQ6e1SbOIDtoEpL4GTRk zqCzaA7SigU8oGrONi1jqXUFqx0PsdH9EJs93GkwW730d+8KHvYuy/6OCI6C k4MTOhqb8XhvT0Y3wMkVFmo34KkXDC+DRPgbZyPStBgpdyuQ61KHEq8m1Pi3 oDm4HR3hHeiL6oI0pgstlnnYSKsjU9mBqZxBPKEoaa9jC9tta1gnd2C5eRZz 9eMYKGhFdXgGijwCkWlng5saarhNajQhNZqRGs1JheakQjM9VSipmeKi+l1c 1HCCsV06rHxbSYWDsAt/ADffOfiFLSMsZh3RyVtIzNxBXOoqYpIWkJq3h/zq XZTV7KOifheVjY9Q0bSF0qY1lJBsihrnUFD/gFQ2hKCsLgSm1yMguRD3iksU tceW/8S0p3JYe8LJ9s+73ecXT8nPAlufe4oUjwfIjiCjkDKDptwZdJXMQFo1 i/GGOUzfn5d9e6ljASud3ErDSvcClnrnMdfH/d9w7ySK80tha2vLVhY5rPwI Me5RcNcOI70lw/96HiLNS5FsV40c8gVKvO+jJrAdTaGd6IjoRm9MD6TxvZj1 lGCEXL2Z3FE873qCJ1372O16hO3OTTIBD7HcsoC5xklM1A5hvKoTfTlFKPJ1 h/5VVRhqqMJYSxU3tFWpnTd1VPEvuKGrgnPa1rD0zoZvcgd8kgZg5dMBm6Ah 2IZNwS1wCX4RawhL2EJ0+i4iktZwL5HMUfE+iqqeIr3yGcqb9khXT1B5/zEq WkiHrdsoaV1HEcUOWXXTCCscQVBeNwKzGxGQXoTwEsmpV9SZKqcz/gYb4UQ2 n8W2vvACSX7TyI4lBaXPoLFgBh1lM+ivnsFI/QweNM8cDOzTnbOY7p7BRC// 7Gfo7H4A6cjUAR4Ya4aJ0dYJ0kgO3HVS4WdcgHsW5Uiyr0W2WxOKfdtQFdSB xvButEf1oocG+yrfZjyKqcJK+SJe9jzH855neNzzBLs9e9jq3sZaxxqWqVfN Nk9jonEE43XdpKE6TLXUyVpSXFiAkuKC18lTKCDFTE6MI7awB3ElY4ivnIV3 wgApqQPWAcOwY4oJWYFf9AbCkrfJlq0gKG4RqUX7yK14hsLa50iSPENpO3Wm lmeobHuK8vbH9PcuJO1bKCIXLKV2FqHFpBjiEZjfhIBsChZLi/hzv4WLoPZy n1B4yzwrckVdPawj4czwW/JV0bWll7KT6jLiZiDJmJEdCt1SShawip2LyGUa SlupdM7IzjLv7ZlBew87a3cKvcNznCF95yAdrSi1DLkeTcj37UecUwuVJsQ5 1CHDvRmFpJqK4A7U3etECznRnXHdGIzowVMK/J8ztfQ+x7NeUk3vU+z07mOz +xFWOzew1LaMWarCxP1RjDd2Y6ymDutT4/Lg5R0MPFhHXBHponwGXvGkCw/S hR/rJBNwiVyCV9QaPOndN3YRcXm7SC97ipxq0kX9M0ianyGt6TNUtm+jopN0 0fkEpdRxJdRxCzvWEVs9i5DSEQSW9CCgqAH+uQVoHR6QZ1hxyji81/CNQ9ce 8z1GndMEf/CIcK6V08Tf4yE7wa2Ihk9yV3NpDCotnEENO+W4ZgbNjTMkYiok hsZ2ek6ltGUKEwubnFv5wwPlelmEIdOzA4X3HqAqYQH3M1fRlDqPhsRxtKdP YLxkBWvNe5it2ESfz32s5/Tiac9jkvxjPO17jH0qj0j6Gz07eNi1QcHAMmaI 3YM2kv79bozUVWNlcoQX/trWM8TmjVJnmEZo7jjMXdrISg3ibug47COmYeM/ CXfy5qJyd5FQvIe0in1k1z5GfuMTFLU8QXrzc1QMPEE5WcwyiktKuvdQTKyz aaQLr5hCMHl2AWVdCCipg29eLhbWVw8CX+Gym5P8GVsgMTc3lwldgxM6v234 i9OW38TK6kv0De0imgSeSgLPJoHnEfTza7kLRBsGHmJ0foebcP0+IjzSYHXH ESl+HaiIn0dTxjJFWauQlq5jomoD8/VbWGnehpRaOtv831jrWsB+D/PZqfTt YJfKdu8jrPdsY4WEO9+1jCnqWeMdZHVaO9BfVyFPgvlnlDbME6ynEFc5DxOH FoJ1LywoHr/p1Qn78GkEpW8iIm8b8ZJHSKncQWbdDnKbdlFAdj6bYoY8MjEl NDaXEH8J8S8kvnH1iwitmkBQlRQBlR3wL61BVGHugUSFE8FiRl9BokL/+F8E btZQ/QJiaLjkDPk3UZc2TyHNEvoJe2OVDzFdt4bFpnXMlM9hsoPCGHYFQffm a9jt3aT279C/mz0bWO1Zx1LPKmZ7FjHRPYXxTimGW1uxSo4hL6W1zeeIySEp lc7D1qcHJk7tuGbXAFO/Htm5fH7pywjPW0eMZANJlZtIr9tCdtM28mgkzGza RAYZX8nwI5IQGd++TcRTdBNeQ7irGUNAdT/8qlrhU1KBsalJHHtFKWlyUuKP QxBOo72jMOGSbN2NFK8BBLpwkx91GWPoLp4n53MRD2qp5zWuYPH+Q6y0PaRh ahUbXeyO7M3uVXxD5oiyfH9Zrn8vhezsNqCeBxjp7Ed3czNnV95E/8gOYgrn 4USmlr1uOLfDOnQIDtHDcgV9F5GSVcLZKpJJMenk12W1rCO3fR35Xeso6FlD NhmBhMZp3KsdR2jtKALrhuFX0wufymZkV9W8qmC0DgtGOBMlu4uDn0pan32K VFduAy1XxbeREVGJ3tJZDFXNk1s+j+mmBcy3LNLosIiVDiqdi2Sv6L2bnvXS /7F09r5ZWTaytGcMPe29WJif5zr+PyEo5j6073JCv+PSD3N/7pIEp7gheKQM yz6HFk0jvmYZSaSEtPsryGhboc+ziK2bwL3qUcLJKEJJEoF1Q/CTpS51I7Kq GSuLS0cFM65fJRFtTiL84bbCmZ4fCDoUP0/A+af/U/Y5xWdKdhQ3e7nZB8PO 2hWtNAwOknc1Wj+LiaZZ8mBmMdM6h7l2ihc65zDbTV4WeVgP2MU6VPp6p9DV NYLBobGDdUBmIvkXnzRx24OTDkuccIrjEnO8M6XwyxkiF4X8/qIhhJRQKadS OYzganpGfq4/FR+SjGdNP+7VdGFsZAJC0fCT0WKi0eFazZ9OLZxK+cHhoIDs EXv1N24jMYDLnS1OncE9v1yZULJiCTkklME6anQTCadlBmM0oo2S4R0hl2ao l7uipZPcmpauCfQNT3Gy+MYBoIU68EuegdHdftz0lPI3VvG5JB4ZBIJcKXwL STQSKmVS2cGyvtX0vEYqyyVxrRpECIljeGzuiMDV5qXhIpBEYGCgfM7okCSE VldREv9wUFXm2MlgEstdnFCYPgwrC3uEB6SisXwMnQ0zsts+ethtH+xyjq4Z tJE0mrqYezGJ6cWNgwuWhCg+CMLeli0/+qRwCLzuLcWdEA4ZtglSOKRJ4ZxF zc2Twq2ISgmVcilc5AkQ9uWDKGwhYY8sCsXAz4qKiUGPE8M/icT4P5BXlG+8 vHAV5aZRiwpWEEPhfRo5ufn5MwgJyYWNjSsKCnpQR+5VHcmiltyrSiolhJDW oRVs7z0/uD9N4Yj/1xQEz5n0iMIF6PpyUrgdI4V5khRW6VLY5EhxN58KScK6 WAqvihHqD2MUj01jcnEbiiJguBMTgf5hEQgD5X+VezTdg7sornuImFx2Ovsw zCztERxfiXR2CHAf82Z2sb774lsiQn/jq6T4TRS1byCiZAFOyePwyByHd944 IX0cPpJx5BCaGgdX2bnvR1+xLde4tvCXgggDyH+TV0Rho8u3RSjzU3XtY7vo fMAdAa64MMK+d1f+jC138ZHSGyK1MjhcK+EQxeflCLdOvCXC6qrCMxZB28pb ND09LYsN5Jlhr4vUwJCrAW/+haHCLwRyEWwu5/d5CK41E62EvdwjECYRsYr8 RR4xshpc57jzV2MJfWY+W0C4nfnrApnwQelVQXX4pG8nec0Z64iICBmiiJ3x YW5Cy/Z/BG0VbJcVHsPImyRFhuyZGOLk3Phb7IR+2a/kohHux2RPhB7NVRHW YmxuHGYjhNCv5bjjnzHx/q3kP78+Sd6D+Gsnhc7Dr+Rf5a0WI8hLVk3EW/tS Rl+8Xk9ug3h/Xzgu/1IuRaFRYU+EPUblFbl//ZW4CxHD909hXxSemCjYmHL5 FSvx5ldW4kciI9G/iVRCeOgUv4VBSf5M6AWJ1eBLriRXqIFwIPi5SM8Xnkoh 6EznX7ESX3IltLwSPxax4P8qYhfeEoiB72OKCzOsYq4iNXhLEfQ/FrSc710/ FelBihtt5S0/+Yp8zTluPxExxnwNhBj6jsjAtb29LTYgiXGz4Ljx7RB2LR7w QlfsbUF7+e4lNvo6yjsUn47Mq1DO2uowV2GX+qG8PQrOzz+K96pPvoK34pgj 523N8ebhIjTJPxBREe/4MNnyLf5YBO88iBlX+VADm8OshMD5vkjFfyBoo2Dy +QMRbmKqlHP7mYhtVrxvh3F7R9Awfmz9o8Kwxt7FWHGuzUG/F6JG8SoBVtsf ifeIPwi48QAT42Z7mJsQLcITRvlO/xPxHvF7wVe/ihuXTX9gVYWW9m0REj8T POPxIXYsnBgr+8OshCb1eyIkhD6qoA/85hW5cZPF/I2NhHnekRV28F+KNOdX r8jAUcAA4vvIRW8t+wLifyFSMTGGnIt3MAp/cYr7cFfmT1QRIv7fBKz48UiM FTddcCAeIeL/ToEVE9PvxBH/U8FXeY5uItxcDnMTIv4bItz+oNAwdsTkj0UE IMaKa+zBfrcvHk14uCvzFxsKL2L4F5EqOckp1NTUiA0A7oe5CqHCh0jCLv2+ SJem5/8swphT1Buy9SnhkghrrwfHlcez0EKKOfkfCZ7xbRWz2zxe+IUAxsqT Y8V5328ewgsrwq70J0HjBCGW4u1T7CdiCjzE6euHsCLoP3y4L8S+2K0IYhy8 OA6/kdeTQYQpRt5djolDnTdgwpBMjPhPOHPEXpwO+JdsGlJLyJrDiY6OzqH7 4YWg/44CUyYEMab8iCycZBNL2pBPq/9W3kSmYE9PT5lHQaDmf8ECfEaZcf1U AdFMzvwkghBbirVifeTncugqTIbI/pbP2v5fuZZ5v2Z+fl6YTntUvJ9882+q wCuL5XcCsfAHFzY1NZ0QcONFwFstIe6/tAYcGt44hAYFOfxewJoF93KNnBDv Sm+8Ivdff3lbeRMrFDx/NCMzNfzXeYdU2M9e/1vYvyZo5bsCw8JP4fD6YJv9 Tp8+LfvhEbmVUeiCh8ZPMYZBHJv35KASCpN9TU7+uFyorEk3btzg+70YwWCO 4PsCYbEXExDfXYUhm6O83qxPiQwSsmchHMkPRETBA004evDOP78iLnD8GblQ jtqHAvjwGlXo0OzHbJD75Evr/bVDvj79PIwj/rFCH2VV4CnSkKNoIYSZ8cKG h3PU/iTgxXcyqtdRkWrZi1C5x1H5RLzBR0TqYidCJYKjckSgV75lwk7A6/AD kcrdFSEbyZE9KqJbMZh/KFJbGxGyURzZYwJY8zUWwPpjkUpaiVCL5qidELSd vZhjw1u1tra2g7b/XqSSliJkYziyJ0Xazpsrflxh5V2R2pqLkI3lyJ56NYAz 5+g9kQqbiVCO4yif+Qp0k7LeF6mniQi1eI7aWfEh5AOROt0RoZLAUTkn3toP OHtKVTGWGxp+6lnM0CRytC58BcaFM/m/E6mikZwN3xr+nGcGYp5NEsfm4ldg XmAsuBv3BG342gEA5QSTOXpKImDf29vj6fxBpLbXBV2Mr10KR+2yQAg82N87 qImRyA9TuR/KxgrZAPqWSAPfFamFgQixNCGIDw/H/LyggqpfF4iOV/JvDyp8 TYRHusC8fu1zf+MwNz6hgXFigxRPmg0MvIb+Q6RReiIMM768UdzK2BuHcMMC Cfaz3x20QleEaKbAOMk8h++Ky0cMrdoi9LIOGzthJXmHXiiLzyunJUIsW2Di ZJV7W6G3y2cHhbhnlNlfYpGhhggPbuFeHie8qdjsQ13p1weVVRchlMsR0hH0 MlYX+Y9/I1Kdi4JqK67vCSnncZR1FRovNw6/OagVT4+NJoouppBePkdPT1zT Yrbq519a+2/IuAhtFXsq4FbAMeN7EBvleeUrmiv2q88nl8QMksDcciODvPd/ /ZBQeLNF9H4hUvFL8mepqakHnkERR81QQSTsRVT4CRr2mEczP2fBxil+vuOi QNg85WKO8nWR9r+p8HX2l9jqyAURshKOrLGgwgIlfE3kFz8RqfA5ke99+8AC f54vIB/abioMbezrYn7WT0UacVbke/zSg8IajVjEKHcebsnVzU/O8N65nOLP RNp4WoTxNw6M9tf+5ircVhA5e21vb/9cpM2nRFh/729myHs/Qqn/XKShJ0S4 vf03czMVAJWXsNAk8IfGvyPS3uMiNfiHv7kGZnLDougEsacCc/wjEREc/bIK yFD8+b4MOZ4t5CZXxN85tFjHt++ICPlqjpSlgtji4+MPuoGwhp+IkKjhSBgd VI/PYVKQgFiVOEf3zUPRL2+Befq1h42bgib4ySUhvMRisu+LtOaPcu7C8ViR e91Xcv97Bbl9Wej2A5G2vy9XHz+rxl789+u/kut35GZEKGCBGfmhSFPfF6lU w1cyEfo7ciMh2mv+KEK58Sspvy0itHdE6vyuCOUmRbDxC6NfMoSw4Z1n/Y8i tf+DCI9mjoezQACKw4VwMvV/iVT99yJk73NkXeRqF7aekWIVF8sy+50IKe76 EfnE+2FbTv8tBvX/EKHSylFxF2mnWEV+K0KijSPh8VesLt+xvidSs1+LkOWW o7kw7E3Wqv/zCkaVnr0tUu1fidDv4Ogry1XB41P4/psvMa6MzD+KNOOXImw6 OWpXxLvBbxWExmwuP1MttIffEGnUL0S4dQmEhr8+ic0vZyiIlPfqhHnB3xRp 70/ltlNxSkFYo25BjfhEc6Gc+XViIfLEMgTfEpHATxRst3Cugeffw3FTE2k9 z1qIWLHUwG9/adM/n4mQs+vluKkemKb/FJhpZuDZ3DIPI6rud0RaxY+5wlb0 cXSDFewxq6FYf/qxCIl+jkSIwCjyjf6uSC1+JEKCI45QAWr4NtF/f0ekIu+I UBnkqIQrKJ55Za8Lvs4m7b8M+j8UISvlyN6TY0LYPkVMimH5ByIkhziSEXIz wLeXTUvwXxGD5fdFSHGrI/Jp2cON/pZIbf63CIkRjoQPe3td6PYImypWn/8l QmyUI8Yv/Aq7BZ96raBe4fQSP0PxNZGq/6MIt7Ev5/Ztub6EEhFadEb2DUGj +HXdfxBhM/7lbP5erkOhrHjyvLkTrvt/T4T8A46870HnfltBUnL79aZIdd8S SI837GJO4oSAh0IT+BYLJSVW9W8qWEWxHsCtwsPvoCm81oTy4TNRmdcnaMtb X9Edpji6KeIQek3+S+FMDl/zb4kIY5qjliZvlrDhQhLsfwX1+6YIpRmOUrq8 XnwrmY0RQFsoxW+IUJnlqGR8VesOq11xfoRRmeOoZImo8zU5ZWFFCDFicyGc SyufX/y7Lyibr8T+/v7BMp4Y3hY4MjkCzAiQjMrKSrzzzjuyn4j9fJH7eZ68 FsIzMu/evcvvXDn0kyXuJ/kKKL148aKsycKvLnNfLVAAnDBI4vLF5ZNfh6M9 +X/JOo98CRD/4/8Del77SQ==\ \>"]], 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]}, AspectRatio->Automatic, Axes->Automatic, AxesLabel->{ FormBox["xl", TraditionalForm], FormBox["yl", TraditionalForm], FormBox["zl", TraditionalForm]}, Boxed->True, ImageSize->{407., Automatic}, SphericalRegion->True, ViewPoint->{-1.2232184828499981`, 1.1108026757385518`, 2.952939884045429}, ViewVertical->{-0.09029559902948826, 2.257779605500166, 0.4248516877510665}]], "Output", CellChangeTimes->{3.572795498909544*^9, 3.572795641322194*^9, 3.5727958899710307`*^9, 3.5727960982313967`*^9, 3.572796164157112*^9, 3.5727962278208237`*^9, 3.5727967529177465`*^9, 3.5727968747695603`*^9, 3.572797001036182*^9, 3.5727973909900675`*^9, 3.57279743818015*^9, 3.5727978643260984`*^9},ImageCache->GraphicsData["CompressedBitmap", "\<\ eJztfXV4FNca9+/iVO+99aItpUhLDSlSCjWgLdRwaIsWKS3FG1xb3G0TJJAg gQQNgUBCBOJB4+5CDEkCJAEy35yZeWfPTGY3m/J9f3zPc+dhyc7Z3XPe83vf 89qR6TdqxoRffh81Y+KYUc17Txs1ZcLEMdOb9/pjmlhU+1/Av7aLr4XNwd4L AP0niP8EE/uPlfzv/f/e/++9re+z2J9abBihtlyiXLXZf65yUbb0RypRv1NL V8Zeh+VP+ygflZWVqR/tkP6vq/k6VeUmv+st/amPRYsWoV+/ftJHixcvxv79 +5GUlISioiJsrxklvaQ/TyMoKAjjxo1DQkKCVJKdnY2rV69i48aNmDx5sqYp 9l3W3Gfsm7XVBiSMepvRqqtBS9eVL6Q/daR27OzssGfPHtZ2Pam4nqZ59mLX mDFjaknt15ZaLy0tlb7cXamJ75yFPn9lGYfPFfTLy8sleO/du4djx45JeDyp tODv74+VK1fixIkTjKhacjNmihj87Jvvsf8lgurYTtuXKnBuWooYNQxxdrdl yxYUFhYqFNXG7t27ERUVpdxJFTDU6huyjUjsYDtR9+UPP1O4wshgjKKPFXKM qGlgKzXv1piaT5WPSHQYq+jrxDp294RSxtiWnp6uCLo8gqyJdy1GW9sak/WJ 8hFJEGuitlLGRhZ9vZn0f0OVBHZZGmFvqEJRW31XoW2OCSmJh1FzzRV23Llz h40gtZyar06YpW/LNKOnUj9rjyEvQ2SpzdqaNuspPGFlrF1Cf9CgQUZyIVXU SG62B4csMZyaLS4uxvLly6W715SyvLw8lbynbJVDqcEX5QY/1rGS9beuUsaG H5N7dteRk0Tqj6z76mjqF19S9f/hqq/Faq2nVBATE4NTp05Jd52l/59URcwW TSzV/pRce3euTkLLcjtaUSZ9VSPhUPT8RzrQWLv1bWy3oSIiFoTDYtPmVnkt adTqh5xIkuX4t142LMgiHshtdePEn+ptYNBWP4WDJIfWOEhNyCoLXQ10W0Nu pJN57qeUsWpZNWbmNbRJYO7IzXUx4NkTNjZHPKuBqc7XtsrzzNZWn6mhhMqO mSp0vAV70sYmn1MIZNLBbEk1rJQNjSpwPCefUsrIjFtvsbbUImFX2wbuUsc/ VY2F4sN2MrBNT3NcIJM5xqDhBjUQq48U7uis5nYtFbzJIip48zGGg4TKnq65 tHW0Sgzpbt6WPWNADFk54r5Nzp/FVjtwjCCpeNZiq7Wl7zA1okqALabsbask tNfJAgOASOCt6WwDEmz26lpVT4JkAP+tNMJbVWr49OnTOvbb4Le10Iv+B5yC JsSNWl2niDm7qhNzT7nq9w20538M7ME6pYwHo1YN9dgJbZO86rS1yfqKHrPR Azsit/geN06o9v8atLhWKWO1k7f9jK3i4iK39a6BznzOoC0nRRhZwGFFI0sC 4SxX/Y4Br543MABOSlmVyMpGDbhb2xzPJ1uba1BD0VAGVTuOUWTiXrDSJK8q SbvWwP/aJLf6tgHLXjRoVR7KT0qDmlhWnRmThRhv6VjHmnpJKeMt6WlOb7Am ZBRt1BsrtW3xJuoljpdkKI3aalgDMVkmN9fWwAi9bGAOjJp7RuEZ3xwNZQsW cb7cahsDI/SKja2SsiGBZa3LI7y2ao8tiYzkP+vyRbJPgNYGRulVKySRCBmR xO7q2qp5OhsbKqM4vz1HqmS8iEDeaoYbEPOEDYJB9LSvMT2tOAVJ3CTKeAOX zFHB4O3du7dF8XynxlS8aaBfGxlQkaJILR+js5eCTS0JnHokxBJRBI8oxa3/ MV28Im7EIUYmJUUpq5qysF0Rv15j6lpy458oaVwNdQwgdmdzZqOJOtjMSSRl 2L1hIDtNDNovVmTHmnNEzQ2Uq25hIBBNLVZt5BzZoLW/07bFM5naunDhAsLD wy22Vd9AjZIiE9vi+Uw/+VJu9XWOeWRwmyllvOmjVvlw5qkaipacDFYzXLy1 bW7QJJeXMYs0+2tLtkPO8qn18mb3NUtt1TNAto6tAtpN2yBve6lB3s5bbLCh rWKjSD8xi7e+xFTe2GsaJFvKXs9wKpVVbk2lyp67Kpa87W1hqU3ZFWigyQ1w yrJaqZHdC3VE88aVRj5vXLk2tfkImpWpgXvYkmtaMpYta9Igp9vqGbJR5ILM KY26JECpc7xhltp6xaAtCi3ZXBxDhikLNlyYgmKTbKxSpa1GOiBZWy3/SVsM SMa8pUuXSt1q0aIFpk2bJrUrpaUkwX5e2yqv3ahV3rQaxdyk7wsNpJecftbh tWvXSr8jyRIJoWQIX52SwCb3gjdbZGh53W4hC2B5EqWBCi1TqAxeIlhRYpJO kyqsa5m8VzhSSCRaGZBX36AK6e5ltRVuEpPrgPrLiy4X1PIipbOsB2fPnpVa joiIoIkK3rF42jLtNBp4EWttM+1Vy17QlZnxr8IW0nC+R+IQ8VcoCs/5aDrF yGHNiyQZad8nVGF7XtsVXm6NumLmaR2Dal9Uq62lDgzq/LLFxfALrEBGfAoK DOAXpbmBJUp1ZXKaQY31eJtO4RLvSeilz5JEUlnY0VAUeQdLd8+oPTJiGGEQ GR6HCcPDcT5RUEZvHQk1jgs0McBna59UK1d6RME47zJQ2Mmb8XpaqqR3BN6h hRkoOx+D2ycuqqlCnuZaVXoUGZ6A38Zeh1+qoOEMw1Sh4kkD6mUXQBVa3vV4 q3qaDT27ugi7VIq8YgEHncqRvO4iSr2uqKhEhqdh6u/xuJBhppNQZvwW6Xyq ejp5j8WITqPBasbsCYXOjHwBwRcrEW8fjcwNHrhzOU7NtEWGZ2PWzHRczBIU 391Yzx+1hnVdKeqiPlB/ZBdLzU7xzhAld3jv61WlqvhcAR6+AiL2piN/p4hU VLwqG5Hh+Zgz/wYuZJYr8yA22YBXjTsmfWklpziYsRI1q6JG60rJALpYr1gv lV5R9pDhwTwPJv3tDHrVWKkqMuUR4hJEPhwoQqHLNeQe9FZnbSLDb2LhX4XI K1F4YM1CkIaMj05DjGIlnjPosxEOf+uUrsJEynOwJSiUWmjOd7OeJHTs26yr 7OXg4MCURS0pI1sbt27dUhshD4J3Ol9V4TZLp0hH0iJPaegrfautyLSOTYi6 XIyla28j/655urUGZmf+QDekbL2Osugo2RjWsTSwl3H4MIWsWFqCl0+9GOCj xi3ii0mKKFGyA1tfhU6BDVeuXJGQY7hRJML7r42sybZcfHAvUzoB5q7IuQ2H dXK+PPrqXazYWoqCe0IXFXKrQNXFzs2ZuBhejMzom3joHYh7kXFVtLLMuKrQ kT1KEMUy1u0ibkelYa5O3BTr8nx1cBrpuPoEqZq5YYOVMK0l1V1bxdQ86G3H VV4gV1/UkKfhu9URnzRrLJUMeXcM1u6+j4L7gjyLbg1KSrFHpgsIiBVwOywD QnTCs+rvrGG3boY/rq6JQbZfgDJXVcXreLF67Hjt87QOOx8fH5uwe95G7NSx /KRGV7GLqfFTohrv/dbHGPFWe6ls7sgZmDG0v9rh9JgsXFh/EneT0wwXjwm8 IautyN4976uoCAwlvfykVWhrKUODOT0b//DGimnxOOhRCRffYpTdq6A5WJ3/ 81L1KPPa7TkdyiSl1aFM3jof4TWufuQTwmrx0+jc4h0M7vyRVLZ0+OcY36UZ bl1zx+0rJ0RrfxTF4W4oDT2EuyEHUR56AcXpucqaT1nq/UIe4rbzeQjZWRw7 jZlRS/lddHgKTHMvY+Nf+fC8IiD3nqCRWs5LoLiJz/fr8OQl7ZV/iCd5Q3zs +k/wlDHp/V57zPjmc+n98j+Gq0KblFaOjKxS3CopVTA0i9z1TOXu30r9x0wX MXOAJ0wOdxGRLpBG1HmCr9YMn2Y241NPgw97KfFRY5WdtbXvdFBdCgmV+tPP PALr84BJ15lL8v394+fNKEXnY1e/tch1Pa2U1YHHrggsGB2CHW4PEXFDkNKB dVTYJRpolkInQJSL4VMeCkDkyLJBRCC9qbDRCKBa0rfqSLWzQacARPHjGVMM 7h6SpzK/0cm82TOh63qSgNKAeFRevaY6FGcP5WH5B+NwMzldlSdJ/Uw5j5Uz EnEmQHQPSgVl7WtdTZ3018h5ozls3lFtpNTBUkyUSCaMXtPiww+Ktzl8mJgw LDT41FKdO0pbBu9NhCDadBUXxd/QU65aBDnLk31bQKYYAt09GYiSswEYP2gA Pnv1FXz78guICQlCTHgqTPMuY9PyApy5KimRXtZGrBaSdpy0cP4s+dxxcXGa qcNqUGmmyrh5TBitb1Q+ZUX1NONO7xiT1Ea7pkKIl6dazAPJnHWQDVcDBIgR +eF9oRjwTgcMb/UmRrdthZl9FsC0U1IeRovMa5lHZG1cdA1B8Jpj0t0bHDSc K0vOppWBxHf1dV2TlhhR2+C3DVWYaslrJuRxRy4wG3fiixya04u9IaQkcPJV fThTR5HDjk2a46sPumBCzz6Y0rcvpvXphBM71n1tI/HkNyweHYfck7m4kxSt ZM6ruK6v/7+Fj3d7n1Uo0Lm9Mox19TBKOp589a2DD0FIj7aIpVHoQzHEuIFD 8enbbTGiex9M/bojxvZsjZgrwX10Q1437K3B6n/+Ds64VaBwb6Ay+qp4tZRW 5+du/y/Cusu0B1vHrkR5eoaSWakWVj5Ao2zY3hFi8+mXzLqiSnNQJ/E145vi q0uBIZgwcgQGfvIVhn3xLg47bpZ3jugMMTW4ekIBinfK47mpQrfOU21ZPXK8 UDXXUldVy5L5XvPXfvhvPo/80MuKkal5AEYsOTPhLCpvplnBrWoZLWf0Wxit lg1TyiKvVWDXjALc9QpV3TteoERYKCnP58argwXGO6SsCdbiaXOR77oXxXfL FdF+0mqoxTAKs/NWUZImsSwmqAmD8NWxatlwwiD6EY7NzcDD1BtqdksnGq1r hsFrWtHQWL+5Y35F2lVv6a6VThriVnjbJA0v6nqoFXkyYenR6cg5HYY7salq Oi16u7n/PyplCfECLi6IwiMxcnyJkwHOZ2xbff/5UNk4/QzzbMNpkzvm//ar FPVR5j5SjIGytp3jxL3mUct/VBCs5QaW/nwBeYcScSc5Q82eRoYnIsUpRrr7 mXTGnJuIWOiPB/FxahaZ9xjbGbTRTIsKH9paTMrryqipoNn2qhdOILmYwnDT yUO6a/APQTJH+UaTIQTcUdc0ZHpFoLT0rgqSiykYOa6R0t0IpWzjynLE/nlS uqunjkFod2FS1KJzLt9SilkPaE4a0PuVfLj2tNqC2SQQXiwwyJzzl/R9Etij pkiUHZY36z1TDV6MMCO8jObRNDNcrqYI3D0oL8U1QxWJmycvS3cjlbK9m0XL 7RRiWKkZM23OVudzqm46P99uA2SGFt6ixfJxvYygCfZI3umq/vzIpM144Oem Qdd3RzwqfPyku+eVIWYxTjTHQTRpfcYUi3KvCxrcDpsSUHo6QLprorLYaDTT LpyV4/JxZxcngBYmJ6p6oDT4zh32R5KLlg5+IkkZ05Ta51NM5mSkVUjrIOh8 CZIuVKAsLhwVyXE0XRE2aj6Ks+Kl+gjVKweSIcSkSneN5Pqrj49oFjDQUYwt I9M1fXF3SENFEJ96MzbPtE0r8mo5dkwvQNEmZ0XGG2ikh+SSXYrXSfmOyPB4 zP5GtMoOEbh9NdQGNPmosVo0ib9XEktwOuY27qZdg3An9wml2NfkgfKjh6hO AjTxuOgwKRH9ayqg1iIpkozrLmKkGZeqQdPXKRtCwm0OTf0o5qx9phjm50fI /hrt6WD+htucTDxIy1O+96ymAjaRyqSUXWQ7mG5zMYXgh0/dMWpqAbY73UPQ 1VsovVNoi8jyHv+/DaAVdN5yUbmAlLybeBBwTCmrA9dvZ0JIDae6CFyvvy+K xXHSHS0lsRAQ7JvtgsgTJzRxFlUT5ponxqw3pbumOjHQ4kvQJkXlwHGMH/Kc /NR9QvGiK+O/IAaPUihf9IxehPSSK713MZ3DvF8vYPjweKw98Ajnk4T3aoZq c6XrsXkCMkofojIvDg9S4yhciRf5V7hCnh+ln1HXHYaJYUl6hHRH6n3d93uR E+xnS0hFAV+Uu+h8ZRRyhBrzWMXveh7W2GWiILtE3T+iNXHy/6tmF+L6wot4 kBDPzzjW1vjINAs58Gs/jFtcKuWf0ooF2tfDb0+yAiIFox6JAkrTRT/jzg1F gdaF57RtEKJCDRF0HX0GQlowh2BtbBsiGuT0SK4rNY+6aE1espcomNk3DIc8 e2nc7jUDRHZmyTrjXYMvy7bsKWxcUYbjozdhIkvjNW6E/atWqS6382ZvfN/t MH6emI1N7gKSiwQScX4exQqUUt5flxCm0VRYJiDhxm08DDkBylUwBRM/eQke 3MniISaE/f/wUjtACDtJMXyYdNdQh7Ctk2M0O7R2mFhXbpYZdYtmv476aW31 3VsG36P9QJeCg9CxeScMbvkeBrZoisGtPsAP7y7GkIHXsGpXBbxizbudrWDL h3e0ukJvE80YP6EhJTpHHAylj3DjtDtCXPZgssjxr15tjKOjhxBLeNaRr399 0fkqmJ8adxYPi1IUq6HFvEZBkli2daQ/hBtyXWRD7Ef4iJIeBRVfHaptLSJd HzvWr0Pnpq/jm1Y9MOTd7hjbezomjluP1DtmZ81GhK3O2RtFUA1xQuRjSUYM lvT9DFPeaoPf2r8Gt03yBD5VTdQnr/eugmzgdLOEv/APkaXVUrvGiaMiN1qD rNNY0cHMCLOILKllP9cLSDogz1u9ZvA9GrDTxk3AB41fw8APuuO3Af0wd8DH WDPww86KbLJZDAqpCPTmlgFvrGupOrQd1m/Az/1/xG99+2Bxr06Y0vlN0REf qEFbt1BFVxOpSxfTReTtlDdr0oa864vN/NFnzGzlBcUyrr9fEz2tIDMvqkkP 1JEci+1jglG06wLu56UbpdkoxiXzN+z9YaoJHNrzLfgFBqIswh8Vly92Uupm EygUsNE2ZR1Dqq51qgFD1m5Ez9bvYmSvb/Brr16Y37sHNvXop2EIzXDpvALp njy/34fY4dCEqRp2JK0zs+O1f8AOrzlRal1e00LV9q0NgxWrbiHMqwwF65xk mOSvPaPJTrKLGS52XQ4OwJ6dW9XK/JMqEZh+D7dPi6FhfhqtdWK00rSwTgHx uZpXFGJ0CsgWRRQZnouB39rh+x4fYtjHb+PHzz/A5tlF8BmyEy5bd3CcqD4V RCLZqVkjfPNyc/zZ8R0MbdGIdJaLyR859melu9ZWGBO8PFZijjkEJxsTOC9M 7Zvl5ZmicxlbCac/b6BgrZMqAhSnKNG09Dvv+R6cqDasImqRNwUkioGFEB+I ZI9zyI9MU3Oz/ESQjjV8PuNVdRCbU551FLQiw5OwYUkGogvuwX77VuzZtVUN JX38BPw58W+E2DkiLzzuVRtZQBNj8wcNx7fNWmJcuw6Y0fU9TOzwOk6a1pnz PZfUxFw75SfXN8dKwOjYYTQrrJsqfYKDfd+fOchfvVedtdDN95A3fsbkjSK3 6xYVBUXoZ+IrkZ+bjqydISgryG5fM/BpjuTvaZGIL9IK6Sy7Rdi74zbOT/BC trPvKzYCLJc1QIrjfkSPG4UdYwaj3/vvYPiHH2F2ry9g98k7cN+1wewVKizh Lkp+uJkicM/FjWOCGPzvjtEOp2qDf/L6ozeEq7+k3G10XCUO2mXjxso96nyJ bq6AT12cmuiCh7eLLPGErNA8uwyEXpeDXysMeVYrKdI7CkcObrmJuDxeh9ZT GZeUJmDT7JvwHeqI4mvxL3EEcrqN1j+xKz7kEryn2iFj+iTc99qHiqJMOK/f ik9bv4XxPTpgct9umPJtX1yddEha2djEoHNG6oSM8jn7WJR5yVrYPIIuIPOg 7Bo+ZcQo44naF9SfeyLJJGszktzoOAEudlnIWe4oGzjdYgFaYaib7aADlvZO 2Ved0ie/1oBb+vMrLKlY2mzmsDQd0em82m2g3YclvrxFHXZ4ZgJi57uiIDzu ea0qlOt9GnlLpuOO3wHcLcpAusjJcLv5uLFgKkp8D6Bn53fxRde2iLoahoBg ARdXJCB1yb4q/oYlDhI248QYpk+jNzGy1Ztw3bDWzMSrKDh2Tbr7r/LVGkwP P6tWE4jMPSFcNWKIFC/AdXYmMpc5qo62bcrbPGvD1oiZA0jWwQf3uQpgPpjL CkMpVrPEUBLyAG7fEUnp+rnXcDVWUNhbVb+S8ohMrMR+xwp4T/RG9j4/ecg+ Ad8tu5C8bBlurp+Dh7GBKMxPQ17oFSQsXoKiNXbI9duHW4XppJFjxIHvf6QM kX8cx/2YJCOTZ239wvbVa/D5q80w7s22mPphO/zyblPEhQdRtO1iikOxh8yk lxWxrWmGpYFa12XkHQyU7miZXqzI8COz01F0PMBwN5BlY2LO9E/5zQ4Be7zJ q9zx/XbRGZTP1aKz+R6D0yReYSeTkLrGH3cvhaucXj3TC97Blbhd/kDtJT9z QDxKTBWw0e4W/IfuFZVzgtz5hrhmvwf+Q4aiyH4hyhPk8CV8uyO8Bw7GzW0L UBEfpILiEyhqhlWiSV/pqjiuxpk/WhuVKuqE4Flzsbn3lxj4/nv4pWs3zP5Y DOK6tIL7zvWNNQNEMFtaTZrruCkF9097cSqs5tkf4iCbLLvl5ivd0XLpOJH7 x2anoTwlT27T0OUzb4xkk2PTv9yJ+L98cSfsOrHGa4cvis/IVoXOpOQXePAc txgZktLz97uLoMBy+Ez2Re4+XxJUd+dIeHg9RMlDQY2j+GmN+srPvUTt7TIr CbEL3FAYHveswupkx32I+mUUch2XoDhRZnXCLmdcHTUC+bsXo1Qse5r0QoqA s0cqEDnLE2VxqS8poqTjNse7J5AjcjtmwSIUrJiFG777sWbuDHzapg3GiJbg j35fYsE3nyFw7uomCqlGVdFfmn4xrV+L7q+2wpCWbRAVHCRnoJ+0GhMy5s8d fwClRz00Zpvt4zkxJ8XMZsMB/aSmjJ/Gc958BgN6HMcvowoQGVSKorxb6lBl oaHv9OMQ7pcrp0XWl8RPc6KkoG5bJfcQtDlV1QPs0qxYNAxa5bFssitA4qrT uB0eRz+Pv1oCt8P3UPrQvK2Rlw91o0NCJZxFpe/1qy9y9vs/qTAwTmSg1xQ7 pE2dKDljD0RnLEosy3I+hOTJ41F21hm5cQH/UWo5d0GAx+obyF5/Atm8j1BH fSeKk8d3A3Bz8zw8iJMFzl+0LKl//Y3ABZMw4JMO6C9GriuWbcHeVcXI3hGE u9fjbI5aaWiy1GuXlxtjYNN2+L3Duxj9dhPEhgW10WmLbfN8Eep4tlptQc5B vCgyp+YkoyL5hhWRkWNPCpTWLzqAAZ+ewm9LSuEXJ38v4Ua5OtoPzziMR3G5 0h2JCm2k56faWeaGiYqFM4Nf1soNS7yYlaegC+527nwIX0mT+KiH2kWFF2KP 6TZKKszZRD43bPZdq+hmmaAEUQTXM3MyzBkl1xPoOLEMUV6uzFmAvEXTUCy6 hvdE1zBNLAv5cx5y5k1BqegalhVlPk+SKAaJJ9we4vpcH9w46POygmikw14E DR+Owh2LcE8xSsxQXWSGymEhyhKCVe9n934BwX+Jet09GLY6HrTsx2/Lbvz2 Xhf0b/ceRrXvitk9O+PXzi3hvmM9t+yuoaL8vHelojIqX62FyZU8ZV5Hr4aM xIrYkSCK1ek5iaJY5XLuNAe4fMrzwikmDPzCE38svwf/RHOGJCE8GZn2YXhU UaocBCJv56XlUkY7AowlRr9qVdIqs/ORuFLSKiQWkeEZ2LIyF5m3zWdWVlla bQjwC1WU/DnRMh2clYzYhUdRFC5P5u4Slfy+dWtxbv0WJC1diqK1s5F23gk3 C9JwI/Qy4hYtRuGqP5Hntx93CtOVntRBZpYAt9WFyNnqiduXZP0j8oqF9zFi eJ++exFuJsieXqJo5SLHjkS2aOXuiPJEijBeDIMc/irG1d9ccT8q/mWDnsi9 e0pTdnGrI073H4qc7YuxY74derRujSEdO2JG395Y0rcHzu7ZrF/uatbetRHo nAEhLk+RQa2OsjXrrNnnnCiKh+fceFGictQTbCh7M7r/Agzq442pa+/jQrJA bsOBobsg3JQdVJIiftFdzaWIYmFJ2/wuGhZR21BrbLXG6jkJiCt6pK7zqSpC xstp5M+eRmTcA+x1fIBzk/zRo/Fr+LZZU/zeshnmdmyJq05rpG+FbnOEZ/9B uLl1Ph6IjiulC1wOV+LKoiAUuvortMvW7twff0rW7p6SeogWyzx/n4WUP8bj /jlnZgFJ4i+KMazfymSkLzsAGxIbIdv3wGvQj8i2XyJKnDxjHLNrHyZ/8gmG f/Yhfv78Paywm4ZgUw7yNxzhUs9k49mui6+atMboNq2xcHD/p5WhaiQo7GLC QiEELyhJomycmxsnyka2OsXNfvvLoKUY/LUvpm8ux8U0s3by230Bt7zlRQK9 LI7s6gSDn2Gg8JypF3tJvXgw9UL67MiuUsQXCgp2tskGrKUeG8K0YTs+b/kZ xr39Iew+fgeTOr2OQ7+OxuWRP6Fg12LcFR1dWkeRminAefVtkVEXUHJVWS/1 hCadUewr2zEKZ3LmTkGJz37cL8ok1Rkl9s3nSDkip51CWWyyLl8i+0LPwm/Y z8jcsRS34mWTFr/7AK6PH4eSM/tRLoqfvWkrHHfKvlqUyJOLZx4iedFZVCSk KKJsYdlXPdivEUNocVSMav0B/hAd7l/ea85C6P8oH7OLJIddfIZY7K3THn/s GOOGbk2bonfjV/F9s0a4ftEfM8Ztw9BvAzDT9AABGYLZIsQhfL4nBFHH6HfT 2S4jVU7n1y23VHwfWZ/4MH1CJn/PqhuIzZHrJYeGV0U1Fpn6cFi3EZ+Lanx4 h+6Y90Un/NWrHS5umI38+ACY41TNRnj2w70HBYQtu4pbxwMbKh1hJit+0RIU rrZDxnlnyYyx0ChaDI0KxdBIMWMU03kHiLp7dTay1xxT9IoYkzs4IfCnEUjd sQQFoqxEij9P2uOCqEkTUXxWcqBUd8A3VECgKRf5G49a2jcp91EOx8PsFmJT 32/w9VvtMOSDrpjZ4yNM/ai1GI5v+K/aubrKD5i0fNC0Bb57oxuGtmyJH1u1 wrAfwrBoSx6CMgUarR5zTkBIlX1aEocqh1UbhTt8QkqfaeMJ13sRSVpNQnzd vDAeEcnaPPpjiYUYWQSFoJsYww7t8iFmftsVE/q0Q+zVkKbWajJP5iVlCNi9 ohRZu8JxNyKursLekG274fmDbKUqFFUQsHW3HCptkkMlMjGRSWIMwrZezvFG 6oHzlLWJ3OGM0FGjUeLujJzYAElC3Cf9idjJk3Dn3AGmmkCLFZlu8j8tapLF XqImSX1VwUdHu/SXab3LcxYh6+/ZKI8OgsPaTej2Rmv82PE9TOvdGXO+64Or K+zxH+P+0/mqDuvWoFPT19HrzfcxsuNn+KPXF5jQtQ2OO6xVVfwpkxfy9stn 4NEDcHihMavQBpaF5ikD1llmZ13s2vUQh4bYw+G1rjj2zjCcv1RhuEpBd4QN l4+qg/DQMKzt9xeObVqIyKthzayJwn+riO4OMewOXB4rqnUnKbX9edNGGNTo VRz56kvZNCnRTgSLgIbJEdD9hCBap+LpW4mja0Sfd/MZ3DJndphncXnsWJR4 mP2Y07/bIWHqZNz2Pihar0xVUfqEiIbFlIeCzce5KU7x40zxR9fmLUHWijko j5HJYAHSiW8H4/yiyejXowO+6f4WXI+HwedYBaJmnkFZXMqzxgDUVWShQ7OW 6N22IyZ9+SlmDO6Nyb3fxu3jbrh1KU5l3/Ex+yDcuW1RFvTbUGRmSg0ZnVX+ jPIFPfbsIu/q9GZXuHeZhJtDJiP/qz5GQkBlB4fsgZAsBxJWuW2cUIoTY4yV s3fjh9faY6zoy9l1boOpnVsgJixIyshF/zIKmY6LcEvkPC0BOeRaiasLA1B4 2F8BqaHGWWA8jpX81zlImjkFt84flCZhaFyy7J3v6UdIXuqNisQ0CquzQi4j csFSZK+eJ3opslPKYhmPH4Yie9tilMSbw2qvQNEurctFzvoT3HLpekpNe7Y4 i5wcgf6fdMDAHm9jwBftkVT8CPdSmS10w03RQyDnf9fkvSi/JC+5+9Iid42d /39pucwns2zhsudmF3h8LDpdA8Yhd/Zso/UvVHZh7D7cz0/kuGywEaOeYpA6 NGmGPm91xqSun2HWR+3wZ5eW8Bj5tRgzSOPPvCCJP+WFvUvTepuUNdEa+P2S gU8Qy3ynzUXq7Oko8jmIkqIMymWeF4ewvykfhVtPKPnNhji3aSeiF/2FnHXz cV/hbZAYDp0dMAzZJjHsFXmr5v9Eo+J+9JEoC74oT8x6QSHy6ExXVMalYofD Vly5HEqalrJAt465qjE7SQnzBKOX+0GoKFOfp8WvwTWf1yYh8S+VpzrG8g6/ 0TkWsD4D5uXghqh9RzQM5d1LdZ52lvnYzGZW5IeC6HEDh+GLt9tiZJfuWPhl Byz47gOkRIUbzULrTxugl+ohnghU7OMTirWepbHWSWJZwMz5SJ8/E/m+B3G7 MJ0SHWw0+7DRvOy8OJrT/6Nw3HvzTrh93R85GxbgfpzM8VAx7Dw/+EdkimEn izLoZFlmN46sv4nc7V5M85oPEotH8lofkX0lajaTt6/syroryEM75SqKjrqy CQXVwQ8PDsLloCD4L/LEo4zsPgqkbB0gnc3JRjpbE/jSP5CEp7S/kd5Rbpgn 899qd1KQtdLZzF5dOpriX+bVfSh6dUN6fI5xfTtg8R8/qbPjPP+4M6eeQaLo zO0UnbnM3Vfw26CBYrTVCD82bozVH7ZXbWyqlOlcgIzFfyLH5wDz/Wm++zzL H9gXoHCbu3pS7PnNu3C030DkbBJFNV7m4CXTXilOTHdYgiKRg9S3g8wkLAtD 0ZGLqjifnXsClckpnPzV0bOPuCpx8Y7MxUKRi38NH4+eTRvjBzFm/K3dO4gW OfmlUgUd+6kcLWakn6lmm9j4jhWWHTYF445pt+Z7vr954fJleQV+U50CJalU /tJzxGZM342v3uyO0S3bYWa3t/F7pzew6efhuMSc2b9kZzYvL4XMd6QYJXif rkTS376oSMqgI9nJ28nZsgh3FX5ctXdCgBiLJTssRl5coDJpXAcpoiZ3WluC nN2hbM6CvKv48CRkmQKUO0OWkJecVUosuQKH4SMw6d32+P3DtnDfvg50DAK/ jNnsEWt2R/CI/EMmeJmu4PbujZrvXZlnXhRuFO4IGo+gvrRQt2er9zDqw56Y 1bMD5nZvA88/BkuepC6AJoPiHSTqNftCFJpOKRq3YRV3hJVeF8PhkBGjUHzS CelRF9S1/LtF1RqyMga3T4WoYYX9t5sg3KADbg3xp5TJ70PG4+uvxmP2H7Nh 16cnJndri3FdmhtB38iqrPNOI60G4/1RGq5XHK9DuBKpgTlhlXcNYK4nLb/9 SFRdgzq+i9lfd8aMr9/Dsd0bjbSXPPSf05RFJlXinIco+KLNfpCUKZXtWL8W TuvWwnejCWcHmr0F9lmUGGeGjx6DklPOqCjMVLetx4vK0GHlPWQ6R+F+dDwl D91N51CwP0T5klWFJG80u4L+n3ngi26L0KFNV3z9YUf81LMP7L7qjhN7Nquj gD9iyRyy1KqeC7y/SFxIdRV5Gn1N8z0Xkzeyt58zc6Hatdu//Pgz+nT+BCO+ 6oL5k38y8hgtBwVPwStAwHn7Inzxemv0btIUE1o0x+yObyJISWTH7NyHK+aA Tj2+XnT8/NakIWP5YdW93jfIHkJhIYf5s6rvQxdbv/t914P4aWwa1ruJoy5F Jsd+42Z89P5b+FpUmeN+mIpbu70MQW/6z6De8q0JQuIlHdThuOl0WlO2mW3K ybLse1vL9W5fvw09WnfHL+99hGnd3sOEDi1w+LdfcG2cOa9KJ5iwTIg3i1z/ 9ERZfCrNx3jan8edY/xRvvUkBJ03e2DeRH8MHRqFVWzmIVagrFtk+F1snVyA O9sPqn4vv75HBxgfcFCneeVMgB0aykLNAM332M7ye4eOasp2jDwv7Z6pOWAs ObMBH7Vohe/e64kp3dtj8efvwH/jXAmoFgoG9DsmpmfW5SFno7vqax8d4Qjh VgFXZz2Rqe6YN/Y0Bn0bhPHL7tGuPFILkZEPsX9WjsiPQDUCtIIW77m3Uyhi aDF9Sqsy+UV8Ab/sU3tJCHk7xOHB+QuaskPjxfv00H+AGksEBqNTy9bo274T pnzdDeN7v4O4qyG0IkWvY0+K0VXEQj9ku/hKTvLO9euwdvTfuHv2khopyBrw Gvr38sTomUU4JZrDeWt2SF1XJ0JiK+E5LxEPU7LUzIgV5Hhd+7ZCOR31bLQ4 3MLqSFpGFmu3vwqwYc5J6pliVHZuSpD6PbP61B/IxVJnoVg5fROObN3MUmeS tHE+9pM44/MIrutv4bPX2uCrV5vj7MQDOLBsubR35/uPXPHz+ExsPC4gudDM LV5aCDZ3l1KEzQ/Hw6RENSNtI2y06JDBxubWzI+XNRtm9aBYmfYq5zrwJ+y6 mLyQs8rZfBKcWyqEhBQNfsHzQ3VsEx1JzyJRJ8qLDeiREJzjq+bXHETJ6iZ6 vlM7Tsa1LUcxut9GrHF+CO94c3jMQ0SO6roldxE7zxP3Y+LUU+3YXi5aUOnq 6ir9Vdat0c94v8YIqro6qBRy9UNLXTpBT4sgDLfMmFkVQ6qITsc5vdhXPXeM MIxYGVYFw5WDj0HIyZHuJBfO7IPW4z1BphJ7tOyEwBnHsPX30Rj/URucctxU zwA+Epnt68qRs1f2Ij5V4OMfiEHhrw4+3krSJkE2U6+RtOqfNVAH50XXKfug C41qgpE/s9gMI+3c3jLosKgAYzS4JW2tKnsbf/IRneh0bqjUrUKIyk8CkWnI KR9OxqVdRzD9uy6iI9eGTZUYgUhxh+u2+7jp6CPd0SIEfs1kUy14RntXefCM juGveny92wxn3NnjpnRL/t/ymZNmBclbHkoAOf7kLgJ6RQMe87WyHLV7xE1j RAV5I8EioESttbkLZi6uLTgNpw274Th/JCKuhqmTgEbgRobfxqZJootif8hw hYcVcPXPX2MD3Lw01uqRGbVx9mAkvNdkoyQgRj2Tvab4UsLf/ZezeJCs375x GYUHtZbdaeJl0R+SJ5MaqAPdKGNoy5lE9eDpGoZDP2xFsdNBRIZE4LLTWgjX 3YzgJtctMuIBnGbmotQzSNGnNsPdSgc3W2HcoDq4iZaIiFIUFMgLeZ6rAdxG ZxAGTjMHo+ZzcqJRctRLA/eJaRF4oGwOt5CtNXpejOWV7fVw7kgRvJzvI/+K nGB237xBDB28jRCn5GW06Bt5zE3Gw1RFOi0eEU/PSbXCD/5xHvqn1zF+PGHQ TeIQqVd+Cx5v19ilX8fFLt7VilhsTrcQ9CftE3D/qNbz911gPluPnuNgpEn0 +FvSLqQBQ6JKUFhaLt1tW7AGFSH7DLULLVtITqhEyPwrooeVXGVtrKxtYX6C qxXc+VCS9vzxuMtPA5PX2OrFml1V1smR38AqYT9NWe9tTizuZgs4b2gADVtl PqiuocpSa6F/YnQaEo8GoSQ+TatqpF/SOoa/xi4R/byzinjLZXwYSNsP1i4q QfT8cyiPjTMEsq7ZjKnlxEh2bn/EAVkVGh2Y0MQy1m8YYN1VHURce7LgmDHh mKDZMrdhxoIqalw9c+dgBoT4XA3ukdvMuNu66YZUtvfRHIQuv47ipDwVxz1r HSAcn2oRb5o727q2HFlOchKOngnD421tsNDJ0HMHHEL8ikDcuRaFeDEWCtrn r9pMK/jz5OgfiGiWdetjVh5bcicdZ3ggcvYmaaWWlciO5wg1G3UsG0Jytkbd sJMJk/bI3qF+YYUlRGicJMaXYXX3ZbibGKFyxPNMMO6f+csiR8jIH9xahiLH C5rvaVFXBVJ73Al7Lei2AvF+KSi7ew/Tv9yF+KXncCvkciuDeqxwg1br8s/E 664O6ao+5MoZ2ci/ehv5Gcn/2Ic0spDS4CMtcHIpS1dkaHjkYgpClkuUWVvp dunSb2d/sASV/p4alX1ovx/ynGdY5Ael1ddNFJ3GHUc4iTcO56zy5c+eM7Hk ZxdMHHYZk8YXITK4GGUld9/gwKKzz2ktgM4y8FaHzifh+fOxFf7EJpchs6ic E2XLe8YMo3atxrG+WYkwXzdIxCxTe8yNi+k6Co7LjintU/cyBeCux3kNb1y2 uCPRZXm1vIm8/kAc9jdwY+1ejuu1tO8UelnAcNh0CaO+Po05C2/iwhUBWcWK u1lLfVQktM8BbKzlAp8aaW7AhZ4W1aS2jKZtLflIRmvdNebH2hke234U7Wx2 nAb5Q9ym0VfUsgBkrXOQ7khLhe5ZByHqOMdtraGkPQFRMZU4OScVD1JzuP1b 3PLeuhje3QlTJibD2V3AlpW+EFITDc/Ma2IZ4mYGEE+SyhoYuj90OAltOSEZ NtLRSdGZ2NtnA7K37TEnl+1TcO/UOQ1KLICNGjlbg5Lb+vUQknwsoiT55Br/ O0l0EAPnX8fD5FR1lzlbbrB4/GmMHxyKxVvKEBQnIKNEPnTw+jQTEcUvIFGw MnrqihFWU838qAoYv1Re3aNTV1XI547mw293MQoCg7mjwaoql3OOmXgUK69W ow1Hnt8tUvGmMb3JbjWEa24WMdM/AIxddGbbmvl34PaLPbo3a4JejRthzsD+ 0icMqUOmEIz80h128wpxwF8a0wS6v/05VPhoDxi1giafjWpqgOY0te/6la28 DhQrl3dB1a1ycOiWbdsNd6/oN/hZci/UHe4HRecxSfuIqG2fLasC+ZKR81nU aBHy5w3a4M9va9+sE4a+0R6D33wNI1q3wM9dVmPyuAQ4nRCjnQyzwjnwg9j2 nSINzvx8sQ5nPtg3evzuDGWc6qyMZvOZLe4Fn8O3/KhPY4ivHMuHkFakgXhx J7GbwR4aiEP8w1B5cpZFiPXtmg2CfHBbF3ZwW+suGP5+D0z+4kvMmb4BmaXm 7W2HTe7IWSen6dvVDNrGBtCuloE0yDRbtfvmx5dWPe48KToFW/o7IH+3uyrI 9mOdUOHlpfst/cLdPQh3z6z4B5ix3PR6fPjam+j/TmdMH9gXM/p1xprJw9Vs 5u87IcTF/xO49M8vZnBtUsp4abNopvWhtiAIVaZKFNGzFjt47o+E44pCFIRl qTQdFS31zaO+ytA0rJImlWZMWIbcA7MxZ9AAtke8jgG+/zWugTz3xT/NxLKR Y/F913YY+HFbRPsdhXmiNw4Xx22EcK9ITSNYwZdPI71qgK+DFXyNc/fcIURW sCSp8gsuQWFJuaZ9NnmW9Ossa1gSEmzP2eevd0fcwZUY8VZzjGrbGEaAPqeK ODnIEk6/OuDSBV/pdDTnAwFwu1yByuRAVWueMZ3G3ZMyUwlLfpWBDku+wVcM sHQywJKWFvGnAZCXy49vCvgiw1MRNHCBNWwoQ8nmuN9/5XV83LQDJnTviKld 3sHEzi2M4CHkD/2xE4+uRHPjWWwx+RFORD2AEOOtcm37lyIF2Un/BBj9E6IZ MIdrYDL4iFSaOdDtc6JxsO/LJSoo5gw7nlRmsc+Ir2j80G0/hvQPx4gpeXi3 8dvo8f5HGPlpV0zr9w3mf9XRUJTUx3OL9aT85QqhvET9XmRGJTwSKiBcOan6 lay9pEWO0h09EotNuLGLTbqxRYuss021mBkFUzxmJ3WY8VGi7hw1nSjRouoa aLxf3p+I8MAAZejIlTDxYo89YNegr87ixzEpWGEqw8mLAjzjBTKhl4JD0alN W/Tt3gEDerwFtz0RSFnihYr4RLVJI3jt+4j8y8pR3ACY/fSoHAFeKWV4cNFN rWDvhO2ovBarkUc2B0Rzw1awfVGHLZOvs0qZTbGfDHFdDcSkAC1kI9Q1WYP7 45PnW2Jki+ZYPHQAnfcmS6gX5v3igf49XTFs6HWMmn0Lx88KOH2dPyqhHnyD BFzZmoISD3kCT4GSUPQUBf228znljv1fNfMRkyfAP+MefOdNQfcmjfDDq80Q 5e1BJ1/zyxB045oPBAlHtoWbDLafReNRt8oRKDJcsv0wVGhP4jI7NaNpM/Rr 1gaj27bBz+/0xvedHTH42wv4eWKWtOTJPURAYgHNctWVFkEf3lKK23vPq2JG 4Jz6SfQeinI5cIw9mhnz1iIkqxRzvv0Wdh9+IBqZJogJDXy3ZgC9YADQaVUx VT3hkN/9KoMmn9hOoLGLlOE1v0vIcjqD6C3HYNf3J0z89HOM6Pk1Jnw3Dhv3 hZDOPXVCQMqy80j09lH18M5ft6P8wjVzhzkryR561hR9ev2MZTNnYWbX9pjw 4Rtwd1hfw64/z3WdHkt/Tge4JRVEu1R1MiH9jfAKkt77rNoN+xmLsGbeYjIX Y8eMxU+DB+HXUSMwpt8nuHTxvMr3TabruLQ1HSVnQrgnqYsR/Z+ihS4rNZxL Ma+BSkD31wfi4w++Qv/OH+P3Xn0x74sPEH8lGFZQofQ00zqUDjBCxctGVMyz reIHwaImLj7pD5/J21TfIS+7HA8eCLhZQbJdF95iQxN/GY2BP3yH+XbTq43I yAtl48Y7IA0um++KysSPBNljxl4IsbFK5fIQJRoZnKumXsTypQXwOBOBjq3a oHeHtzGgZyfMGmaHgi1HVLj4BRQGcFG8/5wBXOdUGKzO8TdEanQaMk4EIWqH O+57heLKzJ0oPXwRxdHZYlz8EPe4A4g8RRVSfiNXw3ZLp7dZjckaKoOIN28n 2BD82wcPEpJpWviE6RRyN7ub1RBtJmcgLp/sjaVzs+F5XSA2muzZbqcwREY9 xPqpRchzOK8aPX7iUoclH0n91wBLbwMx41L0dfHnd+eQeygNRTFiV+5W4laF eXFWZHgJYuLKzLJZ05CMx41A52MT9vIJEBC+LROlZ0PNex2/XwkhL1fhvkwo w23ZJA/Mn54qPTM4776ZqCO7y5G1W17h+3bNQKMmmffFQGPegY+x2FFr6Rnl yMkUrc+d2+rPHfbch5ArD5tnrEBVJboSy1izDBUzSrWlI2Ho4uc9uYtWXvs4 nEPpcR/O4MlgLZ1wFHN+i8MZUfLz75u3tu92eIjIaeKIiYpT187ZCNa/DcDy VoXbvMOJIo8L1wXcS5DTAi8opPGoMBQYIrK+qqcJB9h1felpc9eNQ03WU/+J 9qLsloB2WhxxuIJZY6/h1AWx5/cE4semLZW4NtsHFXGJyiR/Hc0iOWkamU0H 1VaxUFkiNf6SFhmmAUiSn+WQUY5VRRqReP0BUpNKpLuXFeL1o8B8iFNdNavO P/eIZIVdNKrUWU9RDXr+uhElp/xUjekq+vDTfgrBSa9HyL8rkJiuW1mO4Pnh qEjMUCCop+6z0p39ZXTU2PNVASAV+IwBABlK2YHjlRDuaZ+AwQPAT7fu33gP iQ5nQNvBLTwESlIwM4buxeXVYShLSpUmVSYP8sOxUw+RVyKQGU5LEc3vgniU J99QF+sZiZGNvXzaoJeZStnleAGVZY8s9lKSzjrcWHY7JiB55QXZtLOCJ6oc nz1r2nbMtFsu9Xy63XY4uJyypF+JxQlJAo4uyELmkr3qagB+2seGHvOR1FMG Pc5SylwO3EBuUq6mxzafmVMP3v6VCN6Wo35sv34t9q5bS8sbWLA07mt3bN51 D1F5VhbrWs0EktaLShCwZ14R8tcfVFe6GZ8Oohvl/ATwkwZg5ChlJ86LDd6R 7140AIM7h/cpvSqH8/q7mNzlM/Ru3AwDXmuCQS3bY/3sCKzfUoLIHPW4rCoW RVactTWKkxcx7lIzPzGV2DrrDvK3e6hLzKoAoZOPF7WQ8FHAEwaQxKtdNetO GuOH3YqlAyotwWQeJRQ4EyFsiXnXNz/CqHc+wk9vd8TUnp+JQyj4v8rXjOYl GaHsUqfZ6qszukR/5NV7OCUa79ydgerKLx4Os1GzAkJDAxCSDXC0vLC2NlyP 3sfN2Bgb5EcPzI51G9D1tTfx3VtdMe3brzC+S0t2ru1LusbMJqahoYlhDS1d cBIhm84jO/CSukiHn7lTpuVpHLB5UMLBCIMUGzEgS8YOBbmvPFztBUsYaM72 ZRdb8t2xRSt8074rxvfpjJ96tkXQid14EH1Rj4GZAO1xPny+bdasffht9GTr 6TbycPgkvA6cqkeeGghItc8l3bA+DckbjlqERLcIgIupw0NCEfCrEw7s3sa2 uSC9REDq7VIUeBxC6t+OxrM9MM9oJEXm4O/Zd5AVVCCf82+L6uUxeq5mGNU3 wCjVwIIIupzw6qnpyAy5hbKCTEOE6LQMXR3qvYvpNHK3uakrBiIKsfFkCQpS blqasTESYdJvaTfKkXenXFNm+zTLs9VDVrVrWsjSjWkmCUzKEum7XW5RnvRH hfBI6brubx+ER5fi5QyM7oyDFy113Vrmn+Y42AYghgDTw9zhDU0sA1GXK9PI ji4waWrwW/OnXJxeG2t6/Q0hQ3b7uiuNWJ7KaCB1aOfOnVLowDqUmZmp5oz8 /f2tEF/HgHgJ+AYGXybz4zl6l8qfzxUJNzhaTyKnSZMm5gd9qCRUPZPMgISG BiRQBS6mU0hb5Srd8afLaz0JeV0rYymbE+ndu7c0p9TUMi0kYrRjUKXlCSu0 eJouoEJ5ti7RwptxiotojobRIULSnCejvoYM9qpCghH7qOz49EMQkhM5Euqr JLDus2k0dq80rUz+KT+vp3G6uXalZo1icWrWdfh2CCXyDj16aCKrnvWUZy1D nZXznKEHc9FAY6S+wZNVV3V/+d11Ek1Gc/nqTlsxKI9beEi668RJBuVPabEL r+bYi2BiISijl9HzJk+PvI+fo0X6ndFuFiLluMkHpe4XqyGlvkqKXlAZCa21 wspI0EBhdNAFte/y+wEIcYnVtF9Xaot1m29XXriuVsW8LcYO9lP9ciYp5LEk oVSB44BNEIoLOVoaaPK07MVo46S0nVZIGQmkAKus9a6vUeq8YmfUVbIqKDYh 6pSLFB2Tm6szDkh39CxVAsM8iuup6SrdkJJzz4rfUU+jrWtI7H1OdQmKBTRP 2wiqCSTU1Kfvmc7ipqMb14GGGv+ZhJxta2UX+4x1Tt4apKw7eSzKbyvjhKhT qLZGdPjOUAgRiRzR9VWijUak/MgmJT54LGLzOKqswUsW8qzrJbh8tx0lx4+o y4x4AabBxAazfjDJulHJeD4W1emGVHMe6dnDBfBwKkFebLpCZsMq48xIz8gP 7VPwfSwSYxQ26r04/uFM/JO3tAOsvjrAdNpA+l4XubZuj0+lZKD47DYXDkjF 71uxEzSEiDT5ae7KpsfHIitMAYYPTtorwNB6GN6g0yCWH6SgnFzyWBRcMKCA cnlVj0c38nRkg0LpXLLt8jJ59H98Cs8ZUGiUX6Vgm6fQQPQlB6e2WSox/PFJ PMmZTZqdtUxiPYmN7Pc60v5j8BN5FQXGPD6Rhy0SWfVhkvxgJJWhX73NUTfp 8alzMqCOtuzR02R4CMnT19llo4NTFSKnPz6RDgZEUu6KHyw0MBiB7OKHrvmA SEX+5j4+XZss0tVAQxcPmDJQjZ4AIVtmLH18wlYZENaUA4zNh/HWlF16U9VI BUyha/Xj07XEIl0NNYBZMp/fy5RsfnxK5hhQQhk/ctz1cs+a041OWc9ix+MT NM0iQdq8FskSZxgHyUQ4Pz4RvxoQQTPCVZ0I2TPTe+56DaEMwCEyka6PT+Ro K0TybgQdAMcbJkKQtAOZzWEyde6PT92wGlGnzR8wcefdcPOxpN/I9Hk9Pn39 FVr4yQ2jnCTpUsY+vaNNz27T+Z7ys7lx0RYi61kisq9F+hpo6DMYjBYOCFfI oinaqqnaOvrp59q60Jv98DMDuijqZkOD0cDjRs4Z71tbSDYrBEY+HoHdLBLY QJOO0I9NsY7nrdKV+Hh0tTegi05TNZlMmqHJmuCjfmV4WjgYVqEv8/Hoe8si fVV9WhaRcAJnTosr47Pg8UiheFv/kFwl2UeJe0YV88101lH2BlHyeDQ0skCD IkIk3qx2MkGkFn6XCXjweAQ8p8gGq5mXDZJhXcA6RW5U+k6dx2v5SYXrLJmu 5zpnbqdxLT71eC0SR1mLjKM6uZ/BtfS8xZYaGq6eYVXytsS852IMVys9yIVq ZdpV/LbRzOFI7mdvy2jDeGKT/2bHaj5vrw6hMfpS3a9Gc593UH/Fl5q491+w /6TsSF+utJcivVQv/7cf973eVhWOuQGORHYZJba+1v9Gf+4J+8vT+FU1lXyp 9p0nx/S/9/97/7/3/7+/x7/+DwkAmmA=\ \>"]] }, 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"}], "]"}]}], ";"}], "\[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}}], Cell[BoxData["92"], "Output", CellChangeTimes->{3.572795498971944*^9, 3.572795642133395*^9, 3.572795890017831*^9, 3.5727960982937965`*^9, 3.5727961642195125`*^9, 3.5727962278832245`*^9, 3.5727967529801464`*^9, 3.5727968748163605`*^9, 3.5727970010985823`*^9, 3.5727973910524673`*^9, 3.5727974382269497`*^9, 3.572797864372898*^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["92"], "Output", CellChangeTimes->{3.572795499049944*^9, 3.5727956422113953`*^9, 3.572795890111431*^9, 3.5727960983717966`*^9, 3.572796164297512*^9, 3.5727962279768243`*^9, 3.5727967530581465`*^9, 3.5727968749099607`*^9, 3.5727970011765823`*^9, 3.572797391099267*^9, 3.5727974382737503`*^9, 3.5727978644196987`*^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[{"tv", " ", "=", " ", RowBox[{"Join", "[", RowBox[{"tv1", ",", "tv2", ",", "tv3", ",", "tv4", ",", "tv5"}], "]"}]}], ";"}], "\[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}}], 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"} }, 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.572795499065544*^9, 3.5727956422269955`*^9, 3.572795890127031*^9, 3.572796098387397*^9, 3.572796164359913*^9, 3.5727962280392246`*^9, 3.5727967530737467`*^9, 3.572796874925561*^9, 3.5727970011921825`*^9, 3.572797391114867*^9, 3.57279743828935*^9, 3.572797864435299*^9}], Cell[BoxData["92"], "Output", CellChangeTimes->{3.572795499065544*^9, 3.5727956422269955`*^9, 3.572795890127031*^9, 3.572796098387397*^9, 3.572796164359913*^9, 3.5727962280392246`*^9, 3.5727967530737467`*^9, 3.572796874925561*^9, 3.5727970011921825`*^9, 3.572797391114867*^9, 3.57279743828935*^9, 3.572797864435299*^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"}]}], "}"}]}], "]"}]}], "]"}]}], "\[IndentingNewLine]", RowBox[{"cnv", "=", RowBox[{"Join", "[", RowBox[{ RowBox[{"Table", "[", RowBox[{ RowBox[{"cn", "[", RowBox[{"[", "i", "]"}], "]"}], ",", RowBox[{"{", RowBox[{"i", ",", "1", ",", "bc"}], "}"}]}], "]"}], ",", RowBox[{"Table", "[", RowBox[{"0.0", ",", RowBox[{"{", RowBox[{"i", ",", "1", ",", "cw"}], "}"}]}], "]"}], ",", RowBox[{"Table", "[", RowBox[{ RowBox[{"cn", "[", RowBox[{"[", "i", "]"}], "]"}], ",", RowBox[{"{", RowBox[{"i", ",", RowBox[{"bc", "+", "1"}], ",", "n"}], "}"}]}], "]"}], ",", RowBox[{"Table", "[", RowBox[{"0.0", ",", RowBox[{"{", RowBox[{"i", ",", "1", ",", RowBox[{"2", "*", "nj"}]}], "}"}]}], "]"}]}], "]"}]}]}], "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}}], 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`"}]}], "}"}]], "Output", CellChangeTimes->{3.572795499065544*^9, 3.5727956422425957`*^9, 3.572795890142631*^9, 3.572796098402997*^9, 3.5727961643755126`*^9, 3.5727962280548244`*^9, 3.572796753089347*^9, 3.572796874941161*^9, 3.5727970012077827`*^9, 3.5727973911304674`*^9, 3.57279743830495*^9, 3.572797864450899*^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.`"}], "}"}]], "Output", CellChangeTimes->{3.572795499065544*^9, 3.5727956422425957`*^9, 3.572795890142631*^9, 3.572796098402997*^9, 3.5727961643755126`*^9, 3.5727962280548244`*^9, 3.572796753089347*^9, 3.572796874941161*^9, 3.5727970012077827`*^9, 3.5727973911304674`*^9, 3.57279743830495*^9, 3.572797864450899*^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["92"], "Output", CellChangeTimes->{3.5727954991591444`*^9, 3.5727956423049955`*^9, 3.572795890251831*^9, 3.5727960985121965`*^9, 3.572796164469113*^9, 3.5727962281484246`*^9, 3.572796753167347*^9, 3.5727968750191607`*^9, 3.5727970013013825`*^9, 3.5727973911928673`*^9, 3.5727974383829503`*^9, 3.572797864513299*^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["1707.6505172984778`"], "Output", CellChangeTimes->{3.5727954991747446`*^9, 3.572795642336196*^9, 3.5727958902674313`*^9, 3.572796098543397*^9, 3.572796164500313*^9, 3.5727962281796246`*^9, 3.572796753198547*^9, 3.572796875081561*^9, 3.5727970013481827`*^9, 3.5727973912240677`*^9, 3.5727974383985505`*^9, 3.5727978645444984`*^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["1706.75766015562`"], "Output", CellChangeTimes->{3.5727954991903443`*^9, 3.5727956423517957`*^9, 3.5727958902830315`*^9, 3.572796098558997*^9, 3.572796164515913*^9, 3.572796228195225*^9, 3.572796753245347*^9, 3.572796875081561*^9, 3.572797001363783*^9, 3.5727973912240677`*^9, 3.5727974384453506`*^9, 3.5727978645444984`*^9}] }, Open ]], Cell[CellGroupData[{ Cell[BoxData[{ RowBox[{ RowBox[{"sc", "=", "0.33"}], ";", " ", 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[{"sw", "=", "0.33"}], ";", " ", RowBox[{"(*", " ", RowBox[{"bonding", " ", "clouds"}], " ", "*)"}], "\[IndentingNewLine]", RowBox[{"For", "[", RowBox[{ RowBox[{"i", "=", "1"}], " ", ",", RowBox[{"i", "<", RowBox[{"nb", "+", "1"}]}], ",", RowBox[{"i", "++"}], ",", RowBox[{"Vee", "=", RowBox[{"Vee", "+", RowBox[{"3", "*", RowBox[{"sw", "/", RowBox[{"a", "[", RowBox[{"[", RowBox[{"i", ",", "3"}], "]"}], "]"}]}]}]}]}]}], "]"}]}], "\[IndentingNewLine]", "Vee"}], "Input", CellChangeTimes->{{3.5689548890696163`*^9, 3.568955116299615*^9}, { 3.5689552553894596`*^9, 3.5689552575266633`*^9}, {3.5689552936875267`*^9, 3.5689553203323736`*^9}, {3.568955404229321*^9, 3.568955433245372*^9}, 3.5689554882822685`*^9, 3.5689562157115464`*^9, {3.568956283961666*^9, 3.5689562858180695`*^9}, {3.5689566111878405`*^9, 3.5689566291278725`*^9}, {3.5689566695319433`*^9, 3.5689567220104356`*^9}, {3.5690810958835616`*^9, 3.569081104525977*^9}, { 3.5691717160681796`*^9, 3.569171751714242*^9}, {3.5691717855663013`*^9, 3.5691719006789036`*^9}, 3.569234247377528*^9, {3.569235622381544*^9, 3.569235625142749*^9}, {3.5692356799612455`*^9, 3.569235740536152*^9}, { 3.57045575500149*^9, 3.5704557604770994`*^9}, {3.57046440981329*^9, 3.5704644333849316`*^9}, {3.5705963024877205`*^9, 3.5705963300061693`*^9}, {3.5706010463712544`*^9, 3.570601069225295*^9}, { 3.5706012097659416`*^9, 3.5706012109983435`*^9}, {3.570601290948484*^9, 3.570601291619285*^9}, {3.570601333099758*^9, 3.570601444951955*^9}, 3.5706014761208096`*^9, {3.570601526633698*^9, 3.570601615179454*^9}, { 3.5708576202336864`*^9, 3.5708576267544985`*^9}, {3.5708577990100007`*^9, 3.5708578016152053`*^9}, {3.5708580423548284`*^9, 3.570858044429632*^9}, { 3.570858075754487*^9, 3.5708581072821426`*^9}, {3.570858449889944*^9, 3.5708585756105647`*^9}, {3.572795632149378*^9, 3.5727956355657835`*^9}}], Cell[BoxData["1832.6565075541655`"], "Output", CellChangeTimes->{3.5727954991903443`*^9, 3.5727956423517957`*^9, 3.572795890298631*^9, 3.572796098558997*^9, 3.5727961645315127`*^9, 3.572796228210825*^9, 3.5727967532609468`*^9, 3.572796875097161*^9, 3.572797001379383*^9, 3.572797391239668*^9, 3.5727974384453506`*^9, 3.5727978645600986`*^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[{"-", "3534.225995739096`"}]], "Output", CellChangeTimes->{3.572795499205944*^9, 3.572795642367396*^9, 3.572795890314231*^9, 3.5727960985745974`*^9, 3.5727961645471125`*^9, 3.572796228242025*^9, 3.5727967532609468`*^9, 3.572796875112761*^9, 3.572797001379383*^9, 3.5727973912552676`*^9, 3.5727974384609504`*^9, 3.572797864575699*^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[{"-", "5079.112223520343`"}]], "Output", CellChangeTimes->{3.5727954992215443`*^9, 3.572795642367396*^9, 3.572795890329831*^9, 3.572796098590197*^9, 3.572796164578313*^9, 3.5727962282576246`*^9, 3.572796753276547*^9, 3.5727968751283607`*^9, 3.572797001394983*^9, 3.5727973912708673`*^9, 3.57279743847655*^9, 3.572797864575699*^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[{"-", "5147.195567562742`"}]], "Output", CellChangeTimes->{3.5727954992215443`*^9, 3.5727956423829956`*^9, 3.572795890329831*^9, 3.5727960986057973`*^9, 3.572796164593913*^9, 3.572796228273225*^9, 3.5727967532921467`*^9, 3.5727968751283607`*^9, 3.5727970014105825`*^9, 3.5727973912864676`*^9, 3.57279743847655*^9, 3.572797864591299*^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.5727954992371445`*^9, 3.5727956423829956`*^9, 3.5727958903454313`*^9, 3.572796098621397*^9, 3.5727961646095133`*^9, 3.572796228288825*^9, 3.572796753307747*^9, 3.572796875143961*^9, 3.5727970014261827`*^9, 3.5727973912864676`*^9, 3.5727974384921503`*^9, 3.572797864591299*^9}] }, Open ]], Cell[CellGroupData[{ Cell[BoxData[{"Vee", "\[IndentingNewLine]", "Vnn", "\[IndentingNewLine]", \ "Vne", "\[IndentingNewLine]", RowBox[{ RowBox[{"Tpi", " ", "=", " ", RowBox[{"2.296", "*", "nj", "*", "0.5", "*", "1.125", "*", RowBox[{"(", RowBox[{ RowBox[{"1", "/", RowBox[{"rpo", "^", "2"}]}], "+", RowBox[{"1", "/", RowBox[{"rpi", "^", "2"}]}]}], ")"}]}]}], " ", RowBox[{"(*", " ", RowBox[{"pi", " ", "kin", " ", "e", " ", "added"}], " ", "*)"}]}], "\[IndentingNewLine]", RowBox[{"Vtot", "=", RowBox[{"Vne", "+", "Vee", "+", "Vnn"}]}], "\[IndentingNewLine]", RowBox[{"Ttot", " ", "=", RowBox[{"Ttot", "+", "Tpi"}]}], "\[IndentingNewLine]", RowBox[{"Vir", " ", "=", RowBox[{ RowBox[{"-", "Vtot"}], "/", "Ttot"}]}], "\[IndentingNewLine]", RowBox[{"Etot", "=", RowBox[{"Ttot", "+", "Vtot"}]}], "\[IndentingNewLine]"}], "Input", CellChangeTimes->{{3.5689074950860367`*^9, 3.5689075109980645`*^9}, { 3.568910298074465*^9, 3.5689103015064707`*^9}, {3.568910724064413*^9, 3.5689107693044925`*^9}, {3.568955368910859*^9, 3.568955378629676*^9}, { 3.568955601366867*^9, 3.568955616218093*^9}, {3.5704638504275074`*^9, 3.570463876370353*^9}, {3.570464305074706*^9, 3.5704643133895206`*^9}, { 3.570464352171189*^9, 3.570464353231991*^9}, {3.570712404698539*^9, 3.5707124150569572`*^9}, {3.570809962851386*^9, 3.5708101493809137`*^9}, { 3.5708102160710306`*^9, 3.570810245165082*^9}, {3.5708102767551374`*^9, 3.5708103693413*^9}, {3.570810404207361*^9, 3.5708104232081947`*^9}, { 3.5708104788690925`*^9, 3.5708104825818987`*^9}, {3.5708105169643593`*^9, 3.570810517884761*^9}, {3.570810561767638*^9, 3.5708105625476394`*^9}, { 3.5708106179589367`*^9, 3.570810645648985*^9}, {3.5708552812279787`*^9, 3.570855300572013*^9}, {3.5718406368324184`*^9, 3.5718406454592333`*^9}, 3.57184067742369*^9}], Cell[BoxData["1832.6565075541655`"], "Output", CellChangeTimes->{3.5727954992527447`*^9, 3.572795642398596*^9, 3.5727958903610315`*^9, 3.572796098621397*^9, 3.5727961646251135`*^9, 3.5727962283200245`*^9, 3.572796753307747*^9, 3.572796875159561*^9, 3.572797001441783*^9, 3.5727973913020678`*^9, 3.5727974385077505`*^9, 3.572797864606899*^9}], Cell[BoxData["1586.926201840177`"], "Output", CellChangeTimes->{3.5727954992527447`*^9, 3.572795642398596*^9, 3.5727958903610315`*^9, 3.572796098621397*^9, 3.5727961646251135`*^9, 3.5727962283200245`*^9, 3.572796753307747*^9, 3.572796875159561*^9, 3.572797001441783*^9, 3.5727973913020678`*^9, 3.5727974385077505`*^9, 3.572797864606899*^9}], Cell[BoxData[ RowBox[{"-", "5147.195567562742`"}]], "Output", CellChangeTimes->{3.5727954992527447`*^9, 3.572795642398596*^9, 3.5727958903610315`*^9, 3.572796098621397*^9, 3.5727961646251135`*^9, 3.5727962283200245`*^9, 3.572796753307747*^9, 3.572796875159561*^9, 3.572797001441783*^9, 3.5727973913020678`*^9, 3.5727974385077505`*^9, 3.572797864606899*^9}], Cell[BoxData["13.17857142857143`"], "Output", CellChangeTimes->{3.5727954992527447`*^9, 3.572795642398596*^9, 3.5727958903610315`*^9, 3.572796098621397*^9, 3.5727961646251135`*^9, 3.5727962283200245`*^9, 3.572796753307747*^9, 3.572796875159561*^9, 3.572797001441783*^9, 3.5727973913020678`*^9, 3.5727974385077505`*^9, 3.572797864606899*^9}], Cell[BoxData[ RowBox[{"-", "1727.6128581683995`"}]], "Output", CellChangeTimes->{3.5727954992527447`*^9, 3.572795642398596*^9, 3.5727958903610315`*^9, 3.572796098621397*^9, 3.5727961646251135`*^9, 3.5727962283200245`*^9, 3.572796753307747*^9, 3.572796875159561*^9, 3.572797001441783*^9, 3.5727973913020678`*^9, 3.5727974385077505`*^9, 3.572797864622499*^9}], Cell[BoxData["857.3004021773312`"], "Output", CellChangeTimes->{3.5727954992527447`*^9, 3.572795642398596*^9, 3.5727958903610315`*^9, 3.572796098621397*^9, 3.5727961646251135`*^9, 3.5727962283200245`*^9, 3.572796753307747*^9, 3.572796875159561*^9, 3.572797001441783*^9, 3.5727973913020678`*^9, 3.5727974385077505`*^9, 3.572797864622499*^9}], Cell[BoxData["2.0151779397054868`"], "Output", CellChangeTimes->{3.5727954992527447`*^9, 3.572795642398596*^9, 3.5727958903610315`*^9, 3.572796098621397*^9, 3.5727961646251135`*^9, 3.5727962283200245`*^9, 3.572796753307747*^9, 3.572796875159561*^9, 3.572797001441783*^9, 3.5727973913020678`*^9, 3.5727974385077505`*^9, 3.572797864622499*^9}], Cell[BoxData[ RowBox[{"-", "870.3124559910683`"}]], "Output", CellChangeTimes->{3.5727954992527447`*^9, 3.572795642398596*^9, 3.5727958903610315`*^9, 3.572796098621397*^9, 3.5727961646251135`*^9, 3.5727962283200245`*^9, 3.572796753307747*^9, 3.572796875159561*^9, 3.572797001441783*^9, 3.5727973913020678`*^9, 3.5727974385077505`*^9, 3.572797864622499*^9}] }, Open ]] }, WindowSize->{1048, 819}, WindowMargins->{{297, Automatic}, {Automatic, 15}}, PrintingCopies->1, PrintingPageRange->{32000, 32000}, PrintingOptions->{"Magnification"->1., "PaperOrientation"->"Portrait", "PaperSize"->{595.2, 841.8}}, FrontEndVersion->"9.0 for Microsoft Windows (64-bit) (January 25, 2013)", StyleDefinitions->"Default.nb" ] (* End of Notebook Content *) (* Internal cache information *) (*CellTagsOutline CellTagsIndex->{} *) (*CellTagsIndex CellTagsIndex->{} *) (*NotebookFileOutline Notebook[{ Cell[557, 20, 1629, 29, 52, "Input"], Cell[CellGroupData[{ Cell[2211, 53, 282, 6, 52, "Input"], Cell[2496, 61, 6240, 105, 362, "Output"] }, Open ]], Cell[CellGroupData[{ Cell[8773, 171, 680, 14, 52, "Input"], Cell[9456, 187, 5762, 145, 791, "Output"] }, Open ]], Cell[CellGroupData[{ Cell[15255, 337, 609, 10, 31, "Input"], Cell[15867, 349, 1333, 19, 52, "Output"] }, Open ]], Cell[CellGroupData[{ Cell[17237, 373, 955, 14, 31, "Input"], Cell[18195, 389, 333, 5, 31, "Output"] }, Open ]], Cell[CellGroupData[{ Cell[18565, 399, 1560, 29, 31, "Input"], Cell[20128, 430, 1325, 19, 52, "Output"] }, Open ]], Cell[21468, 452, 1419, 23, 31, "Input"], Cell[22890, 477, 1592, 29, 31, "Input"], Cell[CellGroupData[{ Cell[24507, 510, 1234, 18, 31, "Input"], Cell[25744, 530, 3816, 109, 92, "Output"] }, Open ]], Cell[CellGroupData[{ Cell[29597, 644, 697, 14, 31, "Input"], Cell[30297, 660, 954, 15, 52, "Output"] }, Open ]], Cell[31266, 678, 908, 24, 31, "Input"], Cell[CellGroupData[{ Cell[32199, 706, 5735, 123, 172, "Input"], Cell[37937, 831, 1138, 18, 72, "Output"], Cell[39078, 851, 1127, 18, 72, "Output"] }, Open ]], Cell[CellGroupData[{ Cell[40242, 874, 519, 12, 31, "Input"], Cell[40764, 888, 1329, 19, 52, "Output"] }, Open ]], Cell[CellGroupData[{ Cell[42130, 912, 1401, 38, 72, "Input"], Cell[43534, 952, 1008, 16, 52, "Output"] }, Open ]], Cell[CellGroupData[{ Cell[44579, 973, 827, 23, 92, "Input"], Cell[45409, 998, 331, 5, 31, "Output"], Cell[45743, 1005, 331, 5, 31, "Output"] }, Open ]], Cell[CellGroupData[{ Cell[46111, 1015, 284, 6, 52, "Input"], Cell[46398, 1023, 354, 5, 31, "Output"] }, Open ]], Cell[46767, 1031, 1824, 35, 72, "Input"], Cell[CellGroupData[{ Cell[48616, 1070, 4923, 122, 232, "Input"], Cell[53542, 1194, 11600, 199, 400, "Output"] }, Open ]], Cell[CellGroupData[{ Cell[65179, 1398, 2100, 42, 72, "Input"], Cell[67282, 1442, 64634, 892, 806, "Output"] }, Open ]], Cell[131931, 2337, 1331, 36, 72, "Input"], Cell[CellGroupData[{ Cell[133287, 2377, 4850, 86, 72, "Input"], Cell[138140, 2465, 17663, 250, 806, "Output"] }, Open ]], Cell[CellGroupData[{ Cell[155840, 2720, 2570, 53, 132, "Input"], Cell[158413, 2775, 338, 5, 31, "Output"] }, Open ]], Cell[CellGroupData[{ Cell[158788, 2785, 2598, 53, 92, "Input"], Cell[161389, 2840, 575, 10, 31, "Output"] }, Open ]], Cell[161979, 2853, 9726, 201, 232, "Input"], Cell[CellGroupData[{ Cell[171730, 3058, 1947, 43, 72, "Input"], Cell[173680, 3103, 507, 9, 31, "Output"], Cell[174190, 3114, 412, 7, 31, "Output"] }, Open ]], Cell[CellGroupData[{ Cell[174639, 3126, 570, 14, 52, "Input"], Cell[175212, 3142, 809, 15, 52, "Output"], Cell[176024, 3159, 408, 7, 31, "Output"] }, Open ]], Cell[CellGroupData[{ Cell[176469, 3171, 2767, 54, 72, "Input"], Cell[179239, 3227, 1214, 21, 72, "Output"], Cell[180456, 3250, 409, 7, 31, "Output"] }, Open ]], Cell[CellGroupData[{ Cell[180902, 3262, 3698, 81, 132, "Input"], Cell[184603, 3345, 1220, 19, 92, "Output"] }, Open ]], Cell[185838, 3367, 2072, 49, 112, "Input"], Cell[187913, 3418, 561, 12, 52, "Input"], Cell[188477, 3432, 2148, 49, 92, "Input"], Cell[190628, 3483, 2452, 56, 92, "Input"], Cell[193083, 3541, 1759, 41, 72, "Input"], Cell[CellGroupData[{ Cell[194867, 3586, 923, 20, 31, "Input"], Cell[195793, 3608, 358, 5, 31, "Output"] }, Open ]], Cell[CellGroupData[{ Cell[196188, 3618, 711, 18, 31, "Input"], Cell[196902, 3638, 352, 5, 31, "Output"] }, Open ]], Cell[CellGroupData[{ Cell[197291, 3648, 507, 10, 31, "Input"], Cell[197801, 3660, 354, 5, 31, "Output"] }, Open ]], Cell[CellGroupData[{ Cell[198192, 3670, 823, 23, 31, "Input"], Cell[199018, 3695, 351, 5, 31, "Output"] }, Open ]], Cell[CellGroupData[{ Cell[199406, 3705, 204, 4, 31, "Input"], Cell[199613, 3711, 350, 5, 31, "Output"] }, Open ]], Cell[199978, 3719, 1975, 34, 72, "Input"], Cell[CellGroupData[{ Cell[201978, 3757, 4534, 109, 212, "Input"], Cell[206515, 3868, 473, 9, 31, "Output"], Cell[206991, 3879, 5121, 175, 791, "Output"] }, Open ]], Cell[212127, 4057, 8797, 140, 152, "Input"], Cell[220927, 4199, 11484, 296, 1352, "Input"], Cell[232414, 4497, 10411, 347, 1332, "Input"], Cell[242828, 4846, 3073, 58, 92, "Input"], Cell[CellGroupData[{ Cell[245926, 4908, 939, 17, 72, "Input"], Cell[246868, 4927, 4861, 110, 212, "Output"], Cell[251732, 5039, 341, 5, 31, "Output"], Cell[252076, 5046, 341, 5, 31, "Output"] }, Open ]], Cell[252432, 5054, 10201, 233, 192, "Input"], Cell[262636, 5289, 6427, 103, 92, "Input"], Cell[269066, 5394, 10215, 234, 132, "Input"], Cell[279284, 5630, 5925, 93, 31, "Input"], Cell[285212, 5725, 9436, 145, 52, "Input"], Cell[CellGroupData[{ Cell[294673, 5874, 15480, 296, 332, "Input"], Cell[310156, 6172, 120993, 2077, 409, 29471, 576, "CachedBoxData", "BoxData", \ "Output"], Cell[431152, 8251, 41878, 702, 430, 18910, 325, "CachedBoxData", "BoxData", \ "Output"] }, Open ]], Cell[CellGroupData[{ Cell[473067, 8958, 4318, 96, 152, "Input"], Cell[477388, 9056, 341, 5, 31, "Output"] }, Open ]], Cell[CellGroupData[{ Cell[477766, 9066, 2499, 47, 92, "Input"], Cell[480268, 9115, 341, 5, 31, "Output"] }, Open ]], Cell[480624, 9123, 1841, 29, 52, "Input"], Cell[CellGroupData[{ Cell[482490, 9156, 4159, 89, 172, "Input"], Cell[486652, 9247, 6665, 186, 1406, "Output"], Cell[493320, 9435, 332, 5, 31, "Output"] }, Open ]], Cell[CellGroupData[{ Cell[493689, 9445, 4635, 86, 52, "Input"], Cell[498327, 9533, 3230, 99, 92, "Output"], Cell[501560, 9634, 1525, 23, 72, "Output"] }, Open ]], Cell[CellGroupData[{ Cell[503122, 9662, 4670, 80, 92, "Input"], Cell[507795, 9744, 341, 5, 31, "Output"] }, Open ]], Cell[508151, 9752, 1863, 27, 31, "Input"], Cell[CellGroupData[{ Cell[510039, 9783, 2963, 56, 112, "Input"], Cell[513005, 9841, 356, 5, 31, "Output"] }, Open ]], Cell[CellGroupData[{ Cell[513398, 9851, 1373, 36, 92, "Input"], Cell[514774, 9889, 352, 5, 31, "Output"] }, Open ]], Cell[CellGroupData[{ Cell[515163, 9899, 2579, 55, 112, "Input"], Cell[517745, 9956, 354, 5, 31, "Output"] }, Open ]], Cell[CellGroupData[{ Cell[518136, 9966, 499, 15, 52, "Input"], Cell[518638, 9983, 368, 6, 31, "Output"] }, Open ]], Cell[519021, 9992, 1381, 21, 31, "Input"], Cell[CellGroupData[{ Cell[520427, 10017, 1709, 32, 52, "Input"], Cell[522139, 10051, 365, 6, 31, "Output"] }, Open ]], Cell[CellGroupData[{ Cell[522541, 10062, 1415, 43, 72, "Input"], Cell[523959, 10107, 371, 6, 31, "Output"] }, Open ]], Cell[CellGroupData[{ Cell[524367, 10118, 2550, 50, 92, "Input"], Cell[526920, 10170, 355, 5, 31, "Output"] }, Open ]], Cell[CellGroupData[{ Cell[527312, 10180, 1891, 36, 192, "Input"], Cell[529206, 10218, 354, 5, 31, "Output"], Cell[529563, 10225, 353, 5, 31, "Output"], Cell[529919, 10232, 370, 6, 31, "Output"], Cell[530292, 10240, 353, 5, 31, "Output"], Cell[530648, 10247, 371, 6, 31, "Output"], Cell[531022, 10255, 353, 5, 31, "Output"], Cell[531378, 10262, 354, 5, 31, "Output"], Cell[531735, 10269, 370, 6, 31, "Output"] }, Open ]] } ] *) (* End of internal cache information *)