(* 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[ 735671, 14471] NotebookOptionsPosition[ 726089, 14172] NotebookOutlinePosition[ 726589, 14192] CellTagsIndexPosition[ 726546, 14189] WindowFrame->Normal*) (* Beginning of Notebook Content *) Notebook[{ Cell[BoxData[ RowBox[{ RowBox[{"(*", " ", RowBox[{ RowBox[{ "Kimball", " ", "model", " ", "and", " ", "energy", " ", "derived", " ", "from", " ", "Wolfram", " ", "source"}], ",", " ", RowBox[{"ES", " ", "18", " ", "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}], 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.572766619278369*^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.572766619293969*^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.572766619309569*^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.572766619309569*^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.572766619325169*^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.572766619340769*^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.572766619340769*^9}] }, Open ]], Cell[BoxData[ RowBox[{ RowBox[{"For", "[", RowBox[{ RowBox[{"i", "=", "1"}], ",", RowBox[{"i", "<", RowBox[{"n", "+", "1"}]}], ",", RowBox[{"i", "++"}], ",", RowBox[{"If", "[", RowBox[{ RowBox[{ RowBox[{"us", "[", RowBox[{"[", RowBox[{"i", ",", "1"}], "]"}], "]"}], "\[Equal]", "\"\\""}], ",", RowBox[{ RowBox[{"us", "[", RowBox[{"[", RowBox[{"i", ",", "1"}], "]"}], "]"}], "=", "\"\\""}]}], "]"}]}], "]"}], ";"}]], "Input", CellChangeTimes->{{3.568277663590458*^9, 3.568277712652544*^9}, 3.5682785838808746`*^9, {3.56880682872497*^9, 3.568806862015428*^9}, 3.5688069650848093`*^9, 3.568807273668951*^9, 3.5688073087846127`*^9, { 3.568807384553946*^9, 3.5688073893119545`*^9}, {3.56881489654434*^9, 3.5688149048591547`*^9}, {3.568821714349115*^9, 3.568821718951123*^9}}], Cell[CellGroupData[{ Cell[BoxData[{ RowBox[{"u1", "=", RowBox[{"Table", "[", RowBox[{ RowBox[{"If", "[", RowBox[{ RowBox[{ RowBox[{"us", "[", RowBox[{"[", RowBox[{"i", ",", "1"}], "]"}], "]"}], "\[Equal]", "\"\\""}], ",", "0.255", ",", RowBox[{"If", "[", RowBox[{ RowBox[{ RowBox[{"us", "[", RowBox[{"[", RowBox[{"i", ",", "1"}], "]"}], "]"}], "\[Equal]", "\"\\""}], ",", "0.1", ",", RowBox[{"If", "[", RowBox[{ RowBox[{ RowBox[{"us", "[", RowBox[{"[", RowBox[{"i", ",", "1"}], "]"}], "]"}], "\[Equal]", "\"\\""}], ",", "0.24", ",", RowBox[{"If", "[", RowBox[{ RowBox[{ RowBox[{"us", "[", RowBox[{"[", RowBox[{"i", ",", "1"}], "]"}], "]"}], "\[Equal]", "\"\\""}], ",", "0.178", ",", RowBox[{"If", "[", RowBox[{ RowBox[{ RowBox[{"us", "[", RowBox[{"[", RowBox[{"i", ",", "1"}], "]"}], "]"}], "\[Equal]", "\"\\""}], ",", "0.5"}], "]"}]}], "]"}]}], "]"}]}], "]"}]}], "]"}], ",", RowBox[{"{", RowBox[{"i", ",", "1", ",", "n"}], "}"}]}], "]"}]}], "\[IndentingNewLine]", RowBox[{"u2", "=", RowBox[{"Table", "[", RowBox[{ RowBox[{"If", "[", RowBox[{ RowBox[{ RowBox[{"us", "[", RowBox[{"[", RowBox[{"i", ",", "1"}], "]"}], "]"}], "\[Equal]", "\"\\""}], ",", "0.2557", ",", RowBox[{"If", "[", RowBox[{ RowBox[{ RowBox[{"us", "[", RowBox[{"[", RowBox[{"i", ",", "1"}], "]"}], "]"}], "\[Equal]", "\"\\""}], ",", "0.6", ",", RowBox[{"If", "[", RowBox[{ RowBox[{ RowBox[{"us", "[", RowBox[{"[", RowBox[{"i", ",", "1"}], "]"}], "]"}], "\[Equal]", "\"\\""}], ",", "0.22522", ",", RowBox[{"If", "[", RowBox[{ RowBox[{ RowBox[{"us", "[", RowBox[{"[", RowBox[{"i", ",", "1"}], "]"}], "]"}], "\[Equal]", "\"\\""}], ",", "0.178", ",", RowBox[{"If", "[", RowBox[{ RowBox[{ RowBox[{"us", "[", RowBox[{"[", RowBox[{"i", ",", "1"}], "]"}], "]"}], "\[Equal]", "\"\\""}], ",", "0.5"}], "]"}]}], "]"}]}], "]"}]}], "]"}]}], "]"}], ",", RowBox[{"{", RowBox[{"i", ",", "1", ",", "n"}], "}"}]}], "]"}]}]}], "Input", CellChangeTimes->{{3.5679480369450207`*^9, 3.567948069112277*^9}, { 3.5679486805553513`*^9, 3.5679487948723516`*^9}, 3.567950206581231*^9, { 3.5681216077716007`*^9, 3.5681216839309344`*^9}, {3.568266380090639*^9, 3.5682664108850937`*^9}, {3.568266481350417*^9, 3.56826649971165*^9}, 3.5682795170433135`*^9, {3.5682795636873956`*^9, 3.5682797843809834`*^9}, { 3.568279837187076*^9, 3.5682798459854913`*^9}, {3.568279877201146*^9, 3.568279880711152*^9}, {3.5682799570264864`*^9, 3.5682799599124913`*^9}, { 3.5683770044498715`*^9, 3.5683771523693314`*^9}, 3.5688133425788107`*^9, { 3.568814931192001*^9, 3.5688150075073347`*^9}, {3.5688765350957685`*^9, 3.5688765981198792`*^9}, {3.568876634452343*^9, 3.5688766352167444`*^9}, { 3.568894358551657*^9, 3.5688944054453397`*^9}, {3.568894522929146*^9, 3.5688945259087515`*^9}, {3.5688946101644993`*^9, 3.5688946171221113`*^9}, {3.568894651067771*^9, 3.568894651956972*^9}, 3.5688946827982264`*^9, {3.568894734527918*^9, 3.568894735495119*^9}, { 3.5688947726699843`*^9, 3.568894773496786*^9}, {3.5688948078948464`*^9, 3.568895097914956*^9}, {3.5689558039020233`*^9, 3.568955804619624*^9}, { 3.5689559169086213`*^9, 3.5689559179070234`*^9}, {3.5689559496998787`*^9, 3.568955950589081*^9}, {3.568956090817727*^9, 3.568956118273775*^9}, 3.5689561556982408`*^9, {3.5690814230317364`*^9, 3.5690814238897376`*^9}, { 3.569232478412421*^9, 3.5692324795356236`*^9}, {3.5692325096124763`*^9, 3.5692325115780797`*^9}, {3.5692325933846235`*^9, 3.569232594289425*^9}, { 3.569235467676072*^9, 3.5692354683780737`*^9}, {3.5692358857568064`*^9, 3.5692358867552085`*^9}, {3.569236173312112*^9, 3.569236174060913*^9}, { 3.569344745239445*^9, 3.569344781213108*^9}, {3.5693896312339673`*^9, 3.5693896351495743`*^9}, {3.5693896840088596`*^9, 3.5693896981112843`*^9}, {3.5693897680462074`*^9, 3.5693897743798184`*^9}, 3.570595843597315*^9, 3.5705958765133724`*^9, {3.5706006955110383`*^9, 3.57060069660304*^9}, {3.570600739659116*^9, 3.5706007402207165`*^9}, { 3.5706007784563837`*^9, 3.5706008313872766`*^9}, {3.5706008641161346`*^9, 3.5706008892321787`*^9}, 3.5706010214580107`*^9, {3.5706011135917726`*^9, 3.570601115058175*^9}, {3.5706011509850388`*^9, 3.5706011750714808`*^9}, { 3.5706012352719865`*^9, 3.570601260746831*^9}, 3.570856110868636*^9, 3.570856144034294*^9, 3.5708561753903494`*^9, {3.5708562115824127`*^9, 3.570856236261656*^9}, 3.5708568877188005`*^9, 3.570856960992129*^9, { 3.5708570022854013`*^9, 3.570857003424204*^9}, 3.5708574863854513`*^9, 3.570857676003785*^9, {3.570857720697863*^9, 3.570857774736358*^9}, { 3.570857815015629*^9, 3.570857815265229*^9}, {3.5708578488052883`*^9, 3.5708579513754683`*^9}, {3.5708579844319267`*^9, 3.570858009937971*^9}, { 3.5708583084132957`*^9, 3.570858421435494*^9}}], Cell[BoxData[ RowBox[{"{", RowBox[{ "0.255`", ",", "0.255`", ",", "0.255`", ",", "0.255`", ",", "0.255`", ",", "0.255`", ",", "0.255`", ",", "0.255`", ",", "0.255`", ",", "0.255`", ",", "0.255`", ",", "0.255`", ",", "0.255`", ",", "0.255`", ",", "0.255`", ",", "0.255`", ",", "0.255`", ",", "0.255`", ",", "0.255`", ",", "0.255`", ",", "0.178`", ",", "0.1`", ",", "0.1`", ",", "0.1`", ",", "0.1`", ",", "0.1`", ",", "0.1`", ",", "0.1`", ",", "0.1`", ",", "0.1`", ",", "0.1`", ",", "0.1`", ",", "0.1`", ",", "0.1`", ",", "0.1`", ",", "0.1`", ",", "0.1`", ",", "0.1`", ",", "0.1`", ",", "0.1`", ",", "0.1`", ",", "0.1`", ",", "0.1`", ",", "0.1`", ",", "0.1`", ",", "0.1`", ",", "0.1`", ",", "0.1`", ",", "0.1`", ",", "0.1`", ",", "0.1`"}], "}"}]], "Output", CellChangeTimes->{3.572766619356369*^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.572766619356369*^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.572766619371969*^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.5727666193875694`*^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.572766619403169*^9}], Cell[BoxData["30"], "Output", CellChangeTimes->{3.572766619403169*^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.572766619403169*^9}] }, Open ]], Cell[BoxData[{ RowBox[{ RowBox[{"DeleteFile", "[", " ", "\"\\"", "]"}], ";"}], "\[IndentingNewLine]", RowBox[{"For", "[", RowBox[{ RowBox[{"i", "=", "1"}], ",", RowBox[{"i", "<", RowBox[{"n", "+", "1"}]}], ",", RowBox[{"i", "++"}], ",", "\[IndentingNewLine]", RowBox[{ RowBox[{"{", RowBox[{ RowBox[{"u", "[", RowBox[{"[", "i", "]"}], "]"}], ",", RowBox[{"Extract", "[", RowBox[{"t1", ",", RowBox[{"{", "i", "}"}]}], "]"}]}], "}"}], ">>>", " ", "\"\\""}]}], "]"}]}], "Input", CellChangeTimes->{{3.567869377256353*^9, 3.5678694101568108`*^9}, { 3.5678695244894114`*^9, 3.56786953511303*^9}, 3.56786988243204*^9, 3.5678699252853155`*^9, {3.567870069179968*^9, 3.5678700766835814`*^9}, { 3.5678703216664114`*^9, 3.567870325738019*^9}, 3.5679271251072817`*^9, { 3.567942840466694*^9, 3.567942854381918*^9}, {3.567942932272855*^9, 3.567942950509287*^9}, 3.5679430681802936`*^9, {3.568278272060727*^9, 3.56827827391713*^9}, 3.5688732159559383`*^9, 3.568910867631465*^9, 3.5689997098549547`*^9, 3.5689998170427427`*^9, 3.5689998869620657`*^9, { 3.569059200815255*^9, 3.5690592031552596`*^9}, 3.5691460426137285`*^9, 3.569237204520723*^9, 3.569237465836782*^9, 3.56923802264856*^9, 3.5693403424181123`*^9, 3.569340450198702*^9, 3.569340738019207*^9, 3.569340852851009*^9, {3.5693411655067577`*^9, 3.5693411655067577`*^9}, 3.5693414976001415`*^9, {3.5693416978420925`*^9, 3.569341705314506*^9}, 3.569342614421703*^9, 3.5693435671777763`*^9, 3.569343662727944*^9, 3.5693437636289215`*^9, 3.5693440709750605`*^9, 3.5693442662562037`*^9, { 3.5702975520309644`*^9, 3.570297552764166*^9}, {3.5705591717487917`*^9, 3.5705591791432047`*^9}}], Cell[BoxData[ RowBox[{ RowBox[{"t", "=", RowBox[{"Table", "[", RowBox[{ RowBox[{"t1", "[", RowBox[{"[", RowBox[{"num", "[", RowBox[{"[", "i", "]"}], "]"}], "]"}], "]"}], ",", RowBox[{"{", RowBox[{"i", ",", "1", ",", "n"}], "}"}]}], "]"}]}], ";"}]], "Input", CellChangeTimes->{{3.567869377256353*^9, 3.567869394073182*^9}, { 3.5678694248832364`*^9, 3.5678694526200852`*^9}, {3.5678694891241493`*^9, 3.5678694955045605`*^9}, {3.567869596046737*^9, 3.567869602645549*^9}, 3.56786971175214*^9, {3.5678697908910794`*^9, 3.567869798800293*^9}, { 3.5679434548425727`*^9, 3.5679434621121855`*^9}, 3.568011875875622*^9, 3.56811435956207*^9, {3.5682782821071444`*^9, 3.5682782839479475`*^9}, { 3.5688205455482616`*^9, 3.5688206262784038`*^9}, 3.5688208026055136`*^9, 3.5688732159559383`*^9, 3.568910867631465*^9, {3.5689830694736805`*^9, 3.568983072687286*^9}}], Cell[CellGroupData[{ Cell[BoxData[ RowBox[{"\[IndentingNewLine]", RowBox[{"ChemicalData", "\[NoBreak]", "[", RowBox[{"\"\\"", ",", "\"\\""}], "]"}]}]], "Input", CellChangeTimes->{{3.570856658569998*^9, 3.5708566598024*^9}, 3.5709425310382767`*^9}], Cell[BoxData[ GraphicsBox[{{ {GrayLevel[0], AbsoluteThickness[0.55], InsetBox[ StyleBox["\<\"O\"\>", StripOnInput->False, ScriptSizeMultipliers->0.8, ScriptMinSize->8, FontSize->Scaled[0.006189383406757125], FontWeight->Plain], {253.69000000000003`, 0.}], LineBox[{{259.01805455965354`, 3.0758887886234265`}, {296.995, 25.}}], {GrayLevel[0], InsetBox[ StyleBox["\<\"C\"\>", StripOnInput->False, ScriptSizeMultipliers->0.8, ScriptMinSize->8, FontSize->Scaled[0.006189383406757125], FontWeight->Plain], {340.3, 50.}], LineBox[{{296.995, 25.}, {335.499950847159, 47.228929019258175`}}]}}, {GrayLevel[0], AbsoluteThickness[0.55], InsetBox[ StyleBox["\<\"O\"\>", StripOnInput->False, ScriptSizeMultipliers->0.8, ScriptMinSize->8, FontSize->Scaled[0.006189383406757125], FontWeight->Plain], {253.69000000000003`, 0.}], LineBox[{{248.36214885456243`, 3.0762411158235237`}, { 226.84500000000003`, 15.5}}], {GrayLevel[0], InsetBox[ StyleBox["\<\"H\"\>", StripOnInput->False, ScriptSizeMultipliers->0.8, ScriptMinSize->8, FontSize->Scaled[0.006189383406757125], FontWeight->Plain], {200., 31.}], LineBox[{{226.84500000000003`, 15.5}, {204.7998658967906, 28.228611607366197`}}]}}, {GrayLevel[0], AbsoluteThickness[0.55], InsetBox[ StyleBox["\<\"C\"\>", StripOnInput->False, ScriptSizeMultipliers->0.8, ScriptMinSize->8, FontSize->Scaled[0.006189383406757125], FontWeight->Plain], {1206.32, 50.}], LineBox[{{1211.1199105991946`, 47.22868903048804}, {1249.62, 25.}}], {GrayLevel[0], InsetBox[ StyleBox["\<\"C\"\>", StripOnInput->False, ScriptSizeMultipliers->0.8, ScriptMinSize->8, FontSize->Scaled[0.006189383406757125], FontWeight->Plain], {1292.92, 0.}], LineBox[{{1249.62, 25.}, {1288.1200894008055`, 2.7713109695119447`}}]}}, {GrayLevel[0], AbsoluteThickness[0.55], InsetBox[ StyleBox["\<\"C\"\>", StripOnInput->False, ScriptSizeMultipliers->0.8, ScriptMinSize->8, FontSize->Scaled[0.006189383406757125], FontWeight->Plain], {1206.32, 50.}], LineBox[{{1201.5200894008053`, 47.22868903048804}, {1163.02, 25.}}], {GrayLevel[0], InsetBox[ StyleBox["\<\"C\"\>", StripOnInput->False, ScriptSizeMultipliers->0.8, ScriptMinSize->8, FontSize->Scaled[0.006189383406757125], FontWeight->Plain], {1119.72, 0.}], LineBox[{{1163.02, 25.}, {1124.5199105991946`, 2.7713109695119558`}}]}}, {GrayLevel[0], AbsoluteThickness[0.55], InsetBox[ StyleBox["\<\"C\"\>", StripOnInput->False, ScriptSizeMultipliers->0.8, ScriptMinSize->8, FontSize->Scaled[0.006189383406757125], FontWeight->Plain], {1206.32, 50.}], LineBox[{{1209.0913109695118`, 54.7999105991947}, {1231.32, 93.30000000000001}}], {GrayLevel[0], InsetBox[ StyleBox["\<\"C\"\>", StripOnInput->False, ScriptSizeMultipliers->0.8, ScriptMinSize->8, FontSize->Scaled[0.006189383406757125], FontWeight->Plain], {1256.32, 136.60000000000002`}], LineBox[{{1231.32, 93.30000000000001}, {1253.548689030488, 131.80008940080532`}}]}}, {GrayLevel[0], AbsoluteThickness[0.55], InsetBox[ StyleBox["\<\"C\"\>", StripOnInput->False, ScriptSizeMultipliers->0.8, ScriptMinSize->8, FontSize->Scaled[0.006189383406757125], FontWeight->Plain], {1206.32, 50.}], LineBox[{{1203.548689030488, 54.7999105991947}, {1181.32, 93.30000000000001}}], {GrayLevel[0], InsetBox[ StyleBox["\<\"C\"\>", StripOnInput->False, ScriptSizeMultipliers->0.8, ScriptMinSize->8, FontSize->Scaled[0.006189383406757125], FontWeight->Plain], {1156.32, 136.60000000000002`}], LineBox[{{1181.32, 93.30000000000001}, {1159.0913109695118`, 131.80008940080532`}}]}}, {GrayLevel[0], AbsoluteThickness[0.55], InsetBox[ StyleBox["\<\"C\"\>", StripOnInput->False, ScriptSizeMultipliers->0.8, ScriptMinSize->8, FontSize->Scaled[0.006189383406757125], FontWeight->Plain], {1292.92, 0.}], LineBox[{{1292.92, -5.5424999999999045`}, {1292.92, -50.}}], {GrayLevel[0], InsetBox[ StyleBox["\<\"C\"\>", StripOnInput->False, ScriptSizeMultipliers->0.8, ScriptMinSize->8, FontSize->Scaled[0.006189383406757125], FontWeight->Plain], {1292.92, -100.}], LineBox[{{1292.92, -50.}, {1292.92, -94.4575000000001}}]}}, {GrayLevel[0], AbsoluteThickness[0.55], InsetBox[ StyleBox["\<\"C\"\>", StripOnInput->False, ScriptSizeMultipliers->0.8, ScriptMinSize->8, FontSize->Scaled[0.006189383406757125], FontWeight->Plain], {1292.92, 0.}], LineBox[{{1298.3782438477342`, -0.9627462535227007}, {1323.45, -5.385}}], {GrayLevel[0], InsetBox[ StyleBox["\<\"H\"\>", StripOnInput->False, ScriptSizeMultipliers->0.8, ScriptMinSize->8, FontSize->Scaled[0.006189383406757125], FontWeight->Plain], {1353.98, -10.77}], LineBox[{{1323.45, -5.385}, { 1348.5217561522659`, -9.807253746477299}}]}}, {GrayLevel[0], AbsoluteThickness[0.55], InsetBox[ StyleBox["\<\"C\"\>", StripOnInput->False, ScriptSizeMultipliers->0.8, ScriptMinSize->8, FontSize->Scaled[0.006189383406757125], FontWeight->Plain], {1292.92, 0.}], LineBox[{{1294.8160487556408`, 5.208099976597248}, {1303.525, 29.13}}], {GrayLevel[0], InsetBox[ StyleBox["\<\"H\"\>", StripOnInput->False, ScriptSizeMultipliers->0.8, ScriptMinSize->8, FontSize->Scaled[0.006189383406757125], FontWeight->Plain], {1314.1299999999999`, 58.26}], LineBox[{{1303.525, 29.13}, {1312.233951244359, 53.05190002340274}}]}}, {GrayLevel[0], AbsoluteThickness[0.55], InsetBox[ StyleBox["\<\"C\"\>", StripOnInput->False, ScriptSizeMultipliers->0.8, ScriptMinSize->8, FontSize->Scaled[0.006189383406757125], FontWeight->Plain], {1292.92, -100.}], LineBox[{{1288.1200894008055`, -102.77131096951194`}, {1249.62, -125.}}], {GrayLevel[0], InsetBox[ StyleBox["\<\"C\"\>", StripOnInput->False, ScriptSizeMultipliers->0.8, ScriptMinSize->8, FontSize->Scaled[0.006189383406757125], FontWeight->Plain], {1206.32, -150.}], LineBox[{{1249.62, -125.}, { 1211.1199105991946`, -147.22868903048806`}}]}}, {GrayLevel[0], AbsoluteThickness[0.55], InsetBox[ StyleBox["\<\"C\"\>", StripOnInput->False, ScriptSizeMultipliers->0.8, ScriptMinSize->8, FontSize->Scaled[0.006189383406757125], FontWeight->Plain], {1292.92, -100.}], LineBox[{{1294.8160487556408`, -105.20809997659725`}, { 1303.525, -129.13}}], {GrayLevel[0], InsetBox[ StyleBox["\<\"H\"\>", StripOnInput->False, ScriptSizeMultipliers->0.8, ScriptMinSize->8, FontSize->Scaled[0.006189383406757125], FontWeight->Plain], {1314.1299999999999`, -158.26}], LineBox[{{1303.525, -129.13}, { 1312.233951244359, -153.05190002340274`}}]}}, {GrayLevel[0], AbsoluteThickness[0.55], InsetBox[ StyleBox["\<\"C\"\>", StripOnInput->False, ScriptSizeMultipliers->0.8, ScriptMinSize->8, FontSize->Scaled[0.006189383406757125], FontWeight->Plain], {1292.92, -100.}], LineBox[{{1298.3782438477342`, -99.0372537464773}, { 1323.45, -94.61500000000001}}], {GrayLevel[0], InsetBox[ StyleBox["\<\"H\"\>", StripOnInput->False, ScriptSizeMultipliers->0.8, ScriptMinSize->8, FontSize->Scaled[0.006189383406757125], FontWeight->Plain], {1353.98, -89.23}], LineBox[{{1323.45, -94.61500000000001}, { 1348.5217561522659`, -90.1927462535227}}]}}, {GrayLevel[0], AbsoluteThickness[0.55], InsetBox[ StyleBox["\<\"C\"\>", StripOnInput->False, ScriptSizeMultipliers->0.8, ScriptMinSize->8, FontSize->Scaled[0.006189383406757125], FontWeight->Plain], {1119.72, 0.}], LineBox[{{{1124.72, -5.5424999999999045`}, {1124.72, -50.}}, {{ 1114.72, -5.5424999999999045`}, {1114.72, -50.}}}], {GrayLevel[0], InsetBox[ StyleBox["\<\"C\"\>", StripOnInput->False, ScriptSizeMultipliers->0.8, ScriptMinSize->8, FontSize->Scaled[0.006189383406757125], FontWeight->Plain], {1119.72, -100.}], LineBox[{{{1124.72, -50.}, {1124.72, -94.4575000000001}}, {{ 1114.72, -50.}, {1114.72, -94.4575000000001}}}]}}, {GrayLevel[0], AbsoluteThickness[0.55], InsetBox[ StyleBox["\<\"C\"\>", StripOnInput->False, ScriptSizeMultipliers->0.8, ScriptMinSize->8, FontSize->Scaled[0.006189383406757125], FontWeight->Plain], {1119.72, 0.}], LineBox[{{1114.9200894008054`, 2.7713109695119558`}, {1076.42, 25.}}], {GrayLevel[0], InsetBox[ StyleBox["\<\"C\"\>", StripOnInput->False, ScriptSizeMultipliers->0.8, ScriptMinSize->8, FontSize->Scaled[0.006189383406757125], FontWeight->Plain], {1033.1200000000001`, 50.}], LineBox[{{1076.42, 25.}, {1037.9199105991947`, 47.22868903048804}}]}}, {GrayLevel[0], AbsoluteThickness[0.55], InsetBox[ StyleBox["\<\"C\"\>", StripOnInput->False, ScriptSizeMultipliers->0.8, ScriptMinSize->8, FontSize->Scaled[0.006189383406757125], FontWeight->Plain], {1206.32, -150.}], LineBox[{{1201.5200894008053`, -147.22868903048806`}, {1163.02, -125.}}], {GrayLevel[0], InsetBox[ StyleBox["\<\"C\"\>", StripOnInput->False, ScriptSizeMultipliers->0.8, ScriptMinSize->8, FontSize->Scaled[0.006189383406757125], FontWeight->Plain], {1119.72, -100.}], LineBox[{{1163.02, -125.}, { 1124.5199105991946`, -102.77131096951196`}}]}}, {GrayLevel[0], AbsoluteThickness[0.55], InsetBox[ StyleBox["\<\"C\"\>", StripOnInput->False, ScriptSizeMultipliers->0.8, ScriptMinSize->8, FontSize->Scaled[0.006189383406757125], FontWeight->Plain], {1206.32, -150.}], LineBox[{{1202.7572888934917`, -154.24575032492038`}, { 1186.395, -173.745}}], {GrayLevel[0], InsetBox[ StyleBox["\<\"H\"\>", StripOnInput->False, ScriptSizeMultipliers->0.8, ScriptMinSize->8, FontSize->Scaled[0.006189383406757125], FontWeight->Plain], {1166.47, -197.49}], LineBox[{{1186.395, -173.745}, { 1170.0327111065083`, -193.24424967507963`}}]}}, {GrayLevel[0], AbsoluteThickness[0.55], InsetBox[ StyleBox["\<\"C\"\>", StripOnInput->False, ScriptSizeMultipliers->0.8, ScriptMinSize->8, FontSize->Scaled[0.006189383406757125], FontWeight->Plain], {1206.32, -150.}], LineBox[{{1209.8827111065082`, -154.24575032492038`}, { 1226.245, -173.745}}], {GrayLevel[0], InsetBox[ StyleBox["\<\"H\"\>", StripOnInput->False, ScriptSizeMultipliers->0.8, ScriptMinSize->8, FontSize->Scaled[0.006189383406757125], FontWeight->Plain], {1246.17, -197.49}], LineBox[{{1226.245, -173.745}, { 1242.6072888934918`, -193.24424967507963`}}]}}, {GrayLevel[0], AbsoluteThickness[0.55], InsetBox[ StyleBox["\<\"C\"\>", StripOnInput->False, ScriptSizeMultipliers->0.8, ScriptMinSize->8, FontSize->Scaled[0.006189383406757125], FontWeight->Plain], {1119.72, -100.}], LineBox[{{1114.9200894008054`, -102.77131096951196`}, {1076.42, -125.}}], {GrayLevel[0], InsetBox[ StyleBox["\<\"C\"\>", StripOnInput->False, ScriptSizeMultipliers->0.8, ScriptMinSize->8, FontSize->Scaled[0.006189383406757125], FontWeight->Plain], {1033.1200000000001`, -150.}], LineBox[{{1076.42, -125.}, { 1037.9199105991947`, -147.22868903048806`}}]}}, {GrayLevel[0], AbsoluteThickness[0.55], InsetBox[ StyleBox["\<\"C\"\>", StripOnInput->False, ScriptSizeMultipliers->0.8, ScriptMinSize->8, FontSize->Scaled[0.006189383406757125], FontWeight->Plain], {1256.32, 136.60000000000002`}], LineBox[{{1251.5201341032093`, 139.37138839263383`}, {1229.475, 152.10000000000002`}}], {GrayLevel[0], InsetBox[ StyleBox["\<\"H\"\>", StripOnInput->False, ScriptSizeMultipliers->0.8, ScriptMinSize->8, FontSize->Scaled[0.006189383406757125], FontWeight->Plain], {1202.63, 167.6}], LineBox[{{1229.475, 152.10000000000002`}, {1207.4298658967907`, 164.82861160736618`}}]}}, {GrayLevel[0], AbsoluteThickness[0.55], InsetBox[ StyleBox["\<\"C\"\>", StripOnInput->False, ScriptSizeMultipliers->0.8, ScriptMinSize->8, FontSize->Scaled[0.006189383406757125], FontWeight->Plain], {1256.32, 136.60000000000002`}], LineBox[{{1259.0910013130706`, 141.40008937135133`}, { 1271.8200000000002`, 163.45000000000002`}}], {GrayLevel[0], InsetBox[ StyleBox["\<\"H\"\>", StripOnInput->False, ScriptSizeMultipliers->0.8, ScriptMinSize->8, FontSize->Scaled[0.006189383406757125], FontWeight->Plain], {1287.3200000000002`, 190.3}], LineBox[{{1271.8200000000002`, 163.45000000000002`}, { 1284.5489986869295`, 185.49991062864868`}}]}}, {GrayLevel[0], AbsoluteThickness[0.55], InsetBox[ StyleBox["\<\"C\"\>", StripOnInput->False, ScriptSizeMultipliers->0.8, ScriptMinSize->8, FontSize->Scaled[0.006189383406757125], FontWeight->Plain], {1256.32, 136.60000000000002`}], LineBox[{{1261.1200893713512`, 133.82899868692942`}, {1283.17, 121.10000000000002`}}], {GrayLevel[0], InsetBox[ StyleBox["\<\"H\"\>", StripOnInput->False, ScriptSizeMultipliers->0.8, ScriptMinSize->8, FontSize->Scaled[0.006189383406757125], FontWeight->Plain], {1310.02, 105.60000000000001`}], LineBox[{{1283.17, 121.10000000000002`}, {1305.2199106286487`, 108.37100131307062`}}]}}, {GrayLevel[0], AbsoluteThickness[0.55], InsetBox[ StyleBox["\<\"C\"\>", StripOnInput->False, ScriptSizeMultipliers->0.8, ScriptMinSize->8, FontSize->Scaled[0.006189383406757125], FontWeight->Plain], {1156.32, 136.60000000000002`}], LineBox[{{1151.5201341032093`, 133.8286116073662}, {1129.475, 121.10000000000002`}}], {GrayLevel[0], InsetBox[ StyleBox["\<\"H\"\>", StripOnInput->False, ScriptSizeMultipliers->0.8, ScriptMinSize->8, FontSize->Scaled[0.006189383406757125], FontWeight->Plain], {1102.63, 105.60000000000001`}], LineBox[{{1129.475, 121.10000000000002`}, {1107.4298658967907`, 108.37138839263383`}}]}}, {GrayLevel[0], AbsoluteThickness[0.55], InsetBox[ StyleBox["\<\"C\"\>", StripOnInput->False, ScriptSizeMultipliers->0.8, ScriptMinSize->8, FontSize->Scaled[0.006189383406757125], FontWeight->Plain], {1156.32, 136.60000000000002`}], LineBox[{{1153.5489986869293`, 141.40008937135136`}, {1140.82, 163.45000000000002`}}], {GrayLevel[0], InsetBox[ StyleBox["\<\"H\"\>", StripOnInput->False, ScriptSizeMultipliers->0.8, ScriptMinSize->8, FontSize->Scaled[0.006189383406757125], FontWeight->Plain], {1125.32, 190.3}], LineBox[{{1140.82, 163.45000000000002`}, {1128.0910013130706`, 185.49991062864868`}}]}}, {GrayLevel[0], AbsoluteThickness[0.55], InsetBox[ StyleBox["\<\"C\"\>", StripOnInput->False, ScriptSizeMultipliers->0.8, ScriptMinSize->8, FontSize->Scaled[0.006189383406757125], FontWeight->Plain], {1156.32, 136.60000000000002`}], LineBox[{{1161.1200893713512`, 139.37100131307062`}, {1183.17, 152.10000000000002`}}], {GrayLevel[0], InsetBox[ StyleBox["\<\"H\"\>", StripOnInput->False, ScriptSizeMultipliers->0.8, ScriptMinSize->8, FontSize->Scaled[0.006189383406757125], FontWeight->Plain], {1210.02, 167.6}], LineBox[{{1183.17, 152.10000000000002`}, {1205.2199106286487`, 164.8289986869294}}]}}, {GrayLevel[0], AbsoluteThickness[0.55], InsetBox[ StyleBox["\<\"C\"\>", StripOnInput->False, ScriptSizeMultipliers->0.8, ScriptMinSize->8, FontSize->Scaled[0.006189383406757125], FontWeight->Plain], {1033.1200000000001`, 50.}], LineBox[{{{1030.8199508471591`, 42.898429019258174`}, {992.315, 20.669499999999992`}}, {{1025.8199508471591`, 51.55942901925819}, { 987.315, 29.330500000000008`}}}], {GrayLevel[0], InsetBox[ StyleBox["\<\"C\"\>", StripOnInput->False, ScriptSizeMultipliers->0.8, ScriptMinSize->8, FontSize->Scaled[0.006189383406757125], FontWeight->Plain], {946.51, 0.}], LineBox[{{{992.315, 20.669499999999992`}, { 953.810049152841, -1.5594290192581859`}}, {{987.315, 29.330500000000008`}, {948.810049152841, 7.101570980741828}}}]}}, {GrayLevel[0], AbsoluteThickness[0.55], InsetBox[ StyleBox["\<\"C\"\>", StripOnInput->False, ScriptSizeMultipliers->0.8, ScriptMinSize->8, FontSize->Scaled[0.006189383406757125], FontWeight->Plain], {1033.1200000000001`, 50.}], LineBox[{{1033.1200000000001`, 55.542499999999905`}, { 1033.1200000000001`, 81.}}], {GrayLevel[0], InsetBox[ StyleBox["\<\"H\"\>", StripOnInput->False, ScriptSizeMultipliers->0.8, ScriptMinSize->8, FontSize->Scaled[0.006189383406757125], FontWeight->Plain], {1033.1200000000001`, 112.00000000000001`}], LineBox[{{1033.1200000000001`, 81.}, {1033.1200000000001`, 106.45750000000011`}}]}}, {GrayLevel[0], AbsoluteThickness[0.55], InsetBox[ StyleBox["\<\"C\"\>", StripOnInput->False, ScriptSizeMultipliers->0.8, ScriptMinSize->8, FontSize->Scaled[0.006189383406757125], FontWeight->Plain], {1033.1200000000001`, -150.}], LineBox[{{1035.8913883926339`, -154.79986589679064`}, { 1048.62, -176.84500000000003`}}], {GrayLevel[0], InsetBox[ StyleBox["\<\"H\"\>", StripOnInput->False, ScriptSizeMultipliers->0.8, ScriptMinSize->8, FontSize->Scaled[0.006189383406757125], FontWeight->Plain], {1064.12, -203.69000000000003`}], LineBox[{{1048.62, -176.84500000000003`}, { 1061.3486116073661`, -198.89013410320942`}}]}}, {GrayLevel[0], AbsoluteThickness[0.55], InsetBox[ StyleBox["\<\"C\"\>", StripOnInput->False, ScriptSizeMultipliers->0.8, ScriptMinSize->8, FontSize->Scaled[0.006189383406757125], FontWeight->Plain], {1033.1200000000001`, -150.}], LineBox[{{1028.3199106286488`, -152.7710013130706}, {1006.27, -165.5}}], {GrayLevel[0], InsetBox[ StyleBox["\<\"H\"\>", StripOnInput->False, ScriptSizeMultipliers->0.8, ScriptMinSize->8, FontSize->Scaled[0.006189383406757125], FontWeight->Plain], {979.42, -181.}], LineBox[{{1006.27, -165.5}, {984.2200893713513, -178.2289986869294}}]}}, {GrayLevel[0], AbsoluteThickness[0.55], InsetBox[ StyleBox["\<\"C\"\>", StripOnInput->False, ScriptSizeMultipliers->0.8, ScriptMinSize->8, FontSize->Scaled[0.006189383406757125], FontWeight->Plain], {1033.1200000000001`, -150.}], LineBox[{{1030.3486116073664`, -145.2001341032094}, { 1017.6200000000001`, -123.155}}], {GrayLevel[0], InsetBox[ StyleBox["\<\"H\"\>", StripOnInput->False, ScriptSizeMultipliers->0.8, ScriptMinSize->8, FontSize->Scaled[0.006189383406757125], FontWeight->Plain], {1002.12, -96.31}], LineBox[{{1017.6200000000001`, -123.155}, { 1004.8913883926339`, -101.10986589679061`}}]}}, {GrayLevel[0], AbsoluteThickness[0.55], InsetBox[ StyleBox["\<\"C\"\>", StripOnInput->False, ScriptSizeMultipliers->0.8, ScriptMinSize->8, FontSize->Scaled[0.006189383406757125], FontWeight->Plain], {946.51, 0.}], LineBox[{{941.7100894008053, 2.7713109695119558`}, {903.21, 25.}}], {GrayLevel[0], InsetBox[ StyleBox["\<\"C\"\>", StripOnInput->False, ScriptSizeMultipliers->0.8, ScriptMinSize->8, FontSize->Scaled[0.006189383406757125], FontWeight->Plain], {859.91, 50.}], LineBox[{{903.21, 25.}, {864.7099105991947, 47.22868903048805}}]}}, {GrayLevel[0], AbsoluteThickness[0.55], InsetBox[ StyleBox["\<\"C\"\>", StripOnInput->False, ScriptSizeMultipliers->0.8, ScriptMinSize->8, FontSize->Scaled[0.006189383406757125], FontWeight->Plain], {946.51, 0.}], LineBox[{{946.51, -5.5424999999999045`}, {946.51, -31.}}], {GrayLevel[0], InsetBox[ StyleBox["\<\"H\"\>", StripOnInput->False, ScriptSizeMultipliers->0.8, ScriptMinSize->8, FontSize->Scaled[0.006189383406757125], FontWeight->Plain], {946.51, -62.}], LineBox[{{946.51, -31.}, {946.51, -56.457500000000095`}}]}}, {GrayLevel[0], AbsoluteThickness[0.55], InsetBox[ StyleBox["\<\"C\"\>", StripOnInput->False, ScriptSizeMultipliers->0.8, ScriptMinSize->8, FontSize->Scaled[0.006189383406757125], FontWeight->Plain], {859.91, 50.}], LineBox[{{859.91, 55.542499999999905`}, {859.91, 100.}}], {GrayLevel[0], InsetBox[ StyleBox["\<\"C\"\>", StripOnInput->False, ScriptSizeMultipliers->0.8, ScriptMinSize->8, FontSize->Scaled[0.006189383406757125], FontWeight->Plain], {859.91, 150.}], LineBox[{{859.91, 100.}, {859.91, 144.4575000000001}}]}}, {GrayLevel[0], AbsoluteThickness[0.55], InsetBox[ StyleBox["\<\"C\"\>", StripOnInput->False, ScriptSizeMultipliers->0.8, ScriptMinSize->8, FontSize->Scaled[0.006189383406757125], FontWeight->Plain], {859.91, 50.}], LineBox[{{{857.6100894008052, 42.89868903048804}, {819.11, 20.670000000000005`}}, {{852.6100894008052, 51.55868903048804}, {814.11, 29.329999999999995`}}}], {GrayLevel[0], InsetBox[ StyleBox["\<\"C\"\>", StripOnInput->False, ScriptSizeMultipliers->0.8, ScriptMinSize->8, FontSize->Scaled[0.006189383406757125], FontWeight->Plain], {773.3100000000001, 0.}], LineBox[{{{819.11, 20.670000000000005`}, { 780.6099105991948, -1.5586890304880399`}}, {{814.11, 29.329999999999995`}, {775.6099105991948, 7.101310969511951}}}]}}, {GrayLevel[0], AbsoluteThickness[0.55], InsetBox[ StyleBox["\<\"C\"\>", StripOnInput->False, ScriptSizeMultipliers->0.8, ScriptMinSize->8, FontSize->Scaled[0.006189383406757125], FontWeight->Plain], {859.91, 150.}], LineBox[{{865.4524999999999, 150.}, {890.91, 150.}}], {GrayLevel[0], InsetBox[ StyleBox["\<\"H\"\>", StripOnInput->False, ScriptSizeMultipliers->0.8, ScriptMinSize->8, FontSize->Scaled[0.006189383406757125], FontWeight->Plain], {921.91, 150.}], LineBox[{{890.91, 150.}, {916.3675000000001, 150.}}]}}, {GrayLevel[0], AbsoluteThickness[0.55], InsetBox[ StyleBox["\<\"C\"\>", StripOnInput->False, ScriptSizeMultipliers->0.8, ScriptMinSize->8, FontSize->Scaled[0.006189383406757125], FontWeight->Plain], {859.91, 150.}], LineBox[{{859.91, 155.5424999999999}, {859.91, 181.}}], {GrayLevel[0], InsetBox[ StyleBox["\<\"H\"\>", StripOnInput->False, ScriptSizeMultipliers->0.8, ScriptMinSize->8, FontSize->Scaled[0.006189383406757125], FontWeight->Plain], {859.91, 212.}], LineBox[{{859.91, 181.}, {859.91, 206.4575000000001}}]}}, {GrayLevel[0], AbsoluteThickness[0.55], InsetBox[ StyleBox["\<\"C\"\>", StripOnInput->False, ScriptSizeMultipliers->0.8, ScriptMinSize->8, FontSize->Scaled[0.006189383406757125], FontWeight->Plain], {859.91, 150.}], LineBox[{{854.3675000000001, 150.}, {828.91, 150.}}], {GrayLevel[0], InsetBox[ StyleBox["\<\"H\"\>", StripOnInput->False, ScriptSizeMultipliers->0.8, ScriptMinSize->8, FontSize->Scaled[0.006189383406757125], FontWeight->Plain], {797.91, 150.}], LineBox[{{828.91, 150.}, {803.4524999999999, 150.}}]}}, {GrayLevel[0], AbsoluteThickness[0.55], InsetBox[ StyleBox["\<\"C\"\>", StripOnInput->False, ScriptSizeMultipliers->0.8, ScriptMinSize->8, FontSize->Scaled[0.006189383406757125], FontWeight->Plain], {773.3100000000001, 0.}], LineBox[{{768.5100894008053, 2.771310969511951}, {730.01, 25.}}], {GrayLevel[0], InsetBox[ StyleBox["\<\"C\"\>", StripOnInput->False, ScriptSizeMultipliers->0.8, ScriptMinSize->8, FontSize->Scaled[0.006189383406757125], FontWeight->Plain], {686.7099999999999, 50.}], LineBox[{{730.01, 25.}, {691.5099105991947, 47.22868903048805}}]}}, {GrayLevel[0], AbsoluteThickness[0.55], InsetBox[ StyleBox["\<\"C\"\>", StripOnInput->False, ScriptSizeMultipliers->0.8, ScriptMinSize->8, FontSize->Scaled[0.006189383406757125], FontWeight->Plain], {773.3100000000001, 0.}], LineBox[{{773.3100000000001, -5.5424999999999045`}, { 773.3100000000001, -31.}}], {GrayLevel[0], InsetBox[ StyleBox["\<\"H\"\>", StripOnInput->False, ScriptSizeMultipliers->0.8, ScriptMinSize->8, FontSize->Scaled[0.006189383406757125], FontWeight->Plain], {773.3100000000001, -62.}], LineBox[{{773.3100000000001, -31.}, { 773.3100000000001, -56.457500000000095`}}]}}, {GrayLevel[0], AbsoluteThickness[0.55], InsetBox[ StyleBox["\<\"C\"\>", StripOnInput->False, ScriptSizeMultipliers->0.8, ScriptMinSize->8, FontSize->Scaled[0.006189383406757125], FontWeight->Plain], {686.7099999999999, 50.}], LineBox[{{{684.4099508471589, 42.89842901925818}, {645.905, 20.669500000000006`}}, {{679.4099508471589, 51.55942901925817}, { 640.905, 29.330499999999994`}}}], {GrayLevel[0], InsetBox[ StyleBox["\<\"C\"\>", StripOnInput->False, ScriptSizeMultipliers->0.8, ScriptMinSize->8, FontSize->Scaled[0.006189383406757125], FontWeight->Plain], {600.1, 0.}], LineBox[{{{645.905, 20.669500000000006`}, { 607.400049152841, -1.5594290192581686`}}, {{640.905, 29.330499999999994`}, {602.400049152841, 7.101570980741823}}}]}}, {GrayLevel[0], AbsoluteThickness[0.55], InsetBox[ StyleBox["\<\"C\"\>", StripOnInput->False, ScriptSizeMultipliers->0.8, ScriptMinSize->8, FontSize->Scaled[0.006189383406757125], FontWeight->Plain], {686.7099999999999, 50.}], LineBox[{{686.7099999999999, 55.542499999999905`}, {686.7099999999999, 81.}}], {GrayLevel[0], InsetBox[ StyleBox["\<\"H\"\>", StripOnInput->False, ScriptSizeMultipliers->0.8, ScriptMinSize->8, FontSize->Scaled[0.006189383406757125], FontWeight->Plain], {686.7099999999999, 112.00000000000001`}], LineBox[{{686.7099999999999, 81.}, {686.7099999999999, 106.45750000000011`}}]}}, {GrayLevel[0], AbsoluteThickness[0.55], InsetBox[ StyleBox["\<\"C\"\>", StripOnInput->False, ScriptSizeMultipliers->0.8, ScriptMinSize->8, FontSize->Scaled[0.006189383406757125], FontWeight->Plain], {600.1, 0.}], LineBox[{{595.3000894008053, 2.771310969511951}, {556.8, 25.}}], {GrayLevel[0], InsetBox[ StyleBox["\<\"C\"\>", StripOnInput->False, ScriptSizeMultipliers->0.8, ScriptMinSize->8, FontSize->Scaled[0.006189383406757125], FontWeight->Plain], {513.5, 50.}], LineBox[{{556.8, 25.}, {518.2999105991947, 47.22868903048804}}]}}, {GrayLevel[0], AbsoluteThickness[0.55], InsetBox[ StyleBox["\<\"C\"\>", StripOnInput->False, ScriptSizeMultipliers->0.8, ScriptMinSize->8, FontSize->Scaled[0.006189383406757125], FontWeight->Plain], {600.1, 0.}], LineBox[{{600.1, -5.5424999999999045`}, {600.1, -31.}}], {GrayLevel[0], InsetBox[ StyleBox["\<\"H\"\>", StripOnInput->False, ScriptSizeMultipliers->0.8, ScriptMinSize->8, FontSize->Scaled[0.006189383406757125], FontWeight->Plain], {600.1, -62.}], LineBox[{{600.1, -31.}, {600.1, -56.457500000000095`}}]}}, {GrayLevel[0], AbsoluteThickness[0.55], InsetBox[ StyleBox["\<\"C\"\>", StripOnInput->False, ScriptSizeMultipliers->0.8, ScriptMinSize->8, FontSize->Scaled[0.006189383406757125], FontWeight->Plain], {513.5, 50.}], LineBox[{{513.5, 55.542499999999905`}, {513.5, 100.}}], {GrayLevel[0], InsetBox[ StyleBox["\<\"C\"\>", StripOnInput->False, ScriptSizeMultipliers->0.8, ScriptMinSize->8, FontSize->Scaled[0.006189383406757125], FontWeight->Plain], {513.5, 150.}], LineBox[{{513.5, 100.}, {513.5, 144.4575000000001}}]}}, {GrayLevel[0], AbsoluteThickness[0.55], InsetBox[ StyleBox["\<\"C\"\>", StripOnInput->False, ScriptSizeMultipliers->0.8, ScriptMinSize->8, FontSize->Scaled[0.006189383406757125], FontWeight->Plain], {513.5, 50.}], LineBox[{{{511.2000894008053, 42.89868903048804}, {472.70000000000005`, 20.67}}, {{506.2000894008053, 51.55868903048804}, {467.70000000000005`, 29.33}}}], {GrayLevel[0], InsetBox[ StyleBox["\<\"C\"\>", StripOnInput->False, ScriptSizeMultipliers->0.8, ScriptMinSize->8, FontSize->Scaled[0.006189383406757125], FontWeight->Plain], {426.90000000000003`, 0.}], LineBox[{{{472.70000000000005`, 20.67}, { 434.19991059919477`, -1.5586890304880456`}}, {{467.70000000000005`, 29.33}, {429.19991059919477`, 7.101310969511951}}}]}}, {GrayLevel[0], AbsoluteThickness[0.55], InsetBox[ StyleBox["\<\"C\"\>", StripOnInput->False, ScriptSizeMultipliers->0.8, ScriptMinSize->8, FontSize->Scaled[0.006189383406757125], FontWeight->Plain], {513.5, 150.}], LineBox[{{507.9575000000001, 150.}, {482.5, 150.}}], {GrayLevel[0], InsetBox[ StyleBox["\<\"H\"\>", StripOnInput->False, ScriptSizeMultipliers->0.8, ScriptMinSize->8, FontSize->Scaled[0.006189383406757125], FontWeight->Plain], {451.49999999999994`, 150.}], LineBox[{{482.5, 150.}, {457.04249999999985`, 150.}}]}}, {GrayLevel[0], AbsoluteThickness[0.55], InsetBox[ StyleBox["\<\"C\"\>", StripOnInput->False, ScriptSizeMultipliers->0.8, ScriptMinSize->8, FontSize->Scaled[0.006189383406757125], FontWeight->Plain], {513.5, 150.}], LineBox[{{513.5, 155.5424999999999}, {513.5, 181.}}], {GrayLevel[0], InsetBox[ StyleBox["\<\"H\"\>", StripOnInput->False, ScriptSizeMultipliers->0.8, ScriptMinSize->8, FontSize->Scaled[0.006189383406757125], FontWeight->Plain], {513.5, 212.}], LineBox[{{513.5, 181.}, {513.5, 206.4575000000001}}]}}, {GrayLevel[0], AbsoluteThickness[0.55], InsetBox[ StyleBox["\<\"C\"\>", StripOnInput->False, ScriptSizeMultipliers->0.8, ScriptMinSize->8, FontSize->Scaled[0.006189383406757125], FontWeight->Plain], {513.5, 150.}], LineBox[{{519.0424999999999, 150.}, {544.5, 150.}}], {GrayLevel[0], InsetBox[ StyleBox["\<\"H\"\>", StripOnInput->False, ScriptSizeMultipliers->0.8, ScriptMinSize->8, FontSize->Scaled[0.006189383406757125], FontWeight->Plain], {575.5, 150.}], LineBox[{{544.5, 150.}, {569.9575000000001, 150.}}]}}, {GrayLevel[0], AbsoluteThickness[0.55], InsetBox[ StyleBox["\<\"C\"\>", StripOnInput->False, ScriptSizeMultipliers->0.8, ScriptMinSize->8, FontSize->Scaled[0.006189383406757125], FontWeight->Plain], {426.90000000000003`, 0.}], LineBox[{{422.1000894008053, 2.7713109695119527`}, {383.6, 25.}}], {GrayLevel[0], InsetBox[ StyleBox["\<\"C\"\>", StripOnInput->False, ScriptSizeMultipliers->0.8, ScriptMinSize->8, FontSize->Scaled[0.006189383406757125], FontWeight->Plain], {340.3, 50.}], LineBox[{{383.6, 25.}, {345.09991059919474`, 47.22868903048805}}]}}, {GrayLevel[0], AbsoluteThickness[0.55], InsetBox[ StyleBox["\<\"C\"\>", StripOnInput->False, ScriptSizeMultipliers->0.8, ScriptMinSize->8, FontSize->Scaled[0.006189383406757125], FontWeight->Plain], {426.90000000000003`, 0.}], LineBox[{{426.90000000000003`, -5.5424999999999045`}, { 426.90000000000003`, -31.}}], {GrayLevel[0], InsetBox[ StyleBox["\<\"H\"\>", StripOnInput->False, ScriptSizeMultipliers->0.8, ScriptMinSize->8, FontSize->Scaled[0.006189383406757125], FontWeight->Plain], {426.90000000000003`, -62.}], LineBox[{{426.90000000000003`, -31.}, { 426.90000000000003`, -56.457500000000095`}}]}}, {GrayLevel[0], AbsoluteThickness[0.55], InsetBox[ StyleBox["\<\"C\"\>", StripOnInput->False, ScriptSizeMultipliers->0.8, ScriptMinSize->8, FontSize->Scaled[0.006189383406757125], FontWeight->Plain], {340.3, 50.}], LineBox[{{336.7367643491139, 54.245310111906214`}, {320.37, 73.745}}], {GrayLevel[0], InsetBox[ StyleBox["\<\"H\"\>", StripOnInput->False, ScriptSizeMultipliers->0.8, ScriptMinSize->8, FontSize->Scaled[0.006189383406757125], FontWeight->Plain], {300.44, 97.49}], LineBox[{{320.37, 73.745}, {304.0032356508861, 93.24468988809379}}]}}, {GrayLevel[0], AbsoluteThickness[0.55], InsetBox[ StyleBox["\<\"C\"\>", StripOnInput->False, ScriptSizeMultipliers->0.8, ScriptMinSize->8, FontSize->Scaled[0.006189383406757125], FontWeight->Plain], {340.3, 50.}], LineBox[{{343.8627111065083, 54.24575032492039}, {360.225, 73.745}}], {GrayLevel[0], InsetBox[ StyleBox["\<\"H\"\>", StripOnInput->False, ScriptSizeMultipliers->0.8, ScriptMinSize->8, FontSize->Scaled[0.006189383406757125], FontWeight->Plain], {380.15, 97.49}], LineBox[{{360.225, 73.745}, {376.5872888934917, 93.2442496750796}}]}}}, {}, {}}, ImageSize->Large, PlotRange->{{180., 1373.98}, {-216.16070000000002`, 224.4707}}]], "Output", CellChangeTimes->{3.5727666195747695`*^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.5727666196215696`*^9}] }, Open ]], Cell[BoxData[ RowBox[{"(*", RowBox[{ RowBox[{"x", "=", RowBox[{"Table", "[", RowBox[{ RowBox[{"t", "[", RowBox[{"[", RowBox[{"i", ",", "1"}], "]"}], "]"}], ",", RowBox[{"{", RowBox[{"i", ",", "1", ",", "n"}], "}"}]}], "]"}]}], ";", "\[IndentingNewLine]", RowBox[{"y", "=", RowBox[{"Table", "[", RowBox[{ RowBox[{"t", "[", RowBox[{"[", RowBox[{"i", ",", "2"}], "]"}], "]"}], ",", RowBox[{"{", RowBox[{"i", ",", "1", ",", "n"}], "}"}]}], "]"}]}], ";", "\[IndentingNewLine]", RowBox[{"z", "=", RowBox[{"Table", "[", RowBox[{ RowBox[{"t", "[", RowBox[{"[", RowBox[{"i", ",", "3"}], "]"}], "]"}], ",", RowBox[{"{", RowBox[{"i", ",", "1", ",", "n"}], "}"}]}], "]"}]}], ";"}], "*)"}]], "Input", CellChangeTimes->{{3.5678630319943895`*^9, 3.5678630956269007`*^9}, { 3.5678632280087337`*^9, 3.567863228336334*^9}, {3.5678632621727934`*^9, 3.5678633509213495`*^9}, {3.5678644293824434`*^9, 3.567864451908883*^9}, { 3.567864923404111*^9, 3.56786494544695*^9}, {3.5678650143210707`*^9, 3.5678650845367947`*^9}, {3.567869231084096*^9, 3.567869278118179*^9}, { 3.5682778102931156`*^9, 3.5682778156907253`*^9}, 3.571808490989086*^9}], Cell[CellGroupData[{ Cell[BoxData[ RowBox[{ RowBox[{"(*", " ", RowBox[{"connected", " ", RowBox[{"pairs", ":", " ", RowBox[{ RowBox[{"distance", " ", "criteria"}], " ", "<", " ", RowBox[{"3.0", " ", "bohr"}]}]}]}], " ", "*)"}], "\[IndentingNewLine]", RowBox[{ RowBox[{ RowBox[{"Dij", "=", RowBox[{"Table", "[", RowBox[{ RowBox[{"If", "[", RowBox[{ RowBox[{"(", RowBox[{ RowBox[{ RowBox[{"dc", "[", RowBox[{"[", RowBox[{"i", ",", "j"}], "]"}], "]"}], "<", "3.0"}], "||", RowBox[{"(", RowBox[{ RowBox[{ RowBox[{"u", "[", RowBox[{"[", "i", "]"}], "]"}], "\[Equal]", "\"\\""}], " ", "&&", " ", RowBox[{"j", "\[Equal]", "10"}], " ", "&&", " ", RowBox[{"i", "\[Equal]", " ", "17"}]}], ")"}]}], ")"}], ",", RowBox[{"dc", "[", RowBox[{"[", RowBox[{"i", ",", "j"}], "]"}], "]"}], ",", "0"}], "]"}], ",", RowBox[{"{", RowBox[{"i", ",", "1", ",", "n"}], "}"}], ",", RowBox[{"{", RowBox[{"j", ",", "1", ",", "n"}], "}"}]}], "]"}]}], ";"}], "\[IndentingNewLine]", RowBox[{"MatrixForm", "[", RowBox[{"Prepend", "[", RowBox[{"Dij", ",", "num1"}], "]"}], "]"}]}]}]], "Input", CellChangeTimes->{{3.567863535157673*^9, 3.5678635412104836`*^9}, { 3.5678638182825704`*^9, 3.567863827283786*^9}, {3.5679503910983553`*^9, 3.5679504266352177`*^9}, {3.5679504653700857`*^9, 3.5679505048069553`*^9}, 3.567950534915008*^9, {3.567951107623214*^9, 3.567951136046464*^9}, 3.567951302545556*^9, {3.5679562986474605`*^9, 3.567956305355472*^9}, { 3.5679563590975666`*^9, 3.567956370688387*^9}, {3.567956414930065*^9, 3.567956430467692*^9}, {3.567956484740187*^9, 3.567956500667815*^9}, { 3.5679565456270943`*^9, 3.5679565868267665`*^9}, {3.5679569267045636`*^9, 3.5679569448941956`*^9}, {3.567956976562251*^9, 3.567957000711094*^9}, { 3.5679570348595533`*^9, 3.5679570632672033`*^9}, {3.5679573263928657`*^9, 3.5679573286548696`*^9}, {3.5679573611029263`*^9, 3.5679573637393312`*^9}, {3.5679592820903006`*^9, 3.567959317127962*^9}, { 3.567959397655304*^9, 3.5679594004945087`*^9}, {3.5679594704762316`*^9, 3.5679594724574347`*^9}, {3.567959655898157*^9, 3.567959673073787*^9}, 3.5681143121223865`*^9, 3.568121866388855*^9, 3.568220668221574*^9, { 3.568220718968463*^9, 3.568220723742071*^9}, {3.568220862051914*^9, 3.5682208641111183`*^9}, {3.568220906761593*^9, 3.5682209083527956`*^9}, { 3.5682209451844606`*^9, 3.5682209651680956`*^9}, {3.568221147782016*^9, 3.5682211695908546`*^9}, {3.568221237279373*^9, 3.568221253612602*^9}, { 3.568221305420293*^9, 3.568221306247094*^9}, {3.5682215161142635`*^9, 3.568221546206716*^9}, 3.56822158247678*^9, {3.568277819185131*^9, 3.5682778284359474`*^9}, 3.56882183684053*^9, {3.5688219650415554`*^9, 3.568821965915157*^9}, {3.5688769979329815`*^9, 3.5688771619984694`*^9}, { 3.568877204212144*^9, 3.5688772091729527`*^9}, {3.568877282493081*^9, 3.5688772843338842`*^9}, {3.568877374112042*^9, 3.568877378074449*^9}, { 3.56887744125456*^9, 3.5688774664954042`*^9}, {3.56887758366721*^9, 3.568877604867647*^9}, {3.568877667220957*^9, 3.5688776710429635`*^9}, { 3.5688778111156096`*^9, 3.56887782262843*^9}, {3.569341165522358*^9, 3.569341165522358*^9}, 3.5693418217375107`*^9, {3.5693429625675144`*^9, 3.5693429673099227`*^9}, {3.569390288837522*^9, 3.5693903143123665`*^9}, { 3.569390381798085*^9, 3.5693904158685455`*^9}, {3.5693905284539433`*^9, 3.569390564349606*^9}, {3.569390610868888*^9, 3.569390611056088*^9}, { 3.569390743671921*^9, 3.569390761487152*^9}, {3.569390843761697*^9, 3.569390861608128*^9}, {3.5693909829451413`*^9, 3.5693909887171516`*^9}, 3.5703416480920715`*^9, {3.5703416810237293`*^9, 3.5703416997437625`*^9}, 3.570341888192094*^9, {3.5705964879252462`*^9, 3.570596509843285*^9}, { 3.5705965495921545`*^9, 3.5705966388087115`*^9}, 3.570968886604662*^9, { 3.5709689930904493`*^9, 3.5709689944320517`*^9}, {3.5709690501397495`*^9, 3.570969050904151*^9}, {3.5709692134876366`*^9, 3.5709692140804377`*^9}, { 3.5709722325921392`*^9, 3.5709722334033403`*^9}, {3.5709723694355793`*^9, 3.570972545481889*^9}, {3.570972790558319*^9, 3.5709728063299465`*^9}, { 3.570972844066413*^9, 3.570972866764453*^9}, {3.5709729633598228`*^9, 3.57097298434186*^9}, {3.5709731454589424`*^9, 3.5709731466289444`*^9}, 3.570973453029083*^9, {3.5709736099653587`*^9, 3.570973638404208*^9}, { 3.571113899355363*^9, 3.571113958604267*^9}, 3.57111399989754*^9, { 3.5711140388820086`*^9, 3.571114044841219*^9}, {3.571115985874628*^9, 3.5711159997742524`*^9}}], Cell[BoxData[ TagBox[ RowBox[{"(", "\[NoBreak]", GridBox[{ {"1", "2", "3", "4", "5", "6", "7", "8", "9", "10", "11", "12", "13", "14", "15", "16", "17", "18", "19", "20", "21", "22", "23", "24", "25", "26", "27", "28", "29", "30", "31", "32", "33", "34", "35", "36", "37", "38", "39", "40", "41", "42", "43", "44", "45", "46", "47", "48", "49", "50", "51"}, {"0.`", "2.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.5727666196839695`*^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.5727666196839695`*^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.5727666196995697`*^9}] }, Open ]], Cell[CellGroupData[{ 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"}]}], "]"}]}], "]"}], "\[IndentingNewLine]", 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[{"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"}], "}"}]}], "]"}]}]}]}]], "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}}], Cell[BoxData[ RowBox[{"{", RowBox[{ "4", ",", "6", ",", "9", ",", "11", ",", "12", ",", "14", ",", "15", ",", "16", ",", "17", ",", "19"}], "}"}]], "Output", CellChangeTimes->{3.57276661971517*^9}] }, Open ]], Cell[CellGroupData[{ Cell[BoxData[ RowBox[{"MatrixForm", "[", RowBox[{"conn", ",", " ", RowBox[{"TableAlignments", "\[Rule]", "Left"}]}], "]"}]], "Input", CellChangeTimes->{{3.571124951132375*^9, 3.571124964985199*^9}, 3.5711250544357557`*^9, {3.5711252381260786`*^9, 3.571125242696887*^9}, { 3.571136059092702*^9, 3.5711361005731745`*^9}, {3.5711361560936728`*^9, 3.571136166779691*^9}, {3.5711362400686197`*^9, 3.571136243375826*^9}, { 3.57113630839674*^9, 3.5711363448852043`*^9}, {3.571136388861681*^9, 3.571136392215687*^9}, {3.5711365868732414`*^9, 3.571136607385415*^9}}], Cell[BoxData[ TagBox[ RowBox[{"(", "\[NoBreak]", TagBox[GridBox[{ { RowBox[{"{", RowBox[{"1", ",", "2", ",", "4", ",", "7", ",", "8"}], "}"}]}, { RowBox[{"{", RowBox[{"2", ",", "1", ",", "3", ",", "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.5727666197307696`*^9}] }, Open ]], Cell[CellGroupData[{ Cell[BoxData[{ RowBox[{ RowBox[{"Eij", "=", RowBox[{"Table", "[", RowBox[{ RowBox[{"If", "[", RowBox[{ RowBox[{"i", "\[GreaterEqual]", "j"}], ",", RowBox[{"Dij", "[", RowBox[{"[", RowBox[{"i", ",", "j"}], "]"}], "]"}], ",", "0"}], "]"}], ",", RowBox[{"{", RowBox[{"i", ",", "1", ",", RowBox[{"bc", "-", "1"}]}], "}"}], ",", RowBox[{"{", RowBox[{"j", ",", "1", ",", RowBox[{"bc", "-", "1"}]}], "}"}]}], "]"}]}], ";"}], "\[IndentingNewLine]", RowBox[{"CD", "=", RowBox[{"Select", "[", RowBox[{ RowBox[{"Flatten", "[", "Eij", "]"}], ",", RowBox[{ RowBox[{"(", RowBox[{ RowBox[{"#", "\[GreaterEqual]", "2.4"}], " ", "&&", RowBox[{"#", "\[LessEqual]", "2.6"}]}], ")"}], " ", "&"}]}], "]"}]}], "\[IndentingNewLine]", RowBox[{ RowBox[{"Mean", "[", "CD", "]"}], " ", "\[PlusMinus]", " ", RowBox[{"StandardDeviation", "[", "CD", "]"}]}]}], "Input", CellChangeTimes->{{3.5711447475554733`*^9, 3.5711448173314643`*^9}, { 3.5711448756027975`*^9, 3.57114492740276*^9}, {3.5711449591545763`*^9, 3.5711450128426466`*^9}, 3.571145059034289*^9, {3.571145091643154*^9, 3.5711451544367456`*^9}, {3.5711457670857873`*^9, 3.571145777413378*^9}, { 3.571145816908637*^9, 3.5711458203728347`*^9}, {3.571145995427848*^9, 3.571146043099574*^9}, {3.571146121580063*^9, 3.571146129714528*^9}, { 3.5711468466695356`*^9, 3.571146852041843*^9}, {3.5711478420384674`*^9, 3.571147850085928*^9}, {3.57114788911016*^9, 3.571147906822173*^9}, 3.571148086181432*^9, {3.571148123252552*^9, 3.5711481317480383`*^9}, { 3.571148234499915*^9, 3.57114834630731*^9}, 3.571151990091008*^9, { 3.5712017864539623`*^9, 3.5712018128960094`*^9}, {3.5712024819499846`*^9, 3.5712024821527843`*^9}, {3.571202538780884*^9, 3.5712025389368844`*^9}, { 3.5712028115629635`*^9, 3.5712028346354036`*^9}}], Cell[BoxData[ RowBox[{"{", RowBox[{ "2.496903311178327`", ",", "2.563079476006322`", ",", "2.569288589590436`", ",", "2.563021237668669`", ",", "2.5234179395658387`"}], "}"}]], "Output", CellChangeTimes->{3.5727666197463694`*^9}], Cell[BoxData[ RowBox[{"2.5431421108019188`", "\[PlusMinus]", "0.03163615846976897`"}]], "Output", CellChangeTimes->{3.5727666197463694`*^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.5727666197463694`*^9}], Cell[BoxData[ RowBox[{"2.825453749813209`", "\[PlusMinus]", "0.07826166491129986`"}]], "Output", CellChangeTimes->{3.5727666197619696`*^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.5727666197619696`*^9}], Cell[BoxData[ RowBox[{"2.055894359505152`", "\[PlusMinus]", "0.007777002172673031`"}]], "Output", CellChangeTimes->{3.57276661977757*^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.57276661979317*^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.57276661982437*^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.57276661982437*^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.57276661983997*^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.57276661985557*^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.57276661987117*^9}] }, Open ]], Cell[BoxData[ RowBox[{"\[IndentingNewLine]", RowBox[{ RowBox[{ RowBox[{"Mij", "=", RowBox[{"Prepend", "[", RowBox[{"Qij", ",", "u"}], "]"}]}], ";"}], "\[IndentingNewLine]", RowBox[{ RowBox[{"Oij", "=", RowBox[{"Transpose", "[", "Mij", "]"}]}], ";"}], "\[IndentingNewLine]", RowBox[{ RowBox[{"Pij", "=", RowBox[{"Prepend", "[", RowBox[{"Oij", ",", RowBox[{"Prepend", "[", RowBox[{"u", ",", "\"\< \>\""}], "]"}]}], "]"}]}], ";"}]}]}]], "Input", CellChangeTimes->{{3.568045828002715*^9, 3.56804588761042*^9}, 3.5680459828797874`*^9, {3.568046033938677*^9, 3.5680460518787084`*^9}, { 3.568046989190755*^9, 3.5680470284404235`*^9}, {3.568047061028881*^9, 3.568047085567724*^9}, {3.5680471562982483`*^9, 3.568047169199471*^9}, { 3.568047223393966*^9, 3.568047364059413*^9}, {3.568047417286707*^9, 3.5680474225127163`*^9}, {3.5680474583459787`*^9, 3.568047487861231*^9}, { 3.5680475345521126`*^9, 3.5680475468605347`*^9}, {3.5680479168775845`*^9, 3.5680479311516094`*^9}, {3.568048066918648*^9, 3.568048067667449*^9}, { 3.5680483816336*^9, 3.5680483930216208`*^9}, {3.568048424159275*^9, 3.568048450211321*^9}, {3.5680486326224413`*^9, 3.5680486370996494`*^9}, { 3.5680487358166227`*^9, 3.5680487967191296`*^9}, 3.568048834377596*^9, 3.568048984418659*^9, {3.5680490255559316`*^9, 3.5680490790796256`*^9}, { 3.5680491274553103`*^9, 3.5680491280949116`*^9}, {3.5680491782333994`*^9, 3.568049231944294*^9}, {3.568049361533722*^9, 3.5680493691933355`*^9}, { 3.568049422171028*^9, 3.568049427490638*^9}, {3.568049476427923*^9, 3.5680495489368505`*^9}, {3.568049620634577*^9, 3.5680496274361887`*^9}, { 3.5680496655314555`*^9, 3.568049693876705*^9}, 3.568049746573598*^9, { 3.568049846460573*^9, 3.568049932759925*^9}, {3.568050009059659*^9, 3.5680500167348723`*^9}, {3.5680501572755194`*^9, 3.568050179911159*^9}, 3.5681087021497335`*^9}], Cell[BoxData[ RowBox[{ RowBox[{ RowBox[{"Clear", "[", RowBox[{"c", ",", "v", ",", "p", ",", "Q", ",", "P"}], "]"}], ";"}], " ", RowBox[{"(*", RowBox[{ RowBox[{"c1", "=", "20"}], ";", " ", RowBox[{"c2", "=", "21"}], ";", " ", RowBox[{"c3", "=", "51"}], ";"}], "*)"}], " "}]], "Input", CellChangeTimes->{{3.568108824079547*^9, 3.568109012824279*^9}, { 3.568109558076436*^9, 3.568109588168889*^9}, {3.5681097523435774`*^9, 3.5681097637783976`*^9}, {3.5681100381828794`*^9, 3.5681101616726966`*^9}, {3.5681102015307665`*^9, 3.5681102288464146`*^9}, {3.568110263743676*^9, 3.568110267331682*^9}, { 3.5681103163469687`*^9, 3.5681103268925867`*^9}, {3.5681106443375444`*^9, 3.5681106916368275`*^9}, 3.568110873002746*^9, {3.5681109388660617`*^9, 3.5681110268970165`*^9}, {3.568111092526332*^9, 3.568111123461186*^9}, { 3.5681111884196997`*^9, 3.568111192756508*^9}, {3.5681112268113675`*^9, 3.568111366213212*^9}, {3.568111434946933*^9, 3.568111463354583*^9}, { 3.568111544396725*^9, 3.568111547625931*^9}, {3.5681116856081734`*^9, 3.5681117131422215`*^9}, {3.568111864696488*^9, 3.5681119835998964`*^9}, 3.5681120218355637`*^9, {3.56811206543764*^9, 3.568112066389242*^9}, { 3.568112332369709*^9, 3.5681123404505234`*^9}, {3.568112505935614*^9, 3.56811251481203*^9}, {3.5681125623609133`*^9, 3.568112569006525*^9}, { 3.568112648067464*^9, 3.568112734210815*^9}, {3.568112764443668*^9, 3.5681127697320776`*^9}, {3.5681128018681335`*^9, 3.568112843426607*^9}, { 3.568112884641879*^9, 3.5681128887602863`*^9}, {3.5681129663080225`*^9, 3.5681129699584293`*^9}, {3.568113133789917*^9, 3.568113227936082*^9}, { 3.5681132946885996`*^9, 3.5681133044698167`*^9}, {3.568113502200164*^9, 3.568113507348173*^9}, 3.56811354556824*^9, {3.5681222886191964`*^9, 3.5681222896019983`*^9}, {3.568207424138049*^9, 3.5682074415164795`*^9}, 3.568277923134914*^9, 3.568883508322016*^9, 3.568883588350157*^9, 3.5688836441982546`*^9, {3.5703421313965206`*^9, 3.5703421386505337`*^9}, { 3.570342288098796*^9, 3.5703424924279547`*^9}, 3.5709745658726373`*^9, 3.5709746291463485`*^9, {3.5709747534473667`*^9, 3.5709747617933817`*^9}, { 3.5709749537361183`*^9, 3.570975034747061*^9}, {3.5709751055243855`*^9, 3.5709751213584127`*^9}, {3.5709751694532976`*^9, 3.570975200060551*^9}, { 3.571073358435503*^9, 3.5710734289632273`*^9}, {3.571204792969243*^9, 3.571204820940092*^9}, {3.5712048565705547`*^9, 3.571204860002561*^9}, 3.571204896881026*^9, {3.571204943556308*^9, 3.571204987485985*^9}, 3.5712053579722357`*^9, 3.5712054148187356`*^9, 3.5712055260469313`*^9, { 3.571205631237916*^9, 3.5712056608311677`*^9}, {3.571206377683627*^9, 3.5712064172296963`*^9}, {3.571206525727887*^9, 3.571206547427525*^9}, { 3.5712066764397516`*^9, 3.5712067106974115`*^9}, {3.571206757949895*^9, 3.5712067585114956`*^9}, {3.5712073458681273`*^9, 3.571207357053347*^9}, { 3.5712075532392917`*^9, 3.5712076608170805`*^9}, {3.571208007434089*^9, 3.571208247690111*^9}, {3.571208301057805*^9, 3.5712083308850574`*^9}, { 3.571208811958702*^9, 3.571208871488407*^9}, {3.5712089993618317`*^9, 3.5712089996582317`*^9}, {3.5712091105588264`*^9, 3.571209160744115*^9}, { 3.5712092989135575`*^9, 3.5712093003643603`*^9}, {3.571209369940482*^9, 3.5712093926073227`*^9}, {3.5712094586578383`*^9, 3.5712094836958823`*^9}, {3.5712104228175316`*^9, 3.571210434267952*^9}, 3.571210475358424*^9, 3.5712108629099045`*^9, {3.571210903969177*^9, 3.5712109929361334`*^9}, {3.5712110295961976`*^9, 3.5712110392214146`*^9}, {3.571211240071767*^9, 3.5712112940946617`*^9}, { 3.571211404496056*^9, 3.5712114190976815`*^9}, {3.5712115264882703`*^9, 3.5712115363942876`*^9}, {3.571211575924757*^9, 3.5712116183724318`*^9}, { 3.5712116597281046`*^9, 3.571211695062166*^9}, {3.5712117551222715`*^9, 3.5712117807531166`*^9}, {3.571211826835598*^9, 3.5712118443232284`*^9}, { 3.571211962540236*^9, 3.5712119670174437`*^9}, 3.5712123580321307`*^9, { 3.5712123994658036`*^9, 3.571212411181424*^9}, {3.5712172605092583`*^9, 3.571217297153723*^9}, {3.571223622762637*^9, 3.57122364145147*^9}, { 3.5712237454256525`*^9, 3.571223750745262*^9}, {3.571223964808838*^9, 3.571224009097316*^9}, {3.57122674689975*^9, 3.5712267784742055`*^9}, { 3.5712269848157682`*^9, 3.57122698582977*^9}, {3.5712270624259043`*^9, 3.5712270629563055`*^9}, {3.571227212438168*^9, 3.571227212999769*^9}, { 3.571227409778515*^9, 3.5712274489969835`*^9}, {3.571227502177477*^9, 3.571227514127098*^9}, {3.57122758356282*^9, 3.5712276390521173`*^9}, 3.5712276745889797`*^9, {3.571227712746647*^9, 3.5712277584703274`*^9}, { 3.5712349496076813`*^9, 3.571234988008148*^9}, {3.5712351855668955`*^9, 3.5712353359043593`*^9}, {3.5712355859883986`*^9, 3.571235653661318*^9}, { 3.5712356890109797`*^9, 3.571235702208603*^9}, {3.5712449764989214`*^9, 3.5712449799309273`*^9}, {3.5712450401778336`*^9, 3.571245051456653*^9}, { 3.5712450868687153`*^9, 3.5712450934831266`*^9}, {3.571299135517318*^9, 3.571299166342972*^9}, {3.5713069890574045`*^9, 3.5713071726697273`*^9}, { 3.571307301791154*^9, 3.571307304536759*^9}, {3.571307397731323*^9, 3.571307405702937*^9}, {3.571311846659932*^9, 3.5713118507939396`*^9}, { 3.571317129094411*^9, 3.5713171472216425`*^9}, {3.5713172653138494`*^9, 3.5713172753602676`*^9}, {3.5713216932693615`*^9, 3.5713216983081703`*^9}, {3.5713370477995405`*^9, 3.5713370593279605`*^9}, {3.571404339740199*^9, 3.5714046172178864`*^9}, { 3.571404755449729*^9, 3.571404853246301*^9}, {3.571405069743481*^9, 3.571405208989326*^9}, {3.571405268612631*^9, 3.571405277442246*^9}, { 3.5714053796536255`*^9, 3.5714054114932814`*^9}, {3.571405595448805*^9, 3.5714056194884467`*^9}, {3.5714056687221336`*^9, 3.571405677660949*^9}, 3.5714067334520035`*^9, {3.57140676532286*^9, 3.5714067706580687`*^9}, { 3.571406950729185*^9, 3.571406989495253*^9}, {3.5714071848855963`*^9, 3.571407190579606*^9}, 3.5714072350240846`*^9, {3.571412503236558*^9, 3.5714125080413666`*^9}, {3.571412540879424*^9, 3.571412607787942*^9}, { 3.571412668378448*^9, 3.5714128101202965`*^9}, {3.5714128643147917`*^9, 3.571412873862009*^9}, {3.571412908150869*^9, 3.57141290869687*^9}, { 3.571413012374652*^9, 3.5714130213290677`*^9}, {3.571413054603926*^9, 3.5714130713583555`*^9}, 3.5714133323156137`*^9, {3.571730171730853*^9, 3.571730182494872*^9}, {3.5717303501171665`*^9, 3.5717303600855846`*^9}, { 3.5717305482375145`*^9, 3.5717305527147226`*^9}, {3.571760865342704*^9, 3.5717608700695124`*^9}, {3.57176111957635*^9, 3.5717611228835564`*^9}, 3.571761174316847*^9, {3.5717620076459103`*^9, 3.571762008441512*^9}, { 3.571765525077688*^9, 3.571765573718574*^9}}], Cell[CellGroupData[{ Cell[BoxData[{ RowBox[{"P", "=", RowBox[{"Length", "[", RowBox[{"conn", "[", RowBox[{"[", "15", "]"}], "]"}], "]"}]}], "\[IndentingNewLine]", RowBox[{"c", "=", RowBox[{"Table", "[", RowBox[{ RowBox[{"conn", "[", RowBox[{"[", RowBox[{"15", ",", "i"}], "]"}], "]"}], ",", RowBox[{"{", RowBox[{"i", ",", "1", ",", "P"}], "}"}]}], "]"}]}]}], "Input", CellChangeTimes->{{3.5717611834272623`*^9, 3.571761287767046*^9}, { 3.571761989144278*^9, 3.5717619949942884`*^9}, {3.5717626601482563`*^9, 3.5717627281175756`*^9}, 3.5717640513743*^9, 3.5717643152643633`*^9, { 3.571767210754249*^9, 3.5717672165886593`*^9}, {3.5721945360946617`*^9, 3.5721945430210743`*^9}, {3.5721946674468927`*^9, 3.5721946710192986`*^9}, {3.5725377974045963`*^9, 3.5725378035510073`*^9}, {3.5725821589210215`*^9, 3.572582165613433*^9}, { 3.5725823497249565`*^9, 3.5725823568073688`*^9}, {3.5725824653055596`*^9, 3.5725824738231745`*^9}, {3.5725826816467395`*^9, 3.572582688744752*^9}, { 3.572766576752694*^9, 3.572766583507506*^9}}], Cell[BoxData["4"], "Output", CellChangeTimes->{3.5727666198867702`*^9}], Cell[BoxData[ RowBox[{"{", RowBox[{"15", ",", "14", ",", "16", ",", "43"}], "}"}]], "Output", CellChangeTimes->{3.5727666198867702`*^9}] }, Open ]], Cell[CellGroupData[{ Cell[BoxData[ RowBox[{"v", "=", RowBox[{"Table", "[", RowBox[{ RowBox[{"Join", "[", RowBox[{ RowBox[{"t", "[", RowBox[{"[", RowBox[{"c", "[", RowBox[{"[", "i", "]"}], "]"}], "]"}], "]"}], ",", RowBox[{"{", "1", "}"}]}], "]"}], ",", RowBox[{"{", RowBox[{"i", ",", "1", ",", "P"}], "}"}]}], "]"}]}]], "Input", CellChangeTimes->{{3.568108824079547*^9, 3.568109012824279*^9}, { 3.568109558076436*^9, 3.568109588168889*^9}, {3.5681097523435774`*^9, 3.5681097637783976`*^9}, {3.5681100381828794`*^9, 3.5681101616726966`*^9}, {3.5681102015307665`*^9, 3.5681102288464146`*^9}, {3.568110263743676*^9, 3.568110267331682*^9}, { 3.5681103163469687`*^9, 3.5681103268925867`*^9}, {3.5681106443375444`*^9, 3.5681106916368275`*^9}, 3.568110873002746*^9, {3.5681109388660617`*^9, 3.5681110268970165`*^9}, {3.568111092526332*^9, 3.568111123461186*^9}, { 3.5681111884196997`*^9, 3.568111192756508*^9}, {3.5681112268113675`*^9, 3.568111366213212*^9}, {3.568111434946933*^9, 3.568111463354583*^9}, { 3.568111544396725*^9, 3.568111547625931*^9}, {3.5681116856081734`*^9, 3.5681117131422215`*^9}, {3.568111864696488*^9, 3.5681119835998964`*^9}, 3.5681120218355637`*^9, {3.56811206543764*^9, 3.568112066389242*^9}, { 3.568112332369709*^9, 3.5681123404505234`*^9}, {3.568112505935614*^9, 3.56811251481203*^9}, {3.5681125623609133`*^9, 3.568112569006525*^9}, { 3.568112648067464*^9, 3.568112734210815*^9}, {3.568112764443668*^9, 3.5681127697320776`*^9}, {3.5681128018681335`*^9, 3.568112843426607*^9}, { 3.568112884641879*^9, 3.5681128887602863`*^9}, {3.5681129663080225`*^9, 3.5681129699584293`*^9}, {3.568113133789917*^9, 3.568113227936082*^9}, { 3.5681132946885996`*^9, 3.5681133044698167`*^9}, {3.568113502200164*^9, 3.568113507348173*^9}, 3.56811354556824*^9, {3.5681222886191964`*^9, 3.5681222896019983`*^9}, {3.568207424138049*^9, 3.5682074415164795`*^9}, 3.568277923134914*^9, 3.568883508322016*^9, 3.568883588350157*^9, 3.5688836441982546`*^9, {3.5703421313965206`*^9, 3.5703421386505337`*^9}, { 3.570342288098796*^9, 3.5703424924279547`*^9}, 3.5709745658726373`*^9, 3.5709746291463485`*^9, {3.5709747534473667`*^9, 3.5709747617933817`*^9}, { 3.5709749537361183`*^9, 3.570975034747061*^9}, {3.5709751055243855`*^9, 3.5709751213584127`*^9}, {3.5709751694532976`*^9, 3.570975200060551*^9}, { 3.571073358435503*^9, 3.5710734289632273`*^9}, {3.571204792969243*^9, 3.571204820940092*^9}, {3.5712048565705547`*^9, 3.571204860002561*^9}, 3.571204896881026*^9, {3.571204943556308*^9, 3.571204987485985*^9}, 3.5712053579722357`*^9, 3.5712054148187356`*^9, 3.5712055260469313`*^9, { 3.571205631237916*^9, 3.5712056608311677`*^9}, {3.571206377683627*^9, 3.5712064172296963`*^9}, {3.571206525727887*^9, 3.571206547427525*^9}, { 3.5712066764397516`*^9, 3.5712067106974115`*^9}, {3.571206757949895*^9, 3.5712067585114956`*^9}, {3.5712073458681273`*^9, 3.571207357053347*^9}, { 3.5712075532392917`*^9, 3.5712076608170805`*^9}, {3.571208007434089*^9, 3.571208247690111*^9}, {3.571208301057805*^9, 3.5712083308850574`*^9}, { 3.571208811958702*^9, 3.571208871488407*^9}, {3.5712089993618317`*^9, 3.5712089996582317`*^9}, {3.5712091105588264`*^9, 3.571209160744115*^9}, { 3.5712092989135575`*^9, 3.5712093003643603`*^9}, {3.571209369940482*^9, 3.5712093926073227`*^9}, {3.5712094586578383`*^9, 3.5712094836958823`*^9}, {3.5712104228175316`*^9, 3.571210434267952*^9}, 3.571210475358424*^9, 3.5712108629099045`*^9, {3.571210903969177*^9, 3.5712109929361334`*^9}, {3.5712110295961976`*^9, 3.5712110392214146`*^9}, {3.571211240071767*^9, 3.5712112940946617`*^9}, { 3.571211404496056*^9, 3.5712114190976815`*^9}, {3.5712115264882703`*^9, 3.5712115363942876`*^9}, {3.571211575924757*^9, 3.5712116183724318`*^9}, { 3.5712116597281046`*^9, 3.571211695062166*^9}, {3.5712117551222715`*^9, 3.5712117807531166`*^9}, {3.571211826835598*^9, 3.5712118443232284`*^9}, { 3.571211962540236*^9, 3.5712119670174437`*^9}, 3.5712123580321307`*^9, { 3.5712123994658036`*^9, 3.571212411181424*^9}, {3.5712172605092583`*^9, 3.571217297153723*^9}, {3.571223622762637*^9, 3.57122364145147*^9}, { 3.5712237454256525`*^9, 3.571223750745262*^9}, {3.571223964808838*^9, 3.571224009097316*^9}, {3.57122674689975*^9, 3.5712267784742055`*^9}, { 3.5712269848157682`*^9, 3.57122698582977*^9}, {3.5712270624259043`*^9, 3.5712270629563055`*^9}, {3.571227212438168*^9, 3.571227212999769*^9}, { 3.571227409778515*^9, 3.5712274489969835`*^9}, {3.571227502177477*^9, 3.571227514127098*^9}, {3.57122758356282*^9, 3.5712276390521173`*^9}, 3.5712276745889797`*^9, {3.571227712746647*^9, 3.5712277584703274`*^9}, { 3.5712349496076813`*^9, 3.571234988008148*^9}, {3.5712351855668955`*^9, 3.5712353359043593`*^9}, {3.5712355859883986`*^9, 3.571235653661318*^9}, { 3.5712356890109797`*^9, 3.571235702208603*^9}, {3.5712449764989214`*^9, 3.5712449799309273`*^9}, {3.5712450401778336`*^9, 3.571245051456653*^9}, { 3.5712450868687153`*^9, 3.5712450934831266`*^9}, {3.571299135517318*^9, 3.571299166342972*^9}, {3.5713069890574045`*^9, 3.5713071726697273`*^9}, { 3.571307301791154*^9, 3.571307304536759*^9}, {3.571307397731323*^9, 3.571307405702937*^9}, {3.571311846659932*^9, 3.5713118507939396`*^9}, { 3.571317129094411*^9, 3.5713171472216425`*^9}, {3.5713172653138494`*^9, 3.5713172753602676`*^9}, {3.5713216932693615`*^9, 3.5713216983081703`*^9}, {3.5713370477995405`*^9, 3.5713370593279605`*^9}, {3.571404339740199*^9, 3.5714046172178864`*^9}, { 3.571404755449729*^9, 3.571404853246301*^9}, {3.571405069743481*^9, 3.571405208989326*^9}, {3.571405268612631*^9, 3.571405277442246*^9}, { 3.5714053796536255`*^9, 3.5714054114932814`*^9}, {3.571405595448805*^9, 3.5714056194884467`*^9}, {3.5714056687221336`*^9, 3.571405677660949*^9}, 3.5714067334520035`*^9, {3.57140676532286*^9, 3.5714067706580687`*^9}, { 3.571406950729185*^9, 3.571406989495253*^9}, {3.5714071848855963`*^9, 3.571407190579606*^9}, 3.5714072350240846`*^9, {3.571412503236558*^9, 3.5714125080413666`*^9}, {3.571412540879424*^9, 3.571412607787942*^9}, { 3.571412668378448*^9, 3.5714128101202965`*^9}, {3.5714128643147917`*^9, 3.571412873862009*^9}, {3.571412908150869*^9, 3.57141290869687*^9}, { 3.571413012374652*^9, 3.5714130213290677`*^9}, {3.571413054603926*^9, 3.5714130713583555`*^9}, {3.5714133323156137`*^9, 3.5714133752624893`*^9}, {3.5714136494641714`*^9, 3.5714136769202194`*^9}, {3.5714140550180836`*^9, 3.5714140686213074`*^9}, {3.571727178397596*^9, 3.571727294992201*^9}, { 3.571727762556222*^9, 3.5717277702158356`*^9}, 3.571761575961952*^9, { 3.5717627754636593`*^9, 3.5717629062542887`*^9}, {3.5717630000884533`*^9, 3.571763131861885*^9}, {3.5717635952762985`*^9, 3.5717636098623247`*^9}, { 3.5717636458671875`*^9, 3.5717636504691963`*^9}, {3.5717641103580036`*^9, 3.571764139015254*^9}, {3.571764227280209*^9, 3.571764231336216*^9}, { 3.571764503946695*^9, 3.57176454651917*^9}, {3.5717645924768505`*^9, 3.571764614254489*^9}, {3.571764811860036*^9, 3.571764868316535*^9}, { 3.5717649431186666`*^9, 3.571764944039068*^9}, 3.5717656631067305`*^9, { 3.5717658044741793`*^9, 3.5717658055037813`*^9}, {3.57176583912184*^9, 3.571765881195114*^9}, 3.571807177607179*^9, 3.57180734301427*^9, { 3.571981312887989*^9, 3.5719813139331903`*^9}, {3.5723506278985176`*^9, 3.572350637508135*^9}, {3.57235068589942*^9, 3.572350694027034*^9}, { 3.5723577545338774`*^9, 3.5723577569518814`*^9}, {3.5723580565504074`*^9, 3.5723580583912106`*^9}}], Cell[BoxData[ RowBox[{"{", RowBox[{ RowBox[{"{", RowBox[{ RowBox[{"-", "5.1780382126`"}], ",", RowBox[{"-", "0.97286873932`"}], ",", RowBox[{"-", "2.1119577776`"}], ",", "1"}], "}"}], ",", RowBox[{"{", RowBox[{ RowBox[{"-", "3.047183175`"}], ",", "0.44584305518`", ",", RowBox[{"-", "1.3762307540199998`"}], ",", "1"}], "}"}], ",", RowBox[{"{", RowBox[{ RowBox[{"-", "7.2930195518`"}], ",", "0.22196721596`", ",", RowBox[{"-", "2.9294532452`"}], ",", "1"}], "}"}], ",", RowBox[{"{", RowBox[{ RowBox[{"-", "5.1264486927999995`"}], ",", RowBox[{"-", "3.0110894083999997`"}], ",", RowBox[{"-", "2.024841409`"}], ",", "1"}], "}"}]}], "}"}]], "Output", CellChangeTimes->{3.5727666198867702`*^9}] }, Open ]], Cell[BoxData[{ RowBox[{ RowBox[{ RowBox[{"x2", "=", RowBox[{"t", "[", RowBox[{"[", RowBox[{ RowBox[{"c", "[", RowBox[{"[", "2", "]"}], "]"}], ",", "1"}], "]"}], "]"}]}], ";", " ", RowBox[{"y2", "=", RowBox[{"t", "[", RowBox[{"[", RowBox[{ RowBox[{"c", "[", RowBox[{"[", "2", "]"}], "]"}], ",", "2"}], "]"}], "]"}]}], ";", " ", RowBox[{"z2", "=", RowBox[{"t", "[", RowBox[{"[", RowBox[{ RowBox[{"c", "[", RowBox[{"[", "2", "]"}], "]"}], ",", "3"}], "]"}], "]"}]}], ";"}], " ", RowBox[{"(*", " ", RowBox[{"to", " ", "be", " ", "set", " ", "to", " ", RowBox[{"(", RowBox[{"0", ",", "0", ",", "0"}], ")"}]}], " ", "*)"}]}], "\[IndentingNewLine]", RowBox[{ 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"}], "}"}]}], "}"}]}], ";"}]}], "Input", CellChangeTimes->{{3.568108824079547*^9, 3.568109012824279*^9}, { 3.568109558076436*^9, 3.568109588168889*^9}, {3.5681097523435774`*^9, 3.5681097637783976`*^9}, {3.5681100381828794`*^9, 3.5681101616726966`*^9}, {3.5681102015307665`*^9, 3.5681102288464146`*^9}, {3.568110263743676*^9, 3.568110267331682*^9}, { 3.5681103163469687`*^9, 3.5681103268925867`*^9}, {3.5681106443375444`*^9, 3.5681106916368275`*^9}, 3.568110873002746*^9, {3.5681109388660617`*^9, 3.5681110268970165`*^9}, {3.568111092526332*^9, 3.568111123461186*^9}, { 3.5681111884196997`*^9, 3.568111192756508*^9}, {3.5681112268113675`*^9, 3.568111366213212*^9}, {3.568111434946933*^9, 3.568111463354583*^9}, { 3.568111544396725*^9, 3.568111547625931*^9}, {3.5681116856081734`*^9, 3.5681117131422215`*^9}, {3.568111864696488*^9, 3.5681119835998964`*^9}, 3.5681120218355637`*^9, {3.56811206543764*^9, 3.568112066389242*^9}, { 3.568112332369709*^9, 3.5681123404505234`*^9}, {3.568112505935614*^9, 3.56811251481203*^9}, {3.5681125623609133`*^9, 3.568112569006525*^9}, { 3.568112648067464*^9, 3.568112734210815*^9}, {3.568112764443668*^9, 3.5681127697320776`*^9}, {3.5681128018681335`*^9, 3.568112843426607*^9}, { 3.568112884641879*^9, 3.5681128887602863`*^9}, {3.5681129663080225`*^9, 3.5681129699584293`*^9}, {3.568113133789917*^9, 3.568113227936082*^9}, { 3.5681132946885996`*^9, 3.5681133044698167`*^9}, {3.568113502200164*^9, 3.568113507348173*^9}, 3.56811354556824*^9, {3.5681222886191964`*^9, 3.5681222896019983`*^9}, {3.568207424138049*^9, 3.5682074415164795`*^9}, 3.568277923134914*^9, 3.568883508322016*^9, 3.568883588350157*^9, 3.5688836441982546`*^9, {3.5703421313965206`*^9, 3.5703421386505337`*^9}, { 3.570342288098796*^9, 3.5703424924279547`*^9}, 3.5709745658726373`*^9, 3.5709746291463485`*^9, {3.5709747534473667`*^9, 3.5709747617933817`*^9}, { 3.5709749537361183`*^9, 3.570975034747061*^9}, {3.5709751055243855`*^9, 3.5709751213584127`*^9}, {3.5709751694532976`*^9, 3.570975200060551*^9}, { 3.571073358435503*^9, 3.5710734289632273`*^9}, {3.571204792969243*^9, 3.571204820940092*^9}, {3.5712048565705547`*^9, 3.571204860002561*^9}, 3.571204896881026*^9, {3.571204943556308*^9, 3.571204987485985*^9}, 3.5712053579722357`*^9, 3.5712054148187356`*^9, 3.5712055260469313`*^9, { 3.571205631237916*^9, 3.5712056608311677`*^9}, {3.571206377683627*^9, 3.5712064172296963`*^9}, {3.571206525727887*^9, 3.571206547427525*^9}, { 3.5712066764397516`*^9, 3.5712067106974115`*^9}, {3.571206757949895*^9, 3.5712067585114956`*^9}, {3.5712073458681273`*^9, 3.571207357053347*^9}, { 3.5712075532392917`*^9, 3.5712076608170805`*^9}, {3.571208007434089*^9, 3.571208247690111*^9}, {3.571208301057805*^9, 3.5712083308850574`*^9}, { 3.571208811958702*^9, 3.571208871488407*^9}, {3.5712089993618317`*^9, 3.5712089996582317`*^9}, {3.5712091105588264`*^9, 3.571209160744115*^9}, { 3.5712092989135575`*^9, 3.5712093003643603`*^9}, {3.571209369940482*^9, 3.5712093926073227`*^9}, {3.5712094586578383`*^9, 3.5712094836958823`*^9}, {3.5712104228175316`*^9, 3.571210434267952*^9}, 3.571210475358424*^9, 3.5712108629099045`*^9, {3.571210903969177*^9, 3.5712109929361334`*^9}, {3.5712110295961976`*^9, 3.5712110392214146`*^9}, {3.571211240071767*^9, 3.5712112940946617`*^9}, { 3.571211404496056*^9, 3.5712114190976815`*^9}, {3.5712115264882703`*^9, 3.5712115363942876`*^9}, {3.571211575924757*^9, 3.5712116183724318`*^9}, { 3.5712116597281046`*^9, 3.571211695062166*^9}, {3.5712117551222715`*^9, 3.5712117807531166`*^9}, {3.571211826835598*^9, 3.5712118443232284`*^9}, { 3.571211962540236*^9, 3.5712119670174437`*^9}, 3.5712123580321307`*^9, { 3.5712123994658036`*^9, 3.571212411181424*^9}, {3.5712172605092583`*^9, 3.571217297153723*^9}, {3.571223622762637*^9, 3.57122364145147*^9}, { 3.5712237454256525`*^9, 3.571223750745262*^9}, {3.571223964808838*^9, 3.571224009097316*^9}, {3.57122674689975*^9, 3.5712267784742055`*^9}, { 3.5712269848157682`*^9, 3.57122698582977*^9}, {3.5712270624259043`*^9, 3.5712270629563055`*^9}, {3.571227212438168*^9, 3.571227212999769*^9}, { 3.571227409778515*^9, 3.5712274489969835`*^9}, {3.571227502177477*^9, 3.571227514127098*^9}, {3.57122758356282*^9, 3.5712276390521173`*^9}, 3.5712276745889797`*^9, {3.571227712746647*^9, 3.5712277584703274`*^9}, { 3.5712349496076813`*^9, 3.571234988008148*^9}, {3.5712351855668955`*^9, 3.5712353359043593`*^9}, {3.5712355859883986`*^9, 3.571235653661318*^9}, { 3.5712356890109797`*^9, 3.571235702208603*^9}, {3.5712449764989214`*^9, 3.5712449799309273`*^9}, {3.5712450401778336`*^9, 3.571245051456653*^9}, { 3.5712450868687153`*^9, 3.5712450934831266`*^9}, {3.571299135517318*^9, 3.571299166342972*^9}, {3.5713069890574045`*^9, 3.5713071726697273`*^9}, { 3.571307301791154*^9, 3.571307304536759*^9}, {3.571307397731323*^9, 3.571307405702937*^9}, {3.571311846659932*^9, 3.5713118507939396`*^9}, { 3.571317129094411*^9, 3.5713171472216425`*^9}, {3.5713172653138494`*^9, 3.5713172753602676`*^9}, {3.5713216932693615`*^9, 3.5713216983081703`*^9}, {3.5713370477995405`*^9, 3.5713370593279605`*^9}, {3.571404339740199*^9, 3.5714046172178864`*^9}, { 3.571404755449729*^9, 3.571404853246301*^9}, {3.571405069743481*^9, 3.571405208989326*^9}, {3.571405268612631*^9, 3.571405277442246*^9}, { 3.5714053796536255`*^9, 3.5714054114932814`*^9}, {3.571405595448805*^9, 3.5714056194884467`*^9}, {3.5714056687221336`*^9, 3.571405677660949*^9}, 3.5714067334520035`*^9, {3.57140676532286*^9, 3.5714067706580687`*^9}, { 3.571406950729185*^9, 3.571406989495253*^9}, {3.5714071848855963`*^9, 3.571407190579606*^9}, 3.5714072350240846`*^9, {3.571412503236558*^9, 3.5714125080413666`*^9}, {3.571412540879424*^9, 3.571412607787942*^9}, { 3.571412668378448*^9, 3.5714128101202965`*^9}, {3.5714128643147917`*^9, 3.571412873862009*^9}, {3.571412908150869*^9, 3.57141290869687*^9}, { 3.571413012374652*^9, 3.5714130213290677`*^9}, {3.571413054603926*^9, 3.5714130713583555`*^9}, {3.5714133323156137`*^9, 3.5714133752624893`*^9}, {3.5714136494641714`*^9, 3.5714136769202194`*^9}, {3.5714140550180836`*^9, 3.5714140686213074`*^9}, {3.571727178397596*^9, 3.571727294992201*^9}, { 3.571727762556222*^9, 3.5717277702158356`*^9}, 3.571761575961952*^9, { 3.5717627754636593`*^9, 3.5717629062542887`*^9}, {3.5717630000884533`*^9, 3.571763131861885*^9}, {3.5717635952762985`*^9, 3.5717636098623247`*^9}, { 3.5717636458671875`*^9, 3.5717636504691963`*^9}, {3.5717641103580036`*^9, 3.571764139015254*^9}, {3.571764227280209*^9, 3.571764231336216*^9}, { 3.571764503946695*^9, 3.57176454651917*^9}, {3.5717645924768505`*^9, 3.571764614254489*^9}, {3.571764811860036*^9, 3.571764868316535*^9}, { 3.5717649431186666`*^9, 3.571764944039068*^9}, 3.5717656631067305`*^9, { 3.5717658044741793`*^9, 3.5717658055037813`*^9}, {3.57176583912184*^9, 3.571765881195114*^9}, 3.571807177607179*^9, 3.57180734301427*^9, { 3.571981312887989*^9, 3.5719813139331903`*^9}, 3.5723506278985176`*^9}], Cell[CellGroupData[{ Cell[BoxData[{ RowBox[{ RowBox[{"p", "=", RowBox[{"v", ".", "Q"}]}], ";"}], "\[IndentingNewLine]", RowBox[{ RowBox[{"t1", "=", RowBox[{"Table", "[", RowBox[{ RowBox[{"Join", "[", RowBox[{ RowBox[{"t", "[", RowBox[{"[", "i", "]"}], "]"}], ",", RowBox[{"{", "1", "}"}]}], "]"}], ",", RowBox[{"{", RowBox[{"i", ",", "1", ",", "n"}], "}"}]}], "]"}]}], ";"}], "\[IndentingNewLine]", RowBox[{ RowBox[{"t", "=", RowBox[{"t1", ".", "Q"}]}], ";"}], "\[IndentingNewLine]", RowBox[{ RowBox[{"For", "[", RowBox[{ RowBox[{"i", "=", "1"}], ",", RowBox[{"i", "<", RowBox[{"P", "+", "1"}]}], ",", RowBox[{"i", "++"}], ",", RowBox[{ RowBox[{"p", "[", RowBox[{"[", "i", "]"}], "]"}], "=", RowBox[{"Take", "[", RowBox[{ RowBox[{"p", "[", RowBox[{"[", "i", "]"}], "]"}], ",", "3"}], "]"}]}]}], "]"}], ";"}], "\[IndentingNewLine]", "p", "\[IndentingNewLine]", RowBox[{ RowBox[{"For", "[", RowBox[{ RowBox[{"i", "=", "1"}], ",", RowBox[{"i", "<", RowBox[{"n", "+", "1"}]}], ",", RowBox[{"i", "++"}], ",", RowBox[{ RowBox[{"t", "[", RowBox[{"[", "i", "]"}], "]"}], "=", RowBox[{"Take", "[", RowBox[{ RowBox[{"t", "[", RowBox[{"[", "i", "]"}], "]"}], ",", "3"}], "]"}]}]}], "]"}], ";"}]}], "Input", CellChangeTimes->{{3.568108824079547*^9, 3.568109012824279*^9}, { 3.568109558076436*^9, 3.568109588168889*^9}, {3.5681097523435774`*^9, 3.5681097637783976`*^9}, {3.5681100381828794`*^9, 3.5681101616726966`*^9}, {3.5681102015307665`*^9, 3.5681102288464146`*^9}, {3.568110263743676*^9, 3.568110267331682*^9}, { 3.5681103163469687`*^9, 3.5681103268925867`*^9}, {3.5681106443375444`*^9, 3.5681106916368275`*^9}, 3.568110873002746*^9, {3.5681109388660617`*^9, 3.5681110268970165`*^9}, {3.568111092526332*^9, 3.568111123461186*^9}, { 3.5681111884196997`*^9, 3.568111192756508*^9}, {3.5681112268113675`*^9, 3.568111366213212*^9}, {3.568111434946933*^9, 3.568111463354583*^9}, { 3.568111544396725*^9, 3.568111547625931*^9}, {3.5681116856081734`*^9, 3.5681117131422215`*^9}, {3.568111864696488*^9, 3.5681119835998964`*^9}, 3.5681120218355637`*^9, {3.56811206543764*^9, 3.568112066389242*^9}, { 3.568112332369709*^9, 3.5681123404505234`*^9}, {3.568112505935614*^9, 3.56811251481203*^9}, {3.5681125623609133`*^9, 3.568112569006525*^9}, { 3.568112648067464*^9, 3.568112734210815*^9}, {3.568112764443668*^9, 3.5681127697320776`*^9}, {3.5681128018681335`*^9, 3.568112843426607*^9}, { 3.568112884641879*^9, 3.5681128887602863`*^9}, {3.5681129663080225`*^9, 3.5681129699584293`*^9}, {3.568113133789917*^9, 3.568113227936082*^9}, { 3.5681132946885996`*^9, 3.5681133044698167`*^9}, {3.568113502200164*^9, 3.568113507348173*^9}, 3.56811354556824*^9, {3.5681222886191964`*^9, 3.5681222896019983`*^9}, {3.568207424138049*^9, 3.5682074415164795`*^9}, 3.568277923134914*^9, 3.568883508322016*^9, 3.568883588350157*^9, 3.5688836441982546`*^9, {3.5703421313965206`*^9, 3.5703421386505337`*^9}, { 3.570342288098796*^9, 3.5703424924279547`*^9}, 3.5709745658726373`*^9, 3.5709746291463485`*^9, {3.5709747534473667`*^9, 3.5709747617933817`*^9}, { 3.5709749537361183`*^9, 3.570975034747061*^9}, {3.5709751055243855`*^9, 3.5709751213584127`*^9}, {3.5709751694532976`*^9, 3.570975200060551*^9}, { 3.571073358435503*^9, 3.5710734289632273`*^9}, {3.571204792969243*^9, 3.571204820940092*^9}, {3.5712048565705547`*^9, 3.571204860002561*^9}, 3.571204896881026*^9, {3.571204943556308*^9, 3.571204987485985*^9}, 3.5712053579722357`*^9, 3.5712054148187356`*^9, 3.5712055260469313`*^9, { 3.571205631237916*^9, 3.5712056608311677`*^9}, {3.571206377683627*^9, 3.5712064172296963`*^9}, {3.571206525727887*^9, 3.571206547427525*^9}, { 3.5712066764397516`*^9, 3.5712067106974115`*^9}, {3.571206757949895*^9, 3.5712067585114956`*^9}, {3.5712073458681273`*^9, 3.571207357053347*^9}, { 3.5712075532392917`*^9, 3.5712076608170805`*^9}, {3.571208007434089*^9, 3.571208247690111*^9}, {3.571208301057805*^9, 3.5712083308850574`*^9}, { 3.571208811958702*^9, 3.571208871488407*^9}, {3.5712089993618317`*^9, 3.5712089996582317`*^9}, {3.5712091105588264`*^9, 3.571209160744115*^9}, { 3.5712092989135575`*^9, 3.5712093003643603`*^9}, {3.571209369940482*^9, 3.5712093926073227`*^9}, {3.5712094586578383`*^9, 3.5712094836958823`*^9}, {3.5712104228175316`*^9, 3.571210434267952*^9}, 3.571210475358424*^9, 3.5712108629099045`*^9, {3.571210903969177*^9, 3.5712109929361334`*^9}, {3.5712110295961976`*^9, 3.5712110392214146`*^9}, {3.571211240071767*^9, 3.5712112940946617`*^9}, { 3.571211404496056*^9, 3.5712114190976815`*^9}, {3.5712115264882703`*^9, 3.5712115363942876`*^9}, {3.571211575924757*^9, 3.5712116183724318`*^9}, { 3.5712116597281046`*^9, 3.571211695062166*^9}, {3.5712117551222715`*^9, 3.5712117807531166`*^9}, {3.571211826835598*^9, 3.5712118443232284`*^9}, { 3.571211962540236*^9, 3.5712119670174437`*^9}, 3.5712123580321307`*^9, { 3.5712123994658036`*^9, 3.571212411181424*^9}, {3.5712172605092583`*^9, 3.571217297153723*^9}, {3.571223622762637*^9, 3.57122364145147*^9}, { 3.5712237454256525`*^9, 3.571223750745262*^9}, {3.571223964808838*^9, 3.571224009097316*^9}, {3.57122674689975*^9, 3.5712267784742055`*^9}, { 3.5712269848157682`*^9, 3.57122698582977*^9}, {3.5712270624259043`*^9, 3.5712270629563055`*^9}, {3.571227212438168*^9, 3.571227212999769*^9}, { 3.571227409778515*^9, 3.5712274489969835`*^9}, {3.571227502177477*^9, 3.571227514127098*^9}, {3.57122758356282*^9, 3.5712276390521173`*^9}, 3.5712276745889797`*^9, {3.571227712746647*^9, 3.5712277584703274`*^9}, { 3.5712349496076813`*^9, 3.571234988008148*^9}, {3.5712351855668955`*^9, 3.5712353359043593`*^9}, {3.5712355859883986`*^9, 3.571235653661318*^9}, { 3.5712356890109797`*^9, 3.571235702208603*^9}, {3.5712449764989214`*^9, 3.5712449799309273`*^9}, {3.5712450401778336`*^9, 3.571245051456653*^9}, { 3.5712450868687153`*^9, 3.5712450934831266`*^9}, {3.571299135517318*^9, 3.571299166342972*^9}, {3.5713069890574045`*^9, 3.5713071726697273`*^9}, { 3.571307301791154*^9, 3.571307304536759*^9}, {3.571307397731323*^9, 3.571307405702937*^9}, {3.571311846659932*^9, 3.5713118507939396`*^9}, { 3.571317129094411*^9, 3.5713171472216425`*^9}, {3.5713172653138494`*^9, 3.5713172753602676`*^9}, {3.5713216932693615`*^9, 3.5713216983081703`*^9}, {3.5713370477995405`*^9, 3.5713370593279605`*^9}, {3.571404339740199*^9, 3.5714046172178864`*^9}, { 3.571404755449729*^9, 3.571404853246301*^9}, {3.571405069743481*^9, 3.571405208989326*^9}, {3.571405268612631*^9, 3.571405277442246*^9}, { 3.5714053796536255`*^9, 3.5714054114932814`*^9}, {3.571405595448805*^9, 3.5714056194884467`*^9}, {3.5714056687221336`*^9, 3.571405677660949*^9}, 3.5714067334520035`*^9, {3.57140676532286*^9, 3.5714067706580687`*^9}, { 3.571406950729185*^9, 3.571406989495253*^9}, {3.5714071848855963`*^9, 3.571407190579606*^9}, 3.5714072350240846`*^9, {3.571412503236558*^9, 3.5714125080413666`*^9}, {3.571412540879424*^9, 3.571412607787942*^9}, { 3.571412668378448*^9, 3.5714128101202965`*^9}, {3.5714128643147917`*^9, 3.571412873862009*^9}, {3.571412908150869*^9, 3.57141290869687*^9}, { 3.571413012374652*^9, 3.5714130213290677`*^9}, {3.571413054603926*^9, 3.5714130713583555`*^9}, {3.5714133323156137`*^9, 3.5714133752624893`*^9}, {3.5714136494641714`*^9, 3.5714136769202194`*^9}, {3.5714140550180836`*^9, 3.5714140686213074`*^9}, {3.571727178397596*^9, 3.571727294992201*^9}, { 3.571727762556222*^9, 3.5717277702158356`*^9}, 3.571761575961952*^9, { 3.5717627754636593`*^9, 3.5717629062542887`*^9}, {3.5717630000884533`*^9, 3.571763131861885*^9}, {3.5717635952762985`*^9, 3.5717636098623247`*^9}, { 3.5717636458671875`*^9, 3.5717636504691963`*^9}, {3.5717641103580036`*^9, 3.571764139015254*^9}, {3.571764227280209*^9, 3.571764231336216*^9}, { 3.571764503946695*^9, 3.57176454651917*^9}, {3.5717645924768505`*^9, 3.5717646223509026`*^9}, {3.5717656229210606`*^9, 3.571765642998296*^9}, { 3.5717662636921854`*^9, 3.571766367572768*^9}, {3.571807209478035*^9, 3.57180723495288*^9}, {3.5718074521676617`*^9, 3.5718074557556677`*^9}, { 3.571807570213069*^9, 3.571807697306492*^9}, {3.5718079241152906`*^9, 3.571807943599725*^9}, {3.5718096885407896`*^9, 3.571809697510805*^9}, 3.5718165284352036`*^9, 3.5718171395662766`*^9, {3.5719774474819994`*^9, 3.5719774566548157`*^9}, {3.571979239847148*^9, 3.571979253387972*^9}, { 3.5719813244008093`*^9, 3.571981332341223*^9}}], Cell[BoxData[ RowBox[{"{", RowBox[{ RowBox[{"{", RowBox[{ RowBox[{"-", "2.1308550376`"}], ",", RowBox[{"-", "1.4187117945`"}], ",", RowBox[{"-", "0.73572702358`"}]}], "}"}], ",", RowBox[{"{", RowBox[{"0.`", ",", "0.`", ",", "0.`"}], "}"}], ",", RowBox[{"{", RowBox[{ RowBox[{"-", "4.2458363768`"}], ",", RowBox[{"-", "0.22387583922`"}], ",", RowBox[{"-", "1.55322249118`"}]}], "}"}], ",", RowBox[{"{", RowBox[{ RowBox[{"-", "2.0792655177999997`"}], ",", RowBox[{"-", "3.45693246358`"}], ",", RowBox[{"-", "0.6486106549800001`"}]}], "}"}]}], "}"}]], "Output", CellChangeTimes->{3.57276661990237*^9}] }, Open ]], Cell[BoxData[ RowBox[{"(*", " ", RowBox[{ RowBox[{ "Rotation", " ", "of", " ", "general", " ", "triangle", " ", "into", " ", "xy", " ", "plane", " ", "with", " ", "one", " ", "point"}], ",", " ", RowBox[{"O", " ", "atom"}], ",", " ", RowBox[{"at", " ", "0", "rigin", " ", "by", " ", "translation"}], ",", " ", RowBox[{ RowBox[{ RowBox[{"one", " ", "leg", " ", "on", " ", "x"}], "-", RowBox[{"axis", " ", "O"}], " ", "-", " ", RowBox[{"C", " ", "atoms"}]}], ";", " ", RowBox[{"example", ":", " ", RowBox[{ "COH", " ", "in", " ", "Vitamine", " ", "A", " ", "ES", " ", "8.3", ".2013"}]}]}]}], " ", "*)"}]], "Input", CellChangeTimes->{{3.57122682638189*^9, 3.5712268889379997`*^9}, { 3.5712269197480536`*^9, 3.571226954208514*^9}, 3.5717274377948513`*^9, { 3.5717276506728253`*^9, 3.5717276517648273`*^9}, {3.5717276823564816`*^9, 3.5717276859288874`*^9}, {3.571727797188283*^9, 3.571727800043088*^9}, { 3.5717279910186234`*^9, 3.5717280697363615`*^9}, {3.571728112667637*^9, 3.5717281224332542`*^9}, {3.571728210573409*^9, 3.571728214598216*^9}, 3.571728252256682*^9, 3.571981012961862*^9}], Cell[BoxData[ RowBox[{"(*", " ", RowBox[{ RowBox[{ RowBox[{"rotate", " ", "p1", " ", "around", " ", "x"}], "-", RowBox[{"axis", " ", "until", " ", "the", " ", "z"}], "-", "comp"}], " ", "=", " ", "0"}], " ", "*)"}]], "Input", CellChangeTimes->{{3.57122682638189*^9, 3.5712268889379997`*^9}, { 3.5712269197480536`*^9, 3.571226954208514*^9}, 3.5717274377948513`*^9, { 3.5717276506728253`*^9, 3.5717276517648273`*^9}, {3.5717276823564816`*^9, 3.5717276859288874`*^9}, {3.571727797188283*^9, 3.571727800043088*^9}, { 3.5717279910186234`*^9, 3.5717280697363615`*^9}, {3.571728112667637*^9, 3.5717281224332542`*^9}, {3.571728210573409*^9, 3.571728214598216*^9}, 3.571728252256682*^9, 3.5717283506460547`*^9}], Cell[CellGroupData[{ Cell[BoxData[ RowBox[{"T1", "=", RowBox[{"ArcTan", "[", RowBox[{ RowBox[{"p", "[", RowBox[{"[", RowBox[{"1", ",", "3"}], "]"}], "]"}], "/", RowBox[{"p", "[", RowBox[{"[", RowBox[{"1", ",", "2"}], "]"}], "]"}]}], "]"}]}]], "Input", CellChangeTimes->{{3.57122682638189*^9, 3.5712268889379997`*^9}, { 3.5712269197480536`*^9, 3.571226954208514*^9}, 3.5717274377948513`*^9, { 3.5717276506728253`*^9, 3.5717276517648273`*^9}, {3.5717276823564816`*^9, 3.5717276859288874`*^9}, {3.571727797188283*^9, 3.571727800043088*^9}, { 3.5717279910186234`*^9, 3.5717280697363615`*^9}, {3.571728112667637*^9, 3.5717281224332542`*^9}, {3.571728210573409*^9, 3.571728214598216*^9}, 3.571728252256682*^9, 3.5717283506460547`*^9, 3.5717284313605967`*^9, { 3.571728664549806*^9, 3.571728670509017*^9}, 3.571980417462016*^9}], Cell[BoxData["0.4784072506751505`"], "Output", CellChangeTimes->{3.5727666199179697`*^9}] }, Open ]], Cell[BoxData[{ RowBox[{ RowBox[{"U", "=", "p"}], ";", " ", RowBox[{"t1", "=", "t"}], ";"}], "\n", RowBox[{ RowBox[{"T", "=", RowBox[{"RotationMatrix", "[", RowBox[{"T1", ",", RowBox[{"{", RowBox[{"1", ",", "0", ",", "0"}], "}"}]}], "]"}]}], ";"}], "\[IndentingNewLine]", RowBox[{ RowBox[{"p", "=", RowBox[{"U", ".", "T"}]}], ";"}], "\[IndentingNewLine]", RowBox[{ RowBox[{"t", "=", RowBox[{"t1", ".", "T"}]}], ";"}]}], "Input", CellChangeTimes->{{3.57122682638189*^9, 3.5712268889379997`*^9}, { 3.5712269197480536`*^9, 3.571226954208514*^9}, 3.5717274377948513`*^9, { 3.5717276506728253`*^9, 3.5717276517648273`*^9}, {3.5717276823564816`*^9, 3.5717276859288874`*^9}, {3.571727797188283*^9, 3.571727800043088*^9}, { 3.5717279910186234`*^9, 3.5717280697363615`*^9}, {3.571728112667637*^9, 3.5717281224332542`*^9}, {3.571728210573409*^9, 3.571728214598216*^9}, 3.571728252256682*^9, 3.5717283506460547`*^9, 3.5717284313605967`*^9, 3.571728664549806*^9, {3.571807732234954*^9, 3.5718077591294007`*^9}, { 3.5719775132985153`*^9, 3.5719776032950735`*^9}, {3.571977651062357*^9, 3.5719776775824037`*^9}, 3.571977714757269*^9, {3.571977767469762*^9, 3.571977779778183*^9}, 3.5719784807810144`*^9, {3.5719789760974846`*^9, 3.571978984318699*^9}, {3.5719791264349484`*^9, 3.5719791370897675`*^9}, { 3.5719794658291445`*^9, 3.5719796040765877`*^9}, 3.5719797587664595`*^9, 3.5719797974389267`*^9, {3.5719809407493353`*^9, 3.571980944649342*^9}, { 3.571981265292305*^9, 3.5719812694107122`*^9}}], Cell[BoxData[ RowBox[{"(*", " ", RowBox[{ RowBox[{"Rotate", " ", "p1", " ", "around", " ", "z"}], "-", RowBox[{"axis", " ", "to", " ", "make", " ", "y"}], "-", RowBox[{"comp", " ", "to", " ", "0"}]}], " ", "*)"}]], "Input", CellChangeTimes->{{3.57122682638189*^9, 3.5712268889379997`*^9}, { 3.5712269197480536`*^9, 3.571226954208514*^9}, 3.5717274377948513`*^9, { 3.5717276506728253`*^9, 3.5717276517648273`*^9}, {3.5717276823564816`*^9, 3.5717276859288874`*^9}, {3.571727797188283*^9, 3.571727800043088*^9}, { 3.5717279910186234`*^9, 3.5717280697363615`*^9}, {3.571728112667637*^9, 3.5717281224332542`*^9}, {3.571728210573409*^9, 3.571728214598216*^9}, 3.571728252256682*^9, {3.5717283506460547`*^9, 3.571728378039703*^9}}], Cell[CellGroupData[{ Cell[BoxData[ RowBox[{"T2", "=", RowBox[{"ArcTan", "[", RowBox[{ RowBox[{"p", "[", RowBox[{"[", RowBox[{"1", ",", "2"}], "]"}], "]"}], "/", RowBox[{"p", "[", RowBox[{"[", RowBox[{"1", ",", "1"}], "]"}], "]"}]}], "]"}]}]], "Input", CellChangeTimes->{{3.57122682638189*^9, 3.5712268889379997`*^9}, { 3.5712269197480536`*^9, 3.571226954208514*^9}, 3.5717274377948513`*^9, { 3.5717276506728253`*^9, 3.5717276517648273`*^9}, {3.5717276823564816`*^9, 3.5717276859288874`*^9}, {3.571727797188283*^9, 3.571727800043088*^9}, { 3.5717279910186234`*^9, 3.5717280697363615`*^9}, {3.571728112667637*^9, 3.5717281224332542`*^9}, {3.571728210573409*^9, 3.571728214598216*^9}, 3.571728252256682*^9, {3.5717283506460547`*^9, 3.571728378039703*^9}, 3.571728435791004*^9, {3.5717286390437613`*^9, 3.571728643552169*^9}, 3.571978116177174*^9, 3.5719809535881577`*^9, 3.571981191114175*^9, 3.572325465440627*^9}], Cell[BoxData["0.6434994045801232`"], "Output", CellChangeTimes->{3.57276661993357*^9}] }, Open ]], Cell[BoxData[{ RowBox[{ RowBox[{"U", "=", "p"}], ";", " ", RowBox[{"t1", "=", "t"}], ";"}], "\[IndentingNewLine]", RowBox[{ RowBox[{"T", "=", RowBox[{"RotationMatrix", "[", RowBox[{"T2", ",", RowBox[{"{", RowBox[{"0", ",", "0", ",", "1"}], "}"}]}], "]"}]}], ";"}], "\[IndentingNewLine]", RowBox[{ RowBox[{"p", "=", RowBox[{"U", ".", "T"}]}], ";"}], "\[IndentingNewLine]", RowBox[{ RowBox[{"t", "=", RowBox[{"t1", ".", "T"}]}], ";"}]}], "Input", CellChangeTimes->{{3.57122682638189*^9, 3.5712268889379997`*^9}, { 3.5712269197480536`*^9, 3.571226954208514*^9}, 3.5717274377948513`*^9, { 3.5717276506728253`*^9, 3.5717276517648273`*^9}, {3.5717276823564816`*^9, 3.5717276859288874`*^9}, {3.571727797188283*^9, 3.571727800043088*^9}, { 3.5717279910186234`*^9, 3.5717280697363615`*^9}, {3.571728112667637*^9, 3.5717281224332542`*^9}, {3.571728210573409*^9, 3.571728214598216*^9}, 3.571728252256682*^9, {3.5717283506460547`*^9, 3.571728378039703*^9}, 3.571728435791004*^9, 3.5717286390437613`*^9, {3.5718077693942184`*^9, 3.571807786039448*^9}, {3.5719778082794333`*^9, 3.5719778506647077`*^9}, { 3.5719784704225965`*^9, 3.5719784738858023`*^9}, {3.5719790010419283`*^9, 3.5719790077343397`*^9}, {3.5719792902040358`*^9, 3.571979300921255*^9}, { 3.5719796080389943`*^9, 3.5719796276170287`*^9}, {3.5719796603614864`*^9, 3.571979680173521*^9}, 3.5719797187991886`*^9, 3.5719798075477448`*^9, { 3.5719809590637674`*^9, 3.571980962604974*^9}, {3.5719812530462837`*^9, 3.5719812569462905`*^9}, 3.572325483692659*^9}], Cell[BoxData[ RowBox[{"(*", " ", RowBox[{ RowBox[{ RowBox[{"rotate", " ", "p2", " ", "around", " ", "x"}], "-", RowBox[{"axis", " ", "to", " ", "make", " ", "z"}], "-", "comp"}], " ", "=", " ", "0"}], " ", "*)"}]], "Input", CellChangeTimes->{{3.57122682638189*^9, 3.5712268889379997`*^9}, { 3.5712269197480536`*^9, 3.571226954208514*^9}, 3.5717274377948513`*^9, { 3.5717276506728253`*^9, 3.5717276517648273`*^9}, {3.5717276823564816`*^9, 3.5717276859288874`*^9}, {3.571727797188283*^9, 3.571727800043088*^9}, { 3.5717279910186234`*^9, 3.5717280697363615`*^9}, {3.571728112667637*^9, 3.5717281224332542`*^9}, {3.571728210573409*^9, 3.571728214598216*^9}, 3.571728252256682*^9, {3.5717283506460547`*^9, 3.571728399520941*^9}}], Cell[CellGroupData[{ Cell[BoxData[ RowBox[{"T3", "=", RowBox[{"ArcTan", "[", RowBox[{ RowBox[{"p", "[", RowBox[{"[", RowBox[{"3", ",", "3"}], "]"}], "]"}], "/", RowBox[{"p", "[", RowBox[{"[", RowBox[{"3", ",", "2"}], "]"}], "]"}]}], "]"}]}]], "Input", CellChangeTimes->{{3.57122682638189*^9, 3.5712268889379997`*^9}, { 3.5712269197480536`*^9, 3.571226954208514*^9}, 3.5717274377948513`*^9, { 3.5717276506728253`*^9, 3.5717276517648273`*^9}, {3.5717276823564816`*^9, 3.5717276859288874`*^9}, {3.571727797188283*^9, 3.571727800043088*^9}, { 3.5717279910186234`*^9, 3.5717280697363615`*^9}, {3.571728112667637*^9, 3.5717281224332542`*^9}, {3.571728210573409*^9, 3.571728214598216*^9}, 3.571728252256682*^9, {3.5717283506460547`*^9, 3.571728399520941*^9}, 3.5717284402682123`*^9, {3.571728618592126*^9, 3.571728625549738*^9}, { 3.5717637051628923`*^9, 3.571763708875698*^9}, 3.5719779601457*^9, 3.5719806706816607`*^9, {3.5719809711537886`*^9, 3.571980974289394*^9}, 3.572325471134637*^9}], Cell[BoxData[ RowBox[{"-", "0.6122956604142534`"}]], "Output", CellChangeTimes->{3.57276661994917*^9}] }, Open ]], Cell[CellGroupData[{ Cell[BoxData[{ RowBox[{ RowBox[{"U", "=", "p"}], ";", " ", RowBox[{"t1", "=", "t"}], ";"}], "\n", RowBox[{ RowBox[{"T", "=", RowBox[{"RotationMatrix", "[", RowBox[{"T3", ",", RowBox[{"{", RowBox[{"1", ",", "0", ",", "0"}], "}"}]}], "]"}]}], ";"}], "\[IndentingNewLine]", RowBox[{"p", "=", RowBox[{"Chop", "[", RowBox[{"U", ".", "T"}], "]"}]}], "\n", RowBox[{ RowBox[{"t", "=", RowBox[{"t1", ".", "T"}]}], ";"}]}], "Input", CellChangeTimes->{{3.57122682638189*^9, 3.5712268889379997`*^9}, { 3.5712269197480536`*^9, 3.571226954208514*^9}, 3.5717274377948513`*^9, { 3.5717276506728253`*^9, 3.5717276517648273`*^9}, {3.5717276823564816`*^9, 3.5717276859288874`*^9}, {3.571727797188283*^9, 3.571727800043088*^9}, { 3.5717279910186234`*^9, 3.5717280697363615`*^9}, {3.571728112667637*^9, 3.5717281224332542`*^9}, {3.571728210573409*^9, 3.571728214598216*^9}, 3.571728252256682*^9, {3.5717283506460547`*^9, 3.571728399520941*^9}, 3.5717284402682123`*^9, 3.571728618592126*^9, {3.5718077941670623`*^9, 3.5718078246807156`*^9}, {3.5718080993659983`*^9, 3.5718081006452007`*^9}, {3.571808212606597*^9, 3.571808244165453*^9}, { 3.5718091624922657`*^9, 3.571809166751073*^9}, {3.5718095319789143`*^9, 3.571809539186127*^9}, {3.5719778703051424`*^9, 3.5719779421744685`*^9}, { 3.571979015237953*^9, 3.571979022008365*^9}, {3.571979314555679*^9, 3.5719793238532953`*^9}, {3.5719796957579484`*^9, 3.5719797316692114`*^9}, 3.571979814536557*^9, {3.571980820660324*^9, 3.571980829006339*^9}, { 3.571980980513805*^9, 3.5719809827134085`*^9}, 3.571981238585058*^9, 3.5723254895582695`*^9, {3.572350128510441*^9, 3.5723501378392572`*^9}}], Cell[BoxData[ RowBox[{"{", RowBox[{ RowBox[{"{", RowBox[{ RowBox[{"-", "2.6635653925414697`"}], ",", "0", ",", "0"}], "}"}], ",", RowBox[{"{", RowBox[{"0", ",", "0", ",", "0"}], "}"}], ",", RowBox[{"{", RowBox[{ RowBox[{"-", "3.9449472183981267`"}], ",", "2.2197158559385253`", ",", "0"}], "}"}], ",", RowBox[{"{", RowBox[{ RowBox[{"-", "3.683860991778121`"}], ",", RowBox[{"-", "1.7673684114743848`"}], ",", RowBox[{"-", "0.0001561953882592837`"}]}], "}"}]}], "}"}]], "Output", CellChangeTimes->{3.57276661994917*^9}] }, Open ]], Cell[BoxData[""], "Input", CellChangeTimes->{{3.572350718144676*^9, 3.572350721498682*^9}, { 3.5723508452536993`*^9, 3.572350853147313*^9}, 3.572350943019071*^9}], Cell[BoxData[{ RowBox[{ RowBox[{"x", "=", RowBox[{"Table", "[", RowBox[{ RowBox[{"t", "[", RowBox[{"[", RowBox[{"i", ",", "1"}], "]"}], "]"}], ",", RowBox[{"{", RowBox[{"i", ",", "1", ",", "n"}], "}"}]}], "]"}]}], ";"}], "\[IndentingNewLine]", RowBox[{ RowBox[{"y", "=", RowBox[{"Table", "[", RowBox[{ RowBox[{"t", "[", RowBox[{"[", RowBox[{"i", ",", "2"}], "]"}], "]"}], ",", RowBox[{"{", RowBox[{"i", ",", "1", ",", "n"}], "}"}]}], "]"}]}], ";"}], "\[IndentingNewLine]", RowBox[{ RowBox[{"z", "=", RowBox[{"Table", "[", RowBox[{ RowBox[{"t", "[", RowBox[{"[", RowBox[{"i", ",", "3"}], "]"}], "]"}], ",", RowBox[{"{", RowBox[{"i", ",", "1", ",", "n"}], "}"}]}], "]"}]}], ";"}]}], "Input", CellChangeTimes->{{3.57122682638189*^9, 3.5712268889379997`*^9}, { 3.5712269197480536`*^9, 3.571226954208514*^9}, 3.5717274377948513`*^9, { 3.5717276506728253`*^9, 3.5717276517648273`*^9}, {3.5717276823564816`*^9, 3.5717276859288874`*^9}, {3.571727797188283*^9, 3.571727800043088*^9}, { 3.5717279910186234`*^9, 3.5717280697363615`*^9}, {3.571728112667637*^9, 3.5717281224332542`*^9}, {3.571728210573409*^9, 3.571728214598216*^9}, 3.571728252256682*^9, {3.5717283506460547`*^9, 3.571728399520941*^9}, 3.5717284402682123`*^9, 3.571728618592126*^9, {3.5718077941670623`*^9, 3.5718078246807156`*^9}, {3.5718080993659983`*^9, 3.5718081006452007`*^9}, {3.571808212606597*^9, 3.571808244165453*^9}, 3.5718091624922657`*^9, 3.5718095108876777`*^9, {3.571809555768956*^9, 3.571809560589365*^9}, {3.5719780093637867`*^9, 3.571978021750208*^9}, { 3.5719780567254696`*^9, 3.571978067754689*^9}, {3.571978434402133*^9, 3.571978457770974*^9}, 3.571978570668372*^9, 3.571979276600812*^9, { 3.5719809896086206`*^9, 3.571980992369826*^9}}], Cell[BoxData[{ RowBox[{ RowBox[{"Plot1", "=", RowBox[{"Table", "[", RowBox[{ RowBox[{"Graphics3D", "[", RowBox[{"{", RowBox[{ RowBox[{"If", "[", RowBox[{ RowBox[{ RowBox[{"u", "[", RowBox[{"[", "i", "]"}], "]"}], "\[Equal]", "\"\\""}], ",", RowBox[{"Lighter", "[", "Blue", "]"}], ",", RowBox[{"If", "[", RowBox[{ RowBox[{ RowBox[{"u", "[", RowBox[{"[", "i", "]"}], "]"}], "\[Equal]", "\"\\""}], ",", RowBox[{"Lighter", "[", "Red", "]"}], ",", RowBox[{"If", "[", RowBox[{ RowBox[{ RowBox[{"u", "[", RowBox[{"[", "i", "]"}], "]"}], "\[Equal]", "\"\\""}], ",", RowBox[{"Lighter", "[", "Green", "]"}], ",", RowBox[{"If", "[", RowBox[{ RowBox[{ RowBox[{"u", "[", RowBox[{"[", "i", "]"}], "]"}], "\[Equal]", "\"\\""}], ",", RowBox[{"Lighter", "[", "Orange", "]"}], ",", RowBox[{"Lighter", "[", "Brown", "]"}]}], "]"}]}], "]"}]}], "]"}]}], "]"}], ",", RowBox[{"Sphere", "[", RowBox[{ RowBox[{"{", RowBox[{ RowBox[{"t", "[", RowBox[{"[", RowBox[{"i", ",", "1"}], "]"}], "]"}], ",", RowBox[{"t", "[", RowBox[{"[", RowBox[{"i", ",", "2"}], "]"}], "]"}], ",", RowBox[{"t", "[", RowBox[{"[", RowBox[{"i", ",", "3"}], "]"}], "]"}]}], "}"}], ",", RowBox[{"u1", "[", RowBox[{"[", "i", "]"}], "]"}]}], "]"}]}], "}"}], "]"}], ",", RowBox[{"{", RowBox[{"i", ",", "1", ",", "n"}], "}"}]}], "]"}]}], ";"}], "\[IndentingNewLine]", RowBox[{ RowBox[{"Plot2", "=", RowBox[{"Table", "[", RowBox[{ RowBox[{"Graphics3D", "[", RowBox[{"Text", "[", RowBox[{"i", ",", RowBox[{"{", RowBox[{ RowBox[{ RowBox[{"t", "[", RowBox[{"[", RowBox[{"i", ",", "1"}], "]"}], "]"}], "-", "0.6"}], ",", RowBox[{"t", "[", RowBox[{"[", RowBox[{"i", ",", "2"}], "]"}], "]"}], ",", RowBox[{"t", "[", RowBox[{"[", RowBox[{"i", ",", "3"}], "]"}], "]"}]}], "}"}], " ", ",", RowBox[{"{", RowBox[{"1", ",", "0"}], "}"}]}], "]"}], "]"}], ",", RowBox[{"{", RowBox[{"i", ",", "1", ",", "n"}], "}"}]}], "]"}]}], ";"}]}], "Input", CellChangeTimes->{{3.57122682638189*^9, 3.5712268889379997`*^9}, { 3.5712269197480536`*^9, 3.571226954208514*^9}, 3.5717274377948513`*^9, { 3.5717276506728253`*^9, 3.5717276517648273`*^9}, {3.5717276823564816`*^9, 3.5717276859288874`*^9}, {3.571727797188283*^9, 3.571727800043088*^9}, { 3.5717279910186234`*^9, 3.5717280697363615`*^9}, {3.571728112667637*^9, 3.5717281224332542`*^9}, {3.571728210573409*^9, 3.571728214598216*^9}, 3.571728252256682*^9, {3.5717283506460547`*^9, 3.571728399520941*^9}, 3.5717284402682123`*^9, 3.571728618592126*^9, {3.5718077941670623`*^9, 3.5718078246807156`*^9}, {3.5718080993659983`*^9, 3.5718081006452007`*^9}, {3.571808212606597*^9, 3.571808244165453*^9}, 3.5718091624922657`*^9, 3.5718095108876777`*^9, 3.571809555768956*^9}], Cell[CellGroupData[{ Cell[BoxData[{ RowBox[{ RowBox[{"Plota", " ", "=", " ", RowBox[{"Table", "[", RowBox[{ RowBox[{"Graphics3D", "[", RowBox[{"{", RowBox[{ RowBox[{"Opacity", "[", "0.5", "]"}], ",", RowBox[{"Sphere", "[", RowBox[{ RowBox[{"p", "[", RowBox[{"[", "i", "]"}], "]"}], ",", RowBox[{"u2", "[", RowBox[{"[", RowBox[{"c", "[", RowBox[{"[", "i", "]"}], "]"}], "]"}], "]"}]}], "]"}]}], "}"}], "]"}], ",", RowBox[{"{", RowBox[{"i", ",", "1", ",", "P"}], "}"}]}], "]"}]}], ";"}], "\[IndentingNewLine]", RowBox[{ RowBox[{"Plotc", " ", "=", " ", RowBox[{"Table", "[", RowBox[{ RowBox[{"Graphics3D", "[", RowBox[{"{", RowBox[{"Tube", "[", RowBox[{ RowBox[{"{", RowBox[{ RowBox[{"p", "[", RowBox[{"[", "i", "]"}], "]"}], ",", RowBox[{"p", "[", RowBox[{"[", "j", "]"}], "]"}]}], "}"}], ",", "0.02"}], "]"}], "}"}], "]"}], ",", RowBox[{"{", RowBox[{"i", ",", "1", ",", RowBox[{"P", "-", "1"}]}], "}"}], ",", RowBox[{"{", RowBox[{"j", ",", RowBox[{"i", "+", "1"}], ",", "P"}], "}"}]}], "]"}]}], ";"}], "\[IndentingNewLine]", RowBox[{ RowBox[{"Plotb0", "=", RowBox[{"Table", "[", RowBox[{ RowBox[{"Graphics3D", "[", RowBox[{"Text", "[", RowBox[{ RowBox[{"c", "[", RowBox[{"[", "i", "]"}], "]"}], ",", RowBox[{"p", "[", RowBox[{"[", "i", "]"}], "]"}], ",", RowBox[{"{", RowBox[{"1", ",", "0"}], "}"}]}], "]"}], "]"}], ",", RowBox[{"{", RowBox[{"i", ",", "1", ",", "P"}], "}"}]}], "]"}]}], ";"}], "\[IndentingNewLine]", RowBox[{"Show", "[", RowBox[{"Plota", ",", "Plotb0", ",", RowBox[{"(*", RowBox[{"Plotb1", ",", "Plotb2", ","}], "*)"}], "Plotc", ",", RowBox[{"{", RowBox[{ RowBox[{"Axes", "\[Rule]", "Automatic"}], ",", RowBox[{"AxesLabel", "\[Rule]", RowBox[{"{", RowBox[{"xl", ",", "yl", ",", "zl"}], "}"}]}], ",", RowBox[{"AspectRatio", "\[Rule]", "Automatic"}], ",", RowBox[{"Boxed", "\[Rule]", "False"}], ",", RowBox[{"PlotRange", "\[Rule]", "Automatic"}], ",", " ", RowBox[{"SphericalRegion", "\[Rule]", "True"}]}], "}"}]}], "]"}], "\n", RowBox[{ RowBox[{"(*", " ", RowBox[{ "now", " ", "add", " ", "O", " ", "lone", " ", "pairs", " ", "perpendicular", " ", "to", " ", "COH", " ", "plane", " ", "and", " ", "retransform", " ", "into", " ", "molecular", " ", "skeleton"}], " ", "*)"}]}]}], "Input", CellChangeTimes->{{3.57122682638189*^9, 3.5712268889379997`*^9}, { 3.5712269197480536`*^9, 3.571226954208514*^9}, 3.5717274377948513`*^9, { 3.5717276506728253`*^9, 3.5717276517648273`*^9}, {3.5717276823564816`*^9, 3.5717276859288874`*^9}, {3.571727797188283*^9, 3.571727800043088*^9}, { 3.5717279910186234`*^9, 3.5717280697363615`*^9}, {3.571728112667637*^9, 3.5717281224332542`*^9}, {3.571728210573409*^9, 3.571728214598216*^9}, 3.571728252256682*^9, {3.5717283506460547`*^9, 3.571728399520941*^9}, 3.5717285241495595`*^9, {3.57172885463614*^9, 3.5717288695653667`*^9}, { 3.5717299854197264`*^9, 3.5717300132501755`*^9}, {3.571730085447102*^9, 3.571730106335539*^9}, {3.5717632443380823`*^9, 3.5717633006385813`*^9}, { 3.5717633829599257`*^9, 3.5717634269364033`*^9}, {3.5717637493577695`*^9, 3.5717637647393966`*^9}, {3.5717638216014967`*^9, 3.5717638263439045`*^9}, {3.5717638636747704`*^9, 3.571763964248147*^9}, { 3.5717666186552095`*^9, 3.5717667028485575`*^9}, {3.5717668402223983`*^9, 3.571766846025608*^9}, {3.5719813873937197`*^9, 3.5719813884077215`*^9}}], Cell[BoxData[ Graphics3DBox[{ {Opacity[0.5], SphereBox[{-2.6635653925414697`, 0, 0}, 0.2557]}, {Opacity[0.5], SphereBox[{0, 0, 0}, 0.2557]}, {Opacity[0.5], SphereBox[{-3.9449472183981267`, 2.2197158559385253`, 0}, 0.2557]}, {Opacity[0.5], SphereBox[{-3.683860991778121, -1.7673684114743848`, \ -0.0001561953882592837}, 0.5693]}, Text3DBox["15", {-2.6635653925414697`, 0, 0}, {1, 0}], Text3DBox["14", {0, 0, 0}, {1, 0}], Text3DBox["16", {-3.9449472183981267`, 2.2197158559385253`, 0}, {1, 0}], Text3DBox[ "43", {-3.683860991778121, -1.7673684114743848`, -0.0001561953882592837}, \ {1, 0}], TubeBox[{{-2.6635653925414697`, 0, 0}, {0, 0, 0}}, 0.02], TubeBox[{{-2.6635653925414697`, 0, 0}, {-3.9449472183981267`, 2.2197158559385253`, 0}}, 0.02], TubeBox[{{-2.6635653925414697`, 0, 0}, {-3.683860991778121, -1.7673684114743848`, -0.0001561953882592837}}, 0.02], TubeBox[{{0, 0, 0}, {-3.9449472183981267`, 2.2197158559385253`, 0}}, 0.02], TubeBox[{{0, 0, 0}, {-3.683860991778121, -1.7673684114743848`, -0.0001561953882592837}}, 0.02], TubeBox[{{-3.9449472183981267`, 2.2197158559385253`, 0}, {-3.683860991778121, -1.7673684114743848`, -0.0001561953882592837}}, 0.02]}, AspectRatio->Automatic, Axes->Automatic, AxesLabel->{ FormBox["xl", TraditionalForm], FormBox["yl", TraditionalForm], FormBox["zl", TraditionalForm]}, Boxed->False, PlotRange->Automatic, SphericalRegion->True]], "Output", CellChangeTimes->{ 3.57276661998037*^9},ImageCache->GraphicsData["CompressedBitmap", "\<\ eJztfQd4Y9WZ9rvMDEwaoaSxaWwK2dT9k82mJxt2sxBISAEyIRBaqANhKEMZ wtB7n8KA7ZnxuPcuWZYsS5ZkWZZlFduSbUnuvfduS7r/d+499/rayLNk92/P 88cPZ1Su7nfO+er7fefcwxU3P3jnbffc/ODeW26+8NIHbr7vzr237L/wknsf oK92/B3wd3dS+8WFYO8FQP5HoP+Evewf9s3f3v///r6dvZzBVONV6Yuw+LIT krYI0pfAK/+Xrn5EfLMDKysrWFhYED/t3zr088Uvdok/yszMxJ49e0Q67Ab+ 40nx5X3iT6xWq/iTSy+9FDqdTvxZMBjELbfcIr5/QLplTHw5c7tbdvKRsQ7Z V+zT/dKdI3w8o6OjePnll7Fv3z6ReEJCAs7it83OzooUfT6ffNvgNmNkP2Hj Ut+iJiOP+z6JTN97Gze7s6GhQfx0lmoubJDs070StZ4tc5Ep9fb24jx+mzwo 9mmfdFvnNoPgPXxENYinn35aHP4+tSJsO/wz4vR5Pv+O/Zwxg336EPtXVKc/ SnTbVHS3Tobo7oozoo+o2CL39SH+naynqh5athk5l99u1SgPHDiwaeSyaFmv Zyoj37mlL9auk/pqFl92x+VSaWmprBMXbuEMo392HKrXSlTz2It45XNb5rKF WztUnGGX2acLVd/JBrGVW6q+8uNc+qyqV9mQGauYsm2RkXzLhVs4yJj9/vi+ hIsp/bT8/VQcIbI/xgAawtfi2N37FUd0/fZTu+A/cUBqDfiKyp/JzGd/7Ld7 t+/i43HcoMw9tdVXVVWJn77EdYhZw9bfDw4Oyuy8c/seP3J6W/0f/Bbm/+R5 7lANRLazO1Tap3LoZ72L7uHDhxWufz+O0d8uEbpLIcS7k//E0f8ijneWpy17 F7UOyx2pPc5tEtm74ziDM+Lw6dLT80nWa9kds/a9OJ6B9/pnPgF1D3Lvl2yj vrynn8XxB7f+dXP5Ny4bNfvkgMB6czgcfBSb2XjLu2Sza5Ns5PcXn96LnqHi C+t6cnIS/7GFV2wovLv74szgR6eXxq/imPifJGr3KoP/4TbRhNEimlfGYcDN Ki1/j1H+t3GcGyeTffpJ7Iwzid/G+e4miVpGHHevUpt4oeu3qu9k+7tRopam Ml+1Y2HD3+yjdyigTk1SbWk3SCT/ojjtfzj9xNX6wdwF+3R9HJ/D6T4WR+s/ E4cZqh5u49GFXWaXOCu573/wtNHlkyrSaqTKQBfRuJ1bttotySrE6T++reP/ z2ML4+ntfASyurFPKh/zx+17+U+cfTxcuTeOxl2nEuh2eH/DOatj0oNxjOpa lRhFwzxvm9DBbpBvfCiOWXFCr7137ZI9zUNxJvkHidorcUKN7CufiGM/10i3 vbjNINgfkXo6jpn8XrrzOfHl/dtqAruq8v1PxTEMTunpbRwcH74csuT+WXsq zoz2SNSe3CYscS18NY5kfyfdeVB8iQ90ZZBCIee1OOGSU3hU1Tfrbxsoq1aG 1+KI9GqJ2iNxLFgFUc+MoyCvxZndVSpvsY22yh2/T0VSZvWrcQbNSV7BXnbE 85RbJn6GSlyyUz/GFVYtdXkcUkzDb+K4hk+dnimysqh9/Vu8J/YzOfyxW1lv vKdLFVe6K06fF5zeSNLjGIk0dPxKcRYXvAdzUWVTaXHMhdP8dZwRflRl/Wxq aqApz4i9l38vk1fbz6+3Z/q529gUH3xhHK371VYVOfc01sVmx28uimNdnNaN cVwcu4tNTG1aLBaz22RS6oLLFRKpP24jUe4kKuJM6JfSnX84jRkxQbFXQxyT 4bfvOb2vUzt9Ro1NTU1NnoaUWHBHse00rKppyLWWy6U7f7vNnaxT4l9tHJW+ TKXS2/s4dVojg6KaOMrMqf3yvZlzPGpq3f25RO2y0xuq7N7UgETi0U7lFvZH r5zgRXGM4dNbLHkLA7ZacgMfE7ss/0xGp3T50u07iofgVLzZqZqNfIs3jsr/ veKDpGRfAp07laRr54Z72rYWEYpjEJ+MM2Qpz8cXtlxif38NcpS7U3/3SS4o dXeyb/m81MsXlZnK/lBmndofxkOP6g7fzbcdcWb6ua1dnnd6H9kfxxYveC89 xNOMD53GlzKkwq14MI4VfzwOGxE//eYD+PZp3K7MS6bvsu5L330Aw+4wRqmN UZugNkltyhPGtDeMGV8Yc43UmsJYGZ5AII6HOEvhzoeUd2co71TlFvbKNeCb p3eIUnJ5PnpoKL3UHAnlcCXo4EmoQBO1QKIerUl6hKh1HDeg66QBvaf06E/V YzBdj+EMPUazKjCWrcNETjmm8rQ0pJXWcGMcn7QrPqfP357T33gPYqXXXdwN jQ9OIEyzMCRoYaJZ2GgGtQkG1CdUwp1gRGNCFfxJVWg9UYVQsgkd1LpPmdCb akJ/ugmDmSaMZJswmlOF8TwjJvONmCqoxEyRAbPFeswVV2C+pBwLpVqsh8KI TEzAw0fPFEFWqZ3xJ3qeIivJHeBrWxRJXd9Xx+/k5GTx0xmcN2M0z5qyOmhI WhU0xyqao4XmZ6f5ORPMaEg0w5dYDX+iBa3HrQgmW9GeYkNXmg296Tb0Z9ow mG3DSK4VY/lWTBRYMVlkwXRxNWZLqjFXZsZ8WRUWNEYsaSuxXG7Asq4CK7py alpEOsKITk64tjglpqPbTF2qqOHL70UbL8Iozc9M8yug+ZUm6KEj+VXS3Mw0 t5oEC+oSrHAl2uBNqkHTcTtaTtTSHGsRTnGgM92BnkwH+rMdGMx1YDjfgbFC ByaKHJgqqcV0qR2zGjvmtTVY0NmwpLNiucKCFb0ZqwYTViuN1AxYq9Rj3aij Vo6Iuw6xqQkD18Yudwh91AapjVAbpzZJbdoTwqwntHuL6m9UXrdjy0WnUXNV 4JQIfxkB6iuHWJNHrCkm1mgTTNAnVJPKW2FNqCGVt6M+0QH3cQcaT9bBn+xE 26l6hNPq0ZHhQneWC325DRjMb8BwgQujRS5MlLgwVebCtLYes+VOzOucWNTX YcngwHJlLVaNdqxV1WDdZKVmQcRsplaFqLkS0Wo9veqoaRH1OhiroBHH+mFR lC003pIEDZmlhsanIRXVwkethVp7khY9J7QYOKXFSJoGY+kazFZRn/4Q5HxO HWPPOC0jP6/SrzjrTLJNqXjKO/kq6ZtDZGou2VIBMbSUGKpLsJHe2VGdUEt6 V0d65yTbcsF7ogHNyW60pLoRSvegI9OLrhwvevO8GCjwYajIh9ESL8bLvJjU ejGt82K2woN5gxuLlW4sGxuwYnJh1VyPtWonItV1iFpqEbHaEbXaELNZqFVT MyFqq6RXPbVyxCzE1h5iJvfakp04aMwaFFHTEUPN5PccpBgemkcgqRLhE0b0 pBgxmFGJ0WwD+TQ9Zgt1mC/WYqFYg/kiDSLjE0rgYmxjf8wkdygOS6rDb8pq txYXVQm4zF/p08ZYc2iMOeSvcslX5RF/i0hhNcRffYKDlNdJyuEi5W0g5fXA c8KLxmQfxhqHMd40gkn/CKYCI1genecy+xjWJ+ex2jmCta4RrHcNY6XahzWL F+tWDyI2N6I1DYjZXdSciNaSYtbaITgILjsI5DrMiDmqINRWQrBTflOjhdBM v5mekLK3T6mGrEE+qUYZsbWShl5DbsiVaEUTuZ9gsh1d6bUYyK7FaIGdXIwd cxobFsuZSyF3YtBjzaDFSgWxeXLidMWGH6vA6GnyKVbjl3E7K8DLViBZxgf5 iPXUqojJFlLmGrI+B8qJwZXE4OoEN83Ai37PMGaH5qXoey5iM/OI9Q1DCLRD qKOo5nRTI97V10Oor6NGKVC9jZqFmpmuGel3euIj6WWthu6f4MtUn97EODYU Zk/lJGsz2ZGDhuE97kJLihvtmR7RZoaLvZjQSDbC7GPVVC/ZhGgLJCdbBTQv PolLLr5YiY8yuJKdA+eeVA15v1Iglv+YSsrhmcUrdlsgEPggx+As2khMM5F2 WknctaSdThK5iyKsm1z+MMfbZ0OYnYcwSJxyE4c8BJc9xCGPgxppl4c45K6G 0ECa5aKA4dSRlhF3+kO54u2fUDGnnBozBCt5cQcZgQuWRC+cJ5rQmOpHW1YA XQWtGChtxWh5G6YNrZg3tWLFGsC6vRmxOsJY9TQEl5MaKbTTgGizQw3mZZj7 IzVvpPKz/Kfyjh/mUUgaYIXIixzygLk0uIKEehqkm9DV8IVcz4T5OQgdlCc0 Eg5opDE0Egt8ZFw+UhCvidhAhuWi6TvF6edwgC/7WYm6nSi7iMs+Uk0/ao63 wpUaRHN2O0KFHegp68JQRRfGjd2YtXRh0d6JtboORF1hxDxB6qoFQlMTNZJC I3XtMWCuf3BTQiODZ2nRCLtPm2FsQGrx+12cYQx/yX/MWJlikQ5+mF82lzlF a8shSeYkMHfsQqt76Asc9ouM6iJG+YlRfrKkZtKTJhJYI1mRl5jkptDp0iA6 O4EsztzhvkEipeVka6m5iVPNFOpbUXUiDHsqccY/jbHWGSyOL+/iahybW4Yw MgNhdBpCayeENuo26KdGBt1Sg1GvT6l+qZH5DyTmnBU/uG6D6eKtsZzBWcKC gvynytDP5pclFTMoHDOXBem7uS9x4xUWiGM9JN8WUqsW8jt+sqpm4lYjxUIP YTKJW5l8ABIeqhTVSRrOTtSVDWJqaFke6wfkBGSKGNNFHq6LNKfDjeaUVAVm qJNCHu+weQl7Qz02igVbkvodmzVop/KOrrB6jayOZ3OeBtwdNG4z50LbV7kN ChOUqgbJr7TS7FtIV/w0+yYycG851tocmZyPAfIBEg/d1AJiP6ODS/FU+wNy NB4bwKjTCX9OLrYWzDeW9k+vCmdu/Vp+PYOzWX2ZNQYqZC4wzys7b3k7TOob OTT+GsYBfF1mwSIpQX8rsYFY0EYsCJBLbarAmocSkNmJNK7yWnKlVdTeuP5Z vHprKl6/tQCJt+aKnfnJglqp7eRds7ygN5sArq5WCaGjg4twFjjgLypWtmKp kfv3VPw4vdTjKcsOzhC1y2V/jPI5Mrw9qqOJSxuY/onzVxigiYfZxMmZthgR adRhJeiQFoa+SQ5TmrSNmoOai5qXWhM1edJBAoJhStlZktuVakV3Rq04+b48 N6oezcXJn7+AzMtfQf4Vr6Pk14egvfIoDFe/jao9iaj+wwnYrktB7Y2ZqCOG 1u8tQ8M+Azz7q+E9YEfj4y40Pe1D8wt+lO234ciNRqQ/0IiWt3vF6bWcHCJw LAHJlpwp8TVQNI9A6RL82hWMeRcVAZjLekn2Xvg1ZZBTJzXi/+57UMhdW7/e 8OZbyiJy/iBvYeCxT5bFYPcAso4aSStmeemEfMYgySZM0SVISCSgx7JXy5fu fymmNUae1siC8LxLEOWKIDq3CKKSBHHi0heQcfnLmwShlwVxDRPEKdhvzCBB 5HNBELrfb4b3ERLEQSYIL5qf98P/cisCb4QRONIpCqIlaUARREvGhCiIlvxZ LohFURDNFWtoMkTQWBWF1xyFxxJDgy2GeruAOoeAWqcAW72AapeAqgYBBrcA Lb2WUMunlknXTtLvqloE9I0IMFW0I+EFysI7JtAxJrG9sCKEN56pRuIbvWdw 73yKyL3VJCCrWcDYsnAW5zS5LlKHPlKHJmp1MGWVKyqhXtT77lab3Km8e5e4 IRdad8BLaUFjjbR771uKcAMQ2glmtlVhtbkcy4Mh/ES8dpWYUlVSs3Dh1nPh NnLhtijC1aM9uUolXCfl127oD+TiOBdu3i9fQ/Gv34T2t0dIuMdgJOGaSbhW JtwbSLi35MN5Zyka7tHD/YAs3Ho0PcWE2ywJ9/UQAodJuMdIuIn9knBTmHDH /2vCrfvrhNs7KqCbhNpFjQk3TC04LqCVXv3Umqh56Tcu+m3dENEeoHt7iWaH wIvBuxGwBeAvsyGgNcBw2CgK6tC1PqQ8P4Psgphsso8cjeEkDW9iVd4geyba 3FOkFUFqzdRc1CwwZZepl2hlp/2d/34Qi7ecuAM+qw+rk93ip/Pi/E78JBfm hSE/YuFqrLVUYHU49GmuVsGGoFgKYWpVexq1YjXX9pOkVikWdKfb0ZMlqVV/ gQ9JpFbppFa5XK00ilolSGp1LanV9Rlw3JLH1aqC1MpEalUD3xa18itq1fNu tcpmajWjUqvl/5pauf/3qNW3OKvziHcnHkjFgYtzcOSGgKRGZ8FUT8PtXobW HMRv/yVV/FbXJmByNQYZM/c3z8BbPgRdQjsKCV5LzqdBxCMMozoNtcqGKXVc +hdJX0R/s3uzE9ooyn+C39jf2oqljurT6M27v/uErC/2BoRzjiOc8RY8SSmi vri5vjRzfWnbVl8aRH1JuPR5pF32MnJIX4p+tVVfjnN9Sef6UgKXrC8Pk748 5iR98aD5uSY0v9Tybn05wfRlZHt90cn6Evmr9KVUpS/J/019MXF9kdbyP0O5 lAaHb8vEwZ9l4K1bgkh7cxGlhRMw1s+gMTBAYJPChL8N/jwzrvxBCR5+ZQ2V jctY653BcvcMFjpnMBuewVRwmubbDU9mJ2pPhWFKbCNEGiD6PlKeeq5ElWIu R2mKrEfq5Jzr0dZsSoGQWyLaNpXkeE5LjnvLY2Est5sQW5qWQKdqi9wV4h3t 5JI21KiC1MhIalTN1aiOq5EXb5MapV720iY1qrhKrUbJpEZpcPwpF847SI3+ rIP7/ipSI5uiRh1HzBhIzuFq1PFuNUrnapTH1GhOUiMNU6NVSY2Mp1Ejp0qN Gv7XqFFDHDWSHpe4kPyFBkduz8VTl+bi7Ts7kH50GdkVAipbBfiI1rCVYGND pVQW8tbDn2XE735qwZOJUVS3LmLJFsScOYyJyjCGy8PoKQkjnB+EP7MNDada UJPYTPDSR3i/AfkJDp7rVfLSgOYDXBdYsSs/P18Of9L6ZNyNO6JGnam4p53K O1lXVkbDWApWIjrUpCQoapXcKAnz1asn9thVYpuUxFZIYitRi239rxebO77Y Jpos8FksccUW2Cq24U1ie41jkGLS8rfuKMCzlxcj4Z4eZCSsItsoQE+RwTMu 7OARPzI1gXWrBkKtHqYXM3DNz5vwUg5RbB3HSrUXC8ZGTFc0YUzTjIHiZnTl NSGY0YjGZK9YwWbVbAMJrVisoZnEmtoZYulvh1gAkWWym0NRVmXauurzbVWQ eZdzeLd4vyArxEgIS616RDsofZzuO2ezwPFB5aZ24lIWAfECmnpdF02/LQKX Ywj2PBsqykMw9Ymck0NWZKoHnaxgLsibyN4HP/mOUpraO3tL8PwvdUh8YACZ J9aRZRLQQsx3jcoQ7nystYegv+dZ5N2ZheSiSQzbfViptGGxohaz2jpMlDgx XFAvpkftaU6CInXwJrKicQ3MBPfKiY0FYplWG5eV8iMv6lLOt1QsjJcifJGz f3mYeBbQIRIiT9lJdrs8gw8rjNu1hXFdkwIc/QKs4SU4vX3o6BGwEpqDUOXB 9HPHsG4yYdodPFdm3HQvBvzSgA6rGKchgHHPd1/HS7+uwvFHhpGVGkGmhTR5 UMDQosCBx0dxkHK/F+/youYtDSZLtVjSUNpaqsdssRGTBSaM5JrRn1EtOu22 42Y0JZooF62CjehXknBKxeVCqSLPKrCMabJ5q6uknFm7t9WtXViiDGmxSYv1 1kpCt6RfQ4F3eQrl0w7Ott5pskqyRqHbDWGsC25yqM2kHH29May1TiJWXovh x97Ess6A4YagXBcKuPvQ75f28LyhYlt5ghH3ff8wXr3KhpOPjSErM4qMGmIb dTG4KFanBbZp+uDtJtx1/wJS3TFx0XzB4sBMrgZTORpMZGkxkl6OgRQduk/o EErUEfxmWx/KCZazDQRa6kcj+njOsq3PujGOfVOVaoiachHPLtZmqT8v8SlQ gVjQJGaZlG1ewE10YFbyV0KoBrHhsGTNZ4lfFXsFjBBjos0jiBZWYimrGPNF 5XxWO0RQ0eeXNh68quJKRUI19v/oLbz+eyeSn55Edm4UaeRm/WTkAwuydewU f/vb7+bggadWYGgX5O0pC40hzPtC6EvSoCtRgxBNPMBzkzpq1dQ63CEEqcnh Qg2IpSeO+MuZFEUcWG0sR6zFACFYLZVQBlvk+R9KWUZ4MoaYn4JNf3AHd4Vt NP92sq0qiqCTPeuIevoRySjB/IlcTGRrZcVk9bIcmm5PcwNe5iwIiHlVDR76 SSIOXedFyguUUhbGkGyPoZmcUN+8IBm0yIJ2XPUjHf5yOAJzv/ClLbiMCXbT dHZjdSCEFY+WhFIhVuTEylzITmJ1Qlia/QQnfEQTQ/d0FBG3FmvdwV387q4p QbQBZ7uA2a5VxJydWD2ejYlj6ehN0+xUptWqQMYX+a3MbN+8NYVSm1OU2viR +so8skspqAXEYHeeMqM+7Pk3J55LiaFmWPiyakayqkrFRa6xNCMS0LqXBNSk l4qrrVaaFc0o5GT1Z3lG71STTc1GsGIrwmIweBa36H7S30qKGs0UNRY6liDU tGHhUDKiNTbSpKBYypVWLqqp6Z7jneaLwDuDgHc63vpTmwi8s7UCjBTeG8eE j/BOD956An/4VRteLxYwuih8NY66fUM9m/ezkjBWGzSIeHVipVzwk8kFSEat NKO2Ogi9baykLCtuMkGO0bl1zJZncyf7PlTTVGq7CVKQL18WfbkX08+/Dd/L p5DyZDZ5ozDfmr+bI78cPCkiv3akv0XITy8hP++48DFlHmm44Y+DOFYlYHxZ +NoWPWMxis/jW9wK2SqQuL7hoXn4aB5NNI9mmkeAzCfgoFZPXjQorpF8THYI jWQs86sQOmp5nf99bDkFJ0sGYHDNolf0slPI2Z+IwEOHZC+r7O8v4oDomcuL JECUuIosAkQVJF/3mCBrwsHbynD73mmRdxOrwjfiqJhUvMc/cyVZb3EgWq9B rEEnLs4JPlKzRvIFTeQLm2ppYqRqzS4InSG2TCZXWUqJibPzyyQ3Ew9FH8I4 zcdWFiJzqBcXS9jKJFtDTDhVjxcPOTDUE0PEP4pokZEcZgnmyGE+wudXQhHw bcpqn79ChyQGT04SPDFL8GR4UbiARzbmFw/eace+RxalKsFKFPJjlOrVMkmK HJudjQhJRVzkrKdJNtAkPTRJD1vbI3vykvZ5SWpemqiXJuql+Dc0DGFuXg4m BsonFuYXiS8ajjLOQ6d7GHVlYRp4A+EdJ8HHWmXCORz/iDtrKN6FJgg0ky+Y 6Ikg6iVvmcm8ZR7Gs7X3qYJDGUMa39mCNKwUg4YkpCEXrdhvr/x+IR5+aQ1V 3cI/x0FUkjXyxPUcceWf7QAQ6soh1JMvcbGFX9LaBtLaBhJ0A/GggXjQQJrr Ih64iAf1FL4GiA/9I+dyMlYC6ctzc8RGaaW8zzOMHuKDKcEDPfFBQ4IvIsHn JdjF0t8WXuzksu6g4NFNntYRFjDDPG19F1ZP5Mie9q4tKOLe7x/CK1dZcfKg hCLSVSji0wpLOnH1v1bhiYQorIPCtzlL2KKWrPecJd/hcE1kSQ1LHbQQHKQW daQWdaQWdaQWdcSWOmJLHbGljtjiINVwEGtqGxC1uxGp8WDN6kWkZxiRbrax ZYRw9zz3UudgnFDBaOMIThjXsTI7hcnsd2BPdFN4dlGuWA8d8ahUXFhnaUe1 uMdAxafdnE+9M4KIQXydzH8vS/77MPPfNcx/37oJV5jxwI+OqnBFDKkcV/Qv yE+OMz4N4PeXeMUkqW2aq84u5eFU9UPEnF/fk+2pN4SYjfhVQypUQwHWzjbl EL/sxC+7hXhpo2an39Qiaq1DxOLEWnU9Vs0urJgasGR0Y6HSgzm9FzMVXkyV +zCh8WG01IfhYh8GCn3ozfehK8eH9iwvguletKR60JTsRtGbFIXIo61Nj2Ho +BHSNwfBCDu0xL9i0rM8Uc9Yzq0T4TPx8IOch1UUzW3EvxAFjeXwPASTFDDW TWYG/m/YBExsBEwS8Oa1HJgUxWBqFkRg0jMX4zurWMBIxnVXd+JwuYCxJa5r Z4o+Vv0EDw+EfP+6tGb7FbZ3CTEfuVwL4RRLOTVKAS2EryxViFabEamuRsRs xbq5BmtVdqwaa7Fc6cCSoQ4LeifmdGzzXz2mNS5MlLowVtyAkUJpoyArAfVk N6Azw4VwmgutKS74T9bDl+SEO7EO+UcDyKM4tD45BN8Lh0lpLORzWLpmJDXU i3s+OIw+h7OP5U8eat3kulcpPAk6ByUBSni6RgWAjCSUAxcnSwDoVQJAZQQR JQD0BYVz2fjTzaNIslGoXRHkJ8fVkE4CRXwryEXiPsWox4FIlZZaOdarKrBu NGDNaMRaJdsKasaKwYJlvZUyVII15TWY09oxW2bHdGktJoulraUj+RR+8hzo z6kTq2Vd6Q60pzoQTHYgcKKWkjE7PIk1lJDVUCZrQ3ZCI3KtU6jPNKLg0ROk ZXrCRTpeJAx/lKcCPjKvVvLOg71yZKtSIttVKjh16LZ0PCbDqUMLyCbVMbIC 1JhwkRK5Ddh77xxSGyKYXBV+GCdy/6PEG2kb1efY9l5EO8JY1WuxWlGOlQod VnR6kg3lI+VGLGirMK8xYa6sGjMl1ZgqtmCy0IrxAitG8mwYyrFhIMuG3gwb utNs6DhlQ+ikFa1JVjQnWuFLtKCBvFOduKXXRN7LiOzXDTj2gh6lr6aj8FA2 WtzhC/g8/ZQPt1GgKyeTGRcD3QAiWaWYkwLdFfxnBSIqy8YTl+bg7Ts4KjNQ fCR2eMY4zOcJ0HcycP+TyywB+kkcdMmf2/ip+PJZRCcIlYXDWCzTUivHfKkO cyUs/zZghlK0qQIjJvKNGMutEneQD2WZMJBhoohjQneKWVz7DR030fRN8CdW iTvR2Y50JzkWtkPdSirAdqzryUp0pEYVDWTJfU2Ew3v4tq3dCI0L6KQ8whYU MK2KbOMU2XrSNJcqYE5LYC4fz1xWSGCuWwJzBD9b+sVazJcVHoRw1Q81ePTN dVT3C/8aB5lyHkjnFnwMq20htrMf0/laTOaWYzxHh7GsCoxkVmAoXY+BVL34 bEB3sgGdJwwIJxnQlqgXnyFgzxKwZwpc4u7UcjSX1aGbPf4wOCGvyPfQ1BpI 3YXOesRGOz7Dp9NDsbyfYpWHYNJ8J8Upe5Di1Ck5Tl3Mf1ZMhN++s5ggXjlB vH5kJq8js1oppHxVmXUPfnexHc+eYllS7OI4hiDZDH9y6oNYHZnAfJP0cMas T3pQY8obxqRHeohjjD/UwR7umJPD605xyH7y7SxNjA0FL+TDNLTGUE3IpI0i xpIYMXwUMd6RI8YPNgE2PRLu0uDFXxslwJYWQQYHbAydfJ33xGrC1/wygNeK xFTp3/mU5I2l7JNU4uKP3e+E0b5CqDGGKKVJ673Bz/Gx1RAAc1HrYu64bVp0 x0PcHQ81BOXMiSYp7npnn/5eNV4tqfIGmhpFVlYUaTUb1Yd/Uvx0Kq6/tk9K iVYE+fwINcDkj0fcyO84nBdBF+XUa/VlWGkPfoH7Rw/BNOYXBmi864ExRItN in88h2cNDCSzeoWe79Go5+tmbYkadCRp0HtCg8FkDYZPabDUHMIaSfs81aR0 5Jru/+FRvLanToQ+WXkxJNfERNGyesI3FQdbiNvumJTXrC9R6ZVcWuOTuonf cczA9DqCJXMBZpuDF/FJtYwJKPNR7O+JIuobJCdXhrmTopPjqd254qSqKZQW 8i3fFjIoJ+l/IxlYW5IenSf16EutwHBGBd2nEx/KmS3QYq6QJmmjpH9sQnlg imETPWnQgyI28RA2mUZ2cQxVfsImYxx/0PzusOCeh+S0aO3ncbIi/sDRzfxS Uo2UYAs9DTy2SMWdDjJzM1GZ6l5DzNVNHiyXPFgG82BylVjaIqqhwK8l1F9B jrGSnIYJ3sRqtBy3oCPFir4MK4ZzrZgotFD8MWNBUyU+psLi1GqFlmKVBit1 8k5paZ6VlEU9cvFJHL6hWQERxoBYd/gXdWT4Xh4eenGVZT+/iBMZ+KNJf+KX 0t0kcZZ7h238ccLdpKykHeQAXIQP50SfFSKflULwXvRZ8gKDPE+GLIsoIOgJ MlkJeboITjUn1yNEMItBriGCYOOlDZgpd2HR4MSK0SFCuCjBuajFKEK9iFmD VbcDcsFJAgZp+MvP0jgwWES2TlmZ+q4y3w5c/RM9nngnAuuQcDmH7FuPImH6 y+ct7+ovJAWZYTl6SyVPiL8k1oSMJNtAF3m3dkKr5kZMvyB5t7DGwZetDOK2 9FJCdFVsv3+SF96TjWjJaEZnnh/9xQGMagOYNgSwUOXHiqUZ6zU+xBwexOrq +T50SqGchG3tWqx3S65ICf2XZOMYC/3HlpFFNlbRKtYwOEZmM+7H7//DhZey yQtPxX7BATabLUtOmAtiz0DyaCDBcn5MDznVECVLczQxTwmv2/wDLOTK66h1 kBtaYW6zog72e15Hxv4UpDxRQVmmD9WJfjiTW9GYGUIwP4zu0g4M6TowYezE bHUHlmrasVYXRtQVJNotEHzNEBq9EJpowo021Lx2BEf+8A6evqwA77CYnrSq rK8MUyz4oeJbT+K6K8Ny9vCbOOorRSJ+nNEOmFkgmpulBD5LqXW4yKlW1g2j +JSf1/R3wfiQDuq/2fZZvgJ1NiIzy4gMEI2hGQjDxAF/J6lFGG3ppXC9lgvr 45lwv1G+NSb/WBl0Bm6+aRiJBNwnVoR45+7wQd/OLzlo2iszk5S/pPGw8gEM 9wwg+4hW3Ap7+PUWcZAO3SR3ohpyovmiE91YBXs/X7rS4527yvDOTWbYjobQ XBxEU7WfUmw35gIEZn2NP1GcvBZ7980ixbXKdpBcFQc8fFY9UFK2wBpSbFGs To1SWEqRVOYCNNW4kfNaqbhl11w2II6phcJkeFIqhE5y38j+xt/OgCdNI4bX fd97k8KrRQqv2VGkyuF1iuxwrB9Cnx8LzXaEDRV8z7/k0R6/qw73Pb7EsO4e lUrIT91KUIufBEZ3dMaQQ15tfWIAvQknv859QrPNh5xXKInLktZjNpZ33i8W XRhQEzWDHJ7z7XYKlxPIyqcst0nJcuUytzDZhy5TNbxZKYrqinWnH5Tg0TdE PHpNHFiwcTifVDvDnfzeQJ+AYuJbZLQLwsyQ/Fhls7UJppOVEPoZkO7bun4t jYb56RM2cb1Y3i4mb0N0Umzx5KX9QBlhF2FHC55JjsI+HPtDnBgvbyBWr9Py se7lVFoJtegpLkQHWxkfvspn1kiucqTGSOjXRSGzWaIwPSXvp1cvrLH2nJYc UUQ4k8805J6iJDskbo3TpNRiJNSqcniDuObyJrxWKOLD6+KE7q3DZk1CQdKR YUSFLbNbewTEekkW493yPvWIj7xKm01xC0K4DUKoHULvEITRGfUGluc0BOAj 8gaW3Rjyz8CvH4IxqQMlCW00/ia+ra8aQ+GW7yne4RSuv6YHx4wiXJSPk1If fhhv+FJVkR+stlNcrq0ntxNrdyA23C4F6k+gV1MqFdmbbeS1yNeytcZmP/nc NsS8IUQpPK7WdWKhphvP0viHQ1PoK+9Ge3EX/LkdaEgLw3a8jSK3nzIQL9/y YxEj+sz4yHeVOeTg1tvHZXR4wxYPF09zVHP4M6fC1o+ayNpjLSZEB4JSIvdx rHaFEGHlV5deKrm6WamVtKjeSwGzCet2P5YtLZirasUzhHiGWsbQU9SKUE4L mtICqD/eRAjSR3HKRUHUwRdsKlCYXAJlAncY8ecHF0T4N7G8chMfrPpQhW32 JXHtv4dfHZxjeXwMEW8FWx6T5vAxrNCYIxYNYjWkTjVV9GpB1GrHejWhnSoX FgxuTJd78EwpObvmIXRmedCa4ob3eAOlz04CErXkyC3ig4XSw0VinW4zqsvG Q8+vMFR3M/9afcIFhceNzTDSKhTf5bMTVe4oJd5RrNhL2QrYl7lwVpwOrBo0 WKskFFJZQe8rsVxBUFRrxUypDeOFNXiaBtzn7UUouQbNSawExB7RNaOCvHkh KUm8TQz/rIw6jKt/rMPjb4vY7Cau6/Jzl1uPzmCvUrmEHx+7A0fLYmKOMavL 49j0PKwGQ5gv1mCxRIOFYkoMKFuayq/AWI4eQxkGHDrajnCpi7J2A9wUG+2k Ckbx4UetWInjNbwN1vZiz7878GKWCKdk9K8++kN9hIusLdKSknJCIFtjHJld g9Dl5KXhs7EcCJHOOsQngkdSNRigNK3nuAbH79fC9470vAPblW1O0IgPgVil gX2HD4wtl1z7mzYc1opQ6M44cU/KaPkJwDtwii1rza2Ii9XyQyjLJJdp/nj3 K2+G0FUfwgC972HfDU5sOKk03HTDIBKtooHfFSd4SWt1/HzjHchtJPg8t0Te RschzA48USR5SPZJ9t4HbyvGnX+egaZZ3LV6t4qXctDhlPfzSxqy0XmGUV0F +IaaclSivAH9gzi4twb3PSYCg31x4oJUiVTOfjN2ElakjiPWDM4gokxRZY5T /o6K8pU/KMSB19dYKJeFrD4hgVuYfHxbTZ8E6JZ0aZDXSJ8o2KC8oW0d+N1P jXjmJAvB0ftV3JAdKaf8ML+UbFgl9DWC8cxTkFeRH1dR/rZCuR/X/NwjR8n9 W7jBKJ+vpkx3hKLIdMawPt6P0WrbV2Ti+RvEZUtmRf0/7umUY5g8azUs5+H2 EZk4hdoCAk6RkQ6CAQPyav7BvA3i31KIZ+KWW8dw0hFjuvfwFp4wjnPiB/gd LRQIy4MEQQYChIt6/1EmnrtB/Jvyd7dX4O7986Ljf4SDDdnhMAck84aHqkd5 D0EKU2ZKAmPdlLSNdsrbKw7mbPTwTwrjCZ/eXY8Hn11mvvmAqhP1I75MELwT +fTCzglKvPqpk5CdUo/QRXE6+Yaqk6t+pMHBtyKwDQkHVTySO5EqRvxMSqka yTYsRf1ViPQGv8jveCx7g/jXFeLd2PNvNryYGSMXGDkkETrIr7KcuHU8hjWX bqN4RYSyNgh9TXFZVlz7Kz8OacWnYqR9Yvw4yJ0YmqccczKKxepizDQFP68i NMsJyVXOg7em4MY/9svu6IhESD708EjOOmGJCGULXshU/pK5QeUriuvJwx13 T8mu56hE5Ul+B6tfDTOX3VnLSwNEJYOocAemqOydZtz76CJzMfyEO+WswuN2 MgfmcFur+PoXkUjfILGpXP/9PBx4dZX5k7clKvJJjBkeAdPMk/rKlAOpH1VR uUihQuH0JwY8fSKKmqH1dyQqz/A7igPMa84TYsrhSRxRSdug8kVVvPv9JfV4 tUD0E1IgwbP8joqwgMWZGaxWZfCsiqikblCR16rYHp8/Xh3GsUrRISRKVJ7j d1jY/pPpCcwWp/I16M1UPq+IOZ0McFi2/CSJyvP8DidZ+erkMBZcdr6EsAMH UijqRNRH7OwQd3Xcff+saOIn1CRoso0rSKf0dX2sD8LssHy+1YFTG1QuVJvx XbXY//QyTD3CSYnQC/LVjhjyvOTOhsMQpvr/nhN6JHmD0GdVhK76YQkOHl1n piodfMM3Q0mZHtsdEu1vZmnIBTKhkxuEPqMQ6sSei814ISOG1snVUxKhl/hV loYZO8h5UL4VG2n/RBxCG8v/A/jDLxpxSCOaZYpE6GV+tZ0SIzuNKtZmZahc rpI/cmKD0KcUeZ3CDdf2yGaZKhF6hV9lKQrbFhnxVTJoLO/tefj4BqFPKoSy cfveCdkypUdh+VbAnWJGGxiLYcWhZXBV3lTzcNIGIVkAB+8wYN+BBVSScUrH ECsHZjKkHp6IYqaiEGoS0xH10ylc8H9245GXReOUnkzG6/wOk2sdPczX9LiV E/0fStig8nEVlat/Uo6nj0dIWIL0GDzf8rkDb5XGMDSzJtZYz1eoxBQqH1Oo dOP3P6vFq/micUrHNONNfkeCmYxtltxNwKA8g/PQOxtUPqpyw9dd2Yq3JOOU Di7AIX5HSr2AqdlFSrOKIO/ufejtqEJlYwdbKm6+eVA0zslVQdrTwvf+7kA+ xfa52XlEbZnK5tkHj21QkWfJ1hXuum9GNE7pdA0c4Ze0QeZrprFUkc63NRKJ tzZIyFN8fK8VDzy5xKwSBRKJo7J0upijGSdwlKI8iv3g0YhC4hyVdK78QQEe OyLapHQ+Ct8ALlXjVico358bVTZg7z8SwRSnot5z+buLjXghPYaRBUE6jJLH hB1I1S9jbbQHwsygstF1/+F1hcrZCpU+XHOZG4fKRGssVlOhq20R5BAoiwwG WXVFfuh9/6ENQvIuWHZawPXXdCLRIlqjdKYO3pYJdQsoIfOK9jYiNtYlP7iz /80NQh9UJJ2B2+4Yk6xxJVoqEXpH9ljEnYoQqzzUMZQiP634wBtrCiF5lAdv 12LfI/PijjDp/CQkcCohAlRWGlK0pRqRvqC8DfYBQthT6xKV96kN8m4nHn5p BZZ+QSsRSuRXGWhy0ZDW3QYGR+SywwOvrSqEdqsIXf3jMjyVJNpkuUQoiV/t EasRMSxayxgckY8SuJ9i9CQndJZCqBO//3crXpHMUgK8OM7vYJuQguNRCAPN yoEE97+yQeVMhcogrv21XzZL6URSHrE+gmFCR91T5Gi66sXzpurKHOIT8g7+ ZPz9L6+gwxlSFvxYRrnkD5HKSYk3g0w33diPk7XiDgm9RF0KY+fi8VcGMTi9 inFzASopEbZT6u5mx+Ml6XEf8bnb3S6utk3k6DCTr8V8kXS40oHfHMPefVOi +Vaqp33+pjNynkqewNjsMqYrMlCfUI3mJCvCp2y478Vl9Db1YLLIirkyCxbL TVjRV+KxPbm4//FFGH0TWK53bCb9Eb6upBV3LbEdTK/kzaIhrwmep06hLbUB XdlunLzPib4SN2Z1bixVujCQUY7sfSV47NAabG1TEOw6yvM0WHQ7DGrBfxTD fUN8L5RJPCZHk+CCOdGL4881oeG4B20v5aCvqBUpjzRjUN+KBXML+nOsyL69 CLbjXsw7GvhxORZxu+SaQ4NNXZwJv2PzaQm6RD8rs0nVxLPRltOKzjdKkP5E O0aqu9Fb4EPOPisc2WEssmNh/JTXBBohtLjEbbOxRj0GXF69upOPIePlk8g5 ViPSLEpog+F4h/h+bkQ5NQTLU2O499klWOpGcP2esOgrJqcphIxPQ+gflM6/ 6fCLR4kIQRtGfD795qlkvZSOnNek55zHBpdkyuq6Lkt+Le2UTFZFUNbECmxr 8rERwvKSeGCH0BdAFwl+1N+MrR08nwNzilSBFeamNnewUY7Tkguq7BBkY2Il bmeZH/5SItoa2ERzFzKezoPQXivd3NUqnpgiliZ38057fNPiCSt54uPYTTBl WTAabNnC4YFam7gNWyTT5iGcT5xqaRM/x3ydiAaHsd43jZWeaSyyByrbpzFQ Mwx/Xhfq0zpQnRQi7WqhXtjDlE5R44ZDmwd7Ft0d2ig/++zU2HFMXtKtJv4A 5YewYAliyhjESHkQvcVBhHLb0JjWAkeSn7yED6UJDeIxR9JJLOWsdivzWTaq pWoNYmw7J9vK6aiGUEtZZ40Ta5YGLFV5MKtn5735MFjoQ2e2tL3Qk8SO2qqH nsykUHx0zygaJhmoQU39XKxPkiVXarBu0iBiYlvRDFitNFFwt4jHiU0W2zGc Z0dvph2hU3bx6DGneKKWGVpxh138WuImL3ke1sepG4cDS2Xk/crIR5VoMVOo w2SeHiOZBvSlGtB+olIp/tWQjzMQP4qk5w3l4h/3N8k8MK+TD11pCWEiUzq/ b+iUBn3kZzsSNWjh/reWn1hSSo35Z6Ii/Y9w+MnbZ2KGvp3ipymy/SW8zGaR fiVO5/+h/3fb397/7f3f3v+ff4+/+59AfbpJ\ \>"]] }, Open ]], Cell[BoxData[{ RowBox[{ RowBox[{"DeleteFile", "[", " ", "\"\\"", "]"}], ";"}], "\[IndentingNewLine]", RowBox[{"For", "[", RowBox[{ RowBox[{"i", "=", "2"}], ",", RowBox[{"i", "<", RowBox[{"n", "+", "2"}]}], ",", RowBox[{"i", "++"}], ",", "\[IndentingNewLine]", RowBox[{"For", "[", RowBox[{ RowBox[{"j", "=", "2"}], ",", RowBox[{"j", "\[LessEqual]", "i"}], ",", RowBox[{"j", "++"}], ",", "\[IndentingNewLine]", RowBox[{"If", "[", RowBox[{ RowBox[{ RowBox[{"Pij", "[", RowBox[{"[", RowBox[{"i", ",", "j"}], "]"}], "]"}], ">", "0"}], ",", RowBox[{ RowBox[{"{", RowBox[{ RowBox[{"i", "-", "1"}], ",", RowBox[{"j", "-", "1"}], ",", RowBox[{"Extract", "[", RowBox[{"Pij", ",", RowBox[{"{", RowBox[{"i", ",", "j"}], "}"}]}], "]"}]}], "}"}], ">>>", " ", "\"\\""}]}], "]"}]}], "]"}]}], "]"}]}], "Input", CellChangeTimes->{{3.5681154444347754`*^9, 3.568115497147268*^9}, { 3.568127214924899*^9, 3.568127265796589*^9}, {3.568128215276656*^9, 3.568128238536297*^9}, {3.568130718566253*^9, 3.5681307485339055`*^9}, 3.5681308175952272`*^9, {3.5681308916497574`*^9, 3.5681309458598523`*^9}, { 3.5681309983383446`*^9, 3.5681310118947687`*^9}, {3.5681310723448744`*^9, 3.568131074357278*^9}, {3.5681315215476637`*^9, 3.568131584509374*^9}, { 3.56813162789305*^9, 3.5681316427754765`*^9}, {3.5681317113063965`*^9, 3.568131715268804*^9}, {3.5681323203938665`*^9, 3.5681323260098763`*^9}, { 3.568132387567585*^9, 3.568132440014877*^9}, {3.5681325121026034`*^9, 3.568132590945142*^9}, {3.56813274298981*^9, 3.5681327548302307`*^9}, { 3.568132877867647*^9, 3.568132888335265*^9}, {3.568133052345154*^9, 3.568133072344389*^9}, {3.5681331740533676`*^9, 3.5681331951446047`*^9}, { 3.568133267793932*^9, 3.5681332684803333`*^9}, {3.5681335079111547`*^9, 3.568133536833606*^9}, {3.5681336272201643`*^9, 3.5681336314945717`*^9}, { 3.568133737994359*^9, 3.568133744000369*^9}, {3.568133978515581*^9, 3.5681339917912045`*^9}, {3.5681340324916763`*^9, 3.5681340418204927`*^9}, {3.568134244262048*^9, 3.5681342454944506`*^9}, { 3.5681343354754086`*^9, 3.568134336099409*^9}, {3.5681345828762426`*^9, 3.568134583952645*^9}, {3.5681348406666956`*^9, 3.5681348474683075`*^9}, 3.568134889151581*^9, {3.5681352914606876`*^9, 3.568135296265496*^9}, { 3.568135518877887*^9, 3.568135519595488*^9}, 3.5681357593679094`*^9, { 3.5681787035360527`*^9, 3.568178728449296*^9}, 3.5682779128076954`*^9}], 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.57276662001157*^9}], Cell[BoxData["51"], "Output", CellChangeTimes->{3.57276662002717*^9}], Cell[BoxData["21"], "Output", CellChangeTimes->{3.57276662002717*^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[{"(*", RowBox[{"conj", "=", RowBox[{"Table", "[", " ", RowBox[{ RowBox[{"If", "[", RowBox[{ RowBox[{ RowBox[{"conp", "[", RowBox[{"[", "i", "]"}], "]"}], "\[NotEqual]", " ", "0"}], ",", RowBox[{"conp", "[", RowBox[{"[", "i", "]"}], "]"}]}], "]"}], ",", RowBox[{"{", RowBox[{"i", ",", "1", ",", RowBox[{"Length", "[", "conp", "]"}]}], "}"}]}], "]"}]}], "*)"}], "\[IndentingNewLine]", RowBox[{"(*", RowBox[{ RowBox[{"conj", "=", RowBox[{"{", RowBox[{ "9", ",", "11", ",", "12", ",", "14", ",", "15", ",", "16", ",", "17", ",", "19"}], "}"}]}], ";"}], "*)"}], " ", RowBox[{ RowBox[{ RowBox[{"nj", "=", RowBox[{ RowBox[{"Length", "[", "conj", "]"}], "-", "2"}]}], ";"}], "\[IndentingNewLine]", RowBox[{ RowBox[{"rpo", "=", "1.4"}], ";"}], "\[IndentingNewLine]", RowBox[{ RowBox[{"px", "=", RowBox[{"Table", "[", RowBox[{ RowBox[{"x", "[", RowBox[{"[", RowBox[{"conj", "[", RowBox[{"[", RowBox[{"i", "+", "2"}], "]"}], "]"}], "]"}], "]"}], ",", RowBox[{"{", RowBox[{"i", ",", "1", ",", "nj"}], "}"}]}], "]"}]}], ";"}], "\[IndentingNewLine]", RowBox[{ RowBox[{"py", "=", RowBox[{"Table", "[", RowBox[{ RowBox[{"y", "[", RowBox[{"[", RowBox[{"conj", "[", RowBox[{"[", RowBox[{"i", "+", "2"}], "]"}], "]"}], "]"}], "]"}], ",", RowBox[{"{", RowBox[{"i", ",", "1", ",", "nj"}], "}"}]}], "]"}]}], ";"}], "\n", RowBox[{ RowBox[{"pz", "=", RowBox[{"Table", "[", RowBox[{ RowBox[{ RowBox[{"z", "[", RowBox[{"[", RowBox[{"conj", "[", RowBox[{"[", RowBox[{"i", "+", "2"}], "]"}], "]"}], "]"}], "]"}], "+", "rpo"}], ",", RowBox[{"{", RowBox[{"i", ",", "1", ",", "nj"}], "}"}]}], "]"}]}], ";"}], "\[IndentingNewLine]", RowBox[{ RowBox[{"Plot8a", "=", RowBox[{"Table", "[", RowBox[{ RowBox[{"Graphics3D", "[", RowBox[{"{", RowBox[{ RowBox[{"Opacity", "[", "0.3", "]"}], ",", RowBox[{"Lighter", "[", "Cyan", "]"}], ",", RowBox[{"Sphere", "[", RowBox[{ RowBox[{"{", RowBox[{ RowBox[{"px", "[", RowBox[{"[", "i", "]"}], "]"}], ",", RowBox[{"py", "[", RowBox[{"[", "i", "]"}], "]"}], ",", RowBox[{"pz", "[", RowBox[{"[", "i", "]"}], "]"}]}], "}"}], ",", "rpo"}], "]"}]}], "}"}], "]"}], ",", RowBox[{"{", RowBox[{"i", ",", "1", ",", "nj"}], "}"}]}], "]"}]}], ";"}], "\[IndentingNewLine]", RowBox[{ RowBox[{"rpi", "=", "1.4"}], ";"}], "\[IndentingNewLine]", RowBox[{ RowBox[{"qx", "=", RowBox[{"Table", "[", RowBox[{ RowBox[{"x", "[", RowBox[{"[", RowBox[{"conj", "[", RowBox[{"[", RowBox[{"i", "+", "2"}], "]"}], "]"}], "]"}], "]"}], ",", RowBox[{"{", RowBox[{"i", ",", "1", ",", "nj"}], "}"}]}], "]"}]}], ";"}], "\[IndentingNewLine]", RowBox[{ RowBox[{"qy", "=", RowBox[{"Table", "[", RowBox[{ RowBox[{"y", "[", RowBox[{"[", RowBox[{"conj", "[", RowBox[{"[", RowBox[{"i", "+", "2"}], "]"}], "]"}], "]"}], "]"}], ",", RowBox[{"{", RowBox[{"i", ",", "1", ",", "nj"}], "}"}]}], "]"}]}], ";"}], "\n", RowBox[{ RowBox[{"qz", "=", RowBox[{"Table", "[", RowBox[{ RowBox[{ RowBox[{"z", "[", RowBox[{"[", RowBox[{"conj", "[", RowBox[{"[", RowBox[{"i", "+", "2"}], "]"}], "]"}], "]"}], "]"}], "-", "rpi"}], ",", 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[{"{", RowBox[{ RowBox[{"qx", "[", RowBox[{"[", "i", "]"}], "]"}], ",", RowBox[{"qy", "[", RowBox[{"[", "i", "]"}], "]"}], ",", RowBox[{"qz", "[", RowBox[{"[", "i", "]"}], "]"}]}], "}"}], ",", "rpi"}], "]"}]}], "}"}], "]"}], ",", RowBox[{"{", RowBox[{"i", ",", "1", ",", "nj"}], "}"}]}], "]"}]}], ";"}], "\[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.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.5727556725842485`*^9, 3.572755744063574*^9}, { 3.572755913745072*^9, 3.5727559360843115`*^9}, {3.572756065564539*^9, 3.5727560825217686`*^9}, {3.5727561230194397`*^9, 3.5727562335768337`*^9}}], Cell[CellGroupData[{ Cell[BoxData[{ RowBox[{ RowBox[{ RowBox[{"Plot9", "=", " ", RowBox[{"Table", "[", RowBox[{ RowBox[{"Graphics3D", "[", RowBox[{"{", RowBox[{"If", "[", RowBox[{ RowBox[{"(", RowBox[{ RowBox[{ RowBox[{"a", "[", RowBox[{"[", RowBox[{"i", ",", "3"}], "]"}], "]"}], ">", "0.98"}], " ", "&&", " ", RowBox[{ RowBox[{"a", "[", RowBox[{"[", RowBox[{"i", ",", "3"}], "]"}], "]"}], "<", "1.05"}]}], ")"}], ",", RowBox[{"(", RowBox[{"{", RowBox[{ RowBox[{"Lighter", "[", RowBox[{"Orange", ",", "0.5"}], "]"}], ",", RowBox[{"Tube", "[", RowBox[{ RowBox[{"{", RowBox[{ RowBox[{"{", RowBox[{ RowBox[{"x", "[", RowBox[{"[", RowBox[{"a", "[", RowBox[{"[", RowBox[{"i", ",", "1"}], "]"}], "]"}], "]"}], "]"}], ",", RowBox[{ RowBox[{"y", "[", RowBox[{"[", RowBox[{"a", "[", RowBox[{"[", RowBox[{"i", ",", "1"}], "]"}], "]"}], "]"}], "]"}], "+", "0.12"}], ",", RowBox[{"z", "[", RowBox[{"[", RowBox[{"a", "[", RowBox[{"[", RowBox[{"i", ",", "1"}], "]"}], "]"}], "]"}], "]"}]}], "}"}], ",", RowBox[{"{", RowBox[{ RowBox[{"x", "[", RowBox[{"[", RowBox[{"a", "[", RowBox[{"[", RowBox[{"i", ",", "2"}], "]"}], "]"}], "]"}], "]"}], ",", RowBox[{ RowBox[{"y", "[", RowBox[{"[", RowBox[{"a", "[", RowBox[{"[", RowBox[{"i", ",", "2"}], "]"}], "]"}], "]"}], "]"}], "+", "0.12"}], ",", RowBox[{"z", "[", RowBox[{"[", RowBox[{"a", "[", RowBox[{"[", RowBox[{"i", ",", "2"}], "]"}], "]"}], "]"}], "]"}]}], "}"}]}], "}"}], ",", "0.06"}], "]"}], ",", RowBox[{"Tube", "[", RowBox[{ RowBox[{"{", RowBox[{ RowBox[{"{", RowBox[{ RowBox[{"x", "[", RowBox[{"[", RowBox[{"a", "[", RowBox[{"[", RowBox[{"i", ",", "1"}], "]"}], "]"}], "]"}], "]"}], ",", RowBox[{ RowBox[{"y", "[", RowBox[{"[", RowBox[{"a", "[", RowBox[{"[", RowBox[{"i", ",", "1"}], "]"}], "]"}], "]"}], "]"}], "-", "0.12"}], ",", RowBox[{"z", "[", RowBox[{"[", RowBox[{"a", "[", RowBox[{"[", RowBox[{"i", ",", "1"}], "]"}], "]"}], "]"}], "]"}]}], "}"}], ",", RowBox[{"{", RowBox[{ RowBox[{"x", "[", RowBox[{"[", RowBox[{"a", "[", RowBox[{"[", RowBox[{"i", ",", "2"}], "]"}], "]"}], "]"}], "]"}], ",", RowBox[{ RowBox[{"y", "[", RowBox[{"[", RowBox[{"a", "[", RowBox[{"[", RowBox[{"i", ",", "2"}], "]"}], "]"}], "]"}], "]"}], "-", "0.12"}], ",", RowBox[{"z", "[", RowBox[{"[", RowBox[{"a", "[", RowBox[{"[", RowBox[{"i", ",", "2"}], "]"}], "]"}], "]"}], "]"}]}], "}"}]}], "}"}], ",", "0.06"}], "]"}]}], "}"}], ")"}], ",", RowBox[{"Tube", "[", RowBox[{ RowBox[{"{", RowBox[{ RowBox[{"{", RowBox[{ RowBox[{"x", "[", RowBox[{"[", RowBox[{"a", "[", RowBox[{"[", RowBox[{"i", ",", "1"}], "]"}], "]"}], "]"}], "]"}], ",", RowBox[{"y", "[", RowBox[{"[", RowBox[{"a", "[", RowBox[{"[", RowBox[{"i", ",", "1"}], "]"}], "]"}], "]"}], "]"}], ",", RowBox[{"z", "[", RowBox[{"[", RowBox[{"a", "[", RowBox[{"[", RowBox[{"i", ",", "1"}], "]"}], "]"}], "]"}], "]"}]}], "}"}], ",", RowBox[{"{", RowBox[{ RowBox[{"x", "[", RowBox[{"[", RowBox[{"a", "[", RowBox[{"[", RowBox[{"i", ",", "2"}], "]"}], "]"}], "]"}], "]"}], ",", RowBox[{"y", "[", RowBox[{"[", RowBox[{"a", "[", RowBox[{"[", RowBox[{"i", ",", "2"}], "]"}], "]"}], "]"}], "]"}], ",", RowBox[{"z", "[", RowBox[{"[", RowBox[{"a", "[", RowBox[{"[", RowBox[{"i", ",", "2"}], "]"}], "]"}], "]"}], "]"}]}], "}"}]}], "}"}], ",", "0.06"}], "]"}]}], "]"}], "}"}], "]"}], ",", RowBox[{"{", RowBox[{"i", ",", "1", ",", "nb"}], "}"}]}], "]"}]}], ";"}], "\[IndentingNewLine]"}], "\[IndentingNewLine]", RowBox[{"Show", "[", RowBox[{ "Plot1", ",", "Plot2", ",", "Plot7", ",", "Plot8", ",", "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[{"Plot1", ",", "Plot2", ",", "Plot9", ",", RowBox[{"{", RowBox[{ RowBox[{"Axes", "\[Rule]", "Automatic"}], ",", RowBox[{"AxesLabel", "\[Rule]", RowBox[{"{", RowBox[{"xl", ",", "yl", ",", "zl"}], "}"}]}], ",", RowBox[{"AspectRatio", "\[Rule]", "Automatic"}], ",", RowBox[{"Boxed", "\[Rule]", "True"}], ",", " ", RowBox[{"SphericalRegion", "\[Rule]", "True"}]}], "}"}]}], "]"}], "\[IndentingNewLine]"}], "Input", CellChangeTimes->{{3.5681365021632137`*^9, 3.5681365171392403`*^9}, { 3.568136560351316*^9, 3.5681365863097615`*^9}, {3.5681369135895367`*^9, 3.5681369265999594`*^9}, {3.568137821916732*^9, 3.5681378378443604`*^9}, { 3.5682072492149415`*^9, 3.5682072529901485`*^9}, 3.568209802830227*^9, { 3.5682216503836985`*^9, 3.5682217583046885`*^9}, {3.5682217912831464`*^9, 3.568221843465238*^9}, {3.5682219760654707`*^9, 3.5682221133457117`*^9}, { 3.568222159615393*^9, 3.5682221693498106`*^9}, {3.5682222565227633`*^9, 3.5682222578487663`*^9}, 3.5682224736283445`*^9, 3.5682227227607822`*^9, 3.5682227558640404`*^9, {3.568222818810151*^9, 3.5682228486062036`*^9}, { 3.5682230057764797`*^9, 3.5682230079916835`*^9}, {3.568223041952943*^9, 3.5682230548229656`*^9}, 3.5682232619601297`*^9, 3.5682233000709963`*^9, { 3.568223536645412*^9, 3.5682235381118145`*^9}, {3.568223591151908*^9, 3.568223591526308*^9}, {3.5682236491528096`*^9, 3.568223657483224*^9}, { 3.568223713222122*^9, 3.5682237532361927`*^9}, {3.568223800379475*^9, 3.568223827648323*^9}, {3.5682238887380304`*^9, 3.5682238893152313`*^9}, { 3.5682240287170763`*^9, 3.5682240612431335`*^9}, 3.5682241088076167`*^9, { 3.568224198772975*^9, 3.5682242396450467`*^9}, {3.568224282170721*^9, 3.5682243185031853`*^9}, {3.568224437890195*^9, 3.568224439590598*^9}, { 3.568224572253231*^9, 3.5682245867144566`*^9}, {3.5682247081762695`*^9, 3.568224733557514*^9}, {3.56822480520844*^9, 3.5682248433505073`*^9}, { 3.568224884206979*^9, 3.5682248959069996`*^9}, {3.568224982830352*^9, 3.5682250047639904`*^9}, {3.56822503870965*^9, 3.5682250803305235`*^9}, { 3.5682251223413973`*^9, 3.568225141451431*^9}, {3.568225234177994*^9, 3.5682252929588966`*^9}, {3.5682253775890455`*^9, 3.568225482140429*^9}, { 3.56822551694409*^9, 3.5682255297205124`*^9}, {3.568225573197789*^9, 3.5682255809666023`*^9}, 3.568225660698343*^9, 3.5682257301964645`*^9, { 3.568225765078126*^9, 3.5682257828933573`*^9}, {3.568225927026843*^9, 3.568225927416844*^9}, {3.568267062420238*^9, 3.568267081358671*^9}, { 3.568267188328059*^9, 3.5682672830358257`*^9}, {3.5682676367040462`*^9, 3.568267747979042*^9}, 3.5682678404716043`*^9, 3.568267882030078*^9, { 3.5682679252577534`*^9, 3.568267996612279*^9}, {3.5682680488879704`*^9, 3.568268061133992*^9}, {3.568268100914062*^9, 3.5682681150944867`*^9}, { 3.5682681672609787`*^9, 3.5682681709113846`*^9}, {3.568268272904364*^9, 3.5682683182536435`*^9}, {3.5682685202739983`*^9, 3.568268599194537*^9}, { 3.5682686348873997`*^9, 3.568268637773405*^9}, {3.5682686944951043`*^9, 3.568268872273017*^9}, {3.5682689420207396`*^9, 3.568269016947671*^9}, { 3.5682695040741262`*^9, 3.568269601153097*^9}, {3.5682696652380095`*^9, 3.5682696728352227`*^9}, {3.5682697489633565`*^9, 3.5682698308635006`*^9}, {3.568271156491429*^9, 3.568271160063835*^9}, { 3.568271244927984*^9, 3.568271369010602*^9}, {3.5682716250070515`*^9, 3.5682717312276382`*^9}, {3.5682717843301315`*^9, 3.5682718576814604`*^9}, {3.568271940673606*^9, 3.5682720536490045`*^9}, { 3.5682722259669075`*^9, 3.5682723223126764`*^9}, {3.568272370813162*^9, 3.568272411466833*^9}, {3.5682725893539457`*^9, 3.568272622238803*^9}, { 3.5682726936713285`*^9, 3.5682726960113325`*^9}, {3.568272741079812*^9, 3.56827275143823*^9}, {3.5682729218373294`*^9, 3.568272991070251*^9}, { 3.5682734285574193`*^9, 3.5682734302890224`*^9}, {3.5682734898811274`*^9, 3.5682735111595645`*^9}, {3.5682736115925407`*^9, 3.5682736313577757`*^9}, {3.5682738601945777`*^9, 3.568273987272401*^9}, { 3.5682763944346285`*^9, 3.5682764313910933`*^9}, 3.5682765128232365`*^9, { 3.5682766527398825`*^9, 3.568276660976697*^9}, {3.5682774496048822`*^9, 3.568277461663703*^9}, {3.5683784032731285`*^9, 3.568378422991563*^9}, { 3.568378459308427*^9, 3.5683784812420654`*^9}, {3.568378513440522*^9, 3.568378867046343*^9}, {3.568378915468828*^9, 3.56837896203491*^9}, { 3.5683790764299107`*^9, 3.568379270041851*^9}, {3.568380233530743*^9, 3.568380234388745*^9}, 3.5683804214954734`*^9, 3.568380471867962*^9, 3.5683805399464817`*^9, {3.5683812396077104`*^9, 3.568381293537005*^9}, { 3.568381339541486*^9, 3.568381420224828*^9}, {3.5684645223056345`*^9, 3.5684645572340956`*^9}, {3.5684651558539467`*^9, 3.5684651618911576`*^9}, {3.5688209923798466`*^9, 3.568820997683856*^9}, { 3.568821158754139*^9, 3.568821160750942*^9}, 3.56882222404881*^9, { 3.568822649274357*^9, 3.5688226508031597`*^9}, 3.568822723109287*^9, { 3.5693397221142225`*^9, 3.5693397223326235`*^9}, {3.5693899272912874`*^9, 3.5693899274472876`*^9}, {3.5693910617720795`*^9, 3.5693910848757205`*^9}, 3.5693911374166126`*^9, {3.569391214402748*^9, 3.5693912147147484`*^9}, 3.569391451944365*^9, {3.569391487793228*^9, 3.569391507620863*^9}, { 3.5693923162258854`*^9, 3.5693923173958874`*^9}, {3.569406068526634*^9, 3.569406086092265*^9}, 3.569690172138941*^9, 3.569780036185542*^9, { 3.570453906913044*^9, 3.5704539079894457`*^9}, {3.570454575670618*^9, 3.5704545899602437`*^9}, {3.570454765008151*^9, 3.570454772277764*^9}, 3.5708553779481487`*^9, {3.5709431726830034`*^9, 3.570943174555007*^9}, { 3.5709495710522423`*^9, 3.5709495907082767`*^9}, {3.570949647617176*^9, 3.570949673138821*^9}, {3.570950759321929*^9, 3.5709507772775607`*^9}, { 3.5709508127364225`*^9, 3.5709508405200715`*^9}, {3.570991123104905*^9, 3.570991124259307*^9}, {3.5709912161278687`*^9, 3.570991227937089*^9}, { 3.5709912804155817`*^9, 3.570991308776431*^9}, {3.5709914026885962`*^9, 3.5709914215490294`*^9}, {3.570991574429298*^9, 3.5709916038821497`*^9}, 3.570991652445035*^9, 3.570991830004547*^9, 3.570991865276209*^9, { 3.5709919181759014`*^9, 3.5709919260539155`*^9}, {3.570992027251293*^9, 3.570992050058533*^9}, 3.5709920901350036`*^9, 3.570992186979974*^9, { 3.57122255431676*^9, 3.5712225562355638`*^9}, 3.571223175338251*^9, { 3.5713153738729277`*^9, 3.571315375682531*^9}, 3.5713224026962075`*^9, { 3.5713224627875133`*^9, 3.5713224654863176`*^9}, {3.5713224965147724`*^9, 3.571322572268505*^9}, {3.5713226259637995`*^9, 3.5713226549330506`*^9}, { 3.5713308245340652`*^9, 3.571330884469371*^9}, {3.5713309160126257`*^9, 3.5713309422674723`*^9}, 3.571331071326499*^9, {3.5713311246629925`*^9, 3.5713311332274075`*^9}, {3.571331300334901*^9, 3.5713313470881834`*^9}, 3.5713314298931284`*^9, 3.571331594130217*^9, {3.571331632849485*^9, 3.5713316334578857`*^9}, {3.5713316704299507`*^9, 3.5713316709447517`*^9}, {3.571331783327349*^9, 3.571331790019761*^9}, { 3.5713319475956383`*^9, 3.571331948360039*^9}, {3.5713326567416835`*^9, 3.571332681717327*^9}, {3.571332736801024*^9, 3.571332753305853*^9}, { 3.571332796221528*^9, 3.5713328475768185`*^9}, {3.571332914344936*^9, 3.571332924672154*^9}, {3.5713330072586994`*^9, 3.5713330320471425`*^9}, { 3.5713330798612266`*^9, 3.5713330883320417`*^9}, {3.5713331731961904`*^9, 3.571333178266199*^9}, {3.571333407851803*^9, 3.571333426837036*^9}, { 3.571333542292839*^9, 3.571333557705666*^9}, {3.5713336117441607`*^9, 3.5713337055939255`*^9}, {3.5713337750608473`*^9, 3.571333798070888*^9}, { 3.5713366694988756`*^9, 3.5713366834765005`*^9}, {3.5713369716090064`*^9, 3.57133697359021*^9}, {3.57138272164856*^9, 3.571382756233821*^9}, { 3.57138283537276*^9, 3.571382866900415*^9}, {3.5713829070080853`*^9, 3.5713829086616883`*^9}, {3.571382939175342*^9, 3.5713830233374896`*^9}, { 3.5713831045200324`*^9, 3.571383106126835*^9}, {3.571383198260597*^9, 3.5713832448422785`*^9}, 3.5716785972796593`*^9, 3.5718167268987517`*^9, { 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}}], Cell[BoxData[ Graphics3DBox[{ {RGBColor[0.7333333333333333, 0.6, 0.4666666666666667], SphereBox[{9.355950630064521, -5.469921833477757, 2.3919168361090453`}, 0.255]}, {RGBColor[0.7333333333333333, 0.6, 0.4666666666666667], SphereBox[{12.113111542811811`, -4.6004151217432545`, 2.3513859532935792`}, 0.255]}, {RGBColor[0.7333333333333333, 0.6, 0.4666666666666667], SphereBox[{ 13.221317791927152`, -5.174286631130686, -0.26385302587208725`}, 0.255]}, {RGBColor[0.7333333333333333, 0.6, 0.4666666666666667], SphereBox[{7.980245047292903, -4.459232501330977, 0.12655229971807103`}, 0.255]}, {RGBColor[0.7333333333333333, 0.6, 0.4666666666666667], SphereBox[{ 11.943196328247794`, -3.4405987920980374`, -2.1973629836119994`}, 0.255]}, {RGBColor[0.7333333333333333, 0.6, 0.4666666666666667], SphereBox[{9.12461388245235, -3.564237612265092, -1.9041939333290459`}, 0.255]}, {RGBColor[0.7333333333333333, 0.6, 0.4666666666666667], SphereBox[{9.26142312932195, -8.35948391611294, 2.3604725371222326`}, 0.255]}, {RGBColor[0.7333333333333333, 0.6, 0.4666666666666667], SphereBox[{8.08424890617377, -4.495505794556875, 4.798997541998423}, 0.255]}, {RGBColor[0.7333333333333333, 0.6, 0.4666666666666667], SphereBox[{5.218626371666001, -4.4543576696249465`, 0.17435493765918553`}, 0.255]}, {RGBColor[0.7333333333333333, 0.6, 0.4666666666666667], SphereBox[{7.508365229082102, -2.614799702589025, -4.0480005897900835`}, 0.255]}, {RGBColor[0.7333333333333333, 0.6, 0.4666666666666667], SphereBox[{ 3.9371980002901754`, -2.2441804566631625`, -0.03164121925261054}, 0.255]}, {RGBColor[0.7333333333333333, 0.6, 0.4666666666666667], SphereBox[{1.28453314071611, -2.215542676201038, 0.20637130840686035`}, 0.255]}, {RGBColor[0.7333333333333333, 0.6, 0.4666666666666667], SphereBox[{-0.1279136664932785, -4.640876234569323, 0.6898770435346095}, 0.255]}, {RGBColor[0.7333333333333333, 0.6, 0.4666666666666667], SphereBox[{0., 0., 0.}, 0.255]}, {RGBColor[0.7333333333333333, 0.6, 0.4666666666666667], SphereBox[{-2.6635653925414697`, -1.8170592809396665`*^-16, \ -1.2761959987330888`*^-16}, 0.255]}, {RGBColor[0.7333333333333333, 0.6, 0.4666666666666667], SphereBox[{-3.9449472183981267`, 2.2197158559385253`, 0.}, 0.255]}, {RGBColor[0.7333333333333333, 0.6, 0.4666666666666667], SphereBox[{-6.707018237491282, 2.219798070899992, -0.00012583840524360568`}, 0.255]}, {RGBColor[0.7333333333333333, 0.6, 0.4666666666666667], SphereBox[{-8.130972486559717, -0.24632241696105034`, 0.00008618276100624822}, 0.255]}, {RGBColor[0.7333333333333333, 0.6, 0.4666666666666667], SphereBox[{-7.96856069025284, 4.405238240978162, -0.00010110473007696186`}, 0.255]}, {RGBColor[0.7333333333333333, 0.6, 0.4666666666666667], SphereBox[{-10.788497722000546`, 4.421681594573656, -0.3983304825461962}, 0.255]}, {RGBColor[1, NCache[ Rational[1, 3], 0.3333333333333333], NCache[ Rational[1, 3], 0.3333333333333333]], SphereBox[{-11.441648525382725`, 6.388290562511491, -2.12986341280829}, 0.178]}, {RGBColor[0.7333333333333333, 0.6, 0.4666666666666667], SphereBox[{13.179607345692578`, -5.614998978588123, 3.792632284572573}, 0.1]}, {RGBColor[0.7333333333333333, 0.6, 0.4666666666666667], SphereBox[{12.205196272275444`, -2.5746800973056976`, 2.71277085636893}, 0.1]}, {RGBColor[0.7333333333333333, 0.6, 0.4666666666666667], SphereBox[{12.865055895091999`, -7.144171884341117, -0.749349235031052}, 0.1]}, {RGBColor[0.7333333333333333, 0.6, 0.4666666666666667], SphereBox[{ 15.249439453550046`, -4.815396275159719, -0.24992745442096753`}, 0.1]}, {RGBColor[0.7333333333333333, 0.6, 0.4666666666666667], SphereBox[{12.576520337060586`, -1.5032944033353286`, -1.900608071809242}, 0.1]}, {RGBColor[0.7333333333333333, 0.6, 0.4666666666666667], SphereBox[{12.459023693948815`, -4.039940724072308, -4.099456443849243}, 0.1]}, {RGBColor[0.7333333333333333, 0.6, 0.4666666666666667], SphereBox[{7.298838434330237, -8.982791051718115, 2.4120127436436656`}, 0.1]}, {RGBColor[0.7333333333333333, 0.6, 0.4666666666666667], SphereBox[{10.259255304327523`, -9.097067880814755, 4.004257535450714}, 0.1]}, {RGBColor[0.7333333333333333, 0.6, 0.4666666666666667], SphereBox[{10.158465080720351`, -9.057102410664758, 0.6426070148404381}, 0.1]}, {RGBColor[0.7333333333333333, 0.6, 0.4666666666666667], SphereBox[{6.085870616565152, -4.994292990420201, 4.769948976516158}, 0.1]}, {RGBColor[0.7333333333333333, 0.6, 0.4666666666666667], SphereBox[{8.279216775361729, -2.4472765524924847`, 4.897404078707149}, 0.1]}, {RGBColor[0.7333333333333333, 0.6, 0.4666666666666667], SphereBox[{8.981523610574435, -5.35081046457997, 6.443968949066479}, 0.1]}, {RGBColor[0.7333333333333333, 0.6, 0.4666666666666667], SphereBox[{4.198181902855893, -6.211727038964405, 0.3651123356629853}, 0.1]}, {RGBColor[0.7333333333333333, 0.6, 0.4666666666666667], SphereBox[{8.717549033619132, -1.9427573384469419`, -5.574227673748544}, 0.1]}, {RGBColor[0.7333333333333333, 0.6, 0.4666666666666667], SphereBox[{6.321901230422322, -1.068817176563745, -3.3809055129759207`}, 0.1]}, {RGBColor[0.7333333333333333, 0.6, 0.4666666666666667], SphereBox[{6.316471696458098, -4.1456887342511, -4.73965157068031}, 0.1]}, {RGBColor[0.7333333333333333, 0.6, 0.4666666666666667], SphereBox[{4.949416843178771, -0.5062496993845232, -0.3781458498011426}, 0.1]}, {RGBColor[0.7333333333333333, 0.6, 0.4666666666666667], SphereBox[{-0.5064783381203037, -5.583738781162587, -1.1017907326262135`}, 0.1]}, {RGBColor[0.7333333333333333, 0.6, 0.4666666666666667], SphereBox[{-1.909487867230868, -4.221194573067053, 1.6346671779099267`}, 0.1]}, {RGBColor[0.7333333333333333, 0.6, 0.4666666666666667], SphereBox[{1.0106466248182127`, -5.871610184626167, 1.886378923688694}, 0.1]}, {RGBColor[0.7333333333333333, 0.6, 0.4666666666666667], SphereBox[{1.0206822344527362`, 1.7598026982488868`, -0.16407903131640045`}, 0.1]}, {RGBColor[0.7333333333333333, 0.6, 0.4666666666666667], SphereBox[{-3.683860991778121, -1.7673684114743848`, \ -0.0001561953882592837}, 0.1]}, {RGBColor[0.7333333333333333, 0.6, 0.4666666666666667], SphereBox[{-2.924240414526432, 3.987193882053644, -0.00014191171313204798`}, 0.1]}, {RGBColor[0.7333333333333333, 0.6, 0.4666666666666667], SphereBox[{-10.14625054163696, 0.12442435507148672`, 0.21006626221979102`}, 0.1]}, {RGBColor[0.7333333333333333, 0.6, 0.4666666666666667], SphereBox[{-7.480745649698218, -1.414536613959974, 1.5667816904897856`}, 0.1]}, {RGBColor[0.7333333333333333, 0.6, 0.4666666666666667], SphereBox[{-7.795991047989746, -1.2326661820398381`, \ -1.7771050020973869`}, 0.1]}, {RGBColor[0.7333333333333333, 0.6, 0.4666666666666667], SphereBox[{-6.968251244861138, 6.161210597427631, 0.28500904383247594`}, 0.1]}, {RGBColor[0.7333333333333333, 0.6, 0.4666666666666667], SphereBox[{-11.734240615188098`, 4.749664115629626, 1.401861291621106}, 0.1]}, {RGBColor[0.7333333333333333, 0.6, 0.4666666666666667], SphereBox[{-11.383998461962367`, 2.6053773810823757`, -1.1659534376707403`}, 0.1]}, {RGBColor[0.7333333333333333, 0.6, 0.4666666666666667], SphereBox[{-13.257046510069351`, 6.333034971073971, -2.3314029627724198`}, 0.1]}, Text3DBox["1", {8.755950630064522, -5.469921833477757, 2.3919168361090453`}, {1, 0}], Text3DBox["2", {11.513111542811812`, -4.6004151217432545`, 2.3513859532935792`}, {1, 0}], Text3DBox["3", { 12.621317791927153`, -5.174286631130686, -0.26385302587208725`}, {1, 0}], Text3DBox["4", {7.380245047292903, -4.459232501330977, 0.12655229971807103`}, {1, 0}], Text3DBox["5", { 11.343196328247794`, -3.4405987920980374`, -2.1973629836119994`}, {1, 0}], Text3DBox["6", { 8.52461388245235, -3.564237612265092, -1.9041939333290459`}, {1, 0}], Text3DBox["7", {8.66142312932195, -8.35948391611294, 2.3604725371222326`}, {1, 0}], Text3DBox["8", {7.48424890617377, -4.495505794556875, 4.798997541998423}, { 1, 0}], Text3DBox["9", {4.618626371666001, -4.4543576696249465`, 0.17435493765918553`}, {1, 0}], Text3DBox["10", { 6.9083652290821025`, -2.614799702589025, -4.0480005897900835`}, {1, 0}], Text3DBox["11", { 3.3371980002901753`, -2.2441804566631625`, -0.03164121925261054}, {1, 0}], Text3DBox["12", {0.68453314071611, -2.215542676201038, 0.20637130840686035`}, {1, 0}], Text3DBox["13", {-0.7279136664932785, -4.640876234569323, 0.6898770435346095}, {1, 0}], Text3DBox["14", {-0.6, 0., 0.}, {1, 0}], Text3DBox[ "15", {-3.26356539254147, -1.8170592809396665`*^-16, \ -1.2761959987330888`*^-16}, {1, 0}], Text3DBox["16", {-4.544947218398127, 2.2197158559385253`, 0.}, {1, 0}], Text3DBox["17", {-7.307018237491282, 2.219798070899992, -0.00012583840524360568`}, {1, 0}], Text3DBox["18", {-8.730972486559716, -0.24632241696105034`, 0.00008618276100624822}, {1, 0}], Text3DBox["19", {-8.56856069025284, 4.405238240978162, -0.00010110473007696186`}, {1, 0}], Text3DBox["20", {-11.388497722000546`, 4.421681594573656, -0.3983304825461962}, {1, 0}], Text3DBox["21", {-12.041648525382724`, 6.388290562511491, -2.12986341280829}, {1, 0}], Text3DBox["22", {12.579607345692578`, -5.614998978588123, 3.792632284572573}, {1, 0}], Text3DBox["23", {11.605196272275444`, -2.5746800973056976`, 2.71277085636893}, {1, 0}], Text3DBox["24", { 12.265055895091999`, -7.144171884341117, -0.749349235031052}, {1, 0}], Text3DBox["25", { 14.649439453550047`, -4.815396275159719, -0.24992745442096753`}, {1, 0}], Text3DBox["26", { 11.976520337060586`, -1.5032944033353286`, -1.900608071809242}, {1, 0}], Text3DBox["27", { 11.859023693948815`, -4.039940724072308, -4.099456443849243}, {1, 0}], Text3DBox["28", {6.698838434330237, -8.982791051718115, 2.4120127436436656`}, {1, 0}], Text3DBox["29", {9.659255304327523, -9.097067880814755, 4.004257535450714}, {1, 0}], Text3DBox["30", {9.558465080720351, -9.057102410664758, 0.6426070148404381}, {1, 0}], Text3DBox["31", {5.485870616565152, -4.994292990420201, 4.769948976516158}, {1, 0}], Text3DBox["32", {7.679216775361729, -2.4472765524924847`, 4.897404078707149}, {1, 0}], Text3DBox["33", {8.381523610574435, -5.35081046457997, 6.443968949066479}, {1, 0}], Text3DBox["34", {3.598181902855893, -6.211727038964405, 0.3651123356629853}, {1, 0}], Text3DBox["35", { 8.117549033619133, -1.9427573384469419`, -5.574227673748544}, {1, 0}], Text3DBox["36", { 5.721901230422322, -1.068817176563745, -3.3809055129759207`}, {1, 0}], Text3DBox["37", {5.716471696458099, -4.1456887342511, -4.73965157068031}, { 1, 0}], Text3DBox["38", { 4.349416843178771, -0.5062496993845232, -0.3781458498011426}, {1, 0}], Text3DBox[ "39", {-1.1064783381203038`, -5.583738781162587, -1.1017907326262135`}, { 1, 0}], Text3DBox["40", {-2.509487867230868, -4.221194573067053, 1.6346671779099267`}, {1, 0}], Text3DBox["41", {0.4106466248182127, -5.871610184626167, 1.886378923688694}, {1, 0}], Text3DBox["42", {0.4206822344527362, 1.7598026982488868`, -0.16407903131640045`}, {1, 0}], Text3DBox[ "43", {-4.283860991778121, -1.7673684114743848`, -0.0001561953882592837}, \ {1, 0}], Text3DBox["44", {-3.524240414526432, 3.987193882053644, -0.00014191171313204798`}, {1, 0}], Text3DBox["45", {-10.74625054163696, 0.12442435507148672`, 0.21006626221979102`}, {1, 0}], Text3DBox["46", {-8.080745649698217, -1.414536613959974, 1.5667816904897856`}, {1, 0}], Text3DBox[ "47", {-8.395991047989746, -1.2326661820398381`, -1.7771050020973869`}, { 1, 0}], Text3DBox["48", {-7.568251244861138, 6.161210597427631, 0.28500904383247594`}, {1, 0}], Text3DBox["49", {-12.334240615188097`, 4.749664115629626, 1.401861291621106}, {1, 0}], Text3DBox["50", {-11.983998461962367`, 2.6053773810823757`, -1.1659534376707403`}, {1, 0}], Text3DBox["51", {-13.85704651006935, 6.333034971073971, -2.3314029627724198`}, {1, 0}], {RGBColor[0.36, 0.24, 0.12], Opacity[0.5], SphereBox[{10.734864848418775`, -5.035063221409854, 2.3716464883254593`}, 1.1903004568009015`]}, {RGBColor[0.36, 0.24, 0.12], Opacity[0.5], SphereBox[{12.667214667369482`, -4.88735087643697, 1.0437664637107462`}, 1.1938723648075744`]}, {RGBColor[0.36, 0.24, 0.12], Opacity[0.5], SphereBox[{8.668097838678712, -4.964577167404367, 1.259234567913558}, 1.1625678924767877`]}, {RGBColor[0.36, 0.24, 0.12], Opacity[0.5], SphereBox[{12.582257060087473`, -4.307442711614362, -1.2306080047420433`}, 1.1922153222488148`]}, {RGBColor[0.36, 0.24, 0.12], Opacity[0.5], SphereBox[{8.552429464872626, -4.0117350567980345`, -0.8888208168054874}, 0.9927516555891636]}, {RGBColor[0.36, 0.24, 0.12], Opacity[0.5], SphereBox[{10.534252896434218`, -3.5024029461157458`, -2.050814633244118}, 1.162892015105526]}, {RGBColor[0.36, 0.24, 0.12], Opacity[0.5], SphereBox[{9.30867053268788, -6.915202577913131, 2.376189248831715}, 1.1904394105843248`]}, {RGBColor[0.36, 0.24, 0.12], Opacity[0.5], SphereBox[{8.719879864356315, -4.982545317152449, 3.595873423532872}, 1.1905480257740177`]}, {RGBColor[0.36, 0.24, 0.12], Opacity[0.5], SphereBox[{6.599435709479452, -4.456795085477962, 0.15045361868862828`}, 1.1253183349388942`]}, {RGBColor[0.36, 0.24, 0.12], Opacity[0.5], SphereBox[{8.316205777920178, -3.0893519569349337`, -2.976473667031697}, 1.1686678866153497`]}, {RGBColor[0.36, 0.24, 0.12], Opacity[0.5], SphereBox[{4.577912185978088, -3.3492690631440545`, 0.07135685920328749}, 1.025839738003161]}, {RGBColor[0.36, 0.24, 0.12], Opacity[0.5], SphereBox[{2.610865570503143, -2.2298615664321, 0.0873650445771249}, 1.0760376752772804`]}, {RGBColor[0.36, 0.24, 0.12], Opacity[0.5], SphereBox[{0.5780617642283121, -3.4286352533351536`, 0.4482090615115743}, 1.1687932099947655`]}, {RGBColor[0.36, 0.24, 0.12], Opacity[0.5], SphereBox[{0.642266570358055, -1.107771338100519, 0.10318565420343018`}, 1.0289442947952179`]}, {RGBColor[0.36, 0.24, 0.12], Opacity[0.5], SphereBox[{-1.3317826962707349`, -9.085296404698332*^-17, \ -6.380979993665444*^-17}, 1.0760826962707348`]}, {RGBColor[0.36, 0.24, 0.12], Opacity[0.5], SphereBox[{-3.3042563054697984`, 1.1098579279692626`, -6.380979993665444*^-17}, 1.0258106188343346`]}, {RGBColor[0.36, 0.24, 0.12], Opacity[0.5], SphereBox[{-5.325982727944704, 2.2197569634192584`, -0.00006291920262180284}, 1.1253355115916557`]}, {RGBColor[0.36, 0.24, 0.12], Opacity[0.5], SphereBox[{-7.419245380318498, 0.986304824831161, -0.000019790595381864766`}, 1.168650063124714]}, {RGBColor[0.36, 0.24, 0.12], Opacity[0.5], SphereBox[{-7.3377894638720615`, 3.3125181559390766`, -0.00011347156766028377`}, 1.0060089697829193`]}, {RGBColor[0.36, 0.24, 0.12], Opacity[0.5], SphereBox[{-9.378875761694916, 4.413461938578389, -0.19926473395373873`}, 1.1686322579877293`]}, {RGBColor[0.36, 0.24, 0.12], Opacity[0.5], SphereBox[{-11.124385061197044`, 5.433023921736189, -1.2887833238581563`}, 1.1337187872076826`]}, {Opacity[0.5], SphereBox[{12.884884752134715`, -5.33462207990408, 3.394348619917788}, 1.2357933686504747`]}, {Opacity[0.5], SphereBox[{12.179745052042083`, -3.1345712816714286`, 2.6128879896791313`}, 1.235476938118349]}, {Opacity[0.5], SphereBox[{12.963518223624959`, -6.599742377012734, -0.6151696113542727}, 1.2355730589675256`]}, {Opacity[0.5], SphereBox[{14.688861716617655`, -4.914594438348843, -0.253776516080963}, 1.2353780533600913`]}, {Opacity[0.5], SphereBox[{12.40146881928103, -2.038767666522724, -1.9826314863597025`}, 1.2353871297692312`]}, {Opacity[0.5], SphereBox[{12.316464133725743`, -3.8743001863133615`, -3.573773579338775}, 1.2356145987409288`]}, {Opacity[0.5], SphereBox[{7.841261116950456, -8.810520306178283, 2.397767968803885}, 1.235831756042301]}, {Opacity[0.5], SphereBox[{9.983434344568963, -8.893184780888214, 3.5498821733081236`}, 1.2355456477561668`]}, {Opacity[0.5], SphereBox[{9.910524724613316, -8.864282244677659, 1.1174211399485947`}, 1.2357130332048445`]}, {Opacity[0.5], SphereBox[{6.638170285116353, -4.856441211112265, 4.777977242821476}, 1.235890354920097]}, {Opacity[0.5], SphereBox[{8.225331411789277, -3.0133676620073833`, 4.8702064074675695`}, 1.235839640489124]}, {Opacity[0.5], SphereBox[{8.733523631471755, -5.11441068728564, 5.989311225432246}, 1.2357521462040213`]}, {Opacity[0.5], SphereBox[{4.48280406731925, -5.72156193057174, 0.3119063208657773}, 1.2160885328938793`]}, {Opacity[0.5], SphereBox[{8.383361647119981, -2.1284926091697773`, -5.15241765737342}, 1.2358872600617417`]}, {Opacity[0.5], SphereBox[{6.649823391060535, -1.49610526184555, -3.5652813214177432`}, 1.2357996583165434`]}, {Opacity[0.5], SphereBox[{6.645900799262094, -3.7225641963717524`, -4.548485198977168}, 1.2357603015255403`]}, {Opacity[0.5], SphereBox[{4.667055531062927, -0.9910504047253608, -0.2814874020521441}, 1.215846824723846]}, {Opacity[0.5], SphereBox[{-0.40184338868091957`, -5.323132384725588, \ -0.6065753012310082}, 1.2357025058258968`]}, {Opacity[0.5], SphereBox[{-1.4170851164698377`, -4.337188846267755, 1.3735401022789004`}, 1.2357979822662262`]}, {Opacity[0.5], SphereBox[{0.695959477124184, -5.531447121440929, 1.5556772763982207`}, 1.235767545619187]}, {Opacity[0.5], SphereBox[{0.7359793082977398, 1.2689339824672794`, -0.1183118191913621}, 1.2159849801037783`]}, {Opacity[0.5], SphereBox[{-3.3992308753774267`, -1.274328671758536, \ -0.00011262182822950698`}, 1.2157337494382183`]}, {Opacity[0.5], SphereBox[{-3.2089433155650586`, 3.4941961674814834`, -0.00010232867492087707`}, 1.216034289865974]}, {Opacity[0.5], SphereBox[{-9.589263295678244, 0.02195649810146083, 0.1520314784492417}, 1.235827769989031]}, {Opacity[0.5], SphereBox[{-7.660474571644586, -1.091631027284257, 1.1337320551018686`}, 1.2356247627619668`]}, {Opacity[0.5], SphereBox[{-7.888567402462977, -0.9600776158846385, -1.2859557557435934`}, 1.2359745373753002`]}, {Opacity[0.5], SphereBox[{-7.247280685092449, 5.671394185177429, 0.20547952871675754`}, 1.215917857231867]}, {Opacity[0.5], SphereBox[{-11.472847895084092`, 4.6590134282779765`, 0.9043084916497837}, 1.235479740145197]}, {Opacity[0.5], SphereBox[{-11.219411351481211`, 3.107375518435559, -0.9537944332485896}, 1.2355124012820666`]}, {Opacity[0.5], SphereBox[{-12.736384836546724`, 6.348882443061943, -2.273600805752049}, 1.1252864433636154`]}, {RGBColor[ NCache[ Rational[1, 3], 0.3333333333333333], 1, 1], Opacity[0.3], SphereBox[{5.218626371666001, -4.4543576696249465`, 1.5743549376591854`}, 1.4]}, {RGBColor[ NCache[ Rational[1, 3], 0.3333333333333333], 1, 1], Opacity[0.3], SphereBox[{3.9371980002901754`, -2.2441804566631625`, 1.3683587807473894`}, 1.4]}, {RGBColor[ NCache[ Rational[1, 3], 0.3333333333333333], 1, 1], Opacity[0.3], SphereBox[{1.28453314071611, -2.215542676201038, 1.6063713084068603`}, 1.4]}, {RGBColor[ NCache[ Rational[1, 3], 0.3333333333333333], 1, 1], Opacity[0.3], SphereBox[{0., 0., 1.4}, 1.4]}, {RGBColor[ NCache[ Rational[1, 3], 0.3333333333333333], 1, 1], Opacity[0.3], SphereBox[{-2.6635653925414697`, -1.8170592809396665`*^-16, 1.3999999999999997`}, 1.4]}, {RGBColor[ NCache[ Rational[1, 3], 0.3333333333333333], 1, 1], Opacity[0.3], SphereBox[{-3.9449472183981267`, 2.2197158559385253`, 1.4}, 1.4]}, {RGBColor[ NCache[ Rational[1, 3], 0.3333333333333333], 1, 1], Opacity[0.3], SphereBox[{-6.707018237491282, 2.219798070899992, 1.3998741615947563`}, 1.4]}, {RGBColor[ NCache[ Rational[1, 3], 0.3333333333333333], 1, 1], Opacity[0.3], SphereBox[{-7.96856069025284, 4.405238240978162, 1.399898895269923}, 1.4]}, {RGBColor[1, 1, NCache[ Rational[1, 3], 0.3333333333333333]], Opacity[0.3], SphereBox[{5.218626371666001, -4.4543576696249465`, -1.2256450623408144`}, 1.4]}, {RGBColor[1, 1, NCache[ Rational[1, 3], 0.3333333333333333]], Opacity[0.3], SphereBox[{ 3.9371980002901754`, -2.2441804566631625`, -1.4316412192526105`}, 1.4]}, {RGBColor[1, 1, NCache[ Rational[1, 3], 0.3333333333333333]], Opacity[0.3], SphereBox[{1.28453314071611, -2.215542676201038, -1.1936286915931396`}, 1.4]}, {RGBColor[1, 1, NCache[ Rational[1, 3], 0.3333333333333333]], Opacity[0.3], SphereBox[{0., 0., -1.4}, 1.4]}, {RGBColor[1, 1, NCache[ Rational[1, 3], 0.3333333333333333]], Opacity[0.3], SphereBox[{-2.6635653925414697`, -1.8170592809396665`*^-16, \ -1.4000000000000001`}, 1.4]}, {RGBColor[1, 1, NCache[ Rational[1, 3], 0.3333333333333333]], Opacity[0.3], SphereBox[{-3.9449472183981267`, 2.2197158559385253`, -1.4}, 1.4]}, {RGBColor[1, 1, NCache[ Rational[1, 3], 0.3333333333333333]], Opacity[0.3], SphereBox[{-6.707018237491282, 2.219798070899992, -1.4001258384052435`}, 1.4]}, {RGBColor[1, 1, NCache[ Rational[1, 3], 0.3333333333333333]], Opacity[0.3], SphereBox[{-7.96856069025284, 4.405238240978162, -1.4001011047300769`}, 1.4]}, TubeBox[{{12.113111542811811`, -4.6004151217432545`, 2.3513859532935792`}, {9.355950630064521, -5.469921833477757, 2.3919168361090453`}}, 0.06], TubeBox[{{ 13.221317791927152`, -5.174286631130686, -0.26385302587208725`}, { 12.113111542811811`, -4.6004151217432545`, 2.3513859532935792`}}, 0.06], TubeBox[{{7.980245047292903, -4.459232501330977, 0.12655229971807103`}, { 9.355950630064521, -5.469921833477757, 2.3919168361090453`}}, 0.06], TubeBox[{{ 11.943196328247794`, -3.4405987920980374`, -2.1973629836119994`}, { 13.221317791927152`, -5.174286631130686, -0.26385302587208725`}}, 0.06], {RGBColor[1., 0.75, 0.5], TubeBox[{{9.12461388245235, -3.4442376122650917`, -1.9041939333290459`}, { 7.980245047292903, -4.339232501330977, 0.12655229971807103`}}, 0.06], TubeBox[{{9.12461388245235, -3.684237612265092, -1.9041939333290459`}, { 7.980245047292903, -4.579232501330977, 0.12655229971807103`}}, 0.06]}, TubeBox[{{9.12461388245235, -3.564237612265092, -1.9041939333290459`}, { 11.943196328247794`, -3.4405987920980374`, -2.1973629836119994`}}, 0.06], TubeBox[{{9.26142312932195, -8.35948391611294, 2.3604725371222326`}, { 9.355950630064521, -5.469921833477757, 2.3919168361090453`}}, 0.06], TubeBox[{{8.08424890617377, -4.495505794556875, 4.798997541998423}, { 9.355950630064521, -5.469921833477757, 2.3919168361090453`}}, 0.06], TubeBox[{{5.218626371666001, -4.4543576696249465`, 0.17435493765918553`}, { 7.980245047292903, -4.459232501330977, 0.12655229971807103`}}, 0.06], TubeBox[{{7.508365229082102, -2.614799702589025, -4.0480005897900835`}, { 9.12461388245235, -3.564237612265092, -1.9041939333290459`}}, 0.06], {RGBColor[1., 0.75, 0.5], TubeBox[{{ 3.9371980002901754`, -2.1241804566631624`, -0.03164121925261054}, { 5.218626371666001, -4.334357669624946, 0.17435493765918553`}}, 0.06], TubeBox[{{ 3.9371980002901754`, -2.3641804566631626`, -0.03164121925261054}, { 5.218626371666001, -4.574357669624947, 0.17435493765918553`}}, 0.06]}, TubeBox[{{1.28453314071611, -2.215542676201038, 0.20637130840686035`}, { 3.9371980002901754`, -2.2441804566631625`, -0.03164121925261054}}, 0.06], TubeBox[{{-0.1279136664932785, -4.640876234569323, 0.6898770435346095}, { 1.28453314071611, -2.215542676201038, 0.20637130840686035`}}, 0.06], {RGBColor[1., 0.75, 0.5], TubeBox[{{0., 0.12, 0.}, {1.28453314071611, -2.095542676201038, 0.20637130840686035`}}, 0.06], TubeBox[{{0., -0.12, 0.}, {1.28453314071611, -2.335542676201038, 0.20637130840686035`}}, 0.06]}, TubeBox[{{-2.6635653925414697`, -1.8170592809396665`*^-16, \ -1.2761959987330888`*^-16}, {0., 0., 0.}}, 0.06], {RGBColor[1., 0.75, 0.5], TubeBox[{{-3.9449472183981267`, 2.3397158559385254`, 0.}, {-2.6635653925414697`, 0.11999999999999982`, -1.2761959987330888`*^-16}}, 0.06], TubeBox[{{-3.9449472183981267`, 2.099715855938525, 0.}, {-2.6635653925414697`, -0.12000000000000018`, \ -1.2761959987330888`*^-16}}, 0.06]}, TubeBox[{{-6.707018237491282, 2.219798070899992, -0.00012583840524360568`}, {-3.9449472183981267`, 2.2197158559385253`, 0.}}, 0.06], TubeBox[{{-8.130972486559717, -0.24632241696105034`, 0.00008618276100624822}, {-6.707018237491282, 2.219798070899992, -0.00012583840524360568`}}, 0.06], {RGBColor[1., 0.75, 0.5], TubeBox[{{-7.96856069025284, 4.525238240978162, -0.00010110473007696186`}, {-6.707018237491282, 2.339798070899992, -0.00012583840524360568`}}, 0.06], TubeBox[{{-7.96856069025284, 4.2852382409781615`, -0.00010110473007696186`}, {-6.707018237491282, 2.099798070899992, -0.00012583840524360568`}}, 0.06]}, TubeBox[{{-10.788497722000546`, 4.421681594573656, -0.3983304825461962}, {-7.96856069025284, 4.405238240978162, -0.00010110473007696186`}}, 0.06], TubeBox[{{-11.441648525382725`, 6.388290562511491, -2.12986341280829}, {-10.788497722000546`, 4.421681594573656, -0.3983304825461962}}, 0.06], TubeBox[{{13.179607345692578`, -5.614998978588123, 3.792632284572573}, { 12.113111542811811`, -4.6004151217432545`, 2.3513859532935792`}}, 0.06], TubeBox[{{12.205196272275444`, -2.5746800973056976`, 2.71277085636893}, { 12.113111542811811`, -4.6004151217432545`, 2.3513859532935792`}}, 0.06], TubeBox[{{12.865055895091999`, -7.144171884341117, -0.749349235031052}, { 13.221317791927152`, -5.174286631130686, -0.26385302587208725`}}, 0.06], TubeBox[{{ 15.249439453550046`, -4.815396275159719, -0.24992745442096753`}, { 13.221317791927152`, -5.174286631130686, -0.26385302587208725`}}, 0.06], TubeBox[{{12.576520337060586`, -1.5032944033353286`, -1.900608071809242}, { 11.943196328247794`, -3.4405987920980374`, -2.1973629836119994`}}, 0.06], TubeBox[{{12.459023693948815`, -4.039940724072308, -4.099456443849243}, { 11.943196328247794`, -3.4405987920980374`, -2.1973629836119994`}}, 0.06], TubeBox[{{7.298838434330237, -8.982791051718115, 2.4120127436436656`}, { 9.26142312932195, -8.35948391611294, 2.3604725371222326`}}, 0.06], TubeBox[{{10.259255304327523`, -9.097067880814755, 4.004257535450714}, { 9.26142312932195, -8.35948391611294, 2.3604725371222326`}}, 0.06], TubeBox[{{10.158465080720351`, -9.057102410664758, 0.6426070148404381}, { 9.26142312932195, -8.35948391611294, 2.3604725371222326`}}, 0.06], TubeBox[{{6.085870616565152, -4.994292990420201, 4.769948976516158}, { 8.08424890617377, -4.495505794556875, 4.798997541998423}}, 0.06], TubeBox[{{8.279216775361729, -2.4472765524924847`, 4.897404078707149}, { 8.08424890617377, -4.495505794556875, 4.798997541998423}}, 0.06], TubeBox[{{8.981523610574435, -5.35081046457997, 6.443968949066479}, { 8.08424890617377, -4.495505794556875, 4.798997541998423}}, 0.06], TubeBox[{{4.198181902855893, -6.211727038964405, 0.3651123356629853}, { 5.218626371666001, -4.4543576696249465`, 0.17435493765918553`}}, 0.06], TubeBox[{{8.717549033619132, -1.9427573384469419`, -5.574227673748544}, { 7.508365229082102, -2.614799702589025, -4.0480005897900835`}}, 0.06], TubeBox[{{6.321901230422322, -1.068817176563745, -3.3809055129759207`}, { 7.508365229082102, -2.614799702589025, -4.0480005897900835`}}, 0.06], TubeBox[{{6.316471696458098, -4.1456887342511, -4.73965157068031}, { 7.508365229082102, -2.614799702589025, -4.0480005897900835`}}, 0.06], TubeBox[{{4.949416843178771, -0.5062496993845232, -0.3781458498011426}, { 3.9371980002901754`, -2.2441804566631625`, -0.03164121925261054}}, 0.06], TubeBox[{{-0.5064783381203037, -5.583738781162587, -1.1017907326262135`}, \ {-0.1279136664932785, -4.640876234569323, 0.6898770435346095}}, 0.06], TubeBox[{{-1.909487867230868, -4.221194573067053, 1.6346671779099267`}, {-0.1279136664932785, -4.640876234569323, 0.6898770435346095}}, 0.06], TubeBox[{{1.0106466248182127`, -5.871610184626167, 1.886378923688694}, {-0.1279136664932785, -4.640876234569323, 0.6898770435346095}}, 0.06], TubeBox[{{1.0206822344527362`, 1.7598026982488868`, -0.16407903131640045`}, {0., 0., 0.}}, 0.06], TubeBox[{{-3.683860991778121, -1.7673684114743848`, \ -0.0001561953882592837}, {-2.6635653925414697`, -1.8170592809396665`*^-16, \ -1.2761959987330888`*^-16}}, 0.06], TubeBox[{{-2.924240414526432, 3.987193882053644, -0.00014191171313204798`}, {-3.9449472183981267`, 2.2197158559385253`, 0.}}, 0.06], TubeBox[{{-10.14625054163696, 0.12442435507148672`, 0.21006626221979102`}, {-8.130972486559717, -0.24632241696105034`, 0.00008618276100624822}}, 0.06], TubeBox[{{-7.480745649698218, -1.414536613959974, 1.5667816904897856`}, {-8.130972486559717, -0.24632241696105034`, 0.00008618276100624822}}, 0.06], TubeBox[{{-7.795991047989746, -1.2326661820398381`, -1.7771050020973869`}, \ {-8.130972486559717, -0.24632241696105034`, 0.00008618276100624822}}, 0.06], TubeBox[{{-6.968251244861138, 6.161210597427631, 0.28500904383247594`}, {-7.96856069025284, 4.405238240978162, -0.00010110473007696186`}}, 0.06], TubeBox[{{-11.734240615188098`, 4.749664115629626, 1.401861291621106}, {-10.788497722000546`, 4.421681594573656, -0.3983304825461962}}, 0.06], TubeBox[{{-11.383998461962367`, 2.6053773810823757`, -1.1659534376707403`}, {-10.788497722000546`, 4.421681594573656, -0.3983304825461962}}, 0.06], TubeBox[{{-13.257046510069351`, 6.333034971073971, -2.3314029627724198`}, {-11.441648525382725`, 6.388290562511491, -2.12986341280829}}, 0.06]}, AspectRatio->Automatic, Axes->Automatic, AxesLabel->{ FormBox["xl", TraditionalForm], FormBox["yl", TraditionalForm], FormBox["zl", TraditionalForm]}, Boxed->True, ImageSize->{320., Automatic}, SphericalRegion->True, ViewPoint->{-0.11528174602189523`, 0.08846347408175692, 3.380663297754973}, ViewVertical->{-0.13663026631117858`, 1.376086872981189, 1.2376589063776597`}]], "Output", CellChangeTimes->{ 3.57276662008957*^9},ImageCache->GraphicsData["CompressedBitmap", "\<\ eJzsvXd8HNd57v+9lHtiJ7ETt8SxY8eOnWsnuUlsK7ZsWY2kRIokCIAVhb03 9N470XvvbQEs2i56770vKgGwgp0iVSiJTrm5787uQpACW75Mfvn8/rjz4bsz O9gzZ+Y5z3nf5z1zZvj6QccTR88edDx5+OC3NtkfvHDi5GGHb208by+7nvkf 8D9+JfZP30K//e9g+vh3+ffvL+g/9Hv+3/b/2/7/yfbXlO1P4ufnp2zpzdXV lcePH/OddX63a9cupqenGR8fJysrS9n+Tb+7efMmx44do6GhgdbW1g/97o/1 Hxv49a9/LT++du0aw8PD1NTU4Ovry8GDB9nA4cOHeYb9+/crf9MX/Ys1B/j8 Bwd45kMH2KA/xAblIj5LYWEhXV1dPP/88xQXF9Pd3a2c2qZNmxgcHFQKfHvN UT/1Oxz1mdWjzs7Oyh/ee++9DcohPktdXR2dnZ1KFfq1ftFXpUfzwYMHhISE mKr7309X0yeV0p9SatIfVf/NVKv8eINS9SeVcqbmfPvtt9dW/P7TVfz7SunP rDa6/gf6bX3F+pbS19vS0vIJ5WfPKM0opZRv3zJU/ObTVfwlpfSnlassKytT KtNvnzt3TsFWf5RP/uZa7z5drV8z1nr37l0Ttsol6s/A1KKfMtZaWVnJpUuX 1tZ6/elq/aax1qWlpQ+Bu5ZHnzbWqi9o6hjGWhefrlYDMT7HkydPlC3TWn+9 pmbWL2FhYfoz+IzxBPTl9QdfcwLTT3cCPzByS1/hG2+8wVtvvbXKKVM3kkIK t57Rf3nGeAomaq85hdGnO4W/MyKvv9bY2FjlWvWnYLp2/VE+Y/Rthoj+4c5l dE19T1f7T4y165Ffy3M9AHqe64/0WWPPX1u73oycN15++9OdwC+MB197+WtI 97nfULeR+ca6G56u7peNsJo69Vqyf9ZwSFlMjmUt7Q3dheqnq3eLUvoTSigz Mkxf5zOrVZq8ytqrNjFvLfmNp1H6dKfxfSP5r127T1/fAuqiXhKCNaQGakjz qWaqbYE7y/f/3NgE+sOvPbiVldUHfvcTHzpX0yVsWNtl1jnx/Kc78R8ppX+f GzfuUaHuIylGS7ZYcZSW8ggt1aFatEFi/lpqvLRonKt4sHjvT4wnsvZCNijV fVrhsl4x6GtcW59+3yfXv8LPreMKjNeV8XTX9Q9K6S9wc+U+qfEaMhK0FMZr qYiroTamhqaoWtoia+mMqKUroobOi2IhWjp9qxlN7vj8b7y+T657fRuUmp9Z jVtrWbY2nj2z/vX/nvGP+sOafmrgColPd/3/pJT+Q26t3CM5Uk1caAnhrnkk OxeS41hCsb2acvtyWoMa6I1qYSSlnZHkVoYTmxiOrWUotIrprLZP/hfgYGrc tRH2Y3BYC5kRh6j/DA8+ydWr0jF7FhjsXmCkc4HR9gXDSRjO4YvcvnEX0xLt UUyaezmFLhoqXOqocW+g0auJVp9mOnyb6AtpZTp3EF1OH1MZnYzECZF8smjP rPi/BeeP1vGIHwPOWhyN4IQ8HTjPGmPuQP8CsVHiraTT50mnV13UopbOUB4g 5qOlzLWKucY504msrkNd4on0yCHGU21wvm5NVLq3Ue/dRVtADx1BPXQFd9Ed 0kl3YCvdfk00BFRR6VtMtU8Bzf65gmnCerh81YjBWk8npsTt318HMyMQvv+Z yPlFVsQLJsZWkSaeIl9MHSteL1pLY6SWlnAtbWFi4hFbxSO2CjCjad08uHRH ufj4gAyi3dLESg3R5guCRS+13n00BfTTETpIX+QwQzEjjMYNMxozwEhUL1OF U+hKJtHl96LL1HJnePLP1vGGpsi5lhMmQqzFyIiD29Ph8JJS+i+5JThkJFSR lSiRQKw6oY7GuEbaY5vpiWuhP6GFoUS9NdEfW0dbiJp693zKjyeR6pOinGXI +QxlHevQRrbzgLJdH6ijM1J6YeIyY6mXpfNcpjtikLYzMcwndzOVNsVY5gS6 qkvoysbQFbUzlV349dWOul40/7114DLCYP90MLxq9Fu3btwhJ6GcvKQaipMb qE5qpTa6FU2Q+ITAGmoCqmkIrjaczjM0BqqEGSqa3LNRwjVfIs5Vo2yluU1Q 7L2gbLdHX6cv8Raj6XeYzL7LTN5d1P46hvMnmS+4gS5P0MmaZrRoGl31DLqK fnSqKr7xGwPK7wzI6acDZJtS+g9Ww0B2Qj6R3ulE+xQS6ZRH3Pl8sp3UVAU0 0hzZQU9CL/3JvUznjXOpZIoF1YTxHL9Mi1s2a5cM93lUAdeU7Y7EBwykP2I8 522mC96hJOg2fXVPuFT6JgulbzCtusVYwRIjemTqFtHVjgpX6nn7zsqfGbvJ WnBMsukP1gHOACZHng6QrR+Eji+vFjEtJr+fkZJOvH8qqSEVpIU0Uhk7JL1o nL6MeUbz5OyLlpkvvcxi+RWWKy9zpXJZbFE5xkTByAYjrZJPpSlbSU6TRlr9 IXWxD+lMecxg1vsC1rvkB96lo+7fuFT+hMXK91ioEADL7zNeep0hPVjNl9E1 Sceqbeb29OifGaPi2lBicup/+JvBsv7PsGc9EfFlpRb9oi+qX/QF9Yu+sL52 E69byhpRiRdSJfajTpyiPmmBrvTLDOVdZ1J1k7ny2yxW3eGK9g7Xau8YcPoq yzXXGMmfUL61RjSRfCJT2U52nCHD55pEuvvUJrxNZ/p79GQ9IdHzBo2C42LV Exaq3+eS5jELmreYrnrAePlNhspEOtQInm3itZtaTD1ybSTasEq7L6wTsI1I 7vqvRvK3KA6l5H+UE4bhru+v7i6OLkYV3yEoj1OesEhD6nW6c28zUnwPXfkb AscjLte+ybWGt1hpepObzY+Uspeb7jFaMm+AOK5DIDYk28lOc6T7rVAc8RBt 4jsijt4l2vsuldr/zYzmn5nTvMe89jHzNW8zp33ItOYeY9UrDIrvH20Ur9c1 xVRLkwnitUHui+vAbgR2+38xsEox+YO+XGRkpFLyA1RNoyhrod3wAbjfQxVV iSq2D1XcDBWJ1wg90UySeTJ94cKj9Oss1r7PlcYn3Gh5ws22J8qBVtofK+ux 8ssGUJMHyLYvNvgAx1nSBNSCiAcSjR4R6H6L/Ip/YVj9LhNVj9Fp3ma25k1m ah8yU3MfnVYcZs1VBmvmGG3RoesZZ2ls2ATq2gjxxXWANoK6+b8V1D/4CKgf 4Pn51X0qSdlU0cOoYi5RnrRCTtgS6uhZOop/TVP2r+nIe5fJrBWWiu5hCs9X Oh8zVnmd9qyZ1fCcfKScJDsd4ecGyPBfxNnhBsnF/0xHwQP6JOAMV7zBePUD JgXLyZq7TNTeYrz2OiP1iwzUTzHRPcNkzzA3lhdZD1RFtn1aX9en1/mrEd4X /vPwPnr0SCn5O8BrGIr98DDQGqgNSP/VB0iHidONGBW0lyhPvU1D3iO6S95j tPqfman7Vy41/SuX2/6VieZ/FXb9GzcG/lUpe7X3MXck6lyuvsR8xSzTOY0U nsjBZ2cJwfsrcTw5Rkj2E6rTb9KUd4tO1W16xYkPVt1iRHOTEe0NhvXMrV+i T9xBb+MI4wMzzE/NGIcGPhyiPmEMaWtZY1p/Zg32ehe5Bvuf/X+B/W8s9qer seGDASoD4N9FFVSLKnRMXMYyZWl3qMt/i66ydxmRMKSrf8K8uIjljl9ztUvc Re/7rPQZouOV3ndY6H6TJvVl+tqvMdk2Q2n2GE4vZhFqoyXBsZEsnzpKUy6j yb5CY+FV2kqv0qW+Qk/FZXo0S3TXLdApILc1jdPRMkJv74Rc1purQK+NYL9h COez67SJQWbwD/+tGP9PYw7TmituN1BcROQSJal3qMl/SHvZWwyKi5xoeIfZ lsdc6njM5e7HQtZ3uNb3tiGe9Txkvld0aO0SrYWjYh1UZw3x6j944rO3mkj7 JuJ8W8mKm0WVNkdl9jy1BfM0lMzRVD5Ls2ZGJIQolIYJahpGaOqY4OGjt7+1 Tsz6qHj/gA4fDimfXqcZjNj+8D+B7dpi+iIfX+zvlUq/w1SraHYfwVfCWEny Tarz7tFS+oDe6ofiGh9J3H7EbMcjLnUZNMJy7xtcFkz1y1z/bXQDN2gp6Kcp v4mSxHGigvuwO1SO274KfM624+/WTrhfG3kpU6iypygrmqRcPYm6aoIy7TjF NWMU1Qxx/9E7xkH7D8etNSM7z3zIG3xmnVYwIvnd/yIkf7diPzNmaoVubaiC daK6rlKevUKDuMGOyjv0195lVJTVZNs9ZjrvMdd910iKL6IblF4+uMRQ2xjl koE7HYrCxuw0W36+EV/L8xzY7Mwxq0JsjmZz6nwezm7FhMe2klY8TkrZOImS WTf3X/qCERH9eHWpqpe4MC2pwVoyArQ0ZPeha13g9uLdz6+D73q659Pr/M4I 7Z//t0JruDP+Te4sPaLQa5iiqAWK0y5TVXCNRvV1OjQr9NWvMNy8wljbChPt N5jskjSi9ypj/ZcZHlxkaGCenu5h/J1d2PwPL7Ll2VfY/rNXsHvFGatXzDm2 4yAndtlzwNKFQ/tcOGztwoljvsSlVDE0dZXPG5tXf5yEWC1pYvkxWkojtVRe 1KIRnLWCc42vllp3Df1J3avDWmsVwqdXw8Rn18CbkJCwFt6v/LfCaxgc+XPq 4ifIC9SRH79AUeYlqoqWqC9fpk1zma46iUWNlxloXWagc4n+3kv09EvG1j9P e4+Os4etOWSxjSMW27F4bhNmz27k1POnOLVxMwc2WXB4iwU2L27E+qWNWL30 ClYvvszRjZu4NDW1YbVrG3r2H32IhDUVvaQnaMkRU8VrqY6toT66hpbIWtoj DMP9neE1dIbV0BWood2tnIeLd9cdgP+jddrDiPgfr3Ej+oCnt/9qnM2MMmW0 8TqZQbNkJSyQn7UgvnABjXqB+uoFmusXaGkR61igqUv29Syg7ZjB5dxZjlhu 46jldk5Y7OC0hRnHt27j2EvH8DDfy57nN7PvBbGXNnNw86scf30LjvJbB/Nt kgK7rRuYnjFmCaZ99ZXd5CZplcGx0sQ6tPFNNMe20RHbQV98J4OJ4mKTOxlJ amc4sYXh+EZGIrQM+JXyaPm26a7AWr3wxXX2/anhBL5kVB36u8rf+c53lAZ5 8ODBU2K7Vznal1lZfpsq0UNJwuH0zAXyBNvicsFYu4C6QdbN8r15npnL99GU FnHU4nUF02OWOzglmJ4Vu2C5E5tfHibM+gROe8xx3mO+AZc9O0UoOe8xw3n3 Dpx2bcdJijaWFK47YGeIVH9IQVI1hcki1ZJaJWXuojm+n67EIQZSRhjJGGMi a4yp7FF0OSNig0xl9jKV2sZknJbF4pb1brT8FkgVJ/7MquZYc7fUcD5tbW0K zGNjYxufDubDxlSjb0jk1MQDhnUPGJkVm3/A4Pw9g9T5HEfNt3JMvMExYeoJ QfSMxU7O7zLHfrc5J7eYE2Z1Hpe9FpLQ7DOXM3Tdu1O+iu3ZgcuubYLsVqP6 /8q66r8oQU1xUgOqpC4qkwZoTBijM2mK6B0xNJ1OYip/gVlp+PniBRZUc2Iz 8n0SXd4wusx2dEkV3OofX/XAa7XDF9eB3AjvZ9fXyevpuw1GYa2fKaC/Ya73 OPoGE+Tlb0+ePHnu6fC3U477BTTCu2Pmr3Nc3O1xAfiUAHzW0hy73RY47LHA aa8lQbs9cN1viZuYu96sLDbIF3O5Atd9ZgK6gL1bKFxauB6DNxiliSpBgyqx W0TdKNoEHa1J8/RmLNEUM0m/9yCzJTdYUN9gqeIGy5KLL1VeYb58ienSGXSF Q8LqZi7XtqwNdr9t0McI9RqRZ4AY01SD/wv4P5g2Ypom9I1vfIOvfOUryjyG Hz9dC7gqh/59tCVFHBfnelyh+E5OC/rndllgJ+g7CvrO+yxx3OSGm5Ugb225 AQ9rSzkjd2sLaQhzaYedoo31rbCNZnXRb0wUPmiGFrERyhJmqU1YpiPtOgO5 txgvvovq+AiLBQssVT9AkzxCVmgLkS7lxDmpSbArJfFMMcUuZTT4FZia4eOG iZ6W8c8o00X001T00zc2KNx/RvE7aWlpCvt/9HSw+yiH/7wRdomB5mYK7Gcs LTi/2xJ7gdxx3y6c9+/Cc895Yo5b4W6zCw8xwd7GUpyWCXt3KzPBfzvN5UWr btJArj9RLkkV1y0mOUrcZeokF+rMvsdQ4UMmJdesDZU8PrKHSJ8qyRmrSPeu JNezUlR/BSrBu8SuhJKzRZSeyKXydAGX6mfXHSj64jr7nh50PdimuYWme80m l6PHVgD8y6fDPdhI9wgvN47vNOJubs4Zofr5PXrcdxlwt9rFqa1niDlxSo/7 BgX4TynAu9tY4GYtsFsL3a126GH/lNG537m6Itm8CLuYQbF51PHXqU+/T2f+ WwyXvMtkxRPyIrqIcikhOaCabP9qVL4aKrw1VHtWU+NeSZ0Ivjq3Eupc8mnx VNHlW814ascq6mvj5HoC8L8G9U+sQd0UZqXWP3s61COVo/0xWpWw3UxQ36ln uzmnjajbCeKO+/Wo7+asmTVxR07jbrsbD8WE9bZG2G3E09jsxNVaYK8oNsD+ VYH9hiT6dQL9CKqoS5Ql3qIu8yGdhY8ZLvs1+ZGdJAVoiBFS5wrspQH1VPs1 Ue/bSpNYS0AL7YGNdATV0hFYQc/FSoaj6xgOrWImu/VT6yC/nmr5+hrV8pEh NNNdYdOUQ4Pq+MBPmWLpHz8dvgkmb6LHd8cH+J4SfM8JvhcEXwfB94L1Yc7b XCDgUBBOVhcEx8NyAHdb/VxeN8HY1dZcTISLzQ6aKopWOacKEXDDRo0q2/CZ E9b84XgmJ18d0E1DQB9twQOSwAwqd857o/voj+4Sa2IstZPJNLHERrp88inw LSQuVEuKJJvp/lrqs0UuSlJvFCtfWgOySbsYQf6TdXj8qfU9xe89HabpytG+ xPzUFMe2iywxkwxFMD0pmJ7ef4BzB85z7mgozkfD8D4cRqBtPMHWYYTsDSPY MpSAnW547DuAywFR3AfMcLLZbhyV+CbF+n4fJGQNX1KuQJNtGIVK9i0hXZJu /ZIf1KOs64JGaQ2doDtyir5YHQOJOslaJhkRyT2a1Mtc4RT9iT00Bmpp9Cqk 0TmeEvFBFZLEVwuuGsFV6y0J5/FsSj2KMYGqx9ikUj4Cqknl6b+ZBlLWOAET r/9vEVUmAPJzItw9OLbDTASfxDubM9ifEBRPhuIrFno8jGhBNOFgDGmHwkix CSVlfyjJe0JJ2hlC8K7TOAmaicEeytEqSooJ9HLH2mwbtmIHd4ht34amuBh1 XLl4135h7oJIvpsKmplBGlJ8ywl3VBF0VqXsiz6sIu2kmpxzVVR4tNAU0s9I +iJt4V0M+lcwmjZKf8oYLdE9NEe00hpcTbt/Ns2BOfK9hraLNXToLUwQdy2k 9FQaraJPHi7eWfXQa8XIR9A2TXXXf/vsR3zCx4OqTAfl9xSaHt22A7uDzric CsH9tFBQLOKUgHkinLTjEWQeiUN1KlYK5h8PlzJ5xy6SeyiUXKtg4iwcuejn jq1owAMiSA6LHdMLEwmSJ8Vlb+CkOJa/4MjGzZz81QHiL1SJqLiGOuOWAqLH 4Ug8j2Tgc6SIsCPlyr6ss7UUODZQqp915dmCxruFYucOcQ1l9CXp6Emeoi1x hLa4XjqimukKV9MZkk2PJOj9+gQ9oYOhhDZ6osT9nE9i+KKGfp+Sjwf1k6sP K+inOutN/5DIZ4z+QV8sJydHobKYxhi885JLcD8VjNvJIDyPBeFrG0CodQgx VmEkWYeTahNJsWRjqnOJqO2TKLOTjnYuhpJTFyk8EECMxQUOSf5y1EIvK7Zz WuyMoHdupx698/L5bc4Jkoeff4U9f/Mr4l1qCbRLV5DyPJSA16E8/A6VE3mi QdmX69BOsWsHaq8uiVbdlHsNU596k+awfoYylunLuERn2gwdyWN0JfTSHV9P b1Q2w6kjjGWMMpE5wmTWkDiKbirc8phKbmUypppLRc2mGRRrdcNHADRNV9an FnrTzxX/zDrFYo2pSX//AmpVH0nSCTJCtGQax2j17vzL+t+Y4ob+56apjIa4 8Sf4HLjIRdtoYm3jSDmUSNbRZPJOJFN8Jk0smbLzKVQ6Z1Dpmi7QJ1J2JoKS w74E7jrESUlYzoid0490iJqzk7W9pZkc2172fls+tyu1WP7onzjwwusGuG1T lbX/QQ3RZw0z//NcByjxHKDCb0jWo2iy3qEhbIiG0D5ao4bpz75Gd9Yynemz dKeP0JveTl+yioncOabz55ktnGeuaFb88TRavwrG0nvRpbcxlajmnRu3TZCb 7u7p7WsfdgRr9dfvrfPzKONfhgYWSIrTkh2nV5paKqO01IRrqZNIWi9RoNZX PL67hktN88Yh20/T27fAoFhUiEZ8p5YkPw2THQtMtM5/aOZeWkgaXicCjN/+ mEjrZBIPppFxLIv8MzmoLuShdiik3CGXCsccqpxz0EjUKXfPQe2Ugvp8OKXH 3KRFzDgv+Yyd5U4cdu3EcfdOnHbt3IDTbjM5uOOuHZx+7eU1JPgsnlaZeFmX rYqKVKc+8twHKfEeJV8aJj/+rdVxqO6My6xd+vJ66c+qZLr4GnMl17lUdp1F 9TWxy7TFd9OTKo1RoJ8P28Tlmub1ZhB9pDHWKrX1Jv1GKJ9fYEWoXFPRQ2ai lkKxygRphDgJCjE1dEXXSI+soU+sN7KGbgnJndIvxtO7P7umLROkDdNjtRRE fzD8Xi1dSCNtWe2jpUrackHacsMaSe96QNy8bZCoi1iT+EoU/5FxoogcSY+L LqgodSih2q2KkuPxNPlraJHQV+6aT7l3sfiSPNlOosI+kAjbg9jtMsdht7lp eBAX0xDht+XTjL0//Vt2/PA7HPnZL3Ha7qtU6LW/HN8jDVw820GScz85nkOk ObUQG3hXssw5mmINerExqt+wjhulJ/8WPYVX6S2eVfYNFGiYU9/nUuV9lqvu c1lzj+XqO/RmTdCRLs1VOoVO1SNNpzY12dpxLGOTfXkdLbjeSKPfqhv6hFHb rS2hN9OIcXFSDZqkepoTJCjFtzGQoJ973sF4Wofo1zaxFsaTGxlJqGU4QsNM bqdRfX5emaGrrehV5vPniZXFS2+U1m2U1m2V1u2QntqpJ4I4ynbpiW3SE00T 6Q5t3YGLtafo7yjjvi8TdUhFqqiT3PNVFDtqULvWCCNqpIfXUGmfz1h4GY2S uFR5q0XfFVEeUEq5T5YomWgyz4i62m2B4x4LnPda6Mcocd0nedQ+/dDZPnNp XrO/+S47f/SX7JTmPfOCnSGW7ynB46CWkNMtxDl0EnOhjmCXy2T4t1IZ1E5N ZDe1UQZ5Wi/Svjaqg/bcRbpLr9FbbphCOlzSw0LVOyxpH3O59h2u1r3N5bqH DBZdoiV9CF31PLqqYXTl9dyeGDJNqVk7dvaR5l2rSj+3zs8DjZHro41q8DGG dLmhvE0Zwy6WxqtKbqdJhHN30oDEzCElXk7njjKXP8JCwbDYIPP5vUxn6xu9 iYmYKmbzW4zk+Ro3pednJlSSI4QpFKtIrKFeYnBbXKMomGZRMC0MJ7Qwktgs 1siw/G1QvMLARcOEW/c953C1ChRLxN0qV9kXc7yadFFN+Q6imlyb5LwrvVqk bxd6Cmp507SHNNMoVi1epMyvXDLZUiqCCqkMSBKF5YnDXkuc9lniIrY6Vmpl gft+C4698gvM/+57+o5s4Naf47Y1FneLfMmvKwk4WUf0hUa87ObIK7pHqmsJ FaGtVF8UC29DE9GulKqOlMQ5fZSu0iv0lM8p+0bypwWqRywXPuBq0V1WilaY zZ5hrGCCluxxdHXLYhPotC3cnZkwNfZa/faRxl4rij+3zs/tjcmJ/sGAmHAN qdKrsqVH5UmPypOMpzGrl8nm+c99xDUYupl++ZKIkNsUJpRJZ2+iTBKp+qRh OpMnKDmZz0B4iwT0OS6p5lkum+eKelZsmstlkyyUjDJd0Icus4nJ+FLeunbL KGv+mGz5XpCkoSi5joqkZuoT2+lI6KYvsZfhlH7x/ANMZQ0Ip/qZkWRXl9XF pIgEjUsyOVaeBte+96J00jQ89heZJoFl2LVQ6NJOmWcXVX49ZLjo6Kp+k9bw fjqkM9aFtqMNbaY8SEuJX6m0WSWaYNFLfv6rg7eukv+7We0yxo/Ps/1//gWv ffdPxb5uoOOmcDzMsvGwVuN3XMPZY/0kZT5EHdxOXlADJWGNQscKkemfoCqm VSlTmVBPff7gBuMhWyv6adf8G4MN/8Zk278x3/mvXO75F3rUi4yVd6BJHUDX clVMh66xnbvzU6szn9dqyo9wwaTlfxMXLiifv6/cyk4WTZQjViIet1riap14 3Ebxtk0STxul09RJPK12qebB4v1PrY7ObDBmAGtZol83K1N6ayV57KUycZzm xFn60i8RsTdTWn5QURhXKq9zvfo6N7TXWNFe4apmkcWqOWbUk+iK9C1cw52R SWMdX2ByUEdRYqXigcqSO6lN6pMcaJg+STBHMiaZypliJl/HfKGOS8VTLBZP iGIfM6nnmAOhBFolrxFOPyP2bBMZju0UuneTYV9NwoUOKvMe0CKqtSlqgJbI HuouCskuCkNCaykOLqc8vpbquCKqwuPwORZI+H4Hwvae5aLNCcJ27jaEAWtL Zf3aX/0Zr31Pb8KW731N2ee2JRXv3cXYH2rFL+I+6Z51JHrUkOYn+AdWK78p iaijLNqQzJRIp9AUGkJGh2aK3qrL6GqeMNfwhMXm97nc+h5X2iRUtL3NQtub aDIHGWsWr9Exja61nbfv3/kdmLJWQa/3xN55o9cwCbYisSqJ0Y3xNbTH1tAj 7rk/pmaD4qc/QZ+Qp1ucSoePhuWmGdP40kcCjKEZ/lr5apii3E5JwhjVCQu0 pl5lIHeFSdVtar2XuVJyles197lZf5/bDfe43XiHocplGgrGCIlpwT+yAa9Q DZ7+RcSVTzI4e5fsyAJhoGTAST1UJo1IzJqkO2WG4cwFJvMXmS1a4lLpMstq OX75ElcrFmU9L85BpKR3PvnnoomxCRPq5OBmmW043a8Re6GFDEnGCzy7iT3X SEHe+5T6llMf0U1jZJcwp4NacYOaiGbU4fWowisojSmRPp9DRWTI6ij5Wesj uJx2IPCsA+En7ZWjpxx1JNbyuNHVfo7tP3gWl+eTCLMsxsPlEuHOGoLt1ES5 lpHgVUaqXxkZgaWGU/sE+QkV5KaoKSvsoF4zY9j9e0zWPmam8TELLe+wKDxZ an9T7CHzHQ/Q5PYx1r6ErkfHVHvb6hDBWsn+1f9IlpSUFMW1bNDTxjT4sjbn Orl+mz9j9Hh6kdgi8b0noZWhpHbGU0QrpHegy2hjOqOFKdENYxILhoVcAyFV XG6eXh33XXtI0yXqt00zskviptEkXqEt67aopgfo1I/ozX2biUTxNI2PVwdi U1N6SUnuIiG+ybjPjOTqKWKF2FFeBSQENpIfPUR14gzaiAk0IQM0RQ7TIYK8 N2mcy5W3xGvdEg92k5WaFa7VXKc2pJoynyLyJaVLPxFHrE0uQftVuNuoCThe K0KhhTSXNpKdO4lLfJfC6DaK/SuojWynQbYbo1uoiWgQsVCPOko8aLSQJ0HI k5xNpp+7MhitH+x3sd6Nm81uOe5u5faW9S//UbmCzeJyDplbSgop4nXHTvY9 t59DP3Yk2LyU2FMaAk6r8D5bTJBDAeGuBcR4FxAfUEBSaBEp0aWkSFxPTi4j N7+dyrI5utQPGah+xFjdI6YaHzHTIrRpe4OF9vssdNxltucWzRXD9DSMoeub 4O61a78LhfRJon7RR6gNekKtN8fUQCHDrbhhScGrCvuI9MomJdhwm7Q6uY0W 6du9Sf2MpA2KPhhmNk+vQUdYLBxiqWhA1n3M53VKNGlhMrmGkYtq3rxyxxBV 1qQ031GOONk1hEqcr37+eUnMApqUG7RJQBgseRtd5Xss1v6amep/4UbFI8pz 54VBwyTGdyhl48TzxUZXERNhGMMLDsrAP1FNRGQJ0ZJiRPm0EewgdqKB5Av1 5Lk0U+rZRrVfB3VB4jZCu5jImedmw0Mjq78lLqWRyuAq8t2zSTwaIJ4oj+B9 xbhLtu97XEukHCfJpQnvgHtUZExTFtpCpd71RDZTE91EXUyDrCXFkRSqLLYa VVwZpcnFVKRmEOF0QWGTk7DJWdjkKkxytd3N8S2vsPVH3zXEyU1Cp2+y6ftf Z+NffZVffnsjlq97E3EulrgLxTjblmB3tADXs/n4OOYT6JlPqL9YcD7hESou xpZxUarMzpigNv8OraV36am6y2DNXUYb7orOvCsx6g7T7beY7l5hqu8a7bUi JhsHmegd5a2HD1fJtDYfNZLpK79j+npc//kJoyIsDC4h1imJBJdCZU+BcwNa r06GM8T/5c4wXzTLUskcV9VzXCuf5XrFtKwnRcxKgqPqR5fbzlSKVgJHi7Gy I9y+soJKVJ4qYkxos4Qm/TZtBY8YLHsXnUbidP2/cLX5X4gIWyBdFGBMbJPi dPRLkiQ3+jGppNgK5XtiVCb+8QWEnA8XuhThe06D18kGQs524rUlk+KTVRRJ xlETNKCMsrVGDNEeNaSUXdbc5UbLm8q2Jkoik3chma6BRO1Ll0BWKsmMCq/D 1Vw8U4Or8wp5cePk+tdTHFJP2cV6iU51VInTqY6WDFmorJZzKtFPsUkspiyt iJLkFM5L9LIT2jgIbZyENs42Bs1j+ew/ssVAGzb94M955ft/ykbhzUvCoJe+ 9z1e23wC55OR+J7y5eTuSM7Yqjh9qgI7hwocXFU4ScB1Eu44BRRy7qgLzscC KE65QkXuNepVN2gtv0G35gb9dTcYbrzBaMt1xjqvMtq7zMjAojK3vU7Tzo1r N9ebTvIRynxcSnxU+fy6pKqSz8UbVFlpguH+UrMo5FK/XFJcciTXM/yt3K2b ei8R8X5DIkQviaS4yrUqvbC9RqNzPsvRORIiRF5o5lionGK6VBL5vFamUiUN unHrc8ZBLZWkC6qwcYlil6nKkA5T+CYD5Y+ZqnmPhcb3yc+a4qL066jEIYwC PDWxg/9FalKrOKN65VySkwoIyygj6EwU7kdzxMrxPtFEmF0PvscaKQ2cEJ1y nbqs90RiPRLXeJP5lEtK2YW8y9ytMYwxD0ZJWi6tkeeXSvKpJKL3FeJiXkCQ 5LzuZ8eJy7tPkkcVGX7V5AZVUxhWTUl4NaWRVaJeJWzFqSmKV1GYWCSpXR7F GUUEOTtxdu8uzguD7EQDOVjv4vCrm7B5+eVVp/fa33yXzT/6Ni8Jg176/tfY /PfPYrXtOMf3e3FuaySph0Lx2uWFn7kXAWZeBIpHcrZJxW6rI7bP/pydP/0e BzduIsaxWhi+QFHGIhX5S9SWLEuoWqZDu0x3wxK9rYv0dl2ip3eBbsmGO3qm SU4vMN3mW5sofYQ9H5djHzFqn1s37pKVUEl+kpbypBrToH1/QjMpDvFkuKrJ dDfcDNb4jNASMkFvhI7h6GmWSldYqb3HdP4lWpNmuK6Z51bTClcbrnGpdolp 0Sm6Usml8yVLGp0wnsZfUORbIywaQxWzLBHhDk2FD+krf5PxmrfoqlghSLp4 aEwjkaK7EtNmlLrTRQelp4llSYKcaxisiE0vI6pAg7eA7XkwE89DehI1EObQ TaLnMNn+OsqDx0XoSnYXY7jj0Zk4RnfyKKZBkqGqZcYkqxvR5/5DopO6dZR6 NOO8RUXw4RoSnespkLQnwlFFvEcJaf5lZAWJ9ggtIz+8lIIYFXnxRaJoiyXp yCMzKR8/Nx/MX/glu158nr0vP68Q6fQuM6xeehFrIdHmH/7lBjYLg77J5r/9 Li/94Bvs+PkLnLL25IyNJ442XriYBVBqc5HAbecJ23pe9LYX8RbexAmf4nZ4 EfuqOwd+9jPiQzyplaQ1M3SeTP0M3YwFygoWqC5boK56gYaGBZpaxTplu2eB RrHOoXklZzKRaG0O9RESfVxyftg4Knfz+i1y40uVkTJ1chMNSR2rt38m0gfI dMoly62eHI9eg6QKmaUjapHBhGVRPMtMpywLex7QlfaAu51vcb/9Ebfb3+Ca BN7FpuvM1i2gqxpFV9bCYmOj8Vx+KoF5EZXfoGFeSNpN6gvuihq8z4j2DSWA +QuTQuJaiUzsIkqyq9xsw9B0Zs4QGaK+slR9yveE4jocIrI5KU3gZZuN18Eq fE43E+bYIymMMClQ/F3YBDWirBtjh5UyHcmGdXfqAB0phuNUi6Mrk+Q7JyRL 3E0kp80sOfRcKj4HG4hwbiLJvwb/83mEOecR7Z5Hgl8BKSGFpEWIxch2fD4Z GaUkJOYb05JP89KPfsDGv/mB8s3iuefY99JGXv7hX/KKBLINvKLQyPpVc+xs vblg6ymCxwtvG19CbYOo2JNJ4MZThL96ipS93mTYBpJuG0CatS/pe73INHeX oK9T0Lx55TGJoTMkJYkAyF4gT7VAceUCpbViTQuUtIj7GbvBvYfvKr83qeD1 Jod9hEYfl7nvXxW6H0wFNuZLjepmSeSrKElqoya5j3ZpxcE0Q1+eK5gm26mU bLd2TE+mN0RepivxOsNpt0Rr32Yu5yatsm+x65950PVE7D1ud73N9c43WGq7 zWzTZXS14qc0XYwXFxgq/SyFEitVYTOiJq6gzZPIXnaTsuwh3EOr8I1qIiiu czVFKyxdIKN4jMyyMeNpfI7Eyg7MjzoLobzw2p+Ft55QZ1oJce4h3nuArOBh CsNHDOPZ/0hnWg/tqYZHzysSm8iNKCPvYpbwKEqZRvXsX/+YwxZ5eJ4Uz3Ra I2JWjZ+jmhAPNWGSyUUE5RN5MZ+IKBG20XmEROfi5RvO/k2Gu3DP/ZXhicoX fvh9XvhrgwB64Qd/yZaf/IStz/6UXwmXfvWj77Hrl6/gIRre+3gInkdC8LYN Idg2kkirKLK2iPc7GEvWkThyj8WRfyKWvJPR5B6PEMEXQfnJMMbEK7519Y5p Ruv164/pG3nAwOQDhmceMDIntvCAlfvvst7ridabd/WV30yl9W6jWhtjzFq9 bRr1K4pVoUpsoSxxkIbEKXrSZhkTITRTtMxi2WVyHCvJde0h32uK8tAlGmOu S6y4xXD2fabyH0gOd5m20l9zq+VdHvT+C/d7f83t3ne53vMWS533mG29hq55 Bl1DL2PqIuP5fYvxhisU+E5I/eKcM0V6580TG1+Hc2gNnpGt+Mf2EJowSFTK KPHZIlpKb0vPmyWtcpKUqhGSqntJqulllxBq13EXvHanSQ+vEEK1iFjpIta7 h7TgfvIiDF6oJq7bIAJTumhJ6zRw8u9pTGumIFJCV1QJRTFZZIdd5Nlv/Blb frGVA3vccdumEgdSzIUzDTg7NeDrJYrev4Hg4Ab8QitwDs7lpJ0f+8y2KVO5 T1ns4Kz5DuXoP/v+X/Hz//l9nvvBd/n59w2J6nNCtGe//21e+NHfsPMnL+Jx 2AufYyFikZJgphBxrJDEI9nE2aaQbVVOm1MeeaczKTybSdG5dCqcc9CKk6x2 zaQzpAxdYg1jkfmm55TWe8xg7b4PEedTH7rlqzf9vJE1LyJcSznrdXI2w7c/ RZXQR2XCFM3Ji/RlX2WyaIUF9S3GksUBnJFe6zJAvu8s5eFXaYi7TVf6XYby JI0suk91yjss1NznRsMD7vc94X7/+9zuF/70vs1S9wNmO26ga59D19LH3cUF 4+39T1CXPEuuRMx88cyFKSOmwOoS3oFXdD+B8cNcTB8nKn+K2BIdeZJhZVTP EFc1TEr9EK4JJew+6cnuU16ctI3Ae18pPpKt+Tu1E+HVQUJgB+mhHcINU9D+ KU0SwFvTumhP6aAjq5OWgi5xwTXkxJWKXs3A96w9J6zcObHfnXNiIfviyTvm i8uLtjiaB+NhE4vf8VR8T6TidTSZ4BddsP7ly8oE9NUnV5S5HDuVGo9u2cSr f/sjXv1ff28IdD/+BQee3chrP/gxJ7ccxPuIn/AmWtYpBB/KIfGshqxTagrO VZBkVUeXSFSNWxU1ovXrPMtp9K+iwa9cJKuKoTT90EoHurQKbg2OrrqN9R6k WLtvHQLpF31aZnr967Vr1z6zDvX2r0Yxgyf8plLw2vX7qPPblG2/s0WEnC4h /GQZlcFDVEs8WKx+SMz+AlIPF5PnNES+n7iLyBvUJz+gI+c+g0X3qIy9wUD7 E+b1DzBor3On/x3uDrzNrf63uNb3iMWe+8z0CI26Z4VKvdxenDc+DPh1yUZv kx4mrieojaPeeZwKMIzeO0cO4pUwhn/mFMGFM4SWzRGgukKAfwcHXjxD6OlA LrhEsvuMH5anfbE45Y3rjgIRSTX4XGiRINROjH8nqeFdZMV2bTD2FE1KK5rU JqpTa6nK1FKQUEhBmoqsdC1RIcnYHRa9ctATpwOeeFp74PFaNCqJLeHmLkRs v0DiPm+S9nmRsM+T5H0+ZOwLJMPcH+edVqsPPtkrk0/Mjb3zaxx87iVl6+DP N3P4uc3s+OE/4mh5RpnC6XM0DZ9DuYScqCP1tGi0c7UUO9Sjdm1kzKeTWp8m 6v0aaQyopymojoaQOpqjmyWDmUZXLKlwQSPLdY3rvvZqvacSjPT56ppsXv8i WH1Gv142b6V8fnvV6ejfiKhfUuO0RDoYJpJl2Asz7EopvqCmRJivOlNJ0bFK ZgpuEmtdRc6ZbnE+C6gkc65JuU1b7l20Iq9VpU+YUN9guvIqc5Xz3Ox/xK2B h6z0P+Bq3z0u9d1muu8qut5pJto7ePP+XdPLY1auvEPKRS1WrgVGlP8e+4RJ XDJmcM+fx69kFtf4Rja96IebTSRpLhdJDMxg38kUrM9nYu1egO25LNz2a/E4 24KHawvBPnVEBNQRJ/EvM9AwEllwsVx8ayUlaVUUZ1aQlpAnOV8x8VG5eJ4O xuGAF04HJYAc8CPsQDBxNqG0nygm9UAEGYcjyDoaIYokkoKjoRSduKgokuLD IRTs8cXD0kqpw1GZ/2KhbLvqJ0nol69y6BebDT7ol1s4/vxreFq5iF6Lxd0m TfxYOVESZpPPNJJr34rKtYMKry4aXaapC+ymIVg/KNouErOThvBW5jTS96oW 0ZVPolN3oSsqWe91WL8DXz4uf7c2Cm39kmYc/SlL1JLlZHjFkNpBRbVTGXUu FTSJZ2xyFY/oVE39hWqKDpQSL14z33OGwotXqEq8RlPmdVIT3qKn+g7D6iuM Vy4yVTm9QQhyV7zfVaHIcv9N5geuoxtYYrJvnLmxMdPEneE6w13LM8EVq6HS NXuU2IohEjSGuUKbd6bh5lZIelweUYUN7Dzly07xKebn/bG84IuNCEgHKw1O Z+txc63Fz6uGMD8N8b6lJAeXin8pJU20S0aymrQMaZfYXNydA/A8578q/30P hRF2JJa0YwkkHEyg1KqZ/DPplNlnUS16os4tF/W5BMrtkyh3SJHtWMqPB5Nu bad/FM00Vcdtn352hQXnt27B9OKwk6/s5cSLWwk9ehGnXRG46lXYAQ3hx+pI Pt9Onkh7lWc/Fb6DaNxn6Y4WlXlxkCZRZa0x/UyLy56ru4OuRjqaVtyzdgBd RfVaepiE7Hop1Ufo8XGZ+b7VlEr+kG0c36mQCG7Y93VBwjBRxbT0B9fSF6Sl WxDvFL5k7ikl5UQXecHzlMQuEhO8hLr+PTqKlugtu8RghYhn7TQL3Stckogz 33eN2YErypsBxgbmGOge4uEbbxgIYsZwjYEgPtGF+Brp6hxnGKw8H1yE/UXD G4Y2H8rnSFAF/hklBOdWscsuiJ1nfTG/ICSx92ePowhQJy+OnU3mnHhwO5da PNyrCPIqIzSwjPCwUsIjSgiNUhEcX8rBPfvY9ytDB3c7GIjHoShlO+ZAKhkn 86lwKKL6bBPj/qXUu6uo9yyl2U8tZMkSQZFDlYf8xiWDCrtYKk77EWl9RJlw 4bI6/8aS86+/phzz5M834f4Lc/w37iZk235CbYJx352Fv3UJ3laSqR1vING+ mxy3AYq9RygPGKPY4xLjKbPUR47QnTbD9eb3WG5+m7nGB0w3rqBrvCT5xIiw pm71Cf2PS5m+/GGq/E7Zt6RMt67fXh3EKdcP4iS305VkSCWaPJto92+nJ6yL wchuRqMMyep4TAsjUfUMhmro81aTaCN99oSkJY5dBGU+oTpTLi1/llaVjo7S cQZrppnsWGaye4nxvkVGBi7RP7BAd6+OR4/eMt5J+QlD1UnK8b3D87ngl6ds v7LbR1lvt/HB/LD4DltvA6XcQ/FOLycgr47T4TmYnRO62Ik5+rLL2Ze9rt5Y ubtLCLPHxi6RYydCOO1QxjmPMs77lGJ/wpUTB8+w9e+/zUt//Q2c9p420OVA JF4HDG+TTBBaZp4soshOTc7JTvoDu6j3qKDerYxmue5aTxU1PmVo/MuVaZhV TmloHKIoOOVA6KFzBOw4Qdze04bXHv2JyO/TH+p8SU49JErmkCiyL91tUJlu WeQ3RIHPGJPp8wzkXOVS7UOutb7Lcus7zLU8RNd6C13bkqzHhCH1/La86Hdk x3oJ9T5jEqsMxCQYB2KS+uhIGmYw1TAQ0xHQQ6+4uqHYUcYTxeJGlP3z6f1M JncxGt/McLjEHRt/nH4ZTahtGYnhgxQk6SjLmKQ6b4zaokE666bpbV+gt1vP iAXa+hZo6pnljUfvrEbMriqGq9ONjk2/bOH1vZ7stPFi1xFv9lp7KXtPOfiy 77SbJD9F+OXWY+MVi5m9D9vsPDF3lmTIw4t9nm7sdnXG3MGVc1u2i23j3NbX OS1e/6QkJGY/+Ws2/803efUffoTrXsPsSTebJHxscgytdtzwWEmRgwa1ex2T EZM0+TeK1dMaWEODv5aWyD7qw5rRhtaiCRKCBGRS5R0s6vcIrla7cLPepRxL /wTi+dcNE9gPv7BFWR/b+Bp+ln5En24m8pwht09ymyY3YBm1hO3aqKs0x12l I/EKQ+nX6U+9zETBCou1D1hue8RcxwN0nbfRdQlLOkeZbKpd9+W162XPH2HJ x02Y3mv8y+3rNymKLREp14xaGWaZpDtVIkW2YeLoUOwUQzE6SZdnMc1/m8/R sVA4wVT2CKPpvco7oNWHRfBbu4qLTuDi2SriIifF+omNbCb8YiUhF4uIiC4h Ml5NZqnosZ457j18xzim/S1WZoaJcT7Gpo37eXm7E6/sdFdq27bXA3NJOPYc 8+K45Kv6xeaCB1bnXEWuuuESX4RjfBlmjiFsd/Jlu1DFQnyHhYcnO5w8sbE9 xpktZpx5XfLY17dz4vWt7Hr+J2z8u29j+bMfc8F8Nx77PUwT7MMPV5B8uoZc uwZULk2Ue7bQ6HNVpGMnzZJyt4e30xTWRmNkOzXhTVSGSZAOKaEyKIMqv1AC Du9XZlG4GmZQmBTriZcNAefgS69x+JXNeFm4EX9KkDneaXQnk+QFzlMRfona 6EVa4hfpTF5EG32VwUzxutliWQvMNdxktlskSa+o1l5Rrd3D3L1y2cSRj3v8 fR2O6Je1HFlLqb3GODPVp795qH9BSi+Vkko0J1+iL+sKE0U3lPILxdfFYyyK 41tmJsfwKMBc0SKzxfPMpnZzNaOS97XVdEcVUGofSFFoKJVRZzli5ceBQzGc dCzhvPhjO78iHIJKcDznxTmbo5zcvo1oacuFqSnj5fyY+ekpdj//j+x54ae8 stmBjdtceHWn4V2g5gc9DCgf9uKkvYEr1heEJ3au7Lvgjo8ktXbxxezzi2GL iz+vSqx51d6N1x19OPbaTk5s3cnx1804um07h7e9zgt/+x0sn/sZVr96nvPb LPG1CcF1T5whzlmXcvGYhqRzDeQ4tVLsrn80qJf6EJHaacMiJHtolvx6IH2K xpgeaqLbqIyspyKigsrwXKpCo4g9e1iZJLFBT5cNuCkPfrraWnJ0o8Gf2L6y Cad9jsaO90dE2kknsReq+E1RdnFW6DFPU8I87Snz5ATUMpBZw1DeHMP50wwV TDLZtoyu/4ro/zkmewZ5640H/DaurN1n5Mra/9pH/7906P+TEr2M1Ueh9V6O tdM4BGbildEMV2B4h16LqhGVyBCVBJ0qOfuW9GsM5N9mqvS+8qvrtY+4WvUG Uxk3mckTS9Up+98p7+F+9zzzIkkGcvvpT2+kNjSJ0OBwAs9FYmdjy+6NL3Ns x1bOmEt0ELtgrn/ay04+P8GFnds5b7aNs9u26V8MZJoDEu7thu2rL7Dv+Z+u 3iF4fa8bOw+6s8/KfTWdsL7ggrW9mIMzx0OS8cyvxLOogoNRSbzs4M0L532w eG03tq9ZcFCYdECYZCMex/OYPVYvvsKxrduxfuEFLry+m0DbSPxssvDYZ5xU /EMS7VrIcu6k0KsPtX8feR5zjKZeokGyke6EEQayZmiM66MmtpPKmCYqYqvF CoRUMUSfP4qjcdqEi8QlF1u9WeIs5nTAXKlh34ubCHPPl1zcoNsjz/YT6ThO pvu4dMhpKqNF+CXN0ZYxT0O2ju7iSfoLp+lXTdJXOkpPaT+jndNMDEwzN6kz veXr49468BEa6ZNk/Tic/rUZ+oxI/7jqev+1zHo0wjQ6p7wfk8LQQlSiakti pqhOXKY1+xYDxQ9Wn9640fg+t1vfx1DO0IY3u4VW6huMlS0zqJqht3CY3rxW WhMyMX/lZSy2H8Z7nxNnX93EOYsdXBCzt9yBo6X+pTxiyvZ2HCy2Y2++jQs7 XmdRN/WHxgG7Y+Zbsdm9l23SxDvEtpod5wXzEF7aH8Gmff7YHvDg2GkvrMQZ WYlj2n/BGSuhk5WzM3s9Q3HJV+NSVI5bcTkexbUUpfaR4FFA3OlkcoIL6CwY 4UrHWyaWWr/4Eqe37Fgjrb5I8Ml6Yi60kubaRb53JyUBnVSF9TCnukVn4rDk B4Poyi7TlTWJNr6bioQWyhM1VCQWUhkbw4X9u7C3ksDlKDrnqzjZGNSO4wEL HIxMCnfzJDWklNALaoJ3GV5jHekgnslhjPzgcdSx09SmzNCUMUtbzoyctY4u 1RSd6jHaK4bF+uis6Wd2enm9F22v9xaFD7Ho43PpHfpPA3m+baLOWhpRJFFG Fd4r/JmhOuUqrXl3GSh9k9aUJUbi5lnMucKN+ns8Gvxnbre8z6XKt5gou8+o +jZD5dfoLV2gUzVGZ3EHFRejMHv5ZXa/upkjZvsJtjmPnaUZjrt24rR7Jy56 27NTnPweM2G0i/H9To4W27A3e92AwM+o7Z9k41E3Nh5x5RUrO1581YqNm/aw 6dUjPP96AC/sCORFmwQsz0ax95x4Jolpe4Q+ex1csBTNs0U0kV2eGvsCNU4F NXTXvMFyy7tca3+X+fp3mS28zY2a61zufES6fxoHX93GaYu9ChqndmzDe2eI su2z3/DIX8T5ATL8xijw6qLUv1viVS8N0f2C0APa9dlESi+T6gVmam+gSWiX /FP0Y6qG8pQC1HFRnJWU2zQfx97aEnsbS+xsV8dr4kO8KI4vXtM5/4AI225i 7MaIdBkn1WuUwqhJoeYUWgmh9TlTNBWJWi+boKFijLqqEeoqB6gubeX6zPy6 b2xfL5f6kw8T6eMy7R3GfSb+fOCDvvUfONWS14UqpB9V5BxVqTdoyb9PktcY JW41LDa9J8j/mludT7jX84QHfU94o/99rnc8Zq7xId1lN2grW6SpdILKtEqK QwKwlTCmf5pWP3R+cKs7sfuscd6zUxIbc9z2mj+D+z79O8Pc9poJs3bgvHu7 uKfXSfRyNcb4naw8fJvC3gkOBMfzK9tzvLj3JC8JqTa/upfXNu7idbFtr+5h 7w47tuz0ZaNtEC8fj2XnhQDMRWCb2Xnxmoixjec8OJFRSnx+LePaR8w0vMml lje53PEmV7vke9NbTOUsca1pibSAFKxe2qy8ik8RZT9/AYfN9vjsMDzk63Oy m0j7dlKdW8nzakMVIOQJaaf6oijr1CV605qEZB2Mlc+w3HWXscYl1Gn1lKVX yjqXRH8Rd3stOb3fkrNWlpwTcp0Tcp21teCMrTmxId4iWMdEXZQbXk8eP0pF /CzqwGlSHCcl5k0R4jhBeugEefE6VGk61LlTVBSLlYmuKp+gVBimLRNHWVjP 3fHVB6Q+LlH/LeRaL1HfsSqM1t50WkspXceC4NOnUKoi7QZNQqle9SOai26y 0Pg2V9reYaXrMXd6H3Ov/zH3Bww3l1b6pW163mC++6bkkpfQZuZRGOaj3MzT v9rvvP5OzG5zPG088Lex1j+AqH+N0X7pnp77zfUv1tm/k/PWVhyyPsqh/Uc5 sOcwN+4b/0ewL7Hy6G08CkWoZ+dg5RvMKwfP8fJmA69ef20fO7fsx/K1vZhv 2sdBswMc3WuL+e6jmFlfYNtB4ZS1JGm79mJmucfYuT7LkOYek/WGWyj6RX9/ Xt/+480PGFNdI8vzIqYb4+bP/QqL517k0AvmeLyaIiHbMDR68Wwdic4NZHk1 UhDQREmI6KSLTeSH1jNYLPl9SjOD5eMs9Kww039NdPFlaorrUKVmceHoIY7s seCYYHF8vwUnrGWtNxtztJUlypVP90siFFMryZB0c4lylXHLNKes0Jt1l5LQ ZRL9Fgh2HyU2ZoYUiYAZotkyRYunF+koKZ2lt2IeXeU4uvJ2llqa1nvKcr3U /iO8+rjU/qO8+uF/4NXt5fsUe4u7Cp+hLOUa9aK+u9X3GNU+YFbc0VLbI65J v17pfcSt/kfcGXjI7YE3uNH/gOW+u8z26dPPeUoSEgm6cGr1JXwX9M8t6x9u FQwDDwQQZGWBp5iX4OhgtZcDew+ye88x9ggXLC0OYrnrmCKz7UMKSSiX/te2 xMrddwyPZPyCpVsreBcV45qbjXtuLt5iGy2OsnmzNa+9Zsv2rQex2HGQPeaH sDY/io35EY5Y22K1Zx979uyVavZjbnkai1/t5OALL2L70isGT11ynZ6qFWV7 vGkFXathe67zBrM9koy03aS/9Cb7fmm4OWn2sxckD3yJV589gvOuNHzMDI+H hpzREO2oJdmjhmy/Wgr0b+QOq6UsooaSxFqqEmuY7r4q7uiyyOYlxgcXGBX5 PD2ho7y0RNxNCUH+3lSVl4qVUFVRsvro4nSfuKaoJlTRI2ILVMVfpzn9Hn15 j6Q7vMN0+XtUB96XBGqR6vw7aItvMVwtzdPwkLn6O+hqJe2rnUZX0yuKt3i9 ZzzXy/rWoZqJPOuNEJj9lmzPQL7DctaTFAdPCiLLaHOv0y7IDmpuM9lwh7nW u0pHv9Jzj+t994Rgd8XucLXvFosDK0wPXJUEdobixGScDlpz0txs9UWEjvon qEVl2O87zP/h7D2A68qONM0v1NJs97Za6p52M+rZ8RuxEzu7s91jontm1CqV WFU08N577733NPDeE9577723JEHCECAsCZAEHWiKVSWpd2JjN58BCsWCSMa+ iMN7ccH3cN/582T+/zl58+Q7BONrY4W1uS16RjboGligq2uCno4J+lrSNI3Q 1TLHzieeRJGN6ZUz5Des0D64zfrqirJuzbXIcGXNGmthQ9F5BXhkZBBeWUl0 RQ1Xyhswtg/l4nkHNDSd0NVzwcjYFUNDF+ytvHB38MLW1gk7GwdsrW2xtLTB xsEDQ9MAzH6pRYxburKPOmt2GGreVZ7P9+5xY1A1W7I0ucPSrKKM8BYLYiX2 4kx//k9UHOOX/z1IebT95AKB51U7NMa5tJPg2056SBv5UW2UXG6nIr6N6qQ2 alNbaMnr4Oa0fN7cJvPyeXPz4nhWd1QVpI4fWqhPluibcufE4w6VvmS25isR R79hre0fmC1/w1L2Pg8G/4GDod+qVzq+ZGPwBauD4gGGNuQ4z3JH45nPjb7H vpSzfqcelPlw7rxqLkqDJ9uvqY66RW3GPVpKdhiou89U2z6LwkOXhx6xPvaI zclHbE89Ynf6ITszB2yJq7+7IGNwYYuBdkE/NhYXPR2xJj08xWUdF1UMVj+T 62XmIUj6oqlvhq40A2nG0sz0TTEVqzLRNsZYSyiIfyyxaeVEJ5UTGFeGtVcm F3WCsZL/o6gi6KqnLe/V5XMbZz4ztBPf5UJgRhkJ5e2Ep9dwScMNLT1PdI29 MbLwxsTMFytrP9w8/LBz9sTe2V2aC1Z2DljY2mLqFKp0ncm+quW4uhLF40uq edqRTlEkfarzqpIJakonqCyeOJaKev/+/8Do7/4zZj+/qI6iPyFAM4NImw4i XVu44tdMamgz2dFN5F9p4npiI8Vp4pZEHI+OrDI2q5rcv7X64A/Uiuw0J66P VyV416fu0Zav2t9spu5rbjb/mtWO37DR8xtmqr7hcccjHox8zf7IW3ZH3sj4 f8mqIKYgOqujCzzb3X6fJZ2+prYklTL8/ial6tV4dXqqInfs95RzV8c29sMz jFO1cvIFPTmrVMavU5O3SVuF2EzjNpMdO8z37bI0tMfy6J7c8Z749l1WZ3fE t29xY0GxLrbB8somTuJFlPZlcGxfiuqRYl9iWz4SBnWMrNE1D8XawgkDQ3NM DC0xN7DCUpq1oRzlZ1O57hscTYLoqaBreXxh5s0Xhp5omQajox8kf8MYD+0L aOvqcuGiocRDSzQu2aFxwRHPgHTSKgewdLyMlpE/uhYBGNkGYu8UjqNLODZu Adh6+GPn4Yu9pxdWLm6YOLhiLL8LTS2R73Kg7M+C7E3KSlU2lSxxLS6igeMi +de9qom6qPJqx2v5hv/lHOb/7QJ257Rx+lwbb60M/K2bCXJrJiqgmasRzSRe biIloYmiAqFn9XO09NyiY2KTzQcv/lCNq+L19P4TYb7DJ0bVXKAyqsm6L0WA v+VO11vu9r1lc/AtSxWP2RsVxjsqzGVMGMzEM1anxD9Ni9ObmBOj2jpzk6pj qzrNyVWFulUZWKc2kPu+fSmmIDIzM5Vbb/9AOaX1e8pJLcWE1u+yL9W6rSVd BVuUJt2jsnCTlqpNehs3GWnfZKpnk9mBTRZGpU2K11Y8QyKDbmz2HjdX9pTv dpLopKh9p6xOamSAj9iWv9iW4tlfE2Mzpc/SNrTA2i4cKzNnzA3txZ4csTZx xNZM2LyFI+bmdsRmFBKZWYq2Q5DYhzM68nttI1f0zYKwEM5kr/U5l7RFImpY CM+yR1fDBQMNiWhaXsRmihRsnMDWOwldm1D0zEKwlL/n5hshPjAMG58QbH2D pPlj5uGFoYs/Nv5XKB28xdK2aue2g4NvSE9R5bNdjWogRWxL8Wq62kpPfLty 10SljzPPY9ihEOe/lXHzn1R8TP/nGlj9QuzsU00cL+jirOWEm0k0rh7NeAc1 ExjZLD65m9zyW2RXLNBT06PeW0tVY6Y2okdlWCk7NOarCqaN1R0x23IkFPgl K30vWR98SU/xPEuVQ2yPPZOY8oS7M49U0+mz66xMzpz5SOpZuvDPTruq3/+e KSl0oqKmrcJ0xD2dVURXlWv2Y2XKf17yPYoLNqmt3KRVLKdH8dSIeP7B4U0G xI/2ymhSjKjxm7vHlRRSwsNw1tER/aenLEKpLK0qRmMrJPmSnjGaBpboiKHo GPjg7JiEnYk71mbu2FgqAqGHqA13zG1cyG7oxiH4KgbWbhiIERmb2ZxMmWvp mKN1yeSUQ/gTjHV9MTMUCmQcSE7rLHkdswQmV2FpLkHSKghL32gs/KKx8o/E KjAcC/9g9L2CicqtIaWknrLRlZPpXEUxIEVtF0VajOraXzKS2ctURh9z0hYz VQ+qzVlfZSKyhg5PiWAmGcprBr/QweScHpbndbD9QgO781rYa+php6WLjaY2 w6WT4k1ED/asC2GeY7W15WQzNsVrZWjr1Pf6CR2ljxisPWSi+QnzHU+41SN0 duAJE+07LA7cEQ/0kLsiJFbm9liRwLA8t8q9O8tnPXV6lt5T28ufnVDpY2fy cbn0f8C86LTmrgPyxLmUNm1SKSZSKc6lrPceK7tHHB59pRYaf6eqVKitoyz/ 6CrU2lPIkI/YxhfaBlzUtxDbcBCd7oqRBB9Ts1A8XJOxFpJiay8kxckPexdf QpNyCUovx8jBD0Nbd4xt3TATe7GwdlT2mImJJZdMXMSRWKGj5ay8ZqTjL0FO nI18ppVVGKEJlcTmdeJoEUOSjT+xYck4xOVg4BeLvthIUE4lvopEtOYhUkXL p1YJSxmco2R0hv7WMWUdodr8bqG+/fTlDjOerdhWYJKbedMnC9e9jnk8TKtn KLKTwbB2hoNU+9C2ZtwkJ6yGINsIDC/oYaKpS1NaMeN5A+yPfsX2yBF3hVyu DglNGVxktauD09HqtLZWHAfzV5TnNRlbNFwX2VP1gKGGfSaEqM517XNDbO3W 4ANuj97ntpCIW0L9b4md3Fq4x/z00nfWbt+3nnvaUL6X/v5xkwVuaq2dFBqB o8QVJ0WdWlFXZsJTvtA24aKePRoGbmIC3iLX/TAzC8DGPpko98vYuoRg5yZD 2S2Qgq4JnCNSMHL0w1jMwtTRBwsn4RaOqsQZa2uJI1auaOqI5NdSXTM2CMbc LEw4b6R8ZhRWDlH8/c8DcNW+Sob7NcqCQwTi2xQM3CKvf5HE5mkiykYJLxoi JL+X1IYWcnuGyeoZoUZZtF+xFcIoPQL5WM4Cs3k3uXV9iZVSGZKVKqGzGlzJ TPwoU9fGTobzZEQTc1k3WOv8NVt9v2ZPhM7B6K9FW8+I6DnkwfiXbI294u7Y ofC+bWGsN1ju7fjxyfhUdfZPKQ1c4PjVWLolck/IY9MWo+1CIHu2mBE/Mju+ pdxYWrG9yfS8kPaZNV69/vJMtXTWNTXmf/7OH/+wVlch/SM2llc4/TIUtFWs 7g8wNAnGRAajhX04rp6F+HvEYuUZTmJVF9f7ZjFxj5ReM3ENEcdh7iYO3D0A a3cf5bvtnOzQs3VEQ9SMnqaXCmHtMOxN43B1TCXQKUukRhZ//3k6Hu4VZMuA r87NIav7BldrZ/DJGCQwvY+Q1G6CkzsJSGjH50ozETndhOfVUp/TQX3uOC25 iwzm3GE6b42bxRusVGxyr2abnXrRu1dVlHFRUek4UQXGVOoUU/E9TMVWstwl 8rX/S3ZExt4f/ZL98TccTLzmwcRLtiaeC6N/LLRxi9XJRZ7t7agB+CO6S/co krhbIoqgtkxYW90mXa2b9IlTHRiU2DsmxynVE5uLqwccvf7qzKc1zxIyakD/ 6iOFsHJHXv4LGyuqVXE7fX3OmVnxK0075c8XdFVFX/QtwsUPR2HmFIO5ewze vhU4ul4lMaqA7JJOjN0iMPGIxNQzAnMvIYveIQJpoPK9Lm7+WHkEcsnqCk5m ycprjg7pOHtl4xiQh63bZew844gtn8RUVGNsXgtXc0vxkzgcmNFFpLS4jE7i 09tITm0mKbmByKQGwpKa8ArNo9K1TuBclAG2xnCuCKdiEeeV+6zXPVR5sR/y qPMRtzKXmc9eYzxr+bim1UxKE/PFE6z2H3Fv6Ijt0SN2x1+wJ5x/VyjavRkB UDGzOyeGMTWnzHj4U3VfLow/pa3pgFyh3cUSGaskMtaJbG4Q8lR/vHHL/aPj aiKnA+tZa5Lv4Pah9G8P5b+qNKD4iEh+aWzLp/oefKrpqbx2yTgMHatI9B1i MHKNwzkql0+/8MXxYgSp4hive4nzdbqGlVc6lt7Z2CkSIyOKpOWqMIsSnP18 OSeY62mqbMDYPApzOxnCznHYeMQJYY8jXxxpwcAiMRUjuFwZJyShg8isTq5k dpIkLS2zg8ysVnJyGkjIriFc+Fp2WAmt7lU0WFXSdvkmo4UPWah4wkrdczab j9hrf8XtzBWOug84FPK8WrLLQv4WU4UbjBfcYUIc8nRuF3OVUyz1HrIyeMj6 yCH3xh5zb+IRG9MHrAmxXlnYZnl+jXvLq3+p9lbTt46YWzliYf2IxXtHPHzx zUn+0od4959+F6EPrRp7qGFVvB5uLhCZnoltcAo6TvH8Qj9UxWS80/FKqCau tJ/83iV+8Vkink7F5FwuoTYrg9CcLkzDCzD1v4x5YByWwdEn1SSDvLHxteNz Udmqa/8BI8soTB1isXQVkLyk+UST1ztLVNkAvqkd+Msg8owZ50p6N4lZ/aRl 95MlBCevqJfrJQJUcYOyHMz12Ar6Q+rp862nx7+LsZKnyj0lVhvfstX+Nfe7 f829/GUOB77hydBXPB56w3zBLlNFEpyKVhkTpTNZ1MdU9SRz3Q+42SfkZOgB y0JQloWgHGf+3hSCMjdzm1evXvGf3sNmfycKPzrhsIopmeNkorMqGavQUD35 +nBD0EjKIDqjhuisduKuq4RjSsMMUSWD+Gd3kN93E3dx89YhjcTnNVNY30RY QQMmflcwCbyKWfAVLEJjsQ4VshEeil24H+a+TmjbeqBzyUcITggGAoexQ7T4 wRgsvGJwjUkjqWkU77QO/KQFZfQSkDx6onnyhIxcrxqhpHZADek/Y+pKN2Nx PYxEtjMSXMeIoj503ZeiKb5hq+u3DF9Z5unwaw6H/4Eno7/h8ejXymcMJ4p2 GS5ZZ7h8kbHyQUaqxhlp22KyW3jDoPhICTGzEmKmZzeZEt4wNnNXsU3kfz4j RJylKc5AQfE6nYtzVsEtVbQ5f0IsqopVad7RGW34JTWqIo5lHJpW0ejZxWAo 0cbMJhaPsBx88psoGl0krWMEk6AEjIMEidArmIfLuIiIxjoqDJvIAPmdlyhN fbQueqOjH4yeRC4Dh0jl448mEp380ksJFHbvndQmg6JPUBgmJlMGReYcGTk3 yKlQFbIralSluGfUDQsNVFXAmEyaYPSaqIG4TsYjqlho/IqV9l8zXXHI3Ypt DoYFgbFfczj+DY/HZaCMCVKi5ibqhLlV3WSoapjuynHam0Vod0mAH5BAPypH Edi9gsb8ygEvXn31X95D3k4j845H+hA5P86CerB/pEyxnpvc5OD+0bfCUE3+ KvOEWsWXq23wEz7TD0PDNAJdIdZGQqwNbMNxFxfj7i72Ly4mubGHwpE5PETj GAXHYRQWh0lELObR0VjGCCGPCcQkPBg73S+wu6SBpnYQ2kLUdezC0XUUvRYc T0pTP+6JjXglduOdMkxw2gSxWTMkFM4Rlb1OQbEq/7m4dV55rGpa4lHHfeX5 dMYNRtNmGUseZjKhmZn8We60f0lf8iq74pruj7zlYPwtjya+5KHQs/vjLyVO KOjZATeHVhltGqa6bIxioWGVQsOqu6X1bzJ080D07Yu/PYXG+xYjzkDjfQRa Wx05Hj48orV5loL0LirTuqhP6aIpUdo1OY/tYli++dOdFyp+8G9FNbSjaxzE OR1pAswXEko0zcLRt47A2DFSAnQUzi7ReATGYBsQiV1gJEmN4tCGJnBKyscw /BqGUdGYxERhEhuFUVQoBmFBeBtr43jh52h97sh5vTAuCEAXBOgrFZ0EZTfi crVRHGIvXknjBKXNEJ23QHzpzeO5k8LW2+S2qUo8Pel9LnFbNcM6nbMs4ukW Y1nTTGb0MCn+tjRhgY4rTdwbfMnOyEsZJS/ZnzjiwaRijf4pGwrWNauYGFM8 LDJxsoXN2O3nJ57kv34kHVaD8s8+kg6rNv39MZ0t08qNHGuktWV30ZcpQAhA YwKOYieIsXj5+bJcj+xiJm/6T9Vviw/1R/OX2pzTCOAznVDpyBC0pCP1bcIx cY7Azj4SewHJ1l+ACYr4AfYh4fyMK3VtZA8MY5uUg15MPHpxV9CNikI7NAQn BytlUoq7iRbWF/87xpqX0LVJwvNyNdGFEtNTG3GIbsH5Sh8eCdMEZEhwK7zF VVGoyfUqbZZSs0t5w/JxUt9252Om8+8Kl1pmtGCeiYJBxjNLaS/ZYqxF+n3g CRvDT0SkPmF7/JDtycdszhxwd16R+7vNypwI4KVbn5zhYs5itu9A8CFme+7M 6YcT5/T7FGU1K6fuGqX1CA0cEUU3nd3DQlYPN7N7fsBStqK+502BbC61i8mr XSwVT6nu7K+4t7qCo4EGFuf+Oxd/5cDnWmGc1w0WmELQtw1D1yJYxk8Enn5R Mn7CsQsOxz5U0UJxTcwgfbCP1KFuwppqMElM4osQeY+fH07mBjhbGOBkaYCt sSaJwR4ngd0rvhmbiDZsY/vVTvVnBBcuEVmxTHT1bWJrlpVX9zu/5snwb5Xn h6Nv2R95xWLFDmPX1xgpviE8TEJPfiXjLQ+UEz+3+vZZHhR5MrLP3fEHrE3v CTiKzIAtlhY2mJ+++cuPJLf/+LsgfYjcng2S6oOOr/W3jlMlgbYxv4fe/H7G c4eZzx1lKX+ctesTbJSMs1k6Jm1EzgflWi9Lud0silpfKR1XrbH8BZ2KTdQU m7VqXcTy7/+Oz8/LuNINRcMkRLlcYGYdhp1jGPb+4VgHhgnHlp8FLLuIEOEH USQPdpIw1MG14XauDrVSPj9Cc1PDD8TpNhyb1O76bQY6yqhvrlbevmlAu/Jo cXkUu+TJH6pV5IOB33Kr9X/wqv8xT8d/fbxQtT36XKiuxIvyWwxXjDJ0vYK+ eqHCrVtMd20z37fNjWFpE1sszmwqy1rPKh56E//2+vWXxxB9aB73HYg+lGz4 qeLfH6puXDUMFa878yvi1FpoENrfJUCM5c2ItprnTtEi6+U32a66xV7tTR7U 3WC/foH7dbPs1kyyXjHMSmEPt9JaFBVe1Cv0f4alkTHGFo5oWnrxqZkfvzjv zH/TvszfmeXymXkcBk6puLhKWPIWHuAfinVwKDZhIcLUgjEKj8S9II/Lg+3E DrZRNj+uIo3/gqOjJ8rbLQtXrU0XJ92mNvee8nyxSUhV51s2+75iT9THwehX LPf/D14OHvB48kseSIjfEhF/d+Ih4w23Gawcoa14ksaKTTEmIVvtm4z0CuUd ljYu59MCncDSN7munGn59D0c+PvXzsTjrP18/4OafU3Jn5tTcD0V+/rJOyPp xNMdzzIrLlZn1lCf00tT3hT9uTeZFhVc7y5qwD2XnboN9ps2eNSywWHbOk/a 13jctsyDlltsNcyzVjXGyvUuFlNr1KUg/pxHr76ievoOn9h484mVN7/UtFKm B1/8wphL5wz59EIQn+hc47x5Iudd89D0TMbMPwwLGVuWYaGYREYpH41yzM8j ored1psjKr5/mkbWRfVTf3npZHlluPo5cyLvb3e+Yr3vFdtDQsVGX7E//or5 2iW2m+e5LxRgc+oJazPi1WbWmekYpVx8RkHRJhU1m9S3bNIs9KxViHOL4Nck 5Hnj/tGJP/rQdOd3MPu2KIzC1R1vu/k7isL8e/VAW5CBm5XeSYmwgRqha43C CFqO6VpMF4NFMzzZefHtbO7pzRqXZ29Rl9kmWE7QJqxIUXN8rnibkYzbLCTO s18l2HXs87R7n+e9D3jRu8eTHtEV3RvsdKxwt3mB1ephlouUJRlPVg12Dg8J r2lSZlD+ysaTX2lZ8tl5Ey5dNEXnohkG0owumGByyRlDHV8+s7jM5/bxfOGV hV5ADDqBsWj4R3HeN4LE4gJ2nz9Xf/ZfnRjmyrAquag+dYuWQtWS/lTjE250 PGW59xnrg8/EEz5jd/yZDLs77EzssjP9mI25A1bnFE8OrbA0rgop+4++Yfb2 EYur3xaFenz0DZ+/h9X9Thh/+J1KvTIMf3Aaw9MeVFXGW7WLR0FmB2WKXTxS Wqm50kBzXAMdMQ10RzQwFNfKuDC8IcUW6cLwNgc3+cMTQH90CtD6jH4asoTO Zq8xWrjLQsVD1hqeMF/yjNuJAmbtPV4MPOfl0DNpT8T2d+iqXya/eI6w1H6C r7URfqWZ3s5pFu4+U4vmP2dyfZOgslJCKsoJl/a5gKoA9MIFM7QvmaOvaY6x thzlZ2djGzwtbbE2MMVMzwhdfVsumgbgYKaPj/Hn+JtdYKClVj34v90XRfGq TbhLfa5qn7rh+n1m2g640f2QO/0PuTv8kI3Rh9wbP+De1D7ryuXHHZYX7rE0 e5svX79B8yNpuBqw/+Ujafi/U/77Uw4FqJKcdvISGsgNK6dCsRFRSAVdwRX0 B1YwFCQtsJwB/3ImBLw5BT0X0G5cnz7xwd/jkeKKqkXd1qeN0SDjritHWG/p Q27UPuVuy0v2Or9ks0XUYvVDXo58xZbo98z8afKzB8lMaycztZmMpFquxNcQ GldJyJUSAq6WczV3QOz5mVqt/FPuqhMB26S119dR29hMSNl1wirKiKysIK6i CpfYFM5/YSXj1AYdLTsM9ewxNbKXqOok8DnhbGOHnaUVdhYWWBqbYWpgi42p F8HWugRaaqu+47eF84SLPNlWldZVvBrEaXZXbzHctMNUhxhnzy63Bna5PbzD nQlpM1vcEi6yuLApbm2D5eUN7Y+ki3/yXTw/xOn/rXqgnsbiJFr8lKy4agoi KqmLqKUrvIHh8CYmI5uZi2nmRlyTtAYWY+uYi6pmNraW+eRW5pI6WSqaUKfi /A01V+uoT56mIW1ViM0e4xWH3Gh4yd32L9nr+YbHg79mJP/XtOaMk5c1SraI 0dxMRU3jDvIymslLqyMvuZyk+DJiE0uJkfMoMZPwmHIirrQRG3kVW31tHKQp 95aVds7KgXO27hj4RuKXeZ1rFY2EpZfLKHVAU9sZXQNXjEzdMDB2xtXeG3dH bwk3zjg4OMpRoLWxwtzMDGOrABwtbBT7Hqo69icc7n5FyeV1yrIk6JVs0iHB b6Bpk9GOTSb7NpkZkTaxqSwMOzGnTupZ3tU5hdX7ZlHfwe9DdP/fqrn4afwU r8LEMlLDilWuRAROV4RI46he5i73sxTfz0pyP+upfWyk9UjrYjW5Xa43MRtd w830NhbF+b558OynagyHKyeoj5+lIfUuXYX7jFU9E7b3mrudwvT6f83j4d/Q VL5GWvoChWn95Of0U5jbx3VRDdfFTRRmN3E9q5qiDMEis4yE3Ao5lmNoHyZy 3JMvLnphp2+q3LxP8TinhYl4VBtnLhg5cMnIDU1DL8LTq0mr6MbS5TJa+p7o mnpjZOWDqaU/9g6BuHvK0dULBzd3HFxdsXdxxMzWGj0LD4xsfNlaX1F1+I95 JBh21B5QkCPkpWyTxnrBsU3GpJDP3iFpY5t0KdNr7nHv/jPdUxHrfXOv72D3 IR3wr090wPEak7zSgvPIClPtkNkaMcxwzDhz16a5kzLDeuYs27mz7BXM8KBw ivuF4+zkD7Oe3cdSagezl+tECsgxsfYYOOWTJVcUT5as03H9gBGhegvNr1jt esPOwFuqypdISe8nI7ufvOyblOYNUCQfWSytpGCA4sJuiotaKC2sILFQACit wcI7kotGdmiIz9PQcUbzkieuAp5i479LVjZo6FqgqWGNjoYD+hrCazTciEuv Jbt+GFuPq+haBmJoF4iFXRjWtoHYeARg5xmAvZcv9t7e2Hm5Y+rkgJ6dL1dy q7i18eDP1HJQkU02f/OITAGtQEArEdBKu0QhzB+wvHOk/x6yeTqKvQeoswTC v3rHmauWjjKDq8gLVT0W2R29wGT8koiwO2zkrrB7fZWD0lVGnBN5XDTC4woR buXzbJVMsVIwzGJGp/jKeu4UNPDm4FAlNf4JT/deUBc9pXxeo1WG2VDVEyHm z1nuekFr/RqJ6X0kZ/aRkTNIRu40VUVLlBROUlokrWyC0sphyqp6KK2oJ7uu Dd/LKWL+9uibWGBoZHocZF30NdE0sFCm6She+ppuGGt5Yqrng7mhL1fzWshv n8Q+IIVLxgE42/vj7ROKlUhFG98QbP2DsPEPwNTTCz33ECLTCkkvq6V77rZ6 r5cP8/13IPjQDPm/PBkr3+69IJ/RELFI/9VVZtI2Wc7bYbt4j/2K+xzW7DFb Os2Lhm2eNtzjQDpvp+Y2a+Vz3CocYi6tmdXKdg5v3lEL5r+mMnicuoQVkXK7 9FfuM9X0iFudh8Rl9XAltZvEzCHSc8fJzZ/k+vUb1FevUF4xR3mttIZJaYPk 13WS39KDga34HCtHiR9CG4QBmpuretpE1wR9c2clU9TRdFBeM9L2xlTfX3xe IFYWQXj6J1PQNceV/Db8HGLxsfHDxi8SM78ozAMisQgMx9A3HN+0ItJqO0mt bCC5pISSwamT3v8Q6zuj948jyHES9TELVOmx7zs7JSL87Duk9fh8unuUTJ9y 5c/FwXM0x6wwmLzNXI6Ix+LH7FY+5VHdM8ZSDng4eMTLtkOeCcF92Lqn3Pfr bt1tlsqnWFDsuVHczLPllZ+qOfKTndfKkq11meKeS3cYqd+jXEZWeJIwAeHt 17LGSM2ZIjt/lsKSebIrH9DUdJuy5kXKWucobhXN2jZIcNp1+arG9h7y5Uzt 3cUZuWBpp0pjs7EQgaZnpXLN/xhzk2AsLUOxsQ3H1iGcuPwudD/xIdogiDxH H4rquigeWKRwYI683mmyu8bJaBsirbGH1NpmUqoqKBmb9TnlWY479qxZWTU2 /1zFw06lHR+nHJ9G5LRX+9ZNqXX+bNc0WZ51anL9xwyl77NQKBq+/AX3617z sPYlI8XPeDX4ktfdL3nW/ZxHXQJPxx7rzXdZql1koWyQhZImtoYHVITuR/Tk bXD6FZ/Tq/4T/xuJ2XNkFC6SKw6voO4WJR0PKetcobDzBgWdkxT1ThImXW/i 7IepNHMXXwno3li7qFLF7BysMLQ0U57rqTMmTIyCsbAIx9wiEnvLGDzsr2Fk EI+FYRZJQflUJ2ZQUVVL8fBNrtSMc7VyULmoHpDUgse1duHyiuSiKpLqmo8x +BCL/uNTGHwEi/5XJ5z5B6ckaKZrE1leqrXKloRdhrMfs1D8grvVr9mpF+JU /4bp/v+HtwNf8arvLc/6BZI+0eki89bbN1lqXGK+ZlQcWT3PNtbVhvEzutS7 sNZe38TrWhM+17oJShwTN6yq4Z5UfIv06jtkNS2T3bZCZdtTrmY2ExWRQ4nY qGtkMqZuIZiK67bwCMJKiJONpyq5y97NXhyXHdpaQcfVbF2sMvDwKMLN5zoe /rm4heTiLppAz7WGuORmGWVVJJZ34Sc0Mii9k4j0duLSWriqKPaWVENkQi2B lxV7c5QyVTjD063neJ3hUD4Chw+x4X+upgmKXZFbGmfJT+2iNFmVYF5+tYve 8llSHQuOo4eiVNNQ7hPmy45Yq33FXvMbhvNfsTP9f/Nm5GteDn7Js0EBZeCI 3d7HwnZ3uNV6h/km4WTVDTzZvKu+a9XubPkShRxjW3G50iPATBGQoloSjSu9 w7XaVRKa7hLfehffxHHMfuXNFYm1mTZuuMVkoK9M4YrDxjtBmW/v6JWkfK9b 8GVsgsLQMT+upfgXmJhHYGEbg7VzHLbucdh5xxGVW8tViUJxtcP4JIl/u9xG iKiomMxOYdodJGe0CjtvJFNBxEQJRSVVEC1KajSui8GQDl5uP/c8w6ecRXPf AeVDNPefqaFZFCGbn9VJebZqd9ZOubv+9C6GBKThRLmLa100+jWQpF9NpssE hRFrNCY9oD/vMbNlT5VJSNstR3TXvOTRuCAz8JLnQy95OvSCA8UUV99jVrt3 udG5zHz7ODN1texvqDn/n53EJve4Mhwvd2JzeRznJFXqoH/xGpE1yyS03KGw 96bIhRxcLTKFiGdTl5hI3JVa7INzsArPxjIqE+vA8OM0EPsAD6z9nblkGICe hjody0IitX0sVq6xMrBisfWNJSKvWhkgIq73E5Degfe1EaJltFyTnkiRliEt J7dduX1WoRDtxJxSGnNblItl82LCU9FtvNp95vEBhnt8TY3RD08c04eqyh2P uJ+p0epqETqZ20ldbhdd0oZz5B7kHufkfm5kdHFT0RR760Y0UGpVS4ZFH9le c9QmbtOTe5/J0gOJH4/YaDmkU5zcQd8THg884XBIjtIeDD5ms3+f5b5tFntv M981wnRHq2pW/dv5iMu5lURnnBTPSagaJbVxiqy2OXK7Fynou4nHlS7s/OpI yWygpKyEiIJ6TP0uYxoQh3lQDFYhkdiEhGEbEohdiBf2gfZoWPijq+GLnmGo hBtFblY0Fm7yf71lVPkpcrOmZMQOik9rIzCjg/CsboJjp0hO7xXiPUhu4SAF pf0UlXdTUtlCekkjM6WDrJcMs1wgakzeMxNX73HGcDiLDKvROmuLuo/dGPu4 8E5P8ygVYkeNQlJ6hT6N5/WdTK6tXx/gXnHfSeBu86gi3aiHTOdJikMWaM+6 J3xgW4KOMOCi+8zMvWa7Z18U/j4PBva5P/BARKNwg4EdlgbWme+/wWRXP3v3 NtTLIf/x5N6TitqITlHtkhVX1C8+sVpQyUbDOhpd+xgMnGKwkGBu7ZVBbn0X +X2TQpIWMfG/jEnQZcxC4rAIFUTCI7CJCMYu3AebYCd0LVyFPfsp07j0LSMw coiUYBYlojQKl5hUcrrH8E5pFuTaBbk+IrOGiEqdJPHaDNnF4+RXjFNUM0Zp /RDl8nfLK4eUS2o7NXOsV06yWjTAclYLj6aX1UlRH2bT34Hv7E0L/+QUjMe/ Pyv3RDVM/wVLc8tU5TQpS7v35A8xnj/OYt4kK9dVOVA7lTPcr1ad79dM8KBa tTVsrUsrmU4iUgKmqElcortgjZrL3ZTnrbEwssNq5xbr3Vts9G6y0XePtYEN lobWmB26w3j/LAMdXSoojzeFVNxOZdMwUfFV+MRUHA9EDfNIdG1UlR3NXKJx tInAQfixnW8UqU29FI/OEVZYg3FwHCahcZhFxGIRFYlVVDDWUb6YBbviYWmI /kURQ/qh6FiEoWcvwsYtHCOvSKJLm4gq7cQ7SfhNao+4TLmFzAnic6eEXNwg r3CBgvoZipumKRNXlStw3mlZ4VHrOntyvNd4k9XqKVZLeljKrvI4Y8Sc5t7H nPw0kt9Juj+N6fEbPzRXfoxlZUY1dYp0lbwxhvPmmCu4wXLxEpvqRxUeNi5z 2Kw6f9p6k8MWVVSaFl6X7zhIuvcUuSJOc6IU5Z5a6UhoZ1T43GTZCDfaV7jZ vcKNvhV6G0Zpbxyho2Oato5R3rx6pX4W7W+4sfoIr4BszhmE8qleCOfF8WmZ h4tQVZVcNLGPwMUlCm/fGOzUyUkpTZ0UDk/hnJCJYVgsxpExmEZHYh4TjFmk OE8JfYFWhthraHNBI5RLplFoiB1ou4hIDUkhqaEb/4wGPOV+vZIHCUwbJypr hmuF86RVLnKl8B5FZTMUtYk067jBkGD3TLjv4+4H3O/aYbP9LmtNN1gVDrxS 3sibR4/cz8DxLN7404/HUVWr7JhZKkLj6ZJ3368D/mPuzC6J/FRURR+V0Lgg LnaZG8Xr3K3aZK9B9QTZ0/ZtXnRt8bJn83i5+HHXbVZKpxlPHaAisJ8UxSYh PgOkhvZRndRPZ26PENRRmktHKMisIy+7mty8OjJzG4mJSsH03K+w19ais65O HRX+Rlkl8VcXvJU5Z59qBnJBvKK2eRiGduGYukRgJUdHpzC8JAY6BMkQDQlX ZjbF17eTNzCCbXwWehFx6MvQ1I8MRTtYpICrPb4yNH0FWistXT7TjuAz00gM PJOILekQedWBS1w1ble78UgcwT91mkjphqulN0mpWRLZIdKjfkdgvU1d211e 9AtPG3zBoUT/B30HbPVsqzYga5lhVTzwkzu3jmH9UKKFGtYfneFo4SQb7SyM FfgqVLR6IfJ31qNTYfxvGKzvp17CR1PWHH05y0yJ1lqqvM+9hgMetKrKiBz1 PuL1gOr8zdADXgyqCj7sXe/jQVEPRz0DjGf2kBA0gJf/AAkJQ+Sk95OZ2kli ciPX0utIEB8fm1aPl0sAtp9/hpeuNp7S3LW1T0pi/qkabHt9DYw0bTh3MYhz lwI4bxCMtkWIchLd1DUcd7dIPDxFIweqgHYIU7RQGX/JZA/2kzHUi8f1Is6H RHFRCJGOlxuu5oa4WUizNMDVygBTPSNCoksJTOkgNLeDqKIOHCMbhDH34Jow iU/6AmEFt4iruENC/QppzWsk1G4yXHTAkWj9F8NveTHyhsORIx4IzdsSynC3 Z4PVrkVW2wd4trZ8DPaHsjh++i6FPbUF1e8dY/6dd39IifzxGQai+ul/VZ7X JNYrFx+bM28xkLfBTPl97tQ/Zqv1GQddR8r/+UoUx9sR1fnjshs8b1A57pcz O2yPrrFUN0N/ShvdVwpolI4Jj27F0jKcMLcsnByCxclKkDSywercZ7hcuqCs MBhgcFxp8DuFK9XG+xfKzDgnfU3l3j46F735/FKIKoFRwDewDxG5EoqDjHKP QEXyoiIjLkwJvEN4CJZyHtNQS8pwBwkjHcQPtWKfl0Z9Z/sP6Ghp5A/oaG1k Y101u/Hy2ROqW0Yl5qryrGxDG7GJ7lEPtp8QXrlEW8tDbnS95l7nbzns/IoX Y7/m+fjXHI6/5sHoc7aGH7I2uMXqwBKrPcM8XV9xP2OonUWE1ZiftUL8J2eA fJaA+emZICv+VT2RXZvQRn3KDC0Zqwxe32G26hHLTc8Vm7wc29Ze0TpPhAMf 9T06yZF5MnHI/tgDtgc3uNst5KJtREhZBUXirS/8/FdofnIOg08duaxlivUX F3DWuESgoS5BRrrKUoAhRjoESwsyUuGtqCrpra2pxPmP1Uy/S5FQJ9etjc0x NLLlE80o/t44mc/MY9G1DcXSKkQ8ejD2inStwFBRMyHCi6UJqTIPD8Xreh7X htq5LC22v4n7L5+pndxfcPRClbcVEyrEKnyAsGhVJY+MAtVk3krbW7a7vxKe /zWPhr/mTttv+XLgMc8mv1Lmbt0fP2Jz7DFrit2+R2+zOjjM443l91Hk02nZ amD/55MhfPzU3Id0zbcVGn6oplNKEK90Up84T0vmOoMlD5itfUJL5BhzaRtC kSXGtLzk1dQ/8HL+N3w9+w1fzr7laPYVT6afsT/xkO2Rbe723xHznGCpqY6k qFAcDWSEGWrhYSguWDuYqzoGBBnrKss5hproESbtB4SZ6ko4CTMRRI0VaGrh LyMzJyJU/RUVKVxf4x2fw99bevGJhcRmXQcuaFrxyflAfq57lf9qnYuWcyZW nleV1YotA8OwChVEI0KEGoegGyxUrDCPqIF2Inpa2DtSo3g8H10fN0N98jqt +aoSC7MNRwLXK+71vGZv8DUHo+J/x99wp+8feNayyKPJl+xNvODe1CGrUwLf 5BIrw4PvE6enr6mh+xcfqWD+6J3xp3ipArZqp7vqmC7qry3SLGJzsPSAmfpn FPv3K0tu7qg9yavpb3grsL2d/4Y384p6d19yOCsRZUqc8dguayNCHwYm6c7P wFGiopOBlnLTM2/FxlUy4K4a+xNnoq+snBguLUJapPoYYaYr13QEUm01fBps iYP98Ql8bykR1utfUs4n1h6cs/biMy0rLl1QZWzpS9O9aM8XFwI5bxSLhkMi F7wy0feLw1Siqok4XAWEGhKFbXPyGN7cUAej75bSUdRmq42Yoj5hlabc+/SX q5jErbanrPWIFx18zt7Ic/bHnwuCz5msHGRncI7d6UPWZw9YnRUPO32TrVs3 PM8YN2exYtUyo3rl5sP65SffZc/HG7MqfjVQPEf9lQUaBcR+AXGq/im328XE +l6yP/yKpxNvOJp+w+u5N7xZkKO05/OveTx3xH35ApuTAuKEgDg8QcHlSIlu WriIV/RQbx8VYKyHh54tKcaBXBZwIy30f48oC0XJwigLwdJcV7CVISgYBhpp MtBY+4en4IuoqSeovJywinLsYuP53MBeWbJQS1GqUMMMY2nm2ma46NtgreeC vpEXmqbBfOKQzefOsXzhEYWtiwvWzk4MttTybcqg2m0NFixTe/kODVnbdJWo ZuPnJCoudT1irf8Rm8OPxZYfszf+iPuTD9mbVhSnEiY0v6us0X1bUaP71Us8 zxg/7wHuZyf3cVwo4kMLE+9A+E6JwNuD29RGz9OQIe8ouc9E3UNutot59T1l b/gZj8RpPJ1+wYu5F+JJX3C08IJn82KOc8/Ym33EhnCe1ak73BkdEbWgr4xd rvqKSqaKDcD0CZQhGGJmQKipHdkyjKIsDIgWohlgY4WLpTU6lu5oGtujaebK BXNvzht7SpwL43J6KTdv3ObVs0PVbf+MluN8LXXOVkNLG1E1tYRWlBFRWU6s QO0cm8B5LWsuXTRHV9MSQ21LzPQtMdW2wt7QFg8rG+xMzbGT8GpnYIaehic+ JiaEWEuYttKmv6X2FNIqHA63Xqm8Vuo9GgtVJZLGG3eY69jjVu8eKwP3uTt8 n42xPTamdmVk7igrgShKAN6cW2PlzqrXGUPrLHGjBvmfni1ufk99+fQSyP/7 4ZJXOTk5v5MVfW9L1/LgGWqT79J2fZvh6j3mWx+w3POQzaFH7Ik5P5QAcjh7 KG98OnfI33I495j9OYmm82Lac5ssz9xg/dZNHHU1lJlYiip+XuoSpEGmBsry o+EiNjw0wyiytMTK0kFZwU9PzxQDPROMpSnrrglouhYyJo09iE6uIOJqOSGR ZYx1dNNcXY612JmdcGUnfVW2l6L+mrYi48vGDT3fMPwyhQdV1JJUXo+GgQea GnboSRQ2NnLE3MwBayMnbIwdcLG3xcHGWpoF9lbmmJvYo6PpQpAYhL+V9k/O QOJw562qx35MU8kmPTWbjDZvMt2xyUKvQD4kMnF8k1vTm9xQ1OSb32Rm/h53 VnfelxjxPa/7QTNQsGAFbVLvefi+ylTf36vqnHyNL6mIW6UuZ5Pu8k0x6S0W O3dZ7hczHrnPzvgD7k894MG0tJn73J+Tawu73FWY9vwa85Pzij2kcNQRzqSs sCdIy4j3UxQFVSAtsjLc0hB/WyuMrSOxlOGnZ2iGkQw7MwNTLPRNsRK0FRX0 LAVtPXNP4jMruJpagX9YNr+64MnnvxBUtM5LYBc+Js1b0La2sOaCjRMXzZ25 aOSMpqEb4RllpJa34xWcgpauK3rGbhhbuGNk5oaDrRceLt6ijlxwdHKUZo+D ozVWtk7ombiJKzCjv63uuPzD492vyL+yQUn2JnWlm7TXbdLfuslIj3TR4CYT Y3Kckp9nNhlUPC9yZw+f9+D6PVf8UbgqakQpxrK0Y59+WuCoMPyUzrxNypLu UX9d7LB6k7EWuaEusb9+IQbDW6yPbbExKW1mS0bnFnfEJS2KLU5NLyt3dFJ8 ioMoEGddVYXEY/wCzQwJkVHqI9jpWzmjLZhZmUdgaSzu1NBcsDTHRq7ZGiqa KbZGMmLtvUi7XklEQg4XTTw5byBN0xOtT8zx0LqAr1rhats7o6FrhuYlRfaR DXqXHDC85ExsWiU5dX3YuovSMffByNYHE0tfUcsBuPv4Ye/uhaOHBw4ernLu iJmzjHQrDyztvf9cHfwWhB9mSZcUV2wqN35ukiHZ2idNhmTTiGKH7APFDtm+ H8l6PwauD6uXf6L+rBsjzyhKlRsrUiWMDonPmOzcZLZfMJGbuzEhR8XjJ7Oq pNHBqbuKvZV+oP4QxZSfk46OEBbdbwtZqmHSt3JBS4aTjsCiK47N3VokhaEQ GxGQdia22JtJs7DB3tKKsIQ0sivr0LaW7tOX9+oZSpQ0PF4fchSfrGlgzvFL X9MZI0038ckemBt4cS2vgYK2URz8EzCwD5LRJFrUNQwbr0DsvAOw8/HF3tcb Wx93DN0CsPaNICkrj8mZGfVE9I948PgbZpePWLx7xI0NVa2HwDOs/KzMmI/H 5H0CRfX2H/PwwTfKqYxi8eP1tTLYZaD3ykDvH1Q9+t0nfrxTcJm6vc+zl1+p Pv5vVHW0tCT46OniJlh4CxaKwnzmdk7SeWYyXCSgSf8bGdlLQPHGy1Z0gJmi fKyLBBpnHGQI2Ns7El9UQdC1VAzNrTA0s8DY1AxTGUpm+qqdGPwv/AJna2vl uY6mBDAtF+W5IknPwtgPKzN/PPwSuN45RVH3NN5eSdjb+uHhG4KFr+KZLpGT AUFYBfgr06Cj8itIKashubCQ6cW5jI/UDH/0LvX80UeqB9XT1r+vfKJk/vYR bcMPyW/apLBdullIw50dxZMlX6sWzf6apDBVXSoX4Qsexoqy3NKV0l2X9MzR MpCvb+iMsXh7cxOxRetk/BxDpRu9xLNLc/HANyyK6+09GCqy7mwcMbFxwMzK Fgsxeytz1f4HrlqX0DOyVJ7riW0baKkSjMyNA5SZdzY2wdjahZBc3oWlZTR+ X7iRLH83KTWHsLxKwvOFh+SUkNs1QlZrP+kNHaRWN5BSXkJ8fhIZZ1jbcZ+W ix75rkRWZQ19BIn/d+ouUlQCstfWxUFRwU0olZWNLZpiVRf17NDUd0FPnK6x kQ/m5mIdNv64eKTj4ibd5O6PvYefMlEwsawOEwcPTB3cMZNm4eCClYMjNnY2 yq6wNjNCV/c4/8pd+UyS4mVpLtZkE6bMf7O0i0BLOxiDC1e56ppCZdQ1qsoq KB2ap3hwlriqYa6UdXG1pI3Iwi7Cc5sIlSCdWJp60kUfmvx9p4t+V+LPMb1V Pj907MY0HT35wthJ+ZOGIlHcwBcj00DMrIOxdJDv4RqKp08hzl5hpNW0Udo/ KSTiOqYufpi5+mHu6oOVm5f8PzeRgaqUQDtbQ7R1rTjeP8zB4houdml4OWfh 41+Mb1AhPqEl6NqUcvlyDWUF5ZQ3t5BYO4p/Whshac1EpTYQl1zLlcQKQq/V 4BtbjkdIuuiHzfSPJBHvdMuHJrz/d7XPUrxsdPW56ODHF1aqJJWLer5oGwVi YBki4TscM8WqnUck5h7xGGr64HbOnmT3cCKzy5SZYmYeQVh4BmJsHyBW4I+T e7Dyc1ycfDGxE39jkar82dYuCRu3dLGSKGycY7CTkG7vHUtMbi2+6b3YJzUT mNVKbEwTQYoaUpkdXMlsIyGjiZS0etJTqshMLiEmvoSQmEwGY7roCurgxfbz 1PfE7t/ZS2dXojmugXLa1akeQlPl7j168RKf5HJ+ZRbAZ6aqmkCXTEPQsY5A 3zEKQ9doQrOq8YgowuiLSOIdLlMeEkGkTyRWrhnK7SytQotwDE7CKTye4+V0 ey9rLK0s0L0gRFXL7zijy8IhRswtFlvPWOx8Y4nOq6ZocJ6s9klltpDf1VGi 0qSjsjtJzuogPbOV7KxG8rJrKBCAUsV8a1OrWUztYjqhi9GIdl7uPE/5SLLz TocdR9CzisZ8v8NUOR+PpcPyu28QlVGNz1VV3XzXq1W4J1QRW9ZHXtcchX0L eETVY2ZTSGJsGVW5hVQ1NWDmE6XMbrYIUJQHFT4RGIRdoC92Ae7Y+9sJizdA 76KnOCQJZcahoiiiMHeMwco9BhvvGGz9Y4gQ/1w4MI1/aiuBme14x3cRHDNC cmoHGTm95Ob1UiDOSLE/cUlJLZkFJUwVdnD3eh+3c7u5kdbJZHQzqWd8z9MF hI+v/fi7I/FDpEPVVf/p5P/kd0hXpVQTk9WmvJYgPjO8sFtuWwSQXA9OrxX7 qsXKu4rA9FaulDZwvXcIU79YzAJiMAuKxlLszSYkRJpQrxBP7IIccLXTxEA3 CF3pKn3pKkMRX6ZO0rUeUVhJNysqsOb2jBOW3yF+qYWgTBmB2X1Ep44KJGNk F45QUDJCUcUQpdU9lNe0kFNay4OaGXarJtkoH2FVUQ4go5WHU6sp7+mt09fU vfWvP5I7qD7iH7F/8EJJiW/MqiT1LdFeC+Ob//jdzmxRlTeJlpvyS1LVF75g Hi78IQoDh2hMXGIwtInEyTqU2KgE0pr6KBtTLGTWYBqkmLaNxSJUOic8DOvw QGwihMOGOmJvI+rI1FXoV5DQ61BRHOEYOSrK6UWIzQpficsgq3MIb/mbfmI/ gZn9RGeNkJAzzuWURfJyprhePUlJwwTlTcNUNHYzUDPB4+Y77DfdYrte8RD4 OKtF3Sxl1qacYTdnTRS905kfog9/fCyQRPvlZnZSktVFncDekt5Fh/iLzsQu 2q920SiOdqBo9qcnTE/NqNvH7pFYOKwOff8nmhbh6CnSRhwlYLhGiZ6OxlWO zgHRMhKjSGvuonh0BteELIxDYzANj8Y8MhyLKCGjUd6YhTjjZ3xBuQGihXGI 6MEwtMxD0XUIw8AtDD2vKCKL64gqbpOebcZHUQoqfUR6dpL4gmnSy+aEba1R XDlDScss5W2TwuPnedG1y9OuLQ46NthpXWa9cZ7VqhFWSpp5vHg7+SOZxzu9 +yHm8VO1A+1qnaY0t4sGRb5kThdD2V2MSy9Pp3Uxm9LFTFIXk4raNHHy+7Au Xuy8UCPzH1lcOcQnpoFz+iGcEzs7b6RY2JfeUGRxOCt6OgxnOfr5Sm8HRuIQ HIG9tGTp6Wv1nRgoSjtFRGEcJWE8OgjTSG+MXC0JsDRUJugESk9r6V+Wz43k gjiES4JcYHY112o6CS9owSO+Q52gM0FUzizXShZIq75BTuNNcms2pJdvUCg9 /LLvKS/7D3nW/5CHfffZ7b7HRvsdVhunWa3t5umdZZLPsMCzYvQ73fwhJvOj E4J3ai3ij3l08FTsuZmqvE5a8sV+86SXBYEFQUBRbGZZjqu5iibngsgtIRyz gsRodCcvd1/8VA3AxtoKF3UilJvRfqavyI76NrPCzDVcWGAEnp6ReIuTcAwO xzFUWlgYPklp5A0MEVffjFV8GlqhEWiKR9YM8sXGTAtvxTSKgOAjIDiZW6Mn TOKcaQyuV6qIkOATU9aBT0IDblf7cE8cwy99RgBZ5Er5LZLr7pDRvExq/Tr1 lTusNazxaugVr4aPeDb8jIdDj9jt32Wj5y6rHYustgzyTNxA8hm9d1bMfw8A Z81k/E/qa8c+V/FSTU/8ifK8OrdNEOhmML+P6bwhbuYNs1owwr3iUXZKR9gr H5Y2yG5ZP5vFPawVdHFDxsfU5XZFXrNa2/9HkqOEoOuZomF0lc+0Q7igH6TO cwjFVLyDs0u4iJpwsX81DOKzHcNF5ESEE1BQRMZQN6nDnbhez+fz4GAuutgq t3pyMTfA1VK93ZOVPt1tDTSPPSa2ZA6/LFWyg314Lc5xvbjET+OVoUrCi65c ljG2SnrLFqNdz9hp/4anzc95NfqWl2NveDZ2xMPRp+wO77MxsMlq3xKr3aNs jw39/4XiQ5NKKii+u5qoON6ZUxUrahSq05un2iL+Zv4sd4vnGXDP40H1Ag/r FnhcP8dhw4wcJzkQfbJTNch6sSJPsoO1mvGfqD/eUU9DubvJpfMefKEXzefa AVwyE2phG4S+SClbkVI+QeFCO0KVNZgU2SYOkcHYRYfgK72fPNxBvLq0T85w FfNzg4rKPj8QZ93AX4kzUIWs4/bw+W+Y33qt/AZ+OSPyMf3YXB7GJVX1EEV4 6QYtTU+ZbXvBw/6veDr8NWst/8BXHbscTbzl6cRrHo4/Z3f0Eesj26wOi2Ma GOfZ5gYfS1P+8DQQ/+iE1J0uQrK/v39WAQsVJn/5PUyq0quU56254wznLjCX v8RyyQoNXo2Min48bFrjWesaL9pXOBJX+rz9FoetCzxommFTsFkt7eFWVhNv 9p+erFBvP34iet+Yn5t580tp/00vnr81zuLvrHL4zPYKJk6XcXIVra6YARJw bENDsIsMUQJjHimBNiScy0Mdyso+pQvj7L14cjrB4PfIi1HtVq0a44rXT1hp e8l2z2v2BxTJXWL342+42/Vbvuzf48nkKw4mX7Az8Zi7EzusjkvXD49xuHX3 fZzmjJ7/N6cI4nEq5neKhpyO1D86iQSnn7q6PX2TuvQW5Xln9gJjuSvcKLnH 3eod9hp3WUq4zdOcYV527/Gmd4c3fVsc9W7wpGeV/c7bbEugW6sV2iD043Bx RR2NVJV5crv7MI26xqfWnuLHXfnivAlaF0y5IOLklzqX+aVhHBfsUtD0yMPA KxpTxZ6vEg+spNcVPa8TEinxIZzw3nYqb936HXkBz6mNUAHQkqNaW56tP+RO 21Pu9Txnb1Dsf+QFh+MveCqdPl4wwYGIqwdTT9iafsiacrvw2yyPjqSe0Wln Ecp3Ov9DhFI1A/hPT+76uCleKzPL1Kf1Ks97s+8weV1Ye+UeG8q8yUPp1Qes h3Tz5eATvhp6zNvhh7wU1/l0cIeDPiFuXbdZbxY6UdPDzaLKk7IrNYJqoNxX SHk5EdK+sPHic+l9jYum6F0yxeiSGQYa9uhreaNpEoOW/TUuuqag4Z2Gnncw Wr7haIi81BDdZOjtx+O3vzm9rK9iugPqZf2TevG1+9xofSj+/BGbA4/ZG3nM /vhjHoqdz7beYW9yi72ZA+4p9gqZuydf/iYbSzdTz+izs5jmO93+Iab5j75r 7ser1E1pN+nLXWeqdI/bdXKjLU/FHl7wvO8lC9c2lP7xawlSb8U3vhx/wtPR Aw6Gd9jpX2O9U3hD8zC3q2uPF9qPC6N0HLf6OuIrmwkuLSG8ooyoynIuV5Rz Xt+OixdM0JbON9Q0w1TbDEs9cxz1baRZC7N3wMjcCwPLAHQsI7Ayt8DW0Zlg Kx0GW+v+6N2+Vyy0V4QvnfT9YPU200273OzcY0W45sbQfbZHhXOOSZu8z87M Lpvz4msU227M32VxapFXL4/e1/enr73T9x+in6prf81Q1Rj1iRM0pd6hv2CL 6coDbjc+ZbNdWEDva14Mfcl2w0ueXL/DN1NveDv9ipdTioF6yMHYA3aG7rGu YAid49xpbFR+aryiPK6+FvbHK9rS3PS00bdx4XM7D87ZemAXF8/lykoSK6ox s/cTs7dCV8saI+lpcyNrjHWtsDW0wcfeDkdLCxwszXEwM8NaUDC5aInHxb8V JaDN9vrKd3bIOR66h7tvKbuyrrzWXrrJUN0mU62bLIqeui0OUrExytqYtKkt VkWM354XUa7Yb05VKI+0j2Q67+n2s5iOavT/X6xObFL//7V3pVFxXFf6G1mL 7djOTJJzZrL4nJmcTGTHk4mdTJzMTDJ2LDvxpg2BQBIIIRCSkEAgEJLY0YrY 16bZEWLtZmmWFjs0dNMsAsQiJBrEJjaxaLPlH5k/mfuquppqaJBAM/Mrdc5T l5rqqnr3e/fe777lvotqaus9qEgcgubaJG4SCdOVkuOpeILZ2q/xqOEpbktH 8bR6HE+0T/BA+wD3NTO41zCOu3WD6Ksmp1TRiOLYSNiZk7ipsAm14uHlI5a7 se3wCXxu54QvD7pi20F37Hc7D7+IFPhHpmHrVjZhwRGWexxhbe0IO+ujcCSY jh52gKODHQ477Mehg9awt92L3ZbH4LD1Y0T6nOAnDb2ByeGnSAzqR4ZEh4J0 HcpzdagjKWuUJMlqrmsDLRodtPpRwNqmO3j4+GtTQzWmFq8sEu6zaKQg3O66 AeSc00AW3ovyxGGos6bQWTCL/rIHGKt6iJm6R3jQ+BijZdSWc3vwuPkx5psf YbppFmPqCQyqKDip70ZZSgb2fPJ7OFhsw1E2j5IJlc101c9wZgNk2+ydsM3m KLZbsXF6Z1iwHfEO+iI6q5RLXL/TiuVNOA5zayfY2bnA2cmVy+Xi6HSEKI0D DhGbt3e0gTlds83MARUSv+/pKfT4yFMUycaRmKBDdqaOqKYOZSw1CJHyCjac R22otFGHpm42Dvx11HNSwleXClVQHFP9fK/o/50amkeWrwa5oT0ooxbbkDmO 9oIpqLLoLZLaUZ3cTqauPqWD3lwVdgOP6ocw2zyHSe0MRjRkxTX81CrrTz/C /i+24AgJ1NliO9uoXhjmsDjiamBpu7baY/fWw7DacRR7rVzh5BUNKQWEDtR4 ze1OYo+dBxyOeMLp5CnYu5BMXZzhcOIYnTvC5thh7DjoAq/zwdDIYvF0fkK/ vkQ0eFfND94lFrNcK+PoZpsLPfgmSs8H/vznP3PTTtggF/Nwjx49Mkk09ML8 if5n4m5A1jk/OTkJU0TvVX1LrUy8heygXhTFDyAjQoMrPnLE+cmR5pePbCp5 PvmQnc1Hmks+Uo7loiGeAh4thcnNLEeaDkkUrh9ms3zN+dZJwoS7xQ5ujjY7 DtvaUGTjhB1fUqi+jR/4YWPf1hYusNnjiv12pxGSXoLkUhV9FuCwHUny0EnY nPDEATcPItwsU4crrN0o/Pe6BN9IioKkCSjOjsHcYFuOvmpMWkxCrHrrOI/0 CtfkmB6fIbbILCKrPvsMCwvjvk9MTNRfy+eBYL8Xt8Gl4jJImdE54WA9+uwy U0tf+J/9EFODj5Hgo8WFM7mI8MlDin8e8gJkKKZS4SdDra8ctd5y1JyVo8Q5 F0VuMlwPLIeudRA9Lbdh8/knsP3ijzhKEnYhCZ+02IlTlmY4Y2XGvYPtwUMw 330YZmRMhcTHbDD7wH6SoN0pnDwXj0vSfOz58CB8P7dD3MVQ+ErSqKTAR5KE M7HJkBQpESUrQlhmDkKImQRJwjA/1JbOswomYF5MrK6sfuuYgNdx0l3PyZVV nBVS80362s/MzBi+Xix6dg+92NeJLIFgXtctK049CgvsjrV3MbszZhjvooO4 TKhXNsLPkuR98yAj6Sup1FJR0f9bAmXouChDyzkZVNT+G32ycf00XeeUg4yQ q9j7py1c1H6MJO9qvhPuu81wmpsKvYuTtaUDWd2d/FQCi+0u2GPODwfasoje niJ5RyrO/vjkDx6EWiCkbgG45u2G9OompFapkVyhQmBaGc6lKBAoleFsTB4C E9IQnBqBByM3Ep4DgZcMLZwJYB3DgPeQrxswMCV/doyOjhqavsCNv2Us6GdR uVcWIt2fI8urACW+CoN+aC8Woz1Ege6IInSFFaIzTI62C2RJLuWh3DcX0TaB cDTbRhxtBzdX2Y2ky81y3cMkbM7dw4qIw26yGuxgG7Ts26EfKHUIJoIQAefj sTjumYw/bo3EaY8UJIUnIys+FLHFDfBLKMMpeqZ3aA78g68hICgD/hfS4R6Q CqczkdDmVSBGZEYECfOmYaNJM0Jy4mQsrH4ShMO7Td7OC3JnFjkwMBC+vr6w tLSEs7MzQkNDVxCxKWbBW5dfISOKX/9dJOG38agPV/Gf52vREswvWO6JqcGt uCr00TU9EiWag7LR4BWHKo9YXPdMgP8uR26PVfGcYqcPP4fXJ3x7ttrrDZtt /ty5nW0kHBz4YWj7k9E46BRAni4Ah6gNOwfnwDZAjvOJMlwMKYRnhALeUYU4 F5mPyxF5CAnLRhjpT8SVJIRcTISnXwRKz2RDcaYEs4NzCF6xYdN3YpGv44T5 kkEgrHzPhN0Q2qd4ZHodd5eNHBTMXIsHYcl4LILi+foK/wHdzTeRHS2DLI6H oiGuFTekHdz5TUk7OuNu8HAkNONWUhO6E1RoJ1jK3SVQn4pBk2cIlE6ByNjn D/sth3BsC4VyuzzhaX8RgQfchEjugM0xWJm5Ex9xM2QrsbH3w4EjATjoHAgH VyruAYgsqEFqTQv8Eytw1EeFCwE5uBCtQHB0ISKi5IiJzEFcVAYkkSmQhEsR cTGaWkY+1JdKUeNTggd3586tzdK8JhK5AI2Q6VnMR0QbCr/MYcPuJHQCCq5U j8s6TiOMU2a9sRSnlXgjj9P7yAy7itxoJfJjGlEZw2NyM5VfojWWN4jpgkHu fCBFg+Yr+VRkqDuXjW7vOLRczsGNKymo9A5D2qEj8LOyx3ELM7ha7uI2UT+z zwJe1hbwsWFrPh2xZ483Z6AsLM/AytYX1of8YUsqY3ciAPYEkv3p80isaoJ/ 0nWcilTgbHQxzl+sRXB4MZeuJC62GFJJIRKleUhOzECSNAl5YQkUhZWhK7YU rWElaAgoIrBmvJ9hsxhYpmyWvnNAcJ7fNtHqX18A6iVu6iwDhd1nyZa9wtpf rkORn4+oX/j57BFpU2uL+Qb+PrJDZciNrEVRdBtqYvmNHXoy+Z678cIJjOby 6wbawsrRHnEdt85fw5PkdAxnK7jtEZpjZVAGxiLV8QhcPv4Ttv7qPZwgzNzZ xveE2VnCzHu/BdxtbGC51w8W5me5sX1LWx/sdfQjAu/H7fZi5+EHO79ghBdU w4Mb2y+GD93fJ7ga53zqEBuuREJiJZJTryM1oxjpGTKkpWWgJUmBkYxaDKRW opdlko8sRu+1eo9l6eoGk37GlNETMpqIPca3TYhcuO55DaGQS/pNYxSf1XO5 Tk+JxSiy0tXYrkfz1yiO7EKdlE9ofyt3nPsczB1GU2gdd951rgjzUjmmcivR EnMdGpJyTVwlKsiBlJyXItsjEBfIdX781k+x89e/hBuheGofP1fXa/9ueNvu hq2VByxtLvB7Ue33huUhQvK4DwUOPrA5fQ5nEzLgLSmCezg5qigl/KOrEBRb hytRGsSEaZCUoUJqdi3S6R0y8opReLUQ0/J2TMhaMJyjwR1CsyepjJCU4fHY NL/H1mp5sSll+/aiyI3h9eDBAxFeG0wZSJiykD8WY7eQhUGAX5yFYX5+3sDf FpJAbtA7nRsUW/fJ72O4eE6P4r9iJLIEk1kqdEka0BFfj1ZJNTRxhFZiNSrD c1BKdrIwMARJzkfwESH1x59thuO2z7jdkk8RUqfJRp4lnXPdZwtzK7YT8iXs sGW79nlhNyFlRShbep5HRFE5Tgbnwy2sFJ6RVQiIqscVSSMiU5oQGt+BFGk9 0vI1uFpYj6vyKgwUdWG25DamFD0YLeyETkb+9loNoVWIqbbuQ2tzaqaSBL26 YBc3GIQqdmC8aVzPYcSEzQrh844xLOxbMZILiRM2GtFqQaUEcPDvvLbU9yDn Ar9HV0nsHdSnjuJG9hT6CudQeLEZNZ5ZGMnvQGdGF7rY7lAJGnQkNqI1oQ6N xD/UZK8qibeURqShJCQSl+2s8eHmn2IL4fXpO5txgkj3SdIuNtXBk8ppwszB 8jjMbIKx0z4IW+39seN4IHa4+OOsNBM+pLmuV4pxIrQCnuF1CIhRIyhJi8iM FsTltSEq9Rbh1Yp0RRPuKu/iUfk9zJWPYOr6IEbL+jCg6MQtmRq9mUq0J6bD do1k3FS+dRHleMkIsZU92XvGNvBZ5HzdYojYWXYAv59qcZwOdWn30JZ7H7cU 80QT24mGNEIbq8GN+CbcTGgi2qhCHTFnLalSfZwKjSk1qIjLR2nsVZRERCHW 7TC2/vJdfPDWZmwhiKw++i+47GWqZIGTpFruBJEHFcvdXthuG4Kth4LwJztf nAijeCe9GGdiCuB8SYkTwfXwiGiEX3wzLqXfQFhOB2Lyb0KquInYtNtQFnbj SdUsHtfcx3z1JKaqxjBWMYiBsl70KVrRK69BV2YWrF6Uuf+tCe0SKCMDSyAd Yoe12AAKDuu3xmA9i76LwHrLANY1bz50KorVoSZtDC15k+hVTEMZXIPayDpo YlVojW+g9tkAbXw56uIKOLtXn6hGY3oNyhMJLOlVFEdHIOjwPvjs3YG9H/wH fvf2Zpj94fc4sscCxwgwZwLLmXTKhcBytjXHnn3OsHZPx/mMNlzMaebewS2y AE4XKnE8SC3kjL+Q0Y3g3F5E5vchsWQYLfkPMRrdgyd1D/G4fh7z9TOYqpvE aM0IBiruoE/ZwY2HdMtl2Lk2+/d9ETszohTLahN9x+BxcXFZ1j/9filUxgx+ gxGDF4ygaH7S+8g61wF59B1Upg6hKWcU2sw7KAkuR1VEJepjq9EkrUFrYg3a kqmQHmmTq6FKVaHhWiWUKXKUJqZCFhUCfxsz+Frzi55P79kGiw9/i8uBRPms zGFPJtDBmpVdKC2Sof92LzeZIl8zjehyfiM+d3J/Ry/wOu4Rdwu+qTwlDZGN ILf4PqbKn2Cu+ivcyn6Kr/Lu4FHDY8w1zGNKdR+jdfcwwMZ/qvgBlC6F/Is1 0nmx1hinedlkRCnENPDZBvATXvY/fU4qv1EP4b17c4g+rkaCfyekvlpkXW6G IlyFvAsKlIWXoYqoc73kOtQJrH00URD0LahTlKhNr0bV1WKUpuWiMDEZEZ4u 8N+/C76EkZc14bN3G05afSGeUvFdHArk022ciOpDahq/R8utwnkMlz3EROUj zNQ+xrzqMXpl3+BJ6SBm1Q8x2TiLEdUEdPVsgIUtlldjUNto2FLnRYj58uk3 Ni6Rvt6eLSv/L43l/ywSzq9L/QHG782guLAJKRQqppG9D3HSQHKWcLighexS HdJ8c5FzXgZFaAEqYhWoiVegNkGBumQ6T1NAebUaxekFyE/NRuKVIASQieJw 2E842OzEaevtkJw/K5AVEUHhPjO965F7+aZgtVpyp9BTdB+DyhmMkVeZqp3D jGoO841zuJGgxh1CfFx9H0PqCdxR84MzvfUNmLrbz1uK1dJrUwzgpRfsdOA3 KuBTdXDWUJwnYPHcAjGp5sPsH3LbuiSTrLMkpSimUh1XColTDcJdtUgmHcm7 rIXkTA6u+suJ1skhD5YTZygkO0UlpRCKtELkU2CSlZaPeKJrAbYW8Cdc/Gx3 wYdwObt/J9G07dyuN6JtqfjWWCHlUynJo/tRmcLn0rpZeA+3yyYwVDmJsdpJ TKqmMN04haHqu5hoGMSYZpx0YhR9Wh16mzrRWV+H36zNiYgTDLH2veDmN3CI MAye3yjt4aH48aLWJxQ9SxPWLAoqx0bAhAV2YnbNU4AfET73kR6bjxxJCcri S6GSKNEap0QXhTYKv1qEnyKczmkRdVaBOB85ks/LkX5FjowIObKkhchMLkQ6 4ZSWVY2I4Bj4H7CAHyuEkQ9h5GVrxm1h42Gzjc0VWALRpD4dQlZ4P4oTeR/S kn8XXeTnb5OvuVs9gpG6UYypRnGvcYTgGcZQ8xD62eaULPGFtgPjI6N4b420 WchiKzZbgoIvNluMlq2E0AExQptMIsQesZgysPuw192o/52YrrFSVVCLnLgi Up8KCBPqRtIb0SbR6MMu3uAEnZMjIigfUaFyRBLlDZMU4nKQFKGB5wgKC/hS 8SFofAgarwO7cPqAGU7Z7mBb0egt9aLMBENf87d+nVvRX5+rQ0uRDp1lA+S1 B3CnZoAcyQAG1PSpHUBfi45PUtFyG709/fxSseVZ8kYjODo6OtDa2rrYpbPW u+DSNxrRMVFPwWo7ChbM2cLEpw9WBk8gawawhe0LxWh1afk+cXlcBQUwajRJ +Cm/A2md3OdUbidmZB2Yzef7YS+7p8DNPgCeR/xwxskHrg6nub4Cu8+O4pKn O7yIJ3vZsmKOMwfMCbFd8DiwE26E2sDtHr1Y3oBCehdJwTpkS3UozSAOn6eD RqFDq3IhgcRNDZ1r+QQS6uZ+3Owd/ue1mTXBxIj9jADaklhxMV/mhW7QoiWd BW+baIgwnYnxd/wf/9EAoeCbxMR6vQHqlwxn+gTi1bJK5EYpUUgRe21sB9oS Kcy7yvfTTecPYK5oAA9LdHhcyveWz5R0welTM7jtNMepnTvg/Okn3Dwfq88O IcjLHZ6Elich5XmAJaTZhZNUXAmtgTu9vCd4DROj3yA2XIf0JB3ys3QoK9Ch qowi5CrSrzoqjTpUE1Dl6n4Mjs0JeZVWy4oFhywmTm+IhCMYuvUrRjTL2rlf rA2jRX8S0Fraa/tPS7SPHQLbzg7NQ25EPUqibpC3uoWO9EH054zgXgHftfpI OYGvKsbxdSWfzGyGbNW4spe80nE4fP4lDnz0Iba/8w6s3nkPrr/5BZeV1I2U zJWgcyHIjpPHIsj0w2uvQNs2j6LycW7L8Gtk/3JIqXIrdcgizPpG5jH94Kk+ x/mLEWihd1Q8a1NIGCO0aD1Gz9Mv8P6qQVrYc8JUMqiNentnChqBiOdcKUFe WBPKorqhThrAzcwxDMgnMVHC7xB+O1KLifh2zGbyGtUdx5Zy1GBE3ojYiyHY /eEWfP7uv2H32/+CI+/+jM8hKlpe8cu10GJTeepfXrHhi/zych7kP1ct3c0i mQrw8jJ906RMBaKWc6kcecFtuB57G+o0PviuuXyX5DvDN+/rX1Gc9wT3tfxu gDMNExivG8bdqj70KdvQW1yFWhkFPunpkGekQ1HA5+b8+dqMv5CMj4nO2Piv NzItazIsW9YsVTG4C/ld1+vBFsszO7ASeUHtUErID14dgyp9SBhrnq95gick yqfqJ3pStRH31dO4pxrDYG0/blW3o7e8GlN3et95hmVejm5+z0QreE3fFgS6 KZfLDTxxJWl9ZqjnQg/RB88QC0ylMeWXOQhE5pp3NYWxHSiVDKAx4x465dMY KJ3BeOUcZuvm8bDhAZ5oqDQ9wHwT2T/NfYw13oOugQImVTt6qqrwePY+P1D9 Ir2k3zdRiQ0LDWtN8WysWD4LmwKLu4jo8gVWKJoY/12DhLqqx5B9oROKuH7U Xx1Gu3wMd0onMEIh5VTdFGYbpvFAM42HTdOYpTLZNInhJrqmqR+9jTdwo+q6 sBnTatVP6DnWz90Qqd9GrrZSqXRx2LKyyiUvFYhwCKI0LFD6rlH3ZLpPJ3Ij KbBO1UGbN4iu4iHoKihaqxnFBGnMtHqMtGcMUxqK3rQjGGy5i1vNfbipbsHY 0F3D/iGrJTd/b8I5vbJIhZ43YrvG1/4tE1SE51DfMeroYzt1pgX1oyCBOHam Ds1E37qIvt2pGiADMYBh1QBGKBwa1g5ioIXCpNZ+dDT3orer7zui2q6VIQj9 +aZmmohZwzrRdWsdS801lszSLri/M+qCY0WRNIwUIrcFyURqiSxpCnW4QWSp i4hSbz0VIrbdzSxA1KGJRSA9Q8KKmdV5dMGIskN459fEHkdsQVcKNoqXVnKl Pq11ehQmxr5BfAyFWxQVl8ioshQkqIgRNhKDbyQGX0cVrdBwDF4YNFitnv/A RIvcIK7i8zvVHxlMWIJxdZ81r5F3GJvQ3D4PRdU4UuU6ZFJVsyt0yKjoR9/w vKGpLVXil5fzg1Cr1ZidnRX4LvsZe5W//GVhNoDQ3JabvbEc6f2xaQIhXb7i psbINryo5xJHyCvFX6IR9ZdNjqg/w5ttfq7qmuqRZ/VgZkiMG9Vw5UYpyEps DFZIA/q/FFauUJtX9S2U1WIZl8G/uWB92fME5MX9TOx43hlCywRW+td8W9+C FvftsloKc5LYa7HX7enpMUlyNr0gyVkmOFn0hgxFJiwBA3aH9fpfMoFWVlZy fyfxCal62KTexT0+xrPWV4v5x4uN09smbPEG0VsxuTFVXKaXw9SIEyMB7Fjp PaaMn26KNzPU2Axyhpow51PsdYXrXsTrzi3/Guv0D2GTqUXQvK6XkED+lhH9 Etf3VPyklxeHbpyo33zzTZSUlBhWNKwe3f8WP2ST0UMEaQoOTsxZVmPx9ZEm 95yf6cFn1yuVSu5Z3d3dwnSK543tuX83Gd+SvdJyBoHr3FrUmzzN/3yXaU00 FdDuMvwWC3uR8P+j4wr/FTdMLtq74LnubL7ou+WuC1r1O1voG5/4O+EJwau+ 2//de4pku8FItote1sxw3UJEbb38G5QZLtL/nvvrH/56/tfz/59z/M3/AAu+ c2s=\ \>"]], Cell[BoxData[ Graphics3DBox[{ {RGBColor[0.7333333333333333, 0.6, 0.4666666666666667], SphereBox[{9.355950630064521, -5.469921833477757, 2.3919168361090453`}, 0.255]}, {RGBColor[0.7333333333333333, 0.6, 0.4666666666666667], SphereBox[{12.113111542811811`, -4.6004151217432545`, 2.3513859532935792`}, 0.255]}, {RGBColor[0.7333333333333333, 0.6, 0.4666666666666667], SphereBox[{ 13.221317791927152`, -5.174286631130686, -0.26385302587208725`}, 0.255]}, {RGBColor[0.7333333333333333, 0.6, 0.4666666666666667], SphereBox[{7.980245047292903, -4.459232501330977, 0.12655229971807103`}, 0.255]}, {RGBColor[0.7333333333333333, 0.6, 0.4666666666666667], SphereBox[{ 11.943196328247794`, -3.4405987920980374`, -2.1973629836119994`}, 0.255]}, {RGBColor[0.7333333333333333, 0.6, 0.4666666666666667], SphereBox[{9.12461388245235, -3.564237612265092, -1.9041939333290459`}, 0.255]}, {RGBColor[0.7333333333333333, 0.6, 0.4666666666666667], SphereBox[{9.26142312932195, -8.35948391611294, 2.3604725371222326`}, 0.255]}, {RGBColor[0.7333333333333333, 0.6, 0.4666666666666667], SphereBox[{8.08424890617377, -4.495505794556875, 4.798997541998423}, 0.255]}, {RGBColor[0.7333333333333333, 0.6, 0.4666666666666667], SphereBox[{5.218626371666001, -4.4543576696249465`, 0.17435493765918553`}, 0.255]}, {RGBColor[0.7333333333333333, 0.6, 0.4666666666666667], SphereBox[{7.508365229082102, -2.614799702589025, -4.0480005897900835`}, 0.255]}, {RGBColor[0.7333333333333333, 0.6, 0.4666666666666667], SphereBox[{ 3.9371980002901754`, -2.2441804566631625`, -0.03164121925261054}, 0.255]}, {RGBColor[0.7333333333333333, 0.6, 0.4666666666666667], SphereBox[{1.28453314071611, -2.215542676201038, 0.20637130840686035`}, 0.255]}, {RGBColor[0.7333333333333333, 0.6, 0.4666666666666667], SphereBox[{-0.1279136664932785, -4.640876234569323, 0.6898770435346095}, 0.255]}, {RGBColor[0.7333333333333333, 0.6, 0.4666666666666667], SphereBox[{0., 0., 0.}, 0.255]}, {RGBColor[0.7333333333333333, 0.6, 0.4666666666666667], SphereBox[{-2.6635653925414697`, -1.8170592809396665`*^-16, \ -1.2761959987330888`*^-16}, 0.255]}, {RGBColor[0.7333333333333333, 0.6, 0.4666666666666667], SphereBox[{-3.9449472183981267`, 2.2197158559385253`, 0.}, 0.255]}, {RGBColor[0.7333333333333333, 0.6, 0.4666666666666667], SphereBox[{-6.707018237491282, 2.219798070899992, -0.00012583840524360568`}, 0.255]}, {RGBColor[0.7333333333333333, 0.6, 0.4666666666666667], SphereBox[{-8.130972486559717, -0.24632241696105034`, 0.00008618276100624822}, 0.255]}, {RGBColor[0.7333333333333333, 0.6, 0.4666666666666667], SphereBox[{-7.96856069025284, 4.405238240978162, -0.00010110473007696186`}, 0.255]}, {RGBColor[0.7333333333333333, 0.6, 0.4666666666666667], SphereBox[{-10.788497722000546`, 4.421681594573656, -0.3983304825461962}, 0.255]}, {RGBColor[1, NCache[ Rational[1, 3], 0.3333333333333333], NCache[ Rational[1, 3], 0.3333333333333333]], SphereBox[{-11.441648525382725`, 6.388290562511491, -2.12986341280829}, 0.178]}, {RGBColor[0.7333333333333333, 0.6, 0.4666666666666667], SphereBox[{13.179607345692578`, -5.614998978588123, 3.792632284572573}, 0.1]}, {RGBColor[0.7333333333333333, 0.6, 0.4666666666666667], SphereBox[{12.205196272275444`, -2.5746800973056976`, 2.71277085636893}, 0.1]}, {RGBColor[0.7333333333333333, 0.6, 0.4666666666666667], SphereBox[{12.865055895091999`, -7.144171884341117, -0.749349235031052}, 0.1]}, {RGBColor[0.7333333333333333, 0.6, 0.4666666666666667], SphereBox[{ 15.249439453550046`, -4.815396275159719, -0.24992745442096753`}, 0.1]}, {RGBColor[0.7333333333333333, 0.6, 0.4666666666666667], SphereBox[{12.576520337060586`, -1.5032944033353286`, -1.900608071809242}, 0.1]}, {RGBColor[0.7333333333333333, 0.6, 0.4666666666666667], SphereBox[{12.459023693948815`, -4.039940724072308, -4.099456443849243}, 0.1]}, {RGBColor[0.7333333333333333, 0.6, 0.4666666666666667], SphereBox[{7.298838434330237, -8.982791051718115, 2.4120127436436656`}, 0.1]}, {RGBColor[0.7333333333333333, 0.6, 0.4666666666666667], SphereBox[{10.259255304327523`, -9.097067880814755, 4.004257535450714}, 0.1]}, {RGBColor[0.7333333333333333, 0.6, 0.4666666666666667], SphereBox[{10.158465080720351`, -9.057102410664758, 0.6426070148404381}, 0.1]}, {RGBColor[0.7333333333333333, 0.6, 0.4666666666666667], SphereBox[{6.085870616565152, -4.994292990420201, 4.769948976516158}, 0.1]}, {RGBColor[0.7333333333333333, 0.6, 0.4666666666666667], SphereBox[{8.279216775361729, -2.4472765524924847`, 4.897404078707149}, 0.1]}, {RGBColor[0.7333333333333333, 0.6, 0.4666666666666667], SphereBox[{8.981523610574435, -5.35081046457997, 6.443968949066479}, 0.1]}, {RGBColor[0.7333333333333333, 0.6, 0.4666666666666667], SphereBox[{4.198181902855893, -6.211727038964405, 0.3651123356629853}, 0.1]}, {RGBColor[0.7333333333333333, 0.6, 0.4666666666666667], SphereBox[{8.717549033619132, -1.9427573384469419`, -5.574227673748544}, 0.1]}, {RGBColor[0.7333333333333333, 0.6, 0.4666666666666667], SphereBox[{6.321901230422322, -1.068817176563745, -3.3809055129759207`}, 0.1]}, {RGBColor[0.7333333333333333, 0.6, 0.4666666666666667], SphereBox[{6.316471696458098, -4.1456887342511, -4.73965157068031}, 0.1]}, {RGBColor[0.7333333333333333, 0.6, 0.4666666666666667], SphereBox[{4.949416843178771, -0.5062496993845232, -0.3781458498011426}, 0.1]}, {RGBColor[0.7333333333333333, 0.6, 0.4666666666666667], SphereBox[{-0.5064783381203037, -5.583738781162587, -1.1017907326262135`}, 0.1]}, {RGBColor[0.7333333333333333, 0.6, 0.4666666666666667], SphereBox[{-1.909487867230868, -4.221194573067053, 1.6346671779099267`}, 0.1]}, {RGBColor[0.7333333333333333, 0.6, 0.4666666666666667], SphereBox[{1.0106466248182127`, -5.871610184626167, 1.886378923688694}, 0.1]}, {RGBColor[0.7333333333333333, 0.6, 0.4666666666666667], SphereBox[{1.0206822344527362`, 1.7598026982488868`, -0.16407903131640045`}, 0.1]}, {RGBColor[0.7333333333333333, 0.6, 0.4666666666666667], SphereBox[{-3.683860991778121, -1.7673684114743848`, \ -0.0001561953882592837}, 0.1]}, {RGBColor[0.7333333333333333, 0.6, 0.4666666666666667], SphereBox[{-2.924240414526432, 3.987193882053644, -0.00014191171313204798`}, 0.1]}, {RGBColor[0.7333333333333333, 0.6, 0.4666666666666667], SphereBox[{-10.14625054163696, 0.12442435507148672`, 0.21006626221979102`}, 0.1]}, {RGBColor[0.7333333333333333, 0.6, 0.4666666666666667], SphereBox[{-7.480745649698218, -1.414536613959974, 1.5667816904897856`}, 0.1]}, {RGBColor[0.7333333333333333, 0.6, 0.4666666666666667], SphereBox[{-7.795991047989746, -1.2326661820398381`, \ -1.7771050020973869`}, 0.1]}, {RGBColor[0.7333333333333333, 0.6, 0.4666666666666667], SphereBox[{-6.968251244861138, 6.161210597427631, 0.28500904383247594`}, 0.1]}, {RGBColor[0.7333333333333333, 0.6, 0.4666666666666667], SphereBox[{-11.734240615188098`, 4.749664115629626, 1.401861291621106}, 0.1]}, {RGBColor[0.7333333333333333, 0.6, 0.4666666666666667], SphereBox[{-11.383998461962367`, 2.6053773810823757`, -1.1659534376707403`}, 0.1]}, {RGBColor[0.7333333333333333, 0.6, 0.4666666666666667], SphereBox[{-13.257046510069351`, 6.333034971073971, -2.3314029627724198`}, 0.1]}, Text3DBox["1", {8.755950630064522, -5.469921833477757, 2.3919168361090453`}, {1, 0}], Text3DBox["2", {11.513111542811812`, -4.6004151217432545`, 2.3513859532935792`}, {1, 0}], Text3DBox["3", { 12.621317791927153`, -5.174286631130686, -0.26385302587208725`}, {1, 0}], Text3DBox["4", {7.380245047292903, -4.459232501330977, 0.12655229971807103`}, {1, 0}], Text3DBox["5", { 11.343196328247794`, -3.4405987920980374`, -2.1973629836119994`}, {1, 0}], Text3DBox["6", { 8.52461388245235, -3.564237612265092, -1.9041939333290459`}, {1, 0}], Text3DBox["7", {8.66142312932195, -8.35948391611294, 2.3604725371222326`}, {1, 0}], Text3DBox["8", {7.48424890617377, -4.495505794556875, 4.798997541998423}, { 1, 0}], Text3DBox["9", {4.618626371666001, -4.4543576696249465`, 0.17435493765918553`}, {1, 0}], Text3DBox["10", { 6.9083652290821025`, -2.614799702589025, -4.0480005897900835`}, {1, 0}], Text3DBox["11", { 3.3371980002901753`, -2.2441804566631625`, -0.03164121925261054}, {1, 0}], Text3DBox["12", {0.68453314071611, -2.215542676201038, 0.20637130840686035`}, {1, 0}], Text3DBox["13", {-0.7279136664932785, -4.640876234569323, 0.6898770435346095}, {1, 0}], Text3DBox["14", {-0.6, 0., 0.}, {1, 0}], Text3DBox[ "15", {-3.26356539254147, -1.8170592809396665`*^-16, \ -1.2761959987330888`*^-16}, {1, 0}], Text3DBox["16", {-4.544947218398127, 2.2197158559385253`, 0.}, {1, 0}], Text3DBox["17", {-7.307018237491282, 2.219798070899992, -0.00012583840524360568`}, {1, 0}], Text3DBox["18", {-8.730972486559716, -0.24632241696105034`, 0.00008618276100624822}, {1, 0}], Text3DBox["19", {-8.56856069025284, 4.405238240978162, -0.00010110473007696186`}, {1, 0}], Text3DBox["20", {-11.388497722000546`, 4.421681594573656, -0.3983304825461962}, {1, 0}], Text3DBox["21", {-12.041648525382724`, 6.388290562511491, -2.12986341280829}, {1, 0}], Text3DBox["22", {12.579607345692578`, -5.614998978588123, 3.792632284572573}, {1, 0}], Text3DBox["23", {11.605196272275444`, -2.5746800973056976`, 2.71277085636893}, {1, 0}], Text3DBox["24", { 12.265055895091999`, -7.144171884341117, -0.749349235031052}, {1, 0}], Text3DBox["25", { 14.649439453550047`, -4.815396275159719, -0.24992745442096753`}, {1, 0}], Text3DBox["26", { 11.976520337060586`, -1.5032944033353286`, -1.900608071809242}, {1, 0}], Text3DBox["27", { 11.859023693948815`, -4.039940724072308, -4.099456443849243}, {1, 0}], Text3DBox["28", {6.698838434330237, -8.982791051718115, 2.4120127436436656`}, {1, 0}], Text3DBox["29", {9.659255304327523, -9.097067880814755, 4.004257535450714}, {1, 0}], Text3DBox["30", {9.558465080720351, -9.057102410664758, 0.6426070148404381}, {1, 0}], Text3DBox["31", {5.485870616565152, -4.994292990420201, 4.769948976516158}, {1, 0}], Text3DBox["32", {7.679216775361729, -2.4472765524924847`, 4.897404078707149}, {1, 0}], Text3DBox["33", {8.381523610574435, -5.35081046457997, 6.443968949066479}, {1, 0}], Text3DBox["34", {3.598181902855893, -6.211727038964405, 0.3651123356629853}, {1, 0}], Text3DBox["35", { 8.117549033619133, -1.9427573384469419`, -5.574227673748544}, {1, 0}], Text3DBox["36", { 5.721901230422322, -1.068817176563745, -3.3809055129759207`}, {1, 0}], Text3DBox["37", {5.716471696458099, -4.1456887342511, -4.73965157068031}, { 1, 0}], Text3DBox["38", { 4.349416843178771, -0.5062496993845232, -0.3781458498011426}, {1, 0}], Text3DBox[ "39", {-1.1064783381203038`, -5.583738781162587, -1.1017907326262135`}, { 1, 0}], Text3DBox["40", {-2.509487867230868, -4.221194573067053, 1.6346671779099267`}, {1, 0}], Text3DBox["41", {0.4106466248182127, -5.871610184626167, 1.886378923688694}, {1, 0}], Text3DBox["42", {0.4206822344527362, 1.7598026982488868`, -0.16407903131640045`}, {1, 0}], Text3DBox[ "43", {-4.283860991778121, -1.7673684114743848`, -0.0001561953882592837}, \ {1, 0}], Text3DBox["44", {-3.524240414526432, 3.987193882053644, -0.00014191171313204798`}, {1, 0}], Text3DBox["45", {-10.74625054163696, 0.12442435507148672`, 0.21006626221979102`}, {1, 0}], Text3DBox["46", {-8.080745649698217, -1.414536613959974, 1.5667816904897856`}, {1, 0}], Text3DBox[ "47", {-8.395991047989746, -1.2326661820398381`, -1.7771050020973869`}, { 1, 0}], Text3DBox["48", {-7.568251244861138, 6.161210597427631, 0.28500904383247594`}, {1, 0}], Text3DBox["49", {-12.334240615188097`, 4.749664115629626, 1.401861291621106}, {1, 0}], Text3DBox["50", {-11.983998461962367`, 2.6053773810823757`, -1.1659534376707403`}, {1, 0}], Text3DBox["51", {-13.85704651006935, 6.333034971073971, -2.3314029627724198`}, {1, 0}], TubeBox[{{12.113111542811811`, -4.6004151217432545`, 2.3513859532935792`}, {9.355950630064521, -5.469921833477757, 2.3919168361090453`}}, 0.06], TubeBox[{{ 13.221317791927152`, -5.174286631130686, -0.26385302587208725`}, { 12.113111542811811`, -4.6004151217432545`, 2.3513859532935792`}}, 0.06], TubeBox[{{7.980245047292903, -4.459232501330977, 0.12655229971807103`}, { 9.355950630064521, -5.469921833477757, 2.3919168361090453`}}, 0.06], TubeBox[{{ 11.943196328247794`, -3.4405987920980374`, -2.1973629836119994`}, { 13.221317791927152`, -5.174286631130686, -0.26385302587208725`}}, 0.06], {RGBColor[1., 0.75, 0.5], TubeBox[{{9.12461388245235, -3.4442376122650917`, -1.9041939333290459`}, { 7.980245047292903, -4.339232501330977, 0.12655229971807103`}}, 0.06], TubeBox[{{9.12461388245235, -3.684237612265092, -1.9041939333290459`}, { 7.980245047292903, -4.579232501330977, 0.12655229971807103`}}, 0.06]}, TubeBox[{{9.12461388245235, -3.564237612265092, -1.9041939333290459`}, { 11.943196328247794`, -3.4405987920980374`, -2.1973629836119994`}}, 0.06], TubeBox[{{9.26142312932195, -8.35948391611294, 2.3604725371222326`}, { 9.355950630064521, -5.469921833477757, 2.3919168361090453`}}, 0.06], TubeBox[{{8.08424890617377, -4.495505794556875, 4.798997541998423}, { 9.355950630064521, -5.469921833477757, 2.3919168361090453`}}, 0.06], TubeBox[{{5.218626371666001, -4.4543576696249465`, 0.17435493765918553`}, { 7.980245047292903, -4.459232501330977, 0.12655229971807103`}}, 0.06], TubeBox[{{7.508365229082102, -2.614799702589025, -4.0480005897900835`}, { 9.12461388245235, -3.564237612265092, -1.9041939333290459`}}, 0.06], {RGBColor[1., 0.75, 0.5], TubeBox[{{ 3.9371980002901754`, -2.1241804566631624`, -0.03164121925261054}, { 5.218626371666001, -4.334357669624946, 0.17435493765918553`}}, 0.06], TubeBox[{{ 3.9371980002901754`, -2.3641804566631626`, -0.03164121925261054}, { 5.218626371666001, -4.574357669624947, 0.17435493765918553`}}, 0.06]}, TubeBox[{{1.28453314071611, -2.215542676201038, 0.20637130840686035`}, { 3.9371980002901754`, -2.2441804566631625`, -0.03164121925261054}}, 0.06], TubeBox[{{-0.1279136664932785, -4.640876234569323, 0.6898770435346095}, { 1.28453314071611, -2.215542676201038, 0.20637130840686035`}}, 0.06], {RGBColor[1., 0.75, 0.5], TubeBox[{{0., 0.12, 0.}, {1.28453314071611, -2.095542676201038, 0.20637130840686035`}}, 0.06], TubeBox[{{0., -0.12, 0.}, {1.28453314071611, -2.335542676201038, 0.20637130840686035`}}, 0.06]}, TubeBox[{{-2.6635653925414697`, -1.8170592809396665`*^-16, \ -1.2761959987330888`*^-16}, {0., 0., 0.}}, 0.06], {RGBColor[1., 0.75, 0.5], TubeBox[{{-3.9449472183981267`, 2.3397158559385254`, 0.}, {-2.6635653925414697`, 0.11999999999999982`, -1.2761959987330888`*^-16}}, 0.06], TubeBox[{{-3.9449472183981267`, 2.099715855938525, 0.}, {-2.6635653925414697`, -0.12000000000000018`, \ -1.2761959987330888`*^-16}}, 0.06]}, TubeBox[{{-6.707018237491282, 2.219798070899992, -0.00012583840524360568`}, {-3.9449472183981267`, 2.2197158559385253`, 0.}}, 0.06], TubeBox[{{-8.130972486559717, -0.24632241696105034`, 0.00008618276100624822}, {-6.707018237491282, 2.219798070899992, -0.00012583840524360568`}}, 0.06], {RGBColor[1., 0.75, 0.5], TubeBox[{{-7.96856069025284, 4.525238240978162, -0.00010110473007696186`}, {-6.707018237491282, 2.339798070899992, -0.00012583840524360568`}}, 0.06], TubeBox[{{-7.96856069025284, 4.2852382409781615`, -0.00010110473007696186`}, {-6.707018237491282, 2.099798070899992, -0.00012583840524360568`}}, 0.06]}, TubeBox[{{-10.788497722000546`, 4.421681594573656, -0.3983304825461962}, {-7.96856069025284, 4.405238240978162, -0.00010110473007696186`}}, 0.06], TubeBox[{{-11.441648525382725`, 6.388290562511491, -2.12986341280829}, {-10.788497722000546`, 4.421681594573656, -0.3983304825461962}}, 0.06], TubeBox[{{13.179607345692578`, -5.614998978588123, 3.792632284572573}, { 12.113111542811811`, -4.6004151217432545`, 2.3513859532935792`}}, 0.06], TubeBox[{{12.205196272275444`, -2.5746800973056976`, 2.71277085636893}, { 12.113111542811811`, -4.6004151217432545`, 2.3513859532935792`}}, 0.06], TubeBox[{{12.865055895091999`, -7.144171884341117, -0.749349235031052}, { 13.221317791927152`, -5.174286631130686, -0.26385302587208725`}}, 0.06], TubeBox[{{ 15.249439453550046`, -4.815396275159719, -0.24992745442096753`}, { 13.221317791927152`, -5.174286631130686, -0.26385302587208725`}}, 0.06], TubeBox[{{12.576520337060586`, -1.5032944033353286`, -1.900608071809242}, { 11.943196328247794`, -3.4405987920980374`, -2.1973629836119994`}}, 0.06], TubeBox[{{12.459023693948815`, -4.039940724072308, -4.099456443849243}, { 11.943196328247794`, -3.4405987920980374`, -2.1973629836119994`}}, 0.06], TubeBox[{{7.298838434330237, -8.982791051718115, 2.4120127436436656`}, { 9.26142312932195, -8.35948391611294, 2.3604725371222326`}}, 0.06], TubeBox[{{10.259255304327523`, -9.097067880814755, 4.004257535450714}, { 9.26142312932195, -8.35948391611294, 2.3604725371222326`}}, 0.06], TubeBox[{{10.158465080720351`, -9.057102410664758, 0.6426070148404381}, { 9.26142312932195, -8.35948391611294, 2.3604725371222326`}}, 0.06], TubeBox[{{6.085870616565152, -4.994292990420201, 4.769948976516158}, { 8.08424890617377, -4.495505794556875, 4.798997541998423}}, 0.06], TubeBox[{{8.279216775361729, -2.4472765524924847`, 4.897404078707149}, { 8.08424890617377, -4.495505794556875, 4.798997541998423}}, 0.06], TubeBox[{{8.981523610574435, -5.35081046457997, 6.443968949066479}, { 8.08424890617377, -4.495505794556875, 4.798997541998423}}, 0.06], TubeBox[{{4.198181902855893, -6.211727038964405, 0.3651123356629853}, { 5.218626371666001, -4.4543576696249465`, 0.17435493765918553`}}, 0.06], TubeBox[{{8.717549033619132, -1.9427573384469419`, -5.574227673748544}, { 7.508365229082102, -2.614799702589025, -4.0480005897900835`}}, 0.06], TubeBox[{{6.321901230422322, -1.068817176563745, -3.3809055129759207`}, { 7.508365229082102, -2.614799702589025, -4.0480005897900835`}}, 0.06], TubeBox[{{6.316471696458098, -4.1456887342511, -4.73965157068031}, { 7.508365229082102, -2.614799702589025, -4.0480005897900835`}}, 0.06], TubeBox[{{4.949416843178771, -0.5062496993845232, -0.3781458498011426}, { 3.9371980002901754`, -2.2441804566631625`, -0.03164121925261054}}, 0.06], TubeBox[{{-0.5064783381203037, -5.583738781162587, -1.1017907326262135`}, \ {-0.1279136664932785, -4.640876234569323, 0.6898770435346095}}, 0.06], TubeBox[{{-1.909487867230868, -4.221194573067053, 1.6346671779099267`}, {-0.1279136664932785, -4.640876234569323, 0.6898770435346095}}, 0.06], TubeBox[{{1.0106466248182127`, -5.871610184626167, 1.886378923688694}, {-0.1279136664932785, -4.640876234569323, 0.6898770435346095}}, 0.06], TubeBox[{{1.0206822344527362`, 1.7598026982488868`, -0.16407903131640045`}, {0., 0., 0.}}, 0.06], TubeBox[{{-3.683860991778121, -1.7673684114743848`, \ -0.0001561953882592837}, {-2.6635653925414697`, -1.8170592809396665`*^-16, \ -1.2761959987330888`*^-16}}, 0.06], TubeBox[{{-2.924240414526432, 3.987193882053644, -0.00014191171313204798`}, {-3.9449472183981267`, 2.2197158559385253`, 0.}}, 0.06], TubeBox[{{-10.14625054163696, 0.12442435507148672`, 0.21006626221979102`}, {-8.130972486559717, -0.24632241696105034`, 0.00008618276100624822}}, 0.06], TubeBox[{{-7.480745649698218, -1.414536613959974, 1.5667816904897856`}, {-8.130972486559717, -0.24632241696105034`, 0.00008618276100624822}}, 0.06], TubeBox[{{-7.795991047989746, -1.2326661820398381`, -1.7771050020973869`}, \ {-8.130972486559717, -0.24632241696105034`, 0.00008618276100624822}}, 0.06], TubeBox[{{-6.968251244861138, 6.161210597427631, 0.28500904383247594`}, {-7.96856069025284, 4.405238240978162, -0.00010110473007696186`}}, 0.06], TubeBox[{{-11.734240615188098`, 4.749664115629626, 1.401861291621106}, {-10.788497722000546`, 4.421681594573656, -0.3983304825461962}}, 0.06], TubeBox[{{-11.383998461962367`, 2.6053773810823757`, -1.1659534376707403`}, {-10.788497722000546`, 4.421681594573656, -0.3983304825461962}}, 0.06], TubeBox[{{-13.257046510069351`, 6.333034971073971, -2.3314029627724198`}, {-11.441648525382725`, 6.388290562511491, -2.12986341280829}}, 0.06]}, AspectRatio->Automatic, Axes->Automatic, AxesLabel->{ FormBox["xl", TraditionalForm], FormBox["yl", TraditionalForm], FormBox["zl", TraditionalForm]}, Boxed->True, SphericalRegion->True]], "Output", CellChangeTimes->{ 3.5727666201363707`*^9},ImageCache->GraphicsData["CompressedBitmap", "\<\ eJztfXd8VUX693eF0O1dsetafrq4u69rW3VdV921rquLimVhKYIFlaKIq4KL IAJKFZAiEFAUBSlSpAZICCRACumN9F5JQhKSnHfmzDznPvdkzuHyz/t5//jd j5h7z71nZp7v88zT5pk5jw8YNXTwGwNGDRs44MqHRwx4a+iwgSOvfOjNEeJS p18Bvxoq/j17JeR7C6D/WeI/a5j8n7zyv+//v3rfzX4fhqamJkRERKBv3772 P/n+Rfa7MPt996DfPfzww9i4cSOKi4tx3333YeDAgaivr8cL7L7T7PddnPsm T57s3Cd+q77ujLq6OvTv399udsWKFbwFfbO4an87ZswY5ObmypvD9M2yX9mu 7r+furnV1TMfsfhVV024vHzhhRfi22+/tfuQX+sWmv1b6KG/liSPGzcOjY2N qK2ttX8mRvi8aqSRNVJaWhoEgPjVGfrrNWvWID093f6UmppKtDynGjkg/3SS s+k0Bap4XWMARzasuXeWoWH5T9OoG47REKqJqn5BvaBT0OXL7P/38ELD/laS r0d+pn2hK3bv3o2YmBinGUJI3vLsKQ/iEn+WhOlbMjMznVsUwt3sgWzYsMG5 LptYtWoVjbfvKY/lIi1BxNXhw4c70nmx7jQ5OdnplHNeckGM/9Q7Pd8DgMOH D0sqLtXTlPerZ0sH9P95yp2f44/+5fqWiooKzJ49W7errsmfS6Tlp2eYUNui 3Ml55+5BYiZfEi/Rw1W6NakuJk2apBmgrsmfSBTkp6dVD7laBk36g+b61T5N SrTGjx9vo6WbzPaH4DR2p5SHyspKp4chQ4Y4SBIsshlSXbqHDP8ebtJ3ksZR n9SouRTK2yQc/1CtpvqroVs8W+1CouXIj0bkKdVwsr9A9tFNcTXU1SATf1et JfoT/ztDa930NSJYfnpStRbnYXwkBaLF21hrpKK6MQaSPdOtHdJzS8InpYfP d/kzmltyEP9HN8O1HzVNPJ83b55STvYku5fPRk8AOhuG93t9jc/5Lvr/blbr 8Z1lmNx3qwFE+w+AiFi7di22bdtmf/qdYQBddTNu5aMHbY/P1jlh3kOJ9JfZ Pxm67cmUgfxZwAAYexjuKB4t7fSyf/0465+rDy3afzZoDuqfy0IvpxPN4zdd A/JSt38zsEK+NCseNPTfyyAfPQ1N36M6fksrDv4VjeivWmi97L2G+GGDdqMe 5a004AAK95waCn/RYzSZ2U4udSs/PWRQZd2YIXDTot01PNJBJMKCRILeP+Cv 8J4wdN9V63zZnYexIGYpnmOUAYh7/WfmU/oWaXmlBeaiz6eD4itGuvjh6aI/ Y9C5Z7CRkzuh2/3JY9JoRdDX0NqZ+hrze6HECj/6MI4s83MGXXuGRpzuky/x V7f6vT+SxBf5lRy6/PSsQdmcrpvhbC0sLCRELnEQVjYb3/rrsy66C1KX8l9f Q7dns+GR+bzUIC/Xq15XGBjC5HWAoYdzmNjIXuSnSzSiLlVhd6lCESzzh3WQ QV9RT9zTCuDWyUCV8qbwnvOja/17fcXQ67kGBC8OpdcxBhDE6yo9BLeK0sL8 qkFFnqW1mlu3S65cZO7FpBz9x6Uc8o4hG/foCAPxeZhBdVEYKSMl0vyMWRc4 qAUCU2ZK5d9rfId4qT/3yDuQ2oPuGmoY5nkGjvY+Zbwu8teEIw0dn6+vce8z IMDX+nZ3gb+qHG1QldQdNxl/cs+I8/wxHePTLvdNdbtTPVrTeYb3Ddr3PC3c pnjkPtXqZCaaBl1of8vkbKxBSxGZ7vhE46KdrUkew9d3cYeaGnnP0NlFTCWS JdWOzAR/uP/r0xp3E3Vr4/1bm2hQZxcbhKKrIw0qPMBHTEcZopdPDe2SHuJG VAyji1maVRSA/3iMX75E31MM/VzIGOm2o2J4Yb79KWaZE5PEUBmsSGCmGhTx JQbwOvv2+A6j0CC6PB9BkvKZQXNcavhdJ9+OR3noCy3KXRkl5Az7dcydN/+O 3/aXSeJpa2urc3N3g5IhhSzHS1AHUj9aTof79/Wh/LqzlzkkFyouLhFbB7yG djGiHoaRXOzRidQ24vMdaiivsyljMOvjXQM42aDS0zKQ93OcDRMNimtNNd26 2V2YEquaV7erzoZ5yD3XhlJIZGsfG0ZlGmnA2hbByizXKtprpMGeKnlN3AL/ QQ11iD9LwwytjdfjcXmb9ueuzihLYBUHj5Ir2SvYBCMvVqV8MNA1IpehnxpC 74WFlbAqyk7aO/dsde8DPOaxVsVT9NeuuUh/TYwjKxYbkw2rsjBoUDwbe5km jFQX9S4Zpgf3sj+zJjrzz60y9Mu+3Em/zQ5f3EFADsUI6151NGiM3Bpcpgcg geMCre2kyqzpNSZzYEi6ZbJhgpqce5qgG7cdREZkJBpKihxEk+NK0H6syHO0 lJHmbNaa7DmGpMFOmKJM94gdhCntFptwAtYx8YXQIURK5BbB9JZq+xNlXriF u4p1RDNTK/a+BklkmJtm5mTX3OB/HV2RKH5bdcIeJZF5eKcQy+aKoFFyq0RZ cu5I/1a1/LS/SM42ajfx6qnv25IlLpbVOfYpepGQvsbSXoZRXKUhdy0O6YH8 2pFt8zKcYXATgm/pFFAhYfZ43JM80DCNvrXVQuxRSUGBfWXDs5mw2ppp9HJq k1m7UjfMLYhkq/TmNQnXu2atj1K5XLdGssvV1KsOMX4TijsEpiysqddO7N6P 7xyOyr1bFTc7G37cw0HSQkG5hfaqCkQMyhCC1+SkQrndv9YgZGqFQunrzoGO QoLoUg8tJNsmv264uTknkb7sJxT/uEw00RwyRrRqLrutmLseDQ31aGtrPU9f lmhUVVkoG71ZwugHBPd6+5yyhLjjZZ/FsBkzZtif3nCpDy77YY5QiZti0gvQ drgejdnZiv+URM3KykLqzgiyN2GaBe4GG+ob0LpmP9rbW3WA0QlV1eK7EqU9 CRXu11ynr3GX/DenjIp7idaURfCUaFq4ka+sAq1eY2LRrlLpFHulpWVj4+xl qCwrciZhUPKqrLQcDct24IQgn8dxKz8Vqry2XUJAWph7LXyNimYvRUhSD8iX FO5TR+VchorB6XknRNHv4mK3fB3Js3A0Xr1vEc2HaRlLiMuD1XS8o341iEtm WhasPUdsoi/W9xeLGLQ9uhSxaeI35Y32d2GOmtDsY6/OigvyZ52RmpSM/eui MeLuIaiK2k4RhySXBELOCT351PqrMjCuJXEOnGGSjXWB5IV/oEEqyaFvm5rU XSdS2tCSlUnqL3pTqYE4NbaMmDhYicqHI8ok2Ts3bUZU+A/IT83CHmmzqkoV w84OGp/8S1JHRjBTREeJEQdxMDwReyfU4fA2C0cKLWQLbydiXwJqaiqdrqRC 4QuLer5qEN3rGZRaldJGgAVMVyc+rYxyrJRVdm4NknLFVzGlOCYmF2GcMLZO mmP9S8uxXQk/bBHk16oMt92J+ranPa65M+di5HVPIPyhpxH54kM43tCEbKGZ KjPSsEeAmCamfKvj4/W0RyA/ZwiUItZsxdv/HoK94yrt63E5FnIaLOSKf61W wJNitUi4WZF0l/2nu2fWjW6JiopyUgcdBatbEE4JWc0oShe290gO8rJy0La3 ieCUI06ZtUp4p81oa28/39ViYI6fjyIx1+7u3R/v//UtvH7/AEx/9hVErNuE g7HJ+HzcfHx26xNY+/hjSPr6SwFCJhIiYhA9fz/2vqtAOJhhIUP4eK+8O84G Qb6uNxi5/1G03OExqbTjy9cVyThMDJYbpsHD7CmUVmRh33KhRSobtAoICEPl vPWwmCEKxlS+zsKOuZW47TejMPJfn2DKfyIw482tWLl4J+677B/od8sQzHrm LWx9800kfjgAh5KacFRMjKImi6gNOI43GqxYwLTqDPht/lplkRaUxNgS5BWV oO3QMVQK32HFkmX4vHcfZAv5PPZdhG1dlXk5R82SrKNYNz0C+8ObkNegCIyP S8Ezr00XwjYDEbsihfmpw+B7h+KZh/+DaW9MxM+TPkHsl++SJuCTjmtu6aJf r79z56ElZ7sZpEsF4Tra8ST2SwecAIidtKSvell4k01lyBaqaO2qWAy84iks fLgfIv71DAoid1wY0IpdEPtDM1LFZMwTXGlud2mRbo49zcltRHGewGDQTLw7 ZjqWzp6OwrxMd98qMKHXrzUJUkBJ9bH10q7exN+qMTMlfr/y03s9ncsSt/ol jQ4Fc2cuxWsPjMTSoWMx4/lXUByxycnGy9/ITNemqfvt+0ubLbTpOtDTuK6V Xuq3K/agNm43WpqbiH18+ZpqnXgGp4s3pbd4sFnG5cLWLvQjNnC5qLAEVkEL Wcmd2/ah37OfYOqoFfjgxXA80mcAjqZln83Ijdp0CHGb2pAuNEDO8Ta0tnkv JFIyO+qnDGSW1wi/oln6YsQ/7qMT9TxPG7DCeh7f5C/apzEESQX6Mj1wOSEu X0h+A5feDZsPYt3mncjIShf+tZCDaVuxYM5SlKZl92J4SP28W8TYKXsEmoL9 LZbV3QAFKc/kt1NgHa9FknB3rVoLNRkZDpc5Hv+jr/E8hgliFcNrXaGQkbPG Y7WdkJGf5oeGTOLuSmHya538S7Rwp9tamDnrjJysE5j7+Y8CnXC01jd2Y2PZ /eMBbJzTiAwRr+bWNct50M1RQOTeFhUWwdpdFDCyKceEHIj3xSWOl8Ejlxsd QxTs88j3AZnRyFzHRmNYRyBe8TXXeaEhEz9eOEOtzYTMFyuEImyoZ5w6wzZX iXG1+NstbyJ6937kZ2Vj5fwFWHBlH5SK0E4KUJZwxnd8UYnUWKVMhQDRAm9W ViGsmuogsO3oX8S7VpHtv1PvPK65XkuxJNG9QsRSd0rL6rnlOam+CdbUfNFb ujHtsc2OXMoW8mtZTqqzNqxy+qz78TDuufRBfNDnWax66nnsH/QYor4qw9E6 4Qg2W463EL0lRcQ1JQxGRXNGhaRZ6JCmptM8aVbF0OQpm7L0Shy0Eu3oNst5 I25f60hFGax6Lu2dBNXHhH/nHXuQLpVSvfXGv2D2gHew9u33cHDCcFRkpdgR TmBNh1mJLsgpE03UWCjJybZFQxNIZaU8kaMX2y/TrDbVi7H1VqInLV7YmqaK IHri41vRfqKJ0dMziB75zx7M0nDkfTMS774yGSsmTkHEvPFoE9fP00Oge/jf tjUF9L6LnrQ795dh1fvT0Vhe7OSWiUCeV9YEetXAG3xXYvtP+tpPAwXzmsqD iI0Wk6ytuYER2yOIWEnovlnCRzr8I1JiDiHqmxVY+eMalJeXXqC1lUsrwKqo cd4TkbKZowVF9l8i8haX1iJ2ScnUxF7oQayeips1EQ2C0JoV1UEyvmKz5USX QYGvvLh7vnAHYr5CXGwsrO+mS++cossgbjUW0ntSi3LwlF6/Wd8isWYalGRM l7646zFcCaEtDKHFQhOO7f1bLPndrSgT2pCcYZmKqG0KTpdR1XdG1D5YEXOR nBAPa8XndqBBORtOC8sqBye9uayRk6DdC16Pb8jarDdMdtopdFCECH17P4XP 73sRPz/fD7FDH7Unh/y2sLBRhA48KSFuS5V0/DIH6SnJsBZMtOm4yEPC5Hha 5uXZ7015/Fv1NQmxzH7LT9r6UUUTNwUsE/Oz/XUgXyG5Iv/JhFpmUjLSow4j 55t9WLnwJ/S7/U3MfGkMFvV/C0njX0NtqbLYhw63ob21xfFwjh5JgrVmJrIz hCezcGqAQ4r0zhqTUliltc7lHj5kNTc347LLLrNp0GRREaVUkKNHj8auXbuc Kc6XmNaoDlptNVUuiMpNFZ7ovgQc/faAPZqUWdXIWGchO81CVonwaEWcmV7X hj0x8Xji0XH49O0pePm+dzH6b6+itbnJbnT/IdvQk0SmSXpXzUClXB/98EW0 nmgGbQ6Jj8kR3p5SQabM9M2a45JEGQdIayYhkOP/4osvbCm0obGl7jxOfGeb +CVLltg3HDp0aLHBsChP+0x7Z0a+mPwZcYnI3peItPD9yP6+Gulf1iIjQpCd ZaFYWO4CEcUW6wxZa7tlG97OWr9LEOMT0zHsvRlYteoXPNl/BpYIj0/ml9fF WwRHZmoarKWforamCg2jnhHKqiKwOP3ILlgnKjzhuFFrZAmHnHQcDukAkmTo FYfTDRPybI5RmNO61GMaJyzW35kMlvd6c1csmb8Gh5evQG61cNSOK6AyhVci IiCWXQvMcop+qiqbMXbiKjx980s4fryVtFxGmgBq2TQBUC3qBj2BprJUByg7 Bp2QZX8iKrkH/GsmN/KaFINp06bZ8aQUCwmUe/eEYy08dyIEYRe8mY7ht1iT 5dJSnsjZ049igg7G0/vmTlq1JqW2YfXKPSLCWIT2pmYRbwvc5n2CpuMNOLFg DtqqMvVaoKxTEI5jXl0QbtxLvMaFGwmXnGeEW1cDbr1OhlbXoFCeEPvqq6+Y xBkWbW2LE8YMHL0oNIrMsLB6RRQeuOEJHPjrH9Ha0oj6RSKoLUtylroT44SS qa/wJPpKD6KlQMnKM0k0WUoKvRX0VlCNpaN1+Xo7cU6SKzuUSC5ykevF4TOd ScOWF/SXbAZ1QfiSZZghAsTX+k/Avkkfo2z2TIkA5X5/mSncmtZKTwCoyMID gDO9aDcu6hhRoLkme5S+noR03qmLvHunkpIERzi62BHXQxc/ifF3fIzF+wqR 8MM8VGfEEhBSRRe8l2GbXFpe5fUbl/gAIYZMStMdFB05ckQJCFuicdrnFTeU ZtixY0cwDK748TwDnepTT7cc2DRt3bwVD/cZjskvjMWUF75ASnEjWvMznOS/ nUA4ErwLhNNNrrvJzJJdOUv/xhQ0L1682AbkymDSO24BCyZ9jSPfNrOVKPQQ CiwTa6ZHY8vcRsQdbcDdf52AsW9MwUeD5uKh2yagrFJYuaoKmt4Jh4UdqKtm 0t3ZJkLqfN3TuYw+L7tJ2wB4pEQySKUT8tMV3jR2M9AYWCgwLfDyNaIyEaLK TxcZfqesyenYsky5ZYfzhTt2vN3On8jv6+sbEXM4GYliNIlxefjbHyfjWGsb GirKncoN2cdSEehsnTkHCds32p+763F7MV7P17MYfl7mlApJqdrBgBU3mN0N WH2qR8opJ3GnBf/CwmJsHjwCjfEHUV9YdJEzZ0Rb2Vm52PnjIa1P1bVW1g4l m1OSivHQoEihBuzVf3u2MaMfhkXzF+HVyx/Fgj89he19H0V5apJjcfxkiOfq JS7yU08Ddm6TSu4wN6k+2FEwIJsj7CZ5qYwumsV2LjYrB2nVIlhqkWvYQh8c yUBLdrYsN6HYTv5MJr0jN8UhcnUbYuIt5DfzIiSJXyn6Tz0Cq/mEg18HcyYb 6mYHStlpGYhatwl39u6HkX96A18+PxzL+7+Kwu8WdgpBsEhpkoslr3Vz3Wcy 2VedHFTuk5CFt1dChF8iM0YTHOlyW6MAHF1R36CWXFtEMGCJv1Z8Go7vP4Ca 0jLtGHW10ZBFKHFRSdjxdROiD4hg4ri9GOJIDRd7qmVKSSrHZxFCezfWOWUY p6tRybcXimGW42hWNtJi4kTkcsRuJHNlBVJn1yJ9rRiYCNzyyqUjXo87rnsH bzz7Mea8tQgD7pmER/q8hKg9MUhISHDEkiNvkrPOPiZSIP9rAy2XB4PO/YJe jLcSdNnzBKbxmBaw2aAs8LlILxXhRaNMVYnv8nPQnpaDZsF3WpOS8dwPwik6 vG07CqQ/rA1lQkwSdi6rxYFdFoqO27lkJyFTXtqKxUfrEbliFv57+a3YPXsO jtOekF5O2C+j5OwjKXaUnLUkUoSJGUiZWonU7y0cTRL/igVnj+mqkGCnVemk 7nhq0DRMGP85Jo8fg8FvjrEx7N9vEL6eH46ff1orBKdUW7LutpqR2MpPHm6J jnY6+iXSjF3hDf7pDHzSWBMM/LOHfYZrKpxui31WvRb76hZYqUfxwc1/w4c3 P4VVjz2NqJcewNrJBdj3i5BC8bv6E9qBY/UP5whVuwYLV2zBvAdfwPaXnkXq 17NUVmVvKlKXJSNpQhnSlzcg57CF7KMWCussey1Zci9HBJo6Cu8c7EoIfsmX BEy+CLDt23ejVCi3RkGxzLnLmqCxT3+EyphdtH0zW6hDCZILY1pSkfBSfYT0 eqTrpyEmOLnDd6YLYhnsvBg8VBtT8hyqhNxW52RrbPw8B+/qwG52VmJ3Rile f/FDTPr7CGx4cxQOjRuGlAw7bX6u4dbOWuvcfvHLePXPI7Bo0BhE/Gc0EiYN QqGYaKUtCvaGVhvuHlpl8iboPZdS+SKdTAnXzZmyFCjHuS87V8zbttaTuSJS PQhG/EYPnsBnCsYU2pxlYMDLJ3UzOmHpok2o2q3Sfze6GKGM5N23j8WHr3yK VZ9MRuSXH6K8OM9tCAPAhuHLWSvxYt8JmPXeFGycPgm5sTvU4E7T/UrI5Mud ywmokU42YwtrRMNCTLobTKekkCtwslqkwOUnOtxDSjEto/sAeLYBwJcMdDJf Q7mz6SsK7dTXDQZ1jkDyZ+eOKAybMBvTps+UGUJTVRBBKFudPvcnrN+4A9u2 29WsoBOTTKrRY+YQKFVSZ7Wo+s8wA5hua0jEcY18s77GnV4XmNxxO8cAZj+X Yu2AFInkzq0iKDmqDoTxKLWkcCI/Nw8x22Zh7Z51OrYzhx2x28qFE1yrJ3MA AtP8C4wwxPJC0eL+FLmIX+lc93PXuruwkbATvNIXIxfOB95zWRNSXcjm+5mR 8tvw1NrajsLvM2zBOAnQebkFiAgfjdS0fb5AR74vl8KPaRXnD7QTSLiSAhSA SCWQKTy67Nj9HYB0B/eyLaqU4H6wC0TuB9MMpGSVbOL5EPnuFGosrkVrTmpA VBkBImCPS0HMsrdRXXxE9Rb0rb1oHt/C2vPXcVR7w2Vr6tRZKMorReOxOppy FGfKT6SSpL8k18MlmYDbjnNX6QIGCuH6T8csBHhEQtzU1Ib2TQftT7SgFnsw BbHzhqGxNEln3Gj9vJlNGv9YSBHb3f6NV/J/U6wY87HjzmzgwSiVzMndLLRE SWm9y73Jv9AFouxqMNP1Cd9XoFUMiUg9GJeO5WNfQ2tJvHNSXGp8Odr1arNP LMxTDV6zI1BM2Y5DRRbaC7M6qFb5O6qZkveSr6CG4wQe3Fm72IfK5CShfPXi Arkg2/fEYfmo4WgtiNXNdsX3/85HTMQ6o4bjpEn/kaRZ/o4Y3M0hzUK1jCXb Wh3SpGtK46KyTu4GuUjjVvwSA2mDnK7aEPf5YVvdEWnLf9yLtQuWCzkqMSdF Rzikna0nk0tsPariyZht3NuGltpGHCsrdejjhvUG+h3zUnzou9SHvu0bhd7V yoicnxGTvsfof01Ge2WRFm5zLiEjXW6hbNGs6+m7LkKU0l+T78FPepv4wTLU 5md0kFzZHpHP/Qof8mkvNQ/UBzrsbUfjT6n2PL1ZD0K+/2z19xj0/mrhAjWd Z+JwYL6Rpj8SVwSrWRmxXj6gkbybltBMuY5LGADay3fKlSQAtFjtAoBb/oA+ DSRvCICty2rQmJ0WsHuuDXjcvZQVzd9s+gFj5nyLpAWzHePioYmIwm1fi3Cm tUIrZ18wexgAsE3H5QYe0hYkvgHx8mAUuOm+nAFJkvRvfU0mkqztSoFdYRyD F7O6CC8nD/+45iVMf2wYtg4bioQx/eTWGi4DXqqa5rsEN39mo5Q25zQ4D4RO 1/zgI6E5RSPnquIaLdR8n6ODp7Ee5AoDTgPYQFNXl9uK1xunszuMTt5XVVmN xVO/x2P3votpQ/+LTRM+xsGZI9FYIYxHXAKs1AzURe5DdWkZ2xTgn1ImebGX cHJaGF/8gaeVEJfjalJKvQ1wUB6Pr/n1DkaUOwhXupqQgY1zllRSA6zYqCAJ 7Yjoxc412tmyc2E1EhPlnp8mzF2wFu+Ono4lMz4Xjp06zrWpWQTDTRbKmlQd hlXXJlBOxbGYA4iKjDL6TwqVHjgYkwVLS4MP+vb0D8Rm9rg5qe55akCL0src 0bjagFZ/LfVZWbkYfdtzmHllH2Tu22ejYTq7iG+M2P7DfqyZ3YisGgsVx0k+ Otu7SNmL1Vd1x8uDp9mUfv/990iOF+gUiHA9swDN+6ORF7XPzkHSBD+wtRj7 ozcZEf2jS23JT7SflDsnLjg6Fh0Ew/EPB++OPkSAF9pdmjvzK7ts9psn+mFD v2eQKObYtq+Xo76sVNmWQPElbUj4eVq8fS2/iVWkq8oydyJGvgLJFLW9OLtM uGdC/pZ8Ho6avIwOyRhJRvTIWmxYvcRB6k9Md0kSOenczfFB6lovpAx7GLkr 4i5blSjce80r+PjpdzHwzlV4+bYteO/JSHz12qcojo2wlxODVtYSYlKw95t2 pJdra9VN2zpTso8Ao97PMIBD4G79ZStao5r1OYrB7juBw50gH3CuY01Q9E/H IHIw2HkxZwWhNvfLHzB6yGdYPnEqds4bj/0JOShpFApCKhdZbpkpgqi4NDTs 249jQoWL6cU3fuSImfvjF1E4tEVtxTpB56l3dlPuCuxpt4SHL0WWubBQWKU6 ZQE4XKSErjbAZXt2tmz8Khg47jyRr8Uj/idd5kP/ZTtZAhKXnpaDgsQ67D+U hISkFBQ7J2b0sPfC5dYJQBr1QoFQT1aqUAmxKTgeF486hSPthrTr/bOyUC60 D63l2LXCWUfxy6wG0byFtPo2NLVZJ3MjPLJp3mkLz5bIy0uJF8F6s8pm/YVh JlWo5bgVnYMqk4XHdgHT1OaJ6XCFO3MUAvCQ5gnD4DucuyBXwcsO0vLOOTYL 8uqVnTwhcLMEK6xDwhuJT0d9zEFiARbNX4ixve/CijvvQuxXcxC5Lg7rFjTa WwvbpBT5guTeieWFNW259vNdKAj+9l+lYuIV25/ofFuezbhcA873bkAn52xJ PctPBozVzzcaUH/cSIZ8dQliKL1P3a1209PhBdx8qft62otnR8U/ubZyQs6L xnb8OGEGpj48BJsHD0HsRx8ivb4VzZYVlJz2gqyL06F7a3do7qWMMBqXq0QU nZnL4zFaTOcejscMc1edOkP5laOHXMqIe5I3GRjwaDBJrrUz8eNjjXVOAz1C sIe0jiOpfugPozBl0HhsHD8eh6aPRGlhbij+dSglMYSEXXVZobQZnZDMw7wr TxFc99qy/KshNZ1KdLMB0n/oa3a4s9tC3Ym2DowLDMOUxOiFNWt3YdSIz7Hk iy8QH6k2X/hkak2IuXMotFyXGFcgVG2D/emvTNVSzEeRGfcwPRA7xyh6pkO6 bjHg9HeGU/z6Vhy3zEuvprwGFejmi7m3dcNSLN64wlNU3OCY8innsLHEbCi3 Mw5/Y/wm1UjgcKfSAxxXgGPGhZKCUoe4LZG943VFvXR2nMXuk+HC9VLU3kh8 8clIDH/zdYMgePpE52tysoWvIPcLTr+iD9K2bXjEJf28toq7RR5onO+NQR+G ASWYHmMYbA0vsmt5fC1Od+eym6zly5YjfOrrOBy/3Zd0mkZB1b9yxeSPlz6A 929+Gisf64uofz2G0tQkAoNHZpfq4fFKEQFKYFPoBcEQcDfxVgYuidojDIJV cxPtaozAAIMCTpNUy5vzcguxd/FbqCiIc87Q9lC6agKc0cHgUmnOURHYpUXF Ydeyn3H/1YPx8RMjsHzQCCS8/zpK4qIeNSgSSv6adpTRyZS9vTH5rQsTGZDR lEyMKbAL7eTozvXnKWVligpLsX/JW6grSggKKb2MkAo/zrG7qK9vEG5zGZJj DtugJC45gPQ15fb7lB0WUlKEx1EpQlfpddQ24K473sPYQZPw3D2v4Ls3RqIo 88ijBg7T0o/0rcjP4kc5BZ857oDEPdnfGUAiM5iVWoqmelUHZ1rJY9RSKjFO hGCxC4ajqfRIB8/dZXaMB7v0tLVGRuwhHImKEcYvEbFzopD83THEz2lA+h4R YWRayK9Rm52cOtL2gCtBedGkpAwsCt+A71ZuxpAnXkdxZLRcReEwkhaiFA43 8ZcEQ8a9oN8bILvDoFqsoMVTldjfs2kbjhVaaLcs2qniIT/Uc+yhVOyfOQQn ShNgWoV0V0JQmazJxeqq71++4Cck/bIXR2vUqT25IvpobGObgbwOQVP7gf58 8wC0lZRyOGntNSBtRji7u9CXn24zwHm7n6Y2G7G01Cxsff9j1NdUIpTkN2Ub ow8kY8+aFWgtiPEz8N1OBivbKdRh3N315fWr9+GD1ybYZwMw8HjYROst3Hly gcezlX8wgGefu6nGEHguBh8vhYMNjYETt3jhgzseIdGi3UJSkOcvXovlH4zE vgVDg6Dq4Yi9KZsdMD9UrrxoznLMfu0TWLU1EpJHXPTIbgkS7jK5IOHewO2s CekNSL/i966xBISpA6/cCTGTQxg4o+dkLpRsIXxJOAY9PhpT/zkcGV/0RV1Z acjufGCXUSC6CuzTtvDUJc8jbtxYddCCYIvbr5CjpT0L0ozKBwFJQC71xu9O NqUp40THxHsrFXX0aHFW8LY/jjdL7XXp0JAqwa431ZS4FZxpdxOVvXIXjkvw hvUbcPulA/GfR0dg9evv4OD4N5ASPg9lhcXwW9IyFQ16R11h2C+UScberTgk z0KorgxiCfdszte/pzPmqCjYwBru0dylr/Eg6NwQWJMYn4bUhZ8z1gQnD71n g5LvXlgxbyWK1q5EY/QBW44IZA9tadpyqNo+E4MHD8HqH9fglzU7sX1RPaJ3 WRj3wQK80X8Swv87Bbvmjkdadg7aZflfchLaj6SgVZePmzIpofKIm2GbP1UV kj+mII3YI30oOiiA/Ckf9txtYM9ZjjI2qQrSkXm5xbDyVPayZ0B9d9hYyNbE u6G+oRHVx1qQVNmIqIgojPv3ELw5eDC2b98h+XCW1rjyRRUt8jVI4C9f4TPW IiK8zT5VIk+X28s7JHsThPN0KD4RZRVlpM1kUiyfEu7CKbRyi1AvpKG8sEit 8Luiih4M7jh5/ElFqRtuyl9xN5ZcVpeC5y7rHw0wu8PbAE5mwO38dWrwScz8 XndlX8fqEint2UXNKJdJ89o2WCk5aBSCIFs2bSuSr4kTJ2H2zLlYOWOz47vm 6IPh1B1e06YLSuXv5JTITEd7QhJNCffxEc6n0xwxCmOc2FEiWinLR11pKXGC h6DECe66XRzMCe4J3+PFCU8HgOPffpiVq7A7gg818dI0Tu4/DEerhfsqN5tU 1cJKz8FxEf/znSGmJubPn2+zQr5+mNKIxHwLRS1cdENZteuiEvhiWhxrUcn7 1LlLkL10wcUG2k22jzXJ67M/eHseKpMPGm0HlTuGyKN7DTxy7xfxLKG1T0T8 yc2mMEaIZ+Ryhu2f5ApNUSdnSFE12hPT5a5AO8J75dI+WHRdH7zfr5/QV9ux cf3PGP/QKuxb3UiHjPDNgQRVN19tSqOOSy7BsVo1uc931OZpvvd2UdS1dnRB pUEgzLlXrjGn9RDuldNqMk/KnWFA2gry6DqhYEG97TI4cLNBSgGmRQvz4kLH xXgq9a6qbsaKiGRkHy3FiulfYuKdL2DD8y8gcuAQRP0sBPiYs3nEqElNxWJX u8Qh+Nt/MBAJASpe5n68C0Tuh97PmqCsHmm7jJ8a7CKggPr2D/ZMhV38wFa3 cpF93n/jG/jshbHYPPZ9xH32BqpKi5Sz5Un0NZ69BF972qB5z9HiwU8eEt7g Jd74/Nkgp6R29i2vx7ESdSicezumqU6bNrRxYeNYylfwPtrO+HLearz35jR8 K4KjAxuXn3cyneLefRj4aTA69BRDHhXT0oM8R5MygKcZ8OHemLtqQYbGFArl J4jIt6aAaQ3/mONMjSTtWTPJGJvHn65Yinc++wbNgpnnG9AgpK515m7A33jW NWz39vegp+CZKf+LgXKy7CmHG9BYqgou3YEqUcRz/ZxyHg7LFyuu7ZDo2nJg C6aHb0NTff3XumteIn3OySniLt+DBoou0DKbmS50QW2+7+qMmwoTpb5GRU3M rQc3Y/63a6TZXaJ/yi0zEcUt80XBRHHL/JCBKF7tu2njPox79y1OTCgrUYHF 18DKAWkrScSOw9uwdO06LDXoj1Ok4GHWBB0X47VCsmzZKjQWZJ1k7ehcNtCd 0RuwfN1m/bDK4JCBdr5xg6wHSk40N8juqEPyvZeWH6+Nu/LbvNxyWKXlztqH x2/JPZCCHxm3Fd/tWINwl5LnK6jcArpGzTW8O7kaqNn1zBoHAspCEVBWdzAA XgbyYob7uq2LsTFyE5YbRLyXnhPu3cwS0Iu9KaHVOO6EhlJswiuUraSaDvra q3KiNyNn85aF2LLvZ4ccLu9EDi2gyPYkWQZyuIJ9XONK5HgkTHtoyKTDu/6T r1GYmdUhHjGkF69gg9+zeT52HNyqHw0b7E/xR/uSDr3Ie9CPetg5OaHlZ2Xb was3FNQ97EXMl3v/BQvuegzbn74fe39YaaoQuFqryhxBb/T2BYjY/7MsRaex c3fn9JOPnev/v2ok/coTuGxZFlsv8Kiz7or4uCN4857X8dWzwxHz/mv4ZWw/ m5VO0tQIR5h9hOWDF96L1VPG4MCG5Uhe+iW+MUwWIpJr0wuDieTa9MEQlDs9 8oET6xB6tpvQIEn78MMPMeihRXj57x9iy3UDsWvWx0iKFkqoohbtKVnOEQ0X mkHzO101et9+PPWbV/HlC6Ow6923ceSTAfZZMFxqyZc5RVD+7G8v+AnIEo9g X0ooXLpn0OBB6P/oRGzdbqFCxOy7dkYjZc4SZGVn6IMj1WMZZOG6VSY0TXIm mgK1DEYw1GK3KolPx8aF+7FjVSOOFDRh1qxV+GzEFPz8xadI3fg1WmUInJuN +uj90ikMZ7gQFyne4xZN40JuZccQ8yT7NM60eyBXTd4uX/RT+Tp08Agit1oo bgkkAGNjE9CaleKE+ZTiaJbQlFSh/UgG6kvLztFDdMucxCMzLdN+H72hUZ63 gZoTlrNIK7+PjU9GSnpq4EiQWlUc3y5xik/BiQzFFfJReCUnr4qTUZLU1xcF A8VNzz3+QLFt/t2CkJEvuWdEvtJq7BwdRStyZGtmzhd/G0BnA9qF5zKMlnmg EjGTEtNksoNH0/KIGXnGCUXxDeyZW/QIsaw8CyUSZ7m9MLsALRl2RpFcaB4T 0bPJ+HNqpCo9CR53MTwMpjMQ4eqJSCyla7K6l0Z9msMK4a1+9CnqyouCHoYm d4DYE+pIHloFW4+VlukFf+fw72666j8L236Isrs4sE/lo9uUPLmzs4F+AxsH 0guFiMki8Po64SZkol7lYReyaUaOI6HGH0xD1Ucu1Ljx/EMIzkrgqCrR/mCd ZV+3shElJ4LXXfnD1gLpG3fVu5x2EkB72sXn4MShg6gWvuj8mXPwyeW/w4Y+ fVAkLG1yUgp2/XgIKyY0ID7T7fl7r5aZt6ykVVk4Jnusrsfe/v+0n8u6wGXA +SpchwM67WbP9kby9wxJL/fNtDrKlj4CeQr5kuXnHw9IUYLK9BA9t91tsALt 9LCFs6BaUFzbhBevfh6LH++PPUNewC/jdtnbKXKP2xM/sIgDQ8UwT5Yezcmx /5LocXegmwEy0zMyzggGj/tBt7pcBFMux30Oo8MZE8dpVh/8KQZfr1wTIOps rzuMLYch+Ugq+j84Bkve+AhRk8YiP2oz3GfZBKQ8+JrbTZCUmOTWlHNzgcVd h1sMYLkTO2c7nPU8jYROfk5JTXGsL+CEyqECJKXiq8XrMeWjGULVhaO6qhyB nFnAZ/mGgUFKiySH+0ynCMZNLjBMGRDTWXEn2ydMPkkAKpP8ea+Zd0J2Zg52 LhuDmrwIduJEAJBvXdpH0aGucWcpcIfWPjR07jbd4AED97FtM9DVMNvJ+SZz Kg8yq8zOotQtJ84g6Ry5vNx8RH8zBg3F0cajSUz3miIMnteRPoDEwrPuJoBI x51Zng5272COGGdz96C+5D/qYPniLSiL2iufe+EuPe3EpUtuYs7YsxTHivZj r32tZ5A2kFf4gSCup4B32FVipPRqH0oF3680sNEKss0dFyZ58yXlJ9Be1CoX cCj9kJ2VjfQ9y1CVuweRugnu88vz7vnDCOQvtDNyYTAd3IJe4U/H9Z586lh2 o8dP4tYg3I2GAgv1VVVOFZ98nkFG5AJU5O1FFBNBmookbvwYoAu8B99bj8TD ibrBYaRvQUowY52S1/o2WJWChNo6Z6VIOt3Ju+ajOH0n9ulrXKr4Mzg8hs8N MD3lwM8P/B89Nd1g+zFCQ+Qsj0snu6QONcUlTmquTowwde8iFGZGOJTwwNo0 788PpoQbhPMZJV4Ff32CuRG0qs+ZGljVF20X16GpuCio6ixpz0LkZ+5GtEuV B5aTgm2bz7DPcSlwv23PfIhhbIitRXVoyc9xMh0yP5cYuQTpOdEyX0Wj5IqW RIyfVqNHScRzMxPKdpr7DKPswkbZVGThhBhloLrUtGeNP7TlwYvuww+fjETE Z+8gZdlcB26uSU+zGdLJsRYGQvjUOt1FiMle/lnD6DpEPlDvx1R9mDD3Wdh5 oXBk58y217oDMtXLEV3aMyDTKjERBxE+ez2evOU1zH3pHeweOxLJkwfK30Rr zCR9b7/9ttsqXOBNVg8fFSrIopUZmlpcArha7cTGXV1iob2gyD7zNV2MOy4i BVuXZmHq/Z+hftLLsJ54Bq3q0cDqeNiz7KiXv1bPbMCmX9RzGQqaZalVK+Z9 tQaTR03F+hmTcWjPLlh5LWjLsDMn+zSi0dHRmDBhgj1SCmV9aD/JXtH7HY7Z 1HUJnv1CVhRj0hAflWhfmT2sBikJTeh/6W/x1U2/w/K+ryH6tQ9QU5OEUUM+ wMaZ88RvVXy2VlC4YZ0CL61WlYcEhKO72qqdV4i8wgK1b6LBQrXcEltQi9aD 8WpHkxY3mp76FBoXxR3VkyfFD7ukj+tryoDQZ/o77Z9vKzzOsCNmGSfKl5y3 WzZtx0d39Me6Fwdg37Bn8eWAOmxYZSEp20JqjYX843656Z6aqfVyU7D411Ba jfaUTPt5PHv1LTSf9+7dG9jD7MS07mc5eCR6VJlLN0+q9Xs+zOy8IhJVWryh u+fOWomPXvgI6z8Yh0PTR6Gisspxl10UmnxbolriV1wnrtXUwUrJQK2QtT1M i1GKN4jkrjZpXrmExz0srnyJ5th5Fe7QPvg+KXoTh67G/GkzcOTg3kCGxR13 dEZWxQm0yhLJnHxJwW5m9eSjgKSVC1K5nd2DfsJlbbvQaINGbwXCdy6e/ElF 9sE0R2vl4P3qEJynH4kp2XJMXI+Is3eeS5q36e/cfsLQoUPdWoYvZD9p4LJ7 93OoG9KF/orJhnWiilmrUwq3Msss/LJqB2oSY7DFw6Jx0xzkfAfmmyQ9iDtB KRT5Lb3cz9HphMbVxfaTLeSnwFP0TrJBw16Y0GVOG1zjNsm6rk02Pc6BCrI6 WkF9fFGdcr3MT7cgan7RSsMreacB1Mc7uR+5IEOEp3zGkb43V7gENQEu+wUC Gz34KNUf4aEivg6nl0r5/LthHN0Z7NU/qNMQLzjZONYxSEx80V6SfnRjD8NQ nvQZSmFhmf3EVfnJtDBHg9PPCpOD6OIl1ur4BGfnjRwCkxA6SIE/qYlGkbU2 H8cby+xP+12484MSCXf9eHdK43L+UyUAt888MWolqtMCokKTNJUQdZbC5S8J 1kd9esrNKoHVomzkHh9BIoXwf1Q3phPDH/HppmC5fBRom/1pZ2hyonYvOVuV XUyi7fbcxtNst2dxlZrF21hn8nceEqE2LMB9DKuk+GGfnhL2ZOGEPvrDrU5N 4qAiHScdzJlERXrBSh8BHWavrk6KQVNzk57y3jKhIVTxiKPJOLNoNZl3x5wd 0rvy0Jzstd/Zn9aHYC9UvOBYJkrdaizvDaj7Tk6PSqPAvCi0OgRQldwZT3+9 xwWqj/ZaH9o0U8rBiek5B+9xdJCmjpacTQbZTZhJaSsLEUh7MPb90d0XLWmb +vo+tAmnyk11vqgD7+52waaDfHsM34U2yZ5THfQ2MIoSFVzzfxsC719UTV7G bqfyu7sNTYaHxuR/qVbdB1XKVu8ytLokBL2p8mnO4Uu8/E58fYeh1YWhcU1P 2asMoNL+T27I5oXGqldVq1e7WpXf0kZbrubnGFglc1GcVcNVk6Zj9G4zNDkj NBX3tmr1WjOuvzc0/HkIamy0avXXBlDpmADJXGrysxAk9T3V5PWuJqUn8FvW JFmYiaFJ6n9UqzcYQKWDMHjq5r8haJ1xqskbGaLM5adTVngm8qPQJFV17hz0 zkG9xdDq+6FJqooEO5weJHG92dDqmBBYNUU1eYsB1JvYNYpCR4fGKiV3+pia DrjeYGh4RAh6ZaZq9VYDqCRqPB07PDRWqfnsCCYHleYEV1WvuljFW2Wsmq9a NR20cZ2h1VdCUCrqGZXGgyiuNTQ5MDSlohS69nU7uJ5XGxruH4JSUWW3jv7k oF5laPLFECR1pWqSFD33Rq40qL7nQpPUVarVOwygXmFo9Z8hKJU1qsk7zYhe Zmj1qdAkVQWdxg3HvQ2tPs5a9VEqyr92vBKOK60GcmX9SAisUgkDxyPloNIK HdfUD4XGqu2q1Xtd5k9DcJGh4QdCUCqqHt/ZvMdBJS+b69T7QmOVSto6u9m4 r3aBodW7Q1Mqaumjwx4w2er5hlbvCEGpxKomH3CBqn0KfhB+8MktJ9Urh1XD DxpwpSojrqxt9XuSVEaiavIhA6hnGZr8TQiSmqKafNiAKH9gO+mpm0KTVDX/ dP16B1BNz3S6PgS9op5B5qQeOKKmJxBcE5qkqu2CTt6Ee7+mI32vCE2pqIPE nLwPx5WSYdxT7x0Cq9SjWLVW6wCqaUfcRaFxS+k1JyHHcTXtqDjfh1WkVFQ2 00k3cvNnqo4829WkiVUqxeNkUjmippKF00PTKOooIJ0n7uCodTI03MPAKrdS OaFafcaAKMXsXE13OQmftKS2q1aVCQ4LAlVekZqvcwhaRNf32G31tf/0CkKT NKiPLNpNKNnQOze7OU24n1TIe1XYOc9ukiMnDOzvFdPU+2H/+/5/3/+/eY9f /V/cc9fu\ \>"]] }, 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[{ RowBox[{"tpo", "=", RowBox[{"Table", "[", RowBox[{ RowBox[{"{", RowBox[{ RowBox[{"px", "[", RowBox[{"[", "i", "]"}], "]"}], ",", RowBox[{"py", "[", RowBox[{"[", "i", "]"}], "]"}], ",", RowBox[{"pz", "[", RowBox[{"[", "i", "]"}], "]"}]}], "}"}], ",", RowBox[{"{", RowBox[{"i", ",", "1", ",", "nj"}], "}"}]}], "]"}]}], ";"}], " ", RowBox[{"(*", " ", RowBox[{"pi", " ", "clouds", " ", "above"}], " ", "*)"}]}], "\[IndentingNewLine]", RowBox[{ RowBox[{ RowBox[{"tpu", "=", RowBox[{"Table", "[", RowBox[{ RowBox[{"{", RowBox[{ RowBox[{"qx", "[", RowBox[{"[", "i", "]"}], "]"}], ",", RowBox[{"qy", "[", RowBox[{"[", "i", "]"}], "]"}], ",", RowBox[{"qz", "[", RowBox[{"[", "i", "]"}], "]"}]}], "}"}], ",", RowBox[{"{", RowBox[{"i", ",", "1", ",", "nj"}], "}"}]}], "]"}]}], ";"}], " ", RowBox[{"(*", " ", RowBox[{"pi", " ", "clouds", " ", "below"}], " ", "*)"}], " "}], "\[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}}], Cell[BoxData["88"], "Output", CellChangeTimes->{3.5727666201519704`*^9}] }, Open ]], Cell[BoxData[{ RowBox[{ RowBox[{"t1", "=", "tw"}], ";"}], "\n", RowBox[{ RowBox[{"T", "=", RowBox[{"RotationMatrix", "[", RowBox[{ RowBox[{"-", "T3"}], ",", RowBox[{"{", RowBox[{"1", ",", "0", ",", "0"}], "}"}]}], "]"}]}], ";"}], "\[IndentingNewLine]", RowBox[{ RowBox[{"tw", "=", RowBox[{"t1", ".", "T"}]}], ";"}]}], "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.5723287923804703`*^9}, { 3.5723288666366005`*^9, 3.5723288719250097`*^9}, {3.572330641560918*^9, 3.572330646396927*^9}, {3.5723356594969316`*^9, 3.572335664925741*^9}, { 3.57234340430583*^9, 3.572343414477048*^9}}], Cell[BoxData[{ RowBox[{ RowBox[{"t1", "=", "tw"}], ";"}], "\[IndentingNewLine]", RowBox[{ RowBox[{"T", "=", RowBox[{"RotationMatrix", "[", RowBox[{ RowBox[{"-", "T2"}], ",", RowBox[{"{", RowBox[{"0", ",", "0", ",", "1"}], "}"}]}], "]"}]}], ";"}], "\[IndentingNewLine]", RowBox[{ RowBox[{"tw", "=", RowBox[{"t1", ".", "T"}]}], ";"}]}], "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.5723287923804703`*^9}, { 3.5723288666366005`*^9, 3.5723289273987074`*^9}, {3.5723306521533365`*^9, 3.572330656443344*^9}, {3.5723356718209534`*^9, 3.5723356860637784`*^9}, { 3.5723434191570563`*^9, 3.5723434228854628`*^9}}], Cell[BoxData[{ RowBox[{ RowBox[{"t1", "=", "tw"}], ";"}], "\n", RowBox[{ RowBox[{"T", "=", RowBox[{"RotationMatrix", "[", RowBox[{ RowBox[{"-", "T1"}], ",", RowBox[{"{", RowBox[{"1", ",", "0", ",", "0"}], "}"}]}], "]"}]}], ";"}], "\[IndentingNewLine]", RowBox[{ RowBox[{"tw", "=", RowBox[{"t1", ".", "T"}]}], ";"}], "\[IndentingNewLine]", RowBox[{ RowBox[{"t", "=", "tw"}], ";"}]}], "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.5723287923804703`*^9}, { 3.5723288666366005`*^9, 3.572328950564748*^9}, {3.5723289952900267`*^9, 3.5723289968500295`*^9}, {3.572330660873752*^9, 3.5723306643681583`*^9}, { 3.5723356925533895`*^9, 3.5723357060318136`*^9}, {3.5723434261458683`*^9, 3.5723434289850736`*^9}, {3.572343517265629*^9, 3.572343527078046*^9}, 3.572344088866233*^9}], Cell[CellGroupData[{ Cell[BoxData[ RowBox[{"v", "=", RowBox[{"Table", "[", RowBox[{ RowBox[{"Join", "[", RowBox[{ RowBox[{"t", "[", RowBox[{"[", RowBox[{"c", "[", RowBox[{"[", "i", "]"}], "]"}], "]"}], "]"}], ",", RowBox[{"{", "1", "}"}]}], "]"}], ",", RowBox[{"{", RowBox[{"i", ",", "1", ",", "P"}], "}"}]}], "]"}]}]], "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.5723287923804703`*^9}, { 3.5723288666366005`*^9, 3.572328950564748*^9}, {3.5723289952900267`*^9, 3.5723289989248333`*^9}, {3.572329030390088*^9, 3.5723290748033667`*^9}, { 3.5723291291694617`*^9, 3.572329130838665*^9}, {3.572329405820348*^9, 3.572329422605977*^9}, 3.5723295052237225`*^9, {3.5723304649998083`*^9, 3.5723304973074646`*^9}, {3.5723307100294385`*^9, 3.5723307102634387`*^9}, {3.5723357198378377`*^9, 3.5723357642199154`*^9}, 3.5723424734677954`*^9, 3.5723433533873405`*^9, {3.5723487385479994`*^9, 3.5723487409192038`*^9}, {3.572351119876582*^9, 3.572351188095502*^9}, { 3.5723512204343586`*^9, 3.572351237812789*^9}, {3.5723512694652443`*^9, 3.5723512781232595`*^9}, {3.572351313285722*^9, 3.5723513332693567`*^9}, { 3.5723514533115673`*^9, 3.57235149457364*^9}, {3.572357810007575*^9, 3.572357840162428*^9}, {3.572357948442218*^9, 3.5723579535434265`*^9}, { 3.572358189322241*^9, 3.5723581901178427`*^9}}], Cell[BoxData[ RowBox[{"{", RowBox[{ RowBox[{"{", RowBox[{ RowBox[{"-", "2.1308550376`"}], ",", RowBox[{"-", "1.4187117945000005`"}], ",", RowBox[{"-", "0.7357270235800001`"}], ",", "1"}], "}"}], ",", RowBox[{"{", RowBox[{"0.`", ",", "0.`", ",", "0.`", ",", "1"}], "}"}], ",", RowBox[{"{", RowBox[{ RowBox[{"-", "4.2458363768`"}], ",", RowBox[{"-", "0.22387583921999965`"}], ",", RowBox[{"-", "1.55322249118`"}], ",", "1"}], "}"}], ",", RowBox[{"{", RowBox[{ "11.756672659663668`", ",", "2.457885156079311`", ",", "7.857448625207384`", ",", "1"}], "}"}]}], "}"}]], "Output", CellChangeTimes->{3.57276662016757*^9}] }, Open ]], Cell[CellGroupData[{ Cell[BoxData[ RowBox[{ RowBox[{"(*", RowBox[{ RowBox[{"x2", "=", RowBox[{"tw", "[", RowBox[{"[", RowBox[{ RowBox[{"c", "[", RowBox[{"[", "2", "]"}], "]"}], ",", "1"}], "]"}], "]"}]}], ";", " ", RowBox[{"y2", "=", RowBox[{"tw", "[", RowBox[{"[", RowBox[{ RowBox[{"c", "[", RowBox[{"[", "2", "]"}], "]"}], ",", "2"}], "]"}], "]"}]}], ";", " ", RowBox[{"z2", "=", RowBox[{"tw", "[", RowBox[{"[", RowBox[{ RowBox[{"c", "[", RowBox[{"[", "2", "]"}], "]"}], ",", "3"}], "]"}], "]"}]}], ";"}], "*)"}], " ", RowBox[{"(*", " ", RowBox[{"to", " ", "be", " ", "set", " ", "to", " ", RowBox[{"(", RowBox[{"0", ",", "0", ",", "0"}], ")"}]}], " ", "*)"}], "\[IndentingNewLine]", RowBox[{ 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[{"t1", "=", RowBox[{"Table", "[", RowBox[{ RowBox[{"Join", "[", RowBox[{ RowBox[{"t", "[", RowBox[{"[", "i", "]"}], "]"}], ",", RowBox[{"{", "1", "}"}]}], "]"}], ",", RowBox[{"{", RowBox[{"i", ",", "1", ",", "bt"}], "}"}]}], "]"}]}], ";"}], "\[IndentingNewLine]", RowBox[{ RowBox[{"t", "=", RowBox[{"t1", ".", "Q"}]}], ";"}], "\[IndentingNewLine]", RowBox[{ RowBox[{"For", "[", RowBox[{ RowBox[{"i", "=", "1"}], ",", RowBox[{"i", "<", RowBox[{"P", "+", "1"}]}], ",", RowBox[{"i", "++"}], ",", RowBox[{ RowBox[{"p", "[", RowBox[{"[", "i", "]"}], "]"}], "=", RowBox[{"Take", "[", RowBox[{ RowBox[{"p", "[", RowBox[{"[", "i", "]"}], "]"}], ",", "3"}], "]"}]}]}], "]"}], ";"}], "\[IndentingNewLine]", "p", "\[IndentingNewLine]", RowBox[{ RowBox[{"For", "[", RowBox[{ RowBox[{"i", "=", "1"}], ",", RowBox[{"i", "<", RowBox[{"bt", "+", "1"}]}], ",", RowBox[{"i", "++"}], ",", RowBox[{ RowBox[{"t", "[", RowBox[{"[", "i", "]"}], "]"}], "=", RowBox[{"Take", "[", RowBox[{ RowBox[{"t", "[", RowBox[{"[", "i", "]"}], "]"}], ",", "3"}], "]"}]}]}], "]"}], ";"}]}]}]], "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.5723287923804703`*^9}, { 3.5723288666366005`*^9, 3.572328950564748*^9}, {3.5723289952900267`*^9, 3.5723289989248333`*^9}, {3.572329030390088*^9, 3.5723290748033667`*^9}, { 3.5723291291694617`*^9, 3.572329130838665*^9}, {3.572329405820348*^9, 3.572329422605977*^9}, 3.5723295052237225`*^9, {3.5723304649998083`*^9, 3.5723304973074646`*^9}, {3.5723307100294385`*^9, 3.5723307102634387`*^9}, {3.5723357198378377`*^9, 3.5723357642199154`*^9}, 3.5723424734677954`*^9, 3.5723433533873405`*^9, {3.5723487385479994`*^9, 3.5723487409192038`*^9}, {3.572351119876582*^9, 3.572351188095502*^9}, { 3.5723512204343586`*^9, 3.572351237812789*^9}, {3.5723512694652443`*^9, 3.5723512781232595`*^9}, {3.572351313285722*^9, 3.5723513332693567`*^9}, { 3.5723514533115673`*^9, 3.57235149457364*^9}, {3.572357810007575*^9, 3.572357832924015*^9}}], Cell[BoxData[ RowBox[{"{", RowBox[{ RowBox[{"{", RowBox[{ RowBox[{"-", "5.1780382126`"}], ",", RowBox[{"-", "0.9728687393200005`"}], ",", RowBox[{"-", "2.1119577776`"}]}], "}"}], ",", RowBox[{"{", RowBox[{ RowBox[{"-", "3.047183175`"}], ",", "0.44584305518`", ",", RowBox[{"-", "1.3762307540199998`"}]}], "}"}], ",", RowBox[{"{", RowBox[{ RowBox[{"-", "7.2930195518`"}], ",", "0.22196721596000035`", ",", RowBox[{"-", "2.9294532452`"}]}], "}"}], ",", RowBox[{"{", RowBox[{ "8.709489484663667`", ",", "2.903728211259311`", ",", "6.4812178711873845`"}], "}"}]}], "}"}]], "Output", CellChangeTimes->{3.5727666201831703`*^9}] }, Open ]], Cell[BoxData[{ RowBox[{ RowBox[{ RowBox[{"tc", "=", " ", RowBox[{"Table", "[", RowBox[{ RowBox[{"t", "[", RowBox[{"[", "i", "]"}], "]"}], ",", RowBox[{"{", RowBox[{"i", ",", "1", ",", "bc"}], "}"}]}], "]"}]}], ";"}], " ", RowBox[{"(*", " ", RowBox[{"core", " ", "clouds"}], " ", "*)"}]}], "\[IndentingNewLine]", RowBox[{ RowBox[{ RowBox[{"twc", "=", RowBox[{"Table", "[", RowBox[{ RowBox[{"t", "[", RowBox[{"[", "i", "]"}], "]"}], ",", RowBox[{"{", RowBox[{"i", ",", RowBox[{"bc", "+", "1"}], ",", RowBox[{"bc", "+", "cw"}]}], "}"}]}], "]"}]}], ";"}], " ", RowBox[{"(*", " ", RowBox[{"Bond", " ", "clouds", " ", "between", " ", "cores"}], " ", "*)"}]}], "\[IndentingNewLine]", RowBox[{ RowBox[{ RowBox[{"twh", "=", RowBox[{"Table", "[", RowBox[{ RowBox[{"t", "[", RowBox[{"[", "i", "]"}], "]"}], ",", RowBox[{"{", RowBox[{"i", ",", RowBox[{"bc", "+", "cw", "+", "1"}], ",", RowBox[{"bc", "+", "cw", "+", "bh"}]}], "}"}]}], "]"}]}], ";"}], " ", RowBox[{"(*", " ", RowBox[{"H", "-", RowBox[{"bonding", " ", "clouds"}]}], " ", "*)"}], " "}], "\[IndentingNewLine]", RowBox[{ RowBox[{ RowBox[{"tpo", "=", RowBox[{"Table", "[", RowBox[{ RowBox[{"t", "[", RowBox[{"[", "i", "]"}], "]"}], ",", RowBox[{"{", RowBox[{"i", ",", RowBox[{"bc", "+", "cw", "+", "bh", "+", "1"}], ",", RowBox[{"bc", "+", "cw", "+", "bh", "+", "nj"}]}], "}"}]}], "]"}]}], ";"}], " ", RowBox[{"(*", " ", RowBox[{"pi", " ", "clouds", " ", "above"}], " ", "*)"}]}], "\[IndentingNewLine]", RowBox[{ RowBox[{ RowBox[{"tpu", "=", RowBox[{"Table", "[", RowBox[{ RowBox[{"t", "[", RowBox[{"[", "i", "]"}], "]"}], ",", RowBox[{"{", RowBox[{"i", ",", RowBox[{"bc", "+", "cw", "+", "bh", "+", "nj", "+", "1"}], ",", RowBox[{"bc", "+", "cw", "+", "bh", "+", "nj", "+", "nj"}]}], "}"}]}], "]"}]}], ";"}], RowBox[{"(*", " ", RowBox[{"pi", " ", "clouds", " ", "below"}], " ", "*)"}], " "}]}], "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.5723287923804703`*^9}, { 3.5723288666366005`*^9, 3.572328950564748*^9}, {3.5723289952900267`*^9, 3.5723289989248333`*^9}, {3.572329030390088*^9, 3.5723290748033667`*^9}, { 3.5723291291694617`*^9, 3.572329130838665*^9}, {3.572329405820348*^9, 3.572329422605977*^9}, 3.5723295052237225`*^9, {3.5723304649998083`*^9, 3.5723304973074646`*^9}, {3.5723307100294385`*^9, 3.5723307102634387`*^9}, {3.5723357198378377`*^9, 3.5723357642199154`*^9}, 3.5723424734677954`*^9, 3.5723433533873405`*^9, {3.5723487385479994`*^9, 3.5723489549047794`*^9}, {3.572348988257638*^9, 3.5723489937956476`*^9}, { 3.5723490574749594`*^9, 3.5723490579897604`*^9}, {3.5723509762627296`*^9, 3.572351032188828*^9}}], Cell[BoxData[{ RowBox[{ RowBox[{"x", "=", RowBox[{"Join", "[", RowBox[{ RowBox[{"Table", "[", RowBox[{ RowBox[{"t", "[", RowBox[{"[", RowBox[{"i", ",", "1"}], "]"}], "]"}], ",", RowBox[{"{", RowBox[{"i", ",", "1", ",", "bc"}], "}"}]}], "]"}], ",", RowBox[{"Table", "[", RowBox[{ RowBox[{"t", "[", RowBox[{"[", RowBox[{"i", ",", "1"}], "]"}], "]"}], ",", RowBox[{"{", RowBox[{"i", ",", RowBox[{"bc", "+", "cw", "+", "1"}], ",", RowBox[{"bc", "+", "cw", "+", "bh"}]}], "}"}]}], "]"}]}], "]"}]}], ";"}], "\[IndentingNewLine]", RowBox[{ RowBox[{"y", "=", RowBox[{"Join", "[", RowBox[{ RowBox[{"Table", "[", RowBox[{ RowBox[{"t", "[", RowBox[{"[", RowBox[{"i", ",", "2"}], "]"}], "]"}], ",", RowBox[{"{", RowBox[{"i", ",", "1", ",", "bc"}], "}"}]}], "]"}], ",", RowBox[{"Table", "[", RowBox[{ RowBox[{"t", "[", RowBox[{"[", RowBox[{"i", ",", "2"}], "]"}], "]"}], ",", RowBox[{"{", RowBox[{"i", ",", RowBox[{"bc", "+", "cw", "+", "1"}], ",", RowBox[{"bc", "+", "cw", "+", "bh"}]}], "}"}]}], "]"}]}], "]"}]}], ";"}], "\[IndentingNewLine]", RowBox[{ RowBox[{"z", "=", RowBox[{"Join", "[", RowBox[{ RowBox[{"Table", "[", RowBox[{ RowBox[{"t", "[", RowBox[{"[", RowBox[{"i", ",", "3"}], "]"}], "]"}], ",", RowBox[{"{", RowBox[{"i", ",", "1", ",", "bc"}], "}"}]}], "]"}], ",", RowBox[{"Table", "[", RowBox[{ RowBox[{"t", "[", RowBox[{"[", RowBox[{"i", ",", "3"}], "]"}], "]"}], ",", RowBox[{"{", RowBox[{"i", ",", RowBox[{"bc", "+", "cw", "+", "1"}], ",", RowBox[{"bc", "+", "cw", "+", "bh"}]}], "}"}]}], "]"}]}], "]"}]}], ";"}]}], "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.5723287923804703`*^9}, { 3.5723288666366005`*^9, 3.572328950564748*^9}, {3.5723289952900267`*^9, 3.5723289989248333`*^9}, {3.572329030390088*^9, 3.5723290748033667`*^9}, { 3.5723291291694617`*^9, 3.572329146797493*^9}, {3.572329180992753*^9, 3.57232919075837*^9}, 3.572329398706735*^9, {3.572329619961924*^9, 3.5723296529871817`*^9}, {3.5723297529677577`*^9, 3.572329754948961*^9}, { 3.5723357702415266`*^9, 3.5723357857323537`*^9}, {3.57234343818909*^9, 3.572343442947098*^9}, {3.572343536547262*^9, 3.5723435463440795`*^9}, { 3.5723440934214406`*^9, 3.572344098101449*^9}, {3.5723443555799007`*^9, 3.5723443667807207`*^9}, 3.572345243705061*^9, {3.5723465281021166`*^9, 3.5723465299897203`*^9}, {3.5723474987982216`*^9, 3.5723475561751223`*^9}, {3.572352187339657*^9, 3.572352214312104*^9}, { 3.572358363652547*^9, 3.5723585248632307`*^9}}], Cell[BoxData[{ RowBox[{ RowBox[{"Plot1", "=", RowBox[{"Table", "[", RowBox[{ RowBox[{"Graphics3D", "[", RowBox[{"{", RowBox[{ RowBox[{"If", "[", RowBox[{ RowBox[{ RowBox[{"u", "[", RowBox[{"[", "i", "]"}], "]"}], "\[Equal]", "\"\\""}], ",", RowBox[{"Lighter", "[", "Blue", "]"}], ",", RowBox[{"If", "[", RowBox[{ RowBox[{ RowBox[{"u", "[", RowBox[{"[", "i", "]"}], "]"}], "\[Equal]", "\"\\""}], ",", RowBox[{"Lighter", "[", "Red", "]"}], ",", RowBox[{"If", "[", RowBox[{ RowBox[{ RowBox[{"u", "[", RowBox[{"[", "i", "]"}], "]"}], "\[Equal]", "\"\\""}], ",", RowBox[{"Lighter", "[", "Green", "]"}], ",", RowBox[{"If", "[", RowBox[{ RowBox[{ RowBox[{"u", "[", RowBox[{"[", "i", "]"}], "]"}], "\[Equal]", "\"\\""}], ",", RowBox[{"Lighter", "[", "Orange", "]"}], ",", RowBox[{"Lighter", "[", "Brown", "]"}]}], "]"}]}], "]"}]}], "]"}]}], "]"}], ",", RowBox[{"Sphere", "[", RowBox[{ RowBox[{"{", RowBox[{ RowBox[{"x", "[", RowBox[{"[", "i", "]"}], "]"}], ",", RowBox[{"y", "[", RowBox[{"[", "i", "]"}], "]"}], ",", RowBox[{"z", "[", RowBox[{"[", "i", "]"}], "]"}]}], "}"}], ",", RowBox[{"u1", "[", RowBox[{"[", "i", "]"}], "]"}]}], "]"}]}], "}"}], "]"}], ",", RowBox[{"{", RowBox[{"i", ",", "1", ",", RowBox[{"bc", "+", "cw"}]}], "}"}]}], "]"}]}], ";"}], "\[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", ",", "bc"}], "}"}]}], "]"}]}], ";"}], "\[IndentingNewLine]", RowBox[{ RowBox[{"Plot2a", "=", RowBox[{"Table", "[", RowBox[{ RowBox[{"Graphics3D", "[", RowBox[{"Text", "[", RowBox[{ RowBox[{"i", "-", "cw"}], ",", 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", ",", RowBox[{"bc", "+", "cw", "+", "1"}], ",", RowBox[{"bc", "+", "cw", "+", "bh"}]}], "}"}]}], "]"}]}], ";"}]}], "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.5723287923804703`*^9}, { 3.5723288666366005`*^9, 3.572328950564748*^9}, {3.5723289952900267`*^9, 3.5723289989248333`*^9}, {3.572329030390088*^9, 3.5723290748033667`*^9}, { 3.5723291291694617`*^9, 3.572329146797493*^9}, {3.572329180992753*^9, 3.57232919075837*^9}, 3.572329398706735*^9, {3.572329619961924*^9, 3.5723296529871817`*^9}, {3.5723297529677577`*^9, 3.572329754948961*^9}, { 3.5723357702415266`*^9, 3.5723357857323537`*^9}, {3.57234343818909*^9, 3.572343442947098*^9}, {3.572343536547262*^9, 3.5723435463440795`*^9}, { 3.5723440934214406`*^9, 3.572344098101449*^9}, {3.5723443555799007`*^9, 3.5723443667807207`*^9}, 3.572345243705061*^9, {3.5723465281021166`*^9, 3.5723465312377224`*^9}, {3.572362266487853*^9, 3.5723622848178854`*^9}, { 3.57236235565761*^9, 3.572362386405264*^9}, {3.572362502828268*^9, 3.57236250390467*^9}, {3.572362733755474*^9, 3.5723627637231264`*^9}, { 3.572362873422519*^9, 3.57236287381252*^9}, {3.5723629062761765`*^9, 3.5723629084601808`*^9}}], Cell[BoxData[ RowBox[{ RowBox[{"Plot7", "=", RowBox[{"Table", "[", RowBox[{ RowBox[{"Graphics3D", "[", RowBox[{"{", RowBox[{ RowBox[{"Darker", "[", RowBox[{"Brown", ",", "0.4"}], "]"}], ",", RowBox[{"Opacity", "[", "0.5", "]"}], ",", RowBox[{"Sphere", "[", RowBox[{ RowBox[{"twc", "[", RowBox[{"[", "i", "]"}], "]"}], ",", RowBox[{"a", "[", RowBox[{"[", RowBox[{"i", ",", "3"}], "]"}], "]"}]}], "]"}]}], "}"}], "]"}], ",", RowBox[{"{", RowBox[{"i", ",", "1", ",", "cw"}], "}"}]}], "]"}]}], ";"}]], "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.5723287923804703`*^9}, { 3.5723288666366005`*^9, 3.572328950564748*^9}, {3.5723289952900267`*^9, 3.5723289989248333`*^9}, {3.572329030390088*^9, 3.5723290748033667`*^9}, { 3.5723291291694617`*^9, 3.572329146797493*^9}, {3.572329180992753*^9, 3.57232919075837*^9}, 3.572329398706735*^9, {3.572329619961924*^9, 3.5723296529871817`*^9}, {3.5723297529677577`*^9, 3.5723297563061633`*^9}, {3.5723297883174195`*^9, 3.572329790579424*^9}, { 3.5723299562985144`*^9, 3.572330013644215*^9}, {3.572330280529484*^9, 3.5723302870814953`*^9}, {3.5723308512096863`*^9, 3.572330851989688*^9}, { 3.572335796995573*^9, 3.5723358034227843`*^9}, 3.5723435966697683`*^9, { 3.5723441205654883`*^9, 3.5723441338099117`*^9}, 3.5723443407598753`*^9, { 3.572344393519168*^9, 3.5723444037215853`*^9}, {3.572344523935397*^9, 3.572344524153797*^9}, {3.5723446734616594`*^9, 3.572344694880497*^9}, 3.572345275185916*^9, 3.572347956050625*^9, {3.572349092294221*^9, 3.572349092590621*^9}, {3.572349190621193*^9, 3.572349198265207*^9}, 3.5723492716945353`*^9}], Cell[BoxData[ RowBox[{ RowBox[{"Plot8", "=", RowBox[{"Table", "[", RowBox[{ RowBox[{"Graphics3D", "[", RowBox[{"{", RowBox[{ RowBox[{"Opacity", "[", "0.5", "]"}], ",", RowBox[{"Sphere", "[", RowBox[{ RowBox[{"twh", "[", RowBox[{"[", "i", "]"}], "]"}], ",", RowBox[{"a", "[", RowBox[{"[", RowBox[{ RowBox[{"i", "+", "cw"}], ",", "3"}], "]"}], "]"}]}], "]"}]}], "}"}], "]"}], ",", RowBox[{"{", RowBox[{"i", ",", "1", ",", "bh"}], "}"}]}], "]"}]}], ";"}]], "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.5723287923804703`*^9}, { 3.5723288666366005`*^9, 3.572328950564748*^9}, {3.5723289952900267`*^9, 3.5723289989248333`*^9}, {3.572329030390088*^9, 3.5723290748033667`*^9}, { 3.5723291291694617`*^9, 3.572329146797493*^9}, {3.572329180992753*^9, 3.57232919075837*^9}, 3.572329398706735*^9, {3.572329619961924*^9, 3.5723296529871817`*^9}, {3.5723297529677577`*^9, 3.5723297563061633`*^9}, {3.5723297883174195`*^9, 3.5723298158670683`*^9}, {3.5723300520826826`*^9, 3.5723300924243536`*^9}, {3.5723302940703077`*^9, 3.5723303002167187`*^9}, {3.5723308694773183`*^9, 3.5723308768093314`*^9}, 3.5723310402976184`*^9, {3.5723311193585577`*^9, 3.57233112087176*^9}, 3.572331328008924*^9, {3.57234922856046*^9, 3.572349244909289*^9}, { 3.572349283300956*^9, 3.572349318416618*^9}, 3.57236932453305*^9, { 3.572369374203537*^9, 3.572369380443548*^9}, {3.5723694148572083`*^9, 3.5723694324384394`*^9}, {3.572369554305854*^9, 3.572369555647456*^9}, { 3.572369619701168*^9, 3.5723696201223693`*^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"}], "}"}]}], "]"}]}], ";"}]], "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.5723287923804703`*^9}, { 3.5723288666366005`*^9, 3.572328950564748*^9}, {3.5723289952900267`*^9, 3.5723289989248333`*^9}, {3.572329030390088*^9, 3.5723290748033667`*^9}, { 3.5723291291694617`*^9, 3.572329146797493*^9}, {3.572329180992753*^9, 3.57232919075837*^9}, 3.572329398706735*^9, {3.572329619961924*^9, 3.5723296529871817`*^9}, {3.5723297529677577`*^9, 3.5723297563061633`*^9}, {3.5723297883174195`*^9, 3.572329844633518*^9}, { 3.5723301179303985`*^9, 3.5723301607056737`*^9}, {3.5723303050215273`*^9, 3.5723303099355354`*^9}, 3.5723313361365385`*^9, {3.572349327963835*^9, 3.5723493581498876`*^9}, {3.572349394295151*^9, 3.572349398943959*^9}}], Cell[BoxData[ 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.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.5723287923804703`*^9}, { 3.5723288666366005`*^9, 3.572328950564748*^9}, {3.5723289952900267`*^9, 3.5723289989248333`*^9}, {3.572329030390088*^9, 3.5723290748033667`*^9}, { 3.5723291291694617`*^9, 3.572329146797493*^9}, {3.572329180992753*^9, 3.57232919075837*^9}, 3.572329398706735*^9, {3.572329619961924*^9, 3.5723296529871817`*^9}, {3.5723297529677577`*^9, 3.5723297563061633`*^9}, {3.5723297883174195`*^9, 3.5723298457879205`*^9}, {3.5723298871747932`*^9, 3.572329888609996*^9}, { 3.5723301737784967`*^9, 3.5723302066165543`*^9}, {3.572330316799548*^9, 3.572330323039559*^9}, 3.572331344591753*^9, {3.572349338571853*^9, 3.5723493660903015`*^9}, {3.57234941638479*^9, 3.5723494233268023`*^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", ",", "cw"}], "}"}]}], "]"}]}], ";"}], "\[IndentingNewLine]", RowBox[{"(*", RowBox[{ RowBox[{"Plot9a", "=", RowBox[{"Table", "[", RowBox[{ RowBox[{"Graphics3D", "[", RowBox[{"Tube", "[", RowBox[{ RowBox[{"{", RowBox[{ RowBox[{"{", RowBox[{ RowBox[{"x", "[", RowBox[{"[", RowBox[{"a", "[", RowBox[{"[", RowBox[{ RowBox[{"i", "+", "cw"}], ",", "1"}], "]"}], "]"}], "]"}], "]"}], ",", RowBox[{"y", "[", RowBox[{"[", RowBox[{"a", "[", RowBox[{"[", RowBox[{ RowBox[{"i", "+", "cw"}], ",", "1"}], "]"}], "]"}], "]"}], "]"}], ",", RowBox[{"z", "[", RowBox[{"[", RowBox[{"a", "[", RowBox[{"[", RowBox[{ RowBox[{"i", "+", "cw"}], ",", "1"}], "]"}], "]"}], "]"}], "]"}]}], "}"}], ",", RowBox[{"{", RowBox[{ RowBox[{"x", "[", RowBox[{"[", RowBox[{"a", "[", RowBox[{"[", RowBox[{ RowBox[{"i", "+", "cw"}], ",", "2"}], "]"}], "]"}], "]"}], "]"}], ",", RowBox[{"y", "[", RowBox[{"[", RowBox[{"a", "[", RowBox[{"[", RowBox[{ RowBox[{"i", "+", "cw"}], ",", "2"}], "]"}], "]"}], "]"}], "]"}], ",", RowBox[{"z", "[", RowBox[{"[", RowBox[{"a", "[", RowBox[{"[", RowBox[{ RowBox[{"i", "+", "cw"}], ",", "2"}], "]"}], "]"}], "]"}], "]"}]}], "}"}]}], "}"}], ",", "0.06"}], "]"}], "]"}], ",", RowBox[{"{", RowBox[{"i", ",", RowBox[{"cw", "+", "1"}], ",", "nb"}], "}"}]}], "]"}]}], ";"}], "*)"}], "\[IndentingNewLine]"}], "\[IndentingNewLine]", RowBox[{"Show", "[", RowBox[{ "Plot1", ",", "Plot2", ",", "Plot2a", ",", "Plot7", ",", "Plot8", ",", "Plot8a", ",", "Plot8b", ",", "Plot9", ",", RowBox[{"(*", RowBox[{"Plot9a", ","}], "*)"}], 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[{"Plot1", ",", "Plot2", ",", "Plot2a", ",", "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.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.5723287923804703`*^9}, { 3.5723288666366005`*^9, 3.572328950564748*^9}, {3.5723289952900267`*^9, 3.5723289989248333`*^9}, {3.572329030390088*^9, 3.5723290748033667`*^9}, { 3.5723291291694617`*^9, 3.572329146797493*^9}, {3.572329180992753*^9, 3.57232919075837*^9}, 3.572329398706735*^9, {3.572329619961924*^9, 3.5723296529871817`*^9}, {3.5723297529677577`*^9, 3.5723297563061633`*^9}, {3.5723297883174195`*^9, 3.5723298457879205`*^9}, {3.5723298871747932`*^9, 3.572329889998398*^9}, 3.57233138270262*^9, {3.5723436214426117`*^9, 3.572343657525475*^9}, { 3.572343945798381*^9, 3.572343951975992*^9}, 3.572344222418067*^9, { 3.5723442594993324`*^9, 3.5723442614649353`*^9}, {3.5723443023838077`*^9, 3.572344302742608*^9}, 3.5723447577954073`*^9, {3.5723448096342983`*^9, 3.572344819056715*^9}, {3.5723449490361433`*^9, 3.5723449562121563`*^9}, 3.572345050264721*^9, 3.572345251598675*^9, {3.572345303889967*^9, 3.5723453444344378`*^9}, {3.572346643370719*^9, 3.5723466547431393`*^9}, { 3.5723467511201086`*^9, 3.572346759356923*^9}, 3.5723469383516374`*^9, { 3.57234726431421*^9, 3.5723472740018272`*^9}, {3.5723473238127146`*^9, 3.5723473270887203`*^9}, {3.572347367367991*^9, 3.572347370846797*^9}, { 3.5723476843137474`*^9, 3.572347691848561*^9}, {3.5723477601766806`*^9, 3.5723477650126896`*^9}, {3.572347810517969*^9, 3.5723478435900273`*^9}, { 3.572349436274825*^9, 3.5723494398940315`*^9}, {3.572362215662964*^9, 3.5723622209045734`*^9}, {3.5723624042984953`*^9, 3.5723624070597*^9}, { 3.5723630751152735`*^9, 3.57236308430369*^9}, {3.5723697305861635`*^9, 3.572369730835764*^9}, {3.572369794905076*^9, 3.572369906850873*^9}, { 3.5723699410773325`*^9, 3.572369944774539*^9}, {3.572370041276309*^9, 3.5723700420251102`*^9}, {3.57237008738999*^9, 3.5723700916331973`*^9}, { 3.5723702015665903`*^9, 3.5723702110826073`*^9}, 3.572370388735719*^9, 3.5723704377042055`*^9, 3.572530544205142*^9, {3.572582860579054*^9, 3.5725828672714653`*^9}}], Cell[BoxData[ Graphics3DBox[{ {RGBColor[0.7333333333333333, 0.6, 0.4666666666666667], SphereBox[{6.2984567579999995`, 0.878136774940001, 4.594301851200001}, 0.255]}, {RGBColor[0.7333333333333333, 0.6, 0.4666666666666667], SphereBox[{8.091239814199998, 3.080820297800001, 5.136275268}, 0.255]}, {RGBColor[0.7333333333333333, 0.6, 0.4666666666666667], SphereBox[{10.1614346472, 3.1034970098, 3.1087882425999993`}, 0.255]}, {RGBColor[0.7333333333333333, 0.6, 0.4666666666666667], SphereBox[{5.482851016399999, 0.9289515070800002, 1.878028596060001}, 0.255]}, {RGBColor[0.7333333333333333, 0.6, 0.4666666666666667], SphereBox[{8.954466651, 3.8282069308, 0.5798057313200002}, 0.255]}, {RGBColor[0.7333333333333333, 0.6, 0.4666666666666667], SphereBox[{6.659205451399999, 2.2315774334000005`, 0.10211134440999992`}, 0.255]}, {RGBColor[0.7333333333333333, 0.6, 0.4666666666666667], SphereBox[{7.652445436999998, -1.61707633272, 5.142133418600002}, 0.255]}, {RGBColor[0.7333333333333333, 0.6, 0.4666666666666667], SphereBox[{3.9725819972000007`, 1.1005953196599987`, 6.2977008676}, 0.255]}, {RGBColor[0.7333333333333333, 0.6, 0.4666666666666667], SphereBox[{3.2546750898, -0.5363609305799997, 1.1590445448400004`}, 0.255]}, {RGBColor[0.7333333333333333, 0.6, 0.4666666666666667], SphereBox[{5.639320329200001, 2.106288599599999, -2.5537757164}, 0.255]}, {RGBColor[0.7333333333333333, 0.6, 0.4666666666666667], SphereBox[{1.2153772769, 0.64390523724, 0.15027668069800004`}, 0.255]}, {RGBColor[0.7333333333333333, 0.6, 0.4666666666666667], SphereBox[{-1.00289648546, -0.7372954961599999, -0.3651328577199999}, 0.255]}, {RGBColor[0.7333333333333333, 0.6, 0.4666666666666667], SphereBox[{-1.1087589359800003`, -3.5256617982, 0.20480850388000005`}, 0.255]}, {RGBColor[0.7333333333333333, 0.6, 0.4666666666666667], SphereBox[{-3.047183175, 0.44584305518, -1.3762307540199998`}, 0.255]}, {RGBColor[0.7333333333333333, 0.6, 0.4666666666666667], SphereBox[{-5.1780382126, -0.9728687393200005, -2.1119577776}, 0.255]}, {RGBColor[0.7333333333333333, 0.6, 0.4666666666666667], SphereBox[{-7.2930195518, 0.22196721596000035`, -2.9294532452}, 0.255]}, {RGBColor[0.7333333333333333, 0.6, 0.4666666666666667], SphereBox[{-9.5026761636, -1.2491466805200004`, -3.6925246040000004`}, 0.255]}, {RGBColor[0.7333333333333333, 0.6, 0.4666666666666667], SphereBox[{-9.4310555482, -4.093335488600001, -3.570637277}, 0.255]}, {RGBColor[0.7333333333333333, 0.6, 0.4666666666666667], SphereBox[{-11.584965243, -0.07273177428799948, -4.4973589074}, 0.255]}, {RGBColor[0.7333333333333333, 0.6, 0.4666666666666667], SphereBox[{-13.711662883400002`, -1.573348073080001, -5.653304301600001}, 0.255]}, {RGBColor[1, NCache[ Rational[1, 3], 0.3333333333333333], NCache[ Rational[1, 3], 0.3333333333333333]], SphereBox[{-14.602668692400002`, -0.312409502320001, -7.868819063999999}, 0.178]}, {RGBColor[0.7333333333333333, 0.6, 0.4666666666666667], SphereBox[{8.709489484663667, 2.903728211259311, 6.4812178711873845`}, 0.1]}, {RGBColor[0.7333333333333333, 0.6, 0.4666666666666667], SphereBox[{7.334642878661486, 4.364286561484166, 5.093885054731079}, 0.1]}, {RGBColor[0.7333333333333333, 0.6, 0.4666666666666667], SphereBox[{10.776240440020413`, 1.7495431404822184`, 3.0056824668467543`}, 0.1]}, {RGBColor[0.7333333333333333, 0.6, 0.4666666666666667], SphereBox[{11.204488251260202`, 4.105118358743495, 3.4693719282196582`}, 0.1]}, {RGBColor[0.7333333333333333, 0.6, 0.4666666666666667], SphereBox[{8.558740089475585, 5.264664266257491, 0.615084740605867}, 0.1]}, {RGBColor[0.7333333333333333, 0.6, 0.4666666666666667], SphereBox[{9.940679624370933, 3.6169341848407517`, -0.5177732772025244}, 0.1]}, {RGBColor[0.7333333333333333, 0.6, 0.4666666666666667], SphereBox[{6.724910793871081, -2.7538019676016257`, 4.879037936751255}, 0.1]}, {RGBColor[0.7333333333333333, 0.6, 0.4666666666666667], SphereBox[{8.081935593676658, -1.6464884093520107`, 6.56884475090316}, 0.1]}, {RGBColor[0.7333333333333333, 0.6, 0.4666666666666667], SphereBox[{8.848245507835912, -1.7373673930189546`, 4.260700913556169}, 0.1]}, {RGBColor[0.7333333333333333, 0.6, 0.4666666666666667], SphereBox[{3.0001847523081597`, 0.024435589966593674`, 5.953922682582691}, 0.1]}, {RGBColor[0.7333333333333333, 0.6, 0.4666666666666667], SphereBox[{3.33316605557435, 2.4315130737764017`, 6.093951989708167}, 0.1]}, {RGBColor[0.7333333333333333, 0.6, 0.4666666666666667], SphereBox[{4.3854060794693, 0.9604074266018746, 7.722962679290262}, 0.1]}, {RGBColor[0.7333333333333333, 0.6, 0.4666666666666667], SphereBox[{3.2407761209285644`, -1.9957117827605426`, 1.3494740448187397`}, 0.1]}, {RGBColor[0.7333333333333333, 0.6, 0.4666666666666667], SphereBox[{6.4813986301367565`, 2.9489138822197276`, -3.4497317131095837`}, 0.1]}, {RGBColor[0.7333333333333333, 0.6, 0.4666666666666667], SphereBox[{4.2367453313111385`, 2.6103240331788573`, -2.571689075542385}, 0.1]}, {RGBColor[0.7333333333333333, 0.6, 0.4666666666666667], SphereBox[{5.665848316308252, 0.6942681146625471, -3.0301855467358054`}, 0.1]}, {RGBColor[0.7333333333333333, 0.6, 0.4666666666666667], SphereBox[{1.2701394306775509`, 2.084644498703837, -0.14420853853229865`}, 0.1]}, {RGBColor[0.7333333333333333, 0.6, 0.4666666666666667], SphereBox[{-0.5458383481192652, -4.289358808718668, -0.944620448800193}, 0.1]}, {RGBColor[0.7333333333333333, 0.6, 0.4666666666666667], SphereBox[{-2.5249667907168827`, -3.933976865185076, 0.4266606018962722}, 0.1]}, {RGBColor[0.7333333333333333, 0.6, 0.4666666666666667], SphereBox[{-0.3109609231447332, -3.812820807288997, 1.4305945940112306`}, 0.1]}, {RGBColor[0.7333333333333333, 0.6, 0.4666666666666667], SphereBox[{-3.0406426121298424`, 1.9073454546893096`, -1.5489288661374467`}, 0.1]}, Text3DBox["1", {5.698456758, 0.878136774940001, 4.594301851200001}, {1, 0}], Text3DBox["2", {7.491239814199998, 3.080820297800001, 5.136275268}, { 1, 0}], Text3DBox["3", {9.5614346472, 3.1034970098, 3.1087882425999993`}, {1, 0}], Text3DBox["4", {4.882851016399999, 0.9289515070800002, 1.878028596060001}, {1, 0}], Text3DBox["5", {8.354466651000001, 3.8282069308, 0.5798057313200002}, {1, 0}], Text3DBox["6", {6.0592054513999996`, 2.2315774334000005`, 0.10211134440999992`}, {1, 0}], Text3DBox["7", {7.0524454369999985`, -1.61707633272, 5.142133418600002}, { 1, 0}], Text3DBox["8", {3.3725819972000006`, 1.1005953196599987`, 6.2977008676}, {1, 0}], Text3DBox["9", {2.6546750898, -0.5363609305799997, 1.1590445448400004`}, { 1, 0}], Text3DBox["10", {5.0393203292000015`, 2.106288599599999, -2.5537757164}, {1, 0}], Text3DBox["11", {0.6153772769, 0.64390523724, 0.15027668069800004`}, {1, 0}], Text3DBox[ "12", {-1.60289648546, -0.7372954961599999, -0.3651328577199999}, {1, 0}], Text3DBox["13", {-1.7087589359800002`, -3.5256617982, 0.20480850388000005`}, {1, 0}], Text3DBox["14", {-3.647183175, 0.44584305518, -1.3762307540199998`}, {1, 0}], Text3DBox[ "15", {-5.778038212599999, -0.9728687393200005, -2.1119577776}, {1, 0}], Text3DBox["16", {-7.893019551799999, 0.22196721596000035`, -2.9294532452}, {1, 0}], Text3DBox[ "17", {-10.1026761636, -1.2491466805200004`, -3.6925246040000004`}, {1, 0}], Text3DBox["18", {-10.0310555482, -4.093335488600001, -3.570637277}, { 1, 0}], Text3DBox[ "19", {-12.184965242999999`, -0.07273177428799948, -4.4973589074}, {1, 0}], Text3DBox[ "20", {-14.311662883400002`, -1.573348073080001, -5.653304301600001}, {1, 0}], Text3DBox[ "21", {-15.202668692400001`, -0.312409502320001, -7.868819063999999}, {1, 0}], Text3DBox["22", {8.109489484663667, 2.903728211259311, 6.4812178711873845`}, {1, 0}], Text3DBox["23", {6.734642878661487, 4.364286561484166, 5.093885054731079}, {1, 0}], Text3DBox["24", {10.176240440020413`, 1.7495431404822184`, 3.0056824668467543`}, {1, 0}], Text3DBox["25", {10.604488251260202`, 4.105118358743495, 3.4693719282196582`}, {1, 0}], Text3DBox["26", {7.958740089475585, 5.264664266257491, 0.615084740605867}, {1, 0}], Text3DBox["27", {9.340679624370933, 3.6169341848407517`, -0.5177732772025244}, {1, 0}], Text3DBox["28", {6.124910793871082, -2.7538019676016257`, 4.879037936751255}, {1, 0}], Text3DBox["29", {7.481935593676658, -1.6464884093520107`, 6.56884475090316}, {1, 0}], Text3DBox["30", {8.248245507835913, -1.7373673930189546`, 4.260700913556169}, {1, 0}], Text3DBox["31", {2.4001847523081596`, 0.024435589966593674`, 5.953922682582691}, {1, 0}], Text3DBox["32", {2.7331660555743498`, 2.4315130737764017`, 6.093951989708167}, {1, 0}], Text3DBox["33", {3.7854060794693, 0.9604074266018746, 7.722962679290262}, { 1, 0}], Text3DBox["34", {2.6407761209285643`, -1.9957117827605426`, 1.3494740448187397`}, {1, 0}], Text3DBox["35", {5.881398630136757, 2.9489138822197276`, -3.4497317131095837`}, {1, 0}], Text3DBox["36", {3.6367453313111384`, 2.6103240331788573`, -2.571689075542385}, {1, 0}], Text3DBox["37", {5.065848316308252, 0.6942681146625471, -3.0301855467358054`}, {1, 0}], Text3DBox["38", {0.6701394306775509, 2.084644498703837, -0.14420853853229865`}, {1, 0}], Text3DBox[ "39", {-1.1458383481192653`, -4.289358808718668, -0.944620448800193}, {1, 0}], Text3DBox["40", {-3.1249667907168828`, -3.933976865185076, 0.4266606018962722}, {1, 0}], Text3DBox["41", {-0.9109609231447332, -3.812820807288997, 1.4305945940112306`}, {1, 0}], Text3DBox["42", {-3.6406426121298425`, 1.9073454546893096`, -1.5489288661374467`}, {1, 0}], Text3DBox[ "43", {-5.740840532808636, -2.442490478124714, -2.0491441131904082`}, {1, 0}], Text3DBox["44", {-7.929946824776779, 1.6918907012357112`, -2.9924067511604147`}, {1, 0}], Text3DBox[ "45", {-11.381811914544613`, -4.63839672328816, -3.8869259463009818`}, {1, 0}], Text3DBox[ "46", {-9.630547707164608, -4.522011515109373, -2.2006379222312407`}, {1, 0}], Text3DBox[ "47", {-9.043190643707353, -4.608327076407212, -4.561100386529379}, {1, 0}], Text3DBox["48", {-12.300513716959104`, 1.3887765581040856`, -4.369683294074903}, {1, 0}], Text3DBox[ "49", {-15.42488515931896, -1.6961703612792878`, -4.669850842760894}, {1, 0}], Text3DBox[ "50", {-13.81952294528996, -2.931922319568161, -6.0189564812349685`}, {1, 0}], Text3DBox[ "51", {-16.169542264804342`, -1.0398828061626113`, -8.353064498297293}, { 1, 0}], {RGBColor[0.36, 0.24, 0.12], Opacity[0.5], SphereBox[{7.195065307464575, 1.9797451773236876`, 4.865354166986277}, 1.1903004568009015`]}, {RGBColor[0.36, 0.24, 0.12], Opacity[0.5], SphereBox[{9.126337230699999, 3.0921586538000003`, 4.1225317553}, 1.1938723648075744`]}, {RGBColor[0.36, 0.24, 0.12], Opacity[0.5], SphereBox[{5.8906538872, 0.9035441410099992, 3.2361652236300005`}, 1.1625678924767877`]}, {RGBColor[0.36, 0.24, 0.12], Opacity[0.5], SphereBox[{9.5579506491, 3.465851970299998, 1.8442969869599999`}, 1.1922153222488148`]}, {RGBColor[0.36, 0.24, 0.12], Opacity[0.5], SphereBox[{6.071028233899999, 1.5802644702400004`, 0.9900699702350009}, 0.9927516555891636]}, {RGBColor[0.36, 0.24, 0.12], Opacity[0.5], SphereBox[{7.807119268525148, 3.0300891937235943`, 0.34101748162552803`}, 1.162892015105526]}, {RGBColor[0.36, 0.24, 0.12], Opacity[0.5], SphereBox[{6.9756852479854325`, -0.36990128571829206`, 4.868312373526277}, 1.1904394105843248`]}, {RGBColor[0.36, 0.24, 0.12], Opacity[0.5], SphereBox[{5.135117185323176, 0.9894045150241045, 5.446295912632313}, 1.1905480257740177`]}, {RGBColor[0.36, 0.24, 0.12], Opacity[0.5], SphereBox[{4.368763053100001, 0.19629528824999964`, 1.5185365704500011`}, 1.1253183349388942`]}, {RGBColor[0.36, 0.24, 0.12], Opacity[0.5], SphereBox[{6.14908382082105, 2.168911018526209, -1.226298501565036}, 1.1686678866153497`]}, {RGBColor[0.36, 0.24, 0.12], Opacity[0.5], SphereBox[{2.2350261833500005`, 0.053772153329999406`, 0.6546606127689998}, 1.025839738003161]}, {RGBColor[0.36, 0.24, 0.12], Opacity[0.5], SphereBox[{ 0.10624039572000044`, -0.04669512945999965, -0.10742808851099994`}, 1.0760376752772804`]}, {RGBColor[0.36, 0.24, 0.12], Opacity[0.5], SphereBox[{-1.0558462962107487`, -2.1319681801150003`, \ -0.08006211651282946}, 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.26351284207000025`, -1.7440942658099998`}, 1.0760826962707348`]}, {RGBColor[0.36, 0.24, 0.12], Opacity[0.5], SphereBox[{-6.235528882200001, -0.37545076168000013`, -2.5207055114}, 1.0258106188343346`]}, {RGBColor[0.36, 0.24, 0.12], Opacity[0.5], SphereBox[{-8.3978478577, -0.5135897322800002, -3.3109889246}, 1.1253355115916557`]}, {RGBColor[0.36, 0.24, 0.12], Opacity[0.5], SphereBox[{-9.466853280731932, -2.6717404680417554`, \ -3.6315595394883773`}, 1.168650063124714]}, {RGBColor[0.36, 0.24, 0.12], Opacity[0.5], SphereBox[{-10.5438207033, -0.6609392274040006, -4.094941755700001}, 1.0060089697829193`]}, {RGBColor[0.36, 0.24, 0.12], Opacity[0.5], SphereBox[{-12.648575423259079`, -0.8232243416083224, -5.075473664166019}, 1.1686322579877293`]}, {RGBColor[0.36, 0.24, 0.12], Opacity[0.5], SphereBox[{-14.169868812021537`, -0.9249016511669449, -6.79264816313953}, 1.1337187872076826`]}, {Opacity[0.5], SphereBox[{8.709489484663667, 2.903728211259311, 6.4812178711873845`}, 1.2357933686504747`]}, {Opacity[0.5], SphereBox[{7.334642878661486, 4.364286561484166, 5.093885054731079}, 1.235476938118349]}, {Opacity[0.5], SphereBox[{10.776240440020413`, 1.7495431404822184`, 3.0056824668467543`}, 1.2355730589675256`]}, {Opacity[0.5], SphereBox[{11.204488251260202`, 4.105118358743495, 3.4693719282196582`}, 1.2353780533600913`]}, {Opacity[0.5], SphereBox[{8.558740089475585, 5.264664266257491, 0.615084740605867}, 1.2353871297692312`]}, {Opacity[0.5], SphereBox[{9.940679624370933, 3.6169341848407517`, -0.5177732772025244}, 1.2356145987409288`]}, {Opacity[0.5], SphereBox[{6.724910793871081, -2.7538019676016257`, 4.879037936751255}, 1.235831756042301]}, {Opacity[0.5], SphereBox[{8.081935593676658, -1.6464884093520107`, 6.56884475090316}, 1.2355456477561668`]}, {Opacity[0.5], SphereBox[{8.848245507835912, -1.7373673930189546`, 4.260700913556169}, 1.2357130332048445`]}, {Opacity[0.5], SphereBox[{3.0001847523081597`, 0.024435589966593674`, 5.953922682582691}, 1.235890354920097]}, {Opacity[0.5], SphereBox[{3.33316605557435, 2.4315130737764017`, 6.093951989708167}, 1.235839640489124]}, {Opacity[0.5], SphereBox[{4.3854060794693, 0.9604074266018746, 7.722962679290262}, 1.2357521462040213`]}, {Opacity[0.5], SphereBox[{3.2407761209285644`, -1.9957117827605426`, 1.3494740448187397`}, 1.2160885328938793`]}, {Opacity[0.5], SphereBox[{6.4813986301367565`, 2.9489138822197276`, -3.4497317131095837`}, 1.2358872600617417`]}, {Opacity[0.5], SphereBox[{4.2367453313111385`, 2.6103240331788573`, -2.571689075542385}, 1.2357996583165434`]}, {Opacity[0.5], SphereBox[{5.665848316308252, 0.6942681146625471, -3.0301855467358054`}, 1.2357603015255403`]}, {Opacity[0.5], SphereBox[{1.2701394306775509`, 2.084644498703837, -0.14420853853229865`}, 1.215846824723846]}, {Opacity[0.5], SphereBox[{-0.5458383481192652, -4.289358808718668, -0.944620448800193}, 1.2357025058258968`]}, {Opacity[0.5], SphereBox[{-2.5249667907168827`, -3.933976865185076, 0.4266606018962722}, 1.2357979822662262`]}, {Opacity[0.5], SphereBox[{-0.3109609231447332, -3.812820807288997, 1.4305945940112306`}, 1.235767545619187]}, {Opacity[0.5], SphereBox[{-3.0406426121298424`, 1.9073454546893096`, -1.5489288661374467`}, 1.2159849801037783`]}, {Opacity[0.5], SphereBox[{-5.140840532808636, -2.442490478124714, -2.0491441131904082`}, 1.2157337494382183`]}, {Opacity[0.5], SphereBox[{-7.329946824776779, 1.6918907012357112`, -2.9924067511604147`}, 1.216034289865974]}, {Opacity[0.5], SphereBox[{-10.781811914544614`, -4.63839672328816, -3.8869259463009818`}, 1.235827769989031]}, {Opacity[0.5], SphereBox[{-9.030547707164608, -4.522011515109373, -2.2006379222312407`}, 1.2356247627619668`]}, {Opacity[0.5], SphereBox[{-8.443190643707354, -4.608327076407212, -4.561100386529379}, 1.2359745373753002`]}, {Opacity[0.5], SphereBox[{-11.700513716959104`, 1.3887765581040856`, -4.369683294074903}, 1.215917857231867]}, {Opacity[0.5], SphereBox[{-14.82488515931896, -1.6961703612792878`, -4.669850842760894}, 1.235479740145197]}, {Opacity[0.5], SphereBox[{-13.21952294528996, -2.931922319568161, -6.0189564812349685`}, 1.2355124012820666`]}, {Opacity[0.5], SphereBox[{-15.56954226480434, -1.0398828061626113`, -8.353064498297293}, 1.1252864433636154`]}, {RGBColor[ NCache[ Rational[1, 3], 0.3333333333333333], 1, 1], Opacity[0.3], SphereBox[{2.771888217587115, -0.49233762230389166`, 2.472429021810596}, 1.4]}, {RGBColor[ NCache[ Rational[1, 3], 0.3333333333333333], 1, 1], Opacity[0.3], SphereBox[{0.7325904046871141, 0.6879285455161083, 1.4636611576685956`}, 1.4]}, {RGBColor[ NCache[ Rational[1, 3], 0.3333333333333333], 1, 1], Opacity[0.3], SphereBox[{-1.4856833576728858`, -0.6932721878838913, 0.9482516192505956}, 1.4]}, {RGBColor[ NCache[ Rational[1, 3], 0.3333333333333333], 1, 1], Opacity[0.3], SphereBox[{-3.5299700472128857`, 0.48986636345610834`, -0.06284627704940426}, 1.4]}, {RGBColor[ NCache[ Rational[1, 3], 0.3333333333333333], 1, 1], Opacity[0.3], SphereBox[{-5.660825084812886, -0.928845431043892, -0.7985733006294047}, 1.4]}, {RGBColor[ NCache[ Rational[1, 3], 0.3333333333333333], 1, 1], Opacity[0.3], SphereBox[{-7.7758064240128855`, 0.2659905242361085, -1.6160687682294044`}, 1.4]}, {RGBColor[ NCache[ Rational[1, 3], 0.3333333333333333], 1, 1], Opacity[0.3], SphereBox[{-9.985463035812886, -1.2051233722438925`, \ -2.3791401270294052`}, 1.4]}, {RGBColor[ NCache[ Rational[1, 3], 0.3333333333333333], 1, 1], Opacity[0.3], SphereBox[{-12.067752115212883`, -0.028708466011891587`, \ -3.183974430429404}, 1.4]}, {RGBColor[1, 1, NCache[ Rational[1, 3], 0.3333333333333333]], Opacity[0.3], SphereBox[{3.737461962012886, -0.5803842388561079, -0.15433993213059538`}, 1.4]}, {RGBColor[1, 1, NCache[ Rational[1, 3], 0.3333333333333333]], Opacity[0.3], SphereBox[{1.6981641491128858`, 0.5998819289638919, -1.1631077962725958`}, 1.4]}, {RGBColor[1, 1, NCache[ Rational[1, 3], 0.3333333333333333]], Opacity[0.3], SphereBox[{-0.5201096132471141, -0.781318804436108, -1.6785173346905955`}, 1.4]}, {RGBColor[1, 1, NCache[ Rational[1, 3], 0.3333333333333333]], Opacity[0.3], SphereBox[{-2.564396302787114, 0.40181974690389166`, -2.6896152309905954`}, 1.4]}, {RGBColor[1, 1, NCache[ Rational[1, 3], 0.3333333333333333]], Opacity[0.3], SphereBox[{-4.695251340387114, -1.0168920475961087`, -3.425342254570596}, 1.4]}, {RGBColor[1, 1, NCache[ Rational[1, 3], 0.3333333333333333]], Opacity[0.3], SphereBox[{-6.810232679587114, 0.17794390768389212`, -4.242837722170595}, 1.4]}, {RGBColor[1, 1, NCache[ Rational[1, 3], 0.3333333333333333]], Opacity[0.3], SphereBox[{-9.019889291387114, -1.2931699887961088`, -5.005909080970596}, 1.4]}, {RGBColor[1, 1, NCache[ Rational[1, 3], 0.3333333333333333]], Opacity[0.3], SphereBox[{-11.102178370787112`, -0.1167550825641076, -5.810743384370595}, 1.4]}, TubeBox[{{8.091239814199998, 3.080820297800001, 5.136275268}, { 6.2984567579999995`, 0.878136774940001, 4.594301851200001}}, 0.06], TubeBox[{{10.1614346472, 3.1034970098, 3.1087882425999993`}, { 8.091239814199998, 3.080820297800001, 5.136275268}}, 0.06], TubeBox[{{5.482851016399999, 0.9289515070800002, 1.878028596060001}, { 6.2984567579999995`, 0.878136774940001, 4.594301851200001}}, 0.06], TubeBox[{{8.954466651, 3.8282069308, 0.5798057313200002}, {10.1614346472, 3.1034970098, 3.1087882425999993`}}, 0.06], {RGBColor[1., 0.75, 0.5], TubeBox[{{6.659205451399999, 2.3515774334000006`, 0.10211134440999992`}, { 5.482851016399999, 1.0489515070800002`, 1.878028596060001}}, 0.06], TubeBox[{{6.659205451399999, 2.1115774334000004`, 0.10211134440999992`}, { 5.482851016399999, 0.8089515070800002, 1.878028596060001}}, 0.06]}, TubeBox[{{6.659205451399999, 2.2315774334000005`, 0.10211134440999992`}, { 8.954466651, 3.8282069308, 0.5798057313200002}}, 0.06], TubeBox[{{7.652445436999998, -1.61707633272, 5.142133418600002}, { 6.2984567579999995`, 0.878136774940001, 4.594301851200001}}, 0.06], TubeBox[{{3.9725819972000007`, 1.1005953196599987`, 6.2977008676}, { 6.2984567579999995`, 0.878136774940001, 4.594301851200001}}, 0.06], TubeBox[{{3.2546750898, -0.5363609305799997, 1.1590445448400004`}, { 5.482851016399999, 0.9289515070800002, 1.878028596060001}}, 0.06], TubeBox[{{5.639320329200001, 2.106288599599999, -2.5537757164}, { 6.659205451399999, 2.2315774334000005`, 0.10211134440999992`}}, 0.06], {RGBColor[1., 0.75, 0.5], TubeBox[{{1.2153772769, 0.76390523724, 0.15027668069800004`}, { 3.2546750898, -0.4163609305799997, 1.1590445448400004`}}, 0.06], TubeBox[{{1.2153772769, 0.52390523724, 0.15027668069800004`}, { 3.2546750898, -0.6563609305799997, 1.1590445448400004`}}, 0.06]}, TubeBox[{{-1.00289648546, -0.7372954961599999, -0.3651328577199999}, { 1.2153772769, 0.64390523724, 0.15027668069800004`}}, 0.06], TubeBox[{{-1.1087589359800003`, -3.5256617982, 0.20480850388000005`}, {-1.00289648546, -0.7372954961599999, \ -0.3651328577199999}}, 0.06], {RGBColor[1., 0.75, 0.5], TubeBox[{{-3.047183175, 0.56584305518, -1.3762307540199998`}, {-1.00289648546, \ -0.6172954961599999, -0.3651328577199999}}, 0.06], TubeBox[{{-3.047183175, 0.32584305518, -1.3762307540199998`}, {-1.00289648546, \ -0.8572954961599999, -0.3651328577199999}}, 0.06]}, TubeBox[{{-5.1780382126, -0.9728687393200005, -2.1119577776}, \ {-3.047183175, 0.44584305518, -1.3762307540199998`}}, 0.06], {RGBColor[1., 0.75, 0.5], TubeBox[{{-7.2930195518, 0.34196721596000035`, -2.9294532452}, {-5.1780382126, \ -0.8528687393200005, -2.1119577776}}, 0.06], TubeBox[{{-7.2930195518, 0.10196721596000036`, -2.9294532452}, {-5.1780382126, \ -1.0928687393200005`, -2.1119577776}}, 0.06]}, TubeBox[{{-9.5026761636, -1.2491466805200004`, -3.6925246040000004`}, \ {-7.2930195518, 0.22196721596000035`, -2.9294532452}}, 0.06], TubeBox[{{-9.4310555482, -4.093335488600001, -3.570637277}, \ {-9.5026761636, -1.2491466805200004`, -3.6925246040000004`}}, 0.06], {RGBColor[1., 0.75, 0.5], TubeBox[{{-11.584965243, 0.04726822571200051, -4.4973589074}, {-9.5026761636, \ -1.1291466805200003`, -3.6925246040000004`}}, 0.06], TubeBox[{{-11.584965243, -0.19273177428799948`, -4.4973589074}, \ {-9.5026761636, -1.3691466805200005`, -3.6925246040000004`}}, 0.06]}, TubeBox[{{-13.711662883400002`, -1.573348073080001, -5.653304301600001}, \ {-11.584965243, -0.07273177428799948, -4.4973589074}}, 0.06], TubeBox[{{-14.602668692400002`, -0.312409502320001, -7.868819063999999}, \ {-13.711662883400002`, -1.573348073080001, -5.653304301600001}}, 0.06]}, AspectRatio->Automatic, Axes->Automatic, AxesLabel->{ FormBox["xl", TraditionalForm], FormBox["yl", TraditionalForm], FormBox["zl", TraditionalForm]}, Boxed->True, ImageSize->{369., Automatic}, SphericalRegion->True, ViewPoint->{-1.2658470086815645`, 0.14517077400263206`, 3.1347339276224724`}, ViewVertical->{-0.5070801699190022, 1.8001881509805353`, 0.6286742110643623}]], "Output", CellChangeTimes->{ 3.5727666202455707`*^9},ImageCache->GraphicsData["CompressedBitmap", "\<\ eJzsvXd8G9eVNvys7dhOsqmbTbLrZONks9lkN4mTTVln3+wmjuMS26os6r1R jZIoir33XlFIsBMkKtFJECwASZAAewHBBlaxSKKqJbnETt7vt+8ZzICGFZj2 t98f3z8vfjqYwYCYufec55zznDv3jrYcCQ06cf5I6OljR559JeTIxaDTxy4/ +/KFEDr0+F8Bf3WJ5OyzYPb/G/C8/Tf9++8Q5o058n/3/+/+/4/7z7v3H8f7 77+PwcFByOVy/LvX979w7z+18X1CQgJOnjyJY8eOITg4GKOjo/il19//zL3/ ady5cwfV1dXIzc11//3+/fvxzW9+E6+88goKCwvdv/f+3U+433lfJyIiAi0t LVAoFO7969evY3l5GY9xbQ4MDMTbb7/t/vTXzPvjjH/9k9dZf+Te/8xfnNVq teLdd9/F1NSU+1hjYyPz+QnuxEajESUlJe5PX+COsa7rPiu+43WJf/W6BHMa 5nQ8Hg/Xrl1zf8McZzrBXJYu8SR3ugcPHmy0333sCeYCn/qYi33fvf/kR/WH VcwT7q+9uvW0V7e6urrcnz7/MVf6p0euxNjS60qPe13J0zvq8We8esdYmOmd 2zKPPWqZf/Q6/6Nq27DEX/Tkr7nz19fXb/Tksz568l2vKz27uc4+5bsnn3+k JxsYc/fE+/zf9Dq/B/Ve53/Kd088sLp586a75Ywf/ZvXWZ/5iFYziH3krH/R 6ifx3nvvufXDIIzxOJ1Ox/TC+wJf31wtn/bd7M9zh2dmZtwnZiBFRvblkT/x uthX3fuf+lBUYC7EWNtjP6YRTAPGx8fxVR+O6H2+v9lcO5/13fiv+fA977N+ cXOVfI77OXMRpgNMQ//eh2s953XKz3Md98Cc+Z0H5p9/pJVchHjGhw95n/Kz m7fyCz5a+Q8+3ObHXqd8enNn/6Lvhn7Lh4t4n/XJzV38Sz4a+ix3JQ9+Oc/w Puvjm3f/y15t9XSDDj/L2YFxMyZtMZrgnOJDbf5oP/6Kj+Z+h/sJowEP7Bnh wMVmH/w/m4P1K75b/M8+XOCH7An/tLkKvurVUuYr5vAPfECfO9t7j/im50yM mb7mu23/6gP17DG8s3lnv86d8JHE+0MfmOdO+HDzzv6dj0BIh5/zgfh/YU94 fxOXfMZ3837iA+nc2e5u3rxnfDfvpz5wTsyGO+etzc/5Td/R7adeEPeEZubX TIO5E68/0nVvj/wH3xnl331EdpaF4NrmzfyW72Y+74UdD665E65s7oHP+m7h f/iANnfCqx/RQi4Cfdt3C3/tA92sN2Jh8y5/x3cL/8sHurkTzn2E8zHk9Lu+ m/dbH9D+Hnu2mc2d7598ZNrf+YA2d7bJzTv7Pd/N+50XtJkmctDmzun0QQQ8 CPy+V9zyNO9F7u8ZWzwKau6UY5s38/u+k9erPnDNsbrhzU/4Lz4SwWs+QM2d bXATn/tX32173QeiubP1bd62H/po21YfcHZHTTeTZVM/bF7nZX78CBZ/5DsP bPMBbA998abjLMdGt4/GexGCH/to/E7uWGZm5kbj/55rjPcV/psr/v6KvVLn 5mp6znd3/Hz4wt9vaMpNPP5q4yLclSybOPBPfSRif+7SDO9nOsW5x8ddpm1z z/6p7w75P+I9TPHs8Z6/86FFej3m8/KmzfX5M99pc48PH/vURke/sLH32MYe 2/uNNnFXN/oIGswlGNz8zMu9vMcnGP17qPDVpVsbXfyDD099wrcq/tanKgyf RBVP+WQXzJ8yW7ZK/gxWVm6jt9eFvBw9+NkGlGcaUJ1uQG2KAeIE2kbrMdHu esULlomJiW5VfkSTv/JhnQLaT9LajxlPeNz9kRmEYT6xAeNzUCl7wCs0oJSk psAAWb4BqlwDdFkGNFInGqkTjYkksQY0Regw1zLNlXqfRo9tBr12F3Iz9ODR 35akGiCivzVW2TBuduHG/C2uGP5w2Hrcd69ZUgn1JpH255u4qWfQ5eHDh+7f MMfY2uVLuLZ6CyVFWpTxDKgikRYboC6iXlGPW/IaYc5pREd2IzpJurJoSybs TCNJ0GO0zIq7czfxFKex/r4ZFBaQqem3FaQtMWlLTmZvoN9oSAOaJAO0cSRR BthKenB77hYeZZ6M7TfXgvJ/ZnEukDztZXHm6w/c429wnXRRwdOiSkAWJ5Hz G6HjGdFc1AJzYRusBe2wFZrRV2xGP9+MAX4bBngt6C8yop901Z+hgy1WgTfn 17lzfhFrdE692obCHDXyUuTgJ8tRkSiHOE6OJtKPifTTlmFAO6GknfTaTqgy k2uYI7UYKLZ41OOdHh7bVD2yR/r/CBi81eMjD37WCyrp6eluqHjUU13cgFqB HmJhE2QCE3SkAhOvCx3FPejh2dEn7MVQaR/Bog+Oil4SO0kPxsq6MFpqxhjP hNE8LfoSJZyJv4zF+WtIi6tFUmQ10iKqkRdeDeGVGlReFkN8sR6yYAl0oUq0 xGphK2iBvcAEW74R9txG9BKs7EkaOESW5x5B0YYvuUMFmwkg8eq6j3LdF3C8 vvaMlzG/9ACHtcS/oEVtQT1fC4mwGVKhGRpBN5r5vbDwBtAjGMGAaAwjlQ44 asYxIR7HVJ0D03VjmK4fwZR4CBM1fXBWdsNZ0oLxggY6zuYjRb0ZqRFlyIiq RnZ0NQqixBBFSCAOU0AeqoLmsgaGUB2MYXq0hOvREd+E/gIzhku7MCS0YJjA OZLfiKEMFSYq237IxQjvwTMuPXPVEcT/n8IpO+Lxkw30eNC5vnoDEp4CUoER MmEnlIJeNAqG0M4fQ7dwAv3l0xipnsF43SympHOYkc9hVjGHOaUL88oZ2p/E lGwczvohOGt64BQ1YzC3BlVZ9chNqEROdCXyY2pRGC2FKEoFcYQeyrAm6MNM MEW1oi22DR0J7ehKbEd3Uht6ElowWmLHeFUfxisoJJdaMM5rwliODA+Xb/yA S3HeemJ6yeiJGRdkEMbpq2aTsOsJyb4ypTv14rmNjMl8am9ogYzCj0zQQTIA FWnHxJtEh9CF3op5DNUuwSFZxqR8Ba6GVcyrV7GoXcWSdgVLuquY1y5iRj2H CeUknNIhDJe3oy25AjVR+ciLEqGQNFQc04CSaMq8kS1QRligj+xCS1wPLMl2 WNN6YcvoRV9WLway7RjM6sFgRichZxiTdSOk+X44KzrhFOoxklezMeTCqIgb JuX8+sOM6Busqio3D8wfA62vcdBaXFzcgJa0gAJEsYmU1kvigIY3gxbBAqzl y+ivXcOo9AacinVSyi3MaW9jUX8bVxtvY7npJsk6FpuuwWVYwYRuHk7VBNoo hrfnSMG7nElQqgEvWg1BdAsqosggkTZoo/thShiGJW0U3VkO9OaNY6BgHMNF 4xgtdmCseARjhQOkHIIUubmTgWwdKa3KDGeZEjf6hz0lAKMvpnj00k/Z5grY LME/44Wmq64FyCiGyIo6STnDkBdPQ1u8hFbRGrqr1zFYfxsOxT1Mqu/DpXuA hcaHuGp8iBXTA6y2MPImllruYLZ5HZNNK7BW9MNMic6QLYEwrADFUUrwo1og jOpGdeQAlFGjaEp0UgKbhjWHkFo4h0HePEaE83CUzJNvzcFZOkOxbRIOwShG RCOYULnglDvglNjhFBux0GSCRzPeJJDTTKkPeuwZwPv55qhya4ZNlT8iBqeH rNAGz0snWENbxS30iN/EkOwhxlVvY1r3Luaa/ggLgX+59T2str2HtfY/kryD pfYHmG27g6mW6zBTkjNTmFWk1VHCEoIX2QRBRDdKI4dRGzUBVbwLprQFdORe ha1oBQN0rRHRNTjKr5NDXcNk1RrJCskihaAZDFOKcFC4c2qm4WygMKfooHAo xXNegPEQANbcEHxyh/KR6b/FORTzYuI186onasu8ZPlTkBctuffbqu+hR/IW hpR/xLj2T5hu/DPUWeNoJQI4Q1Fh1fK/ca3jz1jreA9XO97GnPk+BtULMFcN w1xpR1VsGYShlRCENUIYPoCyyAnUxc5Dk7KMluxr6Cq8iV7hbQyV3cVY1T04 q9/EVO09ypF3KUfeou11jNdepfwwjSHGqQzkrHraam1wKjWPZv4PKnQUfxKH +sh8zw51fcWtA4VIgpIoGaub3BnyqRX3fmvtfXTL3sGQ6n2M6/+MaeP/Rg/5 l01+Fcukl9VO0kvXn0hIN10ErM6HLBa/RpiRbOCwLNKF+sRlaDPW0Zp/F1b+ ffSWPMBI2X2UntPCFFyFack7mJYRPmUPSO5QgL+OkfpFDNSSG5muwtk8BaeR Yo2uCb5IIzumgMJNctJHudKHhsPYcY+MU0LUp/WDrWl/AE35bbSIH8AqfwcD 6j9izPA+Jpvfh6vtfSxY3sfVzvexTEpYtf4Rq93v4Kr1Lcx1PUBn3ZT7DGYi QsxLeIWCy+Ve2k6wgEy5Dm3OHbQW0d8K3oFd9C4B4Y8ojbLBRGlySvEeZpTv YrrhLUwr3ySvuYURSo8DUtJG2yqc7eRRrYOkmea/qDS8tJL3yUKvL6WxSfAL 7tbmBolYiGS5KPSuuvdN4vvolL+Ffs3bGGl8h2xFdmwjKFjewWIno4m3OZ0+ jlnrPXRIpmCWTcIzWiAMIY2EDIAteZnXl6HJu48W/jtoyb+DnrK3CAd/oqRP Gle+h6kG0oaacKImnKjJnVSkESIL/YpZDDdSbOmYhdMyDGeL6ceb0EFOMdmb FxMfgxh2ZPLvHi1UKD7KWT1lTJOeWFdqEt+FRf4m7Jr7GGp8AIfpISbbHmLG 8pDchtKU9T4Wu98kuYeF7jvu33TInSx6FCOcDv8Wucc6IYpjda8uuA9V9k00 5l+HteoBhuTkpur3KL6+gwn1W5jUPiB5k+Q2xd0bGNGskJ1ITyZKV92kp64h jLcZ4VGUN9FheCAzvMIpKnPz2mKz5P3DjTqFY0/j5hmk7a/mzP0lKEqvQ19z E22y27Cq76DPcBfDzXfhaLuHCQtFyc67cHVRxrbexlz3Tcz2rLt/aVGMcuoZ +EA9u5QoPq53f2oovAej8D4sFQ/QU/sQ/dKHGFY8wJjqAcbJDE4twUdHoUa3 TtFtDcP6RfQbCEI2ciwbOVb3AOaG+jZGAb1Hc7mSK+3/fQj2ymDsCMnnIQhq QPZxIsa5s1Q+rEBdvYZmCeVg1Q306NfRb7yJ4ZabGGu/Sdgm2tK5jqmu66z+ nsB43/JGqG2R2z2qKDqsR2lwm/uTvOAWDEKKMxV30Fl7F3bpXQwoSM2qOxjV 3MaY9hZGSQ2j+msYNVzFUNMs+oyUhHqXSKYw3t2Lh/fu+hzT4eryZK+++oCB typ8ZOtfcKqYHlpE0q561CSPQVI8D3n5EnR1yzBR0LNoVtFtWENv8xoGW4lu tK9i1LKKsa4VVhVPYahvDm26gQ115IQ0u7epO+s2oktZ4hjq865BLbiOpvIb aK9ZR5dknZIaabrhBiX36xjSXsOQbhWDpItB4xz6TZN02WGM98/B0TuO2fGJ n/ngc5wqEjc3+8ck5uc5VQipAC4KtkBMCVksnIW8ag5ayQKMykW0UynUZVhE j3ER9tZF9JkX0N81j76eObabf4+WZjblyLKHIctbdO/HbKtC9lEdikJaISRO W5WzRAHqKrSiZRiJrLXXraBTtoJu5TJsqqsUrJZg1y/ATnCwmabQ3TKGvq5x jPTPYNA+igdv3v+5D0SwtQzi/mfOwX39v9xf/7Wbu2WHVaEszoGqfBdqSlyQ VruglsyiUTkLk8aFtsZZWEyz6DC7PLmmjRzYZJ1EzsVSzvJ/i8iTAuz5TQji /eqQd9YGQdwkSjJmUF1AfieYoyw/j6aaebTUzaFdNgdLwyw6NTPoNEyhw+ik S4yhrWUQff0u2MkrRkYn8Asf/Izrf8xHBMUPuMinYbPPQCqxIvZKBaLO8pBw ho+SWCWqEw0wEbt0UIJnb2f+szvutuhsKEkcR2meC2VUN9dWUSqWuKBqcEGn d8HQ7EJjG20t9LnT5e54Xkk99vnthN8LL+H1n/4WW3/+e2z/5cs4+XwQEned wZXXqhGyS4rUkA4IsyZQVTQBiXASDeWT0NZMwlA/gSaFE0bNOJoNDjL1KBrJ GVo6HOig9g865uC5y8xQMub+NfOJncaAyE/iDZ+DrduJ5IRahF8oRHxwARmn Gg3ZWuhzDGjKNMCYStskAwzMAGsEcfPWGbB3jr/3ofGYfutNFOROoKjUBWGN CxUywoyaNEXaERtZjRRUNuL4kSPu/SP+23DcbxsCnn8RO//tRfj/4iWE/DYE e369BcdePI3g12twzL8SQYdqkZvUh7JCB2HQAUmlA7K6MSgUY1CqR6HUj0Le OAKliepF6zRcS+ueO+XMrSIPI+OUErY5+H/MRVY7qVcht6E42wARFS9VGQbU kCJqCB6y3CbEhRYi4lIhchKrUZevpkLYgOZCA9oLDOjMM1DBakA3I/R7Kymx I80Ac7weQ6U9uO26+SuugQw6GXN8MOb3JHoGieeP3YHdeQe9k0TEJm5iemKc 9a+v4gSpLYjkDKlu369ewq6fv4TkLeHY9xt/HP3DEZzacgRBW/Nwao8YwScU SE21o4g3CmH5KES1oyiTjqJcSfukugr9GDqGV3Dz7lv/vgln41QXuglbfY6r H9dWb6O4gPJfkQFi0oeC9KElfWjS1RCHVYN/vBCpQYVIv1SG3JAK1KbI0chv QltxM7qKWmAvasVAcSuG+K0YFrRgRGDCMH0/WNSIvnwD7Ol6dEY14O7cOjxW 9h65eZJjhqQwAg8BKWCrW06Sxk77b8dZkvP+O3DBbwcO/q9XkL8/Cnt/9QoO /s4fR17yx+EXt+Dgb17CsW1hOL4/D+EpNiSS9lLKSKpGUUCg01rnsHb7LfzK B3tjXJBhb5zKLm2Otp9wwzQ6VTdExXpU80hjJKo8NeRJdai5LEDVuULooqtR GiFCUUQFeJE1KIuoR12YHNpoLbr5VvQLujFCyHKU2zBR2UO1fw+mqqy07YSz woyxUhNGSYtDuVpM1nZ60Oe5ZcN2g00gjNKOk8KOB2zDyYDtnNJ2kNJ24iLJ pYCdOPTrHSg9FYYjv30d+379Kvb916vY/5tXcOAFUiTFukMv/B4Hf/siQc4A udmFjhGC2L134D2bw8Pn2PFKBG+uKJb+/AOa1F2o4ushFhig5OlRmyRGWYgA krAKWDJ1sBcYoUmTQBhVhtIYMSpiFJDEaKCJojgW0YyORDNGK4YxUTOC6bpR zNaPYl46QjJEMkCfezEt7oazyoLxEiNG81W4ZnWyE80+w0YFhR3F5Nki8uwq 8uxa8uxaCo+1cXpMuO/A3fZMbfS++fcEF4T0Cgm58BacIB2fIP2e2tDvDlwk 3YYE+uHyLj8c+a/94B0/i7DdO3FhB9nh9a048vJr2PsC6Zv0vO+Fl7GXdBx+ 8hyu3Xn7BR9sgG01zj3itn95c+9ZGFUWVBQoUJhSgyxm0Cm0DMokFToLzBgU 9mC0zEZAsqMkUoiKWNJrnAZ1cc1Qx7XDGNsBc0IXupOtGMjphUs6g3nFDJYa ZnBVNY1l9RTJBH12YFYxjElpH5w1BExRE0YLpLi/fP1LXCpio4cOJRQ9qil6 yCh6qCl6bKQi0rUxmfbjKR1F6WET9HAFwYfvQT7Bne+E3xvk+az3M4o+TUo+ RyAODvDDJU7RV3b74dxLx5B34izC9/hRGI6g96fofSd9Jtm9A+G7tiM8cCuu BLyBOacDL3gB2UNBOW2f3hzILGv5NlYWV5Eby0dmZAlyoqqhyG2BWdBLPRrE kGgYDoo1UxStTXk6VMZUoypei+qENsgTumGI70Vb8gCsGcSIsunvcwcxWTGJ q5plrOqvYs2whGuNi7hmmMeywYV53RSmVQ5MyPvhrLXAWabBjQEH2MmpX4Re ZYWInKmSIo+ERE25rIm030rat5D2u9y5rNGdz6yUC7vSKcdRHmyP0ODe3K2v e6H9w/evPge9vJ6Uv4WUv9VtgFNkgDNkgPNkgAtkgJBd/gjd7Y8re/wRvu00 8s+cod9G7vXH04jc50/ih4i9jOwkg+xAxO5tZIwtaFXW/84H4tnJzTj5SSqi f3LfS+8hplqcq8SlEwUIO1SE5NMi8Cm/1Gda0CIYhlXowED5BBw1U5iqn8Gs 3IWGVCmq44gqxrdBnGBDQ8IwjCnjsGRNwpY/hcHiKYzxJ+AUOLDaeBPXjeu4 YbqB9ZbruN6yhhXTMhaofpgxzGBC44BTzgxWmzAmquEmXnwZTSo20DF3i2Uk WorepmITOig/9hS2oa+oHYO8dgwJ2ilPUq7kN9N1mZt0lCez9OiJV+HNhZtf 83IOz13Xx7iBJYNcglN+W9xkgrFLENnlnL8fggP9cZHsEkJ2Cd0TgLC9ATj7 m1MoOH+C7BGAqP0BdI6o/f6Puc3zBJlrJ8l2MtBWosiRvubFcYY5/hHO8aHB jH923+7PyWpA/JUSJJwnRkoOUJ+kQFlwBcrPUfoLqkfZcSlEB6XQRnZgpHYB E9IlzFL1tKheQVVkJWrimlBDzlKfMAJ18iSas6ikKFhEL3+JUuUSxssWMFUx i0XFKm60vYmb7W/ilvkubphvY5XK/UWqc12mJUwwQ1uaYW7YXMFNPf8bjPZN oJZPUVBogFTYDJ2gDS38DnTyrLDzeyhq2ilq9mK8opdSsp1SMaXmqm73fS6H qB1jgmaM5OvQlyznqtdn3Dj1eBAjJ3e+ThbaiiC/7SQ7KHxRqArwxwWyzqXd AbhM1rlC1gnbF4jQV8OQcnwv2SUQUQcCEE3CbMlOiNzvR6baiai9O8hQ2yin vMEB7SlcXb5NjuCiAtaFgW4XBrtcGOpwYW3hNn7ko7ZgZ4njyCcJc1/BhHMW yXEViCSqnEhSkVIHda4aLRRadAlSyC9VQXlRDGWwFKpzcjScUaDhpBJNl0yY brjBMlDDLVRHyijBtrMc+G/QkncVXbw19IluYKRyHRPV1zFTu4pRKg/WLe/i Vuc7uN35NtY7H2Kt8x6WLDcx27aKyeZ5OA3MEH8PnEod1kYG2KUpREOur9yA uJjogoAxaBtUwi40C+zo4PfDLhzGEDFAR9UY8ScHZuooldWPYU4ySjJM+wOY EvcSbbBSWmuBo1CNaUkrV48+8xe3rU/ueIMMutVt1CAqED8wbABr2L2BuEJG DSNjJvjFIfIAY1SSg4GIPugxLhmWkf1k2P1k2P0UGvduAbvW4rPkRC7k5+vB I9YsyqV8SnylnnKojHKojPiKjMo5eYQOU1TOeWalM0b2uCxn6EObDDCyVv7R xtCSoFiEqEu5yEmqRm0BFUV8qqV5TeigwNRTZIQutAqN4fXExORojlSihZGI BrSEqWC6pEIjlSvMa7X5AWoi1aiNsUIcz441ajOvoiV/DV2C6+irvIPR2ruY qL8LTVIPTFFqXJWP4bb1T7jT/R7Wu9/FWvdDLHXdxazlBibbluA0TbK3MbRN uO4c5sz+VbQ2tEDKU1OQpeQqsMFACZiZPdAjdGKwnAJ5zQwm62fhks0Sq6F4 0TCLJZXLzWwWGybgUjiI0QxRYiVIlTfDwZPiwcr1r3G51fs2vNvqO6l62+mx uj/OBXJW3/OB1cPJ6jlHkhirP+Y2+dNkdNbwUSRuox8gjz5AYffAdvL+LZ/l Qvo14k+CIj1KKIOXcRWYnOyvIfsbyP5NVMU2UxVrIvs3E4dqiaZtqIaqqVvc tGrfBSCHhf2bDyiwcHj6Q1/nZhVAmE2EsVBFXtUEvaCZdeKnMUQO1hrTsDFk 2JlshDWlCd0pRDOS9ez9rK+j7Fw9aqPtEMexY/LavOsUaG+jq+Iu+mrexEj9 fTil9zCtoFK5ilhQ2y3c6vkzbtvex7rtPazZ3sZS933Mdt7EpHkFzvZp9s5N UzOuTQx7cCAprIeM1wwZ3wYlfwRNlMCZ+RF9FfOEtUVMSK6SrVewoFrFkmYV K7oVIltEuIhsXdUvYE47iykVYUxOWBB3wVmpw/rQGIuDL32oRs2JicSpHRwO drI4OEshPZg8/+KewA0cnNseAP75RDLyLkQSAB53g+FJFgQHCQQHCQQHiRgd 3I4r+7d8hrvU9bXbqCA6V0HeV83nKJ174l0jBc4mmHPII7Oa0EVizSbJaoSV KF13ih7WGDVDG7gJ4h8ubT3zPjkw7PkkGeCnH7l+tKpQijq+DhKhCVohQ7as 5Ns29Jf0YaSMHUjuTGlGT7oZ9sxO9+eB3C4M5nXQ1uz+3JfWyN5vCKqG4GQ1 qkMtEMeyN/40hbdgEt1HZ80D9NYTTAgi44q7ZCNKBeo13Oh5Dzft7+GW/Y9Y t1O8sBNMeh6473VMdq7C2emC0zKEcVMzFyu+BodtGLLCBsiKOwgrQ2jgTaGZ P4+usmUM1KzBIb2BaeU65jS3sKS/jZXG21gz3sL15pu41nwDy83XMN+0jGnD HHEKIohKikeUJhwVtdxUx0/D3uuCgghhEblrCYXrMrJMJZU8FQkGjFtcGGub 5iaS/t1GuWOQEZPbTiwu4CCC9p1H0JEMXCAJO5xBYMlAzL4MxO3OQPiWTKop UwkwDKBIDlFKIWHAFXkoABGH/EmIbR+isodA1aaW4tMc37mxdgs1ZK9aSo+M SPmN0JC/GImQthW0ozPfgp6CDvQWdaKfRzbiWUjM7sGcgXwjBrP16E9uwIPF 9Y3lCt7jAGwJiF2PpBvvMaZfblLIPsYNWo/1OVDPa4BUYIJSaIVR2IdOwRB6 S0cxUjGOiVr2/q89qwv9eb2eQesx/gBG+X0YKu7hBq2/jr54OSpOV6I2jIJP zKT7qKrwBoyie7BQ4LHV3cWQ7DbGGm4Sjb+OaSq/rtnewQ1C0nrvW7jR+xCr 9gdYsr0JV/dtTHQTqohhOTsHMNbS6AGV0z5GdW4jZEV2knGoiudgKlmFtYqd UuNU3MOM5j4WDA+w3ER8xvQQ11sfEml9gOtEXFfa7mCh5QZmmpcxYWDmeYzA qaLyWqrkBnU+h4F+l3vGcQlJNVEvCeUEJeUEDVVzOgKYPoWhY1RlxFCoCCNO YJriRtK+vFHWWZotOHcoAhdOpuMySdSJDCQez0D6sQxkE9DyCGj5BLTsnTng 78pH/rYMpPoHE9gCCVCUySIIYZ9COGEs/LAfbXcg7OA2zE+Nc3gmCra6DjFf hXri1PWULCSCFqj5ZhiLu9BeaIO1qBd2Xj8GhAMYLiWLUZwYK++Ho7wXY2U2 jJV2wcFvg6NAh+EMCR4sXd/AmneZyBa+3IKCj4lgH/n1ExyBriuoo2BA9qMA piHy0EpVX3fJJIYqZzgofRoLDQsYE7JEZpQ/jrESFoVjJU4qRBzUkeEN2A1l q6EPrUNtiBW1UWzOUxReQ2PJOtqqbqK77ib65esYUV2HQ7OCCe0CVmwPsNZ7 H9d638T13ntYsd/Fou02Zuw3CV/LcNoo51n74Bqwu3X9OHctpgcTNidkeS2Q 5bNBV827ClPZDVjFdzEofwCn+m249H/EopF4Qd4AlqjIGjHcRZd8GV2KJeSS QbKLe5FZ0I0iQR9klb0wSykBqnWPc9p2TwUv1m1MBZcQPVFRRjIQFE15BrTl GGAmKHYQPbEQHC1EUcxEUdqj9RgUWD/FjckzLLqwQAB+ngqhQWmIDEpHwql0 pJ3MQC6hsYiQKDiagVJCY9mhDIj25aHmSD7K9maiLCADwjeSEb/nMEGPSqbD VDod9qftTtruwOWD2z7NobBNbaHwoXVXdTKBGUpBNxp5vWgrHqSiYwS9QgcG y5wYrZzAePWEO6RMip1UAIxTcTCKiRpiABU2OEvNcPI0mFO0fCjieQaMOBTu 2Bxmv3wkIHrn0Cc5xTjsw5C685KFoDgAHd+JduEsbBWLGBFfxZScnbZwVXeN Spd59/64aJY4Crs/VjmH8doZ4tMTGKwYdh8bLDaiL70C1efbH+OqLmn+VUrV q2ipXEOH+BpsslUMqAgN2kWqIogW9dzFVfsdQt9tLNtv0f465nspMPatwdm3 SEh0YqyrBw/u3uHWM/zQfeaJnknIcsyQ5bI3TtUC5hq3YCVmN6h8mxD+HlyN f8Ki6c/gRzZTldaF0pIxlFNMrywdRkXpIMqINpQKeiCk1JNd0IaEzGbEJ6kw MM6u3Ly+xszA17ln4Ne6Z+BTxCOvbS4iQlRAoSGfqEZeM3oLmtFH0l9I3aeo bKcoaSdo2pJ1FGa6nuA0Ptw/hezkKqRGlyAxJJ8iWTTiDsQiZV8csvYmoHBf CkoOZKDyaDbEp/IgPl4ExblCiE9kQkwQrTuQjmr/RMTvO4RQgmEoRcRQguJl iopzU86nudzATG+W8hQEw0Z28i6/F1oiHqZiBzp4k7CVTmOgYhaj1UQoxAuY ql/AjHSBipV5zMrnaOvClJRIad0YnDV2gmUrwVKGh6sfrBn0XgzJDgpg2yaJ 9peb1wBPc3Z12h2U1Zooo9kgp9YaeC5YiCb11l7DmGwd06pbWNSzs22uathp JZOVy+RALFRH65bhkC1iXD6LQXKugap+DIrMRFqrkP56MjL+UEpURgtxziwa +AtoLFtEa+0SOqVLsCnn0acmOLevYrabMNhzAwu2G5i3XcNc7xpm+ihq9i/B 0Ueas49iatTheTqGG47WSY4VMK9/hqn6DrqkDzGoehdO/Xuwqu+irsKFPMpG uQVdKCDmU5TfCgHBTlDYDl5BC4oooAqK21DCN9HfNSEpUw2hYhxFom6I8pXu 1Q7MyJFcYISe34IWXjtVycSgiD31EbyHKJmMlFjdGW2stJPEghFhm3uYb5hg OZipwWSVhaM9X3ezM2FWHZJD8xFyNA4JZ7OQdCQV6QdSkUtJuXhfFoT7s1F2 MAcVh3NQeyIf8jNl0F0pgSK4GPJz+VAEZUNxLBV1e+IQs38/QgiTlwiTvPSY T3u4CrErWbGKcNhO0gc5bxT64kkKjbOwlixQsXQVw7UrGK9fw5TsGhVMpPEG Ir2qNSyoVzFH0WKacuGEgvKRhHhKXTcVzgbcHBn7UIj0jEFweHzjkyfqj1x5 Qok6s4qSXBsx+EEoiqbQKFxER9U19Elu4zNuWz8Dh3IVo4pFDEqm0C8eRn9V FyXiVPC3n0TWa+XgH5ahLMpCSX8KqtIZGKpcaKl3oUM+hU7lOByWVUxQ9TDV tYKp7mVM2a5ioncRjv55ihkE5b4p2KwDuHf3HruWjY2tL7ub6Oxks70sY4wt a0quo7nmLmH6AfopC3cobiEttwdJWW20bUFOfgsKCwloRS0oJREVmWjbjBIC HK+okUQDfrEcSXkKlOrGkRFXiZyEepRmayATtkJHEaWFbyXg2WEjazK0aqRs kMqRIUxUDWGqZpBkgKTPPXzprLBS2jBjnOLmaI4Sa9Zxd7sTglMQdiwWoUfi EHooEXGH0pFBQMvdl0vAK0DpoWJUHOOj5iQfdUF8SE7zIT0tJNDxoQ2rgPpK KdQhfKjP50B1MgmiQxdxgcBXlB77GQ540rxqCiUUBImfy4pHyX7TMBQtwCxc Rk/5NQzU3sCo5BYm5ER6Gu4QeZ4nrj4MXeEQDPmD6K2ewYyO+Ld6gcgxBUTl AFXq7XDUfLDawHuUkx3l5ZY8fiSyPioWcsPZnmepMC9mT5JRTzmu8zEurjSJ VtBRexN98jfhUL8Fl+FdLJnew1rb++6/cGRpMVlzG9OSO5iU36E2s8+7GVZe xYDchT7pGPrqeiCOLEJpUCyqTqSg6IASwvBOlGU7KE06oCgbh67GgSZKAN1U HAy0LmC4fQEjnQsYtc5jxDaHwd5Z9PW5YCPp6hnHvTcfcBXvB01fX7wBWWIr 2/TfQVFCfLT6Niyye9BLVhCXYUZMRjOSckzIyKOQRyGwmAo/IYXAMiLk5RQv ygW0X9oKkcgIgcgAQYkM8Tk1SEkUITepBnnJCuQn6iFKaYWR0GjhD6FHMIoB EfHjSiflrwmiWJOYqZ/ErHQCc1IniQOzklFM1w8SDWPyWwecFFZtKSKc23MC Vw6FIYxQGX4kHdGHcpB8IJ/qFD54h0pQcrgU5cdEqD5ZhvqzFZAHV0F5oRKq i9VouFgOVUg59NFiaCIrCaECqC9mo+FMLKozU6GSS6GWSx+DRiYl5GjpXSuV Ynp8nLv1+DWi1FQWFDLRpp9kAspCSlK8VVhE67BTRhmqfxPm8qsoSetAWqQG uSTFERqUXNFAdFmDsgtqiM6qII80oTmDuqWjFK61Ujmo2ECs93Ath9hXfEDS a4rbx9Q0n/diZW7EpnqmpjugLF5w73fU3UGf8gEcunfhoprgauv7WLP8mc3a sl5cNbyNKck9ivH34Gi47T4+1LCMPsUs7HIH7DIblFnVyA8jVp6YBXlKNnLO tKM4cRSCnDFiaaOoE42goXYEZj1B0uhCd6sLPRaCqJX2e1zotLvQbqPQS6n6 7psPH30iV310I1dOvQI5EVY9ldIm8RpCU5oQntqEmEwjknJNyKSsnVdEGZsy bwm/A2XCTlSIOlFZQdvqDpTXtkNUa4SwSoUknhTp4fnIZlaEpTSiILkdRdFt qIszQ5XQgcbULvRQ053iOer+AtGvBcwrF7BI6W5JNU8yS2UgRSHlJCZlZMu6 PjTFl6HuVASSjkdSURJDdXEGIg4XIOGQABn7S8ibK1B6rAaVQWKIz9ah/hxh 6kIdlCH10FyRQh8uhy6sjvZroAqvhSZeAlV0Fe3zIb+QDP7xszjktw1Hd27D cZITO7bhJCPbSbZthWfJgCxHTpmR6GU+S8CVhcuUHddhqbwLY8kSROldyIrV IjNCieyzZSiPaoA4WgdppA6KK1ooCa8Kwqv8bAPkpxRoDNeir6qN8Kr9i2Fl 5hFCzIupgDjM/v6TVUC+2KibILDd+ALaaztZtGY7oeCxEy8t9ffQ2/AWxvTv YKb5j1hqew+rHWyAvWl7H3fs72NWde+D6lu1jn7VCuwNc+hROkhssEmbUF0s xrGzVciOCEXgi3tIhXkIPqRAyBmSi3WIjZKgkgibUjaCZpMLpnYXmjtcaOpy QUfSPbqMW/fe+uBZeyxzexXrC3chjWGXDsl4S1CULiA6w4hLiQZcIaxGZ7UQ VtuRUdBBWO1CMc8KYQmxyPIewmgPKikDVEq7USmjqC8lPFdrkZFVhuxIPtLC apF8RYXY8xqknTWg4IwRlRd0qAtthCLCCE1MM9ozGQo2iyXtNSxTfbiiXyVh 1/3NaucxqZ6GMYtsGy5AyblEFJxLRcShZJICRB0sRfJBIhUHasE7UoeKIDlq zyshvaSCMlQN1RU1NOEqaCPUaIrVwRDdAF20AqpICYzZTWjK1kEZXQZlRB5h KNo9G/CU3zb3TZIzJGd3bHsMZwmsz9D7VreKzryxhVVVFpW7OVaKTCxXUhat oVF0mzjNEnJjNciP16EoQQceXbI4tJZUrIIqRgd9lA5NEVo0hTGiQSOpp/Gy Ek0XZWg8XQNrlngDsr4Gv5/cMCD3ZA63RZ9iDjy3SaX+UUzhQ8tb/3UjgHm2 zs4ZtreZTuLaLKLbiQ7YVfcxYniIKdNbWDC/jeWud9zfrdvewa3ed3C7720s NN9zH+tX3qCKaAVWQnSXykFbG6wyPWKCTmDbiy/h8p5EBAfuQuDvX8K+PxzA 8T35OHlWgvOhEoTHyBGX1IDMwmaUK0cgJmS3DKxg/a5nvsvLaC0ZhyRpDNKC WRRmd+M0Vd3nKI+HpJoQmWVGQm4n0vO7kVNsQ6HQDn55L0qIUZZJ+lAu70V5 gx0VKqrcFRbkS5qQk1eD5BAhos/VkCgRd64JmefaUHTRgspQqjsi2qCONcNA QdeYTAw2tRO2okGsNt3BmvE2Vo03cdV4HXON1OdyOxpSZBCHFYN3PhmF5/MR cSALkQcEiDlA5fsBCfIOyyE40YDKc1rUXzJQQGuCipxDF02lWXQTGimZmGKY gak2tBPzNhHPaUhsQAPxlYbEWjTECyjopiLr2CGcJfCeIwneue0JXCAE0/sO FrjBW7eAd6mAjVV/QzXxHPJi1YRRLXiJOpSS1JLWFPGN0MYZyV2a0RJjQnus CZZ4E8zxRrTHG9AWr6FjCpgj6tB+QeQuCn09oezpR1IiI9yDLT7H4fRRsDGv H21e3W82GPW3H5QzX+A44y0WvOlM0ciSh1bi6N0qYj8GIgimNzFrvo+lzgfu 767ZH+BG7wNq5nrffTrdYgc7PNClXIaZsme7xgGTpBW12ZnY+ruX4P/qG9j3 YjDCA/fhwCuvImjbG7hAyr9Icn7PSZylkuTcSZJTsTh9IgqzG09HfA7XZ++i OnwA5Qn9uBCvwIl4FYJIxRdS2xGe0Ym4nG6k5NuRxetDXtkAiqsHwJcMEkgH UaIeRKl2ACVa+o5AW6RsQ9zpRMSe5iGGQkjsaSUSggzIDraAd8WGiqheKGOs 0Cb0oCnFjpZ0O0VdOyzZdvQLHbje+gBrrfdxteUOxokpaCkyypIItNGlKDib gsIzPKQeL0Hk/jLE7q+DZyJw9UUjpFdaoYxsp0jeDj0xEX1sO0wJZrQnt8Gc 0gJzXhd0xFYU8UooU1XuqUuqVCK3SdnIPXUcwX7b3VNhL/rvwCWSEP8dj9Hb dnyD3rchxI8F776f/JI1Zca4e1uTM4k8ig3F8WrwE7UooWRVnWiEPKEV2ngz jPGdaEvoQkeyFdZUK3qIQPSQWrszLbBmtsKa3ojuZCV6E+ownCbHg6s3PCD2 Hqd/6qNB7HkCpPdX9PqXT0IlPhLeX9uA8GPc3Th3p1OGISuYc+83111HV8M6 BvS34DDdxlT7nY0Fdcu2u1jtvQv298zrr7HUuw5nxxrsrfNoVfeirkiEtPBw vP7bl7CVZN/Le5F/5DLpfzvpf/tjuBxAb6EB28nJLrsNsA2Xdm7FhW1bvPD7 RcLvfcKGEUei6nAsVk/SgrNJHQhJ60FUVi8S8vuRKhxEVuUQ8uqGUSgfQZFq BMXaURTrRjy3vWKOxSH2VAligyScmj8HQWQvKuOGIE8cgD5lAMb0IdSEGGA6 V47OvCF0FQxisGwC18xvYbn9PvqoHvOcr/BsNonISwV/h/SjWveeKLgF1SFt kIR3QHyZ6r9TEjSeKYc5sYViqw3mjG50ZHagNasdWiI+ymQilemUtbOVUFG9 oE4vQN7ZoI1JyJdJQgNJaEsqC9xBKgsN3E6ft7mvd/rFF7H/3369sQaFT5E1 9ZIQ6VTXZVyuQdzxQvcayMpLatRf1KM1qQ8daQOE0UHYcwbRlzeAflJjf0Ev +gp70JtvQW9OE4bz9Bgv1GKEmIJ35PWsQdkEtH/9yFcfIO3Df/69R8Ks91Ob vCHsY0jiGR9+Mda6yCrhHyEvWYShluKpYhU2ZqmV8QbGW9cxZVnHbNdNLPTc xJJt3T10f9V+A0v2a5jvW8N0/zKc/QvQ12tQwyvC5WMHEESKZqbTBzPYfT0J cXsD3AYJY2TXDtruYLe7tuMKZ5jLFFAubWexzM78/jFWFwZQVlGEU3G1OBTT iIPRZhyP68a55D6EZg0gqmgYCaWjSKkZQ4bEgSzlOLLVTmRrxpGv6YOw0Y4r hfUICApz9zL2ZDniqAqJD2pyf869bIUgZgCVSaNUbI5An0YUPWsEtXE9aON1 oLNoBNbiYXQXD8EpX8Ky5SGaiGlrC9ohTpGjOkngPk/huWqkHqlG1G4x4g4o H+PCcNmldvfEg5JzVLAHy1EUrIWxsBNDpf2wEIbMORTqc60wUezTppugTNND mkokOF8NdZ4Y6pxi5AefYTEd6IdQZk7yLr/HSG87yc7Mi9XiDvf+xS2v4vDP fu25euTRWESdSEPMiXzEnhBQoihD7tEq8I7Woux4PaqCpETFDehI78NAkRND vHEMCRwYFo6SDGFQQOgu6oCz0ganqBVOQQOl31EPsL1vDjyxER29qe8TnOt7 M4nv/s+i8IeeLfn3aCmZRH2aE9JiF1SV82iWLKKDWRtnWMGQaRVj7auYoNg6 3bUGV/cqXD0kthXM9F7FZD875tpq6EKFQIjsxDicYvAawOCVmWm/A0Fbz4N3 7NRjCN+9k0J9BL1H7iHZzUwzZmQ7B91tCPXfAn5s5AZkpwY1qFMUIU5UhuAM FU4mmXEguhfHEgZxlqAVUuRAuMiJmJoJxEkmES+fQp7OgZImog9GRgaw63wi As9GuZUWd7wScSdUBFkTC9lwGwSxg6hKGUV9pgP6jCE054ygjQp0C7lDJ28Y Vv4gukms/H5MN62jidcNbbEFdRlKVKTkc5CtQ+ohMaJ2UYV6UOUJyaLLHagJ 70TBaTmFdjX0iU1U43WgMaOH6jI7WvN60JLdAUMWQZYofEMmMZLMBqiKtVAX 1UFTwEPBxbPu6fOhu/0QRhLOyB4/9+R5Zuo8e61nuOnz23D4+efx6re/4T4a fTQRMcfzEEusJv5YFTKOiVF0RIrSE0pUnVGhLlgD2SUdGkL16Mkfw7DIhZHy GYxVTGG0YsI9FXOkmrl9MMI+tafKiPHSmr8IxxuofSS+ssfwJR9ffcwjzz+m jmOB/w1Kz2+iKpLqpZwZ1Je4oK6ZRbN8Dh2aefQ0LqDftIjhtkWMWRYx3kli XcC4bR5jvXMY6mOHYyvLZMhNy9pYuXQ+wLNAZKd7zULOsSS3siP3UqyI2uvH zBKk96i97DxfZrZ8+O5tFIW3EnyZZQvjbMX2JQy08FEn4yO+pBLxIjkSRHpE FrchpMCOcMEAYitGkCAeQ7JsHDnqUfz+pSs48+IFpO4IRonYiIgiCWfer+Ds yTTEHakiM6oJvS3uoznEIPgJQ6ikQFuXPQYdBXEjRcLWwkGYeQPo4A+gS9gP q7CXtna0CbrRxCeCzLd4uFTxeSISpyhJ76rkLvU1pJ1i43nJZTPqI61QxVtQ n9iIykg5NKltaMrqJCfpgCnXQts2NGa3EJc2QZFjhCxXB4PASJcg9BbzkH/p LLvugCRsjz+z6GOvP7vw4FlGoxsLDi5sfQk7fvSPeO2730TU/kuIOZKOmKN8 xFKMTTgqQc5RFYSnGlF1vhlihpBfboYyzARNZAtVj61oTe3GWDUFo5oFjBEK RsTTmGggFJQNwlbaBUuBFs0ppRAmSDDSSTA3uzyPr/a+H/FB7OWw+8WNAx8M KX1pk4Gyf9/ku+9zqL029wDlcU73Yt86cjmV2IVGuQttGhc6DbPoaZ5Fb+ss +i0u9FvZKeM2uwtdzJQ1bRcy0vJwiltpc4aCbDCh1b3KhgkRpOQrftHIP3EY Ufv8Eb2P1B2z35/oUsw+P/rIoZZZRuBG7Ra0KiTwPDp80CRAnVSAeIHn6QUv IrWsFRk1ncip70GBog/FVJfx9MMIiqjFthdTEXUwF8LQbNTGxiIopQy7gpNY YngiFXEHyxF/5APIZlGNxiPCW5E+DHH2EDTZvWjM64WpqJc4Qi/MzERwoQ2d JT0kVrTwzGgUdkBTQhwhT8kS3AiKihTII7eVIs6PfQhL+kkWs/XRhNc0O6TJ XZAmtqEhzQxthhmG7HY0EVaNua3QZzXBQARTk0f1Wj6RhIIGKEXN0Ih0aOSV INrPg9cAhBPXitgXwK7H2Odej0FK/Y57QcaF7a9g53PfJflHnHjhBdJtGGIO 5yL2MNWPh+uRdLgBucebiLCYKfp3ov5KB+ThFqiiOqGN7UQjFW/GRCrWisfh qF/FYPU8ukon0MIfRgvpo7XQgvYCPRGbGhhSq6BIMkAZb0BDlAFdpJ9bc7e+ 6+MGBXsrD9/2EXQ/5rn8ngc4WQlzPV0kHTMcBfnIn7AT2p/BGtVJ+tqrEBGk q0pdkNa6oJERrNUumBoJ2iYX2ttdMJPrtdGpm7tdMHTNoEhYh5N+W91wDuIW jV3k1isxa5XCKFCc+EMQyk9dQvT+AMQc8KcGxtL7k4RqwvN+IhL7dhChYPBM ETjw9a9w3GHQSFCuF+BIWDp2BqXi93sT3Mr4g18sXicPORwiwOU0CXiGEQSe qMb2XWWIDhOjhNRdJyjG+QtC7DslwIFLRSzd3VXK0FHEn2K5Q0a0DYUJdpSm 9qE6pw8N2d3Q5VOELeqGiThCq8CK9pIumEs6YS610HEjDKWtUItMEBfIIM6v cp8nxb8AUX8oQ4a/EkUnmjyEszSqHeVRJlTHt6AusRnyVBNUmWyk1ec0w5Br JO/RQZurh5qCm7xITQxODnWZmpBMpJRS2pVDmcjecw7xgQyKA0lTgY8zy4rc q4o8hDJ0Zwg8Lw9xyT3RjJLzFtSEdqM+rBuKKBvUcXbUn1WgMbkXzal2mNJs sJfNoVs0h86yaerjONqpFLZQvzsEzegslqKdajcTMw8+mSTBgJZYkjAt5k2T HEDZGxZMCGZuWHhG1TbB8Mf8RxDswNoX3A+uVSps4OcZUJFrIIZggDTLAFm6 AZJkdhWpk+KrrxE2drXwd7C2/A7UqlUIKEZXUIyuU7gg07rQQIBuIEArWwno bTNoH1p2j9Se2PHBMqLT3OI7ZoHXZffCOzaYMIEk8VAW0g8HEFMMwOX9e3B6 7wGcYWQPFXv7juLE/lNuUEewS4g8//uCqiQOr732Gl4MOIeXd0Wwavk0tgfE wG9vPAIOJCBwXwKOHuXhpWN1CE5RI6tUCV69bGPcYHcYH2dPlSF+v4az9WeR FmFHQQLx4ORuiNKtkKS2Q5XXAV0hEVUq24wCC0xCM5UJ7dxvnoSuzAjvV3lm Ds7858XHOfhURrSDf1mPwssGCCMbUcGsESMGUUeKl2c0oSGrEaocZrmEHsps FZVoKiiLGyDjyaGgJqsrqGwrq0LWlUvutVdnDoQg6lgWCg4EI2l3oHvt1ePu VVffxclX/hN+//Y995X9f/pP7u2lLUQg9hW79+P2q9zb3KA2CIM7URXaQ6ym F/LYfvDPNlHRpoM1qw3NGQNoTqcslDMIe+USrBUE6/JJdJSP0taOrrI2WEuU sOZJ2Rn9WUZ2Rn+GAT0E8e54DcZKLP/ADagxT0Tw/Nc2j97b2ATdT3FOwQT0 mJgY71vK8EB7deUWNA097NJ/kgYSZaYasng55Qk1OZ0BzUkUDUKqwTtUiLzd BWivMns90fIpLK+8DdvwHfQ57mBw8g6Gpklm7mCAhK0xv0pwfgOnmGU0zIo4 P4JzIAdnbjVcOJMXyRIX919A8LEQBOw5hV0kgYHHsSvwGPbtOol9gSQBJxC4 +yJ27InCsd3H2CWKF91PDgh44ed449VX8dLOs241vPzyRbz2xhX3/s5dsQjY Hw//vbE4eSgZR88kwf9QCpLKG5EkMyFNZsb2s7HYcT4OO4Pj4XeBfOBiPKL9 a4kpaxEX3I4Eoq9Zid0oTLWigqiGIsdGAbML+twONFENx0yqNxayT9AxiAiY QhYsVfliVFN8Ls8Rkhr24eXvEVN9pRqZB3QovtCG0ph2pAc3IOtiA4rC1SiJ 0aKcAFBFaq9L00CaSQE5WwN5rgqSXDmkhXJIeMxCjHrIy5VQVMhRkpH9F2vQ zh8OQdypbBQfuYCUvYHuFSgMzP3+7Z+x9Uffxuv/8g/u9h14/te4+HooogIK ERVY4T6WeLgR2afbIbjYjZKQLohCzASJQaiShyBJ76PCk2rbrH40Z1LszrSh u2wGPVUL6KqaIRmHtZrq3OpO9FRoYedr0F/ciYHiDhIz+ovaMFDQjCFy2sHU BkxUtH2TQy8zasEsXfpg+O3DN0jYKW341gaP9vy3TQzE3fkvJeUD8sHOYRYV aVGaq0Z5uhylEdWoDa+G/Eo1GkIqoQ4uh/JMCeSnhNCHVKCbVM34oDnRgAGR jX30wddxYjsH3p1e4N3NgZeAy6z92r/nKF7fcZqYUwy27tiLHST+JAHbSbaS bNkD/9d3Y8/2Q9hFQddvbxQEEgcGx26wc4pDMMM9/mIXAXnv736JV7YGuTv1 6suX8MaWcDYq7Y3DrkPxOLQ7DkdPJ2Hv4RhcDE7B+YQipElakVDThO3nYrCT AfKFOPhdjENASBwOnU1H1J4GxJw2IvayCYnEBjKIDRTGN0IUryWw6SAmPsu8 tIJ26Ms63PvGqlY0VrB8uKygFhWFNYi5FItfPft9/Oqb30DA86GI361B1rkW pF3UI+pEPZLPSZAVIkVhpALCOCVECQpUJitQk66EOEtB3FuG6rw61BTXo4ov RqWgFvWVKtSI6hB18gQBmV1OFcoBOfxAoHsx5cWjl5F0JgeCYxdw4cX/xB++ /0384QffoC0jz7jbGLUjFlF+RcS7qxC9m50Ik3GqGUXnzUg9qkDWcQn4ZyRQ J1iJwxOIc/upBrWhObuHhCEbY7DVUMSunYdVPIWeuhHY6rthFzeiX2TEiGgA Y2X9JH0YE9kxSnWFg98OR4EBo1nu5wV/x8dNkae9gPsRUZrBPRPgGazv2bPH PU7MRukv4/rqTVTy1MhLFKMouhpV0bVEo+qgC69D4+UaNF2shOlyJTojxeiK qoWVpCO8Bj3JcvRTy2wZeoxV9vwnd7oPrWVjVrEyi8cpeoQQns/u3Yutu44R qz2AN3buxa59kTi6/xgC/fZht99e7KNj+wnX+7bveQy7tu2mlgdu2YVtuy6i sNaGEpkDupZZ7lbP9zDtHMdx7skZh17/HQ688O/Y8sp+twZeeyUEW7ZGsLje H4e9gXE4dz4Fe5h7gITtkyEJOHAuCmFFYiRU63EgOg87gmPduN5JmA4IJV8I j8Phi+kIP6xDJJXzkaHNiIs2IjdMieLoBpTEN6A8ia316gq1kAg0kJSqWe7x bRQSFIsL6lCQW47tv/gvvPbL1/DG829g/7YohLxSiogdSmJaDYg41oCoUzVI ChYjM7QO+VFSFMfWg59Qh9K0OpRl16Msn/bJRUqKayHk16JcpICIJPxk0MYq wRAO1lf27yJY70IEwfox91KuJ3Fg636knMtB9u6jOPyLH7LQ/sEzLFq+heid lYjZI99AdOF58vYj9cgOkoJ/QYaGRAv0GVboqXRozGbQ3UUVagdai+2E3kV0 18+jWzoDG1nILrehV9KIkcpeOJnVEDVOTNaMk4zRZ2YlBB2nMsPJ12E0rwbf 8YrFnlsmHKSf3YjFnv//zANkz5N1/uM//oNZRck+bvwruL6yjtLsOqreK1Ac U4eqKAlk4VKoLktgDJWiM6YBvUkaDKfRtTO0JBqMpKswlCpHX0I97ElSjAoo Pufo4Kjq+jU38KyXStxTpE7tYDF9llmjS1o/Ta70esAhvEqYfZ0wvJVkm98F nD4Wij2E8X0kB0gO+e/HoYD9OBi4D3sC9mCP/y5iDUeQmFmNHKqyRA1j0Le5 PP+lwypR9L75m0ilBPf7Q1F46WA0fr8nAjte9cfrrx7BH14N3hgD2xEYjW3b InD6VDICj0Tj+JE4nLiUgEMXYnDgfCRORqUhvlKH0xkibA+m2H0xBjsux8Iv LAaBkTHYHU0FZmgaQg7rEXK2GeHBOiRdUiIzXMndNHoO5XyWbBQU1KCQz45j JKZW4ziRntMHE3B2VxQu+Ech1C+KQB2FmDeKERPQhPCDJsQGmRB3tgHxwTVI DatFVowYOfE1yE+tRVG2mJxEDB5firyiWuTz6lEoVCDkRBDOkIrP7wrABQL2 JQL2ZQ7YYQd2uWN2OME62O917PjZD/DGj/8Re15jFyfn7D2C88//3L1/7oUT nJ6+hRguXjNjhsXBbSgPNUES14qqmGYoktuhzrBAk0XFRLaFKlYzSTsMea2w S+bRI2Omfs3ArnKgV2V3T/+aFC9g2r24Yh4u5jnyUhemJFNwihmUE8Ir2uEU uR/EvYFw73snbGTmZhY97a4tmbrSsxTIQ0yOHDnywejF3xIVq0BOpAj5kXUo uUKl+WUlNFc0sMQ1o4/KoeEsM8bzzJgqMGOGqJCruAWuomb63Ph/GHvrKLuy 5Mz3t9put8fjGdtjP78xtMd2NdltaLBd7uoClRhSyczMzMykZGZUMjMzg1JK KVOUKaWYsaTq6u4/X5wLqqwGz7trhc65517dvLC/iO/be0cEW9m9bEiUXEtr 51L5ABvCW+7ObmvK5ag7qKyu7JAn1KlMrFrYeb2I0LpkOY/r55KI0Ic3n2tL U1zf2sJFT40JNyMj1Q/mYm3NMVNbjhpYcEKwcNrIGgNjW0yM7XF2SsNOyLaN mJ25E/aWTjhYO+Jo44C1tR2Wltb4RaWQWnSWFHEL6fkdVHZvMjCpTW81Ym3v CWn9S8S1jZHQOsZh+yCO2gVz1CZEMOjJiVOuHD/uwoGjEXx8MosTunGcFnLj Zh+PmTh+O9sYfIISsPWPwcY3QiwcG/8wAsVLx1X1ou8fLxaFQbCAJDwK48go TKMjMY8Jx9I/FRfXFgIdOgmRAR0dpHb8qXHqEgVZWR3kFKqBkpBVT1KWesD5 OKfhbRtLqFiUVZQAI5IEAUuKYSRp+pHEHwkn2qCaKMdhAcooyQGj8totxEY2 kKC0q0gS4JxpILOwg8yyLuIy6gkISsH66DHcxBe5y/fuLUDxFaD4C1ACBShB QmxCBCS+pgY4nzzCiX/6Nif/+dsc+e5fc1gIzREx7cR68BE9LP7VnLSjuWhr d6Y6DVAcMEll1BSVMTMijUepjRunOXlMntNxZkKGYnfWpCiUCXpzR+nNHxaQ 7LLYKSGg+yrLvRdZ6Vlmo3WTa60P2VWyPjoecLPzPjc673KtY4/ttmtst2yy 3bikLsw+PPJroWAfUL6j8Y0KUBRgKIFgP56UY39/v6q61j9qdOG5+XXSAnLF qsgNbBN2PkRf1DTTiYuspgu/ylnlSuEaO6Vr7JWvcbtyhTtVS9ypnGevYobr peNcKhjinAik1TMdbJX3sZbZrM7g/x8aebtEqVKbSqwtf4AeIUSDOQMMZw4w qqmtoHTu6Y1SpkKXNBmWx8iUkeWqr4+rMH53EyOhODYcFsJz1NBKkGOHnrEj RibOmJq4YmGeKBElHFtLDxxsxOw8cHRwl2/IDTsHFyzsHMmqFfpZ2Up6aROh icV4heejYx6CqYEdDga6OOrrkhEVKZGsRfUOHrz6nITOEfwq6wgUCxHzPFPI YWsfjpi4c/iIGccOmXPiU1NOfWKC7iELDh0K5+Nj6egYFWMh0sDIJAwvnwSs vZVQE4mVdxjWfmIBYXimlRNT3o1rcjl6QbHohUSgFx6BYVQExsIQDcJj0A9N xMXYCm9dF7zNY/Dw6sA3uOPdyAxLaiUyqws3v0S0nCrIJYEwl0RinBOJtYkm zSaGDItoskyjyTGKIs84ioxjbmQcsSdeP5VYxxYJaaNECnULCG3BP6oBv5g6 ApLkmHwWJxcfTI7r8fF73+Ljb3+bj7/7HU78248w/fRjvIWx+gqi/AVRXiYG 2In+tzx4WBMWv86h76nRdFjkwaHv/QWf/oue5n3+LcVmjVS4dpHiPkCcSxep Xn3kBQ9QGDZARYw41qQhmlKHaUkfoSNrjC4JNZ3ipDsK+5ntuMa8oGix7zJL fRflfJGr7S/Y6XzJje6X7PW84FbvM272PuZ6z322uwRNnUoKyzm224VYNTa/ pwGSghTtipGaQqFtRq0FkhZnGsxplfH+4ml/q7l2585zbt1+vm/F9C/eTUvG ucWQGVhBXlgPNeI2OqNEvCdsiOrd5HzeJa6UbHOj4jK3ay5zv/4yDxu2eCSx 8mHDBe6eXedG7RJXqma5UDLGanYPmxKhLpV2cG95U7PIrlbc5YV96uZRYr1i o4UDTAvw5nNFiQjwVOmZEr0WNWXJlKzhkbA+Xtx49uca7F3f2sZZVx8XUSim VrYcFNVxWJT0UUN7Tho5C/bcMDL2VClpE9NQ/HyzsbPzw8HRF0cXX5xcxdx8 sHbxJCQ1m9zmXmIK67EKTOGkXQinLP3RtwnGwCJAtWnZU9SQp7BHT4mWejbu WMamElxbR1hNHZFiMVV1OMWkcczMjaNHzTh5xJzTYgbHLDA8bIL+ERNOHrLh 5PEojhqd4WPBn5V9CuZuUVh6iXlHYOEdipVgz8o/FNekYiLLJUJVd2IalYFO qETBqHh0ouI4KZJGJyQZR2MbvE4a4HVKX0xPTBfPUzqa8fuPuJ38BJsTH3Dq P/4Ff7sIoYfRBDtEE2kfS5J9HGdsEgR3SRRZp1BqlUaZWKlVMuU2yZRaRlMh j5eL7CoXbGbLY4mOpdgaB3HgkwO8//3/g+GhD3BRNnfL93Pin/+FT771bT75 znf45Hvf5eA/fpfD3/8eTronVUstZp8ewuLgIUw+/CnH/ulb6mmLf/6W2kkc FPD9Nw58+//w8d8e5PSHwaqH882aKHXrJtKiiUjHDhIlYGtzG2qT1NvPtLfm gh7ahYRPdF1muvcys/1y7NvkQsdjrnV9zm7v59zs+5xbA2+5PaiUXXjB9YEn XO67x3bvriYPZ0Eg2IMWd/uXuTS4+/Ovrs9qOJ+CwMnJyXchTXlE4YEvX77c 3zBOWwPsrzS7aRSuppRz2r9o0CwjviV1QDV33VcyRX1227tFsJH+YbL88ygI a6coYpyzkcv0xm0ymX6FlbwdLpbeYKdqj9v1e9xv3ONx6x5P227yrH2Xx+3X udd2mb2Wi1xrWOdSzTzrJaOsFfayXd/Ltd7RP3s3lfCMmqIeVT51h9hgySCT xUMsFAk9LRxlQ2xT/uul0hGxYS7K4+cFxKpphDPi+WJ7eXXzmXZP7pnwaJz1 DTgoFPGT0+Yc0rPjiIGrSC1PkVk+GBv7YWYegKV1IG4uZaKBQnFwDcLRQ8wr EEfvADwiEyjqHCWpsg0j73iMXAIwESAb2vmjZ+mLiX0wjma2qr3Z/mK6lvYc cfAW88EoIJIY8W3xNWdJqm7APSaD4wLKU8eE2h63Rv+UNcYirM30rTGX92et Y4OjpYDYIFozD+OGuUcU5l7hmHmq96KZ+UdiFpJKaHk74TUdeBXWccg3hsMB sRwKjOWYUDsbQztcjwsxOGmIxyk56ujjfloXV53TuOicVL3O4R/8PYd/+PcE 2AQRYh9JqEMMEQ4JJIpjyLA/Q4FtFsXW2ZTb5VHjkEutcwH1borlUe+aI/cz qXFOp8oxmWrbOKpEX1YaBmH5yacc/NE/46h3UlVQWNm87nDkMB///bf45Ntq gB4QgB4SgB6W48kfK8HyIOYCUt33f8wRAehRNTg5+P2/lef/tdhf8fF3vskB eY0D7/0bB45EEhiYpXpOnFE9ocaNhNk1EeXaRKKPWl/miGpXbmUJHVSJQq/J 6qY2r1t1rbVuhqHuy4z0XWFUbF4oZWv8Ku3eraK5NtgbVIpT/Jzbw58LrfyM 68PPuTz0iO2hW2wPXxZbZbt/8NcW9rQzZIoA06D2/9EEO+WmnVST2x/8ShDV dr/UFPvd3wVRW2TxLzSTVvfvqxdFKoQxNhaoy14MSgAblQA2nN5NV1QjtV4l lDrlU+9TR0doD9tj11kcmiU/oJqCkAFKw+ZpijpPf/JVprNvslZ8l+2qB9w4 +4h7zY951P6YZ12PeNn9kBe9D3jae5cHPXvc6trhets2W43rbFTPsFLUy2Zd P+dr6v9UO4Ny/4mq+15jiXBpgeiQcOBp8SZLxbNK5Q1Rjgtcrl7gWu08O3Xz 7NbNynGaazXjXK4cEXgPsZHbz1JCJy9vPlZD2ZfIhBQO2YgyM3DgU11nDht4 cdLAT2AcgJFZMKbWoVjaK5ZFTGAa9p7hOPiISUyz9AggtbqVNHE2Ju7BmLh4 Y+rsibmjG1Z2TljaOGFiF4iZvY+yWxpLUUQnrJ04qWMsZsKpU6ZYugSSUtNC uryOV2wep47bo3vKAT1dJwwNnDA1dsLC1FHg7ICnvRumRha4mMnjVuEct03i qFOOagyYeAh/9VRPl+sK77WNLySgvINAibVB9Z24FNVJrM3ggJU/pw+cxubQ aRyPG+F8wggXgbKLjiiy03o4nj7Niff/hU9/8B5H/+17eJk6CARCCbePEUsh 1l5Zec0lz66QUrsSqh3LqHevYii8iT7/Slp8xHwraPUrFyulO7iczsBi2ryz 6PARc02gxEa47acfCjQ/wke1rV8ffzHnY0c49YMfCCS/w8f/oMD5e3z07fck /r6H3gcfCJwP8en3v8XBf/rW1zgoslGdGfLT7/4Vpz46ickxVwnlWg/3t/ie isX/WCphuq0EmTUQZN9AuHsD8b4NqmdkRDSQE9tEUVo7JSKSS/I0M6ZNa3RJ zO0WJE+03WOz45dMlT9kuvoWl7ufcHPkl9wa/QW3R79gb/Qt10eVDJEnbI/L YJ9QSratsz0yrAXxb83N+q0g/m8afakFsSIntfBX2LASh39Pg+T9Zdm1Fdy0 C0D1xRLtxIbEJiWaTeV0MxBbR4tfPq2++cyltrF4pltFS5XbRNwARTZ55Ps1 vds11xy3zcCZm8wU3mO9Qqlf+Zy95lfcb3vFE+H9L3pf8GrgFS8HX/Bs8CkP Bx+qEvJ2uneE819ko2GJ1cphztf3cbGpWYvmurwmVbfIVmHV/aWzTJYsslSy ykb5OlvVG1yrP8+NxvPcajnPndYN7rSty3FV7i/J9Tmu1k2yVTHMZn4PVxqn 1Wguo2esHQOvEA5a+vGxjjsHdX05bhDEaeNQDCzDMbWLxNwpCiu3aMJCarD1 EaT4ReMZn016XRfpTcOYeUdi6h4oFoCFmx9Wrt7YOLtj6yhIFHVr6RaIvakR pwxM0dE15rSumaDVAoPT1hhIoLUTxGfW9OATV4LuaRf09N0xMHbH2NwDcysP TITFuzn6yfNccbRww8PFBUsra0xthUBIsFRuOq7xnHKL5YSb+r55XCGeIjq8 Kjrxru7Cq6qD1vY9ikLqMfjwJOZHDLE+ZoStoNlO0GwnaLYVNOt8/BM+/Jdv cfInP8by0Mei+CIIt40kwi5VLIdEQXGWXRlF9lVUOtUIkuto9j5LZ3Abc4ld jES2Mh7XzUR8l1g7Y/GtdIdW0epfKM8pptM/g07PKEKMjdH50b/ipadDgPH+ jAcDLD76KR+Kev3Pb73HTwTNHwqaP/rue+h+8CEf/aOo2++Luv0nsX9Wbz1w FGXjYhGFlzD0AHP5nUxjiDKOIVY/hgSDBJJOxxJ/PJ0ovRaCLbvwdWwg2LOB qAA1rJNimjiT2k5GRjuZmg1vta3b1LZsM9H8grW2n3NBKZDS9wuuSkDelYB8 U4Hy2M+4NS6BefwN15W2QqpOOkKlZ67LURTs+Ih2s9j+1dmv/5dQ/v3fEo81 y2Ta3Lf9NRfVY/l775a/lIDXLZx1IL+XrsQGmoJKaA8qZTq5mU1B9ZWKEa4I wq5UDLJVpkay0n+gxqVIdV7gP0N5qLpU0mD2XWZLHrNe85LLjZ9xq/1z7ra/ 5UnPW14NvuXNiBzFpT0bfc3DkedCVB6y039LVYhio2WdtfpJ1uq6udTR8b80 b/biitKFp52W4lFV/amRknXmVP1et9iqvcz1xivcbL3KnY5r3O+6ysOeqzzq EZ3ds8X97k1udZ5jp22Zyw0zQhWGBNFtvLn7WNscNLo4k7iKavyzqjDwSOUT HX/RxCGcNIsQzRqNoUMsJq5xmHvGS2yuxEc0ZER+PRWja1SOruKeWIiZQnO9 wrDwEi3qFYyNZwB2Hj7Yu7sLLXfAQmj5KRs7dAXNevqib/VtMNK3x1TPCXPh BCaC4risOvIahtEVfmBg4oOhhVB0az+Mhao7O4bg6OaPhaW3aPJAHJxcVfPj ah/6I4ws3dEzEU+gZ46egbnqqmtKOXGlZ4kvP0uriJftvp9zfegXMhJ/wZ3J XzBTe57qpAZqUxqoSTlLVUo94a6i3T/+GMvDR8QO4W1oToKroMNeKZSYTaRt Kcm2VeTa1VPm1EiNezONPm20BbTTFdzBaMIQq2l9DEd1qVA9narUV+2iM6KO tvBqYXg1dIUW0h2UTLaDfPYPf4LdwU9USA4xM/wdVZ7HNwnQ1+HUv/4rn/zj P/DvAuj3Bcwf/8s/8f731Oz65I/+Aydjb9V5sHMK/lZRhIv0jhVAJ5nFkGoc S4ZxPDlGseQIqHN0o8nViSHFoFR0cYM4xBY8fdRgDo4UnZzYjrawV17peeol Do/Xvma+6S2rMoDPd/+MS/0/48rQ51wfEV089pabE5+Jvebm5EuuTT9ne1bi 87yAeUHAPL/OrfPrmgmnry5Z/+7/DzR/4zcG5a+uEH61Y8WfaSZmFQ5bW9Au kO6jraCf+rgG6oKr6IpsZDl3lCvCX3fqFrjZsMCtxnmxWbTFZRu9St7NDJRH qFPJB/IeMFP+nPX6z7jc8pa9ri+42/MLnshAejX2C95O/pxXE1/wbOJzHo6/ EsbylJ0hZXZgh42OC6w2z7Bc18HFnk4tnBuU8jWFA7QWz9NTvMF48TaL5dc5 X7fLlaY9brTf4k73bR703ubxwG2eDt7i2dCe/Mldif3XudN/mRs9m1xpFynT qK7gf71LI8RP8+blA2KKcokrqxNYdxBf2U9wltDTiEpMPLM4Zh0jQTAO+9A8 wvJbOWVWgP2nXsTqeFJ4poLM9mnMJGib+yoWhaVvJNa+YRLIQ7D3CcDB2xsn LxfMnB04ZWWLvgJnA1uMhEqbGIjqNfDASt8LayMvXCTAFrROCJU/g4F5IEai WHWtJOjbhGHvEYqFfSBeCtX39MfJ0wcnD0/snV1U37ylkzsWevpYffq+0Fj1 ql510STd1VeZa37NWucbGZNvuSpK74YElVtKCuLM59xXynzPveH+nDjfuVdE OQVgdeQYLvpGWIuaDbVwIcktlQSXAsKti4i2rka7n7XCrVOEVzfNgb10hPTT Ez5AX9QQC1nTqnbpE7F9TCT2MZjYTWdMC50JbXTFN9IVU0F3VLa4gDC8DXQx +PcfqtIyNLkw6i4Sv4+PzjEcxbs4fPwpjh8dxPHDQzh9cBCDH36AxX8eU7+L 7xGuSuFKJdEphUSrWNIs4sgwjSfXLIksnQAyjjiTc9yZEuNwSs1iKTOJVf3P 4mOhuOqr5xosTMTx2qrP410LaM1/QE/5M0ZrXzLT9Iql9tes97xms/81W0Ov uSLh6LqM352JF+xOPmd3+ilX5x4Lmh+wvXRHXTRycY2nt299e1+I1kLyvwb1 NzSg7ujoUE1J7QvPqvMvt2B9tU2Kdm6pOruegoQq0oOFR4XU0pU8wFKh0uHm nNDYDW42ned263nut5/nQecGDzvV1Svvty+qjjcaJ0UxlWmTP0vD1JVN+gse MV35nLWGV2y3veFm91vuDPyCx2O/5OX0L3k19TNeyqh6NvWWh5OvuT3+nJ2R B2z132Cj5yKrHXMsN3ZyvrcdLbibc9poLZgUgK/RV7jNVOkNlmvusNl0n+vt D7nV84j7A495PCQyffQxL8Ye8WL8Ic/G7/Fo7A53R25yc+gqV3svCrlfEoCP cLGyUUXqtRtk40rOvvNT6s9kS3brIvldKxT1rlMyuIFXUisnDsbIaE+jyC+N s5FRhCblYO4Xj7l/PBb+cVgpS6EBUdgFhGMfEIxjgB9Ofm4Y+3qgI8JaQbWh gTPGhh6YGXhjaeCLjYk/tuaCKAt/ijpnSSrtwtAqFCP7cExsosRDxIhnCMfd Jw4neV0HX3ldCdhOPn6CeE+snZ3UdNtdXfnF5sARiiPVG3UHa58yI/RxRUTP hX75TYaVMfmaG1OvuTXzmjuC5rvzL8WeM3V2TtB8DE8zG/xsHLA5coQ42yCS XLNJdqsk2la94TDVtp08lx7VeX3AEC0hIxKMx+iNHqc/ZpzhpFkWs2aZShlj KnWIfkF3d1IPPRLEu5Lb5byO7oRCeqLjVPv9Df/jR7idPEKYhfGXWUL/G+dP PsTpkwM4fiKI/vgIzh8dxeVD0drf/xH+4vgiXVKIchVYu6aR5HKGHNdcCp3y yTI/Q4FlFiWWGZTbZJBz2o9CfV8qLCKpsUuhxjaJWqs4bY/J0+9/D533v4v5 J5+KEHDVtu7sLHvMkHx5E03PmGt/zkr3czb6n7M59Jyt0WdcHhMwTyiJvY8E 1A+4vCgBalnpKXlD7Apbi6toE432L6z+zq9OX+8HsjJrtn/LgtYV/MG+CbCK igpVhFaj449UK0a5abkkyogsTmimI39GdOk5lsoucqF6W1XSS2GydzvVLPZx 31We9l/h2cD2uyg9f6aL/beGtD16Cx4wWfWElYbnqrreuz2vuDP4GQ/H3vB0 4g3Pp8SmP+Pp9CseTL3g1sQz4TGC5MEbnOsXJPfMsdbVy+Mb1/9Eo/MvLW6o EsVa8xeESGwyULjDdNUdVhsecalNgnz3C3EWr4TDv+bp2GteiIN4NfWKV9Mv 5E894/HUY+5N3hfNs8e1oSts92yw3THNVmOHxq/9q+rtx+QW4pdcgkOYWksc tVQnJunap+IQXEJQejOlQ+fxjG4TPVxCeGAtZem1tBQVkXymFVvfIgFwjoTn VKzd4rENjsEuOFL+byiOIQE4BXlgEBSAjp27arbLSMBsYuiLhaGA2CQIWwsJ 6zah2NuFklLWRUnfEsHpdRie9hWKGIOBcyT2woAdAmOxDZDzgAgcAkLf7da3 lPBt7hOExYkTmmt/SF/1QxmLj1nofMp63zMuDitjUL7yyWfszjzj5uxT9uae sDf/mKrkYu1L2QqGE+yiNPeU2ynSHLrJc1dLrvqgCVrClPXFGdqDBxkNaZNI PM9Y2jxTZ2ZVBVn608YYzpxh8Mw4fel99Iqc60krpycpVZXi4KV3CpP//LFg 98t8KSVbyvnAx2IC3gNHBcjCFj4+jtsnx3E6aki0cyIxLmnEumZILM0hw6WQ PKcyCuzPUu3RSKlNEZX2RdQ4FVHnWsRZsUa3Ahrc8mgQf9Tgkk6jQwINlqGc UaYwDvxQlT3bErlES/I2LTl7tJbco7f6ASOND5lqe8RC1yNW+h5xbvARF0Ye cnHsIVsynLZm73Fp4Q4Xl/fYWr3B1toOl1a2eXTvAX+jQZ6ihBUkfrkC9Tuq RsLa0KuB9d9o1qKUNSjlIe3smRb9mpTD//4b1qL+pyYw/2rCVVFcIY25wryL 5hkUajtTcpnVanmHjTdEge4Jrb3Fw36F0t7mxchtEcJ7vB67qR0AdwY2Wcgd odq1/d3sWG3SVboK7jJW+YCls/JltD3hWs8z9gafc3f0OQ8nnqva9DwRCfJI cHdvSsbW+COujd6TcXeDtaFNVvunWRsc4O71y3+k+TRahrK1eFFz788YLNkT UfhAOPsztjpfs9v/hrvCLh+NC7+f+oKXM1/weu5nvJ7/nNGOPYbab9DXeo2l vl2uje1yefCiuplMey8PNjfUE3FHVC+u7+DNIQmdR8wiOWaqpms6RhHoi1gz torD1C4eIyHmAZ75HLatxyehi6yyTopqq7AIy8Y4shTL6FJso+QY24JLbD2e UWV4BWXjEZKCZ0gIegFhnLYU3Swk3NjQB1PDQCxNQrC2CMPORpDrEIWjoDk8 rZpEkUfuNnG4modg4hGPtXUoLiEJWAXGYRMkSA+OVnkRe/Ei1v4BmHt7YuIX hZkgPy45iaawBVpStmjJv0Fn5R2GG+4x3S6/UM9D1gcfsjkqw3XiIVemHnJt 5gHX54T+SNSxOnwY66NH5ddV9jCpE8ATbOKJt1UnwiTaq2eT0p3VBcqUm1JP oSlcWGHMEvluPaznDzGQusRwxjLjWQuMCtxHcmYZzJ2mK3eWnjwJ7/lKQfEW htPzyDJzFEFshfePf6qOIT/A5cABXD5V/zSeh21x+1RP7KTI/DBinZOJdcki TlCe4FBEpn2FoL2DGq8OmryE3fm0cNajjnqPGlGM1TT7VKun5H3KhWSW0uhd QKNHJo3OcTQ5BDHR3KQaCOOll2iKu0BTxnWaCvdoq7xF39k7jLbcYarjLvM9 d1nuv8vq8B3Ojd9mY+oWG/M3OaeqyrnD+TXFrnPt8k3tdm8FrUq8/hLUX+3Y oixqKSvLGnb+Tc0+KgXw+9e79m+5UvyEcv7f90Vx7bTZf9dw3N9SbYRHd+7T lN0uIXOKjsJ1hou2mavc5Zx8yu22+9zofijc9xFPhhXe+5jXE494IwPkzfR9 CZt3tSTn7thV1qvEgSQOU+w8pm0Y3ZZ7Q37eLfqz1zjXKp6wW4bVwENujjzi jgD+3qQw6yk5yivemXwgmvAeV8ZvcWHsGqsjGywNjDPT26lOivjLdw5ge2Gb 1jMTtGZt0J6nrrA2c/YJq20v2ep5y+6gCH4R+o8nf8ml4Vcsdj2gvPwC1WVr VBQvUF40TVnRFBl5U8SKTIw5I+S/ekYcwSAPt86rmY+OKpFIuR07ZcwRIz+O GYRx9HggJ/XUC0pGFjHiBOKwcIrHwSYBD59kjB2SyShuJ61jguyhRSzCszAP ThRLwiI0CauwJGwiErCLjMU6JhmH5DO4JsShF56EkcQqV8csPIVUepim42ab jrttMm7WcTjax+IoytzeI4XTH/kSeiqQXGs/UhzD8Q+LxzQgCfOgRCwVhxAa h3VYNFYh4Zj6BWLoG4lRQAwRlQ1cuC26Rrx4Q8wmTVnXaS7dpadWXZtjuvM2 i323xf3eYWNUnjdxm0vTYvO3uLh0UzW5ZiXxXlHmZp8eVlMh0bGxFoXEWdap gXqcEr8ZqkMXaIpepD1+gYaEOboy5hlIn2coY47J3CWmC1YYy19iMF/B/gRd +YN0F3TIeQ09WZn4ugQQ7xFIvFskBd4JqlfOMXNVHQN/clCcwVG1IzjigMcR M4INHUh0kbfilEGkXS6xjuUk2deT7dJPhXsXdZ6dNPt20x7YS3dIH31hIhlC 5O+FddAa2EhrUD3toQ20KwlBolh7QwvpDUrhZu+IajA82n1FbfAKZ5OvUJ+7 Q0PpDu01u/Q23GC49SYTnTeZ6bvJvESvxYldlmbEFnZUjdmUsrzLYvNLl5XS vP9Hg+j9nQQUdF65coWCggK++c1vqhCqOAHNgtj/fKcktaWwFXeg3H41/iv3 tRtRlPUwraDXEvz962K/mvD6K1VcvqbZxXVx4TwtWf205i1KUN9ktEQ+Sq34 uhYJFV0SuPuVsn2vRA2/UpHpNzOv+HzuJW9F8b2ef6qty3lPXOPFVrWIr/QY pchLnVRUEDFNaUAnndE9jKT0sNq4zZYMwqsyCHdlEN4Ugb03LiaD8Ya4hmvj N7k0scPa+BaLo8tM9g3y2auXqq9IKze25sQ/pAqmMy7Qnr+rujrd8IzV9s+4 1PczdoZ/zpq87eb665SUiPguXqQwd5zS/DHKCsTyhynLG6Akp5ei7B7i5H1F SnSPje9gsHfuTzTuSPEPjsbqcpZ6x3Q4JiLw2Mkgjp8IQkdfnctiYh2LhYP4 CPNofP1SsHSNxt0tgeCUIiqmxB1Nr+GRXoqZ4iNCxcITsYpIxCYqAVvRr/ax UVqmpa/nKjxBLcHV3+q3cfHKx9O/mrCwJuJDqrG3L8dKJ4skj3xqYnI4mxhN xfgFwkracBLFYiLuxyQ0HuOQGPTFJej6J+CbU0peTz81S5tc0OxpGiq6Ql2S jPW8HZoqdug+uyPjfJfJrhvMCXVaHLqhriQh41xVSULGufmhQ5gdOqJ5b1/H 6INPiTGMJs60kHizs8RYdmke+3fKQtc5G7XK2Yh5WmMX6BFuMJCxxFDWEiO5 i8wVr4qtMF20xGjBIoMF8/QUTtFVNER3seC2SPxEbiZBFuocx0AzA0w/+De8 LO1VfyHDN5AzIVnUBMRSa6POAU0+oSc+IZgEl2RCLM+InMgn1qqcNNcRit36 qfLoo8F3UHzBMF1ho/RFjjEQJdIkdpSR+BFG44fk2MdwsviPxE5645rojalk vbyH7ZpmDe7+hIc7rxmqukl12jWq5furL9uhtVa+w6YdBjp2GOndYXx4hwkZ xZMzclxQ10KeXBaysH2PF6/fara6/J4K2yUlJfj4+HD69Gntirkm3+Y31b/5 xj4P8ZsIw5eNS766vvZ/qcewvwrPpQUhkZmjmnvfYKHhAefbn3G19xW3ht/w cPxzkdPCuee+0Dzn93i9/JrnS+p6kMptb0qZY1tVP/wnRDp2UhzcR7uSz5/d z2z1AutdO1yQsbY1KDR9eJcrI2KjO6rdNRcmrrA6IVRl/DwTw3OsLK1qilb+ 3rtvQ3t8fOsJLUmT2vni/qoHTDU+Z6XjNRdFLfQ075GtVNrLnSIrd5QCcQKl hWNUFo1SJVYtVlk4TGWB0hS9m9K8NqJT24mMqyUxvZO2nk0ePn6r/uvvkxEX gYuxuuqi6cEDHNdRL/mcOBHMaYMI9XU7IQ6WUXh5JmHnFYebezw+oQk4il6P qWihbHKJcDmahsRjFpaAmRAGC3EI1jHx2MTFYRcfhUO8Opv5uGcY+roeGOr7 Y2SkmUi2EXLhGI+tayL28jfsvZMwtK/GwrGOxLhmqgpFBBfnUDFxgbKJ85SM naN4ZI38oWXyBubJ6Z0iu2eE7O4estqbqFm5yIV7dzUj/P/lvJDAvNh10hPn yEubI8yvlSwlFT93joa8OfqaN5ie3mF6Tkb14g6n3/8Jx/7xX9H5B/X8ial4 hsDj3kTqlhJp3E2sgzrZNMdn4l21v9aYeToTFuhLXWQ0T2nes8JU0bLI0yWx BZbrzjNSOMtA8QzdJZN0lYlnKBPPUFpNZ276V7KfXU4ewlVMPdr+GudPjuF8 2kp1L8nJhyzfdJKcc4iyUgp0VhNvVU+mTbN4hSFqfMZoDJygLWyK7qgZ+mNm GYqfZSRxlrHkacZSJhhNGRXVMkp/aj89yR2MZnWKoJxju7mHxxfWf0ezzrUx 85TS9GsyunaoqtzhbIM4hvYdOsUhdA/t0Du2Q8+UHGfF5KvbufNCs5f7G+9g GRMTw49//OOvpP9r0v5//10I/Ppv8Au/p3khbXa0UkdAu+9GeeTLLpFfXaT7 msY7/Ka6Q2pf8w+q19uav0xrusTcrPN0F15nrPqO6vr5rpdcHXjDrdGf8XDy 57yY/SWfLf6St8vqGt6fr/6cz1Y/V50/VnoPLT5SO5n+LSZLZuhNGyLTZZJA mwEygkepl++6J088cdUcs63bLHVeZrXnMuv9lzk3tM36yDYrY1ssjF9iYnyT oZF1evvH1b5yX2nQv6Q5dozWFPUOgN7K+0w0PpVXe0Fe9Xky8pdJEheXljNC Tv4IRYWjlBeLMxCrLRErFSsboaZ8iKryXirL28kubCI6vUaVJRiXUEtB+bzi GLQ1I++/+BlZ5U0YWzi9S5mwPqmL3lFbTh4L0Fz7IYYW0fKcKDydE3H0jsPW PppACduOIvGdJGw7hkZTOjFPascgpsIYTMPiMI2Ix1ycg6U4B6uEWGwSo7BL UO+tPmXmJg7CEwM9UQJGauViLqrFSl7fxkMckHcyXnHFxFfOctyrBf+MHtKq 2kg+O05K8yJpjbOkN8yQ3LhIYv0caa0z5AyIg+gXB9HXQ8nULDVrmyoHoXxS pQW8euid5ExQG1kBbe+8flVgG6XebRS7ttLWep7m0cu8/7//jiN/+XcY/N17 HPnuAdXzbI6nqo4JhuKwrNXTC1k+QtCCp6gRwtgUO0N7ogA/VQCZMcNo4QLj xfMyYERelM5we/aZKNlJ+pU2wOWjdFUO0FXRJg6iiuyQwH2pt0IdzIU6fPhv BFuo6zP66p5SHR0PnFAd/fUsSbCPIcq6gEjbFjLcB0m17yLToYtirwlq/Gdo DJmnPXKRnpgl+hOWVVWClTI2Y+mLjKfPqUpHDmdO0pcxLE5rXISm0sJ4he2u YZ5uX/xdjVS/d/stqysvyC66Tn7NDqXCGCo7d6ju26FGHESNsIatvRc8kqGk xaoyd7C8vLyP5audxcDAgIo1KHJCO6egOIs//O3U4eua/65N2tXWL9uvVP5U Ix20S36/hS5840s6/l1aUqeEim/SXbTLWK26PdT5nteqnQm3xr/g4cwveD7/ S14viVtY1biFdbm//nO1W1h9xb0ldYupa9PXWWmVcFAqRC2pAV+zMcIlbGTH T1Kp1IorE1KZP6Xu+1YphLFmiqmBi0wOX2RsdJN+sY6hDdokzL189frX3MJf MV65TmuCWI56YmGs4SFnylaIl8AWmz5MYtYwZ3JHyC0YpbhonAoJPjVlk9RX THK2apK6mgmRWWPUnpXgUd9FngTy5KKzpBbVk5JTR1JyDYWCtYeP32gk2Cnu v/oZneduEtM6RryYSfAZjtgGc9Q6hGMm/pzQ8+TQcV8Onkri6IlodA3DOW0c hp1lDHYesZhYheEbIME+MAaH4BicQsXCooisbKR4dBrXM6WYhAvtjxTiERuD eXwMFiINrBIj5FyTda9jhq6Op8iMIAyM1dfMHOKxEBJhLSTCxieJlPoRSobX KRtdxypjAN/sYYKyBojMHiA2Z4DEnH5SsvtIkmvRmUOEpA8RVzVE9mA3xTPT VK+f59Fnr+nvWqSiaEC4lXqVQKk0035GnefREN5BrcZn1PsJZsO66QzsJu5g BB/81YfvFjFMRPbbfHiU2BMZGt/516S6DJHhLe46SPhbxDj1cRNC/SboSJ2g +8w4/bmTDBdPi4adEpvgxtwjps4u0FsulL9qkK7qHjk201FWrkrT12YyB1ur s5UtD/wE51OHVOeBpvpavRlvm8D+W1HQPLmeYxT7zFAdtEBj+DJt0avUh0zT 6tHIXNIgI2fWGctYZTxT+E32PEM5widKl9geui12Vewc2wMTPL22rRXvt5/8 7B1WtXX19mPzG/vgr+UKp06d+sqMgqYh1x/92vKg8qByU3iBdkJReeTly5ea P/Z1lV5wdXX9ygTiH2jejtaRKLfNqcu0JMpnPbNJZ/ENRmsfqK5v9LwSJv+G mxNKV/fPebr4M16ufMFna2qgvz33c16f+4Ln5z7XLiXcXLjHVaWT79QFZmqH aMufpkEEVWLYOj5e/aSHjxIT2k5yTDtJCY0kJNWSndFCbm47WXntlNRPUtVz ntahNcH7mz/9DW5PfS+T9tI9GqquElwwRljKIJEyeBOUJjN5E+SK9iwWplle Nkt11Sz1tbOcPSvWLOct09S1jVPX2k9ObTs5dS1kVjVypvQsoQkFotGT0BHt bmegq8rttNfX5UxUFH37cjsbFzcJb+gkoLKOYLHw8rovcztPWHPskBknD5qj c8CUg5/48PHxdD7Vz8XYJBkH11jM7CPl64jHUTS9XWA0DiFROIoDcAyPxCst k4LhMRJbOsUBpGIUHY9RbCzGCeIMksR5JMZiGKWuY2ula8DpUx7o6gaiZ6JW K8aiJMzcRIF4JeISnU/RwAoZnYv4ZQ/il9lPiOi1GAF+Um4faWKZub1ki+Xm 9pCX002inEdm9hIszDhnUH6O9XMM9yxSWzxAfYmyp0rtBEYKBpnKUzeEXpLX XslRnytHZS92f/BZmh1KyToozvG7P8Dwhz/C/P0fYP7BMWw+OoHvQU/iTpaT YtFOmvMAmT7ipAOHKA0fpjp2hLOJIzSnjNAuTrwzY4j+ItH3wueWOs6rWr2d G79MZ2UfHVW9dFR30VbVRHpYGD7mmrIGmkxtxRloCVyorQmhdiaae2pvkGyf I1p2mlz/BRLc51RXy0IvUxO2RXXwGnUhK7RGn6M2dI6OlGXGclaEHKyLalhT nc9XXuJSz32uKpvnx+6yPS7DX3Tu9ugUT3cu/6aSMr+7D/nKFJ8W+fumDLT9 mX91MW1/4NdWNdi/n0A7f/C/fsv8gKIJ5P7/eOdQNKsaTbEShNMuvMsEnm19 wnrvc7aGX3JjUgL67Gc8WXzD85U3vFp7q3rWZxtvebWhbibxaO01d1fUDSiu qJoun+fSxCRrY2skhQxw9CeH0T9kg4dpBR4+7fiHdREU10G4jLLwpBbCRaL7 h+bh5hSC1cGjLM0va7K5c8X1b9OYvEVLwQ6+mQP4pw0QkDRAuGi4+OxJGcVC cQvnKCxdoKxqkSqlTU/TkiB8kfqOBeq65qjtknDWOUxmYx8FzV3EFtZgFZDA CRt/Tpp5c1LPDWsju69klHro6WFm4YBDSgFBNXWE1moySqvrCMgsVGWUHjtq yomjEoqPmmMgZnzMAqPDJnI9kIPHU+S1CzhpEY+TUFJ7n2isfaOwDVSKgkTh EBaJg/wmFqHx5A5K2B0exCYlG72oBPTiE9CXQKEvv5tOZBTuzvaq79btxEec 0vVC53SAUAp12DcQxBu7xWPgFkN8dS9hFWN4n+nHN0NQnNVHdE6voLqP9Lw+ svN6ycvvpbCwRzxkNyWlXeSXdZJY1E5UdpvQgi4KBVENJX2qhplKJ9S+YvUq 4UzBBEv56lbw58W7bpZOq84vlk6yWTLGSEQdwyH1tDiWEnLQkeM//DHG7x8U xJ/A+uNTOHyqQ8jhJBKMmkl26CPZUwKCXy/5oX2URvVTFa+Uw+inMa1fVTmt Xd5zl3ibS3O3uLh4kwsrNxjrX6BZ0N5U3UFBeo6qPoOnIN7HQlBvqUZ9oCA+ yMYUgw9//I5q+JjpyXtQL0c6HdMj26OBdLdezrhPkem1orpeFXGFlthdepJu M5R2h76kKwymXpHYf5kp4fjzVbssVF1nb+QzbktM3J0QUjz5TILdfband8Uu sD0xzdPdK2rU/+FXpvGUK/vhqFz/lbkBdbzbV2z4d/dBXYG2AvP9r6mE+z/W rFD8tjVD5VHtGuM+3Kt3I41VXqAleUN1ZaDmLlMtD1jpecTF4Sdcn3gm0uw5 DxZf8GTlJc/X1B2OXp17yctz6sYbD9aeq5puKLfLS8q25HNsjI+qJtsdjE9j cvQEOj89gtUBZ8JFmlkpmz9OGeF47DR2h45iK2Z98AiuJ0+oWvf46OmSFxGJ tg5KTegGKcnzuKX24JXUh49EhZC0SWIyZ0nOXSBT6XJUsUxJ7QrljStUtq1S 3bVCtci16r5lKvvmKewcp6R7iKTKJvSc/dC3d8PQygYDK2f0TD0wkKitNLL5 mipF9T2M7QTXjn7qJFV/dZJqgmA/qfos7jHpHNex4dQxc04ft8DgpFIfzhIz +WwWuubi40wwNY4QJpDMEdMcoeMpmLkrWeSRWMtr2QRFYBcajq1EelOh/RmD /ZwZEWyO9WGaksFRuXYkLEaOwgrsbN9FLsdjH2J2yoQTEunV1/TQsYtGxymW 6NJOoipH8BTMe6f1EJDRQ4TgPl6ifGruoBCrIfILhygqkehaMUh5dT8Vtb1U itxJqWwjrrhDfEQLdd6lwgE7VI24lUJyo8Wzqr+0XLTMRsmq6ny7ao2rNWuq 82u1y5zLG2UmoZNJ8eUTkS2MB9Tj95EpJv9xArOfnsLqEx3sPtXF6bAuwccz iTZrI9qxk3ivLtIDu8gNF6kR0015QjfVKV3UpnfQkN3B7OBF1ud3WVvaYWVF vSLX2jxCRVkzfo7OuJgY4Wamxr63pQm+VoJ/MX8bE9yM1FMCAXbG+NvLcwT7 Zhrsn3GoIMO5993el4KgTaojrtIWv0tfyk3B+h6TWbeYybvFQsEtlgr3WK+9 y+7oK25PfsYtiYU7Uy+4MiO4n3sg411wPye4n57m7fMn72mwqGjx0dFRFRYV rGp5/X5pr97Jqzl8CXHFFWjZvDay/9FvieaatT/tbP/+5cI/1FAFLXF4fPMV jbHnaMm9+q5860LXPc4PPuDK+CNuTD/mzvwTHiw/1Y65p+tPxZ7weO3xu3ne 66q+4pfZlPjcUVuhWlBzNtbF3UQXLxPxsQeMyTILEjzr4H5KBw8dsdM6+Buc JtRUnxClKYmxHgFGuvgJs86PiNBk/CXwcPczgiKHcIjuwCVhGPe4SfyTZ4k4 s0hC7jJpMgazqtfIb1inqO0cpV3nKOuV48A5SgbWKR6Yp3xgktTqZoydPTFx dsfMyRULB0esbG2xsBTMmzjjbGatavnjaOfASWcfTtq6ccLcgVNK9Qhh5Km1 wiTlNbxiszl13Brdk3bon7bDyMAOM2M7LE3tsDC0wdPaGUdLK1ELIRjYJXPY Plf8SyJmnlFY+EViGRiBVWgUZiLl9SXmpwxIzBvuI3FUsCnm19zAgQB5rrWN vCdj3CyM8ZCx7GxwHNvjH3LkZABHxZccs47FNCCHVJHzijx3T+3CM6kTH8F6 UIYi3YdJylHaa44JD5qgsGyC0uoJKurHqGocpbp5iJqWAdLqOkiuGaI8+Sxj IZX0e5TQXiJatniZ6aJzql/4XPlFLlWrN1Jcb9hmt0ndI3lPqXeZN8XCmTFm UkdVhT9mottpcErB6EdHMP1AB/OPdbH5VA+Hw/o4H9Un8FQeYRadhDsL3/Lp JCW4k8zITvLEVxQJ7ys900ZtQTdz0zvMzu8ws7gj42x6eUcG7/ntuxRl5uGg b4ijkRHOJsa4ynfkIXj3lO/IW7DuY20i35cBOh/9m3p4/iXedoZkRJeqoe5c RaZ9F9mO6sX3gsBNVYhvjb9Ob9qOkPhdJnJ3mVGaaZfssly6w3rFDpv1N9kT iN+cesbO7BMuzz9iW9nOK65oe1Fo7fTk32um1bR4jBJ9+N5776mI/D75rg5i Gj3++7+WPqetSqEJ6H/4Xy/pafsc7V8F/CMN1EfKrtKYfpm2kusM1stHat9j pe82myN3haHcY3f2PrcWH3B3+QH3Vh58jfurD4Q33F29z+01cW5rt9le3eXC 8kWWZ+bkCz+tqvzopgG1r4AlwMSA0NMhZFoq/UUMlZYtv6Pq3fJ7qs4tSssR pXNLkPiCAMH67vaWGta25PWN4Co/uV3sGA4xs3jELxGUtkpk3joJZRuk1p0n s3mTnI5N8nouktd/kdyBTfIHVqkanadyZA4TN3/MPPwwd/fB0s0Laxd3bJyc sbW3xcraAhdzCwkBFpwW2OsYWYogNkVfwrGhrhVGho7YecaSXdslYr9bqLMj +vouGBi7YmIm7sHSBVMzJ5ysPHCW0GIm0PaV17awchTXEMmnTvnou8Vi5K3U ZI3HMFjoeUAspwS6sX1CrwXWkYN9RAz00nluWvWpu9vaSImPxdbMCAeBtZOl MSZHfor+sePYuefhG3eWuJJ+EqsHJGS345rcjkdiNz4pg4SIrInJnCA5e4qM wmnyymYprpml7Owslc0iY9qnqe2coLxDIN84RkHZEFPJnUzFNTERVs1AYh+j RRe1XnyzdocrDTfYab75bjLubucu67nq6K4tdTiTPMR8fCvNQZUEGoVg+qEe Fgf0JXKewuaADk7HDfHSiSbAupNAty7C/TqJC+0kOaaD9KR2yovGaW9cYmhq h8FZpaz/Dv2qTqy3NZO136GnuRU7A0PsBNEOwtydzQXVwtzdBM3ugmZ3G2NM Tx/CQk+9XWm8d15USL/qPNe3niyrNnLsxsnz0DD2yCs0JVyjK03GffZ1xvKv M1UsTL38OitV1zhXc5Vz1Ze5OnxPoPyIa6pUG9HoK3ti1+R8gyd37vytBqD7 i8Ar0VuZlN/Hzv9SDec/1Uze/6bE9v3bBTXw/m//xYqcdgvg/hU89cbfv1Ht S6iJvsTZ3B06qsRdKW3vu3ZZGbjB+TF5/1O3uDZ7i53529xYvM3NJTmu3GJ3 dY+raze5tHaD9ZUrLC5sEOHrhYuxDq6CTs99gFa6uLke8aDI1l3ViynSwvBr RFkaCh2JsjCQMwO5pK9pzaS0ZdKVQK6jSe79I87t7pHR0k1cRT2hIihtouex j13FI22DwLwLhJddFPK8RULzNsntYt2XyRR0l4ysy5CoHl/m+7gn5mHuHSIW LCQ5CGsvf2w8fAQl7ti7OuHgbImprQ2Wjk7oGVuoc+H0rTHWt8NU3wFzXUcx J+ILmshvGuS0gbsEeU8MLbwwtfbC0k7M3Ac3D1/s7IToy1GhV07iOWytzDGy sOWEZZgQ/nhOuMdz3D2GY94x2GaWEtzRS+pgJ62r07x++1gz+foJnz1+xFKT RJekeiKSu4jKFdEtwlnpDugc346bCFnv5DFCU6eIzZghJW+ezNIF8qoXKW5Y oqxlicqOBaq756mVIZ7TNk168yID+UKmJZhPpfYxFd/CRHg5E4U7LJbvsVEr PrrxHtda7quK/d3uesi9nofc79NM1hausVKotAtcYzpzXnVtXgTBfHI151ve UBR8FpNPDND9zxOYfHBACIZA8IQRTqddcTGNw929E+/ATiLjB8kWUVVee47y s8s0ju7QML7D5VsvVM0Nvq4ZzoqHS46LxdrUCDtzI+wtjeQ3tbcykuHc1lxP UlI8y9Nr7wSMIio6Sib3uZz/RYH/JmWR29QnXKEt7Sq92dcYE6E9LfBVhPaS wHe17jJrdRdZO7vBlXmB7pISq2T4r+2ytXqFzcW1v9kngPcHzvPnzxMYGPiV xfe/VmNYOz22v0zbvs15v7Nvul4r3f8vO27+h+a/7E+uU4fnb/Lw5luqEkWZ y2/ZUbPDUMsO093yuw4K45Dv98LErrAK+TxzIiYW5Li8y6aInnMiepZWrgsx 2mJlYwtnIzWE3YVAexvrq7qqBUksDjU3VKU/psrvmGKhq+rw8zVirIyUf5Sm dtFWAmSl1Y+FngBZ3aBqtLVJLT1+Iji+LeK2kbhSsfIuEiqGiCyZJqRkhajq deIbzpPSukl610XO9F7Cwi4ep0MeJOi6k+kXR83kOha+kSrSa+EXrspltfEN xs43AHtvbxy8XHH0sJPobYuukdlX8lnNDCQCC2atDDywMfbA3SNGyP0YgQlF gmE/jGwCMHUIwMQiEA/fcCwcBcuuwbj5CI49JGK7u+DsYo+NsAAlRd3f7Di+ 5sfEjuJldpilxSFu3NvUuNqfqrA731JNdVEDYSndEonbsQtpEex24xw7jHeC fO7kOWKylkguWiGjYoW8+jWKWtYp7Vinomedqr5VstsXqe/cZk0pJVgwK4Jx lqmsCabS+5hNOstU/nmWqh9woeExV1qestv5nFs9L7jb95IHAy94OKTeXbVR eonV0m3mCjeZLlCT8Pn8cRZFkJ9v+5zt7p9zvf8XFITVUxpzFtOjhpifMMDi pPhn9wiqkmupy5+gtVHGVus2ne3n6BR/cu/ZF5qZob9SjcmihBJaS/rExsXm 6BXS3528QJHVGKXuy5QFb1IZs0VDymU6sq7Sn3+NkZJrTFZcZUbJB669zEL9 FkuNF1hsXmNt+CIXVoQzrgljVvbNr2xz7859TQ21P/i12Sglni4sLHxl07xA 62/2r29/4ytF27Qz5goIFcqsDaS/qVWLdovc/oy4P9aQjgd7n1OSdEV+8R1a BH29zTuMdgkC+4WcjAjCJnZYmRETCbK0qGz8VW/wG56/wvW9B/S3NeEijNhN 0xjOV1AXoJQF0XTgU9qXRZv5UuBoT4y1MbFicTaKGcm5kVwz/BKASq8ts9MU x4WrVIGakP07cZq6z9pbZvMcuZ2LFPSuUDy4RtnIhnDDFk4fiSXCOpXSwBQa oiKISMnCwj9WJVstA6KxDojELiBMlWvqEOCHo78nTr4SOX090NczxVCFOmdM DN1FwnpjZeiDjakfdoI0Oys/SrpmKO2ZwdA6CGMHpUBFIM4SDW08Q7B1DMXF PwRHQbWToM/Z2xNnTxesHYSDO7viJp8/2F6+F3sDilKjNETmj3n95BEzLTV0 nT2LrWsdVr4dWIf0Yx85gkfsHEGp4mVy1kgs2eBMzXlyZIQVtF2guGuT0t53 vXPvDN1nqXSN2eIVTQD5fWYzO5jJn2W5/hmbza+42vGGGz1vWa/c5Vrtrpba Ph77jK36G6xWXGeu9ArTZWpROyfMerG4m8WKebZ6v+Da4BfcGPmC2+NfcG/y Cx5M/4wHM59zb+YNe9OvuTb9jO2Ze6o28apiKmPDaHcXr8+skhqYQWvxqNgC bUXrDAimJwu2aQ1eoshxiRL/C5RGXqI6aYumDMFq3jb9RZdFvm0zXrXNZN0l phrFD7RsMN2+wmTnvGrya03wtbp6nUtbu3/5G2Kdwib39vbe5aRoF4//bj+2 vv4uzu2fQ/5tm8o1DZr/dF9Q0yam/YnGqawvvaBYIFUj+qJFAlq3BLSBgR1G JKCNCKRGptU6oFugNXv+jpCHt6r/2d/WrG71ZaSPl7EBfkofVjN1x7pwkUlK qqC/gR1VTkHE2gqMbJV2gfG2Suu6OFsjFawUSEUp7b4EUmHmugSZ6mjm0dR9 s2NzK/BLrsAhvJTDSn0xC3U+2CnzKBxCSwjJbKZ89DxesW3omZQSE1pLRVa1 OMYCzqQ24OBXIDDKxNYrCSv3WE2eVhgOwUE4BfvgHOjKCV8/VY0VJX1byfg0 EyhZGgVgI5CxswrG3lYgaB9MZHY95QMLpNf2YmwVgrdrGJY+EiidovAMjxOo huEYILAKCMTJX0kP98Ta1RETJzfMROoGCqT87PS/TCpQ5gCuCDTCsokI0mbx /Q0O0VN4piwQlLNKXNklUmq2yGgU0t14nojyOSrbrnBx6BlPxj/j4bh69n6p Qr27cKp4lekitR6cLV1mufEVF9vecrXrZ9zo/zn5zi1s5PTK//uF6jmPJz/n eudDVitvaLncdM0mczULLFT2s1y3wMXeN1wZesPuqGBn4g13pt5wd+YzwdIr Ob7k5uxzrs49Fb6jrWeyxt7Gmnp0/QVTnWNkhhZRniwhq3CdjoIthkTdTRfd ZLn8NlUSsgrcNygK2RJnukV1qkAqe1v1vN7SLfqrLzFYf5Gh5gsMt20w1LnK YPci4+PnmFV2bm/d0siYLxdpXr169WvMTrmmAEZZZ9VwyPf2LdIIdLSJ2vtT vDY3N/fTxd8Qsf58X8DSzub8qQbby+sv6Bi+T5GE9IoOQVjPDtWCrPL+a1y8 KdTh+efvmjM5ixxzNdTToEndNE/V/1GQpDQsVJrlxdjIUS+efFtD4u1MxEHb 4u4gVMveAzeRRLGCqGhrQZOVoMlSZJ65zn4wGUgcOGQawmHjCA6fCuKEgXpX oqGlOp/KzCkeY7sYYrwyOep4loCULnIqOiiqq8IzrRjjyBIso0qwjSzGKkYU UlQV7qEFuPul4xkWi1NoEKdc/DHUcRQwuasSK82NAv8/zt47us70Ou/9Lcly bhJH9nKJFCe5iRMVl5t7k+UVZ0VxLGk0HA4reu+9994bOwii9957O+i9d5Ig ARDkAQmAFSBIEKwzzp93f6dAGIqa2DlrbZ4DEKd9uz3P++53b2zkPe1sJJc5 ROLkHIWzWxRxaRUU9c4TJK8VIQ7koByfFnbnHxaPXbCwtpAYHMOiNEeznUKD cQr2x8rbHROPAEy9ffFzMGJjfVVrZf9N8zWqz2mb9GRFd5MUNaR5nHJphsjU WXzSZkjJW6Cq+i5XL88xHtfM487HPB/+mr2R9zwbfqP5+9kSbUIZKbzOSJG2 I8ZIRgmztW9Ybv7AesfX3O/+e+Yb9ljrfMHT4b9nZ0TrS09G3zFf+kDzeLT8 LqNiteNVM0xVqARo3eF65z4rPa+42/+KjSFxHOVw/dhLTdHk1vge9ycFYM48 ZXX2oci6ONM8u1sPdHH6hzRcq6HsYhsXAmpoyLwtSecevVnbjBc8kffd5WbV HhO5T7jms0xG5BrZyWsUXVmjMnOVOklMjaUrNFXdprlumeamGzS1ije2zdIu kET98MUPjuC9n//855qdDv3yxtHOnzrn+fHRsoZfO4/ecXRrJr/z7fsd/+oT +x3/t84hDgc+meimSEpqCdFMkNRO8IyxUxzCHCe7OEJcwzBX2jiaOWEhYnzW CkNTV86YeXPKPFg+jbdwCAvCrM78sc4h9IcMPzfx5QvTUI6dEn55OowzJtrq GzO7eKEoCdi4JeLqmERAYLI4yDmuFTRyuXWI0vElzIMTsQpL1hwwtI5Ixi4y CYeoeAFE0djHCbVKPodtShInfJJwdLyMu91lPMwv4mZxAXebc3hYx+Mszufk HoeLZxzuQVf44u888f/Cl0sm3kTbhRMsQNAiOAnr0ERsw8U5ImKxj1D2HsME MIoz+AVh6C1ALiEB9fqqvnuEcqu/oK3gbUi9pTkRqtxU+VsMlz4RY36vMeYH YswLNbtcb9gUQ/5fPB/9X7pE9Hs8EqQ0U3ZH6wSltxgp0y7WjRV2M1P/lpst 78UJPqDu+Yqtga+0Oe132Bl7pwFa12sfMVmmyyt/wHjdNJNVnUw27TLfIeba /ZyV/uesDz7n3vAuG6O73B9/xsbkU+7NPGZtTlkfUJpurHJzcubIQbMf0HC1 kYb0kUOU3ZqxSZ+Y/kTxcxYq97lZ+5q1xrdM5qmp8FZxOXaN1It3yEq/Q0He GsXFq5QIByqpuUVJ/U1KGpYYaJtkb/2ODn78898w2bGxMY11K5W5eu6jPFaW FbRb8Dqg/P3DU4L6mYH6vYFPFQ8cSSX/5hMbA1pv+AGu4g3uunFRPmYfeYOk BndXT0zsfTG1csXZNhZjY2vhBtZYilhrRkWJiFdYGdoLUArglJE/Bifshe3d PFxDOXqu7oSJtlXlF18E6oGBiXUsFo5CUdwSsLWJJShYrNszlgDBVdGXsygZ W6BkfJ7o4lrxCPEK8Qhr5UhddDL2sYk4xsXiFB+hnylpZOglWUKgl5m2qaSz ZzqePpl4hdUQGFZOjJ9kGcNEzI6fI8ElleKIS9TER9E4PEVUQT2mIUlYRogD RsbLfTRmweEYBiqOd4nYgjxyOtuOVBnr8mxdshjOhSmdiX+fzsJnDIvB6M35 jpjzfaUl8sDXQhy+5tno1+yOf8Xz8Q+aZzwcf8Ni3QN9T9exqiHGKpaYrj/g eqtwE9Ub7vYKdRl8y/aw4KTRNzwZV0QpvHrFev8u4+Ubwg3uMtIg/KBhktHq VoYbHjHV9pgF1RNuCGC4PfCE1SHxgdFH3Jl4yNr0FitzylLwhsg94eu3efLw 8e/rKIty09eANlxp0dznRg+RGqjNgn0FuwLp9lmolizWIE7b8jVtl9YYvdzH Vo9ks8YDVJXP6K55Qrd8FFXjFu3NG0x03mW17yarPWPsqe/+0ZEMoUTstLQ0 zUK4PkMo8Eq56WjLvzgEut85VIMWLWmrVyTC6A/LKZlDefbRAthPLLPrBywc XWX/tzqcmSokWjN7ykRxEBMCNIMtTfFVlpxdlVl/Hpw1tcPQxBoL03Dcbd2x kse2InYiDuIoDkZWOBhaYWdsj5FFAKeN/IiNK6fsajFvhPz+gQ5taM+aaR1F YQzHJV4rAwKVm4F5NKbigJbOcVjZxeDvlyIsJAEf70T8JT+4CMBJUMb5js0Q VVSNZXgilvJ7q+gkbGKSsItPwD4hDscEYSkJ2tc8ZeyBkYGPuEswpqbas2Y2 4on2rok4eCrHVZLlPcTjIgcwty0mKbqKkvRy6vIzKR25QfHwEoVDixQMzBGU V0dgbh3xFW2ktXWT1trK1aYqcrrb2TnY16GNvzm0KYUia+zq4goNEmaV22Dl y0OTX1W9Rd37js3Bd0IN3vFEov+zibfsTLzh6cRrzd8vdzwUV9Elkrp5xmoG GKqYZ7L+BQutL1lW7bPW+4p7wmaUFolbo/viaS95JMjooVCL+1O73Bp+xHDt mrjKdYYbR+kRZNVTe5/h5gdMtm8y27XJYu8m14c2uTn6QFLGfW7MbmiWXheF di/M32VlZUNPS/Rfr+Gitld69fklLnhrZ5r3Fe0xXnHAQu07bjZ9zVrb33Ov 8+81wG+r7+952C/BYUBpdfCeBwOvuTv4krVBAW7DD0RusTo4wd79ezpz+c1M ol/r0vvMEUqie85vdIXTny0/+mtdjdnv6d5Fn3SOrgoo76xsYyuTZ4++83/Q ERT9Gvejxy+Zm1GzJHJjWmRKHk+oebK1ryvq+FPNSBzNICvJQN7iYP7KJr6d LQYeoRhYuoqRWmNgaoOJmYiJK4HOodjJzw7ys5Mi5jY4W1iLWOFkYSmMIwB7 z2hSrlSQmFRORlIx757vfF+3hdc1tYKppcthincztebEySBOHAvitEGEvozF QlzMz0MgWkA8Ti6xhEqyUU5huEYIpIqMpXBkkouaE1vCb4SkW8RIxogTWJeY gF2SQKmkCBwSA7Wua+CG4Vk/3dX/YyHvyZqFA0f/czgI/EsuGeVLj1qCL4nr lDSRI1cko2uB87XjXKwZ41ztFAlVE2T1jJPeNURaZw9pHeJerdVk97X9kQ4d KLfnW9oK24ZztwTIaDlDf+VzjUcstu5zq0uSRd+B8IQDtkYOeDh2oIdXW5N7 qKd3GaleEWe6qb0Q/5bu8ieM1j1jpmWHpc5dTd3f2oBS+/dcA60ejIkIvHow 9RT1rBZe3RDfHmxYoK9uWFPc31yhpqtOzYBw1dFONZO9aqaH1MyMqTVdFaaE b0/OqZkQuSm8+490zETzTVKaD+NEbpS2rqy3+CVjlW+Yq3/HjZYPrLR/xXrX V2z0fmCz/wPbg+95OCRxQ9Me9YC7wy9ZHX0mMUccafy2PNY40vd1Fv6p9WLl fz7BTnSY5h/jR/qpgno/UrKa4kPKu/75n/+55l2vXLmi2RX+se4TjY8tC0AX K7vWRl1GF83Xumi/2kXHFZGLXbSkdFEb1yVRQa1Lff8a17MGQvS1AxJdlUGf PuGcsfXkhPjPGRMbjExthcfYY2XmgLNNivyNC05WjrjYiNg64Gpnj4u9Lc72 guicXAiIv8Tl3AoupFeQcr6M7JRCFkYGaG2sly/a3lD/Pd2GyfyD57QsPiC+ foAkkS89ovi5hR8/Nw/glyYBfGkezs9PJnPsWDSnz4ZjoPQ0toyQNxPc5isg yyGcoNAknMOUQ07iYsrYkagYzVye/KFR3C5kYCZgzCw2Hot4yX6JcVgnx2Cb FI51vNbFzhq6Y3hG20vB2EJ79sHSRTKfZwp2vinYB6YQk1NH4cAi55pm8M3v IyC7i6C0LiLSu4gVSUxXkXytk3Np7cSldhKZ3Ud8SRdpXeJqHVVk9bdqw+iv sQf/hZrIwcNY0pz/iJ7yp4zV7zDbKuRHJVSkd0+oyB4bI3viK3vCyJ+zPbHL 9uQOm9NCScRnboxtMFy3yHD9BJ1lSnvVLfpqJLc1PWK2/TFLXY9Z7nvCyuAT TbXO+tgj7gp8W1e2Ouc2D+Hb3OhNqrMXKMpQU16opr5STVuj+F67mr4e8b9B kVE1/RKCe6cUucf9Ry8ODx9p8mj5ONrvp9z+iEvBU7TnPWO08pWg2dcstbzR LN2tdb/lXt8b7g+8YXPotabucWt4n/ujL1jXtCEWf5sWf5uSxDU+zrv9FzpX +L3ftpiscbhP0KA//kf73D/TIUrlBZQXUk5ULSwsaKqpPT09D99QR57+o47c KhMF8rO0A65S4zPJTcxlIEs74GpCLGRKrGVKGWyljJE+30VfgrhlhIoX91/q ruFxrkTH4GZohLupMSauPpz1COFLYztOmtgLTnSUNOaMuZkr1hZu2FpHE+Qe Li7njoujO27Obri5uOLq6iziiJVvKJmVtVwrrSa1oALPkAscOy305he/xOnM l9p1PUWEwCkY1fXsWU06VU4gZQ7d1pxAUqbLhYtEFVXwuY0fX1j788VZF05+ ac/pX1ly6nNnfv7FOX5+9honzJKwtYzBxVu8zDWaQP8EXENjxTNjxTO1XukS E43v5VRy+pUTSM0Yi8eaCAwwTYjBPDEGy+QozAVjmvm6ajRz2kjw8SkhhYZh hzWi5q6CS72SsfFLxjspm7zeOQ2GjCwYJOCqipBrKmIyVCRlqriQ2ckVkasZ HVy71i7SyuVrzUReaSPoXAPnasrpvrOmo9f/WVPGWhu9QL3wkIacB3SUbjNQ +4iJ5sfMdzzRlLPe7n/KnSHxvRHJWWNP2Jh4jHrqkfjiNmvzm6ws3GesdZGe mlFqsm5SLzmso2KD/nr5fcsDpjs3WegWTNgnmHB4k+WxByxP3eem4MLrgguX dLhwdWVD86kWpl+SmXWP3FI1pbVqqlvEN1VqGiQPNohP1ksYH77+SCmf+MOP qJeefq2MyNeJ165MNFzZIDNmifJLdxiqeiHJ/SXzLfvcUBYCu/e507fPvYGX kuRfcH9YYO6opOqJHe5MPdEWN8nHXJ1Z5tbY6D/VeaSeIP22NPjRztEP/tEe qR/2oT+WqKxDKJ6pdEja2dnR5Fb9jMnO5lFKczqoyRX3yuuiM7OFcL8QZsUt lyRo3xD5Drfkp99lWR5fF/ecF9ecuNDFYKyKVw9e/pHOG+/eXsXlrCHmNg6c 9g7lhL03Xxjaize6cNbEXViPJxbm3thY+WBlFYi/byrOLr64uimNs71x8/TC zcsTFy83LpVUCjRrJim7mFNOgZy09eeUmTcnT7nh9Hf/FT8TA/zEG/0VEY/0 E480dvTjuGsEHmnZmnlzMSLxpRUEX83mS1s/Tpyy5dQxSwy+sMRExPy4FWeP efH58Xh+cSYdC+d0jOyEVbrG4BwYq+3+qXQWVc4CRkXjHB2JjTzO6O0ho78b //wiTotHnomJ5WxcrNzHcSo8jAArA81ltxUmetogiDMGoYfeaOKWiLm30pL4 HMlVPeT0TBOR04O/5MAQyYcx6Z0kiwdezOogTSQjS3c6SHNCqJXcvCYuZDcQ dbWe8HOlTK/oQcm/oy93lerkVWrS79FQuIGq8r4gw00mWreYU22x1LPNcv82 t4e2WB0TmRTvm3nArbn7h832FuZWqc+aoez8XSoy1dQd9i8Sr2lVM67bpp8V L5odF1H6dM0qlcIKpvwuy6vbh9b4Hd2S1MOnH5i+uc/cyj4L6/ss3ttn/u7L X3fZ1f7hn0h67xW/WzxM8VcjJ+mrlHRYt8N08y4LmhXHXW737rLWvyupfoe7 SsPF8SeaQ4iaFr/zkgYVmjh7k2fb27oqsW+mQYVNKRnqY6c7wuH+1f+h031P AzOVpXelSEJxNsWLf6r7Q6Usozynldo8FZ353Qzl9zKV18/l0GRUF6tYKxzi bskg6tIBNsr62Sjt4V5Jt/y+WzOXY04cbzypk4PNF7q3/SV3V1b50tWPU94R /MrSk2OGrgJDPTEw8cHE3A9LqwBs7AKxdwrC2TMN/4AoXL0DcfUNwM0vAFc/ X/xSLlHY3iVWnoyRswdmDvaY21pjYWWDoakHNsdP4XviM4JNDQgx0Z4ZsJD3 /NIlkC+cxOtEAjOySS6v4HxZJV5xF4VKOnP6uAUGX4q3nbLC/IwVVsqZI5FT XwZjaBLPMcvLnLK8hrOf5EDlTE5ANPYh0TiER+Eo180xOkJzLudqj4rUfslN g51YXNCey/kiIp4vQiNxdrDVede/xt1S+OUZiRYmEZyyitX81sA1HkPvFEGX 4k0dY4RJEPO73E7Q1XYiJcclZoi3Se67mqUiM1slXqYS3XVSVNxBUVkbxeXN ZJTUEp9dQ1x6FVOJ7byW66/1un9Pb9EGFRfvUpmtprFETWe14D7BgWNtG0yp Npjr3WBhaIMlwZ1L4i2LyhmaeW1nu6m5u9y4dU/zSteHn1N48R7FWWqq5HWa 5HU6m9T0dAiGlNw1KBxuSDjc4KT8LPS+T15r9ta2lsX8saTiV9RGzFJ3boW6 9PtcDBumPnddk47Hmh4z3SYpWSXwt0fgbf9jCQKPuD36kBWlP+GsBIF5Bdaq 5X4d9Zpayzf+xWHh0MfLHvruN5+ibX966Njf/XjNUN/0Xnk5xTmUNPcd5Uk/ 0YWAnce7VGY1UJvbKemoXzxkhOn8ca4XTDGY1kpsQCQPqmbYrpnmUd0Uj+sn eVw3zsPaEbaqB1CX97JSJKlLNDqZ1Mr+/ec6GunA4v0tztWp+MI1nF/ZBvEr Ay9OGPlxxjQQY8tgzO1CsXYKw84tTBDZRQLDJD/5h+ESGKqpBwhKPkdJzyCR GQWYu3ti7uYuvMdFnuMgHiaWbWUqpM8Rn8/+RnO6JkLERnLbaTfJXVZOnBY5 a+nEGacAotLzuVJei2/CVckPThhIbjIysMNM0KuVkEcbcxFjG3xtnHGwUcZA xmHoksoxlyzMPQX5+cVgI/nJNiwKO9GLZWQcRqExXOjp5HxfJykDnSQNaE+1 HHP3xsrGBjcLUzytdCc2bM04e9qD44YRHBdPOe4oOSk0ncjcJlIbBggWZO5z vhn/y22EpHYQK6T4XEaPoMM+0rP7ycnvp6C4X7yjj5LqXspquyivaye7qpHE /Foa8tq5IblsLqWZ11vPD4uUu0o2Kb58j7IcyS2C0NrEyrvFygfEykfEyscE oY3rTqCMTmv7ug1O3+X+w+e61f/f48nWe1oaHpGVq6agXE1FvbxWm3hfl5pm yU1N4imNkp9Gbzxm7+ArffDty16mKm6Z6iv3KLyyzKWoflRV9xmof8BoyyZT HZvMdQnY7H/A0rDI+H2WpsV5JbEt6hYgZ2dWeP36zWHz2Y8Lf5T1Bn3aU1xD vw5xxD3++1FP+B2NQykr5Er+Ebz2U50fDLQMUpfTRlPuIL15k0zkz7FYsMRK 2Q3UVTeJFLvcqJ1np+Umz1tv8LztOnttC+y2zvKkeZKthlHU4g8rJT3cyGzn dtXIoR8sPXgoXP+6RMIqPneI4jPjIL4wCuK0eShGNsImHMWeXKOw8YoWPh+N d0gxbhKVHYMjRbcllA2Mc6WmCUtvfyy9/LDyFEzn4Ymtmxt2Lo7YO1hhp5wG OvkLwk1OYefqhZGLj2YWkqGBhWZj1/SstWQEW5x947hWIRG2qpUzZx0xUjq2 m7lgYemKjY3cWzjgZu2Gu7OTZhvMw8lbMFoEJ5zOc9o1EVMfYUKSNSxCYjAJ icMgKI7TwTEkqDqJ6xY81aMcBWmnZWmYN+92NIXSdqYmOIovuIi/utqY4mR+ ll8eD8HI8SL+56pJLFRxrkJFQokKj5QGvM+34H+pk/DUHuLT+jmfPsjV7GEy C0bIKx2lUK5tSd0wZY1DlDf3U9HcQ3Ztu8Y37pSPsFLYy63MNtZrh9HPU3/6 8Cuyr9wlP19NWYXYr9hwi9hwu9iwql9E7LdTon27YKypW495caBvUfK7TC3u S+QXHLW2z5LgqeuCp5bU+3+le+keifplSXcoT1OTGNonEG6dDnGzXklKQ/IW Y/IWEwPysiMiE2omp/Xw7Z8yNrPOwev337bBedjU7FONl//2m2H+aAHoT3Wb oLuPd6jNaKBBokh77hRDmnEIt7lZtsbdmnW2Gu/SkdZAWUoeL1T32O+Wj9R9 h1c9q7zovsWO6jqP2ud50DyluaIrJZ0spTfyantHt+/xP4XjjlMweIv4ghoS i1txiy/mmE0cX1pEcNYuGmPnWMw84rD0icPaPx6ngEziIzKJvVpE+cgMFcPT eCZcxErp8+8bhI1vIHY+fjh4eeHg4Yajmz2OzmLh5oKLTE9rzjcaGJhhZGiF iZFEcSMHLA2dsDZwxsbQhbDETLLrujCw8MXY3AtTay8s7b2wdRSx9MLL2wcn B1eCxJPc3RxxdbLFzt4FA7tIjtvL53ZL4EvPeL4Ub/nSPw77a/mEtkik726h fk57HOJ3dTtpLc2Nmkc3ppaJjG0kSrBOTHYHiUWd+F1qwD2pAa+UDvwu9hJ+ eZCE1BHh/WOkSZbNKpkkr2qSIsmqpc1Kn4ZxKtrHqGwf5kJlN3P1c9ytm2Ot cpzVom5uZdXzRvT5Qx2ZfPzkK+Zu7HNNonKuWHSRMIbiTjWFXfc0tVI7+1/x P3SAZWnwGYUp61yMm+VS8iS14gUt8pxOeU6PrnKxX0y0f1yLdRTMs7DymJcH 7z+1rfhxO/Cj+zF/d3Sh6pv1kz/RWeVAQy/1GV00Zk/QlbPEaN6qrpH/A9RN WzxqeygWt05WXBo7nfd4M7DN28FNXg/e5+XgPXb77/C45zabnUvcbZlitaaf 20XNPJm/rbPKn5HfM0Nm+zQJefUSY9pJKenlQtUQ0fkq/K7UEpRaRWh6DRFZ tVyp78PGKRGv495cMPUiJzyeirF5rAX/WAdGiIRjFxCKvVLU7+ePk68nTt7O OHlYE2h3AlsbibGmNhgb2WhOypoZuWJp5C6YQuK0iSf2YoW2tgHkNfcRmpKF ibWfoH6J584BWFoH4COvbevijZd7AF6+ws2Fk7t5OOHqYou9nSNuZkqHyLO4 2VpiI4zB2tmdqake9t/s/p5uVWVIXjo8vpWIKx1EZ3fiGlOHS3wL7om9+J0b IvzimITTSc7nTHO1WC5N5Rx5YmCFzXOUtM9R1jlLuWqatIZhrretstV+h3st y6w1zLMqIXe1pI3dpVv2mrf7AyaGnxAePkxW4TqlNYKhmyWqiu016tZ9GoaV tR+xQ/XOp8LaUfv5GND+4pv2c7RKUG8/NaK/hvQhmjLn6cm+zYTw5sUqoaMN Sht4ZQTSc170PReOLgxOGN770V3ejz3jzdgT9gWGPx/Z5InY0VbvCvc6F1lr GmNFGTjeOXBkHZy/ISFHAVid2nWd6hGuNk6Q0TZNtmqO/N4FCgeXBFSWCu1K JM75MkURF6lLiiE4UluTbiPJ0SZYQKNSlx6s1KUH4hzoi3OAu9Awe4KdvsTc yl5CmbUYjqMAUjcsjL2wNvbBzswPe0t/HG1E7PzJbx+hUDWKiV0wZs4hnLYM wN0vCgefYBxdgvEIDMbV308opjeuPu64ejnh5CoJ3sqFUJszhDkaE+KgqU// fd2W7tLMbS5cbsY7phHnsCYcotpxiRvAJ2mcsIvTxGbMcS5/kdSyJTJqrpPT eJ381usUdV6nRLUkOPA2z/ue8LT3Edvdm6hV66y13WS1cVp8spflkgpBQFoc qWi+onaWmeV9Fla1uXRJcul19T5r959x9epVUlNT9eURv6OzkKOL5noL+ezo 9pOW3ihQUPnpxzoLqbvSRsO1CZozbogV3GWyfIvrdU+40/KcTdVLnvYdSCR5 LZ/8KSnhyXw1ecCHqX3eTr3g1eQuexPyrUa32B66h7pH3KB9Rqyrj+vCt49W UF6pHCQwpRSX6ELNzyfsEjml7AIpBUUO8USk1XGpdgBfyQOG1gXEx1RQnFFG Q1G28OAGPPyzsPZMF8O4pNkxsveMxClUGFBogGa2jkuQI3ZeSmGSIDmJLCbG 7pgbC8Mw8cdWGZZlLcq3C8HJMQRnlxDiUoso7pnkSkU7Jg4ROPvES+SKxNY1 Er/IWGFWofKawSL+wrR8cPGT/OrtIX/ripe1gb7i+rCC8mBvl4L8Puz827AP 68Euug+PhAmCLi0QnblEUuFNLlbcIq32NpnNt8kWi0hruikM4wH7g6/YG3zB 08FdtoUEb/Q+4I5qjdW2RVabBUvU1jvodjOOjjP/FBpSdhGFAH/bFIpj3zSK oxVh/+HXLv1d6i510XB1hpb0lcPDeNcbd1nv2Ger5zXPBt+yP/KeNxMfKL5Q zHLjDb6afcvb2de8mt1nb/o5Tycfsz0quWpglbXuBflGQ9ysrTtqGFb+V/lc DOELS6F7Btr+poZKv1T7eAn7CVi7J2LuFE+yZyL28W0EXmolrbSZopZm4kvq sQlLwiwmG7vYLJxjM7CLK8MjNhfv8Ct4CYhyl1Rk5+SI9SkxijNumIpRmBsH YG0WjJ1VGA72ETg5ReIsinfxiCQho5yS/llCYrPJDTmPjbyGkUMYHmL8yiKQ Y2ikdqhTaDDOIf5iKBKFfLwxdvXE2kKAl7Z6+PC0kX5Nbm16Tbdw94e4n58i 4NoCYblLRBddJ17oU0XzFpeCarlfOKu5rPsjb3Vzsl7ycGiHjYGH3Om9x2qX hI3OCTGMVkcde1VW7G/evPnJlfujA3yPghBlq1n53XGtNfzekRChf+qPdCFC s99wWdvapb94i6maZ5rH66rXbPUpM/k+sD/+tYSEr8X91zkXeY4P8x94O/+O V/MH7M2JaU8/Y1s5iDwsga/vunyLEW401R+WPd1d1ZbMnrKL4wvzSE1bi5O6 GYomNrFYiAXYCNy081LaZMUTEJIkoCKWK0X1XGgdoGJyibiSOqxFS0q5rG1k EvZKuWxULE5R4t7RwTjEhkumj8DEIxgrgd1OTml42KfibXkZd/OLeDqcw9Mu Hje7WFw8RXxiScyq4vgvPAg87sNlMy/i7EMIDIzBKkQ+T5hA3ogYHJSS2Yhw HMKDsQ8N0ozlNhDIHBbqzD2xhI/rgtam7sj11O7jNF67q7kfKdthpPQhS/Uv uNfxXpLEVzzp/5qa5CGeKXNaxpQ2yx/YG3/L0/EDHo7usSHQ4s7AfVb7b7Pa K4mkox17HRn7Ldur+mShJAjFCo4mixPftISjcPQblnBRuxLeV7rNZO2u5vGd 7jdsDogljH7g5eRXvJ75ivdzXxMXGsdLJVksfuDVwhuez7/i6ewuW5OPuDd6 j7UhseW+MZZa9ZbwpzibnNa85hnR+hengzh+MpjTRrrJC/axWLlIoBbS4eQY R0hYCvZClkL9E8Q/kyibEHw2OUdsSQ1WEUlYK5MXosUSYhJwiInDMU58N1YS QKyfvlTU2NBHQkLQ4eK+m2+6hI1MvCKqCYooJzYwFzvjRCxPppDsdpnSyAvU JEbQPDpOdGEt5uHnsFJATJQAmKhILMNjMQiQ/BSbQmxuBp3tWdqvpq8vXp0Q 7V8YpeGSbvplwSNGKvaYrT/gVus77qk+CNz6iseDX7Mz8jV7ovmXE6J9ua57 k+95OvFG03BrY1QZ66Qc8V9ldWiWle4ObD+x/qPABMWj9WeyP4UTTn1T9Uf5 8TdUf15be1NyaYa6NK0ZqLJv0p27zJOxN+xNveVg9p3G8QfLB6nJqObN0jv2 F9/yfOGAJ3OCKZQ9VqH3q2Oi+sFR1qeGOeyzH//r2kcDi1hRu7Ze/oxxJEbW 2oF0Nm7Cj20jCQxOkdycgJdXnOaElGtEvDCVHErHZ4gpqdaW70aJCSg99mOV 1BGHQ0IUjgkCLuN8sYvSjrc1OuOOsYG2asTCUliMnfZ9HDwScfJJwtk/WfK/ mFBgOdaOxaTEVVKWWUp9Qbown+uUji5QMjJH0dA05+u7CcqtJrOjj2utnaS1 NJLaWMal8suHx2z1QUB/f3tsjYbkETGJm4LU1ZrfD1fuMdPwipttrzV91h/0 v9PUMj0dfc+u0mN18h0v5Fo/n3rDk6nXbE/so57YYW1iS8xLzGF0hps9rVgf MYePc4M+EnwKIZzVfkL9aXVdO0jNT392uHQuNlFdPEKKpCzllhfRRGmEtj64 NryV2tBWqoLaUKWMcq99iwNJBE8FK+acz2Z3eocXi6/YWdjnsdjEg+lHrE9L apu4zq2hYR6r1w63tFoa6mkVuSMJ4p/oFiefvPrA/P09GgYmMTSz0xdhnzwT xmmDKE6eDNHl3f9XCGAsQX5JuAbH4eEZR3hsEm7irm5RcbhGx3K1vYticWUL MR+LqAQsJVJYxydgmxiLXWIU9okhOMT74OdvqkUmZzwxMtAWHJlbR2PlqK0w d/BKFsKbIpwlBafgZM6VjXDKu5aw1DbSy5rIa6ijfHyJi3VjXKob4VLNIIlV 4+T0jJDRJebSKebSLubSXEZnT/bHLaz/JXXxgzSkXBesrrWRwcodphpeCAUV VtD1StN7TKm/eaxAhokDdgWn7069EpFrPPWSzck97k0r9TgSMqZXWB2fYndT bakzA6US7eMVtY9N5ChsMPymiRzlnn92BNwVZXdRltpOfojWSuojm2iL0lbz 9Ua20B+hSCvdIa20BbQymDjM/sILesu7Ga0d1nQXezb/nIdzz9iY22Ztdp2V yQVaSgu5EB+Ng/FZnI0NcBVxU8RIHhue5UpMDB11+l682kbcl1UzRFa2EFxQ gY1E8c+s/PiVhT+fmwbwizMx/E+Da/z85DlOCgg1sI7EWKKMl2u8pvzT1jmS EIkmSumnm5jNd3CTd/iJALcKCodHcDmXirmYlHmsRCeJNNaJSm2asInEYCzj /Ak2/zstlDEKxNBAm23MbGKwdErQPLbzEXAZkIKDmE5sfh3FQ4sSVZbwy+sh prSX4PQuIjO6iBNJyugkJb2Dc2mtJKS2EpulIq64nauqBlLbSmjvzfxN89Fc /IQFAfTr2uxd8YSJ+mcstu1yq+s563173B96wdboC01p9JNJwWxTeyLPeSTu +mDmKeuzj7WjapW6kfFx3uy/MDsSYZSt64iIiMMzWN87Yj4fL10Ya83n+58g pvrpmc+e7FGU1UpFrkpHP/4VTbENtITXHybr0bgmJhOamRaZTWxmMr6F0Rgx qbAW2r2aWa6XHBiZyM78Ux7PP2Fz/hF35+/TVddOsKuzcIJjuJoaaE7te5sY 4Ktp8KgUcPwFvmJKPoYGOJlaCeU/R2R5BzG1LYSXVhAtEldcwTFbX47b+PPl STvOfG6JocgXx8L4xclL/K1JAScsBAhYRwl5lGjiGU1oaKLwhhhcImMk+oiI EbnGRkkyiiV3YICU+mYM5P9N4mJ0xVTRWCaFY5EQgpvtSUJtDDXf29goCIMz wboo9ydYeiRpCqlsA5OxCztP/sCsJKQ5zteOEHhNRViGithMFSnZKi5ldXJV 5Fqm0s5ZotO1Jq4J+Y6+1CQEvYaUqiLuPZj/ZJXr7oNXh2MAc+Qylm0xXPuQ 6ZbHXFc95XavGMmgeOrIMx6MPWNrQkD/5FO2p+TSzz7SerDSlkU5pj57k/Xl ZdNPIBaFwyqFSN+GWEy/aUBHSaz21Ma/49njXUozG6nK7aA5r4ve/G7G8nqZ SOumO0xiTXQ7E4ntzCkTys63sXSxlVupzdy62szCRTGqlGZGYprp9qvnamwq Iy0jPFjY5O7CA1QNKuyMzmL55a/EeM7iLQbkJxKgdC0U+S7BYkq/wNPSijOe UZxwC+WYox9+6dnEl1eQLHHjfEkFJ+38OHHaljNKZ+DjlpgpVQnHHQX0xnHM 4AKfm2QIsczC2D4UXwG6LqGxmtof54hoXKJFYsS4YiMFecaR2ddN5oCu/ic8 VlP/YxAbIxKNkbcLXiafEWqn7WttKuD6zKlADHTdgU2EaJsLwbb0U0aSJ3K+ ppO8viki5ZoFpnWKAXUSJ0ZzLruTKzkdXMtW6n86NPU/eTlt5OU2i9RzOauG yCvVhCbl83Bp8V/q9jh7c1aoTlqhNv0ezUUb9FbdZ7RxkxkBBkvd29zqfyhc 4CHrIw+5N7ataVd1b2aL9bkHrC7c59aCmpvzd5iT0G+iec3vfxLUKP+jJ7vK 40+AGwut4fz+kcijf+a/0RlOX8sw1TmtNOZ105M/yFj+CPP54ywXTLCcNS5G M8DsxQGuXx3g5rV+bqb3siqJbj2vg9sZrVxPa2bmYhNj8Q00xpURK3hDmQ/c 3tCFk4UFtoZncDE8ia+ZzmDMDAkxVdpeGkr0CZd/f4yvjZXwyEjNmeeTLn6c Fjnj5Ee4GNCl8kqulFVyysSJsyck6pyywvSMFZYGVtgYWWNp6MyxU7GctZWg a38VA4d07LwjsfKTSBOslLFE4xgZhVN0pHDiaMwjYknrU3F1QFvKYqkvZREj Ou3lLp/1M03rVP1gUCtLYWRiOKdMIxSWpq8hMxXbSarsJKtrjHCxE3+BPiHX 2onJaCclq4PL8rv0HBXZEtDz8zopUmbsSN4qKWsRqae4tJL4zAqKzxUymdh5 pJrlD+ktuk/FpbuiFjWtpdo+ZyPNaqY6Nljovs/1/g2Wh+4LmhaZ3ODWzAY3 57Sb4/PzysxGZYP8rZEuonyqdOS7OuasLyH5CPFYfdNujrJjbTcbN5bnlqnJ aqAht5vOvBGGlZFWeXMsFy2yXrbEg+rrbJQtspg6xXLmFKu5k6yLXa0XjnC3 cJC1/F5u5XSyKDY0fbmRkfgagn2DqKlsw+TYrzA/+SUuRqe0diNWEiyitCgN Nzci0sKIKJEAW7EFn3BMRM66+2MgYuQWgIlrIGbOQcSnF5BeUcdZc2WCkC0m xnZYmNlhbWGLnaUt9mY2uNt6C91ShhgnYeh1jRPuGRIcwrAKiMJWgo9dhOBi sR3L6DiMwmK40NvJhSPFHY65uZyUz2Fr8CUelqZ4W2lbcforZ0mt7TljlsCX 5jGcsE/gpFuS4OQUoguauNoyQKgEFb9LzQRcbSX8WgcJAnguZvWQlt1LVm4f eYV9FJX2UVrRS3l1N+W1nSItlNfUkJhTLteunuvpKmZTWjnY3NMZ0B/QVbpN yRU1lXlqmsrVdIkBDbaoGesQI+pVM3u0v8+M9jjK+Jwy6mydV6/fG3wiTf1D cI7NN63m6Oqt3moqr1VQL+7RlDNCb+4s43nXWSy6zUqF0lh1jUeNd3jWus7j +lXultxkrXBR7he4VzrL3TKxotIxlouHWMzvYSarjfFLtWQKlPR088Ds+Oea XmA+RywmzFzpzWmkacsZbWVEkK2kHZ8QTH3DMLRxxtjQCjNDGywMbbEydcXK LQKP0PNk1bbi7BODsYkLphYuWNq4YGvngrWVI172bni4OmJraoOTawinXVM4 4XEVE49YjD1CNCOrTYNjMQyJxyAkDquUyyR0SUrp0XbFTB1oZvT2AHOzQwLr 43EwM8FFLMfNyhQPG1O8bE0xNgvjS4skPlcOtcfkk1ii4ny1wOFyFT4XGvGV lB2gHNlI6yE5vZ9LmYOk5w6RUzRMYfkwJdVDlNcPUdE0QGVzr4iKnOomWoqa uVs+xEpRj3hlO+u1o7pyiO+zJEg47+o9igvU1FaqhYyqUSkHKbrVDAyIBY3I vbIRLFbTPakUvj1SNoK/1Kn76AD4T5Xm/EOWZuy0FqRfTT7KxbXFoL9i99Ez yayNNGQN0po9w2DOTaYK17ihNPWsvc9m0yZPJdPuqbZ41b3F675NXnRu8ECs a61ymdUqod1V88zkDzB6pYGRcxUMnS+nMyEbD2dn3MVivDQAR98QUttNTmkG GSMSa22Mg1ibhV8YxhaOQnJsMTNyxNJIELaRWImJK3ZiSXYCYC4W1RKSmIaJ pRdmdl7Cn72wc/bEQR67e3pib+dMsI8n7m72uDnbYil574RrKqeEx59wj+OE Tzwn/OM4HhiH3bU8glsFhAzUs7S1ysHbXR1n/fe0NjXS3tJER6teGvGLbiP+ 6iBRae3ESq5OLOsUi2nAO6UJ7wsdBF7uJVr+Pzl9WNtTtWic3PJxCmsmKG0c p7xlnMq2Uao6Rqhq66OwrI3tpgU26me4UzXKanG3WFAjbx7v/lC3XTM/v09G oZqCajXljWpqJNzU94j0y+NBNUNLj3l+8NVJXaHC0TPK+t2df8zCjeM3jeUo K9cay99xe+YW9UIJGjIn6Mi6znDuGrOlkj1rtrnb9ITt9mfsdO2w37vDm4Ed NuuWuVMyyaIE4fmsLqayehnL7qMnoZqxhHKhX3mMR11i9FIuYc4ueNjZ4COG EiCGEiyGEmZpomk7GK00QLMxIcTeCgufQCxsPDSNxsyMnbEwdsfa2FPT2s/e whtHaxGnQGIzyijq7MfU1g9zR3+sXP2xsw/ENygEe1dv/LwD8fYXw/F2FeNx xM3NBkcHR02fG3dJlE4e/jh6+mHn4fN9XaZ+uvOBbPGJuGtDREh+iRE7cE+o wzOxA8+UXgIvDhF1ZYzkjAku50+TUTZDbs0MhY0zlLTMUtYxQ4VqmsrOSaoa +nncfouHHSvcb73BncZZ8aUhsYNW7rb26SK8YIXlfWZW95m9s4+BDmUoWlMI 8ydHsn56ycVZq1z9lLejnPmHuqcN1g7SkDZAY/ocXVm3GS1S6xjcf+V53z5P Ox4fcuflvDFuCEpZzBtiTjLrcJqKwYsqptPamL9Wy9yVXJqC4klzcsPd1RVf UyMCzYwJtTA+7GgXI7FZ6Wbn7eKo6bloYe6GqdKv0dgDKxNvbM38NF3jHG0D cHYQcQrALTiF4u4RoQn5mEuuMLAJxCMwCiuPAFwkV3gGB+EW4CvihZuvG67e 9ji6OWNvZYXf2Z/hb36MYAdD+trq0TcpeLr7FW0jO0SLVr0TGnCJasItrge3 xEECzo0TmTpNYvYcl4oXuFa1SHb9EvnNSxS1a7fny7oWqG2Z50X/I3b6tnjU I9Gxa427bddZbZxktbqHm8VVPh/FcG9vb372s5/9b1GA6zc1p5BVfffPHxzZ Jaw+X0fDlVEdzv7vjJVuMl+rna230antBLmka8Z1PW+G5fwZrSYLJ7leOMZ8 4TATOf30Zwwzld/PXEE7M7nl1EUlURIcLhnaU/iGL2F/60rY5w7EnbQk5rPT RBkYEGdnioWHL1b2fpiauGt6/1ma+GJtFoidlXbr3NkpVKJTKK7uci8ksbR/ krKBCVz9U/Dyj8bGPwIHz0h8o4SYhoSIBOEa7IdrkJemv6CDt1iHowveBv8d H4tjZF2M1a0y/JCFO6+JzpjBKbxDeEkvbvHj+KZME5Y2T1zuEudKb5BavUxG wy1yWm+T33Gb7JYbbAw85WD4BS+Hn7M79IzHymjxPjV3u1ZYbZtntUkye02D l+Ztfj1GTd9eQl/srWjpu9+Shd2/qUElsOqZo1aD/1OrweRmGi5N0Hh1me48 bXODhfodVtpeah5PF9xiMkvb6eZGwTy3irW7qrdKZrhRMsVCyRgzRUP0CRYc LBlltLSbvsxyKiIiyPNxwNnYSLToireNE4HOgUQ7BRHumECc83kuWgsyd4jF 9lQotkah2J8Nxu5MsGC4EMmu4Tg5ReDiFomrZxRu3lG4hp7jQkkr8ZLl02zC cPOIwNwhEE+xFvtQYYdhETiHh+EcFoRzqC9OwR5Y+/ph6OKGpdkJ4j3O6rT3 653N1ek1LiYPE5o4pfmdZ/IcwVdvEpV7i4SS25yvWuVq7To1rZsMq0RzI+94 PfqW12OveTn2it3R5zweecqmMhS+b53VrhusdoyLFlvx+JbNjO/o1KvvBvqp 3Kg1gcMZm0cJ3B//en/uuzScn6Ix7Tba1VPtuuNKxytmK7QL75M5Ov0VLXC7 RLsJdqt8TtDWDItlk8yWjDBaOMFYSS89wgY700upjIsn4MxxPv/pj/BwcyVQ GFGYYNsIYUXRwopi7cx0MeBPBVcnHMZoT48CfN2y8XNOx8c9FV+vC3i7J+AR kM6Jz8STDULJdAmiSBBTRupVLEPjsBbWbhcZjX2keGNkKA4RAViFRGDgHcwZ dw9Skv25O5TzG6qbXNdsSjekauf8VOdsUFjwgIqyh9RVP+GB6h1Pej+wO/gV L0e+4mDsK15PKAPB3/Fy8g27E/s8Httlc+QRd5XpZn23WO2ZYqW9Qxf/fve3 ndrQJz2lpZGCfo4mPZ9vau0ogdKetv354TdQbgr/r0/WGp9KPv1olTZ8ztU9 RJWqbSEzmavtvXa9eJZburZTtypEgRWzLJYrzQnHma6aY6hARU9uI6rsMqoS kwkwOMGxP/8xThZmeDs5EHpEgUrDMC9HB81rWVuGYWroj7k4npWVtg2eg0ss 9j4Xxemy8QrPxkfExEFgsMEVEv0yKU1Ol6BxTihtCRVjc0QVVBJTXIZpRBJm yuDPlCsEXsvF70oaqTVFqDqyuTeae3Rn+busTqwfWo5+mXaiapfFxlestr/h fvc7HveLCoe/4oWo79WEqFDZrZ96z8upt+xMHfB4Qjmi/oT1kfusDksMHZxh pavT+f+Q//ppNaNvEar4rd7ptL/7KbOz9w4/dXpIE2mO2pmhNZdWaM/U/p8q Y5bOVG3FxESuVo2LEi9vlmlVPZ7fxkL5KAsVk4yLWqeqxhkqUtFdKOrLK5HM moLFz/4rn//FjznzN3+Np4uzZl5wuKgvSq8+e0fNa1lZRmBiGIi58E39+rqT d6J2IzgoGdeQJLziizBwLCU2qY6CvGqqy/Op6O2jYnyOsrEZSkemKBocJb93 kGxVDxntbaS11JHaUIyqO5u747m/fUN4VKtFZdCecuspfsxY9XMWmvYlDh2w 0fOGR4NveSaxc2/8HfuT73g1/Y6Dmbe8EHk2fcCjyRfcn3jKHU2zC9HiiKCF nnYdP/jeN9KgPoZ+GwkN+KYaj/IKfUpURkTnZnZSpjmYq9y+R29GFxm2WnUW R85Sl7R0OF2iL3OI0dwRIap6wPP/MV7YyVhhC/Plg8xXjIoaFxkr62egtJPu knrx6CLKLiTyqx//SKPK43/1E/FGc/wc7Aiz0TYri7Y3J9heOwfe0iIKY8Ng zWOlmYu1iza0Oio9jQKV8dsikRfJ6BglKKMH50utJJQ2E1+k7NuPEZrRTXi6 ikghCkn5XVyq6Ca1XkVGp6izvY4rzUV09mZxZyLnN4YO/0vq4oYPDVtV/IjR 6h3mmva41fGSe737bA2+4snoATvjB+yJ670Uxb2cecXejAD16Zc8nNpjY/op a5oOCrdZHVN2bDfsvyUPfhs3DNbqUN/n4Sh9+H0d/VS1CtHNUWmmd3aJDOum eM4J72sNVZHnodfVf6MxRcBfTBv1KSq60vsYFOA5VjAg0XNQ+OSQuKNIhSKD TCqwpm6CkfIe+srbUJXW0JKfx7UwXz770X/kVxJVj4kubZXdFIE3IaLLcNFl pOgy2kE7ptfCNh5DwxDNY3P7OCxdEzWP7cUtHZQxyWHJOCdlUjKyQOnYApeE sAeLTqPksyeKnM9Str46SM1sIzW9mctpjZy73EDIuUbiCmu40lrAzHgOLx8v fkKXg0U3DnXZUbjNUNVjZhqfcrNjhzs9u2wM7rE9sseT8T2eifPtTu/xXGR3 5jlPZnbZmnmGevYRa/pj9+PjvH310uZIYlTYoL6X0kfVWkfVqU+Mod9U59GJ At/XrQv1tI5Rqdv86hPzncjrZiG3h2WR1bwe1gt6yHYYpDBY+GyCcNu4Pgqj GuVxM00X2uiWyzYgfzdS2MNEcS9TpSJlivQwWj7BeE0vA5WdqMqbaCmppPji OeLtjLH/+c/45U9/zGd/+RO++H9+okE8fg42hIhKw+20atWo0TEJU91xWKU3 rIWr1j1tApKwkyhrH5fG5eZ+0jsmCBI3DM3oJCark5ScTi6LXBPJVDaistrJ yWyR8NNIdnoNqVdqCTtfSfjlHNSLBXx48/SQZ+ijrHY384DqaC2Ca8nboK9i k/GGbRbaHnGrWxnW+pSN4adsjT3j0YRwi8mnPJlW5AkPZx/zYO4h65rtzLvc nrnB3eVl648CrOJlIUKFGhsbvzVPhn9Tm0f5xb/Q5cnl+RWqckQzGm32M5k/ zFL+KCuF49wrGWezYpztqjFuZo2S6zNDUcwceVF9ZIc3Uh7XTG2KPPdSs8CZ DnrzOhko6JQc2clwSSe9hd0M1Q/RU9lOe2UbjeUNlBeUcMHHmXh7Y8GnRpz9 6//ML/7iJ3wmjupla61x1EBxVEWr+gocU9tETJzOYWAVc9hawMI7AcuABKyj ruB1tZirrSMEpnUQktFBtDhkinyeyzkdpIvk5LaTL1KU105xfivFkr+LxDlz c6s4n1ZGfnwBA+cKdJzrj+nNvUPVuTXqMtW0l6gZrNlgsvkBC52bLPdusTa4 zb2Rbe6PbfNgYpvNKWUEzhYbc8o27n3Nrtzy/BrzUwu8PjjQFsP8X4fneI6m xyNDub/zLZkyUqvIP/kEy9AWXB9j5/EOVZlC9SXSqvKGGcubZiF/TjM1caNi iYe1SzxtWGK3aZHnLQusFs+RE7TAleB+rgQ1kxvVTKm4aPW5ZuqvttCa1UZH rkTVQpGSNtokY3bWdtFY0UZ1mXIRa7jg506igwnxIrGi0Cg7Q06LQo//9X/B XZmapriojYVmOmKQZmKaHUYWCaLMC5x1SMbA/RxGPimYBJ7HLOIybhfzuNTQ j39qO0FprURktEuU7eBitkrcsotsCTUFBV0UF3VRWqaivKKdispmyitrKS6r IjW3hI4LBYwn17IsIO4Hun2+npJNKq7cozZP6bYiCq1XM9mqZl61wY3e+9xW yl2H7wuwEZna0MTT2/NqTZ+Ihfl7zGj3+Sx0GvpUVy/9Pp8SSPV88UiejPmm Ao8SDq0Cv6C/sZd6iTnNwtL7c+eYyr/JzZIV7latsd1wh2ctd3jRfof9zjUO ulZFbnOn8oYoYYJorxYuBLeQEd1CfmIzxReaqUxvoya7jVpBsVX5HdTWDFNe 2kahsPOM1BxSFOU5mpIgEicKjBEFRooCw23PYn38GI4mJrg52OPu5Kg5RO2n 22tTllINbEWBzhc54ZjAac8kzvgl43u1lNSWPvw0OyatBKe1aVrtpGT1kJrd R2ZeP3mFAxSVDVBW2U9FTR9V9T1UNXSKiBJr6ijOK+VGVpXkEhULYgQPx+78 QL/VVv6QkjQ1NQVq2irV9DVoB9lMdamZ61OzOKxmaVyt6TqwMKsMr9F2fhud 1hzyNDuSE3/rGEttFFUaQys3fU78/cO87avVor6B+lHe8c90uLsmrZaGzAHa s2cZzllmrnid29X3ud+4yZO2bfZU2xz0bPO2f4t3Aw9ENjgYuMte/xrexnEE +rQRG9bKhbgWUpObyLjaRnZGGzk5bVxTditLeySutZISnaCMJnAy4y81GowX iRUtRjsYE2FvSKhosa+1jvXVVVJiY3AVbuJiZY67tSmeur2vUybJnHa8wkm3 i5j4K1RQqdNREZWrHAFu1gxxDrnaRVx6P+czBrmaO0x24QgFZaOUVI9SUT9C VdMw1S1D1LT2UtPSSUFNM3eKG7lb2cedsj5uSU5YuNLE/taufvurreIh+elq yovUNFaLRzap6e0Qr+xVMyIcf3RU7ifk5yltL7HOsTu8fP3+UzU9+lPo35YE f0t/Sp9v6vIo+finuvXfm5OL1F1tpyFjAlXmDQGid1iseMBawyM2257xrGuX /b7nvB18zofhHb4afcZ7YbmvRx/yYuQBl93CCDKyxN/alxC3BEICcwiMbxYU 0UZcWBJxF+uJ9fH9jijPXP4RXf6uVo8iMY4mRIouw0SXQXZnteHlzzThJjMj /XATqlOkqakHvwQVuZ3bxOcMEi0pT+n/4Sk00vdCO36Xegi90k9c2jDnM0dJ Kxgnu2ySgupJShsmKW+ZpKp9guqOcWo6tZtQS3W9bDfPsNk8y926MVbLe7kl ZvF0dkW3LfDPefzwA/OL+2QVqympFc9sUdOgUtMkemxWziAOabsSrG6+5Kjy 9I14/yEU8bc0RdQpT7/MfbTcRuPJejqo/OLW5C3qr/Qesu6l2kest+ywpXrB Tt8+B0MHvBfC9NXEAV9P7vN+6gWvJ3d5MfFYMGk/PmcsCDSzIsTcjAhlKuXZ L8W7zHA3CRAvjRSPM5M3jXVUtKdoLlokUrQX5mhEiL1mR+G7nzCy7+q3jp5/ TXbjFrkSGC5UKgubzXgIsPJO7sH/wgghF0eIuzqhPThaMkNW1RwFDXOUtMxR 3jFHhWqOqq5ZKlUTLIsmn6pu86R7la3Om9yTv1mtG2G1rIPFnErd1tH32H72 FTO395m/s8/CXaU/0T76mstPJbdvI4B/8g/S0FEioa23/pHmGbcnVqm/NESj bn1womKb6w3PWG9/wXbPAbuDbzgYfcf7yXd8Pf2Ov599w/vZA17PvuTF9I6w oofE2PnibWROoKUl3mdP4ikKCpZk5eF0hThvZyEGZkSJkhRFRYuaojRiSoRG ScYEOxiRfSH2e5+gsN/V7wSJklrHd8kRF4srmMY9VoVH/BC+KROEXZohOn2W 5HwBU+WLZNReJ7fpOoVtNyjpvEFZ13XKOxe5o1rh1dBj9gQ9Pu3fYLv3Dmr5 /7XmaVZr+wSw1AZ/FOL8/Pw+uR72MWv7LU3TPtLBUfj/T3SBTrndkvhaf25E dKBdGpoQFnq96Tnrna/Y7n+DfiHw6/n3vJt/i5bBKrc/ZHv8gYAGbyx/eQzb X/0Sm7/7H5z66d8S4xumgfBhcu3DRSLk2kfINQ8XCZPrHiISKNfeTxxEvb6q v/ZHCy5/58iXWlh/TWzuIl6JI/rp2SGXl4jNuklS4bLmBOTVuluaE5D5bWsU dKwJJngsrr3D27GXvBp7zt7oU54Ob7MtkUnds8KdznndKchGXj97GvAJfKBk F902zlEP+DjB/JbuWbqr/8NPYPbfPbJIt7P5grrEMbn62i248eonLDXvcadr n62BA3ZGtXM+3s6+09x/tfCOd4vvOFjQdqp+OvOMrckt7o6uEergjvkvf8kv //WPcPrRn+P3lz/G/7OfabD3dwi2V0JUiIMpwY7KdHIToc/GeNsbKRr4J0es Xx9K9dav/2KD1dqGpOHJc/hduKV5nFBwn3Ol90mt3iJDWG5j2xMme/YkB8rH HBfHnXjD28kDXk2+ZG/iOU8lP26PbKIeWGet+zqrneOstLTxaHnR7whP+lQJ pq6E7tt40r/5GKr98Ijt6wH373y0DvOnVMeM0XBZe/1Hqx6x0PKM1a7nPBh4 IR9YIs2UdmbR23lJFQsHvFk8YH9R+7vHs0qH4i3WJ9dYHZslLTqSz/7yrzH7 8/+E63/6K81UbR+JRr52Zt/B195UPoyP/Otpb0J3e+NvdMbRGZDWmn7I6qT2 IF/DlRt0ZGuXrWdqdlhufsm9ztcSRN6yO6Ac6/zA6/EPcqk/8H76PW+n3/Jq WlkBlG8wucP22EPUw/dY619mtXeKlY4OXu8+1W89f+qchp7R6CnqR4E/TXuB j85D0Zu39pn/4RsOoUhfwS1qz2sv81DlJrNNj7ilesJG/zMeje6yM/mcF7PP Nf//emGPg8U9/v/2rjU2qiIKH6G8fRGjRHmFtwJK8R01vmJiJGk08Yd/0Cgo Gv+B/DEkakI0RBIFNYBQnlKeLZRtpbTQdunutltaWvqivdvdtrtLX9surTx+ GGPwzJ2Z5czt7L2X/jRssrCP7jkz53zfmTMz985JVPP3rHx0qDICzTgVa/D6 4ErYMGXm7NkLP3z3rVkHdBXmtqsxt1298n348ftvwHMC89DLTfLIVnr/meCo 8n+jtw0Ob/TK42lLdkfBn9MHdbmD0OpBUxf9BT1nr0Gi/DpcrbgOw/4bcC2A /yMxBwPD0BdIQtzXBx3eGLSVhaCplJ2r7oeGgnyxS+i80WEN7D+rRh4RHmXd E/ZBd+gqyEfhHgPOH2mH2vwOaCnqgvZzUejCdnX74xz3/cE4jgF9Qb6PFQl2 QivOdxsCdRAsK4fkQCI1rtO4ldLIaXWpVBy0v6ke8n4Lma99h3rhYl7CDF+R M0kMuVehzzsEgxXDMIRWGsYBfKhqCAbw2YsWi/n7IFIRg9aKdn6AdqkPagtz P9cYzHpdmy4Wb+UGe0wTzSaIxYCLJT3mRb/HcCJ5BqcfPkxbawt4642yMHSc 5yUDYoEOJHcHdAX5+9bqENQHWyDoq4GOSMcjwj40p7uluT2G3YF3/Be+yXs+ B2N7Xg80e3qh/Uw/RM9hCurFwOgbgIHAICQxq0lWYbypSkB3AL8P4N8FYtDi Z8VZ66Gx3Avd4bbPLMk0Za1dMv2rahyak8lifJ7dnbDnJwNys9E4h3AGjTPs C4WGXIlrxQl2WwU+A0ZqdY6dFuYLNEFNXXPqiiGaQ0mKSaMUba9P4bRgVxjK DnZCMDcKDRgJWouuQAQH7Wg5S+16odffC/1ohP7KHujDJxvsOivjYLBbPqra oMlfCxfLSuHqQP9qoVp3EbZd/rpNNQpNkiaJCevJfVHYtQUnNLsNKESjlLJl h0IDgsUG1JTxugMX/Pi+ElnHjnDzXYZQZ09a1iK3ukNJ2Pd1LeRsvgy52w0o 3h8C39Ew1CBhG/9ENpZEIVzKSRvzxSDuj2HnoxCvjEK0qgvCQRxx2FJjVTPU +S9AQ20NfGLhzNq1a2H9+vWOQWYHt8B0AgtJeHmIbzx2E07mx82Ci0eP4JQc p+unT/Njv0vQAkWICw8+K+rZIXTXp2vox3v+ENSii/dubIGDyIl8NGjJIU7B C54QNBS1Q8vZMNIwAu2YWUaQihF/GNor8bMgfscoWN0GNVWN4C33i43H8SOi xOHDh1kv7ZK2nWqnKYunCEZEr9yE6kuDcOJcDLYdN2DHSQMaw4OiDt6NmcRe cuQeJ2KMB7Oi3Zva4OA2A9EjFhwRNcECjDVFBlxilzKUGtCMyGlG5DRVshVj ceoe4rqs4iIMJoc+csiIRNEMu4wom/dTFmqiZcuWkb7LcZFnpg8irBOwY7MB BxCbuft42WgG+wqEfQBhH8TGV2Pjg9j4SgH70gB6prETEsnhD12QkXlE1q+X ZNyrtpYyJzNtHn0fxLtuwoncOPy+04AcDOl5xwwoOIWwZBA9K06m9/KLqdkZ c62dCe1N7W6G5P28iTM1EF+mAdNEwSMGpmDdIGw9YMDOowbsQwbtR2Puxyae qY5BA4LKzX32Oiz/oTaJxvVM0kwZkL8c5fCRo6qhsMnUOOyLUQbkI1zNLI2/ MzVG/9RiNDZndhP1jqlqqM90UFtlCTXyUj9RB8ou1ORyTbNJ4+0o+PGdkV5W bKMaT6gadTSiV/yvJH2zuZBKWo866xTXpCtzpWODbiPTDelevJ16jk0lFPwd Pr5SG0EDsg7/H1gaoVuL1PnxZSGLzht0R2SvU5vjxJP3xGfyDjH2bgxpYjqK 6hz/qvjOOvNiD7G1P8clr94VMJQn/Vgr1Go2TqxMfv3ODDaHGMyOivSuqS1b tihlP+1A9MZtEI1TQGSx0FwNZnREzSK0kfu6suSiw5LRO+mtILU7kXaF8E+6 EkMiMNmFiRUpg4iez3NJ47dtaCzrp8qCXhZQ+FRN6VAo7f6WRlM6X7OH9HVA VePEwTctfHMbEqq4mvka/+g49ZoQpfOZHa2rVTVOBHnlDqOs5GstV7PAJf5f ImrkTSfMN1ajWXlYp6qh9y3ogP6CJhYycYlEwtY3l1Q1dGKXqTHkc+a/E7RL YUwka/1YGx81cnULXQJ7uY2PxoqmyJW3ZDI5wlfmxpilVOU5tQl0zVMH+mWa JqRLNym30uz46CJ7Mf9ykUt+LHUx7Olcbe7Qmw3KGHXbnEi1WOjXpbN23L2D 2hqiRY+75N+iUdJ8xqhbxPpuR9X5LhFFa/4wG80adYucWD3XgqjMzEzweDyO iJqdItXtqg6CXk+4ZDjPvsePAAyjEZkx6DBzRdXkROQZNkDgNpyYGo7ZOw0o ernGxUI6Xc3XEfVRF46m0wXp6H5VjRPnpo0yHgxwNUtcEulhl9S2qkmqanTz bsqOqaPk67CqxgnyD1jUyJmqEwmvcTVLXcL7XiIqOzvbtW9uqGqcsD1JsIjO Tdmlr/PmzWO/sXOP2OV50iWmxwum6FJN9o0oi25XEOBvVaPT8lWGxlPq7tuE 1L3bOo/9w9U9pemMDuZuJpVMDXvQA+X/VdWMhPkEE1+yZ5YJoi2DbqmiKbRp dlJcXAxr1qyxneVJH5gixSLBMo3RlxJA0atxBbZ181lpb1P0OFU0xe9igaB0 UzKBB4ogZhBqa1MF36lKQYau2S60iSEZwhnSikyd1uCTVPkUproR3JrTy+82 bNgAWVlZt63OQ4JIbVU8zrFgj0I9g3hEc1a9Kfp+VTTF4Gwh2u6qXDvRU1XR lDF2A6sb0fzCe3haA0PdCCoNPcaF6GmqaDoATBPxOd0Cok4s9sgUy7fB4BkN 9HhnpmgnSGlEcljMVGVSuE0lTbUaWH5GuyBiiimW+x2e1aBNll+2pidDQ0OK SBlPzN+x38xVZdKVRA7uyYpVWVxi5pGIZvLETTamuAWqOAqtyWJ0k2MaC28s W2JiJBZkLVlTFs94xTRVtw0ySekuk8esLC2qyFqiyqLgyRCfUVljTGljR8rh cRueF62g6YEEGpqG/jyFQ/YHy+nPJ6aAQU1ihT03pVgTyDCtaf0T/h3XsO7u 67uv/x+v4Z7/APtJj6A=\ \>"]], Cell[BoxData[ Graphics3DBox[{ {RGBColor[0.7333333333333333, 0.6, 0.4666666666666667], SphereBox[{6.2984567579999995`, 0.878136774940001, 4.594301851200001}, 0.255]}, {RGBColor[0.7333333333333333, 0.6, 0.4666666666666667], SphereBox[{8.091239814199998, 3.080820297800001, 5.136275268}, 0.255]}, {RGBColor[0.7333333333333333, 0.6, 0.4666666666666667], SphereBox[{10.1614346472, 3.1034970098, 3.1087882425999993`}, 0.255]}, {RGBColor[0.7333333333333333, 0.6, 0.4666666666666667], SphereBox[{5.482851016399999, 0.9289515070800002, 1.878028596060001}, 0.255]}, {RGBColor[0.7333333333333333, 0.6, 0.4666666666666667], SphereBox[{8.954466651, 3.8282069308, 0.5798057313200002}, 0.255]}, {RGBColor[0.7333333333333333, 0.6, 0.4666666666666667], SphereBox[{6.659205451399999, 2.2315774334000005`, 0.10211134440999992`}, 0.255]}, {RGBColor[0.7333333333333333, 0.6, 0.4666666666666667], SphereBox[{7.652445436999998, -1.61707633272, 5.142133418600002}, 0.255]}, {RGBColor[0.7333333333333333, 0.6, 0.4666666666666667], SphereBox[{3.9725819972000007`, 1.1005953196599987`, 6.2977008676}, 0.255]}, {RGBColor[0.7333333333333333, 0.6, 0.4666666666666667], SphereBox[{3.2546750898, -0.5363609305799997, 1.1590445448400004`}, 0.255]}, {RGBColor[0.7333333333333333, 0.6, 0.4666666666666667], SphereBox[{5.639320329200001, 2.106288599599999, -2.5537757164}, 0.255]}, {RGBColor[0.7333333333333333, 0.6, 0.4666666666666667], SphereBox[{1.2153772769, 0.64390523724, 0.15027668069800004`}, 0.255]}, {RGBColor[0.7333333333333333, 0.6, 0.4666666666666667], SphereBox[{-1.00289648546, -0.7372954961599999, -0.3651328577199999}, 0.255]}, {RGBColor[0.7333333333333333, 0.6, 0.4666666666666667], SphereBox[{-1.1087589359800003`, -3.5256617982, 0.20480850388000005`}, 0.255]}, {RGBColor[0.7333333333333333, 0.6, 0.4666666666666667], SphereBox[{-3.047183175, 0.44584305518, -1.3762307540199998`}, 0.255]}, {RGBColor[0.7333333333333333, 0.6, 0.4666666666666667], SphereBox[{-5.1780382126, -0.9728687393200005, -2.1119577776}, 0.255]}, {RGBColor[0.7333333333333333, 0.6, 0.4666666666666667], SphereBox[{-7.2930195518, 0.22196721596000035`, -2.9294532452}, 0.255]}, {RGBColor[0.7333333333333333, 0.6, 0.4666666666666667], SphereBox[{-9.5026761636, -1.2491466805200004`, -3.6925246040000004`}, 0.255]}, {RGBColor[0.7333333333333333, 0.6, 0.4666666666666667], SphereBox[{-9.4310555482, -4.093335488600001, -3.570637277}, 0.255]}, {RGBColor[0.7333333333333333, 0.6, 0.4666666666666667], SphereBox[{-11.584965243, -0.07273177428799948, -4.4973589074}, 0.255]}, {RGBColor[0.7333333333333333, 0.6, 0.4666666666666667], SphereBox[{-13.711662883400002`, -1.573348073080001, -5.653304301600001}, 0.255]}, {RGBColor[1, NCache[ Rational[1, 3], 0.3333333333333333], NCache[ Rational[1, 3], 0.3333333333333333]], SphereBox[{-14.602668692400002`, -0.312409502320001, -7.868819063999999}, 0.178]}, {RGBColor[0.7333333333333333, 0.6, 0.4666666666666667], SphereBox[{8.709489484663667, 2.903728211259311, 6.4812178711873845`}, 0.1]}, {RGBColor[0.7333333333333333, 0.6, 0.4666666666666667], SphereBox[{7.334642878661486, 4.364286561484166, 5.093885054731079}, 0.1]}, {RGBColor[0.7333333333333333, 0.6, 0.4666666666666667], SphereBox[{10.776240440020413`, 1.7495431404822184`, 3.0056824668467543`}, 0.1]}, {RGBColor[0.7333333333333333, 0.6, 0.4666666666666667], SphereBox[{11.204488251260202`, 4.105118358743495, 3.4693719282196582`}, 0.1]}, {RGBColor[0.7333333333333333, 0.6, 0.4666666666666667], SphereBox[{8.558740089475585, 5.264664266257491, 0.615084740605867}, 0.1]}, {RGBColor[0.7333333333333333, 0.6, 0.4666666666666667], SphereBox[{9.940679624370933, 3.6169341848407517`, -0.5177732772025244}, 0.1]}, {RGBColor[0.7333333333333333, 0.6, 0.4666666666666667], SphereBox[{6.724910793871081, -2.7538019676016257`, 4.879037936751255}, 0.1]}, {RGBColor[0.7333333333333333, 0.6, 0.4666666666666667], SphereBox[{8.081935593676658, -1.6464884093520107`, 6.56884475090316}, 0.1]}, {RGBColor[0.7333333333333333, 0.6, 0.4666666666666667], SphereBox[{8.848245507835912, -1.7373673930189546`, 4.260700913556169}, 0.1]}, {RGBColor[0.7333333333333333, 0.6, 0.4666666666666667], SphereBox[{3.0001847523081597`, 0.024435589966593674`, 5.953922682582691}, 0.1]}, {RGBColor[0.7333333333333333, 0.6, 0.4666666666666667], SphereBox[{3.33316605557435, 2.4315130737764017`, 6.093951989708167}, 0.1]}, {RGBColor[0.7333333333333333, 0.6, 0.4666666666666667], SphereBox[{4.3854060794693, 0.9604074266018746, 7.722962679290262}, 0.1]}, {RGBColor[0.7333333333333333, 0.6, 0.4666666666666667], SphereBox[{3.2407761209285644`, -1.9957117827605426`, 1.3494740448187397`}, 0.1]}, {RGBColor[0.7333333333333333, 0.6, 0.4666666666666667], SphereBox[{6.4813986301367565`, 2.9489138822197276`, -3.4497317131095837`}, 0.1]}, {RGBColor[0.7333333333333333, 0.6, 0.4666666666666667], SphereBox[{4.2367453313111385`, 2.6103240331788573`, -2.571689075542385}, 0.1]}, {RGBColor[0.7333333333333333, 0.6, 0.4666666666666667], SphereBox[{5.665848316308252, 0.6942681146625471, -3.0301855467358054`}, 0.1]}, {RGBColor[0.7333333333333333, 0.6, 0.4666666666666667], SphereBox[{1.2701394306775509`, 2.084644498703837, -0.14420853853229865`}, 0.1]}, {RGBColor[0.7333333333333333, 0.6, 0.4666666666666667], SphereBox[{-0.5458383481192652, -4.289358808718668, -0.944620448800193}, 0.1]}, {RGBColor[0.7333333333333333, 0.6, 0.4666666666666667], SphereBox[{-2.5249667907168827`, -3.933976865185076, 0.4266606018962722}, 0.1]}, {RGBColor[0.7333333333333333, 0.6, 0.4666666666666667], SphereBox[{-0.3109609231447332, -3.812820807288997, 1.4305945940112306`}, 0.1]}, {RGBColor[0.7333333333333333, 0.6, 0.4666666666666667], SphereBox[{-3.0406426121298424`, 1.9073454546893096`, -1.5489288661374467`}, 0.1]}, Text3DBox["1", {5.698456758, 0.878136774940001, 4.594301851200001}, {1, 0}], Text3DBox["2", {7.491239814199998, 3.080820297800001, 5.136275268}, { 1, 0}], Text3DBox["3", {9.5614346472, 3.1034970098, 3.1087882425999993`}, {1, 0}], Text3DBox["4", {4.882851016399999, 0.9289515070800002, 1.878028596060001}, {1, 0}], Text3DBox["5", {8.354466651000001, 3.8282069308, 0.5798057313200002}, {1, 0}], Text3DBox["6", {6.0592054513999996`, 2.2315774334000005`, 0.10211134440999992`}, {1, 0}], Text3DBox["7", {7.0524454369999985`, -1.61707633272, 5.142133418600002}, { 1, 0}], Text3DBox["8", {3.3725819972000006`, 1.1005953196599987`, 6.2977008676}, {1, 0}], Text3DBox["9", {2.6546750898, -0.5363609305799997, 1.1590445448400004`}, { 1, 0}], Text3DBox["10", {5.0393203292000015`, 2.106288599599999, -2.5537757164}, {1, 0}], Text3DBox["11", {0.6153772769, 0.64390523724, 0.15027668069800004`}, {1, 0}], Text3DBox[ "12", {-1.60289648546, -0.7372954961599999, -0.3651328577199999}, {1, 0}], Text3DBox["13", {-1.7087589359800002`, -3.5256617982, 0.20480850388000005`}, {1, 0}], Text3DBox["14", {-3.647183175, 0.44584305518, -1.3762307540199998`}, {1, 0}], Text3DBox[ "15", {-5.778038212599999, -0.9728687393200005, -2.1119577776}, {1, 0}], Text3DBox["16", {-7.893019551799999, 0.22196721596000035`, -2.9294532452}, {1, 0}], Text3DBox[ "17", {-10.1026761636, -1.2491466805200004`, -3.6925246040000004`}, {1, 0}], Text3DBox["18", {-10.0310555482, -4.093335488600001, -3.570637277}, { 1, 0}], Text3DBox[ "19", {-12.184965242999999`, -0.07273177428799948, -4.4973589074}, {1, 0}], Text3DBox[ "20", {-14.311662883400002`, -1.573348073080001, -5.653304301600001}, {1, 0}], Text3DBox[ "21", {-15.202668692400001`, -0.312409502320001, -7.868819063999999}, {1, 0}], Text3DBox["22", {8.109489484663667, 2.903728211259311, 6.4812178711873845`}, {1, 0}], Text3DBox["23", {6.734642878661487, 4.364286561484166, 5.093885054731079}, {1, 0}], Text3DBox["24", {10.176240440020413`, 1.7495431404822184`, 3.0056824668467543`}, {1, 0}], Text3DBox["25", {10.604488251260202`, 4.105118358743495, 3.4693719282196582`}, {1, 0}], Text3DBox["26", {7.958740089475585, 5.264664266257491, 0.615084740605867}, {1, 0}], Text3DBox["27", {9.340679624370933, 3.6169341848407517`, -0.5177732772025244}, {1, 0}], Text3DBox["28", {6.124910793871082, -2.7538019676016257`, 4.879037936751255}, {1, 0}], Text3DBox["29", {7.481935593676658, -1.6464884093520107`, 6.56884475090316}, {1, 0}], Text3DBox["30", {8.248245507835913, -1.7373673930189546`, 4.260700913556169}, {1, 0}], Text3DBox["31", {2.4001847523081596`, 0.024435589966593674`, 5.953922682582691}, {1, 0}], Text3DBox["32", {2.7331660555743498`, 2.4315130737764017`, 6.093951989708167}, {1, 0}], Text3DBox["33", {3.7854060794693, 0.9604074266018746, 7.722962679290262}, { 1, 0}], Text3DBox["34", {2.6407761209285643`, -1.9957117827605426`, 1.3494740448187397`}, {1, 0}], Text3DBox["35", {5.881398630136757, 2.9489138822197276`, -3.4497317131095837`}, {1, 0}], Text3DBox["36", {3.6367453313111384`, 2.6103240331788573`, -2.571689075542385}, {1, 0}], Text3DBox["37", {5.065848316308252, 0.6942681146625471, -3.0301855467358054`}, {1, 0}], Text3DBox["38", {0.6701394306775509, 2.084644498703837, -0.14420853853229865`}, {1, 0}], Text3DBox[ "39", {-1.1458383481192653`, -4.289358808718668, -0.944620448800193}, {1, 0}], Text3DBox["40", {-3.1249667907168828`, -3.933976865185076, 0.4266606018962722}, {1, 0}], Text3DBox["41", {-0.9109609231447332, -3.812820807288997, 1.4305945940112306`}, {1, 0}], Text3DBox["42", {-3.6406426121298425`, 1.9073454546893096`, -1.5489288661374467`}, {1, 0}], Text3DBox[ "43", {-5.740840532808636, -2.442490478124714, -2.0491441131904082`}, {1, 0}], Text3DBox["44", {-7.929946824776779, 1.6918907012357112`, -2.9924067511604147`}, {1, 0}], Text3DBox[ "45", {-11.381811914544613`, -4.63839672328816, -3.8869259463009818`}, {1, 0}], Text3DBox[ "46", {-9.630547707164608, -4.522011515109373, -2.2006379222312407`}, {1, 0}], Text3DBox[ "47", {-9.043190643707353, -4.608327076407212, -4.561100386529379}, {1, 0}], Text3DBox["48", {-12.300513716959104`, 1.3887765581040856`, -4.369683294074903}, {1, 0}], Text3DBox[ "49", {-15.42488515931896, -1.6961703612792878`, -4.669850842760894}, {1, 0}], Text3DBox[ "50", {-13.81952294528996, -2.931922319568161, -6.0189564812349685`}, {1, 0}], Text3DBox[ "51", {-16.169542264804342`, -1.0398828061626113`, -8.353064498297293}, { 1, 0}], TubeBox[{{8.091239814199998, 3.080820297800001, 5.136275268}, { 6.2984567579999995`, 0.878136774940001, 4.594301851200001}}, 0.06], TubeBox[{{10.1614346472, 3.1034970098, 3.1087882425999993`}, { 8.091239814199998, 3.080820297800001, 5.136275268}}, 0.06], TubeBox[{{5.482851016399999, 0.9289515070800002, 1.878028596060001}, { 6.2984567579999995`, 0.878136774940001, 4.594301851200001}}, 0.06], TubeBox[{{8.954466651, 3.8282069308, 0.5798057313200002}, {10.1614346472, 3.1034970098, 3.1087882425999993`}}, 0.06], {RGBColor[1., 0.75, 0.5], TubeBox[{{6.659205451399999, 2.3515774334000006`, 0.10211134440999992`}, { 5.482851016399999, 1.0489515070800002`, 1.878028596060001}}, 0.06], TubeBox[{{6.659205451399999, 2.1115774334000004`, 0.10211134440999992`}, { 5.482851016399999, 0.8089515070800002, 1.878028596060001}}, 0.06]}, TubeBox[{{6.659205451399999, 2.2315774334000005`, 0.10211134440999992`}, { 8.954466651, 3.8282069308, 0.5798057313200002}}, 0.06], TubeBox[{{7.652445436999998, -1.61707633272, 5.142133418600002}, { 6.2984567579999995`, 0.878136774940001, 4.594301851200001}}, 0.06], TubeBox[{{3.9725819972000007`, 1.1005953196599987`, 6.2977008676}, { 6.2984567579999995`, 0.878136774940001, 4.594301851200001}}, 0.06], TubeBox[{{3.2546750898, -0.5363609305799997, 1.1590445448400004`}, { 5.482851016399999, 0.9289515070800002, 1.878028596060001}}, 0.06], TubeBox[{{5.639320329200001, 2.106288599599999, -2.5537757164}, { 6.659205451399999, 2.2315774334000005`, 0.10211134440999992`}}, 0.06], {RGBColor[1., 0.75, 0.5], TubeBox[{{1.2153772769, 0.76390523724, 0.15027668069800004`}, { 3.2546750898, -0.4163609305799997, 1.1590445448400004`}}, 0.06], TubeBox[{{1.2153772769, 0.52390523724, 0.15027668069800004`}, { 3.2546750898, -0.6563609305799997, 1.1590445448400004`}}, 0.06]}, TubeBox[{{-1.00289648546, -0.7372954961599999, -0.3651328577199999}, { 1.2153772769, 0.64390523724, 0.15027668069800004`}}, 0.06], TubeBox[{{-1.1087589359800003`, -3.5256617982, 0.20480850388000005`}, {-1.00289648546, -0.7372954961599999, \ -0.3651328577199999}}, 0.06], {RGBColor[1., 0.75, 0.5], TubeBox[{{-3.047183175, 0.56584305518, -1.3762307540199998`}, {-1.00289648546, \ -0.6172954961599999, -0.3651328577199999}}, 0.06], TubeBox[{{-3.047183175, 0.32584305518, -1.3762307540199998`}, {-1.00289648546, \ -0.8572954961599999, -0.3651328577199999}}, 0.06]}, TubeBox[{{-5.1780382126, -0.9728687393200005, -2.1119577776}, \ {-3.047183175, 0.44584305518, -1.3762307540199998`}}, 0.06], {RGBColor[1., 0.75, 0.5], TubeBox[{{-7.2930195518, 0.34196721596000035`, -2.9294532452}, {-5.1780382126, \ -0.8528687393200005, -2.1119577776}}, 0.06], TubeBox[{{-7.2930195518, 0.10196721596000036`, -2.9294532452}, {-5.1780382126, \ -1.0928687393200005`, -2.1119577776}}, 0.06]}, TubeBox[{{-9.5026761636, -1.2491466805200004`, -3.6925246040000004`}, \ {-7.2930195518, 0.22196721596000035`, -2.9294532452}}, 0.06], TubeBox[{{-9.4310555482, -4.093335488600001, -3.570637277}, \ {-9.5026761636, -1.2491466805200004`, -3.6925246040000004`}}, 0.06], {RGBColor[1., 0.75, 0.5], TubeBox[{{-11.584965243, 0.04726822571200051, -4.4973589074}, {-9.5026761636, \ -1.1291466805200003`, -3.6925246040000004`}}, 0.06], TubeBox[{{-11.584965243, -0.19273177428799948`, -4.4973589074}, \ {-9.5026761636, -1.3691466805200005`, -3.6925246040000004`}}, 0.06]}, TubeBox[{{-13.711662883400002`, -1.573348073080001, -5.653304301600001}, \ {-11.584965243, -0.07273177428799948, -4.4973589074}}, 0.06], TubeBox[{{-14.602668692400002`, -0.312409502320001, -7.868819063999999}, \ {-13.711662883400002`, -1.573348073080001, -5.653304301600001}}, 0.06]}, AspectRatio->Automatic, Axes->Automatic, AxesLabel->{ FormBox["xl", TraditionalForm], FormBox["yl", TraditionalForm], FormBox["zl", TraditionalForm]}, Boxed->True, SphericalRegion->True]], "Output", CellChangeTimes->{3.5727666202767706`*^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[{"t", "[", RowBox[{"[", "i", "]"}], "]"}], "-", RowBox[{"t", "[", 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}}], Cell[BoxData["88"], "Output", CellChangeTimes->{3.5727666203391705`*^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", "+", "cw", "+", "1"}], ",", RowBox[{"bc", "+", "cw", "+", "bh"}]}], "}"}]}], "]"}]}], ";"}], "\[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}}], Cell[BoxData[ TagBox[ RowBox[{"(", "\[NoBreak]", GridBox[{ {"6.2984567579999995`", "0.878136774940001`", "4.594301851200001`"}, {"8.091239814199998`", "3.080820297800001`", "5.136275268`"}, {"10.1614346472`", "3.1034970098`", "3.1087882425999993`"}, {"5.482851016399999`", "0.9289515070800002`", "1.878028596060001`"}, {"8.954466651`", "3.8282069308`", "0.5798057313200002`"}, {"6.659205451399999`", "2.2315774334000005`", "0.10211134440999992`"}, {"7.652445436999998`", RowBox[{"-", "1.61707633272`"}], "5.142133418600002`"}, {"3.9725819972000007`", "1.1005953196599987`", "6.2977008676`"}, {"3.2546750898`", RowBox[{"-", "0.5363609305799997`"}], "1.1590445448400004`"}, {"5.639320329200001`", "2.106288599599999`", RowBox[{"-", "2.5537757164`"}]}, {"1.2153772769`", "0.64390523724`", "0.15027668069800004`"}, { RowBox[{"-", "1.00289648546`"}], RowBox[{"-", "0.7372954961599999`"}], RowBox[{"-", "0.3651328577199999`"}]}, { RowBox[{"-", "1.1087589359800003`"}], RowBox[{"-", "3.5256617982`"}], "0.20480850388000005`"}, { RowBox[{"-", "3.047183175`"}], "0.44584305518`", RowBox[{"-", "1.3762307540199998`"}]}, { RowBox[{"-", "5.1780382126`"}], RowBox[{"-", "0.9728687393200005`"}], RowBox[{"-", "2.1119577776`"}]}, { RowBox[{"-", "7.2930195518`"}], "0.22196721596000035`", RowBox[{"-", "2.9294532452`"}]}, { RowBox[{"-", "9.5026761636`"}], RowBox[{"-", "1.2491466805200004`"}], RowBox[{"-", "3.6925246040000004`"}]}, { RowBox[{"-", "9.4310555482`"}], RowBox[{"-", "4.093335488600001`"}], RowBox[{"-", "3.570637277`"}]}, { RowBox[{"-", "11.584965243`"}], RowBox[{"-", "0.07273177428799948`"}], RowBox[{"-", "4.4973589074`"}]}, { RowBox[{"-", "13.711662883400002`"}], RowBox[{"-", "1.573348073080001`"}], RowBox[{"-", "5.653304301600001`"}]}, { RowBox[{"-", "14.602668692400002`"}], RowBox[{"-", "0.312409502320001`"}], 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.709489484663667`", "2.903728211259311`", "6.4812178711873845`"}, {"7.334642878661486`", "4.364286561484166`", "5.093885054731079`"}, {"10.776240440020413`", "1.7495431404822184`", "3.0056824668467543`"}, {"11.204488251260202`", "4.105118358743495`", "3.4693719282196582`"}, {"8.558740089475585`", "5.264664266257491`", "0.615084740605867`"}, {"9.940679624370933`", "3.6169341848407517`", RowBox[{"-", "0.5177732772025244`"}]}, {"6.724910793871081`", RowBox[{"-", "2.7538019676016257`"}], "4.879037936751255`"}, {"8.081935593676658`", RowBox[{"-", "1.6464884093520107`"}], "6.56884475090316`"}, {"8.848245507835912`", RowBox[{"-", "1.7373673930189546`"}], "4.260700913556169`"}, {"3.0001847523081597`", "0.024435589966593674`", "5.953922682582691`"}, {"3.33316605557435`", "2.4315130737764017`", "6.093951989708167`"}, {"4.3854060794693`", "0.9604074266018746`", "7.722962679290262`"}, {"3.2407761209285644`", RowBox[{"-", "1.9957117827605426`"}], "1.3494740448187397`"}, {"6.4813986301367565`", "2.9489138822197276`", RowBox[{"-", "3.4497317131095837`"}]}, {"4.2367453313111385`", "2.6103240331788573`", RowBox[{"-", "2.571689075542385`"}]}, {"5.665848316308252`", "0.6942681146625471`", RowBox[{"-", "3.0301855467358054`"}]}, {"1.2701394306775509`", "2.084644498703837`", RowBox[{"-", "0.14420853853229865`"}]}, { RowBox[{"-", "0.5458383481192652`"}], RowBox[{"-", "4.289358808718668`"}], RowBox[{"-", "0.944620448800193`"}]}, { RowBox[{"-", "2.5249667907168827`"}], RowBox[{"-", "3.933976865185076`"}], "0.4266606018962722`"}, { RowBox[{"-", "0.3109609231447332`"}], RowBox[{"-", "3.812820807288997`"}], "1.4305945940112306`"}, { RowBox[{"-", "3.0406426121298424`"}], "1.9073454546893096`", RowBox[{"-", "1.5489288661374467`"}]}, { RowBox[{"-", "5.140840532808636`"}], RowBox[{"-", "2.442490478124714`"}], RowBox[{"-", "2.0491441131904082`"}]}, { RowBox[{"-", "7.329946824776779`"}], "1.6918907012357112`", RowBox[{"-", "2.9924067511604147`"}]}, { RowBox[{"-", "10.781811914544614`"}], RowBox[{"-", "4.63839672328816`"}], RowBox[{"-", "3.8869259463009818`"}]}, { RowBox[{"-", "9.030547707164608`"}], RowBox[{"-", "4.522011515109373`"}], RowBox[{"-", "2.2006379222312407`"}]}, { RowBox[{"-", "8.443190643707354`"}], RowBox[{"-", "4.608327076407212`"}], RowBox[{"-", "4.561100386529379`"}]}, { RowBox[{"-", "11.700513716959104`"}], "1.3887765581040856`", RowBox[{"-", "4.369683294074903`"}]}, { RowBox[{"-", "14.82488515931896`"}], RowBox[{"-", "1.6961703612792878`"}], RowBox[{"-", "4.669850842760894`"}]}, { RowBox[{"-", "13.21952294528996`"}], RowBox[{"-", "2.931922319568161`"}], RowBox[{"-", "6.0189564812349685`"}]}, { RowBox[{"-", "15.56954226480434`"}], RowBox[{"-", "1.0398828061626113`"}], RowBox[{"-", "8.353064498297293`"}]}, {"0", "0", "0"}, {"0", "0", "0"}, {"0", "0", "0"}, {"0", "0", "0"}, {"0", "0", "0"}, {"0", "0", "0"}, {"0", "0", "0"}, {"0", "0", "0"}, {"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.5727666203547707`*^9}], Cell[BoxData["88"], "Output", CellChangeTimes->{3.5727666203547707`*^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}}], 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`"}]}], "}"}]], "Output", CellChangeTimes->{3.572766620370371*^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.`"}], "}"}]], "Output", CellChangeTimes->{3.572766620370371*^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[{"t", "[", 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}}], Cell[BoxData["88"], "Output", CellChangeTimes->{3.5727666204171705`*^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["1656.615980342729`"], "Output", CellChangeTimes->{3.572766620448371*^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[{"dw", "[", RowBox[{"[", RowBox[{"i", ",", RowBox[{"i", "+", "nj"}]}], "]"}], "]"}]}]}]}]}]}], "]"}], ";"}], "\[IndentingNewLine]", "Vee", "\[IndentingNewLine]"}]}]], "Input", CellChangeTimes->{{3.571840548723463*^9, 3.571840579798718*^9}, { 3.5718477253093*^9, 3.5718477304573092`*^9}}], Cell[BoxData["1655.9016946284428`"], "Output", CellChangeTimes->{3.572766620448371*^9}] }, Open ]], Cell[CellGroupData[{ Cell[BoxData[{ RowBox[{ RowBox[{ RowBox[{"sc", "=", "0.43"}], ";"}], " ", RowBox[{"(*", " ", RowBox[{"core", " ", "clouds"}], " ", "*)"}]}], "\[IndentingNewLine]", RowBox[{"For", "[", RowBox[{ RowBox[{"i", "=", "1"}], " ", ",", RowBox[{"i", "<", RowBox[{"bc", "+", "1"}]}], ",", RowBox[{"i", "++"}], ",", RowBox[{"Vee", "=", RowBox[{"Vee", "+", RowBox[{"3", "*", RowBox[{"sc", "/", RowBox[{"u2", "[", RowBox[{"[", "i", "]"}], "]"}]}]}]}]}]}], "]"}], "\[IndentingNewLine]", RowBox[{ RowBox[{ RowBox[{"sw", "=", "0.43"}], ";"}], " ", RowBox[{"(*", " ", RowBox[{"bonding", " ", "clouds"}], " ", "*)"}]}], "\[IndentingNewLine]", RowBox[{"For", "[", RowBox[{ RowBox[{"i", "=", "1"}], " ", ",", RowBox[{"i", "<", RowBox[{"nb", "+", "1"}]}], ",", RowBox[{"i", "++"}], ",", RowBox[{"Vee", "=", RowBox[{"Vee", "+", RowBox[{"3", "*", RowBox[{"sw", "/", RowBox[{"a", "[", RowBox[{"[", RowBox[{"i", ",", "3"}], "]"}], "]"}]}]}]}]}]}], "]"}], "\[IndentingNewLine]", "Vee"}], "Input", CellChangeTimes->{{3.5689548890696163`*^9, 3.568955116299615*^9}, { 3.5689552553894596`*^9, 3.5689552575266633`*^9}, {3.5689552936875267`*^9, 3.5689553203323736`*^9}, {3.568955404229321*^9, 3.568955433245372*^9}, 3.5689554882822685`*^9, 3.5689562157115464`*^9, {3.568956283961666*^9, 3.5689562858180695`*^9}, {3.5689566111878405`*^9, 3.5689566291278725`*^9}, {3.5689566695319433`*^9, 3.5689567220104356`*^9}, {3.5690810958835616`*^9, 3.569081104525977*^9}, { 3.5691717160681796`*^9, 3.569171751714242*^9}, {3.5691717855663013`*^9, 3.5691719006789036`*^9}, 3.569234247377528*^9, {3.569235622381544*^9, 3.569235625142749*^9}, {3.5692356799612455`*^9, 3.569235740536152*^9}, { 3.57045575500149*^9, 3.5704557604770994`*^9}, {3.57046440981329*^9, 3.5704644333849316`*^9}, {3.5705963024877205`*^9, 3.5705963300061693`*^9}, {3.5706010463712544`*^9, 3.570601069225295*^9}, { 3.5706012097659416`*^9, 3.5706012109983435`*^9}, {3.570601290948484*^9, 3.570601291619285*^9}, {3.570601333099758*^9, 3.570601444951955*^9}, 3.5706014761208096`*^9, {3.570601526633698*^9, 3.570601615179454*^9}, { 3.5708576202336864`*^9, 3.5708576267544985`*^9}, {3.5708577990100007`*^9, 3.5708578016152053`*^9}, {3.5708580423548284`*^9, 3.570858044429632*^9}, { 3.570858075754487*^9, 3.5708581072821426`*^9}, {3.570858449889944*^9, 3.5708585756105647`*^9}}], Cell[BoxData["1819.9517079053346`"], "Output", CellChangeTimes->{3.572766620463971*^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[{"-", "3518.19666217642`"}]], "Output", CellChangeTimes->{3.572766620463971*^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[{"-", "5063.082889957666`"}]], "Output", CellChangeTimes->{3.5727666204795713`*^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[{"-", "5131.166234000066`"}]], "Output", CellChangeTimes->{3.572766620495171*^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.5727666205107713`*^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["1819.9517079053346`"], "Output", CellChangeTimes->{3.572766620526371*^9}], Cell[BoxData["1586.926201840177`"], "Output", CellChangeTimes->{3.572766620526371*^9}], Cell[BoxData[ RowBox[{"-", "5131.166234000066`"}]], "Output", CellChangeTimes->{3.572766620526371*^9}], Cell[BoxData["10.542857142857144`"], "Output", CellChangeTimes->{3.572766620526371*^9}], Cell[BoxData[ RowBox[{"-", "1724.2883242545538`"}]], "Output", CellChangeTimes->{3.572766620526371*^9}], Cell[BoxData["854.664687891617`"], "Output", CellChangeTimes->{3.572766620526371*^9}], Cell[BoxData["2.0175027103415517`"], "Output", CellChangeTimes->{3.572766620526371*^9}], Cell[BoxData[ RowBox[{"-", "869.6236363629368`"}]], "Output", CellChangeTimes->{3.572766620526371*^9}] }, Open ]] }, WindowSize->{1596, 978}, WindowMargins->{{Automatic, 112}, {Automatic, 6}}, 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, 1577, 28, 52, "Input"], Cell[CellGroupData[{ Cell[2159, 52, 282, 6, 52, "Input"], Cell[2444, 60, 5974, 101, 362, "Output"] }, Open ]], Cell[CellGroupData[{ Cell[8455, 166, 680, 14, 52, "Input"], Cell[9138, 182, 5502, 141, 791, "Output"] }, Open ]], Cell[CellGroupData[{ Cell[14677, 328, 609, 10, 31, "Input"], Cell[15289, 340, 1061, 15, 31, "Output"] }, Open ]], Cell[CellGroupData[{ Cell[16387, 360, 955, 14, 31, "Input"], Cell[17345, 376, 71, 1, 31, "Output"] }, Open ]], Cell[CellGroupData[{ Cell[17453, 382, 1560, 29, 31, "Input"], Cell[19016, 413, 1061, 15, 31, "Output"] }, Open ]], Cell[20092, 431, 1419, 23, 31, "Input"], Cell[21514, 456, 1592, 29, 31, "Input"], Cell[CellGroupData[{ Cell[23131, 489, 1234, 18, 31, "Input"], Cell[24368, 509, 3554, 105, 72, "Output"] }, Open ]], Cell[CellGroupData[{ Cell[27959, 619, 697, 14, 31, "Input"], Cell[28659, 635, 678, 11, 31, "Output"] }, Open ]], Cell[29352, 649, 908, 24, 31, "Input"], Cell[CellGroupData[{ Cell[30285, 677, 5635, 122, 52, "Input"], Cell[35923, 801, 839, 13, 52, "Output"], Cell[36765, 816, 862, 14, 52, "Output"] }, Open ]], Cell[CellGroupData[{ Cell[37664, 835, 519, 12, 31, "Input"], Cell[38186, 849, 1061, 15, 31, "Output"] }, Open ]], Cell[CellGroupData[{ Cell[39284, 869, 1401, 38, 31, "Input"], Cell[40688, 909, 744, 12, 52, "Output"] }, Open ]], Cell[CellGroupData[{ Cell[41469, 926, 827, 23, 92, "Input"], Cell[42299, 951, 71, 1, 31, "Output"], Cell[42373, 954, 71, 1, 31, "Output"] }, Open ]], Cell[CellGroupData[{ Cell[42481, 960, 284, 6, 52, "Input"], Cell[42768, 968, 84, 1, 31, "Output"] }, Open ]], Cell[42867, 972, 1824, 35, 72, "Input"], Cell[44694, 1009, 935, 19, 31, "Input"], Cell[CellGroupData[{ Cell[45654, 1032, 275, 6, 52, "Input"], Cell[45932, 1040, 35904, 881, 228, "Output"] }, Open ]], Cell[CellGroupData[{ Cell[81873, 1926, 2100, 42, 72, "Input"], Cell[83976, 1970, 64371, 888, 806, "Output"] }, Open ]], Cell[148362, 2861, 1309, 35, 72, "Input"], Cell[CellGroupData[{ Cell[149696, 2900, 4850, 86, 72, "Input"], Cell[154549, 2988, 17401, 246, 806, "Output"] }, Open ]], Cell[CellGroupData[{ Cell[171987, 3239, 2570, 53, 132, "Input"], Cell[174560, 3294, 73, 1, 31, "Output"] }, Open ]], Cell[CellGroupData[{ Cell[174670, 3300, 2598, 53, 92, "Input"], Cell[177271, 3355, 308, 6, 31, "Output"] }, Open ]], Cell[CellGroupData[{ Cell[177616, 3366, 12116, 275, 392, "Input"], Cell[189735, 3643, 208, 5, 31, "Output"] }, Open ]], Cell[CellGroupData[{ Cell[189980, 3653, 584, 9, 31, "Input"], Cell[190567, 3664, 4859, 171, 791, "Output"] }, Open ]], Cell[CellGroupData[{ Cell[195463, 3840, 1947, 43, 72, "Input"], Cell[197413, 3885, 240, 5, 31, "Output"], Cell[197656, 3892, 145, 3, 31, "Output"] }, Open ]], Cell[CellGroupData[{ Cell[197838, 3900, 570, 14, 52, "Input"], Cell[198411, 3916, 545, 11, 31, "Output"], Cell[198959, 3929, 144, 3, 31, "Output"] }, Open ]], Cell[CellGroupData[{ Cell[199140, 3937, 2767, 54, 72, "Input"], Cell[201910, 3993, 950, 17, 52, "Output"], Cell[202863, 4012, 142, 3, 31, "Output"] }, Open ]], Cell[CellGroupData[{ Cell[203042, 4020, 3698, 81, 92, "Input"], Cell[206743, 4103, 952, 15, 72, "Output"] }, Open ]], Cell[207710, 4121, 2072, 49, 112, "Input"], Cell[209785, 4172, 561, 12, 52, "Input"], Cell[210349, 4186, 2148, 49, 92, "Input"], Cell[212500, 4237, 2452, 56, 92, "Input"], Cell[214955, 4295, 1759, 41, 72, "Input"], Cell[CellGroupData[{ Cell[216739, 4340, 923, 20, 31, "Input"], Cell[217665, 4362, 86, 1, 31, "Output"] }, Open ]], Cell[CellGroupData[{ Cell[217788, 4368, 711, 18, 31, "Input"], Cell[218502, 4388, 86, 1, 31, "Output"] }, Open ]], Cell[CellGroupData[{ Cell[218625, 4394, 507, 10, 31, "Input"], Cell[219135, 4406, 86, 1, 31, "Output"] }, Open ]], Cell[CellGroupData[{ Cell[219258, 4412, 823, 23, 31, "Input"], Cell[220084, 4437, 87, 1, 31, "Output"] }, Open ]], Cell[CellGroupData[{ Cell[220208, 4443, 204, 4, 31, "Input"], Cell[220415, 4449, 85, 1, 31, "Output"] }, Open ]], Cell[220515, 4453, 1971, 35, 92, "Input"], Cell[222489, 4490, 6879, 98, 31, "Input"], Cell[CellGroupData[{ Cell[229393, 4592, 1082, 22, 52, "Input"], Cell[230478, 4616, 72, 1, 31, "Output"], Cell[230553, 4619, 141, 3, 31, "Output"] }, Open ]], Cell[CellGroupData[{ Cell[230731, 4627, 7755, 113, 31, "Input"], Cell[238489, 4742, 786, 21, 31, "Output"] }, Open ]], Cell[239290, 4766, 8557, 142, 112, "Input"], Cell[CellGroupData[{ Cell[247872, 4912, 8817, 149, 132, "Input"], Cell[256692, 5063, 689, 20, 31, "Output"] }, Open ]], Cell[257396, 5086, 1183, 23, 52, "Input"], Cell[258582, 5111, 744, 13, 31, "Input"], Cell[CellGroupData[{ Cell[259351, 5128, 868, 17, 31, "Input"], Cell[260222, 5147, 90, 1, 31, "Output"] }, Open ]], Cell[260327, 5151, 1585, 31, 92, "Input"], Cell[261915, 5184, 761, 12, 31, "Input"], Cell[CellGroupData[{ Cell[262701, 5200, 968, 19, 31, "Input"], Cell[263672, 5221, 87, 1, 31, "Output"] }, Open ]], Cell[263774, 5225, 1608, 31, 92, "Input"], Cell[265385, 5258, 766, 13, 31, "Input"], Cell[CellGroupData[{ Cell[266176, 5275, 1044, 20, 31, "Input"], Cell[267223, 5297, 104, 2, 31, "Output"] }, Open ]], Cell[CellGroupData[{ Cell[267364, 5304, 1729, 33, 92, "Input"], Cell[269096, 5339, 591, 17, 31, "Output"] }, Open ]], Cell[269702, 5359, 166, 2, 31, "Input"], Cell[269871, 5363, 1907, 44, 72, "Input"], Cell[271781, 5409, 3518, 87, 92, "Input"], Cell[CellGroupData[{ Cell[275324, 5500, 3820, 94, 112, "Input"], Cell[279147, 5596, 19648, 333, 346, 1516, 34, "CachedBoxData", "BoxData", \ "Output"] }, Open ]], Cell[298810, 5932, 2696, 53, 92, "Input"], Cell[CellGroupData[{ Cell[301531, 5989, 939, 17, 72, "Input"], Cell[302473, 6008, 4590, 106, 132, "Output"], Cell[307066, 6116, 70, 1, 31, "Output"], Cell[307139, 6119, 70, 1, 31, "Output"] }, Open ]], Cell[307224, 6123, 10201, 233, 72, "Input"], Cell[317428, 6358, 6427, 103, 31, "Input"], Cell[323858, 6463, 10215, 234, 72, "Input"], Cell[334076, 6699, 5925, 93, 31, "Input"], Cell[340004, 6794, 13291, 265, 272, "Input"], Cell[CellGroupData[{ Cell[353320, 7063, 15228, 292, 232, "Input"], Cell[368551, 7357, 87722, 1557, 328, 31619, 635, "CachedBoxData", "BoxData", \ "Output"], Cell[456276, 8916, 40996, 723, 358, 21608, 403, "CachedBoxData", "BoxData", \ "Output"] }, Open ]], Cell[CellGroupData[{ Cell[497309, 9644, 5192, 128, 192, "Input"], Cell[502504, 9774, 73, 1, 31, "Output"] }, Open ]], Cell[502592, 9778, 2427, 41, 72, "Input"], Cell[505022, 9821, 2453, 41, 72, "Input"], Cell[507478, 9864, 2629, 45, 92, "Input"], Cell[CellGroupData[{ Cell[510132, 9913, 3176, 50, 31, "Input"], Cell[513311, 9965, 697, 19, 31, "Output"] }, Open ]], Cell[CellGroupData[{ Cell[514045, 9989, 5586, 129, 232, "Input"], Cell[519634, 10120, 710, 20, 31, "Output"] }, Open ]], Cell[520359, 10143, 4778, 104, 132, "Input"], Cell[525140, 10249, 4686, 100, 72, "Input"], Cell[529829, 10351, 6401, 141, 112, "Input"], Cell[536233, 10494, 3575, 60, 31, "Input"], Cell[539811, 10556, 3482, 59, 31, "Input"], Cell[543296, 10617, 3048, 50, 31, "Input"], Cell[546347, 10669, 3099, 51, 31, "Input"], Cell[CellGroupData[{ Cell[549471, 10724, 13235, 299, 252, "Input"], Cell[562709, 11025, 99868, 1746, 410, 25263, 521, "CachedBoxData", "BoxData", \ "Output"], Cell[662580, 12773, 15192, 284, 368, "Output"] }, Open ]], Cell[CellGroupData[{ Cell[677809, 13062, 2447, 46, 92, "Input"], Cell[680259, 13110, 73, 1, 31, "Output"] }, Open ]], Cell[680347, 13114, 1841, 29, 52, "Input"], Cell[CellGroupData[{ Cell[682213, 13147, 4053, 88, 172, "Input"], Cell[686269, 13237, 6691, 177, 1346, "Output"], Cell[692963, 13416, 73, 1, 31, "Output"] }, Open ]], Cell[CellGroupData[{ Cell[693073, 13422, 4483, 84, 52, "Input"], Cell[697559, 13508, 2839, 91, 72, "Output"], Cell[700401, 13601, 1210, 18, 52, "Output"] }, Open ]], Cell[CellGroupData[{ Cell[701648, 13624, 4643, 79, 92, "Input"], Cell[706294, 13705, 73, 1, 31, "Output"] }, Open ]], Cell[706382, 13709, 1863, 27, 31, "Input"], Cell[CellGroupData[{ Cell[708270, 13740, 2963, 56, 112, "Input"], Cell[711236, 13798, 87, 1, 31, "Output"] }, Open ]], Cell[CellGroupData[{ Cell[711360, 13804, 1141, 31, 92, "Input"], Cell[712504, 13837, 88, 1, 31, "Output"] }, Open ]], Cell[CellGroupData[{ Cell[712629, 13843, 2532, 57, 112, "Input"], Cell[715164, 13902, 88, 1, 31, "Output"] }, Open ]], Cell[CellGroupData[{ Cell[715289, 13908, 499, 15, 52, "Input"], Cell[715791, 13925, 103, 2, 31, "Output"] }, Open ]], Cell[715909, 13930, 1381, 21, 31, "Input"], Cell[CellGroupData[{ Cell[717315, 13955, 1709, 32, 52, "Input"], Cell[719027, 13989, 106, 2, 31, "Output"] }, Open ]], Cell[CellGroupData[{ Cell[719170, 13996, 1415, 43, 72, "Input"], Cell[720588, 14041, 104, 2, 31, "Output"] }, Open ]], Cell[CellGroupData[{ Cell[720729, 14048, 2550, 50, 92, "Input"], Cell[723282, 14100, 89, 1, 31, "Output"] }, Open ]], Cell[CellGroupData[{ Cell[723408, 14106, 1891, 36, 192, "Input"], Cell[725302, 14144, 88, 1, 31, "Output"], Cell[725393, 14147, 87, 1, 31, "Output"], Cell[725483, 14150, 104, 2, 31, "Output"], Cell[725590, 14154, 88, 1, 31, "Output"], Cell[725681, 14157, 105, 2, 31, "Output"], Cell[725789, 14161, 86, 1, 31, "Output"], Cell[725878, 14164, 88, 1, 31, "Output"], Cell[725969, 14167, 104, 2, 63, "Output"] }, Open ]] } ] *) (* End of internal cache information *)