(* 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[ 520441, 10244] NotebookOptionsPosition[ 512724, 10006] NotebookOutlinePosition[ 513223, 10026] CellTagsIndexPosition[ 513180, 10023] WindowFrame->Normal*) (* Beginning of Notebook Content *) Notebook[{ Cell[BoxData[ RowBox[{ RowBox[{"(*", " ", RowBox[{ RowBox[{ "Kimball", " ", "model", " ", "and", " ", "energy", " ", "derived", " ", "from", " ", "Wolfram", " ", "source"}], ",", " ", RowBox[{"ES", " ", "27", " ", "February", " ", "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}], 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.5712270762631288`*^9, 3.571227460572204*^9, 3.571227521942712*^9, 3.5712276860394*^9, 3.571227767284343*^9, 3.5712350082257843`*^9, 3.571235368508417*^9, 3.571235665470538*^9, 3.5712357067170105`*^9, 3.571236277615614*^9, 3.571236354851349*^9, 3.5712364383426957`*^9, 3.571244984750936*^9, 3.5712450572286634`*^9, 3.571245107320351*^9, 3.5712991857962065`*^9, 3.571299317834838*^9, 3.5712993930737705`*^9, 3.571299496954353*^9, 3.5712995530364513`*^9, 3.571299616637763*^9, 3.571299859342989*^9, 3.571299902523865*^9, 3.571300080161377*^9, 3.571300147147895*^9, 3.5713001791123505`*^9, 3.571307190375758*^9, 3.57130731068317*^9, 3.5713074120833483`*^9, 3.5713118575955515`*^9, 3.571311929574078*^9, 3.5713119869041786`*^9, 3.5713120208654385`*^9, 3.571312292399515*^9, 3.5713123479044127`*^9, 3.57131247733784*^9, 3.571312906759794*^9, 3.5713129459470634`*^9, 3.571312996210352*^9, 3.571315240851494*^9, 3.571315384964547*^9, 3.571315634830186*^9, 3.5713157643884134`*^9, 3.5713161641547155`*^9, 3.5713165340625653`*^9, 3.5713167048516655`*^9, 3.571316811134652*^9, 3.571316878651571*^9, 3.5713169696309304`*^9, 3.571317153040453*^9, 3.571317279182274*^9, 3.5713208996179676`*^9, 3.571320942112442*^9, 3.571320974030098*^9, 3.57132102061178*^9, {3.5713211678916388`*^9, 3.5713211956284876`*^9}, 3.571321702722978*^9, 3.572804087455323*^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.5712270762631288`*^9, 3.571227460603404*^9, 3.5712275219583116`*^9, 3.5712276860550003`*^9, 3.5712277673155427`*^9, 3.571235008241384*^9, 3.571235368524017*^9, 3.5712356654861383`*^9, 3.5712357067326107`*^9, 3.5712362776312137`*^9, 3.5712363548825493`*^9, 3.571236438358296*^9, 3.5712449847665358`*^9, 3.571245057244263*^9, 3.571245107351551*^9, 3.571299185843006*^9, 3.571299317850438*^9, 3.5712993930893707`*^9, 3.5712994969699526`*^9, 3.5712995530520515`*^9, 3.571299616653363*^9, 3.571299859358589*^9, 3.571299902539465*^9, 3.571300080176977*^9, 3.571300147179095*^9, 3.5713001791279507`*^9, 3.5713071903913584`*^9, 3.5713073106987696`*^9, 3.571307412098948*^9, 3.571311857626752*^9, 3.571311929589678*^9, 3.571311986919779*^9, 3.5713120208966384`*^9, 3.5713122924151154`*^9, 3.5713123479200125`*^9, 3.5713124773534403`*^9, 3.5713129067909946`*^9, 3.571312945978263*^9, 3.5713129962259517`*^9, 3.571315240867094*^9, 3.5713153849801474`*^9, 3.571315634845786*^9, 3.5713157644040136`*^9, 3.5713161641703157`*^9, 3.5713165340781655`*^9, 3.5713167048672657`*^9, 3.5713168111502523`*^9, 3.5713168786827707`*^9, 3.5713169696621304`*^9, 3.5713171530560527`*^9, 3.571317279197874*^9, 3.571320899633568*^9, 3.5713209421436424`*^9, 3.571320974045698*^9, 3.57132102062738*^9, {3.571321167907239*^9, 3.5713211956440873`*^9}, 3.571321702738578*^9, 3.5728040874709234`*^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.5712270762787285`*^9, 3.5712274606190042`*^9, 3.5712275219739113`*^9, 3.5712276860706*^9, 3.571227767331143*^9, 3.5712350082569838`*^9, 3.5712353685396166`*^9, 3.5712356655017385`*^9, 3.571235706748211*^9, 3.5712362776468134`*^9, 3.5712363548981495`*^9, 3.5712364383738956`*^9, 3.571244984782136*^9, 3.571245057259863*^9, 3.5712451073671513`*^9, 3.5712991858586063`*^9, 3.5712993178660383`*^9, 3.57129939312057*^9, 3.571299496985553*^9, 3.5712995530676513`*^9, 3.571299616668963*^9, 3.5712998593741894`*^9, 3.571299902555065*^9, 3.5713000801925774`*^9, 3.5713001471946945`*^9, 3.571300179143551*^9, 3.5713071904069586`*^9, 3.57130731071437*^9, 3.5713074121145477`*^9, 3.5713118576423516`*^9, 3.571311929605278*^9, 3.571311986935379*^9, 3.571312020912238*^9, 3.5713122924307156`*^9, 3.5713123479356127`*^9, 3.5713124773690405`*^9, 3.5713129068065944`*^9, 3.571312945993863*^9, 3.5713129962415514`*^9, 3.5713152408826942`*^9, 3.5713153850113473`*^9, 3.5713156348613863`*^9, 3.571315764419614*^9, 3.571316164185916*^9, 3.5713165341093655`*^9, 3.571316704882866*^9, 3.5713168111658525`*^9, 3.571316878698371*^9, 3.5713169696777306`*^9, 3.571317153071653*^9, 3.5713172792290745`*^9, 3.5713208996491675`*^9, 3.571320942159242*^9, 3.5713209740612984`*^9, 3.57132102064298*^9, {3.5713211679228387`*^9, 3.5713211956752872`*^9}, 3.571321702754178*^9, 3.5728040874709234`*^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.5712270762787285`*^9, 3.571227460634604*^9, 3.5712275219895115`*^9, 3.5712276860861998`*^9, 3.5712277673467426`*^9, 3.571235008272584*^9, 3.571235368570817*^9, 3.5712356655173388`*^9, 3.571235706763811*^9, 3.5712362776624136`*^9, 3.571236354913749*^9, 3.571236438389496*^9, 3.571244984797736*^9, 3.571245057275463*^9, 3.5712451073827515`*^9, 3.5712991858742065`*^9, 3.5712993178816385`*^9, 3.5712993931361704`*^9, 3.571299497001153*^9, 3.5712995530832515`*^9, 3.571299616684563*^9, 3.5712998593897896`*^9, 3.5712999025706654`*^9, 3.571300080208177*^9, 3.5713001472102947`*^9, 3.571300179159151*^9, 3.571307190422559*^9, 3.57130731072997*^9, 3.571307412130148*^9, 3.571311857657952*^9, 3.571311929620878*^9, 3.5713119869509788`*^9, 3.5713120209278383`*^9, 3.5713122924463153`*^9, 3.571312347951213*^9, 3.5713124773846407`*^9, 3.571312906822194*^9, 3.5713129460094633`*^9, 3.571312996272752*^9, 3.571315240898294*^9, 3.571315385026947*^9, 3.571315634876986*^9, 3.5713157644352136`*^9, 3.571316164201516*^9, 3.5713165341093655`*^9, 3.5713167048984656`*^9, 3.5713168111814523`*^9, 3.571316878713971*^9, 3.571316969693331*^9, 3.5713171530872526`*^9, 3.5713172792446747`*^9, 3.5713208996647673`*^9, 3.5713209421748424`*^9, 3.5713209740768986`*^9, 3.57132102065858*^9, {3.571321167938439*^9, 3.5713211956908875`*^9}, 3.5713217027853785`*^9, 3.5728040874865236`*^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.5712270762943287`*^9, 3.5712274606502037`*^9, 3.5712275220051117`*^9, 3.5712276861018*^9, 3.571227767362343*^9, 3.571235008303784*^9, 3.5712353685864167`*^9, 3.5712356655329385`*^9, 3.571235706779411*^9, 3.571236277678014*^9, 3.571236354929349*^9, 3.571236438405096*^9, 3.571244984813336*^9, 3.5712450572910633`*^9, 3.5712451073983517`*^9, 3.5712991858898067`*^9, 3.5712993178972387`*^9, 3.5712993931517706`*^9, 3.5712994970167527`*^9, 3.5712995530832515`*^9, 3.571299616700163*^9, 3.5712998594053893`*^9, 3.571299902586265*^9, 3.5713000802237773`*^9, 3.571300147225895*^9, 3.5713001791747513`*^9, 3.5713071904381585`*^9, 3.57130731074557*^9, 3.571307412145748*^9, 3.5713118576735516`*^9, 3.571311929652078*^9, 3.5713119869665785`*^9, 3.5713120209434385`*^9, 3.5713122924619155`*^9, 3.571312347966813*^9, 3.5713124774002404`*^9, 3.5713129068377943`*^9, 3.5713129460250635`*^9, 3.5713129962883515`*^9, 3.5713152409138937`*^9, 3.571315385042547*^9, 3.5713156348925858`*^9, 3.5713157644508133`*^9, 3.571316164217116*^9, 3.5713165341249657`*^9, 3.5713167049140654`*^9, 3.571316811197052*^9, 3.571316878729571*^9, 3.5713169697089305`*^9, 3.571317153102853*^9, 3.5713172792602744`*^9, 3.5713208996803675`*^9, 3.571320942190442*^9, 3.5713209740924983`*^9, 3.57132102067418*^9, {3.5713211679540386`*^9, 3.5713211957064877`*^9}, 3.571321702800978*^9, 3.5728040875021234`*^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.571227076309929*^9, 3.571227460665804*^9, 3.571227522036312*^9, 3.5712276861174*^9, 3.571227767377943*^9, 3.571235008319384*^9, 3.5712353686176167`*^9, 3.5712356655641384`*^9, 3.571235706810611*^9, 3.5712362777092133`*^9, 3.571236354944949*^9, 3.5712364384206963`*^9, 3.571244984844536*^9, 3.5712450573222637`*^9, 3.5712451074139514`*^9, 3.5712991859054065`*^9, 3.571299317928438*^9, 3.5712993931673703`*^9, 3.5712994970323524`*^9, 3.5712995531144514`*^9, 3.5712996167313633`*^9, 3.5712998594365892`*^9, 3.571299902617465*^9, 3.571300080254977*^9, 3.5713001472570953`*^9, 3.571300179205951*^9, 3.5713071904693584`*^9, 3.57130731077677*^9, 3.571307412176948*^9, 3.571311857689152*^9, 3.5713119296676784`*^9, 3.571311986997779*^9, 3.5713120209590387`*^9, 3.5713122924775157`*^9, 3.571312347998013*^9, 3.57131247741584*^9, 3.5713129068533945`*^9, 3.5713129460562634`*^9, 3.5713129963039513`*^9, 3.571315240945094*^9, 3.5713153850737476`*^9, 3.571315634923786*^9, 3.5713157644664135`*^9, 3.571316164248316*^9, 3.5713165341561656`*^9, 3.5713167049296656`*^9, 3.5713168112282524`*^9, 3.5713168787451706`*^9, 3.5713169697245307`*^9, 3.5713171531340528`*^9, 3.571317279275874*^9, 3.571320899711568*^9, 3.5713209422060423`*^9, 3.571320974123698*^9, 3.57132102068978*^9, {3.571321167969639*^9, 3.571321195722088*^9}, 3.571321702816578*^9, 3.5728040875333233`*^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.571227076325529*^9, 3.571227460681404*^9, 3.5712275220519123`*^9, 3.5712276861486*^9, 3.571227767393543*^9, 3.571235008334984*^9, 3.571235368633217*^9, 3.5712356655797386`*^9, 3.571235706826211*^9, 3.5712362777248135`*^9, 3.5712363549605494`*^9, 3.571236438436296*^9, 3.571244984860136*^9, 3.5712450573378634`*^9, 3.5712451074451513`*^9, 3.571299185921006*^9, 3.5712993179440384`*^9, 3.57129939318297*^9, 3.5712994970479527`*^9, 3.5712995531300516`*^9, 3.5712996167469635`*^9, 3.5712998594521894`*^9, 3.571299902633065*^9, 3.5713000802705774`*^9, 3.571300147272695*^9, 3.571300179221551*^9, 3.5713071904849586`*^9, 3.57130731079237*^9, 3.571307412192548*^9, 3.571311857704752*^9, 3.571311929683278*^9, 3.571311986997779*^9, 3.571312020974639*^9, 3.5713122924931154`*^9, 3.5713123480136127`*^9, 3.5713124774314404`*^9, 3.5713129068689947`*^9, 3.5713129460718637`*^9, 3.5713129963195515`*^9, 3.5713152409606943`*^9, 3.5713153850893474`*^9, 3.5713156349393864`*^9, 3.5713157644820137`*^9, 3.571316164263916*^9, 3.5713165341717653`*^9, 3.5713167049608655`*^9, 3.5713168112438526`*^9, 3.571316878776371*^9, 3.571316969740131*^9, 3.5713171531496525`*^9, 3.5713172792914743`*^9, 3.5713208997271676`*^9, 3.5713209422216425`*^9, 3.5713209741392984`*^9, 3.57132102072098*^9, {3.5713211680008388`*^9, 3.5713211957376876`*^9}, 3.571321702832178*^9, 3.5728040875489235`*^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.571227076325529*^9, 3.5712274606970043`*^9, 3.571227522067512*^9, 3.5712276861642*^9, 3.5712277674247427`*^9, 3.571235008350584*^9, 3.571235368648817*^9, 3.5712356655953383`*^9, 3.571235706841811*^9, 3.5712362777404137`*^9, 3.5712363549761496`*^9, 3.571236438467496*^9, 3.571244984875736*^9, 3.5712450573534636`*^9, 3.5712451074607515`*^9, 3.5712991859366064`*^9, 3.5712993179596386`*^9, 3.5712993932141705`*^9, 3.571299497063553*^9, 3.571299553145652*^9, 3.571299616762563*^9, 3.5712998594677896`*^9, 3.5712999026486654`*^9, 3.571300080286177*^9, 3.571300147288295*^9, 3.571300179237151*^9, 3.571307190500559*^9, 3.57130731080797*^9, 3.571307412208148*^9, 3.571311857735952*^9, 3.5713119296988783`*^9, 3.5713119870289793`*^9, 3.571312020990239*^9, 3.5713122925087156`*^9, 3.571312348044813*^9, 3.5713124774626403`*^9, 3.571312906900195*^9, 3.5713129460874634`*^9, 3.5713129963351517`*^9, 3.5713152409762945`*^9, 3.5713153851205473`*^9, 3.571315634954986*^9, 3.571315764513214*^9, 3.571316164279516*^9, 3.5713165341873655`*^9, 3.5713167049764657`*^9, 3.571316811275052*^9, 3.5713168787919707`*^9, 3.571316969771331*^9, 3.5713171531652527`*^9, 3.5713172793070745`*^9, 3.5713208997427673`*^9, 3.5713209422372427`*^9, 3.5713209741548986`*^9, 3.57132102073658*^9, {3.5713211680164385`*^9, 3.5713211957688875`*^9}, 3.5713217028477783`*^9, 3.5728040875645237`*^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.571227076325529*^9, 3.5712274606970043`*^9, 3.571227522067512*^9, 3.5712276861642*^9, 3.5712277674247427`*^9, 3.571235008350584*^9, 3.571235368648817*^9, 3.5712356655953383`*^9, 3.571235706841811*^9, 3.5712362777404137`*^9, 3.5712363549761496`*^9, 3.571236438467496*^9, 3.571244984875736*^9, 3.5712450573534636`*^9, 3.5712451074607515`*^9, 3.5712991859366064`*^9, 3.5712993179596386`*^9, 3.5712993932141705`*^9, 3.571299497063553*^9, 3.571299553145652*^9, 3.571299616762563*^9, 3.5712998594677896`*^9, 3.5712999026486654`*^9, 3.571300080286177*^9, 3.571300147288295*^9, 3.571300179237151*^9, 3.571307190500559*^9, 3.57130731080797*^9, 3.571307412208148*^9, 3.571311857735952*^9, 3.5713119296988783`*^9, 3.5713119870289793`*^9, 3.571312020990239*^9, 3.5713122925087156`*^9, 3.571312348044813*^9, 3.5713124774626403`*^9, 3.571312906900195*^9, 3.5713129460874634`*^9, 3.5713129963351517`*^9, 3.5713152409762945`*^9, 3.5713153851205473`*^9, 3.571315634954986*^9, 3.571315764513214*^9, 3.571316164279516*^9, 3.5713165341873655`*^9, 3.5713167049764657`*^9, 3.571316811275052*^9, 3.5713168787919707`*^9, 3.571316969771331*^9, 3.5713171531652527`*^9, 3.5713172793070745`*^9, 3.5713208997427673`*^9, 3.5713209422372427`*^9, 3.5713209741548986`*^9, 3.57132102073658*^9, {3.5713211680164385`*^9, 3.5713211957688875`*^9}, 3.5713217028477783`*^9, 3.5728040875645237`*^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.571227076341129*^9, 3.5712274607282043`*^9, 3.571227522083112*^9, 3.5712276861798*^9, 3.571227767440343*^9, 3.5712350083817844`*^9, 3.5712353686644173`*^9, 3.571235665610938*^9, 3.571235706873011*^9, 3.571236277756014*^9, 3.5712363550073495`*^9, 3.571236438483096*^9, 3.5712449848913364`*^9, 3.5712450573690634`*^9, 3.5712451074763517`*^9, 3.5712991859522066`*^9, 3.5712993179752383`*^9, 3.5712993932297707`*^9, 3.5712994970947533`*^9, 3.5712995531612515`*^9, 3.571299616778163*^9, 3.57129985948339*^9, 3.5712999026642656`*^9, 3.5713000803017774`*^9, 3.571300147303895*^9, 3.5713001792527514`*^9, 3.571307190516159*^9, 3.5713073108235703`*^9, 3.571307412223748*^9, 3.571311857751552*^9, 3.5713119297144785`*^9, 3.571311987044579*^9, 3.571312021005839*^9, 3.571312292524316*^9, 3.5713123480604134`*^9, 3.5713124774782405`*^9, 3.571312906915795*^9, 3.571312946118664*^9, 3.571312996366352*^9, 3.5713152409918947`*^9, 3.5713153851361475`*^9, 3.5713156349861865`*^9, 3.571315764528814*^9, 3.571316164295116*^9, 3.5713165342029657`*^9, 3.5713167049920654`*^9, 3.5713168112906523`*^9, 3.571316878807571*^9, 3.571316969786931*^9, 3.571317153180853*^9, 3.5713172793382745`*^9, 3.5713208997583675`*^9, 3.5713209422528424`*^9, 3.5713209741704984`*^9, 3.57132102075218*^9, {3.5713211680320387`*^9, 3.5713211957844877`*^9}, 3.5713217028789787`*^9, 3.572804087580124*^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.5712270763567286`*^9, 3.571227460743804*^9, 3.571227522098712*^9, 3.5712276861954*^9, 3.571227767455943*^9, 3.571235008397384*^9, 3.5712353686956167`*^9, 3.5712356656421385`*^9, 3.571235706888611*^9, 3.571236277771614*^9, 3.571236355022949*^9, 3.5712364384986963`*^9, 3.571244984906936*^9, 3.571245057400264*^9, 3.571245107491952*^9, 3.571299185967807*^9, 3.571299317990838*^9, 3.571299393245371*^9, 3.571299497110353*^9, 3.5712995531768513`*^9, 3.571299616793763*^9, 3.5712998594989896`*^9, 3.571299902695465*^9, 3.571300080317377*^9, 3.571300147319495*^9, 3.5713001792683516`*^9, 3.571307190531759*^9, 3.57130731083917*^9, 3.5713074122393484`*^9, 3.571311857767152*^9, 3.5713119297300787`*^9, 3.571311987060179*^9, 3.5713120210214386`*^9, 3.5713122925399156`*^9, 3.571312348076013*^9, 3.57131247749384*^9, 3.5713129069313946`*^9, 3.5713129461342635`*^9, 3.571312996381952*^9, 3.571315241023094*^9, 3.571315385167348*^9, 3.571315635001786*^9, 3.571315764544414*^9, 3.5713161643107157`*^9, 3.571316534218566*^9, 3.5713167050076656`*^9, 3.5713168113062525`*^9, 3.5713168788231707`*^9, 3.571316969802531*^9, 3.571317153212053*^9, 3.571317279353874*^9, 3.5713208997739677`*^9, 3.571320942268442*^9, 3.571320974186098*^9, 3.5713210207677803`*^9, {3.571321168047639*^9, 3.571321195800088*^9}, 3.5713217028945785`*^9, 3.5728040875957236`*^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.5712270763567286`*^9, 3.571227460759404*^9, 3.571227522114312*^9, 3.5712276862110004`*^9, 3.571227767471543*^9, 3.571235008412984*^9, 3.571235368711217*^9, 3.5712356656577387`*^9, 3.571235706904211*^9, 3.571236277787214*^9, 3.5712363550385494`*^9, 3.571236438514296*^9, 3.571244984922536*^9, 3.5712450574158635`*^9, 3.5712451075231514`*^9, 3.5712991859834065`*^9, 3.5712993180064383`*^9, 3.5712993932609706`*^9, 3.571299497125953*^9, 3.5712995531924515`*^9, 3.5712996168093634`*^9, 3.5712998595145893`*^9, 3.5712999027110653`*^9, 3.5713000803329773`*^9, 3.5713001473350954`*^9, 3.571300179299551*^9, 3.5713071905473585`*^9, 3.5713073108547697`*^9, 3.571307412254948*^9, 3.571311857782752*^9, 3.5713119297456784`*^9, 3.571311987075779*^9, 3.571312021037039*^9, 3.5713122925555153`*^9, 3.5713123480916133`*^9, 3.5713124775094404`*^9, 3.571312906946995*^9, 3.5713129461498632`*^9, 3.571312996397552*^9, 3.5713152410386944`*^9, 3.5713153851829476`*^9, 3.5713156350173864`*^9, 3.571315764560014*^9, 3.571316164326316*^9, 3.571316534249766*^9, 3.571316705023266*^9, 3.5713168113218527`*^9, 3.571316878838771*^9, 3.5713169698181305`*^9, 3.571317153227653*^9, 3.5713172793694744`*^9, 3.571320899789568*^9, 3.5713209422840424`*^9, 3.5713209742016983`*^9, 3.5713210207989807`*^9, {3.571321168063239*^9, 3.5713211958156877`*^9}, 3.571321702910178*^9, 3.5728040876113234`*^9}], Cell[BoxData["30"], "Output", CellChangeTimes->{ 3.5712270763567286`*^9, 3.571227460759404*^9, 3.571227522114312*^9, 3.5712276862110004`*^9, 3.571227767471543*^9, 3.571235008412984*^9, 3.571235368711217*^9, 3.5712356656577387`*^9, 3.571235706904211*^9, 3.571236277787214*^9, 3.5712363550385494`*^9, 3.571236438514296*^9, 3.571244984922536*^9, 3.5712450574158635`*^9, 3.5712451075231514`*^9, 3.5712991859834065`*^9, 3.5712993180064383`*^9, 3.5712993932609706`*^9, 3.571299497125953*^9, 3.5712995531924515`*^9, 3.5712996168093634`*^9, 3.5712998595145893`*^9, 3.5712999027110653`*^9, 3.5713000803329773`*^9, 3.5713001473350954`*^9, 3.571300179299551*^9, 3.5713071905473585`*^9, 3.5713073108547697`*^9, 3.571307412254948*^9, 3.571311857782752*^9, 3.5713119297456784`*^9, 3.571311987075779*^9, 3.571312021037039*^9, 3.5713122925555153`*^9, 3.5713123480916133`*^9, 3.5713124775094404`*^9, 3.571312906946995*^9, 3.5713129461498632`*^9, 3.571312996397552*^9, 3.5713152410386944`*^9, 3.5713153851829476`*^9, 3.5713156350173864`*^9, 3.571315764560014*^9, 3.571316164326316*^9, 3.571316534249766*^9, 3.571316705023266*^9, 3.5713168113218527`*^9, 3.571316878838771*^9, 3.5713169698181305`*^9, 3.571317153227653*^9, 3.5713172793694744`*^9, 3.571320899789568*^9, 3.5713209422840424`*^9, 3.5713209742016983`*^9, 3.5713210207989807`*^9, {3.571321168063239*^9, 3.5713211958156877`*^9}, 3.571321702910178*^9, 3.5728040876113234`*^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.5712270763723288`*^9, 3.5712274607750044`*^9, 3.571227522129912*^9, 3.5712276862266*^9, 3.571227767502743*^9, 3.571235008428584*^9, 3.571235368726817*^9, 3.571235665673339*^9, 3.5712357069198112`*^9, 3.5712362778184137`*^9, 3.5712363550541496`*^9, 3.571236438529896*^9, 3.5712449849537363`*^9, 3.5712450574314637`*^9, 3.5712451075387516`*^9, 3.5712991859990063`*^9, 3.5712993180220385`*^9, 3.571299393276571*^9, 3.571299497141553*^9, 3.5712995532080517`*^9, 3.571299616824963*^9, 3.5712998595301895`*^9, 3.5712999027266655`*^9, 3.5713000803485775`*^9, 3.571300147350695*^9, 3.571300179315151*^9, 3.571307190578559*^9, 3.57130731087037*^9, 3.5713074122705483`*^9, 3.5713118577983522`*^9, 3.571311929761278*^9, 3.571311987091379*^9, 3.571312021052639*^9, 3.5713122925711155`*^9, 3.571312348107213*^9, 3.5713124775250406`*^9, 3.5713129069781947`*^9, 3.5713129461654634`*^9, 3.5713129964131517`*^9, 3.5713152410542946`*^9, 3.5713153851985474`*^9, 3.5713156350329866`*^9, 3.571315764591214*^9, 3.571316164341916*^9, 3.5713165342653656`*^9, 3.571316705054466*^9, 3.5713168113374524`*^9, 3.571316878854371*^9, 3.571316969849331*^9, 3.5713171532432528`*^9, 3.5713172793850746`*^9, 3.571320899805168*^9, 3.5713209423152423`*^9, 3.5713209742172985`*^9, 3.5713210208145804`*^9, {3.5713211680944395`*^9, 3.5713211958468876`*^9}, 3.5713217029257784`*^9, 3.5728040876269236`*^9}] }, Open ]], Cell[BoxData[{ RowBox[{ RowBox[{"DeleteFile", "[", " ", "\"\\"", "]"}], ";"}], "\[IndentingNewLine]", RowBox[{"For", "[", RowBox[{ RowBox[{"i", "=", "1"}], ",", RowBox[{"i", "<", RowBox[{"n", "+", "1"}]}], ",", RowBox[{"i", "++"}], ",", "\[IndentingNewLine]", RowBox[{ RowBox[{"{", RowBox[{ RowBox[{"u", "[", RowBox[{"[", "i", "]"}], "]"}], ",", RowBox[{"Extract", "[", RowBox[{"t1", ",", RowBox[{"{", "i", "}"}]}], "]"}]}], "}"}], ">>>", " ", "\"\\""}]}], "]"}]}], "Input", CellChangeTimes->{{3.567869377256353*^9, 3.5678694101568108`*^9}, { 3.5678695244894114`*^9, 3.56786953511303*^9}, 3.56786988243204*^9, 3.5678699252853155`*^9, {3.567870069179968*^9, 3.5678700766835814`*^9}, { 3.5678703216664114`*^9, 3.567870325738019*^9}, 3.5679271251072817`*^9, { 3.567942840466694*^9, 3.567942854381918*^9}, {3.567942932272855*^9, 3.567942950509287*^9}, 3.5679430681802936`*^9, {3.568278272060727*^9, 3.56827827391713*^9}, 3.5688732159559383`*^9, 3.568910867631465*^9, 3.5689997098549547`*^9, 3.5689998170427427`*^9, 3.5689998869620657`*^9, { 3.569059200815255*^9, 3.5690592031552596`*^9}, 3.5691460426137285`*^9, 3.569237204520723*^9, 3.569237465836782*^9, 3.56923802264856*^9, 3.5693403424181123`*^9, 3.569340450198702*^9, 3.569340738019207*^9, 3.569340852851009*^9, {3.5693411655067577`*^9, 3.5693411655067577`*^9}, 3.5693414976001415`*^9, {3.5693416978420925`*^9, 3.569341705314506*^9}, 3.569342614421703*^9, 3.5693435671777763`*^9, 3.569343662727944*^9, 3.5693437636289215`*^9, 3.5693440709750605`*^9, 3.5693442662562037`*^9, { 3.5702975520309644`*^9, 3.570297552764166*^9}, {3.5705591717487917`*^9, 3.5705591791432047`*^9}}], Cell[BoxData[ RowBox[{ RowBox[{"t", "=", RowBox[{"Table", "[", RowBox[{ RowBox[{"t1", "[", RowBox[{"[", RowBox[{"num", "[", RowBox[{"[", "i", "]"}], "]"}], "]"}], "]"}], ",", RowBox[{"{", RowBox[{"i", ",", "1", ",", "n"}], "}"}]}], "]"}]}], ";"}]], "Input", CellChangeTimes->{{3.567869377256353*^9, 3.567869394073182*^9}, { 3.5678694248832364`*^9, 3.5678694526200852`*^9}, {3.5678694891241493`*^9, 3.5678694955045605`*^9}, {3.567869596046737*^9, 3.567869602645549*^9}, 3.56786971175214*^9, {3.5678697908910794`*^9, 3.567869798800293*^9}, { 3.5679434548425727`*^9, 3.5679434621121855`*^9}, 3.568011875875622*^9, 3.56811435956207*^9, {3.5682782821071444`*^9, 3.5682782839479475`*^9}, { 3.5688205455482616`*^9, 3.5688206262784038`*^9}, 3.5688208026055136`*^9, 3.5688732159559383`*^9, 3.568910867631465*^9, {3.5689830694736805`*^9, 3.568983072687286*^9}}], Cell[BoxData[ RowBox[{ RowBox[{"Plot1", "=", RowBox[{"Table", "[", RowBox[{ RowBox[{"Graphics3D", "[", RowBox[{"{", RowBox[{ RowBox[{"If", "[", RowBox[{ RowBox[{ RowBox[{"u", "[", RowBox[{"[", "i", "]"}], "]"}], "\[Equal]", "\"\\""}], ",", RowBox[{"Lighter", "[", "Blue", "]"}], ",", RowBox[{"If", "[", RowBox[{ RowBox[{ RowBox[{"u", "[", RowBox[{"[", "i", "]"}], "]"}], "\[Equal]", "\"\\""}], ",", RowBox[{"Lighter", "[", "Red", "]"}], ",", RowBox[{"If", "[", RowBox[{ RowBox[{ RowBox[{"u", "[", RowBox[{"[", "i", "]"}], "]"}], "\[Equal]", "\"\\""}], ",", RowBox[{"Lighter", "[", "Green", "]"}], ",", RowBox[{"If", "[", RowBox[{ RowBox[{ RowBox[{"u", "[", RowBox[{"[", "i", "]"}], "]"}], "\[Equal]", "\"\\""}], ",", RowBox[{"Lighter", "[", "Orange", "]"}], ",", RowBox[{"Lighter", "[", "Brown", "]"}]}], "]"}]}], "]"}]}], "]"}]}], "]"}], ",", RowBox[{"Sphere", "[", RowBox[{ RowBox[{"{", RowBox[{ RowBox[{"t", "[", RowBox[{"[", RowBox[{"i", ",", "1"}], "]"}], "]"}], ",", RowBox[{"t", "[", RowBox[{"[", RowBox[{"i", ",", "2"}], "]"}], "]"}], ",", RowBox[{"t", "[", RowBox[{"[", RowBox[{"i", ",", "3"}], "]"}], "]"}]}], "}"}], ",", RowBox[{"u1", "[", RowBox[{"[", "i", "]"}], "]"}]}], "]"}]}], "}"}], "]"}], ",", RowBox[{"{", RowBox[{"i", ",", "1", ",", "n"}], "}"}]}], "]"}]}], ";"}]], "Input", CellChangeTimes->{{3.5679440895764875`*^9, 3.5679441000441055`*^9}, { 3.5679441319773617`*^9, 3.5679441523041973`*^9}, {3.567944240210352*^9, 3.5679442813476243`*^9}, {3.567944323966899*^9, 3.567944345931738*^9}, { 3.567944397567828*^9, 3.567944456941533*^9}, {3.567944491557994*^9, 3.5679445468444905`*^9}, {3.5679446505690727`*^9, 3.567944683875131*^9}, { 3.567944736244423*^9, 3.5679448177233667`*^9}, {3.567945549707852*^9, 3.5679455499730525`*^9}, {3.5679456039959474`*^9, 3.567945606195551*^9}, { 3.567945704460124*^9, 3.5679457164877453`*^9}, {3.5679457857362666`*^9, 3.5679458050023003`*^9}, {3.567946353670864*^9, 3.5679464127169676`*^9}, { 3.5679466013368993`*^9, 3.5679466311173515`*^9}, {3.5679467590999765`*^9, 3.567946915739851*^9}, {3.5679469466123056`*^9, 3.567946946815106*^9}, { 3.5679471385082426`*^9, 3.5679471497870626`*^9}, {3.5679483907224417`*^9, 3.5679484036080647`*^9}, {3.567948441937332*^9, 3.5679484421869326`*^9}, { 3.567948496740228*^9, 3.56794849772303*^9}, {3.567948847912445*^9, 3.5679488949933276`*^9}, {3.568011728877214*^9, 3.5680117308213253`*^9}, { 3.568011766325356*^9, 3.568011773436763*^9}, {3.5681173314452896`*^9, 3.5681173370612993`*^9}, {3.568117919800323*^9, 3.5681179678952074`*^9}, { 3.56811809459863*^9, 3.568118105409449*^9}, {3.5681181818963833`*^9, 3.5681182389144835`*^9}, {3.568118274888147*^9, 3.5681182883977704`*^9}, { 3.568118518513775*^9, 3.56811852739019*^9}, {3.5681188250543127`*^9, 3.568118862634779*^9}, {3.568118972396572*^9, 3.5681189862493963`*^9}, { 3.568119020694257*^9, 3.568119047136303*^9}, {3.5681190903015785`*^9, 3.568119136930061*^9}, {3.5681191671005135`*^9, 3.568119202808976*^9}, { 3.5681194788046613`*^9, 3.568119487603077*^9}, {3.5681195353235607`*^9, 3.5681195410331707`*^9}, 3.56811959201406*^9, {3.5681196426985493`*^9, 3.568119659702579*^9}, {3.568119726813897*^9, 3.56811974027672*^9}, { 3.5682659184078283`*^9, 3.5682659267694435`*^9}, {3.568265972477524*^9, 3.568266002725977*^9}, 3.568277802649102*^9, {3.568820898608082*^9, 3.568820922429324*^9}, 3.5688217528499823`*^9, 3.568821789307246*^9, { 3.569406212748887*^9, 3.569406252544557*^9}, {3.569492717066082*^9, 3.5694927471737347`*^9}, {3.5694931324008117`*^9, 3.5694931369404197`*^9}}], Cell[BoxData[ RowBox[{ RowBox[{"Plot2", "=", RowBox[{"Table", "[", RowBox[{ RowBox[{"Graphics3D", "[", RowBox[{"Text", "[", RowBox[{"i", ",", RowBox[{"{", RowBox[{ RowBox[{ RowBox[{"t", "[", RowBox[{"[", RowBox[{"i", ",", "1"}], "]"}], "]"}], "-", "0.6"}], ",", RowBox[{"t", "[", RowBox[{"[", RowBox[{"i", ",", "2"}], "]"}], "]"}], ",", RowBox[{"t", "[", RowBox[{"[", RowBox[{"i", ",", "3"}], "]"}], "]"}]}], "}"}], " ", ",", RowBox[{"{", RowBox[{"1", ",", "0"}], "}"}]}], "]"}], "]"}], ",", RowBox[{"{", RowBox[{"i", ",", "1", ",", "n"}], "}"}]}], "]"}]}], ";"}]], "Input", CellChangeTimes->{{3.5679440895764875`*^9, 3.5679441000441055`*^9}, { 3.5679441319773617`*^9, 3.5679441523041973`*^9}, {3.567944240210352*^9, 3.5679442813476243`*^9}, {3.567944323966899*^9, 3.567944345931738*^9}, { 3.567944397567828*^9, 3.567944456941533*^9}, {3.567944491557994*^9, 3.5679445468444905`*^9}, {3.5679446505690727`*^9, 3.567944683875131*^9}, { 3.567944736244423*^9, 3.5679448177233667`*^9}, {3.567945549707852*^9, 3.5679455499730525`*^9}, {3.5679456039959474`*^9, 3.567945606195551*^9}, { 3.567945704460124*^9, 3.5679457164877453`*^9}, {3.5679457857362666`*^9, 3.5679458050023003`*^9}, {3.567946353670864*^9, 3.5679464127169676`*^9}, { 3.5679466013368993`*^9, 3.5679466311173515`*^9}, {3.5679467590999765`*^9, 3.567946915739851*^9}, {3.5679469466123056`*^9, 3.567946946815106*^9}, { 3.5679471385082426`*^9, 3.5679471497870626`*^9}, {3.5679483907224417`*^9, 3.5679484036080647`*^9}, {3.567948441937332*^9, 3.5679484421869326`*^9}, { 3.567948496740228*^9, 3.56794849772303*^9}, {3.567948847912445*^9, 3.5679488949933276`*^9}, {3.568011728877214*^9, 3.5680117308213253`*^9}, { 3.568011766325356*^9, 3.568011773436763*^9}, {3.5681173314452896`*^9, 3.5681173370612993`*^9}, {3.568117919800323*^9, 3.5681179678952074`*^9}, { 3.56811809459863*^9, 3.568118105409449*^9}, {3.5681181818963833`*^9, 3.5681182389144835`*^9}, {3.568118274888147*^9, 3.5681182883977704`*^9}, { 3.568118518513775*^9, 3.56811852739019*^9}, {3.5681188250543127`*^9, 3.568118862634779*^9}, {3.568118972396572*^9, 3.5681189862493963`*^9}, { 3.568119020694257*^9, 3.568119047136303*^9}, {3.5681190903015785`*^9, 3.568119136930061*^9}, {3.5681191671005135`*^9, 3.568119202808976*^9}, { 3.5681194788046613`*^9, 3.568119487603077*^9}, {3.5681195353235607`*^9, 3.5681195410331707`*^9}, 3.56811959201406*^9, {3.5681196426985493`*^9, 3.568119659702579*^9}, {3.568119726813897*^9, 3.56811974027672*^9}, { 3.5681199008322024`*^9, 3.568119920691037*^9}, {3.5681199536070952`*^9, 3.568119958521104*^9}, {3.568120000641178*^9, 3.568120067206495*^9}, { 3.5681211528280015`*^9, 3.5681211643408213`*^9}, 3.5681213201694956`*^9, { 3.568121503313817*^9, 3.568121508961027*^9}, {3.568266015439999*^9, 3.5682660461096525`*^9}, 3.568277806081108*^9, {3.568381589141924*^9, 3.568381589391525*^9}, 3.5688217602599955`*^9, {3.568821800305266*^9, 3.568821801397268*^9}, 3.5693901242572327`*^9, {3.570559203182847*^9, 3.5705592101248593`*^9}}], Cell[CellGroupData[{ Cell[BoxData[ RowBox[{"\[IndentingNewLine]", RowBox[{"ChemicalData", "\[NoBreak]", "[", RowBox[{"\"\\"", ",", "\"\\""}], "]"}]}]], "Input", CellChangeTimes->{{3.570856658569998*^9, 3.5708566598024*^9}, 3.5709425310382767`*^9}], Cell[BoxData[ GraphicsBox[{{ {GrayLevel[0], AbsoluteThickness[0.55], InsetBox[ StyleBox["\<\"O\"\>", StripOnInput->False, ScriptSizeMultipliers->0.8, ScriptMinSize->8, FontSize->Scaled[0.006189383406757125], FontWeight->Plain], {253.69000000000003`, 0.}], LineBox[{{259.01805455965354`, 3.0758887886234265`}, {296.995, 25.}}], {GrayLevel[0], InsetBox[ StyleBox["\<\"C\"\>", StripOnInput->False, ScriptSizeMultipliers->0.8, ScriptMinSize->8, FontSize->Scaled[0.006189383406757125], FontWeight->Plain], {340.3, 50.}], LineBox[{{296.995, 25.}, {335.499950847159, 47.228929019258175`}}]}}, {GrayLevel[0], AbsoluteThickness[0.55], InsetBox[ StyleBox["\<\"O\"\>", StripOnInput->False, ScriptSizeMultipliers->0.8, ScriptMinSize->8, FontSize->Scaled[0.006189383406757125], FontWeight->Plain], {253.69000000000003`, 0.}], LineBox[{{248.36214885456243`, 3.0762411158235237`}, { 226.84500000000003`, 15.5}}], {GrayLevel[0], InsetBox[ StyleBox["\<\"H\"\>", StripOnInput->False, ScriptSizeMultipliers->0.8, ScriptMinSize->8, FontSize->Scaled[0.006189383406757125], FontWeight->Plain], {200., 31.}], LineBox[{{226.84500000000003`, 15.5}, {204.7998658967906, 28.228611607366197`}}]}}, {GrayLevel[0], AbsoluteThickness[0.55], InsetBox[ StyleBox["\<\"C\"\>", StripOnInput->False, ScriptSizeMultipliers->0.8, ScriptMinSize->8, FontSize->Scaled[0.006189383406757125], FontWeight->Plain], {1206.32, 50.}], LineBox[{{1211.1199105991946`, 47.22868903048804}, {1249.62, 25.}}], {GrayLevel[0], InsetBox[ StyleBox["\<\"C\"\>", StripOnInput->False, ScriptSizeMultipliers->0.8, ScriptMinSize->8, FontSize->Scaled[0.006189383406757125], FontWeight->Plain], {1292.92, 0.}], LineBox[{{1249.62, 25.}, {1288.1200894008055`, 2.7713109695119447`}}]}}, {GrayLevel[0], AbsoluteThickness[0.55], InsetBox[ StyleBox["\<\"C\"\>", StripOnInput->False, ScriptSizeMultipliers->0.8, ScriptMinSize->8, FontSize->Scaled[0.006189383406757125], FontWeight->Plain], {1206.32, 50.}], LineBox[{{1201.5200894008053`, 47.22868903048804}, {1163.02, 25.}}], {GrayLevel[0], InsetBox[ StyleBox["\<\"C\"\>", StripOnInput->False, ScriptSizeMultipliers->0.8, ScriptMinSize->8, FontSize->Scaled[0.006189383406757125], FontWeight->Plain], {1119.72, 0.}], LineBox[{{1163.02, 25.}, {1124.5199105991946`, 2.7713109695119558`}}]}}, {GrayLevel[0], AbsoluteThickness[0.55], InsetBox[ StyleBox["\<\"C\"\>", StripOnInput->False, ScriptSizeMultipliers->0.8, ScriptMinSize->8, FontSize->Scaled[0.006189383406757125], FontWeight->Plain], {1206.32, 50.}], LineBox[{{1209.0913109695118`, 54.7999105991947}, {1231.32, 93.30000000000001}}], {GrayLevel[0], InsetBox[ StyleBox["\<\"C\"\>", StripOnInput->False, ScriptSizeMultipliers->0.8, ScriptMinSize->8, FontSize->Scaled[0.006189383406757125], FontWeight->Plain], {1256.32, 136.60000000000002`}], LineBox[{{1231.32, 93.30000000000001}, {1253.548689030488, 131.80008940080532`}}]}}, {GrayLevel[0], AbsoluteThickness[0.55], InsetBox[ StyleBox["\<\"C\"\>", StripOnInput->False, ScriptSizeMultipliers->0.8, ScriptMinSize->8, FontSize->Scaled[0.006189383406757125], FontWeight->Plain], {1206.32, 50.}], LineBox[{{1203.548689030488, 54.7999105991947}, {1181.32, 93.30000000000001}}], {GrayLevel[0], InsetBox[ StyleBox["\<\"C\"\>", StripOnInput->False, ScriptSizeMultipliers->0.8, ScriptMinSize->8, FontSize->Scaled[0.006189383406757125], FontWeight->Plain], {1156.32, 136.60000000000002`}], LineBox[{{1181.32, 93.30000000000001}, {1159.0913109695118`, 131.80008940080532`}}]}}, {GrayLevel[0], AbsoluteThickness[0.55], InsetBox[ StyleBox["\<\"C\"\>", StripOnInput->False, ScriptSizeMultipliers->0.8, ScriptMinSize->8, FontSize->Scaled[0.006189383406757125], FontWeight->Plain], {1292.92, 0.}], LineBox[{{1292.92, -5.5424999999999045`}, {1292.92, -50.}}], {GrayLevel[0], InsetBox[ StyleBox["\<\"C\"\>", StripOnInput->False, ScriptSizeMultipliers->0.8, ScriptMinSize->8, FontSize->Scaled[0.006189383406757125], FontWeight->Plain], {1292.92, -100.}], LineBox[{{1292.92, -50.}, {1292.92, -94.4575000000001}}]}}, {GrayLevel[0], AbsoluteThickness[0.55], InsetBox[ StyleBox["\<\"C\"\>", StripOnInput->False, ScriptSizeMultipliers->0.8, ScriptMinSize->8, FontSize->Scaled[0.006189383406757125], FontWeight->Plain], {1292.92, 0.}], LineBox[{{1298.3782438477342`, -0.9627462535227007}, {1323.45, -5.385}}], {GrayLevel[0], InsetBox[ StyleBox["\<\"H\"\>", StripOnInput->False, ScriptSizeMultipliers->0.8, ScriptMinSize->8, FontSize->Scaled[0.006189383406757125], FontWeight->Plain], {1353.98, -10.77}], LineBox[{{1323.45, -5.385}, { 1348.5217561522659`, -9.807253746477299}}]}}, {GrayLevel[0], AbsoluteThickness[0.55], InsetBox[ StyleBox["\<\"C\"\>", StripOnInput->False, ScriptSizeMultipliers->0.8, ScriptMinSize->8, FontSize->Scaled[0.006189383406757125], FontWeight->Plain], {1292.92, 0.}], LineBox[{{1294.8160487556408`, 5.208099976597248}, {1303.525, 29.13}}], {GrayLevel[0], InsetBox[ StyleBox["\<\"H\"\>", StripOnInput->False, ScriptSizeMultipliers->0.8, ScriptMinSize->8, FontSize->Scaled[0.006189383406757125], FontWeight->Plain], {1314.1299999999999`, 58.26}], LineBox[{{1303.525, 29.13}, {1312.233951244359, 53.05190002340274}}]}}, {GrayLevel[0], AbsoluteThickness[0.55], InsetBox[ StyleBox["\<\"C\"\>", StripOnInput->False, ScriptSizeMultipliers->0.8, ScriptMinSize->8, FontSize->Scaled[0.006189383406757125], FontWeight->Plain], {1292.92, -100.}], LineBox[{{1288.1200894008055`, -102.77131096951194`}, {1249.62, -125.}}], {GrayLevel[0], InsetBox[ StyleBox["\<\"C\"\>", StripOnInput->False, ScriptSizeMultipliers->0.8, ScriptMinSize->8, FontSize->Scaled[0.006189383406757125], FontWeight->Plain], {1206.32, -150.}], LineBox[{{1249.62, -125.}, { 1211.1199105991946`, -147.22868903048806`}}]}}, {GrayLevel[0], AbsoluteThickness[0.55], InsetBox[ StyleBox["\<\"C\"\>", StripOnInput->False, ScriptSizeMultipliers->0.8, ScriptMinSize->8, FontSize->Scaled[0.006189383406757125], FontWeight->Plain], {1292.92, -100.}], LineBox[{{1294.8160487556408`, -105.20809997659725`}, { 1303.525, -129.13}}], {GrayLevel[0], InsetBox[ StyleBox["\<\"H\"\>", StripOnInput->False, ScriptSizeMultipliers->0.8, ScriptMinSize->8, FontSize->Scaled[0.006189383406757125], FontWeight->Plain], {1314.1299999999999`, -158.26}], LineBox[{{1303.525, -129.13}, { 1312.233951244359, -153.05190002340274`}}]}}, {GrayLevel[0], AbsoluteThickness[0.55], InsetBox[ StyleBox["\<\"C\"\>", StripOnInput->False, ScriptSizeMultipliers->0.8, ScriptMinSize->8, FontSize->Scaled[0.006189383406757125], FontWeight->Plain], {1292.92, -100.}], LineBox[{{1298.3782438477342`, -99.0372537464773}, { 1323.45, -94.61500000000001}}], {GrayLevel[0], InsetBox[ StyleBox["\<\"H\"\>", StripOnInput->False, ScriptSizeMultipliers->0.8, ScriptMinSize->8, FontSize->Scaled[0.006189383406757125], FontWeight->Plain], {1353.98, -89.23}], LineBox[{{1323.45, -94.61500000000001}, { 1348.5217561522659`, -90.1927462535227}}]}}, {GrayLevel[0], AbsoluteThickness[0.55], InsetBox[ StyleBox["\<\"C\"\>", StripOnInput->False, ScriptSizeMultipliers->0.8, ScriptMinSize->8, FontSize->Scaled[0.006189383406757125], FontWeight->Plain], {1119.72, 0.}], LineBox[{{{1124.72, -5.5424999999999045`}, {1124.72, -50.}}, {{ 1114.72, -5.5424999999999045`}, {1114.72, -50.}}}], {GrayLevel[0], InsetBox[ StyleBox["\<\"C\"\>", StripOnInput->False, ScriptSizeMultipliers->0.8, ScriptMinSize->8, FontSize->Scaled[0.006189383406757125], FontWeight->Plain], {1119.72, -100.}], LineBox[{{{1124.72, -50.}, {1124.72, -94.4575000000001}}, {{ 1114.72, -50.}, {1114.72, -94.4575000000001}}}]}}, {GrayLevel[0], AbsoluteThickness[0.55], InsetBox[ StyleBox["\<\"C\"\>", StripOnInput->False, ScriptSizeMultipliers->0.8, ScriptMinSize->8, FontSize->Scaled[0.006189383406757125], FontWeight->Plain], {1119.72, 0.}], LineBox[{{1114.9200894008054`, 2.7713109695119558`}, {1076.42, 25.}}], {GrayLevel[0], InsetBox[ StyleBox["\<\"C\"\>", StripOnInput->False, ScriptSizeMultipliers->0.8, ScriptMinSize->8, FontSize->Scaled[0.006189383406757125], FontWeight->Plain], {1033.1200000000001`, 50.}], LineBox[{{1076.42, 25.}, {1037.9199105991947`, 47.22868903048804}}]}}, {GrayLevel[0], AbsoluteThickness[0.55], InsetBox[ StyleBox["\<\"C\"\>", StripOnInput->False, ScriptSizeMultipliers->0.8, ScriptMinSize->8, FontSize->Scaled[0.006189383406757125], FontWeight->Plain], {1206.32, -150.}], LineBox[{{1201.5200894008053`, -147.22868903048806`}, {1163.02, -125.}}], {GrayLevel[0], InsetBox[ StyleBox["\<\"C\"\>", StripOnInput->False, ScriptSizeMultipliers->0.8, ScriptMinSize->8, FontSize->Scaled[0.006189383406757125], FontWeight->Plain], {1119.72, -100.}], LineBox[{{1163.02, -125.}, { 1124.5199105991946`, -102.77131096951196`}}]}}, {GrayLevel[0], AbsoluteThickness[0.55], InsetBox[ StyleBox["\<\"C\"\>", StripOnInput->False, ScriptSizeMultipliers->0.8, ScriptMinSize->8, FontSize->Scaled[0.006189383406757125], FontWeight->Plain], {1206.32, -150.}], LineBox[{{1202.7572888934917`, -154.24575032492038`}, { 1186.395, -173.745}}], {GrayLevel[0], InsetBox[ StyleBox["\<\"H\"\>", StripOnInput->False, ScriptSizeMultipliers->0.8, ScriptMinSize->8, FontSize->Scaled[0.006189383406757125], FontWeight->Plain], {1166.47, -197.49}], LineBox[{{1186.395, -173.745}, { 1170.0327111065083`, -193.24424967507963`}}]}}, {GrayLevel[0], AbsoluteThickness[0.55], InsetBox[ StyleBox["\<\"C\"\>", StripOnInput->False, ScriptSizeMultipliers->0.8, ScriptMinSize->8, FontSize->Scaled[0.006189383406757125], FontWeight->Plain], {1206.32, -150.}], LineBox[{{1209.8827111065082`, -154.24575032492038`}, { 1226.245, -173.745}}], {GrayLevel[0], InsetBox[ StyleBox["\<\"H\"\>", StripOnInput->False, ScriptSizeMultipliers->0.8, ScriptMinSize->8, FontSize->Scaled[0.006189383406757125], FontWeight->Plain], {1246.17, -197.49}], LineBox[{{1226.245, -173.745}, { 1242.6072888934918`, -193.24424967507963`}}]}}, {GrayLevel[0], AbsoluteThickness[0.55], InsetBox[ StyleBox["\<\"C\"\>", StripOnInput->False, ScriptSizeMultipliers->0.8, ScriptMinSize->8, FontSize->Scaled[0.006189383406757125], FontWeight->Plain], {1119.72, -100.}], LineBox[{{1114.9200894008054`, -102.77131096951196`}, {1076.42, -125.}}], {GrayLevel[0], InsetBox[ StyleBox["\<\"C\"\>", StripOnInput->False, ScriptSizeMultipliers->0.8, ScriptMinSize->8, FontSize->Scaled[0.006189383406757125], FontWeight->Plain], {1033.1200000000001`, -150.}], LineBox[{{1076.42, -125.}, { 1037.9199105991947`, -147.22868903048806`}}]}}, {GrayLevel[0], AbsoluteThickness[0.55], InsetBox[ StyleBox["\<\"C\"\>", StripOnInput->False, ScriptSizeMultipliers->0.8, ScriptMinSize->8, FontSize->Scaled[0.006189383406757125], FontWeight->Plain], {1256.32, 136.60000000000002`}], LineBox[{{1251.5201341032093`, 139.37138839263383`}, {1229.475, 152.10000000000002`}}], {GrayLevel[0], InsetBox[ StyleBox["\<\"H\"\>", StripOnInput->False, ScriptSizeMultipliers->0.8, ScriptMinSize->8, FontSize->Scaled[0.006189383406757125], FontWeight->Plain], {1202.63, 167.6}], LineBox[{{1229.475, 152.10000000000002`}, {1207.4298658967907`, 164.82861160736618`}}]}}, {GrayLevel[0], AbsoluteThickness[0.55], InsetBox[ StyleBox["\<\"C\"\>", StripOnInput->False, ScriptSizeMultipliers->0.8, ScriptMinSize->8, FontSize->Scaled[0.006189383406757125], FontWeight->Plain], {1256.32, 136.60000000000002`}], LineBox[{{1259.0910013130706`, 141.40008937135133`}, { 1271.8200000000002`, 163.45000000000002`}}], {GrayLevel[0], InsetBox[ StyleBox["\<\"H\"\>", StripOnInput->False, ScriptSizeMultipliers->0.8, ScriptMinSize->8, FontSize->Scaled[0.006189383406757125], FontWeight->Plain], {1287.3200000000002`, 190.3}], LineBox[{{1271.8200000000002`, 163.45000000000002`}, { 1284.5489986869295`, 185.49991062864868`}}]}}, {GrayLevel[0], AbsoluteThickness[0.55], InsetBox[ StyleBox["\<\"C\"\>", StripOnInput->False, ScriptSizeMultipliers->0.8, ScriptMinSize->8, FontSize->Scaled[0.006189383406757125], FontWeight->Plain], {1256.32, 136.60000000000002`}], LineBox[{{1261.1200893713512`, 133.82899868692942`}, {1283.17, 121.10000000000002`}}], {GrayLevel[0], InsetBox[ StyleBox["\<\"H\"\>", StripOnInput->False, ScriptSizeMultipliers->0.8, ScriptMinSize->8, FontSize->Scaled[0.006189383406757125], FontWeight->Plain], {1310.02, 105.60000000000001`}], LineBox[{{1283.17, 121.10000000000002`}, {1305.2199106286487`, 108.37100131307062`}}]}}, {GrayLevel[0], AbsoluteThickness[0.55], InsetBox[ StyleBox["\<\"C\"\>", StripOnInput->False, ScriptSizeMultipliers->0.8, ScriptMinSize->8, FontSize->Scaled[0.006189383406757125], FontWeight->Plain], {1156.32, 136.60000000000002`}], LineBox[{{1151.5201341032093`, 133.8286116073662}, {1129.475, 121.10000000000002`}}], {GrayLevel[0], InsetBox[ StyleBox["\<\"H\"\>", StripOnInput->False, ScriptSizeMultipliers->0.8, ScriptMinSize->8, FontSize->Scaled[0.006189383406757125], FontWeight->Plain], {1102.63, 105.60000000000001`}], LineBox[{{1129.475, 121.10000000000002`}, {1107.4298658967907`, 108.37138839263383`}}]}}, {GrayLevel[0], AbsoluteThickness[0.55], InsetBox[ StyleBox["\<\"C\"\>", StripOnInput->False, ScriptSizeMultipliers->0.8, ScriptMinSize->8, FontSize->Scaled[0.006189383406757125], FontWeight->Plain], {1156.32, 136.60000000000002`}], LineBox[{{1153.5489986869293`, 141.40008937135136`}, {1140.82, 163.45000000000002`}}], {GrayLevel[0], InsetBox[ StyleBox["\<\"H\"\>", StripOnInput->False, ScriptSizeMultipliers->0.8, ScriptMinSize->8, FontSize->Scaled[0.006189383406757125], FontWeight->Plain], {1125.32, 190.3}], LineBox[{{1140.82, 163.45000000000002`}, {1128.0910013130706`, 185.49991062864868`}}]}}, {GrayLevel[0], AbsoluteThickness[0.55], InsetBox[ StyleBox["\<\"C\"\>", StripOnInput->False, ScriptSizeMultipliers->0.8, ScriptMinSize->8, FontSize->Scaled[0.006189383406757125], FontWeight->Plain], {1156.32, 136.60000000000002`}], LineBox[{{1161.1200893713512`, 139.37100131307062`}, {1183.17, 152.10000000000002`}}], {GrayLevel[0], InsetBox[ StyleBox["\<\"H\"\>", StripOnInput->False, ScriptSizeMultipliers->0.8, ScriptMinSize->8, FontSize->Scaled[0.006189383406757125], FontWeight->Plain], {1210.02, 167.6}], LineBox[{{1183.17, 152.10000000000002`}, {1205.2199106286487`, 164.8289986869294}}]}}, {GrayLevel[0], AbsoluteThickness[0.55], InsetBox[ StyleBox["\<\"C\"\>", StripOnInput->False, ScriptSizeMultipliers->0.8, ScriptMinSize->8, FontSize->Scaled[0.006189383406757125], FontWeight->Plain], {1033.1200000000001`, 50.}], LineBox[{{{1030.8199508471591`, 42.898429019258174`}, {992.315, 20.669499999999992`}}, {{1025.8199508471591`, 51.55942901925819}, { 987.315, 29.330500000000008`}}}], {GrayLevel[0], InsetBox[ StyleBox["\<\"C\"\>", StripOnInput->False, ScriptSizeMultipliers->0.8, ScriptMinSize->8, FontSize->Scaled[0.006189383406757125], FontWeight->Plain], {946.51, 0.}], LineBox[{{{992.315, 20.669499999999992`}, { 953.810049152841, -1.5594290192581859`}}, {{987.315, 29.330500000000008`}, {948.810049152841, 7.101570980741828}}}]}}, {GrayLevel[0], AbsoluteThickness[0.55], InsetBox[ StyleBox["\<\"C\"\>", StripOnInput->False, ScriptSizeMultipliers->0.8, ScriptMinSize->8, FontSize->Scaled[0.006189383406757125], FontWeight->Plain], {1033.1200000000001`, 50.}], LineBox[{{1033.1200000000001`, 55.542499999999905`}, { 1033.1200000000001`, 81.}}], {GrayLevel[0], InsetBox[ StyleBox["\<\"H\"\>", StripOnInput->False, ScriptSizeMultipliers->0.8, ScriptMinSize->8, FontSize->Scaled[0.006189383406757125], FontWeight->Plain], {1033.1200000000001`, 112.00000000000001`}], LineBox[{{1033.1200000000001`, 81.}, {1033.1200000000001`, 106.45750000000011`}}]}}, {GrayLevel[0], AbsoluteThickness[0.55], InsetBox[ StyleBox["\<\"C\"\>", StripOnInput->False, ScriptSizeMultipliers->0.8, ScriptMinSize->8, FontSize->Scaled[0.006189383406757125], FontWeight->Plain], {1033.1200000000001`, -150.}], LineBox[{{1035.8913883926339`, -154.79986589679064`}, { 1048.62, -176.84500000000003`}}], {GrayLevel[0], InsetBox[ StyleBox["\<\"H\"\>", StripOnInput->False, ScriptSizeMultipliers->0.8, ScriptMinSize->8, FontSize->Scaled[0.006189383406757125], FontWeight->Plain], {1064.12, -203.69000000000003`}], LineBox[{{1048.62, -176.84500000000003`}, { 1061.3486116073661`, -198.89013410320942`}}]}}, {GrayLevel[0], AbsoluteThickness[0.55], InsetBox[ StyleBox["\<\"C\"\>", StripOnInput->False, ScriptSizeMultipliers->0.8, ScriptMinSize->8, FontSize->Scaled[0.006189383406757125], FontWeight->Plain], {1033.1200000000001`, -150.}], LineBox[{{1028.3199106286488`, -152.7710013130706}, {1006.27, -165.5}}], {GrayLevel[0], InsetBox[ StyleBox["\<\"H\"\>", StripOnInput->False, ScriptSizeMultipliers->0.8, ScriptMinSize->8, FontSize->Scaled[0.006189383406757125], FontWeight->Plain], {979.42, -181.}], LineBox[{{1006.27, -165.5}, {984.2200893713513, -178.2289986869294}}]}}, {GrayLevel[0], AbsoluteThickness[0.55], InsetBox[ StyleBox["\<\"C\"\>", StripOnInput->False, ScriptSizeMultipliers->0.8, ScriptMinSize->8, FontSize->Scaled[0.006189383406757125], FontWeight->Plain], {1033.1200000000001`, -150.}], LineBox[{{1030.3486116073664`, -145.2001341032094}, { 1017.6200000000001`, -123.155}}], {GrayLevel[0], InsetBox[ StyleBox["\<\"H\"\>", StripOnInput->False, ScriptSizeMultipliers->0.8, ScriptMinSize->8, FontSize->Scaled[0.006189383406757125], FontWeight->Plain], {1002.12, -96.31}], LineBox[{{1017.6200000000001`, -123.155}, { 1004.8913883926339`, -101.10986589679061`}}]}}, {GrayLevel[0], AbsoluteThickness[0.55], InsetBox[ StyleBox["\<\"C\"\>", StripOnInput->False, ScriptSizeMultipliers->0.8, ScriptMinSize->8, FontSize->Scaled[0.006189383406757125], FontWeight->Plain], {946.51, 0.}], LineBox[{{941.7100894008053, 2.7713109695119558`}, {903.21, 25.}}], {GrayLevel[0], InsetBox[ StyleBox["\<\"C\"\>", StripOnInput->False, ScriptSizeMultipliers->0.8, ScriptMinSize->8, FontSize->Scaled[0.006189383406757125], FontWeight->Plain], {859.91, 50.}], LineBox[{{903.21, 25.}, {864.7099105991947, 47.22868903048805}}]}}, {GrayLevel[0], AbsoluteThickness[0.55], InsetBox[ StyleBox["\<\"C\"\>", StripOnInput->False, ScriptSizeMultipliers->0.8, ScriptMinSize->8, FontSize->Scaled[0.006189383406757125], FontWeight->Plain], {946.51, 0.}], LineBox[{{946.51, -5.5424999999999045`}, {946.51, -31.}}], {GrayLevel[0], InsetBox[ StyleBox["\<\"H\"\>", StripOnInput->False, ScriptSizeMultipliers->0.8, ScriptMinSize->8, FontSize->Scaled[0.006189383406757125], FontWeight->Plain], {946.51, -62.}], LineBox[{{946.51, -31.}, {946.51, -56.457500000000095`}}]}}, {GrayLevel[0], AbsoluteThickness[0.55], InsetBox[ StyleBox["\<\"C\"\>", StripOnInput->False, ScriptSizeMultipliers->0.8, ScriptMinSize->8, FontSize->Scaled[0.006189383406757125], FontWeight->Plain], {859.91, 50.}], LineBox[{{859.91, 55.542499999999905`}, {859.91, 100.}}], {GrayLevel[0], InsetBox[ StyleBox["\<\"C\"\>", StripOnInput->False, ScriptSizeMultipliers->0.8, ScriptMinSize->8, FontSize->Scaled[0.006189383406757125], FontWeight->Plain], {859.91, 150.}], LineBox[{{859.91, 100.}, {859.91, 144.4575000000001}}]}}, {GrayLevel[0], AbsoluteThickness[0.55], InsetBox[ StyleBox["\<\"C\"\>", StripOnInput->False, ScriptSizeMultipliers->0.8, ScriptMinSize->8, FontSize->Scaled[0.006189383406757125], FontWeight->Plain], {859.91, 50.}], LineBox[{{{857.6100894008052, 42.89868903048804}, {819.11, 20.670000000000005`}}, {{852.6100894008052, 51.55868903048804}, {814.11, 29.329999999999995`}}}], {GrayLevel[0], InsetBox[ StyleBox["\<\"C\"\>", StripOnInput->False, ScriptSizeMultipliers->0.8, ScriptMinSize->8, FontSize->Scaled[0.006189383406757125], FontWeight->Plain], {773.3100000000001, 0.}], LineBox[{{{819.11, 20.670000000000005`}, { 780.6099105991948, -1.5586890304880399`}}, {{814.11, 29.329999999999995`}, {775.6099105991948, 7.101310969511951}}}]}}, {GrayLevel[0], AbsoluteThickness[0.55], InsetBox[ StyleBox["\<\"C\"\>", StripOnInput->False, ScriptSizeMultipliers->0.8, ScriptMinSize->8, FontSize->Scaled[0.006189383406757125], FontWeight->Plain], {859.91, 150.}], LineBox[{{865.4524999999999, 150.}, {890.91, 150.}}], {GrayLevel[0], InsetBox[ StyleBox["\<\"H\"\>", StripOnInput->False, ScriptSizeMultipliers->0.8, ScriptMinSize->8, FontSize->Scaled[0.006189383406757125], FontWeight->Plain], {921.91, 150.}], LineBox[{{890.91, 150.}, {916.3675000000001, 150.}}]}}, {GrayLevel[0], AbsoluteThickness[0.55], InsetBox[ StyleBox["\<\"C\"\>", StripOnInput->False, ScriptSizeMultipliers->0.8, ScriptMinSize->8, FontSize->Scaled[0.006189383406757125], FontWeight->Plain], {859.91, 150.}], LineBox[{{859.91, 155.5424999999999}, {859.91, 181.}}], {GrayLevel[0], InsetBox[ StyleBox["\<\"H\"\>", StripOnInput->False, ScriptSizeMultipliers->0.8, ScriptMinSize->8, FontSize->Scaled[0.006189383406757125], FontWeight->Plain], {859.91, 212.}], LineBox[{{859.91, 181.}, {859.91, 206.4575000000001}}]}}, {GrayLevel[0], AbsoluteThickness[0.55], InsetBox[ StyleBox["\<\"C\"\>", StripOnInput->False, ScriptSizeMultipliers->0.8, ScriptMinSize->8, FontSize->Scaled[0.006189383406757125], FontWeight->Plain], {859.91, 150.}], LineBox[{{854.3675000000001, 150.}, {828.91, 150.}}], {GrayLevel[0], InsetBox[ StyleBox["\<\"H\"\>", StripOnInput->False, ScriptSizeMultipliers->0.8, ScriptMinSize->8, FontSize->Scaled[0.006189383406757125], FontWeight->Plain], {797.91, 150.}], LineBox[{{828.91, 150.}, {803.4524999999999, 150.}}]}}, {GrayLevel[0], AbsoluteThickness[0.55], InsetBox[ StyleBox["\<\"C\"\>", StripOnInput->False, ScriptSizeMultipliers->0.8, ScriptMinSize->8, FontSize->Scaled[0.006189383406757125], FontWeight->Plain], {773.3100000000001, 0.}], LineBox[{{768.5100894008053, 2.771310969511951}, {730.01, 25.}}], {GrayLevel[0], InsetBox[ StyleBox["\<\"C\"\>", StripOnInput->False, ScriptSizeMultipliers->0.8, ScriptMinSize->8, FontSize->Scaled[0.006189383406757125], FontWeight->Plain], {686.7099999999999, 50.}], LineBox[{{730.01, 25.}, {691.5099105991947, 47.22868903048805}}]}}, {GrayLevel[0], AbsoluteThickness[0.55], InsetBox[ StyleBox["\<\"C\"\>", StripOnInput->False, ScriptSizeMultipliers->0.8, ScriptMinSize->8, FontSize->Scaled[0.006189383406757125], FontWeight->Plain], {773.3100000000001, 0.}], LineBox[{{773.3100000000001, -5.5424999999999045`}, { 773.3100000000001, -31.}}], {GrayLevel[0], InsetBox[ StyleBox["\<\"H\"\>", StripOnInput->False, ScriptSizeMultipliers->0.8, ScriptMinSize->8, FontSize->Scaled[0.006189383406757125], FontWeight->Plain], {773.3100000000001, -62.}], LineBox[{{773.3100000000001, -31.}, { 773.3100000000001, -56.457500000000095`}}]}}, {GrayLevel[0], AbsoluteThickness[0.55], InsetBox[ StyleBox["\<\"C\"\>", StripOnInput->False, ScriptSizeMultipliers->0.8, ScriptMinSize->8, FontSize->Scaled[0.006189383406757125], FontWeight->Plain], {686.7099999999999, 50.}], LineBox[{{{684.4099508471589, 42.89842901925818}, {645.905, 20.669500000000006`}}, {{679.4099508471589, 51.55942901925817}, { 640.905, 29.330499999999994`}}}], {GrayLevel[0], InsetBox[ StyleBox["\<\"C\"\>", StripOnInput->False, ScriptSizeMultipliers->0.8, ScriptMinSize->8, FontSize->Scaled[0.006189383406757125], FontWeight->Plain], {600.1, 0.}], LineBox[{{{645.905, 20.669500000000006`}, { 607.400049152841, -1.5594290192581686`}}, {{640.905, 29.330499999999994`}, {602.400049152841, 7.101570980741823}}}]}}, {GrayLevel[0], AbsoluteThickness[0.55], InsetBox[ StyleBox["\<\"C\"\>", StripOnInput->False, ScriptSizeMultipliers->0.8, ScriptMinSize->8, FontSize->Scaled[0.006189383406757125], FontWeight->Plain], {686.7099999999999, 50.}], LineBox[{{686.7099999999999, 55.542499999999905`}, {686.7099999999999, 81.}}], {GrayLevel[0], InsetBox[ StyleBox["\<\"H\"\>", StripOnInput->False, ScriptSizeMultipliers->0.8, ScriptMinSize->8, FontSize->Scaled[0.006189383406757125], FontWeight->Plain], {686.7099999999999, 112.00000000000001`}], LineBox[{{686.7099999999999, 81.}, {686.7099999999999, 106.45750000000011`}}]}}, {GrayLevel[0], AbsoluteThickness[0.55], InsetBox[ StyleBox["\<\"C\"\>", StripOnInput->False, ScriptSizeMultipliers->0.8, ScriptMinSize->8, FontSize->Scaled[0.006189383406757125], FontWeight->Plain], {600.1, 0.}], LineBox[{{595.3000894008053, 2.771310969511951}, {556.8, 25.}}], {GrayLevel[0], InsetBox[ StyleBox["\<\"C\"\>", StripOnInput->False, ScriptSizeMultipliers->0.8, ScriptMinSize->8, FontSize->Scaled[0.006189383406757125], FontWeight->Plain], {513.5, 50.}], LineBox[{{556.8, 25.}, {518.2999105991947, 47.22868903048804}}]}}, {GrayLevel[0], AbsoluteThickness[0.55], InsetBox[ StyleBox["\<\"C\"\>", StripOnInput->False, ScriptSizeMultipliers->0.8, ScriptMinSize->8, FontSize->Scaled[0.006189383406757125], FontWeight->Plain], {600.1, 0.}], LineBox[{{600.1, -5.5424999999999045`}, {600.1, -31.}}], {GrayLevel[0], InsetBox[ StyleBox["\<\"H\"\>", StripOnInput->False, ScriptSizeMultipliers->0.8, ScriptMinSize->8, FontSize->Scaled[0.006189383406757125], FontWeight->Plain], {600.1, -62.}], LineBox[{{600.1, -31.}, {600.1, -56.457500000000095`}}]}}, {GrayLevel[0], AbsoluteThickness[0.55], InsetBox[ StyleBox["\<\"C\"\>", StripOnInput->False, ScriptSizeMultipliers->0.8, ScriptMinSize->8, FontSize->Scaled[0.006189383406757125], FontWeight->Plain], {513.5, 50.}], LineBox[{{513.5, 55.542499999999905`}, {513.5, 100.}}], {GrayLevel[0], InsetBox[ StyleBox["\<\"C\"\>", StripOnInput->False, ScriptSizeMultipliers->0.8, ScriptMinSize->8, FontSize->Scaled[0.006189383406757125], FontWeight->Plain], {513.5, 150.}], LineBox[{{513.5, 100.}, {513.5, 144.4575000000001}}]}}, {GrayLevel[0], AbsoluteThickness[0.55], InsetBox[ StyleBox["\<\"C\"\>", StripOnInput->False, ScriptSizeMultipliers->0.8, ScriptMinSize->8, FontSize->Scaled[0.006189383406757125], FontWeight->Plain], {513.5, 50.}], LineBox[{{{511.2000894008053, 42.89868903048804}, {472.70000000000005`, 20.67}}, {{506.2000894008053, 51.55868903048804}, {467.70000000000005`, 29.33}}}], {GrayLevel[0], InsetBox[ StyleBox["\<\"C\"\>", StripOnInput->False, ScriptSizeMultipliers->0.8, ScriptMinSize->8, FontSize->Scaled[0.006189383406757125], FontWeight->Plain], {426.90000000000003`, 0.}], LineBox[{{{472.70000000000005`, 20.67}, { 434.19991059919477`, -1.5586890304880456`}}, {{467.70000000000005`, 29.33}, {429.19991059919477`, 7.101310969511951}}}]}}, {GrayLevel[0], AbsoluteThickness[0.55], InsetBox[ StyleBox["\<\"C\"\>", StripOnInput->False, ScriptSizeMultipliers->0.8, ScriptMinSize->8, FontSize->Scaled[0.006189383406757125], FontWeight->Plain], {513.5, 150.}], LineBox[{{507.9575000000001, 150.}, {482.5, 150.}}], {GrayLevel[0], InsetBox[ StyleBox["\<\"H\"\>", StripOnInput->False, ScriptSizeMultipliers->0.8, ScriptMinSize->8, FontSize->Scaled[0.006189383406757125], FontWeight->Plain], {451.49999999999994`, 150.}], LineBox[{{482.5, 150.}, {457.04249999999985`, 150.}}]}}, {GrayLevel[0], AbsoluteThickness[0.55], InsetBox[ StyleBox["\<\"C\"\>", StripOnInput->False, ScriptSizeMultipliers->0.8, ScriptMinSize->8, FontSize->Scaled[0.006189383406757125], FontWeight->Plain], {513.5, 150.}], LineBox[{{513.5, 155.5424999999999}, {513.5, 181.}}], {GrayLevel[0], InsetBox[ StyleBox["\<\"H\"\>", StripOnInput->False, ScriptSizeMultipliers->0.8, ScriptMinSize->8, FontSize->Scaled[0.006189383406757125], FontWeight->Plain], {513.5, 212.}], LineBox[{{513.5, 181.}, {513.5, 206.4575000000001}}]}}, {GrayLevel[0], AbsoluteThickness[0.55], InsetBox[ StyleBox["\<\"C\"\>", StripOnInput->False, ScriptSizeMultipliers->0.8, ScriptMinSize->8, FontSize->Scaled[0.006189383406757125], FontWeight->Plain], {513.5, 150.}], LineBox[{{519.0424999999999, 150.}, {544.5, 150.}}], {GrayLevel[0], InsetBox[ StyleBox["\<\"H\"\>", StripOnInput->False, ScriptSizeMultipliers->0.8, ScriptMinSize->8, FontSize->Scaled[0.006189383406757125], FontWeight->Plain], {575.5, 150.}], LineBox[{{544.5, 150.}, {569.9575000000001, 150.}}]}}, {GrayLevel[0], AbsoluteThickness[0.55], InsetBox[ StyleBox["\<\"C\"\>", StripOnInput->False, ScriptSizeMultipliers->0.8, ScriptMinSize->8, FontSize->Scaled[0.006189383406757125], FontWeight->Plain], {426.90000000000003`, 0.}], LineBox[{{422.1000894008053, 2.7713109695119527`}, {383.6, 25.}}], {GrayLevel[0], InsetBox[ StyleBox["\<\"C\"\>", StripOnInput->False, ScriptSizeMultipliers->0.8, ScriptMinSize->8, FontSize->Scaled[0.006189383406757125], FontWeight->Plain], {340.3, 50.}], LineBox[{{383.6, 25.}, {345.09991059919474`, 47.22868903048805}}]}}, {GrayLevel[0], AbsoluteThickness[0.55], InsetBox[ StyleBox["\<\"C\"\>", StripOnInput->False, ScriptSizeMultipliers->0.8, ScriptMinSize->8, FontSize->Scaled[0.006189383406757125], FontWeight->Plain], {426.90000000000003`, 0.}], LineBox[{{426.90000000000003`, -5.5424999999999045`}, { 426.90000000000003`, -31.}}], {GrayLevel[0], InsetBox[ StyleBox["\<\"H\"\>", StripOnInput->False, ScriptSizeMultipliers->0.8, ScriptMinSize->8, FontSize->Scaled[0.006189383406757125], FontWeight->Plain], {426.90000000000003`, -62.}], LineBox[{{426.90000000000003`, -31.}, { 426.90000000000003`, -56.457500000000095`}}]}}, {GrayLevel[0], AbsoluteThickness[0.55], InsetBox[ StyleBox["\<\"C\"\>", StripOnInput->False, ScriptSizeMultipliers->0.8, ScriptMinSize->8, FontSize->Scaled[0.006189383406757125], FontWeight->Plain], {340.3, 50.}], LineBox[{{336.7367643491139, 54.245310111906214`}, {320.37, 73.745}}], {GrayLevel[0], InsetBox[ StyleBox["\<\"H\"\>", StripOnInput->False, ScriptSizeMultipliers->0.8, ScriptMinSize->8, FontSize->Scaled[0.006189383406757125], FontWeight->Plain], {300.44, 97.49}], LineBox[{{320.37, 73.745}, {304.0032356508861, 93.24468988809379}}]}}, {GrayLevel[0], AbsoluteThickness[0.55], InsetBox[ StyleBox["\<\"C\"\>", StripOnInput->False, ScriptSizeMultipliers->0.8, ScriptMinSize->8, FontSize->Scaled[0.006189383406757125], FontWeight->Plain], {340.3, 50.}], LineBox[{{343.8627111065083, 54.24575032492039}, {360.225, 73.745}}], {GrayLevel[0], InsetBox[ StyleBox["\<\"H\"\>", StripOnInput->False, ScriptSizeMultipliers->0.8, ScriptMinSize->8, FontSize->Scaled[0.006189383406757125], FontWeight->Plain], {380.15, 97.49}], LineBox[{{360.225, 73.745}, {376.5872888934917, 93.2442496750796}}]}}}, {}, {}}, ImageSize->Large, PlotRange->{{180., 1373.98}, {-216.16070000000002`, 224.4707}}]], "Output", CellChangeTimes->{ 3.571227076543929*^9, 3.571227460962205*^9, 3.5712275223171124`*^9, 3.5712276864138007`*^9, 3.571227767674343*^9, 3.5712350086157846`*^9, 3.5712353688984175`*^9, 3.571235665860539*^9, 3.5712357071070113`*^9, 3.571236277990014*^9, 3.5712363552413497`*^9, 3.5712364387170963`*^9, 3.5712449851253366`*^9, 3.571245057618664*^9, 3.571245107710352*^9, 3.571299186186207*^9, 3.571299318193639*^9, 3.5712993934481707`*^9, 3.5712994973131533`*^9, 3.571299553379652*^9, 3.571299616996564*^9, 3.57129985970179*^9, 3.571299902898266*^9, 3.571300080520178*^9, 3.5713001475378957`*^9, 3.5713001794867516`*^9, 3.5713071907501593`*^9, 3.5713073110575705`*^9, 3.5713074124577484`*^9, 3.5713118579855523`*^9, 3.5713119299484787`*^9, 3.5713119872629795`*^9, 3.5713120212398396`*^9, 3.571312292758316*^9, 3.5713123482944136`*^9, 3.5713124777122407`*^9, 3.5713129071497955`*^9, 3.571312946352664*^9, 3.5713129966003523`*^9, 3.571315241241495*^9, 3.571315385385748*^9, 3.5713156352201867`*^9, 3.5713157647628145`*^9, 3.5713161645291166`*^9, 3.571316534436966*^9, 3.571316705226066*^9, 3.5713168115090528`*^9, 3.5713168790415716`*^9, 3.5713169700209312`*^9, 3.571317153414853*^9, 3.5713172795722747`*^9, 3.571320899992368*^9, 3.571320942486843*^9, 3.571320974404499*^9, 3.5713210210017805`*^9, {3.5713211682660394`*^9, 3.571321196018488*^9}, 3.571321703112979*^9, 3.572804087798524*^9}] }, Open ]], Cell[BoxData[ RowBox[{ StyleBox[ RowBox[{"(*", " ", RowBox[{"Distance", " ", "Matrix", " ", "Bohr"}], " ", "*)"}], "Text"], "\[IndentingNewLine]", RowBox[{ RowBox[{"dc", "=", RowBox[{"Table", "[", RowBox[{ RowBox[{"Sqrt", "[", RowBox[{ RowBox[{ RowBox[{"(", RowBox[{ RowBox[{"t", "[", RowBox[{"[", RowBox[{"i", ",", "1"}], "]"}], "]"}], "-", RowBox[{"t", "[", RowBox[{"[", RowBox[{"j", ",", "1"}], "]"}], "]"}]}], ")"}], "^", "2"}], "+", RowBox[{ RowBox[{"(", RowBox[{ RowBox[{"t", "[", RowBox[{"[", RowBox[{"i", ",", "2"}], "]"}], "]"}], "-", RowBox[{"t", "[", RowBox[{"[", RowBox[{"j", ",", "2"}], "]"}], "]"}]}], ")"}], "^", "2"}], "+", RowBox[{ RowBox[{"(", RowBox[{ RowBox[{"t", "[", RowBox[{"[", RowBox[{"i", ",", "3"}], "]"}], "]"}], "-", RowBox[{"t", "[", RowBox[{"[", RowBox[{"j", ",", "3"}], "]"}], "]"}]}], ")"}], "^", "2"}]}], "]"}], ",", RowBox[{"{", RowBox[{"i", ",", "1", ",", "n"}], "}"}], ",", RowBox[{"{", RowBox[{"j", ",", "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.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}}], 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}}], 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.8913009136018033`", "0", "2.8365357849535755`", "0", "0", "2.89127882116865`", "2.891496051548036`", "0", "0", "0", "0", "0", "0", "0", "0", "0", "0", "0", "0", "0", "0", "0", "0", "0", "0", "0", "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.8913009136018033`", "0.`", "2.897744729615149`", "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.897744729615149`", "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.4969033111783276`", "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.8364840302110523`", "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.4969033111783276`", "2.8364840302110523`", "0.`", "0", "0", "0", "2.847735773230699`", "0", "0", "0", "0", "0", "0", "0", "0", "0", "0", "0", "0", "0", "0", "0", "0", "0", "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.89127882116865`", "0", "0", "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.059713033204844`", "0", "0", "0", "0", "0", "0", "0", "0", "0", "0", "0", "0", "0", "0", "0", "0", "0", "0", "0", "0", "0"}, {"2.891496051548036`", "0", "0", "0", "0", "0", "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.0598903549200966`", "2.059839640489124`", "2.059752146204022`", "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.041088532893879`", "0", "0", "0", "0", "0", "0", "0", "0", "0", "0", "0", "0", "0", "0", "0", "0", "0"}, {"0", "0", "0", "0", "0", "2.847735773230699`", "0", "0", "0", "0.`", "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.059887260061742`", "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.847986419989531`", "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.847986419989531`", "0.`", "0", "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.0597025058258973`", "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.040984980103778`", "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.040733749438218`", "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.847700126249429`", "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.847700126249429`", "0.`", "0", "0", "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.0598277699890306`", "2.0596247627619664`", "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.7004375744153646`", "0", "0", "0", "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.7004375744153646`", "0.`", "0", "0", "0", "0", "0", "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.8273864433636156`"}, {"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.059713033204844`", "0", "0", "0", "0", "0", "0", "0", "0", "0", "0", "0", "0", "0", "0", "0", "0", "0", "0", "0", "0", "0", "0", "0.`", "0", "0", "0", "0", "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.0598903549200966`", "0", "0", "0", "0", "0", "0", "0", "0", "0", "0", "0", "0", "0", "0", "0", "0", "0", "0", "0", "0", "0", "0", "0.`", "0", "0", "0", "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.059752146204022`", "0", "0", "0", "0", "0", "0", "0", "0", "0", "0", "0", "0", "0", "0", "0", "0", "0", "0", "0", "0", "0", "0", "0", "0", "0.`", "0", "0", "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.041088532893879`", "0", "0", "0", "0", "0", "0", "0", "0", "0", "0", "0", "0", "0", "0", "0", "0", "0", "0", "0", "0", "0", "0", "0", "0", "0.`", "0", "0", "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.059887260061742`", "0", "0", "0", "0", "0", "0", "0", "0", "0", "0", "0", "0", "0", "0", "0", "0", "0", "0", "0", "0", "0", "0", "0", "0", "0.`", "0", "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.0597025058258973`", "0", "0", "0", "0", "0", "0", "0", "0", "0", "0", "0", "0", "0", "0", "0", "0", "0", "0", "0", "0", "0", "0", "0", "0", "0", "0.`", "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.040984980103778`", "0", "0", "0", "0", "0", "0", "0", "0", "0", "0", "0", "0", "0", "0", "0", "0", "0", "0", "0", "0", "0", "0", "0", "0", "0", "0", "0", "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.040733749438218`", "0", "0", "0", "0", "0", "0", "0", "0", "0", "0", "0", "0", "0", "0", "0", "0", "0", "0", "0", "0", "0", "0", "0", "0", "0", "0", "0", "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.0598277699890306`", "0", "0", "0", "0", "0", "0", "0", "0", "0", "0", "0", "0", "0", "0", "0", "0", "0", "0", "0", "0", "0", "0", "0", "0", "0", "0", "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.0596247627619664`", "0", "0", "0", "0", "0", "0", "0", "0", "0", "0", "0", "0", "0", "0", "0", "0", "0", "0", "0", "0", "0", "0", "0", "0", "0", "0", "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.8273864433636156`", "0", "0", "0", "0", "0", "0", "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.571227076590729*^9, 3.571227461024605*^9, 3.5712275223795123`*^9, 3.571227686476201*^9, 3.571227767752343*^9, 3.5712350086937847`*^9, 3.5712353689764175`*^9, 3.5712356659229393`*^9, 3.5712357071694117`*^9, 3.571236278068014*^9, 3.57123635530375*^9, 3.5712364387950964`*^9, 3.5712449852033367`*^9, 3.571245057696664*^9, 3.571245107788352*^9, 3.5712991862486067`*^9, 3.571299318271639*^9, 3.5712993935105715`*^9, 3.5712994973755536`*^9, 3.571299553442052*^9, 3.571299617058964*^9, 3.57129985977979*^9, 3.5712999029606657`*^9, 3.571300080598178*^9, 3.5713001476002955`*^9, 3.5713001795491514`*^9, 3.5713071908281593`*^9, 3.5713073111199703`*^9, 3.5713074125201488`*^9, 3.5713118580479527`*^9, 3.5713119300108786`*^9, 3.5713119873409796`*^9, 3.5713120213022394`*^9, 3.571312292836316*^9, 3.5713123483568134`*^9, 3.571312477774641*^9, 3.571312907227795*^9, 3.571312946415064*^9, 3.571312996662752*^9, 3.571315241303895*^9, 3.571315385463748*^9, 3.571315635282587*^9, 3.5713157648408146`*^9, 3.5713161645915165`*^9, 3.571316534514966*^9, 3.571316705304066*^9, 3.571316811587053*^9, 3.5713168791039715`*^9, 3.5713169700989313`*^9, 3.571317153492853*^9, 3.571317279634675*^9, 3.5713209000547686`*^9, 3.571320942549243*^9, 3.571320974466899*^9, 3.571321021064181*^9, {3.57132116834404*^9, 3.5713211960808883`*^9}, 3.571321703175379*^9, 3.572804087860924*^9}] }, Open ]], Cell[CellGroupData[{ Cell[BoxData[{ RowBox[{ RowBox[{ RowBox[{"nc", "=", "0"}], ";"}], " ", RowBox[{"(*", " ", RowBox[{ RowBox[{"parse", " ", "into", " ", "prim"}], ",", " ", "sec", ",", " ", "tert", ",", " ", RowBox[{ "and", " ", "quart", " ", "C", " ", "cores", " ", "with", " ", "different", " ", "radii"}]}], " ", "*)"}]}], "\[IndentingNewLine]", 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"}], "]"}]}], "]"}], "\n", RowBox[{ RowBox[{"cnt", "=", RowBox[{"Table", "[", RowBox[{"0", ",", RowBox[{"{", RowBox[{"i", ",", "1", ",", "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}}], Cell[BoxData["20"], "Output", CellChangeTimes->{ 3.571227076606329*^9, 3.5712274610558047`*^9, 3.5712275224107122`*^9, 3.5712276865230007`*^9, 3.5712277677835436`*^9, 3.571235008724985*^9, 3.571235369007618*^9, 3.571235665954139*^9, 3.5712357072162113`*^9, 3.5712362780992146`*^9, 3.57123635533495*^9, 3.571236438826297*^9, 3.571244985234537*^9, 3.5712450577278643`*^9, 3.571245107819552*^9, 3.571299186264207*^9, 3.5712993183028393`*^9, 3.571299393557371*^9, 3.5712994974223537`*^9, 3.571299553488852*^9, 3.571299617105764*^9, 3.5712998598109903`*^9, 3.571299902991866*^9, 3.5713000806293783`*^9, 3.5713001476158953`*^9, 3.5713001795647516`*^9, 3.5713071908593597`*^9, 3.5713073111511707`*^9, 3.571307412566949*^9, 3.571311858079152*^9, 3.5713119300576787`*^9, 3.5713119873721795`*^9, 3.571312021333439*^9, 3.5713122928675165`*^9, 3.571312348388014*^9, 3.571312477805841*^9, 3.571312907258995*^9, 3.5713129464462643`*^9, 3.5713129966939526`*^9, 3.5713152413350945`*^9, 3.571315385510548*^9, 3.5713156353293867`*^9, 3.571315764872014*^9, 3.5713161646383166`*^9, 3.5713165345461664`*^9, 3.571316705335266*^9, 3.5713168116182528`*^9, 3.5713168791507716`*^9, 3.5713169701301317`*^9, 3.5713171535240536`*^9, 3.571317279681475*^9, 3.571320900101568*^9, 3.571320942596043*^9, 3.5713209745136995`*^9, 3.571321021095381*^9, {3.5713211683752394`*^9, 3.5713211961276884`*^9}, 3.571321703222179*^9, 3.572804087892124*^9}] }, Open ]], Cell[CellGroupData[{ Cell[BoxData[{ RowBox[{ RowBox[{"For", "[", RowBox[{ RowBox[{"j", "=", "1"}], ",", RowBox[{"j", "<", RowBox[{"nc", "+", "1"}]}], ",", RowBox[{"j", "++"}], ",", "\[IndentingNewLine]", RowBox[{"For", "[", RowBox[{ RowBox[{"i", "=", RowBox[{"bc", "+", "1"}]}], ",", RowBox[{"i", "<", RowBox[{"n", "+", "1"}]}], ",", 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}], 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.571227076621929*^9, 3.5712274610714045`*^9, 3.5712275224263124`*^9, 3.571227686538601*^9, 3.571227767799144*^9, 3.571235008740585*^9, 3.5712353690232177`*^9, 3.571235665985339*^9, 3.5712357072318115`*^9, 3.5712362781148143`*^9, 3.5712363553505497`*^9, 3.571236438841897*^9, 3.571244985250137*^9, 3.571245057743464*^9, 3.5712451078351517`*^9, 3.571299186279807*^9, 3.571299318318439*^9, 3.5712993935729713`*^9, 3.571299497437954*^9, 3.5712995535044518`*^9, 3.5712996171213636`*^9, 3.57129985982659*^9, 3.5712999030074663`*^9, 3.571300080644978*^9, 3.5713001476314955`*^9, 3.571300179595952*^9, 3.5713071908749595`*^9, 3.571307311182371*^9, 3.571307412582549*^9, 3.5713118580947523`*^9, 3.571311930073279*^9, 3.5713119873877797`*^9, 3.571312021349039*^9, 3.5713122928831162`*^9, 3.5713123484036136`*^9, 3.5713124778214407`*^9, 3.5713129072745953`*^9, 3.5713129464618645`*^9, 3.5713129967095523`*^9, 3.571315241366295*^9, 3.571315385526148*^9, 3.571315635344987*^9, 3.5713157648876143`*^9, 3.5713161646539164`*^9, 3.5713165345617666`*^9, 3.5713167053508663`*^9, 3.571316811649453*^9, 3.5713168791663713`*^9, 3.5713169701457314`*^9, 3.571317153539654*^9, 3.571317279697075*^9, 3.5713209001171684`*^9, 3.571320942611643*^9, 3.5713209745292993`*^9, 3.571321021110981*^9, {3.5713211683908396`*^9, 3.5713211961432886`*^9}, 3.5713217032377787`*^9, 3.572804087907724*^9}] }, Open ]], Cell[BoxData[{ RowBox[{ RowBox[{"n1", "=", "0"}], ";", " ", RowBox[{"n2", "=", "0"}], ";", " ", RowBox[{"n3", "=", "0"}], ";", " ", RowBox[{"n4", "=", "0"}], ";"}], "\n", RowBox[{ RowBox[{"For", "[", RowBox[{ RowBox[{"i", "=", "1"}], ",", RowBox[{"i", "<", RowBox[{"nc", "+", "1"}]}], ",", RowBox[{"i", "++"}], ",", RowBox[{"If", "[", RowBox[{ RowBox[{ RowBox[{"cnt", "[", RowBox[{"[", "i", "]"}], "]"}], "\[Equal]", "3"}], ",", RowBox[{ RowBox[{"n1", "=", RowBox[{"n1", "+", "1"}]}], ";", RowBox[{ RowBox[{"pri", "[", RowBox[{"[", "n1", "]"}], "]"}], "=", "i"}]}], ",", RowBox[{"If", "[", RowBox[{ RowBox[{ RowBox[{"cnt", "[", RowBox[{"[", "i", "]"}], "]"}], "\[Equal]", "2"}], ",", RowBox[{ RowBox[{"n2", "=", RowBox[{"n2", "+", "1"}]}], ";", RowBox[{ RowBox[{"sec", "[", RowBox[{"[", "n2", "]"}], "]"}], "=", "i"}]}], ",", RowBox[{"If", "[", RowBox[{ RowBox[{ RowBox[{"cnt", "[", RowBox[{"[", "i", "]"}], "]"}], "\[Equal]", "1"}], ",", RowBox[{ RowBox[{"n3", "=", RowBox[{"n3", "+", "1"}]}], ";", RowBox[{ RowBox[{"ter", "[", RowBox[{"[", "n3", "]"}], "]"}], "=", "i"}]}], ",", 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", "<", RowBox[{"nc", "+", "1"}]}], ",", 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", "<", RowBox[{"nc", "+", "1"}]}], ",", 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", "<", RowBox[{"nc", "+", "1"}]}], ",", 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", "<", RowBox[{"nc", "+", "1"}]}], ",", RowBox[{"i", "++"}], ",", RowBox[{"If", "[", RowBox[{ RowBox[{ RowBox[{"qua", "[", RowBox[{"[", "i", "]"}], "]"}], "\[NotEqual]", "0"}], ",", RowBox[{ RowBox[{"u2", "[", RowBox[{"[", RowBox[{"qua", "[", RowBox[{"[", "i", "]"}], "]"}], "]"}], "]"}], "=", "0.2577"}]}], "]"}]}], "]"}], "\[IndentingNewLine]", RowBox[{ RowBox[{"con", "=", RowBox[{"Table", "[", RowBox[{ RowBox[{"{", "i", "}"}], ",", RowBox[{"{", RowBox[{"i", ",", "1", ",", "bc"}], "}"}]}], "]"}]}], ";"}], "\[IndentingNewLine]", RowBox[{ RowBox[{"For", "[", RowBox[{ RowBox[{"i", "=", "1"}], ",", RowBox[{"i", "<", RowBox[{"bc", "+", "1"}]}], ",", RowBox[{"i", "++"}], ",", "\[IndentingNewLine]", RowBox[{"For", "[", RowBox[{ RowBox[{"j", "=", "1"}], ",", RowBox[{"j", "<", RowBox[{"bc", "+", "1"}]}], ",", RowBox[{"j", "++"}], ",", RowBox[{"If", "[", " ", RowBox[{ RowBox[{ RowBox[{"Dij", "[", RowBox[{"[", RowBox[{"i", ",", "j"}], "]"}], "]"}], "\[NotEqual]", "0"}], " ", ",", RowBox[{ RowBox[{"con", "[", RowBox[{"[", "i", "]"}], "]"}], "=", RowBox[{"{", RowBox[{ RowBox[{"con", "[", RowBox[{"[", "i", "]"}], "]"}], ",", "j"}], "}"}]}]}], "]"}]}], "]"}]}], "]"}], ";"}], "\[IndentingNewLine]", RowBox[{ RowBox[{"conn", "=", RowBox[{"Table", "[", RowBox[{ RowBox[{"Flatten", "[", RowBox[{"con", "[", RowBox[{"[", "i", "]"}], "]"}], "]"}], ",", RowBox[{"{", RowBox[{"i", ",", "1", ",", "bc"}], "}"}]}], "]"}]}], ";"}]}], "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}}], Cell[CellGroupData[{ Cell[BoxData[ RowBox[{"MatrixForm", "[", RowBox[{"conn", ",", " ", RowBox[{"TableAlignments", "\[Rule]", "Left"}]}], "]"}]], "Input", CellChangeTimes->{{3.571124951132375*^9, 3.571124964985199*^9}, 3.5711250544357557`*^9, {3.5711252381260786`*^9, 3.571125242696887*^9}, { 3.571136059092702*^9, 3.5711361005731745`*^9}, {3.5711361560936728`*^9, 3.571136166779691*^9}, {3.5711362400686197`*^9, 3.571136243375826*^9}, { 3.57113630839674*^9, 3.5711363448852043`*^9}, {3.571136388861681*^9, 3.571136392215687*^9}, {3.5711365868732414`*^9, 3.571136607385415*^9}}], Cell[BoxData[ TagBox[ RowBox[{"(", "\[NoBreak]", TagBox[GridBox[{ { RowBox[{"{", RowBox[{"1", ",", "2", ",", "4", ",", "7", ",", "8"}], "}"}]}, { RowBox[{"{", RowBox[{"2", ",", "1", ",", "3"}], "}"}]}, { RowBox[{"{", RowBox[{"3", ",", "2", ",", "5"}], "}"}]}, { RowBox[{"{", RowBox[{"4", ",", "1", ",", "6", ",", "9"}], "}"}]}, { RowBox[{"{", RowBox[{"5", ",", "3", ",", "6"}], "}"}]}, { RowBox[{"{", RowBox[{"6", ",", "4", ",", "5", ",", "10"}], "}"}]}, { RowBox[{"{", RowBox[{"7", ",", "1"}], "}"}]}, { RowBox[{"{", RowBox[{"8", ",", "1"}], "}"}]}, { RowBox[{"{", RowBox[{"9", ",", "4", ",", "11"}], "}"}]}, { RowBox[{"{", RowBox[{"10", ",", "6"}], "}"}]}, { RowBox[{"{", RowBox[{"11", ",", "9", ",", "12"}], "}"}]}, { RowBox[{"{", RowBox[{"12", ",", "11", ",", "13", ",", "14"}], "}"}]}, { RowBox[{"{", RowBox[{"13", ",", "12"}], "}"}]}, { RowBox[{"{", RowBox[{"14", ",", "12", ",", "15"}], "}"}]}, { RowBox[{"{", RowBox[{"15", ",", "14", ",", "16"}], "}"}]}, { RowBox[{"{", RowBox[{"16", ",", "15", ",", "17"}], "}"}]}, { RowBox[{"{", RowBox[{"17", ",", "16", ",", "18", ",", "19"}], "}"}]}, { RowBox[{"{", RowBox[{"18", ",", "17"}], "}"}]}, { RowBox[{"{", RowBox[{"19", ",", "17", ",", "20"}], "}"}]}, { RowBox[{"{", RowBox[{"20", ",", "19", ",", "21"}], "}"}]}, { RowBox[{"{", RowBox[{"21", ",", "20"}], "}"}]} }, 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.5712270766375294`*^9, 3.571227461102605*^9, 3.571227522457513*^9, 3.571227686554201*^9, 3.5712277678303432`*^9, 3.571235008771785*^9, 3.5712353690544176`*^9, 3.5712356660009394`*^9, 3.571235707263012*^9, 3.571236278146014*^9, 3.57123635538175*^9, 3.5712364388574967`*^9, 3.571244985281337*^9, 3.571245057774664*^9, 3.571245107866352*^9, 3.5712991862954073`*^9, 3.5712993183340387`*^9, 3.5712993935885715`*^9, 3.5712994974535537`*^9, 3.571299553520052*^9, 3.571299617136964*^9, 3.57129985985779*^9, 3.571299903038666*^9, 3.571300080660578*^9, 3.5713001476470957`*^9, 3.571300179611552*^9, 3.5713071909061594`*^9, 3.571307311197971*^9, 3.571307412598149*^9, 3.5713118581259527`*^9, 3.571311930088879*^9, 3.5713119874189796`*^9, 3.5713120213802395`*^9, 3.571312292914316*^9, 3.5713123484348135`*^9, 3.571312477852641*^9, 3.5713129072901955`*^9, 3.571312946493064*^9, 3.571312996740752*^9, 3.571315241381895*^9, 3.5713153855573483`*^9, 3.571315635360587*^9, 3.5713157649032145`*^9, 3.571316164685117*^9, 3.571316534592966*^9, 3.5713167053664665`*^9, 3.571316811665053*^9, 3.5713168791819715`*^9, 3.571316970161331*^9, 3.5713171535708537`*^9, 3.5713172797282753`*^9, 3.5713209001483684`*^9, 3.5713209426428432`*^9, 3.571320974560499*^9, 3.571321021142181*^9, {3.57132116840644*^9, 3.5713211961588883`*^9}, 3.571321703253379*^9, 3.572804087923324*^9}] }, Open ]], Cell[CellGroupData[{ Cell[BoxData[{ RowBox[{ RowBox[{"Eij", "=", RowBox[{"Table", "[", RowBox[{ RowBox[{"If", "[", RowBox[{ RowBox[{"i", "\[GreaterEqual]", "j"}], ",", RowBox[{"Dij", "[", RowBox[{"[", RowBox[{"i", ",", "j"}], "]"}], "]"}], ",", "0"}], "]"}], ",", RowBox[{"{", RowBox[{"i", ",", "1", ",", RowBox[{"bc", "-", "1"}]}], "}"}], ",", RowBox[{"{", RowBox[{"j", ",", "1", ",", RowBox[{"bc", "-", "1"}]}], "}"}]}], "]"}]}], ";"}], "\[IndentingNewLine]", RowBox[{"CD", "=", RowBox[{"Select", "[", RowBox[{ RowBox[{"Flatten", "[", "Eij", "]"}], ",", RowBox[{ RowBox[{"(", RowBox[{ RowBox[{"#", "\[GreaterEqual]", "2.4"}], " ", "&&", RowBox[{"#", "\[LessEqual]", "2.6"}]}], ")"}], " ", "&"}]}], "]"}]}], "\[IndentingNewLine]", RowBox[{ RowBox[{"Mean", "[", "CD", "]"}], " ", "\[PlusMinus]", " ", RowBox[{"StandardDeviation", "[", "CD", "]"}]}]}], "Input", CellChangeTimes->{{3.5711447475554733`*^9, 3.5711448173314643`*^9}, { 3.5711448756027975`*^9, 3.57114492740276*^9}, {3.5711449591545763`*^9, 3.5711450128426466`*^9}, 3.571145059034289*^9, {3.571145091643154*^9, 3.5711451544367456`*^9}, {3.5711457670857873`*^9, 3.571145777413378*^9}, { 3.571145816908637*^9, 3.5711458203728347`*^9}, {3.571145995427848*^9, 3.571146043099574*^9}, {3.571146121580063*^9, 3.571146129714528*^9}, { 3.5711468466695356`*^9, 3.571146852041843*^9}, {3.5711478420384674`*^9, 3.571147850085928*^9}, {3.57114788911016*^9, 3.571147906822173*^9}, 3.571148086181432*^9, {3.571148123252552*^9, 3.5711481317480383`*^9}, { 3.571148234499915*^9, 3.57114834630731*^9}, 3.571151990091008*^9, { 3.5712017864539623`*^9, 3.5712018128960094`*^9}, {3.5712024819499846`*^9, 3.5712024821527843`*^9}, {3.571202538780884*^9, 3.5712025389368844`*^9}, { 3.5712028115629635`*^9, 3.5712028346354036`*^9}}], Cell[BoxData[ RowBox[{"{", RowBox[{ "2.4969033111783276`", ",", "2.563079476006322`", ",", "2.569288589590436`", ",", "2.563021237668669`", ",", "2.5234179395658387`"}], "}"}]], "Output", CellChangeTimes->{ 3.5712270766531296`*^9, 3.571227461118205*^9, 3.5712275224731126`*^9, 3.571227686569801*^9, 3.5712277678459435`*^9, 3.571235008787385*^9, 3.571235369070018*^9, 3.571235666016539*^9, 3.5712357072786117`*^9, 3.5712362781616144`*^9, 3.5712363553973503`*^9, 3.5712364388886967`*^9, 3.571244985296937*^9, 3.571245057790264*^9, 3.5712451078819523`*^9, 3.5712991863110075`*^9, 3.571299318349639*^9, 3.5712993936041713`*^9, 3.5712994974691534`*^9, 3.571299553535652*^9, 3.571299617152564*^9, 3.57129985987339*^9, 3.571299903054266*^9, 3.571300080676178*^9, 3.571300147662696*^9, 3.5713001796271515`*^9, 3.5713071909217596`*^9, 3.5713073112135706`*^9, 3.5713074126137486`*^9, 3.571311858141553*^9, 3.571311930120079*^9, 3.57131198743458*^9, 3.5713120213958397`*^9, 3.5713122929299164`*^9, 3.5713123484504137`*^9, 3.5713124778682413`*^9, 3.5713129073057957`*^9, 3.571312946508664*^9, 3.5713129967563524`*^9, 3.5713152413974953`*^9, 3.5713153855729485`*^9, 3.5713156353761873`*^9, 3.5713157649188147`*^9, 3.571316164700717*^9, 3.5713165346085663`*^9, 3.5713167053820667`*^9, 3.5713168116962533`*^9, 3.5713168792131715`*^9, 3.5713169701769314`*^9, 3.5713171535864534`*^9, 3.5713172797438755`*^9, 3.571320900163968*^9, 3.5713209426584435`*^9, 3.5713209745760994`*^9, 3.5713210211577806`*^9, {3.5713211684376397`*^9, 3.571321196174488*^9}, 3.5713217032845793`*^9, 3.5728040879389243`*^9}], Cell[BoxData[ RowBox[{"2.5431421108019188`", "\[PlusMinus]", "0.031636158469768805`"}]], "Output", CellChangeTimes->{ 3.5712270766531296`*^9, 3.571227461118205*^9, 3.5712275224731126`*^9, 3.571227686569801*^9, 3.5712277678459435`*^9, 3.571235008787385*^9, 3.571235369070018*^9, 3.571235666016539*^9, 3.5712357072786117`*^9, 3.5712362781616144`*^9, 3.5712363553973503`*^9, 3.5712364388886967`*^9, 3.571244985296937*^9, 3.571245057790264*^9, 3.5712451078819523`*^9, 3.5712991863110075`*^9, 3.571299318349639*^9, 3.5712993936041713`*^9, 3.5712994974691534`*^9, 3.571299553535652*^9, 3.571299617152564*^9, 3.57129985987339*^9, 3.571299903054266*^9, 3.571300080676178*^9, 3.571300147662696*^9, 3.5713001796271515`*^9, 3.5713071909217596`*^9, 3.5713073112135706`*^9, 3.5713074126137486`*^9, 3.571311858141553*^9, 3.571311930120079*^9, 3.57131198743458*^9, 3.5713120213958397`*^9, 3.5713122929299164`*^9, 3.5713123484504137`*^9, 3.5713124778682413`*^9, 3.5713129073057957`*^9, 3.571312946508664*^9, 3.5713129967563524`*^9, 3.5713152413974953`*^9, 3.5713153855729485`*^9, 3.5713156353761873`*^9, 3.5713157649188147`*^9, 3.571316164700717*^9, 3.5713165346085663`*^9, 3.5713167053820667`*^9, 3.5713168116962533`*^9, 3.5713168792131715`*^9, 3.5713169701769314`*^9, 3.5713171535864534`*^9, 3.5713172797438755`*^9, 3.571320900163968*^9, 3.5713209426584435`*^9, 3.5713209745760994`*^9, 3.5713210211577806`*^9, {3.5713211684376397`*^9, 3.571321196174488*^9}, 3.5713217032845793`*^9, 3.5728040879389243`*^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.8913009136018033`", ",", "2.897744729615149`", ",", "2.8365357849535755`", ",", "2.8944306444976293`", ",", "2.8364840302110523`", ",", "2.89127882116865`", ",", "2.891496051548036`", ",", "2.7620366698777885`", ",", "2.847735773230699`", ",", "2.663475350554561`", ",", "2.847986419989531`", ",", "2.6635653925414697`", ",", "2.7620710231833114`", ",", "2.847700126249429`", ",", "2.8479645159754585`"}], "}"}]], "Output", CellChangeTimes->{ 3.5712270766531296`*^9, 3.571227461133805*^9, 3.5712275224887123`*^9, 3.571227686601001*^9, 3.5712277678615437`*^9, 3.5712350088029847`*^9, 3.5712353691012177`*^9, 3.571235666047739*^9, 3.571235707294212*^9, 3.5712362781772146`*^9, 3.57123635541295*^9, 3.571236438904297*^9, 3.5712449853125367`*^9, 3.5712450578214645`*^9, 3.5712451078975525`*^9, 3.571299186342207*^9, 3.571299318365239*^9, 3.571299393619771*^9, 3.5712994974847536`*^9, 3.5712995535512524`*^9, 3.571299617183764*^9, 3.5712998598889904`*^9, 3.571299903069866*^9, 3.571300080691778*^9, 3.5713001476782956`*^9, 3.5713001796427517`*^9, 3.57130719093736*^9, 3.571307311229171*^9, 3.571307412644949*^9, 3.571311858157153*^9, 3.5713119301356792`*^9, 3.5713119874501796`*^9, 3.5713120214114394`*^9, 3.5713122929455166`*^9, 3.571312348466014*^9, 3.5713124778838415`*^9, 3.571312907336995*^9, 3.5713129465242643`*^9, 3.5713129967719526`*^9, 3.571315241413095*^9, 3.5713153855885487`*^9, 3.571315635407387*^9, 3.5713157649344144`*^9, 3.5713161647163167`*^9, 3.5713165346241665`*^9, 3.571316705413266*^9, 3.571316811711853*^9, 3.5713168792287717`*^9, 3.571316970208132*^9, 3.5713171536020536`*^9, 3.571317279759475*^9, 3.5713209001795683`*^9, 3.571320942674043*^9, 3.571320974607299*^9, 3.571321021173381*^9, {3.5713211684532394`*^9, 3.5713211961900883`*^9}, 3.5713217033001795`*^9, 3.572804087954524*^9}], Cell[BoxData[ RowBox[{"2.825453749813209`", "\[PlusMinus]", "0.07826166491129996`"}]], "Output", CellChangeTimes->{ 3.5712270766531296`*^9, 3.571227461133805*^9, 3.5712275224887123`*^9, 3.571227686601001*^9, 3.5712277678615437`*^9, 3.5712350088029847`*^9, 3.5712353691012177`*^9, 3.571235666047739*^9, 3.571235707294212*^9, 3.5712362781772146`*^9, 3.57123635541295*^9, 3.571236438904297*^9, 3.5712449853125367`*^9, 3.5712450578214645`*^9, 3.5712451078975525`*^9, 3.571299186342207*^9, 3.571299318365239*^9, 3.571299393619771*^9, 3.5712994974847536`*^9, 3.5712995535512524`*^9, 3.571299617183764*^9, 3.5712998598889904`*^9, 3.571299903069866*^9, 3.571300080691778*^9, 3.5713001476782956`*^9, 3.5713001796427517`*^9, 3.57130719093736*^9, 3.571307311229171*^9, 3.571307412644949*^9, 3.571311858157153*^9, 3.5713119301356792`*^9, 3.5713119874501796`*^9, 3.5713120214114394`*^9, 3.5713122929455166`*^9, 3.571312348466014*^9, 3.5713124778838415`*^9, 3.571312907336995*^9, 3.5713129465242643`*^9, 3.5713129967719526`*^9, 3.571315241413095*^9, 3.5713153855885487`*^9, 3.571315635407387*^9, 3.5713157649344144`*^9, 3.5713161647163167`*^9, 3.5713165346241665`*^9, 3.571316705413266*^9, 3.571316811711853*^9, 3.5713168792287717`*^9, 3.571316970208132*^9, 3.5713171536020536`*^9, 3.571317279759475*^9, 3.5713209001795683`*^9, 3.571320942674043*^9, 3.571320974607299*^9, 3.571321021173381*^9, {3.5713211684532394`*^9, 3.5713211961900883`*^9}, 3.5713217033001795`*^9, 3.572804087954524*^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.059713033204844`", ",", "2.0598903549200966`", ",", "2.059839640489124`", ",", "2.059752146204022`", ",", "2.041088532893879`", ",", "2.059887260061742`", ",", "2.0597996583165434`", ",", "2.0597603015255403`", ",", "2.0408468247238463`", ",", "2.0597025058258973`", ",", "2.0597979822662262`", ",", "2.059767545619187`", ",", "2.040984980103778`", ",", "2.040733749438218`", ",", "2.041034289865974`", ",", "2.0598277699890306`", ",", "2.0596247627619664`", ",", "2.0599745373753002`", ",", "2.040917857231867`", ",", "2.059779740145197`", ",", "2.0598124012820667`"}], "}"}]], "Output", CellChangeTimes->{ 3.5712270766687293`*^9, 3.5712274611650047`*^9, 3.5712275225199127`*^9, 3.571227686616601*^9, 3.5712277678927436`*^9, 3.5712350088341846`*^9, 3.5712353691168175`*^9, 3.571235666063339*^9, 3.571235707325412*^9, 3.571236278208414*^9, 3.57123635544415*^9, 3.571236438919897*^9, 3.5712449853437366`*^9, 3.5712450578370647`*^9, 3.5712451079287524`*^9, 3.571299186357807*^9, 3.5712993183808393`*^9, 3.571299393635371*^9, 3.571299497500354*^9, 3.5712995535824523`*^9, 3.5712996171993637`*^9, 3.5712998599045906`*^9, 3.571299903085466*^9, 3.571300080722978*^9, 3.5713001477094955`*^9, 3.571300179658352*^9, 3.5713071909529595`*^9, 3.5713073112603707`*^9, 3.5713074126605487`*^9, 3.5713118581883526`*^9, 3.5713119301512794`*^9, 3.57131198746578*^9, 3.5713120214426394`*^9, 3.5713122929611163`*^9, 3.571312348481614*^9, 3.5713124778994412`*^9, 3.5713129073525953`*^9, 3.5713129465398645`*^9, 3.5713129967875524`*^9, 3.571315241444295*^9, 3.5713153856041484`*^9, 3.571315635422987*^9, 3.5713157649656143`*^9, 3.5713161647475166`*^9, 3.5713165346553664`*^9, 3.5713167054288664`*^9, 3.571316811727453*^9, 3.5713168792443714`*^9, 3.5713169702237315`*^9, 3.5713171536332536`*^9, 3.571317279775075*^9, 3.5713209001951685`*^9, 3.571320942705243*^9, 3.571320974622899*^9, 3.5713210212045813`*^9, {3.5713211684688396`*^9, 3.5713211962212887`*^9}, 3.571321703315779*^9, 3.5728040879701242`*^9}], Cell[BoxData[ RowBox[{"2.055894359505152`", "\[PlusMinus]", "0.007777002172673114`"}]], "Output", CellChangeTimes->{ 3.5712270766687293`*^9, 3.5712274611650047`*^9, 3.5712275225199127`*^9, 3.571227686616601*^9, 3.5712277678927436`*^9, 3.5712350088341846`*^9, 3.5712353691168175`*^9, 3.571235666063339*^9, 3.571235707325412*^9, 3.571236278208414*^9, 3.57123635544415*^9, 3.571236438919897*^9, 3.5712449853437366`*^9, 3.5712450578370647`*^9, 3.5712451079287524`*^9, 3.571299186357807*^9, 3.5712993183808393`*^9, 3.571299393635371*^9, 3.571299497500354*^9, 3.5712995535824523`*^9, 3.5712996171993637`*^9, 3.5712998599045906`*^9, 3.571299903085466*^9, 3.571300080722978*^9, 3.5713001477094955`*^9, 3.571300179658352*^9, 3.5713071909529595`*^9, 3.5713073112603707`*^9, 3.5713074126605487`*^9, 3.5713118581883526`*^9, 3.5713119301512794`*^9, 3.57131198746578*^9, 3.5713120214426394`*^9, 3.5713122929611163`*^9, 3.571312348481614*^9, 3.5713124778994412`*^9, 3.5713129073525953`*^9, 3.5713129465398645`*^9, 3.5713129967875524`*^9, 3.571315241444295*^9, 3.5713153856041484`*^9, 3.571315635422987*^9, 3.5713157649656143`*^9, 3.5713161647475166`*^9, 3.5713165346553664`*^9, 3.5713167054288664`*^9, 3.571316811727453*^9, 3.5713168792443714`*^9, 3.5713169702237315`*^9, 3.5713171536332536`*^9, 3.571317279775075*^9, 3.5713209001951685`*^9, 3.571320942705243*^9, 3.571320974622899*^9, 3.5713210212045813`*^9, {3.5713211684688396`*^9, 3.5713211962212887`*^9}, 3.571321703315779*^9, 3.5728040879701242`*^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.5712270766843295`*^9, 3.571227461180605*^9, 3.571227522535513*^9, 3.571227686647801*^9, 3.5712277679083433`*^9, 3.571235008865385*^9, 3.571235369148018*^9, 3.5712356660945396`*^9, 3.571235707356612*^9, 3.5712362782240143`*^9, 3.57123635545975*^9, 3.5712364389510965`*^9, 3.571244985374937*^9, 3.571245057868264*^9, 3.5712451079599524`*^9, 3.5712991863734074`*^9, 3.5712993184120393`*^9, 3.5712993936509714`*^9, 3.5712994975315537`*^9, 3.5712995535980525`*^9, 3.571299617214964*^9, 3.5712998599201903`*^9, 3.5712999031166663`*^9, 3.571300080738578*^9, 3.5713001477250957`*^9, 3.5713001796895523`*^9, 3.5713071909841595`*^9, 3.5713073112759705`*^9, 3.571307412676149*^9, 3.571311858203953*^9, 3.571311930166879*^9, 3.5713119874969797`*^9, 3.5713120214582396`*^9, 3.5713122929923162`*^9, 3.571312348512814*^9, 3.571312477930641*^9, 3.5713129073681955`*^9, 3.5713129465554647`*^9, 3.5713129968187523`*^9, 3.571315241459895*^9, 3.571315385619748*^9, 3.571315635438587*^9, 3.5713157649812145`*^9, 3.571316164763117*^9, 3.571316534670966*^9, 3.5713167054444666`*^9, 3.571316811758653*^9, 3.571316879275572*^9, 3.5713169702393312`*^9, 3.5713171536488533`*^9, 3.5713172798062754`*^9, 3.571320900226369*^9, 3.5713209427208433`*^9, 3.5713209746384993`*^9, 3.5713210212201815`*^9, {3.57132116850004*^9, 3.5713211962368884`*^9}, 3.571321703346979*^9, 3.5728040880013247`*^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.739865382403`"], "Output", CellChangeTimes->{ 3.5712270767311296`*^9, 3.5712274612430053`*^9, 3.571227522597913*^9, 3.571227686694601*^9, 3.571227767970744*^9, 3.571235008912185*^9, 3.571235369194818*^9, 3.5712356661413393`*^9, 3.571235707403412*^9, 3.571236278270815*^9, 3.5712363555065503`*^9, 3.571236438997897*^9, 3.571244985421737*^9, 3.571245057930664*^9, 3.5712451080067525`*^9, 3.571299186420207*^9, 3.571299318443239*^9, 3.571299393697771*^9, 3.5712994975627537`*^9, 3.5712995536292524`*^9, 3.5712996172461643`*^9, 3.5712998599669905`*^9, 3.5712999031478662`*^9, 3.5713000807697783`*^9, 3.571300147771896*^9, 3.571300179720752*^9, 3.5713071910309596`*^9, 3.571307311322771*^9, 3.571307412722949*^9, 3.5713118582507524`*^9, 3.5713119302136793`*^9, 3.57131198752818*^9, 3.5713120215050397`*^9, 3.5713122930235167`*^9, 3.571312348559614*^9, 3.571312477961841*^9, 3.5713129074149957`*^9, 3.5713129466022644`*^9, 3.5713129968499527`*^9, 3.5713152415066953`*^9, 3.5713153856509485`*^9, 3.571315635485387*^9, 3.571315765028015*^9, 3.5713161648099165`*^9, 3.571316534717767*^9, 3.5713167054912663`*^9, 3.571316811789853*^9, 3.5713168793067718`*^9, 3.571316970286132*^9, 3.571317153695654*^9, 3.5713172798530755`*^9, 3.5713209002575684`*^9, 3.571320942767643*^9, 3.5713209746852994`*^9, 3.571321021266981*^9, {3.5713211685312395`*^9, 3.5713211962836885`*^9}, 3.5713217033937793`*^9, 3.572804088032524*^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.5712270767311296`*^9, 3.571227461258605*^9, 3.571227522613513*^9, 3.5712276867102013`*^9, 3.571227767986344*^9, 3.571235008927785*^9, 3.5712353692104177`*^9, 3.5712356661569395`*^9, 3.571235707419012*^9, 3.571236278286415*^9, 3.5712363555377502`*^9, 3.5712364390134974`*^9, 3.571244985437337*^9, 3.5712450579462643`*^9, 3.571245108022352*^9, 3.571299186435807*^9, 3.5712993184588394`*^9, 3.5712993937133713`*^9, 3.571299497578354*^9, 3.5712995536448526`*^9, 3.571299617261764*^9, 3.5712998599825907`*^9, 3.5712999031790667`*^9, 3.571300080800978*^9, 3.571300147787496*^9, 3.571300179751952*^9, 3.5713071910465593`*^9, 3.571307311353971*^9, 3.5713074127541494`*^9, 3.5713118582663527`*^9, 3.5713119302292795`*^9, 3.5713119875437803`*^9, 3.5713120215206394`*^9, 3.5713122930391164`*^9, 3.571312348575214*^9, 3.5713124779774413`*^9, 3.5713129074305954`*^9, 3.5713129466178646`*^9, 3.571312996881153*^9, 3.571315241522295*^9, 3.5713153856665487`*^9, 3.571315635500987*^9, 3.571315765043615*^9, 3.5713161648255167`*^9, 3.5713165347333665`*^9, 3.5713167055068665`*^9, 3.5713168118054533`*^9, 3.571316879322372*^9, 3.5713169703017316`*^9, 3.571317153726854*^9, 3.5713172798842754`*^9, 3.5713209002731686`*^9, 3.571320942783243*^9, 3.571320974700899*^9, 3.5713210212825813`*^9, {3.57132116856244*^9, 3.5713211962992887`*^9}, 3.571321703409379*^9, 3.5728040880637245`*^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.57122707674673*^9, 3.571227461274205*^9, 3.5712275226291127`*^9, 3.571227686741401*^9, 3.571227768001944*^9, 3.5712350089589853`*^9, 3.571235369241618*^9, 3.57123566618814*^9, 3.571235707450212*^9, 3.5712362783176146`*^9, 3.5712363555533504`*^9, 3.571236439044697*^9, 3.5712449854685373`*^9, 3.5712450579618645`*^9, 3.5712451080535526`*^9, 3.5712991864514074`*^9, 3.571299318474439*^9, 3.5712993937289715`*^9, 3.571299497593954*^9, 3.5712995536604524`*^9, 3.571299617277364*^9, 3.5712998599981904`*^9, 3.5712999031946664`*^9, 3.5713000808165784`*^9, 3.571300147803096*^9, 3.571300179767552*^9, 3.5713071910621595`*^9, 3.5713073113695707`*^9, 3.571307412769749*^9, 3.571311858297553*^9, 3.5713119302448792`*^9, 3.57131198755938*^9, 3.5713120215362396`*^9, 3.5713122930703163`*^9, 3.571312348590814*^9, 3.5713124780086412`*^9, 3.5713129074461956`*^9, 3.571312946649064*^9, 3.571312996896753*^9, 3.571315241537895*^9, 3.5713153856821485`*^9, 3.5713156355165873`*^9, 3.5713157650592146`*^9, 3.571316164841117*^9, 3.5713165347489667`*^9, 3.571316705538067*^9, 3.571316811836653*^9, 3.571316879353572*^9, 3.5713169703329315`*^9, 3.571317153742454*^9, 3.5713172798998756`*^9, 3.571320900304369*^9, 3.5713209427988434`*^9, 3.5713209747164993`*^9, 3.5713210212981815`*^9, {3.57132116857804*^9, 3.571321196314889*^9}, 3.5713217034405794`*^9, 3.5728040880793247`*^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.79916843538082`"], "Output", CellChangeTimes->{ 3.5712270767623296`*^9, 3.571227461305405*^9, 3.5712275226603127`*^9, 3.571227686757001*^9, 3.571227768033144*^9, 3.5712350089745855`*^9, 3.571235369257218*^9, 3.5712356662037396`*^9, 3.5712357074658117`*^9, 3.5712362783332148`*^9, 3.5712363555689507`*^9, 3.571236439060297*^9, 3.5712449854841375`*^9, 3.571245057993065*^9, 3.5712451080691524`*^9, 3.5712991864670076`*^9, 3.571299318505639*^9, 3.5712993937445717`*^9, 3.571299497625154*^9, 3.5712995536916523`*^9, 3.571299617308564*^9, 3.57129986001379*^9, 3.571299903210266*^9, 3.571300080832178*^9, 3.571300147818696*^9, 3.571300179783152*^9, 3.57130719109336*^9, 3.571307311385171*^9, 3.571307412785349*^9, 3.571311858313153*^9, 3.571311930276079*^9, 3.57131198759058*^9, 3.57131202155184*^9, 3.5713122930859165`*^9, 3.571312348606414*^9, 3.5713124780242414`*^9, 3.571312907461796*^9, 3.5713129466646643`*^9, 3.5713129969123526`*^9, 3.571315241569095*^9, 3.571315385697748*^9, 3.5713156355321875`*^9, 3.571315765090415*^9, 3.571316164856717*^9, 3.571316534764567*^9, 3.571316705553667*^9, 3.5713168118522534`*^9, 3.571316879369172*^9, 3.5713169703485317`*^9, 3.571317153758054*^9, 3.571317279915476*^9, 3.5713209003199687`*^9, 3.5713209428300433`*^9, 3.5713209747476997`*^9, 3.571321021329381*^9, {3.5713211685936403`*^9, 3.571321196346089*^9}, 3.5713217034561796`*^9, 3.5728040880949244`*^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.940696947022175`"], "Output", CellChangeTimes->{ 3.5712270767623296`*^9, 3.571227461321005*^9, 3.571227522675913*^9, 3.5712276867882013`*^9, 3.571227768048744*^9, 3.571235009005785*^9, 3.571235369288418*^9, 3.5712356662349396`*^9, 3.571235707497012*^9, 3.571236278348815*^9, 3.57123635560015*^9, 3.571236439075897*^9, 3.571244985515337*^9, 3.5712450580086646`*^9, 3.5712451081003523`*^9, 3.571299186482608*^9, 3.5712993185212393`*^9, 3.571299393760172*^9, 3.5712994976407537`*^9, 3.5712995537072525`*^9, 3.5712996173241644`*^9, 3.5712998600293903`*^9, 3.5712999032258663`*^9, 3.5713000808477783`*^9, 3.571300147849896*^9, 3.571300179798752*^9, 3.57130719110896*^9, 3.571307311400771*^9, 3.5713074128165493`*^9, 3.571311858328753*^9, 3.5713119302916794`*^9, 3.57131198760618*^9, 3.5713120215674396`*^9, 3.5713122931015167`*^9, 3.571312348622014*^9, 3.5713124780398417`*^9, 3.5713129074929953`*^9, 3.5713129466802645`*^9, 3.571312996927953*^9, 3.571315241584695*^9, 3.571315385697748*^9, 3.571315635563387*^9, 3.5713157651060147`*^9, 3.5713161648723173`*^9, 3.5713165347801666`*^9, 3.571316705569267*^9, 3.571316811867853*^9, 3.5713168793847723`*^9, 3.571316970364132*^9, 3.571317153789254*^9, 3.5713172799466753`*^9, 3.571320900335569*^9, 3.571320942845643*^9, 3.5713209747633*^9, 3.571321021344981*^9, {3.57132116862484*^9, 3.5713211963616886`*^9}, 3.5713217034717793`*^9, 3.572804088110524*^9}] }, Open ]], Cell[BoxData[ RowBox[{"\[IndentingNewLine]", RowBox[{ RowBox[{ RowBox[{"Mij", "=", RowBox[{"Prepend", "[", RowBox[{"Qij", ",", "u"}], "]"}]}], ";"}], "\[IndentingNewLine]", RowBox[{ RowBox[{"Oij", "=", RowBox[{"Transpose", "[", "Mij", "]"}]}], ";"}], "\[IndentingNewLine]", RowBox[{ RowBox[{"Pij", "=", RowBox[{"Prepend", "[", RowBox[{"Oij", ",", RowBox[{"Prepend", "[", RowBox[{"u", ",", "\"\< \>\""}], "]"}]}], "]"}]}], ";"}]}]}]], "Input", CellChangeTimes->{{3.568045828002715*^9, 3.56804588761042*^9}, 3.5680459828797874`*^9, {3.568046033938677*^9, 3.5680460518787084`*^9}, { 3.568046989190755*^9, 3.5680470284404235`*^9}, {3.568047061028881*^9, 3.568047085567724*^9}, {3.5680471562982483`*^9, 3.568047169199471*^9}, { 3.568047223393966*^9, 3.568047364059413*^9}, {3.568047417286707*^9, 3.5680474225127163`*^9}, {3.5680474583459787`*^9, 3.568047487861231*^9}, { 3.5680475345521126`*^9, 3.5680475468605347`*^9}, {3.5680479168775845`*^9, 3.5680479311516094`*^9}, {3.568048066918648*^9, 3.568048067667449*^9}, { 3.5680483816336*^9, 3.5680483930216208`*^9}, {3.568048424159275*^9, 3.568048450211321*^9}, {3.5680486326224413`*^9, 3.5680486370996494`*^9}, { 3.5680487358166227`*^9, 3.5680487967191296`*^9}, 3.568048834377596*^9, 3.568048984418659*^9, {3.5680490255559316`*^9, 3.5680490790796256`*^9}, { 3.5680491274553103`*^9, 3.5680491280949116`*^9}, {3.5680491782333994`*^9, 3.568049231944294*^9}, {3.568049361533722*^9, 3.5680493691933355`*^9}, { 3.568049422171028*^9, 3.568049427490638*^9}, {3.568049476427923*^9, 3.5680495489368505`*^9}, {3.568049620634577*^9, 3.5680496274361887`*^9}, { 3.5680496655314555`*^9, 3.568049693876705*^9}, 3.568049746573598*^9, { 3.568049846460573*^9, 3.568049932759925*^9}, {3.568050009059659*^9, 3.5680500167348723`*^9}, {3.5680501572755194`*^9, 3.568050179911159*^9}, 3.5681087021497335`*^9}], Cell[CellGroupData[{ Cell[BoxData[{ RowBox[{ RowBox[{"Clear", "[", RowBox[{"v", ",", "v1", ",", "v2", ",", "c1", ",", "c2", ",", "c3"}], "]"}], ";", " ", RowBox[{"c1", "=", "20"}], ";", " ", RowBox[{"c2", "=", "21"}], ";", " ", RowBox[{"c3", "=", "51"}], ";", RowBox[{"(*", " ", RowBox[{ RowBox[{"c1", "=", "15"}], ";", " ", RowBox[{"c2", "=", "14"}], ";", " ", RowBox[{"c3", "=", "16"}], ";"}], "*)"}], "\[IndentingNewLine]", RowBox[{"a", "=", RowBox[{"Dij", "[", RowBox[{"[", RowBox[{"c1", ",", "c2"}], "]"}], "]"}]}]}], "\[IndentingNewLine]", RowBox[{"b", "=", RowBox[{"Dij", "[", RowBox[{"[", RowBox[{"c2", ",", "c3"}], "]"}], "]"}]}], "\[IndentingNewLine]", RowBox[{"d", "=", RowBox[{"Sqrt", "[", RowBox[{ RowBox[{ RowBox[{"(", RowBox[{ RowBox[{"t", "[", RowBox[{"[", RowBox[{"c1", ",", "1"}], "]"}], "]"}], "-", RowBox[{"t", "[", RowBox[{"[", RowBox[{"c3", ",", "1"}], "]"}], "]"}]}], ")"}], "^", "2"}], "+", RowBox[{ RowBox[{"(", RowBox[{ RowBox[{"t", "[", RowBox[{"[", RowBox[{"c1", ",", "2"}], "]"}], "]"}], "-", RowBox[{"t", "[", RowBox[{"[", RowBox[{"c3", ",", "2"}], "]"}], "]"}]}], ")"}], "^", "2"}], "+", RowBox[{ RowBox[{"(", RowBox[{ RowBox[{"t", "[", RowBox[{"[", RowBox[{"c1", ",", "3"}], "]"}], "]"}], "-", RowBox[{"t", "[", RowBox[{"[", RowBox[{"c3", ",", "3"}], "]"}], "]"}]}], ")"}], "^", "2"}]}], "]"}]}], "\[IndentingNewLine]", RowBox[{"alpha", "=", RowBox[{ RowBox[{"ArcCos", "[", RowBox[{ RowBox[{"(", RowBox[{ RowBox[{"a", "^", "2"}], "+", RowBox[{"b", "^", "2"}], "-", RowBox[{"d", "^", "2"}]}], ")"}], "/", RowBox[{"(", RowBox[{"2", "*", "a", "*", "b"}], ")"}]}], "]"}], "*", RowBox[{"(", RowBox[{"180", "/", "\[Pi]"}], ")"}]}]}], "\[IndentingNewLine]", RowBox[{ RowBox[{"F", "=", RowBox[{"a", "*", "b", "*", RowBox[{"Cos", "[", RowBox[{"alpha", "*", RowBox[{"\[Pi]", "/", "180"}]}], "]"}]}]}], "\[IndentingNewLine]", RowBox[{"(*", RowBox[{ RowBox[{"Sqrt", "[", RowBox[{ RowBox[{ RowBox[{"(", RowBox[{ RowBox[{"t", "[", RowBox[{"[", RowBox[{"21", ",", "1"}], "]"}], "]"}], "-", RowBox[{"t", "[", RowBox[{"[", RowBox[{"51", ",", "1"}], "]"}], "]"}]}], ")"}], "^", "2"}], "+", RowBox[{ RowBox[{"(", RowBox[{ RowBox[{"t", "[", RowBox[{"[", RowBox[{"21", ",", "2"}], "]"}], "]"}], "-", RowBox[{"t", "[", RowBox[{"[", RowBox[{"51", ",", "2"}], "]"}], "]"}]}], ")"}], "^", "2"}], "+", RowBox[{ RowBox[{"(", RowBox[{ RowBox[{"t", "[", RowBox[{"[", RowBox[{"21", ",", "3"}], "]"}], "]"}], "-", RowBox[{"t", "[", RowBox[{"[", RowBox[{"51", ",", "3"}], "]"}], "]"}]}], ")"}], "^", "2"}]}], "]"}], "\[IndentingNewLine]", RowBox[{"Sqrt", "[", RowBox[{ RowBox[{ RowBox[{"(", RowBox[{ RowBox[{"t", "[", RowBox[{"[", RowBox[{"20", ",", "1"}], "]"}], "]"}], "-", RowBox[{"t", "[", RowBox[{"[", RowBox[{"21", ",", "1"}], "]"}], "]"}]}], ")"}], "^", "2"}], "+", RowBox[{ RowBox[{"(", RowBox[{ RowBox[{"t", "[", RowBox[{"[", RowBox[{"20", ",", "2"}], "]"}], "]"}], "-", RowBox[{"t", "[", RowBox[{"[", RowBox[{"21", ",", "2"}], "]"}], "]"}]}], ")"}], "^", "2"}], "+", RowBox[{ RowBox[{"(", RowBox[{ RowBox[{"t", "[", RowBox[{"[", RowBox[{"20", ",", "3"}], "]"}], "]"}], "-", RowBox[{"t", "[", RowBox[{"[", RowBox[{"21", ",", "3"}], "]"}], "]"}]}], ")"}], "^", "2"}]}], "]"}]}], "*)"}]}], "\[IndentingNewLine]", RowBox[{"v1", "=", RowBox[{"t", "[", RowBox[{"[", "c1", "]"}], "]"}]}], "\[IndentingNewLine]", RowBox[{"v2", "=", RowBox[{"t", "[", RowBox[{"[", "c2", "]"}], "]"}]}], "\[IndentingNewLine]", RowBox[{"v3", "=", RowBox[{"t", "[", RowBox[{"[", "c3", "]"}], "]"}]}], "\[IndentingNewLine]", RowBox[{"v", "=", RowBox[{"v2", "-", "v1"}]}], "\[IndentingNewLine]", RowBox[{"w", "=", RowBox[{"v2", "-", "v3"}]}], "\[IndentingNewLine]", RowBox[{"w1", "=", RowBox[{"v", "-", "w"}]}], "\[IndentingNewLine]", RowBox[{"w2", "=", RowBox[{"w", ".", "v"}]}], "\[IndentingNewLine]", RowBox[{"w3", "=", RowBox[{"Outer", "[", RowBox[{"Times", ",", "w", ",", "v"}], "]"}]}]}], "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.5728040597028747`*^9, 3.572804072307697*^9}}], Cell[BoxData["2.7004375744153646`"], "Output", CellChangeTimes->{ 3.5712270767779293`*^9, 3.5712274613522053`*^9, 3.571227522691513*^9, 3.5712276868038015`*^9, 3.571227768064344*^9, 3.571235009021385*^9, 3.571235369304018*^9, 3.57123566625054*^9, 3.5712357075126123`*^9, 3.571236278380015*^9, 3.5712363556157503`*^9, 3.571236439107097*^9, 3.571244985530937*^9, 3.5712450580398645`*^9, 3.5712451081159525`*^9, 3.5712991864982076`*^9, 3.5712993185368395`*^9, 3.5712993937913713`*^9, 3.571299497656354*^9, 3.5712995537228527`*^9, 3.571299617339764*^9, 3.5712998600605907`*^9, 3.5712999032570667`*^9, 3.5713000808789787`*^9, 3.5713001478654957`*^9, 3.571300179814352*^9, 3.57130719112456*^9, 3.5713073114163713`*^9, 3.5713074128321495`*^9, 3.5713118583443527`*^9, 3.5713119303072796`*^9, 3.57131198762178*^9, 3.5713120215986395`*^9, 3.5713122931327167`*^9, 3.5713123486532145`*^9, 3.5713124780710416`*^9, 3.5713129075085955`*^9, 3.571312946711465*^9, 3.5713129969591527`*^9, 3.571315241600295*^9, 3.5713153857133484`*^9, 3.571315635578987*^9, 3.5713157651216145`*^9, 3.5713161649035172`*^9, 3.571316534811367*^9, 3.5713167056004667`*^9, 3.5713168118990536`*^9, 3.5713168794159718`*^9, 3.571316970395332*^9, 3.571317153804854*^9, 3.5713172799622755`*^9, 3.571320900366769*^9, 3.5713209428612432`*^9, 3.5713209747788997`*^9, 3.5713210213761816`*^9, {3.57132116864044*^9, 3.571321196377289*^9}, 3.5713217035029793`*^9, 3.5728040881261244`*^9}], Cell[BoxData["1.8273864433636156`"], "Output", CellChangeTimes->{ 3.5712270767779293`*^9, 3.5712274613522053`*^9, 3.571227522691513*^9, 3.5712276868038015`*^9, 3.571227768064344*^9, 3.571235009021385*^9, 3.571235369304018*^9, 3.57123566625054*^9, 3.5712357075126123`*^9, 3.571236278380015*^9, 3.5712363556157503`*^9, 3.571236439107097*^9, 3.571244985530937*^9, 3.5712450580398645`*^9, 3.5712451081159525`*^9, 3.5712991864982076`*^9, 3.5712993185368395`*^9, 3.5712993937913713`*^9, 3.571299497656354*^9, 3.5712995537228527`*^9, 3.571299617339764*^9, 3.5712998600605907`*^9, 3.5712999032570667`*^9, 3.5713000808789787`*^9, 3.5713001478654957`*^9, 3.571300179814352*^9, 3.57130719112456*^9, 3.5713073114163713`*^9, 3.5713074128321495`*^9, 3.5713118583443527`*^9, 3.5713119303072796`*^9, 3.57131198762178*^9, 3.5713120215986395`*^9, 3.5713122931327167`*^9, 3.5713123486532145`*^9, 3.5713124780710416`*^9, 3.5713129075085955`*^9, 3.571312946711465*^9, 3.5713129969591527`*^9, 3.571315241600295*^9, 3.5713153857133484`*^9, 3.571315635578987*^9, 3.5713157651216145`*^9, 3.5713161649035172`*^9, 3.571316534811367*^9, 3.5713167056004667`*^9, 3.5713168118990536`*^9, 3.5713168794159718`*^9, 3.571316970395332*^9, 3.571317153804854*^9, 3.5713172799622755`*^9, 3.571320900366769*^9, 3.5713209428612432`*^9, 3.5713209747788997`*^9, 3.5713210213761816`*^9, {3.57132116864044*^9, 3.571321196377289*^9}, 3.5713217035029793`*^9, 3.5728040881417246`*^9}], Cell[BoxData["3.672025879911945`"], "Output", CellChangeTimes->{ 3.5712270767779293`*^9, 3.5712274613522053`*^9, 3.571227522691513*^9, 3.5712276868038015`*^9, 3.571227768064344*^9, 3.571235009021385*^9, 3.571235369304018*^9, 3.57123566625054*^9, 3.5712357075126123`*^9, 3.571236278380015*^9, 3.5712363556157503`*^9, 3.571236439107097*^9, 3.571244985530937*^9, 3.5712450580398645`*^9, 3.5712451081159525`*^9, 3.5712991864982076`*^9, 3.5712993185368395`*^9, 3.5712993937913713`*^9, 3.571299497656354*^9, 3.5712995537228527`*^9, 3.571299617339764*^9, 3.5712998600605907`*^9, 3.5712999032570667`*^9, 3.5713000808789787`*^9, 3.5713001478654957`*^9, 3.571300179814352*^9, 3.57130719112456*^9, 3.5713073114163713`*^9, 3.5713074128321495`*^9, 3.5713118583443527`*^9, 3.5713119303072796`*^9, 3.57131198762178*^9, 3.5713120215986395`*^9, 3.5713122931327167`*^9, 3.5713123486532145`*^9, 3.5713124780710416`*^9, 3.5713129075085955`*^9, 3.571312946711465*^9, 3.5713129969591527`*^9, 3.571315241600295*^9, 3.5713153857133484`*^9, 3.571315635578987*^9, 3.5713157651216145`*^9, 3.5713161649035172`*^9, 3.571316534811367*^9, 3.5713167056004667`*^9, 3.5713168118990536`*^9, 3.5713168794159718`*^9, 3.571316970395332*^9, 3.571317153804854*^9, 3.5713172799622755`*^9, 3.571320900366769*^9, 3.5713209428612432`*^9, 3.5713209747788997`*^9, 3.5713210213761816`*^9, {3.57132116864044*^9, 3.571321196377289*^9}, 3.5713217035029793`*^9, 3.5728040881417246`*^9}], Cell[BoxData["106.7968131495334`"], "Output", CellChangeTimes->{ 3.5712270767779293`*^9, 3.5712274613522053`*^9, 3.571227522691513*^9, 3.5712276868038015`*^9, 3.571227768064344*^9, 3.571235009021385*^9, 3.571235369304018*^9, 3.57123566625054*^9, 3.5712357075126123`*^9, 3.571236278380015*^9, 3.5712363556157503`*^9, 3.571236439107097*^9, 3.571244985530937*^9, 3.5712450580398645`*^9, 3.5712451081159525`*^9, 3.5712991864982076`*^9, 3.5712993185368395`*^9, 3.5712993937913713`*^9, 3.571299497656354*^9, 3.5712995537228527`*^9, 3.571299617339764*^9, 3.5712998600605907`*^9, 3.5712999032570667`*^9, 3.5713000808789787`*^9, 3.5713001478654957`*^9, 3.571300179814352*^9, 3.57130719112456*^9, 3.5713073114163713`*^9, 3.5713074128321495`*^9, 3.5713118583443527`*^9, 3.5713119303072796`*^9, 3.57131198762178*^9, 3.5713120215986395`*^9, 3.5713122931327167`*^9, 3.5713123486532145`*^9, 3.5713124780710416`*^9, 3.5713129075085955`*^9, 3.571312946711465*^9, 3.5713129969591527`*^9, 3.571315241600295*^9, 3.5713153857133484`*^9, 3.571315635578987*^9, 3.5713157651216145`*^9, 3.5713161649035172`*^9, 3.571316534811367*^9, 3.5713167056004667`*^9, 3.5713168118990536`*^9, 3.5713168794159718`*^9, 3.571316970395332*^9, 3.571317153804854*^9, 3.5713172799622755`*^9, 3.571320900366769*^9, 3.5713209428612432`*^9, 3.5713209747788997`*^9, 3.5713210213761816`*^9, {3.57132116864044*^9, 3.571321196377289*^9}, 3.5713217035029793`*^9, 3.5728040881417246`*^9}], Cell[BoxData[ RowBox[{"-", "1.4260348780198184`"}]], "Output", CellChangeTimes->{ 3.5712270767779293`*^9, 3.5712274613522053`*^9, 3.571227522691513*^9, 3.5712276868038015`*^9, 3.571227768064344*^9, 3.571235009021385*^9, 3.571235369304018*^9, 3.57123566625054*^9, 3.5712357075126123`*^9, 3.571236278380015*^9, 3.5712363556157503`*^9, 3.571236439107097*^9, 3.571244985530937*^9, 3.5712450580398645`*^9, 3.5712451081159525`*^9, 3.5712991864982076`*^9, 3.5712993185368395`*^9, 3.5712993937913713`*^9, 3.571299497656354*^9, 3.5712995537228527`*^9, 3.571299617339764*^9, 3.5712998600605907`*^9, 3.5712999032570667`*^9, 3.5713000808789787`*^9, 3.5713001478654957`*^9, 3.571300179814352*^9, 3.57130719112456*^9, 3.5713073114163713`*^9, 3.5713074128321495`*^9, 3.5713118583443527`*^9, 3.5713119303072796`*^9, 3.57131198762178*^9, 3.5713120215986395`*^9, 3.5713122931327167`*^9, 3.5713123486532145`*^9, 3.5713124780710416`*^9, 3.5713129075085955`*^9, 3.571312946711465*^9, 3.5713129969591527`*^9, 3.571315241600295*^9, 3.5713153857133484`*^9, 3.571315635578987*^9, 3.5713157651216145`*^9, 3.5713161649035172`*^9, 3.571316534811367*^9, 3.5713167056004667`*^9, 3.5713168118990536`*^9, 3.5713168794159718`*^9, 3.571316970395332*^9, 3.571317153804854*^9, 3.5713172799622755`*^9, 3.571320900366769*^9, 3.5713209428612432`*^9, 3.5713209747788997`*^9, 3.5713210213761816`*^9, {3.57132116864044*^9, 3.571321196377289*^9}, 3.5713217035029793`*^9, 3.5728040881417246`*^9}], Cell[BoxData[ RowBox[{"{", RowBox[{ RowBox[{"-", "13.7116628834`"}], ",", RowBox[{"-", "1.5733480730799998`"}], ",", RowBox[{"-", "5.6533043016`"}]}], "}"}]], "Output", CellChangeTimes->{ 3.5712270767779293`*^9, 3.5712274613522053`*^9, 3.571227522691513*^9, 3.5712276868038015`*^9, 3.571227768064344*^9, 3.571235009021385*^9, 3.571235369304018*^9, 3.57123566625054*^9, 3.5712357075126123`*^9, 3.571236278380015*^9, 3.5712363556157503`*^9, 3.571236439107097*^9, 3.571244985530937*^9, 3.5712450580398645`*^9, 3.5712451081159525`*^9, 3.5712991864982076`*^9, 3.5712993185368395`*^9, 3.5712993937913713`*^9, 3.571299497656354*^9, 3.5712995537228527`*^9, 3.571299617339764*^9, 3.5712998600605907`*^9, 3.5712999032570667`*^9, 3.5713000808789787`*^9, 3.5713001478654957`*^9, 3.571300179814352*^9, 3.57130719112456*^9, 3.5713073114163713`*^9, 3.5713074128321495`*^9, 3.5713118583443527`*^9, 3.5713119303072796`*^9, 3.57131198762178*^9, 3.5713120215986395`*^9, 3.5713122931327167`*^9, 3.5713123486532145`*^9, 3.5713124780710416`*^9, 3.5713129075085955`*^9, 3.571312946711465*^9, 3.5713129969591527`*^9, 3.571315241600295*^9, 3.5713153857133484`*^9, 3.571315635578987*^9, 3.5713157651216145`*^9, 3.5713161649035172`*^9, 3.571316534811367*^9, 3.5713167056004667`*^9, 3.5713168118990536`*^9, 3.5713168794159718`*^9, 3.571316970395332*^9, 3.571317153804854*^9, 3.5713172799622755`*^9, 3.571320900366769*^9, 3.5713209428612432`*^9, 3.5713209747788997`*^9, 3.5713210213761816`*^9, {3.57132116864044*^9, 3.571321196377289*^9}, 3.5713217035029793`*^9, 3.5728040881417246`*^9}], Cell[BoxData[ RowBox[{"{", RowBox[{ RowBox[{"-", "14.6026686924`"}], ",", RowBox[{"-", "0.31240950232`"}], ",", RowBox[{"-", "7.868819063999999`"}]}], "}"}]], "Output", CellChangeTimes->{ 3.5712270767779293`*^9, 3.5712274613522053`*^9, 3.571227522691513*^9, 3.5712276868038015`*^9, 3.571227768064344*^9, 3.571235009021385*^9, 3.571235369304018*^9, 3.57123566625054*^9, 3.5712357075126123`*^9, 3.571236278380015*^9, 3.5712363556157503`*^9, 3.571236439107097*^9, 3.571244985530937*^9, 3.5712450580398645`*^9, 3.5712451081159525`*^9, 3.5712991864982076`*^9, 3.5712993185368395`*^9, 3.5712993937913713`*^9, 3.571299497656354*^9, 3.5712995537228527`*^9, 3.571299617339764*^9, 3.5712998600605907`*^9, 3.5712999032570667`*^9, 3.5713000808789787`*^9, 3.5713001478654957`*^9, 3.571300179814352*^9, 3.57130719112456*^9, 3.5713073114163713`*^9, 3.5713074128321495`*^9, 3.5713118583443527`*^9, 3.5713119303072796`*^9, 3.57131198762178*^9, 3.5713120215986395`*^9, 3.5713122931327167`*^9, 3.5713123486532145`*^9, 3.5713124780710416`*^9, 3.5713129075085955`*^9, 3.571312946711465*^9, 3.5713129969591527`*^9, 3.571315241600295*^9, 3.5713153857133484`*^9, 3.571315635578987*^9, 3.5713157651216145`*^9, 3.5713161649035172`*^9, 3.571316534811367*^9, 3.5713167056004667`*^9, 3.5713168118990536`*^9, 3.5713168794159718`*^9, 3.571316970395332*^9, 3.571317153804854*^9, 3.5713172799622755`*^9, 3.571320900366769*^9, 3.5713209428612432`*^9, 3.5713209747788997`*^9, 3.5713210213761816`*^9, {3.57132116864044*^9, 3.571321196377289*^9}, 3.5713217035029793`*^9, 3.5728040881417246`*^9}], Cell[BoxData[ RowBox[{"{", RowBox[{ RowBox[{"-", "15.9583581248`"}], ",", RowBox[{"-", "1.33242690534`"}], ",", RowBox[{"-", "8.547797615799999`"}]}], "}"}]], "Output", CellChangeTimes->{ 3.5712270767779293`*^9, 3.5712274613522053`*^9, 3.571227522691513*^9, 3.5712276868038015`*^9, 3.571227768064344*^9, 3.571235009021385*^9, 3.571235369304018*^9, 3.57123566625054*^9, 3.5712357075126123`*^9, 3.571236278380015*^9, 3.5712363556157503`*^9, 3.571236439107097*^9, 3.571244985530937*^9, 3.5712450580398645`*^9, 3.5712451081159525`*^9, 3.5712991864982076`*^9, 3.5712993185368395`*^9, 3.5712993937913713`*^9, 3.571299497656354*^9, 3.5712995537228527`*^9, 3.571299617339764*^9, 3.5712998600605907`*^9, 3.5712999032570667`*^9, 3.5713000808789787`*^9, 3.5713001478654957`*^9, 3.571300179814352*^9, 3.57130719112456*^9, 3.5713073114163713`*^9, 3.5713074128321495`*^9, 3.5713118583443527`*^9, 3.5713119303072796`*^9, 3.57131198762178*^9, 3.5713120215986395`*^9, 3.5713122931327167`*^9, 3.5713123486532145`*^9, 3.5713124780710416`*^9, 3.5713129075085955`*^9, 3.571312946711465*^9, 3.5713129969591527`*^9, 3.571315241600295*^9, 3.5713153857133484`*^9, 3.571315635578987*^9, 3.5713157651216145`*^9, 3.5713161649035172`*^9, 3.571316534811367*^9, 3.5713167056004667`*^9, 3.5713168118990536`*^9, 3.5713168794159718`*^9, 3.571316970395332*^9, 3.571317153804854*^9, 3.5713172799622755`*^9, 3.571320900366769*^9, 3.5713209428612432`*^9, 3.5713209747788997`*^9, 3.5713210213761816`*^9, {3.57132116864044*^9, 3.571321196377289*^9}, 3.5713217035029793`*^9, 3.5728040881417246`*^9}], Cell[BoxData[ RowBox[{"{", RowBox[{ RowBox[{"-", "0.8910058089999993`"}], ",", "1.2609385707599998`", ",", RowBox[{"-", "2.215514762399999`"}]}], "}"}]], "Output", CellChangeTimes->{ 3.5712270767779293`*^9, 3.5712274613522053`*^9, 3.571227522691513*^9, 3.5712276868038015`*^9, 3.571227768064344*^9, 3.571235009021385*^9, 3.571235369304018*^9, 3.57123566625054*^9, 3.5712357075126123`*^9, 3.571236278380015*^9, 3.5712363556157503`*^9, 3.571236439107097*^9, 3.571244985530937*^9, 3.5712450580398645`*^9, 3.5712451081159525`*^9, 3.5712991864982076`*^9, 3.5712993185368395`*^9, 3.5712993937913713`*^9, 3.571299497656354*^9, 3.5712995537228527`*^9, 3.571299617339764*^9, 3.5712998600605907`*^9, 3.5712999032570667`*^9, 3.5713000808789787`*^9, 3.5713001478654957`*^9, 3.571300179814352*^9, 3.57130719112456*^9, 3.5713073114163713`*^9, 3.5713074128321495`*^9, 3.5713118583443527`*^9, 3.5713119303072796`*^9, 3.57131198762178*^9, 3.5713120215986395`*^9, 3.5713122931327167`*^9, 3.5713123486532145`*^9, 3.5713124780710416`*^9, 3.5713129075085955`*^9, 3.571312946711465*^9, 3.5713129969591527`*^9, 3.571315241600295*^9, 3.5713153857133484`*^9, 3.571315635578987*^9, 3.5713157651216145`*^9, 3.5713161649035172`*^9, 3.571316534811367*^9, 3.5713167056004667`*^9, 3.5713168118990536`*^9, 3.5713168794159718`*^9, 3.571316970395332*^9, 3.571317153804854*^9, 3.5713172799622755`*^9, 3.571320900366769*^9, 3.5713209428612432`*^9, 3.5713209747788997`*^9, 3.5713210213761816`*^9, {3.57132116864044*^9, 3.571321196377289*^9}, 3.5713217035029793`*^9, 3.5728040881417246`*^9}], Cell[BoxData[ RowBox[{"{", RowBox[{ "1.3556894324000002`", ",", "1.02001740302`", ",", "0.6789785517999993`"}], "}"}]], "Output", CellChangeTimes->{ 3.5712270767779293`*^9, 3.5712274613522053`*^9, 3.571227522691513*^9, 3.5712276868038015`*^9, 3.571227768064344*^9, 3.571235009021385*^9, 3.571235369304018*^9, 3.57123566625054*^9, 3.5712357075126123`*^9, 3.571236278380015*^9, 3.5712363556157503`*^9, 3.571236439107097*^9, 3.571244985530937*^9, 3.5712450580398645`*^9, 3.5712451081159525`*^9, 3.5712991864982076`*^9, 3.5712993185368395`*^9, 3.5712993937913713`*^9, 3.571299497656354*^9, 3.5712995537228527`*^9, 3.571299617339764*^9, 3.5712998600605907`*^9, 3.5712999032570667`*^9, 3.5713000808789787`*^9, 3.5713001478654957`*^9, 3.571300179814352*^9, 3.57130719112456*^9, 3.5713073114163713`*^9, 3.5713074128321495`*^9, 3.5713118583443527`*^9, 3.5713119303072796`*^9, 3.57131198762178*^9, 3.5713120215986395`*^9, 3.5713122931327167`*^9, 3.5713123486532145`*^9, 3.5713124780710416`*^9, 3.5713129075085955`*^9, 3.571312946711465*^9, 3.5713129969591527`*^9, 3.571315241600295*^9, 3.5713153857133484`*^9, 3.571315635578987*^9, 3.5713157651216145`*^9, 3.5713161649035172`*^9, 3.571316534811367*^9, 3.5713167056004667`*^9, 3.5713168118990536`*^9, 3.5713168794159718`*^9, 3.571316970395332*^9, 3.571317153804854*^9, 3.5713172799622755`*^9, 3.571320900366769*^9, 3.5713209428612432`*^9, 3.5713209747788997`*^9, 3.5713210213761816`*^9, {3.57132116864044*^9, 3.571321196377289*^9}, 3.5713217035029793`*^9, 3.5728040881417246`*^9}], Cell[BoxData[ RowBox[{"{", RowBox[{ RowBox[{"-", "2.2466952413999994`"}], ",", "0.24092116773999983`", ",", RowBox[{"-", "2.8944933141999982`"}]}], "}"}]], "Output", CellChangeTimes->{ 3.5712270767779293`*^9, 3.5712274613522053`*^9, 3.571227522691513*^9, 3.5712276868038015`*^9, 3.571227768064344*^9, 3.571235009021385*^9, 3.571235369304018*^9, 3.57123566625054*^9, 3.5712357075126123`*^9, 3.571236278380015*^9, 3.5712363556157503`*^9, 3.571236439107097*^9, 3.571244985530937*^9, 3.5712450580398645`*^9, 3.5712451081159525`*^9, 3.5712991864982076`*^9, 3.5712993185368395`*^9, 3.5712993937913713`*^9, 3.571299497656354*^9, 3.5712995537228527`*^9, 3.571299617339764*^9, 3.5712998600605907`*^9, 3.5712999032570667`*^9, 3.5713000808789787`*^9, 3.5713001478654957`*^9, 3.571300179814352*^9, 3.57130719112456*^9, 3.5713073114163713`*^9, 3.5713074128321495`*^9, 3.5713118583443527`*^9, 3.5713119303072796`*^9, 3.57131198762178*^9, 3.5713120215986395`*^9, 3.5713122931327167`*^9, 3.5713123486532145`*^9, 3.5713124780710416`*^9, 3.5713129075085955`*^9, 3.571312946711465*^9, 3.5713129969591527`*^9, 3.571315241600295*^9, 3.5713153857133484`*^9, 3.571315635578987*^9, 3.5713157651216145`*^9, 3.5713161649035172`*^9, 3.571316534811367*^9, 3.5713167056004667`*^9, 3.5713168118990536`*^9, 3.5713168794159718`*^9, 3.571316970395332*^9, 3.571317153804854*^9, 3.5713172799622755`*^9, 3.571320900366769*^9, 3.5713209428612432`*^9, 3.5713209747788997`*^9, 3.5713210213761816`*^9, {3.57132116864044*^9, 3.571321196377289*^9}, 3.5713217035029793`*^9, 3.5728040881573243`*^9}], Cell[BoxData[ RowBox[{"-", "1.426034878019817`"}]], "Output", CellChangeTimes->{ 3.5712270767779293`*^9, 3.5712274613522053`*^9, 3.571227522691513*^9, 3.5712276868038015`*^9, 3.571227768064344*^9, 3.571235009021385*^9, 3.571235369304018*^9, 3.57123566625054*^9, 3.5712357075126123`*^9, 3.571236278380015*^9, 3.5712363556157503`*^9, 3.571236439107097*^9, 3.571244985530937*^9, 3.5712450580398645`*^9, 3.5712451081159525`*^9, 3.5712991864982076`*^9, 3.5712993185368395`*^9, 3.5712993937913713`*^9, 3.571299497656354*^9, 3.5712995537228527`*^9, 3.571299617339764*^9, 3.5712998600605907`*^9, 3.5712999032570667`*^9, 3.5713000808789787`*^9, 3.5713001478654957`*^9, 3.571300179814352*^9, 3.57130719112456*^9, 3.5713073114163713`*^9, 3.5713074128321495`*^9, 3.5713118583443527`*^9, 3.5713119303072796`*^9, 3.57131198762178*^9, 3.5713120215986395`*^9, 3.5713122931327167`*^9, 3.5713123486532145`*^9, 3.5713124780710416`*^9, 3.5713129075085955`*^9, 3.571312946711465*^9, 3.5713129969591527`*^9, 3.571315241600295*^9, 3.5713153857133484`*^9, 3.571315635578987*^9, 3.5713157651216145`*^9, 3.5713161649035172`*^9, 3.571316534811367*^9, 3.5713167056004667`*^9, 3.5713168118990536`*^9, 3.5713168794159718`*^9, 3.571316970395332*^9, 3.571317153804854*^9, 3.5713172799622755`*^9, 3.571320900366769*^9, 3.5713209428612432`*^9, 3.5713209747788997`*^9, 3.5713210213761816`*^9, {3.57132116864044*^9, 3.571321196377289*^9}, 3.5713217035029793`*^9, 3.5728040881573243`*^9}], Cell[BoxData[ RowBox[{"{", RowBox[{ RowBox[{"{", RowBox[{ RowBox[{"-", "1.2079271594683119`"}], ",", "1.7094410952848915`", ",", RowBox[{"-", "3.003549950711876`"}]}], "}"}], ",", RowBox[{"{", RowBox[{ RowBox[{"-", "0.9088414313719134`"}], ",", "1.2861792863143655`", ",", RowBox[{"-", "2.2598636142957194`"}]}], "}"}], ",", RowBox[{"{", RowBox[{ RowBox[{"-", "0.6049738338402063`"}], ",", "0.8561502446833856`", ",", RowBox[{"-", "1.5042870048658707`"}]}], "}"}]}], "}"}]], "Output", CellChangeTimes->{ 3.5712270767779293`*^9, 3.5712274613522053`*^9, 3.571227522691513*^9, 3.5712276868038015`*^9, 3.571227768064344*^9, 3.571235009021385*^9, 3.571235369304018*^9, 3.57123566625054*^9, 3.5712357075126123`*^9, 3.571236278380015*^9, 3.5712363556157503`*^9, 3.571236439107097*^9, 3.571244985530937*^9, 3.5712450580398645`*^9, 3.5712451081159525`*^9, 3.5712991864982076`*^9, 3.5712993185368395`*^9, 3.5712993937913713`*^9, 3.571299497656354*^9, 3.5712995537228527`*^9, 3.571299617339764*^9, 3.5712998600605907`*^9, 3.5712999032570667`*^9, 3.5713000808789787`*^9, 3.5713001478654957`*^9, 3.571300179814352*^9, 3.57130719112456*^9, 3.5713073114163713`*^9, 3.5713074128321495`*^9, 3.5713118583443527`*^9, 3.5713119303072796`*^9, 3.57131198762178*^9, 3.5713120215986395`*^9, 3.5713122931327167`*^9, 3.5713123486532145`*^9, 3.5713124780710416`*^9, 3.5713129075085955`*^9, 3.571312946711465*^9, 3.5713129969591527`*^9, 3.571315241600295*^9, 3.5713153857133484`*^9, 3.571315635578987*^9, 3.5713157651216145`*^9, 3.5713161649035172`*^9, 3.571316534811367*^9, 3.5713167056004667`*^9, 3.5713168118990536`*^9, 3.5713168794159718`*^9, 3.571316970395332*^9, 3.571317153804854*^9, 3.5713172799622755`*^9, 3.571320900366769*^9, 3.5713209428612432`*^9, 3.5713209747788997`*^9, 3.5713210213761816`*^9, {3.57132116864044*^9, 3.571321196377289*^9}, 3.5713217035029793`*^9, 3.5728040881573243`*^9}] }, Open ]], Cell[CellGroupData[{ Cell[BoxData[ SqrtBox[ RowBox[{ SuperscriptBox[ RowBox[{"w1", "[", RowBox[{"[", "1", "]"}], "]"}], "2"], " ", "+", " ", RowBox[{ RowBox[{"w1", "[", RowBox[{"[", "2", "]"}], "]"}], "^", "2"}], " ", "+", " ", RowBox[{ RowBox[{"w1", "[", RowBox[{"[", "3", "]"}], "]"}], "^", "2"}]}]]], "Input", CellChangeTimes->{{3.57122682638189*^9, 3.5712268889379997`*^9}, { 3.5712269197480536`*^9, 3.571226954208514*^9}}], Cell[BoxData["3.672025879911945`"], "Output", CellChangeTimes->{ 3.57122707682473*^9, 3.571227461414605*^9, 3.571227522769513*^9, 3.5712276868662014`*^9, 3.571227768142344*^9, 3.5712350090993853`*^9, 3.571235369382018*^9, 3.57123566632854*^9, 3.5712357075906124`*^9, 3.571236278458015*^9, 3.5712363557093506`*^9, 3.571236439200697*^9, 3.5712449856245375`*^9, 3.5712450581178646`*^9, 3.571245108209553*^9, 3.5712991865450077`*^9, 3.57129931856804*^9, 3.5712993938225718`*^9, 3.571299497687554*^9, 3.571299553754052*^9, 3.571299617370964*^9, 3.5712998600917907`*^9, 3.571299903288266*^9, 3.571300080910178*^9, 3.571300147896696*^9, 3.571300179861152*^9, 3.5713071912649603`*^9, 3.571307311509971*^9, 3.5713074129257493`*^9, 3.5713118583911533`*^9, 3.5713119303540792`*^9, 3.57131198766858*^9, 3.57131202164544*^9, 3.5713122931639166`*^9, 3.571312348700014*^9, 3.5713124781178417`*^9, 3.571312907555396*^9, 3.5713129467582645`*^9, 3.571312997005953*^9, 3.571315241662696*^9, 3.5713153857601485`*^9, 3.5713156356257877`*^9, 3.5713157651840153`*^9, 3.5713161649503174`*^9, 3.5713165348581667`*^9, 3.571316705647267*^9, 3.5713168119458537`*^9, 3.571316879462772*^9, 3.571316970457732*^9, 3.571317153851654*^9, 3.5713172800090756`*^9, 3.5713209004135685`*^9, 3.5713209429236436`*^9, 3.5713209748412995`*^9, 3.5713210214229813`*^9, {3.57132116870284*^9, 3.5713211964396887`*^9}, 3.5713217035965796`*^9, 3.5728040881729245`*^9}] }, Open ]], Cell[CellGroupData[{ Cell[BoxData[{ RowBox[{ RowBox[{"Plota", " ", "=", " ", RowBox[{"Graphics3D", "[", RowBox[{"{", RowBox[{"(*", RowBox[{ RowBox[{"Tube", "[", RowBox[{ RowBox[{"{", RowBox[{"v1", ",", RowBox[{"v1", "+", "v2"}]}], "}"}], ",", "0.1"}], "]"}], ",", RowBox[{"Tube", "[", RowBox[{ RowBox[{"{", RowBox[{"v2", ",", RowBox[{"v2", "+", "v3"}]}], "}"}], ",", "0.1"}], "]"}], ",", RowBox[{"Tube", "[", RowBox[{ RowBox[{"{", RowBox[{ RowBox[{"v1", "+", "v3"}], ",", "v3"}], "}"}], ",", "0.1"}], "]"}], ","}], "*)"}], RowBox[{"(*", RowBox[{ RowBox[{"Tube", "[", RowBox[{ RowBox[{"{", RowBox[{"v", ",", "w"}], "}"}], ",", "0.02"}], "]"}], ",", RowBox[{"Tube", "[", RowBox[{ RowBox[{"{", RowBox[{"w", ",", RowBox[{"v", "-", "w"}]}], "}"}], ",", "0.05"}], "]"}], ",", RowBox[{"Tube", "[", RowBox[{ RowBox[{"{", RowBox[{ RowBox[{"v", "-", "w"}], ",", "v"}], "}"}], ",", "0.02"}], "]"}], ","}], "*)"}], RowBox[{"(*", RowBox[{ RowBox[{"Tube", "[", RowBox[{ RowBox[{"{", RowBox[{"v", ",", "w"}], "}"}], ",", "0.02"}], "]"}], ","}], "*)"}], RowBox[{"(*", RowBox[{ RowBox[{"Tube", "[", RowBox[{ RowBox[{"{", RowBox[{ RowBox[{"w3", "[", RowBox[{"[", "2", "]"}], "]"}], ",", RowBox[{"w3", "[", RowBox[{"[", "1", "]"}], "]"}]}], "}"}], ",", "0.02"}], "]"}], ",", RowBox[{"Tube", "[", RowBox[{ RowBox[{"{", RowBox[{ RowBox[{"w3", "[", RowBox[{"[", "2", "]"}], "]"}], ",", RowBox[{"w3", "[", RowBox[{"[", "3", "]"}], "]"}]}], "}"}], ",", "0.02"}], "]"}], ","}], "*)"}], RowBox[{"(*", RowBox[{ RowBox[{"Tube", "[", RowBox[{ RowBox[{"{", RowBox[{ RowBox[{"w3", "[", RowBox[{"[", "1", "]"}], "]"}], ",", RowBox[{"w3", "[", RowBox[{"[", "3", "]"}], "]"}]}], "}"}], ",", "0.05"}], "]"}], ","}], "*)"}], RowBox[{"(*", RowBox[{ RowBox[{"Tube", "[", RowBox[{ RowBox[{"{", RowBox[{ RowBox[{"v", "-", "w"}], ",", "v"}], "}"}], ",", "0.02"}], "]"}], ","}], "*)"}], RowBox[{ RowBox[{"Sphere", "[", RowBox[{"v1", ",", RowBox[{"u2", "[", RowBox[{"[", "c1", "]"}], "]"}]}], "]"}], ",", RowBox[{"Sphere", "[", RowBox[{"v3", ",", RowBox[{"u2", "[", RowBox[{"[", "c3", "]"}], "]"}]}], "]"}], ",", RowBox[{"Sphere", "[", RowBox[{"v2", ",", RowBox[{"u2", "[", RowBox[{"[", "c2", "]"}], "]"}]}], "]"}], ",", RowBox[{"Tube", "[", RowBox[{ RowBox[{"{", RowBox[{"v1", ",", "v2"}], "}"}], ",", "0.1"}], "]"}], ",", RowBox[{"Tube", "[", RowBox[{ RowBox[{"{", RowBox[{"v1", ",", "v3"}], "}"}], ",", "0.1"}], "]"}], ",", RowBox[{"Tube", "[", RowBox[{ RowBox[{"{", RowBox[{"v3", ",", "v2"}], "}"}], ",", "0.1"}], "]"}]}], "}"}], "]"}]}], ";"}], "\[IndentingNewLine]", RowBox[{ RowBox[{"Plotb", "=", RowBox[{"Table", "[", RowBox[{ RowBox[{"Graphics3D", "[", RowBox[{"Text", "[", RowBox[{"i", ",", RowBox[{"{", RowBox[{ RowBox[{ RowBox[{"t", "[", RowBox[{"[", RowBox[{"i", ",", "1"}], "]"}], "]"}], "-", "0.3"}], ",", RowBox[{"t", "[", RowBox[{"[", RowBox[{"i", ",", "2"}], "]"}], "]"}], ",", RowBox[{"t", "[", RowBox[{"[", RowBox[{"i", ",", "3"}], "]"}], "]"}]}], "}"}], " ", ",", RowBox[{"{", RowBox[{"1", ",", "0"}], "}"}]}], "]"}], "]"}], ",", RowBox[{"{", RowBox[{"i", ",", "c1", ",", RowBox[{"c1", "+", "2"}]}], "}"}]}], "]"}]}], ";"}], "\[IndentingNewLine]", RowBox[{ RowBox[{"Show", "[", RowBox[{"Plota", ",", "Plotb", ",", RowBox[{"{", RowBox[{ RowBox[{"Axes", "\[Rule]", "Automatic"}], ",", RowBox[{"AspectRatio", "\[Rule]", "Automatic"}], ",", RowBox[{"PlotRange", "\[Rule]", "Automatic"}], ",", " ", RowBox[{"SphericalRegion", "\[Rule]", "True"}]}], "}"}]}], "]"}], " "}]}], "Input", CellChangeTimes->{{3.5712173852938776`*^9, 3.5712174302687564`*^9}, 3.5712174707664275`*^9, {3.5712175111080985`*^9, 3.57121766596957*^9}, { 3.571217707247243*^9, 3.571217731333685*^9}, {3.571217811939027*^9, 3.571217844153083*^9}, {3.571217922278021*^9, 3.5712179558648796`*^9}, 3.571218059215061*^9, 3.571218152550025*^9, {3.5712222113969584`*^9, 3.571222226248184*^9}, {3.5712223055119233`*^9, 3.5712223603460197`*^9}, { 3.571222466675806*^9, 3.5712224956138573`*^9}, {3.5712226444849186`*^9, 3.5712226507561297`*^9}, {3.5712226833445873`*^9, 3.571222709006632*^9}, { 3.5712230773232794`*^9, 3.5712230970105133`*^9}, {3.5712361667306185`*^9, 3.5712362688795977`*^9}, 3.571236349235339*^9, {3.571236403102234*^9, 3.5712364317906847`*^9}, {3.571299268819552*^9, 3.571299303950814*^9}, { 3.5712993684101267`*^9, 3.571299385336157*^9}, {3.571299458297485*^9, 3.571299483413529*^9}, 3.5712995486528435`*^9, {3.5712995931129217`*^9, 3.5712996062793446`*^9}, {3.5712998251945295`*^9, 3.571299847627369*^9}, { 3.5712998862062364`*^9, 3.571299897313456*^9}, {3.5713000739681664`*^9, 3.571300075091368*^9}, {3.571300142982688*^9, 3.571300167942731*^9}, { 3.5713119184980583`*^9, 3.5713119230532665`*^9}, {3.5713119688861475`*^9, 3.571311972505354*^9}, 3.571312016466231*^9, {3.571312161218885*^9, 3.571312237019418*^9}, {3.571312267579872*^9, 3.571312278328291*^9}, { 3.571312332881586*^9, 3.5713123406036*^9}, {3.5713124182917366`*^9, 3.5713124652322187`*^9}, {3.571312662354165*^9, 3.57131266509977*^9}, { 3.5713127074226446`*^9, 3.5713127383886986`*^9}, {3.5713127894787884`*^9, 3.5713128076060205`*^9}, {3.5713128834689536`*^9, 3.5713128993341813`*^9}, {3.571312939551052*^9, 3.5713129404246535`*^9}, { 3.5713129793467216`*^9, 3.5713129877239366`*^9}, {3.571313029017209*^9, 3.5713130303120117`*^9}, {3.5713151590761504`*^9, 3.571315165175761*^9}, { 3.571315210696641*^9, 3.5713152351730843`*^9}, {3.5713156113677444`*^9, 3.5713156248461685`*^9}, {3.5713156652502394`*^9, 3.5713156927842875`*^9}, {3.571315724826744*^9, 3.5713157503171887`*^9}, { 3.571316134530264*^9, 3.571316152907096*^9}, {3.571316521925744*^9, 3.571316529366957*^9}, {3.5713166673023996`*^9, 3.571316691919243*^9}, { 3.5713167862994084`*^9, 3.5713168015874352`*^9}, {3.571316865157547*^9, 3.5713168716627584`*^9}, {3.5713169068876204`*^9, 3.57131696370292*^9}, 3.5713208928163557`*^9, 3.571320930911622*^9, 3.571320967899287*^9, { 3.5713209987873416`*^9, 3.571321011080163*^9}, {3.571321095866312*^9, 3.5713211900592775`*^9}}], Cell[BoxData[ Graphics3DBox[{{ SphereBox[{-13.7116628834, -1.5733480730799998`, -5.6533043016}, 0.255], SphereBox[{-15.9583581248, -1.33242690534, -8.547797615799999}, 0.5241], SphereBox[{-14.6026686924, -0.31240950232, -7.868819063999999}, 0.178], TubeBox[{{-13.7116628834, -1.5733480730799998`, -5.6533043016}, \ {-14.6026686924, -0.31240950232, -7.868819063999999}}, 0.1], TubeBox[{{-13.7116628834, -1.5733480730799998`, -5.6533043016}, \ {-15.9583581248, -1.33242690534, -8.547797615799999}}, 0.1], TubeBox[{{-15.9583581248, -1.33242690534, -8.547797615799999}, \ {-14.6026686924, -0.31240950232, -7.868819063999999}}, 0.1]}, Text3DBox[ "20", {-14.011662883400001`, -1.5733480730799998`, -5.6533043016}, {1, 0}], Text3DBox[ "21", {-14.9026686924, -0.31240950232, -7.868819063999999}, {1, 0}], Text3DBox["22", {8.645584938799999, 2.8361007808000003`, 6.994820788999999}, {1, 0}]}, AspectRatio->Automatic, Axes->Automatic, ImageSize->{663., 661.}, PlotRange->Automatic, SphericalRegion->True, ViewPoint->{-1.3987925702828314`, -1.4648365681055395`, 2.710651798749213}, ViewVertical->{-0.3471701986797523, 1.059871543290983, 1.9429175586716882`}]], "Output", CellChangeTimes->{ 3.5713123487312145`*^9, 3.571312478133442*^9, 3.571312907586596*^9, 3.5713129467738647`*^9, 3.5713129970371532`*^9, 3.5713152416938953`*^9, 3.5713153857913485`*^9, 3.5713156356569877`*^9, 3.5713157652152147`*^9, 3.5713161649815173`*^9, 3.571316534889367*^9, 3.571316705678467*^9, 3.5713168119770536`*^9, 3.5713168794939723`*^9, 3.571316970473332*^9, 3.571317153882854*^9, 3.5713172800402756`*^9, 3.571320900444769*^9, 3.5713209429392433`*^9, 3.5713209748568993`*^9, 3.5713210214541817`*^9, { 3.57132116871844*^9, 3.571321196470889*^9}, 3.5713217036277795`*^9, 3.5728040881885242`*^9}] }, Open ]], Cell[BoxData[ RowBox[{"(*", 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[{ RowBox[{ RowBox[{"Pij", "[", RowBox[{"[", RowBox[{"i", ",", "j"}], "]"}], "]"}], ">", "0"}], " ", "&&", " ", RowBox[{"(", " ", RowBox[{ RowBox[{ RowBox[{"u", "[", RowBox[{"[", RowBox[{"i", "-", "1"}], "]"}], "]"}], "\[Equal]", "\"\\""}], " ", "||", " ", RowBox[{ RowBox[{"u", "[", RowBox[{"[", RowBox[{"j", "-", "1"}], "]"}], "]"}], "\[Equal]", "\"\\""}]}], " ", ")"}]}], ")"}], ",", RowBox[{"Print", "[", RowBox[{ RowBox[{"u", "[", RowBox[{"[", RowBox[{"i", "-", "1"}], "]"}], "]"}], ",", RowBox[{"i", "-", "1"}], ",", "\"\<-\>\"", ",", RowBox[{"u", "[", RowBox[{"[", RowBox[{"j", "-", "1"}], "]"}], "]"}], ",", RowBox[{"j", "-", "1"}], ",", "\"\< \>\"", ",", RowBox[{"t", "[", RowBox[{"[", RowBox[{"i", "-", "1"}], "]"}], "]"}], ",", "\"\< \>\"", ",", RowBox[{"t", "[", RowBox[{"[", RowBox[{"j", "-", "1"}], "]"}], "]"}], ",", "\"\< , \>\"", ",", RowBox[{"Dij", "[", RowBox[{"[", RowBox[{ RowBox[{"i", "-", "1"}], ",", RowBox[{"j", "-", "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.5712109452624493`*^9}}], Cell[BoxData[{ RowBox[{ RowBox[{"DeleteFile", "[", " ", "\"\\"", "]"}], ";"}], "\[IndentingNewLine]", RowBox[{"For", "[", RowBox[{ RowBox[{"i", "=", "2"}], ",", RowBox[{"i", "<", RowBox[{"n", "+", "2"}]}], ",", RowBox[{"i", "++"}], ",", "\[IndentingNewLine]", RowBox[{"For", "[", RowBox[{ RowBox[{"j", "=", "2"}], ",", RowBox[{"j", "\[LessEqual]", "i"}], ",", RowBox[{"j", "++"}], ",", "\[IndentingNewLine]", RowBox[{"If", "[", RowBox[{ RowBox[{ RowBox[{"Pij", "[", RowBox[{"[", RowBox[{"i", ",", "j"}], "]"}], "]"}], ">", "0"}], ",", RowBox[{ RowBox[{"{", RowBox[{ RowBox[{"i", "-", "1"}], ",", RowBox[{"j", "-", "1"}], ",", RowBox[{"Extract", "[", RowBox[{"Pij", ",", RowBox[{"{", RowBox[{"i", ",", "j"}], "}"}]}], "]"}]}], "}"}], ">>>", " ", "\"\\""}]}], "]"}]}], "]"}]}], "]"}]}], "Input", CellChangeTimes->{{3.5681154444347754`*^9, 3.568115497147268*^9}, { 3.568127214924899*^9, 3.568127265796589*^9}, {3.568128215276656*^9, 3.568128238536297*^9}, {3.568130718566253*^9, 3.5681307485339055`*^9}, 3.5681308175952272`*^9, {3.5681308916497574`*^9, 3.5681309458598523`*^9}, { 3.5681309983383446`*^9, 3.5681310118947687`*^9}, {3.5681310723448744`*^9, 3.568131074357278*^9}, {3.5681315215476637`*^9, 3.568131584509374*^9}, { 3.56813162789305*^9, 3.5681316427754765`*^9}, {3.5681317113063965`*^9, 3.568131715268804*^9}, {3.5681323203938665`*^9, 3.5681323260098763`*^9}, { 3.568132387567585*^9, 3.568132440014877*^9}, {3.5681325121026034`*^9, 3.568132590945142*^9}, {3.56813274298981*^9, 3.5681327548302307`*^9}, { 3.568132877867647*^9, 3.568132888335265*^9}, {3.568133052345154*^9, 3.568133072344389*^9}, {3.5681331740533676`*^9, 3.5681331951446047`*^9}, { 3.568133267793932*^9, 3.5681332684803333`*^9}, {3.5681335079111547`*^9, 3.568133536833606*^9}, {3.5681336272201643`*^9, 3.5681336314945717`*^9}, { 3.568133737994359*^9, 3.568133744000369*^9}, {3.568133978515581*^9, 3.5681339917912045`*^9}, {3.5681340324916763`*^9, 3.5681340418204927`*^9}, {3.568134244262048*^9, 3.5681342454944506`*^9}, { 3.5681343354754086`*^9, 3.568134336099409*^9}, {3.5681345828762426`*^9, 3.568134583952645*^9}, {3.5681348406666956`*^9, 3.5681348474683075`*^9}, 3.568134889151581*^9, {3.5681352914606876`*^9, 3.568135296265496*^9}, { 3.568135518877887*^9, 3.568135519595488*^9}, 3.5681357593679094`*^9, { 3.5681787035360527`*^9, 3.568178728449296*^9}, 3.5682779128076954`*^9}], 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.1903004568009017`"}], "}"}], ",", RowBox[{"{", RowBox[{"3", ",", "2", ",", "1.1938723648075746`"}], "}"}], ",", RowBox[{"{", RowBox[{"4", ",", "1", ",", "1.1625678924767877`"}], "}"}], ",", RowBox[{"{", RowBox[{"5", ",", "3", ",", "1.1922153222488148`"}], "}"}], ",", RowBox[{"{", RowBox[{"6", ",", "4", ",", "0.9927516555891638`"}], "}"}], ",", RowBox[{"{", RowBox[{"6", ",", "5", ",", "1.1628920151055262`"}], "}"}], ",", RowBox[{"{", RowBox[{"7", ",", "1", ",", "1.190439410584325`"}], "}"}], ",", RowBox[{"{", RowBox[{"8", ",", "1", ",", "1.190548025774018`"}], "}"}], ",", RowBox[{"{", RowBox[{"9", ",", "4", ",", "1.1253183349388942`"}], "}"}], ",", RowBox[{"{", RowBox[{"10", ",", "6", ",", "1.1686678866153495`"}], "}"}], ",", RowBox[{"{", RowBox[{"11", ",", "9", ",", "1.025839738003161`"}], "}"}], ",", RowBox[{"{", RowBox[{"12", ",", "11", ",", "1.0760376752772804`"}], "}"}], ",", RowBox[{"{", RowBox[{"13", ",", "12", ",", "1.1687932099947653`"}], "}"}], ",", 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.1686500631247143`"}], "}"}], ",", RowBox[{"{", RowBox[{"19", ",", "17", ",", "1.0060089697829193`"}], "}"}], ",", RowBox[{"{", RowBox[{"20", ",", "19", ",", "1.1686322579877293`"}], "}"}], ",", RowBox[{"{", RowBox[{"21", ",", "20", ",", "1.1337187872076824`"}], "}"}], ",", 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.235713033204844`"}], "}"}], ",", RowBox[{"{", RowBox[{"31", ",", "8", ",", "1.2358903549200966`"}], "}"}], ",", RowBox[{"{", RowBox[{"32", ",", "8", ",", "1.235839640489124`"}], "}"}], ",", RowBox[{"{", RowBox[{"33", ",", "8", ",", "1.2357521462040217`"}], "}"}], ",", RowBox[{"{", RowBox[{"34", ",", "9", ",", "1.2160885328938789`"}], "}"}], ",", RowBox[{"{", RowBox[{"35", ",", "10", ",", "1.235887260061742`"}], "}"}], ",", RowBox[{"{", RowBox[{"36", ",", "10", ",", "1.2357996583165434`"}], "}"}], ",", RowBox[{"{", RowBox[{"37", ",", "10", ",", "1.2357603015255403`"}], "}"}], ",", RowBox[{"{", RowBox[{"38", ",", "11", ",", "1.215846824723846`"}], "}"}], ",", RowBox[{"{", RowBox[{"39", ",", "13", ",", "1.2357025058258972`"}], "}"}], ",", RowBox[{"{", RowBox[{"40", ",", "13", ",", "1.2357979822662262`"}], "}"}], ",", RowBox[{"{", RowBox[{"41", ",", "13", ",", "1.235767545619187`"}], "}"}], ",", RowBox[{"{", RowBox[{"42", ",", "14", ",", "1.2159849801037779`"}], "}"}], ",", RowBox[{"{", RowBox[{"43", ",", "15", ",", "1.2157337494382179`"}], "}"}], ",", RowBox[{"{", RowBox[{"44", ",", "16", ",", "1.216034289865974`"}], "}"}], ",", RowBox[{"{", RowBox[{"45", ",", "18", ",", "1.2358277699890305`"}], "}"}], ",", RowBox[{"{", RowBox[{"46", ",", "18", ",", "1.2356247627619663`"}], "}"}], ",", 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.1252864433636156`"}], "}"}]}], "}"}]], "Output", CellChangeTimes->{ 3.57122707688713*^9, 3.5712274614770055`*^9, 3.571227522831913*^9, 3.5712276869442015`*^9, 3.5712277682047443`*^9, 3.5712350091929855`*^9, 3.5712353694444184`*^9, 3.57123566640654*^9, 3.5712357076530123`*^9, 3.571236278567215*^9, 3.571236355802951*^9, 3.5712364392942977`*^9, 3.5712449856869373`*^9, 3.5712450581958647`*^9, 3.5712451082719526`*^9, 3.571299186623008*^9, 3.5712993186460395`*^9, 3.571299393900572*^9, 3.571299497781154*^9, 3.5712995538320527`*^9, 3.5712996174645643`*^9, 3.5712998601697907`*^9, 3.5712999033818665`*^9, 3.5713000809881783`*^9, 3.5713001480058966`*^9, 3.571300179970352*^9, 3.57130719132736*^9, 3.5713073115723715`*^9, 3.5713074129725494`*^9, 3.571311858453553*^9, 3.5713119304476795`*^9, 3.5713119877621803`*^9, 3.57131202173904*^9, 3.571312293475917*^9, 3.5713123487936144`*^9, 3.5713124782114415`*^9, 3.5713129076489964`*^9, 3.571312946851865*^9, 3.571312997099553*^9, 3.5713152417562957`*^9, 3.571315385853749*^9, 3.5713156357349873`*^9, 3.5713157652776155`*^9, 3.571316165043917*^9, 3.571316534951767*^9, 3.5713167057408667`*^9, 3.5713168120550537`*^9, 3.5713168795719724`*^9, 3.571316970551332*^9, 3.571317153929654*^9, 3.5713172800870757`*^9, 3.571320900522769*^9, 3.5713209430172434`*^9, 3.5713209749193*^9, 3.5713210215165815`*^9, {3.5713211687808404`*^9, 3.571321196533289*^9}, 3.5713217036589794`*^9, 3.572804088235325*^9}], Cell[BoxData["51"], "Output", CellChangeTimes->{ 3.57122707688713*^9, 3.5712274614770055`*^9, 3.571227522831913*^9, 3.5712276869442015`*^9, 3.5712277682047443`*^9, 3.5712350091929855`*^9, 3.5712353694444184`*^9, 3.57123566640654*^9, 3.5712357076530123`*^9, 3.571236278567215*^9, 3.571236355802951*^9, 3.5712364392942977`*^9, 3.5712449856869373`*^9, 3.5712450581958647`*^9, 3.5712451082719526`*^9, 3.571299186623008*^9, 3.5712993186460395`*^9, 3.571299393900572*^9, 3.571299497781154*^9, 3.5712995538320527`*^9, 3.5712996174645643`*^9, 3.5712998601697907`*^9, 3.5712999033818665`*^9, 3.5713000809881783`*^9, 3.5713001480058966`*^9, 3.571300179970352*^9, 3.57130719132736*^9, 3.5713073115723715`*^9, 3.5713074129725494`*^9, 3.571311858453553*^9, 3.5713119304476795`*^9, 3.5713119877621803`*^9, 3.57131202173904*^9, 3.571312293475917*^9, 3.5713123487936144`*^9, 3.5713124782114415`*^9, 3.5713129076489964`*^9, 3.571312946851865*^9, 3.571312997099553*^9, 3.5713152417562957`*^9, 3.571315385853749*^9, 3.5713156357349873`*^9, 3.5713157652776155`*^9, 3.571316165043917*^9, 3.571316534951767*^9, 3.5713167057408667`*^9, 3.5713168120550537`*^9, 3.5713168795719724`*^9, 3.571316970551332*^9, 3.571317153929654*^9, 3.5713172800870757`*^9, 3.571320900522769*^9, 3.5713209430172434`*^9, 3.5713209749193*^9, 3.5713210215165815`*^9, {3.5713211687808404`*^9, 3.571321196533289*^9}, 3.5713217036589794`*^9, 3.572804088235325*^9}], Cell[BoxData["21"], "Output", CellChangeTimes->{ 3.57122707688713*^9, 3.5712274614770055`*^9, 3.571227522831913*^9, 3.5712276869442015`*^9, 3.5712277682047443`*^9, 3.5712350091929855`*^9, 3.5712353694444184`*^9, 3.57123566640654*^9, 3.5712357076530123`*^9, 3.571236278567215*^9, 3.571236355802951*^9, 3.5712364392942977`*^9, 3.5712449856869373`*^9, 3.5712450581958647`*^9, 3.5712451082719526`*^9, 3.571299186623008*^9, 3.5712993186460395`*^9, 3.571299393900572*^9, 3.571299497781154*^9, 3.5712995538320527`*^9, 3.5712996174645643`*^9, 3.5712998601697907`*^9, 3.5712999033818665`*^9, 3.5713000809881783`*^9, 3.5713001480058966`*^9, 3.571300179970352*^9, 3.57130719132736*^9, 3.5713073115723715`*^9, 3.5713074129725494`*^9, 3.571311858453553*^9, 3.5713119304476795`*^9, 3.5713119877621803`*^9, 3.57131202173904*^9, 3.571312293475917*^9, 3.5713123487936144`*^9, 3.5713124782114415`*^9, 3.5713129076489964`*^9, 3.571312946851865*^9, 3.571312997099553*^9, 3.5713152417562957`*^9, 3.571315385853749*^9, 3.5713156357349873`*^9, 3.5713157652776155`*^9, 3.571316165043917*^9, 3.571316534951767*^9, 3.5713167057408667`*^9, 3.5713168120550537`*^9, 3.5713168795719724`*^9, 3.571316970551332*^9, 3.571317153929654*^9, 3.5713172800870757`*^9, 3.571320900522769*^9, 3.5713209430172434`*^9, 3.5713209749193*^9, 3.5713210215165815`*^9, {3.5713211687808404`*^9, 3.571321196533289*^9}, 3.5713217036589794`*^9, 3.572804088235325*^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[{"Lighter", "[", RowBox[{"Brown", ",", "0.6"}], "]"}], ",", RowBox[{"Opacity", "[", "0.6", "]"}], ",", 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}}], 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[CellGroupData[{ Cell[BoxData[{ RowBox[{ RowBox[{"Plot9", "=", " ", RowBox[{"Table", "[", RowBox[{ RowBox[{"Graphics3D", "[", RowBox[{"{", 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.15"}], "]"}], "}"}], "]"}], ",", RowBox[{"{", RowBox[{"i", ",", "1", ",", "nb"}], "}"}]}], "]"}]}], ";"}], "\[IndentingNewLine]", RowBox[{"Show", "[", RowBox[{ "Plot1", ",", "Plot2", ",", "Plot7", ",", "Plot8", ",", "Plot9", ",", RowBox[{"{", RowBox[{ RowBox[{"AspectRatio", "\[Rule]", "Automatic"}], ",", RowBox[{"Boxed", "->", "False"}], ",", " ", RowBox[{"SphericalRegion", "\[Rule]", "True"}]}], "}"}]}], "]"}], "\[IndentingNewLine]", RowBox[{"Show", "[", RowBox[{"Plot1", ",", "Plot2", ",", "Plot9", ",", "Plota", ",", RowBox[{"{", RowBox[{ 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}], Cell[BoxData[ Graphics3DBox[{ {RGBColor[0.7333333333333333, 0.6, 0.4666666666666667], SphereBox[{6.2984567579999995`, 0.87813677494, 4.5943018512}, 0.255]}, {RGBColor[0.7333333333333333, 0.6, 0.4666666666666667], SphereBox[{8.0912398142, 3.0808202978, 5.136275268}, 0.255]}, {RGBColor[0.7333333333333333, 0.6, 0.4666666666666667], SphereBox[{10.1614346472, 3.1034970098, 3.1087882425999998`}, 0.255]}, {RGBColor[0.7333333333333333, 0.6, 0.4666666666666667], SphereBox[{5.4828510164, 0.92895150708, 1.8780285960599998`}, 0.255]}, {RGBColor[0.7333333333333333, 0.6, 0.4666666666666667], SphereBox[{8.954466651, 3.8282069308, 0.5798057313199999}, 0.255]}, {RGBColor[0.7333333333333333, 0.6, 0.4666666666666667], SphereBox[{6.659205451399999, 2.2315774334, 0.10211134441}, 0.255]}, {RGBColor[0.7333333333333333, 0.6, 0.4666666666666667], SphereBox[{7.652445436999999, -1.61707633272, 5.1421334186}, 0.255]}, {RGBColor[0.7333333333333333, 0.6, 0.4666666666666667], SphereBox[{3.9725819972, 1.10059531966, 6.2977008676}, 0.255]}, {RGBColor[0.7333333333333333, 0.6, 0.4666666666666667], SphereBox[{3.2546750897999996`, -0.53636093058, 1.15904454484}, 0.255]}, {RGBColor[0.7333333333333333, 0.6, 0.4666666666666667], SphereBox[{5.6393203292, 2.1062885995999996`, -2.5537757163999997`}, 0.255]}, {RGBColor[0.7333333333333333, 0.6, 0.4666666666666667], SphereBox[{1.2153772769, 0.6439052372399999, 0.150276680698}, 0.255]}, {RGBColor[0.7333333333333333, 0.6, 0.4666666666666667], SphereBox[{-1.00289648546, -0.7372954961599999, -0.36513285772}, 0.255]}, {RGBColor[0.7333333333333333, 0.6, 0.4666666666666667], SphereBox[{-1.10875893598, -3.5256617982, 0.20480850387999996`}, 0.255]}, {RGBColor[0.7333333333333333, 0.6, 0.4666666666666667], SphereBox[{-3.047183175, 0.44584305518, -1.3762307540199998`}, 0.255]}, {RGBColor[0.7333333333333333, 0.6, 0.4666666666666667], SphereBox[{-5.1780382126, -0.97286873932, -2.1119577776}, 0.255]}, {RGBColor[0.7333333333333333, 0.6, 0.4666666666666667], SphereBox[{-7.2930195518, 0.22196721596, -2.9294532452}, 0.255]}, {RGBColor[0.7333333333333333, 0.6, 0.4666666666666667], SphereBox[{-9.5026761636, -1.24914668052, -3.692524604}, 0.255]}, {RGBColor[0.7333333333333333, 0.6, 0.4666666666666667], SphereBox[{-9.4310555482, -4.0933354886, -3.5706372769999994`}, 0.255]}, {RGBColor[0.7333333333333333, 0.6, 0.4666666666666667], SphereBox[{-11.584965243, -0.072731774288, -4.4973589074}, 0.255]}, {RGBColor[0.7333333333333333, 0.6, 0.4666666666666667], SphereBox[{-13.7116628834, -1.5733480730799998`, -5.6533043016}, 0.255]}, {RGBColor[1, NCache[ Rational[1, 3], 0.3333333333333333], NCache[ Rational[1, 3], 0.3333333333333333]], SphereBox[{-14.6026686924, -0.31240950232, -7.868819063999999}, 0.178]}, {RGBColor[0.7333333333333333, 0.6, 0.4666666666666667], SphereBox[{8.9455849388, 2.8361007808000003`, 6.994820788999999}, 0.1]}, {RGBColor[0.7333333333333333, 0.6, 0.4666666666666667], SphereBox[{7.045654418399999, 4.8545171214, 5.077693761999999}, 0.1]}, {RGBColor[0.7333333333333333, 0.6, 0.4666666666666667], SphereBox[{11.011055456799998`, 1.2324226054199998`, 2.9663029022}, 0.1]}, {RGBColor[0.7333333333333333, 0.6, 0.4666666666666667], SphereBox[{11.60291764, 4.4877213048, 3.6071089888}, 0.1]}, {RGBColor[0.7333333333333333, 0.6, 0.4666666666666667], SphereBox[{8.4075799466, 5.8133640938, 0.62856066212}, 0.1]}, {RGBColor[0.7333333333333333, 0.6, 0.4666666666666667], SphereBox[{10.3173370422, 3.5362442637999996`, -0.9369639453199999}, 0.1]}, {RGBColor[0.7333333333333333, 0.6, 0.4666666666666667], SphereBox[{6.3706442912, -3.1879677619999995`, 4.7785501362}, 0.1]}, {RGBColor[0.7333333333333333, 0.6, 0.4666666666666667], SphereBox[{8.2460083736, -1.6577243389799998`, 7.113873526999999}, 0.1]}, {RGBColor[0.7333333333333333, 0.6, 0.4666666666666667], SphereBox[{9.305010823999998, -1.78331552894, 3.924016039}, 0.1]}, {RGBColor[0.7333333333333333, 0.6, 0.4666666666666667], SphereBox[{2.6287978386, -0.38658124782, 5.8226237512}, 0.1]}, {RGBColor[0.7333333333333333, 0.6, 0.4666666666666667], SphereBox[{3.0889461196, 2.9398467381999995`, 6.0161316936}, 0.1]}, {RGBColor[0.7333333333333333, 0.6, 0.4666666666666667], SphereBox[{4.5430902766, 0.9068606101399999, 8.2673622774}, 0.1]}, {RGBColor[0.7333333333333333, 0.6, 0.4666666666666667], SphereBox[{3.2353998846, -2.5602007847999997`, 1.42313375334}, 0.1]}, {RGBColor[0.7333333333333333, 0.6, 0.4666666666666667], SphereBox[{6.8030136, 3.2707377608, -3.7919241915999997`}, 0.1]}, {RGBColor[0.7333333333333333, 0.6, 0.4666666666666667], SphereBox[{3.7010283709999996`, 2.8028416031999996`, -2.5785311269999998`}, 0.1]}, {RGBColor[0.7333333333333333, 0.6, 0.4666666666666667], SphereBox[{5.6759810136, 0.15492918610999998`, -3.2121562547999996`}, 0.1]}, {RGBColor[0.7333333333333333, 0.6, 0.4666666666666667], SphereBox[{1.29132536484, 2.6420259206, -0.2581365716}, 0.1]}, {RGBColor[0.7333333333333333, 0.6, 0.4666666666666667], SphereBox[{-0.33081543356, -4.5810737692, -1.38367627446}, 0.1]}, {RGBColor[0.7333333333333333, 0.6, 0.4666666666666667], SphereBox[{-3.0658914624, -4.0899339818, 0.51139765012}, 0.1]}, {RGBColor[0.7333333333333333, 0.6, 0.4666666666666667], SphereBox[{-0.0062334501835999995`, -3.9225042581999996`, 1.8987966848}, 0.1]}, {RGBColor[0.7333333333333333, 0.6, 0.4666666666666667], SphereBox[{-3.0381124902, 2.472706471, -1.61573462726}, 0.1]}, {RGBColor[0.7333333333333333, 0.6, 0.4666666666666667], SphereBox[{-5.1264486927999995`, -3.0110894083999997`, -2.024841409}, 0.1]}, {RGBColor[0.7333333333333333, 0.6, 0.4666666666666667], SphereBox[{-7.3442311263999995`, 2.2604902412, -3.0167585863999995`}, 0.1]}, {RGBColor[0.7333333333333333, 0.6, 0.4666666666666667], SphereBox[{-11.297726891, -4.846580272200001, -4.0077309008}, 0.1]}, {RGBColor[0.7333333333333333, 0.6, 0.4666666666666667], SphereBox[{-8.877554802799999, -4.6857645896, -1.6773019003399998`}, 0.1]}, {RGBColor[0.7333333333333333, 0.6, 0.4666666666666667], SphereBox[{-8.0659174858, -4.8050063002, -4.9393658188}, 0.1]}, {RGBColor[0.7333333333333333, 0.6, 0.4666666666666667], SphereBox[{-11.7452140078, 1.9541656565999999`, -4.3202915812}, 0.1]}, {RGBColor[0.7333333333333333, 0.6, 0.4666666666666667], SphereBox[{-15.250088819999998`, -1.7430832623999999`, -4.2942133624}, 0.1]}, {RGBColor[0.7333333333333333, 0.6, 0.4666666666666667], SphereBox[{-13.031550496, -3.4508286486, -6.158617033999999}, 0.1]}, {RGBColor[0.7333333333333333, 0.6, 0.4666666666666667], SphereBox[{-15.9583581248, -1.33242690534, -8.547797615799999}, 0.1]}, 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.84, 0.76, 0.6799999999999999], Opacity[0.6], SphereBox[{7.195065307464576, 1.9797451773236876`, 4.865354166986276}, 1.1903004568009017`]}, {RGBColor[0.84, 0.76, 0.6799999999999999], Opacity[0.6], SphereBox[{9.126337230699999, 3.0921586538, 4.1225317553}, 1.1938723648075746`]}, {RGBColor[0.84, 0.76, 0.6799999999999999], Opacity[0.6], SphereBox[{5.890653887199999, 0.90354414101, 3.2361652236299996`}, 1.1625678924767877`]}, {RGBColor[0.84, 0.76, 0.6799999999999999], Opacity[0.6], SphereBox[{9.5579506491, 3.4658519703, 1.8442969869599999`}, 1.1922153222488148`]}, {RGBColor[0.84, 0.76, 0.6799999999999999], Opacity[0.6], SphereBox[{6.0710282339, 1.58026447024, 0.990069970235}, 0.9927516555891638]}, {RGBColor[0.84, 0.76, 0.6799999999999999], Opacity[0.6], SphereBox[{7.807119268525147, 3.030089193723594, 0.34101748162552803`}, 1.1628920151055262`]}, {RGBColor[0.84, 0.76, 0.6799999999999999], Opacity[0.6], SphereBox[{6.9756852479854325`, -0.36990128571829195`, 4.868312373526277}, 1.190439410584325]}, {RGBColor[0.84, 0.76, 0.6799999999999999], Opacity[0.6], SphereBox[{5.135117185323176, 0.9894045150241044, 5.446295912632312}, 1.190548025774018]}, {RGBColor[0.84, 0.76, 0.6799999999999999], Opacity[0.6], SphereBox[{4.3687630530999995`, 0.19629528824999998`, 1.5185365704499998`}, 1.1253183349388942`]}, {RGBColor[0.84, 0.76, 0.6799999999999999], Opacity[0.6], SphereBox[{6.149083820821049, 2.16891101852621, -1.2262985015650358`}, 1.1686678866153495`]}, {RGBColor[0.84, 0.76, 0.6799999999999999], Opacity[0.6], SphereBox[{2.2350261833499996`, 0.05377215332999996, 0.654660612769}, 1.025839738003161]}, {RGBColor[0.84, 0.76, 0.6799999999999999], Opacity[0.6], SphereBox[{0.10624039571999999`, -0.046695129459999984`, -0.107428088511}, 1.0760376752772804`]}, {RGBColor[0.84, 0.76, 0.6799999999999999], Opacity[0.6], SphereBox[{-1.0558462962107484`, -2.1319681801150008`, \ -0.0800621165128296}, 1.1687932099947653`]}, {RGBColor[0.84, 0.76, 0.6799999999999999], Opacity[0.6], SphereBox[{-2.02503983023, -0.14572622048999995`, -0.8706818058699999}, 1.0289442947952179`]}, {RGBColor[0.84, 0.76, 0.6799999999999999], Opacity[0.6], SphereBox[{-4.1126106938, -0.2635128420699999, -1.7440942658099998`}, 1.0760826962707348`]}, {RGBColor[0.84, 0.76, 0.6799999999999999], Opacity[0.6], SphereBox[{-6.2355288822, -0.3754507616799999, -2.5207055114}, 1.0258106188343346`]}, {RGBColor[0.84, 0.76, 0.6799999999999999], Opacity[0.6], SphereBox[{-8.3978478577, -0.51358973228, -3.3109889246}, 1.1253355115916557`]}, {RGBColor[0.84, 0.76, 0.6799999999999999], Opacity[0.6], SphereBox[{-9.46685328073193, -2.6717404680417554`, -3.631559539488377}, 1.1686500631247143`]}, {RGBColor[0.84, 0.76, 0.6799999999999999], Opacity[0.6], SphereBox[{-10.5438207033, -0.660939227404, -4.0949417557}, 1.0060089697829193`]}, {RGBColor[0.84, 0.76, 0.6799999999999999], Opacity[0.6], SphereBox[{-12.648575423259075`, -0.8232243416083211, -5.075473664166018}, 1.1686322579877293`]}, {RGBColor[0.84, 0.76, 0.6799999999999999], Opacity[0.6], SphereBox[{-14.169868812021535`, -0.9249016511669437, -6.79264816313953}, 1.1337187872076824`]}, {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.737367393018954, 4.260700913556169}, 1.235713033204844]}, {Opacity[0.5], SphereBox[{3.0001847523081597`, 0.024435589966594673`, 5.95392268258269}, 1.2358903549200966`]}, {Opacity[0.5], SphereBox[{3.333166055574349, 2.4315130737764017`, 6.093951989708165}, 1.235839640489124]}, {Opacity[0.5], SphereBox[{4.385406079469298, 0.9604074266018731, 7.722962679290262}, 1.2357521462040217`]}, {Opacity[0.5], SphereBox[{3.2407761209285644`, -1.9957117827605422`, 1.3494740448187397`}, 1.2160885328938789`]}, {Opacity[0.5], SphereBox[{6.481398630136755, 2.9489138822197276`, -3.4497317131095833`}, 1.235887260061742]}, {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.5458383481192651, -4.289358808718669, -0.9446204488001934}, 1.2357025058258972`]}, {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.2159849801037779`]}, {Opacity[0.5], SphereBox[{-5.140840532808636, -2.442490478124714, -2.0491441131904082`}, 1.2157337494382179`]}, {Opacity[0.5], SphereBox[{-7.32994682477678, 1.6918907012357107`, -2.992406751160414}, 1.216034289865974]}, {Opacity[0.5], SphereBox[{-10.781811914544614`, -4.638396723288159, \ -3.8869259463009813`}, 1.2358277699890305`]}, {Opacity[0.5], SphereBox[{-9.030547707164608, -4.522011515109373, -2.2006379222312407`}, 1.2356247627619663`]}, {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.0398828061626109`, \ -8.353064498297293}, 1.1252864433636156`]}, TubeBox[{{8.0912398142, 3.0808202978, 5.136275268}, {6.2984567579999995`, 0.87813677494, 4.5943018512}}, 0.15], TubeBox[{{10.1614346472, 3.1034970098, 3.1087882425999998`}, {8.0912398142, 3.0808202978, 5.136275268}}, 0.15], TubeBox[{{5.4828510164, 0.92895150708, 1.8780285960599998`}, { 6.2984567579999995`, 0.87813677494, 4.5943018512}}, 0.15], TubeBox[{{8.954466651, 3.8282069308, 0.5798057313199999}, {10.1614346472, 3.1034970098, 3.1087882425999998`}}, 0.15], TubeBox[{{6.659205451399999, 2.2315774334, 0.10211134441}, {5.4828510164, 0.92895150708, 1.8780285960599998`}}, 0.15], TubeBox[{{6.659205451399999, 2.2315774334, 0.10211134441}, {8.954466651, 3.8282069308, 0.5798057313199999}}, 0.15], TubeBox[{{7.652445436999999, -1.61707633272, 5.1421334186}, { 6.2984567579999995`, 0.87813677494, 4.5943018512}}, 0.15], TubeBox[{{3.9725819972, 1.10059531966, 6.2977008676}, {6.2984567579999995`, 0.87813677494, 4.5943018512}}, 0.15], TubeBox[{{3.2546750897999996`, -0.53636093058, 1.15904454484}, { 5.4828510164, 0.92895150708, 1.8780285960599998`}}, 0.15], TubeBox[{{5.6393203292, 2.1062885995999996`, -2.5537757163999997`}, { 6.659205451399999, 2.2315774334, 0.10211134441}}, 0.15], TubeBox[{{1.2153772769, 0.6439052372399999, 0.150276680698}, { 3.2546750897999996`, -0.53636093058, 1.15904454484}}, 0.15], TubeBox[{{-1.00289648546, -0.7372954961599999, -0.36513285772}, { 1.2153772769, 0.6439052372399999, 0.150276680698}}, 0.15], TubeBox[{{-1.10875893598, -3.5256617982, 0.20480850387999996`}, {-1.00289648546, -0.7372954961599999, \ -0.36513285772}}, 0.15], TubeBox[{{-3.047183175, 0.44584305518, -1.3762307540199998`}, {-1.00289648546, \ -0.7372954961599999, -0.36513285772}}, 0.15], TubeBox[{{-5.1780382126, -0.97286873932, -2.1119577776}, {-3.047183175, 0.44584305518, -1.3762307540199998`}}, 0.15], TubeBox[{{-7.2930195518, 0.22196721596, -2.9294532452}, {-5.1780382126, -0.97286873932, \ -2.1119577776}}, 0.15], TubeBox[{{-9.5026761636, -1.24914668052, -3.692524604}, {-7.2930195518, 0.22196721596, -2.9294532452}}, 0.15], TubeBox[{{-9.4310555482, -4.0933354886, -3.5706372769999994`}, \ {-9.5026761636, -1.24914668052, -3.692524604}}, 0.15], TubeBox[{{-11.584965243, -0.072731774288, -4.4973589074}, {-9.5026761636, \ -1.24914668052, -3.692524604}}, 0.15], TubeBox[{{-13.7116628834, -1.5733480730799998`, -5.6533043016}, \ {-11.584965243, -0.072731774288, -4.4973589074}}, 0.15], TubeBox[{{-14.6026686924, -0.31240950232, -7.868819063999999}, \ {-13.7116628834, -1.5733480730799998`, -5.6533043016}}, 0.15], TubeBox[{{8.9455849388, 2.8361007808000003`, 6.994820788999999}, { 8.0912398142, 3.0808202978, 5.136275268}}, 0.15], TubeBox[{{7.045654418399999, 4.8545171214, 5.077693761999999}, { 8.0912398142, 3.0808202978, 5.136275268}}, 0.15], TubeBox[{{11.011055456799998`, 1.2324226054199998`, 2.9663029022}, { 10.1614346472, 3.1034970098, 3.1087882425999998`}}, 0.15], TubeBox[{{11.60291764, 4.4877213048, 3.6071089888}, {10.1614346472, 3.1034970098, 3.1087882425999998`}}, 0.15], TubeBox[{{8.4075799466, 5.8133640938, 0.62856066212}, {8.954466651, 3.8282069308, 0.5798057313199999}}, 0.15], TubeBox[{{10.3173370422, 3.5362442637999996`, -0.9369639453199999}, { 8.954466651, 3.8282069308, 0.5798057313199999}}, 0.15], TubeBox[{{6.3706442912, -3.1879677619999995`, 4.7785501362}, { 7.652445436999999, -1.61707633272, 5.1421334186}}, 0.15], TubeBox[{{8.2460083736, -1.6577243389799998`, 7.113873526999999}, { 7.652445436999999, -1.61707633272, 5.1421334186}}, 0.15], TubeBox[{{9.305010823999998, -1.78331552894, 3.924016039}, { 7.652445436999999, -1.61707633272, 5.1421334186}}, 0.15], TubeBox[{{2.6287978386, -0.38658124782, 5.8226237512}, {3.9725819972, 1.10059531966, 6.2977008676}}, 0.15], TubeBox[{{3.0889461196, 2.9398467381999995`, 6.0161316936}, {3.9725819972, 1.10059531966, 6.2977008676}}, 0.15], TubeBox[{{4.5430902766, 0.9068606101399999, 8.2673622774}, {3.9725819972, 1.10059531966, 6.2977008676}}, 0.15], TubeBox[{{3.2353998846, -2.5602007847999997`, 1.42313375334}, { 3.2546750897999996`, -0.53636093058, 1.15904454484}}, 0.15], TubeBox[{{6.8030136, 3.2707377608, -3.7919241915999997`}, {5.6393203292, 2.1062885995999996`, -2.5537757163999997`}}, 0.15], TubeBox[{{3.7010283709999996`, 2.8028416031999996`, -2.5785311269999998`}, {5.6393203292, 2.1062885995999996`, -2.5537757163999997`}}, 0.15], TubeBox[{{5.6759810136, 0.15492918610999998`, -3.2121562547999996`}, { 5.6393203292, 2.1062885995999996`, -2.5537757163999997`}}, 0.15], TubeBox[{{1.29132536484, 2.6420259206, -0.2581365716}, {1.2153772769, 0.6439052372399999, 0.150276680698}}, 0.15], TubeBox[{{-0.33081543356, -4.5810737692, -1.38367627446}, {-1.10875893598, \ -3.5256617982, 0.20480850387999996`}}, 0.15], TubeBox[{{-3.0658914624, -4.0899339818, 0.51139765012}, {-1.10875893598, -3.5256617982, 0.20480850387999996`}}, 0.15], TubeBox[{{-0.0062334501835999995`, -3.9225042581999996`, 1.8987966848}, {-1.10875893598, -3.5256617982, 0.20480850387999996`}}, 0.15], TubeBox[{{-3.0381124902, 2.472706471, -1.61573462726}, {-3.047183175, 0.44584305518, -1.3762307540199998`}}, 0.15], TubeBox[{{-5.1264486927999995`, -3.0110894083999997`, -2.024841409}, \ {-5.1780382126, -0.97286873932, -2.1119577776}}, 0.15], TubeBox[{{-7.3442311263999995`, 2.2604902412, -3.0167585863999995`}, {-7.2930195518, 0.22196721596, -2.9294532452}}, 0.15], TubeBox[{{-11.297726891, -4.846580272200001, -4.0077309008}, \ {-9.4310555482, -4.0933354886, -3.5706372769999994`}}, 0.15], TubeBox[{{-8.877554802799999, -4.6857645896, -1.6773019003399998`}, \ {-9.4310555482, -4.0933354886, -3.5706372769999994`}}, 0.15], TubeBox[{{-8.0659174858, -4.8050063002, -4.9393658188}, {-9.4310555482, \ -4.0933354886, -3.5706372769999994`}}, 0.15], TubeBox[{{-11.7452140078, 1.9541656565999999`, -4.3202915812}, {-11.584965243, -0.072731774288, \ -4.4973589074}}, 0.15], TubeBox[{{-15.250088819999998`, -1.7430832623999999`, -4.2942133624}, \ {-13.7116628834, -1.5733480730799998`, -5.6533043016}}, 0.15], TubeBox[{{-13.031550496, -3.4508286486, -6.158617033999999}, \ {-13.7116628834, -1.5733480730799998`, -5.6533043016}}, 0.15], TubeBox[{{-15.9583581248, -1.33242690534, -8.547797615799999}, \ {-14.6026686924, -0.31240950232, -7.868819063999999}}, 0.15]}, AspectRatio->Automatic, Boxed->False, SphericalRegion->True]], "Output", CellChangeTimes->{ 3.5712270769495296`*^9, 3.5712274615706053`*^9, 3.571227522909913*^9, 3.5712276870222015`*^9, 3.5712277683139443`*^9, 3.5712350092709856`*^9, 3.5712353695536184`*^9, 3.57123566651574*^9, 3.5712357077622128`*^9, 3.5712362786764154`*^9, 3.571236355896551*^9, 3.5712364394034977`*^9, 3.571244985796138*^9, 3.571245058305065*^9, 3.5712451083967533`*^9, 3.571299186701008*^9, 3.5712993187240396`*^9, 3.571299393978572*^9, 3.5712994978435545`*^9, 3.571299553910053*^9, 3.571299617526964*^9, 3.571299860247791*^9, 3.571299903444267*^9, 3.571300081066179*^9, 3.5713001480838966`*^9, 3.5713001800327525`*^9, 3.5713071914521604`*^9, 3.5713073116503716`*^9, 3.5713074130661497`*^9, 3.5713118585627537`*^9, 3.5713119305256796`*^9, 3.5713119878401804`*^9, 3.57131202181704*^9, 3.5713122935539174`*^9, 3.5713123488872147`*^9, 3.571312478273842*^9, 3.571312907742596*^9, 3.5713129469142647`*^9, 3.571312997177553*^9, 3.5713152418342957`*^9, 3.5713153859473486`*^9, 3.5713156358441877`*^9, 3.571315765355615*^9, 3.5713161651219177`*^9, 3.571316535029767*^9, 3.571316705818867*^9, 3.571316812133054*^9, 3.5713168796499724`*^9, 3.5713169706293325`*^9, 3.5713171540232544`*^9, 3.571317280180676*^9, 3.5713209006319695`*^9, 3.571320943095244*^9, 3.5713209749973*^9, 3.5713210215945816`*^9, {3.5713211688588405`*^9, 3.5713211965956893`*^9}, 3.5713217037993803`*^9, 3.572804088313325*^9},ImageCache->GraphicsData["CompressedBitmap", "\<\ eJzsvId3Y1ee3/lxd0977LE9yePstY/PrifY47XdM2OPZ+2xvXt2xhPcQd2t 7lG31AolqaqkyrmKOZPFDJAEM8GAQBAgARIkQORIMIIEE5hjkUUWK6lKoVut 2h8Alrp0PP/BDo5+eg8o4L377v39vuHd+/jnr19698T7r186+ebr//yPLrx+ 7t2Tb1785//v2Qvy0Zf/Gvy1dxPxz0nsP4Pn/3sm/z07mfhf4pO/2v+r/b/a /6v9v9r//8v+B8nNX2dz85BQMM6oxHggzoQvzqRHtq44Z1Jffef4qxvy1XDi q4mvHX91Qr66s3ZITvI7f4vISJzKcjM15Raayyx03LagLbbQXWDBkCvbTImb Fjx1Qe4uH5xOneFEcvMLjIQXqSoz0yi/7pToLrVgLLHQW2jBlCdHyLKguWlm djhORvI3v8ju9iG1VX2oqi20SHRVWeipsGCWs1vl7DY5+7CcfTjfgj1HIkM+ u2ZmZWieU6nTv3l8qJ3tA5QVJhrlMBqJXolBOZxDDueW5nilOT5pjrfIglOa MySHGqkPcbh8yK3kMX6ZOzuHNCrMNCsttEvoFdKU6n6GKgdwVgzgLRvALxGU CCW3/QTkmAFpoj+rj6k6D8dD9MbxIXelWQ3VJtRyOIOEVdmPUzFAQGKkeoBx 5QCTiajpl62FcWn2iDTXL73mTDNzf+WAG8lj/Sp7Owe0KntR10gP1/ZjqLFi UdiwKxx4qlwEq9xEFB7GajxM1HqYrHNLOBmvsTNWPci4NHe0wESsycm7qWa+ ltz8GilZ8Yw723dprjYk3/fI4QdrbXhqHYRrXEyo3Mw0eJhr9rDQ6max1SXh YKHZRqzBymSthVFpeiC7l/urdzmfOOKXE0f6cvLYfy951Dvb+6gVBjprzHIR VvS1w1hq3HIRfryKEKGaEcbqIkw1jDLTPMpsyyhzrRGJMLPNQaYbvUyrHExL 500Wd7Ptib7zv17L7uYdWio1Morm5PtB6Q5PbYARVZipxgizraPEO0ZZ6Rpl XTtK6JaaDV1I9v0sd7pZUA/LmeSaqs2Ecrq5lDz2P/y8n5InlJe9x0mX0oSm dghdrZvemgA2ZQRPzQTmDCeOM91MlniYVc8y3zFLvGuWpa4YS5ppFrsm5bMx Ym1hYo1uYjKsU6UdfCV59C+zvnGI3xtnc/2QH6XO+MPE5ivJM/9dOquN6JTD mGuDyU9C9ZNMNU8z1y7H186y3j3LlnEWf46N5csGPixVsdM7wYYxwoo+yLxc Z6x5iKik545/9mvJU/x8ElQSSDEmUZZvpjLHzJQ0Y9IdZ3f18D8mv/a/f6En 9rbuJN9rJZG1NV5JzAj9NZM4lDMEVPNk/lc93jMhVgtNLGpWWdavstK9ypph hbWeJVYMi8T1c8xqo8Q6RqRVTmIqA6OGYYEVaYbUbo3AQYPAQasUhlrqt13g RH1L4MQRZ2/54AcvdBD/4PPWJV4dFV2CCEP0KIOSB1PJz8ZaFol1LrGkX2Hd uMqOeY29/lXMJ53c61jmU88Ee9Z5tgdirPVNEe+RnNF4pXSkTCs1/+4YMROY l0DMOgGZNkl9jeBWtzTUKCDTK6BgFMwyCNDorvcxa1/8ncTPvvSzivgXxEai xz3nlIjQo5gWiFjAXbdMuGmNqveWGK7eZkN6bEMqYM20y0bvLpt9O2yat6Rt Gyz1rjJnlOvRS+91BnGXarFmlFIv6NdWKRAuDeuRHuwTpOqX3huQ3uvPlkiX EDD1K3yvpDrr1c/bJ8XaVdGHttqHSTGBrXYh+elExwZz+m1We3fYtuyyN3gH /+1xpoqW+cS5w5PACncd6+zal9kYWmCpf4ZZSbdYl5OZRgM7kei/SZ7ql1J4 XWlKQn+bhF6iT1psla60Szc6pRvdMt7uBF4fw78tTcBRyOcgfpDK1t/4Qhom orO0JdWh1UGJqHToIkO1a3gbt4m03cFeeYemokMWTffY00bYsByx1X+Pbeuh xAEb1n2W+3eYl4SY0E5jrxiS5hgYLqqlS+igR5rYL00ckiY6Ek1MUEpxilY8 MuJu4Ul3hpnJej/3lva//5d0rKbCjrYqknw3XL9KUL2d3F8wHbAuTdkdOuLu 8BHdZ8Ls6Q75bGKP+967HHj2uOPeZtO5zrItzpxFxtsQkDHvZ9Ey+NvJU/3K 54zTImzSKWFMsI6iH0dVP94qIS0hshHZjiZDGKEyxTgJIvNLajivmzha/l86 OPHSlHairXQk93WVcxir1xhS7eJtucto5xHTugc05jzAp/uAfccRe6ZFtoc+ YNf2mB37Izbt94W67xI1rTFcF2ZYcN8hCO2saMFa2ih8PSR8bcdbMUxQzhOW iFQPM1ptl6YOMZJoemk/IwV9+G/qpZl733sR+1PIqC3zoK+Yok8ZT7KPJNui +REbgx9wx/FE+mCOUPEeT31PeDq+zYPgQw4D99nzH7Dl3WXFucb80ByxvlFi 3XYm2tp+/XMm+9LPBvJXaBMK0woP9wpRDiltuJUOggono0KWk0IG0/UJwnQJ OQqcNQihqIaE562MSQ5FSqTw0g3C7/v/5xd5MtXmfyEdvIRJuYWtcR+f+j5j 2sfMGJ7ia3pCe90nrLt/zAP7EjvDn7Dr+Jhd51M2HY9YkdRxN8/gbBzH0ejH WT+Iu6YLh9ChS+o5UC00KFA4VheSLA0x3ZCIgISPqXpRDUL3U6IWJm+bWGh3 HnfwHx2Tkl90Y0B0Y+JdsjP4uZS2FE056hfWkH+PCFN85fjf1jcOCMrnI4kQ Fgm5F+XTxL/9fboKDGhvB9BVxOirW8XRtktId0/S4xHxgads2D9iz/UJ6nMT rOk/5sexj3kceciDkQ85HPmAvdADtgJ3WfFssSCqMjYwKaPmZkrTxW+9IDkS ey1VWhEDfcn3RpEcQ6KRPEo/odoQ46oRoo0jBAoHiV7XsCzSYqk9zFJHkLja x7yInVjTMFGRK5Plvcy3u383edB/ibaoRy7Bj7Z0Ri5jFVPNLkPN9/B1PGJU /5QZ08csWH6CuuwTwkOfcX/0E+45ttmVwdtxf8ym+wnTgufetnlcrVGcogXc LU68Dd14FCYCynEiqkkmG6eYboky2xZlXh2VgZmSmGBOLUnaEhJwFW6qHWS6 vJvdwPTLqUH7v5Obf8TW1iE9wvgqAa12CZ0Al0EAqymjh9wL7ZSk66jPN0p9 y+fH9GUUzNULS/SpPLisUyhE2idMQad8R1+S+n23wIVWeNjRHCI6vPil43Ht zDWJbwijK5+Tn2/gaN8n1P2AqPkDFoc+YsPxCdPdR9iLjrgfeMaHcx/yaPQn PJDOORx9yl7kEVuhe6z6dllwrRCzTROzSnYadMfjmqqRwW4bnYqe43e/jKt2 lGDdBOPSWTOt0zJOMzR+w8hKtp+HtV1sdE8LkU5JLo2zIti/0CngKWM7U29l qsLAtn+a3zkeWE2+DGyRcEhJDG3FGsa6PYZajvB2fcBo94cyaB8z3/8Joc6n aDqesT3+jCeRTXY8H7Hj/ZBN7xNCIiS87Yu4OqISY3jaPfhajCIOBcLq55ho XmBGHRcRGBdZJGJEG2dZtygxT1wE3LyIxFi7CMQWn8ihfqJV7ccD+9+Tm9/B ZPAJ1gsKCXlaJOyCLG5hp+rrrRRdbkFxpZWmS620n2+lL0P3BSNUdbWVgost VFxspfl6hwy6EZv81imD7JYk8Mh3XCIXhoXRBkTDhAQrDsQstWca0RaMiKxY wNSwyXCHVLjhAVOWxyzYnrLu+pCeglViup/wwfxnPJp8yqPxj3kw/hGHYx+y N/oBW+EjVgJ3mPfI95wzMsJ+xoya3/gZuv795BV2VHamyEZEpalmNLnvq4sx 2jhPtG2R+a4l6a1l1K+F2a5d4gOR4zu94mr7FtnqnRO5NEPcMMmcVkSlWqpY Jcxc0X48yr9IV5YObX5ARno2Oco9qn0GW+/j0TxmxPCEKfNTZq0fsmj7kK66 D8U9P+Px4o85Cm4dZ92X8XQt4NTESNFDim+C9cuMt6wy3b7OnGaTRd2WCN4t Vnu2RG5uSAiFi+xcNMSZ1cWEwqWM24Qpmnqkfya+mxrl/5bc/C79Rp/4RzNG MQj2GrGgSisRicb0VqpvtNB0qxXdzVZ6b7RhvdaG7bIa960upiTPmjJaqbze QsONVjolK7olI3plxH3FJkZFFYxLTIiumZDsGRMlEJLs8CYct0hrb2MYbW5I CHUeY70wUcdd/IYjJiwPmBM6D+t36C64K3XzjIeLH3F/7KmM8lPujz/hYFzY dlQof0RGOrjHvH+NmHeGGYePvaUFfvMFQzUdnkRTlTKdehHBfWIbEq9Aw7Kw 75oI7w3i0ntrxm10p2Lst23xwDzOvnWTO9YNdqwijvslE8zzzBtFFOkSoz0s 3Ktje2SClJT5dWLuBbTZPhnxGcneNQxS0wOt93BpHhDqeciEqIQZ62Pm7Y8J d99HZ3rG7uIzPpoXse27T6RrjqBmMdk2p34Rt34Gr9aHW21MfjbZcYeYZo+F 7rsyuges9R4QlRofuWFi9WobO92SjSLYZ01Loiwk67UhGflBlgcGOR7y/5rc /B7WHleSrkziK4drnYTqhJhVPtqy2qlNa0Wd0UlPppbBzG5cGQYCmQZCWT1E sgw0XWmgLq2FtvR2utM76U/rwn5Ti0sUk/eGTvzeEPPNDhabhyVszDdZidVL Gkh6jUjx689qUF91Ca/NShetM9h+B69BFJ7lUAr1iOa8OQKdn7A/L85v+oCD sUfcG5eYeMjd8Qfsjt5nY+SQ5dAd5oJS4P4oUaeLzcXYb71gz7SVA6kRV0xh UaZ6NdS6zVSX4EL3PiumuwzmjdB3aZVD/V0eOjY4sN8Vabwn/kIskE1qanBV 6HWBmFGYX+cXtDRzdyr6fMD3V++iSRNnlT0lDL2CvnYHs2jV4a4DSeR7RPqO mLLeJya6dMF5n67Wx0Qmn/HB9k8EqtYJdc3g180lm+YyLOM2RPHovXjaJpOf RTVHzAmxxU0PmRS3FrwxxPL1Hp7UufhsYIb7LkncAekFyzqx3kQzx0Wxu5jp 7Hg+4H/4M8n3Zey1ASGwCFNN48dQ8n/QmtVNT7YZW44VX66NSKGdyRI706U2 2q43UHu1gdYMDT1ZRgazzLiz+gnmDBDJG2C8YIAJ4eg1TZgNbVDCz7rGw0qH jH6rTSSf/HuVmervGmjPGENfs4pFisup3yVs3iMqWl2Vvc2s+zN2Vp6wM3JP ivqetG1/7B5/XfbFNEXusj6yR3xkh9nwEtOBcUaGh/iNFy+sq6RD8HVYxnz0 +MJ+FVfTDmFBlKj+HgvGB6yaH2IrXmAoQ+yOIMwjzw73XA85cN/njuseW459 Voe3WRgSRWAWzEz4Sr2NqbbWz/F8uH4MTcaoqI9FdMpNTHIOrXKF3oY1wfU1 xgbuMiUXFRu+S8C4i9b6GdubokA2947b9Ws4DTGcPTMy4OPYtW68rUcplNI/ wZI7heeKi7lrVg5Vozy1rvGT8Xt8uPiEO/4HLNkOmLNuE+tflhD2NktOGgzP B/v3/jKl/9uoK7rQKuyYa8LJT8aaUimnutlEa2ZPct+a6xVcDjBaImq9cgRf 1iCWE/XUX6ml+aZG0tws33HgzncTLvQyUeojWiG6ocrDfKWLVRGJd0xR7vRO sGsaY6snzKrex2KneJPmQcxXjdSddKGpjGNsWsWmWcffu0V71RJ9zR+yNPOM telD1kN7gun70lvbkT1Jga3IHRn+HZYjW8xF1omG5xjzS7qtLPOvjqtdU6wX DvEK5k5hqIozULeJu3WfsJRPtOexuLMnrAnL2sq2xPLLyNs/4JF/nyPRUQfi 0va8ogc9ogddeywOC35aF4lZJqSkXExru1KD/3fZW75H03kPlecClFweoSJ9 DFXeJOqSKZGiUXGr01hqpqWilxmTiuy3PCQ0J9R18CmLgelkNw/1TGGTGDSM Pudy3a0o7T8wMXbFwYZoj7sDe6JUn3I09RN2Ij9m2/kh647HLInvmrPtCURK sdtmiQ0JuptNx0P/+8nN1z73Iy/eRIwGJ+mqMKOvDmKtSTXEcsGW3Dan6+nI tif3hwvGCZVFmVLEmFfNYr81SceFDtS31HSk9dMjUGfPDYuTH2O8YoIZ5STz oofjDaJ3G0ZYVQU4tMY5sC5w1zrLbn+Ujb5xliQX5jSJm4EDdJyx0JIdRVsX x9y+hKN7hZwbq3jFvCwsf8ycd4tF/xbLooC+xEpoi6+yPLLBooz9bGSViYj4 v2CU6amZf/18+AuNSZunLZvBUL1Cf8MOrnaxjLqHYvWesNj/MetDP8ZWdUBA 8SGPfR/xKCjDH/gxBwGxgIEnbPkEIDwHLDoFjexSXENC8wM+pnt0z8F+e+su vT1BqnPNFL0+zG1Jg/LrYWqyRmgpHKWjeJTu8lH6FGP014wzWDeGUy3pMfwZ a3vPeLR3F0t3SmP2dU/S05EC+brv9OK84GVaOGq575DN0MdsjP2Udd+P2XJ+ wrbrI7bckgOuJyw5RRk5BF+cmxLzxByiRAb6+EIS/MFfmgQzwTk05Q66qyaw 1aXo0HR6NrmtP62h49pwct99e16E27KImzXiAmnm/DFqr7XTIZjflTaMKT2E NWsUb0lUxJ2kYd0cS62LrKrn2VDPsNU2wZ5xjiPHOgeOVe7Y42wOzbEiyTBv HEndqmvooeY9P23lcUoFeG5dsVNZtE149BkTY/tMOFaIuleY8SbYXeA4KPvh ZSZHlpKTSP7QPMPuCAeH9/g8C/IkC4pETN6O0a1Yo7/pjpiiIxFaj5nq+5CF gY9Zs3+CTXlEpOkTHo98xENJsnvBTziQLt8Lfihm/5GYwnssuneZdcq5HSnr EO3V//tjX5i4+1Vf3UeT0nKs0P8mpRdCVN4K8fylKQ1hqg7RVxvGrApjaQzR 1r6R+vpXaG30CG44KP5T6YVX9Skc+EW54B8z5f9UTvwxK8MfsiZ1v+l+Ksgk 6el5zLr7IXHhqlmPjL9Xxt8rhO+WqhsNfXH8//pfOv7tBZ2iUfzHNPRz9Fbs osx/9Hmj1VfCx/e3foNlzT7WQofYu17aczzoMgP0ZowLQMQIlC8yplhiRrXM QuMSq+0rbOlW2NUucNi/ygPvHvc8u+y5NwW6VlmzLbDQPyWA7KAuu5O8c43c vtIt5aMj64RW0NSM6pqZypMa9LedWDURbN0R7EK/tt4IruFpvKE4w4FFItFV Do4e/PbxkHeKGNXmJzz0rKi8dSxN+zg7jwgZHjFp/oD5wafJnrSr7jPR+RNx ik+4GxLMDyfiKXdC4hSDMuT+Ixa8oq294iE8MuQOP0shT+om/G9yR4a8RdFL W2JaTKJb2Z/sp548O0Vv+5P7FWlh6kRMJl5axQi6ujB6GXaD0GJ3W5Ba208J Lz1F2+Um670M3v2fpzj9rRtc/E46N76bSfq3M8j4ZjpZf34TU/YggZZZVlyP WXM/YsPzkA3vfdaEouLeQ2b9QgIBSYCAAIA3xP7a8vME+A+fG9yvvJAKHXnS TyWpxtlbtgjpDugT7k6lwr+i+daxBC3dZLR6XZBoNXWB2UNUnh9EnT1CT+4o lpxZdDfGqf96D1qRdEOnbYxlhpjM9TNVIGApmmClPSpldV/A9R77/rvseHeI COE1l5opF1OhSlPTdrMRi3jBxrOdAj0m2q9Y6JKUaDvZRsvbbdS+2orqio62 WhstKjsNKhvVNUPUi0f9h8nr+huEQot060MoxU82llhoK7LQnm9BnbiNL50+ 7Yzzt4/zJOaOo8n2CzzEknnS17THcOchAcN9xkUVzg4+YkkYturqnAD+pzyc ecRe6DH7YYmRR+yGH7Ip17QSOGQhIHkSEGjwTTPj8nJneeF5nrQpDHQkZx37 6ZbmmpWpO9lehY+QIpDcL7gySnF2igTqRKw21kRoFupsbh6hqTXE1SIrV6+q eOdbpzn3rXdIe+UCN7+fTc73sij+TiZlkieV38qgSnKl+uu3qP7T6wxmW1h2 iw1OSBjhsGXffrKZs6EdYmFJ6VCMGV+AR0eHIouPJ+G27iVn9kck9B2Sp+og E97UzP7u6uEfvJBOxzD3HEu+/MKdcLU4Qq1Qn0Gx9NVjFNOXbGFVHhBqeoCz KjWr05vtpOqMTbTmJKaSOfoL4zRcWMeQfk8af4g79y6h/J3jE/0j4rkhFvOc n0OTPb2NyputKG9JftxqRnujAd3FGvRXVLS9UsjwpU48BWZ0F9rRnlOjk+g8 3UbbW23Un+yipMJGg/yu6f1SWn+YwUB2M7uxtV9LXsnfJhJeQFHZR2OVhQ4J g6SmudyCVVJrqFjSqdDCYK4FS4YF03ULC7ZFfuE4tfZWD0QaewSGRNJUrWJs 3GWoYx9f9wGj5ntMDwq0DN+nOk3GYeBT7s8fsRO6LyklpiOc2L/HRkjGLLTP fGK8QsJ2gSmmXE4eHO7/2+PU+tk08CBaseu9NV4hshTjhERrjNentMRsaxRD 6URKY6gmySqN0N88RlfpANff7ual//wj3vr6SU59/X1u/cFrFL50lvyXMygT CKqWqHs5k0Z53/y9dIk0ml++SctL1zCcqhJSFBMmKLkQ2GEuLPAzIpc0IkIh HGVpeoZfeXGVR4UFhUS9dGOrdGOHdKO2wIJOulGXaUF/y4JXFeRg5TDFWfzH z5HrhSmQn2PGvSx9GxFGX2KwbVdc9eFx7n2ZgeotvE13Sf0oxVzmXB/K9xw0 pM1gKl9hsEzyu3BPoORDWpp/SnfHZwzqPsPb81nyF9N9n4k9+DS5v2J+zKg6 pYwaMnV0ZGoxpncxeLMDw4kG2l4rY+DdSrznywleLGZY6tR5tQ7blXoslxox n6nD/JYS46tl9J/NlffZorCy0L+dTvsrN9mbXf3VYx9p7vHRoDDTdrxqo19h YVhSzyN9FpAISb+Fy1J3yxLzZomZP6ek36go7F84nnkYljHXZE+I61nCUL/J QPs2bjHWod49Jq2iEewHKHK2mRv+KYeLd9kIHoi2TITsi8taDd0RUy1yd0TG MrzIdHCUhYnxVMr9Fntbe3RV68Te9qOtcWOoCTGgHMOlPJ7hbpgj2pIq8MWu ePLmcuK1ql+QmMNysQX9OxrSBL1OfOs8J77xPi/95rtc+c0foPiD1yn/bi7K 7+XT8EoBLT8souvN29JTRWjeyELzejqa126geeUKfefKRANuMhMS8zciujCy xFRkgbHgBA/v3/+lF1b6mI0hVNKTDYkpX+lNrfSkUXrRfNvCgPDDoPDDkPDD YJZEuuyL7IjU+FO5B/8lufmq1PQ9urLC6KoW6W+VHOveY7z/4LmbtijERTbv f45OPtUifTlems4Mo7wh4rNyjUFhUadyh7AoksmOA+Z1hywbDpgwprz++NBD pofuJff91l0qcrXJ/dYioY6iIRFfNlyFdgwXTOhOtaL77m0m3rhNNL+RUFYX I1kdjGSqCaW34LtRj+tyHfbTSixvlOK4XoT9ai4DFzPpez8N7Y+uH9fmLzNg 9NCi7KNLZIyxpp9B5QBuxSBBhU1Ev53JGjtRYd3puiEJK9GageTd28T8bVBy MNrkP56V+9+EQn62jiOx4mvSLyEUMu5Ozd7trdyn4+aouPM5SaBlesVM2LWb +IxbjPTvMDm0i6JQYM/7U/bi4vD9u8KwEkHZD21Lbm4mHf90ZIWp8CwRX5gH R0fPITE2Mo222nC8siGMSfJyUDmLtzZVwZNtAk+d68n95cTN3Z6tFBsXDtN1 QoPpSoS8Nwq5/tolbrx5ncs/uM7rv3eFU7/5HpX/+g1a/uSq5GYZrT8qp/Ot CvTSvaZz1fSeKaXnVD4972ZiPHEDw+sX6btcxFg45U0iYlDD4TnWN7b5peMp 88S6ryZlat1Xa2LaXLrUIAlqlgQdLOtnuLQfV3E/npJ+fMWJEHgU1vHlSWSa cYk4ur+0/3sv3NITbFRfD4jVmMfUtIZTt8mIefcYB79MR8GCWJB1jJVzn08a +Ovn6c1y0/iejapL0nsV6ww1rGMTSRRo3GKyc49Z/T5LRgGH3t3krzYsq6yb 5ljTx1KH+QeoC60YChwMFLoYKvLjLfMxmGml/gd1tPxxDtMvZbOYq2Dutolo cZ+EicnCbsbyuyR32/Bfr8f5fhWeGxVycaW40gqwXcuk/9wN6YC6VJ/9O6wG B2qlkS5RU4m71EM1DryCQyO1PiZVfmYaA8w3B1hsDbDU5mNJ7RW/6mKhOXFj fpBJwa2x232Y5bfV5eIxXlhC8+IcZI+oJ72Agas+ROt5N+3ZM3RWLKJvWMLc scywfhVv7zrhgQ0UpfeYDf6Ujbkl5jwbzPkkAuvMhleZFmyaEGwaiyxKWUyz vr4pRfLsC+soI4lykTIZ90kcL478W8eo01XWKgpiQHI6IDElo7eArWbl+YBO d94RFNljyXD3eED/MaZrNjTvhxks2qS3MsTN1y+Q/qNrpL+aRvYPs8j8Rg5v /tYtcn77AprfP0XL60o63q4RRKmh50wtfRclzlViPlcq28IkYZlP35C0PofD 6MQbjuMRnT0WjR+ncmqNYJsgiLpW9LagiEa6uUdhpb9qCHvFMO5yB/5yJ6EK FyNVLvETTgkHkSo7kYpBRm8n1gj2EkzT8oV8/qoAwgbteTHxTnGsnSv4TOv0 lo0/7wF95bKktVir4pHjHvgtRlvnUb0zSO2lCdrKVhlo2sSqkJ82rjHetcm0 focFo2BJ32aK4i2Lks6pubRmyUV1QcrK9RaEsBWF8JVFCFcE8RYMoT3VTss3 bjPz/dtsVRhYqHazKFcwV20nVjXIlCTVaImBcF47wZu1eK9UMFKoJJhXjjdL VOmNDMnpqxwsrfyd5BX+K/a292iv1gv8CsyLjLPW+nHXhhmpG2WqcVzk2wSL 7ZOsdE2yrp1kQzchMca6Tmy+Jki8w4NX8KP4WjNlV5tpzNHQLWRnFiwZlPwe TqxrSkyrSm67BK4diXWoIresNywo33TRKqigVsTRNccxd8axGUQ6qGdE/Qod RT5ldmKHzkYfmkavdLG2wSVaS1PvpKPOidkcRt1g/KfJS/mFJNRVSTnVSrS8 sJZXL6fVH6u8xGrcueFF/ubxHTRtWVdyeU/iLr2ucpZexSr2um38zUKwHYfE dEcs9jxgpTdxp36C+rfd6G9u4RIvMW6/T+X1MjJevUzGa+lkv5pHwavFVPyw lIu/X8zlf59Nw++LXPhWGppTjXSfacJ0oQHzpXr6r9QxcEUh2wr6LxfTfzEb y5mrAoYFDPgWOXrwlL/zs5WPvyoOLuXiEq8e5bDIMzf2Kh+eqgDB6hAR4Zvx uhHBoRGi9WGJkESAqTovUzVOolVWpkp6WOwY5ne/OPE2UL+Euky8qwzBkG6J /sYpak55k6fqKJ2lPt1JZ0FqwaVDFSXYGqP9ohPFe2Hqi5YxNW4wWL+Aq0HM W8cKk3qhOeMa830ryd8s9c2yYkrd421M19JyfG/XlD+G/fYkAcU0YcWoUIyX 7nM9tL6sZOY1BSslvSw2jLHcGGapzs2cysu0pOiEqIORMiMjea0EblYQLlBK DdcQKqzAm1MgWX4Tv0Lx83+pU0y8/hF2gx2NQoRMTcK4JFZlTRBQTTPRNEtM PU+8a0H4ZZFNwyI7xgV2e+clZtnpnWHTOCVF7qYyXY1SovFWC+3XGhkSBnVJ 5vsq+wVq+olU9n8pudLs7xNJaOfS1Apnjyi9hlMuGosWRffE6ZJeN3Ym/MkU RcUbKGVA80Xq511po/RKK9WX26i+oEZxVk31aTXlrzdS9p1yir9ZQETvOr77 8HxduZn648WFWilAoxRgv1TCYGJdeVFqXbldKmEooTbF71gu93Fv+ZCff760 57aIl/LUrIW+Ik6fcpPhxj0C6iMmNI+IGZ4QaNii9EdDqN5foaf0CR7jR8S8 T1n3PCbjh+fJei1NIp/cV0spebWS6h8paHizmnP/sZyS/5KH6X/cxHRSJTpS Ta9co+V6KwM3m7Heqpeokf1KBq4VSVVkioW5wP7RB790vMgm8Ro2pky4tjax 7jaVSGZFAFt1RGTjGEHlJJG6KBMN0yINZ/BLUrlermZbzPZc2ySx1jFmmkeI 1XuIidScrtDyWHzF77y4/uDX6G9Zp6UyZR+s+jh1F30pEyamuvq6ndbcVH0M 1Ij9aJpkqCJMzUkvVRkLaFUrWBpiDNXF8KkXGNEuMt6z+LkQCqpDeFv81Fyu Pf7sH9KZHsaYO4G1eAqX9L5bUN9fOkrP5UFaf9jEzIlGdgTp5yVBl9RST+1T xFuCxJpDTDV4GK2xSk3oGcmvY0TqYbKqkUhZDYGiMjzZ2Qxcv8BfVhBfOsaA vc2UuNIKk3SLi7fURHHVzYtbWCLaLiP9upHpK0a2TJvsmjfZ69/g7sA6d62r 3LEuE9WMUisOoC67i5asTjQZHZhuteMSGRlWOBgXqTQltTujckjXO5htEMZS pRT9hKI/uYg+XNCHNW0QZeE8dVIZLVIZWRlmbl3vpTy/j/J0DZWSMSqpitZE XFTTdrZNpHAtna8qaPsLBS3fVtD0zTLqv5Ep5nbt7yUv729iEXObULvPF4j2 SK32JxYPSXm65NQ+KZJAmeVLSXf7FYJCWD6pF29iZeutvp9NX6aGSwqluBdt aWp+R1+xQl/tDsPNhwQ6HjKhf0L1mQAFr0epv/kYk3h8j+OnLPh/wh3nR/Td 7hUpdJWcV3PJea2c/DfqKH2tFuVb9TS9qxL6UJP+/8jl/EkBrrduY88xYM/W C3PqsAje9Ge0SDTgzBPRmlMtJqhUGprBisv6vFA+X5yeWK0pPa9TBjAqU8tv ndVSFDXiXVQLAnfisVuXJNOESL/TznLuKB8ZIsQ1C8x3zTHbESXWNkqsyZNc RzRV1fK8UP77sY4c8x5Qd1woiZfyxjiVtyYpvGD7/GZuT2WQgbow7rYxGs+6 Kb00Q1NVYtJ1FpNiHFvLNO7OGXz6RExib/Ey3OTGUtkrMqoF1VUzjTc9dGVG MBVExZ/EBGlnGS5MzPlMSs+M0vpmB9GT7ewKL250JBaYLbOkSyyVmmWhPSKX GWZM1ENEhGKkrI2gkEW0po3x6gbCZdX4i4qwZV8TzfecdFN3Ff+DuPzUjSyt sG139WRyrbqnYZVI2xaaq1Gh9GU2W5bY7/SxP3iXA9s+9+x73BveZbZ7mvps 4YhcHc25PWhyTJgyexlKN+EvGRK2DjHTFGK+JUy8LSSlHWK5XdyD2ifvhfIS zqFehJ2UyJiYlmijE4NcUXHBADev6Mi91YdKyqY+s4u6K2paLqvpOt9C99lG zKfEfEv0n1RifleB6S0FBikTzbcr6fx+Jnfn1/i7xwkz0OMWF9iXfMxGI2ES kz0oNOustuGvGiYscnlUynhC6RBDPiyKQoy5cohxxYBI6P7k0t5Qtok1++zn szvPt186JpdkHxaHklMjuoo1+uruyEgfCUltcvm7PvLevUtDyU8x9Twj6Pkp S54fs+P6mF33R5hLzeT8II2cHxaT92YjhW+1UvZGI7XvNNPyXjPGdCM3/0cz FV9XMvC9IhG/TQTK+4SHexmpFKlQ2U24UkOovE1GW0a8tEqYIY813/AvPb8j nzTv3almKoPoJTF7q1Orsjw1S4TqVxlrXieq3mC2c4uOkzKE50I80Kzz0JF4 oGOdxe5V5nSLxJKrGIVk2gTtmnV8sLvztRfKJqXp/h0NXXGK06Z+VjvZXtS3 /RhrglhF9DjUI1RfkXrKW6RNwLizcgSDahyzaHJL2wimusSTMDYGVXY6c9qo vSAAfGWQxht+OrLHMZbEsFbO4xGUshdO4hMxF6kU2XFSz9QZPXdqQ+JPRe20 RZnVzLOYXJ4nZd8pWrLVR0QyL1KjwVtcIlnYyURtixioOvxlpTgK0zlYix8v bP7yF0b8Baj8B6IlbKKupeFVswzWrgjzbTPWtc+s4R71efeI2R5y4NrhQU+I e86H3Hfd58h9hKlC4DpXS2teHx15Q/TkDGPNceCSrS/XKsZkSoxJNHXmf8Km fpIXX/PtXun6YaYFAidKdKhKulCV6rgpiFp5SsS3ZKw+sYjwTCO9Z5sZONeC /UIrTsEb9+Vm3FcacV1S4bhQy9AZyaq3q+l9pUwqKI2DhdVfeX6zffsu7Upj Up5raq1SOHYGRVS6FF4CSr90X5CJumByxXlMCn2uOSgRkPAx25hYL58oJinw ij5G87t5uL7/Yld+oXbyQ8lFm7rKdUyqfWyt93nvu5PkXP6I+vpnGAafMT38 MWuOp2y6nrLtfsKO94NU7bySJfVTRt4bLRS93U75iVbqREx2XNVhzJKmX+sl 99vy/vsiGd4tJSCuP5x4LE/Rx4hc3ohC6qe6U6KFcJV8p6KY9aDzee04u8Wb VvUdK4hxdDLWfVVLyfe++i1GmneYbN9jRsY9oJhH+/owGzXrPHXvsdZ7V2KP JdM2c+IaYoYFcV1TxLR+Yl0W7kanvvbi0u7U+snEnb7Eq0eTmnG4+oM+bpx0 J/cVOQFay6WzRNgbm0ZoVo5QkL9BVdE8lfJv9eUjIgTCtJQO0VE2QLdYo8Sr VfSL8qwG5SX757qs+/Y8ttIY/so57MVCTxWLjCpXaDrTy/iFXnbrx1jRbghj LrLcLWwqKDDXuyxXMiNX7CVYbyVcp8VXXsZ0k46J+nZGahrwV1fgKM1iX0ro S8fTV8uLawxZXFw6kU76icxUE/4vil/LouAHGQQNbjbn1lKdXOqSwpqgp2qR ofpNvOo9xsSqzpoeEWp/TFfrh6yEPuLRyF2e9I/ywPeUeN8qrdkdtOWZac8X y5vnw5wbxJ4XErETZOS2V3zPIqu6OBuGFKPvmBbF9yyI75kV6TfDWs/xpE5X gFiLnY6MelSZTeSdryL7tUJUb5WjO1lB3/vCORd0DF3W47puwHfTQDDdQDhT TyRTy0hGJ6E0Nb4bTVJldTjeq6JfrLPp7Su/cnxXp71KK1TUJ0LfRnetm/4a P04Z0UDNqGiXCaYaRcy3TCUfDYiLGl7uTMSkxDjxjoh8LupYhERMdSxEvnR8 l/ZF+ZvsS0kJbUEsee/RqNpjsO0e3arHlLc9o3foJ8xaH7Nof8yKI7HgITX3 veV9IDquj5zv55DzFxVSXyrRey2Uv6um7mwnHXLNxtwB+gsHqThhpOrVdgZP 1BDJlRpKSHVx8pFaqa2aHnmvJVyrllAJZJSyFnYfT5V/laXFdax9Lmy9bhwm N06jC4fB+XMvVIK2rF3wdSi1X5ly2ebqDRy1KUU/qj5kqus+s7oHVP5Fr3T/ MvcHHnDXdciG5UHy8atly11x69vEeleJmWZT6wx77NydneVF4hLxty0202RI FV1XZerR5cRLc62TyjfUyf30y14K0rxUlwVpqBshP99CWcUwBRlO0i6Lvb3m oOCahYocK3VFQ7SUpRZ+1aXLMd7TpYr4RoTWnNSTgo7yefF1cey3xVAJf0Vq l2m4YGbsmpk7Yn7WenaI69eY163IZcaZ7FkhKlkb7RlnvHOIoEojvy0Uxm9g vFFGoL4JX20Vtoqs58/z2C0Orp0U53oyk9sns1G8m3OMAf9ZpGUOra9n0/xq Fqrvp1N5ovS4CKcxKpYZatrB23nIWPdDZs1PWLF+xETPJ5iMP2V7+qd8NH3E R7YJXDU+1Dk9UoAOOvOCdOeN0V8wibNkimD5JGNVEVa6N9gwbrLTl5oa2B/Y SD74Mt8+yazI56mW1HrJ0SapinQlNRdKUUnx5b+louStBppOtqL4k3IGTtQx dKkPT5qVYJbQeK6ItfxBJgutTBX1M1XYx0SBUT7XEsxU47+uwnO2DOvbWfjL lfyNzxdrfuWF9csaoQGtsJVOrsRUM8KQcgJvzTQjqhiTTXOidxZY6BQk1MST MLKuX2Sje4H17jlWRdwvCa7PdSXW/Qu2NwymIEbk9ecLQ/8l0445tOlutLki x8pXMdTtMtB6F5fmgFDPPcbNR0xbj5izHxF3HLHsOmLVc481r+RlsZHsl8VV fa9S2K5elKKoxNMd1Jzroiurnx7pAEuxdFz2EMVvGOl4R01I+H20qpewSoBa JSZUZRLQ1hNqaJeox1dXxmrE/aXje4w2weeL76Rz9Z0sMqSv8t7KpuiNbG7/ KIvSH2ZSKvnRLYC4Pbv2ogz6slzLmMQc3RWrPH9Eb6zjEVHdE5E20/S8Py2+ 5SGHvg9Ztz5lw/qBxEOWrfeYH9gjZtkk1i/Ssl9gz+JmRt/+tS/esugz+Kiv NidncnoVqap0V6W2iclb7duq5L7uZDPlZ3upPN8nqd5B3mtdnD/bRHNWhRhB Fdd/oOL8uxZuXuw/ntf+dUreSVWl6kpAXNh4qiqrpCrrFrHdnko+YBhWLdKV FmVP6PCpzS8VKYI4UZUiimf1y0S180R6Fhjrm2ai1yeVqcNTXou7oE48bgXu mjo89dUMVGUmr6ixvIG007fIP51B5eks6k/loD6Zi+ZkXvL8xlO5mOSzVG/+ U2pOSnLensGgXGOw5Q7eriPGeh4zpj/C17guFb/IsGoLq/0Zd5ef8Wn8CPUN JY3XTTTectKePSoZMoO1ZB53xQJh5bxIt2nWTPtsCUDOtac4cVQRYUIxgq/4 ZzIhcr2R+exOGi5V0HqzmfYMPaqbDkpFaaf/j3Yu/24Biv9UgOdcN8FsJ6OF PqZu+5gpExlY4WWuwi1bBzPlQ0wknvYsMhLI6SBws1Z+U4j13OXjWZl//AX+ +pzDEg9EKT3olaP0KacZrpkjoIoz3rxC78UhohXjUnwbrBk2k/Cy1bvBdt86 W6IJ1kWuLBsXmTckHs8YI6YWs9+c+hsCz28PvXjOjqt2tJkT0tdx9DWb9Im4 s3fdwWfYI9y7z8TAXaZt0l/Dd1l07RN374uX28OvGSHz29lkvVxJVqI632qj 5L1Oai4llvta6S4YwnzbjlX6QZ1mQ3HaiPV8KxN54tbrBcUb+gk29hFo7sas UNNa2EBLXhXmtj68Q1Euv1HA1bfzSBf4zhf4Ln0nh6oTOdS9lUPD6zk0vpZN 0w+zaHolg6aX0+hPa/jSMbZpi3VyOR5B9EmJRborN7DU7uFoOiKgfsSY5inR 7o+ofN3HWPk9Djw/Ycv5MRtDEjYpWNsHLA89YH7wgNjgjnia5dQTfEMyzMbO r714v11O3ONJmm2dGO3+mn7hhdRTIWPKlA6dqbMSOJ59H7jSjPl8Pd0nyun7 o6ssXzGw5F6nMOc2xUofb3+7hovfbCTrT2qT38/7fmNy23ipgaofpJ4LbxTK 7cxKFe1w9WzyzxP4amZwVU0LNc7S2yiiZuYZh9P7QqFLLHSLfpWY0ceZ0s0x qp3Cb5wkYgkwZjSJNazDVSz8UlSJOa+AQcVtfD3NNJWryDh9k4L3Mqh6Tzr8 vQI6T5dgeP82fedKGRCuGrp0G9vlYgn53cUc2t8pQvGaiKb3E/cd1xho2cOj kYLt3MdcMcOwclbaOC+0LW1u3cAZfMaD7Wdo8rroSOuV4vXSemMUY/48g+XL eJSrjIhTn25bE/ARUdywIOYlpYrcV/sIXTIym2ljrSK19nDftMyCNkJbTgvq AuFm4ceWbBfl71vJ+qaNi3/QStZ/q6T1jyoJ3ZBCKvYTLY8wK1w9Xz3CgkI8 ncLPrDBitNrFaMUgoRIjwVxJ2lvlOK/dFPFoPbbJPy8af52hPhFzIuicIuhc PS7W5teeF1gKb39Z6jmMvjqKRbGIs26VUNMm6oshdD/0s5zvZamwn42+fbbN ++z273NHGGJnYJfNgS1WLGss9MV5vrZ3pqXzRbxIQdafp9ZC3Bihq2AOTdUK BoHIgfZNHPotfOLFwpYdxiWXo/YdZhzbzLq2kyvhZwMbpH0znYxvl5Mpsjfr RKuMeGIVpVl60Yq20IaxdJj+Sic2hZPSs4O0XTQIlDWLxDXjbxpAXaIl61oz edcaKblST9nFWhqyusWeVpP/mkLsjoLClxWUv1qC4vUCmqSs207k0SGheTsX 7YlsNCcy0b6ZjvZHt3Dm1CcvT1sgFFDklXqeQluyhL5yG3PdAY7mBwQ6PmBU 9yHV5yP0XhMo7P0xuyMfsSo1vG7/kA37U9aHpY7tj5i33yPm2CXmPH5W0+EX yog/18J/eAwbAwYnbQqjoGCqgD21TlH2KRM615SaMFhWe1lt9yT3neJ6zGcr cH73BnczWnii7hPT6GSgwYbyWinvfzudV7/VwqnvmMj7nvm5dDB+s4iu1xuP ATnx+iom0Yy26mn89TEBxsTfbJjAozq+G/LrTOvmhXNTK6GieuEx/Swj+kkC +gAeSTuvsUeM9Rhr5g768ooxFuSgL0pDp6on69Q18t7LpOL9AhreK6Xz/Up6 ziuwXFJiu1aL82aNyEol3vRqiQrZv43mVDE1r7ahfKuP+qsBLM13sDZvyUCk YMcpnBSsn2G8afb4En4bq22HjnwxeAVuOtO9qG9Oos+exVq+gle1SURyvj8r wuA1H33vCCReTq1rXhcO39MJCA895CD4kP2p1AImu85JY0YHtdf0winSjgtD NF8QTrwWIu8bHtL+SEvJn9ejf6meqQI/i4oxKd8J5kXELtSMMVcTYVoZEm4X kFe6CVdZCd3WE8yvx3MrixW37fie8Fex97u48m4GaSID898W+ScysOKN7NSl /RNKhV7CutRE1UwwtfZRWyn8UjlBt8imfkE6V4PUWNueWEXppvwjlvqOuGOe ZafOIVJDVH/HOhumO9yx3WNL6HRVanFxYI2YOfFQ3QQxg3hbjZHHd3ZS4PJn AsRR1JnTdAiFddUu0dO6zEDXKsOGxHqRNYL9a0QG1xi3rzHhWmXSt8JEcJn2 YgO3vllC2l/Ukv5mC0UXpAelnNNPKiQTarl9po7Ks3VUy9ZY5qTqipW+G1qc 2U0U3Gyj8FYrpbeaqb7ZSN31epqkrKveqZJsqKb2dQV1UtKqV5Q0vFxD4zeV tH6/HN2pUgySXSYhh94zRfSezaf3/Rx6T6fT+/YNfIV1aLK7pGuknAuiUs7L 6Kt26FMdMtzyUAjisZDnNpXviHFqeMz2yKfEE4vrbU9YkzJeE7e+5hD97LjP vPOQmOd4Mb03Rswt5bwa/9qLa+x+jslQNLkSQiM0bJEqdtUGPp+yWxDrtdI5 zob2+VOKf5tdw4jQtAbva4U8kDz5ad8gd7p7GLjYTHdaYqqqgmvfuc6tl/PI /0Ep6T/qOv7tv8Fwzo79jIHql1KPALfcCNFdNIa1ahK3aopwS1SoOiI6bgx3 Y+qey0hHVITIDJPa1GKRCf00o91RgoYxvHoPTk0f/WbRkjPz7M5EhD5vo8u9 RsetC6S9cZa805mit4qofa8C9RklhgsqLFcbsd1qwp3RjD+nWWiriXB+Q3Ia MZynEA1ajvKVVmrfMlF71pZau/93iLbNMNuZakZ9Rj+dhWF0RVK+OZLfwsSK 036qXhpA+4Yf2yWR0kV7zDR+8Lw3t8OfshX9yQuA9huiVEepvVCJ6rKGWiHp motm6s87aLsUxnBrksHcGOU/GCH/JROK76uxvKpmtnyU1cYoa4IsSw0xFgQI Y/UTyTUQEVHDIYWdUJWQfpkY3PxiRttrk2O9trTGtVO3uHUqk/xT2ZSfzKH2 nVwahVpa38qlXQx/4tX2WhYtr6RjzWp6/oS+tjwoMY2hcomB2tSqS0/DLlYp OWXBIUNmsW7Bpxy51rjT5GSiep5JxSwzTXFW+nZZHd5ncUhYdEAUoiXxtGRQ qtnC/szEsdj+Oitx0Qhi8c6fyOD6W5lcTDyU8WfXuSxx6U+uoryspbPcg80Q x9kbxzsQJ2CPE3RJJP5WSTCOLxzn6p8VcOO7Cq6/oeDUX6Tz1rcu8v63LnPl m1dI+8YVsv/nFXL+9DK5f3yR3K/nkH+umduXG6mQUi5PbxEIaKLpVgNNl2uo O1VF0zvVtLytQH1CSedbNWjeqEXzeh26V+vQf1/iLxSYLyoZuKzAeqWKQSkA 65USrJfyGTyfwcB719C9nYY2W+x9njB08RI6Kele1UHyZran6yGlFybozd1j 0fYpS/4ndNdFMaqiUvZT9NdNJv/EVkjM5Jx3n5h/J/XcQ0D60evjg6NDvlDT /4y2cnXyL+P1SDbYBN/9cpiJphnm22dZ1c6xZZjnjmme/b55DiyzxJvdBN6u 5aFkzrPhMPuDdmz5WoakO/rO11J4sZIrL6Vx8+Uicl+tpPxt6YYbmpTMzvAJ Yo3QdtqJ8k3PcWb/Jr3FQey1UqPN44TV4yKMggypUpOxHsGVQMcEoa4JwtoU UfgNozgNIez6YXrV3fTebkXTNYxZLZK3pJDWghvUffcmF/7t62T+2VWKXymk 6X1BywtNImxaGUprx5XdIRnfKYXXyWhJB+O31YyXtsi2gUhxjeBPvSCz1PSZ ISou2o59/h/iU/1sFmW6M3X3TXXBQL3wcKf4YmOleD4RjLe+v4ql4DGu+h8T 1j9jfOgZE/5nhEOfMStGaK5nj+X2deIdq8x3LjHTMcekekqOpUJ1Rc572Urd RbtUuFihy+K7M2MM5M3jKFyg5u1JSl+10vSmDse7WpaEn7e1q2x1xFlqFV3T MkO0aYLR+iABpQN/lZmQUkuwvFKOcYF1qe7EfYPEM02F72VRdTqH+pN5qE/m o3m3gO6TBRhP5WM6nbqPYDiZif6ttOPx+rdiAEfQls3SUy12RLVLV+6MpKyk YMEs9pIFGoruMzz8KbtTn/LB6B2OdAFidYtEa+dENwhGS34tJuZ+h4RtEn9U aTAiZT7I/lw0mZWq8iaunhTtcDKLvHdFOxz71LLvSXv//BaFf3aTwj+9TuEf X6Xq1VIsxjiD/XFstjh2p4Q3zpBfPgvEaW/3c+6lDE586wzvvnSBC9++nLqM 36Xkm9eo+MZVqr9+FcX/vEzBj/LJfbuM/HcqKX4jj8oz5TSltdAu8N9ythb1 6Vpxayq0pxvofq8Jo0SvRN/pRvpONWB5p57+N+qwvKnELkQ/fKseR1qthILh m2U4rhfiuJxB/6kLaAShtJnj4gXionm2pIL3sbYcUp0ZFWc1j/r2NA3VfvJv GbktUXXTSO31HpGOPTRckjgvKfe+aPnMQYIJrROaIurxPF978J+Tm28wFRyn s8KAToxXnzKCs3aGcGJJQ8cycf0qm8Z1kVTrHAyscySjsdw+SuB0O48awjzz zfEoPMl4mw+XYgCLVIv5Zi0lr2Vw4esZ3BSNUvJuA203dBiyjQwUmXGWDzBQ 7kRTGqHiZJCqs6M03IqIGQ3QV+LBrvTjagziagrSU5HS/NZGqeTWMI72sDB0 6ubtYLcoZL2X7o4B2kvVor9aqciuRllUQU1xAeZGUZffKeTWN2rJ+ONqiv6w iIr/lEn9n+ahFdQZztHhLdSL0exmtKybiQo9U1VaolWdslXL+yYipbVUfU8v +qif/NOpuzmtuSkFPSDm1Vk39vzm1XhnCnga3tOiuuimoWBeHOGa4PMCOTcf odN/Rs/AM4Z1Bwx132O0YZlo8wpz6tVkgS+LxFzSrLKgWWZWs8hUZ2rWvP7K ALVXHFLw7s8X3plzF3CUrBCsXKf5XAzFu3Y63jfiP29kvTXOtijeze4VOe6c qAwROCILgvUefLX9yduyQaUAbsZFMk9flwJPlwLPpuq9AhpPl9Bxugy9iBvT ucrU6d5j6HKx0E8e/eczaX87MyXEi0elxucxVG/QlDFJS/qE6KQY/UULOEuX 8FcuC67t4PQ9Y3/hMz6evcfj/ohQ+AKTojISk08jzVPMOjbEGIoYHx6TGrcR 7DVyI6EqTmdI87IoPiV1fTIXlSiL5hO5QpuiLhJTCN9JR/Gtmyi+eR2FFGfF H12gXfRmtzVOt9C4ziFF41hkbv0eTeX1nP3uWU5/6xwXXrqYbH/+S9cpe+lm qou/e4um78mxXs8SbVcm5yyn8O1ibr9RRP1bRXS+V0nHVbV0cTPa99WC+52Y zmuwXNBivahj6JIW+yWNiLQO7OfbcJxpEsytwXZSiTu7FY9oQo+Ya3e2eL7M Cry3CnFdv0X3KaHxtLCo8zmRQ+t01+5gabnD+z8apOjqMCU5ZkqzjFRnSFGn 99B6q4eOGwY016Rar0hckuI+r0d3RuKkll75tzsbG1+o7z9lJjSDptwquj9E v2Iad0OcUfU6Md02y5Io25Y97g7tcySiakUzS+CsiUetMZ6FN3k88f/x9Z7B kV3pleAJSbsz2hkpZrU95ocUs5JmR7G7s6ueCWkmNqTRSqGVusUWXTdN0VSR RZZDoQxMwXvvgUwgvQHSIBNpkN57bwAkbML7givvWMVuUiJZ+2W+RDWliV1E XL5EsvDMfd853zn3vfvdXJm4Tey5KKtbM8gS3rIyC9SVg+j4ZBA9lyUYKVPR memhbyfl3OeAn+1ClOtBWuhFiO6I6FYMfRWzELRloO6bhoUyt4cTgl9IHNDP eH4tLwwDeX2TIgqzisHXhDoKucIHQa8W/G4VeANKDPYL0UZOu6GjHXqRAZ+9 N4TPPtKi5GMz2s86wPnEBsWnBkx+IoftoxFYz/QiViEmFU6Y5pqwyDdgia+j 7QQWuJTNh0m5N4vR/aEJrRdOJ37fgpGVgKtQVCP3k1QyMzs5F+XgFbvALktA 0LIIRc8KDOxVWAjk5vZZuDpnERxYIM28jIx4DcvEoWvqLWxqcu9R0WfdJpa1 a5gvuA9RuZ10epAyeRS8Mubl4ImmZVi7NuEf3ENi5DZmBIdQ1qxCWBqAodKK 9SYbDrS5wkV3sWvZxbo2S/ybQWI0jqjUjahIg7iIfGZZCdqv1aPzWjuGrvVB RKBWXuNAdzM3QUAAZ5UQ3lohAvUChBp4CDWOIFg/CF9tD9RXW8AjUSq4aoGm n7J16yK41WmMNc1D10Eqg643OEQieWQT0/wtRMeOEEy/xIP97/DN7mO8CMxg YSxLWXweCXEa0wYSl+F18owzmDGb0VhciyYinvZr5KZIWXCudkBMikJxpQcT Rb2EjF4YinvI13aRn+2A+kITVJ/Vo+dcOzrea0ZHmwWtDUa01Rrys1sTjgU0 X2pB6/Um1J+rQy2xQu6n/51WcN/rOJ1YyL45TJmTDXbR8KsBFFOJBJMXSRSe l5OV1sJIGdNaboKnxg5/nR2hehvC9VZqZoTqJhGpnkD0FgH6Oic/STDWTSKx W4ZYlwSxDj4ZwCFEWzrgriqHqioKNYkedf8mGeI93LruRRMBtr/FAlYnWbDm SRK8k1A26qElCE3WklCt0cNSo4OtWgdrtRbWKi1sRDAOIps5QTRXG/RUnzMI /x0o6RQ0g0Ho2Bk4eGukkffI4x6TfryPHdsjHJOWfOB/gi3tNqJlHjyjdPNy 5gG+WDrC/egJjkO3seenCHWRITWnkNV44O0XEKIGiQfJypSrycIYyG5YYel3 wjPsKSDlf8ec3P8KJYNkXEcHKQ9wCOWCBKTdzJv2MrYfEgEzoieWRcCTMa/9 dnbo0Unev7NHiY5uEdTdYsyMEFLFpLd5UtS9fR0NxPGNFxRoLTah8moIQ5Ux KOoSsDTGEGgMIFlnwUyVHJkSDjI1HCy0i5EV67EoVGOWL8PUsBBVb9xE/fun 6P7XpMHjr87Zxo/AwmMGmeSNdnAuOzFUEgOb8pmkJwsV5TFF+zwm6bOd8p2f tYrYyDI540VkePPIypfzNZo39OtY06+9msMqLA+CWxkldZN69V2cu/fquEz4 teELx13c8+xj3X4PW64TbNh3sWxYQEIeQXjUgciYFkEBG8Nlpegqbie09INb PAIZeRUNha65YhTOWhl8DXKEWuSItskQbx+lJqbGR7SVjVBTL/if8MmraCCu TqD/ZgicGkJzcwHN5EmCLIqb4TWk+OuYEa0jKr+NYOYlHt55ie9OnuF5cg5L YymkZFOIykKY89K1R+g+8zhoJZZpu96M3msdGCHUiq8OkBBmQXNtGIabI+T5 RuAoJytbwYLuFguDJSNovcFFB0Gojywxp0SIiT4btN1MZci+s2z0fUCK7Wcj 9HkI7AuD+d5iv98L4cfMawPjFwepH/owXDLMMOk1HhNr15VQFSnzn61VEUze dMFc4oGt1A1nmQveMieJay1iH/VjrsGAaJMLsVbKWM0WxBuIOasliJQNItFP XqhfTU2OeK8EiR4uEt39iLQ3wM9zQ1mbwThJPEFnElVXhWi4LkQ9XW/LVTa6 rwyDe00IeakCukqCb4MZTmruJjNlG6IWyukegr67kc6jw4RUmxmxGu0/hPUf QJWvchrDJGsRTsEWIopDZHT3sGJ5jF3XFzjxvcAaJfHgrQgeTZzgu7kX+GL5 EZ6knuB+8gGOYyfYD+9h00eJyE7J2xgkVTmB5vf70XFBjP5SFQQ5SUGwNhCs nQRrP58pFpMaDWCaoJ1R+uAXMPDoaU+BPTgNEW/m1ZAee8CHkWE/utin6vT3 0D3kh6hrApaeCaRyb9MP5LpRQWJbjOiQEHVvluaffQwWjRJM1FDV6WGiLpC2 hzDancT4ECVSziwSvAwl6STWhn3Y7tdhp02IlcZ+LPeOYHqIg5o3LxFFdOWP 2nKTeVDAbWW2kp4gc4p/CbWYvMX4NAYvOMAujWGwbhrC5jQmSYuMtcSIdWZI ya7AOkKiWkg5TUr6aIwEuHwlXww0OzaLJQUzAj+jZ7aiG7Y8woeuh8G6wegE ZQuT0z2sTUR420iLmQdSMQGD+rsbL3En/QAr+j0sWMnZum6T4t1EUpdEZNyJ sEwNN38ANa/dRONHbWAVcyiqRRgvGaO8r4CtTgVv0wRCbROIdU4g2aNGqleF qV4F0n2j9LuQvh+G8goXgk/UYF20oo+QPlI9hVFS6Jr2hcJt+wMEh7OI85aR FpFOkWYRVe4isEBof0Rof/Qcfzc7Bd+QFRGpEzOOOHwTZCdbe/NPNDrJKLCK ByAsHob8Ghea3Hh2mQi2ChFc1WLSFCLIK/noKRei95YAQ+V88Ep5kNzkQFbM hr5WAVduQtktBcSfDkN8lgvRh3yI3xVC+r6wEEb/BWpiuLGrLLCvE+NdY1A+ XsmMEumrrNDdYIonqmsS0FXFSP2mYCcf6WmchqPCB/unOhz2TeEbrQfJliDi TW5K4oRyUtPxOgVidSOUrEVIke9LstRIDsooXOn3ARZifW3YjrhInwZR8zkb tUUDpFmGSV+MEGtxMVAsALdIDMllKeQXx6C6ICPxMAFXA4mGTg8C+WnebmoO pNlezBK05gbtmO02YI1g9Z++j/TfK9S9TRLSl+EU71E4nCAz+QgrtmfY9XyJ Rc0xPBVp3NU8wtcL3+DpynN8MfVzPJl6jvtTT3Ccm/kfPcRmcBMruQJX9gjm 9ToEtUm0fSpE100lhglloySbNCTRLXQ67gLSo4T0BJ1SWuE7tZcyjgujAgdu tQVQ2uRH2S0jWit0KC6fQXl5Fh0Dubeoowj0mhEdMCExZKRenKRGnDmoRLhf Am8PB9U/KUPTO53oL5aRwtWQzDHCSGTjJLIJsN3M4f4pzLIlxNQLr1LjviKA Q9EkbrP4aPjJFSZmfw2178tQdtmPKjLXTbUR5usfYFiQAY/kr0iZBqvBB/ZF sgylYUjqohhvi0LamHtPLAIza4YkPTGLKAvf6ApC8jUkx9cwoyZDSrZnXrOI WW1hUurHEF41gn/Dh2FC+OB1RpnLmpmTdFCuDHDXESMnNTW2lf9uUbWFlPEA WbLuSxOrmFOvIDVJ/9+2ikjueaHGiRCR71hjDxr+sgN1f9KK5j9uQtsf54px sKE8OwJDmQz+DpKYFCWJvkmkByeJ6HSYYU1gZkiJqcExpEiXeRs54J9VoZOc T9/1IFgVKQhqp6BonsFk1ywcA8zb8FH+IpJisv9S0ipjC4iqyFUsvsT9Z4Ty 51/S5fsQl5sI5UaYhDKwKjvQXdxN92uIcisXo8VCqG+SPC4fo1wqg6tODl+j HEJC+WClGKwqMThVIogrhVAQ0icI5fobdB2E2ki/DapLLKgvjUB9kQ/V55Tj z4ugPSuB5l1B/vyclP98rTpIiweYbv8jKEj9qhqZd9o0t3wwVzJRaq4Owt4Q h6NpGs62eVhqKS9+asRG7wq+tB/k65mnBsl4DcxQ18WR7PIi1W5AulmCdFUX FpoEWOgQItPGQWpESo2DGKsLrVdKUXK+GtWftVHqHiKC46LrBhFXMRnbqwpI r5IzuKKFrkgHAzVzsR42cgg+OsfwYIxaBHPCFBYl1ESx/MzKpWE7Fvq1lH8X /uP3aqD8N3PGcj/nKW1Y8lWRdWQjc7OcI+q7mDE+xorjC0ypj2CtmCG79xTP F77Dg5Uv8WLmK3wxw9TMvT/9DMfph9iPH2MzvI3lXFkzdwyzJj3zlsx7JM7o KnrJQ/BaTJD32KFjuWDhMlP+/FIfQmNMD8cUJIKUzItu/nHyG0oZ2dxO1L/T h+K/7UPLeT46yi0Y6vTD0DIBe5cZ3j4LQoMWxNhEAsMUtMMkaNhKEpNSuIZG UPGjmyTgu6k35SSGtZA3maDvtJOQdsE34kGEz5iH6VE/ZmXMeYTVCYR1zHsl S9YU1o1hDF9sR8sbXSj/UQcafzqI8381jqIzYZSUz6OhaxHDrCkyGUGoiWqd dD65OXyyIgsFcRC8KuKClhC4NURqLX5oB5KwjEzBLZxBcHQWUcVc4c78FmLG BcTMv5xKMvI5BedlF2QlAfKOBWXROMNE5OAi3GTzQ6IVxEZXSRgztbYyqpVf IfQv499iRkPEpplFUDeFgD6CgI64T6lE43UJKs/qUP+hCZ0fWMD52Iyxc3po zo3DdFYM+8ekl8l7xatHkaiRIEX+bpYzSU1L/mgcaere1AAX8ktj5IYn0HPZ h54bYYxUxTHamIamcxqn7zCEiR4jwmmE+AnaJmGTzMNDnm86RBSo9iChs8Ez 6iS6HEblfypCy+sNaHutBcJrYihujkFLWdpUPQ5HwwS8zRMQ0/kMV0vJP0gh oM+jpJdVVVLoK6Qwl0thL5XAWSpEuFkLA2Vw0w0JNSk5eWq5gfCrUtgu0fac AKePA3kXmzFaxnCCvNENaU0w/9lQQ4BvYLjXUp+EszkDb9sCrHUkEj+1YrFz A89s9/E0eIw0h/iYs4YQN4swicfYSCK/EsRpIdlDkQNHnInCb8xxSz8sR+ul dnQWMf6ij8KUVaSC8IoO8isGaIstdN5W8g42KD8ehYd8g7/ShlCjB2vK3Iy4 JawoKN3KZpEdJd8sCiDLs2CRrcD/L/Jz/y3OfzfRnkP+GuyE/NDEXUybHlJm 2idxlMGm5hkeEOoPs8/xbJq0fYba7As8zjzHvRlC/tQj7CXIMkZ3sBwi5Pui WE+EmYezy0do+HQULaUa9JPGF3RYIO93QDvMcKtd5IFLwrzv7pXb4VEy804s 4yro5VJ47QY0nWWh9F02yj/hofumFNJmHbR0W02kVpx91rxADLEtCI8YqekQ 4IwTIiSwstkYKqpH/WtdaP6IBzYhX0rIn+iywzzghnvES5aWQX6KkD9dQH6G GGhGwTBQWEXMoicEN4pR81Y/rv2oC/VneLhyNo4bVcvo6Z6FptsLd5cVwV4r ooT6BMuMJNtATYuBs26wSAWM1AXRV24Dt84LWVcEGlYCJl6KVFYaXrKywfHC I8TJKYRMU3BZZmCzMCJ/otMH8ZUAxiqSOJ2HxatlwlHTOwMTm1Itbx5+0SJZ dWa0Pjm+hJRqEWnNPFJ6CkPjNPyGBHyGINw6M+RdAyj9aT3KP5Oj7hJJqkt+ ukfEcNVxyBuSp9E63ebBfAujb0/fdljuzqUwNqW1XshvECG+rkLbWSfaCf39 pSEI65lRDVVnAtoe5rOVLtfJSeefnPqkGZgl01DyvTCO++HS++C2pKAm9NeQ 7q5/W4LG1wTo+ksWhv5rF9h/2gIVMZHqUw7cLXqIKetzCfH82lFSGzKMkY5X 16hgqFaTOtDARc1H+jxYnXtiaoPtlpJ0+MSvwEnS78/I/E/AXRggdxUJYXqv F4lrI5CWDtCu1BirZ4aCpZXM8K+xPgNnK/NMxdqYgbstCxNZN/E5G6Zat/HA /BQvMk8wS1Zrlr+JacEaUoIlxPmzCPHSJH5C+ecdMa4CMxaG03esUzgwMzxe f/ZGfltztgodl7vRU8TN/866qgPvChFykR3qqy5M3vDCWuaH9Nwk1O+YsVtv x1ynmywFRW5PlFC6iXUSfStE+dnx3NT4ZH7Nj9wg1N3pWaaqEVMR5deY2/nq Pf0f5N9lt0j2EVAfI2W6i94bWyRGX+Bg7juszz/Bg/QTPJp+iieZp3g6+xQP 6YLvzjzG4dQD7CaPsV4oWLgYCONoc5Vhltexu3qC2osKNN/Soa/JDG6nDaMD p0PtThiEzGeTzAJDoQa9UqaAw27NlzLhNcpQ+hYbVeelaC5WY4j2IyPxrmub hInQ5hi0ws2m/D9igIerJRRQkuCJoBkexJTEiNofd6KBmKPn5jj4jSYoKOfr Cfm2YS88hZwfy/kOGfM5TchPFZAfUqrhU1AikQzh1l8348qPulH9MRc91+Xg V41D16yHsY3OodsOX78doSE7osNWxIdNRPp6YiIVeGVO9JYF0VXuJgvqw0hj ENLeGFTDCegFSZiJrG3jjMZw6KdgNUwVBuk+xFiJEyOlSQhIafbc8GDwVjj/ f2Rdyfwjyzx7CmbhkTCxGVaShlDPIKIlBplMwWeMw0WaxT7phXl8EuKrlah7 oxSt7/Si78oYOCUU69WTEDW4IO4IQ9vPxKNBMA8fJefk2DwWZMy+d0bDuC12 4pCnwcGQgBQoGaq/raX9mdBADNd82YvOmwx78hsjGGtn2EnPJnaic8xNcXVo MvCQnrJoyA+pSf/ofNBo/ai52IpLH/Jw8awepR9b0HzWgaFPSAict0L9qRbG c6PQfDQIzg02+LdEEFTJSSRoMF43iclaE2w1FrhrrAjUWRFpsCJGDB+jDOGp McJXZ6Fmhb/eml+L0F9vgqNECR8ZikgxB9EqwSnTiSsiGK1MQVU7+2oegL9n EVHuAdzt62CfcyDcsItDw8/xLPMLLKmOMSvcR0a0m3+EmhKvIi4i2SaaQlwc RkJkQ4IvR4zPvPrtVdhhEahQ8+nN/O833r2F1gstOK0II77iwXhxAIabYdjK o3DniPhCGtr6Q9zWH2NrLIPprgRmuii5KjexMbmHVd0WspoVZNWU98dziwc4 sOty4/tY/0eTeU/fkT/97vT7ib4soXEbnvHbiBuOMDL0FN74S6ykH+Ewfh93 Ug9wb/oBHsw8wENq92fu42T6Hg7Sd7GdOsJqagtL8VnM+L14fP/uaQ3PbSIA 4ZAPtRV6dDSZT0frJCN2jPFtkIkthc7+t+CKFUjPZPJ/6NV7MDFihaTNjpL3 xai9PI6W6zoM1xogazVATeZU32+GkWWCaWQSRt4E8YkcCg4fmhEhNrQJqCqU qP0pC/Xn+GDVT0LSboWqjziH7YGN90vfER7zvhKpgXE9XONK2OQijBOHNL7f i9I3h1BCuG+4SpihmJPVE/80G2Em3DuJy7wsBwLDuWIxJlIeenh5JFJ5Egga 1Wi66UftNS/aqwIYaIuAN5SAhJeEglyaSs7gfjz3vrqGwbNfXhj1lNsQVxgw eN4FdnkILUWOVyOd3JYIJD0JjLNShe+64CAecSlScE9QmiWTb5uMwmyIYHIy CIvWAw+pIW19M2p/UoqWN7vRfYHEc5kGo7VGTLTaYOp2wjXAqLAI1wevIALP WAoxJYPjlGUOi7YZbFiT2DGFEadc1vxWA2r+ho3qtx2o+CSE6itMqh9omAa3 i1EuKhL9k2PT1J8J2FQJWDVxmLQxGDSkgFSU9oe4qHvrIhrfrkLvJS5ufqpD U5EZZVfD6C6PQVSTgKY+AXG5jLAvhZDuqeSWBrIyUoC3zLBUOOCscSPQ6EeE 8mCi3Y90pwdpUniBRidCTV6E6PtQqx/+Zg/JALpHNQbEGrRINCoQr+dDeoML UZkRonIfRLfIuFTPQNWwAGN7Fs6eFfhz0+xlj8C7HKFj7WFb+zUh4FssqO9j WniEjOQQGVLNU6O7SEo3EJNmKadkEJPFEB9zEhmQD+WK8/1hYUlQdeYiaj4s QvWHTN5vu9Cd37aclee3w5e8kBZHoblJ+aFiio45A3/jLJTFWUgGH2LZ9xA7 qixmB+YwNzCNRd4ctszHWDPuIzuZW5clSy23soQfWZX6lAx+Wbj5dJGrf0wB 4+1L0HI3YJdvIazfxZT1NhY9h1gPHuUXsrpNEv8ofYKTKWrTJyT7jyn/H2Fv 6hAbU/tYSq1iNjaFxZkppu4Gfh3bW3fh8S+jqlGH5i4DOgeM6CFp3EMJcsIc RGx6oXA+f46T20dQD2kIwGTsOVNQdZDE/nAM1Vc1qL85CVaDCcI2PcZ6iASG jJAPkynOJVm2FEvGKdy2L1NHzGFFn8TAZ2JUf8BFe5kawy0mSLptUA06MTnC BLmDbIdb6qYgZybpuJQGSsQaGJUyhFxWKHO18oikbv5oABUfitF4ZZwSnB5c SjiKVjP0HUQAfXbYKem72Fa4OEY4+DpieCUmeWIoWYNY1VPivmbC9Wt+VNaF 0dKdQDeLzo1k/6CIAb9KGoVVGiLZ7mOw/IcIKyx5HjKwNei56EbLZcqvV33o LCcOqQ+C3RqEoDeMMVYE4zzCkSQGnZyaimIml1u1Yah0hH1NGG4BmeURAZys PtS+VoHmN3vQRk6IVa6FmHLhOPGroccF+yDDh2GeH3GhH0mJD2kpM413atSG sJywRJwcn6Rz0xkJ8024+mcNKHttGOVnnLhxOYOKytPE+euQ0GXK6TLHxUmo SYeqlUkoCf9yVYxkvhvBIXEh8f0x+q/IwLnJGOLcD6cpBFGzAwMVIozUqMnp UB6o9WG8NgRjTYQSYwShuhDiDUGk26OUFCOYGYhSCxDOA4i2RRGj0PETT/rq iRfaqPX4Ee1zI9ZJ2G+WErZYEJaYICoNEPaTkFTPYrx5CYauVTj61wivu+De TENfvoul8b/DSfolZsbvIS44RFp8hBkptbEDTI3tIzG2hah8JT9+ExuPE2e6 C/3wT2FgyTF8qxk1H1xC7YfXqDEv+nR+zkLrJ/LToWP2WQ/GipPQls/BWrME T+Mygm2rUJVuY4z7BVYjz7GXe1tjeBWLI4tYGM7N61vHmvUIWXNhZR6K/Kw5 QhRg/P9A/C+XEjxFvEu6TZG+jknxBtzqTUSNW5h27GDRR9oitI/N6D52Erex l6SW2scute30Ltam6N9MkdVJLiEcjP5WYf76YmIOE7mpqcNxGEcWyOxtUO/s Q9oew9WicZSRem9rnkRPmwq9PVp09ioRUMXxIHCEO/7bOPBuY9u5ilULyRlt BH2XyXNflqGTsj67zQJRrx2ng/B6vhNGsQOmMRuMctOpiPC4nDg+PoR6UEun QTe30Yebb/Bx67yCBIQWXbeMZOUtkHeYoSE+0g9YYRg2w8A1QEdKTcVXYGyY j9nJJNYsS0SkaVS+1k83joOuSh3qmsjOd7mhHmCGL6wkJJwiMhOS0/pIDXAr jbATl1iIS+Qj/egt8aLyEy/qbgTRXh3GYEsMI90x8IdikHApyQkjUMhI7VHw jBFAVJokdIoQ7EID3GRoHFw+CZ0eiEpYaHy9B03vs9FPAObXmSAnAGt73LAM FQQNP4CwyI+YhJLhKPNdgrooJjciophASC6Fvq8VrR914tpftOLGGwN5gdR2 WYmeCi+qq+JoaYmjpy+FIXYKw3xqohRYuZUGhD7YOGYEiHN9IxIyXkNM4vpp a37bV3jaLSXhrWpi3lFUNijBqxSBU53jTg94dVEy2FOQFDOPcv2XrUj3LmG2 fx6LAxlkB1JYJDMb7yTw5ib4Ed9Gm5wI5H7vCcPTG4CLTJynRYdotxquyg4I r5shvBmAsDwFUe0c8fMy9N1rsA2uoetyCKPXN5Ee+xp7iZdIyo8RInBHhXtE cvtIj+5Tct8jwbWDmILynmoVEfU8IpoEohOF4X+WEtphOTouleV/rztTgfoz 7fnPvZ8L0fOZFqdIHvw0gNGiFHRVWdga1uBt3USQ3IOq6ghyyVdYT32NXULy Io/kMp/QzF8kw76NNcddZO0HyOYmEjgp7hwJZC22H35/8O7X/gF+X839Yyp+ H28+g6RpmQJugxTXBlyaDYTNG0g7NzHr3cRicAvL4S2sRqnFN7GS2sRSehOZ NGE0RYwXyeDR4yeFOs5/gmwiC82AF9qhaVLYpILEpG6Ux1jQ3ceG+TF80qeY cn6BJ8mHeOGYxrPwUzyNPMbDyEPcDd/FQfAAO77chZEaMaVIjbhg5LtQXaJB S50R/e0WcAjPIrYdozw7ZGSXZBIzRkcNEErVMNuc+TPJLcalIZBqWHHohhcg b0mh5YoJZRfUaCyZJGVtBqvVClG3GWN9JA7YJoySuBBxVNBLLZizLGDXu4d1 J0ORvhEHbr3NQh054G7ilZG2UwdSQwnfBQOdo5l4xTLGvDJkVE5Cp1RjfEwC 76Q9X/G794YJJWetKCuNoKE+hk7KNv0DCYxwkuALybFLE+CNJTE8moBalKsg ROJAQIQgkBHR8BCQmeDneFD3Whca3mOhrWgMbFLiElLiKsrGk4Vs7Ob74SMw BykbhwvZOCwnJ0vn5FOqYBVyoOofRP9VISp/3IOSt0iNnxNT/6gpw1Nf1hEX N1sx2uLAcEcA6j4ffEMuBNg5x0LOmKsnglHR+YlhHR5C+4elDKB/1o++q+P5 zyICoLKF6QtxlRC8CgX41RYIq30Q18Tz9bdL/pRxLTOk1jMkeNIEyLnuDJaF G1jh7cBOqsVPWTnYlWsR+Lspi3cFYW93wdZshp2ckr1OBEdNHzgXtBCQYBKU pSCsm8NYG8UhqfCGC6R8Lq8gIPgFVsOUjQOPyXmtI8DdREhIGViyTUS3jaRs CwnFJiKqdYQ0ywjp5hDOPfbUOeAaVRbu9e+g+t3PUPP+zVeqo/2jAfSdl6Dn 00kMXmD6v++zKIRX09DdWoClcR22+kX46Hy4JbtQKL/DZuY77GhXsMDfRlZE eBKvICOcxZrrAZZdx8h6dpD1LtM2t4aS41SJMxPH/wWOtr8gU3SAsVy9XIKs jSDrM20gat9A0rOBKf8GpsPMosS5VTRiyQ0EaOsIL+LB42cM7v/n/CItmr4Q tIO5BaM34R89QEp9F4uGx9i0fYED9wvY1F9hJ/01fjF7Hy88a3iaeI6HiWe4 G3+Iw8gd7AT3sUbfZ+0kLMw+bPg82Nq4A48ni4o6LRrbDejoM6GX/HYfx4Bu rgbJmSxuH99htMV/xVIsN6vPBc3gFPSsFQr4XYRlx7By19FR60Z5mRbVFORt pJx7e/UkAJRQkApfduziHhHHUegedgPkNjzb9N1SfiqVlwK0r0yKerJ7HSRX h9pt4JPqllIAy3kOKEV2jBPIFWNGjI1p4HB6KPsfwz/hofPwElin0HhGjvL3 JCgptqOuyo12soQdZAeH+gPgsAKQ91lhZllg5pqJoCahF6gxwR+FWTqBNSex sXURqloNan86hKbLUvTmMlmzBaNdv7TkFrLMDgHZWfFpDYnfhkdphnNcR0qA sgefDdWAJk9ize+LUPEWDzXnZGgt0qL7hhHsaiLAVid0nU6Yuyyw9tjgJKC6 hilo6bwcfD2s5CzMfAKJWA41ZdXGN5hZbd1XlRgs153OJNZ0uTBykw0euWR+ pROCqgip2zSTO36EBd5dbLI3sdcZxcotE5bJqHu7ZhDsnSGBPIVYfwqhvjh8 vVGCqB+uDjqDdqKJ1jG4GocwdqEfg+/rwSsliqvLQNK2iLYbcbR+uggz+wVm fS+xQDku63iMoGADHs4KfAJKL5I18jhrZIopv46vIDSRJSOxiMAkHdsQQVBP OkaohJgEs5g9iqp3LqHu3TqiR9I777HReYaFvnOj6PvERN7Oj8GLCfReSIN7 jcx6+SLBk/DTugYf5f2Oq+tkgl5ia/ElMgTNecE6lkYpBY6SP5XOYy0/HfwE 2QAp5+Aqbckse5yn8GRKI/1zTCcegk/QlBM09QRNK0HT5diAl6DpC9ClETSd kQ2YwsQ0s4W1XgrrtxPBafqpR3g7p6XxF03PsOn4Ege+X+Be6CvYDN/h4ep3 +GbhNp7HTvAw9Rx386uB38dObjVwPzl5D0l6RxD31laZaiG/i6Uo83hH05+B nr1OPvY2GUamyFzW/AW26RCHnl9AqTzCwcK3+GrpMb72zeJR/EvcjT3DUfQh dsN3sO7fw7LndDaTEyfLc/DYF1BerkZ9E4G900wpzQIWpYlhngkswST6+SoC /XzBTfxq4TyChLS5wnX/NtrLjRiqs4DdbIe4hxBK6VLN0ucXuZbz9JTqldCP GrHjPybC2SWtQ+dgn8LARQHqPhWjlXRtbgoRt53SVq8D44QCHXl2Ay+Xlp2w jtrzFULM5NcN45rTwVvNYJoyVRilPz59n/oq2XVi8kpSGQ0OjHa48uRkJCVh HiTrPmKFiW/EpEALnUCBcZLYqUlSKUQ8da815/fQ+pkovx0hmS0pZMCRG1xw yyj8b3nAr4gTsphn8MZ2ZnK+nPMIZtmXmNL8HFu6L3FH/QCPpCt4MBDEOmW7 qZYwprri+SrwQVIMvr6cpPXA22uCtVsBWzsbogu96H5Lif5zNnBqptF5K4Xy DzJQdn+BiOMlpuJfI2O9hwXHPWTd95BU71AGX4RbtASvdAl+OTX1Any6eXgN GfiMaWohuHR0OwdkYA2OgjeoRvVPS1D/Tisa3hlE87s8dJzhoe/jUTquBQPn KdsWTYFVPEfefB5jlUsw1ROpd27AP7iN9pI9qEwEsRXKxJT5ZsUkZWVrWJBl kZHNYTVwH9lQbor2PjK+RcStIfjHJzDQZcNQR86xJTEb2kDGv84ssYn/pzBg lJp5CKPrEAL1BkYNG1BYCIGEOs/UIRa2H+LowRf4V9+zs5r2aH5BvtyPT34H SR1TPmDD9Ry3/S9wJ/wlAf4rJFMv8Yvb3+KbmSU8nKLvU89wQAjfjh6R1SWa D8wT3kK4s7HyzwvjY4vhAtZyU6FzE4TFhwiNM4UKs9bn2HLl4Pxz3An9Il/h 9M7mS3y79QRfh+dwlxLsYfwJdiP3sB7KLaVYmFnkdONw+XRy8H+Pze07cAaz 8EWXKbcvw0+OeufgDlOl668Lhycy6VsguDMveOmGmFgru6ZDY6UR3WRnuygx DlFsc0dM4LJVGCIaXXLu4oAS63boLrEJnYJvna6QLJbDi4HrItQVq9BSMYne JjNG6J6I+hyQsZ1Q8pykWu2YGCXoysxQyvWQjSlx984dZGM5NcaoI80Acx43 3xSi/BNGLXaVE1XUWsFqsEPYnYO/AxMcC1lxDcZ5Osj5E5BypZiyMF2b9a5A 1axm8PY5M0Y6UG0Ev5mxj+xiPsWfAdxSH3jlSYir56BsWmYg/iaJ2D1YOLkl sB/DOvkt5lzf4sD7LZ56fo6vLMf4ejyDO3RJa325ZSOm4ByMwjzggWHABFP/ OMzdI+BfaED7a2PofEeP6jN2XHg7jZHGJ3AQQYeJqKOTR0iZj5GxH2OeRN2i 5wgzll0KtkXYpBnYldQmZmDX0/4NKTiNCdgNAYzJjGjpFILbp6O8n0bNW+Qa 3+5Ew8/YaHpXhPYPZOg9I0L/R5TRzuXgNk2XmKW2DEnVEjSNhTm0Q9torTiC 2k5w2/gOU+I1zEiXMSvLlaRcwIxyBqsk4ZKOTbg1M/BoI/CoHZgkelP00S3s JhNAt1fbQtsGajVWrHrXC8uX4/wv69T8AJpe5rZ45CeIk9HL/ay5H2Mv8BTH kWe4F/8C056vsLlBkX7nK7yYv42T9BPcTj7IL66zkltJMzKPJV8AR+vZf/bL ff8qmbfNV2KbuX+/iU33M+z7v8BR+DmWrc/g8vw9Hh6Stz14jHupIxwmHmMn dg9rUXLGkdysnWksuh3f2+9/pnBcpH3vwCZmCiSmdU/hlO5BMTwLnXABN2pV EAuzUBqWsZE5wnfZTZzEiByiT7Advk/gP8wv35cNzBI8fDhZW8TOxl1UXBtH bTUZzBbKhN1WsAdt4HJIfwqs4IsJZhIdTHYfjo5P8j2ZWxpe0+krZEVmhSCX 9B5aiphQrr4xiTYyq30E1xwFDtK94XPIuNJ94nNJc446sBt6jPXAXSwH90+l 5eDFEbScl6L1uqrQbf8EwnY7hi7zMHzNSBkpQBkpBUHNPHnj1cK/eRtezj7C gtsIjGzmK56axh7AbPoGC7GX+dHML9Pf4JvoU3zrWscLVQiLAg98LCcsw1bY WGo4+jlgnylDx18NoeZvNDj3owi6yh5ATb7HaHwMl3qPBNweosZ9JK37mHYQ 07v2MUdeeyG4i/nIDoJ2EnjuBVitZAn0MQRIiCQTc9g7ukddpKesHaKWQc3r lah/sxsNb48QNCRo+1iJXmoDHxgIHn6wKBNxy5cgrd8g35mFonEBhvYFePuy aK69A7WHoLHzLZKSLNKjC5hWzGFGlUFCRZlPS1lQP0venT7rw/Br7DCN5OBv y8tsRydJ7TZqBA9How2uWtqSd364dR9/8D2IgFl+8NWzktpQvo6Jnrt9urrq jIVunOs+tgMPcDvyEMfxR7ibeoRQ9O9w5+5LPF56hOPUA+wn72EzeYiVJCm8 2Cxm/W6cppzvH0LTNkPEwRSp848zEm/B9pAA+Qg75H4Pwk9wHHuCFc9TzC78 Pe7v/x1Oko8oqz3Adpw4P5FbwJPSTiSNzZnUqwUFv3+MidYwiVUGQFbxCQKF 9DZvfkrm5xm2vQTQYA6gXyDl/jkWCfg/v/cNXRuBPvYIW9F7WI0RgMiiZiMZ Ar7nV09LY23fgzuwjNKmCdR06VDfr4NsMoToVBb7R3f+YTXFjky+/twk96AQ wH9BXmcL0v4ZXLupRkUN/X3zJJo79KjtJsnmWMacYztftzVXLXI9Vz4iSpcb pcsNTxFHk0ekm9p4WYEm8p1dtQawWgh31yRgXTGAfc2PkdIUeLXzGG0l+9zD cJOLuwu/cAf2XBX64WWEuCuI8tcQGL0Nn/UFMtMvcbz0Es+Xv8PfL/wc3yYP 8HfOBA4UJsxyFHANcTD8Rhnaf3QDH/1nJdo+O8QY71uo3d9iuD0OYY0HlpxE m9xC2LSFmG0LSdcW0r5NTIWoFZx+KkVtaqOgqv83Oj8TSYDoK/6sfZ3A8hYX je+OovWsCl2fqND3DinnDz0YupTASNk8hLVZjDbm2jxU7bOw9M6isfE+1MGX 2Nz7BlFyQvGxTH5GaUydhmc8RSCZhs+Qht+YJGcWhlvOLDjiJrD4e5hVf0Jd zGKBIQJOiGRHpJm2NSY82b7/75m4+uyXt/YHWPDuQ93KlKGwju4iMMGsk7Tg JAPgu4Od0B2KpLs4St7FSYpaOre9g4PUCXbTR1hL7yObWiXeSuNod+c3vh82 E01TxB9rMAj3cYrCjJVUiuseNvz3yejcJ5q/j6PEfUJGrt3LH2c/eYKtVG6N STKAyWUsROM43N5kUMjs6F+Sxw6QuJwnCG7BLDqET8lAMGN+gGXnI2x4H2E3 +Bi3w49xGH2ch/tJnARq/AH24gTxxB2sJChvJShvxaaxNTtNp5froL9i4N0y nZ+Sn/uxS+8gqGLy7Zz5EZbJPa97KD/5n2AvSKYwd4zIIzrOQ6IWgjfBLr9M bII6J0EOKpoiiCfzexd1OlBzVYX6W/r8mElfyTgGL+gwVOQF62YSI5QoRK0r UPasQ8/ahJUsro21BOcQEeXwIoLcLMX8CpLCFUyJVvPn5J48QDTzEtukcB8R 0X618Qt8u3iEb8IJ7I6K8cbv/Ec0/e4fofsdKfpqFsBmrePmpXGUnieNc32S 5OYkJngzcJOg91s3EHRtIOzfQITybji6gVAiVzY7lNzAH2I2e/sf0mCnidlS nh+6wrxLU/86Fw0U+03nVOi+pEffOZKx7znR/3mErnEanOpZiBtz2J6HrH0G Ez3TqGt9BFX0JdYP/p7wPIOQPE19noRDEYdTm4CLYt5nokb6zaMPEBc44Rv0 IDzgRWzAh8SgD6khL9L55kZywIl0n53snAUp4qanu/fwv/w3AGAG6WRVzKxt vXATrnFGxk/b9omnbpNVOsBW5IB0ziH2E7l2kH/etkOBvzG1i6WpLcyllpAM x5glpE6jX1GVhLpnGTre1itBlTIfYM55hGXvEdaDx9iOHGOPhFnuvfz9xBHt +BDb6dtYm9rL73ghuYBUKPwb3w98ryiDiUJRWINgHy75Yf7zlPkOec67lG8I XYF7RLz3sEeBmEPvAbXbFJA7dIz11AGW04Ss1AqhNoXDna1C4P8rLPm3CzeT WRbeIjmCb5xZ3WTaTJ7Wfp/2fz+P3u0gg+A9slD7RPC7sRMCVQ61BKrUDrVs HrnPHj1k3NQf5nWbYNiPyiqyRk1kjXK8eMGF/hsxDFZnwGkmEdG9jEmK+bDq GMbeKdiHMnANz8PHXUSIv4QYacW4kJlf4+XEKA5CpPFn4CfsLW5/g5P9n+P5 1gN8FbuNoj+7gprz3Wi73IWh0iH0FEnyVYp7Liro2HIMfiYH+7wcnMtaqHrD sDs34PRSC27AEdmAnfjenivxNL9fcIT/w6vYn2gtLF7RuQhxDTNPufYnw6h7 V4qGcypm5ON30fVxEP3FCQxVTIFTPw1J6wwk7dMYplRT1fEE48mXWDn8Gk5h EE5FlHRgECZlEFZDEjYj2RVTiqwOhT8/iAArjAgrigQrhvRIHDOcOGa5cczx YtSi9DmE2RE/5lluzPeZkemYwNO9O/h3TNh//o+eUp1sPcNYc/Y0Nt0Tm4iY KMk5KKC92/lqjKvhHUre1OLbWEtuUdzkll7dxHR6HbH4HJ48ecqEzg/yO7mz /QzypiWME79MSpicHZ7cRsq6i1kXhbRvDyvBfayHCTvRPWzEdykcd7CSC/Wp 3MOuNaTis3jy+Mlvfu9kT7YeQVmTJjStnKYR38Q+YsbbhNJDLLgOsew7yr8H sxk+IlARiGKEWhJY65RClgtPw+cJpWuLywxKT0emlFVRTOSKX7O2XuWooPYQ SSPZSNsx7fyY0Eq5MHCMjdBx/gCbuRl0tPPVXH6inS+RFFhMLWJ9calQefQ/ YGvrDlz+LLQ9AbSfteSnigtbs5D2rRNq9+BXnSCqvwN9bxLmwWnY2Rm4OSRr eAuIUHi7R3LrOzNhZSLH7xC44Jb44B71w+NegT2wicrSMVRcGET7tSGMXBuE uLQH4qIRjF4ahviiCNzPFeBRiIsuyCG9pKDvtZCcn4BaQQxCYa4mig9kDnD3 8ZfMgMb/kT/ccojJepq2BcqADBtW/Zhsxs9EKD3DxbUPBlD+MQt1nzBzLZs/ 9qGzOIa+qhRGmlIQdaTQekODzrZlKBwP4Xeukm3RQi/yYWLMD91EFJOTKRhI yRhJ9k/KSPazU4iwp5HkzGCaR6JbMIcF0RyWxHPISsj5SUi8SqbyC3ssCiJY 4rixNGTAltZzGt6XCo9tjneeQ9KxBjmXBKucwKyhhGYiENs3MOXewAxd9WyY WbF2hlJaOsXUbwvEl/HoyRenC+VaR1Yx1rkGJe3GMEa7maDdGGk3NoKIi3lo uxCkFqEW36QcsEGw2ECSWjSxTND4gvaS29f/hHn3ARQtDC5yq4ralZvw67YR M+8Q3HYx597Fom+XfOUuVsLUYkSfBLdFgtssBdfM1BqSObg9flLY5w9wZ+sp lPVzUPWtUe7ehHlsC271DkKTu0hY9jBt38+vp7no28+PpC/Tfpfz+93GAu13 jvY7S/tN5/H2+J8U5pKfEHUqK6NQt8xDTZJfy92Bmey6S3mb4nABE1108/pT MLOImodJMnApbrkJ2DkBOHjMdByjwA1bbt6I1Au3zA9OG1FuhQjXPx1A1RUO yn/cBv4fXYb28w6oirnQ0neGIh7MV/kwXBZAe0mUL59uKFXBWmmEuWQSmlor /sn3Brbv7nx/2e//FVr2bVz56zqc/ckNfPJ6KS6+fgvXX6/Arb+tYKj5tVFU v2dH1Sc2tJYEMNSSRE2xCd21Doi6XVBznDBKPNDxA2QJ3BiTBjCum4JSOw2z YBpe9izCIwtIcJcwLSB7kxtRlebKo61hJVeHX7FKbRmriiUsy+eRHZtCVhxB VuDEEleN54cn+H0mUC/nN79JcvkFLBMHEPMIirINmChQnRSoPgcpLoJnmLJQ iLKQP1d9jJo5tIwHj58zi0iRnyV1LupmVjXU0p9bKUA9JOCCNgpAivM4xXmC 4jxBfxohARegWPfE1ijGnxdkz/8IO289H+S5txJ0UhKaqg1y4/TvzblSKTm8 bObxkluqNkN4maZ9pCjA49TCFOSPKciZff0WHJwVyFoJ8uSJJ4R0OfLcWw6b CBg2EbNsIuWgvOEhkifmyhBo8vsj0KTTzD5jDGh+vRCI865dKHK1E7pXoRqm 0xNtwSLbzi8UJe8IQd0bg24gARMrBRsnDQMlPRPHk1+lKR+EYh+MUh+ZGh94 7eMYqBGjv0RATMUjFhvEZz+sQf8Pr8H+50UwXhPDek0E5w0p3KWj8JVK4KN/ 673JRahRgVRfbrk8KxLNRsxRgDAe+jdeZdJTLZzb+oSMlhTUBlD0fhWK3q3C xb8twbU3ylH2RkUhYH8PbX9Tid7XqtDzRgdq31Og4jMLaq9a0HTDhbbWEPr6 feDzvRhVpDAsSIAjjIPLi4DXaoO0SAVTXQiBkRXEuOtIk26dlWxjcYwwrtjL F7PdUO9hc2I3XypsnVL7ipq89/gisnIKzLEQsqMW7FgdhZgsKqibVPIhDNZD COnmKbQb0FAg6CkQ9B4KMh99517F0s6Df13ogKO9FzBpD+hENyCnP9HRn5go hG2OXwopWzj3DI5icv4A9x49x78sxG/Gfzcfv6OcX67K6Zik+PvHBiTGPFb3 UnNGV/Hwyek+/gWsdNwc149SgIyLiagVJNgIRh4i6gDhIEw4iAYotghGEYq3 nIUJUvMyOPhnhVhzjGQha8pC3r+e53udhK50KA1Riw+yziDGeyNkZGMkEnxQ s5lHTVqhB1pxYTxR6qe/c6CfYmywRAhWmQgDuYnBZWpc+GE7Gn9YB8N/KUPg XD/FlwqBCg3C1VpEaiYQrRlHtHoMwUohZil+Z9kOzPZbMN2ux7O9u99b1uJX CtLiztZD8K4zriv3U/JhHW69V4uK18vJeVWg9fXK/PfdFGGs16vAe7sK/Lcr 0fN6HQbe7EN9iRtdnTE0DMfRyAmihpNEeU8CjZ0psCumIS6ZgfpSFMYPzTD+ 7SgCZT5EOucxLztCVnmMVfUJNjRk0XUn2NbnGkkiPckhHWUXDUXZxAKy6iSy Kg9F23ghwq4VBF107iFS2YdIr9B29eFvF54rHRx+idTsQwyOroNHTCamOyix 0B1PM8+VTh6+wL8pPPk9pKgzUtRxiTilxHwquuN6+vcmyvAWClQLRY6JImeS om9t7+G/OQ1W4ltO52r+ofEokZ2aAs5AAWehgLNTwDkovh25gKVgsVCLLxww WpEOOes5Jum+CungBmR0WBmHXHS9F/zWICRdYYwNRiGj6Bij6JBx3acTR2WS IHor+Ri8wQObSGWkXI4BMv+iW2Z0vyvHrR/2QvZHjYj+rBfBKjOi9TmSIbJp tiDdYqSmR6JRRTIoikVyCItcFxYGjch0qQrZ8D/kC3DWXaxB6fuVKDtTg8oP 6tD4QSM6P2hCx5u16H69lm57ff6MOD+rg/D9OgjeKoHkT88ifqYWG/X9mG7s APfjCuhMjsIKR05wuhOorFxEVcU6WDU7UNfuw1m7hUjFLJLXXJi65UOGsui6 9hE2Jx9h2/AIO8aH2DXdy5eLW8sVOSDxn9Wv0DZDLUzhYSiEg6kwDLl/8ALJ zENMLz4Ei24Il7IPx7iOeQryuc1CeBAvxe9DR+Z5mIhCWHj0KKf7JifHJqN7 l919iDuPvmRWSPv3dKufg9e2Aj7lIrFgAx3VXvQ3BcHuDIM7EAV3iFTJkBPc EQ84PB84ggC4giAGK0fRf20EQzfEGCkdB69ch+FiG8YqvTA3+lH2R3yw/69+ BP+6A6lKA1LtAUx1BjDT5cNst5vuix3TnSbMDXuJZFMkW+ma+Q4skfy9k1w4 XZZgb3MHLcU1aLtWj6bLDbj1fj3qzzSj7Uw7+s50MtHz++C+1wbhB62QfNwK 8Y+vIfReI7Ya2Fjs6ofqXCn0n5Zi2eSCZmACmiEvtTS1JegGN9HbdIDBtjsQ dD+AeegxYuxHWBgik9S9iI06L9YoxWyN7WHX8hR71sfYtt7HuuUEy2aSi4S7 rJVAbI0ja7LhbjZDCSt/257kN/+OVON9TNINrquPoK4uiJbWMDp6o+js96O9 z4X2QS/aqJM7bmnReUmGvqv91LE86lgFhknO8W5awL0ehKo6DkdzHJ2vadH+ f4tg+WsW5i+LMdObIhZMINMXxVxfCNNdbqQ6bQi0mmFvMMHXZka8x4SsyEqg kP93hfELBUuAjuJadFxrpNaOtotdaHq3E13v92Ho/UFwP2JBQrZF/vkwVOSS tEVsiN6sgOvdVsKBEIeCMXhquuAqbYG3pA724nJo+nSnz98sw4f4/o+A+ws4 5F9hRvU1NlUvcDR2gvskkk8oHI6kC9gkPb5mv4dlcqlZB0HBlaWWRtbuwr3V hUKfPstvfh9hXQiVF1SovW5AQ5UV1aVKlJMcrvpoBHVvDaLxHW6+lmKu6sbA 9VEiFQrOmzZwrhEP3aRbXz8Le10aE0V+NP3VBOSvSZD5kIuFTuq/3jT1ZRKz A3Hq1zCm+r2IdLmoH51wN5ngrlPDXS1CsJGN58fHBYXzh9jf2EbH1Up0FddT a0NPcS8RGAvcIi44n3LBO8cDn5r0cwEUVwSYKBZA+mE7jD9tx3LNKA6FWsQ7 BAg0sBCs60Ooug3+impoynvIW4aZ7FkYZbVwTuAVPUBk7AlS41/kvwtNfIXJ 8W/gMH6HOcdL7Lu+xUP7l3hhOMJz+TRODLlCFifIeneR9a1Sm6bfPbiztnAa sl8UulferCMnLkD7FTnqP+pBxWu1qM7V7H6Thfr3+Og8z0L/VS4Gr6upey1g 3fCSqybXXr4AfcsybA0ZOGriGDrjAvstLUJnRrHU4ERmaB5zrDnMs2eopTDD CiPaE0Gwyw9/uwP+1kn4muXwNQxDf6E+t05yIZX/n4jaPOi6Wo3u4lZ0X+0l mLDBKsrV/xblF1pVl8gweUuBiRJ5fjtO/0/5Vgcy9HlfYMYCOYtImxjhVj4i LcOINvYi0tCMyYsXoaG0pOliRva1Q/swc+/AI36IiOwZkqrn+e8XDF8S4r/E mu0FAuavEXF/g9nISxwkX+L5zDe4n3mCrP8OskFihdBavixj1uf9/e/37M+w t3yA5ve5aL1AHutMB8p/VI3K17pQTT1b9z71+PkR9BWJMXBNj0HKHKxrIbCv TkFctQpjxxbsrYtwNGVgqEpTVrTD9KEGa9eVmB1exTxnma5yEQu8DGY4CcQH koj0hRHs8VKzUJtAsFMAV1Uz1B/VEqx28mfVcakUPUUN1HIztll0fB5Grogh Kh6D4iZluFsqGKsnYKvXQl82BsGbnYjeGMc2x4UNmfVVtcZooVpjvJ1FrQuO sjJo2nILps1B0808RjZRz7rEuXoMT5BQP81/N2d8hiXLM6zanmHd8RSbrieY dX6BmeCX2Jl5gZ3pR8iGj5GNUs+SGs1Gp7EU8Jx6xOcFq7u3cozGcxI0XR0v GN8/QdV75GI+bUfvZRkFrIm61IehoggGi+chqd+CqZcSdfs6PKR1Aj2r6Pow BOknDkwX6bBOfJp7325RSN0qnMc0dxpJCtwYK4nwUAhhlovaJMKDUoQ622G+ Qsr1fFVuDVZ0XbqFnitt6L0yQI2LfupOzlUZJNRtyvIJ6Kp1MNVPwt40CcHH bLguq7DColQj9yLep2Mq5fWp6LMciV4xkr1cav3wN9RBW8mGpiUDTSfDBQbu CRyS+6+G5FL6R8gYKYVZqNvsj7DqfIh19wNs5AajfXexETzBaoT0aSz3RGeX eeoSn8a9/b1/2KU/zS/yyO1W49r7Pbjy5yX5A5T+uBflP+Og9dwQei4o0HfZ goGiAPovhyllrUDasgvzwG04qFu93VsID+xCXb0E9oUQvEU27BGFzos3sSBZ o+0SZnhLSHMXEOdMI8qNI0IaI8qzIMpRINTfDWdpM5zXamG+eAvdF6vRe6mL Ght9l4QYuDwGbvE4pKUajFfqoaszwEz7Z33Ege68CrO9AWxMxJHiWBEnLZgY mkRyKFeQfZwpTTYkpMZGbICZAqFpoNTQztSc0XOP8s+R89SaWx1Wdw9TxnuY teTG9u8i67yLZfcdrPpI5geOqEupO+MUocnceP5m/pnBUnwKzx4/+v3vJ68/ Y1bqu9KIysstqL/cioZzjagojL3c+Is23PhJH3HBELrPK9B7wUbNRwEcB7ts GdKO2zB07sDZsQlf7y6CQ3uIDu9h4Aqd+XU/stVWbPKTmCNvkMm9wy1Yw5Qg i4RgDjFxCjFJiJodMZGK7swgfNW52ujN8JRUQfDu53SsXmoc9F6UYLBIAe6N CUhJ2Y3XGKFvMBNAuBB/qECsLUimZRopnocAYUOcbcH/2953BjeWndkda6Uf qnV5rbLLrvV612FLDlVylWTLYatUsi3LlixZlmTvaKWRZjShp6dzTmw22cw5 AQSISOQcCIAAAYIRJBGZQZAEwZyanXt6gqIlrc/DA1s9W3b5n38JVbfeaxAN vPfd757vnPvu992ExMcB4uHRgWS3mVbXsskQlzbBX608Tneyt67D0b2LPvU+ BgwHx5uWJBimMoFDzAYPGb4OkI3uY2lkD0uxHWSntrCY3ChmeRRnkNPLKCyt HE9nvlfiisXdMwhkZWeqUHGmBnWna9HKUSg5WQf5ibpPFX/pa2h63f+Clkgv z0F3OwdnzRqCTZsIt2wWVwWOSzf4Xg6qy5OYujmAbckIZnTLmNPkMaumTWnb hC6LKcM04sZJtjDiOjsm2oRpkE7EypsYwO/C+uoP0fxWG1re7qFddRwpFsgv OdFLRmwp90NL27a9IpQBG8WsYY7fESOohNmnA4h3h5CQ0a4yeq6coKCwIkXW lVL2YKqnBVupUURJoSwkM0LZTEvXBhyKTfh02xgwb2PYsYOYewdx3w5S/TuY Dm9jZmgLs2ObmJ3cwGxiHbOpQnF6cz6zhkxi4fix37Pi4ZWiYLpztgKVZ6uK lcOF4CvsSdJzqg6a0p4kwuvOV6uKx+vfFSuJNvzAi+YfD1PZi7mh6vIcLNSE nqZ19LcVMEixMSI8re1YhvR6BrGmHJ55FrFqXcCcVljbvIKMPoekicBgmUHC OskWQcLkIN4qMFkrx1R1JybvNsD91lvo+fF1NL+pRPM7erSetVGQuBkyfZBd duHOd3vhvDJSrGiQsE1jpDPK7h3EBMPXlJxm7qH7KvyYUnkQ19iR0BrYSBJU LXh6uF20xCCHkZHERpj1MPG6HWrKZsM6BqzrGHKuY6xvHRP964hH1pGgpE7G 2KYKSJQmAdMZ4XwV7z3/4NjET0vzioKJ754rL9aMrz1XRdpYA8nZOihP10N3 qhHmU02wn2oumrHvTBMqviFuDlHzP8jfv+emNx/n/P8LWOpXihsGe9tW0C9Z RVguLFlfgbaeKOH/NZ6v/QqrdmIu0WDWkEPanKVJ5pFwTCPhpIkdNImZ+Nis R7xJjUSjDImGNgQvXYLyLerjHyuLG9y3nrNDctUDVZkf576lgupUFFHpAsbN 8whTzgxJhjBKvTgup5l7IphUhjCpJqZrvZjiKJnSGzGpU2BU3VKiz5/BgHoD 2rr8i2kDm1aco+oXpnr7CkRNusxgAaOjbDTv6JQ4PzUuPI9I5PHs+YcordrY KE2UJJPi+pP21iAkLUGGsiB66oPoNxIgxwu4t/WYqCGq5pd1Zu15YX+OWnSe bYCCVFN3uo10shOuM10iWv0bhC53YeBqB5q+XVl8p/Y74uP8plOTaL0kVkDo rc3C1LAAR9si+roWi9tfDigXEVEtYsD9iJfwiDiSw4x2DtPE5rQpg7gtjYRb aOwNVwRxioJUuxnJNh2SrYxWbRIMVdyhR7yJxh8p0HhC2OPOhg72xvlXdPQG IQt6AVFHHv7uMYSodSOSYQzL2CPyKMYUEYyrBzDeG8C43ouYkZhlNGDcoEAm ZP9kab59ZuwhFI15KCQFaFQFmIwF2O0FeLz0e3ZEgB0RpJ8HacXgpPj0N5nd /2ei/QulWSThGY9MEoRCGoSWR1NnEPb2INzsDy/7oo994akOwlUR5EUl8XDz cSnb/isvydO7xWrrbWebGeo70EvabznD8H6+B30XFQheVSB8XVHc/y1wrgW2 b4ozeu3/U1zGW/P2KOrPi+UcpAzv6rppGFtmYO2cKZZ0CXRTqtB1o4olDKpz iHFYJKxZpOzzSDkyPE4i6Ygx/I9j3ClUHnUhJbEj2WVCqosBrovMrLMVzgvv oP5VGerf1vF6rXj9O2pce6UPursz8NON3dIYPG1R+DuHEZKyU2RC2Z4ohtVU lr0hDBsCGDZ5MGq2sVFaG3rw5Gj/U6VJtf2dD5BJPkGHbA3S3gJUlgJ63QUY /QWYB9jYIZahAoZn9/Hw2U9KK2Lzx8/5Dh4h5EtCIwuil83C5mKn+Bm5B0qL ooaagxhpZKvjeU0QkUr+7VaQ0Sf+yVKfvKxwmwhRLWdbCVVdULM/jFSzjgsa eK9o0X9dh8gtHYbKdUW7G791B6lz4pLoTKNYGqLz7Qj/v1iqqKtsDPK7kxz+ cVgbknBRgfs6Mwh1TxN5hSpbMxhkcIza5jDsnsO4bxZT/hkkfWlMuUex0kp5 2SQUoHSSeDBIyhkk5UokZR0YbLyJmu9JUPuGBtd/rMcb37Ch7WoSFtUajO3j MDcJ6RRReBgV/OyXIAfJgHIQYW0YEX0QYZMPEbMbgxYbj3okIr5PlxZR7h5+ hKmFJ0guPUFq5QnS+Sc4ePyTz4m2Xy0efh9HtH0vo7iBYcbEZpcH4aP9B2j/ Ydp/nPaf5KBIsA8+wTEexKdI+YNUVEHE2Bexyn7MKadKOPk3YGqXofF0GTVw LZrPtKKDA0J+pge6sxpYLuio0AwI3DAifNtMpDCj/6oSmm9XHS+12ep1YapO BcdpQ0kxfA7SK4OMwgOQlo1AVTkOXe0k7RKHsyOBvu4k+lUpsSyLWSjLkkLI lUbYN4OBAPukfwZjninccyTxyBDEQ6kWhVYZJptkCDW0I1hXC2fFJZT993ac /loHvvcf2A9vDqC2YhQtpOfNN1zouOmG5JYH3WwuaSlDRh2Gn+MiQIEZMPvQ b3EVC+nFowNfEg28Unq6e3TwEAZSJLOiH1YFHZtGDshDGJQNYEzKgCYZ5IiN YpptVqgZ3C20CFsYs5IBZIhKaZo9WedHVhsT5xv+cVEVN52+S0XcjJbTwlyD AsozWhjOG2C/YqYCtyJYbsdgpQMjNQ7Ivl2H4dNWrJG97TvCmJFQYzTrkGAc dZwzouPNKDrOD6HjSgjNV4fRdXsMPVUxaBonYeyIw0bF7iIIevUp+Cxsdg4C V/oT8HtKKW9/iIfBDJ57h/Ce0YjdzjakGqqoBuS49d3LeONrNbhGmXvzkg13 rlhRfYbR4Cxj9SkdOk7q0fGOuIin57wN5lY/nLognAQdl9kLt9kJm0GPB0f3 8DHrvoIhXwxWyjEbLetUDMBPwj8oH8GYbIySLYaMbAJz8kks0kVzqkksqyex op7Aimac56PIKoewIAtjvqsfM41e7I/nit/cePIGmt+tpzruYOuheTVQnTPA dNlChWuHv9yJgbtuQpEHmte6EXrXgVznKHZcY5iXe4sF0NPFwMgx2aLC4N1e UpMomi5EUH1xAPU3xtBaOQFJwyR62uOEvgT0NK+J5jXTjy0MtFZHGhYHfVo1 hliPmJTs7xSfWc1Es9gam8fD0TSeDgzhkV2PW6+ewfUfkQn/uBryMhPa7jhR /66GclSL9hMadL1BF3lLCS3PNTS3hubWvm6A5owJBoMPRoMLg4PDpT3gsFwy cTa9BLvMAwcd18HLcPeMYkA+gVFZnBoghYw8g3nC4JJmFiu9s1jTz2LdwGac ZsugYEgir6f5qe2WlFFkpX4qXzsCXRryg3I0n6QHn5SijYpZekoPzUULTNcc cJW54a/0IlzTB/lrcrjfcWG2fQIbzjgRJ4RMlwcZhrtMlx3pLuq5DkJsp4LK uQPm8l7cPBvGjctjqCiPobZuEk2tcbRLEpBQf3ZrU5DR1HJDGjbVBCKEVoGD BJr98DWKy8ECbVb4O0zUKmFMDM9iOZZkWLagiSGk6kQziXwLFBcaob2hRjfd Q3pSjZ53NFC8qYL+XS3Mp7WkAgaYhUbPNzP06s/3IjO7WNoI94WJrRyMDpkP DhJSlzwGnzyJqGyaGmAOaUqoefUScr05rBopLM0r2LSuYNu2jB17jo2eYF/A upXmN6eR008gx6i9JHMjQPnc+HYlmk9Q4r0jR9u7vZCeNUFz2Q4zUc11p4/S 14/215QwvuVFvCWBVbKKGRUxSRpAptuP6W4vjy6kpfTobiOjmJpNgsmuehJk DSp+qKaq9aL8aj+q7oTRUBNFW9MIJG1j0LWNwF1kFUNFVuFvC8HV4KHOclME OEUzS8zwSbQ89kBSq0djmRY33+5AzekulP/XMqi+VQbbVXlx0tR9wUiwMsBC NzGd0cN2yQT7ZQNsl4WcWSfGq7xI1vixpI0dm3j6xRKx3/vtYrG/wIP9I9h5 Rw6isIM44ZGl0S8s2pLl6HRTmNWsIatbx6ppAwXrJi28hR3nFvbdm9j3bLAV sOPOY9O1jLxjETlrBjnjOJ08iKzChMY3KZXeIna8rUQr4U163goNxbS5zAtn pR/1P6KzvO7FcEMaC5Q4KdUIEhTVKVkIaXk/B5WfzcPedyCloHMrtEgqGLdk DdhIDEFf4UTND5WoOWlA3UU7Wm4wPlX4oa4JwdgYhq11EO4ODtb2AVhq3bAJ Gzy3OGHvFJ27T2qFR9pLTtNNvtGBzmscMO9Kcea/teKNz19C0+fPwf1KO0I3 vBi81ofh630Yu+7B+DUXptmj88TXedkII9YQZhlS5tqInw1erOhHj/Fjrnj4 18WfO15a8fLyilyK2kNCXJEOs6V4OQukVCu4+W91CP25DVOn2Jm3RrBmO8Cm 85Dmvod97yEOfWz+AxwG9rDn38GWbwNr3lXkXAviw2rLEHIGJ1QnqQjf6GQ3 qNDyrhFdF+xQXXfDWO5D67tmtP7Ag0DNNFLmJcQNcUwwGMcpupM9YZqb3aAI sPUhqXIhobEiqWG01Mgxrmgszfr/U+g5eO6+pUMVKXUdTdNW3gdZVT809eyG 5jCs7RHo67zQ1YnObqLTmzpdxXOr1AQ9Q0Pz1VYoy4VKl2bSVwsqzzrx+ufr cf3zt6D7wi1ETzsxdnsIE3eiiFcMIllB7KuPcJAL5YeTWFJPMbzFkJUPIdsV wEKLAx/s3S/tNPD/7AZbay8cQimhrgl2xyw8kmUYyudQ9T3S9do9TNesYql8 AotnPSi0JFHgyDgMPMa94GMchR6xPcB+6BBbwV2sBdax3LeMnGcGObewzXIA 5muNaHxNmC5Uo/kUg/wlOxT0qq5LLlS+Qs+smMaYQchTn8MIOdA4+c8kw0yc UjCpHKD5yX3UPsR73YjryLB0ekz2yjCsbCyRzt9Hb10Id06aUXHJibqbXrRx JHTXBqFqCkHd1M8ucUBRT5dodr2oOKntskEnMUJSISnWt9UwWnZfIdu7NADD nWHc+KoJZ/9lK1r+VTUCX67FVHUCido40nVTmK6PYbZ+GCuqaeQNC1hlyFvW CcvEGOaomnLdfZjvMBx3wcyLhR+iVPnCC+PbW0xwdAyyJeHsXIS3a62YGqOp vgdZyxOEep4ho36GNeV97ElWcFg/gr2mMWxJZ3A/8gxHkSfYjzzAVvhQ3Eao fw25AOHIn0DOG4a7ipLv1XY0vq5CI8dA60UHZasdl75DY9yYRkiTR9RKvU+A jnIojzIGjtP4k5QYU6owpjRk/zo/JgxuNiu1uA5jehk25xKle/knUDWEGQCs uH3VjerbfWgW0n+o1Dro9y1VdrTT9zubXOhqdUHS7oC0wwx9pxc9N8n8y23Q 3uHnzwfRfXUCtrsJhCqSOPdFA8r+rAv6L7di4lXGzOZ5zLbMYb5tGgttSawq Z7FhyxOalxn0eL/kGjndJDuA40Jlx1F6pkQUZ19aaXjs+p/4q73QxEDQOgIH v93ZnkOfZAMRxT5iuvvImB/DpXgfPv1HtNTPkPX8HAfuD/HUdg8faObwpCWM B/o5bLjWsR29j0KktEdxOIe4fRwJS4ABxolLX6nEla+3oPI1NYWeDm9+04rW C2mG/DwFeBaeVrG0VFiol8uRPMJeGGMvjGvCGCcXHidBGzW5MGa2UoD3YlDf jcdHe6VVyp/FZuE+eoikV284cZusqbrej7JbJlRUWHG3xo6qejuqG63oagkU q1h76qNQ3yL5I2L13hkiDx9BDz3CXbWAcOUSnBdncOPLFrR8VY7AN2SYrkqR JK9iUZLDEpF6SZLGlmu7uMXdqrBUyJYl8nIImBkEjX48nF885uoiAn3x/4pA 9nqan04t7HnvaFtlbNpGRHWImP4RMpanyDrfR977IZKun1FT/xLD/b/B6tBv 8HDkf+Gng+/jFwwAHxkmcL93DBteYQ+OZZpnClFdBEMaJ3UzTf2OEtf+SxPO fFOCP/9PBpSfjEPdkYdJOQdTIzkAze9lvOynAhuQCVulDCJKFjXUO4Aharyo qQ9Ri5PNgohJi3jY8+mSEhsYXsLg+DKaq6hm6jxoawiirTECV9cKgvSkEfke +hrHaG07tLfD6C2fRMuZFFRlS+irWUGkegPjtRtofWUcVd+wo/c7Wkx+X4tF 4sBSzyaWlXmsKLLY6Tvk7e0hL6zEcTHeOefZ4sg5BrFkMn7p/8h3jiuJC38b NQrbR9POjXPFHf683TsIq4/oWo+Rtr2HRfcHWPV9iPXgR9gOf4S96EdIDPwC s6O/wlryL/E48xv8JPUz/HL8CD/vn8YTXT+ymhBGTHRVvRORbisG2oPU0l34 9r/rweVXR9FWvwyFfgXNZ6zoZoDU1/bDwaDokQhrPAfRr4wQhMII6YMI0W1C xeqQTjYztXRIzNb8h+weW7FGllB9wtGRJa0pICjdwajiHsx3KMEI+tqyEXRf jKHt3CI9eg3+mi3adgexhj2k2g9Q9Z1h2tiJvh+asUCVm9PsY0W7hVVtHruB h8VdxvO+XeT61tmEWlr05r5R2thZsm2uNF+VG1+Fo3pUTKZszRc3RB2gIceM j5GyP8W85z0s+59jLfQcm5Hn2Ik+x/7wcxyMvoeVkdJu7n+Ee8u/wQdLv8TP Zx7jF+OL+NDtxxYZtfa1W2h55TJqv1JB6ezHjfNR3K0ew61LHtxllGu9wGFM Bq9r6IeV3MspJ9ATrL3aEOV5PzwmPzxmsmyzHXaDriibi0vMRJ3+j14MvuOX o20Zns5NBGX7pPQPoLhIZL7eD+3NCXQTozovrcJwdwuB+l1E6o8w0f6AUuAR orRs46sjUL3hQewdJ5al9FTDPlYNG9gNPcFm8AHywUNGpW3kgvTY0ByPpAU+ Lz5m0s/h/tZD2CuGS7l6q3Czc4PCXrLGB0jYH2HW8xhZ/xOs8mvXGfS2hp5g d+QJ9kbFNNrVwA7SVvHRaHzxL7G1/is8LfwUP83ex88mqKPfqsH5b1zA7ddq 0HHdiobrTlSc6MXdNzSoIo+u/oEK9W/o0UxdrG7ph4E2NakGYKZNzbSp2djH 5kKU+vjo6N6nS9PyxxD2WyhzEso4zJrFrC53xzZj+L3jzPzmE7/dX1T0gs8g Jn2GlPI5phXPoLqwgs4To3Ce9mPhkg8rlntYNW9jd+AZNgceIz9wxMBCFx0s IBdl2Bvk8A/5j40pysl/jmH1DI3JkdK0DJdkC37VPkHsEBOMWWnPfcz57/O/ PcAqmUNh6AE2hx9ge/R+8YLSwuSyQ0zKirlJzQbyiGUeYyq+C6tqFDdPdqPy hDCvJ2wv2gTzLT30Fwxof4P07vsytH+/G9JXZZD8gIr4hBnyeh96FEH0qANQ aKnktQ7MzGdLedh/+rGgYKvmKK+n9RrEWuiurh309xxhRCt2svqSWEK2+cQ8 pDfF/DZfw6F4rZInSMjJllTvYbb3PXScnqM6Zyy90o81gt6KbQc7HIsbkafI Dz5AbngfuRGhGgml9QjZUqT/42b8A9zffArLrWRxH3N7xzq8ii0M6Ak61j3E XfvI9B1gvv8ASyRfK4OHWBs+wPrIATKubKl3/w7GyIRjfbOY7JthqA+gvdKA iptWXH27Ew2nJJB+vQyut2vhuqpA4JoVwSsWOKhu7acMUJK0qV7XQPUjDZQ/ 0FKjmWH2jWNqeukP/gqrERDpuN6aoylftFxAccTw9YiRXqwsrbkYR/PJLGTl m7A07BbfC3Mkj3EkxxVELs0TTOsfY1R+SCKcxlBNDs+cyziI7BHBnmJj6DFW R2g5oYxDbLNYhiE3HsfWTOrjs3KfRUSWhblyERYho0VWgE9LQmXexJhjC3Hv NjKBbcyFdrAY2aEfb2MhLC6/GXOmMeoWV92P9c1D1eKCtNoEWYUFyjt2lJ2U 4MyXbqPx8+8i9KWTGLwl7D/hwKiwB4XQOLJHr1kwfNmI6AUdIqc0mKAWmKFa /ZulcH1sMiHtxH5HnFVzNKySfu/ApzjEYO99jJsfQnVaXJetuMjrKC/AXL0N d9N+8b3h7iPESMkT/GzaeIQZjlNj7QGGHL/Geyu/weEEKfnwQ6yP3cdKcWmQ UCCAzhYnSZpI4OH25pdenob/LMLKAgx1qxSHBdh57hcKS1oLGHUJtWLXkexf x/TAOmaj6xh1lHZDd6UQ9ogP87zmSXRVW9B91wJVhQP6SldxYcTV/9iIO9Tz 3i+ex9SJLnFZckU/kpUBtj6eezBFy06UmTF+vRdT5Vakqr3FHNu/Xlrn/fIQ xfHi9X9QTI+wl4uX4mjfhIc8J6Q9wLDpEIbrYuUazflpaG8tQ1+1QdohbooY 6d7DqGoPEzoOI9MeEWcX0/YdDPqeYjH5FOvDRzTcPaxNHGBlak9cBJQk4CUX sTSZwPtPHx/7W770+CnEMK5tXINeUoBNVYDXUEDIJibAjPkLmBwoID5EPzRN wGdPHG9C5PXMofOuHtKi0dzQVvpgrSTYXw2h4bt63PhCBcxfvInUXzQjUzuG mboxzDaMsA1hpiGC6bog0jVeJO7aMN3gxHy7D5k6O55tH72U4f7S7h9/H7aq RSruAhzdInxFjLvol4lFlVRnk8WjtjIPc4OYc9nPzw2qNjGi20TMtIm4sOec fQNpJ4VeeAf5UYbb2C4NRbKY3BSX9qTXsJTKYj27VBKga6W1vjPjj6BoLkAt FFvTFuA00yYu2sovFlyLRguwGCdhsaZgsk/D5JiFUhoiZJg4/tzQVATpWVG4 Khmjro3DfSuOG19sheLPqhH/ejXmm9NYbE0jK9SWbY9jsX0CC62jmGsZRKYp gFStFTl5CNlOF/L2QTFB71NYIAwYy+Z406swd/GylOsvCv5pLo5BfnISiiuz OK7wZm1bgUe6SvK4inBvHkPGPMYseca3VSQ8K8UEvKXxLWSnhLzrdSymC8V1 OYuZNcwm5r/88mPgP8X+7kdwu/YgURSgpOMY7AVYvbyKfh59S5D3TkFmSKPb OAODchHS61r0lNlpEDKkihGYK6bgrUjBey0DX/k8Wr5lQ+u/b8fw15uxfLMP y5IsVqSLWOmex3L3DNVTiipqEjOdw0i3+pDTjiAnrACVmUsZWH+3OA8mlJTQ txSKGV3igo4CBggJqisJSM9n0H1rHvLqBWibCbRdWbh6svBplhDUL1GiLGHE lStmac0Us7QKmBGyJFNC+v8sbfF7yKRW8P5zceVnyU82S48Op2ae4OWXn2y/ p2vok6Vx01PWB2X5MFl2HNaKGfgJ9b6bOfRXkXXfmkHdf1bBR6G1ckKKfM86 1ghoefZVXrlMNbOIrHIacz1TSEup1k1TyOmjyPW6cH9mrmSBPyTQ3YOqehWa tkIxL87WWyCh5bF7Ec1vTqLtyhzaKxYgrV+Aqm0Bhu4F2JQLcPUuIEAOMxEu YIpDPj7GNinkpPHIu08I+WmpNbz3/KPjKeLd4uGPRSBr9JO8ifU/eitFutFz Kwzl7Qn03ibg3VlC4O4aAuUbCJIOx7v2UftNG4zf1WCe8XqDHV3Q7mFdu4NC 7yZWdXks9WYxp0kjo6CYsFNU2GKUyv3YDA/gb5c6/GD7Q/RZ9yEjginZ2QYT b9VZgMtXQHv5HOqvL6CR0rytaQGyrgXo1Vl4HXT/AEctb3VouIDhcTbe6hA7 ekRIjYqv4enzn5SqoH78Nmt9ZFpTxcI6wqv7mgc9N4ehvJVCb9kiHBUcXdWb 6L+7i1DzfSQVD+G5noTse1ZMvmbAVnMcG/r72DAeYt20i7yJwc24gnnDHGYN KeQ8C2xkVe5BZC3GUh25v4V9IUeEztWmWUO3hb5M8NEQfJo7FlF2cw5NVCIy FdUG/2YjeLv4Ny+BqY/A1Dcq5gIdZ6CJ1SOx/VuZ+8fFd6yVXjhqJhnUFyE5 J24x10OwEua7dPRSRwW1Y902Io0HCHeQ9/Q+w1jLDtp/5MfAm3ZsXbdhw/wI mxben+0QeTLHHMfdvDmLBaeQS0Ft2M9u9HPcuuz4k9JyHiHvSch/adMV0M3P K3j9al6/JlRAOHOA7NaTUu097BQPf/Iisi6NrsFRSeJbMw/JGbEYovzKBJTX ZqEvW4bj7gb6SdlG2g+R6H6AWSXVEOla2xvDsJ30YZnKcEe/iU3HI6w7j5An O805NzBvyyEbYKSICPUnhYJ047xs99mXHeLjm9YcpzvJLk59DAECZD7DnUeI yx5iWvUEC71P4a9dg/rMIJKXAjiQxrDufsxGyec5xJJ7G4sE0eWhHbEc3vA8 md4EloIelH5+60VcFBnFH2FQPv2xH+0+N4mey3NQl63AWiMGzGgX9aec+lP9 CHO6R4jJ9iC9MIrI1SB26/tR8FLTeI+wSnKeJdVcHjwQinyJhcfG6ZWjE9jK TB1fxEHx8PcwqFiF8oJYhVx6Ksb7n4WKljfViFnzEY7z8R5aX32PJPmIzkDG VzWHaN0KnrpXcRjI8if3sezbRZZyNx87wvKEUCeJPzvJex+PkXEWXv7VF3XH XvOi6+0xYvo0jkuZOJs59jq3MSTfRUy9i6RhDxnLHvq67iHq+nWxnulGdBdL Pt5hcBvrE4didagEzZ3Ik2jOYWliAu8/eXR8p4fFg1iUSnJyjO4+gs7TaYYz EQIsjRxqVDkh+QYFJNmGgWzDskUxuIVQ31PMUOHM9jGgBjewObGPAgXhcpLU LLVZLBu0lJzD+uKimByIeyVcE14drw2j9UQSbZcp2+6Ide+EEO6V5RFU5RHV rWHUtIaYbQ2T5DVxdx7zAxtYi5HfTG1h5aWltUvpVcwnZvD+s2elPETs/5Zf ic8DhHx60a2E12cgqV6EppmKpGuJQTJHNZJD0JBD2JxDwpdHdmgTS2P8jcl1 ZBOkCwwTCxmhkS6kl7G/dw/nxd+6X8KxoGS5GJ8NrWvQtK9C27kMa88y3Npl +I3LmCJsJ4NilYLpEcZdYtbMFP9NWM4wAmUywsLLNWRzm7ggfvWD4uEzmB26 D3VNnl/L0N9DGsLA52fgCzMaDPWRzxJOJqJiMuxkKRk2xq+dSIlJsbNLO7go fuXDkpAV0iX9tn30MLho1QLFI7I6iKT8uiCvMsyrjPAqI+NCXi5bsVjKGp68 9xNcEr/qcelJSyrxmKB8UFzkpSZIGwhyFoKcjSBt51XZGIesHO/L209wRfyv z0osb3LucXEtkpAumslTa649wXXxI0Vtcfp35787/935785/d/7/8xx/7X8D /Seq4g==\ \>"]], Cell[BoxData[ Graphics3DBox[{ {RGBColor[0.7333333333333333, 0.6, 0.4666666666666667], SphereBox[{6.2984567579999995`, 0.87813677494, 4.5943018512}, 0.255]}, {RGBColor[0.7333333333333333, 0.6, 0.4666666666666667], SphereBox[{8.0912398142, 3.0808202978, 5.136275268}, 0.255]}, {RGBColor[0.7333333333333333, 0.6, 0.4666666666666667], SphereBox[{10.1614346472, 3.1034970098, 3.1087882425999998`}, 0.255]}, {RGBColor[0.7333333333333333, 0.6, 0.4666666666666667], SphereBox[{5.4828510164, 0.92895150708, 1.8780285960599998`}, 0.255]}, {RGBColor[0.7333333333333333, 0.6, 0.4666666666666667], SphereBox[{8.954466651, 3.8282069308, 0.5798057313199999}, 0.255]}, {RGBColor[0.7333333333333333, 0.6, 0.4666666666666667], SphereBox[{6.659205451399999, 2.2315774334, 0.10211134441}, 0.255]}, {RGBColor[0.7333333333333333, 0.6, 0.4666666666666667], SphereBox[{7.652445436999999, -1.61707633272, 5.1421334186}, 0.255]}, {RGBColor[0.7333333333333333, 0.6, 0.4666666666666667], SphereBox[{3.9725819972, 1.10059531966, 6.2977008676}, 0.255]}, {RGBColor[0.7333333333333333, 0.6, 0.4666666666666667], SphereBox[{3.2546750897999996`, -0.53636093058, 1.15904454484}, 0.255]}, {RGBColor[0.7333333333333333, 0.6, 0.4666666666666667], SphereBox[{5.6393203292, 2.1062885995999996`, -2.5537757163999997`}, 0.255]}, {RGBColor[0.7333333333333333, 0.6, 0.4666666666666667], SphereBox[{1.2153772769, 0.6439052372399999, 0.150276680698}, 0.255]}, {RGBColor[0.7333333333333333, 0.6, 0.4666666666666667], SphereBox[{-1.00289648546, -0.7372954961599999, -0.36513285772}, 0.255]}, {RGBColor[0.7333333333333333, 0.6, 0.4666666666666667], SphereBox[{-1.10875893598, -3.5256617982, 0.20480850387999996`}, 0.255]}, {RGBColor[0.7333333333333333, 0.6, 0.4666666666666667], SphereBox[{-3.047183175, 0.44584305518, -1.3762307540199998`}, 0.255]}, {RGBColor[0.7333333333333333, 0.6, 0.4666666666666667], SphereBox[{-5.1780382126, -0.97286873932, -2.1119577776}, 0.255]}, {RGBColor[0.7333333333333333, 0.6, 0.4666666666666667], SphereBox[{-7.2930195518, 0.22196721596, -2.9294532452}, 0.255]}, {RGBColor[0.7333333333333333, 0.6, 0.4666666666666667], SphereBox[{-9.5026761636, -1.24914668052, -3.692524604}, 0.255]}, {RGBColor[0.7333333333333333, 0.6, 0.4666666666666667], SphereBox[{-9.4310555482, -4.0933354886, -3.5706372769999994`}, 0.255]}, {RGBColor[0.7333333333333333, 0.6, 0.4666666666666667], SphereBox[{-11.584965243, -0.072731774288, -4.4973589074}, 0.255]}, {RGBColor[0.7333333333333333, 0.6, 0.4666666666666667], SphereBox[{-13.7116628834, -1.5733480730799998`, -5.6533043016}, 0.255]}, {RGBColor[1, NCache[ Rational[1, 3], 0.3333333333333333], NCache[ Rational[1, 3], 0.3333333333333333]], SphereBox[{-14.6026686924, -0.31240950232, -7.868819063999999}, 0.178]}, {RGBColor[0.7333333333333333, 0.6, 0.4666666666666667], SphereBox[{8.9455849388, 2.8361007808000003`, 6.994820788999999}, 0.1]}, {RGBColor[0.7333333333333333, 0.6, 0.4666666666666667], SphereBox[{7.045654418399999, 4.8545171214, 5.077693761999999}, 0.1]}, {RGBColor[0.7333333333333333, 0.6, 0.4666666666666667], SphereBox[{11.011055456799998`, 1.2324226054199998`, 2.9663029022}, 0.1]}, {RGBColor[0.7333333333333333, 0.6, 0.4666666666666667], SphereBox[{11.60291764, 4.4877213048, 3.6071089888}, 0.1]}, {RGBColor[0.7333333333333333, 0.6, 0.4666666666666667], SphereBox[{8.4075799466, 5.8133640938, 0.62856066212}, 0.1]}, {RGBColor[0.7333333333333333, 0.6, 0.4666666666666667], SphereBox[{10.3173370422, 3.5362442637999996`, -0.9369639453199999}, 0.1]}, {RGBColor[0.7333333333333333, 0.6, 0.4666666666666667], SphereBox[{6.3706442912, -3.1879677619999995`, 4.7785501362}, 0.1]}, {RGBColor[0.7333333333333333, 0.6, 0.4666666666666667], SphereBox[{8.2460083736, -1.6577243389799998`, 7.113873526999999}, 0.1]}, {RGBColor[0.7333333333333333, 0.6, 0.4666666666666667], SphereBox[{9.305010823999998, -1.78331552894, 3.924016039}, 0.1]}, {RGBColor[0.7333333333333333, 0.6, 0.4666666666666667], SphereBox[{2.6287978386, -0.38658124782, 5.8226237512}, 0.1]}, {RGBColor[0.7333333333333333, 0.6, 0.4666666666666667], SphereBox[{3.0889461196, 2.9398467381999995`, 6.0161316936}, 0.1]}, {RGBColor[0.7333333333333333, 0.6, 0.4666666666666667], SphereBox[{4.5430902766, 0.9068606101399999, 8.2673622774}, 0.1]}, {RGBColor[0.7333333333333333, 0.6, 0.4666666666666667], SphereBox[{3.2353998846, -2.5602007847999997`, 1.42313375334}, 0.1]}, {RGBColor[0.7333333333333333, 0.6, 0.4666666666666667], SphereBox[{6.8030136, 3.2707377608, -3.7919241915999997`}, 0.1]}, {RGBColor[0.7333333333333333, 0.6, 0.4666666666666667], SphereBox[{3.7010283709999996`, 2.8028416031999996`, -2.5785311269999998`}, 0.1]}, {RGBColor[0.7333333333333333, 0.6, 0.4666666666666667], SphereBox[{5.6759810136, 0.15492918610999998`, -3.2121562547999996`}, 0.1]}, {RGBColor[0.7333333333333333, 0.6, 0.4666666666666667], SphereBox[{1.29132536484, 2.6420259206, -0.2581365716}, 0.1]}, {RGBColor[0.7333333333333333, 0.6, 0.4666666666666667], SphereBox[{-0.33081543356, -4.5810737692, -1.38367627446}, 0.1]}, {RGBColor[0.7333333333333333, 0.6, 0.4666666666666667], SphereBox[{-3.0658914624, -4.0899339818, 0.51139765012}, 0.1]}, {RGBColor[0.7333333333333333, 0.6, 0.4666666666666667], SphereBox[{-0.0062334501835999995`, -3.9225042581999996`, 1.8987966848}, 0.1]}, {RGBColor[0.7333333333333333, 0.6, 0.4666666666666667], SphereBox[{-3.0381124902, 2.472706471, -1.61573462726}, 0.1]}, {RGBColor[0.7333333333333333, 0.6, 0.4666666666666667], SphereBox[{-5.1264486927999995`, -3.0110894083999997`, -2.024841409}, 0.1]}, {RGBColor[0.7333333333333333, 0.6, 0.4666666666666667], SphereBox[{-7.3442311263999995`, 2.2604902412, -3.0167585863999995`}, 0.1]}, {RGBColor[0.7333333333333333, 0.6, 0.4666666666666667], SphereBox[{-11.297726891, -4.846580272200001, -4.0077309008}, 0.1]}, {RGBColor[0.7333333333333333, 0.6, 0.4666666666666667], SphereBox[{-8.877554802799999, -4.6857645896, -1.6773019003399998`}, 0.1]}, {RGBColor[0.7333333333333333, 0.6, 0.4666666666666667], SphereBox[{-8.0659174858, -4.8050063002, -4.9393658188}, 0.1]}, {RGBColor[0.7333333333333333, 0.6, 0.4666666666666667], SphereBox[{-11.7452140078, 1.9541656565999999`, -4.3202915812}, 0.1]}, {RGBColor[0.7333333333333333, 0.6, 0.4666666666666667], SphereBox[{-15.250088819999998`, -1.7430832623999999`, -4.2942133624}, 0.1]}, {RGBColor[0.7333333333333333, 0.6, 0.4666666666666667], SphereBox[{-13.031550496, -3.4508286486, -6.158617033999999}, 0.1]}, {RGBColor[0.7333333333333333, 0.6, 0.4666666666666667], SphereBox[{-15.9583581248, -1.33242690534, -8.547797615799999}, 0.1]}, 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.15], TubeBox[{{10.1614346472, 3.1034970098, 3.1087882425999998`}, {8.0912398142, 3.0808202978, 5.136275268}}, 0.15], TubeBox[{{5.4828510164, 0.92895150708, 1.8780285960599998`}, { 6.2984567579999995`, 0.87813677494, 4.5943018512}}, 0.15], TubeBox[{{8.954466651, 3.8282069308, 0.5798057313199999}, {10.1614346472, 3.1034970098, 3.1087882425999998`}}, 0.15], TubeBox[{{6.659205451399999, 2.2315774334, 0.10211134441}, {5.4828510164, 0.92895150708, 1.8780285960599998`}}, 0.15], TubeBox[{{6.659205451399999, 2.2315774334, 0.10211134441}, {8.954466651, 3.8282069308, 0.5798057313199999}}, 0.15], TubeBox[{{7.652445436999999, -1.61707633272, 5.1421334186}, { 6.2984567579999995`, 0.87813677494, 4.5943018512}}, 0.15], TubeBox[{{3.9725819972, 1.10059531966, 6.2977008676}, {6.2984567579999995`, 0.87813677494, 4.5943018512}}, 0.15], TubeBox[{{3.2546750897999996`, -0.53636093058, 1.15904454484}, { 5.4828510164, 0.92895150708, 1.8780285960599998`}}, 0.15], TubeBox[{{5.6393203292, 2.1062885995999996`, -2.5537757163999997`}, { 6.659205451399999, 2.2315774334, 0.10211134441}}, 0.15], TubeBox[{{1.2153772769, 0.6439052372399999, 0.150276680698}, { 3.2546750897999996`, -0.53636093058, 1.15904454484}}, 0.15], TubeBox[{{-1.00289648546, -0.7372954961599999, -0.36513285772}, { 1.2153772769, 0.6439052372399999, 0.150276680698}}, 0.15], TubeBox[{{-1.10875893598, -3.5256617982, 0.20480850387999996`}, {-1.00289648546, -0.7372954961599999, \ -0.36513285772}}, 0.15], TubeBox[{{-3.047183175, 0.44584305518, -1.3762307540199998`}, {-1.00289648546, \ -0.7372954961599999, -0.36513285772}}, 0.15], TubeBox[{{-5.1780382126, -0.97286873932, -2.1119577776}, {-3.047183175, 0.44584305518, -1.3762307540199998`}}, 0.15], TubeBox[{{-7.2930195518, 0.22196721596, -2.9294532452}, {-5.1780382126, -0.97286873932, \ -2.1119577776}}, 0.15], TubeBox[{{-9.5026761636, -1.24914668052, -3.692524604}, {-7.2930195518, 0.22196721596, -2.9294532452}}, 0.15], TubeBox[{{-9.4310555482, -4.0933354886, -3.5706372769999994`}, \ {-9.5026761636, -1.24914668052, -3.692524604}}, 0.15], TubeBox[{{-11.584965243, -0.072731774288, -4.4973589074}, {-9.5026761636, \ -1.24914668052, -3.692524604}}, 0.15], TubeBox[{{-13.7116628834, -1.5733480730799998`, -5.6533043016}, \ {-11.584965243, -0.072731774288, -4.4973589074}}, 0.15], TubeBox[{{-14.6026686924, -0.31240950232, -7.868819063999999}, \ {-13.7116628834, -1.5733480730799998`, -5.6533043016}}, 0.15], TubeBox[{{8.9455849388, 2.8361007808000003`, 6.994820788999999}, { 8.0912398142, 3.0808202978, 5.136275268}}, 0.15], TubeBox[{{7.045654418399999, 4.8545171214, 5.077693761999999}, { 8.0912398142, 3.0808202978, 5.136275268}}, 0.15], TubeBox[{{11.011055456799998`, 1.2324226054199998`, 2.9663029022}, { 10.1614346472, 3.1034970098, 3.1087882425999998`}}, 0.15], TubeBox[{{11.60291764, 4.4877213048, 3.6071089888}, {10.1614346472, 3.1034970098, 3.1087882425999998`}}, 0.15], TubeBox[{{8.4075799466, 5.8133640938, 0.62856066212}, {8.954466651, 3.8282069308, 0.5798057313199999}}, 0.15], TubeBox[{{10.3173370422, 3.5362442637999996`, -0.9369639453199999}, { 8.954466651, 3.8282069308, 0.5798057313199999}}, 0.15], TubeBox[{{6.3706442912, -3.1879677619999995`, 4.7785501362}, { 7.652445436999999, -1.61707633272, 5.1421334186}}, 0.15], TubeBox[{{8.2460083736, -1.6577243389799998`, 7.113873526999999}, { 7.652445436999999, -1.61707633272, 5.1421334186}}, 0.15], TubeBox[{{9.305010823999998, -1.78331552894, 3.924016039}, { 7.652445436999999, -1.61707633272, 5.1421334186}}, 0.15], TubeBox[{{2.6287978386, -0.38658124782, 5.8226237512}, {3.9725819972, 1.10059531966, 6.2977008676}}, 0.15], TubeBox[{{3.0889461196, 2.9398467381999995`, 6.0161316936}, {3.9725819972, 1.10059531966, 6.2977008676}}, 0.15], TubeBox[{{4.5430902766, 0.9068606101399999, 8.2673622774}, {3.9725819972, 1.10059531966, 6.2977008676}}, 0.15], TubeBox[{{3.2353998846, -2.5602007847999997`, 1.42313375334}, { 3.2546750897999996`, -0.53636093058, 1.15904454484}}, 0.15], TubeBox[{{6.8030136, 3.2707377608, -3.7919241915999997`}, {5.6393203292, 2.1062885995999996`, -2.5537757163999997`}}, 0.15], TubeBox[{{3.7010283709999996`, 2.8028416031999996`, -2.5785311269999998`}, {5.6393203292, 2.1062885995999996`, -2.5537757163999997`}}, 0.15], TubeBox[{{5.6759810136, 0.15492918610999998`, -3.2121562547999996`}, { 5.6393203292, 2.1062885995999996`, -2.5537757163999997`}}, 0.15], TubeBox[{{1.29132536484, 2.6420259206, -0.2581365716}, {1.2153772769, 0.6439052372399999, 0.150276680698}}, 0.15], TubeBox[{{-0.33081543356, -4.5810737692, -1.38367627446}, {-1.10875893598, \ -3.5256617982, 0.20480850387999996`}}, 0.15], TubeBox[{{-3.0658914624, -4.0899339818, 0.51139765012}, {-1.10875893598, -3.5256617982, 0.20480850387999996`}}, 0.15], TubeBox[{{-0.0062334501835999995`, -3.9225042581999996`, 1.8987966848}, {-1.10875893598, -3.5256617982, 0.20480850387999996`}}, 0.15], TubeBox[{{-3.0381124902, 2.472706471, -1.61573462726}, {-3.047183175, 0.44584305518, -1.3762307540199998`}}, 0.15], TubeBox[{{-5.1264486927999995`, -3.0110894083999997`, -2.024841409}, \ {-5.1780382126, -0.97286873932, -2.1119577776}}, 0.15], TubeBox[{{-7.3442311263999995`, 2.2604902412, -3.0167585863999995`}, {-7.2930195518, 0.22196721596, -2.9294532452}}, 0.15], TubeBox[{{-11.297726891, -4.846580272200001, -4.0077309008}, \ {-9.4310555482, -4.0933354886, -3.5706372769999994`}}, 0.15], TubeBox[{{-8.877554802799999, -4.6857645896, -1.6773019003399998`}, \ {-9.4310555482, -4.0933354886, -3.5706372769999994`}}, 0.15], TubeBox[{{-8.0659174858, -4.8050063002, -4.9393658188}, {-9.4310555482, \ -4.0933354886, -3.5706372769999994`}}, 0.15], TubeBox[{{-11.7452140078, 1.9541656565999999`, -4.3202915812}, {-11.584965243, -0.072731774288, \ -4.4973589074}}, 0.15], TubeBox[{{-15.250088819999998`, -1.7430832623999999`, -4.2942133624}, \ {-13.7116628834, -1.5733480730799998`, -5.6533043016}}, 0.15], TubeBox[{{-13.031550496, -3.4508286486, -6.158617033999999}, \ {-13.7116628834, -1.5733480730799998`, -5.6533043016}}, 0.15], TubeBox[{{-15.9583581248, -1.33242690534, -8.547797615799999}, \ {-14.6026686924, -0.31240950232, -7.868819063999999}}, 0.15], { SphereBox[{-13.7116628834, -1.5733480730799998`, -5.6533043016}, 0.255], SphereBox[{-15.9583581248, -1.33242690534, -8.547797615799999}, 0.5241], SphereBox[{-14.6026686924, -0.31240950232, -7.868819063999999}, 0.178], TubeBox[{{-13.7116628834, -1.5733480730799998`, -5.6533043016}, \ {-14.6026686924, -0.31240950232, -7.868819063999999}}, 0.1], TubeBox[{{-13.7116628834, -1.5733480730799998`, -5.6533043016}, \ {-15.9583581248, -1.33242690534, -8.547797615799999}}, 0.1], TubeBox[{{-15.9583581248, -1.33242690534, -8.547797615799999}, \ {-14.6026686924, -0.31240950232, -7.868819063999999}}, 0.1]}}, AspectRatio->Automatic, Boxed->True, SphericalRegion->True]], "Output", CellChangeTimes->{ 3.5712270769495296`*^9, 3.5712274615706053`*^9, 3.571227522909913*^9, 3.5712276870222015`*^9, 3.5712277683139443`*^9, 3.5712350092709856`*^9, 3.5712353695536184`*^9, 3.57123566651574*^9, 3.5712357077622128`*^9, 3.5712362786764154`*^9, 3.571236355896551*^9, 3.5712364394034977`*^9, 3.571244985796138*^9, 3.571245058305065*^9, 3.5712451083967533`*^9, 3.571299186701008*^9, 3.5712993187240396`*^9, 3.571299393978572*^9, 3.5712994978435545`*^9, 3.571299553910053*^9, 3.571299617526964*^9, 3.571299860247791*^9, 3.571299903444267*^9, 3.571300081066179*^9, 3.5713001480838966`*^9, 3.5713001800327525`*^9, 3.5713071914521604`*^9, 3.5713073116503716`*^9, 3.5713074130661497`*^9, 3.5713118585627537`*^9, 3.5713119305256796`*^9, 3.5713119878401804`*^9, 3.57131202181704*^9, 3.5713122935539174`*^9, 3.5713123488872147`*^9, 3.571312478273842*^9, 3.571312907742596*^9, 3.5713129469142647`*^9, 3.571312997177553*^9, 3.5713152418342957`*^9, 3.5713153859473486`*^9, 3.5713156358441877`*^9, 3.571315765355615*^9, 3.5713161651219177`*^9, 3.571316535029767*^9, 3.571316705818867*^9, 3.571316812133054*^9, 3.5713168796499724`*^9, 3.5713169706293325`*^9, 3.5713171540232544`*^9, 3.571317280180676*^9, 3.5713209006319695`*^9, 3.571320943095244*^9, 3.5713209749973*^9, 3.5713210215945816`*^9, {3.5713211688588405`*^9, 3.5713211965956893`*^9}, 3.5713217037993803`*^9, 3.572804088344525*^9},ImageCache->GraphicsData["CompressedBitmap", "\<\ eJztvWd4FEfWNnw/JuOwttf2Otu79gYbC3md1zmsw5rknAMZg40JBgMmYyyi QMaSCEIkgQCJYJBACCEhBAiBQCiHUc5ZQkI5TL+nurtGNa2aZnj2vb4/3zuX x4x6ek7VSfc5VXWqesiIad+MmThi2vhRI+5/c+qIyd+MH/XD/W9MmkqXevwP 8D/fsPf9YJ8VgP9Pof+U8ex/7Mr/+/z/2ee71c89UFVVheDgYJSXl+Nt4fs7 1M990NraitjYWCxYsAAzZ87Ehg0bsGTJEjQ1NeE/wv23qZ/7d7s/KipKvZd9 yz6PHTuW/Sv+9I/q597qT1l3tmzZYvtpcXFxT/XrnkhNTVW/YpSJ4lsChZsE CmLj7Cd0a2+BAuM1JyeH8SBSuMEBBb37/dSve6G+vl7lnv3FKLFb3xTIXGsg I7JCZK7TvxbJsM9MqPT1GwKlfgIl1hLrkKenJxMIu/UGgRITqaJ5ktooURYp 9TZn7Wb9a12sNkrsbxLY6wKlHuaUbtVNxkiJc8uu/Vsg9z+6ULnO3d3duc5x u26ejGX2PfvrGv0auycgIED96zWNXqe5Adyp/3L//v2wWCx21FjvdF45tTZz Pu+RUOshUOO8vqpRaza3ifsFrtjXmqlq15ji2XX21ysatUZzu/iL/ktu6iI1 zinrm06t3pzTv0qo9dKv6U6kUntZo1ZrTu0fAuSwLms3d3HKuX9Jo1YtMQ/O 6QCDuEVSIps6qQpz83CRUOujX9MdSv3rRY1aqTmb/9R/Kbolp8YNjf31gkat yAT9iNoTwi+5U/UR+qtDB6dW4MA8dE6fklDrK3Gr5zVqueac/kviCP0knD6n Ucsyp/a8CTXRrXRqFhPzeEniU/0lPvWsRirNvGOvSLygv9AxLkydWrI5tX9L qF0r8SlNuEgwMQ9i9U0JteskPvWMRu2ixDwER/iPxBGuk3CqUztvzulgCbXr JW71tEbtrDlOviNxK06N3cqNTTNxnNGp8fzGgJPvSRzheqG/3K10aqfMOf1Q Qu0GwQY5p09q1E6YU/tE4gh/kLiVBg2IMLeQz02oiW6lUztmDpVfSjzrRoln Pa5RCzXndLjEem8U+sZuZwrTqR02t5BREmo3STh9TKMW7AAqdQsZI6F2s4RT De5xwJzTbyS+cLOBU9Y3ndo+c2rfSqj9UeJZj2rU9kigkidakyRuxUmJbuWq kdptbh5TJI7wR6Gz3K10av7mbE6TULtFwuZAjZqfuXnM0H8pppS3StxKywaw 1dw8Zknc6laDWlifdWqbzDmdI1DjbnWbxNge0aj5mFObL3HS24S+cW51ausl 5sE5XSTxgj9J2NQSMnibm8diCbXbJWw+rFH7zZzNJfovxXzydgObrG86NQ8T nKTblkt86g6JsT2kUVvlwDx0TldKqN0pcMrVouXEWGHOqYfgpNwR7hBa4G6l U1tqTu03iVvdKeH07xo1NxPz8JaQukviU3/TSP1s3rF1Ep+6yyBI1opObYE5 NR8JNT7rIea62iAHc03Mg1jdJPGpu4W+cW51arMl5iE4whaJI9wj4fRBjdpM c079JNTulbjVAxq16eY46W9CTXQrndoP5ji5S+II9+nXeLrL/tIGrphszmmg hNr9AqdcM3/WqE00p7ZfcCv2Seyb6FY6tQnmFnJQ4gu8b6JbadfwjTlUBkuo /VniWVp/Mcac0xCJL/zZIEvWik5tpLmFHJVQ07jqqf4kPz9f7QBpRCc43NxI jkmcS3OHPjaCfOqPgyzrsk79S3Pmj0sMWsO7/g6pc5HrwtEb+sy8oSiHwdIx G6whPqUi2qHGPj6RgC8jzQR3WtLcLUJz/DfG5viAXzQtvbkPzY3yjMT9bjK0 KAmGtvGtmHrpLb5nLtJzkhZvcKJFPvoSTVRvcZi5ccdJlNHfiRb5SKO7DWOI ufXHS/TRx4kWb5HoX2/xbXOpJkla7OmgRUH9tsxP0uKb5i1qYHWtnQWwt1lr d0p0r7f2usQtuEQz1O/6qqpPTEx0RN4YbgXqr5p7QYZBUuxrZi1i3/8skbCW LuiTUw4lZaQudp2HuAcdU3/eJEjZqPc3lTu7Q9cwb6h7DqXPdjlMgNOdMCc+ MS2a0wMSN9JbfNpccM602Eei9AckvdBbfOK/b7H/1bX4mIlhO9Pc9SbNidf0 5lzNGUwzaZEv7HHcE23xL45bfOS/b/EWSYucRxG1taGDPmBzmLY50+KfTFrs PvTRB04Ok/9UJ1qUrVjxFpk92A+PdEC4Avqatyhb1XpAck1v8QE9aLCvuumv t6NWZItdMo/XGxFXs5hmd+zYgVTzFmS+Jbtm10Iv21fszZPhBPOW/va/aam3 3VdCaxfMG3tIJyzOdcj82q6xPnaKY++IiAgbe2fNW3zESSQxqEq2xCq2etq8 VVdJC7Jod6d9q2Ja0UPS6gnzVh+XoIfMvw2tirf3lLT6T924tEoXxfZmL5W1 HurHnnZ+SC81Qb8GHR0dAySdkDmlScd6STr2qEnH+ujsUOuIOXIc9Sei0dnR MUu3KEfwwV5c3yJZviq7zWcv4j/zgXJspz4hJ+dKRAGdK55LsaaNy7MiV+pU a0/WeA9JR3gZSU52AfZOuwTl3CVYq/J+NLeMHk5I6teVdcg6SterGtDSaHNV GZB2H4LauBO/6ivh7hEDT5rlOOZz9bwYpAfQtcsKqqtKZNM0Ap89NZNzQLOX TjMkpBmBpxWSG123RP1f4JQv8PIJEhunDvvSQ+9LSXEpfMaUoiWerne0TTHn r6+Eksxce+n/Z9a/7ncFeTl0vbIZHfV14PULsuDVfZ5Xym5/CbsDbOxeo7Mm dsgmhZ5Yt/IE4rdYodTQuKml9ntzjq8zcOfIQblu4y60YGckXaumd270PyS9 d4JZ0RT4qJ9Ne9ivE9izyIGQa7a0uASrP8hHw1mm2c7HbTdcY5MUVydTEyfj KOsS5dHVTo8uD9a07b1PIWxg2m5BQ1mZTs5eADwSdZ+HlwrgOkEAbC6R1dg9 wV0pKA4x3tT7cgVtzZVPmeAML19rbGjEqW1haNq5n+TS8aA5v3xCLjGhAZtI r1am16xYM7ZEPDawJQZY4zo5Y4uPWxobGrDgrQzURFFrbYoqWV50Yu/F9Opl 62IBgha3Qklqh/VS4Z/NGXtAUNqq3QrSMpnS2tBRUYq/CV0zpg+iZgzcifHy BgN3TFD/1Dt69kwqwpc3QykkzpqqnryS53IGY6LzELaiBUo6vWvz7jVn8O86 g2kp1INwaqmCeWR8l9yusRmwbBLjKvkVawEW6BPLroI2Jz8bh+JQureVbKiT a7MbqzJo4Q59YK8F0Z5k65mNpN+iu8zZf1jQ7xrSb7KFhdZ2dFSWSgO7WcsV 5VX4fd5vyH9zItoqK2+R8C9LPHRx8dGKmHTfJBEXh5GWFhp9RcUiid4ZZ+JQ X1evp2Qs7ShE8OwGWBnEtDc84yQ6c0ZCDuYh3rcTSl49rE31t5uLcKD+K0tG PbwpM2lnFpSX6lh6/e2uMcmnplhwbM4aFH08FYqnH5STNEKpqzAbe4uQYpCg rIiCSzAuLk4LcVrHesDPdQyinh6DlDdHQ/Wu+wX5+ixNQO4B6mcD4WZbq1ZS 0wXr14iA+f4/05C+gwJmQTW5a8Ot5kLj2TrjfrmfgoR0Fgw70VlWqHWjlyAq dlM6iej0L+tRMWI2lE37oJxNIiCqg7WDJN7R8X9BVH+UiEpTYj/kZudjhOtc rHtijdqj7G82aD1bNB8dC8fZ5Yest7mx8Wgor9RXyJlt5CBgcg06GZvtjbws 7fNnMlG0l2RWVgWxMFsyq/Ck/nXc+UqsCSF1qFaWprZmpw/qbXR4NM7PW4NL 37lB8T8EJT6DkLARnVYFWbVtqmp5+YQsney+Ki8V2B9s1nCNDubsh+KLQdoQ 11WY9djv2PVRpHqtcmW0Zv+7KbDu8RZzrqjwIpRtpLiXfIzx9Sf9svvc00jx t6rJ9eW6stf0yy0tLRjzSh6qg0kSZUU3msvvGR1QmLw8diiIVw3Oio6MBBsm cHdkr3NPjUbT9FVQ9h2DkppDjRMokvzqWjttdQ9XKTvx9pv17ohIwKXHDK+0 uBzDXI5i4dBU7J9WrF6vC6zQ7o9JhhJ7TP1Mg0UbbJ2O7kR0BjMwK2pKS2/T L7MMb/3IYjRfZBle+7/1y/V1dZgyqBiNbDBVU3K9ufh4vWhhfi1WB3MI1ZRX XV2LnWRuaa+NR/vitdfoyKI0daK5U0FjW4dthk3EfVkidPuVJNbXTmJccYzE 3sCDGPJ4Gu9UUiDp6qSu17x67XJf1FKMEl8lxXXYfIKCbRszokQus18Xh+GC L5kcjb3qLxVymRXmF2LhJxVoO0Ff1ZX0N5eZLJfW0PJaePsruJBKblzagqBX n0Xs65/A6r4JSngMIWi5mgBcImhrs9rXUVyF8MQs8mbdQWXCY2Y3f/5CDHle M68dvgpiKRMqS9a+P7Bkkya9m5A3eRsKftuKiowsm6NMW6egtoHZUIbNgRIp HqdGnUHKmQsoyy9CFUm9saFJ/e46m1mWYuW7ubgcwyy283WbiEvw27gaWKNJ xPUlfcxF/LT+K5EvmAX3fgg+eAqzl5+H38TFODpiOFKmDUFbQRm5Bg3dyQpa O7sqMGR5u2iTBomLmc6NNpX31EMd7wyT94wpp/HFXAXcV9JzFZtJatf+gBNb FaSsqUbO7OPI+2C2evWT0U1ILaUWWhpV1y8prsapWcWInJqMyAkxOD78KCKG 7tBZ74twlwmI23nQRjuZFFKSX4xKUkhDQ9M1eteqq6vht2E/TrjXqWOkjpYq cIXkZhdj69R6KOcpIbqU39NcIc+aKeT6bvbHDCL2zHk8e9dofPHSNPw6Yh5C Rk1H5owJyKmjSNXWKQ09XBmiS1xJGVJ7cLG71tHRiV8312ISBYiNZxSE5Wlq OZHZov77s+tIbPa24FdCwBC6J259m3p99/vHcTRZG4RVZ6VRaOrAtuMKAih3 2r9XQdBOun+bgqMbNXoRq9oRuaRB/Rw5IxeRky6qn49/uB/HBm1B2EvLEPrU TwgeOAHv3fMyPB4bjLDRP8ISuJsE36Lr5lpKBrKxb34jlAQay1Vlqlcd7Ql7 wUwz19ldrqTMxXvVLnz4WCKGf3gBb77zMz59ZTOWuCzCxWdHs/GwsZ5FVEr3 gkNboY+Y3N9s85AueOShjJH12ngSozyica5Um2ekLxeS/EtS8gU36YfAJeVY E0ZJICFmY8AKZB85jrLiKmQUUBpG8J1TydwsNo9H29/jFfiGaXrYFaRg7z7t 8yHS55HNpPP1Co6tsSJgdg5GPjYOy976Fmc+GY+EOZ9TVC3WZd8XF2LzcGQp DTFTWpF4+pBR3i9fWdzM+Hdv24ehLoH45uNmuHlRz8jqTibmYvf28/jQdS38 XaagdPX6/6W4u6959rQNtfU6Nc0prsNqt0jMdx1uQ4qcAgWR5+vwrY+CijoK RAVZCBq7B4HPT0TzYf+eEvZaWvQM9FpkUXZaUKMgmgZg4WkkVHIOt61Z+OC1 HzHBdSzO0jvVcxJqzu/Xd6lpiBJyKBEnPNqgWJqRee4YE+RrZoLUEMXb/QA+ fy4Hs+cp+O0gtVaooEmfrGppacfSeWGY7rocUU+MRWtZuQ0iZNIUr5lI817d CtjfbKGMB1MNRRR4rTqNOa4jNHloQWwP9exiAcPuNnz37Ej4kAwq9++BTJSQ xzDtWh/Vcg78Ho6xROK0y1gUn6AkvzIbSmKQvj2sbzcc8FhxEuc3kFCyL6Pj kpZFd/mc1tHeGDbgKL4f2YEVmxTsJE/JbSQRtrbwmfm0lFIMdfXFepdZyF+5 nkZfHTZpyoZeTkrzPh2luTT5GgeX5mq3k+rf1TQMY9cS42tx4DzLGxQcnDES 2weMRd256KuQZA9dkoUUDL8mKUY+MhZxYbFo62DzH5okn9dR1myXra9XFpK3 UmQsuIS2pga8oUufaSgqIhqDH/HC8DdKsGCJgnWEOpEUXdutStfMdyc8yPPG uXrgkOsENMTEao7KEY8Llb34PGwN5duZ5xPUBOAOifD/ZC/o7oWDPWxroV3i 6a8Kmr1+dB1FCV6O2je331W3RubRtdjz8FjUx0V3mYtxDqCvKs1PSZphpI+k tSHwJ9QVJHqrVBE2B+mhDkxZnsj+usJ4mI+2P34yA9m7KFcsqdKFr7mH9yo/ vP/oWfzwrYJVFH6P5VBca+GrPb1UXBjsug3LXBYiWYtpOkT2tvWPvVizLGqh awmKDTy/esQblkWJNLQ+e5UquE/vAG+ELTuxF/uppop+6t+r3c7gB9cxqio2 7ldQRHBak5eIfX8bi4ZCi57T9KM8uoIixViEkHoao6OQlNQI/1xd7pVZqiXf IhW8o2ssNy/DkcEHoGz3Q3PRlYbWXHsjX8xD5QE2m1EqnSnqI/hG+JFIDHHZ gTHv1WLxr5RtnVKQfEn1jf56J/w2xuIjV2/scpmMco/19xiUI8oUXdNQe3cF Y+8HMWiPaCV4aL9DogGDcsRx0v1dWGi/IMjHj8wZVrudxRSSuP+GKkSz+XBK Ug89NRKtteU36r5UWlyD9+iWgwQrlyO1TWNJSXXYYa+Ym2yu7njxrRehXTVC d9E1ko+SuR91OXm4zlwl/XRp1FBiP+mtfNSFsDYLnZ0I5Um+h9tufPJ0GmbN osBKUBCST/mlVblOQK/BroGY6boMp57SYus9gnkbVGRb7yukIeEs8r38DeXq cEOxdgGZiaLEjP7eLpDsaedGNo76qIC2YHo0hv/VE9tPa9l57sLv0Hy5XPee niriDCVF7WWKCgzgAyKjrqzkRMZBhAwCe6vG7RNLxnxZa1DJCMSlgiIOOzJ9 9RDYEF699Z+cPROD6S/4ItmbBtT7d6stPO2kInsIvRr9ZQeWbVCw5QL1rk7l 7QbObkIxhrluhI/LTOS7a2H9bkGR4jCrq6/6Up77TkR8l6SNDztbpFM9Joq8 TwcFkRP+L3dAG3O9VZ16/HIIs/wV1FFu0nFsF9rizsoiv2KYoGadHUSq3kWq rlm7gXuXvaqzYU0I6jZ4ly3isr5Y4RGpILVeW7BRLFFoaWy8wgjZMe4acz3W 4d44dyYW/77zbSx+6lMEvvM5zox+h2JCyhWXw3gtSFoWjYEuq8iqm7DmuEvm hWO862qEuI5HY0Ki7oC9jWTUPM3WSj+jhKl7F7DqpRDUBNZBabDCau2a7ete mm+bWREHgn82mIBoBkJ05G4ddz4PPl/noHBPLZSTmaj5fRUq07PRSq7sQBZm iz1MFoMGjqL0ZjiK16znpl1R2Y7tBrP4g03mvSQEtWvXqWbhSeEsgyFAC4XD 9Eg1u3BgD70d9k0bJbKFj2CfnQgnPwt+zRcRIyMw6OEJWPLBDIz911isIpMu oDjd1tL6pJQUve6yAW81ucAWrHBZgJTnRqt+focY8thtXGvCzL62GvTZgOWI +zmH7NxKwr5k2y3GfsB1aVCzaAF/MfSui/y16mceapnZB3mGwmdlB7LPKWoF RuJv5cj4IRSZQ37UtdvLzkz4Zy7MCU/HoX47RZesBFvUYRr1k2lUJrF+uk22 kAI3USeyVWV2IP+gB+bOmGGMs/z3rO+ZGdmaOK/HoZfX48TIE7iwsADJG1uR QUNAC0WiUaM8Mf7dzRQ85+BL19HwYEPBvdtQm5qhSbCHOfZoYwBLSCQabLlA N6O/R7+8loain7l6IcBlEqp8d4hnEXGtcfg8EXEau4adRltYCwWvdnHLHR/F /a8UfJMNzt3c3HDUJ5Q8zYKmdErLCZ2iaVDssV3BIV+Ck9WN6r2Zn/6i/nup vMo0wHEZbd6roKBIUeGnt6hwSvtbBYXfreuVO+O8eUswdW858hqZftuhJB1m XtFX51WdzI5XARAhv2xG0PNeOPH1cZyfn6s5JyVFGScVpCUpSKDk6GKlFlvT swqwzT8KH78cQEr+iYaYoxEwfQWaTm5Ce0yk6k63CwFWRFT24kONz1xPoMCb 7DjhBFoz0/va28Y1om9ryZg/5rouxemnxqClvLzbfs4ubNGSsEkuW5HjVUoZ O2vaarfHkgdpE4Xf5yBk2KGu9jUTpNtLP6PEMxNKLitu0GouiZEGEn0SqcmP ctQ9m21QZPnGB9kr1uua5zIRQEk+NVJQ1CIoPQutp7YhPfa82tZtOutM+ewl IvE1OqpsOa+guJl+29wGJe6gCpGayG60LdVHH4nA3mm/4sCzv+H4F2HqL5PW NSKdjNBygqwhkTjSp44zGyjprFf701O3PRYgls2LIG3NxEga4e36dgnac85B id6FmuKyPxm408SBroTQY0Mn4pMVdelbKYhEe16WXrDYC1ERmXjHdQN8B85A AWVynZ0d0q09PPpt9dmP0PHxUM52UPbWyrUsjmVvszeAbtMJ3SeRmJxCPUNQ 5p2tKruqqhb1l+s17OoHS0FXnhuxVkH8kiKkTw5S/y6JTWCRzFblIXOOXoKq t3FVV2UhZNhbSFy/Wm2erxYagy57ccZgP4u4OU5BCQ3vlMYGSmb3UYhrUavA wj13Yv8zqxDxyRGc+8mCJO86pAd2rd0kEYfxFcKSaD+dTzU/dDtOep6G0aTn AKbn8gJy5s1oy0xXQeCPNrkZjboLBnqrUWg1pRTnaARobacuFp9FZ27GAMH1 2fztd66rEProN2o6d5feCTHXZu/MjCysfCYYlTsvQanXAPMqtf43mx13IMwr FOXrKScg8OvstMKSaeGBvLegwhMJCjwJ4o9sVHBhVb1NdkURJ9UlWRHKu3u1 vIiGNe/5axQ2Z5CKj0Ti5PSJSJn5C1L/MxMFwWEozchmRUG8LlC0hL5dAr9R hycF26mPFUz/DbVoDJiC6S6eiFler9b1WiII5+MVpJC5JZKu00lyiVVWZno3 CNpeNi8UQ1ynYhxpe/90d7RfIlMqOAvl+C50kDn9URKpFbsqy97q7NJvZxSc qiaJMl2XJVMKeWyA/nVp8SU1hXMbMBOBc92QEH2GSeIOXSeiCpl9ffTwYsTO yYKSxvCiUTYhZdC0OB3yV13UdXX1CPc6ikqfPOKH0hzSNK8GFQpO++i3M0RP JkntOapg/2YK8GvakTI/AZYxa5H36ybSDJtd7HCs3D/aXVMTwr1HMMxlHV5/ cDc+HboA3tOWIsx9MaK3FyDRtwPp7oWwzIpE+hfuyFjkjdyoM6gsLld/y/HC bB6Xw78Ywuzzjq4lMra6536yAVU05iuIOY31Q1dj51kFZ7Ob1OCfXG1FU7t+ 0qJmGMNIY0NcJ2MCGYb/D+5orqdm64qhxPyG5qwsW+2RvShsWKJNaQZQknG8 UpsRVyozCKRC1et/sdkQn4Rw/yUQr9z1BOb95RXsevElxHmrqHi7Tkw0khMR p+A3+ARaQpop5euaze9+nInNQkRI4XWxzEIivMJQ7ZsPpchmIeJJfbx6tZ9u JZZCBduOKfDfSr3wpvzplxxYJm1HxmvfoYBGlXqBgQYLd+luqluC628Y9kgK hr7fiWFuCpZvj8esuWtwcN9uhMdVIYD8Z+9hktZ+ghuCnVSvelh+JgOcGADL WzOQH3SMjDBLnWuWWYRxOkF/iYghGkga5QS+Xv54ZsBK/OIdgQPLCDl+no7U JeGw/BAEy7sLkbV0PTLCT6K6vMo4aNDfQln2tagsbyYufclovscYlxEI/m4Z CmpJZeTTSk4wrIc2qXGSSeR6269lEMrPtjxBSUkoQVd7J12vzqWh80726/sl nUFX+V3c+QRM++vXWPnWOBwaPQ5x079AxuCfkOO3H9nETl6yhdV98p3wHFfY BPK3A3xg+bVErd+93FQrXcc3sawHBMuK9A5HzZYiinus/6pl9ZJYljZzfAss lHuFxirw9VMQ5qMgbkUNMn6MQPa7P6l8snIUXr7C4PZIkFZMNWzARQx9rx3D Fiv4jfK4pEoSeFtLTz1JqK5tQzr14DSNW7YdUXCYRnNnKDgkbmxHxsoCZM6K QMbnyxHx1nicDzig4k9vM0u6xWbUNGbUeuCyG8P+mYdXXz+BkV8txboF7gjx ciN5UUCgnOMioWm6RyUsc2NgGbUOaa9ORh6poTK/WBRKN0Tl1Z5CF3TI6w+f 9xPQuSsZ6UcjEHdZTysrLagLnAffB19BlKcXW2riyX4ijdgOlChoZrfVFlLW GsCaNi5riEDKWz8REY1Dj9LQZOYS8JXi87/+jNzdnSjwrUXhqnQUzgtH3jhv pA2aAcvuIBwn3eQEhaOholIfrfe2WdlWn704PDoO1mgauHW0yvaA6AbGS7e7 7+jrpRrY+ie9UbOVDIwY67BabUttYuFxry5B9rETZEMTJYCZClbuIcn4diWG we/Mx+i7Hscsl8G2Od6hCxWsowFjYmUnYWSb5pw3qKFphW8sxnnEYtn+Wuwj 8IrcR+BFFpzqycArHhnf7UTGWz8id+9hVGTnMfCSz2ux15+QpA9bVbN6vBhD Rih4z0OBdwxBbZIFsReTkJqRihRylijKDnacVhBIzYYTZsb6U6qzrgkZS9Jg mRqE9HcXIZsALDMqRnWern1fQtVGFy6y12oSRBOrUW2rw1karOwgx6lh6Uzz ZdQd96Nx03u44LEKCeGnUKxZ7202gjxiJ1qoT5RvNDJbqyvBZf/pCLx7IMqy s23TGwaD00TyJzX52eO+Sf3aunar+m92SiK2uq9SPwdSwA6NptyE/DwhTFGn ZnJ3UWD/ah3WvHwEtZuoT6ePIosknh98DBbqZxU5NKPL6/5YuFj683IsfmI/ yv1qyB1YPt0pK9Yw2GH3aRPNDjc+tQ61foSZpQraCOiMJ1/a7FCaNnXV97Fl qnOpJHXibPcWBT+85405z4wlhIvBsEFtGDJPwRrKaRMqrMwM+zqRIWkN3go/ Qr6Qg13Wn7EiD5kzjyH9s2VIX+SFHLIRDmsXaeBdkJ2j/r121U4MGxiEYc+U Yuh4Be+zapcLCuop6eijd7+xsQ2ZxPopQtit1E5wEKEtwV78Fg570SrssVdB VztdlthTwFX2KTe/BXXNDF9zKEJvx5AniLGoJqSQy2ZfSED0nClIczuspo5p 47YgadB8xD81AXlEPJlpXKuTk6VnvILgRHQLNucquMQWey5XI/HnbxH91Wso tGRp8ynClMU9iCQI9H9kDC5/u1CjVpSp/ptLppVXVGhroZhcJ7OMEiPClSh6 u3mdwopn9iJ1bb26q6EqswO5/u0o3FCBopXJKJgdgpyRq5H5+g/II3NlqUat XnXJJ0CZ8Yz4cBqiZ1LumGRl4wHp4QEmtvpnnVQJxffN//LBpe3a5FFTe3u3 s0vZ7xysywipTh9YaOi47BdfLPp8LhbNTsN3O1txPKVSXbC4QvmnuElADDoR KZT/ndNr92wwWsdrgyfc+xLmP/Q2vvrnj2SSIRyvP1qnYF+qVnN7vd65DEpe wgm+Agg1dx+iz78TOu7Q0JGTSyecz1q6DlknzqCsuFwfzdsGOHfYcg0Pt/WU 1LE2N1P6egrDHsvHc48sx9iRXvCZsxzHfl2M4wdyEEMwfHEvNULdziCFW5Zb kDn7FNImbEfikEVIfOY7ZFIUYBZaQ0pmmNSVBOphUksrcii5CaeG1+Ktl49h PcXusoZWHJ40BRfnj0X6eD8kvzkDuQzgqPfM3O8wBHJGZ5v7FiS+ONYW2ZTL lahr0WofzYbo587EYdGj2xC/uhptJFm2ASEytQUHSDfhFG/ORlKSFWrLToqW J6BgVjCyhrvbZvlzCD52+W3HzI8nak206HChSlg8/o4D1a2OzVdWByGUJmiT oluf3YhL/qXqynRje5vdHjX7fSFXUbPVGykpWZgwfiV8l61G2Pbf0JYbyyYX r7Ba2NesIW3eKp1yliAaGm5nwHyAAuZqC754aARmvLINw16qxtDJCj6maHwi TzPtG8WEMK24C225PcdvthLaVsAyh6GtXs//F+zZsg3u9z0JP3cfAvNNZMla Nj1swBkMe7IYw95vw9Bp5MvkcDGWRvwedhaLfvHE4aBAcqNGpFE/T1JA9yXl 76eoeyyc0ucQys7p/hRyqYz1DchcmQfLvDNIn7gbye+4Ifm5ScgNCkMqWTpL pwmL++gBXrRPLb74UpfG09udHOwAOVgc3hx4FP95bTaWTHDD/l+W4KRfLM6z 3GZDK8WtXBX2M772ROork5HL6ka1tApdmQhZRunXP0HZtRdKVop6pVMAGtmG LvZOS8nArIHrcW5JGVoT6FonGxLrgHAzcgrb1RLJU+SPIRmkPhqsRJzWSCaT JrIoB8vbrtUcFy29oP471uUdTH/jYyz84mv178bGWj64YKOtJS5uqJvuAWtr K5/vNXEKcf5H7hSOAl4vdU50+wvbULerjMYJDPvbup0jzHzkqtdir0NOTj6C wrIRU0Sj3FYrlPiDqn4dOMe1Zi1c200pGUUKdobm4ZM3Z2P1pA1YsL4Yuw6c R31KsoMJGKVrZdSf1BNwSEuPtdv6Y6bLx/jy8TmaFzwSS6lNmfp5yCwFHnTv 6VyGIB38eRZsFpf1wUIB8zRp3iu2a2gUR3El2V/cV/MgLJP3IOWD5Uh+YTKy yQkyT8SglABqBzni3LsGInill2D507VuDAyndzqGvXoJQ7+2YvBcBQt3N2D/ wRP4fpoH1q72QEiUBUcTFfiFKjhE3TxFDhjHIqR3A2X8qcicfhhpHy9F+rNa InRJGy7fqIuVKeTgzmCcfnwk2mh8qkQeh1JdjEukJO4X9v5hXzVQU12DSQM8 cHJuPhrY+m47Cwx8zNUPGfrywGlKc367SEkg3RPJnYPw4s0HRmg65+YfHZUD n586YI1jNVK5stN8DOYvHuqjrhT0tHVWmEfpqRYJHtpuVbfpN3W03awrUrRy e04dVGFoc+XrjinIr2MTzJcR+fM40ZJvkJifsGtbm/9b53sAc3/ywHZPd6TF n6Xc8RRacrJsezzFH4ulUeVVCsd5bs3z3vkRn75ahqFfWG1B/RzbZ23Vfn6T nrmwVzYHKhok7julcXuSTOc8xZqkXZSY+7Yg06MUloUXEDrcB8PvGYwZT31O JrlA9wyKD49rRftDv6X4QL9Zxn5fwsY43PlvtjtegAneQl2OotC0g0ZpOwkU Q4NptLZHGwyk/VaDTBoTWybtQdrQecikwalFixG8Mo7tRg6mAWD+B99D8fWH khpPmFJvqEnk0ZkZ5QiXxQifnKluG2P1PAT0/XVgEkXLVltyyIUTCzVZvPr8 DPXfUSPGqv9WxSVyyzxyMBMTybOS6+ln1VlOWCYvN7VZpnQ93cF0XQ/klqkF eupffLGBW6v+MpasdY365s51h1sQDXjYIkhVDhqLimwVQ0YsZa+uFYtWJGa0 IrxMc2al8CRa8vP4c4IMXbX3jD7wWOWPKaOWYsOSLdixKwKWuHAox/1Vc3CI yrpKcin8nKTR0XEyzQDSWshxMhkyLd8lMfjuhe8x881DGPZCFYZ9auVWHkOY XHy5RY3iWpL/Bxp5dyCNtHmCyHjRiHkPocwxGuKe200WvqkD6avJutkJL5Qu p7yhpcsZUWfVTZqigx87EoWDrmPQ9CMNpA4foZFRLprbW5jF9BNk5eMegMPf JKM6nC02KrDqDyASlKKx7OEZiM/f8bF56NpHxqKzpVXXq/b/2OgqfL+TwJsV qLTWyarvDCbW7fB5syoy46nLDPL66oHA0WxBTU0Ldlr0PZX559Ul9BtsDXVV LvCayAS697g6VcTWs8PRlJdnq8802J1dtTmT5dm4FByPisaO03HaLFFtEZRT u5g6ZLDoOEHvh7oGbcj9y4pAjHx/ITxmbsJsn2IEhiSiOdEPjVnZ2ikrXcFC U4y2rFJHCogn4zpAkXUjafYAGVEkRfXoba2IcMtAMptLm3kc6ZRvplG+mU9w lRufoi4zX4g9j7PHIrD9lzVI+894WD03QYkjhG+qYaGRzzcxG1vrvh37v4pD 2SGrWhDc0t7a3yFT3Z1PLYIcX8ctaqTrWESt2qLWp3GLOnKwHNMDKU1hJTEN ZbJivv/GosRTNOxOJLhSrX8vHAy3Io7VC7PUMHmfysy9+ndsqjCKG1FeGFqK CvWBsNyIuENW11rVYXGNPn2jXPidfKzlJocyldUf9dPic2AY5ixYgw3rvZDT 2Koupyk54bAGb1KLE/sbsLQ7rsvau1nNGSNp9PwZQQF7tS5YiqSfw3DCo5hy tsvIcKOcbdpheD0/HN/e/QrWP/0mjgx+EWVeXuRPGbC2N9PAz86KfLx2YOcH p1G0t1Pd49zQ1nadTTTdo+Oq1e34bpYWQga7jsZkMpuLnjtsFhNUi7mUF+eo 1RMV3GLEyXbdYmTFZ7eaaOk+XbyisTiCHfF8oXURhPKsLLehHp1p52ybLhIp WJyq1K0kNxSNhUVaFHBY7NvXJjWKC2RjZeyXzc1kf0fRWlcn21kq0yU/YphN zAaTLs+xjEBdicuGcnYv6mgI118iCAem0UOPXIzXj9/WSuba2ab0Peno9PBH wWxfhK08jxM7WzFxyErMfG4s/D+fgOjJo5GycgobleBaG2fMHvyw+fUI5Pq3 qXPPLZ3W2/Qex565hO9X7ceKlWzddQ6GkP4Xkf5LT8bapkHWrqrEIkrPCtix NfXFsoIjgwGIaPKcrhyuZFGp19qUquB3Gkg3MhOriENTWZlNqZE0SIiu1HOP rN9xOTcP/NQfJm9fQuQ8VtLVSv6Y4odaS1ZXOOoydi6PpIxObCvUtt8rTZeh JG1HW2aGHGV5ONK01h/58eRMZ0gKR2qgbDqBlpmLcODZ0ZgxaCY83puNix9M QGXsMb6Dgi2vrnkxGJZNTbAWaEXaf9LtrrS4CsMX70dYogX7NkaQ8KfRezQ8 KAtoKizm8OpLCLCEcp4S4r71UjmfERMx+RbHspc9B0w2uWXvIr3UGL8n0z7G y7Z3Oca1XjiRpCCGHW7XToabuQ+1pLfbJPdrPdE8SC2uPk8DgAbdiS370Ejj d/V30txe2wcSSAOJjGbdRoopsoZuRDthsvGoOnOHu8Huvox8yjiJh0Nklyn0 rqZ+tR9vhxKQgg4PH+R//D0OPTwaFQeDuRkzfS97KhDJ3pfQkaWNt27XSTM/ /GJqFLaGUdrW1gxfLxrKu05QN9RFUIy26uOjQc/UYSXhWyWxZW2qk02BGhQu PujGWYWbxqSeCIqwqkVvaihO2Ous6vkc0pFYBWerdXVkBKKjsRH8iZYGs5Oo RsOsQ+TW59lwmvlpYSQ6ivJuNzTZ9ZPuZy4lMe1V6+vYl4rVYk+ltYWnIgZZ mMmkK6PlM0+sACqFIORQMiETIUIhvRtpGGs9XAll81E0TZ+PiuOnWDGILcAk US64YOAWxK2sUOfKrVZ1ylCbjr8ePptSsWQLOS273NpG1hGCQTTW+Jas4xxF c5bBvf1CE36NIkNkgaWlEU6aBjeD53VuDOfYmtXbixuB1h8nEGKjkMt1uFRR KkysyAoP+GltRy4oiK3RLaEi64+2HzneJ0NuRMgTTsjRwX5UGq8yLyubNUOf nLxWBGZTlxmKkECtldlapwxhoY/tUy9du2xNaH8KaTeOhl3k9zXk9x3HKd8L SELHqrW4tNkfFRnZenlzl3ZnPLIWMYtL9IN41EmvO3XthhyKx2yvYDSoQ5gy dY5hmOsiCrZjMJM0XETB9u1XW7H2NA00rIqKBXdJVGjQrljL97zuXsaHAojy 6n6qF4ufoanaCrxkTCUTchdY90BynoLyFmbI7d0G810ilW+GSsyw4vdSDSNv kyiGd7GBQsFJaqewhYm0UzadrTVzs1q5dzqlBRtJA2dJc8Xkl83kl0pwKRSf EDRNnInSo5Hq8SisMCgtORUTBqxE1Iw8NMTYtKZJ/jpcuBCP75cFo5ht/qrW NFBT3UCam6GmyYtdh+Ptt9qw8SwlBZ22p0CLY3ODwkRPfV5yrWvUaTZeNwjq XoMF28vGtI7C/lat2O9G25LLmK9C8Et4I46QI6STOGsJ1TvCqac7L6JjuSem /OMZLP/Lkwh49SvUHqfo1aJOqt1g83HjwR/2FQjsOP5R0zYgppRINlbawH/f rnMk4kn4gMT71tBOdUNjc5d4uy/42cQrJkXPS679l+J18KP7DaJ0JF6t2lbL Md51dcNOlwm4+PkGRLNFMxJxLIm4hCy37ngLJj70CXz+8yXCh3+GxF9+RFVd zY26VYrNiP/yXQ+G0/i0PlyLHxctQXlRsS3N0OqZ9+LNfwzCWx9ZsSNBWz6s qyi32/llELW45YSL9gWJqM2SzHslwpEJTGa6djQMCeE/dAEzdGWvhS4/IuGF Meho0wop2YyzH0GC17Y4THnjB/iOnInTEychbck49r02J9Cvm0D5Y3/Yy76C tAe8vLRV8qCgYJuNlxQX4/n7X8G7n5QigDKE3FMnkbFxlbqULxs6GSQrjp1l kt0qSOVz159xYOA4NISEiqmTx6odGPnuMgx3XYiDA8eiZM5UjbmuDRPsxTdM 8OddQIwLVvUrvdCDJ1kF+QV4+u5RmPjGdPiO/QmR82Yif40/6hduRcXytcgN P8WmQowPNZRwKRukiLdv04GdvQa5umP1wB+Q9e+xairAWT13JhX/+XQXfb8C a1ymIPOVMez76wRWZSeR6/rt2nOjzZZpsU98VBn7e8+ug9j20m5smLYLa35a ieBfl+LcoVwUHiE83FWLBs8YXJq2HOUHjqAkXa17F5+Dycn88crci3rfopuS AWkwxnU+wliFZVKiTQpHDubhvVWNGD5qJ8a7zsPRf9L3iYm8spwrXCYFB4Cm pay32l3mh2xHnz4L9396o9grB41pzdi1/xCysjPVIpq1JxVEsN1yNHopC+pE 3bYi1C8PRdWIn1B2/CSqistsWYKJcLrnrPYC22rTHqHhUNL9BpdJKF69QT1R l90wzLUYX+9W4BmUTJ+XYsPA71GwxJNBn6O9AurDMHQ3MJSb2Z1tIYokNDQU k9+fgdRFyVCS2O74Tg0WtBTyKA0dA0kaMfTODlNQta8V9T6p5CvbULV+m+or zFlvlLB9lRLRnll4vUpu6bx9mOo6Rz2woSXLouY5w15txtSjCk6VN9L3ezHd dTainiAzSU60jaJl0276M7U01xDq3LR1Dr+1AZg0bhIse1PV9J5a763HKFYy e5GSb3/KGIKJ/4uRiuYxu5nHnEXtNHeU+u9DYbKF/ez6K4uge6prL4Lt6v9v QlJCHul8Cba7fIuKNRvUip9BI6xYQjlaeZsVURHJavDd8tgEJHluMHleTG/9 +IPNCP00DDX7SzDzx5lobGxQlaw5zfU2z+QvbxqfRdA77biCUvKBS9wHRv6E ouCjqg/ws9zFRNHArixR7M6uFuoGua7BPNeZOP/cGIRuPYxBMxWso5y+tKoC USdOYvin0/HN6HFYMHwszuwNYHT58wC3bNyJ3a/tQ93OcnWeODo62rZP2zhb anMIvfSCreOzQjybjR9TULmf2Xga6hdtQ+VaPxWt+0m6b+BWlreJwtmhmxVT 3ieui7GPQt7S59fh83mxmLJgiU15gTuP4bOnFyLQ5RtU/rbhHt1pE2lw5vHY epR456kb2do7tDU2/XGejgcp9jUmbJ6JGfUOMuogUvHFEwoKyKgb9tSR8PJt jIpArjMqC/s8totGz9XKnLGsrBxffDQD40l1Y0ZNwdcr4xBU3IROtgRGdzU2 tKiRcYnLD4h/cQw6m5v4XuHc7DzMGbAMaYsJmZIJmaydtmEXL93UkL8752bT OpacFhwjWFsTpVWwWoluPwlrBq5lGY3I9VY9uxAfIsh90nvNDox4ei6GPVuD b4NpWNeodM1Kh1CGswBBlOHUh4TeqXeSQdPwgVMR+z3bctuqDup6Cp3kriVn HrBxpO7D0r/g10RLvdmeS9G+ZVxu6gpb13aLOeyGwvwKvP73f2PwOx1YeEpB JqtRsKU77HC2Qhp2aqlO+mtqqgN+djmDKj+fQIR9Ho62I/VQmpl2rHwWhj8c Vs/yHMR9Pjkrgo8TTIrQvEGIJsbci72abE/ovJ7cMgFvPjASQyYq+I2syhJ3 AakbvdGknxDGeFrtdhAT9KSmOS7Otql+68ZdCHhrP+p3VagHSLDd7XxSgrXJ n0dsCOOyY8QNHIoqe0Fy+1qDscoCCIdLW5z4g12cmDjlDHYdTcLF9UtQsHYj 2pe6o3rXPtRSbGDxayjlLD5dOYttXzurOvztCR+UrstTt2k2tzXaDFN0a1na 4ASXom17Cnp0lCdpDnSr0Yps/zIUmvXwevhN0U4E3+LmjrB1i1EY24qWk1Yo Bwpg9Q5A0agfMcR1Haa5zMLJZ8agITFRnyzupW6cmv/wSljciLVUq4pkxk0T rC+cZTFqGFgWzVTG8q8OWBYTIVkayNllR3ZMHuCB6AWFvIAwPbcW+ykxDqNB p4XedZSEdIbWYff4nZj1ahwqt5RCyUy6RWeW7RAZSeOc89OIgRgNucSqe+7B Mmc0MCtarIxZd4FZtsNXZsXXSmIgezNG2Styqrbzg3WTTeJ1IYs2Q36C1R1f VBCXwMbALRi3SkE+WxRJzUC9lw+q9FOm+fFz7POKuZ449mUE2kPr1ekkwjCe HPIzDdlfd1xZArKcQoxRKwzq5k8yFB8K27V0fI2ueNbHrV77VV4vRWo8CwXD PD9iSTebbQhMpCwjmo2e9GXDw1Ww+oSjacpsGhGdUici+SFdDNL2DjqAywGV Nkj7g6BO7t23S5jReb9D8hXXvhiElzph6vx8Rvba5BWAoOHxmrYbHc4f8u0a ObmXccqiYBeZfBIpv4pNoEe0QdmVhPYVa1DlsR4V2fl80Sw66iy8nvBF2QZt bzGDNWPBMeuRE4zLMg3RRhabhCdu9nxhnOURG738bajNTlOoa6zvCiv9dWU3 Nmh5YTCxeoYUXkQ233SKsCqoBNb1e9GwaSvKzmhHlPAiBrZesPBhd2QtTbPh 2s0G/kSeRX++yZ5nWUgWry2UGDojx+TEeRbTCB+v7dj+zkkU7ulQxwS1TfU3 6YrNyNNq8UKIwzRSbu05UmxYA5Tt59C2eCmqj0WitrySrxoxPBv78I+I+/E8 lHNtKlDwCCx6s+yJoFfJ5Dwn4hXPjjd4bYPvv48hZ0erugmkqcOqd+smFbcu 5NDgnQY254jD0jgFrSxW7cuBdc121K/zRXl8slokb0nPwKq5qxDxdSTawzS8 6rR2rZOLJcQ8tRLjroFFWUgWWfzJCdvl1VIXzydg9TO/w+LbpO7PZhO7are0 dOQ6HM2kqES8ZRGP9TGsnqEWyuYonBv1Habe/QQ2ujyBvDWn1C2PBES8+6I7 iizxkHuVLM0waE3G0v2Cxyx5fBeSverQmS2WUtiv2rN/2ToQ21XnRxzGE4cV BEBHlx3DL89+if0ff4Wz4z9EiSXZCCisOa481jzvpoErWSIhcjrNCVvkm0LV /MZlEy66V6I9XdtBxdvpPirrq2JNZomCnbEtGPbYRCz+YCYWPTUWJwaPR0l8 NP8pP1mR/SV7srmBIzFWyjhSnwfItzKIgcLudF+xwJsDCssBZ/zDG2fdStDC Nspoq953SljkZ1lWV9fg5dfnYeSgNXjXdTI8XUejLDiC/4SxwL2KTyaKD7O8 StYm6oI1S4QgX63m+y4ZFhzZGoyKz6ejKDhM3WV3m84My5W+J5w/NTcfTbF8 hVG5yyH/7MjqArzyajTGzY9UZzdHu45Tz7RsKiy2C/A8JxCfa2QQgixiviix 4gmSEGHMha788M6+ZM3F2DipEa2hzWjffAHNP69GpfcmlKdnd60u91Yf5bXW bTciJmfi8mlF3yGiaMw5qH3vqz6oYvBkBTsoAM2dfhiDXOdjlusYxLptYKMk Y+7TlcPInhVhE414uKFMNOMcOLOYKjnzvM/+6oLbARrWR9EgIJtywkthVrTt LkCbx15cGjUVxRGn2NCXH4LAvGmL114cHpeC2giFL67eZWuLl0mHH7Hgk18V hJYSKLY0Y9m8gxjmOhUeJBvLqi3cb0RI4JmGGHAlcuFo8aLk9lFORKN+Emk4 Lp7sj+wibdY8mCSUQEGpnBLspgN1aN8Yg6Z5S1Hl44fy7Hy+A4QlaOvc/fD7 1xdQeURRnx9lVRRtFbsfhrmUYGIADT9YCX5zPeXal8mf3PEV+ZMf+VNzSTlE UNEfmGD3DHZuBU4IR7Sx4RJ/4g+f58K53sSf+MiLZSOs5vwQ5VunSCB5rDwk lMzGPwutK/1R9dVEFEXFqLYi7tZg5b8BH8eglJ3WTRG8oaXxQd252NOiBr3e gqUk2/wOhc8tBe2Lx2DXRZhOYBujOZQUbLhwRAg1CEf8SiacL008ym7gZVjd vUG3kgx9J8cRSj6TaUxVeZyGDPur0bYuCg0zfkblgcO4VF7ZdYqvltJuHRKJ goB2NaW93Nb6V10e7HlEg8Yp2JzEigw6uTzYvPqyecFkMNOwghwpbdWWbpO4 rKN8nCLOO5jI4wUDCfbXZ0540kO627a0Kkgt1PbYxpCXFBCeXA5pR5tfGlqW bEGN50ZUpGhHz7FfMOZPk4FseDEUWdua1fNPWjqsf9OZvxibjw+WkX3RULWz 1fZ8ZrY7a4irBz53nYBNA8ei5mycjXm+Dsj+4qNT0R0MzMtyJXGQ9rHEU4zM D7SZANnFNkrpjpIrpJPmqwkWW/ZWoM3zGBomzsFe9zWYdtdAeD00Eek+Ddpc P6/AFHfMCS9+Euewh85jrB9JVT3s+TIfwgTtSyC/WIwp5BeHCDSYX8hA44Yr i0KWiYii+MCBX4hp46O63A0hUt2cwnxiC9nFBXoXnySnP9yKea+Nh/tT7+Hg O+/iwoxp6ryEMfdyFLd4ad+w5xps0hJqeXqrPrJ21THykRlYQj6SzIpYOztk sCHusefW44R4RGm+60QgflzouCAevgOIJ8/+BKebtydjxBPjseaDyTj23SQk LBiNuvISOM7M7HcJcsnxfwd9pWDDRbtrXcWTrNhvDT4a+C12DhiDhjMxUiy5 3rGQ+AhZtJcXJUIaIgjJUTb7jM2d+HFyv644gE//Mx8fPf4DAl3GonT0eLS1 ttwtEYVQZsYPfu3Eur0EIay6vc2uhiRoXyLxfAopqyqgJGRwyYoIwlkWM4s/ 2LMsi7XitbclCGLMXR08tYzzwdByzdrf1eOa3V3GIONltc5EPCHfqHbjqd5s r4fjlbMemq/4ErzEKbYdUiJ+XPffC+JNJxzEwUPC+FGea3+9jE/HB+Bb128R 4arVDzjIyh0/0OLK+R5fcFU3yOjXxLoyjhpcKGIEdUIo4u2vCUJxFFxftTkE n53zXd+Kse5x6paM7WQQFSs8NY/tmgsWjri5qmJy43Oouiba7ZMIA5+ypEq8 9rLEC3jGyb1gqN7bYS82YU5oC5n7fLiRlhOfG2t7BLqh9pE/uF702f4S0V9l b18wMVXe23f13g56pQmLKM2ZM28nDYUn4gglJC1pqR9InEhWaWDomZiPyIZ7 /3LCXt6w6V9VsHBWAfX21Rb8TIM7/0MXaYA6E74Dx6BkmSfvrWjdsoVzQ2/F mCjr7VMSrRt7O9jcRvk27UH/bsUv1PGkqkYyjIWYR6Ok80+PRWdbKz4w9JSR 7fu/672Ib487sAIx4RlmgsF8z93g11uxhFLC/HYFm9x2Uto6GQcpjF0+EooP DQYsdr37g+ptc5pinH1JcvujulAdYO27NgeS1Zbwc8J9fDuwjJUldbAZyzay l5/gTWhT4ObJ8ijeddHC+0jEaOi6aPyyrj8iSN1RivChpNeOZ8D6IJdtKWzX jk7Y6HUQP7iOx+nHaYidY7HR6v6Md3tbvko2HpKYvjHsf2rosiNM5ocwJSVk 433XqQikRL/Wc8NHQs95SSiP+yKamfT8RYEE95K/m4Afj9Of2kOM4RMP19oj AexyFvBOiwbPjVCML4ZOyxC7+2Ga5lYzRiJax3uqWf3OHoKZn1E+cQU6MlM+ lth7T4lMnei5ePv9EkMxRsZvrrLnSQn5WDejE53kvUp9Ce9595PxTHsui0Xi 7fcYei6LkuNtSGN8Dpv25JtzGQoKWS2QYv1EYs7i+c3cPg29lKG42Ms7hF46 ipjfOynfkRLjvea/7+JtBkHKwuTUq+yiaKX8PhGV9cpQvpwkCyjdyz/NY+FU CRSMEaTDTc+J7sjQtfuUnsP4VqR/bSyW10nccHWNXecEtpTpkCdaBpffVTZn LIyXRQ7+xAKuZZ2moSWRKm9JdGrjATwypK/VW+IKZL1xriVRvdc4IcIGg6kw MRqaETv/ki4s7lxm+NmkM8ExgJEPCAgwUO/uplqH2XUZtvFzaUXxXaPe1cOu 0u56x808awJO7L6uZrp2xhhlp2tKX1Ljq6miQz+ji8oMXzh8XRZaM2pKcPZb 7VsTbfpJJ6Cih6SXtQ5+Jy5K3OG42cfMIaGP5CeVzkn2bseNDnTCrmXj0VIT KQsmdr99y6KXDTCRlt0qhaHlIid+96DjZv/hBGTcKGk2z4kQ9w/7ZkVnf9AJ OfPfiWEryzk5D7BvWfTQP0s6boQX2bRCOvv/NerPejtyA1fHzd5rImferKxW NsUJOWvjWrviBO6Dd5ngkX0Nj32zCc7J+Sn7lrs/Od684/xgc9EyLggts2sO RP2s45ZvdSBqEa/4rJgY08450eMXHTfLiw0ceNI/JC1GO4dXr9g32n0oaO5H AyTmGGWQsoOo8Lp9y+Ixl9c6gTsDJS0fdzLIvmXf9AJhcdzsdHmOWY/qvxOz +GPOiXuwfcti53s6Ie4nJG54xLkg/I7Y8rXdHrVlBllPS1o95EQA1qbadOPt Z/u5GUw9KzH+A86J9mOxtV7qLhG5h9lT3+scGn1urzjxcdsvSajudoTogly/ tkd0TpLVg8k66u8EhGiFLLbsUTyJTFYvts053jVL0UeeWnbPDEvn/zkJ4U3O Aa1WqmVbNeUSYI/HeVZC1ccJCWij827lHkwC/5JEhLVXsC29o1M0qncKEmBD RcYKffu0hPBvzklgukb4boMEGCdPSUDdQyIB5q2iBGZpJMUj5bkE+DN3Redf 6Zx3zdGo3itIgFOlbx+XEF7qXBhYoBG+TyAsSOGfEqh1cwJ6tNp4WxIg+pYM vRc5JwTtZrvnUHAhuEowcp5z7qVt3tBnJbuMS5eAiwQKZjshgdUa1b9KfOsR CckZBgkYfUuXwBqN6t90CowrLoEBEqo/OCcBb43q3w3Gxe6mbx+SEJ7kBL5q 2/fwkEECXaMHe3T5zgl00XANDws9Yqpi7P9dQvIb59jXtozaBCia1d8kVEc7 By3aPmNd2d0c60EJ4RFOSGC3RnWgQajMrB6QwOCXzjnWHo2qq0QC3NlEGPzU OQn8rlF9VI7a/KQbEbM+cgJfNQPUpxDszeo+Ccn3nJNAiEaVA6noWLIHzg01 sSxBAmEa1SfkjiV74vJgJ6BFS7NtAUqUgGyX9FvOSUAbNtiSTUaV+5Zs48y/ nfMtbRikz2rZW5asAPYVJ9jXxnJ6OtHNsWQrZy84B67a8BTPGeTKfEs2H/wv 5ySgDbfttg1yCchmQZ50hKyCWWkTB7YCHINj8YJsEVoecwJaMjSqLxnYZ1/J KnUHOse+Nquj15TYp0Oyw0oedg5atCkq3Vy6ORavEBSR0LhSKpOANt+m1fB0 tyxZfdkDzvmWNoWo+4x9OsTrkkR0uc85IWhTonhdYlnXSqjyJPdKo/Majewb BuvSpSA7vOB256SgbXfU8cjev/oIPNifAnxFjNV3yP9Hgtx8gV1Ew5udQJg2 jeTbcutyvBp7RQl0aoQHS1ysh4Rqf+dcTNEgQyU9RCDD4fsaCek+TohBpavJ 0FbvZXyciU6zp4GczLtUchpLeinO9XYuxuV2BW41Ovo6DS/kZTSYRbK3cT5Q vV9fcXlfFwU3G/XN/q+fMqJ+Hv//Pv//7TP+5/8AzDF8JQ==\ \>"]] }, 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"}], "]"}]}], ";"}], "\[IndentingNewLine]", RowBox[{"bt", "=", RowBox[{"Length", "[", "tw", "]"}]}], "\[IndentingNewLine]", 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}}], Cell[BoxData["72"], "Output", CellChangeTimes->{ 3.57122707701193*^9, 3.571227461648606*^9, 3.5712275230035133`*^9, 3.5712276871002016`*^9, 3.5712277683763447`*^9, 3.571235009333386*^9, 3.571235369616019*^9, 3.57123566656254*^9, 3.5712357078246126`*^9, 3.5712362787388153`*^9, 3.571236355958951*^9, 3.5712364394658976`*^9, 3.5712449858585377`*^9, 3.571245058367465*^9, 3.571245108443553*^9, 3.571299186747808*^9, 3.5712993187708397`*^9, 3.571299394025372*^9, 3.571299497890354*^9, 3.571299553956853*^9, 3.571299617573765*^9, 3.571299860294591*^9, 3.571299903506667*^9, 3.571300081112979*^9, 3.5713001481462965`*^9, 3.5713001800795527`*^9, 3.5713071914989605`*^9, 3.5713073117283716`*^9, 3.57130741314415*^9, 3.5713118586407537`*^9, 3.57131193058808*^9, 3.5713119879181805`*^9, 3.5713120218794403`*^9, 3.5713122936007175`*^9, 3.5713123489652147`*^9, 3.571312478351842*^9, 3.5713129078205967`*^9, 3.571312946992265*^9, 3.5713129972555532`*^9, 3.5713152419122963`*^9, 3.5713153860253487`*^9, 3.571315635922188*^9, 3.5713157654180155`*^9, 3.571316165199918*^9, 3.571316535107767*^9, 3.5713167058968673`*^9, 3.571316812211054*^9, 3.5713168797279725`*^9, 3.5713169707073326`*^9, 3.5713171541168547`*^9, 3.571317280274276*^9, 3.5713209007099695`*^9, 3.571320943173244*^9, 3.5713209750753*^9, 3.5713210216725817`*^9, {3.57132116893684*^9, 3.571321196673689*^9}, 3.57132170386178*^9, 3.572804088375725*^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`"}]}, {"7.195065307464576`", "1.9797451773236876`", "4.865354166986276`"}, {"9.126337230699999`", "3.0921586538`", "4.1225317553`"}, {"5.890653887199999`", "0.90354414101`", "3.2361652236299996`"}, {"9.5579506491`", "3.4658519703`", "1.8442969869599999`"}, {"6.0710282339`", "1.58026447024`", "0.990069970235`"}, {"7.807119268525147`", "3.030089193723594`", "0.34101748162552803`"}, {"6.9756852479854325`", RowBox[{"-", "0.36990128571829195`"}], "4.868312373526277`"}, {"5.135117185323176`", "0.9894045150241044`", "5.446295912632312`"}, {"4.3687630530999995`", "0.19629528824999998`", "1.5185365704499998`"}, {"6.149083820821049`", "2.16891101852621`", RowBox[{"-", "1.2262985015650358`"}]}, {"2.2350261833499996`", "0.05377215332999996`", "0.654660612769`"}, {"0.10624039571999999`", RowBox[{"-", "0.046695129459999984`"}], RowBox[{"-", "0.107428088511`"}]}, { RowBox[{"-", "1.0558462962107484`"}], RowBox[{"-", "2.1319681801150008`"}], RowBox[{"-", "0.0800621165128296`"}]}, { RowBox[{"-", "2.02503983023`"}], RowBox[{"-", "0.14572622048999995`"}], RowBox[{"-", "0.8706818058699999`"}]}, { RowBox[{"-", "4.1126106938`"}], RowBox[{"-", "0.2635128420699999`"}], RowBox[{"-", "1.7440942658099998`"}]}, { RowBox[{"-", "6.2355288822`"}], RowBox[{"-", "0.3754507616799999`"}], RowBox[{"-", "2.5207055114`"}]}, { RowBox[{"-", "8.3978478577`"}], RowBox[{"-", "0.51358973228`"}], RowBox[{"-", "3.3109889246`"}]}, { RowBox[{"-", "9.46685328073193`"}], RowBox[{"-", "2.6717404680417554`"}], RowBox[{"-", "3.631559539488377`"}]}, { RowBox[{"-", "10.5438207033`"}], RowBox[{"-", "0.660939227404`"}], RowBox[{"-", "4.0949417557`"}]}, { RowBox[{"-", "12.648575423259075`"}], RowBox[{"-", "0.8232243416083211`"}], RowBox[{"-", "5.075473664166018`"}]}, { RowBox[{"-", "14.169868812021535`"}], RowBox[{"-", "0.9249016511669437`"}], RowBox[{"-", "6.79264816313953`"}]}, {"8.709489484663667`", "2.9037282112593124`", "6.481217871187386`"}, {"7.3346428786614855`", "4.364286561484166`", "5.0938850547310786`"}, {"10.77624044002041`", "1.7495431404822177`", "3.0056824668467543`"}, {"11.204488251260202`", "4.1051183587434945`", "3.469371928219658`"}, {"8.558740089475585`", "5.264664266257492`", "0.6150847406058669`"}, {"9.940679624370931`", "3.6169341848407526`", RowBox[{"-", "0.5177732772025242`"}]}, {"6.724910793871082`", RowBox[{"-", "2.7538019676016257`"}], "4.879037936751255`"}, {"8.081935593676656`", RowBox[{"-", "1.6464884093520116`"}], "6.568844750903158`"}, {"8.848245507835912`", RowBox[{"-", "1.737367393018954`"}], "4.260700913556169`"}, {"3.0001847523081597`", "0.024435589966594673`", "5.95392268258269`"}, {"3.333166055574349`", "2.4315130737764017`", "6.093951989708165`"}, {"4.385406079469298`", "0.9604074266018731`", "7.722962679290262`"}, {"3.2407761209285644`", RowBox[{"-", "1.9957117827605422`"}], "1.3494740448187397`"}, {"6.481398630136755`", "2.9489138822197276`", RowBox[{"-", "3.4497317131095833`"}]}, {"4.236745331311138`", "2.6103240331788573`", RowBox[{"-", "2.5716890755423845`"}]}, {"5.665848316308251`", "0.6942681146625476`", RowBox[{"-", "3.030185546735806`"}]}, {"1.2701394306775513`", "2.0846444987038364`", RowBox[{"-", "0.14420853853229876`"}]}, { RowBox[{"-", "0.5458383481192651`"}], RowBox[{"-", "4.289358808718669`"}], RowBox[{"-", "0.9446204488001934`"}]}, { RowBox[{"-", "2.524966790716883`"}], RowBox[{"-", "3.9339768651850755`"}], "0.42666060189627153`"}, { RowBox[{"-", "0.31096092314473334`"}], RowBox[{"-", "3.8128208072889964`"}], "1.4305945940112303`"}, { RowBox[{"-", "3.0406426121298424`"}], "1.9073454546893096`", RowBox[{"-", "1.5489288661374467`"}]}, { RowBox[{"-", "5.140840532808636`"}], RowBox[{"-", "2.442490478124714`"}], RowBox[{"-", "2.0491441131904082`"}]}, { RowBox[{"-", "7.32994682477678`"}], "1.6918907012357107`", RowBox[{"-", "2.992406751160414`"}]}, { RowBox[{"-", "10.781811914544614`"}], RowBox[{"-", "4.638396723288159`"}], RowBox[{"-", "3.8869259463009813`"}]}, { RowBox[{"-", "9.030547707164608`"}], RowBox[{"-", "4.522011515109373`"}], RowBox[{"-", "2.2006379222312407`"}]}, { RowBox[{"-", "8.443190643707354`"}], RowBox[{"-", "4.608327076407212`"}], RowBox[{"-", "4.561100386529379`"}]}, { RowBox[{"-", "11.700513716959104`"}], "1.3887765581040856`", RowBox[{"-", "4.369683294074904`"}]}, { RowBox[{"-", "14.824885159318958`"}], RowBox[{"-", "1.6961703612792887`"}], RowBox[{"-", "4.669850842760894`"}]}, { RowBox[{"-", "13.219522945289958`"}], RowBox[{"-", "2.93192231956816`"}], RowBox[{"-", "6.018956481234968`"}]}, { RowBox[{"-", "15.569542264804337`"}], RowBox[{"-", "1.0398828061626109`"}], RowBox[{"-", "8.353064498297293`"}]} }, 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.57122707701193*^9, 3.571227461648606*^9, 3.5712275230035133`*^9, 3.5712276871002016`*^9, 3.5712277683763447`*^9, 3.571235009333386*^9, 3.571235369616019*^9, 3.57123566656254*^9, 3.5712357078246126`*^9, 3.5712362787388153`*^9, 3.571236355958951*^9, 3.5712364394658976`*^9, 3.5712449858585377`*^9, 3.571245058367465*^9, 3.571245108443553*^9, 3.571299186747808*^9, 3.5712993187708397`*^9, 3.571299394025372*^9, 3.571299497890354*^9, 3.571299553956853*^9, 3.571299617573765*^9, 3.571299860294591*^9, 3.571299903506667*^9, 3.571300081112979*^9, 3.5713001481462965`*^9, 3.5713001800795527`*^9, 3.5713071914989605`*^9, 3.5713073117283716`*^9, 3.57130741314415*^9, 3.5713118586407537`*^9, 3.57131193058808*^9, 3.5713119879181805`*^9, 3.5713120218794403`*^9, 3.5713122936007175`*^9, 3.5713123489652147`*^9, 3.571312478351842*^9, 3.5713129078205967`*^9, 3.571312946992265*^9, 3.5713129972555532`*^9, 3.5713152419122963`*^9, 3.5713153860253487`*^9, 3.571315635922188*^9, 3.5713157654180155`*^9, 3.571316165199918*^9, 3.571316535107767*^9, 3.5713167058968673`*^9, 3.571316812211054*^9, 3.5713168797279725`*^9, 3.5713169707073326`*^9, 3.5713171541168547`*^9, 3.571317280274276*^9, 3.5713209007099695`*^9, 3.571320943173244*^9, 3.5713209750753*^9, 3.5713210216725817`*^9, {3.57132116893684*^9, 3.571321196673689*^9}, 3.57132170386178*^9, 3.572804088375725*^9}] }, Open ]], Cell[BoxData[ RowBox[{ RowBox[{"(*", " ", RowBox[{"cloud", "-", RowBox[{"cloud", " ", "distances"}]}], " ", "*)"}], "\[IndentingNewLine]", RowBox[{ RowBox[{ RowBox[{"dw", "=", RowBox[{"Table", "[", RowBox[{ RowBox[{"Sqrt", "[", RowBox[{ RowBox[{ RowBox[{"(", RowBox[{ RowBox[{"tw", "[", RowBox[{"[", RowBox[{"i", ",", "1"}], "]"}], "]"}], "-", RowBox[{"tw", "[", RowBox[{"[", RowBox[{"j", ",", "1"}], "]"}], "]"}]}], ")"}], "^", "2"}], "+", RowBox[{ RowBox[{"(", RowBox[{ RowBox[{"tw", "[", RowBox[{"[", RowBox[{"i", ",", "2"}], "]"}], "]"}], "-", RowBox[{"tw", "[", RowBox[{"[", RowBox[{"j", ",", "2"}], "]"}], "]"}]}], ")"}], "^", "2"}], "+", RowBox[{ RowBox[{"(", RowBox[{ RowBox[{"tw", "[", RowBox[{"[", RowBox[{"i", ",", "3"}], "]"}], "]"}], "-", RowBox[{"tw", "[", RowBox[{"[", RowBox[{"j", ",", "3"}], "]"}], "]"}]}], ")"}], "^", "2"}]}], "]"}], ",", RowBox[{"{", RowBox[{"i", ",", "1", ",", "bt"}], "}"}], ",", RowBox[{"{", RowBox[{"j", ",", "1", ",", "bt"}], "}"}]}], "]"}]}], ";"}], "\[IndentingNewLine]", RowBox[{"(*", RowBox[{"MatrixForm", "[", "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}}], 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[{"{", RowBox[{ RowBox[{"x", "[", RowBox[{"[", "i", "]"}], "]"}], ",", RowBox[{"y", "[", RowBox[{"[", "i", "]"}], "]"}], ",", RowBox[{"z", "[", 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[{"{", RowBox[{ RowBox[{"x", "[", RowBox[{"[", "i", "]"}], "]"}], ",", RowBox[{"y", "[", RowBox[{"[", "i", "]"}], "]"}], ",", RowBox[{"z", "[", RowBox[{"[", "i", "]"}], "]"}]}], "}"}], ",", RowBox[{"{", RowBox[{"i", ",", RowBox[{"bc", "+", "1"}], ",", "n"}], "}"}]}], "]"}]}], ";"}], "\[IndentingNewLine]", RowBox[{ RowBox[{"tv", " ", "=", " ", RowBox[{"Join", "[", RowBox[{"tv1", ",", "tv2", ",", "tv3"}], "]"}]}], ";"}], "\[IndentingNewLine]", RowBox[{"MatrixForm", "[", "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}}], 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`"}]} }, 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.57122707705873*^9, 3.571227461711006*^9, 3.571227523050314*^9, 3.571227687162602*^9, 3.5712277684231443`*^9, 3.5712350093957863`*^9, 3.571235369678419*^9, 3.5712356666249404`*^9, 3.5712357078870125`*^9, 3.5712362788012156`*^9, 3.571236356021351*^9, 3.571236439528298*^9, 3.571244985920938*^9, 3.5712450584298654`*^9, 3.5712451085059533`*^9, 3.5712991868102083`*^9, 3.57129931883324*^9, 3.571299394087772*^9, 3.5712994979683547`*^9, 3.571299554034853*^9, 3.571299617651765*^9, 3.571299860372591*^9, 3.571299903569067*^9, 3.571300081190979*^9, 3.5713001481930966`*^9, 3.5713001801575527`*^9, 3.5713071915613604`*^9, 3.5713073117751713`*^9, 3.5713074132065496`*^9, 3.5713118587031536`*^9, 3.5713119306504803`*^9, 3.5713119879649806`*^9, 3.57131202194184*^9, 3.5713122936631174`*^9, 3.571312349012015*^9, 3.571312478414242*^9, 3.5713129078829966`*^9, 3.571312947054665*^9, 3.571312997302354*^9, 3.571315241959096*^9, 3.5713153860877495`*^9, 3.571315635968988*^9, 3.5713157654804153`*^9, 3.5713161652467175`*^9, 3.5713165351545677`*^9, 3.5713167059592676`*^9, 3.571316812257854*^9, 3.5713168797747726`*^9, 3.5713169707541323`*^9, 3.5713171541636543`*^9, 3.5713172803210764`*^9, 3.5713209007723694`*^9, 3.5713209432356443`*^9, 3.5713209751221*^9, 3.571321021734982*^9, {3.571321168999241*^9, 3.5713211967360897`*^9}, 3.5713217039085803`*^9, 3.572804088469325*^9}] }, Open ]], Cell[CellGroupData[{ Cell[BoxData[ RowBox[{"\[IndentingNewLine]", RowBox[{ RowBox[{"ow", "=", RowBox[{"Join", "[", RowBox[{"Table", "[", RowBox[{ RowBox[{"-", "2.0"}], ",", RowBox[{"{", RowBox[{"i", ",", "1", ",", RowBox[{"bc", "+", "nb"}]}], "}"}]}], "]"}], "]"}]}], RowBox[{"(*", " ", RowBox[{"nucleus", "-", RowBox[{"cloud", " ", "distances"}]}], " ", "*)"}], "\[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"}], "}"}]}], "]"}]}], "]"}]}], "\[IndentingNewLine]", RowBox[{ RowBox[{"dcw", "=", RowBox[{"Table", "[", RowBox[{ RowBox[{ RowBox[{"sq", "=", RowBox[{"Sqrt", "[", RowBox[{ RowBox[{ RowBox[{"(", RowBox[{ RowBox[{"tw", "[", RowBox[{"[", RowBox[{"i", ",", "1"}], "]"}], "]"}], "-", RowBox[{"tv", "[", RowBox[{"[", RowBox[{"j", ",", "1"}], "]"}], "]"}]}], ")"}], "^", "2"}], "+", RowBox[{ RowBox[{"(", RowBox[{ RowBox[{"tw", "[", RowBox[{"[", RowBox[{"i", ",", "2"}], "]"}], "]"}], "-", RowBox[{"tv", "[", RowBox[{"[", RowBox[{"j", ",", "2"}], "]"}], "]"}]}], ")"}], "^", "2"}], "+", RowBox[{ RowBox[{"(", RowBox[{ RowBox[{"tw", "[", RowBox[{"[", RowBox[{"i", ",", "3"}], "]"}], "]"}], "-", RowBox[{"tv", "[", RowBox[{"[", RowBox[{"j", ",", "3"}], "]"}], "]"}]}], ")"}], "^", "2"}]}], "]"}]}], ";", RowBox[{"If", "[", RowBox[{ RowBox[{"sq", ">", " ", "0.1"}], ",", StyleBox[ RowBox[{"1", "/", "sq"}], FontColor->RGBColor[1, 0, 0]], ",", "0"}], "]"}]}], ",", RowBox[{"{", RowBox[{"i", ",", "1", ",", "bt"}], "}"}], ",", RowBox[{"{", RowBox[{"j", ",", "1", ",", "bt"}], "}"}]}], "]"}]}], ";"}], "\[IndentingNewLine]", RowBox[{ RowBox[{"dcw", "=", RowBox[{"Table", "[", RowBox[{ RowBox[{"If", "[", RowBox[{ RowBox[{"i", "\[Equal]", " ", "j"}], ",", RowBox[{ RowBox[{"dcw", "[", RowBox[{"[", RowBox[{"i", ",", "j"}], "]"}], "]"}], "=", "0.0"}], ",", RowBox[{"dcw", "[", RowBox[{"[", RowBox[{"i", ",", "j"}], "]"}], "]"}]}], "]"}], ",", RowBox[{"{", RowBox[{"i", ",", "1", ",", "bt"}], "}"}], ",", RowBox[{"{", RowBox[{"j", ",", "1", ",", "bt"}], "}"}]}], "]"}]}], ";"}], "\[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}], 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.`"}]}], "}"}]], "Output", CellChangeTimes->{ 3.5712270770743303`*^9, 3.571227461742206*^9, 3.5712275230815134`*^9, 3.571227687193802*^9, 3.5712277684543447`*^9, 3.571235009411386*^9, 3.5712353697096186`*^9, 3.5712356666561403`*^9, 3.5712357079026127`*^9, 3.5712362788168154`*^9, 3.571236356036951*^9, 3.571236439543898*^9, 3.5712449859365377`*^9, 3.571245058445465*^9, 3.5712451085371532`*^9, 3.571299186857008*^9, 3.5712993188488398`*^9, 3.571299394103372*^9, 3.5712994979839544`*^9, 3.571299554050453*^9, 3.571299617667365*^9, 3.571299860388191*^9, 3.571299903584667*^9, 3.571300081206579*^9, 3.5713001482086964`*^9, 3.571300180173153*^9, 3.5713071915769606`*^9, 3.5713073118063717`*^9, 3.57130741322215*^9, 3.571311858718754*^9, 3.57131193066608*^9, 3.571311987980581*^9, 3.5713120219574404`*^9, 3.5713122936787176`*^9, 3.5713123490276146`*^9, 3.571312478429842*^9, 3.5713129078985963`*^9, 3.5713129470702653`*^9, 3.5713129973179536`*^9, 3.571315241990296*^9, 3.571315386103349*^9, 3.5713156359845877`*^9, 3.5713157654960155`*^9, 3.571316165277918*^9, 3.571316535185767*^9, 3.5713167059748673`*^9, 3.5713168122734537`*^9, 3.571316879790373*^9, 3.5713169707853327`*^9, 3.5713171541948547`*^9, 3.571317280352276*^9, 3.5713209007879696`*^9, 3.571320943251244*^9, 3.5713209751533003`*^9, 3.5713210217505817`*^9, {3.571321169014841*^9, 3.5713211967516894`*^9}, 3.57132170393978*^9, 3.5728040884849253`*^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.`"}], "}"}]], "Output", CellChangeTimes->{ 3.5712270770743303`*^9, 3.571227461742206*^9, 3.5712275230815134`*^9, 3.571227687193802*^9, 3.5712277684543447`*^9, 3.571235009411386*^9, 3.5712353697096186`*^9, 3.5712356666561403`*^9, 3.5712357079026127`*^9, 3.5712362788168154`*^9, 3.571236356036951*^9, 3.571236439543898*^9, 3.5712449859365377`*^9, 3.571245058445465*^9, 3.5712451085371532`*^9, 3.571299186857008*^9, 3.5712993188488398`*^9, 3.571299394103372*^9, 3.5712994979839544`*^9, 3.571299554050453*^9, 3.571299617667365*^9, 3.571299860388191*^9, 3.571299903584667*^9, 3.571300081206579*^9, 3.5713001482086964`*^9, 3.571300180173153*^9, 3.5713071915769606`*^9, 3.5713073118063717`*^9, 3.57130741322215*^9, 3.571311858718754*^9, 3.57131193066608*^9, 3.571311987980581*^9, 3.5713120219574404`*^9, 3.5713122936787176`*^9, 3.5713123490276146`*^9, 3.571312478429842*^9, 3.5713129078985963`*^9, 3.5713129470702653`*^9, 3.5713129973179536`*^9, 3.571315241990296*^9, 3.571315386103349*^9, 3.5713156359845877`*^9, 3.5713157654960155`*^9, 3.571316165277918*^9, 3.571316535185767*^9, 3.5713167059748673`*^9, 3.5713168122734537`*^9, 3.571316879790373*^9, 3.5713169707853327`*^9, 3.5713171541948547`*^9, 3.571317280352276*^9, 3.5713209007879696`*^9, 3.571320943251244*^9, 3.5713209751533003`*^9, 3.5713210217505817`*^9, {3.571321169014841*^9, 3.5713211967516894`*^9}, 3.57132170393978*^9, 3.5728040884849253`*^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["1478.1617366451408`"], "Output", CellChangeTimes->{ 3.57122707712113*^9, 3.571227461789006*^9, 3.571227523128314*^9, 3.571227687240602*^9, 3.571227768501145*^9, 3.5712350094737864`*^9, 3.5712353697564187`*^9, 3.5712356667029405`*^9, 3.5712357079650126`*^9, 3.5712362788636155`*^9, 3.571236356083751*^9, 3.571236439606298*^9, 3.571244985998938*^9, 3.5712450584922657`*^9, 3.5712451085839534`*^9, 3.571299186903808*^9, 3.57129931891124*^9, 3.5712993941657724`*^9, 3.571299498046355*^9, 3.571299554097253*^9, 3.571299617729765*^9, 3.571299860434991*^9, 3.5712999036626673`*^9, 3.571300081253379*^9, 3.5713001482710967`*^9, 3.571300180235553*^9, 3.571307191639361*^9, 3.5713073118531723`*^9, 3.57130741326895*^9, 3.5713118587811537`*^9, 3.5713119307284803`*^9, 3.571311988042981*^9, 3.5713120220042405`*^9, 3.5713122937411175`*^9, 3.5713123490900145`*^9, 3.571312478476642*^9, 3.5713129079609966`*^9, 3.571312947132665*^9, 3.571312997380354*^9, 3.571315242037096*^9, 3.5713153861657495`*^9, 3.5713156360469885`*^9, 3.5713157655584154`*^9, 3.5713161653247175`*^9, 3.571316535232568*^9, 3.5713167060372677`*^9, 3.5713168123358545`*^9, 3.5713168798527727`*^9, 3.5713169708321323`*^9, 3.571317154241655*^9, 3.5713172803990765`*^9, 3.5713209008503695`*^9, 3.571320943298044*^9, 3.5713209752001004`*^9, 3.5713210217973824`*^9, {3.571321169077241*^9, 3.57132119681409*^9}, 3.5713217039865804`*^9, 3.572804088547325*^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["1642.2117499220326`"], "Output", CellChangeTimes->{ 3.57122707713673*^9, 3.5712274618202057`*^9, 3.5712275231595135`*^9, 3.571227687271802*^9, 3.571227768532345*^9, 3.571235009489386*^9, 3.571235369772019*^9, 3.5712356667341404`*^9, 3.5712357079806128`*^9, 3.5712362788948154`*^9, 3.571236356099351*^9, 3.5712364396218977`*^9, 3.5712449860145383`*^9, 3.5712450585234656`*^9, 3.5712451086151533`*^9, 3.571299186919408*^9, 3.57129931892684*^9, 3.5712993941657724`*^9, 3.571299498046355*^9, 3.571299554112853*^9, 3.571299617729765*^9, 3.571299860450591*^9, 3.5712999036782675`*^9, 3.571300081268979*^9, 3.571300148286697*^9, 3.571300180251153*^9, 3.5713071916549606`*^9, 3.571307311868772*^9, 3.5713074132845497`*^9, 3.571311858796754*^9, 3.57131193074408*^9, 3.571311988058581*^9, 3.5713120220198402`*^9, 3.5713122937567177`*^9, 3.5713123491056147`*^9, 3.571312478492242*^9, 3.571312907976597*^9, 3.5713129471482654`*^9, 3.5713129973959537`*^9, 3.571315242052696*^9, 3.5713153861813493`*^9, 3.571315636062588*^9, 3.5713157655740156`*^9, 3.5713161653403177`*^9, 3.5713165352481675`*^9, 3.571316706052868*^9, 3.5713168123514543`*^9, 3.571316879868373*^9, 3.5713169708477325`*^9, 3.5713171542572546`*^9, 3.5713172804302764`*^9, 3.5713209008659697`*^9, 3.5713209433136444`*^9, 3.5713209752157*^9, 3.5713210218285823`*^9, {3.571321169092841*^9, 3.5713211968296895`*^9}, 3.5713217040177803`*^9, 3.5728040885629253`*^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[{"-", "3283.8169192355053`"}]], "Output", CellChangeTimes->{ 3.5712270771523304`*^9, 3.571227461835806*^9, 3.5712275231751137`*^9, 3.571227687287402*^9, 3.571227768547945*^9, 3.571235009520586*^9, 3.571235369803219*^9, 3.5712356667497406`*^9, 3.571235707996213*^9, 3.5712362789104156`*^9, 3.5712363561305513`*^9, 3.571236439637498*^9, 3.571244986045738*^9, 3.5712450585390654`*^9, 3.5712451086307535`*^9, 3.571299186935008*^9, 3.57129931894244*^9, 3.5712993941813726`*^9, 3.5712994980619545`*^9, 3.5712995541284533`*^9, 3.571299617745365*^9, 3.5712998604661913`*^9, 3.571299903693867*^9, 3.5713000812845793`*^9, 3.5713001483022966`*^9, 3.5713001802667527`*^9, 3.571307191670561*^9, 3.5713073118843718`*^9, 3.57130741331575*^9, 3.571311858812354*^9, 3.57131193074408*^9, 3.5713119880741806`*^9, 3.5713120220354404`*^9, 3.571312293772318*^9, 3.571312349121215*^9, 3.571312478507842*^9, 3.5713129079921966`*^9, 3.571312947163865*^9, 3.5713129974115534`*^9, 3.5713152420682964`*^9, 3.571315386196949*^9, 3.571315636078188*^9, 3.571315765589616*^9, 3.571316165355918*^9, 3.5713165352637672`*^9, 3.5713167060684676`*^9, 3.5713168123670545`*^9, 3.571316879883973*^9, 3.5713169708633327`*^9, 3.571317154288455*^9, 3.571317280445876*^9, 3.57132090088157*^9, 3.5713209433448443`*^9, 3.5713209752469006`*^9, 3.571321021844182*^9, {3.571321169108441*^9, 3.5713211968452897`*^9}, 3.5713217040333805`*^9, 3.5728040885785255`*^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[{"-", "4828.703147016751`"}]], "Output", CellChangeTimes->{ 3.5712270771679306`*^9, 3.571227461851406*^9, 3.571227523206314*^9, 3.5712276873030024`*^9, 3.5712277685635448`*^9, 3.571235009536186*^9, 3.5712353698344193`*^9, 3.5712356667809405`*^9, 3.571235708027413*^9, 3.571236278926016*^9, 3.5712363561461515`*^9, 3.571236439653098*^9, 3.5712449860613384`*^9, 3.571245058570266*^9, 3.571245108661954*^9, 3.5712991869506083`*^9, 3.57129931895804*^9, 3.5712993941969724`*^9, 3.5712994980775547`*^9, 3.5712995541440535`*^9, 3.571299617776565*^9, 3.571299860497391*^9, 3.571299903709467*^9, 3.571300081315779*^9, 3.571300148317897*^9, 3.571300180282353*^9, 3.571307191686161*^9, 3.571307311915572*^9, 3.5713074133313503`*^9, 3.571311858827954*^9, 3.57131193077528*^9, 3.571311988089781*^9, 3.5713120220666404`*^9, 3.571312293787918*^9, 3.571312349136815*^9, 3.5713124785390425`*^9, 3.5713129080077963`*^9, 3.5713129471794653`*^9, 3.5713129974271536`*^9, 3.571315242099496*^9, 3.571315386212549*^9, 3.571315636093788*^9, 3.5713157656052155`*^9, 3.571316165371518*^9, 3.5713165352949677`*^9, 3.5713167060840673`*^9, 3.571316812382654*^9, 3.571316879899573*^9, 3.571316970894533*^9, 3.5713171543040547`*^9, 3.5713172804614763`*^9, 3.57132090091277*^9, 3.571320943360444*^9, 3.5713209752625003`*^9, 3.571321021859782*^9, {3.5713211691240406`*^9, 3.5713211968764896`*^9}, 3.5713217040489807`*^9, 3.5728040885941253`*^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[{"-", "4896.786491059151`"}]], "Output", CellChangeTimes->{ 3.5712270771835303`*^9, 3.5712274618826065`*^9, 3.5712275232219143`*^9, 3.5712276873342023`*^9, 3.5712277685947447`*^9, 3.5712350095517864`*^9, 3.5712353698500195`*^9, 3.5712356667965403`*^9, 3.571235708043013*^9, 3.571236278941616*^9, 3.5712363561617517`*^9, 3.5712364396686983`*^9, 3.5712449860925384`*^9, 3.5712450585858655`*^9, 3.5712451086775537`*^9, 3.5712991869662085`*^9, 3.5712993189736404`*^9, 3.571299394212572*^9, 3.571299498093155*^9, 3.571299554159653*^9, 3.571299617776565*^9, 3.571299860497391*^9, 3.571299903725067*^9, 3.571300081331379*^9, 3.571300148333497*^9, 3.5713001802979527`*^9, 3.571307191701761*^9, 3.571307311931172*^9, 3.57130741334695*^9, 3.5713118588591537`*^9, 3.57131193079088*^9, 3.571311988105381*^9, 3.5713120220822406`*^9, 3.571312293803518*^9, 3.5713123491524153`*^9, 3.5713124785546427`*^9, 3.5713129080233965`*^9, 3.5713129471950655`*^9, 3.5713129974583535`*^9, 3.571315242115096*^9, 3.5713153862281494`*^9, 3.5713156361249886`*^9, 3.5713157656208153`*^9, 3.571316165402718*^9, 3.571316535310568*^9, 3.5713167060996675`*^9, 3.5713168123982544`*^9, 3.5713168799151726`*^9, 3.571316970910133*^9, 3.5713171543196545`*^9, 3.5713172804926767`*^9, 3.5713209009283695`*^9, 3.5713209433760443`*^9, 3.5713209752781005`*^9, 3.5713210218753824`*^9, {3.571321169139641*^9, 3.57132119689209*^9}, 3.57132170408018*^9, 3.572804088609725*^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.9262018401766`"], "Output", CellChangeTimes->{ 3.5712270771835303`*^9, 3.571227461898206*^9, 3.5712275232531137`*^9, 3.571227687349802*^9, 3.571227768610345*^9, 3.5712350095829864`*^9, 3.571235369881219*^9, 3.5712356668121405`*^9, 3.571235708074213*^9, 3.571236278972816*^9, 3.5712363561929517`*^9, 3.5712364396998982`*^9, 3.571244986108138*^9, 3.5712450586014657`*^9, 3.5712451087087536`*^9, 3.5712991869818087`*^9, 3.57129931898924*^9, 3.5712993942281723`*^9, 3.571299498108755*^9, 3.571299554175253*^9, 3.571299617807765*^9, 3.571299860528591*^9, 3.5712999037406673`*^9, 3.571300081346979*^9, 3.571300148349097*^9, 3.571300180313553*^9, 3.5713071917329607`*^9, 3.571307311946772*^9, 3.57130741337815*^9, 3.571311858874754*^9, 3.5713119308064804`*^9, 3.5713119881209807`*^9, 3.5713120220978403`*^9, 3.5713122938347178`*^9, 3.5713123491680155`*^9, 3.5713124785702424`*^9, 3.5713129080389967`*^9, 3.5713129472106657`*^9, 3.5713129974739537`*^9, 3.5713152421306963`*^9, 3.5713153862437496`*^9, 3.5713156361405883`*^9, 3.5713157656364155`*^9, 3.571316165418318*^9, 3.5713165353261676`*^9, 3.5713167061152678`*^9, 3.5713168124294543`*^9, 3.571316879946373*^9, 3.5713169709257326`*^9, 3.571317154350855*^9, 3.5713172805082765`*^9, 3.5713209009439697`*^9, 3.5713209433916445`*^9, 3.5713209752937*^9, 3.5713210218909826`*^9, {3.571321169170841*^9, 3.5713211969076896`*^9}, 3.5713217040957804`*^9, 3.5728040886409254`*^9}] }, Open ]], Cell[CellGroupData[{ Cell[BoxData[{"Vee", "\[IndentingNewLine]", "Vnn", "\[IndentingNewLine]", \ "Vne", "\[IndentingNewLine]", RowBox[{"Vtot", "=", RowBox[{ "Vne", "+", "Vee", "+", "Vnn"}]}], "\[IndentingNewLine]", "Ttot", "\[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}}], Cell[BoxData["1642.2117499220326`"], "Output", CellChangeTimes->{ 3.57122707719913*^9, 3.5712274619138064`*^9, 3.571227523268714*^9, 3.5712276873810024`*^9, 3.571227768625945*^9, 3.571235009598586*^9, 3.571235369896819*^9, 3.571235666843341*^9, 3.571235708089813*^9, 3.5712362789884157`*^9, 3.5712363562085514`*^9, 3.571236439715498*^9, 3.5712449861237383`*^9, 3.5712450586326656`*^9, 3.571245108724354*^9, 3.5712991869974084`*^9, 3.57129931900484*^9, 3.5712993942437725`*^9, 3.571299498124355*^9, 3.571299554190853*^9, 3.571299617807765*^9, 3.5712998605441914`*^9, 3.5712999037562675`*^9, 3.5713000813625793`*^9, 3.5713001483646965`*^9, 3.571300180329153*^9, 3.571307191748561*^9, 3.571307311962372*^9, 3.57130741339375*^9, 3.571311858890354*^9, 3.5713119308220806`*^9, 3.5713119881365805`*^9, 3.5713120221134405`*^9, 3.571312293850318*^9, 3.571312349183615*^9, 3.571312478585842*^9, 3.571312908054597*^9, 3.571312947226266*^9, 3.5713129974895535`*^9, 3.5713152421462965`*^9, 3.5713153862593493`*^9, 3.5713156361561885`*^9, 3.5713157656520157`*^9, 3.571316165433918*^9, 3.5713165353417673`*^9, 3.5713167061308675`*^9, 3.571316812445054*^9, 3.571316879961973*^9, 3.571316970941333*^9, 3.571317154366455*^9, 3.571317280523876*^9, 3.57132090095957*^9, 3.5713209434072447`*^9, 3.5713209753249006`*^9, 3.5713210219065824`*^9, {3.571321169186441*^9, 3.5713211969232893`*^9}, 3.571321704126981*^9, 3.5728040886565256`*^9}], Cell[BoxData["1586.9262018401766`"], "Output", CellChangeTimes->{ 3.57122707719913*^9, 3.5712274619138064`*^9, 3.571227523268714*^9, 3.5712276873810024`*^9, 3.571227768625945*^9, 3.571235009598586*^9, 3.571235369896819*^9, 3.571235666843341*^9, 3.571235708089813*^9, 3.5712362789884157`*^9, 3.5712363562085514`*^9, 3.571236439715498*^9, 3.5712449861237383`*^9, 3.5712450586326656`*^9, 3.571245108724354*^9, 3.5712991869974084`*^9, 3.57129931900484*^9, 3.5712993942437725`*^9, 3.571299498124355*^9, 3.571299554190853*^9, 3.571299617807765*^9, 3.5712998605441914`*^9, 3.5712999037562675`*^9, 3.5713000813625793`*^9, 3.5713001483646965`*^9, 3.571300180329153*^9, 3.571307191748561*^9, 3.571307311962372*^9, 3.57130741339375*^9, 3.571311858890354*^9, 3.5713119308220806`*^9, 3.5713119881365805`*^9, 3.5713120221134405`*^9, 3.571312293850318*^9, 3.571312349183615*^9, 3.571312478585842*^9, 3.571312908054597*^9, 3.571312947226266*^9, 3.5713129974895535`*^9, 3.5713152421462965`*^9, 3.5713153862593493`*^9, 3.5713156361561885`*^9, 3.5713157656520157`*^9, 3.571316165433918*^9, 3.5713165353417673`*^9, 3.5713167061308675`*^9, 3.571316812445054*^9, 3.571316879961973*^9, 3.571316970941333*^9, 3.571317154366455*^9, 3.571317280523876*^9, 3.57132090095957*^9, 3.5713209434072447`*^9, 3.5713209753249006`*^9, 3.5713210219065824`*^9, {3.571321169186441*^9, 3.5713211969232893`*^9}, 3.571321704126981*^9, 3.5728040886565256`*^9}], Cell[BoxData[ RowBox[{"-", "4896.786491059151`"}]], "Output", CellChangeTimes->{ 3.57122707719913*^9, 3.5712274619138064`*^9, 3.571227523268714*^9, 3.5712276873810024`*^9, 3.571227768625945*^9, 3.571235009598586*^9, 3.571235369896819*^9, 3.571235666843341*^9, 3.571235708089813*^9, 3.5712362789884157`*^9, 3.5712363562085514`*^9, 3.571236439715498*^9, 3.5712449861237383`*^9, 3.5712450586326656`*^9, 3.571245108724354*^9, 3.5712991869974084`*^9, 3.57129931900484*^9, 3.5712993942437725`*^9, 3.571299498124355*^9, 3.571299554190853*^9, 3.571299617807765*^9, 3.5712998605441914`*^9, 3.5712999037562675`*^9, 3.5713000813625793`*^9, 3.5713001483646965`*^9, 3.571300180329153*^9, 3.571307191748561*^9, 3.571307311962372*^9, 3.57130741339375*^9, 3.571311858890354*^9, 3.5713119308220806`*^9, 3.5713119881365805`*^9, 3.5713120221134405`*^9, 3.571312293850318*^9, 3.571312349183615*^9, 3.571312478585842*^9, 3.571312908054597*^9, 3.571312947226266*^9, 3.5713129974895535`*^9, 3.5713152421462965`*^9, 3.5713153862593493`*^9, 3.5713156361561885`*^9, 3.5713157656520157`*^9, 3.571316165433918*^9, 3.5713165353417673`*^9, 3.5713167061308675`*^9, 3.571316812445054*^9, 3.571316879961973*^9, 3.571316970941333*^9, 3.571317154366455*^9, 3.571317280523876*^9, 3.57132090095957*^9, 3.5713209434072447`*^9, 3.5713209753249006`*^9, 3.5713210219065824`*^9, {3.571321169186441*^9, 3.5713211969232893`*^9}, 3.571321704126981*^9, 3.5728040886565256`*^9}], Cell[BoxData[ RowBox[{"-", "1667.6485392969414`"}]], "Output", CellChangeTimes->{ 3.57122707719913*^9, 3.5712274619138064`*^9, 3.571227523268714*^9, 3.5712276873810024`*^9, 3.571227768625945*^9, 3.571235009598586*^9, 3.571235369896819*^9, 3.571235666843341*^9, 3.571235708089813*^9, 3.5712362789884157`*^9, 3.5712363562085514`*^9, 3.571236439715498*^9, 3.5712449861237383`*^9, 3.5712450586326656`*^9, 3.571245108724354*^9, 3.5712991869974084`*^9, 3.57129931900484*^9, 3.5712993942437725`*^9, 3.571299498124355*^9, 3.571299554190853*^9, 3.571299617807765*^9, 3.5712998605441914`*^9, 3.5712999037562675`*^9, 3.5713000813625793`*^9, 3.5713001483646965`*^9, 3.571300180329153*^9, 3.571307191748561*^9, 3.571307311962372*^9, 3.57130741339375*^9, 3.571311858890354*^9, 3.5713119308220806`*^9, 3.5713119881365805`*^9, 3.5713120221134405`*^9, 3.571312293850318*^9, 3.571312349183615*^9, 3.571312478585842*^9, 3.571312908054597*^9, 3.571312947226266*^9, 3.5713129974895535`*^9, 3.5713152421462965`*^9, 3.5713153862593493`*^9, 3.5713156361561885`*^9, 3.5713157656520157`*^9, 3.571316165433918*^9, 3.5713165353417673`*^9, 3.5713167061308675`*^9, 3.571316812445054*^9, 3.571316879961973*^9, 3.571316970941333*^9, 3.571317154366455*^9, 3.571317280523876*^9, 3.57132090095957*^9, 3.5713209434072447`*^9, 3.5713209753249006`*^9, 3.5713210219065824`*^9, {3.571321169186441*^9, 3.5713211969232893`*^9}, 3.571321704126981*^9, 3.5728040886565256`*^9}], Cell[BoxData["844.1218307487597`"], "Output", CellChangeTimes->{ 3.57122707719913*^9, 3.5712274619138064`*^9, 3.571227523268714*^9, 3.5712276873810024`*^9, 3.571227768625945*^9, 3.571235009598586*^9, 3.571235369896819*^9, 3.571235666843341*^9, 3.571235708089813*^9, 3.5712362789884157`*^9, 3.5712363562085514`*^9, 3.571236439715498*^9, 3.5712449861237383`*^9, 3.5712450586326656`*^9, 3.571245108724354*^9, 3.5712991869974084`*^9, 3.57129931900484*^9, 3.5712993942437725`*^9, 3.571299498124355*^9, 3.571299554190853*^9, 3.571299617807765*^9, 3.5712998605441914`*^9, 3.5712999037562675`*^9, 3.5713000813625793`*^9, 3.5713001483646965`*^9, 3.571300180329153*^9, 3.571307191748561*^9, 3.571307311962372*^9, 3.57130741339375*^9, 3.571311858890354*^9, 3.5713119308220806`*^9, 3.5713119881365805`*^9, 3.5713120221134405`*^9, 3.571312293850318*^9, 3.571312349183615*^9, 3.571312478585842*^9, 3.571312908054597*^9, 3.571312947226266*^9, 3.5713129974895535`*^9, 3.5713152421462965`*^9, 3.5713153862593493`*^9, 3.5713156361561885`*^9, 3.5713157656520157`*^9, 3.571316165433918*^9, 3.5713165353417673`*^9, 3.5713167061308675`*^9, 3.571316812445054*^9, 3.571316879961973*^9, 3.571316970941333*^9, 3.571317154366455*^9, 3.571317280523876*^9, 3.57132090095957*^9, 3.5713209434072447`*^9, 3.5713209753249006`*^9, 3.5713210219065824`*^9, {3.571321169186441*^9, 3.5713211969232893`*^9}, 3.571321704126981*^9, 3.5728040886565256`*^9}], Cell[BoxData["1.9756017183179473`"], "Output", CellChangeTimes->{ 3.57122707719913*^9, 3.5712274619138064`*^9, 3.571227523268714*^9, 3.5712276873810024`*^9, 3.571227768625945*^9, 3.571235009598586*^9, 3.571235369896819*^9, 3.571235666843341*^9, 3.571235708089813*^9, 3.5712362789884157`*^9, 3.5712363562085514`*^9, 3.571236439715498*^9, 3.5712449861237383`*^9, 3.5712450586326656`*^9, 3.571245108724354*^9, 3.5712991869974084`*^9, 3.57129931900484*^9, 3.5712993942437725`*^9, 3.571299498124355*^9, 3.571299554190853*^9, 3.571299617807765*^9, 3.5712998605441914`*^9, 3.5712999037562675`*^9, 3.5713000813625793`*^9, 3.5713001483646965`*^9, 3.571300180329153*^9, 3.571307191748561*^9, 3.571307311962372*^9, 3.57130741339375*^9, 3.571311858890354*^9, 3.5713119308220806`*^9, 3.5713119881365805`*^9, 3.5713120221134405`*^9, 3.571312293850318*^9, 3.571312349183615*^9, 3.571312478585842*^9, 3.571312908054597*^9, 3.571312947226266*^9, 3.5713129974895535`*^9, 3.5713152421462965`*^9, 3.5713153862593493`*^9, 3.5713156361561885`*^9, 3.5713157656520157`*^9, 3.571316165433918*^9, 3.5713165353417673`*^9, 3.5713167061308675`*^9, 3.571316812445054*^9, 3.571316879961973*^9, 3.571316970941333*^9, 3.571317154366455*^9, 3.571317280523876*^9, 3.57132090095957*^9, 3.5713209434072447`*^9, 3.5713209753249006`*^9, 3.5713210219065824`*^9, {3.571321169186441*^9, 3.5713211969232893`*^9}, 3.571321704126981*^9, 3.5728040886565256`*^9}], Cell[BoxData[ RowBox[{"-", "823.5267085481817`"}]], "Output", CellChangeTimes->{ 3.57122707719913*^9, 3.5712274619138064`*^9, 3.571227523268714*^9, 3.5712276873810024`*^9, 3.571227768625945*^9, 3.571235009598586*^9, 3.571235369896819*^9, 3.571235666843341*^9, 3.571235708089813*^9, 3.5712362789884157`*^9, 3.5712363562085514`*^9, 3.571236439715498*^9, 3.5712449861237383`*^9, 3.5712450586326656`*^9, 3.571245108724354*^9, 3.5712991869974084`*^9, 3.57129931900484*^9, 3.5712993942437725`*^9, 3.571299498124355*^9, 3.571299554190853*^9, 3.571299617807765*^9, 3.5712998605441914`*^9, 3.5712999037562675`*^9, 3.5713000813625793`*^9, 3.5713001483646965`*^9, 3.571300180329153*^9, 3.571307191748561*^9, 3.571307311962372*^9, 3.57130741339375*^9, 3.571311858890354*^9, 3.5713119308220806`*^9, 3.5713119881365805`*^9, 3.5713120221134405`*^9, 3.571312293850318*^9, 3.571312349183615*^9, 3.571312478585842*^9, 3.571312908054597*^9, 3.571312947226266*^9, 3.5713129974895535`*^9, 3.5713152421462965`*^9, 3.5713153862593493`*^9, 3.5713156361561885`*^9, 3.5713157656520157`*^9, 3.571316165433918*^9, 3.5713165353417673`*^9, 3.5713167061308675`*^9, 3.571316812445054*^9, 3.571316879961973*^9, 3.571316970941333*^9, 3.571317154366455*^9, 3.571317280523876*^9, 3.57132090095957*^9, 3.5713209434072447`*^9, 3.5713209753249006`*^9, 3.5713210219065824`*^9, {3.571321169186441*^9, 3.5713211969232893`*^9}, 3.571321704126981*^9, 3.5728040886721253`*^9}] }, Open ]] }, WindowSize->{1647, 939}, WindowMargins->{{35, Automatic}, {Automatic, 3}}, 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, 1480, 27, 52, "Input"], Cell[CellGroupData[{ Cell[2062, 51, 282, 6, 52, "Input"], Cell[2347, 59, 7372, 121, 362, "Output"] }, Open ]], Cell[CellGroupData[{ Cell[9756, 185, 680, 14, 52, "Input"], Cell[10439, 201, 6924, 161, 791, "Output"] }, Open ]], Cell[CellGroupData[{ Cell[17400, 367, 609, 10, 31, "Input"], Cell[18012, 379, 2485, 35, 31, "Output"] }, Open ]], Cell[CellGroupData[{ Cell[20534, 419, 955, 14, 31, "Input"], Cell[21492, 435, 1488, 21, 31, "Output"] }, Open ]], Cell[CellGroupData[{ Cell[23017, 461, 1560, 29, 31, "Input"], Cell[24580, 492, 2486, 35, 31, "Output"] }, Open ]], Cell[27081, 530, 1419, 23, 31, "Input"], Cell[28503, 555, 1592, 29, 31, "Input"], Cell[CellGroupData[{ Cell[30120, 588, 1234, 18, 31, "Input"], Cell[31357, 608, 4966, 125, 72, "Output"] }, Open ]], Cell[CellGroupData[{ Cell[36360, 738, 697, 14, 31, "Input"], Cell[37060, 754, 2098, 31, 31, "Output"] }, Open ]], Cell[39173, 788, 908, 24, 31, "Input"], Cell[CellGroupData[{ Cell[40106, 816, 5635, 122, 52, "Input"], Cell[45744, 940, 2256, 33, 52, "Output"], Cell[48003, 975, 2279, 34, 52, "Output"] }, Open ]], Cell[CellGroupData[{ Cell[50319, 1014, 519, 12, 31, "Input"], Cell[50841, 1028, 2478, 35, 31, "Output"] }, Open ]], Cell[CellGroupData[{ Cell[53356, 1068, 1401, 38, 31, "Input"], Cell[54760, 1108, 2137, 32, 31, "Output"] }, Open ]], Cell[CellGroupData[{ Cell[56934, 1145, 827, 23, 92, "Input"], Cell[57764, 1170, 1494, 21, 31, "Output"], Cell[59261, 1193, 1494, 21, 31, "Output"] }, Open ]], Cell[CellGroupData[{ Cell[60792, 1219, 284, 6, 52, "Input"], Cell[61079, 1227, 1508, 21, 31, "Output"] }, Open ]], Cell[62602, 1251, 1824, 35, 72, "Input"], Cell[64429, 1288, 935, 19, 31, "Input"], Cell[65367, 1309, 4271, 83, 72, "Input"], Cell[69641, 1394, 3292, 57, 31, "Input"], Cell[CellGroupData[{ Cell[72958, 1455, 275, 6, 52, "Input"], Cell[73236, 1463, 37322, 901, 228, "Output"] }, Open ]], Cell[110573, 2367, 2567, 59, 52, "Input"], Cell[113143, 2428, 1254, 35, 72, "Input"], Cell[CellGroupData[{ Cell[114422, 2467, 4850, 86, 72, "Input"], Cell[119275, 2555, 18797, 266, 806, "Output"] }, Open ]], Cell[CellGroupData[{ Cell[138109, 2826, 2506, 53, 112, "Input"], Cell[140618, 2881, 1489, 21, 31, "Output"] }, Open ]], Cell[CellGroupData[{ Cell[142144, 2907, 2272, 46, 72, "Input"], Cell[144419, 2955, 1726, 26, 31, "Output"] }, Open ]], Cell[146160, 2984, 9092, 220, 212, "Input"], Cell[CellGroupData[{ Cell[155277, 3208, 584, 9, 31, "Input"], Cell[155864, 3219, 3784, 101, 341, "Output"] }, Open ]], Cell[CellGroupData[{ Cell[159685, 3325, 1947, 43, 72, "Input"], Cell[161635, 3370, 1670, 25, 31, "Output"], Cell[163308, 3397, 1575, 23, 31, "Output"] }, Open ]], Cell[CellGroupData[{ Cell[164920, 3425, 570, 14, 52, "Input"], Cell[165493, 3441, 1951, 30, 31, "Output"], Cell[167447, 3473, 1559, 23, 31, "Output"] }, Open ]], Cell[CellGroupData[{ Cell[169043, 3501, 2767, 54, 72, "Input"], Cell[171813, 3557, 2373, 36, 52, "Output"], Cell[174189, 3595, 1574, 23, 31, "Output"] }, Open ]], Cell[CellGroupData[{ Cell[175800, 3623, 3698, 81, 92, "Input"], Cell[179501, 3706, 2374, 35, 72, "Output"] }, Open ]], Cell[181890, 3744, 2072, 49, 112, "Input"], Cell[183965, 3795, 561, 12, 52, "Input"], Cell[184529, 3809, 2148, 49, 92, "Input"], Cell[186680, 3860, 2452, 56, 92, "Input"], Cell[189135, 3918, 1759, 41, 72, "Input"], Cell[CellGroupData[{ Cell[190919, 3963, 923, 20, 31, "Input"], Cell[191845, 3985, 1501, 21, 31, "Output"] }, Open ]], Cell[CellGroupData[{ Cell[193383, 4011, 711, 18, 31, "Input"], Cell[194097, 4031, 1509, 21, 31, "Output"] }, Open ]], Cell[CellGroupData[{ Cell[195643, 4057, 507, 10, 31, "Input"], Cell[196153, 4069, 1502, 21, 31, "Output"] }, Open ]], Cell[CellGroupData[{ Cell[197692, 4095, 823, 23, 31, "Input"], Cell[198518, 4120, 1490, 21, 31, "Output"] }, Open ]], Cell[CellGroupData[{ Cell[200045, 4146, 204, 4, 31, "Input"], Cell[200252, 4152, 1491, 21, 31, "Output"] }, Open ]], Cell[201758, 4176, 1971, 35, 92, "Input"], Cell[CellGroupData[{ Cell[203754, 4215, 10131, 223, 332, "Input"], Cell[213888, 4440, 1515, 21, 31, "Output"], Cell[215406, 4463, 1515, 21, 31, "Output"], Cell[216924, 4486, 1514, 21, 31, "Output"], Cell[218441, 4509, 1514, 21, 31, "Output"], Cell[219958, 4532, 1532, 22, 31, "Output"], Cell[221493, 4556, 1652, 26, 31, "Output"], Cell[223148, 4584, 1652, 26, 31, "Output"], Cell[224803, 4612, 1652, 26, 31, "Output"], Cell[226458, 4640, 1643, 25, 31, "Output"], Cell[228104, 4667, 1607, 25, 31, "Output"], Cell[229714, 4694, 1645, 25, 31, "Output"], Cell[231362, 4721, 1531, 22, 31, "Output"], Cell[232896, 4745, 2016, 35, 31, "Output"] }, Open ]], Cell[CellGroupData[{ Cell[234949, 4785, 453, 13, 40, "Input"], Cell[235405, 4800, 1498, 21, 31, "Output"] }, Open ]], Cell[CellGroupData[{ Cell[236940, 4826, 7287, 181, 112, "Input"], Cell[244230, 5009, 1871, 34, 676, "Output"] }, Open ]], Cell[246116, 5046, 5257, 100, 72, "Input"], Cell[251376, 5148, 2696, 53, 92, "Input"], Cell[CellGroupData[{ Cell[254097, 5205, 939, 17, 72, "Input"], Cell[255039, 5224, 6012, 126, 132, "Output"], Cell[261054, 5352, 1492, 21, 31, "Output"], Cell[262549, 5375, 1492, 21, 31, "Output"] }, Open ]], Cell[264056, 5399, 10201, 233, 72, "Input"], Cell[274260, 5634, 6352, 102, 31, "Input"], Cell[280615, 5738, 10215, 234, 72, "Input"], Cell[290833, 5974, 5925, 93, 31, "Input"], Cell[CellGroupData[{ Cell[296783, 6071, 8527, 148, 92, "Input"], Cell[305313, 6221, 83562, 1405, 375, 25237, 450, "CachedBoxData", "BoxData", \ "Output"], Cell[388878, 7628, 44462, 727, 375, 18671, 306, "CachedBoxData", "BoxData", \ "Output"] }, Open ]], Cell[CellGroupData[{ Cell[433377, 8360, 3879, 89, 152, "Input"], Cell[437259, 8451, 1476, 21, 31, "Output"], Cell[438738, 8474, 9336, 212, 1106, "Output"] }, Open ]], Cell[448089, 8689, 3049, 67, 72, "Input"], Cell[451141, 8758, 1841, 29, 52, "Input"], Cell[CellGroupData[{ Cell[453007, 8791, 3517, 75, 112, "Input"], Cell[456527, 8868, 7380, 182, 1106, "Output"] }, Open ]], Cell[CellGroupData[{ Cell[463944, 9055, 6437, 145, 132, "Input"], Cell[470384, 9202, 3743, 95, 52, "Output"], Cell[474130, 9299, 2425, 36, 52, "Output"] }, Open ]], Cell[476570, 9338, 1863, 27, 31, "Input"], Cell[CellGroupData[{ Cell[478458, 9369, 2963, 56, 112, "Input"], Cell[481424, 9427, 1501, 21, 31, "Output"] }, Open ]], Cell[CellGroupData[{ Cell[482962, 9453, 2532, 57, 112, "Input"], Cell[485497, 9512, 1504, 21, 31, "Output"] }, Open ]], Cell[CellGroupData[{ Cell[487038, 9538, 499, 15, 52, "Input"], Cell[487540, 9555, 1516, 22, 31, "Output"] }, Open ]], Cell[489071, 9580, 1381, 21, 31, "Input"], Cell[CellGroupData[{ Cell[490477, 9605, 1709, 32, 52, "Input"], Cell[492189, 9639, 1512, 22, 31, "Output"] }, Open ]], Cell[CellGroupData[{ Cell[493738, 9666, 1415, 43, 72, "Input"], Cell[495156, 9711, 1527, 22, 31, "Output"] }, Open ]], Cell[CellGroupData[{ Cell[496720, 9738, 2550, 50, 92, "Input"], Cell[499273, 9790, 1513, 21, 31, "Output"] }, Open ]], Cell[CellGroupData[{ Cell[500823, 9816, 1351, 23, 172, "Input"], Cell[502177, 9841, 1495, 21, 31, "Output"], Cell[503675, 9864, 1495, 21, 31, "Output"], Cell[505173, 9887, 1511, 22, 31, "Output"], Cell[506687, 9911, 1512, 22, 31, "Output"], Cell[508202, 9935, 1494, 21, 31, "Output"], Cell[509699, 9958, 1495, 21, 31, "Output"], Cell[511197, 9981, 1511, 22, 31, "Output"] }, Open ]] } ] *) (* End of internal cache information *)