(* 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[ 668722, 13381] NotebookOptionsPosition[ 659469, 13095] NotebookOutlinePosition[ 659969, 13115] CellTagsIndexPosition[ 659926, 13112] WindowFrame->Normal*) (* Beginning of Notebook Content *) Notebook[{ Cell[BoxData[ RowBox[{ RowBox[{"(*", " ", RowBox[{ RowBox[{ "Kimball", " ", "model", " ", "and", " ", "energy", " ", "derived", " ", "from", " ", "Wolfram", " ", "source"}], ",", " ", RowBox[{"ES", " ", "01", " ", "May", " ", "2013"}]}], " ", "*)"}], " ", "\[IndentingNewLine]", RowBox[{ RowBox[{"Clear", "[", RowBox[{ "tw", ",", "n2", ",", "n", ",", "nb", ",", "bc", ",", "bh", ",", "u", ",", "u1", ",", "u2", ",", "Vee", ",", "Vne", ",", "Vnn"}], "]"}], ";"}], " "}]], "Input", CellChangeTimes->{{3.568278170270548*^9, 3.568278174310955*^9}, { 3.5682782109554195`*^9, 3.5682782183342323`*^9}, {3.5688220426984916`*^9, 3.5688220506389055`*^9}, {3.568822092353379*^9, 3.568822134660653*^9}, { 3.5688728241768503`*^9, 3.568872825034852*^9}, {3.5688958900531473`*^9, 3.5688958965115585`*^9}, {3.5689027504159966`*^9, 3.568902751695199*^9}, { 3.5689109808408637`*^9, 3.568910992618884*^9}, {3.569134574760273*^9, 3.569134584135889*^9}, 3.56923802266416*^9, {3.56933446475942*^9, 3.569334471239791*^9}, {3.5693395229642725`*^9, 3.569339531606688*^9}, { 3.5694332905109916`*^9, 3.56943330667262*^9}, {3.570297588441428*^9, 3.5702976026530533`*^9}, {3.570558862041448*^9, 3.5705588713234644`*^9}, 3.5705590387585583`*^9, {3.570855141170933*^9, 3.570855146100541*^9}, { 3.5708563212974052`*^9, 3.5708563224362073`*^9}, {3.5708588179101906`*^9, 3.570858820452995*^9}, 3.570949483910489*^9, {3.5719810762355733`*^9, 3.5719810786847773`*^9}, 3.5723256977094345`*^9, 3.572583124905918*^9, { 3.5727976670013523`*^9, 3.572797667157352*^9}, 3.5728672700652885`*^9, { 3.5732075583876934`*^9, 3.5732075588400946`*^9}, {3.573221345358634*^9, 3.57322135451585*^9}, {3.573369135900576*^9, 3.5733691365557775`*^9}, { 3.574682961367374*^9, 3.5746829644717793`*^9}, 3.5747440056200757`*^9, { 3.574833269418433*^9, 3.5748332704636354`*^9}, 3.574833303161292*^9, { 3.5750055229593754`*^9, 3.5750055237081766`*^9}, 3.5753452568612485`*^9, { 3.575602814966606*^9, 3.5756028151382065`*^9}, 3.5757279640625825`*^9, { 3.575775139243217*^9, 3.5757751402728186`*^9}, {3.5762939464431095`*^9, 3.5762939465679092`*^9}, {3.576384009529279*^9, 3.5763840168924923`*^9}}], Cell[CellGroupData[{ Cell[BoxData[{ RowBox[{"Plot0", "=", RowBox[{"ChemicalData", "[", RowBox[{"\"\\"", ",", "\"\\""}], "]"}]}], "\[IndentingNewLine]", RowBox[{ RowBox[{"t1", "=", RowBox[{"0.01889726", "*", RowBox[{"ChemicalData", "[", 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.5705590525489826`*^9, 3.5705590747322216`*^9}, {3.570595322227199*^9, 3.5705953504632483`*^9}, 3.570855059411189*^9, 3.570856566545436*^9, 3.5709425310226765`*^9, 3.5730457924857635`*^9, 3.5746613722339497`*^9, 3.574701612088543*^9, 3.574852285217162*^9, {3.5749355226137695`*^9, 3.5749355538138237`*^9}, { 3.574996024820664*^9, 3.5749960279094696`*^9}, {3.575343895110856*^9, 3.575343895110856*^9}, {3.5753463317811365`*^9, 3.5753463317811365`*^9}, { 3.575346463663768*^9, 3.575346463663768*^9}, {3.575347966055607*^9, 3.575347966055607*^9}, {3.5753753647221766`*^9, 3.5753753647221766`*^9}, { 3.576293874214982*^9, 3.5762938797997923`*^9}, {3.5762995804113493`*^9, 3.57629960363979*^9}}], Cell[BoxData[ Graphics3DBox[ {AbsoluteThickness[3], EdgeForm[None], Specularity[ GrayLevel[1], 100], GraphicsComplex3DBox[CompressedData[" 1:eJwtkm1Ik1EUx8e0rIjIkKFRvpTKRIaBROYYnjbdemZ7c7iFrM3Gprbm3EYb 1EKIYQYSEb0sy4rS3JewEMllkQeLCKsxqDAxiwopmOGHaCUWdF88cJ+Hc+/h f3/nf0+Js6vJLRaJREVkZZGl3Siu7L1cizeW4s8bc6yQkdrOTZU5sJpGjh/O /zhZt9suoIhGjRcqyPGvjuOwJYrTtxRWYHVvnLD21CVV3zEj1O7URqJdBUhT 77gAI5rPJ/LEfry7rcUlvwe4n6QjMw5k+3oXFvWkTYmwCScEAhKvxnW0sFKJ ebTgYjlU9kpmk9Z9q3k751vTBMrWhdQOuRIUG2YG/QsBnr8EoPKaXCcw3Y9H kLYnWS+gbPT6Ujxs5rzmw1zvrxuzLZtko/NyHPITpSwdML5JE7J73tmhjcaw i+up2+DJza1V8y419yG/EwaeFd8P5mt5fkWP5Cu1qQJc75qR7/+x8z59Ic4T aMYIBWg5hK9fkRjzYBk1MN2Ii6ZEYY/q6CpvHdK25mYFUD/4+e/tdzOS07Qp 44cBglFaXoL0msHSdt5XPMT/gwagtiiCTmB+RmSwWNOgCT7MAvYOk8UQ85EX TDrg6em4ddoH8IX6ttwAB/eOvQhn9BCJVh0Ytqjww3K35/H7ZqD4hRUeDF3I z7YkBZyj+61NSHESt/3IfDizCxhfhwOZb4kgOjdTRR0y/X47993WiR10sHRq Pg8xN6+XtHMfVnTYTaZuokABrL+Uk/s5bsdPhrMx39QeZO++vQ2u9pMQHMDm 01gPjMfigfo+77eVXAOkfpu/3nkkxf/TRVAq "], { {RGBColor[0.65, 0.7, 0.7], SphereBox[10, 24.], SphereBox[11, 24.], SphereBox[12, 24.], SphereBox[13, 24.], SphereBox[14, 24.], SphereBox[15, 24.], SphereBox[16, 24.], SphereBox[17, 24.]}, {RGBColor[0.4, 0.4, 0.4], SphereBox[6, 34.], SphereBox[7, 34.], SphereBox[8, 34.], SphereBox[9, 34.]}, {RGBColor[0.291989, 0.437977, 0.888609], SphereBox[4, 32.], SphereBox[5, 32.]}, {RGBColor[0.800498, 0.201504, 0.192061], SphereBox[1, 31.], SphereBox[2, 31.], SphereBox[3, 31.]}, {RGBColor[0.65, 0.7, 0.7], CylinderBox[{23, 12}, 15.], CylinderBox[{25, 15}, 15.], CylinderBox[{26, 16}, 15.], CylinderBox[{27, 17}, 15.], CylinderBox[{28, 10}, 15.], CylinderBox[{29, 11}, 15.], CylinderBox[{30, 13}, 15.], CylinderBox[{31, 14}, 15.]}, {RGBColor[0.4, 0.4, 0.4], CylinderBox[{18, 7}, 15.], CylinderBox[{19, 9}, 15.], CylinderBox[{20, 9}, 15.], CylinderBox[{21, 7}, 15.], CylinderBox[{22, 8}, 15.], CylinderBox[{24, 6}, 15.], CylinderBox[{6, 7}, 15.], CylinderBox[{6, 28}, 15.], CylinderBox[{6, 29}, 15.], CylinderBox[{8, 9}, 15.], CylinderBox[{8, 30}, 15.], CylinderBox[{8, 31}, 15.]}, {RGBColor[0.291989, 0.437977, 0.888609], CylinderBox[{4, 21}, 15.], CylinderBox[{4, 22}, 15.], CylinderBox[{4, 23}, 15.], CylinderBox[{5, 24}, 15.], CylinderBox[{5, 25}, 15.], CylinderBox[{5, 26}, 15.], CylinderBox[{5, 27}, 15.]}, {RGBColor[0.800498, 0.201504, 0.192061], CylinderBox[{1, 18}, 15.], CylinderBox[{2, 19}, 15.], CylinderBox[{3, 20}, 15.]}}]}, Boxed->False, ImageSize->262.5747148644995, Lighting->"Neutral", ViewPoint->{1.3, -2.4, -2.}]], "Output", CellChangeTimes->{3.5763887586628203`*^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, 3.5730457925169635`*^9, 3.57466137224955*^9, 3.574701612104143*^9, 3.574852309007204*^9, 3.574935583329076*^9, 3.5753438951264563`*^9, 3.5753463317967367`*^9, 3.575346463679368*^9, 3.575347966071207*^9, 3.5753753647221766`*^9, 3.576293886211403*^9, 3.576299609817401*^9}], Cell[BoxData[ RowBox[{"{", RowBox[{"\<\"O\"\>", ",", "\<\"O\"\>", ",", "\<\"O\"\>", ",", "\<\"N\"\>", ",", "\<\"N\"\>", ",", "\<\"C\"\>", ",", "\<\"C\"\>", ",", "\<\"C\"\>", ",", "\<\"C\"\>", ",", "\<\"H\"\>", ",", "\<\"H\"\>", ",", "\<\"H\"\>", ",", "\<\"H\"\>", ",", "\<\"H\"\>", ",", "\<\"H\"\>", ",", "\<\"H\"\>", ",", "\<\"H\"\>"}], "}"}]], "Output", CellChangeTimes->{3.57638875867842*^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["17"], "Output", CellChangeTimes->{3.57638875867842*^9}] }, Open ]], Cell[CellGroupData[{ Cell[BoxData[ RowBox[{"MatrixForm", "[", RowBox[{"Table", "[", RowBox[{ RowBox[{"Join", "[", RowBox[{ RowBox[{"{", "i", "}"}], ",", RowBox[{"{", RowBox[{"u", "[", RowBox[{"[", "i", "]"}], "]"}], "}"}], ",", RowBox[{"t1", "[", RowBox[{"[", "i", "]"}], "]"}]}], "]"}], ",", RowBox[{"{", RowBox[{"i", ",", "n"}], "}"}]}], "]"}], "]"}]], "Input", CellChangeTimes->{{3.574996055162717*^9, 3.574996080637562*^9}, { 3.5749961872169495`*^9, 3.5749961936753607`*^9}, {3.5749962548738976`*^9, 3.574996268492721*^9}, {3.574996311720397*^9, 3.5749963415788493`*^9}, { 3.57499639316814*^9, 3.5749964813394947`*^9}, {3.5749966279017525`*^9, 3.5749966325037603`*^9}, {3.575738220273323*^9, 3.5757382663558044`*^9}, { 3.5757383024542675`*^9, 3.5757383039050703`*^9}}], Cell[BoxData[ TagBox[ RowBox[{"(", "\[NoBreak]", GridBox[{ {"1", "\<\"O\"\>", RowBox[{"-", "0.50244034888`"}], "1.74070220764`", RowBox[{"-", "2.3544096234`"}]}, {"2", "\<\"O\"\>", "4.846202326999999`", RowBox[{"-", "0.9587713833599999`"}], "4.266056444999999`"}, {"3", "\<\"O\"\>", "7.6828700256`", "1.7567459813799997`", "2.845927356`"}, {"4", "\<\"N\"\>", "1.24383655046`", RowBox[{"-", "0.120165786614`"}], "0.9719427735799999`"}, {"5", "\<\"N\"\>", RowBox[{"-", "4.840155203799999`"}], RowBox[{"-", "0.6305826689399999`"}], RowBox[{"-", "2.4069440062`"}]}, {"6", "\<\"C\"\>", RowBox[{"-", "3.0696709143999996`"}], RowBox[{"-", "1.3200680973`"}], RowBox[{"-", "0.37138785078`"}]}, {"7", "\<\"C\"\>", RowBox[{"-", "0.6867075311399999`"}], "0.21335006539999998`", RowBox[{"-", "0.65547036036`"}]}, {"8", "\<\"C\"\>", "3.5647791263999995`", "1.3623034734`", "0.68903189412`"}, {"9", "\<\"C\"\>", "5.411041428399999`", "0.63470227162`", "2.7314099603999997`"}, {"10", "\<\"H\"\>", RowBox[{"-", "3.9109769296`"}], RowBox[{"-", "0.9462047054599999`"}], "1.47122728004`"}, {"11", "\<\"H\"\>", RowBox[{"-", "2.619160236`"}], RowBox[{"-", "3.3238390613999997`"}], RowBox[{"-", "0.5265910471599999`"}]}, {"12", "\<\"H\"\>", "1.0966079978`", RowBox[{"-", "1.3416109737`"}], "2.3307880484`"}, {"13", "\<\"H\"\>", "3.1218273519999995`", "3.3676807046`", "0.8463704808799999`"}, {"14", "\<\"H\"\>", "4.3989041828`", "0.98626689666`", RowBox[{"-", "1.1564178257`"}]}, {"15", "\<\"H\"\>", RowBox[{"-", "5.219612184599999`"}], "1.2554394681`", RowBox[{"-", "2.3411815413999997`"}]}, {"16", "\<\"H\"\>", RowBox[{"-", "6.4802483992`"}], RowBox[{"-", "1.62076129842`"}], RowBox[{"-", "2.2189162691999997`"}]}, {"17", "\<\"H\"\>", RowBox[{"-", "4.037399599`"}], RowBox[{"-", "1.05518520388`"}], RowBox[{"-", "4.1216813786`"}]} }, 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.5763887586940203`*^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\"\>", ",", "\<\"O\"\>", ",", "\<\"O\"\>", ",", "\<\"N\"\>", ",", "\<\"N\"\>", ",", "\<\"C\"\>", ",", "\<\"C\"\>", ",", "\<\"C\"\>", ",", "\<\"C\"\>", ",", "\<\"Z\"\>", ",", "\<\"Z\"\>", ",", "\<\"Z\"\>", ",", "\<\"Z\"\>", ",", "\<\"Z\"\>", ",", "\<\"Z\"\>", ",", "\<\"Z\"\>", ",", "\<\"Z\"\>"}], "}"}]], "Output", CellChangeTimes->{3.5763887587096205`*^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\"\>", ",", "6"}], "}"}], ",", RowBox[{"{", RowBox[{"\<\"C\"\>", ",", "7"}], "}"}], ",", RowBox[{"{", RowBox[{"\<\"C\"\>", ",", "8"}], "}"}], ",", RowBox[{"{", RowBox[{"\<\"C\"\>", ",", "9"}], "}"}], ",", RowBox[{"{", RowBox[{"\<\"N\"\>", ",", "4"}], "}"}], ",", RowBox[{"{", RowBox[{"\<\"N\"\>", ",", "5"}], "}"}], ",", RowBox[{"{", RowBox[{"\<\"O\"\>", ",", "1"}], "}"}], ",", RowBox[{"{", RowBox[{"\<\"O\"\>", ",", "2"}], "}"}], ",", RowBox[{"{", RowBox[{"\<\"O\"\>", ",", "3"}], "}"}], ",", RowBox[{"{", RowBox[{"\<\"Z\"\>", ",", "10"}], "}"}], ",", RowBox[{"{", RowBox[{"\<\"Z\"\>", ",", "11"}], "}"}], ",", RowBox[{"{", RowBox[{"\<\"Z\"\>", ",", "12"}], "}"}], ",", RowBox[{"{", RowBox[{"\<\"Z\"\>", ",", "13"}], "}"}], ",", RowBox[{"{", RowBox[{"\<\"Z\"\>", ",", "14"}], "}"}], ",", RowBox[{"{", RowBox[{"\<\"Z\"\>", ",", "15"}], "}"}], ",", RowBox[{"{", RowBox[{"\<\"Z\"\>", ",", "16"}], "}"}], ",", RowBox[{"{", RowBox[{"\<\"Z\"\>", ",", "17"}], "}"}]}], "}"}]], "Output", CellChangeTimes->{3.5763887587408204`*^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[{ "6", ",", "7", ",", "8", ",", "9", ",", "4", ",", "5", ",", "1", ",", "2", ",", "3", ",", "10", ",", "11", ",", "12", ",", "13", ",", "14", ",", "15", ",", "16", ",", "17"}], "}"}]], "Output", CellChangeTimes->{3.57638875875642*^9}] }, Open ]], Cell[BoxData[ RowBox[{ RowBox[{"For", "[", RowBox[{ RowBox[{"i", "=", "1"}], ",", RowBox[{"i", "<", RowBox[{"n", "+", "1"}]}], ",", RowBox[{"i", "++"}], ",", RowBox[{"If", "[", RowBox[{ RowBox[{ RowBox[{"us", "[", RowBox[{"[", RowBox[{"i", ",", "1"}], "]"}], "]"}], "\[Equal]", "\"\\""}], ",", RowBox[{ RowBox[{"us", "[", RowBox[{"[", RowBox[{"i", ",", "1"}], "]"}], "]"}], "=", "\"\\""}]}], "]"}]}], "]"}], ";"}]], "Input", CellChangeTimes->{{3.568277663590458*^9, 3.568277712652544*^9}, 3.5682785838808746`*^9, {3.56880682872497*^9, 3.568806862015428*^9}, 3.5688069650848093`*^9, 3.568807273668951*^9, 3.5688073087846127`*^9, { 3.568807384553946*^9, 3.5688073893119545`*^9}, {3.56881489654434*^9, 3.5688149048591547`*^9}, {3.568821714349115*^9, 3.568821718951123*^9}}], Cell[CellGroupData[{ Cell[BoxData[{ RowBox[{"u1", "=", RowBox[{"Table", "[", RowBox[{ RowBox[{"If", "[", RowBox[{ RowBox[{ RowBox[{"us", "[", RowBox[{"[", RowBox[{"i", ",", "1"}], "]"}], "]"}], "\[Equal]", "\"\\""}], ",", "0.255", ",", RowBox[{"If", "[", RowBox[{ RowBox[{ RowBox[{"us", "[", RowBox[{"[", RowBox[{"i", ",", "1"}], "]"}], "]"}], "\[Equal]", "\"\\""}], ",", "0.12", ",", RowBox[{"If", "[", RowBox[{ RowBox[{ RowBox[{"us", "[", RowBox[{"[", RowBox[{"i", ",", "1"}], "]"}], "]"}], "\[Equal]", "\"\\""}], ",", "0.24", ",", RowBox[{"If", "[", RowBox[{ RowBox[{ RowBox[{"us", "[", RowBox[{"[", RowBox[{"i", ",", "1"}], "]"}], "]"}], "\[Equal]", "\"\\""}], ",", "0.178", ",", RowBox[{"If", "[", RowBox[{ RowBox[{ RowBox[{"us", "[", RowBox[{"[", RowBox[{"i", ",", "1"}], "]"}], "]"}], "\[Equal]", "\"\\""}], ",", "0.5"}], "]"}]}], "]"}]}], "]"}]}], "]"}]}], "]"}], ",", RowBox[{"{", RowBox[{"i", ",", "1", ",", "n"}], "}"}]}], "]"}]}], "\[IndentingNewLine]", RowBox[{"u2", "=", RowBox[{"Table", "[", RowBox[{ RowBox[{"If", "[", RowBox[{ RowBox[{ RowBox[{"us", "[", RowBox[{"[", RowBox[{"i", ",", "1"}], "]"}], "]"}], "\[Equal]", "\"\\""}], ",", RowBox[{"(*", "0.25618", "*)"}], "0.2572", ",", 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.1786", ",", RowBox[{"If", "[", RowBox[{ RowBox[{ RowBox[{"us", "[", RowBox[{"[", RowBox[{"i", ",", "1"}], "]"}], "]"}], "\[Equal]", "\"\\""}], ",", "0.48698"}], "]"}]}], "]"}]}], "]"}]}], "]"}]}], "]"}], ",", RowBox[{"{", RowBox[{"i", ",", "1", ",", "n"}], "}"}]}], "]"}]}]}], "Input", CellChangeTimes->{{3.5679480369450207`*^9, 3.567948069112277*^9}, { 3.5679486805553513`*^9, 3.5679487948723516`*^9}, 3.567950206581231*^9, { 3.5681216077716007`*^9, 3.5681216839309344`*^9}, {3.568266380090639*^9, 3.5682664108850937`*^9}, {3.568266481350417*^9, 3.56826649971165*^9}, 3.5682795170433135`*^9, {3.5682795636873956`*^9, 3.5682797843809834`*^9}, { 3.568279837187076*^9, 3.5682798459854913`*^9}, {3.568279877201146*^9, 3.568279880711152*^9}, {3.5682799570264864`*^9, 3.5682799599124913`*^9}, { 3.5683770044498715`*^9, 3.5683771523693314`*^9}, 3.5688133425788107`*^9, { 3.568814931192001*^9, 3.5688150075073347`*^9}, {3.5688765350957685`*^9, 3.5688765981198792`*^9}, {3.568876634452343*^9, 3.5688766352167444`*^9}, { 3.568894358551657*^9, 3.5688944054453397`*^9}, {3.568894522929146*^9, 3.5688945259087515`*^9}, {3.5688946101644993`*^9, 3.5688946171221113`*^9}, {3.568894651067771*^9, 3.568894651956972*^9}, 3.5688946827982264`*^9, {3.568894734527918*^9, 3.568894735495119*^9}, { 3.5688947726699843`*^9, 3.568894773496786*^9}, {3.5688948078948464`*^9, 3.568895097914956*^9}, {3.5689558039020233`*^9, 3.568955804619624*^9}, { 3.5689559169086213`*^9, 3.5689559179070234`*^9}, {3.5689559496998787`*^9, 3.568955950589081*^9}, {3.568956090817727*^9, 3.568956118273775*^9}, 3.5689561556982408`*^9, {3.5690814230317364`*^9, 3.5690814238897376`*^9}, { 3.569232478412421*^9, 3.5692324795356236`*^9}, {3.5692325096124763`*^9, 3.5692325115780797`*^9}, {3.5692325933846235`*^9, 3.569232594289425*^9}, { 3.569235467676072*^9, 3.5692354683780737`*^9}, {3.5692358857568064`*^9, 3.5692358867552085`*^9}, {3.569236173312112*^9, 3.569236174060913*^9}, { 3.569344745239445*^9, 3.569344781213108*^9}, {3.5693896312339673`*^9, 3.5693896351495743`*^9}, {3.5693896840088596`*^9, 3.5693896981112843`*^9}, {3.5693897680462074`*^9, 3.5693897743798184`*^9}, 3.570595843597315*^9, 3.5705958765133724`*^9, {3.5706006955110383`*^9, 3.57060069660304*^9}, {3.570600739659116*^9, 3.5706007402207165`*^9}, { 3.5706007784563837`*^9, 3.5706008313872766`*^9}, {3.5706008641161346`*^9, 3.5706008892321787`*^9}, 3.5706010214580107`*^9, {3.5706011135917726`*^9, 3.570601115058175*^9}, {3.5706011509850388`*^9, 3.5706011750714808`*^9}, { 3.5706012352719865`*^9, 3.570601260746831*^9}, 3.570856110868636*^9, 3.570856144034294*^9, 3.5708561753903494`*^9, {3.5708562115824127`*^9, 3.570856236261656*^9}, 3.5708568877188005`*^9, 3.570856960992129*^9, { 3.5708570022854013`*^9, 3.570857003424204*^9}, 3.5708574863854513`*^9, 3.570857676003785*^9, {3.570857720697863*^9, 3.570857774736358*^9}, { 3.570857815015629*^9, 3.570857815265229*^9}, {3.5708578488052883`*^9, 3.5708579513754683`*^9}, {3.5708579844319267`*^9, 3.570858009937971*^9}, { 3.5708583084132957`*^9, 3.570858421435494*^9}, {3.5727961392438684`*^9, 3.57279614016427*^9}, {3.572796215855603*^9, 3.5727962193812094`*^9}, { 3.5731452670909014`*^9, 3.573145275920517*^9}, {3.573366168242963*^9, 3.5733661753721757`*^9}, 3.573367679154417*^9, {3.5746744522844534`*^9, 3.574674453220455*^9}, 3.5746820022776895`*^9, {3.574682057033786*^9, 3.574682057704587*^9}, {3.574682089045042*^9, 3.574682170757985*^9}, 3.57468220769885*^9, {3.5746826561216383`*^9, 3.5746827960226836`*^9}, { 3.5747437628680496`*^9, 3.5747437640692515`*^9}, 3.5747437976249104`*^9, { 3.574743832756172*^9, 3.5747439364027543`*^9}, {3.57474397413922*^9, 3.5747439758396235`*^9}, {3.5750084847337775`*^9, 3.575008487276582*^9}, { 3.575008535059466*^9, 3.575008535761467*^9}, {3.5750085659943204`*^9, 3.5750085672267227`*^9}, {3.5750086497820673`*^9, 3.5750086512484703`*^9}, {3.575345710884446*^9, 3.5753457175144577`*^9}, { 3.5757079421584663`*^9, 3.5757079428916674`*^9}, 3.575774946192878*^9, 3.575774992259759*^9}], Cell[BoxData[ RowBox[{"{", RowBox[{ "0.255`", ",", "0.255`", ",", "0.255`", ",", "0.255`", ",", "0.24`", ",", "0.24`", ",", "0.178`", ",", "0.178`", ",", "0.178`", ",", "0.12`", ",", "0.12`", ",", "0.12`", ",", "0.12`", ",", "0.12`", ",", "0.12`", ",", "0.12`", ",", "0.12`"}], "}"}]], "Output", CellChangeTimes->{3.5763887587720203`*^9}], Cell[BoxData[ RowBox[{"{", RowBox[{ "0.2572`", ",", "0.2572`", ",", "0.2572`", ",", "0.2572`", ",", "0.22522`", ",", "0.22522`", ",", "0.1786`", ",", "0.1786`", ",", "0.1786`", ",", "0.6`", ",", "0.6`", ",", "0.6`", ",", "0.6`", ",", "0.6`", ",", "0.6`", ",", "0.6`", ",", "0.6`"}], "}"}]], "Output", CellChangeTimes->{3.5763887587720203`*^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\"\>", ",", "\<\"N\"\>", ",", "\<\"N\"\>", ",", "\<\"O\"\>", ",", "\<\"O\"\>", ",", "\<\"O\"\>", ",", "\<\"H\"\>", ",", "\<\"H\"\>", ",", "\<\"H\"\>", ",", "\<\"H\"\>", ",", "\<\"H\"\>", ",", "\<\"H\"\>", ",", "\<\"H\"\>", ",", "\<\"H\"\>"}], "}"}]], "Output", CellChangeTimes->{3.5763887588032207`*^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]", "\"\\""}], ",", "7.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}, 3.5733593979404716`*^9}], Cell[BoxData[ RowBox[{"{", RowBox[{ "6.`", ",", "6.`", ",", "6.`", ",", "6.`", ",", "7.`", ",", "7.`", ",", "8.`", ",", "8.`", ",", "8.`", ",", "1.`", ",", "1.`", ",", "1.`", ",", "1.`", ",", "1.`", ",", "1.`", ",", "1.`", ",", "1.`"}], "}"}]], "Output", CellChangeTimes->{3.576388758818821*^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["9"], "Output", CellChangeTimes->{3.5763887588344207`*^9}], Cell[BoxData["8"], "Output", CellChangeTimes->{3.5763887588344207`*^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[{"0.529177", "*", 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}, {3.5749356251839495`*^9, 3.5749356357451677`*^9}, {3.5763887223303566`*^9, 3.5763887326575747`*^9}}], Cell[CellGroupData[{ Cell[BoxData[ RowBox[{"ChemicalData", "\[NoBreak]", "[", RowBox[{"\"\\"", ",", "\"\\""}], "]"}]], "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}, {3.5749356251839495`*^9, 3.5749356357451677`*^9}, 3.5753438951420565`*^9, 3.5753463317967367`*^9, 3.575346463694968*^9, 3.575347966086807*^9, 3.5753753647377768`*^9, 3.5763887160747457`*^9}], Cell[BoxData["\<\"C4H8N2O3\"\>"], "Output", CellChangeTimes->{3.5763887588500204`*^9}] }, Open ]], Cell[BoxData[ RowBox[{ RowBox[{ RowBox[{"t", "=", RowBox[{"Table", "[", RowBox[{ RowBox[{"t1", "[", RowBox[{"[", RowBox[{"num", "[", RowBox[{"[", "i", "]"}], "]"}], "]"}], "]"}], ",", RowBox[{"{", RowBox[{"i", ",", "1", ",", "n"}], "}"}]}], "]"}]}], ";"}], "\[IndentingNewLine]"}]], "Input", CellChangeTimes->{{3.567869377256353*^9, 3.567869394073182*^9}, { 3.5678694248832364`*^9, 3.5678694526200852`*^9}, {3.5678694891241493`*^9, 3.5678694955045605`*^9}, {3.567869596046737*^9, 3.567869602645549*^9}, 3.56786971175214*^9, {3.5678697908910794`*^9, 3.567869798800293*^9}, { 3.5679434548425727`*^9, 3.5679434621121855`*^9}, 3.568011875875622*^9, 3.56811435956207*^9, {3.5682782821071444`*^9, 3.5682782839479475`*^9}, { 3.5688205455482616`*^9, 3.5688206262784038`*^9}, 3.5688208026055136`*^9, 3.5688732159559383`*^9, 3.568910867631465*^9, {3.5689830694736805`*^9, 3.568983072687286*^9}, {3.5725833074418383`*^9, 3.5725833223398647`*^9}, { 3.572583642982828*^9, 3.572583671421678*^9}, {3.572584036290719*^9, 3.5725840766323895`*^9}, {3.572584986320788*^9, 3.572585000719613*^9}, { 3.572585104865396*^9, 3.5725851158790154`*^9}, 3.5726667135591345`*^9, { 3.5727958552609696`*^9, 3.5727958810478153`*^9}, {3.5727959717619743`*^9, 3.5727959736963778`*^9}, {3.572796004615632*^9, 3.572796064270137*^9}, 3.5733691180073442`*^9, {3.5747381333641615`*^9, 3.5747381348149643`*^9}, { 3.5748523465408697`*^9, 3.574852347788872*^9}, {3.5749356592544093`*^9, 3.5749356651044197`*^9}, 3.575562664774312*^9}], Cell[CellGroupData[{ Cell[BoxData[ RowBox[{"ChemicalData", "\[NoBreak]", "[", RowBox[{"\"\\"", ",", "\"\\""}], "]"}]], "Input", CellChangeTimes->{{3.567869377256353*^9, 3.567869394073182*^9}, { 3.5678694248832364`*^9, 3.5678694526200852`*^9}, {3.5678694891241493`*^9, 3.5678694955045605`*^9}, {3.567869596046737*^9, 3.567869602645549*^9}, 3.56786971175214*^9, {3.5678697908910794`*^9, 3.567869798800293*^9}, { 3.5679434548425727`*^9, 3.5679434621121855`*^9}, 3.568011875875622*^9, 3.56811435956207*^9, {3.5682782821071444`*^9, 3.5682782839479475`*^9}, { 3.5688205455482616`*^9, 3.5688206262784038`*^9}, 3.5688208026055136`*^9, 3.5688732159559383`*^9, 3.568910867631465*^9, {3.5689830694736805`*^9, 3.568983072687286*^9}, {3.5725833074418383`*^9, 3.5725833223398647`*^9}, { 3.572583642982828*^9, 3.572583671421678*^9}, {3.572584036290719*^9, 3.5725840766323895`*^9}, {3.572584986320788*^9, 3.572585000719613*^9}, { 3.572585104865396*^9, 3.5725851158790154`*^9}, 3.5726667135591345`*^9, { 3.5727958552609696`*^9, 3.5727958810478153`*^9}, {3.5727959717619743`*^9, 3.5727959736963778`*^9}, {3.572796004615632*^9, 3.572796064270137*^9}, 3.5733691180073442`*^9, {3.5747381333641615`*^9, 3.5747381348149643`*^9}, { 3.5748523465408697`*^9, 3.574852347788872*^9}, {3.5749356592544093`*^9, 3.5749356651044197`*^9}, 3.5753438951420565`*^9, 3.5753463318123364`*^9, 3.575346463694968*^9, 3.575347966086807*^9, 3.5753753647377768`*^9, 3.576293905758238*^9, {3.5762996296762357`*^9, 3.5762996326090407`*^9}}], Cell[BoxData[ GraphicsBox[{{ {GrayLevel[0], AbsoluteThickness[0.55], InsetBox[ StyleBox["\<\"O\"\>", StripOnInput->False, ScriptSizeMultipliers->0.8, ScriptMinSize->8, FontSize->Scaled[0.03669693762456801], FontWeight->Plain], {426.90000000000003`, -125.}], LineBox[{{{421.90000000000003`, -107.62292025359697`}, { 421.90000000000003`, -75.}}, {{ 431.90000000000003`, -107.62292025359697`}, { 431.90000000000003`, -75.}}}], {GrayLevel[0], InsetBox[ StyleBox["\<\"C\"\>", StripOnInput->False, ScriptSizeMultipliers->0.8, ScriptMinSize->8, FontSize->Scaled[0.03669693762456801], FontWeight->Plain], {426.90000000000003`, -25.}], LineBox[{{{421.90000000000003`, -75.}, { 421.90000000000003`, -41.15052229405678}}, {{ 431.90000000000003`, -75.}, { 431.90000000000003`, -41.15052229405678}}}]}}, {GrayLevel[0], AbsoluteThickness[0.55], InsetBox[ StyleBox[ TemplateBox[{"\"O\"","\"-\""}, "Superscript"], StripOnInput->False, ScriptSizeMultipliers->0.8, ScriptMinSize->8, FontSize->Scaled[0.03669693762456801], FontWeight->Plain], {773.3100000000001, -25.}], LineBox[{{754.0122293690636, -13.858100097611759`}, {730.01, 0.}}], {GrayLevel[0], InsetBox[ StyleBox["\<\"C\"\>", StripOnInput->False, ScriptSizeMultipliers->0.8, ScriptMinSize->8, FontSize->Scaled[0.03669693762456801], FontWeight->Plain], {686.7099999999999, 25.}], LineBox[{{730.01, 0.}, {700.6966600165583, 16.92456119136353}}]}}, {GrayLevel[0], AbsoluteThickness[0.55], InsetBox[ StyleBox["\<\"O\"\>", StripOnInput->False, ScriptSizeMultipliers->0.8, ScriptMinSize->8, FontSize->Scaled[0.03669693762456801], FontWeight->Plain], {686.7099999999999, 125.}], LineBox[{{{691.7099999999999, 107.62292025359697`}, {691.7099999999999, 75.}}, {{681.7099999999999, 107.62292025359697`}, {681.7099999999999, 75.}}}], {GrayLevel[0], InsetBox[ StyleBox["\<\"C\"\>", StripOnInput->False, ScriptSizeMultipliers->0.8, ScriptMinSize->8, FontSize->Scaled[0.03669693762456801], FontWeight->Plain], {686.7099999999999, 25.}], LineBox[{{{691.7099999999999, 75.}, {691.7099999999999, 41.15052229405678}}, {{681.7099999999999, 75.}, {681.7099999999999, 41.15052229405678}}}]}}, {GrayLevel[0], AbsoluteThickness[0.55], InsetBox[ StyleBox["\<\"N\"\>", StripOnInput->False, ScriptSizeMultipliers->0.8, ScriptMinSize->8, FontSize->Scaled[0.03669693762456801], FontWeight->Plain], {513.5, 25.}], LineBox[{{499.5133399834416, 16.924561191363516`}, {470.20000000000005`, 0.}}], {GrayLevel[0], InsetBox[ StyleBox["\<\"C\"\>", StripOnInput->False, ScriptSizeMultipliers->0.8, ScriptMinSize->8, FontSize->Scaled[0.03669693762456801], FontWeight->Plain], {426.90000000000003`, -25.}], LineBox[{{470.20000000000005`, 0.}, { 440.88666001655844`, -16.924561191363523`}}]}}, {GrayLevel[0], AbsoluteThickness[0.55], InsetBox[ StyleBox["\<\"N\"\>", StripOnInput->False, ScriptSizeMultipliers->0.8, ScriptMinSize->8, FontSize->Scaled[0.03669693762456801], FontWeight->Plain], {513.5, 25.}], LineBox[{{527.4866600165584, 16.924561191363516`}, {556.8, 0.}}], {GrayLevel[0], InsetBox[ StyleBox["\<\"C\"\>", StripOnInput->False, ScriptSizeMultipliers->0.8, ScriptMinSize->8, FontSize->Scaled[0.03669693762456801], FontWeight->Plain], {600.1, -25.}], LineBox[{{556.8, 0.}, {586.1133399834416, -16.92456119136353}}]}}, {GrayLevel[0], AbsoluteThickness[0.55], InsetBox[ StyleBox["\<\"N\"\>", StripOnInput->False, ScriptSizeMultipliers->0.8, ScriptMinSize->8, FontSize->Scaled[0.03669693762456801], FontWeight->Plain], {513.5, 25.}], LineBox[{{513.5, 41.15052229405678}, {513.5, 56.}}], {GrayLevel[0], InsetBox[ StyleBox["\<\"H\"\>", StripOnInput->False, ScriptSizeMultipliers->0.8, ScriptMinSize->8, FontSize->Scaled[0.03669693762456801], FontWeight->Plain], {513.5, 87.}], LineBox[{{513.5, 56.}, {513.5, 70.84947770594323}}]}}, {GrayLevel[0], AbsoluteThickness[0.55], InsetBox[ StyleBox[ TemplateBox[{"\"N\"","\"+\""}, "Superscript"], StripOnInput->False, ScriptSizeMultipliers->0.8, ScriptMinSize->8, FontSize->Scaled[0.03669693762456801], FontWeight->Plain], {253.69000000000003`, -25.}], LineBox[{{275.2094016827713, -12.576837730763607`}, {296.995, 0.}}], {GrayLevel[0], InsetBox[ StyleBox["\<\"C\"\>", StripOnInput->False, ScriptSizeMultipliers->0.8, ScriptMinSize->8, FontSize->Scaled[0.03669693762456801], FontWeight->Plain], {340.3, 25.}], LineBox[{{296.995, 0.}, {326.3129362461835, 16.9252605046666}}]}}, {GrayLevel[0], AbsoluteThickness[0.55], InsetBox[ StyleBox[ TemplateBox[{"\"N\"","\"+\""}, "Superscript"], StripOnInput->False, ScriptSizeMultipliers->0.8, ScriptMinSize->8, FontSize->Scaled[0.03669693762456801], FontWeight->Plain], {253.69000000000003`, -25.}], LineBox[{{232.1714198839322, -37.42458527841503}, { 226.84500000000003`, -40.5}}], {GrayLevel[0], InsetBox[ StyleBox["\<\"H\"\>", StripOnInput->False, ScriptSizeMultipliers->0.8, ScriptMinSize->8, FontSize->Scaled[0.03669693762456801], FontWeight->Plain], {200., -56.00000000000001}], LineBox[{{226.84500000000003`, -40.5}, { 213.98652975635562`, -47.92433558489433}}]}}, {GrayLevel[0], AbsoluteThickness[0.55], InsetBox[ StyleBox[ TemplateBox[{"\"N\"","\"+\""}, "Superscript"], StripOnInput->False, ScriptSizeMultipliers->0.8, ScriptMinSize->8, FontSize->Scaled[0.03669693762456801], FontWeight->Plain], {253.69000000000003`, -25.}], LineBox[{{241.265414721585, -3.4814198839321726`}, {238.19, 1.8449999999999989`}}], {GrayLevel[0], InsetBox[ StyleBox["\<\"H\"\>", StripOnInput->False, ScriptSizeMultipliers->0.8, ScriptMinSize->8, FontSize->Scaled[0.03669693762456801], FontWeight->Plain], {222.69, 28.689999999999998`}], LineBox[{{238.19, 1.8449999999999989`}, {230.76566441510568`, 14.70347024364439}}]}}, {GrayLevel[0], AbsoluteThickness[0.55], InsetBox[ StyleBox[ TemplateBox[{"\"N\"","\"+\""}, "Superscript"], StripOnInput->False, ScriptSizeMultipliers->0.8, ScriptMinSize->8, FontSize->Scaled[0.03669693762456801], FontWeight->Plain], {253.69000000000003`, -25.}], LineBox[{{266.11458527841506`, -46.51858011606784}, {269.19, -51.845}}], {GrayLevel[0], InsetBox[ StyleBox["\<\"H\"\>", StripOnInput->False, ScriptSizeMultipliers->0.8, ScriptMinSize->8, FontSize->Scaled[0.03669693762456801], FontWeight->Plain], {284.69, -78.69}], LineBox[{{269.19, -51.845}, {276.6143355848943, -64.70347024364439}}]}}, {GrayLevel[0], AbsoluteThickness[0.55], InsetBox[ StyleBox["\<\"C\"\>", StripOnInput->False, ScriptSizeMultipliers->0.8, ScriptMinSize->8, FontSize->Scaled[0.03669693762456801], FontWeight->Plain], {340.3, 25.}], LineBox[{{354.2866600165584, 16.924561191363523`}, {383.6, 0.}}], {GrayLevel[0], InsetBox[ StyleBox["\<\"C\"\>", StripOnInput->False, ScriptSizeMultipliers->0.8, ScriptMinSize->8, FontSize->Scaled[0.03669693762456801], FontWeight->Plain], {426.90000000000003`, -25.}], LineBox[{{383.6, 0.}, {412.91333998344163`, -16.924561191363523`}}]}}, {GrayLevel[0], AbsoluteThickness[0.55], InsetBox[ StyleBox["\<\"C\"\>", StripOnInput->False, ScriptSizeMultipliers->0.8, ScriptMinSize->8, FontSize->Scaled[0.03669693762456801], FontWeight->Plain], {340.3, 25.}], LineBox[{{350.68153272944454`, 37.37186924269314}, {360.225, 48.745}}], {GrayLevel[0], InsetBox[ StyleBox["\<\"H\"\>", StripOnInput->False, ScriptSizeMultipliers->0.8, ScriptMinSize->8, FontSize->Scaled[0.03669693762456801], FontWeight->Plain], {380.15, 72.49}], LineBox[{{360.225, 48.745}, {369.76846727055545`, 60.118130757306844`}}]}}, {GrayLevel[0], AbsoluteThickness[0.55], InsetBox[ StyleBox["\<\"C\"\>", StripOnInput->False, ScriptSizeMultipliers->0.8, ScriptMinSize->8, FontSize->Scaled[0.03669693762456801], FontWeight->Plain], {340.3, 25.}], LineBox[{{329.9169387787794, 37.37058648760075}, {320.37, 48.745}}], {GrayLevel[0], InsetBox[ StyleBox["\<\"H\"\>", StripOnInput->False, ScriptSizeMultipliers->0.8, ScriptMinSize->8, FontSize->Scaled[0.03669693762456801], FontWeight->Plain], {300.44, 72.49}], LineBox[{{320.37, 48.745}, {310.8230612212206, 60.11941351239925}}]}}, {GrayLevel[0], AbsoluteThickness[0.55], InsetBox[ StyleBox["\<\"C\"\>", StripOnInput->False, ScriptSizeMultipliers->0.8, ScriptMinSize->8, FontSize->Scaled[0.03669693762456801], FontWeight->Plain], {600.1, -25.}], LineBox[{{614.0870637538166, -16.92526050466659}, {643.405, 0.}}], {GrayLevel[0], InsetBox[ StyleBox["\<\"C\"\>", StripOnInput->False, ScriptSizeMultipliers->0.8, ScriptMinSize->8, FontSize->Scaled[0.03669693762456801], FontWeight->Plain], {686.7099999999999, 25.}], LineBox[{{643.405, 0.}, {672.7229362461834, 16.92526050466659}}]}}, {GrayLevel[0], AbsoluteThickness[0.55], InsetBox[ StyleBox["\<\"C\"\>", StripOnInput->False, ScriptSizeMultipliers->0.8, ScriptMinSize->8, FontSize->Scaled[0.03669693762456801], FontWeight->Plain], {600.1, -25.}], LineBox[{{589.7184672705555, -37.37186924269312}, {580.175, -48.745}}], {GrayLevel[0], InsetBox[ StyleBox["\<\"H\"\>", StripOnInput->False, ScriptSizeMultipliers->0.8, ScriptMinSize->8, FontSize->Scaled[0.03669693762456801], FontWeight->Plain], {560.25, -72.49}], LineBox[{{580.175, -48.745}, { 570.6315327294445, -60.118130757306844`}}]}}, {GrayLevel[0], AbsoluteThickness[0.55], InsetBox[ StyleBox["\<\"C\"\>", StripOnInput->False, ScriptSizeMultipliers->0.8, ScriptMinSize->8, FontSize->Scaled[0.03669693762456801], FontWeight->Plain], {600.1, -25.}], LineBox[{{610.4830612212206, -37.37058648760076}, {620.03, -48.745}}], {GrayLevel[0], InsetBox[ StyleBox["\<\"H\"\>", StripOnInput->False, ScriptSizeMultipliers->0.8, ScriptMinSize->8, FontSize->Scaled[0.03669693762456801], FontWeight->Plain], {639.96, -72.49}], LineBox[{{620.03, -48.745}, { 629.5769387787794, -60.11941351239926}}]}}}, {}, {}}, ImageSize->{{0., 272.5023025710233}, {0., 128.85164828701954`}}, PlotRange->{{182.8007, 794.0499714669456}, {-147.30104458811354`, 141.72578344108516`}}]], "Output", CellChangeTimes->{3.5763887589124207`*^9}] }, Open ]], Cell["(* Distance Matrix Bohr *)", "Text", CellChangeTimes->{{3.5678630319943895`*^9, 3.5678630956269007`*^9}, { 3.5678632280087337`*^9, 3.567863228336334*^9}, {3.5678632621727934`*^9, 3.5678633509213495`*^9}, {3.5678644293824434`*^9, 3.567864451908883*^9}, { 3.567864923404111*^9, 3.56786494544695*^9}, {3.5678650143210707`*^9, 3.5678650845367947`*^9}, {3.567869231084096*^9, 3.5678692412397137`*^9}, 3.5678693168686466`*^9, {3.5678704450470285`*^9, 3.5678704621290584`*^9}, 3.5682783281584253`*^9, 3.5688732159715385`*^9, 3.568910867647065*^9, 3.5689997098549547`*^9, 3.5689998170427427`*^9, 3.5689998869620657`*^9, 3.5691460426137285`*^9, 3.569237204536323*^9, 3.5692374658523817`*^9, 3.56923802264856*^9, 3.5693403424181123`*^9, 3.5693404502143016`*^9, 3.569340738019207*^9, 3.569340852851009*^9, 3.5693411655067577`*^9, 3.5693414978029413`*^9, 3.5693426144373026`*^9, 3.5693435671777763`*^9, 3.569343662743544*^9, 3.569343763644521*^9, 3.569344071177861*^9, 3.569344266271804*^9, 3.570297558707776*^9, {3.5703416079688015`*^9, 3.570341617375618*^9}, {3.5705956885798426`*^9, 3.5705957106070814`*^9}, { 3.5705965150536942`*^9, 3.5705965239457097`*^9}, {3.5720162655168724`*^9, 3.5720163727202606`*^9}, {3.5720166425383344`*^9, 3.572016643427536*^9}, { 3.5723503054303513`*^9, 3.572350361964851*^9}, 3.573368567997178*^9, { 3.5746565325286493`*^9, 3.574656552839885*^9}}], Cell[BoxData[{ RowBox[{ RowBox[{"dc", "=", RowBox[{"Table", "[", RowBox[{ RowBox[{"Norm", "[", RowBox[{ RowBox[{"t", "[", RowBox[{"[", "i", "]"}], "]"}], "-", RowBox[{"t", "[", RowBox[{"[", "j", "]"}], "]"}]}], "]"}], ",", RowBox[{"{", RowBox[{"i", ",", "1", ",", "n"}], "}"}], ",", RowBox[{"{", RowBox[{"j", ",", "1", ",", "n"}], "}"}]}], "]"}]}], ";"}], "\[IndentingNewLine]", RowBox[{ RowBox[{"(*", RowBox[{"MatrixForm", "[", RowBox[{"Prepend", "[", RowBox[{"dc", ",", "num1"}], "]"}], "]"}], "*)"}]}]}], "Input", CellChangeTimes->{{3.5678630319943895`*^9, 3.5678630956269007`*^9}, { 3.5678632280087337`*^9, 3.567863228336334*^9}, {3.5678632621727934`*^9, 3.5678633509213495`*^9}, {3.5678644293824434`*^9, 3.567864451908883*^9}, { 3.567864923404111*^9, 3.56786494544695*^9}, {3.5678650143210707`*^9, 3.5678650845367947`*^9}, {3.567869231084096*^9, 3.5678692412397137`*^9}, 3.5678693168686466`*^9, {3.5678704450470285`*^9, 3.5678704621290584`*^9}, 3.5682783281584253`*^9, 3.5688732159715385`*^9, 3.568910867647065*^9, 3.5689997098549547`*^9, 3.5689998170427427`*^9, 3.5689998869620657`*^9, 3.5691460426137285`*^9, 3.569237204536323*^9, 3.5692374658523817`*^9, 3.56923802264856*^9, 3.5693403424181123`*^9, 3.5693404502143016`*^9, 3.569340738019207*^9, 3.569340852851009*^9, 3.5693411655067577`*^9, 3.5693414978029413`*^9, 3.5693426144373026`*^9, 3.5693435671777763`*^9, 3.569343662743544*^9, 3.569343763644521*^9, 3.569344071177861*^9, 3.569344266271804*^9, 3.570297558707776*^9, {3.5703416079688015`*^9, 3.570341617375618*^9}, {3.5705956885798426`*^9, 3.5705957106070814`*^9}, { 3.5705965150536942`*^9, 3.5705965239457097`*^9}, {3.5720162655168724`*^9, 3.5720163727202606`*^9}, {3.5720166425383344`*^9, 3.572016643427536*^9}, { 3.5723503054303513`*^9, 3.572350361964851*^9}, 3.573368567997178*^9, 3.5746565325286493`*^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[{ RowBox[{"dc", "[", RowBox[{"[", RowBox[{"i", ",", "j"}], "]"}], "]"}], "<", "3.24"}]}], ")"}]}], ")"}], ",", 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}, {3.57313788224113*^9, 3.5731379093851776`*^9}, 3.573137959679666*^9}], Cell[BoxData[ TagBox[ RowBox[{"(", "\[NoBreak]", GridBox[{ {"1", "2", "3", "4", "5", "6", "7", "8", "9", "10", "11", "12", "13", "14", "15", "16", "17"}, {"0.`", "2.847909517506738`", "0", "0", "0", "2.7845095864085736`", "0", "0", "0", "2.059805856700242`", "2.059647052309992`", "0", "0", "0", "0", "0", "0"}, {"2.847909517506738`", "0.`", "0", "0", "2.546901408195029`", "0", "2.291975911819768`", "0", "0", "0", "0", "0", "0", "0", "0", "0", "0"}, {"0", "0", "0.`", "2.8477001531480926`", "2.7684884167022057`", "0", "0", "0", "0", "0", "0", "0", "2.0597328818910285`", "2.059818629186647`", "0", "0", "0"}, {"0", "0", "2.8477001531480926`", "0.`", "0", "0", "0", "2.2832742569128257`", "2.5363953744561814`", "0", "0", "0", "0", "0", "0", "0", "0"}, {"0", "2.546901408195029`", "2.7684884167022057`", "0", "0.`", "0", "0", "0", "0", "0", "0", "1.8330480279235877`", "0", "0", "0", "0", "0"}, {"2.7845095864085736`", "0", "0", "0", "0", "0.`", "0", "0", "0", "0", "0", "0", "0", "0", "1.924939428516999`", "1.9250230746039425`", "1.940368039836913`"}, {"0", "2.291975911819768`", "0", "0", "0", "0", "0.`", "0", "0", "0", "0", "0", "0", "0", "0", "0", "0"}, {"0", "0", "0", "2.2832742569128257`", "0", "0", "0", "0.`", "0", "0", "0", "0", "0", "0", "0", "0", "0"}, {"0", "0", "0", "2.5363953744561814`", "0", "0", "0", "0", "0.`", "0", "0", "0", "0", "0", "0", "0", "0"}, {"2.059805856700242`", "0", "0", "0", "0", "0", "0", "0", "0", "0.`", "0", "0", "0", "0", "0", "0", "0"}, {"2.059647052309992`", "0", "0", "0", "0", "0", "0", "0", "0", "0", "0.`", "0", "0", "0", "0", "0", "0"}, {"0", "0", "0", "0", "1.8330480279235877`", "0", "0", "0", "0", "0", "0", "0.`", "0", "0", "0", "0", "0"}, {"0", "0", "2.0597328818910285`", "0", "0", "0", "0", "0", "0", "0", "0", "0", "0.`", "0", "0", "0", "0"}, {"0", "0", "2.059818629186647`", "0", "0", "0", "0", "0", "0", "0", "0", "0", "0", "0.`", "0", "0", "0"}, {"0", "0", "0", "0", "0", "1.924939428516999`", "0", "0", "0", "0", "0", "0", "0", "0", "0.`", "0", "0"}, {"0", "0", "0", "0", "0", "1.9250230746039425`", "0", "0", "0", "0", "0", "0", "0", "0", "0", "0.`", "0"}, {"0", "0", "0", "0", "0", "1.940368039836913`", "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.5763887589280205`*^9}] }, Open ]], Cell[BoxData[""], "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}, {3.5746569418109684`*^9, 3.574656960905402*^9}}], 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.59"}], ",", 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}, {3.5733681085139713`*^9, 3.573368111025576*^9}, {3.5733681833629026`*^9, 3.573368184579705*^9}, { 3.573368233454591*^9, 3.573368234047392*^9}}], Cell[BoxData[ RowBox[{"{", RowBox[{ "0.2572`", ",", "0.2572`", ",", "0.2572`", ",", "0.2572`", ",", "0.22522`", ",", "0.22522`", ",", "0.1786`", ",", "0.1786`", ",", "0.1786`", ",", "0.59`", ",", "0.59`", ",", "0.5541`", ",", "0.59`", ",", "0.59`", ",", "0.5541`", ",", "0.5541`", ",", "0.5541`"}], "}"}]], "Output", CellChangeTimes->{3.576388758959221*^9}] }, Open ]], Cell[CellGroupData[{ Cell[BoxData[ RowBox[{ RowBox[{"(*", " ", RowBox[{ "subtract", " ", "core", " ", "radii", " ", "from", " ", "pair", " ", "distances"}], " ", "*)"}], "\[IndentingNewLine]", RowBox[{ RowBox[{ RowBox[{"Fij", "=", RowBox[{"Dij", "-", "u2"}]}], ";"}], "\[IndentingNewLine]", 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[{"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}, 3.575798260154653*^9, { 3.57579837247485*^9, 3.575798382833268*^9}, 3.575798442113373*^9}], Cell[BoxData[ TagBox[ RowBox[{"(", "\[NoBreak]", GridBox[{ {"0", "\<\" \"\>", "\<\" \"\>", "\<\" \"\>", "\<\" \"\>", "\<\" \"\>", "\ \<\" \"\>", "\<\" \"\>", "\<\" \"\>", "\<\" \"\>", "\<\" \"\>", "\<\" \"\>", \ "\<\" \"\>", "\<\" \"\>", "\<\" \"\>", "\<\" \"\>", "\<\" \"\>"}, {"2.590709517506738`", "0", "\<\" \"\>", "\<\" \"\>", "\<\" \"\>", "\<\" \"\>", "\<\" \"\>", "\ \<\" \"\>", "\<\" \"\>", "\<\" \"\>", "\<\" \"\>", "\<\" \"\>", "\<\" \"\>", \ "\<\" \"\>", "\<\" \"\>", "\<\" \"\>", "\<\" \"\>"}, {"0", "0", "0", "\<\" \"\>", "\<\" \"\>", "\<\" \"\>", "\<\" \"\>", "\<\" \"\>", "\ \<\" \"\>", "\<\" \"\>", "\<\" \"\>", "\<\" \"\>", "\<\" \"\>", "\<\" \"\>", \ "\<\" \"\>", "\<\" \"\>", "\<\" \"\>"}, {"0", "0", "2.5905001531480925`", "0", "\<\" \"\>", "\<\" \"\>", "\<\" \"\>", "\<\" \"\>", "\<\" \"\>", "\ \<\" \"\>", "\<\" \"\>", "\<\" \"\>", "\<\" \"\>", "\<\" \"\>", "\<\" \"\>", \ "\<\" \"\>", "\<\" \"\>"}, {"0", "2.3216814081950288`", "2.5432684167022055`", "0", "0", "\<\" \"\>", "\<\" \"\>", "\<\" \"\>", "\<\" \"\>", "\<\" \"\>", "\ \<\" \"\>", "\<\" \"\>", "\<\" \"\>", "\<\" \"\>", "\<\" \"\>", "\<\" \"\>", \ "\<\" \"\>"}, {"2.5592895864085734`", "0", "0", "0", "0", "0", "\<\" \"\>", "\<\" \"\>", "\<\" \"\>", "\<\" \"\>", "\<\" \"\>", "\ \<\" \"\>", "\<\" \"\>", "\<\" \"\>", "\<\" \"\>", "\<\" \"\>", "\<\" \"\>"}, {"0", "2.113375911819768`", "0", "0", "0", "0", "0", "\<\" \"\>", "\<\" \"\>", "\<\" \"\>", "\<\" \"\>", "\<\" \"\>", "\ \<\" \"\>", "\<\" \"\>", "\<\" \"\>", "\<\" \"\>", "\<\" \"\>"}, {"0", "0", "0", "2.104674256912826`", "0", "0", "0", "0", "\<\" \"\>", "\<\" \"\>", "\<\" \"\>", "\<\" \"\>", "\<\" \"\>", "\ \<\" \"\>", "\<\" \"\>", "\<\" \"\>", "\<\" \"\>"}, {"0", "0", "0", "2.3577953744561815`", "0", "0", "0", "0", "0", "\<\" \"\>", "\<\" \"\>", "\<\" \"\>", "\<\" \"\>", "\<\" \"\>", "\ \<\" \"\>", "\<\" \"\>", "\<\" \"\>"}, {"1.4698058567002423`", "0", "0", "0", "0", "0", "0", "0", "0", "0", "\<\" \"\>", "\<\" \"\>", "\<\" \"\>", "\<\" \"\>", "\<\" \"\>", "\ \<\" \"\>", "\<\" \"\>"}, {"1.469647052309992`", "0", "0", "0", "0", "0", "0", "0", "0", "0", "0", "\<\" \"\>", "\<\" \"\>", "\<\" \"\>", "\<\" \"\>", "\<\" \"\>", "\ \<\" \"\>"}, {"0", "0", "0", "0", "1.2789480279235876`", "0", "0", "0", "0", "0", "0", "0", "\<\" \"\>", "\<\" \"\>", "\<\" \"\>", "\<\" \"\>", "\<\" \"\>"}, {"0", "0", "1.4697328818910287`", "0", "0", "0", "0", "0", "0", "0", "0", "0", "0", "\<\" \"\>", "\<\" \"\>", "\<\" \"\>", "\<\" \"\>"}, {"0", "0", "1.4698186291866473`", "0", "0", "0", "0", "0", "0", "0", "0", "0", "0", "0", "\<\" \"\>", "\<\" \"\>", "\<\" \"\>"}, {"0", "0", "0", "0", "0", "1.370839428516999`", "0", "0", "0", "0", "0", "0", "0", "0", "0", "\<\" \"\>", "\<\" \"\>"}, {"0", "0", "0", "0", "0", "1.3709230746039425`", "0", "0", "0", "0", "0", "0", "0", "0", "0", "0", "\<\" \"\>"}, {"0", "0", "0", "0", "0", "1.386268039836913`", "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.576388758974821*^9}] }, Open ]], 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[CellGroupData[{ 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[{"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}, {3.5757984551081953`*^9, 3.5757984616914067`*^9}}], Cell[BoxData[ TagBox[ RowBox[{"(", "\[NoBreak]", GridBox[{ {"0", "2.3335095175067377`", "0", "0", "0", "2.3020895864085733`", "0", "0", "0", "1.2126058567002422`", "1.212447052309992`", "0", "0", "0", "0", "0", "0"}, {"\<\" \"\>", "0", "0", "0", "2.0644814081950287`", "0", "1.856175911819768`", "0", "0", "0", "0", "0", "0", "0", "0", "0", "0"}, {"\<\" \"\>", "\<\" \"\>", "0", "2.3333001531480924`", "2.2860684167022054`", "0", "0", "0", "0", "0", "0", "0", "1.2125328818910286`", "1.2126186291866472`", "0", "0", "0"}, {"\<\" \"\>", "\<\" \"\>", "\<\" \"\>", "0", "0", "0", "0", "1.8474742569128257`", "2.1005953744561814`", "0", "0", "0", "0", "0", "0", "0", "0"}, {"\<\" \"\>", "\<\" \"\>", "\<\" \"\>", "\<\" \"\>", "0", "0", "0", "0", "0", "0", "0", "1.0537280279235877`", "0", "0", "0", "0", "0"}, {"\<\" \"\>", "\<\" \"\>", "\<\" \"\>", "\<\" \"\>", "\<\" \"\>", "0", "0", "0", "0", "0", "0", "0", "0", "0", "1.145619428516999`", "1.1457030746039425`", "1.161048039836913`"}, {"\<\" \"\>", "\<\" \"\>", "\<\" \"\>", "\<\" \"\>", "\<\" \"\>", "\<\" \ \"\>", "0", "0", "0", "0", "0", "0", "0", "0", "0", "0", "0"}, {"\<\" \"\>", "\<\" \"\>", "\<\" \"\>", "\<\" \"\>", "\<\" \"\>", "\<\" \ \"\>", "\<\" \"\>", "0", "0", "0", "0", "0", "0", "0", "0", "0", "0"}, {"\<\" \"\>", "\<\" \"\>", "\<\" \"\>", "\<\" \"\>", "\<\" \"\>", "\<\" \ \"\>", "\<\" \"\>", "\<\" \"\>", "0", "0", "0", "0", "0", "0", "0", "0", "0"}, {"\<\" \"\>", "\<\" \"\>", "\<\" \"\>", "\<\" \"\>", "\<\" \"\>", "\<\" \ \"\>", "\<\" \"\>", "\<\" \"\>", "\<\" \"\>", "0", "0", "0", "0", "0", "0", "0", "0"}, {"\<\" \"\>", "\<\" \"\>", "\<\" \"\>", "\<\" \"\>", "\<\" \"\>", "\<\" \ \"\>", "\<\" \"\>", "\<\" \"\>", "\<\" \"\>", "\<\" \"\>", "0", "0", "0", "0", "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.576388758990421*^9}] }, Open ]], Cell[CellGroupData[{ 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[{"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}, {3.5757985741520042`*^9, 3.5757985795340137`*^9}, {3.5757996092762227`*^9, 3.5757996144242315`*^9}, {3.575799724856826*^9, 3.575799730145235*^9}}], Cell[BoxData[ TagBox[ RowBox[{"(", "\[NoBreak]", GridBox[{ {"0", "1.1667547587533689`", "0", "0", "0", "1.1510447932042867`", "0", "0", "0", "1.2126058567002422`", "1.212447052309992`", "0", "0", "0", "0", "0", "0"}, {"\<\" \"\>", "0", "0", "0", "1.0322407040975143`", "0", "0.928087955909884`", "0", "0", "0", "0", "0", "0", "0", "0", "0", "0"}, {"\<\" \"\>", "\<\" \"\>", "0", "1.1666500765740462`", "1.1430342083511027`", "0", "0", "0", "0", "0", "0", "0", "1.2125328818910286`", "1.2126186291866472`", "0", "0", "0"}, {"\<\" \"\>", "\<\" \"\>", "\<\" \"\>", "0", "0", "0", "0", "0.9237371284564129`", "1.0502976872280907`", "0", "0", "0", "0", "0", "0", "0", "0"}, {"\<\" \"\>", "\<\" \"\>", "\<\" \"\>", "\<\" \"\>", "0", "0", "0", "0", "0", "0", "0", "1.0537280279235877`", "0", "0", "0", "0", "0"}, {"\<\" \"\>", "\<\" \"\>", "\<\" \"\>", "\<\" \"\>", "\<\" \"\>", "0", "0", "0", "0", "0", "0", "0", "0", "0", "1.145619428516999`", "1.1457030746039425`", "1.161048039836913`"}, {"\<\" \"\>", "\<\" \"\>", "\<\" \"\>", "\<\" \"\>", "\<\" \"\>", "\<\" \ \"\>", "0", "0", "0", "0", "0", "0", "0", "0", "0", "0", "0"}, {"\<\" \"\>", "\<\" \"\>", "\<\" \"\>", "\<\" \"\>", "\<\" \"\>", "\<\" \ \"\>", "\<\" \"\>", "0", "0", "0", "0", "0", "0", "0", "0", "0", "0"}, {"\<\" \"\>", "\<\" \"\>", "\<\" \"\>", "\<\" \"\>", "\<\" \"\>", "\<\" \ \"\>", "\<\" \"\>", "\<\" \"\>", "0", "0", "0", "0", "0", "0", "0", "0", "0"}, {"\<\" \"\>", "\<\" \"\>", "\<\" \"\>", "\<\" \"\>", "\<\" \"\>", "\<\" \ \"\>", "\<\" \"\>", "\<\" \"\>", "\<\" \"\>", "0", "0", "0", "0", "0", "0", "0", "0"}, {"\<\" \"\>", "\<\" \"\>", "\<\" \"\>", "\<\" \"\>", "\<\" \"\>", "\<\" \ \"\>", "\<\" \"\>", "\<\" \"\>", "\<\" \"\>", "\<\" \"\>", "0", "0", "0", "0", "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.5763887590060205`*^9}] }, Open ]], Cell[CellGroupData[{ 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", "]"}], "*)"}], "\n", 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"}], "}"}]}], "]"}]}], "\n", 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"}], "}"}]}], "]"}]}], "\n", RowBox[{"Ttot", "=", RowBox[{"Tval", "+", "Tcor"}]}], " ", RowBox[{"(*", " ", RowBox[{"plus", " ", "\[Pi]", " ", "and", " ", "lone", " ", RowBox[{"pairs", ":", " ", RowBox[{"+", " ", "8.7616"}]}]}], " ", "*)"}], "\n", 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"}], "}"}]}], "]"}]}], "\n", RowBox[{"TvalC", "=", RowBox[{"Tval", "-", "TvalH"}]}]}]}]], "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}, 3.574657067547189*^9}], Cell[BoxData["29.371870630884764`"], "Output", CellChangeTimes->{3.5763887590216208`*^9}], Cell[BoxData["436.3782324390713`"], "Output", CellChangeTimes->{3.5763887590216208`*^9}], Cell[BoxData["465.7501030699561`"], "Output", CellChangeTimes->{3.5763887590216208`*^9}], Cell[BoxData["13.245250507056177`"], "Output", CellChangeTimes->{3.5763887590216208`*^9}], Cell[BoxData["16.126620123828587`"], "Output", CellChangeTimes->{3.5763887590216208`*^9}] }, Open ]], Cell[BoxData[{ RowBox[{ RowBox[{"Mij", "=", RowBox[{"Prepend", "[", RowBox[{"Qij", ",", "u"}], "]"}]}], ";"}], "\[IndentingNewLine]", RowBox[{ RowBox[{"Oij", "=", RowBox[{"Transpose", "[", "Mij", "]"}]}], ";"}], "\[IndentingNewLine]", RowBox[{ RowBox[{"Pij", "=", RowBox[{"Prepend", "[", RowBox[{"Oij", ",", RowBox[{"Prepend", "[", RowBox[{"u", ",", "\"\< \>\""}], "]"}]}], "]"}]}], ";"}]}], "Input", CellChangeTimes->{{3.568045828002715*^9, 3.56804588761042*^9}, 3.5680459828797874`*^9, {3.568046033938677*^9, 3.5680460518787084`*^9}, { 3.568046989190755*^9, 3.5680470284404235`*^9}, {3.568047061028881*^9, 3.568047085567724*^9}, {3.5680471562982483`*^9, 3.568047169199471*^9}, { 3.568047223393966*^9, 3.568047364059413*^9}, {3.568047417286707*^9, 3.5680474225127163`*^9}, {3.5680474583459787`*^9, 3.568047487861231*^9}, { 3.5680475345521126`*^9, 3.5680475468605347`*^9}, {3.5680479168775845`*^9, 3.5680479311516094`*^9}, {3.568048066918648*^9, 3.568048067667449*^9}, { 3.5680483816336*^9, 3.5680483930216208`*^9}, {3.568048424159275*^9, 3.568048450211321*^9}, {3.5680486326224413`*^9, 3.5680486370996494`*^9}, { 3.5680487358166227`*^9, 3.5680487967191296`*^9}, 3.568048834377596*^9, 3.568048984418659*^9, {3.5680490255559316`*^9, 3.5680490790796256`*^9}, { 3.5680491274553103`*^9, 3.5680491280949116`*^9}, {3.5680491782333994`*^9, 3.568049231944294*^9}, {3.568049361533722*^9, 3.5680493691933355`*^9}, { 3.568049422171028*^9, 3.568049427490638*^9}, {3.568049476427923*^9, 3.5680495489368505`*^9}, {3.568049620634577*^9, 3.5680496274361887`*^9}, { 3.5680496655314555`*^9, 3.568049693876705*^9}, 3.568049746573598*^9, { 3.568049846460573*^9, 3.568049932759925*^9}, {3.568050009059659*^9, 3.5680500167348723`*^9}, {3.5680501572755194`*^9, 3.568050179911159*^9}, 3.5681087021497335`*^9, {3.5726244549749556`*^9, 3.5726244687341795`*^9}, 3.572624583643982*^9, {3.574656664645282*^9, 3.5746566773749037`*^9}, { 3.574656980265036*^9, 3.5746569955686626`*^9}}], Cell[CellGroupData[{ Cell[BoxData[{ RowBox[{ RowBox[{"Eij", "=", RowBox[{"Table", "[", RowBox[{ RowBox[{"If", "[", RowBox[{ RowBox[{"i", "\[GreaterEqual]", "j"}], ",", RowBox[{"Dij", "[", RowBox[{"[", RowBox[{"i", ",", "j"}], "]"}], "]"}], ",", "0"}], "]"}], ",", RowBox[{"{", RowBox[{"i", ",", "1", ",", RowBox[{"bc", "-", "1"}]}], "}"}], ",", RowBox[{"{", RowBox[{"j", ",", "1", ",", RowBox[{"bc", "-", "1"}]}], "}"}]}], "]"}]}], ";"}], "\[IndentingNewLine]", RowBox[{"CD", "=", RowBox[{"Select", "[", RowBox[{ RowBox[{"Flatten", "[", "Eij", "]"}], ",", RowBox[{ RowBox[{"(", RowBox[{ RowBox[{"#", "\[GreaterEqual]", "2.4"}], " ", "&&", RowBox[{"#", "\[LessEqual]", "2.6"}]}], ")"}], " ", "&"}]}], "]"}]}], "\[IndentingNewLine]", RowBox[{ RowBox[{"Mean", "[", "CD", "]"}], " ", "\[PlusMinus]", " ", RowBox[{"StandardDeviation", "[", "CD", "]"}]}], "\n", RowBox[{"CC", "=", RowBox[{"Select", "[", RowBox[{ RowBox[{"Flatten", "[", "Eij", "]"}], ",", RowBox[{ RowBox[{"(", RowBox[{"#", "\[GreaterEqual]", "2.6"}], ")"}], " ", "&"}]}], "]"}]}], "\n", RowBox[{ RowBox[{ RowBox[{"Mean", "[", "CC", "]"}], " ", "\[PlusMinus]", " ", RowBox[{"StandardDeviation", "[", "CC", "]"}]}], " "}], "\n", 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.568045828002715*^9, 3.56804588761042*^9}, 3.5680459828797874`*^9, {3.568046033938677*^9, 3.5680460518787084`*^9}, { 3.568046989190755*^9, 3.5680470284404235`*^9}, {3.568047061028881*^9, 3.568047085567724*^9}, {3.5680471562982483`*^9, 3.568047169199471*^9}, { 3.568047223393966*^9, 3.568047364059413*^9}, {3.568047417286707*^9, 3.5680474225127163`*^9}, {3.5680474583459787`*^9, 3.568047487861231*^9}, { 3.5680475345521126`*^9, 3.5680475468605347`*^9}, {3.5680479168775845`*^9, 3.5680479311516094`*^9}, {3.568048066918648*^9, 3.568048067667449*^9}, { 3.5680483816336*^9, 3.5680483930216208`*^9}, {3.568048424159275*^9, 3.568048450211321*^9}, {3.5680486326224413`*^9, 3.5680486370996494`*^9}, { 3.5680487358166227`*^9, 3.5680487967191296`*^9}, 3.568048834377596*^9, 3.568048984418659*^9, {3.5680490255559316`*^9, 3.5680490790796256`*^9}, { 3.5680491274553103`*^9, 3.5680491280949116`*^9}, {3.5680491782333994`*^9, 3.568049231944294*^9}, {3.568049361533722*^9, 3.5680493691933355`*^9}, { 3.568049422171028*^9, 3.568049427490638*^9}, {3.568049476427923*^9, 3.5680495489368505`*^9}, {3.568049620634577*^9, 3.5680496274361887`*^9}, { 3.5680496655314555`*^9, 3.568049693876705*^9}, 3.568049746573598*^9, { 3.568049846460573*^9, 3.568049932759925*^9}, {3.568050009059659*^9, 3.5680500167348723`*^9}, {3.5680501572755194`*^9, 3.568050179911159*^9}, 3.5681087021497335`*^9, {3.5726244549749556`*^9, 3.5726244687341795`*^9}, 3.572624583643982*^9, {3.574656664645282*^9, 3.5746566773749037`*^9}, { 3.574656980265036*^9, 3.5746569955686626`*^9}}], Cell[BoxData[ RowBox[{"{", "2.546901408195029`", "}"}]], "Output", CellChangeTimes->{3.576388759037221*^9}], Cell[BoxData[ RowBox[{ StyleBox[ RowBox[{"StandardDeviation", "::", "shlen"}], "MessageName"], RowBox[{ ":", " "}], "\<\"The argument \[NoBreak]\\!\\({2.546901408195029`}\\)\ \[NoBreak] should have at least two elements. \\!\\(\\*ButtonBox[\\\"\ \[RightSkeleton]\\\", ButtonStyle->\\\"Link\\\", ButtonFrame->None, \ ButtonData:>\\\"paclet:ref/StandardDeviation\\\", ButtonNote -> \ \\\"StandardDeviation::shlen\\\"]\\)\"\>"}]], "Message", "MSG", CellChangeTimes->{3.576388759115221*^9}], Cell[BoxData[ RowBox[{"2.546901408195029`", "\[PlusMinus]", RowBox[{"StandardDeviation", "[", RowBox[{"{", "2.546901408195029`", "}"}], "]"}]}]], "Output", CellChangeTimes->{3.576388759115221*^9}], Cell[BoxData[ RowBox[{"{", RowBox[{ "2.847909517506738`", ",", "2.8477001531480926`", ",", "2.7684884167022057`", ",", "2.7845095864085736`"}], "}"}]], "Output", CellChangeTimes->{3.576388759115221*^9}], Cell[BoxData[ RowBox[{"2.8121519184414026`", "\[PlusMinus]", "0.041684860505229`"}]], "Output", CellChangeTimes->{3.576388759115221*^9}], Cell[BoxData[ RowBox[{"{", RowBox[{ "2.059805856700242`", ",", "2.059647052309992`", ",", "1.8330480279235877`", ",", "2.0597328818910285`", ",", "2.059818629186647`", ",", "1.924939428516999`", ",", "1.9250230746039425`", ",", "1.940368039836913`"}], "}"}]], "Output", CellChangeTimes->{3.576388759115221*^9}], Cell[BoxData[ RowBox[{"1.9827978738711691`", "\[PlusMinus]", "0.08831603329696638`"}]], "Output", CellChangeTimes->{3.576388759115221*^9}] }, Open ]], Cell[CellGroupData[{ Cell[BoxData[ RowBox[{ RowBox[{"(*", " ", RowBox[{"count", " ", "C", " ", "atoms"}], " ", "*)"}], "\[IndentingNewLine]", RowBox[{ RowBox[{ RowBox[{"nc", "=", "0"}], ";"}], " ", "\n", RowBox[{"For", "[", RowBox[{ RowBox[{"i", "=", "1"}], ",", RowBox[{"i", "<", RowBox[{"bc", "+", "1"}]}], ",", RowBox[{"i", "++"}], ",", RowBox[{"If", "[", RowBox[{ RowBox[{ RowBox[{"u", "[", RowBox[{"[", "i", "]"}], "]"}], "\[Equal]", "\"\\""}], ",", RowBox[{"nc", "=", RowBox[{"nc", "+", "1"}]}], ",", "nc"}], "]"}]}], "]"}], "\[IndentingNewLine]", RowBox[{ RowBox[{"cnt", "=", RowBox[{"Table", "[", RowBox[{"0", ",", RowBox[{"{", "nc", "}"}]}], "]"}]}], ";"}], "\[IndentingNewLine]", RowBox[{ RowBox[{"pri", "=", "cnt"}], ";", " ", RowBox[{"sec", "=", "cnt"}], ";", RowBox[{"ter", "=", "cnt"}], ";", " ", RowBox[{"qua", "=", "cnt"}], ";"}], "\[IndentingNewLine]", "nc"}]}]], "Input", CellChangeTimes->{{3.568045828002715*^9, 3.56804588761042*^9}, 3.5680459828797874`*^9, {3.568046033938677*^9, 3.5680460518787084`*^9}, { 3.568046989190755*^9, 3.5680470284404235`*^9}, {3.568047061028881*^9, 3.568047085567724*^9}, {3.5680471562982483`*^9, 3.568047169199471*^9}, { 3.568047223393966*^9, 3.568047364059413*^9}, {3.568047417286707*^9, 3.5680474225127163`*^9}, {3.5680474583459787`*^9, 3.568047487861231*^9}, { 3.5680475345521126`*^9, 3.5680475468605347`*^9}, {3.5680479168775845`*^9, 3.5680479311516094`*^9}, {3.568048066918648*^9, 3.568048067667449*^9}, { 3.5680483816336*^9, 3.5680483930216208`*^9}, {3.568048424159275*^9, 3.568048450211321*^9}, {3.5680486326224413`*^9, 3.5680486370996494`*^9}, { 3.5680487358166227`*^9, 3.5680487967191296`*^9}, 3.568048834377596*^9, 3.568048984418659*^9, {3.5680490255559316`*^9, 3.5680490790796256`*^9}, { 3.5680491274553103`*^9, 3.5680491280949116`*^9}, {3.5680491782333994`*^9, 3.568049231944294*^9}, {3.568049361533722*^9, 3.5680493691933355`*^9}, { 3.568049422171028*^9, 3.568049427490638*^9}, {3.568049476427923*^9, 3.5680495489368505`*^9}, {3.568049620634577*^9, 3.5680496274361887`*^9}, { 3.5680496655314555`*^9, 3.568049693876705*^9}, 3.568049746573598*^9, { 3.568049846460573*^9, 3.568049932759925*^9}, {3.568050009059659*^9, 3.5680500167348723`*^9}, {3.5680501572755194`*^9, 3.568050179911159*^9}, 3.5681087021497335`*^9, {3.5726244549749556`*^9, 3.5726244687341795`*^9}, 3.572624583643982*^9, {3.574656664645282*^9, 3.5746566836773148`*^9}, { 3.5746567220533824`*^9, 3.5746567296193953`*^9}}], Cell[BoxData["4"], "Output", CellChangeTimes->{3.576388759130821*^9}] }, Open ]], Cell[CellGroupData[{ Cell[BoxData[ RowBox[{ RowBox[{"(*", " ", RowBox[{"count", " ", "O", " ", "atoms"}], " ", "*)"}], "\[IndentingNewLine]", RowBox[{ RowBox[{ RowBox[{"no", "=", "0"}], ";"}], " ", "\n", RowBox[{"For", "[", RowBox[{ RowBox[{"i", "=", "1"}], ",", RowBox[{"i", "<", RowBox[{"bc", "+", "1"}]}], ",", RowBox[{"i", "++"}], ",", RowBox[{"If", "[", RowBox[{ RowBox[{ RowBox[{"u", "[", RowBox[{"[", "i", "]"}], "]"}], "\[Equal]", "\"\\""}], ",", RowBox[{"no", "=", RowBox[{"no", "+", "1"}]}], ",", "no"}], "]"}]}], "]"}], "\[IndentingNewLine]", "no"}]}]], "Input", CellChangeTimes->{{3.5747778571769943`*^9, 3.5747779085322847`*^9}}], Cell[BoxData["3"], "Output", CellChangeTimes->{3.5763887591464214`*^9}] }, Open ]], Cell[CellGroupData[{ Cell[BoxData[ RowBox[{ RowBox[{"(*", " ", RowBox[{ "count", " ", "H", " ", "atoms", " ", "bonded", " ", "to", " ", "each", " ", "C", " ", "atom"}], " ", "*)"}], "\[IndentingNewLine]", RowBox[{ RowBox[{ RowBox[{"For", "[", RowBox[{ RowBox[{"j", "=", "1"}], ",", RowBox[{"j", "\[LessEqual]", "nc"}], ",", RowBox[{"j", "++"}], ",", "\[IndentingNewLine]", RowBox[{"For", "[", RowBox[{ RowBox[{"i", "=", RowBox[{"bc", "+", "1"}]}], ",", RowBox[{"i", "\[LessEqual]", "n"}], ",", RowBox[{"i", "++"}], ",", RowBox[{"If", "[", " ", RowBox[{ RowBox[{ RowBox[{"Dij", "[", RowBox[{"[", RowBox[{"i", ",", "j"}], "]"}], "]"}], "\[NotEqual]", "0"}], " ", ",", RowBox[{ RowBox[{"cnt", "[", RowBox[{"[", "j", "]"}], "]"}], "=", RowBox[{ RowBox[{"cnt", "[", RowBox[{"[", "j", "]"}], "]"}], "+", "1"}]}], ",", "0"}], "]"}]}], "]"}]}], "]"}], ";"}], "\[IndentingNewLine]", "cnt"}]}]], "Input", CellChangeTimes->{{3.568045828002715*^9, 3.56804588761042*^9}, 3.5680459828797874`*^9, {3.568046033938677*^9, 3.5680460518787084`*^9}, { 3.568046989190755*^9, 3.5680470284404235`*^9}, {3.568047061028881*^9, 3.568047085567724*^9}, {3.5680471562982483`*^9, 3.568047169199471*^9}, { 3.568047223393966*^9, 3.568047364059413*^9}, {3.568047417286707*^9, 3.5680474225127163`*^9}, {3.5680474583459787`*^9, 3.568047487861231*^9}, { 3.5680475345521126`*^9, 3.5680475468605347`*^9}, {3.5680479168775845`*^9, 3.5680479311516094`*^9}, {3.568048066918648*^9, 3.568048067667449*^9}, { 3.5680483816336*^9, 3.5680483930216208`*^9}, {3.568048424159275*^9, 3.568048450211321*^9}, {3.5680486326224413`*^9, 3.5680486370996494`*^9}, { 3.5680487358166227`*^9, 3.5680487967191296`*^9}, 3.568048834377596*^9, 3.568048984418659*^9, {3.5680490255559316`*^9, 3.5680490790796256`*^9}, { 3.5680491274553103`*^9, 3.5680491280949116`*^9}, {3.5680491782333994`*^9, 3.568049231944294*^9}, {3.568049361533722*^9, 3.5680493691933355`*^9}, { 3.568049422171028*^9, 3.568049427490638*^9}, {3.568049476427923*^9, 3.5680495489368505`*^9}, {3.568049620634577*^9, 3.5680496274361887`*^9}, { 3.5680496655314555`*^9, 3.568049693876705*^9}, 3.568049746573598*^9, { 3.568049846460573*^9, 3.568049932759925*^9}, {3.568050009059659*^9, 3.5680500167348723`*^9}, {3.5680501572755194`*^9, 3.568050179911159*^9}, 3.5681087021497335`*^9, {3.5726244549749556`*^9, 3.5726244687341795`*^9}, 3.572624583643982*^9, {3.574656664645282*^9, 3.5746566836773148`*^9}, { 3.5746567220533824`*^9, 3.5746567296193953`*^9}}], Cell[BoxData[ RowBox[{"{", RowBox[{"2", ",", "0", ",", "2", ",", "0"}], "}"}]], "Output", CellChangeTimes->{3.576388759162021*^9}] }, Open ]], Cell[BoxData[ RowBox[{ RowBox[{"(*", " ", RowBox[{ RowBox[{"parse", " ", "into", " ", "prim"}], ",", " ", "sec", ",", " ", "tert", ",", " ", RowBox[{ "and", " ", "quart", " ", "C", " ", "cores", " ", "with", " ", "different", " ", "radii"}]}], " ", "*)"}], "\[IndentingNewLine]", RowBox[{"(*", RowBox[{ RowBox[{"n1", "=", "0"}], ";", " ", RowBox[{"n2", "=", "0"}], ";", " ", RowBox[{"n3", "=", "0"}], ";", " ", RowBox[{"n4", "=", "0"}], ";", "\n", RowBox[{"For", "[", RowBox[{ RowBox[{"i", "=", "1"}], ",", RowBox[{"i", "\[LessEqual]", "nc"}], ",", RowBox[{"i", "++"}], ",", "\[IndentingNewLine]", RowBox[{"If", "[", RowBox[{ RowBox[{ RowBox[{"cnt", "[", RowBox[{"[", "i", "]"}], "]"}], "\[Equal]", "3"}], ",", RowBox[{ RowBox[{"n1", "=", RowBox[{"n1", "+", "1"}]}], ";", RowBox[{ RowBox[{"pri", "[", RowBox[{"[", "n1", "]"}], "]"}], "=", "i"}]}], ",", "\[IndentingNewLine]", RowBox[{"If", "[", RowBox[{ RowBox[{ RowBox[{"cnt", "[", RowBox[{"[", "i", "]"}], "]"}], "\[Equal]", "2"}], ",", RowBox[{ RowBox[{"n2", "=", RowBox[{"n2", "+", "1"}]}], ";", RowBox[{ RowBox[{"sec", "[", RowBox[{"[", "n2", "]"}], "]"}], "=", "i"}]}], ",", "\[IndentingNewLine]", RowBox[{"If", "[", RowBox[{ RowBox[{ RowBox[{"cnt", "[", RowBox[{"[", "i", "]"}], "]"}], "\[Equal]", "1"}], ",", RowBox[{ RowBox[{"n3", "=", RowBox[{"n3", "+", "1"}]}], ";", RowBox[{ RowBox[{"ter", "[", RowBox[{"[", "n3", "]"}], "]"}], "=", "i"}]}], ",", "\[IndentingNewLine]", RowBox[{"If", "[", RowBox[{ RowBox[{ RowBox[{"cnt", "[", RowBox[{"[", "i", "]"}], "]"}], "=", "0"}], ",", RowBox[{ RowBox[{"n4", "=", RowBox[{"n4", "+", "1"}]}], ";", RowBox[{ RowBox[{"qua", "[", RowBox[{"[", "n4", "]"}], "]"}], "=", "i"}]}]}], "]"}]}], "]"}]}], "]"}]}], "]"}]}], "]"}], ";", "\[IndentingNewLine]", RowBox[{ RowBox[{"For", " ", "[", RowBox[{ RowBox[{"i", "=", "1"}], ",", " ", RowBox[{"i", "\[LessEqual]", "nc"}], ",", RowBox[{"i", "++"}], ",", RowBox[{"If", "[", RowBox[{ RowBox[{ RowBox[{"pri", "[", RowBox[{"[", "i", "]"}], "]"}], "\[NotEqual]", "0"}], ",", RowBox[{ RowBox[{"u2", "[", RowBox[{"[", RowBox[{"pri", "[", RowBox[{"[", "i", "]"}], "]"}], "]"}], "]"}], "=", "0.259"}]}], "]"}]}], "]"}], "\[IndentingNewLine]", RowBox[{"For", " ", "[", RowBox[{ RowBox[{"i", "=", "1"}], ",", " ", RowBox[{"i", "\[LessEqual]", "nc"}], ",", RowBox[{"i", "++"}], ",", RowBox[{"If", "[", RowBox[{ RowBox[{ RowBox[{"sec", "[", RowBox[{"[", "i", "]"}], "]"}], "\[NotEqual]", "0"}], ",", RowBox[{ RowBox[{"u2", "[", RowBox[{"[", RowBox[{"sec", "[", RowBox[{"[", "i", "]"}], "]"}], "]"}], "]"}], "=", "0.258"}]}], "]"}]}], "]"}], "\[IndentingNewLine]", RowBox[{"For", " ", "[", RowBox[{ RowBox[{"i", "=", "1"}], ",", " ", RowBox[{"i", "\[LessEqual]", "nc"}], ",", RowBox[{"i", "++"}], ",", RowBox[{"If", "[", RowBox[{ RowBox[{ RowBox[{"ter", "[", RowBox[{"[", "i", "]"}], "]"}], "\[NotEqual]", "0"}], ",", RowBox[{ RowBox[{"u2", "[", RowBox[{"[", RowBox[{"ter", "[", RowBox[{"[", "i", "]"}], "]"}], "]"}], "]"}], "=", "0.2595"}]}], "]"}]}], "]"}], "\[IndentingNewLine]", RowBox[{"For", " ", "[", RowBox[{ RowBox[{"i", "=", "1"}], ",", " ", RowBox[{"i", "\[LessEqual]", "nc"}], ",", RowBox[{"i", "++"}], ",", RowBox[{"If", "[", RowBox[{ RowBox[{ RowBox[{"qua", "[", RowBox[{"[", "i", "]"}], "]"}], "\[NotEqual]", "0"}], ",", RowBox[{ RowBox[{"u2", "[", RowBox[{"[", RowBox[{"qua", "[", RowBox[{"[", "i", "]"}], "]"}], "]"}], "]"}], "=", "0.2595"}]}], "]"}]}], "]"}]}]}], "*)"}]}]], "Input", CellChangeTimes->{ 3.574656734486604*^9, 3.5746567701950665`*^9, 3.574656840972391*^9, { 3.574674470271285*^9, 3.574674475481694*^9}, {3.574674526181783*^9, 3.574674528927388*^9}, {3.5746746901536713`*^9, 3.5746746947712793`*^9}, 3.5757079587880955`*^9}], Cell[CellGroupData[{ Cell[BoxData[{ RowBox[{ RowBox[{"con", "=", RowBox[{"Table", "[", RowBox[{ RowBox[{"{", "i", "}"}], ",", RowBox[{"{", RowBox[{"i", ",", "1", ",", "n"}], "}"}]}], "]"}]}], ";", " ", RowBox[{"conj", "=", RowBox[{"Table", "[", RowBox[{"0", ",", RowBox[{"{", "nc", "}"}]}], "]"}]}], ";"}], "\[IndentingNewLine]", RowBox[{ RowBox[{"For", "[", RowBox[{ RowBox[{"i", "=", "1"}], ",", RowBox[{"i", "\[LessEqual]", "n"}], ",", RowBox[{"i", "++"}], ",", "\[IndentingNewLine]", RowBox[{"For", "[", RowBox[{ RowBox[{"j", "=", "1"}], ",", RowBox[{"j", "\[LessEqual]", "n"}], ",", RowBox[{"j", "++"}], ",", RowBox[{"If", "[", " ", RowBox[{ RowBox[{ RowBox[{"Dij", "[", RowBox[{"[", RowBox[{"i", ",", "j"}], "]"}], "]"}], "\[NotEqual]", "0"}], " ", ",", RowBox[{ RowBox[{"con", "[", RowBox[{"[", "i", "]"}], "]"}], "=", RowBox[{"{", RowBox[{ RowBox[{"con", "[", RowBox[{"[", "i", "]"}], "]"}], ",", "j"}], "}"}]}]}], "]"}]}], "]"}]}], "]"}], ";"}], "\[IndentingNewLine]", RowBox[{ RowBox[{ RowBox[{"conn", "=", RowBox[{"Table", "[", RowBox[{ RowBox[{"Flatten", "[", RowBox[{"con", "[", RowBox[{"[", "i", "]"}], "]"}], "]"}], ",", RowBox[{"{", RowBox[{"i", ",", "1", ",", "n"}], "}"}]}], "]"}]}], ";"}], "\[IndentingNewLine]", RowBox[{"(*", RowBox[{ RowBox[{ RowBox[{"conn", "[", RowBox[{"[", "10", "]"}], "]"}], "=", RowBox[{"{", RowBox[{"10", ",", "7", ",", "11", ",", "17"}], "}"}]}], ";"}], "*)"}], "\[IndentingNewLine]", RowBox[{"(*", " ", RowBox[{ "identify", " ", "C", " ", "atoms", " ", "at", " ", "double", " ", "bonds"}], " ", "*)"}]}], "\[IndentingNewLine]", RowBox[{ RowBox[{"j", "=", "0"}], ";"}], "\[IndentingNewLine]", RowBox[{ RowBox[{"For", "[", RowBox[{ RowBox[{"i", "=", "1"}], ",", RowBox[{"i", "\[LessEqual]", "nc"}], ",", RowBox[{"i", "++"}], ",", RowBox[{"If", "[", RowBox[{ RowBox[{"(", RowBox[{ RowBox[{ RowBox[{"Length", "[", RowBox[{"conn", "[", RowBox[{"[", "i", "]"}], "]"}], "]"}], "\[Equal]", "4"}], " ", "&&", " ", RowBox[{ RowBox[{"u", "[", RowBox[{"[", RowBox[{"conn", "[", RowBox[{"[", RowBox[{"i", ",", "4"}], "]"}], "]"}], "]"}], "]"}], "\[NotEqual]", "\"\\""}]}], ")"}], ",", RowBox[{ RowBox[{"j", "=", RowBox[{"j", "+", "1"}]}], ";", RowBox[{ RowBox[{"conj", "[", RowBox[{"[", "j", "]"}], "]"}], "=", "i"}]}]}], "]"}]}], "]"}], ";"}], "\[IndentingNewLine]", RowBox[{"conj", "=", RowBox[{"Take", "[", RowBox[{"conj", ",", RowBox[{"{", RowBox[{"1", ",", "j"}], "}"}]}], "]"}]}], "\[IndentingNewLine]", RowBox[{"nj", "=", RowBox[{"Length", "[", "conj", "]"}]}], "\[IndentingNewLine]", RowBox[{"MatrixForm", "[", RowBox[{"conn", ",", " ", RowBox[{"TableAlignments", "\[Rule]", "Left"}]}], "]"}]}], "Input", CellChangeTimes->{{3.568045828002715*^9, 3.56804588761042*^9}, 3.5680459828797874`*^9, {3.568046033938677*^9, 3.5680460518787084`*^9}, { 3.568046989190755*^9, 3.5680470284404235`*^9}, {3.568047061028881*^9, 3.568047085567724*^9}, {3.5680471562982483`*^9, 3.568047169199471*^9}, { 3.568047223393966*^9, 3.568047364059413*^9}, {3.568047417286707*^9, 3.5680474225127163`*^9}, {3.5680474583459787`*^9, 3.568047487861231*^9}, { 3.5680475345521126`*^9, 3.5680475468605347`*^9}, {3.5680479168775845`*^9, 3.5680479311516094`*^9}, {3.568048066918648*^9, 3.568048067667449*^9}, { 3.5680483816336*^9, 3.5680483930216208`*^9}, {3.568048424159275*^9, 3.568048450211321*^9}, {3.5680486326224413`*^9, 3.5680486370996494`*^9}, { 3.5680487358166227`*^9, 3.5680487967191296`*^9}, 3.568048834377596*^9, 3.568048984418659*^9, {3.5680490255559316`*^9, 3.5680490790796256`*^9}, { 3.5680491274553103`*^9, 3.5680491280949116`*^9}, {3.5680491782333994`*^9, 3.568049231944294*^9}, {3.568049361533722*^9, 3.5680493691933355`*^9}, { 3.568049422171028*^9, 3.568049427490638*^9}, {3.568049476427923*^9, 3.5680495489368505`*^9}, {3.568049620634577*^9, 3.5680496274361887`*^9}, { 3.5680496655314555`*^9, 3.568049693876705*^9}, 3.568049746573598*^9, { 3.568049846460573*^9, 3.568049932759925*^9}, {3.568050009059659*^9, 3.5680500167348723`*^9}, {3.5680501572755194`*^9, 3.568050179911159*^9}, 3.5681087021497335`*^9, {3.5726244549749556`*^9, 3.5726244687341795`*^9}, { 3.572624511540655*^9, 3.5726245129758577`*^9}, {3.5726259545431895`*^9, 3.5726259555883913`*^9}, {3.5726268385811424`*^9, 3.5726268436979513`*^9}, {3.5727156260686264`*^9, 3.5727156464110622`*^9}, 3.572767008717453*^9, 3.572767169428935*^9, {3.5727947272385855`*^9, 3.5727947348669987`*^9}, {3.5733216830258026`*^9, 3.573321731307887*^9}, 3.5746648213532076`*^9, 3.5747423225955195`*^9, {3.5747806605331182`*^9, 3.5747807483924723`*^9}, {3.5747809586028414`*^9, 3.57478099722851*^9}}], Cell[BoxData[ RowBox[{"{", "}"}]], "Output", CellChangeTimes->{3.576388759177621*^9}], Cell[BoxData["0"], "Output", CellChangeTimes->{3.576388759177621*^9}], Cell[BoxData[ TagBox[ RowBox[{"(", "\[NoBreak]", TagBox[GridBox[{ { RowBox[{"{", RowBox[{"1", ",", "2", ",", "6", ",", "10", ",", "11"}], "}"}]}, { RowBox[{"{", RowBox[{"2", ",", "1", ",", "5", ",", "7"}], "}"}]}, { RowBox[{"{", RowBox[{"3", ",", "4", ",", "5", ",", "13", ",", "14"}], "}"}]}, { RowBox[{"{", RowBox[{"4", ",", "3", ",", "8", ",", "9"}], "}"}]}, { RowBox[{"{", RowBox[{"5", ",", "2", ",", "3", ",", "12"}], "}"}]}, { RowBox[{"{", RowBox[{"6", ",", "1", ",", "15", ",", "16", ",", "17"}], "}"}]}, { RowBox[{"{", RowBox[{"7", ",", "2"}], "}"}]}, { RowBox[{"{", RowBox[{"8", ",", "4"}], "}"}]}, { RowBox[{"{", RowBox[{"9", ",", "4"}], "}"}]}, { RowBox[{"{", RowBox[{"10", ",", "1"}], "}"}]}, { RowBox[{"{", RowBox[{"11", ",", "1"}], "}"}]}, { RowBox[{"{", RowBox[{"12", ",", "5"}], "}"}]}, { RowBox[{"{", RowBox[{"13", ",", "3"}], "}"}]}, { RowBox[{"{", RowBox[{"14", ",", "3"}], "}"}]}, { RowBox[{"{", RowBox[{"15", ",", "6"}], "}"}]}, { RowBox[{"{", RowBox[{"16", ",", "6"}], "}"}]}, { RowBox[{"{", RowBox[{"17", ",", "6"}], "}"}]} }, 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.576388759177621*^9}] }, Open ]], Cell[CellGroupData[{ Cell[BoxData[ RowBox[{"\[IndentingNewLine]", RowBox[{ RowBox[{ RowBox[{"j", "=", "0"}], ";", " ", RowBox[{"h", "=", "0"}], ";"}], "\[IndentingNewLine]", RowBox[{ RowBox[{"coco", "=", RowBox[{"Table", "[", RowBox[{ RowBox[{"{", RowBox[{"0", ",", "0", ",", "0", ",", "0"}], "}"}], ",", RowBox[{"{", "no", "}"}]}], "]"}]}], ";"}], "\[IndentingNewLine]", RowBox[{ RowBox[{"coch", "=", "coco"}], ";"}], "\[IndentingNewLine]", RowBox[{ RowBox[{"For", "[", RowBox[{ RowBox[{"i", "=", RowBox[{"nc", "+", "1"}]}], ",", " ", RowBox[{"i", "\[LessEqual]", RowBox[{"nc", "+", "no"}]}], ",", " ", RowBox[{"i", "++"}], ",", RowBox[{"If", "[", RowBox[{ RowBox[{ RowBox[{"Length", "[", RowBox[{"conn", "[", RowBox[{"[", "i", "]"}], "]"}], "]"}], "\[Equal]", "2"}], ",", RowBox[{ RowBox[{"j", "=", RowBox[{"j", "+", "1"}]}], ";", RowBox[{ RowBox[{"coco", "[", RowBox[{"[", "j", "]"}], "]"}], "=", RowBox[{"Join", "[", RowBox[{ RowBox[{"{", RowBox[{"conn", "[", RowBox[{"[", RowBox[{"i", ",", "1"}], "]"}], "]"}], "}"}], ",", RowBox[{"Take", "[", RowBox[{ RowBox[{"conn", "[", RowBox[{"[", RowBox[{"conn", "[", RowBox[{"[", RowBox[{"i", ",", "2"}], "]"}], "]"}], "]"}], "]"}], ",", "3"}], "]"}]}], "]"}]}]}], ",", RowBox[{ RowBox[{"h", "=", RowBox[{"h", "+", "1"}]}], ";", RowBox[{ RowBox[{"coch", "[", RowBox[{"[", "h", "]"}], "]"}], "=", RowBox[{"conn", "[", RowBox[{"[", "i", "]"}], "]"}]}]}]}], "]"}]}], "]"}], ";"}], "\[IndentingNewLine]", RowBox[{"coco", "=", RowBox[{"Take", "[", RowBox[{"coco", ",", RowBox[{"{", RowBox[{"1", ",", "j"}], "}"}]}], "]"}]}], "\[IndentingNewLine]", RowBox[{"coch", "=", RowBox[{"Take", "[", RowBox[{"coch", ",", RowBox[{"{", RowBox[{"1", ",", "h"}], "}"}]}], "]"}]}], "\[IndentingNewLine]", RowBox[{"oj", "=", RowBox[{"Length", "[", "coco", "]"}]}], "\[IndentingNewLine]", RowBox[{"hj", "=", RowBox[{"Length", "[", "coch", "]"}]}]}]}]], "Input", CellChangeTimes->{{3.568108824079547*^9, 3.568109012824279*^9}, { 3.568109558076436*^9, 3.568109588168889*^9}, {3.5681097523435774`*^9, 3.5681097637783976`*^9}, {3.5681100381828794`*^9, 3.5681101616726966`*^9}, {3.5681102015307665`*^9, 3.5681102288464146`*^9}, {3.568110263743676*^9, 3.568110267331682*^9}, { 3.5681103163469687`*^9, 3.5681103268925867`*^9}, {3.5681106443375444`*^9, 3.5681106916368275`*^9}, 3.568110873002746*^9, {3.5681109388660617`*^9, 3.5681110268970165`*^9}, {3.568111092526332*^9, 3.568111123461186*^9}, { 3.5681111884196997`*^9, 3.568111192756508*^9}, {3.5681112268113675`*^9, 3.568111366213212*^9}, {3.568111434946933*^9, 3.568111463354583*^9}, { 3.568111544396725*^9, 3.568111547625931*^9}, {3.5681116856081734`*^9, 3.5681117131422215`*^9}, {3.568111864696488*^9, 3.5681119835998964`*^9}, 3.5681120218355637`*^9, {3.56811206543764*^9, 3.568112066389242*^9}, { 3.568112332369709*^9, 3.5681123404505234`*^9}, {3.568112505935614*^9, 3.56811251481203*^9}, {3.5681125623609133`*^9, 3.568112569006525*^9}, { 3.568112648067464*^9, 3.568112734210815*^9}, {3.568112764443668*^9, 3.5681127697320776`*^9}, {3.5681128018681335`*^9, 3.568112843426607*^9}, { 3.568112884641879*^9, 3.5681128887602863`*^9}, {3.5681129663080225`*^9, 3.5681129699584293`*^9}, {3.568113133789917*^9, 3.568113227936082*^9}, { 3.5681132946885996`*^9, 3.5681133044698167`*^9}, {3.568113502200164*^9, 3.568113507348173*^9}, 3.56811354556824*^9, {3.5681222886191964`*^9, 3.5681222896019983`*^9}, {3.568207424138049*^9, 3.5682074415164795`*^9}, 3.568277923134914*^9, 3.568883508322016*^9, 3.568883588350157*^9, 3.5688836441982546`*^9, {3.5703421313965206`*^9, 3.5703421386505337`*^9}, { 3.570342288098796*^9, 3.5703424924279547`*^9}, 3.5709745658726373`*^9, 3.5709746291463485`*^9, {3.5709747534473667`*^9, 3.5709747617933817`*^9}, { 3.5709749537361183`*^9, 3.570975034747061*^9}, {3.5709751055243855`*^9, 3.5709751213584127`*^9}, {3.5709751694532976`*^9, 3.570975200060551*^9}, { 3.571073358435503*^9, 3.5710734289632273`*^9}, {3.571204792969243*^9, 3.571204820940092*^9}, {3.5712048565705547`*^9, 3.571204860002561*^9}, 3.571204896881026*^9, {3.571204943556308*^9, 3.571204987485985*^9}, 3.5712053579722357`*^9, 3.5712054148187356`*^9, 3.5712055260469313`*^9, { 3.571205631237916*^9, 3.5712056608311677`*^9}, {3.571206377683627*^9, 3.5712064172296963`*^9}, {3.571206525727887*^9, 3.571206547427525*^9}, { 3.5712066764397516`*^9, 3.5712067106974115`*^9}, {3.571206757949895*^9, 3.5712067585114956`*^9}, {3.5712073458681273`*^9, 3.571207357053347*^9}, { 3.5712075532392917`*^9, 3.5712076608170805`*^9}, {3.571208007434089*^9, 3.571208247690111*^9}, {3.571208301057805*^9, 3.5712083308850574`*^9}, { 3.571208811958702*^9, 3.571208871488407*^9}, {3.5712089993618317`*^9, 3.5712089996582317`*^9}, {3.5712091105588264`*^9, 3.571209160744115*^9}, { 3.5712092989135575`*^9, 3.5712093003643603`*^9}, {3.571209369940482*^9, 3.5712093926073227`*^9}, {3.5712094586578383`*^9, 3.5712094836958823`*^9}, {3.5712104228175316`*^9, 3.571210434267952*^9}, 3.571210475358424*^9, 3.5712108629099045`*^9, {3.571210903969177*^9, 3.5712109929361334`*^9}, {3.5712110295961976`*^9, 3.5712110392214146`*^9}, {3.571211240071767*^9, 3.5712112940946617`*^9}, { 3.571211404496056*^9, 3.5712114190976815`*^9}, {3.5712115264882703`*^9, 3.5712115363942876`*^9}, {3.571211575924757*^9, 3.5712116183724318`*^9}, { 3.5712116597281046`*^9, 3.571211695062166*^9}, {3.5712117551222715`*^9, 3.5712117807531166`*^9}, {3.571211826835598*^9, 3.5712118443232284`*^9}, { 3.571211962540236*^9, 3.5712119670174437`*^9}, 3.5712123580321307`*^9, { 3.5712123994658036`*^9, 3.571212411181424*^9}, {3.5712172605092583`*^9, 3.571217297153723*^9}, {3.571223622762637*^9, 3.57122364145147*^9}, { 3.5712237454256525`*^9, 3.571223750745262*^9}, {3.571223964808838*^9, 3.571224009097316*^9}, {3.57122674689975*^9, 3.5712267784742055`*^9}, { 3.5712269848157682`*^9, 3.57122698582977*^9}, {3.5712270624259043`*^9, 3.5712270629563055`*^9}, {3.571227212438168*^9, 3.571227212999769*^9}, { 3.571227409778515*^9, 3.5712274489969835`*^9}, {3.571227502177477*^9, 3.571227514127098*^9}, {3.57122758356282*^9, 3.5712276390521173`*^9}, 3.5712276745889797`*^9, {3.571227712746647*^9, 3.5712277584703274`*^9}, { 3.5712349496076813`*^9, 3.571234988008148*^9}, {3.5712351855668955`*^9, 3.5712353359043593`*^9}, {3.5712355859883986`*^9, 3.571235653661318*^9}, { 3.5712356890109797`*^9, 3.571235702208603*^9}, {3.5712449764989214`*^9, 3.5712449799309273`*^9}, {3.5712450401778336`*^9, 3.571245051456653*^9}, { 3.5712450868687153`*^9, 3.5712450934831266`*^9}, {3.571299135517318*^9, 3.571299166342972*^9}, {3.5713069890574045`*^9, 3.5713071726697273`*^9}, { 3.571307301791154*^9, 3.571307304536759*^9}, {3.571307397731323*^9, 3.571307405702937*^9}, {3.571311846659932*^9, 3.5713118507939396`*^9}, { 3.571317129094411*^9, 3.5713171472216425`*^9}, {3.5713172653138494`*^9, 3.5713172753602676`*^9}, {3.5713216932693615`*^9, 3.5713216983081703`*^9}, {3.5713370477995405`*^9, 3.5713370593279605`*^9}, {3.571404339740199*^9, 3.5714046172178864`*^9}, { 3.571404755449729*^9, 3.571404853246301*^9}, {3.571405069743481*^9, 3.571405208989326*^9}, {3.571405268612631*^9, 3.571405277442246*^9}, { 3.5714053796536255`*^9, 3.5714054114932814`*^9}, {3.571405595448805*^9, 3.5714056194884467`*^9}, {3.5714056687221336`*^9, 3.571405677660949*^9}, 3.5714067334520035`*^9, {3.57140676532286*^9, 3.5714067706580687`*^9}, { 3.571406950729185*^9, 3.571406989495253*^9}, {3.5714071848855963`*^9, 3.571407190579606*^9}, 3.5714072350240846`*^9, {3.571412503236558*^9, 3.5714125080413666`*^9}, {3.571412540879424*^9, 3.571412607787942*^9}, { 3.571412668378448*^9, 3.5714128101202965`*^9}, {3.5714128643147917`*^9, 3.571412873862009*^9}, {3.571412908150869*^9, 3.57141290869687*^9}, { 3.571413012374652*^9, 3.5714130213290677`*^9}, {3.571413054603926*^9, 3.5714130713583555`*^9}, 3.5714133323156137`*^9, {3.571730171730853*^9, 3.571730182494872*^9}, {3.5717303501171665`*^9, 3.5717303600855846`*^9}, { 3.5717305482375145`*^9, 3.5717305527147226`*^9}, {3.571760865342704*^9, 3.5717608700695124`*^9}, {3.57176111957635*^9, 3.5717611228835564`*^9}, 3.571761174316847*^9, {3.5717620076459103`*^9, 3.571762008441512*^9}, { 3.571765525077688*^9, 3.571765573718574*^9}, {3.572601603410675*^9, 3.572601639665139*^9}, {3.57260238631365*^9, 3.5726023989340725`*^9}, 3.5726046985809116`*^9, {3.5726052623971024`*^9, 3.572605269729115*^9}, { 3.572606450370389*^9, 3.5726064833176465`*^9}, {3.5726065169513054`*^9, 3.572606523955718*^9}, {3.5726066452459307`*^9, 3.572606662468361*^9}, { 3.5726068118542233`*^9, 3.5726068309330573`*^9}, {3.5726082044218693`*^9, 3.5726082108178806`*^9}, {3.5726129520308228`*^9, 3.5726129692220526`*^9}, {3.5726130228861475`*^9, 3.5726130532750006`*^9}, {3.572624083881504*^9, 3.572624093631521*^9}, { 3.5726247901883445`*^9, 3.572624801233164*^9}, {3.5726249931759005`*^9, 3.572625014937939*^9}, {3.572626882386019*^9, 3.5726268865668263`*^9}, { 3.5726673740642943`*^9, 3.572667386154316*^9}, {3.572707186162225*^9, 3.5727071892978306`*^9}, {3.5727073766385593`*^9, 3.5727073777617617`*^9}, 3.5727091442464643`*^9, 3.572709305488347*^9, {3.5727105300904984`*^9, 3.5727105312605004`*^9}, 3.5727107350904584`*^9, 3.5727108467086544`*^9, 3.572710916331577*^9, {3.5728420867264705`*^9, 3.5728421164913225`*^9}, { 3.572850453192765*^9, 3.5728504884332275`*^9}, {3.5731485879383316`*^9, 3.5731485959879456`*^9}, {3.5731825263710723`*^9, 3.573182535403488*^9}, { 3.5733139065045433`*^9, 3.5733140549856043`*^9}, 3.574655628725462*^9, 3.574657123722888*^9, {3.5746628507577467`*^9, 3.574662854080552*^9}, { 3.5747411461662536`*^9, 3.5747411501130605`*^9}, {3.5747732863761578`*^9, 3.5747733212266192`*^9}, {3.574777246966323*^9, 3.5747777516272087`*^9}, { 3.574778090990205*^9, 3.5747782123584185`*^9}, {3.5747782626217065`*^9, 3.5747782672393146`*^9}, {3.57477829882937*^9, 3.57477835005986*^9}, { 3.5747784095115643`*^9, 3.5747784447520266`*^9}, {3.5747785201625586`*^9, 3.574778535122985*^9}, {3.5747785781478605`*^9, 3.574778578319461*^9}, { 3.5747786106427174`*^9, 3.574778688830055*^9}, {3.5747787248193183`*^9, 3.5747787708393993`*^9}, 3.574778803895857*^9, {3.5747790916071625`*^9, 3.5747790975975733`*^9}, {3.574779153835672*^9, 3.574779165457692*^9}, { 3.5747792016185555`*^9, 3.574779212008174*^9}, {3.5747792458290334`*^9, 3.5747792599314585`*^9}, {3.5747792935339174`*^9, 3.574779301552331*^9}, { 3.574779474915436*^9, 3.574779529047531*^9}, {3.5747795770176153`*^9, 3.574779592914043*^9}, {3.5747796386065235`*^9, 3.574779641742129*^9}, { 3.574779726762278*^9, 3.57477972782308*^9}, 3.5747798402368774`*^9, { 3.5747800908513174`*^9, 3.5747801971811047`*^9}, {3.5747802368675737`*^9, 3.5747802741828394`*^9}, {3.574780331856141*^9, 3.574780343462561*^9}, { 3.574780380434626*^9, 3.5747803867058372`*^9}, {3.5747804240679026`*^9, 3.574780436781925*^9}, {3.574780765302902*^9, 3.574780854581859*^9}, { 3.574785122296955*^9, 3.574785156398615*^9}, {3.574950232276594*^9, 3.574950236582202*^9}}], Cell[BoxData[ RowBox[{"{", RowBox[{"{", RowBox[{"7", ",", "2", ",", "1", ",", "5"}], "}"}], "}"}]], "Output", CellChangeTimes->{3.576388759193221*^9}], Cell[BoxData[ RowBox[{"{", RowBox[{ RowBox[{"{", RowBox[{"5", ",", "2", ",", "3", ",", "12"}], "}"}], ",", RowBox[{"{", RowBox[{"6", ",", "1", ",", "15", ",", "16", ",", "17"}], "}"}]}], "}"}]], "Output", CellChangeTimes->{3.576388759193221*^9}], Cell[BoxData["1"], "Output", CellChangeTimes->{3.5763887592088213`*^9}], Cell[BoxData["2"], "Output", CellChangeTimes->{3.5763887592088213`*^9}] }, Open ]], Cell[BoxData[{ RowBox[{ RowBox[{ RowBox[{"Clear", "[", RowBox[{ "c", ",", "v", ",", "p", ",", "Q", ",", "P", ",", "v1", ",", "v2", ",", "nk", ",", "nl", ",", "i"}], "]"}], ";"}], " "}], "\[IndentingNewLine]", RowBox[{ RowBox[{ RowBox[{"rpo", "=", RowBox[{"{", RowBox[{ "1.2961", ",", "1.0875", ",", "1.2961", ",", "1.0875", ",", "1.2465"}], "}"}]}], ";"}], " ", RowBox[{"(*", " ", RowBox[{"from", " ", RowBox[{"formamide3d", ".", "nb"}]}], " ", "*)"}]}], "\[IndentingNewLine]", RowBox[{ RowBox[{"rpi", "=", "rpo"}], ";"}], "\[IndentingNewLine]", RowBox[{ RowBox[{ RowBox[{"P", "=", "3"}], ";", " ", RowBox[{"c", "=", RowBox[{"{", RowBox[{"0", ",", "0", ",", "0", ",", "0", ",", "0"}], "}"}]}], ";"}], " "}]}], "Input", CellChangeTimes->{{3.568108824079547*^9, 3.568109012824279*^9}, { 3.568109558076436*^9, 3.568109588168889*^9}, {3.5681097523435774`*^9, 3.5681097637783976`*^9}, {3.5681100381828794`*^9, 3.5681101616726966`*^9}, {3.5681102015307665`*^9, 3.5681102288464146`*^9}, {3.568110263743676*^9, 3.568110267331682*^9}, { 3.5681103163469687`*^9, 3.5681103268925867`*^9}, {3.5681106443375444`*^9, 3.5681106916368275`*^9}, 3.568110873002746*^9, {3.5681109388660617`*^9, 3.5681110268970165`*^9}, {3.568111092526332*^9, 3.568111123461186*^9}, { 3.5681111884196997`*^9, 3.568111192756508*^9}, {3.5681112268113675`*^9, 3.568111366213212*^9}, {3.568111434946933*^9, 3.568111463354583*^9}, { 3.568111544396725*^9, 3.568111547625931*^9}, {3.5681116856081734`*^9, 3.5681117131422215`*^9}, {3.568111864696488*^9, 3.5681119835998964`*^9}, 3.5681120218355637`*^9, {3.56811206543764*^9, 3.568112066389242*^9}, { 3.568112332369709*^9, 3.5681123404505234`*^9}, {3.568112505935614*^9, 3.56811251481203*^9}, {3.5681125623609133`*^9, 3.568112569006525*^9}, { 3.568112648067464*^9, 3.568112734210815*^9}, {3.568112764443668*^9, 3.5681127697320776`*^9}, {3.5681128018681335`*^9, 3.568112843426607*^9}, { 3.568112884641879*^9, 3.5681128887602863`*^9}, {3.5681129663080225`*^9, 3.5681129699584293`*^9}, {3.568113133789917*^9, 3.568113227936082*^9}, { 3.5681132946885996`*^9, 3.5681133044698167`*^9}, {3.568113502200164*^9, 3.568113507348173*^9}, 3.56811354556824*^9, {3.5681222886191964`*^9, 3.5681222896019983`*^9}, {3.568207424138049*^9, 3.5682074415164795`*^9}, 3.568277923134914*^9, 3.568883508322016*^9, 3.568883588350157*^9, 3.5688836441982546`*^9, {3.5703421313965206`*^9, 3.5703421386505337`*^9}, { 3.570342288098796*^9, 3.5703424924279547`*^9}, 3.5709745658726373`*^9, 3.5709746291463485`*^9, {3.5709747534473667`*^9, 3.5709747617933817`*^9}, { 3.5709749537361183`*^9, 3.570975034747061*^9}, {3.5709751055243855`*^9, 3.5709751213584127`*^9}, {3.5709751694532976`*^9, 3.570975200060551*^9}, { 3.571073358435503*^9, 3.5710734289632273`*^9}, {3.571204792969243*^9, 3.571204820940092*^9}, {3.5712048565705547`*^9, 3.571204860002561*^9}, 3.571204896881026*^9, {3.571204943556308*^9, 3.571204987485985*^9}, 3.5712053579722357`*^9, 3.5712054148187356`*^9, 3.5712055260469313`*^9, { 3.571205631237916*^9, 3.5712056608311677`*^9}, {3.571206377683627*^9, 3.5712064172296963`*^9}, {3.571206525727887*^9, 3.571206547427525*^9}, { 3.5712066764397516`*^9, 3.5712067106974115`*^9}, {3.571206757949895*^9, 3.5712067585114956`*^9}, {3.5712073458681273`*^9, 3.571207357053347*^9}, { 3.5712075532392917`*^9, 3.5712076608170805`*^9}, {3.571208007434089*^9, 3.571208247690111*^9}, {3.571208301057805*^9, 3.5712083308850574`*^9}, { 3.571208811958702*^9, 3.571208871488407*^9}, {3.5712089993618317`*^9, 3.5712089996582317`*^9}, {3.5712091105588264`*^9, 3.571209160744115*^9}, { 3.5712092989135575`*^9, 3.5712093003643603`*^9}, {3.571209369940482*^9, 3.5712093926073227`*^9}, {3.5712094586578383`*^9, 3.5712094836958823`*^9}, {3.5712104228175316`*^9, 3.571210434267952*^9}, 3.571210475358424*^9, 3.5712108629099045`*^9, {3.571210903969177*^9, 3.5712109929361334`*^9}, {3.5712110295961976`*^9, 3.5712110392214146`*^9}, {3.571211240071767*^9, 3.5712112940946617`*^9}, { 3.571211404496056*^9, 3.5712114190976815`*^9}, {3.5712115264882703`*^9, 3.5712115363942876`*^9}, {3.571211575924757*^9, 3.5712116183724318`*^9}, { 3.5712116597281046`*^9, 3.571211695062166*^9}, {3.5712117551222715`*^9, 3.5712117807531166`*^9}, {3.571211826835598*^9, 3.5712118443232284`*^9}, { 3.571211962540236*^9, 3.5712119670174437`*^9}, 3.5712123580321307`*^9, { 3.5712123994658036`*^9, 3.571212411181424*^9}, {3.5712172605092583`*^9, 3.571217297153723*^9}, {3.571223622762637*^9, 3.57122364145147*^9}, { 3.5712237454256525`*^9, 3.571223750745262*^9}, {3.571223964808838*^9, 3.571224009097316*^9}, {3.57122674689975*^9, 3.5712267784742055`*^9}, { 3.5712269848157682`*^9, 3.57122698582977*^9}, {3.5712270624259043`*^9, 3.5712270629563055`*^9}, {3.571227212438168*^9, 3.571227212999769*^9}, { 3.571227409778515*^9, 3.5712274489969835`*^9}, {3.571227502177477*^9, 3.571227514127098*^9}, {3.57122758356282*^9, 3.5712276390521173`*^9}, 3.5712276745889797`*^9, {3.571227712746647*^9, 3.5712277584703274`*^9}, { 3.5712349496076813`*^9, 3.571234988008148*^9}, {3.5712351855668955`*^9, 3.5712353359043593`*^9}, {3.5712355859883986`*^9, 3.571235653661318*^9}, { 3.5712356890109797`*^9, 3.571235702208603*^9}, {3.5712449764989214`*^9, 3.5712449799309273`*^9}, {3.5712450401778336`*^9, 3.571245051456653*^9}, { 3.5712450868687153`*^9, 3.5712450934831266`*^9}, {3.571299135517318*^9, 3.571299166342972*^9}, {3.5713069890574045`*^9, 3.5713071726697273`*^9}, { 3.571307301791154*^9, 3.571307304536759*^9}, {3.571307397731323*^9, 3.571307405702937*^9}, {3.571311846659932*^9, 3.5713118507939396`*^9}, { 3.571317129094411*^9, 3.5713171472216425`*^9}, {3.5713172653138494`*^9, 3.5713172753602676`*^9}, {3.5713216932693615`*^9, 3.5713216983081703`*^9}, {3.5713370477995405`*^9, 3.5713370593279605`*^9}, {3.571404339740199*^9, 3.5714046172178864`*^9}, { 3.571404755449729*^9, 3.571404853246301*^9}, {3.571405069743481*^9, 3.571405208989326*^9}, {3.571405268612631*^9, 3.571405277442246*^9}, { 3.5714053796536255`*^9, 3.5714054114932814`*^9}, {3.571405595448805*^9, 3.5714056194884467`*^9}, {3.5714056687221336`*^9, 3.571405677660949*^9}, 3.5714067334520035`*^9, {3.57140676532286*^9, 3.5714067706580687`*^9}, { 3.571406950729185*^9, 3.571406989495253*^9}, {3.5714071848855963`*^9, 3.571407190579606*^9}, 3.5714072350240846`*^9, {3.571412503236558*^9, 3.5714125080413666`*^9}, {3.571412540879424*^9, 3.571412607787942*^9}, { 3.571412668378448*^9, 3.5714128101202965`*^9}, {3.5714128643147917`*^9, 3.571412873862009*^9}, {3.571412908150869*^9, 3.57141290869687*^9}, { 3.571413012374652*^9, 3.5714130213290677`*^9}, {3.571413054603926*^9, 3.5714130713583555`*^9}, 3.5714133323156137`*^9, {3.571730171730853*^9, 3.571730182494872*^9}, {3.5717303501171665`*^9, 3.5717303600855846`*^9}, { 3.5717305482375145`*^9, 3.5717305527147226`*^9}, {3.571760865342704*^9, 3.5717608700695124`*^9}, {3.57176111957635*^9, 3.5717611228835564`*^9}, 3.571761174316847*^9, {3.5717620076459103`*^9, 3.571762008441512*^9}, { 3.571765525077688*^9, 3.571765573718574*^9}, {3.572601603410675*^9, 3.572601639665139*^9}, {3.57260238631365*^9, 3.5726023989340725`*^9}, 3.5726046985809116`*^9, {3.5726052623971024`*^9, 3.572605269729115*^9}, { 3.572606450370389*^9, 3.5726064833176465`*^9}, {3.5726065169513054`*^9, 3.572606523955718*^9}, {3.5726066452459307`*^9, 3.572606662468361*^9}, { 3.5726068118542233`*^9, 3.5726068309330573`*^9}, {3.5726082044218693`*^9, 3.5726082108178806`*^9}, {3.5726129520308228`*^9, 3.5726129692220526`*^9}, {3.5726130228861475`*^9, 3.5726130532750006`*^9}, {3.572624083881504*^9, 3.572624093631521*^9}, { 3.5726247901883445`*^9, 3.572624801233164*^9}, {3.5726249931759005`*^9, 3.572625014937939*^9}, {3.572626882386019*^9, 3.5726268865668263`*^9}, { 3.5726673740642943`*^9, 3.572667386154316*^9}, {3.572707186162225*^9, 3.5727071892978306`*^9}, {3.5727073766385593`*^9, 3.5727073777617617`*^9}, 3.5727091442464643`*^9, 3.572709305488347*^9, {3.5727105300904984`*^9, 3.5727105312605004`*^9}, 3.5727107350904584`*^9, 3.5727108467086544`*^9, 3.572710916331577*^9, {3.5728420867264705`*^9, 3.5728421164913225`*^9}, { 3.572850453192765*^9, 3.5728504884332275`*^9}, {3.5731485879383316`*^9, 3.5731485959879456`*^9}, {3.5731825263710723`*^9, 3.573182535403488*^9}, { 3.5733139065045433`*^9, 3.5733140549856043`*^9}, 3.574655628725462*^9, 3.574657123722888*^9, {3.5746628507577467`*^9, 3.574662854080552*^9}, { 3.5747411461662536`*^9, 3.5747411501130605`*^9}, {3.5747732863761578`*^9, 3.5747733212266192`*^9}, {3.574777246966323*^9, 3.574777607030555*^9}, { 3.5747831833383493`*^9, 3.5747831840715504`*^9}, {3.5747851902662745`*^9, 3.574785199875891*^9}, 3.5748282451644087`*^9, {3.5748534446735983`*^9, 3.5748534455472*^9}, {3.575721474665098*^9, 3.5757215077995567`*^9}, { 3.575721778631632*^9, 3.575721826414516*^9}, {3.576294041353676*^9, 3.576294052289295*^9}, 3.5763392154557486`*^9}], Cell["\<\ (*--------------------------------------------------------------------------*) (* next: \[Pi]-clouds for C=C and C=O, half occ each above and below *)\ \>", "Text", CellChangeTimes->{{3.568108824079547*^9, 3.568109012824279*^9}, { 3.568109558076436*^9, 3.568109588168889*^9}, {3.5681097523435774`*^9, 3.5681097637783976`*^9}, {3.5681100381828794`*^9, 3.5681101616726966`*^9}, {3.5681102015307665`*^9, 3.5681102288464146`*^9}, {3.568110263743676*^9, 3.568110267331682*^9}, { 3.5681103163469687`*^9, 3.5681103268925867`*^9}, {3.5681106443375444`*^9, 3.5681106916368275`*^9}, 3.568110873002746*^9, {3.5681109388660617`*^9, 3.5681110268970165`*^9}, {3.568111092526332*^9, 3.568111123461186*^9}, { 3.5681111884196997`*^9, 3.568111192756508*^9}, {3.5681112268113675`*^9, 3.568111366213212*^9}, {3.568111434946933*^9, 3.568111463354583*^9}, { 3.568111544396725*^9, 3.568111547625931*^9}, {3.5681116856081734`*^9, 3.5681117131422215`*^9}, {3.568111864696488*^9, 3.5681119835998964`*^9}, 3.5681120218355637`*^9, {3.56811206543764*^9, 3.568112066389242*^9}, { 3.568112332369709*^9, 3.5681123404505234`*^9}, {3.568112505935614*^9, 3.56811251481203*^9}, {3.5681125623609133`*^9, 3.568112569006525*^9}, { 3.568112648067464*^9, 3.568112734210815*^9}, {3.568112764443668*^9, 3.5681127697320776`*^9}, {3.5681128018681335`*^9, 3.568112843426607*^9}, { 3.568112884641879*^9, 3.5681128887602863`*^9}, {3.5681129663080225`*^9, 3.5681129699584293`*^9}, {3.568113133789917*^9, 3.568113227936082*^9}, { 3.5681132946885996`*^9, 3.5681133044698167`*^9}, {3.568113502200164*^9, 3.568113507348173*^9}, 3.56811354556824*^9, {3.5681222886191964`*^9, 3.5681222896019983`*^9}, {3.568207424138049*^9, 3.5682074415164795`*^9}, 3.568277923134914*^9, 3.568883508322016*^9, 3.568883588350157*^9, 3.5688836441982546`*^9, {3.5703421313965206`*^9, 3.5703421386505337`*^9}, { 3.570342288098796*^9, 3.5703424924279547`*^9}, 3.5709745658726373`*^9, 3.5709746291463485`*^9, {3.5709747534473667`*^9, 3.5709747617933817`*^9}, { 3.5709749537361183`*^9, 3.570975034747061*^9}, {3.5709751055243855`*^9, 3.5709751213584127`*^9}, {3.5709751694532976`*^9, 3.570975200060551*^9}, { 3.571073358435503*^9, 3.5710734289632273`*^9}, {3.571204792969243*^9, 3.571204820940092*^9}, {3.5712048565705547`*^9, 3.571204860002561*^9}, 3.571204896881026*^9, {3.571204943556308*^9, 3.571204987485985*^9}, 3.5712053579722357`*^9, 3.5712054148187356`*^9, 3.5712055260469313`*^9, { 3.571205631237916*^9, 3.5712056608311677`*^9}, {3.571206377683627*^9, 3.5712064172296963`*^9}, {3.571206525727887*^9, 3.571206547427525*^9}, { 3.5712066764397516`*^9, 3.5712067106974115`*^9}, {3.571206757949895*^9, 3.5712067585114956`*^9}, {3.5712073458681273`*^9, 3.571207357053347*^9}, { 3.5712075532392917`*^9, 3.5712076608170805`*^9}, {3.571208007434089*^9, 3.571208247690111*^9}, {3.571208301057805*^9, 3.5712083308850574`*^9}, { 3.571208811958702*^9, 3.571208871488407*^9}, {3.5712089993618317`*^9, 3.5712089996582317`*^9}, {3.5712091105588264`*^9, 3.571209160744115*^9}, { 3.5712092989135575`*^9, 3.5712093003643603`*^9}, {3.571209369940482*^9, 3.5712093926073227`*^9}, {3.5712094586578383`*^9, 3.5712094836958823`*^9}, {3.5712104228175316`*^9, 3.571210434267952*^9}, 3.571210475358424*^9, 3.5712108629099045`*^9, {3.571210903969177*^9, 3.5712109929361334`*^9}, {3.5712110295961976`*^9, 3.5712110392214146`*^9}, {3.571211240071767*^9, 3.5712112940946617`*^9}, { 3.571211404496056*^9, 3.5712114190976815`*^9}, {3.5712115264882703`*^9, 3.5712115363942876`*^9}, {3.571211575924757*^9, 3.5712116183724318`*^9}, { 3.5712116597281046`*^9, 3.571211695062166*^9}, {3.5712117551222715`*^9, 3.5712117807531166`*^9}, {3.571211826835598*^9, 3.5712118443232284`*^9}, { 3.571211962540236*^9, 3.5712119670174437`*^9}, 3.5712123580321307`*^9, { 3.5712123994658036`*^9, 3.571212411181424*^9}, {3.5712172605092583`*^9, 3.571217297153723*^9}, {3.571223622762637*^9, 3.57122364145147*^9}, { 3.5712237454256525`*^9, 3.571223750745262*^9}, {3.571223964808838*^9, 3.571224009097316*^9}, {3.57122674689975*^9, 3.5712267784742055`*^9}, { 3.5712269848157682`*^9, 3.57122698582977*^9}, {3.5712270624259043`*^9, 3.5712270629563055`*^9}, {3.571227212438168*^9, 3.571227212999769*^9}, { 3.571227409778515*^9, 3.5712274489969835`*^9}, {3.571227502177477*^9, 3.571227514127098*^9}, {3.57122758356282*^9, 3.5712276390521173`*^9}, 3.5712276745889797`*^9, {3.571227712746647*^9, 3.5712277584703274`*^9}, { 3.5712349496076813`*^9, 3.571234988008148*^9}, {3.5712351855668955`*^9, 3.5712353359043593`*^9}, {3.5712355859883986`*^9, 3.571235653661318*^9}, { 3.5712356890109797`*^9, 3.571235702208603*^9}, {3.5712449764989214`*^9, 3.5712449799309273`*^9}, {3.5712450401778336`*^9, 3.571245051456653*^9}, { 3.5712450868687153`*^9, 3.5712450934831266`*^9}, {3.571299135517318*^9, 3.571299166342972*^9}, {3.5713069890574045`*^9, 3.5713071726697273`*^9}, { 3.571307301791154*^9, 3.571307304536759*^9}, {3.571307397731323*^9, 3.571307405702937*^9}, {3.571311846659932*^9, 3.5713118507939396`*^9}, { 3.571317129094411*^9, 3.5713171472216425`*^9}, {3.5713172653138494`*^9, 3.5713172753602676`*^9}, {3.5713216932693615`*^9, 3.5713216983081703`*^9}, {3.5713370477995405`*^9, 3.5713370593279605`*^9}, {3.571404339740199*^9, 3.5714046172178864`*^9}, { 3.571404755449729*^9, 3.571404853246301*^9}, {3.571405069743481*^9, 3.571405208989326*^9}, {3.571405268612631*^9, 3.571405277442246*^9}, { 3.5714053796536255`*^9, 3.5714054114932814`*^9}, {3.571405595448805*^9, 3.5714056194884467`*^9}, {3.5714056687221336`*^9, 3.571405677660949*^9}, 3.5714067334520035`*^9, {3.57140676532286*^9, 3.5714067706580687`*^9}, { 3.571406950729185*^9, 3.571406989495253*^9}, {3.5714071848855963`*^9, 3.571407190579606*^9}, 3.5714072350240846`*^9, {3.571412503236558*^9, 3.5714125080413666`*^9}, {3.571412540879424*^9, 3.571412607787942*^9}, { 3.571412668378448*^9, 3.5714128101202965`*^9}, {3.5714128643147917`*^9, 3.571412873862009*^9}, {3.571412908150869*^9, 3.57141290869687*^9}, { 3.571413012374652*^9, 3.5714130213290677`*^9}, {3.571413054603926*^9, 3.5714130713583555`*^9}, 3.5714133323156137`*^9, {3.571730171730853*^9, 3.571730182494872*^9}, {3.5717303501171665`*^9, 3.5717303600855846`*^9}, { 3.5717305482375145`*^9, 3.5717305527147226`*^9}, {3.571760865342704*^9, 3.5717608700695124`*^9}, {3.57176111957635*^9, 3.5717611228835564`*^9}, 3.571761174316847*^9, {3.5717620076459103`*^9, 3.571762008441512*^9}, { 3.571765525077688*^9, 3.571765573718574*^9}, {3.572601603410675*^9, 3.572601639665139*^9}, {3.57260238631365*^9, 3.5726023989340725`*^9}, 3.5726046985809116`*^9, {3.5726052623971024`*^9, 3.572605269729115*^9}, { 3.572606450370389*^9, 3.5726064833176465`*^9}, {3.5726065169513054`*^9, 3.572606523955718*^9}, {3.5726066452459307`*^9, 3.572606662468361*^9}, { 3.5726068118542233`*^9, 3.5726068309330573`*^9}, {3.5726082044218693`*^9, 3.5726082108178806`*^9}, {3.5726129520308228`*^9, 3.5726129692220526`*^9}, {3.5726130228861475`*^9, 3.5726130532750006`*^9}, {3.572624083881504*^9, 3.572624093631521*^9}, { 3.5726247901883445`*^9, 3.572624801233164*^9}, {3.5726249931759005`*^9, 3.572625014937939*^9}, {3.572626882386019*^9, 3.5726268865668263`*^9}, { 3.5726673740642943`*^9, 3.572667386154316*^9}, {3.572707186162225*^9, 3.5727071892978306`*^9}, {3.5727073766385593`*^9, 3.5727073777617617`*^9}, 3.5727091442464643`*^9, 3.572709305488347*^9, {3.5727105300904984`*^9, 3.5727105312605004`*^9}, 3.5727107350904584`*^9, 3.5727108467086544`*^9, 3.572710916331577*^9, {3.5728420867264705`*^9, 3.5728421164913225`*^9}, { 3.572850453192765*^9, 3.5728504884332275`*^9}, {3.5731485879383316`*^9, 3.5731485959879456`*^9}, {3.5731825263710723`*^9, 3.573182535403488*^9}, { 3.5733139065045433`*^9, 3.5733140549856043`*^9}, {3.574655628725462*^9, 3.5746556677099304`*^9}, {3.574782364321311*^9, 3.574782366817315*^9}, { 3.5747823996553726`*^9, 3.5747824011997757`*^9}, {3.574851478943345*^9, 3.574851501984586*^9}}], Cell[CellGroupData[{ Cell[BoxData[ RowBox[{ RowBox[{"(*", RowBox[{"connc", "=", RowBox[{"Join", "[", RowBox[{ RowBox[{"Table", "[", RowBox[{ RowBox[{"Take", "[", RowBox[{ RowBox[{"conn", "[", RowBox[{"[", RowBox[{"conj", "[", RowBox[{"[", "i", "]"}], "]"}], "]"}], "]"}], ",", "3"}], "]"}], ",", RowBox[{"{", RowBox[{"i", ",", "1", ",", "nj"}], "}"}]}], "]"}], ",", RowBox[{"Table", "[", RowBox[{ RowBox[{"Drop", "[", RowBox[{ RowBox[{"coco", "[", RowBox[{"[", "i", "]"}], "]"}], ",", RowBox[{"{", RowBox[{"1", ",", "1"}], "}"}]}], "]"}], ",", RowBox[{"{", RowBox[{"i", ",", "1", ",", "oj"}], "}"}]}], "]"}], ",", RowBox[{"Table", "[", RowBox[{ RowBox[{"Drop", "[", RowBox[{ RowBox[{"coco", "[", RowBox[{"[", "i", "]"}], "]"}], ",", RowBox[{"{", RowBox[{"2", ",", "2"}], "}"}]}], "]"}], ",", RowBox[{"{", RowBox[{"i", ",", "1", ",", "oj"}], "}"}]}], "]"}]}], "]"}]}], "*)"}], "\[IndentingNewLine]", RowBox[{ RowBox[{ RowBox[{"connc", "=", RowBox[{"{", RowBox[{ RowBox[{"{", RowBox[{"8", ",", "4", ",", "9"}], "}"}], ",", RowBox[{"{", RowBox[{"3", ",", "8", ",", "9"}], "}"}], ",", RowBox[{"{", RowBox[{"1", ",", "2", ",", "5"}], "}"}], ",", RowBox[{"{", RowBox[{"1", ",", "7", ",", "5"}], "}"}], ",", RowBox[{"{", RowBox[{"3", ",", "5", ",", "12"}], "}"}]}], "}"}]}], ";"}], "\[IndentingNewLine]", RowBox[{"cj", "=", RowBox[{"Length", "[", "connc", "]"}]}], "\[IndentingNewLine]", RowBox[{ RowBox[{"tpo", "=", RowBox[{"Table", "[", RowBox[{ RowBox[{"{", RowBox[{"0", ",", "0", ",", "0"}], "}"}], ",", RowBox[{"{", "cj", "}"}]}], "]"}]}], ";"}], "\[IndentingNewLine]", RowBox[{ RowBox[{"tpu", "=", "tpo"}], ";"}], "\[IndentingNewLine]", RowBox[{ RowBox[{"t1", "=", RowBox[{"Table", "[", RowBox[{ RowBox[{"Join", "[", RowBox[{ RowBox[{"t", "[", RowBox[{"[", "i", "]"}], "]"}], ",", RowBox[{"{", "1", "}"}]}], "]"}], ",", RowBox[{"{", RowBox[{"i", ",", "1", ",", "n"}], "}"}]}], "]"}]}], ";"}], " "}]}]], "Input", CellChangeTimes->{{3.574782409030989*^9, 3.5747824335386324`*^9}, { 3.57478246631429*^9, 3.5747824836615205`*^9}, {3.574782729892353*^9, 3.574782734509961*^9}, {3.5747827728236284`*^9, 3.574782822150915*^9}, { 3.574782939494321*^9, 3.574782974048382*^9}, {3.5747830324548845`*^9, 3.574783065448942*^9}, {3.574783361818263*^9, 3.5747833666074715`*^9}, { 3.574783407073942*^9, 3.574783441097602*^9}, {3.574783484762079*^9, 3.5747834849804792`*^9}, 3.574783557801407*^9, {3.5747836107946997`*^9, 3.5747836636631927`*^9}, {3.574783719464491*^9, 3.574783731414112*^9}, { 3.574783780975399*^9, 3.5747838001946325`*^9}, {3.574783898490405*^9, 3.5747839481764927`*^9}, {3.5747840180958157`*^9, 3.5747840270034313`*^9}, {3.574784153800454*^9, 3.5747841712568846`*^9}, { 3.5747854335799017`*^9, 3.5747854339543023`*^9}, 3.5747867930286894`*^9, { 3.5747868591884055`*^9, 3.574786865865217*^9}, 3.574787046575935*^9, { 3.574787368045699*^9, 3.574787376922115*^9}, 3.5747874778074923`*^9, { 3.5747875111447506`*^9, 3.5747875582880335`*^9}, {3.5747875958996997`*^9, 3.574787678221044*^9}, 3.574787726456329*^9, {3.574787774847614*^9, 3.5747877758148155`*^9}, 3.5747879836695805`*^9, {3.574788032310466*^9, 3.574788047239692*^9}, {3.5747881733035135`*^9, 3.574788204831169*^9}, { 3.574828128133003*^9, 3.5748281291938047`*^9}, {3.57482825168522*^9, 3.574828270452053*^9}, 3.574828314724931*^9, {3.5748306212357817`*^9, 3.574830621703783*^9}, {3.5753559894421577`*^9, 3.575356014137001*^9}, { 3.5753561901365104`*^9, 3.575356206251339*^9}, {3.575375584885363*^9, 3.575375598753787*^9}, {3.5753756763015237`*^9, 3.5753756873931427`*^9}, { 3.575562289422053*^9, 3.575562298189268*^9}, {3.5755628657806654`*^9, 3.5755629193667593`*^9}, {3.575563069579423*^9, 3.5755630812326436`*^9}, 3.5755632175768833`*^9, 3.575563562493489*^9, {3.5755643314188395`*^9, 3.575564336426448*^9}, {3.5755649483375225`*^9, 3.575564954156333*^9}, { 3.5755653205385766`*^9, 3.5755653215213785`*^9}, 3.5762940918509645`*^9, { 3.5762951549460316`*^9, 3.5762951818248787`*^9}, 3.576339112105567*^9}], Cell[BoxData["5"], "Output", CellChangeTimes->{3.5763887592244215`*^9}] }, Open ]], Cell[BoxData[ RowBox[{"<<", " ", "C:\\\\Kimb_Mathem\\\\PItransformation.m"}]], "Input", CellChangeTimes->{{3.575816054798004*^9, 3.5758160989148817`*^9}, 3.5758162991256332`*^9}], Cell[CellGroupData[{ Cell[BoxData[ RowBox[{"\[IndentingNewLine]", RowBox[{ RowBox[{"MatrixForm", "[", RowBox[{"Table", "[", RowBox[{ RowBox[{"Join", "[", RowBox[{ RowBox[{"{", "i", "}"}], ",", RowBox[{"{", RowBox[{"u", "[", RowBox[{"[", "i", "]"}], "]"}], "}"}], ",", RowBox[{"t", "[", RowBox[{"[", "i", "]"}], "]"}]}], "]"}], ",", RowBox[{"{", RowBox[{"i", ",", "1", ",", "n"}], "}"}]}], "]"}], "]"}], "\[IndentingNewLine]", 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.572794697520533*^9, 3.5727947043221455`*^9}, { 3.5727948024151173`*^9, 3.572794803507119*^9}, {3.5727948673580313`*^9, 3.572794869838436*^9}, {3.572795260993526*^9, 3.5727952676703377`*^9}, { 3.5727954366342344`*^9, 3.5727954702834935`*^9}, {3.5727973545484033`*^9, 3.5727973657024226`*^9}, {3.572803225319809*^9, 3.572803264553878*^9}, { 3.57280330550395*^9, 3.5728033127111626`*^9}, 3.5728033508376293`*^9, 3.5731486865617046`*^9, {3.5731490505259438`*^9, 3.573149068278775*^9}, { 3.573149110008848*^9, 3.573149243825884*^9}, {3.5731493138232064`*^9, 3.5731493450700617`*^9}, {3.574658310026972*^9, 3.5746585452285843`*^9}, { 3.574659591943223*^9, 3.5746596938582015`*^9}, {3.574664442038542*^9, 3.574664456640167*^9}, {3.5747841177643905`*^9, 3.574784120931196*^9}, { 3.574788295155328*^9, 3.5747883150453625`*^9}, {3.5748281376022196`*^9, 3.5748281378830204`*^9}, {3.5748343592063475`*^9, 3.574834363948756*^9}, { 3.5753654533402643`*^9, 3.575365496287139*^9}, {3.5753657782732344`*^9, 3.575365826196519*^9}, {3.575365998186821*^9, 3.575366010152042*^9}, { 3.5755611386860313`*^9, 3.575561149793251*^9}, {3.575561180306905*^9, 3.5755612310849943`*^9}, {3.575561285248289*^9, 3.575561409393307*^9}, { 3.575561440016161*^9, 3.5755615497935534`*^9}, {3.5755616124120636`*^9, 3.575561635437704*^9}, {3.575561892338955*^9, 3.575561942820644*^9}, { 3.5755620823160887`*^9, 3.5755621030173254`*^9}, 3.57556213981779*^9, { 3.5755625665409393`*^9, 3.575562567820142*^9}, {3.5755634654301186`*^9, 3.575563469205325*^9}, {3.5755638765688405`*^9, 3.575564008295472*^9}, { 3.575564213810233*^9, 3.5755642215946465`*^9}, 3.575564866094178*^9, 3.57556519149515*^9, {3.575816288424014*^9, 3.5758162902024174`*^9}}], Cell[BoxData[ TagBox[ RowBox[{"(", "\[NoBreak]", GridBox[{ {"1", "\<\"C\"\>", RowBox[{"-", "1.3767138399951948`"}], "9.136492442760169`", RowBox[{"-", "0.011319882653069602`"}]}, {"2", "\<\"C\"\>", "0.473882316936199`", "6.971834316791755`", "0.0004138948773504403`"}, {"3", "\<\"C\"\>", "1.4237888928831852`", "2.4662159947976874`", "0.00013321484173245413`"}, {"4", "\<\"C\"\>", "0", "0", "0"}, {"5", "\<\"N\"\>", RowBox[{"-", "0.37512028472777914`"}], "4.570605187795081`", "0.0002255030110518419`"}, {"6", "\<\"N\"\>", "0.03463532179801909`", "11.536269141880382`", RowBox[{"-", "0.06288512934630486`"}]}, {"7", "\<\"O\"\>", "2.727290054608442`", "7.390531260134222`", "0.0002804910126465998`"}, {"8", "\<\"O\"\>", RowBox[{"-", "2.2832742569128253`"}], "0", "0"}, {"9", "\<\"O\"\>", "1.268100398919057`", RowBox[{"-", "2.196638994879232`"}], "0"}, {"10", "\<\"H\"\>", RowBox[{"-", "2.5623900210132162`"}], "9.035084825337556`", "1.6699560186170959`"}, {"11", "\<\"H\"\>", RowBox[{"-", "2.559361148898179`"}], "9.019447040476722`", RowBox[{"-", "1.6935183538918448`"}]}, {"12", "\<\"H\"\>", RowBox[{"-", "2.177290252557225`"}], "4.235570185005809`", "0.000388702763330917`"}, {"13", "\<\"H\"\>", "2.6079918797775323`", "2.5754100297558193`", "1.681870261262245`"}, {"14", "\<\"H\"\>", "2.60807719544219`", "2.575506999780597`", RowBox[{"-", "1.681642477037567`"}]}, {"15", "\<\"H\"\>", "1.2127996638427367`", "11.642049687312937`", "1.4557099657339077`"}, {"16", "\<\"H\"\>", RowBox[{"-", "1.1885065866440119`"}], "13.022373661088087`", RowBox[{"-", "0.02925378145732971`"}]}, {"17", "\<\"H\"\>", "1.089414647789555`", "11.621232035852536`", RowBox[{"-", "1.68930758680601`"}]} }, 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.576388759240021*^9}] }, Open ]], Cell["\<\ (*-------------------------------------------------------------------------*) (* next: O atoms in C=O, two doubly occ LP *)\ \>", "Text", CellChangeTimes->{{3.573213657265206*^9, 3.5732137071540937`*^9}, { 3.57331351711226*^9, 3.5733135247562733`*^9}, 3.5746557964101562`*^9, { 3.5746643799192324`*^9, 3.5746643831328382`*^9}, 3.5746732567499037`*^9, 3.574740785852421*^9, {3.5749559129781585`*^9, 3.574955914444561*^9}}], Cell[BoxData[ RowBox[{ RowBox[{"k", "=", "1"}], ";"}]], "Input", CellChangeTimes->{{3.573211773936298*^9, 3.5732117775243044`*^9}, { 3.573211816539973*^9, 3.573211838910412*^9}, {3.573211886147295*^9, 3.573211954459815*^9}, {3.5732120794628344`*^9, 3.5732121037052774`*^9}, { 3.5732122844003944`*^9, 3.573212301045624*^9}, {3.5732124220394363`*^9, 3.573212444597076*^9}, {3.5732124755943303`*^9, 3.573212478745536*^9}, { 3.5732125394452424`*^9, 3.573212544234451*^9}, {3.5732125998329487`*^9, 3.5732126277257977`*^9}, 3.5732126684106693`*^9, {3.573212699017923*^9, 3.5732129163887043`*^9}, {3.573312183824718*^9, 3.57331218493232*^9}, 3.574657732950758*^9, {3.5746622177086344`*^9, 3.5746622626523137`*^9}, { 3.5746623611664867`*^9, 3.5746624066249666`*^9}, {3.574662510396349*^9, 3.5746625442640085`*^9}, {3.5746628828158026`*^9, 3.5746629097414503`*^9}, 3.574664223185757*^9, {3.5746695839262524`*^9, 3.574669588512661*^9}, { 3.5746696590715847`*^9, 3.574669659258785*^9}, {3.574682369907935*^9, 3.5746823705943365`*^9}, {3.574682413759612*^9, 3.574682423228829*^9}, { 3.574682475629321*^9, 3.57468248066813*^9}, 3.574682520073799*^9, { 3.5747408251956897`*^9, 3.57474083678651*^9}, {3.5747855534349117`*^9, 3.5747855725761456`*^9}, {3.574785769729292*^9, 3.574785777045705*^9}, 3.574786365775139*^9}], Cell[BoxData[{ RowBox[{ RowBox[{ RowBox[{"Clear", "[", "conn", "]"}], ";"}], "\[IndentingNewLine]", RowBox[{"(*", RowBox[{"conn", "=", RowBox[{"Table", "[", RowBox[{ RowBox[{"Drop", "[", RowBox[{ RowBox[{"coco", "[", RowBox[{"[", "i", "]"}], "]"}], ",", RowBox[{"{", RowBox[{"2", ",", "2"}], "}"}]}], "]"}], ",", RowBox[{"{", RowBox[{"i", ",", "1", ",", "oj"}], "}"}]}], "]"}]}], "*)"}]}], "\n", RowBox[{ RowBox[{"conn", "=", RowBox[{"{", RowBox[{ RowBox[{"{", RowBox[{"3", ",", "8", ",", "9"}], "}"}], ",", RowBox[{"{", RowBox[{"3", ",", "7", ",", "6"}], "}"}]}], "}"}]}], ";"}], "\[IndentingNewLine]", RowBox[{ RowBox[{"oj", "=", RowBox[{"Length", "[", "conn", "]"}]}], ";"}]}], "Input", CellChangeTimes->{{3.573211773936298*^9, 3.5732117775243044`*^9}, { 3.573211816539973*^9, 3.573211838910412*^9}, {3.573211886147295*^9, 3.573211954459815*^9}, {3.5732120794628344`*^9, 3.5732121037052774`*^9}, { 3.5732122844003944`*^9, 3.573212301045624*^9}, {3.5732124220394363`*^9, 3.573212444597076*^9}, {3.5732124755943303`*^9, 3.573212478745536*^9}, { 3.5732125394452424`*^9, 3.573212544234451*^9}, {3.5732125998329487`*^9, 3.5732126277257977`*^9}, 3.5732126684106693`*^9, {3.573212699017923*^9, 3.5732129163887043`*^9}, {3.573312183824718*^9, 3.57331218493232*^9}, 3.574657732950758*^9, {3.5746622177086344`*^9, 3.5746622626523137`*^9}, { 3.5746623611664867`*^9, 3.5746624066249666`*^9}, {3.574662510396349*^9, 3.5746625442640085`*^9}, {3.5746628828158026`*^9, 3.5746629097414503`*^9}, 3.574664223185757*^9, {3.5746695839262524`*^9, 3.574669588512661*^9}, { 3.5746696590715847`*^9, 3.574669659258785*^9}, {3.574682369907935*^9, 3.5746823705943365`*^9}, {3.574682413759612*^9, 3.574682423228829*^9}, { 3.574682475629321*^9, 3.57468248066813*^9}, 3.574682520073799*^9, { 3.5747408251956897`*^9, 3.57474083678651*^9}, {3.5747855534349117`*^9, 3.5747855725761456`*^9}, {3.574785769729292*^9, 3.574785777045705*^9}, { 3.574786365775139*^9, 3.574786374511154*^9}, {3.5753558083414397`*^9, 3.5753558395570946`*^9}, {3.575367002641385*^9, 3.575367023202221*^9}, { 3.5753671931957197`*^9, 3.575367224473775*^9}, {3.575367534103119*^9, 3.575367537769125*^9}, {3.57537552033245*^9, 3.5753755271184616`*^9}, 3.5762941710679035`*^9, {3.57629509713233*^9, 3.576295102124339*^9}, { 3.5763386006742687`*^9, 3.5763386140746927`*^9}}], Cell[CellGroupData[{ Cell[BoxData[{ RowBox[{ RowBox[{"rlo", " ", "=", " ", "1.125"}], ";"}], "\[IndentingNewLine]", RowBox[{ RowBox[{"tplo", "=", RowBox[{"Table", "[", RowBox[{ RowBox[{"{", RowBox[{"0", ",", "0", ",", "0"}], "}"}], ",", RowBox[{"{", "oj", "}"}]}], "]"}]}], ";"}], "\[IndentingNewLine]", RowBox[{ RowBox[{"tplu", "=", RowBox[{"Table", "[", RowBox[{ RowBox[{"{", RowBox[{"0", ",", "0", ",", "0"}], "}"}], ",", RowBox[{"{", "oj", "}"}]}], "]"}]}], ";"}], "\[IndentingNewLine]", RowBox[{ RowBox[{"Okk", "=", RowBox[{"{", RowBox[{ RowBox[{"{", RowBox[{"1", ",", "1", ",", "1"}], "}"}], ",", RowBox[{"{", RowBox[{ RowBox[{"-", "1"}], ",", RowBox[{"-", "1"}], ",", "1"}], "}"}]}], "}"}]}], ";"}], "\[IndentingNewLine]", RowBox[{ RowBox[{"Okl", "=", RowBox[{"{", RowBox[{ RowBox[{"{", RowBox[{"1", ",", "1", ",", "1"}], "}"}], ",", RowBox[{"{", RowBox[{ RowBox[{"-", "1"}], ",", RowBox[{"-", "1"}], ",", "1"}], "}"}]}], "}"}]}], ";"}], "\[IndentingNewLine]", RowBox[{"<<", " ", "\"\\"", " ", RowBox[{"(*", RowBox[{"LPOtransformation", ".", "m"}], "*)"}]}]}], "Input", CellChangeTimes->{{3.573211773936298*^9, 3.5732117775243044`*^9}, { 3.573211816539973*^9, 3.573211838910412*^9}, {3.573211886147295*^9, 3.573211954459815*^9}, {3.5732120794628344`*^9, 3.5732121037052774`*^9}, { 3.5732122844003944`*^9, 3.573212301045624*^9}, {3.5732124220394363`*^9, 3.573212444597076*^9}, {3.5732124755943303`*^9, 3.573212478745536*^9}, { 3.5732125394452424`*^9, 3.573212544234451*^9}, {3.5732125998329487`*^9, 3.5732126277257977`*^9}, 3.5732126684106693`*^9, {3.573212699017923*^9, 3.5732129163887043`*^9}, {3.573312183824718*^9, 3.57331218493232*^9}, 3.574657732950758*^9, {3.5746622177086344`*^9, 3.5746622626523137`*^9}, { 3.5746623611664867`*^9, 3.5746624066249666`*^9}, {3.574662510396349*^9, 3.5746625442640085`*^9}, {3.5746628828158026`*^9, 3.5746629097414503`*^9}, 3.574664223185757*^9, {3.5746695839262524`*^9, 3.574669588512661*^9}, { 3.5746696590715847`*^9, 3.574669659258785*^9}, {3.574682369907935*^9, 3.5746823705943365`*^9}, {3.574682413759612*^9, 3.574682423228829*^9}, { 3.574682475629321*^9, 3.57468248066813*^9}, 3.574682520073799*^9, { 3.5747408251956897`*^9, 3.57474083678651*^9}, {3.5747855534349117`*^9, 3.5747855725761456`*^9}, {3.574785769729292*^9, 3.574785777045705*^9}, 3.574786365775139*^9, {3.5753484863633204`*^9, 3.5753485008089457`*^9}, 3.5757146385303354`*^9, {3.575816415969838*^9, 3.575816437934677*^9}, { 3.5762941851547284`*^9, 3.5762941859815297`*^9}, 3.5763386482543526`*^9, { 3.576338932018851*^9, 3.5763389472756777`*^9}, 3.5763389860105457`*^9, { 3.576339036133434*^9, 3.5763390501422586`*^9}, {3.576339313470721*^9, 3.5763393632192087`*^9}, {3.576339401018075*^9, 3.576339405120882*^9}, { 3.57633943825534*^9, 3.5763394406577444`*^9}}], Cell[BoxData[ RowBox[{"{", RowBox[{ Graphics3DBox[{ {RGBColor[1, NCache[ Rational[1, 3], 0.3333333333333333], NCache[ Rational[1, 3], 0.3333333333333333]], Opacity[0.5], SphereBox[{-1.1582587578201309`, -0.5981718899555274, 0}, 1.125]}, {RGBColor[1, NCache[ Rational[1, 3], 0.3333333333333333], NCache[ Rational[1, 3], 0.3333333333333333]], Opacity[0.5], SphereBox[{0.06110370388227701, 1.3021671541595061`, 0}, 1.125]}, {Opacity[0.5], SphereBox[{4.452475552691745, 0, 0}, 0.2572]}, {Opacity[0.5], SphereBox[{0, 0, 0}, 0.1786]}, {Opacity[0.5], SphereBox[{1.7401070038671986`, -3.7959863586426894`, 0}, 0.1786]}, Text3DBox["3", {4.452475552691745, 0, 0}, {1, 0}], Text3DBox["8", {0, 0, 0}, {1, 0}], Text3DBox["9", {1.7401070038671986`, -3.7959863586426894`, 0}, {1, 0}], TubeBox[{{4.452475552691745, 0, 0}, {0, 0, 0}}, 0.02], TubeBox[{{4.452475552691745, 0, 0}, { 1.7401070038671986`, -3.7959863586426894`, 0}}, 0.02], TubeBox[{{0, 0, 0}, {1.7401070038671986`, -3.7959863586426894`, 0}}, 0.02]}, AspectRatio->Automatic, Axes->Automatic, AxesLabel->{ FormBox["xl", TraditionalForm], FormBox["yl", TraditionalForm], FormBox["zl", TraditionalForm]}, Boxed->False, PlotRange->Automatic, SphericalRegion->True, ImageCache->GraphicsData["CompressedBitmap", "\<\ eJzde2d4XNd55huQEmVJlmRZsqxYjmUnsddrex3HsdNs2etkrX2y8ZOsI7GL IggQlQRJsBdZzaGJDswMpqAD7ARBAmIHOwgCIEDUQRv03ntnAWffc++5MwNo QGn32fwJnufDvXNn5p7zvt93vu/9zgV+47nNb/1Gz23+Xp6vvxnsudnP32vr 67/eFMxLi/4IwFla8usQ53aeyl9nYbfbxZv/Hw+blMMiKAPwTNjX3Fz7s/+n j28Uh8XijZccZx6Osz93+ZDL98XP/HuKn2+rZ0Hi4CEuvOY4++y33E38WeX3 E5iZmcHNmzexdOlSxMTEYGJiAk8vDGqfcliC3t5ehISEICgoCOfPn0dtba1y Cy8vL/xI/ehu5fDMnBHefPNNlJaWoqGhwfFafF3cSlz/C/WrO5TD05/6qvho VlYWdu3apXxidHRUTNhDzle8/PDDDxUMP1TvtE3CdJ3v4cOH0drayi+oXxMf 12AultfEqAKLePXf1Fv9nYNW+U3tRyHqWYdnv6G8+aRb3Bzqi3IEMQtxSbz6 gXq/v3fjeI8FfTf3c69Jx7ijTAwljs+78CTeF8Dl0D+TPLkOo936eTdTeNUN r8IrglePecOIa8/Ja+KzYlqC2/9L1M+5ufbyAlwLtET3svSppF4hgh/7/qcc +sQch2rnL7gZ8UU360Yb0UMM8Kobkr+n3vKXbu73jJyi6zX+uA4jZu3Kr7u4 /aqbuP2v6s1+4YD5nOPshcfz9k2XGBVvi1ffVe+25jFxpi3Nb0lM4jPp6ekK Nt5V3mH1PGjiDo+D9rq8m0gx4nNiFEKUd1vhBon4kUi+5wbJd9RvLlUOTzm+ qYWm+GZnZ6dyp8HBwe+78ae8w186+HzdZRbzMfELP3LjnWccCeMV9W4/ch8J ry0AUAzDW//EDcBn3Kyoxw+iBu0X3HIhAGsTF+d/JW8h8InPSFIWO/Asnje8 sK88dvhXHk+fFhXC81pk/MQNpfPzojNDLDTwS/IbruRqKd41Bn/+OVj+7NG+ 5MKySEnzWRbvahh/4Sbsnnocey7R6G51u9D5P+StxbCaU59yfFnNJPjvC2QI UV/5xV+75H/NY9qyc6YZNYvhDRfcWsGYj1vgLCoqwq/luGJM7X0XDtzVIvWa LGEL1t1/mRcw4sbPuSGUptxedS/+9jH5TgBPSkrCb12iQ1wXr77oIGGRmymr CktdFcrwX3fhcz497pLiM47b/4ObQPlcg7/iJkv88QLJRpw76umTjq+0t/ej Mt+Guls29DUO/HxeZpA0L1Di3NV4ObUXPkcu+cJCxUsrEMr5Sw5/ktxTsdm4 E3cTlSk3UGq+hHFO/2dychq50odPOxj0cJy5yD7n+serbmb45QW8KRaghsg1 mb0oEc1jCLeSG9CU1YHe7A60XKhDRVq2XExz/e1OqDy98PQWqv7iyNdfW2A2 eekjKDkxib4LPRi4WIvKi6WONCWK85xVpTD2rEuYfzoAnv8MP2ppQZx/TVI+ f043MgbQkDOG1toZVJdPoLu4Cr0FdZgtrnEkbXF/4QVx39dcYt+piVxcJSah NQjfcrr+WfS0jCOD/ii41ILrRSMoLmjE6Mi48vX+STse9t1Ha2kH7LZu9BfV /q3ELPKDWA/SVSoO2U19OquIXCUCQ8zg2/IOHW2TsFYOIOVQK3qHJp+QE24Z sWN66BFykvJhbx/DTHUt/saNN9QljW8u4HNJtrsc8215bfC+sx/QStDIsB29 OZWY7b2H2Za2n7rJgE/MLwPfkB9y7Rk8xDx/KN8o7XYOpCWN9iE72go70ZRd g7ELeT92E/2L3YeXWm2lx596bJTR2docMq7bMTvcrLzSykNZlx3WnEH05Nrw 4E7FX8jLGg7J9KLHTuPVBTKrnMZfyeGtRf0Ye6h++UvyhoNTnFLvDNpKWmGv bv+BvKxVSMn544d/xSXgXPs1EXCipOfl5UFzYvWg0w1aJmsbtWNmkNEWfxv2 1hFMVtTie2584fHYWbws7yZmMY+AOV2jlhs1kZd5a3Re9n8C1vZHGBVReK0U sz3TmG1slj3KE3PiX8sU7srN867TWqSQoVW7n8lrhYWTjo//sQTXxZhsz2/B vcFZDH6S+x152TX454W+U17NL8jq1BxvLHZMQsyf51p33DDqdMrX5UetXC/W vEF037DhXu7db0n0rtJS84sUpkvcu2eJjA7XyyJxiR9NOGoTuVDBaJzoUV5p rdkQI/RR9zQ6iprwyNqk7YCIXR6pORW3Spe8JIedu4viLLYLze/JOZfFvMQP B9B8ZbU+wL2H95VXfyrJ6BizK366YsmBvWkQYyW1jkTk6rAvfw6Cnpx/Wdsx 0ypN+6TTSX+uxSmdNM447blUhEddU3hQ1yBz0twdksdPwJlMFznO5qVrh4Ou 2RzXvivv1sOI7chtwP2BhywW3a+6z2AvfvYU5gWJMHETLVA0cXIopc3x/vfl 7Wp67ajK60fHFRumrhVqokCsVRGx0hmfWjBLnHjVGWgLRIwnCNTI75lxzumH 8uYj0wzMzkl0FNRjttSmLXRX3r/0WStU2JzgFBMQjMm2Shs/v8U5/l9K53eN 2xXOa4q7YK/vxUBRrVquNEna0T6AzPQ8JIWcwdWUPNRm1zLMnLPUstgLj3WN WgGf+lR4autYUEU3ad45dnqGS7hbefUTOdNqemeSYdp15g4edUzgXo1NMrEE pYW1yu2ydBdwPTIbt6OykRd+AVWpN6VPVJGlbQbLySpvLXFS6n5+2jomSk1M Dj1wMqlKmmfRx7l15tTgQf8D9OSV4KjxnJqrY8tQkliFqrQqVKaVwxp3Hd0F ZZom0Iqk9LZM+E86XTBX0z9uouJHpNTBwUFtoq6C5e+dcboEh3YW4vbHRag6 3o+GUwOoy+yE9WQlGq/muHWvc/Pkyc/h6CWfmp+2BsX9tF3GIwfL5uWGL6Ay r17NW0HlyEqYQXnWBJouTKP+4gisl5phPXteDj03O85vw1xm+oSbt9zVWo8F pi5Wk4gBkQe0qY8/dPKq7NKym7lxsBLJhmpEblCDMS99FNZzo6jLHobtWh+s t5rR29qhzV5jRNx+/hTViHfO/kk3kbDYTcYRe5niXHN/9YBzmj+V37Jyheen d+P06XaU591fJAMi3dyKK8c6cedMJ0ovt6E0twllBbUYGx52+FpkYsGEDAp3 s17sEr/uUpT6hrNOaUVcxC3D/3vSB9W5BbDRGmhNtBZaK62Npj2fyMxj6pwe VF79WMvVRTYUZ48jLaqAxdauVYTuhlEkHKjG0WQbzmXacPkqjVp5ZHTS8Szp cdH0+ZE9MQeZyDfCH/9FufIM3d+Oa0cycOJADDJpF2hXaTm0PNod2l1aCc0D ZfxNXcXPdxO2uu7Vwa1Fo5h++FB5pYn9T8zXUV7wAMfjalDZaNdg5RcOoLhq AKX1A45Halp10Z7uLLQi5kBeQHI4AYs7CsAisNXO7MsOwMcJ5RTtLO0y7aYE XCTBVtCqaLW0Olo9rUEexbU+EqCBbxxzBrVWui8l3sHRVBsKMnpR1mHX9KeY iovMdpbrBUE5ZYwrIVoLoEqmr+BCXCqOcVoC1mnaedoV6ccCWjGtXEKySSjN tFZae0gMOmid8iiudZGiidZ2LbY+ud7qmJMmkHIO1yEjvR4lVybQO2b/E0m+ EAjzdj61jZXHIZznaDU+v4pzUUYHLuGuc25wCVfVSDc10doEjtAYdNN6w+gq Wr+wcPXYE6Zinmpt14YuuevslhwqlGnpzul+vL/3OioKH6KLSlXbEhDx6irT Zex+waUSzVNi35Hxd/b3oQ5AGfPiL18BpCMgHQHpUB+iQ3OoDu20rjAdegWA iBgM0oYjxVIc5W9KNv4e4rXG9/ZjwFqr5QpXaa09X7IVNaD02iQO6QpRWW3/ rpvCqka1VBFf44RDcDB4jzLpk7RPaJc4uRu0vAN6Lhg9I8uA6hAD6kMNnLAB 7WEGdIcb0BdhwGCkHiNReoxF6TAercMkbSo6BtPsA6ZokzwfpVVu3uPIctdq nTP/hpz5WXMOKu7O4nhCA6wt9h+4SZJyIf21cvg6ijMykbLKC4c5e3Vd6Lgu 9MxvBuQeiGVui0XpASOqQoywhRrRFGZEW7gRXRFG9EUaMcjYG4k2YjwmFpO0 aZ0B92j39Xo80OtoMTyPwYyOcfbxfpS9H+pQwscOtePh9LDy6jWJ4EryXRw/ bEPhJ4PoG7Fr2ydi9truiuT+pxJ5R1U1kld54tBqLxz13Yx0zv4Tzjqbs75B yz9gQnGICRWhZtSGmdEQbkZrhAWdkRb0RpkxGG3GSIwZ4zozpvRmzOhNuG8w 4iFtNjYWj2INPOppOhrRGJjxl3mh+USmA0nvPacvviqR3D7WjIxTTSi9OY2e CfvP5876/Md/wKFV63Bk9XocX+2HU++Fcd2ayLuZvJtReMCCstA4VIXFoS48 Ds2RcWiPikd3dDz6Y+IwrIvDmD4Ok4Y4zMTG4X6sBbNGCx4ZzXhkMtGMsJti aQaaDj2796J0pTfylq1zzDrPpbN4SS7oSi7oorPDSA67BWvpI7RP2KV8klN/ HWkr1+LIKm8cW+2L9NUByPLbiYuc7o0DccgLicfd0HhUhCWgJiIBDZEJaI1K QGdMInp1iRjUJ2LUkICJ2ARM0+4bE/DQFI9Zmt0cR7PAbjHTTDRCsMSiaWMw Kt5Zj5KV69B2MlPL8IfirPNK3hJUsuAIEVJHE1kwm3ZNZD9mag92qqIcjbK4 ad8TVl/UjLJbMzhiLEFlnf0fVbBq//JNlJ08jcMc+OgqH/rJHxmrN+DM6iBk ++5hfk1AQWgiSsISURmRBFtkEpqik9AWk4RuXRL69UkYNiRhPDYJU8Yk3DMl 4aE5CbPmRDyyJMIel0Aj8DgCjyfweDOaN++A1dMf1nd9CNoLeSvflTXtZQy7 9C/CBFqRcU7IenZOpskbskwXytxfJvN/JS1xTQTyzrQhOywf5e12vOkK9ytI Wb4GRxgmx1b5EW4gTq/eiHOrN+HKO1twy/89FH5gQFlEMqqiklEfnYKWmBR0 6FPQa0jBYGwKRowpmDClYMacggeWFMxakvEoLpkI4pPYJ9gTiDqBqBPi0caM U+W1EdZ1gbCu9SVib5S8s9ZRwUu65D4A/eWh4PySkluzpAITfr3lpnKf8LEg JfQqLu+5hArzSaXaNYoKzhgY571+7Yr4JRxcsRZHV/oQcQCOr9qAzFWbcGH1 Flx7Jxi3392GwrXbUbYrDNX/bkJDTCpa9WnoNKShLzYNQ8Y0jJnSMGlOwz1L Gh7GpXrgUXyqqOUJKbAnCkvGdLQejb7BsPlsRvX6IFi9NhA1fey53vUB0IkL D2C9dlmCfU5xqwB7UYLNlVLzVPB+ZAZlIE13G9dDclCacNIhUShPPNAdIsqe UCqttGliVh/Nykfsf41upszDK7xwbKUvcQfixKogZK3ajIurg3F9zVbkEfNd zx2o8NqJGu9daFi/C23vRaIrxIJ+0yEMmw9h3HIIU3GHcD/+IGZp9gRaIrn4 fQTGPw5Hp/92tPltQ5PfVtQRfPX6TbB6091eAQpmq6cXuk6fVs5Px2UgO7MQ R7YbHMF8Xors40Sb9V42DJtP4KopX9GVQpi1hKiIu6SAEcJlIFwI8MFwAV+c CxEzaK3FP86FX5Z+GkeWM8hX+JOCDTixchOy6PJL72zFDbo8b+0O3F23ExWE Xktr9NmNNp896OKa7/PbgwG/vRjy34sR2mjAHozRRmhDAbvRH7ALPQE7CX8n 2khBEymo8wtGDX1v9aHvvTeo8Nd5oyczUzk/sfswrqbcQe5Hh3B+txGHgqNx KvwWzHsv4mJawRy500C500Kp00Gp0x2uo3rQUeroFKkzqsid8ShF9PB3DdXC EOH/gyv8b6I8PZPw1xN+AOFvxMmVm/HJqi3IXrON8Lcjn54vpuetAv763YS/ B22E3k3YfYQ8SBsKIHzaaOBejAWKI4ei9QfuRk/gLnSSgraAHWgiBfWMgBrf Laj0YQT4MPTX+8s/hngZxqCjyN5fgGumWhTEFeHS/hs4cbQA11nEbyvCyeAi nGLRHBaL9vBYdFM09UcaMBRlIFQDRZOe8kNHwaQTm0YxgoJJ/r71lvonHL9y peANlYJlXPTLA0lDkEoBg1+hgN7Pp/eLvXaRgt2kYA+afPainfBVCvZhIGAf hmkjgfsIfR8pEOekZYOgYA8p2I1O0tBGGhQK/LehhlFQSX1i9d2ogC9euRpZ v/qVcp4dXYHy1BpUHLbiVuolqncDc5tQX0Y2WkZUUr/YQk1UXya0RZjQFWlC X5QJQ9EmjMYYMUGb0sVSu8RSbRmouvTULzpaDB7Q7jLaKz8ImcPCL7gOsuax sIUsbCUL211Y2E2H7UEtGWjy3cslvQ/dZKAvQGVhKNCFhQ083yBY2Iv+DS4s BJIFBkMdWagmC1Y/suAXpCC/+eb/ROb/+hfl/HjYTdxIykXusVvITjnNIDCx jpnYW5tRHmJGTZgF9eEWtFC9dVC99URbMBBjwYjOQvVmwTTV2z2DGQ9iTXgY K9SbkXqICs6ox/iBP6Cche3u8nUYqaqRf4ciqXgOpSeycHgps+EyUrF8E1OC SsUlSUXeul0KFRWSiqGPojD6UZQHxj+KZl0a4+9R2siH0RiiDe/Yj2GyMagw sRc9ZKOTbLSSDYWJgO2o9t8Kqz+Z8A9C8RpPuSReU2SVeUcyjkafQHpsOiu6 mUrDwjoXhxIqQisVoS08Ho2RrKEORRiPIV08FWE8FWE87lERPjDGKYrQbqIq NFFSmSmpzFTwGzkuVWc5Vb/t4wNziPgluiprcOhtErGURCxTichkXrzIxHB9 7U5UbvkQXR+EK3VNqW+izrHiiar3IC4N0yyD4yyHwyyL/SyRXSyVomQ2xKSh 5XeRaNv2e3RsUJloJBM2MlEVwBkFbKEFIeeffoMrb7yBU//8r2TCnwKTIuS9 CJYDC8tBHHIpMAtDE1BGgVlNgVkfmYjmqER0UGD2UGAOUGCOGBIpMBMxY0zE A5MQmAl4ZKbOsgij1rJY0LyJCW5tAKxrqDze8UbZak+MVlX/0lUcPI20t3xx 5G0nE6cZEhcYEqKRFBpG1TKJqrz5sVA6iuK5R/UzRRU0RjU0RFXUR3XUqVfV Uh1VU1VkMkqpoko/jkVt8EdoCCQRgSQikEQEblaIuPLLXyH7jV/g+FurSUQg TlKJZVGJXWQ9vE7hmUfheTcsCRUUnjUUng3RyWiNSUaXLhl9+mSOm8zxkzkP zoemCE9LEucohGcipgihdQsl2DoWJU9m5bWq6LSuWYfuU6cxhwnmiuNncfit QBxdFsSisQU3ud7t8SZFsyraVWhYoWUtCYq2FRr3gYk+oOadoPYdoQYeoB7u oS5uj1F1stDL1ohEFFM/54ckULcmoHDPAdRs2I7KDSoV+UtXKFScIxXHVrFe U3+fpP4+Q7mSTYl2w+93yN8WimLSaY1MgY30NlGmtetT0W1IZQymYtiYinFT KqbNqaoojUthvFKkRsZi+MMQNK6nNvPeQjXKArWOEsWTitTTj5QIRbpmPhVd VhvS/i0QR5aSihVbuKj0Sp+i9ismtX8RfQz7mVlTHB4auSBpU+x3xtj7DOkT 0KdLQFeM2huJHkn0SuVh8ShieOcyzK8x3EXIX/owilQwZW4gFctWIJtUZPzm LUW1HVu1ERlUq2dZuy8zMG+yeBVwmZawfldu/Ai2PRFo+oMZHVyCPbEHMWg8 iFHTQUxaDmJGLNMPIjDxYQRlzQ60++xAq8921vptsJGOKtJh9XaRqut8UL72 3bmt4BtI+t8BOPRWECp2fgC7kWvCpJcdp+g8SYfRpHSkD2PNSoc6bWCmZtc6 wu51gF1sT3QcOqLY3UaoXa7odkspMu8Qeg7z3mVm/zOsf+mshdf2fEwaNiFv 6XKcIw1Hf7tGUW/HVgaRhi1sU4LZpmxDDim4w5RdyupVybRdx7TdxDreSinT TiXXReum9fruRh+tXxz9dqHbdxc6fHeilXQ0koo6n60UraRh/WZVuHozW3j5 omKd5xwWREDUIeW3QUSnVluxS/BIMbFrYGAVjuX1WNzTG1mjTJjQiaptUnYe xA5EZ6TYkVB3JmpCzagIETVP1D4jl7qRDUAsMqkIjlMQidagfAPzJFk4+c8M hJWqiBMa9pTCwlZcZYa69e4O3PHcSRZ2Ma53o44MNLN4tVLMdUgt20PrpZ7t V0ywQGZoHWSjlU19oy9Z8GXN9glWWRC9y3oh4Lg2vLwwWlMtn1nI7aTFOLdP p2xUTemULZ9Fyt7Pi7in0/GlHlMxlGq00ehYSrdY9HEFdkXEKjtKYmfJRolX SbQltAIizqFdJuqzVL4ZB2LUzuhPUUwCLr29DEeXU7ysUMXLCUq4U6uCcX71 NpUAFqs7nrtIwG6FgHrvPSSAAobVu4NCpovWQznXS+unDfhT3NO6/UmAvyCA BcqPpZokVPsyGVHBWn2lgvXhivD2RkfmKY2Av5EE3Nz0PoapvcejlV07D2Ub 70VlA2+CJjb4RmiDkUK66ynh9WgP06M5VI+6ED0bWD3bdT1bdx3zgI55QKc0 u5lqm68RcDtwI3L2h1Oq+KrqbTkJWLEZp1dtxfl3BAE7nAQQfBXB1xO80LFt PvtIwD50Ucn1CCVH61dMlffdJKGDJLT6CwJ2wubHwsQuxupQblwLviRgvbdr BKgEvKK0m51h6h6saEpGZGMijsNyX1b0amKftktsMrN/aw5RnxlUyzb+rtzA uCG3cD6R26qLFPjfwnBdHSooXo8ucyq248zEpwj/3DvbcfVdAX8X7tD3pV6s cd57UafA38flvY9SnrA/iFKEbK8Us33sZnoJvytAhd8i4PsL+DtQReFq9Q+W co3w/QJQ4eMt04D2J3lTRN7q7EgXKXvqz6MnVL2kPTVokrvw1XJX5q7c1L4p d2/Oyk3v48rTJNXfN6nlxCDllKlHNZlKTSLKT4YEfeXdnciRoLvfj0AvbTYu FfctqZhi5RtjBRxiJexjRexkdWzRpaKOlbJuvwl1eyPQEPwxWti9NhB0rT9B BxB0AEEHCEFC0P4BKPf11krA30nUE0QtHpa0iIcKIkLbefJFcepAqz0OqpR7 UfMRn5PPLVT3/pmy46PtcQk9eljTo0tVN58k4jNEfJmIW34XSv0hJA2ljUXs rwn5lYxJSp5RSqBBQzJ6KIfaKYuaKJFsUdQJlEzF4UmKhMr/wIDC3SGopRat DCTiwGApwQRif9RHhEnAP5MbRv25BY4nKfXyaJNPVyqlT0vk7tttlyB29avA KR6wEelibVf133xwVJGaqqpIJ0jbvv0EZpGiNZ4iNoHCKgH3KaymKW7HKXKH KXb7KXq7KYDbohPRSDFcQ1FVHp6AIgrl3APxFM7xVBNxVBPRKAx+j2VUgmQa qQjwR9fZMxKk+qccL6BHPMXlBMuky0qk2+5IUMJ1V+RGXJbcghSgxJZkr/ZI 7BtO1fg2QS3fgt6QcKUHUXsRs+xNLEqvInaxRe8yyh5mkL1ML3uaTvY2Lexz 6iPiqQ3iUcr+5w6BiH5I9EVnaRmslMdEvdi6R9EH1sANKCUo2dioPe9TaJfP oVvks+lGuU1cQ6vKLVD/LvRPkPpbCjsqmqtUA3ajjkZFo/SQop80Kb2l6DHF kwLRcw6z/+xnH9odZUEbe9JG9qe17FOtrOPFnF0+7QZneIl1PIuzPMGKdowJ /gx1p5htOV3Qde6cnOzbyuFVlB47hzQqio7fhyg9/CxN7ef1Sn8v+nzR74/H qE9fBqJM6Ik0oSPChJZwE+rDTKgOMdJ1RsahUXmSc5V2nqOf4ujHWVbU3LII +VvZ2pKzYVutxtlSmcsT/3UDh4jBtFrNWcZjlL0VscsidlvGotXHVoORBvRG GNAZbkBrmAENoQbUhBi4FAyMGoPyCOwGTTwSm5vLF+HSnvfRdu6cMuKc4Reh s6IOuZs+4BDavhY77Si1nAzRBiJEGVEf+7WF6tAYouNK1HEV6lBKu0O7JQNV yzEnXIaujNY58owcepncap9pa0d3mLqjKCqWaPgG5Q5jn3w82hmqbrA2ygRQ JddKodyrvSb3brPmDSsWvjas3JFZLhFPyxIibu2hPJt9Dl3yqbPIqM1y89M1 mxa5FMtLzmLpbjS5EbhCjjYpU3eTUmnEvZ9VzhskIK1CuctmZ9Rs5m4Uudu6 Sm6tiD8CaOHbVZIiLUeWypQi9u9vudAl5p+uSZ1FWppUbia37teoD4y7lMc5 BXJiOfIW2dLZYg/5xpEMD5GS/kn93n/E/3r/pz3gj/4PwKqeGw==\ \>"]], ",", Graphics3DBox[{ {RGBColor[1, NCache[ Rational[1, 3], 0.3333333333333333], NCache[ Rational[1, 3], 0.3333333333333333]], Opacity[0.5], SphereBox[{1.2962609454581995`, -0.1381322600981217, 0}, 1.125]}, {RGBColor[1, NCache[ Rational[1, 3], 0.3333333333333333], NCache[ Rational[1, 3], 0.3333333333333333]], Opacity[0.5], SphereBox[{-0.7677616788167402, -1.0535250184691871`, 0}, 1.125]}, {Opacity[0.5], SphereBox[{-5.093917562420479, 0, 0}, 0.2572]}, {Opacity[0.5], SphereBox[{0, 0, 0}, 0.1786]}, {Opacity[0.5], SphereBox[{3.3186702091032076`, 3.6644167384561643`, 0}, 0.22522]}, Text3DBox["3", {-5.093917562420479, 0, 0}, {1, 0}], Text3DBox["7", {0, 0, 0}, {1, 0}], Text3DBox["6", {3.3186702091032076`, 3.6644167384561643`, 0}, {1, 0}], TubeBox[{{-5.093917562420479, 0, 0}, {0, 0, 0}}, 0.02], TubeBox[{{-5.093917562420479, 0, 0}, { 3.3186702091032076`, 3.6644167384561643`, 0}}, 0.02], TubeBox[{{0, 0, 0}, {3.3186702091032076`, 3.6644167384561643`, 0}}, 0.02]}, AspectRatio->Automatic, Axes->Automatic, AxesLabel->{ FormBox["xl", TraditionalForm], FormBox["yl", TraditionalForm], FormBox["zl", TraditionalForm]}, Boxed->False, PlotRange->Automatic, SphericalRegion->True]}], "}"}]], "Output", CellChangeTimes->{3.576388759271221*^9}] }, Open ]], Cell["\<\ (*-------------------------------------------------------------------------*) (* next: O atoms in X-C-O- three doubly occ LP\[CloseCurlyQuote], ~ \ tetraedric *)\ \>", "Text", CellChangeTimes->{{3.572794697520533*^9, 3.5727947043221455`*^9}, { 3.5727948024151173`*^9, 3.572794803507119*^9}, {3.5727948673580313`*^9, 3.572794869838436*^9}, {3.572795260993526*^9, 3.5727952676703377`*^9}, { 3.5727954366342344`*^9, 3.5727954702834935`*^9}, {3.5727973545484033`*^9, 3.5727973657024226`*^9}, {3.572803225319809*^9, 3.572803264553878*^9}, { 3.57280330550395*^9, 3.5728033127111626`*^9}, 3.5728033508376293`*^9, { 3.572803528365941*^9, 3.5728035301443443`*^9}, {3.572803715051469*^9, 3.572803769604765*^9}, {3.572840261866465*^9, 3.5728402628648667`*^9}, { 3.5728405648813972`*^9, 3.572840578905822*^9}, {3.5728406372187243`*^9, 3.572840716170463*^9}, {3.5728407476825185`*^9, 3.572840785746585*^9}, { 3.5728408298790627`*^9, 3.5728408871311636`*^9}, {3.5728409363336496`*^9, 3.572841070790286*^9}, {3.572841415987692*^9, 3.572841609740032*^9}, 3.5728416910629754`*^9, {3.5728417502806797`*^9, 3.572841879885707*^9}, { 3.572841914564568*^9, 3.5728419300709953`*^9}, {3.572841986199894*^9, 3.572842001659521*^9}, {3.5728426453322515`*^9, 3.5728426487174573`*^9}, { 3.572844776030794*^9, 3.572844786919613*^9}, {3.57284502999924*^9, 3.5728450550060835`*^9}, {3.572845459218394*^9, 3.572845496174859*^9}, { 3.5728455656105804`*^9, 3.572845617574272*^9}, {3.5728456738279705`*^9, 3.572845681440784*^9}, {3.5728457322656736`*^9, 3.572845755291314*^9}, 3.572845978356106*^9, {3.572846145151599*^9, 3.572846189096876*^9}, { 3.572846392926834*^9, 3.5728464086828613`*^9}, 3.572846518881455*^9, 3.5728469699562473`*^9, {3.5728470834620466`*^9, 3.572847089873658*^9}, { 3.572847132180932*^9, 3.5728472650151653`*^9}, 3.5728473515485177`*^9, { 3.572849422046554*^9, 3.572849426554962*^9}, {3.572849678776205*^9, 3.572849686077018*^9}, {3.5728503673146143`*^9, 3.5728503811830387`*^9}, { 3.5728505998798227`*^9, 3.572850604637831*^9}, 3.5730459405924234`*^9, { 3.5731485633994884`*^9, 3.5731485765503116`*^9}, {3.5731486137719765`*^9, 3.57314870088253*^9}, 3.5746558585762653`*^9, {3.574670156150858*^9, 3.5746701578512607`*^9}, {3.5746701931541224`*^9, 3.5746702231061754`*^9}, {3.574670271856261*^9, 3.574670280545476*^9}, { 3.574670327688759*^9, 3.574670328952361*^9}, {3.5746703662988267`*^9, 3.574670379184449*^9}, {3.5746706373025026`*^9, 3.574670676068571*^9}, { 3.574740867627764*^9, 3.574740880248186*^9}, {3.5749502553646355`*^9, 3.574950272103464*^9}, {3.576339630556878*^9, 3.5763396737533536`*^9}}], Cell[CellGroupData[{ Cell[BoxData[{ StyleBox[ RowBox[{ RowBox[{"Clear", "[", RowBox[{"conn", ",", "Okk", ",", "Okl", ",", "Okm"}], "]"}], ";"}], "Input"], "\n", StyleBox[ RowBox[{ RowBox[{"conn", "=", RowBox[{"{", RowBox[{"{", RowBox[{"4", ",", "9", ",", "3"}], "}"}], "}"}]}], ";"}], "Input"], "\n", StyleBox[ RowBox[{"tj", "=", RowBox[{"Length", "[", "conn", "]"}]}], "Input"], "\n", StyleBox[ RowBox[{ RowBox[{"tplk", "=", RowBox[{"Table", "[", RowBox[{ RowBox[{"{", RowBox[{"0", ",", "0", ",", "0"}], "}"}], ",", RowBox[{"{", "tj", "}"}]}], "]"}]}], ";"}], "Input"], "\n", StyleBox[ RowBox[{ RowBox[{"tpll", " ", "=", " ", "tplk"}], ";"}], "Input"], "\n", StyleBox[ RowBox[{ RowBox[{"tplm", " ", "=", " ", "tplk"}], ";"}], "Input"], "\n", StyleBox[ RowBox[{ RowBox[{"Okk", "=", RowBox[{"{", RowBox[{"{", RowBox[{"1", ",", "1", ",", "1"}], "}"}], "}"}]}], ";"}], "Input"], "\n", StyleBox[ RowBox[{ RowBox[{"Okl", "=", RowBox[{"{", RowBox[{"{", RowBox[{"1", ",", "1", ",", "1"}], "}"}], "}"}]}], ";"}], "Input"], "\n", StyleBox[ RowBox[{ RowBox[{"Okm", "=", RowBox[{"{", RowBox[{"{", RowBox[{"1", ",", "1", ",", "1"}], "}"}], "}"}]}], ";"}], "Input"], "\n", StyleBox[ RowBox[{ RowBox[{"k", "=", "1"}], ";"}], "Input"], "\n", StyleBox[ RowBox[{ RowBox[{ RowBox[{"Plota", "=", " ", RowBox[{"Table", "[", RowBox[{ RowBox[{"{", "0", "}"}], ",", " ", RowBox[{"{", RowBox[{"i", ",", " ", "1", ",", " ", "tj"}], "}"}]}], "]"}]}], ";"}], " "}], "Input"], "\n", StyleBox[ RowBox[{ RowBox[{"Plotc", "=", " ", "Plota"}], ";"}], "Input"], "\n", StyleBox[ RowBox[{ RowBox[{ RowBox[{"Plotd", " ", "=", "Plota"}], ";"}], " "}], "Input"], "\n", StyleBox[ RowBox[{ RowBox[{"Plote", "=", " ", "Plota"}], ";"}], "Input"], "\n", StyleBox[ RowBox[{ RowBox[{"Plotf", "=", " ", "Plota"}], ";"}], "Input"], "\n", StyleBox[ RowBox[{ RowBox[{"Plotb0", " ", "=", "Plota"}], ";"}], "Input"]}], "Input", CellChangeTimes->{{3.572794697520533*^9, 3.5727947043221455`*^9}, { 3.5727948024151173`*^9, 3.572794803507119*^9}, {3.5727948673580313`*^9, 3.572794869838436*^9}, {3.572795260993526*^9, 3.5727952676703377`*^9}, { 3.5727954366342344`*^9, 3.5727954702834935`*^9}, {3.5727973545484033`*^9, 3.5727973657024226`*^9}, {3.572803225319809*^9, 3.572803264553878*^9}, { 3.57280330550395*^9, 3.5728033127111626`*^9}, 3.5728033508376293`*^9, { 3.572803528365941*^9, 3.5728035301443443`*^9}, {3.572803715051469*^9, 3.572803769604765*^9}, {3.572840261866465*^9, 3.5728402628648667`*^9}, { 3.5728405648813972`*^9, 3.572840578905822*^9}, {3.5728406372187243`*^9, 3.572840716170463*^9}, {3.5728407476825185`*^9, 3.572840785746585*^9}, { 3.5728408298790627`*^9, 3.5728408871311636`*^9}, {3.5728409363336496`*^9, 3.572841070790286*^9}, {3.572841415987692*^9, 3.572841609740032*^9}, 3.5728416910629754`*^9, {3.5728417502806797`*^9, 3.572841879885707*^9}, { 3.572841914564568*^9, 3.5728419300709953`*^9}, {3.572841986199894*^9, 3.572842001659521*^9}, {3.5728426453322515`*^9, 3.5728426487174573`*^9}, { 3.572844776030794*^9, 3.572844786919613*^9}, {3.57284502999924*^9, 3.5728450550060835`*^9}, {3.572845459218394*^9, 3.572845496174859*^9}, { 3.5728455656105804`*^9, 3.572845617574272*^9}, {3.5728456738279705`*^9, 3.572845681440784*^9}, {3.5728457322656736`*^9, 3.572845755291314*^9}, 3.572845978356106*^9, {3.572846145151599*^9, 3.572846189096876*^9}, { 3.572846392926834*^9, 3.5728464086828613`*^9}, 3.572846518881455*^9, 3.5728469699562473`*^9, {3.5728470834620466`*^9, 3.572847089873658*^9}, { 3.572847132180932*^9, 3.5728472650151653`*^9}, 3.5728473515485177`*^9, { 3.572849422046554*^9, 3.572849426554962*^9}, {3.572849678776205*^9, 3.572849686077018*^9}, {3.5728503673146143`*^9, 3.5728503811830387`*^9}, { 3.5728505998798227`*^9, 3.572850604637831*^9}, 3.5730459405924234`*^9, { 3.5731485633994884`*^9, 3.5731485765503116`*^9}, {3.5731486137719765`*^9, 3.57314870088253*^9}, 3.5746558585762653`*^9, {3.574670156150858*^9, 3.5746701578512607`*^9}, {3.5746701931541224`*^9, 3.5746702231061754`*^9}, {3.574670271856261*^9, 3.574670280545476*^9}, { 3.574670327688759*^9, 3.574670328952361*^9}, {3.5746703662988267`*^9, 3.574670379184449*^9}, {3.5746706373025026`*^9, 3.574670676068571*^9}, { 3.574740867627764*^9, 3.574740880248186*^9}, {3.5749502553646355`*^9, 3.574950272103464*^9}, {3.576339630556878*^9, 3.576339709680217*^9}, { 3.576341898894462*^9, 3.576341898894462*^9}, {3.5763809630919313`*^9, 3.5763809694723425`*^9}, {3.5763812169199777`*^9, 3.5763812213347855`*^9}, {3.5763812778068843`*^9, 3.5763812829236937`*^9}, 3.5763815467201567`*^9}], Cell[BoxData["1"], "Output", CellChangeTimes->{3.5763887592868214`*^9}] }, Open ]], Cell[BoxData[ RowBox[{ RowBox[{ StyleBox["Do", "Input"], StyleBox["[", "Input"], RowBox[{ RowBox[{ StyleBox["(", "Input"], RowBox[{ StyleBox[ RowBox[{"c", " ", "=", " ", RowBox[{"conn", "[", RowBox[{"[", "k", "]"}], "]"}]}], "Input"], StyleBox[";", "Input"], StyleBox[" ", "Input"], StyleBox["\n", "Input"], StyleBox[ RowBox[{"a1", " ", "=", " ", RowBox[{"dc", "[", RowBox[{"[", RowBox[{ RowBox[{"c", "[", RowBox[{"[", "2", "]"}], "]"}], ",", RowBox[{"c", "[", RowBox[{"[", "1", "]"}], "]"}]}], "]"}], "]"}]}], "Input"], StyleBox[";", "Input"], StyleBox[" ", "Input"], StyleBox[ RowBox[{"a2", " ", "=", " ", RowBox[{"dc", "[", RowBox[{"[", RowBox[{ RowBox[{"c", "[", RowBox[{"[", "2", "]"}], "]"}], ",", RowBox[{"c", "[", RowBox[{"[", "3", "]"}], "]"}]}], "]"}], "]"}]}], "Input"], StyleBox[";", "Input"], StyleBox[" ", "Input"], StyleBox[ RowBox[{"d1", " ", "=", " ", RowBox[{"dc", "[", RowBox[{"[", RowBox[{ RowBox[{"c", "[", RowBox[{"[", "1", "]"}], "]"}], ",", RowBox[{"c", "[", RowBox[{"[", "3", "]"}], "]"}]}], "]"}], "]"}]}], "Input"], StyleBox[";", "Input"], StyleBox[" ", "Input"], StyleBox["\n", "Input"], StyleBox[ RowBox[{"\[Alpha]", " ", "=", " ", RowBox[{"ArcCos", "[", RowBox[{ RowBox[{"(", RowBox[{ RowBox[{"a1", "^", "2"}], " ", "+", " ", RowBox[{"a2", "^", "2"}], " ", "-", " ", RowBox[{"d1", "^", "2"}]}], ")"}], "/", RowBox[{"(", RowBox[{"2", "*", "a1", "*", "a2"}], ")"}]}], "]"}]}], "Input"], StyleBox[";", "Input"], StyleBox[" ", "Input"], StyleBox["\n", "Input"], StyleBox[ RowBox[{"L", " ", "=", " ", RowBox[{ RowBox[{"u2", "[", RowBox[{"[", RowBox[{"c", "[", RowBox[{"[", "2", "]"}], "]"}], "]"}], "]"}], " ", "+", " ", "rlo"}]}], "Input"], StyleBox[";", "Input"], StyleBox[" ", "Input"], StyleBox["\n", "Input"], StyleBox[ RowBox[{"(*", RowBox[{ RowBox[{"\[Beta]", " ", "=", " ", RowBox[{"ArcSin", "[", RowBox[{"rlo", "/", "L"}], "]"}]}], ";"}], " ", "*)"}], "Input"], StyleBox["\n", "Input"], StyleBox[ RowBox[{"\[Gamma]", " ", "=", " ", RowBox[{ RowBox[{"\[Pi]", "/", "2"}], " ", "-", " ", RowBox[{"\[Alpha]", "/", "2"}]}]}], "Input"], StyleBox[";", "Input"], StyleBox[" ", "Input"], StyleBox["\n", "Input"], RowBox[{"(*", StyleBox[ RowBox[{ RowBox[{"p", " ", "=", " ", RowBox[{"Table", "[", RowBox[{ RowBox[{"t", "[", RowBox[{"[", RowBox[{"c", "[", RowBox[{"[", "i", "]"}], "]"}], "]"}], "]"}], ",", " ", RowBox[{"{", RowBox[{"i", ",", " ", "1", ",", " ", "P"}], "}"}]}], "]"}]}], ";"}], "Input"], StyleBox[" ", "Input"], "*)"}], StyleBox["\n", "Input"], StyleBox[ RowBox[{"v", " ", "=", " ", RowBox[{"Table", "[", RowBox[{ RowBox[{"Join", "[", RowBox[{ RowBox[{"t", "[", RowBox[{"[", RowBox[{"c", "[", RowBox[{"[", "i", "]"}], "]"}], "]"}], "]"}], ",", " ", RowBox[{"{", "1", "}"}]}], "]"}], ",", " ", RowBox[{"{", RowBox[{"i", ",", " ", "1", ",", " ", "P"}], "}"}]}], "]"}]}], "Input"], StyleBox[";", "Input"], StyleBox[" ", "Input"], StyleBox["\n", "Input"], StyleBox[ RowBox[{"x2", " ", "=", " ", RowBox[{"t", "[", RowBox[{"[", RowBox[{ RowBox[{"c", "[", RowBox[{"[", "2", "]"}], "]"}], ",", "1"}], "]"}], "]"}]}], "Input"], StyleBox[";", "Input"], StyleBox[" ", "Input"], StyleBox["\n", "Input"], StyleBox[ RowBox[{"y2", " ", "=", " ", RowBox[{"t", "[", RowBox[{"[", RowBox[{ RowBox[{"c", "[", RowBox[{"[", "2", "]"}], "]"}], ",", "2"}], "]"}], "]"}]}], "Input"], StyleBox[";", "Input"], StyleBox[" ", "Input"], StyleBox["\n", "Input"], StyleBox[ RowBox[{"z2", " ", "=", " ", RowBox[{"t", "[", RowBox[{"[", RowBox[{ RowBox[{"c", "[", RowBox[{"[", "2", "]"}], "]"}], ",", "3"}], "]"}], "]"}]}], "Input"], StyleBox[";", "Input"], StyleBox[" ", "Input"], StyleBox["\n", "Input"], StyleBox[ RowBox[{"Q", " ", "=", " ", RowBox[{"{", RowBox[{ RowBox[{"{", RowBox[{"1", ",", " ", "0", ",", " ", "0", ",", " ", "0"}], "}"}], ",", " ", RowBox[{"{", RowBox[{"0", ",", " ", "1", ",", " ", "0", ",", " ", "0"}], "}"}], ",", " ", RowBox[{"{", RowBox[{"0", ",", " ", "0", ",", " ", "1", ",", " ", "0"}], "}"}], ",", " ", RowBox[{"{", RowBox[{ RowBox[{"-", "x2"}], ",", " ", RowBox[{"-", "y2"}], ",", " ", RowBox[{"-", "z2"}], ",", " ", "1"}], "}"}]}], "}"}]}], "Input"], StyleBox[";", "Input"], StyleBox[" ", "Input"], StyleBox["\n", "Input"], StyleBox[ RowBox[{"p", " ", "=", " ", RowBox[{"v", ".", "Q"}]}], "Input"], StyleBox[";", "Input"], StyleBox[" ", "Input"], StyleBox["\n", "Input"], StyleBox[ RowBox[{"p", " ", "=", " ", RowBox[{"Table", "[", RowBox[{ RowBox[{"Take", "[", RowBox[{ RowBox[{"p", "[", RowBox[{"[", "i", "]"}], "]"}], ",", " ", "3"}], "]"}], ",", " ", RowBox[{"{", RowBox[{"i", ",", " ", "1", ",", " ", "P"}], "}"}]}], "]"}]}], "Input"], StyleBox[";", "Input"], StyleBox[" ", "Input"], StyleBox["\n", "Input"], StyleBox[ RowBox[{"T1", " ", "=", " ", RowBox[{"ArcTan", "[", RowBox[{ RowBox[{"p", "[", RowBox[{"[", RowBox[{"1", ",", "3"}], "]"}], "]"}], "/", RowBox[{"p", "[", RowBox[{"[", RowBox[{"1", ",", "2"}], "]"}], "]"}]}], "]"}]}], "Input"], StyleBox[";", "Input"], StyleBox[" ", "Input"], StyleBox["\n", "Input"], StyleBox[ RowBox[{"U", " ", "=", " ", "p"}], "Input"], StyleBox[";", "Input"], StyleBox[" ", "Input"], StyleBox["\n", "Input"], StyleBox[ RowBox[{"T", " ", "=", " ", RowBox[{"RotationMatrix", "[", RowBox[{"T1", ",", " ", RowBox[{"{", RowBox[{"1", ",", " ", "0", ",", " ", "0"}], "}"}]}], "]"}]}], "Input"], StyleBox[";", "Input"], StyleBox[" ", "Input"], StyleBox["\n", "Input"], StyleBox[ RowBox[{"p", " ", "=", " ", RowBox[{"U", ".", "T"}]}], "Input"], StyleBox[";", "Input"], StyleBox[" ", "Input"], StyleBox["\n", "Input"], StyleBox[ RowBox[{"T2", " ", "=", " ", RowBox[{"ArcTan", "[", RowBox[{ RowBox[{"p", "[", RowBox[{"[", RowBox[{"1", ",", "2"}], "]"}], "]"}], "/", RowBox[{"p", "[", RowBox[{"[", RowBox[{"1", ",", "1"}], "]"}], "]"}]}], "]"}]}], "Input"], StyleBox[";", "Input"], StyleBox[" ", "Input"], StyleBox["\n", "Input"], StyleBox[ RowBox[{"U", " ", "=", " ", "p"}], "Input"], StyleBox[";", "Input"], StyleBox[" ", "Input"], StyleBox["\n", "Input"], StyleBox[ RowBox[{"T", " ", "=", " ", RowBox[{"RotationMatrix", "[", RowBox[{"T2", ",", " ", RowBox[{"{", RowBox[{"0", ",", " ", "0", ",", " ", "1"}], "}"}]}], "]"}]}], "Input"], StyleBox[";", "Input"], StyleBox[" ", "Input"], StyleBox["\n", "Input"], StyleBox[ RowBox[{"p", " ", "=", " ", RowBox[{"U", ".", "T"}]}], "Input"], StyleBox[";", "Input"], StyleBox[" ", "Input"], StyleBox["\n", "Input"], StyleBox[ RowBox[{"T3", " ", "=", " ", RowBox[{"ArcTan", "[", RowBox[{ RowBox[{"p", "[", RowBox[{"[", RowBox[{"3", ",", "3"}], "]"}], "]"}], "/", RowBox[{"p", "[", RowBox[{"[", RowBox[{"3", ",", "2"}], "]"}], "]"}]}], "]"}]}], "Input"], StyleBox[";", "Input"], StyleBox[" ", "Input"], StyleBox["\n", "Input"], StyleBox[ RowBox[{"U", " ", "=", " ", "p"}], "Input"], StyleBox[";", "Input"], StyleBox[" ", "Input"], StyleBox["\n", "Input"], StyleBox[ RowBox[{"T", " ", "=", " ", RowBox[{"RotationMatrix", "[", RowBox[{"T3", ",", " ", RowBox[{"{", RowBox[{"1", ",", " ", "0", ",", " ", "0"}], "}"}]}], "]"}]}], "Input"], StyleBox[";", "Input"], StyleBox[" ", "Input"], StyleBox["\n", "Input"], StyleBox[ RowBox[{"p", " ", "=", " ", RowBox[{"Chop", "[", RowBox[{"U", ".", "T"}], "]"}]}], "Input"], StyleBox[";", "Input"], StyleBox[" ", "Input"], StyleBox["\n", "Input"], StyleBox[ RowBox[{"nk", " ", "=", " ", RowBox[{"nl", " ", "=", " ", RowBox[{"nm", " ", "=", " ", "p"}]}]}], "Input"], StyleBox[";", "Input"], StyleBox[" ", "Input"], StyleBox["\n", "Input"], RowBox[{ StyleBox[ RowBox[{"nk", "[", RowBox[{"[", RowBox[{"2", ",", "1"}], "]"}], "]"}], "Input"], StyleBox[" ", "Input"], StyleBox["=", "Input"], StyleBox[" ", "Input"], RowBox[{ StyleBox[ RowBox[{"p", "[", RowBox[{"[", RowBox[{"2", ",", "1"}], "]"}], "]"}], "Input"], "+", RowBox[{ StyleBox["L", "Input"], "*", RowBox[{ RowBox[{"Sin", "[", "\[Gamma]", "]"}], "/", "3"}]}]}]}], StyleBox[";", "Input"], StyleBox[" ", "Input"], RowBox[{ StyleBox[ RowBox[{"nk", "[", RowBox[{"[", RowBox[{"2", ",", "2"}], "]"}], "]"}], "Input"], StyleBox[" ", "Input"], StyleBox["=", "Input"], StyleBox[" ", "Input"], RowBox[{ StyleBox[ RowBox[{"p", "[", RowBox[{"[", RowBox[{"2", ",", "2"}], "]"}], "]"}], "Input"], "+", StyleBox[ RowBox[{"0.942809", "*", "L"}], "Input"]}]}], RowBox[{"(*", RowBox[{"*", RowBox[{"Sin", "[", "\[Gamma]", "]"}]}], "*)"}], StyleBox[";", "Input"], StyleBox[" ", "Input"], StyleBox[ RowBox[{ RowBox[{"nk", "[", RowBox[{"[", RowBox[{"2", ",", "3"}], "]"}], "]"}], " ", "=", " ", "0"}], "Input"], StyleBox[";", "Input"], StyleBox[" ", "Input"], StyleBox["\n", "Input"], StyleBox[ RowBox[{ RowBox[{"nl", "[", RowBox[{"[", RowBox[{"2", ",", "1"}], "]"}], "]"}], " ", "=", " ", RowBox[{"nk", "[", RowBox[{"[", RowBox[{"2", ",", "1"}], "]"}], "]"}]}], "Input"], StyleBox[";", "Input"], StyleBox[" ", "Input"], StyleBox[ RowBox[{ RowBox[{"nl", "[", RowBox[{"[", RowBox[{"2", ",", "2"}], "]"}], "]"}], " ", "=", " ", RowBox[{ RowBox[{"p", "[", RowBox[{"[", RowBox[{"2", ",", "2"}], "]"}], "]"}], "-", RowBox[{"0.471405", "*", "L"}]}]}], "Input"], StyleBox[";", "Input"], StyleBox[" ", "Input"], StyleBox[ RowBox[{ RowBox[{"nl", "[", RowBox[{"[", RowBox[{"2", ",", "3"}], "]"}], "]"}], " ", "=", " ", RowBox[{"0.816496", "*", "L"}]}], "Input"], StyleBox[";", "Input"], StyleBox["\n", "Input"], StyleBox[ RowBox[{ RowBox[{"nm", "[", RowBox[{"[", RowBox[{"2", ",", "1"}], "]"}], "]"}], " ", "=", " ", RowBox[{"nk", "[", RowBox[{"[", RowBox[{"2", ",", "1"}], "]"}], "]"}]}], "Input"], StyleBox[";", "Input"], StyleBox[" ", "Input"], StyleBox[ RowBox[{ RowBox[{"nm", "[", RowBox[{"[", RowBox[{"2", ",", "2"}], "]"}], "]"}], " ", "=", " ", RowBox[{"nl", "[", RowBox[{"[", RowBox[{"2", ",", "2"}], "]"}], "]"}]}], "Input"], StyleBox[";", "Input"], StyleBox[" ", "Input"], StyleBox[ RowBox[{ RowBox[{"nm", "[", RowBox[{"[", RowBox[{"2", ",", "3"}], "]"}], "]"}], " ", "=", " ", RowBox[{"-", RowBox[{"nl", "[", RowBox[{"[", RowBox[{"2", ",", "3"}], "]"}], "]"}]}]}], "Input"], StyleBox[";", "Input"], StyleBox["\n", "Input"], StyleBox[ RowBox[{ RowBox[{"nk", "[", RowBox[{"[", "2", "]"}], "]"}], "=", RowBox[{ RowBox[{"Okk", "[", RowBox[{"[", "k", "]"}], "]"}], "*", RowBox[{"nk", "[", RowBox[{"[", "2", "]"}], "]"}]}]}], "Input"], StyleBox[";", "Input"], StyleBox[" ", "Input"], StyleBox[ RowBox[{ RowBox[{"nl", "[", RowBox[{"[", "2", "]"}], "]"}], "=", RowBox[{ RowBox[{"Okl", "[", RowBox[{"[", "k", "]"}], "]"}], "*", RowBox[{"nl", "[", RowBox[{"[", "2", "]"}], "]"}]}]}], "Input"], StyleBox[";", "Input"], StyleBox[" ", "Input"], StyleBox[ RowBox[{ RowBox[{ RowBox[{"nm", "[", RowBox[{"[", "2", "]"}], "]"}], "=", RowBox[{ RowBox[{"Okm", "[", RowBox[{"[", "k", "]"}], "]"}], "*", RowBox[{"nm", "[", RowBox[{"[", "2", "]"}], "]"}]}]}], "\n", RowBox[{ RowBox[{ RowBox[{"Plota", "[", RowBox[{"[", "k", "]"}], "]"}], " ", "=", " ", RowBox[{"Table", "[", RowBox[{ RowBox[{"Graphics3D", "[", RowBox[{"{", RowBox[{ RowBox[{"Opacity", "[", "0.5", "]"}], ",", " ", RowBox[{"Sphere", "[", RowBox[{ RowBox[{"p", "[", RowBox[{"[", "i", "]"}], "]"}], ",", " ", RowBox[{"u2", "[", RowBox[{"[", RowBox[{"c", "[", RowBox[{"[", "i", "]"}], "]"}], "]"}], "]"}]}], "]"}]}], "}"}], "]"}], ",", " ", RowBox[{"{", RowBox[{"i", ",", " ", "1", ",", " ", "P"}], "}"}]}], "]"}]}], ";"}], " ", "\n", RowBox[{ RowBox[{ RowBox[{"Plotc", " ", "[", RowBox[{"[", "k", "]"}], "]"}], " ", "=", " ", RowBox[{"Table", "[", RowBox[{ RowBox[{"Graphics3D", "[", RowBox[{"{", RowBox[{"Tube", "[", RowBox[{ RowBox[{"{", RowBox[{ RowBox[{"p", "[", RowBox[{"[", "i", "]"}], "]"}], ",", " ", RowBox[{"p", "[", RowBox[{"[", "j", "]"}], "]"}]}], "}"}], ",", " ", "0.02"}], "]"}], "}"}], "]"}], ",", " ", RowBox[{"{", RowBox[{"i", ",", " ", "1", ",", " ", RowBox[{"P", " ", "-", " ", "1"}]}], "}"}], ",", " ", RowBox[{"{", RowBox[{"j", ",", " ", RowBox[{"i", " ", "+", " ", "1"}], ",", " ", "P"}], "}"}]}], "]"}]}], ";"}], " ", "\n", RowBox[{ RowBox[{ RowBox[{"Plotd", "[", RowBox[{"[", "k", "]"}], "]"}], " ", "=", " ", RowBox[{"Graphics3D", "[", RowBox[{"{", RowBox[{ RowBox[{"Opacity", "[", "0.5", "]"}], ",", " ", RowBox[{"Lighter", "[", "Red", "]"}], ",", " ", RowBox[{"Sphere", "[", RowBox[{ RowBox[{"nk", "[", RowBox[{"[", "2", "]"}], "]"}], ",", " ", "rlo"}], "]"}]}], "}"}], "]"}]}], ";"}], " ", "\n", RowBox[{ RowBox[{ RowBox[{"Plote", "[", RowBox[{"[", "k", "]"}], "]"}], " ", "=", " ", RowBox[{"Graphics3D", "[", RowBox[{"{", RowBox[{ RowBox[{"Opacity", "[", "0.5", "]"}], ",", " ", RowBox[{"Lighter", "[", "Red", "]"}], ",", " ", RowBox[{"Sphere", "[", RowBox[{ RowBox[{"nl", "[", RowBox[{"[", "2", "]"}], "]"}], ",", " ", "rlo"}], "]"}]}], "}"}], "]"}]}], ";"}], " ", "\n", RowBox[{ RowBox[{ RowBox[{"Plotf", "[", RowBox[{"[", "k", "]"}], "]"}], " ", "=", " ", RowBox[{"Graphics3D", "[", RowBox[{"{", RowBox[{ RowBox[{"Opacity", "[", "0.5", "]"}], ",", " ", RowBox[{"Lighter", "[", "Red", "]"}], ",", " ", RowBox[{"Sphere", "[", RowBox[{ RowBox[{"nm", "[", RowBox[{"[", "2", "]"}], "]"}], ",", " ", "rlo"}], "]"}]}], "}"}], "]"}]}], ";"}], " ", "\n", RowBox[{ RowBox[{"Plotb0", "[", RowBox[{"[", "k", "]"}], "]"}], " ", "=", " ", RowBox[{"Table", "[", RowBox[{ RowBox[{"Graphics3D", "[", RowBox[{"Text", "[", RowBox[{ RowBox[{"c", "[", RowBox[{"[", "i", "]"}], "]"}], ",", " ", RowBox[{"p", "[", RowBox[{"[", "i", "]"}], "]"}], ",", " ", RowBox[{"{", RowBox[{"1", ",", " ", "0"}], "}"}]}], "]"}], "]"}], ",", " ", RowBox[{"{", RowBox[{"i", ",", " ", "1", ",", " ", "P"}], "}"}]}], "]"}]}]}], "Input"], StyleBox[";", "Input"], StyleBox["\n", "Input"], StyleBox[ RowBox[{"U1", " ", "=", " ", "nk"}], "Input"], StyleBox[";", "Input"], StyleBox[" ", "Input"], StyleBox["\n", "Input"], StyleBox[ RowBox[{"U2", " ", "=", " ", "nl"}], "Input"], StyleBox[";", "Input"], StyleBox[" ", "Input"], StyleBox["\n", "Input"], StyleBox[ RowBox[{"U3", " ", "=", " ", "nm"}], "Input"], StyleBox[";", "Input"], StyleBox["\n", "Input"], StyleBox[ RowBox[{"T", " ", "=", " ", RowBox[{"RotationMatrix", "[", RowBox[{ RowBox[{"-", "T3"}], ",", " ", RowBox[{"{", RowBox[{"1", ",", " ", "0", ",", " ", "0"}], "}"}]}], "]"}]}], "Input"], StyleBox[";", "Input"], StyleBox[" ", "Input"], StyleBox["\n", "Input"], StyleBox[ RowBox[{"nk", " ", "=", " ", RowBox[{"U1", ".", "T"}]}], "Input"], StyleBox[";", "Input"], StyleBox[" ", "Input"], StyleBox["\n", "Input"], StyleBox[ RowBox[{"nl", " ", "=", " ", RowBox[{"U2", ".", "T"}]}], "Input"], StyleBox[";", "Input"], StyleBox[" ", "Input"], StyleBox["\n", "Input"], StyleBox[ RowBox[{"nm", " ", "=", " ", RowBox[{"U3", ".", "T"}]}], "Input"], StyleBox[";", "Input"], StyleBox[" ", "Input"], StyleBox["\n", "Input"], StyleBox[ RowBox[{"U1", " ", "=", " ", "nk"}], "Input"], StyleBox[";", "Input"], StyleBox[" ", "Input"], StyleBox["\n", "Input"], StyleBox[ RowBox[{"U2", " ", "=", " ", "nl"}], "Input"], StyleBox[";", "Input"], StyleBox["\n", "Input"], StyleBox[ RowBox[{"U3", " ", "=", " ", "nm"}], "Input"], StyleBox[";", "Input"], StyleBox[" ", "Input"], StyleBox["\n", "Input"], StyleBox[ RowBox[{"T", " ", "=", " ", RowBox[{"RotationMatrix", "[", RowBox[{ RowBox[{"-", "T2"}], ",", " ", RowBox[{"{", RowBox[{"0", ",", " ", "0", ",", " ", "1"}], "}"}]}], "]"}]}], "Input"], StyleBox[";", "Input"], StyleBox[" ", "Input"], StyleBox["\n", "Input"], StyleBox[ RowBox[{"nk", " ", "=", " ", RowBox[{"U1", ".", "T"}]}], "Input"], StyleBox[";", "Input"], StyleBox[" ", "Input"], StyleBox["\n", "Input"], StyleBox[ RowBox[{"nl", " ", "=", " ", RowBox[{"U2", ".", "T"}]}], "Input"], StyleBox[";", "Input"], StyleBox[" ", "Input"], StyleBox["\n", "Input"], StyleBox[ RowBox[{"nm", " ", "=", " ", RowBox[{"U3", ".", "T"}]}], "Input"], StyleBox[";", "Input"], StyleBox[" ", "Input"], StyleBox["\n", "Input"], StyleBox[ RowBox[{"U1", " ", "=", " ", "nk"}], "Input"], StyleBox[";", "Input"], StyleBox[" ", "Input"], StyleBox["\n", "Input"], StyleBox[ RowBox[{"U2", " ", "=", " ", "nl"}], "Input"], StyleBox[";", "Input"], StyleBox["\n", "Input"], StyleBox[ RowBox[{"U3", " ", "=", " ", "nm"}], "Input"], StyleBox[";", "Input"], StyleBox[" ", "Input"], StyleBox["\n", "Input"], StyleBox[ RowBox[{"T", " ", "=", " ", RowBox[{"RotationMatrix", "[", RowBox[{ RowBox[{"-", "T1"}], ",", " ", RowBox[{"{", RowBox[{"1", ",", " ", "0", ",", " ", "0"}], "}"}]}], "]"}]}], "Input"], StyleBox[";", "Input"], StyleBox[" ", "Input"], StyleBox["\n", "Input"], StyleBox[ RowBox[{"nk", " ", "=", " ", RowBox[{"U1", ".", "T"}]}], "Input"], StyleBox[";", "Input"], StyleBox[" ", "Input"], StyleBox["\n", "Input"], StyleBox[ RowBox[{"nl", " ", "=", " ", RowBox[{"U2", ".", "T"}]}], "Input"], StyleBox[";", "Input"], StyleBox[" ", "Input"], StyleBox["\n", "Input"], StyleBox[ RowBox[{"nm", " ", "=", " ", RowBox[{"U3", ".", "T"}]}], "Input"], StyleBox[";", "Input"], StyleBox[" ", "Input"], StyleBox["\n", "Input"], StyleBox[ RowBox[{"v1", " ", "=", " ", RowBox[{"Table", "[", RowBox[{ RowBox[{"Join", "[", RowBox[{ RowBox[{"nk", "[", RowBox[{"[", "i", "]"}], "]"}], ",", " ", RowBox[{"{", "1", "}"}]}], "]"}], ",", " ", RowBox[{"{", RowBox[{"i", ",", " ", "1", ",", " ", "P"}], "}"}]}], "]"}]}], "Input"], StyleBox[";", "Input"], StyleBox[" ", "Input"], StyleBox["\n", "Input"], StyleBox[ RowBox[{"v2", " ", "=", " ", RowBox[{"Table", "[", RowBox[{ RowBox[{"Join", "[", RowBox[{ RowBox[{"nl", "[", RowBox[{"[", "i", "]"}], "]"}], ",", " ", RowBox[{"{", "1", "}"}]}], "]"}], ",", " ", RowBox[{"{", RowBox[{"i", ",", " ", "1", ",", " ", "P"}], "}"}]}], "]"}]}], "Input"], StyleBox[";", "Input"], StyleBox[" ", "Input"], StyleBox["\n", "Input"], StyleBox[ RowBox[{"v3", " ", "=", " ", RowBox[{"Table", "[", RowBox[{ RowBox[{"Join", "[", RowBox[{ RowBox[{"nm", "[", RowBox[{"[", "i", "]"}], "]"}], ",", " ", RowBox[{"{", "1", "}"}]}], "]"}], ",", " ", RowBox[{"{", RowBox[{"i", ",", " ", "1", ",", " ", "P"}], "}"}]}], "]"}]}], "Input"], StyleBox[";", "Input"], StyleBox[" ", "Input"], StyleBox["\n", "Input"], StyleBox[ RowBox[{"Q", " ", "=", " ", RowBox[{"{", RowBox[{ RowBox[{"{", RowBox[{"1", ",", " ", "0", ",", " ", "0", ",", " ", "0"}], "}"}], ",", " ", RowBox[{"{", RowBox[{"0", ",", " ", "1", ",", " ", "0", ",", " ", "0"}], "}"}], ",", " ", RowBox[{"{", RowBox[{"0", ",", " ", "0", ",", " ", "1", ",", " ", "0"}], "}"}], ",", " ", RowBox[{"{", RowBox[{"x2", ",", " ", "y2", ",", " ", "z2", ",", " ", "1"}], "}"}]}], "}"}]}], "Input"], StyleBox[";", "Input"], StyleBox[" ", "Input"], StyleBox["\n", "Input"], StyleBox[ RowBox[{"U1", " ", "=", " ", RowBox[{"v1", ".", "Q"}]}], "Input"], StyleBox[";", "Input"], StyleBox[" ", "Input"], StyleBox["\n", "Input"], StyleBox[ RowBox[{"U2", " ", "=", " ", RowBox[{"v2", ".", "Q"}]}], "Input"], StyleBox[";", "Input"], StyleBox["\n", "Input"], StyleBox[ RowBox[{"U3", " ", "=", " ", RowBox[{"v3", ".", "Q"}]}], "Input"], StyleBox[";", "Input"], StyleBox[" ", "Input"], StyleBox["\n", "Input"], StyleBox[ RowBox[{"nk", " ", "=", " ", RowBox[{"Table", "[", RowBox[{ RowBox[{"Take", "[", RowBox[{ RowBox[{"U1", "[", RowBox[{"[", "i", "]"}], "]"}], ",", " ", "3"}], "]"}], ",", " ", RowBox[{"{", RowBox[{"i", ",", " ", "1", ",", " ", "P"}], "}"}]}], "]"}]}], "Input"], StyleBox[";", "Input"], StyleBox[" ", "Input"], StyleBox["\n", "Input"], StyleBox[ RowBox[{"nl", " ", "=", " ", RowBox[{"Table", "[", RowBox[{ RowBox[{"Take", "[", RowBox[{ RowBox[{"U2", "[", RowBox[{"[", "i", "]"}], "]"}], ",", " ", "3"}], "]"}], ",", " ", RowBox[{"{", RowBox[{"i", ",", " ", "1", ",", " ", "P"}], "}"}]}], "]"}]}], "Input"], StyleBox[";", "Input"], StyleBox[" ", "Input"], StyleBox["\n", "Input"], StyleBox[ RowBox[{"nm", " ", "=", " ", RowBox[{"Table", "[", RowBox[{ RowBox[{"Take", "[", RowBox[{ RowBox[{"U3", "[", RowBox[{"[", "i", "]"}], "]"}], ",", " ", "3"}], "]"}], ",", " ", RowBox[{"{", RowBox[{"i", ",", " ", "1", ",", " ", "P"}], "}"}]}], "]"}]}], "Input"], StyleBox[";", "Input"], StyleBox["\n", "Input"], StyleBox[ RowBox[{ RowBox[{"tplk", "[", RowBox[{"[", "k", "]"}], "]"}], "=", " ", RowBox[{"nk", "[", RowBox[{"[", "2", "]"}], "]"}]}], "Input"], StyleBox[";", "Input"], StyleBox[" ", "Input"], StyleBox["\n", "Input"], StyleBox[ RowBox[{ RowBox[{"tpll", "[", RowBox[{"[", "k", "]"}], "]"}], "=", " ", RowBox[{"nl", "[", RowBox[{"[", "2", "]"}], "]"}]}], "Input"], StyleBox[";", "Input"], StyleBox["\n", "Input"], StyleBox[ RowBox[{ RowBox[{"tplm", "[", RowBox[{"[", "k", "]"}], "]"}], "=", " ", RowBox[{"nm", "[", RowBox[{"[", "2", "]"}], "]"}]}], "Input"]}], StyleBox[")", "Input"]}], StyleBox[",", "Input"], StyleBox[ RowBox[{"{", RowBox[{"k", ",", "tj"}], "}"}], "Input"]}], StyleBox["]", "Input"]}], StyleBox[";", "Input"]}]], "Input", CellChangeTimes->{{3.572794697520533*^9, 3.5727947043221455`*^9}, { 3.5727948024151173`*^9, 3.572794803507119*^9}, {3.5727948673580313`*^9, 3.572794869838436*^9}, {3.572795260993526*^9, 3.5727952676703377`*^9}, { 3.5727954366342344`*^9, 3.5727954702834935`*^9}, {3.5727973545484033`*^9, 3.5727973657024226`*^9}, {3.572803225319809*^9, 3.572803264553878*^9}, { 3.57280330550395*^9, 3.5728033127111626`*^9}, 3.5728033508376293`*^9, { 3.572803528365941*^9, 3.5728035301443443`*^9}, {3.572803715051469*^9, 3.572803769604765*^9}, {3.572840261866465*^9, 3.5728402628648667`*^9}, { 3.5728405648813972`*^9, 3.572840578905822*^9}, {3.5728406372187243`*^9, 3.572840716170463*^9}, {3.5728407476825185`*^9, 3.572840785746585*^9}, { 3.5728408298790627`*^9, 3.5728408871311636`*^9}, {3.5728409363336496`*^9, 3.572841070790286*^9}, {3.572841415987692*^9, 3.572841609740032*^9}, 3.5728416910629754`*^9, {3.5728417502806797`*^9, 3.572841879885707*^9}, { 3.572841914564568*^9, 3.5728419300709953`*^9}, {3.572841986199894*^9, 3.572842001659521*^9}, {3.5728426453322515`*^9, 3.5728426487174573`*^9}, { 3.572844776030794*^9, 3.572844786919613*^9}, {3.57284502999924*^9, 3.5728450550060835`*^9}, {3.572845459218394*^9, 3.572845496174859*^9}, { 3.5728455656105804`*^9, 3.572845617574272*^9}, {3.5728456738279705`*^9, 3.572845681440784*^9}, {3.5728457322656736`*^9, 3.572845755291314*^9}, 3.572845978356106*^9, {3.572846145151599*^9, 3.572846189096876*^9}, { 3.572846392926834*^9, 3.5728464086828613`*^9}, 3.572846518881455*^9, 3.5728469699562473`*^9, {3.5728470834620466`*^9, 3.572847089873658*^9}, { 3.572847132180932*^9, 3.5728472650151653`*^9}, 3.5728473515485177`*^9, { 3.572849422046554*^9, 3.572849426554962*^9}, {3.572849678776205*^9, 3.572849686077018*^9}, {3.5728503673146143`*^9, 3.5728503811830387`*^9}, { 3.5728505998798227`*^9, 3.572850604637831*^9}, 3.5730459405924234`*^9, { 3.5731485633994884`*^9, 3.5731485765503116`*^9}, {3.5731486137719765`*^9, 3.57314870088253*^9}, 3.5746558585762653`*^9, {3.574670156150858*^9, 3.5746701578512607`*^9}, {3.5746701931541224`*^9, 3.5746702231061754`*^9}, {3.574670271856261*^9, 3.574670280545476*^9}, { 3.574670327688759*^9, 3.574670328952361*^9}, {3.5746703662988267`*^9, 3.574670379184449*^9}, {3.5746706373025026`*^9, 3.574670676068571*^9}, { 3.574740867627764*^9, 3.574740880248186*^9}, {3.5749502553646355`*^9, 3.574950272103464*^9}, {3.576339630556878*^9, 3.576339734687061*^9}, { 3.5763398243092184`*^9, 3.576339825838021*^9}, {3.5763416702292604`*^9, 3.57634168703049*^9}, {3.5763417364981766`*^9, 3.576341803905895*^9}, { 3.576341868178008*^9, 3.5763418681936083`*^9}, {3.5763419093152804`*^9, 3.5763419093152804`*^9}, {3.5763424265653887`*^9, 3.5763425069991302`*^9}, {3.576342544470396*^9, 3.576342547465601*^9}, 3.576342648600579*^9, {3.5763426979590654`*^9, 3.5763427031070747`*^9}, { 3.5763427586743717`*^9, 3.5763427588771725`*^9}, {3.576342794289235*^9, 3.5763428317761*^9}, {3.5763429278098693`*^9, 3.5763429405238914`*^9}, { 3.576343331273378*^9, 3.5763433339721823`*^9}, {3.5763796187907705`*^9, 3.5763796306779914`*^9}, {3.5763798021378927`*^9, 3.5763798209047256`*^9}, {3.5763798751148205`*^9, 3.576379887220442*^9}, 3.576380063297951*^9, {3.576380112157237*^9, 3.5763801216888537`*^9}, 3.576380237425457*^9, {3.57638028470914*^9, 3.576380288640347*^9}, 3.5763803228356075`*^9, {3.576380436185406*^9, 3.5763804619254513`*^9}, { 3.576380564105631*^9, 3.5763805738712482`*^9}, 3.576380696939864*^9, { 3.5763811029461775`*^9, 3.576381104069379*^9}, {3.57638115554947*^9, 3.5763811565322714`*^9}, {3.5763813276333723`*^9, 3.5763813312213783`*^9}, 3.5763814037615056`*^9, {3.5763814436663756`*^9, 3.576381444539977*^9}, { 3.57638148027964*^9, 3.5763814804668407`*^9}}], Cell[CellGroupData[{ Cell[BoxData[ RowBox[{"nk", "[", RowBox[{"[", "2", "]"}], "]"}]], "Input", CellChangeTimes->{{3.572794697520533*^9, 3.5727947043221455`*^9}, { 3.5727948024151173`*^9, 3.572794803507119*^9}, {3.5727948673580313`*^9, 3.572794869838436*^9}, {3.572795260993526*^9, 3.5727952676703377`*^9}, { 3.5727954366342344`*^9, 3.5727954702834935`*^9}, {3.5727973545484033`*^9, 3.5727973657024226`*^9}, {3.572803225319809*^9, 3.572803264553878*^9}, { 3.57280330550395*^9, 3.5728033127111626`*^9}, 3.5728033508376293`*^9, { 3.572803528365941*^9, 3.5728035301443443`*^9}, {3.572803715051469*^9, 3.572803769604765*^9}, {3.572840261866465*^9, 3.5728402628648667`*^9}, { 3.5728405648813972`*^9, 3.572840578905822*^9}, {3.5728406372187243`*^9, 3.572840716170463*^9}, {3.5728407476825185`*^9, 3.572840785746585*^9}, { 3.5728408298790627`*^9, 3.5728408871311636`*^9}, {3.5728409363336496`*^9, 3.572841070790286*^9}, {3.572841415987692*^9, 3.572841609740032*^9}, 3.5728416910629754`*^9, {3.5728417502806797`*^9, 3.572841879885707*^9}, { 3.572841914564568*^9, 3.5728419300709953`*^9}, {3.572841986199894*^9, 3.572842001659521*^9}, {3.5728426453322515`*^9, 3.5728426487174573`*^9}, { 3.572844776030794*^9, 3.572844786919613*^9}, {3.57284502999924*^9, 3.5728450550060835`*^9}, {3.572845459218394*^9, 3.572845496174859*^9}, { 3.5728455656105804`*^9, 3.572845617574272*^9}, {3.5728456738279705`*^9, 3.572845681440784*^9}, {3.5728457322656736`*^9, 3.572845755291314*^9}, 3.572845978356106*^9, {3.572846145151599*^9, 3.572846189096876*^9}, { 3.572846392926834*^9, 3.5728464086828613`*^9}, 3.572846518881455*^9, 3.5728469699562473`*^9, {3.5728470834620466`*^9, 3.572847089873658*^9}, { 3.572847132180932*^9, 3.5728472650151653`*^9}, 3.5728473515485177`*^9, { 3.572849422046554*^9, 3.572849426554962*^9}, {3.572849678776205*^9, 3.572849686077018*^9}, {3.5728503673146143`*^9, 3.5728503811830387`*^9}, { 3.5728505998798227`*^9, 3.572850604637831*^9}, 3.5730459405924234`*^9, { 3.5731485633994884`*^9, 3.5731485765503116`*^9}, {3.5731486137719765`*^9, 3.57314870088253*^9}, 3.5746558585762653`*^9, {3.574670156150858*^9, 3.5746701578512607`*^9}, {3.5746701931541224`*^9, 3.5746702231061754`*^9}, {3.574670271856261*^9, 3.574670280545476*^9}, { 3.574670327688759*^9, 3.574670328952361*^9}, {3.5746703662988267`*^9, 3.574670379184449*^9}, {3.5746706373025026`*^9, 3.574670676068571*^9}, { 3.574740867627764*^9, 3.574740880248186*^9}, {3.5749502553646355`*^9, 3.574950272103464*^9}, {3.576339630556878*^9, 3.576339734687061*^9}, { 3.5763398243092184`*^9, 3.576339825838021*^9}, {3.5763416702292604`*^9, 3.57634168703049*^9}, {3.5763417364981766`*^9, 3.576341803905895*^9}, { 3.576341868178008*^9, 3.5763418681936083`*^9}, {3.5763419093152804`*^9, 3.5763419093152804`*^9}, {3.5763424265653887`*^9, 3.5763425069991302`*^9}, {3.576342544470396*^9, 3.576342547465601*^9}, 3.576342648600579*^9, {3.5763426979590654`*^9, 3.5763427031070747`*^9}, { 3.5763427586743717`*^9, 3.5763427588771725`*^9}, {3.576342794289235*^9, 3.5763428317761*^9}, {3.5763429278098693`*^9, 3.5763429405238914`*^9}, { 3.576343331273378*^9, 3.5763433377941895`*^9}, {3.5763433946718893`*^9, 3.5763433988682966`*^9}}], Cell[BoxData[ RowBox[{"{", RowBox[{"2.5413936804492883`", ",", RowBox[{"-", "1.9439930410068949`"}], ",", "0.00006639159789333312`"}], "}"}]], "Output", CellChangeTimes->{3.576388759318022*^9}] }, Open ]], Cell[CellGroupData[{ Cell[BoxData[ StyleBox[ RowBox[{ RowBox[{"Table", "[", RowBox[{ RowBox[{"Show", "[", RowBox[{ RowBox[{"Plotd", "[", RowBox[{"[", "i", "]"}], "]"}], ",", RowBox[{"Plote", "[", RowBox[{"[", "i", "]"}], "]"}], ",", " ", RowBox[{"Plotf", "[", RowBox[{"[", "i", "]"}], "]"}], ",", " ", RowBox[{"Plota", "[", RowBox[{"[", "i", "]"}], "]"}], ",", " ", RowBox[{"Plotb0", "[", RowBox[{"[", "i", "]"}], "]"}], ",", " ", RowBox[{"Plotc", "[", RowBox[{"[", "i", "]"}], "]"}], ",", " ", RowBox[{"{", RowBox[{ RowBox[{"Axes", " ", "->", " ", "Automatic"}], ",", " ", RowBox[{"AxesLabel", " ", "->", " ", RowBox[{"{", RowBox[{"xl", ",", " ", "yl", ",", " ", "zl"}], "}"}]}], ",", " ", "\n", " ", RowBox[{"AspectRatio", " ", "->", " ", "Automatic"}], ",", " ", RowBox[{"Boxed", " ", "->", " ", "False"}], ",", " ", RowBox[{"PlotRange", " ", "->", " ", RowBox[{"{", RowBox[{ RowBox[{"{", RowBox[{ RowBox[{"-", "3"}], ",", "3"}], "}"}], ",", RowBox[{"{", RowBox[{ RowBox[{"-", "5"}], ",", "3"}], "}"}], ",", RowBox[{"{", RowBox[{ RowBox[{"-", "3"}], ",", "3"}], "}"}]}], "}"}]}], ",", " ", RowBox[{"SphericalRegion", " ", "->", " ", "True"}]}], "}"}]}], "]"}], ",", RowBox[{"{", RowBox[{"i", ",", "1", ",", "tj"}], "}"}]}], "]"}], " ", "\n"}], "Input"]], "Input", CellChangeTimes->{{3.572794697520533*^9, 3.5727947043221455`*^9}, { 3.5727948024151173`*^9, 3.572794803507119*^9}, {3.5727948673580313`*^9, 3.572794869838436*^9}, {3.572795260993526*^9, 3.5727952676703377`*^9}, { 3.5727954366342344`*^9, 3.5727954702834935`*^9}, {3.5727973545484033`*^9, 3.5727973657024226`*^9}, {3.572803225319809*^9, 3.572803264553878*^9}, { 3.57280330550395*^9, 3.5728033127111626`*^9}, 3.5728033508376293`*^9, { 3.572803528365941*^9, 3.5728035301443443`*^9}, {3.572803715051469*^9, 3.572803769604765*^9}, {3.572840261866465*^9, 3.5728402628648667`*^9}, { 3.5728405648813972`*^9, 3.572840578905822*^9}, {3.5728406372187243`*^9, 3.572840716170463*^9}, {3.5728407476825185`*^9, 3.572840785746585*^9}, { 3.5728408298790627`*^9, 3.5728408871311636`*^9}, {3.5728409363336496`*^9, 3.572841070790286*^9}, {3.572841415987692*^9, 3.572841609740032*^9}, 3.5728416910629754`*^9, {3.5728417502806797`*^9, 3.572841879885707*^9}, { 3.572841914564568*^9, 3.5728419300709953`*^9}, {3.572841986199894*^9, 3.572842001659521*^9}, {3.5728426453322515`*^9, 3.5728426487174573`*^9}, { 3.572844776030794*^9, 3.572844786919613*^9}, {3.57284502999924*^9, 3.5728450550060835`*^9}, {3.572845459218394*^9, 3.572845496174859*^9}, { 3.5728455656105804`*^9, 3.572845617574272*^9}, {3.5728456738279705`*^9, 3.572845681440784*^9}, {3.5728457322656736`*^9, 3.572845755291314*^9}, 3.572845978356106*^9, {3.572846145151599*^9, 3.572846189096876*^9}, { 3.572846392926834*^9, 3.5728464086828613`*^9}, 3.572846518881455*^9, 3.5728469699562473`*^9, {3.5728470834620466`*^9, 3.572847089873658*^9}, { 3.572847132180932*^9, 3.5728472650151653`*^9}, 3.5728473515485177`*^9, { 3.572849422046554*^9, 3.572849426554962*^9}, {3.572849678776205*^9, 3.572849686077018*^9}, {3.5728503673146143`*^9, 3.5728503811830387`*^9}, { 3.5728505998798227`*^9, 3.572850604637831*^9}, 3.5730459405924234`*^9, { 3.5731485633994884`*^9, 3.5731485765503116`*^9}, {3.5731486137719765`*^9, 3.57314870088253*^9}, 3.5746558585762653`*^9, {3.574670156150858*^9, 3.5746701578512607`*^9}, {3.5746701931541224`*^9, 3.5746702231061754`*^9}, {3.574670271856261*^9, 3.574670280545476*^9}, { 3.574670327688759*^9, 3.574670328952361*^9}, {3.5746703662988267`*^9, 3.574670379184449*^9}, {3.5746706373025026`*^9, 3.574670676068571*^9}, { 3.574740867627764*^9, 3.574740880248186*^9}, {3.5749502553646355`*^9, 3.574950272103464*^9}, {3.576339630556878*^9, 3.576339734687061*^9}, { 3.5763398243092184`*^9, 3.576339828802026*^9}, {3.5763417010081143`*^9, 3.5763417017569156`*^9}, {3.576341929018115*^9, 3.576341929018115*^9}, { 3.5763421518333063`*^9, 3.57634217669975*^9}, {3.576342212439413*^9, 3.5763422208634276`*^9}, 3.5763422534518847`*^9}], Cell[BoxData[ RowBox[{"{", Graphics3DBox[{ {RGBColor[1, NCache[ Rational[1, 3], 0.3333333333333333], NCache[ Rational[1, 3], 0.3333333333333333]], Opacity[0.5], SphereBox[{0.4177943922887849, 1.2290458124, 0}, 1.125]}, {RGBColor[1, NCache[ Rational[1, 3], 0.3333333333333333], NCache[ Rational[1, 3], 0.3333333333333333]], Opacity[0.5], SphereBox[{0.4177943922887849, -0.614523558, 1.0643841856}, 1.125]}, {RGBColor[1, NCache[ Rational[1, 3], 0.3333333333333333], NCache[ Rational[1, 3], 0.3333333333333333]], Opacity[0.5], SphereBox[{0.4177943922887849, -0.614523558, -1.0643841856}, 1.125]}, {Opacity[0.5], SphereBox[{-2.536395374456182, 0, 0}, 0.2572]}, {Opacity[0.5], SphereBox[{0, 0, 0}, 0.1786]}, {Opacity[0.5], SphereBox[{-3.9604158553720157`, 2.4660822841446115`, 0}, 0.2572]}, Text3DBox["4", {-2.536395374456182, 0, 0}, {1, 0}], Text3DBox["9", {0, 0, 0}, {1, 0}], Text3DBox["3", {-3.9604158553720157`, 2.4660822841446115`, 0}, {1, 0}], TubeBox[{{-2.536395374456182, 0, 0}, {0, 0, 0}}, 0.02], TubeBox[{{-2.536395374456182, 0, 0}, {-3.9604158553720157`, 2.4660822841446115`, 0}}, 0.02], TubeBox[{{0, 0, 0}, {-3.9604158553720157`, 2.4660822841446115`, 0}}, 0.02]}, AspectRatio->Automatic, Axes->Automatic, AxesLabel->{ FormBox["xl", TraditionalForm], FormBox["yl", TraditionalForm], FormBox["zl", TraditionalForm]}, Boxed->False, PlotRange->{{-3, 3}, {-5, 3}, {-3, 3}}, SphericalRegion->True, ImageCache->GraphicsData["CompressedBitmap", "\<\ eJydewd4lNeZ7rvCOHa8sZM4zmaTbOKbTbIpxjbNNkWoS/SmLo16mabeBQLH D97EBZuL4xi8GGSKkJAE6hJICJBQnRnVURkVeo+9dpxk7+N7n32W+56/iF/D gLM7z/NN+c/5z3nfr51zvplZF5djSEqNyzEmxD0bkBWXYTAmZD/rn57FS3P+ DkA95dSzEO/v8q3yVI+7d++KRulls3h5RDREyxcCpZc5kPrelW5Rm4KcmoRE yU3BLpp0X9n0vHhxk1rmzEwmf+Ljh9KlR2bdeA/MCy5wurmY6oczczyljPfl l1+ira0Nr732GgYGBtbKt78ovcydda867jzp3aOiN958800EBASgsbERN27c QEFBwdr/HqJfKDOpOEJCQqQRr1y5go33KWbuLMWo79Ux7ty5IyESj5KSEvz1 r3+VTQoscjH1P0vPX7tvakGspqZGGkJ2ACycgTBn5t2PNMi1ehCzhsq3veza aN9XNKidWIM5/KE3f0+DWtyQlpY2Q1a87t27FxEPHeEZF9NrwM9RVCUGVu8K e+iAT7uwoXiMjIwg7qF3flN685h0p1C7ExTJDFarVRnkFSfvde01yXLnACen EM2im/hskLv4amZ3dgAxu7jGV6W390PsnSp38XiAZsUrP6fLvf5pJsv8UAPA 2Zai5YsvvhDvlft+5CKk/vHhtsyRO/7DzIyPuIiD77qIAwaypPyEhAQJTa48 0LMubv+2BoILG6pBL3idPn1a+pTz4NG++QBfEpYt0ujvQb706CyDq3mJit2m UaLkQ08+QHViJuL+jdz/ORdWV8yJHXKXXz7AjVTnEFbkoErvf9EM6GzzN+Qu P31AYhIDivei65ty15+4UJewnSDxjtzlxy7sIx6CDUfapVXqYy4HEgTEZ96t 9P6Bi+BS6ar5Q3Fe6dO78m3fe3h8fCD3+q4GivPgmqhQej+jeIOgpkmi+7St c3DgwAHJlwWdj+5vEplKfHJqUpXtoknrfErTd5QmoRQx1+7du7F/dpO6ZopB XTQJ7OKTU5MW4Vc3PTkT7G6KalQ7KjMrcJ9ykU7UO8RDo3bljsec0sjs/YEw i3gUy52/5RSlgh+BPKSV7Is1FBgAThGu7alO89RMPLtpVCJUL3R8QO70tNxJ 6GHOjEE1lnvahVEPfGXTtzX2FkOLT8Wzm7RGddEk1mrx6tQkGKiZyEWTam+n JnVxc9GkBT/LALPBr1EC7/KoA52Vdeim9FIsFXWwCimvw/URx7rZI6hERJ5d KV17Elc5wrEdO/FuuB5/oOwLN6CYcijMgCOUklBKCCVYjyNBerRs34nbdsfq +0cWeuAOAP7StW/jGkc+/vpOvB+px4eRHJVyJNKIYxFGVFKqw42opdSFGVEf ytcQfg42oCaIEqhHx7ad+MTuWDl7Jq1a/aTnv0fV629jT2Qy9ur02K/jLDoj yilVkSbUURojTDhFaQk3oTXc5IYzYSbmtlZO2sJJm0mvmfRObk5G99a3Ax48 obwN+QZqOeE+XTIn0+MgJyzlZMcpdToTTlJaOOkZSluEGec5cSfFDV18fkx6 30H67aTeTuW2hehxLigZ/dvexqfD436zZxcGV13FRzFZPWffz9k/jqJJogw4 RqmKMqKBMzfrzDijS0F7ZAo6danooVgoVl2qG2xseIzPZtgizbAQYE+EAd20 dneYHp0hSTi3OdEJgNYh5X3VU2h8/S18rEvCwahkCUA5J6+Oop6jUnCak53T paGD0qNLhyUqHX1RGRiIzsBQdDrVMMznx/mcRknFIO8ZiCIiqq+PnmILT4Yl NAkjr76lqJsGvqvd0iughFZEwHpJ176J+h1v0haJOByVRFB6lBFQFQdujEpF S1Qa2gimk0B6ozJhi84koEwMx2TCHpuJ0dhMN4zLTxlU0VhMGkZiUgk4BUMc Z5A2HqCD2cISCexN2RB4Qnp53GXuE+jU1CyCw1O6+iPcHB3Hoch4lFB9R4my lKo7ThXUSyjTcY4IO4mwNzoLfZTBmGwizMZYXDYclAnKlCRZmIoXkslrGWxL JwuqNCaFajVhmGYZikxCX1g8vhgd99Yifni29laQnnr9DaJMpG8nU5dGVFCX NdTjSaI8Q4QdUVnoic5GX0wOhmJzMBKXi/H4XExQpigXEnJxUZIcXKJcTMjm NSJOyGS/DPZPI7MU2GNMsNORhiMTMLnjjf8GUtnyz+LW6BgTSxyRJqJMJ+LB TJ2moY66bCbStqhsdEXnwBaTi8HYXNjj8oggHxMJ+ZimXEzMxyXKFUnycDUp D1eScnktBxcSqXOiHkvIgD1eRWwk4iQM6eLw59FxGYaM9ZGHwFYTidz/aQwf r0IpSZcxiZQxdMsZOVV00gZCPk3I5wm5l5D7Y/MwTLhjCQWEUoDpxAJCLsDl pAJCLcA1ihuuJ+dTadeS83CZcpHwp5KyMZ6YhREVepyZ0A2wRyfA8frvFBxg ItSi1LzOfQgZNS95Kcn+SHgMySSRiJGSQjLpqNZlokmXjVYS6YjJgyU2HwPx BQRUAEdiIaYoF5MKCXgLrlKuJ29xww19IQP+pr6A78hPT9OQz3RyLhzkM5rE gE1IJ59U8qEZYmmG6BiFinZPpAH86H0bD20HOTL/F45GxKGMCaiMabGMyeuY LoMMsujvOThD9J1Eb40rwFBCIU1RiInELZhO2kJ4WwlzK65TblBuGrbilmEL blNuGgpxzUBTkca0Pg+O5ByMJjOiJRo0SQJNEq8nlXj8eWxMwYK/oRjzmOaa KAiJrZJ8pv0OhipPoDScjsUFt4zrQFlkOsojs1BDW5yKysXZmHx0koktvpBs tmAscSudZSsuJhcRaRGuUW4Yioi+CLeNRW64Y9xKm9wy0kRGmouELhgYPiQ0 SkL25CwSok0SaZNE2iQ+EbeqqxQusjXmzHIeFbxwIJEgBXi5+08wXFmFsnAG MpfJsshUHIvMQCXB1+pycCo6D+dohq64QtgIfJjAx5OKMEXgF/XbcIVyzbCN wLcR7TYBntgppiLcMtFEZHCFDC4YGUlkMKZnMhDmSGaEJNMcSUxFiUm4U1Ot oJ/rQvVfc7Fj9FRjurKa6BkGXPjLItIomaik2mup9lNU+7nYAnTFbyH6rURf pKDfhksCPVFfI+qblFumbTT7HT5/Q0FfhOtkcMW0RUI/aSR6Qx7seupfT2fS U//JdKakZNyprcaM8lXPf/yBoL+D4QqCDmOWDyfo8HSCzqLKcwg6TwJ9luqe BZqApwn4kmE71bmdoLfjhmk7QW7HbdN24jZvE/5iJmaKhNlUSMwFEuYRAzEb 6DMGYjYwnSbriblGgayedbTbrhnfINDSUAINS5kBWjEDtEAC2hm/FTb6xVDS NgLdjin9dlycAfoqgb5KZK/itnk7cW6XsN6iSEjNW2WkJiKlhu1GIjUSqZH+ YSRS/d+KdKhcgzRMRlpOD66mB5+kD5yJ24JOqtNKdQqkY0Q6SaQXDK/iMlFe JcobRHlTQiqjvZ2y3QnpFkwQ6aiJSE30ZBM92aQgNehx6z6kImmrFTMvNe2F EGWogjJcRlkVnY+mGBllB/VpIcpBohwlygminCbKS0R5hSivaZDekhBux80U gXIbLguUZqI0F2LUTJRmojQTpZkoTdyoEOWfHONwgqnum+7BfJZHjySUhtA/ Q2WYxxSYDYTZSpjnqcxewhygb9oJcZwQpwjxAuUyIV4lvGuU62YBl/6aIoQB p8CcJkyHgJlCmCmEmUKzm+mgJjMGDMnKAvOki6OYt4JwmEeu0mAmrRCGfXgm k1cOdyF5qCfCFjpmGxF2E2EfFTlEhKP6V+FQUF4kwstEdsWsICW6a+btErqr KUW4RIRTKUSYIhAy7FNyZIQp6Rgmwlv19U4ItXHurSSnm3YHSgKNRJlKcxNh RA53dXmoIcJTRHiOpu4kQgsRDtDUwwybMSKcIMIpIrxAuWSWkboR63ZuOK4Q 4SUivJCyFZNEOJbK9T2VCFOJMJWJKSUNg0T4xYQDD4Hoo246t72Lo4GpjJ0M wsumN+ZKZm6MLUQrU1B7QhF6mDNtNPMglWgXEAnPQWiTlGkB0yyEUS/JNgma pLxUKi+V5k2leVPphakZGCQ8x65d3rORaSPaRzle3LRP4NDmFJ6D07m4Zknm rWQ01zGaT3EhPUvzdlB5PURmY3IcILKSdfE4Rqlcl+CG4+vi3TBJPF/ncxEm iGo8dQsRFWCYqIbScvmahQGisphT8aeJiYegkk9GP8RAaQMOBabhSGgmSqiv Mq4zJ5iy66mvZurrwJpY7PIIxG8W+uO3CwPwzsKVeI/yAeVDyr4FK/H+iwF4 70V/NKyP46aeazj1NEhE/Wl5lBz0EVUvHe1KQ6PPbEQiBNT6jZ9iwcai9/Bx cAYOhWVzU55LRHnYsyoary70w45F/nhjUQB2cub3F67Cv1E+XrQKRynllOOU E4tW4ghRFRPV/hf88W/P+6J6dSTP7vGUWNSsC8bHARvxDo/N1op6qdpxfcTh ORuZeKiFSH8lQBu2/R4HQrKwZ4MB2xf44DUi+i0R7SSid4QeKPuI6CCllEgq KVWUOkoDpYnIKl7ww+Ffe+PAz5Zj/0+X4eNfe6Bs6UqUrNyMwzzQl4RRQo1S xeRwsAGHgvQYPlaHW3aH+/0I1R1FgILwLZ9gvDbfBzsW+uJfabG3iex/02q7 iWzvglUoJrISSgWlWkHWRGleTITPe6HqVytQ9osVKP0Xdxz9+XKU/GwpDv7z UpSvi0F1uAk1lNowChHWhvDMHmxEVZABJzbr0bZt53IZ4TdcJDkZ4fdnSg/v BQTjdwt88TZR7ibKDym/ny/700EiLSXC45QaoTuia2K/+uc80DjPg68rJKQn fuWOyl8uw/Ff8/1zXnzviRMeQaJK44bThPk1nA41SRWaU0KozpOBejRsTMKn zGRLZ6PVZhPZ4j9Aw+tvoVipUxzmYfvjzTHY476e3u+Pj4i4WETA/FU4tGA1 yhaupv+tRu3i1ainpWvneVKnnmikCOQCdf28FWh40YvijcYXvNHAPrW/8kDr +hgmxI5wUd7pIPAOekE7pS3UgLP007NByWjdnITP7I4lD0btp+wu+4/XaAoZ ySjlUb6SB/DaKFFEEo8f4QjRHlu0hnpeQ9Rr6atrcWJ+AKrm+aBuHpE9T4T0 iOb5vjhNPz+7yA9nKK30+9b53mgli9NkdpK671gfC2ukmWKChbvu3ggjesIN 6BIi1YWS0R6YiM/tjlfUo+5dp7q1mpvEFwGMOTlP/FKqdhzUJUh1hKOkIioe FaRSwxN6kygWMd208awlHr1R6Wj0jkD98mCcfCUQTaRzakEAmiltL69GO6Xj pVXofJny0kp0LA7AeYZvO4OlnbTa53vh3AueaH7OHYM8/Q9y7EGeRAd0ZvST mi3SCGsEk4ZSYOoKSsDnI+PK952zDlSzD15yVV58+aNUOGV2j+PU62+SWQIN xA2/VHEStRyzVMtpJoJzPAPLA/4Tmn1i0eEXj47lYehYEor2V9ag45W16KR0 U3opFl6zvCxkFbrJtIsMuxb7oWuRDzoXeOH8ix7o9Q/BaHQ6JQ0jFHuUqFBx j8Jz9wDPewMRyegLS0R3cLzK7HEXx3iVofINmrLKfRe3aLCSyHi5lEJKx5TC TzWnaSKlM6QkHj1SES1Let/mR5/x4bS+ibCSZq/7ZvQsWY/epethpfQtWe+G /iXruAPpJ0srWfYKhi+vRM9Lfuhd7I2ehZ44P98dE7EZmIjJgCM2HeMxaRiN ScVwtBnDdP1hnVzRGuDJduS1N/CSTOLrrs/8fgqhUzt+h1ISKtMlSbWhcnrD cV0qj5NpOMUT/jldpnSrNTobHZtN0vvTHmZ0rMrD4NpU9K9Mgs0rBJalG9G3 bCMG+Dq0dKMbnzbw6DRIfoKadQlJLVlNM66k+fxgIaneRR4YWB2KC3FZmI7L xGScTGw0lmtsDPfo0Ual8JVIs8XhT6Nji11zUjKxzOk5LvSx3H7cKxxV0Mur yKeBfFpomJMbjdKtDT56dAXnypy8UtGzipGwnrImETYm2v5lmzFIGaaMSLIJ dsqw4LlsA/muI2/6JYlZSMz6ih+sL3vRJ5fjUnw2LsaTGGUyPhNjcdwrx6XK 9bFouT42HBWPW8erFmuSxldU9ORtzRNyBUOqx9yrKFWQYdkGuuOGTBz1MeJk cA56o3OVlPgsOgPz0bY0CJ0eEejxjoTFMxR9ywMxuDwIw3wdWkqmSzZglIYb J7vx5Rthd9+IfvcNsC6nqy6jby5dTVMGwLbEh0xXYIKn4suidpmYjamELIyT 6Ui8ylQpp8UkMtfELNakkVm1pvu3uc/DXllFfglSvekDnyi855eA/QG0JHfl J3XZOBOVgw5ys8TkYSAuHx1B3CSGpaGT3tdDS1nJp4+8BtzJzT0YfeQ2sHQT RihjyzfB4b4JE+Q2uWIjhldsgo3vre500+VrYFu2iuIH21JPjK4Px1VR6aRM J+bAIZULuWuPV0tsJvJMJsc4fDE2Jv80R67Hu9wmP49Knlze89fhozV6bgFF 7SkN5ZEZqNFlMd6ycZasOsnKGpuPc2Q1Gl9An2Q2JqtesrKRVT9XgAHBalkw LULLLQskq0CMuwdiYkUgJj02Y8pTyCb0kZ2VFrSRnc19NYXWW+4Dx8YIXE3O l4qh02Q3IYqHZGcXxdCZyhutF5eA21UnXDATCV988y1X1RZgxOqAreFzHNjZ DvvQf3GrF6OUenjmi0jFsYh0VEZkMrOIKlsOmco1w5bgAgzFyzXDgQ3J6CYT C1nayLLfPQSDK0LRTb8VbId5bWxFMBwewZj0DCbDIEx5BWHai1ogW5vHRthW rKesIfOV6HP3xcQmHa4lF5BpPi6Q7URyLkbJ1p5IOyZqynIJUmHLialY2oQN xSKg/SmZpWcCoxRHxwTuXPxUid5HMGW9hKGu/4vDe/phv3h3jmL2o6FMSeFK CUlSRgaVoVTteCY5xzNJI81t4zFzKF6UHLdgkMroWRZEZYSQSAgGqIihFWHo XsbPy0Nh5+cxj1A4GMiTTMFT3iGY5g552icII950FaEQT64vnmspq9Hn4Ufl uuO6vhCX9QW4oM+nMvIwJmqUSaJGSdMnpSpVvmQXytCmJlkZj0rX6j9oQM/7 TRh8vxGWd+tg29c+R9FHw74u2EfvorviOv742d1HFX2UhDJ5ce8kl9TSJH0c j8xCnVLFrA6aXYIdT9yKwY169NABLO5CH6HURxj1EU5OYfwcBrtHGMY8w+Dw CsOkdximfMIw7RtKCcEIdWLzoj68uEx5raNQH57+6HFfgeuGLbhsKJT1IWq2 ouqpz1bqhmly3VCuwSn6eEJzAhA/jxCfXpjZ8zHHXSwZxs2KQVwp78XwR004 d2QUx45PoK/lz7j9l7uPq1oIEVowKPU6uSxSGZmN0g1mFPunytVQeoSVHjHE 87MoRA9sNJCx0EIo3TwM/dTAkAe14B5OC0fA7hmBMa8IOLhVnPSNwJRvOKb9 qAn/MIz4BsPmvZnCMPGmFrwZJl7+mAiKxjWjogWDXPuVtGCgFgyZ9yqRor5X 56wFbQJ/Qdn6SUtqWYf0ai+9AXuxAxPFlzBWPoKR430Yu/iJ4lXPo/k3b6GM J4F7VbZMHFxvwl7/FLm8GlNAX1C0QA2MJalaCJmlhUGyt1D6PCMx7BWJUS5y Dp9ITPpFYsqPmvCnBFBLwhd8qAUf+oMP48OHWvD2hyNY1cIWTBsLZS0YczVV zvSZ2uHDtfDizCLHABmp+gxtlV/i8/N/wY32TzB2ehR3JidV9sPlNSjlGUhi H5qO/WsN2O3Lsyizwsloso9V2DMKBsl+NKkIfWTfSfa99HrrCtnuA0Joe6un DkPeOoz56ODw1WGCi82kPzUQEIkR+oCNPmD1ZXbwJXtfpkpfsvfxxxjZXzVu xSWjzN5hZOIz5cFuInsT2ZvSpZqk3WDA7fvYiwXBJfu+qus4WfEX3Oq4jSud dIROO774909k9vMwSPZHg8k+JAX7Vydhl48BFYyAarJvIvszZN9B9hbafoDs R5JEeb2Ix4QQenwYLGRvI/N+Mh+kDNHug9wwjPhGYdwvCg7/KEwE6DDqH45+ 5gGbH9n7BVLI3o/s/dZwT+5PuxfNsJ8S7E0KezPZm9VSZwqGjQYsvp+6KPII B5ivSYqNJRNooNsPnLTC1j2B/oHxJ5UNqvidyP6VcdjlmSQVGssjsrlBzUUj GbeS8Xky7mW895HxMBmPknE7GXfS23vIWHi5jWz7GedD9HI7ZYT2HqW9x+jt w4z5AWa+Pr8QWP2DKGTszy2Ov2C8Gt1kfMUovnnYioumLZg0FWLcTMbm2aVT uzkFg0b94vs9XTxE9lugpHmL5VMU7xnE2PgF/PHz/3hKIXo8cwfeWcHTRTCT W1gG03w2TpBoA1N8C4m2kWg3Hdsq0juJ2knUusmE8yTaxYTWs4Ih7SmTHaBp JbI+QpjoSHKIia3fL5TEmApI1EKiFokod+Y07XBIPE1ahEsmtdBegLGUfIxI NWImt5RMuUZMorca6hfPXu7UX42KnwMtVK59+f/+z8wS+A2Fpd06jX3vNOAw z0dHg5TibPj9X7100Ikls5LpIJmO6Itwlgv5eTpyp1jIaNZeEcJk2s/0PUAZ JNNBMu0nU5t/KM+3wegNCKJshiVgIz+vQxdNeoEsL5iKMC0q4WY6cArNmaIt 5spMB8wpL2lLLHMxPT0t/eCqq6tLOu4Kti8qbP/6n/81w1YNWbv1Ig5WXZA+ NW3bhSOBqVzIMqSibzkZVzF0G5m2T3P5buPy3UX7WmjffrIeIuueTUayDkMb 7XuejDvJuJuObCFbK8VGtjaytfqFSqf57oBgSiB6AjZRNqKLjG2hCZgg40na dcKs1v0LyDJvFuNBMr7R0KiehZ9UvFX9Faj4FSGzlsr2s/+8d/h/YobtZRyq uTxz/cbwBIo3puBwUAaOhGXhKD26gh5dQ49uihXftRSinYy7yNjChaovWbb1 Of9YtNLOZ2nnNi7X5z3D0eEdji4f2t2Xmzoy7qJ9OwMY5rRvJxl3kfH5gA1o pSePku0Y2Y6S7SjZ2lOUsjgZi9L4EBkPkHGPOVWtazylYav5AfQLM7a9x/br yjW79RqO1F1VPonnX+CmfRLFm9NxMCQTh8OzcTQyF5X06lra+CRt3BovM+7k lrWXjG3Cxtzjn6Rnt5DxaW7LWrktO8stWRu3ZG1k20bbttG25+jNbWTbRrbn yLaFCao3Jp1JZyuGmJgGyXaQbAdSC9BHtn1peZRc2Mi2JyUDn09OKmS/5SJm tb/XVpkunmF6HSX115UYEM8/R+3W3dhPuxaHZuNgRC6O6vJQyZRcS7s20a6n Gb/nyLSDTLvJ1JK8FZ08t9UzWzVyE9JElifJspksm5l+m8mymSybybKFLJsZ s03MTh0xGbCQoZX2tJKhNYURQpa9ZNlDlj20aU8qT7ipWWQ4pRQVv61gVZ1X xKtagn5phtVNlDbeVCoJ4vmnqCn6PfYFZ+GjsBwUR+ahJCofFcxINbGFaIzb gmYyOkNvbSOjDjLq0vN9VBaqeLyoJqNqbqdryaiWjGrJqJaM6siojrm2xn8T TkdnoN3Ae8mok4w6yaiDjNrJqJ2M2smonTF5lvn2s8kppcD7tOtQvGee2yg7 eVvZTYrnn8BS1oS9Idn4MDwX+yPzcTiqAMdiCnGCJOpomiam1maSaCWJs4IE QbVEk8hqnr1Iosw7FGUkUcZVsZz7gHK/IJT6bWaKzsAp3tPC/qdJopUkWkmi hWm0JUVIAZq5YFh278Gnk1NKXf0ZJ4cTB8SFM+j/iGPNf9Qkkh/j2sgUql77 AH+gY+3V5eNAdAFKaIJyoj9BE9TSBA1E0UTkJ4mkmUiaGQIVwQbs58luvw+F e7cDvkEoXqNDSWQ6jidtQVXyFtToeT93rXXcvdRyLa/hMldjzke1OReOhlNQ vrj4rhPkezsWAflTVLR8In2S0+QP0F15Cu9G5GA3o30vPeYAY+Awo72U/l/O qY9z6hOcuopTV3HTdMIkhP1CkvCHzYnYFZqKD5gh9iUUoDixEIeSCnEkuRAl PHyW8JhRYuQqsetD2OubsUKG+A8unFxdlObNQP0Mla3/Ln36lrIQXxmbRmdV C3YyDb8Xl4898Zw2kVCSODUP/x/rheSj2JCH4foW3JqYnkkP7VXN6KxuQU9N C69Zalt4zVrXAktds9RD+ersexqPFb8oUv7toKL65Mt76fQZhcXF8Wmcr2lG B6WTctUxjfXyaP+ojCYeGhfao22996N0YSkxp1DHB5qEd+87hkeU/bZoc1Ye 75b+EyEd4LO1ip5dzp/jxFA8RkZGXP23JUOjE2mrr/4QSBsOP/5bbnxU6aTd htz7b1+2Vh+zR5rrwlXUfzl830X/THmonzitiuLBW37wYKw/VTb12qVFXBHf 5Vit1u84q/ZnLoCpp8O35C4/d539lNZfuNCl8ieZX7pY5pS/2vzKaUwxLa34 W7n11y5sy3H/VXOv+ks0dUrRskN792OzvEXrk2Id4i2vaRSm+XPF7C8fiMBN Ajhnpjgq5FX53nnK2uV0hzSTCuw32q6zTaZ+I6VVHe20fbaKnErsc5XLqgsq 1tim4S45o/rDNlXD4gt0pdNixUec9lqq3QvlXi87oauoqNC0vuI0vPgngtK0 xMm2yj+D8uXWZU7DCrVyYuWPbss1LiMe4l6lyd1pRmHKHGfWzr8unztjD3Hq FRVgkWMyH2yTx1xr/REnXAL1rFFm36EGmSuX0uQfrVdmaEa77+fx6r1zXI/3 qIsgdvqL5P9oXLVO7BSHypDPub7J1Q9cHzD+4wpurROqc5mcTes2887pB6hz ZxqeUKZR/26njKsMtcAFMPWfOqrmBAql+/yZYZ/RqEEDVfl/6monhxYBSSdT /g67RplADVdhFqVprZPV1H8jilQtl2nlX2o8orWa6oBiJqXTSidezv6q/vsz Xm5d5UINs6jMbtJ/ZVOAa+MaNegkNSp6rf8fvuDv/j+PQRW5\ \>"]], "}"}]], "Output", CellChangeTimes->{3.5763887593336215`*^9}] }, Open ]], Cell["\<\ (*-------------------------------------------------------------------------*) (* next: O atoms in C-O-H, C-O-C: two doubly occ LP *)\ \>", "Text", CellChangeTimes->{{3.572794697520533*^9, 3.5727947043221455`*^9}, { 3.5727948024151173`*^9, 3.572794803507119*^9}, {3.5727948673580313`*^9, 3.572794869838436*^9}, {3.572795260993526*^9, 3.5727952676703377`*^9}, { 3.5727954366342344`*^9, 3.5727954702834935`*^9}, {3.5727973545484033`*^9, 3.5727973657024226`*^9}, {3.572803225319809*^9, 3.572803264553878*^9}, { 3.57280330550395*^9, 3.5728033127111626`*^9}, 3.5728033508376293`*^9, { 3.572803528365941*^9, 3.5728035301443443`*^9}, {3.572803715051469*^9, 3.572803769604765*^9}, {3.572840261866465*^9, 3.5728402628648667`*^9}, { 3.5728405648813972`*^9, 3.572840578905822*^9}, {3.5728406372187243`*^9, 3.572840716170463*^9}, {3.5728407476825185`*^9, 3.572840785746585*^9}, { 3.5728408298790627`*^9, 3.5728408871311636`*^9}, {3.5728409363336496`*^9, 3.572841070790286*^9}, {3.572841415987692*^9, 3.572841609740032*^9}, 3.5728416910629754`*^9, {3.5728417502806797`*^9, 3.572841879885707*^9}, { 3.572841914564568*^9, 3.5728419300709953`*^9}, {3.572841986199894*^9, 3.572842001659521*^9}, {3.5728426453322515`*^9, 3.5728426487174573`*^9}, { 3.572844776030794*^9, 3.572844786919613*^9}, {3.57284502999924*^9, 3.5728450550060835`*^9}, {3.572845459218394*^9, 3.572845496174859*^9}, { 3.5728455656105804`*^9, 3.572845617574272*^9}, {3.5728456738279705`*^9, 3.572845681440784*^9}, {3.5728457322656736`*^9, 3.572845755291314*^9}, 3.572845978356106*^9, {3.572846145151599*^9, 3.572846189096876*^9}, { 3.572846392926834*^9, 3.5728464086828613`*^9}, 3.572846518881455*^9, 3.5728469699562473`*^9, {3.5728470834620466`*^9, 3.572847089873658*^9}, { 3.572847132180932*^9, 3.5728472650151653`*^9}, 3.5728473515485177`*^9, { 3.572849422046554*^9, 3.572849426554962*^9}, {3.572849678776205*^9, 3.572849686077018*^9}, {3.5728503673146143`*^9, 3.5728503811830387`*^9}, { 3.5728505998798227`*^9, 3.572850604637831*^9}, 3.5730459405924234`*^9, { 3.5731485633994884`*^9, 3.5731485765503116`*^9}, {3.5731486137719765`*^9, 3.57314870088253*^9}, 3.5746558585762653`*^9, {3.574670156150858*^9, 3.5746701578512607`*^9}, {3.5746701931541224`*^9, 3.5746702231061754`*^9}, {3.574670271856261*^9, 3.574670280545476*^9}, { 3.574670327688759*^9, 3.574670328952361*^9}, {3.5746703662988267`*^9, 3.574670379184449*^9}, {3.5746706373025026`*^9, 3.574670676068571*^9}, { 3.574740867627764*^9, 3.574740880248186*^9}, {3.5749502553646355`*^9, 3.574950272103464*^9}, {3.576339630556878*^9, 3.5763396360948877`*^9}}], Cell[BoxData[{ RowBox[{ StyleBox[ RowBox[{ RowBox[{"k", "=", "1"}], ";"}], "Input"], "\n", RowBox[{"(*", RowBox[{ StyleBox[ RowBox[{ RowBox[{"Clear", "[", "conn", "]"}], ";"}], "Input"], "\n", StyleBox[ RowBox[{ RowBox[{"conn", " ", "=", " ", RowBox[{"{", RowBox[{ RowBox[{"{", RowBox[{"48", ",", "22", ",", "5"}], "}"}], ",", RowBox[{"{", RowBox[{"21", ",", "25", ",", "54"}], "}"}]}], "}"}]}], ";"}], "Input"]}], "*)"}]}], "\n", RowBox[{ RowBox[{"tpso", "=", RowBox[{"Table", "[", RowBox[{ RowBox[{"{", RowBox[{"0", ",", "0", ",", "0"}], "}"}], ",", RowBox[{"{", "hj", "}"}]}], "]"}]}], ";"}], "\[IndentingNewLine]", RowBox[{ RowBox[{"tpsu", "=", "tpso"}], ";"}], "\[IndentingNewLine]", RowBox[{ RowBox[{"hj", "=", "0"}], ";"}]}], "Input", CellChangeTimes->{{3.572794697520533*^9, 3.5727947043221455`*^9}, { 3.5727948024151173`*^9, 3.572794803507119*^9}, {3.5727948673580313`*^9, 3.572794869838436*^9}, {3.572795260993526*^9, 3.5727952676703377`*^9}, { 3.5727954366342344`*^9, 3.5727954702834935`*^9}, {3.5727973545484033`*^9, 3.5727973657024226`*^9}, {3.572803225319809*^9, 3.572803264553878*^9}, { 3.57280330550395*^9, 3.5728033127111626`*^9}, 3.5728033508376293`*^9, { 3.572803528365941*^9, 3.5728035301443443`*^9}, {3.572803715051469*^9, 3.572803769604765*^9}, {3.572840261866465*^9, 3.5728402628648667`*^9}, { 3.5728405648813972`*^9, 3.572840578905822*^9}, {3.5728406372187243`*^9, 3.572840716170463*^9}, {3.5728407476825185`*^9, 3.572840785746585*^9}, { 3.5728408298790627`*^9, 3.5728408871311636`*^9}, {3.5728409363336496`*^9, 3.572841070790286*^9}, {3.572841415987692*^9, 3.572841609740032*^9}, 3.5728416910629754`*^9, {3.5728417502806797`*^9, 3.572841879885707*^9}, { 3.572841914564568*^9, 3.5728419300709953`*^9}, {3.572841986199894*^9, 3.572842001659521*^9}, {3.5728426453322515`*^9, 3.5728426487174573`*^9}, { 3.572844776030794*^9, 3.572844786919613*^9}, {3.57284502999924*^9, 3.5728450550060835`*^9}, {3.572845459218394*^9, 3.572845496174859*^9}, { 3.5728455656105804`*^9, 3.572845617574272*^9}, {3.5728456738279705`*^9, 3.572845681440784*^9}, {3.5728457322656736`*^9, 3.572845755291314*^9}, 3.572845978356106*^9, {3.572846145151599*^9, 3.572846189096876*^9}, { 3.572846392926834*^9, 3.5728464086828613`*^9}, 3.572846518881455*^9, 3.5728469699562473`*^9, {3.5728470834620466`*^9, 3.572847089873658*^9}, { 3.572847132180932*^9, 3.5728472650151653`*^9}, 3.5728473515485177`*^9, { 3.572849422046554*^9, 3.572849426554962*^9}, {3.572849678776205*^9, 3.572849686077018*^9}, {3.5728503673146143`*^9, 3.5728503811830387`*^9}, { 3.5728505998798227`*^9, 3.572850604637831*^9}, 3.5730459405924234`*^9, { 3.5731485633994884`*^9, 3.5731485765503116`*^9}, {3.5731486137719765`*^9, 3.57314870088253*^9}, 3.5746558585762653`*^9, {3.574670156150858*^9, 3.5746701578512607`*^9}, {3.5746701931541224`*^9, 3.5746702231061754`*^9}, {3.574670271856261*^9, 3.574670280545476*^9}, { 3.574670327688759*^9, 3.574670328952361*^9}, {3.5746703662988267`*^9, 3.574670446904168*^9}, {3.5746710892508965`*^9, 3.574671127018563*^9}, { 3.574671266124007*^9, 3.574671266124007*^9}, {3.574671949327207*^9, 3.574671952228812*^9}, 3.5746720468897786`*^9, {3.574672142595947*^9, 3.5746721470419545`*^9}, {3.5747408907470045`*^9, 3.574740924458664*^9}, { 3.574741956213276*^9, 3.5747419624688873`*^9}, {3.5748306614370527`*^9, 3.5748307091575365`*^9}, 3.5748307421983943`*^9, 3.574830849354983*^9, { 3.5748316203083367`*^9, 3.574831676156435*^9}, {3.574831733065335*^9, 3.574831738228944*^9}, {3.5748530946245832`*^9, 3.574853097011388*^9}, 3.574853202997974*^9, {3.575001859979342*^9, 3.575001914766638*^9}, { 3.576295600982015*^9, 3.576295607190826*^9}, {3.576295662789324*^9, 3.5762956678281326`*^9}}], Cell[BoxData[{ RowBox[{ RowBox[{ RowBox[{"Plota", "=", " ", RowBox[{"Table", "[", RowBox[{ RowBox[{"{", "0", "}"}], ",", " ", RowBox[{"{", RowBox[{"i", ",", " ", "1", ",", " ", "hj"}], "}"}]}], "]"}]}], ";"}], " "}], "\n", RowBox[{ RowBox[{"Plotc", "=", " ", "Plota"}], ";"}], "\n", RowBox[{ RowBox[{ RowBox[{"Plotd", " ", "=", "Plota"}], ";"}], " "}], "\n", RowBox[{ RowBox[{"Plote", "=", " ", "Plota"}], ";"}], "\[IndentingNewLine]", RowBox[{ RowBox[{ RowBox[{"Plotb0", " ", "=", "Plota"}], ";"}], " "}], "\[IndentingNewLine]", RowBox[{ RowBox[{"Ok", "=", RowBox[{"{", RowBox[{ RowBox[{"{", RowBox[{ RowBox[{"-", "1"}], ",", "1", ",", "1"}], "}"}], ",", RowBox[{"{", RowBox[{"1", ",", "1", ",", "1"}], "}"}], ",", RowBox[{"{", RowBox[{"1", ",", "1", ",", "1"}], "}"}], ",", RowBox[{"{", RowBox[{ RowBox[{"-", "1"}], ",", RowBox[{"-", "1"}], ",", "1"}], "}"}]}], "}"}]}], ";"}]}], "Input", CellChangeTimes->{{3.574999421008658*^9, 3.5749994459219017`*^9}, { 3.5749994915051823`*^9, 3.5749996567718725`*^9}, {3.5750076770423594`*^9, 3.5750077104420176`*^9}, {3.575816701185139*^9, 3.5758167353803997`*^9}}], Cell[BoxData[ RowBox[{"<<", " ", "C:\\\\Kimb_mathem\\\\OBtransformation.m"}]], "Input", CellChangeTimes->{{3.574999421008658*^9, 3.5749994459219017`*^9}, { 3.5749994915051823`*^9, 3.5749996567718725`*^9}, {3.5750076770423594`*^9, 3.5750077104420176`*^9}, {3.575816701185139*^9, 3.5758167353803997`*^9}}], Cell[CellGroupData[{ Cell[BoxData[ RowBox[{" ", RowBox[{ RowBox[{"Table", "[", RowBox[{ RowBox[{"Show", "[", RowBox[{ RowBox[{"Plotd", "[", RowBox[{"[", "i", "]"}], "]"}], ",", RowBox[{"Plote", "[", RowBox[{"[", "i", "]"}], "]"}], ",", " ", RowBox[{"Plota", "[", RowBox[{"[", "i", "]"}], "]"}], ",", " ", RowBox[{"Plotb0", "[", RowBox[{"[", "i", "]"}], "]"}], ",", " ", RowBox[{"Plotc", "[", RowBox[{"[", "i", "]"}], "]"}], ",", " ", RowBox[{"{", RowBox[{ RowBox[{"Axes", " ", "->", " ", "Automatic"}], ",", " ", RowBox[{"AxesLabel", " ", "->", " ", RowBox[{"{", RowBox[{"xl", ",", " ", "yl", ",", " ", "zl"}], "}"}]}], ",", " ", "\n", " ", RowBox[{"AspectRatio", " ", "->", " ", "Automatic"}], ",", " ", RowBox[{"Boxed", " ", "->", " ", "False"}], ",", " ", RowBox[{"PlotRange", " ", "->", " ", "Automatic"}], ",", " ", RowBox[{"SphericalRegion", " ", "->", " ", "True"}]}], "}"}]}], "]"}], ",", RowBox[{"{", RowBox[{"i", ",", "1", ",", "hj"}], "}"}]}], "]"}], "\[IndentingNewLine]"}]}]], "Input", CellChangeTimes->{{3.572794697520533*^9, 3.5727947043221455`*^9}, { 3.5727948024151173`*^9, 3.572794803507119*^9}, {3.5727948673580313`*^9, 3.572794869838436*^9}, {3.572795260993526*^9, 3.5727952676703377`*^9}, { 3.5727954366342344`*^9, 3.5727954702834935`*^9}, {3.5727973545484033`*^9, 3.5727973657024226`*^9}, {3.572803225319809*^9, 3.572803264553878*^9}, { 3.57280330550395*^9, 3.5728033127111626`*^9}, 3.5728033508376293`*^9, { 3.572803528365941*^9, 3.5728035301443443`*^9}, {3.572803715051469*^9, 3.572803769604765*^9}, {3.572840261866465*^9, 3.5728402628648667`*^9}, { 3.5728405648813972`*^9, 3.572840578905822*^9}, {3.5728406372187243`*^9, 3.572840716170463*^9}, {3.5728407476825185`*^9, 3.572840785746585*^9}, { 3.5728408298790627`*^9, 3.5728408871311636`*^9}, {3.5728409363336496`*^9, 3.572841070790286*^9}, {3.572841415987692*^9, 3.572841609740032*^9}, 3.5728416910629754`*^9, {3.5728417502806797`*^9, 3.572841879885707*^9}, { 3.572841914564568*^9, 3.5728419300709953`*^9}, {3.572841986199894*^9, 3.572842001659521*^9}, {3.5728426453322515`*^9, 3.5728426487174573`*^9}, { 3.572844776030794*^9, 3.572844786919613*^9}, {3.57284502999924*^9, 3.5728450550060835`*^9}, {3.572845459218394*^9, 3.572845496174859*^9}, { 3.5728455656105804`*^9, 3.572845617574272*^9}, {3.5728456738279705`*^9, 3.572845681440784*^9}, {3.5728457322656736`*^9, 3.572845755291314*^9}, 3.572845978356106*^9, {3.572846145151599*^9, 3.572846189096876*^9}, { 3.572846392926834*^9, 3.5728464086828613`*^9}, 3.572846518881455*^9, 3.5728469699562473`*^9, {3.5728470834620466`*^9, 3.572847089873658*^9}, { 3.572847132180932*^9, 3.5728472650151653`*^9}, 3.5728473515485177`*^9, { 3.572849422046554*^9, 3.572849426554962*^9}, {3.572849678776205*^9, 3.572849686077018*^9}, {3.5728503673146143`*^9, 3.5728503811830387`*^9}, { 3.5728505998798227`*^9, 3.572850604637831*^9}, 3.5730459405924234`*^9, { 3.5731485633994884`*^9, 3.5731485765503116`*^9}, {3.5731486137719765`*^9, 3.57314870088253*^9}, 3.5746558585762653`*^9, {3.574670156150858*^9, 3.5746701578512607`*^9}, {3.5746701931541224`*^9, 3.5746702231061754`*^9}, {3.574670271856261*^9, 3.574670280545476*^9}, { 3.574670327688759*^9, 3.574670328952361*^9}, {3.5746703662988267`*^9, 3.574670379184449*^9}, {3.57467048205103*^9, 3.5746705596923666`*^9}, { 3.57467096030107*^9, 3.574670965371079*^9}, {3.574671247216774*^9, 3.5746712771688266`*^9}, {3.5746714284734926`*^9, 3.5746715738501472`*^9}, {3.574671616063822*^9, 3.574671780534911*^9}, 3.5746718110797644`*^9, 3.5746721941540375`*^9, {3.5746722378497143`*^9, 3.5746722899070053`*^9}, {3.574672371073948*^9, 3.574672409106815*^9}, { 3.5746724505248876`*^9, 3.5746724544404945`*^9}, {3.57467249738737*^9, 3.574672498401372*^9}, 3.574672534031834*^9, {3.574742024385396*^9, 3.574742025524198*^9}, {3.574830761168028*^9, 3.574830777984857*^9}, { 3.574830820947333*^9, 3.5748308292933474`*^9}, {3.5748311210138597`*^9, 3.5748311809803653`*^9}, {3.574831455806048*^9, 3.5748314566796494`*^9}, { 3.5748315927430887`*^9, 3.574831592899089*^9}, 3.5748317545777726`*^9, { 3.5748342338445272`*^9, 3.574834240209338*^9}, {3.5748532222016077`*^9, 3.574853232684826*^9}, {3.574936230277812*^9, 3.574936231073414*^9}, { 3.574936287982313*^9, 3.5749363005247355`*^9}, 3.5749363785248723`*^9, { 3.5749504137517133`*^9, 3.5749504242193317`*^9}, {3.5749505024534693`*^9, 3.574950554619961*^9}, {3.5749552745158367`*^9, 3.574955306979494*^9}, { 3.5749553440451593`*^9, 3.5749553449343605`*^9}, {3.574955521651471*^9, 3.5749555381563*^9}, {3.574955673002937*^9, 3.5749557212694216`*^9}, { 3.574955813839984*^9, 3.5749558159459877`*^9}, {3.5749558985949335`*^9, 3.5749558987977333`*^9}, 3.5749563537257323`*^9, {3.574956510194007*^9, 3.5749565110520086`*^9}, {3.574956664275478*^9, 3.5749566713110905`*^9}, { 3.5749567598256454`*^9, 3.5749567604184465`*^9}, {3.574956856077815*^9, 3.574956870773041*^9}, {3.5749983708148136`*^9, 3.5749983805336304`*^9}, { 3.5749985717431664`*^9, 3.574998577249976*^9}, 3.574998626499263*^9, { 3.5749986925653787`*^9, 3.574998726323838*^9}, {3.574998758678295*^9, 3.5749988738688974`*^9}, {3.574999166759412*^9, 3.574999172001021*^9}, 3.575003949462612*^9, {3.5750039800698657`*^9, 3.5750040011767025`*^9}, { 3.5750040562759995`*^9, 3.5750040652460155`*^9}, {3.575004096976471*^9, 3.5750041155249033`*^9}, {3.575004281836796*^9, 3.5750042876868057`*^9}}], Cell[BoxData[ RowBox[{"{", "}"}]], "Output", CellChangeTimes->{3.5763887593492217`*^9}] }, Open ]], Cell[BoxData[{ RowBox[{ RowBox[{"DeleteFile", "[", " ", "\"\\"", "]"}], ";"}], "\[IndentingNewLine]", RowBox[{"For", "[", RowBox[{ RowBox[{"i", "=", "2"}], ",", RowBox[{"i", "<", RowBox[{"n", "+", "2"}]}], ",", RowBox[{"i", "++"}], ",", "\[IndentingNewLine]", RowBox[{"For", "[", RowBox[{ RowBox[{"j", "=", "2"}], ",", RowBox[{"j", "\[LessEqual]", "i"}], ",", RowBox[{"j", "++"}], ",", "\[IndentingNewLine]", RowBox[{"If", "[", RowBox[{ RowBox[{ RowBox[{"Pij", "[", RowBox[{"[", RowBox[{"i", ",", "j"}], "]"}], "]"}], ">", "0"}], ",", RowBox[{ RowBox[{"{", RowBox[{ RowBox[{"i", "-", "1"}], ",", RowBox[{"j", "-", "1"}], ",", RowBox[{"Extract", "[", RowBox[{"Pij", ",", RowBox[{"{", RowBox[{"i", ",", "j"}], "}"}]}], "]"}]}], "}"}], ">>>", " ", "\"\\""}]}], "]"}]}], "]"}]}], "]"}]}], "Input", CellChangeTimes->{{3.5681154444347754`*^9, 3.568115497147268*^9}, { 3.568127214924899*^9, 3.568127265796589*^9}, {3.568128215276656*^9, 3.568128238536297*^9}, {3.568130718566253*^9, 3.5681307485339055`*^9}, 3.5681308175952272`*^9, {3.5681308916497574`*^9, 3.5681309458598523`*^9}, { 3.5681309983383446`*^9, 3.5681310118947687`*^9}, {3.5681310723448744`*^9, 3.568131074357278*^9}, {3.5681315215476637`*^9, 3.568131584509374*^9}, { 3.56813162789305*^9, 3.5681316427754765`*^9}, {3.5681317113063965`*^9, 3.568131715268804*^9}, {3.5681323203938665`*^9, 3.5681323260098763`*^9}, { 3.568132387567585*^9, 3.568132440014877*^9}, {3.5681325121026034`*^9, 3.568132590945142*^9}, {3.56813274298981*^9, 3.5681327548302307`*^9}, { 3.568132877867647*^9, 3.568132888335265*^9}, {3.568133052345154*^9, 3.568133072344389*^9}, {3.5681331740533676`*^9, 3.5681331951446047`*^9}, { 3.568133267793932*^9, 3.5681332684803333`*^9}, {3.5681335079111547`*^9, 3.568133536833606*^9}, {3.5681336272201643`*^9, 3.5681336314945717`*^9}, { 3.568133737994359*^9, 3.568133744000369*^9}, {3.568133978515581*^9, 3.5681339917912045`*^9}, {3.5681340324916763`*^9, 3.5681340418204927`*^9}, {3.568134244262048*^9, 3.5681342454944506`*^9}, { 3.5681343354754086`*^9, 3.568134336099409*^9}, {3.5681345828762426`*^9, 3.568134583952645*^9}, {3.5681348406666956`*^9, 3.5681348474683075`*^9}, 3.568134889151581*^9, {3.5681352914606876`*^9, 3.568135296265496*^9}, { 3.568135518877887*^9, 3.568135519595488*^9}, 3.5681357593679094`*^9, { 3.5681787035360527`*^9, 3.568178728449296*^9}, 3.5682779128076954`*^9, { 3.572714864038488*^9, 3.572714889419732*^9}, {3.5727149730514793`*^9, 3.57271500191153*^9}, {3.572715036933592*^9, 3.5727150664176435`*^9}, { 3.572715803191337*^9, 3.572715915183934*^9}, {3.5727159899548655`*^9, 3.572716037722149*^9}, {3.572767087700392*^9, 3.5727670990260115`*^9}, 3.5727756458897667`*^9, {3.5727757435615377`*^9, 3.5727758099084544`*^9}}], Cell[CellGroupData[{ Cell[BoxData[{ RowBox[{"a", "=", RowBox[{ "ReadList", "[", "\"\\"", "]"}]}], "\[IndentingNewLine]", RowBox[{"nb", "=", RowBox[{"Length", "[", "a", "]"}]}], "\[IndentingNewLine]", RowBox[{"cw", "=", RowBox[{"nb", "-", "bh"}]}]}], "Input", CellChangeTimes->{{3.5681343270045934`*^9, 3.568134331481801*^9}, 3.5681343823222904`*^9, {3.5681345934218616`*^9, 3.5681345986322703`*^9}, { 3.568134635479535*^9, 3.5681346521559644`*^9}, {3.5681351451792307`*^9, 3.568135145428831*^9}, {3.5681351781888885`*^9, 3.5681352349417877`*^9}, { 3.568135340163973*^9, 3.568135340335573*^9}, {3.568135523495495*^9, 3.5681355244314966`*^9}, {3.5681357674799232`*^9, 3.5681357771675406`*^9}, {3.568136284433632*^9, 3.5681362987700567`*^9}, { 3.568136395053426*^9, 3.5681363965510283`*^9}, {3.568381170343589*^9, 3.568381179844005*^9}, {3.5689533222924633`*^9, 3.568953376658559*^9}}], Cell[BoxData[ RowBox[{"{", RowBox[{ RowBox[{"{", RowBox[{"2", ",", "1", ",", "1.1667547587533689`"}], "}"}], ",", RowBox[{"{", RowBox[{"4", ",", "3", ",", "1.1666500765740462`"}], "}"}], ",", RowBox[{"{", RowBox[{"5", ",", "2", ",", "1.0322407040975143`"}], "}"}], ",", RowBox[{"{", RowBox[{"5", ",", "3", ",", "1.1430342083511027`"}], "}"}], ",", RowBox[{"{", RowBox[{"6", ",", "1", ",", "1.1510447932042867`"}], "}"}], ",", RowBox[{"{", RowBox[{"7", ",", "2", ",", "0.928087955909884`"}], "}"}], ",", RowBox[{"{", RowBox[{"8", ",", "4", ",", "0.9237371284564129`"}], "}"}], ",", RowBox[{"{", RowBox[{"9", ",", "4", ",", "1.0502976872280907`"}], "}"}], ",", RowBox[{"{", RowBox[{"10", ",", "1", ",", "1.2126058567002422`"}], "}"}], ",", RowBox[{"{", RowBox[{"11", ",", "1", ",", "1.212447052309992`"}], "}"}], ",", RowBox[{"{", RowBox[{"12", ",", "5", ",", "1.0537280279235877`"}], "}"}], ",", RowBox[{"{", RowBox[{"13", ",", "3", ",", "1.2125328818910286`"}], "}"}], ",", RowBox[{"{", RowBox[{"14", ",", "3", ",", "1.2126186291866472`"}], "}"}], ",", RowBox[{"{", RowBox[{"15", ",", "6", ",", "1.145619428516999`"}], "}"}], ",", RowBox[{"{", RowBox[{"16", ",", "6", ",", "1.1457030746039425`"}], "}"}], ",", RowBox[{"{", RowBox[{"17", ",", "6", ",", "1.161048039836913`"}], "}"}]}], "}"}]], "Output", CellChangeTimes->{3.5763887593804216`*^9}], Cell[BoxData["16"], "Output", CellChangeTimes->{3.5763887593804216`*^9}], Cell[BoxData["8"], "Output", CellChangeTimes->{3.5763887593804216`*^9}] }, Open ]], Cell[CellGroupData[{ Cell[BoxData[{ RowBox[{ RowBox[{"data1", "=", RowBox[{"Table", "[", RowBox[{ RowBox[{"a", "[", RowBox[{"[", RowBox[{"i", ",", "3"}], "]"}], "]"}], ",", RowBox[{"{", RowBox[{"i", ",", "1", ",", "nb"}], "}"}]}], "]"}]}], ";"}], "\[IndentingNewLine]", RowBox[{"Histogram", "[", RowBox[{"data1", ",", RowBox[{"{", RowBox[{"0.92", ",", "1.20", ",", "0.002"}], "}"}]}], "]"}], "\[IndentingNewLine]"}], "Input", CellChangeTimes->{{3.574935943705309*^9, 3.574935952815725*^9}, 3.574935986464984*^9, {3.5749360234214487`*^9, 3.574936050752697*^9}, { 3.575375124746955*^9, 3.5753751382097783`*^9}, {3.575375905996327*^9, 3.575375926978364*^9}, {3.5753912779750137`*^9, 3.57539131004867*^9}, { 3.575700625296671*^9, 3.575700653704321*^9}, {3.5757278228511343`*^9, 3.5757278405571656`*^9}}], Cell[BoxData[ GraphicsBox[ {RGBColor[0.798413061722744, 0.824719615472648, 0.968322270542458], EdgeForm[Opacity[0.63]], {}, {RGBColor[0.798413061722744, 0.824719615472648, 0.968322270542458], EdgeForm[Opacity[0.63]], TagBox[ TooltipBox[ TagBox[ DynamicBox[{ FEPrivate`If[ CurrentValue["MouseOver"], EdgeForm[{ GrayLevel[0.5], AbsoluteThickness[1.5], Opacity[0.66]}], {}, {}], RectangleBox[{0.922, 0}, {0.924, 1}, "RoundingRadius" -> 0]}, ImageSizeCache->{{15.5, 18.90287769784163}, {0.5484819359288338, 96.8398375874264}}], StatusArea[#, 1]& , TagBoxNote->"1"], StyleBox["1", { GrayLevel[0]}, StripOnInput -> False]], Annotation[#, Style[1, { GrayLevel[0]}], "Tooltip"]& ], TagBox[ TooltipBox[ TagBox[ DynamicBox[{ FEPrivate`If[ CurrentValue["MouseOver"], EdgeForm[{ GrayLevel[0.5], AbsoluteThickness[1.5], Opacity[0.66]}], {}, {}], RectangleBox[{0.928, 0}, {0.93, 1}, "RoundingRadius" -> 0]}, ImageSizeCache->{{22.708633093525123`, 26.11151079136698}, { 0.5484819359288338, 96.8398375874264}}], StatusArea[#, 1]& , TagBoxNote->"1"], StyleBox["1", { GrayLevel[0]}, StripOnInput -> False]], Annotation[#, Style[1, { GrayLevel[0]}], "Tooltip"]& ], TagBox[ TooltipBox[ TagBox[ DynamicBox[{ FEPrivate`If[ CurrentValue["MouseOver"], EdgeForm[{ GrayLevel[0.5], AbsoluteThickness[1.5], Opacity[0.66]}], {}, {}], RectangleBox[{1.032, 0}, {1.034, 1}, "RoundingRadius" -> 0]}, ImageSizeCache->{{147.65827338129498`, 151.0611510791366}, { 0.5484819359288338, 96.8398375874264}}], StatusArea[#, 1]& , TagBoxNote->"1"], StyleBox["1", { GrayLevel[0]}, StripOnInput -> False]], Annotation[#, Style[1, { GrayLevel[0]}], "Tooltip"]& ], TagBox[ TooltipBox[ TagBox[ DynamicBox[{ FEPrivate`If[ CurrentValue["MouseOver"], EdgeForm[{ GrayLevel[0.5], AbsoluteThickness[1.5], Opacity[0.66]}], {}, {}], RectangleBox[{1.05, 0}, {1.052, 1}, "RoundingRadius" -> 0]}, ImageSizeCache->{{169.28417266187057`, 172.6870503597122}, { 0.5484819359288338, 96.8398375874264}}], StatusArea[#, 1]& , TagBoxNote->"1"], StyleBox["1", { GrayLevel[0]}, StripOnInput -> False]], Annotation[#, Style[1, { GrayLevel[0]}], "Tooltip"]& ], TagBox[ TooltipBox[ TagBox[ DynamicBox[{ FEPrivate`If[ CurrentValue["MouseOver"], EdgeForm[{ GrayLevel[0.5], AbsoluteThickness[1.5], Opacity[0.66]}], {}, {}], RectangleBox[{1.052, 0}, {1.054, 1}, "RoundingRadius" -> 0]}, ImageSizeCache->{{171.6870503597122, 175.08992805755406`}, { 0.5484819359288338, 96.8398375874264}}], StatusArea[#, 1]& , TagBoxNote->"1"], StyleBox["1", { GrayLevel[0]}, StripOnInput -> False]], Annotation[#, Style[1, { GrayLevel[0]}], "Tooltip"]& ], TagBox[ TooltipBox[ TagBox[ DynamicBox[{ FEPrivate`If[ CurrentValue["MouseOver"], EdgeForm[{ GrayLevel[0.5], AbsoluteThickness[1.5], Opacity[0.66]}], {}, {}], RectangleBox[{1.1420000000000001`, 0}, {1.1440000000000001`, 1}, "RoundingRadius" -> 0]}, ImageSizeCache->{{279.81654676258995`, 283.2194244604318}, { 0.5484819359288338, 96.8398375874264}}], StatusArea[#, 1]& , TagBoxNote->"1"], StyleBox["1", { GrayLevel[0]}, StripOnInput -> False]], Annotation[#, Style[1, { GrayLevel[0]}], "Tooltip"]& ], TagBox[ TooltipBox[ TagBox[ DynamicBox[{ FEPrivate`If[ CurrentValue["MouseOver"], EdgeForm[{ GrayLevel[0.5], AbsoluteThickness[1.5], Opacity[0.66]}], {}, {}], RectangleBox[{1.1440000000000001`, 0}, {1.1460000000000001`, 2}, "RoundingRadius" -> 0]}, ImageSizeCache->{{282.2194244604318, 285.62230215827344`}, {-94.74287371556873, 96.8398375874264}}], StatusArea[#, 2]& , TagBoxNote->"2"], StyleBox["2", { GrayLevel[0]}, StripOnInput -> False]], Annotation[#, Style[2, { GrayLevel[0]}], "Tooltip"]& ], TagBox[ TooltipBox[ TagBox[ DynamicBox[{ FEPrivate`If[ CurrentValue["MouseOver"], EdgeForm[{ GrayLevel[0.5], AbsoluteThickness[1.5], Opacity[0.66]}], {}, {}], RectangleBox[{1.1500000000000001`, 0}, {1.1520000000000001`, 1}, "RoundingRadius" -> 0]}, ImageSizeCache->{{289.42805755395693`, 292.8309352517988}, { 0.5484819359288338, 96.8398375874264}}], StatusArea[#, 1]& , TagBoxNote->"1"], StyleBox["1", { GrayLevel[0]}, StripOnInput -> False]], Annotation[#, Style[1, { GrayLevel[0]}], "Tooltip"]& ], TagBox[ TooltipBox[ TagBox[ DynamicBox[{ FEPrivate`If[ CurrentValue["MouseOver"], EdgeForm[{ GrayLevel[0.5], AbsoluteThickness[1.5], Opacity[0.66]}], {}, {}], RectangleBox[{1.1600000000000001`, 0}, {1.162, 1}, "RoundingRadius" -> 0]}, ImageSizeCache->{{301.44244604316555`, 304.8453237410072}, { 0.5484819359288338, 96.8398375874264}}], StatusArea[#, 1]& , TagBoxNote->"1"], StyleBox["1", { GrayLevel[0]}, StripOnInput -> False]], Annotation[#, Style[1, { GrayLevel[0]}], "Tooltip"]& ], TagBox[ TooltipBox[ TagBox[ DynamicBox[{ FEPrivate`If[ CurrentValue["MouseOver"], EdgeForm[{ GrayLevel[0.5], AbsoluteThickness[1.5], Opacity[0.66]}], {}, {}], RectangleBox[{1.166, 0}, {1.1680000000000001`, 2}, "RoundingRadius" -> 0]}, ImageSizeCache->{{308.65107913669044`, 312.0539568345325}, {-94.74287371556873, 96.8398375874264}}], StatusArea[#, 2]& , TagBoxNote->"2"], StyleBox["2", { GrayLevel[0]}, StripOnInput -> False]], Annotation[#, Style[2, { GrayLevel[0]}], "Tooltip"]& ]}, {}, {}}, AspectRatio->NCache[GoldenRatio^(-1), 0.6180339887498948], Axes->{True, True}, AxesLabel->{None, None}, AxesOrigin->{0.922, 0}, FrameTicks->{{Automatic, Automatic}, {Automatic, Automatic}}, GridLines->{None, None}, PlotRange->{{0.92, 1.2}, {All, All}}, PlotRangePadding->{{ Scaled[0.02], Scaled[0.02]}, { Scaled[0.02], Scaled[0.1]}}, Ticks->{Automatic, Automatic}]], "Output", CellChangeTimes->{3.5763887594272213`*^9}] }, Open ]], Cell[BoxData[{ RowBox[{ RowBox[{"Plot1o", "=", RowBox[{"Table", "[", RowBox[{ RowBox[{"Graphics3D", "[", RowBox[{"{", RowBox[{ RowBox[{"Opacity", "[", "0.8", "]"}], ",", RowBox[{"If", "[", RowBox[{ RowBox[{ RowBox[{"u", "[", RowBox[{"[", "i", "]"}], "]"}], "\[Equal]", "\"\\""}], ",", RowBox[{"Lighter", "[", "Blue", "]"}], ",", RowBox[{"If", "[", RowBox[{ RowBox[{ RowBox[{"u", "[", RowBox[{"[", "i", "]"}], "]"}], "\[Equal]", "\"\\""}], ",", RowBox[{"Lighter", "[", "White", "]"}], ",", RowBox[{"If", "[", RowBox[{ RowBox[{ RowBox[{"u", "[", RowBox[{"[", "i", "]"}], "]"}], "\[Equal]", "\"\\""}], ",", RowBox[{"Lighter", "[", "Red", "]"}], ",", RowBox[{"If", "[", RowBox[{ RowBox[{ RowBox[{"u", "[", RowBox[{"[", "i", "]"}], "]"}], "\[Equal]", "\"\\""}], ",", RowBox[{"Lighter", "[", "Green", "]"}], ",", RowBox[{"If", "[", RowBox[{ RowBox[{ RowBox[{"u", "[", RowBox[{"[", "i", "]"}], "]"}], "\[Equal]", "\"\\""}], ",", RowBox[{"Lighter", "[", "Orange", "]"}], ",", RowBox[{"Darker", "[", "Brown", "]"}]}], "]"}]}], "]"}]}], "]"}]}], "]"}]}], "]"}], ",", RowBox[{"Sphere", "[", RowBox[{ RowBox[{"{", RowBox[{ RowBox[{"t", "[", RowBox[{"[", RowBox[{"i", ",", "1"}], "]"}], "]"}], ",", RowBox[{"t", "[", RowBox[{"[", RowBox[{"i", ",", "2"}], "]"}], "]"}], ",", RowBox[{"t", "[", RowBox[{"[", RowBox[{"i", ",", "3"}], "]"}], "]"}]}], "}"}], ",", RowBox[{"u1", "[", RowBox[{"[", "i", "]"}], "]"}]}], "]"}]}], "}"}], "]"}], ",", RowBox[{"{", RowBox[{"i", ",", "1", ",", "n"}], "}"}]}], "]"}]}], ";"}], "\[IndentingNewLine]", RowBox[{ RowBox[{"Plot2", "=", RowBox[{"Table", "[", RowBox[{ RowBox[{"Graphics3D", "[", RowBox[{"Text", "[", RowBox[{"i", ",", RowBox[{"{", RowBox[{ RowBox[{ RowBox[{"t", "[", RowBox[{"[", RowBox[{"i", ",", "1"}], "]"}], "]"}], "-", "0.6"}], ",", RowBox[{"t", "[", RowBox[{"[", RowBox[{"i", ",", "2"}], "]"}], "]"}], ",", RowBox[{"t", "[", RowBox[{"[", RowBox[{"i", ",", "3"}], "]"}], "]"}]}], "}"}], " ", ",", RowBox[{"{", RowBox[{"1", ",", "0"}], "}"}]}], "]"}], "]"}], ",", RowBox[{"{", RowBox[{"i", ",", "1", ",", "n"}], "}"}]}], "]"}]}], ";"}]}], "Input", CellChangeTimes->{{3.575562682901544*^9, 3.575562696785568*^9}}], Cell[BoxData[{ RowBox[{ RowBox[{"wxc", "=", RowBox[{"Table", "[", RowBox[{ RowBox[{ RowBox[{ RowBox[{ RowBox[{"(", RowBox[{ RowBox[{"a", "[", RowBox[{"[", RowBox[{"i", ",", "3"}], "]"}], "]"}], "+", RowBox[{"u2", "[", RowBox[{"[", RowBox[{"a", "[", RowBox[{"[", RowBox[{"i", ",", "1"}], "]"}], "]"}], "]"}], "]"}]}], ")"}], "/", RowBox[{"(", RowBox[{ RowBox[{"u2", "[", RowBox[{"[", RowBox[{"a", "[", RowBox[{"[", RowBox[{"i", ",", "1"}], "]"}], "]"}], "]"}], "]"}], "+", RowBox[{"2", "*", RowBox[{"a", "[", RowBox[{"[", RowBox[{"i", ",", "3"}], "]"}], "]"}]}], "+", RowBox[{"u2", "[", RowBox[{"[", RowBox[{"a", "[", RowBox[{"[", RowBox[{"i", ",", "2"}], "]"}], "]"}], "]"}], "]"}]}], ")"}]}], "*", RowBox[{"(", RowBox[{ RowBox[{"x", "[", RowBox[{"[", RowBox[{"a", "[", RowBox[{"[", RowBox[{"i", ",", "2"}], "]"}], "]"}], "]"}], "]"}], "-", RowBox[{"x", "[", RowBox[{"[", RowBox[{"a", "[", RowBox[{"[", RowBox[{"i", ",", "1"}], "]"}], "]"}], "]"}], "]"}]}], ")"}]}], "+", RowBox[{"x", "[", RowBox[{"[", RowBox[{"a", "[", RowBox[{"[", RowBox[{"i", ",", "1"}], "]"}], "]"}], "]"}], "]"}]}], ",", RowBox[{"{", RowBox[{"i", ",", "1", ",", "cw"}], "}"}]}], "]"}]}], ";"}], "\n", RowBox[{ RowBox[{ RowBox[{"wyc", "=", RowBox[{"Table", "[", RowBox[{ RowBox[{ RowBox[{ RowBox[{ RowBox[{"(", RowBox[{ RowBox[{"a", "[", RowBox[{"[", RowBox[{"i", ",", "3"}], "]"}], "]"}], "+", RowBox[{"u2", "[", RowBox[{"[", RowBox[{"a", "[", RowBox[{"[", RowBox[{"i", ",", "1"}], "]"}], "]"}], "]"}], "]"}]}], ")"}], "/", RowBox[{"(", RowBox[{ RowBox[{"u2", "[", RowBox[{"[", RowBox[{"a", "[", RowBox[{"[", RowBox[{"i", ",", "1"}], "]"}], "]"}], "]"}], "]"}], "+", RowBox[{"2", "*", RowBox[{"a", "[", RowBox[{"[", RowBox[{"i", ",", "3"}], "]"}], "]"}]}], "+", RowBox[{"u2", "[", RowBox[{"[", RowBox[{"a", "[", RowBox[{"[", RowBox[{"i", ",", "2"}], "]"}], "]"}], "]"}], "]"}]}], ")"}]}], "*", RowBox[{"(", RowBox[{ RowBox[{"y", "[", RowBox[{"[", RowBox[{"a", "[", RowBox[{"[", RowBox[{"i", ",", "2"}], "]"}], "]"}], "]"}], "]"}], "-", RowBox[{"y", "[", RowBox[{"[", RowBox[{"a", "[", RowBox[{"[", RowBox[{"i", ",", "1"}], "]"}], "]"}], "]"}], "]"}]}], ")"}]}], "+", RowBox[{"y", "[", RowBox[{"[", RowBox[{"a", "[", RowBox[{"[", RowBox[{"i", ",", "1"}], "]"}], "]"}], "]"}], "]"}]}], ",", RowBox[{"{", RowBox[{"i", ",", "1", ",", "cw"}], "}"}]}], "]"}]}], ";"}], " "}], "\n", RowBox[{ RowBox[{"wzc", "=", RowBox[{"Table", "[", RowBox[{ RowBox[{ RowBox[{ RowBox[{ RowBox[{"(", RowBox[{ RowBox[{"a", "[", RowBox[{"[", RowBox[{"i", ",", "3"}], "]"}], "]"}], "+", RowBox[{"u2", "[", RowBox[{"[", RowBox[{"a", "[", RowBox[{"[", RowBox[{"i", ",", "1"}], "]"}], "]"}], "]"}], "]"}]}], ")"}], "/", RowBox[{"(", RowBox[{ RowBox[{"u2", "[", RowBox[{"[", RowBox[{"a", "[", RowBox[{"[", RowBox[{"i", ",", "1"}], "]"}], "]"}], "]"}], "]"}], "+", RowBox[{"2", "*", RowBox[{"a", "[", RowBox[{"[", RowBox[{"i", ",", "3"}], "]"}], "]"}]}], "+", RowBox[{"u2", "[", RowBox[{"[", RowBox[{"a", "[", RowBox[{"[", RowBox[{"i", ",", "2"}], "]"}], "]"}], "]"}], "]"}]}], ")"}]}], "*", RowBox[{"(", RowBox[{ RowBox[{"z", "[", RowBox[{"[", RowBox[{"a", "[", RowBox[{"[", RowBox[{"i", ",", "2"}], "]"}], "]"}], "]"}], "]"}], "-", RowBox[{"z", "[", RowBox[{"[", RowBox[{"a", "[", RowBox[{"[", RowBox[{"i", ",", "1"}], "]"}], "]"}], "]"}], "]"}]}], ")"}]}], "+", RowBox[{"z", "[", RowBox[{"[", RowBox[{"a", "[", RowBox[{"[", RowBox[{"i", ",", "1"}], "]"}], "]"}], "]"}], "]"}]}], ",", RowBox[{"{", RowBox[{"i", ",", "1", ",", "cw"}], "}"}]}], "]"}]}], ";"}]}], "Input", CellChangeTimes->{{3.5681365021632137`*^9, 3.5681365171392403`*^9}, { 3.568136560351316*^9, 3.5681365863097615`*^9}, {3.5681369135895367`*^9, 3.5681369265999594`*^9}, {3.568137821916732*^9, 3.5681378378443604`*^9}, { 3.5682072492149415`*^9, 3.5682072529901485`*^9}, 3.568209802830227*^9, { 3.5682216503836985`*^9, 3.5682217583046885`*^9}, {3.5682217912831464`*^9, 3.568221843465238*^9}, {3.5682219760654707`*^9, 3.5682221133457117`*^9}, { 3.568222159615393*^9, 3.5682221693498106`*^9}, {3.5682222565227633`*^9, 3.5682222578487663`*^9}, 3.5682224736283445`*^9, 3.5682227227607822`*^9, 3.5682227558640404`*^9, {3.568222818810151*^9, 3.5682228486062036`*^9}, { 3.5682230057764797`*^9, 3.5682230079916835`*^9}, {3.568223041952943*^9, 3.5682230548229656`*^9}, 3.5682232619601297`*^9, 3.5682233000709963`*^9, { 3.568223536645412*^9, 3.5682235381118145`*^9}, {3.568223591151908*^9, 3.568223591526308*^9}, {3.5682236491528096`*^9, 3.568223657483224*^9}, { 3.568223713222122*^9, 3.5682237532361927`*^9}, {3.568223800379475*^9, 3.568223827648323*^9}, {3.5682238887380304`*^9, 3.5682238893152313`*^9}, { 3.5682240287170763`*^9, 3.5682240612431335`*^9}, 3.5682241088076167`*^9, { 3.568224198772975*^9, 3.5682242396450467`*^9}, {3.568224282170721*^9, 3.5682243185031853`*^9}, {3.568224437890195*^9, 3.568224439590598*^9}, { 3.568224572253231*^9, 3.5682245867144566`*^9}, {3.5682247081762695`*^9, 3.568224733557514*^9}, {3.56822480520844*^9, 3.5682248433505073`*^9}, { 3.568224884206979*^9, 3.5682248959069996`*^9}, {3.568224982830352*^9, 3.5682250047639904`*^9}, {3.56822503870965*^9, 3.5682250803305235`*^9}, { 3.5682251223413973`*^9, 3.568225141451431*^9}, {3.568225234177994*^9, 3.5682252929588966`*^9}, {3.5682253775890455`*^9, 3.568225482140429*^9}, { 3.56822551694409*^9, 3.5682255297205124`*^9}, {3.568225573197789*^9, 3.5682255809666023`*^9}, 3.568225660698343*^9, 3.5682257301964645`*^9, { 3.568225765078126*^9, 3.5682257828933573`*^9}, {3.568225927026843*^9, 3.568225927416844*^9}, {3.568267062420238*^9, 3.568267081358671*^9}, { 3.568267188328059*^9, 3.5682672830358257`*^9}, {3.5682676367040462`*^9, 3.568267747979042*^9}, 3.5682678404716043`*^9, 3.568267882030078*^9, { 3.5682679252577534`*^9, 3.568267996612279*^9}, {3.5682680488879704`*^9, 3.568268061133992*^9}, {3.568268100914062*^9, 3.5682681150944867`*^9}, { 3.5682681672609787`*^9, 3.5682681709113846`*^9}, {3.568268272904364*^9, 3.5682683182536435`*^9}, {3.5682685202739983`*^9, 3.568268599194537*^9}, { 3.5682686348873997`*^9, 3.568268637773405*^9}, {3.5682686944951043`*^9, 3.568268872273017*^9}, {3.5682689420207396`*^9, 3.568269016947671*^9}, { 3.5682695040741262`*^9, 3.568269601153097*^9}, {3.5682696652380095`*^9, 3.5682696728352227`*^9}, {3.5682697489633565`*^9, 3.5682698308635006`*^9}, {3.568271156491429*^9, 3.568271160063835*^9}, { 3.568271244927984*^9, 3.568271369010602*^9}, {3.5682716250070515`*^9, 3.5682717312276382`*^9}, {3.5682717843301315`*^9, 3.5682718576814604`*^9}, {3.568271940673606*^9, 3.5682720536490045`*^9}, { 3.5682722259669075`*^9, 3.5682723223126764`*^9}, {3.568272370813162*^9, 3.568272411466833*^9}, {3.5682725893539457`*^9, 3.568272622238803*^9}, { 3.5682726936713285`*^9, 3.5682726960113325`*^9}, {3.568272741079812*^9, 3.56827275143823*^9}, {3.5682729218373294`*^9, 3.568272991070251*^9}, { 3.5682734285574193`*^9, 3.5682734302890224`*^9}, {3.5682734898811274`*^9, 3.5682735111595645`*^9}, {3.5682736115925407`*^9, 3.5682736313577757`*^9}, {3.5682738601945777`*^9, 3.568273987272401*^9}, { 3.5682763944346285`*^9, 3.5682764313910933`*^9}, 3.5682765128232365`*^9, { 3.5682766527398825`*^9, 3.568276660976697*^9}, {3.5682774496048822`*^9, 3.568277461663703*^9}, {3.5683784032731285`*^9, 3.568378422991563*^9}, { 3.568378459308427*^9, 3.5683784812420654`*^9}, {3.568378513440522*^9, 3.568378867046343*^9}, {3.568378915468828*^9, 3.56837896203491*^9}, { 3.5683790764299107`*^9, 3.568379270041851*^9}, {3.568380233530743*^9, 3.568380234388745*^9}, 3.5683804214954734`*^9, 3.568380471867962*^9, 3.5683805399464817`*^9, {3.5683812396077104`*^9, 3.568381293537005*^9}, { 3.568381339541486*^9, 3.5683813935175805`*^9}, 3.5684646396646404`*^9, 3.5684646988823442`*^9, 3.568465086387025*^9, {3.5684655859935026`*^9, 3.568465605087936*^9}, 3.568821235038273*^9, 3.5688233741452303`*^9, 3.568823449742963*^9, 3.5688274593312387`*^9, {3.5688284679978104`*^9, 3.5688284689026117`*^9}, {3.5688285131598897`*^9, 3.5688285201487017`*^9}, 3.5688285866360188`*^9, {3.5688292397623663`*^9, 3.568829246688778*^9}, { 3.5688780328231993`*^9, 3.568878075458074*^9}, 3.5688953020257144`*^9, 3.5693395777359695`*^9, {3.569339615191635*^9, 3.569339617079238*^9}, { 3.5693396917877693`*^9, 3.56933969216217*^9}, 3.5693893483274703`*^9}], Cell[BoxData[ RowBox[{ RowBox[{"Plot7", "=", RowBox[{"Table", "[", RowBox[{ RowBox[{"Graphics3D", "[", RowBox[{"{", RowBox[{ RowBox[{"Darker", "[", RowBox[{"Brown", ",", "0.4"}], "]"}], ",", RowBox[{"Opacity", "[", "0.5", "]"}], ",", RowBox[{"Sphere", "[", RowBox[{ RowBox[{"{", RowBox[{ RowBox[{"wxc", "[", RowBox[{"[", "i", "]"}], "]"}], ",", RowBox[{"wyc", "[", RowBox[{"[", "i", "]"}], "]"}], ",", RowBox[{"wzc", "[", RowBox[{"[", "i", "]"}], "]"}]}], "}"}], ",", RowBox[{"a", "[", RowBox[{"[", RowBox[{"i", ",", "3"}], "]"}], "]"}]}], "]"}]}], "}"}], "]"}], ",", RowBox[{"{", RowBox[{"i", ",", "1", ",", "cw"}], "}"}]}], "]"}]}], ";"}]], "Input", CellChangeTimes->{{3.5681365021632137`*^9, 3.5681365171392403`*^9}, { 3.568136560351316*^9, 3.5681365863097615`*^9}, {3.5681369135895367`*^9, 3.5681369265999594`*^9}, {3.568137821916732*^9, 3.5681378378443604`*^9}, { 3.5682072492149415`*^9, 3.5682072529901485`*^9}, 3.568209802830227*^9, { 3.5682216503836985`*^9, 3.5682217583046885`*^9}, {3.5682217912831464`*^9, 3.568221843465238*^9}, {3.5682219760654707`*^9, 3.5682221133457117`*^9}, { 3.568222159615393*^9, 3.5682221693498106`*^9}, {3.5682222565227633`*^9, 3.5682222578487663`*^9}, 3.5682224736283445`*^9, 3.5682227227607822`*^9, 3.5682227558640404`*^9, {3.568222818810151*^9, 3.5682228486062036`*^9}, { 3.5682230057764797`*^9, 3.5682230079916835`*^9}, {3.568223041952943*^9, 3.5682230548229656`*^9}, 3.5682232619601297`*^9, 3.5682233000709963`*^9, { 3.568223536645412*^9, 3.5682235381118145`*^9}, {3.568223591151908*^9, 3.568223591526308*^9}, {3.5682236491528096`*^9, 3.568223657483224*^9}, { 3.568223713222122*^9, 3.5682237532361927`*^9}, {3.568223800379475*^9, 3.568223827648323*^9}, {3.5682238887380304`*^9, 3.5682238893152313`*^9}, { 3.5682240287170763`*^9, 3.5682240612431335`*^9}, 3.5682241088076167`*^9, { 3.568224198772975*^9, 3.5682242396450467`*^9}, {3.568224282170721*^9, 3.5682243185031853`*^9}, {3.568224437890195*^9, 3.568224439590598*^9}, { 3.568224572253231*^9, 3.5682245867144566`*^9}, {3.5682247081762695`*^9, 3.568224733557514*^9}, {3.56822480520844*^9, 3.5682248433505073`*^9}, { 3.568224884206979*^9, 3.5682248959069996`*^9}, {3.568224982830352*^9, 3.5682250047639904`*^9}, {3.56822503870965*^9, 3.5682250803305235`*^9}, { 3.5682251223413973`*^9, 3.568225141451431*^9}, {3.568225234177994*^9, 3.5682252929588966`*^9}, {3.5682253775890455`*^9, 3.568225482140429*^9}, { 3.56822551694409*^9, 3.5682255297205124`*^9}, {3.568225573197789*^9, 3.5682255809666023`*^9}, 3.568225660698343*^9, 3.5682257301964645`*^9, { 3.568225765078126*^9, 3.5682257828933573`*^9}, {3.568225927026843*^9, 3.568225927416844*^9}, {3.568267062420238*^9, 3.568267081358671*^9}, { 3.568267188328059*^9, 3.5682672830358257`*^9}, {3.5682676367040462`*^9, 3.568267747979042*^9}, 3.5682678404716043`*^9, 3.568267882030078*^9, { 3.5682679252577534`*^9, 3.568267996612279*^9}, {3.5682680488879704`*^9, 3.568268061133992*^9}, {3.568268100914062*^9, 3.5682681150944867`*^9}, { 3.5682681672609787`*^9, 3.5682681709113846`*^9}, {3.568268272904364*^9, 3.5682683182536435`*^9}, {3.5682685202739983`*^9, 3.568268599194537*^9}, { 3.5682686348873997`*^9, 3.568268637773405*^9}, {3.5682686944951043`*^9, 3.568268872273017*^9}, {3.5682689420207396`*^9, 3.568269016947671*^9}, { 3.5682695040741262`*^9, 3.568269601153097*^9}, {3.5682696652380095`*^9, 3.5682696728352227`*^9}, {3.5682697489633565`*^9, 3.5682698308635006`*^9}, {3.568271156491429*^9, 3.568271160063835*^9}, { 3.568271244927984*^9, 3.568271369010602*^9}, {3.5682716250070515`*^9, 3.5682717312276382`*^9}, {3.5682717843301315`*^9, 3.5682718576814604`*^9}, {3.568271940673606*^9, 3.5682720536490045`*^9}, { 3.5682722259669075`*^9, 3.5682723223126764`*^9}, {3.568272370813162*^9, 3.568272411466833*^9}, {3.5682725893539457`*^9, 3.568272622238803*^9}, { 3.5682726936713285`*^9, 3.5682726960113325`*^9}, {3.568272741079812*^9, 3.56827275143823*^9}, {3.5682729218373294`*^9, 3.568272991070251*^9}, { 3.5682734285574193`*^9, 3.5682734302890224`*^9}, {3.5682734898811274`*^9, 3.5682735111595645`*^9}, {3.5682736115925407`*^9, 3.5682736313577757`*^9}, {3.5682738601945777`*^9, 3.568273987272401*^9}, { 3.5682763944346285`*^9, 3.5682764313910933`*^9}, 3.5682765128232365`*^9, { 3.5682766527398825`*^9, 3.568276660976697*^9}, {3.5682774496048822`*^9, 3.568277461663703*^9}, {3.5683784032731285`*^9, 3.568378422991563*^9}, { 3.568378459308427*^9, 3.5683784812420654`*^9}, {3.568378513440522*^9, 3.568378867046343*^9}, {3.568378915468828*^9, 3.56837896203491*^9}, { 3.5683790764299107`*^9, 3.568379270041851*^9}, {3.568380233530743*^9, 3.568380234388745*^9}, 3.5683804214954734`*^9, 3.568380471867962*^9, 3.5683805399464817`*^9, {3.5683812396077104`*^9, 3.568381293537005*^9}, { 3.568381339541486*^9, 3.5683813935175805`*^9}, 3.5684646396646404`*^9, 3.5684646988823442`*^9, 3.568465086387025*^9, {3.5684655859935026`*^9, 3.568465605087936*^9}, 3.568821235038273*^9, 3.5688233741452303`*^9, 3.568823449742963*^9, 3.5688274593312387`*^9, {3.5688284679978104`*^9, 3.5688284689026117`*^9}, {3.5688285131598897`*^9, 3.5688285201487017`*^9}, 3.5688285866360188`*^9, {3.5688292397623663`*^9, 3.568829246688778*^9}, { 3.5688780328231993`*^9, 3.56887811871695*^9}, {3.568895331556566*^9, 3.5688953367201753`*^9}, 3.568895995276532*^9, {3.5693397032225895`*^9, 3.56933970331619*^9}, 3.569339737137049*^9, 3.569340055299608*^9, 3.569389360947892*^9, {3.570298060155057*^9, 3.570298071589877*^9}, { 3.5704539766451664`*^9, 3.5704539773627677`*^9}, {3.5709509139026003`*^9, 3.570950950500265*^9}, {3.570950995397144*^9, 3.5709510449896307`*^9}, { 3.570974064815357*^9, 3.5709741190878525`*^9}, {3.5709742487084804`*^9, 3.570974273528124*^9}, {3.5713747544125347`*^9, 3.571374762618149*^9}, 3.5713830670175667`*^9, {3.575602053545355*^9, 3.575602059286165*^9}}], Cell[BoxData[{ RowBox[{ RowBox[{"wxh", "=", RowBox[{"Table", "[", RowBox[{ RowBox[{ RowBox[{ RowBox[{ RowBox[{"(", RowBox[{ RowBox[{"a", "[", RowBox[{"[", RowBox[{"i", ",", "3"}], "]"}], "]"}], "+", RowBox[{"u2", "[", RowBox[{"[", RowBox[{"a", "[", RowBox[{"[", RowBox[{"i", ",", "2"}], "]"}], "]"}], "]"}], "]"}]}], ")"}], "/", RowBox[{"(", RowBox[{ RowBox[{"u2", "[", RowBox[{"[", RowBox[{"a", "[", RowBox[{"[", RowBox[{"i", ",", "1"}], "]"}], "]"}], "]"}], "]"}], "+", RowBox[{"a", "[", RowBox[{"[", RowBox[{"i", ",", "3"}], "]"}], "]"}], "+", RowBox[{"u2", "[", RowBox[{"[", RowBox[{"a", "[", RowBox[{"[", RowBox[{"i", ",", "2"}], "]"}], "]"}], "]"}], "]"}]}], ")"}]}], "*", RowBox[{"(", RowBox[{ RowBox[{"x", "[", RowBox[{"[", RowBox[{"a", "[", RowBox[{"[", RowBox[{"i", ",", "1"}], "]"}], "]"}], "]"}], "]"}], "-", RowBox[{"x", "[", RowBox[{"[", RowBox[{"a", "[", RowBox[{"[", RowBox[{"i", ",", "2"}], "]"}], "]"}], "]"}], "]"}]}], ")"}]}], "+", RowBox[{"x", "[", RowBox[{"[", RowBox[{"a", "[", RowBox[{"[", RowBox[{"i", ",", "2"}], "]"}], "]"}], "]"}], "]"}]}], ",", RowBox[{"{", RowBox[{"i", ",", RowBox[{"cw", "+", "1"}], ",", "nb"}], "}"}]}], "]"}]}], ";"}], "\n", RowBox[{ RowBox[{"wyh", "=", RowBox[{"Table", "[", RowBox[{ RowBox[{ RowBox[{ RowBox[{ RowBox[{"(", RowBox[{ RowBox[{"a", "[", RowBox[{"[", RowBox[{"i", ",", "3"}], "]"}], "]"}], "+", RowBox[{"u2", "[", RowBox[{"[", RowBox[{"a", "[", RowBox[{"[", RowBox[{"i", ",", "2"}], "]"}], "]"}], "]"}], "]"}]}], ")"}], "/", RowBox[{"(", RowBox[{ RowBox[{"u2", "[", RowBox[{"[", RowBox[{"a", "[", RowBox[{"[", RowBox[{"i", ",", "1"}], "]"}], "]"}], "]"}], "]"}], "+", RowBox[{"a", "[", RowBox[{"[", RowBox[{"i", ",", "3"}], "]"}], "]"}], "+", RowBox[{"u2", "[", RowBox[{"[", RowBox[{"a", "[", RowBox[{"[", RowBox[{"i", ",", "2"}], "]"}], "]"}], "]"}], "]"}]}], ")"}]}], "*", RowBox[{"(", RowBox[{ RowBox[{"y", "[", RowBox[{"[", RowBox[{"a", "[", RowBox[{"[", RowBox[{"i", ",", "1"}], "]"}], "]"}], "]"}], "]"}], "-", RowBox[{"y", "[", RowBox[{"[", RowBox[{"a", "[", RowBox[{"[", RowBox[{"i", ",", "2"}], "]"}], "]"}], "]"}], "]"}]}], ")"}]}], "+", RowBox[{"y", "[", RowBox[{"[", RowBox[{"a", "[", RowBox[{"[", RowBox[{"i", ",", "2"}], "]"}], "]"}], "]"}], "]"}]}], ",", RowBox[{"{", RowBox[{"i", ",", RowBox[{"cw", "+", "1"}], ",", "nb"}], "}"}]}], "]"}]}], ";"}], "\n", RowBox[{ RowBox[{"wzh", "=", RowBox[{"Table", "[", RowBox[{ RowBox[{ RowBox[{ RowBox[{ RowBox[{"(", RowBox[{ RowBox[{"a", "[", RowBox[{"[", RowBox[{"i", ",", "3"}], "]"}], "]"}], "+", RowBox[{"u2", "[", RowBox[{"[", RowBox[{"a", "[", RowBox[{"[", RowBox[{"i", ",", "2"}], "]"}], "]"}], "]"}], "]"}]}], ")"}], "/", RowBox[{"(", RowBox[{ RowBox[{"u2", "[", RowBox[{"[", RowBox[{"a", "[", RowBox[{"[", RowBox[{"i", ",", "1"}], "]"}], "]"}], "]"}], "]"}], "+", RowBox[{"a", "[", RowBox[{"[", RowBox[{"i", ",", "3"}], "]"}], "]"}], "+", RowBox[{"u2", "[", RowBox[{"[", RowBox[{"a", "[", RowBox[{"[", RowBox[{"i", ",", "2"}], "]"}], "]"}], "]"}], "]"}]}], ")"}]}], "*", RowBox[{"(", RowBox[{ RowBox[{"z", "[", RowBox[{"[", RowBox[{"a", "[", RowBox[{"[", RowBox[{"i", ",", "1"}], "]"}], "]"}], "]"}], "]"}], "-", RowBox[{"z", "[", RowBox[{"[", RowBox[{"a", "[", RowBox[{"[", RowBox[{"i", ",", "2"}], "]"}], "]"}], "]"}], "]"}]}], ")"}]}], "+", RowBox[{"z", "[", RowBox[{"[", RowBox[{"a", "[", RowBox[{"[", RowBox[{"i", ",", "2"}], "]"}], "]"}], "]"}], "]"}]}], ",", RowBox[{"{", RowBox[{"i", ",", RowBox[{"cw", "+", "1"}], ",", "nb"}], "}"}]}], "]"}]}], ";"}]}], "Input", CellChangeTimes->{{3.5681365021632137`*^9, 3.5681365171392403`*^9}, { 3.568136560351316*^9, 3.5681365863097615`*^9}, {3.5681369135895367`*^9, 3.5681369265999594`*^9}, {3.568137821916732*^9, 3.5681378378443604`*^9}, { 3.5682072492149415`*^9, 3.5682072529901485`*^9}, 3.568209802830227*^9, { 3.5682216503836985`*^9, 3.5682217583046885`*^9}, {3.5682217912831464`*^9, 3.568221843465238*^9}, {3.5682219760654707`*^9, 3.5682221133457117`*^9}, { 3.568222159615393*^9, 3.5682221693498106`*^9}, {3.5682222565227633`*^9, 3.5682222578487663`*^9}, 3.5682224736283445`*^9, 3.5682227227607822`*^9, 3.5682227558640404`*^9, {3.568222818810151*^9, 3.5682228486062036`*^9}, { 3.5682230057764797`*^9, 3.5682230079916835`*^9}, {3.568223041952943*^9, 3.5682230548229656`*^9}, 3.5682232619601297`*^9, 3.5682233000709963`*^9, { 3.568223536645412*^9, 3.5682235381118145`*^9}, {3.568223591151908*^9, 3.568223591526308*^9}, {3.5682236491528096`*^9, 3.568223657483224*^9}, { 3.568223713222122*^9, 3.5682237532361927`*^9}, {3.568223800379475*^9, 3.568223827648323*^9}, {3.5682238887380304`*^9, 3.5682238893152313`*^9}, { 3.5682240287170763`*^9, 3.5682240612431335`*^9}, 3.5682241088076167`*^9, { 3.568224198772975*^9, 3.5682242396450467`*^9}, {3.568224282170721*^9, 3.5682243185031853`*^9}, {3.568224437890195*^9, 3.568224439590598*^9}, { 3.568224572253231*^9, 3.5682245867144566`*^9}, {3.5682247081762695`*^9, 3.568224733557514*^9}, {3.56822480520844*^9, 3.5682248433505073`*^9}, { 3.568224884206979*^9, 3.5682248959069996`*^9}, {3.568224982830352*^9, 3.5682250047639904`*^9}, {3.56822503870965*^9, 3.5682250803305235`*^9}, { 3.5682251223413973`*^9, 3.568225141451431*^9}, {3.568225234177994*^9, 3.5682252929588966`*^9}, {3.5682253775890455`*^9, 3.568225482140429*^9}, { 3.56822551694409*^9, 3.5682255297205124`*^9}, {3.568225573197789*^9, 3.5682255809666023`*^9}, 3.568225660698343*^9, 3.5682257301964645`*^9, { 3.568225765078126*^9, 3.5682257828933573`*^9}, {3.568225927026843*^9, 3.568225927416844*^9}, {3.568267062420238*^9, 3.568267081358671*^9}, { 3.568267188328059*^9, 3.5682672830358257`*^9}, {3.5682676367040462`*^9, 3.568267747979042*^9}, 3.5682678404716043`*^9, 3.568267882030078*^9, { 3.5682679252577534`*^9, 3.568267996612279*^9}, {3.5682680488879704`*^9, 3.568268061133992*^9}, {3.568268100914062*^9, 3.5682681150944867`*^9}, { 3.5682681672609787`*^9, 3.5682681709113846`*^9}, {3.568268272904364*^9, 3.5682683182536435`*^9}, {3.5682685202739983`*^9, 3.568268599194537*^9}, { 3.5682686348873997`*^9, 3.568268637773405*^9}, {3.5682686944951043`*^9, 3.568268872273017*^9}, {3.5682689420207396`*^9, 3.568269016947671*^9}, { 3.5682695040741262`*^9, 3.568269601153097*^9}, {3.5682696652380095`*^9, 3.5682696728352227`*^9}, {3.5682697489633565`*^9, 3.5682698308635006`*^9}, {3.568271156491429*^9, 3.568271160063835*^9}, { 3.568271244927984*^9, 3.568271369010602*^9}, {3.5682716250070515`*^9, 3.5682717312276382`*^9}, {3.5682717843301315`*^9, 3.5682718576814604`*^9}, {3.568271940673606*^9, 3.5682720536490045`*^9}, { 3.5682722259669075`*^9, 3.5682723223126764`*^9}, {3.568272370813162*^9, 3.568272411466833*^9}, {3.5682725893539457`*^9, 3.568272622238803*^9}, { 3.5682726936713285`*^9, 3.5682726960113325`*^9}, {3.568272741079812*^9, 3.56827275143823*^9}, {3.5682729218373294`*^9, 3.568272991070251*^9}, { 3.5682734285574193`*^9, 3.5682734302890224`*^9}, {3.5682734898811274`*^9, 3.5682735111595645`*^9}, {3.5682736115925407`*^9, 3.5682736313577757`*^9}, {3.5682738601945777`*^9, 3.568273987272401*^9}, { 3.5682763944346285`*^9, 3.5682764313910933`*^9}, 3.5682765128232365`*^9, { 3.5682766527398825`*^9, 3.568276660976697*^9}, {3.5682774496048822`*^9, 3.568277461663703*^9}, {3.5683784032731285`*^9, 3.568378422991563*^9}, { 3.568378459308427*^9, 3.5683784812420654`*^9}, {3.568378513440522*^9, 3.568378867046343*^9}, {3.568378915468828*^9, 3.56837896203491*^9}, { 3.5683790764299107`*^9, 3.568379270041851*^9}, {3.568380233530743*^9, 3.568380234388745*^9}, 3.5683804214954734`*^9, 3.568380471867962*^9, 3.5683805399464817`*^9, {3.5683812396077104`*^9, 3.568381293537005*^9}, { 3.568381339541486*^9, 3.5683813935175805`*^9}, 3.5684646396646404`*^9, 3.5684646988823442`*^9, 3.568465086387025*^9, {3.5684655859935026`*^9, 3.568465605087936*^9}, 3.568821235038273*^9, 3.5688233741452303`*^9, 3.568823449742963*^9, 3.5688274593312387`*^9, {3.5688284679978104`*^9, 3.5688284689026117`*^9}, {3.5688285131598897`*^9, 3.5688285201487017`*^9}, 3.5688285866360188`*^9, {3.5688292397623663`*^9, 3.568829246688778*^9}, { 3.5688780328231993`*^9, 3.5688781280925665`*^9}, 3.568895312524533*^9, 3.5693395940691977`*^9, {3.5693396336776676`*^9, 3.5693396557829065`*^9}, { 3.569340069402033*^9, 3.569340092412073*^9}, {3.569389186383586*^9, 3.5693891947764006`*^9}, {3.569389263291721*^9, 3.569389289686967*^9}, 3.569389336315449*^9}], Cell[BoxData[ RowBox[{ RowBox[{"Plot8", "=", RowBox[{"Table", "[", RowBox[{ RowBox[{"Graphics3D", "[", RowBox[{"{", RowBox[{ RowBox[{"Opacity", "[", "0.5", "]"}], ",", RowBox[{"Sphere", "[", RowBox[{ RowBox[{"{", RowBox[{ RowBox[{"wxh", "[", RowBox[{"[", "i", "]"}], "]"}], ",", RowBox[{"wyh", "[", RowBox[{"[", "i", "]"}], "]"}], ",", RowBox[{"wzh", "[", RowBox[{"[", "i", "]"}], "]"}]}], "}"}], ",", RowBox[{"a", "[", RowBox[{"[", RowBox[{ RowBox[{"i", "+", "cw"}], ",", "3"}], "]"}], "]"}]}], "]"}]}], "}"}], "]"}], ",", RowBox[{"{", RowBox[{"i", ",", "1", ",", "bh"}], "}"}]}], "]"}]}], ";"}]], "Input", CellChangeTimes->{{3.5681365021632137`*^9, 3.5681365171392403`*^9}, { 3.568136560351316*^9, 3.5681365863097615`*^9}, {3.5681369135895367`*^9, 3.5681369265999594`*^9}, {3.568137821916732*^9, 3.5681378378443604`*^9}, { 3.5682072492149415`*^9, 3.5682072529901485`*^9}, 3.568209802830227*^9, { 3.5682216503836985`*^9, 3.5682217583046885`*^9}, {3.5682217912831464`*^9, 3.568221843465238*^9}, {3.5682219760654707`*^9, 3.5682221133457117`*^9}, { 3.568222159615393*^9, 3.5682221693498106`*^9}, {3.5682222565227633`*^9, 3.5682222578487663`*^9}, 3.5682224736283445`*^9, 3.5682227227607822`*^9, 3.5682227558640404`*^9, {3.568222818810151*^9, 3.5682228486062036`*^9}, { 3.5682230057764797`*^9, 3.5682230079916835`*^9}, {3.568223041952943*^9, 3.5682230548229656`*^9}, 3.5682232619601297`*^9, 3.5682233000709963`*^9, { 3.568223536645412*^9, 3.5682235381118145`*^9}, {3.568223591151908*^9, 3.568223591526308*^9}, {3.5682236491528096`*^9, 3.568223657483224*^9}, { 3.568223713222122*^9, 3.5682237532361927`*^9}, {3.568223800379475*^9, 3.568223827648323*^9}, {3.5682238887380304`*^9, 3.5682238893152313`*^9}, { 3.5682240287170763`*^9, 3.5682240612431335`*^9}, 3.5682241088076167`*^9, { 3.568224198772975*^9, 3.5682242396450467`*^9}, {3.568224282170721*^9, 3.5682243185031853`*^9}, {3.568224437890195*^9, 3.568224439590598*^9}, { 3.568224572253231*^9, 3.5682245867144566`*^9}, {3.5682247081762695`*^9, 3.568224733557514*^9}, {3.56822480520844*^9, 3.5682248433505073`*^9}, { 3.568224884206979*^9, 3.5682248959069996`*^9}, {3.568224982830352*^9, 3.5682250047639904`*^9}, {3.56822503870965*^9, 3.5682250803305235`*^9}, { 3.5682251223413973`*^9, 3.568225141451431*^9}, {3.568225234177994*^9, 3.5682252929588966`*^9}, {3.5682253775890455`*^9, 3.568225482140429*^9}, { 3.56822551694409*^9, 3.5682255297205124`*^9}, {3.568225573197789*^9, 3.5682255809666023`*^9}, 3.568225660698343*^9, 3.5682257301964645`*^9, { 3.568225765078126*^9, 3.5682257828933573`*^9}, {3.568225927026843*^9, 3.568225927416844*^9}, {3.568267062420238*^9, 3.568267081358671*^9}, { 3.568267188328059*^9, 3.5682672830358257`*^9}, {3.5682676367040462`*^9, 3.568267747979042*^9}, 3.5682678404716043`*^9, 3.568267882030078*^9, { 3.5682679252577534`*^9, 3.568267996612279*^9}, {3.5682680488879704`*^9, 3.568268061133992*^9}, {3.568268100914062*^9, 3.5682681150944867`*^9}, { 3.5682681672609787`*^9, 3.5682681709113846`*^9}, {3.568268272904364*^9, 3.5682683182536435`*^9}, {3.5682685202739983`*^9, 3.568268599194537*^9}, { 3.5682686348873997`*^9, 3.568268637773405*^9}, {3.5682686944951043`*^9, 3.568268872273017*^9}, {3.5682689420207396`*^9, 3.568269016947671*^9}, { 3.5682695040741262`*^9, 3.568269601153097*^9}, {3.5682696652380095`*^9, 3.5682696728352227`*^9}, {3.5682697489633565`*^9, 3.5682698308635006`*^9}, {3.568271156491429*^9, 3.568271160063835*^9}, { 3.568271244927984*^9, 3.568271369010602*^9}, {3.5682716250070515`*^9, 3.5682717312276382`*^9}, {3.5682717843301315`*^9, 3.5682718576814604`*^9}, {3.568271940673606*^9, 3.5682720536490045`*^9}, { 3.5682722259669075`*^9, 3.5682723223126764`*^9}, {3.568272370813162*^9, 3.568272411466833*^9}, {3.5682725893539457`*^9, 3.568272622238803*^9}, { 3.5682726936713285`*^9, 3.5682726960113325`*^9}, {3.568272741079812*^9, 3.56827275143823*^9}, {3.5682729218373294`*^9, 3.568272991070251*^9}, { 3.5682734285574193`*^9, 3.5682734302890224`*^9}, {3.5682734898811274`*^9, 3.5682735111595645`*^9}, {3.5682736115925407`*^9, 3.5682736313577757`*^9}, {3.5682738601945777`*^9, 3.568273987272401*^9}, { 3.5682763944346285`*^9, 3.5682764313910933`*^9}, 3.5682765128232365`*^9, { 3.5682766527398825`*^9, 3.568276660976697*^9}, {3.5682774496048822`*^9, 3.568277461663703*^9}, {3.5683784032731285`*^9, 3.568378422991563*^9}, { 3.568378459308427*^9, 3.5683784812420654`*^9}, {3.568378513440522*^9, 3.568378867046343*^9}, {3.568378915468828*^9, 3.56837896203491*^9}, { 3.5683790764299107`*^9, 3.568379270041851*^9}, {3.568380233530743*^9, 3.568380234388745*^9}, 3.5683804214954734`*^9, 3.568380471867962*^9, 3.5683805399464817`*^9, {3.5683812396077104`*^9, 3.568381293537005*^9}, { 3.568381339541486*^9, 3.5683813935175805`*^9}, 3.5684646396646404`*^9, 3.5684646988823442`*^9, 3.568465086387025*^9, {3.5684655859935026`*^9, 3.568465605087936*^9}, 3.568821235038273*^9, 3.5688233741452303`*^9, 3.568823449742963*^9, 3.5688274593312387`*^9, {3.5688284679978104`*^9, 3.5688284689026117`*^9}, {3.5688285131598897`*^9, 3.5688285201487017`*^9}, 3.5688285866360188`*^9, {3.5688292397623663`*^9, 3.568829246688778*^9}, { 3.5688780328231993`*^9, 3.568878147967001*^9}, {3.56889532230575*^9, 3.5688953242557535`*^9}, 3.56889600529175*^9, 3.5688961595292206`*^9, { 3.5693396821781526`*^9, 3.5693396825213532`*^9}, 3.5693893658151007`*^9, { 3.5693895413934093`*^9, 3.5693895427506113`*^9}, {3.5697651043452682`*^9, 3.5697651089940763`*^9}, {3.5704647001766*^9, 3.570464712141821*^9}}], Cell[BoxData[{ RowBox[{ RowBox[{"Plot8a", "=", RowBox[{"Table", "[", RowBox[{ RowBox[{"Graphics3D", "[", RowBox[{"{", RowBox[{ RowBox[{"Opacity", "[", "0.3", "]"}], ",", RowBox[{"Lighter", "[", "Cyan", "]"}], ",", RowBox[{"Sphere", "[", RowBox[{ RowBox[{"tpo", "[", RowBox[{"[", "i", "]"}], "]"}], ",", RowBox[{"rpo", "[", RowBox[{"[", "i", "]"}], "]"}]}], "]"}]}], "}"}], "]"}], ",", RowBox[{"{", RowBox[{"i", ",", "1", ",", "cj"}], "}"}]}], "]"}]}], ";"}], "\[IndentingNewLine]", RowBox[{ RowBox[{"Plot8b", "=", RowBox[{"Table", "[", RowBox[{ RowBox[{"Graphics3D", "[", RowBox[{"{", RowBox[{ RowBox[{"Opacity", "[", "0.3", "]"}], ",", RowBox[{"Lighter", "[", "Yellow", "]"}], ",", RowBox[{"Sphere", "[", RowBox[{ RowBox[{"tpu", "[", RowBox[{"[", "i", "]"}], "]"}], ",", RowBox[{"rpi", "[", RowBox[{"[", "i", "]"}], "]"}]}], "]"}]}], "}"}], "]"}], ",", RowBox[{"{", RowBox[{"i", ",", "1", ",", "cj"}], "}"}]}], "]"}]}], ";"}], "\[IndentingNewLine]", RowBox[{ RowBox[{"Plot8d", "=", RowBox[{"Graphics3D", "[", RowBox[{"{", RowBox[{ RowBox[{"Opacity", "[", "0.4", "]"}], ",", RowBox[{"Lighter", "[", "Red", "]"}], ",", RowBox[{"Sphere", "[", RowBox[{"tplo", ",", "rlo"}], "]"}]}], "}"}], "]"}]}], ";"}], "\[IndentingNewLine]", RowBox[{ RowBox[{"Plot8e", "=", RowBox[{"Graphics3D", "[", RowBox[{"{", RowBox[{ RowBox[{"Opacity", "[", "0.4", "]"}], ",", RowBox[{"Lighter", "[", "Red", "]"}], ",", RowBox[{"Sphere", "[", RowBox[{"tplu", ",", "rlo"}], "]"}]}], "}"}], "]"}]}], ";"}], "\[IndentingNewLine]", RowBox[{ RowBox[{"Plot8f", "=", RowBox[{"Table", "[", RowBox[{ RowBox[{"Graphics3D", "[", RowBox[{"{", RowBox[{ RowBox[{"Opacity", "[", "0.4", "]"}], ",", RowBox[{"Lighter", "[", "Red", "]"}], ",", RowBox[{"Sphere", "[", RowBox[{ RowBox[{"tplk", "[", RowBox[{"[", "i", "]"}], "]"}], ",", "rlo"}], "]"}]}], "}"}], "]"}], ",", RowBox[{"{", RowBox[{"i", ",", "1", ",", "tj"}], "}"}]}], "]"}]}], ";"}], "\[IndentingNewLine]", RowBox[{ RowBox[{"Plot8g", "=", RowBox[{"Table", "[", RowBox[{ RowBox[{"Graphics3D", "[", RowBox[{"{", RowBox[{ RowBox[{"Opacity", "[", "0.4", "]"}], ",", RowBox[{"Lighter", "[", "Red", "]"}], ",", RowBox[{"Sphere", "[", RowBox[{ RowBox[{"tpll", "[", RowBox[{"[", "i", "]"}], "]"}], ",", "rlo"}], "]"}]}], "}"}], "]"}], ",", RowBox[{"{", RowBox[{"i", ",", "1", ",", "tj"}], "}"}]}], "]"}]}], ";"}], "\[IndentingNewLine]", RowBox[{ RowBox[{"Plot8h", "=", RowBox[{"Table", "[", RowBox[{ RowBox[{"Graphics3D", "[", RowBox[{"{", RowBox[{ RowBox[{"Opacity", "[", "0.4", "]"}], ",", RowBox[{"Lighter", "[", "Red", "]"}], ",", RowBox[{"Sphere", "[", RowBox[{ RowBox[{"tplm", "[", RowBox[{"[", "i", "]"}], "]"}], ",", "rlo"}], "]"}]}], "}"}], "]"}], ",", RowBox[{"{", RowBox[{"i", ",", "1", ",", "tj"}], "}"}]}], "]"}]}], ";"}]}], "Input", CellChangeTimes->{{3.5681365021632137`*^9, 3.5681365171392403`*^9}, { 3.568136560351316*^9, 3.5681365863097615`*^9}, {3.5681369135895367`*^9, 3.5681369265999594`*^9}, {3.568137821916732*^9, 3.5681378378443604`*^9}, { 3.5682072492149415`*^9, 3.5682072529901485`*^9}, 3.568209802830227*^9, { 3.5682216503836985`*^9, 3.5682217583046885`*^9}, {3.5682217912831464`*^9, 3.568221843465238*^9}, {3.5682219760654707`*^9, 3.5682221133457117`*^9}, { 3.568222159615393*^9, 3.5682221693498106`*^9}, {3.5682222565227633`*^9, 3.5682222578487663`*^9}, 3.5682224736283445`*^9, 3.5682227227607822`*^9, 3.5682227558640404`*^9, {3.568222818810151*^9, 3.5682228486062036`*^9}, { 3.5682230057764797`*^9, 3.5682230079916835`*^9}, {3.568223041952943*^9, 3.5682230548229656`*^9}, 3.5682232619601297`*^9, 3.5682233000709963`*^9, { 3.568223536645412*^9, 3.5682235381118145`*^9}, {3.568223591151908*^9, 3.568223591526308*^9}, {3.5682236491528096`*^9, 3.568223657483224*^9}, { 3.568223713222122*^9, 3.5682237532361927`*^9}, {3.568223800379475*^9, 3.568223827648323*^9}, {3.5682238887380304`*^9, 3.5682238893152313`*^9}, { 3.5682240287170763`*^9, 3.5682240612431335`*^9}, 3.5682241088076167`*^9, { 3.568224198772975*^9, 3.5682242396450467`*^9}, {3.568224282170721*^9, 3.5682243185031853`*^9}, {3.568224437890195*^9, 3.568224439590598*^9}, { 3.568224572253231*^9, 3.5682245867144566`*^9}, {3.5682247081762695`*^9, 3.568224733557514*^9}, {3.56822480520844*^9, 3.5682248433505073`*^9}, { 3.568224884206979*^9, 3.5682248959069996`*^9}, {3.568224982830352*^9, 3.5682250047639904`*^9}, {3.56822503870965*^9, 3.5682250803305235`*^9}, { 3.5682251223413973`*^9, 3.568225141451431*^9}, {3.568225234177994*^9, 3.5682252929588966`*^9}, {3.5682253775890455`*^9, 3.568225482140429*^9}, { 3.56822551694409*^9, 3.5682255297205124`*^9}, {3.568225573197789*^9, 3.5682255809666023`*^9}, 3.568225660698343*^9, 3.5682257301964645`*^9, { 3.568225765078126*^9, 3.5682257828933573`*^9}, {3.568225927026843*^9, 3.568225927416844*^9}, {3.568267062420238*^9, 3.568267081358671*^9}, { 3.568267188328059*^9, 3.5682672830358257`*^9}, {3.5682676367040462`*^9, 3.568267747979042*^9}, 3.5682678404716043`*^9, 3.568267882030078*^9, { 3.5682679252577534`*^9, 3.568267996612279*^9}, {3.5682680488879704`*^9, 3.568268061133992*^9}, {3.568268100914062*^9, 3.5682681150944867`*^9}, { 3.5682681672609787`*^9, 3.5682681709113846`*^9}, {3.568268272904364*^9, 3.5682683182536435`*^9}, {3.5682685202739983`*^9, 3.568268599194537*^9}, { 3.5682686348873997`*^9, 3.568268637773405*^9}, {3.5682686944951043`*^9, 3.568268872273017*^9}, {3.5682689420207396`*^9, 3.568269016947671*^9}, { 3.5682695040741262`*^9, 3.568269601153097*^9}, {3.5682696652380095`*^9, 3.5682696728352227`*^9}, {3.5682697489633565`*^9, 3.5682698308635006`*^9}, {3.568271156491429*^9, 3.568271160063835*^9}, { 3.568271244927984*^9, 3.568271369010602*^9}, {3.5682716250070515`*^9, 3.5682717312276382`*^9}, {3.5682717843301315`*^9, 3.5682718576814604`*^9}, {3.568271940673606*^9, 3.5682720536490045`*^9}, { 3.5682722259669075`*^9, 3.5682723223126764`*^9}, {3.568272370813162*^9, 3.568272411466833*^9}, {3.5682725893539457`*^9, 3.568272622238803*^9}, { 3.5682726936713285`*^9, 3.5682726960113325`*^9}, {3.568272741079812*^9, 3.56827275143823*^9}, {3.5682729218373294`*^9, 3.568272991070251*^9}, { 3.5682734285574193`*^9, 3.5682734302890224`*^9}, {3.5682734898811274`*^9, 3.5682735111595645`*^9}, {3.5682736115925407`*^9, 3.5682736313577757`*^9}, {3.5682738601945777`*^9, 3.568273987272401*^9}, { 3.5682763944346285`*^9, 3.5682764313910933`*^9}, 3.5682765128232365`*^9, { 3.5682766527398825`*^9, 3.568276660976697*^9}, {3.5682774496048822`*^9, 3.568277461663703*^9}, {3.5683784032731285`*^9, 3.568378422991563*^9}, { 3.568378459308427*^9, 3.5683784812420654`*^9}, {3.568378513440522*^9, 3.568378867046343*^9}, {3.568378915468828*^9, 3.56837896203491*^9}, { 3.5683790764299107`*^9, 3.568379270041851*^9}, {3.568380233530743*^9, 3.568380234388745*^9}, 3.5683804214954734`*^9, 3.568380471867962*^9, 3.5683805399464817`*^9, {3.5683812396077104`*^9, 3.568381293537005*^9}, { 3.568381339541486*^9, 3.568381420224828*^9}, {3.5684645223056345`*^9, 3.5684645572340956`*^9}, {3.5684651558539467`*^9, 3.5684651618911576`*^9}, {3.5688209923798466`*^9, 3.568820997683856*^9}, { 3.568821158754139*^9, 3.568821160750942*^9}, 3.56882222404881*^9, { 3.568822649274357*^9, 3.5688226508031597`*^9}, 3.568822723109287*^9, { 3.5693397221142225`*^9, 3.5693397223326235`*^9}, {3.5693899272912874`*^9, 3.5693899274472876`*^9}, {3.5693910617720795`*^9, 3.5693910848757205`*^9}, 3.5693911374166126`*^9, {3.569391214402748*^9, 3.5693912147147484`*^9}, 3.569391451944365*^9, {3.569391487793228*^9, 3.569391507620863*^9}, { 3.5693923162258854`*^9, 3.5693923173958874`*^9}, {3.569406068526634*^9, 3.569406086092265*^9}, 3.569690172138941*^9, 3.569780036185542*^9, { 3.570453906913044*^9, 3.5704539079894457`*^9}, {3.570454575670618*^9, 3.5704545899602437`*^9}, {3.570454765008151*^9, 3.570454772277764*^9}, 3.5708553779481487`*^9, {3.5709431726830034`*^9, 3.570943174555007*^9}, { 3.5709495710522423`*^9, 3.5709495907082767`*^9}, {3.570949647617176*^9, 3.570949673138821*^9}, {3.570950759321929*^9, 3.5709507772775607`*^9}, { 3.5709508127364225`*^9, 3.5709508405200715`*^9}, {3.570991123104905*^9, 3.570991124259307*^9}, {3.5709912161278687`*^9, 3.570991227937089*^9}, { 3.5709912804155817`*^9, 3.570991308776431*^9}, {3.5709914026885962`*^9, 3.5709914215490294`*^9}, {3.570991574429298*^9, 3.5709916038821497`*^9}, 3.570991652445035*^9, 3.570991830004547*^9, 3.570991865276209*^9, { 3.5709919181759014`*^9, 3.5709919260539155`*^9}, {3.570992027251293*^9, 3.570992050058533*^9}, 3.5709920901350036`*^9, 3.570992186979974*^9, { 3.57122255431676*^9, 3.5712225562355638`*^9}, 3.571223175338251*^9, { 3.5713153738729277`*^9, 3.571315375682531*^9}, 3.5713224026962075`*^9, { 3.5713224627875133`*^9, 3.5713224654863176`*^9}, {3.5713224965147724`*^9, 3.571322572268505*^9}, {3.5713226259637995`*^9, 3.5713226549330506`*^9}, { 3.5713308245340652`*^9, 3.571330884469371*^9}, {3.5713309160126257`*^9, 3.5713309422674723`*^9}, 3.571331071326499*^9, {3.5713311246629925`*^9, 3.5713311332274075`*^9}, {3.571331300334901*^9, 3.5713313470881834`*^9}, 3.5713314298931284`*^9, 3.571331594130217*^9, {3.571331632849485*^9, 3.5713316334578857`*^9}, {3.5713316704299507`*^9, 3.5713316709447517`*^9}, {3.571331783327349*^9, 3.571331790019761*^9}, { 3.5713319475956383`*^9, 3.571331948360039*^9}, {3.5713326567416835`*^9, 3.571332681717327*^9}, {3.571332736801024*^9, 3.571332753305853*^9}, { 3.571332796221528*^9, 3.5713328475768185`*^9}, {3.571332914344936*^9, 3.571332924672154*^9}, {3.5713330072586994`*^9, 3.5713330320471425`*^9}, { 3.5713330798612266`*^9, 3.5713330883320417`*^9}, {3.5713331731961904`*^9, 3.571333178266199*^9}, {3.571333407851803*^9, 3.571333426837036*^9}, { 3.571333542292839*^9, 3.571333557705666*^9}, {3.5713336117441607`*^9, 3.5713337055939255`*^9}, {3.5713337750608473`*^9, 3.571333798070888*^9}, { 3.5713366694988756`*^9, 3.5713366834765005`*^9}, {3.5713369716090064`*^9, 3.57133697359021*^9}, {3.57138272164856*^9, 3.571382756233821*^9}, { 3.57138283537276*^9, 3.571382866900415*^9}, {3.5713829070080853`*^9, 3.5713829086616883`*^9}, {3.571382939175342*^9, 3.5713830233374896`*^9}, { 3.5713831045200324`*^9, 3.571383106126835*^9}, {3.571383198260597*^9, 3.5713832448422785`*^9}, 3.5716785972796593`*^9, 3.5718167268987517`*^9, { 3.571838452469782*^9, 3.5718386879053955`*^9}, {3.571838766139532*^9, 3.571838773908346*^9}, 3.5718388425484667`*^9, {3.571838961763876*^9, 3.571838969236289*^9}, {3.571839027970392*^9, 3.5718390313399982`*^9}, { 3.571839741203645*^9, 3.5718397450100517`*^9}, {3.572538612521628*^9, 3.572538701894185*^9}, {3.572538746213863*^9, 3.572538844837236*^9}, 3.5725397817592816`*^9, {3.5726093687611146`*^9, 3.5726094120667906`*^9}, { 3.5726201406133776`*^9, 3.5726201439517837`*^9}, {3.5726204342214937`*^9, 3.572620455406331*^9}, {3.5726210034788933`*^9, 3.572621009968505*^9}, { 3.5728421659278097`*^9, 3.5728422874676228`*^9}, {3.572844941796685*^9, 3.57284494451109*^9}, {3.572850660423529*^9, 3.5728506878327775`*^9}, 3.5731240021791506`*^9, {3.573124038683215*^9, 3.57312404156922*^9}, 3.5731241655738378`*^9, {3.573150838242284*^9, 3.5731508464166985`*^9}, { 3.5732110436990156`*^9, 3.573211066116255*^9}, {3.573212991206436*^9, 3.573213000894053*^9}, {3.573213104540635*^9, 3.573213182462772*^9}, { 3.5732202689099436`*^9, 3.573220322745638*^9}, {3.573220354086093*^9, 3.5732203696081204`*^9}, {3.573220402914179*^9, 3.573220410448992*^9}, { 3.5746631320730405`*^9, 3.574663233114418*^9}, {3.5746640424906397`*^9, 3.574664047560649*^9}, {3.5746708183720207`*^9, 3.574670838917257*^9}, { 3.5747409576711226`*^9, 3.574740975720354*^9}, {3.5747864634781103`*^9, 3.5747864662861156`*^9}, {3.574786586827527*^9, 3.574786630445204*^9}, { 3.574786972070204*^9, 3.5747869752838097`*^9}, {3.5748281512990437`*^9, 3.5748281556358514`*^9}, 3.5753451622470818`*^9, {3.575351337845529*^9, 3.5753513418547363`*^9}, 3.575351450508927*^9, {3.575365082044012*^9, 3.5753650985644407`*^9}, {3.5753651580941453`*^9, 3.575365163008154*^9}, { 3.5757218899846277`*^9, 3.5757219013726473`*^9}, {3.576343058584899*^9, 3.5763431272094193`*^9}}], Cell[CellGroupData[{ Cell[BoxData[{ RowBox[{ RowBox[{"Plot9", "=", " ", RowBox[{"Table", "[", RowBox[{ RowBox[{"Graphics3D", "[", RowBox[{"{", RowBox[{ RowBox[{"Lighter", "[", RowBox[{"Orange", ",", "0.5"}], "]"}], ",", RowBox[{"Tube", "[", RowBox[{ RowBox[{"{", RowBox[{ RowBox[{"{", RowBox[{ RowBox[{"x", "[", RowBox[{"[", RowBox[{"a", "[", RowBox[{"[", RowBox[{"i", ",", "1"}], "]"}], "]"}], "]"}], "]"}], ",", RowBox[{"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.1"}], "]"}]}], "}"}], "]"}], ",", RowBox[{"{", RowBox[{"i", ",", "1", ",", "nb"}], "}"}]}], "]"}]}], ";"}], "\[IndentingNewLine]", RowBox[{ RowBox[{"Plot9a", "=", " ", RowBox[{"Graphics3D", "[", RowBox[{"Tube", "[", RowBox[{ RowBox[{"{", RowBox[{ RowBox[{"x", "[", RowBox[{"[", "2", "]"}], "]"}], ",", RowBox[{"y", "[", RowBox[{"[", "2", "]"}], "]"}], ",", RowBox[{"z", "[", RowBox[{"[", "2", "]"}], "]"}]}], "}"}], ",", RowBox[{"nk", "[", RowBox[{"[", "2", "]"}], "]"}], ",", "0.06"}], "]"}], "]"}]}], ";"}], "\[IndentingNewLine]", RowBox[{ RowBox[{"Plot9b", "=", " ", RowBox[{"Graphics3D", "[", RowBox[{"Tube", "[", RowBox[{ RowBox[{"{", RowBox[{ RowBox[{"x", "[", RowBox[{"[", "2", "]"}], "]"}], ",", RowBox[{"y", "[", RowBox[{"[", "2", "]"}], "]"}], ",", RowBox[{"z", "[", RowBox[{"[", "2", "]"}], "]"}]}], "}"}], ",", RowBox[{"nl", "[", RowBox[{"[", "2", "]"}], "]"}], ",", "0.06"}], "]"}], "]"}]}], ";"}], "\[IndentingNewLine]", RowBox[{"Show", "[", RowBox[{ "Plot1o", ",", "Plot2", ",", "Plot7", ",", "Plot8", ",", "Plot8a", ",", "Plot8b", ",", "Plot8d", ",", "Plot8e", ",", "Plot8f", ",", "Plot8g", ",", "Plot8h", ",", "Plot9", ",", RowBox[{"{", RowBox[{ RowBox[{"AspectRatio", "\[Rule]", "Automatic"}], ",", RowBox[{"Boxed", "\[Rule]", "False"}], ",", RowBox[{"(*", " ", RowBox[{ RowBox[{"Axes", "\[Rule]", "Automatic"}], ",", RowBox[{"AxesLabel", "\[Rule]", RowBox[{"{", RowBox[{"xl", ",", "yl", ",", "zl"}], "}"}]}], ","}], "*)"}], RowBox[{"SphericalRegion", "\[Rule]", "True"}]}], "}"}]}], "]"}], "\[IndentingNewLine]"}], "Input", CellChangeTimes->{{3.5681365021632137`*^9, 3.5681365171392403`*^9}, { 3.568136560351316*^9, 3.5681365863097615`*^9}, {3.5681369135895367`*^9, 3.5681369265999594`*^9}, {3.568137821916732*^9, 3.5681378378443604`*^9}, { 3.5682072492149415`*^9, 3.5682072529901485`*^9}, 3.568209802830227*^9, { 3.5682216503836985`*^9, 3.5682217583046885`*^9}, {3.5682217912831464`*^9, 3.568221843465238*^9}, {3.5682219760654707`*^9, 3.5682221133457117`*^9}, { 3.568222159615393*^9, 3.5682221693498106`*^9}, {3.5682222565227633`*^9, 3.5682222578487663`*^9}, 3.5682224736283445`*^9, 3.5682227227607822`*^9, 3.5682227558640404`*^9, {3.568222818810151*^9, 3.5682228486062036`*^9}, { 3.5682230057764797`*^9, 3.5682230079916835`*^9}, {3.568223041952943*^9, 3.5682230548229656`*^9}, 3.5682232619601297`*^9, 3.5682233000709963`*^9, { 3.568223536645412*^9, 3.5682235381118145`*^9}, {3.568223591151908*^9, 3.568223591526308*^9}, {3.5682236491528096`*^9, 3.568223657483224*^9}, { 3.568223713222122*^9, 3.5682237532361927`*^9}, {3.568223800379475*^9, 3.568223827648323*^9}, {3.5682238887380304`*^9, 3.5682238893152313`*^9}, { 3.5682240287170763`*^9, 3.5682240612431335`*^9}, 3.5682241088076167`*^9, { 3.568224198772975*^9, 3.5682242396450467`*^9}, {3.568224282170721*^9, 3.5682243185031853`*^9}, {3.568224437890195*^9, 3.568224439590598*^9}, { 3.568224572253231*^9, 3.5682245867144566`*^9}, {3.5682247081762695`*^9, 3.568224733557514*^9}, {3.56822480520844*^9, 3.5682248433505073`*^9}, { 3.568224884206979*^9, 3.5682248959069996`*^9}, {3.568224982830352*^9, 3.5682250047639904`*^9}, {3.56822503870965*^9, 3.5682250803305235`*^9}, { 3.5682251223413973`*^9, 3.568225141451431*^9}, {3.568225234177994*^9, 3.5682252929588966`*^9}, {3.5682253775890455`*^9, 3.568225482140429*^9}, { 3.56822551694409*^9, 3.5682255297205124`*^9}, {3.568225573197789*^9, 3.5682255809666023`*^9}, 3.568225660698343*^9, 3.5682257301964645`*^9, { 3.568225765078126*^9, 3.5682257828933573`*^9}, {3.568225927026843*^9, 3.568225927416844*^9}, {3.568267062420238*^9, 3.568267081358671*^9}, { 3.568267188328059*^9, 3.5682672830358257`*^9}, {3.5682676367040462`*^9, 3.568267747979042*^9}, 3.5682678404716043`*^9, 3.568267882030078*^9, { 3.5682679252577534`*^9, 3.568267996612279*^9}, {3.5682680488879704`*^9, 3.568268061133992*^9}, {3.568268100914062*^9, 3.5682681150944867`*^9}, { 3.5682681672609787`*^9, 3.5682681709113846`*^9}, {3.568268272904364*^9, 3.5682683182536435`*^9}, {3.5682685202739983`*^9, 3.568268599194537*^9}, { 3.5682686348873997`*^9, 3.568268637773405*^9}, {3.5682686944951043`*^9, 3.568268872273017*^9}, {3.5682689420207396`*^9, 3.568269016947671*^9}, { 3.5682695040741262`*^9, 3.568269601153097*^9}, {3.5682696652380095`*^9, 3.5682696728352227`*^9}, {3.5682697489633565`*^9, 3.5682698308635006`*^9}, {3.568271156491429*^9, 3.568271160063835*^9}, { 3.568271244927984*^9, 3.568271369010602*^9}, {3.5682716250070515`*^9, 3.5682717312276382`*^9}, {3.5682717843301315`*^9, 3.5682718576814604`*^9}, {3.568271940673606*^9, 3.5682720536490045`*^9}, { 3.5682722259669075`*^9, 3.5682723223126764`*^9}, {3.568272370813162*^9, 3.568272411466833*^9}, {3.5682725893539457`*^9, 3.568272622238803*^9}, { 3.5682726936713285`*^9, 3.5682726960113325`*^9}, {3.568272741079812*^9, 3.56827275143823*^9}, {3.5682729218373294`*^9, 3.568272991070251*^9}, { 3.5682734285574193`*^9, 3.5682734302890224`*^9}, {3.5682734898811274`*^9, 3.5682735111595645`*^9}, {3.5682736115925407`*^9, 3.5682736313577757`*^9}, {3.5682738601945777`*^9, 3.568273987272401*^9}, { 3.5682763944346285`*^9, 3.5682764313910933`*^9}, 3.5682765128232365`*^9, { 3.5682766527398825`*^9, 3.568276660976697*^9}, {3.5682774496048822`*^9, 3.568277461663703*^9}, {3.5683784032731285`*^9, 3.568378422991563*^9}, { 3.568378459308427*^9, 3.5683784812420654`*^9}, {3.568378513440522*^9, 3.568378867046343*^9}, {3.568378915468828*^9, 3.56837896203491*^9}, { 3.5683790764299107`*^9, 3.568379270041851*^9}, {3.568380233530743*^9, 3.568380234388745*^9}, 3.5683804214954734`*^9, 3.568380471867962*^9, 3.5683805399464817`*^9, {3.5683812396077104`*^9, 3.568381293537005*^9}, { 3.568381339541486*^9, 3.568381420224828*^9}, {3.5684645223056345`*^9, 3.5684645572340956`*^9}, {3.5684651558539467`*^9, 3.5684651618911576`*^9}, {3.5688209923798466`*^9, 3.568820997683856*^9}, { 3.568821158754139*^9, 3.568821160750942*^9}, 3.56882222404881*^9, { 3.568822649274357*^9, 3.5688226508031597`*^9}, 3.568822723109287*^9, { 3.5693397221142225`*^9, 3.5693397223326235`*^9}, {3.5693899272912874`*^9, 3.5693899274472876`*^9}, {3.5693910617720795`*^9, 3.5693910848757205`*^9}, 3.5693911374166126`*^9, {3.569391214402748*^9, 3.5693912147147484`*^9}, 3.569391451944365*^9, {3.569391487793228*^9, 3.569391507620863*^9}, { 3.5693923162258854`*^9, 3.5693923173958874`*^9}, {3.569406068526634*^9, 3.569406086092265*^9}, 3.569690172138941*^9, 3.569780036185542*^9, { 3.570453906913044*^9, 3.5704539079894457`*^9}, {3.570454575670618*^9, 3.5704545899602437`*^9}, {3.570454765008151*^9, 3.570454772277764*^9}, 3.5708553779481487`*^9, {3.5709431726830034`*^9, 3.570943174555007*^9}, { 3.5709495710522423`*^9, 3.5709495907082767`*^9}, {3.570949647617176*^9, 3.570949673138821*^9}, {3.570950759321929*^9, 3.5709507772775607`*^9}, { 3.5709508127364225`*^9, 3.5709508405200715`*^9}, {3.570991123104905*^9, 3.570991124259307*^9}, {3.5709912161278687`*^9, 3.570991227937089*^9}, { 3.5709912804155817`*^9, 3.570991308776431*^9}, {3.5709914026885962`*^9, 3.5709914215490294`*^9}, {3.570991574429298*^9, 3.5709916038821497`*^9}, 3.570991652445035*^9, 3.570991830004547*^9, 3.570991865276209*^9, { 3.5709919181759014`*^9, 3.5709919260539155`*^9}, {3.570992027251293*^9, 3.570992050058533*^9}, 3.5709920901350036`*^9, 3.570992186979974*^9, { 3.57122255431676*^9, 3.5712225562355638`*^9}, 3.571223175338251*^9, { 3.5713153738729277`*^9, 3.571315375682531*^9}, 3.5713224026962075`*^9, { 3.5713224627875133`*^9, 3.5713224654863176`*^9}, {3.5713224965147724`*^9, 3.571322572268505*^9}, {3.5713226259637995`*^9, 3.5713226549330506`*^9}, { 3.5713308245340652`*^9, 3.571330884469371*^9}, {3.5713309160126257`*^9, 3.5713309422674723`*^9}, 3.571331071326499*^9, {3.5713311246629925`*^9, 3.5713311332274075`*^9}, {3.571331300334901*^9, 3.5713313470881834`*^9}, 3.5713314298931284`*^9, 3.571331594130217*^9, {3.571331632849485*^9, 3.5713316334578857`*^9}, {3.5713316704299507`*^9, 3.5713316709447517`*^9}, {3.571331783327349*^9, 3.571331790019761*^9}, { 3.5713319475956383`*^9, 3.571331948360039*^9}, {3.5713326567416835`*^9, 3.571332681717327*^9}, {3.571332736801024*^9, 3.571332753305853*^9}, { 3.571332796221528*^9, 3.5713328475768185`*^9}, {3.571332914344936*^9, 3.571332924672154*^9}, {3.5713330072586994`*^9, 3.5713330320471425`*^9}, { 3.5713330798612266`*^9, 3.5713330883320417`*^9}, {3.5713331731961904`*^9, 3.571333178266199*^9}, {3.571333407851803*^9, 3.571333426837036*^9}, { 3.571333542292839*^9, 3.571333557705666*^9}, {3.5713336117441607`*^9, 3.5713337055939255`*^9}, {3.5713337750608473`*^9, 3.571333798070888*^9}, { 3.5713366694988756`*^9, 3.5713366834765005`*^9}, {3.5713369716090064`*^9, 3.57133697359021*^9}, {3.57138272164856*^9, 3.571382756233821*^9}, { 3.57138283537276*^9, 3.571382866900415*^9}, {3.5713829070080853`*^9, 3.5713829086616883`*^9}, {3.571382939175342*^9, 3.5713830233374896`*^9}, { 3.5713831045200324`*^9, 3.571383106126835*^9}, {3.571383198260597*^9, 3.5713832448422785`*^9}, 3.5716785972796593`*^9, 3.5718167268987517`*^9, { 3.571838452469782*^9, 3.5718386879053955`*^9}, 3.571838766139532*^9, { 3.571838857446493*^9, 3.5718388645757055`*^9}, 3.5723437133735733`*^9, 3.5723437554312468`*^9, {3.5723449027196617`*^9, 3.572344929582909*^9}, 3.5723450406551046`*^9, {3.57234950163894*^9, 3.5723495196413713`*^9}, { 3.572584520172369*^9, 3.5725845258195786`*^9}, {3.5726224003989472`*^9, 3.57262241340937*^9}, 3.572796748424938*^9, 3.5727968708695536`*^9, { 3.572796971801731*^9, 3.572796995841373*^9}, {3.57279741546651*^9, 3.5727974308793373`*^9}, {3.572842795856916*^9, 3.5728428061217337`*^9}, { 3.5728522627179437`*^9, 3.572852288426789*^9}, {3.5728523495164957`*^9, 3.572852453865079*^9}, {3.5728524960787535`*^9, 3.572852515110787*^9}, { 3.572852550008048*^9, 3.572852634669397*^9}, {3.5728602362372026`*^9, 3.5728602649256525`*^9}, 3.572860311756935*^9, 3.5731241886618786`*^9, 3.5731408095114717`*^9, 3.5731408826443996`*^9, {3.573211072949067*^9, 3.5732110779254756`*^9}, {3.5732129727516036`*^9, 3.573212981300419*^9}, { 3.5732130120948725`*^9, 3.57321301629128*^9}, {3.573213384015126*^9, 3.573213388164733*^9}, {3.573220427063021*^9, 3.57322044338065*^9}, { 3.5733208085662665`*^9, 3.5733208285343018`*^9}, {3.57332089027921*^9, 3.5733208917144127`*^9}, {3.5733209483737125`*^9, 3.5733209652997417`*^9}, {3.5733210904587617`*^9, 3.5733211330312366`*^9}, {3.5746581574587035`*^9, 3.5746581598923078`*^9}, {3.5746632559372582`*^9, 3.5746632963569293`*^9}, 3.574669479281269*^9, {3.5746708530664816`*^9, 3.5746708831121345`*^9}, { 3.5746734822639*^9, 3.5746735338531904`*^9}, 3.5747441301394944`*^9, { 3.574950644335537*^9, 3.5749506488751445`*^9}, {3.575001627819734*^9, 3.5750016487549706`*^9}, {3.57534426719551*^9, 3.575344278926731*^9}, { 3.5753450565880966`*^9, 3.575345065324112*^9}, 3.5753451320610294`*^9, 3.575345171575898*^9, 3.575345357543825*^9, {3.5753513717287884`*^9, 3.57535142378608*^9}, {3.5753652394014883`*^9, 3.57536535446729*^9}, 3.5762958623448744`*^9, {3.5763431377082376`*^9, 3.576343150983861*^9}}], Cell[BoxData[ Graphics3DBox[{ {RGBColor[0.4, 0.2666666666666667, 0.13333333333333336`], Opacity[0.8], SphereBox[{-1.3767138399951948`, 9.136492442760169, -0.011319882653069602`}, 0.255]}, {RGBColor[0.4, 0.2666666666666667, 0.13333333333333336`], Opacity[0.8], SphereBox[{0.473882316936199, 6.971834316791755, 0.0004138948773504403}, 0.255]}, {RGBColor[0.4, 0.2666666666666667, 0.13333333333333336`], Opacity[0.8], SphereBox[{1.4237888928831852`, 2.4662159947976874`, 0.00013321484173245413`}, 0.255]}, {RGBColor[0.4, 0.2666666666666667, 0.13333333333333336`], Opacity[0.8], SphereBox[{0, 0, 0}, 0.255]}, {RGBColor[ NCache[ Rational[1, 3], 0.3333333333333333], NCache[ Rational[1, 3], 0.3333333333333333], 1], Opacity[0.8], SphereBox[{-0.37512028472777914`, 4.570605187795081, 0.0002255030110518419}, 0.24]}, {RGBColor[ NCache[ Rational[1, 3], 0.3333333333333333], NCache[ Rational[1, 3], 0.3333333333333333], 1], Opacity[0.8], SphereBox[{0.03463532179801909, 11.536269141880382`, -0.06288512934630486}, 0.24]}, {RGBColor[1, NCache[ Rational[1, 3], 0.3333333333333333], NCache[ Rational[1, 3], 0.3333333333333333]], Opacity[0.8], SphereBox[{2.727290054608442, 7.390531260134222, 0.0002804910126465998}, 0.178]}, {RGBColor[1, NCache[ Rational[1, 3], 0.3333333333333333], NCache[ Rational[1, 3], 0.3333333333333333]], Opacity[0.8], SphereBox[{-2.2832742569128253`, 0, 0}, 0.178]}, {RGBColor[1, NCache[ Rational[1, 3], 0.3333333333333333], NCache[ Rational[1, 3], 0.3333333333333333]], Opacity[0.8], SphereBox[{1.268100398919057, -2.196638994879232, 0}, 0.178]}, {RGBColor[1, 1, 1], Opacity[0.8], SphereBox[{-2.5623900210132162`, 9.035084825337556, 1.6699560186170959`}, 0.12]}, {RGBColor[1, 1, 1], Opacity[0.8], SphereBox[{-2.559361148898179, 9.019447040476722, -1.6935183538918448`}, 0.12]}, {RGBColor[1, 1, 1], Opacity[0.8], SphereBox[{-2.177290252557225, 4.235570185005809, 0.000388702763330917}, 0.12]}, {RGBColor[1, 1, 1], Opacity[0.8], SphereBox[{2.6079918797775323`, 2.5754100297558193`, 1.681870261262245}, 0.12]}, {RGBColor[1, 1, 1], Opacity[0.8], SphereBox[{2.60807719544219, 2.575506999780597, -1.681642477037567}, 0.12]}, {RGBColor[1, 1, 1], Opacity[0.8], SphereBox[{1.2127996638427367`, 11.642049687312937`, 1.4557099657339077`}, 0.12]}, {RGBColor[1, 1, 1], Opacity[0.8], SphereBox[{-1.1885065866440119`, 13.022373661088087`, -0.02925378145732971}, 0.12]}, {RGBColor[1, 1, 1], Opacity[0.8], SphereBox[{1.089414647789555, 11.621232035852536`, -1.68930758680601}, 0.12]}, Text3DBox["1", {-1.976713839995195, 9.136492442760169, -0.011319882653069602`}, {1, 0}], Text3DBox["2", {-0.126117683063801, 6.971834316791755, 0.0004138948773504403}, {1, 0}], Text3DBox["3", {0.8237888928831852, 2.4662159947976874`, 0.00013321484173245413`}, {1, 0}], Text3DBox["4", {-0.6, 0, 0}, {1, 0}], Text3DBox["5", {-0.9751202847277791, 4.570605187795081, 0.0002255030110518419}, {1, 0}], Text3DBox["6", {-0.5653646782019809, 11.536269141880382`, -0.06288512934630486}, {1, 0}], Text3DBox["7", {2.127290054608442, 7.390531260134222, 0.0002804910126465998}, {1, 0}], Text3DBox["8", {-2.8832742569128254`, 0, 0}, {1, 0}], Text3DBox["9", {0.6681003989190569, -2.196638994879232, 0}, {1, 0}], Text3DBox["10", {-3.1623900210132163`, 9.035084825337556, 1.6699560186170959`}, {1, 0}], Text3DBox["11", {-3.159361148898179, 9.019447040476722, -1.6935183538918448`}, {1, 0}], Text3DBox["12", {-2.777290252557225, 4.235570185005809, 0.000388702763330917}, {1, 0}], Text3DBox["13", {2.0079918797775322`, 2.5754100297558193`, 1.681870261262245}, {1, 0}], Text3DBox["14", {2.00807719544219, 2.575506999780597, -1.681642477037567}, {1, 0}], Text3DBox["15", {0.6127996638427368, 11.642049687312937`, 1.4557099657339077`}, {1, 0}], Text3DBox["16", {-1.788506586644012, 13.022373661088087`, -0.02925378145732971}, {1, 0}], Text3DBox["17", {0.489414647789555, 11.621232035852536`, -1.68930758680601}, {1, 0}], {RGBColor[0.36, 0.24, 0.12], Opacity[0.5], SphereBox[{-0.4514157615294978, 8.05416337977596, -0.00545299388785958}, 1.1667547587533689`]}, {RGBColor[0.36, 0.24, 0.12], Opacity[0.5], SphereBox[{0.7118944464415925, 1.2331079973988435`, 0.00006660742086622705}, 1.1666500765740462`]}, {RGBColor[0.36, 0.24, 0.12], Opacity[0.5], SphereBox[{0.04405079344347956, 5.756144314489225, 0.00031851617916264297`}, 1.0322407040975143`]}, {RGBColor[0.36, 0.24, 0.12], Opacity[0.5], SphereBox[{0.5139443174061085, 3.530564943466697, 0.00017989195655348597`}, 1.1430342083511027`]}, {RGBColor[0.36, 0.24, 0.12], Opacity[0.5], SphereBox[{-0.6629346100044611, 10.35016147011224, -0.0373986185714124}, 1.1510447932042867`]}, {RGBColor[0.36, 0.24, 0.12], Opacity[0.5], SphereBox[{1.6392248658883803`, 7.188362091608584, 0.00034490549867073633`}, 0.928087955909884]}, {RGBColor[0.36, 0.24, 0.12], Opacity[0.5], SphereBox[{-1.1809371284564125`, 0., 0.}, 0.9237371284564129]}, {RGBColor[0.36, 0.24, 0.12], Opacity[0.5], SphereBox[{0.6536986920326565, -1.1323551660771456`, 0.}, 1.0502976872280907`]}, {Opacity[0.5], SphereBox[{-2.222771146484287, 9.064131492082735, 1.1883801562499108`}, 1.2126058567002422`]}, {Opacity[0.5], SphereBox[{-2.2205837299854645`, 9.052975497340135, -1.211641084231616}, 1.212447052309992]}, {Opacity[0.5], SphereBox[{-1.6325241777122277`, 4.336845706551104, 0.0003393701864642485}, 1.0537280279235877`]}, {Opacity[0.5], SphereBox[{2.2687829617618083`, 2.5441319542384977`, 1.2001452443381346`}, 1.2125328818910286`]}, {Opacity[0.5], SphereBox[{2.2688579609867188`, 2.5442024509109817`, -1.1999264443009414`}, 1.2126186291866472`]}, {Opacity[0.5], SphereBox[{0.8736612721324476, 11.61160041740041, 1.018577487839674}, 1.145619428516999]}, {Opacity[0.5], SphereBox[{-0.8364365567264902, 12.594612287753689`, -0.03893425236239414}, 1.1457030746039425`]}, {Opacity[0.5], SphereBox[{0.7882072414971728, 11.596969659548952`, -1.2248592629951476`}, 1.161048039836913]}, {RGBColor[ NCache[ Rational[1, 3], 0.3333333333333333], 1, 1], Opacity[0.3], SphereBox[{0., 0., 1.2961}, 1.2961]}, {RGBColor[ NCache[ Rational[1, 3], 0.3333333333333333], 1, 1], Opacity[0.3], SphereBox[{-2.2832742569128253`, 0, 1.0875}, 1.0875]}, {RGBColor[ NCache[ Rational[1, 3], 0.3333333333333333], 1, 1], Opacity[0.3], SphereBox[{0.473882316936199, 6.971834316791755, 1.2961}, 1.2961]}, {RGBColor[ NCache[ Rational[1, 3], 0.3333333333333333], 1, 1], Opacity[0.3], SphereBox[{2.727290054608442, 7.390531260134222, 1.0875}, 1.0875]}, {RGBColor[ NCache[ Rational[1, 3], 0.3333333333333333], 1, 1], Opacity[0.3], SphereBox[{-0.37512028472777914`, 4.570605187795081, 1.2465}, 1.2465]}, {RGBColor[1, 1, NCache[ Rational[1, 3], 0.3333333333333333]], Opacity[0.3], SphereBox[{0., 0., -1.2961}, 1.2961]}, {RGBColor[1, 1, NCache[ Rational[1, 3], 0.3333333333333333]], Opacity[0.3], SphereBox[{-2.2832742569128253`, 0, -1.0875}, 1.0875]}, {RGBColor[1, 1, NCache[ Rational[1, 3], 0.3333333333333333]], Opacity[0.3], SphereBox[{0.473882316936199, 6.971834316791755, -1.2961}, 1.2961]}, {RGBColor[1, 1, NCache[ Rational[1, 3], 0.3333333333333333]], Opacity[0.3], SphereBox[{2.727290054608442, 7.390531260134222, -1.0875}, 1.0875]}, {RGBColor[1, 1, NCache[ Rational[1, 3], 0.3333333333333333]], Opacity[0.3], SphereBox[{-0.37512028472777914`, 4.570605187795081, -1.2465}, 1.2465]}, {RGBColor[1, NCache[ Rational[1, 3], 0.3333333333333333], NCache[ Rational[1, 3], 0.3333333333333333]], Opacity[0.4], SphereBox[{{-2.9162967725022537`, -1.1395856496639458`, \ -0.00004285831419274054}, {3.192508220343423, 8.608291150843012, 0.0027026493671570267`}}, 1.125]}, {RGBColor[1, NCache[ Rational[1, 3], 0.3333333333333333], NCache[ Rational[1, 3], 0.3333333333333333]], Opacity[0.4], SphereBox[{{-2.9536676464558553`, 1.1180096881822639`, 0.00001968767121723845}, {3.5491206411577862`, 6.3787815587663435`, 0.018446084698821735`}}, 1.125]}, {RGBColor[1, NCache[ Rational[1, 3], 0.3333333333333333], NCache[ Rational[1, 3], 0.3333333333333333]], Opacity[0.4], SphereBox[{2.5413936804492883`, -1.9439930410068949`, 0.00006639159789333312}, 1.125]}, {RGBColor[1, NCache[ Rational[1, 3], 0.3333333333333333], NCache[ Rational[1, 3], 0.3333333333333333]], Opacity[0.4], SphereBox[{0.9447251549845481, -2.8657357574037947`, 1.06435098821289}, 1.125]}, {RGBColor[1, NCache[ Rational[1, 3], 0.3333333333333333], NCache[ Rational[1, 3], 0.3333333333333333]], Opacity[0.4], SphereBox[{ 0.9448247448613702, -2.8656782650425914`, -1.0644173798812024`}, 1.125]}, {RGBColor[1., 0.75, 0.5], TubeBox[{{0.473882316936199, 6.971834316791755, 0.0004138948773504403}, {-1.3767138399951948`, 9.136492442760169, -0.011319882653069602`}}, 0.1]}, {RGBColor[1., 0.75, 0.5], TubeBox[{{0, 0, 0}, {1.4237888928831852`, 2.4662159947976874`, 0.00013321484173245413`}}, 0.1]}, {RGBColor[1., 0.75, 0.5], TubeBox[{{-0.37512028472777914`, 4.570605187795081, 0.0002255030110518419}, {0.473882316936199, 6.971834316791755, 0.0004138948773504403}}, 0.1]}, {RGBColor[1., 0.75, 0.5], TubeBox[{{-0.37512028472777914`, 4.570605187795081, 0.0002255030110518419}, {1.4237888928831852`, 2.4662159947976874`, 0.00013321484173245413`}}, 0.1]}, {RGBColor[1., 0.75, 0.5], TubeBox[{{0.03463532179801909, 11.536269141880382`, -0.06288512934630486}, {-1.3767138399951948`, 9.136492442760169, -0.011319882653069602`}}, 0.1]}, {RGBColor[1., 0.75, 0.5], TubeBox[{{2.727290054608442, 7.390531260134222, 0.0002804910126465998}, { 0.473882316936199, 6.971834316791755, 0.0004138948773504403}}, 0.1]}, {RGBColor[1., 0.75, 0.5], TubeBox[{{-2.2832742569128253`, 0, 0}, {0, 0, 0}}, 0.1]}, {RGBColor[1., 0.75, 0.5], TubeBox[{{1.268100398919057, -2.196638994879232, 0}, {0, 0, 0}}, 0.1]}, {RGBColor[1., 0.75, 0.5], TubeBox[{{-2.5623900210132162`, 9.035084825337556, 1.6699560186170959`}, {-1.3767138399951948`, 9.136492442760169, -0.011319882653069602`}}, 0.1]}, {RGBColor[1., 0.75, 0.5], TubeBox[{{-2.559361148898179, 9.019447040476722, -1.6935183538918448`}, {-1.3767138399951948`, 9.136492442760169, -0.011319882653069602`}}, 0.1]}, {RGBColor[1., 0.75, 0.5], TubeBox[{{-2.177290252557225, 4.235570185005809, 0.000388702763330917}, {-0.37512028472777914`, 4.570605187795081, 0.0002255030110518419}}, 0.1]}, {RGBColor[1., 0.75, 0.5], TubeBox[{{2.6079918797775323`, 2.5754100297558193`, 1.681870261262245}, { 1.4237888928831852`, 2.4662159947976874`, 0.00013321484173245413`}}, 0.1]}, {RGBColor[1., 0.75, 0.5], TubeBox[{{2.60807719544219, 2.575506999780597, -1.681642477037567}, { 1.4237888928831852`, 2.4662159947976874`, 0.00013321484173245413`}}, 0.1]}, {RGBColor[1., 0.75, 0.5], TubeBox[{{1.2127996638427367`, 11.642049687312937`, 1.4557099657339077`}, {0.03463532179801909, 11.536269141880382`, -0.06288512934630486}}, 0.1]}, {RGBColor[1., 0.75, 0.5], TubeBox[{{-1.1885065866440119`, 13.022373661088087`, -0.02925378145732971}, {0.03463532179801909, 11.536269141880382`, -0.06288512934630486}}, 0.1]}, {RGBColor[1., 0.75, 0.5], TubeBox[{{1.089414647789555, 11.621232035852536`, -1.68930758680601}, { 0.03463532179801909, 11.536269141880382`, -0.06288512934630486}}, 0.1]}}, AspectRatio->Automatic, Boxed->False, SphericalRegion->True]], "Output", CellChangeTimes->{ 3.576388759489622*^9},ImageCache->GraphicsData["CompressedBitmap", "\<\ eJzsnYdXXVl25r+hut322G13sHs8Y487VcdKKiVEzkFEAUrkJLJAiJyjJFBA CJRzIueccwaRcwYJCSGUVVXd7bbX8nznvodC2WvNP+Ba/d37eIDeed/+nX32 Prx729Q5yNPN1znIy9X5ZwYBzv6eXq6BP9M/FMCnPvofwP/wFPoZxOP/ADYO /8H//YeXOIhn/vvxfz/+78ficah0+h4ezi1ioKYJg9RwTTPFc3UTVmcXsS77 0UD5jz7ijw7VNuN6QDTuBsQgOyAWeVTB4VgooIjHv0CxfywKhQ7FIN83GlNV zXgyu7gq+5cOS6cf819pws3AaGQExiA3MBZFVFlgHCqoKqqWqguIQ73QYT6m av3jUMN/ucqP8o1Bd9oNPOMgH8r+6UPS6X/h8fwi7gRGITOIAwiKRQlVEcRf peqpRqolKB6tgfFoo9qpjgCe+VLtfJk2vkwz1XQoFo18qYaDMbh3hi81s4gH spfyk07/G/UXriErKBq5wTEoCo5FOVUTHIcGqplq48t0Ul1BCeiheqk+6l4g z5Li0cuX7uFLd/GlO/iy7XyHbXzZ5oPRWKxswn3ZS/pKp79F08XryAuORmFI DEpDaARVH8KXo9qprhD+c8F8CWqALzXI81BwggKG+eCvMcynxCNxHuTIBujz PUqMoJvx6+ab7mDUhs9cx7LslX3kIVubX0BuUCQK+OrFIdEo5yvXUI181Va+ aod45RC+ckgiBoITMRRyBCPUGDVOTQiFHsFkaCJhmeBP/RWfT+D34zESHM/h xKGfukeg+g7HoMcvGmNp17H0/jB+iLygCHodhRIOoYIm1PLlm/hPtPGf6uI/ 2seXGaCGQ45iNPQoxqnJ0GOYCjuGaWqGUsAsj3/D41HqCJ+nOCwxtHH5cIYY y0FSOcCh9B2KxnjatUXZSLyl08/RevEqSoIjGYZ3I2l8O5IjNOIIBvnqIyHH OIokTIYl8ZWSMBuehLnwZMxTC9RiRBIW+dxixDGej/G5Y/z+xsgSaVqCfFRx GCHUQ5x9/YeiOKKrWJANSTalf4CWC1fIewRjEyUNqZpDahBD4hvrDhVDOsoh HcMIhzPOoUyFJWOGQxDDWYg4roCliOP4CMs83o8USqZX4vg3WI5M4ndlo5wP P8JfO8JfT+Do4hnCWIxxZMMc2cChSLyeXZiXDcxTHrV1wlMSFM4ZEoVK+cDq 6VMrB9ZFj/o4qEEOajQ0GRMc1HTYccxGnOCgTmAp8gRf/QRH8iDqBP+tFR4f fqDjfO44HnCc9yPlI6TECCflI5yQRhiN0YAoeheBD4b39+i4eIU5IoKzKZpM y4bWzPB1cGi9HNoAhzYSepxDO47p8BOyoUWe5NBO4n7UKQ7sFB5Gn8IjajX6 lAIPJ/F3eMyjePQomqOMlo1yOYpWc5RzkeQxglMiPPHtCMc5wpHDkZg6ewVz shF6SKefSAaW0cAqGihmXR2j2kTcWxnRbgJ2jyMconlj4ccxJY3wJF/mFJY4 MjHClegUDiOFw0nB45gUrFFPYlI+4uEUvs+nxChPcpQncJ8jXeIo56OSMMNR TkqjFD7GYYKZbjwwEkOHwz8c4T+g48JlVNLDmmDZVKjn6ISH7RxdD0c2QP9G wk7wnzqBGY5u/u3oUt6OTjay0xzUaazHnmbIn/L4Ax5T+DVHHHuKP0OfOdyV GGLBoS5EJ2OWQ52KPIoJMdSwjaEyfwRG4HFtw+z7I/0xygPDUB0UhVpO8VpG up6jbOEoO0KSGO1kDHKUo+En+cZPYpajXOQIl6NPc5Sn+cqnOYJUjiSVI0oV I4xLxY/wjMdncafxnBJnMdo1jnaVehhLSjjaRY52jqOdjjqGCWm0DH2YCH0M R0tTA8LkI3WXTr/DdG0dKvkeaji5apmUaulpPSPewpF2cqR9oScwFHYSYxzp FEc6x5EucZQPolM50lRppGvykT6VRniGIzyDF0LxqTyn4nn8aX6PnlOP41Lw MI4x4YiXOOL5mOOY4YinxIjfx4DzZIw0vpmbx8z7Q/4HzNbWo5qE1HLZreVK U0tz62lua0gyZ/px3KO5Q+GnOORT/GdTOOTTsiHHyIa8FnsG6xzeU0oabvwZ mvwi/owCXvLhD8RDPOPY1+PFeBkRjnmFY17mmBc45lmOeYo8TETJHQ6nw6HE NoQs1NV/Txrnd9HPCkRWy8TgNnN8BqWAbK6B30WOfwxyWL9kUxPVzRhnOdT1 YWTKA0JQwyqjlitWbVAi6oKPctlPkr1NvsV75GeIb3E8MoXxPo15RmSZWok5 QybOYC0ujW8zje8kjW8xje8qDS8T0vCK51finMAIUc+odb7bNb7bVb7bFb7b Zb7bRb7bOb7TaUZnQuJJHp2wWL7bSMxdvIzvSGP9EVZZEVVfuIHbLLYyuaTl UYVUCRd+qeji4l8pxBKkiqrwF2I5wzKkjIVWJwutp7OL7R8GujIgjA5E892T y6AjdOAYGiUHjssdOIXhiBQ6cPqdA3z3K7FpeEw94bt/uvHuE9L57tMZgFc8 /givE2QuvOS7f049pZ7QhVW68DA+BfeFA3F0IPYEpmOSMRn9frzJZ1gUl91Q BWmo35dKwloWThmcRjnkskAqC+OksrCaqqMaaEQj67Emqpk1mQKaacX30EQz Gql6VkZ1NKSWhvSxHHzOcrD1fUd+Qu/CWbjGvHWkno40kYdWztJuzlLJEfIw Tjdm6MY83dhwZDVOOJJOR9L5jtPfOkI/FPA6MR3/QlP4VCINozGSIQnCkFQa chr3acoiTZEZwoVKwoKGRNKQCE6AcK59oWHSQOsvXJeq1hy6UcAUWMq6opKq FZUrnWgWxTHVzhqxM5ClYxdL1f+JbprSJVfnYVmt3EpjWmlMC41pYp3cf+Z6 y4eeVB+OoCe0jf+GzJMkenJc7skp3CMhwyRkPCqVnpyReUI/VuKEJ+mM+oYn Z+nJWXpyFq8Sz34kefIJH9KPxA0/zuAxPXmYIPNjiX7ME5JpejJJSCaiOU2i OE0i6UdEDNq9faVyOpcLRQFTcDGX1QouXDVS0cQmgUtse7Co4BPQ/X71TvVT A4Gyc3+gqOjj0Sev5LtpTCenTyeNaSctzT5ReEFamv4LZwLkzgQepTtJnD/H WaudQFf4e86QlOlvOxMvd4ZuvHUm8T1n/plfEiLqGd15krjhTCqdOf3WmZlv OxPFiPsexmVdY6nML6IrZXSlUio4RJ3NnoaudHLRFE1GH9UfLJqMRNFgJLJ0 HOFxlE8JKfCrBFb5w6KcJlgbzUYf33Wv1GxEo+NgFF6yiWv8ljn+G+YkvjNH wubkW3OG5NhM05h5GrMUm05z0uXmnJXMeSbMSXxrjphKZ/FTvD5y9j8bREkG EZ8l4vOBQTE0KPoIuvyCcE3PFDf0TNiAxBAXWQ9UL8elg8Z0v9eEDAXLeqBR rtnj1ATrSQW2GUfF4Qj7sUmpMUpkBS0si6dVcVIjNMAp08+V6R4t6vaNwqvZ BTS8b9E/okpYRBdrA2T81NGielrUwkzTSYv6hEXMNGPkZ4oWzUkWpcktOitZ tP5ti45INokzU7HE0TuL0v4Li05hJm7DIqbgmCO4SXsy9IxxmxaJFqRG3oK0 8B128p32bHRGIbLOaIzl9QQ1GSp1Rwps0JJYOs+KRolNmqxFO8pnj7LdYMsh tWg0S94QDdOoIRo14B+NHt9IvJpZQP2HRlUckht1OPEDo5pD5UYxJQ+SozFO MmHULE1apEkPqEdkaS1BbhSNeZ74n8xSkB58xm/9f4wSLMUel1gq2W2LTH1T ZNKku1SVVC/TpFBh0hHJpH6aM0SNil5NtI+hoi16169J7WOEaB9lLeRCuKyN FO3jfLjMNdHYSk2taNLo1ihT/gjX7EH/KEynX/vQqZ9grrpR2mGpPUykAmSz rkE4RaQ66FRvxGkMEKkRIjVBp2bo1AJn3X069ZA4PaZLT/6zWwqSXb/ASzHr jjCXU0/lTq0mvHNqkU7N0alpIjURm4x6Vx9kGpghS4hu5VrYoI7vpJnvqIPT p4ezqZ/oDEmNY5LUOE6JxpE90BzFjpbOHJeaWtHSLkstLbvcZamjXZIbJ/pF 0W/PCLPCZGaNMyDjNGuUJd6QfyQm0q/WfavOpVfVrA9r/YVXRySv6pi+m5i+ 2+lVN6dfPzPU8IZXMWnEIJ3FG7NUvGwKrsn9epp4TvJLQTjGYveIyFEvhFOJ 7zm1wVT8hlMnZU7FJUsuZVM5QvpmKHHw5EAS0U6XuulQv7w7lLXXoocVLrG+ Zx+7GCHaa3Yo1AO22aLJ/o7UZH+fX8s2AUTzLzWtEWRKtNXhsm2JCblNYwHC pgjR+KP2/WaLacqPJaI/C6LD9CjwGKuMZDTSo1Yu/l306B49GhKzL0bMvjRZ mpJm31nOPhlTkk/0Zz1ReEW2jsj4eibS1DN69LncpTMSTyv/hUtNBw7SIXM6 JLQL2fq7UO0Vwmr1CGfcMWbsJHaoyexQRZd/Qt7ls0ulFtlZLUfKuvwV0elH yTr9RxtneZsvmmfh24MoeQNNx2YJ1xTher/Nn2DxNRYQgdlzV2o/7Ey702+g xk9sdTJVBRwjUJwFNGsjp/fSLJGqRpmqJuWpauE9qB7SqFW5YQqSZR9Lpq1L HMkkHm/kqEd0aoUzb5lOLcSfwiydmoo7Ls044VKugQXPFsjSs5B6+TY61U2W +unUMJu5MTo1xU5H5hT7+UhZP/+Aevj+jkO0bMeB/b2C1MD/7VvDHlDLNGyR hs2xbZuO2Nhx2DCMPRib9ZGAcLyeW6h537C/x3RVE6p8adihdxlL5PYmGiZm YY+YhVGyWThOw6ZjZYSJ/H4/Xph29q1pJE0Ba6KCWpNWvjW5SRsp6sFGMhdG xZ9AM5GS4SRMsmRCt+TE86FRx9BOnD7c9CCGNEhseixyvVmWTGIzI7YUosWW wmkFaefjR3gSK/Y/Ut5K2LVKPYzhHI2W7SLM06wZ0jUZeew/7XmMB0l7HjXv 73D9COWszqv9Et5OQ5GqpGnIgYlp2LcxDeWLYAenbKVLEGpdg9FANVHNrsEK aOWDn6OV3xoLSKRnzGTsRwTuU8ExGGKB1O3ujU6qw90Tre4eaHJzpzdGuKmm i7vaJrijbYo7+lZcWY5K2y6dbJF66dO7bRf6S48WJJ/EZobMp1X51ovY0Hgi bb2sx6Z+JO0Q/S2fIGnUw1jOUzq1HHMCC3RqVgyMTkn7LeEb+y2cgyGRrB1C P3BpC6Yqm1FxMJ7l5xHZ/NsoFcQCyGH1cEj1vrEodg5Equ4enNfdh6vUTeqO 3n5k6O5HFpUtpMPH2vtwV2M3rquY8nlLlO2yRZ/XQfR5+qDX0xs9Ht7o8vRE u4cHWjzccFNdB7fU9XBDzQDX1Axx3WgPMva6oNI9hDYdf2+/5xTfFbMbtUiL 7ovdqZiNPZ8z0iaKsOcMK/KNjRSxQ6UgHf/u7V7PIzq2QseWY+R7J3Rsmo5N SFwdle8okKtQZqzgMLyZn0f1+1vOm9F55hYq/RLZzhxFTZAsvzdwmJn2h3DV wgVptOmi3l6WzftYE+5jKtmPPD1rFFNlVCVVLaSzF6Xqu1CoaoIsZRNkKBkj Y4cRbivuRJW5jWRXt5cXOmlXm6c7Ci0saJcupY/rwiodM2Tud0H2/gMo2O+G 0n3uaPEMl+81pdCu09Je0yIhv0+bHoqNGLlVT2LTxD5eGhPKMx6fv90lS5X8 WqfW4uT7L3TsPh1bjBH7Lyfk+y9J7/bzxG5T2Nvdpm+Ztc42sNQnniXpEVSR r3yPcFw0d8RpXSuc1d2NKzTqFpVBowRDBTSmhKqQm1RDk6o0dqFKzRQ16qao 5bla1RQlKibIp2F5NCyHhmVuM0SjnRPavdzR7OmGQksL3CBX19UNcIVmZVja ItfaFfnWB1Bk7Y5yaw/UWHuinur1isS0ZFYqluQ7Vo+ox+92rRQkm/6eJr3b vBLbcmKv7mm8fKuGZj2Mk5tFSWbFHMdklHzDSqStCOIVzskYFokn9Rtmectz +/rMEkoPJuLmfh+c0rbAaR25SSTqNk3Kokk5nHj5NKqEqtClQTSpliZVqssM qqcaqCZ1UwU0q5swrZepGtMvIxQr70Thjp3IVTRAgZYpGj0P0CdLzjt9ygBZ VjbIs3FGvo0rCm0IlK07Km09UWfnhSY7b7TaeqPPNQjzzJhL1APhk9jbipPv bXGJeRafzppOHIRFP8RL+X7XW5PE9g2Nuh8n366IZc9JoyY/oIomRcj2tBYu X96Yfxt/lqs6noYUzV1I07LEOTp0mQ7dokOZdChfOKSzD4V0p4yqEiipm0v4 1Ap3NOiMpilaqFZNE6aHNh5/ikYNY/6MEcpVjVCqspNWGaJAUR+ZW3WZ4nbi hirnnY4x8m2dKBcU2R1AsZ0byu09UM3Ss97BC80O3mjnathtz1Rn54M5ZvkH tEdYtPbeZtczsblDvYiXbXopSNugP3i3y0WrHku7XFyBJZu4MshtmooWO11J 73a6ImlTRDRGQkM/YGkLmi9eQ0FwFLI9A3CeTl3WtsINOpVBp3LpUhGzUq42 s5KOtcRRKSdZhcSQGeo1zeiSGVq0zNBGUNqpTiGuZa1aJnTRiD9nhAq1nYTL EPmKuihU0sPdz9RxiyAV2jmg0N6ZckWRPUFyIEiOHqh19ESjkzdanHzQQfVQ 9xwPYtD+IBZZOzyiQ2vvbYE9k28NKgifFKTdQZlNz6i3m1/CJmmLR9jEhZRd 51TMhk1imydRvgEWjdGw0A/y0xa0XLz69o+r5WJLzDMQ17V2c8new/VsHwrE VBM5SceGVtmgSN0CpWrmnG7mqNUwR4OmOZq0zNGqbY52qlPHHF1MzK3CImU9 ZG9SQ+YXKrjzuTJufaaEm58q4vrvFXHp11tx/mebEf+77bjA/uUOO70i2lRG myqdOeecOedcOOdcfNDpchC91AA15OyLEUdf3GfV/jhOvu0TL9vTUJB2xn4s 3zWUwfWhW2c+dCtOuHWSbrFc29gUixabYnQrkn1zeNjG3POU98uTdY0oDo5E WUgU7YpGNQuLjZ3DQnMX5GnvRxGJKtW15dyzRZHmHhTQLrHOVZKwWs7bBi2W 1sxurToWaKfqVHcqoHiLJv4JBV9qIP9LdeR+qYaMz5SR+RtFFP5yK/J+tRW3 f7UZN375Jc5+vBWxn6tQaoj9QgNXdu5GlQunoKs3azYftLFI7aJ6qYEDvhh2 9cWoiy/G6dqGY+vxwq1novwVZv1I2vOR2ZUutyvtA7uWqXd2HZfZFfOeXVHR GA4Pq36/VleU/oRZ/N4fpzd2FaVNDzarvWxWO7wiULOLmYSOVdC5MjpVoWGB Yqpc0wLVnLt12pZo0rHkwscMtEUHhVu1UUwVbdGiNFGwWRO5X6gi7zdKqPmN Mtp+q4Su3ymi/ldf4i5tu/nLLUj/eBviaVn8Jg0kfKmFpM3auGu8jzW9D9rd aJmbL/qoAWrEzQ9jB/ww6eqHOa9QrMkt29hfFJh9JO0K/UC2CfS+Y9QDurb0 vmOxJ945FkPHomWOzV298oFjP0FRUBjKyVelnK1a6Y++CfLNjyPS5scw27Ex asAnGhX6u1FOpyo1LVFLp2qZ5eq4JjRSxVzm8rcwM23VIV9bdfAvKKJphTQt f6sm8j5RQ+nvtNDwey0MbNLC2BZVtHyiiKJfb0EmdZOcJX+qgoRNmjiyWQvJ W7Rxiv/cNc74dndfdFG9HjTM3Q/D1Bg1SeOmaNrS4bi320JPE6SWXVD2XNoh SpdvnKW/55lo3zc8S8EMPZuMlW0JTcTKPYuJxzg9W2tsqH5/X+YHmKptQLn4 Q3mI+EN5jERYIz1rCxFbIUdx7+2GUTImmTYGD4ag28UN91zd0W3rrCA+M4jf oJrTs2CLniRhWwGXvsLtOihSJHDbtVGgpIn8HYSNnpV+ZoCWzUYYUTLCpJoe 7m3RQMnvtiLnt1vp3VZc+q0iYjapI5KwxXypiQT6l7ZND+epOlYXvR5+GKCG qTFqkt5N0btpevcw4sT73skz2zMJNmHaUzlsq3LYNoyTbc3SuLhvGxeHsago rH7LuJ+gNDAMVUGRNC1a+vt9w8ZnINim9YYck+2OvN0/OoEumtZH0wYOeGDY zROj7l7otXGS/MtT1qFDdEpZwMYvfooSHouVtd/pC10UbzJGveIu9NPscS1j 9NHYkt9vQx6VS/Pu/GYrwj/ZgcOfqyKIS0cYk2E0k+IJ4ntpuz4abQ/gnqcf hjwPYZTnCZo3RfOmOVuXAuPe7q8pSPb9kGbJt0ESvm3c+xtGYgPyJCbimNfi uGjG0bjYRIzTuOEo2iNzzU3eV0/X1qOCuFVz1ayVfy6jUf65jE6i1iftvImd EtnnMoZ8w9C74RodE66Ne3h/JNn2CxSp6LI41WPVpYdyPi6jylltVajKzqU7 dJG7yQTlSpZo5yzv12F9q6SNnC1KyP9kO/J/vx0ZRO8MF9LDX6ghiEtH2Ga6 RiTjOc2Pb9PGVWaCZlZsg16HMELnxuncpNy5KeY72T6ItBBskPckIV0uFm9y 01biv20a69a3ph2VTBuLicXs9WsfeLYDXRcuy0iTf1Kkjn410a+N3aV7YneJ fo3Tr+mIk5ye7rhHv4bcvDDi7k2/fCS7CpR1aZie9LhUVY/Flz6N0kclK/hq qkqIXU8FVcZWMZ/zLVPNCg1mNmjaaYIcVXVkK6og79MdyGclkkHsbv5+K8K4 eATRtDCaFkXT4rYx523TQjoLu1w9C/R7ETkvgdw78yaZ/xaI3GrC2e9IuyJ/ Jxn1eIOweJlhb1fOjW3uuGS5YUcwHhuP4ZgYPGpq/JCyf0QF52bNe59YqeO8 3Nhm6mZh3R92QrbNRLfGg7mUunpg8IAXCfNmJvZBi4W15FKRij6KKfFfuaoB nTKgUwYK7AYMuCDU8FitYcAWk0Zq6CFvuy7usKUsYq1fqa+HXDVN5KipI+9L ZeR/tgNZNO3up1txYpMywrZpIHSrBiJpVux2LRyhkhS1cGmHHqrYbgrahmmc mKfjHmKusgjhSvtQdEePREG7Stf+lg/ZI8gdexC/8ffK09Ku20w8V894Ihaf LM3LsbhEjNK1/uho+UbqAemkJn1wpiowHLVB0bKPaNCUOiLWJJmWzNXzOAaE aeGc6RGnMOQXwWTmiUE3byLmwxEeRL6yzKhiIlVKs8R/lWyeq9UN6ddO1v07 UafBx5qGqKGqNWmopj6XBX3cZTNerGuCagM2l+oayBFSUqVrSsj+fAfLue04 /8V2RCjSMUVNRGzXRAzdSqSO7dDC6R06uKGkjxZ7MU8Fbn6cq1wePH25RByU /qzxIF626btCx1bYVCrweAZ/w+flywBdE5u6c9RUPOGgc+PxrBY4OUfiEjDI jPawqfmv5B+SuH//KTo6Z5CT3YWU42VITy7H+aRyXDxWjktHy3E5kYorw8Xo Ugw2zaC/YQp333f9xx9+9kd8CCJY9sGYZmLaQcd76fhA2EmM0vHJyBSW8h6c 2N6c2N4Y5btqYdlfIBCl27KF+GOpq6qm27VsIUSn1aDJvpQTupx8lmtyYmvq okqb/amSAe4q03U9U1QbGqBEUwO5GlrIVSevm1WQ/4USWw9F3Pp8q8x1LuDR SlqIpuPxdPzIDm0k8etrjHoFeb1Hxwe8fLm2sGimRph0pgNjFDiF0zi57/N4 n0YvSxJrbioWJUxTMEvDp4mqMHyMqI7Gs0zjBB+MTUB3dCz+Ur52dHVPIyWl FGdO02nqSko5blB3TpUj42Q5so6XI4dRyGUEco/wcQIVV47s6HJkhpdhvH4a j+fWb8mC4Cqd1LH+dBXd5y/LP50kAsF8EXQEDcHH0BycLA/ESQyGn2IgUqRA dLNjkALhfpCB8OX6rY9CFQMGwpD93U5m0J3s8djDMQB1msYMADFX5RqvzgpS g6W3phDLby0aznU/Q9kUJfpsn3fy97UYCPG8JpOHMsvyL5S5hO3AnS+2IWIH A6HMQKhoIYrmxzIQiVzOjipr4bySLq5yHD0MQh/VTw14sj329MFEYDTT6Bk6 TsVLZwU+kYq/ZuFzmtmVVaNEPdMhyR9hIIZJ/hDJ72fO6GX1+GpxCX8h/1te DwORllqGc2eIelo5rvN8m8qiclPLUcDgFDEwpQxK2YlylDMoFQxKOadFOYNS yqCUxFAR/LmQMrSeb8dNWVQcpJM5ZuYG0NVTjsqqK6ih6iuvooG6ttcKt/dZ U/aUI4rcAlHiFswpk8z64YQsUpwuo4zSaDBLWFcv9Lv5SJFq5HTJZ5SKGKUS 1Z0oUzNipIw4XYyYlIzZajKFq7EKU6c0WLtqUlpCjJa2NjLp+G2VnSgxMEON kRHKtLXYsmozWuwHNNl3qnBt3KSEjE3buQaqIJyRimSkIpVl0YpjGZdInWZp d5ndfYmlNboYpR5ph/sgSzMf9LG+mWGUZhmcOWpW0mk+d5oLIOnjQjjBMI0x TMMM0wDD1M/5co/zpZsVxMiNm/iuvLR/uLKOs2eKcSG9DJfSy3HtLMNEZfFx PlXM0JUxZBUMWTVDVsuQ1TFk9ZxHDcnlCmhgOvse6hm1WiazGkathlGrDmcU A0rwbG4d12VRs5VOOnj+/BG6+8pQU3cFDVRz3VW0111DZ+01dFE9NdcYtT3I 3G+DrP0OPDtJm9A5+w8gb78bKpz80XE48W0E+/0iGUFveQR9Uaa/ixE0ZAQZ Bc6zckauknOsWsOYC7ARF1tWLUx2hUx2RUx0RVqUNgtnIR0dZDEaN5gsSwzM UWtsjDJdbeRr6zCKjCTnXZ6WKnK37kDOF1yktygijBEMExFU00a4SH6MXhyj eVZJT5pvt/XM0M7IdTJyXVS3hze6GcFJ6c8tU7GnubxM8jjJyE1Q44zeGIvl YUZvkNG7x2zXywj2cHHujD2CkZu3N4J3r2eSQSvBFQbs6rly3KQyqFyqiM+V UVUMYi2DWM8ANjGALVQr1ZZS/hHamRX/Eu2MZyvj2cwp2MxANsWXo5H5sC60 BD1nW6/J4mctnfSk+PXeK0Nd/RU0NVxBW8NVdDZcQy91r/4a+qlBxnOIscxg HHP221IOlDPlijzrAyi0dkepjQcqbTzR7BLAOJ5G/6FI9DCO91jAiDhmK7O5 5kySxVEsUCyYGMNqTRNksjLNYSWazxgWsjwo0tJj/CgdSpfS00WWqjZuchYX GZpIcSzX00G+ji7ydEQ8NSg15GspI3vLVpz9codUJohZGKZGqchimcSS4TRz bxqVTjUxfq2e3mijOjy82KV7YiRGfKZ6NCaFiXI09hTLAJmGGMMBlqP3qF7W 8F0sSzsZw/bYoxi6eUc+A3+EsoIWBrAE10QAz3P2UVlUPlVCVfD5mrMVaEiv QHNaBVrTKtF+phKdVDcf91C9aZUKPFTgr3gsRw8nbBfj3cnJ2sHc2s452s7Z 2RJVgoGLrbgqi+h+6WSJFy8eob7+Mhobr6C16Qo6m66ir4mRbGQUqVFqrOE6 18brmKCy9u3lTLRFvrUjo+lMuaLAxg0ltu6osPNEtZ0X6u280WQr/hoXKM1O EdUOW1fkcGbKomrEVZD5UR7VGi1T9hH6yGGpnM+IFmoxB2uzbNGhdCk9iuVy FnPvTc7qQvYatSbyqOpyRotZqqNJMao6XA21tuOEmgoSWDqLyB5hPo3iKpiw XQfHFHVwnDoloksV2TqhgRFt9PRCsweJdPfAQHQKBmKETmGAUe2n7jGivVQP I9rJiLYxoq1sNJoZ0f4bd2QB/SnKC5px/VwRg1mKWxc4I6kcqvBCBUrPV6Lq fDXqztWg8WwtWtPr0JFej65z9eg514B7VP/5egxcqMfgRaE6qpaqweCFan6v kj9TIYsyI9zDqdt9rBQdcUUYvtyMK7LI7pNOBrjXV8o5elmKakfzFfQ0X0V/ M6NKjVITjPJU03VMN17HDCM8S2Xv34MCa1tG1IFyRgGjVmgnttg5Xx08Uevo hUZHb7Q6+KBpnzM6HEQn6YvaXZznyu+iW6JmLI+uCQqYdzPYCEnRZWQLtRld HdZCupS+EKNroC9F9wbrogIjE9SYsiXXZ2T1hBhdPUZXV53RVUGOiK6rDpL2 aSOW3WS8ojZitmsjiq147DYdJEpR1kYyddN8L6o4V6upWka31t2dFeMpfIRu xvYv0RV7knn1JNpiT6Al9jgaY5PREJuE2pijmGtu/a78yqSKgkbcOFuAW+dL cPtCmSyqFytReLEaZRdqUXWhDvXnG9B8vglt55vReb4FPVQf51v/pVYMXW7F 8JVWjFxtxei1Voxdb8HYtWaqiV83YuRKPSPISF+SRbmf073/dBn6jpegO6GA 32/EZVl090qn32PgXglaGi+hvfkyuluuoLflKgap0ZZrGG+5jqlmRrX5Bt/F Dcy33MAiz0s8d6ZEotDGltyzNrJ1RpG9K4rlfxmocvJEnZMXmpyZ5Zx90MzV t9FyH9r2OkgRzub8zVMVETaWR9iEq6oJ56wxMti4ZWvx+6J10GHm1TXkvDVU kEL8a1mA1XUZYCMGmIWsyUaA9ZCvz2mszwDrsbPQVUGW9jacOMBpSh3dr4UY dh4RDHToFi12xNqI2CYLeDx1yXwPirmgljK4ZR4eKGOAW6NOoYVBbo05iRaq OeYEGqm6mOOsT5JRFcMm/0YGni4uywL8Swx0j+Jmeh7unC/C3QuluMvgZjO4 BZyCZRcbGOAm1F9oYYDb0M5itOtiB3ovdaH/chcGr3Rj5Ho3Rm90Y/xmNyZu dWPydjembndRnVQHpm61Y/JWKyZuNGP0OgN+tY4Br8EQgz2UVoaBk0XoTczD /cZRXJIFeqd8l3/juorqCzdxKyAGmYdjkUWJKyuy/GORKa6pqCFL1c1Ym13E 0sI9tBGMDjkY9wQYXMdHW69jkmBME4K5lptYaLmFpdZbWG67hfvtt/CA6jod hSIbOyZzRxTbuaDE4QBKHd1R7uSBamcmdhcmSSb0NldOf6aHRqv9aLGyRpXx XmQp7yQcRiikiglHKeEo53JdpW2Gu+zss7R2Ileb01uXAOntJBeGXDqLDQzx Tyhmf5mlQTqYKgqNzKXpX2bI5Vp/gw4tinToKeOuoMNNF8fddJB8gD0mFW2p gQAlNQRs0UQASQnaRlK2ayGVdGSRjBwm9TwPd+S5u/E1a6JOsmqtiTqB6ugT qIw+jrLoZJREJ6Ew6hgmm9ogu6blY9xMy8LdcwWc7yXIvFCFLGbjPOJQcrEZ VRfbUHehA80XutB+oQfdF3vRd7kPA1fvYfh6P0Zv9mP89gAm7wxg6u4ApjMG MJPZj1lJ9zCX2cdzD2YyujF9t5M/146xWy3EiDmBeIxerMLI2VIMnipA75Fs vFx6fFFGhr50+ivpMpThumbpMpSswFjkU8Ubl6DIr/tVQHVAHKyky1Aq/eNQ TmLyvUJwea81Sk6Ek5DLEiFDJGRMENJ6A7OtNzFPLZKM5fbbeNBxGyudt/Gw 6zZWqamCVKYOUmLniBJ7UuJISpy4/Lt4oIbtVAMb3xbxdx+qi2qw2ocWtjJl uubIUjJkG2TEZtcYRaSkhJSUMYVUapkxfRghk4Tk6Oxksucyr09SDEiKkCHT CZvfLE1BiTEfW6DazJSUsCUzECIlBpoSJTmk5KrxDpxw10WyEElJciMldhoI tFSFvxHFAtBnizoObtVAoqkVrrq54zrpuOnmhrvefiiMOI7CyOMooPIik5Ed mYTxpnasLS7Ltxt+her8Wtw9m4vM88XIvlDJFaEOuSSjiGRUXOxELaloutiH tkv30HVpAH1XhjBwfRjDN0cwdnsEE3dHMZUxipmsUcxmj2I+ZxQLuUIj1DAW 84Z4HuTz/ZjLucef68VkZhfG5aSMXW/A2OUqjJ4txlBKLqYy6yBHRFe+bbdx oY64djsviHhQ5e9dpNMovzylJfDd9dutAfz6cLx0uU42K70sKmOfLe7stUHN yUgmkhsSJjNEZIEJZOktInfwqPsOVnvu4DG11nsHT/ruoNDWFqX2jihzcOEq Q1ScBSqeqDlAVNy80czerd2dqLBKrBeoWMlQubtdlxWjDJUColJMVEqZUMpZ LZbomCKDqGTrGjEpcEnRN5JQKTLcKS6cJyj/F7lcWm6pmfIrGSqlO+WoGGpL qOTqqyFbTwnn96jh+AYq7qwdNlCxUkWApQr8LZRxaNcOHDTfjhRfO1Re4tS6 GIvKC9Foy7mJ4YYOqh2D1F9Lvv8Gqw9WcSctA1lMHtnny1gCEg2uHwVcN0ov 9jCZ96HhwgBaLw6h8/IIeq+Mov/6OIZvTWD0ziQmMiYxnTWF2ZwpzOVOYSF/ CovUUsEUKkMy0OqUhvu+Z/CAiWOxgMgUDGMubxDTRGUiuxdjGV1EjIXGjXqM XSonIgUYPJ2B1/cf44IMER35NuVoXdMH19xXiC3xYKJBtQQTifeu2JGuuQ8U F6KIq+1/iN6ABDS5+6Gca0YpVWxtj8L9dijcZ4e8PbYYyErFfJscEeLxsEuO R+9donEX6/fuigs+++9CCQ2hvu8wcTqAMheuO65cd9y47ghMiEibB1tp94No Y9Zp3s0MpmuGO8TkbVYhJoXEpJgZpZSYVOiYsRhhy0hMcohIngFRMRQNBFER MmJWoe6omvE5C1QJTIz0kMu1J5eY5BKTHANV3NVjNvHQw3Eq2UMXSUTlGFEJ slKTMDlsRUwsleFnsQNOur/HsQCO4dYhlhDeSA7ZhYxLJ1Gcky3Wu+xsGSN/ gZq8amSmZyP7XDFyzteQkWbkX+iU/eXqX9B0YRRtl8fRfW1Sembo1gxG785i ImsOUzlzmM2bx3z+PMM/j6WieSwXz+NByTzynG9iIrIOf7xch29u5mC5ZBJL xROYLxrDbMEIpvIHMc5sMsZMMnZHIFLLLFKC0XPZmMmvltOhLb89QqP89ggF 8tsjbHwio5USNyjopt5etSS/PcJwcMJH0g0RTFDPZaLezh41zAHVtjbs+Vks WFOEpJyQdJ+KwX0BRvddgnEXa30ZhIKlWX8Gng1k4tlgJp5TC2XpLEgIh70z i5EDKCccFYSjinDUubPb9GBvTnWITW8WLk3MIa27bXCLcNxVZOdIOHLFxxvY kxQSjmLmkTLCUUGASvVMWWiYMNAExJAQ7WQBQ5UbGqPCwBi3CUcB4ag0J1RG BGOnjgRHjqEGMg1UcNlURQ7GBhw6SHDRRuBuFiQExM3wC+xX/QX2q/wce5T+ BYcdtsPfThlelorw3LUdrhZmOCC0y0wBruZmbE5czDis7GxMjY7Ka5HfIiP1 FrJZouac40pzvpHqQAHTSPGFIYmPukvjaLk0hc6rM+i9MSs9N5KxgPGsRUzl LmE2fxnzBctYLLpPJu7jful9PCi7j7ajRehxPobnSbfxx8phfFPbgQflc1gu m8VC6TRmyc802RlnihnLJTdZgpsmclONsSv5GD5/G68ePDov40ZLzo34fFgh uSmR39hC/Cl345YaEjPUQEgChihxUdtYsLgnQ4ICJkMSocojkfI+hFZ7WzTa W6PBzhqNdjY820jnRrLURNXb2HDd8sWj3gyskZt1cvN0UMbNiyFqOBMvhUYy 0RTuzwQj+HElP24oPyD44TpEfhrITounj7RX1+XpixxyUai3C1e3aOP6Fh3c 3KaHDPa3OUww+Sw/CslPMRNMKX+uTI8ckaEKfVNUChkIcZ0iO2Vk6hb5yTPa hQryU2zMNY38ZBtqIstQHbfIT4qDtoIEz98iifgcowKslOCk8wls1D6mfglr tV9gn8rPYL7ln+GzRxkHd++AL/Hx2aUGT0tzBXhaiMMuc3wXHiTIg/y4U6ci IjBNhmQXLv81RroGkHXmLjkqIUd1VBs56kHB+UGUnh+TmGm4NIPWK3P8HfHf /8Fk7gqm8x9irvARFosfYbn0Ee6XrWKl/BFr1XuotDuGR2Hn8G8XruIPhTl4 VLOIB1XLuF+5iMWKecyVz2KaHE0Uj2OskAzl9ZEhVjB3WL3cLGOtm4nH9wbl /GjK+dm4K4m4F0gVc089+WkhO53kplfAQQ0TlVFxMxTpJijijiNHFDDLB9/D HI9zYUfQ7WCPdgcbtEmylc7f5TO2LOLE484QXzzpl+cZiZcsspKFV6NZCng9 moX/jeXKc0w9zixdNrBh6iE21ew6C22ckLlrP1J36OEsdWGbDi5v08Wlzdq4 8IUmLm/SwtXNAiFt3FbURaayAQrYLBexfCnRJT5Ep4zIKPBowi65jMiUEJli 6oaqKXKITSmxKTTWQdZObWQSmzsGarhgpkpW9Ck98qInMRO8bzts1X8NG/Vf UR/DWv2XZObnZOb/wp5rkt8eJfiRm0Pk5uAuHfhYmuOgBbVxJj0+lLcQGfIi P16mZkgJi/hIfo1+XW4FslNzkZPOFHS2mfh0Uf0oODdKfKZk+FxZQOv1Zelx /90V6Tyet8qm4TFmi9awUPIES2VPcL/8CVYq1/Gwap0tyk1MHTqPP5y5gX/P uo1nVRNYrX2EhzUPcb9mBUvV9zFftYgZ4jRZNo2xkjGMFQwyHXUTJRbCGUxF t/IxcOkK5BxpyHfJN+4pIz5R+I4j2RW3feRnkBoJPSK/q81R6Y42c9Q8tRh2 TAFL4cfIylxgNHodHdDlaCeTE9cuJ3t083GPk50CM6id2H914Zcu4tu2GDsf h2fE6YUMJ7weo8azmN3f8Pi/0BQRwP7aFWXObihzdUfmfnuc1jKWtq7E5mSa ki7OK+nhkhC5ukSGzn6uTq40cOlLLVzh11e3auMGv3drO/lQJVu6JijSFZ87 LtYzYQlcTKqKyVSRqHtYHl9VZS3E/rpoF5c6Y23cNdTCbS5j11jjHHfUwVFP fRyjjpIpP8svYafxa9hSNhq/Ik8fY4/yz7Fr67/ATDCl83v4k6nDZMqfTPla mcOP+oi/aY6fkDN+bSGT7y7BlxlLaDP4kKnU8AjMjIxKMco4eZ1QFSEnrZZg tROsXmoY+ecmUXZBto41XuU6dfMheu6syv6M/U+YKFjnsvQUcyXPsFj2HMsV z5l2XuBh9QsUBd5Bl8c5vEy+hT/fpe3FFXhS/xSr9U/wsH4ND+oeY4l8zdc8 wGz1EiYr5zBeNkWu2JgVcInL68BYDivnzBKM3Ly5wZS6nKnJuoa3NwWqlD4R J2cqlEyFJkpX4oo7JYmrcKelS26TMB+eRJSSsByepIAHEUkwwwqPM75B6HG0 R6+TA/qcHdDrLM6OuMfzgCt1wB79bkJ2GKDEucfVljPnLF4Sqldj2cSJmsjG V0KTsvNy9TkUsEguZq10XM0AsaLN3a6F5B3aSFHWQbqyLi6o6OKKqh6uKOrg KgE6t0kT6Z9r4PwmDVz8UpPAEbJt2rhG3djOBMbfydZmfUTA8vW4DrKgzidY uQQrh+35BdZXt4241pmzLzPWwg0mq6sG6kjZp4VEJqsjVIyzBpPMZ1zcfvsO LI2PYbWDYG3/KcwJl8nmf8bhfcoIEHBxITxkqQN/guW/21ycv8MnzfH3sqfI 2CGJMTP4kS9f5iwfE1PMcM3LOnUHOalsvc6wVkpnokofQG76GArOTpOrBQmj puuP0H77MXoy1mVc/TMmC19gpuQl5steYaniNe5XvcZKzWuM3OGvOZ/FSizL pOu5+Co/G+uNr/Ck8SUeNz7Ho8ZneNCwjmXytVC3itnaB5iqXsR45SzGyrj0 lTBfFTJf5Tczb1VgNCMTb1ZXzsnQUnvvrkTitk4VTFmyeyfFSjfj6pB/nFfc /mpUusA7Sbquey4sGYvhydLVuOLa0hXqIfWIWhXXtPkF4p6TowL6nZ3wd+h3 ccagqzOGXJ0w7Ea5Ux4OGPJ0wLCnPUY87DBIdbna4BWxek2U3kzKsPoOvp7K 5hpVfz4CScr6iP5SXcIqXnw2SVELx5W0kUq0zhKriyp6uCrEXHaBGKV+po40 5q2zROwc0brI5y5tI1783avUNf5chhaxYSufrb8TWUQq08CQ+ckAaapGuGZk iixidddIC5cNNJBqxtclTglUlLMm3E0+VSBPv2HhYEOq9rFs2qUoiGLJRKrM SJWD3qcI2CuoUmbKUqd2IUBozy5W6rs+QiAffEc85NPmksiZAhEzw/8kZGY4 xOTlrM43EXQSOae5Ap5poZis0oaRlzaJwrNzMoh+jqabj9F+dx09Wc8xkPdS enay+A1mSr/CQsXXWKr6mgvbN1ip/Qa3ndIxHnwbX53Px58KivC8/j6eNn+F J81v8Lj5NR41vcJK0wssNz7FQsMaZusfYqp2GePV8xirYNIqY9IqZU1V3EbA uBDm5OLxcD8+IOuHH9yRq1Zq4sSN1WS3D+gXN1WTUyWuiJ+XbqImu2XZSuQJ PIo6QZrEDcPWePwxnkSfwIgzURISSLm4ECtXDB1wwYgb5eGCUU/K2xkj3o48 O2DMx55nO2Jmi8Ub8cQqh1jl8N/8eioHX+Lr6Rx8M52NoYpTrGYZI00VRHyh hujNGogTf+XZLj7IpY2TSjo4w0x0TmDG7HWJ6Fzhcpn6BTMNMRPnNGaw9C81 cI6/e34bcaMubacUNXFTUx+39XbiNvG6wgx2iTrBqj6NVftlYyOc19dBipkm Yt2ZNd31Ee6kCWcDluKky1rSr7FX7VcwV/wFxfKKjJlu+ymMuCQqkDAVQnSY jAXsNiZSFgjca6GAoL0WLDuDeQzeu4tf7ZKdSRy/t8ccX5A7MmdlRuYoIndA Wwv7v1TEuZDLzGJcFVPvEbZR5KVPo+jcAsovPUDt9VU0336C9oxn6Ml5iYH8 Nxgt+hqTpd9gtvwPWKj6I5Zr/sTl7k/ICy1E28FbWE8pwDfZZXhZM471lj/h aesf8aT1D1hr+RqPWt5gpeUVlpufY6FpHXONq5iuf4AJVvRjVTMYq2TZVdFP 4rg8ltQxlRVgbXRwgzRVeaO6Pj+PsqAwVAVHyu/lEc/WLwEdJK1Pul+e+IB9 MqZI2ax0V4ETJE1c6X2SpJ3EY2ot+iTWo0/hqVDMSQyTtGFSNkzKhl0PYPjA AYy4H8CoB+V1AGPeriTMBWMHnTHm64Txg46YOGiPcR8mNG8bGW3kjJR9hG9m cpjHUkP2wXePCqWKQC1VRGwSn+pl4JmXEgjVMUK1AdtZ5jIJNgJ4jjAmf6qG k5+r4ZSAjr+Xylx4ZjPBYz5M4++mKeshVdUQZ7RNkcpaP5W1/kldYyQQtOM8 pzC/JWrrwNXKAnb798Jl3y7sZ12/R+MLBewnZd+HhdLHEmNmlOn2n1M/g/HW n7K128rVUVUi7fAefcGXhFfwPgv8BUJ43MzjLoTIIZOBZi4DbDdbQx0t2G7d AevNKshJ6WQmGyBc48hPn0XR+SWUX15B7Y01NN15ivasF+jJfY3Bwq8xWvwH 1t5/xGzlv2Kh+l+xXPtnDGQ8QKHbdSwmFuLN7Qq8qezCeuu/Yb3tz3ja9q88 /xFrbX/Ao7avsdL6BsutL7HY/AxzTWuYbniEibpljNXMYax6guL6yN8fK2db WFSEtfGhD7j6zQf3w9u4CEHcbaAr5Kh0t75hMjVOnmbk92EQ92AQdxdYpdbI 0XqMYCkFz3h+Tr2IPSVxNeZChlzdMHLADaPu7hjzoLzcyJMbOaJ8yZcf+fJz wfghZ0z4OWLKz56c2WLpdgK+mpayGKFSlNASYPkRLD+C5bdXFYf3qiHIRI2A aSCKC18M66l41lxHd+jiBOE6zUyWTrjOq7GJZJ11hhAe/ZQNHgFLZgY8vona rotkJUMks8ZKJkTJ6sZI0jBCspYJEtQNEaPK2mqHAY7oGCLJ1ADOlobYqauL vZZWMN1pBCM9AxjpCunBRHUrTEmViaSfw5h0GW37GSxUfw3/fWrwl8asRaos SZUlaaL2W/I9hvL4HYTxKB6FSbIQT1tgE0KJngAveK+5pKA9ZvDU04L9NiXY bVWF704nAjdE4CaQmzZH2JZRfvURam8+QdPd52jPfoWevK8wUPQNRkv/iMny f8Vs1Z+xUPNvWK77d1xxuYbB8Dw8u1yJN8U1WGeGWm/7d6y3/xuetv8Z6x3/ irX2P+JRO9fV9q+w3PYKi63PMdfMRqFpFRMN9zFWt0BxzawdJng9BK6Ja2cJ Hk8MfwCbuKVh6NtbGm5cgtAmvzXk29tavL0tpOymleLWFeLGDOImAwK057Ep hCxFXIHJ448w6uyKcYI2dsAdowc8CJsHxjwpbw+C5o5xP+oQgfPnz/jzZ/1d MOHvhCl/B7bHdphJ9hWwyVj7Fd9EipTABGOH9oq4qSFwnzrNV0eIqTpCxRUy 5C2KDWIMk1kiG8ok8naSvKWStzQ+TmWyO8KmMo68xW8SHzQ3RJyiIeJ3GCJB SUgPCUxm8VQMfy9shxZCt/HfJ7/BXDnDXSzZGG7Fzq1bYKqpzubPSFsT34OB ujr0VdWgp64DA6XNMCJjOyXGfkM7DpGyv+B4ydg+OWNypkKtLRUQZm35EcLF o3BrC/GlBRfI0P27iNiut4h56WvDQVEJDttViZc6F8oC4jVJtOZRdOEByq+t oubWOpoyXqA95zV68r/GAHPYaNmfMFlBtKqJFnPY3bAyNPhlYeVMOV7kEav6 GWL0b3jSwTzWQaw6/4wnnUSr80941PFHrHR8jeX2N1hse4m5lqeYbn6MicYV jDcQrYZpiuVYXa/05/ix8lI8nhzeWCBV5GxNSTehDEeN+Cx9cBzqgsWNPY9K N/bsDUnGANkaJVvidplz4qao4oao4sYf8pt5ihs0PKNeSDf0fBV3Gsp4zeOE ixsmXN0xQbbG3DyZyChvT7JF+VKHyJk/dZicBZCzAFdMBLhgKsAJ04eZ0Pxt yBdbm5lcfD2bK09kcrgIVsA+DQZMgyHQ4MTXQLiQvibCtmohnIkrkpDFErIj BCVZlaBRyQQlWZmgbDFA6GY9hG3RQ/g2fURs10OEopAuwvk7oYQxkOXZoc2q cN2kCJNPvmBi2g7zbV/CZNMnMP7yUxhu36KAnerKbGT0lRWhR+kqyaSjuB06 2zfBVPVT+HKoftShvdoyvvYLvqzIlhVZsoLAyoqkhttYIUKu7/BoySQWbmMh oOPP7ZKIC9nPJtPcEE6KynBUVIPDNg2unpokbYrN5AIKLq6g7Npj1Nx+isbM l2jLfYOegq/RT9JGyrhiVnLFZAnWnXEfWR63MXWsBOt3q/G0ugerXCEfi6RF PSFd69STTq6Y1KPOP2ClU0baQvsrzLU+I2lrmGh6iLEmlmNNJK1plLSRtNpm jFaW4NHk0AegOWLmW5cPCNCago/K78squ0GIdKfTiFME7RSWolOke7I+FneM lSBLJWSpeBmXSsxS8UZIfC7f2x+Trh4EjVC5EzJPL66WXgSN8qP8PTFxmN8L IGyBhC3wACYCXTEV6IzpQAdMBthiOTNeAm209rRUgvkRskOM2mHCFUgF79dk BDQZDU1E2mgiigq30EQwO7Bg9gIhLMUi2G6KrJSgqoNorowhujYI1dkvtVv+ m/XhT9gOb9GF/zZdHOKq60tIvfm7BzYpw+yTzVD7zafQ+P2n0Pv8Mxht/gym mz+lCBulp7wNemo7oKNMspS3QltpC7UDWjv4nJohTMz9YWexB757dUiZFcdr hRBrOWU2EmU2gjJBV6StTB+JowIPlkxoArgIgZuNhZTipARH3Jx2KFNqcNyu AXs2LedDyyTU8i+toPTaGqpvP5Oj9hrdhV+hv+RrjJR/g4mqP2Cm5g8463oN 3ZEFeHi1Ek9Ka/CQa98q18XHHTK0nhCtJ11C32CNetTF4qyT62XHa6L2ErNt zzHV+gTjLUStZYli5d9M1JqIWn0zRqqKNzbEZJw5o/RwCDnbuHeruDriKJqD ZTei6SNnQ0xm4+RsmozNb9z7V9x8Rn4nXXE3lZfUq/gzeE0Jxr6iHgVEkjNP TB4gU+LKKy/Kx5uMUYe8yZgXExgVSNaCyFoQWQs6gMkgF0wHceEMssNKVgLe cL08GbiXnJExro6HyFfAPk0Eka8Qay3ar8VQaDEwXC3ttBBNxdhxNbQnc8Zc pbQ0EaCkhYNqO+GhtQc+2mwdNKwkzg4qGePAl7pw3awDp00sd77QgOlnqtD/ TA1Kv1bEjl9vh+rvFKH5GbPUph0w3KII423bYcLkZqK4FZYaGtBXVIEu1zIt SlNFGRrKyjAyssQuMxuYmznCclcAbM393jFms5uM7SY6uzluynY3BFa7mcei eIyys9qQAp+QI/cZf85SjhtRo5yJmvMOdbir7mF208IhEw+itihltZLra6hi VmvIfIHW3FfoKnyNeyVvMFz+FcarvsaV0FJUHMrGXFo5HuXXsMmcwErbN3jI 8mu14xs87qSI1pqkr/j4K6L2Bg86XxO1V0TtBVF7hqk2otZG1NqIWhtRayVq zUStoQlDVYUfoqaKisPym+QGMp0FJaJBQk1282bZnZBPErVTmCZmC8RsmZg9 FDfxkW7YLLsNzcu3mJ0hZmfwtbgtcPjRd6h5yFE76EPUKH/idpi4BfIcxO8H E7dgohbihslgprVgZ8oeUyd88Zop7eBuVrsCs70aXDeJzj4tho6FEzELt2Ha stVmaLQRba+NGHstYkY5aCHOURPxjhpwdLfHbkc37De2+Y78wwB7VUxIjSG2 /VYZOz5RhconatBgzab2uSa2/14Jyp+pQG2TCjS3qEB7mzL0GVlDJSWYaahg j44mdqoqQ4/SVVGClaYu9hvthoXJXuyytMM+S76UhRv2mXvBbpff+3QpSGh9 JKEVaSfAEl+J4884SXZTb0Hj960kzCJsLd5C5muoDxcC5qG2F26qVrBn+ZiT toA8AlbMZbPy9jrqM5+jJfcFOgtfoq/kFYbKX6Px9hyuc7kcTCrBckY1HlR3 YbnlKzxo+4oF2Fd42PmVAlZJ0w/wuPsN9Zp8vcbDrld40PUSS50vMN/xHLPt TzHVsYbxDvLVwVWzg6tmO+uzlh6MNtZjpqftA7x+isqNOw5LeB0hXsfk9waX 32hbfgfqmajTEl7SjY9iZTfZfiq/ubaUxRLS8Ib6WtIZfJN4BpMuAi9i5O7D ssxHwmvs0EHiRcQCfDiDx4O8oS7hNRbCbBbCUi6E2SyEJVqIIwb8rNFfcYp4 qREvDa6YLJeIVgDRCrbWZsy0EU60IolWFNGKdiBeVKyjNtHSQryTFnzcrLDH 1we7be2x39ZdosvMYI903sOV08bAHg6mzuwf3bBb1Qwqn2pA7QstaGzVwVby tpWZbQc5U9lC9lh5qzNzaTJb6WjrQpsrs66GOuzNTOBm4wyPfQ7wtNwPT2Mr OGubw97YGtZ73WGz2w3Wll5wsPSVcWYrMtgeJim7PRJdezj8PZwde5jOou0J YbS9FeeADDRL/pjl20zmu1MGmLuqBSGzhqP4lL/bGeRefIAidgAVt5+gNvMp mnKfoaPwOXpLXmCg/CWOu1xHIxfJ2atVWCqpwRybw8VWZqa217jf/pqQvSJk rwRRCkxbL8V1tF0v+OUL3O98TsCeEbCnmOl8gsnOVYx3rWCsi4B1srfsGGIS 68RwYx0ezk1+AJgaARP34Y2RblJcF3gEjcGyO7lLgL13i/OZaAGY/M5ahOux uIO7/GZH4kbeHwCWmEbA0rBKcCdd5YB5HcTowYMSYGOHCVggFUQFM6+FsFwL IWShzGGhzGGhLpQjBgOskZfuLwNsz/uAacsAs9VBuJ0OIu11EOXA0kvIiTW/ EwGjQg4YY6+vNyz328DMZB+MNC1hQahku+I/ZcDd4bzPC662B+Hq4Acvaze4 23jAwfoADPStYGBgBSUNM2z6QhVbCNi2bapQ1TOGttleaJlYQGfXfpjucYSd jRNcmR9dnbzgybO3nTMOWtvjoNU++BhbwnXnHtjttCZoXvDYewARJEqiS0GA pSAnK4bHGPvdfBeSxNO7SZlgLcpens7sNtLZLomyA8r6OKBiCidSluiWitzz yyi4+ghlt9gBZD5BY+462gqeorvkGVKDipHnl4Nhro8z+bWYqhnFbDPzUssL 9o4vWNkTpY4XXA9fYKXrhQIPz/F9Hp/xqadY7lzHIuma61rDdNdjTHY/wnj3 fYx1z5O0CVI2gJHWdvQ3VG98oE9Ffpuvyo37GEv3wd7IYbKrHyXEWIWNR8kR I17LsRuIpUn3bHsh3Ss+fQOxjyS+fo2nEUkYdyFB79E1QrpG/UlYAEW6xjbo ChV0MYWFsSMNcyVdTrjnb4388wHw2a1OujRJFwuOfdoyumx0ECroIlmRpCrK kQW9o5wuZxbYliowdXCFvs5umLIAs9Szw15jF9hYuMvg+gjODofg5OQPR8dD /MrJwV+Bh0P4Rzg4HsR+9yCcquhCilBlF2z59k1tPWFm5wUrkmjl4MsV1xcm dgexi4+tnXzh4uoDb1YEvs5u8HNwgr+1LfxZ8Pvom8PFyA4Blns5E2RM8RUF VNEORMpBgsuB3xBk/ZRP7n4PKgJFhduK1GVAqDThwsLSSVkb9spcG88tIf8K i6+bj1B1dxUNOY/RUrCG4qsTOOt2B21HSzB+twZTFR2YbGBL2PQMsy3MRWwP F1hMLXY8Y3FFkaD7lAKP6+L/a4YkLXWuYYEkzXWvYrr7ISZ6VjDes4yxnlkS NYbRjj4MtbZivK/rA6D+QQKqZuPG2AFHUR+UJAOKC2Jf+ClZzqKj0wRqXgLq DB7GyYGS56yXElDpeJOYjq8SxT23vuZxMx+nYc47CGNuJMiTRAmq/KjDJItU jZKq0WAfjIR4U14YIVVjpGqcVI2HOaGXVGWmHII3qTpIqnxJlR+pOmxNagRV dhtU6ZIqtoIWqvDU3o59H7Pd09vNPOUEy5322GvuCus9nrC18YG9/SHYEyXx n72jP5zsA8hSIJwdKadAYkY5C/F5lwDY+UQr4DYn5z/gds99WHlGwYq/ZuV0 GLuFnIX8sYfa5+IPS0c/fk3onH3hxLft5eYNPzd3HHZ2QYAdwdrN7mLnPpzZ +gmS9DQEWw57eYzhMcZxjyQF6fgziTaBmQSZgxwyagOycFuRuTQkyJwJmYMK IWMzmXdpGUU3HqDizgrqsh6iKW+V9lxHaVgB+sVHyotrMFg9xyr8CSYan2C6 +Qlm2RTOsVqfb3+ChY4nhO2JAg9rzFqLnY+pVcx3PSJfD1lYrWCy5wHGe8lX 7wIZm8ZI1wiGOnrR29yMl8+efjtriZuKS5AdlmUtAVlzyHE5ZCJrpWCMVdeU 9P/zkIolQibu3P+YcK0LyN79/zsIyBQkyszw9ZE0ibE31KjLQemuCCM+vhgm Y8PMXMNkbDiQz5GzYWav4VAvdHjZocvbFi0ulqi3NUKpkwnibA1ho/E57DQ3 wV7rS3iYqsDLXAWBZCzEThfeZmpw0dyOXb/4DHa/2gqPzzTgrm4mBXuPpQv2 7fOAtZ0P9jPbWBMOG+r/sXUf0HGdd5bg76HGM7s72zPT27vdnh7PdNty77Zl y5JISRQlUcwRAAki55xRqAJQQKECcs4551BAZeQciUAi50QCTCKpYFmWZMmW Q/fZs/dVgRq5z/KcW1UoQIBY9av7/T8QeM+Tpry8YlhZsfBhfL1l8PVl/Bh/ JoAJ5PsYrzAFWhefo4URrh3CkwhICge/GDj6x8DBX7iWwilACpdAKVwDo+EW GAX3QKILIDj+3d2JLSgo1Iwt2s8XUg9P5DnbQnPrFFrPv4aSs28hze46aTm9 ZPb1A86OjohxusZcRazjVcQ4Cr+0I3W4gn9GtP1lRNld5kvqEr1e5U7SUmRe LDJN8QF0lQ9grH+MnuYnGGp/imSxCfXhWswU9mFZO4zFvlWsDn+MjbGP6ewT 7E5+gv3bn+De9Ce4P/MJp/ePcWgOUc0JeY6DO89wf/4p7vF1tmvG9QibBLa5 eICNhT2s3V3H8sw8NldWqv7S193S+r84FPtojOVcInP0tajMw9p3vgpx+D1f 5vOIHPn64sjXbwVfQpOdMCv7Jt3i61NVFjb4GG8IR7mIiMCahNfssXXOXosR QRj3dsWQmx1G+MLUe7jB5OGKDndnlAYGItzVFTanT8P5zEl4nzsOnwvH4fru 63A48Utc/R+/gONPTsDnZ6cR+iYf8HM3EGvlAA/OP45+EXD0DIGjVxicuHK5 eUbCna48vGLpS0ZfcbQlZ2fJaYvxU9AWE8gEMcF8X0gcvIJlfGJblz/h4tW6 8gkcRKmwp0GHgLhjcAyMw3+FU5AMzowrP9Q1JBbuITHwCOGXComCZ0gkP4UY Tlw03biF9gsMRnhAACS+AegIsoXW7xp0buegu/k2mj94FUXWZxFvwzq2uwAR XzoRjJg5hgib9/EzRFi/D5HVewi//h7Crr2L0KunmHc4eb0Hr5MfmI115O9D U0ZnNQ/YZQ+RnTCGdJ829KX0YK5pGPNdM5jvf4aloWdYHXmOtqp5dNQs8OMX oGeMzLRxF/dmnuHerBC6mnuK/bsfctx6wsXxEbZoa33xAXOAtcV7WJnfwdKd VcxMTr/4Pb0X35m4PzSJIUnSd8evHzMDy8EsgS2wwFaFA04Q2B4L7IDAHhHY U66SH6VYgP366PiA5hJLMyMzG/s6vdSs67fMl9xG7ofFYj2Yuthiq2yx+dBg jFFTt6sbdB4+qPUORb1PCKq8g5HvGYwkxwBEulGHrR/On7bFxbO38N7J6zj1 87M4+/J7cP6n9+H7+iWEnLaB+Ko9pNyyxbq5Q+THlTFCAjsPb0703nD25FxE XW7U5e4lO0ZecvwHlpeCC6GSsFSExQTEExYTHM9n0zdUhZ/AJ0wJT77m2lZ+ hdbVX6GNsQuQw4EIHYOUcAxWwklIiALOoQq4Mm5hcriHx3FxlcEzTChAlmVY NLxDJPAOpjK/ILj7BcLNxw/yQD82C19M4Q7Qh9yEwe8KTC6nobc+gaqLbyD9 3AlIbp4+hkgS+ykkvJSQmdj6PUQQmcjqXUJjrp1C0IV34H7iXbi++R5q5LNo yd1CR+UBynOWIHJuRLPUhPHyQUzrhlFbOozCzGEkKQxIZ7KZfLkBRXEGFMsM KIk1oFTK21G8T6xHf/Ud9FbNctp6iK2FByysB1hdPDiG5cX7fNktsb/m725h dmYRX37xZfVf/qPRrw8eYUCciGHJ0aH/yWuC/TVDXvPktcIhbJND2C776z55 PSSvD4XDw363RgoHUnxxwNMvhQb7yjyBCa6+OrL1G2ZXFIsVTmJjzu7QuPig xkuEWh8R6n3D0eAXijzvcGSxbTLcg6E474BIl2ioXKNw9tWzOH3CAWePu+Dc my648I4Trpx2g/0FdwTdcofE0x2h3k4Qu16Ge7Ar7EL8ccvZC06cuZ3pytVT Slsy2pJz6lJyblfB2yeeE1YCfAIS2VhMMBOSRFa8DhfC94kSkNLQ/xLa1j7n lOQoyYID7Tma/TlxFrsAp7B4uITHw1WkgptICQ/GM0LByOElksFbxEU4PIpO uYcICaffYH5JPy7WwRCzoBMC3VAmcker2AV6kT1MITbo9L2ITud3obv6OsrO vQYV2ymKsKIIK/IIl9hKAPYuRNdPQXTtHQSdPwmXE6dQLh5Deewk6rNWIPLX I8dfi5YkE/KTO5CgUCNVqUemSo98poSpYKp5X51Cj3q5Ho1xjIyJ0aMhmvdF 8n0EVsPVta96GssL97FIU/NCOHrd4YZxenYNDx89ffFr5N/9O3eEcBj7lKNz uWRiLDYbt+M4dpHUsnAcL+H0WiR1L9Fyeq0Xy6LQWp8KrMwHgP3uOLoU9e/M JwL60iyKm8m0YssOzR5jjn5ocQ0iqAiCiiAoESqZPOLK4iYt2zsMCZdcEf/6 dRS8egu6N2xh/dN3YH/cDk6nnOFy3g2uVwjquhOuWnnC+rIjXK2ucMU4wfXj BG74enBD5wtH93CikhAVRyFPGZdEBVGp4OEdDy+fRHj7JfHZZQKTCSqFmJgw RsREpMAnIhneEUlIbh1H2/oXaNv4AmrGMTIHjiGJcAxNoiiGI5iTKAnOfAhd +cp0EyfAQxIPT4kKXpxmvSQKeIu5/EbEEGkUv4aYeMP4NQPh5eeJUEcrRNh+ gGDH64jxtkc2R856iRu0Eid0RtxCd8g1dHufRZfD22g//yryLh2H7NJJRFLW MXidfpXN6vn+L+Dx3iusrrfh/f7bKAkaRFnkBKJ9jdwGNSFF3ILkuGakqdqQ Fa9DHlPCVDK1TCPTotKhXamDhumQ8zqOkTExfDtaB3WUDq0SJlyHphAteiqn MDN/H9N39zExu4mF1Z3a76MSTiIxhQE+ksPms25w1hLOUUZUllkr3zxr/dul 8EOien7UVZ8S02eplsNKfi58B0I4I9l1czsJf57K0jDkFGK+3egmRh1XpjqC KuIOPp3zdSavMz3CkOUUCOUb16D45S1Uve2JvnNeyDhlA7vTNwmHez5bD9y6 6Yqb1s7EdIP7QWvcuGgNxwsXYWd9FVauHrC28oC9UxgcPaIJKpag5ASlIig+ 2T5JfCKJxT8F3oGp8AlOIyYmnBExEYw4DT6SVGJIIaSv0Lb5FdRCtr5CfMMw MaXAkficwhkCdOLD5szXoys/3i0yGR7cEnlEJcIrKgHekWzESC63EqISx/Dz R/JrcRMZEggXbwf4OllBfOuDY5Dc+gAvI+wmt8Fu1lwdXVEqdkdblCuMkY7o ibiBnuDL6PE8jc6bx1HywT8j5vjLuPnaP+DGL/8Hbrz632H9i/+Gi//P3+H6 z08j5EwIgq9EITGsCqmxzUhXtSCLZgpopyxBh2qmgWnh261Hjgx8fyfTw/u6 FDrhd3Ip63+Fia6MdKWT6qCN5MeKaS+Urvza0aubx9zK7osD1Lz4wdVeUTLn qjQMc6YaNZ+17C8XvQ1CerHoPUiyNJQwVz1PEU7rZjli5DHzgTbfNbfVZ8LZ 7dKE5rJoMrqGQ80dvvBH7R2NNq5Fuc4ipLuIkOESjgzOTplOwci84QnlOzch OemHkgsh6L4ZiubrrKM33sf19y/h+plruHbZHtev2MOG0/n1izdg9cE1WJ++ hitXnHHdORDWV9xhfdUH9s6RrKg4ilJy3Uvgusdn2TcFnv6UEpjGASedz2oG fMIZUSafbV5LmMgMeHPxT2keo6JvqEjI11Bvf434xlFKSqOiNK57Eeksd2c+ bC58Dbqy3N247/GITmGS4RVNuNFcOqNV8IkiqEhuNCVSroMiuAZ4wsXPGQ5e jgIms6VI5hiiefljSIX77C8i1OE60thYNVHu0Eqd0RVlhx6RFXoCLqDH9R3o r/0Sue/+E3yo6uL//bd4/0f/B87/7d/A75I7YtzkSAlIRlViOTJkrchXaFBG KTVCI1FSK9PB22rK0VGTienhff2JOgzEC5r6VIKmPuF+pUWYKc4iy8C20gnr YKQRB4P/RhOraeA2+vm6FE5IMvwX610ulv5/qkkYox4nW+pJOCbkR99T9Wlq iXBc12K8wcsi9HGX9OKP2luKdmIq9ZAi312KHJdIZDixluxDkWntg3QrL8is AhH8pjdyzgeh0SoYGhtfeL99npguw/oD5vw1WF21IxjhZ/jscZOwbpyxwVnW 2jmXKFy74sP3+eGGDbeBHko4eyRwYkmCm3cK3H1TiSkdnkEZ8ArJhHdYFp9d RsxIsokoi5WSBc+oTJQM7xHR7zk7qbd/jx+hfed33P5l0BAjzoSTJBPOhOcc lQFXaQbcpOlwj0mDB+MZkwKvmCR4S6lJqqQoOT9/NPeIAXAN8oYrJycnXxez JEFRFCM4EhSFXzsJt1OvHIPdGy/zy3pcPc19ijXyuQQ2SV1hkDqiO/ImesKu otv3A5gcTsDj5/8VN3/0QwRe9UCshxwJvipCUiGLS3GyqA4F0lZUKTVoiLfU kYBIH6+HQQgHqC4OUn2Jegwm6Y9hyHyRLEAa4GV/kg69RNZNUH0qAyaSuzCd 1ItJRRcWS787utIHR7XUfXTWkaHoTAybT+uWjemjWlpWCbVkGZz2EwvNkB4k FZmPrvgk2VJPz8yn4RUOyvq/EFWx+RCt3YEys54WymmlIOFPrge3WvkeMvwz IcUh306M3BuhyLHyR9rNQKRzL69ylSLeXkxkEhT4S1EkksPmvcuwOXMF1heu 4sYVGyJxhi1zS8g1R5x1CcF5NynO2Yhx/WowbJib1tzAeyTC2SsZrj5p3F6l wyMwE57BhBKWDa/wHHhFMBKGw5BXdA48pTlIap0ioD8co58/4B+g3vkDDQn5 Fo5R+TSURUPZcIpkorLhLM2CC+PGHYx7bAY8Yuk0Ng1eMi6jsZzLYmgpRgmX sFDuBAPhGuJLTx5wDnBBiMOlI0dn6OgM/fwcdly77I7/lIx+ykfUnph+xsuf wP6dV+FvdRrKEBeUce1rY0sZou3Q7H8R9r/8ESJv+kLpbUGUGpSArJAEJPsq kBFaivyIBs5RzWhWGaFWmaBVdcIY34WuxC70JnVjgBlM6cZwWhdGhKQzGZ28 NmE43YihND3GMo2YK+jGfGEf5vOZ7D7cSevBdLwJy+WTLybxD44OBffi7Cz9 kZkY4MMzbD6v29H3D5Rc645QbRPVXqJlvTskqgfJAqwiwhKOhlx0zHyo2jex EZeJBk7Bwp9mWqr1ij3ypEAe2yLPXYlc+2jk3xChwCoEuWyg8uBM1EaVoDQi G+V8tirZEFXRWahmUeYEK2B/1gYOF6xhd9WWA5I9bG3dcMuWW7mbLjjvJcF5 Ttvn7KW4cC2CoEIZEZe6eIJKhYtvOtcWtkdQFjxCs7mvJ56IXHiK8+AZyUTl wUOaB3FeB9q2/khFf6KgP1mud/90jBd/xA+R0HIbjmIO4pJcYmKkuXCOyYEL 48qXoLuMn16WAc+4dHjFCag4n8UKA3oUXEThcA0PZvwJi+UU5AxfV2uCOmMG 5Wouo+M/tRyB4edmSvYCLmKye+PHuMU4vv8qQhyvIFXkDJHVSQTZcirwUyIh IMECyY9tREyZ/vHIDUhBcXABykMqUBepRbuqDzpVP0zxA+hOGkBfygAGUwcJ ZhAjmQMYzRrAWDavs/uZPkwRzXL5EDaqh7FeJRwZrB/LpUxRH5byerGQ2YW5 RAMejX530KgXv/Y6VdiCbg4Nvez3gZhsYrKcnWxWnod5paWh1olpK8HSUgKo e0lsqiThSPeFwrFfC7mTW4/P5TYtGnUekaj3irbs5K4j212FHPcE5HDFybGX IZfFkWcVgVwbEf+yuaiTVqAhtgJNsgo0yyvQqqhAG6NWlvNBKEeIrS8cLtnC 8epNOFy/CfsbdrCzoyN7N5xn913gA3neVYmz16Nx8VoUHYlx40YMHL3T4Oyb AZfALDZCNtxCc+AuyoU7DblH5sOdbeMenc8VKh8lY4/ZR3+mn38hnX+Betdy 3b4n5M+8/Wc4SPK4q8uDUzRDe86xeXCR5cKVLzu3OGKSE5OcmOQCJq6osQnc 7UngEiFi2E4itlO4D1zYTr5uNoi0PQMXNtItNtEtwZFQS6+aC8q8BT4uePoJ HE4I+THszfkHXPvF38Pzih0ivWRQBCZA6Z+IBP8kpHNEKnSUocBJhiL2cHlg HmoCClAXUIgWUT1GcyYxkTuFocwJ9KaNYSBjjLeZbOF4gsIR6KawXnMb+00z zDT2Gqew2zCJ7fpxbNaO0tWQ+QBka6V9WGVRLWWZcDdJiy8ffvriOEJnj477 ebuoFV2cBXrYBn18qQ3zURI8zZjPdiec8jUfq/EsqAShoAqwm1hgNiUc4VRw dT+pACZJEirdxaj2jEKhRyxS2UAZVJThnoRM10RkOiiQfT0S2daRyLohQZaz ArUxNaiX1aBJXosWZS1aVTVQx9egI4FJrIYmsQraxEq+JAPgcM0OjlZ2cKAm +1sOsHdgK/nE4IJfAi56J+PcjTiKkuHa9Shu66Jg554MJ3/ONoHZcAlhhYTx mY/IY1Xkc2IugGt0AZyZktHHaNv+F7Mk9c6/Us6/UtO/cq1p3/tX/B3a9y2q EtrmqKmAkrjmxfA6Nh/OcRTFx8mNJe4uZ+spXojioM6J21kcCReJGC7iMIoK oihfOIX6wNf9Bpwp6Rhs3/jpMQHTsSNM9rwU/jiceNkce2Kyf1OA9I9mTE5c 9YJt/RHtFQeZbyKUAaksp3TEXoqD6hVXFDOVLqmoCSpBQ2ApmgPL0BpUjp44 DdZrF7FZv4jthiXsNi1hv3kJ91qWcL9VyCIO2haYeeYu377D983yY6axQ1jb DRPmw5Ztsqg2yvuwXtSJlWw9dlvGX2CyHBvkLKaK24ghE13R2eglpkFiGucD dVuRbz4p4DyzzDl8Nb7AXFKbCZai2iaqu8ocVAfJUeYu4c4sFsluSiS7JxJT CtJckpFmq0C6dSwyrKVIvyFFgW8WamIbUB/XgCZFI1pUjdxeNKI9sREdSY3Q JDdAmyKkHrqUOqYWiUFxcLB2hMNNBzjYEpK9E5e3aGJKxAUO1xf4tc5Yx+E8 MVlZRcPGjh/vnwXHoBw+eVyTwlklEUQgIaDIQoTl6FAsINr6swDpmFnRSxZH FCQooqX9f8XfWtqJnhxjyuAoLaQhOpIxcfx08ny4cJvipmDrKQVLmXDh0uYY SUeRUYyEYTNJQmjJj/8bvtxwnsaN14nnJivpJQHTi3Ky/FQO5yUa+rlZkd2b Qn7M/CNuUZP3hWtQ+soQ5amAzD8NiVy1EwNK4PyKBKGvhCL1FT9UveKLBpcc NAdXQx3K12RYLQySZgwmmLDTvI69lnXca1vHgXodh+3reNAhZA0PNUJWmRW+ vcT3UVe75UB4uy0z2G56cXizIWyV92CjyIiVHA2eTm/iL45QdAHbAzPQU5OJ o2VXTC76qGmEmib4cE2/EEVNi5S0HC+cvbTAfIDXDmka8l1FSHaN4QStRLwb W9ctBYmOiUi0VSHphgLJ1jJes33DKlAla0atvBkNyhY0J7SgNbEV6uRWdKS0 QpvKpLVAny6kmWmCPqOB1/Uo58s/1DOEleSEW6ykc56U5BVPTWlMJs57ZODM DRWuWMfgGhe5W/7ZsAvOhX1oHhzC8+EQUQB7cSFUTbNo3fgTWjf//EKSpZLM C5uF0r97wYiESiafwEFaREqFcCQhxzgy4uPhzMp2VZKRUmCUBfvIOBKK5TQl ZSK5zYsgIxIS+8OWo/eVi6dg8/pPceONI0ZvmPmYJ+4Tli6yoyG7N182C7pl DoclKvK9chFyTxEyQ1WQeSYilhsKVVAekoMK4fcOd42vyBH5SjRyfh6GxldD 0O5eDE14I3QRTXw6W9ATq8Fa9SLut+/gsGMHDzQ7eKjdwSPdDh7rd/BEv81s MZt8e533Ww6Wd6Bhd7UvYJeatgVNjZRUO4itii5sFuuwlNv6l0dBO4tPD55g oqwdOioycE/THZuLAVkeRqhonI/aFBXNMHNc6O5wobubkI9i/rWUzlGIc5Yj zjWBSYHCNh6Km4wt13ErOZKcUpEXVoVyWRuqFW2oU6nRmNCOlqR2qFPa0ZHa Dk06v25GO8W0w5CphjGrjWllqCmrGbrMRmgz6xEvUnBEcsZZD+7bvBM4KqVY BPnmMLm45JKCKzdjYOOdjptBubCloFviEgRmG1E48hSt63+goD9S0B+p50+M MB4xu39mJ3EmegnqfU5GRzlmvvyheVqKb5+DQwwxxTFyglIQEx8OF86SLoTk yj6yj5LDIUoGx2hCio4kpggmFM6SAFzwdMXlCydh/frLZkw2dCRYshUWtlsn hG669aYFky0hcdkjo1d4+WPcZOSeYcgMliPFLx7x/Numh5UhNaQEaUFlKAuv hfjdbAS9kgzZLxQoei0KbcfFMPhUwhilRpe0Hf0KIwaURhxq7+Oh7j4e6e/j ieE+PjQypnt4as4+nnbu4YmJuEzbeGTcxKGB9aVbxR5BbbOetluFahojpn5s VxixUarG87vrRz/jecl89R42h2bQxq1TBx3p6aiTjdTHwXuIr7wRPmjjzAQd tcekI9U/DpGOsYhyUiHKIQHRNgomHtE3EhBlrUJ6UDUKoltRImtHhbwDNUoN 6hO1aOac1pqigzpNh450HX3oaEUHQ7YWRsbEsjTldMCYo4Yhpw36nFbocpqh yebal1UHD1E+bMNKcJYj9VmfDJzzy8bZgFwmH1c802EVWgT/nG7ENc2jafEb NC//Ds2rv0fL2rc0REebf6CfP/KZatv5I3tHzd2Zek8It2z7wnZt/0/4v3jz j7z1R/O18O6QAi0cZIVHhhil4IjLpSqXJZWCWzRkHy1jYuAQHUVLYjhGhcEm 1J+l6YLrrwkLlxUVvfSilHDzuMBH+PNLYnkZN98S8hPcEEI8bmdOICMwGtkh LHX+dRMDipEVUY1SSS2Kw+tQEd6EWlELYt8vRsRrWVAdT0bZ23JoT8WgO6ge PTId8XBfn9iD5Yp5PDY+IpJH+LDzEZ51Md0P8bz7AZ73HDIHeNpNVN338Lhr Dw86d3DfuIU9Qtr57uBpty0H3avrwXaVBsvFjX9zdETX/cNV84ktDpjuvlr0 9jLdtbg724cH+6s43F2FwoLtytFxoNeHZzFcyULhLq9dRnBcbkycNrs5KfSy 5qulGZB4xyPUIQ5hNjKEspRCrFQQc9VWEVaGuAW5fJkUxnagVK5FpVKH2kQ9 GpINaE41oC3NiPZMIzRZRuhYJPocI4y5BpjyDOjM06MzXwdTPtHla6DPY5Hl tUGT24KOnCbI4qrgE6uGd4z2GLxi9PjP8IrVck+uQVaCDrlFY2i48yUa57+i sa9pjM5Wf4eWdTrb+D2NfcuVjtlmdv7AJ169K3yXae8PPyAo861v+TiEFhvh wMXNgZ3kQE+OfHk58W9+S5oI22g5r+NgJ42BvTSKEbOnRKxLXy7ETrj62su4 xlynKGtasqYlGyGsJBsW0o03hWt21ltCfgJr1pLL+z9Dqoczt/mxNJWMeM8c JAdXIldcj+KIBpSEN6NS1Ib6iA60iLVQnqtE9FsFSDmVierTiTCdVWKA3oYS ejCawi1/6gA+7HpKN0/xrOcpnnQ+wAPdLh5whdtuYem03MVm8x2sN81htXEG 6618mzPTmvoudozr2NYJB1SbsxyUr2mQc5MRm9XN+O2zj/iAW7659JsvPsbC ch8GR2sxPFqHsZF6TA7XY2qoHrcHmf56tGSo0JqmQluKCmVh4ch1C8BdrQlb w1OstCl8cvBIarF3/eg38ldGZrE2NocNpk6WhYa4LMjCk+HvHAuRVyrCfbIR xVeagqWVoDIiOakLmZFq5Eo7UBSnQ5lCj8oEI2qTTGhI7URLWifaMrvQkdUF bU4XdLldMOR10VYXTAWd6CwwobPQyNsGGAv1MLBNdAUd0OSr0ZHXQlS18IlR M8K/EXjFGvDX3Lfr4SXXID5ei/QkHRrmvkDDPNEt/hZNy0S38jVL7RuC+4bg fofWrd8THLPD7H5Lct/CIo0lt/+t+Zb5ev9b4W7zt813hQ/9HUJKuoSBmhPD X8OeCB1YbDZRKtyMVsCWCG2lscQYzUTCihu/c77eOHfrGi7/8mVcESAS4XUi vE6AVuYJ3YoMX4cVEV5nrAjRigCdCTDZ+Rwy/CKQHaREqm8aEryLkR5aiwJx E4pYaGXhalSHa9Ag1qM1ii/h6E4kX6mH/P0yZJzNR8PFNPRcScKYcwHG00cw kTGC5aol7HHM2m5dxY56DXvqVeyrV3CP2VNzS6jm1pBbwE0CXGuew3LTNBbq J3GndhTz9WNYFsasDq6Qaq6QLT3YalDjk5XVvzJr+Tt8QYPLK30YG6/D+Dj9 MdNj9Zhj7oxy+5Ubj3w3dxS6eaDU1RMVLp6ocvZEjZMnah09UWfP61seaPOO QKckCSZxEqZLG/HZwSNEWmDeNF+dQGX/FKTReZDFVCBO1gB5XBuUCi0S4o1I jTMgM6oDuaz1IrkBZfEmVCZ2ojalG41pPXwZ9EKd1csC64U2rxf6/F5C64Wp sAedRT3oKupGZ3EX0wlTsQmGIgP0wkHxCjvQUaBGRXoDfKRtLD0dvGONbDtG YWC0iFZpiFCL+rnP0XD3CzQufImmpa+I8LdEyKwT48bXRPgNETI73wgrLG39 Byr7Hb19L/svbn9jbsZv8Dfmj2/b+RoqzV0KLIMdpw47VqEVFdpIFbhBhTdY hcK1jVSOKyIRzvh54tyl93GRCi9R4WUuq1fM30q/KgxnV80Er5LfVfK7yn2i 36XjSHI+jxTX68j0j0ROUBKSPLk39K9EFqf3gohmFIS1kaAGNREGNEbyVS3t hia2FzpZHzJvtCDhQg1yr5Sg5XoOBmzScdurFKNpQ5jOnyQ9rpftW9jv2MJ9 zSan+Q0cMgcaDmPcO+51rHAYW8ImKa613sFS8wzmGwSGI5ir6sNcmQnL9b38 mAFS1mO1tuZ/N7v4e6ys9GJyspapw9RkPWaZuxP1WJhoQGNMOMo8PFDh4Ylq d3Jz90KTmxdaXb2gdvFChzPjxDh4QUOKHbc8oXcOQm9QHAZJcTAiCQsljfj8 4JH432jsm4E0Kh8yaRXiYpsg5yynVOiQkNCJVE6mmVItcqmyiENGWUIXKpN7 UJvai8aMPrRk9UOd089664c2vx/6gn4YCgdgKuqnvn7zKZo6S3qZbpjYP4YS E/QlBmgpsqOQe4yCNvhKmqiRNRhDhXEmeHES9lLpEB3fQY2cJ2d/TY2fU+Nv qPELNK18yXX4K2pkNn7LWmS2fkuRX5vnva/ZeW27X6NtzxKhB7/GDyxvC/fv /taSnd8KP1O6/RX7sHD8AMElnbilqsa16BRclybhekwyrMxRwUoqw+kAf5z2 dceZU6/h/Ksv4zw1XqDGi9R4ySzykiDyEnebr8HuvVcgsXkXiS7nkexygSuy A7L9Y6kxDfHuXG0Da5HLVTY/vBWF4R0oj9CjVtKJpqgeqGP7oVMMQi8fQqdq GO2RfUi93ohCmyq03yrEiEM2Zv0qMJE1jn3NHu5p93Cg2zOvyg/N4V5UR526 Tb5vA7uaNRbfMjbUC1hpncNi8zRFjlPkEO5U9eBOhQ4L1RqsN2ux0dyI/80M 47+bz72zvtqL6alazEzVYeY223CKHJmuAhWqvNxR48XW8/REoycpepAfo3MX zs7ijU6mizS7hZBntyNj74UuO0903vDEaHAcJsTJmCDNcVEiJ80GRHzf5nFU 9s5CKimALLqaPmkzjjaVBiQkdiGVHjPpJk9uQpGqE2VJ3ahM6UVtWh8aM/vR kj0Ade4gOvIHoS3gw1k0CEPxIF0ypQPoYjpLhbNRsT1Le2Ao7aJNE7QlenQU a6EuUiMloRVekR20SZP8Ol4qi80oVTvSEztQP/Mrzoi/5ozILH7OJfs3bMsv 0Lz2JX0ym8zWV2Zmgs3fvmSmJ2AUEH5lyY6QL80YvyTG1q0v+B/+hvkc+eN7 cE4pxVVpOq7EpOBqTCKuxShwjTX5nr8v3vV2xelf/AQfEOQZVuRZ7kDOvi5g PEuS/4hzb7yMG+++gjDr96B0uoAEWkxkkl0vIM3TmSYVSPXKQIJnGdKDG1DA yTA/VI2iMB0qRCbURvagOaYf7XFD0KtGYFCNoSthHL3JE9DGDCHLthWlDnXQ Opdi3C0f8yE1dHeAA25hHxgOjuER97H/BY8N9/DQsMcd6y7u67exT5o72jUO istY4851uW0WC81TZDmCu3V9uFtjxN0qNe6W1WC5usJyzsp/xJcUaT6rzO1a zN2uw11mniqXmHZZOOopsoEiG5kWL2qkSj3T6eGNHqbP3RsDVDnEDLM4hylz mDKHWZxDXMMHWZz9XMNvh8Rhlmv4LItzhjKnwhLwxf1H4d/H+RYqe+YQn8R9 RGQ14qKbIeceRakQcHYTZycyZQbkKjpRFN+NsuReVKb2ozZjAI1Zg2jJGYI6 b5hL8jA0RcPQFQ+zHIcIkSkbQlfZIGGySMtZpOVc4su6oS/rhLbUiI4SbqyL WY4ZLEyRGl7RBjNOT+L0VGrNOFMT2lA3/QmX8k9Znr9ieX7G8vw1y/Nzlufn xElfG4KzL1igzNaXZn00SIk/pMsvzSaFtJpv82OEbAvhf7v1udlny+av0bzJ z731K6Qb+5De2YfAkmo4pmbjEpfxM+EivOPng5MXT+Odn/8Ep2j11KsvH8N7 xPoWrp58BU5njyPw2ruQOZyH3PECVM4WpkmuF5HifhHpnq7I8UtAvHMWEn2q kBViWcDzQzQoDjOgQtyF2ug+NMsG0a4YgZ48TYkT6EqaQk/yJPpTJ2GIG0Ge swYVbs0weFbiNufRjZg2PDA+xCPmsekBN81CDnn7Ph4a93Eg/PC9YRu7+g1s 6Vaxrl3ESjsX9DbOlS3jWOBmZqGxizOmBvPVXKlL8rHVpTs6/8aPzWe5uXO7 hkhrMT9dh8XpeiwTqjYuDE3e7mjxFoZFT7QTqo4xeREpM+Dpg2FmlBn38MGE uw8mCXeSaKe44k8S7iSHzwkOn+NEO2rngbmwOMxHJmGeaOfFCZgTxePL+48Q 9n2xb6Cyaw4ZRV2IFbNOoyxiFVxu4yk2mTozOQzmKrtQyL1faUofKtP7UZM5 iIbsITTnDaEtfwjthUPQUKuuhGJLh2EsG6bQYXRWcLWqYLVWDMAonCOOavXl 3dBy3uko1VOsBiWFnQiNbodHhAYe0Vp4cqvtoehApLIVWRxka29/hLrZj1F/ 5xPugj5lpVLuMnWtfMZKpbR14ZcGWzY+F34NRNBHha3bQn4jwP0Nblje3Hlx N7P1a34YQ6QC1GZCbdr6lPkEacZepJl6kNbZyWsDUk0aBBVk43xIAC6/9Qtc eftVCv0lrp96HUFWZxFqcw4RN88j8tZ5SO0vQEatcueLULlcRAK1JrlRrIcg 1g2ZnokUm48UPy70oa0oCGlDQagOxSzVCpZqbcwAmuUjqBJpWbA9MCVPwZQ0 iZ6UKfSn3cZQxjQ648dR5GFAtbcanfw8M4Fl2ObD9bjzMbfhj7ktf8RQb9ch HnXex2HnPu6bdrFn3MK2YR2b+mWsahew3DGLxfZJLLYNY7G1h03LBb+hEQtV xRwAsnF/qOffH/0A2tZqD+anqrFAtAvTtURbhxXC1RNti4871D4Ey2h9vGDw 5lruzVb19sGQF8ES7wRzm2/PMHNe3scw5+mHv+KlL+ZoeZaOZ+l4hoanuXGa dHDHQpgMK9FJWI7kCCBJwLxIha8OHiL0+3b/FpXGWaQX0K6IbRvZzFGVdhUW u0m0m8HRMUfVjcLEXrPdCsFu1gDqcwbQlDeI1gI2btEQ23MIOrasni1rKBs6 RrBD+G8wVR7RreQUW8GtQEUPtOWd6CgzoJkTQTHppqZr4RFGvhKyjWHi1BDL m5BfN42aqWcs3Oeom/sI9Xc/RsPCJ+RLwsu0tvIr8mXWPyPezwTClPjvzS6/ 8ync3v6Mb3/Gd299Bite/oofyP9s81Oy/cRMtmnrYzRuf4RUQxfJMkZuGU06 pBo7EJCfBSfrC/C48A48L74L70vvwe/qBwiyPofQG+cRYXve/BtNUgfSdbpo oUu2CWSbxKJN9rxEuh5IdU0iZ27Y/etZsq3IDWpHfpgeJRFdqIjqQ23sEOo4 E5RyTqgUdUATPwIT2fakTWMgYwZDWbMYyZll+U6j1K8LdYEadAc3sqQqsZeg JdkneNothIS7WcDdh3jQfR8HXfvY79rBjmkTm8ZVrOlZuFpu5LW3saQZwVJH HxbVeiy2NGOxrgSLjbnY1FSTb/fRKQT+CU8fLWNhshqLLN4l+l2i3+Ujv20+ brTrAQ396ujX5OONbh8f+mXpsoBHmAmanmbm+L55ZtHXGyt+jHDUax8/LHr5 YUEIy3mBE8VdFvIcy/iOVyDWpclYj07EelQCViXxWIywQA75PuQfYnnvGaq6 1hATVgUZ9z5xMQJkA1QJAmQuoUm9hNyF/KQelHCfVSGcjJv7rLpcQs4fQCv3 V2rOsB0lnGs5JugYfTlnW5avsXLwGC8GCNoMubLPDFlDyO1lRtSVdqK4uBMF 3H5Fq9RwFxEz+9g9thVxskaU6NZRPfEhaqeeom7mGaeH58T8ETFT3dLHHG8p cFUIRa4x68zGp3z06fQlXnwKG/MdzZufmJM2sI20wW3Ecu0MrplESPUEfHK0 8M5qh2dGCyKr2yCpakZIkhxu597+jq7X9+mycUW3hINsk67jRcjIVu5yCUq3 S0hwv4Qkj0tHdD2hupWMRPcyZAVwox9MuoEdJGxEcUQPKqIHUBs3jDrOCaXc /FeItdALrZsyjZ70GQxkzmEoew4juXOYKFhAf/osKoJ70ED6vRHNXFtrcC/F gGe9wplJnuDD3kd43PsQD3sOcdBzD/e697DbtYWtznWsG9m8hrtYNsxgWT+G JV0/CRuxpG4h21I2cxl2TdXY1lbjm08/wktHfOcnKrHE+l0Sznt2RHegSMna dSVbd7L1gJ50jaTZRbrdpNpPviN8e5Jvz/j64g6z6OeLFW4P1gJ8scFsBvpi K9AHm7y94uOPFW9/LJPxksCYnXyXhJeCxNjifndLmohNEl6PjMe90rq/5Pt3 WN4hX9MqokMqEBvRyMlXDblcD2VCFxK5/Uol4az4TvLtRlFqD8oyelGV1Ue+ 3Jbl96OZfNuKB9BeMsByHTCfMEbH4tVT7TEYePkjGKv6eYt2K3uhFfxW0G+5 ESUlvSjiFi2f27Pc4lYEcep2E7fBlbNMorQRVUOPUTX6hIafcJag45mnnCWe cQJmFp6zkD9iITMrH9EwPa99TMcfHyPkj39AuB+Tb+nMA8RpFhFaO4Ww2klE 1E1CUjeByLpxRNWOITRfj5BsNUIyWxCc3gjflCp43/SCzRvH4Xz6JDwvkO/F 9+Ar8LU5j1DbCxa+DhchdRJOhHEJclcL33jSTSTdZC/G1Z180zhAlCOXfPMD WshXg7xQE4rF5CsdJN9RNMVPoJ1s29i6uuTbMKVOo5ut28/WHWLrjuTNYbzw LiaL72IgawbVol40Swzoj2rBQkwtDrhreNZHvn2P8bjvER72PcBh7wHu9e5j t2cHW90b2OhcwWrnPFY6ydc0gWXjABmb2MCtHB5KcW+glh9fgz2BsKaSz5vl O+7PHi1hcaIKy1PCaftqzePubU0ex1wX8nUjXXcY2L4CXxO5mo6mh2EfX0z4 +mHazw93/PyxGECizHqgPzaD/LEd7I8dZjfED3tCgknaPwBrpLzm7YdVjhdL Qhu7emBHloIdMt4h4+3oeGxGKvHx0DiCLYxtjxhX6leQntPPFq7nKNyGuDgd FPEmJCR3IyW9D5ls3tykThSmdqM0oweV2b2oIeH6/D40FQrni+9HWwk3xmX9 6OAmTVvBsHJ1ZHsM+qo+/D0vOUdUkq9wfkYSruc4XFzKEYWbuPxSDQm3ICG9 Di4hTfAVNfDtSVT2k/DwY1SPPUbN5GMyfsKRmLnzIav4KRkzi89Yx8zKc84W z4/R8vOXiPk5lGhaf47S6QPINfMIr52AqH4CEiaqfhzS+jHEMLH1o5DVjSK6 pBMRWW2IyGiGKK0e1ZJiyK97wfoXr8Pm1eOwO/4W3D4QBon3EUjKIQJlDhAS Uo52umSmHCdQdr9MypdJ+TKSvXnbwQ0quwyke1Ug378BOb7CEKFFXpgJhZI+ lMcMoUZOygkTaOPM20HOWsbIubc78zb6sqcxmDuNkYJZjBfNYbJkDlOlwvU8 6qJ60RpjwICsFXOKJuzn9eMJd2tPBtjEwvl8+km57x72enex1bOJje5VrHYv MrNY6Z7AStcgSZuwrGvFfGsJDobrcEDO93uqsW+swsPJLrOQhfEKLE2+oMwm vt0AoywEGm9X6LwtjE1HjPXewiDhi0EOCGPke5s07wQEYCEgECtBHAyCA7EV Eoid0EDshQXinjkBuG+OP+6F+mHTLxAbvgFYZzOvepGzpze2opTYJefdmCTs ShOwE63CRpSCQ8WDoO9rfhPdE/dRpd+GNKQWsZIWDscaKFScKSg4Ka0bqZm9 yE7tQkFqJ0oyulCe3Y2qXO5CCri+FfaiqbgXLaV9aCuznKW9nRs4TaUQFrCg uIrTMBULkjsqu9Bc3oVSfmxRGT8nJ+S80nbkljQhu6gKytQShATWoqBuFRUc 8SoHGIqu+k40M/OYk/ITimbmn1D1h1T9IVU/ZUE/fYm0n+IVun6K9N41iGrG Iaodh7huDJEELG0g4oZRxDFyYlYwSoKWc88ZmdmMSPZycVwZukWFqPaU4dbP 34Dtqydg+8s3mbfg8u4p+HO0CBZONMSxQuxoAR3jYgGtIGgVQSd4XUYSQVv/ 82nE26cjy6sc+T51BN2CnEABdKcA2vLP+9x7Jo3j+3+6MqdoeQoDeVMYKZzB WPEsJkpmMFk6g7XWDay2baNB1os2RScGUybxtPIu/mCcwUeDe3g4cIDDgfu4 189a7tvFdt8WNvrWsNpHy32zWO2l5R5a7qJlQwtmW4twOFaPw2FW/EANPVdh 31SJj+8vYYmWlyeqaZmOp+qZRrR7OdOxUMke5jrupF8tq9jE6z5W8YhfACb9 AzFLwwuBQVgODsJ6SDC2QoOxGxaM/fBg3BcF40AUhMMIRhTI60C+HUDPR4cs FzzzNbHCz7seHoXduFSL51jBczw9K/Hp8HjQXzbz0uZHqNRssZ1HIBU1QyZt R5xcxwHDiISUTqRkdCMjsxt5qSYUZXSiNKsTlbndqMnvRl1hNxqKu9FU0oOW sh60lvdAzQGiXQjtHqPebg7HguH2yk40V3ShjN5L+HGFHJLzy3TIKWtDVkk9 MovKkZqbi+lKNcrbD1BufITynseo+J7nanquOfJcO0vTdx7TNDP/mKaZxcf8 mg1LjxGPhuXHkLfNQFQ9AnHtKDGPspVHEUPEMgEyoxTC++L5vgR+THzNMGJz WpCaUIGhyAIMRTMxhbB/9Q04ELTda2/C7vW3YPfG23A+dQrBHDTC7C+aQUcS tJSgZW6XISdmpacFdNStc7B5/ToS7dOQ41mKPM9q5HgTdMB3oFHKLZ7wpz5+ FC1Jo2hNHENHyjj06RbhPTkT6M+bxHDhNEaLpzFWchsTZbfxgLPwo75DrLdv clBhe1c+x69Hf43/l6vSJ1yVHg7ew+HgPgeIPewN7GB7gA09sIa1AaoeoOr+ CeoeYFNzVjY2Y7OvBocTDd/JPuzndq+HM7Iui6orqZrtPEnVkw0YKlRC4+UC nZc7G1mYkX3Y1kI7+3JW9scARY/5B2E6IAh3goKxFByCtdAQbArHoA4Pxb4o FAcRoTgUh+KBOAQPhUiEBPN2EO9ja4cGUXYQNvi5VvkqWeLn35WnU3YaZSdT diLbWsUZOu5I9S3zFXdxbRuoMuwjKrQR0kg1YmUaxKl0bGgDG9qEtKwuZGV3 IS+D416WCWU5najI70R1ITfQRV1oKOlCE2eH5rJutHCOaKsQ0gV1pRDhtOCd aOKMUUrJxXx/ETXnlRuQW96BrLJmZJbUIq2wFG1p6eb/o+ef/B5l6kOqfmxR zbmj0jw+U/UEVU99r6mPZNcdya6n7HrKjmudRkTVMCJqRiCh1iiqjam31LLi SHM86zq+YRwJHJ+TOD4n1gyhiRU9EZ2NCVkhJhVFmFQVQXL+GhxfOwEnirbn 3GF/4m04vHkS7mdPI5SiRRQt4bwRTdGxFB1H0QqKVrGeAy6ch+0HdlA5KZDn XoQctyrKbkaOvwY5HJ/zJb0olg6Y5VYrBlEtH0SDchAtCUMcpS3SDRnD6Moe RW/uGIaKJjBaOomxskmOxvc5It/Ho/77mGt8iF7913iy/jv86fnXeH77EA+H 9ih6D/cGd7HLne72EEUPrWJtiKKHKHpwnLIpulePBVMT9gTJnCUOJ3g9WofD IQofqMJAiTfu9ORSNMdmvm95ohFqDydovThveHnAwBlDzy7t4Lhr8AlAN+eF QUocDwjGTFAI5ql5OTQUG+Fh2BKFYS8iDPfEYTiUhFFwGB5FCgnF4ygmMoS3 gxmqlgRiOzDYfHqJNc4ty9w5brGbLapTLaplnD1i5fjmwYPA76t+Gc8//QaV HXtc65cRJWqFlF0dq9BAnqBFfIoeyRlGpGWbkJlL2bmdKM42oizPhMoCE2V3 oraYUzGn0IYy6hVCtS3lJrRUCDGilqJLhKmZ1wW8L6/CgJwKLTLL25BR1oi0 kmok5hXiyeTU0SbkrFm2afwjlBkou4vhRqeCsitHqHvc0tnV1F0zzVB27RxD 2bWULWuegqhiCBFCR1N1FFVLOXTIOD3LGSUnaRU3hAl1U0ion0ISbyfVjGGS A8oOp+2Z2BzMKksxm1SO2RQOC65+cHr9TTi/waHj+NtwfJOq3z7Jrn4H3hc/ QDhVi6k6ikNHDFXLqFpO1UrvK7j+s7NwsXZBPJ/lbOd8pgI57o3I8etAdogB meEm5Iq7zHrLZX2oZOqU/Zbfgnqfdc29dRr31ekDMGYOoDN7AN05A5isnsZ9 7vUOOVg8GNjHI9bxfOdTbM89x6PbD/F4aJeodwhzG/eGtrA7vImtkXVsjKxg bWSBmcHq8Bhh92G5T4c7xgY8nG3C4UwjDqcIe1yAzaoersYQUU93JGB5jBU9 3oDb6jx0eDoTtZv5nzwMrGYtq7mDMQonGvQLwjBBTxL0XEgoFkLDsErQm8Kh jiPCsS8Jx0GkCA+iRITMRIfjiTlhx/hGKP6Kl2zsqCDscU7ZZMuvBQZimVvJ NbEUu4oMumZTyzmDxLGpZUp8NjqGI9R2R/9w0zXyiNtDbqEU3YiStEEaS9TK DsgTiTpVh6QMPVEbkZHLJ4CYC/NZ13kGVBQYUVVkRE0x4ZYYUc9tXkMZwxqu IuxiAhdqubCc2z9Czq3QIZuYMyrakVbORb60HklFFZhsbsMPzP8vVljc/gKl hkcoI+QyQi4fJGZCruTwUcWariLkakKuJuQaVnTByA7CywaImLVcNQpJ9Rii iTO2dhJxtVNQ1N7mpDzNAWOaiGeQWDuNct53m2/vN87iXtMsNvJ1WIwvwkJa NRYya7GQXUPEBMwhw4W17PLWSTidZN45Cdf3TpmnaBERS1jN0UQcS8RxRCzi oHH9uDUCXNyRFemKdLtsZDmUIculDums51Q/NdJD9MiK6DSbLYruRoWMmxIF NyWqXvN9bcm9aOdWXMstuSGzD6bsPnTm9GGgaARTNbexaVhjfe7iAev3mOBW uNjGL/BAOKAp6e6PbGB3dB1bo6vYGF3G2ug8M03GI1gZ7MFin5a0m/HwTjMO BcbTZDwpMGY3j9VgpJT7uhI/C+ExThl5CmjcXaD19CBhbxL2Qzv3bB3kaxTO CU6+I4EhmAoOw53QcCyFh2MtQoRtsQi7EhHuk+9hdAQeRZOvVIQPhcSIjvEi HP+Jb4bhiTQUj6QhuB8Rgq3gYKwHcfwO9Me6JAa7ykwyZjXLWc1yjtHyeGzH yo4E2x8dJ7q8dR8VxgeQx/cgMkqN6Lh2xKgoOElDwVoK1iE1W0/BBmTlG5BN ublFHDyot4R6y6i3jHoLS00o4O0C3jZv88r136nNrNAgjXJTytVI5oCRUFyL Wo3x6ITQcjz71bcw3v4YpdwCllJuGSu4nHIrWMEVrOBKDheVHC6qWL8hxX0I Lx2i2hGIKschqZpEdPVtxLKr4qpnoKiZhbJmjuPwHMpq72CqYcH821/Cb34d ti3hQfsSHrUvYiOnFWvpHAvzmrFc0ISYq7as3ZNw4SDhytp1PfmOuXpd3uVg 8f47COeILKbaSKqVUm0s1Xqfv4AbZx0Q6eeJwmg7JLoEI+VmEZJvVSDVtR6p Pm1IC+arNtxgFloQZUJJjAkVcVzOlF1oTOy2yE3hVplbby23KvqsHnTm9WGw eBjDJQz/rgttczgY3OLwwAwJ2WRnbhDtOu6xb/fGVrEztoLN8WWsjy9ibfwO 1samsDoyjKWhbsz1dODJQise3m3BoYB3pskyWHCDd8ghYqTMl1/HH8sjHCZG GjGcy/HYncOEpyfh+hCuP9o4SHT4BsHoH4y+wFCMEO1USDjuhIuwRLTr4ghs R0ZgL1KMg2gxHkjFeBQjxpMYMcHGRuC/4Ckvn8bScCxrOIYzRmwo7ktCuU8M Me8XV4K4B5TEWuAq2b8K9q+CM4WCM0Wc/C/g/rV57S5XH6DC9AiyhF5IiDfq CG9cUgdUqRokZmiQnKVFWo6OgHXIzNcTsB45hcTJHCNlPf4jckt0yC0V9nNa ZJULM4MG6RUdSGWSytuRUNYKVUkDanTdRz/y9DaeffYtFu59iZLexyhh1ZYS bBnBlhFsOcFG10wgpHAAYXwSw8rGEV4+hYiKaURVziKmcg6xlXcg5y6+qGoB 4/Ur2G3ewD3u9A/UG3jYsYnHmg080W7gQ90Gnuq5qGbWYSOvEWsl7ehW5cD5 OHG+eQoub5+C6zun4CZgfU+o2ZPwvvAuwhwvQEysIa7X4etsg7NvXIO1lTtU 4Z4EaY3QW29BeSULiTZlSHaqQ4pXC5J8218chThHrKNpi1vLff8RDYkmNHNb 3ZbWiQ5upzWZnegp6GfDDrD4BjBUOkBHA5jiGHSMY+46XsX9oTXcH16j01U6 XcEOjW5N8PU3wflg4i7DwXdsgu6GMD/YhbsDrXiy2IpH8y14cPeoaIV54Tat TtXRqj8TgLudhVgeptUcwapwwEDhRyN8YfAKgNonEFq/YFoNQV9QKEbpdCpM hDuiCCxHRBCZGDt0uk+nB1IJHsZI8DhWgg9lEjxljuFpnBj/mbcJVibCE1k4 HseF4X4UB+YwDs4EuxISiI0oYlVlWbAqiVXJYUHJYUGufDEoOJivfmTZQ7Vz D9X5GLHUGhHVDomsHdEcFmITO6BI7kB82guxGqTmaJGey+SxPvIpsoApYoo1 yCilzjJWKvdrKeWCUP63Ze1QlqkhL25Clbb3P5m/bCyeff4HLBx+iaLBR+Zf 3Cwm0IDsXgTlDSK4YIxtOoXQ4hmEl8xBXHwHNeXLaKhYwXLtFjYat7HTsot7 6l0ccnB/qN3DE/0enhr28My4h+edu/iIedI+j638FmyVtmG9Uo8YK0c4v/ku YTLvvGv+Dpr9+6dhdeY8Lp+7istWdrh0/RbOXLbFmQs3cfq0E2xvusOHy6Tt DRtYXb+OwCt+UFwtRfzNasQ7NyLBsxUJnAGSgtuJtwO5kVoUx+pRLtejSqlH bYIeDUmW3/NoTTdAk92J7sJe9Bb1ob+EM0BpLwbLejHETNQNY29wBXvDfNGN LHPJX6LKRapcoEou+ZN3sDo5h5WJaSyNjWN+mKL7DHi20oYnS5RJnQ/mhSal zFnKnGGTTtdhuFyQGYhpdQqWh7glc3GAxs2dMr3ZpH5HMoMoMwSmgFD0B4Vj lMv+bTbonQgxlqhyPVKCnWgJ9qnygCofUuNjWSSexEXSpBCzTrmY6/+zuAg8 kXM0kIfjPidb4bxFG2EhWA0NokwZduMpU8UqVXEGUFGmijIVyiOYjkc/SPz8 k29R1vHADDOnZQNhkWpEcIqVKDogje+AjFWqYJWq0jVIyCTQbA2Scok0T4OU fKaQt4uYEt5f2oEERsXIS9sRx6qKKWqGZmHT8ntB0dicX0cH707P60cGAeor ZtBZsYj+yjWMVW5hpmoHC3V7WGu8h+3W+9hvP8Chhntn/QM84Zjy1PQAz7se 4OPuB/ik5xCf9B7gU+67P9StYJtfcqtKg9W6TjieeA9Ob7+Pa6fO4eK7F/DB 6as4c+Yqzp29gksXr+HkO1dw6uRVvP+mFS6+ZwtPBydIvW7g6mUbXLl4BVcu XEHw+RTIrJqgsG+FwqWFO61WxAe0ISVUjSxJO/KlGhTFdqBMrkGlSoMaDv31 yVo0cmwy5HXDVNCNrsJu9BR3o6+kG/2lXRgoY8q7MNM+jq1hohtdwObYPOHd NcNbIbzlqVksTc5gYeI27o6N4vZQLw7nOwhQjQ+X2/4nQKEeibAiLQyVaSFI DbyMtMCryIvyxPIAATpbAGrdXwAM5DIebAEYGIZ+1uJoWARui8S4IyZA4tuI kmBbGon9mEgcxEYSYBSrL4rQIvEh81QhRHIMzxSCwSeKCDxWcFSVhpvPZ7QR Tn9hQViPFvxlM/QXT3/xnEHjOYMqlfj64YMAi0Hno2/jmiY+QqmJSyeX0sSy aYTSn0jeAQmX8miWY0wKHdKfnP4U9KekPxXtqQp4u5A+i7jkF/NjGGlxO6KK 1EgzTuKjr7/F/3n0NVrz6qApNkBbNgRt+W3oy+fR/f/x9Z7BkR1Ylt4J9iok 7czuyERsaLSa2NDOjKa72ewmyzt4733CJBI+kXAJpEF6pIP33ntvynsDlEOh vC8ABV8wLEcWTZPd0736qfMSKHZT2hUjDl4iiyig3vnuvecCL/Gan+IiobvW toCZzmU86FnDs8FXmB/ZwNL4JtaObWHjxBa+PPUl3p75Eu/ObuGr81v4+sIW PlzYxAeO/a8uvNp5zd7fodNSB+ddwj1G3OC6zw1uB9zgTgDdD7vhyH437Pm1 Gw78iweO/IsrfF1CIY2NgsjVE5573IUXKbi6wQu+bh5QuLchP3gImuhxbkcT MCQTPNkg7DlDKOWWWakaQq12GI2GEbQUjKDNOoJB4ZVt3DKPcss8Lry6iBn9 VP0JnG44gTPcLM+2HMeZ1mO4e/oGlxqCdlXocLcJ2gzuU/eou4Tu9tUbuHH5 MmauHMW7p8N4/YTQsfPdPF6B/mo5EoMOIi30IBL89yPeZx8i9v8Kkfs/RfSh XYhzOQz1F3vQ5OWP3lAROx+hk0gxSOjGUjNxgh3vXEYOrgjQyQXo8gidgrQo CJ0SixollgncGoHb0AvQKbFlUAodj9hxHhs5n43MlKZcbJhIXT6XJfk2dY9J 3ZywrJtJnZnUmUmdeYc6k+njPI7ZuXjtzYf/gobj62gkck200dx2Cyoui5k8 nTlsebmFo1AUj0JZSgTLiVUlVcXH1Xy+hn9ew/bWcw6249M4ufjmPzj+2jyM 1AxgvP4MxhuvkrQ7ONb0mGd/FpdbFnG9YxV3etbxcGATz0deY2H8DVaPvcX6 yXfYOv0Ob86+x7vz70nUe3y49A4fLr/DN5ffUm/w9ZXXeH95C/fGHqCjctjB m0FVwVDnDLddTvDY4wT33QdJ0kHs/+Uh7P5Hdxz8Zy8c+qUvXD/zh9fnfvD9 3As+uzzhc8AZPoeEOysdROiBECg8u6AKZaeOPQpN0jFo04ZhlA3AljOAYsUA KtQDqNENot44iC62tv6SoxjiRjhaeRTj3AiP1h7DsfqjON54FCeaJ3CylWpj C2QrfjBFuq6SLqa8OyTsNjXDx9NXp3Ft8ippO42vno3gHXX7VCVKlFGQhh9C OiWjMqnssIPICTsAifNniCNpEpKW6HwQeXv3wfrZfti+cEI123t/eDzGkzIw ytl6nKSdzZTjcnYubsjzcDtPgQdKBZ6qlJjNV2JBo8KyToVVal2vYh8TKNsy KrmmbBnZ4kxsd6Y8bBYwJSpS8DQtCQ+TEnAvUYIZSRzupKlxO01FKfDSwvRn IWlmgbSP8zVuZ025v/A9jt95t70iMIE1XduAqWca5v5bsAzegnWY4LUSpDE+ HudzE7dQQDU9WMeDt7/Hmx//jG26lHh++yFG2fPG6y5ivGGalD3A0cbnONv8 EldaV5m7N3C37zUeDb3Fi7H3WDz2NVZPfMDG6W/w+tw3eHvhW3x16Vt8fflb fHPlG3w7+Q2+m/qAb6e+xoep93gy/gwVxSOoL9omrEJdCZPUAI8vXOG12xne HKp+pOzwL49g9z/54MAvA3Dk00C4/C4IXl8EwneXP//cC567DsJrzx547d9H 7SVlQcj17oEinIE3bhzK5AnkS8dhyBiART6AIlJWlj+ApoIxtHOAdheNo690 HAPlExhmCB5h+B1j+B1vHMcE17OJVqqd73eM4dzEedy6KhA1g5sk6waP16jJ K9cxc/UcPrwYxVfPR3CqQwVZxGHIIg87jplUdsQhyElYXvhBfm0HIff9AhIS lkTCUlwOQbF3L2yf7oX9s0Mo2uWK4t3uaAoQYSQtC0dlOTizQ9g19rEZ9rH7 JOwJ+9gL0jWvVWGRdK2QrlcGFackKTOqBMpMSvay5TzuD6kxDj1NisbdyCjM RETgZngYJv3DcTkgHpe4rl0KiMEl/2jciE7CXe4z83/pZRLH4W9wb+X3uL/G kM8NtJ54Ndygpqlb1MwGjs++w/3XROmH/4K/d3xMCGZvP8VY9XGM106yYd2h HuNYwxxRWsZk+zpu9nyJu4Nv8Xj0K8we/QZLJ77D2unfY/PcD3hz4Qe8u/QD vrryI7H5Affqr+FZw1UscMudyqrC+dwa1KibUa9rQ2NBhwOl1uJOtJd1okRb Cr99PgjY740AYTzudsXn/+yPvb8KxMHPgnCEKLntIk57mMP2+iJ0/y747v4C Prs/h9feL+DJ90MOBSLFq4RNgTFVPA5F8jjUUkYA4lTAplWhZS4zTqDJMoFW +wQ6iifQXTaB3soJ9NdMYLB+HINEaYgoDRGlIaI02MHc1j6KKTasSeoKdXly Bhcu38SNqXP4dnbUgVJHoZgWZhCiXcjk2ywqh8qlFJGHoCRSaqKUH34A6Uc+ RQpRkhIlJVGyf7oH9t8cROHvjqCYMaF0nycqfMIwQZROE6VLzGFXidItonSP jeoRUXpGlOaI0gJRWiJKq8ToFTFazZdjLiOJ+MThRVocZtNiMUc9jhHhXmQk ZsLCcc0vBFf9RbgaGI+pwDhMBcRSIuIViUm/UFwKi8XKxRs7YczuOPw9yXiO cabX8ZrrpOM+Juqe43jDAs61rGGycxM3+97i3vBXbBbfYPbY91g69QNenf0R l0unMSNcjZPP9p/UhCvprZjJ6cTj/H7MmUdwlxO1xT6E1tKRnW8o/C9oaxhF exPVMoSuhm50VTUgLljC8eQHn8N+2PtpOL74ZRT2/iYCB34XgUOfB8FpVyA8 9h4kRbtI0C6Os93MTvu+wH+C14Hd8Dy4BwneRciKGEF23BhyCEde+jgKcrkw qydQrt/+fb/1NgJCMFoJRjvB6CQYXfUEpXECPQSjh2B0c4p1EYwO9pnjp6/i 3JUZnL08g5MXbmL90Ql8NzuGbwhFV1E8M2BW1BHsQXbU4e17WUcJQByGilDk UxpKG3EQSp8vkHZ4F2Suh5Dhfoj9ZQ8Kf3MARb89gqLfOaFkrwdKD/mgJiAC J5mTzhOKSUJxk1DcIRQP1So8IRQvCMW8Xo1FatmgxlyuDE9SxHiWGo/naWIC IcaclHAkx+Ahe8u9sAhMc+u+TiimgxJwI0iC64FiKhbXCcX1gEjCEoopsQxX c6y4km3Gd8vrKX8Nhz9mZ15gnDFpvPomAXlIOGZxonEZ59rWMdn9GgPmJzit u4PjhuvoZ4fvCGvBSEwHTif140rmKKbVx3HffAZPSy9gru4KFtuu4kH7FbRW n0Brw0k0N+/8kKr9LNq6LqGl8zw6Oq+jvWMKHe2X0MFJWWJtgzhMCm+3CLi5 iXFgTzz2fC7GoX0hTNm+cD7oDrdDzDiHD8HX+TB8KF/mBd8j++B9eC/cj+yF v3s40iKHkZl0Etmy88jLPg2TcgI2zQSK2TrKrROoLpxAbekEGipISvUEmmsn 0NJANVEtfJ+ENJGQBoGSkfM4ep5tY3ISKw+Of+JA4xAHWTyBOPKTcijhFsF5 lIJSUfmUlrDoKL3QQfz3Io9gZLpRnodh+GIvigRAPjvsuMF58RcuKDvghRJX PzQGR+IsAblCQK4TkBkCci9fhUcE5BkBmdWpMU84HqUn40FyPB4TjqcE47lU jBfULAF5GMWOERSB24TjFgG4FRiDGQIyHRRPxVGxuBkowk0CeZ1/fkOqxq08 K27JLbhJSJ7U9SRvQ6IXDr/Y+f6h45md/7bL/T86npu9NYuxsvMYr2R+qXqM ido5nGhawbn2TTRpHqE86AqOpkxiIGYUR1NP4GzeOVwxXMaNwmu4XTWN+81c kLvu4sngfTwdu4/Hx+6hofE82tuvobnjKnp7H6Cn7/7O5/wcXT230dl9C52d N6mrrOfL6CJdXS1HUVbdh8QsO464hOPAQT8cPOiNw4e94eTkDWdnHp094eLq BQ9PT3h7ecDHyw3ens4I83FHQkAQYgOjkSgqQjopSs84j1z5MWjYY4zsMVb2 mEL2mBL2mHL2mEr2mEpSVE2Kqv7q283lVCmHkcVSiZWHJzloxhzwCMf5qbpf OJgRfvwg3InVyXFzaQWlovIpLZ/XUfpokiLi+hVyAPlB3lCSnGxPUuZ6mHNn P4oZYYp/6+Sgp2S3GyoOeaPCIwDjqem4mKvAVdIzrVTiDtvLfdLzmPQ8Iz13 04WrxONxPyUej0jPkzSK5DwlOQ9EItwNisSdgHDcDgjDDFvIXZJzm61lJjge t4LjqBjcChKRIrafKP49ShvuKT+++syCOzlmvKjvSdrmZfs3woQ5rBMefdTH 9z8eZ6fnMFZyAePlM2xHT9iOXhKiNZzr2EKtehUNOW8wWfsVjplu4nTxHZyv uY9LzQ9xufMhLhKQOS7zs+e2sD71Lb699X/j7Mg8+nseor/3Efr6HqO37wl6 +ik+7u57hG5+TFfPPXT23CFM0+jqvobu7kvo7jiJ7mPT6L+1jkh5KfzZljz9 4+HNieviJdwD0heH3HzhwUDnHyaGV2gc4hPSkJueBZVUCjVXCpWIKw/PTmxE HOJEeRBL6pCRM44cgqQkSBqCpCdIpqIJmNmOLAzFliqKMBVQFnstrPlq2MRO 0HHAfLMDzyeOR7+AOt7ZwVAOKfmEb51I0zZFzvzczlBT2mhn6KKdYIhxgjHm CEwxhzmsXPhcODR+blD7OCGHsvx6H3uRQBITDFfPEqa3sr3uqDnijTrSdI59 6ApXrWsk6RbTy12uWg9I0s20ZNxMjMcMSbpLih6kCRLjYXIs7oSLHOTM+Efw GI5bJOkue8/d4ETcZha4HRJPxfJxNKmKcpD0MDMfT9U2PFbZ8Ig0PVJa8Ehh xgN5AebquxP/mqZf/Iym7Ss/vH/23IsbbElFpKmENJWTppoFLu5rONv5JVet 9yi2/R4nh/+AwdZZTA2u49rIKzw+9RU2J/+E11f/hHc3/oyvbv4ZH279GUtX PqC3+z76+0gT6enrf4regWfUc/RQ3f1U31N08c86+0hV3x1qms9NobuHbenk bfTf3kJkdhHC41WIkFAJakQmqhFFRSerEZuihjhVBXGaEqIUJeK4hGZl5kGV lY18mRTaZAl7QwSX6EiIotI5LCWMHx7ISdEwCmmhytQiP1sLrVwLXR6PeRoY WdO2eLdPYJe48pTZCI0+8iAjrwCS8Pbf8HTkO4aYfLsVfeK4M/RBx23It291 7wxNjAu0MfzQWGcYKVOcE0yxR6CJCoQ+Jpx8BiHf2wl5vmTP/Qg70yFH8Cn+ fJul0r3sTPs8UM+6aQlPQKdMi94sHepTtCiK06JcrMFgvAyjEhkmJBmYSRVj JjEOMzExDDRRuEGOph1ityFL99iJ7pGjuyEJuBMiocQU1/cQzrhgEe5wqZrL L8Qs9Tzfvv2yLLUVz1RmPCVPj3IL8PrCNST8t4HannR+P3tu1MaEVESYynZg al7DGcJ0ue89jnd/i/GB3+PRid/jxdkfsHDhR6xe/gM2Jv+AL6/9EW9v/BHv p/+Ir2f+iNMjLzjP7rElEaaBJ9Rz9A3MEqY5ap5AzaGb73fx+a7BJ+gefIDu odvoGbyOrv7z6J16iYG7bxAhsyE8QYOIRC0ik7SIStYSHC2i07SIlWohpuLT NZDI8pEgUyMuXYXETBXk8jxocrK4WKVAz1LVRIYiKSyFESaAQ0d4QasHbfZA QZwHzGIPWChrvDusEnfYHHKDPcGVR7YS0SGeq6+fCy2pKl+005Ic90kjQP+W LUm4xbhwN3sX5BMjTSw/hjLEucAY58zP4QS96MgnMMRG4Hf8tBEENAgakpQf 6AzDLkbp3xzhbuXEVd0FpgP+jNfxSPGVIjMwA5YEI3QhcpiCslESkI3KkBxU RSlQE6NGXbQKDZEqNIYqMR6UiinuR9coIRJfJ0k3Axifg5O2OxJJuh3KrhRK ktjNZ0jSDZL0PEePRW0xFrTC1Z0kSmPfeYWUFS9I03NFAZ7kGvHjyqudvf3/ hyb/nz03XHAWYzampZLtQSe0ptMdX+JS3ztcH/4atye+wcOT3+H52e/x8sL3 WLn8e7ziWr557Qe8vvED3k7/iLnLbzm0SAZp6u3nkGNL6ic5fYPz6B1cIE0L pGmBBFFD8+gafoHuEQ6/0XvoGbmJjsGLGLj3HgP33yMyswgRSXpEJBsQmWJE VKoRojQDYtKNiJUZIM4wID5TD0mmjulKh6QsLRJlSkSl5CI1Wwllrhw6eToM GQnQJklQ5ueJcu99bBCeDppMcZ4OmszxJEri4aDJmkCadm4sb03cpun9s9FP 8P75KP5uewt35GvOOoIk3FQ8T+TKvuQKdYwr8mNdoY1zhV7sCmM86RAk5twT CTeBNMZF4p/4aYW7vkc4Tr3Gn1QFucD8a6aqzz0h3xOE9AMRkB2KRPZhEfJc xTB4JsOwW4Sq34ajZ1c4Bg9Go90jGXWhOWgIy0FtmBL1wQo0BinRHKjAuH8y N+8IR7a+E5JEkpJITyJmQhMoJqZQJiYSdZNEPUrN+wSrulL8j1jWlWBJtw3W nKYQ8xob5vO3X680qzRhpanr50D9m5/B40jf/98OdaXrNkbN3OEKHzGFz2Oi cRWnOjZxgcv91eH3mJn4Gg9OfMDTs99g7sK3WLr8HVanvsPGte+wdeN7vJ7+ HjdOLTnSdTfTdi/DUu/AC/I0R5GnwUVqiVpGz/ASOVpA1xi71cQz9Ew8RPf4 DHouzmLwwQcMPvyAqKxS8mRCZGoBItMKECU1Q5RuRkyGGXGZBYjPKoAk24SE HCMSqaQcA5JzdBCnZEOUmIHYdDlkcjnUuRlkSwpVugwnxIcw6PkZiiM4hMSe KIj3dDBlluzc8NtxR3k3yhUWMpUXsp/n6u2zUfzPGGvgSI0UljYhPLnsQCXc RJxQESg1gdLEuUFLoAzxAlSuDqh0HH6GOOEu8JHCjbr59j+jgG8d368XBbMF eSLBMxCpn/pB+ttASD8LQMbvgpD9eQhUhEj3eRRMvw5D7eeR6N8nwvihKIxQ 9QHpaPCTopHtrMU3HS1+GWhhG2siWO3+alwJSsc0gZoOTcLN0ESKCxyhukmo rhOq23Fpn2DdUI6/wSt9Gdb0pVjVEyxqQbfdsV4SrJcEa94B1vYL4eL/arH7 5Ke97i+PEI33a99gmNv+mPUho/gsxutXcLx9A+d6v8Tk8BtMT7zDvRPv8fjM V3hx/mu8vPwBy1MfsHbtG2zc+AZb09+gvYsdpkcIQiSDganHMeNe/oWioRV2 oRV0j62SnGV0H33J2M0OdYwhauI2+qa3SNG3GHz0LaKyKxCRaiFFVLoNUTIr IkhTGLtURJoRQZyDIVRYYj7CGahEqfmIk2kQm5qHuJQMEiVDTEo64jMykUma cnOVqMsR42SmN06JD6AvZDfMQfuRG8oYHbYfeYLC90ERsQ+WJDeS4IxckvT6 yShePx3FaP1fSMomSdmkKIcU5ca4kSRGa1KkEbtBF+8GPbOXgTJyXhrEIUJr EkfhC+GG78h0dYbCzQkaN2cHTbFc4ETuEYh3YVv6TSAySVDOrlAoPg9G/u5Q GPbEQvc7ESp57DwYh6EjMRhg66rySkatZyIaqGavRLR6J6LTJwl9fsK9e7LR FZCH40GZuEaSrpGkayTpGgPkFAferTgpNg2V2DQKqsAGgVo3ECdqmUgt/PTy ho84mfFSbcRzle4jSkWOgxFX2p9ixHQfY6UvMF67hGOtr3CmZwOXB7dwY+xL 3D7+Bg9Pv8XT8+8wd+k9FibfY/nqV1i7/hXuX1xBK5Fp50bWwRzd1f+MEUiI QhxiRKaHTaeXuPSMrbHhrKHrGLE5vojuE3PoOv4EnWefE5XfY0jQ498jo2iQ uNgRmmJFcJIZPnEG+MbrEZCgR3CiHiEcduHJOjYoxqdkDUTJ+RTRSWb+TshG dIIUsclSxEtTESdNhjgzE0o5U6o6BieVoTid6YXTcfvR5vMb5Ll9imTv3yDF 51Pq10j1/RVij/wjEt0/xYMLddh6PIIRIpMZ6YQsIpMV5YosARnhbuDERRHr BhVxyScuWsYrHSUPPoSUI7shd3GGbNceyP75Uyh/+Tvof7MHli8OQn/Iw4FM AqdNYkQykkUpSGWOyfwiBLlEJndvGPL2h0PrkQDFb0WwEZnafbFoPRCDWudY lHkmoJKo1BCVJt8UtPmloctfiu4AKZGRoofNqTMgg48zcYXIXCEyl9l4bsbJ PsGXxirhTSX+FlsCMtS6sRyrRGbJUPpXr4jZea1XfgHHmx5/XF0T/5yYd6vf Y1B7FyP25xitWsRE8wpOdq3hwsArTI1uYProJu6e/BKPzr7GswuvGXneYGHq DZauvcXFY8/R3DWN1p77aOt9gva+5+jon0Mnielig+ke3mkuDlqoE9TJZXSe eonWE9zgZt5j8PGPpOUPGHr6Bxg6r8NPbIJPrBG+PPpJTKTFhKAkE0I4xsJS TGxCRo4zA+ORnkFbh5hUDaVmc1GSmAxES1IRJUlkKI9DoDgW/uJ4qCShaFaI MZEfjdOqEJzJ9MTp2L0s0k+R5fEFYvz2Q+S7F/4Hf4OIYC+kSuNgLdQhLswL GSQmM9IFmQ5i3JAdTTJITKr/YSQeIRVOeyD6T79C8n/+DFn//DmU3OX1nx+B eT9Duos3Srz9UR4YjMrwcEiiUx3EJHLPSkiUQZIkgzgxHYkcKYl7w5G8NwKp +yKpcOR6pUJ1KAGmIxKYnSWwMQOVeqei0keKOjaVRtLREpiOtkAp2jmmOoKk 6AgWlOZ4ricgFWe5mz2U5uNLU/Uv8NpU/QnfVHFWbZoqsW6qwCqJWTKW4eVP xLDB6IRXm1hIjRFfT05hB5finZ+VXmx+gcGCpxgue8kevISJ9hWc7l3FpeE1 XBt/hVvH13Hv9AYend/Es0tbmJ3cwvzVLSaZm2jsvIWm7gdo6XmC1r4XaO2f RztR6RhaQufoCjrHV9FJTDpOvELHyVdoP8WGdGoBrWcW2Fj+iKEn/0pM/hUV 57Ygq70J79gCYmKGX7wZ/glmBCRZEJRiRmiqGeFpZkRKhcRjQrTUiBipgTsZ LZVquNirEJeqQARRCSEeoQmxCJKIiV4MYlw/Q4LfQWhTWaR5YjTmxsCQRiWG wxDtj5QgT/hwZrgccIGHfywbWRYbnBwHPaLh7BYGpyPhCHH1gf+nexD4v/8K 0f/HZ0j+P3ch418OIO8zxl+u4QYnX5iZVmz+oSgKjUCxSIQSfu7ipDgUpsZt zyFJuuPussJ/MXwcGy9Ihrh4zlJxBiR+yUjcH0eJIffKgcpHDoNHOsxeMth9 MlDkm4Eyf+GuTRmo4dypC8pAQ7AMTSEyzr+mUCkDbVNIKppDklEfkYsbWXaB jhr8T3hTUIO3DlU79KagClskZoNaIzXLpGbBQc3Oazl0wms52GO0jgvhd4Ap cRxicbFtCQP2eQxVL2KkeRnHOpdxpn8Zl2j4taOruHVyDXfPvMLDC6/w5NI6 nk+uo7T5LOo6ZtDQ9QCNhKW59wWa++bRQlhaGXtb+bFt/NjW46/QenIdrafX 0XKK719cJyh/wuCTPxOUP8MytgxV1wvkd7+AX2oFp48V/hIrQbEhUJhKqTaE plkRLrUy1FggkpkRLStAjMzI8GKg2F8ISyiNCBInISQ+AaGSWATGxxO6OERw vRJ57kFYgDvCIsORlCCGNi0W1akhKE8OgTwsAO6/2wu3z/chwDUUoe4hCAlN QbBXCtx+GwaP30XC64to+OwWI3R3BNL2B0Dlxu3bJwz6YMbdiGiYYmIZXMTQ Ew59Eh9T+uRo6BIZXvh1RMen7Sy7/5GgZCJOUHw2xPE5iBfnQELFR2Qgxi0e Gd4MTd55kHvLofDN5T5GaALkKAiSw8otvjBMjtJQbvGhmagMy0BVmAxlkemo jpWjNd2KTq4TDbIaElErRPqC2l/gHUH5WwcmX1IbROUVMVkmJgvE5OevlWBj 0TO56PQ/Q2Q33i7/gG7tU/SVLGCgdhnDrcs42kNMGDgu0cKrx5Zx89Qybp9d wb0LK3h0aQXFTedQ3TaDmo4HqOt+gvqeF2ggIo0Di2gkIo0cO03HXqHxxDoa T22g4dQ6ao5xC5/mZvT4z2i9+S2UDEv5XbPQ9MxC2zOHJNspImJnL7ETETsC UwsRLAQYqR0R6XZEymyO+/vGZJoRy+0pLtNIXDQIZDsPlEjZQ1J21sR/gG9E CAICfBAY6IOgYB8EB3sjMjQAsrgYWihBspcnPD/bhcgv9iL2cyck7zqC9D2H oHaipQciEeUkRphbEoI8+Pd6Ez9vKUT+iUiNikOWOBoKSQzkEhF0YhH08SLm W5GQa/n2H5HPtyJxKtGQEgmZA4sYSRZ7Sg4lh1iSi3iJAvHxCkjilZQC2dml KDD1QRVjhVpsh8xfiaxAJeQhKihDVVCHq6CJVHK1V0IfnQdbgg4V3AHqc8rQ oapFl7IK3bnl6MkpwXBeLd6aa/HOLGDynm//Pd+yoVBfmquxKVBCrRRUYtEk UPJX13ob2EwM29d6fzU1uX25D0odBx3ervyIDsML9JRxe6lfxlA7Seldxumh ZVwgKZMk5TpJmT67jDvnl2GqP4ny1tuo6HiIyq6nqKbTNX0vUTuwhFpG2drx NdQeW0ftiU3UnNxExfFVdM18h4FHf3Y0ESv/Tg0biKZ7DrreORgoU+88/JPL 4Z9YhMDkIgSlFSFYWoTQ9EKEZxQiMtMOUZYN0VRstsVxv/qAxGwEJmRS6VQq t6UkByc+qds3KfYWRcDfz5vEeCOQ8g/whaenH1z3HYb7viNw+WwP3H+7Gyku nkhm7JQ5eyDLzR1ZftEQ+8Qh1k+MKH9OMO84ePslwi8gAYG+YjaaWCSHxHAb iuI2JIKWpOgoPQkRWDEmiJAhNBFxGoNTOiWQIlCSSynYTJSkRU1a1JBI8iFJ oLjd5cgrYdF0wixvgiWvBVZFK9UOu6odRaoOlOZ3oJKq0XagQduOZqpV24Z2 bQs6tE3oyq9Hj7oKvcL9A/Mq8NywTUod/s7By3tLrYOW19QmiXll/khLxc4r A4SXshTvvDKAo8dgwtdXp3auDkPZDi6vV3/Emd5NdJRzuSUuA8RljLicIC5n ae1F4jJJXK4RF13tKdibb6Gk/RFKO5+jjJaX9y2gnE2ofGQN5Qw35Uc3UHZs CzXn3qCDS/bAwz9hgM3EOroEDT9G2z0LXY+AybwDE0vvS+Q33iMqxZw3JUSl BMHpJQjJKEF4ZjEis4q4WBciOtuOKDYU/6RcKofNJwuBSRkUiz8pGQFZmQ5M PLNy4BUdAT9fT+LCBuLtBzcnd7g7b/9o/vBvduMI5fGFG6JdfJHg4YskLy82 Gw+kShLgstcdzoeD4OIUDBfXELg4h8DXm7MnKBURQTJEBqRBHBiLfKIi4PIR FaG5GIhKVFwyRPECKkLOziEqCmKiorjsSzRERYt4NgZJIsXtLj5Jh4KSMVh0 vcSkDRZFB6yqTthU3bDnd6NY04MybQ+qdD2o0/egwdCNFqrN0MUy70CnvhXd +ib0auvRl1+FPnUJt78qIlLPmffeUod/52g0f8GkehuTgoqfXyZt4vgxCZdJ m/DhL5hUOA778fDmB7RULKGtkZh0LGOwbxnjw8RkgjPoxDLOn1mGuvoU9A3X YG19DFvHC9i75mHvWYR9YAWFw69g56pkH9tE3cX36Lv3B/Q/+Fd2kT+h4swm 8jueQssuoiNS+p6XRGMB5t5F2PqWUMTPJdaOEI9SBEnLECwrIx6lCBO+c5dd gqicYkTL2WmYW/2S89h55PBPyUZACrtJcjr8cnLhk6uEh3z77p2eonB2Dh+4 OnnD9bAbq8pNuEp6+1rp3+7F/l/tg+seH0S4+yHB2wuR7CIRLocRmyaDNzOp 634POB8JgjMRcXYK4eNQhEekIzJchijGgSiuF5KgOC7KO91Eso2ITMwOJE4h HkIX4fJONGIcaGgo5m6JHuIEI+ITjZAk88hVTrjTp6n2KnIz2pAVX4NsSR1y EhqQk9iA3KRGmHI6YZF3oiy/F3WmATSY+tFS0I+2gl50FPSgy9SJbmMbeg3N 6NfXoV9XgQ5NGcGo/4kONpLX1CYJcdDBRrJIQv5CB8dOAcdOAcOJqeCv6ajc +cU+X278EQ/ufouGpmW0MLx2DbCRjC5j5OgyJrjMyitOQlE7CXXDbehansHQ /hKGriU2gVUY+l/BNrGJxqmv0Xvnh5/IaLn2Afltj6DteAadg4x56EmEqXcJ Vjaowr4VlPStoYyS6MZIRjnJKEdIZjlCs8sRzqkr/GA8KKMAPikq+KYo4JeS x5CbA//ULPjK1fBRquGRVwCP3G0yXF29hWt4PoHLQTcEw/WAK9wOunLEOMF1 lxN++0+HcGS/D8J9AhDs5IKAI4cR5OPDJUqFsLgsQuMKl8MBcGbPcHZh72Ce 9fISIVJEKKJkEFHRYakQ+cVBI8Ah2YZDEichGGlUFuHIIxhqSks49ATDiFju 9+JEM9/nfh+jRbCIvSSvE9nms8iRtkKeUI/cxCbkJTUjL7kFypRWaFJboUtr hUnahqLsTlQq2TcsQ2i3DKDD0o8ucw96zF3oLWhDv6kJA8Ya9OjLMGWoFOBw sPGO+okOC+mw7NBhrty52J1jxlyyfbG7mXQUFODra1M7cNTs/Hb0Ow++xfi5 L1FH05rZMtrZMlS1V5BRcQWZ1dPIrL2HjIbHjJgvUSh8F+T614yg36Jn5vuf AWEZnIOm7SF0O0DouwkR24uZMdhGkIoJQilV3r+OSirBMIogAhGcRSgIRJi8 HBG5ZfBMyYdXCs1PUTJc5ME3TQ7vXC28VXoHBO5KE1zk2zeRdhJev3OQ2udK KHY7IQhu+1zh4+SPMJ9kBO6Jhr9TEES+QQjxjYQoTIKEhDzEpxshZrbx8YiA 2wEvuLhwmLiHwdUjDG6eoQiJTOagIBAxTJ7R3GIjpUgIE0Mj2YYiIjaJMBAa sRxR8SpCoSEQespECMx8vgChIj2CoghDtA4B4Qoo6h9CYb2A3PQOgtAEZXIr QWiDKrUd6rQO6NI7YaTMMg6XjE4Uy5hBZO2oV/eg0zaILls/eqw96LV0os/S igFCMMAhMcWd5R0fv7PWO4B4Q335V0AsE4gFC4GwEAhL2c416UU/AfHHV68+ tosGx+GX2Hj/J3Sfm4WhYxqVI0/RwWzRcX4dHZe/ROfUu/8KAT+imc+rm+9C SwK2WwI/vnsBxp4lWHpWYO9dQ3HvK7aDdVTQ/arBDdQMbSDROIrg7GqKFJAA PwZy9xTNNgWpKninKeCZrYGHygg3tR2uavvH16Eelspw+IAnjuwVZoTTble6 78y3XkcCIBblwOdwEiK4pubGpCCLO0QS3UriSpnEsZ+UkIMEqQ5RiflwPeTL COLrcN/FOwKuPuHwDoxGFCOCKJ4tQZyO2FiBghRII6Mdu0kE/84ItpRIcR7d zicF/LviTRDR/dBoIx3XITCSBEQbEBRjQKbtPLQNT6CpmIFC1u1wX5VC51M7 kS/tgia9G/qMbpgye2ClCrN6UJLVjfKsLlRmdaBO0YWuwiF02/vRa+9Bn70d /Xa2BWsN6pkkt92vx1vrXwjYIAFrAgGWKjr+XyHAYsM8CdhZZRsdh/8ebz/8 gLbjD9B+8gU6ziyh49wrdFzcQufkW3y8hK/3zvd0/Ye/uoTvV9C20/VOJseu BRR0L9P1VRT2rKGkdx1lQs0PbMBY8xQFhTOo7l6CnatrSF4zVQfnZA1c6bgb 5ZHGpp+RDxd1EZzV5XBSleJIjgWHc/Q4nKXEIS4DB3e749BuDxwWtMsDIZ7x XB5SEe7POOGRxaJVIpO9I4nhPzlBgeREBVKSFPxaUxhA3JAkzYcoRQc35wC4 uwXQ8ki4+kXBzS8SoXFpECVmOr4T6/i2FTt/jCiJyTCB3V3K4s9BhFhF67WU AZHxBQiI0ME/jIrkoiQyIjDGhETVALSNHKZNz1DQ9BzK7EHa3YH8VNot7aHl vdBl9MKQ2YeC7D7YcvpQJO9DqbwXFXImSnkXanI6UJvVig5zL3qL+tBX1IX+ IhZ/YR3qLRXs/oLl9Q7L39D6Ldq+TttXqSXavmCl7VbabqXtVtpu5SSwWDFb YPpoe5Pj8A9onbiPthPPafsCbV9zWN5x5Q06r753GNx96xv03P4OvXe/h6r+ xvYPw1sfOWzXdsxv2961DGs3bWehl7DQy/s3YKibhVx3FzbrNEqsl9AwtoUm KskyTjucUwvx93BJs8FFaoWTohyHVRU4pCjDodxCHJabcYi2H8xQYr9/FPbt 8sJ+yts5GpH+GYgKYIUGyBDgxiUjSImkRA2y2DCSk/JpNEWcUlLVSCVSn/Ct Cl8gWaaDT0A83NyD4e4ZDDdfzoDAGPhHpyAqOQeiZFqfxL6fIEVMfCrCJFJW tAxhsbkIj1MjXKynTA67fUO08I0wwD+K70cXICKlErrGpzDScnPzc1ibuXfr z9LyToflWlquzeiDLqsfxpwB7p4DsOf2ozivH2WKflQqelGl6EFNXhfqctn7 5S3s/ez5paz4ElZ8cSPqbdX8t7ym8f8Or2n5a1q/Zd2x3VqNJSttt9F2G223 MR7ain+y/evr139u+148mn+LtqPPWPEv0X56Fe3nN9jnXzv6vMP26Q+0/Rs0 Xt6Auv76tu0tTANt3BXbWe0dtL1TsH1t23ZWevnAJox1y8g0P0OO5jwM2lMo LZpC0/gWl5AriFA2wJdT3yenHIe4IBzIraDKqGLKjgO0/UC2HvukrFWXWO6G sQgLZNVRUZQoKMdhv5+HHJEcrzI2cmmqhnbraLJOsJrPeCAtXYs0mSANUmX5 SMzj3honh5tXKNx9QuDmHw634FhEslNEMXaKGDujuZDEJKYhOFGGQFEWQmIU CI3VsCsY4BOqgTct9w7TwyfCCF9RAcKSKx2N3chKNze9oOVzKGyZh636EfIz +qGV0m7ZAPRZg9BlD8GYO8Q9cgh2xRCKlYMoY5eoVPWjStWHGu6UdcpO1Cva 0KBoYsPvRG8Zx31ZE2qLaljd9bRaqPJtyzdZ7a84AFZo+6JNsL3i57bbCjFH 2/+wvv5z27Px5qsf0Tr2lNbTdm4A7Wzy7ZdY8VNvHBZ33fwK3TNfo2z8OdR1 O7Y30/ZW2t7GHbCdtnf8VbULtg9uomp4C8qal0jTTCJXdwFGwymUlU4hTFmH cGU9wlWUug6+TDFehX3wLuqBO9OMu6UJ3oVt8NRXwlf4wWpgLi3PQ3hQHiKD FBAFKxAdSiv85AgI1HAtN0GeqUVKmpFmU0x0aTIqwwipoEwDpFl6HnVIE64y yq9BtMzCaqfl/kx5AdwJ03IRIVUgigFTlMaqT2EXSc6Al1jJ1EbFMLlF6eEe mA/PYB08w4zwijQhg11MW/cEhobnbOyztJzBuGURxS1LKG3lni2fgJaW6zKG oM8ehiF3BMa8EZiVI7CrRlCsHuE+OIyK/EFU5fejRtgN87tQn9+BBnULWrgL 9lR0oae8BbXFNcR5g4b/LTZo/YbQ4Gn9mq0Gy7aPlS7YzgZvK3HYPm+zY623 b+fH6s07Mf/U5DLaxuZZ6DyeodsXNtnfX2+7fYOh7tY7lI49g7p2u7fnNz2k 489Y7Ntumzq413WtbI90h9sbdHsTNaNbKOlahEw/CYXxPMymUwjOKKbTtXS6 FsG6BjrdDS867VXcC+/ibrreSbfb4ZFfhoDIfIQGKum2ChHBakSGqJnT1YgJ V8PPk46zr6bRuYxME122fEKLLdhHY800mMou2FaOiaLxOQakKIppeB0S+OlD OP1dAsMd39gOk+YgPJ1ApbN/SDMQmJoJ92Qt/FjfvhEMgv4KuBIut2DudfJ+ KKseIL/mCfT1z2FqmIOl6SXszUs0eoVGr6K8fQ2WkjvQZo2ypdNo+SgMeaMw KsdgVo/Blj+GIs0YSrQjKNcMo1I7iGotDRe+V6Rjneta0ahtQKu1CR0VLagu rfmEmV3w+pWjtOmzVfB5u7xfCl7bWd52lre9hD4X44XVzvLe+JnXe1ndf0Dr 0CzaJhbRdmoVbec2HNUt/Nd5/TWr+w1KGexV1duVrW54SL/pNeeVrvUlCtp3 vO4VvH5FrxnfhhnYRzZRN7YJBf/RGaYrUJnPITDdxvWtCGH51fA3NcKTTcuz eNtrL+HIyOJtaYFfkgUhQWqEBmsQHqJBZKgWUZyh0YxOoYEK+AcYEJNkQ5bc ihSZDakZNlauHWnZdhpsYxWky234X5Gea6UsSM8z80g2lHYkahuRqKlHQn4t 4lVVSOGSnFZQilBpOkLTMxEmy6bx6YyXbN4pNrixqv3jSnbi7D/QaHa2mmeO 9woaFmBrXEZR8ypKaHIZTa7o5MLStQ6jedJhtJ4VbVCMQssZrs/oglU9ikIt jdaNooyq0NNsPc029KHWwMo2sKHrObt1VaivauMsF75XvEqP/4bNmw7/v1ye t1dQ5VQpVYIXtiIs9/V/vJqvZedqvlOXVtE6ssCSXhVK+uNe1HF1+94LJcOP d8L5p6zqB3SZ+0cjF3OOKBMr2tq1xGpeQXH/GsoGX9HhdVSPrKN2bAP14xtQ ld9GlvUyfLmSBWZaEZxjh4e9FZ5FHfAo6qbLvQ6nfXj0MTUjOsqGyHCORJZP eAiDcZgBUUxH0SIDAv01CBLZkMTOkC04nFlEd4tYrpS8iN5SuVReoeC0wg4n vrVRdFthQaK+GYm6JiTQZQldNndeRN/0JvpurKHv2hL6rs5DU98KWdUEEu1j kBccR66wbRdu/6pZRflDqCqfQlsz63jf3MAFpIn/9pZVlLa9QkUHCafD1T0b KOP50aiOQUeX87MHoEzvgYntwK7qhU03hkI9nTbQacMIKoxDqDT1o9rUjVpT O+pYAdXGapTYa3GmqJYhvBaLgujwAh1+SYfn6PCsXVAFVY4XdPk5e/cjprSd y8lbPzZtpq6W8WW0nnyFtrPraLvIQp5kQru2CXnRKSjKrkJZeYuFfB+q2sfI b2AYb56Fse0lLJ2LsPcQ5L4VlA0Q4qE1VI28or2vUDexjvpj6wzhI/DKsMI3 04KArAKO4QZaK9jbs22v0LSpsIRS2lhEe60ICzEhIsyEyIgCiJiAIiL08A3g c4klkOWWsFiLkZpdirScUkhzqbxSwdESuEKmLEG6qhgyKl1VxGMhj3YksT4S 9S10uBESTR3M3ZfRN7NFh9fp8Ar6ri+g9xqTR+dZxJsHITceQ675PHJt2/1L WfaY7r6AtnoeptpFx3OFTUL9kux2OivUL52t6dtAbf8mKlrpsPoY8qTt0Mja UMAQZtEPwawfhY3OFhlHUWIaQWnBEMrNA6gwcx0zd6Da3IQiUzUsuiKcKKzB vEVQNeYYwObo7gu6+5zuPrMLqqDK8YTuPmSn/nFj42fmZuLNu39F88AiWibW 0HpqffuX9l/aNlhfdw15JVM0eJoG34WymvzWPWX9PoeBX7254yVs3Yso6l1G af8KyodWae4qasbXUHd0DfXH12Druwcfdk4v1q4XY7VrQT3crMxaRb3wYPZy t/fAX9WMKFExoqNLER5mQViYYKgFkVEWiGKsCAnlZhNRBLGsAtnKYqRklyOV sT0tt5zGUspypAtSlSM+owDRqVqEJzC3JVIJ3JgS5Qhh1w3khheQakYwp4W0 sBfVJ5+i7xbr9+Yqxfq9MYvC4asIzWtDunYUuSbWrnU7iShLn0BdwclU9ZLu Lm2728zJ1MrJJNRt9waqezcdztYNbKF+aAu6gvOQp3fCkCW42wGDcMtHumum szYTu7V5GEWWIW6kAyiz9qDc2gG7uRnmghoU6ItwN8uE5xYhez2jt/8DntLd x3T3MZ195FA5VYb7rNsfNjZ3XlbUtnOFkeMX0A0to/nYK8cvr//4a5HtXQ+Q a59CXvE08krvQFHxgKXL2VP/jF35BUxt8+zKTJM9i5y7SygbWkHl6AqqJ1ZQ c2wFdSdWUXdyFUHqUnizG7uqSuFc0AgXcytcLR1ws7FktS3stHYEBhoQHGxC aKgZYSzbiCgrImPsEMXZ4eNfwGBUgZTcKnbhQqTkVCI1lzNTUUVHq5DM0hWl Gung9pWwEQ4xnyUpKQWVi9BUPYKkdgSkWeGfUoBgWTEicmuQXtgPfdsZurvM +p1H89lph6uJqmHI9RchN9/c7sjFdLVsFrpKZsuaZcdzRXRV6MblnTuu9m27 Ws/NooGuKvWnWHtM18pe6DXCvddHoDcIN/McQQEdtViGYbUOodDGvZrnwmjt hNHSzLldgwqlBddSlHhEVx/R04fUfbp6j67eY83eY4q+y+XpNpcnOoqd1x22 Ow5Zf/lN18LvA96x1Nr+ADmMBHIb7Sy6Q0sfQFH5mAsTuzB3QaNQqJ0sVNpZ NMDlYHgZ5aPLqKSdVbSz5gR1agUBtDFAXQa3/AocNjXBqaANzqY2uHNpCkks 585aRjtNtNOMkDB24EgbImhxZGwhgjhwfcKKIZJWI4PRR5xip63VSFXUIJHF KqI1YQksykQqidErWYMIKjI5n0faylMSkapASLoVQemFPxVqNHd0UV4doohI pLwMssIOfr03+PVfREpBFxIZf+SaS2zF20WaV0Q7S7aHq6mG8bFhxfH4Jzt7 duwcYJEObsFSew/WgnNorb2CxsbzUGq3X9OoMoxBzQLVmEegszJq2QahoZ1a 2qm1dfK5ZmjN1RhOzcf5uAzcoZ13aOUMdctW9Qmm6eUv+LYc162l+J5O7rwG ucNx8HI42Ti0+tNvdq4cnkcWl5ecgpuQW+9AXswiLX/CNZaBuIFxqZVDhS5a exZQyHZdPLzIRWkJ5RNLqDhGN08so+rUMuLsnfBTlcFTV4NDxhYc0rfBVVoM vygDgqJtCE2s5upqRlAo22q4DWGiQoTHcKaK+f+EWBhIKyDJqYVMUYb49BKk 5NUiVlaEUImeDlJci8M/Xm+cIkiLyBS6mUo30+hkmoqLVwmC+DFCKA9IMyNG 1YgYUhStqKabpCGXpDB+5ZS2QF3Zg4ScEeSoLuFjdMy1PYGqmK22fH4nHP9v KGlb+3lBCg4ObULFYqwpvYSO9im0DT1B09g6dMXnHb+aK7dgBHJmizwWo4Lu Ke39UNl7qU6o6aBNU4qTEiVOxmd9guucoP8drlqrqEqHJq3leNA7jNRt57oc hzScuPoGjXRN+DXGMvUVZOpvItt8Bzn2B5AzAuTRMRUd03JlNXbMo6CHrvXT taEFFI/SNa5DZccWUX58ERUnF5FRfxI+ilK4a2rgqqyFm7gAHuE6+ESYuPgz 8MYWIyDYgqAwrjiRhVxFixAeV4xQtlGvEDqTWotUrrkJPOuSrAq2Ra44EgNb q5FuGxCWzBaaYkB4qoEuCdLTKTon1VJ0TapGcGbpjmN2Pi5CXH4TYlX1VA3d q2AdcjgrhOv8FIjM0CDXMIzs3EvIySethnuMQYw+hYxGZfw3VzP11W0H223X GOq7GX361lHTz0BfOAm75TxaGibR3juFRjrWxPDRdJS7bD/7VsUpZFkGkWnr R7ZdUB9yCnsgt3ewMhrRKjVgJFGJUUk2LphZa+ctQq2ds1TgTu8IvlnfxM5v DOl2HKSO36V1fPodGZiBTHMDmQZhpbiPrJLHyKl6BkX9C+Qzr+ra52Hsnoe5 j44NcsseeYmisZconlhAyTHq+AK0PbfgJS+BP7nxi+LCGKOHV4QRnuyAvpFc UVhPgUEmBIbxTEbRnZhihIvZWemct4hnMqseGZpqxEpLWUvsdvFGh1MhiRyS O1dmh6Wa6JbwchC6JRWkR0Q6HUvXIizDguCsUsc3NwLoVri8EmJNEx2jWyQo lt07Vl2CGLVwZaYcAYkypElyYVBOIjvvJnI099ktH0NpY18peQFDJf+9tQt0 awnFrczoHauo6GZG732FopYXUAv1VXEJrZ2TaBqZRwOdajy2isbjK2g4scQg sMjpMQ99+xXIq48hjfUltXdDamtDVboZHRzeHQlKtNOtcVMFbnSP4uX12x9v YdXrOPwKi8vfQa28Bmn+baQX3EdG4SNklj+FvOY5FI2zyG+dZe4mXD3cGvv5 JQ8xo/DLsdEe+zizyvg8Tp/dgJm2hPtEwzciF34i7tdMj14Rgux8n4BHFSKA 9gQzbYbEliAsnoUXaIN/Yi0kigYkM3+ECVcsio0IkvD/oy0hSbSGtnziMGYf wtNoj5T2pFMy2iOjPRk6xw8Pg7KEawmKECArhETXCrG2iaqnahCnraRKaJMN QWly2iNDmE8wsn2SYVDNMNneYzZ5AoXlOfKLZqGvYMuvIYoNHNzCd/XambA7 mcV6VqHgRlxoPY+mxitM77e4Ka+i4SgtcdiyjHraUntqEdWnX6Ly9DzKT8+i 9OQzlJx4iJrBSRyvHMSJqh7MnZ/C3OnjeDP7cOcepX2Ow2e40v4YI4a7KCl4 iNLiZ5BytGZUPEN27XPkMf+r2lg0HcL1nvxK+2ZRP7KI8eOvcPPcFpYn32P1 6nt0mdshcgthNJDDL1JHBzhgOGy8Iik64B/LwmAyDApnJo8rRSCLxT28HGGy BqRyA4tMLUGAmG0wngW18/KFYBZJyE6RhO04EU4nwmVGOhSeYcDnCM2yb7vB BTBQuDyMMUTCQSjRNyFe30DVQKxn4ehL6IiV/78CQanpiPALQtwuFzTnn6Aj DzmU2M6NLzgw5qArZXOoWmBrW+RWt8xiWWaxrEBTdgtq3WlUV11CY9ck6kZm udiucLEVkjKPJ5fpxBKdWKQTC6igI2WnZlFCN9pOPcbc5CL1DHNX7mHu0jXM nTuR9ddO/AverX6HQc1tjFifYJQNdqxuGcdaVnGm6xUu9a/j6vAGpse3cPf4 Fh6e/hJPz77GiwuvMX/pDRauvMHS1BusXHuDuCO+8A7Ohm+4hm4U0I1COlAG 72gqtpyPS+Dul4/DXnI4+5vgKa5GdC5rglncL84If7EBARIjAhNZG0lGOiGc 8RA2qn0IpQth6RwyrAfBg7BMiqt8ELe0oBwGR9ZFAJ2IZauSGFohMfJopBPG GopOGIrpBneDPBVrQ4rk/T5I2udPN9wwXr0Eo+YZcjWkzsydufAlDOWLKGDA szUI3yPjoGFtpKlOwma/iNqWKdQOPkL12ApqWRO1dKJWCLknucMwIlWdZmSi E2V0ouTkHI6fpwNXX1HC8QV1n45cw+yFj070Ow4JuNj8HIOGRxgumsNI9SLG yMFxMnC2dxWXB9dwbewVbh1dx92TG3h4ZhNPzm/i+cUtzF3ewsvJLSxe3cLl 7kl4BWTCJ0QNn3ATfKLYmWJK4R9fAR+Gr8PcfQ/6qnHEKxfOwQxlqXWQcBQH xxvgG2eAH13wlwhXwhoQmMRQx9EezLEewkERQgdC6UCowwE9uRa6UtG2A9ms pSzWghAVjG1IMNEFxnyJqR7xJrrA5hxvogtG7t0KJbeqDEgPhSPtYBSSD4Sj MLkWRxvWUVu8hDz9HNS2l9CWLrImllgTy7A3LyNNfxlK3TmUV19BdfcUKkfY rehC1VGedYbUKiGksh4qWQ/l7E5l7FIlJ+Yxc2UL89dfY+7GOrVE0YXrdGHq Gl5c/OjCgOPw79HNPjlgeYGh8gUMM2iMsxJPdi/jfP8KrvAzXp9Yxa3ja7h7 ag0Pzr7C4/Ov8OzS+naSDEROCsdBoAreIQZmLBt8oovhKy6HF5vR/kAdDoYY cdhPBefQAp7AesRxDfWKUMI7RgPfeDYxpmB/puCAZD1bONdPTukgTuiQdCqD ytQhJEvL5sMkkFNCcVLThJDcciSa2pHIvSrB3ELx5JvrqWrEm8sRX1AEsYk7 jyYfcaFipB+KoESQHo5Fwn5fHOPJP932BsONX6K4ZIUjYgG6ikXHt5rUFU+Q nHcaZvsllBP/soEXKBvmSf5pQ6CEvHmCuZMnvZRJ5syFTaxe/4DFG+8xf5Mn f5onf5onf5on/yZP/rWr+Hpt+Wcn/9d4u/IDujVP0MciHKD1Q43LGG+nAT00 YHAZl7lZXqPd07T6zukV9LfcwlDrLYy13XKc/6M8Nldchi/bvmeQDl48ejMn +XC7dOFGuZ/PHQw24ghLwyXSBPcwNbx59n0imbdEdC2OLnCT9E3UwZ87SECq DoFSHbdGSqZlLuKZzzL8AgE87Z/Dnyb4cRrE6hqRaN458dzFJZZGJFhZWcz7 EgtXHXMhxAVmxBp0iHf3huxwJBWN9CNipB4RoVjagFOtr3Gx6x2u9n+NE11v 0du2BR0ngkR1Gbn552GvnERR5y0U9nM9G6I4EUvGqHGKEbL71CrOsyNs8qS/ uvE1Vm6+x+Ktt5if+RJzM+w/M+w/M88xd+suZq9fxbu1pZ2TP+g4iPF29Q/o Eq7aL1lCb80yBlhz4508+X3LGG5/gsqi8zAbJlBIlVCVVC3XWeG/Bt0EGjQT yEkfhJefBc7eerhyrfCMKYFTuAV7A7Q4EKznYyPcYgrgyY7vE8s1JFqJEHE+ 57YKfrE0QaKGL1d4/1Qt/NO0DKEU+41/FlNUThFVuH3Ws9nXhCv39fU88y1I 5FlPsDYhwcYzb2uAxMbEZatCvK0U8VY7xOYC/r8a5Ph4I4NnP+NwDGROLANX CSQHPHCydQvnedan+t/j5vBXuDP+NfqKplGeNoLBogs40X0FR8fYj49u4sTx TZw8uYlTpzdx+vQGNq994Fn/mvoKG8R9jcvAMs/8wm1OyTubmLuzRi1QT+nA XTy/PoXs7VM/5Dj8X45T326aQ2fpMrprOdJLb6KAp9QqnG7jBMpME6ihGqlW vv//tPelQW2m65VnnGRyk5lMpWZyJ6kkU5PMpJJbvrmV3GWS293eV/DSbRu8 78YGgzfc2BizGS9gs2P2HSQQqyRAQkJsQgiBwCxCCAGSAIHYDXjp253Urfkz 55NwX3enpmp+za9L1YOEDK/e75znOc955E/68sM9sJfytpi/9/hGGfyvVGC/ 91Ns3ReOrQejsf3YU/zi4AP8E3N+q89D7DwZjl2c/vZciMS+S5GU9Sh4U+IP XCTEF7+k3N/DwUsC7GwDAVECxJvgRZx/xrsxvEcxC4omiqnuHL/IEfdCTMYG 2ozHzPfHdEKP492onyXqZ4j69UA/hBw5iGufHCDqp3F92zkE7LyAi5/uhjRr BoqCOTSXzENbtoCuykVEny9EU6gU1gIVrHWdGFUtY7xpGbbmZThaljHZuowp ur/pdoZ2EdMdC5jqnIejaw4TBhesPUS8h2JjdDCsvD+EEaJuG+rfAL3cffP3 7rcd1HAgiwipdL/i9phgxxHQRIL8MpJAM/J5v5CPizYAr+JjNXysgr8feFGM oCs18DoUh23M+T1fxGE7gd9Gif+UI/bWE4yTD7DtTBh20tns8XvMeASvq4/g 7f8IBxgH/aMZURyN6UOvhruB3+9PggKjcej2U5x6wH4aTZQfpW9yQ/1jXHAD nbIBduIG4LFuwE9HhCP8zDE8PHMUAdt3I4Aqf337OVzfRcA/241n19NQnz8D dfEsWstcyInRoiBAgr5kBUZrmmBSLNCYLMDaxPTVLGCiZQG21gXY2wgwTZ6D bdTR6YK9izbcMIMxN9AUl16C3WtnjGKEgA/pDXi3vobvIP4PaJDpkZ+pQEqs DI8feFREQDudqOYwihgl/LmEj5dvIC7lzzL+LKPSFN6txM2LVJmrcly6VI6t ezke00t6HY3CDnrOT3we4JfH72MLEd/O+WrHxUjsZKrvuBKFXVfJ0LVo7A+I hvf1KBy4HsmIwAE6e28213OBEbh68zEu3okj4mlEnBHDXBegfiK8Sn7uSRL9 8rknVJUnbKiPBchjEOJ3HuFnjxH2owg5eghX/nknrm35Ate2H8UlQv40IBWy 3EkoiqZRljrIGbIYqkg5BkvUGKjrx4DCBVOji06EOq1h/ja7MNbqwgTd3IR2 BhM6ht6JccM04Z5y5/UIoR7pszEmYCbkQ90DGDUN4+bHqvIf0SjXoyizASXZ SpQyRIy853KkEc5swlrAEDHKCXtVRLXnBbL/gToiX//wNxHtV4nbV2QIvCDB rUPxuHY8FidOxWDX8WiKyhPsOP8In50Ow5azYdjGPN9GB7+D7n3HFWo9Z6jt jB3X2GyZ43sCInAqJBZ3opIRHBmPLx/G4i5npNt3IuB/NwqX7j1xo02sCfjT RPw1vye4AT8b8wxX7ocg8pwPIs4dc4Mu5PktLy9ayN3uN1wJgD8JSKZps7OJ OhAeVIv8oCroXzait0aHbvk0euun0c9hflDlhEnthFnDHG6Zxmgbo2MKo52T bJqCZBNoox3DvTaSP0y4fwcmAj5otKBH34tbH3fPP4ZK3omSrHqCrEBZjhKS HKX7EtdyhjJLifqUesgIfnVMLSqIcA1DyqgjAQ2RBF8hfNPFyclAakg9/Pc8 xaPjKUgOzEL8gxLO71LmaBEn1ST8ksryyen7+PTsA3x2/gG20DBuucTuStO4 jabxIDvlsS/jcfReMs6Ep9J/pMKfsnGLyAY/ScDdx3H48tET3A2PorcIg//9 CFx6EOMG/CzhPvv4Oa6Ehm5yY/0XRNsH4W7Ej7rDf8deXP7Eg3bM1WR6Rhsy n/fh4TkR6mPqoRc1oaPGDJ2UY2SpCWK6NEl2F6Ie1LjL/injmfBRoyEs64JO yPI70SZcfdooYDzgRvpV7xi6u014+/bdB6Q9JvE/Qy3rgChLuJBnA8pzFDR/ SvdlxOuIdCOjOasR7ZkqdGaoYUhXw5jRhD7GQHoThhgm3jdnNm3iNzX2YoS/ mkcfGLo3FokXXyL1bjZiHjYgIrIFEVHNuPulDNeulsL3egqO3IinaDzDsTsJ 8AlOgC+H1+MhiThxLxGn7jMeJNLkJeJMBIfbyCSceZSMswTdPy4ZN58nIvh5 PO7GxuHuE4IfFYU7D8IQcP8hLpKEm+fP4PYXB3Fxx05c2L4DF4XYtp2xDRe3 bsPZn2/FqZ9tQ+ip5/QJozjnU4Dsm7VoylChpVKLwrROPGJCPWZCPWPEM1IZ GYycCI9nyCby2UQ+i8hn3K1G2u1qyIl+c30/enonoO+2EPGvcPvjyfQ0TL0W iDOlKBcuz07EK4h2bU4j6nJURFyN5mwNtFnN0Ge2oDujFX3pbejPbMcQYzhL i5HsdozmtsOa144xIfLbYHwqgnLPGQycD0aKXzri2IWjHrYgkrBHEvaQEBmu Xxfhsn8eh554N/RHbibg6G0B+kROmoRdgF6APYzxMIntj8GB50y0AH0STjBO P03G6dhkXIsnBQlJuBPP/I+LQ3BMNEoueaP2wE+R/+lmPPrsFwj67FNc2bED fju2w2+7EFvht20LzvxiC4K8HyPgdB3CTpejIkaBgqRaPCakTymecYz4qGok 8ed0Rm6Ep5eV8bEKRnU077N/lRL6EkJfFMxedouUBPLnSAXW3/4Kdz5+Webn WJxbcn9KtyRL5r6WuJDkVYRbntMEZXYLNNltaM9qJ+Qd6MnSoS+rE4OsMxMn oJHcLozmd2GsoAvjhV2wFTGK9bAXdaLxXCjGz9zAN1H3MfYiFVlRLTQ/bYiK YES14l6IHEGEPTCgFBf9cznxxHPeJOy3GHcS4UPYfQn7ccJ+grCfDGemE/ZT hP0UYT8lQB7D28cMNkxfOpRNOEkS/hZXYuORec8P0ts+qA86hAa/vWg48xnk h3+K0q2b8XTrz3H7s19SX7bh3C8/wYEf/wyf/rfPsfNPLuC5VwRtgoj6IcbT h1WIE+CO8rhioZ/lhHsgFzMq+XgNIZcxBPtQFcrH7pGKL9nrCH1lcC3klNi6 Lxuwal+9/THy/4hmaQsqMmpQSYmpEq7qnt1EIW9BPZNYnd2BNiKty+pCd2Y3 Ue/BYLYRw7mcaPN6YS3sw0RRH+wlfXCU9mFS1IcpUS+097Ng9LmFd6EP8eu0 KMwV18NWokPWozZEP9QiKpLoR7cgKJCWMrCUiV8MH/axw0T+cyb9ESJ/lFrj Q+R9Qon+gyQcJ/IniPwJ6swJIn+SyJ+MYds8Qej/SriLw6HPcORaMC7t24db xz9H1CVfZN05A8ndU5AF+6Dh5mEo/PdCcX4L6o78FOLtm3HhJ3+PvX/zD9j1 l5Sin4Qg7HISnt5MRkxIOR7fK0dcqARpBDaTQGc+9MhK6YaJqCbwMkZdFFuZ YNh+ABkVR8q0b4yQoy1GidZoJVoeKtF0rx52tfXWxy/U/yOWXEuQpEtQmVmL KjbTKopLdXYrpNk6KJjdzVndFBojDFl96M2iecoZwHDeICwFQxgrGsJEyRDs IhOmxCZMl5nglNCLpjRC+cVtLN6MxK+TnuFtQTof78VkOYcCcRd0OZ2IDG9H ZHQ7AoPKGMz+G8W4GJiDQ4EJOET8P7+diCPE/wjxP8bM9yH+PhQcX+LvS/x9 mf3Ho4n9cZLwO/Dl94MhT3H+i2NM/qt7dnus1Z8jYPcu3PY9jMjLPsggEeVf noTsSxJx+zAaAvYi3vt/4dDf/Rx+v8jBwyu5iL6eh4fXchBzuwRxBD/xfjle koD8KE+2FwngMyQRnrFEHuk2FJtQzwf/AG1P5OhJUKI7XgnDCyX0sUp0PlFC F62ANqwOvekdHzxj8cbbKFtqm1CZXoGqTBkZaGS0opb6IifyqqxetGb2M/sH 0ZNtQn/OMEz5ZlgKRzBWYoFNNApH2SimykeJ8ChmKkfhqhqF6lo8xv2i8a9x L/Cv+S/gqjZhtnoQ05X9cFSwYsiEVaxHZYoWN2/X4nqQGNdvlsD/ZiGtegKH /wQcvJWIw6yCz6k/X7DbHglNwtGwJBwjC8dYCcfIxDEy4RPluS983oafADzR x++54ffnvYA9u9z3r+8WrjkUuHsn/gy3fA8h/NIxpN05DVHISdzaswNHfrYf D/1KEeEnwqMAEcL9xUgMLkRBWCkbqBiF98TIvV/BzK9BeQSTNUKK2kgpZBEy qGPqoI1rQHdiIwbSVJv4rZGV0J+qxKsUJXqTlG5SjM8V6H7SAD3/ZEpjufEx Dz+BRLhwGPW/KqOBXDSjOlMHKRWnPrMPTZmDNDjD0GeNwJgzioF8K8xFY7CW jGNCPAFHuQ1TFTY4K4Urg9kwV2Mj5RXoPvMI76IS8b/z0vC6pgtzUvIjtcBZ a8ZkzRBsVf0YqzDCUqansjUg/3Yawm7k4hp58A1Mx35y4RWUiAOshoNswYfI xeF7SficXHz+QHjLxhdhwn9zn74bDb8bwQjw3ocrBJo8eMoAv+8GP2ifF4K9 D7vv39y7F4EkJWiPQEjQnp10/DdIwBdbdmLX5r24efIZwq5WIcKfg8iJ53i6 /w4dWilED0UcwstQE1pOLS9HY1gNDGmtMKa1oe9lG81eOwYZpow2WpA2mN3R ymjBcKbGbQIH01XoJzf9ZKU/oQF9sXIYomrwdmoZG6+NFW28VmDuGURFqhhV L2Wea2hlaFGdYYAsow+KjCFoMs0UplEYcsbRl2/DUBGH4dJJjIknYZdMYapy Gs6qaczWTBP2aToiUnkiGvMhKfh1Zha+rpBgsc6B+TobXHUTmJFbMSWzwF5r wlh1PyyVPaSFKRCSDOndWLbQcJQH3IHv2ds4ceEOTl26gzOX7+CsXzDOXw3e hAv+wWQi6NIV3D973P0W8Bv0lpfJxu+4+fgDNx/C123vL3DX+4j7/gNvzlN7 95OH3QjaK7B2Y+8uNpMT/7QLp3ec5LBbgYdkIuJaGS5sPoOQzccQt/koRP7p kFLv6+nwG+/Tk96rhe6JGv0Zegxm6jFM9z+S0wWL4Ezy9DSCQnTCmq/jbQd7 Zzv/vZW/1wxTJi16mhJDSXUYiKuF4ZHkO2T8M1qrlKhMpUa9ZHdOb2XoUZ3e i7r0QTSmj6Al0wpdtg3deQ68KpyCqcSJUTHHaMksHJUuTFfPYbZ2DnOyOSzI 56C8mYtRuvtvkvLwa3E+VhSzWOKEuKAgWQ2TmGmwY6p+HHa5BeNSE0ZrXpEQ AzpSqtjbEiC9F4Pq21/i2rFj8Pf1QeBxH9w44YtbJ31x+9RxBJ8+jrtnjiOE TNxj3Dl+BBd37XCzIdTHFaLtt3sPru312jgj5UcI9fZF2AFf3PU6hEDWSNC+ PbjhDjLj5Y3AYzG4d7USkTeluHO6GEc2B5ERP4SRleTNp1FzrQCqBw1oDlWg jaG9r8CrZD3MOYJT6YO1oA9jdCvjRYJj6aU/NDJ6MFHczZ/pHQs7YcnvoJds Y7JqYE5XYDhZhsH4SszpzYEfM3IFkoQCVKVQBtPUjA4y04Pql/2QvxyGKt2K 1qwJ6HIn0VPgRH/JLIbFc7BKFmCrXMRU9RKc0iW4ZMtM/2V0PFOh41Iy1p8W 4NclpXjTMIrXjQtYbpzHYqMLc40zmFVOYVphh71hDON1IxiV0QPUULmq9FDH 5jEXn6H2XijunT4Ff59jCBBYISM3yMitU2SFjASf+Q0rfvv3kJGduEQ2Lu/e zdhDZvbCf98h3PQ+7nkDgfcJsnISYQdPInDffgTu34cgIbzIzv69ZO8Ykq8n IelOHhLuiJEUUoekQBF8N4fg6uZbiN58DZk/vkLDVYb2h83QhXNgCtdwEOJw 5PYvJvoXE32hCXZOzQ7RECbFg4wBOMT99DV9sJX2stN2w1Kkp+dpZz01wZJZ D3NaNQYSRd9h5RNUJJSgKrkOVaktDD2Z6UV1mol1YoEqYwJt2Q505k/DWDSL AdE8zOWLGKtchr16BdO1rylCq5irX4O5YAQ1ZxPhDCvAv+SV42upCqvq11ht WsZy0xIWmxYwr3ZhVjWDadUUHEobxhusGK0bhkVG8ZLSKZcoII18gdqwCMRe uYirrJVrZOU6ayXo5AYzZOXOBjM3fb/AOY5hF8jKxV27GHvIzl4ys5/KdZCs nGIPOb1xVtePcNPrMK7v90Kg1353BAm33gfx9EIkp9yXyA/LRWlkOUppfcqi m5AeWIvzm6NwY/MDPPvxbeT/JBDNgTXoiuI89UgL42MqUi4dpcgKu9iKyTKr 29dMS4SwYLpiBFMS9k0JmSofwnhZP6wiZmAJmSkUmFHBki2FOaMcC0bT9Y+Z 2YLK+DJUJVG9kttYN92oTulHTYoZdWljUGfa0ZYzjc6CWRhL5jFYtoiRihWM V7+Go3YN07I1zNavY07xBnV3JRi8WYD3aRX4l6pqrGrWsSZc3kyzihXNChY1 S5jXLGC2iarX5IRD5cCEcgLWBgss9UOw1FEN5JweRVKyE43Yq5fhd/QYrvr4 wJ/MXGfNuNk5JbDDuiEz1w554yyZObdzJ87v3E2G9pKdfWTHizXjBf+9h3HL 6yQZIbNenyNgv/cmXPcSvnl74YcI/oIK5c9J8MtsFIcXkxElxNHNkNB/V0d1 ouB6I679OA53fxKDFz8NRckv7kJ5IA69z7rRH8c+kjlEl0lFltjJgp0ux84s mKmyCZ+xWT0BZ/U4pqvIWBUdaeUwxiQDbJ1kppSKVtRKdhRUwEp2/8LvsHIV lc/ZUxJUZIYKlmREdfIQapMtqH85AXXWJNrzZqAvmkOvaBGD5csYqVzFeM0a JmVv4Kx7i9mGt2h93oEmvzwsxlXi6zI51tVOrDa/xVrLG6y2rGOlZRWLLSuY b1nCbPM8pjXsSU1TGFfZMaq0wqJkzSjZXxTMo/pmqBKSyMoVXDlyDFeO+eCq r8CMLwLITOC3zBzHqW1bcWb7dpzZsQtnd+5x/zfj+V37cXG3N2vGmz3mAPz2 HsDVfQdxbf9B+HsxWB8B3gd4ewBPL91G5s1EpNxIRW5oIY1tBURkRRzdgYqo LtRGGVEf/QriG22I2VOE0F+8QPIvH6F8Sxg0x5IwmNCHocQeTFY4if4MZqqd NDtOuGqFEEzPFGalDnpNMlc7QY0ZxVjVMEYrqA/0/xYxXYBIw/qRYaSgBO/m 5gO+y04FEa2Kb9q4dE4fqpOGIU21oj7dzrl8Gu0FLuhLFtArXsag5DVGqtfY rd9gUv4Ozob3GKAlE1/MwUR4Jd4V1ON9Qydet7zHaut7rLW+w2rbW6y0rWOx bRXzrSuYbV3EdMscHM1OjDdNYlQ9Dot6hMF8UhnIEnOprg7qojxc+vwYLh/1 wRXWjZ+vL659YIjsBNEBnNi6lQztpIfaw9iHMzv34+wubzLkTYYO4hIV7fLe Q7iy/xB70SFcZde/6i3EQTy5fNftWJL8niH9Tg4Kw8QQRTZCFKWFOMqAyqg+ 1u4AFJGDaIoxc+gbwfODEkRsScPLHXGo2hON9tPpGE4d4DrzmKmlHkjn6X4Y 8nnM0wHNy11wyWfglE/Tdjpgl01grHYUo5zULJXMxgoer6SNdcTaKaVVHez/ PjvPqlH1XLNxTZpXZMiM2pRx1Gc4oM6dQXvhHPSlS+gtW8Fg5RpGat5gXPYO k/Xv4VR8hcoQObpvS/A6vQHva1VYaf0ar1t/RVa+wlo7WWp/h5X2N1hsp/IJ /+Hatoxp4X+mhBNfmqcw2myDpZmq1kwnoGE+qblbRT2Wx4YxPmLBRY7il8jQ ZTJ0hQxdJTv+rJ9z1CTfLdtwfNsunNi+ByfJzsmdXji9kyq36wDO7T6EC2Tm IlXt0v7DuMw+c8VbiEMoDsvDVM0S1I8bqWhJyA6hmj2UkJ12stMFcWQfKiMG IHswAGXEIDSPhtD+zIzO+Akk+9Ti8Z4cZHolo/bQM3ReysZoah9mZStkYgVz dStYqF9mLGGhYYE+dA4z9bP0odOwc1AYl49jlLObhXOb2/nU6Oh+6AYktVgZ HvoOO38HyRNOkrFkJ064xku/+6PKa1MmyM4U2ZlFW9EC9KJl9JavYrBqHSO1 b/kM7+Fo+Ap9xVOQXxNj+nkD1is09GAWLLeRnfavyQpD+yu81r7HsvYdFrVv MKddw0z7CqbaFmFvdWG8dRqWVo5DraMM7raF7GjYIRvrsTg+vPEB/Z8hLjIK F6hwF8nQJdbPFTJ0ml386JbtOLZ1N3y27YXv9v04vsMbJ3YewKldB3Ga7JzZ cxhn9x3GebJzgRF58R5a0vScaFcxLV1D8ulYpAVlIJ9juyi8gax0MowoY81U hQ1BHmGGMtoCzdNRaJ9boU+0w5gyifSzDYg9VIScI5mQ+yRAd/IFHPkWtyOa b1jjdEAlV7zGonIZc8pFelKqOScHe8M0xuup5hzhLHIzg/UjY/1IW8hSHVYs ZnyPnvJHlah8SnqekZ5YbiuBhiuV9GSSnjyXm55O8QqMEtJT/QYj0ncYq3vP p3qPnEtFGIqQYbmoCa8VPVhs/Yr0fMVi+Yq0MDreY4WxLFwLo2ODHuEckfYl 2NvnMKZ1wqIlPVpuV8tybzd6zk9T1+H968WNT7r/FGMWC55FReMcG9B5WoPj Xl449NkOfL5lN74gNUdIzdHt3ji64wB8dh7EcVJzgtScZOGEnr+HRg4fY2yY NsryJGW5P3cMKeezkHkrD8WhLJrwdojDDSiLeIXyMBOqHo5CHj2GxicTaH5u g5a0dKU6YHzJESLTiRw/FRJ8ypB3Mh/1Z9LQdSEJU8VjWFBSJBrXsaRaw6KK Uq6ilKso5Rwf7MoZjCso5Q0TsAgWSEGxaGA61mtJkwKmiqLvMPNfMaIdQ2UM m86T3zBTTWbkmdNQkZnW4kUPMxWrGOCRmaXrsNa9QVFIPZrvVGEmoxHLMg1c TTNYYJNZooyxUDaRkrf4T1jRvcWS7g0WdOtwdazB2fEak9ol2DrmMaabwajO AYuOxOhITAc32taG4Sb5728MwrKaaqTHJmHvJ9ux/7Pd8N6yFwe27sfBbd44 tP0ADu84iLhb2YgPzkVPyRIGuFMzc2iseh02lvgUW6P4TgNSA0qQE8ymH1oD 0cMOiB/2kItBSMItqI7k0T52oDFuCs2J0+hIdaIrw4neDBf6s2cxlDeLjngL Us5Uo/BCKZSXs9Fz9SVmxDYsqnl4avKhXueAsIpZNUVbTVlQURYaOZQ3Mu9U PDwVD09FK9pIEWtoxHBN6XdL5G8x3G6FJIpExHCOeUYFe8ESSfEQ0UgiWooX oBMvoYdOub/mNYZlq+goGIeIymWhcs1RuWZVZrjowebZ5RfYR5a0jI51LOuE WCMTrGwdt6l7DaduGQ7dIiY6yYSeJaInE3puVU8F03ECa2+Fva/rB+7t/RMf Hmb746gVT0Of0MMYokFhBqfZoeQWW3Jd0BUuoKd0GQMUWXPlOsZq3sIme49J VnLKZSmyQipQcLcYovts7g8oUmG9ZGIIkkgrqmMmURfrRGPCLJpTXOjImENX Nq1o1jz68+YxVDCH4UIXOlNGkXFZjuKrFWgMyEdvUCYm07uwpKE4a1j9HA5m NKx+jm32pnmMq5lkNDcWDc2NhmKloVg10Sg3qmGSigI+eluR+5WJTd9eAQN/ gqrH7PPPzZxeJiBjJxGuP9dcPIcO8SK6K5bwqnoZ2hInMvybOFe1YKqQHCgM mG4mxvTBLsFpta9iQUsl7Xi9CYsE/o/4ne2P8M8ypjuX4NAvYLzLBauBNBiY MQY2EgMrV2+AWduKhckJfOBhpJM8xNZzW1qmiJF8UEkSrJBROZRZM2jJn4eu mGkieo0ByTrMVW9pdN7DJv8KyrhXSLvThuKoGhTfFZEHDYNt/AFtb9gwyiPI wxMn5C/mqGYLaE5fhDZ7iTwswpizgP58jgXkeJgQjJRweMu2ISdAgdKgGqhv leAVq9D+TI6F5neYa36DGcIw1bwCOwe0sWYXVXeKDZLK1EqT2Upb3MIRoEmN Fbt1g4d8982fu+H/cC0b4UuTa2StdnrOUIolAknjkKY70JDrhKbIBa2I2SKZ R2/1AsQvHCh7NAtz2TymNBxuORJONhPplmW3qZptZzvTLmO+Y3kTq2GJU9U8 68DVuYgZEjHVRRk1sG10z2JUOB2lh76rh1JqGMAICRlqb/n9b7OFAlr5lGTE et7C7N5e4hikaZNQUjqa81mzxcvoFq+iv+INzNXvYJW+x0TdV4i/VI3cZwZ0 Vb1CyR127hCScU8P8f1+kmH2LP+XaExbxsdfPXlMuwLyQDkwlZIHkZNKt4Sh 8jnk326EOFgKxT0JWiPksMUpOUTTVrWsYarltft9BWNtcyxtGhYtD0vLw9LS 7LeRh2Y1lr/Hw4/+DQ+LjjWIQz1vFqx8JlxI2Iqal3bU5bCPFzrRJppBp2QW PdUulKcsIi/vV+jTfo1Rw2tW4oI7EyZbFtzG1tm+wD5Nq96xwNbA0M2TBNp3 /RycBhcmScBEzwysRuEULFawkRVsHMFIdz+GScSCc+oHG23iwzYrYuQeDp71 0gkOu+/XvpyEItuFZoLWUbKC7rI19FOchunPR2VvoUi1If6GBpXZfRhuMKDo VgVKg5sguqsnH68gCjOjLGrMvZbsuRPKJBc0afNoz6RlYVEIX31F8xgocWGI hz8snsK06h1mmt5hVvOWosYCC+/AYIoF/yIfxdftI3C2rmKSE5iNFsXqPnGb ha8jIToSoiMhWhLSqsaibRTfYeTv/g0jwm1T1qD7viTGhIp4q/saPbJsBxQF k9CUTkFbNg19lRPG2hnUskO2q17DrHRx4GOXanLBxtp0tM5hss2F6XYXnFpG B0M3C6d+FtNdM2TDCXsPjZ+Ro8i3J8ONYcRoxjAZeaXrxB9saNSHfZVFSj10 PDa6q9Z9thvpaCAdmoIFSucyDGWv0UfXNFTLkUm2joa0JRQlLqBJ8gqTHQ5I 2RJLb7FfBOtYIn3sG8Okw+pZ64UTiqRZNL2kT8magy7X80k4xuJZvCp1YpBU DAkvpLA7O5vWqUfrlOV1SOImMUg9/Nfhr/C1mdnYtgIHTckEZcDaSZ1yt0PS oScdeuoUj83cqr7+MRP/l8tw/bX7YXGkCeWx7OfJE6jOsEGeZ0djsQPNYgc6 KibRVTMFo2wa/Zx1hhROmFW0Ck1OjGmcmGhhQbcS7DYnN8Vgbkx2TsPRNQV7 9xRsPZMYMzpgFQjos8HcN4GR3nGYSES/oQ8up/PfEGFu97zhvupRN6qeej4i pYYaVZ89A3UBc7lkEV1lnI4qVzBQs0Jv8RpdohXUlr+HTvcr7mUdg+V2FN+g 2N/Ssj6MtFJDnAM9RNS84FrJTqhezqA5axbavBn3490l0+gTTaGfx22RzsKh FhozvUcz51sK0ignDEPbO0wNs1YMK+7TXe06NkNKwGjXLDWX+msgEQY2DAMb d6cejoG+/xci/sr9cEnogOeiDwnjKH9JMnJsqC+wQV1qQysPqKOKnruWnlvu wKsGZoVyEsOqSYwIL4doJmFtIdhtkxjXTjI7HJigSRpnhx7rsVOXuLFegQCb ++Q54dS5IVbEqx56veHRP3Rv4/uX/xO+/pRNm402lbKZRczymbwl8+gso3mq XMSrmkUMyZYwwrnYqljGuGqZRmYZk5pl5PvXoziwDSW3DCi9P4DSSM97tate 2CFPZs9Jn9p4vfhP0VHIPCtx0AjY0SumdNbPwUZ76tAssR0usSEsUYYX4eQU K0ixk458qpO/o3dhzMDex4K3MNcsPfzbHrMbfzPx/+rNOq5/5Jq+d90w/Hf3 vynSrSji3Om+lEKyDRJWQU0ewS+yQUXj3FJhQ0e1DXqpDT11NvQ12NDfaMOg mmBqCGqLDSNtBLiD0cnoYnTzMXZj4XzFIQI+yBDOpesn8L3GUeg6X+E/bHx4 0seoa3L63D9XPBpA5XMa/hQbpBw8FXlOurkZaMWz6KpwwVgzh37ZPEz18xhR zMPaOO9uWjY2reaUPhT4t7ACulAcwo4d4akiyfNx1LLK6196PvygmZXeXmhj 159gBY2jt2KCQwDtD9eZoB21a+bhaJ6n+gtyy6DUTlJmHfoZTND+Wd0nwArN zr7R8MzuhucYNiPw4/Mx/xSKLBsKognziwmUsImV8eeafEJcYkNjmQ3Nlb95 K4mhnjArCLOKcBHeAcI72E4YCe8Q4R0ivIOEd4DwvnKfDtpLYH8XRt43cBsd ehPW37z7w29p9hTZD2kIVinLnd/ak4qkCdQIFxvMnYSqaAotIg5UEicM1TPo lc5goG4WpoZZjDQyw9SzGGtik2+eRfZlFfIDO1F498OlvX8XYnJVwRFDmmZF Q+aY5+Efor3Yio5SC6maYhejSHDWsnKZMY1nKVvrDGxaho5CqmfHoohYhUQ2 fuhaQt2OuzvXEAXz/du3H6At2xiK63McyIsZR368DUXC5R1odKsoG3LKhpLQ NlVRPoRLPMgJLzO3i7B2E9YewmokrL2EtZewGgmrkbAaCGuX0bYJevcJoB09 ExgccWLtzXv88caJQUNqJ0Shr1AWM4Ly+HFI0ghktqBWdqqVg2o1CV3lJAxs Hb3yKU/rUE5TraYxop6mWk3T2liQ7adF7i0j8h8MIv+RCYXsu+IEMypTzRxh RqDIsUBVYKFrNqOzYnyjBXGdRs86Fq4zSp9ubZ/CWAfVr5MqaHBQDoSEZGH2 2txnZpvdMY6hnmFYzaNBH58H/2eYn/4aWU/GkZvIHE23oTTXhgqWfq2IR8TS VzIvmwheC8FrI3hagqcjeDqC10nwOgmejuB1UPzbCWAbAWzjbTN/7jU7/8vG 255VGaMoCR+GiCojZhUKKlNLlWko5vJUmTY+la7aDoPUDmOdnRJvx4DSQbAd VBk7m7odDcmvkHndgOyQfmRHDCGH/bHwhYnrmVD50oTarGHU55qgLjZzHbaK OgfVyvHtOiauM8x1zFo7RujhzNz2MLdq4paH3KU05D7fd4gqNdBrhYGGYuNU GMlGurmmfwVZuQsZFMosoaqZamKmWmU5D4epVkeRVLCCGymQ6iYeWrMNGoqj hh5ew6dsIlpq+hUVn7qRUa+bwOrbb364YeIbmUZFj4gUhaKUQiHJ2rj6EYVC XebRYi0J0bvfc8aMVVIoqMP9fJoBPs0gCSkK68bLW71IZ1qlR5uQFWtCfoIJ pSkmom6CNG8YrRScjo/W6f3eOgNcZ5BbHeAW+4nQK6NbbDbhlRug3l5KpsGM t2/ffwCocuOEaNfsN6iRupDKI8mkuhaQ21LuupzPVsk0qqG0SZlGMoIjZxrJ +WxSppKUANUyqul/RqfX/sy93I+hoDgVPB5HYYINxS83rvPDZeuIeSMx1xDz NmLewYPQ8yAMXLaby/ZwSSMPwkis8yJ7kRTcj+SHJqTQd6fHmZjtJogyzGhg lqslBJYNrp3r6IR1Gj3r9HxvnR5mdLcgEQSjW1DbXrdUQGsYxZu3X304e616 482bM66vYehfQ5VqDil8mkyikEcUCoh5MYuphNstJhLFxL2IYZ5aw9L6N3/h /vO/QV3BFBN8AnlJNhSyWEQslqqNC5E0kD4Vd6vhblu5TDt3q+VuO7hbHXer I3VaUifKMeH5l4N4EW5CwmMeeaIZEmZsDdGrI3pKHrWa22nmOm2NnnU6Nmr7 wzodXEfbTeq1PQL17fw+YHFh9c1XH86Fl7tvfg+64TV0jayh2+oJ18o39HYe qz3n/BrpLP1MJnWOkOTksIygVBEUKeW5nsZCwdRQEQg1k7CJadHEdFCzZlQb 9VIpsyLphRlpL8aQQ0QKNq67UVHmqT35h9pTbtRey0bt8Ug0nUJ5N3UJh9Bk 8Kxnn137cKaz1X3zP0nxKpIo56kUwWyCXUiQRARJQpCqyFkNQarl0rVcupZL 17b/JmutzjX3KsauVaRQ4dJ4mNkEu1DkqQDh4g9VH1WAnEIqbyWhXEPGNWQ8 VJkA+pALK2++QbBna+Mbb6CZmfsGhgGmk5rpJHzWFY9Y+GzRPCKXzyULuDVV 7xyGJ9ewuP7N77n/7I8wyz/r5p8lcicvuZNspk4+AS/inxXzz0q4k1IeUSl3 09w/587CEM8zew7n30NnWoNB4HV0DT1jazCOk9vX34R6fstt3AJ/e/+39397 /7f3///cx7/7P2Yb7jY=\ \>"]] }, Open ]], Cell[CellGroupData[{ Cell[BoxData[{ RowBox[{"Show", "[", RowBox[{"Plot1o", ",", "Plot2", ",", "Plot9", ",", RowBox[{"(*", RowBox[{"Plot9a", ",", "Plot9b", ","}], "*)"}], RowBox[{"{", RowBox[{ RowBox[{"Axes", "\[Rule]", "Automatic"}], ",", RowBox[{"AxesLabel", "\[Rule]", RowBox[{"{", RowBox[{"xl", ",", "yl", ",", "zl"}], "}"}]}], ",", RowBox[{"AspectRatio", "\[Rule]", "Automatic"}], ",", RowBox[{"Boxed", "\[Rule]", "True"}], ",", " ", RowBox[{"SphericalRegion", "\[Rule]", "True"}]}], "}"}]}], "]"}], "\[IndentingNewLine]", RowBox[{"Show", "[", RowBox[{ "Plot1o", ",", "Plot2", ",", "Plot7", ",", "Plot8", ",", "Plot9", ",", RowBox[{"{", RowBox[{ RowBox[{"Axes", "\[Rule]", "Automatic"}], ",", RowBox[{"AxesLabel", "\[Rule]", RowBox[{"{", RowBox[{"xl", ",", "yl", ",", "zl"}], "}"}]}], ",", RowBox[{"AspectRatio", "\[Rule]", "Automatic"}], ",", RowBox[{"Boxed", "\[Rule]", "True"}], ",", " ", RowBox[{"SphericalRegion", "\[Rule]", "True"}]}], "}"}]}], "]"}], "\[IndentingNewLine]", RowBox[{"Show", "[", RowBox[{ "Plot1o", ",", "Plot2", ",", "Plot8a", ",", "Plot8b", ",", "Plot9", ",", RowBox[{"{", RowBox[{ RowBox[{"Axes", "\[Rule]", "Automatic"}], ",", RowBox[{"AxesLabel", "\[Rule]", RowBox[{"{", RowBox[{"xl", ",", "yl", ",", "zl"}], "}"}]}], ",", RowBox[{"AspectRatio", "\[Rule]", "Automatic"}], ",", RowBox[{"Boxed", "\[Rule]", "True"}], ",", " ", RowBox[{"SphericalRegion", "\[Rule]", "True"}]}], "}"}]}], "]"}], "\[IndentingNewLine]", RowBox[{"Show", "[", RowBox[{"Plot1o", ",", "Plot2", ",", RowBox[{"(*", RowBox[{"Plot8c", ","}], "*)"}], "Plot8d", ",", "Plot8e", ",", "Plot9", ",", "Plot8f", ",", "Plot8g", ",", "Plot8h", ",", RowBox[{"{", RowBox[{ RowBox[{"Axes", "\[Rule]", "Automatic"}], ",", RowBox[{"AxesLabel", "\[Rule]", RowBox[{"{", RowBox[{"xl", ",", "yl", ",", "zl"}], "}"}]}], ",", RowBox[{"AspectRatio", "\[Rule]", "Automatic"}], ",", RowBox[{"Boxed", "\[Rule]", "True"}], ",", " ", RowBox[{"SphericalRegion", "\[Rule]", "True"}]}], "}"}]}], "]"}]}], "Input", CellChangeTimes->{{3.5681365021632137`*^9, 3.5681365171392403`*^9}, { 3.568136560351316*^9, 3.5681365863097615`*^9}, {3.5681369135895367`*^9, 3.5681369265999594`*^9}, {3.568137821916732*^9, 3.5681378378443604`*^9}, { 3.5682072492149415`*^9, 3.5682072529901485`*^9}, 3.568209802830227*^9, { 3.5682216503836985`*^9, 3.5682217583046885`*^9}, {3.5682217912831464`*^9, 3.568221843465238*^9}, {3.5682219760654707`*^9, 3.5682221133457117`*^9}, { 3.568222159615393*^9, 3.5682221693498106`*^9}, {3.5682222565227633`*^9, 3.5682222578487663`*^9}, 3.5682224736283445`*^9, 3.5682227227607822`*^9, 3.5682227558640404`*^9, {3.568222818810151*^9, 3.5682228486062036`*^9}, { 3.5682230057764797`*^9, 3.5682230079916835`*^9}, {3.568223041952943*^9, 3.5682230548229656`*^9}, 3.5682232619601297`*^9, 3.5682233000709963`*^9, { 3.568223536645412*^9, 3.5682235381118145`*^9}, {3.568223591151908*^9, 3.568223591526308*^9}, {3.5682236491528096`*^9, 3.568223657483224*^9}, { 3.568223713222122*^9, 3.5682237532361927`*^9}, {3.568223800379475*^9, 3.568223827648323*^9}, {3.5682238887380304`*^9, 3.5682238893152313`*^9}, { 3.5682240287170763`*^9, 3.5682240612431335`*^9}, 3.5682241088076167`*^9, { 3.568224198772975*^9, 3.5682242396450467`*^9}, {3.568224282170721*^9, 3.5682243185031853`*^9}, {3.568224437890195*^9, 3.568224439590598*^9}, { 3.568224572253231*^9, 3.5682245867144566`*^9}, {3.5682247081762695`*^9, 3.568224733557514*^9}, {3.56822480520844*^9, 3.5682248433505073`*^9}, { 3.568224884206979*^9, 3.5682248959069996`*^9}, {3.568224982830352*^9, 3.5682250047639904`*^9}, {3.56822503870965*^9, 3.5682250803305235`*^9}, { 3.5682251223413973`*^9, 3.568225141451431*^9}, {3.568225234177994*^9, 3.5682252929588966`*^9}, {3.5682253775890455`*^9, 3.568225482140429*^9}, { 3.56822551694409*^9, 3.5682255297205124`*^9}, {3.568225573197789*^9, 3.5682255809666023`*^9}, 3.568225660698343*^9, 3.5682257301964645`*^9, { 3.568225765078126*^9, 3.5682257828933573`*^9}, {3.568225927026843*^9, 3.568225927416844*^9}, {3.568267062420238*^9, 3.568267081358671*^9}, { 3.568267188328059*^9, 3.5682672830358257`*^9}, {3.5682676367040462`*^9, 3.568267747979042*^9}, 3.5682678404716043`*^9, 3.568267882030078*^9, { 3.5682679252577534`*^9, 3.568267996612279*^9}, {3.5682680488879704`*^9, 3.568268061133992*^9}, {3.568268100914062*^9, 3.5682681150944867`*^9}, { 3.5682681672609787`*^9, 3.5682681709113846`*^9}, {3.568268272904364*^9, 3.5682683182536435`*^9}, {3.5682685202739983`*^9, 3.568268599194537*^9}, { 3.5682686348873997`*^9, 3.568268637773405*^9}, {3.5682686944951043`*^9, 3.568268872273017*^9}, {3.5682689420207396`*^9, 3.568269016947671*^9}, { 3.5682695040741262`*^9, 3.568269601153097*^9}, {3.5682696652380095`*^9, 3.5682696728352227`*^9}, {3.5682697489633565`*^9, 3.5682698308635006`*^9}, {3.568271156491429*^9, 3.568271160063835*^9}, { 3.568271244927984*^9, 3.568271369010602*^9}, {3.5682716250070515`*^9, 3.5682717312276382`*^9}, {3.5682717843301315`*^9, 3.5682718576814604`*^9}, {3.568271940673606*^9, 3.5682720536490045`*^9}, { 3.5682722259669075`*^9, 3.5682723223126764`*^9}, {3.568272370813162*^9, 3.568272411466833*^9}, {3.5682725893539457`*^9, 3.568272622238803*^9}, { 3.5682726936713285`*^9, 3.5682726960113325`*^9}, {3.568272741079812*^9, 3.56827275143823*^9}, {3.5682729218373294`*^9, 3.568272991070251*^9}, { 3.5682734285574193`*^9, 3.5682734302890224`*^9}, {3.5682734898811274`*^9, 3.5682735111595645`*^9}, {3.5682736115925407`*^9, 3.5682736313577757`*^9}, {3.5682738601945777`*^9, 3.568273987272401*^9}, { 3.5682763944346285`*^9, 3.5682764313910933`*^9}, 3.5682765128232365`*^9, { 3.5682766527398825`*^9, 3.568276660976697*^9}, {3.5682774496048822`*^9, 3.568277461663703*^9}, {3.5683784032731285`*^9, 3.568378422991563*^9}, { 3.568378459308427*^9, 3.5683784812420654`*^9}, {3.568378513440522*^9, 3.568378867046343*^9}, {3.568378915468828*^9, 3.56837896203491*^9}, { 3.5683790764299107`*^9, 3.568379270041851*^9}, {3.568380233530743*^9, 3.568380234388745*^9}, 3.5683804214954734`*^9, 3.568380471867962*^9, 3.5683805399464817`*^9, {3.5683812396077104`*^9, 3.568381293537005*^9}, { 3.568381339541486*^9, 3.568381420224828*^9}, {3.5684645223056345`*^9, 3.5684645572340956`*^9}, {3.5684651558539467`*^9, 3.5684651618911576`*^9}, {3.5688209923798466`*^9, 3.568820997683856*^9}, { 3.568821158754139*^9, 3.568821160750942*^9}, 3.56882222404881*^9, { 3.568822649274357*^9, 3.5688226508031597`*^9}, 3.568822723109287*^9, { 3.5693397221142225`*^9, 3.5693397223326235`*^9}, {3.5693899272912874`*^9, 3.5693899274472876`*^9}, {3.5693910617720795`*^9, 3.5693910848757205`*^9}, 3.5693911374166126`*^9, {3.569391214402748*^9, 3.5693912147147484`*^9}, 3.569391451944365*^9, {3.569391487793228*^9, 3.569391507620863*^9}, { 3.5693923162258854`*^9, 3.5693923173958874`*^9}, {3.569406068526634*^9, 3.569406086092265*^9}, 3.569690172138941*^9, 3.569780036185542*^9, { 3.570453906913044*^9, 3.5704539079894457`*^9}, {3.570454575670618*^9, 3.5704545899602437`*^9}, {3.570454765008151*^9, 3.570454772277764*^9}, 3.5708553779481487`*^9, {3.5709431726830034`*^9, 3.570943174555007*^9}, { 3.5709495710522423`*^9, 3.5709495907082767`*^9}, {3.570949647617176*^9, 3.570949673138821*^9}, {3.570950759321929*^9, 3.5709507772775607`*^9}, { 3.5709508127364225`*^9, 3.5709508405200715`*^9}, {3.570991123104905*^9, 3.570991124259307*^9}, {3.5709912161278687`*^9, 3.570991227937089*^9}, { 3.5709912804155817`*^9, 3.570991308776431*^9}, {3.5709914026885962`*^9, 3.5709914215490294`*^9}, {3.570991574429298*^9, 3.5709916038821497`*^9}, 3.570991652445035*^9, 3.570991830004547*^9, 3.570991865276209*^9, { 3.5709919181759014`*^9, 3.5709919260539155`*^9}, {3.570992027251293*^9, 3.570992050058533*^9}, 3.5709920901350036`*^9, 3.570992186979974*^9, { 3.57122255431676*^9, 3.5712225562355638`*^9}, 3.571223175338251*^9, { 3.5713153738729277`*^9, 3.571315375682531*^9}, 3.5713224026962075`*^9, { 3.5713224627875133`*^9, 3.5713224654863176`*^9}, {3.5713224965147724`*^9, 3.571322572268505*^9}, {3.5713226259637995`*^9, 3.5713226549330506`*^9}, { 3.5713308245340652`*^9, 3.571330884469371*^9}, {3.5713309160126257`*^9, 3.5713309422674723`*^9}, 3.571331071326499*^9, {3.5713311246629925`*^9, 3.5713311332274075`*^9}, {3.571331300334901*^9, 3.5713313470881834`*^9}, 3.5713314298931284`*^9, 3.571331594130217*^9, {3.571331632849485*^9, 3.5713316334578857`*^9}, {3.5713316704299507`*^9, 3.5713316709447517`*^9}, {3.571331783327349*^9, 3.571331790019761*^9}, { 3.5713319475956383`*^9, 3.571331948360039*^9}, {3.5713326567416835`*^9, 3.571332681717327*^9}, {3.571332736801024*^9, 3.571332753305853*^9}, { 3.571332796221528*^9, 3.5713328475768185`*^9}, {3.571332914344936*^9, 3.571332924672154*^9}, {3.5713330072586994`*^9, 3.5713330320471425`*^9}, { 3.5713330798612266`*^9, 3.5713330883320417`*^9}, {3.5713331731961904`*^9, 3.571333178266199*^9}, {3.571333407851803*^9, 3.571333426837036*^9}, { 3.571333542292839*^9, 3.571333557705666*^9}, {3.5713336117441607`*^9, 3.5713337055939255`*^9}, {3.5713337750608473`*^9, 3.571333798070888*^9}, { 3.5713366694988756`*^9, 3.5713366834765005`*^9}, {3.5713369716090064`*^9, 3.57133697359021*^9}, {3.57138272164856*^9, 3.571382756233821*^9}, { 3.57138283537276*^9, 3.571382866900415*^9}, {3.5713829070080853`*^9, 3.5713829086616883`*^9}, {3.571382939175342*^9, 3.5713830233374896`*^9}, { 3.5713831045200324`*^9, 3.571383106126835*^9}, {3.571383198260597*^9, 3.5713832448422785`*^9}, 3.5716785972796593`*^9, 3.5718167268987517`*^9, { 3.571838452469782*^9, 3.5718386879053955`*^9}, 3.571838766139532*^9, { 3.571838857446493*^9, 3.5718388645757055`*^9}, 3.5723437133735733`*^9, 3.5723437554312468`*^9, {3.5723449027196617`*^9, 3.572344929582909*^9}, 3.5723450406551046`*^9, {3.57234950163894*^9, 3.5723495196413713`*^9}, { 3.572584520172369*^9, 3.5725845258195786`*^9}, {3.5726224003989472`*^9, 3.57262241340937*^9}, 3.572796748424938*^9, 3.5727968708695536`*^9, { 3.572796971801731*^9, 3.572796995841373*^9}, {3.57279741546651*^9, 3.5727974308793373`*^9}, {3.572842795856916*^9, 3.5728428061217337`*^9}, { 3.5728522627179437`*^9, 3.572852288426789*^9}, {3.5728523495164957`*^9, 3.572852453865079*^9}, {3.5728524960787535`*^9, 3.572852515110787*^9}, { 3.572852550008048*^9, 3.572852634669397*^9}, {3.5728602362372026`*^9, 3.5728602649256525`*^9}, 3.572860311756935*^9, 3.5731241886618786`*^9, 3.5731408095114717`*^9, 3.5731408826443996`*^9, {3.573211072949067*^9, 3.5732110779254756`*^9}, {3.5732129727516036`*^9, 3.573212981300419*^9}, { 3.5732130120948725`*^9, 3.57321301629128*^9}, {3.573213384015126*^9, 3.573213388164733*^9}, {3.573220427063021*^9, 3.57322044338065*^9}, { 3.5733208085662665`*^9, 3.5733208285343018`*^9}, {3.57332089027921*^9, 3.5733208917144127`*^9}, {3.5733209483737125`*^9, 3.5733209652997417`*^9}, {3.5733210904587617`*^9, 3.5733211330312366`*^9}, {3.5746581574587035`*^9, 3.5746581598923078`*^9}, {3.5746632559372582`*^9, 3.5746632963569293`*^9}, 3.574669479281269*^9, {3.5746708530664816`*^9, 3.5746708831121345`*^9}, { 3.5746734822639*^9, 3.5746735338531904`*^9}, 3.5747441301394944`*^9, { 3.574950644335537*^9, 3.5749506488751445`*^9}, {3.575001627819734*^9, 3.5750016487549706`*^9}, {3.57534426719551*^9, 3.575344278926731*^9}, { 3.5753450565880966`*^9, 3.575345065324112*^9}, 3.5753451320610294`*^9, { 3.575345171575898*^9, 3.575345181091915*^9}, {3.5753713803366737`*^9, 3.5753713843458815`*^9}, {3.5753717979962077`*^9, 3.575371802036615*^9}, { 3.5753718416450844`*^9, 3.5753718456074915`*^9}, {3.5762957927843523`*^9, 3.5762958073859777`*^9}, 3.5763800020834436`*^9}], Cell[BoxData[ Graphics3DBox[{ {RGBColor[0.4, 0.2666666666666667, 0.13333333333333336`], Opacity[0.8], SphereBox[{-1.3767138399951948`, 9.136492442760169, -0.011319882653069602`}, 0.255]}, {RGBColor[0.4, 0.2666666666666667, 0.13333333333333336`], Opacity[0.8], SphereBox[{0.473882316936199, 6.971834316791755, 0.0004138948773504403}, 0.255]}, {RGBColor[0.4, 0.2666666666666667, 0.13333333333333336`], Opacity[0.8], SphereBox[{1.4237888928831852`, 2.4662159947976874`, 0.00013321484173245413`}, 0.255]}, {RGBColor[0.4, 0.2666666666666667, 0.13333333333333336`], Opacity[0.8], SphereBox[{0, 0, 0}, 0.255]}, {RGBColor[ NCache[ Rational[1, 3], 0.3333333333333333], NCache[ Rational[1, 3], 0.3333333333333333], 1], Opacity[0.8], SphereBox[{-0.37512028472777914`, 4.570605187795081, 0.0002255030110518419}, 0.24]}, {RGBColor[ NCache[ Rational[1, 3], 0.3333333333333333], NCache[ Rational[1, 3], 0.3333333333333333], 1], Opacity[0.8], SphereBox[{0.03463532179801909, 11.536269141880382`, -0.06288512934630486}, 0.24]}, {RGBColor[1, NCache[ Rational[1, 3], 0.3333333333333333], NCache[ Rational[1, 3], 0.3333333333333333]], Opacity[0.8], SphereBox[{2.727290054608442, 7.390531260134222, 0.0002804910126465998}, 0.178]}, {RGBColor[1, NCache[ Rational[1, 3], 0.3333333333333333], NCache[ Rational[1, 3], 0.3333333333333333]], Opacity[0.8], SphereBox[{-2.2832742569128253`, 0, 0}, 0.178]}, {RGBColor[1, NCache[ Rational[1, 3], 0.3333333333333333], NCache[ Rational[1, 3], 0.3333333333333333]], Opacity[0.8], SphereBox[{1.268100398919057, -2.196638994879232, 0}, 0.178]}, {RGBColor[1, 1, 1], Opacity[0.8], SphereBox[{-2.5623900210132162`, 9.035084825337556, 1.6699560186170959`}, 0.12]}, {RGBColor[1, 1, 1], Opacity[0.8], SphereBox[{-2.559361148898179, 9.019447040476722, -1.6935183538918448`}, 0.12]}, {RGBColor[1, 1, 1], Opacity[0.8], SphereBox[{-2.177290252557225, 4.235570185005809, 0.000388702763330917}, 0.12]}, {RGBColor[1, 1, 1], Opacity[0.8], SphereBox[{2.6079918797775323`, 2.5754100297558193`, 1.681870261262245}, 0.12]}, {RGBColor[1, 1, 1], Opacity[0.8], SphereBox[{2.60807719544219, 2.575506999780597, -1.681642477037567}, 0.12]}, {RGBColor[1, 1, 1], Opacity[0.8], SphereBox[{1.2127996638427367`, 11.642049687312937`, 1.4557099657339077`}, 0.12]}, {RGBColor[1, 1, 1], Opacity[0.8], SphereBox[{-1.1885065866440119`, 13.022373661088087`, -0.02925378145732971}, 0.12]}, {RGBColor[1, 1, 1], Opacity[0.8], SphereBox[{1.089414647789555, 11.621232035852536`, -1.68930758680601}, 0.12]}, Text3DBox["1", {-1.976713839995195, 9.136492442760169, -0.011319882653069602`}, {1, 0}], Text3DBox["2", {-0.126117683063801, 6.971834316791755, 0.0004138948773504403}, {1, 0}], Text3DBox["3", {0.8237888928831852, 2.4662159947976874`, 0.00013321484173245413`}, {1, 0}], Text3DBox["4", {-0.6, 0, 0}, {1, 0}], Text3DBox["5", {-0.9751202847277791, 4.570605187795081, 0.0002255030110518419}, {1, 0}], Text3DBox["6", {-0.5653646782019809, 11.536269141880382`, -0.06288512934630486}, {1, 0}], Text3DBox["7", {2.127290054608442, 7.390531260134222, 0.0002804910126465998}, {1, 0}], Text3DBox["8", {-2.8832742569128254`, 0, 0}, {1, 0}], Text3DBox["9", {0.6681003989190569, -2.196638994879232, 0}, {1, 0}], Text3DBox["10", {-3.1623900210132163`, 9.035084825337556, 1.6699560186170959`}, {1, 0}], Text3DBox["11", {-3.159361148898179, 9.019447040476722, -1.6935183538918448`}, {1, 0}], Text3DBox["12", {-2.777290252557225, 4.235570185005809, 0.000388702763330917}, {1, 0}], Text3DBox["13", {2.0079918797775322`, 2.5754100297558193`, 1.681870261262245}, {1, 0}], Text3DBox["14", {2.00807719544219, 2.575506999780597, -1.681642477037567}, {1, 0}], Text3DBox["15", {0.6127996638427368, 11.642049687312937`, 1.4557099657339077`}, {1, 0}], Text3DBox["16", {-1.788506586644012, 13.022373661088087`, -0.02925378145732971}, {1, 0}], Text3DBox["17", {0.489414647789555, 11.621232035852536`, -1.68930758680601}, {1, 0}], {RGBColor[1., 0.75, 0.5], TubeBox[{{0.473882316936199, 6.971834316791755, 0.0004138948773504403}, {-1.3767138399951948`, 9.136492442760169, -0.011319882653069602`}}, 0.1]}, {RGBColor[1., 0.75, 0.5], TubeBox[{{0, 0, 0}, {1.4237888928831852`, 2.4662159947976874`, 0.00013321484173245413`}}, 0.1]}, {RGBColor[1., 0.75, 0.5], TubeBox[{{-0.37512028472777914`, 4.570605187795081, 0.0002255030110518419}, {0.473882316936199, 6.971834316791755, 0.0004138948773504403}}, 0.1]}, {RGBColor[1., 0.75, 0.5], TubeBox[{{-0.37512028472777914`, 4.570605187795081, 0.0002255030110518419}, {1.4237888928831852`, 2.4662159947976874`, 0.00013321484173245413`}}, 0.1]}, {RGBColor[1., 0.75, 0.5], TubeBox[{{0.03463532179801909, 11.536269141880382`, -0.06288512934630486}, {-1.3767138399951948`, 9.136492442760169, -0.011319882653069602`}}, 0.1]}, {RGBColor[1., 0.75, 0.5], TubeBox[{{2.727290054608442, 7.390531260134222, 0.0002804910126465998}, { 0.473882316936199, 6.971834316791755, 0.0004138948773504403}}, 0.1]}, {RGBColor[1., 0.75, 0.5], TubeBox[{{-2.2832742569128253`, 0, 0}, {0, 0, 0}}, 0.1]}, {RGBColor[1., 0.75, 0.5], TubeBox[{{1.268100398919057, -2.196638994879232, 0}, {0, 0, 0}}, 0.1]}, {RGBColor[1., 0.75, 0.5], TubeBox[{{-2.5623900210132162`, 9.035084825337556, 1.6699560186170959`}, {-1.3767138399951948`, 9.136492442760169, -0.011319882653069602`}}, 0.1]}, {RGBColor[1., 0.75, 0.5], TubeBox[{{-2.559361148898179, 9.019447040476722, -1.6935183538918448`}, {-1.3767138399951948`, 9.136492442760169, -0.011319882653069602`}}, 0.1]}, {RGBColor[1., 0.75, 0.5], TubeBox[{{-2.177290252557225, 4.235570185005809, 0.000388702763330917}, {-0.37512028472777914`, 4.570605187795081, 0.0002255030110518419}}, 0.1]}, {RGBColor[1., 0.75, 0.5], TubeBox[{{2.6079918797775323`, 2.5754100297558193`, 1.681870261262245}, { 1.4237888928831852`, 2.4662159947976874`, 0.00013321484173245413`}}, 0.1]}, {RGBColor[1., 0.75, 0.5], TubeBox[{{2.60807719544219, 2.575506999780597, -1.681642477037567}, { 1.4237888928831852`, 2.4662159947976874`, 0.00013321484173245413`}}, 0.1]}, {RGBColor[1., 0.75, 0.5], TubeBox[{{1.2127996638427367`, 11.642049687312937`, 1.4557099657339077`}, {0.03463532179801909, 11.536269141880382`, -0.06288512934630486}}, 0.1]}, {RGBColor[1., 0.75, 0.5], TubeBox[{{-1.1885065866440119`, 13.022373661088087`, -0.02925378145732971}, {0.03463532179801909, 11.536269141880382`, -0.06288512934630486}}, 0.1]}, {RGBColor[1., 0.75, 0.5], TubeBox[{{1.089414647789555, 11.621232035852536`, -1.68930758680601}, { 0.03463532179801909, 11.536269141880382`, -0.06288512934630486}}, 0.1]}}, AspectRatio->Automatic, Axes->Automatic, AxesLabel->{ FormBox["xl", TraditionalForm], FormBox["yl", TraditionalForm], FormBox["zl", TraditionalForm]}, Boxed->True, SphericalRegion->True]], "Output", CellChangeTimes->{3.576388759505222*^9}], Cell[BoxData[ Graphics3DBox[{ {RGBColor[0.4, 0.2666666666666667, 0.13333333333333336`], Opacity[0.8], SphereBox[{-1.3767138399951948`, 9.136492442760169, -0.011319882653069602`}, 0.255]}, {RGBColor[0.4, 0.2666666666666667, 0.13333333333333336`], Opacity[0.8], SphereBox[{0.473882316936199, 6.971834316791755, 0.0004138948773504403}, 0.255]}, {RGBColor[0.4, 0.2666666666666667, 0.13333333333333336`], Opacity[0.8], SphereBox[{1.4237888928831852`, 2.4662159947976874`, 0.00013321484173245413`}, 0.255]}, {RGBColor[0.4, 0.2666666666666667, 0.13333333333333336`], Opacity[0.8], SphereBox[{0, 0, 0}, 0.255]}, {RGBColor[ NCache[ Rational[1, 3], 0.3333333333333333], NCache[ Rational[1, 3], 0.3333333333333333], 1], Opacity[0.8], SphereBox[{-0.37512028472777914`, 4.570605187795081, 0.0002255030110518419}, 0.24]}, {RGBColor[ NCache[ Rational[1, 3], 0.3333333333333333], NCache[ Rational[1, 3], 0.3333333333333333], 1], Opacity[0.8], SphereBox[{0.03463532179801909, 11.536269141880382`, -0.06288512934630486}, 0.24]}, {RGBColor[1, NCache[ Rational[1, 3], 0.3333333333333333], NCache[ Rational[1, 3], 0.3333333333333333]], Opacity[0.8], SphereBox[{2.727290054608442, 7.390531260134222, 0.0002804910126465998}, 0.178]}, {RGBColor[1, NCache[ Rational[1, 3], 0.3333333333333333], NCache[ Rational[1, 3], 0.3333333333333333]], Opacity[0.8], SphereBox[{-2.2832742569128253`, 0, 0}, 0.178]}, {RGBColor[1, NCache[ Rational[1, 3], 0.3333333333333333], NCache[ Rational[1, 3], 0.3333333333333333]], Opacity[0.8], SphereBox[{1.268100398919057, -2.196638994879232, 0}, 0.178]}, {RGBColor[1, 1, 1], Opacity[0.8], SphereBox[{-2.5623900210132162`, 9.035084825337556, 1.6699560186170959`}, 0.12]}, {RGBColor[1, 1, 1], Opacity[0.8], SphereBox[{-2.559361148898179, 9.019447040476722, -1.6935183538918448`}, 0.12]}, {RGBColor[1, 1, 1], Opacity[0.8], SphereBox[{-2.177290252557225, 4.235570185005809, 0.000388702763330917}, 0.12]}, {RGBColor[1, 1, 1], Opacity[0.8], SphereBox[{2.6079918797775323`, 2.5754100297558193`, 1.681870261262245}, 0.12]}, {RGBColor[1, 1, 1], Opacity[0.8], SphereBox[{2.60807719544219, 2.575506999780597, -1.681642477037567}, 0.12]}, {RGBColor[1, 1, 1], Opacity[0.8], SphereBox[{1.2127996638427367`, 11.642049687312937`, 1.4557099657339077`}, 0.12]}, {RGBColor[1, 1, 1], Opacity[0.8], SphereBox[{-1.1885065866440119`, 13.022373661088087`, -0.02925378145732971}, 0.12]}, {RGBColor[1, 1, 1], Opacity[0.8], SphereBox[{1.089414647789555, 11.621232035852536`, -1.68930758680601}, 0.12]}, Text3DBox["1", {-1.976713839995195, 9.136492442760169, -0.011319882653069602`}, {1, 0}], Text3DBox["2", {-0.126117683063801, 6.971834316791755, 0.0004138948773504403}, {1, 0}], Text3DBox["3", {0.8237888928831852, 2.4662159947976874`, 0.00013321484173245413`}, {1, 0}], Text3DBox["4", {-0.6, 0, 0}, {1, 0}], Text3DBox["5", {-0.9751202847277791, 4.570605187795081, 0.0002255030110518419}, {1, 0}], Text3DBox["6", {-0.5653646782019809, 11.536269141880382`, -0.06288512934630486}, {1, 0}], Text3DBox["7", {2.127290054608442, 7.390531260134222, 0.0002804910126465998}, {1, 0}], Text3DBox["8", {-2.8832742569128254`, 0, 0}, {1, 0}], Text3DBox["9", {0.6681003989190569, -2.196638994879232, 0}, {1, 0}], Text3DBox["10", {-3.1623900210132163`, 9.035084825337556, 1.6699560186170959`}, {1, 0}], Text3DBox["11", {-3.159361148898179, 9.019447040476722, -1.6935183538918448`}, {1, 0}], Text3DBox["12", {-2.777290252557225, 4.235570185005809, 0.000388702763330917}, {1, 0}], Text3DBox["13", {2.0079918797775322`, 2.5754100297558193`, 1.681870261262245}, {1, 0}], Text3DBox["14", {2.00807719544219, 2.575506999780597, -1.681642477037567}, {1, 0}], Text3DBox["15", {0.6127996638427368, 11.642049687312937`, 1.4557099657339077`}, {1, 0}], Text3DBox["16", {-1.788506586644012, 13.022373661088087`, -0.02925378145732971}, {1, 0}], Text3DBox["17", {0.489414647789555, 11.621232035852536`, -1.68930758680601}, {1, 0}], {RGBColor[0.36, 0.24, 0.12], Opacity[0.5], SphereBox[{-0.4514157615294978, 8.05416337977596, -0.00545299388785958}, 1.1667547587533689`]}, {RGBColor[0.36, 0.24, 0.12], Opacity[0.5], SphereBox[{0.7118944464415925, 1.2331079973988435`, 0.00006660742086622705}, 1.1666500765740462`]}, {RGBColor[0.36, 0.24, 0.12], Opacity[0.5], SphereBox[{0.04405079344347956, 5.756144314489225, 0.00031851617916264297`}, 1.0322407040975143`]}, {RGBColor[0.36, 0.24, 0.12], Opacity[0.5], SphereBox[{0.5139443174061085, 3.530564943466697, 0.00017989195655348597`}, 1.1430342083511027`]}, {RGBColor[0.36, 0.24, 0.12], Opacity[0.5], SphereBox[{-0.6629346100044611, 10.35016147011224, -0.0373986185714124}, 1.1510447932042867`]}, {RGBColor[0.36, 0.24, 0.12], Opacity[0.5], SphereBox[{1.6392248658883803`, 7.188362091608584, 0.00034490549867073633`}, 0.928087955909884]}, {RGBColor[0.36, 0.24, 0.12], Opacity[0.5], SphereBox[{-1.1809371284564125`, 0., 0.}, 0.9237371284564129]}, {RGBColor[0.36, 0.24, 0.12], Opacity[0.5], SphereBox[{0.6536986920326565, -1.1323551660771456`, 0.}, 1.0502976872280907`]}, {Opacity[0.5], SphereBox[{-2.222771146484287, 9.064131492082735, 1.1883801562499108`}, 1.2126058567002422`]}, {Opacity[0.5], SphereBox[{-2.2205837299854645`, 9.052975497340135, -1.211641084231616}, 1.212447052309992]}, {Opacity[0.5], SphereBox[{-1.6325241777122277`, 4.336845706551104, 0.0003393701864642485}, 1.0537280279235877`]}, {Opacity[0.5], SphereBox[{2.2687829617618083`, 2.5441319542384977`, 1.2001452443381346`}, 1.2125328818910286`]}, {Opacity[0.5], SphereBox[{2.2688579609867188`, 2.5442024509109817`, -1.1999264443009414`}, 1.2126186291866472`]}, {Opacity[0.5], SphereBox[{0.8736612721324476, 11.61160041740041, 1.018577487839674}, 1.145619428516999]}, {Opacity[0.5], SphereBox[{-0.8364365567264902, 12.594612287753689`, -0.03893425236239414}, 1.1457030746039425`]}, {Opacity[0.5], SphereBox[{0.7882072414971728, 11.596969659548952`, -1.2248592629951476`}, 1.161048039836913]}, {RGBColor[1., 0.75, 0.5], TubeBox[{{0.473882316936199, 6.971834316791755, 0.0004138948773504403}, {-1.3767138399951948`, 9.136492442760169, -0.011319882653069602`}}, 0.1]}, {RGBColor[1., 0.75, 0.5], TubeBox[{{0, 0, 0}, {1.4237888928831852`, 2.4662159947976874`, 0.00013321484173245413`}}, 0.1]}, {RGBColor[1., 0.75, 0.5], TubeBox[{{-0.37512028472777914`, 4.570605187795081, 0.0002255030110518419}, {0.473882316936199, 6.971834316791755, 0.0004138948773504403}}, 0.1]}, {RGBColor[1., 0.75, 0.5], TubeBox[{{-0.37512028472777914`, 4.570605187795081, 0.0002255030110518419}, {1.4237888928831852`, 2.4662159947976874`, 0.00013321484173245413`}}, 0.1]}, {RGBColor[1., 0.75, 0.5], TubeBox[{{0.03463532179801909, 11.536269141880382`, -0.06288512934630486}, {-1.3767138399951948`, 9.136492442760169, -0.011319882653069602`}}, 0.1]}, {RGBColor[1., 0.75, 0.5], TubeBox[{{2.727290054608442, 7.390531260134222, 0.0002804910126465998}, { 0.473882316936199, 6.971834316791755, 0.0004138948773504403}}, 0.1]}, {RGBColor[1., 0.75, 0.5], TubeBox[{{-2.2832742569128253`, 0, 0}, {0, 0, 0}}, 0.1]}, {RGBColor[1., 0.75, 0.5], TubeBox[{{1.268100398919057, -2.196638994879232, 0}, {0, 0, 0}}, 0.1]}, {RGBColor[1., 0.75, 0.5], TubeBox[{{-2.5623900210132162`, 9.035084825337556, 1.6699560186170959`}, {-1.3767138399951948`, 9.136492442760169, -0.011319882653069602`}}, 0.1]}, {RGBColor[1., 0.75, 0.5], TubeBox[{{-2.559361148898179, 9.019447040476722, -1.6935183538918448`}, {-1.3767138399951948`, 9.136492442760169, -0.011319882653069602`}}, 0.1]}, {RGBColor[1., 0.75, 0.5], TubeBox[{{-2.177290252557225, 4.235570185005809, 0.000388702763330917}, {-0.37512028472777914`, 4.570605187795081, 0.0002255030110518419}}, 0.1]}, {RGBColor[1., 0.75, 0.5], TubeBox[{{2.6079918797775323`, 2.5754100297558193`, 1.681870261262245}, { 1.4237888928831852`, 2.4662159947976874`, 0.00013321484173245413`}}, 0.1]}, {RGBColor[1., 0.75, 0.5], TubeBox[{{2.60807719544219, 2.575506999780597, -1.681642477037567}, { 1.4237888928831852`, 2.4662159947976874`, 0.00013321484173245413`}}, 0.1]}, {RGBColor[1., 0.75, 0.5], TubeBox[{{1.2127996638427367`, 11.642049687312937`, 1.4557099657339077`}, {0.03463532179801909, 11.536269141880382`, -0.06288512934630486}}, 0.1]}, {RGBColor[1., 0.75, 0.5], TubeBox[{{-1.1885065866440119`, 13.022373661088087`, -0.02925378145732971}, {0.03463532179801909, 11.536269141880382`, -0.06288512934630486}}, 0.1]}, {RGBColor[1., 0.75, 0.5], TubeBox[{{1.089414647789555, 11.621232035852536`, -1.68930758680601}, { 0.03463532179801909, 11.536269141880382`, -0.06288512934630486}}, 0.1]}}, AspectRatio->Automatic, Axes->Automatic, AxesLabel->{ FormBox["xl", TraditionalForm], FormBox["yl", TraditionalForm], FormBox["zl", TraditionalForm]}, Boxed->True, SphericalRegion->True]], "Output", CellChangeTimes->{3.5763887595208216`*^9}], Cell[BoxData[ Graphics3DBox[{ {RGBColor[0.4, 0.2666666666666667, 0.13333333333333336`], Opacity[0.8], SphereBox[{-1.3767138399951948`, 9.136492442760169, -0.011319882653069602`}, 0.255]}, {RGBColor[0.4, 0.2666666666666667, 0.13333333333333336`], Opacity[0.8], SphereBox[{0.473882316936199, 6.971834316791755, 0.0004138948773504403}, 0.255]}, {RGBColor[0.4, 0.2666666666666667, 0.13333333333333336`], Opacity[0.8], SphereBox[{1.4237888928831852`, 2.4662159947976874`, 0.00013321484173245413`}, 0.255]}, {RGBColor[0.4, 0.2666666666666667, 0.13333333333333336`], Opacity[0.8], SphereBox[{0, 0, 0}, 0.255]}, {RGBColor[ NCache[ Rational[1, 3], 0.3333333333333333], NCache[ Rational[1, 3], 0.3333333333333333], 1], Opacity[0.8], SphereBox[{-0.37512028472777914`, 4.570605187795081, 0.0002255030110518419}, 0.24]}, {RGBColor[ NCache[ Rational[1, 3], 0.3333333333333333], NCache[ Rational[1, 3], 0.3333333333333333], 1], Opacity[0.8], SphereBox[{0.03463532179801909, 11.536269141880382`, -0.06288512934630486}, 0.24]}, {RGBColor[1, NCache[ Rational[1, 3], 0.3333333333333333], NCache[ Rational[1, 3], 0.3333333333333333]], Opacity[0.8], SphereBox[{2.727290054608442, 7.390531260134222, 0.0002804910126465998}, 0.178]}, {RGBColor[1, NCache[ Rational[1, 3], 0.3333333333333333], NCache[ Rational[1, 3], 0.3333333333333333]], Opacity[0.8], SphereBox[{-2.2832742569128253`, 0, 0}, 0.178]}, {RGBColor[1, NCache[ Rational[1, 3], 0.3333333333333333], NCache[ Rational[1, 3], 0.3333333333333333]], Opacity[0.8], SphereBox[{1.268100398919057, -2.196638994879232, 0}, 0.178]}, {RGBColor[1, 1, 1], Opacity[0.8], SphereBox[{-2.5623900210132162`, 9.035084825337556, 1.6699560186170959`}, 0.12]}, {RGBColor[1, 1, 1], Opacity[0.8], SphereBox[{-2.559361148898179, 9.019447040476722, -1.6935183538918448`}, 0.12]}, {RGBColor[1, 1, 1], Opacity[0.8], SphereBox[{-2.177290252557225, 4.235570185005809, 0.000388702763330917}, 0.12]}, {RGBColor[1, 1, 1], Opacity[0.8], SphereBox[{2.6079918797775323`, 2.5754100297558193`, 1.681870261262245}, 0.12]}, {RGBColor[1, 1, 1], Opacity[0.8], SphereBox[{2.60807719544219, 2.575506999780597, -1.681642477037567}, 0.12]}, {RGBColor[1, 1, 1], Opacity[0.8], SphereBox[{1.2127996638427367`, 11.642049687312937`, 1.4557099657339077`}, 0.12]}, {RGBColor[1, 1, 1], Opacity[0.8], SphereBox[{-1.1885065866440119`, 13.022373661088087`, -0.02925378145732971}, 0.12]}, {RGBColor[1, 1, 1], Opacity[0.8], SphereBox[{1.089414647789555, 11.621232035852536`, -1.68930758680601}, 0.12]}, Text3DBox["1", {-1.976713839995195, 9.136492442760169, -0.011319882653069602`}, {1, 0}], Text3DBox["2", {-0.126117683063801, 6.971834316791755, 0.0004138948773504403}, {1, 0}], Text3DBox["3", {0.8237888928831852, 2.4662159947976874`, 0.00013321484173245413`}, {1, 0}], Text3DBox["4", {-0.6, 0, 0}, {1, 0}], Text3DBox["5", {-0.9751202847277791, 4.570605187795081, 0.0002255030110518419}, {1, 0}], Text3DBox["6", {-0.5653646782019809, 11.536269141880382`, -0.06288512934630486}, {1, 0}], Text3DBox["7", {2.127290054608442, 7.390531260134222, 0.0002804910126465998}, {1, 0}], Text3DBox["8", {-2.8832742569128254`, 0, 0}, {1, 0}], Text3DBox["9", {0.6681003989190569, -2.196638994879232, 0}, {1, 0}], Text3DBox["10", {-3.1623900210132163`, 9.035084825337556, 1.6699560186170959`}, {1, 0}], Text3DBox["11", {-3.159361148898179, 9.019447040476722, -1.6935183538918448`}, {1, 0}], Text3DBox["12", {-2.777290252557225, 4.235570185005809, 0.000388702763330917}, {1, 0}], Text3DBox["13", {2.0079918797775322`, 2.5754100297558193`, 1.681870261262245}, {1, 0}], Text3DBox["14", {2.00807719544219, 2.575506999780597, -1.681642477037567}, {1, 0}], Text3DBox["15", {0.6127996638427368, 11.642049687312937`, 1.4557099657339077`}, {1, 0}], Text3DBox["16", {-1.788506586644012, 13.022373661088087`, -0.02925378145732971}, {1, 0}], Text3DBox["17", {0.489414647789555, 11.621232035852536`, -1.68930758680601}, {1, 0}], {RGBColor[ NCache[ Rational[1, 3], 0.3333333333333333], 1, 1], Opacity[0.3], SphereBox[{0., 0., 1.2961}, 1.2961]}, {RGBColor[ NCache[ Rational[1, 3], 0.3333333333333333], 1, 1], Opacity[0.3], SphereBox[{-2.2832742569128253`, 0, 1.0875}, 1.0875]}, {RGBColor[ NCache[ Rational[1, 3], 0.3333333333333333], 1, 1], Opacity[0.3], SphereBox[{0.473882316936199, 6.971834316791755, 1.2961}, 1.2961]}, {RGBColor[ NCache[ Rational[1, 3], 0.3333333333333333], 1, 1], Opacity[0.3], SphereBox[{2.727290054608442, 7.390531260134222, 1.0875}, 1.0875]}, {RGBColor[ NCache[ Rational[1, 3], 0.3333333333333333], 1, 1], Opacity[0.3], SphereBox[{-0.37512028472777914`, 4.570605187795081, 1.2465}, 1.2465]}, {RGBColor[1, 1, NCache[ Rational[1, 3], 0.3333333333333333]], Opacity[0.3], SphereBox[{0., 0., -1.2961}, 1.2961]}, {RGBColor[1, 1, NCache[ Rational[1, 3], 0.3333333333333333]], Opacity[0.3], SphereBox[{-2.2832742569128253`, 0, -1.0875}, 1.0875]}, {RGBColor[1, 1, NCache[ Rational[1, 3], 0.3333333333333333]], Opacity[0.3], SphereBox[{0.473882316936199, 6.971834316791755, -1.2961}, 1.2961]}, {RGBColor[1, 1, NCache[ Rational[1, 3], 0.3333333333333333]], Opacity[0.3], SphereBox[{2.727290054608442, 7.390531260134222, -1.0875}, 1.0875]}, {RGBColor[1, 1, NCache[ Rational[1, 3], 0.3333333333333333]], Opacity[0.3], SphereBox[{-0.37512028472777914`, 4.570605187795081, -1.2465}, 1.2465]}, {RGBColor[1., 0.75, 0.5], TubeBox[{{0.473882316936199, 6.971834316791755, 0.0004138948773504403}, {-1.3767138399951948`, 9.136492442760169, -0.011319882653069602`}}, 0.1]}, {RGBColor[1., 0.75, 0.5], TubeBox[{{0, 0, 0}, {1.4237888928831852`, 2.4662159947976874`, 0.00013321484173245413`}}, 0.1]}, {RGBColor[1., 0.75, 0.5], TubeBox[{{-0.37512028472777914`, 4.570605187795081, 0.0002255030110518419}, {0.473882316936199, 6.971834316791755, 0.0004138948773504403}}, 0.1]}, {RGBColor[1., 0.75, 0.5], TubeBox[{{-0.37512028472777914`, 4.570605187795081, 0.0002255030110518419}, {1.4237888928831852`, 2.4662159947976874`, 0.00013321484173245413`}}, 0.1]}, {RGBColor[1., 0.75, 0.5], TubeBox[{{0.03463532179801909, 11.536269141880382`, -0.06288512934630486}, {-1.3767138399951948`, 9.136492442760169, -0.011319882653069602`}}, 0.1]}, {RGBColor[1., 0.75, 0.5], TubeBox[{{2.727290054608442, 7.390531260134222, 0.0002804910126465998}, { 0.473882316936199, 6.971834316791755, 0.0004138948773504403}}, 0.1]}, {RGBColor[1., 0.75, 0.5], TubeBox[{{-2.2832742569128253`, 0, 0}, {0, 0, 0}}, 0.1]}, {RGBColor[1., 0.75, 0.5], TubeBox[{{1.268100398919057, -2.196638994879232, 0}, {0, 0, 0}}, 0.1]}, {RGBColor[1., 0.75, 0.5], TubeBox[{{-2.5623900210132162`, 9.035084825337556, 1.6699560186170959`}, {-1.3767138399951948`, 9.136492442760169, -0.011319882653069602`}}, 0.1]}, {RGBColor[1., 0.75, 0.5], TubeBox[{{-2.559361148898179, 9.019447040476722, -1.6935183538918448`}, {-1.3767138399951948`, 9.136492442760169, -0.011319882653069602`}}, 0.1]}, {RGBColor[1., 0.75, 0.5], TubeBox[{{-2.177290252557225, 4.235570185005809, 0.000388702763330917}, {-0.37512028472777914`, 4.570605187795081, 0.0002255030110518419}}, 0.1]}, {RGBColor[1., 0.75, 0.5], TubeBox[{{2.6079918797775323`, 2.5754100297558193`, 1.681870261262245}, { 1.4237888928831852`, 2.4662159947976874`, 0.00013321484173245413`}}, 0.1]}, {RGBColor[1., 0.75, 0.5], TubeBox[{{2.60807719544219, 2.575506999780597, -1.681642477037567}, { 1.4237888928831852`, 2.4662159947976874`, 0.00013321484173245413`}}, 0.1]}, {RGBColor[1., 0.75, 0.5], TubeBox[{{1.2127996638427367`, 11.642049687312937`, 1.4557099657339077`}, {0.03463532179801909, 11.536269141880382`, -0.06288512934630486}}, 0.1]}, {RGBColor[1., 0.75, 0.5], TubeBox[{{-1.1885065866440119`, 13.022373661088087`, -0.02925378145732971}, {0.03463532179801909, 11.536269141880382`, -0.06288512934630486}}, 0.1]}, {RGBColor[1., 0.75, 0.5], TubeBox[{{1.089414647789555, 11.621232035852536`, -1.68930758680601}, { 0.03463532179801909, 11.536269141880382`, -0.06288512934630486}}, 0.1]}}, AspectRatio->Automatic, Axes->Automatic, AxesLabel->{ FormBox["xl", TraditionalForm], FormBox["yl", TraditionalForm], FormBox["zl", TraditionalForm]}, Boxed->True, SphericalRegion->True]], "Output", CellChangeTimes->{ 3.576388759552022*^9},ImageCache->GraphicsData["CompressedBitmap", "\<\ eJzcvXd8FNfZNny9AtspT7odJ3GKE5PYKU6cxI5L4t7j3gvuNNFMx3RQoXeh uquyVRICAZJQF+p91XsDJFRADRBg3MN7nXNmViOx5sn7/fnx496m3TMz93Xd 7dxnZp55f7H3tLnvL5455f0bH1/4/nzvmVMW3fjYvIX8aML/Af6Pt5AbIV5f AvSHS/x/aaZ4EJ/8//91tHyagE8//RQlJSW4ePEictSfnhJPXkIr/Lv8RPs3 QTzcIj6aKF5Nkn+8Wg6Rl5eHV199FY8//jiee+455Ofna6M9rW1IaVkN5jXu MyG3ePjeb+Srb6K/vx+bN2+Wo6ekpODChQvyL9OnT8e6devQ1NSEbPWrZ+TT VWOG1of7o4fN/vJrDqK6ulpsRilgotzSuXPnYDKZhKqO/L8d2x88fPYzDxsW /5YtWyY2fLV2HGLD4pXL5cLGjRslTlmX4XTVGJz013/ysNmfyMdvjNms2GRX VxdGRkbkex77+M0LOXz4MOLi4vTNv+Bh9Js1dRk/47/rv0bJGpYTtJHE9j/8 8ENt0+onxh0QosGdqYZ+3q2CP7hf/Vj7vdiYII0Y0el0yiP8rvzbNZeNKqAV IwvtZqihd3/NPvv4+Ij9/r62z8aRdOjFaDpW6Wq0nf8Lkw2q13ZydBilUvVZ dna2+7M0NfS2KzN4okG5gkTi3Xc8bOEq7TOBMq1XvktVW9j8NVQVWuUWrr/C aLpihYVqo23UMBCjiRGMDExISMCUKVM0lo4d8mrDZ5oZIkUN6f/f8UtsTfxZ vPuxhy1co31mtLVktQVf7ah0/ASpdPyuNmhYp4Kn4b/hQcOH1fCvu9n72685 FPHMjf/6CuMada2N+5pne1SjfEtu5EqMFFDw/Y0eNvrNcRsVukq64kZ/9TVH JnA38FT8Sduu9pOxG/6WByNLvOKGf/419NWOVlefkR2/9LDhb3swwYQrbvhn V2C6cCPFxcXuw9HVLuQXHrb+P9pngvlVVVXy3aErbv1/cbq6s9I9j9ip319h w0Z2HRrPWt3neiLTX7UBhoaGEBgY6NEBCRAPqkHnXtkA/u5hNN1hGu32gBpt loHpwiF6YrqBcX/zMPr3PJhtvBrd28O+6gAbKC28mr4xT9r4ngcVa1uYdmXu /tPDaN83jKb7yf1qtCnjCCm8mL6/4r0Y9V8ehvyBBwXvU0O+9//OMk87/UMP So5TW3jnCtx6WPuZdHmHldP7kfaZrknxbq8a6g7xNHE0s/TMMr5/9ArjGj2e Nu4/tD8Zk69fGZjnQTFuH6tF/Uc8bPFaD1YSqzbwF/eRTBy3bSE/11TmiZdX GRARTujr1HidB3cXozZ+l4dN/uRriCoQMzjZjo4OuSfi3UMetqrHTSMPor9+ q+rr3/CY6xkO8JkrbMlodNEGmlzuUK+7MtX1LEP8SeyDePe0hw0b0yXdPp0G HkmHeu0VSP+Kh0H1hMlooQ416JMGox+fH+qB9lUPQ/7UAxR2NeRj/53RG0O5 p53+qQcItC08YmDw+NCp51vitQ7Pyx6G/5kHg7Wp4R/8mgMQ/6jydz2MdoP2 2bFjx9watqrR7pdP3xzDQqEKfQeNenjHw9A/N2haNzWLGvpfV9a0pwjztoct 6BmFUIOePUSpLdwzjmmGxB4zrjCUETRtqDsN1jg+wzOwzdOo4xMuod1INert /73Z6Uqe7mELei5ptJAItYW/XYFs1xg0rA8/zcPwNxow1K0l3OCrPRigOAC9 5tPTaa1ok++mXmEzRu1rm7n1Ci7DGIZ1pz/Pw/DG8kL3TWY1/B++BgZtj5d6 GO03HlRuUqPdbBjNmJeJUbnTyz2MdpMHDYep0X5rMEAPpYU7zoqEe5mHoScZ zENPGULV0F+XKIwzQGN1/dEVtmD0RWO2MAGRkZHS+BoaGuDjYYjfejCREOMQ KmB5e3vrRF3nYZTfaZ8Zw3rw5aMcOHBA9wSeRrnZAxZBapRfawoTNNQVdfLk SV23a7Vfil/pCrt5nHLElsaMdo3kiB5UhehfFVt5Xt/iYC+aWirQLKS5Ai1C mipu8bDFWwxb1HkeaNzihDFb9Br3dbFVOfvG1L2lrQKFJYlITA5DcrIJqZT0 wyZkJpmQISSRrw/x+SAlnn/bF4ZjjZXoaKh0U9q4a3oNZjSaPV+/axM8HMnj 8rPr0NpegcRU7laaCWmUTEp2mhk5lLxUM/JTzCgQkhyOgsN8TqIkUhL4t4P8 zgEzcveZkLvXhOqsRByrq3A7IOMu/8EDGwLG7rIgtyC2YtjlRFbx/n/Q1lHB 3Q1DegZ3l5KdwV2gFFCKMsJRnB6OUkoZpTw13AvlKeGszMt5BOWH+XEi/5xA Ocivcu+L9lPiTCiMNSHfEYbOmgp3qPF0BEYGXuEIvDTGGWd8hK/RjkZlFz9A Ow8mNZ0Hk2lCFiUni3qlFFJKsri3meFwUSoolTy4Kh5UtZA0SiqFx+aFah7b t1CVxO/wyCoO8Tc8urJ4M8r2UYhNidOEhvREnD3Z+3MPB/fHcQcn9L17rLGK aCdIPa5g0MllODbcp8Wh4eFelLsSkJEZhswsInXEhLwjVDel5AjhoLgolZRq HmwND7KWUpcRgXoh6RHcaUoaJZXvhfCA63i4tYSyhgdcRTgrebAVPNgKHqwr xoQyexi/l6CnYwcPHkRbW5t8p893G01nl/FAVVtgfCV2lYefqbzrRzh9uhcZ GaE4khWGHHmEJFM2j5BSns09o1RRaniUdZR6SkNWBBozI9BEaRaSoZ695Kvv oiVDfdbEo28k1A2Eul4/ah5x9SEzqkneKhK3IjoMzWmJGOnr/amHI77VYHm6 N1dTzSq5vqxC1FPSb3g45ns02opjzsoM5fGGIS/bhIIcE4oopTlEgFKVw/2k 1FHqs3kMR3gs2ZFoprQciUQrxQttRyInoJ0vv8fHCL6lUDGtVEQLadBMnsuD F5DzwOvod2rpJmv209fEhsFlCcW5vl53YWM86j8bwrWeze5QR/0zw7HKDwC3 ixQE12tPfdpND4Pi+O/Sjv8Mjz+bx597JBT52WEo5LEX55J5uWQhpTqXWFHq c3nsOTxuSkt2FFop7TlR6KB44WhO1EQcy43y4kMkUT/Kb3VQQ+0UoYxW2kQL jb5JKsGMBjrg+gQT6g6YULs3DJU2KuBk7/VXOH6jt9KO/0ceUdd9lB7HjAFk /LSm0ISaz/ix1EROZgjyqYmCnDAUUQsllHJqoZIaqKHUUQsNPMImSktuFNpy hBYs6Mi1ICfMH7ueeBp7fnUbrL+8DeXzvdGZb5mAzgKLF19FUS/H+XgsLwpH +fuOnAhJFqGbZqkbMxqpm0bG0AbGz7q4MFTbpV5+7EEvf/EQWLYrvehzwEZt CNE08R0PSlB1x/VSCbmZwVIJhTmhVEIYSqkEl66EPDquvEg08gCaqYBWHkw7 pSPPgqOUfJM/PvrN3+C46W4U3vIvNN96D9pvvR0Nzz1FQLqLrKRcd5EFJ3Qp tKCrwCLVczw/kspRipGkkZZjRnOKCc1MMhoP0RnGhVIpIfCkkdvGmbl4t+2/ 0sh3PWhEzb3+FDWuQyg4EoKi7FAaRhgpYVaUyDNogxqQdCANpCbyLTwaK5G3 YduTz2HHTQ/B+ZsHUfunB3Huzvtx5t4HceKuu9BtW4/eUhu33Ftipe/oKbai Wwg101UYxd+TLtSKoEu70Io0IzNaUk1ooUaaqJEGaqQ945B7CsuoEX3+1Zir bDV4zMunfXT3YUwAPGlHjfwzVJcfREFWsNJOTpg0GOk6qJ1qo3aolbY8oR0r jhVYcbzQiq4iGzlgw6Ib74f/Tf9G7K0voeOB1/Dlsy/jqxeeRM/Dj6DXfw5O ltu9cLLM5oW+Mhu1JDQm9NVdTP5QOos0LXF7UksMS22ZZrSmCS0xpBwMpZZC cKG/1z3L6ElLRg+z1eBhvUY9zESpGEEwbeLLk27+ooXfM8M9KMgMQjHZU0L9 lFE3qoN9ndRNnaabZrKljWzpKFC66Sy0Sd10l9jQU2LHwl8/Bp8/vAL73e+j 5bnp+OytKfjPu6+h58mn0LtpPvpddvRX2Dm2ePV9nOTjyXKb1FZvmRU9pVap py6hJ7KqI1+xqZ16aieb2pg1tyaFovlAKOpjgz2p6G8GFemJ9xalohs1xYhg I/5pcwnf86CYP2ukqSNpikmaUjqZMpLGJWMNcwsqRRaFQikkSysV05EvlGJT Sim2Uyl2HpCdB+fAjn+/i0V/eh0B93uj4JW5OPXBLHw+9W0cf+pp9Ozb4oXB SocXBsQD9UMOuWz4DlVC1VIlXSWkDtUyViVmqsSEthSqJFGoJIRx7KB7Otyo E705Y8wqNht1osKRPsHxA4Mt6l9XOdw1OEumFGUEMZUMQRmDcHmO8LhMBxlu 1Cjfp6e1op3KOEpFHC+yjyqDiugrd/DgHCizbIf3LS9h2f0zEffqPFRPmYO2 d95Cycx3rsJQtZM7MVjloEbsOCWEpOmjTnrLSRASpbOU2qBGOqiRdqkREiRL 10goWhNC0Bgf5FEbt3twNZsu14buaowtED04/1GnR9kBlNBuykiPcqZk5Tlm qQnxr5ZetoHUEP+ERjpIjWO0lU5q40SpY1QbFU4eopOH6kTE8lV467H5WPPm PDjmzMTRgHcxXBM9AcO10V585eTeCOUMVjvQL4QqOkn19FaQKFRNF1VznKo5 WhylqSZiVDUs39oPh6AlIRgDzeU/9KCZOwwJnD7fooKTe5rOmKxd60Ezqky+ QfEkPRClTFPKmbCWZ4skVfBEzabUGbTTRs0cLbTjODXTRYPppmZ6XQbNVEWT DNGIXL4Cr7zkh8DAYNQk78LIodk4XRtNb3K6Lpqe6kydk+8pfB7m8xBlgDoT mjpJTfVRUz3U1AkSqZOaOkZNdVBT7QUkkPDI2eGSQO2poWg7HMyYFYQrqclY uI1TkzGTu84D39RExy9wor0cJTSn8iwSiDWMi7vgonVX5uhqstDxWuXr9gI7 gaWaShy0ARKIKurTVNQvVFRNqaGaVnyEl5/3RcCeYBapu3A2YS7O1MfgLOVM vVDXWT5eK18LxQk1DQpV1TpwqoZjVpNQVYSB6uqkqo5TVR30QO1Fmqpo7tL7 sIRuTyWhDgehv7nsBx409Q+DpnRPsuHrNeWpy3SzVhcVpuxBWUYwylnXurh1 palIaiqKVY9FRasfooVcaqfPOVbsoJOgosqdtA4nrUQpaUAqKYYHHYPimO14 6Vkf7AoIRtXh3TibOA9nG2Iw0hAzQb64lo/UEWWYuhoirQYo/dTTSeqpl3rq pp66SKnjLrq7Mo1OhZHK8ASdMkkn1qltqUF0hQc86ejOceFHvFv/v+tIj2+i 0LpZc0clqYEozwjRdCTq/Ajqya0jVkZWNOXb0Epja6eCjlFBnWVOdLui0VsZ TSOJprFQSTXRUkHDdTE4Tda88PQ67NgVjAqhpKT5V2GkUSqHj2coQkFDVNBg PZVDBZ0kmXqpoB4q6IQgERV0jN6pg/bWXmwgET1mOwv4tnTaWvIeT8q5ywMj /I3KuWpMmqPPoV83zkKFkn6rff9EWxlKCUc5YXERHleWmM1xsSK+loqy0G9b 6ZlsaKK5tZJJHTS3YzS3LjKpm0ySiqKS+smiQYOSzpAwLzy5Ftt3BsOVFICz hxdyB5pivfgQwz0a4eNZyulGaosySK0NUGunqLE+UqqHGjtBOnVWUlukUwfp 1F4SpcxO0ImpRzsjbntWCPPFQFwY6nGvKfCkMmOOOEZlKjM0zLRc70Fb12lf VRO3lWritqni25pH66YSy1JpjfQBLiawQolChRVHolCVParEZl2JZNoxKrDL RSVSgb1k2ikqcIAKHKICh+tjCcKZhlhu8oXHV2PrdgJEJZ5JXkT9NVOJ55tj yf1zzTTPZqXIM5Rh0k8oc4DKPEX69VGZvVRmN6nXSWUeI/U6SL12Qb0i0q6A imTC384Et51Bu5W+d7C9zJMe7/aQSPqNtUt9ek6VX5cr8XtaUdLSXoGikkQc FvPQLBHT+ZxJyTpsRlYSJdGs5qIPiHlok5yHPt3fd7UWbRqK46nsELh0ZWdG oCKLZn3EgipKbQ6VnW9HM826jWbdUerEcaFsKrqbiu6rjsEpKnqAih4iU4ep ZqHqs42xeOHRVdi8LQiliULZi6Waz7fEjnmm/ql0/oaKH6bSh5qocCr9FJV+ sl5TONnbRaUfJ3uPkr3tZZqtC2dYQIXnkb2s0tuYTA92lHlk7j0e0lTfsRo3 Jmbj+8hC44qfP8LQcC9KyhKRwsIqPd2EI2K+mgV6PqUwLRzFQlLDUZJCOczX SeEoSgxH4SF+54AZeUQhJ9aEzvpKrZ66g99hBEoRMNBpZIRLGFyZUajMIgzZ VnLehgbyvbnIgTY6jQ561uMuAww1OgyxhCGWbpMqJQRnmwjDQyuxYSvT6oQ9 OJ2ylKrfi/Ote7VnBcU5ykiLguF0s4AhRsLQ36jBQO5312owVBEGcr+9XHMi xYShkNwvIAx5dLnZwaTIAY8w6OuAjD7X5+thuMEDDGoa81tyMrqsPFG2DY7Q 1+aSvQXMRYsz1Sx7uZhlzwj3QmW6aBdUEZEqIlKVTCEqFUTEdYhfPUiU9vNn e4letAknaiu1ObNfoiSRMU+gQqRdHMWVoaFCw6imYdTm6ajQOOiFOsoFKtES lZ5qAypEZIiIDBORM0176a734vkHVsB/cyCKdVSIyAUpwiERlutGQaFIUCgD TRooDQSlXgOF9nGcDulopXXUIQn7KCYohQSlgJ49l0VLRsAVQTF6dQ0UvXGi rwxVmeXloFyteaOOoxWyO5CVRUDEvLnsDJhlZ0B2BSg19Od1oitAjjdkyI6A l2wH3K8aAoZp8SrR+ThAEV2PGBOKbGEYOdmngElmjE3VgElnnM7QgMnWgKHH aqbHcgNTQWCqYui+YxQwdeOBEZ6IwNy7DL6bAmmugRhOWaaAaVPgnG9TpnOO +Iy0asi0KGQGdWQaFTI9dYy5AplqgQxDhe65SolMCZEpJjKFRCYvBE1Zo8iI 5XFimZx49y+DqvU4sW4sMsai6ZcekFEe5n9Q4UpwdzQKmBwVy24GS0rRyaDU URqIThPzuuYsItKSFYGH0KrN30shWC3p/HNaBJpS1Tx+LZ1bdQKRomOrjGOV 6jQhYduHKD9MdBiOXGkaOulRjCse0KEjE+gcM6DTWxtLdGIVOkRmuEk4pr04 K9D551Ks2xCIgoNEJ3W5G5ELhudzfBbonG0V6MQqdCj9TQIdJggNAh0n0bFL dI5VaegIh1ZGZ1ZKdEoYV4oYyAuITvYeT+Dc6yGkrB0LjjG5/pVW1xqtTHwi Wy9MrEXrJT97tO2itx1Ey6WB0sTSrYXSKiZoslVjoSM7YiKOZkcwAeVLdIiG iwRKNVtEl0k0WmoTONR+Ew74f4CUnQvhYn7gIniuVAMw0p/Z3cC0MtB30Je5 gakRwNBsCMoATWZQB6ZJA+aeJVizPhB5BGYodQWG87ZRAQKeH/OREaYtdiwo lMtBocnUGkymgqC4CEo5TaaMh11KUIoJSuHXgnLfuPkl8W6NEZSrJCihoaHu pqdI6n+pTU7p4JSV5iGboORpXZBi2QExoZKgiD5QQy5NgNKSG4k20eXJjRKN H9nV8EInH38vJ/O7dMmL5KeROM7vi96QwExMPLbqbbEUM+qZqR3a8AESN05D 6u7FRIkIpegIWVGVY0NtvkDIgSaBkDAdl3McQrE4SdPpdyO0V5kOY/3zdy/C Kr89yD1AdaWtxOChhfQOAiGGGj6OtBnR0U0mZhQdOjU3OlUGdFxEp5zHU0Z0 SkxoKwrhdw54dGj3G2aB9DbeaiM8lxUQatrs+xKZVctegdOyEoXaFLuYMa0S JsKsu5FoNAs0RBtGIiGaD6qtckK0nroLLfiD7Cn0GKSbFdCJQkpBFAETAEXg qDYrLHqWoh11aOP7OLx5Gg5v8kba7qUEJcJtNpUEpYag1NNsmkoUKO3CbJgC dDIx083mZL0Oyt6xoNy1ACt89iAnPhCDaasxnMRUoC1ughGXVk+4jHNlRlyY BrRXEJcK4uLioZQz0JQqXAa7yq+Ii9E5rR7ry4y9kF9roFS7DiIreRd8V76C OPtq2RGqyhOARKCR0pIXKftiqhMkwLBS21Zq3oreYqsX+kqstJS+UitOGqXE wr9Y+BUFkgBIgHOM4HRkC6sxMxVYi+Qt05C8YQaS/L1RFLebwYagZFoVKAwy EhRaSosOSoUAJYaOPwY9ApRxlnKaoJwRoPxjHpatC8CR/UEYSF/D/GwZ/YbA 4lppJWeugEb3eDSqiEYl0aikKio0NMrC0FocgoGuck9gPOBhZmvVWDCM1aGy kB/ieEc5CjKDGdlDcSR5J3aRthnxm+nVBRiRBEM0KVVbrrNQASHabL0lNiJg E70lnCqzXY3+chsm8SWBoPQxm+wtEX1KujFWXKI/2UGjK7avRQoBSN00HSkb vJG0YSYK9wcQAFWy6AA0CgAYTNoZ5Y8SgONuAGJZUjPSN6iAMtQUqwAQweSO uVi6JgCZGgBn0lZMlPq/jvpXFmHEYMADBl0GDNoFBlXEoErDwGVm4hGGluJg 9HeWebSIn2juqL2xE6vun4+ShTuZt3fqK/KM3dWVY7HRY8ooNj9AfoZqgJVm h8kGWH5KAEI3TUXega0KF2JyrEDDpUg0vHRM7DhVbpctLS8MVNhpLYN8HKy0 Y6hSPYv3A6zH+l3Er9wmQeslaN0sATqLaDX5tBpajgRrywykbvZG8saZSA/8 iEkzXRjBqmZ9WVeggVXiRJsbLMaWamUtEiwR/RsVWLrFPP/3mVi8OgAZ+4LQ n74WZzJWiopBQ2s06qtkWaVjEjFZxkSrMoaRXyJWw9qymohVE7HqKIVYpUKs lYg1FQe50frss8/kqZjCPH6ixfb2hmPwvmcjDj1nxtBqMy5s93cvfzTWnCvG QmasOX+lmVMXzak4U7XnRCdKtOaqqcay1EBEkvM1qcE4qvUpTxRrkBngGqhw qM7bUJXjKgxXO2hTQ6zSBikDTG76CVkfq7Ue1gQnWEYfJ1RHaVvCqaVtnYG0 Ld6Eaibfz0LRAdrVEQVTLWFqKHKgmTbVWq6lAJWGFIAwjUabUaie/9sMLFy5 G2lxQTiVvg5nM1dPJC7Cp+noCBlu0QtN5npEqK9Bq/6JUGctk2UmzR01RKfG MopQVTjaKkxEKBTH6w+qlRXXSICEnYiAIhyWyIR1fyYLxgnGXrsRA1XjX43Y wH3wv30VXCuS8WlKKy65cnC2qdS4LFaPVhqienFqLFhv1DLvQtEzylI9I7mo iWjWMmVoYLpQRTRD177DgjQUXcU22VOUaLocREog6SR6TuLolL2y0zXOiThT 68TNOFMjPnJgiN5mkDJAgE8S3F6WFN0Et4vgHiO4pTG+SN3qjXQpM5G6bRbS Q2mDWm53pTTCHbHqYw0Z+F6CS2Bvm4J5y3cjdW8QTqb74GwWbZC4Cmy9hJ/0 ksD+UBrfsKxU1TyCDq9M7HR4axmyaglvLeGtIbzVTKk0eJvLQtDfXf4tDZzx 8ArbIrReBnMbfx6vp4VJxs+u0b5dX1qBub/9JwqeeBWfrJ6Ji+UluNDdblw0 rJfDy424XzOmHBair24USf8NGg+6tMZYmdYYq8gRlh0p+4aNsuFuRVnCToT7 vosWOuxe8kD0lfsrHbJxLLqkp2tUP/BMnXMCztYJHozwcYSqFO9Uu5BfpQzQ Yk6RE300+h7mzF0sM4+XRqEuZRdSyIU0ciF920yk7ZiFFErxoT3KJzOA1rkD qMMQQDWfXCN88mhqKfzyII39+b+8jbkf7UJybDD60n1x9sg6xjGC70XjFjwY 1ib4Bg1zSX31o+XX5TygiVeztKwyo6UiDA2lwTh3pueaK/PgagMPdLd7lQfM 5eIb3eDXT56JuDufxdDcqbgUtgBfHJqPsx9/pq/dNpbay8YCP76qM672vEGb uS1MFX0+OoAs1cOqZKJfkxOF+lwLmvKsqlnM6FsQtwGWDe+jI8+EUwR9gIav QI8mstFEWHQ6R+qjmZQwgP0LI3w8Sw2epgxTi4PUYj9hP8lQ1lspusKME3QF R+kKskOX0PQJ+XaaP+FO3TULuc719O/Mm9z+nUV4iTY74vbvqppw500G2CM2 7MKspbtwOEZA7ocz2T7EmpVGc6zEXH8eciOvTe/qs+x6CK6z43gdlVBn1dCP kui3VTPpJvpNrlAcbTx01RWQ7+3tHX+euCj09J+MW2ilP7sdfkAYtv/hUbS/ 9S6+2v4hLsUvxKWhNk+rzdUpF6pnKTu0V2l0EkzQ0e/q6vqFBv6ZoR4UpwXK 3lx5llkRIFsRoCHHgmZafRtj+TGxUqDMgZIDG2Hf8gGOF5pl63u4VgO/PkaA 3xDDavJcYwzO69IkJJqfRWOEcoZWdZoyVE8C1Ym2rl21dcmHTpdaIVCXupsu gBwQXNg5C2kBs5BMqdCm/Wvybe6QoLsAWcSQDyeqYwzVpZiYiZF8CPffCe/F O5FILvRm+JMLvhMIfCwd32Cz8hAKfiMFoqUD6BUOgBTopBzTaNBeZ0EbadBW E4HWajOaK01oKA/F+ZFeL0OcF4uMLRaLpIFIo0kDaaWeTiWfOGr3bi7oIBoj wILf/gvF/34dn66dhUvOhfi8aLe+3Ns4gaZOQ3J3FccxTF8TayxfVdr3Y9Wu TQsmJegPJCUiSIlI2c9uyLWONvxLRYvWQe/tRHnCJkRvm8KULZymHi1XOggy CCqIZuyFppiJuEA7+x3Oi4YiGXGWcrqRTCAbBsiGU1RzH9nQw9KkiwHhGANC Bz3DkdCl9AyzkbZztmRCyp6ZKkHXMr86JgiN3J0Wg2c4zl2SCUJ1tAwIvXWj QSHcbwdmsGw5FB2MnvT1OJPjx7gfO0Hmdj+VDOhvVHn4KdnjjHaHgW6NCcfr DSygtNZGopVMaCYTGivD0NGkLocgqiZhnAIXAb/ARsDv6cT0Cf8r/FdhA+PA gbufw+n503DJvACfHZrnXvhuXBrz/x377rZylKUxFmSY5AkZLtn0jEJtjlgV Y0MLXUE7XYFsz1PRPUwARWu+YN867N05lWl7hFzHoeMuwCbsXrhAP3szPubb j5lKn6ecayYHKGeaorWGspPKdmideTtOVIlFHhbZla9J2Y3Dm+kRdigOpJID uU5/5RFyRufOm7hrwiO0cfeOCh5oEULwoJveSiSLggtmn+2YPn8HDjqD0Z2+ Aadz/KmWU43cUYH5tdL999XrLYvRMNBZz2Mn+u31Vol8S10UWmqJfE04GquY NJUEI36/c3zUv1ZDwhipL41ZPDo++o86/t1/ehzH3n0X/9lJx39gIf4z1GZc 9q4Pt+S/wtw4Q6JjXiS6rKmhcKWbtZNwIlGVpZrcjXS1LdqSDNHgPkHD6qnS lmPQ9RfH+2Df7qnoc0WIlReyeS2g/ljkVR+zgPoDLqq3uNBKzIn7COUMcR8m 7oO0/37ifpLq7WF+dYKZwXHa/lHZRI1EZuBSJG+djdTds2n3s5Bj91e2z+JA Ts3n2wxT81oyKHEftf+EZCcSU6KxankAXp6zB1v2mJBg34GM6G2oKhR5nvAL 0V7EO5ppYB+9l6jseuq01E8iz6Mn8keJfAeRb61nYCTyzXWRqK0wIz52A5Yu mYOFC+bqiOtnaxiXuP6PwYsv/t29KH/mDXzmMxuXYhbhk8Jdt437iXi3+L9C 1Ti3olC9DsVJokuroZoR4Ua1TqBKD95arNaIHGcKf4LqEp3Zk0RULlmgSsoO +iB+zzRmepGyFy4gVJD+Cx+3xeIiRby7IHrlrRqslGFCO9ikwUpz7qXVyJaS 6I+7tEZfUQQO+c7EYdZ6yQzw2TZ/MjDK4NatdOs26dabuZ95WXbsT3JgtdmO tRG0LoovxY/y3uJQPDYnDPP8Q+G3MxibdwdhfZgT/iGUIAeSk5w4nOiQs1/d tWoWUsypdMqkTmHarmFaVxmO+H0b8dHSuViwYBYcNl8UFwR5Oiv925pL3jx5 FhLveQFnF07HpfAF+OTgXPeCaGNetui/AtL48S+1uky12xmK0whkugAyCtXZ 3NlcA5BlDrnw4URVtAak6OLGyC6uWPBQfsgXB4OmMWWPFBjuxb3EcK/EUOJI udAWKxvsI60aji3RWilEHBscKguqEWt8xDoH0bRVaxxqknYiYf1MJLFeS9ju jdLDUYwgFpRnWlChzaFFH7BipdmGVeEOrIkkfhSfKGJI8aO8uGAFHn5uEV56 fR02rNuE/bvWYMHS5Xj3wxXYYHJiQ6gT64MpgcQ0wAFzlB1luQo/kZF1UBrJ 04P7NmvYzYbTQVdRFoYaJumVLhPOjfS6p0GMwHxTM8q4ABOCb30Cne+/h//s nodLBxfiq8E24+J2Pb1a5DnH9gTfdShJCEJ5MuFLIXxphC8jSi4hkvAxmrbK dSsOmbJI+Go0+BpUm/c0vepZetWKRD8kBE/HQLXopV1s2zsBF9tjcRc+5qNo JY60ETiCd1oARyPsb3Jq6yFE/UrgqgVwFq3bztq1OBw1h3fg0IaZOLjZG8UJ kShJjkLiwShsiYrCR2FWrKDBrQy3Y3WkA2spOmj+FoK2cAXufX0GHvzndLz0 2jqsX6uAWz93Gl58YwamENSNYWPBW7+Hv91lR3B4FKyRm7Fz2zI6zdmIdqxH TnYg6phI1TKRqiZoFXSs5871je/eCwD0ukg40mW/ux8Vz72Jz/2UIx3J33G7 4Se6712oMJNZ1jVq4aoyYH1qRDyLqThRJymeXI+SQ8Tu8Ch2Lh07phuNhSrl VIsoDNjViYIjZgx2YslKVZIvEkKmsWiKInB7oeC783L4WmNG4WtU8HW74RNL WfR2vOr6FljXYp/fDBTuj0SELRJLgixYEmrDMpMdKwjdqkg7bY5+kzbjE+WQ 9rZoVzDufGoy7r79MTz8+yfw0qsKvnjCt/z5J/DGg4/jxadex9wVG7AxVEDI 3wVasW6HGfMWLcfsDxdizrzF2BoQiDTGl9papmishqpZFFdWU0+VZnT3VHi8 RoOey7476U4k3/siRhbPwKVIwlMc5F68bEyTFijgJmo/M1TH7ucfaX8T0Il/ xkkOHcriA4QykVAeNrs7lVVHVOaoQ9lOMzxGKLuqVNUwBkrCeFYuCVNrXqoO +yExdDoGa6U5EtA7JaASzvZYrSEWI9fBDLZEa40YDc46DU6xMkm2iSNVI1+0 iQtDkJPqwIbACCwOiMKSYBuWhtkVnLTGVREanJE6nA68NW85/vbHe3HPH+/H Q7+/D//+y0OY/M9HMPPBhzD7/vsw9f778c799+K992ZifagVi1b7YtacD+E9 azZWbNwFH27HJ8COdTs57lYLokmlSkLpqopAWUU4oax0X5vBWLLosxdrJ8+A 6S9P4sSU9/GfAOU6vxxsvdODt52vQNMnJcaFQf3ckcsXiDyHov0MgwkEMGkU wMojo6l/S4ldmwgYD6Cq7t0Ato4uiSnct1yC+DHhExAK8C4YAWzTABT22DwK oHCnxzUAZU/ZRQDLw2U/uSAzFJv2J2JrQgEW7VanWywNoT0SxOW6O43QAKRM W70FTz/7Af76m3tx70334vFb7sNTtz+Ctx54DLMefwQLH70Pix57ALNefQnT p06Bt/dMLPXfCN+wKPhzLD8Sw5dj+wRzzECSY5cNq7dZsDM0HMWucIyc63Nf c8NoVxMMPnTlzQ+g+sU38cX6Obi0dxG+bE3xtKZ5vsGHYuyZxZ6mrX/wtWj+ CN1NLmaYzE4TiWayhiaz0xqxirlQm+Ybh2afjqZh8dOInM0XqwLuJnIK0Uzb fHzcQYSFjENz2IN3daMpe9I0xwqiSc0F7w2h1ySaBw4jMLsW25KKFJpBViwL IZrU+gpq/72PNuH1aavwwouL8ObLK/Dc317FXb+hKf7xITzz90fx7N2P463H n4L3G69hxtSpmDFtKj6c/CrmPPUATAuWYed787F59Sas2xIMX8EKorqW464J JVOCmDXttsI3YB/2JlRedtESgaSX5v4+mHQX0u5/CeeX0qNahEcNdC/wNZrt PAOMygQnjHGp+gk4xvkBhdtPcaKhHGXxoUwoidth4pYW6catvmB0evaoNgEj im5RcItpuAE3bmoBp1guKLrXcrGaxG4ZsZvH4xGo/UCtjdKi4hjcZHNmHG5V UXItQUhcKHysYVhnNWFnaoHmYn6F2euD8MHSzXjupUV445UVeO9Nf8yevB5r nl2KBc/Oxz9ZZD9yz9N446U3MHXKVEybOg1TJ0/G7JeexfyXnsSilx5F+Ny3 UbZ+IWJ91yJ8xRqEzlmM7fNXw2fZJqyJoNWZmeXSvW6xpiNsfy3CYqqRkN6i YfbNMSdt+dBlRv71KfRO/wCXAonIoQX4YrDVvejUaKnqMsDuCxV4MjEjVHpf r2RfCMoPmOBKUAumxAoEUTOLwkrMk7Qy2nVocySiTtZnTPVGtu4wR2RRsNdL YvVriVZB3HIUEC19BdvZVg2lFq19QpT6WDOo1old9q87qlVnNIS75WMPo5ix zmZGcG6tPCRfZ7p8fvrlhXj1leV4500/TPtgKwPVHiz6cA/Wf7ABG+Zuwop5 q8mQqcTnx3j91cl44ZmX8NzjT+OlJ5/CG88+jfdeehpTX36StetWZAduRHGA D2J3bUfE5m0IX7ce5iUrsGfaQvjPWoltQfEwJ9XBfKgOpvgahMVWITG9RQF2 jTSYA9F7sfbmB1H38mR8uZHuMW4RPm9Jdi9zNNaE6oKdKsPxMsazy9elXIuG 7ASU7TPJ1dauZLVQV65p1+pe98Q2a/Ou6mhtZc54D6i602cFPBpGYkY73ToP +XHLtLVrMdpi3GjV3pRtLYGNnXWwDcdqmYTUWFBYGAFfeyh8HSb4OMIxb+cu zN0ShSdfXqDO9PoNphCOmbP3YO7iMMxfFYmlq81YO3895s1ZJMPS3MXL8dGO EPz72Xdw9x2P4KF7H8cTDz+JZx5/Es8+9gieeexBzPTdiIUbA+C/ZTusgTuQ EroVtpBQROyhbA9AxIYtCF/lg7APP8L2t+YjwD8KO4PTYCY8pthKwtOsXxhY +LTpH0yB/cXJuLDMW/d5nhbTzVHI/NyDCel4nKirQOneMJqM5tnS1cJp6dlk RLIzIjnGeLa+Ws2zaQt1REPptMJkolw+cC36qiORapmH8iQf9/SIOptjtDqT +aAGRVGRgCEEfs4wfLDKF697r8DzLy/BG2+sZf62WUHxfcxbGYkFvnbM9w3H 7I/8MWP2h5i9YInMADbH5WB5RDxWWA5gpe0AXpu9Ak+88h7+ed9juO+hR/H+ 0hVeWBMTT++xOnY/VsXsw9zdJviz3lsTaMEmJvt76MZMQeGIYKEQvmUnwn02 0HBWI3jqIuyeuxHblocTDRcqanvcF7/3neyN8H8+jxXTp6Npwxz8hy7t04EW T2voxsChXLShI60jUhQdJi/sU54QIdfkjnFgtBAx4TfWgWnVV73q4ww1jkHF S3b6fyuXSAmj6WF2uy9oKgt0H4mIdFzapJUwDjnRX2fFUaLykf9qvDp9EZ55 cS5ee5XO6R1/TPHegZkLgzFnRQTm+drkUczSoJgxey4WbwmDKasJUfnHEFVw HFGFx2ERUtSJ4CMN2J5cim0ppdhOmYDtqSV0F9tTixGcUwdryTFYio/yux3Y mlSBdbG5mL7dwXTAia1MPYKDo2AKCEP41gCE+21F+DJfmGYtxe5X52DP8hAm ps3u67WJBM//lofQ+NpbOLt+NkwrZuJMzaEHPRTJsxUuNxhKY/HPeHHcG7UE 7kRtBUpiTSg7IK43pddTFkM6bqynnCoR0AA6pQE02Kj6rl6iAztRNuBvwInK CMTumYLCg+skHLIloBlJ2MpZWPP8C3j9rufx8ovz8Nabq/DBtA2YMW8XZi0P xdx1UZi33orZq7ePwrDVhLDMZkTmdyKyoJNQdBGKLqq2ixu2FJ8gAa0lJ2At VWIrO+EFa9kJ1ox8yVddfO6Sz9bSTspxfv34GIS2J1dhXkgC5u9ywjfQgZ20 otAAM8zbghDuv53Jgh9Mc5Yh+M1ZaH/kLgyaw7SE6hsSnZmT7kHOo6/g4xV0 YraFKLevG3sBrbEL62YZUZrgvmigqHZv0rKCApsJJXHiKmARKDeYTr3bdOzo KNcnnUbREZPfouEl2p9eAqOJoivqJVuiP8PxcjOcuz9Afvxa5MVugm3lHEyf dC9W3PIUNt3+Dt57dyWmzd6AmYt3Yc7qEMz1M2PWyq1uKBYRihBCEU4oIvK7 CImQE4SjG1FF3dRnDywlPVR/aY9ApayH0gtreS9s5b1XwebqEai4uvlWyAkN FYWMhahYimlrhUcJcjuW27Pxrp8FS1nVbmQhtmenGWFbAhHuuw3m5X6oWDEH Xy15HiNv3I++Bd44GhSmeaRvwp++LPr2Z9A/awouhczHVwkLcLG/eUza/aAh A9DL25mXQ6NnfDdp84FnT/WhyGlGyQEW10mRKJeVj1VVPgU2Od8tTs45qsEj jUfG/1EDko3tBjU5IfqUXgIw1bq6AfmxmxHOEmDKpH/io5ufwIa/TkbAw7MR /uoyJj2s/Jdvw5x1AZi5YgOmE5XpM2cTmVBsPFgMU95xhOd1UroQkXeCKHXT aHqoU0pRL/VLKemjvillJ7lhW/lJHqjNdRK2CiVe8vEXsFWehL2ij899fCaE UnokigI/q45fCbErpn8sEn6S2OW1Y/NBF5PDLMzYEInVWyOwdUsIgpg1hK3b zDC/gikzcy3ft/DFnCdx8ul7MGIxYYiWpGaJvoXBoT60tFWildJGKSxKYoKT hPbWSrS38LNmSmOlvmZLtNk2/f5htLzxNr7ayqH3L8L5xiQvDwg/4CGcXQF1 FRz/jprUJBTtjUDJwUiUJkehXK4w1dylhvq+BDvik5xYG+4Y0+HwD3divRCz U+tsOJCS7EQsUwQLTfC9SXdj0e8ehf9fXseuB7xhenkprNN9ELN0K2J8d2Hm R6sxY/4iAj0Lc3z98VFoFMJyWykdMOUehzm3C+G53QS8h+ZIKegl4H0E5CTB PkmwT8FCsZb1E7x+CXC/AL2yH3aKeJ4Ae1W/eDjFEsFeReR19AXqLmHEwpi7 pYu1CMSLiHjBMW6wA5E5rYg80oQlIYcxb5uT0TQYPusDkBG6Exf3bcN/nL64 FL4Ul3bMwH9WvoqL7z+MmgfvxMnQMBSXJeFwmgmp4rTTNDMyU804kmLmTmYn m+lfs5PMyE7kZwmUg2ZkxZuQEWfCsQZ5wu9VhiApltblP87hVxFQ+0J8VbxH 78sY7zVgZIBeUnuPZYCxHFPZ6u2oTT/MCjcCxQlRKEmxoIwMSD1sxU676I2I OSGiHumAb6TqiaynLN8VihkLfeD9wRJ8SFmzdju8P9qK199YjWceXIJXHiay j6zGlueWwzplHaIXb0a0zw5YNu/EyiVLMHveh5i5YD4WB27HalbE/vsOIDSn hci3E/ljFCKf103ppan3EfmTRJ5SRMRL+ol6P0EbIHgU1yDBHCSwfK4c9CLK 4qF6kMfr4KO9hlI9AC/5eCsf+wUnJCWEK5DuwdWnyFCmyGApYSwuEnGZRKDZ R3LfIrMaEJlWg4hkF5YH7cc7S7biMBPixn3BGI7fhc/30gXY1ki3fGnj+/hq 4bM488q9qHnnORSE+CI/IxwF6eEoSqOkhqM4hZJMMZ5zfDBcnXO8n7LXhBxm mseZ/0/QEh+53u4fz2JQrrebjy8Pzfd4H5fx0VlQYcbXU0HVlX9FrpW7uD8S h+KisDhIdFpscmpwlXtaUM3r+lscWLE7FK+/uQALn5mFDQ++i83PTMdLzy3B lH/NxqxHl2D+82sw9y3WZdNCMGuWCcsXh2DVR6swd+4czJ4zE2v8Z2P+zjVY aw/CGpbc/nH7EZrdRBq0wZRzlBTopAPQKXCS9niKFOgnLAOIKhkgBQYJ1RDh HyJ0lIphwjksYK4aplLs1cOEflQcNeJvjtph3Al77RA/G+Jno/SwVw1IWtgq T7kpIQK8CPkWpmGCDiIKROa2ITKbaVtGHSJTq0iHUpgTC5FZVovC8nIEhQQi LyYEx/cH4vz+Hfgqdj0uRS3HpQAmsesm4/OZj6P7ibtRv3IG8gJ95fmwFaRD BelQQTpU6Cc7JzB/JR1KmccWixOe48woijGhwB4mQ7UIDdvk0rt38NU2sfRu kVh6N+YePOPpYIwX08fSwTgToOjwJ9Q1tmJ75F4sCrDI6f6PwrSp/vBROvgK OlDenbwIM//yMvz//DIibnsRCX9/HpsfmAbfF5Ziw9v0BN5+2LzAHysXrMAM b6Zn3rMxe7E/AkLDUVdrQWLGLry1dh7mBW6B3944hLIQCcumR8hhLMg5TjkB c04v40Ef6XCKlkkaFA0SmiFSgVI2zPTMdZqR1lZ5GraqM7BVnyGyZ0iImjMC +TP8m6PujHwln+vEx3WnFSv+RjYoVgjXIdhgq9TYwBzCWtbHzfTItDxKRAhG hygRHbIayQQ6hbRyhCcXIqmwSl2QNDMMO8N3Y094EGKjglG5Nxgn4wPwyb6t jBo+uGRajEvbpuE/y1/ChXcexPGpL8C1yBu1qRGoS4lAbTKF1Yu4xGq1OLNa XFeWbHDFkxXi7GpWOHH+6zBfrLl78jV8uobJt2MhviwOMN5rSLd9T8nBGAKM djxEvdvb26vyg9vQc/oc9H8rw+OxJIg8EHPMJruMDmvoGtZRfMkFf8qrt74I 7z+/gU23vYnYf76NtIffge2NeW7sZzHWe8+cicUrV8OHLsaXY/kEkk+7yKst FuxwBGGpaQdeW70KK6MOkwdNCDvSRi4wKmR3kQN0CTnkQN4pRJADkUVDiCoe Jg9OkwNnSAFKxVmaMKXqrHD6IyIJqBkhypQ68U57rB+Bk+KoPys8Ax//zr+c 1bhxml7itPIe1YoTtsoBmWBYyQeLxocoFmsiW4jKE16hiXygV8ioJB+K4WsK Q7Y4hTvbhFxKfg4tOCccFmcwNu7cjVRHCJr3BeEMg8cXe1lCWVfhUtA8XFr/ Lr6c/zSGXvwXKic/h5pAPzSSFw3kRQM9RP1hdR53DTmxbuqb8JvyBhY++ATi 73oOw/OmkVtiIfY89wVUjUFgPBHEZ9MuJ4J+rXf+9CYtNpQd7ZF/CsyuQWBO nXy9YW86PgqyYnmoajisEstg6Bx8SAg/pg1TnqCR3/0B/O+ZCsdTMxA2eToW TJuO2dNnYPGaNfALj8IGi50ORHyfv+Pv19HJrA5WzYV3WA2siIrF9oQCvLJs F1ZZMkiGDgodQrbuEE6SDAMkwyDJMEwykAilJEH5WSI1QsQolefoDc6J2FBz XrCh9jwRptSflzw4z3jhaDgPJ0U+15/j8znJihEeu+CGYIadnsNec1rFFrKC 6QbJRkaUMy1hQRgl4kRhp/IOuUwZspkyZFXD38rjCd6Bg0lB8lK9hblm7Yqc 4eo8JbIi6WAodu3eBVNYIAoZP7oYPy7s346vYvxxKXIZLu2iha95A59NfxRH H70LLcu80aKd2f/6Q3fhzhuux0M3/AT/vv56TL7up9hy21/w1Q61JHukIc/j RWQ9nbmobmmgXVFlovsa8do9BBQbfoz48gYEZrkkC4JyahCcqxgRxufdycXw sRzACpr2SpMDq8OjsTYimuEiGsvW7cL0F6Zg5pTpmEUmbH9nJmxvToNt2hys dzi84G+3s0Tzs5EMVpIhSuSfNqwMs8LXHI93N1kxdVsCth4sw44EF15dHkxS 5JIQnSRENxOGPhKCniGfnqFwGJHFZwjKWYIzQpBIgorzBI1SdYFAUmo/plv4 GPa6jyXYHws6NHxMInwsn73gbPyYCYOj4QJfXZDPbqIIkpAe9jrhWs6KKCOJ YatiUiKI4RLEYLUi3ESxmNtRbiIqtwkbnHFYEx6CNaZdsO7bjWKSoVQjhPuq vfJCAuK6zRHyms1RkYFM2oKxzxKMmrhg9DOcfBq3hW5/HXNBBv8tU/GfpS/g 3JsP4PDdf8b9P7kej/z8Z3iW8sZPf4YFk36JNbf9Gqv+8RucPrQMVY5QnD/Z 6yaGp2LSuOJvipEYnqYQJqKs4wRZUU4fUYmg3Bo1J/wXkqKeBXwD0WkkOk3Y k1wOX2sSVgQ7sXDDTsz5aCW8Z8+B94x5mPPvqdhAVxH09DQETF0A/5174Bcd A99oEoibW+t0MF2kq7HY4OeMx55DRTAn12Hazn2UJEzbnoZtB6uxM6EG7/k5 sSGuCubsHroK5SYiC4boJk6TFWRG6Qgs5eeJlGDFBSL3Md0E2VBzkcy4SJO/ KFnxCW4m6p/A0fgJWTD67Gy6yOeL7mcHuWJkiXAsjrpzHEtnx2nFjooBLYj0 qtSyUCQU7dgYe4iMj2K1ZaIbDYCdCKvL0upXtI5QV7TOVVe0Flezbjsilnl0 8NV1yKTbiI8Jw9YAlqjOELTtD8LZ/TvxRewGXLKsxKVAugO/t/H6r3+FD375 C7z7619g9m9vwprbf4cN992MDQ9PwvLH70TdvjDUjGOHsWnxgAfGfPD17PiN NsHUc/osAjNLEZRdgeActSImlNQIy2uUr815zcz2WwhTK4JJkbW7ozB30TJ8 uGwtlgdasCw8Bqts+7HasR9LtoVhbfR+HvramH0gsWNpUDF7sYpU8d+fiO2J R5ip0/tm1yOCMXmdIx3Tdsdj+u5kTN+VgWk7skmTRtKkEe/7xWF3UgfTilMa RYY1igjHcQ4W1wVCRmpUXSQ9KDWfENJPafifCnZ8KtLKhk+J/KdkgHy+ipT4 lMftbNKIIslxUboUR/0FSQy7JMaIjCe2qmEVS1yntMyiW2aZG+OS4WNz0lgs dIdmetBABNh3aNcpDpenil92Ye9cC47mWHCMz8fzLOjMs3ihiy9+hDwmksEh exBpDkJxbAi64/fg4v5tqNs4F2/f+ifM+tsfseT2W7Dw1puw+o7fYcuTf8T8 u27EB3/+ibpo875Q8iJEXNt7zD0e9YzSU5b5v/LiRwjMKELQkXJyohIhWtM1 LK+JLqNFvT7SiDW7LZILs+ctxPbYIwhnrmUpOgZrsRA16x3CrMRLdip+hR2p RXxVxM9q+Ld25u1t/D6lsIX5WjMdMXO1nEb4RGdiWsABTN+TghkBWZixKwfT t+fBlNmJXQlt+MA/HgEpxxlQBkcDinAbOi8qFS/s1eRDjeDEZ9JlfC5J8TlR /5zo87npc8aSps+ZaDibP5evnM2fKWkSPxGEuUF6FkWUi5IodiYpkiS1opzR YgsTDkv5SZl+hh6ph48jDr6OaPg5rIybEazIgphIbZHXJRYXdmjI0y56nquR g3Isz6p1GyfiRIEV3ZQecX2BQquXfPF9RBNohzUEB6zBmPvs05j8jzsw6947 MO+e2+D9p99iyW03Ye09kzDzzhsx7Y4b5JW9m0mSRpKkI+vQt8dxQeQRntKN 98fy4/KrVlyNA+W1CMoqQTD9hsAzhHYdmtusosu3NVosgr8pHqYjLTIBEz0U S7GYwu3SeyeyWcLisLxLzA134kZ+QN6UkT+lR/nFDo0frXTFzfDZm43pgYcw IzANM/YcITfyyI0C+hGGsqwebNrXgDdWR2NP2gnpKyJlODknw4mFvsJaST9R 9YniRO1nBPJzyQpHwxcEWMiXE4j5lzxkZ/OXlC+keIlHL0mRSZIYghaSFIIQ DCt2Q0ix1YyGE4sWTnwYEv2c++BPP+jnZFbtiIQfUfQL36a8xWVksOKYuOZ7 vg1dBTaSwUYSqJ5hb5ENvcU29AkpERcy54vvy4/++vPf4M7f3YrH/3EX3n7g Hrz4p7/gvb/+CR/ecQt20JME/fkPmHr3L9GaakLr4TC0HApFY1wITtW7vu2B BDoxjJXKe19PjBv1gDJ8BkEZhQg5UoaQ7GoEZ1WxBj2IOQuXYRYdhR8ZEZbV Its5UQUnCK5o5YjZvR45rWMr0yb9Xb2wiwYAZYJ4xTqhoptRxeYibVxdki9W wRYyxVKsmOK3j4wITMSMoHTM2E3PsfOIZIj3rmLsSDzKpOMUNsc34811exn1 esiQs4iSXkNjiIwmwmuQHbWfawz5QjDES9BDuIQvFTv42PKlxpMvRznyGffQ 0fSJxg+mLSKyuLkhHIZIRAU3TmF3mgt+MfHwZ7T0j4mlsFx3RjHdDqXKtqM+ LwpN2hXv5UVH6CCO65wgH7qL7OgpthN8u1pVd7LUfhVOlYort7/36P2449c3 4Z5Jf8Rjf78Lz932d7xx+18x/ZbHsHnSvYie9HdYf3+rdtV2EiKJhDgYggYm sef7e77tAXxPGca7RkJcM2bCSr9Jsn5TvJ9rkeVgOWvV1HyyP4akWCpJ4RMW h+CMJiaiqpMUmcdYKztJoos02kES/SO9eyR6BhNl92ASHFV9fCWEpKnq4d96 JFskV3SeMBr57S8kP5IpmfQeR2RkmbEzl1KExeZqyY/w3AGsi67GZN/9CDxy kvwgN8ovaPz4hAhSapT3sAtu1Lu9B5H/UmfIV4IgX9EsJE1avtDcyefSgzh0 D8Lk1N6g5x4jGkOGZaliqTgFv9gE+McexPq9++G/NxbrY8mQaAursjDW5zuY dFqYY4j7IVjHsYPMKJLM8NLW7J0qc6BfSLmD7/joxQfBlKwIX/z9xpvwt9/+ FQ/f9U+8+vC/8BLjyguT3sG0Sc9h46T74CRb8v79rLr6dkoY2hJDyZZgDDSV 6yenGktYT6s4xjDlavcqDuN9A5mH6GeZi9NhUzniYt8NmPXhfKxj2brjQJ7s RJlyaci5naoLld/LFEDvPp2S3Se982SjC7ZXyh5D1QDNt3pAzCjUDFD6DXJK 5AbVJxnoJYMqhctRzLGWdcI/voRsSYF3YBa89+TCmzHHe1c+vHfSqwSUYEeS 6H8OIoL5qc/eOkxef4C1d7/MQyyMN4oxn8JWqzNGxRsvyZmJOmN0RyJJo1zL rzXWqKRklDEXJWPs4xlTNYiADLravQlkCxkTt5+yl6+jsT7GwuLWhPWWHcxK LYwzVvoTEWPEzRDsOKH7kRIH+kodkirin6CKFwZcjgkYrCBfBl0O8oXvMe2J p/Cnm27Bff+6F68+fR/ef+YOPP+H18mZdzF10vNYP+l+2Cfdjtx/P4P2dHIm OZScCUbTwaDvePAiRr7oTTJ1w0+1vNRwY56J49fs/0yLO4Ix4gxacQL19u3b 4bNxE7bHJWFPSrHMyEK1eWs3c/LInHzRvSJYxaJ1ITpXomslppCGSIYh2Z0a EiCJtkStW8QE9RC+y8dBvh1QQi7ZySU7mSR4pDqZ3eRPKfmTSv7kUMibPYVe 8N5diO+RPkXwjWslfQYQoaWxPnENeGvDIQTzM0uFkT4qjbXXfyZTWC+ZxAr6 kE6SIlIEc76YyIfPBX2M1Gm6AnXobPz3JrEqTyRlDmH9vng+x1FInVg6m2gT /C3bmaJY6Whs6CBtjssbi9jRXexQtCFlTpEu/S4nCeKUIA1WOGnoQ5XyXhGV Dnz07HT8+z5vvPvWO7j9tt/h3n/8DkG+07DkmY8kcT6Y9AL8Jz0AG4mTI4gj boiQHIKWpCBxQ4TLToMXla+nJEXdyNW9nNK48FxfjG68so0i0E8kgfTTr4U3 0k+/DkrNQUhGKUKyatTEd7bohR2DOecEiaT1wQr6EVU8KJse1jKWBK5h2fGw V8luB9mhNTsmyIlsZ70SwlV/WiBVPywp5awT/BqUTkp1REWo6yOJyiSJZgbl YWZgAWbuKeZzMQklpAgzQ0pZqA8inE4ogiyKLBnBcnsl3t6UgOCCQS2todSS TXVkEutjO6tjeyPZIURWO4JHExRrWpQIOokSqeUzRm9VGn3qmU61ik5W0slU dJTUScJ6Vvzr92t02qfRaS89UXQYwmID0EwqtZFKRwvs6CSVTugeSFLJqYD7 qXbRoGh14SDKae0CQqer1fvhKgee//37eH/qFkSaQlCTvAk9ebvRXUaGllqx mOx6ftJ7eG/Si/Cd9CAsZFcKw1n9nrVoSwlGY0IgvuMhXhmzHX227S1FpGvH MUuIvvrDeO2c67VYd8WL/FyLnqFhBDMhCsmoQGhmPUvrFjmhbsruJMl61GS6 IJjsrA2zpDgtOypaN0U2Uxw1qo3iqB/xEv0TPjSIdoqzcYRylu9EO8XZcIZl uOCco25YeTPZbNWarGTajIA0siyfQlYFllBK4R1ECS6Bd2gJveeAYlmRYplI npc7ybTNCQgpJNOqWXrXkml1JEc9S60GijYHI4gjWPapsIIWhn5NrpKPN8q/ OJo/GSWXlhwZ/ZUg2B4a4vp9gmBJimD7NYLtc2KDJFgo4hOYoJBg4p4cxxji OumnukmuXpLrZLlT+amKaLIrWrJruErcv6U6Gj9WF6ihnNaFRItasRDP37kY S5bvRkJMEFoPLUFvBaOmiyQrpzs0EO1dEm3dpIcQRaIlk2gNgWvQkhz43XEc E67lN1raPDDUh+a2SrS0atJCaa7E0ECf+7bnxrm+yYqH+o3VjTwUos3nXHdl +l2ldQ3K244hJK2Y9Ksi/RpZnLWRfsdkLyc8p1c29SILB1RDT+vhiP6NvYpV TfX5MX0bMT3iVNPyYpb+PH1bdNN5JjiUxnOajEg2Ci466s9IJsrWf7Vq7s7Y TQYG0s8F0ccFlVHKMTOYEloG77AS+MYzYhYMkYGqwI8sYwnnOocV0WTh1kMI KeI4NWRhneggCBcl5ovtjeIcJkfTRcUuskww8RPh4D7hqxa+cjRfpJeTXxHE a7wgyWdj7WYT3o3O20Ly+e9LJuEOY308vVs8yRfP+m0/86w4J71bFMkXoshH z9ZO4h0rcqCLxOsuc6KXxDvlika/RrxBnXQTFOlqY6SIa6KJawsse246XnnG B1u3BiH/ED1a3nbtFjl2eYsccd+XoyUWLJLEex9vT3oJa0i8iEl3SOLV71mN gbYydcryNyTJmsSdInQhwTo72/WwqU59/B6GhvvQ1lGJJBaFyWlmpKaakZ5i RkayGZnG+yEcNGv35XUvj3KHXKMf/e+4+sMrc/UbWpLnautESGopQtNr5DLd sMwO2WYyZ3dLNxmZr5rPqvEseo3nZGvJXi1aS6qlJBoIjvqLJKBqEHjJVsHV JOpFyseMcR/L5+imC4K4XpK1LOobVFPaIRvQzBGrmTUdrJVFwcygEsVVyVMX Zobx2USuHiBX81kcFNFjcpciy84gqnyEmd0IVsRU4J1t5GsxPS9NyFZHstUL j/ex8nzcBZJxouAlH1ouCoZ+zB2xc78kO2le9noen3CNtTzWGh4z09X1+8nQ eMFQVgIHDjF5IEPj95K5DrI0kukc83C6xtZ8OzrITnEnnq5SJ3rI0D66xVNk 54BiJ4ZIzmHpB2O8JDcn4ExdjOH6XeLxh4y/H+CDaVsRZQpGLeNvb8Eu9DEu 95CtJ8jWTrrIo3SRHcWjbH1r0stYPelhhJOth8nWnpSEqzQKtrZXoqg0SVLw cIqJmb4ZaaRfOumXTvplkH7ph8wI27MeSxZ+iIKMA+horMRwv37f0x+h/Wgl Ulh5pGXyu5TMzHBkZ4QjNz0c+ZSC1HAUplCSKUmURH526PKFXp21Fe5T3Iyz Y28aypP/l3sffi3Fv61lA8GJRxCSUk6K1yEsg5lA5lGYMrtkv0xSvMDoikdg rdA7p3p/7BPZ/3Cq7oecxPZCNGPrJD5+Qnp/gugWCt1dNAnlFJQXVG88L9vr qqWuOO5/gPwOMPLbxSygAt5mctxMf2xmRkCTCy+kPy4mv0sFv+komZlYKkew cq8L72w/iFBW5jaGCJuI5A3nFXVFiHA0XbiGtBavms/jF3yv/5GxhTtjqye3 uUPC+1prhhFwpEbjN0P/gUTy+iBlPyWW/LaT3+EIjQ9FE7ndWqD4LW7H1UVu 95RHo4/cPkVuD1TFYLA6htwW5xOcdhP7bJ26DRcrBD7+HpaVixj3l2Dpit1I ZNxviV+AUzW0k2qSu8qh7p7k0u+eZJX3Alr0tCD4B5g86RWsnPQITJP+gSQS /HRphYRYONcSVxJSMkxIzSA7KVlkZDYlJy0ceWRmPpmZT2bmH6aQnflkZ8g2 HyxdOA85ZGd2nAlVR5JwrK5Sy0avx+nTfeqm0kdMyDrC7xwh2ykFWeEoIvtL MsUtwCNQli5W+VPEadEc38XxyxPUTTxK49WNPEr2mlEc7b47tvvMQeOJBW8Y yqwxlyYykv7b40ivX95MTPv09vZ+V7PW4ETWWClMf9OY/qa3kvjMPzJPkPR9 LI/7ZYNYriHRfLpVNIbdTWFBeFUWi66OaumoQia6RQkNgDXMzXz8VJqCMABh CJL8jR9rjeERWaKJ1UW2qgHM2JktCy1vmYBU0Kkr4ntH0BDCi1lw9TMREc59 iMRn+c60PIppuaWSwrR85d5yvLv9AEJKTiofXa84LbktjE1wvUl7JvuVDdwo X4tX9iYaI8XexFyLSZONAcjOACTtgUWklUYqbSK7Rvn7A0k02ATKAdrDPmYl MbQJK0t7M/YT42ZhE4UOOmHaBP29tAlmIyeFTcg7r8VgSPh5YQ5XjTEHIeL6 bF7SLH6F5c/PwKvP+mLrNmYmCbvRk78N/TXi2l7irmsOdWc6eVMxGzqYpcgb qbhNYwrepGksn/QowmgaiTSN9KB1SM8yITPLjCOkaw6pmkcpoOh3ry8Rd7BP E7cCK00RN3YvI3VLeVglNI3ATWsQscMPhfFmFMaZUSBuW+80oau2QjH3p6io SJS3Ws/JNkvJy+bwlGJaSKm4DVuWuFZOBCozIlBFC6lOi0ANLaQmWaz343uK WO8n7qZSIe6mwk254tSt1cvtYWhMSRxzX059aut1ZSX6PXKNN4zv6OjQL03y NZd++742NRGckIeQ5EqEpjYgLI3pefpxmLO6WR3SPPJpHvS/Yu2ENA/GA2Ue yjTsrPeleWhNT2eTNhXd8gXN4EtEt34hrOML3MSXusWoSt/ZfFGzEH1hjQgN wzL1WRJRihm7CuEdSIsIFilPJbzDK6R1eAvryD1F6xigdVBKBmkd3MXyYURV 0IorydzqM1gZV4Z3dsQjtLRPeXrB8AbF9omC9yJAjHDH7M0jygx0YUVrZw1h Y/0gTaHutDIH1hEWSkB2tQwR/iJEaCmQX3wcTcIJv30W+DG4N+Squ5+1MUR0 lDiZTTvlzQh7aA4nGSL6GSI0k5AWcVraQ6y8O2OsuHZlrLqA5a0y+5nC7Mdi FtnPRgzWiaudabfZY/HYzUDRSYs45tKsoUS7tVBRBLOhpdIi3pj0Kj6a9BhC aBEJtIjsEF/kCedNKaKUUMqyxA2ZItTtxUjRSkoVHXkVaVpFmlYd5me0iIK4 YCyZPxexgZtQRodeus+M0lg6dVpEoTVMOnTleG9AdWWiXAaZl2NGfi4tJzdc LocspbiyOR5No5qmUcNt1tE06rjNeppGgxD38scIufyxjtuuTVS3sqk+KO6W QmGgqnSGoSUtccx1DPXqYJx5iE6AvswxJSXFeI1UD1NzP9Kjx6F8hBymeaSw ek1t18xDLS8K1xadSfPQ0iWrWFKkRQ4xFeZo0MyjSWv2YqKcgY9udYuXsBN6 PmkirZ9pcxf6aqMLKnOqV5mTMI89LKBnbM9nNSvmTmgWIniE01TCRdZUBBN3 zZzH3SvsZ+bEXSyllA0ygNBMKsniKmZ41aexwJpNE9kvWe4l+T6RZnJGWYCS CTQJsaS2SSyqbjzDGlZ8wdbAHamnSbC8ttYNaaYxSBnA7uwqmkSijBZ+Bw5S 9tM8YuG3307ziEIwfVtDnv1y82C0kOYhb0NJ81D36RS3dxX3BTxTH4uzDUpG GpWN0Hgtqxbj+btEDhWAxNggHDuyCYPirMG6aPedKLurNRMx3g5Qvy1acThm PTKTZjIVr096DUsnPY6gSXfiEM2kINQXpfTiZdrNNCtJ1epMRdda0rWWdK0j VevECm7S1At1NJJvyZW6xfuUmRwK24oKmknFfs2jM+8ps4Vxnyr+R0vca6oS kZ9jonWoZaLFtJISilwqKi58TUup5ebrKA3chUZuvikjwgvN3P533Pd7EitD m1PV6tBGBjGxblgYTV2CGXUHTajdb0JNjLjfZoLHi36+ZjQWNf0oTrIVzdUJ Vy4ufqwXFwcLEJJUhdBkWkoKLSWtU66ccFuKWKtb6sFS5KTxZ6OrZ1QQEVPD X04cbx/SNmSlcVFWFmNso0bMRvdjiakcM7YVYsYe2gMr5hkisWI1McNcgLDs Xpjy+mAu4E4VnWL46Jf2EVVOqaCNiOaoWGLBCmWB9Qh/f5j2MSzt47Q404zU twv6N4oTD+zy0aa9t/1fyt4DusrrTNu+l8DOTDIZx5nMfJPJTKaYtEl3Mp7E jhPHce8FO3bcYpveexVFVAkhBCqn6HR1kFADCfXej7oA9V5AdHDNrG++/Pez 9/tKB4yz1u+19lEBi1dnX/fTdnlO0311XuJfpSZ+S2XwcUQVHRc4puDpOI8j ZU1Ug6kM7Th2H0/GrrR47DrmQkm+Z0YdZjfHhuQAdaQodegutqlKHFc6jY6O RlfH61oiuMGx+UUGU8/vwkEGU1XZh5k8H7y9PqbbZcbrW9nkSr16NzPWDShK XoR98xYqjbw65zWsm/MEYub8AhnUSD010kJAW0sMSAnoaaNt3JkC0cRZvv4t zqp9y/xenh5CZ8NxCzZQI3KJSysjn1Zmxy2ktIUOtCnRzr+frfecfQWVxVZq w44aakR2ztZVONBAfUjzcekv1FbGf7qUmUGJG2eL3ejm6CmS4UFvsScIffzk y+gr5m/Fb/fK4BP2BPZKy6VdYv5/Opvu+7gdnUdt6C+c0UrgItCrWiu6HPDF mxZ8ZHyOTr5uRIuW4/Qo2dTJCeokt1frpOhmnbjrmeQ2Mhdp+tDQySeGTj5V Ww/1wsr/zCyoKNfB0as/BqnP7glwKX/SLqVLipSUzZkPjK3MIptLSjZRRQNY cKBK7VdYGE25WDniajkqYC8ZQ1w5n7Fygm6FgWHtObjqz9GtnIfbT7ZlR5Ls PGFu46UMV3uLKJ9ipQRf5yWRBb5AgVwSCamvL/LPLvI5fVTHLOU5RCPeDlkx 93Scoz05XOqnNrI4MjjSsCv9KEcSQo75EHtc7gWPR6fqfJp4k1ZGRCvNKZgU rRh9ei91yKULFMqs6eanIpcgJZRvqvtiX/jP9/H+Ah1pdeTuUzePKql0ykln kUrSLVIxb8DzUFobUZy6BCWpi1CSvADxe+YrubxCuayZ8ySiKJfjlEvZ08+h kzI5w3FWevh1USuz0V2oe/cZI0jADFIW/Yu06XIOyIKt61byow0dOQ60Z3Ec pz1nANSabEdPfrYO9u9GR3M2ao3uW/UVMhxorHCoQwdmO43OMqqk1IPuEg96 SkQh/C1KvOjnGOAIwkCpl6Id5OuAGh5+34N+Qz7ymNITTR6t66QDXTlxOJth x2mRTFHWV26TqbwSqBjdBEI6w9xGJcZWnruRVdEOaxYDrxzmJSe1TOwBMpG6 p2yx0jIx3clHqk6V0Pmx2tAgMb5UqfRCEHWQbI5e6qFXFiblq3/jn3067VoS AzSSIBppn9GIt3kCa+2NWED3suAItRFbiwW2aqzx1sNWNEL3MkqdMHmq4oPW UCu1k1onjRz+83QvMvhzWmVcoE4KqZPCWUoGd1IWFygXPeJnPiqVyMsU/olS Oa9kIiLxdEzC3SljApFlDZRHBkc6xzGOFISkJWJnqgeFpzxaLnQtZymXntok Qy5M1ZtELslaLsq1pM7I5VsznsX0LpSKd5uOujZujcIJRl1DJfspl+S/IJcE 3b/R70VVzmaUHFvKsQSlRxehNGUBShLeQ3rcYUpmPiXzOlbNeQpH5vwS6bIz iJLpolnvkUGz3suPtOfF7lnk0S0dTUlknzF6DRFl2vchmIJpybYye6BRJ6Gd DII60+1oT7GhNz9bn5r8KkYG/aohVz3dSwMF0yCupcKpdlwH9p85W0bBUAy9 HH1KFD4MlvkwJKPcF4Thch/uwnCFT30mY0j23ZbJX3VTW3y6YkPi+U705MWh W7bFZeh9klOdjUbH6JtzmJuEM1u5mnvuuQc5OTlS4vpXc+nizCisGU2wZZ2m W6FWTg1RK2MBWrlErVxhlHNNrQ/4Wj4g0hztsgL6kVrHUruQJaqS6KpbtJPU 8wmZFGkk936qP/I7Sb2fyJ+IqqStU6JaSphRS7yqHF2cVsvhoh7MD63E/EM1 WBDNYanC9pRW2AqGYSumpMtGGJCJYsYYkI3DWTcBV8MEFUOs/ZN0Bs3n+BTe lvOw1DDvsWZSNPlUwRSDq6nZIgpRz3n+HZ8oo/2cMSapkkkqZCKI8pDbOlyd Y4goraMotEBC0o7SlyRj57F4RB1z6qsvpkWSQJFonzLYaPoUo5u2tC7XIsFl I/7S7cvv0Y7lrB6bXlykYq+ICAuqGXtNMvYSlUi78mmVtAeohDlKPx1L1Ykt KElfhtL0pRxUybFFKEtdgGKqpJlUZtm1Ul6e8wesnPM0IufcjzQqpZJK6RMz zSEmezYNuIfxyxBfB80hf0YURTp99D3J0SEIXr+SEZADZxkBnTkRhzNZOgLq EKEUZM02YrBrVyZUh7SGMhtzEzu9ShwHY7AK1y1C8RpCoX/k2zlQHk8lxEvT zXha4ZFKved4evDrIL768DcYEfFUeFWjzoEyrXVpl9pb4EAvBdObQ1+XaaVg 1D7SW/Ui3mPuzWlMdna2Cs0kjTH7uzZ2UizpflgzO+lcepirDMJeyPim9Jyq u7qqRSzMVRqMxYYWCqb1hlpIU9sFZE+lpOVCftdHSghfoCQ+Vrvq+D0ZXYYi pCYrdVVDFd5WItoyAU/LCEJSWzD/AJVxuArzoytxIP0srBSutXAIthJRBuPC ihEqY5TKGGOqwtEwTmVQHX7+jCaOZiLeMklp9GOhJQNbjlXIVUJt51RMdU59 Jh+DlCBm82v+fQ5vO//f9gkJtcbxLxTImJKHi2+Ns3MYjo5hyoISOSYSScHO o0nYkeyBv8CrOp22mjKpSlQy6QuQyZiEXqZMdOilO54bXc+vnNEXgQcpsfyb irvmMe7yOSXu2su/o299v9BpdLxo1zIZNWXSEo8mpvklx5ejNGMZyjKWouz4 EpSlLUL50QWoPbETrXISgjyesEdRKguUVJZTKocolaOS2j/9vLLMtNBiuOW8 TLk+NKO+ZKowRHM/KEPZbhc8h7bjaOxuBmWMefIY81AoXdl2nEm3oTPVymTK b+TJf4/TTVloKLUqlfilC6rEXxVyzs+NNom/pJuRqET2vJVplQyKSviOjjCg HWXyNyZDNtoam22D+BpPbzderbfrj1X7VLPO4Up96KdfDgKValH3US59Si42 ysXC3zIzMOM3s5iXb95v/1mp3A3LUcrkeDv9SjdTlQHYCxjelDB7rjjPNECK r5RKw+XppQlf6zW9oaHDXI5QSw9nP5DdhF0fUB4fUigfysdZ8kmQ+s43+KqX JfQS3Q1VqJWqVHz7ZcqGqUErY51Wot86DHdLH9ZYazAvvALzIstgyR6ENZey yadsijhK6fvKKZ1Kclw9QumQ6bpRhmEinzE+j9s/ji/B3TRO+YwjtroPb4XH Y/PRMv4bE/y3JqY/etsm1L9LnbSN86V9TMTSMcbBH9gxQsEMa8F0DlE0g9iR epRiSWXQlYztyfE4le2GP9+LZnXrVTw6OMVnKJpuUzQMwIYN0UwwADvXKjlL Ki52GP6FormsEhWRzhwlHFXz+uV6bGL0dfJoLIZL9t0smg65PSsJ422GaFoT VFvG0uMrKJblKMukaDK1aMrTFyvR1FE0HcqAy9kyD07Zo5VwXprzBpbOeQYH 5zyAVAon+cX3lZUWez1W6ZulzhF9S50okm/p4VWnz4b5Y4ZoxDvzbNi0ZjlO uMKY1zjQfYqRj5wQybbhrFKPGPMJRdy1K+OoL7agkerxm+pRR6bFx3joY4xW UGWGcspFOQlUAZVDxcjWdKWaGtlcPFGbKEdYZF/xZJ0+ySBHWcale2BNvGqv Olwle9t1Q+Jp+eRTPrl29J2wojsrFh9eGDflE3g69iUtn2/cRj7mhfuZJV2w HmMak9HFsEwqYiO6IlbOsKzKLM7K2sUlvW7RIivRV9WOi3gpasm2kDN6WUJW 6xK71An17huy3ajnBmVzQ32lv3cP//y6WtSQNQ4p4OolDHPp4gIhpozaSG/r EGXUC1fTaay2VmBlVDUz6gFKaQgWSslCKVmnpTREKZHuapJew1FLSdWT/AYq oJHDP0opjdEbjSG2qgdvHvBic0oJPb2nZYxBmbt1lP8m/077iBouuhZnx3AQ X4YYlDn4GiejfRAHiyuxIyUF25MScCpDFpApHmYuzaphrSmeBHRzdvvqkjBg iGeUGcyE6gRjeh0toCDld76lBCReR4YKyl7YhUMMympyGJRVhvPPKR4KZ1o8 7SKeRCUe6VBbl7cV5ZkUT9ZylGct4+dLUZ6xBBXp2uM0FUTqyEcds/IqMgvt MRTQQgroTcz79ktY86MFOPnAMnS/shKjDLDk0B1jookaeamWdr5yCG/cOJk3 ojRE/fAndp7S+ilICNeBkHHCqifLhq50Kz1UpsJtfKARjSUW+JnM+Mu0bvzU jXidVv6cjjLxOj700Awp3VAzQ0o3idRMImWRSHkkUSoc9Uly4CdpFl8S6XVk 475ISKQjrVRHapj88Dn7K+VQGWUj3dKLnJSOHOGwoe9kLC52NwauWZrbC1/U sjHvP+3v71eykXZk/2IGaIxJLKmUjQREOX2wnWKAVkTPUzoBR+U5ZjPnGaBJ zVYOsoh0LqnFagmylNfovKoWK0QCibJ8kdh1TW0Lva4V0q3uAuH3ZE/INeOv cnTqVQ0p9+rVjCmJkUgt6W0bgKulG86mDjgaGhEa70dMaj9iMwYRS9XEBqqm ZEY1cVWinCGqhqNumE5omFPvahgWB9TIr/0jiKnowhthbmxKLqKSqJJmcXL8 Mw5xeK429f+0DynNBCnJ/KMhGv5LFM6BggoEJyTiVBqnXO6MOeFSwpEmNqqz AKf7tFTKKJzeukQlnKFGLZzArGZKmn1QOBdlEVK082XVtkX0o6K0hQcRzyit k1HaZcPhTBeT6XBEN2NticbqwddQQb0E/ldhaKaUmuk09KIOGDEOUscS+ZjF Dq2bF74fjLCHU3F6Yx7+15mGq66Ds2nLE/BtOZmoTyjW6tOK0qtcwqHRKoqG QA5ROJ35NoTvXK+cjwqHKJreEwyHsqw4ezwW5+Xy8MJYCoaOplR3m/WX8V2j w2ou86gGc50USxcfqZdjoELEkqjEMlpjiEWdaEkSneBcAwVzXr00JjGRl+MK ctJF2kNP1CeobrUinCE+6wCfs0+Ew3+rj6GlnJLrK6C/ybdS2DHTK/2BZQBD NYHNc0NCQgI6hNyN2MQWWI+egTWrF7ZcKqZgRJVtHRW6ZOuqlXLtlF7pUKXa i2qVQ5yDIC+rGEFqRUMW/a7Imp8aIp+r+IL+uuuK/rMzMmS1Q614qDLuRdow WeqQupS7nbFau6DbR4zPwtHUhrj6evWkGYwhY1IHEJMxhJhA6RRq6djKCHWF IR9Kx1FjyoejnqNhiALiaBxCdPkZ/CHUiY3JBXA1889a+H0OJx2cs00EQ4XM gqNda0VGEBUzhH+AvW0QttZ+WJu7cTKZqWyaXe+7kCt+83SqM10RqDTLZmZF IGk61TGjNkM/Qapr1beUei51psCtgrUN2BwchVwGa0PF+9T3RTcXOgIWYgzt jLQnaK1QOxXZHDnycRm/Xqq+X54ufY12098wCjKOW/WLdphc6yO9CSh1xuLF e7NwcMUAulIn8P/4zlxvLtVnOGerM5z3yKc4V6fO+VJFVFCNNJxnMlElh8Xp LqigbRtWzihITuYxIurJsqDKtRmNRbHwl9DVlNDVlDq1ekrl4nAv2pn6n6bD 7ioT9SRggMoZVsqhY6WLmdAuhuqgw22ULcpTftnqeUH2L/v1Bvop2c/cqE9s jFNFo/VUT620f/WhTxRUYSqIbqeYbqdIynox+OjS+N23SXZe0AL6ZoCAZD9A bW3t9NnRRkZHluTTTHh6YD0xAJsqODNiK6OIKscZ/Uww4ZmkiBhF+c067gWV oAj+ak1D1jbUKkfCmUuybn5JfUYXGn/a/BsXVbHXZ6x2KLl08CdLRkFb7mzr Ican4fC3oGlsLMjYtnq8YAzRqYOIOW6o5iRVYxQLrMVGqGYqp2pGOY5aQd5R J1qgaO5EVMUZvE7JbKBknATDQbk4WsWttA0xF4xrM90Kf6YMfm2jmqwtDA+b ejBx4yOMdTahQe4nT6NcsnSc1sQkR13ty6m/NU4bDIjTxN1QMkSRevk7KiaV EkhVXucCJbPxhUX4/Qu7ceiQBbU5kZioOKC6h5lSOd+u3YysW8p1/j31sVou lEqQEstX+Tojl1LKpangiD7LSnvep2x5vBH4JBhnWRPh21+EtXsnUVZ1ARcn z2GoozJITrSqw6xUizrcKt3GOSbr5SwRVVOnVTNcQ8WQSAmGst37tWpybUYw RLt+0oo63xbUZIXBXyyK0Y1M/SUMb6WnsNxVTS99horpplr6KhL586gYqmWM ahmnUibqaSYatVqCRC1B6oTJV9VmavnMHCKdc345DsA3iA87TNkM1MpxAZ92 OhWUDKXaV0pJl/Dhiiy43N9g7kIOXOV8XkvmX401m0DJmFekm93+/tHwQZkF pORoN31Qv/JBUuS1l0iBd1QXeGvHGQLp4q6niTJqOadKYr42Vc2lH1J3unZe kLVCWfHonGKgZErFKysexmqHi0m4U1KJ9j5a+y44mjuQ09Vj7BP9OhraLyOK XiZa9JLFcYKayaNmCmaCNPE0NgZqdnoau6GZOGomjppx0NM4KBgHvcxhSua1 MCfWpxQoucTJaBXHYhfhWFtFOFZ+09I8gKzuMSUSlc6en0CtXB1/lP5F9vXl 6ISm6da4zFjBHJAlmWnfkqzaW060Mj6TBkIc58W/THXIKY4X/nMe5i86iASX Fadz9wQpdfyVSl/OtydPa2SsXeukvTxUn+IXifydkoj5X1nGYmY0G3RVip6k hw/VXxGvDvCOqCpUopKIeYA3zVeJyvJq+BurlZEmiY1Jcn6X2YIc371HSeZ8 I4Wigh8m2xTLCF3MEIUyUEUGK91IsexSQlHBjwiFWU6ZYxmKXCvgL7IHiMRj iIR2hQI5U0a7QoH0USCD1XyrKJCxumQlkMlGQySigyYajSbZbH2xmW+anIi5 SwukiQLhmOCjjvEhhxukfTB/ZT5gX7URmVVQIOV8sHI+WKkVo/6M6eMngaua z2mF6Nsp7phWiPxnNv36uqGM8XMfMkLrgiW9jznNoCr02oqoDjmHVznCJGGU 6hijOsani7ve5kmqY1IVcX2qiKvXOeI7qRiOeGMYn8sfn8Pf8FUvfXjpVTyU iqx+qMJuBzP39gFGQ720+Gdg97dh4vqNO4wt3uPnP8bx0klEpQ8imoqJpmJi qJhYKsZCxVioGCu9jJWKsdHL2KgYOxVjp1rsjM3sVIydiomjYiKpmFepmOCs StibxQPZWkQp1MhsWJRS+IP9/cg4O6oVOwcdBdmoS4lDQ7oTjfQqjdKJJN+j OoW2lUq9OR5np72KmcQkqd6/o5zesRZdBZBkRgmGyYxzixF9bWP0dSwWg0V7 lESku+i5aVdCE2vIRDpxVumsJQjllMrdfF2Gsmwtl+L0xYwLo3DazAzo6Pol M+BjjUjpqSYgK2hIUrmAIRF/0p3qzPIcOe1OEOU0s5wWpEII4HhDvBHgMD2g SvpFJQxwPIe345hlt74agSlC/pF3cOrIu1SI2RNZNhd7dPPh4s8qZKhGFEJD QnVMNJjqSFHqmGLweqFFrtVnBPsVdVBRTuWIQznXzLeFjzjGRxxuFH1I2105 geDVsVcVnUgV465KPlY5s6ri6NudzjLk8e+3ibm+Yay+ZuQOIDalB5YMOo4T g7qIW6xDmekCrireMgdvlCqTLtp6WmYKtN72SaKvljcU+vzMp8ZEkFrn+BJf x9VCh6dzjGrgT+scMZY5aODb+xn6dBPT08g+22P0NroLDUyHjlAKUZRCFIOt aEohhlKIoRRiKQULn9BCKVjpPKyUgpWOw0op2OoU7g1Cuo1SiKAU5jLeCsmt C2IERRXENonriPEPIqNrHOPXPzZu8P0nVCfY1emIhgziL74iLyCHLzN9hV6Z DJTAsPROaNISGDf6rorf2CDR1Iu7ERmpo6nRslBKg7GDMP91VeMaCyC/q0HO AmrUBf4yol9K9Ev4vaIMHVB1lEqgMoO/HLAeqtZJ8dit6PsV+k3Js3GJVH0L l/l6WY5cG0OOX0+Rs/Mck+RsnGOUUhiuZ0JTSxkY9rg9X5fATjK66qNzyI/6 I8e7KE/eoWVQxPeqSAqFPsogXsngbDnzNeYd/XQSQ3QSI5TAeIPhJPwpWgbN cuxAzut8TangUmvgoB5a5TSPnGCgHvisY03SapyOp1H0IO3HDU3UUA/V9BnV 9BmVzEPKYr4WoAdzi+WzWg//cUsSf+TIEUMPX0FG/ghijvYjNnNQVWKtBYF6 MKqwtVJHGlHVV7d/lJrgaB6TeussimKMP8bbOk5pjE0PKfp62vnXmGS46Qbc jJzU0kWHXraIo1uIa+uFnbl6dlf/lwwN1DPlP8wnOUJXIHeiRfFposl/DPmP 4RPFkv9YPlUs+beQfwv5t5B/S71owEINfAHhTNHn7ndie04doiVlbxjE8TMT ivu/MoK14dYm1CQ6UJfmQj1NfwMTioZTklD4dEJB2M7chn3Jw6XX8DDZFxcg jU9FAy98XwdHiW4JjnYrPQRhrFWujJAke7RNN142m/a2VOw3b7IpJfclRnSk v3eXbnEs3FOC5rnvgWoJ0PmjJJ0l85OK+WSVyKqz38Yx3FliWO+QI+D4NhlL on1N0rxzTPgTjBiE4VadPsLYV62DdJP5woQw5Ee/i4Lo91GRtEP1XfYXuHWD anl/FO8JOEuT31M1w/uoyTtZP0fWz5N1dexATqe1pJLtVM25nMqRT+5SuE+1 6AM7kwr3pBnc6Z366szzBbJxmrjXEvdq4l4RaxzBvTmBeEbzbrZ8lGNZ5grJ PxlHBFQx6Bh9QJZRCCow6qfTvM8Uf3TRZ5jMczQNk3uplY6Q/RG1nu7m8LSO 6EXCtmFdgGIK6yLkArqunM5WSw32NiYoLT3I7h7UpxX+BmMXP0F9D4GnsT/M 6OwIM+soSi+6VOpMHIx5ovlIMXykmBra8Wg+1x2I5pNFcYSXdeHNXTE4Vtli XCbyFbRLq41kOfVGrrONdhtqCd07zfXpKr3bpNvgWhowD5Dr2tLEIGSeSKL7 XDR/Mx75XQjeW29FpMWGgYJdqlXOaKv0YyOHxHmINnyQY4A493X4UHNqs7Lb xUyMi2nDi/ixgF/nHV+K2vwo9c93lomZFKaZdNJUynHyYRVPk2nyrKIF40h5 0AzNHCm43Cqx9ZXW5FnqkPkcdYXGBY6pZoY1HDp+SFA3GKj4ejp+0AlAe74F 4TvX4UTkeyiImYdi52rd2FjYltpbocF2WQDbDGeGGOwrthtTPst2q+b6YpvU r9ukc6OcsBG65UDmVKtme0L62EgvuyaD7QbZ9GwcDJCe8PXSAJds1zI/rozV 3bVvua3jac32t26z+vdPxsb+jMIxxKQNqvTTZHu6VGMUOAOLm656xXgQXH4p 1Lj56mKo4G7WNU0X00yXWdP8wk01TVWskXpmSy+JHjYODn8RY5c+Rl3fVdT3 X8UxptyRtN2RVNdhPsFhKiyyXMZgEOpHrhLl+pEr6n8MvMFRo/xfnK6TqE51 oTbDzVDCg3rpG2LsBlG9AqV7DDPG1Mx4HMtORLAjEdud0kEmCe/sdOA37x3G g8/vwiMvh2LhxiiEhh/CrkMWhMQmwR6fiCz+P7VSKiTD/e2MLchxDzmWuKOI 3BZmaX7zM5chV3Z9nNirZNQmHCt3TwnRRai8kFIaJsNjUjhR7l4zrA6eNxv8 tojrJ8Wz9PlzuSPhHuHZcPwEmZTcDDIjHZKijuKahloC4Uo5CmLB+uULcOLI PAYm85jk6z5xsvTfFADyGQVyUgDIKTMgN5sgpyqQg6YxDlIU36U2/V8Qhltv YdgvLbSk5zCfTHYkN3p0E+cGMlxnR2917G1v+nhKM/ztz2X473C8cBzRaTR4 mRwnb1njCig3mqVGR0CR3kmAnQTYaRTmg6TOSJ8vhcY4Y9jbAkqMzX3I6hq+ tb2zUKgDkvtwdXIS5V4nqo66UE0Sa054UEsS6wt8yMvxITE9frqzcbCLBHLs 4HhubSx+8Ydo/Pp1Gx75rxV45bUQhGwLReKhLXhzTSx22xKxy5JIGjmiE7Dz SDzSs+LRRQLPcBSQQiHvFEce6Tt5nJ8f38QARQedbcUzFIqh6qsWCjk7QiGd sKJQig9SrWtOmQ42L+tj4opBfAdX1XHAZHVFhwB5ieNim5yHIooqBk00YlCi aFx7oByy2NVqyck46VUO2EPmKRxzIufrlsaSR6j1wAAUafC7GSv0EcVBojjS oG3qxG1QlN2Os9TG4Lv1yZM2fQJlSprMt+q0W2AcNmHk6PPHq/2+fdJV3M/n aiSMDXb01MRMwxhoaAwYv/O5MH5V1/SODSI606jn0UtbzPp3YC2vWtfw4ghj nFHDiyOMcYQxrpkWVAp4X5DineJOl7eHVF0i1t+HxvGL0zFLYPj+JcMUXiGE rYW5qDwq52M8yEzzINQtre51b/TNTt0wRdoo7XAnYmWkC/c+G42f/caFX3zv CB69bxvmL9iLw/v2IXrTFjwzNxobI9zYIxBaBULdIGNnVAK2H4pHSqYXuXTb uYTuJOHLSefH9I2qTauU3FWBpCReu/MKE0CZ1SR194a+HcYEUMN3cQY+XG43 7imYrW7hmKMQvNR+C3otcvKa6DUJerTT6qypYQnVeVPiV+NEhXc1IrYsUPip 3qVSxTmlraCkZu2GFeyuEvSSP4PeZLPgl0obl8p/W6E3W5H3FXWO40KbPtPx Ger4WH1NJE7aoDd7dePsJlLnF+psGD2d+Y+3WRV6UkP33c+F7isYO/8x0ssm EZVplMQIXQyhsxA6K6GzGqUwG6GzSf5vlMHshM7uJ2y2JoHN1iwGThe+dPHL TP8/mjbAn4FNL6T/GGtjfFhnScB6ewI2krAtpGtFpA3vBx/A4o2hePa1ffjB tw/hv7/rxK+/l4CH703De6+7ELzEhrce9+ClR+1YvM6O3fZEbeqspMts0n6E pB7i1/t3wuteg8xj4nB3T+cZmjCfQViCJozmrU9udxHCOHljcvuFX99+MdUS QJi6AeNyu3Hu/7v6FqKOmSHfnSZNGRPjVLNJGo3IQKPhc81jm3UudWyzIX0H A8f5iNi8AN4ju/VuIfqCJvqC5s+QNmPkxkjauCItlWSTtBZN2lRb6izBbZaC 7G8DMJNT1sSMzzTQTMxaiJnq8+01en3zeZqIWaMNl8b85s7jwNssntCYfS9g z4sk/rLn5RtGqj124ROkV07qVJuIRRfqNDtW0mwiZpEUu3omxbYSM0mwLY3i WGMbJbGJkfS6kVydVem1+c/JMU4TeH2g7l7V5Od4Uy92p+Qrxt5aF4r314fi uZdW4PcvrcLbc9dh/qubsPLF9XjlFztw3z0ePPT9TDx2bz4ee6AUrzxehj8+ W4hFTx3He097sGz+IexmyLeLdIaQ0p20hdst0jSetpB2bEVwGJZv3I/w/TE0 B07VrF2Ku2olpMigi87zrHGPRF9t0i10GRUbgyzxPpclMrrcLqeDrxhHIa/q EaTgukcdq7/UISfAbsGrxcQrQeMlxqzBDP5pOerlYPt2hVf2oQX6wLstjMaM eOVrQ9bGnPs08eqite0VvGqTMcy8ZJR4jfFpJ5oMY8YnFmM2S+3r/KrypVOG FZNnkmDunKrbSRmbYSGfbaCFPrSVmLXyuVSzcj5TCzFrjkOv34oLo43mrt3A 5YjHNWb/eUu9dWaTyBdVgptWP4nDjOOOMI6LImLRZUZyW6WT22gzuZ2FKL6m n55Ew9hV/PA2OKn+4vg5Ttc3Ic2VjDX7HKox8asvr1ZYvf/6Zix6azuWvbcb qxaFYjPd3v63tiLyzU2Y90gYfvGDLDx0Xzme/HUlnnmkEq89V4V5L1VgydwS LHkpDTve248jS9Zi96ZQ7KTR2068thGvYGk0Q6O4YXc0tu92Y9sONw4fcBox t7F5Q7AqNbFK/CxWNFgTAcnjrVjNUkQxKOsMsFcd6lD6DFBtAUA1S5dUA6ib InFOXoOTUMUhP1ryg/moTNXHwzNcEcb2YA1UZ/kMUP181qF6w2YRqDE+64Rx rPGcselkltp28hUF03nZhNKqA7JJE6gWvYNxgKOvjUC18bna+FxtfKZWpwKq p9H6jVviMSneGzB9/y+s/pqtfs3/fezyJ6hjqlk3ILuG6oeu8mVYLiKt4+vY 1Y/VX/uJen3wpkKRfOdYlB25HKVRcVg75z7s+davsOtnT+O9V9dj4ZvbsPT9 3VixRK1iYu26w1i/ORobtlmwLTgakSv34NDafThIXxi6JRT3/TQPv7i/Gg/9 thaPPV6DZ56pxh9eqSKOlVjwei5SNm9Fya5VcPJj5HursCvCwoQ1Hru8x3Ek rQbbw1zYsd+NHXu92B7ixpEDxn66/M9ipWJowao+EKvkgJpEiq61taUqX5iq bzT4vj4P0amZmmZLjJW64eNz2FJBte+WwNqpMj0xWPmH56lNTJWpNuwN3oBq aSInQX+JUUhROjAfmAZLjss2arbGb+FL1tGEsXPKictnf8vvabbEJwpfUn0a aqOxErba+VztfK52Plc7n6vNgd5mOy5NNP3zbQKcxzRfP1Af7pzmK+C6bmFL H+f5MtJIximO3c/IHQ3/jX3ffhBR338Ezp8+j8QH/oBjj82D+5WVWLl8P1av O4S1W6KN8u0PsW6/A+s4g2sPurHqkBtbdkZwxuOwOTwWaw/EMGFMwoIdx/Cj n1Tgvvur8OuHa/C7J2rw+LNVePbFKuzdZkVu9H7URO/EicO74dq/D45Nm2Hb FgabtwCOvA7sOOjETv78nWFe7NznwY5dpCacb/5tDFG3aYiMCRD/NqEuhpkh RiX/fMfEvV02zpnNVuDMUdBcVrAwmWy/HSwJChY5S6Zi4iaJhz1GPExYGuPQ XhCOvPD30XgsTnUYzPMdweZ1K5lQO3WYXirBU8JNxkg9rzrkk4LRJgMaWVyX LXBfVdyotVeOCSM8HzftkFGlHDSqO5oV4cStWOltdaCbrHx4Y+JfbomfhJVH NSs/vMWxiS163vB8vWeG4T9aibKYRFpYO2LfWIjNc36BsG//BjE/eAzue19E 0oNvIu2J+ciauwK572zAqcXbULB2N1I3h2LNjiis2WvF6jAHVka4FDoLD7uw 2iEHOvKxNTkPceWn4ZSOVmVnVTua6JN+hKWVITy9DO/vyMBDL5Tg57+uxi8f qcbTb5dgcXgGgl3p2BPlgTPyIAqsoXBa4uA6ckRB5Ny4CZYtYQg74EEIwQw5 SHgOcOz3YOcuF6IOOowlkPjpJRATHtkqMmxcDCFeTKXsAZdDXCQ4ckHEJbUP /nKHYXa+jcsGPZcNc3M7goY51GnE5oCMqllCXcmqSJA/TmVVFe5g1ZeyUfYd Z7ngitytKJImt7e63l55aLUZzKRIbwgba1J7XWapnWF3aWLUar6OukcD6tsD Qo6qb/NxOvg4HSSn3Yke0jPUnWPsVLo5JnpEo/OjW9bcBB29HPcP6Cc6Gx/Y ivwntsHywyfg+fnLSP7NW0h/aiGyX12J3Hc3In/pdhSu34PCbQdQuC8S+RFR OBkdiyybFYsPRGMePcjO1FwEc4TmVjEr7NTm507EVZyBo1zaT3RxdMNVJqMn CO6yXmpaust61OiTfuOzVce4b/C1B9ssGVi1z6qqUjF2L1wmO3v3wrFuIyKW ByNkRwxCIrwICeegy9q5x4lkl1Mzo8o8mhnz7R+evkzEzLXF2EypWOJCADdB Qs4dipI505ycb5O9SDT9gZxIrHprSqRiVc1Jb4MV/f4s1CXKPigHGo/rtW1L +A5sXr/KKArEq1tP1HHCGv2wss92gA8r+9RNXuSoOpkJksU+eUkKUj3pv4Th VpOQBEVIb4cPvZ1efnRzuNBNSs62xIl9maYkMNgxKPlxwClrWa2SlVk6oftn cnF9xM/8T02xvgL3X5Hl7UTY88U4HeZHNV1Q/vIdKNywF4U7wlGwPxKnDkXj ZIwFmXYrkp0W2BxHkHY0CXvDGRMfPQ5LSSOsqiFWK0eHIAQb2dGNsbpofbrJ UQ8Z6iU/fQRHhrSdHJDzaRUDfDhP5QC8lYNqzIa3aiCIL/34Jl/7sMVXigXh idhjSYIlzqdxijwM5569sK/aiLBFwdi2jTiF0xSFuhCy146iDPf07KhdajUa I3VxQKNWrxk0nG9NMW5uStVHcCSGJkWzFD/fZmCjA2dNktxzqUkabTEOdrbe JutpJUktTK6b7OghSR9eG8doW5O6bqzhmNwrSZpOeGA5uBO+2H1oKbmZpm6D JtmGqnZukyg5qDpEmobVIEOyfeLLGFLJF/8KWRqQmMZgSVYhuslSd6cH3eSp mzydaXNiarJ5emtL4Ank32lEfnqbmtL9RjB96z3F5tczOH2JOI1h1+ZxtJ2a Qkd2GU7EWnA8zopEZyxO5WairdWP+pZ69I0OGlTeBV/acby8eQ8iTpYToRbY yttVvz3ByEaE7DQqDpoXB9FxEh0X0XGVDRKjQYWQFBG8lcOkhaNajTvgqxkm QL6aIXhlVA/qUTWA4MRyLD2UjP3WZFjtBCrWDmdEJJw7d8O2bB0OrN+LXeEE iT41JibO2MWlgwqReb8RNou8x4wLjmZSZrWlPkgZpdnqILHU/xRDHbKhT221 bxeXYVahNU8zx7YGVWDqM5Iez0zSQ556m2zoqrcYN+v/OzryT6A2ZWaltizD jnWrlyMz/tA0U+aBZzlFY+5CkDOc/Q36KFp6ZiJqSqQCzl+LSA1IwYhs96vk K4GuKp7w+NBF93WWQHURqLME6jQDoP7ek0ZPzZsLlA9rLu69DUy/NL53u0YB gd/7a8OoxaZcRmrpeZSenUBNc63+9teQ6e/Aams85gaHISKvRvNCdyWs2MuF lX6yMsAxSF6GyMow3BUjNDXSYmuEIEibLd1qy1czFgRf7dgs+OrG8M98HUU8 h89szFY7rHAyQdqeXIkVkSkII0A2KwGKtsF1IAKurdthmb8CoatCsOuADUcT HNPVoZno2XBmygoZkaiYodkmO7rE0p5yh6LnbhXlqIpLYOJOVkbadBIj4UV/ YBIjvLQJL0ySycvFcb/xBn8DVycnUOl1oCZgSbQ0I04xkxHAjGyFLy1IwFGy IZ1xg5lrrDlow7IdEVi7PQLrt0Vghy0JO2iTt9PNx8YnID07ARXlPpzl88ji UxBOk5hZfPWggwFza4tzet058ECq7vmOn92GlV/chotZt/ne14xlv4kr12Ap rlF91lbbU/DKtkM4lOcnEN0cfUaXpEFCMUwozLZaozQhurWWt5qjZoKTPSG7 Vusm+O/46icQb4wgxDfIeT/1tfRkq9fDVz+moBFgVEc/MUJVg1galYPVh1Nx gG+TLdYN1+FouPYxgt6wEdFvL4Rt0zZGO/EqZemu0sVpFWzWazdlXp82rqId TYk6tDNDSpA+vaPrKecNk3Ju2k0lqo1Dw2qXRbzKYfoVJrfku0Sly2+bbYQE slxZ4TOXKz2oPuFFMSnZs32Duhs8IS1etVXf4iAdTumbnIi1h2z4/TtrsfD1 tVj/h7XY9sYabFuzEyH2ROy0JWKHlSM2AdujExDli0dKlg8d5KOdo410NJOO GzcmpxcVAs9e6rYj+PltCPnv/1+EfA1ZjW2wFteSED9sZa1YY8/Aq9ticTiv nXQMGp2QRnQ3JA53xThNxgTpmOSsctSc4yxz1HHUn5tFDM7zpfE8w82ERqMZ mxqT/KNJRYp08BPD4qsdnaZjd2IVFoQmY31kEg7G+GCPogkJPwhnyA44Vq9A ywu/RUvwUn1BcY2ROwUEMELG2PS5FF3dmGw1Z199DFKf3K2/1aqBMGMXtZus PQAM6nUmPTGSW4LRTTAGu7KhN1v/iyKjjGRUGGuIlTle7IsIw6IVq7DB4lFr iFtIw3shB7GI48kn5+P1n76Knd9/HvE/ew45D74I19N/xJ4wC0LiTDJIBcnY RjK2HU5A8EEfCuTWot5cXCcR5tLqZxvR4L8CVibM07j3GX4jcPZVzPv5UFgL KwlFHWwlzYSiA/ayLiyOPIbfb4sjGGd1V6OyccYcE/Qjk7pFVtU5TuR5eGun OLEcdVOc7Auc9AvStlNuxUrw80uOBHM0yddTQfxiSm4kJTQmLqqXH82Nr04M 0Ji683tXTDrWH0rForBEbGKqdOiwA3ES94btwYmQlfh/wc/i8sZX0JcQqm8k NU9iyLEl8zRGk3EiQxIP4eQOfTAjYEyoTYbiVL4wbS+m0eiY2ZkVpOC4Q2Wv PcxLupm9nmm244PrEwYe/zz95jYX5CIt3o3NB2Lw5vpQzFu+Ae/PW4hX5q7E Gy+vxbtzN2D1Y0vwwn88iyXfmYuIn76OrAf/gMrHXkXm46/BvnoLdgoe9gS6 GWNJJkYvyQRHxmPXkePIyu/9XgAZN7fZMyi4+cSpeRe72WJP7IeqzQRNp0jq s38wvIm/X86pMSkubiQabbCXniYaPapj2pLITLwW7NFYEAlXxTnaivPEYgqe 6gucRI7ai5xQjgY5aRrfqC4R9F8iB5c5LvFdS2iWw3ZNF6ksDQdH45Qmo2GG CiHicHoddpOI3bFHseFQIpaFerD1oB2HI4/AfnAf/py6CX+2zMP/bnoSF9a8 jJ74UHVH7YB5W4dx5MDIRRUVQZqL8Rb1Iud/dflCx6IjpuMgACYEkpz2MP6T BLXHSFDPEIT+7hwDgn/F0Si7AqGEH9//8cN45SVO+tx1ePe1TZj/5jYsnLca ixasQvBbwQh/eQ0Ovb4Rr3zvNSz9+bs49Ot5yHhyASpe/CMyn3kb1lUCwswC yjbCEGyRRZR4HEmqhe1oB2xJ7bB6WzBx7sb0inhgFe7XAbHozEwzvrx1bcBs uxjQSM/Y3vEPyGpoIQsMM4ubYS+hiTCantlLpSnQCPOJk3h/33GycJ4ckIFK zn/1RU7dJXJwmdPI0XCFU8vhv0ITIL2q5HbiZnlpUV3QpDFayxU15A8u45+E EN15j5BM49EgPR3Pqe6wnppRhHkLiUYa0UjlSMTGSDdWhFkRHH4Ipe5w/N8s 4pG8AX+Ofhf/d91jmFz+Es56Q43EUm3FD5KMUhbJmvRq3ig/zlaf/VyVKm7d rtlv8NDTeXOS2dWuk8yBnhPqjUs36t/RbyxQ9e+9334QR773O8T95DnFyJL3 dmH54lCsXHkQq9cdxtpN0diy4TBWLViGrYvXI2LtXrU6suKVdXjngQXY9cgS uJ5agmNPzcOxx1/HdtmvYuxbCXZw2ONxILkQ9hxOURZHBkcaR0obbPHNwoiJ SGC17cHA3PdzGpfc/pzUs6YLOVWqGuLZilrJxumZfmXSiKdklGMCyyJPYfnh ArqPi7QR5KLmMtm4wrkkCw1GEym/NJKSq6ubr88iCXLde6t6ucZ0L0E6m5GS aVLIiOrN6L+ofI6PZHjrGKXUjsOafxoh0enYRYOxOzYZuy0+7LI4sWj3IWza H4GaoxZcyj6C/83ciz8nrsOfD7+N/1nxCIYWvoR2T5jeqG5sVi9JD4U7comC RNcd/hrDzXpvgSz8Dhppq6pjtes6lmARxGTRix8gN2UPHFsXIWnLIiyd83ME z/klDnxHKtyPw/WzF5H0qzeQ9sQ8ZL28HCffXo+Q5Xv1gtkOC9bttmPtfgfW HHBh9UE3dm0JxebNe7Bo8RKs2bEPa8KjsInpybtPrcDyX/wRex96D+F/WI2Q /VHY6krCFlcididkIjq7Ds5THWrZw5HbgbiTHMQkLpPjOKO/o5y5RL8gcruI 4y8jMjvA3ZgmRaPx92js7edkVMBW2Ah7UTvsxWeNfmIDxGOEaIzDWUoXUnYe y48UYkV0MfG4wkkkEnXXOKnXObkc0rep6QYn/QPVvvUD6cT5gTTi5GeJbTcU KXh0GpKEZpqapssKDt80HAxl6U2spzoJxzGExKYQigTssroRYrViZ0wEbA4L IqKi4U+z4GpOJP43Yzf+HL8GY6Hvo2z+72HfH4Zl4RY8+Mdl+B3H4+8sw5Nv L8Nry7aofNCSkIiM7EQcz5I6hl7AlRqCZesSeDlSOVbNuQ8h33oAEd/9LWw/ egre+15BykPv4Pgzi5Dz+1XIfW+Tql0XSO16u9SuDyHlQBRWhWnfsjTShXmR TrXEsT31FA6crGGC14m4stOIZcK3dNU6BNMUhqaVIuxYGd+vA+llnKUDaWXq M1dRl4wgvpzFl+AqPAtXwRk4qRkn3xrFyAmO7HY4MtrgONZCNhrIxvWbwlFz UfBXfxGOO24DxzOG3fD3DnAyqmEraCIcHUYDL2aqxUMc0uxlgjHGOcJxATGn RjD/QC5WxpZxIq/TbtzgpH7ACeZo+pB+4kPh4iO5tKz1IyIxPaTP5kfiYeTL 9g/VEGY+wGNk6IbqlijYqPacRMYnyAgu9ZOqD7l0qreeaiceqdgpW/1sHobu diZ0kajL96GxyAen14bQaAsOWx0Ii2bgfCQaRw6EI2rHDoRzOl59awl+9/uF eILj6dcW4hmOF99dyp+ViMVbD2LB0lC8PncrXr3vXSz+yVwc+c9H4KCbSPjl azj6yHvIfGEpTryxFqfmb0HByp0o3LQPhUwxCkIP41RkdECh0QJnok9NwtaU E7CWt6vPrRVGbbqc1rn8DLM9Cey7KL1uWHJbsH5nOOycdxel6S7pDeJLH19K 1Usv/oZf98Bd3MO/0K35kd7c+WfgOEVocglNDmHJbCEsTYhLqrtdKPLAX+Tk zltiVinjP23EH35pSHiK8UcB44+CTjLSjbgi+pciuYR7DI7iSf4m5xl/XKB/ uYTYwnG8ufs4tviaFCO+RvLh/4gz/DHiWz7mbH/CWZc2f22fEJd26fXX/rHm 5GdIaPvA4OKaBCjTfkbMiLfhnDIj3ppRVQyznmohB0nkwsdY3cFY/Qhq8rxw p/iwwRavtpbOi/RgcUgUPKH7kRsegtL9m3AyZC3eefxlPP+jX+GFex/Ei796 HC899BxefPT3ePNx5ghPbMD8p4Ox6NkQLH1xH5bPPYAVv49A1Nu71epn4dYw FO6JQEH4EeQdiUW21YJjDis8zhicbm1CS2sjKptqphO/rOazap1i5oTUl2Cr OK3XKsr1OkUco3snJ9tZ0gcXvfd+Vw5WbtiGuPyzcv9emaxOePjqKZ8eQWoh g3QwKXCX9gs6CiEXJ8hZ0KUIETqcOW1wZjbBkdaAE8UdgVHIsWPH1Ff3/0U6 /sr4PwKPI+l9oP+HdDBTyWMCm087VXBatYuKK6R7KRzRV7QXn+PvNcUs5SLp uEw9X0Usv/fW3kxsTWjWdDSZdAgZn5KBTwmH6k7a/ql0d/4UX0WSNM6RZmrT 42OFTIJcyGtCI/5H+R4C45/xO15V/hjiP96nf7lvYunhOKxjSL+ejGxy6C3I UlB6f20Ydmzbj8SwfXCvW4W5P/sN3vqvB/HWvb/Cmz/9Neb99H4s/Pn9OPTM chxmCrH7vX3YszAM61bYsHZlHNascmLVaheW86PtsBXWuMPoIBP+1gYMTYzc aSZ4g/SEpY00EbJ8xQjRWLpSdWRVMtRrDg7OrbN0gEgMwlU6xLkeZlh1jGjs gKOwB56KEbWINSJHGCuNGnPFsB7lQwoVd9mA4kOxwf/HRaRcDENcJ1rIRSMc 6bWYvHDN5MIMO+SrX96awHzxNoWwJ0yH0kMUchmI5jGcIXuqc1gBk5QCRhqC QglRoDNxVVyCu+oKo4Gr8NCZWIjH2/uzEZzUypkjBs0KgyDhQBD4kyDwJ3Et nX8iBn9SXyV2KjI+YYiXKNeXmxS0Gaaj5aqKQJQ7YeKi3EndGAffl9p+/tvd CoQFMfryoHmRFqw1cNgYZ+Ig0X0i3lyxA889/z5+8+NH8OJ/P4q3f/UI3n3g Ycy7/2Es/PXDWPrQwwh7bw2i1u3D4U2hOLg1FHuD92P5bjfWhHqxfK8bwYfi EXLkOFKzW/QywldhkVpgqZ9TLstOTCbLz0xP/XTFmIp3cspdaoxyKkc5pWOq arwjKgl747JkvXJ8tqof/61aUvBWcVSOTqPgliUI5opiVdxFdCScGlduO1w5 TXBm1eFkRft3AwILc1HOmPrf3GbCHzc9Qw9980mZ8DbYT53VzX7yOeGFjB6K JmYmnF7BXS0Tfo0TfoN2/ANCfwHvhOYgOKX9Jt0ntP1JzblMt5rm/9HT3inf 5ic/UebANADSQFRPvRlJcNrpMXxNxrSLx6gf5+C01/XjSGk7FicVqin/o83H aY/FWmsC1tmNqXforeIy9a++two/+f5DuO/Hv8PD9z6CuQ8+jnd++zje+93j WPDYY1jw+CNY+OJL2BERiw0HDmO7WSTgzwuO5c+I9iHMVQBbCr1/YjssUiiY vHGnEZv7B0ZgLaHhVAhQMSo40IsFdk59XNkQp3+Y6h/lGOP0j3P6mXaXM46u mOT0kuiqc9iw6zDCE0vgq1F3FvP1blUmls+8NZN6VE8IJfAQDY+gUT5CJIiF QqKbSJyGO7eVFqEBzuwqTF68ikAmzCBCL4pM9+IOZOIx0x90k4kTZCKXTOSd 1W1tTpGJ/FH6A2HiPJzlwsRlMkEDUHvdYOJDivUjWMnKOwdOIji1w2DiT5xh gtAuLToSO/4nSDHxcyFCN1JTQ5qqmUgEWoPrqt+7BJc+5ROIRCPflwYi0TCC qIqzWJJSjsUpxVicnKewiKUU96QV0BrEKyw23OQgEvCT7zyIn/3wYfzqh4/g 6QeexB8eeQJvPPYoXnv0d3jtkd/i7Vdenq4NbJO6AP//rVIbIHbTdYF0yv0Y RzItv0/VBu4wsMj289slfP9KGW0ZBWF7Ga1BmSAxrArCqr0uo3NX2STVLdW/ c5xWXQH0VnPUTKkofvm6rTiUVisrSXUX6CCkUOwzi8a15zUi1USpikhVjqlF Sok03MV9cBd2EYt2uPOaaC1q0NIzZNY8A/fp60UQYyHtZiIeNa1EF4nI4W90 gkScJBG5JCKPOUb+GC2FScTFaSLctxDho0uwVV3GO+G5CD7aYRKhnMIsNf2z NAynNQxBCod/V02FFQwdgTAwqTVg8JowNI4jqrIXS45VY8nRCg7CkKJhsMiu EmWbO7A3vRDb4jOUnTCheOWdFfjxnPvxy3sfxzMPPYU3nnwSL/z6Ibz029/w 4y/4LMGuBHwZW/m6OyED4UcLp6sADrMKQCjiVLGICXrqdLHIqP18HROXr8Ja VEUqGmAvpaEoPWPUggdUT3ppDK5zNUnkSUPZTB3QU3Vxuhboq+Wou8S/O0Iy gnEovV7Vh+NVjdhXL1eu+ep13dhbe0FR4q0hJVVibGh8aDQ8DEU8TETchWfg LmglIfUMMcu+Y5SpAtv4SLOS3t5ek5CHA9ZLzJMcZnwsFVAhRr76zTQ1DCay SA2DV7u0/TlJanKHtB35PGrqDWoaNTUSU9pqSM7Bk9hGuSUY0eQsRcgs3Rao U48gZUD+boYaMSHSB5peJV6oaSE10gmuie+K/xyiqgawJK0OS9NrdDnxGKlJ zZ3O94SYIBryDtxF3TJFK+1EaFoRRzHWHUnG/f/1Nn72o4fw2wcexZMP/haP PfgbzH31NayPsCD8eAnC04sZyJ+Wa0wLO5kvOAs6GNB36DqS1JCkRqBqSO2I S29DXCrJiPerOkFQ4CpCUTXsJX6jckxbwvzCXsL3sUTuJdc+2iXZG/20u/yi yuA8VJu3mqOGv3OdjKuKEKkUO8rHsXFPNAO4c2pN+qq8XFHoXFYQmfgIOtqw jOpIlBGohw/gKe6gz/EzCq3E5KUr/2FUxAUdabt5a38b4UQyFfm+gZLeLjSz ATqweD4yMvKQseFg4gJ1k1ELWxbfmRwSJF0+cumJTgUQVKYJct1kd3TO6lNZ yUeqc6eN+nkn4gT2newxujprSoSWRNXRXj67W32uviej46OZ+ERIagskiW9S 8xSiqoewJL0BS4+TpOM1pKnCyBDvxqKkY0wJOnRxicGBg/Gho+yM2kfrLGEI zzfzrWUWPPPIdqxeHYFFf3wfS7YcxB5mjp5SOnUOKSV00Ra6+ffdxfx/ONxF jP8KT8PFXN6Z3zljj4SorHY4jrci7ii9T4JUna6pdzOroRm2wlrYi1uMGnOP KiKqm+pKxtUN984SZnl8P93ljPYqmOlJiM/31Vt7jWH3NUXQdek50nAD8Y16 HEiqwKrNu6ngKXLkv06xxDdeU+VoWbJQTCmeppSzko0SkvFI3uuhCfSUMm4p aeavRAfVPzB98Z5phwKbVJrNkswlevla/o58pZfsjD2NM9UyqbT/zohrrNS5 NZPvQhZJyiFJJwcZ14zCTpLiSJKD+nFWCElXSJJObLwNHH7da0na3vtapA/s h3BQJu8eykFEYb8iJEg6yghCH0mh/fRH6rOEzg+JkIwPFD4J7XzL2m4YGF1V GMmFtN6WKWzi9C3NaOQgRhk1WHK8nFgVYfGxkwg5WQF7hVF0kk21Ungq61bF J1cps8HSXjw+NwKvLIzFnpAj8MSESUZZ1hekNtnKp736zeYIUlR9U1GleCJL Tmb9wpGTHDlPkJ/sNjLUAsdRP3L45/L+yRqFrbAe9qK2mSJ0Md/BYsYAxYYW SxgVlgk7fAcrmSlUU4811GMtRz3fvfoPgpQw7yQjUlL6UJUe97pOEaE9cNdc DFL1SJoigqQQaryqEPIqhGiOqg1zVDFobCA+y9+qjb9THVoGhv75FnpMcsS+ GC1Opwtl8rXQFUDPo7eptT5s0JNVJpekNsGW2Ql7NoP8E9ROHrVTQO0UnzPo oS2i5XXT6qr2qKqhnTR+5GgmRS2c/FbdhcjZcJEEZWFfrlSHEojIPYTGaLbC sSuxFZEJraqjUULHDdXwOkG6TLRdUzYovlWuzr+sANpb0kto/FiaSTuUSYAy q/m1CdAJ7DxRSXi6CI+xm5Y8uEr79I7asn6sDcvEE2/H4a2dKQiJjoclo0QS Eb7H31V7bL03DToBGbJ1m/+/h/C5BcKSmwubzjzydLKdyQg54vvmONqApo5R WPPKYS9opOrMevVMHTKuaBKO4imCzfexjAxV0KZXaYY8tR/y/ZTByKCBkUHj x6Tj49mq3vBVhFgzsU9674nJl3K2iNZ/Xdsi2iEvwyIvg2ePCpjH9W7PKv4a lfRnlQySy5k3FRf/YwBAgS2kA33ZFz8foMduA5AOrL8I/+kxWNOaCBFDi0z+ 4jn9BGiYb8aYBqhUpVXmlmtpGuoh/TMVx7vgU5HMdWVAHA1T+OMh/tK5ZxQf CdIMnYwsi6zG6rW5CNtyFKHr4tT3pLUCldV2lbFofJu0iqZRbr2kLvJdmtmE pVk0PFlkJ0uzsySzjAaoUBmfOPISZ5SynGTFxZjVVTqoswwmuE/MPYDnlidi aXg69juT1VbaO+TtlarGUJDalf1vfNX0eMqZrgp1pb0zpfACejOpnZ9shTOr Cc7jjfRetQg/VgB7vl9XrAupOLMmWUjFFfINK6biSi/BVU5KKklJtVDyAe0E PX/9x4oSX+MnROAT/vJNnzA1i2/6lGbcHJ9gxfptOHisThY/+Gc0ULJK5tdm x8ug2lt3QZkd2dbnrZbNV/wVqrvpxRgBVTICKi0zLoGasTler/czHuvLBheC lHQjD0Dm8Vvq9oLMQ0beMD51DVbpRpNGZI6fhS2bkd/JIb4rYyoTj2Pk5yin z668qAhx10rXcvrtRgLvv6K+55MONVJTkSRabAdZsNVNYrHtFA6XDSjbc40z 9samZizdXoPFCyKxecEBhO1MUMxckWJEm+ZFMdN2AZs4W0uzaG+yyU12PUct v64yuCnCen6MM7fQkhNX2ZCqgA8zSpQc5EByI558Iw6vBadhY2wGolJzzK20 8FVLtxq9qbZmFP/Bb4yq994n77+otpKRKKESF6DrolJu1zVzjVK7qou6CLWT QdmamGN08wyG6OBm6plGAFlEt198kQ9Jt19hYvSBNjZ1H2mMiJCvkRkH4QkS cvjS8infFWfNRQVQZGarAdANFQBpeC4bJiegfF3Lh66lF67pZLTEnLy83Li0 6C87rFvbGAXA84RR7b/l7MZvjHJuFhVmPdpGfshOZg/z90HYTo1QSTreczDP lG738p+0lXfTy3oadGsW+c8r5VfVokV6cF/ROHyL+IwTnzxEUsjSfmJZ7BCe me/Fq/OtWDw/ApvnhyJ0p09ftN96UTczktE+RfPSqM1NNs1NTj2WZDNkzqpU 6Cymu4ooPK032apy6YjaaOsuH+WQkuk43lkdj6cXJWF+WBZ2uzJoRM6oDbcM SmsnZB/2OK2Nr2ZcseQ10PFUDquN/tOldOLiLpLqCGcir4240OqQ4wX7E2iS icopxsenelQlVGmtYFKjUmKics3wSwYqytooTGhCBJAmKWnEN/+JqOhhQiOF UhMcucJFgkoBx+eXUMHwU/VGtbuej18/yMFAp45xcm0zpV5utJr/fCcl0Hzt 86F56jaVnl8b+ebE1A1Yktt0TwW5Ep5OypY3pHpg2RnlxZVOqi7rmhjmnLVG J+mGCwYxkhVJI0RVkaC9+JbCQFqJ2qiBxbYTxGeU2FzClpSzeHqeG6/Oi8Wi eQew6f19iIzLV/diCyrS83Mvo5Yl9ExLiMuSHEGGHiqH4bGyNuVYlFaoS6xE xVk2SoM8pkqsblVinVAl1idft+GljcdpCE4g3HNUlValniZbb+vPcWLqzsl2 7UkBp3ZCISQA6UL8qJGtDOk1OlnFZYDjZhrvzqWNOUFowhKww13MxJTQ5PWq UqmkFQqawikDmisGNDcYHAo0HylovNPQ/EmYEfMiLy3/E6SguVtBo5G5oEJk Z+3Fm3FhFOltkCo5cWkkLg20MQ3EpYG41BGXqnLjCp+bHVRERIRyRCYu5j0x UvIxlw31/lhjEfl2uPw9Mgt7YU1hYJymrz+30jnZ8keYKIwxsZSeTxMKC2fV JHE5x0c6T1zOa1SkeGd0UPbJaOFgQBKk7MVdsNYO4+2IFPVRvrMhrpq4OPDq +1FY/H4oNs3bTTRbVKc/T/skcSAW2XXEpJ4/Q2zLnfy6VqGyiNlUyMlmcy9u kNqM+9dqO65Hbcc9j/URRXjq/SS8s/cktjtz6WcbaP6lTXN8/QXZqX2BKMfX ywa6Kf2Rv0d8nbGZu3ZSsaMjyzG1cCPni9SaLo2wm1bNnc80Jc+PhQcSyUwa /wGjxa+UxPJoZPLFyJAXhjTO8kBePryJF6/wInEMh49xzGyBZJai5C61On8g pUqzUjOlOWEk4G0Uqy51L3LiJ9h+WkM/OWnkg9U3Ibez3Vgj/qwvEkZMX2Te emAuMQVw8sxtONH7nu7G+PkPEJvQSbPSBWtGr7oM3MbY1ybtWoqlydGYYkJ1 nGCK5+L76aYi5T9Po3SeUCsjTef5873N51VjVOm1KiZmitHVIXqBtw8mwVoz qK7W/+P2LE6mjaYlEovm78XG+TuZwDbhSEMfeahWXAQpUu7WzGTVYnFmFdZl 1etiLE2Is2xCF2OnN2Xy7au6gCdfi8VzqzOx7Eg+QuNzyIHaoNtwabbapTsb CXyNV0P21UlKK7u6fUTmmwoWczlHL+UM61KIZFFFNCyF9EgFLVhnySAoaTiY ykzpRI+qVcTljSpI4ghJXMmtkNCo1BEUZkfeBg7Jjvwfqxqqr1mypBbJkpaE E4012TgUwQAtf1yFLXvceaqA45TMSFDxE5Um6W4+qW/ZbaJJaWLY4uejNfjR MmbcXq5JkZtRbueA/vXzSXn2c0n5AjJP9cOSdJYWhZRkDcB6wrg2vnAY5nW1 jooxWpQxuKrHje/dwSebUD1CPf5J9eReDmFlkti0TNId7qYHeSs8QTUNlUu0 39mRgSfnx+KV+QexaMEubFywHcHJ+VhMc7FYzEaONiWLGRcsJh6LjlciIr/H 3HAXpHbc/RXpoPOTLZlVl5iwnMFTbyfitZ152BRXiOjjZbq0Kmc8GH379ZiF BL7N/0ft5I33X+ZXl/nnlzUzDbJ36oKixSexI4XgqZZlv1EdwZRJCZYJSDF1 W9SGXQmFWBiehp2uCiaURlUid9Q4qvC9acejsoManR95JItu4Gg0V2c4mj/S vcTV+BA7E7vw2pJi7AlpgMdWQ8PVpSsYzdex05bGVPuUig6lC5m0hJF2rJ4W PmMLYWmmwWuig2xsFFjUxAb6HqFEfI9pU8y7DzMzM9VyQwApzxl1YvOIhnw0 a8X8eL+xDh/j7dQXqqcTmFs6Y9pLhvWqG924U5rKMiZ01erGsu56jga+u40c ful12TSOb/MX0/ete42xixbizXAfYmt61KXSb+9MIzrRmLsgDAsX7sDb60Mx PzFPYbNYkGGgsoiWZFFGDXaebCMyY2oLr7NUtuJNqSK9p0IX6WWv5vrIGjyz NBMLDhZhd3yBOm0Yb27nlRpG03UkNF2/gy/X+G4lNF3VO8CFH5MbWfWht1L5 BsNhT7V2QmqfkVT/SrvITQf2HhVe0rEgNAP2LClCkJeTNMKnxhUjcQxWHIxw nRVXDGauT6/LeBpuqL7zXv8HUg+lSWPs+gXdVrvlBt7bnoJVi2yItLbDe3JY 5W3yd67RxkoblOXrg6mQCiJCxdB+y232cnOxp4Xmr4XBeHM74pj83m75QDD5 1udj8nxAGiRoGHf06A1zX1FtKGLiuxB7tA+WjEFYcoZm7hlXiNADM8JzVBAT ZpjOauYetcw99B38zFwb+OJplBf/KP7duHxcj11MYN446EZM7Vl1+fJbIUfx +ILDeHnhfjy7+RBe2RpFOAo1EIxkF2bWYS0ToLhivXnXoeruxuqNQFFJEywb eGuu4ak3fXhpyymssZbiYMIJXXNXJQq1ibfpg1myn1debsiX1+me45uuGYbm iloWVAZF8gm1n8AwJJJByyH6MhqSMhqS0hYNxYEM2DLOEox+GpJhRrMGFMUX GJUwii1n6lNpgFErJSVP/TU5Pd0oRfLrusl60/UgZSXuxMET3XjzvSM4sMkN b2wKbHynXPUXg1RK+WVlOuJqRsjFVkTwjzyt0qV5HLF8I0NySrHCk4w3DhzC 73fvnnYq5vp1YOXfYOCF25TefmXkwePnPkJMQo++dDtzELEnCEBeAAClQ3qz Bi2so2qIAHDUDBECjjrdwNDdMKxaGLobh4PUbdz/pu7jlouK3S1D2HS0AH+I cCK67oy6q/jNkFQ8tjASj2yOwbNbYjB3SyzmJRRjYUY9p99PJ25s0TXtQukF 5roXjWWXq2r610VW4al5GXh7fwm2e0qZip5WNfMEVTf/SLb5fyTb/OWzFjkb nUB3Lhu8yQNd+/UZGAwroTyLRCDKqxjRR+WAunfDU36Ggx4lsZggZMKWfpow MDxlqGZn5KFAYA4cxwd18EGdlZcMC3GFodoVonBFNw+X6od0RqaV8slovop5 2xKxaakVcWHx8PpSaBr69EqsGrIAQpPA0N9eO4Cl6zZhnTsLbxzycDgx3+oj DgWIrqpFC03B929TfTUQePFzEfgHjUBiLxEY1Pf6Gq2RrAU33+2r7EDlzRjc cle1asLn0hdVB6lbqv9Z3VO94VgBXuMTHyEC0qjyD0TgV5vt+B3HM5uteHmT BSsTGHgVDXCMzOy8FfVLxVtW3SgvPf3X8c76k3hubR6WRZUjNKmIM0jfzJgu oeljmXpZB1MbcdWG3I/Vrv6P5SBp60dqH7cgkdCiYUhQHuSa4TIEBNMqTCqr oGubdBVVfQTirKqIHz5RrUAI9zYShm7Ktx82ugr5z154zlgyY75SccEoB1xU BUjV29fs7+u/FKTihDux3lKI996LRGSwE15bIjyZeTL3QSr/+5K65vEgo/jN 9BBvRCTgzQNOLF6zAaH5dYipY+TZ3ss3mdpqbjWuz7otAi99LgJ/TwQ+RnRi P2KMq51jTTdg9mEs1pZAtTE1ryqvuqUXo1zx3DhzzXOQ6o31DXXJs1zxvC6t AL8nA5Fk4GDdWTy2NxkPbHTj4Y0OvLQ0Amuf3YAoT810HdtRNLPq6qL03Zx7 T/U1hKf14Kk/HsVrIcXY5CxHdGatmntZ7JDJ/0TyDDX5n8pObCTKbmz5hEag 9WPNQKvJgJz64Pw3m57hMnzCgMy/MgbGdmy9u5aja7q+vc7KZDi2HNZjzNsy pYnTkJprW8EE8zadnznKpYh43mBgSjWpNUtC0nbTK8N/AS++E4odKy1wRnjh jU9Q2zAsfIu3pFRilTsfbx5MxJuc+U1pZZzxXtVxfH9aLlZu3Q67/wxc7T1w koDmyXN/iYCXP5cA3e0pKrEP0ceGEC2dOHP0JfU33alcYtypHNBT0LxX2WF0 enJw9h36XuXpvmhB6lrvr2MNrcArdAQb82oxjzA/svsoHlgci5ef2Y4Fz9C2 PbMFUe6G6fKz2lkta+6yZqpm/zrWHa7H00tzMC+inAFhGadiQm+rbeKMN3+q pC6ba1s/pbAS+crpR0Kb2pRvzr/2CV+dnv74Jh0U+Aw/4K03KtN1Upke4uDU 1zIgqOHUVzUhMrsU26JLYU1lMpbea+ZetvwxVT6W6o5OMmbTTp4LrO4wLGg4 Twe/LiYPS98/hOidcfDYfTiYlIU3wzjJYQlY6cpj5FTPqKnX6Js6pppBBqlW 2bOxy3eUE7+NrrRbutyZl6AFVjON+Z57y/qJlMAfNKqZ6cXjiErTd2dHc65j ZK7zZ+ZaOnvJXNuM+7PtNTd39bJznu2cZ+nmNcvo5tUqDbxXpxbg6TAn3oov RHhOI15bEIdHnt6PuU/vwsJntmHds9sQ7W2ieZcJvjBt2t2Utoem/UkV2BWo PuThSaeYhn2iJlfWpNTkztLbpxPb5DNO7E8CZG2adc5pszbpPn/AnJrbpBmz eOsY5NVxTmtpQGukeFwNW2YVLImnKekeWDP6laStecN0hCOMhWRH0RhjIVqm Cua5VRO6HGM2AeUISa7Bq2/txd7V0XBFOuH0ubA5qQwHZachkyV3C0cr86o2 ae0Z2Pq8U27acXYMYnucl4lrKiY/+PAvTOyrxh8FHln4lRHRj019jPTySRyR PlUndJ+qaHry2MA+VRU396iyygXCnFRbo0yjX2bU2jRzN3UQYptlamObBhHs Poq5K3fi0LEqZtMdeH2+F48+Fc7p3cvp3YH1z+5EdHzr9NS6jKldF1mJJ9/P wFv7ShHsKadYzuipbf5ELTmqqcUsvSu29U9qH6SaZNxr7Jw2ZTwz1/GSXplz LfGUMt9S9T2vq74NnGvGpd4GznUD51qcpSwUVFejeagfmacGYEnuhiWtH5Ys 5sZ8u8yCir1YevHRE5UzEDW6VUYV9mCjp4S25xienx+KNfP+v/auO6yqK9v/ nuCYiWlmJpPyvkyMuSnGmYmTMkZNXhLHqKgoFlTAXig27F2ULiDlcgu9IyDd LmqMoiKgIIqKorFie9HYkqiTRN7a5+x92fd6QHzv/Tl838XrvbrO3r+19mp7 77VWw+wfg+SERNJRpBsOEG8p/kmi2Cep+rzSqDvp8DnF6U08ctaO85k1WDLv r8GshYtZJY4W+Dyy2WzQC0qB6Lw9aoFovejFRAvXSAvXKPVhMhGPTcRjE+/D ZCI+myppMKw69KtK+6XKSzctme3ZoUlwnhWCyNxyin5PEH8z8bUDxWr9V8HT 0R8LBvuTs3iEeHvDwttx8zbAcfZmTNXvQjD5yGp2zYa3bSy3HsjlzKy5b83V GuJqzU/K+SHlFAg7DWLL1UriaiXL5RNXK4mrlZyrFbVqPn/vXlGNx5hyFKbs epgKiMHrCG2pOS5zZSI3HsO8+G0Y5ZOEUSuSMN2wDrON6zHazR8h86KQqI9D Ul6e0l0oieKZpKpzchtpwVClfxC5ObWsPYtom7W+/rx8v1VwV871qfVWMEqD u/KhUcGSHvyUxH5Wq5nUTCSp6SiaiZ5WczRxO5pWczRx2yBqNbMqzfZKEyL2 rqLhJhpu37MXR72KSuHpl4ARs8jhXFtNTD4Nl8nZ+HqAHiMcw+DlFIiFQ4Ng yjqqMDhk7Qn0G5sN5xXbsSB+F6ILy9jhEksKVWGy4m4p+vkQPYg4aqewtANn 6k+PMpXfXkk9cFVKvFPIdYCYeoCYWlmrJN+T9u3hmLyKhss/wphaB2MOOaoF ZxCWfQyLYkrhHlyE4QsS4bw4EXNjSxC56ZglVhkwchkWTQlFTIARCYmx5JVX NTmpvA+JcFBZ5xx7JTxpp/SEWn/qooUH8t2RvzTPUheelBMsZVWRRVKO3n/B kzFlvCjy/rM3Hy2LfI+ne9XtAXMBuZjFlfD0Tcf4xcmI23Ba2RZx8chFH0cj RjqFY+qQYHgM9ceQGXHoNTIcDp7FmBi2E75p3yBxN0sEs1ymHT/zqd5TZKz6 2V7h0kvIYDfNasTrR1W5Co5VqwqWBatKWvMg+a4Hr/IcOOvAyDpvEdcO1pEC JCVYcZAiw1J+EvFl1B67CJ/QDXDzzoTbvCy4LcqCd0QJVhccsyQZRIQ5MzQf k1wDsHqhHvGGWMRv3G5pussadiTw/tTMqWTdYuyVTkd2SseY9fUNnC/W6pRx qEvzHHPlLGEcYz+MY7QQnXj69MDx8+QKVJBrUAOvlVnEgnT1mAmF/S6eBeg7 2IzPyav5bMBiYscS9HVJxuAFm+Ft2onQjI1KUjDtAEsIHryLtupZCH5OUnkR 2Gyp/GivHOJ/X7nnl36Io16tos5yQqnsSD9FgylVrM84Syiz/n4UlVSRa1rF kD9M2qoSG2sPa25SGVLKEJFxAoZ80hHr1N49imvPY3y/jDI4DvfBMs/ViFll QmxijOLWi84VDH3m6sXRM+MOnbVXILdTXL51J1XgxW1s+V6uKD0vJyY58G78 K/nIvBNPSh04SqjnlyO28BAhfwxevrnw8i9UDhUGJh/BF456fNhvCaG+FP90 XIa+43Pg6r8VSxK3w9s3FpNIE6iZN3Y89Q7bO76jbAbyM4aH2H0Jds2/5g5e Uc6diitW6vlT9Sgzwz+9WsU/rYodJ7yupGNSRYZWJPWrT8FIYYFv0QbMiI/H DF+r7R477nE3kGMWvfY7UqAqCwy0io2kyk2kykdON8LTNRgRS6IRY4yFobjE 0jyENQ2NJfhZ3xDWMYS1prFTmtPQ76ozuHRX1hjWJeA6N4//aJtgkBXyUXaf 1NDlT+QFlxMTqokJRxFXdJJEPxNegesQt7UBg9wZA5ah5wAf9HJaAYcJ8fAI 34aAtE0YMdEXwyatIAaw/VUS4YO3lKwn89TSqm/bM3zZcRn269CtNsrpqxeQ xs5gVavnadgJibRqkfu6Rq8r9GogV6YOi9dugbs5DW5h0ZhiMGNFQT7OXL0q urSWH7sJPetQuV7tUOlDcj9kyEqsmBoB46oYmNfkWrXNMKveEMyK0ys6sZ5F 5eWb3OqqKMlFTcTdMTnTykEdoxFhi0om7Ie9K/6GRRjVhG0tYgvqEJF9BOOX ZmOu/ht80n8Bug1chh6OK/DPYX4YMC4YIz1DMH56EKZ4rsQkdx/MWZ5IFuE4 Uyk3WcKY3VGovtmW4dhGOfr6Av2+oRyAVYHkYB4iySUwTWVnsCh3F0aHp8It PIneb0HYjn0w7q1E0sFD2Fh3vD13McvrbiK/7DKGTzFh6qgQrF5sRHQ0SeeW KhiFw0FAspaHBpLU6ArWzvMsCo9fZl6HONknbCerOiewk7MTHLuxGtipG+dN 9a8uXbtNUXcVYlh5ovw6xBbXI2LtUTjPTcZHfefh00FL8dngZRg4yhdDJwbB ZdoqTJwZjCnegXD39kekrwEJy6Og9w5DXNJ2hMRsV5Y2A0uVPvbnDYbjDXsF uucV8NgBDDOrLrf+IGalbiXwKFaPYAmZnTBSFJlMZij58CmK7E6Qo1iLRAKy qqGBd8v7PXKi47Dq/d5YN2UR9kf6Y9/mLORWXUEkuW+RZPhYvz3yAi4wL+Di rXsWt+N5GwgZbO82D+E4DQjVMyqvWSBkL1PmAcRkHyYxPK6cOYhd/x0i8o6j 95hQdO23CF8MWY7Bo30x0t0fLtODMdp7FSbMCcaEuYFITsxHSmw2UqJTkRoW iyTfKBjnhiI8IA3hsSV2Cl5/IBS/tyDHXjGE3tKcPRgTloUxq9fAI6YQfhsr KCwh1A5fUrIcbI8omRwvJaFZU6cgmXCgih8RtcdkXXfs7uOMf/l5oTHP+zUJ HFEw5J3mwRlvkw1h4KjnvbpagVN5uIHURA3JGTko+Scth3eWGndj4CCSKxd/ DBrvC2cvWp8TfTDIYyWGTvfDpJBs+CVugj51A+JTi5GcTEAlZCHVRECFE1D+ UTDND0FUUAqiYrcQImcRvu04lmQTKqFrCJk1WJKzG+E7KHhhl7gJlRQl/9Og JPwsfXqPfEdRJUPoOLmvR1B16fIz3AAvd/NAQlcHfD9tIhqTvfHbiU2Qe3kI s/y2zWcSShOk/ULp2KR6mvIDK6DYq6jkFIFFQOWeIElSW9n3c1iOeS6rYVwc i6BAM/oSSL0nLMPXk5ZhVcEB8ukvI2TzCfgVVsEzuhgrkzciKn094tKLkJya h1R2VNqcgtRICq0DIhCzMBi+88PgE5gG857TyqEFdkwhpUYAdFEBiCXJko6o aRXW4zXpyGmK1Fhm9DjiD9ZAoFRLccWcdz7HoSGu+C1sGhpLjdDqMqBrHqVJ Nn6+uN/HwjZyaJRrNVJJtE5ouHIXprRamLMJp/xTmL4kD5MGBiB0Ghn84His iqD4ZVE8pkUWkst+EYml9NrbQFjRq4yWx/5LyjkO38IDWJy+Az7J6xGRtg6x 6YVISl2LlKRMpMQkISXKhOQg8uGWBMIQGo/oxHXKvnzyYaXRs5JDpF+1rFMt yzclcowSqo/i8p27Foz83TyR/+lg3JnvjsZMbzR+X48/azgYAiP5cJxacBaT OSmBkbjElkeBtQOHpfLQVZgyjmNlxG4M7eUDn9HhMC+JQUxkPMJz9mHE4iTM i91G4dx5JQujnFLYdxGG7ScRuqEGM2MosAgkQxaUikUZOzGPXoszd2BpUjFW kzjFZOQjMT0bySnpSE5IQLLRgKSwUJhX+CFgznJaqwWI2rrfTsrAJZAaZ/3f qy5fE2Aw7e33Xi+cHj0WDw0z8HBPNDpqOAaiYLMcZnAwpmjE+gO4Y1i4+Qxc h0diVv9gRJEjaA6MhyF9u7L5ElF8jEBIxPK0UqVi5vyEbZgYmg0X3yS4+iVj Yep2GNh1pf3E33KWJE6uuEBxS3LleSwt2If5mSVYmFKAkMx8GLNykZC1Bknp KUhKjkNiTDQSIggMf18EzVuG6LR86LeWIYEUTEJNPUVU557lCIzXfYodvYbj /gpPNK71xv1rdRYEZPPeAgLuGgj051EWA3jaxzMR5BoO06IYmAx56hbU5rNW KIxYmoipUUXwySylkR4jcbDakCbB3s9+kQvSQexCIolc5oWFpQjeug9z03IR lJ0H/docxOasQcKaVCSkxiMhzoD4qFCYCIlV85YgM8qM66QlZAEw/bUfrniQ ekyg1XBiMzrZTJ9ZHPEZO8LDTh9L0/eQwh3r0iJdLArp4GBX5JO3YvCJIQE4 qDYK3tAEg0doEZamlKqHMsSGLN+XT7DZkFWarkq7cSLZkciTHaF7jsC/ZB9m ECS+OXnkRa2FmSCJI0jiUuKw3hSEh0tH4N7k3jjXpztuEUw/0DifkpTojLc/ Q6XjKPy6ahp+zZ+h2SRTVMSXIxAOiaeNQWYRiHrl43UEuXmhuMcQ3FlAwGXO QR55Hcbs7ywblGJ7iuV+liSWqhuU3/DjCmKTksMi+tAmlKuZhES+RSWyCSL/ 00bJAD2v5BSCSg9jJcHjkZKL5RQzpOSk4af8MPyW5YfGxAVojKTR+4zCfY++ aHDogdppHjhuiOO5qqdQWX4O41zT0bVTALq/4gGPN8bg4DjSAumzmC61NcAM qY7NI+Wl4depF/LeVGQzsksfnJ84AQ/NRH2fSfmmoOQCorPPKN16DRyxKYFF WBxfarWzzxqlKtu6pdYbevHl6oae1CjVsqHHOqVaOvUeZsixdy8h5hBZlIpj KD9YSWtAjz3ZZpwvMODH/HD8mu1PPskiNOqnonGlKx5M7Yerjj1xeoYHRnSa go90wfivjr4Y+Ko7przrBe+PPXEqS29xd2XLLA5QyhEYh2qqBlTiSjWTWW+S 2QpHF/wSNB2N+XPw6/cnVZ51UAJ0fQ4F6CxHQktvkn8RFsaVNrstpnT5ZNti ZU3bYm2UjTF7JVcSW81fLF/CMiXW8bodj7L2VlaiZHMxdmaZcabAiDsMrJxA NKYsQaOBRuk3Br/M6I9hf/bH8DdCMfY9Peb0iMLCPv5w7eYjF7wSVllYatkL 5vhM08CnF1/TgbToCro74dY8D6Uw4cOTW3hWp4MaWBeQDgpcT0F1BcWAJFLN bSvttd5WiiExYrtKbdiuEgPhrLqjREy93LTz0MbGaXoO35ZXYMOGImzNNONU vhG3CiLxS04QcjyNcP1wPdw/3YLJH22A93+tg1e/zRj5+RrUVn+nVYj09eYR ma6BiFzRmGcEeckg1RiEUSx3dvx4PDSSMdhr4lrxWYTFFWFZYgX0pJr0hFD0 NutNGaPtpky5srtWoSQfCCWWejAqSBmVhIS8M2PHPXPZBYcogtgeJfvKUVBc gA3pZswcthOjvqjD2K/qMeKTGkzqWQnPr8ow7uttyEktg21FJGa6BULyPTzZ dNupG9pqPCvvKAuMbCv8fiqtuum6nigbMAr/CiD5yyPJul4vIBPqbv+Jm8gr u4xIMnZRJWo3Sj3BFr2rqRsl3+EgeFjKwV5NOtC7gmNKS8p22gi144P+a8dv 8bcup/Bl98tw6HERg3qewcTumxCj+wSFuo8Ui9/ZBhkmL3K3OrHCbBSz/ETB JxY9sR9eEbsnF58A8qzXdhuMm3MI1rQ5aDy5lbfksFb9ojiuaKC4/4yyV6Bs FdizhEH7lmb7NMyRl9H57bP4pBvNtt9VOHx5Hs660Zirc4BB1w356ozlCQub bRsyPmbCYrE82tlGXSzBnf+J02PHkevsjXuFMy05NXm2L1tE7Ckuz0xs/vbm N+ja8woGDv9v9B94CY5/C8Ew3VjM1A1EpK47cm24JrciFZOQI5MPm59EW41J yBLsqeuBPf1G4oEfSXDuXDRer9eaxysapFWOPENYZGPol0swdUY2li/cioS0 26g+8gDL3KIwVDceU3WDsJoWSjbN6mR0nJiUCLfYpETKQ/avP5QcTKkBlVY7 h7bwI+nL+sQRN2aRL5IyBw/26vklKOt5vGqhJhaV0zsuGDduFdITYnCuYo0d x2aZmx5DdBPhrhuCYN3nyKTBl7m5i8HLVunVxwweWn1qrKfxCZ8G44g/RWT1 bhSR6b3xS9Es7qxbT+NNiximwOkfc7BoaTR2MEtSv42LLc1gtB5OusmYoBsG f90XSKMZ7LOegbAir2g8gs/A0wKYEAt5Y+NjPg53EtpdfUbgvi/5KWsVKWph 3PaE7kqMGuIPc7QZRzYF/44POcewmYY8BWN1zlip64Uk3cfY6+aupdZbGPJ8 G8PH/O8P+UB93TyQ8fFAfD+T5CSZ3KR90Zab2jKpjhJDnP7qheneEVhHjswP p3dzyWlH39XTaD3gphuFpbreiCd9W+rmrqxcrYrQL/PPZO+OD9nZgvIbNoNn VrurNJiV732FOpcx+C1yJn4l6XiuhcHnROdiWO/lCAkxoXJDBO5RdPuU1eA9 MUrnioW6vjDr/mExFloVi//U/ODFaQ5ZyF/nj7EtmX/t2jVLK4UufJiTKAj/ prcz7vmQ8OSQ5bh+qoVp0Yp9dwwmTgpFVrIZF8rTn5Zn9LYXNwb9ZWOg6Wy/ xD+TXSerGVmbIKHHX+Ojtm3kytwDMaOVJGUpHw7AtWmTKaqajd/2GSwpb3lG b1gYlYYh3edjuY8Buwqjce/Gd5YrnLUV9bRcIq3sw1qbacmq9I+PmZbkiVqz TOhgmWViQkzylr/7JY6NJMkLn4mHRbMtd9QfnRCxSOcE1xGBiDebcWyj/3MW pdpkEcLIImSpFkFMQ1aqf+CfMbdNfNaqafwnH4LsypG0deYzmUDCtu2r4fh5 GVnLbFXYtGbyZ8vMq+D0wXTMmhuJTTkm3Dz1LWdlk42Ywm1Ehmoj5OkIDfui tKRspjNCQ9ig3X9G+LLy+ThRxW2FkiPvj6tek9CYMJviZSOFN81NjKngRRje bwUiVptRtXF1h2asRiqpYLIa70jjF/qshTk16bOm6AdNPSWbRMXaDL7NB1Gc tgV+7zviiPNo/BY2A42Fc/DztbqWpuPUeTymeKxGbpoZDfuTXhTTGau3WJQV ZFESVYvS0nRkx0otrWzZU5Z5oTX+Fy1aomnaT/ORsO6rXn/3wS5nE34K0JPw Lcb9uk0vaszpdYtayMCQzxbC18+AvcUUkVw/zdeFrfH5GnFkfJLf+RwXKo9b bYMI/S2wk50UPjs3y1g7NTen1olnOz7ukuzjWDCoHDWGejz8thb39+da1rM8 z/bNwtWW4DpL2nwYRrsGIyXOjLMVWWoZJ3ECWcgS/7G1ayPJro3vMhr6v0/F IYepuBAWb8FFtgIvNI/LSv6VnNrs8ORonKq5gRmzG7Cj5BpuXbyKOz9c10Tj mScnXZxaCedu/pi3UI+SXOb+bbccl3g0dLP+TPhcqtmcCreucSgYuxm3jVtx Pz9VrBDZtGiZMI6Vr5ByyTkUATRpq2dbPzdRtvzkmQc4cOIujl66Y7FpsvPx v4CrJPMi5ntfQM6aXThXtQ0/NJxpNVyCBjPHLl9XIz/6Mm6XX8HtuqOQFT5T zexvWg4Mx8qPkxKGliUXmJVifuoTAKWVLHwCUATOW3bdRfLOq7h2867ls8eB 8RR/zKnTD7Aq4wp2117FTz8/EH460zmiFd+zGqPkOPjzr2SH47n/j/nbTgCi RdcjHp2ickRLQNkYiGHLXhQfdoDGsJ+xEGvqCtap2fG1tR2G8veXW/iuu8YQ n2l+iIEaQ/xYYzjtLYO1t7z7o8Znn0qPFwalffOPD5Iez5QBc40/0ni82CiR 9fHT0qOEU8HJruJfSdv3lu7DMlmRBpFV1++bJxvCv5KNXlcNsiIDL7t1gqzs M6j/F6EaZD/QICsS1yKwldembJQ42TDlj6Yd+hs3bliylOfPn+/SwhNk4Wnh Cav5UhEnRxncRFnr/tV0G8osumsnURZ7hZxyOP9K7r6oRXaGDbPkEo6yPuVk I2yknelRrSujMzXErW3zZCM1FtH7GmS9NcTNXoMNnGyUBtnOGmRnaYibnca/ 42T1GmS1DqXN1hC3Ns2TjdYgq3VQS5CVZawFsgYbDcGWs3xFgEkG+9ubGiTm 8BUgCx37hEsLX9Umrk1FqCQMLeNGJw2qc/m/l2VOvOckzRor+i0NUvP4ApLl jBQEpxKjQUVrQPM5FSFWTMUQJQ5grAYVLbAWSFLEKQgexPGvmPYQJDo2i8zv NGs9Nw0oXlrbwgF8Q4OaEGv5MHcbhZad5cq/pJwTNNa21i7gdK43m6shzCtK 8PtHiRpSLdaW8FrZk17WeJKn9CStQji8xEl3af3YhDj2nIL8dHmjiS0Goqz1 8MktPFyqH/i5vMpa5Uy14f9UjIkRJIF4TWMM49WJsCH8zkoYpOJiXz3xAOwk lgifQevpY2wYbVt6kzO69xMPQFgC2bt4RWMALo+RNM6Cfk88AGHh5CWtJQPO rZOBgU88gHYaA/iTxgCGSAOwVQiSDDhJK8DGNW6v8SStdOwgPq6W6qyql4Gx RoOkViq0f+sUhZoBRhbnjFyMiC1VVm2GsH9B4wF9Wqcf1GsiyOayJ5exYZqH DV+Leq8WsJeYrx6YRo6GnuugQVW0C3qcUp6okl2rQVZrsD1bt1ZV1xm5GlSf 16DarXULUHXXkadB9TkNqh+1blWpPiTybbQVUxhaIeMHrdCVqj+DQkn/CAHW irH+0jpQVfcBRVy+xLIQ1bTYoJ/SoP5e68BdrFIv5srF5pKZFmFd6/BdrhJe p7Gatah2fIwq4lTV7BTWcwqyx9NOg6rYvGpJ7aghNjbw/y67PVrV5l9tndpR Q1xstBFaphHaalB9qXW6Ro3osEljKdhrUO3QOh2jBjLYrEFVduUFZbGUH6dj VIOFLZwHWu1CMjIyFO62b91SUD1ubOW6XKzZ2NhYRQL4waB2rZN81SFFiaS3 hcdw7tw5ZVh2rRP1FJXSduWPpxVRf+uttxAQEPDITUdJW2So/2uHtK4dHBys RFO1KVCMute/3//7/f/9Pf7jfwB6hvX3\ \>"]], Cell[BoxData[ Graphics3DBox[{ {RGBColor[0.4, 0.2666666666666667, 0.13333333333333336`], Opacity[0.8], SphereBox[{-1.3767138399951948`, 9.136492442760169, -0.011319882653069602`}, 0.255]}, {RGBColor[0.4, 0.2666666666666667, 0.13333333333333336`], Opacity[0.8], SphereBox[{0.473882316936199, 6.971834316791755, 0.0004138948773504403}, 0.255]}, {RGBColor[0.4, 0.2666666666666667, 0.13333333333333336`], Opacity[0.8], SphereBox[{1.4237888928831852`, 2.4662159947976874`, 0.00013321484173245413`}, 0.255]}, {RGBColor[0.4, 0.2666666666666667, 0.13333333333333336`], Opacity[0.8], SphereBox[{0, 0, 0}, 0.255]}, {RGBColor[ NCache[ Rational[1, 3], 0.3333333333333333], NCache[ Rational[1, 3], 0.3333333333333333], 1], Opacity[0.8], SphereBox[{-0.37512028472777914`, 4.570605187795081, 0.0002255030110518419}, 0.24]}, {RGBColor[ NCache[ Rational[1, 3], 0.3333333333333333], NCache[ Rational[1, 3], 0.3333333333333333], 1], Opacity[0.8], SphereBox[{0.03463532179801909, 11.536269141880382`, -0.06288512934630486}, 0.24]}, {RGBColor[1, NCache[ Rational[1, 3], 0.3333333333333333], NCache[ Rational[1, 3], 0.3333333333333333]], Opacity[0.8], SphereBox[{2.727290054608442, 7.390531260134222, 0.0002804910126465998}, 0.178]}, {RGBColor[1, NCache[ Rational[1, 3], 0.3333333333333333], NCache[ Rational[1, 3], 0.3333333333333333]], Opacity[0.8], SphereBox[{-2.2832742569128253`, 0, 0}, 0.178]}, {RGBColor[1, NCache[ Rational[1, 3], 0.3333333333333333], NCache[ Rational[1, 3], 0.3333333333333333]], Opacity[0.8], SphereBox[{1.268100398919057, -2.196638994879232, 0}, 0.178]}, {RGBColor[1, 1, 1], Opacity[0.8], SphereBox[{-2.5623900210132162`, 9.035084825337556, 1.6699560186170959`}, 0.12]}, {RGBColor[1, 1, 1], Opacity[0.8], SphereBox[{-2.559361148898179, 9.019447040476722, -1.6935183538918448`}, 0.12]}, {RGBColor[1, 1, 1], Opacity[0.8], SphereBox[{-2.177290252557225, 4.235570185005809, 0.000388702763330917}, 0.12]}, {RGBColor[1, 1, 1], Opacity[0.8], SphereBox[{2.6079918797775323`, 2.5754100297558193`, 1.681870261262245}, 0.12]}, {RGBColor[1, 1, 1], Opacity[0.8], SphereBox[{2.60807719544219, 2.575506999780597, -1.681642477037567}, 0.12]}, {RGBColor[1, 1, 1], Opacity[0.8], SphereBox[{1.2127996638427367`, 11.642049687312937`, 1.4557099657339077`}, 0.12]}, {RGBColor[1, 1, 1], Opacity[0.8], SphereBox[{-1.1885065866440119`, 13.022373661088087`, -0.02925378145732971}, 0.12]}, {RGBColor[1, 1, 1], Opacity[0.8], SphereBox[{1.089414647789555, 11.621232035852536`, -1.68930758680601}, 0.12]}, Text3DBox["1", {-1.976713839995195, 9.136492442760169, -0.011319882653069602`}, {1, 0}], Text3DBox["2", {-0.126117683063801, 6.971834316791755, 0.0004138948773504403}, {1, 0}], Text3DBox["3", {0.8237888928831852, 2.4662159947976874`, 0.00013321484173245413`}, {1, 0}], Text3DBox["4", {-0.6, 0, 0}, {1, 0}], Text3DBox["5", {-0.9751202847277791, 4.570605187795081, 0.0002255030110518419}, {1, 0}], Text3DBox["6", {-0.5653646782019809, 11.536269141880382`, -0.06288512934630486}, {1, 0}], Text3DBox["7", {2.127290054608442, 7.390531260134222, 0.0002804910126465998}, {1, 0}], Text3DBox["8", {-2.8832742569128254`, 0, 0}, {1, 0}], Text3DBox["9", {0.6681003989190569, -2.196638994879232, 0}, {1, 0}], Text3DBox["10", {-3.1623900210132163`, 9.035084825337556, 1.6699560186170959`}, {1, 0}], Text3DBox["11", {-3.159361148898179, 9.019447040476722, -1.6935183538918448`}, {1, 0}], Text3DBox["12", {-2.777290252557225, 4.235570185005809, 0.000388702763330917}, {1, 0}], Text3DBox["13", {2.0079918797775322`, 2.5754100297558193`, 1.681870261262245}, {1, 0}], Text3DBox["14", {2.00807719544219, 2.575506999780597, -1.681642477037567}, {1, 0}], Text3DBox["15", {0.6127996638427368, 11.642049687312937`, 1.4557099657339077`}, {1, 0}], Text3DBox["16", {-1.788506586644012, 13.022373661088087`, -0.02925378145732971}, {1, 0}], Text3DBox["17", {0.489414647789555, 11.621232035852536`, -1.68930758680601}, {1, 0}], {RGBColor[1, NCache[ Rational[1, 3], 0.3333333333333333], NCache[ Rational[1, 3], 0.3333333333333333]], Opacity[0.4], SphereBox[{{-2.9162967725022537`, -1.1395856496639458`, \ -0.00004285831419274054}, {3.192508220343423, 8.608291150843012, 0.0027026493671570267`}}, 1.125]}, {RGBColor[1, NCache[ Rational[1, 3], 0.3333333333333333], NCache[ Rational[1, 3], 0.3333333333333333]], Opacity[0.4], SphereBox[{{-2.9536676464558553`, 1.1180096881822639`, 0.00001968767121723845}, {3.5491206411577862`, 6.3787815587663435`, 0.018446084698821735`}}, 1.125]}, {RGBColor[1., 0.75, 0.5], TubeBox[{{0.473882316936199, 6.971834316791755, 0.0004138948773504403}, {-1.3767138399951948`, 9.136492442760169, -0.011319882653069602`}}, 0.1]}, {RGBColor[1., 0.75, 0.5], TubeBox[{{0, 0, 0}, {1.4237888928831852`, 2.4662159947976874`, 0.00013321484173245413`}}, 0.1]}, {RGBColor[1., 0.75, 0.5], TubeBox[{{-0.37512028472777914`, 4.570605187795081, 0.0002255030110518419}, {0.473882316936199, 6.971834316791755, 0.0004138948773504403}}, 0.1]}, {RGBColor[1., 0.75, 0.5], TubeBox[{{-0.37512028472777914`, 4.570605187795081, 0.0002255030110518419}, {1.4237888928831852`, 2.4662159947976874`, 0.00013321484173245413`}}, 0.1]}, {RGBColor[1., 0.75, 0.5], TubeBox[{{0.03463532179801909, 11.536269141880382`, -0.06288512934630486}, {-1.3767138399951948`, 9.136492442760169, -0.011319882653069602`}}, 0.1]}, {RGBColor[1., 0.75, 0.5], TubeBox[{{2.727290054608442, 7.390531260134222, 0.0002804910126465998}, { 0.473882316936199, 6.971834316791755, 0.0004138948773504403}}, 0.1]}, {RGBColor[1., 0.75, 0.5], TubeBox[{{-2.2832742569128253`, 0, 0}, {0, 0, 0}}, 0.1]}, {RGBColor[1., 0.75, 0.5], TubeBox[{{1.268100398919057, -2.196638994879232, 0}, {0, 0, 0}}, 0.1]}, {RGBColor[1., 0.75, 0.5], TubeBox[{{-2.5623900210132162`, 9.035084825337556, 1.6699560186170959`}, {-1.3767138399951948`, 9.136492442760169, -0.011319882653069602`}}, 0.1]}, {RGBColor[1., 0.75, 0.5], TubeBox[{{-2.559361148898179, 9.019447040476722, -1.6935183538918448`}, {-1.3767138399951948`, 9.136492442760169, -0.011319882653069602`}}, 0.1]}, {RGBColor[1., 0.75, 0.5], TubeBox[{{-2.177290252557225, 4.235570185005809, 0.000388702763330917}, {-0.37512028472777914`, 4.570605187795081, 0.0002255030110518419}}, 0.1]}, {RGBColor[1., 0.75, 0.5], TubeBox[{{2.6079918797775323`, 2.5754100297558193`, 1.681870261262245}, { 1.4237888928831852`, 2.4662159947976874`, 0.00013321484173245413`}}, 0.1]}, {RGBColor[1., 0.75, 0.5], TubeBox[{{2.60807719544219, 2.575506999780597, -1.681642477037567}, { 1.4237888928831852`, 2.4662159947976874`, 0.00013321484173245413`}}, 0.1]}, {RGBColor[1., 0.75, 0.5], TubeBox[{{1.2127996638427367`, 11.642049687312937`, 1.4557099657339077`}, {0.03463532179801909, 11.536269141880382`, -0.06288512934630486}}, 0.1]}, {RGBColor[1., 0.75, 0.5], TubeBox[{{-1.1885065866440119`, 13.022373661088087`, -0.02925378145732971}, {0.03463532179801909, 11.536269141880382`, -0.06288512934630486}}, 0.1]}, {RGBColor[1., 0.75, 0.5], TubeBox[{{1.089414647789555, 11.621232035852536`, -1.68930758680601}, { 0.03463532179801909, 11.536269141880382`, -0.06288512934630486}}, 0.1]}, {RGBColor[1, NCache[ Rational[1, 3], 0.3333333333333333], NCache[ Rational[1, 3], 0.3333333333333333]], Opacity[0.4], SphereBox[{2.5413936804492883`, -1.9439930410068949`, 0.00006639159789333312}, 1.125]}, {RGBColor[1, NCache[ Rational[1, 3], 0.3333333333333333], NCache[ Rational[1, 3], 0.3333333333333333]], Opacity[0.4], SphereBox[{0.9447251549845481, -2.8657357574037947`, 1.06435098821289}, 1.125]}, {RGBColor[1, NCache[ Rational[1, 3], 0.3333333333333333], NCache[ Rational[1, 3], 0.3333333333333333]], Opacity[0.4], SphereBox[{ 0.9448247448613702, -2.8656782650425914`, -1.0644173798812024`}, 1.125]}}, AspectRatio->Automatic, Axes->Automatic, AxesLabel->{ FormBox["xl", TraditionalForm], FormBox["yl", TraditionalForm], FormBox["zl", TraditionalForm]}, Boxed->True, SphericalRegion->True]], "Output", CellChangeTimes->{ 3.576388759567622*^9},ImageCache->GraphicsData["CompressedBitmap", "\<\ eJzcfXd8Vce19fqES5zEPXaSl7jjXhPbseMaUw3YFGN6MaaYJlDvt+iqS0hC Es02priA6VW9USQBAgECFVBB9A7Gdl7Je997z9/aM3OujsSFJP9+/NjnVt1z zloze/bsvWfP+x+HTpk04+PQqRM+frB38MeBU6ZOCHmwV0Aw3+ryf4D/M4Uy 4UHI858A6/AT//80VQ7yzv+fzxephy7QN6w+wa6/+9FCebhBPqi2vWH7rvzb rZ99IQ9+13vjOifaYD7629/+5v0oT3+0Vj3cpD7atm0bUlNT8etf/xoejwf/ +q//ar61Wj38zPutoUOHIjIyEsePH0djYyPGjh2LCRMmmG+v6PSb8m35l5+f L7/ppz6+Qf1hbm4uli1bhh07duTqP+7vvS9esAWCfsV/A9VbN+P8+fPqUmfO nGn9rDrN/v37zZ/d6P39H374wfvZZv2TA3wA7ecDv/d83Env3r3VT3nvpIv3 DHIVfuZP5OwrV670/hnhkc836fMNNNdoP5l1IV29zeKRa5ze3PHPDRi1tbX2 t9VXzemw8Z+74Ud8fO8hcxq5CuHKIn/jxo3e0/zC/J3c9aZN+iat35e/kUuT VxuuIvnGDiRbzx/zcW33XR8NX6f7ue2ypCnYL8veLMxlfejjrI/6eO9fDHtW K7SDf6OPn/d1GV1s3zOdDev1ZQz2ovO4j5P/+howyCNf/8z2u9I75NUtPs5/ g3nP3ljW6fNHmS/Yz8p/9xpIr4G/+lTOan7tbh8ntcCxc6Q1EKK9N32P+Wrn 9ibK5kbbVVvnvMvHiW4y71kMyKs1+kSZ18BP/pHQ31/n1+z93PxautGMvpqC fGLu1Nev3mz7VYsBrWiRen29Y287Fse/83EGqy1YPVVerdJnSLqGjpZ74Bm6 +vg1qxXZyVupfy3BNj50pswC7fTp075+9eZObMv9yD+5VfPrI71N49HrqwA7 LnJ6u0a7ms+b1ffshNmZ0IMYRvjuCw930gDyT65e/vIZH2e09KO9t3173TM8 YIO0cxOwaV5fJ/ulD6KWX/dkv//HcLW3o6evc2K77rv+iS1N6qvh3OzjNp7y cdZbfWjSZdc9668N/75u1zqbXY8uXrz4mme/zQez33Rut/deZ8CwwLWrqhd9 nOh2GxyffvqpevW1PlHA9dWFfUiy9JKvM9zh40q+0mfwvw5i8pz2G968zk/a Naf5yWnXod7XGP2Gj5+/04cK/VL//OTrN2lfmLxu3tu+fTv27NnT4QzyM6Ka 5CzmDJPMGTqTai64p49fu938idyjj0a3VP+wug6bAXj1kGuIVZ/aMOpxzVPe 3OFGO/0ZlujzWgjbDbEH/3kYu/u4il/56KO6T+Fl793e0On8InajzxoepJWY S3/fx7nu8dEj9eQIb/k4w2+vgXFns8ac8T0fZ7zXh6b64tpnvNd2Tz40wo0+ sOp3nbPamfzC1oKuZcH5Nh15ckvltba2eofPvj5O/GsfF7jQ1oSUyvvVPwfr hz7O8xsfRH6uz2PNnzo3C7uNaG+Tg338/G9trFmj2mf659+/PlCPmY9Pt7Rh X2E5agu34CBlcaATSwKcfqjjiy6oK+DbBeXqy8/4uIB/selbUaDySut1A/vP r9VEOqDHP9XmyM+wt6gcefMXY2mwC8tCXFgV4sbaYDfWUzYGu/2wKcjN694U yJciAfxopgsVOYtxKL/8qetco1yEZZaZa3z3GiAJB7zGG3zQ8IBRBvt5nUtD nOoaV4a6sY6yKTQWeZSCkFgUU0oopcGxKBMJ4nORQH5GKZrpRiEl39+Flvzy J67ZeG5SF2xve6YhLdD30PMa9yDNmt/U869f4GxrG0oWLMKyUCdW8VrXUzbL tVJKKOWUraEebKf4oTLEw7+p4nFHsAdVlEreQwWvfxuvfStlC6+9bIYLxdOd aMkr9053fd3A4cOHFaRWPza9wdzA/T70i2Wcyk1ZThJp5PaR1a6qupqRrnj+ F1jOO1wZ5sLaMDJCKQjjHVK2ULaH8W54hztD41BN2U3ZQ6kRCeFzih+PHg43 1bzjnZQq3nUlm1oF73ibvxP7shZ5p9T2u73Px3XNu/YtPvCPDUvWr7ejcifK FnxBDp1YG+7EhnA38ijF4eSQsp1SFe7BrjDeHaWGso+yn1JLOUA5SOmint2C /URjH7mvYVutFmH32sW7rZrpxNZpDnzXdMQ7AfF1t3bVfYtXdabp+77XOzD6 eZ/dZ0ZzuW/5I0svZGdne1WktszvwBbe6JowB9bzRjeHu5DPGy3hDW7lDVaG x2EnZXd4PPaGJ2A/5QCljlJPaYhI8ENjRAKN60a+bIyI52M8Gvgndfzzg2wJ +3nfe0Pk3t3YE+RCdYATFf76nh/2cc/32+7ZGjVu9j1O6ekvft+J+PaZytXD ilE66lPb9OhJQ/rWBQuxjlhsMFgUEotSg0UVb2wXpUbhkEgcElEXkUQMknCI cjgyCU0UPzTzeBtaohL5TEtTZAIOCziU+nBpIB42lFiC48Y+KuE9HBGq/GME lIfM3axfvx7Nzc22ZtxxhLvpupjc520lv/3HuoDdS/e46Qhb5y/E+rAYbAx3 YBPRKFBoeLCNdyBoVBOJvUShNjyJSCSjITIZhyhNUcm8+2S0RqfgSBSFj21K kilJaItK4vtJaBWEoohMpCATh/oIaTKxOBDqQm2wE3sDHWjM/sIXIg/60AM3 /oOI2D1jdr1nepjdG1JaWqpeaVV0Ny60HqFSjyYaDuQSkTy2jWIispW8VrEb VEckEpEk1EZoRBojU3CYCDRHpRKNVCKRiqMxqThG8cPxmNQuPKRwQnyMx6MG HoGlibAcIiwNhKSesNcRkgMGklP5ZQ9eBxK7srg+JL405l3/nD32vAFmXWgk NrOp5LHjSDMpIihb2EQqDSg1EQJKCuoJSGNkKu9PAEkjIGkEJI0opOGEIw0n KTfgFI+38ZjK16k47kghPhqbFopg02iwaSAB9cTmYLADewOi8X3zkQd8YPNQ J2zkTm64LjYv2BqJXYNeZ0LzrDrei0NFpRz1o4mFQ2EhDaSMWGwnFjuJwx42 jP3Eoo44NEYJFmnEYhbaYmbxPtOJQzrvOx2nnOk4TTlDOetM78Ins6hoTzvT +FEqv8Z2RGiOEJqWGOqfaOrjKAsWN2FxEpYYNM1ZCF+YWMpXDAer59/QeXB5 zof2EAPaGMOvGENtY0gkjbIY3q6L1NMAo4bYQs1Qxb5Qzdvdx9s9yNtt4K0e jppFGuV203n9vF1nBu8nA6ddGbxNiivDD+fkcN6VznnpOR7Pumbx81n8HpsK 7/0o77vVQU3D+2703ncs79vF+45BbVAUfmg54m3hvu7bPlXP0nf79PV1pd0o snw9L6njPThcVILc0CgaQk6OGqIV4kh6AnVlInYQgT1EYD8RqCMCjbz75uh0 MucDAVcm7zgT592Z1BAXeLwTF3m86M7gqwyccxMNt0bjpCsNx4jGESc1DNE4 FJOIBkEjMk6jwWupC4lG07zPfSLxgM1KsEfKrImzTDZma2SeNBq2c0BNxlPL 7W13G7xoYNkx/zPkk5DCMK0TitkPygnJdjaMnYSkJiIVtWwQ9ZTDhKQ1JoPk ZpDkTJwiDGcoZ92zCcds3v5sXIydTVgu8Xgnj5m4TLlIsaA5QzlJeI4TmjZC 00JoDjs4SCto2EgiPaqRNFBXHWCj9QWLfu+WDt6Xa3hSTJTAGOa+/V5ixJw+ fdr4vX6NXJ62kH2ziCNdEVtJMVtJOeGoCE/BLsJRE5mGA4SjgXA0EY4jjkyy nImTztlkfXYnOLIIQxZhyMJ3FD8eZ9Omu+zRsJynnIll6yIsxwnLUcLS6qLK ISyNAovqO6a1UHXXhUXhTFHJfddEpaPGs8/dLBWSoRHpHJPspD/tnjvLynvd AHS4qBj5bLaF1OtFNJSKwuIJUiJBSuZ4kkqFkoa9kbNwgAA1EKAmAnSEAB0n QCcJ0BkCc86dhQsERAHkIUCU7yhdcIVHAYjgUc4TqLME6TRBOhHL7kiQjhCk ZlcKDrFLNThMu4liu4mkcgmPwbniEm2Q3qpn9kVbkDdvMZbQuP2KsoyynPJt oAsrKN8GuFDGmXMDp/nnm9u88RE7uNbEzjLw5JUOGZmh62oNbCzZburjp9BM /VMQEoMiWpRFnGgVhyVwQpZELZyiQWOr2huVjoMErJGANVPaCNhxVxZbRxZb VRZbSzZByyZg2QQom4BlEy5KXDa+V0IQ4wRQtj7KWY8Ax5ZJ8I6xhR0heM1s XYfYuhpUpzOtK5KtK8JBizfiRtO3ZGa/hDP7rziz/5Yzg9WUdZwlbKRs5nww l+KHPM4Kb0IeZ8KbOVvaHMC5JueHGzkjbsovv9kHjlYg1G4WztI4WsrOmuhb oRi74dvdtMCd8z5DYYiDQLKLhrL1hSaiNCzZgJlGMGdhX7QNTALZ5tJgnnZn 4xxBFDAvKiBzCGQOQcwhgDm8OIHyDgXkZcoFyjmCeYZgnvQQSLbCtlgOkW4O lWyFjc7kdu0VRSAjOayHR3YxLbBg/iJ8RW2ynJ1llXKRxCoXST6lMFS7SEop ZZRygrpFAVuugC0jsCUB/A5BLZ7hRqG/C6155TdeB1i77ptltyJvUUODBaw1 1ZJPLL+ZANzNDAu5QREEmDowxGMATkJZWArnWam0owlwlACcQYAz2Q1nE+As ApxFHZbNFmcAJqiXKApgAuun4H0QP8Tn4Ic4LVfiSQDhvkiQz8dpkE9RjrPF thFoDTLNMNViCXIMQY5mV49y0X7XAe5zrW34hgh/S4RXchhbR9lM3S0uj2Ii XMbJvTh1tlEqQuL8UBUSJ36d4Ha/jng3KgKNX4eAbyXgW9iKS6c7OeVr88Z2 7Ig/4UNDpnVEXEgQpMPDw1W4Q94VNaEiWwb1bqZJ5wVFoogzTY14gkY8XBBP QxWbczV1g0KczfkQm3OzSxDP9iJ+lihfsBCPm6MQF7y/jxfkBfOH1HOFeLyF eBbOEHWFuMcgzqZ9mKg3smk3OKkjHNQRMdQR0UQ8MgorJ/tjJdFeLc4lWrEb KfnKntKul20cECrC4rCDOm6XDweTn3Ix3aLcS7sJvd3BVEUlUjnT5XUw+fmA /UkfU+0O06WfK9gF3osXL6Jfv37ewf7y5cvqG8ZWeMdMB/ICo9qRD0kg+klU JkQ+wiBP1PexnR9kO2+0Ix8ryOd4kb9I1AX5K/FziPQcC/QfpbnHayIU8JTz 8Qb4OAE+0wt8E4E/pIBP1sA7CHyMGysGDcPyKYEE3KV8XZsphcqMF9cH2y4t tx00VaoJ/B7K3k7+Lu3nupUTd3ntUf4u8fnsEV9XsPF3cRjcMYO6K0sHWSzQ n/ahslM04O2erRvMIChWt5ieliXhcDik5fe0GnkgG3mQQB3nhbqEUG8h1JWR 6WzkGdjrhTqLUGdz0BKoc3DKgpoQXzJQfxfvhVs18jkcRX5ImHMV1mfZ0E8R b8H6KBt6q8FaNXIXG7lTY71q8Egs6vm+crVtMq62ItWwPbSIxcUUp1xMe8Sx wgF8f5jlbkuk5ZHIa2jg8Xbla2tQEq+kLlz7GwX7fcrf5sbe4HZ/W332oqvw tmtyg7cVsLE70m4ww6YgL94Qy/T78ccfERsbq/ROD9PScwNo2Qr8wRr+4tBk 2iEa/grT0gX+A4S/gfA3saV3hH9OO/zxXvj9FP4PKeTbW3qOQT+bLd2gH2eh n25Dny3dlYA1g0fhq57v4UuKhbyolC0KeaoToribiNYQX+3cS/I69xrFuWcc fH7i4uvCQyJV/KEI7fK03J0HOCLUcgzez96+L9iJPQEOfEq7px32GzpkghDL ZA30HZ1aekefjB4efuY1+0Q3rV69ujMP2np5DS2FZSik4VkURBqCdS8oDktF uaIhHbtIQ00HGqQX5NDyyKEFonvBeVIgCudSfAcq8H2C7g3yeCVhjo0Hapz4 jr2ghTwoVe9OVb2gePw0fMPWv4wcfE3JM76RcsJXQfx3EP/d4Ylel+JBcSkq J1oysecUl9ISxYl/lHIrduEhGb/kyyS+neT1syofa4QwEstO4eY0z4XaICfm Tp2JwoT0p4wqETCtmZ1Mz4yy1wlP3qCfnQYrIfUaXgF7j7BG3eYCiwqPoSJZ KaQyUrGdVOwkFXtIRS2pqCcVh0lFC3vEUaEidg7tlTk4F6d7xcW4uaRjLiGf q+jwU4Q8oGi4ksAukSBU5FzVJdosKmLT0ODmHJNKclmv/lje+30sJx1CSaG4 qIiZclER/t2Efx/lAOGvi0jRfsxI7cdsidJ+zLZo8WEejU71w7HoFHkmjkzx 8R6haCdmonFixlF9eVAfJo5MJ+ZPm4lN/qH4ofnIswY8e8pQ4t+joIvVezpM Qu3467H3N7jYfAQFVIBFgcQ/iPiHJCmNJPhvI/47DP77iX8d8T9k8G8j/ico p6U7EHvpDheI9sX4Dl2C022Cfx+POdfsCRr+WRr+2BRsHDKa0PfHCsq3pGHD 2CkoJUDbCP2OiERUE/a9hP2AeEs5cRNv6eGoNMKepjymbZRjMWnKfZzmhxN8 ertym55QLtRU5VC23Mmtyl0qLIhXyPjIyMKn0wOQPzMUe2ZGGRdfFyu/Wr1K sA3AV7tIrcxpa9pvTUvl8dps/BZ5M53sDZxSBcYrJopCU1BCi38rx4YqTqeq ozOxl0wcJBONZKLJrRWTGh/YE06TBV9sXEowrCSILXqJRPyen3OWYKg4SSqO daKi8pOZhoYBlIFY0WsANo6dygEhgVO8RA7DSRwMkpXTWjlqI9M0DdGzcCRm Fo5avjvtrPXDKT65E6cds3DaOUs9irNSEWN82G3iqI0WR20iGqMsN51HkVEY EIYDQdE4XVAKq0/YR+gE2wjt1z5O6PHEUkYcG27yAf9f1Ht3Y0fOIhRw5qHg D05UyqiY8JcT/gqa/7s4m60h/LWEv55D82HC32qU0QmPUJBDxaIp8GM7n8PJ lkVDu9CCMkroLKE/Teg1/Bk4QiXUTPgPxaYqBeSFvvcg9oSBHAe0u7SKsO8m 7OI0PkDYGyLbncbiMhXojzsyiG2Gn/Kb3o0zTuM7ViL+4nTlLRcqTorPmDQc JQ1HSENzTBIOkYIGQ8Gn/oFsleGoD4nBPs6SnrPBb80A4jX89xnQrRmAmXDd 7AP0t81M92JzG/I5ty6aGac1kLGJrqeBmqXdx+oBWQOv276Afy7egN+FB2no 51VDb1f5J6jyFdoeou2Zhd1sVd8S6ZUG6eW9P8CqQWOVe97ywu6hntlPlOvY Ehqj2p3TyhMrSFsOaicRt/zzbO3neTynhHBTTolTmpAfI+QCdYuDI3eMuBkT lYv+0xmEmlP/hlAH6kKicLqwxAu3fcIVdzXc8pEZeH92TbjvxY7sJWzjRtkH U8UQ6lJCLSqmkm28mm1cVMwBQt1g2ril8KtpLxWOD6OdEoZSShnlTLwMADm8 awX22TgC3Qlsr5In2Ic9adgy0d806w8I/GB802sw8qZGEHDx8SZrHy8v6QAv qYGXZLm92xTYmTghrm+ncn0LzrP9xNvbRYUCbudTNnC3hAqodlzi556FNqLd 4uQoQbR3RnqQQX0SMWUqls8MMb7uaLTM/wzP+5hpeexId1FWvmVl/twHzDpN 7VeqVef6ezi22lUJWzUb0XY2IMuu2c/57PqPQ7Dkg4nI7jEU8ymf9xiGRZQl lC9Fug/zw5fdhnF+veSdoagcH4o6mkun4kRxZxHiduXdyjbdRJgbPalKeX8r moMQL6N8+8E4DiaJhDkZleGWl/hqV/pRBTHnxi7jTjcI866UR92IhBguqbhL Js4R8DNu40Un8M0EeykVdsTUaQiePFUFOCrCnAr0/KBwgu7AwdCI533ocU/H li1419fXK68NjdDOkIty15DfiaqspcibEY+CwAQUhnRs2Xn+TiwcNB6zewzB XIG4J+GlfN1zOL6lrO45AhspftjM40PY1GME1nfn+92GYxWRX/kO5/9vD0Hl uGBa7pnUHYJ1hsE6DTuoFpdRh4juWNb7Q3zV60NsmhpJvJOwlbRXGQfzPmJ9 kFg3Eutm0q9DF+wmLo33GfY45Zl3S6jiYmyWn4pe3KXiF5djdXhHYhYniHQB LcUoIhxCVFcHR+Gg6G2H8SxHJ1BpxRrEw2hdStyi2I645TOL7Yi4tG7Lg7Bn z55f2BD//PPPFeI6UNMXF5rasHG6B3kBCSgISuIFJWPNlGgsGDgOGT0+JNJD 8FnPoQbpYV6kN1AE53xKEaWEUkYpp2yR94n6BqK+nqivfXsoVr/1IbZ/FEjl wZZKtA96UlA4YSq+Yev+hi1b0F4zxp/DRiIRT/Y6SXeLF5oKpI6drTFGXPqz tUufuu2keKJdxq3v1m79i+Lap1yOtdz7ZINgl4W5EDN1OkIJ5kYOgi0SVhR3 vkvc+Rx72dwbJRaiNHk8gZfvT+UEIRLnSkpeMBDasubgtoN+kzcj0DLZfTT3 juD3IfhHsdE/HrmBiVg60h+zug1CZvfBBP1DNu+hnMgP5eyFoFODrO4xXIGe Sym0AS5gb6Ns7zUCFZRKPi/md/MI/maqmo2U9W9/iFVvfoAdARz9PckoIPBf 9RqEL6m1lw0ap32lYdpjt80CnqDvJ+h10eKdtgHv0sCfkRCA24QAbPGU82zd 5WJ9UzGHEew8DoMnJHAZa9z/JOMYX7e5ZykS2j3TJlIXHYe1QaEK/ON5+Wbo vLFD7qI0e2HCBwOdg5PXbf6/QmPuVsztOxoZ7wxCVjeDPJv8UoU8my3RX0n0 1xFRUSjS3IsN8lt7adQre49AFWVH7xF+2Nl7OP7Ij4ehsPtQ5FFyuw3Bxr8M xtq3PkDxWH/kjSf4PQZiaY/BKohVFMoWz15XpsCnHmKL94JvQgMtVmhABbKy NfgczS9QzlCttNAeEcBTps9EBk09USFnqNQvSezFY8VeaKVaYQG3hAU4lJMA L/gSf1FO6lh8HRAI58yZVmKEJEHbA99G0btsE6guvuZM9jDebT5YeMP0A8nO WzTqE2SThXlk4bPuH3LkHIJlVPOrCOUqaf9U5RvIQq5ROKU9R2JLr5HY3nsk GRiJHe+OxM53R6BayXBU9xnG94ehrNcwfn8oCvh7efzdTe8Mxrq3B+HrV/uQ ggHYNDlURWcUDWHJNNBTOU0VGtJJQwb2k4KraCD8QsNZ8WBQ+awIilLKRdr7 Ls5Cz7CtS+xAwmHfxenojA6BZdloEJd1ho2GVOOyJg0OzmJjOIuNduKzGf4q dfAPnQZa4cPp26VpdyJYaT3y9Tt9UPCamTdtJQVWUuDqKSH4nDQs7vYhviZs Kwj/WspG6v413TjKdmdH6DGSHWEU4R2Frb1HoYKy491R2NlnFM9d3WckR+A9 fUdgd9/h2NFnOLa+Syp6D0VRryHsRB8ij61/E+le/WpfrOk13AQONA3Fqjdo Gqo60DCbNGR5gwetHG0l6zja6PVcDqYnxaxR4RsrYCYk3K2e6yBZtg7ZeCRk Y7wXsdp51EQqDrkMDU5Dg8OjaNgZHuY1EO1UWIOBQ1Nx+3V9nH42XSYGquUn lR+4wwc5rxqDf9sCyVF0YKMtYzN3Shi+fGcIlncbqvrGuh4yII+kyTMKG3uM IsijUdxrNEEfTfBHo4JS1Wc0dlLbVVN29xvlhz39RtIirexDRUaOtrDLlPSm tnrrPax5sTuKB4zB1mGfYP1r72HT0Mk62mBcGpqfWaiiptptC+4c4FCxIdSN SHIiRs2GEKeKGp8TfyuneBc93siDH0mZw9njFUPVpbicdnpk7mGnx63paRR6 rKia09AT40RtVHgHg9KiyO5yi/l7vUUTY4V2rbG8c6/593//d/xJvTcA2+Yv xIawGJUqaaUVq3hSRBwHUbbm0TOxlj1mQ/eRyCUpBSRFiMntOQaFvcaitPdY bO0zFhWUqr5jSc4Y7HpvDKrfI0GUnf1G8f2RqGBP2kKGVj3/NjY++gpKHn8F 5ZSyt/oh941+2PDa+8ifGK5df8rhRJvZsFNFe3VFsBPhU6YjiIysDHYQNiog tw5InKGcIyud2FHkfKdcgDmm91yHHuUFt9Ej8SAXB3Mn6XE4cb6s1OvIT05O VhhaFNlnatF/X6FZswk9fl9Njc5Vu01lsW4IjSItOmHTGwwhNZWkZleEDoTs nBqD4oGfII+0FPYc48ceMBZPo/Tdj1BMKSczW8lMRT8yRNnx3lgyNFaxtKPf aFSSoe3sRev+8A42PvU2ip94Ezufeg17n38DW596GQWv9ET+m+9jHRmy2BEb exP1XNL0IARyapXhH4IyicPY4xRucY7nmODoHMXQBSteYRiyYhZ+ipvb+bmw Y3OMe2yOcWFHYhRui514xU492TlHdix4JUPdYugFm56z5nZ/lyE935OfETOM lpovknTm3B2oXPA5ctl/8r0ZtbE6UqIISqQVLhm1dvd8KnaPC0XFh1NR9u5H VmmMyr7jSM447HxvHK9i53sf4QEeSRilgt2obmIwmgIcWPv0O9j0dA9sfa4n al/qiYZX/oIdL7yBwhffRtHb7yPvzf5YS1Iz/EMRPGUanNNmsuu4sY0mmT2Y dFgNPtk46iXJRDEMSX6Kpl8poixPumg38doKSecMSSdpD3TuQg2KJA5AbkOS KxZ1DgfOlJVaGRSy4lM4kld2jqyxKMpml3Xwo1rhIBPUucfGTMdeeQ8ai0pU fm8+h51CarZik/C6LTwBVVbwhMwcJDMN4r2ntKhcZ8nvnYXjlKaAWBycEK5I aqB26oLGSeF4GQ2TwnDWmYYzNHkk//kUrdX1z/bC5uf7YtvL76P2jffQ+Pa7 2PtKd+S91gMLPxyJoAkTMWPiJMydEcEpRRLKqd3swaUOwQ1DzQkTcj1NWs6a INP5uPZ+pHy5hhZ57EBNB3e6BJZITSypiRVqaBu441FPag6Smh+OHPEO98KN mGt2buxeP72S8KrlHD/91L6UUKzljl3wLg6jETrFlB3Fyj0ul3Rr0WDixY9I NqnnqTgUlYZmLxXtqdanJb1araCRnOOHcIHHC5z+nqec5QTijMm5Ln1nBNUZ 1dWfB2EHZ6Orh4xAGOGfOXEi5g8bTU05CIVv90f+yOkoohlg9/LutlPhTT4w Xl72EvHynrHR4acIuUtRckH1DkuyVcLBadVLNBVHfFERK1TEkQo39jlibrS1 6M7Wmn2cud/bNYbZ+dBBIGv6yD/wRclzxii72NJKizOS2txBSnTmbykpEZ9z JSnZRUr2RqRq7z4paSIdrV7PfrqKpZx2ZqhTin9Z/MyKnYt88iAucY58UUm6 4ktnh0vCbzI+HfoxAhQjk/DFMBrfoyZi19hpKOk2kOwNRMk7A5D3l/7KB18q pkBkujIFVOwpRoy0LO9g00p2jpr400kTADmtnMEqj+9cnMTJtfipV7d5+4hY ACc8mZocqjAd99ARQE1OAupJzkGXC2fKyzuHbcROs2b3nReWylDzoI8+opfG mgIfHQND7F2/9UGXtWChcv6n7EFWwq3OSta560kqGFOtgjGpOCjhgQ656zo0 cNqZqfLW5d8Fl/aZKrouuzPlkIH7FGfCUTGbxNwZQWpS8vlH0/ApjYW8PkNw YPxwNJo0x+Lug1DaTWQgirr1R94of2W2WYGqneSqxhY1VzETk8ojwarjJm7i J32qC/nIoaUqnJ1VXUcYyqbm091HZSvEmqwRD1nyWCwloZ4s1bk92Od04Xtq spt9jArPGkdA5wUyxv/4gK33WExZPoGBdsZu7BxVUr/mi7ZnDG2bgyN0D5OU 37A40hZP2hJJWzJ2hNuiOrRyD5GyFhNkaA8wzJb4gro05fJ2z9a0SQ75gzyK AzcZq4IiOIOfhvTpAey8brQ6U7B9WCBW9PkY28aM5zA2glNP7aHa9dF09rQP UEoGS7oPQOHo6Sr1pLMe3GeivBKCaTIx9yOxmj0T9fKTLkcGSdsd0uv4LFuL lzjqvlgr9pKuYi8SGGjwJJO4RNTFxqGWw9ChxYutlGtfFpx9BGrXfV18dLAB V9Mlf2hltgtF/+KDrqeNGyEvJErn/UtSsaIrgXQlcZxKwU5StYdUqaUQpOoQ qWohVUedOh5kAhUqTiFUaevuUZXzL/7yLWFuOIyXJT/EoZZAXIiV1Hb2Ojbs CouvsRPI10jNF3vbXv8I9rbBKOnxAWUg8rtrzSi9bYsJme0yWVu1ZuxqNGEz iVK2xkroTHjLpqrLJifZvPsTnmw/HrJwK9/IuoooK6pQ70lBnScJB9nLaknW Hg5U37e1eQNPvmw5e1WT+/5xtm7y5sraF4Cyk/kiTKeAvo6mwmIUhESTMKrF UJOoHJbI+X2yl7QaizQSdpjSKhEmax2CLdoh6xDOUS2W24gqZN+VWN73am2C +GYycYFyzizaqBgehJV9x2P72Ik000fisG3Rxk52tOIeQhwNjh4DTFjZ6miz 2NHS2dEk1knT3GknLstL3BEbeX44SupuVyQe4/UcVTKbn2fyu1YH07zVkbeD 7GQH2Mn2x8ajhhqynhObX9p462zn2WvFWCNUp6wSX3XmOpFoD5fZFpVYNa3s 3VunT/8GzYUlKJR1ESFmXURoAkrESCaJFeGp2EkCa0hgrVlMcpiAtbLHHXXN Nr78LEVmKYmz/JgSmTpLMr+Xdv4DR/sH1dKIK5LRb5ZGnPNoDistDj+ahLpJ o9o5NEPd1g84l+75AYp6DsDmkVNQGKZTYrbwsvRQZylMdkBeVh25FKV5yMtl Fg2/LD+SlEX6jvB4hNpbpFVJJj+WQF4GBzYrvJSKWlK4n11vL7veHlJYRT1p 1UeyG4idp7nSc/7F2+38vM/QXoNRHs3A9ivv5zfaCJQ16J0WsfzeB4GPewks RWEwR7mQWBMTsAhMUQTukgkokTpApBqIVJMiUBzSmSTKTWMjWHtAQ5xEPMW7 qOV7j1rUwnvjmPKCdznGxTi9KEjiMZUj7ORxrjxlkl6OYVYK7PUPI3FC3kDk krz8kGRFYHGE1p6aQN0RaxwSDTed0aVJbCR5h9yayCYRMtZMaSJrh5WQNWrv Bna+OrJ3gMztI3M17Hx7aJ5Uk70qGpFX2o7e1ok8sf58zX99GY6mk93tu1ta szdr1af9V+x8PWYmai3kq8jiy3itrbUzFQRG8RVt+CIou6NSkUWOEqbNRNr0 QHbEFBwXI9IbpWxfO+OnFnU8gh9JmdB2xUta+/IOTdoEkvaJIq1+6ieaNO9i Aw+JC6HW7K963ObgZM6aUzibT1XEiZEpKQySkCYZUXscmUqLKvJ4XXWUekqD CJUAZ+48/oL2YgbNjnSOZkJUGomiYiFhu0nYLpK1k9qygjNjktXBod3ZHrG7 ZdvtkUH/AEftb5tFy75oetQMbpomZweaJNRm0bSTEOyifB4QgYgp0xHMLlTC ecFh2vsnJczmXeKUc9USJ7X6hjPWH9Xr7KtX4VAqRwTTIjE0fTIGDVMn63Vj Fk1macJe/wBsGD4ZGwOTsCk4BZtDU0lVGop4jWWkaiv7WCWp2sn5SLVD6JJB L4Mme4ZSmLUuWUd7gPPGX+Ig54sHKLWkaT9p2kep4aSsmjPmnTT5qzgxqyBV W90JOFK+9S4f8NntEGvGHPgPc2OLvD7k48e72rpQYRC5Ce4Y+JEY3NKAGKqz aco5+nVgNPZyPnaYOqWV+uQoedHc5KjVURdtq6Pal58JMw/rtTpxV6/VqRxJ Xth9tlm8TJvSvlbHLGNocLhppcbgoFQO8U/AenKzgdxsJDebyU1B+CyUkJty crPN8LODXWkXebE42kN+aiSdrIYT+J/ThkjHHspuUrKLlOygVJCWbaRlqzsJ pa4EXG47ZjlM7aahlfRhLz10fUq62P5C6BCV1tUHH4+YiVazxUeQB3mUz2ZE ImjyNMwkB58HRGGrWO9UZ7UcfuppJQsfLYaPE7F6/ZTFx6U47/qpLoqE57xr GrxLp+LtdASpbqLpGIuG6VPaV5WoKIKmo450nC4txvmmo9iS8zXWBCRhLSlZ F5KKDaQkl5QURggt6ZoWUlJBqWS3qXKQHhEnhWzsdOnHKk4iKty0Jynl7lSU ujm08bz5bAaX2o7da+PCMveeMeO8jOv21eRmMhzwD9DSPg+2rDyh5xEf9Dxs 6KnfXIhPqdE9U2eSkimY6x/O0V4mVzoOt4P3K/SoOCnpEeeblx63XmR1zrvI yhsfVfn1mqM7+TTnH+Bmqo2bRC83B2Ni8P2RVmPg3oq6/O1YQX5WBqVgFflZ E5qGDZxw5fJaC9htini9peSmjLKF/GwhN37Y6kz3wxbXLFm36UpDCaWQJ8un 5LJvNm3ZbtVBsxtwmhBd1s+egWOf9c7sbK3dYCPCCvlZ7g2rn5SXl3uJsKw7 WQ29v2gLCuYvwZdSWizYjW+lnNjKIDe/tDLQjRWU8jlL1GLoc81tZs7wO/zn f/4nLl26hKVLlyLZE4cYDjkrZ0ZjsyTuh5i4t/BJu9geV7X4VHFvd8dFc+ft y4lsq7m6KDbvUNE77youG6ffvjsBW8npQeHUf6qOC7lNf3PFsYu72Zai9V1z VCmswLKgJCwPScG31ICrSeU6jk4beambOYLmUUPnUwpi2AUds/xQ4EiTVc1O fuxMxUYOeuton2xb9A3Otx37l04kXmvQudnrRdKmAt+A1bM6pjY87oMx3RRv 8RZY+8YUgVtH2USLIJeSH6KLrPnR/I7lzxcG8XUgP6NIRbgNM1w4nK/XtGvH 2O8VjaIP5Mql30sTlPPlzaRBSOqLgnS+qNBZKpn/EWnG++p7Zdgx0qkCsR7T ReN0F1VaNJ4a9Dtv75Rnl8ikSvzvwOZ4bCGbB4TNGVO1b0/YdGs265wuaoco cws/Qy3pLJy/DF/yEr+iMb+Ml7kiMhWrKKujUv2wJjqVjXl1DN+KIeMxvJMv lqGurMIsEL3Ba9btrzmMIweP2RPKO5f6tqvAcUYR3tRhLmV7/JX5fWsaLOMX 28TjxmywCN6dW4CvOUVdEerCWs6ANpqKeeJ4KlVV6MyC5RAPtofIomU+0tTY xqFtK0kuN8vCpXpePkmuylpsdPNNimDRwRbBovhJcBdzCTtzFqEwQJYYSLa7 zgsuCbdWANqXntF45ih5mDzrJQbZ7etthOu4jiFdCUN1UUts7lBdVhEdl2Xi ILNRMTIQy3sboiePRb1FdGySCUd5cNDpxJmysp+bpn+69Rj2FldgX0kF9pdU Yn9pJWpL5ZHvUU4fOWZGmBuQk/o5Zoyfir1DgnEmZ5GdUCvN9JZrE2oFfzsN d3Y2LS3LpvG4GSVk2fk8STLu/h6WzYzExjCyYauyJwuhK8mifSH0DdgdEkeV VE02d5LNKjK5XeoIks2yGW7kTXeifMPmzuzdZNhryi9HviwQCbh6tdR2Dkw7 ZSClHaejWLOVE6LF3a54T3ZgUAdGrB7rp5aG3KkDivHtyUZnyd5pDxkcEYBl ZLB87CTUCoMzp9qiWDqguN+pA4pdvbrPl+PvZwbXqS9ORson2UgIjMTf8tdY ZqJ95PvZdXrh398EwZofCJLSFeWVZu92nCd7K0MdWBPmxJyR4xHfk7NNmopW 9cAdUj2QolZTh7avpj6gVlPXhsoS9lpyuY+yVypEcgT92j8MITQ5A2jjfDo1 GJXpnxk98gRy2U8LZd2DWVqlw1tmaZVRsOJDOujUi8ybOnU8FdpS63vUeof2 2JYVeFQdTlNmaVeJcW0fGYBven+MUna8zrRJfOuAy02TP8bXPg2+ILWqvK/M +RwLX+iL89MnYkPOXJSuWdZhFLQmyDd6bRYzCt7gwxtlNzctm5Id7VEzfpfN X4jVYQ6ssy3KXjpyArJ6DkA5KROaaij7pG5feJwf6hRHsu660Ygfj3HkQsr6 7eCkOn3aTE4QpiCTj4WcpMn6952quqUT+2cvusVcVhNHz/wZHmrM+PbVoeL8 E20p828agDrOxXmF0ZbS36yRUfU5T7Yiz09Rd7eXPC3ZJuTVTpjkV24bMRNf 9/oYJexreyePQV3AVKUp62ITOEfmnbpcOFle7nN3DQXjzYasul01iH78bTQM H43/mT0TP6wIgJPjqd11aK9a6yvxb7zm6kYfH91lI85mg2oT9A7UF5dhbViM ysvMDXeqXIwykif9a9XISfis5yDsCHCQtHhVsFJWzMuS7cOUJilc2aIKV+6h Yl0yIxiRU6YiaZo/7Zwo1PK9eqlESJEF9Xtoye4OcmEHCazNWmS0/a+weTrt pJnx/Bu7tkz1uuBFW+r0v/bxTjFo3O7C4AmPxWJ2Fw5m2X4qsn+rClBaYWSp nrFlxAx81Wscij6aiBqydiBgChlLxIHYeOxzx2Inx7fHzTDdaaixHn9mFOSs UdNQ2v1D/M09DT+tDMZPl1rsBqevhSvtPW281dOsN+42rUF0oFUPWsTW10wV o4dU6tm60GhVUnKzl7NYVf1ACo3uIVebR01W6ff7AlzkK1EV1WyhHFEFNhOQ GxSJqCnTqAunYG1AOL/jQVtUAj9P4PfiyW0cDsly43C9HH8fjdoakrcrwInj eWUGhbtwKG8Lcv3j9IoaWStm1kPqahFW98tQ3U+Gu0aXJlB87q0y7MVmSTf0 U1Gvu7w8nvRkGRHudIBZFuRJ+Kt0hD8W9/oI+R9NQPWU0dgfOBm17HX7YuOw myPc921tj/uwFiykLfW4iupx8R/74eKMifhpcTD+u2oO7MvQO+Zj3KCYkIIB Ztybohn8reFN1Wr+9NOrSsDJJP5B09DPK96isIn9LVdlpLlUNud2Yr+TeNdE 6KKodeSrmK1rRe8hqKcteTgykXxFGb6mYn1gBDli3zsZneSHE9FJ+AWORyfi qPAXFc/P4tg/NXeyeL82RJdSqOYE4vvmI4a7rqjM+hK57Hj5NDILjNu91HQ8 yeqsJnd7DXcHneKtFXNltnKzt5C3VhUoyWIn1LGuY0okTjlbx71U6lmmWgXV 7ElH0Yhp+LznWGwaOwFVk0ehhsRJ8KSa6vLg4iVPXIe0mwxpoiydj/8Fh0aM wf9kzcR/rw/0KkS7W+MpQ4uvWnKWc9gweJfXEPI1Zbfm+w+b4Wb7gs+xyVuX 0mWK/MZhR4Ss6UlAbYQuaCv1Fur5fPHHtDUmTkIw+9l6GlFSZOE0pzxnKBxu HCm4TT2XZ6c5DTpFIa04Rj6lP7aQz8NSby8ilmOmCwc50dwX5MDOGdE/M5ck q3w2TI+jaZSIPHbB/NAUUpmqFrZti0rzUlmjrE5NZb3LdEW3ptOEwIhia+xs PxXy+oUKejVLQhS5k8BX3ogpmN9zDNaNHY/tk0eiOuAT7KJZuZ2d7gkvVb7G JwvZjFHTsaXnEPzNQ525SnRms3fQsrsjrQJC9i3HLDPVPoH/RFN4t49TWl+X mYG0AHn1iOmIokA3sSPm2ZIPy009Xilgso8ESgGNtYFRmD09UK1PXEvyNn88 HZv6jkBbaDwJS8NZyjlnmh/OO6WAwHlnKl9SHKn8OBmnKSdiyGUMuYxOQDO5 PGS4rFdcOshlDE4VWPr0YUXmev94bApI8kZVCsItMmehMpo6NcYMig7tnteE 6miKxFEOUQ5TVAjM3TEM1kipJ5cHPWnYOiMS2T1GY+WYj1FGPivJ5zZO8r5r O/qSIWw1leSXL/bDpYBJ+GlJEJVkjjeBR5Jt9+3bp175mp7/XXJu7JzKq3jW o9yjqJr/OXLZ06QYqBBUprJD41VpjfIQcSCHIoIaMYn2YTG1mxRNlgq4p2Jm Yfe4ABT0G4kTJPOCcxYuirj04yU+XnClUVIVY2edKTglTFGOkqlWMtUUTZtU MSUmjFMxtYeNQZssD+JC8zGs80/ABgmohOiASkF4GkpsQcsdEkwRpkwwZb8z AwcoB10ZqKPUuynWozu9Pe5F2R+bRs2YhkL/UMzqPgrfjBmHwskjsHrEADs7 og3dT7yDplFj8b85Afi/1Ia+Fnb7WtI56e+xc1U670NmcnahpZU3rBMTpSRp Cc2EEhrtSwMivVGVbwIisJ+9qDlKF9uQdF1JSJQyvOcoe8cHovj9UThNFXnZ lY7LBOA7Pn7nnsXnmiwh6RxJkjTek85kHHPQfGF3aiZBh1RFRI+pVetAbXA0 TheWGoLuwHkStGZGItYFJmN9cAp7eypVtkS8ZqEs0hZRidbL2YWkGiHKqYjy w34ycyuP6djPS9tHbvZ6A11pmN2jHxwv/AmJ3UZi0aiPsGHScMwb9DJihw+G Rc6Erq9iW6+h+M+46V5dd0sncmSo8jWnnvj39ZqVSaDVhmbGykGUMP1nM8NU vFEmul/MDEeFVFw3dTgOmRockip6UrGSQVYyiHiGyg6tnRCEsv6jcY7G4hU2 zytUHt8LQ27N1EUydJ5yhuycohxnF2pzSAXlRByKsVVDldq5vJ49NDZ/bjHT dAxbcr7BGjIjwZX1IWk0iHS8qzgi3RvvksBKlYlJ6pgXmRL3fTU5uZU2A9/m JeygVJGRDdNDEf78nxD1/Ctw/WU4Fvr741hRMlZPfRPjn7kPCaMH44+GmVja xt+89B4uB7ITLA3Gf1Gp2RdxWkaEr7X+E/5+t5F/xqsof6atv18rr9+8GQFq TqsiLNRfBWEeXdw4XBc3riU59VLeWXJ5Hbo4yklVuVrn78pi+suU7yiy6GDL gDG4EJUsMX3q+DsUUd9RLrG9CkFn3dSHlOMk6Si7UCu70GGS1GhVY6V+kyq+ tSGR+L6lVYNgC66Qn9UhqVhPfjaTnwL2niL2nlLyU05utpKbbbzE7Sq4UsEL vQ0VpGc7e+82yhb24DKeOr5bPwQ+9wqCnnkZ4/7wBuL9P8G62DFwvN4VU156 CBNe+P0fbCrN80Q3tIz5CP87JwD/uT7Am1RjN/B8DTgTbAZdhxiMfKnT/Ncs 6n3G64yVoElocDBy/AOwQuo8qgzDeJSG6RzenaSohvQcID0NpKeJ936E931c lfXQ9aalvIQkgEru5xXKD5SGiSHYNnAsLkWn4EeP5DtlaopoFF8gTWepVk6T qpPuVBxzpeAIaWpykCJ73VephaCrCv/SOFzOUsGVzPkGy4KSVdBkBQ2+tVRw GzkC5XIEyqetUMjLLKLiVa63EscsmijFNFSKKAWUPOrVOUMnYOKTL2PEI39A n/ufQP9nX8Tkd16F872XkNL7SaS99TAcr96PhuoK44y4EZO6/hkV7w7Ff8VT sa3Wis1KnbH2mPVlEwjqZt5rRdnss12dv/R8hyhWRkYG5s6dq2qLHdyUh/yQ GBSGtGcSloVJ/RUpB5LSXqcixqpToStgn5Zi4Cbl87JFjEcki4Rk4dCkEGwX gmiF/0ByrlAuqyxCWVRO5Rgr5KSRnFQcIUHNTimhcHVF48MLPjMw3I8zZKe2 qAJLacF9FWriH5xZreY1rmUDWs8hUf5toL2yIYYdjLJoSjgyP5yAwGf+Avfz /fHyvU/gzQefx4DnXsYHL7+CT3q9DufAV5E68GWkD3geaX2fwIGP3sbJvq/j +yWf4+yummcMQ55RU7D8T+/jSjBtsC+D8bfKbG+6jC+rzcrCFYY+tjN0o3de a02iZD5r7ZZzjUCVnzHhmwpLUKCSmHTWYEloAspC22t0K8LYRBtJWDPJapM8 XZfO0z1vypRLTQtJ7bTI+ivlX+OycPiTUGwf9BEukLQrcfxeXCYukrDzlDMk 7SRJO0bSNGHJJlc3QdeljaRRFxGDmrBwr/tZBzEqkfvpMqPB70HcgLGY+Xg3 RD7bH2mvjMP8foFYMs6Foa/2xlvPvYr3X38dI3u8iXF9XsfMgW/AMeR1JAx7 FfGDqcyWxOCnnOn4X9cI/Pv4HrgUMQ2n2UCetKm5hCe74chYqrm5AfiP9TM7 LATtGHq+0TueWLWBha0OTN3gTc41RazutZHkI9h0oyGpY2ZgPEmidR1mSKK6 22tVIyFBzc5MQ9JsqiwpMqILp0sNDCHpRxLz17hsEpStSPo3yiEStW3QWJwn UYokiiKJc8pTJOk4SWqj6muRWuFOiySpEsCRKdKB/eERZpO536sbX8cJifyL fLIvUl8ei3l9ArBkrIN6MAUreb5VWfOQ5nbi1edfwl/+9CL6/elZDHn9WYx+ 61mMe5fKbcDL+CrThZbVc/Hjmgz8z/J4/PRFOH5Kn4T/CR+E74a+jSMBU/B9 dc1jBvvJ1HdVfYfhvxK0vvtf6ru7OnHVnqOuN5GypwkY5+24jqrv6nWm1+Tq Z4arjYER5MrpXcsuXG0xKbi7pDQ5O9PBGM2VZG7KumjNVZbi6qIpRy7pZJL9 5+UqPltx9df4LDRODsWWDz5SPgmVxhknXHGII1/HyZfF1WGVYtZe0aEhyona iEivu1ka+Nqcz2gFv46IJ97VCa6/x+LRMVhGy28lL2dV5jws/2wBPv0iE3sP 6G3Za3ZV449PPIm3/vg0+vz5GQx482kMePtJLF+cgzoq1crduzFvwRxUfTsf p9fMwX+sSsP/fu3GTwuC8FPiR/gv/744QYV4hQrx1K4aa3euOCrEla/0x/ch VIhfBePfK7M6LO69nlXxUUeF6GvKevv1+dNm1T3sa2WmtKsuYiwZuIq/CMOf vbS8xZ87y8uflED5Lq4jf36Kvbvwbzz+lfIjOawnh6UfjFW+pPNxmZ34o+nv Jn+uZDQ6O5aCqI2MtHawFPrWkL6Pu76G0Md7I+mPozCnpz8WjYyBtZf4qox5 +Jb8LVyUhX211Th2+ijaNwPbjYWfz8OihXNh5Xg0HTuBr1auwYrF83Bg1Xxc WpOF/1qZ3K4rncPxb0ZXnlrw2QM2VZn8VHe0jRuH/50XiH9dN8O7HeO1LEJr MBvbUUV2mtDeam72WhaH/Kr+zr0duQuOR3GIyZ4W7qgj90Zfg7tYvSXAJStj Ok6ndP41PofM5Wj67vRS9z3lAOkrpso8QfrOxBnqPFLQXqhL7UidKR+xPyrS XOqtWE3eZo3yR/BjvZD4wgjkdJ+OL4ZH4Rv/RKzgpa1Kn4tvP12gWBTejp85 ZuYzv0RBxU5s2LQehV8vMCoy06eKbNYq8veGo2mPvoZd7w3H/03yx09rgvE/ F5u9y03tqW2d69TJqzF2jm7qMK+1vLfsZ7dc3+bQ1s1TiqYCW61Yqyb+dpON KzQdiNFJ07LhwBHZcEDRlI1zHr3ZwHe2DFwpDG6oUkxpnrIVT5cp+yeHoHDQ GM6kk8kTDc7Ydp5UkXBXIvZQbVdOmIbK8ZNRNu5jLAx0WbtWykaWBwq2mOap 6VtF+tJGTUfgYz0Q//wwZL8zFQuHReLraQlYQc2+atZcrFiwAIsXzcH+2t04 ccayyDhxaz6KyurdmDv/76hImixXFn+OE+xblmJLoI5c8+oA/BA2GT99HYzv t2V6V84J2p2NRvuseHRHDq0ZsH3HPG9dzWuqybuNmmwqEA6dHThUlaMiZKWJ SXw3HDa5hMMsxeEpL4c6/dCbSa3yXoTFR6/i72L8bOz9JBh55FDqvB7zzFL8 VfO9shETsbnfMOT1G4KCfoOR32cANn4wDBuDY7GJsjmIj5QNgbFYF+DG6pku rCR5qaOmYeaj3eB5bgiy3p6MhUMi8PXUeKzgda9KI3nzF2ApyasleSfPHjcZ T5Z+XI1vr9KP0fgp2+jHj3vgIvXjyQWf3WPTj2lP98Dx8bQw5gfip6p56JwA J73E19hmeGuvnG2vsKTMLNJj2TI3Xp++e40pcyi/DPlWuWCjKS36drAL7iEM taSvnqrISro+JguE1AYJ2XqDBFOy5YpoyB/k8KNKfBHqfoiXZPh2+s5xhNtN ujYNHI09EwJQ2n+Uci0Wvj+CMgxF7w1BSb8PUNR3AArHfsLhq4z20+0opyYv oyT1HYHwV/rA/9F3EPvsYGS++Qk+/yAMX02Ow7cckVelzMHKeQvw5aK5pGwP Tp09YRI4f4l8qsv1G9ejwJe6nEV1GUZ1OeRtHNbq8i6Drv+jr2M3L++/k6ku 14q6bMLvbJRZZSx85UiN0pRZkwVbYLpDSrY1q77h+qT9i+lzuVJVOMCqKqwX m0hGtuytsJuE7SdhdbKrhcvKytaEqRUM0ufaU35VImH7jhYPKMJ+SDArGOJl sxYhjf02zIPCnoOx7o1+KO03AmX9R6KEqJSStDKSVkbSvvrjq1j0yPPIf+CP WHj/c4h8tQ+mdf0LXM8MQsbrE/HZwFB8OcmDbyNmYVVyDlbOXYCvFs3DxvxV qKjZauZbv1SKsYKKcQ4VYyUV46lrKMbjfV7Dd4s/u92mE9e9NhA/RlAnfkOi mgq8ZT592Y12H+5ImzfKZ9bOz6+aXDc1NakJthgiFkk0RO4zPasqW2oPx3pr DxerpSapqIzUm71IrFaSJPQGGLNp62Wp5AhLMVppZJd1xR2dwvsAudLcfEdu Lgk/7FSHp0ZgB+e/lZS8bgOx/s2+5GQ4tvQfQRmGLe8PIW/d8eXTf8Tah97A zsf+rEpspP95Aj7tH4wvJ8Ti27A0rEwiJ3Pm4+sv5uObnHS+TsCWGW7szVqM S01tZn77Sxym7vtyxWra+fNQez3dFz4NJxZ89gub7st4pidOTORkeIHWfdY2 fXbb8GnzffuaR/kn49dIu0f3l52jz95p9fz58+FyuVQHEgPRGB4PGPvwUH45 8mbEshPFGW701jDbI7XhoQYtlcBiBi13u9Y749H8nI/L9tYLuazzqiU5N5sj hFZ2WbD+7Rw4FlUDhZ/RyO/Wn/y8i/L3hmJrf8r7H+KLZ17GgiffwKZnBqD1 tcG41OsDLA9NxUr2w5U55GLhfPaVTGxMTcI+qsM9HM92cSzbYXZ32aI31XnO gJK3fSfWUc/lX1PPDcTlD9/Cvy1biCvVNTcbpSP0BDz6BmoGUNelzlC67r8v NllLquyWobWjgKg6MResHQXMSDXCTtItV5EkHWbw4MF2zWaCvfdgo78b+TPj VHqRjEUlatuYVBUW96o2p96wp0VlwEuv0eZEOzPtZUMk8dJPJc8+qOofysIf +bdn4EfYTVH0DBiDKlJTOWAUu8/72PBmL5TThNj6/mB8+eJbSHmyPza9NR5H B0zEdyPGo2BWCtbMm60eD4dL5k0cGsPiUE8VeSCUtpfaB8atc+ACXNiu9v5t e97Sbk1HsZ3aLWeeL+0WqLXb9D44qrWbVj8/w6ezM/DK/b9Dd0q/e36N8Iee xMEJQ/HTMtLUVGDt8Wg3/jqXVRdFN9xmRFx7nZBlisgvWTvBSvLQZit5SBYo yBJHUlPBTrMrWhSadJoMb6dpdc9WySYnYrNUltBpjy5DcU5NhM/LQlTJrbwb B0dPV9chfFSzm1ic7DCcbGeDzO3WDxve6IGSvgPxxZ96I/7ZD7HyLxNQN2AS Tg0Zh9Y+76FxWhB/WHKifo7WiHi0RNgyo9Qmu7EqM2pvsAu79Z7MOsh0Fw4f pUZbTo226DoabVx3FLz1B7z129+i1wP3of/vfoePKZFPPQjXSw/j6LeeRzrB 19mSs0abYTazwLZa2DfuVSbxpyAoEYUmu3yrzTzzjvbEvdmGu3SLEyqjLktl 1p1RmwFKZmQXHA2LR/UAgfsj4yG4TWmpnQPZFQaOQgVh30bYtw4Yjk3vvIuV r7+DA/5RWD7QH6mvjMC6buwqvYagaUakH45HJbFZH49KxLEok9cUqfOaBP1G tSu2W+elmS1i6rO/0IHX2zsoq2Yfymr4ww9h4oMPYPxD9yP06UeR8NrjSO7+ GKa88HvvyhxfVph9UelQDfdvfYDc1YBsL76bT71TGKrTGmVEEI9BDRt3rUMD 3WgaeItbLztXYHs02CcVyJII10UNyTsHaB3jp17pAauKIFcMFIBHYsvAESgf MAwl/YdgdY/3kMtvHYtKwfHoFJyITumCU9GSdHQquj3Z6ER0okogk4Sj1qh4 NEcKyLFq0+SDZh/pGoJ8Ir9MqRxb2vhtqDvURuVTjZy5OagwymdvWghGP/8c pr30LCJefQohz3VFwjtPIeqdxzH5pQfQuKfKjnRnM8q+i8YQjXTnGU070r9B Y942bJyRwAlZksqXKfLu06PViCC9n0jrHDYxYom2ux3tNoW4zluTWkMHJ4ej sr82fhTQFXxynwJ6GycZWwh0+cCRKGVrLqYttJUKXPZxKRv2CYrY+k/FpOI0 5QzlrIPifdRpXzrNK0kjThHEmwTxiFizTbWTiDuoUKJNyNpXnPkXOEQNs2Du fIzu+z4+/NMrmPL2Kxj3AkF//nFEvNgVoa92xZTXHsb6zzNMz++4fsnXFhkG 7c6TERlTNdp3YlvWV9gQkMipbzJyJdUsPE0vblAl62Whfjr2OdJVrksdpR1x KhNKi9qUVzLMbuB4OAbb+o+hUhAZq/XG/Wy+Y1BGVV1CpIvZpAtFXb8/FAdn OohaGk7G8HQjJqPsg3E455iF8yLOWbjgSMMFp07rOS+IO3Ri3UkifoyIC9qy V/oh726tLqLtQG1QjGwa8gcfYN9gLI7PM7Pwpwcfw1vP/AGDXvszBj/3B4x7 6Tl4nngVK7u+iG+eet67SMxu19hBtnS1KTJ1n+3r0uLbjZZbsTXra6wL0CuC JXdFQC7lHGebWVQviUWSryIpYBbQfoQ6g3q/0Z2BQ5Tdn4RxLjVaZXL4sbWO oW4s4VHKrhYR3QK25XwxUIjwRs65DnIOqPJ0KGccs9QeIDtGTsXWwR+rfJwu KnXqNp2b40xTqW5nnbq83nGVPCVbiyficJTZIti7e3IM9gZFPe8dmm4205+a HTvxEjF98ZHn0POV1/HBK69g8LN98HHXQUju+hZWENc9oz6xYPVlh9gnXIM1 rPf7aOqPGF1Vni2repOxTi20TkO+ytmahS2R6Tpny5YOZOVs1Uo6kKx9vwH5 741EAREtYJPNHzDGj9CN4a/m8riJgG4kmBs4iV39/nDsJ5hSp/CkQ8DUSU/n KRcp1aOmouLD8X4q4+mO9qwalfNE3F1pOO2SnKcUHCOuRxxJaIpO0EkbkXpf ctn840BIFE4Vlj7vo9XeZBBemj0fzz38BLq9+SZG938LQ18egIFdx+Ojrh8g sevbWK4RfszW3S0j43pTJoP0A9dE+i6VQrKSSK8OSsG6UJPiQ6RLifQWIr3d m96jl7PvVsvZ01FJC3fDe6PYIInn+4R4PbF+CGt5XM12vErJKGwePkkVvDti K3ankmScksGUyZaqE2VqaAhWDZmA7yWLifIdxZvB5JIMJmoTYn2MWEudrmZH Ig5F2zMvnKgPjUbT/M+8izHsQN9odPGKnFXo+/pkdH/nHbz56jN4589PYvmn 3xDsCRjbdTDiu/4FyzTYsKNt2Rh/Z/rzgQb8wWsC/rBKCCmdswzfSiA0JBXr rJydSL1gXS2EpmwjYhVES7J1CiaGYFW/UVj13misfG8MvqUsp0r+huB/Tfny /ZEomhCst7Ph37Wpao9qCxs26ExVp06QlnSkK1LLJzbTD3vHTGejlnwkyUa6 HGtKDKp9xalcXDobqc0pO9vobCTvnuIRLgIeQ7su4lmvmWGtRBv4+HBMmDgL y5cswKENkX7eKWaTAnlM1w8R1/UdfNP1Jexub9FXV+rr6E0zJUEe8gGsHu8e wtmWYyietwzfyNJkWhZrqDM20LLIjdJLkotMlk0xe/pymgBL+47C0n6jsZiy kPIZAf6030hs+jhIpTwcjJICgFJJTu8NJKXJzlDOq6J/s9k8dQLR9yaBSJD0 w36FKgFWJeUuEdXzJnlI5XdJFN0lO7Unm53arSbsVptGHwxT+V1/8rpN9mLg y0GIcuSghObaleYSdOkE6OiuQxDbtRu+6gioLwPCroRN1aKHO+EvLslHzdh2 hoDuL6rEYrU4OBXLaRSv1AuDsYaj+zraUjnvDsecd0ciu89IZFL8sPyjQP5q JWcq1fz+PinJR+APEURV480he7vrre6t+m46C8ukJiiZjb9S9o/1x96x01Wi jyoXRjDPxup0hBME8qg7Fa1WiFs1zzizabTez/h0cfGfTKNckbMGQ9/3IId6 dm9u2o0dMJyIUcTQRQy/JIbV7Rja7QNrLJQN0GXZ/6JgN5ZQvqIsoy5cTvlW HgP5OsDth/qCLZYtbI/AmPpDj3TSLaLJrU2QT7UeQ02JznPxU0t178EXo6dg EZuWtYe0lVKgcDab0dR5a+llqlp6UsnrrKR/uE36B+WKLUfHT2Xp3Ikf42Zj 57BJqCHWVlk2q5beCaqCo8RacG5io23stG90fWQ0zpSUwAJ64BOjMWlKOlZ+ OR/Hdy25qRPQI7sOhbNrdyzpCLTdYuhigD7b2oYDxVvwFSeP31CWcwq/irI2 JBYb2jdP91PhnZuwWRbqi8yUxfpuVGYvlo2brCwOe0m2/poC+8SmYxrPPcgL 6riNcamCu31zeQV3jA1u12wDt66Ap+HWdbd+oPzoEcfHX+M03PwOpxpVHBqr CbmC22PgjrXgTtVwd9g02o36qBicJdwvexXEfgx8JRRO9xyUr8vBlaYi3NwB 80kY0XUYYrr2wOKuL2PXqE8e9XHbfsY/VbpgMXFmQ+akfVUYsaZsCPVgMyWf UhgSh2JKCaU0OI7GapCH5ysl7sVqDT3FbK1ebRzHVgaA3RFlCOh8JdICtDVz L/IDo0mA20uATsGwCNAb0tcRfNmRpsXZiYAO6U6GAJ2GoTm4Q9WxO8cp3nZy sJMcKPwpJ8iBwp+qpUntR9+xQJPCv7TkZa9aWYfhg+Ixj7O72tzkWzohP6zr cER17YlFRH6nhfwd3j5/vL4RK8NcWE07cTVn8WspGym5YR4UhEn1vjiUUbZQ thHx7SKCekVQHIfbCmK/PdCDbQF6zfsWtc+6G2XTnTiSW24H3lL672vgO5uR AvxTVssn8IXUY2pb42ACH5KkymRVykb1VwE/WwPvzrIBb3KXPLpq2Y9xuuVn q5afrZCXREBZW7WV6FcSfS/ybP0dkO9UgonIw4J+4FMfYYp/BtZ8Mx8nd3zx c6OkNfSfKOgju/bCQkKfS3vu8q4a0+FvRfmK1SrjfiXnPOuJ/QZivolSEO5B sdTTJvZbiXkFpYqyI0R2Wt8VEtcF1cGC/C4ir53wsagUCdDO+Ap/teLZQt7u h3pPI/+4D+R16OtXyA0wyJudjItN3T+FfNS1kT9jNl+6ZLLGrqiUCDZ1gfsu FYptBz5LucJPEvyyYRNRPSmoA/CHr1lsqaR9KUst59Xh8MTNwbYNPFtjnsnJ bwd/SNcRCO/aG593/ZMC/zuC/7CZ2W1bsEjtCJ4xIxghU6bR/HUhj+CrTXkp skav85b3e0LZ6PcK/vvUdvcSCFE7rgfHYrfZcb2a4251gAs7Z3Aim7XIRCCu TsiUcdiQ8YSNDMt5ot97AjvnfNFhW2krTKRTwDqnEc1WuwFJGtEZWxrRZZVK ZOWo6IC4MKHyGuKyVRXGS+wKEmc9FpOM4mETUDUpULHR4k7ryIarvbzSD0da XzK9wDHKgREfJuCz+fNxMC/x1k5EfEgiQru+i09tROi5yf04VFzm3UdmM3tB mn8g5s4MMWvsZLlDHK2LOOwUfzEtjprQBOyl7KfUUg5QDvL9On5ex8eDfDxA smo5Tuw3BMm27HuDXKgJdGL3TAcasr+4y+hIe/KlzbF1i3c+0V5v83VN11M+ 3DCPGR+ubD1dQPZ1LoOOH9nTiTqkojjbU1EkY+9crOQyZKvdgqydgqTjfG8o +15l8mUZunRRv7NS6Tw6CQVDx2P7xABNV+fKSU5VOcmrsJ6ZgOkBmdiwfB5O Vn56WweqJpOqkQju2gcLSNVmQ9X9Zo5+UZZBhjvU9iV5UrQhwo31VF6yi8uS gAhsD49XSyJ3hSdgT1gC9oUlYj/lAKWOUh9Ooy08sQsaw2Un90ZTHqBemJMy HGSslpZVbYhbeZD3k62amTFkayHu8TGK3GLuqFMAyVeJC71xkRnVO05KHjUD jtozlsrTqsPSIQ0l0paG4qVutgrInmJPO2tlNXhMj4vTiZddFIW320pmzja1 GDNV9ldzVCLWDhiJ8okzcMhHiaTmLxZ6l4etyFmKQW9GIiFpLio3ZuE/Lrbg 9k79bHDXUQjq2hfzur6CTYa8+8xov1ltayKLkJ0o4MS5ICJWbRGQRztLNkZa KSUzyEtNWBKJSyJpSagL5/WE0/wLT/bD4QgemvRBVpA3RSSqyg6HFI2awjrS V0f6ZNXxgSAH9nIs+aH5iJe+q+vA/DP0PXNN+u7GZlWLJVYXuwrRW6epPRvt u9c5rKitjFpZ3nxLiz6J1l5SdsJlGbe+U9xZNWqtLBS1ZyC5k8yvxqh4rBww HCUTp5uqRwmqZs4BpxOnysrQrh7dGDUiCYs+m4/63Lg7bbQ5RmUo2gJI29yu r2Kjoe135r6qFiwkbdZGGy7bzg40DsJlRuBRVVyr2In28Z4PcHCopzREpJAd TpYozZSWSFk/3hqZIgdyKLUdbkFzZKKqzNEQEc+/ilMxyvpQTqdCHDgYFI2a gCiv5XxVIbR/irtnfXBnRb68JVkC47x5KrLtXYWxOLyDnLN9kLMS+M6YLDCL P9nqJruLUpC3qlD7BaMmlXHnMTZGrLhVPFg2YCiKJk5FvZvNl7ztdTraDbvn PkFA8GxsXjEPl1u23m3GC+Hrg66jMaNrPyQ+1g0rnuyNo0sLfmtpEarI/DAa UOEOL13Fst5V7Y+SgAqzP8pyAhs9ZTp2K7WYisYI2bImjYSkkZo0HBGJSkUb xQ9HebyVxxS+TuH7KeQwid9NUqU6GoRA/n4DyWvwkheFM4WlHfSmNff858l7 zgd5luNWNmzd7E+rNcCkTEj2ZXjH7Mta75CXqTbJazNZtCdjdQc848nyU5sR 3qni8ReMnDejnN4tMrM9YZZdr8XDkc6TwhmwG18PGIyCCZ9gv8uNhkWLbCrz K3zwl2ikpM7Dzk2Z+I8LTTo+o2/yBuvOrX+32Dl+jHb9Cy6UDJqDHx1puLRs yW9Mc20pLkUhOS7ycqztddm9Y6vaSj2JmjQZe4nC0hkRqqzifr7W/LL1sUkf oRyNnkXQj0XP6sJDGqe9x6JT+SYJprRGJaMpSupCJKre2U6wEw0h0RwgI+wz K8s/edM/za0VDrB7Ph8xd1oxewlyZ8R5tz9WtYpVlp/sx8qpQAw7piPDG44W biXTz+JWOqgt7s/jbTxqMi1Cxe4XXdpKQps87AlqJ4kk1EQ5sGTAIOROnYYr bW3tqjQOY0cnY+nC+Wjc7LrJx435qk9mFXFxjFuOgD5V2JPVgv8pb8APW9aY LOR7URAaiSKOkppTvSNLCTktV9t7JOlFt+R0P/vrQaqmL2aEYQX7scVpG4eZ o2ztxyjHKSdktXRMuh+fzGL3PRGTxreF4VS0kuFmMnyIDDdEJRiGPWRY1tc6 qIMj8deWVq/utY+b7TWAunQ2TV+wcWnt2WhxuWG6h1O7BOQHJakcjs4ptjqH w+IyUwe73TrQfZxygnIydrbK5eiiaiTdqupanVCdMgNHqVuPkMdmxSEHIbVZ gWwyQaMw2oGUTyaraaZF5MAXpiI4PAv5q+biu5byf5bI1gMXMd3/JAryL+DK iXP41yuXzQqCX6G5qIS3GEUy23dCkn1a9E7lekP4nSSyhkTWhqehLoJjDN+T 6hC5QU60RQuRHOIJyYmYDD+ymNFFhYx4y+RS+DxGNo/EpKKZTB6OTiaLZDJS mGwPFcse8OeLS7wsSmhMKpQIk700Y1YI2e4F01PUOzskhOSZcjtSjrXCShGM 0axZPfAwe1+zW2fftBnm/FSSwp2KQdnh9ZiSDLX5zhEy1kLGmsweLrK9RK2H 1p/sTyB7WC1e2sFBYC2HX5GzDIN7ODArfR52b07Hv58/5FPvWI3TWirf3Paf 2NX0VzSd/avpc/eglfAUhVKXchph7YIke7TIJufKr8x73sV73kuaDpCmhsh0 HJaNByJTEUm6yji7MzThJHE45ZC49mkeb8cZHiWUelrtN0bKKG1U5S2k7TBp a1S0Ub16489utXK6LizCW17LVz0gaxztqSn8YycKBSqLwq2zv8SGmZL7kEQK dZmdMpNpIhTuURTqpLV6J2l0CY3teQ+tqtb9EbVWv9Xsl9Rs2zOpnrQdkFGQ 1NXEJqrNCSpURZY2dQW2a/qDpUBHJ2LcuFR8vXg+Dm2MutlHH/M1WnQ1hBWE RJCwGL0/S5hHLXkvkj3Sw4xjlHdYTbL2kayDJKsxKoPjGK+c/UkqFWRMD+Rr iXNT/VNOO+QOzzgz/VRViV+q8gUSoW0jWy1k6zDZaowhU9FGVUbG60hrJAfC iCirsIK98o91/XZfbw9N1ovXJOsOlaiyfmYSNpqK94Vhad4qnFLOWhJV9pok rINOi7AMHKIcdlFNHHbLDRx2y5Zw6aZ6zixylGb2JkjFHnJVbfYl2M4u9l3b UV/5ji9YOvKPMxAWlY2i1RJzK/XFlS8daZUtKlRcmb2qzC4eRaF6GN9KrqrI 0+5wDuMR6aizuIoWrjLRFpOJ3GAX3FP9VeTxtHO2MDSbwzhVzW2KLNmG7Djp OuqU6hMcvh1CFece0rGibSveo6gLI6NxrqT4NzZqrAGtu6bmpWtScxu2ZH2N tQFJ3tIsBWE6D0M2kqs0G37siTE5GCbF5aDkYdSpPQjqXLxBt5TLSVflcmrV PgRp+H/tnXdclUf2/z8/e5oma/y6KZo1uZZoskYTe8OuCIoV6VUQlS4CUq2I 9HYVxN5QRERBQESKoGBvWFCxxajRTbIxm8TEyO/MPPNcHq7Pdcnu74/fH19e rxG99zp35j3nOXNmzsw5J8MjUaXIQVASuowNidpRSDmqm7flKsycEIq42BSc yo1qrdNyzXSGZTdhTxT60hTkK3JP8YzewjpeuIrwR0r4qRNnqRMXCf3lQHrw Cf1NQn8riPR1cBwyvYP4ELBzC0SfpQ9rxpNSteNZxJj78msqLKjELRqJGzQS 12gkWL71Gj4SDUns+Q3pwCB8e7hIdw5RuTU8ShqGforOy3f/pWF4H8U0DLs9 I7BHxGHJZTkhSICK/Rsi5LDkOfoRck7TKJyhMThNY8CTDhD/akXCgVIag5Kw lTi9cSv+UXertQp/+bK0neUW9PlkOcy6zYSj82rs3KTFneObpOe6I56Q0VTo w7iH6nyUuhTenPtq4h5F3EnxBsRw7leIeW0Q405zZjBZr1TuhcRju2cAcryD eUqpB6HM6mHI2zZAp17dCmXQSSGHMOiRtMph4IVDnTnL+FXZYIJ+WM0LO1Ji LnstWYcV24rSKYO38LD2NjVGil2fSdhZboG8RVJoFRaciB3TYOdjjsp5BUJY eBWWUaCNIqdAlC6nQFEYzUShpIU2bH1dBbXkCGgDe8sN+EITh6EfJ8PsKy8E hiSiOCsRa7xojjx5S5r3eryM3HdZQ/R4Ql7GkJOYnwiQkcdy5NcJtz7ya9QL lj2dRcx+IDJ5PeS/uegL7MzNFiOw0zwYIrAHixvm3FMjsBfrsCtXwAL7QJVl 7cdCd57PP4qtPFZKJHZTD7KJ9wEeJyUahdTKw8S6mFgfYYVaUkwtKQ6N4ikC CqmwFAEHQiNQuWEbHtfdflOFcyedxpBDhPb8cBn6ddoGoy5ZmDxkA5IStMil hY750L0Icdv2pVAsBd6LG3mFeQ50X0Y7UkGbNCGRvriY0SbDkNEmypx2SALu UvmapXAMkohXsCC7DHc7CXYYgx3XADtUgn2Z5LyGZ4wRKel5znOCHcRh6w6C KtekRhLtQQY3EV7D2YKjyNfukI53LGJx31djL5V9tC7OobKfrO1m2E+arSX2 0WO2l0pmcAQuHznK4veLjdDGeD8S07o8M7LLJfsSU3E4MQ2pVnMR3nUoYnuO xlcd02H00SGM+/QkTIdehdOUa/CbVQ3f8XmwMUqVNQuLUFuou9BN0H0k6IcJ eukiBj2ai/gZ0igcehCDHi9BJ9G+TeUuFQb9Psu+SIITv8Cb3mMWK3NbtsVN n2W46BKAcy7+qJg9HwXGtsgztsFhc1dUOvugwtkLp6gdUrJsoh4czFKZy5m8 lKvEERL0wSrQuwptc6pQOttxjso6tsO7PiCCRWIorsAFKueLj+Kbm7fbq6D9 QBiDlwhpLiE9IoJsLO86DAm9xiC9rxm2DbPCnokuyDH3RJ5jAAZrSjCm701M G/EAM4wfwdXiEQJt7yLE+iw8J2/G98Fu7MqjWBG9hwIvwdtbxEUn3ofIhC4i 3iV+Eu9qEvIzJOQXiPdl4n2NeN8g3nWcNwk5cb4XKgn6/bAEbgiFzJ2PY1bu qDB1JO4VJg5kH5Sb2KOUypFJtiiaZIOCSdZUrJA/yYKKOfKNZ+C4sxtOe3rh 6c2b74uFkHJxIPv0BPchKtxHqZCUQ5WwS9wHqZQSST/NQER0H4Hkz8dhY7/p 2GkkXUjZb+GDg3MWE5klOETrl0PLY1AQnYi8pBTMmFSBocMfYfy4xzAzeQIb y0fwdPoW/nPu4tCydNSnOOF3n/F45D8X31ad6i10d3VSGgq9GkNmQs0hk8ar EJBPC8g1DDIBvk7lZggT7ARSEQ2gb/iswGkLD6RaOyPAyQWlZo44TqCPE+ZK KkcJcpmJHY6Y2OKwiQ2KTKwIuAUVcxwynkllKgonmOJ4/AY8vlb3npj0mTaR jXuFHh8usR4quCov8KmxlpTEGzxORSEVrZUrFmsGY3WPkVjTeyI2DZiJjNEO yDabhwPWC5E/N1jcTOmAwpVxyI9NwoFkLbJStdi8LhnZ+zNx5uxJlJ+qxInj P+Gzz7/GwCEPMHrMQxgbP8TUmQ/g4XkBN7OT8WtOJOp3BqA+0R6/uo/Br7vX CZPyPVzPL6ZBEBeg2VVNlsNBSPoRkvSjNAhVfBBicI4G4RINwhWS9FoahBsh TNoTcDtUGogTBL/C1AmVVI4R+GTbOdhg5Uz9qKZ/tUWVKRsIexoIO5SZ2qLE 1IYGw4qKBUm/OZUZKKZBKJhggsPuYShihzjyjnyootaHSfSHqew5qdFvIyav ksxylCZvQxGNwFpSw6FMDX86CqlfmGDLoNnYPc4J+6a7I9fOD/nzQ/ni8hAZ L4WraATikrBfq+Vjkp6WiItnT+HU2RO4c/9uK7FSqD7xC9ase4q+I77BgLH3 sWn7U/4Ou8y7h9mK+5Lw275VqN++CPVxNvh57ij8tCNNci31xOPam8hneVPk u81eNBY+EWTMSGNRTg/FcdLyJ2ksztJYXKSxYJrnKo1FLY3DTSqXafzKTBxx lMagYSycUDLVGQudXZBh4YwTNA7V9EAcN7Wnz9jRZ21pPKypWFGxIG1kTmUG SiZNRYm1K8o9w1DuEYYy6WiHmsaXHgMMV9lRGqKzNNAQpV9atEivKQ++tRQb hjmbS5E0LBK5E32wbagVMpkynyUp8wISjUMBpJCXRKNgdQLyEpKxb40WGWSs HMrbhws0MCfOVqPu69tiR4F+2onJ/uKVW0jfnokDW7W4vy8Rv2evRP02X9RH W+JHhxH4YXOaMPd7oipxPU+JUuixVIyFNAscprEoo7GopLE4QWNxmsbiPJk5 /NmgsWBK6qLXcpQQYz4WVOSxYAqpin6XTXWEH43HXnMnPh5Vk+1pnGzpczY4 Otka5ZMtqcxGueksKjPo2ZjKj9sc96JC43HcIxSV7iG4EK8bD2WaBLEnO0Ll WZDeel1/t0z3b/aj+LwcEMd59B5k+F/Fg6zr0gSwrGECyF7LLumm4GDuXpwj pXTszPH3Zd60fNi8OwuF27V4lJOA59nLUb/FG/WrzPGd1TB8u0GOM9YNT2rr kO/OeAtdJM+6fg0TAtNFp4T8XyDeLPvaWc/lODzJgfSIA8mtI/GSmFeaOgre jlwDlU11wAqHOTg6VfCebIeKyTZUrKhYUplNReJdOtNaPl7TDCe9w5iK95Ki kl+KT4fMXJnrQDJ3hMXZmLlsCb280dU4cr/i/7QQm4DZGU8Qk/YQly59i/17 d6OGpFtW/F0E5Jqbd5GxNxslO7V4khOPP/YuQ/0mT9SvmIH7M4fg2flT4lBP B5rdNhJkkYLCW6FgyIwsZ7nTSKirhVCXuQaj0jWETEF7miUdUExFFupyJtRU jnFThiF+l0PeZumEQKc5KJ3KANuicooNv/hdOcWSymwSbnN+6fvkPD9c0B2V CacShrNkcp3hBy+CcTlhndKel1dPAvJIFciDVCA3bwrk5qh78Axnbj8VcihB ZXdiWbiMyl1afJ8ThxdZS1C/fgFeLJmKXyLc8QsNhPTZz/j5jVyRGUKXXIAk 9xCXXDaL0hxC1tO24ebI6DUOeT3H4tCXxmRyCLAmDKyjTltUCrDcfOHawQFp 3KyZwy/6VbAr22YS1IopFigjqCcc3flxiMt+y3DJbykuiOvYFwjseR/pSMQZ zyB8ffCwEqyswSV6jWZPeQdmoEGwrV/SIi9vW72G63fuITIiBicztfhnTixe ZIahfp0b/gg2xU9L5+OnU6d0uzzK+q7mlfIb13nCc3SQRJVdTGX6YPMUF6wd PB0pXUdjV4+xKPn7OFT2GY/SAcYoFFQPT2pMlVndlbw4NCN09tT8RFsnrLOm t/mdVGvpXqqZBSotmFTX+q8kRcnOmrBzCpd5VhFxTsE3FBcJ6gXvIIIayDIV vCdWNkrDnOAKrqPVd1nkzZcmuEyV6R5kwr0F4QNFlYiLT8C5PVr8lBOD+swQ 1K91xfMAY/wQMg//rJbPvPV+acRyg2KhHWuHdRPsEdffDCs1IxHbfQy0vSZi xSf0u4cxsnpPxtEBk3FsoAnKvxqHg0S4wNgBh2TKkyTNW2YqtC/Ja/kUKmb2 KJzuAB/nOdhi6aC7kVpEiuCiexBuBrDTBBH8QEgtx7yCY25wOIfhkk8wLnov Rm1ymtg6bKnbcGd2n7ylJVzKYwUmOUI/M8j57q6e17KVHs6GDDavIa/0OFK0 SajJSsHPOVGo3xWEeq0zfvedgEcBbnisO9r0Hg+ilEeF/XhrBmBZN2kZGt99 AuK6T0TS36dA+9V0rBlsjnQjK0R9MRWJvacioz8Zu8NmoHyoGYr7T8D+iXbI JaT5VAoZVhNJLRyhx78ZSghoGxwhpEcI6REzOxycbsexbrWw59dOazxCpLMa b+rOajA3Pj+nEbBcz40fihrfIFzwCcSP12+oqdkBEsxxKitJfdXLwPURe0iH KqqwPi0Z1/Ym45ec1ajPCER9kgOeeYxlq46OYuWXJRZBKbQICtQMQmR3I6T8 fQI2EhP2k2Xqhv2W3nzByRYm603mIGWkNVLG2yN5Ei0spjghcpgFVvaehvXE dk//aThA4rl3jCWySIz3TXTAAeKYRxzziWEhMTxEYlk0mQoxPESlkIkmcTxE JWe6LUIdnPk9yDuLo5rxe7tv6hzm7MzLdWJ5VedmlVmGSUciFgbiYWGR2jpF er4xvokc+wqOJceqeSyGuuwkPGMLhh3+qI+3xc9uo/CvHWlyfjkWE2MDlc2x tDg7dkw6QvIJ32zaT3iLqXho+kubTZ+ORmofU2mVM9YR2dNolWNLq5x5Idw3 wH4KI6R15v4ULTJpnblhXRKyw+JoQe2LzWQGZPlEInvhaiQOnYWUQTOxnn5v HWWJHePtkEHYMyfaYy9h30flAGmDXBOmRPMIekfkEfJcKnmEPY+Q55LCLbGc i6z5CyU3D0mu7N5mhxVuB0Xye+rXydS8Ruwvc/YrGg4rcBd3EC4u9NfdTVYu SCRPAiY0Eby00fYW1qbvRBat1O7RSu33fRG0NFiI+hgr/OhohMg+3TGs8wcw 7vwhpn30IWZ89AFCZ00XU+H/8FCG+YptlJXdRiDps3EkoVOxfbg19hi7Isfc CwedAvhpQb6GWdqwhmE/O9O0KMzN5n9na5gb927J1bMsATs9ViLDaxXSLb2Q MMoC2tFWSB1jg/XjbLGRRmELjcJ2GoUMegB2Gzsiix6WvTQK2ST82aRCsmkE 9tLElz3FDnvJOKua48cPGOAd7PEK4APBThp8HRTNL1azC9a3aDBu0GBcUzqt 2UMQIJ81CMGlRQH48cYN3UAovQySZw0TVfZJDA/E3/g6bT2t03JpnfZNTiKt G1bwQH/1kbNhR4Ng87dOsOr2ERy6fQjnbu/BXdMbIV2HIJrvpxhj00Dlfoov 8l2DpABvwZEoXBGL/JhEHEhO0e2nMLP6LJnVR09X6tarrYVQXMg/ijWzPRA1 cjaiSd7jx1gjeawN1oyzQxqppPVEfRMR30Jyv51Uzg4TprJ3kNL5K3bSGnsn rbFzLdxw3nMJyXZsI/fzdk9/5NDsdl/cC77Lzwqw4x2rUUvYryzW9z5LQbxr /BfjUdGhTiq6WxA3VtkbUSPOdx+4BSJZw3/Fxet3+JqtaIcW39Ka7VKsO1z7 9sLCL7thbvdP4PO5BgF9NMic4IycmR7Ic/Dn150KF63AoXC2WxKPg/HJyNFq sYsEes3aOLFbUo1b9+9IJ1DfxQltKjZauiGRFATLTbGKsEYR1lgS5kQSZu0E O6wlYU4lYyNtEhkoJnbYM3seip0WcQ/xbSp3gnU4m3Geb5PGWC25cchEY3d/ 7/LUBFG4GRwlEVU6iRlV7iRmAZyD8G1RUWc9okyZSEKJSSr0DBJF43B3krnx NrZu34V5dg4w6dMPc4b2w6JRX8JnUF8sNuqLsLF9kOnjp1tW7xXL6twDWTgv Las7iiVKgc8iWmA0eNd3uQYi3dobG218sNXWFzttF2K3nR+y7P1QuiBceNdj dd7124TqLi2d71H5msp9KszF+4DFOBQAy8lUYF722yHREjzm2yWAL/t2WURl 7mbsJOwzZgPfIIXA7uHLGlma28S9k8ZmbFMg1tc3XGBPi41Dv84aDO32GcwG DMS88UPgNWEw/E0HI8BsABZbjsFptjX3zV2xUm9PxPwlYix2uO9S7rvix+zZ sUJa/1bQMq3aXzqPcCEgBlcaEYsjYnE6Ys3YiQTSmYwW84ezUwmMWtwCL1xn kxcjFhItEaMiOWYjpAu6QQ0xjJnTSkbGJi85gKW8kyOQmf7XyNrgq04a9Puk F8Z8OQi244fBw3QAnEb0hPPIHti3MbGzmGQKWDIJdmyAUxK+VHaPRBwbqFgU RZSicSaAKMnu68WSL7UumFGKJ0rxRCmeGFGR3NfNOaa3aPUWwieZq+wAGwPE XKgE6DJ3oUYIF6qIFBxEa9ZAf911d+VWi2SoizuU/x5ML4NgWmNTvBaf/a07 jIYMhbXpMDhM7AsLo15Y5mUjvHgdJSoslrlPAxXuqfCVnPoNVGKIiuRhvkZE bnAq8Q1UuAtOoiI79psJNCyRwB7vQISyAxcKNDXMw6x0eIYQmuAQ1K1L06FR an+BZkoT0aglH9RNfa2QkZiBiYPmYLTRSAzq2x2jBvfEjo0p0lqyA/K9SA15 y9FvpUCPbEOpiMSlRAHmtABzWQYTrAAT0hhMc46mrXC5sxutsdji5U+akdaA BOYK8wKHEpTQCB6xWPJHSlC+LS7+m+iQHEM0PT0dCxcuFFjM9LY32JNmEEuz Bvc4C+lgCWeXKOzeosXj6+UfiwfmRsFhQUBc//BmD0wE37fk/hMiUKUgUEME rhKB641c4oJCqI5CMz0ILNVEDeneALd5/FTp5VAlhJUShFCCEBKCR8XFncRT rx9IlXWXdS9cmfYT01SWzPq7mOx/yUdJa2tuo2pTPq5vLxevsXOZGzF1kB/C lybh6L44ftxdPs5wPZ8YebF88OG6fPCylOgzOk+MLglGtVxS4iVJEccG7oYm NOeQ2vF7a/dDlUcF2JbwKvgTo4NseRBGfMKIT5iUULomNByXiM/Tupu6TJhy NHVllG4RyFR3uk3A4v+StrRETJnGywo1Yi11tmTDCS1ZoBaMjkCOaQKOj56K e1v3dBAvB1uFw9J8Bb+uU1e1TSMYFniQ/eol8qwLvxBTP8WyX4j4nSR+58Sx C8kjHadwlhJDdnWFXT1iCpkJ21u4FyZdGWf86kJjcD2UxcOKQOQCT5xht48V CblrwsJxkfh1VLCTkxGxSPTKeJby7goLPsr4KtjN+DfsZFtVLT/wqzJIzzeu gF9/T8RrBuvun8kXYNmK2Ky3G3z84lGwOwnfXSvUXQCqTkyXvDwsGKqX7IZm ZCO5l+cYP1vR4Ouv4R7QOMkDqke3GefbjhHmF7zu8rsmZG5RqQsjvPx4ZhSy /BYjaN58nGHXJBne8KUc76OSEpHqobVqEGQRx1WXmi07Oxu1tbVKvDObiFct 86VhvK0Qt/o+j8bkojFDQgNiOYVGRuIuzJgQivi4FJw5ENFViO21g8XIdw+V XDqeBNd7JVePRbqDK1E6l8454dKs4S7NOJ2LmQFmt65uMbV4W/ojjm1zcajs nLKU+fMKgb0cHomtZBszuDXhyzlYdrnqx7q6t/W46j/yDQkUJK7sMwqus5rI Ve1MrBrXNoKrdH3SEa6aKUgkruLe6zu6aceKxxLJ3JqCJzfK5Lu+uQtCUOBO 6rSRF0ehDmTXZCBzTQpXcTBzT5JaIJ7XQwRbPuHWcZ51pANusiJ4XuU8aZ4h pjVLIpDu7Ysdvn64RExvbNzU1oCcynMMAyTncWJ89XiaqyxP1Xi+aitc+Zoy 7sRUjQPmaiYjSTNI5ikHyebz1GA/LFmWhMocdi3rqvDivMP9j3nsNhkLwEua INMpCFumeWDvNE8urBX+Df73M4sbwNbowLKlQS07rHw9lP/BEtPWcpwx/Fi2 dCSb4VzFkZ6kaXuRmxv2LwokEb0l8g62eeW0pEs+0JxjZh9RYJ2tMgsZib4r sQo7T1UNvK6Hch6hTNEMlG/Pt9XNVEtgNXslNtIS/1bVlg8az3Wq5nY7VMZv JMZLcZCUQdRQR6T0tkPOaHsUOviizH8196kzhSAxJqXAcqlTYTefmzERboar 7Lz+1dBY6cz76/yse404636B4F4kuBcJ7oUlK3GMDEN/d3eGobWevLJpS//5 72gYrIWKQW0kSMhgxU+Dk+GtRiTtMV9jCq0g+Y+qU28qp6cv5sHXP54ft//u Sj7kbCX67poGE+Iv2DdvCQ64L0foJxOxZYg9DlgvxsE5vigmYS3zlw4oVAXK hxRicJZAnhfJ6dl95BopxrcUi/EtmoFieGLXiwSTJ3cloOfEJY9zBPQMzVRX N21pFAW1uR5VtdlKPgXLJFpOmiyoWhqk2jjkXHs9kAs0JlijGYA8CeQbillo 5sQwJNCi7tyBFZ1UBPFVwskuPS3pPQlJ3cYi28gM+2fb8Nsz/DIGMS0lphXE lF3IYEmqTxJTFseeXYRqxq9m/A+/nMGy5l4gS+o8TffnCOhZfuQ/CqcJ6GkC epqAniLpPB62HN/TY8++Xd4YNTA1dVZA0WNo9R8xtIM7MVxLDJkwPqk69bo8 4/SwhotbNLK20YxzvfTPMmSyHNR1BLb0nYhs46nIclwgLrWs5jcnDtPsVEIm VTlxrGS3J0g2q4njSc6QHdpvrzu233Bkn2RYHNuvXsLKKlSRZVpBlv33dbdf Ej4XFxed8HUxDM76T4FrycFNI3CemklIJXDHrVzEtCPmlSGLsGxFMo7tj8HP D2rw59B9gpVWbjg8ejru+zhi9ywb7PFciSzvVcj2icR+FgDUL0rKCUz42OWT ckJXQegqCd0xAnecShWhqyJ0VYTtOJVKQlcRLqWdraCJ/HDgElSmpCFrwya1 mUUX7k2OzaZc/EjX6EUOpMZraCM9ykpswVaxhM0WXhpjpBG2KsImL4LYHGJt uZLfqL11fHNn8bLeboQaNEnxdCbwqYj7fBy+ne+I+q2eqH98jUdOZfE8d4s7 Cyym5wGCd3BRtCIlbAxKCVwpQSujUk7gyumZLaNSSuBKwqJQELgMW53dkTTT FistbJXPYws92Wm4O6nKzE68pVxiy4ezlJef9ZmxgBrrNP05s1aNZov5WBiQ gKI9ifj5yU1J1Bo83BxVSwHThazKU5Mt8EfcAjw/miDB7MAvdmwjCdtOD6d8 0WAvPZw5JGF5BOkgKbgCKoeCqARTCaFCcA4Gr8IWNz9ETLbEChNzbA9Zhqqi Yt58tXzeXQxTsRdvKW3qf0dlusYGvpqJSBdU5F6yoKYzjcP4tYXzB5b1FC+H Wrliaz8TPPV3QX2Gp/Tpt3E2vxwFKduxiRZ6W2mht5NMj90832kUshfTAi1w FbZ5hSLR1h3hJpYInjQbKc5eOJK6GY/r7rypIu5yvFPlmkz00+E/7CcLW7Se +llN/WyhU882cJ0XjeztLDREiTJH56Luw1FrRY/nWg+8uHpQjMbrurP2Jw+W YKWjLzwnWMBjvDmCZ81B3qYMnKJF2vnio7KxrnTRfWS4U47/UaessYg6tUF0 qplu8Eh7Dl3E48sc3x8tD95yUogHh0/DsyVuqC9Nkiy4f2sdd9BrmKQnpNeU CxHRD6c/1Y/XeT9maKzgrxmPjZp+2GFui7S4GB4cwMYqAlvStbh9fKNyYCJ6 jcYDVwfpTN7jWshn+15lispGkzL+pjyhKM1T0QtnvRYzG99wL17T9cLor10w /C8dYPL+RzDrs4Df+DyclYBTuVvFucwWcCSL9ZixOZ5HL8CLo4nNmmDyKfMO yYrgFa2fo/JxufVKcWwvJMDXPAC9/tKZWv4hJr/3KWZNCkdykhYX9i+BbY/3 e4ihYnNDeh9j/OBLX7DDE7fPl6jZVh+rfLt8mIPJGdvEUjTWRcVsUGtsQxiv VgI6E5PeHTQY2qEbjDv1gL2pHeIWzkGCxVAs6NMZ+9bEiMVoGy43Xt2Gosbc Ci9S3FGQ4K1cWivDF8pf+IHea4o2u/6ZNhv0usVjYOdPMOyDrqSFesNp+AAs NumHqHE9ET3qE2QP74kft6SxnDpC6Td+VO0HjUP2YDP8EjoXz3e7s+/rqdKE 9w33Ym4Te9HGYC/a8l7069wNY7v0gGu/L7BofD+ETR2AVdP7I2paH5R6GqN+ uS1+WzAJDyYPQ427K64kpX4gRErtkd2auh5LPh2Fu040oa3nj7h+tCj2L7lj zDqVWyV9Dm5N7JjaJWypY+/wAPVTuvSBaa/ecBvZD35T+sN5/FfwMhsAryl9 cD+LTIVMRRaxCAf87mWKx1OH45bXXNQlp4obQW++8tFmn7AlM65s3Ew8XzUf 9eVJcogepa5SZmOU/5vo7TxFb2UDUq23amE5pN6+i92Jadj05SR87+uC1fbj YG70BWaO6IUZRp+i5mw1yqqrUZCXjZIdWtzZk4R/ZUbhj+1LUJ/qi/pIJzxf aIbvZhnha5+5uKdNVW5mMXWptjnYQjSAaZWU3hPwxJOmjm2ePCHe3/UGkMF6 BYEFCmByGL/hKgTU9sDlyYMvtLobodbaFi/WeKEmcwU2padg8/oUXRbbomNV yMnZi8JtWtwkCj/uicbzHUtRv85PSoXlPw3/tByFR35ueLA2tY0Bza7c0pMD OM3rOgTnplniRYI76q/mf6EHgM0/8n17pfEgALirTLrDVV7TP6/ZgiesPDJm Jn5bsQB/ZHnL6Yrzyo7hyvlT2L8lBdcyk/HDnlj8vnMZPY/+qI91xYvFM/HU bjTOjByAx+tScZ/o/Rs7QhfjL5xsSJaQ+V+LSY3u8lDG3JDb2dFwVz2a2FV5 JckOlK6jSesf3i48jV/9k+toK5TXjbv3cIl6uXtjCo13Cr7bE4ffMlagfkMg 6uPn8TxNPzuNxbUxg7DTfAYKSDNR3cp9pmASmTpbW9SneeD5lTxdUAql2MmO PqW1JHrj2cTetFZ8pT/ZpVcsbXlC5BeVySLL4Fs8h+ixyjJsXpeEc7tT8Dgr Hs9Y1qlNi1GfSM9IuCV+cR2PW+MH44dNaTx+rbxLwdbKRSOn47flpE3KkuTA AfL6ShKKl+0N0QuvJvZCFroI+rZDI2fg12Xz8SLLW7KU2xvUFqdranHy9Ems 1Sbg5K4UPCSD6tfdq/BiSwjqU0ggltng2fyJ+HrSUDwVM6Ycjj05oRzzZy3n mQIfzSMjewufUPqrqNh3DXfQW8UcVOugUqdpSac99nDmOceZ0CkzThvSBq0E ieMnT+BI/j5UZmiliYYndAuVcryusMdvHiZ4OGUYrnm4ojYpFSeqbuNzzXIM +Hg5Rnewgc1HTthPkP84miDOHjfWpXJXleaY6KqP3mzCPq7W1WYKifTpNgyX ZlnjRSLBJYls4r679By9jbKqauTn6k0u28Jp4UWNWeWI5z6T8WT6CIzpFIiJ Hy6FeZcwePYLhd8obxa8YKBeB9ngKG86ywIsOuirYhwMFxalsoPsFfZYHBwx Hb+Ez+O5rX95dBVN2fhup9OzzcTDWVTZeOp4SlPHH2zqSFuIWZ9thXOf3Zj7 5W74jtoFt3E7ETZ/t+4GjlIz/sVwxxYa7FhrXce2xiQj4fNxeDifJttNPviN 1rUtDQim0kqR/Wd6O0kthBmXW1apmy6iPfZg5pCzmDP2Csy/PAmXwUfhZnQY s0btlO9tKZWj3CGlGScdMIKfwQ615B3y6DoU56Zb4Y8EEruKFChXUoasjg7q HWklJFYbfx29e1zDsH73YDz8PqYMqcOcQQd4coG0zyfLV8GVelHOxqu0S0QH Fql0QLpj+wZPL5szdCp+DiHRyvTBv765ZFAt/PVVjX4NJ449wqddruGLvl9j 3PiHmDLhHmbRYlQOVl5h5QJly2WF97bhlvvraQH2X4aIr2NPfBSp02/mkjrd 6I190fNemusbvFdtxP8aq/FG9953MXzcNxhveh+mf19NK2Zp84kFKD5KjRys x4v1X26k0hQQjQxUMfsGCflgWelPm1nij1gP/F6ayEdL3lJSYmwlTLuLVWdg 1s8LoeFJSE/YhhNnn/F3gq0SMF1jDw+NCZLITM+SdvcH6bWU6Zx2hlu6WEWB DhDfv5QEIWvwFPwURMuWXT54eucc+0yXl0y1YKsgWExbho2pWtyt2izfxQu2 TsA0jSN3K8ZpBiHz5RbKX9lWxRARLQxSaWE/8TzxPZeeo3FvDg34epoLrxXo qpU3Ncw+nwPvhXE4zNKPPrkpp57OSDqIqRpnzNFMRZRmKE+XpmicUhHIhwWU 069oXLBK474SjXOhLlezfNrRZAQf1fJX5cb1EI1jUe5mjAlGYpwWNfuXNmQQ qeWhlh0007FSM5xnxHrc0DjlQ/6m4caFqDROvniyhEzdDDJ1nwbQWjuD2QG1 ygbK7TPrbg4X1yjkbE/B99ePtG7UPlfYaGZhqcYIW6h9lVYuyvbJj/IbhtsX qmK7fKGYvJfRUvsWyx+/zhu/HE1odDFO7n430VAeqX/QQixfnoxTB6JfUza0 61xYaix0qVioofoTM2vcGyq1i4aGqVgevcUXO2kGotJ4Ns8k/CzLs/kr2hhs FQrr2Suxfb0Wj29U6Lzv1bX0Vpy+YtRvIxu91w23MVylS58LmGE02Nv6meAH P1rX7JQGW62hXRXw2SmqRYEJKN9LJu3jWshLi2CreK4dFwrtWE7acaBeXcqm KmdPaRcIS1Qmn16Krw7rMRI37exoCe+F3ysT0cJgUyVH8CzjMKxJYmcTtreV VQ9XjsyD10g5yhan2k6Ycq4RDV2q0lB5yzraaj7Kxs/CbxEL8DzLq+Ur2sgc rfMWxOBgRgp+uHao3avVo9xG5UPexnAbl6m0saNujmvIK/C6AByzQIs9w33x nY83T6nMFgBqjdfoAG/EtGH+WB2ZgnO5q96RG2+b0Eh9ZjRuvHyjWNKEL88+ ovHLVSbzjuKLm+AalB1lhTvL4DE8C+eWHMOLA4fxx6mdja59yn1qb5ALi1i5 FPY2q7Brkxb/uFH+qgjOjbWgpKVDuo1DbG8bnAlJ7a83IuxJfAWDFaIBeheG DZiDhk/utYCnyy0cy3uEZ3fu49v7d9QIvPtn4bbAvs3lPERkcGgijuXENTWE bstGkFzh0CcaRbYZeJa4Cb+eqdSHpNwGVBoBAlKEylT2J/oi46+99Qxnbz5F 7YN/6l77L/EUbr8Dd7cTyN1TinvVe5uKp8HHWwsH47MoSb+P38/dwa+P7jZa F+tvECqnUcFmlQqb9k3vyDv/HQcZ46GKpyi99B2e/vxMdT/XcJjl5sjJeoyU 7Ie4fOcfUDPAWhjufKRK5//y/6Lz+q2nHzWoshqRL/4qtXZzw81erdLst3WV NWyGvmuwfeoHxl71nnwzU6mb1Uwq0cQo8ZbSqdhT5ePtdY1tiBn+jspr4xX/ V1aLr/j6aMXXy2cZ5a9X2hRBetU27AA1/py0HECMSis+Vfl4sHhKlc8ge0V8 hWhkrF5tDGsPldpCxLAohVpurKgqTqWq7ipVhQohlKcKMaOIWuJVaummUots 0TKy7HNsThJVJCiqkEWl6ysawvY0Lly4IJ/FErUkinf1ZrVPVCoKEqj1d3nY 9h9NBcK+TVZ5Yj5WqU3aH2hjcBNM7AMIR2OKSq1dVGr1VdSqtoEj9kOk8AjQ qtT6N5VaPRW1st1IA7ss4or7GpVaP1KpdYHQra/aBhTBStaqKNvOKlXO1YNq YNtUBAdLVXl0O6nU6vwKqIrui8ieaSpP7ocqtTrodV9PnHgfRZzudSpPywcq Vdo0TaYkDYd0lVrVXMIWTZMp6TIy1qvU+p5KrTObJlMiM+sGlVr/qlLrtCbI lMi/vVFPf7Av7ahS5eSmyZR0HQObRQ3Kc3UdVGo1bppMSceRsUXlkXpXpdbx TZApW6nKrSpVtlepcnTTZEqSZmxTqVVtf3pE02RKOoaD7Sq1vqNS65CmyZR0 uAE7VB7/t1VqHdgEmZLcx9ip8uy3U6nyq6bJlOQVRIaK8LdVqfWLpsmU5OXA LpVa31Kp9fMmyFSAVOVulSrfVKnyU73uG5ApacJFpkqtb6jU2rVpMiWZFNij 8vir7QXpHxwyIFPS9gb2qjz+bVRq7dwEmZLMTGSrCH9rlSrfb5pMSRY99qnU 2kql1v9pmkxJBiZyVGptqVJre73uq8mUZJlhv0qVLVSqbNc0mZIMKRxQefab q9T6RtNkSrIkkKvy+KvZ+PrnRg3IlDSVIo//atlI/tkrrMZWTZAjaUqCFP2m RaNqqIpmTRMbSbEjn/96TVcJa4MBkRBqCwWK72WDKJolPX/gQNz+9+//+/f/ P/+O//N/AVsCgWU=\ \>"]] }, Open ]], Cell[BoxData[""], "Input", CellChangeTimes->{{3.5681365021632137`*^9, 3.5681365171392403`*^9}, { 3.568136560351316*^9, 3.5681365863097615`*^9}, {3.5681369135895367`*^9, 3.5681369265999594`*^9}, {3.568137821916732*^9, 3.5681378378443604`*^9}, { 3.5682072492149415`*^9, 3.5682072529901485`*^9}, 3.568209802830227*^9, { 3.5682216503836985`*^9, 3.5682217583046885`*^9}, {3.5682217912831464`*^9, 3.568221843465238*^9}, {3.5682219760654707`*^9, 3.5682221133457117`*^9}, { 3.568222159615393*^9, 3.5682221693498106`*^9}, {3.5682222565227633`*^9, 3.5682222578487663`*^9}, 3.5682224736283445`*^9, 3.5682227227607822`*^9, 3.5682227558640404`*^9, {3.568222818810151*^9, 3.5682228486062036`*^9}, { 3.5682230057764797`*^9, 3.5682230079916835`*^9}, {3.568223041952943*^9, 3.5682230548229656`*^9}, 3.5682232619601297`*^9, 3.5682233000709963`*^9, { 3.568223536645412*^9, 3.5682235381118145`*^9}, {3.568223591151908*^9, 3.568223591526308*^9}, {3.5682236491528096`*^9, 3.568223657483224*^9}, { 3.568223713222122*^9, 3.5682237532361927`*^9}, {3.568223800379475*^9, 3.568223827648323*^9}, {3.5682238887380304`*^9, 3.5682238893152313`*^9}, { 3.5682240287170763`*^9, 3.5682240612431335`*^9}, 3.5682241088076167`*^9, { 3.568224198772975*^9, 3.5682242396450467`*^9}, {3.568224282170721*^9, 3.5682243185031853`*^9}, {3.568224437890195*^9, 3.568224439590598*^9}, { 3.568224572253231*^9, 3.5682245867144566`*^9}, {3.5682247081762695`*^9, 3.568224733557514*^9}, {3.56822480520844*^9, 3.5682248433505073`*^9}, { 3.568224884206979*^9, 3.5682248959069996`*^9}, {3.568224982830352*^9, 3.5682250047639904`*^9}, {3.56822503870965*^9, 3.5682250803305235`*^9}, { 3.5682251223413973`*^9, 3.568225141451431*^9}, {3.568225234177994*^9, 3.5682252929588966`*^9}, {3.5682253775890455`*^9, 3.568225482140429*^9}, { 3.56822551694409*^9, 3.5682255297205124`*^9}, {3.568225573197789*^9, 3.5682255809666023`*^9}, 3.568225660698343*^9, 3.5682257301964645`*^9, { 3.568225765078126*^9, 3.5682257828933573`*^9}, {3.568225927026843*^9, 3.568225927416844*^9}, {3.568267062420238*^9, 3.568267081358671*^9}, { 3.568267188328059*^9, 3.5682672830358257`*^9}, {3.5682676367040462`*^9, 3.568267747979042*^9}, 3.5682678404716043`*^9, 3.568267882030078*^9, { 3.5682679252577534`*^9, 3.568267996612279*^9}, {3.5682680488879704`*^9, 3.568268061133992*^9}, {3.568268100914062*^9, 3.5682681150944867`*^9}, { 3.5682681672609787`*^9, 3.5682681709113846`*^9}, {3.568268272904364*^9, 3.5682683182536435`*^9}, {3.5682685202739983`*^9, 3.568268599194537*^9}, { 3.5682686348873997`*^9, 3.568268637773405*^9}, {3.5682686944951043`*^9, 3.568268872273017*^9}, {3.5682689420207396`*^9, 3.568269016947671*^9}, { 3.5682695040741262`*^9, 3.568269601153097*^9}, {3.5682696652380095`*^9, 3.5682696728352227`*^9}, {3.5682697489633565`*^9, 3.5682698308635006`*^9}, {3.568271156491429*^9, 3.568271160063835*^9}, { 3.568271244927984*^9, 3.568271369010602*^9}, {3.5682716250070515`*^9, 3.5682717312276382`*^9}, {3.5682717843301315`*^9, 3.5682718576814604`*^9}, {3.568271940673606*^9, 3.5682720536490045`*^9}, { 3.5682722259669075`*^9, 3.5682723223126764`*^9}, {3.568272370813162*^9, 3.568272411466833*^9}, {3.5682725893539457`*^9, 3.568272622238803*^9}, { 3.5682726936713285`*^9, 3.5682726960113325`*^9}, {3.568272741079812*^9, 3.56827275143823*^9}, {3.5682729218373294`*^9, 3.568272991070251*^9}, { 3.5682734285574193`*^9, 3.5682734302890224`*^9}, {3.5682734898811274`*^9, 3.5682735111595645`*^9}, {3.5682736115925407`*^9, 3.5682736313577757`*^9}, {3.5682738601945777`*^9, 3.568273987272401*^9}, { 3.5682763944346285`*^9, 3.5682764313910933`*^9}, 3.5682765128232365`*^9, { 3.5682766527398825`*^9, 3.568276660976697*^9}, {3.5682774496048822`*^9, 3.568277461663703*^9}, {3.5683784032731285`*^9, 3.568378422991563*^9}, { 3.568378459308427*^9, 3.5683784812420654`*^9}, {3.568378513440522*^9, 3.568378867046343*^9}, {3.568378915468828*^9, 3.56837896203491*^9}, { 3.5683790764299107`*^9, 3.568379270041851*^9}, {3.568380233530743*^9, 3.568380234388745*^9}, 3.5683804214954734`*^9, 3.568380471867962*^9, 3.5683805399464817`*^9, {3.5683812396077104`*^9, 3.568381293537005*^9}, { 3.568381339541486*^9, 3.568381420224828*^9}, {3.5684645223056345`*^9, 3.5684645572340956`*^9}, {3.5684651558539467`*^9, 3.5684651618911576`*^9}, {3.5688209923798466`*^9, 3.568820997683856*^9}, { 3.568821158754139*^9, 3.568821160750942*^9}, 3.56882222404881*^9, { 3.568822649274357*^9, 3.5688226508031597`*^9}, 3.568822723109287*^9, { 3.5693397221142225`*^9, 3.5693397223326235`*^9}, {3.5693899272912874`*^9, 3.5693899274472876`*^9}, {3.5693910617720795`*^9, 3.5693910848757205`*^9}, 3.5693911374166126`*^9, {3.569391214402748*^9, 3.5693912147147484`*^9}, 3.569391451944365*^9, {3.569391487793228*^9, 3.569391507620863*^9}, { 3.5693923162258854`*^9, 3.5693923173958874`*^9}, {3.569406068526634*^9, 3.569406086092265*^9}, 3.569690172138941*^9, 3.569780036185542*^9, { 3.570453906913044*^9, 3.5704539079894457`*^9}, {3.570454575670618*^9, 3.5704545899602437`*^9}, {3.570454765008151*^9, 3.570454772277764*^9}, 3.5708553779481487`*^9, {3.5709431726830034`*^9, 3.570943174555007*^9}, { 3.5709495710522423`*^9, 3.5709495907082767`*^9}, {3.570949647617176*^9, 3.570949673138821*^9}, {3.570950759321929*^9, 3.5709507772775607`*^9}, { 3.5709508127364225`*^9, 3.5709508405200715`*^9}, {3.570991123104905*^9, 3.570991124259307*^9}, {3.5709912161278687`*^9, 3.570991227937089*^9}, { 3.5709912804155817`*^9, 3.570991308776431*^9}, {3.5709914026885962`*^9, 3.5709914215490294`*^9}, {3.570991574429298*^9, 3.5709916038821497`*^9}, 3.570991652445035*^9, 3.570991830004547*^9, 3.570991865276209*^9, { 3.5709919181759014`*^9, 3.5709919260539155`*^9}, {3.570992027251293*^9, 3.570992050058533*^9}, 3.5709920901350036`*^9, 3.570992186979974*^9, { 3.57122255431676*^9, 3.5712225562355638`*^9}, 3.571223175338251*^9, { 3.5713153738729277`*^9, 3.571315375682531*^9}, 3.5713224026962075`*^9, { 3.5713224627875133`*^9, 3.5713224654863176`*^9}, {3.5713224965147724`*^9, 3.571322572268505*^9}, {3.5713226259637995`*^9, 3.5713226549330506`*^9}, { 3.5713308245340652`*^9, 3.571330884469371*^9}, {3.5713309160126257`*^9, 3.5713309422674723`*^9}, 3.571331071326499*^9, {3.5713311246629925`*^9, 3.5713311332274075`*^9}, {3.571331300334901*^9, 3.5713313470881834`*^9}, 3.5713314298931284`*^9, 3.571331594130217*^9, {3.571331632849485*^9, 3.5713316334578857`*^9}, {3.5713316704299507`*^9, 3.5713316709447517`*^9}, {3.571331783327349*^9, 3.571331790019761*^9}, { 3.5713319475956383`*^9, 3.571331948360039*^9}, {3.5713326567416835`*^9, 3.571332681717327*^9}, {3.571332736801024*^9, 3.571332753305853*^9}, { 3.571332796221528*^9, 3.5713328475768185`*^9}, {3.571332914344936*^9, 3.571332924672154*^9}, {3.5713330072586994`*^9, 3.5713330320471425`*^9}, { 3.5713330798612266`*^9, 3.5713330883320417`*^9}, {3.5713331731961904`*^9, 3.571333178266199*^9}, {3.571333407851803*^9, 3.571333426837036*^9}, { 3.571333542292839*^9, 3.571333557705666*^9}, {3.5713336117441607`*^9, 3.5713337055939255`*^9}, {3.5713337750608473`*^9, 3.571333798070888*^9}, { 3.5713366694988756`*^9, 3.5713366834765005`*^9}, {3.5713369716090064`*^9, 3.57133697359021*^9}, {3.57138272164856*^9, 3.571382756233821*^9}, { 3.57138283537276*^9, 3.571382866900415*^9}, {3.5713829070080853`*^9, 3.5713829086616883`*^9}, {3.571382939175342*^9, 3.5713830233374896`*^9}, { 3.5713831045200324`*^9, 3.571383106126835*^9}, {3.571383198260597*^9, 3.5713832448422785`*^9}, 3.5716785972796593`*^9, 3.5718167268987517`*^9, { 3.571838452469782*^9, 3.5718386879053955`*^9}, 3.571838766139532*^9, { 3.571838857446493*^9, 3.5718388645757055`*^9}, 3.5723437133735733`*^9, 3.5723437554312468`*^9, {3.5723449027196617`*^9, 3.572344929582909*^9}, 3.5723450406551046`*^9, {3.57234950163894*^9, 3.5723495196413713`*^9}, { 3.572584520172369*^9, 3.5725845258195786`*^9}, {3.5726224003989472`*^9, 3.57262241340937*^9}, 3.572796748424938*^9, 3.5727968708695536`*^9, { 3.572796971801731*^9, 3.572796995841373*^9}, {3.57279741546651*^9, 3.5727974308793373`*^9}, {3.572842795856916*^9, 3.5728428061217337`*^9}, { 3.5728522627179437`*^9, 3.572852288426789*^9}, {3.5728523495164957`*^9, 3.572852453865079*^9}, {3.5728524960787535`*^9, 3.572852515110787*^9}, { 3.572852550008048*^9, 3.572852634669397*^9}, {3.5728602362372026`*^9, 3.5728602649256525`*^9}, 3.572860311756935*^9, 3.5731241886618786`*^9, 3.5731408095114717`*^9, 3.5731408826443996`*^9, {3.573211072949067*^9, 3.5732110779254756`*^9}, {3.5732129727516036`*^9, 3.573212981300419*^9}, { 3.5732130120948725`*^9, 3.57321301629128*^9}, {3.573213384015126*^9, 3.573213388164733*^9}, {3.573220427063021*^9, 3.57322044338065*^9}, { 3.5733208085662665`*^9, 3.5733208285343018`*^9}, {3.57332089027921*^9, 3.5733208917144127`*^9}, {3.5733209483737125`*^9, 3.5733209652997417`*^9}, {3.5733210904587617`*^9, 3.5733211330312366`*^9}, {3.5746581574587035`*^9, 3.5746581598923078`*^9}, {3.5746632559372582`*^9, 3.5746632963569293`*^9}, 3.574669479281269*^9, {3.5746708530664816`*^9, 3.5746708831121345`*^9}, { 3.5746734822639*^9, 3.5746735338531904`*^9}, 3.5747441301394944`*^9, { 3.574950644335537*^9, 3.5749506488751445`*^9}, {3.575001627819734*^9, 3.5750016487549706`*^9}, {3.57534426719551*^9, 3.575344278926731*^9}, { 3.5753450565880966`*^9, 3.575345065324112*^9}, 3.5753451320610294`*^9, { 3.575345171575898*^9, 3.575345181091915*^9}}], Cell[CellGroupData[{ Cell[BoxData[{ RowBox[{ RowBox[{ RowBox[{"tc", "=", RowBox[{"Table", "[", RowBox[{ RowBox[{"{", RowBox[{ RowBox[{"x", "[", RowBox[{"[", "i", "]"}], "]"}], ",", RowBox[{"y", "[", RowBox[{"[", "i", "]"}], "]"}], ",", RowBox[{"z", "[", RowBox[{"[", "i", "]"}], "]"}]}], "}"}], ",", RowBox[{"{", RowBox[{"i", ",", "1", ",", "bc"}], "}"}]}], "]"}]}], ";"}], " ", RowBox[{"(*", " ", RowBox[{"core", " ", "clouds"}], " ", "*)"}]}], "\[IndentingNewLine]", RowBox[{ RowBox[{ RowBox[{"twc", "=", RowBox[{"Table", "[", RowBox[{ RowBox[{"{", RowBox[{ RowBox[{"wxc", "[", RowBox[{"[", "i", "]"}], "]"}], ",", RowBox[{"wyc", "[", RowBox[{"[", "i", "]"}], "]"}], ",", RowBox[{"wzc", "[", RowBox[{"[", "i", "]"}], "]"}]}], "}"}], ",", RowBox[{"{", RowBox[{"i", ",", "1", ",", "cw"}], "}"}]}], "]"}]}], ";"}], " ", RowBox[{"(*", " ", RowBox[{"Bond", " ", "c\[ODoubleDot]ouds", " ", "between", " ", "cores"}], " ", "*)"}]}], "\[IndentingNewLine]", RowBox[{ RowBox[{ RowBox[{"twh", "=", RowBox[{"Table", "[", RowBox[{ RowBox[{"{", RowBox[{ RowBox[{"wxh", "[", RowBox[{"[", "i", "]"}], "]"}], ",", RowBox[{"wyh", "[", RowBox[{"[", "i", "]"}], "]"}], ",", RowBox[{"wzh", "[", RowBox[{"[", "i", "]"}], "]"}]}], "}"}], ",", RowBox[{"{", RowBox[{"i", ",", "1", ",", "bh"}], "}"}]}], "]"}]}], ";"}], " ", RowBox[{"(*", " ", RowBox[{"H", "-", RowBox[{"bonding", " ", "clouds"}]}], " ", "*)"}], " "}], "\[IndentingNewLine]", RowBox[{ RowBox[{"tw", "=", RowBox[{"Join", "[", RowBox[{ "tc", ",", "twc", ",", "twh", ",", "tpo", ",", "tpu", ",", "tplo", ",", "tplu", ",", "tplk", ",", "tpll", ",", "tplm"}], "]"}]}], ";"}], "\[IndentingNewLine]", RowBox[{ RowBox[{"bt", "=", RowBox[{"Length", "[", "tw", "]"}]}], "\[IndentingNewLine]", RowBox[{"(*", RowBox[{"MatrixForm", "[", "tw", "]"}], "*)"}]}], "\[IndentingNewLine]", RowBox[{ RowBox[{"(*", " ", RowBox[{"coordinates", " ", "of", " ", "clouds"}], " ", "*)"}]}]}], "Input", CellChangeTimes->{{3.568895397419882*^9, 3.5688955157148895`*^9}, { 3.568895549629349*^9, 3.5688955855718126`*^9}, {3.568895617317868*^9, 3.568895845234268*^9}, {3.5688960797194805`*^9, 3.5688961015127187`*^9}, { 3.568896219074525*^9, 3.5688962276233397`*^9}, {3.568896262910602*^9, 3.5688962903198504`*^9}, 3.5688964250728865`*^9, 3.568896456912543*^9, { 3.5688981540863237`*^9, 3.5688981869399815`*^9}, {3.5689021233572955`*^9, 3.5689021341525145`*^9}, {3.5689111169043026`*^9, 3.5689111218495116`*^9}, {3.568911235261711*^9, 3.568911242437723*^9}, 3.5689112948850155`*^9, {3.5689116510180407`*^9, 3.568911800419503*^9}, { 3.568911871820829*^9, 3.5689119012892804`*^9}, {3.5689119993042526`*^9, 3.5689120006770554`*^9}, {3.568912144306507*^9, 3.568912165085744*^9}, { 3.5689528310632005`*^9, 3.5689528569592457`*^9}, {3.5689534065794115`*^9, 3.5689534297298517`*^9}, {3.568954496214126*^9, 3.5689545054337425`*^9}, 3.5689569073699613`*^9, {3.56913308739126*^9, 3.5691332012870607`*^9}, { 3.569135511323518*^9, 3.5691355127119203`*^9}, {3.569136204167535*^9, 3.569136290747687*^9}, {3.5691598050571885`*^9, 3.569159843199256*^9}, { 3.5692215417755947`*^9, 3.569221597186892*^9}, {3.5692216819730406`*^9, 3.5692217090546885`*^9}, {3.5692217693019943`*^9, 3.5692218260704937`*^9}, {3.5692219780303607`*^9, 3.569221989433981*^9}, { 3.569222055468897*^9, 3.5692220728005276`*^9}, {3.5693401536421804`*^9, 3.5693401889450426`*^9}, 3.5693411655535583`*^9, {3.569341634303181*^9, 3.569341638733589*^9}, {3.5704549882757435`*^9, 3.5704550487414494`*^9}, { 3.570455928146194*^9, 3.5704559415310173`*^9}, {3.5708553973857827`*^9, 3.5708554057785974`*^9}, {3.5718402591869545`*^9, 3.5718402726497784`*^9}, 3.572328636723397*^9, {3.572328748419593*^9, 3.57232875246*^9}, { 3.5725921859362335`*^9, 3.5725921932682457`*^9}, {3.5725923978158054`*^9, 3.5725924023086133`*^9}, 3.5725926630786715`*^9, {3.5726167873570023`*^9, 3.57261679757502*^9}, 3.572620232450739*^9, {3.5726252144466896`*^9, 3.57262521482109*^9}, {3.572842310446463*^9, 3.5728423195412793`*^9}, 3.572851092419488*^9, {3.572851145927582*^9, 3.5728511735708303`*^9}, { 3.5728512529593697`*^9, 3.572851265595392*^9}, 3.5728513850916023`*^9, 3.573124143499799*^9, {3.5733124027399025`*^9, 3.573312472362825*^9}, { 3.5733130968319216`*^9, 3.5733130974091225`*^9}, {3.573316202329376*^9, 3.573316209786189*^9}, 3.573368517265889*^9, 3.5746700189174166`*^9, { 3.574670900474965*^9, 3.5746709256066093`*^9}, 3.5753448801985865`*^9, { 3.575371249764445*^9, 3.5753712595300617`*^9}, {3.5763817420169*^9, 3.576381761454534*^9}}], Cell[BoxData["42"], "Output", CellChangeTimes->{3.576388759583222*^9}] }, Open ]], Cell[CellGroupData[{ Cell[BoxData[ RowBox[{ RowBox[{"(*", " ", RowBox[{"cloud", "-", RowBox[{"cloud", " ", "distances"}]}], " ", "*)"}], "\[IndentingNewLine]", RowBox[{ RowBox[{ RowBox[{"dw", "=", RowBox[{"Table", "[", RowBox[{ RowBox[{"Norm", "[", RowBox[{ RowBox[{"tw", "[", RowBox[{"[", "i", "]"}], "]"}], "-", RowBox[{"tw", "[", RowBox[{"[", "j", "]"}], "]"}]}], "]"}], ",", RowBox[{"{", RowBox[{"i", ",", "1", ",", "bt"}], "}"}], ",", RowBox[{"{", RowBox[{"j", ",", "1", ",", "bt"}], "}"}]}], "]"}]}], ";"}], "\[IndentingNewLine]", RowBox[{"(*", RowBox[{"MatrixForm", "[", "dw", "]"}], "*)"}], "\[IndentingNewLine]", RowBox[{"Length", "[", "dw", "]"}]}]}]], "Input", CellChangeTimes->{{3.5688982251756487`*^9, 3.5688986440675845`*^9}, { 3.5688986873108606`*^9, 3.56889871560931*^9}, {3.5688987970414534`*^9, 3.5688988526711507`*^9}, {3.568898887147211*^9, 3.568898888644814*^9}, { 3.5688989206248703`*^9, 3.568899041759083*^9}, {3.5688990876855636`*^9, 3.568899258349863*^9}, 3.568899300267137*^9, {3.568899351326027*^9, 3.5688993831032825`*^9}, {3.5688994370481772`*^9, 3.568899468217032*^9}, { 3.5688995813016305`*^9, 3.5688997165538683`*^9}, {3.5688998495129013`*^9, 3.568899932364647*^9}, {3.568899967667509*^9, 3.568900024529609*^9}, { 3.5689000794261055`*^9, 3.568900136257005*^9}, {3.5689001767858763`*^9, 3.56890020149632*^9}, {3.568902068726*^9, 3.568902074139209*^9}, 3.56890216040736*^9, 3.568902344113283*^9, {3.5689024237982235`*^9, 3.56890243907065*^9}, 3.5689025770684924`*^9, 3.568910195129884*^9, 3.568910620995032*^9, {3.568912393532545*^9, 3.5689124022841606`*^9}, { 3.5691332074958715`*^9, 3.5691332081666727`*^9}, {3.5691352237838125`*^9, 3.5691352313342257`*^9}, {3.5691489965881166`*^9, 3.5691490103317413`*^9}, {3.5691490440122004`*^9, 3.5691491351943607`*^9}, {3.569149201666077*^9, 3.5691492026956787`*^9}, { 3.5691494320784817`*^9, 3.5691494680989447`*^9}, {3.569152288984131*^9, 3.5691522953957424`*^9}, {3.5691595058486633`*^9, 3.569159537672719*^9}, 3.569237911685565*^9, 3.5693411655535583`*^9, 3.5693418217687106`*^9, { 3.5703410302061863`*^9, 3.570341063621445*^9}, {3.5720164790812473`*^9, 3.572016508424899*^9}, {3.57235540487335*^9, 3.572355408040156*^9}, { 3.572356807768214*^9, 3.5723568154122276`*^9}, {3.572621722359356*^9, 3.572621725962962*^9}}], Cell[BoxData["42"], "Output", CellChangeTimes->{3.576388759598822*^9}] }, Open ]], Cell[BoxData[ RowBox[{ RowBox[{"(*", " ", RowBox[{"nucleus", "-", RowBox[{"nucleus", " ", "distances"}]}], " ", "*)"}], "\[IndentingNewLine]", RowBox[{"(*", RowBox[{"MatrixForm", "[", "dc", "]"}], " ", "*)"}], " "}]], "Input", CellChangeTimes->{{3.5688982251756487`*^9, 3.5688986440675845`*^9}, { 3.5688986873108606`*^9, 3.56889871560931*^9}, {3.5688987970414534`*^9, 3.5688988526711507`*^9}, {3.568898887147211*^9, 3.568898888644814*^9}, { 3.5688989206248703`*^9, 3.568899041759083*^9}, {3.5688990876855636`*^9, 3.568899258349863*^9}, 3.568899300267137*^9, {3.568899351326027*^9, 3.5688993831032825`*^9}, {3.5688994370481772`*^9, 3.568899468217032*^9}, { 3.5688995813016305`*^9, 3.5688997165538683`*^9}, {3.5688998495129013`*^9, 3.568899932364647*^9}, {3.568899967667509*^9, 3.568900024529609*^9}, { 3.5689000794261055`*^9, 3.568900136257005*^9}, {3.5689001767858763`*^9, 3.56890020149632*^9}, {3.568902068726*^9, 3.568902074139209*^9}, 3.56890216040736*^9, 3.568902344113283*^9, {3.5689024237982235`*^9, 3.56890243907065*^9}, 3.5689025770684924`*^9, 3.568910195129884*^9, 3.568910620995032*^9, {3.568912393532545*^9, 3.5689124022841606`*^9}, { 3.5691332074958715`*^9, 3.5691332081666727`*^9}, {3.5691352237838125`*^9, 3.5691352313342257`*^9}, {3.5691489965881166`*^9, 3.5691490103317413`*^9}, {3.5691490440122004`*^9, 3.5691491273631463`*^9}, {3.5691523435842266`*^9, 3.56915234531583*^9}, { 3.5691524837816734`*^9, 3.569152599175076*^9}, {3.569159470889002*^9, 3.569159489874235*^9}, {3.569160442895509*^9, 3.5691604484335184`*^9}, 3.569237923385586*^9, 3.569341165569158*^9, 3.5693418217843103`*^9, { 3.570341048161818*^9, 3.570341058286236*^9}, {3.57034131095988*^9, 3.570341315156287*^9}, 3.5703415891395683`*^9, 3.570341976207448*^9}], Cell[CellGroupData[{ Cell[BoxData[{ RowBox[{ RowBox[{"tv1", "=", RowBox[{"Table", "[", RowBox[{ RowBox[{"t", "[", RowBox[{"[", "i", "]"}], "]"}], ",", RowBox[{"{", RowBox[{"i", ",", "1", ",", "bc"}], "}"}]}], "]"}]}], ";"}], "\[IndentingNewLine]", RowBox[{ RowBox[{"tv2", "=", RowBox[{"Table", "[", RowBox[{ RowBox[{"{", RowBox[{"0", ",", "0", ",", "0"}], "}"}], ",", RowBox[{"{", RowBox[{"i", ",", "1", ",", "cw"}], "}"}]}], "]"}]}], ";"}], "\[IndentingNewLine]", RowBox[{ RowBox[{"tv3", "=", " ", RowBox[{"Table", "[", RowBox[{ RowBox[{"t", "[", RowBox[{"[", "i", "]"}], "]"}], ",", RowBox[{"{", RowBox[{"i", ",", RowBox[{"bc", "+", "1"}], ",", "n"}], "}"}]}], "]"}]}], ";"}], "\[IndentingNewLine]", RowBox[{ RowBox[{ RowBox[{"tv4", " ", "=", RowBox[{"Table", "[", RowBox[{ RowBox[{"{", RowBox[{"0", ",", "0", ",", "0"}], "}"}], ",", RowBox[{"{", RowBox[{"i", ",", "1", ",", "cj"}], "}"}]}], "]"}]}], ";"}], " "}], "\[IndentingNewLine]", RowBox[{ RowBox[{ RowBox[{"tv5", " ", "=", RowBox[{"Table", "[", RowBox[{ RowBox[{"{", RowBox[{"0", ",", "0", ",", "0"}], "}"}], ",", RowBox[{"{", RowBox[{"i", ",", "1", ",", "cj"}], "}"}]}], "]"}]}], ";"}], " "}], "\[IndentingNewLine]", RowBox[{ RowBox[{"tv6", "=", RowBox[{"Table", "[", RowBox[{ RowBox[{"{", RowBox[{"0", ",", "0", ",", "0"}], "}"}], ",", RowBox[{"{", RowBox[{"i", ",", "1", ",", RowBox[{"2", "*", "oj"}]}], "}"}]}], "]"}]}], ";"}], "\[IndentingNewLine]", RowBox[{ RowBox[{ RowBox[{"tv7", " ", "=", RowBox[{"Table", "[", RowBox[{ RowBox[{"{", RowBox[{"0", ",", "0", ",", "0"}], "}"}], ",", RowBox[{"{", RowBox[{"i", ",", "1", ",", RowBox[{"3", "*", "tj"}]}], "}"}]}], "]"}]}], ";"}], " "}], "\[IndentingNewLine]", RowBox[{ RowBox[{ RowBox[{"tv", " ", "=", " ", RowBox[{"Join", "[", RowBox[{ "tv1", ",", "tv2", ",", "tv3", ",", "tv4", ",", "tv5", ",", "tv6", ",", "tv7"}], "]"}]}], ";"}], "\[IndentingNewLine]", RowBox[{"(*", RowBox[{"MatrixForm", "[", "tv", "]"}], "*)"}]}], "\[IndentingNewLine]", RowBox[{"Length", "[", "tv", "]"}]}], "Input", CellChangeTimes->{{3.5688982251756487`*^9, 3.5688986440675845`*^9}, { 3.5688986873108606`*^9, 3.56889871560931*^9}, {3.5688987970414534`*^9, 3.5688988526711507`*^9}, {3.568898887147211*^9, 3.568898888644814*^9}, { 3.5688989206248703`*^9, 3.568899041759083*^9}, {3.5688990876855636`*^9, 3.568899258349863*^9}, 3.568899300267137*^9, {3.568899351326027*^9, 3.5688993831032825`*^9}, {3.5688994370481772`*^9, 3.568899468217032*^9}, { 3.5688995813016305`*^9, 3.5688997165538683`*^9}, {3.5688998495129013`*^9, 3.568899932364647*^9}, {3.568899967667509*^9, 3.568900024529609*^9}, { 3.5689000794261055`*^9, 3.568900136257005*^9}, {3.5689001767858763`*^9, 3.56890020149632*^9}, {3.568902068726*^9, 3.568902074139209*^9}, 3.56890216040736*^9, 3.568902344113283*^9, {3.5689024237982235`*^9, 3.56890243907065*^9}, 3.5689025770684924`*^9, 3.568910195129884*^9, 3.568910620995032*^9, {3.568912393532545*^9, 3.5689124022841606`*^9}, { 3.5691332074958715`*^9, 3.5691332081666727`*^9}, {3.5691352237838125`*^9, 3.5691352313342257`*^9}, {3.5691489965881166`*^9, 3.5691490103317413`*^9}, {3.5691490440122004`*^9, 3.5691491273631463`*^9}, {3.5691523435842266`*^9, 3.56915234531583*^9}, { 3.5691524837816734`*^9, 3.5691526041202846`*^9}, {3.5691595921324143`*^9, 3.5691596901941867`*^9}, {3.569159772406331*^9, 3.5691597832951508`*^9}, { 3.5691598700313025`*^9, 3.569159885147729*^9}, {3.569160485733184*^9, 3.569160486887586*^9}, {3.5691672792073207`*^9, 3.5691672793789206`*^9}, { 3.5691673418102303`*^9, 3.5691674875144863`*^9}, {3.569168259700243*^9, 3.569168260386644*^9}, {3.569168321257951*^9, 3.569168337466379*^9}, { 3.5691685152754917`*^9, 3.569168656096939*^9}, {3.5691687137702403`*^9, 3.569168772566744*^9}, {3.5691697249898825`*^9, 3.569169747063921*^9}, { 3.569169944981469*^9, 3.5691699696763124`*^9}, 3.569341165569158*^9, { 3.5693417833614435`*^9, 3.5693417874486504`*^9}, {3.5704552110753345`*^9, 3.5704552378605814`*^9}, {3.5704560776724567`*^9, 3.570456083070066*^9}, { 3.570855427306635*^9, 3.570855434529448*^9}, {3.57184030784344*^9, 3.5718403245666695`*^9}, {3.5723553440956435`*^9, 3.5723553601792717`*^9}, {3.5723567913257856`*^9, 3.572356801543803*^9}, { 3.5723587125159597`*^9, 3.572358735884801*^9}, {3.5726205042656164`*^9, 3.5726205078692226`*^9}, {3.5726209578956137`*^9, 3.5726209632776227`*^9}, {3.5726266468256054`*^9, 3.5726266628780336`*^9}, {3.57284236531176*^9, 3.57284238273699*^9}, { 3.572842728620798*^9, 3.572842734502008*^9}, 3.5731240921601086`*^9, { 3.5733125819686174`*^9, 3.573312582608218*^9}, {3.5733126196738834`*^9, 3.5733126474263325`*^9}, {3.5733131200291624`*^9, 3.5733131288743777`*^9}, 3.573368536719124*^9, {3.5746698693443537`*^9, 3.5746698885011873`*^9}, { 3.574740991757182*^9, 3.5747410134412203`*^9}, {3.5748285231568966`*^9, 3.5748285315497117`*^9}, 3.5749358536151505`*^9, 3.5753449209770584`*^9, 3.5753511874612646`*^9, {3.575371200889559*^9, 3.575371204695966*^9}, { 3.5762943805450716`*^9, 3.5762943822142744`*^9}, {3.5763817883957815`*^9, 3.5763817961489944`*^9}, {3.5763824652185698`*^9, 3.576382522626671*^9}}], Cell[BoxData["42"], "Output", CellChangeTimes->{3.576388759661222*^9}] }, Open ]], Cell[CellGroupData[{ Cell[BoxData[{ RowBox[{ RowBox[{"ow", "=", RowBox[{"Join", "[", RowBox[{ RowBox[{"Table", "[", RowBox[{ RowBox[{"-", "2.0"}], ",", RowBox[{"{", RowBox[{"i", ",", "1", ",", RowBox[{"bc", "+", "nb"}]}], "}"}]}], "]"}], ",", RowBox[{"Table", "[", RowBox[{ RowBox[{"-", "0.5"}], ",", RowBox[{"{", RowBox[{"i", ",", "1", ",", RowBox[{"2", "*", RowBox[{"(", RowBox[{"cj", "-", "1"}], ")"}]}]}], "}"}]}], "]"}], ",", RowBox[{"Table", "[", RowBox[{ RowBox[{"-", "1.0"}], ",", RowBox[{"{", RowBox[{"i", ",", "1", ",", "2"}], "}"}]}], "]"}], ",", RowBox[{"Table", "[", RowBox[{ RowBox[{"-", "2.0"}], ",", RowBox[{"{", RowBox[{"i", ",", "1", ",", RowBox[{"2", "*", "oj"}]}], "}"}]}], "]"}], ",", RowBox[{"Table", "[", RowBox[{ RowBox[{"-", "2.0"}], ",", RowBox[{"{", RowBox[{"i", ",", "1", ",", RowBox[{"3", "*", "tj"}]}], "}"}]}], "]"}]}], "]"}]}], ";"}], "\[IndentingNewLine]", "ow", "\[IndentingNewLine]", RowBox[{"cnv", "=", RowBox[{"Join", "[", RowBox[{ RowBox[{"Table", "[", RowBox[{ RowBox[{"cn", "[", RowBox[{"[", "i", "]"}], "]"}], ",", RowBox[{"{", RowBox[{"i", ",", "1", ",", "bc"}], "}"}]}], "]"}], ",", RowBox[{"Table", "[", RowBox[{"0.0", ",", RowBox[{"{", RowBox[{"i", ",", "1", ",", "cw"}], "}"}]}], "]"}], ",", RowBox[{"Table", "[", RowBox[{ RowBox[{"cn", "[", RowBox[{"[", "i", "]"}], "]"}], ",", RowBox[{"{", RowBox[{"i", ",", RowBox[{"bc", "+", "1"}], ",", "n"}], "}"}]}], "]"}], ",", RowBox[{"Table", "[", RowBox[{"0.0", ",", RowBox[{"{", RowBox[{"i", ",", "1", ",", RowBox[{"2", "*", "cj"}]}], "}"}]}], "]"}], ",", RowBox[{"Table", "[", RowBox[{"0.0", ",", RowBox[{"{", RowBox[{"i", ",", "1", ",", RowBox[{"2", "*", "oj"}]}], "}"}]}], "]"}], ",", RowBox[{"Table", "[", RowBox[{"0.0", ",", RowBox[{"{", RowBox[{"i", ",", "1", ",", RowBox[{"3", "*", "tj"}]}], "}"}]}], "]"}]}], "]"}]}]}], "Input", CellChangeTimes->{{3.5688982251756487`*^9, 3.5688986440675845`*^9}, { 3.5688986873108606`*^9, 3.56889871560931*^9}, {3.5688987970414534`*^9, 3.5688988526711507`*^9}, {3.568898887147211*^9, 3.568898888644814*^9}, { 3.5688989206248703`*^9, 3.568899041759083*^9}, {3.5688990876855636`*^9, 3.568899258349863*^9}, 3.568899300267137*^9, {3.568899351326027*^9, 3.5688993831032825`*^9}, {3.5688994370481772`*^9, 3.568899468217032*^9}, { 3.5688995813016305`*^9, 3.5688997165538683`*^9}, {3.5688998495129013`*^9, 3.568899932364647*^9}, {3.568899967667509*^9, 3.568900024529609*^9}, { 3.5689000794261055`*^9, 3.568900136257005*^9}, {3.5689001767858763`*^9, 3.56890020149632*^9}, {3.568902068726*^9, 3.568902074139209*^9}, 3.56890216040736*^9, 3.568902344113283*^9, {3.5689024237982235`*^9, 3.56890243907065*^9}, 3.5689025770684924`*^9, 3.568910195129884*^9, 3.568910620995032*^9, {3.568912393532545*^9, 3.5689124022841606`*^9}, { 3.5691332074958715`*^9, 3.5691332081666727`*^9}, {3.5691352237838125`*^9, 3.5691352313342257`*^9}, {3.5691489965881166`*^9, 3.5691490103317413`*^9}, {3.5691490440122004`*^9, 3.5691491273631463`*^9}, {3.5691523435842266`*^9, 3.56915234531583*^9}, { 3.5691524837816734`*^9, 3.5691526041202846`*^9}, {3.5691595921324143`*^9, 3.5691596901941867`*^9}, {3.569159772406331*^9, 3.5691597832951508`*^9}, { 3.5691598700313025`*^9, 3.569159885147729*^9}, {3.569160485733184*^9, 3.569160486887586*^9}, {3.5691672792073207`*^9, 3.5691672793789206`*^9}, { 3.5691673418102303`*^9, 3.5691674875144863`*^9}, {3.569168259700243*^9, 3.569168260386644*^9}, {3.569168321257951*^9, 3.569168337466379*^9}, { 3.5691685152754917`*^9, 3.569168656096939*^9}, {3.5691687137702403`*^9, 3.569168772566744*^9}, {3.5691697249898825`*^9, 3.569169747063921*^9}, { 3.569169944981469*^9, 3.5691699655579047`*^9}, {3.56921753575448*^9, 3.569217541807291*^9}, {3.569217576283351*^9, 3.5692176436130695`*^9}, { 3.5692176921603546`*^9, 3.569217692768756*^9}, {3.5692177389136367`*^9, 3.569217740192839*^9}, {3.5692222042775583`*^9, 3.5692222070231633`*^9}, { 3.569230669979245*^9, 3.5692306709620466`*^9}, {3.5692308816872168`*^9, 3.5692309970650196`*^9}, {3.5692310297158766`*^9, 3.569231090602784*^9}, { 3.5692311251880445`*^9, 3.569231148868886*^9}, 3.56923793753481*^9, 3.569341165569158*^9, 3.5693418217375107`*^9, {3.5703412254249296`*^9, 3.5703412423509593`*^9}, {3.5704553045038986`*^9, 3.570455320681127*^9}, { 3.57045550485505*^9, 3.5704555063370533`*^9}, {3.5704556421508913`*^9, 3.5704556424784923`*^9}, 3.5704557137862177`*^9, {3.5704564711051474`*^9, 3.5704564908079824`*^9}, {3.570456521602436*^9, 3.5704565228348384`*^9}, { 3.5704569127419233`*^9, 3.5704569202767363`*^9}, 3.5704636205455036`*^9, 3.570596993178934*^9, {3.570855461377095*^9, 3.5708554743563175`*^9}, 3.570855611589759*^9, {3.571840408884818*^9, 3.571840415296429*^9}, { 3.571840465559717*^9, 3.571840473905732*^9}, {3.5720165322617407`*^9, 3.5720165635241957`*^9}, {3.5721934404423375`*^9, 3.57219344758715*^9}, 3.572193479551606*^9, {3.5721935303764954`*^9, 3.572193534214102*^9}, { 3.5726206642250977`*^9, 3.5726206651142993`*^9}, {3.572620782223705*^9, 3.572620782738506*^9}, {3.572620924963956*^9, 3.5726209465699935`*^9}, { 3.572842408289835*^9, 3.5728424357302833`*^9}, {3.5728424783807583`*^9, 3.57284247916076*^9}, 3.5728451195121975`*^9, {3.5731249170427575`*^9, 3.573124927962777*^9}, {3.5731450428093076`*^9, 3.5731450615449405`*^9}, { 3.5731451273458557`*^9, 3.573145132259865*^9}, {3.573312700185625*^9, 3.573312779979765*^9}, {3.5733131504804153`*^9, 3.5733131516816177`*^9}, { 3.5733132756862354`*^9, 3.5733132772462387`*^9}, {3.5733147916812983`*^9, 3.573314840275384*^9}, {3.5733593507659893`*^9, 3.573359359377204*^9}, { 3.5746698998736076`*^9, 3.574669995361375*^9}, {3.5747410251880407`*^9, 3.574741049430484*^9}, {3.574828384379053*^9, 3.574828403270686*^9}, 3.5748284615211887`*^9, {3.5748284935168447`*^9, 3.5748284944996467`*^9}, { 3.574935858419959*^9, 3.574935862834767*^9}, {3.5753447605151763`*^9, 3.5753447815128136`*^9}, {3.575371294396123*^9, 3.5753713029293385`*^9}, { 3.5753713452678127`*^9, 3.5753713535982275`*^9}, {3.5762944216667438`*^9, 3.5762944709472303`*^9}, {3.5763819290300283`*^9, 3.576381935160839*^9}, { 3.576382364645193*^9, 3.576382415158082*^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[{"-", "0.5`"}], ",", RowBox[{"-", "0.5`"}], ",", RowBox[{"-", "0.5`"}], ",", RowBox[{"-", "0.5`"}], ",", RowBox[{"-", "0.5`"}], ",", RowBox[{"-", "0.5`"}], ",", RowBox[{"-", "0.5`"}], ",", RowBox[{"-", "0.5`"}], ",", RowBox[{"-", "1.`"}], ",", RowBox[{"-", "1.`"}], ",", RowBox[{"-", "2.`"}], ",", RowBox[{"-", "2.`"}], ",", RowBox[{"-", "2.`"}], ",", RowBox[{"-", "2.`"}], ",", RowBox[{"-", "2.`"}], ",", RowBox[{"-", "2.`"}], ",", RowBox[{"-", "2.`"}]}], "}"}]], "Output", CellChangeTimes->{3.5763887596768217`*^9}], Cell[BoxData[ RowBox[{"{", RowBox[{ "6.`", ",", "6.`", ",", "6.`", ",", "6.`", ",", "7.`", ",", "7.`", ",", "8.`", ",", "8.`", ",", "8.`", ",", "0.`", ",", "0.`", ",", "0.`", ",", "0.`", ",", "0.`", ",", "0.`", ",", "0.`", ",", "0.`", ",", "1.`", ",", "1.`", ",", "1.`", ",", "1.`", ",", "1.`", ",", "1.`", ",", "1.`", ",", "1.`", ",", "0.`", ",", "0.`", ",", "0.`", ",", "0.`", ",", "0.`", ",", "0.`", ",", "0.`", ",", "0.`", ",", "0.`", ",", "0.`", ",", "0.`", ",", "0.`", ",", "0.`", ",", "0.`", ",", "0.`", ",", "0.`", ",", "0.`"}], "}"}]], "Output", CellChangeTimes->{3.5763887596768217`*^9}] }, Open ]], Cell[CellGroupData[{ Cell[BoxData[ RowBox[{ RowBox[{"(*", " ", RowBox[{"nucleus", "-", RowBox[{"cloud", " ", "distances"}]}], " ", "*)"}], "\[IndentingNewLine]", RowBox[{ RowBox[{ RowBox[{"dcw", "=", RowBox[{"Table", "[", RowBox[{ RowBox[{ RowBox[{"sq", "=", RowBox[{"Norm", "[", RowBox[{ RowBox[{"tw", "[", RowBox[{"[", "i", "]"}], "]"}], "-", RowBox[{"tv", "[", RowBox[{"[", "j", "]"}], "]"}]}], "]"}]}], ";", RowBox[{"If", "[", RowBox[{ RowBox[{"(", RowBox[{ RowBox[{"sq", ">", " ", "0.1"}], " ", "&&", " ", RowBox[{"i", "\[NotEqual]", "j"}]}], ")"}], ",", RowBox[{"1", "/", "sq"}], ",", "0"}], "]"}]}], ",", RowBox[{"{", RowBox[{"i", ",", "1", ",", "bt"}], "}"}], ",", RowBox[{"{", RowBox[{"j", ",", "1", ",", "bt"}], "}"}]}], "]"}]}], ";"}], "\[IndentingNewLine]", RowBox[{"Length", "[", "dcw", "]"}], "\[IndentingNewLine]", RowBox[{"(*", RowBox[{"MatrixForm", "[", "dcw", "]"}], "*)"}], " "}]}]], "Input", CellChangeTimes->{{3.5688982251756487`*^9, 3.5688986440675845`*^9}, { 3.5688986873108606`*^9, 3.56889871560931*^9}, {3.5688987970414534`*^9, 3.5688988526711507`*^9}, {3.568898887147211*^9, 3.568898888644814*^9}, { 3.5688989206248703`*^9, 3.568899041759083*^9}, {3.5688990876855636`*^9, 3.568899258349863*^9}, 3.568899300267137*^9, {3.568899351326027*^9, 3.5688993831032825`*^9}, {3.5688994370481772`*^9, 3.568899468217032*^9}, { 3.5688995813016305`*^9, 3.5688997165538683`*^9}, {3.5688998495129013`*^9, 3.568899932364647*^9}, {3.568899967667509*^9, 3.568900024529609*^9}, { 3.5689000794261055`*^9, 3.568900136257005*^9}, {3.5689001767858763`*^9, 3.56890020149632*^9}, {3.568902068726*^9, 3.568902074139209*^9}, 3.56890216040736*^9, 3.568902344113283*^9, {3.5689024237982235`*^9, 3.56890243907065*^9}, 3.5689025770684924`*^9, 3.568910195129884*^9, 3.568910620995032*^9, {3.568912393532545*^9, 3.5689124022841606`*^9}, { 3.5691332074958715`*^9, 3.5691332081666727`*^9}, {3.5691352237838125`*^9, 3.5691352313342257`*^9}, {3.5691489965881166`*^9, 3.5691490103317413`*^9}, {3.5691490440122004`*^9, 3.5691491273631463`*^9}, {3.5691523435842266`*^9, 3.56915234531583*^9}, { 3.5691524837816734`*^9, 3.5691526041202846`*^9}, {3.5691595921324143`*^9, 3.5691596901941867`*^9}, {3.569159772406331*^9, 3.5691597832951508`*^9}, { 3.5691598700313025`*^9, 3.569159885147729*^9}, {3.569160485733184*^9, 3.569160486887586*^9}, {3.5691672792073207`*^9, 3.5691672793789206`*^9}, { 3.5691673418102303`*^9, 3.5691674875144863`*^9}, {3.569168259700243*^9, 3.569168260386644*^9}, {3.569168321257951*^9, 3.569168337466379*^9}, { 3.5691685152754917`*^9, 3.569168656096939*^9}, {3.5691687137702403`*^9, 3.569168772566744*^9}, {3.5691697249898825`*^9, 3.569169747063921*^9}, { 3.569169944981469*^9, 3.5691699655579047`*^9}, {3.56921753575448*^9, 3.569217541807291*^9}, {3.569217576283351*^9, 3.5692176436130695`*^9}, { 3.5692176921603546`*^9, 3.569217692768756*^9}, {3.5692177389136367`*^9, 3.569217740192839*^9}, {3.5692222042775583`*^9, 3.5692222070231633`*^9}, { 3.569230669979245*^9, 3.5692306709620466`*^9}, {3.5692308816872168`*^9, 3.5692309970650196`*^9}, {3.5692310297158766`*^9, 3.569231090602784*^9}, { 3.5692311251880445`*^9, 3.569231148868886*^9}, 3.56923793753481*^9, 3.569341165569158*^9, 3.5693418217375107`*^9, {3.5703412254249296`*^9, 3.5703412423509593`*^9}, {3.5704553045038986`*^9, 3.570455320681127*^9}, { 3.57045550485505*^9, 3.5704555063370533`*^9}, {3.5704556421508913`*^9, 3.5704556424784923`*^9}, 3.5704557137862177`*^9, {3.5704564711051474`*^9, 3.5704564908079824`*^9}, {3.570456521602436*^9, 3.5704565228348384`*^9}, { 3.5704569127419233`*^9, 3.5704569202767363`*^9}, 3.5704636205455036`*^9, 3.570596993178934*^9, {3.570855461377095*^9, 3.5708554743563175`*^9}, 3.570855611589759*^9, {3.571840408884818*^9, 3.571840415296429*^9}, { 3.571840465559717*^9, 3.571840473905732*^9}, {3.5720165322617407`*^9, 3.5720165635241957`*^9}, {3.5721934404423375`*^9, 3.57219344758715*^9}, 3.572193479551606*^9, 3.5721935303764954`*^9, {3.5721935661785583`*^9, 3.5721935879405966`*^9}, {3.5721936909943776`*^9, 3.572193697218788*^9}, { 3.5721937395728626`*^9, 3.57219374339487*^9}, {3.5721937963725624`*^9, 3.5721938223154078`*^9}, {3.572193859786674*^9, 3.572193861533877*^9}, 3.5723554650270557`*^9, {3.5723567325136824`*^9, 3.5723567701565485`*^9}, 3.572621740954589*^9}], Cell[BoxData["42"], "Output", CellChangeTimes->{3.576388759708022*^9}] }, Open ]], Cell[CellGroupData[{ Cell[BoxData[{ RowBox[{"Elcharge", "=", RowBox[{"Sum", "[", RowBox[{ RowBox[{"ow", "[", RowBox[{"[", "i", "]"}], "]"}], ",", RowBox[{"{", RowBox[{"i", ",", "1", ",", RowBox[{"Length", "[", "ow", "]"}]}], "}"}]}], "]"}]}], "\[IndentingNewLine]", RowBox[{"Length", "[", "ow", "]"}], "\[IndentingNewLine]", RowBox[{"Nuccharge", "=", RowBox[{"Sum", "[", RowBox[{ RowBox[{"cnv", "[", RowBox[{"[", "i", "]"}], "]"}], ",", RowBox[{"{", RowBox[{"i", ",", "1", ",", RowBox[{"Length", "[", "cnv", "]"}]}], "}"}]}], "]"}]}], "\[IndentingNewLine]", RowBox[{"Length", "[", "cnv", "]"}], "\[IndentingNewLine]"}], "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, {3.573315125131884*^9, 3.57331521983965*^9}, {3.573315279213355*^9, 3.573315294797782*^9}, { 3.5733153507238803`*^9, 3.5733153551854877`*^9}, {3.5733153963695602`*^9, 3.5733154277724156`*^9}, {3.5733182525629773`*^9, 3.5733182928434477`*^9}}], Cell[BoxData[ RowBox[{"-", "70.`"}]], "Output", CellChangeTimes->{3.576388759708022*^9}], Cell[BoxData["42"], "Output", CellChangeTimes->{3.5763887597236223`*^9}], Cell[BoxData["70.`"], "Output", CellChangeTimes->{3.5763887597236223`*^9}], Cell[BoxData["42"], "Output", CellChangeTimes->{3.5763887597236223`*^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, {3.573315125131884*^9, 3.57331521983965*^9}, {3.573315279213355*^9, 3.573315294797782*^9}, { 3.5733153507238803`*^9, 3.5733153551854877`*^9}, {3.5733153963695602`*^9, 3.5733154277724156`*^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["549.1547111188219`"], "Output", CellChangeTimes->{3.5763887597392225`*^9}] }, Open ]], Cell[BoxData[ RowBox[{ RowBox[{"(*", " ", RowBox[{ "half", " ", "cloud", " ", "with", " ", "other", " ", "common", " ", RowBox[{"halfcloud", ":", " ", RowBox[{"subtract", " ", "WW"}]}]}], " ", "*)"}], "\[IndentingNewLine]", RowBox[{"(*", RowBox[{ RowBox[{"For", " ", "[", RowBox[{ RowBox[{"i", "=", RowBox[{"nb", "+", "bc", "+", "1"}]}], ",", RowBox[{"i", "\[LessEqual]", RowBox[{"nb", "+", "bc", "+", "cj"}]}], ",", RowBox[{"i", "++"}], ",", RowBox[{"Vee", "=", RowBox[{"Vee", "-", RowBox[{ RowBox[{"ow", "[", RowBox[{"[", "i", "]"}], "]"}], "*", RowBox[{ RowBox[{"ow", "[", RowBox[{"[", RowBox[{"i", "+", "cj"}], "]"}], "]"}], "/", RowBox[{"(", RowBox[{ RowBox[{"rpo", "[", RowBox[{"[", RowBox[{"i", "-", "nb", "-", "bc"}], "]"}], "]"}], "+", RowBox[{"rpi", "[", RowBox[{"[", RowBox[{"i", "-", "nb", "-", "bc"}], "]"}], "]"}]}], ")"}]}]}]}]}]}], "]"}], ";"}], "*)"}], "\[IndentingNewLine]", RowBox[{ RowBox[{ RowBox[{"Vee", "=", RowBox[{"Vee", "-", RowBox[{"0.5", "*", RowBox[{"(", RowBox[{ RowBox[{"0.25", "/", RowBox[{"rpo", "[", RowBox[{"[", "1", "]"}], "]"}]}], "-", RowBox[{"0.25", "/", RowBox[{"rpo", "[", RowBox[{"[", "2", "]"}], "]"}]}], "-", RowBox[{"0.25", "/", RowBox[{"rpo", "[", RowBox[{"[", "3", "]"}], "]"}]}], "-", RowBox[{"0.25", "/", RowBox[{"rpo", "[", RowBox[{"[", "4", "]"}], "]"}]}]}], ")"}]}]}]}], ";"}], "\[IndentingNewLine]"}]}]], "Input", CellChangeTimes->{{3.571840548723463*^9, 3.571840579798718*^9}, { 3.5718477253093*^9, 3.5718477304573092`*^9}, {3.572620810756155*^9, 3.5726208298349886`*^9}, {3.5726208600522413`*^9, 3.5726208972739067`*^9}, {3.57279778559276*^9, 3.57279781975682*^9}, 3.5733150956478324`*^9, {3.5733650408599825`*^9, 3.573365073947641*^9}, { 3.573365126847334*^9, 3.573365203209468*^9}, {3.57467280495751*^9, 3.574672834457162*^9}, {3.574672996697447*^9, 3.5746729984914503`*^9}, { 3.574743538820456*^9, 3.574743544140065*^9}, {3.574828627021879*^9, 3.5748286276614804`*^9}, {3.5748512413081284`*^9, 3.57485124786014*^9}, { 3.574851313707855*^9, 3.5748513247994747`*^9}, {3.575602516740883*^9, 3.575602523074494*^9}, {3.575722007593234*^9, 3.575722017748852*^9}, { 3.575722104095004*^9, 3.575722128165846*^9}, {3.575722369123869*^9, 3.575722516668928*^9}, {3.5762945364517455`*^9, 3.5762945416309547`*^9}, 3.5762963089424586`*^9, {3.576382205072513*^9, 3.5763822136993284`*^9}, { 3.5763822439477816`*^9, 3.5763822577538056`*^9}}], Cell[CellGroupData[{ Cell[BoxData[{ RowBox[{ RowBox[{ RowBox[{"sc", "=", "0.3873"}], ";"}], " ", 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.3873"}], ";"}], " ", RowBox[{"(*", " ", RowBox[{"bonding", " ", "clouds"}], " ", "*)"}]}], "\[IndentingNewLine]", RowBox[{"For", "[", RowBox[{ RowBox[{"i", "=", "1"}], " ", ",", RowBox[{"i", "<", RowBox[{"nb", "+", "1"}]}], ",", RowBox[{"i", "++"}], ",", RowBox[{"Vee", "=", RowBox[{"Vee", "+", RowBox[{"3", "*", RowBox[{"sw", "/", RowBox[{"a", "[", RowBox[{"[", RowBox[{"i", ",", "3"}], "]"}], "]"}]}]}]}]}]}], "]"}], "\[IndentingNewLine]", RowBox[{"For", "[", RowBox[{ RowBox[{"i", "=", "1"}], " ", ",", RowBox[{"i", "\[LessEqual]", RowBox[{"3", "*", "tj"}]}], ",", RowBox[{"i", "++"}], ",", RowBox[{"Vee", "=", RowBox[{"Vee", "+", RowBox[{"3", "*", RowBox[{"sw", "/", "rlo"}]}]}]}]}], "]"}], "\[IndentingNewLine]", "Vee"}], "Input", CellChangeTimes->{{3.5689548890696163`*^9, 3.568955116299615*^9}, { 3.5689552553894596`*^9, 3.5689552575266633`*^9}, {3.5689552936875267`*^9, 3.5689553203323736`*^9}, {3.568955404229321*^9, 3.568955433245372*^9}, 3.5689554882822685`*^9, 3.5689562157115464`*^9, {3.568956283961666*^9, 3.5689562858180695`*^9}, {3.5689566111878405`*^9, 3.5689566291278725`*^9}, {3.5689566695319433`*^9, 3.5689567220104356`*^9}, {3.5690810958835616`*^9, 3.569081104525977*^9}, { 3.5691717160681796`*^9, 3.569171751714242*^9}, {3.5691717855663013`*^9, 3.5691719006789036`*^9}, 3.569234247377528*^9, {3.569235622381544*^9, 3.569235625142749*^9}, {3.5692356799612455`*^9, 3.569235740536152*^9}, { 3.57045575500149*^9, 3.5704557604770994`*^9}, {3.57046440981329*^9, 3.5704644333849316`*^9}, {3.5705963024877205`*^9, 3.5705963300061693`*^9}, {3.5706010463712544`*^9, 3.570601069225295*^9}, { 3.5706012097659416`*^9, 3.5706012109983435`*^9}, {3.570601290948484*^9, 3.570601291619285*^9}, {3.570601333099758*^9, 3.570601444951955*^9}, 3.5706014761208096`*^9, {3.570601526633698*^9, 3.570601615179454*^9}, { 3.5708576202336864`*^9, 3.5708576267544985`*^9}, {3.5708577990100007`*^9, 3.5708578016152053`*^9}, {3.5708580423548284`*^9, 3.570858044429632*^9}, { 3.570858075754487*^9, 3.5708581072821426`*^9}, {3.570858449889944*^9, 3.5708585756105647`*^9}, {3.572795632149378*^9, 3.5727956355657835`*^9}, { 3.5728516649872932`*^9, 3.5728517189321885`*^9}, {3.572851825152775*^9, 3.572851850284419*^9}, {3.5728520019946856`*^9, 3.572852210645052*^9}, 3.573124800838154*^9, {3.573322145410615*^9, 3.573322167859054*^9}, { 3.573322202803116*^9, 3.573322232630368*^9}, {3.5733683306427617`*^9, 3.5733683367267723`*^9}, {3.5733684056944933`*^9, 3.573368412932906*^9}, { 3.5733695833093615`*^9, 3.5733696100478086`*^9}, {3.5733696433694673`*^9, 3.573369694568757*^9}, {3.5733697316344223`*^9, 3.5733697335688257`*^9}, { 3.573369920425954*^9, 3.5733699263851643`*^9}, {3.57336995814682*^9, 3.573370085162243*^9}, {3.5733701175791*^9, 3.573370122087508*^9}, { 3.5733701577803707`*^9, 3.5733701630219803`*^9}, {3.573370193660434*^9, 3.573370198262442*^9}, {3.5746729482125616`*^9, 3.5746729642181897`*^9}, { 3.5746730450731316`*^9, 3.5746730625763626`*^9}, {3.574674580516679*^9, 3.5746746053675222`*^9}, {3.574674636692377*^9, 3.574674639859183*^9}, { 3.574743595854156*^9, 3.574743647131446*^9}, {3.575008591469165*^9, 3.5750085963519735`*^9}, 3.5753455268821225`*^9, {3.5753457669977446`*^9, 3.5753460420262275`*^9}, {3.5753460769078884`*^9, 3.575346080620695*^9}, { 3.5753461127255516`*^9, 3.575346158121631*^9}, {3.575388932760494*^9, 3.5753889451001163`*^9}, {3.5757144777564526`*^9, 3.575714504058099*^9}, { 3.5757750148485985`*^9, 3.5757750729587007`*^9}, 3.576294512162503*^9, { 3.576294649099543*^9, 3.576294654341152*^9}, {3.5763822868478565`*^9, 3.5763822927602673`*^9}}], Cell[BoxData["617.1116631955616`"], "Output", CellChangeTimes->{3.5763887597548223`*^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[{"-", "1155.0179166381145`"}]], "Output", CellChangeTimes->{3.576388759770422*^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[{"-", "2024.5755329966235`"}]], "Output", CellChangeTimes->{3.576388759786022*^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[{"-", "2043.4921191684407`"}]], "Output", CellChangeTimes->{3.576388759786022*^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["450.4266672685316`"], "Output", CellChangeTimes->{3.5763887598016224`*^9}] }, Open ]], Cell[CellGroupData[{ Cell[BoxData[ RowBox[{ RowBox[{"(*", " ", RowBox[{ RowBox[{ "now", " ", "add", " ", "the", " ", "energy", " ", "terms", " ", "of", " ", RowBox[{"Cl", "[", "Ne", "]"}], "7"}], "+", " ", RowBox[{"from", " ", "Ne_s24b2", RowBox[{"_atoms", ".", "nb"}]}]}], " ", "*)"}], "\[IndentingNewLine]", RowBox[{ "Vee", "\[IndentingNewLine]", "Vnn", "\[IndentingNewLine]", "Vne", "\[IndentingNewLine]", RowBox[{"Tpi", " ", "=", " ", RowBox[{"2.06", "*", "1.125", "*", RowBox[{"(", RowBox[{ RowBox[{"0.5", "*", RowBox[{"(", RowBox[{ RowBox[{"1", "/", RowBox[{ RowBox[{"rpo", "[", RowBox[{"[", "1", "]"}], "]"}], "^", "2"}]}], "+", RowBox[{"1", "/", RowBox[{ RowBox[{"rpi", "[", RowBox[{"[", "1", "]"}], "]"}], "^", "2"}]}], "+", RowBox[{"1", "/", RowBox[{ RowBox[{"rpo", "[", RowBox[{"[", "2", "]"}], "]"}], "^", "2"}]}], "+", RowBox[{"1", "/", RowBox[{ RowBox[{"rpi", "[", RowBox[{"[", "2", "]"}], "]"}], "^", "2"}]}], "+", RowBox[{"1", "/", RowBox[{ RowBox[{"rpo", "[", RowBox[{"[", "3", "]"}], "]"}], "^", "2"}]}], "+", RowBox[{"1", "/", RowBox[{ RowBox[{"rpi", "[", RowBox[{"[", "3", "]"}], "]"}], "^", "2"}]}], "+", RowBox[{"1", "/", RowBox[{ RowBox[{"rpo", "[", RowBox[{"[", "4", "]"}], "]"}], "^", "2"}]}], "+", RowBox[{"1", "/", RowBox[{ RowBox[{"rpi", "[", RowBox[{"[", "4", "]"}], "]"}], "^", "2"}]}]}], ")"}]}], " ", "+", RowBox[{"(", RowBox[{ RowBox[{"1", "/", RowBox[{ RowBox[{"rpo", "[", RowBox[{"[", "5", "]"}], "]"}], "^", "2"}]}], "+", RowBox[{"1", "/", RowBox[{ RowBox[{"rpi", "[", RowBox[{"[", "5", "]"}], "]"}], "^", "2"}]}]}], ")"}]}], ")"}]}]}], RowBox[{"(*", " ", RowBox[{"pi", " ", "kin", " ", "e", " ", "added"}], " ", "*)"}], "\[IndentingNewLine]", RowBox[{"Tlp", " ", "=", RowBox[{ RowBox[{"(", RowBox[{ RowBox[{"3", "*", "tj"}], "+", RowBox[{"2", "*", "oj"}]}], ")"}], "*", "2.25", "*", RowBox[{"(", RowBox[{"1", "/", RowBox[{"rlo", "^", "2"}]}], ")"}]}]}], "\[IndentingNewLine]", RowBox[{"Vtot", "=", RowBox[{"Vne", "+", "Vee", "+", "Vnn"}]}], "\[IndentingNewLine]", RowBox[{"Ttot", " ", "=", RowBox[{"Ttot", "+", "Tpi", "+", "Tlp"}]}], "\[IndentingNewLine]", RowBox[{"Vir", " ", "=", RowBox[{ RowBox[{"-", "Vtot"}], "/", "Ttot"}]}], "\[IndentingNewLine]", RowBox[{"Etot", "=", RowBox[{"Ttot", "+", "Vtot"}]}], "\[IndentingNewLine]"}]}]], "Input", CellChangeTimes->{{3.5689074950860367`*^9, 3.5689075109980645`*^9}, { 3.568910298074465*^9, 3.5689103015064707`*^9}, {3.568910724064413*^9, 3.5689107693044925`*^9}, {3.568955368910859*^9, 3.568955378629676*^9}, { 3.568955601366867*^9, 3.568955616218093*^9}, {3.5704638504275074`*^9, 3.570463876370353*^9}, {3.570464305074706*^9, 3.5704643133895206`*^9}, { 3.570464352171189*^9, 3.570464353231991*^9}, {3.570712404698539*^9, 3.5707124150569572`*^9}, {3.570809962851386*^9, 3.5708101493809137`*^9}, { 3.5708102160710306`*^9, 3.570810245165082*^9}, {3.5708102767551374`*^9, 3.5708103693413*^9}, {3.570810404207361*^9, 3.5708104232081947`*^9}, { 3.5708104788690925`*^9, 3.5708104825818987`*^9}, {3.5708105169643593`*^9, 3.570810517884761*^9}, {3.570810561767638*^9, 3.5708105625476394`*^9}, { 3.5708106179589367`*^9, 3.570810645648985*^9}, {3.5708552812279787`*^9, 3.570855300572013*^9}, {3.5718406368324184`*^9, 3.5718406454592333`*^9}, 3.57184067742369*^9, {3.572851887958485*^9, 3.5728519643206196`*^9}, 3.573124110349741*^9, 3.5731249811744704`*^9, {3.573321827294856*^9, 3.573321828074857*^9}, {3.5733218842973557`*^9, 3.573322060546466*^9}, { 3.5733223511749763`*^9, 3.573322362562996*^9}, {3.5733662939947844`*^9, 3.573366334227255*^9}, {3.573366373336523*^9, 3.5733663802005353`*^9}, { 3.5733670479305086`*^9, 3.573367141577473*^9}, {3.573367235162038*^9, 3.5733672396704454`*^9}, {3.5733673160013795`*^9, 3.573367336141015*^9}, { 3.57337971917793*^9, 3.573379817005702*^9}, {3.5733798503429604`*^9, 3.5733798602021775`*^9}, 3.574672644355228*^9, {3.5746726806096916`*^9, 3.5746727600450315`*^9}, {3.5747435066375995`*^9, 3.574743512113209*^9}, { 3.574828574792988*^9, 3.57482858761621*^9}, 3.5749358994636307`*^9, { 3.575344595934888*^9, 3.5753446255749397`*^9}, {3.5753719193332205`*^9, 3.575371943029662*^9}, {3.5757146920540295`*^9, 3.575714718901676*^9}, { 3.5757148376958847`*^9, 3.5757148384134865`*^9}, {3.57571486928594*^9, 3.575714870065942*^9}, {3.5757209777730255`*^9, 3.5757209784438267`*^9}, { 3.5757212754683485`*^9, 3.5757213005219927`*^9}, {3.5757222764909067`*^9, 3.5757222942281375`*^9}, {3.5757232810546713`*^9, 3.5757232920370903`*^9}, 3.576294590880241*^9, {3.57638195835808*^9, 3.576381963006888*^9}, { 3.576382027559801*^9, 3.576382030648607*^9}, {3.576382067324271*^9, 3.5763821038283353`*^9}, {3.576383939251156*^9, 3.5763839507795763`*^9}}], Cell[BoxData["617.1116631955616`"], "Output", CellChangeTimes->{3.5763887598328223`*^9}], Cell[BoxData["450.4266672685316`"], "Output", CellChangeTimes->{3.5763887598328223`*^9}], Cell[BoxData[ RowBox[{"-", "2043.4921191684407`"}]], "Output", CellChangeTimes->{3.5763887598328223`*^9}], Cell[BoxData["9.661359266663519`"], "Output", CellChangeTimes->{3.5763887598328223`*^9}], Cell[BoxData["12.444444444444443`"], "Output", CellChangeTimes->{3.5763887598328223`*^9}], Cell[BoxData[ RowBox[{"-", "975.9537887043475`"}]], "Output", CellChangeTimes->{3.5763887598328223`*^9}], Cell[BoxData["487.85590678106405`"], "Output", CellChangeTimes->{3.5763887598328223`*^9}], Cell[BoxData["2.0004959971558325`"], "Output", CellChangeTimes->{3.5763887598328223`*^9}], Cell[BoxData[ RowBox[{"-", "488.09788192328347`"}]], "Output", CellChangeTimes->{3.5763887598328223`*^9}] }, Open ]] }, WindowSize->{922, 949}, WindowMargins->{{Automatic, 384}, {Automatic, 29}}, 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, 2264, 37, 52, "Input"], Cell[CellGroupData[{ Cell[2846, 61, 1357, 25, 52, "Input"], Cell[4206, 88, 2753, 50, 247, "Output"] }, Open ]], Cell[CellGroupData[{ Cell[6996, 143, 906, 15, 31, "Input"], Cell[7905, 160, 416, 7, 31, "Output"] }, Open ]], Cell[CellGroupData[{ Cell[8358, 172, 955, 14, 31, "Input"], Cell[9316, 188, 70, 1, 31, "Output"] }, Open ]], Cell[CellGroupData[{ Cell[9423, 194, 838, 19, 31, "Input"], Cell[10264, 215, 2649, 64, 281, "Output"] }, Open ]], Cell[CellGroupData[{ Cell[12950, 284, 1560, 29, 31, "Input"], Cell[14513, 315, 419, 7, 31, "Output"] }, Open ]], Cell[14947, 325, 1419, 23, 31, "Input"], Cell[16369, 350, 1592, 29, 31, "Input"], Cell[CellGroupData[{ Cell[17986, 383, 1234, 18, 31, "Input"], Cell[19223, 403, 1244, 37, 52, "Output"] }, Open ]], Cell[CellGroupData[{ Cell[20504, 445, 697, 14, 31, "Input"], Cell[21204, 461, 283, 6, 31, "Output"] }, Open ]], Cell[21502, 470, 908, 24, 31, "Input"], Cell[CellGroupData[{ Cell[22435, 498, 6690, 137, 172, "Input"], Cell[29128, 637, 357, 7, 52, "Output"], Cell[29488, 646, 362, 7, 52, "Output"] }, Open ]], Cell[CellGroupData[{ Cell[29887, 658, 519, 12, 31, "Input"], Cell[30409, 672, 419, 7, 31, "Output"] }, Open ]], Cell[CellGroupData[{ Cell[30865, 684, 1428, 39, 92, "Input"], Cell[32296, 725, 310, 6, 31, "Output"] }, Open ]], Cell[CellGroupData[{ Cell[32643, 736, 827, 23, 92, "Input"], Cell[33473, 761, 72, 1, 31, "Output"], Cell[33548, 764, 72, 1, 31, "Output"] }, Open ]], Cell[33635, 768, 1965, 37, 72, "Input"], Cell[CellGroupData[{ Cell[35625, 809, 1563, 22, 31, "Input"], Cell[37191, 833, 87, 1, 31, "Output"] }, Open ]], Cell[37293, 837, 1617, 29, 52, "Input"], Cell[CellGroupData[{ Cell[38935, 870, 1583, 22, 31, "Input"], Cell[40521, 894, 11731, 290, 144, "Output"] }, Open ]], Cell[52267, 1187, 1442, 19, 30, "Text"], Cell[53712, 1208, 1997, 39, 52, "Input"], Cell[CellGroupData[{ Cell[55734, 1251, 4977, 90, 92, "Input"], Cell[60714, 1343, 3007, 56, 296, "Output"] }, Open ]], Cell[63736, 1402, 1027, 14, 31, "Input"], Cell[CellGroupData[{ Cell[64788, 1420, 3846, 83, 152, "Input"], Cell[68637, 1505, 376, 7, 52, "Output"] }, Open ]], Cell[CellGroupData[{ Cell[69050, 1517, 2092, 46, 112, "Input"], Cell[71145, 1565, 3671, 65, 281, "Output"] }, Open ]], Cell[74831, 1633, 561, 12, 52, "Input"], Cell[CellGroupData[{ Cell[75417, 1649, 2143, 47, 92, "Input"], Cell[77563, 1698, 3652, 62, 281, "Output"] }, Open ]], Cell[CellGroupData[{ Cell[81252, 1765, 2558, 56, 112, "Input"], Cell[83813, 1823, 3654, 62, 281, "Output"] }, Open ]], Cell[CellGroupData[{ Cell[87504, 1890, 3677, 96, 172, "Input"], Cell[91184, 1988, 90, 1, 31, "Output"], Cell[91277, 1991, 89, 1, 31, "Output"], Cell[91369, 1994, 89, 1, 31, "Output"], Cell[91461, 1997, 90, 1, 31, "Output"], Cell[91554, 2000, 90, 1, 31, "Output"] }, Open ]], Cell[91659, 2004, 2075, 35, 72, "Input"], Cell[CellGroupData[{ Cell[93759, 2043, 3969, 94, 172, "Input"], Cell[97731, 2139, 109, 2, 31, "Output"], Cell[97843, 2143, 498, 10, 21, "Message"], Cell[98344, 2155, 205, 4, 31, "Output"], Cell[98552, 2161, 213, 5, 31, "Output"], Cell[98768, 2168, 141, 3, 31, "Output"], Cell[98912, 2173, 329, 7, 31, "Output"], Cell[99244, 2182, 143, 3, 31, "Output"] }, Open ]], Cell[CellGroupData[{ Cell[99424, 2190, 2672, 54, 132, "Input"], Cell[102099, 2246, 70, 1, 31, "Output"] }, Open ]], Cell[CellGroupData[{ Cell[102206, 2252, 739, 22, 92, "Input"], Cell[102948, 2276, 72, 1, 31, "Output"] }, Open ]], Cell[CellGroupData[{ Cell[103057, 2282, 2771, 55, 92, "Input"], Cell[105831, 2339, 135, 3, 31, "Output"] }, Open ]], Cell[105981, 2345, 4989, 137, 232, "Input"], Cell[CellGroupData[{ Cell[110995, 2486, 5267, 128, 232, "Input"], Cell[116265, 2616, 87, 2, 31, "Output"], Cell[116355, 2620, 70, 1, 31, "Output"], Cell[116428, 2623, 2022, 69, 281, "Output"] }, Open ]], Cell[CellGroupData[{ Cell[118487, 2697, 11929, 199, 232, "Input"], Cell[130419, 2898, 159, 4, 31, "Output"], Cell[130581, 2904, 270, 8, 31, "Output"], Cell[130854, 2914, 72, 1, 31, "Output"], Cell[130929, 2917, 72, 1, 31, "Output"] }, Open ]], Cell[131016, 2921, 9308, 141, 112, "Input"], Cell[140327, 3064, 8269, 113, 49, "Text"], Cell[CellGroupData[{ Cell[148621, 3181, 4631, 105, 152, "Input"], Cell[153255, 3288, 72, 1, 31, "Output"] }, Open ]], Cell[153342, 3292, 184, 3, 31, "Input"], Cell[CellGroupData[{ Cell[153551, 3299, 3200, 70, 112, "Input"], Cell[156754, 3371, 2455, 55, 281, "Output"] }, Open ]], Cell[159224, 3429, 442, 7, 49, "Text"], Cell[159669, 3438, 1368, 20, 31, "Input"], Cell[161040, 3460, 2529, 50, 92, "Input"], Cell[CellGroupData[{ Cell[163594, 3514, 3056, 65, 132, "Input"], Cell[166653, 3581, 13415, 245, 176, "Output"] }, Open ]], Cell[180083, 3829, 2720, 38, 49, "Text"], Cell[CellGroupData[{ Cell[182828, 3871, 4909, 117, 332, "Input"], Cell[187740, 3990, 72, 1, 31, "Output"] }, Open ]], Cell[187827, 3994, 32056, 887, 1452, "Input"], Cell[CellGroupData[{ Cell[219908, 4885, 3302, 46, 31, "Input"], Cell[223213, 4933, 205, 5, 31, "Output"] }, Open ]], Cell[CellGroupData[{ Cell[223455, 4943, 4466, 82, 112, "Input"], Cell[227924, 5027, 12953, 228, 202, "Output"] }, Open ]], Cell[240892, 5258, 2691, 37, 49, "Text"], Cell[243586, 5297, 3977, 72, 132, "Input"], Cell[247566, 5371, 1261, 37, 132, "Input"], Cell[248830, 5410, 310, 4, 31, "Input"], Cell[CellGroupData[{ Cell[249165, 5418, 5784, 92, 112, "Input"], Cell[254952, 5512, 89, 2, 31, "Output"] }, Open ]], Cell[255056, 5517, 3073, 58, 92, "Input"], Cell[CellGroupData[{ Cell[258154, 5579, 939, 17, 72, "Input"], Cell[259096, 5598, 1496, 36, 92, "Output"], Cell[260595, 5636, 73, 1, 31, "Output"], Cell[260671, 5639, 72, 1, 31, "Output"] }, Open ]], Cell[CellGroupData[{ Cell[260780, 5645, 862, 21, 72, "Input"], Cell[261645, 5668, 7243, 224, 243, "Output"] }, Open ]], Cell[268903, 5895, 3143, 85, 152, "Input"], Cell[272049, 5982, 10201, 233, 192, "Input"], Cell[282253, 6217, 6267, 98, 72, "Input"], Cell[288523, 6317, 10215, 234, 192, "Input"], Cell[298741, 6553, 5925, 93, 52, "Input"], Cell[304669, 6648, 13128, 236, 152, "Input"], Cell[CellGroupData[{ Cell[317822, 6888, 13461, 234, 232, "Input"], Cell[331286, 7124, 98692, 1698, 375, 12438, 282, "CachedBoxData", "BoxData", \ "Output"] }, Open ]], Cell[CellGroupData[{ Cell[430015, 8827, 12166, 189, 252, "Input"], Cell[442184, 9018, 7484, 164, 375, "Output"], Cell[449671, 9184, 9689, 211, 375, "Output"], Cell[459363, 9397, 76680, 1314, 375, 9019, 203, "CachedBoxData", "BoxData", \ "Output"], Cell[536046, 10713, 54609, 953, 370, 8802, 200, "CachedBoxData", "BoxData", \ "Output"] }, Open ]], Cell[590670, 11669, 9727, 131, 31, "Input"], Cell[CellGroupData[{ Cell[600422, 11804, 4992, 106, 152, "Input"], Cell[605417, 11912, 71, 1, 31, "Output"] }, Open ]], Cell[CellGroupData[{ Cell[605525, 11918, 2499, 47, 92, "Input"], Cell[608027, 11967, 71, 1, 31, "Output"] }, Open ]], Cell[608113, 11971, 1841, 29, 52, "Input"], Cell[CellGroupData[{ Cell[609979, 12004, 5577, 123, 212, "Input"], Cell[615559, 12129, 71, 1, 31, "Output"] }, Open ]], Cell[CellGroupData[{ Cell[615667, 12135, 6767, 131, 112, "Input"], Cell[622437, 12268, 1407, 45, 72, "Output"], Cell[623847, 12315, 631, 11, 52, "Output"] }, Open ]], Cell[CellGroupData[{ Cell[624515, 12331, 4670, 80, 92, "Input"], Cell[629188, 12413, 71, 1, 31, "Output"] }, Open ]], Cell[CellGroupData[{ Cell[629296, 12419, 2695, 47, 112, "Input"], Cell[631994, 12468, 90, 2, 31, "Output"], Cell[632087, 12472, 73, 1, 31, "Output"], Cell[632163, 12475, 75, 1, 31, "Output"], Cell[632241, 12478, 73, 1, 31, "Output"] }, Open ]], Cell[632329, 12482, 2066, 30, 31, "Input"], Cell[CellGroupData[{ Cell[634420, 12516, 2963, 56, 112, "Input"], Cell[637386, 12574, 89, 1, 31, "Output"] }, Open ]], Cell[637490, 12578, 2888, 68, 92, "Input"], Cell[CellGroupData[{ Cell[640403, 12650, 4449, 89, 132, "Input"], Cell[644855, 12741, 89, 1, 31, "Output"] }, Open ]], Cell[CellGroupData[{ Cell[644981, 12747, 499, 15, 52, "Input"], Cell[645483, 12764, 105, 2, 31, "Output"] }, Open ]], Cell[645603, 12769, 1381, 21, 31, "Input"], Cell[CellGroupData[{ Cell[647009, 12794, 1709, 32, 52, "Input"], Cell[648721, 12828, 105, 2, 31, "Output"] }, Open ]], Cell[CellGroupData[{ Cell[648863, 12835, 1415, 43, 72, "Input"], Cell[650281, 12880, 105, 2, 31, "Output"] }, Open ]], Cell[CellGroupData[{ Cell[650423, 12887, 2550, 50, 92, "Input"], Cell[652976, 12939, 89, 1, 31, "Output"] }, Open ]], Cell[CellGroupData[{ Cell[653102, 12945, 5467, 117, 312, "Input"], Cell[658572, 13064, 89, 1, 31, "Output"], Cell[658664, 13067, 89, 1, 31, "Output"], Cell[658756, 13070, 107, 2, 31, "Output"], Cell[658866, 13074, 89, 1, 31, "Output"], Cell[658958, 13077, 90, 1, 31, "Output"], Cell[659051, 13080, 106, 2, 31, "Output"], Cell[659160, 13084, 90, 1, 31, "Output"], Cell[659253, 13087, 90, 1, 31, "Output"], Cell[659346, 13090, 107, 2, 63, "Output"] }, Open ]] } ] *) (* End of internal cache information *)