(* 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[ 685608, 13759] NotebookOptionsPosition[ 675478, 13460] NotebookOutlinePosition[ 675979, 13480] CellTagsIndexPosition[ 675936, 13477] 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.5727773842476196`*^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.57277738426322*^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.5727773842788196`*^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.5727773842944193`*^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.5727773842944193`*^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.5727773843100195`*^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.5727773843256197`*^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.57277738434122*^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.57277738434122*^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.57277738435682*^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.57277738437242*^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.5727773843880196`*^9}], Cell[BoxData["30"], "Output", CellChangeTimes->{3.5727773843880196`*^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.5727773843880196`*^9}] }, Open ]], Cell[BoxData[{ RowBox[{ RowBox[{"DeleteFile", "[", " ", "\"\\"", "]"}], ";"}], "\[IndentingNewLine]", RowBox[{"For", "[", RowBox[{ RowBox[{"i", "=", "1"}], ",", RowBox[{"i", "<", RowBox[{"n", "+", "1"}]}], ",", RowBox[{"i", "++"}], ",", "\[IndentingNewLine]", RowBox[{ RowBox[{"{", RowBox[{ RowBox[{"u", "[", RowBox[{"[", "i", "]"}], "]"}], ",", RowBox[{"Extract", "[", RowBox[{"t1", ",", RowBox[{"{", "i", "}"}]}], "]"}]}], "}"}], ">>>", " ", "\"\\""}]}], "]"}]}], "Input", CellChangeTimes->{{3.567869377256353*^9, 3.5678694101568108`*^9}, { 3.5678695244894114`*^9, 3.56786953511303*^9}, 3.56786988243204*^9, 3.5678699252853155`*^9, {3.567870069179968*^9, 3.5678700766835814`*^9}, { 3.5678703216664114`*^9, 3.567870325738019*^9}, 3.5679271251072817`*^9, { 3.567942840466694*^9, 3.567942854381918*^9}, {3.567942932272855*^9, 3.567942950509287*^9}, 3.5679430681802936`*^9, {3.568278272060727*^9, 3.56827827391713*^9}, 3.5688732159559383`*^9, 3.568910867631465*^9, 3.5689997098549547`*^9, 3.5689998170427427`*^9, 3.5689998869620657`*^9, { 3.569059200815255*^9, 3.5690592031552596`*^9}, 3.5691460426137285`*^9, 3.569237204520723*^9, 3.569237465836782*^9, 3.56923802264856*^9, 3.5693403424181123`*^9, 3.569340450198702*^9, 3.569340738019207*^9, 3.569340852851009*^9, {3.5693411655067577`*^9, 3.5693411655067577`*^9}, 3.5693414976001415`*^9, {3.5693416978420925`*^9, 3.569341705314506*^9}, 3.569342614421703*^9, 3.5693435671777763`*^9, 3.569343662727944*^9, 3.5693437636289215`*^9, 3.5693440709750605`*^9, 3.5693442662562037`*^9, { 3.5702975520309644`*^9, 3.570297552764166*^9}, {3.5705591717487917`*^9, 3.5705591791432047`*^9}}], Cell[CellGroupData[{ Cell[BoxData[{ RowBox[{ RowBox[{"t", "=", RowBox[{"Table", "[", RowBox[{ RowBox[{"t1", "[", RowBox[{"[", RowBox[{"num", "[", RowBox[{"[", "i", "]"}], "]"}], "]"}], "]"}], ",", RowBox[{"{", RowBox[{"i", ",", "1", ",", "n"}], "}"}]}], "]"}]}], ";"}], "\[IndentingNewLine]", RowBox[{ RowBox[{"Plot1o", "=", RowBox[{"Table", "[", RowBox[{ RowBox[{"Graphics3D", "[", RowBox[{"{", RowBox[{ RowBox[{"Opacity", "[", "0.4", "]"}], ",", 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", "[", "Blue", "]"}]}], "]"}]}], "]"}]}], "]"}]}], "]"}], ",", RowBox[{"Sphere", "[", RowBox[{ RowBox[{"{", RowBox[{ RowBox[{"t", "[", RowBox[{"[", RowBox[{"i", ",", "1"}], "]"}], "]"}], ",", RowBox[{"t", "[", RowBox[{"[", RowBox[{"i", ",", "2"}], "]"}], "]"}], ",", RowBox[{"t", "[", RowBox[{"[", RowBox[{"i", ",", "3"}], "]"}], "]"}]}], "}"}], ",", RowBox[{"2", "*", RowBox[{"u1", "[", RowBox[{"[", "i", "]"}], "]"}]}]}], "]"}]}], "}"}], "]"}], ",", RowBox[{"{", RowBox[{"i", ",", "1", ",", "n"}], "}"}]}], "]"}]}], ";"}], "\[IndentingNewLine]", RowBox[{ RowBox[{"Plot2", "=", RowBox[{"Table", "[", RowBox[{ RowBox[{"Graphics3D", "[", RowBox[{"Text", "[", RowBox[{"i", ",", RowBox[{"{", RowBox[{ RowBox[{ RowBox[{"t", "[", RowBox[{"[", RowBox[{"i", ",", "1"}], "]"}], "]"}], "-", "0.6"}], ",", RowBox[{"t", "[", RowBox[{"[", RowBox[{"i", ",", "2"}], "]"}], "]"}], ",", RowBox[{"t", "[", RowBox[{"[", RowBox[{"i", ",", "3"}], "]"}], "]"}]}], "}"}], " ", ",", RowBox[{"{", RowBox[{"1", ",", "0"}], "}"}]}], "]"}], "]"}], ",", RowBox[{"{", RowBox[{"i", ",", "1", ",", "n"}], "}"}]}], "]"}]}], ";"}], "\[IndentingNewLine]", RowBox[{"Show", "[", RowBox[{"Plot1o", ",", "Plot2", ",", RowBox[{"{", RowBox[{ RowBox[{"AspectRatio", "\[Rule]", "Automatic"}], ",", RowBox[{"Boxed", "\[Rule]", "True"}], ",", " ", RowBox[{"Axes", "\[Rule]", "Automatic"}], ",", RowBox[{"AxesLabel", "\[Rule]", RowBox[{"{", RowBox[{"xl", ",", "yl", ",", "zl"}], "}"}]}], ",", RowBox[{"SphericalRegion", "\[Rule]", "True"}]}], "}"}]}], "]"}]}], "Input", CellChangeTimes->{{3.567869377256353*^9, 3.567869394073182*^9}, { 3.5678694248832364`*^9, 3.5678694526200852`*^9}, {3.5678694891241493`*^9, 3.5678694955045605`*^9}, {3.567869596046737*^9, 3.567869602645549*^9}, 3.56786971175214*^9, {3.5678697908910794`*^9, 3.567869798800293*^9}, { 3.5679434548425727`*^9, 3.5679434621121855`*^9}, 3.568011875875622*^9, 3.56811435956207*^9, {3.5682782821071444`*^9, 3.5682782839479475`*^9}, { 3.5688205455482616`*^9, 3.5688206262784038`*^9}, 3.5688208026055136`*^9, 3.5688732159559383`*^9, 3.568910867631465*^9, {3.5689830694736805`*^9, 3.568983072687286*^9}, {3.5725833074418383`*^9, 3.5725833223398647`*^9}, { 3.572583642982828*^9, 3.572583671421678*^9}, {3.572584036290719*^9, 3.5725840766323895`*^9}, {3.572584986320788*^9, 3.572585000719613*^9}, { 3.572585104865396*^9, 3.5725851158790154`*^9}, 3.5726667135591345`*^9}], Cell[BoxData[ Graphics3DBox[{ {RGBColor[ NCache[ Rational[1, 3], 0.3333333333333333], NCache[ Rational[1, 3], 0.3333333333333333], 1], Opacity[0.4], SphereBox[{6.2984567579999995`, 0.87813677494, 4.5943018512}, 0.51]}, {RGBColor[ NCache[ Rational[1, 3], 0.3333333333333333], NCache[ Rational[1, 3], 0.3333333333333333], 1], Opacity[0.4], SphereBox[{8.0912398142, 3.0808202978, 5.136275268}, 0.51]}, {RGBColor[ NCache[ Rational[1, 3], 0.3333333333333333], NCache[ Rational[1, 3], 0.3333333333333333], 1], Opacity[0.4], SphereBox[{10.1614346472, 3.1034970098, 3.1087882425999998`}, 0.51]}, {RGBColor[ NCache[ Rational[1, 3], 0.3333333333333333], NCache[ Rational[1, 3], 0.3333333333333333], 1], Opacity[0.4], SphereBox[{5.4828510164, 0.92895150708, 1.8780285960599998`}, 0.51]}, {RGBColor[ NCache[ Rational[1, 3], 0.3333333333333333], NCache[ Rational[1, 3], 0.3333333333333333], 1], Opacity[0.4], SphereBox[{8.954466651, 3.8282069308, 0.5798057313199999}, 0.51]}, {RGBColor[ NCache[ Rational[1, 3], 0.3333333333333333], NCache[ Rational[1, 3], 0.3333333333333333], 1], Opacity[0.4], SphereBox[{6.659205451399999, 2.2315774334, 0.10211134441}, 0.51]}, {RGBColor[ NCache[ Rational[1, 3], 0.3333333333333333], NCache[ Rational[1, 3], 0.3333333333333333], 1], Opacity[0.4], SphereBox[{7.652445436999999, -1.61707633272, 5.1421334186}, 0.51]}, {RGBColor[ NCache[ Rational[1, 3], 0.3333333333333333], NCache[ Rational[1, 3], 0.3333333333333333], 1], Opacity[0.4], SphereBox[{3.9725819972, 1.10059531966, 6.2977008676}, 0.51]}, {RGBColor[ NCache[ Rational[1, 3], 0.3333333333333333], NCache[ Rational[1, 3], 0.3333333333333333], 1], Opacity[0.4], SphereBox[{3.2546750897999996`, -0.53636093058, 1.15904454484}, 0.51]}, {RGBColor[ NCache[ Rational[1, 3], 0.3333333333333333], NCache[ Rational[1, 3], 0.3333333333333333], 1], Opacity[0.4], SphereBox[{5.6393203292, 2.1062885995999996`, -2.5537757163999997`}, 0.51]}, {RGBColor[ NCache[ Rational[1, 3], 0.3333333333333333], NCache[ Rational[1, 3], 0.3333333333333333], 1], Opacity[0.4], SphereBox[{1.2153772769, 0.6439052372399999, 0.150276680698}, 0.51]}, {RGBColor[ NCache[ Rational[1, 3], 0.3333333333333333], NCache[ Rational[1, 3], 0.3333333333333333], 1], Opacity[0.4], SphereBox[{-1.00289648546, -0.7372954961599999, -0.36513285772}, 0.51]}, {RGBColor[ NCache[ Rational[1, 3], 0.3333333333333333], NCache[ Rational[1, 3], 0.3333333333333333], 1], Opacity[0.4], SphereBox[{-1.10875893598, -3.5256617982, 0.20480850387999996`}, 0.51]}, {RGBColor[ NCache[ Rational[1, 3], 0.3333333333333333], NCache[ Rational[1, 3], 0.3333333333333333], 1], Opacity[0.4], SphereBox[{-3.047183175, 0.44584305518, -1.3762307540199998`}, 0.51]}, {RGBColor[ NCache[ Rational[1, 3], 0.3333333333333333], NCache[ Rational[1, 3], 0.3333333333333333], 1], Opacity[0.4], SphereBox[{-5.1780382126, -0.97286873932, -2.1119577776}, 0.51]}, {RGBColor[ NCache[ Rational[1, 3], 0.3333333333333333], NCache[ Rational[1, 3], 0.3333333333333333], 1], Opacity[0.4], SphereBox[{-7.2930195518, 0.22196721596, -2.9294532452}, 0.51]}, {RGBColor[ NCache[ Rational[1, 3], 0.3333333333333333], NCache[ Rational[1, 3], 0.3333333333333333], 1], Opacity[0.4], SphereBox[{-9.5026761636, -1.24914668052, -3.692524604}, 0.51]}, {RGBColor[ NCache[ Rational[1, 3], 0.3333333333333333], NCache[ Rational[1, 3], 0.3333333333333333], 1], Opacity[0.4], SphereBox[{-9.4310555482, -4.0933354886, -3.5706372769999994`}, 0.51]}, {RGBColor[ NCache[ Rational[1, 3], 0.3333333333333333], NCache[ Rational[1, 3], 0.3333333333333333], 1], Opacity[0.4], SphereBox[{-11.584965243, -0.072731774288, -4.4973589074}, 0.51]}, {RGBColor[ NCache[ Rational[1, 3], 0.3333333333333333], NCache[ Rational[1, 3], 0.3333333333333333], 1], Opacity[0.4], SphereBox[{-13.7116628834, -1.5733480730799998`, -5.6533043016}, 0.51]}, {RGBColor[1, NCache[ Rational[1, 3], 0.3333333333333333], NCache[ Rational[1, 3], 0.3333333333333333]], Opacity[0.4], SphereBox[{-14.6026686924, -0.31240950232, -7.868819063999999}, 0.356]}, {RGBColor[ NCache[ Rational[1, 3], 0.3333333333333333], NCache[ Rational[1, 3], 0.3333333333333333], 1], Opacity[0.4], SphereBox[{8.9455849388, 2.8361007808000003`, 6.994820788999999}, 0.2]}, {RGBColor[ NCache[ Rational[1, 3], 0.3333333333333333], NCache[ Rational[1, 3], 0.3333333333333333], 1], Opacity[0.4], SphereBox[{7.045654418399999, 4.8545171214, 5.077693761999999}, 0.2]}, {RGBColor[ NCache[ Rational[1, 3], 0.3333333333333333], NCache[ Rational[1, 3], 0.3333333333333333], 1], Opacity[0.4], SphereBox[{11.011055456799998`, 1.2324226054199998`, 2.9663029022}, 0.2]}, {RGBColor[ NCache[ Rational[1, 3], 0.3333333333333333], NCache[ Rational[1, 3], 0.3333333333333333], 1], Opacity[0.4], SphereBox[{11.60291764, 4.4877213048, 3.6071089888}, 0.2]}, {RGBColor[ NCache[ Rational[1, 3], 0.3333333333333333], NCache[ Rational[1, 3], 0.3333333333333333], 1], Opacity[0.4], SphereBox[{8.4075799466, 5.8133640938, 0.62856066212}, 0.2]}, {RGBColor[ NCache[ Rational[1, 3], 0.3333333333333333], NCache[ Rational[1, 3], 0.3333333333333333], 1], Opacity[0.4], SphereBox[{10.3173370422, 3.5362442637999996`, -0.9369639453199999}, 0.2]}, {RGBColor[ NCache[ Rational[1, 3], 0.3333333333333333], NCache[ Rational[1, 3], 0.3333333333333333], 1], Opacity[0.4], SphereBox[{6.3706442912, -3.1879677619999995`, 4.7785501362}, 0.2]}, {RGBColor[ NCache[ Rational[1, 3], 0.3333333333333333], NCache[ Rational[1, 3], 0.3333333333333333], 1], Opacity[0.4], SphereBox[{8.2460083736, -1.6577243389799998`, 7.113873526999999}, 0.2]}, {RGBColor[ NCache[ Rational[1, 3], 0.3333333333333333], NCache[ Rational[1, 3], 0.3333333333333333], 1], Opacity[0.4], SphereBox[{9.305010823999998, -1.78331552894, 3.924016039}, 0.2]}, {RGBColor[ NCache[ Rational[1, 3], 0.3333333333333333], NCache[ Rational[1, 3], 0.3333333333333333], 1], Opacity[0.4], SphereBox[{2.6287978386, -0.38658124782, 5.8226237512}, 0.2]}, {RGBColor[ NCache[ Rational[1, 3], 0.3333333333333333], NCache[ Rational[1, 3], 0.3333333333333333], 1], Opacity[0.4], SphereBox[{3.0889461196, 2.9398467381999995`, 6.0161316936}, 0.2]}, {RGBColor[ NCache[ Rational[1, 3], 0.3333333333333333], NCache[ Rational[1, 3], 0.3333333333333333], 1], Opacity[0.4], SphereBox[{4.5430902766, 0.9068606101399999, 8.2673622774}, 0.2]}, {RGBColor[ NCache[ Rational[1, 3], 0.3333333333333333], NCache[ Rational[1, 3], 0.3333333333333333], 1], Opacity[0.4], SphereBox[{3.2353998846, -2.5602007847999997`, 1.42313375334}, 0.2]}, {RGBColor[ NCache[ Rational[1, 3], 0.3333333333333333], NCache[ Rational[1, 3], 0.3333333333333333], 1], Opacity[0.4], SphereBox[{6.8030136, 3.2707377608, -3.7919241915999997`}, 0.2]}, {RGBColor[ NCache[ Rational[1, 3], 0.3333333333333333], NCache[ Rational[1, 3], 0.3333333333333333], 1], Opacity[0.4], SphereBox[{3.7010283709999996`, 2.8028416031999996`, -2.5785311269999998`}, 0.2]}, {RGBColor[ NCache[ Rational[1, 3], 0.3333333333333333], NCache[ Rational[1, 3], 0.3333333333333333], 1], Opacity[0.4], SphereBox[{5.6759810136, 0.15492918610999998`, -3.2121562547999996`}, 0.2]}, {RGBColor[ NCache[ Rational[1, 3], 0.3333333333333333], NCache[ Rational[1, 3], 0.3333333333333333], 1], Opacity[0.4], SphereBox[{1.29132536484, 2.6420259206, -0.2581365716}, 0.2]}, {RGBColor[ NCache[ Rational[1, 3], 0.3333333333333333], NCache[ Rational[1, 3], 0.3333333333333333], 1], Opacity[0.4], SphereBox[{-0.33081543356, -4.5810737692, -1.38367627446}, 0.2]}, {RGBColor[ NCache[ Rational[1, 3], 0.3333333333333333], NCache[ Rational[1, 3], 0.3333333333333333], 1], Opacity[0.4], SphereBox[{-3.0658914624, -4.0899339818, 0.51139765012}, 0.2]}, {RGBColor[ NCache[ Rational[1, 3], 0.3333333333333333], NCache[ Rational[1, 3], 0.3333333333333333], 1], Opacity[0.4], SphereBox[{-0.0062334501835999995`, -3.9225042581999996`, 1.8987966848}, 0.2]}, {RGBColor[ NCache[ Rational[1, 3], 0.3333333333333333], NCache[ Rational[1, 3], 0.3333333333333333], 1], Opacity[0.4], SphereBox[{-3.0381124902, 2.472706471, -1.61573462726}, 0.2]}, {RGBColor[ NCache[ Rational[1, 3], 0.3333333333333333], NCache[ Rational[1, 3], 0.3333333333333333], 1], Opacity[0.4], SphereBox[{-5.1264486927999995`, -3.0110894083999997`, -2.024841409}, 0.2]}, {RGBColor[ NCache[ Rational[1, 3], 0.3333333333333333], NCache[ Rational[1, 3], 0.3333333333333333], 1], Opacity[0.4], SphereBox[{-7.3442311263999995`, 2.2604902412, -3.0167585863999995`}, 0.2]}, {RGBColor[ NCache[ Rational[1, 3], 0.3333333333333333], NCache[ Rational[1, 3], 0.3333333333333333], 1], Opacity[0.4], SphereBox[{-11.297726891, -4.846580272200001, -4.0077309008}, 0.2]}, {RGBColor[ NCache[ Rational[1, 3], 0.3333333333333333], NCache[ Rational[1, 3], 0.3333333333333333], 1], Opacity[0.4], SphereBox[{-8.877554802799999, -4.6857645896, -1.6773019003399998`}, 0.2]}, {RGBColor[ NCache[ Rational[1, 3], 0.3333333333333333], NCache[ Rational[1, 3], 0.3333333333333333], 1], Opacity[0.4], SphereBox[{-8.0659174858, -4.8050063002, -4.9393658188}, 0.2]}, {RGBColor[ NCache[ Rational[1, 3], 0.3333333333333333], NCache[ Rational[1, 3], 0.3333333333333333], 1], Opacity[0.4], SphereBox[{-11.7452140078, 1.9541656565999999`, -4.3202915812}, 0.2]}, {RGBColor[ NCache[ Rational[1, 3], 0.3333333333333333], NCache[ Rational[1, 3], 0.3333333333333333], 1], Opacity[0.4], SphereBox[{-15.250088819999998`, -1.7430832623999999`, -4.2942133624}, 0.2]}, {RGBColor[ NCache[ Rational[1, 3], 0.3333333333333333], NCache[ Rational[1, 3], 0.3333333333333333], 1], Opacity[0.4], SphereBox[{-13.031550496, -3.4508286486, -6.158617033999999}, 0.2]}, {RGBColor[ NCache[ Rational[1, 3], 0.3333333333333333], NCache[ Rational[1, 3], 0.3333333333333333], 1], Opacity[0.4], SphereBox[{-15.9583581248, -1.33242690534, -8.547797615799999}, 0.2]}, Text3DBox["1", {5.698456758, 0.87813677494, 4.5943018512}, {1, 0}], Text3DBox["2", {7.4912398142, 3.0808202978, 5.136275268}, {1, 0}], Text3DBox["3", {9.5614346472, 3.1034970098, 3.1087882425999998`}, {1, 0}], Text3DBox["4", {4.8828510164, 0.92895150708, 1.8780285960599998`}, {1, 0}], Text3DBox["5", {8.354466651000001, 3.8282069308, 0.5798057313199999}, {1, 0}], Text3DBox["6", {6.0592054513999996`, 2.2315774334, 0.10211134441}, { 1, 0}], Text3DBox["7", {7.052445436999999, -1.61707633272, 5.1421334186}, {1, 0}], Text3DBox["8", {3.3725819971999997`, 1.10059531966, 6.2977008676}, {1, 0}], Text3DBox["9", {2.6546750897999996`, -0.53636093058, 1.15904454484}, {1, 0}], Text3DBox["10", {5.039320329200001, 2.1062885995999996`, -2.5537757163999997`}, {1, 0}], Text3DBox["11", {0.6153772769, 0.6439052372399999, 0.150276680698}, {1, 0}], Text3DBox[ "12", {-1.60289648546, -0.7372954961599999, -0.36513285772}, {1, 0}], Text3DBox["13", {-1.7087589359800002`, -3.5256617982, 0.20480850387999996`}, {1, 0}], Text3DBox["14", {-3.647183175, 0.44584305518, -1.3762307540199998`}, {1, 0}], Text3DBox[ "15", {-5.778038212599999, -0.97286873932, -2.1119577776}, {1, 0}], Text3DBox["16", {-7.893019551799999, 0.22196721596, -2.9294532452}, {1, 0}], Text3DBox["17", {-10.1026761636, -1.24914668052, -3.692524604}, {1, 0}], Text3DBox[ "18", {-10.0310555482, -4.0933354886, -3.5706372769999994`}, {1, 0}], Text3DBox["19", {-12.184965242999999`, -0.072731774288, -4.4973589074}, {1, 0}], Text3DBox[ "20", {-14.3116628834, -1.5733480730799998`, -5.6533043016}, {1, 0}], Text3DBox["21", {-15.2026686924, -0.31240950232, -7.868819063999999}, {1, 0}], Text3DBox["22", {8.3455849388, 2.8361007808000003`, 6.994820788999999}, {1, 0}], Text3DBox["23", {6.445654418399999, 4.8545171214, 5.077693761999999}, {1, 0}], Text3DBox["24", {10.411055456799998`, 1.2324226054199998`, 2.9663029022}, {1, 0}], Text3DBox["25", {11.00291764, 4.4877213048, 3.6071089888}, {1, 0}], Text3DBox["26", {7.807579946600001, 5.8133640938, 0.62856066212}, {1, 0}], Text3DBox["27", {9.7173370422, 3.5362442637999996`, -0.9369639453199999}, { 1, 0}], Text3DBox["28", {5.7706442912, -3.1879677619999995`, 4.7785501362}, {1, 0}], Text3DBox["29", {7.646008373600001, -1.6577243389799998`, 7.113873526999999}, {1, 0}], Text3DBox["30", {8.705010823999999, -1.78331552894, 3.924016039}, {1, 0}], Text3DBox["31", {2.0287978386, -0.38658124782, 5.8226237512}, {1, 0}], Text3DBox["32", {2.4889461196, 2.9398467381999995`, 6.0161316936}, {1, 0}], Text3DBox["33", {3.9430902766, 0.9068606101399999, 8.2673622774}, {1, 0}], Text3DBox["34", {2.6353998846, -2.5602007847999997`, 1.42313375334}, {1, 0}], Text3DBox["35", {6.2030136, 3.2707377608, -3.7919241915999997`}, {1, 0}], Text3DBox["36", {3.1010283709999995`, 2.8028416031999996`, -2.5785311269999998`}, {1, 0}], Text3DBox["37", {5.075981013600001, 0.15492918610999998`, -3.2121562547999996`}, {1, 0}], Text3DBox["38", {0.6913253648400001, 2.6420259206, -0.2581365716}, {1, 0}], Text3DBox["39", {-0.93081543356, -4.5810737692, -1.38367627446}, {1, 0}], Text3DBox["40", {-3.6658914624000003`, -4.0899339818, 0.51139765012}, {1, 0}], Text3DBox["41", {-0.6062334501836, -3.9225042581999996`, 1.8987966848}, {1, 0}], Text3DBox["42", {-3.6381124902, 2.472706471, -1.61573462726}, {1, 0}], Text3DBox["43", {-5.726448692799999, -3.0110894083999997`, -2.024841409}, { 1, 0}], Text3DBox["44", {-7.944231126399999, 2.2604902412, -3.0167585863999995`}, {1, 0}], Text3DBox["45", {-11.897726891, -4.846580272200001, -4.0077309008}, {1, 0}], Text3DBox[ "46", {-9.477554802799999, -4.6857645896, -1.6773019003399998`}, {1, 0}], Text3DBox["47", {-8.6659174858, -4.8050063002, -4.9393658188}, {1, 0}], Text3DBox["48", {-12.3452140078, 1.9541656565999999`, -4.3202915812}, {1, 0}], Text3DBox[ "49", {-15.850088819999998`, -1.7430832623999999`, -4.2942133624}, {1, 0}], Text3DBox["50", {-13.631550496, -3.4508286486, -6.158617033999999}, { 1, 0}], Text3DBox[ "51", {-16.5583581248, -1.33242690534, -8.547797615799999}, {1, 0}]}, AspectRatio->Automatic, Axes->Automatic, AxesLabel->{ FormBox["xl", TraditionalForm], FormBox["yl", TraditionalForm], FormBox["zl", TraditionalForm]}, Boxed->True, SphericalRegion->True]], "Output", CellChangeTimes->{3.57277738445042*^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.57277738449722*^9}] }, Open ]], Cell[BoxData[{ RowBox[{ RowBox[{"x", "=", RowBox[{"Table", "[", RowBox[{ RowBox[{"t", "[", RowBox[{"[", RowBox[{"i", ",", "1"}], "]"}], "]"}], ",", RowBox[{"{", RowBox[{"i", ",", "1", ",", "n"}], "}"}]}], "]"}]}], ";"}], "\[IndentingNewLine]", RowBox[{ RowBox[{"y", "=", RowBox[{"Table", "[", RowBox[{ RowBox[{"t", "[", RowBox[{"[", RowBox[{"i", ",", "2"}], "]"}], "]"}], ",", RowBox[{"{", RowBox[{"i", ",", "1", ",", "n"}], "}"}]}], "]"}]}], ";"}], "\[IndentingNewLine]", RowBox[{ RowBox[{"z", "=", RowBox[{"Table", "[", RowBox[{ RowBox[{"t", "[", RowBox[{"[", RowBox[{"i", ",", "3"}], "]"}], "]"}], ",", RowBox[{"{", RowBox[{"i", ",", "1", ",", "n"}], "}"}]}], "]"}]}], ";"}]}], "Input", CellChangeTimes->{{3.5678630319943895`*^9, 3.5678630956269007`*^9}, { 3.5678632280087337`*^9, 3.567863228336334*^9}, {3.5678632621727934`*^9, 3.5678633509213495`*^9}, {3.5678644293824434`*^9, 3.567864451908883*^9}, { 3.567864923404111*^9, 3.56786494544695*^9}, {3.5678650143210707`*^9, 3.5678650845367947`*^9}, {3.567869231084096*^9, 3.567869278118179*^9}, { 3.5682778102931156`*^9, 3.5682778156907253`*^9}, 3.571808490989086*^9, { 3.572601938592864*^9, 3.572601945722077*^9}}], Cell[CellGroupData[{ Cell[BoxData[ RowBox[{ RowBox[{"(*", " ", RowBox[{"connected", " ", RowBox[{"pairs", ":", " ", RowBox[{ RowBox[{"distance", " ", "criteria"}], " ", "<", " ", RowBox[{"3.0", " ", "bohr"}]}]}]}], " ", "*)"}], "\[IndentingNewLine]", RowBox[{ RowBox[{ RowBox[{"Dij", "=", RowBox[{"Table", "[", RowBox[{ RowBox[{"If", "[", RowBox[{ RowBox[{"(", RowBox[{ RowBox[{ RowBox[{"dc", "[", RowBox[{"[", RowBox[{"i", ",", "j"}], "]"}], "]"}], "<", "3.0"}], "||", RowBox[{"(", RowBox[{ RowBox[{ RowBox[{"u", "[", RowBox[{"[", "i", "]"}], "]"}], "\[Equal]", "\"\\""}], " ", "&&", " ", RowBox[{"j", "\[Equal]", "10"}], " ", "&&", " ", RowBox[{"i", "\[Equal]", " ", "17"}]}], ")"}]}], ")"}], ",", RowBox[{"dc", "[", RowBox[{"[", RowBox[{"i", ",", "j"}], "]"}], "]"}], ",", "0"}], "]"}], ",", RowBox[{"{", RowBox[{"i", ",", "1", ",", "n"}], "}"}], ",", RowBox[{"{", RowBox[{"j", ",", "1", ",", "n"}], "}"}]}], "]"}]}], ";"}], "\[IndentingNewLine]", RowBox[{"MatrixForm", "[", RowBox[{"Prepend", "[", RowBox[{"Dij", ",", "num1"}], "]"}], "]"}]}]}]], "Input", CellChangeTimes->{{3.567863535157673*^9, 3.5678635412104836`*^9}, { 3.5678638182825704`*^9, 3.567863827283786*^9}, {3.5679503910983553`*^9, 3.5679504266352177`*^9}, {3.5679504653700857`*^9, 3.5679505048069553`*^9}, 3.567950534915008*^9, {3.567951107623214*^9, 3.567951136046464*^9}, 3.567951302545556*^9, {3.5679562986474605`*^9, 3.567956305355472*^9}, { 3.5679563590975666`*^9, 3.567956370688387*^9}, {3.567956414930065*^9, 3.567956430467692*^9}, {3.567956484740187*^9, 3.567956500667815*^9}, { 3.5679565456270943`*^9, 3.5679565868267665`*^9}, {3.5679569267045636`*^9, 3.5679569448941956`*^9}, {3.567956976562251*^9, 3.567957000711094*^9}, { 3.5679570348595533`*^9, 3.5679570632672033`*^9}, {3.5679573263928657`*^9, 3.5679573286548696`*^9}, {3.5679573611029263`*^9, 3.5679573637393312`*^9}, {3.5679592820903006`*^9, 3.567959317127962*^9}, { 3.567959397655304*^9, 3.5679594004945087`*^9}, {3.5679594704762316`*^9, 3.5679594724574347`*^9}, {3.567959655898157*^9, 3.567959673073787*^9}, 3.5681143121223865`*^9, 3.568121866388855*^9, 3.568220668221574*^9, { 3.568220718968463*^9, 3.568220723742071*^9}, {3.568220862051914*^9, 3.5682208641111183`*^9}, {3.568220906761593*^9, 3.5682209083527956`*^9}, { 3.5682209451844606`*^9, 3.5682209651680956`*^9}, {3.568221147782016*^9, 3.5682211695908546`*^9}, {3.568221237279373*^9, 3.568221253612602*^9}, { 3.568221305420293*^9, 3.568221306247094*^9}, {3.5682215161142635`*^9, 3.568221546206716*^9}, 3.56822158247678*^9, {3.568277819185131*^9, 3.5682778284359474`*^9}, 3.56882183684053*^9, {3.5688219650415554`*^9, 3.568821965915157*^9}, {3.5688769979329815`*^9, 3.5688771619984694`*^9}, { 3.568877204212144*^9, 3.5688772091729527`*^9}, {3.568877282493081*^9, 3.5688772843338842`*^9}, {3.568877374112042*^9, 3.568877378074449*^9}, { 3.56887744125456*^9, 3.5688774664954042`*^9}, {3.56887758366721*^9, 3.568877604867647*^9}, {3.568877667220957*^9, 3.5688776710429635`*^9}, { 3.5688778111156096`*^9, 3.56887782262843*^9}, {3.569341165522358*^9, 3.569341165522358*^9}, 3.5693418217375107`*^9, {3.5693429625675144`*^9, 3.5693429673099227`*^9}, {3.569390288837522*^9, 3.5693903143123665`*^9}, { 3.569390381798085*^9, 3.5693904158685455`*^9}, {3.5693905284539433`*^9, 3.569390564349606*^9}, {3.569390610868888*^9, 3.569390611056088*^9}, { 3.569390743671921*^9, 3.569390761487152*^9}, {3.569390843761697*^9, 3.569390861608128*^9}, {3.5693909829451413`*^9, 3.5693909887171516`*^9}, 3.5703416480920715`*^9, {3.5703416810237293`*^9, 3.5703416997437625`*^9}, 3.570341888192094*^9, {3.5705964879252462`*^9, 3.570596509843285*^9}, { 3.5705965495921545`*^9, 3.5705966388087115`*^9}, 3.570968886604662*^9, { 3.5709689930904493`*^9, 3.5709689944320517`*^9}, {3.5709690501397495`*^9, 3.570969050904151*^9}, {3.5709692134876366`*^9, 3.5709692140804377`*^9}, { 3.5709722325921392`*^9, 3.5709722334033403`*^9}, {3.5709723694355793`*^9, 3.570972545481889*^9}, {3.570972790558319*^9, 3.5709728063299465`*^9}, { 3.570972844066413*^9, 3.570972866764453*^9}, {3.5709729633598228`*^9, 3.57097298434186*^9}, {3.5709731454589424`*^9, 3.5709731466289444`*^9}, 3.570973453029083*^9, {3.5709736099653587`*^9, 3.570973638404208*^9}, { 3.571113899355363*^9, 3.571113958604267*^9}, 3.57111399989754*^9, { 3.5711140388820086`*^9, 3.571114044841219*^9}, {3.571115985874628*^9, 3.5711159997742524`*^9}}], Cell[BoxData[ TagBox[ RowBox[{"(", "\[NoBreak]", GridBox[{ {"1", "2", "3", "4", "5", "6", "7", "8", "9", "10", "11", "12", "13", "14", "15", "16", "17", "18", "19", "20", "21", "22", "23", "24", "25", "26", "27", "28", "29", "30", "31", "32", "33", "34", "35", "36", "37", "38", "39", "40", "41", "42", "43", "44", "45", "46", "47", "48", "49", "50", "51"}, {"0.`", "2.891300913601803`", "0", "2.8365357849535755`", "0", "0", "2.8912788211686498`", "2.8914960515480357`", "0", "0", "0", "0", "0", "0", "0", "0", "0", "0", "0", "0", "0", "0", "0", "0", "0", "0", "0", "0", "0", "0", "0", "0", "0", "0", "0", "0", "0", "0", "0", "0", "0", "0", "0", "0", "0", "0", "0", "0", "0", "0", "0"}, {"2.891300913601803`", "0.`", "2.8977447296151486`", "0", "0", "0", "0", "0", "0", "0", "0", "0", "0", "0", "0", "0", "0", "0", "0", "0", "0", "2.0600933686504748`", "2.059776938118349`", "0", "0", "0", "0", "0", "0", "0", "0", "0", "0", "0", "0", "0", "0", "0", "0", "0", "0", "0", "0", "0", "0", "0", "0", "0", "0", "0", "0"}, {"0", "2.8977447296151486`", "0.`", "0", "2.8944306444976293`", "0", "0", "0", "0", "0", "0", "0", "0", "0", "0", "0", "0", "0", "0", "0", "0", "0", "0", "2.0598730589675256`", "2.0596780533600914`", "0", "0", "0", "0", "0", "0", "0", "0", "0", "0", "0", "0", "0", "0", "0", "0", "0", "0", "0", "0", "0", "0", "0", "0", "0", "0"}, {"2.8365357849535755`", "0", "0", "0.`", "0", "2.496903311178327`", "0", "0", "2.7620366698777885`", "0", "0", "0", "0", "0", "0", "0", "0", "0", "0", "0", "0", "0", "0", "0", "0", "0", "0", "0", "0", "0", "0", "0", "0", "0", "0", "0", "0", "0", "0", "0", "0", "0", "0", "0", "0", "0", "0", "0", "0", "0", "0"}, {"0", "0", "2.8944306444976293`", "0", "0.`", "2.836484030211052`", "0", "0", "0", "0", "0", "0", "0", "0", "0", "0", "0", "0", "0", "0", "0", "0", "0", "0", "0", "2.059687129769231`", "2.059914598740929`", "0", "0", "0", "0", "0", "0", "0", "0", "0", "0", "0", "0", "0", "0", "0", "0", "0", "0", "0", "0", "0", "0", "0", "0"}, {"0", "0", "0", "2.496903311178327`", "2.836484030211052`", "0.`", "0", "0", "0", "2.8477357732306996`", "0", "0", "0", "0", "0", "0", "0", "0", "0", "0", "0", "0", "0", "0", "0", "0", "0", "0", "0", "0", "0", "0", "0", "0", "0", "0", "0", "0", "0", "0", "0", "0", "0", "0", "0", "0", "0", "0", "0", "0", "0"}, {"2.8912788211686498`", "0", "0", "0", "0", "0", "0.`", "0", "0", "0", "0", "0", "0", "0", "0", "0", "0", "0", "0", "0", "0", "0", "0", "0", "0", "0", "0", "2.059831756042301`", "2.059545647756167`", "2.0597130332048446`", "0", "0", "0", "0", "0", "0", "0", "0", "0", "0", "0", "0", "0", "0", "0", "0", "0", "0", "0", "0", "0"}, {"2.8914960515480357`", "0", "0", "0", "0", "0", "0", "0.`", "0", "0", "0", "0", "0", "0", "0", "0", "0", "0", "0", "0", "0", "0", "0", "0", "0", "0", "0", "0", "0", "0", "2.059890354920097`", "2.059839640489124`", "2.0597521462040214`", "0", "0", "0", "0", "0", "0", "0", "0", "0", "0", "0", "0", "0", "0", "0", "0", "0", "0"}, {"0", "0", "0", "2.7620366698777885`", "0", "0", "0", "0", "0.`", "0", "2.563079476006322`", "0", "0", "0", "0", "0", "0", "0", "0", "0", "0", "0", "0", "0", "0", "0", "0", "0", "0", "0", "0", "0", "0", "2.0410885328938795`", "0", "0", "0", "0", "0", "0", "0", "0", "0", "0", "0", "0", "0", "0", "0", "0", "0"}, {"0", "0", "0", "0", "0", "2.8477357732306996`", "0", "0", "0", "0.`", "0", "0", "0", "0", "0", "0", "0", "0", "0", "0", "0", "0", "0", "0", "0", "0", "0", "0", "0", "0", "0", "0", "0", "0", "2.0598872600617417`", "2.0597996583165434`", "2.0597603015255403`", "0", "0", "0", "0", "0", "0", "0", "0", "0", "0", "0", "0", "0", "0"}, {"0", "0", "0", "0", "0", "0", "0", "0", "2.563079476006322`", "0", "0.`", "2.663475350554561`", "0", "0", "0", "0", "0", "0", "0", "0", "0", "0", "0", "0", "0", "0", "0", "0", "0", "0", "0", "0", "0", "0", "0", "0", "0", "2.0408468247238463`", "0", "0", "0", "0", "0", "0", "0", "0", "0", "0", "0", "0", "0"}, {"0", "0", "0", "0", "0", "0", "0", "0", "0", "0", "2.663475350554561`", "0.`", "2.8479864199895313`", "2.569288589590436`", "0", "0", "0", "0", "0", "0", "0", "0", "0", "0", "0", "0", "0", "0", "0", "0", "0", "0", "0", "0", "0", "0", "0", "0", "0", "0", "0", "0", "0", "0", "0", "0", "0", "0", "0", "0", "0"}, {"0", "0", "0", "0", "0", "0", "0", "0", "0", "0", "0", "2.8479864199895313`", "0.`", "0", "0", "0", "0", "0", "0", "0", "0", "0", "0", "0", "0", "0", "0", "0", "0", "0", "0", "0", "0", "0", "0", "0", "0", "0", "2.059702505825897`", "2.0597979822662262`", "2.059767545619187`", "0", "0", "0", "0", "0", "0", "0", "0", "0", "0"}, {"0", "0", "0", "0", "0", "0", "0", "0", "0", "0", "0", "2.569288589590436`", "0", "0.`", "2.6635653925414697`", "0", "0", "0", "0", "0", "0", "0", "0", "0", "0", "0", "0", "0", "0", "0", "0", "0", "0", "0", "0", "0", "0", "0", "0", "0", "0", "2.0409849801037785`", "0", "0", "0", "0", "0", "0", "0", "0", "0"}, {"0", "0", "0", "0", "0", "0", "0", "0", "0", "0", "0", "0", "0", "2.6635653925414697`", "0.`", "2.563021237668669`", "0", "0", "0", "0", "0", "0", "0", "0", "0", "0", "0", "0", "0", "0", "0", "0", "0", "0", "0", "0", "0", "0", "0", "0", "0", "0", "2.0407337494382185`", "0", "0", "0", "0", "0", "0", "0", "0"}, {"0", "0", "0", "0", "0", "0", "0", "0", "0", "0", "0", "0", "0", "0", "2.563021237668669`", "0.`", "2.7620710231833114`", "0", "0", "0", "0", "0", "0", "0", "0", "0", "0", "0", "0", "0", "0", "0", "0", "0", "0", "0", "0", "0", "0", "0", "0", "0", "0", "2.041034289865974`", "0", "0", "0", "0", "0", "0", "0"}, {"0", "0", "0", "0", "0", "0", "0", "0", "0", "0", "0", "0", "0", "0", "0", "2.7620710231833114`", "0.`", "2.8477001262494284`", "2.5234179395658387`", "0", "0", "0", "0", "0", "0", "0", "0", "0", "0", "0", "0", "0", "0", "0", "0", "0", "0", "0", "0", "0", "0", "0", "0", "0", "0", "0", "0", "0", "0", "0", "0"}, {"0", "0", "0", "0", "0", "0", "0", "0", "0", "0", "0", "0", "0", "0", "0", "0", "2.8477001262494284`", "0.`", "0", "0", "0", "0", "0", "0", "0", "0", "0", "0", "0", "0", "0", "0", "0", "0", "0", "0", "0", "0", "0", "0", "0", "0", "0", "0", "2.059827769989031`", "2.059624762761967`", "2.0599745373753002`", "0", "0", "0", "0"}, {"0", "0", "0", "0", "0", "0", "0", "0", "0", "0", "0", "0", "0", "0", "0", "0", "2.5234179395658387`", "0", "0.`", "2.8479645159754585`", "0", "0", "0", "0", "0", "0", "0", "0", "0", "0", "0", "0", "0", "0", "0", "0", "0", "0", "0", "0", "0", "0", "0", "0", "0", "0", "0", "2.040917857231867`", "0", "0", "0"}, {"0", "0", "0", "0", "0", "0", "0", "0", "0", "0", "0", "0", "0", "0", "0", "0", "0", "0", "2.8479645159754585`", "0.`", "2.700437574415365`", "0", "0", "0", "0", "0", "0", "0", "0", "0", "0", "0", "0", "0", "0", "0", "0", "0", "0", "0", "0", "0", "0", "0", "0", "0", "0", "0", "2.059779740145197`", "2.0598124012820667`", "0"}, {"0", "0", "0", "0", "0", "0", "0", "0", "0", "0", "0", "0", "0", "0", "0", "0", "0", "0", "0", "2.700437574415365`", "0.`", "0", "0", "0", "0", "0", "0", "0", "0", "0", "0", "0", "0", "0", "0", "0", "0", "0", "0", "0", "0", "0", "0", "0", "0", "0", "0", "0", "0", "0", "1.8273864433636153`"}, {"0", "2.0600933686504748`", "0", "0", "0", "0", "0", "0", "0", "0", "0", "0", "0", "0", "0", "0", "0", "0", "0", "0", "0", "0.`", "0", "0", "0", "0", "0", "0", "0", "0", "0", "0", "0", "0", "0", "0", "0", "0", "0", "0", "0", "0", "0", "0", "0", "0", "0", "0", "0", "0", "0"}, {"0", "2.059776938118349`", "0", "0", "0", "0", "0", "0", "0", "0", "0", "0", "0", "0", "0", "0", "0", "0", "0", "0", "0", "0", "0.`", "0", "0", "0", "0", "0", "0", "0", "0", "0", "0", "0", "0", "0", "0", "0", "0", "0", "0", "0", "0", "0", "0", "0", "0", "0", "0", "0", "0"}, {"0", "0", "2.0598730589675256`", "0", "0", "0", "0", "0", "0", "0", "0", "0", "0", "0", "0", "0", "0", "0", "0", "0", "0", "0", "0", "0.`", "0", "0", "0", "0", "0", "0", "0", "0", "0", "0", "0", "0", "0", "0", "0", "0", "0", "0", "0", "0", "0", "0", "0", "0", "0", "0", "0"}, {"0", "0", "2.0596780533600914`", "0", "0", "0", "0", "0", "0", "0", "0", "0", "0", "0", "0", "0", "0", "0", "0", "0", "0", "0", "0", "0", "0.`", "0", "0", "0", "0", "0", "0", "0", "0", "0", "0", "0", "0", "0", "0", "0", "0", "0", "0", "0", "0", "0", "0", "0", "0", "0", "0"}, {"0", "0", "0", "0", "2.059687129769231`", "0", "0", "0", "0", "0", "0", "0", "0", "0", "0", "0", "0", "0", "0", "0", "0", "0", "0", "0", "0", "0.`", "0", "0", "0", "0", "0", "0", "0", "0", "0", "0", "0", "0", "0", "0", "0", "0", "0", "0", "0", "0", "0", "0", "0", "0", "0"}, {"0", "0", "0", "0", "2.059914598740929`", "0", "0", "0", "0", "0", "0", "0", "0", "0", "0", "0", "0", "0", "0", "0", "0", "0", "0", "0", "0", "0", "0.`", "0", "0", "0", "0", "0", "0", "0", "0", "0", "0", "0", "0", "0", "0", "0", "0", "0", "0", "0", "0", "0", "0", "0", "0"}, {"0", "0", "0", "0", "0", "0", "2.059831756042301`", "0", "0", "0", "0", "0", "0", "0", "0", "0", "0", "0", "0", "0", "0", "0", "0", "0", "0", "0", "0", "0.`", "0", "0", "0", "0", "0", "0", "0", "0", "0", "0", "0", "0", "0", "0", "0", "0", "0", "0", "0", "0", "0", "0", "0"}, {"0", "0", "0", "0", "0", "0", "2.059545647756167`", "0", "0", "0", "0", "0", "0", "0", "0", "0", "0", "0", "0", "0", "0", "0", "0", "0", "0", "0", "0", "0", "0.`", "0", "0", "0", "0", "0", "0", "0", "0", "0", "0", "0", "0", "0", "0", "0", "0", "0", "0", "0", "0", "0", "0"}, {"0", "0", "0", "0", "0", "0", "2.0597130332048446`", "0", "0", "0", "0", "0", "0", "0", "0", "0", "0", "0", "0", "0", "0", "0", "0", "0", "0", "0", "0", "0", "0", "0.`", "0", "0", "0", "0", "0", "0", "0", "0", "0", "0", "0", "0", "0", "0", "0", "0", "0", "0", "0", "0", "0"}, {"0", "0", "0", "0", "0", "0", "0", "2.059890354920097`", "0", "0", "0", "0", "0", "0", "0", "0", "0", "0", "0", "0", "0", "0", "0", "0", "0", "0", "0", "0", "0", "0", "0.`", "0", "0", "0", "0", "0", "0", "0", "0", "0", "0", "0", "0", "0", "0", "0", "0", "0", "0", "0", "0"}, {"0", "0", "0", "0", "0", "0", "0", "2.059839640489124`", "0", "0", "0", "0", "0", "0", "0", "0", "0", "0", "0", "0", "0", "0", "0", "0", "0", "0", "0", "0", "0", "0", "0", "0.`", "0", "0", "0", "0", "0", "0", "0", "0", "0", "0", "0", "0", "0", "0", "0", "0", "0", "0", "0"}, {"0", "0", "0", "0", "0", "0", "0", "2.0597521462040214`", "0", "0", "0", "0", "0", "0", "0", "0", "0", "0", "0", "0", "0", "0", "0", "0", "0", "0", "0", "0", "0", "0", "0", "0", "0.`", "0", "0", "0", "0", "0", "0", "0", "0", "0", "0", "0", "0", "0", "0", "0", "0", "0", "0"}, {"0", "0", "0", "0", "0", "0", "0", "0", "2.0410885328938795`", "0", "0", "0", "0", "0", "0", "0", "0", "0", "0", "0", "0", "0", "0", "0", "0", "0", "0", "0", "0", "0", "0", "0", "0", "0.`", "0", "0", "0", "0", "0", "0", "0", "0", "0", "0", "0", "0", "0", "0", "0", "0", "0"}, {"0", "0", "0", "0", "0", "0", "0", "0", "0", "2.0598872600617417`", "0", "0", "0", "0", "0", "0", "0", "0", "0", "0", "0", "0", "0", "0", "0", "0", "0", "0", "0", "0", "0", "0", "0", "0", "0.`", "0", "0", "0", "0", "0", "0", "0", "0", "0", "0", "0", "0", "0", "0", "0", "0"}, {"0", "0", "0", "0", "0", "0", "0", "0", "0", "2.0597996583165434`", "0", "0", "0", "0", "0", "0", "0", "0", "0", "0", "0", "0", "0", "0", "0", "0", "0", "0", "0", "0", "0", "0", "0", "0", "0", "0.`", "0", "0", "0", "0", "0", "0", "0", "0", "0", "0", "0", "0", "0", "0", "0"}, {"0", "0", "0", "0", "0", "0", "0", "0", "0", "2.0597603015255403`", "0", "0", "0", "0", "0", "0", "0", "0", "0", "0", "0", "0", "0", "0", "0", "0", "0", "0", "0", "0", "0", "0", "0", "0", "0", "0", "0.`", "0", "0", "0", "0", "0", "0", "0", "0", "0", "0", "0", "0", "0", "0"}, {"0", "0", "0", "0", "0", "0", "0", "0", "0", "0", "2.0408468247238463`", "0", "0", "0", "0", "0", "0", "0", "0", "0", "0", "0", "0", "0", "0", "0", "0", "0", "0", "0", "0", "0", "0", "0", "0", "0", "0", "0.`", "0", "0", "0", "0", "0", "0", "0", "0", "0", "0", "0", "0", "0"}, {"0", "0", "0", "0", "0", "0", "0", "0", "0", "0", "0", "0", "2.059702505825897`", "0", "0", "0", "0", "0", "0", "0", "0", "0", "0", "0", "0", "0", "0", "0", "0", "0", "0", "0", "0", "0", "0", "0", "0", "0", "0.`", "0", "0", "0", "0", "0", "0", "0", "0", "0", "0", "0", "0"}, {"0", "0", "0", "0", "0", "0", "0", "0", "0", "0", "0", "0", "2.0597979822662262`", "0", "0", "0", "0", "0", "0", "0", "0", "0", "0", "0", "0", "0", "0", "0", "0", "0", "0", "0", "0", "0", "0", "0", "0", "0", "0", "0.`", "0", "0", "0", "0", "0", "0", "0", "0", "0", "0", "0"}, {"0", "0", "0", "0", "0", "0", "0", "0", "0", "0", "0", "0", "2.059767545619187`", "0", "0", "0", "0", "0", "0", "0", "0", "0", "0", "0", "0", "0", "0", "0", "0", "0", "0", "0", "0", "0", "0", "0", "0", "0", "0", "0", "0.`", "0", "0", "0", "0", "0", "0", "0", "0", "0", "0"}, {"0", "0", "0", "0", "0", "0", "0", "0", "0", "0", "0", "0", "0", "2.0409849801037785`", "0", "0", "0", "0", "0", "0", "0", "0", "0", "0", "0", "0", "0", "0", "0", "0", "0", "0", "0", "0", "0", "0", "0", "0", "0", "0", "0", "0.`", "0", "0", "0", "0", "0", "0", "0", "0", "0"}, {"0", "0", "0", "0", "0", "0", "0", "0", "0", "0", "0", "0", "0", "0", "2.0407337494382185`", "0", "0", "0", "0", "0", "0", "0", "0", "0", "0", "0", "0", "0", "0", "0", "0", "0", "0", "0", "0", "0", "0", "0", "0", "0", "0", "0", "0.`", "0", "0", "0", "0", "0", "0", "0", "0"}, {"0", "0", "0", "0", "0", "0", "0", "0", "0", "0", "0", "0", "0", "0", "0", "2.041034289865974`", "0", "0", "0", "0", "0", "0", "0", "0", "0", "0", "0", "0", "0", "0", "0", "0", "0", "0", "0", "0", "0", "0", "0", "0", "0", "0", "0", "0.`", "0", "0", "0", "0", "0", "0", "0"}, {"0", "0", "0", "0", "0", "0", "0", "0", "0", "0", "0", "0", "0", "0", "0", "0", "0", "2.059827769989031`", "0", "0", "0", "0", "0", "0", "0", "0", "0", "0", "0", "0", "0", "0", "0", "0", "0", "0", "0", "0", "0", "0", "0", "0", "0", "0", "0.`", "0", "0", "0", "0", "0", "0"}, {"0", "0", "0", "0", "0", "0", "0", "0", "0", "0", "0", "0", "0", "0", "0", "0", "0", "2.059624762761967`", "0", "0", "0", "0", "0", "0", "0", "0", "0", "0", "0", "0", "0", "0", "0", "0", "0", "0", "0", "0", "0", "0", "0", "0", "0", "0", "0", "0.`", "0", "0", "0", "0", "0"}, {"0", "0", "0", "0", "0", "0", "0", "0", "0", "0", "0", "0", "0", "0", "0", "0", "0", "2.0599745373753002`", "0", "0", "0", "0", "0", "0", "0", "0", "0", "0", "0", "0", "0", "0", "0", "0", "0", "0", "0", "0", "0", "0", "0", "0", "0", "0", "0", "0", "0.`", "0", "0", "0", "0"}, {"0", "0", "0", "0", "0", "0", "0", "0", "0", "0", "0", "0", "0", "0", "0", "0", "0", "0", "2.040917857231867`", "0", "0", "0", "0", "0", "0", "0", "0", "0", "0", "0", "0", "0", "0", "0", "0", "0", "0", "0", "0", "0", "0", "0", "0", "0", "0", "0", "0", "0.`", "0", "0", "0"}, {"0", "0", "0", "0", "0", "0", "0", "0", "0", "0", "0", "0", "0", "0", "0", "0", "0", "0", "0", "2.059779740145197`", "0", "0", "0", "0", "0", "0", "0", "0", "0", "0", "0", "0", "0", "0", "0", "0", "0", "0", "0", "0", "0", "0", "0", "0", "0", "0", "0", "0", "0.`", "0", "0"}, {"0", "0", "0", "0", "0", "0", "0", "0", "0", "0", "0", "0", "0", "0", "0", "0", "0", "0", "0", "2.0598124012820667`", "0", "0", "0", "0", "0", "0", "0", "0", "0", "0", "0", "0", "0", "0", "0", "0", "0", "0", "0", "0", "0", "0", "0", "0", "0", "0", "0", "0", "0", "0.`", "0"}, {"0", "0", "0", "0", "0", "0", "0", "0", "0", "0", "0", "0", "0", "0", "0", "0", "0", "0", "0", "0", "1.8273864433636153`", "0", "0", "0", "0", "0", "0", "0", "0", "0", "0", "0", "0", "0", "0", "0", "0", "0", "0", "0", "0", "0", "0", "0", "0", "0", "0", "0", "0", "0", "0.`"} }, GridBoxAlignment->{ "Columns" -> {{Center}}, "ColumnsIndexed" -> {}, "Rows" -> {{Baseline}}, "RowsIndexed" -> {}}, GridBoxSpacings->{"Columns" -> { Offset[0.27999999999999997`], { Offset[0.7]}, Offset[0.27999999999999997`]}, "ColumnsIndexed" -> {}, "Rows" -> { Offset[0.2], { Offset[0.4]}, Offset[0.2]}, "RowsIndexed" -> {}}], "\[NoBreak]", ")"}], Function[BoxForm`e$, MatrixForm[BoxForm`e$]]]], "Output", CellChangeTimes->{3.57277738455962*^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.57277738457522*^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.57277738457522*^9}] }, Open ]], Cell[BoxData[ RowBox[{ RowBox[{"(*", " ", RowBox[{ RowBox[{"parse", " ", "into", " ", "prim"}], ",", " ", "sec", ",", " ", "tert", ",", " ", RowBox[{ "and", " ", "quart", " ", "C", " ", "cores", " ", "with", " ", "different", " ", "radii"}]}], " ", "*)"}], "\[IndentingNewLine]", RowBox[{ RowBox[{ RowBox[{"n1", "=", "0"}], ";", " ", RowBox[{"n2", "=", "0"}], ";", " ", RowBox[{"n3", "=", "0"}], ";", " ", RowBox[{"n4", "=", "0"}], ";"}], "\n", RowBox[{ RowBox[{"For", "[", RowBox[{ RowBox[{"i", "=", "1"}], ",", RowBox[{"i", "\[LessEqual]", "nc"}], ",", RowBox[{"i", "++"}], ",", "\[IndentingNewLine]", RowBox[{"If", "[", RowBox[{ RowBox[{ RowBox[{"cnt", "[", RowBox[{"[", "i", "]"}], "]"}], "\[Equal]", "3"}], ",", RowBox[{ RowBox[{"n1", "=", RowBox[{"n1", "+", "1"}]}], ";", RowBox[{ RowBox[{"pri", "[", RowBox[{"[", "n1", "]"}], "]"}], "=", "i"}]}], ",", "\[IndentingNewLine]", RowBox[{"If", "[", RowBox[{ RowBox[{ RowBox[{"cnt", "[", RowBox[{"[", "i", "]"}], "]"}], "\[Equal]", "2"}], ",", RowBox[{ RowBox[{"n2", "=", RowBox[{"n2", "+", "1"}]}], ";", RowBox[{ RowBox[{"sec", "[", RowBox[{"[", "n2", "]"}], "]"}], "=", "i"}]}], ",", "\[IndentingNewLine]", RowBox[{"If", "[", RowBox[{ RowBox[{ RowBox[{"cnt", "[", RowBox[{"[", "i", "]"}], "]"}], "\[Equal]", "1"}], ",", RowBox[{ RowBox[{"n3", "=", RowBox[{"n3", "+", "1"}]}], ";", RowBox[{ RowBox[{"ter", "[", RowBox[{"[", "n3", "]"}], "]"}], "=", "i"}]}], ",", "\[IndentingNewLine]", RowBox[{"If", "[", RowBox[{ RowBox[{ RowBox[{"cnt", "[", RowBox[{"[", "i", "]"}], "]"}], "=", "0"}], ",", RowBox[{ RowBox[{"n4", "=", RowBox[{"n4", "+", "1"}]}], ";", RowBox[{ RowBox[{"qua", "[", RowBox[{"[", "n4", "]"}], "]"}], "=", "i"}]}]}], "]"}]}], "]"}]}], "]"}]}], "]"}]}], "]"}], ";"}], "\[IndentingNewLine]", RowBox[{"For", " ", "[", RowBox[{ RowBox[{"i", "=", "1"}], ",", " ", RowBox[{"i", "\[LessEqual]", "nc"}], ",", RowBox[{"i", "++"}], ",", RowBox[{"If", "[", RowBox[{ RowBox[{ RowBox[{"pri", "[", RowBox[{"[", "i", "]"}], "]"}], "\[NotEqual]", "0"}], ",", RowBox[{ RowBox[{"u2", "[", RowBox[{"[", RowBox[{"pri", "[", RowBox[{"[", "i", "]"}], "]"}], "]"}], "]"}], "=", "0.2547"}]}], "]"}]}], "]"}], "\[IndentingNewLine]", RowBox[{"For", " ", "[", RowBox[{ RowBox[{"i", "=", "1"}], ",", " ", RowBox[{"i", "\[LessEqual]", "nc"}], ",", RowBox[{"i", "++"}], ",", RowBox[{"If", "[", RowBox[{ RowBox[{ RowBox[{"sec", "[", RowBox[{"[", "i", "]"}], "]"}], "\[NotEqual]", "0"}], ",", RowBox[{ RowBox[{"u2", "[", RowBox[{"[", RowBox[{"sec", "[", RowBox[{"[", "i", "]"}], "]"}], "]"}], "]"}], "=", "0.255"}]}], "]"}]}], "]"}], "\[IndentingNewLine]", RowBox[{"For", " ", "[", RowBox[{ RowBox[{"i", "=", "1"}], ",", " ", RowBox[{"i", "\[LessEqual]", "nc"}], ",", RowBox[{"i", "++"}], ",", RowBox[{"If", "[", RowBox[{ RowBox[{ RowBox[{"ter", "[", RowBox[{"[", "i", "]"}], "]"}], "\[NotEqual]", "0"}], ",", RowBox[{ RowBox[{"u2", "[", RowBox[{"[", RowBox[{"ter", "[", RowBox[{"[", "i", "]"}], "]"}], "]"}], "]"}], "=", "0.2557"}]}], "]"}]}], "]"}], "\[IndentingNewLine]", RowBox[{"For", " ", "[", RowBox[{ RowBox[{"i", "=", "1"}], ",", " ", RowBox[{"i", "\[LessEqual]", "nc"}], ",", RowBox[{"i", "++"}], ",", RowBox[{"If", "[", RowBox[{ RowBox[{ RowBox[{"qua", "[", RowBox[{"[", "i", "]"}], "]"}], "\[NotEqual]", "0"}], ",", RowBox[{ RowBox[{"u2", "[", RowBox[{"[", RowBox[{"qua", "[", RowBox[{"[", "i", "]"}], "]"}], "]"}], "]"}], "=", "0.2577"}]}], "]"}]}], "]"}]}]}]], "Input", CellChangeTimes->{{3.5688800293771057`*^9, 3.5688801774057655`*^9}, { 3.5688802290574565`*^9, 3.568880330208034*^9}, {3.5688803807053227`*^9, 3.5688804136525807`*^9}, 3.568880491434317*^9, 3.5688805648948464`*^9, { 3.5688806280437574`*^9, 3.568880655234605*^9}, {3.568880712424306*^9, 3.568880716324312*^9}, {3.5688808087544746`*^9, 3.568880827786508*^9}, 3.5688808733385878`*^9, {3.568881358936241*^9, 3.5688813959239063`*^9}, { 3.568881446561595*^9, 3.5688815849182377`*^9}, {3.5688816223739033`*^9, 3.568881642607139*^9}, 3.568881728953291*^9, {3.568881797624612*^9, 3.568881809870633*^9}, 3.568881863612727*^9, {3.568883098916497*^9, 3.5688831014749017`*^9}, {3.56888372124679*^9, 3.568883843239004*^9}, 3.568888211750622*^9, {3.5688882521546926`*^9, 3.5688885232519693`*^9}, { 3.5688885890840845`*^9, 3.5688885895052853`*^9}, {3.568888675773437*^9, 3.5688886914514647`*^9}, {3.568888736285943*^9, 3.5688887717760057`*^9}, { 3.5688888256429005`*^9, 3.5688888541441507`*^9}, {3.568892442649892*^9, 3.5688924499507046`*^9}, {3.568892758441247*^9, 3.5688927597360487`*^9}, { 3.5688928234309607`*^9, 3.5688928379389863`*^9}, {3.5708938149488974`*^9, 3.5708938463361526`*^9}, {3.570893920483083*^9, 3.5708939282050962`*^9}, { 3.570894700000852*^9, 3.5708948169698577`*^9}, {3.570894956839703*^9, 3.5708949736409326`*^9}, {3.5708961320833673`*^9, 3.570896139696181*^9}, 3.570896314088887*^9, {3.5708963602181683`*^9, 3.5708963666609793`*^9}, { 3.570896482038782*^9, 3.570896483645585*^9}, {3.5708965159376416`*^9, 3.570896521194851*^9}, {3.5709435995777535`*^9, 3.5709436285158043`*^9}, { 3.5709436695594764`*^9, 3.5709437026783347`*^9}, {3.57094471360691*^9, 3.5709447144805117`*^9}, {3.571117678992402*^9, 3.571117755775737*^9}, { 3.571117807801828*^9, 3.5711178311706696`*^9}, {3.5711179386236577`*^9, 3.5711179514468803`*^9}, {3.5711180538922606`*^9, 3.5711181329531994`*^9}, {3.571118284803866*^9, 3.5711183600895977`*^9}, 3.571118418542901*^9, {3.5711187358786583`*^9, 3.571118760152301*^9}, { 3.5711189251069903`*^9, 3.571118931175401*^9}, {3.571119065756838*^9, 3.571119069968845*^9}, {3.5711191828038435`*^9, 3.5711191858302484`*^9}, { 3.571119378740187*^9, 3.571119441873498*^9}, {3.571119489453582*^9, 3.5711194938839893`*^9}, {3.571119574255331*^9, 3.571119584660549*^9}, { 3.5711196943599415`*^9, 3.5711197163091803`*^9}, {3.5711198294561787`*^9, 3.5711198460078077`*^9}, {3.5711199544435987`*^9, 3.571119960418409*^9}, { 3.57112005791858*^9, 3.5711200601337843`*^9}, {3.571122132488224*^9, 3.5711221772447023`*^9}, {3.5711222335764017`*^9, 3.571122265696858*^9}, { 3.5711223339157777`*^9, 3.5711223418093915`*^9}, {3.5711223939602833`*^9, 3.5711223957542863`*^9}, {3.571122528292119*^9, 3.571122529087721*^9}, { 3.5711226076026583`*^9, 3.5711226245598884`*^9}, 3.5711226547927413`*^9, { 3.571122698566418*^9, 3.571122702404025*^9}, {3.5711227857393713`*^9, 3.5711228031646023`*^9}, {3.571122843085072*^9, 3.5711228432878723`*^9}, { 3.5711232359405622`*^9, 3.571123255206596*^9}, 3.571123320991912*^9, { 3.5711233774484105`*^9, 3.5711234457765303`*^9}, {3.571123624911645*^9, 3.571123633975261*^9}, {3.571123734751438*^9, 3.5711237424110518`*^9}, { 3.5711242010206575`*^9, 3.5711242671491733`*^9}, {3.5711245724573097`*^9, 3.5711245843601303`*^9}, {3.571124620583394*^9, 3.5711246628750687`*^9}, { 3.571124751951225*^9, 3.5711247552428303`*^9}, {3.5711248069569216`*^9, 3.5711248951750765`*^9}, {3.5711250701761837`*^9, 3.5711251099562535`*^9}, 3.571125196598806*^9, 3.571135972980551*^9, {3.5711360048826065`*^9, 3.571136013634222*^9}, {3.571760985057314*^9, 3.5717610088005557`*^9}, { 3.5717610576442413`*^9, 3.571761063431852*^9}, {3.5725287590472064`*^9, 3.5725287902628613`*^9}, {3.572529030674884*^9, 3.572529042343704*^9}, { 3.572529556645407*^9, 3.5725296188271165`*^9}, {3.572529678793622*^9, 3.5725297125832815`*^9}, 3.572529766184975*^9, 3.5725298594731393`*^9, { 3.572529901374813*^9, 3.5725299376604767`*^9}, {3.572531381084212*^9, 3.5725313843134174`*^9}, {3.572537228892798*^9, 3.572537235429209*^9}, { 3.572537287814101*^9, 3.5725373101221404`*^9}, {3.5725380504682407`*^9, 3.5725382242837462`*^9}, {3.572538261053011*^9, 3.572538276590638*^9}, { 3.5725383120339003`*^9, 3.5725383418611526`*^9}, {3.5725384271465025`*^9, 3.57253845404095*^9}, {3.572538956424232*^9, 3.5725390373103743`*^9}, { 3.572539306644847*^9, 3.5725394512103014`*^9}, {3.5725395463080683`*^9, 3.572539593981752*^9}, {3.5725398474041967`*^9, 3.5725398481529984`*^9}, { 3.572541676133009*^9, 3.572541712605873*^9}, {3.5725419267942495`*^9, 3.572541927823851*^9}, {3.5725420320164337`*^9, 3.572542068317698*^9}, { 3.572542098675351*^9, 3.5725421006877546`*^9}, {3.572542267561248*^9, 3.5725423059217153`*^9}, {3.5726066153250785`*^9, 3.5726066318455076`*^9}, {3.5726084389526815`*^9, 3.5726084422286873`*^9}, {3.5726211211499004`*^9, 3.5726211269999104`*^9}, 3.572624425506504*^9, 3.5726245538167295`*^9}], Cell[CellGroupData[{ Cell[BoxData[{ RowBox[{ RowBox[{"Eij", "=", RowBox[{"Table", "[", RowBox[{ RowBox[{"If", "[", RowBox[{ RowBox[{"i", "\[GreaterEqual]", "j"}], ",", RowBox[{"Dij", "[", RowBox[{"[", RowBox[{"i", ",", "j"}], "]"}], "]"}], ",", "0"}], "]"}], ",", RowBox[{"{", RowBox[{"i", ",", "1", ",", RowBox[{"bc", "-", "1"}]}], "}"}], ",", RowBox[{"{", RowBox[{"j", ",", "1", ",", RowBox[{"bc", "-", "1"}]}], "}"}]}], "]"}]}], ";"}], "\[IndentingNewLine]", RowBox[{"CD", "=", RowBox[{"Select", "[", RowBox[{ RowBox[{"Flatten", "[", "Eij", "]"}], ",", RowBox[{ RowBox[{"(", RowBox[{ RowBox[{"#", "\[GreaterEqual]", "2.4"}], " ", "&&", RowBox[{"#", "\[LessEqual]", "2.6"}]}], ")"}], " ", "&"}]}], "]"}]}], "\[IndentingNewLine]", RowBox[{ RowBox[{"Mean", "[", "CD", "]"}], " ", "\[PlusMinus]", " ", RowBox[{"StandardDeviation", "[", "CD", "]"}]}]}], "Input", CellChangeTimes->{{3.5711447475554733`*^9, 3.5711448173314643`*^9}, { 3.5711448756027975`*^9, 3.57114492740276*^9}, {3.5711449591545763`*^9, 3.5711450128426466`*^9}, 3.571145059034289*^9, {3.571145091643154*^9, 3.5711451544367456`*^9}, {3.5711457670857873`*^9, 3.571145777413378*^9}, { 3.571145816908637*^9, 3.5711458203728347`*^9}, {3.571145995427848*^9, 3.571146043099574*^9}, {3.571146121580063*^9, 3.571146129714528*^9}, { 3.5711468466695356`*^9, 3.571146852041843*^9}, {3.5711478420384674`*^9, 3.571147850085928*^9}, {3.57114788911016*^9, 3.571147906822173*^9}, 3.571148086181432*^9, {3.571148123252552*^9, 3.5711481317480383`*^9}, { 3.571148234499915*^9, 3.57114834630731*^9}, 3.571151990091008*^9, { 3.5712017864539623`*^9, 3.5712018128960094`*^9}, {3.5712024819499846`*^9, 3.5712024821527843`*^9}, {3.571202538780884*^9, 3.5712025389368844`*^9}, { 3.5712028115629635`*^9, 3.5712028346354036`*^9}}], Cell[BoxData[ RowBox[{"{", RowBox[{ "2.496903311178327`", ",", "2.563079476006322`", ",", "2.569288589590436`", ",", "2.563021237668669`", ",", "2.5234179395658387`"}], "}"}]], "Output", CellChangeTimes->{3.5727773845908203`*^9}], Cell[BoxData[ RowBox[{"2.5431421108019188`", "\[PlusMinus]", "0.03163615846976897`"}]], "Output", CellChangeTimes->{3.5727773845908203`*^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.5727773846064205`*^9}], Cell[BoxData[ RowBox[{"2.825453749813209`", "\[PlusMinus]", "0.07826166491129986`"}]], "Output", CellChangeTimes->{3.5727773846064205`*^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.5727773846220202`*^9}], Cell[BoxData[ RowBox[{"2.055894359505152`", "\[PlusMinus]", "0.007777002172673031`"}]], "Output", CellChangeTimes->{3.5727773846220202`*^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.5727773846376204`*^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.5727773846688204`*^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.5727773846844206`*^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.5727773847000203`*^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.5727773847000203`*^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.5727773847156205`*^9}] }, Open ]], Cell[BoxData[{ RowBox[{ RowBox[{"Mij", "=", RowBox[{"Prepend", "[", RowBox[{"Qij", ",", "u"}], "]"}]}], ";"}], "\[IndentingNewLine]", RowBox[{ RowBox[{"Oij", "=", RowBox[{"Transpose", "[", "Mij", "]"}]}], ";"}], "\[IndentingNewLine]", RowBox[{ RowBox[{"Pij", "=", RowBox[{"Prepend", "[", RowBox[{"Oij", ",", RowBox[{"Prepend", "[", RowBox[{"u", ",", "\"\< \>\""}], "]"}]}], "]"}]}], ";"}]}], "Input", CellChangeTimes->{{3.568045828002715*^9, 3.56804588761042*^9}, 3.5680459828797874`*^9, {3.568046033938677*^9, 3.5680460518787084`*^9}, { 3.568046989190755*^9, 3.5680470284404235`*^9}, {3.568047061028881*^9, 3.568047085567724*^9}, {3.5680471562982483`*^9, 3.568047169199471*^9}, { 3.568047223393966*^9, 3.568047364059413*^9}, {3.568047417286707*^9, 3.5680474225127163`*^9}, {3.5680474583459787`*^9, 3.568047487861231*^9}, { 3.5680475345521126`*^9, 3.5680475468605347`*^9}, {3.5680479168775845`*^9, 3.5680479311516094`*^9}, {3.568048066918648*^9, 3.568048067667449*^9}, { 3.5680483816336*^9, 3.5680483930216208`*^9}, {3.568048424159275*^9, 3.568048450211321*^9}, {3.5680486326224413`*^9, 3.5680486370996494`*^9}, { 3.5680487358166227`*^9, 3.5680487967191296`*^9}, 3.568048834377596*^9, 3.568048984418659*^9, {3.5680490255559316`*^9, 3.5680490790796256`*^9}, { 3.5680491274553103`*^9, 3.5680491280949116`*^9}, {3.5680491782333994`*^9, 3.568049231944294*^9}, {3.568049361533722*^9, 3.5680493691933355`*^9}, { 3.568049422171028*^9, 3.568049427490638*^9}, {3.568049476427923*^9, 3.5680495489368505`*^9}, {3.568049620634577*^9, 3.5680496274361887`*^9}, { 3.5680496655314555`*^9, 3.568049693876705*^9}, 3.568049746573598*^9, { 3.568049846460573*^9, 3.568049932759925*^9}, {3.568050009059659*^9, 3.5680500167348723`*^9}, {3.5680501572755194`*^9, 3.568050179911159*^9}, 3.5681087021497335`*^9, {3.5726244549749556`*^9, 3.5726244687341795`*^9}, 3.572624583643982*^9}], Cell[CellGroupData[{ Cell[BoxData[{ RowBox[{ RowBox[{"con", "=", RowBox[{"Table", "[", RowBox[{ RowBox[{"{", "i", "}"}], ",", RowBox[{"{", RowBox[{"i", ",", "1", ",", "n"}], "}"}]}], "]"}]}], ";", " ", RowBox[{"conj", "=", RowBox[{"Table", "[", RowBox[{"0", ",", RowBox[{"{", "nc", "}"}]}], "]"}]}], ";"}], "\[IndentingNewLine]", RowBox[{ RowBox[{"For", "[", RowBox[{ RowBox[{"i", "=", "1"}], ",", RowBox[{"i", "\[LessEqual]", "n"}], ",", RowBox[{"i", "++"}], ",", "\[IndentingNewLine]", RowBox[{"For", "[", RowBox[{ RowBox[{"j", "=", "1"}], ",", RowBox[{"j", "\[LessEqual]", "n"}], ",", RowBox[{"j", "++"}], ",", RowBox[{"If", "[", " ", RowBox[{ RowBox[{ RowBox[{"Dij", "[", RowBox[{"[", RowBox[{"i", ",", "j"}], "]"}], "]"}], "\[NotEqual]", "0"}], " ", ",", RowBox[{ RowBox[{"con", "[", RowBox[{"[", "i", "]"}], "]"}], "=", RowBox[{"{", RowBox[{ RowBox[{"con", "[", RowBox[{"[", "i", "]"}], "]"}], ",", "j"}], "}"}]}]}], "]"}]}], "]"}]}], "]"}], ";"}], "\[IndentingNewLine]", RowBox[{ RowBox[{ RowBox[{"conn", "=", RowBox[{"Table", "[", RowBox[{ RowBox[{"Flatten", "[", RowBox[{"con", "[", RowBox[{"[", "i", "]"}], "]"}], "]"}], ",", RowBox[{"{", RowBox[{"i", ",", "1", ",", "n"}], "}"}]}], "]"}]}], ";"}], "\[IndentingNewLine]", RowBox[{"(*", " ", RowBox[{ "identify", " ", "C", " ", "atoms", " ", "at", " ", "double", " ", "bonds"}], " ", "*)"}]}], "\[IndentingNewLine]", RowBox[{ RowBox[{"j", "=", "0"}], ";"}], "\[IndentingNewLine]", RowBox[{ RowBox[{"For", "[", RowBox[{ RowBox[{"i", "=", "1"}], ",", RowBox[{"i", "\[LessEqual]", "nc"}], ",", RowBox[{"i", "++"}], ",", RowBox[{"If", "[", RowBox[{ RowBox[{ RowBox[{"Length", "[", RowBox[{"conn", "[", RowBox[{"[", "i", "]"}], "]"}], "]"}], "\[Equal]", "4"}], ",", RowBox[{ RowBox[{"j", "=", RowBox[{"j", "+", "1"}]}], ";", RowBox[{ RowBox[{"conj", "[", RowBox[{"[", "j", "]"}], "]"}], "=", "i"}]}]}], "]"}]}], "]"}], ";"}], "\[IndentingNewLine]", RowBox[{"conj", "=", RowBox[{"Take", "[", RowBox[{"conj", ",", RowBox[{"{", RowBox[{"1", ",", "j"}], "}"}]}], "]"}]}], "\[IndentingNewLine]", RowBox[{ RowBox[{"(*", RowBox[{ RowBox[{"nj", "=", RowBox[{"Length", "[", "conj", "]"}]}], ";"}], "*)"}], " ", RowBox[{ RowBox[{"nj", "=", "4"}], ";"}]}], "\[IndentingNewLine]", RowBox[{"MatrixForm", "[", RowBox[{"conn", ",", " ", RowBox[{"TableAlignments", "\[Rule]", "Left"}]}], "]"}]}], "Input", CellChangeTimes->{{3.568045828002715*^9, 3.56804588761042*^9}, 3.5680459828797874`*^9, {3.568046033938677*^9, 3.5680460518787084`*^9}, { 3.568046989190755*^9, 3.5680470284404235`*^9}, {3.568047061028881*^9, 3.568047085567724*^9}, {3.5680471562982483`*^9, 3.568047169199471*^9}, { 3.568047223393966*^9, 3.568047364059413*^9}, {3.568047417286707*^9, 3.5680474225127163`*^9}, {3.5680474583459787`*^9, 3.568047487861231*^9}, { 3.5680475345521126`*^9, 3.5680475468605347`*^9}, {3.5680479168775845`*^9, 3.5680479311516094`*^9}, {3.568048066918648*^9, 3.568048067667449*^9}, { 3.5680483816336*^9, 3.5680483930216208`*^9}, {3.568048424159275*^9, 3.568048450211321*^9}, {3.5680486326224413`*^9, 3.5680486370996494`*^9}, { 3.5680487358166227`*^9, 3.5680487967191296`*^9}, 3.568048834377596*^9, 3.568048984418659*^9, {3.5680490255559316`*^9, 3.5680490790796256`*^9}, { 3.5680491274553103`*^9, 3.5680491280949116`*^9}, {3.5680491782333994`*^9, 3.568049231944294*^9}, {3.568049361533722*^9, 3.5680493691933355`*^9}, { 3.568049422171028*^9, 3.568049427490638*^9}, {3.568049476427923*^9, 3.5680495489368505`*^9}, {3.568049620634577*^9, 3.5680496274361887`*^9}, { 3.5680496655314555`*^9, 3.568049693876705*^9}, 3.568049746573598*^9, { 3.568049846460573*^9, 3.568049932759925*^9}, {3.568050009059659*^9, 3.5680500167348723`*^9}, {3.5680501572755194`*^9, 3.568050179911159*^9}, 3.5681087021497335`*^9, {3.5726244549749556`*^9, 3.5726244687341795`*^9}, { 3.572624511540655*^9, 3.5726245129758577`*^9}, {3.5726259545431895`*^9, 3.5726259555883913`*^9}, {3.5726268385811424`*^9, 3.5726268436979513`*^9}, {3.5727156260686264`*^9, 3.5727156464110622`*^9}, 3.572767008717453*^9, 3.572767169428935*^9}], Cell[BoxData[ RowBox[{"{", RowBox[{ "4", ",", "6", ",", "9", ",", "11", ",", "12", ",", "14", ",", "15", ",", "16", ",", "17", ",", "19"}], "}"}]], "Output", CellChangeTimes->{3.5727773847312202`*^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.5727773847312202`*^9}] }, Open ]], Cell[BoxData[{ RowBox[{ RowBox[{ RowBox[{"Clear", "[", RowBox[{ "c", ",", "v", ",", "p", ",", "Q", ",", "P", ",", "v1", ",", "v2", ",", "nk", ",", "nl"}], "]"}], ";"}], " ", RowBox[{"(*", RowBox[{ RowBox[{"c1", "=", "20"}], ";", " ", RowBox[{"c2", "=", "21"}], ";", " ", RowBox[{"c3", "=", "51"}], ";"}], "*)"}], " "}], "\[IndentingNewLine]", RowBox[{ RowBox[{"rpo", "=", "1.4"}], ";"}], "\[IndentingNewLine]", RowBox[{ RowBox[{"rpi", "=", "1.4"}], ";"}], "\[IndentingNewLine]", RowBox[{ RowBox[{"tpo", "=", RowBox[{"Table", "[", RowBox[{ RowBox[{"{", RowBox[{"0", ",", "0", ",", "0"}], "}"}], ",", RowBox[{"{", "nj", "}"}]}], "]"}]}], ";"}], "\[IndentingNewLine]", RowBox[{ RowBox[{"tpu", "=", RowBox[{"Table", "[", RowBox[{ RowBox[{"{", RowBox[{"0", ",", "0", ",", "0"}], "}"}], ",", RowBox[{"{", "nj", "}"}]}], "]"}]}], ";"}], "\[IndentingNewLine]", RowBox[{ RowBox[{ RowBox[{"P", "=", "3"}], ";", " ", RowBox[{"c", "=", RowBox[{"{", RowBox[{"0", ",", "0", ",", "0", ",", "0", ",", "0"}], "}"}]}], ";"}], " "}]}], "Input", CellChangeTimes->{{3.568108824079547*^9, 3.568109012824279*^9}, { 3.568109558076436*^9, 3.568109588168889*^9}, {3.5681097523435774`*^9, 3.5681097637783976`*^9}, {3.5681100381828794`*^9, 3.5681101616726966`*^9}, {3.5681102015307665`*^9, 3.5681102288464146`*^9}, {3.568110263743676*^9, 3.568110267331682*^9}, { 3.5681103163469687`*^9, 3.5681103268925867`*^9}, {3.5681106443375444`*^9, 3.5681106916368275`*^9}, 3.568110873002746*^9, {3.5681109388660617`*^9, 3.5681110268970165`*^9}, {3.568111092526332*^9, 3.568111123461186*^9}, { 3.5681111884196997`*^9, 3.568111192756508*^9}, {3.5681112268113675`*^9, 3.568111366213212*^9}, {3.568111434946933*^9, 3.568111463354583*^9}, { 3.568111544396725*^9, 3.568111547625931*^9}, {3.5681116856081734`*^9, 3.5681117131422215`*^9}, {3.568111864696488*^9, 3.5681119835998964`*^9}, 3.5681120218355637`*^9, {3.56811206543764*^9, 3.568112066389242*^9}, { 3.568112332369709*^9, 3.5681123404505234`*^9}, {3.568112505935614*^9, 3.56811251481203*^9}, {3.5681125623609133`*^9, 3.568112569006525*^9}, { 3.568112648067464*^9, 3.568112734210815*^9}, {3.568112764443668*^9, 3.5681127697320776`*^9}, {3.5681128018681335`*^9, 3.568112843426607*^9}, { 3.568112884641879*^9, 3.5681128887602863`*^9}, {3.5681129663080225`*^9, 3.5681129699584293`*^9}, {3.568113133789917*^9, 3.568113227936082*^9}, { 3.5681132946885996`*^9, 3.5681133044698167`*^9}, {3.568113502200164*^9, 3.568113507348173*^9}, 3.56811354556824*^9, {3.5681222886191964`*^9, 3.5681222896019983`*^9}, {3.568207424138049*^9, 3.5682074415164795`*^9}, 3.568277923134914*^9, 3.568883508322016*^9, 3.568883588350157*^9, 3.5688836441982546`*^9, {3.5703421313965206`*^9, 3.5703421386505337`*^9}, { 3.570342288098796*^9, 3.5703424924279547`*^9}, 3.5709745658726373`*^9, 3.5709746291463485`*^9, {3.5709747534473667`*^9, 3.5709747617933817`*^9}, { 3.5709749537361183`*^9, 3.570975034747061*^9}, {3.5709751055243855`*^9, 3.5709751213584127`*^9}, {3.5709751694532976`*^9, 3.570975200060551*^9}, { 3.571073358435503*^9, 3.5710734289632273`*^9}, {3.571204792969243*^9, 3.571204820940092*^9}, {3.5712048565705547`*^9, 3.571204860002561*^9}, 3.571204896881026*^9, {3.571204943556308*^9, 3.571204987485985*^9}, 3.5712053579722357`*^9, 3.5712054148187356`*^9, 3.5712055260469313`*^9, { 3.571205631237916*^9, 3.5712056608311677`*^9}, {3.571206377683627*^9, 3.5712064172296963`*^9}, {3.571206525727887*^9, 3.571206547427525*^9}, { 3.5712066764397516`*^9, 3.5712067106974115`*^9}, {3.571206757949895*^9, 3.5712067585114956`*^9}, {3.5712073458681273`*^9, 3.571207357053347*^9}, { 3.5712075532392917`*^9, 3.5712076608170805`*^9}, {3.571208007434089*^9, 3.571208247690111*^9}, {3.571208301057805*^9, 3.5712083308850574`*^9}, { 3.571208811958702*^9, 3.571208871488407*^9}, {3.5712089993618317`*^9, 3.5712089996582317`*^9}, {3.5712091105588264`*^9, 3.571209160744115*^9}, { 3.5712092989135575`*^9, 3.5712093003643603`*^9}, {3.571209369940482*^9, 3.5712093926073227`*^9}, {3.5712094586578383`*^9, 3.5712094836958823`*^9}, {3.5712104228175316`*^9, 3.571210434267952*^9}, 3.571210475358424*^9, 3.5712108629099045`*^9, {3.571210903969177*^9, 3.5712109929361334`*^9}, {3.5712110295961976`*^9, 3.5712110392214146`*^9}, {3.571211240071767*^9, 3.5712112940946617`*^9}, { 3.571211404496056*^9, 3.5712114190976815`*^9}, {3.5712115264882703`*^9, 3.5712115363942876`*^9}, {3.571211575924757*^9, 3.5712116183724318`*^9}, { 3.5712116597281046`*^9, 3.571211695062166*^9}, {3.5712117551222715`*^9, 3.5712117807531166`*^9}, {3.571211826835598*^9, 3.5712118443232284`*^9}, { 3.571211962540236*^9, 3.5712119670174437`*^9}, 3.5712123580321307`*^9, { 3.5712123994658036`*^9, 3.571212411181424*^9}, {3.5712172605092583`*^9, 3.571217297153723*^9}, {3.571223622762637*^9, 3.57122364145147*^9}, { 3.5712237454256525`*^9, 3.571223750745262*^9}, {3.571223964808838*^9, 3.571224009097316*^9}, {3.57122674689975*^9, 3.5712267784742055`*^9}, { 3.5712269848157682`*^9, 3.57122698582977*^9}, {3.5712270624259043`*^9, 3.5712270629563055`*^9}, {3.571227212438168*^9, 3.571227212999769*^9}, { 3.571227409778515*^9, 3.5712274489969835`*^9}, {3.571227502177477*^9, 3.571227514127098*^9}, {3.57122758356282*^9, 3.5712276390521173`*^9}, 3.5712276745889797`*^9, {3.571227712746647*^9, 3.5712277584703274`*^9}, { 3.5712349496076813`*^9, 3.571234988008148*^9}, {3.5712351855668955`*^9, 3.5712353359043593`*^9}, {3.5712355859883986`*^9, 3.571235653661318*^9}, { 3.5712356890109797`*^9, 3.571235702208603*^9}, {3.5712449764989214`*^9, 3.5712449799309273`*^9}, {3.5712450401778336`*^9, 3.571245051456653*^9}, { 3.5712450868687153`*^9, 3.5712450934831266`*^9}, {3.571299135517318*^9, 3.571299166342972*^9}, {3.5713069890574045`*^9, 3.5713071726697273`*^9}, { 3.571307301791154*^9, 3.571307304536759*^9}, {3.571307397731323*^9, 3.571307405702937*^9}, {3.571311846659932*^9, 3.5713118507939396`*^9}, { 3.571317129094411*^9, 3.5713171472216425`*^9}, {3.5713172653138494`*^9, 3.5713172753602676`*^9}, {3.5713216932693615`*^9, 3.5713216983081703`*^9}, {3.5713370477995405`*^9, 3.5713370593279605`*^9}, {3.571404339740199*^9, 3.5714046172178864`*^9}, { 3.571404755449729*^9, 3.571404853246301*^9}, {3.571405069743481*^9, 3.571405208989326*^9}, {3.571405268612631*^9, 3.571405277442246*^9}, { 3.5714053796536255`*^9, 3.5714054114932814`*^9}, {3.571405595448805*^9, 3.5714056194884467`*^9}, {3.5714056687221336`*^9, 3.571405677660949*^9}, 3.5714067334520035`*^9, {3.57140676532286*^9, 3.5714067706580687`*^9}, { 3.571406950729185*^9, 3.571406989495253*^9}, {3.5714071848855963`*^9, 3.571407190579606*^9}, 3.5714072350240846`*^9, {3.571412503236558*^9, 3.5714125080413666`*^9}, {3.571412540879424*^9, 3.571412607787942*^9}, { 3.571412668378448*^9, 3.5714128101202965`*^9}, {3.5714128643147917`*^9, 3.571412873862009*^9}, {3.571412908150869*^9, 3.57141290869687*^9}, { 3.571413012374652*^9, 3.5714130213290677`*^9}, {3.571413054603926*^9, 3.5714130713583555`*^9}, 3.5714133323156137`*^9, {3.571730171730853*^9, 3.571730182494872*^9}, {3.5717303501171665`*^9, 3.5717303600855846`*^9}, { 3.5717305482375145`*^9, 3.5717305527147226`*^9}, {3.571760865342704*^9, 3.5717608700695124`*^9}, {3.57176111957635*^9, 3.5717611228835564`*^9}, 3.571761174316847*^9, {3.5717620076459103`*^9, 3.571762008441512*^9}, { 3.571765525077688*^9, 3.571765573718574*^9}, {3.572601603410675*^9, 3.572601639665139*^9}, {3.57260238631365*^9, 3.5726023989340725`*^9}, 3.5726046985809116`*^9, {3.5726052623971024`*^9, 3.572605269729115*^9}, { 3.572606450370389*^9, 3.5726064833176465`*^9}, {3.5726065169513054`*^9, 3.572606523955718*^9}, {3.5726066452459307`*^9, 3.572606662468361*^9}, { 3.5726068118542233`*^9, 3.5726068309330573`*^9}, {3.5726082044218693`*^9, 3.5726082108178806`*^9}, {3.5726129520308228`*^9, 3.5726129692220526`*^9}, {3.5726130228861475`*^9, 3.5726130532750006`*^9}, {3.572624083881504*^9, 3.572624093631521*^9}, { 3.5726247901883445`*^9, 3.572624801233164*^9}, {3.5726249931759005`*^9, 3.572625014937939*^9}, {3.572626882386019*^9, 3.5726268865668263`*^9}, { 3.5726673740642943`*^9, 3.572667386154316*^9}, {3.572707186162225*^9, 3.5727071892978306`*^9}, {3.5727073766385593`*^9, 3.5727073777617617`*^9}, 3.5727091442464643`*^9, 3.572709305488347*^9, {3.5727105300904984`*^9, 3.5727105312605004`*^9}, 3.5727107350904584`*^9, 3.5727108467086544`*^9, 3.572710916331577*^9}], Cell[BoxData[ RowBox[{ RowBox[{"k", "=", "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.571730171730853*^9, 3.571730182494872*^9}, {3.5717303501171665`*^9, 3.5717303600855846`*^9}, { 3.5717305482375145`*^9, 3.5717305527147226`*^9}, {3.571760865342704*^9, 3.5717608700695124`*^9}, {3.57176111957635*^9, 3.5717611228835564`*^9}, 3.571761174316847*^9, {3.5717620076459103`*^9, 3.571762008441512*^9}, { 3.571765525077688*^9, 3.571765573718574*^9}, {3.572601603410675*^9, 3.572601639665139*^9}, {3.57260238631365*^9, 3.5726023989340725`*^9}, 3.5726046985809116`*^9, {3.5726052623971024`*^9, 3.572605269729115*^9}, { 3.572606450370389*^9, 3.5726064833176465`*^9}, {3.5726065169513054`*^9, 3.572606523955718*^9}, {3.5726066452459307`*^9, 3.572606662468361*^9}, { 3.5726068118542233`*^9, 3.5726068309330573`*^9}, {3.5726082044218693`*^9, 3.5726082108178806`*^9}, {3.5726129520308228`*^9, 3.5726129692220526`*^9}, {3.5726130228861475`*^9, 3.5726130532750006`*^9}, {3.572624083881504*^9, 3.572624093631521*^9}, { 3.5726247901883445`*^9, 3.572624801233164*^9}, {3.5726249931759005`*^9, 3.572625014937939*^9}, {3.572626882386019*^9, 3.5726268865668263`*^9}, { 3.5726673740642943`*^9, 3.572667386154316*^9}, {3.572707186162225*^9, 3.5727071892978306`*^9}, {3.5727073766385593`*^9, 3.5727073777617617`*^9}, 3.5727091442464643`*^9, 3.572709305488347*^9, {3.5727105300904984`*^9, 3.5727105312605004`*^9}, 3.5727107350904584`*^9, 3.5727108467086544`*^9, 3.572710916331577*^9}], Cell[CellGroupData[{ Cell[BoxData[{ RowBox[{ RowBox[{"Label", "[", "\"\\"", "]"}], ";"}], "\[IndentingNewLine]", RowBox[{ RowBox[{"c", "=", RowBox[{"conn", "[", RowBox[{"[", RowBox[{"conj", "[", RowBox[{"[", "k", "]"}], "]"}], "]"}], "]"}]}], ";"}]}], "Input", CellGroupingRules->{GroupTogetherGrouping, 10000.}, 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.5725874074450407`*^9, 3.57258741299865*^9}, {3.572587506770415*^9, 3.5725875134316263`*^9}, {3.5725877054055634`*^9, 3.5725877116455746`*^9}, {3.5726014967532883`*^9, 3.5726015309485483`*^9}, {3.572604709594531*^9, 3.572604713775338*^9}, { 3.5726068528822956`*^9, 3.5726068582799053`*^9}, {3.572606893629567*^9, 3.5726068992767773`*^9}, 3.5726069733145075`*^9, {3.572607033686613*^9, 3.572607038117021*^9}, {3.572607723738225*^9, 3.5726077623014927`*^9}, { 3.572607825356804*^9, 3.572607831160014*^9}, {3.572608222907902*^9, 3.5726082231887026`*^9}, {3.5726085858893394`*^9, 3.572608589227745*^9}, { 3.572608663093875*^9, 3.572608669708287*^9}, {3.5726089657032065`*^9, 3.572608990944051*^9}, {3.5726090674621854`*^9, 3.572609106727454*^9}, { 3.572609315596221*^9, 3.572609328029443*^9}, {3.572613056738207*^9, 3.572613057986209*^9}, {3.5726132251717024`*^9, 3.572613232784516*^9}, { 3.5726213872551675`*^9, 3.5726213881755695`*^9}, {3.5726268939768395`*^9, 3.572626916331679*^9}, {3.57262844270076*^9, 3.572628450609974*^9}, { 3.572666736959175*^9, 3.5726667470367928`*^9}, {3.5726673703202877`*^9, 3.572667394952731*^9}, 3.57270668214774*^9, {3.5727071495177608`*^9, 3.5727071819658175`*^9}, {3.5727072712759743`*^9, 3.5727073128032475`*^9}, {3.5727073679493446`*^9, 3.5727073724733524`*^9}, {3.5727076759406853`*^9, 3.5727076771262875`*^9}, {3.572707904044286*^9, 3.572707908615094*^9}, { 3.5727080701689777`*^9, 3.572708083429001*^9}, {3.5727082522212973`*^9, 3.5727082670725236`*^9}, {3.572708559838238*^9, 3.5727085620066414`*^9}, { 3.572709188612942*^9, 3.5727092006873636`*^9}, {3.572709311915559*^9, 3.5727093163615665`*^9}, {3.5727093855632877`*^9, 3.57270938659289*^9}, { 3.572709508865905*^9, 3.5727095702676125`*^9}, 3.5727097033826466`*^9, { 3.5727105361121087`*^9, 3.57271053676731*^9}, 3.5727147586291027`*^9, { 3.572715941017579*^9, 3.5727159460095882`*^9}, 3.5727757213782988`*^9, { 3.5727776626613083`*^9, 3.5727776631449094`*^9}, {3.5727778755392823`*^9, 3.5727778968333197`*^9}}], Cell[BoxData[ RowBox[{ RowBox[{"c", "=", RowBox[{"Take", "[", RowBox[{"c", ",", "P"}], "]"}]}], ";"}]], "Input", CellGroupingRules->{GroupTogetherGrouping, 10000.}, 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.5725874074450407`*^9, 3.57258741299865*^9}, {3.572587506770415*^9, 3.5725875134316263`*^9}, {3.5725877054055634`*^9, 3.5725877116455746`*^9}, {3.5726014967532883`*^9, 3.5726015309485483`*^9}, {3.572604709594531*^9, 3.572604713775338*^9}, { 3.5726068528822956`*^9, 3.5726068582799053`*^9}, {3.572606893629567*^9, 3.5726068992767773`*^9}, 3.5726069733145075`*^9, {3.572607033686613*^9, 3.572607038117021*^9}, {3.572607723738225*^9, 3.5726077623014927`*^9}, { 3.572607825356804*^9, 3.572607831160014*^9}, {3.572608222907902*^9, 3.5726082231887026`*^9}, {3.5726085858893394`*^9, 3.572608589227745*^9}, { 3.572608663093875*^9, 3.572608669708287*^9}, {3.5726089657032065`*^9, 3.572608990944051*^9}, {3.5726090674621854`*^9, 3.572609106727454*^9}, { 3.572609315596221*^9, 3.572609328029443*^9}, {3.572613056738207*^9, 3.572613057986209*^9}, {3.5726132251717024`*^9, 3.572613232784516*^9}, { 3.5726213872551675`*^9, 3.5726213881755695`*^9}, {3.5726268939768395`*^9, 3.572626916331679*^9}, {3.57262844270076*^9, 3.572628450609974*^9}, { 3.572666736959175*^9, 3.5726667470367928`*^9}, {3.5726673703202877`*^9, 3.572667394952731*^9}, 3.57270668214774*^9, {3.5727071495177608`*^9, 3.5727071819658175`*^9}, {3.5727072712759743`*^9, 3.5727073128032475`*^9}, {3.5727073679493446`*^9, 3.5727073724733524`*^9}, {3.5727076759406853`*^9, 3.5727076771262875`*^9}, {3.572707904044286*^9, 3.572707908615094*^9}, { 3.5727080701689777`*^9, 3.572708083429001*^9}, {3.5727082522212973`*^9, 3.5727082670725236`*^9}, {3.572708559838238*^9, 3.5727085620066414`*^9}, { 3.572709188612942*^9, 3.5727092006873636`*^9}, {3.572709311915559*^9, 3.5727093163615665`*^9}, {3.5727093855632877`*^9, 3.57270938659289*^9}, { 3.572709508865905*^9, 3.5727095702676125`*^9}, 3.5727097033826466`*^9, { 3.5727105361121087`*^9, 3.57271053676731*^9}, 3.5727147586291027`*^9, { 3.572715941017579*^9, 3.5727159460095882`*^9}, {3.5727757213782988`*^9, 3.572775725543506*^9}, 3.5727775015754256`*^9}] }, Open ]], Cell[BoxData[ RowBox[{"{", RowBox[{"4", ",", "1", ",", "6"}], "}"}]], "Output", CellChangeTimes->{3.5727773847468204`*^9}], Cell[CellGroupData[{ Cell[BoxData[ RowBox[{ RowBox[{"v", "=", RowBox[{"Table", "[", RowBox[{ RowBox[{"Join", "[", RowBox[{ RowBox[{"t", "[", RowBox[{"[", RowBox[{"c", "[", RowBox[{"[", "i", "]"}], "]"}], "]"}], "]"}], ",", RowBox[{"{", "1", "}"}]}], "]"}], ",", RowBox[{"{", RowBox[{"i", ",", "1", ",", "P"}], "}"}]}], "]"}]}], ";"}]], "Input", CellGroupingRules->{GroupTogetherGrouping, 10000.}, 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}, 3.5726069733145075`*^9, 3.572607042812629*^9, 3.572622100738021*^9, 3.5726269230552907`*^9, {3.5726667501723986`*^9, 3.572666750343999*^9}, {3.5727067043241787`*^9, 3.5727067167418003`*^9}}], Cell[BoxData[{ RowBox[{ RowBox[{"x2", "=", RowBox[{"t", "[", RowBox[{"[", RowBox[{ RowBox[{"c", "[", RowBox[{"[", "2", "]"}], "]"}], ",", "1"}], "]"}], "]"}]}], ";"}], "\[IndentingNewLine]", RowBox[{ RowBox[{ RowBox[{"y2", "=", RowBox[{"t", "[", RowBox[{"[", RowBox[{ RowBox[{"c", "[", RowBox[{"[", "2", "]"}], "]"}], ",", "2"}], "]"}], "]"}]}], ";"}], " "}], "\[IndentingNewLine]", RowBox[{ RowBox[{ 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", CellGroupingRules->{GroupTogetherGrouping, 10000.}, 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.5726069733145075`*^9, {3.57261279096054*^9, 3.572612795000947*^9}, { 3.5726667534796047`*^9, 3.572666774789242*^9}, {3.5727067322950277`*^9, 3.5727067400950413`*^9}}], Cell[BoxData[{ RowBox[{ RowBox[{"p", "=", RowBox[{"v", ".", "Q"}]}], ";"}], "\[IndentingNewLine]", RowBox[{ RowBox[{"p", "=", RowBox[{"Table", "[", RowBox[{ RowBox[{"Take", "[", RowBox[{ RowBox[{"p", "[", RowBox[{"[", "i", "]"}], "]"}], ",", "3"}], "]"}], ",", RowBox[{"{", RowBox[{"i", ",", "1", ",", "P"}], "}"}]}], "]"}]}], ";"}]}], "Input", CellGroupingRules->{GroupTogetherGrouping, 10000.}, 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}, {3.5726017251844893`*^9, 3.572601734981306*^9}, {3.5726047351161757`*^9, 3.5726047400145845`*^9}, 3.5726069733145075`*^9, {3.572607050066642*^9, 3.572607057632655*^9}, { 3.5726221214236574`*^9, 3.572622169861742*^9}, {3.5726230913241606`*^9, 3.572623091948162*^9}, 3.5726270905371847`*^9, {3.5726667780028477`*^9, 3.572666781778054*^9}, {3.5727067435270476`*^9, 3.5727067470682535`*^9}, { 3.572709894592182*^9, 3.572709900582593*^9}, {3.57271569640915*^9, 3.5727157156127834`*^9}, {3.572715953450801*^9, 3.572715954262003*^9}, { 3.572776346876998*^9, 3.572776373974245*^9}, {3.5727764517715816`*^9, 3.5727764955452585`*^9}, {3.5727765613617744`*^9, 3.5727765683817863`*^9}}], 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", CellGroupingRules->{GroupTogetherGrouping, 10000.}, 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, 3.5726069733145075`*^9}], Cell[BoxData[ RowBox[{"(*", " ", RowBox[{ RowBox[{ RowBox[{"rotate", " ", "p1", " ", "around", " ", "x"}], "-", RowBox[{"axis", " ", "until", " ", "the", " ", "z"}], "-", "comp"}], " ", "=", " ", "0"}], " ", "*)"}]], "Input", CellGroupingRules->{GroupTogetherGrouping, 10000.}, 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.5726069733145075`*^9}], Cell[BoxData[ RowBox[{ RowBox[{"T1", "=", RowBox[{"ArcTan", "[", RowBox[{ RowBox[{"p", "[", RowBox[{"[", RowBox[{"1", ",", "3"}], "]"}], "]"}], "/", RowBox[{"p", "[", RowBox[{"[", RowBox[{"1", ",", "2"}], "]"}], "]"}]}], "]"}]}], ";"}]], "Input", CellGroupingRules->{GroupTogetherGrouping, 10000.}, 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, 3.5726069733145075`*^9, 3.5726078484916444`*^9, {3.5726667854596605`*^9, 3.572666785631261*^9}, 3.5727067500634594`*^9}], Cell[BoxData[{ RowBox[{ RowBox[{"U", "=", "p"}], ";"}], "\n", RowBox[{ RowBox[{"T", "=", RowBox[{"RotationMatrix", "[", RowBox[{"T1", ",", RowBox[{"{", RowBox[{"1", ",", "0", ",", "0"}], "}"}]}], "]"}]}], ";"}], "\[IndentingNewLine]", RowBox[{ RowBox[{"p", "=", RowBox[{"U", ".", "T"}]}], ";"}]}], "Input", CellGroupingRules->{GroupTogetherGrouping, 10000.}, 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}, {3.5726017493645315`*^9, 3.5726017575545464`*^9}, {3.5726047472061973`*^9, 3.5726047501234026`*^9}, 3.5726069733145075`*^9, {3.572666789297267*^9, 3.5726668009816875`*^9}, { 3.5727067530274644`*^9, 3.572706757504672*^9}}], Cell[BoxData[ RowBox[{"(*", " ", RowBox[{ RowBox[{"Rotate", " ", "p1", " ", "around", " ", "z"}], "-", RowBox[{"axis", " ", "to", " ", "make", " ", "y"}], "-", RowBox[{"comp", " ", "to", " ", "0"}]}], " ", "*)"}]], "Input", CellGroupingRules->{GroupTogetherGrouping, 10000.}, 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.5726069733145075`*^9}], Cell[BoxData[ RowBox[{ RowBox[{"T2", "=", RowBox[{"ArcTan", "[", RowBox[{ RowBox[{"p", "[", RowBox[{"[", RowBox[{"1", ",", "2"}], "]"}], "]"}], "/", RowBox[{"p", "[", RowBox[{"[", RowBox[{"1", ",", "1"}], "]"}], "]"}]}], "]"}]}], ";"}]], "Input", CellGroupingRules->{GroupTogetherGrouping, 10000.}, 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, 3.5726069733145075`*^9, 3.5726078549812555`*^9, 3.5726668303253393`*^9, 3.572706760936678*^9}], Cell[BoxData[{ RowBox[{ RowBox[{"U", "=", "p"}], ";"}], "\[IndentingNewLine]", RowBox[{ RowBox[{"T", "=", RowBox[{"RotationMatrix", "[", RowBox[{"T2", ",", RowBox[{"{", RowBox[{"0", ",", "0", ",", "1"}], "}"}]}], "]"}]}], ";"}], "\[IndentingNewLine]", RowBox[{ RowBox[{"p", "=", RowBox[{"U", ".", "T"}]}], ";"}]}], "Input", CellGroupingRules->{GroupTogetherGrouping, 10000.}, 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, {3.5726017665557623`*^9, 3.5726017739813747`*^9}, {3.572604392945175*^9, 3.572604393740776*^9}, 3.572604753071808*^9, 3.5726069733145075`*^9, {3.5726668381565533`*^9, 3.5726668434449625`*^9}, {3.572706764243884*^9, 3.5727067691578927`*^9}}], Cell[BoxData[ RowBox[{"(*", " ", RowBox[{ RowBox[{ RowBox[{"rotate", " ", "p2", " ", "around", " ", "x"}], "-", RowBox[{"axis", " ", "to", " ", "make", " ", "z"}], "-", "comp"}], " ", "=", " ", "0"}], " ", "*)"}]], "Input", CellGroupingRules->{GroupTogetherGrouping, 10000.}, 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.5726069733145075`*^9}], Cell[BoxData[ RowBox[{ RowBox[{"T3", "=", RowBox[{"ArcTan", "[", RowBox[{ RowBox[{"p", "[", RowBox[{"[", RowBox[{"3", ",", "3"}], "]"}], "]"}], "/", RowBox[{"p", "[", RowBox[{"[", RowBox[{"3", ",", "2"}], "]"}], "]"}]}], "]"}]}], ";"}]], "Input", CellGroupingRules->{GroupTogetherGrouping, 10000.}, 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, 3.5726069733145075`*^9, 3.5726078595208635`*^9, 3.572666847422969*^9, 3.572706776801906*^9}], Cell[BoxData[{ RowBox[{ RowBox[{"U", "=", "p"}], ";"}], "\n", RowBox[{ RowBox[{"T", "=", RowBox[{"RotationMatrix", "[", RowBox[{"T3", ",", RowBox[{"{", RowBox[{"1", ",", "0", ",", "0"}], "}"}]}], "]"}]}], ";"}], "\[IndentingNewLine]", RowBox[{ RowBox[{"p", "=", RowBox[{"Chop", "[", RowBox[{"U", ".", "T"}], "]"}]}], ";"}]}], "Input", CellGroupingRules->{GroupTogetherGrouping, 10000.}, 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}, { 3.572601784760994*^9, 3.5726017924518075`*^9}, {3.5726043136190357`*^9, 3.5726043144770374`*^9}, 3.5726044005735884`*^9, 3.572604514952989*^9, 3.5726058929502096`*^9, 3.5726069733145075`*^9, 3.5726078643724723`*^9, { 3.5726668500905743`*^9, 3.572666853865781*^9}, {3.5727067797815113`*^9, 3.5727067843523192`*^9}}], Cell[BoxData[ RowBox[{"(*", " ", RowBox[{ RowBox[{"generate", " ", "two", " ", "pi", " ", "clouds"}], ",", " ", RowBox[{"and", " ", "reverse", " ", "all", " ", "transformations"}]}], " ", "*)"}]], "Input", CellGroupingRules->{GroupTogetherGrouping, 10000.}, CellChangeTimes->{{3.572350718144676*^9, 3.572350721498682*^9}, { 3.5723508452536993`*^9, 3.572350853147313*^9}, 3.572350943019071*^9, { 3.5726021675856667`*^9, 3.5726022216241612`*^9}, {3.5726022594386272`*^9, 3.572602343475975*^9}, {3.572602506387061*^9, 3.572602609768443*^9}, { 3.5726026464285073`*^9, 3.5726026836033726`*^9}, 3.5726027195614357`*^9, { 3.5726030773792644`*^9, 3.5726031344597645`*^9}, {3.57260320008908*^9, 3.5726032557811775`*^9}, {3.57260391723794*^9, 3.572604042069359*^9}, { 3.5726040788698235`*^9, 3.572604134390321*^9}, {3.5726041895520177`*^9, 3.5726042226864758`*^9}, {3.572604434644048*^9, 3.5726045390238314`*^9}, 3.5726069733145075`*^9, {3.5726222116230154`*^9, 3.5726222122938166`*^9}}], Cell[BoxData[{ RowBox[{ RowBox[{"nk", "=", "p"}], ";"}], "\[IndentingNewLine]", RowBox[{ RowBox[{"nl", "=", "p"}], ";"}], "\[IndentingNewLine]", RowBox[{ RowBox[{ RowBox[{"nk", "[", RowBox[{"[", RowBox[{"1", ",", "3"}], "]"}], "]"}], "=", "rpo"}], ";"}], "\[IndentingNewLine]", RowBox[{ RowBox[{ RowBox[{"nl", "[", RowBox[{"[", RowBox[{"1", ",", "3"}], "]"}], "]"}], "=", RowBox[{"-", "rpi"}]}], ";"}]}], "Input", CellGroupingRules->{GroupTogetherGrouping, 10000.}, CellChangeTimes->{{3.572350718144676*^9, 3.572350721498682*^9}, { 3.5723508452536993`*^9, 3.572350853147313*^9}, 3.572350943019071*^9, { 3.5726021675856667`*^9, 3.5726022216241612`*^9}, {3.5726022594386272`*^9, 3.572602343475975*^9}, {3.572602506387061*^9, 3.572602609768443*^9}, { 3.5726026464285073`*^9, 3.5726026836033726`*^9}, 3.5726027195614357`*^9, { 3.5726030773792644`*^9, 3.5726031344597645`*^9}, {3.57260320008908*^9, 3.5726032557811775`*^9}, {3.57260391723794*^9, 3.572604042069359*^9}, { 3.5726040788698235`*^9, 3.572604134390321*^9}, {3.5726041895520177`*^9, 3.5726042226864758`*^9}, {3.572604434644048*^9, 3.5726045390238314`*^9}, { 3.572604860852397*^9, 3.572604867966009*^9}, {3.5726052375774584`*^9, 3.572605241134265*^9}, {3.5726053586336713`*^9, 3.5726053689296894`*^9}, { 3.572605576254053*^9, 3.572605589170876*^9}, 3.5726069733145075`*^9, { 3.5726231298562284`*^9, 3.5726231373442416`*^9}, {3.5726234608164096`*^9, 3.572623465480818*^9}, {3.572624863290073*^9, 3.5726249077501507`*^9}, { 3.5726252428075395`*^9, 3.5726252475499477`*^9}, {3.5726254429558907`*^9, 3.5726254462942967`*^9}, {3.572625482876361*^9, 3.5726254854503655`*^9}, { 3.5726255654941063`*^9, 3.57262556770931*^9}, {3.572625687767121*^9, 3.57262569282153*^9}, {3.572625826841365*^9, 3.5726258665902348`*^9}, { 3.5726267909854584`*^9, 3.5726267926078615`*^9}, {3.5726668575161867`*^9, 3.5726668645517993`*^9}, {3.5727067876283255`*^9, 3.5727067940555363`*^9}}], Cell[BoxData[{ RowBox[{ RowBox[{"U", "=", "p"}], ";"}], "\n", RowBox[{ RowBox[{"U1", "=", "nk"}], ";"}], "\[IndentingNewLine]", RowBox[{ RowBox[{"U2", "=", "nl"}], ";"}], "\[IndentingNewLine]", RowBox[{ RowBox[{"T", "=", RowBox[{"RotationMatrix", "[", RowBox[{ RowBox[{"-", "T3"}], ",", RowBox[{"{", RowBox[{"1", ",", "0", ",", "0"}], "}"}]}], "]"}]}], ";"}], "\[IndentingNewLine]", RowBox[{ RowBox[{"p", "=", RowBox[{"U", ".", "T"}]}], ";"}], "\n", RowBox[{ RowBox[{"nk", "=", RowBox[{"U1", ".", "T"}]}], ";"}], "\[IndentingNewLine]", RowBox[{ RowBox[{"nl", "=", RowBox[{"U2", ".", "T"}]}], ";"}]}], "Input", CellGroupingRules->{GroupTogetherGrouping, 10000.}, CellChangeTimes->{{3.572350718144676*^9, 3.572350721498682*^9}, { 3.5723508452536993`*^9, 3.572350853147313*^9}, 3.572350943019071*^9, { 3.5726021675856667`*^9, 3.5726022216241612`*^9}, {3.5726022594386272`*^9, 3.572602343475975*^9}, {3.572602506387061*^9, 3.572602609768443*^9}, { 3.5726026464285073`*^9, 3.5726026836033726`*^9}, 3.5726027195614357`*^9, { 3.5726030773792644`*^9, 3.5726031344597645`*^9}, {3.57260320008908*^9, 3.5726032557811775`*^9}, {3.57260391723794*^9, 3.572604042069359*^9}, { 3.5726040788698235`*^9, 3.572604134390321*^9}, {3.5726041895520177`*^9, 3.5726042226864758`*^9}, {3.572604434644048*^9, 3.572604568445483*^9}, 3.5726069733145075`*^9, 3.572607970577459*^9, {3.5726668662366023`*^9, 3.57266688213303*^9}, {3.5727067964111404`*^9, 3.5727068114339666`*^9}}], Cell[BoxData[{ RowBox[{ RowBox[{"U", "=", "p"}], ";"}], "\n", RowBox[{ RowBox[{"U1", "=", "nk"}], ";"}], "\[IndentingNewLine]", RowBox[{ RowBox[{"U2", "=", "nl"}], ";"}], "\[IndentingNewLine]", RowBox[{ RowBox[{"T", "=", RowBox[{"RotationMatrix", "[", RowBox[{ RowBox[{"-", "T2"}], ",", RowBox[{"{", RowBox[{"0", ",", "0", ",", "1"}], "}"}]}], "]"}]}], ";"}], "\[IndentingNewLine]", RowBox[{ RowBox[{"p", "=", RowBox[{"U", ".", "T"}]}], ";"}], "\n", RowBox[{ RowBox[{"nk", "=", RowBox[{"U1", ".", "T"}]}], ";"}], "\[IndentingNewLine]", RowBox[{ RowBox[{"nl", "=", RowBox[{"U2", ".", "T"}]}], ";"}]}], "Input", CellGroupingRules->{GroupTogetherGrouping, 10000.}, CellChangeTimes->{{3.572350718144676*^9, 3.572350721498682*^9}, { 3.5723508452536993`*^9, 3.572350853147313*^9}, 3.572350943019071*^9, { 3.5726021675856667`*^9, 3.5726022216241612`*^9}, {3.5726022594386272`*^9, 3.572602343475975*^9}, {3.572602506387061*^9, 3.572602609768443*^9}, { 3.5726026464285073`*^9, 3.5726026836033726`*^9}, 3.5726027195614357`*^9, { 3.5726030773792644`*^9, 3.5726031344597645`*^9}, {3.57260320008908*^9, 3.5726032557811775`*^9}, {3.57260391723794*^9, 3.572604042069359*^9}, { 3.5726040788698235`*^9, 3.572604134390321*^9}, {3.5726041895520177`*^9, 3.5726042226864758`*^9}, {3.572604434644048*^9, 3.572604575122295*^9}, 3.5726069733145075`*^9, 3.572607975101467*^9, {3.5726668854090357`*^9, 3.5726668974678574`*^9}, 3.57266692784111*^9, {3.5727068136335707`*^9, 3.57270684169802*^9}}], Cell[BoxData[{ RowBox[{ RowBox[{"U", "=", "p"}], ";"}], "\n", RowBox[{ RowBox[{"U1", "=", "nk"}], ";"}], "\[IndentingNewLine]", RowBox[{ RowBox[{"U2", "=", "nl"}], ";"}], "\[IndentingNewLine]", RowBox[{ RowBox[{"T", "=", RowBox[{"RotationMatrix", "[", RowBox[{ RowBox[{"-", "T1"}], ",", RowBox[{"{", RowBox[{"1", ",", "0", ",", "0"}], "}"}]}], "]"}]}], ";"}], "\[IndentingNewLine]", RowBox[{ RowBox[{"p", "=", RowBox[{"U", ".", "T"}]}], ";"}], "\n", RowBox[{ RowBox[{"nk", "=", RowBox[{"U1", ".", "T"}]}], ";"}], "\[IndentingNewLine]", RowBox[{ RowBox[{"nl", "=", RowBox[{"U2", ".", "T"}]}], ";"}]}], "Input", CellGroupingRules->{GroupTogetherGrouping, 10000.}, CellChangeTimes->{{3.572350718144676*^9, 3.572350721498682*^9}, { 3.5723508452536993`*^9, 3.572350853147313*^9}, 3.572350943019071*^9, { 3.5726021675856667`*^9, 3.5726022216241612`*^9}, {3.5726022594386272`*^9, 3.572602343475975*^9}, {3.572602506387061*^9, 3.572602609768443*^9}, { 3.5726026464285073`*^9, 3.5726026836033726`*^9}, 3.5726027195614357`*^9, { 3.5726030773792644`*^9, 3.5726031344597645`*^9}, {3.57260320008908*^9, 3.5726032557811775`*^9}, {3.57260391723794*^9, 3.572604042069359*^9}, { 3.5726040788698235`*^9, 3.572604134390321*^9}, {3.5726041895520177`*^9, 3.5726042226864758`*^9}, {3.572604434644048*^9, 3.572604592516326*^9}, { 3.5726050884567966`*^9, 3.5726050975204124`*^9}, {3.5726052096846094`*^9, 3.572605219731027*^9}, 3.5726069733145075`*^9, 3.5726079562410336`*^9, { 3.572666929447913*^9, 3.5726669553127584`*^9}, {3.5727068538348413`*^9, 3.5727068732880754`*^9}}], Cell[BoxData[{ RowBox[{ RowBox[{"Clear", "[", RowBox[{"v", ",", "v1", ",", "v2"}], "]"}], ";"}], "\[IndentingNewLine]", RowBox[{ RowBox[{"v", " ", "=", RowBox[{"Table", "[", RowBox[{ RowBox[{"Join", "[", RowBox[{ RowBox[{"p", "[", RowBox[{"[", "i", "]"}], "]"}], ",", RowBox[{"{", "1", "}"}]}], "]"}], ",", RowBox[{"{", RowBox[{"i", ",", "1", ",", "P"}], "}"}]}], "]"}]}], ";"}], "\[IndentingNewLine]", RowBox[{ RowBox[{"v1", "=", RowBox[{"Table", "[", RowBox[{ RowBox[{"Join", "[", RowBox[{ RowBox[{"nk", "[", RowBox[{"[", "i", "]"}], "]"}], ",", RowBox[{"{", "1", "}"}]}], "]"}], ",", RowBox[{"{", RowBox[{"i", ",", "1", ",", "P"}], "}"}]}], "]"}]}], ";"}], "\[IndentingNewLine]", RowBox[{ RowBox[{"v2", "=", RowBox[{"Table", "[", RowBox[{ RowBox[{"Join", "[", RowBox[{ RowBox[{"nl", "[", RowBox[{"[", "i", "]"}], "]"}], ",", RowBox[{"{", "1", "}"}]}], "]"}], ",", RowBox[{"{", RowBox[{"i", ",", "1", ",", "P"}], "}"}]}], "]"}]}], ";"}]}], "Input", CellGroupingRules->{GroupTogetherGrouping, 10000.}, CellChangeTimes->{{3.572350718144676*^9, 3.572350721498682*^9}, { 3.5723508452536993`*^9, 3.572350853147313*^9}, 3.572350943019071*^9, { 3.5726021675856667`*^9, 3.5726022216241612`*^9}, {3.5726022594386272`*^9, 3.572602343475975*^9}, {3.572602506387061*^9, 3.572602609768443*^9}, { 3.5726026464285073`*^9, 3.5726026836033726`*^9}, 3.5726027195614357`*^9, { 3.5726030773792644`*^9, 3.5726031344597645`*^9}, {3.57260320008908*^9, 3.5726032557811775`*^9}, {3.57260391723794*^9, 3.572604042069359*^9}, { 3.5726040788698235`*^9, 3.572604134390321*^9}, {3.5726041895520177`*^9, 3.5726042226864758`*^9}, {3.572604434644048*^9, 3.5726046290983896`*^9}, { 3.572605658497398*^9, 3.5726056767962303`*^9}, {3.5726060164088264`*^9, 3.5726060659701138`*^9}, 3.5726069733145075`*^9, 3.5726079510462246`*^9, { 3.572666957122362*^9, 3.572666966341978*^9}, {3.572706876454881*^9, 3.5727068834592934`*^9}}], Cell[BoxData[{ RowBox[{ RowBox[{"Q", "=", RowBox[{"{", RowBox[{ RowBox[{"{", RowBox[{"1", ",", "0", ",", "0", ",", "0"}], "}"}], ",", "\[IndentingNewLine]", RowBox[{"{", RowBox[{"0", ",", "1", ",", "0", ",", "0"}], "}"}], ",", "\[IndentingNewLine]", RowBox[{"{", RowBox[{"0", ",", "0", ",", "1", ",", "0"}], "}"}], ",", "\[IndentingNewLine]", RowBox[{"{", RowBox[{"x2", ",", "y2", ",", "z2", ",", "1"}], "}"}]}], "}"}]}], ";"}], "\[IndentingNewLine]", RowBox[{ RowBox[{"p", "=", RowBox[{"v", ".", "Q"}]}], ";"}], "\[IndentingNewLine]", RowBox[{ RowBox[{"nk", "=", RowBox[{"v1", ".", "Q"}]}], ";"}], "\[IndentingNewLine]", RowBox[{ RowBox[{"nl", "=", RowBox[{"v2", ".", "Q"}]}], ";"}], "\[IndentingNewLine]", RowBox[{ RowBox[{"p", "=", RowBox[{"Table", "[", RowBox[{ RowBox[{"Take", "[", RowBox[{ RowBox[{"p", "[", RowBox[{"[", "i", "]"}], "]"}], ",", "3"}], "]"}], ",", RowBox[{"{", RowBox[{"i", ",", "1", ",", "P"}], "}"}]}], "]"}]}], ";"}], "\[IndentingNewLine]", RowBox[{ RowBox[{"nk", "=", RowBox[{"Table", "[", RowBox[{ RowBox[{"Take", "[", RowBox[{ RowBox[{"nk", "[", RowBox[{"[", "i", "]"}], "]"}], ",", "3"}], "]"}], ",", RowBox[{"{", RowBox[{"i", ",", "1", ",", "P"}], "}"}]}], "]"}]}], ";"}], "\[IndentingNewLine]", RowBox[{ RowBox[{"nl", "=", RowBox[{"Table", "[", RowBox[{ RowBox[{"Take", "[", RowBox[{ RowBox[{"nl", "[", RowBox[{"[", "i", "]"}], "]"}], ",", "3"}], "]"}], ",", RowBox[{"{", RowBox[{"i", ",", "1", ",", "P"}], "}"}]}], "]"}]}], ";"}], "\[IndentingNewLine]", RowBox[{ RowBox[{ RowBox[{"tpo", "[", RowBox[{"[", "k", "]"}], "]"}], "=", "nk"}], ";"}], "\[IndentingNewLine]", RowBox[{ RowBox[{ RowBox[{"tpu", "[", RowBox[{"[", "k", "]"}], "]"}], "=", "nl"}], ";"}], "\[IndentingNewLine]", RowBox[{"If", "[", RowBox[{ RowBox[{"k", " ", "\[LessEqual]", "nj"}], ",", " ", RowBox[{ RowBox[{"k", "+=", "1"}], ";", RowBox[{"Goto", "[", "\"\\"", "]"}]}]}], "]"}], "\[IndentingNewLine]", RowBox[{ RowBox[{"k", "=", "2"}], ";"}]}], "Input", CellGroupingRules->{GroupTogetherGrouping, 10000.}, CellChangeTimes->{{3.572350718144676*^9, 3.572350721498682*^9}, { 3.5723508452536993`*^9, 3.572350853147313*^9}, 3.572350943019071*^9, { 3.5726021675856667`*^9, 3.5726022216241612`*^9}, {3.5726022594386272`*^9, 3.572602343475975*^9}, {3.572602506387061*^9, 3.572602609768443*^9}, { 3.5726026464285073`*^9, 3.5726026836033726`*^9}, 3.5726027195614357`*^9, { 3.5726030773792644`*^9, 3.5726031344597645`*^9}, {3.57260320008908*^9, 3.5726032557811775`*^9}, {3.57260391723794*^9, 3.572604042069359*^9}, { 3.5726040788698235`*^9, 3.572604134390321*^9}, {3.5726041895520177`*^9, 3.5726042226864758`*^9}, {3.572604434644048*^9, 3.5726046290983896`*^9}, 3.572604789700672*^9, {3.5726054071497564`*^9, 3.5726054408458157`*^9}, 3.5726062902673073`*^9, {3.5726066827015967`*^9, 3.5726067854277773`*^9}, 3.5726069733145075`*^9, 3.572607132200786*^9, {3.5726079244013777`*^9, 3.5726079268661823`*^9}, 3.572608699551139*^9, {3.5726092797629585`*^9, 3.572609286065369*^9}, 3.572613313577058*^9, {3.5726133867879868`*^9, 3.5726134290016603`*^9}, {3.5726216143915663`*^9, 3.572621666058857*^9}, { 3.572622603199303*^9, 3.5726226148213234`*^9}, {3.5726246360444736`*^9, 3.5726246462000914`*^9}, {3.5726249256589823`*^9, 3.5726249348317986`*^9}, {3.5726254716599417`*^9, 3.572625474374346*^9}, { 3.5726255521248827`*^9, 3.5726255553228884`*^9}, {3.5726257103715606`*^9, 3.5726257147863684`*^9}, {3.5726258057189283`*^9, 3.5726258104457364`*^9}, {3.572625897431489*^9, 3.572625913437117*^9}, 3.5726267756974316`*^9, 3.572626991445811*^9, {3.5726282813028765`*^9, 3.572628283034479*^9}, {3.572628471919611*^9, 3.572628502246064*^9}, { 3.572628679930376*^9, 3.572628680257977*^9}, {3.572666970148385*^9, 3.572667004936446*^9}, {3.5727068870941*^9, 3.5727069058921328`*^9}, { 3.5727072048198576`*^9, 3.5727072287971*^9}, {3.5727073902885838`*^9, 3.5727074293978524`*^9}, {3.572707692305114*^9, 3.572707693459516*^9}, { 3.5727078885066586`*^9, 3.572707892250665*^9}, 3.5727081366874943`*^9, { 3.5727083155886087`*^9, 3.572708337194647*^9}, 3.57270903354867*^9, { 3.5727092197973967`*^9, 3.5727092461458435`*^9}, 3.572709767358359*^9, { 3.572710556672945*^9, 3.572710580556587*^9}, {3.572710635889884*^9, 3.572710640055092*^9}, {3.5727107551676936`*^9, 3.5727107586309*^9}, { 3.5727108769259076`*^9, 3.572710887471526*^9}, {3.572711074266254*^9, 3.5727111332811575`*^9}, {3.5727149481850357`*^9, 3.572714953629445*^9}, { 3.5727150879612813`*^9, 3.572715091939288*^9}, 3.5727154731415577`*^9, 3.572715972061634*^9, 3.572776599207441*^9, {3.572776640828314*^9, 3.5727766634951534`*^9}, {3.5727777057173843`*^9, 3.5727777491478605`*^9}, {3.5727777854959245`*^9, 3.572777828052799*^9}}] }, Open ]], Cell[BoxData[ RowBox[{ RowBox[{"(*", RowBox[{ RowBox[{"Label", "[", "\"\\"", "]"}], ";"}], "*)"}], "\[IndentingNewLine]", RowBox[{"(*", 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]", RowBox[{ RowBox[{"c", "=", RowBox[{"conn", "[", RowBox[{"[", RowBox[{"conj", "[", RowBox[{"[", "k", "]"}], "]"}], "]"}], "]"}]}], ";"}]}]], "Input", CellChangeTimes->{{3.5681154444347754`*^9, 3.568115497147268*^9}, { 3.568127214924899*^9, 3.568127265796589*^9}, {3.568128215276656*^9, 3.568128238536297*^9}, {3.568130718566253*^9, 3.5681307485339055`*^9}, 3.5681308175952272`*^9, {3.5681308916497574`*^9, 3.5681309458598523`*^9}, { 3.5681309983383446`*^9, 3.5681310118947687`*^9}, {3.5681310723448744`*^9, 3.568131074357278*^9}, {3.5681315215476637`*^9, 3.568131584509374*^9}, { 3.56813162789305*^9, 3.5681316427754765`*^9}, {3.5681317113063965`*^9, 3.568131715268804*^9}, {3.5681323203938665`*^9, 3.5681323260098763`*^9}, { 3.568132387567585*^9, 3.568132440014877*^9}, {3.5681325121026034`*^9, 3.568132590945142*^9}, {3.56813274298981*^9, 3.5681327548302307`*^9}, { 3.568132877867647*^9, 3.568132888335265*^9}, {3.568133052345154*^9, 3.568133072344389*^9}, {3.5681331740533676`*^9, 3.5681331951446047`*^9}, { 3.568133267793932*^9, 3.5681332684803333`*^9}, {3.5681335079111547`*^9, 3.568133536833606*^9}, {3.5681336272201643`*^9, 3.5681336314945717`*^9}, { 3.568133737994359*^9, 3.568133744000369*^9}, {3.568133978515581*^9, 3.5681339917912045`*^9}, {3.5681340324916763`*^9, 3.5681340418204927`*^9}, {3.568134244262048*^9, 3.5681342454944506`*^9}, { 3.5681343354754086`*^9, 3.568134336099409*^9}, {3.5681345828762426`*^9, 3.568134583952645*^9}, {3.5681348406666956`*^9, 3.5681348474683075`*^9}, 3.568134889151581*^9, {3.5681352914606876`*^9, 3.568135296265496*^9}, { 3.568135518877887*^9, 3.568135519595488*^9}, 3.5681357593679094`*^9, { 3.5681787035360527`*^9, 3.568178728449296*^9}, 3.5682779128076954`*^9, { 3.572714864038488*^9, 3.572714889419732*^9}, {3.5727149730514793`*^9, 3.57271500191153*^9}, {3.572715036933592*^9, 3.5727150664176435`*^9}, { 3.572715803191337*^9, 3.572715915183934*^9}, {3.5727159899548655`*^9, 3.572716037722149*^9}, {3.572767087700392*^9, 3.5727670990260115`*^9}, { 3.5727756458897667`*^9, 3.5727756648125997`*^9}}], Cell[CellGroupData[{ Cell[BoxData[ RowBox[{ RowBox[{ RowBox[{"c", "=", RowBox[{"Take", "[", RowBox[{"c", ",", "P"}], "]"}]}], ";"}], "\n"}]], "Input", CellChangeTimes->{{3.5681154444347754`*^9, 3.568115497147268*^9}, { 3.568127214924899*^9, 3.568127265796589*^9}, {3.568128215276656*^9, 3.568128238536297*^9}, {3.568130718566253*^9, 3.5681307485339055`*^9}, 3.5681308175952272`*^9, {3.5681308916497574`*^9, 3.5681309458598523`*^9}, { 3.5681309983383446`*^9, 3.5681310118947687`*^9}, {3.5681310723448744`*^9, 3.568131074357278*^9}, {3.5681315215476637`*^9, 3.568131584509374*^9}, { 3.56813162789305*^9, 3.5681316427754765`*^9}, {3.5681317113063965`*^9, 3.568131715268804*^9}, {3.5681323203938665`*^9, 3.5681323260098763`*^9}, { 3.568132387567585*^9, 3.568132440014877*^9}, {3.5681325121026034`*^9, 3.568132590945142*^9}, {3.56813274298981*^9, 3.5681327548302307`*^9}, { 3.568132877867647*^9, 3.568132888335265*^9}, {3.568133052345154*^9, 3.568133072344389*^9}, {3.5681331740533676`*^9, 3.5681331951446047`*^9}, { 3.568133267793932*^9, 3.5681332684803333`*^9}, {3.5681335079111547`*^9, 3.568133536833606*^9}, {3.5681336272201643`*^9, 3.5681336314945717`*^9}, { 3.568133737994359*^9, 3.568133744000369*^9}, {3.568133978515581*^9, 3.5681339917912045`*^9}, {3.5681340324916763`*^9, 3.5681340418204927`*^9}, {3.568134244262048*^9, 3.5681342454944506`*^9}, { 3.5681343354754086`*^9, 3.568134336099409*^9}, {3.5681345828762426`*^9, 3.568134583952645*^9}, {3.5681348406666956`*^9, 3.5681348474683075`*^9}, 3.568134889151581*^9, {3.5681352914606876`*^9, 3.568135296265496*^9}, { 3.568135518877887*^9, 3.568135519595488*^9}, 3.5681357593679094`*^9, { 3.5681787035360527`*^9, 3.568178728449296*^9}, 3.5682779128076954`*^9, { 3.572714864038488*^9, 3.572714889419732*^9}, {3.5727149730514793`*^9, 3.57271500191153*^9}, {3.572715036933592*^9, 3.5727150664176435`*^9}, { 3.572715803191337*^9, 3.572715915183934*^9}, {3.5727159899548655`*^9, 3.572716037722149*^9}, {3.572767087700392*^9, 3.5727670990260115`*^9}, 3.5727756458897667`*^9, 3.572777520389059*^9}], Cell[BoxData[ RowBox[{"{", RowBox[{"6", ",", "4", ",", "5"}], "}"}]], "Output", CellChangeTimes->{3.5727773848092203`*^9}] }, Open ]], Cell[BoxData[{ RowBox[{ RowBox[{"v", "=", RowBox[{"Table", "[", RowBox[{ RowBox[{"Join", "[", RowBox[{ RowBox[{"t", "[", RowBox[{"[", RowBox[{"c", "[", RowBox[{"[", "i", "]"}], "]"}], "]"}], "]"}], ",", RowBox[{"{", "1", "}"}]}], "]"}], ",", RowBox[{"{", RowBox[{"i", ",", "1", ",", "P"}], "}"}]}], "]"}]}], ";"}], "\n", RowBox[{ RowBox[{"x2", "=", RowBox[{"t", "[", RowBox[{"[", RowBox[{ RowBox[{"c", "[", RowBox[{"[", "2", "]"}], "]"}], ",", "1"}], "]"}], "]"}]}], ";"}], "\[IndentingNewLine]", RowBox[{ RowBox[{ RowBox[{"y2", "=", RowBox[{"t", "[", RowBox[{"[", RowBox[{ RowBox[{"c", "[", RowBox[{"[", "2", "]"}], "]"}], ",", "2"}], "]"}], "]"}]}], ";"}], " "}], "\[IndentingNewLine]", RowBox[{ RowBox[{"z2", "=", RowBox[{"t", "[", RowBox[{"[", RowBox[{ RowBox[{"c", "[", RowBox[{"[", "2", "]"}], "]"}], ",", "3"}], "]"}], "]"}]}], ";", " ", RowBox[{"(*", " ", RowBox[{"to", " ", "be", " ", "set", " ", "to", " ", RowBox[{"(", RowBox[{"0", ",", "0", ",", "0"}], ")"}]}], " ", "*)"}], "\[IndentingNewLine]", RowBox[{"Q", "=", RowBox[{"{", RowBox[{ RowBox[{"{", RowBox[{"1", ",", "0", ",", "0", ",", "0"}], "}"}], ",", "\[IndentingNewLine]", RowBox[{"{", RowBox[{"0", ",", "1", ",", "0", ",", "0"}], "}"}], ",", "\[IndentingNewLine]", RowBox[{"{", RowBox[{"0", ",", "0", ",", "1", ",", "0"}], "}"}], ",", "\[IndentingNewLine]", RowBox[{"{", RowBox[{ RowBox[{"-", "x2"}], ",", RowBox[{"-", "y2"}], ",", RowBox[{"-", "z2"}], ",", "1"}], "}"}]}], "}"}]}], ";"}], "\n", RowBox[{ RowBox[{"p", "=", RowBox[{"v", ".", "Q"}]}], ";"}], "\[IndentingNewLine]", RowBox[{ RowBox[{ RowBox[{"p", "=", RowBox[{"Table", "[", RowBox[{ RowBox[{"Take", "[", RowBox[{ RowBox[{"p", "[", RowBox[{"[", "i", "]"}], "]"}], ",", "3"}], "]"}], ",", RowBox[{"{", RowBox[{"i", ",", "1", ",", "P"}], "}"}]}], "]"}]}], ";"}], "\[IndentingNewLine]", 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"}]}]}]}], " ", "*)"}], "\n", RowBox[{"(*", " ", RowBox[{ RowBox[{ RowBox[{"rotate", " ", "p1", " ", "around", " ", "x"}], "-", RowBox[{"axis", " ", "until", " ", "the", " ", "z"}], "-", "comp"}], " ", "=", " ", "0"}], " ", "*)"}]}], "\n", RowBox[{ RowBox[{"T1", "=", RowBox[{"ArcTan", "[", RowBox[{ RowBox[{"p", "[", RowBox[{"[", RowBox[{"1", ",", "3"}], "]"}], "]"}], "/", RowBox[{"p", "[", RowBox[{"[", RowBox[{"1", ",", "2"}], "]"}], "]"}]}], "]"}]}], ";"}], "\n", RowBox[{ RowBox[{"U", "=", "p"}], ";"}], "\n", RowBox[{ RowBox[{"T", "=", RowBox[{"RotationMatrix", "[", RowBox[{"T1", ",", RowBox[{"{", RowBox[{"1", ",", "0", ",", "0"}], "}"}]}], "]"}]}], ";"}], "\[IndentingNewLine]", RowBox[{ RowBox[{ RowBox[{"p", "=", RowBox[{"U", ".", "T"}]}], ";"}], "\n", RowBox[{"(*", " ", RowBox[{ RowBox[{"Rotate", " ", "p1", " ", "around", " ", "z"}], "-", RowBox[{"axis", " ", "to", " ", "make", " ", "y"}], "-", RowBox[{"comp", " ", "to", " ", "0"}]}], " ", "*)"}]}], "\n", RowBox[{ RowBox[{"T2", "=", RowBox[{"ArcTan", "[", RowBox[{ RowBox[{"p", "[", RowBox[{"[", RowBox[{"1", ",", "2"}], "]"}], "]"}], "/", RowBox[{"p", "[", RowBox[{"[", RowBox[{"1", ",", "1"}], "]"}], "]"}]}], "]"}]}], ";"}], "\n", RowBox[{ RowBox[{"U", "=", "p"}], ";"}], "\[IndentingNewLine]", RowBox[{ RowBox[{"T", "=", RowBox[{"RotationMatrix", "[", RowBox[{"T2", ",", RowBox[{"{", RowBox[{"0", ",", "0", ",", "1"}], "}"}]}], "]"}]}], ";"}], "\[IndentingNewLine]", RowBox[{ RowBox[{ RowBox[{"p", "=", RowBox[{"U", ".", "T"}]}], ";"}], "\n", RowBox[{"(*", " ", RowBox[{ RowBox[{ RowBox[{"rotate", " ", "p2", " ", "around", " ", "x"}], "-", RowBox[{"axis", " ", "to", " ", "make", " ", "z"}], "-", "comp"}], " ", "=", " ", "0"}], " ", "*)"}]}], "\n", RowBox[{ RowBox[{"T3", "=", RowBox[{"ArcTan", "[", RowBox[{ RowBox[{"p", "[", RowBox[{"[", RowBox[{"3", ",", "3"}], "]"}], "]"}], "/", RowBox[{"p", "[", RowBox[{"[", RowBox[{"3", ",", "2"}], "]"}], "]"}]}], "]"}]}], ";"}], "\n", RowBox[{ RowBox[{"U", "=", "p"}], ";"}], "\n", RowBox[{ RowBox[{"T", "=", RowBox[{"RotationMatrix", "[", RowBox[{"T3", ",", RowBox[{"{", RowBox[{"1", ",", "0", ",", "0"}], "}"}]}], "]"}]}], ";"}], "\[IndentingNewLine]", RowBox[{ RowBox[{ RowBox[{"p", "=", RowBox[{"Chop", "[", RowBox[{"U", ".", "T"}], "]"}]}], ";"}], "\n", RowBox[{"(*", " ", RowBox[{ RowBox[{"generate", " ", "two", " ", "pi", " ", "clouds"}], ",", " ", RowBox[{"and", " ", "reverse", " ", "all", " ", "transformations"}]}], " ", "*)"}]}], "\n", RowBox[{ RowBox[{"nk", "=", "p"}], ";"}], "\[IndentingNewLine]", RowBox[{ RowBox[{"nl", "=", "p"}], ";"}], "\[IndentingNewLine]", RowBox[{ RowBox[{ RowBox[{"nk", "[", RowBox[{"[", RowBox[{"1", ",", "3"}], "]"}], "]"}], "=", "rpo"}], ";"}], "\[IndentingNewLine]", RowBox[{ RowBox[{ RowBox[{"nl", "[", RowBox[{"[", RowBox[{"1", ",", "3"}], "]"}], "]"}], "=", RowBox[{"-", "rpi"}]}], ";"}], "\n", RowBox[{ RowBox[{"U", "=", "p"}], ";"}], "\n", RowBox[{ RowBox[{"U1", "=", "nk"}], ";"}], "\[IndentingNewLine]", RowBox[{ RowBox[{"U2", "=", "nl"}], ";"}], "\[IndentingNewLine]", RowBox[{ RowBox[{"T", "=", RowBox[{"RotationMatrix", "[", RowBox[{ RowBox[{"-", "T3"}], ",", RowBox[{"{", RowBox[{"1", ",", "0", ",", "0"}], "}"}]}], "]"}]}], ";"}], "\[IndentingNewLine]", RowBox[{ RowBox[{"p", "=", RowBox[{"U", ".", "T"}]}], ";"}], "\n", RowBox[{ RowBox[{"nk", "=", RowBox[{"U1", ".", "T"}]}], ";"}], "\[IndentingNewLine]", RowBox[{ RowBox[{"nl", "=", RowBox[{"U2", ".", "T"}]}], ";"}], "\n", RowBox[{ RowBox[{"U", "=", "p"}], ";"}], "\n", RowBox[{ RowBox[{"U1", "=", "nk"}], ";"}], "\[IndentingNewLine]", RowBox[{ RowBox[{"U2", "=", "nl"}], ";"}], "\[IndentingNewLine]", RowBox[{ RowBox[{"T", "=", RowBox[{"RotationMatrix", "[", RowBox[{ RowBox[{"-", "T2"}], ",", RowBox[{"{", RowBox[{"0", ",", "0", ",", "1"}], "}"}]}], "]"}]}], ";"}], "\[IndentingNewLine]", RowBox[{ RowBox[{"p", "=", RowBox[{"U", ".", "T"}]}], ";"}], "\n", RowBox[{ RowBox[{"nk", "=", RowBox[{"U1", ".", "T"}]}], ";"}], "\[IndentingNewLine]", RowBox[{ RowBox[{"nl", "=", RowBox[{"U2", ".", "T"}]}], ";"}], "\n", RowBox[{ RowBox[{"U", "=", "p"}], ";"}], "\n", RowBox[{ RowBox[{"U1", "=", "nk"}], ";"}], "\[IndentingNewLine]", RowBox[{ RowBox[{"U2", "=", "nl"}], ";"}], "\[IndentingNewLine]", RowBox[{ RowBox[{"T", "=", RowBox[{"RotationMatrix", "[", RowBox[{ RowBox[{"-", "T1"}], ",", RowBox[{"{", RowBox[{"1", ",", "0", ",", "0"}], "}"}]}], "]"}]}], ";"}], "\[IndentingNewLine]", RowBox[{ RowBox[{"p", "=", RowBox[{"U", ".", "T"}]}], ";"}], "\n", RowBox[{ RowBox[{"nk", "=", RowBox[{"U1", ".", "T"}]}], ";"}], "\[IndentingNewLine]", RowBox[{ RowBox[{"nl", "=", RowBox[{"U2", ".", "T"}]}], ";"}], "\n", RowBox[{ RowBox[{"Clear", "[", RowBox[{"v", ",", "v1", ",", "v2"}], "]"}], ";"}], "\[IndentingNewLine]", RowBox[{ RowBox[{"v", " ", "=", RowBox[{"Table", "[", RowBox[{ RowBox[{"Join", "[", RowBox[{ RowBox[{"p", "[", RowBox[{"[", "i", "]"}], "]"}], ",", RowBox[{"{", "1", "}"}]}], "]"}], ",", RowBox[{"{", RowBox[{"i", ",", "1", ",", "P"}], "}"}]}], "]"}]}], ";"}], "\[IndentingNewLine]", RowBox[{ RowBox[{"v1", "=", RowBox[{"Table", "[", RowBox[{ RowBox[{"Join", "[", RowBox[{ RowBox[{"nk", "[", RowBox[{"[", "i", "]"}], "]"}], ",", RowBox[{"{", "1", "}"}]}], "]"}], ",", RowBox[{"{", RowBox[{"i", ",", "1", ",", "P"}], "}"}]}], "]"}]}], ";"}], "\[IndentingNewLine]", RowBox[{ RowBox[{"v2", "=", RowBox[{"Table", "[", RowBox[{ RowBox[{"Join", "[", RowBox[{ RowBox[{"nl", "[", RowBox[{"[", "i", "]"}], "]"}], ",", RowBox[{"{", "1", "}"}]}], "]"}], ",", RowBox[{"{", RowBox[{"i", ",", "1", ",", "P"}], "}"}]}], "]"}]}], ";"}], "\n", RowBox[{ RowBox[{"Q", "=", RowBox[{"{", RowBox[{ RowBox[{"{", RowBox[{"1", ",", "0", ",", "0", ",", "0"}], "}"}], ",", "\[IndentingNewLine]", RowBox[{"{", RowBox[{"0", ",", "1", ",", "0", ",", "0"}], "}"}], ",", "\[IndentingNewLine]", RowBox[{"{", RowBox[{"0", ",", "0", ",", "1", ",", "0"}], "}"}], ",", "\[IndentingNewLine]", RowBox[{"{", RowBox[{"x2", ",", "y2", ",", "z2", ",", "1"}], "}"}]}], "}"}]}], ";"}], "\[IndentingNewLine]", RowBox[{ RowBox[{"p", "=", RowBox[{"v", ".", "Q"}]}], ";"}], "\[IndentingNewLine]", RowBox[{ RowBox[{"nk", "=", RowBox[{"v1", ".", "Q"}]}], ";"}], "\[IndentingNewLine]", RowBox[{ RowBox[{"nl", "=", RowBox[{"v2", ".", "Q"}]}], ";"}], "\[IndentingNewLine]", RowBox[{ RowBox[{"p", "=", RowBox[{"Table", "[", RowBox[{ RowBox[{"Take", "[", RowBox[{ RowBox[{"p", "[", RowBox[{"[", "i", "]"}], "]"}], ",", "3"}], "]"}], ",", RowBox[{"{", RowBox[{"i", ",", "1", ",", "P"}], "}"}]}], "]"}]}], ";"}], "\[IndentingNewLine]", RowBox[{ RowBox[{"nk", "=", RowBox[{"Table", "[", RowBox[{ RowBox[{"Take", "[", RowBox[{ RowBox[{"nk", "[", RowBox[{"[", "i", "]"}], "]"}], ",", "3"}], "]"}], ",", RowBox[{"{", RowBox[{"i", ",", "1", ",", "P"}], "}"}]}], "]"}]}], ";"}], "\[IndentingNewLine]", RowBox[{ RowBox[{"nl", "=", RowBox[{"Table", "[", RowBox[{ RowBox[{"Take", "[", RowBox[{ RowBox[{"nl", "[", RowBox[{"[", "i", "]"}], "]"}], ",", "3"}], "]"}], ",", RowBox[{"{", RowBox[{"i", ",", "1", ",", "P"}], "}"}]}], "]"}]}], ";"}], "\[IndentingNewLine]", RowBox[{ RowBox[{ RowBox[{"tpo", "[", RowBox[{"[", "k", "]"}], "]"}], "=", "nk"}], ";"}], "\[IndentingNewLine]", RowBox[{ RowBox[{ RowBox[{ RowBox[{"tpu", "[", RowBox[{"[", "k", "]"}], "]"}], "=", "nl"}], ";"}], "\[IndentingNewLine]"}], "\[IndentingNewLine]", RowBox[{ RowBox[{ RowBox[{"k", "=", "3"}], ";"}], "\[IndentingNewLine]", RowBox[{"(*", RowBox[{ RowBox[{"Label", "[", "\"\\"", "]"}], ";"}], "*)"}], "\[IndentingNewLine]", RowBox[{"(*", 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]", RowBox[{ RowBox[{"c", "=", RowBox[{"conn", "[", RowBox[{"[", RowBox[{"conj", "[", RowBox[{"[", "k", "]"}], "]"}], "]"}], "]"}]}], ";"}]}], "Input", CellChangeTimes->{{3.5681154444347754`*^9, 3.568115497147268*^9}, { 3.568127214924899*^9, 3.568127265796589*^9}, {3.568128215276656*^9, 3.568128238536297*^9}, {3.568130718566253*^9, 3.5681307485339055`*^9}, 3.5681308175952272`*^9, {3.5681308916497574`*^9, 3.5681309458598523`*^9}, { 3.5681309983383446`*^9, 3.5681310118947687`*^9}, {3.5681310723448744`*^9, 3.568131074357278*^9}, {3.5681315215476637`*^9, 3.568131584509374*^9}, { 3.56813162789305*^9, 3.5681316427754765`*^9}, {3.5681317113063965`*^9, 3.568131715268804*^9}, {3.5681323203938665`*^9, 3.5681323260098763`*^9}, { 3.568132387567585*^9, 3.568132440014877*^9}, {3.5681325121026034`*^9, 3.568132590945142*^9}, {3.56813274298981*^9, 3.5681327548302307`*^9}, { 3.568132877867647*^9, 3.568132888335265*^9}, {3.568133052345154*^9, 3.568133072344389*^9}, {3.5681331740533676`*^9, 3.5681331951446047`*^9}, { 3.568133267793932*^9, 3.5681332684803333`*^9}, {3.5681335079111547`*^9, 3.568133536833606*^9}, {3.5681336272201643`*^9, 3.5681336314945717`*^9}, { 3.568133737994359*^9, 3.568133744000369*^9}, {3.568133978515581*^9, 3.5681339917912045`*^9}, {3.5681340324916763`*^9, 3.5681340418204927`*^9}, {3.568134244262048*^9, 3.5681342454944506`*^9}, { 3.5681343354754086`*^9, 3.568134336099409*^9}, {3.5681345828762426`*^9, 3.568134583952645*^9}, {3.5681348406666956`*^9, 3.5681348474683075`*^9}, 3.568134889151581*^9, {3.5681352914606876`*^9, 3.568135296265496*^9}, { 3.568135518877887*^9, 3.568135519595488*^9}, 3.5681357593679094`*^9, { 3.5681787035360527`*^9, 3.568178728449296*^9}, 3.5682779128076954`*^9, { 3.572714864038488*^9, 3.572714889419732*^9}, {3.5727149730514793`*^9, 3.57271500191153*^9}, {3.572715036933592*^9, 3.5727150664176435`*^9}, { 3.572715803191337*^9, 3.572715915183934*^9}, {3.5727159899548655`*^9, 3.572716037722149*^9}, {3.572767087700392*^9, 3.5727670990260115`*^9}, 3.5727756458897667`*^9, {3.5727757435615377`*^9, 3.572775750815551*^9}, { 3.572776683244788*^9, 3.572776731464473*^9}, {3.5727773475407553`*^9, 3.5727773517839622`*^9}}], Cell[CellGroupData[{ Cell[BoxData[ RowBox[{ RowBox[{"c", "=", RowBox[{"Take", "[", RowBox[{"c", ",", "P"}], "]"}]}], ";"}]], "Input", CellChangeTimes->{{3.5681154444347754`*^9, 3.568115497147268*^9}, { 3.568127214924899*^9, 3.568127265796589*^9}, {3.568128215276656*^9, 3.568128238536297*^9}, {3.568130718566253*^9, 3.5681307485339055`*^9}, 3.5681308175952272`*^9, {3.5681308916497574`*^9, 3.5681309458598523`*^9}, { 3.5681309983383446`*^9, 3.5681310118947687`*^9}, {3.5681310723448744`*^9, 3.568131074357278*^9}, {3.5681315215476637`*^9, 3.568131584509374*^9}, { 3.56813162789305*^9, 3.5681316427754765`*^9}, {3.5681317113063965`*^9, 3.568131715268804*^9}, {3.5681323203938665`*^9, 3.5681323260098763`*^9}, { 3.568132387567585*^9, 3.568132440014877*^9}, {3.5681325121026034`*^9, 3.568132590945142*^9}, {3.56813274298981*^9, 3.5681327548302307`*^9}, { 3.568132877867647*^9, 3.568132888335265*^9}, {3.568133052345154*^9, 3.568133072344389*^9}, {3.5681331740533676`*^9, 3.5681331951446047`*^9}, { 3.568133267793932*^9, 3.5681332684803333`*^9}, {3.5681335079111547`*^9, 3.568133536833606*^9}, {3.5681336272201643`*^9, 3.5681336314945717`*^9}, { 3.568133737994359*^9, 3.568133744000369*^9}, {3.568133978515581*^9, 3.5681339917912045`*^9}, {3.5681340324916763`*^9, 3.5681340418204927`*^9}, {3.568134244262048*^9, 3.5681342454944506`*^9}, { 3.5681343354754086`*^9, 3.568134336099409*^9}, {3.5681345828762426`*^9, 3.568134583952645*^9}, {3.5681348406666956`*^9, 3.5681348474683075`*^9}, 3.568134889151581*^9, {3.5681352914606876`*^9, 3.568135296265496*^9}, { 3.568135518877887*^9, 3.568135519595488*^9}, 3.5681357593679094`*^9, { 3.5681787035360527`*^9, 3.568178728449296*^9}, 3.5682779128076954`*^9, { 3.572714864038488*^9, 3.572714889419732*^9}, {3.5727149730514793`*^9, 3.57271500191153*^9}, {3.572715036933592*^9, 3.5727150664176435`*^9}, { 3.572715803191337*^9, 3.572715915183934*^9}, {3.5727159899548655`*^9, 3.572716037722149*^9}, {3.572767087700392*^9, 3.5727670990260115`*^9}, 3.5727756458897667`*^9, {3.5727757435615377`*^9, 3.572775750815551*^9}, 3.572777532026679*^9}], Cell[BoxData[ RowBox[{"{", RowBox[{"9", ",", "4", ",", "11"}], "}"}]], "Output", CellChangeTimes->{3.5727773848404207`*^9}] }, Open ]], Cell[BoxData[{ RowBox[{ RowBox[{"v", "=", RowBox[{"Table", "[", RowBox[{ RowBox[{"Join", "[", RowBox[{ RowBox[{"t", "[", RowBox[{"[", RowBox[{"c", "[", RowBox[{"[", "i", "]"}], "]"}], "]"}], "]"}], ",", RowBox[{"{", "1", "}"}]}], "]"}], ",", RowBox[{"{", RowBox[{"i", ",", "1", ",", "P"}], "}"}]}], "]"}]}], ";"}], "\n", RowBox[{ RowBox[{"x2", "=", RowBox[{"t", "[", RowBox[{"[", RowBox[{ RowBox[{"c", "[", RowBox[{"[", "2", "]"}], "]"}], ",", "1"}], "]"}], "]"}]}], ";"}], "\[IndentingNewLine]", RowBox[{ RowBox[{ RowBox[{"y2", "=", RowBox[{"t", "[", RowBox[{"[", RowBox[{ RowBox[{"c", "[", RowBox[{"[", "2", "]"}], "]"}], ",", "2"}], "]"}], "]"}]}], ";"}], " "}], "\[IndentingNewLine]", RowBox[{ RowBox[{"z2", "=", RowBox[{"t", "[", RowBox[{"[", RowBox[{ RowBox[{"c", "[", RowBox[{"[", "2", "]"}], "]"}], ",", "3"}], "]"}], "]"}]}], ";", " ", RowBox[{"(*", " ", RowBox[{"to", " ", "be", " ", "set", " ", "to", " ", RowBox[{"(", RowBox[{"0", ",", "0", ",", "0"}], ")"}]}], " ", "*)"}], "\[IndentingNewLine]", RowBox[{"Q", "=", RowBox[{"{", RowBox[{ RowBox[{"{", RowBox[{"1", ",", "0", ",", "0", ",", "0"}], "}"}], ",", "\[IndentingNewLine]", RowBox[{"{", RowBox[{"0", ",", "1", ",", "0", ",", "0"}], "}"}], ",", "\[IndentingNewLine]", RowBox[{"{", RowBox[{"0", ",", "0", ",", "1", ",", "0"}], "}"}], ",", "\[IndentingNewLine]", RowBox[{"{", RowBox[{ RowBox[{"-", "x2"}], ",", RowBox[{"-", "y2"}], ",", RowBox[{"-", "z2"}], ",", "1"}], "}"}]}], "}"}]}], ";"}], "\n", RowBox[{ RowBox[{"p", "=", RowBox[{"v", ".", "Q"}]}], ";"}], "\[IndentingNewLine]", RowBox[{ RowBox[{ RowBox[{"p", "=", RowBox[{"Table", "[", RowBox[{ RowBox[{"Take", "[", RowBox[{ RowBox[{"p", "[", RowBox[{"[", "i", "]"}], "]"}], ",", "3"}], "]"}], ",", RowBox[{"{", RowBox[{"i", ",", "1", ",", "P"}], "}"}]}], "]"}]}], ";"}], "\n", 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"}]}]}]}], " ", "*)"}], "\n", RowBox[{"(*", " ", RowBox[{ RowBox[{ RowBox[{"rotate", " ", "p1", " ", "around", " ", "x"}], "-", RowBox[{"axis", " ", "until", " ", "the", " ", "z"}], "-", "comp"}], " ", "=", " ", "0"}], " ", "*)"}]}], "\[IndentingNewLine]", RowBox[{ RowBox[{"T1", "=", RowBox[{"ArcTan", "[", RowBox[{ RowBox[{"p", "[", RowBox[{"[", RowBox[{"1", ",", "3"}], "]"}], "]"}], "/", RowBox[{"p", "[", RowBox[{"[", RowBox[{"1", ",", "2"}], "]"}], "]"}]}], "]"}]}], ";"}], "\n", RowBox[{ RowBox[{"U", "=", "p"}], ";"}], "\n", RowBox[{ RowBox[{"T", "=", RowBox[{"RotationMatrix", "[", RowBox[{"T1", ",", RowBox[{"{", RowBox[{"1", ",", "0", ",", "0"}], "}"}]}], "]"}]}], ";"}], "\[IndentingNewLine]", RowBox[{ RowBox[{ RowBox[{"p", "=", RowBox[{"U", ".", "T"}]}], ";"}], "\n", RowBox[{"(*", " ", RowBox[{ RowBox[{"Rotate", " ", "p1", " ", "around", " ", "z"}], "-", RowBox[{"axis", " ", "to", " ", "make", " ", "y"}], "-", RowBox[{"comp", " ", "to", " ", "0"}]}], " ", "*)"}]}], "\n", RowBox[{ RowBox[{"T2", "=", RowBox[{"ArcTan", "[", RowBox[{ RowBox[{"p", "[", RowBox[{"[", RowBox[{"1", ",", "2"}], "]"}], "]"}], "/", RowBox[{"p", "[", RowBox[{"[", RowBox[{"1", ",", "1"}], "]"}], "]"}]}], "]"}]}], ";"}], "\n", RowBox[{ RowBox[{"U", "=", "p"}], ";"}], "\[IndentingNewLine]", RowBox[{ RowBox[{"T", "=", RowBox[{"RotationMatrix", "[", RowBox[{"T2", ",", RowBox[{"{", RowBox[{"0", ",", "0", ",", "1"}], "}"}]}], "]"}]}], ";"}], "\[IndentingNewLine]", RowBox[{ RowBox[{ RowBox[{"p", "=", RowBox[{"U", ".", "T"}]}], ";"}], "\n", RowBox[{"(*", " ", RowBox[{ RowBox[{ RowBox[{"rotate", " ", "p2", " ", "around", " ", "x"}], "-", RowBox[{"axis", " ", "to", " ", "make", " ", "z"}], "-", "comp"}], " ", "=", " ", "0"}], " ", "*)"}]}], "\n", RowBox[{ RowBox[{"T3", "=", RowBox[{"ArcTan", "[", RowBox[{ RowBox[{"p", "[", RowBox[{"[", RowBox[{"3", ",", "3"}], "]"}], "]"}], "/", RowBox[{"p", "[", RowBox[{"[", RowBox[{"3", ",", "2"}], "]"}], "]"}]}], "]"}]}], ";"}], "\n", RowBox[{ RowBox[{"U", "=", "p"}], ";"}], "\n", RowBox[{ RowBox[{"T", "=", RowBox[{"RotationMatrix", "[", RowBox[{"T3", ",", RowBox[{"{", RowBox[{"1", ",", "0", ",", "0"}], "}"}]}], "]"}]}], ";"}], "\[IndentingNewLine]", RowBox[{ RowBox[{ RowBox[{"p", "=", RowBox[{"Chop", "[", RowBox[{"U", ".", "T"}], "]"}]}], ";"}], "\n", RowBox[{"(*", " ", RowBox[{ RowBox[{"generate", " ", "two", " ", "pi", " ", "clouds"}], ",", " ", RowBox[{"and", " ", "reverse", " ", "all", " ", "transformations"}]}], " ", "*)"}]}], "\n", RowBox[{ RowBox[{"nk", "=", "p"}], ";"}], "\[IndentingNewLine]", RowBox[{ RowBox[{"nl", "=", "p"}], ";"}], "\[IndentingNewLine]", RowBox[{ RowBox[{ RowBox[{"nk", "[", RowBox[{"[", RowBox[{"1", ",", "3"}], "]"}], "]"}], "=", "rpo"}], ";"}], "\[IndentingNewLine]", RowBox[{ RowBox[{ RowBox[{"nl", "[", RowBox[{"[", RowBox[{"1", ",", "3"}], "]"}], "]"}], "=", RowBox[{"-", "rpi"}]}], ";"}], "\n", RowBox[{ RowBox[{"U", "=", "p"}], ";"}], "\n", RowBox[{ RowBox[{"U1", "=", "nk"}], ";"}], "\[IndentingNewLine]", RowBox[{ RowBox[{"U2", "=", "nl"}], ";"}], "\[IndentingNewLine]", RowBox[{ RowBox[{"T", "=", RowBox[{"RotationMatrix", "[", RowBox[{ RowBox[{"-", "T3"}], ",", RowBox[{"{", RowBox[{"1", ",", "0", ",", "0"}], "}"}]}], "]"}]}], ";"}], "\[IndentingNewLine]", RowBox[{ RowBox[{"p", "=", RowBox[{"U", ".", "T"}]}], ";"}], "\n", RowBox[{ RowBox[{"nk", "=", RowBox[{"U1", ".", "T"}]}], ";"}], "\[IndentingNewLine]", RowBox[{ RowBox[{"nl", "=", RowBox[{"U2", ".", "T"}]}], ";"}], "\n", RowBox[{ RowBox[{"U", "=", "p"}], ";"}], "\n", RowBox[{ RowBox[{"U1", "=", "nk"}], ";"}], "\[IndentingNewLine]", RowBox[{ RowBox[{"U2", "=", "nl"}], ";"}], "\[IndentingNewLine]", RowBox[{ RowBox[{"T", "=", RowBox[{"RotationMatrix", "[", RowBox[{ RowBox[{"-", "T2"}], ",", RowBox[{"{", RowBox[{"0", ",", "0", ",", "1"}], "}"}]}], "]"}]}], ";"}], "\[IndentingNewLine]", RowBox[{ RowBox[{"p", "=", RowBox[{"U", ".", "T"}]}], ";"}], "\n", RowBox[{ RowBox[{"nk", "=", RowBox[{"U1", ".", "T"}]}], ";"}], "\[IndentingNewLine]", RowBox[{ RowBox[{"nl", "=", RowBox[{"U2", ".", "T"}]}], ";"}], "\n", RowBox[{ RowBox[{"U", "=", "p"}], ";"}], "\n", RowBox[{ RowBox[{"U1", "=", "nk"}], ";"}], "\[IndentingNewLine]", RowBox[{ RowBox[{"U2", "=", "nl"}], ";"}], "\[IndentingNewLine]", RowBox[{ RowBox[{"T", "=", RowBox[{"RotationMatrix", "[", RowBox[{ RowBox[{"-", "T1"}], ",", RowBox[{"{", RowBox[{"1", ",", "0", ",", "0"}], "}"}]}], "]"}]}], ";"}], "\[IndentingNewLine]", RowBox[{ RowBox[{"p", "=", RowBox[{"U", ".", "T"}]}], ";"}], "\n", RowBox[{ RowBox[{"nk", "=", RowBox[{"U1", ".", "T"}]}], ";"}], "\[IndentingNewLine]", RowBox[{ RowBox[{"nl", "=", RowBox[{"U2", ".", "T"}]}], ";"}], "\n", RowBox[{ RowBox[{"Clear", "[", RowBox[{"v", ",", "v1", ",", "v2"}], "]"}], ";"}], "\[IndentingNewLine]", RowBox[{ RowBox[{"v", " ", "=", RowBox[{"Table", "[", RowBox[{ RowBox[{"Join", "[", RowBox[{ RowBox[{"p", "[", RowBox[{"[", "i", "]"}], "]"}], ",", RowBox[{"{", "1", "}"}]}], "]"}], ",", RowBox[{"{", RowBox[{"i", ",", "1", ",", "P"}], "}"}]}], "]"}]}], ";"}], "\[IndentingNewLine]", RowBox[{ RowBox[{"v1", "=", RowBox[{"Table", "[", RowBox[{ RowBox[{"Join", "[", RowBox[{ RowBox[{"nk", "[", RowBox[{"[", "i", "]"}], "]"}], ",", RowBox[{"{", "1", "}"}]}], "]"}], ",", RowBox[{"{", RowBox[{"i", ",", "1", ",", "P"}], "}"}]}], "]"}]}], ";"}], "\[IndentingNewLine]", RowBox[{ RowBox[{"v2", "=", RowBox[{"Table", "[", RowBox[{ RowBox[{"Join", "[", RowBox[{ RowBox[{"nl", "[", RowBox[{"[", "i", "]"}], "]"}], ",", RowBox[{"{", "1", "}"}]}], "]"}], ",", RowBox[{"{", RowBox[{"i", ",", "1", ",", "P"}], "}"}]}], "]"}]}], ";"}], "\n", RowBox[{ RowBox[{"Q", "=", RowBox[{"{", RowBox[{ RowBox[{"{", RowBox[{"1", ",", "0", ",", "0", ",", "0"}], "}"}], ",", "\[IndentingNewLine]", RowBox[{"{", RowBox[{"0", ",", "1", ",", "0", ",", "0"}], "}"}], ",", "\[IndentingNewLine]", RowBox[{"{", RowBox[{"0", ",", "0", ",", "1", ",", "0"}], "}"}], ",", "\[IndentingNewLine]", RowBox[{"{", RowBox[{"x2", ",", "y2", ",", "z2", ",", "1"}], "}"}]}], "}"}]}], ";"}], "\[IndentingNewLine]", RowBox[{ RowBox[{"p", "=", RowBox[{"v", ".", "Q"}]}], ";"}], "\[IndentingNewLine]", RowBox[{ RowBox[{"nk", "=", RowBox[{"v1", ".", "Q"}]}], ";"}], "\[IndentingNewLine]", RowBox[{ RowBox[{"nl", "=", RowBox[{"v2", ".", "Q"}]}], ";"}], "\[IndentingNewLine]", RowBox[{ RowBox[{"p", "=", RowBox[{"Table", "[", RowBox[{ RowBox[{"Take", "[", RowBox[{ RowBox[{"p", "[", RowBox[{"[", "i", "]"}], "]"}], ",", "3"}], "]"}], ",", RowBox[{"{", RowBox[{"i", ",", "1", ",", "P"}], "}"}]}], "]"}]}], ";"}], "\[IndentingNewLine]", RowBox[{ RowBox[{"nk", "=", RowBox[{"Table", "[", RowBox[{ RowBox[{"Take", "[", RowBox[{ RowBox[{"nk", "[", RowBox[{"[", "i", "]"}], "]"}], ",", "3"}], "]"}], ",", RowBox[{"{", RowBox[{"i", ",", "1", ",", "P"}], "}"}]}], "]"}]}], ";"}], "\[IndentingNewLine]", RowBox[{ RowBox[{"nl", "=", RowBox[{"Table", "[", RowBox[{ RowBox[{"Take", "[", RowBox[{ RowBox[{"nl", "[", RowBox[{"[", "i", "]"}], "]"}], ",", "3"}], "]"}], ",", RowBox[{"{", RowBox[{"i", ",", "1", ",", "P"}], "}"}]}], "]"}]}], ";"}], "\[IndentingNewLine]", RowBox[{ RowBox[{ RowBox[{"tpo", "[", RowBox[{"[", "k", "]"}], "]"}], "=", "nk"}], ";"}], "\[IndentingNewLine]", RowBox[{ RowBox[{ RowBox[{ RowBox[{"tpu", "[", RowBox[{"[", "k", "]"}], "]"}], "=", "nl"}], ";"}], "\[IndentingNewLine]"}], "\[IndentingNewLine]", RowBox[{ RowBox[{ RowBox[{"k", "=", "4"}], ";"}], "\[IndentingNewLine]", RowBox[{"(*", RowBox[{ RowBox[{"Label", "[", "\"\\"", "]"}], ";"}], "*)"}], "\[IndentingNewLine]", RowBox[{"(*", 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]", RowBox[{ RowBox[{"c", "=", RowBox[{"conn", "[", RowBox[{"[", RowBox[{"conj", "[", RowBox[{"[", "k", "]"}], "]"}], "]"}], "]"}]}], ";"}]}], "Input", CellChangeTimes->{{3.5681154444347754`*^9, 3.568115497147268*^9}, { 3.568127214924899*^9, 3.568127265796589*^9}, {3.568128215276656*^9, 3.568128238536297*^9}, {3.568130718566253*^9, 3.5681307485339055`*^9}, 3.5681308175952272`*^9, {3.5681308916497574`*^9, 3.5681309458598523`*^9}, { 3.5681309983383446`*^9, 3.5681310118947687`*^9}, {3.5681310723448744`*^9, 3.568131074357278*^9}, {3.5681315215476637`*^9, 3.568131584509374*^9}, { 3.56813162789305*^9, 3.5681316427754765`*^9}, {3.5681317113063965`*^9, 3.568131715268804*^9}, {3.5681323203938665`*^9, 3.5681323260098763`*^9}, { 3.568132387567585*^9, 3.568132440014877*^9}, {3.5681325121026034`*^9, 3.568132590945142*^9}, {3.56813274298981*^9, 3.5681327548302307`*^9}, { 3.568132877867647*^9, 3.568132888335265*^9}, {3.568133052345154*^9, 3.568133072344389*^9}, {3.5681331740533676`*^9, 3.5681331951446047`*^9}, { 3.568133267793932*^9, 3.5681332684803333`*^9}, {3.5681335079111547`*^9, 3.568133536833606*^9}, {3.5681336272201643`*^9, 3.5681336314945717`*^9}, { 3.568133737994359*^9, 3.568133744000369*^9}, {3.568133978515581*^9, 3.5681339917912045`*^9}, {3.5681340324916763`*^9, 3.5681340418204927`*^9}, {3.568134244262048*^9, 3.5681342454944506`*^9}, { 3.5681343354754086`*^9, 3.568134336099409*^9}, {3.5681345828762426`*^9, 3.568134583952645*^9}, {3.5681348406666956`*^9, 3.5681348474683075`*^9}, 3.568134889151581*^9, {3.5681352914606876`*^9, 3.568135296265496*^9}, { 3.568135518877887*^9, 3.568135519595488*^9}, 3.5681357593679094`*^9, { 3.5681787035360527`*^9, 3.568178728449296*^9}, 3.5682779128076954`*^9, { 3.572714864038488*^9, 3.572714889419732*^9}, {3.5727149730514793`*^9, 3.57271500191153*^9}, {3.572715036933592*^9, 3.5727150664176435`*^9}, { 3.572715803191337*^9, 3.572715915183934*^9}, {3.5727159899548655`*^9, 3.572716037722149*^9}, {3.572767087700392*^9, 3.5727670990260115`*^9}, 3.5727756458897667`*^9, {3.5727757435615377`*^9, 3.5727757757599945`*^9}, { 3.572776755363715*^9, 3.572776794441784*^9}}], Cell[CellGroupData[{ Cell[BoxData[ RowBox[{ RowBox[{ RowBox[{"c", "=", RowBox[{"Take", "[", RowBox[{"c", ",", "P"}], "]"}]}], ";"}], "\n"}]], "Input", CellChangeTimes->{{3.5681154444347754`*^9, 3.568115497147268*^9}, { 3.568127214924899*^9, 3.568127265796589*^9}, {3.568128215276656*^9, 3.568128238536297*^9}, {3.568130718566253*^9, 3.5681307485339055`*^9}, 3.5681308175952272`*^9, {3.5681308916497574`*^9, 3.5681309458598523`*^9}, { 3.5681309983383446`*^9, 3.5681310118947687`*^9}, {3.5681310723448744`*^9, 3.568131074357278*^9}, {3.5681315215476637`*^9, 3.568131584509374*^9}, { 3.56813162789305*^9, 3.5681316427754765`*^9}, {3.5681317113063965`*^9, 3.568131715268804*^9}, {3.5681323203938665`*^9, 3.5681323260098763`*^9}, { 3.568132387567585*^9, 3.568132440014877*^9}, {3.5681325121026034`*^9, 3.568132590945142*^9}, {3.56813274298981*^9, 3.5681327548302307`*^9}, { 3.568132877867647*^9, 3.568132888335265*^9}, {3.568133052345154*^9, 3.568133072344389*^9}, {3.5681331740533676`*^9, 3.5681331951446047`*^9}, { 3.568133267793932*^9, 3.5681332684803333`*^9}, {3.5681335079111547`*^9, 3.568133536833606*^9}, {3.5681336272201643`*^9, 3.5681336314945717`*^9}, { 3.568133737994359*^9, 3.568133744000369*^9}, {3.568133978515581*^9, 3.5681339917912045`*^9}, {3.5681340324916763`*^9, 3.5681340418204927`*^9}, {3.568134244262048*^9, 3.5681342454944506`*^9}, { 3.5681343354754086`*^9, 3.568134336099409*^9}, {3.5681345828762426`*^9, 3.568134583952645*^9}, {3.5681348406666956`*^9, 3.5681348474683075`*^9}, 3.568134889151581*^9, {3.5681352914606876`*^9, 3.568135296265496*^9}, { 3.568135518877887*^9, 3.568135519595488*^9}, 3.5681357593679094`*^9, { 3.5681787035360527`*^9, 3.568178728449296*^9}, 3.5682779128076954`*^9, { 3.572714864038488*^9, 3.572714889419732*^9}, {3.5727149730514793`*^9, 3.57271500191153*^9}, {3.572715036933592*^9, 3.5727150664176435`*^9}, { 3.572715803191337*^9, 3.572715915183934*^9}, {3.5727159899548655`*^9, 3.572716037722149*^9}, {3.572767087700392*^9, 3.5727670990260115`*^9}, 3.5727756458897667`*^9, {3.5727757435615377`*^9, 3.5727757757599945`*^9}, 3.572777545208702*^9}], Cell[BoxData[ RowBox[{"{", RowBox[{"11", ",", "9", ",", "12"}], "}"}]], "Output", CellChangeTimes->{3.572777384871621*^9}] }, Open ]], Cell[BoxData[{ RowBox[{ RowBox[{"v", "=", RowBox[{"Table", "[", RowBox[{ RowBox[{"Join", "[", RowBox[{ RowBox[{"t", "[", RowBox[{"[", RowBox[{"c", "[", RowBox[{"[", "i", "]"}], "]"}], "]"}], "]"}], ",", RowBox[{"{", "1", "}"}]}], "]"}], ",", RowBox[{"{", RowBox[{"i", ",", "1", ",", "P"}], "}"}]}], "]"}]}], ";"}], "\n", RowBox[{ RowBox[{"x2", "=", RowBox[{"t", "[", RowBox[{"[", RowBox[{ RowBox[{"c", "[", RowBox[{"[", "2", "]"}], "]"}], ",", "1"}], "]"}], "]"}]}], ";"}], "\[IndentingNewLine]", RowBox[{ RowBox[{ RowBox[{"y2", "=", RowBox[{"t", "[", RowBox[{"[", RowBox[{ RowBox[{"c", "[", RowBox[{"[", "2", "]"}], "]"}], ",", "2"}], "]"}], "]"}]}], ";"}], " "}], "\[IndentingNewLine]", RowBox[{ RowBox[{"z2", "=", RowBox[{"t", "[", RowBox[{"[", RowBox[{ RowBox[{"c", "[", RowBox[{"[", "2", "]"}], "]"}], ",", "3"}], "]"}], "]"}]}], ";", " ", RowBox[{"(*", " ", RowBox[{"to", " ", "be", " ", "set", " ", "to", " ", RowBox[{"(", RowBox[{"0", ",", "0", ",", "0"}], ")"}]}], " ", "*)"}], "\[IndentingNewLine]", RowBox[{"Q", "=", RowBox[{"{", RowBox[{ RowBox[{"{", RowBox[{"1", ",", "0", ",", "0", ",", "0"}], "}"}], ",", "\[IndentingNewLine]", RowBox[{"{", RowBox[{"0", ",", "1", ",", "0", ",", "0"}], "}"}], ",", "\[IndentingNewLine]", RowBox[{"{", RowBox[{"0", ",", "0", ",", "1", ",", "0"}], "}"}], ",", "\[IndentingNewLine]", RowBox[{"{", RowBox[{ RowBox[{"-", "x2"}], ",", RowBox[{"-", "y2"}], ",", RowBox[{"-", "z2"}], ",", "1"}], "}"}]}], "}"}]}], ";"}], "\n", RowBox[{ RowBox[{"p", "=", RowBox[{"v", ".", "Q"}]}], ";"}], "\[IndentingNewLine]", RowBox[{ RowBox[{ RowBox[{"p", "=", RowBox[{"Table", "[", RowBox[{ RowBox[{"Take", "[", RowBox[{ RowBox[{"p", "[", RowBox[{"[", "i", "]"}], "]"}], ",", "3"}], "]"}], ",", RowBox[{"{", RowBox[{"i", ",", "1", ",", "P"}], "}"}]}], "]"}]}], ";"}], "\n", 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"}]}]}]}], " ", "*)"}], "\n", RowBox[{"(*", " ", RowBox[{ RowBox[{ RowBox[{"rotate", " ", "p1", " ", "around", " ", "x"}], "-", RowBox[{"axis", " ", "until", " ", "the", " ", "z"}], "-", "comp"}], " ", "=", " ", "0"}], " ", "*)"}]}], "\[IndentingNewLine]", RowBox[{ RowBox[{"T1", "=", RowBox[{"ArcTan", "[", RowBox[{ RowBox[{"p", "[", RowBox[{"[", RowBox[{"1", ",", "3"}], "]"}], "]"}], "/", RowBox[{"p", "[", RowBox[{"[", RowBox[{"1", ",", "2"}], "]"}], "]"}]}], "]"}]}], ";"}], "\n", RowBox[{ RowBox[{"U", "=", "p"}], ";"}], "\n", RowBox[{ RowBox[{"T", "=", RowBox[{"RotationMatrix", "[", RowBox[{"T1", ",", RowBox[{"{", RowBox[{"1", ",", "0", ",", "0"}], "}"}]}], "]"}]}], ";"}], "\[IndentingNewLine]", RowBox[{ RowBox[{ RowBox[{"p", "=", RowBox[{"U", ".", "T"}]}], ";"}], "\n", RowBox[{"(*", " ", RowBox[{ RowBox[{"Rotate", " ", "p1", " ", "around", " ", "z"}], "-", RowBox[{"axis", " ", "to", " ", "make", " ", "y"}], "-", RowBox[{"comp", " ", "to", " ", "0"}]}], " ", "*)"}]}], "\n", RowBox[{ RowBox[{"T2", "=", RowBox[{"ArcTan", "[", RowBox[{ RowBox[{"p", "[", RowBox[{"[", RowBox[{"1", ",", "2"}], "]"}], "]"}], "/", RowBox[{"p", "[", RowBox[{"[", RowBox[{"1", ",", "1"}], "]"}], "]"}]}], "]"}]}], ";"}], "\n", RowBox[{ RowBox[{"U", "=", "p"}], ";"}], "\[IndentingNewLine]", RowBox[{ RowBox[{"T", "=", RowBox[{"RotationMatrix", "[", RowBox[{"T2", ",", RowBox[{"{", RowBox[{"0", ",", "0", ",", "1"}], "}"}]}], "]"}]}], ";"}], "\[IndentingNewLine]", RowBox[{ RowBox[{ RowBox[{"p", "=", RowBox[{"U", ".", "T"}]}], ";"}], "\n", RowBox[{"(*", " ", RowBox[{ RowBox[{ RowBox[{"rotate", " ", "p2", " ", "around", " ", "x"}], "-", RowBox[{"axis", " ", "to", " ", "make", " ", "z"}], "-", "comp"}], " ", "=", " ", "0"}], " ", "*)"}]}], "\n", RowBox[{ RowBox[{"T3", "=", RowBox[{"ArcTan", "[", RowBox[{ RowBox[{"p", "[", RowBox[{"[", RowBox[{"3", ",", "3"}], "]"}], "]"}], "/", RowBox[{"p", "[", RowBox[{"[", RowBox[{"3", ",", "2"}], "]"}], "]"}]}], "]"}]}], ";"}], "\n", RowBox[{ RowBox[{"U", "=", "p"}], ";"}], "\n", RowBox[{ RowBox[{"T", "=", RowBox[{"RotationMatrix", "[", RowBox[{"T3", ",", RowBox[{"{", RowBox[{"1", ",", "0", ",", "0"}], "}"}]}], "]"}]}], ";"}], "\[IndentingNewLine]", RowBox[{ RowBox[{ RowBox[{"p", "=", RowBox[{"Chop", "[", RowBox[{"U", ".", "T"}], "]"}]}], ";"}], "\n", RowBox[{"(*", " ", RowBox[{ RowBox[{"generate", " ", "two", " ", "pi", " ", "clouds"}], ",", " ", RowBox[{"and", " ", "reverse", " ", "all", " ", "transformations"}]}], " ", "*)"}]}], "\n", RowBox[{ RowBox[{"nk", "=", "p"}], ";"}], "\[IndentingNewLine]", RowBox[{ RowBox[{"nl", "=", "p"}], ";"}], "\[IndentingNewLine]", RowBox[{ RowBox[{ RowBox[{"nk", "[", RowBox[{"[", RowBox[{"1", ",", "3"}], "]"}], "]"}], "=", "rpo"}], ";"}], "\[IndentingNewLine]", RowBox[{ RowBox[{ RowBox[{"nl", "[", RowBox[{"[", RowBox[{"1", ",", "3"}], "]"}], "]"}], "=", RowBox[{"-", "rpi"}]}], ";"}], "\n", RowBox[{ RowBox[{"U", "=", "p"}], ";"}], "\n", RowBox[{ RowBox[{"U1", "=", "nk"}], ";"}], "\[IndentingNewLine]", RowBox[{ RowBox[{"U2", "=", "nl"}], ";"}], "\[IndentingNewLine]", RowBox[{ RowBox[{"T", "=", RowBox[{"RotationMatrix", "[", RowBox[{ RowBox[{"-", "T3"}], ",", RowBox[{"{", RowBox[{"1", ",", "0", ",", "0"}], "}"}]}], "]"}]}], ";"}], "\[IndentingNewLine]", RowBox[{ RowBox[{"p", "=", RowBox[{"U", ".", "T"}]}], ";"}], "\n", RowBox[{ RowBox[{"nk", "=", RowBox[{"U1", ".", "T"}]}], ";"}], "\[IndentingNewLine]", RowBox[{ RowBox[{"nl", "=", RowBox[{"U2", ".", "T"}]}], ";"}], "\n", RowBox[{ RowBox[{"U", "=", "p"}], ";"}], "\n", RowBox[{ RowBox[{"U1", "=", "nk"}], ";"}], "\[IndentingNewLine]", RowBox[{ RowBox[{"U2", "=", "nl"}], ";"}], "\[IndentingNewLine]", RowBox[{ RowBox[{"T", "=", RowBox[{"RotationMatrix", "[", RowBox[{ RowBox[{"-", "T2"}], ",", RowBox[{"{", RowBox[{"0", ",", "0", ",", "1"}], "}"}]}], "]"}]}], ";"}], "\[IndentingNewLine]", RowBox[{ RowBox[{"p", "=", RowBox[{"U", ".", "T"}]}], ";"}], "\n", RowBox[{ RowBox[{"nk", "=", RowBox[{"U1", ".", "T"}]}], ";"}], "\[IndentingNewLine]", RowBox[{ RowBox[{"nl", "=", RowBox[{"U2", ".", "T"}]}], ";"}], "\n", RowBox[{ RowBox[{"U", "=", "p"}], ";"}], "\n", RowBox[{ RowBox[{"U1", "=", "nk"}], ";"}], "\[IndentingNewLine]", RowBox[{ RowBox[{"U2", "=", "nl"}], ";"}], "\[IndentingNewLine]", RowBox[{ RowBox[{"T", "=", RowBox[{"RotationMatrix", "[", RowBox[{ RowBox[{"-", "T1"}], ",", RowBox[{"{", RowBox[{"1", ",", "0", ",", "0"}], "}"}]}], "]"}]}], ";"}], "\[IndentingNewLine]", RowBox[{ RowBox[{"p", "=", RowBox[{"U", ".", "T"}]}], ";"}], "\n", RowBox[{ RowBox[{"nk", "=", RowBox[{"U1", ".", "T"}]}], ";"}], "\[IndentingNewLine]", RowBox[{ RowBox[{"nl", "=", RowBox[{"U2", ".", "T"}]}], ";"}], "\n", RowBox[{ RowBox[{"Clear", "[", RowBox[{"v", ",", "v1", ",", "v2"}], "]"}], ";"}], "\[IndentingNewLine]", RowBox[{ RowBox[{"v", " ", "=", RowBox[{"Table", "[", RowBox[{ RowBox[{"Join", "[", RowBox[{ RowBox[{"p", "[", RowBox[{"[", "i", "]"}], "]"}], ",", RowBox[{"{", "1", "}"}]}], "]"}], ",", RowBox[{"{", RowBox[{"i", ",", "1", ",", "P"}], "}"}]}], "]"}]}], ";"}], "\[IndentingNewLine]", RowBox[{ RowBox[{"v1", "=", RowBox[{"Table", "[", RowBox[{ RowBox[{"Join", "[", RowBox[{ RowBox[{"nk", "[", RowBox[{"[", "i", "]"}], "]"}], ",", RowBox[{"{", "1", "}"}]}], "]"}], ",", RowBox[{"{", RowBox[{"i", ",", "1", ",", "P"}], "}"}]}], "]"}]}], ";"}], "\[IndentingNewLine]", RowBox[{ RowBox[{"v2", "=", RowBox[{"Table", "[", RowBox[{ RowBox[{"Join", "[", RowBox[{ RowBox[{"nl", "[", RowBox[{"[", "i", "]"}], "]"}], ",", RowBox[{"{", "1", "}"}]}], "]"}], ",", RowBox[{"{", RowBox[{"i", ",", "1", ",", "P"}], "}"}]}], "]"}]}], ";"}], "\n", RowBox[{ RowBox[{"Q", "=", RowBox[{"{", RowBox[{ RowBox[{"{", RowBox[{"1", ",", "0", ",", "0", ",", "0"}], "}"}], ",", "\[IndentingNewLine]", RowBox[{"{", RowBox[{"0", ",", "1", ",", "0", ",", "0"}], "}"}], ",", "\[IndentingNewLine]", RowBox[{"{", RowBox[{"0", ",", "0", ",", "1", ",", "0"}], "}"}], ",", "\[IndentingNewLine]", RowBox[{"{", RowBox[{"x2", ",", "y2", ",", "z2", ",", "1"}], "}"}]}], "}"}]}], ";"}], "\[IndentingNewLine]", RowBox[{ RowBox[{"p", "=", RowBox[{"v", ".", "Q"}]}], ";"}], "\[IndentingNewLine]", RowBox[{ RowBox[{"nk", "=", RowBox[{"v1", ".", "Q"}]}], ";"}], "\[IndentingNewLine]", RowBox[{ RowBox[{"nl", "=", RowBox[{"v2", ".", "Q"}]}], ";"}], "\[IndentingNewLine]", RowBox[{ RowBox[{"p", "=", RowBox[{"Table", "[", RowBox[{ RowBox[{"Take", "[", RowBox[{ RowBox[{"p", "[", RowBox[{"[", "i", "]"}], "]"}], ",", "3"}], "]"}], ",", RowBox[{"{", RowBox[{"i", ",", "1", ",", "P"}], "}"}]}], "]"}]}], ";"}], "\[IndentingNewLine]", RowBox[{ RowBox[{"nk", "=", RowBox[{"Table", "[", RowBox[{ RowBox[{"Take", "[", RowBox[{ RowBox[{"nk", "[", RowBox[{"[", "i", "]"}], "]"}], ",", "3"}], "]"}], ",", RowBox[{"{", RowBox[{"i", ",", "1", ",", "P"}], "}"}]}], "]"}]}], ";"}], "\[IndentingNewLine]", RowBox[{ RowBox[{"nl", "=", RowBox[{"Table", "[", RowBox[{ RowBox[{"Take", "[", RowBox[{ RowBox[{"nl", "[", RowBox[{"[", "i", "]"}], "]"}], ",", "3"}], "]"}], ",", RowBox[{"{", RowBox[{"i", ",", "1", ",", "P"}], "}"}]}], "]"}]}], ";"}], "\[IndentingNewLine]", RowBox[{ RowBox[{ RowBox[{"tpo", "[", RowBox[{"[", "k", "]"}], "]"}], "=", "nk"}], ";"}], "\[IndentingNewLine]", RowBox[{ RowBox[{ RowBox[{"tpu", "[", RowBox[{"[", "k", "]"}], "]"}], "=", "nl"}], ";"}]}], "Input", CellChangeTimes->{{3.5681154444347754`*^9, 3.568115497147268*^9}, { 3.568127214924899*^9, 3.568127265796589*^9}, {3.568128215276656*^9, 3.568128238536297*^9}, {3.568130718566253*^9, 3.5681307485339055`*^9}, 3.5681308175952272`*^9, {3.5681308916497574`*^9, 3.5681309458598523`*^9}, { 3.5681309983383446`*^9, 3.5681310118947687`*^9}, {3.5681310723448744`*^9, 3.568131074357278*^9}, {3.5681315215476637`*^9, 3.568131584509374*^9}, { 3.56813162789305*^9, 3.5681316427754765`*^9}, {3.5681317113063965`*^9, 3.568131715268804*^9}, {3.5681323203938665`*^9, 3.5681323260098763`*^9}, { 3.568132387567585*^9, 3.568132440014877*^9}, {3.5681325121026034`*^9, 3.568132590945142*^9}, {3.56813274298981*^9, 3.5681327548302307`*^9}, { 3.568132877867647*^9, 3.568132888335265*^9}, {3.568133052345154*^9, 3.568133072344389*^9}, {3.5681331740533676`*^9, 3.5681331951446047`*^9}, { 3.568133267793932*^9, 3.5681332684803333`*^9}, {3.5681335079111547`*^9, 3.568133536833606*^9}, {3.5681336272201643`*^9, 3.5681336314945717`*^9}, { 3.568133737994359*^9, 3.568133744000369*^9}, {3.568133978515581*^9, 3.5681339917912045`*^9}, {3.5681340324916763`*^9, 3.5681340418204927`*^9}, {3.568134244262048*^9, 3.5681342454944506`*^9}, { 3.5681343354754086`*^9, 3.568134336099409*^9}, {3.5681345828762426`*^9, 3.568134583952645*^9}, {3.5681348406666956`*^9, 3.5681348474683075`*^9}, 3.568134889151581*^9, {3.5681352914606876`*^9, 3.568135296265496*^9}, { 3.568135518877887*^9, 3.568135519595488*^9}, 3.5681357593679094`*^9, { 3.5681787035360527`*^9, 3.568178728449296*^9}, 3.5682779128076954`*^9, { 3.572714864038488*^9, 3.572714889419732*^9}, {3.5727149730514793`*^9, 3.57271500191153*^9}, {3.572715036933592*^9, 3.5727150664176435`*^9}, { 3.572715803191337*^9, 3.572715915183934*^9}, {3.5727159899548655`*^9, 3.572716037722149*^9}, {3.572767087700392*^9, 3.5727670990260115`*^9}, 3.5727756458897667`*^9, {3.5727757435615377`*^9, 3.5727758099084544`*^9}, { 3.5727768094334097`*^9, 3.5727768525518856`*^9}}], Cell[CellGroupData[{ Cell[BoxData[{"tpo", "\[IndentingNewLine]", "tpu", "\[IndentingNewLine]"}], \ "Input", CellChangeTimes->{{3.5681154444347754`*^9, 3.568115497147268*^9}, { 3.568127214924899*^9, 3.568127265796589*^9}, {3.568128215276656*^9, 3.568128238536297*^9}, {3.568130718566253*^9, 3.5681307485339055`*^9}, 3.5681308175952272`*^9, {3.5681308916497574`*^9, 3.5681309458598523`*^9}, { 3.5681309983383446`*^9, 3.5681310118947687`*^9}, {3.5681310723448744`*^9, 3.568131074357278*^9}, {3.5681315215476637`*^9, 3.568131584509374*^9}, { 3.56813162789305*^9, 3.5681316427754765`*^9}, {3.5681317113063965`*^9, 3.568131715268804*^9}, {3.5681323203938665`*^9, 3.5681323260098763`*^9}, { 3.568132387567585*^9, 3.568132440014877*^9}, {3.5681325121026034`*^9, 3.568132590945142*^9}, {3.56813274298981*^9, 3.5681327548302307`*^9}, { 3.568132877867647*^9, 3.568132888335265*^9}, {3.568133052345154*^9, 3.568133072344389*^9}, {3.5681331740533676`*^9, 3.5681331951446047`*^9}, { 3.568133267793932*^9, 3.5681332684803333`*^9}, {3.5681335079111547`*^9, 3.568133536833606*^9}, {3.5681336272201643`*^9, 3.5681336314945717`*^9}, { 3.568133737994359*^9, 3.568133744000369*^9}, {3.568133978515581*^9, 3.5681339917912045`*^9}, {3.5681340324916763`*^9, 3.5681340418204927`*^9}, {3.568134244262048*^9, 3.5681342454944506`*^9}, { 3.5681343354754086`*^9, 3.568134336099409*^9}, {3.5681345828762426`*^9, 3.568134583952645*^9}, {3.5681348406666956`*^9, 3.5681348474683075`*^9}, 3.568134889151581*^9, {3.5681352914606876`*^9, 3.568135296265496*^9}, { 3.568135518877887*^9, 3.568135519595488*^9}, 3.5681357593679094`*^9, { 3.5681787035360527`*^9, 3.568178728449296*^9}, 3.5682779128076954`*^9, { 3.572714864038488*^9, 3.572714889419732*^9}, {3.5727149730514793`*^9, 3.57271500191153*^9}, {3.572715036933592*^9, 3.5727150664176435`*^9}, { 3.572715803191337*^9, 3.572715915183934*^9}, {3.5727159899548655`*^9, 3.572716037722149*^9}, {3.572767087700392*^9, 3.5727670990260115`*^9}, 3.5727756458897667`*^9, {3.5727757435615377`*^9, 3.5727758099084544`*^9}}], Cell[BoxData[ RowBox[{"{", RowBox[{ RowBox[{"{", RowBox[{ RowBox[{"{", RowBox[{ "4.6635256219318`", ",", "2.032400203535989`", ",", "2.144687314779468`"}], "}"}], ",", RowBox[{"{", RowBox[{ "6.2984567579999995`", ",", "0.87813677494`", ",", "4.5943018512`"}], "}"}], ",", RowBox[{"{", RowBox[{ "6.659205451399999`", ",", "2.2315774334`", ",", "0.1021113444100008`"}], "}"}]}], "}"}], ",", RowBox[{"{", RowBox[{ RowBox[{"{", RowBox[{ "5.837473221196367`", ",", "3.3338302317969397`", ",", "0.36629860805206116`"}], "}"}], ",", RowBox[{"{", RowBox[{ "5.4828510164`", ",", "0.92895150708`", ",", "1.8780285960599998`"}], "}"}], ",", RowBox[{"{", RowBox[{ "8.954466651`", ",", "3.8282069308`", ",", "0.5798057313199998`"}], "}"}]}], "}"}], ",", RowBox[{"{", RowBox[{ RowBox[{"{", RowBox[{"2.7233509627477925`", ",", RowBox[{"-", "0.3579043527195277`"}], ",", "2.4419505904374703`"}], "}"}], ",", RowBox[{"{", RowBox[{ "5.4828510164`", ",", "0.92895150708`", ",", "1.8780285960599998`"}], "}"}], ",", RowBox[{"{", RowBox[{ "1.2153772769`", ",", "0.6439052372400006`", ",", "0.1502766806980007`"}], "}"}]}], "}"}], ",", RowBox[{"{", RowBox[{ RowBox[{"{", RowBox[{ "0.7413802262397957`", ",", "0.9249102664988519`", ",", "1.437274337842977`"}], "}"}], ",", RowBox[{"{", RowBox[{"3.2546750897999996`", ",", RowBox[{"-", "0.53636093058`"}], ",", "1.15904454484`"}], "}"}], ",", RowBox[{"{", RowBox[{ RowBox[{"-", "1.0028964854600004`"}], ",", RowBox[{"-", "0.7372954961600003`"}], ",", RowBox[{"-", "0.3651328577199999`"}]}], "}"}]}], "}"}]}], "}"}]], "Output", CellChangeTimes->{3.572777384887221*^9}], Cell[BoxData[ RowBox[{"{", RowBox[{ RowBox[{"{", RowBox[{ RowBox[{"{", RowBox[{"6.302176410868199`", ",", RowBox[{"-", "0.17449718937598857`"}], ",", "1.6113698773405312`"}], "}"}], ",", RowBox[{"{", RowBox[{ "6.2984567579999995`", ",", "0.87813677494`", ",", "4.5943018512`"}], "}"}], ",", RowBox[{"{", RowBox[{ "6.659205451399999`", ",", "2.2315774334`", ",", "0.1021113444100008`"}], "}"}]}], "}"}], ",", RowBox[{"{", RowBox[{ RowBox[{"{", RowBox[{"7.480937681603631`", ",", "1.1293246350030604`", ",", RowBox[{"-", "0.16207591923206066`"}]}], "}"}], ",", RowBox[{"{", RowBox[{ "5.4828510164`", ",", "0.92895150708`", ",", "1.8780285960599998`"}], "}"}], ",", RowBox[{"{", RowBox[{ "8.954466651`", ",", "3.8282069308`", ",", "0.5798057313199998`"}], "}"}]}], "}"}], ",", RowBox[{"{", RowBox[{ RowBox[{"{", RowBox[{"3.7859992168522076`", ",", RowBox[{"-", "0.7148175084404714`"}], ",", RowBox[{"-", "0.12386150075747016`"}]}], "}"}], ",", RowBox[{"{", RowBox[{ "5.4828510164`", ",", "0.92895150708`", ",", "1.8780285960599998`"}], "}"}], ",", RowBox[{"{", RowBox[{ "1.2153772769`", ",", "0.6439052372400006`", ",", "0.1502766806980007`"}], "}"}]}], "}"}], ",", RowBox[{"{", RowBox[{ RowBox[{"{", RowBox[{"1.6893743275602036`", ",", "0.3629002079811485`", ",", RowBox[{"-", "1.136720976446977`"}]}], "}"}], ",", RowBox[{"{", RowBox[{"3.2546750897999996`", ",", RowBox[{"-", "0.53636093058`"}], ",", "1.15904454484`"}], "}"}], ",", RowBox[{"{", RowBox[{ RowBox[{"-", "1.0028964854600004`"}], ",", RowBox[{"-", "0.7372954961600003`"}], ",", RowBox[{"-", "0.3651328577199999`"}]}], "}"}]}], "}"}]}], "}"}]], "Output", CellChangeTimes->{3.572777384887221*^9}] }, Open ]], Cell[BoxData[{ RowBox[{ RowBox[{"DeleteFile", "[", " ", "\"\\"", "]"}], ";"}], "\[IndentingNewLine]", RowBox[{"For", "[", RowBox[{ RowBox[{"i", "=", "2"}], ",", RowBox[{"i", "<", RowBox[{"n", "+", "2"}]}], ",", RowBox[{"i", "++"}], ",", "\[IndentingNewLine]", RowBox[{"For", "[", RowBox[{ RowBox[{"j", "=", "2"}], ",", RowBox[{"j", "\[LessEqual]", "i"}], ",", RowBox[{"j", "++"}], ",", "\[IndentingNewLine]", RowBox[{"If", "[", RowBox[{ RowBox[{ RowBox[{"Pij", "[", RowBox[{"[", RowBox[{"i", ",", "j"}], "]"}], "]"}], ">", "0"}], ",", RowBox[{ RowBox[{"{", RowBox[{ RowBox[{"i", "-", "1"}], ",", RowBox[{"j", "-", "1"}], ",", RowBox[{"Extract", "[", RowBox[{"Pij", ",", RowBox[{"{", RowBox[{"i", ",", "j"}], "}"}]}], "]"}]}], "}"}], ">>>", " ", "\"\\""}]}], "]"}]}], "]"}]}], "]"}]}], "Input", CellChangeTimes->{{3.5681154444347754`*^9, 3.568115497147268*^9}, { 3.568127214924899*^9, 3.568127265796589*^9}, {3.568128215276656*^9, 3.568128238536297*^9}, {3.568130718566253*^9, 3.5681307485339055`*^9}, 3.5681308175952272`*^9, {3.5681308916497574`*^9, 3.5681309458598523`*^9}, { 3.5681309983383446`*^9, 3.5681310118947687`*^9}, {3.5681310723448744`*^9, 3.568131074357278*^9}, {3.5681315215476637`*^9, 3.568131584509374*^9}, { 3.56813162789305*^9, 3.5681316427754765`*^9}, {3.5681317113063965`*^9, 3.568131715268804*^9}, {3.5681323203938665`*^9, 3.5681323260098763`*^9}, { 3.568132387567585*^9, 3.568132440014877*^9}, {3.5681325121026034`*^9, 3.568132590945142*^9}, {3.56813274298981*^9, 3.5681327548302307`*^9}, { 3.568132877867647*^9, 3.568132888335265*^9}, {3.568133052345154*^9, 3.568133072344389*^9}, {3.5681331740533676`*^9, 3.5681331951446047`*^9}, { 3.568133267793932*^9, 3.5681332684803333`*^9}, {3.5681335079111547`*^9, 3.568133536833606*^9}, {3.5681336272201643`*^9, 3.5681336314945717`*^9}, { 3.568133737994359*^9, 3.568133744000369*^9}, {3.568133978515581*^9, 3.5681339917912045`*^9}, {3.5681340324916763`*^9, 3.5681340418204927`*^9}, {3.568134244262048*^9, 3.5681342454944506`*^9}, { 3.5681343354754086`*^9, 3.568134336099409*^9}, {3.5681345828762426`*^9, 3.568134583952645*^9}, {3.5681348406666956`*^9, 3.5681348474683075`*^9}, 3.568134889151581*^9, {3.5681352914606876`*^9, 3.568135296265496*^9}, { 3.568135518877887*^9, 3.568135519595488*^9}, 3.5681357593679094`*^9, { 3.5681787035360527`*^9, 3.568178728449296*^9}, 3.5682779128076954`*^9, { 3.572714864038488*^9, 3.572714889419732*^9}, {3.5727149730514793`*^9, 3.57271500191153*^9}, {3.572715036933592*^9, 3.5727150664176435`*^9}, { 3.572715803191337*^9, 3.572715915183934*^9}, {3.5727159899548655`*^9, 3.572716037722149*^9}, {3.572767087700392*^9, 3.5727670990260115`*^9}, 3.5727756458897667`*^9, {3.5727757435615377`*^9, 3.5727758099084544`*^9}}], Cell[CellGroupData[{ Cell[BoxData[{ RowBox[{"a", "=", RowBox[{ "ReadList", "[", "\"\\"", "]"}]}], "\[IndentingNewLine]", RowBox[{"nb", "=", RowBox[{"Length", "[", "a", "]"}]}], "\[IndentingNewLine]", RowBox[{"cw", "=", RowBox[{"nb", "-", "bh"}]}]}], "Input", CellChangeTimes->{{3.5681343270045934`*^9, 3.568134331481801*^9}, 3.5681343823222904`*^9, {3.5681345934218616`*^9, 3.5681345986322703`*^9}, { 3.568134635479535*^9, 3.5681346521559644`*^9}, {3.5681351451792307`*^9, 3.568135145428831*^9}, {3.5681351781888885`*^9, 3.5681352349417877`*^9}, { 3.568135340163973*^9, 3.568135340335573*^9}, {3.568135523495495*^9, 3.5681355244314966`*^9}, {3.5681357674799232`*^9, 3.5681357771675406`*^9}, {3.568136284433632*^9, 3.5681362987700567`*^9}, { 3.568136395053426*^9, 3.5681363965510283`*^9}, {3.568381170343589*^9, 3.568381179844005*^9}, {3.5689533222924633`*^9, 3.568953376658559*^9}}], Cell[BoxData[ RowBox[{"{", RowBox[{ RowBox[{"{", RowBox[{"2", ",", "1", ",", "1.1903004568009015`"}], "}"}], ",", RowBox[{"{", RowBox[{"3", ",", "2", ",", "1.1938723648075744`"}], "}"}], ",", RowBox[{"{", RowBox[{"4", ",", "1", ",", "1.1625678924767877`"}], "}"}], ",", RowBox[{"{", RowBox[{"5", ",", "3", ",", "1.1922153222488148`"}], "}"}], ",", RowBox[{"{", RowBox[{"6", ",", "4", ",", "0.9927516555891636`"}], "}"}], ",", RowBox[{"{", RowBox[{"6", ",", "5", ",", "1.162892015105526`"}], "}"}], ",", RowBox[{"{", RowBox[{"7", ",", "1", ",", "1.1904394105843248`"}], "}"}], ",", RowBox[{"{", RowBox[{"8", ",", "1", ",", "1.1905480257740177`"}], "}"}], ",", RowBox[{"{", RowBox[{"9", ",", "4", ",", "1.1253183349388942`"}], "}"}], ",", RowBox[{"{", RowBox[{"10", ",", "6", ",", "1.1686678866153497`"}], "}"}], ",", RowBox[{"{", RowBox[{"11", ",", "9", ",", "1.025839738003161`"}], "}"}], ",", RowBox[{"{", RowBox[{"12", ",", "11", ",", "1.0760376752772804`"}], "}"}], ",", RowBox[{"{", RowBox[{"13", ",", "12", ",", "1.1687932099947655`"}], "}"}], ",", RowBox[{"{", RowBox[{"14", ",", "12", ",", "1.0289442947952179`"}], "}"}], ",", RowBox[{"{", RowBox[{"15", ",", "14", ",", "1.0760826962707348`"}], "}"}], ",", RowBox[{"{", RowBox[{"16", ",", "15", ",", "1.0258106188343346`"}], "}"}], ",", RowBox[{"{", RowBox[{"17", ",", "16", ",", "1.1253355115916557`"}], "}"}], ",", RowBox[{"{", RowBox[{"18", ",", "17", ",", "1.168650063124714`"}], "}"}], ",", RowBox[{"{", RowBox[{"19", ",", "17", ",", "1.0060089697829193`"}], "}"}], ",", RowBox[{"{", RowBox[{"20", ",", "19", ",", "1.1686322579877293`"}], "}"}], ",", RowBox[{"{", RowBox[{"21", ",", "20", ",", "1.1337187872076826`"}], "}"}], ",", RowBox[{"{", RowBox[{"22", ",", "2", ",", "1.2357933686504747`"}], "}"}], ",", RowBox[{"{", RowBox[{"23", ",", "2", ",", "1.235476938118349`"}], "}"}], ",", RowBox[{"{", RowBox[{"24", ",", "3", ",", "1.2355730589675256`"}], "}"}], ",", RowBox[{"{", RowBox[{"25", ",", "3", ",", "1.2353780533600913`"}], "}"}], ",", RowBox[{"{", RowBox[{"26", ",", "5", ",", "1.2353871297692312`"}], "}"}], ",", RowBox[{"{", RowBox[{"27", ",", "5", ",", "1.2356145987409288`"}], "}"}], ",", RowBox[{"{", RowBox[{"28", ",", "7", ",", "1.235831756042301`"}], "}"}], ",", RowBox[{"{", RowBox[{"29", ",", "7", ",", "1.2355456477561668`"}], "}"}], ",", RowBox[{"{", RowBox[{"30", ",", "7", ",", "1.2357130332048445`"}], "}"}], ",", RowBox[{"{", RowBox[{"31", ",", "8", ",", "1.235890354920097`"}], "}"}], ",", RowBox[{"{", RowBox[{"32", ",", "8", ",", "1.235839640489124`"}], "}"}], ",", RowBox[{"{", RowBox[{"33", ",", "8", ",", "1.2357521462040213`"}], "}"}], ",", RowBox[{"{", RowBox[{"34", ",", "9", ",", "1.2160885328938793`"}], "}"}], ",", RowBox[{"{", RowBox[{"35", ",", "10", ",", "1.2358872600617417`"}], "}"}], ",", RowBox[{"{", RowBox[{"36", ",", "10", ",", "1.2357996583165434`"}], "}"}], ",", RowBox[{"{", RowBox[{"37", ",", "10", ",", "1.2357603015255403`"}], "}"}], ",", RowBox[{"{", RowBox[{"38", ",", "11", ",", "1.215846824723846`"}], "}"}], ",", RowBox[{"{", RowBox[{"39", ",", "13", ",", "1.2357025058258968`"}], "}"}], ",", RowBox[{"{", RowBox[{"40", ",", "13", ",", "1.2357979822662262`"}], "}"}], ",", RowBox[{"{", RowBox[{"41", ",", "13", ",", "1.235767545619187`"}], "}"}], ",", RowBox[{"{", RowBox[{"42", ",", "14", ",", "1.2159849801037783`"}], "}"}], ",", RowBox[{"{", RowBox[{"43", ",", "15", ",", "1.2157337494382183`"}], "}"}], ",", RowBox[{"{", RowBox[{"44", ",", "16", ",", "1.216034289865974`"}], "}"}], ",", RowBox[{"{", RowBox[{"45", ",", "18", ",", "1.235827769989031`"}], "}"}], ",", RowBox[{"{", RowBox[{"46", ",", "18", ",", "1.2356247627619668`"}], "}"}], ",", RowBox[{"{", RowBox[{"47", ",", "18", ",", "1.2359745373753002`"}], "}"}], ",", RowBox[{"{", RowBox[{"48", ",", "19", ",", "1.215917857231867`"}], "}"}], ",", RowBox[{"{", RowBox[{"49", ",", "20", ",", "1.235479740145197`"}], "}"}], ",", RowBox[{"{", RowBox[{"50", ",", "20", ",", "1.2355124012820666`"}], "}"}], ",", RowBox[{"{", RowBox[{"51", ",", "21", ",", "1.1252864433636154`"}], "}"}]}], "}"}]], "Output", CellChangeTimes->{3.572777384934021*^9}], Cell[BoxData["51"], "Output", CellChangeTimes->{3.5727773849496207`*^9}], Cell[BoxData["21"], "Output", CellChangeTimes->{3.5727773849496207`*^9}] }, Open ]], Cell[BoxData[{ RowBox[{ RowBox[{"wxc", "=", RowBox[{"Table", "[", RowBox[{ RowBox[{ RowBox[{ RowBox[{ RowBox[{"(", RowBox[{ RowBox[{"a", "[", RowBox[{"[", RowBox[{"i", ",", "3"}], "]"}], "]"}], "+", RowBox[{"u2", "[", RowBox[{"[", RowBox[{"a", "[", RowBox[{"[", RowBox[{"i", ",", "1"}], "]"}], "]"}], "]"}], "]"}]}], ")"}], "/", RowBox[{"(", RowBox[{ RowBox[{"u2", "[", RowBox[{"[", RowBox[{"a", "[", RowBox[{"[", RowBox[{"i", ",", "1"}], "]"}], "]"}], "]"}], "]"}], "+", RowBox[{"2", "*", RowBox[{"a", "[", RowBox[{"[", RowBox[{"i", ",", "3"}], "]"}], "]"}]}], "+", RowBox[{"u2", "[", RowBox[{"[", RowBox[{"a", "[", RowBox[{"[", RowBox[{"i", ",", "2"}], "]"}], "]"}], "]"}], "]"}]}], ")"}]}], "*", RowBox[{"(", RowBox[{ RowBox[{"x", "[", RowBox[{"[", RowBox[{"a", "[", RowBox[{"[", RowBox[{"i", ",", "2"}], "]"}], "]"}], "]"}], "]"}], "-", RowBox[{"x", "[", RowBox[{"[", RowBox[{"a", "[", RowBox[{"[", RowBox[{"i", ",", "1"}], "]"}], "]"}], "]"}], "]"}]}], ")"}]}], "+", RowBox[{"x", "[", RowBox[{"[", RowBox[{"a", "[", RowBox[{"[", RowBox[{"i", ",", "1"}], "]"}], "]"}], "]"}], "]"}]}], ",", RowBox[{"{", RowBox[{"i", ",", "1", ",", "cw"}], "}"}]}], "]"}]}], ";"}], "\n", RowBox[{ RowBox[{ RowBox[{"wyc", "=", RowBox[{"Table", "[", RowBox[{ RowBox[{ RowBox[{ RowBox[{ RowBox[{"(", RowBox[{ RowBox[{"a", "[", RowBox[{"[", RowBox[{"i", ",", "3"}], "]"}], "]"}], "+", RowBox[{"u2", "[", RowBox[{"[", RowBox[{"a", "[", RowBox[{"[", RowBox[{"i", ",", "1"}], "]"}], "]"}], "]"}], "]"}]}], ")"}], "/", RowBox[{"(", RowBox[{ RowBox[{"u2", "[", RowBox[{"[", RowBox[{"a", "[", RowBox[{"[", RowBox[{"i", ",", "1"}], "]"}], "]"}], "]"}], "]"}], "+", RowBox[{"2", "*", RowBox[{"a", "[", RowBox[{"[", RowBox[{"i", ",", "3"}], "]"}], "]"}]}], "+", RowBox[{"u2", "[", RowBox[{"[", RowBox[{"a", "[", RowBox[{"[", RowBox[{"i", ",", "2"}], "]"}], "]"}], "]"}], "]"}]}], ")"}]}], "*", RowBox[{"(", RowBox[{ RowBox[{"y", "[", RowBox[{"[", RowBox[{"a", "[", RowBox[{"[", RowBox[{"i", ",", "2"}], "]"}], "]"}], "]"}], "]"}], "-", RowBox[{"y", "[", RowBox[{"[", RowBox[{"a", "[", RowBox[{"[", RowBox[{"i", ",", "1"}], "]"}], "]"}], "]"}], "]"}]}], ")"}]}], "+", RowBox[{"y", "[", RowBox[{"[", RowBox[{"a", "[", RowBox[{"[", RowBox[{"i", ",", "1"}], "]"}], "]"}], "]"}], "]"}]}], ",", RowBox[{"{", RowBox[{"i", ",", "1", ",", "cw"}], "}"}]}], "]"}]}], ";"}], " "}], "\n", RowBox[{ RowBox[{"wzc", "=", RowBox[{"Table", "[", RowBox[{ RowBox[{ RowBox[{ RowBox[{ RowBox[{"(", RowBox[{ RowBox[{"a", "[", RowBox[{"[", RowBox[{"i", ",", "3"}], "]"}], "]"}], "+", RowBox[{"u2", "[", RowBox[{"[", RowBox[{"a", "[", RowBox[{"[", RowBox[{"i", ",", "1"}], "]"}], "]"}], "]"}], "]"}]}], ")"}], "/", RowBox[{"(", RowBox[{ RowBox[{"u2", "[", RowBox[{"[", RowBox[{"a", "[", RowBox[{"[", RowBox[{"i", ",", "1"}], "]"}], "]"}], "]"}], "]"}], "+", RowBox[{"2", "*", RowBox[{"a", "[", RowBox[{"[", RowBox[{"i", ",", "3"}], "]"}], "]"}]}], "+", RowBox[{"u2", "[", RowBox[{"[", RowBox[{"a", "[", RowBox[{"[", RowBox[{"i", ",", "2"}], "]"}], "]"}], "]"}], "]"}]}], ")"}]}], "*", RowBox[{"(", RowBox[{ RowBox[{"z", "[", RowBox[{"[", RowBox[{"a", "[", RowBox[{"[", RowBox[{"i", ",", "2"}], "]"}], "]"}], "]"}], "]"}], "-", RowBox[{"z", "[", RowBox[{"[", RowBox[{"a", "[", RowBox[{"[", RowBox[{"i", ",", "1"}], "]"}], "]"}], "]"}], "]"}]}], ")"}]}], "+", RowBox[{"z", "[", RowBox[{"[", RowBox[{"a", "[", RowBox[{"[", RowBox[{"i", ",", "1"}], "]"}], "]"}], "]"}], "]"}]}], ",", RowBox[{"{", RowBox[{"i", ",", "1", ",", "cw"}], "}"}]}], "]"}]}], ";"}]}], "Input", CellChangeTimes->{{3.5681365021632137`*^9, 3.5681365171392403`*^9}, { 3.568136560351316*^9, 3.5681365863097615`*^9}, {3.5681369135895367`*^9, 3.5681369265999594`*^9}, {3.568137821916732*^9, 3.5681378378443604`*^9}, { 3.5682072492149415`*^9, 3.5682072529901485`*^9}, 3.568209802830227*^9, { 3.5682216503836985`*^9, 3.5682217583046885`*^9}, {3.5682217912831464`*^9, 3.568221843465238*^9}, {3.5682219760654707`*^9, 3.5682221133457117`*^9}, { 3.568222159615393*^9, 3.5682221693498106`*^9}, {3.5682222565227633`*^9, 3.5682222578487663`*^9}, 3.5682224736283445`*^9, 3.5682227227607822`*^9, 3.5682227558640404`*^9, {3.568222818810151*^9, 3.5682228486062036`*^9}, { 3.5682230057764797`*^9, 3.5682230079916835`*^9}, {3.568223041952943*^9, 3.5682230548229656`*^9}, 3.5682232619601297`*^9, 3.5682233000709963`*^9, { 3.568223536645412*^9, 3.5682235381118145`*^9}, {3.568223591151908*^9, 3.568223591526308*^9}, {3.5682236491528096`*^9, 3.568223657483224*^9}, { 3.568223713222122*^9, 3.5682237532361927`*^9}, {3.568223800379475*^9, 3.568223827648323*^9}, {3.5682238887380304`*^9, 3.5682238893152313`*^9}, { 3.5682240287170763`*^9, 3.5682240612431335`*^9}, 3.5682241088076167`*^9, { 3.568224198772975*^9, 3.5682242396450467`*^9}, {3.568224282170721*^9, 3.5682243185031853`*^9}, {3.568224437890195*^9, 3.568224439590598*^9}, { 3.568224572253231*^9, 3.5682245867144566`*^9}, {3.5682247081762695`*^9, 3.568224733557514*^9}, {3.56822480520844*^9, 3.5682248433505073`*^9}, { 3.568224884206979*^9, 3.5682248959069996`*^9}, {3.568224982830352*^9, 3.5682250047639904`*^9}, {3.56822503870965*^9, 3.5682250803305235`*^9}, { 3.5682251223413973`*^9, 3.568225141451431*^9}, {3.568225234177994*^9, 3.5682252929588966`*^9}, {3.5682253775890455`*^9, 3.568225482140429*^9}, { 3.56822551694409*^9, 3.5682255297205124`*^9}, {3.568225573197789*^9, 3.5682255809666023`*^9}, 3.568225660698343*^9, 3.5682257301964645`*^9, { 3.568225765078126*^9, 3.5682257828933573`*^9}, {3.568225927026843*^9, 3.568225927416844*^9}, {3.568267062420238*^9, 3.568267081358671*^9}, { 3.568267188328059*^9, 3.5682672830358257`*^9}, {3.5682676367040462`*^9, 3.568267747979042*^9}, 3.5682678404716043`*^9, 3.568267882030078*^9, { 3.5682679252577534`*^9, 3.568267996612279*^9}, {3.5682680488879704`*^9, 3.568268061133992*^9}, {3.568268100914062*^9, 3.5682681150944867`*^9}, { 3.5682681672609787`*^9, 3.5682681709113846`*^9}, {3.568268272904364*^9, 3.5682683182536435`*^9}, {3.5682685202739983`*^9, 3.568268599194537*^9}, { 3.5682686348873997`*^9, 3.568268637773405*^9}, {3.5682686944951043`*^9, 3.568268872273017*^9}, {3.5682689420207396`*^9, 3.568269016947671*^9}, { 3.5682695040741262`*^9, 3.568269601153097*^9}, {3.5682696652380095`*^9, 3.5682696728352227`*^9}, {3.5682697489633565`*^9, 3.5682698308635006`*^9}, {3.568271156491429*^9, 3.568271160063835*^9}, { 3.568271244927984*^9, 3.568271369010602*^9}, {3.5682716250070515`*^9, 3.5682717312276382`*^9}, {3.5682717843301315`*^9, 3.5682718576814604`*^9}, {3.568271940673606*^9, 3.5682720536490045`*^9}, { 3.5682722259669075`*^9, 3.5682723223126764`*^9}, {3.568272370813162*^9, 3.568272411466833*^9}, {3.5682725893539457`*^9, 3.568272622238803*^9}, { 3.5682726936713285`*^9, 3.5682726960113325`*^9}, {3.568272741079812*^9, 3.56827275143823*^9}, {3.5682729218373294`*^9, 3.568272991070251*^9}, { 3.5682734285574193`*^9, 3.5682734302890224`*^9}, {3.5682734898811274`*^9, 3.5682735111595645`*^9}, {3.5682736115925407`*^9, 3.5682736313577757`*^9}, {3.5682738601945777`*^9, 3.568273987272401*^9}, { 3.5682763944346285`*^9, 3.5682764313910933`*^9}, 3.5682765128232365`*^9, { 3.5682766527398825`*^9, 3.568276660976697*^9}, {3.5682774496048822`*^9, 3.568277461663703*^9}, {3.5683784032731285`*^9, 3.568378422991563*^9}, { 3.568378459308427*^9, 3.5683784812420654`*^9}, {3.568378513440522*^9, 3.568378867046343*^9}, {3.568378915468828*^9, 3.56837896203491*^9}, { 3.5683790764299107`*^9, 3.568379270041851*^9}, {3.568380233530743*^9, 3.568380234388745*^9}, 3.5683804214954734`*^9, 3.568380471867962*^9, 3.5683805399464817`*^9, {3.5683812396077104`*^9, 3.568381293537005*^9}, { 3.568381339541486*^9, 3.5683813935175805`*^9}, 3.5684646396646404`*^9, 3.5684646988823442`*^9, 3.568465086387025*^9, {3.5684655859935026`*^9, 3.568465605087936*^9}, 3.568821235038273*^9, 3.5688233741452303`*^9, 3.568823449742963*^9, 3.5688274593312387`*^9, {3.5688284679978104`*^9, 3.5688284689026117`*^9}, {3.5688285131598897`*^9, 3.5688285201487017`*^9}, 3.5688285866360188`*^9, {3.5688292397623663`*^9, 3.568829246688778*^9}, { 3.5688780328231993`*^9, 3.568878075458074*^9}, 3.5688953020257144`*^9, 3.5693395777359695`*^9, {3.569339615191635*^9, 3.569339617079238*^9}, { 3.5693396917877693`*^9, 3.56933969216217*^9}, 3.5693893483274703`*^9}], Cell[BoxData[ RowBox[{ RowBox[{"Plot7", "=", RowBox[{"Table", "[", RowBox[{ RowBox[{"Graphics3D", "[", RowBox[{"{", RowBox[{ RowBox[{"Darker", "[", RowBox[{"Brown", ",", "0.4"}], "]"}], ",", RowBox[{"Opacity", "[", "0.5", "]"}], ",", RowBox[{"If", "[", RowBox[{ RowBox[{ RowBox[{"wxc", "[", RowBox[{"[", "i", "]"}], "]"}], "\[NotEqual]", "0"}], ",", RowBox[{"Sphere", "[", RowBox[{ RowBox[{"{", RowBox[{ RowBox[{"wxc", "[", RowBox[{"[", "i", "]"}], "]"}], ",", RowBox[{"wyc", "[", RowBox[{"[", "i", "]"}], "]"}], ",", RowBox[{"wzc", "[", RowBox[{"[", "i", "]"}], "]"}]}], "}"}], ",", RowBox[{"a", "[", RowBox[{"[", RowBox[{"i", ",", "3"}], "]"}], "]"}]}], "]"}]}], "]"}]}], "}"}], "]"}], ",", RowBox[{"{", RowBox[{"i", ",", "1", ",", "cw"}], "}"}]}], "]"}]}], ";"}]], "Input", CellChangeTimes->{{3.5681365021632137`*^9, 3.5681365171392403`*^9}, { 3.568136560351316*^9, 3.5681365863097615`*^9}, {3.5681369135895367`*^9, 3.5681369265999594`*^9}, {3.568137821916732*^9, 3.5681378378443604`*^9}, { 3.5682072492149415`*^9, 3.5682072529901485`*^9}, 3.568209802830227*^9, { 3.5682216503836985`*^9, 3.5682217583046885`*^9}, {3.5682217912831464`*^9, 3.568221843465238*^9}, {3.5682219760654707`*^9, 3.5682221133457117`*^9}, { 3.568222159615393*^9, 3.5682221693498106`*^9}, {3.5682222565227633`*^9, 3.5682222578487663`*^9}, 3.5682224736283445`*^9, 3.5682227227607822`*^9, 3.5682227558640404`*^9, {3.568222818810151*^9, 3.5682228486062036`*^9}, { 3.5682230057764797`*^9, 3.5682230079916835`*^9}, {3.568223041952943*^9, 3.5682230548229656`*^9}, 3.5682232619601297`*^9, 3.5682233000709963`*^9, { 3.568223536645412*^9, 3.5682235381118145`*^9}, {3.568223591151908*^9, 3.568223591526308*^9}, {3.5682236491528096`*^9, 3.568223657483224*^9}, { 3.568223713222122*^9, 3.5682237532361927`*^9}, {3.568223800379475*^9, 3.568223827648323*^9}, {3.5682238887380304`*^9, 3.5682238893152313`*^9}, { 3.5682240287170763`*^9, 3.5682240612431335`*^9}, 3.5682241088076167`*^9, { 3.568224198772975*^9, 3.5682242396450467`*^9}, {3.568224282170721*^9, 3.5682243185031853`*^9}, {3.568224437890195*^9, 3.568224439590598*^9}, { 3.568224572253231*^9, 3.5682245867144566`*^9}, {3.5682247081762695`*^9, 3.568224733557514*^9}, {3.56822480520844*^9, 3.5682248433505073`*^9}, { 3.568224884206979*^9, 3.5682248959069996`*^9}, {3.568224982830352*^9, 3.5682250047639904`*^9}, {3.56822503870965*^9, 3.5682250803305235`*^9}, { 3.5682251223413973`*^9, 3.568225141451431*^9}, {3.568225234177994*^9, 3.5682252929588966`*^9}, {3.5682253775890455`*^9, 3.568225482140429*^9}, { 3.56822551694409*^9, 3.5682255297205124`*^9}, {3.568225573197789*^9, 3.5682255809666023`*^9}, 3.568225660698343*^9, 3.5682257301964645`*^9, { 3.568225765078126*^9, 3.5682257828933573`*^9}, {3.568225927026843*^9, 3.568225927416844*^9}, {3.568267062420238*^9, 3.568267081358671*^9}, { 3.568267188328059*^9, 3.5682672830358257`*^9}, {3.5682676367040462`*^9, 3.568267747979042*^9}, 3.5682678404716043`*^9, 3.568267882030078*^9, { 3.5682679252577534`*^9, 3.568267996612279*^9}, {3.5682680488879704`*^9, 3.568268061133992*^9}, {3.568268100914062*^9, 3.5682681150944867`*^9}, { 3.5682681672609787`*^9, 3.5682681709113846`*^9}, {3.568268272904364*^9, 3.5682683182536435`*^9}, {3.5682685202739983`*^9, 3.568268599194537*^9}, { 3.5682686348873997`*^9, 3.568268637773405*^9}, {3.5682686944951043`*^9, 3.568268872273017*^9}, {3.5682689420207396`*^9, 3.568269016947671*^9}, { 3.5682695040741262`*^9, 3.568269601153097*^9}, {3.5682696652380095`*^9, 3.5682696728352227`*^9}, {3.5682697489633565`*^9, 3.5682698308635006`*^9}, {3.568271156491429*^9, 3.568271160063835*^9}, { 3.568271244927984*^9, 3.568271369010602*^9}, {3.5682716250070515`*^9, 3.5682717312276382`*^9}, {3.5682717843301315`*^9, 3.5682718576814604`*^9}, {3.568271940673606*^9, 3.5682720536490045`*^9}, { 3.5682722259669075`*^9, 3.5682723223126764`*^9}, {3.568272370813162*^9, 3.568272411466833*^9}, {3.5682725893539457`*^9, 3.568272622238803*^9}, { 3.5682726936713285`*^9, 3.5682726960113325`*^9}, {3.568272741079812*^9, 3.56827275143823*^9}, {3.5682729218373294`*^9, 3.568272991070251*^9}, { 3.5682734285574193`*^9, 3.5682734302890224`*^9}, {3.5682734898811274`*^9, 3.5682735111595645`*^9}, {3.5682736115925407`*^9, 3.5682736313577757`*^9}, {3.5682738601945777`*^9, 3.568273987272401*^9}, { 3.5682763944346285`*^9, 3.5682764313910933`*^9}, 3.5682765128232365`*^9, { 3.5682766527398825`*^9, 3.568276660976697*^9}, {3.5682774496048822`*^9, 3.568277461663703*^9}, {3.5683784032731285`*^9, 3.568378422991563*^9}, { 3.568378459308427*^9, 3.5683784812420654`*^9}, {3.568378513440522*^9, 3.568378867046343*^9}, {3.568378915468828*^9, 3.56837896203491*^9}, { 3.5683790764299107`*^9, 3.568379270041851*^9}, {3.568380233530743*^9, 3.568380234388745*^9}, 3.5683804214954734`*^9, 3.568380471867962*^9, 3.5683805399464817`*^9, {3.5683812396077104`*^9, 3.568381293537005*^9}, { 3.568381339541486*^9, 3.5683813935175805`*^9}, 3.5684646396646404`*^9, 3.5684646988823442`*^9, 3.568465086387025*^9, {3.5684655859935026`*^9, 3.568465605087936*^9}, 3.568821235038273*^9, 3.5688233741452303`*^9, 3.568823449742963*^9, 3.5688274593312387`*^9, {3.5688284679978104`*^9, 3.5688284689026117`*^9}, {3.5688285131598897`*^9, 3.5688285201487017`*^9}, 3.5688285866360188`*^9, {3.5688292397623663`*^9, 3.568829246688778*^9}, { 3.5688780328231993`*^9, 3.56887811871695*^9}, {3.568895331556566*^9, 3.5688953367201753`*^9}, 3.568895995276532*^9, {3.5693397032225895`*^9, 3.56933970331619*^9}, 3.569339737137049*^9, 3.569340055299608*^9, 3.569389360947892*^9, {3.570298060155057*^9, 3.570298071589877*^9}, { 3.5704539766451664`*^9, 3.5704539773627677`*^9}, {3.5709509139026003`*^9, 3.570950950500265*^9}, {3.570950995397144*^9, 3.5709510449896307`*^9}, { 3.570974064815357*^9, 3.5709741190878525`*^9}, {3.5709742487084804`*^9, 3.570974273528124*^9}, {3.5713747544125347`*^9, 3.571374762618149*^9}, 3.5713830670175667`*^9}], Cell[BoxData[{ RowBox[{ RowBox[{"wxh", "=", RowBox[{"Table", "[", RowBox[{ RowBox[{ RowBox[{ RowBox[{ RowBox[{"(", RowBox[{ RowBox[{"a", "[", RowBox[{"[", RowBox[{"i", ",", "3"}], "]"}], "]"}], "+", RowBox[{"u2", "[", RowBox[{"[", RowBox[{"a", "[", RowBox[{"[", RowBox[{"i", ",", "2"}], "]"}], "]"}], "]"}], "]"}]}], ")"}], "/", RowBox[{"(", RowBox[{ RowBox[{"u2", "[", RowBox[{"[", RowBox[{"a", "[", RowBox[{"[", RowBox[{"i", ",", "1"}], "]"}], "]"}], "]"}], "]"}], "+", RowBox[{"a", "[", RowBox[{"[", RowBox[{"i", ",", "3"}], "]"}], "]"}], "+", RowBox[{"u2", "[", RowBox[{"[", RowBox[{"a", "[", RowBox[{"[", RowBox[{"i", ",", "2"}], "]"}], "]"}], "]"}], "]"}]}], ")"}]}], "*", RowBox[{"(", RowBox[{ RowBox[{"x", "[", RowBox[{"[", RowBox[{"a", "[", RowBox[{"[", RowBox[{"i", ",", "1"}], "]"}], "]"}], "]"}], "]"}], "-", RowBox[{"x", "[", RowBox[{"[", RowBox[{"a", "[", RowBox[{"[", RowBox[{"i", ",", "2"}], "]"}], "]"}], "]"}], "]"}]}], ")"}]}], "+", RowBox[{"x", "[", RowBox[{"[", RowBox[{"a", "[", RowBox[{"[", RowBox[{"i", ",", "2"}], "]"}], "]"}], "]"}], "]"}]}], ",", RowBox[{"{", RowBox[{"i", ",", RowBox[{"cw", "+", "1"}], ",", "nb"}], "}"}]}], "]"}]}], ";"}], "\n", RowBox[{ RowBox[{"wyh", "=", RowBox[{"Table", "[", RowBox[{ RowBox[{ RowBox[{ RowBox[{ RowBox[{"(", RowBox[{ RowBox[{"a", "[", RowBox[{"[", RowBox[{"i", ",", "3"}], "]"}], "]"}], "+", RowBox[{"u2", "[", RowBox[{"[", RowBox[{"a", "[", RowBox[{"[", RowBox[{"i", ",", "2"}], "]"}], "]"}], "]"}], "]"}]}], ")"}], "/", RowBox[{"(", RowBox[{ RowBox[{"u2", "[", RowBox[{"[", RowBox[{"a", "[", RowBox[{"[", RowBox[{"i", ",", "1"}], "]"}], "]"}], "]"}], "]"}], "+", RowBox[{"a", "[", RowBox[{"[", RowBox[{"i", ",", "3"}], "]"}], "]"}], "+", RowBox[{"u2", "[", RowBox[{"[", RowBox[{"a", "[", RowBox[{"[", RowBox[{"i", ",", "2"}], "]"}], "]"}], "]"}], "]"}]}], ")"}]}], "*", RowBox[{"(", RowBox[{ RowBox[{"y", "[", RowBox[{"[", RowBox[{"a", "[", RowBox[{"[", RowBox[{"i", ",", "1"}], "]"}], "]"}], "]"}], "]"}], "-", RowBox[{"y", "[", RowBox[{"[", RowBox[{"a", "[", RowBox[{"[", RowBox[{"i", ",", "2"}], "]"}], "]"}], "]"}], "]"}]}], ")"}]}], "+", RowBox[{"y", "[", RowBox[{"[", RowBox[{"a", "[", RowBox[{"[", RowBox[{"i", ",", "2"}], "]"}], "]"}], "]"}], "]"}]}], ",", RowBox[{"{", RowBox[{"i", ",", RowBox[{"cw", "+", "1"}], ",", "nb"}], "}"}]}], "]"}]}], ";"}], "\n", RowBox[{ RowBox[{"wzh", "=", RowBox[{"Table", "[", RowBox[{ RowBox[{ RowBox[{ RowBox[{ RowBox[{"(", RowBox[{ RowBox[{"a", "[", RowBox[{"[", RowBox[{"i", ",", "3"}], "]"}], "]"}], "+", RowBox[{"u2", "[", RowBox[{"[", RowBox[{"a", "[", RowBox[{"[", RowBox[{"i", ",", "2"}], "]"}], "]"}], "]"}], "]"}]}], ")"}], "/", RowBox[{"(", RowBox[{ RowBox[{"u2", "[", RowBox[{"[", RowBox[{"a", "[", RowBox[{"[", RowBox[{"i", ",", "1"}], "]"}], "]"}], "]"}], "]"}], "+", RowBox[{"a", "[", RowBox[{"[", RowBox[{"i", ",", "3"}], "]"}], "]"}], "+", RowBox[{"u2", "[", RowBox[{"[", RowBox[{"a", "[", RowBox[{"[", RowBox[{"i", ",", "2"}], "]"}], "]"}], "]"}], "]"}]}], ")"}]}], "*", RowBox[{"(", RowBox[{ RowBox[{"z", "[", RowBox[{"[", RowBox[{"a", "[", RowBox[{"[", RowBox[{"i", ",", "1"}], "]"}], "]"}], "]"}], "]"}], "-", RowBox[{"z", "[", RowBox[{"[", RowBox[{"a", "[", RowBox[{"[", RowBox[{"i", ",", "2"}], "]"}], "]"}], "]"}], "]"}]}], ")"}]}], "+", RowBox[{"z", "[", RowBox[{"[", RowBox[{"a", "[", RowBox[{"[", RowBox[{"i", ",", "2"}], "]"}], "]"}], "]"}], "]"}]}], ",", RowBox[{"{", RowBox[{"i", ",", RowBox[{"cw", "+", "1"}], ",", "nb"}], "}"}]}], "]"}]}], ";"}]}], "Input", CellChangeTimes->{{3.5681365021632137`*^9, 3.5681365171392403`*^9}, { 3.568136560351316*^9, 3.5681365863097615`*^9}, {3.5681369135895367`*^9, 3.5681369265999594`*^9}, {3.568137821916732*^9, 3.5681378378443604`*^9}, { 3.5682072492149415`*^9, 3.5682072529901485`*^9}, 3.568209802830227*^9, { 3.5682216503836985`*^9, 3.5682217583046885`*^9}, {3.5682217912831464`*^9, 3.568221843465238*^9}, {3.5682219760654707`*^9, 3.5682221133457117`*^9}, { 3.568222159615393*^9, 3.5682221693498106`*^9}, {3.5682222565227633`*^9, 3.5682222578487663`*^9}, 3.5682224736283445`*^9, 3.5682227227607822`*^9, 3.5682227558640404`*^9, {3.568222818810151*^9, 3.5682228486062036`*^9}, { 3.5682230057764797`*^9, 3.5682230079916835`*^9}, {3.568223041952943*^9, 3.5682230548229656`*^9}, 3.5682232619601297`*^9, 3.5682233000709963`*^9, { 3.568223536645412*^9, 3.5682235381118145`*^9}, {3.568223591151908*^9, 3.568223591526308*^9}, {3.5682236491528096`*^9, 3.568223657483224*^9}, { 3.568223713222122*^9, 3.5682237532361927`*^9}, {3.568223800379475*^9, 3.568223827648323*^9}, {3.5682238887380304`*^9, 3.5682238893152313`*^9}, { 3.5682240287170763`*^9, 3.5682240612431335`*^9}, 3.5682241088076167`*^9, { 3.568224198772975*^9, 3.5682242396450467`*^9}, {3.568224282170721*^9, 3.5682243185031853`*^9}, {3.568224437890195*^9, 3.568224439590598*^9}, { 3.568224572253231*^9, 3.5682245867144566`*^9}, {3.5682247081762695`*^9, 3.568224733557514*^9}, {3.56822480520844*^9, 3.5682248433505073`*^9}, { 3.568224884206979*^9, 3.5682248959069996`*^9}, {3.568224982830352*^9, 3.5682250047639904`*^9}, {3.56822503870965*^9, 3.5682250803305235`*^9}, { 3.5682251223413973`*^9, 3.568225141451431*^9}, {3.568225234177994*^9, 3.5682252929588966`*^9}, {3.5682253775890455`*^9, 3.568225482140429*^9}, { 3.56822551694409*^9, 3.5682255297205124`*^9}, {3.568225573197789*^9, 3.5682255809666023`*^9}, 3.568225660698343*^9, 3.5682257301964645`*^9, { 3.568225765078126*^9, 3.5682257828933573`*^9}, {3.568225927026843*^9, 3.568225927416844*^9}, {3.568267062420238*^9, 3.568267081358671*^9}, { 3.568267188328059*^9, 3.5682672830358257`*^9}, {3.5682676367040462`*^9, 3.568267747979042*^9}, 3.5682678404716043`*^9, 3.568267882030078*^9, { 3.5682679252577534`*^9, 3.568267996612279*^9}, {3.5682680488879704`*^9, 3.568268061133992*^9}, {3.568268100914062*^9, 3.5682681150944867`*^9}, { 3.5682681672609787`*^9, 3.5682681709113846`*^9}, {3.568268272904364*^9, 3.5682683182536435`*^9}, {3.5682685202739983`*^9, 3.568268599194537*^9}, { 3.5682686348873997`*^9, 3.568268637773405*^9}, {3.5682686944951043`*^9, 3.568268872273017*^9}, {3.5682689420207396`*^9, 3.568269016947671*^9}, { 3.5682695040741262`*^9, 3.568269601153097*^9}, {3.5682696652380095`*^9, 3.5682696728352227`*^9}, {3.5682697489633565`*^9, 3.5682698308635006`*^9}, {3.568271156491429*^9, 3.568271160063835*^9}, { 3.568271244927984*^9, 3.568271369010602*^9}, {3.5682716250070515`*^9, 3.5682717312276382`*^9}, {3.5682717843301315`*^9, 3.5682718576814604`*^9}, {3.568271940673606*^9, 3.5682720536490045`*^9}, { 3.5682722259669075`*^9, 3.5682723223126764`*^9}, {3.568272370813162*^9, 3.568272411466833*^9}, {3.5682725893539457`*^9, 3.568272622238803*^9}, { 3.5682726936713285`*^9, 3.5682726960113325`*^9}, {3.568272741079812*^9, 3.56827275143823*^9}, {3.5682729218373294`*^9, 3.568272991070251*^9}, { 3.5682734285574193`*^9, 3.5682734302890224`*^9}, {3.5682734898811274`*^9, 3.5682735111595645`*^9}, {3.5682736115925407`*^9, 3.5682736313577757`*^9}, {3.5682738601945777`*^9, 3.568273987272401*^9}, { 3.5682763944346285`*^9, 3.5682764313910933`*^9}, 3.5682765128232365`*^9, { 3.5682766527398825`*^9, 3.568276660976697*^9}, {3.5682774496048822`*^9, 3.568277461663703*^9}, {3.5683784032731285`*^9, 3.568378422991563*^9}, { 3.568378459308427*^9, 3.5683784812420654`*^9}, {3.568378513440522*^9, 3.568378867046343*^9}, {3.568378915468828*^9, 3.56837896203491*^9}, { 3.5683790764299107`*^9, 3.568379270041851*^9}, {3.568380233530743*^9, 3.568380234388745*^9}, 3.5683804214954734`*^9, 3.568380471867962*^9, 3.5683805399464817`*^9, {3.5683812396077104`*^9, 3.568381293537005*^9}, { 3.568381339541486*^9, 3.5683813935175805`*^9}, 3.5684646396646404`*^9, 3.5684646988823442`*^9, 3.568465086387025*^9, {3.5684655859935026`*^9, 3.568465605087936*^9}, 3.568821235038273*^9, 3.5688233741452303`*^9, 3.568823449742963*^9, 3.5688274593312387`*^9, {3.5688284679978104`*^9, 3.5688284689026117`*^9}, {3.5688285131598897`*^9, 3.5688285201487017`*^9}, 3.5688285866360188`*^9, {3.5688292397623663`*^9, 3.568829246688778*^9}, { 3.5688780328231993`*^9, 3.5688781280925665`*^9}, 3.568895312524533*^9, 3.5693395940691977`*^9, {3.5693396336776676`*^9, 3.5693396557829065`*^9}, { 3.569340069402033*^9, 3.569340092412073*^9}, {3.569389186383586*^9, 3.5693891947764006`*^9}, {3.569389263291721*^9, 3.569389289686967*^9}, 3.569389336315449*^9}], Cell[BoxData[ RowBox[{ RowBox[{"Plot8", "=", RowBox[{"Table", "[", RowBox[{ RowBox[{"Graphics3D", "[", RowBox[{"{", RowBox[{ RowBox[{"Opacity", "[", "0.5", "]"}], ",", RowBox[{"Sphere", "[", RowBox[{ RowBox[{"{", RowBox[{ RowBox[{"wxh", "[", RowBox[{"[", "i", "]"}], "]"}], ",", RowBox[{"wyh", "[", RowBox[{"[", "i", "]"}], "]"}], ",", RowBox[{"wzh", "[", RowBox[{"[", "i", "]"}], "]"}]}], "}"}], ",", RowBox[{"a", "[", RowBox[{"[", RowBox[{ RowBox[{"i", "+", "cw"}], ",", "3"}], "]"}], "]"}]}], "]"}]}], "}"}], "]"}], ",", RowBox[{"{", RowBox[{"i", ",", "1", ",", "bh"}], "}"}]}], "]"}]}], ";"}]], "Input", CellChangeTimes->{{3.5681365021632137`*^9, 3.5681365171392403`*^9}, { 3.568136560351316*^9, 3.5681365863097615`*^9}, {3.5681369135895367`*^9, 3.5681369265999594`*^9}, {3.568137821916732*^9, 3.5681378378443604`*^9}, { 3.5682072492149415`*^9, 3.5682072529901485`*^9}, 3.568209802830227*^9, { 3.5682216503836985`*^9, 3.5682217583046885`*^9}, {3.5682217912831464`*^9, 3.568221843465238*^9}, {3.5682219760654707`*^9, 3.5682221133457117`*^9}, { 3.568222159615393*^9, 3.5682221693498106`*^9}, {3.5682222565227633`*^9, 3.5682222578487663`*^9}, 3.5682224736283445`*^9, 3.5682227227607822`*^9, 3.5682227558640404`*^9, {3.568222818810151*^9, 3.5682228486062036`*^9}, { 3.5682230057764797`*^9, 3.5682230079916835`*^9}, {3.568223041952943*^9, 3.5682230548229656`*^9}, 3.5682232619601297`*^9, 3.5682233000709963`*^9, { 3.568223536645412*^9, 3.5682235381118145`*^9}, {3.568223591151908*^9, 3.568223591526308*^9}, {3.5682236491528096`*^9, 3.568223657483224*^9}, { 3.568223713222122*^9, 3.5682237532361927`*^9}, {3.568223800379475*^9, 3.568223827648323*^9}, {3.5682238887380304`*^9, 3.5682238893152313`*^9}, { 3.5682240287170763`*^9, 3.5682240612431335`*^9}, 3.5682241088076167`*^9, { 3.568224198772975*^9, 3.5682242396450467`*^9}, {3.568224282170721*^9, 3.5682243185031853`*^9}, {3.568224437890195*^9, 3.568224439590598*^9}, { 3.568224572253231*^9, 3.5682245867144566`*^9}, {3.5682247081762695`*^9, 3.568224733557514*^9}, {3.56822480520844*^9, 3.5682248433505073`*^9}, { 3.568224884206979*^9, 3.5682248959069996`*^9}, {3.568224982830352*^9, 3.5682250047639904`*^9}, {3.56822503870965*^9, 3.5682250803305235`*^9}, { 3.5682251223413973`*^9, 3.568225141451431*^9}, {3.568225234177994*^9, 3.5682252929588966`*^9}, {3.5682253775890455`*^9, 3.568225482140429*^9}, { 3.56822551694409*^9, 3.5682255297205124`*^9}, {3.568225573197789*^9, 3.5682255809666023`*^9}, 3.568225660698343*^9, 3.5682257301964645`*^9, { 3.568225765078126*^9, 3.5682257828933573`*^9}, {3.568225927026843*^9, 3.568225927416844*^9}, {3.568267062420238*^9, 3.568267081358671*^9}, { 3.568267188328059*^9, 3.5682672830358257`*^9}, {3.5682676367040462`*^9, 3.568267747979042*^9}, 3.5682678404716043`*^9, 3.568267882030078*^9, { 3.5682679252577534`*^9, 3.568267996612279*^9}, {3.5682680488879704`*^9, 3.568268061133992*^9}, {3.568268100914062*^9, 3.5682681150944867`*^9}, { 3.5682681672609787`*^9, 3.5682681709113846`*^9}, {3.568268272904364*^9, 3.5682683182536435`*^9}, {3.5682685202739983`*^9, 3.568268599194537*^9}, { 3.5682686348873997`*^9, 3.568268637773405*^9}, {3.5682686944951043`*^9, 3.568268872273017*^9}, {3.5682689420207396`*^9, 3.568269016947671*^9}, { 3.5682695040741262`*^9, 3.568269601153097*^9}, {3.5682696652380095`*^9, 3.5682696728352227`*^9}, {3.5682697489633565`*^9, 3.5682698308635006`*^9}, {3.568271156491429*^9, 3.568271160063835*^9}, { 3.568271244927984*^9, 3.568271369010602*^9}, {3.5682716250070515`*^9, 3.5682717312276382`*^9}, {3.5682717843301315`*^9, 3.5682718576814604`*^9}, {3.568271940673606*^9, 3.5682720536490045`*^9}, { 3.5682722259669075`*^9, 3.5682723223126764`*^9}, {3.568272370813162*^9, 3.568272411466833*^9}, {3.5682725893539457`*^9, 3.568272622238803*^9}, { 3.5682726936713285`*^9, 3.5682726960113325`*^9}, {3.568272741079812*^9, 3.56827275143823*^9}, {3.5682729218373294`*^9, 3.568272991070251*^9}, { 3.5682734285574193`*^9, 3.5682734302890224`*^9}, {3.5682734898811274`*^9, 3.5682735111595645`*^9}, {3.5682736115925407`*^9, 3.5682736313577757`*^9}, {3.5682738601945777`*^9, 3.568273987272401*^9}, { 3.5682763944346285`*^9, 3.5682764313910933`*^9}, 3.5682765128232365`*^9, { 3.5682766527398825`*^9, 3.568276660976697*^9}, {3.5682774496048822`*^9, 3.568277461663703*^9}, {3.5683784032731285`*^9, 3.568378422991563*^9}, { 3.568378459308427*^9, 3.5683784812420654`*^9}, {3.568378513440522*^9, 3.568378867046343*^9}, {3.568378915468828*^9, 3.56837896203491*^9}, { 3.5683790764299107`*^9, 3.568379270041851*^9}, {3.568380233530743*^9, 3.568380234388745*^9}, 3.5683804214954734`*^9, 3.568380471867962*^9, 3.5683805399464817`*^9, {3.5683812396077104`*^9, 3.568381293537005*^9}, { 3.568381339541486*^9, 3.5683813935175805`*^9}, 3.5684646396646404`*^9, 3.5684646988823442`*^9, 3.568465086387025*^9, {3.5684655859935026`*^9, 3.568465605087936*^9}, 3.568821235038273*^9, 3.5688233741452303`*^9, 3.568823449742963*^9, 3.5688274593312387`*^9, {3.5688284679978104`*^9, 3.5688284689026117`*^9}, {3.5688285131598897`*^9, 3.5688285201487017`*^9}, 3.5688285866360188`*^9, {3.5688292397623663`*^9, 3.568829246688778*^9}, { 3.5688780328231993`*^9, 3.568878147967001*^9}, {3.56889532230575*^9, 3.5688953242557535`*^9}, 3.56889600529175*^9, 3.5688961595292206`*^9, { 3.5693396821781526`*^9, 3.5693396825213532`*^9}, 3.5693893658151007`*^9, { 3.5693895413934093`*^9, 3.5693895427506113`*^9}, {3.5697651043452682`*^9, 3.5697651089940763`*^9}, {3.5704647001766*^9, 3.570464712141821*^9}}], Cell[BoxData[{ RowBox[{ RowBox[{"Plot8a", "=", RowBox[{"Table", "[", RowBox[{ RowBox[{"Graphics3D", "[", RowBox[{"{", RowBox[{ RowBox[{"Opacity", "[", "0.3", "]"}], ",", RowBox[{"Lighter", "[", "Cyan", "]"}], ",", RowBox[{"Sphere", "[", RowBox[{ RowBox[{"tpo", "[", RowBox[{"[", "i", "]"}], "]"}], ",", "rpo"}], "]"}]}], "}"}], "]"}], ",", RowBox[{"{", RowBox[{"i", ",", "1", ",", "nj"}], "}"}]}], "]"}]}], ";"}], "\[IndentingNewLine]", RowBox[{ RowBox[{"Plot8b", "=", RowBox[{"Table", "[", RowBox[{ RowBox[{"Graphics3D", "[", RowBox[{"{", RowBox[{ RowBox[{"Opacity", "[", "0.3", "]"}], ",", RowBox[{"Lighter", "[", "Yellow", "]"}], ",", RowBox[{"Sphere", "[", RowBox[{ RowBox[{"tpu", "[", RowBox[{"[", "i", "]"}], "]"}], ",", "rpi"}], "]"}]}], "}"}], "]"}], ",", RowBox[{"{", RowBox[{"i", ",", "1", ",", "nj"}], "}"}]}], "]"}]}], ";"}]}], "Input", CellChangeTimes->{{3.5681365021632137`*^9, 3.5681365171392403`*^9}, { 3.568136560351316*^9, 3.5681365863097615`*^9}, {3.5681369135895367`*^9, 3.5681369265999594`*^9}, {3.568137821916732*^9, 3.5681378378443604`*^9}, { 3.5682072492149415`*^9, 3.5682072529901485`*^9}, 3.568209802830227*^9, { 3.5682216503836985`*^9, 3.5682217583046885`*^9}, {3.5682217912831464`*^9, 3.568221843465238*^9}, {3.5682219760654707`*^9, 3.5682221133457117`*^9}, { 3.568222159615393*^9, 3.5682221693498106`*^9}, {3.5682222565227633`*^9, 3.5682222578487663`*^9}, 3.5682224736283445`*^9, 3.5682227227607822`*^9, 3.5682227558640404`*^9, {3.568222818810151*^9, 3.5682228486062036`*^9}, { 3.5682230057764797`*^9, 3.5682230079916835`*^9}, {3.568223041952943*^9, 3.5682230548229656`*^9}, 3.5682232619601297`*^9, 3.5682233000709963`*^9, { 3.568223536645412*^9, 3.5682235381118145`*^9}, {3.568223591151908*^9, 3.568223591526308*^9}, {3.5682236491528096`*^9, 3.568223657483224*^9}, { 3.568223713222122*^9, 3.5682237532361927`*^9}, {3.568223800379475*^9, 3.568223827648323*^9}, {3.5682238887380304`*^9, 3.5682238893152313`*^9}, { 3.5682240287170763`*^9, 3.5682240612431335`*^9}, 3.5682241088076167`*^9, { 3.568224198772975*^9, 3.5682242396450467`*^9}, {3.568224282170721*^9, 3.5682243185031853`*^9}, {3.568224437890195*^9, 3.568224439590598*^9}, { 3.568224572253231*^9, 3.5682245867144566`*^9}, {3.5682247081762695`*^9, 3.568224733557514*^9}, {3.56822480520844*^9, 3.5682248433505073`*^9}, { 3.568224884206979*^9, 3.5682248959069996`*^9}, {3.568224982830352*^9, 3.5682250047639904`*^9}, {3.56822503870965*^9, 3.5682250803305235`*^9}, { 3.5682251223413973`*^9, 3.568225141451431*^9}, {3.568225234177994*^9, 3.5682252929588966`*^9}, {3.5682253775890455`*^9, 3.568225482140429*^9}, { 3.56822551694409*^9, 3.5682255297205124`*^9}, {3.568225573197789*^9, 3.5682255809666023`*^9}, 3.568225660698343*^9, 3.5682257301964645`*^9, { 3.568225765078126*^9, 3.5682257828933573`*^9}, {3.568225927026843*^9, 3.568225927416844*^9}, {3.568267062420238*^9, 3.568267081358671*^9}, { 3.568267188328059*^9, 3.5682672830358257`*^9}, {3.5682676367040462`*^9, 3.568267747979042*^9}, 3.5682678404716043`*^9, 3.568267882030078*^9, { 3.5682679252577534`*^9, 3.568267996612279*^9}, {3.5682680488879704`*^9, 3.568268061133992*^9}, {3.568268100914062*^9, 3.5682681150944867`*^9}, { 3.5682681672609787`*^9, 3.5682681709113846`*^9}, {3.568268272904364*^9, 3.5682683182536435`*^9}, {3.5682685202739983`*^9, 3.568268599194537*^9}, { 3.5682686348873997`*^9, 3.568268637773405*^9}, {3.5682686944951043`*^9, 3.568268872273017*^9}, {3.5682689420207396`*^9, 3.568269016947671*^9}, { 3.5682695040741262`*^9, 3.568269601153097*^9}, {3.5682696652380095`*^9, 3.5682696728352227`*^9}, {3.5682697489633565`*^9, 3.5682698308635006`*^9}, {3.568271156491429*^9, 3.568271160063835*^9}, { 3.568271244927984*^9, 3.568271369010602*^9}, {3.5682716250070515`*^9, 3.5682717312276382`*^9}, {3.5682717843301315`*^9, 3.5682718576814604`*^9}, {3.568271940673606*^9, 3.5682720536490045`*^9}, { 3.5682722259669075`*^9, 3.5682723223126764`*^9}, {3.568272370813162*^9, 3.568272411466833*^9}, {3.5682725893539457`*^9, 3.568272622238803*^9}, { 3.5682726936713285`*^9, 3.5682726960113325`*^9}, {3.568272741079812*^9, 3.56827275143823*^9}, {3.5682729218373294`*^9, 3.568272991070251*^9}, { 3.5682734285574193`*^9, 3.5682734302890224`*^9}, {3.5682734898811274`*^9, 3.5682735111595645`*^9}, {3.5682736115925407`*^9, 3.5682736313577757`*^9}, {3.5682738601945777`*^9, 3.568273987272401*^9}, { 3.5682763944346285`*^9, 3.5682764313910933`*^9}, 3.5682765128232365`*^9, { 3.5682766527398825`*^9, 3.568276660976697*^9}, {3.5682774496048822`*^9, 3.568277461663703*^9}, {3.5683784032731285`*^9, 3.568378422991563*^9}, { 3.568378459308427*^9, 3.5683784812420654`*^9}, {3.568378513440522*^9, 3.568378867046343*^9}, {3.568378915468828*^9, 3.56837896203491*^9}, { 3.5683790764299107`*^9, 3.568379270041851*^9}, {3.568380233530743*^9, 3.568380234388745*^9}, 3.5683804214954734`*^9, 3.568380471867962*^9, 3.5683805399464817`*^9, {3.5683812396077104`*^9, 3.568381293537005*^9}, { 3.568381339541486*^9, 3.568381420224828*^9}, {3.5684645223056345`*^9, 3.5684645572340956`*^9}, {3.5684651558539467`*^9, 3.5684651618911576`*^9}, {3.5688209923798466`*^9, 3.568820997683856*^9}, { 3.568821158754139*^9, 3.568821160750942*^9}, 3.56882222404881*^9, { 3.568822649274357*^9, 3.5688226508031597`*^9}, 3.568822723109287*^9, { 3.5693397221142225`*^9, 3.5693397223326235`*^9}, {3.5693899272912874`*^9, 3.5693899274472876`*^9}, {3.5693910617720795`*^9, 3.5693910848757205`*^9}, 3.5693911374166126`*^9, {3.569391214402748*^9, 3.5693912147147484`*^9}, 3.569391451944365*^9, {3.569391487793228*^9, 3.569391507620863*^9}, { 3.5693923162258854`*^9, 3.5693923173958874`*^9}, {3.569406068526634*^9, 3.569406086092265*^9}, 3.569690172138941*^9, 3.569780036185542*^9, { 3.570453906913044*^9, 3.5704539079894457`*^9}, {3.570454575670618*^9, 3.5704545899602437`*^9}, {3.570454765008151*^9, 3.570454772277764*^9}, 3.5708553779481487`*^9, {3.5709431726830034`*^9, 3.570943174555007*^9}, { 3.5709495710522423`*^9, 3.5709495907082767`*^9}, {3.570949647617176*^9, 3.570949673138821*^9}, {3.570950759321929*^9, 3.5709507772775607`*^9}, { 3.5709508127364225`*^9, 3.5709508405200715`*^9}, {3.570991123104905*^9, 3.570991124259307*^9}, {3.5709912161278687`*^9, 3.570991227937089*^9}, { 3.5709912804155817`*^9, 3.570991308776431*^9}, {3.5709914026885962`*^9, 3.5709914215490294`*^9}, {3.570991574429298*^9, 3.5709916038821497`*^9}, 3.570991652445035*^9, 3.570991830004547*^9, 3.570991865276209*^9, { 3.5709919181759014`*^9, 3.5709919260539155`*^9}, {3.570992027251293*^9, 3.570992050058533*^9}, 3.5709920901350036`*^9, 3.570992186979974*^9, { 3.57122255431676*^9, 3.5712225562355638`*^9}, 3.571223175338251*^9, { 3.5713153738729277`*^9, 3.571315375682531*^9}, 3.5713224026962075`*^9, { 3.5713224627875133`*^9, 3.5713224654863176`*^9}, {3.5713224965147724`*^9, 3.571322572268505*^9}, {3.5713226259637995`*^9, 3.5713226549330506`*^9}, { 3.5713308245340652`*^9, 3.571330884469371*^9}, {3.5713309160126257`*^9, 3.5713309422674723`*^9}, 3.571331071326499*^9, {3.5713311246629925`*^9, 3.5713311332274075`*^9}, {3.571331300334901*^9, 3.5713313470881834`*^9}, 3.5713314298931284`*^9, 3.571331594130217*^9, {3.571331632849485*^9, 3.5713316334578857`*^9}, {3.5713316704299507`*^9, 3.5713316709447517`*^9}, {3.571331783327349*^9, 3.571331790019761*^9}, { 3.5713319475956383`*^9, 3.571331948360039*^9}, {3.5713326567416835`*^9, 3.571332681717327*^9}, {3.571332736801024*^9, 3.571332753305853*^9}, { 3.571332796221528*^9, 3.5713328475768185`*^9}, {3.571332914344936*^9, 3.571332924672154*^9}, {3.5713330072586994`*^9, 3.5713330320471425`*^9}, { 3.5713330798612266`*^9, 3.5713330883320417`*^9}, {3.5713331731961904`*^9, 3.571333178266199*^9}, {3.571333407851803*^9, 3.571333426837036*^9}, { 3.571333542292839*^9, 3.571333557705666*^9}, {3.5713336117441607`*^9, 3.5713337055939255`*^9}, {3.5713337750608473`*^9, 3.571333798070888*^9}, { 3.5713366694988756`*^9, 3.5713366834765005`*^9}, {3.5713369716090064`*^9, 3.57133697359021*^9}, {3.57138272164856*^9, 3.571382756233821*^9}, { 3.57138283537276*^9, 3.571382866900415*^9}, {3.5713829070080853`*^9, 3.5713829086616883`*^9}, {3.571382939175342*^9, 3.5713830233374896`*^9}, { 3.5713831045200324`*^9, 3.571383106126835*^9}, {3.571383198260597*^9, 3.5713832448422785`*^9}, 3.5716785972796593`*^9, 3.5718167268987517`*^9, { 3.571838452469782*^9, 3.5718386879053955`*^9}, {3.571838766139532*^9, 3.571838773908346*^9}, 3.5718388425484667`*^9, {3.571838961763876*^9, 3.571838969236289*^9}, {3.571839027970392*^9, 3.5718390313399982`*^9}, { 3.571839741203645*^9, 3.5718397450100517`*^9}, {3.572538612521628*^9, 3.572538701894185*^9}, {3.572538746213863*^9, 3.572538844837236*^9}, 3.5725397817592816`*^9, {3.5726093687611146`*^9, 3.5726094120667906`*^9}, { 3.5726201406133776`*^9, 3.5726201439517837`*^9}, {3.5726204342214937`*^9, 3.572620455406331*^9}, {3.5726210034788933`*^9, 3.572621009968505*^9}}], Cell[CellGroupData[{ Cell[BoxData[{ RowBox[{ RowBox[{ RowBox[{"Plot9", "=", " ", RowBox[{"Table", "[", RowBox[{ RowBox[{"Graphics3D", "[", RowBox[{"{", RowBox[{"If", "[", RowBox[{ RowBox[{"(", RowBox[{ RowBox[{ RowBox[{"a", "[", RowBox[{"[", RowBox[{"i", ",", "3"}], "]"}], "]"}], ">", "0.98"}], " ", "&&", " ", RowBox[{ RowBox[{"a", "[", RowBox[{"[", RowBox[{"i", ",", "3"}], "]"}], "]"}], "<", "1.05"}]}], ")"}], ",", RowBox[{"(", RowBox[{"{", RowBox[{ RowBox[{"Lighter", "[", RowBox[{"Orange", ",", "0.5"}], "]"}], ",", RowBox[{"Tube", "[", RowBox[{ RowBox[{"{", RowBox[{ RowBox[{"{", RowBox[{ RowBox[{"x", "[", RowBox[{"[", RowBox[{"a", "[", RowBox[{"[", RowBox[{"i", ",", "1"}], "]"}], "]"}], "]"}], "]"}], ",", RowBox[{ RowBox[{"y", "[", RowBox[{"[", RowBox[{"a", "[", RowBox[{"[", RowBox[{"i", ",", "1"}], "]"}], "]"}], "]"}], "]"}], "+", "0.12"}], ",", RowBox[{"z", "[", RowBox[{"[", RowBox[{"a", "[", RowBox[{"[", RowBox[{"i", ",", "1"}], "]"}], "]"}], "]"}], "]"}]}], "}"}], ",", RowBox[{"{", RowBox[{ RowBox[{"x", "[", RowBox[{"[", RowBox[{"a", "[", RowBox[{"[", RowBox[{"i", ",", "2"}], "]"}], "]"}], "]"}], "]"}], ",", RowBox[{ RowBox[{"y", "[", RowBox[{"[", RowBox[{"a", "[", RowBox[{"[", RowBox[{"i", ",", "2"}], "]"}], "]"}], "]"}], "]"}], "+", "0.12"}], ",", RowBox[{"z", "[", RowBox[{"[", RowBox[{"a", "[", RowBox[{"[", RowBox[{"i", ",", "2"}], "]"}], "]"}], "]"}], "]"}]}], "}"}]}], "}"}], ",", "0.06"}], "]"}], ",", RowBox[{"Tube", "[", RowBox[{ RowBox[{"{", RowBox[{ RowBox[{"{", RowBox[{ RowBox[{"x", "[", RowBox[{"[", RowBox[{"a", "[", RowBox[{"[", RowBox[{"i", ",", "1"}], "]"}], "]"}], "]"}], "]"}], ",", RowBox[{ RowBox[{"y", "[", RowBox[{"[", RowBox[{"a", "[", RowBox[{"[", RowBox[{"i", ",", "1"}], "]"}], "]"}], "]"}], "]"}], "-", "0.12"}], ",", RowBox[{"z", "[", RowBox[{"[", RowBox[{"a", "[", RowBox[{"[", RowBox[{"i", ",", "1"}], "]"}], "]"}], "]"}], "]"}]}], "}"}], ",", RowBox[{"{", RowBox[{ RowBox[{"x", "[", RowBox[{"[", RowBox[{"a", "[", RowBox[{"[", RowBox[{"i", ",", "2"}], "]"}], "]"}], "]"}], "]"}], ",", RowBox[{ RowBox[{"y", "[", RowBox[{"[", RowBox[{"a", "[", RowBox[{"[", RowBox[{"i", ",", "2"}], "]"}], "]"}], "]"}], "]"}], "-", "0.12"}], ",", RowBox[{"z", "[", RowBox[{"[", RowBox[{"a", "[", RowBox[{"[", RowBox[{"i", ",", "2"}], "]"}], "]"}], "]"}], "]"}]}], "}"}]}], "}"}], ",", "0.06"}], "]"}]}], "}"}], ")"}], ",", RowBox[{"Tube", "[", RowBox[{ RowBox[{"{", RowBox[{ RowBox[{"{", RowBox[{ RowBox[{"x", "[", RowBox[{"[", RowBox[{"a", "[", RowBox[{"[", RowBox[{"i", ",", "1"}], "]"}], "]"}], "]"}], "]"}], ",", RowBox[{"y", "[", RowBox[{"[", RowBox[{"a", "[", RowBox[{"[", RowBox[{"i", ",", "1"}], "]"}], "]"}], "]"}], "]"}], ",", RowBox[{"z", "[", RowBox[{"[", RowBox[{"a", "[", RowBox[{"[", RowBox[{"i", ",", "1"}], "]"}], "]"}], "]"}], "]"}]}], "}"}], ",", RowBox[{"{", RowBox[{ RowBox[{"x", "[", RowBox[{"[", RowBox[{"a", "[", RowBox[{"[", RowBox[{"i", ",", "2"}], "]"}], "]"}], "]"}], "]"}], ",", RowBox[{"y", "[", RowBox[{"[", RowBox[{"a", "[", RowBox[{"[", RowBox[{"i", ",", "2"}], "]"}], "]"}], "]"}], "]"}], ",", RowBox[{"z", "[", RowBox[{"[", RowBox[{"a", "[", RowBox[{"[", RowBox[{"i", ",", "2"}], "]"}], "]"}], "]"}], "]"}]}], "}"}]}], "}"}], ",", "0.06"}], "]"}]}], "]"}], "}"}], "]"}], ",", RowBox[{"{", RowBox[{"i", ",", "1", ",", "nb"}], "}"}]}], "]"}]}], ";"}], "\[IndentingNewLine]"}], "\[IndentingNewLine]", RowBox[{"Show", "[", RowBox[{ "Plot1o", ",", "Plot2", ",", "Plot7", ",", "Plot8", ",", "Plot8a", ",", "Plot8b", ",", "Plot9", ",", RowBox[{"{", RowBox[{ RowBox[{"AspectRatio", "\[Rule]", "Automatic"}], ",", RowBox[{"Boxed", "\[Rule]", "True"}], ",", " ", RowBox[{"Axes", "\[Rule]", "Automatic"}], ",", RowBox[{"AxesLabel", "\[Rule]", RowBox[{"{", RowBox[{"xl", ",", "yl", ",", "zl"}], "}"}]}], ",", RowBox[{"SphericalRegion", "\[Rule]", "True"}]}], "}"}]}], "]"}], "\[IndentingNewLine]", RowBox[{"Show", "[", RowBox[{"Plot1o", ",", "Plot2", ",", "Plot9", ",", RowBox[{"{", RowBox[{ RowBox[{"Axes", "\[Rule]", "Automatic"}], ",", RowBox[{"AxesLabel", "\[Rule]", RowBox[{"{", RowBox[{"xl", ",", "yl", ",", "zl"}], "}"}]}], ",", RowBox[{"AspectRatio", "\[Rule]", "Automatic"}], ",", RowBox[{"Boxed", "\[Rule]", "True"}], ",", " ", RowBox[{"SphericalRegion", "\[Rule]", "True"}]}], "}"}]}], "]"}], "\[IndentingNewLine]"}], "Input", CellChangeTimes->{{3.5681365021632137`*^9, 3.5681365171392403`*^9}, { 3.568136560351316*^9, 3.5681365863097615`*^9}, {3.5681369135895367`*^9, 3.5681369265999594`*^9}, {3.568137821916732*^9, 3.5681378378443604`*^9}, { 3.5682072492149415`*^9, 3.5682072529901485`*^9}, 3.568209802830227*^9, { 3.5682216503836985`*^9, 3.5682217583046885`*^9}, {3.5682217912831464`*^9, 3.568221843465238*^9}, {3.5682219760654707`*^9, 3.5682221133457117`*^9}, { 3.568222159615393*^9, 3.5682221693498106`*^9}, {3.5682222565227633`*^9, 3.5682222578487663`*^9}, 3.5682224736283445`*^9, 3.5682227227607822`*^9, 3.5682227558640404`*^9, {3.568222818810151*^9, 3.5682228486062036`*^9}, { 3.5682230057764797`*^9, 3.5682230079916835`*^9}, {3.568223041952943*^9, 3.5682230548229656`*^9}, 3.5682232619601297`*^9, 3.5682233000709963`*^9, { 3.568223536645412*^9, 3.5682235381118145`*^9}, {3.568223591151908*^9, 3.568223591526308*^9}, {3.5682236491528096`*^9, 3.568223657483224*^9}, { 3.568223713222122*^9, 3.5682237532361927`*^9}, {3.568223800379475*^9, 3.568223827648323*^9}, {3.5682238887380304`*^9, 3.5682238893152313`*^9}, { 3.5682240287170763`*^9, 3.5682240612431335`*^9}, 3.5682241088076167`*^9, { 3.568224198772975*^9, 3.5682242396450467`*^9}, {3.568224282170721*^9, 3.5682243185031853`*^9}, {3.568224437890195*^9, 3.568224439590598*^9}, { 3.568224572253231*^9, 3.5682245867144566`*^9}, {3.5682247081762695`*^9, 3.568224733557514*^9}, {3.56822480520844*^9, 3.5682248433505073`*^9}, { 3.568224884206979*^9, 3.5682248959069996`*^9}, {3.568224982830352*^9, 3.5682250047639904`*^9}, {3.56822503870965*^9, 3.5682250803305235`*^9}, { 3.5682251223413973`*^9, 3.568225141451431*^9}, {3.568225234177994*^9, 3.5682252929588966`*^9}, {3.5682253775890455`*^9, 3.568225482140429*^9}, { 3.56822551694409*^9, 3.5682255297205124`*^9}, {3.568225573197789*^9, 3.5682255809666023`*^9}, 3.568225660698343*^9, 3.5682257301964645`*^9, { 3.568225765078126*^9, 3.5682257828933573`*^9}, {3.568225927026843*^9, 3.568225927416844*^9}, {3.568267062420238*^9, 3.568267081358671*^9}, { 3.568267188328059*^9, 3.5682672830358257`*^9}, {3.5682676367040462`*^9, 3.568267747979042*^9}, 3.5682678404716043`*^9, 3.568267882030078*^9, { 3.5682679252577534`*^9, 3.568267996612279*^9}, {3.5682680488879704`*^9, 3.568268061133992*^9}, {3.568268100914062*^9, 3.5682681150944867`*^9}, { 3.5682681672609787`*^9, 3.5682681709113846`*^9}, {3.568268272904364*^9, 3.5682683182536435`*^9}, {3.5682685202739983`*^9, 3.568268599194537*^9}, { 3.5682686348873997`*^9, 3.568268637773405*^9}, {3.5682686944951043`*^9, 3.568268872273017*^9}, {3.5682689420207396`*^9, 3.568269016947671*^9}, { 3.5682695040741262`*^9, 3.568269601153097*^9}, {3.5682696652380095`*^9, 3.5682696728352227`*^9}, {3.5682697489633565`*^9, 3.5682698308635006`*^9}, {3.568271156491429*^9, 3.568271160063835*^9}, { 3.568271244927984*^9, 3.568271369010602*^9}, {3.5682716250070515`*^9, 3.5682717312276382`*^9}, {3.5682717843301315`*^9, 3.5682718576814604`*^9}, {3.568271940673606*^9, 3.5682720536490045`*^9}, { 3.5682722259669075`*^9, 3.5682723223126764`*^9}, {3.568272370813162*^9, 3.568272411466833*^9}, {3.5682725893539457`*^9, 3.568272622238803*^9}, { 3.5682726936713285`*^9, 3.5682726960113325`*^9}, {3.568272741079812*^9, 3.56827275143823*^9}, {3.5682729218373294`*^9, 3.568272991070251*^9}, { 3.5682734285574193`*^9, 3.5682734302890224`*^9}, {3.5682734898811274`*^9, 3.5682735111595645`*^9}, {3.5682736115925407`*^9, 3.5682736313577757`*^9}, {3.5682738601945777`*^9, 3.568273987272401*^9}, { 3.5682763944346285`*^9, 3.5682764313910933`*^9}, 3.5682765128232365`*^9, { 3.5682766527398825`*^9, 3.568276660976697*^9}, {3.5682774496048822`*^9, 3.568277461663703*^9}, {3.5683784032731285`*^9, 3.568378422991563*^9}, { 3.568378459308427*^9, 3.5683784812420654`*^9}, {3.568378513440522*^9, 3.568378867046343*^9}, {3.568378915468828*^9, 3.56837896203491*^9}, { 3.5683790764299107`*^9, 3.568379270041851*^9}, {3.568380233530743*^9, 3.568380234388745*^9}, 3.5683804214954734`*^9, 3.568380471867962*^9, 3.5683805399464817`*^9, {3.5683812396077104`*^9, 3.568381293537005*^9}, { 3.568381339541486*^9, 3.568381420224828*^9}, {3.5684645223056345`*^9, 3.5684645572340956`*^9}, {3.5684651558539467`*^9, 3.5684651618911576`*^9}, {3.5688209923798466`*^9, 3.568820997683856*^9}, { 3.568821158754139*^9, 3.568821160750942*^9}, 3.56882222404881*^9, { 3.568822649274357*^9, 3.5688226508031597`*^9}, 3.568822723109287*^9, { 3.5693397221142225`*^9, 3.5693397223326235`*^9}, {3.5693899272912874`*^9, 3.5693899274472876`*^9}, {3.5693910617720795`*^9, 3.5693910848757205`*^9}, 3.5693911374166126`*^9, {3.569391214402748*^9, 3.5693912147147484`*^9}, 3.569391451944365*^9, {3.569391487793228*^9, 3.569391507620863*^9}, { 3.5693923162258854`*^9, 3.5693923173958874`*^9}, {3.569406068526634*^9, 3.569406086092265*^9}, 3.569690172138941*^9, 3.569780036185542*^9, { 3.570453906913044*^9, 3.5704539079894457`*^9}, {3.570454575670618*^9, 3.5704545899602437`*^9}, {3.570454765008151*^9, 3.570454772277764*^9}, 3.5708553779481487`*^9, {3.5709431726830034`*^9, 3.570943174555007*^9}, { 3.5709495710522423`*^9, 3.5709495907082767`*^9}, {3.570949647617176*^9, 3.570949673138821*^9}, {3.570950759321929*^9, 3.5709507772775607`*^9}, { 3.5709508127364225`*^9, 3.5709508405200715`*^9}, {3.570991123104905*^9, 3.570991124259307*^9}, {3.5709912161278687`*^9, 3.570991227937089*^9}, { 3.5709912804155817`*^9, 3.570991308776431*^9}, {3.5709914026885962`*^9, 3.5709914215490294`*^9}, {3.570991574429298*^9, 3.5709916038821497`*^9}, 3.570991652445035*^9, 3.570991830004547*^9, 3.570991865276209*^9, { 3.5709919181759014`*^9, 3.5709919260539155`*^9}, {3.570992027251293*^9, 3.570992050058533*^9}, 3.5709920901350036`*^9, 3.570992186979974*^9, { 3.57122255431676*^9, 3.5712225562355638`*^9}, 3.571223175338251*^9, { 3.5713153738729277`*^9, 3.571315375682531*^9}, 3.5713224026962075`*^9, { 3.5713224627875133`*^9, 3.5713224654863176`*^9}, {3.5713224965147724`*^9, 3.571322572268505*^9}, {3.5713226259637995`*^9, 3.5713226549330506`*^9}, { 3.5713308245340652`*^9, 3.571330884469371*^9}, {3.5713309160126257`*^9, 3.5713309422674723`*^9}, 3.571331071326499*^9, {3.5713311246629925`*^9, 3.5713311332274075`*^9}, {3.571331300334901*^9, 3.5713313470881834`*^9}, 3.5713314298931284`*^9, 3.571331594130217*^9, {3.571331632849485*^9, 3.5713316334578857`*^9}, {3.5713316704299507`*^9, 3.5713316709447517`*^9}, {3.571331783327349*^9, 3.571331790019761*^9}, { 3.5713319475956383`*^9, 3.571331948360039*^9}, {3.5713326567416835`*^9, 3.571332681717327*^9}, {3.571332736801024*^9, 3.571332753305853*^9}, { 3.571332796221528*^9, 3.5713328475768185`*^9}, {3.571332914344936*^9, 3.571332924672154*^9}, {3.5713330072586994`*^9, 3.5713330320471425`*^9}, { 3.5713330798612266`*^9, 3.5713330883320417`*^9}, {3.5713331731961904`*^9, 3.571333178266199*^9}, {3.571333407851803*^9, 3.571333426837036*^9}, { 3.571333542292839*^9, 3.571333557705666*^9}, {3.5713336117441607`*^9, 3.5713337055939255`*^9}, {3.5713337750608473`*^9, 3.571333798070888*^9}, { 3.5713366694988756`*^9, 3.5713366834765005`*^9}, {3.5713369716090064`*^9, 3.57133697359021*^9}, {3.57138272164856*^9, 3.571382756233821*^9}, { 3.57138283537276*^9, 3.571382866900415*^9}, {3.5713829070080853`*^9, 3.5713829086616883`*^9}, {3.571382939175342*^9, 3.5713830233374896`*^9}, { 3.5713831045200324`*^9, 3.571383106126835*^9}, {3.571383198260597*^9, 3.5713832448422785`*^9}, 3.5716785972796593`*^9, 3.5718167268987517`*^9, { 3.571838452469782*^9, 3.5718386879053955`*^9}, 3.571838766139532*^9, { 3.571838857446493*^9, 3.5718388645757055`*^9}, 3.5723437133735733`*^9, 3.5723437554312468`*^9, {3.5723449027196617`*^9, 3.572344929582909*^9}, 3.5723450406551046`*^9, {3.57234950163894*^9, 3.5723495196413713`*^9}, { 3.572584520172369*^9, 3.5725845258195786`*^9}, {3.5726224003989472`*^9, 3.57262241340937*^9}}], Cell[BoxData[ Graphics3DBox[{ {RGBColor[ NCache[ Rational[1, 3], 0.3333333333333333], NCache[ Rational[1, 3], 0.3333333333333333], 1], Opacity[0.4], SphereBox[{6.2984567579999995`, 0.87813677494, 4.5943018512}, 0.51]}, {RGBColor[ NCache[ Rational[1, 3], 0.3333333333333333], NCache[ Rational[1, 3], 0.3333333333333333], 1], Opacity[0.4], SphereBox[{8.0912398142, 3.0808202978, 5.136275268}, 0.51]}, {RGBColor[ NCache[ Rational[1, 3], 0.3333333333333333], NCache[ Rational[1, 3], 0.3333333333333333], 1], Opacity[0.4], SphereBox[{10.1614346472, 3.1034970098, 3.1087882425999998`}, 0.51]}, {RGBColor[ NCache[ Rational[1, 3], 0.3333333333333333], NCache[ Rational[1, 3], 0.3333333333333333], 1], Opacity[0.4], SphereBox[{5.4828510164, 0.92895150708, 1.8780285960599998`}, 0.51]}, {RGBColor[ NCache[ Rational[1, 3], 0.3333333333333333], NCache[ Rational[1, 3], 0.3333333333333333], 1], Opacity[0.4], SphereBox[{8.954466651, 3.8282069308, 0.5798057313199999}, 0.51]}, {RGBColor[ NCache[ Rational[1, 3], 0.3333333333333333], NCache[ Rational[1, 3], 0.3333333333333333], 1], Opacity[0.4], SphereBox[{6.659205451399999, 2.2315774334, 0.10211134441}, 0.51]}, {RGBColor[ NCache[ Rational[1, 3], 0.3333333333333333], NCache[ Rational[1, 3], 0.3333333333333333], 1], Opacity[0.4], SphereBox[{7.652445436999999, -1.61707633272, 5.1421334186}, 0.51]}, {RGBColor[ NCache[ Rational[1, 3], 0.3333333333333333], NCache[ Rational[1, 3], 0.3333333333333333], 1], Opacity[0.4], SphereBox[{3.9725819972, 1.10059531966, 6.2977008676}, 0.51]}, {RGBColor[ NCache[ Rational[1, 3], 0.3333333333333333], NCache[ Rational[1, 3], 0.3333333333333333], 1], Opacity[0.4], SphereBox[{3.2546750897999996`, -0.53636093058, 1.15904454484}, 0.51]}, {RGBColor[ NCache[ Rational[1, 3], 0.3333333333333333], NCache[ Rational[1, 3], 0.3333333333333333], 1], Opacity[0.4], SphereBox[{5.6393203292, 2.1062885995999996`, -2.5537757163999997`}, 0.51]}, {RGBColor[ NCache[ Rational[1, 3], 0.3333333333333333], NCache[ Rational[1, 3], 0.3333333333333333], 1], Opacity[0.4], SphereBox[{1.2153772769, 0.6439052372399999, 0.150276680698}, 0.51]}, {RGBColor[ NCache[ Rational[1, 3], 0.3333333333333333], NCache[ Rational[1, 3], 0.3333333333333333], 1], Opacity[0.4], SphereBox[{-1.00289648546, -0.7372954961599999, -0.36513285772}, 0.51]}, {RGBColor[ NCache[ Rational[1, 3], 0.3333333333333333], NCache[ Rational[1, 3], 0.3333333333333333], 1], Opacity[0.4], SphereBox[{-1.10875893598, -3.5256617982, 0.20480850387999996`}, 0.51]}, {RGBColor[ NCache[ Rational[1, 3], 0.3333333333333333], NCache[ Rational[1, 3], 0.3333333333333333], 1], Opacity[0.4], SphereBox[{-3.047183175, 0.44584305518, -1.3762307540199998`}, 0.51]}, {RGBColor[ NCache[ Rational[1, 3], 0.3333333333333333], NCache[ Rational[1, 3], 0.3333333333333333], 1], Opacity[0.4], SphereBox[{-5.1780382126, -0.97286873932, -2.1119577776}, 0.51]}, {RGBColor[ NCache[ Rational[1, 3], 0.3333333333333333], NCache[ Rational[1, 3], 0.3333333333333333], 1], Opacity[0.4], SphereBox[{-7.2930195518, 0.22196721596, -2.9294532452}, 0.51]}, {RGBColor[ NCache[ Rational[1, 3], 0.3333333333333333], NCache[ Rational[1, 3], 0.3333333333333333], 1], Opacity[0.4], SphereBox[{-9.5026761636, -1.24914668052, -3.692524604}, 0.51]}, {RGBColor[ NCache[ Rational[1, 3], 0.3333333333333333], NCache[ Rational[1, 3], 0.3333333333333333], 1], Opacity[0.4], SphereBox[{-9.4310555482, -4.0933354886, -3.5706372769999994`}, 0.51]}, {RGBColor[ NCache[ Rational[1, 3], 0.3333333333333333], NCache[ Rational[1, 3], 0.3333333333333333], 1], Opacity[0.4], SphereBox[{-11.584965243, -0.072731774288, -4.4973589074}, 0.51]}, {RGBColor[ NCache[ Rational[1, 3], 0.3333333333333333], NCache[ Rational[1, 3], 0.3333333333333333], 1], Opacity[0.4], SphereBox[{-13.7116628834, -1.5733480730799998`, -5.6533043016}, 0.51]}, {RGBColor[1, NCache[ Rational[1, 3], 0.3333333333333333], NCache[ Rational[1, 3], 0.3333333333333333]], Opacity[0.4], SphereBox[{-14.6026686924, -0.31240950232, -7.868819063999999}, 0.356]}, {RGBColor[ NCache[ Rational[1, 3], 0.3333333333333333], NCache[ Rational[1, 3], 0.3333333333333333], 1], Opacity[0.4], SphereBox[{8.9455849388, 2.8361007808000003`, 6.994820788999999}, 0.2]}, {RGBColor[ NCache[ Rational[1, 3], 0.3333333333333333], NCache[ Rational[1, 3], 0.3333333333333333], 1], Opacity[0.4], SphereBox[{7.045654418399999, 4.8545171214, 5.077693761999999}, 0.2]}, {RGBColor[ NCache[ Rational[1, 3], 0.3333333333333333], NCache[ Rational[1, 3], 0.3333333333333333], 1], Opacity[0.4], SphereBox[{11.011055456799998`, 1.2324226054199998`, 2.9663029022}, 0.2]}, {RGBColor[ NCache[ Rational[1, 3], 0.3333333333333333], NCache[ Rational[1, 3], 0.3333333333333333], 1], Opacity[0.4], SphereBox[{11.60291764, 4.4877213048, 3.6071089888}, 0.2]}, {RGBColor[ NCache[ Rational[1, 3], 0.3333333333333333], NCache[ Rational[1, 3], 0.3333333333333333], 1], Opacity[0.4], SphereBox[{8.4075799466, 5.8133640938, 0.62856066212}, 0.2]}, {RGBColor[ NCache[ Rational[1, 3], 0.3333333333333333], NCache[ Rational[1, 3], 0.3333333333333333], 1], Opacity[0.4], SphereBox[{10.3173370422, 3.5362442637999996`, -0.9369639453199999}, 0.2]}, {RGBColor[ NCache[ Rational[1, 3], 0.3333333333333333], NCache[ Rational[1, 3], 0.3333333333333333], 1], Opacity[0.4], SphereBox[{6.3706442912, -3.1879677619999995`, 4.7785501362}, 0.2]}, {RGBColor[ NCache[ Rational[1, 3], 0.3333333333333333], NCache[ Rational[1, 3], 0.3333333333333333], 1], Opacity[0.4], SphereBox[{8.2460083736, -1.6577243389799998`, 7.113873526999999}, 0.2]}, {RGBColor[ NCache[ Rational[1, 3], 0.3333333333333333], NCache[ Rational[1, 3], 0.3333333333333333], 1], Opacity[0.4], SphereBox[{9.305010823999998, -1.78331552894, 3.924016039}, 0.2]}, {RGBColor[ NCache[ Rational[1, 3], 0.3333333333333333], NCache[ Rational[1, 3], 0.3333333333333333], 1], Opacity[0.4], SphereBox[{2.6287978386, -0.38658124782, 5.8226237512}, 0.2]}, {RGBColor[ NCache[ Rational[1, 3], 0.3333333333333333], NCache[ Rational[1, 3], 0.3333333333333333], 1], Opacity[0.4], SphereBox[{3.0889461196, 2.9398467381999995`, 6.0161316936}, 0.2]}, {RGBColor[ NCache[ Rational[1, 3], 0.3333333333333333], NCache[ Rational[1, 3], 0.3333333333333333], 1], Opacity[0.4], SphereBox[{4.5430902766, 0.9068606101399999, 8.2673622774}, 0.2]}, {RGBColor[ NCache[ Rational[1, 3], 0.3333333333333333], NCache[ Rational[1, 3], 0.3333333333333333], 1], Opacity[0.4], SphereBox[{3.2353998846, -2.5602007847999997`, 1.42313375334}, 0.2]}, {RGBColor[ NCache[ Rational[1, 3], 0.3333333333333333], NCache[ Rational[1, 3], 0.3333333333333333], 1], Opacity[0.4], SphereBox[{6.8030136, 3.2707377608, -3.7919241915999997`}, 0.2]}, {RGBColor[ NCache[ Rational[1, 3], 0.3333333333333333], NCache[ Rational[1, 3], 0.3333333333333333], 1], Opacity[0.4], SphereBox[{3.7010283709999996`, 2.8028416031999996`, -2.5785311269999998`}, 0.2]}, {RGBColor[ NCache[ Rational[1, 3], 0.3333333333333333], NCache[ Rational[1, 3], 0.3333333333333333], 1], Opacity[0.4], SphereBox[{5.6759810136, 0.15492918610999998`, -3.2121562547999996`}, 0.2]}, {RGBColor[ NCache[ Rational[1, 3], 0.3333333333333333], NCache[ Rational[1, 3], 0.3333333333333333], 1], Opacity[0.4], SphereBox[{1.29132536484, 2.6420259206, -0.2581365716}, 0.2]}, {RGBColor[ NCache[ Rational[1, 3], 0.3333333333333333], NCache[ Rational[1, 3], 0.3333333333333333], 1], Opacity[0.4], SphereBox[{-0.33081543356, -4.5810737692, -1.38367627446}, 0.2]}, {RGBColor[ NCache[ Rational[1, 3], 0.3333333333333333], NCache[ Rational[1, 3], 0.3333333333333333], 1], Opacity[0.4], SphereBox[{-3.0658914624, -4.0899339818, 0.51139765012}, 0.2]}, {RGBColor[ NCache[ Rational[1, 3], 0.3333333333333333], NCache[ Rational[1, 3], 0.3333333333333333], 1], Opacity[0.4], SphereBox[{-0.0062334501835999995`, -3.9225042581999996`, 1.8987966848}, 0.2]}, {RGBColor[ NCache[ Rational[1, 3], 0.3333333333333333], NCache[ Rational[1, 3], 0.3333333333333333], 1], Opacity[0.4], SphereBox[{-3.0381124902, 2.472706471, -1.61573462726}, 0.2]}, {RGBColor[ NCache[ Rational[1, 3], 0.3333333333333333], NCache[ Rational[1, 3], 0.3333333333333333], 1], Opacity[0.4], SphereBox[{-5.1264486927999995`, -3.0110894083999997`, -2.024841409}, 0.2]}, {RGBColor[ NCache[ Rational[1, 3], 0.3333333333333333], NCache[ Rational[1, 3], 0.3333333333333333], 1], Opacity[0.4], SphereBox[{-7.3442311263999995`, 2.2604902412, -3.0167585863999995`}, 0.2]}, {RGBColor[ NCache[ Rational[1, 3], 0.3333333333333333], NCache[ Rational[1, 3], 0.3333333333333333], 1], Opacity[0.4], SphereBox[{-11.297726891, -4.846580272200001, -4.0077309008}, 0.2]}, {RGBColor[ NCache[ Rational[1, 3], 0.3333333333333333], NCache[ Rational[1, 3], 0.3333333333333333], 1], Opacity[0.4], SphereBox[{-8.877554802799999, -4.6857645896, -1.6773019003399998`}, 0.2]}, {RGBColor[ NCache[ Rational[1, 3], 0.3333333333333333], NCache[ Rational[1, 3], 0.3333333333333333], 1], Opacity[0.4], SphereBox[{-8.0659174858, -4.8050063002, -4.9393658188}, 0.2]}, {RGBColor[ NCache[ Rational[1, 3], 0.3333333333333333], NCache[ Rational[1, 3], 0.3333333333333333], 1], Opacity[0.4], SphereBox[{-11.7452140078, 1.9541656565999999`, -4.3202915812}, 0.2]}, {RGBColor[ NCache[ Rational[1, 3], 0.3333333333333333], NCache[ Rational[1, 3], 0.3333333333333333], 1], Opacity[0.4], SphereBox[{-15.250088819999998`, -1.7430832623999999`, -4.2942133624}, 0.2]}, {RGBColor[ NCache[ Rational[1, 3], 0.3333333333333333], NCache[ Rational[1, 3], 0.3333333333333333], 1], Opacity[0.4], SphereBox[{-13.031550496, -3.4508286486, -6.158617033999999}, 0.2]}, {RGBColor[ NCache[ Rational[1, 3], 0.3333333333333333], NCache[ Rational[1, 3], 0.3333333333333333], 1], Opacity[0.4], SphereBox[{-15.9583581248, -1.33242690534, -8.547797615799999}, 0.2]}, Text3DBox["1", {5.698456758, 0.87813677494, 4.5943018512}, {1, 0}], Text3DBox["2", {7.4912398142, 3.0808202978, 5.136275268}, {1, 0}], Text3DBox["3", {9.5614346472, 3.1034970098, 3.1087882425999998`}, {1, 0}], Text3DBox["4", {4.8828510164, 0.92895150708, 1.8780285960599998`}, {1, 0}], Text3DBox["5", {8.354466651000001, 3.8282069308, 0.5798057313199999}, {1, 0}], Text3DBox["6", {6.0592054513999996`, 2.2315774334, 0.10211134441}, { 1, 0}], Text3DBox["7", {7.052445436999999, -1.61707633272, 5.1421334186}, {1, 0}], Text3DBox["8", {3.3725819971999997`, 1.10059531966, 6.2977008676}, {1, 0}], Text3DBox["9", {2.6546750897999996`, -0.53636093058, 1.15904454484}, {1, 0}], Text3DBox["10", {5.039320329200001, 2.1062885995999996`, -2.5537757163999997`}, {1, 0}], Text3DBox["11", {0.6153772769, 0.6439052372399999, 0.150276680698}, {1, 0}], Text3DBox[ "12", {-1.60289648546, -0.7372954961599999, -0.36513285772}, {1, 0}], Text3DBox["13", {-1.7087589359800002`, -3.5256617982, 0.20480850387999996`}, {1, 0}], Text3DBox["14", {-3.647183175, 0.44584305518, -1.3762307540199998`}, {1, 0}], Text3DBox[ "15", {-5.778038212599999, -0.97286873932, -2.1119577776}, {1, 0}], Text3DBox["16", {-7.893019551799999, 0.22196721596, -2.9294532452}, {1, 0}], Text3DBox["17", {-10.1026761636, -1.24914668052, -3.692524604}, {1, 0}], Text3DBox[ "18", {-10.0310555482, -4.0933354886, -3.5706372769999994`}, {1, 0}], Text3DBox["19", {-12.184965242999999`, -0.072731774288, -4.4973589074}, {1, 0}], Text3DBox[ "20", {-14.3116628834, -1.5733480730799998`, -5.6533043016}, {1, 0}], Text3DBox["21", {-15.2026686924, -0.31240950232, -7.868819063999999}, {1, 0}], Text3DBox["22", {8.3455849388, 2.8361007808000003`, 6.994820788999999}, {1, 0}], Text3DBox["23", {6.445654418399999, 4.8545171214, 5.077693761999999}, {1, 0}], Text3DBox["24", {10.411055456799998`, 1.2324226054199998`, 2.9663029022}, {1, 0}], Text3DBox["25", {11.00291764, 4.4877213048, 3.6071089888}, {1, 0}], Text3DBox["26", {7.807579946600001, 5.8133640938, 0.62856066212}, {1, 0}], Text3DBox["27", {9.7173370422, 3.5362442637999996`, -0.9369639453199999}, { 1, 0}], Text3DBox["28", {5.7706442912, -3.1879677619999995`, 4.7785501362}, {1, 0}], Text3DBox["29", {7.646008373600001, -1.6577243389799998`, 7.113873526999999}, {1, 0}], Text3DBox["30", {8.705010823999999, -1.78331552894, 3.924016039}, {1, 0}], Text3DBox["31", {2.0287978386, -0.38658124782, 5.8226237512}, {1, 0}], Text3DBox["32", {2.4889461196, 2.9398467381999995`, 6.0161316936}, {1, 0}], Text3DBox["33", {3.9430902766, 0.9068606101399999, 8.2673622774}, {1, 0}], Text3DBox["34", {2.6353998846, -2.5602007847999997`, 1.42313375334}, {1, 0}], Text3DBox["35", {6.2030136, 3.2707377608, -3.7919241915999997`}, {1, 0}], Text3DBox["36", {3.1010283709999995`, 2.8028416031999996`, -2.5785311269999998`}, {1, 0}], Text3DBox["37", {5.075981013600001, 0.15492918610999998`, -3.2121562547999996`}, {1, 0}], Text3DBox["38", {0.6913253648400001, 2.6420259206, -0.2581365716}, {1, 0}], Text3DBox["39", {-0.93081543356, -4.5810737692, -1.38367627446}, {1, 0}], Text3DBox["40", {-3.6658914624000003`, -4.0899339818, 0.51139765012}, {1, 0}], Text3DBox["41", {-0.6062334501836, -3.9225042581999996`, 1.8987966848}, {1, 0}], Text3DBox["42", {-3.6381124902, 2.472706471, -1.61573462726}, {1, 0}], Text3DBox["43", {-5.726448692799999, -3.0110894083999997`, -2.024841409}, { 1, 0}], Text3DBox["44", {-7.944231126399999, 2.2604902412, -3.0167585863999995`}, {1, 0}], Text3DBox["45", {-11.897726891, -4.846580272200001, -4.0077309008}, {1, 0}], Text3DBox[ "46", {-9.477554802799999, -4.6857645896, -1.6773019003399998`}, {1, 0}], Text3DBox["47", {-8.6659174858, -4.8050063002, -4.9393658188}, {1, 0}], Text3DBox["48", {-12.3452140078, 1.9541656565999999`, -4.3202915812}, {1, 0}], Text3DBox[ "49", {-15.850088819999998`, -1.7430832623999999`, -4.2942133624}, {1, 0}], Text3DBox["50", {-13.631550496, -3.4508286486, -6.158617033999999}, { 1, 0}], Text3DBox[ "51", {-16.5583581248, -1.33242690534, -8.547797615799999}, {1, 0}], {RGBColor[0.36, 0.24, 0.12], Opacity[0.5], SphereBox[{7.195065307464576, 1.9797451773236876`, 4.865354166986276}, 1.1903004568009015`]}, {RGBColor[0.36, 0.24, 0.12], Opacity[0.5], SphereBox[{9.126337230699999, 3.0921586538, 4.122531755300001}, 1.1938723648075744`]}, {RGBColor[0.36, 0.24, 0.12], Opacity[0.5], SphereBox[{5.890653887199999, 0.90354414101, 3.2361652236299996`}, 1.1625678924767877`]}, {RGBColor[0.36, 0.24, 0.12], Opacity[0.5], SphereBox[{9.5579506491, 3.4658519703, 1.8442969869599999`}, 1.1922153222488148`]}, {RGBColor[0.36, 0.24, 0.12], Opacity[0.5], SphereBox[{6.0710282339, 1.58026447024, 0.990069970235}, 0.9927516555891636]}, {RGBColor[0.36, 0.24, 0.12], Opacity[0.5], SphereBox[{7.807119268525147, 3.030089193723594, 0.34101748162552803`}, 1.162892015105526]}, {RGBColor[0.36, 0.24, 0.12], Opacity[0.5], SphereBox[{6.9756852479854325`, -0.36990128571829195`, 4.868312373526277}, 1.1904394105843248`]}, {RGBColor[0.36, 0.24, 0.12], Opacity[0.5], SphereBox[{5.135117185323176, 0.9894045150241044, 5.446295912632312}, 1.1905480257740177`]}, {RGBColor[0.36, 0.24, 0.12], Opacity[0.5], SphereBox[{4.3687630530999995`, 0.19629528824999998`, 1.5185365704499998`}, 1.1253183349388942`]}, {RGBColor[0.36, 0.24, 0.12], Opacity[0.5], SphereBox[{6.149083820821049, 2.16891101852621, -1.2262985015650358`}, 1.1686678866153497`]}, {RGBColor[0.36, 0.24, 0.12], Opacity[0.5], SphereBox[{2.2350261833499996`, 0.05377215332999996, 0.654660612769}, 1.025839738003161]}, {RGBColor[0.36, 0.24, 0.12], Opacity[0.5], SphereBox[{0.10624039571999999`, -0.046695129459999984`, -0.107428088511}, 1.0760376752772804`]}, {RGBColor[0.36, 0.24, 0.12], Opacity[0.5], SphereBox[{-1.0558462962107484`, -2.1319681801150008`, \ -0.0800621165128296}, 1.1687932099947655`]}, {RGBColor[0.36, 0.24, 0.12], Opacity[0.5], SphereBox[{-2.02503983023, -0.14572622048999995`, -0.8706818058699999}, 1.0289442947952179`]}, {RGBColor[0.36, 0.24, 0.12], Opacity[0.5], SphereBox[{-4.1126106938, -0.2635128420699999, -1.7440942658099998`}, 1.0760826962707348`]}, {RGBColor[0.36, 0.24, 0.12], Opacity[0.5], SphereBox[{-6.2355288822, -0.3754507616799999, -2.5207055114}, 1.0258106188343346`]}, {RGBColor[0.36, 0.24, 0.12], Opacity[0.5], SphereBox[{-8.3978478577, -0.51358973228, -3.3109889246}, 1.1253355115916557`]}, {RGBColor[0.36, 0.24, 0.12], Opacity[0.5], SphereBox[{-9.46685328073193, -2.6717404680417554`, -3.631559539488377}, 1.168650063124714]}, {RGBColor[0.36, 0.24, 0.12], Opacity[0.5], SphereBox[{-10.5438207033, -0.660939227404, -4.0949417557}, 1.0060089697829193`]}, {RGBColor[0.36, 0.24, 0.12], Opacity[0.5], SphereBox[{-12.648575423259075`, -0.8232243416083211, -5.075473664166018}, 1.1686322579877293`]}, {RGBColor[0.36, 0.24, 0.12], Opacity[0.5], SphereBox[{-14.169868812021535`, -0.9249016511669437, -6.79264816313953}, 1.1337187872076826`]}, {Opacity[0.5], SphereBox[{8.709489484663667, 2.9037282112593124`, 6.481217871187386}, 1.2357933686504747`]}, {Opacity[0.5], SphereBox[{7.3346428786614855`, 4.364286561484166, 5.0938850547310786`}, 1.235476938118349]}, {Opacity[0.5], SphereBox[{10.77624044002041, 1.7495431404822177`, 3.0056824668467543`}, 1.2355730589675256`]}, {Opacity[0.5], SphereBox[{11.204488251260202`, 4.1051183587434945`, 3.469371928219658}, 1.2353780533600913`]}, {Opacity[0.5], SphereBox[{8.558740089475585, 5.264664266257492, 0.6150847406058669}, 1.2353871297692312`]}, {Opacity[0.5], SphereBox[{9.940679624370931, 3.6169341848407526`, -0.5177732772025242}, 1.2356145987409288`]}, {Opacity[0.5], SphereBox[{6.724910793871082, -2.7538019676016257`, 4.879037936751255}, 1.235831756042301]}, {Opacity[0.5], SphereBox[{8.081935593676656, -1.6464884093520116`, 6.568844750903158}, 1.2355456477561668`]}, {Opacity[0.5], SphereBox[{8.848245507835912, -1.7373673930189542`, 4.260700913556169}, 1.2357130332048445`]}, {Opacity[0.5], SphereBox[{3.0001847523081597`, 0.024435589966594673`, 5.95392268258269}, 1.235890354920097]}, {Opacity[0.5], SphereBox[{3.333166055574349, 2.4315130737764017`, 6.093951989708165}, 1.235839640489124]}, {Opacity[0.5], SphereBox[{4.385406079469298, 0.9604074266018731, 7.722962679290262}, 1.2357521462040213`]}, {Opacity[0.5], SphereBox[{3.2407761209285644`, -1.9957117827605422`, 1.3494740448187397`}, 1.2160885328938793`]}, {Opacity[0.5], SphereBox[{6.481398630136755, 2.9489138822197276`, -3.4497317131095833`}, 1.2358872600617417`]}, {Opacity[0.5], SphereBox[{4.236745331311138, 2.6103240331788573`, -2.5716890755423845`}, 1.2357996583165434`]}, {Opacity[0.5], SphereBox[{5.665848316308251, 0.6942681146625476, -3.030185546735806}, 1.2357603015255403`]}, {Opacity[0.5], SphereBox[{1.2701394306775513`, 2.0846444987038364`, -0.14420853853229876`}, 1.215846824723846]}, {Opacity[0.5], SphereBox[{-0.5458383481192652, -4.289358808718669, -0.9446204488001931}, 1.2357025058258968`]}, {Opacity[0.5], SphereBox[{-2.524966790716883, -3.9339768651850755`, 0.42666060189627153`}, 1.2357979822662262`]}, {Opacity[0.5], SphereBox[{-0.31096092314473334`, -3.8128208072889964`, 1.4305945940112303`}, 1.235767545619187]}, {Opacity[0.5], SphereBox[{-3.0406426121298424`, 1.9073454546893096`, -1.5489288661374467`}, 1.2159849801037783`]}, {Opacity[0.5], SphereBox[{-5.140840532808636, -2.4424904781247143`, \ -2.0491441131904082`}, 1.2157337494382183`]}, {Opacity[0.5], SphereBox[{-7.32994682477678, 1.6918907012357107`, -2.992406751160414}, 1.216034289865974]}, {Opacity[0.5], SphereBox[{-10.781811914544614`, -4.638396723288159, \ -3.8869259463009813`}, 1.235827769989031]}, {Opacity[0.5], SphereBox[{-9.030547707164606, -4.522011515109373, -2.20063792223124}, 1.2356247627619668`]}, {Opacity[0.5], SphereBox[{-8.443190643707354, -4.608327076407212, -4.561100386529379}, 1.2359745373753002`]}, {Opacity[0.5], SphereBox[{-11.700513716959104`, 1.3887765581040856`, -4.369683294074904}, 1.215917857231867]}, {Opacity[0.5], SphereBox[{-14.824885159318958`, -1.6961703612792887`, \ -4.669850842760894}, 1.235479740145197]}, {Opacity[0.5], SphereBox[{-13.219522945289958`, -2.93192231956816, -6.018956481234968}, 1.2355124012820666`]}, {Opacity[0.5], SphereBox[{-15.569542264804337`, -1.0398828061626106`, \ -8.353064498297293}, 1.1252864433636154`]}, {RGBColor[ NCache[ Rational[1, 3], 0.3333333333333333], 1, 1], Opacity[0.3], SphereBox[{{4.6635256219318, 2.032400203535989, 2.144687314779468}, { 6.2984567579999995`, 0.87813677494, 4.5943018512}, {6.659205451399999, 2.2315774334, 0.1021113444100008}}, 1.4]}, {RGBColor[ NCache[ Rational[1, 3], 0.3333333333333333], 1, 1], Opacity[0.3], SphereBox[{{5.837473221196367, 3.3338302317969397`, 0.36629860805206116`}, {5.4828510164, 0.92895150708, 1.8780285960599998`}, {8.954466651, 3.8282069308, 0.5798057313199998}}, 1.4]}, {RGBColor[ NCache[ Rational[1, 3], 0.3333333333333333], 1, 1], Opacity[0.3], SphereBox[{{2.7233509627477925`, -0.3579043527195277, 2.4419505904374703`}, {5.4828510164, 0.92895150708, 1.8780285960599998`}, {1.2153772769, 0.6439052372400006, 0.1502766806980007}}, 1.4]}, {RGBColor[ NCache[ Rational[1, 3], 0.3333333333333333], 1, 1], Opacity[0.3], SphereBox[{{0.7413802262397957, 0.9249102664988519, 1.437274337842977}, { 3.2546750897999996`, -0.53636093058, 1.15904454484}, {-1.0028964854600004`, -0.7372954961600003, \ -0.3651328577199999}}, 1.4]}, {RGBColor[1, 1, NCache[ Rational[1, 3], 0.3333333333333333]], Opacity[0.3], SphereBox[{{6.302176410868199, -0.17449718937598857`, 1.6113698773405312`}, {6.2984567579999995`, 0.87813677494, 4.5943018512}, {6.659205451399999, 2.2315774334, 0.1021113444100008}}, 1.4]}, {RGBColor[1, 1, NCache[ Rational[1, 3], 0.3333333333333333]], Opacity[0.3], SphereBox[{{7.480937681603631, 1.1293246350030604`, -0.16207591923206066`}, {5.4828510164, 0.92895150708, 1.8780285960599998`}, {8.954466651, 3.8282069308, 0.5798057313199998}}, 1.4]}, {RGBColor[1, 1, NCache[ Rational[1, 3], 0.3333333333333333]], Opacity[0.3], SphereBox[{{ 3.7859992168522076`, -0.7148175084404714, -0.12386150075747016`}, { 5.4828510164, 0.92895150708, 1.8780285960599998`}, {1.2153772769, 0.6439052372400006, 0.1502766806980007}}, 1.4]}, {RGBColor[1, 1, NCache[ Rational[1, 3], 0.3333333333333333]], Opacity[0.3], SphereBox[{{1.6893743275602036`, 0.3629002079811485, -1.136720976446977}, { 3.2546750897999996`, -0.53636093058, 1.15904454484}, {-1.0028964854600004`, -0.7372954961600003, \ -0.3651328577199999}}, 1.4]}, TubeBox[{{8.0912398142, 3.0808202978, 5.136275268}, {6.2984567579999995`, 0.87813677494, 4.5943018512}}, 0.06], TubeBox[{{10.1614346472, 3.1034970098, 3.1087882425999998`}, {8.0912398142, 3.0808202978, 5.136275268}}, 0.06], TubeBox[{{5.4828510164, 0.92895150708, 1.8780285960599998`}, { 6.2984567579999995`, 0.87813677494, 4.5943018512}}, 0.06], TubeBox[{{8.954466651, 3.8282069308, 0.5798057313199999}, {10.1614346472, 3.1034970098, 3.1087882425999998`}}, 0.06], {RGBColor[1., 0.75, 0.5], TubeBox[{{6.659205451399999, 2.3515774334, 0.10211134441}, {5.4828510164, 1.04895150708, 1.8780285960599998`}}, 0.06], TubeBox[{{6.659205451399999, 2.1115774334, 0.10211134441}, {5.4828510164, 0.80895150708, 1.8780285960599998`}}, 0.06]}, TubeBox[{{6.659205451399999, 2.2315774334, 0.10211134441}, {8.954466651, 3.8282069308, 0.5798057313199999}}, 0.06], TubeBox[{{7.652445436999999, -1.61707633272, 5.1421334186}, { 6.2984567579999995`, 0.87813677494, 4.5943018512}}, 0.06], TubeBox[{{3.9725819972, 1.10059531966, 6.2977008676}, {6.2984567579999995`, 0.87813677494, 4.5943018512}}, 0.06], TubeBox[{{3.2546750897999996`, -0.53636093058, 1.15904454484}, { 5.4828510164, 0.92895150708, 1.8780285960599998`}}, 0.06], TubeBox[{{5.6393203292, 2.1062885995999996`, -2.5537757163999997`}, { 6.659205451399999, 2.2315774334, 0.10211134441}}, 0.06], {RGBColor[1., 0.75, 0.5], TubeBox[{{1.2153772769, 0.7639052372399999, 0.150276680698}, { 3.2546750897999996`, -0.41636093058, 1.15904454484}}, 0.06], TubeBox[{{1.2153772769, 0.5239052372399999, 0.150276680698}, { 3.2546750897999996`, -0.65636093058, 1.15904454484}}, 0.06]}, TubeBox[{{-1.00289648546, -0.7372954961599999, -0.36513285772}, { 1.2153772769, 0.6439052372399999, 0.150276680698}}, 0.06], TubeBox[{{-1.10875893598, -3.5256617982, 0.20480850387999996`}, {-1.00289648546, -0.7372954961599999, \ -0.36513285772}}, 0.06], {RGBColor[1., 0.75, 0.5], TubeBox[{{-3.047183175, 0.56584305518, -1.3762307540199998`}, {-1.00289648546, \ -0.6172954961599999, -0.36513285772}}, 0.06], TubeBox[{{-3.047183175, 0.32584305518, -1.3762307540199998`}, {-1.00289648546, \ -0.8572954961599999, -0.36513285772}}, 0.06]}, TubeBox[{{-5.1780382126, -0.97286873932, -2.1119577776}, {-3.047183175, 0.44584305518, -1.3762307540199998`}}, 0.06], {RGBColor[1., 0.75, 0.5], TubeBox[{{-7.2930195518, 0.34196721596, -2.9294532452}, {-5.1780382126, -0.85286873932, \ -2.1119577776}}, 0.06], TubeBox[{{-7.2930195518, 0.10196721596, -2.9294532452}, {-5.1780382126, -1.09286873932, \ -2.1119577776}}, 0.06]}, TubeBox[{{-9.5026761636, -1.24914668052, -3.692524604}, {-7.2930195518, 0.22196721596, -2.9294532452}}, 0.06], TubeBox[{{-9.4310555482, -4.0933354886, -3.5706372769999994`}, \ {-9.5026761636, -1.24914668052, -3.692524604}}, 0.06], {RGBColor[1., 0.75, 0.5], TubeBox[{{-11.584965243, 0.047268225712, -4.4973589074}, {-9.5026761636, -1.12914668052, \ -3.692524604}}, 0.06], TubeBox[{{-11.584965243, -0.19273177428799998`, -4.4973589074}, \ {-9.5026761636, -1.36914668052, -3.692524604}}, 0.06]}, TubeBox[{{-13.7116628834, -1.5733480730799998`, -5.6533043016}, \ {-11.584965243, -0.072731774288, -4.4973589074}}, 0.06], TubeBox[{{-14.6026686924, -0.31240950232, -7.868819063999999}, \ {-13.7116628834, -1.5733480730799998`, -5.6533043016}}, 0.06], TubeBox[{{8.9455849388, 2.8361007808000003`, 6.994820788999999}, { 8.0912398142, 3.0808202978, 5.136275268}}, 0.06], TubeBox[{{7.045654418399999, 4.8545171214, 5.077693761999999}, { 8.0912398142, 3.0808202978, 5.136275268}}, 0.06], TubeBox[{{11.011055456799998`, 1.2324226054199998`, 2.9663029022}, { 10.1614346472, 3.1034970098, 3.1087882425999998`}}, 0.06], TubeBox[{{11.60291764, 4.4877213048, 3.6071089888}, {10.1614346472, 3.1034970098, 3.1087882425999998`}}, 0.06], TubeBox[{{8.4075799466, 5.8133640938, 0.62856066212}, {8.954466651, 3.8282069308, 0.5798057313199999}}, 0.06], TubeBox[{{10.3173370422, 3.5362442637999996`, -0.9369639453199999}, { 8.954466651, 3.8282069308, 0.5798057313199999}}, 0.06], TubeBox[{{6.3706442912, -3.1879677619999995`, 4.7785501362}, { 7.652445436999999, -1.61707633272, 5.1421334186}}, 0.06], TubeBox[{{8.2460083736, -1.6577243389799998`, 7.113873526999999}, { 7.652445436999999, -1.61707633272, 5.1421334186}}, 0.06], TubeBox[{{9.305010823999998, -1.78331552894, 3.924016039}, { 7.652445436999999, -1.61707633272, 5.1421334186}}, 0.06], TubeBox[{{2.6287978386, -0.38658124782, 5.8226237512}, {3.9725819972, 1.10059531966, 6.2977008676}}, 0.06], TubeBox[{{3.0889461196, 2.9398467381999995`, 6.0161316936}, {3.9725819972, 1.10059531966, 6.2977008676}}, 0.06], TubeBox[{{4.5430902766, 0.9068606101399999, 8.2673622774}, {3.9725819972, 1.10059531966, 6.2977008676}}, 0.06], TubeBox[{{3.2353998846, -2.5602007847999997`, 1.42313375334}, { 3.2546750897999996`, -0.53636093058, 1.15904454484}}, 0.06], TubeBox[{{6.8030136, 3.2707377608, -3.7919241915999997`}, {5.6393203292, 2.1062885995999996`, -2.5537757163999997`}}, 0.06], TubeBox[{{3.7010283709999996`, 2.8028416031999996`, -2.5785311269999998`}, {5.6393203292, 2.1062885995999996`, -2.5537757163999997`}}, 0.06], TubeBox[{{5.6759810136, 0.15492918610999998`, -3.2121562547999996`}, { 5.6393203292, 2.1062885995999996`, -2.5537757163999997`}}, 0.06], TubeBox[{{1.29132536484, 2.6420259206, -0.2581365716}, {1.2153772769, 0.6439052372399999, 0.150276680698}}, 0.06], TubeBox[{{-0.33081543356, -4.5810737692, -1.38367627446}, {-1.10875893598, \ -3.5256617982, 0.20480850387999996`}}, 0.06], TubeBox[{{-3.0658914624, -4.0899339818, 0.51139765012}, {-1.10875893598, -3.5256617982, 0.20480850387999996`}}, 0.06], TubeBox[{{-0.0062334501835999995`, -3.9225042581999996`, 1.8987966848}, {-1.10875893598, -3.5256617982, 0.20480850387999996`}}, 0.06], TubeBox[{{-3.0381124902, 2.472706471, -1.61573462726}, {-3.047183175, 0.44584305518, -1.3762307540199998`}}, 0.06], TubeBox[{{-5.1264486927999995`, -3.0110894083999997`, -2.024841409}, \ {-5.1780382126, -0.97286873932, -2.1119577776}}, 0.06], TubeBox[{{-7.3442311263999995`, 2.2604902412, -3.0167585863999995`}, {-7.2930195518, 0.22196721596, -2.9294532452}}, 0.06], TubeBox[{{-11.297726891, -4.846580272200001, -4.0077309008}, \ {-9.4310555482, -4.0933354886, -3.5706372769999994`}}, 0.06], TubeBox[{{-8.877554802799999, -4.6857645896, -1.6773019003399998`}, \ {-9.4310555482, -4.0933354886, -3.5706372769999994`}}, 0.06], TubeBox[{{-8.0659174858, -4.8050063002, -4.9393658188}, {-9.4310555482, \ -4.0933354886, -3.5706372769999994`}}, 0.06], TubeBox[{{-11.7452140078, 1.9541656565999999`, -4.3202915812}, {-11.584965243, -0.072731774288, \ -4.4973589074}}, 0.06], TubeBox[{{-15.250088819999998`, -1.7430832623999999`, -4.2942133624}, \ {-13.7116628834, -1.5733480730799998`, -5.6533043016}}, 0.06], TubeBox[{{-13.031550496, -3.4508286486, -6.158617033999999}, \ {-13.7116628834, -1.5733480730799998`, -5.6533043016}}, 0.06], TubeBox[{{-15.9583581248, -1.33242690534, -8.547797615799999}, \ {-14.6026686924, -0.31240950232, -7.868819063999999}}, 0.06]}, AspectRatio->Automatic, Axes->Automatic, AxesLabel->{ FormBox["xl", TraditionalForm], FormBox["yl", TraditionalForm], FormBox["zl", TraditionalForm]}, Boxed->True, ImageSize->{513., Automatic}, SphericalRegion->True, ViewPoint->{-0.3630864265304964, 0.7015218583462968, 3.2902941098223533`}, ViewVertical->{-0.011220249986575545`, 2.144765180099552, 0.6516678364935807}]], "Output", CellChangeTimes->{ 3.572777385012021*^9},ImageCache->GraphicsData["CompressedBitmap", "\<\ eJzsvXd8W9d5Pv78pMRO2mY0TdqMpk1H8m2bpE3TNE2z08TOjmM7thvHsa3I Q463LWvvLVGkuPeeIEASk9h7gwMgCZAASHDvoS3ZcvJt+3vuBUBDMiV5pL/P 74/woxcAAfDc95zzPs/7vOfee/TjDZs3Pfr0hs1PbNzwie++sOG5TU9sfPET tz/7At9a//8A60T7BITX/wOkH/6H/5IP64UH4e3fv/H7N37/xu/f+P0bv3/j Lb3xQeFhnZBekHo79bNeeJjL+OaHxNfi26tfXHfNe4LNZvzNn4qv33nV5+m/ nX+bbWd4/s6rPF/rAB+9SWMfWW0s86/+/zJJN3yjPvk6PWLrknqBr36e/LxB fHrHVV2/zvCKj/cmv1EhPIl/9Y631sBbPO7/t39Wvzpk69ccvNeN9r+mGozF Yrj33nuxf/9+HrWpqWk9EokEPzh9+jSuXLny2pHsV/9hdXU1XC4XZmdn+Yeh UGg98vLyGMLPPPMMvvvd766GsdD6OqH99avNrxNaFxvVXN3otm3bVv9O/Bu+ Nzk5udrlW1Lfu3TpknhgwdYJB+cnbFw8ruCFYCk/1qdYIN1J4Wvrb9jRpqt9 Ev5QpVKJv60Tj5g8ftqnP0x9T/BCaHwtP4XP0n5qtdpVHzP8XPdm/PStTnLw ameFH40mOarvX8OxP1nDMfEb60RfkocXRlGwa11KzkfSMYfDIfolmDidfG91 FGm6teO49/XuFhYWXtfdj2UEWyQSSc3B62NgfaojmWO7ThzZd74uFm8Y6bIb uv2F1KHPnz8vfuPo0aP449R7QlvpUF3L7fdfb+STuLllTdzQ1+u6Wv2GXF1c XMRPf/pT0dV/ykCZ8P5rrr7WSsq9DESvv8qztcJ0nfh4y1UxIVjK27w37Kjg 2GOPPbbqqHD4NNQ+mjH2GzduFH977/8yzA6+Ac/fsRqw+/btw8svv/zDazqU GRDHjx8XR+mayb8Zaa6Ft23XUsBN3BGI/kaw+oPrwUp0UQTTm6fSLydd+4dk 4uHPrdc4KZfLMTw8/MQakfnh1FfTDglf5/itezuYEZ36bNKpz66RUtMSQQge YcRv4F46HjPp6l03xvgaSLrxHF/DqeLjXyS9/1vhSYzMd96gH+kJFvrR3d2d 7ocwTNfiKrMfH7qmH6+l2XfA6/Vmptm3xLI9q/HwmtT7+s1nJd0bp9OZ2ZvM r67Vm/R7mYBcK0G/LTa2r00Va+m2ryQ//PRq19OgSIfX0NCQkMRv1D+BBW80 gzfN88JPuo9r4fomnK5+a9295qNbMjoucHp2djaeffZZ8djrUoMseJ/+fuUb nN13/C/nhaY33fvPrE52us/CgQROlslk2LRp07rMycmUvOk+CzOefn+tPv/x Gn2+KsWkld0bTzFlb7qbX7jmLy5cuCAoD/t15+2dV70nmOC/KLOvq+neVBo6 8bvugzBnJJ/rIu99v2tm2bUaOq+Vdimy/JfUGGZqIsEEDTV63TF/Lb29IbH3 plKUKtOxW64KUMFSmiSRMZaCL5ljmalJ3pPs8I2C4c2mnuarHbw2+lIOvrqG M2kH08B9kxpuLWfKbuyMUBmtrKzcyJnM+L1Wwd1cfbw5zj95Y29TWumNevvh DG+FAwrS+HfJ0Xt+p95+ZA00vftmjPvmRf01aHr26j5kOilYSgel+yBkkvTH X1zD3+Qi5q1XqTrhc+FHeBZGfd1bE/sbb+xoStCIv/zLdXnp6hG/9XfNo/e+ cR+/kHHsa+M1k2uv1cmZOkNwR6C+N7AcdRPcff9qxzOLkGsdv2MNJ9ODm/l3 t/zuifUrV3spfF/oVbovvb29OHTo0Ou8vFbSZHp5XRGbUjPp4U1HwnXXq9by 9x8z/V2/CoJk/5N8uWfPntVRFh9/nZEC0rGRZobMeFpLf74pJr6u1594vddp D9OSRkj+a3oteHEtn2V6/YEbRHM6PNLD/kYZORNByenE59eI0fWpx1T6fc33 I2v4uZbv66834um53LBhg/gHwtc+eLUjmSLlbTuSTsJCmSw0Kqy7fejq42Uy 39s+3rtTAZc+ntAZHvMNHDKVAd/YITNXN5OrHO+EwWAQDyn4nRLJb6Sr1z2u cIx0vPxNikaEY9TW1q6OTeo4b+AwqeT42mFkqQ8ym0xjJu3+GtGxVpSlKPe1 tqXXtJ355bfbtiT1wauvviqGifDhO39Hbbes0fYtN287k6TX6qbYdvM1bQsR euvN287k1uu23bRG2++6edvCT5pNr9t24xptv/uNtX1tIkr3Q6Tk67X9B2+s 7f+5iubfsdp2ijnED+vXaP4Pr9/8P69BgOnIeh0h1a7R9h+9tbZfxwA117Q9 MDCQrP1u3HYm7K/bdvUabb/3rbX9OkqpWqPt9721tl8Hzco12n7/zdtOl/Y3 bLsi9YGQKYU1N2Gi0+tHLDhXT8ld03YmpVy37fI12v7AW2s78+ti22UZbacz z5/cvO1MulqLOcW2SzM6lG77g7+jtkvWaPtDN287kwrTrJyp7h5PUYHDGYPL EYPbEcfk2LL44T+kvp/WBcIh//Tmh8xkmvQhM6kgKdf+CB5PDNJWD/Ky1Cih VZ1Qo/a4GvVHaYfVqDugRs1eFfqtccyPJl365Bou/dkbc+naSilTVmaQ4K/E X94Pvy+GvFMqlOTSC1rTKTWktI4cNZQn1VDTY80xPh9RQ3VIDcU+Ndp3q+Eo 9yBsiIpt/vUa3n74+t5+LvVR+tTw6umzdC2QSUw/Fh/fBZc7Dp8nDmmTB9mH lMg9qIS8zoNeexw91vgfpA4wM72EwlwFSvM5yAVqNPO5naai6fLUMLJrFnbN xq7Z2DU7J8LG7lnYPRO7p9+rhnaHGp5SDxaHF8Xu/eUa3fvIzbuXSee3rtGz H4iP72WzUUilHhTSrQpaXTbdprXSPRnda2OcyBgnUsZJyx41zJVe9BtjyZD7 UyhkNpTlK1BZqEYDTUZT0XQ0M0fAzp678jTw0Hy5GgRoXRyJACfbz9Hw8lBu hqSdI2Ddp4JhiwIrI0tizz++Rs8/evOeZ5J2uueZCeF74uMHMM3JysuRo4Tu VNOaaW00BV3T0DUdR8PAiTLSPRMnyUgX9QfV6GQMqnbxu1uUWEosJ+XJh6Fq s6GyQI6aIhWaijjvxWymWANjUSdshTq4C/XwFxrQXWRAb7EBoVI9+sr06C/T 0bToL9UixO/3cOQCdMPHQ7t5SNtOOc4klr6f6o/TFYOH0eh3xRGgdZFKuhiF fmtsddXY6YyTZuLw2EWaaVtjHNMnljOzwpscx++Kj/8EucyOEiEEON2N6RDg ax3NzOm3cTydHE83x9OTk5xyjzDtjDCnAAAh+Pfz+ztU8BS6xFbVMjOqC9pQ V6REMweyo7gTncV6mItNcBRZ4C2yoqvYjmCZHf0VDkSqHBiqcSBaa0es1kaz IFpjxlC1EZFKDnB5J4Jsp5sD6z+hhHNvBwd1EbeJR3sPh4bYlnqRR79KOfBV tDrOewP9ayICmgjORiKgkQgwEgEDplgqV76H1daS+PdZWSrksk/FtHL+XRVj poZ9q2HM1LB/1bvJshaRZdGyxpT8+Vubksyv3y4+fo6xaEdFgQI1hSq0MBbl NG2RBqZCDew0d0En/AVadBVq0VOkRZAxGuIQB/mdIKevpyCJUGGqXOy+jQnC XmJGTX4r6ovknJJOtJUYoSmxwlxih7PYCV+xGz2lXvRV+hCp8SNa50e8wY+R Jj8SzT6MNntpHpoLiSYHhhutiNWZEKnWi9MT4nG7Tyrg2iv9ttiNP0aA2SE/ V4VizlolrZ4utTCS2hhFcrqm5EirOdIauqghR6k5Q0pSqGIn4Ud0DhliKVX9 QUxMLidZnOawRlBTacbhfa04Tju1l91iuy1sV8qZb2e7HWxXwXblnHk52+3g zLezXUeZR0B9uj7IrFE//vYnMBmPH4W6zYqqwg4x/lsZt0oSg65YCyuJw1Vk JJGY0VNsIYlYOHgWhCstGKwS4t2EoSoDX+sRqdBioEyDUIkG3cShjyMm/JTs rCJBdUJabEmWP38KR4kfvtIu9JT3oL86iMH6EGKNIYy0hDDaGsK4NISBKg8P aYP3lAG+HHJZthZeDpTrmAK2w21kdSU8We3oo7s9J9sxUGv5ZkqDCGmxKE+B EoZVBa2eJqF1CKmR86rlvBo49maOvSVLvQ5WDv6tsHL4LZxWEwFk5LTqtxO8 JW4sxxdTkufDmJxags8Xp4BVoYAdLKMd3F6HPZtrsP+lWhzdXIvsF2tR8EIt Sp6rRfkzNZDuboWOhzIQ4EaC1MTjGDnNBiEDk9x1FBjarSp4i131a0zzX9x8 mjM1cnqaMzPWd8THL0BDmqspkBFTCkiIKUWJAXrizMZx9hQ7SHFOUpwLA5Vu DNZ4iBcPhhvcGGkkhhqdNAfNhpEGC+J1RlKgHgMVnVAeqRNntnRLDSp3t4uv dSUBWEt6xdfdlf3oqw1jsCGCeMsgEq1DiDUNoKfMT15wMUe5yAVOhIpIr4U2 9BVYEMw3ovuUjnlJk5zzgzJYdjXAd6iJuJXg3MT811OMOMv5Lif9VBDS1aQe IR0KWUFJ03LeTZx3K+fdQTHgpnlOdXKAfKc0HCwv48B9MpkZHJx8O0WBaYsc p0eWUqu1H0CbzIWCPJWYuatoZcfbkLWrHoe31uDoVk44rXBLLSoYADUMgEZO fgsnX/p0LdqerIVupxSuk4wzIQXdClcqEdkFpiPUrbuVML7UIR6y5poAEH77 y7cWAJnFxrdT8mlueh61+RJKJzlainWQl1igLXFwotxwl3jRVepHqLIL4Zpu RBt6MNzUg0RLD8ZbezAh7caktIvmp/kw0erGmMSJkWZb8pz4x1C5TSG+MhT3 wVEaFl8Ha2MINw0jJhnBYOMQust64S8KoLukC6GyAKfBA+shG4bKfYhSZg8y /sJ0qY8ptyffBH8OtQxTqOOQFHYOuuXFUv6tHF9LyYE5Tn4lu1NNHVRHLmgp TmohNXOLgfnGUqCHM18PT74BfsZUV6GROcjI9Gyg6REs0TH2dNRBnehioARI zD7OkOewCo6d7WLaFo4kkEoxSaWUASVIjzpadZYMR7aW48T2apzcXos8Wimt ZlstmrbUQfpSPTo2N0DxQiPUzzehk6Z7rgnm7a3wnlCxaulmVryV+otqNaVO vYwM90Hmvx3JY2eW+0JECBHwV7+riPgiak7Vo5HKp5lpWUYa0JR4mGIDcJX2 IFAeRKiqD5G6fhGuI5IwxqRhTLaHMd0Rxox8ALOKfswp+mhBzMp7MNURwHib V5z6iu2l4nPlTkqDHVrxtblkCK6KYfF1X9MYhlonEGlKUK4GESgJobcshP7K EJS77WjbbIdqqx2arWb0F/kQrwpgiOk+XOGmlHVwGs3w53FqTyrhOiyBc3cl wyOX4eVKnnT6MqNjcVXYNQjRweTUwcSm4ewbi0xUyhaqExsTnB3dZMBgKSOv 3EkGdCBcJQg9O80mJrxwhYnJj0q6RIteRksPpULXcQXce2QImUIiBVVmUFDd SSmOby1Bzo4q5O6oQcFO5oMddajb0YCW7U1o3yZh91qh3SJjHdIG09Y2WLa3 w0azb2+DfZsUvXmCYjexu0YeV49eJtLufCbYHBUCR3ns3TKcTSyUZwRJern2 r28eJJlrFOlV0sx1hH9fo/h/7eo8psOQN4SGvBY0F2ggIWDlxV7qhh7YSvrg LQ+jt3oQAw1RRJtjGJHGMd4ex5R8GDPKYcyp4ljQxLGoiWGxc4g2iHkNo0rd h0llL6vAmvRyadUuLep3mjPOin0E3Y1T6G+dQX/TBCXKAPylEfRW8HA85FDN IKRbeqDaOQTHdjcM+/qh3WNHgjojXt+LodpuhKtJdRXMPaVW5iAdsdcBz5F6 OPcUcRaqGYiuVP//EbNTSdqsL+pAoxhFWupRk6hHjSwL7MxfniIPAux+L3Na X6Wf7QcwWBugLg0gVi9oUwZwg5fm5u9Ovs/IqrYw0ozoK9WhT5BMhyRoezRf rOkELmtOcVnRXiGCKpHPCCraWY/ynU2o29mKVvKTfIccmh1KGKhWzDupt/do 4NzXCff+znXwHtBQkfr2q+Dbq8AA3R1k1RKptvGwZga6gfKJZSBzW88Jdn9f C8rWiKS/uXkkZa5IJSPpFvHPhVNDaTt79qzQ7BfXDKqkDk2/V5ddw/qYOarA DCkHVlXcy4EeoBoegr86jlADk0nLKIZlYxjrGMeUcgKz6gnMd05gUTeOZf04 VgxjOG0Y5fMIFg1xzOqjmNJGmKRKkzH0l6jabUHjTidku5OE5amfQU/LPHoa Z1i3DMJbGqN2iVOjDmOwbgS9JYNo3xFH4+ZxBGsWYToyDv2RXoy1RJkmBxFv HmCOI4HVdaG3yo2uMhIUoeHLkcB7tILxVQvvYQXjw4EviR39KvRtJpaxMjQV s3aiHpNxklQlTuZQ5sViP9zFXQiQjHsrgvQjRDIOMTX3Id7Ux9Tbx+NSM0uC TMX0Q9KD0ZYusf6JN3kwVE8WY4z1FKgYH5XQPl8C6b56kQXbOfE1R5qZs8pR yLgqYUyV75Khdpcckl0sQoi5zl16GHcbYd1rhvOABZ5DFviPWtB1zILu4ywJ TpjQe9yI3mN69BzWkpxdiDd6Ea2nfqx1UMMzvoU1hwIlgsyVg/WmkmviS6hI //bm8ZUZLJnxJShcocARTFhUJqMlKSy5OlleXi62uF54TF4+uT4dh2Ir4tJj xk1gnxCPND85g8acFkjydCwcGB+F3dCQY8wlMahORlD2XAB5G91o2daDnuoE JlSzmNHMYl43hyXDHFaMszhtnsUZywxtCqctk1iyjGPePIpp4zCqBY2wM6mV qnc70bjLh/b9PMaR3mRofhSmghicJSPwV44x1Jgj66YQa5hiKTuN2ufDaMo6 D3PZPIwnxuBkqE60EQmyhMiyUckgIgyNvgbKrGonw9CAAKs7f04tHAdPMqmo OI0dVHqWf0wt4WSO7/+kriVMkvzXMU/R2JjfjGZRNOpZOdjRQZmgLQ7ATLJ3 Mm37y/oZ8WH010YQaRgk4Q9hWDKEhHSIbg3RvSHKhkFaRJQPk239GGsL0t0e uutHsMoK0+FWmPc1wLyjHLoXC9B2Ug410ZC3tRjFO6pRurMZZYzO6t0aNO/W o323Geo9NtZqDtj2uygB3PAd86Ariyyc7UXwlBd9VJf9uW4ac/opOwaymcfz bawyezHcQpHb7Ke/bgpe5vhyVjPsYzC7Gecn5+8Ru/9OTEywknfGxUV0YYVr amw5dU3L1VH8ybcSxVfn23cmx16o+tavXvAt2DrhMX1xWCrOxb9cd71gJz6E hbM1+PfPrnFG+EmeoPia+LrfE0RzTgeD3wJJvh9tBX3oLIrCUp7AgV96kPPo IEqfiqH6+SEoDkQw3bmMOf0yFo3LWDEv44x1GWdtSzhnX8RZxwJOO+awbCc4 bFOwkQxqtjcz+LWcRjtVoQdNe7rQfjiEzuP9sJePw1w6CktxAq7yCQSqZ9BX N4ehhgUMNy8yuY6gdv8sVOUL0JwgCVdPY0YxhynFDMblUxjtGEO8jWQtHUR/ SxBBJt3uaisRoEGgqJkFWB4GhMWffCXlE6XT+ELqxoLrXAj896tvG2UGyhwp WlhTSCiUpcU+KBj9etY6tuIwPGWD6K6K0t04Io3DiLaMMLoTGG0jP7QnMClP YFqRoPQZwYxKkEBxTCujmFCwHu4YoNshimAjLFkKWOiaZT+RsLMMnUekaDjS hqJtFSjd0UQEJHmjbo8FrXscUO7xpCbzg/Bn9VIZ9iKYx1yRH0S4KIgIU+dg cTetC0NFfgwVssbKcyBGfZJoG0BMGsKgpJsi3ItwrZUqtxMDRVLEZfo7U/W1 cE5HIvHgJMsiYcWx6IQapSxTKljAVrFmrmYRW72Ptiu14phYXr3OMBMhn7o+ Qv4pNQnpa39SV7mtE87Ir3WGK30CToBKGijJhm8RF43TOSEjL1wLFcHecb28 8O5VFnzt2upUyWls1qElm3qXlCLJ60FHfoQ19Ais1RM4vCGC/T8fQsUjY2h6 OADJUwHM6M9h3nQOy5ZzOG0/R0ycw3knzXUW59yncca1gmXXEhacC7BXWFk8 yogPI6p3uIgPP5r2dqHjWBid2YPQ54ShKxiGpXQC7spZdNUuUl+vINp0BgnJ GbQdWYTF9FticgnzyrOYV52mLlrGtHqRSWoOY8opjCjGEO2IIywdQKiZCaye IrhGj65yGbz5JQjXmYgRDQVpO+nRnLw/IwmP76wSRgZQmC1n0ZTbwEyphIT1 lKTIC1lRL1TMmMbiIVRvDaBlZy8suUMYaBrHkGSCwm0So+1TjP4pircpiv4p zGqmMNc5SZugjWOmcxSTmhGMqWOItIZgLzCxDT0swrIdEWI9WEeEFKDgpSJW 3fUo29mBCioW4aeRqGjfG4BmXw9Mh5KXsvpOhtGdG0GogFVC0RAipSRXojbK qiFaGUasgmgoDyFW1oNYKfMCVf2oIoZ4BysK5qtwaw/CVFXhOjPrQSWlc8Md qZVj8bwiy8H8XKKDVs5iviZHjQbh7BYR00q0yIiWNqKl7SCNaGnbTduugqPU g6WR5dVL9zIR839uhphbxehP33aVefWgoMbTpxgzC/+/uQY5gr3jzaeXJGjS P+tE8HxL9D0zPBqOMiyyDZAwFbfm9kFOVaMrH4OtdgaHNkaR++wMcjavcOrO Q7l/EYEdQfQd9GG6dQpnnJdxznUZ5z2XcMF7Eee9F3DGew4rnrNY9KwQK07U bO0gRsyo3ulHzZ5eNB0Mof0EsZIbg1bAStEorOXTcFUvoLtuBQONZxBrOQdD 9hRkzf+FUf0l1qEXWIfSOs8z7M4y7E5jivgZ18whoZ5ETDGKSPsQQiTKnmYv C08zumpYLRWXI9LiZDgYKR0ocFkHTzhDSJ9gz8yvyWTy56+DTr+3Fy25rcyz FJqF5BMKzbbCAYrNKI4/6saB+z3Ieohi85EAOo8OItZGnzrmMa5cwJR6gb4u YE67gHn9PBZoixSfC4YZ1jrTmNJPJp24FbZCK5FjXJ2u1m2nUPRCPsq2S1OJ 76Po2Msa+WAE1mND4jtdecMIFo5goDSBQab+aGWCOSOBeM0IhmuHEWLOM3Cq lNvsNAt6C6j7Wf8MM7dFFVEOGREj7SJiOET1OtYhEsx3B38k9v1DmJleRmGe EiUse4XT1xXCKWxaU17yjHw70aMg0FUnkmfktUSP9hCNuUZL9Gj30HbStrC2 LXKKi/SfWwNBf3czBK19o2bm6vnnr0HMaq5JXnSQ3PxDQM3VyElmjKO/PoGs Z2qQ+5KSQtaEkl2U+8eDUBRGIT2ZwOFNw8h9cRwlO6ZgqL0Av/RVGEpeoXCd xljhEGaqB3HB9you+q/gvP8VnPVfxor/IhZ954gAN2peklNRWYmAblTv70fj 0QjasqNQEQGaUxHoiidhqZgVvemuJwKaz8BbPpP83f1/SbwXKEuYKZSnsaQ5 zer5jJixpnSnMa5dRKJzFjHVOCJyVt2UCz2c0u4WG7oalHCXVWCwzY9wC8vM Oh1LPSmibfqMGxiTcf+d18W9SdLJ/MlCM5/posBH60N7wRB1ZgI7/7Mbe+4N ovCXIZQ9OoCyp/sxLF/GqHKF6eA0prXMafrTmDfQWxO9Nq/QlrFgXsKceQHT pjmMEwOeSj+c5T7xeJZCO6y5Btiyk+Kp9MUyBr9SfF252yM+S/YMUM9GoT86 zO+Niu/1FE2ir2wSkYppRKk147XTGK6fxohQiTVOwnC4D6rdYUYkNcD+PqYb N4Ya+zGinUCUqSuiHEK4I0Qg+DhKLD0aFBjp1CVvvf4zdPuHUMbaXDhxIZ68 SF3VIBGu4yAQlEwlnQSCnmnEyDRiJhgsTCXCmSrhOg7hVLaVKcVyMHk1g3Wn EqaX2nF6ZDF1GfvVYPj7twaGzK9/M1UUCmAo31mL6r2dKGMhVr7Pi9qjQTRm 9aHlZD9V0SA6S+JURlHG4CAMRWFYyyJwVQ5CV8uKqvESBurOYyw3jImaAUQb I5gwLWKUszdsnEbCOoPK59pQ9ZKFurIH1YcG0ZAVg+zUMBRCbOcOQpk/QZtK 0lXDMhX/aTScOCv+Pq46jwkl41jF2CarL+nPYtl0Fgu0KcNZTLBiSejmEafo iKgSCMkj6O2gGpI50N2shrOyAkNKyuc2yuImzlwtGb604drQ/uvXhXZTVi3T HcM7j3Se343W/DA6KNm0JePY9Ysh7P3FBPJfWIZs+wzkT3djKDfEVHMek7oL mDFcwJyJqch8AUuWC1i2nseS9RwWrWcxZ2Xos7SKdIzAW9MLV1VPMrRL3bAW WZNU/z5GtQ4VO52rVC/dF4Py8CgMWeSB7ORY2bMm4MmZpIiZR6x+EcONxDmr q3UYbVnAe5keQmh8oQ/uo6PoyicqySnOAhcSRFVMRy7QUD0qw4zsboRlpPfW TvTX1ycv8XkfNO0OVBUqxXXw6mLSenFyPVzKyJYXkM7zNNDldsLEUbLmaGHP 1sFJc9PW0TEtA8+T08nfaVkauI8nr0xx71fCsb0NZxOLn7kmuIVrIP/h7Qf3 t1JrQI0HZJActUNyopdzGUVHyRh0NbOwNi/BKzuLHsUFhDsvI2Z4GWOWVzFj fxULrt9gzn4ZM5bz6Neeh6vjNwjRphqmMVFJVVntRz8DLdAWRtGmZhQ/2YnC Z2wo3N6F0gMh1FPiC+RdtCOYTsnlewZR3/7fGNAmLx1LKM5hsvMcq+1zWDKd xwpDY4FVxZTxDMaNK0joF9Evn0AvK+CAbAC9il70tDvRJVHB0yjDUGcYEUVP cs5YxfTXtODczOynb7AGlLrGp+VEEyQ5go7zkLdD1HJRyAtHqeWmcfLpYRx5 fAKnnpnBqR3LqD+xgmD9OYwWxjByKogpyQzmLa8wiF/Bsv1lrAjmuIwlx0XM 289j2n4Gg4qx5OHeBXtlDyxl7mSgFhlR8ky2+LpsmxkVO3zJr30MsgMJqI9P wpQzC9XhpBK1H5+G79Q8ugtmGdNnMNJyFqOtZzEmPYuOnR6UPTdMNXqR+XUF upMzrKhiGGyiuJcPI07OGdSNIqwhY6vI2AoK/XYDBlpakLwW6mPobLehpkiB uuLk8nx9aoleVqRhPu9EZ4EOhjwDpZYJ9lNmuE5Z4M21wJ9vRaDAii4WR12F ZnQXmsTTkF0FBgTytOjK0aArS4XAETm8e6Q4N7qwGs2ZEf7p31WEfx31e6WQ HGaEH09GeHvpOLS1c4zwZXjazqFHeYFhdxEx42WMWV/GtOMVzLs5gd4rOE0p craLcqSb1nMFg47fwt3530iozmG6NoRZJr0WZqGa5ynMt/pRxcRYdSSCioNh 5GztwckX/eJ0FW7rF58rdvcjt/AK9Obz6GtNSpWIbA5D7fNsk4UrZci0gYKc dD2ioRxRzyAoG0dAMgpPSwyOlhBcEi+6OD1+qRLd7RZE9VFOJadRTvqWsqBt asNcsDcp5f4OLcclkJw0Mab97H4/4zkOefEEdKypLXVLBOI8jj07CVXBCoZU LyPQQVXW9Aq65b/FjGwF03m9WGgaxrLjN1hxvooV1xUsuV7GvOsSZpznMaia hK9hUOyKlURtrQwkI7TcgtLnCsXX5dscDGiqtp3JE+WywxNQn5yFKW8xfZ2M L2sK3UUr6C05jUTLeSSkl2A4MYzKLXG0lb0Ma+sFKE4tQnNyCupT4zCVMKBb 44iqRhE3z2LQMIGwjmTdOcDRoFBTMpG1tX19taJfd006+zjmZxZRV9iBBsZ4 Q4kajSXCKXUNZMV6KItM6GQMGwtssOY54Mx1wpPvhr/Qja5iD3pKPAiWeRCi 9ZW7aS7xPG2wzIZgiQVBwjmUr0XolAq9x9sR2N+Mc2Pzqxo9M9Y/c/NYzzzF ff1Yfz8GbHG0HLCR0ZOxLmOsaxjr5uYVuNrOoIsyQWDsqOkiRm2XMOlgUei+ TIlNqR14OZlZ34tzvS/jTO/l1cwaIaeZs7yofpy1/gtOVO0NoWhvHwpZSB16 LoiszX0M92hyLj+Og7tn0OZ4FfLcCMypE+Bj2hUSN3M/I3+GZD5tWqYwWcAY Iz3aMYYBCessaQzd0jDsrf2wNbvhlJBkahqhLTVCVaihKaEtaufct8CUX0oy KhBHQFj9XWtl6x9SMq7lKHNcFuX3yS6SYhiteSOQl0xBVzUPS8MK3CyTu9ou ok/xMoY0VyiWfkNff4tp82/RpfsvOJX/F7PmK7jQNo6VhgiWWYouua+QJV7G jPsCupqi8DXG4aqPJmFQk1yFsVc7UPp8mfg6+ykLcp7xIfe5EKp2DkN2bBrq nAWYCDv1kQl4syfRVXYavpKL6K28wEIwjoJnY6jPuwKL8rf062WMKy7SzsPL Er+vhYKmg0TexnpVM4G4ZR6DpimEjSMIGyLEAgVLp42s0P6N1IJ7OullPiex 8Jer79UXSNFUrEATsdBUokFLiR7SYjPkRTZWLA7igRKM5a8z3w9vYQCB4m70 lHUjWNGDPqazATJAuLoHkZpuWhci1cLpYR/fd6O/won+Miv6i5hrWA/3nZQi 1mhcXflJ3y0hYOKzbw0TmZdhJzHxAfRZomjey9k/1EMSHIKU6lRVMwcjZaCz bRkB1WmEdGcxZDqHEarQCecFcVbnfRexFLiIle6LyZE623sR7xFHarmXwrUn qVRC3kso3GRC9bNulBEbBRQ5p3b04cBzYRx9KYqT2xOpCvnPUdj6W7TXJmlf xUoh1J6sTseo0GPyKUyopjCmGMU4s7SwHDihH8OoeQIDBqYA1QiFVgQOmQc+ pRnuDgMS9mnEzKPo0/RRbLngbqR0JGBcinZh5N6RKtozi3XBBOJZJyxyXXdN OHnB7IfRcpjIOW6lOuwmegaJnFF0lE5DW7MAC2WHu/U8c9Fl9ClfoeS6ghH9 qxg3UQlaf0Ol+BvMO3+DuO236DX/Fya8/41X7GdxvjmEFUUcM55L6RvBrXWD NAK/PpQaq08g78l6HNygx9Z7zNh8twPb7/dhz0OcwsMsJo5MwpE9AXf5GdiK L6NxdxTHNkVQfPQVaKT/hQH1qxxHAkZ5mXZRrJDGWB2NKDnOyjkMyscR1U7R tUUMWmYQ5hiGzVRDRkav3o4BVcc3b3Sq5BPi28Z2M5qL2pgzlOJlEi0lRrQW W9Fe7IS6yMuAc+DkBg0O3tkByWY7AqV96KnoR6hqgHqUaap2AIN1AxhqYE3Y 0M+6kNYgnPIOYqieGKoNEDvUZpV2hInDgXwF+nKaMesOffIayAgl6j++fcj8 h/j4STTuNENyIJCc8uIxKKqnoW+eg122wNhbQi/JPGI8jbj1DMYcrDLdZzHr o0IPsIDrOieOzkrvOZzuTb5e6mVl2nNGfD3hX4KhOITSp10ooDzK2dyLvK29 OPhMGEdeiOLE9nHk7RkXv1tVvoyWvAlI82KpVcYPIS4fQaJzHGPGKYww8Y/T RmnDphkM6qfgk48y/qOwd4Tg0fhgl+sxaI4j4aScsrKiM1EuGSiXtG6KhE7M Dw6s3tr49haKRSAll4fXryJJsD9KLZ03H2iF5Aiz8zGGcdYga+ZRtJdRnNcs wtx0Bi7pBcqvSwipLmNQ+zKGDa9gzPwKJq1XMOO4gjnXldQwfAZR72+R+TPb 0o1QXT9clGq2xhisjUMw1PWiKVePvE2FyHqkFft/YcDmO23Ycq8XOx/sxsFH Qzj6WBAdB0fgqFyGKmcOuS9M4MTuS2ht/G8E1b/FiOIVJJQvY5Q+jakv0S5g THOOz6cxol5CTEU4KSaoQqcRty9h0DaLsG0MYSuH2dJLSBFOGvm3rlkpFiyN 9PmpeTQXSNBSRJxQf0mYbyTFDuYdDxRFAegKe7DzLiUO3m1G1n125P7Chvqn rAjVRDFQF0OkIYYhdjnWHEOcInlYMElUPCk/3BJBrIU4awrxe0yJdT6Eq4in Mh3CxW0I5db87RpY+qebY2mtC8pej6UPQs/s2LzHRwodgKRwBO2VE9A2TsMq nYVbwQqOYqLfuISoZRkjdook9wqmvKcx4z+Nua7T4hgt9pzGEo3P61IwmO5i leBfxIh/FkWPmpD7pBtHnurBiS192L95lKlnArlbYji2awqFLAJbsyIie8vL EmgrHYGmapD6YBoRnQCbGcQNM5yQYcM0VWSc0IqaJhAxj6PHkGDFMwi3Nghn pwtOlQsTHhbgrjnE7PyOhZrb3EdIeTjPWswNDXz4GjStLiKvT+5pJgzyO65N SGI+Sp5v+ej1TufDVMNUdIip/AjT0YkkgNoIIE3NEkxNZ+GUnodffoGBe5Ed u8SOXMKo5TImbJcxxTp81nUZ856krqXkXceHS1SJw76X0d+dxNOV0GmcU3Uz mHywtAyhqdCG5nwDSp6tQNYGGXbfa8VLd/mw9f4gdv4qjL2PDCDryX4cfbIH B38dx84XziO38n+ga38VQx0vk64uY1hxCSOqS0jQrVHNedo5jHaeoXHKOf0x DedANY4hYijmJIYcxJBjnEYM2Yghsx0hTdu1GHotH/2V+LqlgPRSpCR2WO0x B0mKfJTI3VAXhlD2oh177nJh7x0BFN6uQekvfSh5xIv+hlFEmsYQbR5DXDKG YekYRmgJGZVH26h4Sj8hG+b7xFjrICLEUriJLtWz2ORshCvVGChtxpy/J+XL HyTvB/HE4aG1NHmQdUiF7IMqtNexbrLH0W1l8h9d+tMM3KVv1Pnc9XH3ydX6 LY2211+Itz69XVQGAv8acyOn0bDNQzHTBwkziax8FOp6lpCtk3BSQvvVswjp 5zjMlNS2BYw4FzHuWcKkbwnTgSVxbOcIt7nu5OvZrkXMBBaSyi3AzBOYopAc wJEH7Dj4WBeOPNeLQ8+HsPOlSRzaMYvcY3OoKl1Yh7qieXwETaUzkJSNQUkE BlUT6Kd6D3cSSVomJ2HJ0UD2NI2i35SgbhpGwByDx0hxpOuCR9eLaT81qpcI dLNyck4iYh8m2xKBJiJQ24mZaP/q5QeZCS05qh+53jUDeOHBLTjwi0Ic+GUj jrDQy6JkKdjfg/Kj/ajPFsA2BH3tBDPLJNySKfQqSFzqBYLsDOvIi5h2XcSs 52IqLOd9F/BpLPjOY47CYNqbXKr2WFYwEPm/OB+/iDOWIKzlesjztKja3oIj 93cQXU5suTuIbQ8MYdvDEWx9qB9P3hfCU4+tYH/uf0MqLEw0nUOIujPcdp4I O48YK6I4Bd4IUTXSSZGnZWbSElnaRQxryVKdyWXvQcMUYq5FRFxEl4tj7KLg c1DwWa1YSMRS+8ndcq3iu1r5/ZP4lqSgjVyuI8LsND8tiHbhXGbhIMpf8GHf PT20KA7dGUPDwz0oe5J6o3kaQxICXDqDYdkMEtT+ox0zGGMEjlH7j8knaRMY ZjEcbR9BREbwtxJtzcxajdQq9UYirh1d0s7kbTk5apyiFabuq6vMYm1+XI26 o2o0HKYdpO1TUxvzebuS4RFbvU888x7sf74+5G5dhdy1OySnxuTWaxgpE4mZ d0wnr8D/Kov3PjTsCaL55BAkJcOQ14xA1zwKKwtrt5IFMDV5yDjDpDKLKElw mElm1DOHcd+8eIzJwDymAnPJ10x84/5k/TQcmMRQYBz9/jjy9/ux5wEf9j8R FGuwQy/0Y8+LCRQdm0TW4VkUZM2hLHcO1UXTaGIyVFb0MWeMoEs5gl71CIKs u4K6YfQa4ugxxhDguHlMQ3AaI7DqQ9Cq3CTpGcLwLMaZp0cEGLoIQydhaCcM LW6EtGqcW5r7l1QFKlzBJ9nvQ8OBIKqP9KPieAR1p2JoLRqGoiLBgiECTfkg DNVEGIsDXUUvjFVBGCq6YKrqgoMFgRiBvfIoQdUrH1qVfV1tUTjqw7A0RGBU jkLbmYBTxx50BCHbJ8Pxu1uw5x4PttwTwfP3BPHAD/vwi59N46nNl3A86xxK 9sThqltBoOk0eltPo7/tDCIdZzCkPIMoC+O4hta5grh2CXEdwa6b42tGMhV4 WB3HCHky6plHxDONsIdVlIeywtWFfqsZsyNRfGM1hDIuLvogJLmNqWtoKPUK WSoV9qKVAOooiKKzYATmolHkPj6Aow9FcPThGPIeHoOekm+wldlSRly3LyLR scgij1StXFzHynmBQTqhmmedN8s6jzijKB3sGCFNEOZSzouE1VSLHR2nWnFs ewUK89TiXU4VuWrUniJOiCUJcSQljtqJo46MOxQVe/lMHCm28/klJWL66Oo+ FJlY+vz1sfTuNaDy4TePqswLw5KXKL0H1Zv9aDgyiCbmttaKOJT1wzBIErCx EvKox9Glm0DQNIkB6xSlhUCC06u7syS80xj1TfF5KvXepxANjCESGEUoMIJu 3xBOHvFjy697sOuhIHZv6seup0JEVR/KjkWQdTCBrOMzKMqZRFVBgrUwWZB1 rZ3s5eqIwqOMwqsZglc7BI9+CC7DIOzGQZj5rNf1Q63yE+UzzK+sIv2sJn3L GPbOY8gzibCb0tIZot9OMoP8C6n1fGNFAC273ZAI6TwnzgJ1Ah1VM9A2zMHC +HAxLgKqJQSZAwYMKxgyM3xtp5FwnMaYi4C1J1N3WEfpoxcswdcjyfzU0QdL bQ8rpyC0dd2oY2zW5/vQUhtECcXmSeaonPuMePHHvXjy7hiefGQRT285jyOb Z5C9YxJFe0fQmjMMd8M8uiT0oW0JAx1LLDSp6ujTkIZymIovqiVp6Ehyumm+ Hsdg5whz6WCy6z7mJx+772PwepgAXH7qAEPyBuQvIOwNEj4SpmMtIeSgddH6 0ZofhTx/BNrCCVhKp+GsnEXL/jG0HZ1A2fMTkD87jMg+C+LtZ1jUUXwS4eOq M5hQM31rzmCKSJ8g0sc0S0hoqITU0xhUEuVy8pqw7lTrwsndDcjeU4ec3VUo zW5DTeoqllZiqJ0YUmQn95XoJH50xI/+SPLWTwMxZNif3ITBsIu2VYnO59ux MryU3uIm83btf7kZjF53Am99klbeFpySp5zeDTdlq5928pgShcdUKGYnSplQ i/YrEXKIm1KkwP9ezA6fQ/XOEOpORNFYxFisikPVGIdByiqcScWtScDPGOsx jaHPMoYBO/WdY3wdhlzjLDyi7jFG+hgGfWROfwJ9RFxPgIf3R+H2hslRLtz7 k2L84odlePouPZ78eSee36hD1g4nDm51slD3oOh4GOXZYVTnhSCv7YNeEoGp LQKzIgKLmtbJ37URGHRMMjRVZxitHX7EXVNY6D6N2cAKc+kyWYDsztAb9HLO PdQerh70WW2YGYmlkTefWEHTdgfDqheSLKbwQpZflZMU09MwtszA0TYHrzJZ 0ob0i5QcjHbrEuvEJYrqJYy6kgJ63EPW9goie4HP8xj1JlO6Tx6BrbUfFmmI KrkH9Sz+qzkET/xiCZt/3odD99uw+75BvLhxClufmMOuZ+dxYPMsThB5p/aM oJ4loYH51FKdgKOOdWtjAr6WUUqmMfS00SiteuVU1QzpPtUILYaQMoyQbghB C99zCdPA7vtjhFkIIacHM2OjSeR9FhEvCecUlV8e66s8D43DkBeBNI9pPH8c uuIZWCrm4WI1GqhfQW/zGfS3nkXl5kVYtg8jVhhGQnURYywDxzsvYlJ7EVPa C5jSCZdEnMO4jiQl5FmSw6BmCmHVKKpPKJC7rxl5+5to9cjfW42q482s9dRo y8/YUUO4bIbZy5ylgeW4Bjaa/ZiGnC5cPHOLePmMjUi071fBvlsJ61bxlss/ XAN9X7gJ+l7L5teA6k/Wxl/6mubMbVPevQb+kqfG3oepqWXIpB4UsFsVtPT2 AbLs5PYB8hM0kksHMSkjsUhSW6csjC6nNrX6d8wmLqByTwQ12XHUlxCXNXEo muLQyeIwy+NwaOLwUuQFjMPoMVMuWUcQsjEiHDTXMEKeYQS9w0x/BCPN5Yvh yKGT2LTxUdz/kx/gti/ci2/84wP44RefwYPfKyMwNdj2hAa/eqQJTz8pwbYX ZDhC1VeW64OU8qy9OQyFNAxlO01BU0XQQXDKaM0KpkH1AOa7lpkGlwlIoexc xIR/Hgk/6xc/6xeSQ9gbQb8rgC6LCWeWF1OXK9wCl4t9caW2LXHyOXnjxodS w2koCaJpVxdajoYZrcNoLRul7ma0Nk0SaKxc5dPwqWfQrWUVbJzDgHkOg7Y5 6u+5VZUw4p5juTmbKu2En/9DtyYQYulpklCstvagrjiAqsIAdr8Qxqb7l/H8 o+ex76d6HL2vC3t+NYztm2ax87kFHNi6gON7ZpG9LwF5CbV/wyRczVPw0peu Nlr7BLo7xtFN9dKjoCkTtDi6SA4BeR+88h6YGB4GmQvKFjPaGrSQ1SvQ3tDG 50ZxSfYmt4UkL27/IpqOl1NBKAhqK1Mqy7jcfloM0txRKAqnoCuloqhaokA+ jUDjOQQlF9Avu0iBfBmNe88jsD+OUckCxrRXMKF7BVN6muFlTBsu8/kiJgzn kDBQQJMLhzi8ddkaFByQoPCgYE0oPNCAsv01aDjeQuUr7GWkgTa3E8ZTWlhy dLBl6+E8qYeLz54cwXTwnqLx2ZOtheekBl6iwXtUBe9BBdw729BbZHr3GqD+ 1/9FUAs3Maxui5v8Lwte25ovdT3236Uam5paRAdnrjhPhSpBPeQneUyZ3quC YDcR7OKF78IlgGQvs6Ai0rsD7VDDWebB4shSane8fyPYL6JsbwSVBHsNwd5c HUc7wa6RMhF3xGFREfCdBLE+zkouDp+FRpD4CBYvNaaQ8J20+iY1fnbHnbjn jjvwyzt+iEfuvgOP0370r/fj9s8+jO9/7iH87Av78NTPG/DQQ1JseKwFj/y6 ES+8yBprlxTHjmpQWz+A+uYBNLByr5eFUdsWRqWsH23KQQRtE9S4C6wcF/g8 z6w7R5DPYjQwI64hCRXsACvYkLcf3Q4P+rsDqb3B3iOSolD1nyIJFtEqOD41 JMN6Kq1GkmHj4eQuOvXCZh5VHvSt7qLzNcwNr6B2s4ef96MpO4oWChVZ5Qjr hFGqhTFYiDgnq28fc06XbgpB4zTFCus5GxWgnbWegyLVOSUuNkXdExiiQhj0 U8wEEmKNYJb3orMlgLpSD47s9eGhu0bx6H1TeOqheTxxdy+O3+PCsUd6sPXx aWx/dha7t87h4K4pssAQ1JUJGGpHYWkchYO+eJiq/e1jRPoYK/JRdDMH9rAq 7yFh93RGWQcwXVtjJMQx9KdqlBAVU68vAreVY9bXl7HYdd0bZG584+Ra53A+ k9KILcerIOEESHIovXO6aaTVU8PkjAkoimahK2eyrzkNV8M5BJovIth6mUX1 KxiUX2FB/SrKXzqN8LFBTMgWyA+/wZTxVUyZrmDaRO4wXcaE6QISxrOIs3Jp yNGg6GArSg5JaRJaM8oPNqL6QB1aT0ihLtBDn2+EKdcM2ykLnDlWuE/Z4M2z wZ9vI1V3FdrwB+gutNKEC7JM6CowoitPj+5TGnRnqdB9tAP+fVKcG1u4dQ3e +OL1eeNdazPDWv+rxAdXKSZ9DOHiLWG3+9X/OS+5R/FrvJG6Kj15bcAfiltS lOR1oKJAhfqMzdD0GZuhuckhXnLIOnH7s3fBTx7xCztiESsuYTcsYsRIDulk 9bEyspzUCn8PRf0ESk/GUVFMCqB+lzTE0dEah7qdeoGJx0DqMJE6LKQOC6nD YuPvrAP0tF8/8Rzu//lD+Pldd+PBO36Ax392B56gPUl7itTxyPfvxgPf+k9s /PyzeOI/HsMPPv8MfvmjHdjwy3w89qwUT22W4tltUjy3U4ojxX5k1fShsoX6 gMeNu2Yx4iE9eIX/eGjMO8OZHEuV6yP+ScQCEyzTWVcQhr2+QXS5e+G02rGy nMr9f4zp6WW0t3nEtY5yWp2wFxtHSMbxkXN0VMI+gKm7DjRkWTVZVrlPuCFa DekWJSKGaGpPzC9jbuQcarf3ov7IIBqZJJtKySLVQrkzDH1rAuZ2IlhJBHcS wXrmb+M4guZxonUc/TaanYh1jqLfPYo+L1HrT9Y6AZrDFkZHowcNVVY8fp8b D9wRwYZ743jgpwH84Kvt2PI9DQ7f78Chx/qw55lh7Hkxjv1bB1FxvB8dZVGo q2LQ13FayPo2CdmcMs/F6fNQ6nkUMXhVUXhZXntY+7i0QfT5Egj6h8XjdwVi CLDe8nr60ReKpLdFvdHJq3e+7mqK1Rvsri86kruWfwktR6pZPHVCctJFIumh DZJEEpDmT0FRMg9d5TIstWfharyAQMtlBGWvoL/jVdbiv0FU/Vv46l9By75L SOT0YbJ9AZOmVzFtJoFYrmDK8gomzPzMfJ4sOoISCo2ywzKalNaKisMSVJFI GihCOk6ooC+wwZzngD3XBVeuG958DxzZDpiOWmA9boGd5jhhhlOw4yY4jgub 6zkQLLEhVGRGX75evMIteKINXRQ058bn37kGifzbG1lifu36PLz2n9cKz3+R QRk3ut4zeU3En2F2ehHl+e3iddniboG0zmLSRJEGDpq3sBOB9O5sxVr0FXei v6QTA7T+Yg07pkYvKaUrN0kdwlZJ5l0qqrihVH3xd5ieuIQOCtZCckYZOaOW NX8zOUPKoGun3JCTMxTkDIWRr8kbbeY4Nm7YhB9/9we494ffw6M/+wm54if4 tcATtGdoz/3sp3ie9gJt+1efpni+Bw988TY88KXb8cuv3I5Hv7cBm364Ab/6 1o/w0Nduw0NfvQ2KcgNBNoEBK7nAPokhIUW7mMBizNPvRswzjqhvjNl6VMzW QSHeWdz6vGE4HH6cOXM2tQfrByFvc6IkX4XyguQGm0KFmRSlVGbpDTbJplZh g80Tr22waU1tI2bYK+wzSAYudmMxvvj+VLjPJc6jelcfao/HUJcfR2M5aaM2 DiWhqpWyfOgYhk05DKdmhBXZCPyGEXSZRtBtobG86HbS3KzUvHFRALlpTprd OwS53IcTzzXh+/96BP/8qRfwr//wIr782Rfx1U8Tnd8vw4u3l+CFH8ux+T87 sfURI6nDgtpTA2guCkNWTpatjqCzPgJ9U4RlTARmWQTW9ghsHWH6NACbuh8W TRB+xxC6eEwfxZmH5uYQOj0RBPvjyY3p/kgMc40mgNZWC9okFnTQ5LS6Ujly Dlci50DFW9q4QbAkA/85Ii5KjeNaSE6QObKCySWYnFFIC6ahKF2AtmoFlrpz cDVdQqD1ZfS2XUG//FVEKDuimt9gWPcbBCRXoM66iMnaBCbNAmOQOayUHtaX MWEhc1guoPRAE8oPS9eh4kgbq8yKI8TSETnqDinQckABJUnAlO9lyvWj86Ad yr0WtO8wQLHLCM0eI7R7jTDsMzLVUpnsM8C8Vw/THh1MuzvhOMjqhX/fX2rD QMZlgPFm4zvWII4vXZ840jydKTM+/gaZ4q9Wlwz5gbBtUmW+DLVFCqRPTwj7 AVqK9XAXGxEgz/UWW9BXKmyLZMFQlQXRajNiNSbEa4yIVRsQrdJhsEKT3BOQ VCNsw+qluHLsU2BEP5jcDvtzmJy6BG/3CrJLh5BHDBQ3x1HOIqWSRUoVM34F maNUGcUTjz+NX1BNbCRDPHbPT/AE7cl77sDTZIln0yxxz0/xIm0z7fBtzyHn kfvxyNe+iwe/dBseJFtsvP1+bPrRBjz5kw3Y+O0f4eFv3IaHv/Ydpksyn4lU YEmgz8p0bCc1OBIYcCXQ7xlhahxhahRoQoh1xrl3EFZnCJ5A8P1rDHnytz9C RSHrORJno7AfXVFyPzpxo9r81Ea1wl50uRpxJzr/Kc06ce+xW0WJ5k3JM4Fn rXtVMLwkFxaGU2usnxfXcir2hFF1IoaaAmo0MoiEo9dBBlGTc/XkXJMiDitL BIeO7EDOdVOnuanT3MJ2rcK2lCzvrDQTzeiOQaJ24oWnn8YPv/RtfO9fvo2v fOoefOlvH8BXP/UAvv63G7Hptv144KsPYeOX8/DcT9rx4s/lePqhRmzZ1IJT +yxoKOpDa3kf2qv7qB/7oG7qg0bSB62sD7oOmlI4URiE0zaULC+98XWwkcLW w+xmFdM3InbuY6llZIHYhD1SczkcRbTybGHDNVZz5NlGcmwTtVkTObYpdT7X VOHBQmI5lTL/d/fQWJ9aUos4ByA5Qt1yzE0WIvuciJJ9xtBaMAN52SK01adh rj8PZ/Ml+KUvo6f9FfQpXkFYLVwa+griulcwYngF3R1XYC08h7nGMCatlzEl XJtju4Rx2wWYartQSX1SeURGyungs5LPGtQc1qLpkA6yA1pojtuhP+mHZJsZ sh1k2d02qPfaoN1vh/GAA5ZDDip9B8PJDschO5yHbHAetMJ5wEw8GmHfo4Vt hwqBY53JqyoL5OjPbcKsO7hau2TuSfnv1+eg96xKlvS+hZk7z6/FPH+TmnZh ly3hp64wuYNkBx3RlSR3/XJn7E4ZrnRjqMaDeL0HI41ujDa5Mdbkwnizg892 mhWJBhOG6/QYqtaKmxn0En6BbBVc+ztwZnQxtYTwKSham8koP8YjtEfJKJvI KCKrkEGeu+dOMsqdZJQ78dK9d2LLfXdiKy3nJy/i1KP3Ydt/3olHv/E9PPzl 75JFvouNt/0Mj373bjzynR9hwze/gw3f+A7f/zZkpYQ48Reg5umyxpnB+Sys SwrnVBj+bq+QuVlDeSjYHf1wdYeT2e0D157RQWeHA9WFyXtY05uDZW767CrQ wccCWLizqLfIIG5yGCrRr0NfiY5jL2z2Jey525Oxz6H7sIpTz1EZScmTL2CG 5KKqHUcZyaWC8qS6LI6mGqKRgk6eKgK1pGY9BZ2Rgs7EjpnYMRM7ZmABqCXB aGhKRxQHs4rwECn7YdqvSNV3/fttuOML38EPP/9DfOvv78PX/uZRPHHbPnzn Mxvw0y89iidvL8CLP5PiV/fWYOODNXjqsXoc3iZczcFKqDyEluoQWutDkDWH 0CYNob2dJu+F0TwEC49p4sAaSG46WqczCncw8bHUYAq3nBfkqlDERFSa2sqz IbXFr7CO3kHOVZBcVMIG8ORdFclFRXJRiie5VWh7UYHlkeX0/+Pwprce+brI MLm7TyLr8RLkPiOjaZH7vA25W7woOzSImhPDaD41DhWFi7nuDHzSS6SGSwgp L2NAI1z/ehkx/WUMGy+znLmEttxz6KpcwWIzWYpUMWk7T8o4h6oD9agmZQh0 UXVYQ9Oh+rAe9YfN4qWC7YS9dI8Tku12tO1yQrHXBc1+D/QHPTAf9sJ21AvH MR/cNM8xL3yieWhu+I464SGNOA9a4Nyvh4Oj46ECClK1hEtkCOUl/2ONDLr4 8vXZIn199loXYWdu/p3miKqc+mTwFyU3F+4sscNSkrxbUNy8tKJLvM0i1tCD RFOPuCPahLQHU7Ju+LJN6Mo2Ilppx7TMgympE+MSO79nQazegEhVJ8GiRk+O As59ran/FeH9iIYHsPHuHyU5QqhRyA+/Jj8IHPFsmiPIDy/dJ3DEXeSFu7Dx 6z9B0X2bcWrjT9dhx8/vYn8f+9b38fBXSBVfp33jdlKEYLeJVPEwqWLLLzbB qiUVkCocFqH+pxFNNka0ORXVQkQrrGEsnbkggjV9p6jgqLbdhtrCDtQXq8R3 21m6aajXTMUm2Iss8BRaWeLZ0cshE+7K6txJWbFbBX+2QJM2mqDjzBisFPaz 0FHbaUXa7D4l5AUFHDtlycXTf0bAsYiC40MopvIoqyBBUHk0ULdJZKxj5Kz2 1CQKdkVhoJEcOljptbFLrbTi+k48tmEDNoiE8BOO6h14jLaJ9stvfx93kxzu +bfbccen70buA7vx4H+QUanZHqdme/LOF/HUnY14/P5G/OrhGjzzRCN2PCdF Xo4HFZUh+hFCTWMItS0h1LUGWW0y4EhMKg6lguTUQZNaBjl8l1Iy44NQtrvF PV3LKcyqClObRV97//3J5P33puPCzjPJ/z/BfCi1UzQZwriL39mihK/Q8eep QE2zQ90OCSq2alD2khVl23wo2xNC7q4eFO3vZyYfIkTDhCbdPtyNhmM9aMnq gTyfYqmMErN2GI76Ybgah+FuGibbn8NgwxxG2b1B7Qy/Y0Pl/rrUcuNfoPqI DemfVqqAlu1ucWtD+T4/1AcC0B/ugvloN2zHu+E60QMPj+U72YMArSu7G90n u9BzMsBnP/xZXniOu+A6aoPrkIGJUwXn7laEGGEDZU3QtUrT8P7KW4N35nXh f50qVYLeEOrzmpM9KDKJz8YSPxwl3eLr9G608aYBjErCmJCFMdUu7EQbhnG/ EaqXDNBtM0C/TUMJ4MGsogtTHT6Mt7kxQqgPNZoRrtGx1FKiO7sNk45wqtb/ JE7s2cZg/JEIcSEgn8iA+PMixO8ixO/CFsJ7GxG9/ecMzG/eh4oHX8LO+++m 3YWdv7hLfH5JOEvynR+IWH/om4Ldjoe/xWKDWH/wG99GNWlGQ1muJda1BEcn g1TNIO3gs8wShblrFPMr51NV7muXX6afO2VG1BfKkqXZn6GtxAB1iUXci9RB leQtEm7I9CJYLtxkRln4rAp1v5Kj5TE5JI+3iXsrJxo9NBdGGhyI1xH+NcKu RkIVKmyPpkL3iQ5xP7Dkua7PwutZgrR9EqcoBgqI91JWGhWs06pZp9VSDNQS 89WsNiopCkKJFdicfmL8xyLGN4o4/8lVK8FPs17b9KMf44GvfQ8//fQ9KHhw D+5njfbA10iL3/0ZHv7Oj/Egh+1XP3gRj/1nLp54TIqnn5Li+RekOHLKg5wK AqkmxHqxDxJyTQuFSBP5ppFDWqsbQn9iOTm1619bPXufuA4m/AhlmWA1GduF K4j8TiLfQNRbqAlsORo4szVw0dwnhcsGhHOLt4j/f4i4XThZwHEgeelAb6nj 46mawFLNxLrPBsmBHtYGg5Bkj0JSMI22sgWoqpdhqD8NW8sZuGRM8B1n0a08 iy75Mvxtc/C0TvJ5Inm+Vz6B/5e194BuK03PNN+j6na3u+3j8fSu7e6asT07 Xs+xvetpd9vtrqhQkqpKgWKURCWKkqhEUaJIMVOkJEqURCXmnEkQzDkTIAgC IACCCWDOOQfFqq7umdnd994LsuWeOq463uE5HwiCAcTF/Z7vff/7/9+vyRtA acoGxgsm0ZFrQpxfDOICUxAbJBNfRuzNOvFzQkgzMoRGkoFq8WuZvxaFwXqU hRqZ+e3M/A4oH3RB89iMticWGJ9ayPVedERa0MXojjIzetAZ1YX2SJbKpwbo nmj4Upuhu18H7d0ytIZmE3jRKLl7z9oJ7V9N+W9aCvJ//HZo813IYxtQHCd1 rVDGd0GbZBHvW7Kl3sFjPNGmqDpny0awUDGCJZ5s5X46VNzQQuNTh2a+xsbQ WizWmDFX1YWpChPGmPdDhRr0C907MmopgUtJtTzr//m/saybcc5ByPeDzHdK f56Q7o52uMpc93Syhzdz/cZRB/gyz/0ZAczxQMbFnSeQ4eaD4OMOuCnECSHs t/EBe9rWG/xTbnv34STT/uTOvYw9vL8bzh/vQl7lMPKYHzKmfg4jvXYQPTxP F9Ze//ZqEDG4QCeUHZ3HM7MU8vga8dGKBDUaEnRQxVOTxbdT7XSgO7WTL60L 9XeUyHRrRrarEg2Xq1F+XY0mWrppoW17gQmTBUYWjTaM0CUN5rRQISnoilji Y8rREVGI6RazVe18F61da9CZ19DWy+jj/b5Va/b8BXP5oOiWztIpCW5JUEJS PtuK+XyNh8+TcZ1x6v0TiD8TAmdKnmN0R8e3f4oTm8dklxB7cILh4uALl8N+ cPXIR8AzPR7lDiCmaAjRJUPoGF6DiTG7+sYqct7dQuD8zBJSoyWnmGltxiD0 fi+OqxLXRdfF1KApug6qqHpoIhvQxjBENsIY3YB2hok2yUS7ZOLPGKNqxMtj wh44+geV0N2m/U1psa74/AtYlAPIv9nEtCZL79HyPxqlRphGYeI8ytOWUJe9 AkXeKtSFPF6lazBWrKGjeh3dteuw1K+jv3FdnHE5pFzDcPMqRlSrKE19jbmS QWSEJiE9TLgEQSKFN4uvJ/mujoXdgAym8DtWxhcGG1EaamI6d6I2rBMNd7vQ dK8LqvBuqO93oyzQgKyrtB/XWpkKBrQ/7YHhaRdfcxd0z4zQUCNpnrSw8DdA +7ASyltZaA6Jp0VM/l+RztLp87fQ0MQKO1cV83SL4dPEUy4lEpTxlErCREFh B6u5iVXxp7t1UgsbuTBrM1aNsjipS4IqoR9tqUPi/T6hy3PhBCZLJzFbMYWF qiks105htW4KlcHdqOFLHo7SQ/WgD03hLVhuGMR8fR9mSIIJkmCkzIiBIg16 ZU3oTaukfsnHtK7nR1ZPWFkggxshcH6rOtniCgFwjQC4zoJ/44gEAL9jAgAc EXjckUXeEdd2n0auuzdCTjgi5KTjNt44MHmsLEDwCUEL2JEXtiwblw7sY9m4 uP9znP/8U8gKVWgfXIOBMbPy5k/fTvyGzSajccKKPyWK4yVrI7TZ1SR0w5hk RldaL3qz+jCY2w9FuB457u3IO0cVF9qGKr8uNN9Ti3portSC2dIecrMT47Q/ wwV6srCV+kkpNfmMLUZ7RK51gPjfIyI0QLQ456zJfd5J0kBSctuJyS0kthcP zQ0emtMfuiDRLUS0PBf3HeTrOwjXPfu24djOT/lynZnnFw/sx/n9+3B+3+fw tj8Iz0MH/vJ3xkul4ix8/AnkCcKIRg2q4upRL7RCjVFCHc0KFNUCQ0wLynwr UeVPHfqgUXQwPcJuTNTAPUnCzjRN4mhHp3ARK6qaOrYC7fdK+J43/wfrVRdZ QA3kwVoW5m7kPxxCfuQkChJmmYnzqM5aRINsCc0FS2gtWUZb+TLaq4RFvSvo rl+BpWFFnLnZrxBmby5hkGGsWkbGwzZkBzGD6RfT7tbRabcwi6WmY6khkmiV 3aQQCJV6nVRR8tfzuRWPRtDydAzayAkYoiZIoUnU3elHjlcPCnz6UezXh1L/ bjSHd9KEDUBPS6CJ6oCahFQ9boHqUQOdSDlPezmplQ1deOS3SOJvWhz2I6vj nZmh1ivU0ldVIumZtBQgT9gqj16omIwsE2YcCssBmNjF5FaBMAQbXInSSOHn yjarekVsFxri+7c8SXfeNPqLZjFaOofpynnM1yxguW4Baw0L2GiaR/N9A4bC WmASWm1TqUxVjmBFOY4FxQhmmdeTdX0Yre7BIFV9X6EavTl1sKQUYaC0futf P2vPU87hoJjMF3jmXuYZ68Ez1vOwA7yYzDeEZHZ2hP9xazIzgYMZvvvOUiZf 3yZlc+gpR/wAocxpIa9vnvxtRgcwo/2dD8HviA2z4AAaCmXvvnVK50bmQM6q Kn31Y9TFd291B+5IG4I5exgDslGM5I8yKceQc7UdBR49MNGWVd7sREdSFxar RhhDmK8cwExFHybKzBgp6cJAoRG9eRqp/2hKBXpi5ZjVdVud7B+hoiDPOkZx cCuBLwoJ7GRN4LeMzA2rmTnzsStSLoYKgD9q/444pPk9+B21ZVbbwufwIfjw jwiSRkjf+vw8iRabuBKet65EKZ3l1mEHcW+EeFox4qs+rgXK2Fa0xmjRFtMG Y5we0c6FSD5RgUyXKuScKWcdqkd/hp7+o42hRT/ls7DrhiVFSS/SCDMTuucp dcqDQsy2WKyv9j30UOfn+akhZ5bl3++DnNmUHzeFouQZlGfMojZ3Dk3581AV LUBTtgB95QLaqxfQwROuiydcj3VaZ69iHn3Nc+Kkrpo0BRIC8pAVWoLUsEYk 32lF3E2pW9Gz61KxSvLuYUZLJ3XNgzE0PppE85NptEbOoC16DsaYeXTEzyPL 24yUK92QeRDNDwdQeWsaiod9BNIkbewYOljgjMm9MCR2wpCghya6kTqlHIbo fOifxFP6yvDhN6f0JkffTum3V5lJQzZ/j5IivpTICkompiqjSJhfyKiJkgyP ML9QIVzJZmoL22EprJtUCf02U1xSEH8iA7k8JIXRHaiK6UVT4jBa0yfQnjuL nsIFDJYuYaxyhXV3FYv1q1htWsW6UugEvoqOsCb8t1K+tfIpfn8W6+p5rKhn saiawhzze6ppBGP1/Riq7kJfmR69BaxQ2RVMhuzNtD5nzxrtYCNOPbzIc9nd 0Z5CnTWaKe191BE+TGk/pnPAcScEnnBiujoxbfnZ1g2FXh5CRjvhD3DLxRG3 mNuh1gg5JWV3ELM70Jrdfs42PPsPIu6W/7tW/WfWdyMvqoA2TmrTWhjXjoo4 Mxri+tHCA6Hn+9mVNYG+vEkM0cKNFU9TsMwwUycgO6/BeKIWIwXjhN00VuqE LSomsFA7jtmaEUxWDWKUWT5Y1oO+onZmuNBStp4ZXoThsjpsjl6fc9i/ZVWE zL7gJMBNyuxNy+IlKpbNYQoHuO08gzT3UHGoIsCZL/EYc1y4833e2onZLuX6 IfgetoEP/7w3+Tnaa5FyWxpYWpxdQm5MAfLiyjY3XylMaEZ5vBq1cVoomNTq WCPa4kw0JZ0oD2ISnVIi6bgKJacqke+uQ4F7FYZzqcZyOxkdGM5px2C2Af2Z OvSmk+TJRJow5SSyFB0PZXg+ubCV6I30gzKK27wwM/IeDSEvegzyxAkUp0+i MnsKtawqTYUzUJXMorV8FrqqWRhqZ2Gqm0Vnwyy6GmfQo5hGj4qh5s9nNCLx Zh6SgyTvHBWgwTNfKcn9jkgwC3XW4t5J6bHaiBk0PZlDyzOCJHoJ+tgVmOJX UR7ShcdnjIjyWEZWxJdoePqc5X0Ruthp9GUyKzKn0Jkxhva0QRhSLQwTj5MC Wr5OQ2IJFU0qTI9j8HJ6Ad9iCO3rEv3tlQL/zno9fW5mmYlejGTrpMDC2Lcu PG/tkCpNChQ8j4GfjcKkwKfWPUAjWM8vpkHmlo0sl1z6yjJUxw5CkTIOTdYM TPmLMBevsAivY7z6OWbrX2BJaEaofInnLS8xVjSO6YgW/Kp1Aq+1G3ipW8OG dgWr2iUstS5gjpydbp7AeNMQhuos6KvkOV/MU0Beg+7M3H9vPd0Fd+62lfS2 uOhghytM+mus49fFOs6kPyYkvRMCTliTngl/k3l+5QM3yL3cEOriRBi6OLGU C4kf6iIl/U0mfTCTPvAEE/44y/kxnv5HDzJ79m8mfM7jNMrD8q3+tEWx3aiK 7UdjwghaUydh5IHols2iv2CepXmBJXoRM5VLmKteQvU1PTbKx7HSsIjVRiGo chrnsMjzcK5hClN14xhj4g9V9aO/rBu9RSReXjOTvgLdKdlWo/vvWM43rclB cTxy055IYxT21oQn/ng0fN4ap7j4yTlkXA19Rxys+CGx5rA1PMn8J+KY+M5S 4vttJr4ThQyf7s/fOtfyYotoQSq39lsqjtehOt6ARqZ5C4WdLr6HdsSCztQ+ VIVokXzWiMTjHWj260TR9W4UezdjPL8f4wV9jF6M5ZvF/R0H8zrQl2NAb6Zw JZdpn1gFC2veUEG91W//KTKvtyLnZhdy7/cj9+kQcuNGIE8ZRUnmOCpzx1Gb P4HGItZdmkJ1xSS01ZNoq5Ha47Q3UE0rJtChGkdH6xiqMuqRzHR/dqMGMX7K reUb3odVBJ8GAUf12Gx1+fR8J1K9aKueLkEdtYqae2NI9NDhiVsXov3Xkfv4 JVX+GoruLKOMqV7xcI52bBH9OcyJbN7PmoIpaxTGzH4YMunLaVC0KY0wpFXA kJRJc5KE0eLafyXbN1t8be6DIHz1deuCpIuQPxPHM5OiisV5fbnWeX3V8Szn NJAtDF1sNYzCXmVxNeKuq+K8vnhhXl81zLRbwu6ZhsfFqPZOR4VnDkrcZSg4 J0fBlWoo06egzZ2HqVBYr7nOE/YFJupeYbbxDZaUX2C95Us8b/0S+nAdvqro wZu2N3itf42X+pfY0D/Hats6lnQrmNcsYFo9jfHmMQw38qSv6ZLaaxY3oEeW j5nOjs3r3RX5POftqN7thVUGdlLWO1mznmVeyHrfY05U71LWBwkl/tRhpvRh eO64ilj380LWfwe3TjvxuG1mvVDmgxlBzPoAZr3/cZ73xyhqjxywlpm/RN7j HKZ8rbVvbweKo3vJvWEokiahoZ5sz6VmzKf7K17FWNkazck66/c6FurW0ehn xvOaaawp1il61sjCVRqXFSwqiQRqzOmmWYw3TGK4dhj9VbTvZUITVp7/chqY LDlezs/92Jr1j0L8ybwD4kTItz2MeBTe9jFixjtKXoYcdN97HlnXQreJoxPv SLbmuKM4SCk85kBZH3h8M/vJvKOH4C9mP0u+437pKEiJ/+essDLKnFLK6Xqx 55DwUcq0r43rhiLWAk1CH0/nQdHQ9GSO0IeNItnNgCTXbrTcsohbr+mizZgs HsVUyYg4cjtZPMjS0I/hQgv683kCyIj9bB6CdOFqYxnNTPamT18YeY4MbwOy blvENaRZUdJ6NXnqMIqzRlAhG0FNwSga+OcVpaNQVYyKMyWFD13jKNqUI2hT MVqHUZ5ej2hfZr9PNcLdFXh0qRWBzmr6IAMJ0Mnj1I0wVwsenu9D5OV+xF/t Q7S7Hs8udiLs7AgeBn2BrKTfQJ3+CubUdRgT19Acswo1BUBXxjoGZevol63C IltEF6WwKWcCxtxhGHItUKdpoM1QwJBVTQLkoDMpHZbErG+R/W+vCtys9W/v 4SBl/8+Z/UtIiSpERqywRzL9N7O5ltmtjK+DJr4BBvqwjvgm9CQqRIk1QN4O pjVhiAd9OKOBUY+htFq0P5ZDGZyJxsAc1PJoVXrlo9y9AOVetdDKl2AqXoOl /DmGal5houELzCp+hSXVV1hv/Qqj9FYjjw34lW4JXxi+whvjr/DS+AU2jK+x aqA20K9hnt+b1sxhvIU5oBhCf71Z6kdaroC5sBiz3R3YREDl2wiwt8MlB3ue /A64dsSKAJ7svkx/f6Z/wEkBAYclBLgcht8eb8R6sPCfPryNCDj8jsiB70sM cHmLASeZBSdsJQY4H5Aq7n/C4tQs5I8Kkf+0iShoIwpYxqIHURM/DmXqDDTZ i2iXr6CniG986XOx4e00D8lc/StW99fQhA7jhbD1l+oVNiiFhN1eVls2sNTC Q6BaoexZwLhiBiMN4xioHURvZQ9RwOpfrIBFXoyF7k5IHPhjap9/OY4hmJ7L 1D8eb2mgTePja2WAYH6ufn4R2V4hogH6jjiy8QPe8mWLYb8FgQArBPwofHwO H8Bon/k/WEnYa+ghAfOJAGlTR6FlUmEchX2sGfUUQaq4IeiSRihsx0XXY8md woB8GsN0PiW+/eiN6oWZj0+XzWCmfJpB28cqPU1RNF42iuHSIVKUP1cgNIAx Eh8tVAO1VAPCDhGdmxiYJwZSfUxID+tH+qNhZEQPI4tmKy9tGEVZwygTpjrm D6O2eBiN5QR11TCa64ZFDLQoh9GiYhABRWn1eHI9D/cvV+LeRQXunDPC72Ab vBw6+Ob3IshlEGHnRhFxaZwnCrHgpEPAmXncvvUbyOK+okl/CX38OjpS1mFm yg/kbGA47zmFzAsMyZkU8g06WyaIfBndeQsw0Y8Y5WMwUvyos9qgzVHBIKsj BvJIzBz0ZuRjqaPjX5kUs7kjlTBlNzExUdgDSYiv29lZmvH7j1T9C0iLzENm bAn/6Qpxd7/ahEYoE5Q0HCoYxb1NhX1NNRhI12A4S4OxHDrT3FZMyNSYlLUw VJjIVcJM9OvCZGi9TSqE5KMhqAD1foWouVaIap86mEo2YKl8SfX+BhONv8Js 81dYUv8a69rf8G+P4XXlIF4bf4M37UL8Gi9Nv8KG6Qustr/CklFoiriKaR1T oZXnTPMI+htZEetYDqqaYS4pxazZqgd+hAo5YWDLLLCzwsBxEwaOuM6z3pta wGcLBocRRBAEu0gwuHPAD7HXzgowEFjAMnjL9bBgBYiEUDFoBQgGAQqBp96C wvF/AQVzqwnyiBLkP2EmPGsnGCwoiWYFSpyiQpqnQlpGu9AkpuQFBite0RN9 gZm6LzHf+CUWycmOiCm8aF7EulpSSxutb7DayiPR+gLz6nXMtCxjopk2QsEs qmcxreHREDxRuYoaoRyLlu6tnihDVlN0QRoJ2SZS4YfWwRAHSRtYVZKPsxP8 NpUSw/PAJeTcCOFRoEvaJoyNCDeOFEnBJx2shLDSYWuU04a2iMagSIZNNOQ9 zSAVqQxiGokHLaODBtOCiphBNMSOooW+vC1tCh30Rz25c+iTz2OwkAWimL74 0QSWc3oxXbEEY84QKmONqI4zojbWgFp6rJpoHaoitah4qkZZhBK9hVQJcmH3 BRav7DJ6pjppVOLPMDfyAlX0AylhA0ghGsRJikRDjrBSjWgoyiMeioZRWTaM amKhrlbCQoNiGA0qaZVaVjwVgVsW7rpVMVS4e9aAy/uJAyfz5iz4C4d64XFm A4H3/js2p1rokl4wnkOfvIGOjOcw5zzHAGkwUkgSFJAKBRv8TFFQQCLkr6C7 cJECehbGIgqD4gGoc/XQ5rXAkF8PQ44cvfl8pbJyLPf04FsiQdjhyRrif/Xd r/m1TS7UChNFYgpEJhRREVQnqKBIaKWE06E9UY/uZAP60tsxlNWO0VwTJuQm 8YrxTGE75oqMDAOjjaHFeLYC7Q+LoX9QAm14CdRhxWi+VQRFUDHqrudDGWGE ueoVBuvfsMx9iVkVVQIVwpruK5gfm+gNVvGaPHhj+jVed/xa7B2/0fElVk30 E+3MBsMapoXOF5oZDLeMoV/Rh95GE3prVegpL8VkT/smF4Z6LSIXztvZily4 yAxw59l/9Xe44Hfi8P/EhUeOAYj1PC1yIdT1t1wIdZW4ELLJBRcrF06RCyfJ hRM28Dr2Fhc6IX9QgfxHamnJ2rN+lMSMoSZlFsqsJb7Ja2jnSWEufY3Byi8w Xiusg/815hW/wWLzb9AfO48XanJB82tsaIX4FVa1X2BJ+5qO6TlmWlcx0bKI keYZDDSNobeeFbO2k7pJTdFQhcU+s5ULkmY6b+XCRetgiaibHHlIeFg8eVi2 wHDsLTAQm942lyHzvSlg4Tvi6MkPeOsoskEgg6AbAt8aHRUHS5wPorFYtgkF +dNsQkGYNaciGIziZj5F0QOo4tFojJ9CC4+IPmMenXTJQpHsL1jFMBWl4KJq gi1ojGxGeGAJtXYpnjJieD8hoARJfiVI9ilGsncRkjwLkeRRgMRLcsj9SlF7 r4KpQx+blS1NM/8ntCsXEBfWh/jHw0igcUtOJhQyaB2sy9AK6EKKK4ZRWiPB oExYhqaQ5lw9TmjDHZcMWgFC4awGt47rccVmANccp3jwhgjdGZw+/kr8vYhg qX9vavAsyh9J/R+0Kc/Rlv4CpuwXMFMX9Be8wLBQEIo2yD+qxcI19As2unAZ XWShqYSGspREKBW2LzBAW6CGoageeplcGgwr5EvLzdwiwttTYX/HK3zTup4/ tJJggQohK1IGWUwZCuIaUBHfgga+bHVCO81cB7pSidvMHgznmjEmN2OKRm22 2IL5UjMWysxYKu/BckU3oxPL5SYslhvR+bQapic10D+uhuZhJVrDy9ASVoLm 4ELUesrQU/0Sgw2vMKZ8zTr3BouaL9CZPoL1yiGsG9fxisrgdQejk55BbK9P GnSQBqaXmOf3p/XLGNfOYkg9jj4Vz38FaVCvQldFydaFgUM2OG976Gso4GSl wGGRAv6kQCApECRQ4PQRRJ8Mojo48R0RAVLyhwhBANwkAIKY/AEu9vBn8vud soUPkz/ubsBW8rd0QR5eifyIVmnV2dNBlMRNoCZ1DsrsZZqmDbQXv4S5/AsM Vn+JsfqvxDWpc8rfsKivYTR9GS9aZ0XJtKFjtP0aq23Epe4NzdJLzGg3MNG6 jBHVHAYUQutLuoVGvkF1WsqkaiwObCb/H1uTXzJMW8lv1UlXDztKye8sGCcn cexEGjHl0eAR8bF1R55fMBkojKC8I+Z/yClpFHWbyIHvUx/xcJAEgeKQqb00 ZHqczuGYQIG8d62HxKKlNhL2TI6sJw004taYQiOg4qgRVMVOoilpji56Cfrs FXSRjb0slAPFLJxlL1GV0I3gKzJE3ixAVGgZEkLKkMrIvFmGHBIhL5DhXwK5 bzHkpIGMNJB55CP3Uh5yz+ciyzUDjbczpTVs9MUGzTKePR5AZNwwolOIA2qC FGqC9EIp9SPobLwDnkr3k6uR1TCM+zEG3DuRhvsuNbjvqsVtZz28HAfh4TAK zzOrCPF+hWc3pfb2cX5St7SkoBmUPZwS72uSlqHLfAmTTNjF5CX6SlgJS1+g T0j9olUGxUDePDrks/TTczCVz6C9ggioIAIKiQCmvaGEoqCgXBodK22ApUD+ vwIBX9fsS9IzUgeU9MfpkEXx0MbUozhOTb9rgDK+E9pEM0ypvYRsPwZlAxgr GMRU8RDmyoawUD6E5aohrFYPYq1mEOu1/Yw+3rdguaYH3dGN6IxWwBjVhNZH ddA8rqECJCLuUjQE50ETq0d/wwuMKl9iWv0K89pXaHtkxJp+Cs/b3+AFMfCy 8w1edfE+Y6PzNdHwmgbxBeaMG5giGsYENLQSDWqiQWWCpbGZh7Nway7Ao6BA nD9ENtjZ0UPb4zIzwoPZ4Mls8GIm3GAm+DIL/HnuB4hsOAK3T48g4VwwHlw4 so1EOIw/EAkRshUCH5wQTEYEWhnh52IHXzLiBhlRX5K3NZowuQD5XTLiPpPh YTeTYwjF8ZOoTluAImcVmvznaC95jZ6KNxioISMahHXqv8Kc6isok6YxSfW4 2rqC9TbKJGHbHf1XWNWTEfovMN/2mhbqOSY0KxhRL2BANYXe5iECkpa6kYyo qcHCwO8IBOugykWBlBQHmwMrAi09jwqMcJIYIegmUvOGsx3ZsR+eB12Q4uHB nLfbJgqo7yLEhUdhM045iojYJkLiuyImxDFWWim/40RESZ51jPU/o1dLJjwu olZqYujJih7GIBkxjur4GTSlLCIxhnkaN4qchHHkJU0gP64f94OKEHmrHHc9 85EUmo+U2+XIYuTxscKQcpSQE2VBZSgPKEU5VUM5VUM5OVHmWYDSa3JxVLvk UjaKz6RBHVGL1ZEV65Tz70LXvobU7BYcdb6CHdv3Y+9nztZU+QEc9u7DaVsb 2H90EKc+8sctx1zyoRW3j7YhyNnMwjKLUM9VKZe+h/s+z/EsSGrqm3B7AWWR UifWtjShWYUxbZZnZkeuIIIW0JNNh5THzwVEYuY0sTiNtlxhxu84z+FJtFeN wVg1CHUx0VBKNJTWUzE0ScNmlXREpUXfBg3ftEfO16NBElTCR85TGeRR1dR0 KpTF6VEX1wVVQi/aUgfRmTWCPmEuS+E4JkvGMVs+gcUqmryaCazVTWC9fhzP G8bxonEMzxtZ9RuHsNIwgFF6jE5xPZ+whVAzNNFK6KLr0faknHjIQ2NgBvoa 1jGi3MCk+jm0qQOYIyVX2lew1v6SnuElnne+JBakz8KGCisdL4iGDcwa1zBJ NIzqZjGopWrW0EO0GNHTxEOmVW6hoVIuhxvRcF5Ag5AMTIQrTIRrTITrTAJv JoEPi6SfFQ+BPO/dPjuFlMvBgnz4Lm4SBt/nrYSCIEbAaQeiwB6+xIHPqUPw OmGzZZtv0yfcIwYeEAPPhujEplBFDDQRA62UisbSV+iufIX+2jcYbXyDSeUX dE9fQJk8j5nyFazoqIvaviQchc0/v8CqgRpJ/wZz+lciBsY1axhuXUC/mhho GSYMe4gCLcy1VZgd6JYo8CdfTwFaBPctCjjhsqPQsGUv3Bx28vs74e64C1cZ l3baI+7sKZbEXYyd8Ob3fJ32wv/o/m0iB6xCgRFoFQvigMpJCoXjNgIFJAj8 Fd+STuqmUmlA5akgGiy4/8AE/3Aj3O/p4PlAD/8wA26Gt+N+WDvCgmoQ4pOL 2355CGUEX8tBTFAe0kNLUXCnAqU8uBWh5agmCGoJgjqCoJ6CoZ6Coc6f1tSP YtQ3HzU3ZKj2ykG1Rwbqr8vQ5FOG9dEVaULiP6CMtfYk/dMpMQ7hNOMM4ywP 1jmGm51wthwSxeapT23g8NPT8P/0MQL2ZSDYro5MaMddj3l4us7D94KkD+56 r+FRwJp4PzlsHrXxUk9HVeYKdLkraJOvwijoguIl9Jbw/Sum1ysaR3/+MNpl Y+IwoqZgggDg1zUjMNb0QV3aBm1ZCx+rpRbuZbSLDrm3ouTfCgRhHu/mj4uD Cb/dG0wiw1+L7R0LYnSoiO0Ut/JUJw/BkDmGbhkL2sNeND3pQw+/nq+ew3Lt HNYa5rDRNIcXilm8VM7iVfM0XjZPYaN5AqvKMcxU9aMzyQBTkh7aeB00Ca3Q JTZDF1MDbUQBXUQmTIX9GFKuYrxlDY0P9VjUT2LJsEEObFAKbGC9Y2Mbk38D P8Rap7gPBBYI8xnjCib0CxjR82C2jTLtLbCo9TA11WNyqNd6QP4I5w7yTbW1 pXa2xwVmgDsz4CrT35Pp78X0v8H0F9SBn6AOmP4XPjuDdM8g5vphYWSd+f/7 vHXi105i/gcy/MkA39P28HGxhTcZEHsvcGsSee5NnvN31MgP7xK1QCEhUEEI NBIC6oJ1Ev45uiopGOteYrjxFcaVTO6W11ClLmK+bpne4DVW9MJFFSFeYYWx aHhJCLzAlG4D4zraag1PIg0hoKEWUFMLNGvQVVduvarwl8QeCWAdT/0XBKBP OO+wD652O3COmX2BWS5mvtMueB7+BN6MC+85IfHcSfjxvv/hXfDn9/wdhdgJ f/udCDy6D8EuVgScojT6nbGTLQT8n+ht5SF4KIydtOD+fTXO31Hgwt0WXKZU un5bi4CbOoTeMuAu0z+UqXvbNxd3/GSMXNxj3PfMRjQfiyMWkm/QcwSWoF5Y hxdaBUVIFZSM5pBKNBMLzfQRzaElfKwQiptyNAXlotE/AyqKUC3x0cLffT62 bJ3N+EMM9lngQgZIi5YPwdVR4oDQ+O68sKxLhOchXGJsw2UeyL/GZTLB4ecU lx+FIHBvIgI+zUHYkSbcdevBjbNT8L6wiMCrEhPuB0r9XrMfzqI+0cqDjEVo spcoABZhkC+hPX8RxsIFmEoX0FEqeIU56MtmYKiYoiAYh7pkAO11QzDWMRPL dGgtU5ENFAZNFMJNHehtaKFQKP3/gYPNaf3f/R19sAUG/O3WY1kPM8T7+VFq FEa3oyrGjKaEQWjSx9CeO410vy4kXelC1vUeyHw6MSSfwWrjCjYUK3jRvIxX Lct43bKE1+pFvKSYfa4mP9QzWFZNoi9XsCCd0KeY0JpCVqS20pY0QvusFK0P cyitWtDftIi6ZDOGSwYxY5hnQqxgwbiKJdMqlk1UZysdqxRzyx0rlAjSLhVC z/xxwxyGDZPo1w/TvHajS62Bpq7yf7eOn0YEBOHcIVty3w7naR4uHqZCIB6u UiZ7Eg/exMMN4sH3lKQQPPa7IcsnYBs5IDhpgRJBZESQeOUhkIz4HhXCJiEc 4HPaDt6kxHVSYmTAYqXEj2BRDkMeqpI2ZnsyiIK4SZRTP9blLEFVwJJRuobO ynUifwNDjc8xpnyOyZYX0GQuYbF5AQttwiVXhuEFn3fZ8JyvfJHQnNWvS1vU 6JYxpJtHn26SZBQ6GnfBomrBkFH7EyuoxAsutpJtEgDhxmw4eWg7TttLcLjI hHdn8l8lCK4fIRwYvkd249IHzkg+dxyBvB/Ex4IPC7ELQfzZIP5OEH830HYH Ao58TqBKgHh7fKV+yyn8NYHdiQdhxbhwpxIX7zYwlLh8uwXX/NXwCdIiKFSP 4FB+9i2mM0/DbZ9M3PHNwj1GBOPJ9WwkkhCpPjJkkRC5XgUoviEIgyqobzei NaxRWtZ6j9b0Xg2jilEu2lN1WD5abmWh/ZmwLWuFuC2rLqQIz8eX3rVCorxQ LnY0cBXjkNjZQFjI7OYodce8xLjMcBchccX+0DZ4kBS/R3tpiyM/dYP/rliE fCrD3cPlCDxctXnF4Z7vNB4FzyDpzsTWFYeG1DkoMubQkjUHTe4cdHmEQf4s jAVCX1hhveAkmukaVAVjUBWPQFU6CG31AAz1A9BTIDSXadFY3MBaMM4YkDag alLzDCr/NoLhmxb+iE1P39pC9G+2uJD7UC5x4ZkORVFd4kYgiuRRaLOm0Bg/ hujLg4i7PIJSHxrj6yYUBZuxxtP5ueo5OfAcr1s38EbD0K7hFYvbc+0y1rWL WNHMY4rewpRmhjG9G7q0drSm6aBOVEATWwnNMxlU0QUwU4MUU1COa8cxoV3A VNui2GJ0jsn/DqXCIlNjoX2BXy9QNMxh0jiLUWHTDMMYLPp+dGlNMKhUmBgZ /hMrFM4esMU5WzumhKQZLlMzeDjTNlAzXBegcFKCgg+B4GV7ATn+Psz4w9uY +off4Y1AAX9SwI8hUOAGtYIXSXCdJIgOD7IWoR9hgQUpN0iJ/Nvt0qZoMeMo SZlBTfY8lCwO2hIWicoV9NSuor+B4l/JzG5ZR5tsCcuaOczq1jHfRj3ErN+G BcMaX6pw2XWGaJxsW8Io9dEg9VGvfgK9bcLuFCZ0NzdjZmTwJ5sTEA4dlAZW SYGTNrtwggQ4RXlwhqX+PLP58lsEuCEQ4ChlwdHduPLhCVLAGTd5fxtC+OgP EcrvhxzZhRDS4CZ/L1igAWkS6MDfOXYQ/uIIyiFKroNvz0R6B5fCqnCZaXr5 XrO1CP0FLnlX4PqNIoR6JeHOjTTcZeqH+2bgEdM+kuIg1iufJacQ2URDnk8p im6U8xQrRwmjLqgaunAF9BF01I9UDCUMj5sYdWIzlLaHZdCGy9EdX49uStGu p5XoeFAC/S0503/RqqP+EA9DAsWFzZtx1pr7m40MxNx3kNpdejjY4qq9Lf// a7x9l7c8qJ/Z48o/3cTtfTJ4fZoNtz2ZuHG4FIFnVbhzfQAP/IbwJGgYWY/G URQ9iYqEKdQkT6EhfQqKzCmocigEZFPQyCfF7rBttN/68jFoy0fQUDiAhpJ+ tFT3C0uW6/uZtpp6C+pK1VCXd9Eg8j1XkwMtFArKFprEbyMUvmnp0NdjYGFy DrIH0iLN/KdGFEdaUBM/DGXaJLS5s2hKnEL0tSkkeK3we6/QmriI+jtGrJcO YIVse6V9gzfUvV+0vcIX+pd4xcr2Qk/p37aGlbZlLDKtzfJBGDLM0GV0EQN6 WhMVWuOJ9Jh8NEXEoyC2Ax35AxigLh5unRVHDYXGoVN6YXO3acOccDPLFzVp mME483/EOIkB47i4cU5HmxmGVgO6Ozr/1MqAQUsvztrY0RSyNFI7X6AwuHz0 LQ6coH9g3DjlBPfP3ZAT6AlfFzLAz0WwDH6EgB/9soQARwoBB3iLGLCHJ/PA g3kgXdL6j2hI6kDeTQPy71vENuVFSZOoypxGU94sdeA8DOUL6KxehKV+CQOK ZQw3r1A30irQKU3pVjDTtoJZIfTL/LzErxf5shcwrp+n9JlFv4FWwTBCBFjQ o9FDr2iwVuA/p1XIw5mD+3B834c4cfBjUQG4WO3BRebwFeayJ/Pai+HDXBdy P9B5N65+fArRwpUU3g89thu3xPgEt5yF2IXQo+TAkZ3kwA5yYDsVwUfwO35A HDKJvxf4E+vZM7fxCjGKTsSqzLh0u0A8g9xJgitBClz2bhC/dvMsg/v1UgR5 piDMOxnhN9LxwDcTEaTAUz854kiBZO9S5PiVI9+vAsV+QiOfGlQF16E2tB7V N+vQwM+GB41of6JGR5SW0cpoZjTC9KyGhChFb6oK5iQFLHG1MEeWo+tRIQZy mqyjq39EGgSILQ6EZdFCnHOyKoFNGgiLSkkBkQSMawxPxnUHgQpC47q/wuVP bfD44A3cs4/Ble2pOLc7A+cO5MLrWCkC3BoQEdiL5PuDyHpMfRg1iuK4MVQk jaE6dQz1GWNozBqDMpcKIH8U6qIRtJYOo7ViCK3CGGLNANR1/VDX90Hd0IcW qgJFbRfK5EoY64dJfyoDDatAK4nAgrc8PvItiPD2kOHXEeF71ikLb//cJiP4 Bm9eNy+J6kNN4iiUPK91efQ7xSvIujWLlMB55NxagjxiFXV5tLj6L+gU6Byy tHhT0Y8vDV/iC+MXeG18gxfGV1in1F3Rr2GRWJjTzqGTKd+c0o6ySCUKH1ah +H4xysJzURAag8d+WqjKh9EtXFprZrarJzFEPIxoiaJ7MUhiOH6yV8Aeb78L x117EHPvGZ7dfQKdtgtKpWarFDzwD8aZQ/Y46+DAN544oCS4TBRcOUavIEy8 IQqun3TCuV0eiPO6LGLhHfiII2Y+zP8bDG8ywIvhSQZcoxy4QkU8PND7F9bR e2GvvmxfHfLCeiAXPEHCKMrSx1Eno/IrnIa2jGqwao5Ofx6Wxnn0KxeQw5+b 0w+KW1IK4mdSt7CNN/MkkAC/zX7Jg2Rdr8i6QXS39cDYqsXk2KiVAn+MIYsF x/e+B1ebj+Bqt53VfwdPban6XyMBvFnV/UiAINb5EBLgFrM+7Nge+O88jfiz R/Dg5G6+2tsndlOA3DnxCW4f34VbjNBjO0mIHbh5ZDuCnT5GoN2HuHFsH0YH LNKB/TsS4CVilR2Ia+lhWOATJbV8uhJWj/PuFTh1UaLCeY9i+Fyj/L8ej3Dv FBIgGw/98vCI2R/lX4ok/wqk36jFU9cyxLqWI+lMBWpCm1hnmtBEW6G838zP zVCFM+ufKhkqdMXo0BOvow5QoytWAXMybWZWG3rTW9GbokBvAkkQXYruJzK8 nF601rwfYnp6VWzn1sZ4xJPu2YMqRN+vQqywVY6wZ1ZmGzpVLCvKoa1p/UN9 FqkFHcmxTbz9fbg5/Xa9h0gPYRWrgx3JYUdySOuwt8HL0e4dsTvdX+Hqz08i z/8OPEhsz49C4b47ARf2p9CMpCPAtRB3vVSIu9uP1IgBZD8dhDxmEEXxQyhL HkJl2hBqsoZQLxtEY/4gmooHoSgbgIJZpqCIaBI2y6nrg0IIoqOhtgdNtd2o zTPA2Dho3eKsTxSRAj4Wxob+jfh4e+HiD63zFrpVXZDx8OU/1CD/cRdKhAm5 yRNQZtMK5S+ho2QNlsoXqE9cgyp9A73lr7Gs/kqcVzOs/Q3mu/8bXvW/wf9o G8Ov6ix4WWbGC9MbrLe/wopxg+Z4FXOsi93lg2QSJfejehREVKDofgHKHsiQ F/wETy7n05o1IDWuF51NoyjPqIHXGXcyYg+O7N4LZ8ZxxgnGSTH24Di/d4zc OLrzEzhu30mJ6itk04+tKuJ+QDBcbe1xRsSGo4iNS1QR7lQQHsTGNWLjwl5v PPC4KOLDi9jwcnHim+7iSLF1ndS4RmJcZVxxsYc7fTSJIV0Afxc1Md3IDuaB eziAvJhhFKWMoJIVokFOnyjuKzgFY800OutnYG6aQW70BMZ0CxhSz4oaaURD PDBGtJRDbVMYMkygX8CEuLvBiNha3ajtgLm7xzpy8R9h7qyA31k7nNrzPk59 +gFcP/8QbhQPlw98hGsHPsaNg9vhb8OUt9mJW4d24r7TJ3hIdNzZew4ZbkcQ STxEn/oEMYxYFyF2Ie70LsSe3snYgRiX7fz+x4g68RGeOX+IULv3rGulaEg7 hxDf0s0wW33zL3DlVjlcAwrhci4Pp93yxUcvXC3DratRTIdEhNM33PfJo9Yu ZUGoRKx/LVL9GxDiSEWxvwJhNjV4aF+LRNdaKO63QhXRCvVjDVqfaNEcoYGW 980xGvTEatAdp4U5gV8ntlIZtGNA9tYipzTyIqkavbEFMD3JELfOeUpfEfmM XGAkPq1C2pMqZNJ/5ERUUS9XIS+ccZdxmxHCx4Kq0JQk9Ddd+b3N4eu3VnpL IdgPW7GNzSYyroptG6grGdeF5WJCWxvGNnH99094awfXnx9A8plQ3Dlzil/b 4tQ/fYhr28PgvT+XqCmA78ki+J4pxMNAI+LCe5HyqA+ZkX2Q0c0XJPajOK0f ZVl9qJT1oTq/HzXFfagtY02vYFTxsZq+baip7SXVqmssqK/pQT/Lc22+DkYF NUebID970attR49KubUS8mvI8X9Zv/VNa6N+aK3MCxOLYoPY/PtaZnUPimPI uZRJKHPmoc1fgal0A5aqVxiqe40J63xFSa78lThvedny37H58T/0FqzVtGNN NcnfGUAn2VidokcFi0ThYxWjEcWPK1EaIYf81jM88a9B4OU6uJ+IxzGbc7Df tRtOJMJRxtlDzNvjrlQGrji37yBO79kLF1Lj1CdCV5zdOL5jFy4c2I/Lh2xw 0YayMCDwx9bjIHiP06SGK6lxhtRwIzUcP3fGgV3HseeDkzj83lm47D+Nkwec cd7pCK6RGtcIjKsMD4a7C73KKXs8Db+JoYFeqavij1GbQGF5p5eiYQiyeGkL g6pcWsmCUahKx6CpHIehdgKmhgnI42cw1DZD0k+ir2US/WqiQTOBPlaBPv0Y LIZREREmYRsDYQsBvrnNqratyyDmjnK0NSeiJOs2Tu1+Hy5ExZnPPsT5fR/D ff92XD+wA76MwINUCETFbbtduOuwi7jg530XkH7+CJ4d20Vc7ELUyV3EBfHg IiEi9vR2xIjxEaJPf4ioUx/g2Yn3oUm4jXFlOf5sCxcDiFd1IoHSYhsS1BZ+ R/g47ZcOF48onD4VBdcz8eJjXpeiEebxFPeuJ+CeVxYlRgEe3ijDU59qxPvU Id2nEb6f1yHURovH+5WIdVIh6ngLCrzqiIo26J61QR/Vtg2tT9vwM/QkGNCX SCXBMDO6E1oxWtSPwQIL+uTCuigjerNbxXVRJSw/D/xSEP2oGAnR0m4VmYzc SGGrFWvTUlKjnEqjgiqjkmWywrpbRQWpUUFqlJFsyiglultJpcFOrK4siAfh ET2LtJz8oNhOW1hSft5pEx92kuKwdn3Zwoe1ccSNI/bbxDXm78Bj/0GEfHIV aX6BPJJCh9y/xOW9n8LlF9vhseMBbtgU0R2Ww/tUIQIuVeMJz7KY+71IEjbn i+5FdkIvZKm9yM/sRVFuL4rze1FS1IvSUn4uZ1Qyqvh1Nb9XaUaHoNZp4Pva plFb2Apjs4UOlhqE+WnRGrE4NblJkLcHKX+HIN+069ofiLe/QO6tauTf1Yn0 KIodptmagiJnAZqCVZjKnsNc/UKc3ziufCPOb1zSSNuoP6c3ET5em34lfp6q m6ZHnxXvry/8Bv/P9BJ+Tb89VNCAqicNyHvE8+Up43Ezip+RJBEFqLiTiNv+ Wlw+mY3t//VD7PivH8CBeuIICXLyswNwd3aFxzFShCRxI0VcSZDTDBeBMJ/u xRWb/fC0P4RrdofgYXsI7qTJpQM2GLZY/tAquvp7LSgtkIuXvsODA3HS1gYV +XKUMwZ7LVLXr59ggNAJD74Jp/0O+OTD09j+i7PY/c9n8ekvz+HU+1dw5vPz OPDBaez/8CSOHzhKwFDKnHLARcb5k/aoKi0Qn6rE+lTH7Wxwgk8lPJ3wVOVy OZ/Dsjm5vzZ5FBnhgywyw8gV9lPJGGZxGUZ94TCUpSNQV45AVzOCouR5Vo4J dG5uVaceQbdmBF26EXS0Sc3a2xgawxDUbZSx6k6sbTx/1/o0Lzbm0aZMgLEl Ee0tSSjLDoPLng9x9rOPcOHz7biybweu798J34O7EGizCyG2lCoOn+Ce0248 oNMJt7mEjEtH8YwOJ+rUbvKG0sWVsuUMZcvZndsQe24HPXDsuY8Rc5Y4OvMB cnztMVSRhIGiBCz1mqw9s45gnk4nobmdOOpimAmkXiSq+3BbLnV6Pn0hCmdO xOKsa5L4deClJwi7Go27nulEkhz3vcuIpFpEEkWJPs2IdW+E3/5WBB1sx91D A5AdaUGSiwZFAS3QRhqhjzbCGCuEAW28r4syYJDqpZ/Ry7AkacW2kUMlQ+hn MvYWCFwyIP1eAZ4GZeJZcBri7+chI4YsYhQI7VLJpAqqmWpyqfZxFeqpZBqp ZBqpZGpvl5BFeZB7JkN+lXGFcT4Zua7xKAqPR2NFChrKUuCw/R8ppd/Hyc93 iiOpgpwR1r5trnoX1r5ddZRWvgs8EhrZCKvfhSZdPkKjLobfUQri948hxzsc YeeOE0p+R+3xI/getcNpQunMP3+GSzuu4ZptIa45l7A6FiLU34CH9yx49siC uCgLkuItSE3pRUYGAZXDspjXi9xCRrEFOaUW/s3cMgsNbVlVP/SKMfRRJfe2 URjox1GR14guLXWNYQBmPYHVqvvwm4H0dTM4317w+YfWS67ZN6shv0M5E9GD 7Md9yKXLL4kdpyGaRlPmLIzFyxgQNtizzqpc0L7GSpu0/fyL9jcYZxEXPjqo TU05Un+Ltmw9Whup8/vX8WbtFf7fyREYZG1QxCkgf0JD9LieFSYPtVF5OHu8 gjD6HDt/egCf/HQPDr63E0d3SWbnrI0D3ChtCKFtoqb5IVXNHlymI70h7skg NBI6BG/GdYdD8CQFrpIA7gcPCkzi4ZRedql1Hs5phuQSf0+65k6OiXafv+NG VVQll28C6uK5XBx3SsSOn1/D7n/0wue/8IHb9ps4u88Lhz7wZFzhf3oZR/Yf g+sJe1QQSOLT2NuIl/rPMMQpPozzwuj8W1N93IjNc3y6SrlcUjB/gqrUCaTe H0J61DBykoZRkCktRqwpGEZj6TCaK/h11iI6daPQNQ5D3/w/b60n9ntnNGmp SVXdWN14Kf35/wRdUzzLWoIIpfaWZHSoUxF01gnn9m7Hpc92EEw7fwsmQinE YTfuEEr3CKUHx3bjvv0VZFxxxjOX3Yh0JZjO7EbMud2IdfsEcecJp/M7EXNB iB2IPv8xcoKcMNqQgpGaJAyXJ6C/ON5Kpu8gXqFHgqqDVOpm9G5elgmJTcVF zwRCKdFqt/5v3L70EHfcE3D3Wi61Ugnue1UjwrsJUd6Ezw0tMnz1CHPW4/aR Ltw91ocnJ8ZReVYF7b1W6OK6YUjohimJkdiF9oRO6OM60RHfjsFkiiWKJHMi 7VWqHj0ZRvSXDqE1sw3Pbgqbv+YiOoSfQ9IRF0ywxFZR6VMUEUrVFEv1m5sn UiypKJbq77Di+KeggrGNt8m0y+W+yai4wbjO8EhG2fkElHvF4knARRzZ8Y+M f8KR7b9g/DNcPt9NKNlZRZJ1Qa6TA64Li++s7ThubLbkOCoB6fwOG0QeDkKU pwef09/ZYZvYQfjPceXTz0ilXTj73j5c3OmCC58F4+LRPHh5KBFy24yw+2Y8 fGrGkxgLohItiE2zID7TgoQcRh4j34LEAjNkJf3QNNCfq6dg1kyih2K8mzTq NoygVF4Hk7aP9wdYF7vw8vmLfyOR3l54+ofWsclYvxJEXa7BkysKRPrqkBTa iZxwC4pIp8qoATTED6E5aQRG2SRG6lcwr32B5baXmGmWpr4YsnTSRSNTjo7/ g/Chz9ZCm6VBTaIaBVEm1JaPo7V+RsSsKtuA+vgG1EfmIdAtAh/+nS22/9QJ O//BDrt/uh8H/3k3juzci2OME7sIopOffMr//OxnnxNE++F3WBhx9ztiy9ck 3Pd1kjqceTvaEEo2IpQ8bAgks+V71pe+OR/I1drHWByWc5BYdEVYg+lBYvwH 8UvhEv8VMmPTuAlYUzSOIshXi1DfHoT5DcD3QgtrXCzSzqlx50IKPE4W4srJ XFw+noYw72bkZWSJUxBPW68sft2MAnE+wRU+2XfhLj4dvy085UHpKd+1XkQ2 NS8jkZxKjpK2cEiIH0TIwz743e3lZ+rwZ5QZaV2IT+FbVTUo7uGnVJNJ5FS9 Zhi1jEr1IDRdE9YL0z/GS6omozIe7XRwJsLJ1JKKjpY0dLek4/bZI7i0dwc8 Pt9FF7cLPjafIMB+N24STneO7ME95z14cGIPHh7xQMY1Zzw9sweR5/Yg2m0P YURAXaB6uvgJz4WYS7t45KMv7UBOyBGMqdIwqkglpJIxWpOI4Yp4rAy2Syfs +zCNTyNBaRA5lUj1lNgywBhBcKoMITFpuBWbgYDwdLieTsHZE+lwP52A2xee EFY84h4FuHetAvc9GxBxvQXRXjok+xiR4d+BVO9uPDrXhXunuxHjQYN8aRzt 7tVoi++DMbEPpmQhetGeZObXPSLALCkm9Cdp6PLUMKfr0c1oTmwWIRV7Ow9x t2WIu5WDxFuZSAtJZe2mayOsaqOr0RhVg+bIGqif1UIVUYFqAq2WUReajobQ 9G28SeN728BfawhOQX0Ag9yqv56EmstxuLvLDc7klPOOXzD+Gc7bfwnnj3+J Yx+9h3Of7ZHEk7BI2MnaPOCII24IDQQYvketjUQY1987B1nIPbHb6Tti0+M/ 563U8vz8x3vg+otPcOaXe3Dmfd7/cDf9xjFERgyIqPIL70HwEzNuRxNd8Wbc 5aG5m9KDgqIhFBYPwdQwiQ7FJDpVlO2tY+jUjhFJIzAZpPGCQqJKr+Uh1VNA WQY/+naYEsaCpF19xsbGvm4xrDQg9Pcw6Ad40lfgiU8BHp8uR/TlRsQxN4VG nbLwbpQ+NqOGplQR3w918gD0aUNoZ3HvzBrGYNU41GlSLxR9ltSpup0+vT2n 1QotNaGlRi3f/fxIk7QPerQJcpay8vQO1Mk76Ndl2P1Xn+GDvz6EvT87yjiC zwgux4/24cy+A7RxB3B+/wFcOHBga7MZ/6N230EAxev3edcW/kc2uzYdEhWV lwAuu4OIDgqUBgZ/gAchgVuwEprF/bbhugQtTwdRgG2DF+/8RHxI0GPCtISr xN8Vgsv240Dc9DXjju84wgNm8TBogT/TANlV0iLUgschM3h0cxwPgvrpSc/D jpCVYPU7Pd75d68Kf1t4Ok/xxl6gluBJr4qwpP7j8z3zD7SuWP69LVN672ag KNBO839ytbPZBldbQRA+DApEBQ2j8MPbrGfE7OQbVrlp3A3rxrGLGpz10MDd S4sL7vWIuKXD44cKBIdqcPuhCZGsoOVKadVnIUPVOYPl9TdbBpVPvQ1ldKXv iN5UuDfAb0mC6D+j31SGdrpGU3MSTKoU8i8NnWRfT0sG+loykXX7Ojw+2wXP g5/ghu1u+DvsQfDhPbjlvBc3D3+OAMcDCHM6j6jzR/HA5XNEnt+LqAt7yToy kBHtTsHm/gmiGDl3nDGhzcBoazpGNxlYn0ShloDBilhrKuxBfKOGAGxHInVk Uks/YxgRZRqExGfjVkwWbsfk4E5sHoIeyODKMuN1OpoAjMWdy9kIu1KCe1dr CUAlHl3XINrbiBT/TmQGm1F4dxCVDwdQ93gQCprxigcTKPCaQc8tLYypzNh0 muzUYZjShFZA/TDSMvWkdmCI0LOkaHlfgxYBfkFpiAvJETfeTLiTh6Q7uUi/ nYWc0AyUPMhHXUw9FNGNUEU1QROpQENYIeoJysawPCjuyqC8J4OK0XIvl5GD lrtZUN3JRPOtNKhupkIVmIRmnwSk2fojYLcjjpOA23j7S/wRjm9/Dyc/fg8u H72Pc5/sgPuhg/A87Agv0k9onyIQcLONkh+Jd+aX9ki5dA/3Lpzh3wg47rhN bKD2ZyII/QUMMi4Iu7f8crcVgXv4x2n971SjMH0U5dljqM4bQ33BOBTF41CV CTvAjkNLfrTVjUHfOAaDchQGVigDC61eOyJcLdwm7qP4DmTyWmgo1iy9Y/j4 2+FP2DFY+CxtFvwOioqKtgay3vkaGv7ASsPy4lYkR1ciy9ok8MmJEpbgRiR4 tyL1pgGyex0ofdRF39cDJR2xhm+vIb0PHVkDIjTqohvEvWWED12mtPOIIVsF Y7bKSkmK+8xmUcblU8bJY7opzrsYesiitShI18Lvgg92/u0pHPqbk9jzX+yx j1Q89Asn2sdD4rY6Nza33TpqJ26rE+BsL26n8w6CWI5+n7d2/NKOgLQV8Sig 0eewjaTniMVaeR6+s8XFAGsDe6FxvQ0ub20eeEicgyF8eDvZvkNBaGsdD5ak 4SGRlJcI571/fx2O2+lx/OapPrsR+GkuQvfkoch/CE9vvWCs43HoEo7s9cOe n9tg9892W7cW+C2Cr0m7mgpXb/lc3sI94Sm+Kz6JNGBHDUo5FxUQaK1c38EA RWg4uS4oQ1cHm3esVymEeehvf1wUFkOTp48CAzFktoi/PD62jmseTbh4oRlH nRtw6lQLjh9twG2vVnhdreP3FLh2rQ5XParxILkTPWNrWFh7IzL4hL20HuY0 P2+tg7GuhXETzLGtZI4j+HyDFou0uOpPYWyMg0lJgdhMgahKZaSz5GfArMpE vyoLwy3ZUOc+EiHpbbcHfk57cMOeCn0/D9XndvDYb4+bdi64e+IIfO3sEHKE T3Huc/qMvTzLI6/s4XF5euUTdFc+wrQhG5NtmRgTQKkmKJsJySYKxfpEjNTG 4Yu1OWsPXGGc7TkSFDokKk1IUlkYQ4wx3EzJp1IUQCljyBEWW4jAiCR4BsbD y5WgPJ+IO5f4uHsF7no04v41NR55tiHGpwMpQT3IvNWHwgejqHg0grpnY1DE jqMlYQK1kbOoCJhHf3gbTFmTaM8YhymTkoeaop2ZZEjpxnAW7SytbHeaBrnh +YgPyUICYZlEm5osbAsQJkf2nXzk38ojjMuhiFGhJVqNlicKNIVXoPFuEZTh xVA9KIb6YTE0EcXQPipG26MiRiHaIvKhe5AHXXgutASn9nY6aq4+Ru6xQGQ6 +MJDuGy985c4seM9xvs4tf19nGac2f4BzjIESSC2jjjqJPaU8bX2lblqY4db +24gLegmCSn0mhK6af+ZSMsAIcRWk2Tljk/hKnDyA4GTuxF66QlyU1h7M1iD c2gw8qQtbxtKRqAoH0Fz9Qha6oahbhxGK+u0hsWslZxs1YqDJtug1guczJDV wtg1LL6x34KT37QM8vtWNzs7s4jEyEKkxZaL7RSlhmpVyPUtR4xrAxI91UgN akNumBElESbUUOUpErrIRur/TDM66MsrntVs9phUJNRDnaEgBhVbfTTrkwrQ ml4HTQYrXkYD5NEdkMXSbMfzc5wO2YlG5KQW4sB79vjwb+yx66e+cCR3jvyX ozjwMwe47N7cbcxeHNq09vUV+3sGC8GD/464F8nv89aOj9nxewImbcXOf79F JCuh3QFrifjhv9gJcQuPwi6I1t2XhXkmwofvYWHqiSBNf0I1Kj0mGGo/oVk4 49zug7D5h8vY+7ehcP67MDw8QLvjVQvfU+OIP2pGrGs3nt55jaOf3cKn/3QU n/6jPfb8bP/Wfq5v7/pMOgpjh9v4h8lKXxr274l03uKygHmy6Ro5FE0G/b71 ik5ZYd7W9Py39xezenZRl27DVZLsXVGHio9vXiOxuugAn1oE+xpp3HsR5juE +wGjNN9a5FMl+Xv3IeCGmZ/bEe5nonFX/I5x//9oew+gttI03/tf7pk7s3vv hjt7b+3e2d2a3W9nOs50cARsTE4KKAeyQEICJCQkBJIQCoics8FgwCabDMYB nHPuttud3O7kztPdk3tmd6vuV/U95xwJ457Zrd2p/VT1IFlgvTrSOb/n/zzn Pe//0fVCBaHinb0UwPj7VTvxs5VQz63f+xTL3YZKC3KF4cjm7UZm0h5kJUUi O3EvNIlR8OvUGAlY8fb5Mbx7cQwPL49jtqUMzcU5yI6XQZskQQEBtFgog1ee i5psNRxyOiAVtJ/Qd9doSEGrKREnh8rw2a1xfHxjDB9eH8X1pUYs7SvBUo8F 1bpI1Gj3kBKU4XCdgfbRWuYMTXCNPiVuvvMB+k9exf7TL2P/GVKcZ95G8/xl +Hon4OsiiHZNI9A9C3/nFMpre+Go6aPPsQMB3SAChhlUFx1Fjek06syXqOy+ gS7nKxjwvkaq8C0cbnwXC63vkbx4nwqxhzg38CEuDn2EubrPSBV+jrear5HE eIibo+/h1ihTnBFIR+7htbHbeGPsOo60LqLPM4T9vlHs909goGoKQzXzOFi9 iMnAIub8CzjWeALnuq/gUtdVnGpgpncs42zjCs43r+BiyxFcZtZDZmzvOlZw g+5vti/hZhsp/9Z53GiZxfWmw7hWP4ET9i5M5XowkenAkNwCSdSLkOx9CdLI rVTUbYWKQk2hidqFvL07Kb2nwp4WBGlwHZ7iKA1GnU3MIl1PsKsYc4t3VgRj C0vT/0U/uZW5DDFJ0EQwRufx8BjaMLzvPkaJp1PE0zni6dL0fRyZI6Yu3ceJ 1ftYJ5aeJJaeIpaeOsc1d9YvEUcZ198nWN/ftn3j7KyrqP8qjm7FQMcURnoW MLlvmXaqVZzoO4Zz+07gyr51HCxaQ1/RBdq5rlK5dA2zTfSlkT5cJwCeP3Ab Vw6+jJXOE1hoW6b7FRztPoITPas42XcU54bXsDa4jCP90zg6MI2TB5YIosdx euQYlgfO4FDvyzi47zqGu8/jYP8y8pUaRDzFw56nBYikiH7eCMXWClifIm2Z IkSZmoOoM+jtxCyUusnX6Ql4M2XYTj+lnK0LfQEhWxfGBKJczaydTAlSJsDx aa5ZutktktF+IY5aFOLHJC1zC0pa7qQew/E07vmQnDUkpEL9ZAqyn/ehLHUA PuNZNPl+R8fOu7Clf0wV5OfI3m6E4KVMJO/MoFAgaZuQ4yjLbs6d0v64g+0W pquwhaX3d4MdBTHbUWD4zUhnG9sKFeL41OR3gkgNdRVCZT43r5lK+E1dhS3f 7CuEzj8z53nyEwUQ7/XAU/4aAuXvo85F79/9GczRU5ivuI0Wz2do9nyMpsr3 6fk3IIs1bPQVQgwvDA0aZLhFJnqCbVz8t42WQrGYa2EUCtjTSv8jKKCZ884M nZlOrjY1MnQiIy9p74Z45hL0D2DhxeBwQykeXpnAx9cm0FjcgpaSLlI25fBl VlAJX4wqRRnqsg1U3megrcCJ9kI7aQMf3lobxhcvT+Cz2+M4NliKusIY1FM0 MFEQjcaCKDTp95LaDUMxbydMSdsfnWGanAou7BqBfcdPE2CvE2DvUrxJ8Q68 g3PwdY4TVKcJsHNU0i+ionkY9up+OGsHUOXsQoNpP6oLZlFdeBw1tLPUmq+i wXYb7a576PO/geGatzFFgF1s/wBHez5kF+U5e+ATXBj5FJdHP8Uh788IhF/g QcdV3Bp/B7fH36Z4EzfGXsed8Tt4Y/Im+iv3Y8AzjEGC66B/GgP+OQxXk0aq OYaZwHEs+Y9irfEMLnbfwqnGkzjdSMd+83GcrKVj2TdHCXQEM7YRzJUOb8GC fZj2lUX7EBZLB7Fg24/TVUylT1E3iiPlnThcWI1pXSUmc0rhFoqgiiamRm1D OkVm9DYSrNuIr9tIsG6Ddu82FCTsoX2Xx/JVHytFR6YfHaUWZsmjLSxf/w8q mGVj2TXjOca62KAUGVznrCJDDBOPDrvd8ajQtZEivI/BvvsYGbqPcUo506RZ 52ZJvy4Sb4+Qhj1GzF2jOMW5OK4QZ7fgCJH2W1g+9ybeev+L0NTWP5Kxm//8 O0HGMh6QhyjJTvYuk049QYw9RVXHWVxll/q8iPNN59CjPY/9pdcx5L2ByYbr 9L3fID17E6cHibf9l9hrc2ZaFjDfvojlziWsdi/hWM8y1vpXiLMrWOyfwurA DNaGlrA+cgTHD67gyMElTO5fJ428hoHeY6j3TSD8h5EsZ3cHORv1TCqinsuC eIcJppcMcG1LCVpoydg6gVma2sNZZz0BH+u4kyXDX9FP6QZsHwMt47ajEKDX y03aYbw68+WCjeLatMmnkzHAYDypQiKcE8fcAvghWx5GEJfH7EXd7gjYYzKQ HV0LcVgfcpNm4BEuoUdD+t9/EZaCu0jcZkX6NjNkL2UhZacK6SSyzJvswe1B 6182jzBAD0KdbVRsYZn+XbaDyzUoxMHeLSlwmZCl7Nuvvvrt4LSjxmCPQsfO yCKKKbjGgVnOCXG2R8GI4g1hvNGrCJ1bZ9idFytE0vNlpEO6Ue38DDbxMbgj O+Hln8RK4HW0+n6NVv/P0ez9HMoEplchAj8ieaN/GwK7metXbGHF+J/SSwdL Afaea4tYpY9O5ZuE7MZwKvyFx86chS6QNfB3wSTaw75jsyQaBl409Ekx3Omz lFhuS4RxcIjimOXZMOjxUqndhXbbAfTYD3HX9LomMVY8iyONhzDqncAYKb0x 3xA97iUh0YH1ITsajXFoNMWhiaLZFItmYyxajDFoLYqGUxEBq3AXbIKdKE3Z wV69z5yyKyQIF3AzpIKnN1XoO0EH0Mmb2H/qNdROX4a16wh42RVIVjqQonCD p/ZS+JGi8kKlq4fO2oEqRw8aigYocRxGQ/FR1BrPo8p4DbUE4lbXq9jnewMH qh9gsvE9OvA+wBEC8drAJzgz/CnOHfwU5wnEl0Y/wmTdL3Cl/ad4n6rCq2PM 9fTMmuJ3cHbgOmbrDmOfsx+9rgPodo2hr3IW+71LVBmcwBTr8H0aR6pO4VTT JYqzFOtY9ixi3DKGKes4ZuzjmC+bwGL5BJYdE1ihOOIcpxjDEccoVspHiM2D mLH2YdrSjfnSbswWN2LOGMA8JbzpXDOyY4nAMduQFbMdmtjtyKN7HUU+hSF6 OwooLPT9WlKiYdubj/0OP7vwHLMgJ7P43BYWxN9nF/GvYINDcUUIxZlBj45M 5lIpPir1LehufhM93fexb+A+9pPkHR6/j0OHCcvzJIGX7+MwSd7DJHlnSPJO n+Qcp6cpTt96uOUPTPT7D7QOfu/650d+shxNtuP2lVdwqHOSyvgldpHVY33n cLbvMq70XcXt/ddxb/gm3hq9hRs9N9FLO8J+1y2M1NzEdMtNLHXfxPF+xvt5 GQfrZjDeOMsukTXXNofFjjmi8jyp4Hkc7V/CcVK+x4YohpdwZGQRSwcXMDsy j8nhGfR2HkV7+zwksTqicRjCn+Ijgki852kh9jwlQsqzL0H84yeRul1N9YMb Fc8ThVNFbK0RJDEDYsYg5QnGIolxTJLhr4MeaIz/mWTD/yzkkGQjInMuqvwN lxJm6jkz7dwadFBlFfYm99TNCnsL65f4f1BKJPaHhWMgTYjOfAnyopVQbk2H /MV6WON70es8ieaqO2iq+hKq5Cok7cxGbJgHsrBKaLZmwhAl2DBiD9HfEXRp ZujPSOtvs/z/brAVElr/nPM+KgvCuKfS9a3g5IblmUfdkBCImSQTArFNzil1 VlUruVN1XML5OziYfyvFG+fodPFipL5kQvKTbuS/2Iiu7AXsc12Dp+BDdElv oSfvVbRWfQ1VEtcRSdwhQ8JWHgoUHIm5rvGmTgwHf64Togwmge+wQ4WaIkwS sDJUTmWJHNQMP2CRHFLx2qDPNZM/C3i7YBFFcicDxTH0OBaFybEwhZCcGg+H JB4uWRwq5fEkttQI6NtIWE2gt3yG9uh5dOS1Ycq+itWWwxgPzGMiMEv3kxRD qMlV08fTXBzPrMpnjkcrG3FoK2YiBhWq3bCLwlEmCkN56i6UE5o3K3qmH24S sicK/0ewIOk7cRHW9lGk6InAhhrwddVIzalEKpGZx7eBl1Ky8Y0IBFZIUm2U 25yozttHmWEGTeZjqDOeQaDoMmoYMjvvocf7JgYD7xCZ38ds+4dY7v6Q5NIH WNv/EKcGH+LS2Pu4Mv4eLh56C1PNP8PN3s/x/j7mxO/LuHjwNk4duIHesq5Q ddHtmKdY2lRd/AhHAxdwvvsOVgnUh8xTGLdOY6r0MGbLZrDgmMWScxYrrlms umdxzD2D40xUHsZRFwPoUfr9QcyXDxHA92PK0oVJUwuBuQ4LZi8WimxooZ3V lEAQjtsObdwOut8BA0UBRVHsDhgJ1MXxYSjamYie9EL40pgdl5C8hWXytzlx vJnIWWwTgjDwvY1VvVxZBIHMVJycn2S/jatXvsThxQ/RQlTuOHgf3UTlPqLy fqLywBKJZxLJA0Tm1Wsf4ZUHX33rjyPx71+C/q3H/jyEZexiP2vm0UjrCCa6 5jHdwyx4ewHr+67hYt9t3Bx4BXdH7uIK0ffd6dfwcJbqmwOvorfkFvZ7buNg /W1Mt9/GUu8tdHum0V91GEO1h3GoYQZTzAKGrTOYaZvBXMcM5rtnsDS4gMUD pKOHicgUUxSjQ3Po7yUy75+HU+eAJDwV4f+0DWE/isbup+IQ83QEBM89CRFR WfyTpyB7/imkRfKhSaxAaVgRqsIErIUdsx4r417nZyKH6Q8xtjb/O+hjJ9vk YcdVLpydFedOWSjlIV8mDB7n3CxaS2gmPzM5bYPMnCbfwuaCv2OzQUlMFFzb d6FfQWTUyxDIJaKnJsIWFgXLrgyUCDzITumGMXsddb4P4Sg+j4QdmUjcmYXE XdmI21UARVQNysN0cGxL3sgG3/TTrkyXMd7Z9IPJCX9CP6Vs+5pttmxyqmBq gDJ6LzbKNk8E9TLDM23Iw5v2fAaZjN3lN/U526RWS7ewAv1vgz0WyUawRnik zA3RfGT/KBm6XXUwCwfR6PmUJPnv6C1egj37U9TmfAVbZCOElHSSgv0WYUTI YVPMUpq5NLM0VBawvfJypuPiYJstXKNczLayy4LpgW24SNjsw03h2MZuVuhU pU7Bna4MzakoSt6FEhHXtrBJYlEqiUOpKB5mPnfPbpucm3XgUyfQga+GId6E hsJB1GZ1oFFCtXRJBw5XnMLRDlKEtUcxUbtManMOdfk6+shTENAloNWSgLaS BLSXxKODCUs83Gl7UCaJQDmFQxIOpzgMFaJdXCEQPH1ZEuzHM6mHOYXJnW7O wN033kCWsxr8fCf4ej8E+loItTUQiq0Q8oqRyi+BgF9KYaWwsdshl5RDrXDA q24nIXIQtYZVVOWfRcB4ldT0K2hxvkbMJrZUvYuZ5g9wuO0hFrseYrX3A5zo fx8nB9/F2YMP6P4uTg/dJXXNrEz+M9wd/BQPB84Sx68T40+ir7wbfc5hUtNT 6HFywGYuBxxwHsch52nMuM+xz43ZFjFinsGYdY5SHZXO5YuYdy1hqYIEmXsJ RyuXsEjAn7EtY9m5iBOeORz3zNDz01hxT2KxYgzzzhEcLu3DZHE7JosaMFNc hcUSJ0bysmBP3AFH0g72vjhhBwoTdsJIUcwGATxqF6qTctBt0MAhjIGDF8OK mIrg4tbcvYJT1ltYdP83Ft2htdhC4F6fn/x2kKDnb3+JC3e/woVXv8TFe1/+ IWvB/wCbQ8DdzObNiwFssHk7+6cvX76FsfYp1vl7puc86wNxet8dXB54Dafb 76A37zSGDWcwWngar4+8hp+uvIPXR99Ct+1l9PlewXDDK+jxn0KT4zA6KDv2 V89juH4eo02kO1rnMEFsHm8nHdI5jcn+OUwSn8eJzwcpBgfn0Tcwi7q6CbRW 1xBHZciLi0DCM/+ExGd/iKRnfwQecVn446cgIiZLKGQvPAV9wl52wXx9agn0 UV74t6ngT+BzDoPbUKVRoIrAzMQjt0EGz4SyLAnbWGLQzIjnMrUAkj3bOYMf GXeZN3OxVQlhmTH3KmMdxxlDn0cGxQySnaIUeKOi0S3mo1enQF2enBXo7kSq cGOjMJQnRoAqLHVYLkS76diKbEWg8gG0aYOI35GBeEJzHIln/u4MFBOj5Alu mGLc8G6l3YMqX2fQ5Zx1EWNzwRbW4fy/szbI3qC5eagTvmEJoH7UoDlxeCI4 LetPHmvSsF2FoA8xC+agUykni77FSvVNZzJDDtIM/+2CRLgjItCUmARbQibS dldAFNaHvNhxuOKGMWA6hkOBcyg23EH8NhvStluhep7y0I40qOOlweZ7yPqY gfKmCiHYr2HutzCpgG2N00HD9mlYC+RU1v7YxtgfT01yyiWFyzvB8uCRVzrT NOFKBFNSGOVHTk/bSTeXSRPgkCXSfSL9O4F93q1KhDctEf7MRJgSlaTSilGa YEN/fgdGPYdwsHoF/eUXsVIygbnycUzUHyUAmrg8nylCtSEJ7dYEdFgT0Un3 XRTNhbEol+2hsXbDSeGSRaBCFo5KaRjK5CkoUqcjJzMfPG0F+Hlu8HPd4OU4 ofX1wXdwDUXNB2FspKgdQW1nJyYPj+LapVVcu7CKc6eOQCgRgJdrgUDnglBX hdT8OgjUbgiSjRDxSkhkl0IiKmcBzkGBh7S0CniULfCnD9O2zqFKS6LbeB01 pXfRXPEGulmAv4PDre/jcPsHWOj+AEf6PsCxgfdx4sADdmm/9aE7OD3yCs6S 0D43ehsLfT/D64c+xgcHTuNw0yz6Hb3oc41SWbWAHtdRduRe1ykMErxHHecp 2XGzNIdM8zhkXcKEfRmHHUcw51rFkvsojniO4qj3KKbtR3GgkJR50RrGTMcx U7KMNf8ijvvnccRHOs87hYXKUfp/Q5iy9WC6pBXT5hocNruxaDETvHfClbID lSk74eXtRAVFMT1nTqZ6hqJ4VyoGCk2UPGMpecbCJYqhAy+a0ThPsAT/U5bf LjboeKdwbV5KM5v2yqxUrM1P/s//Ok5vXnVhg9M72T89MXUUk+2MD+oZ0rlX cbznFZzrfwPXht9Ge95VdGuuYVJzlqqRO1ivuY6vjn+In699iDen6PtseJ0Y fQf1rtPwWGdQ75xDu28RPTUL6G8gDrcsYKhtHgfaZzDQPo3BnlkM7KffUXT3 z6ONtLPTNYzqihbUFmSyYI176h+QSJxOYjn9JMdp0s5iYrT0ReL0i09D/tLT bJ+fKWKsKi30vEq4Ik2ojRTCLxN/iyU1w+sQpzkJHXKEdZKEdhCny9KEkO7Z Ab2UM6AtlHFG8pzxmmzDdI0zkVeQ9kpB+e69aOWloFcvR51WyWYGR0IMavdG YihHjM5C6aNxaAxDihrJe9pRUfEAMVtTEbM9E9HbsyGLT2OvL2EvdiNcGaS5 yIqrI/YXIhDOf8y4nhHsTwRd65kfDKn/+lEDnck6jF29Omhq7XMGz1IybZtH 5rIFwRUDWFAqudZN+WMFQtBFlm3bMA2cv0WpMAmO8Ah0JMVjQCtGPWWf3EgV 1M9TvFALn2qMiqdraKp6D43+L6AMtm6id7khDveh+IU0lKTwH7WLgjmhXP2o fcPmBIpvsZnhO7/XugnZVtuk/OBEPwOafK6NlRE4MIs5MDMu2cynmhwOK283 178hGJcTlJlbZVoyvVYS9zg9iWCVhEpmAdwYHpw8I3wZHtQUtGDAfxztRYOY 0FVjxH8C8/7TOGSkbyddyZqJMUdrU3ESOkuT0EXRTdFijIdDHgknhUuxBxXK PXArdsNDYaCjPNVQidQCN0QUqXongbWM4GyhIDWcQ4LD34bihl7oPI3QVTQi v5zuSynM9XBaSiDe8QwEe7YhVq5BnMoEXjaBPa0SKQRmQSLBWWCDlMAslTjY 7ROLHZDJXezjjKxKFKfXwa8+QJCepQNtHYGiqwToV9FIB3a3+x4Gq9+mgvg9 THW8j/keZkG697E68IDiVRw7cBdrwy/j5MHbOD16C2fHbuLc+A0sDn6J+5Mf Yqi0hRLZACnsyY2TMt2uMwTrczjguBh87lmMWI9jf8EcDhJ0pxwkDF3HseBe w4p3HUd961h0n8BA0XkcMl3HtPEMpktvkJI+h6P+FZyoXsbRwAJWqmax6J/E gvcQpsv7MV3WSX/TgMNWL2YtVtQIo+BO3gGvYCf8QlLTVL3UUrhTd6EoMhKt KgPqNXS8SKj4lcXCLY2BW0KRGsVqHVc2s45jNruOIwNoggcXUnYRQ0c2gYMA /b3/KjpzLxG6fSs4C525jTaNYar9OKY7L1HNw6zK/RrOU7q8MfYBugyvo1P3 AUY0b2BJfxlzldfxs5M/xS9Pf45fn/0cv2F8pRYfQp/egeKiGbjKluCn2qWO Ul1z7SJaGxfQTnjuJDy3tBxGU8s0mroXUNtF6bu6B/YsE4qzmtBYzvTYGJ5+ D9r43Ryan/kRh2aSzyyaX3ia0MxhWcGgOejZyRjOeHOUMEqtMMb7URuWhppk Ab1croJ7za3wa4J8Zr07iQRZIV8J+pjThZDt2cldsElsLpJJWVtsls+sTbCc 9biypPJQHLYHdfFJ6NEq0KDnuFwaHwNPxG4M0Ov1FilQrX08D7jYPEDqj7Q6 86k/MiMXsRY7nOme9DEjzozkCtiSfKgPpzEk4lD75gmmf7OF9R7fsdGyYTi9 MdbGfBIhUZDPjrdCSvqRETC3KAOj2Vnb7w0DYBmXgygY399QPihNTYZ1VzjV BLEYyJOgWSdjWyqO1CTYt0agNEqDohQPlHFdKC++hVrvQ9T5HgbbNxS7shC9 sxCSvRWwRphQsYMXVOyyjaywuYXDOgwHmzjuDJbTbONGsjEpm/EZtss31wd/ yhmcy0M5KDXY7+ZqBK6dLyXRFBFCRrkkkXRtEpyq5CAymikdJNMGJ8ORuBvN onj4ZFQAK3UolvhQInWjTl2LMUc/5prHMdpwFC3uFXjyy9GiLUBtTjq7DHFn aTK67Mnopuih8GZRUa2kWk+1FxWqSFSqI2Gg3VFSaIGUQmKshLjIRci2EaYt EOUTfvOtkGpMkKbpoMwywuwJoMQdgJVZkotwbSZcFxOuBUmFiInWQxwWhnhR JhKkBUhW2JAotCE51gB+XBHEQjth2gm51MlupURWAbnSzaE6x4f8nAB8igHC 9WFC9QlU5Z9HTfF1tLruojvwBvpq36VtfUB6+j7V1u+SVn6b4i5WBu5gdegV HB+5hbVDN3Fy7AZOj1/H+qErWD94CcsHv8Bw+T4MOUbQ55hBXwW33lo3aec+ xyV6/gpG3Ve45ohhAQPGZQybjxCq1zHnPoVF7xkc8Z/FscBZ0tan0V94jXB+ B+fqPsKF5jcI57ex7D2O1cAKlqsWsVg1hwX/NOa846TPD+CwsxczzlbMlAcw Y7OjK02AioRt8PJ3olochlqqYepkYQgIw9HES0dfUR5KBbsI1ZROFXHsMtPM wrIeaTQqRdGsow9DaicTOUxTxEFy79sbvHYEF50t/c/z+rngr/6tdURCHOd4 /f+w/55omsN0G5UrHdew3Pkq1vffx8WD7+Pm5Mc4RPpvyP4eRhwfY6LkIa4V HcPn0+/g1+d/jq8v/By/vfgzfH3pS2hikpDLy4UltxEW4wFYnEso9y7BFViE m7hdWT+P8poZ2PWlcNn9xBkl8VOJfIETjYE6Dqt/hgD95HD9w8dx/fzTEBGu JQyutxKuKULuiZz1zx7WNbEsTYvCVA8qY8xojBYhQAcrURt+Jhhka+SbkE2Z kbDtyHyE7JC1M+NnbA46u5cGnd2tcQnw7I1HB31jDfkqNkVUUNVZviMcvQSS 3kIV6vIVnItrjvyx1OAKpgZ7GndeMp/+H+ckz7mimTZ7JwdTBDuXnaoEs7gS NQlmNEQJNzruPma9NSZX7NzU0ZEHG+6cYaqL7epwp0TtKi5TNHucG52dUNPd HLRuZyqHsuC1Rq5g9RCitiMujiqFaPTTztmqU7AZwiEmIFH10EtEHzCICUiK je6OIfMoqtybuzuZiN2RA97udHbMTJ4ZuljaC7YT6FJFG9kiNC7b46lk2zse 9i2wcx5Zcc9AfKO9w04ap/JBKcA+Kh84fA9zTvWb2juFGyVEcHUO+pQtKZRs BHtQlhoNB8lspyIZLnUKjZpC+yIlFV40vEmx6M6VoNMkhps+xhKBArbUEvgz fBiuGcJwwxyG65dwsGEJAaODjls1XPoS1BfZMKBTY5+F2F2Wgh6KOn085QeS auooyg1RJOn3IlOvhcxkhZwNYrjeCkm2DlIKWSb9LlsPRboGKlUO1LIsqFIz UZBrhNNeAbetApUlFfBYKpAjK4KcWeomsRCJxOqoVBtSxAXgSaxIiiKOxxaB H1sIYTKNIXZBIeeYLVdV0ut72ceZWj80ej99FV3wycfhT1tCle4sqi3XUO9+ DW3+N9FTdRfDTW9irO1dzHa+hanOW5jrf4Xk9MtYGbqN1ZHrOHboGtbGruHY wcsUF3H84AUcP3SW8tcQRlyzGHQyFppHsc95muuFlF3H/vIbGCy/jn3mi+xz B8zHcNB2AuP2dRymGn3ec4b4fBar/vMks9fRpn+Afv/XlDs/w0zlW5jx3sGR wAmsVq9iObBM/F7AnH+Gnp/AYc8I/U0/RQdmK+owS1AMCGI4qc3bgarUnagl djcowxFISsF8iQV92gTUK3fRvrGTdus4VKpi4VHGwquIgVcWTTxP2GA3u2By DrtuOmFcw0zkYm2WckRYW5j6r8P3tzZeInhjd3ZObUgx2biE6ZbzONx2C8vd r+Pk4Du4NPYhbh3+DPcWvsR676dYbP4Y5wd/hhOtv8A15008qDmD317+DX4X XMFaE5sCk0BFR5OOClgtiaQ8Kqw18GRkw5uRQQWYCi4xH5akKNbWnuFfQUoO HCXtqDXpiLNKlrUBijxieMLTQYY/9xR4PwkynPgtIakt2/oMy3EXI7k3OeB6 GedbxhWbXqtYUUIFcRUa9qSjjidgGb7ZHdudw6y5o0IeLxMaXh6yUwqQ8HwE uz7KNxluiIpDaVg0mgkw1TpuzDIJH67oWHSIhejWM+xWPcHC+++CaSJowM2m CTGbJuzpAixPkzYMWlUZpFz3xaQI4jvoZPvIzJJr9piUNpQLA2jdm44aSklM 5mPozYzmZ1DOAHwHh28K92MNn1Q2a7BCn94xZ7At3hD6luBF8+zloulc44dx 1WYaP1YS2Z7wveglZrYZuMxRJk6Bc88edPISccAgQ5NeFhT6JOAlMmRFZ0DG G0WF6wFE8Xa28ZNC30AWsa8wuNIRw9F8SS4l/Eo4Y0pRHUnlp1AUQvdG2mCc etkGEORsWnrk5f2osHBQYcGcDw61fvJltI3MhT7sKtXB4iK4shKziAlTXJRK klHKj0QZlcwOSQLH7nTae5OjUbI3Cg30uq0FUtTqKWNmxlPBE4VahRK1WiNc 2iqUZlain8TIYP0MhhpIlGTTXp+rpkiHpzAbdTYXRkoKcahQiFZiuFPF9EGj qXSIhjWHD6nRAnmxFYpCE2nqHNLASsgVaiilCqjEUqhFEqQJUpEpkiJLno5M aRayxJnIV2vhK6tAFUWAGF5RaINGkIHcJBlUsWJidDqi+aWIF1ZCKC4Bj9jN jzFCEG9i2S1JdUAmdUGmrAydhkjL9SMz349svQ+F2bXwSkZRlbaAQP5pVJuv oMZ+C80Vt7Cv9g6GWl/FcMdbGGm/g3HmsteeG5jdfxOLQ9exPHIFq4eYuISV 4Qs4MnIOqwfPYHX0FPaVdqO3fAmhySNttmuoK7gSpBBze54k/2l0kNw/WHoO E+WkJV1nSXZfwIj1JDr1t7HP/ysM1H6MYffbGHe/jgnPPcxW3cCJunUcqyN0 1x7Fcu0yFmrmMV9N0rt6DDP+Qcz4ujHrbcCs241aSRyKdvwQXuFOVIl2okay E4HU3RjMMGDamYu2jAi0Z4ajI2MXGnLiqTyKgye4prtXQelczqRfHvFZQcGs b0/IZrwuCNkayYYz1l/9ccj+t5alCS2UxZ3V/Ee8cu5lTNavYrrpMuH6DlZ6 38Kp4Q9waeJT3Jr9AveWf463j/0KH6x/jU9P/xZfnf8dboz/DhdqH+Jh+3X8 YvUjdnVxTSwPeXEkP9V6OvD1cGbqCBxaOtA0dMhlwZ+VBhdpPQsdFCFc54pr 0Oj3M+teE2D/J4vrvDhC9VM/JMnNoTrlJ09DQKhOZVH9DIfqbU9/w6b4Eaqf YGH9fRglHngTLGiKE6FKKWbNyhkopcfnQBhWQIWlAdJdBnpchdhnkhD9rBiy KAVrCJwZEQP9S5GokUlRrVXBSVw0i/go2U0HM4+PLgPh2cCaonOe6H+7kQ2+ 6YnOeXpR7cSgemozqiUbvqIWVQjVj/sOM80f5qOypetIJ3rRwLeiNV4ELi28 z2WfHC41bHB6o/GzmdOCDc/jws3qflN6YBpARVExsG/fjQ5KCW2UgaryFLBL SHtG7EZLQjwO5MuJY4rHZT3bABKxeaFUxf9GXuDGLJIFmcks/BQcU0s8KUyu QW2kBlWJQmKxgjFW5xpBwbk83mzuZK4nK8TrkK/yo9mVZVRKPHjt7qMmEGPs zi7uy20n23gKlRNM9USstgsiKf1FseeVLPw4mKJjUJkqQJ1WhnqDiDKygOrj ODQoEjFolqHXxoynovetQ0lWJVrcQ+irm0JNqQ82jQqlmgzS2Sq02XnoLOOj qVxLetKBDhWlVRHD6RjitADSYuK0mTidTRo6LR1KKlGUShVxWg415TqVSIx0 Kj+yiNU5/FTkptC9mHgsy4aWmF1hsaPWVYl6lxvGNA20yTzoUnjQp/ChILWU mpSJeCpg4/h1EMSQdqcqTZZM9zwKEbFa5iZWe6DI9LGgVmq8yNQQqIvqUOJs Iq29Dz7lAu1Tx+EznEWt/QqafLfRRrDuaXoV+wkPg+3XMNJ1HYe6r2Ny31XM DlzCwvBFLJG2nj9wjh6fxdLIaSyNnsTi2Bp6rT3oLR1Ht/0s+uzn0GG9iLrC S/RdnKH99TxcytMExTOozjyNRs0ZtGrP4ZCdwG07hQbNRbTYvsSB4f8Xy+13 cbzuAparr2Ku6iYB+jJONpzFWsMpHG9Yx2r9cazUHcEiFfcLtbOYr5ugGMZs dS9mA82Y9XlQJ4uH5sd/B3fKVlRJwujwpuApsegpRUt6ONqzI9DBRE44urVR aNcloDqLoJ1GukVN0Ka861HsZS0JtrB2BN+mn5w3kT3oUnZiceq/mtihhcS+ HeyRvHL2LiZrj2G64SoR+1Ws9D3AyZEPcWmKW+P93pFf4u3jv8YHJ3+LT8/+ Dl9d/Bf88vK/4L21f8Va+y9xv/4afrn2CWp0ZSyxy9ILUJZZQKjSE7J0hK48 QkoOKcEMOKlktaTEsII4O84Ev7cDgYJ0BnoctP87C+34JwnYT/8Iic8+hWTS 1vwXOGCLCdhSArYsCOxQymaAHbo9wdpG/w0JWh0djQE0RmWggieCaI8WqRGF kIYboQgzQkn38ggnlFEmJPyYh9inBZA/tQduAcE9R4UyIkahkI6GXZHwxSWj XctAWh1KDpx/fUTQu17+mHe9I1uC8iwR41uPN1+9y/m6BWV7wR+CNGP8HJyf z5YL2cFygcKitsElrUFnXBbqVBKu/RIsE7zBxODeaPc80vEcOEOWs+I/kBzk 0O2NRtEL4WgSk6DUMoDmzg44EhNQGxOL/XlyEtYqrh3DDPbXG3nBtdH1IU6r +ZvyQirL6ILgiYFiZuEr1SNOM7nBJNfSR+KFJ8WJxng517BnJ08xlDaxOp5l dbacM7kO5obQyQEn5YbyNCFOzE4QpycftXz+ULcpeIKA6TaV8vfCFBeB/G07 URqdxE2ryRPBryWZIY1DhSCexJwMXaVyNBQL0WAk9pr4xBfKR7kGeG1d6CRO +4nTdi19PUUytNr5aCNGd5YL0O0QwEs1hzVDj1oKT5qUNHQxFBZidE4ulOnE 6DQlVPTelBIp0iTEadLT6aSjMwVSYrQUeXwZdDyqP1IY+79sGJR5cBqtaPL6 0EyRT3+vTxWiUCSEkXarPIEAMqEKySI7kugzTY51QpFshpxvg0Joh0JcTtrd DbnaA3GaB1KKnNxqFFobYbDXQVcagN7up6r4AFXCK8Tp0/DbLiPgvomGwC20 N9xGV+Nl9LVewmDnZYz0XMbBfZcx2U/ybv95TA+c4TRyBGYPrmNu7ARmxo6i x9xFaW4C7SXH0Wom7BrO0w50ifbMKyQnrsKhvETDnUdNznk0aS9QkJ7POYuA /kO0tPxfjPe8j6Wq81gOnMKin7Rz1SqO1a7jZOM5nGw6x17meLzxFFYb17DS eBSLDaStG+aw0DiFhaaDmK3fh9naFswFvKiRxyP7ue/DHvscAvIw0tfxGDOW oFuXRAVzGFozw9CuIUznRlChHI3ewkSKBDTmEarTCdWMW4qaSrGMFErNpKlL WU1dGnSQ66mv3CD05pVj/50LDv89Qm++qDukqdn19APHMV13jQh9D8v97+Dk oY9wcfqn7Fr691aJwmtE6NOkqc//Fl9e+h1+ceWf8evr/4yvb/wzLo3/K15j 3N1zfciNZXacDJRlFcGZU4CKXD0qc3Xw5OYS0bJgE/Ng5sWgRJaBwtxW1Dqs LOk4HfxX8OcpWXEq3fEi6eofIeHZJ5H4Y9LVpKkFhGgRIVpMiE6P3L7h4c1O uiKWVWo4bc1YeHPVlZdFNcNQxtC7SOaFdrcBmc/nQrHDDEWEC6o9FVBHulCS vYoCcTuEP4pH5nYe0qPoQJAoWd/wgpgE2CPj0URjVeerN3R8cLwnvjFMZdA3 mDkHxfqGZ4thz+JsMFmObTLgY3Adculmu+XEkbJNuK54hOstbM3wA9gp8djU PjTRIdmRJA7KeMVjMj40pyiHl4GMFAPWTzxERhJ/wx74Ea3lKOTxUBweg2qe kCSNijZDxWYJazztn3ui0Et4bC8iHOUx5wOZ0S7SsaZ4JOOzN+E6k3D9mIxP ZbMDi2t5CNfyIK65zOQMlg8F0hKYUhvQFJ+Per6YzU7MOD52rNB4XFfJHXIi pzGdJOfL04VYm5tgO/RciuDO5bLbKZcFcc2djGDWaGBKFuPePTDuiIQ7lU+1 Lo/wz4NdmQhjXDRqKRW0mhWoN5G8LhCgtkhAjwVoNPPRbOGjpYSH9YNO/PTu FGotyWiw8tBUSs+zuBagg8G1k7BPUsxJx3hJRgayjX7kmCuRQVWmMj2DQs1K arVUSnJaRbhWIV2sQKZQiRyBCnlCNXQU+fS4gBBsTFWiiGr1ypJytFbXosbB bKuMPlcZ20EzKyXsmgTZQiGEcgv4JJ+TBR7w+DVQpZaSXC+jsZxQK90QyyoJ 2fR+ChqQa6lHlqkKWcV+aCksjjqUl7XDKZtFZd4aPMUX4XNcR8B7Aw21N9Bc dw6dzeexr/08BrvPYbj3NA72n6HgpuKN969jYvgE+3hy7BgmR5fQZWpHp2UK zcajqCEW1+bfgFN5FXbVNZTIr1EVfpW+22uoybtBafkCMfx1+Fz/jN6+X+Cw 5wzmfWcxX7WOMdc0Jt1T9NwU5nxTWG86g5PNZ7DWfBrHm4nXTetYaTqGxeYV LLQsYKF1muIQFlv3Y7ahjZjtQ7UiGdnP/wCGbf8IJz8MLZQCJyoK0JgRjmZi dUtWGNqyKTRhVDlHo8eUhF4jMduYgHZDHCozSF+mR8GtjmTderbQTwbYVsbj K0eCt9+498cC+9ixY+yil1VVVfSy3NKXy8vLG6r8D636xl1a8A8Y8xLAa65i mgC+2P8u1g59jAvTX+DG4ld4dZXxFP4l3j/zK3xy4df44vJv8POrX+NXN77G b25+ja9v/RZ3V/8FUzVXkLEtCppoHulTI8o1RXDlFcCdR2pDm0eHeRqKBYns EvqKOAf8lQFOr+YG9epf0k8FLNIUxD35I8Q/8yRJ36eQROzmEbuFLxG/tz6N vKQoyg+cATtzq8jh7JQrGZYyt79hEc6ylII5aFPC7BBtb4L2eRcM26ugjqqH KsIL864A9slakBWZDskeBRK2qZDyXBIKdkYjoCZo6FSwETBCqSI41BZmrC3s KN9lxwgxe8PrPYfraFmzUrnTYn8BXeojbBuIZUXEsmJiSgmxzEbYtgexzRQO rlCGCHZ7OHb/PZsoLOmlqFDUoTs5B/VCAWetzip7GWUgJRURWgh36aFOqCZJ eAExzyQhZZsEWckyNl1okpKRt30vKuJ4qGU2h96+k8YtiolDKRUTHWop2grU qNJxXaYtbJ/p77+RJ0JW7o9s3HurXRy3N2zkxex4LLeJn+x2Ejvt6UFuhyqK YNunQO6HX+RBK0+NarmE5fYWltwD3Jhsrghxm2n7cNw+QdzOF/MfyxWb8xN3 ElmB/L2xMG6NRA1VHS5murWYVERKJG13NJziVKrzlKgpEqOuiPKYif5dKECN UYC6YgEaLAI0lRC7idNrBx347M4UakqSUW/joZG43WwXoIW43U4S261JoPcV R3klDhmGbMjNZkgMLuK2FTlKktnKNKhkMmJpGkU60sRpSE9NR5YwA5rUTOjE mdCLMmGgKJJkoliWCXOGDr4yNzoamuApsaJQrUZxWhosGWqUZKpYW9F8JUl2 VQ6EigoIpB6kiPwQS/w0RjmkJLXFfAfSMmvpPdVBXRCAyuBFut4LvaUGFm8T TP56FPoCMNubSG4voEJ/GhUl1+CpuAG//wpqAmfR1HAGHS0n0dNxEv3dJzHY dxL7eznTzQMDpzBygOP2yNgqxoZncKB2GE2GSVRrVlCdewbV2uuUh15DpeoV lKlv035wi77H2zDJXoG18JcI1P0G3f430FdK0t17CnP+U5j2reBQxSQmiNmH fZOkmSexWr+M9ZZTWKP3crx5HavNpLNbjmOx7QgW2onbHYcpRjHbegBzLR2k t/0oiQ1Dzos/RPaL/4QSUmT7TUZ0GJLQkEnczo5AS074FrQStP8MHfooSjmJ 6DYnoac4kSKeIg5VmmhK83uJCKmsyZqFkG1mkP3mvSCK/9PIZhb1OH/+PD75 5BPa2xnF/QQePnz4H0D2d7B24Aamqq5guvUe5gnZJ0hzn5v+DNcWfxr0q3oC n1/+Jb669qtNZwv+Er95+Vd47+LXkO4UIHNXArQJqShJ18KZVwiXVk+CMwva 6L0wJMaQjlXDWtoJn0nH6VUG1V5Waof0qnj7S4h7+knEPfcUEn7yNJJfeIRr Gx3o9iw64LM4VDtzOIay2NYw8AlJbQZDf03PKaAVasAPd0MUUQfR7iGqhSm5 hx2AOaoHh0qn0ee/DnP6DBKeEUH0HA+GeAJCLh0IWUGvbToYQumBGc/FjMmC jCW3mzXbZgZyhWDNNLToa7Rli3B8YWrDtHFlaorENmP5QMQmohRuIrY1SOxy ophjo9Xzg40aInRjPipGcVvTSXHLytFBRbSXVJYmWUUbp4MorABSCqNyH2rK LkERaUTcj4WIfFIE2U8iYdmdBH+GkjELZ8W9hYhfuDUCjUS6Fr0afq2K7cV4 2HMBDK8bOEpTcJmBKySc2cwkVDE7CXUtVEiIBVzfR0LUlEpZJciSWrWZ1MpH pA4WE0xWYrbJLG1GK78IzXFCltOenGB2yA5lB07ZO7JEVJQI8fbrd3FkepLG +8OkZioJzXPh8PNFqKUvlPksy0S0f27fCVsU4xAshCdfCo9OAL9BSLRORUNx KmpNQgQoaonU9UTqRisfTUTm46SwP3mF6FOSgjoid0Mp/Y4o3VwuRJ2FR1kh DmVEarNGAFlxEeRFhZCnZ0JG2yZRmaAW65CenIk0WQ6p6yykibKQkZqNHFEO 8iQa5Etzad/IpW3IhYnIbknLpZ1QB4ueqvfWdiJ2OUxZWaTqsmBlatfcTNjz 0umelDmJEnGGA6mkogUyH1KUjUhNtEIpciI93Y00jQcqrQdSDVE6PwB9WQP0 7nrkOquQT7KpwB+AqYZoXV8Fe8EEHAXr8Dkvo9J9BpWedQSq19HQsI7W1nV0 dq2jq3sNXb0n0Lv/BIeB76N/ZA37D6xgeGCKkvcQarJHEcg6gqrss6jKuYoC 0R0qXz8gQf0W7Tr3oVP9FBbb71Bf91O0l9xBd+kt7Cu/jCnvOmYD65jyL+Ng 5STGCdLTVZOYrZnE0aajW4jSa/hHHG85gdW2Y1hpP4rFTtLXXQuY65zBbMcE 5jqI023E6YYAcl96Frmk8jRbfwi/OBm+dBUcYuI0MbpJE4HmXIo8YraWNHZB FDpNCegoTkCXJQHdbMRT0N6Suxel2ckoDjphMrr6f//xkP7mykubfQhD1ouv nHyX0hQBufkuZvc9wNGRD3Bm6iNcWfgEL69+xn7u75z5gr3/9PJX+OnVn+Gr Gz8PEvCXt39OuecX9HOi7gDku0VI352CnL3xyE3mIXP3Hmh37oJx105oX9qF NGk9qvx+lm4s2ZjFPXOVQeXLzssjov4Fq05NkmTEkKCOffYpxP6EKE2ETiZC S3dvo9Iy6EpO9GRuDDUdOSEquzTK4DJCLhaYJNtyacfdoyVCVxPA2iCL2gd5 /BKVmZ+jNfEs9ld9TpLpDTTKppAZlovMhGzw9qRDlURfA4HTnB6itJKldHk2 MdnJtCdcGvaHgj5Op4aZ0iN75IFOdDZnibhk+FfMksIkpxkfHjH0BK4CApeR wGWm1y9hOqlM1qHXL9/U4AkVCcyNAUvlRuZhtPvf0PuywqmuhytKhYwdWZR9 SiANt0MeXoZ65100uO4SIHuQ8A97oXgmDtl7hSiSqdiEYODzYNwdiypBKuq1 anjyVI9JeLYwYQg9znE5yOaKoGrf3OR58Dq3OnOz2xWsFjgVzeQek1LO9pOs xGau0aN8rNGzeSoPM1qhsgp+WRW64klRK8Ub+SDE5gKRAoJwLVJ2FsNFlUJW ai2SmUohScrmA+ZjZaqFHCrpymL58DOJNFvFjlkUGw97RAzcwmS4lSncRNuM JLi1Anj1QlQVEo9JRTdYUuFn+Gymf5cQn2181JfysEoq+qPbk6giNtcQm+uI zQ2kohuJzeWkoG3EZTsp6HRDFmRmE2Q5GsgzcojPFKosSKVayPhlyEw0IiMl j9iciyyxFhqpDjqFHvmyfBgU+TCq8+mr1cOarac9KR/uMg96u7tRVVEBc24e rLo82PLzYDfkorwgB67CLBhz05ClMSA13Qu+3AeegnZ1dTXS1U5kZjpp/HKI 6XeZRXXIsdcj2x6AptwPjasKWm8VDFR+G2urUNzgh6WZonwIbus5OMrOwO5c h8tPrK5bRw0p14bOddS1n0BjD6ec2wZPoH34OPu4o/8Y9vUtoLphCn7VCHxp K/Ap1uBVn6dD+hZ9P/epwPwEjsKfo7ry1xiqeIgu2+voLruHfY5X0O+6ToqZ 4Fy9hpkaUuT+GYoJTFUTcetnGCKHZMtq+yqWCcqL3UtY6FnAbNcsxRgBehDz 7R1ozNWgMHwXdDt/gvydz6GB0roxWQAbFbVeSqMNubvRqCVZogtHY344Woqi 0WZORBuzWAABuc0Sh3ZrHDqssegsIRWdG4uOeg9jTRy0UPhPQ/n31l/6g8vh /QCHnJcwWX8Xh7vfwvLQuzg5+T4uzj/EzSMf4dUTn7AfwHvnP8eHl36KT69+ gc+vc4D+6taX+NmtL+j+C3xJ4dPakB4rhHIvD/JtO+moYBZLCYctPAyZ4Xlw +Drh2r0LTmXq45IT32NlLiNwGe1ZQfcugmhGzB5Ek2yOfo6DcvzzTyEvNYX2 VvkGlJkb4wtfnq3gWMXMd+SW0HTQSzkIk+UUybtsSAlvhDCyB5KYQcjjxuGz fU4i8R5apJMYyJnDiGcFNbaLSNyWhfidaZAnkeAidpnS5OyQ1kxOOTN5oIwb khvuu9yMHY086ErPONJLUaIhIhOzKKt+K5j9mlxukstikkUS6KnoLyQiFxOu LGm/R3wuo2yqBbgPiluAg/2Q2JDT66mhiLUiK9wP3bZSqHe6YclcRpP7fVTK JlEf60FeZCZUUXLEvZQF/k4+NDui4EzgU8GpopKGxgxKdCYThMYM5ksN27/R BL8YpudOm8dMI2X7N7R51kwhVw2sUzUwSXV5KgyUdAwbSUfO9Ri+QeRQD4cd 6lESYKlsJ4VoVjSjTWxBe1Iq/Q3Xo3hUERiIah5UlV5AnqgW8c9S8n5WjqQX hZD+JAKFYYmoTGOStIrtG2lJGRdsjUQdvZ8GfRrcdGiWp8bCyZwyVMbTJvPg zhfAR0SuJhLXmVNRTTT2mwUIWAW0U/BRS0S+fqwNH9yagM+STM/z6XkB6uz0 d6SUi9VxlFjjUJjDh8RYQEQuhjQ9G7IMLaRqDWSyTChIBcvERkiFRElhBfL4 xdCICpCnKES+shB6isK0IhRnFtLeUwRbXhHs+YWoqW5EX18/qr1elOgNsBUa YC/So8yYD2exDhUWInRBNnLT1FBmlkGcUw+RphaCnAaolERiUSnSMlzIKAgg zeSHqtiHDJsfOQ6KCj9yvX7kB/worPPD2OhHcQsp57Z6dCyPw+gZgKl0DebK ddhIMTsa11FBatXdegK+Lo7Ijtp5uOvn2ccekrWVvlnY7KMwJ3ahUjABj2QV XtU5lCpIMsvfRJXxC9Q5Pkd9+cfo8H6GDs8H6Au8h/2BtzBQdQcnuq7jZOdl nGq/gFOt57Defgon29axTuMeaz6Go63cZepHO47gSNcylnoWsbiPkMxguWca cz2jmOsexCxh2UXVqSkyEoURu2CLi4CDhIhdSFlNJGOXxKnT7kZ9PoU+gvYN 0s+mGLSUJKLFykQCRTxFHAXzfBRWewv+5v9fGr+89hHloDuYbH8T8wNv4/jY A5ybeRdXl9/HK8ce4vWTnBvuexc+wcPLn+Ljq5wd3Oc3PsPnN5n4FJ/d+BQX Js8QQflQkTxO3boHGS+Eo+iFnbDsYgwQC1FHtaVnbzhcCXtZOetkZbKLEWKM xPxTVseGJCZv24vY+/RTiCIUZ/KTUUCHtJG4WJyuCF1kZiMsllLY2YkAzO2f 2IkxZTlydmpMKUWWoABJ4S3g7+2HKOYQKkseotn/a+zPe4sKo5PoqX0DrYFf 0XNfwGk6i/gdKqQLZMhXyDcPSYBTsDhmx8zmxrTnMMGNY6O3XEJhJlCZgmcM uHOx32OlsVZIEBZLSANJSQPJUESvXUyvbUl/vEHC7t3Bz4aT+Er2wwkqf0YV M0I8J0UOXoQTvPA2ZMTOoyX+CNrSzqJ4VwOG8w/iQOUx5CQ3Iv7HUqQ8k4zs HSnwZKrok1Wx7LcF1fhGT+YRh7cwWXILS/vvBCsM7lthWjJltGml32jJMJvH mHzqN0G4KJhnSpix2LaMkm3LPBFMLDSUmaXvhvSngUoybXTU1qA7KZNKLClE e/QQhRshCTPDpBpGbfktOPOXkPBjPuL/KRapT0bDzJdSacFJfj2fj4LwOHj4 ItTkEXVzOcnP6HCHQoBycRycing40xPh1AngNgjhK+J0cE2JEB6ir4/oW0X0 rSpNwTvXx/EuxcKQA36ib6CUEhjpYUtOAu0XcTCTFtZo5ZCYCiHR6SFJzyMC ayFR5RF9c6GQGqCSFkAlNkAqciBdWocCSSXVDiXQqYthSC9GUZYZxblmlOiY sMCYVwpjQTPs1i4UF1XBlG+CtagYZZYilJcUUU1QgHKTDi6jHrbiAugL6LW1 1RDm1SM5oxoypRvqzApk5hHx851IK3QTfb1Q20gbO3zIcZMm9vmhrfZDT/Qt aqJoqUVRex3alkfhPtgOQzu9x+r99LsDMATWUeA9gmLvAgyWMRhLRkOTN9zm YUpgnSTCGuHLqoE5qhX+lDH4BYvwKs7CqbpA+9Nb8Fo+RUnuPTj1r8Freh3V Ja+jgeRwq+sO+qtuYbrpLBY7zmOl9ypOHLiN08M3cX7kOi4NX8XloUs423eK HfFU7zGc6F/Bsf5FrPbNY2HfHFX0U5jrHcVs9wD63R4Y98bCRMnXGkOlEG8v fPJceBRWlEs1cKkzKOnHoUa/G7WG3agpIG1MOrjRmoRGWyIaSxMo6N+2WKwM mvHgQj/ePtv7R8L39xfAe/zPuef+HENlNzDa+Cameu9jeeQ+1qfexoWFB7h+ 5F3cOcE5AL917iHeufgh3r/8IfvvD699tIV+fIg/o58P8cG1DzBQ3QPRi2GQ bA2D6IVo5P44GnkvMhfnqFEZvZdiD9xRYayM3MKoR1ZIbmE15F+wwH2kIqVI IvjGb30JeTIZVW5UTDOdQDqUTYwHQgZHwxKGiFnMq9myGQFsIxraGN1Er8g0 4jUKE1LjuyCJH0JRxjo8pttULZ9Ce+55qjivoyXwM7RUfYnGqs9Q538Am+kw NGIpcv+9MZmVskqymXZECQ1loSimYt1IUZgtYSoXLqf9GZYmpqFNlUBHQMon IBUQkIxqhuWckmeldbC9UkZ8KM8J9Yu/z13EpOH0NROiSC2BtgrC3S0QR3bB kPNLVMsfoEeyjP6yW2jz/wrlyQNIf4kUUTzVxrGZUCbSeEHGM+0Prun+SGw7 crgWC/6EuBvs4rAhZ+ffc00WCX2gYvTUuYMXp/45mis4Pc+0v/WhFgQNY2b0 /De6LGz64Li+hVW9h7mmy4aUZz5Pqs55FuRHGqF5qQCS8ArIIpjpvffRQGET D0P1tBgZOyVQR9F+sUMOeVQK0rftpUOMD79GDUcuJ+dDjZ2QxrZLklAmiUM5 EdeRlQyHXgg36V1vMaNfhai0CCgbC+Al2vbUa/DW1THcvzaGmQPl8JTwqFii 1yfa6pWxtB/EwUS0TS3Ig9hkhFhbSNV+PsTqfEhkWsgkBURbI9HWBKXECDXd p8nsyFDVoiC9ESXqShRRdjHm2WDS2VGoKadv0QF9jhelli44y3phMwZQmGdG Ub4NJcVWWIuNsBtN8DltqPJa4HIaiLbZ0ORpIcqpg8jQAlFeHTKzibR5LmTp nUgvcEJl9kBp8yDd4UVWpQ/ZPh9yq33Q1fugJ9rqW2vgHOlC8/IInAfboGtz o6DHC2NbDWnfNhSVEvntXaRnu+Cgx5XmVtTqA2jID6BZF0BLXgCtmmpUxlah Km4ANSlzqJMcQ4D0bpvpDcLsXcood2E3vAq36VXKaK9S5nwVrRW3MehZw7B3 EePVS5isXcbh+mXMNCxjrpE0bfdpHNm3jqN9nMY+cegM1sZPYn1yjerzYxRH cHJsHseHJwi9B1BNtYY1NpFbcUUoQHFCOPwqPWqz61GT7UMD1eb7ytLRURpD mXgHTLJnqMb6MSzK5+jfuyh2wk8oHgyosNxfjCvzATw434sQbzfPO/4P8Ja5 hU7QhXi7eVG77wbB8Mnbv8KQ9x4Otb2F6f33sTJ6n/2/Fxbv49rRt9nHr55+ B2+cfRdvXXgvWAm/c/k9/CXeufIeHlx9l3bTd/D69QdozytD6gu7INsWhrSt EdBGpsAVG4uK6Ci4YiJRsjdss2DcwirGv/g3NWN7XSXevHcPOURBDVFQSxTM Z1qZxK0iOriNGQxti4lcfw8zvaw5mwk5TBoNTFozjPp6qtbqUSTbB6tyEu70 GfgzZuFOHsWoagR16XOoUc9REb5Ge8Q9VPtfw9kz3HnNukoPcmjMXKqedcyY xK1CGrOImVVFIxrZlWWN2czla4XZMhgoWuo8wRUj/xyNrkrk0fvWyhjtLNuk nQnTQd4yt5BeLwt1TxjB/sNgG0POzpPkRViQHNYA/p4uKloX0OD5LXzl/0qf 9udozDmJRv4BjNuW0Fy2gsRtmSTZ0yFP/LcRv6l7wrZNHDmKP9g+sRJvLTmb 2id/zjW1hSJOuUs3KXf1ZuWufKTcudOb3InebUGqs1fCQhWrRvLuWqh2d6Fi VycqEw+hIv8q3EmD6Fb3wSGrgmAH/c1LSsQ9lQjdrgRUpAUVezCBbHRrvnEm tVSaREGKh1Br1/BQTsLWScK2klBbQZh1WvhwWXk4vdiK1y6P4XVC7RvXx+h3 KagkYVuiS4KOMKsnzBYSZoUFOoiMZoi0lMLTCyBSGjbmzSskJgpz8Lhgbjrk ZLihy+tEqa4BZXlu6HNdyM+pgC6nCob8OjgdQ3C7huD1HECRoRSmAgp9MZx2 B7w+BzzeEgoTXOUGmIz5sNoMKLTSuPlN4BlakU6vla5xkaB1IZ0wqypyQWn1 QFXuRYabMOvzIjvgg4YEbW5jDbSt1Sgb7kD90v/H2ltHx5nlaZrvcTXs9nbP dvduD3R1dU1DMttpthOdBlm2ZQvMlmUxMzMzM0sBUoAiJIWYGS1ZzGjJkmUZ 087M2j/3jQjJ6YKpmukzPufnAEkB33fvc5/3flQI98J43In3hX1gPFx80uDg ngJnlqdHCnyJ2ECXZMRahyDBKgTJxGwqMZtOxGYSsUlcJyHHEhB6ogQRuirE GzUh2bwHwaa98DDrhpdVPwIcBhDqOoAozwGk+nYiy6eMmC1DcYgCwjAlxBFK lEYqIY1WQhargDxegbKkMs2SK8uQQp4pgTy7FLICJRRFFVAWKVGWX4rcuDT4 3TCD56XL8LzAlnrmJGy+JTK5PsJvxyLcJBRBt+7A9+YxBJrsQ9CdfQi1oNE6 fLeH/51geItx+Jb1DWLsv4Yff83+3EHYnd2vuXjNf/nfR9k3T0n3f+7shLyx 9Aq5odMoSp6DJI9mK5p7fTqp3po53G2Yw73mude7P0x2zmOqe56tcw4TfXMY 7Z/DEEsWnIWk227Q+3AfpeMATA4egtWRo7A/fgxWxw7jztHP4XBDLYU31bOi ajVUi+GuHDrsyKHNrUuoVkp+sTPtUS6R4hZBZczufIfd2ZygsiA1rDRnVba+ YcDQbn3LGLZmXnC0ioSbdRTVJRJp/vkoCiyD/yUhIq7LEHtDhvizQihvFCCN 91MJ3OSrfM5IikRrFR4tPtaG5L/GNLmulElxk29pfJlvqz4AjW9pxrc0Z5nd 4HMslVKKmemJv975pFE+/jC5uItVrRTbED5qKd49HafTzrSEWsNdbhnubkp2 uf2zi393wAMnD8XCSEeGcN8XROorxAT9CP/T1Si0r0Ve6CDiQ9Y0syDXdZLx 3X4jXPru0u+Q3PA1yd+YedEOan/5e4Oaej8c+52JEO222PcQ7UVO/K6U/95E iBalb85K72779HxDzC0u6uPCF9Y4ezgEZ48k4/r5cYReGEPoUSESHBRIDlxF XMBT6H5ojAvv6+HWV1dxU9dIMwOu2eZJY34t5m/Mgu/RkDVCw1aP6xfhfOlb uBidgPMdHbhY6cLDVhee9rrUxrOICbuNe51CjHQLMdrLor7Ghd+GJ1lrov81 7pCpple+xWWOKrqWFjhv68yg7ogLV1xwQZ8aq2ej+V5G+i7UVycY8PaqkZvm uZvXPHD7lie5yrJMgJVZNLUugMoaBnPTGDi5FMDbrxT+gaXw9SuCk00QnO28 4ebuDRcPb3j5u8Pdy5Gcc0RIiBtCo5xh624GO9dbMHc0x1nzaFy54Ueu+uOq qR+umpOr5h4wcPCFkTvZ6h2AawGBuBIcgusRobhFrhrHhSK4rAChFQXwzEmF i1cy3MlUN+9UuHlSo8lUf/dUhDknIN4mBCnkajq5mmUZghyzYOSbhiKPY0I+ K9MwFGFfZCL8pAKJl1sQebWN6tiOSMtOBNi0I9ihDREubYjxaEeihwKpXhJk +kmRHyRDYYgcxWFyCCPkEEfLUBIrQ2miFJIUiWbZSTJLUJolRmlOCUpySiHK kkKQWYq85DwYHzuLO18bwfL0ZVh/xzZ36jQ8dI5SlGzgc90RTvrn4GLAcdH4 S4Safo5QM5bpQYSZHqKGH9mDOKcT6pODXzkGJ73DcFbXhYNw1t2vuTrkzjVp /uF/Da/v7/zo+++/1+ws/DNKf/sQPq1t/RMeLP+ArLAZ5KXMQZynvThrrWwO zZTYjqo59NRSZhvnMNhC1LazOnm/m88Rrz29c2jjrUrSivzrbig1cYbHCV1c /fwgbhw4iJuHWIcP4I7Od7v2twd2mrNT21H/1AqoFkArVjwFcHZ64i92dgFQ SKUI41B8k13M+Apd8irrmj4siFJHqzC42kQiPigfBTESlKdVoTq1Cg0pVWhJ rkL6LRHiLhQh5bt8VBtnsxtmXxVzIMm6IobcUYH6gCpU+ajQmd6N3bNhT01O QFEm3a2/25mPjCQzb5OZJgbaiQQLEsaKvd1GPZnAL6QWaPVkgqNm8sKR1Py3 ncGCXN0ZMC7r2OC2YTUCPR8g1Hcbkf5P4G2/jFyHTeREzSAu5Blig58gOmgL EUGLML2aABPq7+9OmNj+9uSFZsLEme/obLwzUJFkDqSldhZDM4PxOqnEUKlN +Zpm+j+D2ObKG0p9/feVehf+u1Pg6jK9aECf9sOZwzHQpVN72c3DwepHOF99 AZndXbix93l+kYyEW0W49o0pdI9cw7cHLsOC76neGmm7s4fI7gZQrVMbqadN 9mg3Sapt2gYu13RJ1e9gb34Wjta6pNFZ2NrroLdNgP4OAQa6hBgkJQdpn9Wq OLg46ODWpa9wy+BrDonfwIDfX8fCBrpWbrh42xfnjZxxnrapp2ev+VYG+q4a QhoauuPKFe2pMW/c9MZtE5qmOUO0tZ/mODVTs2TYm2bC3TILXl5l8A2ugI9z DmI9sxAfmQ9nD5KShHP28OWtO/yDfREc7Y3AKBcERtjBPZAW6mkCO48bsHQy gsEtN1wmKS+TvkZmQbho4o/zZgHQcwzBJa8QGPiHwTAoFEZhobhKStpkJ8Ff VoAAQS5fOwsevunw9E2D+w4hA2ifEU4xSLQNQRopmUlK5pKS+ZahKDQPRbFp CASsItNIFJpEIEMvCOknSxBv2IAww0aE32xFhFkbom3bEGjXgiD1xVGcaCOu IiR4iJHiI0ZWQClygko1V6QujChFUXQpBHGsxJLdJiLIFENASBZni1DI+/kZ EmSnCmCrbwKTb8/D8uQ52JzWhd2Zs7z/LTz1voGn+vTcmjPAXmDCPAv/218h 3Hw/6wAizA8jUlOH4HtVfd2DQwwlBKbrxcNkh5veQbhfOKC5bK8tQWmrq7lC zP/7HwPl/+hkbrug1PrTf0N5yRoyCcnCXHook365dA41yjk0EJLNdXNobSIM Ccm2tjm0qK+2yqphlbdNo+3uAqZrO1HvEYNB3zhU2ngi+ZoJLu7fD4Mvj+EO +4WZ5gTsaoH7c1jQG82pcKas6HANGXcuTfafUSFvRW5qOQrSVZprVZdlEGes Bt5vJQo7icJeonBAjcPgcshPxmLIqwDVHjJUu8twN7EK/fFV6I6uQntYFZr8 +Tir+x81L/+xxi4j/QNgTOTd2UnwFuqj3NhtrdWnVdAkeG2KVwPc5ncgXqfq otz0wtGyB242/fC2G4DVxQZkmPUiyrWPQXEe0cEbiAi+j7CgabS3PWA2/gMz FUSe9c5MhR3f057vaX9LXWq0GuxM1OojQTtw/NXOuoomse+8Ybka0l3VWq7D DuWcd6abXxuuRDPbvGu5t85fw8mDwTh1OJG6Po0I31eaq4E4XJlE4JlypNwo R57fIJKD1/jtenHy8+uEnBHMuMQsjbS7Xdhe1YLudy13d3ufq/pMpG9orr2x LqzunIaV1RmIS2LR0lLMhlSMjk4BOrtZPay+YgSHGuPqha9wjUp41fAbGN64 gnPmLtCzDMBFAuWcoSvO6TFuX3DSgs7AHfosQyMq2VUfLehu++G2mT9MrQJw x4JR1ywcN00zYGLJiOvVS02qRrBrKRIjpYhJrEZYQg3VjJHc1Re+vr7wCguE X7QP/KIIvGiCLsYRgbG2cAo0h62PMazcr8DZ6jS8TM7gzm1b6FMLdW/44yxv z1oGQtc+GBfcQ6Dnwwok+EKDYZeXDq/8HCpoBgKDcuDjlwFPbz7nnsZYnYhI hwgk2oUizTYcWTYRyGWEKrCMhMAiBiKrOBQz2hdZJqLIIoH3E1CqF4GtWKXm +4Yb1CDiVhPCzVoQZdOEGLt6BNqUIMhOgHAnAaLcqNqeQqT4iZAeJEZmqBg5 kWLkxoiRF89KYqWy0vl8hghZaYQi72dllCA9TQQ7A2Pc/kYXpt/pwuKULqxJ OevTX8Dy1CHYnD2ASGMrzbmtnS7rwcnoHCIs+JzFfkRZHmIdQbDxQSJtL+xP fwqH059o8Oahf4R1GB6XDsHr4oE9muss/gIOF36+wMruQWS/f+jAX2D1/mM2 mzl0d1HSyKDejjmsrTze96dp+IcOCn5zc9V/2vl/be1HlJWvIY00zKcyCklD KZVRQRoqqYzlTOVKElHOZC5unEXD4Ao2n7zcvUbEw4X7mGnqwVJrLxbberC9 vKp1MLkUSjpYOWsPyhVS9RecmngNYy0E/ytU8mbkpypQlF6JEsJPyaphNWdU oyO9Br3ptRhMr8M91mhGHcaz6tBukIaVZCGmsmsxmV2NicwqjBGa9wjMQUKx h0DsCFFhKKfrlzvLUQ3DcLWG0l9us1vvcFqL6b8norVpexfTzY0d6O+bQ1JC FRlXARt9EdwY5H0Y8N1OC5BzuQRhvB/O50KuyBBsUoPi9InduQSlhKH+jbkE s525BAvNXIIl3+zPYEnsmt/kW968hEql5G92PmiUrzrc88/UomqkFVXrKzt4 +3f1vMZrT3XUTpe+9lS1L94xvIoTB8LgaH4XwV7bCPN9zmD/PW1sAXmefUgO naajvmCof4qowE142DdC5yiXxyV+Er6lBd/S6ooae4avSbvrqeqJlDc91VF9 ELtaVP9BM1Pd29WEuYVRzC+NorKxENUtRahpY3WwOovQN16HUG9X3L5wThP2 r1wzxjlTd1wwJ/Esw3H+ihd09Zw0+wlpJxL1DT3B8HnFB4bXtKdivHGH45ll EExtg2BiHYob5sm4YZEPM2cZHP3b4RoyjMiwQaTGNSMgsgrBAULEhxcjMCwW nqHhcAkNhU+MN3xjPeEXT+rFOyMwwQHeMdaw9TeBpdc1ONmeYcBjsKOzuBmf xM0rt3CK1DtF2p6yCsQpUu+MC0cV9yBcDk+AXUIWaZqKgIBsBAXmIMA/G/4u sQiyjUCkdRjirCOQbB1NpYtFjmUcCki2IstkFFploMgmEwKbDIhsMyC2y6Di JWDUVozlDO12uRh9trMrNYgybyDxSD+bekTb18LLSoAAewFCXYSI9GBK8qXm BYm4ekVIJfHSSLx0Ei+dxEtPYZFyaeklSEkvRRppl5RaCIfL53HzqzMw/lYX Jid1YXb6LCzOfAPzUwdw6+sPYG+gA7cbbogxNdecedTzKmlneQDRVgcRY3UU ftcOwEHnMzjqfAonTX0CZ52PSbqDmiu0+hgegqf+8dfXlFJfZNaJ8HPi+k/x 8f77P0C9X+ygoY9dL45mk8BKiqtCWmwVstipc7lK88KrkB/C2yCWnwqjNLXN xcf45D+GxDcd8+92ftI99AT9Y08gb1pDYukskmSzqOhaw9DcEwzOPv615tf+ EZvrWyhMlUGQXk50qaDMrEZtZi1aMhvQldGE/vQWDKe3YjSrFZM5bZjJa8Nc QSvGLQvwgJK9UNSEhcJGzBfUYza/BlO5NRjLqsIw3W8gXoXu8EoM53b8aifZ lsmkb1JVC9X/RwPV9bVtPt3NVV2FHFYRq4QBOj9ICe/zRQjUK4L/t4UQXxMj /rIYCUa8NWSTuFUCpV8VSj0085I7y/8vNABXyrXwvnFZHze5+m+pr/JW8Xsc /087Abu8VApj6trtHdvUbqMy1Njmz9uL3txm9C+/ZZt5KTPwdV3YCdcPEeH/ CD7mW1AlbCAmaJuh+hGigtR7BahtcwLZKTUwvqDdM+AO9VDNSvU2sd2AvRvq X9um8a5tUiMJysSdnZq1QeEMZsYmYKKrp9ledfmKMXTveDDQBZJOJNPtYJLJ GRf03DW98pKRDy4aeUPvsi/0r/trnruuPrsgQ9sdhxDctovAVfM8GDuWwTGo FW5hHfCK6oRHcB9ioxoRHSJHVlY1UvIbEJqiJLWi4BIeDu84X/gkeMMviXRK doV/ihMCUuzgFmUGM18TODI4B5NKIRaH4Ge8H7aXjsGGZcyeanTtFozMzXDJ 3Bg3XGwRkBwBv8AEhPslITIgFfFBqUgJSUWEczTCrKLYg2ORSNdKs0xCtkUK 8s3TkGeZi3ybAhTZF0DkkI8Sx3xInPMhZVXczNk5VvED5BinIPCyCkHGLIsq hNrVIdi+Eh62Avg6CRHoLkKYjwgRgSJ+VxFiI8SIi2aTi2Ml8n4yb+lh8fSv ON4GMiybnfgIFic/gvnJT3Hz229x++QJ3Dn1Bal0BDe/+Rgmpz7SXAfE2uga fO+4ItH8Gryvf4Io64OItT5Kx9oPx7N74aQu3c/grPspXM59yrbmqvsJ/gre Bgfhd/kw0+qJ15e+Vl9k1eWS9uJ9zurTm/p4axHwD79FpfX1x1AqepHKHpWm npZKqkI2NaOAciAgocSkUynpJCWdZKSTjHSSBbLYs+ReKrRlduPRwjY++o8R 6s2PcnBnrm9jbROFXIrCtDKipxJlmXWozmxGc2Yb0dOBgYxO3OPbjuf0YLqg F3NFtDNBL+rdpVjxLsV6cQ3ul3SxOrAqbsOyqIU/b8RsYR0m82owQqMaSqpE b4QSyy2T/7rzWTfWt5mcK5FDQhWyxKwyloriVUvmNHLpFDvJEH2iAB1WhUi8 VIR8YxFqfJVo5ZJp5pKpZ0qt9lahK737V7ubXqTUJXLD2EgfJuzDple1Idpc o0vqCP13mhBtRl2KDQ/QhGj1X7a3rsDOrA3mt1phcrURVtcbqdcNSDGtgjPv h9j3sT1OIjR4AcVFizs7J/4fv7epx4zvacH3tOT7WakvmWZ1U21oVoSUepO2 BQ2tqlz6N7ubX2hohka3oHPLHbomgThvGoHzdyI0R6Hsbs66aOSLcwY+dBr/ nec+wFXLENxk8rntFIab9jG4bi+FjX8THEPoLZGd8IrtgkdYA5KS65CU34KI nFZE5rQjMrcZgSkiuERFwjvBH95JpESKF3xTPeCX5gz/NHuWFSyDzWHvoINA y8MItmTyuLEPVqSDpf5RWF46wvB8UrNXQXy0F6orC0hVL8R4RyLeLw4JAUlI DExDUlAWEn0ydzbqfYks80zkWuQxpRVpnil2FEHoLEIpvUPmKkQZe7roTgZm fbT7h5S7F2tuFW6kh00yfSYU8dcT4GtSCT/ragQ41tKvSuHsIIS7mwjeXmL6 kghBwSIEh4kRQncJpbsEkxQhCSzSwts3EpaGZ2Hy7cdMZiQESWB+5iOS4VPc PnUQxqeO4saJT3Ht2w9hpneE6d1Ao7FO13VIBkfkMYmHmh6Bo+4+kmEfycA6 txcu5/fCleV24TO4szwufALP8x/D15DLju+3R32N5j2aKzL/GVyJCtdL5+Ci p4uFifG/3RmTd/tmhaIbWalVe5DNnvC3yOX/hewPIpJCQlLISQklKVFBSqhI iWr2hepQFh2mOoDlq+4TLLdK9KR27F5N5s1dVf6DoKiTN0CUIkFJegVkGfWo zGhDY2YXOjJ60Z/Zj+HsQUzkDWGmaBgLwmEslwxjVTKMDt86PIpWYEN+F5tl g9iU9/N+L9Zl3fx5B5ZKWjFHYEwW1GmdJakcPWHSf9mZ2lKVtXMhVKCAqUzA kjLRVfC2ltVEYLRx4XSxermAaq1KsOSVhbu8r57SGkzQTmv1coF1RvF3uaCa KXqDmd3//OYk/44KXbus/wuNl/y9Roh2vUST3hJVSOWrxgUqYUMNcqYG+VB9 /E4JIDQRIIz3w9VlwJZ2SQBVcge2Fh/vWpBSveki6OdNF7e1my72wOS6+jww UWEBqFBq3/H/3lkFfoFROENn1jFWs0D3djhX2IUbITh/NQjnDdXXtvaDjoEv zpIVesZB0DcLwWXmmGv2oTB2j4VHQhHM2RCsg5phH94Ol5gOPtcBz5gB5JVO IjirA6E5HQinSkYUtCCKvI4qLIZXYgC8U/zgneYD7wxP+GS4wjfTEb4ZtrCJ toaf1RH4Wx2G++39JOM+5q9jMCMXTMkFi8vfITHCf8/OqhMli1AQU4icyEJk hBUhM7wE2eEyFIYrUegvQ7JpNjLMczXdPJsIy7PXbl8TushQ4iaHzIOa6kV3 9JZCdUuIlyV3ofKRaCn4GSq81NQogNgmCcX0q/xbtoi+HYNgKzGc7Cpwx0YE S0cxbN342JvUIx3cgsRwC2WFs0gIS1MbGOudxbWvPsYNuoEx3cGE7mB6mlQg GczPfghL3Q9x58zHuHbifdw8/T6sDL+F/ZUjcL3G3n7jMyYbE8Sb2yBC9ws4 nfucRPicRPgcrhc+h5vePrhd3At3lufFz+B18VN4630Cj/P7NFcE/oX6qu34 c7gbXoC7gfb6ZW6XdOkRZ/G3b3TGxJgi5LHF70E+//8rFLDlC4iGUrZ8OYfK crb2Krb0Wrb0+hgOn0RDUwQp0hxWxYGmmQ2/KZiNP1DbAZq9KlHnVIYnc49e c+CPIOIPHQz9JiIOaP7/Z2zSJQRJQpSkKiFJq0dZRjtqiIeWjEF0ay61PYqx gjFMCyawIJ7AimQSa/JJPCibxCjN9nui5VHFOLYrxrBdOYKtimFslt/FuqIf K/IeLBAXM/SLCbbV8WxGmiQ51rrGf70zAVRV1soFo0QRE5SImJCzVKz6jGq0 ptegK60Gfam1GEytYzKqQ4eLHA+CMzCeUYtxpq3xDKam9GrN5M9QshYd6gmg zpBK3MvpfEvzNn+PB5S49GQVMvlrajwXp2jXQwEjUsQtEQLIhoDj+ZDd5sh4 sQixLIGtDDVEtIrKUsFe2ZnZ80+al/tXbGw/Q1hOFW66pOLMrTDomMTg3M1Q nLseCt2bkTh7IxJnrodQEsJw3jwSF62jYOAQBfuoAoTllyGqWMFOWwmr4CZY hrbx+Ta4xLXBLboLSQV3EUBOB2W3IaSgDeFFzQinsAnqpchQ5CEoLxruqT7w yvLaA69sN/VBMtlOsIqxRpTHUTjeZC6/8Tmsr3yO25eOwph9PMDxIqYnhrV9 /L9grG+EX76Eq1sBSXotqwUFcXUojmuGlJ+iPK4ThQwvOZYiTbfNdVCgwEmJ Ypdy7TS7ZwUU3kpU+FZAYi3CctQA02sbx7LyHd35G1SSFUq/UkjZ2UX2KSi2 CESRmS+KTTxReNMeV78xhM5pK5zXVR8IYYnLBlb82ytG1lQlvYOf4tKRT2Fw 7BMYfvERrnz1Ea5z+L/J4d+Yw/9tdvI7Ouzs7Ohm7Og3Tr7Djv42O/incLjy GZyucni/zqH9xl5Yn+PPv7mKIL1bCDx3jB18Pzs4O/nFz+F+6XN4XNoHT/19 8NLfC2/9z+B9icFBhwDQP6u55reHprRX/PYwukA1OA8PdYfX10WDVKzd8LxH swX9rxDDXhzPxpfMcSs1gnGBHTmdXbiisBfDrXOI9Stkks3fw9Zehb9GEbEg IhSkbJAKNkYV228NodDANtwcx/YfU432mBp0sDqja/bwv2qCQT0qdpIVndSI rhAVOv3L0eomw7OFLbz3p8DwFxow7P5TH5GgPgtZbW3tn/8RRtRJayBOkkCS WsNGwwaSziyRPoT2jDH05kxiuGAak8JZzJXMYVk2j7WyeWyUz+NhxTz6vJvw Q0E5nlTP4WnNDJ7UTGO7ZhIPq8fxQDWC1YohLJIVs7IuTIrVnKjFWKaCHVn8 zzszLcP9EyhKLaNKVEDMaCJnVWXWoCGjDm0ZjehOb8JAWgv50ILRzFZMZLei 5FwWNiLSMUuVns1vYjViJq8B07m1/HkNRsmXoRTtTEtPeAVGctv/bSf8VSo6 kZOqQh5XjXoVlezEnMrdmEOnUNIpEr7ORQ2HP4mjjGumCh1cL+1c663qjXHk RgO1rsatAk8WHkM7Ef0hMhkks8pHkV05Cyf+vrl7Nk5dDsGpaxEESQxOG0dB 3y4Zt32yYRaQQ8OXIjBbhtB8OXzT5fDgWrAMkMIqoAwOoWVwjyiDb0Q5YtIa EZxSjfC0akRmstTzCyVy5FVJUdxUiqImEVJV2YiSJsA5wwdO6e6wT3GATch1 RHgeQaDTQeanfbhtcAC+zvrITbDGXH/GL3am+Zvl9Zo9aSRpKlYTq4vVz8Uy jOq0MTSmTuz0/K+Q596AAmcuOtcqCN21B0nKfGpR7lcNVUAt6hkEXlVMoza4 FnXBNbyt1vyOKrhCc00aRZAMYrccCB1SILCJgsAygKrggrCLBjj67vs49s57 +OZ99bmLPsDZTz/GuX0f4/yBT6B36BNcPPox9EkMw69JjW8/wrXvqAgkxi0S w5jEuE1iGOu8j8ukhan+RyTGZ7AnLRyv7WVg2Avj797HtS/egfWZvbA4a4wo /WvwvXiIw/t+uOvvh4f+5/A0+BxehvvgbbAPPoZ74UViOJ48DIfvDqkve7qH /13co7kA9Z/Bk8TwVBPDUJcZQmd3q8n6+hOUlfUimS0phR0+g5VN782P42Kj DQjZmrSzLf8NMbfyEHklC1neWtEqYYuUsTUqU9XHndagLqkWTYn1aI1vQHtc I7pYPfGN6E1oRB+rP7GBVY/+hDo+rkUfwdJPTg1EVKA/WIEuvu7/JDV2dUJ9 DJP6RFi83aXGm5MaWmr8GsK4IpQmqS8+3MxP3ANV2hAa08fRkTWD/vx5jAgW MVW6jAXZClaVq3hQsYqHqlVsV6+i1aEeL5WjeF6/gucNy3jWsIjHDfPYqpvF Ru0U7pMeS6p7mFMOYorkmBA1YSKf3ThDjLXeEfzTTgDaXHuIopRSiNIVmkla GZWhMrMRDZktREcbetI7MJje9fNsSX4PZklr5eUSrGc3YknYjWVhF4uhR9CO xWIGn6Im/l49f78WI1SPYQ7k/REKrLZO/svOpGi1spPSV4lCcl6QoQ1A5Vxx NVxxjVxxrcRIJ2nfnVSNolM5mIiUM/hU79Fsv/pLDLAt9MXtiAyJ0q7WQK8K PF3cxj/ukKSibQJZinvILp8hTZYQW9SPgPgKBBJoQcm18I0vg1uEAG4xIngm lsA3rRSuSVLYUOjtaNHO6ueZsZ3CpHAJK4NXVBn8o8sRl1aJyBQ5YkibhAwZ sgrFyBUIkS0QIU3KMFAjREFLEfJb85DbmonslmT4CfyQmGsBeb4RywDVgutY GCnAwr08LAxl4/50hZYkJ1CaWMQGUcahpI7VzupjDbM5j6MmZRrNqXOoSZjS UiP8LgrdG1Hs0QCxV6PmObl/CyoDmyB3qMJa+gyHiz7UhzWjLqyJ1chs3QBV eB3Kw6uhCCtHWagUEq98CB0TIbALQ7GNFwrNrHDo7bdxmCT54v338O2H7+LM px9ChyTRJUnOH/4EF45+CL3jH+IS3cPgm49gxJBxhSHjGkPGDZ0PcZMkuXr6 PVw/9wFsruyFLSlid3Uf7AnRG6TIlePv4PoX78L+/AE4XjgA67O2SDAyhL++ +kruB0iE/fAy2r8H3kafUyK8CRKXs4fgdPoInE4dpmLoEqjqKyi/peaJ5jqc XpfVRaAYnWP2OIvOhjaOVb3IYGPKZGWxctmoikgVEdtRKTVCxlakYG8vj9Je DLLAUai5Tb+dh9TrOci+Vah5XORWgnLqdVVqA+qSm9CcxP6R0IbO+Hb0JLSj L6kDAykduJvagaG0Dn624bR25oqhtFYMpTZzKG3CcDIVPYH9IaYcQ+FyTBc1 v/unc8qfOiJ9v+b//46H9x9AHF8KCXknSemEPGUQ1aljaM6YRlfuAgaLVzBW ch8zsgdYUm5grXITm1Wb2K7dxJP6TYz6dOGHmnF837zBWsfzljU8aV7Fo6Zl bDYuYK1+Fsu1k5ivGsG0sh8T0nZMCOki+TJs3B3VAuVXqC9rhDhVhlL2bklG PZT0jdrMDsalbnRn9GEgYwAj6lmV/CHMFA5hXjCMRdEw6k1UeFjUhjXJXdYg a4DVh/ulBExJJ+ZFbZih6U/m1VF/qnAvSYm+cAmeLj/Er3f2XKpVtlNIKkgU ZiX+joxVSbLUEULNzEntzEndKXXoT6nHXZbkfDHmEpQYTa/HGF1pjJlplL4/ kqZ1HzVs+jjc9ERUosNfiWdL23wXLV7uTqwhUzaErLIpZFUsIEU6gYA44iW2 EkFJNfBPriBeiuAaLYBHggjWDOeWYaWwChfCIUoItzghfJJECEoVI4RZI4Ti Ep6oQHqOEonZEqTkliCPSMkXCVEoFqKohFgpESCVlVNfiLzWXOS0ZSCrNQlR 5dHoaPXAZLcz7rXYoUtliYXRfCImF/PD2Xj84K52ZDXE1v0NSBKFkCRXasYd SUo36y6kKWMoT5mhvy2gNnke0pgJlMfPaGcrI0e1I6tPO6T+HZr7lcGdaHHt xrpsEfURXaxO1Ed2oi6K6Ti6FaroZvapOqg42taxr9Ql1hFR2Sh2jkaxYwCK bB2w/623cfAdYua9d3H8g/dw4qP3cHrvR9DZT8wc+QRnD7+Pc0TMha8+xEUi Rp+IMSBijIiYK2eIF50PcFPvY1hc/gzWxIs1MWNDxFw98T4Mjr+Ly8SL6clP YH/hIBwvHoTdhRNwvmiLFHLC3ZCIMTpADSFm1EXKqAXGSeconM+o6whcdL/U XAHY65r2Wu1eO9f79bpygX9DaTG2QlRAHvt6Loetv9H6MAcvEZuOlJwpY/Op 4EhVRcbUkDF1ZIwqSHsGDoFVIQrv5O1YzH9GibkYdeRHc3In2hK70ZXYi95k dpfUftxN70d7VAdyjGUoMJai0b8BY9l9rB6MZndhJKuDut6KUTruGAfMsTgl 7kWV4kHn6Dt/mi9/6qDrXb6Mdd9DKV9ZkshWk9SHsuR7qEmdQkv2AroLV3BX tI5x6SZmFVtYrtjGevVj2sgTWskTPGt6gpWYIfzYMIGXbdv4vu0Rnrc/xJO2 DTxqXcdmy32sNy1hpWEWC7UTmFYNYULRgwkJrUWoxGB2/i93otbDtU3NHFxp Gj9Keh1klBQV2dJArnRkDKEv8x6Gc0YxUTCGmeJxzIsnsFw6gVX2z27bZmyX dGNDMY5NxRhrlPfv4UHZEFblA1iS9jKidWJKwIxUQIHJqsRIkgwT4kZt1Pol ahUtEKQpIMqo1EQtNWIqGLXqiLqW9EZ0pjWjN7UVg6ltuJfejtGsdlRelmMp vQbTeeqN3K2sFsasJkzlNjJqqXFWi3tsO0NsLwPRFegOLCNqtnZQ8z4yS+8i Uz6OLOUssqpW4MfxIyCWqOHvB/F13cILYB9ejNt+IpgFi2ERStzQbJxihDQY IVEkQkiaiLlHhPgcEaISSlBYJEdWsQh5QhGxQrxIhCiWCSAsU1cx8uTFSJcV IKUsF9nt6UiqT0RuTRgme10x2eOEwUZb3OsMxcKYGjM5mBnK2s1CEz3DkCTs DETJNJjkftYIZMlTqCBa6lKXXx8ZJwsfhzJ6GpVxczvP2UFk04AHRevozRhB XWQ/6qMYpqN7UBvTjdq4buKkF01pA6hP6+VrdaA6qR7ySClKAvNR7BaKYic3 WJ06gc/ffgcH330Hh99/B8c+VJ+Y6m2c3Pc+Th8mYo5+hDNHP4DOF8xIX32A 8998AL0TH+DSKVrNiffgZX4YJgafwoxosbi8F5ZEy+Vv38clYkWNluvffAgb YsVej2i5dBDO+rx/6TtixAYJV8/A4zLRcoWIucJMRLQ4nz3OOsYiWnSOEC+H 4X1d/zVevHcuJ+59VQ/e5h7wtY1AmEcyCjh6aTYSsHmUEC1yoqWcaKniqq8l WhqIliaOUC0UYYldPqR2Wl0RW+ZpbqXWAs1tmZkQZcYCyIzy0RDcgq7ku2ym QxhIH8YQe0xHbC9yTaqYIxtRYtnMv6tHe1grJguGMJmv3gbCAT+3B+PZHZjI YKfkZxlLkuNenOB/AjHqf7sbHv7Qcca7iBnvHkcpv42EQiVJHIQiaRy16bNo zVtGj2ANQ6WbmJA/wlz5EyxXPcODuud41PCCmvI9elKmsJUzjpdEyavO53jZ +QzPO5/gaec2tjseYrP9AdZbV7HSvIiFhmnM1JARFfxWZezrEhWGi4p2EdMg q0NJCrWYyqCe+itL70F1+l00p4+gK3Mcg7lTGC2cxrRwFvPqGR3pHO7L5/FA wczm3Y2n8n5sVc7ikUpd09hSTWKjchxr5aNYVgxjnqiZkZBuIjVmaokZBe4m in61E8kerm9BSIMSpys1u/xJiQclI1ltRgtlrh2d6Z3oS+visNBD9PdiPLcP U/l9aDSpwX1iZaG4l9WDRUE3b2lOxR2MZK2MZFxvOQ0a3IykVGIohuE2sHSX MnfHN0iaMZJmBpkVi0iWTcKflAmIp9Cw+bnHy3HTR0jKCDWUMQsphi0p4xIj gBcpE5AiQli6CNFZIiTkihEeW4IioRzZIjHyJSIUykQoVgghLBdAVFkMsYpV VYiM8gKkK7KRokhHpCoRHR1emOxzwXCbA7pqrbEwzpw0lodZUmZ7c2h3H8KJ nnuQMMJJGN8liV2kzRBrHLLEWQ7IlclLdDRRzAzkCQuQx86REDMoj12AKmEZ NUn3UZ+yjsrIKbT7T2BDtYX2xEm0J0+jO30O3Zkz6MyaRnv2BJf4CGsQDVkD qMvsgTKxBmVxMijiBJCEp0PkGwQrnVP4jHlpL2mzn7Q5RNoc+ehtfP3J2/hm 7zv47vCH+O7I+zh5/H2c+vJ9nPmaFPryXZhc2gt/m+MItD2OW/qf7MEdo734 GAb8sd6xd3Hx+HvQZ5nq7ION3iHYXTwEB8YjR4NDcDY8BJuLlzSHtiZdOwF3 wsadsHG5QMDofkF3Oc46xjrK3HQYPmrYaEoNGy1wfC08EGAXgUB7Fm+L2diE hI2Ea1vBDl5J2NQkV6M+kfrM3NIaX4OOuFrUBcihdC5GubMWLnJ7RlabfO38 1n+Fyk6MaisRqk0FqLieT450YSBzAkNcmiO5k6gN6kWBeQ8Krjei3UqFMqe7 fKl6zAgmOGKPMRaNYJLJYKKAvTOvk0Mkh8lMFSbSSvCwf+Tt/4286ZpAaTRH qbguSOOZsTlC1WUtoLXgPnpFGxiWPqKGPMFc5XOs1HyPBw0v8aj5Bzxt/YG9 bwUvSqfwqusH/ND9Ci+7X+JF9ws87X6K7e7HeNj5EOsd61htW8Fi0xxm6iYw WX2XzOE3UnDAF4t/uTMPJE4o5gBZwZivnjjshjLtLrE3htaMKfTkzGKoYAHj wiXMlixjST0XVLaCdeUqNitXMRc+hOflg3hcs8xawuPaRTyqWcBmzRzWq6ax UjmBBXJnRnEXk9Ju2lQzo5cKY1lirPfvzgP9CsV0hJI0OUoZndSxTU6frMro RFNGD9rT+9CbPoC7mXcxmsMVkz+M6cJ7mBPcQ5ddCzaK27Gi3jBeqq67rEE+ 7seSuAfzwi5MF7dxEGni4MF4lVqO4Vgp1jrGdvzmXWQIR5ApmUamch6ZVcsI SW+CvzpKcZkY+4ph7E3q+JM6IUKYhxbBLrIYLrECeCeKEJhagrCMEsRklyIh rxThCXIUlyqQIylFflkpipQlEFSKIaoWQVwjREldMUrrCvk++ciszEa0MB3p 0khM9rthhPGpu8EWk3eTMTeej1lSZ3IoW3tig5NMV6OQxNI64ynACb0sEihh CvLEeVSmrvB2EeK4eciTllEWvwh59AIj1ArH6nXGqg00pG6h1HUQD2TPMFy8 hu60efSkL6AnaxE9lOiu3Dm0586gWU2d7HtoyBlGdXYvX68aimQlq4T0yUNp WDR8bKxx/PAhHD24Dx+/9xY+++At7PvwLez/+N9x/NO3cHzvWzi2999Z/wbD 05/ijgHRcOcYPCyOwdvqGGxvHcCNS5/gluFeXD//Cc4deQfnj76rwY7x6X2w OH8Q1kSO7aVDsCdyHIgbRyNi5/IhWF28jYibpgg3+BrOesf2wPncF3vgcu44 9djlnBo5RxilTsLnxs/I8bNwQ7BdOELsI1kRCGaJiRsJcaNg2lal1nAZ1aGR LteSSC4kNKGLy7knXnseqyr3UlR7aHf6rXQthcJJhF3e1LtI0OBYikZyp9FK gGrjPNxlt7mXN4exgnnUhw6hyHoYomvN6Aodg8KDUdeLY6J4jjWDWdEUpoTj mBAMY6KIzCloJ3ca6DtKjGUU/hHe7E4L/48OQd09wv81bzqnIInieBXD1hM3 AiUDd13OMtrUtlvyEMPyx5gof4a5qu+xUvcKDxp/xKOWn/C0/SeO3pv4UTWD Vz0/4YfeH/Gy9we86H2Jp70vsN37FA+7Gbm6NrDafh8LLYuYaZjCZB2/UTU7 fUU9RqQl/7jzMUa776JELejJ6pmiDkhTB1CROkqh5nCYNY/e/GUMC+5jomQN c7IHdJYHWKvY4DC5gTYK+UrSGJ5TnZ7WP8CzhnU8bVjDdsMqHtYvU8kWsUr2 LFZNYbaCIFcMUK8ojcI6jBfIMFNRu6tZo30jEKeU7CS5emKnDUrippZJriV9 iCPxPQxmjXLM4Lop5NggmMS8aBJLJVO469GDh0xya5SUdfkEa5w1hjX5CFZk Q1iUDBKXvVyvpG0hkZdTjfG0MgzGCXeps7H1Chl8uUzZHH1nCYnScfjGlsNc TRwvEW77sPwFMA0RwTxEQOqISB0xvBJL6ToSUkeKmFwZEgpliEgpR5GsHNll MuSXS1GkkkJQI4GorgTiBjFKGoUobSpGRm0BEpXZiBCm8Kt5Y7jRFT2tjiwv zNJzZpimJkdy8cPLTS11LmmpE8PBIbaVbYZJKo6P42c0tKlMu4+CqBmI1bRJ uQ9p7CLKYpdRnrCGquRN1KY+gjJqEV3hq1jj2NWZucGluoTeTFbOCnro1V35 i2jPn0dz7jRrDA35o6jM6kZZWh17ZiUU6VIoUws1Z0/2sVefQuoKdM6dxhmd b6Bz9ivonf8C+npf4MqlYxSU47A1+AKWBkdgffUobG4eg4MJU4/ZMbhbHoPl zf24cvFTGJ37GDqH34bu4XdInndh+NWHpM5emF84BEtKjg2pY2twGHakjgOJ 43jlEJxYd3TsEaPrAL9z38L5/Jcsio6mKDvnSZ5zJI/BKZLHAN7qq8Qb30KI XQjC7CP2IMwhEn/Nu5GQZlTT6eugSqNUpzajKbkVrUkU64QOdCdQrpM60R3b ghovhZYxjAR+Kj4sh8q9TLPZUv1PvcGh1UOBNjcZ2p3FaLUrQht/Plq4goni Vba9VUjsO9DpNYzKAHLH9x55tIAF6TKLw7lkHlOl05gQs30L2VMFvfy7NjKo mkNsCbbu3n3rT7PnTx3V+Zo9HdMoDW/UXH5WEjdGyZhDXe4KWgUb6C19hGHF U0xUvsBczUusNPyAB80/4VHbb/Ck8zcYTFnEjw1jZM5v8KrvN3jZ/xNe9NOD +l9iu+85NnsfY737IVY617HQtoSZ5hlMNoxgoo7fqKoR9+Sv2TPeM4LSeAVV na6T3ANZyj165iQaM+bQwebYX7RGNdqgqzzEfNkjrFZs40EVdarmMdpjmaNy pvG08TGeN23jWfMjPG3ewuPmTTxsekBcruF+Ax2pjmCvnsRUBRdqGT+ChAAQ VWA4r3BXuQQJBUSfbCfitULGLFXBiFfPiNeePo7erCkM5c1gvHAW04I5xrx5 LEkWsCqjigUNYVvWhw3qymb5HDYrZnk7gwflU7ivnMCSYpTYpCJJiD6Rmj/0 15xKjNJf13vv7WjP2xgceYR08SwyyhapIssIy+/HDeci3HItxm0PEUx8xDAN FMIiWAjbcMInuoRBS0L4yBCWVYboAgUSBApEUNnyFZXIKVcgr6oMhbVUoHo5 hE1SiFskKGktYYmQXF2ESEk2OuWBGBV6orvIDc31dpieKMQU4TMxmo/5uSrt FssgTHaOsbGoNKealMQMsPg4blajN7LkFRREz0GcuAx56jpKohiy4u6jPHGD 4Nlir3oMiSfRrPoJg6VP0Zn/HF3Za9ScZfSx0fXkr6KL3aS9cAnN+bNoyp9A Q9EElFmdKGPUVWRRC7KYMjIFbKipCPN1h5GpCfRuXYOO3hmc1v0G5/W+hp7e VzDUJ3wMj8Pc4LjmzBJ2Rkdgc/0orIwJJNNjcLI4ijs39kP/wic4fegtnD7w Fs4eegdGX3+Ma999ihunPsNtJiwLgsdS/zCsDQ/D1kj9OlQfwseBIHI+/xVu Hg9ByjkLwucrOF/4kkmL4LlA8FwgeM4fhYfhz+AJsQlAuH0Ywh0iWFG8H40I u1jIabaVaa1cPh1oTOlCK3tAZ1IvepL60J+inukdQGdUC3FTjaaAWjQFNqA5 qImP61DrVYOWwCa0BlCP/OvR4VeLTt9KdHvJ0e0mRodzIYbZdCcZXGZKNlFp WoGtkll0pi4RSfexJN/AUtkDLJbdx5x8GVNsyhNS4kcyxpGewYTD6YSYTVWo wKPRkV30vHmmot9Bz5s72f4x9Iy1Ez2hTZrrqkrixjmszKM27z7Rs4keyWMM KZ5hQvUCs7UvsdxI9LT8gK32H4men9DC2P6qc1uDnFeslwM/4fnAD3gy8AqP +l9gs+8p1nseYaXrARbaVzDdOovJ5lFMNPZhorYRd5Wv0dMoZl+PU+9xzAad NMCGPAYVDawxawmdBWsYEG5gRPIIU7SwhfKnuK96ho2aF9iqf4GuxCVsC+fx rOUFnrc+Zz3D07YneNy6ja3WLWy0bOB+Mxdy4yLm6mYwXcWFylg2UUaXlFZj VCDYRU9JooDo+TntyZn2VOpdRGhfHZmz6M9dwL2iJUwKl6kwDI/SVazI76Mx uAMz0RN4QqNS7wWwVbXCWmYtYaNqAWuqOSxXTGOeCJopu0eCUmVF7Zr9hSby pJirqN3ZNv4WlHUrSC+dR7piGVYc2owdhbhpXwxjJzFMOJyZuUlh7SmFnZcM Ln5l8ApSIiCiAmFxlYhJViGBcTwqoRl5wkbkiFQokFSiSF4BobICospylKgU TFoy5DF1RZTmQ1EShRmpF0YK3NGb6or+unhMjBdiTIOc3YPbAO0hCNptIn6Q 8NtK4uY0tBElLKIgZh7ipFUusQ2Io5ZInHUSZ5Mr8RFk0avoSdjCeMUPaMt7 jo7C5+gufIzu7BX0clzpLVjWEqd4GU0MBU2FU6inUMqzO1CW28SqgSJXAUWO EOXZGYiNDICtvztuOVpBz/Q6dPTP4MyFb3H+EpVH/0voG36Ba1eOwUTnE1hf PADHy0fgdPMInE2OwvnOEZhf3Y+zX7+Lkwe0xLl4/ANcPvEJrpA410/txc0z e2Gs+zlMLx6EBQljaahWniNwoEo5kTZOF76C1Sk9WJ4IQ+Y5Y/jqfgUX/sxF 7/gOdXaIc9MAAaaWCLcNQgSJE0G/ibCPZSUi0i4FyvQOVKf2oCGlDy0pA+hI vouelCH0p91jnh/BvewR9MR1ayjTEtKKttB2tIV18nEbGvyb0RHahc6QTnSF tKMruAXdQQ3oCahCL1tFr7cInW45mC59jNrgfsxGDGG1/CEHwMdYVqrrEesh FpUbmFOuYZqtbaJsHhPyKRb1QM4WKqPwSKowLiz4XyTOHzpoW0scbfsZbZlG SRCFJ6xfa3G/RA2h0yJ8iG7pY4LhKcarnmG27gWWmr7HeutLPGynz3S9wjB9 52XvJr7vf4XvCZrvB1/hOevJ4Es8GlBD5xnWerex3L2B+Q5Cp30OE23s8c19 GK9vwExXM3apI4woorszaMV3QZIwTG+fRBUB2JS7is7iBxgo2cKI7DEXzjMs 0L/u0782mP22CMLBVAassmU8a2PWa3+FFx0v8azjBR53PCMgH2OjfQv3WxnQ mlcw3zCP6dpJ+tYQ814XJpT1GCt9Db+xniGUJu5mPvVuJQMoSx1h25hCc/o8 unKWMFC4ihHhGqX0AeZlG1gu26TQbKIpfBiLyXN4rOjHoxr1HgMbrAfYql3H Zu19rNWsYKV6EQuqWcyUcwRS8CNIezia0LuK1bsOFv9yZ79gZd0q/NncrL2r YBNQh1sOcty0k8HYWQkLj0rYeFTAwVNJ6FTAK0SFgKgqhCZUI5qelpBTiyjG 1bzSVuSU1iJfXosiZQ0EldUQVVVBXKNi8CpHuEiMLGEOpkoiMFYUiKEsH/TF x6I3OxH3RgswO1ejdZzvXk8Ubq1oz84vCW/X3kapyTMPacoqhAlLyGewEiXd hyztIcTRS5DFrUFJ16lM2UKp3zyF+TdcoU/QWvAUHUVP0SV8xmBF38lj0Cpc pGoxZBUvobFoAY3F06gXT0Oe1wl5QTPKCmqhKFBCWSBGeW4mvEL9YOXvCdsA d5i628LI5jbOmRjgrD4Dlz7pQ9fRv/IFrl7ch+vq3fXOfwLjC5/C9PJB3Ll6 AKY3DuCrvf+KU/vfgs7Bt6FH8hh+y9BF8lym61wlea6f3Ytb5/bBUu8YbBmg HEgcxwtq6nxNBKvZ82ew0rkIpzMhSNa7DOeLX+yhXB1nB3Pmn7gbnYI3wRNm 40utCUawZSD8TAIInWQ+TkeUbRY1px+KqHaU+tahmGs311KMQpsSCOwkEDtK IHGindqKUGovRrV3DZoInM7IAbSG9hI+XeiOHEQPH/dE9qE7ogc9XDW9YU3o C6lCX7AMfQFFGErugtSsFo/k84TMCyyXP+cQ+AwrFU+xXPkYi5VbHPY2MF2+ xv6wxJplTXBkpu4o1fOwdYSPGH+EPJpdSzRD01/+EQa9eZS0lkH/omlHm4uP IPLX7pgliR1n+9GeLLeJ5tNJ1RhUbmO06gmm655isekZO/NzbHQ8x2j5BvrT pxmyVvG8/3u8GFTXCzxjPWZtDfD3aD73e7axRAjNda9gqpMQ6qD5tPZirKEe 67MTryEkCqNzRDfwM/QQRCOE0DSqMpfo3WvoJBAHSvk55M+4oF5gseoV7tf9 gM2GH7HFEDiaS/uiazzvYOjr/BEvun7As66XeNzFz9H5FBu0s/vtm1huXcN8 0xKm6umUtaR7NZNXZSPG5NJ/3FkkEwx/koSfw58keRiK5AnUpM6hJWsZ3fw4 g8UbGBU/xLT0EVV1Gyvlj7FW+QQt0dNYzVnGo7on2K5/jMcN6trGo8YtftRN rNc/wArpslizgNmqaUxWcFGoJ59kVKDSGowLxHjxYH1nR+P/juBgFaxdqmDt 1Qhr/zZ2tSbcslfB3LkWth71cPapgys13Cu0Bv4xdQhJrkdkZgPi8hoQldGD HGkHsmSNyFU0oqCyAUVVDSisqkNeZS2iJQq0S3MwJknGiDgWQ8UJ6EvPRW9y NrrjYjDep9SewOTb39pUURqkPY+LJGyQrvwzgXJj5jQEEiatQZq2idI4pq+w JWQFLSHB5S5TxEMMqb5HY942Wug87cVPuFafoFv8ROM83YXke/E8OhhkG4vn 0CCcQY14ArLCLsiLWlBWTAIVk0DFYijyMnDHxxsWfp6wIoFsA13hGOoKp3BX Pm8BIws9fEf3OEkM6Jz4EOe+fgenDv87Th1V17/B/c4+BDsdxsmPfo0T+/4d J/e/jbNHP4DeN59AT+0/33yG6yeYuL7ZC7Ov99Jv9sOe9FET6BcaBv01nJjq nPS+hPW5S/A9H4g0vQtqArGOa/Fz+TQC7pgjwsYPwRZ+u5eITXbTzg9rPVL9 7x0U2MohsC9DiZMCUhclytzKIXWQQuYkR5mzHAqXMihZdb5NaA8fQm/MKPpi R9Ebew89sVSlmF70RnWgL7IJ/REq9IdLUOWajdGwCazXsvNVvCJpXmKFi39V 9RwrVU+xVPUY86otTKseYLJyldGGQUvFTlHFTqFSd4omtkzZH6POv/6BDVl/ 9kf48+YxCft+VuhfoyF3SNukokchTdWetbtBsI4OCQFDNRupYt6p28ZC02Os tD6BihqQFzqCjvRR1GaP0yy28GzgGcHzFE9Z26yH/U/woG8bq71bWOx5gNme ZUx2z2Cii9+vrQtDDdV4+mjzZwMKEUESSRGL7tNeUTJpFlVZK9TwB+gUbWFA +gQjiueY4nJcqPkB9+t/wkbTT9hq+f8wLXiGH9S7N3f9huBhdf+EZ90/4HH3 S2x1E4JdT3C/YwtLbQ8w18JQ20jCN9LE6qmWNc0YU8p24dNcopYwlTb+JQ5A mjQKZdIMatMX0ZJ7n2P0Bu7y44wxkc6UcTVyMFmlkK1Xv0BL3DLWi9ew3fg9 njS+wJOm53jc/AyPmp9gs3kb600Psdq4jsX6FabYeUxVUcTUs09KZuqyBoyX SrExcvc1fEoSipAVXQ4r1yZYeXcQQH2w8R3g4zbYuDbD0acV7sGt8Ipohl9M I4KTmxCe2YyY/BZEZg8iu6wHGfJWZChakaVsQVZ5M7IrGhEuLkdTSRHuSbMx JE3HXUkm+guV6MmWoCejQG1ieDh0T9OU9mh7jfoDfY3mgg5Igpp3JGic62mO mriCtPBJ5BI9AsYuSdo68hm7/O2nEO48jwS7QdTlLkORso76vC1GqkeM9Nto F22js2QbXaINdBTM0nJn0S5gzmbcqhGOQCEchKy4EzJBC+RCxi5RBRQCETJT E2Hi5wOzAG9YBnnBJsQTDuHucIlyg0ucB0LTnOGbaAPfeHOEBZxDoutRZPh8 gWy/48j0PYY0n8OIoPyYH30Xp9/6Jc689Stc+vRt3Dz6KW4e/xS3viB2vvwM d77Wosfim32wPXtMix+CZ48GP8fgSPw4XvwSTqybX7si/KIP0s7r8PFx1jG4 ET/B5vbEjz/8bvvAxVB72gvvm7Ga21DTAsRZlGruZ1lqz1pd7FABsTMbn2sV 5O7VUHpWQ+5cDqVrBcrdKlHhXgmRfSXEdhXkUgW6oobRz0G6N3ECPYmjjLZk U1wf+uLa0R/XgP5Yrmj3ZGyUrTM1/Igl1Y9YrvqBGv4Kq9UvsVrzHEvVTzFf vY3p6k1MVtOAahi/atk/atk/atk/qlvYSMv+gxj6U4dPak/B9Rev/3b3dqRx CSLf3t3D4JTZi6grXkVb6Rp6FQ8wrNrgh3uIWQ7rw5XrECSuoTjqPnoFy6jK 28CIap0r6vHANv4vmhCH/4FH2Ox/hPW+h1jp28BC3xpm+qh6vcyYXUMYbWvH 1EDP656nngaXhFM/IvshiaGRpcyjKnuVjXeDMNrGgOwZRpTfY0r1Cgu1P2CV FrTRTBNq+wkVwdN41TxHAP2E5z2sXsKolzDqZVzr+R4PumlknY+w1E4ja1vF VCuNrGUcE03UkLpmjFS8hpE4svD/p+09gBs7z2zBU5rZN7VvZ2vD1Nvd8Yzn 2ZbGsmSllhVaUndLrc45qXNu5pxzJkGCOedMEGDOGQwAQRIAc845hybZQcH2 hqq35wLsdo/tefKbnWXVh3uJJtE/7z3f+c757x+YY7UkpDYqol4U8j6XC2Pj yIuKjFWoJZvoydvGEJszQWU7R25c4r1dZZNao1axXkAb1vw9dlqE0QjfYkfx HI8pHtcVu1hp2cJi8xoF5TImGyjI6sjNNULt0fJ+05IVl2J9uA8v2iIMCc6P FIYEVzPnFRAHqGHipoWFVy8c/cZgx6OVuwoO/u1wE6vhGdYOr8hW+Ma1QpTS ioDEfsTmdyJSpkJMQSviqLgiC5ohk5agr1CKnuIc9JbIeKyCVianHKlFT66c qox1UFqG6dpa/LEhexFDzeM0WHsCOkB4EjbJdi4gjvU3NXQa2VHzyI9fRKzf DLysF+FrOYP8kG3I4rYQ60Nyz1iDPHsdzZINKKQbaM3bgCqfkbcMZfYYFLmj qJP0olLSiTKpFoW5rSiSNqOYxaJERr1AXrIRifDAyxOPfD1g7O8OM5EbLMTO sA1jhDvBM9EZnrEW8GD4+FxAhOMBRDl/gTiPg4h2/wKBd/cj4OqncDz1Pk68 8Y/kpp/i6r43X/LSXYGXvtLzkgE5yejIb2DMsCQvWV0QZJH1xa/+SkdJ+/Hw hBMirzjC6/IR2Fz+QrfvTqCJE4LMfOF534dk5AHHGyJ9D9r9VIiNCxFpVIIE E/3U1CyrGuTa1SLfoR7FlLmlrnJUuDeizLEGFc51qHShqbZoQIYJJa1pA3JN 6/h+Dep9mqCJndANs1PHUiDF9EBLCa+NUaA9vBLqgCwMZ6oxU/U7OojfYr72 ByywmC/WfYeFum8xV/cU03V0OrWbGK1fZYFewIh8msWa+SHv5vdKCqSy/5/I 6KOXBe+1vfEuwpfMX3gWNa47r6FLb86bR3vxIrorljFYu4Ix+Srk0nnkRG9C kvA92mu/Q1XWDiozxymCNrCpi3Xyj7C/3xqWOlcx17mMqU66sU7+bZoRDHZ0 o1vRgqc72y8TTvgaUhLY/hRFgXoeEr4qU5cgz1qHSraNTrqxfiqQsernmK6n wGz8lon9HTaU36FGPIenbU+wSyEk8M9T8s+u9js81n6LDQ15SP0Ei+20v23r mGxdxGgr26LkdW4hDzU2o7ey4GVbZIE5/P8b9M4wvB+FkeMojyMnpyxDwbao yYk9BbsYKnmGiXLeRxaZpbofsEqR1h73GJtlW3jc8lvsKIVhCj9gp5XtaH2O 9danWFHuYFFBkdhMkdjIa9JAPqxnO+p4v2sUtOHl2Bjtxx/sYS8JsZDqjO2J bmei91ClDSOcgsRHNAzHwHF4R8zBPXQEbhTo7hHd8Inrhm9iJ0RpnTwOIyq/ B6HSDsRLmiDNrUFnfjE6C4rQV1aHvtIWElE7egq70VvENpTvWcQSYq+wGoOS TPyxL3txlLrp9zIu8O+nkGUNiZ5FkngMSSETyIycgTR2DjEBc/CwWYO/x/eQ pPyfiPLd5nszqKatrctegTxnFU3SVbTIVnXbqSsLhZhHk2wYVTkalOeqUZpH T5anRFGeHMUFdTwvQ16OBLc8fXRbdjzw84KhyBMmQe4wD3GFVbgLbCOdYBft AK8ESzjFWcPP/zxCnQ4glCQU5Lgf3jc+gd9VktD1/RDd+BTX9v0Cp375U3yz j+LogEBADAqj+yShhzoSokA6ShJimJ36jDljSRo6CCsKI+tLJCUykbUQl4U4 BOOzzki4aglPfu92/xYCjV0QaCZiRMHtTghcbkbA816K7voFG5UhyqgSiWY1 yLCq0+ehQyMKnZtR4tqCcirfKk8lyp3lqHRtgsyWFttMjWxzNSotWmjkOpFv 18ifqUWtXzPUCZOMMWgSBmixu6BNbIciuAI9sYUYyummAPotZslF88TsQv33 umE1Cw3Ecf0zTDXsYrzhMUYb11mjlzDSTKPWQuXe3MPvW4nTiv+aSfvZS1L5 m1doqKenB7///e//Ihr6R7029OiDNERPQ+XpU2jInSEsZqEpm0dP9QIG6xeh 5nla9ApkyZsoythCSdYGOqsXsaJZwSpDOC5rlrGkXcJ85yKmu+Yx3jWH4c4J DGgG0d2mxVBvzz+8wkAb84+R5yMnomnLQvQMVJGyhAZmfavsMbTFO+ir2GWm PsFU/VPMNz3DcsszrDG7GyKX8US9jW2qnl0yzq5WiGdkoGdkIGa+epcM9Biz 7WSgtkXdViUjKma+shPDTY1Ynx5/mfVSf0oPMdsRoiELDZCBJlGeME9rsQJF 9ibUsh1m7FMMlX6LicrvMcs7ulj/W6zKfwdN8hNsU+I+FgYqtJKBVGQi1Q/Y Un2HddVzrKjYDiXboWA7mtmOJt7hxhFWHN7het7hqkqsvcpAHczu8FJKMirE KLYnqh9FUWOUZjOoT1yEIm0VaXHzyE5e5C3YhH/iPHyTJuGdOILK/CWkh82h spByq4jqs2QIo2WDbO8cZquWMFU1jwX5BmbrV+gRyYY1vCZVbEvliw77egzl 5+ot2V+9NGd6ofw1ZK5tyPfu0XUMZQeNIcZnABGMeCqhlJAxBHuOw91hBb4u axB7rSHUfxWZ0QuoSF9AdeYi6iiyG3KX0Cij2M1fRHPhAuSF0yjN7kKZpIMu TIWS/FZGC8mnHkUFNciXlZBko3HDyxe3mQD3AnzwMNAbhsGeMA0lAZF8rKIZ UfZwTrSFQ5wlxOLL8HM4CDfjA7D8+n3YHn0Hvtc/g/9Nks+tT+F07gOcefOn uPP5+7hDBXSH5HOH5HOXxHOfxPNIIJ8jH8LoGAno2IewIPVYXPwSlkJc+vI1 gX34Qtr5FCanz8H0dBBSrxpCfOcOicedYigY/kbRcL+bwEiDx139TIhQw0pE m9YiieIm06ZJ916eM4nWtRVlVLeVXu2o9mF4qVDlrkSGuRwJRp1Is5hCf9I6 CpxGUeii4c80oMK7FtUBJJ9kCqLkEWhSetGWoEJbZC26U8t1/XzTFD+zFD9z JJx5Es58w3PMy59htuEppuS7GGt6TLIh8ShIPErCUkniURKWLa0Yrv9x4vkj JfQf9t4ThgKdOHFCFy82u3mxiIUQlZWVr+396J9O8vrrP9bfL4ZY5jInC5P1 m23K86bQWjINTcUMempnMUCL0VG5gKKsRWSnLaG1YhFz7YuY7xBiAfPqBcxp 5zHTOYepLv0mcENdU+jVjqFL3QeVov0nf+iy+ivk7q2VpqdJ4esnqKM7U8g2 oC7aRG/5YwzXbGOyfocWh/ndsouq1HkUBgyhm4CeaaAi0ZAXtELsYouxrtkh PW5jQb2JmY41jLNtIx1UI+20wioNBpsa8Hxn6yUNqMYozEhJYoEah0gHkyhL WEAdDWhLzhY68nbRU/QcQ2WkpKrvdQVmseEHrDT9gO6Mp9htJCWRjrZVwiAG RjspqZ2U1EZKanuKhVaKMyVNrmIZo4pZ3nPSRTNpoFGF4dpKPN9ae4WS9sb/ hSsojrrYliEUsT0VpKH6ZIq0DF4WCUUa2zRUSJFW8i1myom5qh/oGH9Ai5g0 3biLDaE7v+l7bDV9h61mCrRm0rRw+Zq2MMsCONmwRKfIttSNY6RW6L5Xk54a MVyST6ut7yWKNaxm8W5CqIkCYTYdCLJXQ+SsQZhHN2J8e5EoGkCQxzhcnWbh 4zVH4TaLoiRyTNosyjNnUZU9hxrJLOqkFJgFs2gonkFhlgaFOWrk5bYjnxxU mK9AcVELCvLrkZdfjYjkTHzj7o1run11yEMB5KEgbzwMoRAKc4dJhCvMopxh EesA8zgH2MRYQOR+EV7XvoDx4S9gduQLWB77Ag5nP4b/7c8QcGc/4ow+h+Gh d3D7s/dwmwLoNl3YbXLQHQqge+SfB+SfR0f3wYD8Y3T8Q5ieOwDzPR56DRaU Pp/DkmLHkixkeUWIgzA+fwG2FwIRf8sCAQbe8HkQAfc78ToAO3xDF3lR3xPk eV0/ejDZqglZdgrdeb5LG4rdO1DuSZHjo9FxkoTCJ96Abtp8DIlez5Htu4YC P7pdtxEUeHah2q8JlX71KPOtQUNEB9TpFEEZA2iOUaIrvQWd6dXoTMzCVO1z zNQ/J++Qe+RPMSd/grlG4XHTDkviNsYUWxhpXSPmyUNtvP9t5CEVeUjZiq25 mf8KDf38JUO8IJ9Xp5K+tscoL9bCEGJpaenPkc/nute/R6pjH7LEE5DETqEw Vb/NpLxgCsrSKairptBVO41+OdmDVXy0ZQbjyllMqhhs9mT7DCbVM5jQTmOU 3muYDNPH6KIA0tCHKVXd2H3ydC+tfvEn+n6oeU6v7wMHdMeSpHnUZC6hWbqC 9qI1dJdvYLB6E2P1W5hmepcmz0IWvYQK+hEFBVsFVcAmGWZTQ0+kfUwVtIU1 zSaWNBuY06xjigJtTDNPTzihUxnDqg50yWt+8gqVD7MC5PvL91j4J6jVsc1j tOc9QXfxMwyWP8d4NbNbGCYl/w7Lzd+hT/IUTxS0oRQ8j9u+wzZZRugb32Ks tz/HssA2bTuYad3ERCvZppV3uJVsoyTbNLdiqK78hSYcaRvcG+/XSh1GoRE+ Qi02jYp4CodUOhbqHXUutVg+tVgxia/se0xXUlkLeqzud2iNoP5reYqNpt/p nhtutZBw6FjXW0h6fH+hhaTXtEknuIJROa+EfJJBB9agJeE0Ybi8YG8U2TF0 887Fx1Yjxr8C4htVCDVoQYRlO8LsOuDv0AaxmwaR3l2I8+9BclAf0sT9SA/p R3b4AKQxTJAk4fk6STuTRCmZRJVsEtUFEyiR9UGW3QapRAVJrhISKSOvFXmF PMoakCUrh2FQGC76inAlSIzrIcG4GR6CO1EhuBcTjIdxQTCIpQCKc4dRrBNu +DjCyNcGvjdPwfebr2H89QGYHafwOXkANsJM8nOfItLwABJMv4A6zQQ397+H W1+8j1sknFsknFuHSToknHtH9pF09uHRMZLOCZLOmc9geuFLmAlPwUg35pcO MaHMSTf/PSxINuYMy2tfw+LmI9hfdIboji/cb0XC9WYKHK5kv1xn1eJkNdtQ B58bjXvv/QpSZzprNzVKPLWQOrUi1qgFYQaDiHXbRXb671GeuACJ4yCyKHhy STZSr2HUiLSoCWhBZUAjygLqUBJQBWVyL1TpfVAmtKMrtxWd2bXoTJNgok7w C08wTXc1Iyf0GhkUOzPNWyx4m4QgRU/bKmuvUIMpfDpIOO0knNZWbMxN/QWj gF4VKX9uxrqeT/4PrE4900nf9NAp5MSTU2iuKnKnUF84hRZySlvlFLS1U+iu J1c0TmGgeQqDyikMqRjtPFfzPa2gVKbQ2TmFDu0kWtVjaFINkEue/+MfFJL+ Mcr6zA4kLu0vVUtRwjSq0uchz12EqnAJ2tIV9FWtYriOCkS+jvTwecjidlGT +gyKgg1K9SWsqjewJoRGOK5TtaxhUbOKWe0yJmnsRjt5xaichtW96FepsDw7 /Wq30sb8FvJ96mjqNHo6i9Q/86shlzRTJbTl76CreBcDFU8wVv1UZ+zmqEoX m5+hMWERT3ljNlTPsNn+jBwixFP9c7aOJ1hu38V82zam2zYw3rbMmyZUizF9 tVAo0VNTgpdkoiKZBJFMglVUUMJ+9VTPUTM0dks0dus0do+hlj5BTwFVVMl3 GC//AdNVv8Vc7e905q49TuhGekqV8ltsKEgmCqEL/nusK7/FiuIZFhSsYC0E VPMaRmnsRnjrRpqFrvZOEkozhiqL9lz5G1hb2UZybJVuVea0vZWZ00XVCLkr R4SJCpE2avjYqBDg1I5Qdw2ifDqRIOpGSnAPUsTdyAjtRXZEHyTRJI/EQRRm jqJYMoqSvBGUFo4iO1OJ7Bwlskgo6bkKZEgVyJQpkSmMEKCauWwTgcPG3jhh 441jdt4vphRcCwvAzQg/fENRcy3AG5fd3XDe3g1n7Vxx18oEUQ+Ow/XyaVgc OwzT4xQfp7+E9bmD8L7xBcT3DqI65CYmyl3REGuMm5+9j5sUMpf3v43zn76J sx+/gfOfMD5+HZc+eR0XeTz34S9w+bNf66vLfpiSQswYpldIVXfO4+Gl6zA4 bkYqE8PvZixcr2XA6GgOTE9UwPRkJazO1MDhYg3cr8oRdJ9/rSNp1EWNaJMm ahoVPdcSwv1+h6wkJl30BGr9taj106A+QIMGkQYVvl2QB3WjQdyJ2uAOVAY2 oyywAaVB1aiKbIA8qQua3C5oScedubXQZkioR7cxUU+p3/CYnolBrTrVvIEp 2vlx1SpG21dIH9QtaqGwTuk6XEc6ujHUqvzlv41GXp1ocUD3+p9oepaQEjaF zIQp5O1tHFhDWSIvmYKiQr95YAcpRNNEmlAwWhmkDy0NhpoU0saWtfDY2DGJ GuUgtp88x0//qCfof8aAfOml7SmgACpNnaZnn0VL/jzaSxbQVbGE/pplDDes IDl8gYS2jULZDyjJ2EVJ1vJrWOpYxX/k6wqW1MtY0Cxh7pWOoBHy15B2GP28 PB0tLX//B8f1d5B61KLAp+Ol9imm1alKW0VjjvCwZAva4sfor9jGSPUObwdZ nfJRKV1Fkns3NDl9ZPwtig1hCtou/5yNjh22Y7V9m215TCe4iSk6rjG2aUQt sD1vUXs3hhUKrM9OvuCLIWU/8llUCoLa6LoEvhhDYTRdQ+IyXdcGWrK30SF7 SoP3HIOl32Ks4jtMVQsO+3ss0Nlokuls2mj0FN9jgzyxqfwOm63fYa31Wyy3 ki+UTzCjeIwJImdUSb5Q/ssu8YGqgj0V60fZOIH0+CrdugvC+gs5L5Y4jCNv 2Fci9D7FiFkH/Czb4GPXTgekRqgnecOvE/GBXUgO6UZycBfSwrqRGd2N7Lhu SFgsZZIh5OUNQZrXi9QsBVJzFEgmXyRRhCTlqZBQ2IHEAhVuBebhuHMaDhgG 4aChr+6WHDT2xGFTT935cUtPnLT2wFlbV5wjYZyx98IZOxdcvX0fTlfPweLs WVifOQqTE8dgfvoYPG8c05FGqMFplIfZY7zCFRqJOeKdTuLEO7/AifcY7/8C xxkn9/0Cp0kUp/f9HCfe/RlOvcfje2/g1Ptv6P7vS5+9rTsaC46HzGFCESJs Y3Hx61sULaZwvRIO3+tpcD6XA5NjZSSuapidrIfV+SY4XmmBxw0FowH2l+Ww u9IPV5MnCAr9f5AVuYIqUS9qg3pQT96tCyJLkDnqyRwNgTwGqiEPJnvw2taG dqIqRIWyYDlKQ2pRHFKGhqR2dBb1QFPQRgapQxdjpE541LSJ8YYNTNDhTrBW TChWMaGiFG8XWGOBjEHm0AollbKc6TGi7sbm4iL+jfTx6o8f1L3+r+hSPUZC +BRSSB85GVMoIH2UUYFUU4HUU4E01k2hWU4qYQlTkD5aSB/NbaSXvW31Klsn 0NY/r+/0+bs/7qFBhr1W9540chIFiRQ4mVNokE5DUTSDjrI5dFXNo69uAW1l i0iNXUZO8gpkGStorVhgss62LTJZZzsWMMsrMa2do8h40UVDs0Xz1KsZgqZN i6dPnugnLv3vf8Y7zSLPg4kb0EfnoO/IrkhdQkPOKpR5a1AXb6C3fJP+aQuj 5Ap5ziIL6gLSfIWBITMoS5zDRMMqOeMxm7TasSWsANmxicWOdcyq1zApeCct bxa93YiaN6ldi/6WJr2Xe7GSTL5vBRtAtRHYixfjvUvJHrXpm3RRO3RRT9FV RBdV9gyjlc8xUfN8z0l9i85MMgbJalXxLdaUwsMrIYSu7qdkjyeYbyXptZI9 VGQPFdlDNaPvzm6l2mhuwubMxN4TbIE9xpGVUKlbTEG3oMLeLOcyRjUZpIG2 piKgFqEPWhFs2gEPizZ423cgwFWDEC8tIgM6ESvuQgLZIzG8CynRZJL4LqQn dyEzvYcWZRApEg3iMlsQm61AtESJ6Lx2RDLCpK24IcrDSc9MnGKccEzEIaMg 3dX40tQfh8289Qxi5UYGccMpMshxGy+csvfguTOuHzrOLL4A2/NnYHDqDOXG KbhfO884AvfrB5Hs6ozcACfkiS8j2v4rhFh8AdfbH+HIWz/DsXd+jmNkkuMf CPFzHHmH75FBTrz7cxwng5wgg5z8QM8ipz58HWc/fQuPLh+A1f2ruHfxGs5+ +RDnPreDy4VgeFzNh//lOlifqKX+kMPsjBJWl9phfFaB+8eaYHR5BjaWPyAw 6BmyAmn1qC2yXRuQ7VIFqXsVv6+HPKyLLKJGXWAH6oM6eFShIViLBr5fG6ZF JW1uWVgjSiNqURRWhuqEGqhLWNCKVGSROvSUdGKwdg3D9WtUlNQaTbStLYKD XsJo2wIF+DyGNbN69hAe9nbqGWSA4HzzX2ePFwv+/di0Tf1+nv8TOrU7iGFa JzGts6RTkBXRx5Tpt58rJ3NUkDkqKDzKyR4lLWSX5kk09y5hc/f7vS7kn2Bt +hky3AaQLZ5A7l7fSmU2aSKPjFM8jfbyaXRWz6CnboYyZBY1hfNQ18zp+lcm WhltsxinUxvXzOj6VnTUQIfe3TWJLu04Otr70d0z8A9/8pA914XW2qcH+SEj uvtemjKP2qxFNMuW0V60gs4y/YCfodp1VtgZVoHHtPHbkEufUf9soLN8EUvt NEGMJWFuOyXOPMlgWruEcZ0ZmtVfd80gBts1GOvt1isr0q5OR/kq9cfgMd0D W70T2kRTzjba8nZYMXbRX/YEw5V0QzV6N9Rb+hgdWU+wQRO2rHxKPiIB/C1W VbsMYbDhNubI6NNtLCxsks7FtvP2t5MOVJ0YbmnEtzuP9QMT/LGx+pj6oZws oF+RUFgy7A9rndZCHlcHRWwD2qLlVMxNSLFpg6dxB1wt1fB01MDPXQuxXxfC groQRUaIjepGDBkhnoyQQEZITO0kNLoRmtqMkHRhwwMFgqXtEOe2wyG5CVdE BTjunoWTbhk45ZiE007xOGkfq2cEMxEOW+qHihyzCcAx20D6E1+ee+GYtTtO X32Abw6fwu3jZ3Wrezt+cwHONy7B6dpxeNy5gjAzX8Q4OSLE6hsEmRwkGxxA iOUBhFkfQITNF7h24E0coX44SjY49PbP8NWvf4av39WzwtH3X8cxssGxfW/g +D49Kxwlcxz94Jd4IEy1OnQLR/c747N3neB6Lgwel2VwOt8Kj7PtsDmphPk5 LS4f6sPNc8swtvkBLg4rCHIaRbx1C9IdmpDmUIdoCxkSrGXIdCmGxL0Y5SI5 s19NjaFCnVjFoxJ1wUrUh7WjJrwNFeEtKI0kI0TXoTiyHKWxReggI6hLWqEu qqEMVqOvdhn99UsYlC9isHmBunUeQ21zGOyYxSDTY1CQ2UwNoftxiDqyn8hc XVz+dyCEw7rX/4iOrh1oB3YQwQSOYwInF08hlYSQRimRXDWFKgr//umdt/b6 QNZmv0Wa1wgyQ6cgedEHIplCXT5VBg2MigZGTS7pIpf0NEyhn1wyQB4ZpAoZ pPoYpInpp4Hp6xT6UmlyGO0US60dw+juH/vHP8l54SvXrRt5gfpHykWJM6jM mIU8dx6KggVe0SV0VS6jj16mOnsJaVFbkKQx33OfoYhKv6N8ngm2gvm2ZZoH mhg1TQyL/2TnPEYFIyNc2c4xDGj66bTa8WR3Zy/n/7Pu/8v33BvFKh5BQeSM 7rwqbY2iQxj9tUV+f4yesm0MVG5jtIYcULLJizOD8qg5NAh96PnLWGrdxjIT fYWJvqzawqIwwrhtY8/IrOwpx0keB5n4GvQ3N7wciiTseieJL4EssYLXJC9J 2NiiMKmGIqcetQlyNMY3QxmnQHuMUrdobHesCn3xbcjzatdLmf8ET+8u+NNI vPgKi+1GOBM+PLETESmMNC18k5rgk9oCn6x2eGa24XZIFQ64ynDYPYfmIQUn HBKZ8Ik445yAMy5xe3r1dRy2CcIRuyAccwjEUfsAHLXzwVFbL1z6+htcO34N hudvwO7mVZb1q3C8ydL/0BxB5mEINvfVzTX0fHAKASaHmfQHEWp9EOG2BxFp dwBRdl/A8+FHup6HL976zzjAZD9ECXCYyX6YsuAwE/7EZ5/jzOELupacPXSJ l+fwvjfxPg79xhgXj8fg+McZsDyeCI+LUhqIGtic6Gf5H4LF1QU8vL0Gc6NF uNwdgPejPgQYdyLKqhlpjnKkOtQg2kqGeFspUhylyHCW8nKWoSygAdXiFtSK lagOakZNMM/DWlAV0cTbzUSPaUBxtLDWVYVumYuGnFpKZiU6iqqhraTlrplH T/0cepvm0KeYRR9lXx+5vlet7xMUcuI1XSX8K/R2jmNsZEoHgr8g2/+1iYwv Mt5Z9/q/YW3uOyT7jiONBiKLBiKf6VvK9K1h+sqZ+YpypjCzvoPpq2mcgpap 26WcQidTt5Opq2FTO5i+rQyF0AfRNobphfUXGwX9kZnQ6+a/162blhc3hWIK heqcaTTmzUBZPKfLza6qBbQUzSE+YgnpCSvISVlBhXQRk3TVU60LmGqbZ57M U7RTNAj1mWJhkDEgPJDRjrJVvXj29Bn+pPdU6taIfArgF72nhfHzdBHLqM9e hUK2ho7CdXSVbqCvchNDNZu02DOI9Z1AZdIu5JIlFNNFLCjpGlqF2GDSrmOe FXqmY4WNoXDTslJrZ/VWj+Qx1K7G2vzcX+/p9sayFuQllCI/sRIFzNeCpHqU JDZRFyogj1dBEdeO9jg1tLEa3YKs/UldGErpwkgaq7CXXNdoR1ZsWzd94rqJ u+EV3q0794/vhl9CF3wTtfBJ0sAhrgmGrPjXgytxwCUXnzlKcNBBgkNO2Thh H0/dnoBTTgk47ZKAs65C6Cv2GddoHHcIw3GnYJx0CcYJl0CccPLD+XvGuHrq Iq6fu47bl67j4dWLCLe3QJRLAeIdkiGyCoPLfUM43b7AhD4HfzMmsA0TmMkb bscEtmcCOxyExz1hxcqP4HrjN7h1+C1cPHYe35w3xJ2b+p6Ha0fv4/aR+7pz k/NOsLzkA5tLfnhwMBgO16tw/pNM3P8qHR7nJHA/Xwy3s11wuLMAT/NVBNmu wMNgFB6PRuBtOAh/025EWjczYetYoesRb1eAOPtcJDvlIs01l9qtEqX0SeWi WlQENqAiqAGVwY2oCJWjLJyJG1mHwphaRiVKEsro9QpQL6lBe5kCbcUtaK+a gbp2Ghr5NLTNFLhCVqj0vXIaZoOwh6pQ0Lq6hM79CYyOzr+09v+Nifvq7D+X vV9aYd2tICqTIliambi5TNxCJm55AZO3RO/8m2rp9llzFay5Sjp/BWtuCxO3 qZ3anM2sbZ9EhXIM20++e/2FlJ96igyXPmTT9UiiJpFHa1CawY8UpnYVTENZ QjlfMQOtTs7PokI2j7bKOQzToo8IIw1a6VbaGeppDPMKDPAK9PIK9Lx4VEp7 3T8w9k+vFFThbLBR/3Q0368fBaHjL8V8TeYimqTLaC1YoUxaRXfFKvqr15AY zL88eINF/f9GeeY2ikgSs8o1xirmWnnO4j7TsYQpzSLGtfN7Qn6KMYYh5mZP a9teQX0bmysbJKNCmugyFCQyMRMbKaEVlNBtqE9QoyW+E21x3dDG96InsU83 o304bQBjmYOYyB7EVI5+9WqRuwqBfmrduYuoE24hnbpzzygtPKO18IpRw4RA +8oxFV85ZeJzJuMXzkxOJuYB20wcsE7ZS85EJl0Cj5TSzvFMyDh+H/+iW/+U VyZO+sTjrHcYzloF4MZ5U9y6YoF7161gdNcN5o/ECPGOhJi5HOIlZV6I4Gnw kHlyGa4PLkJsfQghtocQavclwh0OIdLxEPyMP4fj9Y91q8k6PbgFO1NfODCc THzgZOwPdyN//X//CQLuiyG6K0bgrSAEXg+C2zGm5oEYRjLMPs+Gx6kM+Jwp Q+S9blhd6GYa83h/Co7G0/C0nIGf5QSCrPuR6dqCLKc6pLvUIMtdiApkUkQX +NboNvAsDmDdFFWhJLAWxUGkSnE9SsMYTMuiqCrarXIUxZeRlUtQkpyP4qQs qEixzSVqKKg3lSxYKnrXNvrWNqZmG3GvIuZVGkFfMnQ6cxIK6szdJ8//HTLT ba+jXdv2GFHhE0hIYmbSVUvoqvPpqospostZSivZsiq2rIpZWclyWsHWlTA7 i1omMTr/+JcvhPXMc6S5DSEzeBLZMTTmycxEflwVP65h7wGjTlzzIzuFh4xM 9F5+pLDNUR95qI9JLgiJ7r2Hi2rhAWPnJFTqMfQNTem7+/7pZQYKX1LPPsjE o7rzwqQZVKTPkvLm0Zy3AFXxIjRlS+iuWkJO3CJSojaQnbAFacoGZGmUzy1L LNFLutGYkx0LmNDMYUyohl0zNCuCp5/EgHYEvSzPS/ML+uQ7ytvViAJd8rEq JvA8oVW3VlIl5aicCaeMG4A6fki3vmd/6iiGMsYwljWOCck4pnMnMCvTLyEv cmlDkLe+pzJI3IWgMH3yiaI0jA4EUgnf8i7Dl6xWQgJ+7pCFz1kVP3PIxX7z FHzGOMWEO2afiCO2DPtkHHVKwwm3VGZcKs74peKiKBmXg5JwSRSP6+6BeHTT BveusTrdDoIh08LUMBgWJkGwsIyCtU0kXOz94WRpBXcra/gZ3Ief4RkE2XyJ YGZeqD2zz/FLBFHm2t/4BI53T8LJzOc1uFAH/z3c+ept5gNfE3+IjEQINhAj jIkd8UCMqHtiRN9h3AxC0IkAeH4RCY8vEuF9KB1+X6Yg/FwxAq81wOFsA4zP d8Lkah8s7gzA7tEQ3MxHILLvh0TcuafY/wkF3jXI9a6EjAWxwK8ChQEMUTUK A2t0j1gLQ4QNNGtQHMX3Yqt0m4cUMesKqWiLEmXMvGw08TbWUio2MPPkxHcT pWIzsd1MbDcJFYeZ10wwtmj0x96RpV//eMbV1dVBpVL9i4x7dbizh+71b7G8 8gO0vTuIZA2Mz6VdZXpkMj2ymR45bFE20yOTrarrWsHAzPZbe9p3deZbJHuO Ii1kChmxLKEpTMIsJiQzrJZltJFltIUf0VpDqmB2dTC71MwuDcuomtnVsffs TSloX43wR06gc2Dmn172Gust6z9gffrpS68lDZ+EjNK3SOgjy5pGvXQGLQWz UJXMQV0+h8b8OWQnLSCZOVaYvUDvPI+RljmMtjKEB+Jq5pNmWtcR0L83BqlP 6CfTDGNkaHyvm/gI8mMoceJKURBfr9sxrCBeg5L4HlQzoZrihqGKH4M2aQK9 afTgmdMYzZnBRO4spmWzmGUb5gv0Fbk7YxxB7vrEEgf1IjBEP+E3ILITAUwu 67BmXPapwFf2KfiaCXPAPh2f27KyOebhE7N0fGqRzQqWTEmZiuMuGTjllo7T HgyvFCZVCs4FpOJCECMwCRcC4vDI3B6Whma4e1OEB/dCYGgQAlOTECZVCCxt ImBlHwNjExvYWDyCo40J3OysEWN6BwnmJyC2+wohDl8hzPEr2Fz/FE5GlnCz 8ON9cLf0xeesP77ws/BFIEtbiIkY4UbMIkMx4phZCcysJGZW0h0Rkm75I+mG H/w/DYT/F9EIOBiPjC+TEHk2F8EnS+BxtgoOl5tgcU0Lszv9sHrUDxfTHoRa VSHKtpRyvRHZQSqUROsHSdRGNqNCXEe5WYG8gHLIAiqRF8Tz4HLkhZYjP7KC 96sS+bGsaQnMrKQiqpBC5CdIIY1LR2nxEEpZPSqE7hfiuJrVo4Z1LT5dhfgM FRIZyUKktSIzu+OdH8+sH5vP5LPn3xbWf0D70A7aR3bQMbr9/t4zonICMyl0 CikEchaBnJfNEiZjA1nmakgD9Uy6xvp/SQPNrElyZk09o45R1TqOnacvOpH/ Huusd5nuA7xwE8iJmoKUyrOYCV2Zw9/J42cVUn2WCuqTert6WjdYr6eBhrlp Gv0KhopB89y3Z54F7d0paG8mh0Y7jqGRmb3kEDGBKDOj80hlpLO4Foaa0YOy uCHUxo6hJW4S7SyAXalz6M9cwHAOZaSUcjJvGbMFy5gvWsZiybLu5i6XLaM3 R98PFBQwAJFY/5DbL7wHnmIlbniV4ZpXORMgG0co+w45Uvo5yrDfMR+fmGfh oG0Oq006JR6rjSu1nXsWKw7DJw2n/dNxViRECq54hOOBuTPMjKxgaWoFcxNH 3H8QjkfG4TA2D4O5VSjMbaNgYu0PA1MTGJiZwt7mEdwcrsPF1gBJDvbIsr6M SKvDcLj3OZyZHB5MCE8rP3hZ+cPb0g8BFv4INvdHuFkgopkgccZMCCZIChMk 7WEg0u/5I+NuADLv+CPrrj8SL/lCfCAU0Qcj0WhQiOQrWQg8Woig01Vwv1wH pxuNcL7XDDdDBXxMGhBkUYgw60JE2RchzqkISa7Fumsli1CgIrEddUlKNMQ3 oIqlpjSsDJKQEuSGlUAaVYrcmFImQwmKU8ogSypmFCGXCRLq7ofg0HZISfhp uX2ITVbB1aMQnl6F8GGIGAFuhfy5YqQHViODwjLdl+FZhUFic312+1f/3xOm ek/8rSz+gFKiI46WLJnozaJvkrGWFLKWlNCSlbMUVbCWVDIzKpjCZYo98ccY X9j51d4T0HW6u3ShV5WlKSuapYnir4g2rJwfV8tkkBfpBWArP7Kd5UndoB8e olXsmdD2va4ZrV7ttmkF5TuBvuG5vWEI/wuaC1nfo8k0MfW6VXoLYrtY3wdQ LixSHjMNRcIcOlIXWQFYNXNWMSpdx0T+BmYKNzBXvInF0s2X4wBXKzewxuiV Luy99zb83Vvh51ILR98G3Kd6vx0ix0neiK8ds/GlUw7228vwiY0Un7BC7LfO xWH6oONOGUyCLJzwlOCkdzZO+bJiBGTilH8aLrhFweCRLYyN7WBuagdLCztY W9vC1tYGZgTxQ/M4GNnEwtQ+GgZWjvzeHAaWRrCw/gaebtfh5XgZ/nY3EOHk hsSHd+D5yIagp7HxpYv6Kfz4KrIMQIilPyKZA7GmgUhk4UkxDkU6cyDzUSCy HwVBwpAyZAZByDPge3f9kHjWCx33M1BrJUPU6ViEnsyA+HQFgi7Xw/WaHA63 m+D4oBYej3LhZyKF2FKGMNu8vUv1OhLd8pHikY8073xkhwoL5DdSHChRl9OE +izh+wrkUnZlMqSJxH9qBSTJxchOLEJKTBbuXPSHg2Md/MX8P4h3N08Gc8CX 5+G+xUgU8XfCqpFPKVcorkaRIO9osgp9GJ4M12ookzqwNbP9cmTCq88G/igZ /tyOYW1tbbqpacJ3tXu6bGn5B2h6dhDOEhFL5CblM0WZCJksEVmsZVlMhoza l7rs13vVRdcn6T2KVII/nc4nh+DPp/MppbSr4kfU8iPk1GVNBL6CwFcS+K0E fit1mZLAb9kTm03qvT1fXpnnpO/3zAtLR0FUOeEvbDVE7o/uQ2H0KCqYag1x c1AkL0Gdvoqe7A0MSbcwlv8YU4XbmC3ZwXzZLpYqdrFStYvV6l2s1exglIV+ PEyJ1cgWqFJHEBE5gGC6FsMQJa76NeBqgBynPCpx0C4Lhxyy8amdFB9bSfCx uQSfWuXiMxsZrX4Wjrvm4IRHLo57ZeOYTwaOeafimrEX7j9ywCMjRxibOcLM 0olCyBHWdg6wc3CAg7M9HF3sYOfiDisXP0L+Hoytb8PY5g5MbW/B0f0BfH1u wdf2LALMv4GzoQ9xHgqxhQj+xHwAI9BKwH0AoixFiDcPRJJpBNJMIpFhFI5s wzDkGkRAZhSBfOMIFPLfihklpuEoZm40XA7Cs5RSJFwWI/ZiKGLOR0J8Ihfi SzUQ36iD8/USONzKgfODHHgYSuBnJkGQpQQhexvhRTvnIs5dikRvKVL8c5Ek Yh0RF1OR1+h26ZVlNiI3vRZZyeVEQjnSE8qQQf5PSciD6aW7MDhnQ3uT8BpC g8tIwBHiMmTFVkMaLSzEKTiXapQR+hWEfhWhX80SUMMSUM0SUO3N8GC48d8c KtEep/rnH0P/X+vQv7S0pJuEyXgxN/PVAcKNL5JicAdtw4J82sa+vefG5ZJF JIQxGaid0im+JdRO+aT0kmLSOxOjitqpRjArrBB1rE911E61pPRq2qgqRrly AuPzWy/mObzq3/Xvhep70kKzURAhbHUjrEbTyRhEUeQ4KqNn0ZCwCGXqKtSZ m+iVbGNYtovxwieYKn6qW+ZsoeI5hih7xqIGoPVownr8IL6rXsVz7VPsduxg Vph5WbuK4swJXPZowBXfRnwjasJ5Hg855FH/k91tc/GRRQ4+Ms3Ex5ZSfGqT j6+cZDjikoWjLmn42jUVZ82CceuOC+4+dMcDIzc8MnWFkaUrTG1cYWHvCmtH F9i6OMPezZkwdoKzpwOsnIxhZHsHxvb3YezwAJauBrDzMoSn7z142J8nq1+C n7kX/CyDEWgdhVAexVYihFgFIYLncRZhSDKPQpppHDKNopFjFAupcRzyTeNR ZB6PEosElFnFo0IIS75/JRDrpM86hzhk3wuk7AlA1m1fZN3wRNiZVIivVMDn Wjlsrklgd0cCp4cSeBhL4MvUFjHFxXt7mES6SxDtJUGsH4MQjyPE40NLEBde gtjIUsTFVSEpuRrJiVVITShHTEweTAjvbz79ghCn3LsZr9vFXhhcnPtiD/to /R72VbzPtcR4PTEuJ8YbifEmYQ/kvQ3sG4n1JmK9yaMKTS6VqLPRbWL/+o9h /T/oJty8mO0nhPBFGfTnNp19ujegZHnxexRTAUUnCAaFZpzEn00FlEvWzidr F5C1C+kNCmliCsjc+VRBsqZJjMzvvHzG+aegfqgHdbAEBeHCfiptBHcPYwTF kVRTsfMoCJlDhPUIRI8GUBJIzV7wFOPFzyEX9WOIfkLrocFCyiK2ap9hS/Vb bHV8j+WWb7Euf4oV+S4WGwjq+nWUybogSqyBS0wjLCJacM5bjmPutfiEN/Mj Kyl+Y52Hfcbp2GeWgd9YZOIjy0ycpQa4eM0dNy7b4eZNV9y+74l7hl54aOZN PvaCobUHTO08YO7oQY52h42bO+w83OHg5QInH2eC2BxGBLSR4yMYOxvCytMU dr5CGMDK6Cy8mRgiC/I2ZU6AlR7Y4daxiDaPRIxlFAEdi1TTZGSaJEBinAQZ zwvNU1BsmYpS61RU2Kahyi4NNfZpKDGOxQD1x1IKSdIwgtweRk0TirRr5si4 YY3c256IuRQFPwLb5WoRrK5LYHNXAkcDyd6d+SlEzhIEE9ChBHQYAR1GQIcT 0OHU62FhpQiPphEmWKNiyxBJj+XrkYRbHx/G1f0HcOXTz2H/UApn47SX+68X 7O2/Xhmt33+9IWJv17HQGihDatAaXEMcqMQ1lBsqAlwVxCDIVQR4m28VVJ7l aHEowu7M5i9+DNQ/Pr3jW93r36Cjewea/h0UNiwjiu42lqI7nqI7oVx4LNs3 vcPfW9v54eVnvfZHYxUC/8X/pMNvkHRvMYwORh9xPEZSnkF24JTuwbPfo0n4 PxhC5D0tckw60OYxhNE0ao+a32O86f/CjPL3WBFWL5P/gPXG77HR+B2Pz7HS 9BSLjSTmxk2U5fdAlFQHUUozvOPkcGW+uIbV4RLv9YGb4fj8Yjj2H/HC/sNu OHzKE18zLl70wI3zdrhxxRG3brngziMf3DXxwwP6wUfWvjCw9YaxozfMXLxh 6eYFa08v2Hp7Ep/EsJ8bLDztYOhkACMXI5h7WcLG3xq2ARaw9DKClbkZCdlD h99AndYIRpBVBAKJzWirLKSapSLNOBUZJqnIMU2HjHlVwJwqsc5GmW02Ku1z UOOYgzpahjpqp6qbyXie1Y4iswTkm5CgTWIhM45Gxm07hjXDDNJ7Hki9QW96 IxOmV3JgdksCSxKzrYkEztQe7iRlL2LY100Cf1oNkS8jQIaAoBL4h5QhILwM gZFlCIoUjqUwf+CKix99jUu/+RJXP9qPGwcvw/xGBoJcZP9iO/CqmBrUR9ei MbIOLRH1aA1vQFtYAzoYap5rIhqIDS3/5W+g5X3RhNVCQ72vDWYEVkDjW4o2 1wL8G0H86uSCveftf/rDL3JYOM8XCSvnEY/B1MAhA7rBtUVRc4h2GYfr/Xm4 3JpHstkS8v22UZH0BMPE4UiNfgGehdrfYqn+t+TO3+r2kVlv+h7rzd9jrflb rDRTRDQ9wWzTY5QV9EGU3Eg8KgXrwL/akrgoxJGrYhy9HoFjV0Px9WlPHD3n jRMXfXHsgh/uXHHBtW+ccfOWK+48JJeaEI/Up/es/fDI3g9GTn4wdfWDuYcv LL19Ye3rA1t/L9iJfGDq7QIDV2MYupnC0o8WMdAONkHWeOhIkWDmxsLsSSz6 UQOTRy0jqUXjqH2TEGWRgQQzeiyDPOQYZkPKAl5AbV5sK0OZfR4qHfNQ45yP etd8NDDKjDKxLG7FEHmrzDoNRRYpKLRIRr55IjKIl4wHjgxbSA38IHvkSkza wP30I9w97QtD8qkxtbA5tbCtDbnVkbh0lcDFQwJXcqqrnwwuAUVwpZh1FZfC RVwCw/u+OP/RWZzb9xk59CCufnYEFz48BKuvvGB5KR751MpFCTUoj69FdWw9 LbwcTVFNUNKTtIUr0BGhgIZisDNaie4YJXpileiNVTBaeN6Mnpgm9ETL0RtZ i97wavRSTneLijCW1fzzfx2OL4ai/Lkdil7tTvkv+k5xvYL+I1p8be8DW+h2 dbPigzREpYDGCbqyeUS5TsL54TLcTZ8iyucHOoYnqI6j6yr/DpOV32Om5nvM C0upNbCiC8v7Nwko/O41rLG8H9CtKbLQ8gQzzdsQxVcSjAIxNsGVaejKhHQN l8MtpJ6AaSYgI3H8ViyOXhDh6Hk/nLgcgJPfiHDmeiBuscBfv+WBmwTkbZqy OyS0O7YBuO8YAAOXABi5B8DUKwDmvv6w9PeDNcFoFRQMY18qW4LR1Nua/2YH K7EDDD0tSapm8LZwh7e5NwEZyIgkIOMRRBCFEowx5jlINs1DimEpi3o5Cs2K UGxdiDKHYlQ6l6DatQT1bqWQe5SywMugtqrGSnbna6ggu+1HOUV4kXUm8q3T kWsRgywTX/o5J0hNxZAxn2TGjoi4chWnf/U6zr71Oq4deYQbJx/hHjFpYC2B oT0x6iSFiXs+zLxlMDALwK2rtrh4+DZOvHsEpz/4EmeIxQsf78fVz1nbPz+C 85+ex8OTpYg+HYQ8XylK4xt5p1pQT6w1RaugjGpDW0Q71JEd6IxRoztWg954 DfoTNBhI1GAwSc3oYLTzexUGEpQYiG/BYGwDBqkLBqkt+sT5WFUN/uzHMflj Ix7/y8sHNX9YrxJ/p1soo8C/HgUitW7GUkGoHobliSsQ2Szznq0jyH4T4W4b aM3ewQjd0kTVc0zXPsdc/XMsyJ9jqek5lpufC7MNiD4XrCqeYlnxBPOKXcwo iMOESgTocNhM/AkYJB7DeB5cD9vAQZh4dODYrTicuJuIY1eCGYE4dU2M49eC cf6OGHfv+uL2Q2/cNPbBbQtf4tAfdx0D8cA1CAaegTDyCYSJnwjmAQEwCwqH eXAEjPw8YOxtA1M/e5j6O8BC7IibDuawtLPj3+QJL97gAPMwiCgmRSSzQPNM hBEMsaY05Cb5yDIvRLZ5BWRWDSQ8Omr7ClS5VaGOrkLuRZdBJ11lQmeRPQp1 SB2qHAtQzahyykeJfS7y7UiqthnItUlGrnUcpFbhkFqKIGMOyEzMdUA8QyCe f/t1XPg1j7/+Z773Dk698wkufPQRLn34a1x8703GL3Huvbdx9O1PceydT3Hi vf04/eF+XN5/CFcIwnMffYGrRzzgb1cB41PViD0TjzLfctTFtqORoFNEa9EW 1QV1dDe64nrQk9CL/sReDCT3YiilF8PCDoRpQvQwuhmdfE+D4ZR2DCcpMBwv xwhF7VBUEfpCJfgLkPhjG5noXvX/EIHN+U3k+9SgwK8dBQHCamATKIieQxnx J0w2KY5/jJzwLXQV7qKv9AmGdFNtn2CylhxX/0S3AINQfJean5D7dok7IXaw pNzGvPIxpls3ERAv4K9FJwxdwxsZwnkLHAI7YCsahpN4gkW6m/hLwqkHKTh+ IxwnboQwQnHyThguPghhYQ7AA2MWa4rE2wL+nFig3YhBLzEe+Yph5B8Eo6Ao GAdHwzYqCa6xiTD2c4BJgAOMA51wx9UGN5ws4WnhQvz5wss0GAFmUYxEiCgC g8xyEW5ShDjjEpqbEmRbliHPthL59rUocmxGpZMCdc4sdF4NaPRuQLFFiW63 yqmMHt0WWjUuZahxLSVPki/dipDvIIWMAjLXnoRon4RcuxhI7UIgsyUZWtnB 6eTXOE38nX37DRx/81c4+qsPceo3n1H4vYfL772OS++9gfPvv8n4Jc5/8M84 y/dOvvsuTrz/G5z9+FOc++QgYz/unnhIHg/X7ewb562AyfEmJJ/LRZ1PI1qi e6GK7oc6dgCd8YPoSRpCf/IwBlOHMZw+gtGMEYxlDmM8S4ghxiBDGGsk7IrZ pdsieSRViZFkYjChAsNxMmxoB/SryP/lGPxzW1vofkm/EIuJbpJLgbeKGOzT T26gKCwl/mrS19GUvQmVbAvawsfoKd3GgG7m5jbGa7cx1bCNmcZtzAnLPbPe LrY8xqKCodxibGJOtY6p9jX4x5Xp+E+PP4H7lHANaaZp6KaIG4NT0BTcQ+fh HbmMa1alOGWYjlMGKTh1PwbH70Tg7KMIXKShuW0owkNz1l8bYs+R564iPCL/ PfKLwKPAeBiJ4+AcnwtRNuu+pBSG/k4wFjnggZ8Trjna4LqLNbzIP17mInia hMPfNA4BpqkQmeRAbFyECNbdOONSpFpUIMemmtir061qWeYmZ6hQ7aFFk3sr Khzr0GjVjBXpFBR+TWj0qkMtr2GNRyV/phyVnhUocSuBjAU115EYdExDrlMC pE4RkLLdMnsXOJ85huO/egNf//JdHHl3P858/BEuvPsG+e51XHyf8cEviLtf sqac5evrOM33zn7wBs7uIzY/+wCXPv8Qd4+fpKClubKIRUE8TVKcFhWx3fC7 042Mc5Wo/CYTHbGj0CaMoSd5HP2pExhMn8Rw5iRGs6YwnjOFCckkJhlTuROM cUzmjvG9YYzlDGAki5yYQQymE4Np9RhJKcFQQta/FX+vDp96BX8RGGqaQp67 EgU+3S8H2guzhivTViDPXoVStq4fr1uygd6KTQxWbWKkdhPj9ZuYkm9iuklY FZJ4a9lgzV3HfOsasbeKmfYVTKqXUFzaCf8k8l5ILVxDG3XYcwxqhY3fIOwC xsl/M3APW4R39Cr84zfhTA1w06EKp82ycNYiG6eMk3HBPJ4RhytmYbhrI8Z9 p2A8dAvGI+8IGBJ/jtE5cEsuhm92LfxyquCXWw6zcBEMgog9F3tcsbfCVTcb Yk+ovcHwNo6Cn3EiAoyzIDIqgNioFJFGFYg3q0CaVQ1y7OqR79SIEtcmlHu0 oMpLiRrvdtR69+q2U1/NWkRPfDda/FrQ7NuIWk9i0ItmgLW53LMGJZ7MafcS SFxykeuayWAddiMHulIQunjC/uwZHHn7fZza9wHOvP8WzhJ753ScxyDOLhBn 53g8/cGbOL3vlzjJ90/v4898/DYuEH/Xv/oKrrdcqF9jqR2SdDvAFMf20RQP Qh49gsA7I8i+okDTvXx0Jc+gL20WgxlzGM6ax2jOPMYl85iUzmNKNo9pIfLm MJM3y+MMJvMmMSYbxWjuIEZyWJOzOxjNxGM1sUgO7OnBP/3bMPjqU1zdL/2t 7tQAEscm5Hl00SQPIT98EoVxcyhPWUBt1hKacpehEsakFq+iq1w/yUyYzDdS v4Yx+RomGtcw1byKaSEUK5hWLWO6fYnYW8C4Zp74U8MzsoJ6r4bRCOdgcp+P lkZ2CHb+E8TfLNzDl+AdQ65M2EJQ8jaC03YRlvkElkFaardOXPOowXnqqXN2 WThvn8XaWgCH8DLirgDeKZXwTq+Eb1Y5fHIq4C0ph5e0HE4Zmbjj54hLDhTy jta47G5L7PnAwyQM3gbkPoMMhhQig2IEG1Yg0qQS8RZVSLOpg8ShEfkuzShh XpZ7kft82lDr245SV5rIgDEsVa5CLdKiVdSGJv9W1js5an0adAvalXvXo9S7 BkXeFcj3KoLUU4JcT3KgVxwknmGQuPkixPA+jn/wLk69+xbOvPcrnKbOO02M nSHmyHlE2k90XHdy35s4QfwdFyZ88t2zn7wDpxvGsD1nCodvnBFEAx5olo6C 2H6UxIygOnocjdFTUMbOIPThNHLJhW3Mqf7MJQxlL2NUsoJx6SomZbxX+eSI gtXXMFu4gv+Br0uYKVzAVOEsxgomMZI/ipE80qCMpVjWhhEpy7CkBFvE1V8A vx8bRPAK/H6CjZknyHXWQOZLzIaMIy9mGkVJwlynuT8MyizSD8rsqlxCb/US Bmr5J9UvYUS+hLHGJYy3LGJcSci1zWOsYw6jmhkMd86gpakffnE1cAmqejG9 2dpnGLb+E3td7sLXG3rkpTxGcPoOwrJ2EZHzBJG5T+CR+hSJZTtIyFtHfOET JBTtMnYQKZuFWNIH76wWuGSUwTW7FO6SYrjLCuGen4c7Ii+cd7DBOUcrXHZ1 hpdJADwNo+D7kKz3MAsBj/IgelQKsUElIkzIfGS9NLsG5Dg1I99VqW/qf4ca XzWKLdVYr3mCZnEXlCFDe50Kn6PKtwUVvvr1vIt0Q4nLURRQBJlfNrJ9EpHj E4Vc3wBIXK1w9J23cPy9t0hkb5HUhOM/4ySF3SmC6tSHb+hmER/b9yvGmzgi kCCB5nj1Adyu2xJs1rC/7EaRmopEz3oaxBGURk2ghoWqKWYOrfGL6EheRqTx AqSGo+i0b8KwZJMktomJvC1MFWwRWVuYLdrSDaaYYyGbK1nDbMkypop5x4pn MVJIxBWOMPoYGkYLEVjFz8n69wLb/6g7DUNd3BBy3PuQGziG3IhJyOKnUJI2 harsGd0IxeZXRih2Vs6hp2YOfXVzurUZh5oYilkMq2Yx1D6NIfW0blWj/r0R it4xVXAMqCCv1cDaWQVrtx7d7bH1n4Rj8DzcIpbhRZ4TvgJTthCcsU20bSM8 h4iS7iI6bxd+smdILttAHFEWX7zNeMzYQiwvXVTRGiILlxFetID/t70vAW7r urI8TUpx9nQ6S2XSSU2qs/RMp9Pp7ulJZVJOO5a12FZsSfEWybbs2LJlbdRC iaJEiTvFfQMXcAFJcAcBEARAgABBEBv3BSRBcAO4iZQoURJFLZa7JjU1NXPf /x8USIOWnNiqdJVZdQHwA/h4997zzrv3//fuS1VOIbl+nGQYESV6Gp9PYkdI GF44HUFIi0fE29mIfUOM2DfLEfemjFCnonG2EekHtMgNaULxCRPKw1pRe9YO xbk2NER1kPCz+MaLr6FD7EZrchdMFzpgFmZCmuL5RcBa4ryG2FYeevEGyC+w yRYEv1Q16omT5UnEdTGxOPbiTjxB0NtE0NtM0Nv6L+z5x9hC0GPLVbf8K5Mf YhOL7X7xc+z51S9x5JltiHuD8vTXzhL0QhH2Uiwu7C9FfoQJdZljUGV4oc+c QUvOHOziy+gsuoLeEsojz1+hHHsGfRGdGKu9iQnZMrzyZUwpbmK6/iZmKH6f VV3HjGrRbxe9WbiVkyRjcNe7SGi8rbfDrWjiNrN6COxVVlZi9+7dKCoqYv1V pwvm7pgHo7m5GXK5HH/84x95AH6V+8a/oil/HGWRwyhPmkA5kXW1mAAoIQBS QNrEzf7z8LP/Grzo1HrRrfeit9mLPrMH/VYSO0m7B32dHvQIM97Z7L9yRQeO Ripx5CSBL9SGkNP86qmjBL7QpGmEp1/EuexL3LH4wkUkUoKdUnaNwHcd6VXX kVlzHTGl1yHSEvXVXEai9BLSqxeQo7iKbMUCMhX0v2IOqfUzSFF5eRp6ETuO h8P/L+b1AsS+Xo7YvXWEuQZceFePtIONyDlqRFGoGeWnrRTvOiA/3wElYa4q 3M59b0JzDc2EN3NqF4wXumFK6qH/+fUmhjgbdPF2NMTbUJ/A4642meybRWMt 5VfKdCkaMvKhTktBwlt78MamJyhO+zf8+uf/Db+msfXfCXO/Jlp7gnDGClKy +nAnn9uEI89ux1sUyx1+9mnE7Q2lfhJLlBdL7JyHhHfLKRZ3Q57uoXNPQ589 B3PeZdgLr6JTch29ZUsYqLgJS/4yakKvoP94K8aLKJZT3uFmFrA9b2YbhA3U 1Gx7I2EDNTWNw+oZuNUeuDWsZjFRnobyDLWJcCh/CMj55h+xi34bGdEFc5Ee fxWaXQVkwp+BP8awyWQDx4gbuC8zkAoShFu3btFHOaQKP/l/uMe/ga7Ai5KY MZSkelAm8qBKmJ2n9s3OI7CaVR7YtB44mjxob/agg4DaSUDtdNBrAmpbpyeI m5a3gR4noND34nRkA44c0fCj71EciRhESOwYTiR6cTpthmDKF3CKK7iMC5IF JJddQUr5FaRVXiFoXkEyxTFnSheQSrHz2dxpROR5CaqzBFMahpQXkcYg2kD8 qJlAspYvmJCk5Wd2vx6TiF1hZ3F2bxSidqfxmH21gjBbh1jCawLhNfWgDqKj zSg82QrpaRuqI9ogO98OeVQ7ig7y657M+f0wprSjJa0dhqROrtSOkXjSnMZj Vkc5ljrRCkUiX5hUnt0CeaYGiiw5xWoVUGWLoc5IgejwH3DmhWdx/uXnELZz K049v4men0T4zt/g/EtPIvIVJk8g9PmncHj7b/GHJwmvvyW8vn6KeDKBJJPj +fQQFWRpY5CnsQXYszTOXYJZfBWO4uvoKl1CL0U0A1W34aq5A1vRXdScWcYQ ceWkdA5T6ruY1tzBrOY2ZtnWW1riTO0NeNjWWxTrjmgvwt1IPKkTCtrqu+h/ yknU9Q/Dkf5jcaC70MHCI7uDwkDNZAP3rQ0c2Bm6BQlCeno6oZ5BnP2iTxjM gxjIeYxvXItxDuJBDOI3uR/7a2gKJ1FIUWBRmgeSHA8qCj2QlXlQX+WBhlCt r/fAyGoKsZWFhOpWVlOIUG0h+m1tI0SzOXdfhImtOxqex9Ly+ygqduDweypC Nl8T+8gZJ45Ej+D4BQ+P9B8jMneWsvGLSCieQ2LpPJLL55FKGVZ69TyiJTM4 nkUkLaVMqPQiIsTTFGN6kaWcQXr9FNIaJgnNE0hqHEWSboikT0B2K0pck3g7 LZtsEYHol/l5UTG7ywnZPKrj9uuRckiP7GMM1RaUhdsQ+143zr/TC1/buij7 bEx2wJDqQHO6A7qkDuiTe9GSMQJL1gQ/8iea0ZBsI8blIwFFNo3+Ii0UOUoo cyuhyhFDk52C+L07OASH73gCZ3Y+gdMk4bt+g9MvPIWIlzfh/G6S37N9eDfj 0G+fI0Z+EoeeewZxr54mJk4koehlb+FKAdem3IVVo0xv5W0MVN+FS/Y+RuT3 0F76AWqi3sdw/CCmKbuZ1r6P2ca7mNURqnW3MKVbgkd3jd/AST9P2es03EYK Oo1sgzO2p5CF7ZnyEGD2v5AYCMzfXA/MGwSWZgD2sXQQ+6UgDr3BHEUz8DIJ Zo8bhFCCYddHztMCMV+euYechDHkZXhQkO9BCZFyJZGyrJaiCSUNWTS8aHUe NBo90LWQWOg1wVdr5+fWaewTmLh4g+96P8DBt5UE3WYcPurgoRvpwrH4Ue71 GYq4zuVMIlo8hbiiaSRQWpYoJYal1Cy1agZRxZMIFU0jTDyHc8UXcbZgEglV E8ikICZdPYFU7RhhlTCrH0Zi0wBJNxL17dy5JS4vigdHeQjuRPRL+QRfKWL2 1CHmzQbEEhknHdQji2ArPmlG0mEHwt8epAB3gIdf5kXkh7VBk2yFPs0KQ4aV IMwTvSlrFOZsfoGtPpXPk5SZZtSJhJwpr5FfUplPsM0vIEJOwamXnkXYy09z 20GHvbQVp1/eirAXt5BsxtnfP4VzezaRPIkTuzbjve3b8eaWTTi44xnE7j6N 2NeSSHKQ9JaU2/SW/dWlz/C/n38F5qLrsJfcRGc5v0RqoPZ9uOru0aD/AcZU H9BxgnDcf2AkdRyzdQuY0RF89Xcwo7+NKf0yPE03MGpYxIjxMtwmClzJq+4W CiBaKGg1WeFu0nwEfANN/PfN5/SfTPEj/v4g+wh/W5HRMJPgQBhmPxT050Ua Tu7xq7g0/wEU9fPIoggjj3i4mHi4jHi4kqKLGoouaomHZQTmGhNJCz+RbmRm aePKnU36ucMne3A4YgAhMS6KJdw+YjufN4EYOm0cpXkJpV4klnuRXOkl8Hpx LGscoTkTOCUeR0TpGBHtGBHtKFI1I0jWDRNohwiwg0g09JN044K+jTtrscsD 59Xrvhv7iNqVi+gXSxG9uxbRb6oQQ8i9QGFvxlED8k424+w+B07vm0DE/lnK oO8KpLuRyLQVmjQiXRGRbUYfDJkDK0sNWvLcaMpqhTa7SZjL8jnUiTWQFyig LKhEfX4+Mo4fxIkXtgUh9MVt+BmO7dpC/25B6EtbcPJlAu2rmxHxGnHua0/i 2O+2YP9z2/HG1k14b+eziHnlFGL3EGj35NB4YOavPifzu+qqRJehFy+ipfgG 7KXL6Ki4wx13Et8Oyd+nLOkeRhvuYUL9ProrbqNJ/L8xkjMDW+Yg6tMnoU6n 7Liekn/DEkabrxFIF+BupSjC4iUh0Fr47RncRs1HRRA+1Eql0hWCfcwPyT7U /s+PG0F8LmAEQdDdGIh4mfBrMz+H9v4ldA4tQWaiWJPINlPuQbZyIgj9H5ol x88d/a+4OnUDp9/S4+A7Fhw62olD4f04HDWIowlDOJniQngGpfAiNyLFI4gp GkGcZBQJZWOEUyLOijEkV43ifMkoIqUjSFW4Kfsi0biQ3EjYpHDsgmGAxMk5 KIEwmtzK18po9M4JM05+CJeZH8Bz9msQ9Uo1ovYqEf2OFvHvaZAaokPm8SbE HHTg5DseRBxfQErkFSSdnoLovBOq9E7oc3phyu+FIasLTZk9MIp6YMrtoRCz G5aCDhgLmqHI1fCrmwmjdQX1kBfKoCgoI4bNQ8iubTj2wtM48RLbTCP0lW34 R5x8hcLd3cSyr27Bmdc3kzxFsgnv/vYpvENA3bvtKewnoJ594T0CayLyD8tR wYojJvBAlWXM8qG2+Bq3Zbit7BbaK3mg9tfdwaDiDobr72Ck4Q7GKbz1NN6G V3cbZUkE7sRR2BN7ocuh1znTGKQwd9S8SMAkoNoIqGyjLzur39/L1e+f7ut8 CJz6Lw15LMDHt67BKY/QjxscBD08u9qES6yGvH6E7bPgwIF2HAjtxcEIJw7H DOB44iBOpg3idNYQInJdOC92IbrIhViJC/Flw0goH8aFKhcSa1xIqqOYU0nS QHSoJcjpBpBA43kCQS+eibHXx1zayUsrzMgf+yUqThkp6ehAbfQASs71QhTe gej9lHAdIgQe1eJCiBHH3hlG+JFxRJ8ipo6YQHVaH7QiQlxuN0ziLkIgJVpZ lHCJOtGc34FmsQN2SRtayixolDQSKyohY1IoR11RDSGwFPlxUTj8u20IefFp HHt5G078fhtCd2/DqVdpbH+N0Pf6FpzeuxnhbzyFE7t/g3d37MDbz2/Ha08T Cnc9S2P9XuQfKEHJcTUqztghiyf0Jd1HXyOhr1myxKv5bXSyLQbqluFUUn6l WqYcaRmj2mWMs72f9DchS59GWfItmHNuoKP0CprY9QTKWUesbOOIS3A7ZoUq eO6VWu7XZiYfAnz+aVYg8L283tAe9GnlWlrud/8WxvwRnNrfhv2He7D/VD8O EKkcjnPiWNIATqYPEPoGKI8fwDnxIKKKBhFTMohY6QDiqgYQX0siJ1GRaOgY IS9W50RskxMxBib9iGrqRZypl2B3WSDdHbg6eROVJ9tQfa4f1eSy6tQJSBMJ enFtqKTMRhrfhuJoB1LOOpEZ7UQt5fHKzHZoRO3Q5bZTm9vRnNdGMHMQ/Oww 5NuJ5KywSm0wSq1orrRCW6pBfbGCoCZHbVE1KsXFRFjbcJDgdpiILoTgdpTg dnwPwY6gFvr6VpzcuwWn3thM8hTe3fk43t75PP6wYzv2PL0Jb+16BoYaFYqP VKCE8vnqCD5KliV5VuCmLbgKo+Qa99pWeQPtNTfQXXcD/colDKpuwMXmKFDu Pqq7gXH9ddQQ3uSiJagk/4GW6jvQlV5Fh3oWI/Z5Yd8AyoQoieWqwbb3YZjw 5gObf67zrdVg838rENj2rzsib1yLMw5mQQxmHz8dKhc6woJnGSXEa6EHu/FO SB/eDXPiPQFlR5OcCE13IizbiTN5A4goJKSVDCCy3ImoKieiZSQKEhX9r3Ei UusMQqTeSe2NbOrHOX0fYk0D0HgXHhMu4RpyBlBxuheV0cOEpXFIU4ZRGG1F 9lkLciIsKIiyQhJnQ3miDdUpNsjT7VBl2aHNsVMqQDgqtKGpwAJjsQVNxa0w FJnQWtUKfbkZ+kozjNWt0FXpIJfIUVXAFiXsxr6dW7H/hW04QLg6RMPnYaKw EKKwY4Sp44SpE4SpE29uRshrm/DGc0/hDzufw94dz+LIG2+iSaYj/7qIeuUo PiSH7HwXZDFDvk2t5KJ5qMUL0EuuwiS9yh/+JjrrFtGjXES/ahGD6kW42MwD 3SJG9VfRq1xATc4CEe4CGkouw1Q3j1HHHCFoVigh718Iug9TQ4MfAapAJWk2 Bvh4+KNOTrK4x+9wZV+LTjmRcc6Nt471YV+4E/ujnDiY4ERIqhPHM504mUsQ K3AivIRgRtA6S9CKIGhFELQiCFpn1XRcS8+N9EwEFt7Yj0jjAPquLPPz4Z4j nhmFNGII5fFjKE+bQMpJC5Io7c2g6DznfCsKYlpREm9BRZIFtakWKDIsaMi2 QJtrgZ7wpC8kDBGedKUmmMpMaJGZyfeEr7pWNMtbYZSboa3RI/X0Kbz61ON4 4/nNeOuFrXiHUt39v9+KA3u24iBh6jANiUcIUyGEqUOEp9effxyvPb8Nr+/c jrykbGiqjOTZMa5YbJuyFWVH1ag92w5Z1AAFZ2PEpZPc1sJK8Ty0xZdgKLsM c+UCbDULaKPUtovQ06taQL+a7UK9AJduAcN6SmsNl9CtvoRW5Tysar44MM9P vuLAnpXiwK72Htwlhz0ErPwvz/hg5T8fJ/mTvv4YKH+I8113lEyjMH4C56KG 8Ycz/dgXQ0yV6MQhYqgQEY2JYidOSAhOUidOVZLUkMhJ6umYipjpJOEoGKEN /TCOL3An5acSbYcufwIlkW6khfbgwvE2xB0zI/kUweesGbmRZhTGkqsutKKS cs5ago6CoKMi6GgIOo1ERZqiVjQUmmhoM0NDFKSV0fE6C3QKei1vgbZMgfa0 LDTGnEfW/rfxLg1rb1Ci+dYrW7Bv9xa8S3H8forj9+0hyPzuCfz++V8j7L23 kJ+cS1CZQk+rC010Lnc3QadrCAOODrhMU6gOa0PNuT7UxA2jJoXS+6xp1OXN QFU4y5VFM1bMcXWObbJ5tCvY5ubz6GmYR59mHgPCXIAh40W4WmbhsszAZZ+G q20SQx2TcHV5MNzNV5Ed7hnHUJcLE66RlWlcHwEb/2DeBxv/GKvo073SFypc 6euxLCIncRx5WR6coYEmJGUIbyc78S5xzoE8Ak6hE0dKSYhzQohzjtSS1JEQ aCLVQ6igznN9+R5/+/EZMvAg4t5xID6Ewu8jZsQeN1OiRyCJIJAQvxQmWFCa QhyTYUVNtpUcYSWWt1H8YEN9iZWSu2boayxQUvxTX01SQ+/XWigJLEMndahO UTa6szPRnZWGbnE2+owKaMqzkJ8ahtykk8i+cAKipOMY7ahCX0s+nNYuuNhk jS4vui2D0CvN5LAxDHYOUv++zbW6OW8IleE9qIp2oYrG26oMD6pzJiEvmIKa +pNOOs3tLs02+LDJ2SYfM9yWr93qGfQ28pVHnSaS1kk4bSQOL5ztHjg7+Xv3 QwQOVlSTFenvaXeuzHP+CHDMzMysvBUIHPJHPVS9LVxH6+q4gfTsCWQVepAn 9SC1dAyREjdiKtyIq3Ejvo5ESVLvRp5+DOb+eVxb/uBr3Nf/EVcvLaI6VwHR GR1lZw5EhTgQcdiEqFAzLlB4k05hjijeCnGyDcXpNpRl21GZZ0d1oR21JZQd Se2oKrJAXmVHTSUJPZdLLTCny9CVXIqenEJ05eahh6DRm5+O3txkdFXno7dF BqelFgO2Ggy1VcNF8Oi3S+DQl2CAwtMBYZpFh3UQWoKIs3sUY+4J3+a/V7w3 UXa8A+XnCPDxoyinaL+ClZJjpXWKvFCXeqGr8FJk5YVZxkqwTsKhmkS7ZhKd ei+6jIS+Fi91Ng967CRtHnR38DfY+7r5oo6sRntXpxu3b915CID4vxUIIC2f /iWrV7if+DzanPcvWaXUTEBpJe6cWEK/Zwl9nqW/4T72U5hVNCzkUfKcr+aq Q4piLAg/bMPpo2acC2tF3HkbkmPtyEx0ICfNgfxsB4ooQ5IUtqGkpA0FhVZI CQJl5XSsrA1qURPak2RoT6lFdwb1dlEFejNK0JctRl9BFvqKU9BTEI8Ocw26 rTXodVSjr70K3eR2k5beox7a3cmXN2K72HVQRqyQN2N0ZEZYPv1trt4Yi/vL okZQljiBsnQPynP4EoJyiQcN1AMa2T5ltR6YFB60qjywaj2wN3ngaPagzUxi JXGQ8Peq0dHlCeKKc9MQ0DmKW7ffF26SrOvzfwgQv24I4PP+R335Zy/3+Pdc 4c/anFrI8upJtCRGbtJ+HSW2SaF6RIToEBZmxTlycQwlxheS25Ga0Y60nHZk 5Hcgq6gDqSIbZBIL1AUmOBLq0Z7cgM60BnRlqtCTpUCPSEa9m9ycU4Z+UQH6 CjPRW3YB7fU5aLNVo91RBYe1BE2aVNgsHSvmDuLqNQaj1TGM8hodbi7fFjoM H3cXUtxdHD0GCSXBkkwPynI9qGI3a0v4+s0acq2OXGto8KC50YMWtgmMiVzd SmLly8CyOimsdp2ti382d4xj+fa9v3uwS/1jxw0Bjk098osqO7jf/QlFUS7I cmSQ5TaQNJFY7k+Ez+mD9FgdpO+VQRwiR8ZpHSUQTRDHGSChwV1Kg3tHZhPU RyoxKtZjUNyEwTwdulLV5M9GdItIcjXoylfRIC4ntq5Gr7gMfWLqukXp6CyN QXNLGfS6HKjVaTCZO3x2DuYKBAbDYOlbczXq61AXT1ETxlCQ6kEBsbNEzO/j U0NurCM31pMb1X6FQfR+hUGa7HxBtSCunm8wuofnWTVf7swP4Uf/bhjIjzcf zfWKfxe4tjZTCpmojisHIMsxk7T5zSJ3oTl7BLLjGtQckUERKofmjBL6KBVa 4hpgS26EMpw6VFQjRqRGDBVTxFRixkhZC/rz9OjJ1aNL3IiOQpJi6qTFcnRJ iFdLStBdRNGZOBZqeSLqVGnQNndAL5Rd0Qvl6litZO/cjRWTfUEIRC/N3oOq eg4iir5Y0S9xMXmQ+FVaTR1S7kEtcaucuFWh90BpJG+2kJD3VHT+Bhu9tk7g xq0PfvxgZ/m/FchZ//dRB1d8vaYfY3FuAbLMckpuiUdFxKGME0Vd9L8Tyuxh 6IQJ2LacKTTFdUBxqgHqCA300axUiQ6WFD3UZxswlNuK/nzqcxJyXakZoxQp jVEwPVzRgh4JDZtFWjiKVXBI6tBWUon2Egk6SnLJnYk0nIlRq6NzU+eQm1mH UFDQshHWgfmV9vpc9yUhKJyfu0cj2hLSKBzKpA6XSx2ugJWoUtwvUcVKh0rJ beU0LDb3zWNo6kagOQ/ruIr5wueqDy3O/9qjSLC/5+PFjn7IKNyQZdE4l01d K7udXvehLsuF+swx6DO9aBHNwJ5/EV2Fl9CWMwFDggO6WAOMic1oTTeh6lg9 +cWO3kKKNCUtcFHXclc0Y6TaiBEZ+ayuGUOKJnRWkZ8qVLCW1cImLSfJhbmg EBpxFYqJxIpZya/uS2TLpUDxwFcEdpy9/AEcA0tod1Gg5l5C9yjJ+BJ6KEj7 6fo+CFRXNjjAMc4HP1jPB59MtvolgYhHmPUp1pfR6CLLtAkFmQZRlzECFQVn esrtzblzcBRcRrfkCvrLFjFUcR39kllYs3rQEGOAIcKO/oo2dBXb0FdmxUCF Fa7qVrhqzRiqM2FQYUC/Uo++eg36VPUktRhU6eFWWeFWNtJnSwNNA3/iwZb0 T/l9lvzQ6tV//gTZ50cr7GPRGFAYJ4E0qYHEgOpUopV0F+Rp42jImEST6CJa 8y/BwTZzKr0GZ/kNuKpuYqT2FsbrbkMf74Y3x4vhmiE4KBrvLHegt8qB/lo7 nHVW9Cta0Vvfgu56AwbU3RjSDMCtHSbpI3HArTbAraj6Ew3n//F1DffkujTw 2AoNZCdn4PzxKJw8coYkAocPHBNO9V0cP3QG0aFZEEXKkB9Vh4IYOYpiFZDE K2GTjKE81ES9tROd0jG46y5hquEGpjXXcUm3jDndEmZ01zGpu4LxxksY0c3C rfPC3TRC4oRb3wF3YzPcDbV/ogn83woKcIwzwXYhbxlxDEJGnpYlE0Eld5IM 8Bt1stmbWRehEU3RsxuytC4oM7rRkN0HLQV1+jwnRFFSxB7KgjimBHkxUsSf TkHokTCSU0K/DT8eQaN2yvlMSNIqUZwmpVS9hKQQisJKtFbLYJYWcqgLNNgF fTz9+Rq8n1vNOCTCFVbun99yR34It90JWYIKssRWki6+9kXyOKlN6orm0JS/ AHPRNThKiQArbqG/+g6GZHcJmO+jIWkMA5nzmNXfxnTjPXp+Hxeb7mKu6Q7m DXdw0XALY5oFDGvm0aFwQ19uo5TfDF2lgUSL6vwSZCUkIC81kUMaP9JsWDvS +FiPabk64/qImPzfBPOwQnk+E3374c3zNHvgpzryoawsrn5lqqMsYYhfGJ8+ DVXOPPTiKzAXX4ej7Ca6Km+hr+YOBuvuYFh5F9VnXZiWL2JSexfTujuYaWJ2 uY2LxtuYM96iZ7ZofgleE4V3LVcx0noJbssM3BSaua0uki64zWZcm5p4zK+z Mr3ZFJxPISD2VWZja3ja2toCWc6flP2CG+6fZ4TAjP1xX/J7lsW2kCG7hDuo vAHrcy5BJ76KFsl12KU3uY2ze2uXMSC/BU3uAgqOdhOoFuFpvIVJ/S1MNy1j xrCMWeNNXCTDzTYTpZiuw2O+hlHLVbhtZEA7GdBOBrSTAe1kQIsZVyfHAy5F +vKjjly//mD7rloqtca+zwpO8tl1xbaRzZBFCxujJ/K2VYrm0VhwFSbJNVjZ JsNVN9Bdu4SSCzNID3OhKnwQqqxRsvcCvPolTBpuYMpI9my+Tja9hmm2krn1 KiasVzBqvww3u5/YNg13+zjJELdX6bClZaWshH+7v/9pRpjMdv39/SvE+BG2 XEX4a2y5XQiR/DFaG2HgVhZwdrwwSnw/RTngHAWQl2HkNmtehKNqEbU0JmRE zCE1dBLqjHmUJV5Ga9kcJvRsjt0ivEbq9M1XMdlyBZOtZF8r25x3HiNtvnuy k3B30rDYMUh27MbkQH8gM/7TwwSJjz/+OA4cOLCCzH379uEXv/gFZDKZzxw/ 4542riK9lW583xZryx+yv+8Ttvr4KV6pXtRlz6BBPAe95BJMbDV81QKqs+aQ dn4RSRHXoSx6H6Wp11EvnsSonob2pgVMGElMl+EhcvNY5zFhv4ixNmaDae42 lLvLQzLK3b10tXXi7vJyQEz9QghsmbsZGHw+9S03ZGTP9mz4/ve/z1nn3r17 a/X3n7e4ksCuMP569aH4rUqqTlm5Rdk1sS7UpIwTBAga+TPQFF2EgVxvrpzj Xiedv4zs+EWIkxdRnLEAY8VFDOvJ9U3zGDXOEc+T+pZZjBFNjbb5bqZ6hZup E9xGQcOdg/C43F/8CEgwC7BF5bxi7PELqxZe+iyTnZ3N1dJk3YtZ5DurLeJP 5qss8gzPjFhVoujbqIoaQlXiGKozPJDlelFfOIXGkmkYy2dgrp5BpWgWyXFz yEyZg1p6Ef3aWQxQbDdkmIHLNI3hVhLbFIYdk9xyTXY/0NXtCeK2lgzGECnf 18Ffl/Vp79/EfxL6tf9yeiZsvw6Ocf8fl8D5G4J91FdMlBngu6sN4G/bVQbY yR36Wxjy3Cg/O8DdxqhInUBlNmku9kBV7EWj1Atj5STMtZOwySfRVj+JzoZJ dGsn0aufRH/zJJxmLwasXn5nnHYP+juFLfZ6fNtosC003Lh9+66QtT2cyoKO QYIe/r72qfq91ar6k+HKNYH7qn6Xm7UjOd6Nskg3d/VeSk6uzCV1C/mtuNiS SEO1By0yDyxsh80GD9opre5o8qDL5EF3K4nt/hZ9XZ33l0P6NkOYnbvy5XW1 /NJ6Wn7Ikwz+/FQD4asbVshNeOa+/zvuvW9AVzgJCbtozTZcyfSgnG04WOSB stQDTSWlwbUeGBWkmdrD7eFkM5B2pJGDNHLYVu/hxC+eC4atcxwzc4v344iA Kn1h1V4yPpXYMX9VfuCvyv2La1zKxo69KAQP6qIpFMSOc1dsi0QelBEQq0r4 /ddUpIOGvKIjHQw6D5pJBxPp0EI6tNjYBokk7az9fHlyY9sEbt7mp0d/Zc0P s//+QXAJax9rr39f8+nDONdfj79brYfPHCt6vMS98TVcnr0HUcIYcglheeSL YokHUkJXVQ2hjfygJGSpyA/qJn7DArZblUZYLhPELZgJRtvg/THgq+u2f8Na SAVxCgQjOTl5pdk/Wt1sdjOZNZnrLOzYK0Kz5+c/gLx+HhkFHuQQdAoJOiV1 1PR66igaaj6ZvZrMXt3ML4qoMXswMruExeUPViI//yb+vUB0zIQ+Vfyb629e suNPVjfTt6smN2+GHdsjIK6tbwkdQ0uobZ5HKlk0Q+5BpnKCu8HIiseySfHf XLc5n181CrLmFBQUrJiLmsHPOcTPhTOw/rZqaX9YgFP/cJ3B2/dTTFPfTzD/ MPr676t/h53ugb/zPcHp/rxB5w5eZ4Rkf2t/9qf+P7uBA4NfsL9ByJ/8Y/2g AJc/ufMfWLeFG1c1xVcvcO34xayiUChWNY9nc/yzcOoPR9jBqyLsoI99OfHh Ehnu8eU/Sb/7g1VISMiKXry9+c2g183I/uQbeA/psK3rKvTFgAr5Yk4/Rfhq +3jhL8E//yOAOv9F6IlTU1MBR1nWUFZP1d83/Hmw75P2zbpTJbhm/TBA678j OMO/6qtPA2YV5gzGmEICwC9EQthfgjP+WmiE/+2Yb/mNsb5o3l81Hy2yP19O w8UaXKomEHHio3VLQBVWhzk+FdZ4Y2UM9B9g+PuPKAzgoo1/2v2Qh/PJUgBd fPE3MztrLz8C8IjzJVBrQyCz2ezvnm+sr+JHz0H7JP00ta5uG1fVpmVy8+ZN gZc/z/nKX8c1yeO31tfN/Kjd1/MxVLyfyn9uRcU1aeG3eN/c71TOR+asZr84 yndxJpAmvk4lFPtnjQ9eiWDZB74dwD18SIfZR+2emnWV+sKqCNenFGuQfyLx 3RV/CBrcfmT+yA/Q9M8LJMCa7suF/NVgDWJ/QvO38G0Wyjx/DNOvLRPD2/uh rR4XoOkbBdszTltYWPhQ030Bvr/1t/m1/5uPzPCh67b+Cx9qMXvtnzOws31l BTO/8mv/T/4c+3/Mq/tvBtAgSICO/xC/VhsfdOgnvioMOmuuRP4vP41+uUaj lWmLn6Qzdq5RhRk7aB1n+OeHvpDxaw/W45lH6Jlfc49fXrkJ/iA8CWp8/cFa vPpxvbHuLc4H3qBj8jMBToEUYY1mYbufAt94sAKHH6EbviuwqX/rGXrWJLnf enCrIwO0+lM0+xeF8IF9N0BW/p2A1JP5SVl2165d/vnYy36/Ub6uHYK5lM4X zn2FH4sY0fh92zfr3d/Qm/3e51YMc37Y+IBPPuhMzSsW2rb26JpvbfV737Ty Lf+jfuPqf7YDDvbw2Fowt3GvN666/eZ79gdUe+B+8au1P4BAG5mttvIv136H P2vwqt/3b2PXA07SGbAL/KXY/bMDnx347MBnBz478NmBzw78GQfwV/8fRqlX rw==\ \>"]], Cell[BoxData[ Graphics3DBox[{ {RGBColor[ NCache[ Rational[1, 3], 0.3333333333333333], NCache[ Rational[1, 3], 0.3333333333333333], 1], Opacity[0.4], SphereBox[{6.2984567579999995`, 0.87813677494, 4.5943018512}, 0.51]}, {RGBColor[ NCache[ Rational[1, 3], 0.3333333333333333], NCache[ Rational[1, 3], 0.3333333333333333], 1], Opacity[0.4], SphereBox[{8.0912398142, 3.0808202978, 5.136275268}, 0.51]}, {RGBColor[ NCache[ Rational[1, 3], 0.3333333333333333], NCache[ Rational[1, 3], 0.3333333333333333], 1], Opacity[0.4], SphereBox[{10.1614346472, 3.1034970098, 3.1087882425999998`}, 0.51]}, {RGBColor[ NCache[ Rational[1, 3], 0.3333333333333333], NCache[ Rational[1, 3], 0.3333333333333333], 1], Opacity[0.4], SphereBox[{5.4828510164, 0.92895150708, 1.8780285960599998`}, 0.51]}, {RGBColor[ NCache[ Rational[1, 3], 0.3333333333333333], NCache[ Rational[1, 3], 0.3333333333333333], 1], Opacity[0.4], SphereBox[{8.954466651, 3.8282069308, 0.5798057313199999}, 0.51]}, {RGBColor[ NCache[ Rational[1, 3], 0.3333333333333333], NCache[ Rational[1, 3], 0.3333333333333333], 1], Opacity[0.4], SphereBox[{6.659205451399999, 2.2315774334, 0.10211134441}, 0.51]}, {RGBColor[ NCache[ Rational[1, 3], 0.3333333333333333], NCache[ Rational[1, 3], 0.3333333333333333], 1], Opacity[0.4], SphereBox[{7.652445436999999, -1.61707633272, 5.1421334186}, 0.51]}, {RGBColor[ NCache[ Rational[1, 3], 0.3333333333333333], NCache[ Rational[1, 3], 0.3333333333333333], 1], Opacity[0.4], SphereBox[{3.9725819972, 1.10059531966, 6.2977008676}, 0.51]}, {RGBColor[ NCache[ Rational[1, 3], 0.3333333333333333], NCache[ Rational[1, 3], 0.3333333333333333], 1], Opacity[0.4], SphereBox[{3.2546750897999996`, -0.53636093058, 1.15904454484}, 0.51]}, {RGBColor[ NCache[ Rational[1, 3], 0.3333333333333333], NCache[ Rational[1, 3], 0.3333333333333333], 1], Opacity[0.4], SphereBox[{5.6393203292, 2.1062885995999996`, -2.5537757163999997`}, 0.51]}, {RGBColor[ NCache[ Rational[1, 3], 0.3333333333333333], NCache[ Rational[1, 3], 0.3333333333333333], 1], Opacity[0.4], SphereBox[{1.2153772769, 0.6439052372399999, 0.150276680698}, 0.51]}, {RGBColor[ NCache[ Rational[1, 3], 0.3333333333333333], NCache[ Rational[1, 3], 0.3333333333333333], 1], Opacity[0.4], SphereBox[{-1.00289648546, -0.7372954961599999, -0.36513285772}, 0.51]}, {RGBColor[ NCache[ Rational[1, 3], 0.3333333333333333], NCache[ Rational[1, 3], 0.3333333333333333], 1], Opacity[0.4], SphereBox[{-1.10875893598, -3.5256617982, 0.20480850387999996`}, 0.51]}, {RGBColor[ NCache[ Rational[1, 3], 0.3333333333333333], NCache[ Rational[1, 3], 0.3333333333333333], 1], Opacity[0.4], SphereBox[{-3.047183175, 0.44584305518, -1.3762307540199998`}, 0.51]}, {RGBColor[ NCache[ Rational[1, 3], 0.3333333333333333], NCache[ Rational[1, 3], 0.3333333333333333], 1], Opacity[0.4], SphereBox[{-5.1780382126, -0.97286873932, -2.1119577776}, 0.51]}, {RGBColor[ NCache[ Rational[1, 3], 0.3333333333333333], NCache[ Rational[1, 3], 0.3333333333333333], 1], Opacity[0.4], SphereBox[{-7.2930195518, 0.22196721596, -2.9294532452}, 0.51]}, {RGBColor[ NCache[ Rational[1, 3], 0.3333333333333333], NCache[ Rational[1, 3], 0.3333333333333333], 1], Opacity[0.4], SphereBox[{-9.5026761636, -1.24914668052, -3.692524604}, 0.51]}, {RGBColor[ NCache[ Rational[1, 3], 0.3333333333333333], NCache[ Rational[1, 3], 0.3333333333333333], 1], Opacity[0.4], SphereBox[{-9.4310555482, -4.0933354886, -3.5706372769999994`}, 0.51]}, {RGBColor[ NCache[ Rational[1, 3], 0.3333333333333333], NCache[ Rational[1, 3], 0.3333333333333333], 1], Opacity[0.4], SphereBox[{-11.584965243, -0.072731774288, -4.4973589074}, 0.51]}, {RGBColor[ NCache[ Rational[1, 3], 0.3333333333333333], NCache[ Rational[1, 3], 0.3333333333333333], 1], Opacity[0.4], SphereBox[{-13.7116628834, -1.5733480730799998`, -5.6533043016}, 0.51]}, {RGBColor[1, NCache[ Rational[1, 3], 0.3333333333333333], NCache[ Rational[1, 3], 0.3333333333333333]], Opacity[0.4], SphereBox[{-14.6026686924, -0.31240950232, -7.868819063999999}, 0.356]}, {RGBColor[ NCache[ Rational[1, 3], 0.3333333333333333], NCache[ Rational[1, 3], 0.3333333333333333], 1], Opacity[0.4], SphereBox[{8.9455849388, 2.8361007808000003`, 6.994820788999999}, 0.2]}, {RGBColor[ NCache[ Rational[1, 3], 0.3333333333333333], NCache[ Rational[1, 3], 0.3333333333333333], 1], Opacity[0.4], SphereBox[{7.045654418399999, 4.8545171214, 5.077693761999999}, 0.2]}, {RGBColor[ NCache[ Rational[1, 3], 0.3333333333333333], NCache[ Rational[1, 3], 0.3333333333333333], 1], Opacity[0.4], SphereBox[{11.011055456799998`, 1.2324226054199998`, 2.9663029022}, 0.2]}, {RGBColor[ NCache[ Rational[1, 3], 0.3333333333333333], NCache[ Rational[1, 3], 0.3333333333333333], 1], Opacity[0.4], SphereBox[{11.60291764, 4.4877213048, 3.6071089888}, 0.2]}, {RGBColor[ NCache[ Rational[1, 3], 0.3333333333333333], NCache[ Rational[1, 3], 0.3333333333333333], 1], Opacity[0.4], SphereBox[{8.4075799466, 5.8133640938, 0.62856066212}, 0.2]}, {RGBColor[ NCache[ Rational[1, 3], 0.3333333333333333], NCache[ Rational[1, 3], 0.3333333333333333], 1], Opacity[0.4], SphereBox[{10.3173370422, 3.5362442637999996`, -0.9369639453199999}, 0.2]}, {RGBColor[ NCache[ Rational[1, 3], 0.3333333333333333], NCache[ Rational[1, 3], 0.3333333333333333], 1], Opacity[0.4], SphereBox[{6.3706442912, -3.1879677619999995`, 4.7785501362}, 0.2]}, {RGBColor[ NCache[ Rational[1, 3], 0.3333333333333333], NCache[ Rational[1, 3], 0.3333333333333333], 1], Opacity[0.4], SphereBox[{8.2460083736, -1.6577243389799998`, 7.113873526999999}, 0.2]}, {RGBColor[ NCache[ Rational[1, 3], 0.3333333333333333], NCache[ Rational[1, 3], 0.3333333333333333], 1], Opacity[0.4], SphereBox[{9.305010823999998, -1.78331552894, 3.924016039}, 0.2]}, {RGBColor[ NCache[ Rational[1, 3], 0.3333333333333333], NCache[ Rational[1, 3], 0.3333333333333333], 1], Opacity[0.4], SphereBox[{2.6287978386, -0.38658124782, 5.8226237512}, 0.2]}, {RGBColor[ NCache[ Rational[1, 3], 0.3333333333333333], NCache[ Rational[1, 3], 0.3333333333333333], 1], Opacity[0.4], SphereBox[{3.0889461196, 2.9398467381999995`, 6.0161316936}, 0.2]}, {RGBColor[ NCache[ Rational[1, 3], 0.3333333333333333], NCache[ Rational[1, 3], 0.3333333333333333], 1], Opacity[0.4], SphereBox[{4.5430902766, 0.9068606101399999, 8.2673622774}, 0.2]}, {RGBColor[ NCache[ Rational[1, 3], 0.3333333333333333], NCache[ Rational[1, 3], 0.3333333333333333], 1], Opacity[0.4], SphereBox[{3.2353998846, -2.5602007847999997`, 1.42313375334}, 0.2]}, {RGBColor[ NCache[ Rational[1, 3], 0.3333333333333333], NCache[ Rational[1, 3], 0.3333333333333333], 1], Opacity[0.4], SphereBox[{6.8030136, 3.2707377608, -3.7919241915999997`}, 0.2]}, {RGBColor[ NCache[ Rational[1, 3], 0.3333333333333333], NCache[ Rational[1, 3], 0.3333333333333333], 1], Opacity[0.4], SphereBox[{3.7010283709999996`, 2.8028416031999996`, -2.5785311269999998`}, 0.2]}, {RGBColor[ NCache[ Rational[1, 3], 0.3333333333333333], NCache[ Rational[1, 3], 0.3333333333333333], 1], Opacity[0.4], SphereBox[{5.6759810136, 0.15492918610999998`, -3.2121562547999996`}, 0.2]}, {RGBColor[ NCache[ Rational[1, 3], 0.3333333333333333], NCache[ Rational[1, 3], 0.3333333333333333], 1], Opacity[0.4], SphereBox[{1.29132536484, 2.6420259206, -0.2581365716}, 0.2]}, {RGBColor[ NCache[ Rational[1, 3], 0.3333333333333333], NCache[ Rational[1, 3], 0.3333333333333333], 1], Opacity[0.4], SphereBox[{-0.33081543356, -4.5810737692, -1.38367627446}, 0.2]}, {RGBColor[ NCache[ Rational[1, 3], 0.3333333333333333], NCache[ Rational[1, 3], 0.3333333333333333], 1], Opacity[0.4], SphereBox[{-3.0658914624, -4.0899339818, 0.51139765012}, 0.2]}, {RGBColor[ NCache[ Rational[1, 3], 0.3333333333333333], NCache[ Rational[1, 3], 0.3333333333333333], 1], Opacity[0.4], SphereBox[{-0.0062334501835999995`, -3.9225042581999996`, 1.8987966848}, 0.2]}, {RGBColor[ NCache[ Rational[1, 3], 0.3333333333333333], NCache[ Rational[1, 3], 0.3333333333333333], 1], Opacity[0.4], SphereBox[{-3.0381124902, 2.472706471, -1.61573462726}, 0.2]}, {RGBColor[ NCache[ Rational[1, 3], 0.3333333333333333], NCache[ Rational[1, 3], 0.3333333333333333], 1], Opacity[0.4], SphereBox[{-5.1264486927999995`, -3.0110894083999997`, -2.024841409}, 0.2]}, {RGBColor[ NCache[ Rational[1, 3], 0.3333333333333333], NCache[ Rational[1, 3], 0.3333333333333333], 1], Opacity[0.4], SphereBox[{-7.3442311263999995`, 2.2604902412, -3.0167585863999995`}, 0.2]}, {RGBColor[ NCache[ Rational[1, 3], 0.3333333333333333], NCache[ Rational[1, 3], 0.3333333333333333], 1], Opacity[0.4], SphereBox[{-11.297726891, -4.846580272200001, -4.0077309008}, 0.2]}, {RGBColor[ NCache[ Rational[1, 3], 0.3333333333333333], NCache[ Rational[1, 3], 0.3333333333333333], 1], Opacity[0.4], SphereBox[{-8.877554802799999, -4.6857645896, -1.6773019003399998`}, 0.2]}, {RGBColor[ NCache[ Rational[1, 3], 0.3333333333333333], NCache[ Rational[1, 3], 0.3333333333333333], 1], Opacity[0.4], SphereBox[{-8.0659174858, -4.8050063002, -4.9393658188}, 0.2]}, {RGBColor[ NCache[ Rational[1, 3], 0.3333333333333333], NCache[ Rational[1, 3], 0.3333333333333333], 1], Opacity[0.4], SphereBox[{-11.7452140078, 1.9541656565999999`, -4.3202915812}, 0.2]}, {RGBColor[ NCache[ Rational[1, 3], 0.3333333333333333], NCache[ Rational[1, 3], 0.3333333333333333], 1], Opacity[0.4], SphereBox[{-15.250088819999998`, -1.7430832623999999`, -4.2942133624}, 0.2]}, {RGBColor[ NCache[ Rational[1, 3], 0.3333333333333333], NCache[ Rational[1, 3], 0.3333333333333333], 1], Opacity[0.4], SphereBox[{-13.031550496, -3.4508286486, -6.158617033999999}, 0.2]}, {RGBColor[ NCache[ Rational[1, 3], 0.3333333333333333], NCache[ Rational[1, 3], 0.3333333333333333], 1], Opacity[0.4], SphereBox[{-15.9583581248, -1.33242690534, -8.547797615799999}, 0.2]}, Text3DBox["1", {5.698456758, 0.87813677494, 4.5943018512}, {1, 0}], Text3DBox["2", {7.4912398142, 3.0808202978, 5.136275268}, {1, 0}], Text3DBox["3", {9.5614346472, 3.1034970098, 3.1087882425999998`}, {1, 0}], Text3DBox["4", {4.8828510164, 0.92895150708, 1.8780285960599998`}, {1, 0}], Text3DBox["5", {8.354466651000001, 3.8282069308, 0.5798057313199999}, {1, 0}], Text3DBox["6", {6.0592054513999996`, 2.2315774334, 0.10211134441}, { 1, 0}], Text3DBox["7", {7.052445436999999, -1.61707633272, 5.1421334186}, {1, 0}], Text3DBox["8", {3.3725819971999997`, 1.10059531966, 6.2977008676}, {1, 0}], Text3DBox["9", {2.6546750897999996`, -0.53636093058, 1.15904454484}, {1, 0}], Text3DBox["10", {5.039320329200001, 2.1062885995999996`, -2.5537757163999997`}, {1, 0}], Text3DBox["11", {0.6153772769, 0.6439052372399999, 0.150276680698}, {1, 0}], Text3DBox[ "12", {-1.60289648546, -0.7372954961599999, -0.36513285772}, {1, 0}], Text3DBox["13", {-1.7087589359800002`, -3.5256617982, 0.20480850387999996`}, {1, 0}], Text3DBox["14", {-3.647183175, 0.44584305518, -1.3762307540199998`}, {1, 0}], Text3DBox[ "15", {-5.778038212599999, -0.97286873932, -2.1119577776}, {1, 0}], Text3DBox["16", {-7.893019551799999, 0.22196721596, -2.9294532452}, {1, 0}], Text3DBox["17", {-10.1026761636, -1.24914668052, -3.692524604}, {1, 0}], Text3DBox[ "18", {-10.0310555482, -4.0933354886, -3.5706372769999994`}, {1, 0}], Text3DBox["19", {-12.184965242999999`, -0.072731774288, -4.4973589074}, {1, 0}], Text3DBox[ "20", {-14.3116628834, -1.5733480730799998`, -5.6533043016}, {1, 0}], Text3DBox["21", {-15.2026686924, -0.31240950232, -7.868819063999999}, {1, 0}], Text3DBox["22", {8.3455849388, 2.8361007808000003`, 6.994820788999999}, {1, 0}], Text3DBox["23", {6.445654418399999, 4.8545171214, 5.077693761999999}, {1, 0}], Text3DBox["24", {10.411055456799998`, 1.2324226054199998`, 2.9663029022}, {1, 0}], Text3DBox["25", {11.00291764, 4.4877213048, 3.6071089888}, {1, 0}], Text3DBox["26", {7.807579946600001, 5.8133640938, 0.62856066212}, {1, 0}], Text3DBox["27", {9.7173370422, 3.5362442637999996`, -0.9369639453199999}, { 1, 0}], Text3DBox["28", {5.7706442912, -3.1879677619999995`, 4.7785501362}, {1, 0}], Text3DBox["29", {7.646008373600001, -1.6577243389799998`, 7.113873526999999}, {1, 0}], Text3DBox["30", {8.705010823999999, -1.78331552894, 3.924016039}, {1, 0}], Text3DBox["31", {2.0287978386, -0.38658124782, 5.8226237512}, {1, 0}], Text3DBox["32", {2.4889461196, 2.9398467381999995`, 6.0161316936}, {1, 0}], Text3DBox["33", {3.9430902766, 0.9068606101399999, 8.2673622774}, {1, 0}], Text3DBox["34", {2.6353998846, -2.5602007847999997`, 1.42313375334}, {1, 0}], Text3DBox["35", {6.2030136, 3.2707377608, -3.7919241915999997`}, {1, 0}], Text3DBox["36", {3.1010283709999995`, 2.8028416031999996`, -2.5785311269999998`}, {1, 0}], Text3DBox["37", {5.075981013600001, 0.15492918610999998`, -3.2121562547999996`}, {1, 0}], Text3DBox["38", {0.6913253648400001, 2.6420259206, -0.2581365716}, {1, 0}], Text3DBox["39", {-0.93081543356, -4.5810737692, -1.38367627446}, {1, 0}], Text3DBox["40", {-3.6658914624000003`, -4.0899339818, 0.51139765012}, {1, 0}], Text3DBox["41", {-0.6062334501836, -3.9225042581999996`, 1.8987966848}, {1, 0}], Text3DBox["42", {-3.6381124902, 2.472706471, -1.61573462726}, {1, 0}], Text3DBox["43", {-5.726448692799999, -3.0110894083999997`, -2.024841409}, { 1, 0}], Text3DBox["44", {-7.944231126399999, 2.2604902412, -3.0167585863999995`}, {1, 0}], Text3DBox["45", {-11.897726891, -4.846580272200001, -4.0077309008}, {1, 0}], Text3DBox[ "46", {-9.477554802799999, -4.6857645896, -1.6773019003399998`}, {1, 0}], Text3DBox["47", {-8.6659174858, -4.8050063002, -4.9393658188}, {1, 0}], Text3DBox["48", {-12.3452140078, 1.9541656565999999`, -4.3202915812}, {1, 0}], Text3DBox[ "49", {-15.850088819999998`, -1.7430832623999999`, -4.2942133624}, {1, 0}], Text3DBox["50", {-13.631550496, -3.4508286486, -6.158617033999999}, { 1, 0}], Text3DBox[ "51", {-16.5583581248, -1.33242690534, -8.547797615799999}, {1, 0}], TubeBox[{{8.0912398142, 3.0808202978, 5.136275268}, {6.2984567579999995`, 0.87813677494, 4.5943018512}}, 0.06], TubeBox[{{10.1614346472, 3.1034970098, 3.1087882425999998`}, {8.0912398142, 3.0808202978, 5.136275268}}, 0.06], TubeBox[{{5.4828510164, 0.92895150708, 1.8780285960599998`}, { 6.2984567579999995`, 0.87813677494, 4.5943018512}}, 0.06], TubeBox[{{8.954466651, 3.8282069308, 0.5798057313199999}, {10.1614346472, 3.1034970098, 3.1087882425999998`}}, 0.06], {RGBColor[1., 0.75, 0.5], TubeBox[{{6.659205451399999, 2.3515774334, 0.10211134441}, {5.4828510164, 1.04895150708, 1.8780285960599998`}}, 0.06], TubeBox[{{6.659205451399999, 2.1115774334, 0.10211134441}, {5.4828510164, 0.80895150708, 1.8780285960599998`}}, 0.06]}, TubeBox[{{6.659205451399999, 2.2315774334, 0.10211134441}, {8.954466651, 3.8282069308, 0.5798057313199999}}, 0.06], TubeBox[{{7.652445436999999, -1.61707633272, 5.1421334186}, { 6.2984567579999995`, 0.87813677494, 4.5943018512}}, 0.06], TubeBox[{{3.9725819972, 1.10059531966, 6.2977008676}, {6.2984567579999995`, 0.87813677494, 4.5943018512}}, 0.06], TubeBox[{{3.2546750897999996`, -0.53636093058, 1.15904454484}, { 5.4828510164, 0.92895150708, 1.8780285960599998`}}, 0.06], TubeBox[{{5.6393203292, 2.1062885995999996`, -2.5537757163999997`}, { 6.659205451399999, 2.2315774334, 0.10211134441}}, 0.06], {RGBColor[1., 0.75, 0.5], TubeBox[{{1.2153772769, 0.7639052372399999, 0.150276680698}, { 3.2546750897999996`, -0.41636093058, 1.15904454484}}, 0.06], TubeBox[{{1.2153772769, 0.5239052372399999, 0.150276680698}, { 3.2546750897999996`, -0.65636093058, 1.15904454484}}, 0.06]}, TubeBox[{{-1.00289648546, -0.7372954961599999, -0.36513285772}, { 1.2153772769, 0.6439052372399999, 0.150276680698}}, 0.06], TubeBox[{{-1.10875893598, -3.5256617982, 0.20480850387999996`}, {-1.00289648546, -0.7372954961599999, \ -0.36513285772}}, 0.06], {RGBColor[1., 0.75, 0.5], TubeBox[{{-3.047183175, 0.56584305518, -1.3762307540199998`}, {-1.00289648546, \ -0.6172954961599999, -0.36513285772}}, 0.06], TubeBox[{{-3.047183175, 0.32584305518, -1.3762307540199998`}, {-1.00289648546, \ -0.8572954961599999, -0.36513285772}}, 0.06]}, TubeBox[{{-5.1780382126, -0.97286873932, -2.1119577776}, {-3.047183175, 0.44584305518, -1.3762307540199998`}}, 0.06], {RGBColor[1., 0.75, 0.5], TubeBox[{{-7.2930195518, 0.34196721596, -2.9294532452}, {-5.1780382126, -0.85286873932, \ -2.1119577776}}, 0.06], TubeBox[{{-7.2930195518, 0.10196721596, -2.9294532452}, {-5.1780382126, -1.09286873932, \ -2.1119577776}}, 0.06]}, TubeBox[{{-9.5026761636, -1.24914668052, -3.692524604}, {-7.2930195518, 0.22196721596, -2.9294532452}}, 0.06], TubeBox[{{-9.4310555482, -4.0933354886, -3.5706372769999994`}, \ {-9.5026761636, -1.24914668052, -3.692524604}}, 0.06], {RGBColor[1., 0.75, 0.5], TubeBox[{{-11.584965243, 0.047268225712, -4.4973589074}, {-9.5026761636, -1.12914668052, \ -3.692524604}}, 0.06], TubeBox[{{-11.584965243, -0.19273177428799998`, -4.4973589074}, \ {-9.5026761636, -1.36914668052, -3.692524604}}, 0.06]}, TubeBox[{{-13.7116628834, -1.5733480730799998`, -5.6533043016}, \ {-11.584965243, -0.072731774288, -4.4973589074}}, 0.06], TubeBox[{{-14.6026686924, -0.31240950232, -7.868819063999999}, \ {-13.7116628834, -1.5733480730799998`, -5.6533043016}}, 0.06], TubeBox[{{8.9455849388, 2.8361007808000003`, 6.994820788999999}, { 8.0912398142, 3.0808202978, 5.136275268}}, 0.06], TubeBox[{{7.045654418399999, 4.8545171214, 5.077693761999999}, { 8.0912398142, 3.0808202978, 5.136275268}}, 0.06], TubeBox[{{11.011055456799998`, 1.2324226054199998`, 2.9663029022}, { 10.1614346472, 3.1034970098, 3.1087882425999998`}}, 0.06], TubeBox[{{11.60291764, 4.4877213048, 3.6071089888}, {10.1614346472, 3.1034970098, 3.1087882425999998`}}, 0.06], TubeBox[{{8.4075799466, 5.8133640938, 0.62856066212}, {8.954466651, 3.8282069308, 0.5798057313199999}}, 0.06], TubeBox[{{10.3173370422, 3.5362442637999996`, -0.9369639453199999}, { 8.954466651, 3.8282069308, 0.5798057313199999}}, 0.06], TubeBox[{{6.3706442912, -3.1879677619999995`, 4.7785501362}, { 7.652445436999999, -1.61707633272, 5.1421334186}}, 0.06], TubeBox[{{8.2460083736, -1.6577243389799998`, 7.113873526999999}, { 7.652445436999999, -1.61707633272, 5.1421334186}}, 0.06], TubeBox[{{9.305010823999998, -1.78331552894, 3.924016039}, { 7.652445436999999, -1.61707633272, 5.1421334186}}, 0.06], TubeBox[{{2.6287978386, -0.38658124782, 5.8226237512}, {3.9725819972, 1.10059531966, 6.2977008676}}, 0.06], TubeBox[{{3.0889461196, 2.9398467381999995`, 6.0161316936}, {3.9725819972, 1.10059531966, 6.2977008676}}, 0.06], TubeBox[{{4.5430902766, 0.9068606101399999, 8.2673622774}, {3.9725819972, 1.10059531966, 6.2977008676}}, 0.06], TubeBox[{{3.2353998846, -2.5602007847999997`, 1.42313375334}, { 3.2546750897999996`, -0.53636093058, 1.15904454484}}, 0.06], TubeBox[{{6.8030136, 3.2707377608, -3.7919241915999997`}, {5.6393203292, 2.1062885995999996`, -2.5537757163999997`}}, 0.06], TubeBox[{{3.7010283709999996`, 2.8028416031999996`, -2.5785311269999998`}, {5.6393203292, 2.1062885995999996`, -2.5537757163999997`}}, 0.06], TubeBox[{{5.6759810136, 0.15492918610999998`, -3.2121562547999996`}, { 5.6393203292, 2.1062885995999996`, -2.5537757163999997`}}, 0.06], TubeBox[{{1.29132536484, 2.6420259206, -0.2581365716}, {1.2153772769, 0.6439052372399999, 0.150276680698}}, 0.06], TubeBox[{{-0.33081543356, -4.5810737692, -1.38367627446}, {-1.10875893598, \ -3.5256617982, 0.20480850387999996`}}, 0.06], TubeBox[{{-3.0658914624, -4.0899339818, 0.51139765012}, {-1.10875893598, -3.5256617982, 0.20480850387999996`}}, 0.06], TubeBox[{{-0.0062334501835999995`, -3.9225042581999996`, 1.8987966848}, {-1.10875893598, -3.5256617982, 0.20480850387999996`}}, 0.06], TubeBox[{{-3.0381124902, 2.472706471, -1.61573462726}, {-3.047183175, 0.44584305518, -1.3762307540199998`}}, 0.06], TubeBox[{{-5.1264486927999995`, -3.0110894083999997`, -2.024841409}, \ {-5.1780382126, -0.97286873932, -2.1119577776}}, 0.06], TubeBox[{{-7.3442311263999995`, 2.2604902412, -3.0167585863999995`}, {-7.2930195518, 0.22196721596, -2.9294532452}}, 0.06], TubeBox[{{-11.297726891, -4.846580272200001, -4.0077309008}, \ {-9.4310555482, -4.0933354886, -3.5706372769999994`}}, 0.06], TubeBox[{{-8.877554802799999, -4.6857645896, -1.6773019003399998`}, \ {-9.4310555482, -4.0933354886, -3.5706372769999994`}}, 0.06], TubeBox[{{-8.0659174858, -4.8050063002, -4.9393658188}, {-9.4310555482, \ -4.0933354886, -3.5706372769999994`}}, 0.06], TubeBox[{{-11.7452140078, 1.9541656565999999`, -4.3202915812}, {-11.584965243, -0.072731774288, \ -4.4973589074}}, 0.06], TubeBox[{{-15.250088819999998`, -1.7430832623999999`, -4.2942133624}, \ {-13.7116628834, -1.5733480730799998`, -5.6533043016}}, 0.06], TubeBox[{{-13.031550496, -3.4508286486, -6.158617033999999}, \ {-13.7116628834, -1.5733480730799998`, -5.6533043016}}, 0.06], TubeBox[{{-15.9583581248, -1.33242690534, -8.547797615799999}, \ {-14.6026686924, -0.31240950232, -7.868819063999999}}, 0.06]}, AspectRatio->Automatic, Axes->Automatic, AxesLabel->{ FormBox["xl", TraditionalForm], FormBox["yl", TraditionalForm], FormBox["zl", TraditionalForm]}, Boxed->True, SphericalRegion->True]], "Output", CellChangeTimes->{ 3.5727773850588207`*^9},ImageCache->GraphicsData["CompressedBitmap", "\<\ eJztvXd8U0e+N/y91EBCstm0bSlbb/beLeyS7Ca7d7Ml2c1N72U3IUDoHWNb bpJludv0bgyY3jsGbNwLzYXiiossuRt3g8F09Mycc+ZodDw6Vu5z37/eRx+E pSNp5tfb/GbOOxN8pk2ePcFn+sQJz70+f8K8adMnej/3j7nzyaXB/wb82zTy /Po50NcOgP3nIP8c0+l/9Mr/ez3g65/S/wZT2v2Vu/q89Fq6LL2iz1e4z5+l /w2hnw4d4JsDjfQz+t8g7fw/E/zqL9znTymf37p1CwUFBWhubsYodST+m09I r4dJ3zx69ChCQkIQGhqKadOm4dq1a+9yX/229HqEOij9qr+/P3JyctDX14f2 9naMGTMGEydOBP+7Rwb43c2bN5GdnY1PP/0Ug/D6668TwOnrCxcuSL98mxvr IQ7cjo4ObNq0SR2rqalpkDIV/Skd6Pjx4xQLXL16FVFRUbhy5YoEHr3GDzuS G5YHsby8nII4VPmY/oyRmz7p18jHg+g8/HDD3QynYCwjMZT9XIKKIfwWN8wQ zTA8suR3jygfs2HoOw7BN7mRBgm4vHLlSkoy+tNHlY8PHjyIqqoqFb+YmBiK mjLSfX2sHpc+Hi4NUlRUpLKU8oH+pcR7Qx7pjv5ITykj0beUg4yL9GpFRYWE oDLSTX15+J6iB5SPFG/5nfz/9u3bJRjpu9fl0fr0xeAHOqNRwlssFglOZbRe fSyfVX5Jwaa8oO+GKNcoXBRL+u4f8mg9+sLwI+WXTNJlCZOv8cr0d3m0Ln2B +IlgNCZDvLpS3iripgzcro+0bO5GYsqUKS6aRMlH2VxXVye9p6/j4uKUQS/r D/qfCrS8Igzl+MLwf00erVn5ApOXRYsWMXnBrwRDDeOGYsbjVXmoBn2BGa38 kter4Zz4USzpu7/Jo9XqozlGZzSGJoXtB6qhl9mIGn3R+Z0yBn1LP3aSz8ls agk4Zj8t8D8/lCer1peslwQ6xCajSFC4qBBQRBQNfVpRDX4yh+KU5c9QoU+5 PwomHaFLucECBGX1R5n+XK8I5hopUOvvezJXiUBU6aCUmH8V6OiDAo0frk70 LQEhyWOQ+/kv6sv3qzog8AZxmHjih1XIBqmvFGqwbyr8PadP89eVOXmr8oBC Ot5c0QexKu7gecI9IfL1VehNgdl4QPkJ9Vi8aVN4M1QMw+MqJZ6RL53V16e3 BTM/JDBYQ8TTvSC/OKVP3/eUAem8zPKMEtixwbqT5OhP8qHAvI3iMKF0ozQc olLoRXncLIGSMAp9IrBtDwvI8wd5qHR9ef9MMBoL5qicUVowOaM0UUZN0Uf8 X24txgMujpaFQZzFelmeIElfOsfqmCRqJVhsxQwRb6Zke41j+lI4TmAIHlWu UdfBbNHv5dGO6BPka53ReLOijHZQf7TJgtG+rVyjJGWYym4Q+3WkabpA2R5R vq8NdynKypB79KVqpttRh7mEvpy8KpK/Ux/zOYKBHxOoraKf27jRKGgaKfIS 6OdjHFcY0spoW/Qlxlsw2uMCxZSDHmzUx9QgUEw2GlXMOXPmSNgqo63XHy1A oC/fVn7S2trqopCKIv5WHjheR3iMOqNSjPnkUtFAZdQ1+vITrAzMJxKsAMAn OXI0ipX6yFsE6vIUxximfMpoy7jRtAkYGS1cMNp3BGbm1/JoS9wIjYJplPJL 3s8/wdlfyhxqbuiDiqIy6kJ9jGMFasLKIpTF9Kt0NMpERSzlNAEx+gMvEgz8 Xc7y0FCEvvulPBpL2kTCs1SgLt/luMKUTxkqXB+w5YLRvseNxpRPCh2leEhO L2HRH3eVQA2/LzA4LPbm4wQ5HUawjjwRQsQJlOi7biwwxUBnJqO+rMW7nWmY sCBB3j/gfrIAfcJtEEz2NEc4psJS0DiIY4hBf9xNAvVj4/KJj6hKqeRzPjpS uVUw/DMC7XaCrQzqpQ/2DoGey4H4EDWeV3RcLihgjv6Au91q4gP96hmUuRQ5 xdD9uzzBTH253Kej6nRwJjEsxOLVXy7mKsGFqzxyVv6AQGefU67x6d5P5dGm 6BPksM5ovAVQRpuoPxorhfF6/0OB3iv1iAmcSFFMeZFKEgz1rPJ9Fl4zBafZ gDLkV/oAnhDoFxt13759KCsrkzjq5eUlsUsZ9Qv9UdMEo/5AkSr6EwofHZX+ 7K233sLTTz/NiijKBJ/rS1WmQL9kqXqw3wSc6XLJFCgnldk+1ZewbMFsT0r/ D9edjdXHmDGh7xTz9JE+AU8KZnzMgxlHuJ/xfc2MmnjkrEBPH/FgRpZSJyQk oLS0lJ/xXWVGJs2aQDdfMONDHsz4CDcjM//KjG/pU/UcNyMFyqF6XP0Z+aRI M+N/6894UWBNhnk8Y/8aDVX0H8sz/11fQ0oEMw/2YGYWNbK6M5UiGj1SbVFm ftUNzsoQchlwpIuh0pmRhUFMJTni/kWfuBUKOnSgPXv2CNFhawkC//0nfYWo cEMsDlOwtQVe3ZTR/ygwKZzwX3JjDRns9Bp5/RP3E7ykT5xLHvCa1Td5K/Nj gT4rM774fz/jUMGMz3GyTiWNOTMq94og/FZf1j2ZmVlGPnJijo5GqiyXobNS CJSZR+vLevk3sJC8nWOCQ2eks3FU/qU+lT2Z8RGdGXk1U2b8D31F8GRGZiF5 a6Mz4/P6ylHmsZ1ynZHJLq8tsnQp4ZpbqnoyI8vOebumM+OP/u9nZKaRD6Nk Cg5x8QxET6Wq5WC1Tg71ezabjVcVT6Z9RjAtU1LqElguwPIvVovmbeyjPBQy l6jmnT9/Xlm60QfhhzqYMzorIEhVb7cdJY+6UoPOQSlC5yOwXPAAFNGKL2M7 r74PDTT7UNX20KEUCFDgAQj/rgMCr12SEAzqJwTDXIweN/kZD+ZmS8j8ECLN HilAX45Y1fSJL8PxroeRYoxCJs1ypvSeVRDSU+pgq+6W3gWqMi8HNg9K33SH CP1GWqodQd4nkbCyWLF6rkbyxwIknETVoCNqduDR+a0OOsMVeTQZ8hEdWEme Rai1dpkUhvB40AePx2BlWJu1DcGGShj/lYXooEbkptbj5zqGnxoM+qDq85x7 TIYIMPm1qmKiFVm2gGbxb0HMRCsWWa4gN6NV4o4mwtHioiotQae6A2ZDK4L9 bmLzkjbkZrar6PA2/llFpLXr79QOkuhBBzM+9oiPj5cw+5UGH/oYooNjZEA1 Ni7rQ6SlAbX2q37KZT4uIUST12uHqizgOc9ywnWrGzDPtxlJh66posjj+Ywi CtR2M4PLlv9ZbKZBtn+S4USWmv9fqZLsHsXB2OSTh5zsy7DarsNXujZCxU9Q DdQlG4Pi2EnyvlvWWtbXx7tR5nE6OzvV3zILwSddz7oizK+6MgNBQWQm+Rcq woMUFHngOJgvFXagtUB2K96cUXSHs9bTOKdwxZ99r6T6Puxl/fFnoinyJxpc ++esTlwpSL8QYMjMI0MzZW0jHDflHrPfqJ86WwwYDePjihHscwrZJ+qUcNQD cjgN8WB+rCOZBI6eK9I75sd4rfQAdd71jORQp66QTv8io3JBA2zpskS+qGN8 hymfpafWIcy/DovHEzNirEFtTZdicvTRZeXLkor7qC69OiBqvJvUQY31h2Rk ZKiovaBc27+gGI5rDg41V0EbzJvSjBOtCAvqwZbI64gN6UBORp1SStXHi9W/ D6Tch+OKrA2sn3ag0EPBS9S6N0qAF+vYurj7iorDmIG0lVmTYMMlbFt6BZs3 NSnRmT5ezynDlZTexaXi6y6qMUh9xVpfaqxdiF9ThA2rimCv6npMQAAWz/EZ K3OtGkLw8vCwgBC/Ua7lH+rErcu9HIM96kZimr07zo7e05UcdPokYUHt7iN3 cPMiq1L1H180J+tl2RBXDuOkAiyefQHb4q08oZhY/1BmKfVhsoazPEmHSo8I qMTaBdNWNsNxV25t/Z0GtIFIdHRzG0HVJr17xgMSMY0uuXgLxRdv4F5jpcck GqQISFtBBY7N24U9YTVYGXkFkcEV6uq7KO7kiy7PuJKIOnfmLr8lIJHGBg/i FSaNC5pZFpu2oxY3GmRf8ILgt6x/8tQhIpSX70rvvu8B2Vi+sH0vIVlVmUIO 1TqNdKFT/oajyJm7FNfzy3D31l0Y/ewICbbBbu/TIxMfEgjIxEKCR1S0yAeM TiqztLx0Jz/MGCXEXSJhegVigkioXtPD6Lg/7BIRyXvSO9b1V5pORLTzBkdv fZrJUegDOLynEYXnbyHecoikKTkSGEFzsmGr6lb5otCxZlsySs3xcFTW4uqt +6pPosOyMEHkWjXk4r/Oas70wVNLG9yF+RUMSKwQwsgVIT3YHltFcoF21iaR uOEcLp9vk969plw7topwq0du4n7CA2KNVmxpjbUTAYYsTByXio2WIwj1zUeY rwyaZX4u7NVd0uu2vRloXLIL9xou4/49B6upiOpGOoTixZAnFFVJRiwnoYbJ rPv4ovQ3N62BEZLlEetJ9O9j7MH6+B6aRzyujJhCAq40+kyuw5ltnbh/47pS 5x+MVTOLCJ2aOQj06fRzVfqdAR6T+fVxhQgyFGDuhDMKA4cgiqQ2pinpCHpz Fbo3HZW+/7QOsXjvryEWH9XwxKKvGMFcASPzb1zbjKDgTuldxoJy+fJwVQLZ Qxoj/yrqa5tVdGhRIDNZbiIdpZCmxtpNxCMHwb45CPXJge/449gRkoaE5RdV km421OP+5WLO7eiT9JcK93iJVxVhlMtlI5nWZKiCxdCEAL827FxoReSMcqwl YCSHZWGl+RzST1SrJBMVFdmyC0dhlijxTvZRDXuHSnkiffAazLQ1I71TBVSm 8ShkzzqIlp1ZPE7S3yPZDtxqltm+Ia4UUYFWLDBWYivJD+Ry1whJDYMMJ2Hx O4cI/yJEBxQjZGw6Ni3MQ7jvKWxaUaiqenJsuzrHQx7Qe7Rn9E4/UQKTTyFJ WRpIPN8Dw7RaWOY14aDPWWxZeRXRpnZEB1UiN71OGHGw4iDf6wAmzSrJ+ZCW 9VzygPEtvjTjptxz9O/dlhGgj0dga3Eg6ehdnLKcRceJS+pwtlYyZJ+8EyXY txw+U1oQ692Ozb4lSJydiQPjD6tqeyk+DefjEtnQ8kQjEeibArOhjLCklnis BhhnFGGbhbDPZCPvywhrckhI0Mo8Vn5Ct4rICA84M8ZzTTDNv0A404xJn9gw bmwPJv+zFpFvZyLWfA3R5k5EBVuRm1mvw5mhLm1FLITUaES/5sH+7fOsFkI5 I9FpiPoVmZrPwLoqD7tW1OBGax1y4hKw7IvVmP/WUfi+exRbzYek0Q8W30Vu tczN8jIHqi/Ir7fHdeHgArv0+vCUZOweuw/GCacR8uVFhP/zPCI+PYPwL8qw ddkVLLJ0YkFwPdGo88hOrWRsqDjkZMMwD9jwO8/ZMPPLdLz+pzLMMtyGJZzk MsHd+OrlDKyYfAaRIS2ICKlAra1bmMGxbIHG8Sw8fdo9+VkswkqI9DNnYYBj iZzMpxQ6cCrxBips15D0pR9qAmPQalqAy6ZoVPqHotda4yYh1OKZUuXAXO9q BBo6iSHoI3bpDma+uAX7CEcXh17DgpBWRJnKkJNuVXYWyUWDxvQ2ZYKBSf6y HigPqZfD5qZjwtgSzDe2wuRXD0tQI8JMTfCbbUXMH1cjzFKDLZvsz3GkYtkl ozafDGioLWpP5Kmt8ficcxiOrftuIydqO9InbcTZ16ejK3QxaoKj0ZaWKUy8 XX8/EkHzLiDEvwWRpm7EhvRi6u+3YtfCizi0qIi8b0OkuQxZ6ZUyfR/ErrhK 9JyqVYfTo+0fBWBLQ5zEzAkXcLhQHiLt+GX4EzYb/athDiJPUzWmvrYHRz+J UheORATl0wYdgn7fQ4IOUghaUufA5eQMNIQsxb5XJqIrbClqQmLRlpHlrpKh lRb6XLe8ikQMdoQbm4hdbMX83/pit28SNmy9iU2R5xBqLpDNxAM4sKEFN4qa 3dHxVWXSEpJ9RhrOISbhBlp6HUwArNXXkJLSibQ08szoxJG9dQgfE4G+kgq5 SWsI50lokEEfrJxnJWFVBolQaUrC9JwPmzV05fOLH2joSuvvLFHWCBwHwHDs 3duLxoKLOD4jAvvfmYJGIrClIVG4YrN9E/rSp/+8Swj2tyLUWIOAVyNwdN4W YvhqYAiqgD0j+0mhW4czGU4lmNcoiTSfDBcU2DB/XCLWhhxyEWgWaO5ZWwgf bxsKbc4K5p64C8idsYojzTB1YvaXkkmdni75dBIRId7Ez4oIv3K6YqTm8zpM 4HOXp5WhKBPogzLBleDiSkbhpduY/Go4Iv8RhMzgGHTba4VKMVQR0bhVDQgg +hn0ySbsm7YJ6xMaUUMMfN0VkipfSBZtKBNNz4Kq9STijPAvIdFlEbJTGmSk nesS69cfwOt/X4oP316DOR8fxgr/FJjm5iDjuF0OVTTFjRGqhlRjodmGncfv obXPwZZwZ49ejivnK4SsYWxREj5WS8440YC5EyuwdjZx6qYukvQ2q5sDaJlw 7969UiyviVr4TImP7dmjv7WxEhmIjyvC5n09iP46BvPf3QGzVw4yj9eqdaFj JB5s25LIMXAwI7z07lFVy0WLNozmZt8KhE5vwcHoEkQZL8gsG9XPgIdalmP6 lEMInE8SLUM+ombkYUP4SUQYziDUOxcblxX0K1k7ERJNPZQkG5cQZjiPCa/v hDGsAxeanNXTkoLL2PKyv4s0szGYGec5U1PVCcMn5xC3qBthIXaSbl9RmjeH uHQ2E+4ozHmaY4Rrk5Kr8RqmyLq/bwaJtQuIT7pAMuijMH2cSLJpmv6cRFaS nRU0DxCuNK1PdJF1nivfEhBJW8sbgg2r6xFhakbc5hs4ELOXq3E9KrGGf/Cm KNA3TbIdYYZKRAbUwPttkqPFFJFkoIoAW4xwkiPbq9vVFYeBWMUMQ8YJK0L8 mvHPN0phDu1EwaWrKiYxk46gNuE4p0d6rBqMxLU5aE1pRQrxTN9Rvs9v/mGh v1QuGe6ETOUYH7Q+43RlQ1SWKQ92GkZ6ipUQ5QLC/W0ImFWH3SsLsZAkrwtJ ThITVEI4mKXWo3cT9tXGJSpscLLv/nmOfW5XV9mm1rTUTqRndiLp9A3cO3NE FurHVc6JoiI2TNqJchh98xFCgoSIgMuINnYg6NNKbIm9RABuRayxjnDyInJS rb/VmA03C59UOTpg8q0nwVw7yQIaJeVg3CspaEX0mHDcKK1QXP0I7TDqX1a6 cLqAwdg3NwOOWw7OWbr2SbGiFz+OqytS+dq/O/0xl6+LvBn9G+idSjTTisjA dpJuXcWSxb1YOz0Xiy0dUvoVGXiOuJMK3biXCadxfhL8306AnURADEWe/49o fKB4Jbyk6j7SS27jWtJ+JRLon27Qh2u3B1/rIBLrUwILUbn5H50lKlaPGW/k Y/ncC1hIovFYEjlGGeVaxxgBHIN5lKzVfVI9yGZ3dvCZJyXj9ExZhb7bT4wo WNyDSfqqeftxo+Imp+iu6csTYinU4bJsb7/dT+B4RabXgrxOEvNDfK6xB1Fz 2rA1vAOrJluxdq4NC+dSx1WC7LQq3ThRXMLOSG3B1A+TsObzXbQ9hxn7Wo7l KSm1Uu3RQPxvejIJDau6RW1Q0jv2Ac0Wcqtu4uq5ItWB6OVEcEmG5OpmMjFD u4NzMPu1VEROqsOC8NtYFnUbwb6t+PqlXdg8O4MIQgfJ8atJIFIvuzuXTgAe PFaTphXTIN9TCPE5g+xk+0NikjFmzRu9FFcv8DGSuI+opKAS+UtIZnX3tvpb PhF7TAORO7b8m6us8AmbnPM92s8i0FoPu7ZuRSmCDXUIndWArcEdWLP4OhaF 9ZJM6waWzG/GmslZKDl4SsF3qIsVYa8ZoTJSukge340Ni4mBNNcO5yTDum8X jIYcWIjrD6NPn1xYiHQkLDuvnrjT4kCh/TocN3vVoK68vA3795Zg3boD/QRg sMbe0WctyewqdxZL104tKsXZ9JuoKL6OQHMtzMQyhAd1EMhoft6Nr94ux7wx RqybfASR/oXIzrCrGwM19g5O40ACjTWX4DO5BGtn5dF1rxGuMiSJI7Pqu0h0 vuOPhgFl4aDlNO53yGtljJF83iLJAp99Mvg0br4/8x93YT79y1wCLazXVF1F wORyrCeB+bLYDsRYLmMBecaENiPSUoeEHT3YsKBb+n7T9kze4GlkQNWVql7e Drq3IyOwLq4Amed7UJBwiLjncsQE0iexTAHnpAjRXt2puEKx/yFDVLc7UFZ/ Facz8vHxhxvx1qvL8O7flmHGl/vhOzVFSsaHKFJoI6JBH2dXnsfJ6IvIS7mO 9kYiMlc4izcS8curEORTg5BAkvybGhFpbkJ0SBPGvnYUfqNnYk9kCtr37v6u BjGZNaqG0HDUBp9ZPVi1/g42mU/9SnF2sZMOYXfgfsStKYIfSQz85hELebyO Jat8ZM1C4eqCJjQlygcasVSIF47vCGisMQp8teEZBRKtErtYftmvUjHdtmgr Src1IyK0EZYgK8KDaxBhriEZgxXB5nLYbPIKpa2ZLZsMRuvh82hUyM2tmetV M0aiprqVWNnTxIFbsXxpA3ab00j0dpmkoU1YYLITVStBmPeJxwVaTx/MVdDH XNNG1DR2YYnpCMl2TyHS7xzGfpCEz/5+HJ/89TAOr8tB2eY8nCQZWE5ogQp3 fY9zPC5gfRBrV9Yj0FANc2A1LEYrQon/sIRU44vX9sM0ejouZpfhfksl7toq ZJfOxQauMuJMvq4hyECyDVMTFu+5AkdxqrKK9gBiI/PwyfNRCJ+yj/icU7B4 E1c+PxfmOVmwV3WyYoxIVrZPTcbtq72cwXFtiCe53HdU+DRRBk25WTXkWdcv MX2jH3WWtaM9uQXHjh1DaUkX4uIa4B9QDX+SL9EA3mkFycvScw4kRVTgUnQq vSDa7iyqyaefqCLBXDHC/Jsx9f0sREXXYQcJSZfMsWJRSAdiTTYS6Z+U83W5 K/gRdR8BfXjPSULYAhsO767EcmMRgmZdxKevl2LaP/KxelI+jibUo7jMgUbC 8cZrbNHtQaQkt2MNQchAEIrf0Ii0TLnv0kgSthWTFmPv2TvobrCir/Csaryr q7tx4kQdTiTVKrm42F6x5sSSmvs4VnALDutZpSmE2kK67nwKH760BaF/Wo5w Qzki/MrIk+ZahQjzSlGqJsP6HYSWsfkCrhf3sZSfLj+z1J2aCVpcce6mfrI/ z9k4P1PG77rUgY7UVty7d5/vJmSnI/GonT7vwNZFbeDyAadhkWiiLD5zBjY9 2Yqxbx3HX8dswrhxJ+E9tQAhs8sRG3gN66eVYtWkM1gyfi+/PM70mnGY1b+Z Uhl9z8FCYpiw4DbsiLMjat55fPrfVsyc3IGpU5owb2KWgvgowsn9RAIWoaHX gRwrkfaq09InVmsX1sYVIZCuT5OUP5gYZ7lSVivcxzHICcJgVFHD0VDMyfNg CX3atpBCxOIZlf5DFCoYDdkkwS4jYNvwxfMbsWD6BWLhmqWG9aiAGkQa8pGT UvGkQlO+Ukmr1znRJH+4e/eHHGAse3TjoOVMw6XWzIwHa2XsqehER0Yb7t67 51wV5zqpWOBbR0x95oEbyPVKQ+v+0zJKT0oTUuoFE+qFeJO/XjkqELuWb8Nb f5iN999IxOQv8vHpa8fx4XuH4WsowcLQHpiCexAeQaLPZW3IXlaFjCl70Xbo HDoKKhiN+VxAxvhbLuv4vJU1+ZRh/Nsp+MeLGzF3bhk2hJOA9NMifPK3PMz5 7DQig86TdLVlpFhbOT9O5WUXpv0pGhYS/EfFFuNaRQHio5MI84irIkwKNxQg gvyNMJxFKDHUm5YXQhMSaiRnpKLzxR0O3G+tRmqKHX6EbkGEbiaFbsY5OVLw 8n2B0rHXrIEr2JdE737EKP4jHszuxpp6EG1sQRSJqXLTanlTxYZhpxDxorXb mIk7TdeE2zc9kyu+0PRT5doVgkh7TjtuE7likPByNUpxOeUkGtu3/z7SLEUo jTiGbiLo8cQw0kcYITN14/QR5Z+H6W+HSa8jFmzD4f2H8N7vVuKvLx/A1Enn EGVuRExIM4lmmxBlqSehSiXsNrmf9niRAzXlDhzY0IWzgVk4vyADtZtOqAcK ajNOZUsjKySmJan2THqUnJXBe+VXW/DpxzmYNTEP//p7IsZ9dASWsFuIDLmN VUEtWDchDe3EqZWvSxQeMCIRVxvgy1aTPh7Cgo+SEGOshSXiDC419aB66x5E +FuJzaBtCzVKtbKEVSufVmTsDFHVqoISSVqlPjBDoSSx4b5nEKr0gn1PzFi2 VCT5Ym85pVr2Wqz0d9Ln1VhquSG93jghH/G+ZUgnHGsrqGBisi6uBGbfAoT6 FKDW2vOIcnn9+p1ShnKpoB61e5tF/Z2eCRqfRrF1zDO78tF+sh237t5RSzm8 oDkPp+lHZfpuOAqIP9tgclZyogLsUvVw9gfrFYYRyz0uBJ9/FIjD6acQv6oB Rj8SCwZVE+dDnuZqIjXVyMy8LAvUt1FChPpCBfE1KXeQs7QCqZP3oGnvGVSn 5YlOVJC6rP0N8mElNFmmj1DvnCGKxdt76CTGf3gU772SjDf+chxzvIqkVvYF lnYi761E4OqwfnMdLpEpt2y8gTNRhahYfhYtu7LRUFDh7O6QCfCEi9mU3JXT YyMj+bLM9ug+olBtmD4hHfO9a7Fmayd2hp7EqsAKLAimDRtthEz1hFxFtMgq +1oXd1djbSfxTTbWpV/DqZQqxEw/Rb5tI+Jbg+iAKhLnFCPcO0NXFL8NW3U7 1v19rPRx0KRc6e/uuZux0lIrvQ6M6MXC2BasjW9D1r4rKF5ZhAP/Wg//ry5i 5ptpWGkmaW3AedZhlZpaCwMxvAFEZ+bMWELStT0If3MjbBfbhY3H31ww2Sjr DdvReroNN+7cVmPgfoLpSVycYsPUGZUInlqHRe/n4p3RSzHxs2QYZh/H+L+E 4bN3/bAs7pi6XJSS3CGtZmdkyMX1Gtt1Xgl+gMU7S7B2Raoq8KeiTsC+US7i UZ4FGjJhNsg2Lsq/DDEBpQgkHpE+PnndG/sSTxLfnoD3f/k5/vlpFMaNPUUy 5xqSOdeSzLmOiGOttI5ssVRQEzxYMUuniXQmpzqQGteIM3OPkXyiUjKNvDAO 4QSUBmb0QUMLMw3M5smBGX2sj2uCheQDZiNJ8t7ehXdeiMerv1iJ8d6l2Lmx A8s+PoO4ebVYPv4kImeeQm56vVpbS1ZiNCvxi4MUr8jTW6Z5lRRgmg12eIW0 YPeCAqzwJfGqibhcI4krgkjA6X+OCL6yGuBs5iHxYb3iIOgjYW48Vry1XHod YSK6GiyrVwQhUnhIGRh1smsc+PC/UrEp6iZx7u3w/Swbp2fuQ3dGDRq3pkip 9XDlu/FxF6RuTqNSn/SZvRGzv1yMLYGZCJmbQfLFdtWb89VFz2RZtGt9g98O tJxpRe+tG2rtlpdl0UmpqsTJwVz6iQbCSisiAjsRHHgDc2e1IHRKNj77750w GE4i2lSFnPQ6JTB42MUp0wezl2yK0iZZZE4SG5u7pBzbpyci7F9HWDAUNPUs xv05Dp++bcB8n2OsxSokaCNOnJSPGK2p7oOfTzWMJO8zG8mTGHJjcCVs9uts R2pNm0Oyqls39uFMZKE8ytPUqKpo1ljlPIV6W/oIN5wjQUuhFBuG+cixIX0Y vzDi/d9PxDt/3kM0phCTPjyFz/98EG//YQsCQzuwOPImFoX3YTUJYI4GnUbO 1APoSKtFw9YMXCbzjVKCldSUWjVyDFYjx2wXATywg6jFm3vwyrOhePXXcRhv aMGBNTasntOIJV/lIcZ0mYgwiRLT7Uok4KoC5evWo8v7I9wuT5au90V9Say1 3L9tCbIhzFQjv7ZUw26/rgrxifWncSahC5ERTYSSVdJnp20O2GsdKDh9H6d3 t6sRbP2mZHU+WXCGkUilCl6Td8Nv4hJZSYgKbl2dz5aQ0pTOZhokswIyXxRz li2edC/SbCuFq9kFV6WxdiOT2IeNATtxvagXXX296nb2fntMBu62SU+qJ6mJ FWGB7YgmGc9CSy8CItqxJ7KYOPAOErgSuc+odbf8xYu97rrNSEyenkakwQ7T 9Hos/awAH7y6Daap6ZhHnMWHL/lj4lerkJJRyqhZTRJhurZsremT/ZO2IfFH SItrUE31Gq8t0tVQg1zjiwmkvbR2zHovGl/9wRvvvyz3RpmCl0ne4a0x6/DK r/fh4zdPY9qMIhJLdJKgpZP8JXSQWiwvSS2WmdUOVBIZycxy4MSObuQvLsKp mYfRkdmIpp25aC+okLXxO0hLtRHnlItg2kxBAltaJKFpmASWVzatk0mvdy3f jvef/xD/eMGI9147jPffS8Gk97Pwxn+uxOfjq7CMkD/CfAfrfeoQ/2U6Mhdn o7uw4ntO1B/E/b1RaEragzMfvgpH8mLpKm3joY/AwGoEmaql13S1kBXibIXN uBjfRJJ0duL6t1DScA95dgfqamVzlbezBcXRp7BrxhHpvfl9+W9EQCvmfraT qNkO6T3dWx3pd1LdIrG2hGSeFYj0J37WJ/8pRVb5fd80b6Oa8ANX2efLwGLZ d3dN3v0X5lcG33e3YWdYrmgzmpsDo0U9Z0Fe5QgJqENEMEnTQi4jloSuazbd xsoY4grNJbDZOoYPoAXOc3o8avMN8sogztSO8MBuBAbdIDJ3B4E+xZjyVQ6x YyQKNclLgqIOdu001BVUVCjy8RhiPz0jvfryla3ErMtniX49fgFmvivv5nj/ z7NgMSdg2+58BM4n0Zu/HaEkXI4IbiBBUr0UJIVbarB5k022PMwuHt3Vi7Mr mMLTx7MoVjotWEQdbCgielgpSYOUDAbK9njsy7Pw/q+/kJVgRxZMc42Imr0K f/rxavz5t4n45J1sTJ9VLK2GxZi7yLMdUSFNCIpoQOm5mzi0pRd5kQWoXJ6H y/tOSzv2WANEUnJtP9qcWbUWjVPfwdXMFTg4ebqmr0zdT15gR86CCqn9QY4F HlCpWnrZAS8SypgNsjotmtuA1eOKWFYcFXQBOWllLpOavEsw5cs2rA67gihT HdslxTZU0jLosmXLXI5i1ahEvx05mtZ31vOVcaIZUcZOxMdeQ6y5jlGC3+Xk 5ihz5oj5yzXV14nwkVwx0EpC5RoiBTUwhzchKrScOEp2uKa+7IuaKTiQRxJv 00i8DfHQgW1SU3tsSA8Wxfbi8LZWrA6pImJXieyMWpHAO4lAgDB655FMvh7s MWt+BVZ4ncVHY5aqldilG47ywZ6EIN+JbCHJsZkkxgmbGpQE6DmXCenT1imb xcZKBw7uJqnrmmrs/HofzB8dQcQXubB8kAr/yUV45/lQvP+SUYZldiImfjhL VrPfjMXH7/pjF0l1F0YWyat4AfUIMzYSVaMreQ1yqG2xYssmq9qlTBL0giri cNIdSNnQjvygLJQsykLjtnQlvh0lNfeyTNFI8g8jyT/WLy9C4tY0FM+djeuL x6P6OEnsg7xw/0AM7nTWOPsaCqpwxJiPW9fuKbHDwy6oG71OwDSfkIdE+vQR aJQ7nmZMDpD+RgW3kGcxamvamYStW2HF+BlXsHBlD7ZuamQ9o7Tyz07CGMRd c7l/hI7oC5sN3PSmDIG1sgfBfjap4rBlU8OjymVeIxz91pDYRgIrkY+1JPkL JK4tiMTbtAt2T2Yf7nQ0qHKnJ/yixQgGtzzHCNp0gkCvSzD7E54TGYgyN0tl wYULiMFYbCc+NFc9TVuDoyuuIwm/84jzaCDOo4c4imtYYL6OObPKsXqBlViD dha4sTBQaiJPl5vIa2x9bgt+gkbsIyea4GOwEpNOkm+fqwiabofRUIY5n2Xh o98sYCuVMUsPwdpg44YajviVDQj0rUZwgFyQojpHi1EbNzWCOdMq4rmKibCf TL+H7DV1ODuPRHQpNbAlJCkG5SHpLCAppaSb10hKGepDs5czCBu3A+aXvGHf uhL5a+JxeeZ7cJQmsfo8XZbYPisDt3oU086tMQ5DRlItkfRKmHxbJRQijN2Y MLOR4RMZQtyh+YJCP3nA0KUdOHCikxNd14K0HParH1FRYSsazltiuBFitnxP 1YVJ66PMe9TfQ2/1RaHcOc88GqJBcYRk8wK8ZfqHGkmUH0zYSOgfSPLICyfO 4m5tBR4VgOM6zkisW14GI7HblgC6l6SNeOgOYrvbiY29hY3LaamgFHZbl1Zl naLQv4aRQRy2iUQeIX5tiAjqJclHH8Z+XgRvnwosCMwg71Ubo+YyKcmdWENU lC6Frt3Q4HQJXCvfYzhWTEJ2YrAXBsgdq4F/WoeL2wtoDC2lw0HSOhddnitD uB8NU6oQ9rcQHB3njbCJ2+HzSjh6l06Ao9OqZlZx/0rE7TaH4jfdYSkrbeCc C8TQ10qvQ4Oa4BV0lcnUqrkZyM667CJTh/Mc6L7jvvVSI1N8LW9AmWJpKJUp tpuObbrlbdn8OSuRV3EdNUV53KkpIySbmJraCV9ConUbGqWCHf3kzMXb6Cq+ gJvVFcL78Wjlp6ayGwHzymHyqyEksZEAo474PlqHs2EaCTo2rC7EreoK9/Lz sHZ4Ykq7EDSPNoo1IyyoHZHBndIWRRMJKdZvvUGyk1JYvDIf1Fjl/t5E1NX+ KGxEUOjZJfTh92UhFptKpPhzx7xUhH58GOH/TIVl4nmYJ+Vj2Sv+2O+9DUun J2LHe/MRMW4Taq1tqvAcCynEjdp7iuPu74GI3AQQI2kiUj11fiOmTfeT5ei1 ULZikHTBgd67rjLCl4F1ZETUzskm5ldemXiMUFiv5+poi0JndaW6gWv9oTvo OFeIa6UV3O2QRAuNrBhgrbqGtauIs/Ujxok4hmDiGEzmamRkdmBj5n1cqSyC o7XGfeYjHnbdMuK7fawwB9SSGIumM/VSzZfK2eR5VUjZmgnHldYHxdriVh7k b47CnsAc9BzIwMw5J+BFzKr3nFaEzSQa/slxrPtiM2LeTEDS9GVYHVxEcoNi 5KZVq9ZiW0AaestuczwZjhTiSuLWNuLTz0swe24AysqJ/E5ajcRJC9VYevlm G27cc2U9XzXVYf1LHHvZ5jhPwnjGuK3Hb+Num+zR2Z6KhBQHmnLzuKlpqeY6 TqR1knC1Uy02dJNsqr2hHo6eFq7bWrv3aCTWrqhXhT+ERF0hRBCCzXS5qg0t 1x04X38Vd/OSxDYXrCwm95OuX9MkG12zDSXEAZzOvIXuzaeRGpqLZVPySah0 DUYSyk554TB2zzxGXIydPC/L20wznOHxau+9uHz6Onpv9qndl/5hcp2ipKAF /xo9H/UktGB0muV9Hrfvu7KIL/xpWMSX++Qdqg+5sIhe0WszdyXhYJS1kKkb 5XN1Rbvi9EooG3McuHGlU6oqpiXXibZ6uZwlSFlib+yAo69Hbv7hly6rFW/B af9QFHU4cDklHdacQmQoZ9to15bcKZ82oHkQ6w5048DBXjQnN6Ji8RkcnHYU s78oxbKPk4n1l8sFkeYSEox0ujRDJStLiGyWZbO3ov7EVdy7z9gzDN7GPajK k29zVVJQi6mjZ9BmD4a6l38N7t2TD9dhG15ER35/3z235TtpPaByW6R87p05 q2WVlN/F+apeLAlIx5Y1pSKe6R0FteUs0YyUCkQHlJCfF7Ebnmr9K88bdQdK F8lL7b1IDtyEcF9pEV3dODcQL9kepLwGIg9NjdgbkSIt32Un16gRuQZhPbvs FA2WWwXOuYh5xhZs2NKDc1k30LUuC6mTd2DprFyplEXyazUuTk2tk5LnQJI8 B3HJc+7ualTuIuJ9j2nyMCxefxAVlc7byRon7UPYmClMLPzMJJy7fc1FLPj7 gLJsVyMWfN3zjwpG7HZVipIP3N4+VOqECA5qxoE1VVgQXAd7TRtXM4KgcYNJ 0YbVlzDfch0bV3Yj2lji/JHesaFeAUWIS7iCzRGV9DgET3nPRC84+jIWLr9O 8tNunMxo1ai3y7GG/UVnhNTI7U8StiDa9hpAvPyaThxN7EPrMTvKYtNQvytZ /W782otSxmgiGWOIz2mSMZJs0fs0Aiccw9qph1B7qUsNf2KXZ+FERgY31wOE y+ux7OvViIsrgh/tgoq6grT9eZKU2Cq7tPcZEph5vpbxR0XJeO+sVTKtbxwi bfgK8a9DDD0KIcTuye4L/uc24pYtgSSZJIlsdla/5Mz5VTfbeFdZEW5slWbf tqnW2UPcf58jdbw03AoPqUWtvVf2mY9JQV4qCXEMJMgLCKzGnOl5CHl3jdSs V5zVh85VaahMSJGOpDEZCmHxLUE4ibkj/SoQOPkkVnydiuXmcwjzSpXDSk3C x6SSndpt8A3CorW71OSX+LT/+sUyTH9/J4J9TiJ05U2kbzyEkPlEJOZKfctq CMMnXN8diI+uJwA54XFjtxmRrdY+qeuBdjw87paacjhVXcPd6M7tRjXm4dKJ 081UUrMnxUDonbZnrXEefSt3aX1L+t600RHo3CXX9k/VOLB68UXEeaVj1VfJ iJ1xDpEBzQiYWoToL05hx5pa6VSqSL882iT6sGKfeGFzlVkZQu7AdRm2UZjl FYKFgRukPjD6xSBDJmZOysAbP7UgeHwGZsykfciXEEHTd9/zRDrS9NjIPuK7 AP9Lucb75gHZqLmt7iDXa25+9JyG7O5Y8RPu2q64PBz/+yy1Sm8k5odmG+Gm y1hFvM2OKWex8Mt87FnbixhTl9yfG1hKsg270kE5UguG5In4VgXlYHtWnDH5 XpA+MngtQaghiwRq1TAazpDrFZjwTga+fD4Gcw20d5M+m6RNyZF+BYTTlWrd is9HNbTnzZ6I9qJlCkbYZwTUElHw+wONoVn+eV5BXUJ7tFk6UYNeMc4/DZO3 DRZDh5QwzJl3A96/24vlvvWICaYHVLWSZ4W0MMefQ0Yf2mOznXr7CIxe8ntz UCbmzQ1G8tFL0n4CehBWqF8nPvvzCXiHXMPCmTWEo90kf2yWW2XT6/43SJzA obs77hTOzZPvUhg0L5egbEOIXzvCAq9g2vQbmPjBWSwZl0dyoy5EmVtIQF2B nMw6pZ7R/y4J9MEaUp1t/cRkr4tvxIaERmzZchBxKw/ANL+c4NuCUP8rmP7m aSwOu4F1Ib3YNvk84mdflJpscjMa+LsLsjTXA3T5kEpG11k1ihrjj1sVFUg/ 3oAgrwribpqIb7yMtz6pQXDYZZj/skfq0ZX7nkr0iiD0ITqsjRe8oZwVZddo 0D/fyx8+s48TvWrBrI+LsNnUjaXRdKGwm4BxHctjb2JnaD0urC5E0/YT/F0h tWnG91wJwvOaEYRvo14vgIg+IibtRO0G2cavW24nEbEVwSTTefvdSmkp8KuX dmPDpENKL801/qArKgI8YRSbonXQnG/7dj+CzJwWidkTCrFgSj0WRXSSgKNF OjEhwtxA+GCDX7Adl+wOJB+6Cfuyk+g7WY2r5yvYTgz+rtSUQBQMDwjDu/QN qm0gprakoBHrXvJWP4xbUS/1YL3zZRVMQdWY+tlxJP51ttRWMURDCkYGyhyW zH1LHZxlKasW7cSMSQFYEFEv0TkkqAYWk1XausX6lViqVEtS5+RcB84d6ECl 8QiuHj/tcq9aFnhqdIPXAxHGmxU1XjJpC9q2JarXd8VdQtD61kFISe8kLsSb GMXuA/LHovuiKPd/kWd9AFmhJ5G44zAs5kPwIwE660JZv7GRkou1L52sIvjk 3UfV1mq0JZxB8/YUYX/Dd1xx4uF3j9PDBId8HPrrHCdOu27iVF23ikT8wiNY Nd1fK7Nso1KCzy70Fcnxg8tpaEMUi8bUhj3o+xKS0VIZTaIyupzKqBW95yuk +FM57ZK/oz2LT3QwZGEmvyNmq/T/SHiNtuBgxD7peCPTkgoknnTeBCjcEgu/ N73Rfb7oWUU6U9fnoDWxGbfu3FSVjtkF0am6bHuhxo3CTmQxKYfKYie2/GsT lo5PJlFYDbbFlal1MwF2zJSLoi/+2hZlWkqzzz/Yg9kfB2L6VG9MIc/Fi3fC b+YBlBfLB6qGTtqFUp/FamRQUVCD4qXFcNxxqCj1b4IY+Pwilk7Mnl+LSFMf 1i7soaVBhh3vfDXYibwRvcaw26g4X+ZONm/ag2nTvDF16lxMfG8uIqcehP+G OySczUcoSVIt8zJJdtIhmaOlL/pIyywsWaVrmoleybh5xdlvQeemkuwOM/fB /xCsW1kHM0kyQ4mlzc7qZNjyvtdDbNm19U6L6twBGWbZjEDfXJgNJfj85e3w e2UTlp10yDmDP43mC7B1tXxjw9hJ29CwMVFF+VTEGdy7fFsxW07fxoql4nIT uIPQSIJjtfUpKiGrOvOp7A5m9O93vxmia6X/n3AXD6m+1+ibRTz+JRJSNsB3 UgXe+9UJxC6tRkxQm7K5roJE01mKEc7Hlj/MU7PPLb57caP0Oge6s57vjD76 5R2PKVhSB8najRi2GixFDpLHcrVi4N35AGVGlq1IB7x655E4z0bi2nZEBFzF m38rwvIFXVjhYycZSwdBmiSLQfkq42ii2b4jkRO2wUjbkIv2pBbpHTsCjN4N ip1H7BJeaO+5LpDagdBcrpCY3QJHFNlIE8pJ7QgEezv7j7bG3MTCqFtIWHgT h7xLsNG7EFHBhSp3tqzJx4xfmWDyoluhulmVvqrAhrKVZVJHJnMRdF56g0T6 TlRl0qAlcvY8qks4tPj7xfGnVshy1f9YBvowetsx89MSxJvlw42i6TJrcDtM kVexdtk1bDXmo3N9GkmfKomcF+KLf1+B1ROO0h5zVpimFuu4IQWOvvvqtlVe fUXJ+1OuWIrcP4/lQg2WgjhFPcFHGwGnkZTAe1wpFnlfBdtQFWGuk8LPMEsV 0gt6kXrqLqrTujDvdZK8fd2B1Yuuk2SlhmF4Njof99tkA8Uw5B3t/wKG0RyG 2oyEiadmbVk5Amr1XLktmG4Ko4cF0EeIsiksYaMdbGNObEwdpoy3wTS2ABv9 s9FTWKFGm9v99uPGJf5Gs4NVZeTvssL7SAVBps+8t/+TQHgjBIKqRfBxBa3S AqvMxpsyC9esaYTBX0YtXjq8kPnGYZLtzz7fhzMXHWhMIqJwoADNu1NYt+Ty mQnoTJE7MlgcynaY8+ZIBzPeiogwC3UjnHyi8IQCLX1QfTngd4pXQ5GHY0ax utGBvPQb6FidgdvZhQ8o5pr2B6aQ6JPGianKFlFrQS0q1tB7IDgYZ3lFZK0C fLpJ/n5nYHT5TDPYA0lV78qjnMihyqwkvax4mFHmQFmJA62Hq3BlczZullep R6fQ7Vf+BmWH8nx5n8m8L/di3bjtcNxwMIfAayG7xt8WcRDlggcI8uoZpOGn CEEWuuQsrMAtpW/oCUV9yi870NDkQHn6FTTHHEVfUq70ybq1FxFkyJW26oT4 5EvbVMPI0/y35dizOAtZx63qnTRZZkDnYt6Edm9QGOR3DiUGe9QVOd6miJDz dyOsontOHjMX4EbdPSdychjyEArsDiQm3kbHrvNYPOsQQiaegIUEQOEGWiCu gd/b+7E7qowEfXSLZTpDgNc7voGUuT4W+/Fa8LB79P5LQyv6zuCBo2A12+2B qei9dJtTeVEd90GsXFMIbxLWriTYrJ9+FkvH5mD6P47gQATdTEoLpjWI8i+Q duMxVPurnaiApIuqyPPzDYfzOVTdBTRsM+gan31oOC2fmvNdRUz5qenT6J1K ArtLMPs0w2ySdwrFfpiOVdHXEGOUy9DRQSXITbepaPLqx9DknaAHaIocI+9L 5qqSTj5YtGiRKqnSNYbg8rkkpUjvxe1795XQ2rWjLGheitSNaPZtRZj/FUz9 8iq+fOcsIt5IIhErzQNpN2I5cjPsT3G4MRV8XICb0549OjBGvM2ZpSOjrKos yvLYut/6uFJp/1Go91nUVnexaU9sOA0ryd7v32fn8LiSID2plpChnGQqzQj1 b8cXE9pgtnTii5cPImr2JbkfNqQUtTZ1SF5hmUPhHaUIStnxqgolCgt4Ykzz wJuwCEYrsfShnvmbQiIegw3GD/OwYXYectMuqzDYC1pQvKFZCsPdbPdmAVXg 7AsI8q5BsF8d/jmxEwujmzH9y2JEjp5FgsVqbNlkU6M9XsdZaEFdK90NRd2r s1SuoYnIAfHXJmsERBQqafsjRMn/cNiqO4nIN8AwrxOrF9xA/vJStMfJ0TyT 6cqCOpxeUg3HbQe33sX8MD2uzW9uBWZ8fR6fjKuSdlbQHq6xryVg9Wth2vPZ nWdrDO93D3Hqky0Wi/T+qW9Gka/dqAwfYrnvLBCp0QNIS2pDUACNkRtR1UqC x3oHSo92wh5yEL1HshlH6V6KJMt53L/BThcZjmBDLeaGVMGXhNvyHvc+jBtt Rs2GRJcT611PsXG9fygzI6yRTEMR/o6UjCK88xvngaN7SEdvRimfFdY4cPjg HbQkFKB25VGpsOkSYtLwMrkOVvm2V1JEt8c7B709d9gZPnvTHai97kpwWtkK Hj2b1vJVirB9e04r4er+n3SlgCiS4a99wVHAnf8bpToPp7Vmh9DQimfaGQeq Dregd/85dO1Jd+7jkDbfZCPAN0dang1WDgBYFpKC1WMP4VaX8y6TM4gwXL/F +QTyP+0h2j9pkfSOoR+inJZK3z0yMPq8+xeh/7nASGgDuf9QJiu1O5By9CYu rzmJW7kl6CqoUG7ZlQ0jiUhDfE9LWy7CffLI8wzCP9iDHbFZUo2SoRm5577G vAzGl6PDULFWrutob32hLo9o3OYTrmjymYUIzU88kPNfqrwlDG8krDlb4IB9 fy1SDPsR8kkCzIYihPnSxpMqEqlVwfjeceyKLUGEbx62rMqTSS/7hCGqhigP ZlZ2xVXgcMktzoRQKW+CYbQXegoqhHr/yMD488GCKLn8wAP/qHtrppEI8DsJ i3cJ4seewKopZ0jM2or576Zje2QjYgLrpYMwIw2ZohBY7FtkfVoXV6wSyaWD xTjpELZPWuwi/Lzus8Pj+x9KrEsVXlLe9cBDjlEMjYYq0t+a6hYS756RToSY M5/ujL+CRV/nY6N3BWJNV0hISCu3NhLa54mOupTVvP9OKp50Zt9KfPZFqfQ6 N63FGasMwUd/WgXzf4XDMl8K4JjmUNYyAzGKoxEr0ys0YrE3H1m9IqDbW240 h/eZv1c1R9125pWPYO9a6XSvyMBezPisHNF/3obY4F7EBHfSLa/kWaA9i1S2 /aoQyIUOenYOHWv+XHpnqVY+XLNZ2zFnQgGm/W43VgbbEOGfI7x5zkjl+9qd 5vT1k6704OMFET3+W4HMjSX5g74SBc05RSSG9lG0IjywAzP9+jD593uwzLsS 0ebLJHq2I9ycN/BhvjJp0pIuI9BfDj6Uz503X28neRjdk07TklZs21gjNC4j lO9TUrCDF9kSwDckzWucqLhzpX/Sp0/asQYESo0XdoQG1GOaVyv+9UY6Ysfl SLszwi1VyMpsctO95v7WF54vdDGSbiQktduvsQoNb3lYDZ6/mZ9Gq0RRB19g +JvA8mjd7l9VrVKrWcts0j49k181Jk6vxuxpp7Dp5enKXsk65/mo2l3g36hn mh1+xxsStt7HRxoeoMwblz+7MSS8C35LgZZuKKPV2i+mVcErsApzRvuiZ3/i T1ztDNeg5aruom0gj7tCK4qLePn+IwetO4f5gSIyiSUOdN5xYHdcOs7PW/ix QMtEa98aiEQhTP9tOq4iwxcy1JsTOU9AGcK7i2Nl8gbCkoJ6LHth5ifKFGwJ nL4bMTCUIpfKQ/miDpcZlIzLbmSS2f51cRdhWN6AQ0frpC7PyaMD0b4tkQHO r2az6IqPBRTAtaVQ3njxgP/GA4a/54FZDvYtxWfj87BzRxciSMi0Ky4LObMW fcKBwcSULdTy2f4TrlCLvDPfVfwrDblFUL+v6or7Pu7h0kZ+o6kHSxd0Sr6C Xg3/zRzcqqzAJxoaOnd/DXU5sYKl5RokRH6Dtxb/6UZm+BDjY7egi9Ghx2LR XYOKGZeuRk9ai8aERHwqEH1WHKIGTptTf0N0nvfA0H2uAd2dLXamDbk4+Jep 0jsGPq8AjLO8fdYoAA+iCOyfcGC7897/dLUvmldMnj983h9hE/fSJWyI5P5/ CCxvsn/ogTGcJKCn+20nQ7FhzUV8+vJGLH07nqR4Rai1tgoln4HPW8nHXMHn QWXg8/b9GQ34IhGZ+g3BN3qdhs/kRqyO7kK0qUG6I6ZI0ocMDD4PqijQ+54H tnK6anX6bwSxVV+TIrwwkx1bNjUxZRD1J/EWXQMlD5EIyqcEMqKFcraHRFZv r8PtgfhMINoM7P63Q1ELpbwj+rMA7Mc1YIusoZeHYI9XxmJzdnV1SVErW7al Yz7uCp7I4/Ags3NH3IjufIFdmKT8hH6duglWu1TSDA0AIvPKA/WwB3aqXtEJ XqKYtfFgOv7agwIp0kbqTcp0vCS4mU5k2PjpHvDAMrQqasQbJeCbzuTuzrg8 HTsUzlFPSG0FsyOK7dBIdn+r92C/rWx6ytitzMbrPP3t008/TaVWMxt/04dX FNrR2WhXlBu9uaqZgAZeBw4ckCYgoiSYgIE9UDpAWVOv/I6Oyjre2NYPtohB wzz64M/3UvjGVsZ4ZXtZwctdeEepSHjcqPyU303+EDczK3nMmTPHZeHgKdeZ +V7U37mRQ17smcXhJa1BucZ3GbCFAG0vJQNFOfnpe/2hYZIzxgOtYG6Zl0IG DR9pDOGg0a4rMZYQaJ5xD82vPbBAI9xC86ALNPTJN9JQKOg4jEU/cgWDJ/Uv BJZJGwOxs0V4j97AEYA+3LDjp+5n/rkOO9jMrGjNa5Gdm9lqtboj/c9dZ+ZJ +FNuZndG6zHBzFaNNohI/UvXafmf/0hAau20okSzSCB/Qzki6GjDaPfQPOuG /HyEIOqnK1IMg0j+tOxgpUACyQsyJN8WjPi0B3r5fbeQPKBC4oYlL7nO3P+G 9Po6+Kzgd+c11GeVYA31/+h+5icFsqC1jD8S/C5fR/g5ajv3Ajk3SD3vHprH PODATwW/y1SuUQiYHCjNABTAYf1YooDn5raP7uuIKtS8AeF3RLpT45+7hfpB l9yFt6BabtLvfPd/BeKHNHQWWYBfCH6XqXCdQqXD9R/8j4HkreMIDwzDrwVA pmpcIs97zi4/9z8GkrderFDmRmLHCOBL1lhvEZt/8r8CHH+Cozuz8jsB5fcp 1+hvKERaQ6/D+p+paq4taivtQCNdTKeO2XnZLWAPuYSGTGN0WP1PHgD5QArq 00TWRbSNdJ+COh0tLi7OHdPGujKCjsCyNVFmvFtju914zvH8qEPUU8votwl8 okrBds/kX85j1fyAP0Ba1CMbr1yj2QYFzSkT+lG53MvmUm5kTR+iHX/rFA7z JQfeJrqh0kx5lic5KtFZqMBzosRLXoxyjQ7MJnlEw2g3Ed1cebKnuMk46r3E YcosPZuMx0qb0oiCOHlTrto5zmahxPu9zjS8eniYrsg9wv2Wm+lMv/NwJj4V 0YmHA+WZvs9Rjwq0Qr0X3E72oFDr3VFObshX76/HKEf1gdlkfuUhhuM8DeHc UMkij8p6welVRqXfCix9hGc2U/6aEuD1E97RgoFZvzsvvOxoWT2qyGiqRxjy Oi/ypGya/gXaAUNOeXOSS+hIuUwp9SuBYfdXfAObaQCKLZVHZ43OvLT+UmDA DbIrkkNB+hCEgrJVUB2vRqn/U2ARvQXWT+vH4+RRf6YhOBXD/xAMOYXjKyu6 DOMIrkOSR2UcyUPeNaX2qPHE+bnOnLx2DeLm1HEhjyvE0kQpsiVX3H4/l/Uz Di5m9eXVgREqDHok/Y7upP+hoTSfMfDmf7KGqnwpi6Oq6IAV52RMKnin9hPu GjNgEzwj57O6k/1CbB5EyRlbKOkfv+lL6491AfilWDV+6BYAcZym44T+XSvD zCjxju85t/O5RmgCAh+TR2UWldcMUXb9kYBk2vDmhDzkb8TeTHQ/8L9zOs6y PnaH9gHokyZPNkZDFSpSotvqsJn67ZEauF4o78sG88a8oxOd8fh3xXzz/Nbx Qyfl0V8US7Rol++LnJFi0edDHCp79+6V/LaAaGfkyX6vIRpfVqKTa2fiy/Z8 DKUT2cihBPgAkPk8UWcvm4kShrJCpKUiJy6fzg4W1PJSLOpreVEhFj+NB7oo 30QXf+B4xJFOtKrwokKlAYoD8t4QNdHihfjbHErMNYzxgCKyELq0pjGKsB0L vO1nHqizs1MFnveyOmGN3EmirND0c22PCCZTb77KlSl5JdShlHIDyL8IJJe1 C/Pm6qeKErKZ6OgiqimjK4cY/FXgw0YJRv8JxweqbXwYxfggC5fSDujKh4cE Qz7nGRlkvcSrYkkcKRiY30dJu3jkH3rkgyV50RQsX1RfwfVsUel7csaqGlte ntmyCW8qZdgedDHKvDqK/PI3ON5wjOaau+/J6Tz+IWDVA26hfkBtEtULQiU4 de9B5QrKC4rl468x0OUTvPC6Rt8U3g8TQPqoZ3x++v8zkr4hEATRah4Dno+P PAnSfug55L91Cq7zRF0eDYW8byq/5d38ELcg92/xH8CVfINi5kuCawpd3+Jk gIsW2Ci8Z2XGnD50ZMAZbjprlX9QXym0eUdhDG996RXq+RhbeXYNkmYZ7LKd TcJDNlTKLo1R0ngsOmBedAA6yuMoW4XfU3Bk5Pjggw9EOEo/kf2q3DqpKHtR UZFzSKUzXno9/f+9/v/ba/zb/wHz1Vqi\ \>"]] }, Open ]], Cell[CellGroupData[{ Cell[BoxData[{ RowBox[{ RowBox[{ RowBox[{"tc", "=", RowBox[{"Table", "[", RowBox[{ RowBox[{"{", RowBox[{ RowBox[{"x", "[", RowBox[{"[", "i", "]"}], "]"}], ",", RowBox[{"y", "[", RowBox[{"[", "i", "]"}], "]"}], ",", RowBox[{"z", "[", RowBox[{"[", "i", "]"}], "]"}]}], "}"}], ",", RowBox[{"{", RowBox[{"i", ",", "1", ",", "bc"}], "}"}]}], "]"}]}], ";"}], " ", RowBox[{"(*", " ", RowBox[{"core", " ", "clouds"}], " ", "*)"}]}], "\[IndentingNewLine]", RowBox[{ RowBox[{ RowBox[{"twc", "=", RowBox[{"Table", "[", RowBox[{ RowBox[{"{", RowBox[{ RowBox[{"wxc", "[", RowBox[{"[", "i", "]"}], "]"}], ",", RowBox[{"wyc", "[", RowBox[{"[", "i", "]"}], "]"}], ",", RowBox[{"wzc", "[", RowBox[{"[", "i", "]"}], "]"}]}], "}"}], ",", RowBox[{"{", RowBox[{"i", ",", "1", ",", "cw"}], "}"}]}], "]"}]}], ";"}], " ", RowBox[{"(*", " ", RowBox[{"Bond", " ", "c\[ODoubleDot]ouds", " ", "between", " ", "cores"}], " ", "*)"}]}], "\[IndentingNewLine]", RowBox[{ RowBox[{ RowBox[{"twh", "=", RowBox[{"Table", "[", RowBox[{ RowBox[{"{", RowBox[{ RowBox[{"wxh", "[", RowBox[{"[", "i", "]"}], "]"}], ",", RowBox[{"wyh", "[", RowBox[{"[", "i", "]"}], "]"}], ",", RowBox[{"wzh", "[", RowBox[{"[", "i", "]"}], "]"}]}], "}"}], ",", RowBox[{"{", RowBox[{"i", ",", "1", ",", "bh"}], "}"}]}], "]"}]}], ";"}], " ", RowBox[{"(*", " ", RowBox[{"H", "-", RowBox[{"bonding", " ", "clouds"}]}], " ", "*)"}], " "}], "\[IndentingNewLine]", RowBox[{ RowBox[{"tw", "=", RowBox[{"Join", "[", RowBox[{"tc", ",", "twc", ",", "twh", ",", "tpo", ",", "tpu"}], "]"}]}], ";"}], "\[IndentingNewLine]", RowBox[{ RowBox[{"bt", "=", RowBox[{"Length", "[", "tw", "]"}]}], "\[IndentingNewLine]", RowBox[{"(*", RowBox[{"MatrixForm", "[", "tw", "]"}], "*)"}]}], "\[IndentingNewLine]", RowBox[{ RowBox[{"(*", " ", RowBox[{"coordinates", " ", "of", " ", "clouds"}], " ", "*)"}]}]}], "Input", CellChangeTimes->{{3.568895397419882*^9, 3.5688955157148895`*^9}, { 3.568895549629349*^9, 3.5688955855718126`*^9}, {3.568895617317868*^9, 3.568895845234268*^9}, {3.5688960797194805`*^9, 3.5688961015127187`*^9}, { 3.568896219074525*^9, 3.5688962276233397`*^9}, {3.568896262910602*^9, 3.5688962903198504`*^9}, 3.5688964250728865`*^9, 3.568896456912543*^9, { 3.5688981540863237`*^9, 3.5688981869399815`*^9}, {3.5689021233572955`*^9, 3.5689021341525145`*^9}, {3.5689111169043026`*^9, 3.5689111218495116`*^9}, {3.568911235261711*^9, 3.568911242437723*^9}, 3.5689112948850155`*^9, {3.5689116510180407`*^9, 3.568911800419503*^9}, { 3.568911871820829*^9, 3.5689119012892804`*^9}, {3.5689119993042526`*^9, 3.5689120006770554`*^9}, {3.568912144306507*^9, 3.568912165085744*^9}, { 3.5689528310632005`*^9, 3.5689528569592457`*^9}, {3.5689534065794115`*^9, 3.5689534297298517`*^9}, {3.568954496214126*^9, 3.5689545054337425`*^9}, 3.5689569073699613`*^9, {3.56913308739126*^9, 3.5691332012870607`*^9}, { 3.569135511323518*^9, 3.5691355127119203`*^9}, {3.569136204167535*^9, 3.569136290747687*^9}, {3.5691598050571885`*^9, 3.569159843199256*^9}, { 3.5692215417755947`*^9, 3.569221597186892*^9}, {3.5692216819730406`*^9, 3.5692217090546885`*^9}, {3.5692217693019943`*^9, 3.5692218260704937`*^9}, {3.5692219780303607`*^9, 3.569221989433981*^9}, { 3.569222055468897*^9, 3.5692220728005276`*^9}, {3.5693401536421804`*^9, 3.5693401889450426`*^9}, 3.5693411655535583`*^9, {3.569341634303181*^9, 3.569341638733589*^9}, {3.5704549882757435`*^9, 3.5704550487414494`*^9}, { 3.570455928146194*^9, 3.5704559415310173`*^9}, {3.5708553973857827`*^9, 3.5708554057785974`*^9}, {3.5718402591869545`*^9, 3.5718402726497784`*^9}, 3.572328636723397*^9, {3.572328748419593*^9, 3.57232875246*^9}, { 3.5725921859362335`*^9, 3.5725921932682457`*^9}, {3.5725923978158054`*^9, 3.5725924023086133`*^9}, 3.5725926630786715`*^9, {3.5726167873570023`*^9, 3.57261679757502*^9}, 3.572620232450739*^9, {3.5726252144466896`*^9, 3.57262521482109*^9}}], Cell[BoxData["80"], "Output", CellChangeTimes->{3.572777385074421*^9}] }, Open ]], Cell[CellGroupData[{ Cell[BoxData[ RowBox[{ RowBox[{"(*", " ", RowBox[{"cloud", "-", RowBox[{"cloud", " ", "distances"}]}], " ", "*)"}], "\[IndentingNewLine]", RowBox[{ RowBox[{ RowBox[{"dw", "=", RowBox[{"Table", "[", RowBox[{ RowBox[{"Norm", "[", RowBox[{ RowBox[{"tw", "[", RowBox[{"[", "i", "]"}], "]"}], "-", RowBox[{"tw", "[", RowBox[{"[", "j", "]"}], "]"}]}], "]"}], ",", RowBox[{"{", RowBox[{"i", ",", "1", ",", "bt"}], "}"}], ",", RowBox[{"{", RowBox[{"j", ",", "1", ",", "bt"}], "}"}]}], "]"}]}], ";"}], "\[IndentingNewLine]", RowBox[{"(*", RowBox[{"MatrixForm", "[", "dw", "]"}], "*)"}], "\[IndentingNewLine]", RowBox[{"Length", "[", "dw", "]"}]}]}]], "Input", CellChangeTimes->{{3.5688982251756487`*^9, 3.5688986440675845`*^9}, { 3.5688986873108606`*^9, 3.56889871560931*^9}, {3.5688987970414534`*^9, 3.5688988526711507`*^9}, {3.568898887147211*^9, 3.568898888644814*^9}, { 3.5688989206248703`*^9, 3.568899041759083*^9}, {3.5688990876855636`*^9, 3.568899258349863*^9}, 3.568899300267137*^9, {3.568899351326027*^9, 3.5688993831032825`*^9}, {3.5688994370481772`*^9, 3.568899468217032*^9}, { 3.5688995813016305`*^9, 3.5688997165538683`*^9}, {3.5688998495129013`*^9, 3.568899932364647*^9}, {3.568899967667509*^9, 3.568900024529609*^9}, { 3.5689000794261055`*^9, 3.568900136257005*^9}, {3.5689001767858763`*^9, 3.56890020149632*^9}, {3.568902068726*^9, 3.568902074139209*^9}, 3.56890216040736*^9, 3.568902344113283*^9, {3.5689024237982235`*^9, 3.56890243907065*^9}, 3.5689025770684924`*^9, 3.568910195129884*^9, 3.568910620995032*^9, {3.568912393532545*^9, 3.5689124022841606`*^9}, { 3.5691332074958715`*^9, 3.5691332081666727`*^9}, {3.5691352237838125`*^9, 3.5691352313342257`*^9}, {3.5691489965881166`*^9, 3.5691490103317413`*^9}, {3.5691490440122004`*^9, 3.5691491351943607`*^9}, {3.569149201666077*^9, 3.5691492026956787`*^9}, { 3.5691494320784817`*^9, 3.5691494680989447`*^9}, {3.569152288984131*^9, 3.5691522953957424`*^9}, {3.5691595058486633`*^9, 3.569159537672719*^9}, 3.569237911685565*^9, 3.5693411655535583`*^9, 3.5693418217687106`*^9, { 3.5703410302061863`*^9, 3.570341063621445*^9}, {3.5720164790812473`*^9, 3.572016508424899*^9}, {3.57235540487335*^9, 3.572355408040156*^9}, { 3.572356807768214*^9, 3.5723568154122276`*^9}, {3.572621722359356*^9, 3.572621725962962*^9}}], Cell[BoxData["80"], "Output", CellChangeTimes->{3.5727773851212215`*^9}] }, Open ]], Cell[BoxData[ RowBox[{ RowBox[{"(*", " ", RowBox[{"nucleus", "-", RowBox[{"nucleus", " ", "distances"}]}], " ", "*)"}], "\[IndentingNewLine]", RowBox[{"(*", RowBox[{"MatrixForm", "[", "dc", "]"}], " ", "*)"}], " "}]], "Input", CellChangeTimes->{{3.5688982251756487`*^9, 3.5688986440675845`*^9}, { 3.5688986873108606`*^9, 3.56889871560931*^9}, {3.5688987970414534`*^9, 3.5688988526711507`*^9}, {3.568898887147211*^9, 3.568898888644814*^9}, { 3.5688989206248703`*^9, 3.568899041759083*^9}, {3.5688990876855636`*^9, 3.568899258349863*^9}, 3.568899300267137*^9, {3.568899351326027*^9, 3.5688993831032825`*^9}, {3.5688994370481772`*^9, 3.568899468217032*^9}, { 3.5688995813016305`*^9, 3.5688997165538683`*^9}, {3.5688998495129013`*^9, 3.568899932364647*^9}, {3.568899967667509*^9, 3.568900024529609*^9}, { 3.5689000794261055`*^9, 3.568900136257005*^9}, {3.5689001767858763`*^9, 3.56890020149632*^9}, {3.568902068726*^9, 3.568902074139209*^9}, 3.56890216040736*^9, 3.568902344113283*^9, {3.5689024237982235`*^9, 3.56890243907065*^9}, 3.5689025770684924`*^9, 3.568910195129884*^9, 3.568910620995032*^9, {3.568912393532545*^9, 3.5689124022841606`*^9}, { 3.5691332074958715`*^9, 3.5691332081666727`*^9}, {3.5691352237838125`*^9, 3.5691352313342257`*^9}, {3.5691489965881166`*^9, 3.5691490103317413`*^9}, {3.5691490440122004`*^9, 3.5691491273631463`*^9}, {3.5691523435842266`*^9, 3.56915234531583*^9}, { 3.5691524837816734`*^9, 3.569152599175076*^9}, {3.569159470889002*^9, 3.569159489874235*^9}, {3.569160442895509*^9, 3.5691604484335184`*^9}, 3.569237923385586*^9, 3.569341165569158*^9, 3.5693418217843103`*^9, { 3.570341048161818*^9, 3.570341058286236*^9}, {3.57034131095988*^9, 3.570341315156287*^9}, 3.5703415891395683`*^9, 3.570341976207448*^9}], Cell[CellGroupData[{ Cell[BoxData[{ RowBox[{ RowBox[{"tv1", "=", RowBox[{"Table", "[", RowBox[{ RowBox[{"t", "[", RowBox[{"[", "i", "]"}], "]"}], ",", RowBox[{"{", RowBox[{"i", ",", "1", ",", "bc"}], "}"}]}], "]"}]}], ";"}], "\[IndentingNewLine]", RowBox[{ RowBox[{"tv2", "=", RowBox[{"Table", "[", RowBox[{ RowBox[{"{", RowBox[{"0", ",", "0", ",", "0"}], "}"}], ",", RowBox[{"{", RowBox[{"i", ",", "1", ",", "cw"}], "}"}]}], "]"}]}], ";"}], "\[IndentingNewLine]", RowBox[{ RowBox[{"tv3", "=", " ", RowBox[{"Table", "[", RowBox[{ RowBox[{"t", "[", RowBox[{"[", "i", "]"}], "]"}], ",", RowBox[{"{", RowBox[{"i", ",", RowBox[{"bc", "+", "1"}], ",", "n"}], "}"}]}], "]"}]}], ";"}], "\[IndentingNewLine]", RowBox[{ RowBox[{ RowBox[{"tv4", " ", "=", RowBox[{"Table", "[", RowBox[{ RowBox[{"{", RowBox[{"0", ",", "0", ",", "0"}], "}"}], ",", RowBox[{"{", RowBox[{"i", ",", "1", ",", "nj"}], "}"}]}], "]"}]}], ";"}], " "}], "\[IndentingNewLine]", RowBox[{ RowBox[{ RowBox[{"tv5", " ", "=", RowBox[{"Table", "[", RowBox[{ RowBox[{"{", RowBox[{"0", ",", "0", ",", "0"}], "}"}], ",", RowBox[{"{", RowBox[{"i", ",", "1", ",", "nj"}], "}"}]}], "]"}]}], ";"}], " "}], "\[IndentingNewLine]", RowBox[{ RowBox[{"tv", " ", "=", " ", RowBox[{"Join", "[", RowBox[{"tv1", ",", "tv2", ",", "tv3", ",", "tv4", ",", "tv5"}], "]"}]}], ";"}], "\[IndentingNewLine]", RowBox[{"MatrixForm", "[", "tv", "]"}], "\[IndentingNewLine]", RowBox[{"Length", "[", "tv", "]"}]}], "Input", CellChangeTimes->{{3.5688982251756487`*^9, 3.5688986440675845`*^9}, { 3.5688986873108606`*^9, 3.56889871560931*^9}, {3.5688987970414534`*^9, 3.5688988526711507`*^9}, {3.568898887147211*^9, 3.568898888644814*^9}, { 3.5688989206248703`*^9, 3.568899041759083*^9}, {3.5688990876855636`*^9, 3.568899258349863*^9}, 3.568899300267137*^9, {3.568899351326027*^9, 3.5688993831032825`*^9}, {3.5688994370481772`*^9, 3.568899468217032*^9}, { 3.5688995813016305`*^9, 3.5688997165538683`*^9}, {3.5688998495129013`*^9, 3.568899932364647*^9}, {3.568899967667509*^9, 3.568900024529609*^9}, { 3.5689000794261055`*^9, 3.568900136257005*^9}, {3.5689001767858763`*^9, 3.56890020149632*^9}, {3.568902068726*^9, 3.568902074139209*^9}, 3.56890216040736*^9, 3.568902344113283*^9, {3.5689024237982235`*^9, 3.56890243907065*^9}, 3.5689025770684924`*^9, 3.568910195129884*^9, 3.568910620995032*^9, {3.568912393532545*^9, 3.5689124022841606`*^9}, { 3.5691332074958715`*^9, 3.5691332081666727`*^9}, {3.5691352237838125`*^9, 3.5691352313342257`*^9}, {3.5691489965881166`*^9, 3.5691490103317413`*^9}, {3.5691490440122004`*^9, 3.5691491273631463`*^9}, {3.5691523435842266`*^9, 3.56915234531583*^9}, { 3.5691524837816734`*^9, 3.5691526041202846`*^9}, {3.5691595921324143`*^9, 3.5691596901941867`*^9}, {3.569159772406331*^9, 3.5691597832951508`*^9}, { 3.5691598700313025`*^9, 3.569159885147729*^9}, {3.569160485733184*^9, 3.569160486887586*^9}, {3.5691672792073207`*^9, 3.5691672793789206`*^9}, { 3.5691673418102303`*^9, 3.5691674875144863`*^9}, {3.569168259700243*^9, 3.569168260386644*^9}, {3.569168321257951*^9, 3.569168337466379*^9}, { 3.5691685152754917`*^9, 3.569168656096939*^9}, {3.5691687137702403`*^9, 3.569168772566744*^9}, {3.5691697249898825`*^9, 3.569169747063921*^9}, { 3.569169944981469*^9, 3.5691699696763124`*^9}, 3.569341165569158*^9, { 3.5693417833614435`*^9, 3.5693417874486504`*^9}, {3.5704552110753345`*^9, 3.5704552378605814`*^9}, {3.5704560776724567`*^9, 3.570456083070066*^9}, { 3.570855427306635*^9, 3.570855434529448*^9}, {3.57184030784344*^9, 3.5718403245666695`*^9}, {3.5723553440956435`*^9, 3.5723553601792717`*^9}, {3.5723567913257856`*^9, 3.572356801543803*^9}, { 3.5723587125159597`*^9, 3.572358735884801*^9}, {3.5726205042656164`*^9, 3.5726205078692226`*^9}, {3.5726209578956137`*^9, 3.5726209632776227`*^9}, {3.5726266468256054`*^9, 3.5726266628780336`*^9}}], Cell[BoxData[ TagBox[ RowBox[{"(", "\[NoBreak]", GridBox[{ {"6.2984567579999995`", "0.87813677494`", "4.5943018512`"}, {"8.0912398142`", "3.0808202978`", "5.136275268`"}, {"10.1614346472`", "3.1034970098`", "3.1087882425999998`"}, {"5.4828510164`", "0.92895150708`", "1.8780285960599998`"}, {"8.954466651`", "3.8282069308`", "0.5798057313199999`"}, {"6.659205451399999`", "2.2315774334`", "0.10211134441`"}, {"7.652445436999999`", RowBox[{"-", "1.61707633272`"}], "5.1421334186`"}, {"3.9725819972`", "1.10059531966`", "6.2977008676`"}, {"3.2546750897999996`", RowBox[{"-", "0.53636093058`"}], "1.15904454484`"}, {"5.6393203292`", "2.1062885995999996`", RowBox[{"-", "2.5537757163999997`"}]}, {"1.2153772769`", "0.6439052372399999`", "0.150276680698`"}, { RowBox[{"-", "1.00289648546`"}], RowBox[{"-", "0.7372954961599999`"}], RowBox[{"-", "0.36513285772`"}]}, { RowBox[{"-", "1.10875893598`"}], RowBox[{"-", "3.5256617982`"}], "0.20480850387999996`"}, { RowBox[{"-", "3.047183175`"}], "0.44584305518`", RowBox[{"-", "1.3762307540199998`"}]}, { RowBox[{"-", "5.1780382126`"}], RowBox[{"-", "0.97286873932`"}], RowBox[{"-", "2.1119577776`"}]}, { RowBox[{"-", "7.2930195518`"}], "0.22196721596`", RowBox[{"-", "2.9294532452`"}]}, { RowBox[{"-", "9.5026761636`"}], RowBox[{"-", "1.24914668052`"}], RowBox[{"-", "3.692524604`"}]}, { RowBox[{"-", "9.4310555482`"}], RowBox[{"-", "4.0933354886`"}], RowBox[{"-", "3.5706372769999994`"}]}, { RowBox[{"-", "11.584965243`"}], RowBox[{"-", "0.072731774288`"}], RowBox[{"-", "4.4973589074`"}]}, { RowBox[{"-", "13.7116628834`"}], RowBox[{"-", "1.5733480730799998`"}], RowBox[{"-", "5.6533043016`"}]}, { RowBox[{"-", "14.6026686924`"}], RowBox[{"-", "0.31240950232`"}], RowBox[{"-", "7.868819063999999`"}]}, {"0", "0", "0"}, {"0", "0", "0"}, {"0", "0", "0"}, {"0", "0", "0"}, {"0", "0", "0"}, {"0", "0", "0"}, {"0", "0", "0"}, {"0", "0", "0"}, {"0", "0", "0"}, {"0", "0", "0"}, {"0", "0", "0"}, {"0", "0", "0"}, {"0", "0", "0"}, {"0", "0", "0"}, {"0", "0", "0"}, {"0", "0", "0"}, {"0", "0", "0"}, {"0", "0", "0"}, {"0", "0", "0"}, {"0", "0", "0"}, {"0", "0", "0"}, {"8.9455849388`", "2.8361007808000003`", "6.994820788999999`"}, {"7.045654418399999`", "4.8545171214`", "5.077693761999999`"}, {"11.011055456799998`", "1.2324226054199998`", "2.9663029022`"}, {"11.60291764`", "4.4877213048`", "3.6071089888`"}, {"8.4075799466`", "5.8133640938`", "0.62856066212`"}, {"10.3173370422`", "3.5362442637999996`", RowBox[{"-", "0.9369639453199999`"}]}, {"6.3706442912`", RowBox[{"-", "3.1879677619999995`"}], "4.7785501362`"}, {"8.2460083736`", RowBox[{"-", "1.6577243389799998`"}], "7.113873526999999`"}, {"9.305010823999998`", RowBox[{"-", "1.78331552894`"}], "3.924016039`"}, {"2.6287978386`", RowBox[{"-", "0.38658124782`"}], "5.8226237512`"}, {"3.0889461196`", "2.9398467381999995`", "6.0161316936`"}, {"4.5430902766`", "0.9068606101399999`", "8.2673622774`"}, {"3.2353998846`", RowBox[{"-", "2.5602007847999997`"}], "1.42313375334`"}, {"6.8030136`", "3.2707377608`", RowBox[{"-", "3.7919241915999997`"}]}, {"3.7010283709999996`", "2.8028416031999996`", RowBox[{"-", "2.5785311269999998`"}]}, {"5.6759810136`", "0.15492918610999998`", RowBox[{"-", "3.2121562547999996`"}]}, {"1.29132536484`", "2.6420259206`", RowBox[{"-", "0.2581365716`"}]}, { RowBox[{"-", "0.33081543356`"}], RowBox[{"-", "4.5810737692`"}], RowBox[{"-", "1.38367627446`"}]}, { RowBox[{"-", "3.0658914624`"}], RowBox[{"-", "4.0899339818`"}], "0.51139765012`"}, { RowBox[{"-", "0.0062334501835999995`"}], RowBox[{"-", "3.9225042581999996`"}], "1.8987966848`"}, { RowBox[{"-", "3.0381124902`"}], "2.472706471`", RowBox[{"-", "1.61573462726`"}]}, { RowBox[{"-", "5.1264486927999995`"}], RowBox[{"-", "3.0110894083999997`"}], RowBox[{"-", "2.024841409`"}]}, { RowBox[{"-", "7.3442311263999995`"}], "2.2604902412`", RowBox[{"-", "3.0167585863999995`"}]}, { RowBox[{"-", "11.297726891`"}], RowBox[{"-", "4.846580272200001`"}], RowBox[{"-", "4.0077309008`"}]}, { RowBox[{"-", "8.877554802799999`"}], RowBox[{"-", "4.6857645896`"}], RowBox[{"-", "1.6773019003399998`"}]}, { RowBox[{"-", "8.0659174858`"}], RowBox[{"-", "4.8050063002`"}], RowBox[{"-", "4.9393658188`"}]}, { RowBox[{"-", "11.7452140078`"}], "1.9541656565999999`", RowBox[{"-", "4.3202915812`"}]}, { RowBox[{"-", "15.250088819999998`"}], RowBox[{"-", "1.7430832623999999`"}], RowBox[{"-", "4.2942133624`"}]}, { RowBox[{"-", "13.031550496`"}], RowBox[{"-", "3.4508286486`"}], RowBox[{"-", "6.158617033999999`"}]}, { RowBox[{"-", "15.9583581248`"}], RowBox[{"-", "1.33242690534`"}], RowBox[{"-", "8.547797615799999`"}]}, {"0", "0", "0"}, {"0", "0", "0"}, {"0", "0", "0"}, {"0", "0", "0"}, {"0", "0", "0"}, {"0", "0", "0"}, {"0", "0", "0"}, {"0", "0", "0"} }, 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.5727773851368213`*^9}], Cell[BoxData["80"], "Output", CellChangeTimes->{3.5727773851368213`*^9}] }, Open ]], Cell[CellGroupData[{ Cell[BoxData[{ RowBox[{"ow", "=", RowBox[{"Join", "[", RowBox[{ RowBox[{"Table", "[", RowBox[{ RowBox[{"-", "2.0"}], ",", RowBox[{"{", RowBox[{"i", ",", "1", ",", RowBox[{"bc", "+", "nb"}]}], "}"}]}], "]"}], ",", RowBox[{"Table", "[", RowBox[{ RowBox[{"-", "0.5"}], ",", RowBox[{"{", RowBox[{"i", ",", "1", ",", RowBox[{"2", "*", "nj"}]}], "}"}]}], "]"}]}], "]"}]}], "\[IndentingNewLine]", RowBox[{"cnv", "=", RowBox[{"Join", "[", RowBox[{ RowBox[{"Table", "[", RowBox[{ RowBox[{"cn", "[", RowBox[{"[", "i", "]"}], "]"}], ",", RowBox[{"{", RowBox[{"i", ",", "1", ",", "bc"}], "}"}]}], "]"}], ",", RowBox[{"Table", "[", RowBox[{"0.0", ",", RowBox[{"{", RowBox[{"i", ",", "1", ",", "cw"}], "}"}]}], "]"}], ",", RowBox[{"Table", "[", RowBox[{ RowBox[{"cn", "[", RowBox[{"[", "i", "]"}], "]"}], ",", RowBox[{"{", RowBox[{"i", ",", RowBox[{"bc", "+", "1"}], ",", "n"}], "}"}]}], "]"}], ",", RowBox[{"Table", "[", RowBox[{"0.0", ",", RowBox[{"{", RowBox[{"i", ",", "1", ",", RowBox[{"2", "*", "nj"}]}], "}"}]}], "]"}]}], "]"}]}]}], "Input", CellChangeTimes->{{3.5688982251756487`*^9, 3.5688986440675845`*^9}, { 3.5688986873108606`*^9, 3.56889871560931*^9}, {3.5688987970414534`*^9, 3.5688988526711507`*^9}, {3.568898887147211*^9, 3.568898888644814*^9}, { 3.5688989206248703`*^9, 3.568899041759083*^9}, {3.5688990876855636`*^9, 3.568899258349863*^9}, 3.568899300267137*^9, {3.568899351326027*^9, 3.5688993831032825`*^9}, {3.5688994370481772`*^9, 3.568899468217032*^9}, { 3.5688995813016305`*^9, 3.5688997165538683`*^9}, {3.5688998495129013`*^9, 3.568899932364647*^9}, {3.568899967667509*^9, 3.568900024529609*^9}, { 3.5689000794261055`*^9, 3.568900136257005*^9}, {3.5689001767858763`*^9, 3.56890020149632*^9}, {3.568902068726*^9, 3.568902074139209*^9}, 3.56890216040736*^9, 3.568902344113283*^9, {3.5689024237982235`*^9, 3.56890243907065*^9}, 3.5689025770684924`*^9, 3.568910195129884*^9, 3.568910620995032*^9, {3.568912393532545*^9, 3.5689124022841606`*^9}, { 3.5691332074958715`*^9, 3.5691332081666727`*^9}, {3.5691352237838125`*^9, 3.5691352313342257`*^9}, {3.5691489965881166`*^9, 3.5691490103317413`*^9}, {3.5691490440122004`*^9, 3.5691491273631463`*^9}, {3.5691523435842266`*^9, 3.56915234531583*^9}, { 3.5691524837816734`*^9, 3.5691526041202846`*^9}, {3.5691595921324143`*^9, 3.5691596901941867`*^9}, {3.569159772406331*^9, 3.5691597832951508`*^9}, { 3.5691598700313025`*^9, 3.569159885147729*^9}, {3.569160485733184*^9, 3.569160486887586*^9}, {3.5691672792073207`*^9, 3.5691672793789206`*^9}, { 3.5691673418102303`*^9, 3.5691674875144863`*^9}, {3.569168259700243*^9, 3.569168260386644*^9}, {3.569168321257951*^9, 3.569168337466379*^9}, { 3.5691685152754917`*^9, 3.569168656096939*^9}, {3.5691687137702403`*^9, 3.569168772566744*^9}, {3.5691697249898825`*^9, 3.569169747063921*^9}, { 3.569169944981469*^9, 3.5691699655579047`*^9}, {3.56921753575448*^9, 3.569217541807291*^9}, {3.569217576283351*^9, 3.5692176436130695`*^9}, { 3.5692176921603546`*^9, 3.569217692768756*^9}, {3.5692177389136367`*^9, 3.569217740192839*^9}, {3.5692222042775583`*^9, 3.5692222070231633`*^9}, { 3.569230669979245*^9, 3.5692306709620466`*^9}, {3.5692308816872168`*^9, 3.5692309970650196`*^9}, {3.5692310297158766`*^9, 3.569231090602784*^9}, { 3.5692311251880445`*^9, 3.569231148868886*^9}, 3.56923793753481*^9, 3.569341165569158*^9, 3.5693418217375107`*^9, {3.5703412254249296`*^9, 3.5703412423509593`*^9}, {3.5704553045038986`*^9, 3.570455320681127*^9}, { 3.57045550485505*^9, 3.5704555063370533`*^9}, {3.5704556421508913`*^9, 3.5704556424784923`*^9}, 3.5704557137862177`*^9, {3.5704564711051474`*^9, 3.5704564908079824`*^9}, {3.570456521602436*^9, 3.5704565228348384`*^9}, { 3.5704569127419233`*^9, 3.5704569202767363`*^9}, 3.5704636205455036`*^9, 3.570596993178934*^9, {3.570855461377095*^9, 3.5708554743563175`*^9}, 3.570855611589759*^9, {3.571840408884818*^9, 3.571840415296429*^9}, { 3.571840465559717*^9, 3.571840473905732*^9}, {3.5720165322617407`*^9, 3.5720165635241957`*^9}, {3.5721934404423375`*^9, 3.57219344758715*^9}, 3.572193479551606*^9, {3.5721935303764954`*^9, 3.572193534214102*^9}, { 3.5726206642250977`*^9, 3.5726206651142993`*^9}, {3.572620782223705*^9, 3.572620782738506*^9}, {3.572620924963956*^9, 3.5726209465699935`*^9}}], Cell[BoxData[ RowBox[{"{", RowBox[{ RowBox[{"-", "2.`"}], ",", RowBox[{"-", "2.`"}], ",", RowBox[{"-", "2.`"}], ",", RowBox[{"-", "2.`"}], ",", RowBox[{"-", "2.`"}], ",", RowBox[{"-", "2.`"}], ",", RowBox[{"-", "2.`"}], ",", RowBox[{"-", "2.`"}], ",", RowBox[{"-", "2.`"}], ",", RowBox[{"-", "2.`"}], ",", RowBox[{"-", "2.`"}], ",", RowBox[{"-", "2.`"}], ",", RowBox[{"-", "2.`"}], ",", RowBox[{"-", "2.`"}], ",", RowBox[{"-", "2.`"}], ",", RowBox[{"-", "2.`"}], ",", RowBox[{"-", "2.`"}], ",", RowBox[{"-", "2.`"}], ",", RowBox[{"-", "2.`"}], ",", RowBox[{"-", "2.`"}], ",", RowBox[{"-", "2.`"}], ",", RowBox[{"-", "2.`"}], ",", RowBox[{"-", "2.`"}], ",", RowBox[{"-", "2.`"}], ",", RowBox[{"-", "2.`"}], ",", RowBox[{"-", "2.`"}], ",", RowBox[{"-", "2.`"}], ",", RowBox[{"-", "2.`"}], ",", RowBox[{"-", "2.`"}], ",", RowBox[{"-", "2.`"}], ",", RowBox[{"-", "2.`"}], ",", RowBox[{"-", "2.`"}], ",", RowBox[{"-", "2.`"}], ",", RowBox[{"-", "2.`"}], ",", RowBox[{"-", "2.`"}], ",", RowBox[{"-", "2.`"}], ",", RowBox[{"-", "2.`"}], ",", RowBox[{"-", "2.`"}], ",", RowBox[{"-", "2.`"}], ",", RowBox[{"-", "2.`"}], ",", RowBox[{"-", "2.`"}], ",", RowBox[{"-", "2.`"}], ",", RowBox[{"-", "2.`"}], ",", RowBox[{"-", "2.`"}], ",", RowBox[{"-", "2.`"}], ",", RowBox[{"-", "2.`"}], ",", RowBox[{"-", "2.`"}], ",", RowBox[{"-", "2.`"}], ",", RowBox[{"-", "2.`"}], ",", RowBox[{"-", "2.`"}], ",", RowBox[{"-", "2.`"}], ",", RowBox[{"-", "2.`"}], ",", RowBox[{"-", "2.`"}], ",", RowBox[{"-", "2.`"}], ",", RowBox[{"-", "2.`"}], ",", RowBox[{"-", "2.`"}], ",", RowBox[{"-", "2.`"}], ",", RowBox[{"-", "2.`"}], ",", RowBox[{"-", "2.`"}], ",", RowBox[{"-", "2.`"}], ",", RowBox[{"-", "2.`"}], ",", RowBox[{"-", "2.`"}], ",", RowBox[{"-", "2.`"}], ",", RowBox[{"-", "2.`"}], ",", RowBox[{"-", "2.`"}], ",", RowBox[{"-", "2.`"}], ",", RowBox[{"-", "2.`"}], ",", RowBox[{"-", "2.`"}], ",", RowBox[{"-", "2.`"}], ",", RowBox[{"-", "2.`"}], ",", RowBox[{"-", "2.`"}], ",", RowBox[{"-", "2.`"}], ",", RowBox[{"-", "0.5`"}], ",", RowBox[{"-", "0.5`"}], ",", RowBox[{"-", "0.5`"}], ",", RowBox[{"-", "0.5`"}], ",", RowBox[{"-", "0.5`"}], ",", RowBox[{"-", "0.5`"}], ",", RowBox[{"-", "0.5`"}], ",", RowBox[{"-", "0.5`"}]}], "}"}]], "Output", CellChangeTimes->{3.572777385152421*^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.`"}], "}"}]], "Output", CellChangeTimes->{3.572777385152421*^9}] }, Open ]], Cell[CellGroupData[{ Cell[BoxData[ RowBox[{ RowBox[{"(*", " ", RowBox[{"nucleus", "-", RowBox[{"cloud", " ", "distances"}]}], " ", "*)"}], "\[IndentingNewLine]", RowBox[{ RowBox[{ RowBox[{"dcw", "=", RowBox[{"Table", "[", RowBox[{ RowBox[{ RowBox[{"sq", "=", RowBox[{"Norm", "[", RowBox[{ RowBox[{"tw", "[", RowBox[{"[", "i", "]"}], "]"}], "-", RowBox[{"tv", "[", RowBox[{"[", "j", "]"}], "]"}]}], "]"}]}], ";", RowBox[{"If", "[", RowBox[{ RowBox[{"(", RowBox[{ RowBox[{"sq", ">", " ", "0.1"}], " ", "&&", " ", RowBox[{"i", "\[NotEqual]", "j"}]}], ")"}], ",", RowBox[{"1", "/", "sq"}], ",", "0"}], "]"}]}], ",", RowBox[{"{", RowBox[{"i", ",", "1", ",", "bt"}], "}"}], ",", RowBox[{"{", RowBox[{"j", ",", "1", ",", "bt"}], "}"}]}], "]"}]}], ";"}], "\[IndentingNewLine]", RowBox[{"Length", "[", "dcw", "]"}], "\[IndentingNewLine]", RowBox[{"(*", RowBox[{"MatrixForm", "[", "dcw", "]"}], "*)"}], " "}]}]], "Input", CellChangeTimes->{{3.5688982251756487`*^9, 3.5688986440675845`*^9}, { 3.5688986873108606`*^9, 3.56889871560931*^9}, {3.5688987970414534`*^9, 3.5688988526711507`*^9}, {3.568898887147211*^9, 3.568898888644814*^9}, { 3.5688989206248703`*^9, 3.568899041759083*^9}, {3.5688990876855636`*^9, 3.568899258349863*^9}, 3.568899300267137*^9, {3.568899351326027*^9, 3.5688993831032825`*^9}, {3.5688994370481772`*^9, 3.568899468217032*^9}, { 3.5688995813016305`*^9, 3.5688997165538683`*^9}, {3.5688998495129013`*^9, 3.568899932364647*^9}, {3.568899967667509*^9, 3.568900024529609*^9}, { 3.5689000794261055`*^9, 3.568900136257005*^9}, {3.5689001767858763`*^9, 3.56890020149632*^9}, {3.568902068726*^9, 3.568902074139209*^9}, 3.56890216040736*^9, 3.568902344113283*^9, {3.5689024237982235`*^9, 3.56890243907065*^9}, 3.5689025770684924`*^9, 3.568910195129884*^9, 3.568910620995032*^9, {3.568912393532545*^9, 3.5689124022841606`*^9}, { 3.5691332074958715`*^9, 3.5691332081666727`*^9}, {3.5691352237838125`*^9, 3.5691352313342257`*^9}, {3.5691489965881166`*^9, 3.5691490103317413`*^9}, {3.5691490440122004`*^9, 3.5691491273631463`*^9}, {3.5691523435842266`*^9, 3.56915234531583*^9}, { 3.5691524837816734`*^9, 3.5691526041202846`*^9}, {3.5691595921324143`*^9, 3.5691596901941867`*^9}, {3.569159772406331*^9, 3.5691597832951508`*^9}, { 3.5691598700313025`*^9, 3.569159885147729*^9}, {3.569160485733184*^9, 3.569160486887586*^9}, {3.5691672792073207`*^9, 3.5691672793789206`*^9}, { 3.5691673418102303`*^9, 3.5691674875144863`*^9}, {3.569168259700243*^9, 3.569168260386644*^9}, {3.569168321257951*^9, 3.569168337466379*^9}, { 3.5691685152754917`*^9, 3.569168656096939*^9}, {3.5691687137702403`*^9, 3.569168772566744*^9}, {3.5691697249898825`*^9, 3.569169747063921*^9}, { 3.569169944981469*^9, 3.5691699655579047`*^9}, {3.56921753575448*^9, 3.569217541807291*^9}, {3.569217576283351*^9, 3.5692176436130695`*^9}, { 3.5692176921603546`*^9, 3.569217692768756*^9}, {3.5692177389136367`*^9, 3.569217740192839*^9}, {3.5692222042775583`*^9, 3.5692222070231633`*^9}, { 3.569230669979245*^9, 3.5692306709620466`*^9}, {3.5692308816872168`*^9, 3.5692309970650196`*^9}, {3.5692310297158766`*^9, 3.569231090602784*^9}, { 3.5692311251880445`*^9, 3.569231148868886*^9}, 3.56923793753481*^9, 3.569341165569158*^9, 3.5693418217375107`*^9, {3.5703412254249296`*^9, 3.5703412423509593`*^9}, {3.5704553045038986`*^9, 3.570455320681127*^9}, { 3.57045550485505*^9, 3.5704555063370533`*^9}, {3.5704556421508913`*^9, 3.5704556424784923`*^9}, 3.5704557137862177`*^9, {3.5704564711051474`*^9, 3.5704564908079824`*^9}, {3.570456521602436*^9, 3.5704565228348384`*^9}, { 3.5704569127419233`*^9, 3.5704569202767363`*^9}, 3.5704636205455036`*^9, 3.570596993178934*^9, {3.570855461377095*^9, 3.5708554743563175`*^9}, 3.570855611589759*^9, {3.571840408884818*^9, 3.571840415296429*^9}, { 3.571840465559717*^9, 3.571840473905732*^9}, {3.5720165322617407`*^9, 3.5720165635241957`*^9}, {3.5721934404423375`*^9, 3.57219344758715*^9}, 3.572193479551606*^9, 3.5721935303764954`*^9, {3.5721935661785583`*^9, 3.5721935879405966`*^9}, {3.5721936909943776`*^9, 3.572193697218788*^9}, { 3.5721937395728626`*^9, 3.57219374339487*^9}, {3.5721937963725624`*^9, 3.5721938223154078`*^9}, {3.572193859786674*^9, 3.572193861533877*^9}, 3.5723554650270557`*^9, {3.5723567325136824`*^9, 3.5723567701565485`*^9}, 3.572621740954589*^9}], Cell[BoxData["80"], "Output", CellChangeTimes->{3.572777385214821*^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["1523.8638179865115`"], "Output", CellChangeTimes->{3.5727773852616215`*^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}, {3.572620810756155*^9, 3.5726208298349886`*^9}, {3.5726208600522413`*^9, 3.5726208972739067`*^9}}], Cell[BoxData["1523.5066751293684`"], "Output", CellChangeTimes->{3.5727773852616215`*^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["1687.5566884062603`"], "Output", CellChangeTimes->{3.5727773852772217`*^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[{"-", "3332.4731753154056`"}]], "Output", CellChangeTimes->{3.5727773852928214`*^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[{"-", "4877.3594030966515`"}]], "Output", CellChangeTimes->{3.572777385308421*^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[{"-", "4945.442747139051`"}]], "Output", CellChangeTimes->{3.572777385308421*^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.5727773853240213`*^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["1687.5566884062603`"], "Output", CellChangeTimes->{3.5727773853396215`*^9}], Cell[BoxData["1586.926201840177`"], "Output", CellChangeTimes->{3.5727773853396215`*^9}], Cell[BoxData[ RowBox[{"-", "4945.442747139051`"}]], "Output", CellChangeTimes->{3.5727773853396215`*^9}], Cell[BoxData["5.271428571428572`"], "Output", CellChangeTimes->{3.5727773853396215`*^9}], Cell[BoxData[ RowBox[{"-", "1670.9598568926137`"}]], "Output", CellChangeTimes->{3.5727773853396215`*^9}], Cell[BoxData["849.3932593201883`"], "Output", CellChangeTimes->{3.5727773853396215`*^9}], Cell[BoxData["1.9672393659327672`"], "Output", CellChangeTimes->{3.5727773853396215`*^9}], Cell[BoxData[ RowBox[{"-", "821.5665975724254`"}]], "Output", CellChangeTimes->{3.5727773853552217`*^9}] }, Open ]] }, WindowSize->{1481, 819}, WindowMargins->{{Automatic, 128}, {Automatic, 53}}, 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, 5976, 101, 362, "Output"] }, Open ]], Cell[CellGroupData[{ Cell[8457, 166, 680, 14, 52, "Input"], Cell[9140, 182, 5501, 141, 791, "Output"] }, Open ]], Cell[CellGroupData[{ Cell[14678, 328, 609, 10, 31, "Input"], Cell[15290, 340, 1063, 15, 31, "Output"] }, Open ]], Cell[CellGroupData[{ Cell[16390, 360, 955, 14, 31, "Input"], Cell[17348, 376, 73, 1, 31, "Output"] }, Open ]], Cell[CellGroupData[{ Cell[17458, 382, 1560, 29, 31, "Input"], Cell[19021, 413, 1063, 15, 31, "Output"] }, Open ]], Cell[20099, 431, 1419, 23, 31, "Input"], Cell[21521, 456, 1592, 29, 31, "Input"], Cell[CellGroupData[{ Cell[23138, 489, 1234, 18, 31, "Input"], Cell[24375, 509, 3556, 105, 72, "Output"] }, Open ]], Cell[CellGroupData[{ Cell[27968, 619, 697, 14, 31, "Input"], Cell[28668, 635, 680, 11, 52, "Output"] }, Open ]], Cell[29363, 649, 908, 24, 31, "Input"], Cell[CellGroupData[{ Cell[30296, 677, 5635, 122, 92, "Input"], Cell[35934, 801, 838, 13, 52, "Output"], Cell[36775, 816, 861, 14, 72, "Output"] }, Open ]], Cell[CellGroupData[{ Cell[37673, 835, 519, 12, 31, "Input"], Cell[38195, 849, 1060, 15, 31, "Output"] }, Open ]], Cell[CellGroupData[{ Cell[39292, 869, 1401, 38, 31, "Input"], Cell[40696, 909, 741, 12, 52, "Output"] }, Open ]], Cell[CellGroupData[{ Cell[41474, 926, 827, 23, 92, "Input"], Cell[42304, 951, 73, 1, 31, "Output"], Cell[42380, 954, 73, 1, 31, "Output"] }, Open ]], Cell[CellGroupData[{ Cell[42490, 960, 284, 6, 52, "Input"], Cell[42777, 968, 86, 1, 31, "Output"] }, Open ]], Cell[42878, 972, 1824, 35, 72, "Input"], Cell[CellGroupData[{ Cell[44727, 1011, 4494, 114, 192, "Input"], Cell[49224, 1127, 15918, 394, 369, "Output"] }, Open ]], Cell[CellGroupData[{ Cell[65179, 1526, 2100, 42, 72, "Input"], Cell[67282, 1570, 64368, 888, 806, "Output"] }, Open ]], Cell[131665, 2461, 1331, 36, 72, "Input"], Cell[CellGroupData[{ Cell[133021, 2501, 4850, 86, 72, "Input"], Cell[137874, 2589, 17398, 246, 806, "Output"] }, Open ]], Cell[CellGroupData[{ Cell[155309, 2840, 2570, 53, 132, "Input"], Cell[157882, 2895, 70, 1, 31, "Output"] }, Open ]], Cell[CellGroupData[{ Cell[157989, 2901, 2598, 53, 92, "Input"], Cell[160590, 2956, 305, 6, 31, "Output"] }, Open ]], Cell[160910, 2965, 9726, 201, 232, "Input"], Cell[CellGroupData[{ Cell[170661, 3170, 1947, 43, 72, "Input"], Cell[172611, 3215, 240, 5, 31, "Output"], Cell[172854, 3222, 145, 3, 31, "Output"] }, Open ]], Cell[CellGroupData[{ Cell[173036, 3230, 570, 14, 52, "Input"], Cell[173609, 3246, 545, 11, 52, "Output"], Cell[174157, 3259, 144, 3, 31, "Output"] }, Open ]], Cell[CellGroupData[{ Cell[174338, 3267, 2767, 54, 72, "Input"], Cell[177108, 3323, 950, 17, 52, "Output"], Cell[178061, 3342, 145, 3, 31, "Output"] }, Open ]], Cell[CellGroupData[{ Cell[178243, 3350, 3698, 81, 112, "Input"], Cell[181944, 3433, 955, 15, 72, "Output"] }, Open ]], Cell[182914, 3451, 2072, 49, 112, "Input"], Cell[184989, 3502, 561, 12, 52, "Input"], Cell[185553, 3516, 2148, 49, 92, "Input"], Cell[187704, 3567, 2452, 56, 92, "Input"], Cell[190159, 3625, 1759, 41, 72, "Input"], Cell[CellGroupData[{ Cell[191943, 3670, 923, 20, 31, "Input"], Cell[192869, 3692, 89, 1, 31, "Output"] }, Open ]], Cell[CellGroupData[{ Cell[192995, 3698, 711, 18, 31, "Input"], Cell[193709, 3718, 89, 1, 31, "Output"] }, Open ]], Cell[CellGroupData[{ Cell[193835, 3724, 507, 10, 31, "Input"], Cell[194345, 3736, 89, 1, 31, "Output"] }, Open ]], Cell[CellGroupData[{ Cell[194471, 3742, 823, 23, 31, "Input"], Cell[195297, 3767, 90, 1, 31, "Output"] }, Open ]], Cell[CellGroupData[{ Cell[195424, 3773, 204, 4, 31, "Input"], Cell[195631, 3779, 88, 1, 31, "Output"] }, Open ]], Cell[195734, 3783, 1975, 34, 72, "Input"], Cell[CellGroupData[{ Cell[197734, 3821, 4576, 112, 212, "Input"], Cell[202313, 3935, 211, 5, 31, "Output"], Cell[202527, 3942, 4859, 171, 791, "Output"] }, Open ]], Cell[207401, 4116, 8797, 140, 152, "Input"], Cell[216201, 4258, 7702, 106, 31, "Input"], Cell[CellGroupData[{ Cell[223928, 4368, 3076, 48, 52, "Input", CellGroupingRules->{GroupTogetherGrouping, 10000.}], Cell[227007, 4418, 2868, 43, 31, "Input", CellGroupingRules->{GroupTogetherGrouping, 10000.}] }, Open ]], Cell[229890, 4464, 127, 3, 31, "Output"], Cell[CellGroupData[{ Cell[230042, 4471, 8035, 117, 31, "Input", CellGroupingRules->{GroupTogetherGrouping, 10000.}], Cell[238080, 4590, 8867, 151, 152, "Input", CellGroupingRules->{GroupTogetherGrouping, 10000.}], Cell[246950, 4743, 8574, 124, 52, "Input", CellGroupingRules->{GroupTogetherGrouping, 10000.}], Cell[255527, 4869, 1260, 24, 52, "Input", CellGroupingRules->{GroupTogetherGrouping, 10000.}], Cell[256790, 4895, 821, 14, 31, "Input", CellGroupingRules->{GroupTogetherGrouping, 10000.}], Cell[257614, 4911, 1075, 21, 31, "Input", CellGroupingRules->{GroupTogetherGrouping, 10000.}], Cell[258692, 4934, 1738, 31, 72, "Input", CellGroupingRules->{GroupTogetherGrouping, 10000.}], Cell[260433, 4967, 842, 14, 31, "Input", CellGroupingRules->{GroupTogetherGrouping, 10000.}], Cell[261278, 4983, 1145, 22, 31, "Input", CellGroupingRules->{GroupTogetherGrouping, 10000.}], Cell[262426, 5007, 1781, 31, 72, "Input", CellGroupingRules->{GroupTogetherGrouping, 10000.}], Cell[264210, 5040, 847, 15, 31, "Input", CellGroupingRules->{GroupTogetherGrouping, 10000.}], Cell[265060, 5057, 1219, 23, 31, "Input", CellGroupingRules->{GroupTogetherGrouping, 10000.}], Cell[266282, 5082, 2021, 36, 72, "Input", CellGroupingRules->{GroupTogetherGrouping, 10000.}], Cell[268306, 5120, 1024, 16, 31, "Input", CellGroupingRules->{GroupTogetherGrouping, 10000.}], Cell[269333, 5138, 2032, 37, 92, "Input", CellGroupingRules->{GroupTogetherGrouping, 10000.}], Cell[271368, 5177, 1554, 35, 152, "Input", CellGroupingRules->{GroupTogetherGrouping, 10000.}], Cell[272925, 5214, 1579, 36, 152, "Input", CellGroupingRules->{GroupTogetherGrouping, 10000.}], Cell[274507, 5252, 1663, 37, 152, "Input", CellGroupingRules->{GroupTogetherGrouping, 10000.}], Cell[276173, 5291, 2133, 52, 92, "Input", CellGroupingRules->{GroupTogetherGrouping, 10000.}], Cell[278309, 5345, 5137, 114, 292, "Input", CellGroupingRules->{GroupTogetherGrouping, 10000.}] }, Open ]], Cell[283461, 5462, 2792, 54, 72, "Input"], Cell[CellGroupData[{ Cell[286278, 5520, 2131, 32, 52, "Input"], Cell[288412, 5554, 127, 3, 31, "Output"] }, Open ]], Cell[288554, 5560, 14309, 432, 1492, "Input"], Cell[CellGroupData[{ Cell[302888, 5996, 2161, 32, 31, "Input"], Cell[305052, 6030, 128, 3, 31, "Output"] }, Open ]], Cell[305195, 6036, 14254, 430, 1492, "Input"], Cell[CellGroupData[{ Cell[319474, 6470, 2185, 33, 52, "Input"], Cell[321662, 6505, 127, 3, 31, "Output"] }, Open ]], Cell[321804, 6511, 13348, 399, 1392, "Input"], Cell[CellGroupData[{ Cell[335177, 6914, 2099, 28, 72, "Input"], Cell[337279, 6944, 1956, 60, 92, "Output"], Cell[339238, 7006, 2009, 58, 92, "Output"] }, Open ]], Cell[341262, 7067, 3073, 58, 92, "Input"], Cell[CellGroupData[{ Cell[344360, 7129, 939, 17, 72, "Input"], Cell[345302, 7148, 4591, 106, 152, "Output"], Cell[349896, 7256, 73, 1, 31, "Output"], Cell[349972, 7259, 73, 1, 31, "Output"] }, Open ]], Cell[350060, 7263, 10201, 233, 72, "Input"], Cell[360264, 7498, 6427, 103, 31, "Input"], Cell[366694, 7603, 10215, 234, 72, "Input"], Cell[376912, 7839, 5925, 93, 31, "Input"], Cell[382840, 7934, 9436, 145, 52, "Input"], Cell[CellGroupData[{ Cell[392301, 8083, 15333, 294, 232, "Input"], Cell[407637, 8379, 167087, 2936, 528, 32842, 733, "CachedBoxData", "BoxData", \ "Output"], Cell[574727, 11317, 48448, 934, 369, 23302, 520, "CachedBoxData", "BoxData", \ "Output"] }, Open ]], Cell[CellGroupData[{ Cell[623212, 12256, 4318, 96, 152, "Input"], Cell[627533, 12354, 71, 1, 31, "Output"] }, Open ]], Cell[CellGroupData[{ Cell[627641, 12360, 2499, 47, 92, "Input"], Cell[630143, 12409, 73, 1, 31, "Output"] }, Open ]], Cell[630231, 12413, 1841, 29, 52, "Input"], Cell[CellGroupData[{ Cell[632097, 12446, 4159, 89, 172, "Input"], Cell[636259, 12537, 6142, 170, 1226, "Output"], Cell[642404, 12709, 73, 1, 31, "Output"] }, Open ]], Cell[CellGroupData[{ Cell[642514, 12715, 4635, 86, 52, "Input"], Cell[647152, 12803, 2583, 83, 72, "Output"], Cell[649738, 12888, 1110, 17, 52, "Output"] }, Open ]], Cell[CellGroupData[{ Cell[650885, 12910, 4670, 80, 92, "Input"], Cell[655558, 12992, 71, 1, 31, "Output"] }, Open ]], Cell[655644, 12996, 1863, 27, 31, "Input"], Cell[CellGroupData[{ Cell[657532, 13027, 2963, 56, 112, "Input"], Cell[660498, 13085, 90, 1, 31, "Output"] }, Open ]], Cell[CellGroupData[{ Cell[660625, 13091, 1242, 32, 92, "Input"], Cell[661870, 13125, 90, 1, 31, "Output"] }, Open ]], Cell[CellGroupData[{ Cell[661997, 13131, 2532, 57, 112, "Input"], Cell[664532, 13190, 90, 1, 31, "Output"] }, Open ]], Cell[CellGroupData[{ Cell[664659, 13196, 499, 15, 52, "Input"], Cell[665161, 13213, 107, 2, 31, "Output"] }, Open ]], Cell[665283, 13218, 1381, 21, 31, "Input"], Cell[CellGroupData[{ Cell[666689, 13243, 1709, 32, 52, "Input"], Cell[668401, 13277, 105, 2, 31, "Output"] }, Open ]], Cell[CellGroupData[{ Cell[668543, 13284, 1415, 43, 72, "Input"], Cell[669961, 13329, 104, 2, 31, "Output"] }, Open ]], Cell[CellGroupData[{ Cell[670102, 13336, 2550, 50, 92, "Input"], Cell[672655, 13388, 89, 1, 31, "Output"] }, Open ]], Cell[CellGroupData[{ Cell[672781, 13394, 1891, 36, 192, "Input"], Cell[674675, 13432, 90, 1, 31, "Output"], Cell[674768, 13435, 89, 1, 31, "Output"], Cell[674860, 13438, 106, 2, 31, "Output"], Cell[674969, 13442, 89, 1, 31, "Output"], Cell[675061, 13445, 107, 2, 31, "Output"], Cell[675171, 13449, 89, 1, 31, "Output"], Cell[675263, 13452, 90, 1, 31, "Output"], Cell[675356, 13455, 106, 2, 31, "Output"] }, Open ]] } ] *) (* End of internal cache information *)