(* 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[ 877056, 17176] NotebookOptionsPosition[ 867080, 16872] NotebookOutlinePosition[ 867579, 16892] CellTagsIndexPosition[ 867536, 16889] WindowFrame->Normal*) (* Beginning of Notebook Content *) Notebook[{ Cell[BoxData[ RowBox[{ RowBox[{"(*", " ", RowBox[{ RowBox[{ "Kimball", " ", "model", " ", "and", " ", "energy", " ", "derived", " ", "from", " ", "Wolfram", " ", "source"}], ",", " ", RowBox[{"ES", " ", "02", " ", "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}, { 3.5764687348229947`*^9, 3.576468735977397*^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}, {3.5764204629591084`*^9, 3.576420463161908*^9}, { 3.5764205228788133`*^9, 3.576420522894413*^9}, {3.576420642297023*^9, 3.5764206425154233`*^9}}], Cell[BoxData[ Graphics3DBox[ {AbsoluteThickness[3], EdgeForm[None], Specularity[ GrayLevel[1], 100], GraphicsComplex3DBox[CompressedData[" 1:eJwlVGlIlFEUHSzaMCkVyzLLiEaTCi2UMZebueSSOqNOOemos+iU2zg6ZlOU LUNFi5ZF61RmmkVFmoiF2U3LokykBIkWMZEwjSBziWh5790H3495c++5555z vs9DU6DQ20kkklXsmcKe2otPl9wLjYX2Mc/UcpMarcPyZvfjRrj8/UZHTHwy KprdrcPvjHg3st/iHJwFF86z47oDh5b7zLgdGIbs9m6krRB7q41Bs57nwxp+ 7qtQ6bCywSZNBoH3rAQ38sJ56bCYX+RnIIeVd8vh7SbNnC0PAkD0b46i/koT 7GKw/SoDSNkYt1mRONi99P2vv2txoIYRlijxaO6X3zf7w6jOTofXWXvvaDje 2i+PspVNhKSWt415XtLjq6rwptEgb2T/VhutGpo76YtiD5keX3ey46aHQl5Q sQ3m+gU+UiidYV1f/PGz43LgbUF7inDv9pbiynPBxDM+m/qtJsjip1YNi1S6 dX3SJBC86leA0MVVix+XTdt3xikUOU1LUi4KnX3TkcPnK/xB6OqejQfwZVV4 RATo+GBpLIj6YhUaTn7bHVKTQLqp9TjC5LRWagjvYAoK3oZtKHj4hQJfO/Vf GiQweMfqMPDiQuiM5Nu+bBA6tWtpblMpyBpflLRKlSB0uJ0CR9ZnDHY3xJEP AzoU/T1mwjlcTDxaM6i+JQ3H2TpteSUgdHUuBOamrLFuA93X7Ebhj8WXdDYW YbS9nfehDl8I5sLKNLTPwhw4l+94AC2bSG8HDeXJpwhi/Rmj2dEo5pbkoOi7 oweRyxgz1nXE+B954oQcvjMsj3LWtxN5PN0sQYRzyET58M6FNwXp07vyopBt fWVBeSKIeg8z/vzTUzqkTqQ8fdIi/7ncQwYfuH/VwcjhVG6R5HdgJmzeWv94 pGs1iDnX4oDH3DocDWw7l3dKBZyeP1Xp8CeC6o+ZKDe9WnAURvuQ/ieKSMdj OrhnYk5fTSJfy4pB6Lc+D9jbaTKkhGOZyJ8DvuHvi6sajSLQ04i/twGFbi7J ONOwNLf0pSflp0KPkslE9sr0hFieewWcGggkX3MyMfVhlL3drgDi8UNL+szT YRw3cCSWdJvQ42eeY3Mh7bFdCw029mHoTaMc2cyUs2wVmCvZwl+V8B+kbgY1 "], { {RGBColor[0.65, 0.7, 0.7], SphereBox[15, 24.], SphereBox[16, 24.], SphereBox[17, 24.], SphereBox[18, 24.], SphereBox[19, 24.], SphereBox[20, 24.], SphereBox[21, 24.], SphereBox[22, 24.], SphereBox[23, 24.], SphereBox[24, 24.], SphereBox[25, 24.], SphereBox[26, 24.]}, {RGBColor[0.4, 0.4, 0.4], SphereBox[8, 34.], SphereBox[9, 34.], SphereBox[10, 34.], SphereBox[11, 34.], SphereBox[12, 34.], SphereBox[13, 34.], SphereBox[14, 34.]}, {RGBColor[0.291989, 0.437977, 0.888609], SphereBox[6, 32.], SphereBox[7, 32.]}, {RGBColor[0.800498, 0.201504, 0.192061], SphereBox[1, 31.], SphereBox[2, 31.], SphereBox[3, 31.], SphereBox[4, 31.], SphereBox[5, 31.]}, {RGBColor[0.65, 0.7, 0.7], CylinderBox[{28, 23}, 15.], CylinderBox[{31, 26}, 15.], CylinderBox[{36, 20}, 15.], CylinderBox[{38, 24}, 15.], CylinderBox[{39, 25}, 15.], CylinderBox[{40, 15}, 15.], CylinderBox[{41, 16}, 15.], CylinderBox[{42, 17}, 15.], CylinderBox[{43, 18}, 15.], CylinderBox[{44, 19}, 15.], CylinderBox[{45, 21}, 15.], CylinderBox[{46, 22}, 15.]}, {RGBColor[0.4, 0.4, 0.4], CylinderBox[{27, 11}, 15.], CylinderBox[{29, 11}, 15.], CylinderBox[{30, 13}, 15.], CylinderBox[{32, 12}, 15.], CylinderBox[{33, 13}, 15.], CylinderBox[{8, 34}, 15.], CylinderBox[{35, 12}, 15.], CylinderBox[{37, 14}, 15.], CylinderBox[{8, 9}, 15.], CylinderBox[{8, 11}, 15.], CylinderBox[{8, 40}, 15.], CylinderBox[{9, 10}, 15.], CylinderBox[{9, 41}, 15.], CylinderBox[{9, 42}, 15.], CylinderBox[{10, 13}, 15.], CylinderBox[{10, 43}, 15.], CylinderBox[{10, 44}, 15.], CylinderBox[{12, 14}, 15.], CylinderBox[{14, 45}, 15.], CylinderBox[{14, 46}, 15.]}, {RGBColor[0.291989, 0.437977, 0.888609], CylinderBox[{34, 6}, 15.], CylinderBox[{6, 35}, 15.], CylinderBox[{6, 36}, 15.], CylinderBox[{7, 37}, 15.], CylinderBox[{7, 38}, 15.], CylinderBox[{7, 39}, 15.]}, {RGBColor[0.800498, 0.201504, 0.192061], CylinderBox[{1, 27}, 15.], CylinderBox[{1, 28}, 15.], CylinderBox[{2, 29}, 15.], CylinderBox[{3, 30}, 15.], CylinderBox[{3, 31}, 15.], CylinderBox[{4, 32}, 15.], CylinderBox[{5, 33}, 15.]}}]}, Boxed->False, ImageSize->314.4387395313564, Lighting->"Neutral", ViewPoint->{1.3, -2.4, -2.}, ViewVertical->{0.26046771245085615`, -0.3787934058658252, 1.186742727473451}]], "Output", CellChangeTimes->{ 3.576421193243191*^9, 3.5764227389719057`*^9, 3.5764229252206326`*^9, 3.576423137880206*^9, 3.5764238273078175`*^9, 3.576423996989315*^9, 3.5764240577358217`*^9, 3.5764240900902786`*^9, 3.576424679053713*^9, 3.5764250606147833`*^9, 3.5764253666873207`*^9, 3.5764254511614695`*^9, 3.5764254883207345`*^9, {3.576426723434104*^9, 3.576426750609352*^9}, 3.5764269193236485`*^9, 3.576426964594928*^9, 3.576427000911792*^9, 3.5764282681800175`*^9, 3.576466463443405*^9, 3.5764666508309345`*^9, 3.5764674058410606`*^9, 3.576467494012416*^9, 3.576468216137684*^9, { 3.5764686059199686`*^9, 3.576468634530419*^9}, 3.576468771405059*^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, 3.576420463364709*^9, { 3.576420522910013*^9, 3.576420522910013*^9}, 3.5764206427182236`*^9}], Cell[BoxData[ RowBox[{"{", RowBox[{"\<\"O\"\>", ",", "\<\"O\"\>", ",", "\<\"O\"\>", ",", "\<\"O\"\>", ",", "\<\"O\"\>", ",", "\<\"N\"\>", ",", "\<\"N\"\>", ",", "\<\"C\"\>", ",", "\<\"C\"\>", ",", "\<\"C\"\>", ",", "\<\"C\"\>", ",", "\<\"C\"\>", ",", "\<\"C\"\>", ",", "\<\"C\"\>", ",", "\<\"H\"\>", ",", "\<\"H\"\>", ",", "\<\"H\"\>", ",", "\<\"H\"\>", ",", "\<\"H\"\>", ",", "\<\"H\"\>", ",", "\<\"H\"\>", ",", "\<\"H\"\>", ",", "\<\"H\"\>", ",", "\<\"H\"\>", ",", "\<\"H\"\>", ",", "\<\"H\"\>"}], "}"}]], "Output", CellChangeTimes->{ 3.576421193289991*^9, 3.576422738987506*^9, 3.5764229252362328`*^9, 3.5764231378958063`*^9, 3.576423827323417*^9, 3.576423997004915*^9, 3.576424057751422*^9, 3.576424090105879*^9, 3.576424679069313*^9, 3.5764250606303835`*^9, 3.576425366702921*^9, 3.5764254511614695`*^9, 3.5764254883519344`*^9, {3.576426723449704*^9, 3.5764267506249523`*^9}, 3.576426919339248*^9, 3.5764269646105275`*^9, 3.5764270009273915`*^9, 3.576428268195617*^9, 3.576466463490206*^9, 3.5764666508309345`*^9, 3.576467405856661*^9, 3.5764674940280156`*^9, 3.576468216153284*^9, { 3.5764686059355683`*^9, 3.5764686345460186`*^9}, 3.5764687714362593`*^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["26"], "Output", CellChangeTimes->{ 3.5764211933055906`*^9, 3.5764227390031056`*^9, 3.576422925251833*^9, 3.5764231379114065`*^9, 3.576423827339017*^9, 3.5764239970205154`*^9, 3.576424057751422*^9, 3.576424090121479*^9, 3.5764246790849133`*^9, 3.5764250606303835`*^9, 3.576425366718521*^9, 3.576425451177069*^9, 3.5764254883675346`*^9, {3.5764267234653044`*^9, 3.576426750640552*^9}, 3.576426919339248*^9, 3.5764269646261272`*^9, 3.5764270009429913`*^9, 3.5764282682112174`*^9, 3.576466463490206*^9, 3.5764666508465347`*^9, 3.576467405872261*^9, 3.5764674940436153`*^9, 3.5764682161688843`*^9, { 3.576468605951168*^9, 3.5764686345460186`*^9}, 3.5764687714518595`*^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\"\>", "1.06809203246`", RowBox[{"-", "2.3014972954`"}], "5.0043723932`"}, {"2", "\<\"O\"\>", RowBox[{"-", "1.61078354514`"}], RowBox[{"-", "5.0950792412`"}], "3.3625784444`"}, {"3", "\<\"O\"\>", RowBox[{"-", "6.984427296`"}], RowBox[{"-", "0.7648477012399999`"}], RowBox[{"-", "5.3258147858`"}]}, {"4", "\<\"O\"\>", "4.6528833571999995`", RowBox[{"-", "2.018227368`"}], "1.59906724394`"}, {"5", "\<\"O\"\>", RowBox[{"-", "6.8846497632`"}], "2.3502522262`", RowBox[{"-", "2.4842337996`"}]}, {"6", "\<\"N\"\>", "1.3465242613`", "0.50501037624`", "0.9577131367999999`"}, {"7", "\<\"N\"\>", "5.616265672`", "3.6819421383999997`", RowBox[{"-", "0.87076684354`"}]}, {"8", "\<\"C\"\>", RowBox[{"-", "0.39676687095999996`"}], RowBox[{"-", "1.6629966745199998`"}], "0.7892062693799999`"}, {"9", "\<\"C\"\>", RowBox[{"-", "3.0252623534`"}], RowBox[{"-", "0.8296842003`"}], "0.027758185214`"}, {"10", "\<\"C\"\>", RowBox[{"-", "3.2669583087999996`"}], RowBox[{"-", "0.25739957846`"}], RowBox[{"-", "2.8000070141999998`"}]}, {"11", "\<\"C\"\>", RowBox[{"-", "0.35848102219999994`"}], RowBox[{"-", "3.208754748`"}], "3.191747214`"}, {"12", "\<\"C\"\>", "3.8648676152`", "0.09607933901799999`", "1.3578248227799998`"}, {"13", "\<\"C\"\>", RowBox[{"-", "5.893866421399999`"}], "0.57818056696`", RowBox[{"-", "3.5237720722`"}]}, {"14", "\<\"C\"\>", "5.600203001000001`", "2.316804076`", "1.52355379298`"}, {"15", "\<\"H\"\>", "0.25222172921999997`", RowBox[{"-", "2.8873123553999998`"}], RowBox[{"-", "0.68319264078`"}]}, {"16", "\<\"H\"\>", RowBox[{"-", "4.282875006399999`"}], RowBox[{"-", "2.3581890754`"}], "0.44072189772`"}, {"17", "\<\"H\"\>", RowBox[{"-", "3.4948592643999996`"}], "0.84185403574`", "1.06408581334`"}, {"18", "\<\"H\"\>", RowBox[{"-", "1.9997080531999998`"}], "1.2582173653199997`", RowBox[{"-", "3.2306755696`"}]}, {"19", "\<\"H\"\>", RowBox[{"-", "2.8083218086`"}], RowBox[{"-", "1.9288433281999997`"}], RowBox[{"-", "3.8412460402`"}]}, {"20", "\<\"H\"\>", "0.6883326954999999`", "2.2674822274`", "0.77996550924`"}, {"21", "\<\"H\"\>", "4.9569402706`", "3.553629743`", "2.9880347512`"}, {"22", "\<\"H\"\>", "7.4715986588`", "1.6746940784599997`", "1.940748602`"}, {"23", "\<\"H\"\>", "1.1602350722199999`", RowBox[{"-", "3.157732146`"}], "6.6010018906`"}, {"24", "\<\"H\"\>", "6.2088837456`", "2.5314769496`", RowBox[{"-", "2.247829077`"}]}, {"25", "\<\"H\"\>", "6.7814707236`", "5.1640542402`", RowBox[{"-", "0.74300246868`"}]}, {"26", "\<\"H\"\>", RowBox[{"-", "8.6617480936`"}], RowBox[{"-", "0.3492213648`"}], RowBox[{"-", "5.877992723`"}]} }, 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.576421193321191*^9, 3.5764227390187054`*^9, 3.5764229252674327`*^9, 3.5764231379270067`*^9, 3.576423827354617*^9, 3.576423997036115*^9, 3.576424057767022*^9, 3.576424090137079*^9, 3.5764246791005135`*^9, 3.5764250606459837`*^9, 3.5764253667341213`*^9, 3.5764254511926694`*^9, 3.5764254883675346`*^9, {3.5764267234653044`*^9, 3.576426750656152*^9}, 3.576426919354848*^9, 3.5764269646261272`*^9, 3.5764270009585915`*^9, 3.576428268226817*^9, 3.5764664635214057`*^9, 3.576466650862135*^9, 3.576467405887861*^9, 3.5764674940592155`*^9, 3.576468216184484*^9, { 3.5764686059667683`*^9, 3.576468634561619*^9}, 3.5764687714518595`*^9}] }, Open ]], Cell[CellGroupData[{ Cell[BoxData[{ RowBox[{ RowBox[{"num1", "=", RowBox[{"Table", "[", RowBox[{"i", ",", RowBox[{"{", RowBox[{"i", ",", "1", ",", "n"}], "}"}]}], "]"}]}], ";"}], "\[IndentingNewLine]", RowBox[{ RowBox[{"dc1", "=", RowBox[{"Table", "[", RowBox[{ RowBox[{"Norm", "[", RowBox[{ RowBox[{"t1", "[", RowBox[{"[", "i", "]"}], "]"}], "-", RowBox[{"t1", "[", RowBox[{"[", "j", "]"}], "]"}]}], "]"}], ",", RowBox[{"{", RowBox[{"i", ",", "1", ",", "n"}], "}"}], ",", RowBox[{"{", RowBox[{"j", ",", "1", ",", "n"}], "}"}]}], "]"}]}], ";"}], "\[IndentingNewLine]", RowBox[{"MatrixForm", "[", RowBox[{"Prepend", "[", RowBox[{"dc1", ",", "num1"}], "]"}], "]"}]}], "Input", CellChangeTimes->{{3.576392526232239*^9, 3.5763925665895095`*^9}, { 3.5763926566016674`*^9, 3.576392657366069*^9}, 3.5763929792570343`*^9, 3.576421025683296*^9, {3.5764210623901606`*^9, 3.5764210642777643`*^9}}], Cell[BoxData[ TagBox[ RowBox[{"(", "\[NoBreak]", GridBox[{ {"1", "2", "3", "4", "5", "6", "7", "8", "9", "10", "11", "12", "13", "14", "15", "16", "17", "18", "19", "20", "21", "22", "23", "24", "25", "26"}, {"0.`", "4.204278989134492`", "13.187764278437417`", "4.952481585354662`", "11.87283026034592`", "4.932490340024883`", "9.539637936758462`", "4.5078953072573364`", "6.609725628970938`", "9.158566201775631`", "2.478676422175762`", "5.183400096602019`", "11.379396211002218`", "7.347437343446571`", "5.775570937317249`", "7.032991401514762`", "6.799047025864785`", "9.48150730532529`", "9.664906658407899`", "6.234212424598848`", "7.312405263771522`", "8.136386525303823`", "1.814071170358538`", "10.11829064887411`", "11.018596716553441`", "14.727764280778464`"}, {"4.204278989134492`", "0.`", "11.095725720898397`", "7.197951949494509`", "10.836597204013787`", "6.774219536824024`", "12.132087908181475`", "4.458169083924814`", "5.596013877308412`", "8.007716210107638`", "2.270608951776616`", "7.807042981699425`", "9.89709549379374`", "10.503159188783641`", "4.9712460156390135`", "4.813303048465588`", "6.639276046812615`", "9.164422433329628`", "7.959537358046898`", "8.134072561745668`", "10.866252628727903`", "11.416702562419921`", "4.681799265446297`", "12.27958584095899`", "13.875717860140211`", "12.55497604722573`"}, {"13.187764278437417`", "11.095725720898397`", "0.`", "13.599704075969653`", "4.21762796072884`", "10.511898807594866`", "14.085412855843641`", "9.033129245125236`", "6.658823797811058`", "4.522917660889008`", "11.064569946316226`", "12.771821869107672`", "2.4980804414652984`", "14.655488641335557`", "8.855951993083872`", "6.564302463357011`", "7.4558302814421`", "5.773198985686806`", "4.582432456882125`", "10.263860077699213`", "15.17779960735189`", "16.362487401665692`", "14.639343465153296`", "13.942855104594502`", "15.673353031536836`", "1.8141253495650416`"}, {"4.952481585354662`", "7.197951949494509`", "13.599704075969653`", "0.`", "12.995061826764951`", "4.208333907349009`", "6.2865028677190615`", "5.126502810928898`", "7.926888959278154`", "9.229098593446489`", "5.3914522971718055`", "2.269242068786018`", "12.009111029385652`", "4.43797413346157`", "5.032876082390842`", "9.016934924698921`", "8.65170391281067`", "8.849772777262107`", "9.234423677865431`", "5.895413160846158`", "5.750415029214122`", "4.65827982324419`", "6.206159310806988`", "6.157885829596935`", "7.848652356593302`", "15.361361185082751`"}, {"11.87283026034592`", "10.836597204013787`", "4.21762796072884`", "12.995061826764951`", "0.`", "9.110660899157681`", "12.674760761394053`", "8.301457766426`", "5.59615676936182`", "4.47071047112695`", "10.281546451869847`", "11.635928571954821`", "2.280905393932456`", "13.112399807424357`", "9.033867759797667`", "6.12323584447138`", "5.1338598346967395`", "5.06086662178284`", "6.063710957679091`", "8.24693344948962`", "13.100270801346282`", "15.03790932342741`", "13.3266489188413`", "13.096921368753321`", "14.061017654547715`", "4.686452365550517`"}, {"4.932490340024883`", "6.774219536824024`", "10.511898807594866`", "4.208333907349009`", "9.110660899157681`", "0.`", "5.627337396511039`", "2.787061733856846`", "4.66462689066282`", "5.998829143830787`", "4.657252695836368`", "2.5825118010560026`", "8.515416654129423`", "4.657956083868978`", "3.9240187713890453`", "6.336823112280976`", "4.854253108376096`", "5.41361168046823`", "6.7982644036321735`", "1.8897400304075747`", "5.143091449847427`", "6.312769207248911`", "6.730311612767917`", "6.16640960462094`", "7.357837069757239`", "12.149983621345335`"}, {"9.539637936758462`", "12.132087908181475`", "14.085412855843641`", "6.2865028677190615`", "12.674760761394053`", "5.627337396511039`", "0.`", "8.214648015111297`", "9.78969489111497`", "9.907171598965162`", "9.984153549891278`", "4.570823556487985`", "12.212899469133513`", "2.7561986955367384`", "8.483115943209036`", "11.670311648329122`", "9.737676973559779`", "8.333466670834689`", "10.548854650068977`", "5.386105973819757`", "3.916825730526255`", "3.9212146544854045`", "11.066376147562055`", "1.8897266274834141`", "1.889625050124902`", "15.658360938748626`"}, {"4.5078953072573364`", "4.458169083924814`", "9.033129245125236`", "5.126502810928898`", "8.301457766426`", "2.787061733856846`", "8.214648015111297`", "0.`", "2.8606295401149406`", "4.805845823716099`", "2.8571028715325317`", "4.6453421805399495`", "7.3377626746927245`", "7.234758319698934`", "2.021903469568369`", "3.963151558023679`", "3.9934962529929168`", "5.22133717544084`", "5.2275577712564285`", "4.077522637486871`", "7.791676201564136`", "8.624233613270194`", "6.199633660435009`", "8.393557812194977`", "10.02414000167202`", "10.69988142826894`"}, {"6.609725628970938`", "5.596013877308412`", "6.658823797811058`", "7.926888959278154`", "5.59615676936182`", "4.66462689066282`", "9.78969489111497`", "2.8606295401149406`", "0.`", "2.8951999320026536`", "4.773104431462672`", "7.078135798025956`", "4.777482566285863`", "9.30249673760008`", "3.934613909072813`", "2.0219930182957855`", "2.0220129292815403`", "4.003559054752212`", "4.027953287303044`", "4.89377603966558`", "9.575606362170832`", "10.959723263261914`", "8.133002443608774`", "10.086880382022214`", "11.51915735295965`", "8.177940439110884`"}, {"9.158566201775631`", "8.007716210107638`", "4.522917660889008`", "9.229098593446489`", "4.47071047112695`", "5.998829143830787`", "9.907171598965162`", "4.805845823716099`", "2.8951999320026536`", "0.`", "7.284974687299274`", "8.262896219845942`", "2.8500309245068807`", "10.195403484023192`", "4.876676372882274`", "3.993460545375414`", "4.023867633725199`", "2.022002308406599`", "2.021942223983179`", "5.902165562812069`", "10.754435355298758`", "11.896400945581517`", "10.788463220654245`", "9.893144869202615`", "11.601480734256823`", "6.211777852290449`"}, {"2.478676422175762`", "2.270608951776616`", "11.064569946316226`", "5.3914522971718055`", "10.281546451869847`", "4.657252695836368`", "9.984153549891278`", "2.8571028715325317`", "4.773104431462672`", "7.284974687299274`", "0.`", "5.667616200199394`", "9.491025754927223`", "8.295817313306605`", "3.935916912298177`", "4.867491181034035`", "5.547183342284233`", "7.993433582620675`", "7.556645236800927`", "6.074675412046153`", "8.60378093000798`", "9.312530149142527`", "3.7325754287467734`", "10.279568578548512`", "11.686106980110422`", "12.624632974999454`"}, {"5.183400096602019`", "7.807042981699425`", "12.771821869107672`", "2.269242068786018`", "11.635928571954821`", "2.5825118010560026`", "4.570823556487985`", "4.6453421805399495`", "7.078135798025956`", "8.262896219845942`", "5.667616200199394`", "0.`", "10.922238773994865`", "2.823202676078528`", "5.110537015458103`", "8.55863429835629`", "7.403245386061733`", "7.5364546315517496`", "8.698396790927454`", "3.890923538954743`", "3.9755329066010314`", "3.9799916392916708`", "6.737449972882548`", "4.942298370819251`", "6.213245416003009`", "14.473128528020244`"}, {"11.379396211002218`", "9.89709549379374`", "2.4980804414652984`", "12.009111029385652`", "2.280905393932456`", "8.515416654129423`", "12.212899469133513`", "7.3377626746927245`", "4.777482566285863`", "2.8500309245068807`", "9.491025754927223`", "10.922238773994865`", "0.`", "12.673276686889317`", "7.606111506961042`", "5.18987210375257`", "5.18393663304127`", "3.963940590319455`", "3.988300902494693`", "8.043708254554208`", "12.999881990680834`", "14.480987013657144`", "12.89296084997317`", "12.32558148284506`", "13.763251384545487`", "3.7501464194063177`"}, {"7.347437343446571`", "10.503159188783641`", "14.655488641335557`", "4.43797413346157`", "13.112399807424357`", "4.657956083868978`", "2.7561986955367384`", "7.234758319698934`", "9.30249673760008`", "10.195403484023192`", "8.295817313306605`", "2.823202676078528`", "12.673276686889317`", "0.`", "7.781610459139519`", "10.9865061224842`", "9.225331758645886`", "9.026735328334242`", "10.840197812057541`", "4.968080723832634`", "2.0219369792010404`", "2.0219986314651015`", "8.687021425011565`", "3.826212937551316`", "3.8261605059463553`", "16.287843058673257`"}, {"5.775570937317249`", "4.9712460156390135`", "8.855951993083872`", "5.032876082390842`", "9.033867759797667`", "3.9240187713890453`", "8.483115943209036`", "2.021903469568369`", "3.934613909072813`", "4.876676372882274`", "3.935916912298177`", "5.110537015458103`", "7.606111506961042`", "7.781610459139519`", "0.`", "4.702154584519825`", "5.56778950228799`", "5.36155515526534`", "4.500987768988235`", "5.376144690923398`", "8.78054794600943`", "8.934000984972737`", "7.3455500178816076`", "8.203242473980264`", "10.366251670824377`", "10.624815846542631`"}, {"7.032991401514762`", "4.813303048465588`", "6.564302463357011`", "9.016934924698921`", "6.12323584447138`", "6.336823112280976`", "11.670311648329122`", "3.963151558023679`", "2.0219930182957855`", "3.993460545375414`", "4.867491181034035`", "8.55863429835629`", "5.18987210375257`", "10.9865061224842`", "4.702154584519825`", "0.`", "3.354076220674104`", "5.636524305253139`", "4.549054223149664`", "6.798884264710971`", "11.26110966415723`", "12.517263190974344`", "8.259283627554916`", "11.883355666219696`", "13.431496354005654`", "7.945856482100502`"}, {"6.799047025864785`", "6.639276046812615`", "7.4558302814421`", "8.65170391281067`", "5.1338598346967395`", "4.854253108376096`", "9.737676973559779`", "3.9934962529929168`", "2.0220129292815403`", "4.023867633725199`", "5.547183342284233`", "7.403245386061733`", "5.18393663304127`", "9.225331758645886`", "5.56778950228799`", "3.354076220674104`", "0.`", "4.566597300284367`", "5.675418764647643`", "4.428570317995372`", "9.082302702608205`", "11.032921624080135`", "8.265835260553976`", "10.391642518679154`", "11.293800984996865`", "8.735436748543018`"}, {"9.48150730532529`", "9.164422433329628`", "5.773198985686806`", "8.849772777262107`", "5.06086662178284`", "5.41361168046823`", "8.333466670834689`", "5.22133717544084`", "4.003559054752212`", "2.022002308406599`", "7.993433582620675`", "7.5364546315517496`", "3.963940590319455`", "9.026735328334242`", "5.36155515526534`", "5.636524305253139`", "4.566597300284367`", "0.`", "3.3442500458504867`", "4.932486238377143`", "9.609174363006446`", "10.799200509666115`", "11.231550753294096`", "8.364697036731432`", "9.927395421777861`", "7.346762884540953`"}, {"9.664906658407899`", "7.959537358046898`", "4.582432456882125`", "9.234423677865431`", "6.063710957679091`", "6.7982644036321735`", "10.548854650068977`", "5.2275577712564285`", "4.027953287303044`", "2.021942223983179`", "7.556645236800927`", "8.698396790927454`", "3.988300902494693`", "10.840197812057541`", "4.500987768988235`", "4.549054223149664`", "5.675418764647643`", "3.3442500458504867`", "0.`", "7.154812162055836`", "11.704524008385803`", "12.332627809988299`", "11.238334097681673`", "10.185451909751608`", "12.32365327144993`", "6.395790949607513`"}, {"6.234212424598848`", "8.134072561745668`", "10.263860077699213`", "5.895413160846158`", "8.24693344948962`", "1.8897400304075747`", "5.386105973819757`", "4.077522637486871`", "4.89377603966558`", "5.902165562812069`", "6.074675412046153`", "3.890923538954743`", "8.043708254554208`", "4.968080723832634`", "5.376144690923398`", "6.798884264710971`", "4.428570317995372`", "4.932486238377143`", "7.154812162055836`", "0.`", "4.9750131496685475`", "6.907352047407563`", "7.971204890329734`", "6.301882033692309`", "6.916349609193013`", "11.772831276901137`"}, {"7.312405263771522`", "10.866252628727903`", "15.17779960735189`", "5.750415029214122`", "13.100270801346282`", "5.143091449847427`", "3.916825730526255`", "7.791676201564136`", "9.575606362170832`", "10.754435355298758`", "8.60378093000798`", "3.9755329066010314`", "12.999881990680834`", "2.0219369792010404`", "8.78054794600943`", "11.26110966415723`", "9.082302702608205`", "9.609174363006446`", "11.704524008385803`", "4.9750131496685475`", "0.`", "3.3091863530377315`", "8.515332073319959`", "5.479637654544655`", "4.454550164857967`", "16.712491217772453`"}, {"8.136386525303823`", "11.416702562419921`", "16.362487401665692`", "4.65827982324419`", "15.03790932342741`", "6.312769207248911`", "3.9212146544854045`", "8.624233613270194`", "10.959723263261914`", "11.896400945581517`", "9.312530149142527`", "3.9799916392916708`", "14.480987013657144`", "2.0219986314651015`", "8.934000984972737`", "12.517263190974344`", "11.032921624080135`", "10.799200509666115`", "12.332627809988299`", "6.907352047407563`", "3.3091863530377315`", "0.`", "9.214315723414506`", "4.4578816508868435`", "4.455831091351832`", "18.042001747641663`"}, {"1.814071170358538`", "4.681799265446297`", "14.639343465153296`", "6.206159310806988`", "13.3266489188413`", "6.730311612767917`", "11.066376147562055`", "6.199633660435009`", "8.133002443608774`", "10.788463220654245`", "3.7325754287467734`", "6.737449972882548`", "12.89296084997317`", "8.687021425011565`", "7.3455500178816076`", "8.259283627554916`", "8.265835260553976`", "11.231550753294096`", "11.238334097681673`", "7.971204890329734`", "8.515332073319959`", "9.214315723414506`", "0.`", "11.668665864349538`", "12.441254717069851`", "16.127132190319085`"}, {"10.11829064887411`", "12.27958584095899`", "13.942855104594502`", "6.157885829596935`", "13.096921368753321`", "6.16640960462094`", "1.8897266274834141`", "8.393557812194977`", "10.086880382022214`", "9.893144869202615`", "10.279568578548512`", "4.942298370819251`", "12.32558148284506`", "3.826212937551316`", "8.203242473980264`", "11.883355666219696`", "10.391642518679154`", "8.364697036731432`", "10.185451909751608`", "6.301882033692309`", "5.479637654544655`", "4.4578816508868435`", "11.668665864349538`", "0.`", "3.0859070237882866`", "15.576013680411164`"}, {"11.018596716553441`", "13.875717860140211`", "15.673353031536836`", "7.848652356593302`", "14.061017654547715`", "7.357837069757239`", "1.889625050124902`", "10.02414000167202`", "11.51915735295965`", "11.601480734256823`", "11.686106980110422`", "6.213245416003009`", "13.763251384545487`", "3.8261605059463553`", "10.366251670824377`", "13.431496354005654`", "11.293800984996865`", "9.927395421777861`", "12.32365327144993`", "6.916349609193013`", "4.454550164857967`", "4.455831091351832`", "12.441254717069851`", "3.0859070237882866`", "0.`", "17.18305386840679`"}, {"14.727764280778464`", "12.55497604722573`", "1.8141253495650416`", "15.361361185082751`", "4.686452365550517`", "12.149983621345335`", "15.658360938748626`", "10.69988142826894`", "8.177940439110884`", "6.211777852290449`", "12.624632974999454`", "14.473128528020244`", "3.7501464194063177`", "16.287843058673257`", "10.624815846542631`", "7.945856482100502`", "8.735436748543018`", "7.346762884540953`", "6.395790949607513`", "11.772831276901137`", "16.712491217772453`", "18.042001747641663`", "16.127132190319085`", "15.576013680411164`", "17.18305386840679`", "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.576421193336791*^9, 3.5764227390343056`*^9, 3.576422925283033*^9, 3.5764231379426064`*^9, 3.5764238273702173`*^9, 3.576423997051715*^9, 3.5764240577826223`*^9, 3.5764240901526785`*^9, 3.576424679116113*^9, 3.5764250606615834`*^9, 3.5764253667653213`*^9, 3.576425451208269*^9, 3.576425488398735*^9, {3.576426723480904*^9, 3.576426750671752*^9}, 3.576426919370448*^9, 3.5764269646573277`*^9, 3.5764270009741917`*^9, 3.5764282682424173`*^9, 3.5764664635370054`*^9, 3.5764666508777347`*^9, 3.5764674059034605`*^9, 3.5764674940748158`*^9, 3.5764682162000837`*^9, { 3.5764686059823685`*^9, 3.576468634577219*^9}, 3.576468771483059*^9}] }, Open ]], Cell[CellGroupData[{ Cell[BoxData[ RowBox[{"cn1", "=", 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.5763930603303766`*^9, 3.576393117754078*^9}, { 3.5763931548197427`*^9, 3.5763931792961855`*^9}, {3.576393334953259*^9, 3.576393350256886*^9}, {3.5764097379708014`*^9, 3.5764097926644974`*^9}, 3.576421088489007*^9, {3.5764211267246737`*^9, 3.5764211567079268`*^9}}], Cell[BoxData[ RowBox[{"{", RowBox[{ "8.`", ",", "8.`", ",", "8.`", ",", "8.`", ",", "8.`", ",", "7.`", ",", "7.`", ",", "6.`", ",", "6.`", ",", "6.`", ",", "6.`", ",", "6.`", ",", "6.`", ",", "6.`", ",", "1.`", ",", "1.`", ",", "1.`", ",", "1.`", ",", "1.`", ",", "1.`", ",", "1.`", ",", "1.`", ",", "1.`", ",", "1.`", ",", "1.`", ",", "1.`"}], "}"}]], "Output", CellChangeTimes->{ 3.5764211933679905`*^9, 3.576422739065506*^9, 3.5764229252986326`*^9, 3.576423137958206*^9, 3.5764238273858175`*^9, 3.576423997067315*^9, 3.576424057798222*^9, 3.5764240901682787`*^9, 3.576424679131713*^9, 3.5764250606771836`*^9, 3.576425366780921*^9, 3.5764254512394695`*^9, 3.576425488414335*^9, {3.5764267234965043`*^9, 3.576426750702952*^9}, 3.5764269193860483`*^9, 3.576426964672928*^9, 3.576427000989792*^9, 3.5764282682580175`*^9, 3.5764664635526056`*^9, 3.5764666508933344`*^9, 3.5764674059190607`*^9, 3.576467494090416*^9, 3.576468216215684*^9, { 3.5764686059979687`*^9, 3.5764686345928187`*^9}, 3.576468771498659*^9}] }, Open ]], Cell[CellGroupData[{ Cell[BoxData[{ RowBox[{ RowBox[{"Vn", "=", "0.0"}], ";"}], "\[IndentingNewLine]", RowBox[{"For", "[", RowBox[{ RowBox[{"i", "=", "1"}], ",", RowBox[{"i", "<", "n"}], ",", RowBox[{"i", "++"}], ",", "\[IndentingNewLine]", RowBox[{"For", "[", RowBox[{ RowBox[{"j", "=", RowBox[{"i", "+", "1"}]}], ",", RowBox[{"j", "\[LessEqual]", "n"}], ",", RowBox[{"j", "++"}], ",", RowBox[{"Vn", "=", RowBox[{"Vn", "+", RowBox[{ RowBox[{"cn1", "[", RowBox[{"[", "i", "]"}], "]"}], "*", RowBox[{ RowBox[{"cn1", "[", RowBox[{"[", "j", "]"}], "]"}], "/", RowBox[{"dc1", "[", RowBox[{"[", RowBox[{"i", ",", "j"}], "]"}], "]"}]}]}]}]}]}], "]"}]}], "]"}], "\[IndentingNewLine]", "Vn"}], "Input", CellChangeTimes->{{3.5763930603303766`*^9, 3.576393117754078*^9}, { 3.5763931548197427`*^9, 3.5763931792961855`*^9}, {3.576393334953259*^9, 3.576393350256886*^9}, {3.5764097379708014`*^9, 3.5764097926644974`*^9}, 3.576421088489007*^9, {3.5764211267246737`*^9, 3.576421150280715*^9}}], Cell[BoxData["931.8967118509483`"], "Output", CellChangeTimes->{ 3.5764211933835907`*^9, 3.5764227390811057`*^9, 3.576422925314233*^9, 3.5764231379738064`*^9, 3.5764238274014173`*^9, 3.5764239970829153`*^9, 3.576424057813822*^9, 3.576424090183879*^9, 3.576424679147313*^9, 3.5764250606771836`*^9, 3.576425366780921*^9, 3.5764254512394695`*^9, 3.5764254884299345`*^9, {3.576426723512104*^9, 3.576426750718552*^9}, 3.5764269194016485`*^9, 3.576426964688528*^9, 3.5764270010053916`*^9, 3.5764282682736177`*^9, 3.576466463568206*^9, 3.5764666509089346`*^9, 3.5764674059190607`*^9, 3.5764674941060157`*^9, 3.576468216231284*^9, { 3.576468606013569*^9, 3.5764686346084185`*^9}, 3.5764687715142593`*^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\"\>", ",", "\<\"O\"\>", ",", "\<\"O\"\>", ",", "\<\"N\"\>", ",", "\<\"N\"\>", ",", "\<\"C\"\>", ",", "\<\"C\"\>", ",", "\<\"C\"\>", ",", "\<\"C\"\>", ",", "\<\"C\"\>", ",", "\<\"C\"\>", ",", "\<\"C\"\>", ",", "\<\"Z\"\>", ",", "\<\"Z\"\>", ",", "\<\"Z\"\>", ",", "\<\"Z\"\>", ",", "\<\"Z\"\>", ",", "\<\"Z\"\>", ",", "\<\"Z\"\>", ",", "\<\"Z\"\>", ",", "\<\"Z\"\>", ",", "\<\"Z\"\>", ",", "\<\"Z\"\>", ",", "\<\"Z\"\>"}], "}"}]], "Output", CellChangeTimes->{ 3.5764211933835907`*^9, 3.576422739096706*^9, 3.576422925329833*^9, 3.5764231379894066`*^9, 3.5764238274170175`*^9, 3.5764239970985155`*^9, 3.576424057829422*^9, 3.576424090199479*^9, 3.5764246791629133`*^9, 3.5764250606927834`*^9, 3.576425366796521*^9, 3.5764254512550697`*^9, 3.5764254884455347`*^9, {3.576426723512104*^9, 3.576426750734152*^9}, 3.5764269194172487`*^9, 3.5764269647041283`*^9, 3.5764270010209913`*^9, 3.576428268289218*^9, 3.5764664635838056`*^9, 3.5764666509089346`*^9, 3.576467405934661*^9, 3.5764674941216154`*^9, 3.5764682162468843`*^9, { 3.576468606013569*^9, 3.5764686346084185`*^9}, 3.5764687715298595`*^9}] }, Open ]], 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\"\>", ",", "8"}], "}"}], ",", RowBox[{"{", RowBox[{"\<\"C\"\>", ",", "9"}], "}"}], ",", RowBox[{"{", RowBox[{"\<\"C\"\>", ",", "10"}], "}"}], ",", RowBox[{"{", RowBox[{"\<\"C\"\>", ",", "11"}], "}"}], ",", RowBox[{"{", RowBox[{"\<\"C\"\>", ",", "12"}], "}"}], ",", RowBox[{"{", RowBox[{"\<\"C\"\>", ",", "13"}], "}"}], ",", RowBox[{"{", RowBox[{"\<\"C\"\>", ",", "14"}], "}"}], ",", RowBox[{"{", RowBox[{"\<\"N\"\>", ",", "6"}], "}"}], ",", RowBox[{"{", RowBox[{"\<\"N\"\>", ",", "7"}], "}"}], ",", RowBox[{"{", RowBox[{"\<\"O\"\>", ",", "1"}], "}"}], ",", RowBox[{"{", RowBox[{"\<\"O\"\>", ",", "2"}], "}"}], ",", RowBox[{"{", RowBox[{"\<\"O\"\>", ",", "3"}], "}"}], ",", RowBox[{"{", RowBox[{"\<\"O\"\>", ",", "4"}], "}"}], ",", RowBox[{"{", RowBox[{"\<\"O\"\>", ",", "5"}], "}"}], ",", RowBox[{"{", RowBox[{"\<\"Z\"\>", ",", "15"}], "}"}], ",", RowBox[{"{", RowBox[{"\<\"Z\"\>", ",", "16"}], "}"}], ",", RowBox[{"{", RowBox[{"\<\"Z\"\>", ",", "17"}], "}"}], ",", RowBox[{"{", RowBox[{"\<\"Z\"\>", ",", "18"}], "}"}], ",", RowBox[{"{", RowBox[{"\<\"Z\"\>", ",", "19"}], "}"}], ",", RowBox[{"{", RowBox[{"\<\"Z\"\>", ",", "20"}], "}"}], ",", RowBox[{"{", RowBox[{"\<\"Z\"\>", ",", "21"}], "}"}], ",", RowBox[{"{", RowBox[{"\<\"Z\"\>", ",", "22"}], "}"}], ",", RowBox[{"{", RowBox[{"\<\"Z\"\>", ",", "23"}], "}"}], ",", RowBox[{"{", RowBox[{"\<\"Z\"\>", ",", "24"}], "}"}], ",", RowBox[{"{", RowBox[{"\<\"Z\"\>", ",", "25"}], "}"}], ",", RowBox[{"{", RowBox[{"\<\"Z\"\>", ",", "26"}], "}"}]}], "}"}]], "Output", CellChangeTimes->{ 3.576421193399191*^9, 3.576422739112306*^9, 3.576422925345433*^9, 3.5764231380050063`*^9, 3.576423827432617*^9, 3.5764239971141157`*^9, 3.576424057845022*^9, 3.576424090215079*^9, 3.5764246791785135`*^9, 3.5764250607083836`*^9, 3.5764253668121214`*^9, 3.57642545127067*^9, 3.576425488461135*^9, {3.5764267235277042`*^9, 3.576426750749752*^9}, 3.5764269194328485`*^9, 3.576426964719728*^9, 3.5764270010365915`*^9, 3.5764282683048177`*^9, 3.5764664635994053`*^9, 3.576466650924535*^9, 3.576467405950261*^9, 3.5764674941372156`*^9, 3.576468216262484*^9, { 3.5764686060291686`*^9, 3.5764686346240187`*^9}, 3.5764687715454593`*^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[{ "8", ",", "9", ",", "10", ",", "11", ",", "12", ",", "13", ",", "14", ",", "6", ",", "7", ",", "1", ",", "2", ",", "3", ",", "4", ",", "5", ",", "15", ",", "16", ",", "17", ",", "18", ",", "19", ",", "20", ",", "21", ",", "22", ",", "23", ",", "24", ",", "25", ",", "26"}], "}"}]], "Output", CellChangeTimes->{ 3.576421193414791*^9, 3.576422739112306*^9, 3.576422925361033*^9, 3.5764231380206065`*^9, 3.5764238274482174`*^9, 3.5764239971141157`*^9, 3.576424057860622*^9, 3.576424090215079*^9, 3.5764246791785135`*^9, 3.5764250607083836`*^9, 3.576425366827721*^9, 3.5764254512862697`*^9, 3.576425488476735*^9, {3.5764267235433044`*^9, 3.5764267507653522`*^9}, 3.576426919448448*^9, 3.5764269647353277`*^9, 3.5764270010521917`*^9, 3.5764282683204174`*^9, 3.5764664636150055`*^9, 3.576466650940135*^9, 3.576467405950261*^9, 3.5764674941372156`*^9, 3.576468216278084*^9, { 3.576468606044769*^9, 3.576468634639619*^9}, 3.5764687715610595`*^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.255`", ",", "0.255`", ",", "0.255`", ",", "0.24`", ",", "0.24`", ",", "0.178`", ",", "0.178`", ",", "0.178`", ",", "0.178`", ",", "0.178`", ",", "0.12`", ",", "0.12`", ",", "0.12`", ",", "0.12`", ",", "0.12`", ",", "0.12`", ",", "0.12`", ",", "0.12`", ",", "0.12`", ",", "0.12`", ",", "0.12`", ",", "0.12`"}], "}"}]], "Output", CellChangeTimes->{ 3.5764211934303913`*^9, 3.576422739143506*^9, 3.5764229253766327`*^9, 3.5764231380518064`*^9, 3.5764238274482174`*^9, 3.5764239971297154`*^9, 3.5764240578762217`*^9, 3.576424090230679*^9, 3.5764246791941137`*^9, 3.576425060723984*^9, 3.576425366843321*^9, 3.5764254513018694`*^9, 3.576425488492335*^9, {3.5764267235433044`*^9, 3.576426750780952*^9}, 3.5764269194640484`*^9, 3.576426964750928*^9, 3.576427001067792*^9, 3.5764282683360176`*^9, 3.5764664636306057`*^9, 3.5764666509557347`*^9, 3.576467405965861*^9, 3.576467494152816*^9, 3.576468216293684*^9, { 3.5764686060603685`*^9, 3.576468634655219*^9}, 3.576468771576659*^9}], Cell[BoxData[ RowBox[{"{", RowBox[{ "0.2572`", ",", "0.2572`", ",", "0.2572`", ",", "0.2572`", ",", "0.2572`", ",", "0.2572`", ",", "0.2572`", ",", "0.22522`", ",", "0.22522`", ",", "0.1786`", ",", "0.1786`", ",", "0.1786`", ",", "0.1786`", ",", "0.1786`", ",", "0.6`", ",", "0.6`", ",", "0.6`", ",", "0.6`", ",", "0.6`", ",", "0.6`", ",", "0.6`", ",", "0.6`", ",", "0.6`", ",", "0.6`", ",", "0.6`", ",", "0.6`"}], "}"}]], "Output", CellChangeTimes->{ 3.5764211934303913`*^9, 3.576422739143506*^9, 3.5764229253766327`*^9, 3.5764231380518064`*^9, 3.5764238274482174`*^9, 3.5764239971297154`*^9, 3.5764240578762217`*^9, 3.576424090230679*^9, 3.5764246791941137`*^9, 3.576425060723984*^9, 3.576425366843321*^9, 3.5764254513018694`*^9, 3.576425488492335*^9, {3.5764267235433044`*^9, 3.576426750780952*^9}, 3.5764269194640484`*^9, 3.576426964750928*^9, 3.576427001067792*^9, 3.5764282683360176`*^9, 3.5764664636306057`*^9, 3.5764666509557347`*^9, 3.576467405965861*^9, 3.576467494152816*^9, 3.576468216293684*^9, { 3.5764686060603685`*^9, 3.576468634655219*^9}, 3.576468771576659*^9}] }, Open ]], Cell[CellGroupData[{ Cell[BoxData[ RowBox[{"u", "=", RowBox[{"Table", "[", RowBox[{ RowBox[{"us", "[", RowBox[{"[", RowBox[{"i", ",", "1"}], "]"}], "]"}], ",", RowBox[{"{", RowBox[{"i", ",", "1", ",", "n"}], "}"}]}], "]"}]}]], "Input", CellChangeTimes->{{3.5679472243083935`*^9, 3.567947394894693*^9}, { 3.567947453425996*^9, 3.567947471241227*^9}, {3.5679475415037503`*^9, 3.5679475448733563`*^9}, {3.5679488138107853`*^9, 3.567948820877598*^9}, { 3.568820296244224*^9, 3.5688203477867146`*^9}}], Cell[BoxData[ RowBox[{"{", RowBox[{"\<\"C\"\>", ",", "\<\"C\"\>", ",", "\<\"C\"\>", ",", "\<\"C\"\>", ",", "\<\"C\"\>", ",", "\<\"C\"\>", ",", "\<\"C\"\>", ",", "\<\"N\"\>", ",", "\<\"N\"\>", ",", "\<\"O\"\>", ",", "\<\"O\"\>", ",", "\<\"O\"\>", ",", "\<\"O\"\>", ",", "\<\"O\"\>", ",", "\<\"H\"\>", ",", "\<\"H\"\>", ",", "\<\"H\"\>", ",", "\<\"H\"\>", ",", "\<\"H\"\>", ",", "\<\"H\"\>", ",", "\<\"H\"\>", ",", "\<\"H\"\>", ",", "\<\"H\"\>", ",", "\<\"H\"\>", ",", "\<\"H\"\>", ",", "\<\"H\"\>"}], "}"}]], "Output", CellChangeTimes->{ 3.576421193445991*^9, 3.5764227391591063`*^9, 3.576422925392233*^9, 3.5764231380674067`*^9, 3.5764238274638176`*^9, 3.5764239971453156`*^9, 3.576424057891822*^9, 3.576424090246279*^9, 3.576424679209714*^9, 3.5764250607395835`*^9, 3.576425366858921*^9, 3.5764254513174696`*^9, 3.5764254885079346`*^9, {3.5764267235589046`*^9, 3.576426750796552*^9}, 3.5764269194640484`*^9, 3.576426964750928*^9, 3.576427001067792*^9, 3.576428268351618*^9, 3.576466463646206*^9, 3.5764666509713345`*^9, 3.5764674059814606`*^9, 3.576467494168416*^9, 3.576468216309284*^9, { 3.5764686061851687`*^9, 3.576468634670819*^9}, 3.5764687715922594`*^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.`", ",", "6.`", ",", "6.`", ",", "6.`", ",", "7.`", ",", "7.`", ",", "8.`", ",", "8.`", ",", "8.`", ",", "8.`", ",", "8.`", ",", "1.`", ",", "1.`", ",", "1.`", ",", "1.`", ",", "1.`", ",", "1.`", ",", "1.`", ",", "1.`", ",", "1.`", ",", "1.`", ",", "1.`", ",", "1.`"}], "}"}]], "Output", CellChangeTimes->{ 3.5764211934615912`*^9, 3.576422739174706*^9, 3.576422925407833*^9, 3.5764231380674067`*^9, 3.576423827479418*^9, 3.5764239971609154`*^9, 3.576424057891822*^9, 3.576424090261879*^9, 3.5764246792253137`*^9, 3.5764250607551837`*^9, 3.5764253668745213`*^9, 3.57642545133307*^9, 3.576425488523535*^9, {3.5764267235745044`*^9, 3.576426750812152*^9}, 3.5764269194796486`*^9, 3.576426964766528*^9, 3.576427001083392*^9, 3.5764282683672175`*^9, 3.576466463661806*^9, 3.5764666509869347`*^9, 3.5764674059814606`*^9, 3.5764674941840158`*^9, 3.5764682163248844`*^9, { 3.5764686062007685`*^9, 3.576468634670819*^9}, 3.5764687716078596`*^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["14"], "Output", CellChangeTimes->{ 3.5764211934615912`*^9, 3.576422739174706*^9, 3.5764229254234333`*^9, 3.576423138083007*^9, 3.5764238274950175`*^9, 3.5764239971765156`*^9, 3.576424057907422*^9, 3.576424090277479*^9, 3.5764246792409134`*^9, 3.5764250607551837`*^9, 3.5764253668901215`*^9, 3.5764254513486695`*^9, 3.576425488539135*^9, {3.5764267235745044`*^9, 3.576426750827752*^9}, 3.5764269194952483`*^9, 3.5764269647821283`*^9, 3.576427001098992*^9, 3.5764282683828173`*^9, 3.576466463677406*^9, 3.5764666509869347`*^9, 3.576467405997061*^9, 3.5764674941996155`*^9, 3.576468216340484*^9, { 3.5764686062163687`*^9, 3.576468634686419*^9}, 3.57646877162346*^9}], Cell[BoxData["12"], "Output", CellChangeTimes->{ 3.5764211934615912`*^9, 3.576422739174706*^9, 3.5764229254234333`*^9, 3.576423138083007*^9, 3.5764238274950175`*^9, 3.5764239971765156`*^9, 3.576424057907422*^9, 3.576424090277479*^9, 3.5764246792409134`*^9, 3.5764250607551837`*^9, 3.5764253668901215`*^9, 3.5764254513486695`*^9, 3.576425488539135*^9, {3.5764267235745044`*^9, 3.576426750827752*^9}, 3.5764269194952483`*^9, 3.5764269647821283`*^9, 3.576427001098992*^9, 3.5764282683828173`*^9, 3.576466463677406*^9, 3.5764666509869347`*^9, 3.576467405997061*^9, 3.5764674941996155`*^9, 3.576468216340484*^9, { 3.5764686062163687`*^9, 3.576468634686419*^9}, 3.57646877162346*^9}] }, Open ]], Cell[BoxData[""], "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}, 3.5764095447020617`*^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, 3.576420463583109*^9, {3.576420522910013*^9, 3.576420522910013*^9}, 3.576420642936624*^9}], Cell[BoxData["\<\"C7H12N2O5\"\>"], "Output", CellChangeTimes->{ 3.576421193477191*^9, 3.5764227391903057`*^9, 3.5764229254390335`*^9, 3.576423138114207*^9, 3.5764238275106173`*^9, 3.576423997192116*^9, 3.5764240579230223`*^9, 3.5764240902930794`*^9, 3.5764246792565136`*^9, 3.5764250607707834`*^9, 3.576425366905721*^9, 3.5764254513642693`*^9, 3.576425488554735*^9, {3.576426723590104*^9, 3.5764267508589525`*^9}, 3.576426919510848*^9, 3.576426964797728*^9, 3.5764270011145916`*^9, 3.5764282683984175`*^9, 3.5764664636930056`*^9, 3.576466651002535*^9, 3.576467406012661*^9, 3.5764674942152157`*^9, 3.576468216356084*^9, { 3.576468606231969*^9, 3.5764686347020187`*^9}, 3.5764687716390595`*^9}] }, Open ]], Cell[BoxData[{ RowBox[{ RowBox[{"t", "=", RowBox[{"Table", "[", RowBox[{ RowBox[{"t1", "[", RowBox[{"[", RowBox[{"num", "[", RowBox[{"[", "i", "]"}], "]"}], "]"}], "]"}], ",", RowBox[{"{", RowBox[{"i", ",", "1", ",", "n"}], "}"}]}], "]"}]}], ";"}], "\[IndentingNewLine]", 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[{"t", ",", RowBox[{"{", "i", "}"}]}], "]"}]}]}], "}"}], ">>>", " ", "\"\\""}]}], "]"}], "\[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, {3.576409556464483*^9, 3.5764095653564987`*^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}, 3.5764204637859097`*^9, {3.576420522910013*^9, 3.576420522910013*^9}, 3.5764206431394243`*^9}], Cell[BoxData[ GraphicsBox[{{ {GrayLevel[0], AbsoluteThickness[0.55], InsetBox[ StyleBox["\<\"O\"\>", StripOnInput->False, ScriptSizeMultipliers->0.8, ScriptMinSize->8, FontSize->Scaled[0.044209351111910516`], FontWeight->Plain], {253.69000000000003`, 106.}], LineBox[{{272.1430106192158, 116.65293304423032`}, {296.995, 131.}}], {GrayLevel[0], InsetBox[ StyleBox["\<\"C\"\>", StripOnInput->False, ScriptSizeMultipliers->0.8, ScriptMinSize->8, FontSize->Scaled[0.044209351111910516`], FontWeight->Plain], {340.3, 156.}], LineBox[{{296.995, 131.}, {323.246545182628, 146.15503127966053`}}]}}, {GrayLevel[0], AbsoluteThickness[0.55], InsetBox[ StyleBox["\<\"O\"\>", StripOnInput->False, ScriptSizeMultipliers->0.8, ScriptMinSize->8, FontSize->Scaled[0.044209351111910516`], FontWeight->Plain], {253.69000000000003`, 106.}], LineBox[{{235.2376938789542, 116.6541532827793}, {226.84500000000003`, 121.5}}], {GrayLevel[0], InsetBox[ StyleBox["\<\"H\"\>", StripOnInput->False, ScriptSizeMultipliers->0.8, ScriptMinSize->8, FontSize->Scaled[0.044209351111910516`], FontWeight->Plain], {200., 137.}], LineBox[{{226.84500000000003`, 121.5}, {217.0528037513776, 127.1539035892586}}]}}, {GrayLevel[0], AbsoluteThickness[0.55], InsetBox[ StyleBox["\<\"O\"\>", StripOnInput->False, ScriptSizeMultipliers->0.8, ScriptMinSize->8, FontSize->Scaled[0.044209351111910516`], FontWeight->Plain], {340.3, 256.}], LineBox[{{{345.3, 234.69275749052113`}, {345.3, 206.}}, {{335.3, 234.69275749052113`}, {335.3, 206.}}}], {GrayLevel[0], InsetBox[ StyleBox["\<\"C\"\>", StripOnInput->False, ScriptSizeMultipliers->0.8, ScriptMinSize->8, FontSize->Scaled[0.044209351111910516`], FontWeight->Plain], {340.3, 156.}], LineBox[{{{345.3, 206.}, {345.3, 175.691209467999}}, {{335.3, 206.}, { 335.3, 175.691209467999}}}]}}, {GrayLevel[0], AbsoluteThickness[0.55], InsetBox[ StyleBox["\<\"O\"\>", StripOnInput->False, ScriptSizeMultipliers->0.8, ScriptMinSize->8, FontSize->Scaled[0.044209351111910516`], FontWeight->Plain], {253.69000000000003`, -194.}], LineBox[{{272.1430106192158, -183.3470669557697}, {296.995, -169.}}], {GrayLevel[0], InsetBox[ StyleBox["\<\"C\"\>", StripOnInput->False, ScriptSizeMultipliers->0.8, ScriptMinSize->8, FontSize->Scaled[0.044209351111910516`], FontWeight->Plain], {340.3, -144.}], LineBox[{{296.995, -169.}, {323.246545182628, -153.84496872033947`}}]}}, {GrayLevel[0], AbsoluteThickness[0.55], InsetBox[ StyleBox["\<\"O\"\>", StripOnInput->False, ScriptSizeMultipliers->0.8, ScriptMinSize->8, FontSize->Scaled[0.044209351111910516`], FontWeight->Plain], {253.69000000000003`, -194.}], LineBox[{{253.69000000000003`, -215.30724250947887`}, { 253.69000000000003`, -225.}}], {GrayLevel[0], InsetBox[ StyleBox["\<\"H\"\>", StripOnInput->False, ScriptSizeMultipliers->0.8, ScriptMinSize->8, FontSize->Scaled[0.044209351111910516`], FontWeight->Plain], {253.69000000000003`, -256.}], LineBox[{{253.69000000000003`, -225.}, { 253.69000000000003`, -236.308790532001}}]}}, {GrayLevel[0], AbsoluteThickness[0.55], InsetBox[ StyleBox["\<\"O\"\>", StripOnInput->False, ScriptSizeMultipliers->0.8, ScriptMinSize->8, FontSize->Scaled[0.044209351111910516`], FontWeight->Plain], {600.1, 6.}], LineBox[{{{595.1, 27.30724250947887}, {595.1, 56.}}, {{605.1, 27.30724250947887}, {605.1, 56.}}}], {GrayLevel[0], InsetBox[ StyleBox["\<\"C\"\>", StripOnInput->False, ScriptSizeMultipliers->0.8, ScriptMinSize->8, FontSize->Scaled[0.044209351111910516`], FontWeight->Plain], {600.1, 106.}], LineBox[{{{595.1, 56.}, {595.1, 86.30879053200101}}, {{605.1, 56.}, { 605.1, 86.30879053200101}}}]}}, {GrayLevel[0], AbsoluteThickness[0.55], InsetBox[ StyleBox["\<\"O\"\>", StripOnInput->False, ScriptSizeMultipliers->0.8, ScriptMinSize->8, FontSize->Scaled[0.044209351111910516`], FontWeight->Plain], {426.90000000000003`, -194.}], LineBox[{{{405.94752202781035`, -187.67614435785816`}, { 381.1, -173.33}}, {{410.94752202781035`, -179.01614435785814`}, { 386.1, -164.67}}}], {GrayLevel[0], InsetBox[ StyleBox["\<\"C\"\>", StripOnInput->False, ScriptSizeMultipliers->0.8, ScriptMinSize->8, FontSize->Scaled[0.044209351111910516`], FontWeight->Plain], {340.3, -144.}], LineBox[{{{381.1, -173.33}, { 354.85296256859056`, -158.17582134445183`}}, {{386.1, -164.67}, { 359.85296256859056`, -149.5158213444518}}}]}}, {GrayLevel[0], AbsoluteThickness[0.55], InsetBox[ StyleBox["\<\"N\"\>", StripOnInput->False, ScriptSizeMultipliers->0.8, ScriptMinSize->8, FontSize->Scaled[0.044209351111910516`], FontWeight->Plain], {513.5, 156.}], LineBox[{{530.5529625685905, 146.15417865554818`}, {556.8, 131.}}], {GrayLevel[0], InsetBox[ StyleBox["\<\"C\"\>", StripOnInput->False, ScriptSizeMultipliers->0.8, ScriptMinSize->8, FontSize->Scaled[0.044209351111910516`], FontWeight->Plain], {600.1, 106.}], LineBox[{{556.8, 131.}, {583.0470374314095, 115.84582134445179`}}]}}, {GrayLevel[0], AbsoluteThickness[0.55], InsetBox[ StyleBox["\<\"N\"\>", StripOnInput->False, ScriptSizeMultipliers->0.8, ScriptMinSize->8, FontSize->Scaled[0.044209351111910516`], FontWeight->Plain], {513.5, 156.}], LineBox[{{513.5, 175.691209467999}, {513.5, 187.}}], {GrayLevel[0], InsetBox[ StyleBox["\<\"H\"\>", StripOnInput->False, ScriptSizeMultipliers->0.8, ScriptMinSize->8, FontSize->Scaled[0.044209351111910516`], FontWeight->Plain], {513.5, 218.00000000000003`}], LineBox[{{513.5, 187.}, {513.5, 198.30879053200104`}}]}}, {GrayLevel[0], AbsoluteThickness[0.55], InsetBox[ StyleBox["\<\"N\"\>", StripOnInput->False, ScriptSizeMultipliers->0.8, ScriptMinSize->8, FontSize->Scaled[0.044209351111910516`], FontWeight->Plain], {773.3100000000001, 106.}], LineBox[{{756.2570374314096, 115.84582134445179`}, {730.01, 131.}}], {GrayLevel[0], InsetBox[ StyleBox["\<\"C\"\>", StripOnInput->False, ScriptSizeMultipliers->0.8, ScriptMinSize->8, FontSize->Scaled[0.044209351111910516`], FontWeight->Plain], {686.7099999999999, 156.}], LineBox[{{730.01, 131.}, {703.7629625685904, 146.1541786555482}}]}}, {GrayLevel[0], AbsoluteThickness[0.55], InsetBox[ StyleBox["\<\"N\"\>", StripOnInput->False, ScriptSizeMultipliers->0.8, ScriptMinSize->8, FontSize->Scaled[0.044209351111910516`], FontWeight->Plain], {773.3100000000001, 106.}], LineBox[{{773.3100000000001, 86.30879053200101}, {773.3100000000001, 75.}}], {GrayLevel[0], InsetBox[ StyleBox["\<\"H\"\>", StripOnInput->False, ScriptSizeMultipliers->0.8, ScriptMinSize->8, FontSize->Scaled[0.044209351111910516`], FontWeight->Plain], {773.3100000000001, 44.}], LineBox[{{773.3100000000001, 75.}, {773.3100000000001, 63.69120946799898}}]}}, {GrayLevel[0], AbsoluteThickness[0.55], InsetBox[ StyleBox["\<\"N\"\>", StripOnInput->False, ScriptSizeMultipliers->0.8, ScriptMinSize->8, FontSize->Scaled[0.044209351111910516`], FontWeight->Plain], {773.3100000000001, 106.}], LineBox[{{790.3628037513777, 115.84609641074142`}, {800.155, 121.5}}], {GrayLevel[0], InsetBox[ StyleBox["\<\"H\"\>", StripOnInput->False, ScriptSizeMultipliers->0.8, ScriptMinSize->8, FontSize->Scaled[0.044209351111910516`], FontWeight->Plain], {827., 137.}], LineBox[{{800.155, 121.5}, {809.9471962486224, 127.1539035892586}}]}}, {GrayLevel[0], AbsoluteThickness[0.55], InsetBox[ StyleBox["\<\"C\"\>", StripOnInput->False, ScriptSizeMultipliers->0.8, ScriptMinSize->8, FontSize->Scaled[0.044209351111910516`], FontWeight->Plain], {426.90000000000003`, 106.}], LineBox[{{443.9529625685906, 115.8458213444518}, {470.20000000000005`, 131.}}], {GrayLevel[0], InsetBox[ StyleBox["\<\"N\"\>", StripOnInput->False, ScriptSizeMultipliers->0.8, ScriptMinSize->8, FontSize->Scaled[0.044209351111910516`], FontWeight->Plain], {513.5, 156.}], LineBox[{{470.20000000000005`, 131.}, {496.44703743140946`, 146.15417865554818`}}]}}, {GrayLevel[0], AbsoluteThickness[0.55], InsetBox[ StyleBox["\<\"C\"\>", StripOnInput->False, ScriptSizeMultipliers->0.8, ScriptMinSize->8, FontSize->Scaled[0.044209351111910516`], FontWeight->Plain], {426.90000000000003`, 106.}], LineBox[{{426.90000000000003`, 86.30879053200101}, {426.90000000000003`, 56.}}], {GrayLevel[0], InsetBox[ StyleBox["\<\"C\"\>", StripOnInput->False, ScriptSizeMultipliers->0.8, ScriptMinSize->8, FontSize->Scaled[0.044209351111910516`], FontWeight->Plain], {426.90000000000003`, 6.}], LineBox[{{426.90000000000003`, 56.}, {426.90000000000003`, 25.69120946799898}}]}}, {GrayLevel[0], AbsoluteThickness[0.55], InsetBox[ StyleBox["\<\"C\"\>", StripOnInput->False, ScriptSizeMultipliers->0.8, ScriptMinSize->8, FontSize->Scaled[0.044209351111910516`], FontWeight->Plain], {426.90000000000003`, 106.}], LineBox[{{409.8470374314095, 115.8458213444518}, {383.6, 131.}}], {GrayLevel[0], InsetBox[ StyleBox["\<\"C\"\>", StripOnInput->False, ScriptSizeMultipliers->0.8, ScriptMinSize->8, FontSize->Scaled[0.044209351111910516`], FontWeight->Plain], {340.3, 156.}], LineBox[{{383.6, 131.}, {357.35296256859056`, 146.1541786555482}}]}}, {GrayLevel[0], AbsoluteThickness[0.55], InsetBox[ StyleBox["\<\"C\"\>", StripOnInput->False, ScriptSizeMultipliers->0.8, ScriptMinSize->8, FontSize->Scaled[0.044209351111910516`], FontWeight->Plain], {426.90000000000003`, 106.}], LineBox[{{426.90000000000003`, 125.69120946799899`}, { 426.90000000000003`, 137.}}], {GrayLevel[0], InsetBox[ StyleBox["\<\"H\"\>", StripOnInput->False, ScriptSizeMultipliers->0.8, ScriptMinSize->8, FontSize->Scaled[0.044209351111910516`], FontWeight->Plain], {426.90000000000003`, 168.}], LineBox[{{426.90000000000003`, 137.}, {426.90000000000003`, 148.308790532001}}]}}, {GrayLevel[0], AbsoluteThickness[0.55], InsetBox[ StyleBox["\<\"C\"\>", StripOnInput->False, ScriptSizeMultipliers->0.8, ScriptMinSize->8, FontSize->Scaled[0.044209351111910516`], FontWeight->Plain], {426.90000000000003`, 6.}], LineBox[{{409.8470374314095, -3.8458213444518066`}, {383.6, -19.}}], {GrayLevel[0], InsetBox[ StyleBox["\<\"C\"\>", StripOnInput->False, ScriptSizeMultipliers->0.8, ScriptMinSize->8, FontSize->Scaled[0.044209351111910516`], FontWeight->Plain], {340.3, -44.}], LineBox[{{383.6, -19.}, {357.35296256859056`, -34.15417865554819}}]}}, {GrayLevel[0], AbsoluteThickness[0.55], InsetBox[ StyleBox["\<\"C\"\>", StripOnInput->False, ScriptSizeMultipliers->0.8, ScriptMinSize->8, FontSize->Scaled[0.044209351111910516`], FontWeight->Plain], {426.90000000000003`, 6.}], LineBox[{{433.6334143710718, -12.504184965030383`}, {437.5, -23.13}}], {GrayLevel[0], InsetBox[ StyleBox["\<\"H\"\>", StripOnInput->False, ScriptSizeMultipliers->0.8, ScriptMinSize->8, FontSize->Scaled[0.044209351111910516`], FontWeight->Plain], {448.09999999999997`, -52.26}], LineBox[{{437.5, -23.13}, {441.3665856289282, -33.755815034969615`}}]}}, {GrayLevel[0], AbsoluteThickness[0.55], InsetBox[ StyleBox["\<\"C\"\>", StripOnInput->False, ScriptSizeMultipliers->0.8, ScriptMinSize->8, FontSize->Scaled[0.044209351111910516`], FontWeight->Plain], {426.90000000000003`, 6.}], LineBox[{{446.2918670154534, 9.4204128358407}, {457.43, 11.385}}], {GrayLevel[0], InsetBox[ StyleBox["\<\"H\"\>", StripOnInput->False, ScriptSizeMultipliers->0.8, ScriptMinSize->8, FontSize->Scaled[0.044209351111910516`], FontWeight->Plain], {487.96, 16.77}], LineBox[{{457.43, 11.385}, {468.5681329845466, 13.3495871641593}}]}}, {GrayLevel[0], AbsoluteThickness[0.55], InsetBox[ StyleBox["\<\"C\"\>", StripOnInput->False, ScriptSizeMultipliers->0.8, ScriptMinSize->8, FontSize->Scaled[0.044209351111910516`], FontWeight->Plain], {340.3, -44.}], LineBox[{{340.3, -63.69120946799898}, {340.3, -94.}}], {GrayLevel[0], InsetBox[ StyleBox["\<\"C\"\>", StripOnInput->False, ScriptSizeMultipliers->0.8, ScriptMinSize->8, FontSize->Scaled[0.044209351111910516`], FontWeight->Plain], {340.3, -144.}], LineBox[{{340.3, -94.}, {340.3, -124.30879053200101`}}]}}, {GrayLevel[0], AbsoluteThickness[0.55], InsetBox[ StyleBox["\<\"C\"\>", StripOnInput->False, ScriptSizeMultipliers->0.8, ScriptMinSize->8, FontSize->Scaled[0.044209351111910516`], FontWeight->Plain], {340.3, -44.}], LineBox[{{333.5637811080089, -25.496835801631246`}, { 329.69500000000005`, -14.870000000000001`}}], {GrayLevel[0], InsetBox[ StyleBox["\<\"H\"\>", StripOnInput->False, ScriptSizeMultipliers->0.8, ScriptMinSize->8, FontSize->Scaled[0.044209351111910516`], FontWeight->Plain], {319.09000000000003`, 14.26}], LineBox[{{329.69500000000005`, -14.870000000000001`}, { 325.8262188919911, -4.243164198368744}}]}}, {GrayLevel[0], AbsoluteThickness[0.55], InsetBox[ StyleBox["\<\"C\"\>", StripOnInput->False, ScriptSizeMultipliers->0.8, ScriptMinSize->8, FontSize->Scaled[0.044209351111910516`], FontWeight->Plain], {340.3, -44.}], LineBox[{{320.9081329845466, -47.42041283584069}, {309.77, -49.385}}], {GrayLevel[0], InsetBox[ StyleBox["\<\"H\"\>", StripOnInput->False, ScriptSizeMultipliers->0.8, ScriptMinSize->8, FontSize->Scaled[0.044209351111910516`], FontWeight->Plain], {279.24, -54.769999999999996`}], LineBox[{{309.77, -49.385}, { 298.6318670154534, -51.349587164159296`}}]}}, {GrayLevel[0], AbsoluteThickness[0.55], InsetBox[ StyleBox["\<\"C\"\>", StripOnInput->False, ScriptSizeMultipliers->0.8, ScriptMinSize->8, FontSize->Scaled[0.044209351111910516`], FontWeight->Plain], {600.1, 106.}], LineBox[{{617.1534548173721, 115.8449687203395}, {643.405, 131.}}], {GrayLevel[0], InsetBox[ StyleBox["\<\"C\"\>", StripOnInput->False, ScriptSizeMultipliers->0.8, ScriptMinSize->8, FontSize->Scaled[0.044209351111910516`], FontWeight->Plain], {686.7099999999999, 156.}], LineBox[{{643.405, 131.}, {669.6565451826278, 146.1550312796605}}]}}, {GrayLevel[0], AbsoluteThickness[0.55], InsetBox[ StyleBox["\<\"C\"\>", StripOnInput->False, ScriptSizeMultipliers->0.8, ScriptMinSize->8, FontSize->Scaled[0.044209351111910516`], FontWeight->Plain], {686.7099999999999, 156.}], LineBox[{{699.3674814022953, 171.08416039636148`}, {706.635, 179.745}}], {GrayLevel[0], InsetBox[ StyleBox["\<\"H\"\>", StripOnInput->False, ScriptSizeMultipliers->0.8, ScriptMinSize->8, FontSize->Scaled[0.044209351111910516`], FontWeight->Plain], {726.5600000000001, 203.48999999999998`}], LineBox[{{706.635, 179.745}, {713.9025185977047, 188.40583960363853`}}]}}, {GrayLevel[0], AbsoluteThickness[0.55], InsetBox[ StyleBox["\<\"C\"\>", StripOnInput->False, ScriptSizeMultipliers->0.8, ScriptMinSize->8, FontSize->Scaled[0.044209351111910516`], FontWeight->Plain], {686.7099999999999, 156.}], LineBox[{{674.0506550139031, 171.0825964222212}, {666.78, 179.745}}], {GrayLevel[0], InsetBox[ StyleBox["\<\"H\"\>", StripOnInput->False, ScriptSizeMultipliers->0.8, ScriptMinSize->8, FontSize->Scaled[0.044209351111910516`], FontWeight->Plain], {646.85, 203.48999999999998`}], LineBox[{{666.78, 179.745}, {659.5093449860968, 188.40740357777878`}}]}}}, {}, {}}, ImageSize->{{0., 226.19648894384886`}, {0., 191.75386286788034`}}, PlotRange->{{181.19, 845.81}, {-285.382418935998, 278.0368142019985}}]], "Output", CellChangeTimes->{ 3.576421193555191*^9, 3.576422739283906*^9, 3.576422925517033*^9, 3.576423138192207*^9, 3.5764238275886173`*^9, 3.576423997270116*^9, 3.5764240580010223`*^9, 3.5764240903710794`*^9, 3.5764246793345137`*^9, 3.5764250608487835`*^9, 3.5764253669837217`*^9, 3.57642545144227*^9, 3.5764254886327353`*^9, {3.576426723668104*^9, 3.5764267509369526`*^9}, 3.5764269195888486`*^9, 3.576426964875728*^9, 3.5764270011925917`*^9, 3.5764282684764175`*^9, 3.576466463786606*^9, 3.576466651080535*^9, 3.576467406090661*^9, 3.5764674942932158`*^9, 3.5764682164340844`*^9, { 3.576468606309969*^9, 3.5764686347800193`*^9}, 3.5764687717170596`*^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, {3.5763922487857513`*^9, 3.5763922538713603`*^9}, { 3.576392379716781*^9, 3.5763923872515945`*^9}, {3.5763924903833756`*^9, 3.5763924920213785`*^9}, 3.5763926851029177`*^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", "18", "19", "20", "21", "22", "23", "24", "25", "26"}, {"0.`", "2.8606295401149406`", "0", "2.8571028715325317`", "0", "0", "0", "2.787061733856846`", "0", "0", "0", "0", "0", "0", "2.021903469568369`", "0", "0", "0", "0", "0", "0", "0", "0", "0", "0", "0"}, {"2.8606295401149406`", "0.`", "2.8951999320026536`", "0", "0", "0", "0", "0", "0", "0", "0", "0", "0", "0", "0", "2.0219930182957855`", "2.0220129292815403`", "0", "0", "0", "0", "0", "0", "0", "0", "0"}, {"0", "2.8951999320026536`", "0.`", "0", "0", "2.8500309245068807`", "0", "0", "0", "0", "0", "0", "0", "0", "0", "0", "0", "2.022002308406599`", "2.021942223983179`", "0", "0", "0", "0", "0", "0", "0"}, {"2.8571028715325317`", "0", "0", "0.`", "0", "0", "0", "0", "0", "2.478676422175762`", "2.270608951776616`", "0", "0", "0", "0", "0", "0", "0", "0", "0", "0", "0", "0", "0", "0", "0"}, {"0", "0", "0", "0", "0.`", "0", "2.823202676078528`", "2.5825118010560026`", "0", "0", "0", "0", "2.269242068786018`", "0", "0", "0", "0", "0", "0", "0", "0", "0", "0", "0", "0", "0"}, {"0", "0", "2.8500309245068807`", "0", "0", "0.`", "0", "0", "0", "0", "0", "2.4980804414652984`", "0", "2.280905393932456`", "0", "0", "0", "0", "0", "0", "0", "0", "0", "0", "0", "0"}, {"0", "0", "0", "0", "2.823202676078528`", "0", "0.`", "0", "2.7561986955367384`", "0", "0", "0", "0", "0", "0", "0", "0", "0", "0", "0", "2.0219369792010404`", "2.0219986314651015`", "0", "0", "0", "0"}, {"2.787061733856846`", "0", "0", "0", "2.5825118010560026`", "0", "0", "0.`", "0", "0", "0", "0", "0", "0", "0", "0", "0", "0", "0", "1.8897400304075747`", "0", "0", "0", "0", "0", "0"}, {"0", "0", "0", "0", "0", "0", "2.7561986955367384`", "0", "0.`", "0", "0", "0", "0", "0", "0", "0", "0", "0", "0", "0", "0", "0", "0", "1.8897266274834141`", "1.889625050124902`", "0"}, {"0", "0", "0", "2.478676422175762`", "0", "0", "0", "0", "0", "0.`", "0", "0", "0", "0", "0", "0", "0", "0", "0", "0", "0", "0", "1.814071170358538`", "0", "0", "0"}, {"0", "0", "0", "2.270608951776616`", "0", "0", "0", "0", "0", "0", "0.`", "0", "0", "0", "0", "0", "0", "0", "0", "0", "0", "0", "0", "0", "0", "0"}, {"0", "0", "0", "0", "0", "2.4980804414652984`", "0", "0", "0", "0", "0", "0.`", "0", "0", "0", "0", "0", "0", "0", "0", "0", "0", "0", "0", "0", "1.8141253495650416`"}, {"0", "0", "0", "0", "2.269242068786018`", "0", "0", "0", "0", "0", "0", "0", "0.`", "0", "0", "0", "0", "0", "0", "0", "0", "0", "0", "0", "0", "0"}, {"0", "0", "0", "0", "0", "2.280905393932456`", "0", "0", "0", "0", "0", "0", "0", "0.`", "0", "0", "0", "0", "0", "0", "0", "0", "0", "0", "0", "0"}, {"2.021903469568369`", "0", "0", "0", "0", "0", "0", "0", "0", "0", "0", "0", "0", "0", "0.`", "0", "0", "0", "0", "0", "0", "0", "0", "0", "0", "0"}, {"0", "2.0219930182957855`", "0", "0", "0", "0", "0", "0", "0", "0", "0", "0", "0", "0", "0", "0.`", "0", "0", "0", "0", "0", "0", "0", "0", "0", "0"}, {"0", "2.0220129292815403`", "0", "0", "0", "0", "0", "0", "0", "0", "0", "0", "0", "0", "0", "0", "0.`", "0", "0", "0", "0", "0", "0", "0", "0", "0"}, {"0", "0", "2.022002308406599`", "0", "0", "0", "0", "0", "0", "0", "0", "0", "0", "0", "0", "0", "0", "0.`", "0", "0", "0", "0", "0", "0", "0", "0"}, {"0", "0", "2.021942223983179`", "0", "0", "0", "0", "0", "0", "0", "0", "0", "0", "0", "0", "0", "0", "0", "0.`", "0", "0", "0", "0", "0", "0", "0"}, {"0", "0", "0", "0", "0", "0", "0", "1.8897400304075747`", "0", "0", "0", "0", "0", "0", "0", "0", "0", "0", "0", "0.`", "0", "0", "0", "0", "0", "0"}, {"0", "0", "0", "0", "0", "0", "2.0219369792010404`", "0", "0", "0", "0", "0", "0", "0", "0", "0", "0", "0", "0", "0", "0.`", "0", "0", "0", "0", "0"}, {"0", "0", "0", "0", "0", "0", "2.0219986314651015`", "0", "0", "0", "0", "0", "0", "0", "0", "0", "0", "0", "0", "0", "0", "0.`", "0", "0", "0", "0"}, {"0", "0", "0", "0", "0", "0", "0", "0", "0", "1.814071170358538`", "0", "0", "0", "0", "0", "0", "0", "0", "0", "0", "0", "0", "0.`", "0", "0", "0"}, {"0", "0", "0", "0", "0", "0", "0", "0", "1.8897266274834141`", "0", "0", "0", "0", "0", "0", "0", "0", "0", "0", "0", "0", "0", "0", "0.`", "0", "0"}, {"0", "0", "0", "0", "0", "0", "0", "0", "1.889625050124902`", "0", "0", "0", "0", "0", "0", "0", "0", "0", "0", "0", "0", "0", "0", "0", "0.`", "0"}, {"0", "0", "0", "0", "0", "0", "0", "0", "0", "0", "0", "1.8141253495650416`", "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.5764211935863914`*^9, 3.576422739299506*^9, 3.576422925548233*^9, 3.576423138223407*^9, 3.5764238276198177`*^9, 3.5764239973013153`*^9, 3.5764240580322227`*^9, 3.576424090402279*^9, 3.5764246793657136`*^9, 3.576425060879984*^9, 3.5764253670149217`*^9, 3.5764254514734697`*^9, 3.5764254886483355`*^9, {3.5764267236993046`*^9, 3.576426750968152*^9}, 3.576426919604449*^9, 3.576426964906928*^9, 3.576427001223792*^9, 3.576428268507618*^9, 3.5764664638178062`*^9, 3.5764666511117353`*^9, 3.5764674061062613`*^9, 3.576467494324416*^9, 3.5764682164652843`*^9, { 3.576468606325569*^9, 3.576468634795619*^9}, 3.5764687717326593`*^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.2572`", ",", "0.2572`", ",", "0.2572`", ",", "0.22522`", ",", "0.22522`", ",", "0.1786`", ",", "0.1786`", ",", "0.1786`", ",", "0.1786`", ",", "0.1786`", ",", "0.59`", ",", "0.59`", ",", "0.59`", ",", "0.59`", ",", "0.59`", ",", "0.5541`", ",", "0.59`", ",", "0.59`", ",", "0.5241`", ",", "0.5541`", ",", "0.5541`", ",", "0.5241`"}], "}"}]], "Output", CellChangeTimes->{ 3.576421193601991*^9, 3.5764227393151064`*^9, 3.576422925563833*^9, 3.576423138239007*^9, 3.576423827635418*^9, 3.5764239973169155`*^9, 3.5764240580478225`*^9, 3.576424090417879*^9, 3.576424679381314*^9, 3.576425060895584*^9, 3.5764253670305214`*^9, 3.57642545148907*^9, 3.576425488679535*^9, {3.576426723714905*^9, 3.5764267509837523`*^9}, 3.5764269196200485`*^9, 3.5764269649225283`*^9, 3.5764270012393923`*^9, 3.576428268523218*^9, 3.576466463833406*^9, 3.576466651127335*^9, 3.5764674061218615`*^9, 3.576467494340016*^9, 3.5764682164808846`*^9, { 3.5764686063411694`*^9, 3.576468634811219*^9}, 3.5764687717482595`*^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.6034295401149405`", "0", "\<\" \"\>", "\<\" \"\>", "\<\" \"\>", "\<\" \"\>", "\<\" \"\>", "\ \<\" \"\>", "\<\" \"\>", "\<\" \"\>", "\<\" \"\>", "\<\" \"\>", "\<\" \"\>", \ "\<\" \"\>", "\<\" \"\>", "\<\" \"\>", "\<\" \"\>", "\<\" \"\>", "\<\" \"\>", \ "\<\" \"\>", "\<\" \"\>", "\<\" \"\>", "\<\" \"\>", "\<\" \"\>", "\<\" \"\>", \ "\<\" \"\>"}, {"0", "2.6379999320026535`", "0", "\<\" \"\>", "\<\" \"\>", "\<\" \"\>", "\<\" \"\>", "\<\" \"\>", "\ \<\" \"\>", "\<\" \"\>", "\<\" \"\>", "\<\" \"\>", "\<\" \"\>", "\<\" \"\>", \ "\<\" \"\>", "\<\" \"\>", "\<\" \"\>", "\<\" \"\>", "\<\" \"\>", "\<\" \"\>", \ "\<\" \"\>", "\<\" \"\>", "\<\" \"\>", "\<\" \"\>", "\<\" \"\>", "\<\" \"\>"}, {"2.5999028715325316`", "0", "0", "0", "\<\" \"\>", "\<\" \"\>", "\<\" \"\>", "\<\" \"\>", "\<\" \"\>", "\ \<\" \"\>", "\<\" \"\>", "\<\" \"\>", "\<\" \"\>", "\<\" \"\>", "\<\" \"\>", \ "\<\" \"\>", "\<\" \"\>", "\<\" \"\>", "\<\" \"\>", "\<\" \"\>", "\<\" \"\>", \ "\<\" \"\>", "\<\" \"\>", "\<\" \"\>", "\<\" \"\>", "\<\" \"\>"}, {"0", "0", "0", "0", "0", "\<\" \"\>", "\<\" \"\>", "\<\" \"\>", "\<\" \"\>", "\<\" \"\>", "\ \<\" \"\>", "\<\" \"\>", "\<\" \"\>", "\<\" \"\>", "\<\" \"\>", "\<\" \"\>", \ "\<\" \"\>", "\<\" \"\>", "\<\" \"\>", "\<\" \"\>", "\<\" \"\>", "\<\" \"\>", \ "\<\" \"\>", "\<\" \"\>", "\<\" \"\>", "\<\" \"\>"}, {"0", "0", "2.5928309245068806`", "0", "0", "0", "\<\" \"\>", "\<\" \"\>", "\<\" \"\>", "\<\" \"\>", "\<\" \"\>", "\ \<\" \"\>", "\<\" \"\>", "\<\" \"\>", "\<\" \"\>", "\<\" \"\>", "\<\" \"\>", \ "\<\" \"\>", "\<\" \"\>", "\<\" \"\>", "\<\" \"\>", "\<\" \"\>", "\<\" \"\>", \ "\<\" \"\>", "\<\" \"\>", "\<\" \"\>"}, {"0", "0", "0", "0", "2.566002676078528`", "0", "0", "\<\" \"\>", "\<\" \"\>", "\<\" \"\>", "\<\" \"\>", "\<\" \"\>", "\ \<\" \"\>", "\<\" \"\>", "\<\" \"\>", "\<\" \"\>", "\<\" \"\>", "\<\" \"\>", \ "\<\" \"\>", "\<\" \"\>", "\<\" \"\>", "\<\" \"\>", "\<\" \"\>", "\<\" \"\>", \ "\<\" \"\>", "\<\" \"\>"}, {"2.5618417338568458`", "0", "0", "0", "2.3572918010560024`", "0", "0", "0", "\<\" \"\>", "\<\" \"\>", "\<\" \"\>", "\<\" \"\>", "\<\" \"\>", "\ \<\" \"\>", "\<\" \"\>", "\<\" \"\>", "\<\" \"\>", "\<\" \"\>", "\<\" \"\>", \ "\<\" \"\>", "\<\" \"\>", "\<\" \"\>", "\<\" \"\>", "\<\" \"\>", "\<\" \"\>", \ "\<\" \"\>"}, {"0", "0", "0", "0", "0", "0", "2.530978695536738`", "0", "0", "\<\" \"\>", "\<\" \"\>", "\<\" \"\>", "\<\" \"\>", "\<\" \"\>", "\ \<\" \"\>", "\<\" \"\>", "\<\" \"\>", "\<\" \"\>", "\<\" \"\>", "\<\" \"\>", \ "\<\" \"\>", "\<\" \"\>", "\<\" \"\>", "\<\" \"\>", "\<\" \"\>", "\<\" \"\>"}, {"0", "0", "0", "2.300076422175762`", "0", "0", "0", "0", "0", "0", "\<\" \"\>", "\<\" \"\>", "\<\" \"\>", "\<\" \"\>", "\<\" \"\>", "\ \<\" \"\>", "\<\" \"\>", "\<\" \"\>", "\<\" \"\>", "\<\" \"\>", "\<\" \"\>", \ "\<\" \"\>", "\<\" \"\>", "\<\" \"\>", "\<\" \"\>", "\<\" \"\>"}, {"0", "0", "0", "2.092008951776616`", "0", "0", "0", "0", "0", "0", "0", "\<\" \"\>", "\<\" \"\>", "\<\" \"\>", "\<\" \"\>", "\<\" \"\>", "\ \<\" \"\>", "\<\" \"\>", "\<\" \"\>", "\<\" \"\>", "\<\" \"\>", "\<\" \"\>", \ "\<\" \"\>", "\<\" \"\>", "\<\" \"\>", "\<\" \"\>"}, {"0", "0", "0", "0", "0", "2.3194804414652985`", "0", "0", "0", "0", "0", "0", "\<\" \"\>", "\<\" \"\>", "\<\" \"\>", "\<\" \"\>", "\<\" \"\>", \ "\<\" \"\>", "\<\" \"\>", "\<\" \"\>", "\<\" \"\>", "\<\" \"\>", "\<\" \"\>", \ "\<\" \"\>", "\<\" \"\>", "\<\" \"\>"}, {"0", "0", "0", "0", "2.090642068786018`", "0", "0", "0", "0", "0", "0", "0", "0", "\<\" \"\>", "\<\" \"\>", "\<\" \"\>", "\<\" \"\>", "\<\" \ \"\>", "\<\" \"\>", "\<\" \"\>", "\<\" \"\>", "\<\" \"\>", "\<\" \"\>", "\<\" \ \"\>", "\<\" \"\>", "\<\" \"\>"}, {"0", "0", "0", "0", "0", "2.1023053939324563`", "0", "0", "0", "0", "0", "0", "0", "0", "\<\" \"\>", "\<\" \"\>", "\<\" \"\>", "\<\" \"\>", "\<\" \"\>", "\ \<\" \"\>", "\<\" \"\>", "\<\" \"\>", "\<\" \"\>", "\<\" \"\>", "\<\" \"\>", \ "\<\" \"\>"}, {"1.4319034695683692`", "0", "0", "0", "0", "0", "0", "0", "0", "0", "0", "0", "0", "0", "0", "\<\" \"\>", "\<\" \"\>", "\<\" \"\>", "\<\" \"\>", "\<\" \"\>", "\ \<\" \"\>", "\<\" \"\>", "\<\" \"\>", "\<\" \"\>", "\<\" \"\>", "\<\" \"\>"}, {"0", "1.4319930182957856`", "0", "0", "0", "0", "0", "0", "0", "0", "0", "0", "0", "0", "0", "0", "\<\" \"\>", "\<\" \"\>", "\<\" \"\>", "\<\" \"\>", "\<\" \"\>", "\ \<\" \"\>", "\<\" \"\>", "\<\" \"\>", "\<\" \"\>", "\<\" \"\>"}, {"0", "1.4320129292815404`", "0", "0", "0", "0", "0", "0", "0", "0", "0", "0", "0", "0", "0", "0", "0", "\<\" \"\>", "\<\" \"\>", "\<\" \"\>", "\<\" \"\>", "\<\" \"\>", "\ \<\" \"\>", "\<\" \"\>", "\<\" \"\>", "\<\" \"\>"}, {"0", "0", "1.4320023084065991`", "0", "0", "0", "0", "0", "0", "0", "0", "0", "0", "0", "0", "0", "0", "0", "\<\" \"\>", "\<\" \"\>", "\<\" \"\>", "\<\" \"\>", "\<\" \"\>", "\ \<\" \"\>", "\<\" \"\>", "\<\" \"\>"}, {"0", "0", "1.431942223983179`", "0", "0", "0", "0", "0", "0", "0", "0", "0", "0", "0", "0", "0", "0", "0", "0", "\<\" \"\>", "\<\" \"\>", "\<\" \"\>", "\<\" \"\>", "\<\" \"\>", "\ \<\" \"\>", "\<\" \"\>"}, {"0", "0", "0", "0", "0", "0", "0", "1.3356400304075746`", "0", "0", "0", "0", "0", "0", "0", "0", "0", "0", "0", "0", "\<\" \"\>", "\<\" \"\>", "\<\" \"\>", "\<\" \"\>", "\<\" \"\>", "\ \<\" \"\>"}, {"0", "0", "0", "0", "0", "0", "1.4319369792010406`", "0", "0", "0", "0", "0", "0", "0", "0", "0", "0", "0", "0", "0", "0", "\<\" \"\>", "\<\" \"\>", "\<\" \"\>", "\<\" \"\>", "\<\" \"\>"}, {"0", "0", "0", "0", "0", "0", "1.4319986314651016`", "0", "0", "0", "0", "0", "0", "0", "0", "0", "0", "0", "0", "0", "0", "0", "\<\" \"\>", "\<\" \"\>", "\<\" \"\>", "\<\" \"\>"}, {"0", "0", "0", "0", "0", "0", "0", "0", "0", "1.289971170358538`", "0", "0", "0", "0", "0", "0", "0", "0", "0", "0", "0", "0", "0", "\<\" \"\>", "\<\" \"\>", "\<\" \"\>"}, {"0", "0", "0", "0", "0", "0", "0", "0", "1.335626627483414`", "0", "0", "0", "0", "0", "0", "0", "0", "0", "0", "0", "0", "0", "0", "0", "\<\" \"\>", "\<\" \"\>"}, {"0", "0", "0", "0", "0", "0", "0", "0", "1.3355250501249019`", "0", "0", "0", "0", "0", "0", "0", "0", "0", "0", "0", "0", "0", "0", "0", "0", "\<\" \"\>"}, {"0", "0", "0", "0", "0", "0", "0", "0", "0", "0", "0", "1.2900253495650416`", "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.576421193617591*^9, 3.576422739330706*^9, 3.5764229255794334`*^9, 3.5764231382546067`*^9, 3.576423827651018*^9, 3.5764239973325157`*^9, 3.576424058063422*^9, 3.5764240904334793`*^9, 3.5764246793969135`*^9, 3.5764250609111843`*^9, 3.5764253670461216`*^9, 3.57642545150467*^9, 3.576425488695135*^9, {3.5764267237305045`*^9, 3.5764267510149527`*^9}, 3.5764269196356487`*^9, 3.5764269649381285`*^9, 3.576427001254992*^9, 3.576428268538818*^9, 3.5764664638490057`*^9, 3.5764666511429353`*^9, 3.576467406137461*^9, 3.576467494355616*^9, 3.5764682164964848`*^9, { 3.576468606356769*^9, 3.5764686348268194`*^9}, 3.5764687717638597`*^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.3462295401149404`", "0", "2.3427028715325315`", "0", "0", "0", "2.3046417338568457`", "0", "0", "0", "0", "0", "0", "1.1747034695683691`", "0", "0", "0", "0", "0", "0", "0", "0", "0", "0", "0"}, {"\<\" \"\>", "0", "2.3807999320026534`", "0", "0", "0", "0", "0", "0", "0", "0", "0", "0", "0", "0", "1.1747930182957855`", "1.1748129292815404`", "0", "0", "0", "0", "0", "0", "0", "0", "0"}, {"\<\" \"\>", "\<\" \"\>", "0", "0", "0", "2.3356309245068805`", "0", "0", "0", "0", "0", "0", "0", "0", "0", "0", "0", "1.174802308406599`", "1.1747422239831788`", "0", "0", "0", "0", "0", "0", "0"}, {"\<\" \"\>", "\<\" \"\>", "\<\" \"\>", "0", "0", "0", "0", "0", "0", "2.042876422175762`", "1.834808951776616`", "0", "0", "0", "0", "0", "0", "0", "0", "0", "0", "0", "0", "0", "0", "0"}, {"\<\" \"\>", "\<\" \"\>", "\<\" \"\>", "\<\" \"\>", "0", "0", "2.308802676078528`", "2.1000918010560023`", "0", "0", "0", "0", "1.833442068786018`", "0", "0", "0", "0", "0", "0", "0", "0", "0", "0", "0", "0", "0"}, {"\<\" \"\>", "\<\" \"\>", "\<\" \"\>", "\<\" \"\>", "\<\" \"\>", "0", "0", "0", "0", "0", "0", "2.0622804414652984`", "0", "1.8451053939324562`", "0", "0", "0", "0", "0", "0", "0", "0", "0", "0", "0", "0"}, {"\<\" \"\>", "\<\" \"\>", "\<\" \"\>", "\<\" \"\>", "\<\" \"\>", "\<\" \ \"\>", "0", "0", "2.273778695536738`", "0", "0", "0", "0", "0", "0", "0", "0", "0", "0", "0", "1.1747369792010405`", "1.1747986314651016`", "0", "0", "0", "0"}, {"\<\" \"\>", "\<\" \"\>", "\<\" \"\>", "\<\" \"\>", "\<\" \"\>", "\<\" \ \"\>", "\<\" \"\>", "0", "0", "0", "0", "0", "0", "0", "0", "0", "0", "0", "0", "1.1104200304075746`", "0", "0", "0", "0", "0", "0"}, {"\<\" \"\>", "\<\" \"\>", "\<\" \"\>", "\<\" \"\>", "\<\" \"\>", "\<\" \ \"\>", "\<\" \"\>", "\<\" \"\>", "0", "0", "0", "0", "0", "0", "0", "0", "0", "0", "0", "0", "0", "0", "0", "1.1104066274834141`", "1.1103050501249019`", "0"}, {"\<\" \"\>", "\<\" \"\>", "\<\" \"\>", "\<\" \"\>", "\<\" \"\>", "\<\" \ \"\>", "\<\" \"\>", "\<\" \"\>", "\<\" \"\>", "0", "0", "0", "0", "0", "0", "0", "0", "0", "0", "0", "0", "0", "1.1113711703585378`", "0", "0", "0"}, {"\<\" \"\>", "\<\" \"\>", "\<\" \"\>", "\<\" \"\>", "\<\" \"\>", "\<\" \ \"\>", "\<\" \"\>", "\<\" \"\>", "\<\" \"\>", "\<\" \"\>", "0", "0", "0", "0", "0", "0", "0", "0", "0", "0", "0", "0", "0", "0", "0", "0"}, {"\<\" \"\>", "\<\" \"\>", "\<\" \"\>", "\<\" \"\>", "\<\" \"\>", "\<\" \ \"\>", "\<\" \"\>", "\<\" \"\>", "\<\" \"\>", "\<\" \"\>", "\<\" \"\>", "0", "0", "0", "0", "0", "0", "0", "0", "0", "0", "0", "0", "0", "0", "1.1114253495650415`"}, {"\<\" \"\>", "\<\" \"\>", "\<\" \"\>", "\<\" \"\>", "\<\" \"\>", "\<\" \ \"\>", "\<\" \"\>", "\<\" \"\>", "\<\" \"\>", "\<\" \"\>", "\<\" \"\>", "\<\" \ \"\>", "0", "0", "0", "0", "0", "0", "0", "0", "0", "0", "0", "0", "0", "0"}, {"\<\" \"\>", "\<\" \"\>", "\<\" \"\>", "\<\" \"\>", "\<\" \"\>", "\<\" \ \"\>", "\<\" \"\>", "\<\" \"\>", "\<\" \"\>", "\<\" \"\>", "\<\" \"\>", "\<\" \ \"\>", "\<\" \"\>", "0", "0", "0", "0", "0", "0", "0", "0", "0", "0", "0", "0", "0"}, {"\<\" \"\>", "\<\" \"\>", "\<\" \"\>", "\<\" \"\>", "\<\" \"\>", "\<\" \ \"\>", "\<\" \"\>", "\<\" \"\>", "\<\" \"\>", "\<\" \"\>", "\<\" \"\>", "\<\" \ \"\>", "\<\" \"\>", "\<\" \"\>", "0", "0", "0", "0", "0", "0", "0", "0", "0", "0", "0", "0"}, {"\<\" \"\>", "\<\" \"\>", "\<\" \"\>", "\<\" \"\>", "\<\" \"\>", "\<\" \ \"\>", "\<\" \"\>", "\<\" \"\>", "\<\" \"\>", "\<\" \"\>", "\<\" \"\>", "\<\" \ \"\>", "\<\" \"\>", "\<\" \"\>", "\<\" \"\>", "0", "0", "0", "0", "0", "0", "0", "0", "0", "0", "0"}, {"\<\" \"\>", "\<\" \"\>", "\<\" \"\>", "\<\" \"\>", "\<\" \"\>", "\<\" \ \"\>", "\<\" \"\>", "\<\" \"\>", "\<\" \"\>", "\<\" \"\>", "\<\" \"\>", "\<\" \ \"\>", "\<\" \"\>", "\<\" \"\>", "\<\" \"\>", "\<\" \"\>", "0", "0", "0", "0", "0", "0", "0", "0", "0", "0"}, {"\<\" \"\>", "\<\" \"\>", "\<\" \"\>", "\<\" \"\>", "\<\" \"\>", "\<\" \ \"\>", "\<\" \"\>", "\<\" \"\>", "\<\" \"\>", "\<\" \"\>", "\<\" \"\>", "\<\" \ \"\>", "\<\" \"\>", "\<\" \"\>", "\<\" \"\>", "\<\" \"\>", "\<\" \"\>", "0", "0", "0", "0", "0", "0", "0", "0", "0"}, {"\<\" \"\>", "\<\" \"\>", "\<\" \"\>", "\<\" \"\>", "\<\" \"\>", "\<\" \ \"\>", "\<\" \"\>", "\<\" \"\>", "\<\" \"\>", "\<\" \"\>", "\<\" \"\>", "\<\" \ \"\>", "\<\" \"\>", "\<\" \"\>", "\<\" \"\>", "\<\" \"\>", "\<\" \"\>", "\<\" \ \"\>", "0", "0", "0", "0", "0", "0", "0", "0"}, {"\<\" \"\>", "\<\" \"\>", "\<\" \"\>", "\<\" \"\>", "\<\" \"\>", "\<\" \ \"\>", "\<\" \"\>", "\<\" \"\>", "\<\" \"\>", "\<\" \"\>", "\<\" \"\>", "\<\" \ \"\>", "\<\" \"\>", "\<\" \"\>", "\<\" \"\>", "\<\" \"\>", "\<\" \"\>", "\<\" \ \"\>", "\<\" \"\>", "0", "0", "0", "0", "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.576421193633191*^9, 3.576422739361906*^9, 3.5764229255950336`*^9, 3.5764231382702065`*^9, 3.5764238276822176`*^9, 3.576423997348116*^9, 3.5764240580790224`*^9, 3.5764240904490795`*^9, 3.5764246794125137`*^9, 3.576425060926784*^9, 3.576425367061722*^9, 3.5764254515202703`*^9, 3.5764254887107353`*^9, {3.5764267237461047`*^9, 3.576426751030553*^9}, 3.576426919651249*^9, 3.5764269649537287`*^9, 3.5764270012705917`*^9, 3.576428268554418*^9, 3.576466463864606*^9, 3.576466651158535*^9, 3.576467406153061*^9, 3.576467494371216*^9, 3.5764682165120845`*^9, { 3.5764686063723693`*^9, 3.576468634842419*^9}, 3.5764687717950597`*^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.1731147700574702`", "0", "1.1713514357662658`", "0", "0", "0", "1.1523208669284228`", "0", "0", "0", "0", "0", "0", "1.1747034695683691`", "0", "0", "0", "0", "0", "0", "0", "0", "0", "0", "0"}, {"\<\" \"\>", "0", "1.1903999660013267`", "0", "0", "0", "0", "0", "0", "0", "0", "0", "0", "0", "0", "1.1747930182957855`", "1.1748129292815404`", "0", "0", "0", "0", "0", "0", "0", "0", "0"}, {"\<\" \"\>", "\<\" \"\>", "0", "0", "0", "1.1678154622534402`", "0", "0", "0", "0", "0", "0", "0", "0", "0", "0", "0", "1.174802308406599`", "1.1747422239831788`", "0", "0", "0", "0", "0", "0", "0"}, {"\<\" \"\>", "\<\" \"\>", "\<\" \"\>", "0", "0", "0", "0", "0", "0", "1.021438211087881`", "0.917404475888308`", "0", "0", "0", "0", "0", "0", "0", "0", "0", "0", "0", "0", "0", "0", "0"}, {"\<\" \"\>", "\<\" \"\>", "\<\" \"\>", "\<\" \"\>", "0", "0", "1.154401338039264`", "1.0500459005280012`", "0", "0", "0", "0", "0.916721034393009`", "0", "0", "0", "0", "0", "0", "0", "0", "0", "0", "0", "0", "0"}, {"\<\" \"\>", "\<\" \"\>", "\<\" \"\>", "\<\" \"\>", "\<\" \"\>", "0", "0", "0", "0", "0", "0", "1.0311402207326492`", "0", "0.9225526969662281`", "0", "0", "0", "0", "0", "0", "0", "0", "0", "0", "0", "0"}, {"\<\" \"\>", "\<\" \"\>", "\<\" \"\>", "\<\" \"\>", "\<\" \"\>", "\<\" \ \"\>", "0", "0", "1.136889347768369`", "0", "0", "0", "0", "0", "0", "0", "0", "0", "0", "0", "1.1747369792010405`", "1.1747986314651016`", "0", "0", "0", "0"}, {"\<\" \"\>", "\<\" \"\>", "\<\" \"\>", "\<\" \"\>", "\<\" \"\>", "\<\" \ \"\>", "\<\" \"\>", "0", "0", "0", "0", "0", "0", "0", "0", "0", "0", "0", "0", "1.1104200304075746`", "0", "0", "0", "0", "0", "0"}, {"\<\" \"\>", "\<\" \"\>", "\<\" \"\>", "\<\" \"\>", "\<\" \"\>", "\<\" \ \"\>", "\<\" \"\>", "\<\" \"\>", "0", "0", "0", "0", "0", "0", "0", "0", "0", "0", "0", "0", "0", "0", "0", "1.1104066274834141`", "1.1103050501249019`", "0"}, {"\<\" \"\>", "\<\" \"\>", "\<\" \"\>", "\<\" \"\>", "\<\" \"\>", "\<\" \ \"\>", "\<\" \"\>", "\<\" \"\>", "\<\" \"\>", "0", "0", "0", "0", "0", "0", "0", "0", "0", "0", "0", "0", "0", "1.1113711703585378`", "0", "0", "0"}, {"\<\" \"\>", "\<\" \"\>", "\<\" \"\>", "\<\" \"\>", "\<\" \"\>", "\<\" \ \"\>", "\<\" \"\>", "\<\" \"\>", "\<\" \"\>", "\<\" \"\>", "0", "0", "0", "0", "0", "0", "0", "0", "0", "0", "0", "0", "0", "0", "0", "0"}, {"\<\" \"\>", "\<\" \"\>", "\<\" \"\>", "\<\" \"\>", "\<\" \"\>", "\<\" \ \"\>", "\<\" \"\>", "\<\" \"\>", "\<\" \"\>", "\<\" \"\>", "\<\" \"\>", "0", "0", "0", "0", "0", "0", "0", "0", "0", "0", "0", "0", "0", "0", "1.1114253495650415`"}, {"\<\" \"\>", "\<\" \"\>", "\<\" \"\>", "\<\" \"\>", "\<\" \"\>", "\<\" \ \"\>", "\<\" \"\>", "\<\" \"\>", "\<\" \"\>", "\<\" \"\>", "\<\" \"\>", "\<\" \ \"\>", "0", "0", "0", "0", "0", "0", "0", "0", "0", "0", "0", "0", "0", "0"}, {"\<\" \"\>", "\<\" \"\>", "\<\" \"\>", "\<\" \"\>", "\<\" \"\>", "\<\" \ \"\>", "\<\" \"\>", "\<\" \"\>", "\<\" \"\>", "\<\" \"\>", "\<\" \"\>", "\<\" \ \"\>", "\<\" \"\>", "0", "0", "0", "0", "0", "0", "0", "0", "0", "0", "0", "0", "0"}, {"\<\" \"\>", "\<\" \"\>", "\<\" \"\>", "\<\" \"\>", "\<\" \"\>", "\<\" \ \"\>", "\<\" \"\>", "\<\" \"\>", "\<\" \"\>", "\<\" \"\>", "\<\" \"\>", "\<\" \ \"\>", "\<\" \"\>", "\<\" \"\>", "0", "0", "0", "0", "0", "0", "0", "0", "0", "0", "0", "0"}, {"\<\" \"\>", "\<\" \"\>", "\<\" \"\>", "\<\" \"\>", "\<\" \"\>", "\<\" \ \"\>", "\<\" \"\>", "\<\" \"\>", "\<\" \"\>", "\<\" \"\>", "\<\" \"\>", "\<\" \ \"\>", "\<\" \"\>", "\<\" \"\>", "\<\" \"\>", "0", "0", "0", "0", "0", "0", "0", "0", "0", "0", "0"}, {"\<\" \"\>", "\<\" \"\>", "\<\" \"\>", "\<\" \"\>", "\<\" \"\>", "\<\" \ \"\>", "\<\" \"\>", "\<\" \"\>", "\<\" \"\>", "\<\" \"\>", "\<\" \"\>", "\<\" \ \"\>", "\<\" \"\>", "\<\" \"\>", "\<\" \"\>", "\<\" \"\>", "0", "0", "0", "0", "0", "0", "0", "0", "0", "0"}, {"\<\" \"\>", "\<\" \"\>", "\<\" \"\>", "\<\" \"\>", "\<\" \"\>", "\<\" \ \"\>", "\<\" \"\>", "\<\" \"\>", "\<\" \"\>", "\<\" \"\>", "\<\" \"\>", "\<\" \ \"\>", "\<\" \"\>", "\<\" \"\>", "\<\" \"\>", "\<\" \"\>", "\<\" \"\>", "0", "0", "0", "0", "0", "0", "0", "0", "0"}, {"\<\" \"\>", "\<\" \"\>", "\<\" \"\>", "\<\" \"\>", "\<\" \"\>", "\<\" \ \"\>", "\<\" \"\>", "\<\" \"\>", "\<\" \"\>", "\<\" \"\>", "\<\" \"\>", "\<\" \ \"\>", "\<\" \"\>", "\<\" \"\>", "\<\" \"\>", "\<\" \"\>", "\<\" \"\>", "\<\" \ \"\>", "0", "0", "0", "0", "0", "0", "0", "0"}, {"\<\" \"\>", "\<\" \"\>", "\<\" \"\>", "\<\" \"\>", "\<\" \"\>", "\<\" \ \"\>", "\<\" \"\>", "\<\" \"\>", "\<\" \"\>", "\<\" \"\>", "\<\" \"\>", "\<\" \ \"\>", "\<\" \"\>", "\<\" \"\>", "\<\" \"\>", "\<\" \"\>", "\<\" \"\>", "\<\" \ \"\>", "\<\" \"\>", "0", "0", "0", "0", "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.5764211936487913`*^9, 3.5764227393775063`*^9, 3.5764229256106334`*^9, 3.5764231382858067`*^9, 3.576423827697818*^9, 3.576423997363716*^9, 3.5764240581102223`*^9, 3.5764240904646797`*^9, 3.576424679428114*^9, 3.576425060957984*^9, 3.5764253670773215`*^9, 3.57642545153587*^9, 3.5764254887263355`*^9, {3.5764267237617044`*^9, 3.5764267510617523`*^9}, 3.576426919666849*^9, 3.5764269649693284`*^9, 3.576427001286192*^9, 3.576428268585618*^9, 3.576466463880206*^9, 3.576466651174135*^9, 3.576467406168661*^9, 3.576467494386816*^9, 3.5764682165432844`*^9, { 3.576468606387969*^9, 3.576468634842419*^9}, 3.57646877181066*^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"}], "}"}]}], "]"}]}], ";"}], "\n", RowBox[{"(*", RowBox[{"MatrixForm", "[", "Nij", "]"}], "*)"}], "\[IndentingNewLine]", 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["46.473961099724065`"], "Output", CellChangeTimes->{ 3.5764211936643915`*^9, 3.5764227393931065`*^9, 3.576422925626233*^9, 3.576423138301407*^9, 3.576423827713418*^9, 3.576423997394916*^9, 3.5764240581258225`*^9, 3.5764240904802794`*^9, 3.576424679443714*^9, 3.576425060973584*^9, 3.5764253670929213`*^9, 3.57642545155147*^9, 3.5764254887419353`*^9, {3.5764267237617044`*^9, 3.5764267510773525`*^9}, 3.576426919682449*^9, 3.576426964984928*^9, 3.576427001301792*^9, 3.576428268601218*^9, 3.5764664638958063`*^9, 3.576466651174135*^9, 3.576467406168661*^9, 3.576467494402416*^9, 3.5764682165588846`*^9, { 3.576468606403569*^9, 3.576468634858019*^9}, 3.5764687718262596`*^9}], Cell[BoxData["679.4910629567156`"], "Output", CellChangeTimes->{ 3.5764211936643915`*^9, 3.5764227393931065`*^9, 3.576422925626233*^9, 3.576423138301407*^9, 3.576423827713418*^9, 3.576423997394916*^9, 3.5764240581258225`*^9, 3.5764240904802794`*^9, 3.576424679443714*^9, 3.576425060973584*^9, 3.5764253670929213`*^9, 3.57642545155147*^9, 3.5764254887419353`*^9, {3.5764267237617044`*^9, 3.5764267510773525`*^9}, 3.576426919682449*^9, 3.576426964984928*^9, 3.576427001301792*^9, 3.576428268601218*^9, 3.5764664638958063`*^9, 3.576466651174135*^9, 3.576467406168661*^9, 3.576467494402416*^9, 3.5764682165588846`*^9, { 3.576468606403569*^9, 3.576468634858019*^9}, 3.5764687718262596`*^9}], Cell[BoxData["725.9650240564397`"], "Output", CellChangeTimes->{ 3.5764211936643915`*^9, 3.5764227393931065`*^9, 3.576422925626233*^9, 3.576423138301407*^9, 3.576423827713418*^9, 3.576423997394916*^9, 3.5764240581258225`*^9, 3.5764240904802794`*^9, 3.576424679443714*^9, 3.576425060973584*^9, 3.5764253670929213`*^9, 3.57642545155147*^9, 3.5764254887419353`*^9, {3.5764267237617044`*^9, 3.5764267510773525`*^9}, 3.576426919682449*^9, 3.576426964984928*^9, 3.576427001301792*^9, 3.576428268601218*^9, 3.5764664638958063`*^9, 3.576466651174135*^9, 3.576467406168661*^9, 3.576467494402416*^9, 3.5764682165588846`*^9, { 3.576468606403569*^9, 3.576468634858019*^9}, 3.5764687718262596`*^9}], Cell[BoxData["20.53019188116236`"], "Output", CellChangeTimes->{ 3.5764211936643915`*^9, 3.5764227393931065`*^9, 3.576422925626233*^9, 3.576423138301407*^9, 3.576423827713418*^9, 3.576423997394916*^9, 3.5764240581258225`*^9, 3.5764240904802794`*^9, 3.576424679443714*^9, 3.576425060973584*^9, 3.5764253670929213`*^9, 3.57642545155147*^9, 3.5764254887419353`*^9, {3.5764267237617044`*^9, 3.5764267510773525`*^9}, 3.576426919682449*^9, 3.576426964984928*^9, 3.576427001301792*^9, 3.576428268601218*^9, 3.5764664638958063`*^9, 3.576466651174135*^9, 3.576467406168661*^9, 3.576467494402416*^9, 3.5764682165588846`*^9, { 3.576468606403569*^9, 3.576468634858019*^9}, 3.5764687718262596`*^9}], Cell[BoxData["25.943769218561705`"], "Output", CellChangeTimes->{ 3.5764211936643915`*^9, 3.5764227393931065`*^9, 3.576422925626233*^9, 3.576423138301407*^9, 3.576423827713418*^9, 3.576423997394916*^9, 3.5764240581258225`*^9, 3.5764240904802794`*^9, 3.576424679443714*^9, 3.576425060973584*^9, 3.5764253670929213`*^9, 3.57642545155147*^9, 3.5764254887419353`*^9, {3.5764267237617044`*^9, 3.5764267510773525`*^9}, 3.576426919682449*^9, 3.576426964984928*^9, 3.576427001301792*^9, 3.576428268601218*^9, 3.5764664638958063`*^9, 3.576466651174135*^9, 3.576467406168661*^9, 3.576467494402416*^9, 3.5764682165588846`*^9, { 3.576468606403569*^9, 3.576468634858019*^9}, 3.57646877184186*^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[{"{", RowBox[{ "2.5825118010560026`", ",", "2.478676422175762`", ",", "2.4980804414652984`"}], "}"}]], "Output", CellChangeTimes->{ 3.5764211936799917`*^9, 3.5764227394087067`*^9, 3.5764229256574335`*^9, 3.5764231383326073`*^9, 3.576423827744618*^9, 3.576423997410516*^9, 3.5764240581414223`*^9, 3.5764240905114794`*^9, 3.576424679474914*^9, 3.576425060989184*^9, 3.5764253671241217`*^9, 3.57642545156707*^9, 3.576425488773135*^9, {3.576426723792905*^9, 3.576426751108553*^9}, 3.576426919713649*^9, 3.5764269650005283`*^9, 3.5764270013173923`*^9, 3.576428268616818*^9, 3.5764664639114065`*^9, 3.5764666511897354`*^9, 3.5764674061842613`*^9, 3.5764674944180164`*^9, 3.576468216574485*^9, { 3.5764686065439696`*^9, 3.576468634873619*^9}, 3.57646877185746*^9}], Cell[BoxData[ RowBox[{"2.5197562215656877`", "\[PlusMinus]", "0.05520711964068679`"}]], "Output", CellChangeTimes->{ 3.5764211936799917`*^9, 3.5764227394087067`*^9, 3.5764229256574335`*^9, 3.5764231383326073`*^9, 3.576423827744618*^9, 3.576423997410516*^9, 3.5764240581414223`*^9, 3.5764240905114794`*^9, 3.576424679474914*^9, 3.576425060989184*^9, 3.5764253671241217`*^9, 3.57642545156707*^9, 3.576425488773135*^9, {3.576426723792905*^9, 3.576426751108553*^9}, 3.576426919713649*^9, 3.5764269650005283`*^9, 3.5764270013173923`*^9, 3.576428268616818*^9, 3.5764664639114065`*^9, 3.5764666511897354`*^9, 3.5764674061842613`*^9, 3.5764674944180164`*^9, 3.576468216574485*^9, { 3.5764686065439696`*^9, 3.576468634873619*^9}, 3.57646877185746*^9}], Cell[BoxData[ RowBox[{"{", RowBox[{ "2.8606295401149406`", ",", "2.8951999320026536`", ",", "2.8571028715325317`", ",", "2.8500309245068807`", ",", "2.823202676078528`", ",", "2.787061733856846`", ",", "2.7561986955367384`"}], "}"}]], "Output", CellChangeTimes->{ 3.5764211936799917`*^9, 3.5764227394087067`*^9, 3.5764229256574335`*^9, 3.5764231383326073`*^9, 3.576423827744618*^9, 3.576423997410516*^9, 3.5764240581414223`*^9, 3.5764240905114794`*^9, 3.576424679474914*^9, 3.576425060989184*^9, 3.5764253671241217`*^9, 3.57642545156707*^9, 3.576425488773135*^9, {3.576426723792905*^9, 3.576426751108553*^9}, 3.576426919713649*^9, 3.5764269650005283`*^9, 3.5764270013173923`*^9, 3.576428268616818*^9, 3.5764664639114065`*^9, 3.5764666511897354`*^9, 3.5764674061842613`*^9, 3.5764674944180164`*^9, 3.576468216574485*^9, { 3.5764686065439696`*^9, 3.576468634873619*^9}, 3.57646877185746*^9}], Cell[BoxData[ RowBox[{"2.832775196232731`", "\[PlusMinus]", "0.04762286267497`"}]], "Output", CellChangeTimes->{ 3.5764211936799917`*^9, 3.5764227394087067`*^9, 3.5764229256574335`*^9, 3.5764231383326073`*^9, 3.576423827744618*^9, 3.576423997410516*^9, 3.5764240581414223`*^9, 3.5764240905114794`*^9, 3.576424679474914*^9, 3.576425060989184*^9, 3.5764253671241217`*^9, 3.57642545156707*^9, 3.576425488773135*^9, {3.576426723792905*^9, 3.576426751108553*^9}, 3.576426919713649*^9, 3.5764269650005283`*^9, 3.5764270013173923`*^9, 3.576428268616818*^9, 3.5764664639114065`*^9, 3.5764666511897354`*^9, 3.5764674061842613`*^9, 3.5764674944180164`*^9, 3.576468216574485*^9, { 3.5764686065439696`*^9, 3.576468634873619*^9}, 3.57646877185746*^9}], Cell[BoxData[ RowBox[{"{", RowBox[{ "2.021903469568369`", ",", "2.0219930182957855`", ",", "2.0220129292815403`", ",", "2.022002308406599`", ",", "2.021942223983179`", ",", "1.8897400304075747`", ",", "2.0219369792010404`", ",", "2.0219986314651015`", ",", "1.814071170358538`", ",", "1.8897266274834141`", ",", "1.889625050124902`", ",", "1.8141253495650416`"}], "}"}]], "Output", CellChangeTimes->{ 3.5764211936799917`*^9, 3.5764227394087067`*^9, 3.5764229256574335`*^9, 3.5764231383326073`*^9, 3.576423827744618*^9, 3.576423997410516*^9, 3.5764240581414223`*^9, 3.5764240905114794`*^9, 3.576424679474914*^9, 3.576425060989184*^9, 3.5764253671241217`*^9, 3.57642545156707*^9, 3.576425488773135*^9, {3.576426723792905*^9, 3.576426751108553*^9}, 3.576426919713649*^9, 3.5764269650005283`*^9, 3.5764270013173923`*^9, 3.576428268616818*^9, 3.5764664639114065`*^9, 3.5764666511897354`*^9, 3.5764674061842613`*^9, 3.5764674944180164`*^9, 3.576468216574485*^9, { 3.5764686065439696`*^9, 3.576468634873619*^9}, 3.57646877185746*^9}], Cell[BoxData[ RowBox[{"1.9542564823450903`", "\[PlusMinus]", "0.08732808936692438`"}]], "Output", CellChangeTimes->{ 3.5764211936799917`*^9, 3.5764227394087067`*^9, 3.5764229256574335`*^9, 3.5764231383326073`*^9, 3.576423827744618*^9, 3.576423997410516*^9, 3.5764240581414223`*^9, 3.5764240905114794`*^9, 3.576424679474914*^9, 3.576425060989184*^9, 3.5764253671241217`*^9, 3.57642545156707*^9, 3.576425488773135*^9, {3.576426723792905*^9, 3.576426751108553*^9}, 3.576426919713649*^9, 3.5764269650005283`*^9, 3.5764270013173923`*^9, 3.576428268616818*^9, 3.5764664639114065`*^9, 3.5764666511897354`*^9, 3.5764674061842613`*^9, 3.5764674944180164`*^9, 3.576468216574485*^9, { 3.5764686065439696`*^9, 3.576468634873619*^9}, 3.57646877185746*^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["7"], "Output", CellChangeTimes->{ 3.5764211937111917`*^9, 3.5764227394243064`*^9, 3.5764229256730337`*^9, 3.5764231383482075`*^9, 3.5764238277602177`*^9, 3.576423997426116*^9, 3.5764240581726227`*^9, 3.5764240905270796`*^9, 3.576424679490514*^9, 3.576425061020384*^9, 3.576425367139722*^9, 3.57642545159827*^9, 3.5764254887887354`*^9, {3.576426723808505*^9, 3.576426751124153*^9}, 3.576426919729249*^9, 3.5764269650317287`*^9, 3.5764270013485923`*^9, 3.576428268648018*^9, 3.5764664639426064`*^9, 3.576466651205335*^9, 3.5764674061998615`*^9, 3.576467494449216*^9, 3.5764682166056843`*^9, { 3.5764686065751696`*^9, 3.5764686348892193`*^9}, 3.57646877187306*^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["5"], "Output", CellChangeTimes->{ 3.5764211937111917`*^9, 3.576422739439906*^9, 3.576422925688634*^9, 3.576423138363807*^9, 3.576423827775818*^9, 3.576423997441716*^9, 3.576424058188223*^9, 3.57642409054268*^9, 3.576424679506114*^9, 3.576425061035984*^9, 3.576425367155322*^9, 3.5764254516138697`*^9, 3.5764254888043356`*^9, {3.576426723824105*^9, 3.5764267511553526`*^9}, 3.5764269197448487`*^9, 3.5764269650317287`*^9, 3.5764270013485923`*^9, 3.576428268663618*^9, 3.576466463958206*^9, 3.576466651220935*^9, 3.5764674062154613`*^9, 3.576467494449216*^9, 3.5764682166056843`*^9, { 3.57646860659077*^9, 3.5764686349048195`*^9}, 3.57646877188866*^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[{"1", ",", "2", ",", "2", ",", "0", ",", "0", ",", "0", ",", "2"}], "}"}]], "Output", CellChangeTimes->{ 3.5764211937267914`*^9, 3.5764227394555063`*^9, 3.5764229257042336`*^9, 3.576423138379407*^9, 3.576423827791418*^9, 3.576423997457316*^9, 3.576424058188223*^9, 3.5764240905582795`*^9, 3.576424679521714*^9, 3.5764250610515842`*^9, 3.576425367170922*^9, 3.5764254516138697`*^9, 3.576425488819936*^9, {3.5764267238397045`*^9, 3.576426751170953*^9}, 3.5764269197448487`*^9, 3.5764269650473285`*^9, 3.5764270013641925`*^9, 3.5764282686792183`*^9, 3.576466463958206*^9, 3.576466651220935*^9, 3.5764674062154613`*^9, 3.576467494464816*^9, 3.5764682166212845`*^9, { 3.57646860659077*^9, 3.5764686349048195`*^9}, 3.5764687719042597`*^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.5764211937423916`*^9, 3.5764227394711065`*^9, 3.5764229257198334`*^9, 3.576423138395007*^9, 3.5764238278070183`*^9, 3.5764239974729156`*^9, 3.576424058219423*^9, 3.5764240905738797`*^9, 3.576424679537314*^9, 3.576425061067184*^9, 3.5764253671865215`*^9, 3.57642545164507*^9, 3.5764254888355355`*^9, {3.5764267238553047`*^9, 3.576426751186553*^9}, 3.5764269197604485`*^9, 3.576426965062928*^9, 3.576427001379792*^9, 3.5764282686948185`*^9, 3.5764664639738064`*^9, 3.576466651236535*^9, 3.576467406231061*^9, 3.5764674944804163`*^9, 3.5764682166368847`*^9, { 3.5764686066063695`*^9, 3.5764686349204197`*^9}, 3.57646877191986*^9}], Cell[BoxData["0"], "Output", CellChangeTimes->{ 3.5764211937423916`*^9, 3.5764227394711065`*^9, 3.5764229257198334`*^9, 3.576423138395007*^9, 3.5764238278070183`*^9, 3.5764239974729156`*^9, 3.576424058219423*^9, 3.5764240905738797`*^9, 3.576424679537314*^9, 3.576425061067184*^9, 3.5764253671865215`*^9, 3.57642545164507*^9, 3.5764254888355355`*^9, {3.5764267238553047`*^9, 3.576426751186553*^9}, 3.5764269197604485`*^9, 3.576426965062928*^9, 3.576427001379792*^9, 3.5764282686948185`*^9, 3.5764664639738064`*^9, 3.576466651236535*^9, 3.576467406231061*^9, 3.5764674944804163`*^9, 3.5764682166368847`*^9, { 3.5764686066063695`*^9, 3.5764686349204197`*^9}, 3.57646877191986*^9}], Cell[BoxData[ TagBox[ RowBox[{"(", "\[NoBreak]", TagBox[GridBox[{ { RowBox[{"{", RowBox[{"1", ",", "2", ",", "4", ",", "8", ",", "15"}], "}"}]}, { RowBox[{"{", RowBox[{"2", ",", "1", ",", "3", ",", "16", ",", "17"}], "}"}]}, { RowBox[{"{", RowBox[{"3", ",", "2", ",", "6", ",", "18", ",", "19"}], "}"}]}, { RowBox[{"{", RowBox[{"4", ",", "1", ",", "10", ",", "11"}], "}"}]}, { RowBox[{"{", RowBox[{"5", ",", "7", ",", "8", ",", "13"}], "}"}]}, { RowBox[{"{", RowBox[{"6", ",", "3", ",", "12", ",", "14"}], "}"}]}, { RowBox[{"{", RowBox[{"7", ",", "5", ",", "9", ",", "21", ",", "22"}], "}"}]}, { RowBox[{"{", RowBox[{"8", ",", "1", ",", "5", ",", "20"}], "}"}]}, { RowBox[{"{", RowBox[{"9", ",", "7", ",", "24", ",", "25"}], "}"}]}, { RowBox[{"{", RowBox[{"10", ",", "4", ",", "23"}], "}"}]}, { RowBox[{"{", RowBox[{"11", ",", "4"}], "}"}]}, { RowBox[{"{", RowBox[{"12", ",", "6", ",", "26"}], "}"}]}, { RowBox[{"{", RowBox[{"13", ",", "5"}], "}"}]}, { RowBox[{"{", RowBox[{"14", ",", "6"}], "}"}]}, { RowBox[{"{", RowBox[{"15", ",", "1"}], "}"}]}, { RowBox[{"{", RowBox[{"16", ",", "2"}], "}"}]}, { RowBox[{"{", RowBox[{"17", ",", "2"}], "}"}]}, { RowBox[{"{", RowBox[{"18", ",", "3"}], "}"}]}, { RowBox[{"{", RowBox[{"19", ",", "3"}], "}"}]}, { RowBox[{"{", RowBox[{"20", ",", "8"}], "}"}]}, { RowBox[{"{", RowBox[{"21", ",", "7"}], "}"}]}, { RowBox[{"{", RowBox[{"22", ",", "7"}], "}"}]}, { RowBox[{"{", RowBox[{"23", ",", "10"}], "}"}]}, { RowBox[{"{", RowBox[{"24", ",", "9"}], "}"}]}, { RowBox[{"{", RowBox[{"25", ",", "9"}], "}"}]}, { RowBox[{"{", RowBox[{"26", ",", "12"}], "}"}]} }, 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.5764211937423916`*^9, 3.5764227394711065`*^9, 3.5764229257198334`*^9, 3.576423138395007*^9, 3.5764238278070183`*^9, 3.5764239974729156`*^9, 3.576424058219423*^9, 3.5764240905738797`*^9, 3.576424679537314*^9, 3.576425061067184*^9, 3.5764253671865215`*^9, 3.57642545164507*^9, 3.5764254888355355`*^9, {3.5764267238553047`*^9, 3.576426751186553*^9}, 3.5764269197604485`*^9, 3.576426965062928*^9, 3.576427001379792*^9, 3.5764282686948185`*^9, 3.5764664639738064`*^9, 3.576466651236535*^9, 3.576467406231061*^9, 3.5764674944804163`*^9, 3.5764682166368847`*^9, { 3.5764686066063695`*^9, 3.5764686349204197`*^9}, 3.57646877191986*^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[{"11", ",", "4", ",", "1", ",", "10"}], "}"}], "}"}]], "Output", CellChangeTimes->{ 3.576421193757992*^9, 3.5764227394867067`*^9, 3.576422925751034*^9, 3.5764231384106073`*^9, 3.576423827822618*^9, 3.576423997504116*^9, 3.5764240582350225`*^9, 3.5764240905894794`*^9, 3.5764246795529137`*^9, 3.576425061082784*^9, 3.5764253672021217`*^9, 3.5764254516606703`*^9, 3.5764254888511353`*^9, {3.576426723870905*^9, 3.5764267512021527`*^9}, 3.576426919791649*^9, 3.5764269650785284`*^9, 3.5764270013953924`*^9, 3.576428268710418*^9, 3.5764664639894066`*^9, 3.5764666512521353`*^9, 3.576467406246661*^9, 3.5764674944960165`*^9, 3.576468216668085*^9, { 3.57646860674677*^9, 3.5764686349360194`*^9}, 3.57646877193546*^9}], Cell[BoxData[ RowBox[{"{", RowBox[{ RowBox[{"{", RowBox[{"8", ",", "1", ",", "5", ",", "20"}], "}"}], ",", RowBox[{"{", RowBox[{"9", ",", "7", ",", "24", ",", "25"}], "}"}], ",", RowBox[{"{", RowBox[{"10", ",", "4", ",", "23"}], "}"}], ",", RowBox[{"{", RowBox[{"12", ",", "6", ",", "26"}], "}"}]}], "}"}]], "Output", CellChangeTimes->{ 3.576421193757992*^9, 3.5764227394867067`*^9, 3.576422925751034*^9, 3.5764231384106073`*^9, 3.576423827822618*^9, 3.576423997504116*^9, 3.5764240582350225`*^9, 3.5764240905894794`*^9, 3.5764246795529137`*^9, 3.576425061082784*^9, 3.5764253672021217`*^9, 3.5764254516606703`*^9, 3.5764254888511353`*^9, {3.576426723870905*^9, 3.5764267512021527`*^9}, 3.576426919791649*^9, 3.5764269650785284`*^9, 3.5764270013953924`*^9, 3.576428268710418*^9, 3.5764664639894066`*^9, 3.5764666512521353`*^9, 3.576467406246661*^9, 3.5764674944960165`*^9, 3.576468216668085*^9, { 3.57646860674677*^9, 3.5764686349360194`*^9}, 3.57646877193546*^9}], Cell[BoxData["1"], "Output", CellChangeTimes->{ 3.576421193757992*^9, 3.5764227394867067`*^9, 3.576422925751034*^9, 3.5764231384106073`*^9, 3.576423827822618*^9, 3.576423997504116*^9, 3.5764240582350225`*^9, 3.5764240905894794`*^9, 3.5764246795529137`*^9, 3.576425061082784*^9, 3.5764253672021217`*^9, 3.5764254516606703`*^9, 3.5764254888511353`*^9, {3.576426723870905*^9, 3.5764267512021527`*^9}, 3.576426919791649*^9, 3.5764269650785284`*^9, 3.5764270013953924`*^9, 3.576428268710418*^9, 3.5764664639894066`*^9, 3.5764666512521353`*^9, 3.576467406246661*^9, 3.5764674944960165`*^9, 3.576468216668085*^9, { 3.57646860674677*^9, 3.5764686349360194`*^9}, 3.57646877193546*^9}], Cell[BoxData["4"], "Output", CellChangeTimes->{ 3.576421193757992*^9, 3.5764227394867067`*^9, 3.576422925751034*^9, 3.5764231384106073`*^9, 3.576423827822618*^9, 3.576423997504116*^9, 3.5764240582350225`*^9, 3.5764240905894794`*^9, 3.5764246795529137`*^9, 3.576425061082784*^9, 3.5764253672021217`*^9, 3.5764254516606703`*^9, 3.5764254888511353`*^9, {3.576426723870905*^9, 3.5764267512021527`*^9}, 3.576426919791649*^9, 3.5764269650785284`*^9, 3.5764270013953924`*^9, 3.576428268710418*^9, 3.5764664639894066`*^9, 3.5764666512521353`*^9, 3.576467406246661*^9, 3.5764674944960165`*^9, 3.576468216668085*^9, { 3.57646860674677*^9, 3.5764686349360194`*^9}, 3.5764687719510603`*^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.2465", ",", "1.2961", ",", "1.0875", ",", "1.0875", ",", "1.2961"}], "}"}]}], ";"}], " ", 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, {3.576422866158929*^9, 3.5764228698405356`*^9}, {3.5764229002293887`*^9, 3.576422914331814*^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[{"5", ",", "8", ",", "13"}], "}"}], ",", RowBox[{"{", RowBox[{"13", ",", "8", ",", "7"}], "}"}], ",", RowBox[{"{", RowBox[{"8", ",", "7", ",", "13"}], "}"}], ",", RowBox[{"{", RowBox[{"4", ",", "10", ",", "1"}], "}"}], ",", RowBox[{"{", RowBox[{"11", ",", "10", ",", "1"}], "}"}], ",", RowBox[{"{", RowBox[{"14", ",", "3", ",", "12"}], "}"}], ",", RowBox[{"{", RowBox[{"6", ",", "3", ",", "14"}], "}"}]}], "}"}]}], ";"}], "\[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"}], ";"}]}]}]], "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, { 3.5764225647507997`*^9, 3.576422689020618*^9}, {3.5764230447168427`*^9, 3.576423123434581*^9}}], Cell[BoxData["7"], "Output", CellChangeTimes->{ 3.5764211937891912`*^9, 3.5764227395023065`*^9, 3.5764229257666335`*^9, 3.5764231384262075`*^9, 3.576423827853818*^9, 3.5764239975197163`*^9, 3.576424058266223*^9, 3.57642409062068*^9, 3.576424679568514*^9, 3.576425061113984*^9, 3.576425367233322*^9, 3.5764254516762705`*^9, 3.5764254888667355`*^9, {3.576426723902105*^9, 3.5764267512333527`*^9}, 3.576426919807249*^9, 3.576426965109729*^9, 3.5764270014265924`*^9, 3.576428268741618*^9, 3.5764664640050063`*^9, 3.5764666512677355`*^9, 3.5764674062622614`*^9, 3.5764674945272164`*^9, 3.576468216683685*^9, { 3.57646860676237*^9, 3.576468634951619*^9}, 3.5764687719510603`*^9}] }, Open ]], Cell[BoxData[ RowBox[{"<<", "\"\\""}]], "Input", CellChangeTimes->{{3.575816054798004*^9, 3.5758160989148817`*^9}, 3.5758162991256332`*^9, {3.5764225260159316`*^9, 3.5764225408047576`*^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[{"-", "0.39676687095999996`"}], RowBox[{"-", "1.6629966745199998`"}], "0.7892062693799999`"}, {"2", "\<\"C\"\>", RowBox[{"-", "3.0252623534`"}], RowBox[{"-", "0.8296842003`"}], "0.027758185214`"}, {"3", "\<\"C\"\>", RowBox[{"-", "3.2669583087999996`"}], RowBox[{"-", "0.25739957846`"}], RowBox[{"-", "2.8000070141999998`"}]}, {"4", "\<\"C\"\>", RowBox[{"-", "0.35848102219999994`"}], RowBox[{"-", "3.208754748`"}], "3.191747214`"}, {"5", "\<\"C\"\>", "3.8648676152`", "0.09607933901799999`", "1.3578248227799998`"}, {"6", "\<\"C\"\>", RowBox[{"-", "5.893866421399999`"}], "0.57818056696`", RowBox[{"-", "3.5237720722`"}]}, {"7", "\<\"C\"\>", "5.600203001000001`", "2.316804076`", "1.52355379298`"}, {"8", "\<\"N\"\>", "1.3465242613`", "0.50501037624`", "0.9577131367999999`"}, {"9", "\<\"N\"\>", "5.616265672`", "3.6819421383999997`", RowBox[{"-", "0.87076684354`"}]}, {"10", "\<\"O\"\>", "1.06809203246`", RowBox[{"-", "2.3014972954`"}], "5.0043723932`"}, {"11", "\<\"O\"\>", RowBox[{"-", "1.61078354514`"}], RowBox[{"-", "5.0950792412`"}], "3.3625784444`"}, {"12", "\<\"O\"\>", RowBox[{"-", "6.984427296`"}], RowBox[{"-", "0.7648477012399999`"}], RowBox[{"-", "5.3258147858`"}]}, {"13", "\<\"O\"\>", "4.6528833571999995`", RowBox[{"-", "2.018227368`"}], "1.59906724394`"}, {"14", "\<\"O\"\>", RowBox[{"-", "6.8846497632`"}], "2.3502522262`", RowBox[{"-", "2.4842337996`"}]}, {"15", "\<\"H\"\>", "0.25222172921999997`", RowBox[{"-", "2.8873123553999998`"}], RowBox[{"-", "0.68319264078`"}]}, {"16", "\<\"H\"\>", RowBox[{"-", "4.282875006399999`"}], RowBox[{"-", "2.3581890754`"}], "0.44072189772`"}, {"17", "\<\"H\"\>", RowBox[{"-", "3.4948592643999996`"}], "0.84185403574`", "1.06408581334`"}, {"18", "\<\"H\"\>", RowBox[{"-", "1.9997080531999998`"}], "1.2582173653199997`", RowBox[{"-", "3.2306755696`"}]}, {"19", "\<\"H\"\>", RowBox[{"-", "2.8083218086`"}], RowBox[{"-", "1.9288433281999997`"}], RowBox[{"-", "3.8412460402`"}]}, {"20", "\<\"H\"\>", "0.6883326954999999`", "2.2674822274`", "0.77996550924`"}, {"21", "\<\"H\"\>", "4.9569402706`", "3.553629743`", "2.9880347512`"}, {"22", "\<\"H\"\>", "7.4715986588`", "1.6746940784599997`", "1.940748602`"}, {"23", "\<\"H\"\>", "1.1602350722199999`", RowBox[{"-", "3.157732146`"}], "6.6010018906`"}, {"24", "\<\"H\"\>", "6.2088837456`", "2.5314769496`", RowBox[{"-", "2.247829077`"}]}, {"25", "\<\"H\"\>", "6.7814707236`", "5.1640542402`", RowBox[{"-", "0.74300246868`"}]}, {"26", "\<\"H\"\>", RowBox[{"-", "8.6617480936`"}], RowBox[{"-", "0.3492213648`"}], RowBox[{"-", "5.877992723`"}]} }, 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.5764211938047915`*^9, 3.576422739720707*^9, 3.5764229257978334`*^9, 3.576423138457407*^9, 3.5764238278850183`*^9, 3.576423997550916*^9, 3.576424058297423*^9, 3.5764240906518793`*^9, 3.5764246795997143`*^9, 3.5764250611451845`*^9, 3.576425367264522*^9, 3.5764254517074704`*^9, 3.576425488897936*^9, {3.576426723933305*^9, 3.576426751264553*^9}, 3.576426919869649*^9, 3.5764269651409283`*^9, 3.5764270014577923`*^9, 3.5764282687728186`*^9, 3.5764664640362062`*^9, 3.576466651298935*^9, 3.5764674062778616`*^9, 3.5764674945584164`*^9, 3.5764682167148848`*^9, { 3.57646860679357*^9, 3.5764686349828196`*^9}, 3.5764687719822598`*^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", "]"}], ";"}], "\n", RowBox[{"(*", RowBox[{"conn", "=", RowBox[{"Table", "[", RowBox[{ RowBox[{"Drop", "[", RowBox[{ RowBox[{"coco", "[", RowBox[{"[", "i", "]"}], "]"}], ",", RowBox[{"{", RowBox[{"2", ",", "2"}], "}"}]}], "]"}], ",", RowBox[{"{", RowBox[{"i", ",", "1", ",", "oj"}], "}"}]}], "]"}]}], "*)"}]}], "\[IndentingNewLine]", RowBox[{ RowBox[{"conn", "=", RowBox[{"{", RowBox[{ RowBox[{"{", RowBox[{"8", ",", "13", ",", "7"}], "}"}], ",", RowBox[{"{", RowBox[{"10", ",", "11", ",", "1"}], "}"}], ",", RowBox[{"{", RowBox[{"3", ",", "14", ",", "12"}], "}"}]}], "}"}]}], ";"}], "\[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}, {3.5764232343039756`*^9, 3.576423247579599*^9}, {3.576423531780898*^9, 3.5764236418702917`*^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[{ RowBox[{"-", "1"}], ",", RowBox[{"-", "1"}], ",", "1"}], "}"}], ",", RowBox[{"{", RowBox[{"1", ",", RowBox[{"-", "1"}], ",", "1"}], "}"}], ",", RowBox[{"{", RowBox[{"1", ",", "1", ",", "1"}], "}"}]}], "}"}]}], ";"}], "\[IndentingNewLine]", RowBox[{ RowBox[{"Okl", "=", RowBox[{"{", RowBox[{ RowBox[{"{", RowBox[{"1", ",", RowBox[{"-", "1"}], ",", "1"}], "}"}], ",", RowBox[{"{", RowBox[{ RowBox[{"-", "1"}], ",", RowBox[{"-", "1"}], ",", "1"}], "}"}], ",", RowBox[{"{", RowBox[{"1", ",", "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}, {3.576423653024311*^9, 3.576423670355942*^9}, 3.5764239388948135`*^9, {3.5764239883469*^9, 3.5764239920285063`*^9}, {3.5764240465194025`*^9, 3.57642405107461*^9}, 3.5764240849422693`*^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.1569884730477629`, 0.6006252019642587, 0}, 1.125]}, {RGBColor[1, NCache[ Rational[1, 3], 0.3333333333333333], NCache[ Rational[1, 3], 0.3333333333333333]], Opacity[0.5], SphereBox[{0.0583439315929823, -1.3022937247972417`, 0}, 1.125]}, {Opacity[0.5], SphereBox[{-4.208333907349008, 0, 0}, 0.22522]}, {Opacity[0.5], SphereBox[{0, 0, 0}, 0.1786]}, {Opacity[0.5], SphereBox[{-1.866431484718035, 4.0264187464951045`, 0}, 0.2572]}, Text3DBox["8", {-4.208333907349008, 0, 0}, {1, 0}], Text3DBox["13", {0, 0, 0}, {1, 0}], Text3DBox["7", {-1.866431484718035, 4.0264187464951045`, 0}, {1, 0}], TubeBox[{{-4.208333907349008, 0, 0}, {0, 0, 0}}, 0.02], TubeBox[{{-4.208333907349008, 0, 0}, {-1.866431484718035, 4.0264187464951045`, 0}}, 0.02], TubeBox[{{0, 0, 0}, {-1.866431484718035, 4.0264187464951045`, 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", "\<\ eJztnHd0XMeV5r8hSCXLVnSSxmPtaOy11zOyz+56bMn2WGlFabzW7ChQYiYB BoAgKTGJEaQoKhAZnSMaOTDnIOacQBIgcs45AwRAMADYr96r13gAm5Rmzv65 fc5FNxv9qqt+devW/e4r8K8zlwbOXjBzaVDAzOfGL575cWBQwJLn3vhoMd/y +xsAe2nxz0G8HuJL+WMvhoaGxC//g0+LxNNY0cSf1TcWK09+UFodUhrXfrVk 1K+E/Yv6q6U+fvWnb/yV8uUYO+JXo3oyRrzxsq+er5Ht9vf3o7S0FD09PXjU O5qfqR9aqfvQyZMnMWHCBChN8r2AgADlIvGJ7/gYtWxiufL0sNJEaGgoFi5c iJSUFFRVVcFut2P//v3Kv8XzOO/3j/Ux6n/QA3lgRJ/Gjx+vNMD+aFd2dXUp vxJd/K6P1p5XW3vHS+knyhsPedsVndXaraurw/r160VjD8i2CgsLvQgevXf7 v/e2z99raNR/8fGE7xl8RjdEwUaMY8WKFQozft8Y+XWil+Jt9cPqexpKdSw+ W5cT86KPORvjYyCP+27lh/efBq0/mocIG+djah728vm52vJL8qP6r9O696Tv rnxfdqWpqWnErO3atUtM0WOyRX1PtZn7zf8TFk/eg0VmZqZ+vvQsHpWXCBY6 bNr8/eYu7xk3wnu+gchj958cDZi+Q7pJ+bXazL/4APCEt0PfG+WjYl0LZ5TQ n/WxTF5Q2/2Tt43n7t9NX9ye8eHn/6S2O0XXmiCvdwU28ffySuEl4iFalVdO Up4e9Dl/Wuefl6S1tSjf/0e1hQ++3Uja2tq8I/l72aA2Ojki2eD/9IbCn0j3 1bxbNC2aFcHgH32sqF+pDfzWh0s/c59xitfi+QUfE/ff1BZeuG94/sG3QyC6 ajAYlH+94GMyf6l+1+98fMNTuoU8Oix+V0a8/DMXUEwro1XQKmnVtBr1+TkJ XVwiLpeOcJ8vffwezLQAIzrwiPKZx9BUVYM8ftHWjQbspn1NO0Y7RTtPu0S7 QsukXaNl07JozbxGm2bBXfROz/8XOp+4e7E/PspB9OHEz8cSekDX22Op27CF PdhJ2087QjtJOyd7e1X2Mo9WSCumldLGoIw//ZTXNWyjl239xMds/ledM94V NjSc4iFD5XelK4l+pbNt0bddtAO0ozqSlyW5XFoBrYRWTqsMNaCaVkuro9XL 52r+rvPMhb/1sV4e8Pbtp2pnX5WudA9H1rIXNYI/jdq8QiSu+cLb3Z336O41 ibFIIGSXKrSuhhnQEG5AE60l3OCH1ghBtpn/bEvbhpbsAjyr67bmE2N9O8Pf qS9e1i2V0VnX45Kx6HiSruM7aPtoh70+YEQGLYuWSyuklYaaUBlmRE24EfUR RjTSWiKNaKN1RJFxFAfQFSUG0BHJMYZ8gbacAm/UFjjFQ6C8/wD+dA8/EcuN w1cTpx+hLr8QCYtWKWPYTNtO26OsPCOObzThLO3SRjNXnBk5tMJQC0rDLKgM t6AmwoL6SAuaoixojTKjPdqMLtr1GBN6YozoizH68YcYSw9/Xpm5EO0cy49l v0UQ0wInsfrddzgvjfKp0etUzKzH41GH9VPU5RXAPTlAGdbwMjDSr0z0KzNO b7TgAu3KRiuyQ63ID7WhONyG8ggbqiNtqI+yoSnahlZaR4wVXQYremh9Rgtu 0G4azbhpMuGWyUgz8N/0vQ1f4vS7/j6dbYzvwT3kXTpPq29p86z/3LOjEoVR yayaizzH4c5E4tyP5JCNnEkT9nKIh2gnOMxzG230RjuyQu3IDbOjKNyBsggH KiMdqI1yoDHagZYYB9oNDnQZHegx2tFnsqPfZMMtsw13zFaaBQMWM82EAbOR /+a0fhiAvE9Dn5ULRh+8tG3TVyb40L2SI98QfnSPzVGICn7dD2VGsG/DRiRw 3lMWryYEE13awnhi5bzbOO92zrud8+7AlVAnssOcyI9woiTShfIoF6qjXaiP caHZ4EKb0YVOkwvXTU70mZ3otzhxy+LAHasDg1Y7zUazYshm4bOZZkT25FmE 4Y+uvIJndC4g3VuFoMz1d3w4A00ZsBq/1bR0rJed8uqH99mmNMKCvsCjRlbx 83nUcy3E0zmSp8xC2uIQhclW8thDFl+TxfGNTpwlj0thLmSGu5Ab4UZhpBul UW5URsei1hCLRmMsWmkdplh0m2PRa3Gj3+rGLdptmwsDtCG7k+ag2Wk2GvnY LciZOodsApDx4Qw5tWOVadyyZYu2Pr7nZePnY+7VjUK6wMiE7Pv3cAu5G+q1 rLaDq1j+AQc2fIXkyf5InTIHaVOCGCJsXDMORnAnI7iLEdyFc6FuXA6PxbWI WORFelAc7UF5jAfVBg/qjR40m+LQZvag0+JBj9WDG7SbNg/u2GMxQBt0uDGk GPE4icdJPE7icdqQMz2QaGYTjT/qtu78kZxdsbK1mdXW0rfC82Pvh578FhmX upH/jM6Rj8RJM5BK502bEoj0KcHYGhLFReNkPuPionHjdGgsLoR7cCXCg+zI OBREx6EkJh4VhnjUGOPRYIpHizke7ZZ4dFvj0WuLR789HrftcRhw0JxxGHR6 MOQSFksjEReJuJxoWrsBOTPnkcZc5EwLwNXJ00cEUG31POo7gPqKLHfx0PK7 0UpLtOsrv3tGht2sbTuQMskfaZPnkMs82gJsDVzFzNSNgxtjcSzUgzNhcbgY EYerkfHIiY5HYUwCSg0JqDQmoNaUiEZLIlqtieigXbclos+eiJuOBNxxJpAJ zRVPDvFiIO44IeZjySiWjGLdKF+8Ejn+85EzI4h86CnTZqI7P19my+PQwpxR S9XLae3896M6dtrm84iXxHAM0hVTxPN37x15v3OPREKEIK8q/BESJ05XnCh9 snCi+bSF2DblY+wJMTHKxOF4WDzORsTjUmQCMqMTkBuTiCJDIsqMSagyJ6HO koQmaxLabEnotCehx5GEG7RbziQMuJLGYNCdyO7HJojheAjNE0fzoGJJCHJm fYycgAWEFUxnoiPNCEDjjh2q4v+ekqfnks8J5sTbZY52iHacdlqXq1+W6qKR n204c+FhH+n44/f2t5/pMhQf6lmZEb5WZfDPkTxxBtIm0bEmq46VTlbbpizC nqlLcWgdt+zwBJyNTERGVCKyYpKQZ0hCkTEZ5eZkVFuSUW9NRrMtBe32FHQ5 UtDjTMENVzJu0QbcySQlLImMhCViKE5YAqqWrUPenCXImb2I3D4iNzqYPx1s 5mxkTpvmJ5kJXkJDiJxwm1RjB6UaOy2T8gypxDR9Qx3hp2Tn1Om8XOOj5ala zBcPLr3HRkkaWSC4O5bLPEctb/0YWVu3I3WiP9In0dEmB9MWYhPBbZuyBHsF vOmf4ETwZzgXlYSM6GRkGZKRZ0xBsSkF5ZYU1FhT0WBLRbM9Fe2OVHQ5U9Hr SkW/OxW3aYOxKWKdeFL4Iy5ZiLL4JNR+sh6FgZ8gb+5S5MxZTHr0uFkLaQxd AdzfZsxQuqdJQpGEbZLp9F4pZIW7naFdlG6m6ZlCvfzaqGqaMagJFRzFv2v2 HZFepy576UhKTVVb4jJLfu4ekV+k2iO18C9wbesOcuSCnRREhlywkz/CFnLc PmUp9k5bhsPTl+PEzBU4578Sl1fF4JoxFXmmVBSbU1FhTUONLQ0N9jS0ONLQ 7kxDtysNve409Mem4TZt0JNGgKnEJywFnV/EoHzeSpQErUBhEFEGLkPOXDri HDriHKKcTUecFYhsf3+BcYzC8AmF4uhygJ6icL58qQrLpICtoSKsE6owTFWF YxQx6IdG/swPs0qOd69uVYBLmMOJltgvtIKRtuGI15qDqxr9ZWRv3Ym0ibNJ lEt6Epf05I9JdDF2KEQ/weEZguhKnAtYhYxZq5E1ew3yQowoDotFhS0dNfZ0 NDjS0eJMR7srHd3udPTGpqPfk47btMG4dPR8acR1Wl3wGlQHr0bFvFUoJdWi oOXII9WcQDroXDoolUDOHBKdHYQT49/Clk9CvE659R41gStUDddoebRiWlmo EVXUqrXUqg20JurqForSNpoQp51Cr/K5nVYcbh1dnRZBUBJ91sfS1hUt1DLW H5G9hQA/ZEycyGU9aSFtEbZMXoIdU5dh37TlBLgCJ/wFwNUEuEYFOCcExXPX oixwLSqD1qFuvRmNn5nRvMGMts/N6KB1fWFGy/x1tLVoojXMD0HdfAkwWAKc t2IYYCABBnKFz12Ak//6bzj6xlvYMSdoRIVCFfpGpolGKfRNFPom5IYKkWxG WZiZItmM2ggzGiLZn0gT2qJM6Ig2USRzEoU47lXEceP6L5GzNkwXLEfu33+r z38fvm9ZRSz04UrxqyOJTlSJbpJE93KBH6I7nvBfNUyUNPNIs4g06z4JRfvn KsU20mzdoFJt2qASrvvMPIpoCKpJVSEaLInOI9EgLvSgJQrR8+9OwpE3/oKj 41Wim+T2socED5LeMWrzM7SL1ChXaTnUbgXU5yVctRURVtREWlFPa46yoi3a is4YC7oNFmpzC/oMZvQbTdTi1ORGVZNnTAhA7rpQjarmdwKZpPqDUcmhXl1r l4mkWUsQ1Yr3ayrZD0j2Q0GWsnvSYpJdiu1TPxlB9iwX+iX6acMGIyU1E994 hsa4NGVB93Nx93KRd3Gxt3HRN3Hx1zEIVDIYlFjSkG9OQ+k6IyqWfaWSnb+a ZFehKFiQXY6ceSrZK0yeD788HkeFr77Jxb48hGSN2EGi+0jzMEmeVEoAVvqp DVmhNuQpJQA7yiLsqIq0oy7KjqZoO1pj7Ogw2NFN+d9rtOEG5f9NkxW3Kf3v mM00E82ILG4dVz7wRw05aKUbwUy3+tVVLzWauv9rE0D//Wfl7ddxTQ/yQ4Kc uEgBuY0g90xfga8J8jhBVn8WTXjJyl4yFJei7C2DHu7ZsereLfbwLu5DbdyP mri313GPr+ReX8L9Kp/71jVDCjJiknE2KhmZa6IlyJXDIOctwcm/vIsjr71F kG/jyFtvEaKJC97MaGmhe1rpnjalhHBRKSE4kB3mQEG4KCE4URHlRE20Ew0x TrQYnGg3OtFF6zE5ccPswE1RPrDYMWAVJssHVjP1H9OHSQG4QnnclZfvKwCM 9dYAnhyJVMRPXVFPRfoIGnILkDaBSD/QkKq+uZWb0G5uQpcWbSDGhDFKUvh7 /hQpopoyDtJuu1PQ71JTyk6mlm1MMRuZatZaU1BpTkGJKRn5TEWzSDMjOklJ U4+HJ+LUZzZkLt6AvGASDV6G8xOm48irb+Lo67S/vI1DJCqKD9tIcg9JHiLJ EySpFB9omWGi+OBCUaQbZVFuVEW7URfjRpPBjVYunU6TG9fNbvRZ3LhpdeE2 7Y7NiUHbyMJDzlSms1NUZV284StfO/3o+y86tsM1udFiW1VQ3l+o+AV6WRz+ ndRLKe8zB5hA9B+o6NOJfgvRt0SbydojpYuQMAkin4hNFPdN3IrMYfpO2UPJ c90hZFAyWm3JaKQsqqFEqjAlodgopAAlQXQiLkUl4ExEAo5RWh2kxNq90YNL S9YjZ/4ycmeQFexffYPs/w17J05Vij47yHwfmR+mvhcVjvOiwhHmVioc+ZGx KI6K9VY4GpQKhwftZg+6LB700vqtsbhti5UVDl11w0EtH0ItP50SbKqobMxC 9hTFo72wtRuHAtu4UWyHhst/D/qW+g/K3Fb/tocCUIYTZaH8TmqwQ+sikPY+ s7APFirxRMxAbshGRVVTXY9RZPZLiuQecqsCfNClinIhzoVI77apor2FAr7B nIhqivlyo9Cs1K7Ur5lR8RT+8TgTHoejoR4mU7EME26GCxeOTJuHo6/9K42h 5NXxOPzW/8aOIEoUgt9F8Af0hRUmf2phxaMUVkpj4lBpiEOtMR6Npni0muPR YYnHdWs8+mxxuGmPI3xRWPGoRRVnrLeokjOTSd8MJn3TtYKKPxq379AEmJbH yrDiawoel7RHHrUYrh3ca1oeGPG2VsPifvB7mbRkbdqN1PeYQk1gXvzhIhxj /jrk5np1c+266T9ut/gGDoQbslMMTa0d3XaotSRRU+qyqjWmZiKpJ5oqIioz xKOQ2HKi4nA1Ik6pU50i1iOcjv1EvJOoNxO79a9Txyhz8l+UkHTw5dexZcWX nBHXN5RzxFdQNRsTUGdKQJM5AW2WBHRaE9BjS8ANewJu0WMGnPQgYaKco3iV B+WL11AbMov0p7iZKcs4M0QZZ7rP0ya+7gk//i2WxAOj39buzL0o2Se9G8TV QO4fsDOrPidfq6xCOmRV0iXYcyW/qFQtxdq+ZVOrmaKqKaqbrYwBjYwFtYwL lYwPpdF01yi6LeOGqJCKOHKSIEXldC9dXFRSNzPerP7tG9j28lsK+sMEv2v8 29g0dzV/H8vPeWRpKG64NBSlLw1x2THu1VuS0MwY2G5LQpc9Cb2Mjf20285E Ak8UlSECT1CKQ5VL1iF3FpPNAKbwAVwO/qIsNE+WhdT62TidkNaEynB8/49O wriR1TVdnBPJuHrf6kn6/16kvEuVPeEj7lEmmlkWyG1y33IoBXSxl92xqXub KLCLQns397x2UyxajLFqx37NMO2G/nGWyEUdX9TzdzPEi1Afy61gzW9fh/tP b+Ew8e9/ZTw2vz9LLZYwx98bYsEhbh2+Kk3Fd1WaktHO7ajbkYxeZzLTA6YJ tEG3WmXqY9ZYPGc58ucsQ+5sKigxBbMo7AMWqhWmAG4J/rPQtHOH9P2xIzIc DeFT34x61BYgTEuDRHXpDzI/T/j3YKS8t5BploFpllFJtcTdmiGbSLtsyl0c kYrdtojUTL3LI+72dDJlazW40BTjQl20S2m3lOldYYQTOUz1rjLtE+mfeCQE f46EeZ8jZUWEktgYGffX/PY1hL/4Jg6Q+Pbx/0cpAmyavFgtq1B1HV4agRMR iT7LUxW68lQLU9gORyq6nanoY2p7kynundgU3GC/Gpd9jrK5K6l7l6Ng7ifI JfUcQV3U9GbT6WcvkJWp2WjatVNGlnEjbp5qMugHOuJ+91oB6kyM88IWwV00 JF6/JIFfTd+HxHcWUCwYlPuCA8LEfUJxv1ARD1bcoon7iX00cX+xi0KjndZM 92mIdqAmSgVbTGGST4FyLdSOy3Rlce9SPGzvLoHz3aUwv7MIxg+XwDAtSAFu /+N47ORGm/4e3XuyWjTYPmUZ9lFDHJ62HCdmrMS5BZ8jY6Vax8q/Rx2rQ9ax Wj8zop1WG7gGNYGrURm4CmW04rkrCHw5cgk9Z44sBc75WNavmPnMnotr/tMl 8Ae8Z3UEJ1Guk9FGTd+9C2GUl9/jvr62/2o5j5iDjIwM1d+/j/1rDKhYvxE3 pPIVd6Vv025RDd+kKr5hNKNXKuWuGCvaaS1U0I1U0rVU1JVU1+JRSKUtVPdV mnqn4FewvLsacRM/Q+KMz+Ge+SmMxGuU6C1/GI+0v06k/lU18BamWjumyHoN 5ZuCfuYqZPivRlYAd8RZa5A/OwRFc0JQMmct/XgtykXthlYVGILqoBDU0GqD iJ5WSfzlAn3gShQEriB6iou5snQ4d5Fa6JrLCDMnENkBM7z3lfXR5en/PG8/ JZnRyirqoYpXcIkqpSvaoBxrEAccbshnUc8RJx+6aZ3RJrRHmdASZUZjpBl1 EWZUhauFIfHIo67MoonC0TmaeIS9uQam9yNgnfol3EFhMBLUl2+9o4TxVBFM RFVx0sde0Dvp3yrolThByOcIOcN/DbIIOYfXqqDXokQWyCo00EFrCXqtBC2g EzStPGg1Qa8iaOriQIIWNVpvQYygAwl6LkHPmglft0dk+FYCxYP3SRpH3IfS 33r7g/x8bXYxctdsVEqN3iMxLykVR1FtbKU1RxjRQKsLV6uU5aFq1VI8RBVT VDP3LVyPzUGR+OyVRWr88N+IsFnhsM/7CsbgEMWJna+9rSuPCbZLGEOWqYWc aStwaIaOLR04c1aIypZc69cbaSbUfWpCDa2aVrnOhPJ1RpSsNaIoxKA4tJdt kMo2V7AVxcYgsg0i2yDGkCCyDQxE1uyZGlrtbokIH0/pffg+mvQeXiwe2lHn P8v3mtO2KSXxlghRIhenph5SXotiuXi/Psyg3IaoClVL68UbDdqc7SNUz/tr hr+eUSJqynp8OWUdPp2+ARHB65CwPgLuORRfH2pVMinGfAJejbMEXLD4KzSs Nyg3Ym7QrnPn63Sou6HYFau5O4qbOEXcLXO4a16NScYF7qKnIpNwZVU0shd9 joIgAg5aoQKeR8DzCHieALxAAdy0Z7d03rGK4+oOqT6pg+z7zLmqL0dBHpGE kPIrEnBd6jZUbVQP0I1Rfr6oHKyr4Xvi/Qp5GPAc3fTovEgm6SE4sEK9t3FG 3uv4Wh7IEkV755oIfLngC7jWRig36LK37GBSP1uWzhYqwip9okp329TlSvlM 0M38+AuGI4dS4BH3BsU9whvM4q4zm+tgVtfC7K7BqmZ7ZaZkFDL7y2EWeDU6 CReYFZ6KSMCRsAQKqnh8/akFFxd9RqKkG0y6wZLuPNINUul+x0doeEIXGnSS RXvoY/GIZFqbHdHOq3LWxGHJQsmuXDil8M5HcZEYTxLjVmI8ukK9N3lZ3ts4 LXEelLeStonLRD3/l9gav1W5b6dNaNoEEv1AFg90RLeS6G4SbYuyKVJDkRyU HwO0m5QifZQk3XZVpgi5ImRLlSlJkTGFlDPZ0Ym4QnlznlLnZHg8DofGYR8l kJBCmyidLixeN0w0mESD5ytErxcVeonqJYueqLrux45G6qePDCJx0DYzXv+a jNjXOfTLVHFH5kVh04S1OLJCvTWp0RPOeJZ2YqN6unW/vAGyRR6tE44o8JV0 abcoH2TiHUClI9U+VadAmE6EJxZ8qpx08Ig7Qq44tfBC2XxHUfkJ6KV1UVa3 WVWpLSS3OEkhTlQUUI5fi4pnX+NwLjwOJyjXDykq0k2ELiJ0sj8OXBAHAuYT 4XwV4TUi1E6PiARYdy74cd8+qV/V8K06tCRMeLjYv16RGXZJRiWunb2JLe5i 5FSqn+XKJ6JHkMdocEbebjsuj4nul7fiCviJPBWkyvBRZNQOCxxh2Zt3M0AE 6pguxrHgtfIkjXuMUgl6BoMOj1IbumWPww1bHAV8HAV8HAV8HAW8qCvFocIQ h5LoOORRwGdFepAR7sHZsFj2ys1442K8cXGBOInUTqQ2moVYVxHpRwrSkugo jaj25xfyHN4IoiM1hN8wy7urReJRVVX1Z9lqqcB47hYxliCnaugp2cDBnGEc anx4nq5GJO+rwjr9w8VoCo3CkMOhFCRFYXLQ7lIKlXdsomgciz5atyUW7WYK aopqUeSsjolFeXQsiqJikculkBnuxqUwN2fLxaDhZNBwcpYcjMF2MrEqPMTp wqOrRLF1Ia6RSXdRkTzIMHKVjt6w1fHrKH3rqo5MQv/oZVSFa+fJKLYU2VVD P5Dfs/nIEAb7WnWM/g6H1nJveZd7xPsLcYzpnTiVpxQebHaaA4M2cbJRnHB0 4obFhR6zevpRnIIUxXdRhK+kFi6NcqGAqW92uEs5QXmBXE6RyxFy2U/bQV/Z rPAxCz5qgPVDNhEVx8QonXnMR3ruy1vuj2h0zUX1Q1HflIdFXtRDunCbkMqQ XT30Y/lN6fGdGLh1XQfpJ2jIKUTSO/OQ+h43sk8+xZDVpBQNBq0WDFqsuGMR 52Dt6Kf1mhzoNjrQYVDPzGratSLSgeIIB/LCHcgKdSjnbc8pdznE3Q5x10Pc /TAr95XEGV0/SegqCXUVFY8gpJ08FxufnzfGP/jNXEaR/IMXRTWuXSQKj4JC O8mfk1GH3gFtiYqfzyCLUj6JUj5r6aeKlL+jHPU1UU+aqSstlPBW9BqtuG6w oTPGhlZaY7QNddwZqyJtKA23UUfakBNqU3TkRZo4cX2UdkC5nSZuqxnHytHv pGzNi1H/okX7AzExahFX5DIaXZQQj4dGJ2sPel/9XrZSllGDbGXMFciuGXpO ttJ0cziOaDd5DlI/X+YO3G8QuVo/FfTTfG1EH63HYKKkMzOHMqMt2oLmKPXg e3WEBeXhFhSHWSjnLNw2LdwyzZxyM05yjOJ8wD7lKLZyuF4b776V67xf/6SP 9TCsjuQQ39AP59IdDofhsWboeXmt2HlHDmcs6rKLmKwsU1Tq9WjmOj188SS6 +VO81RFlpIgyojlSFVE14SZUhJlQEmpCAXuezV5fpV2gnaYdlcdFdqmZ6Dg5 kvbiYu83PyW/edQBcP04XvOOoxbZGRxHnDKOn8ueX6oZHodWDK+jEMyjEBSK z0/Rfk+gLULVLOJoT324etxHHPsplYepcmX2cklmLsfleb898rCBONOmzYU+ 8Xtacw/dfSpf1TAZm17Wj+ayGE2VGM0v5RUHrg2PZpxuNC1UXeJgkh8a+fMx RWUJUaAJghLdKLLkKTtxQvGkTBnEwZMd3ziKkQeJR5wEFfVjbWIe9Y6hjmMY 4BiqkVU7pP1ZXNqOJm+7D0p/rWUaUyEFTJU8sqYJmWJ5GCtHzoC+76NyRy30 idNy2ldoZzH0FQHNnWTXXxiVjNXWtKiJWNgelJ0qQlNpqzc4lotBXRGDqkFm 7dCv5aBSrOXe1h+SQaeHAKvYk0IJv0CezcuRk3BlVCJ8eORgxugGo83F6FPM wpse1g/iu0rHG2qasNW6T3ldGHsExZ6DyIjZi46KZuVT5Rn1yL46gM1xtWIQ +O+yWS1mC3tEttfNrxaHV4vZjcsSv9brU/Kwl6Ynt8vDYGNEAv+crq8a/IdG +wqpl20uQes+2oE8FMQdwbm9TUrHrrJj2t9L6oOr9me0lfKEsjipXEIrpDVX 1fxaj0NV1ZsiT+Ncco2KY2c3MtMrUXC6HNlbD2p/XFjcOfwFr+tbeFi5Ku2r izi7qUF53XWxG1VZfai9WI7846cwyOzgn2UzF6vvakY31oeRe6gS1WdrUHuh GvkXSlBdXimWBnKPleNm+20MVlfjf8i29mXe1dZvpC9nnW/Fzk1FOHWoCCfo oOVVTcMnYgWqokr0d9zBUE3tb7TsZP8gBnoa9a1pSd8NcUVxNW50DGCotu6f tCuc9Ri42am/Qkul+8QVpbXo6xhE1e6Tv5JX9OncRw3Lw+q6n2+X1aPoSCEa 9pz6hY95lVf8L3lFj7iivBFlR4rQvPf0z3xMlLziTXlFt7iishnlvKJt3xnt T4svVN11xV/kFV3iiqoWVPKKjv3nfiqv2HP1rivelld03uDb1a2oPFqEroPn tYQnNbV29BX/Lq9oF1fUtKPyWBG6D1/QssUUw9XRV7wnr2jr49u1Hag6XoSe oxe1JNwH3Q/kFS29fLuuE1UnitB7/JImbXzQnSSvaBZXNHSh4mQRbpzM0I6g F3fcdcVUeUVDD99u7EY5/a3/zGXtf284X3nXFTPkFXXXqRoar6OUV9w8d+UR ecXujLuuCJBX1DDpGGjqQfHpIty6kOmrMnblUhGWLs/DAesmHPecQ1NJi+pj mCMDViU9ZKC5FwWninH7Upb36sM7T2M7g+JX/jtRf+IiMo0HcO7LXWgrbZBS G0Ey8pW1D+FOS5+69ENScdRyBTnuPFRsy0dlejbyE8+gKaNAXhWs66btqys4 aa3AGVsJKg63o25fPQp25VNo7/Tx6c3hOTgd34iinZ2o/boLtUdakX+0gvH5 6qgejdZth+IrkbmzBiWHalB6sgq554tRX1Utr5onntT8YhwSTEU4uLkIZxks zp4twrXcKrkssVALW9daca24FQ1tvdqU/Gf/75X//3TfJ/zN/wWLujIF\ \>"]], ",", Graphics3DBox[{ {RGBColor[1, NCache[ Rational[1, 3], 0.3333333333333333], NCache[ Rational[1, 3], 0.3333333333333333]], Opacity[0.5], SphereBox[{-1.1436463625792337`, 0.6256564211764218, 0}, 1.125]}, {RGBColor[1, NCache[ Rational[1, 3], 0.3333333333333333], NCache[ Rational[1, 3], 0.3333333333333333]], Opacity[0.5], SphereBox[{-0.0299952093402423, -1.3032548666383852`, 0}, 1.125]}, {Opacity[0.5], SphereBox[{4.204278989134492, 0, 0}, 0.1786]}, {Opacity[0.5], SphereBox[{0, 0, 0}, 0.1786]}, {Opacity[0.5], SphereBox[{2.049116310154181, 3.9593426131522294`, 0}, 0.2572]}, Text3DBox["10", {4.204278989134492, 0, 0}, {1, 0}], Text3DBox["11", {0, 0, 0}, {1, 0}], Text3DBox["1", {2.049116310154181, 3.9593426131522294`, 0}, {1, 0}], TubeBox[{{4.204278989134492, 0, 0}, {0, 0, 0}}, 0.02], TubeBox[{{4.204278989134492, 0, 0}, { 2.049116310154181, 3.9593426131522294`, 0}}, 0.02], TubeBox[{{0, 0, 0}, {2.049116310154181, 3.9593426131522294`, 0}}, 0.02]}, AspectRatio->Automatic, Axes->Automatic, AxesLabel->{ FormBox["xl", TraditionalForm], FormBox["yl", TraditionalForm], FormBox["zl", TraditionalForm]}, Boxed->False, PlotRange->Automatic, SphericalRegion->True], ",", Graphics3DBox[{ {RGBColor[1, NCache[ Rational[1, 3], 0.3333333333333333], NCache[ Rational[1, 3], 0.3333333333333333]], Opacity[0.5], SphereBox[{-1.1437826082541385`, -0.6254073113222776, 0}, 1.125]}, {RGBColor[1, NCache[ Rational[1, 3], 0.3333333333333333], NCache[ Rational[1, 3], 0.3333333333333333]], Opacity[0.5], SphereBox[{0.030279067607571646`, 1.3032483025367103`, 0}, 1.125]}, {Opacity[0.5], SphereBox[{4.47071047112695, 0, 0}, 0.2572]}, {Opacity[0.5], SphereBox[{0, 0, 0}, 0.1786]}, {Opacity[0.5], SphereBox[{1.9369240835918564`, -3.7465598499855246`, 0}, 0.1786]}, Text3DBox["3", {4.47071047112695, 0, 0}, {1, 0}], Text3DBox["14", {0, 0, 0}, {1, 0}], Text3DBox["12", {1.9369240835918564`, -3.7465598499855246`, 0}, {1, 0}], TubeBox[{{4.47071047112695, 0, 0}, {0, 0, 0}}, 0.02], TubeBox[{{4.47071047112695, 0, 0}, { 1.9369240835918564`, -3.7465598499855246`, 0}}, 0.02], TubeBox[{{0, 0, 0}, {1.9369240835918564`, -3.7465598499855246`, 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.576421193835992*^9, 3.5764227397519073`*^9, 3.576422925829034*^9, 3.5764231384886074`*^9, 3.5764238279318185`*^9, 3.5764239975977163`*^9, 3.576424058328623*^9, 3.5764240906830797`*^9, 3.576424679646514*^9, 3.576425061191984*^9, 3.576425367295722*^9, 3.5764254517542706`*^9, 3.5764254889447355`*^9, {3.5764267239801054`*^9, 3.576426751295753*^9}, 3.5764269199008493`*^9, 3.5764269651721287`*^9, 3.5764270014889927`*^9, 3.5764282688040185`*^9, 3.5764664640830064`*^9, 3.5764666513301353`*^9, 3.576467406309061*^9, 3.5764674945896163`*^9, 3.576468216761685*^9, { 3.57646860682477*^9, 3.5764686350140195`*^9}, 3.5764687720290604`*^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[{"{", "}"}]}], ";"}], "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, {3.576423301196893*^9, 3.576423324940135*^9}}], Cell[BoxData["0"], "Output", CellChangeTimes->{ 3.5764211938515916`*^9, 3.576422739783107*^9, 3.576422925844634*^9, 3.5764231385198073`*^9, 3.576423827947418*^9, 3.5764239976133165`*^9, 3.576424058359823*^9, 3.57642409071428*^9, 3.5764246796777143`*^9, 3.5764250612231846`*^9, 3.576425367326922*^9, 3.5764254517698703`*^9, 3.5764254889603357`*^9, {3.576426724011305*^9, 3.576426751326953*^9}, 3.5764269199320493`*^9, 3.576426965203329*^9, 3.5764270015045924`*^9, 3.5764282688352184`*^9, 3.5764664640830064`*^9, 3.5764666513457355`*^9, 3.5764674063402615`*^9, 3.5764674946052165`*^9, 3.5764682167772846`*^9, { 3.57646860684037*^9, 3.5764686350296197`*^9}, 3.57646877204466*^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[{ RowBox[{"-", "8.088488662013571`"}], ",", "2.685981665761866`", ",", RowBox[{"-", "2.8549501454964332`"}]}], "}"}]], "Output", CellChangeTimes->{ 3.5764211938827915`*^9, 3.576422739814307*^9, 3.576422925875834*^9, 3.5764231385510073`*^9, 3.5764238279786186`*^9, 3.5764239976445165`*^9, 3.5764240583910227`*^9, 3.57642409074548*^9, 3.5764246796933146`*^9, 3.5764250612543845`*^9, 3.576425367358122*^9, 3.57642545180107*^9, 3.576425488991536*^9, {3.5764267240425053`*^9, 3.5764267513581533`*^9}, 3.576426919963249*^9, 3.5764269652345285`*^9, 3.5764270015357924`*^9, 3.5764282688664184`*^9, 3.5764664641142063`*^9, 3.5764666513769355`*^9, 3.5764674063558617`*^9, 3.5764674946364164`*^9, 3.576468216808485*^9, { 3.57646860685597*^9, 3.5764686350608196`*^9}, 3.5764687720758605`*^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[{"{", "}"}]], "Output", CellChangeTimes->{ 3.5764211938983917`*^9, 3.5764227398299074`*^9, 3.5764229258914337`*^9, 3.5764231385666075`*^9, 3.5764238279942183`*^9, 3.576423997660116*^9, 3.576424058406623*^9, 3.57642409076108*^9, 3.5764246797089148`*^9, 3.5764250612699842`*^9, 3.576425367373722*^9, 3.5764254518166704`*^9, 3.576425489007136*^9, {3.5764267240581055`*^9, 3.5764267513737535`*^9}, 3.5764269199788494`*^9, 3.5764269652345285`*^9, 3.5764270015513926`*^9, 3.576428268882018*^9, 3.5764664641142063`*^9, 3.5764666513769355`*^9, 3.576467406371462*^9, 3.5764674946520166`*^9, 3.576468216824085*^9, { 3.57646860687157*^9, 3.5764686350608196`*^9}, 3.57646877209146*^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[CellGroupData[{ Cell[BoxData[{ RowBox[{ RowBox[{"Clear", "[", "coch", "]"}], ";"}], "\n", StyleBox[ RowBox[{ RowBox[{"coch", " ", "=", " ", RowBox[{"{", RowBox[{ RowBox[{"{", RowBox[{"12", ",", "6", ",", "26"}], "}"}], ",", RowBox[{"{", RowBox[{"10", ",", "4", ",", "23"}], "}"}]}], "}"}]}], ";"}], "Input"], "\n", RowBox[{"hj", "=", RowBox[{"Length", "[", "coch", "]"}]}], "\[IndentingNewLine]", RowBox[{ RowBox[{"tpso", "=", RowBox[{"Table", "[", RowBox[{ RowBox[{"{", RowBox[{"0", ",", "0", ",", "0"}], "}"}], ",", RowBox[{"{", "hj", "}"}]}], "]"}]}], ";"}], "\[IndentingNewLine]", RowBox[{ RowBox[{"tpsu", "=", "tpso"}], ";"}]}], "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}, {3.5764233698526134`*^9, 3.576423438321134*^9}, { 3.5764243001914473`*^9, 3.576424310050665*^9}, {3.5764244238060646`*^9, 3.5764244305452766`*^9}, {3.576425337140869*^9, 3.576425357717305*^9}, { 3.576425430600633*^9, 3.5764254439230566`*^9}, {3.5764674720319767`*^9, 3.576467484418399*^9}}], Cell[BoxData["2"], "Output", CellChangeTimes->{ 3.576423828009818*^9, 3.5764239976757164`*^9, 3.576424058422223*^9, 3.57642409077668*^9, 3.5764246797245145`*^9, 3.5764250612855844`*^9, 3.576425367373722*^9, 3.5764254518322706`*^9, 3.5764254890227356`*^9, { 3.576426724073705*^9, 3.5764267513737535`*^9}, 3.576426919994449*^9, 3.5764269652501287`*^9, 3.5764270015669928`*^9, 3.5764282688976183`*^9, 3.5764664641298065`*^9, 3.5764666513925357`*^9, 3.576467406371462*^9, 3.576467494667617*^9, 3.5764682168396854`*^9, {3.57646860688717*^9, 3.57646863507642*^9}, 3.5764687721070604`*^9}] }, Open ]], Cell[BoxData[ RowBox[{ RowBox[{"Ok", "=", RowBox[{"{", RowBox[{ RowBox[{"{", RowBox[{ RowBox[{"-", "1"}], ",", RowBox[{"-", "1"}], ",", "1"}], "}"}], ",", 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}, 3.5764243304555006`*^9, {3.5764245803055396`*^9, 3.576424583815546*^9}, 3.576424636902439*^9, {3.5764254741559095`*^9, 3.576425484951129*^9}}], Cell[CellGroupData[{ Cell[BoxData[ RowBox[{"<<", " ", "\"\\""}]], "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}, { 3.5764243868964*^9, 3.576424402527628*^9}, {3.5764245687771196`*^9, 3.5764245694947205`*^9}}], Cell[BoxData[ RowBox[{"{", RowBox[{ Graphics3DBox[{ {RGBColor[1, NCache[ Rational[1, 3], 0.3333333333333333], NCache[ Rational[1, 3], 0.3333333333333333]], Opacity[0.5], SphereBox[{-0.381031425916537, -0.6599959294109405, 1.153125}, 1.125]}, {RGBColor[1, NCache[ Rational[1, 3], 0.3333333333333333], NCache[ Rational[1, 3], 0.3333333333333333]], Opacity[0.5], SphereBox[{-0.381031425916537, -0.6599959294109405, -1.153125}, 1.125]}, {Opacity[0.5], SphereBox[{2.4980804414652984`, -9.373709089407713*^-17, 2.0128875867029624`*^-16}, 0.2572]}, {Opacity[0.5], SphereBox[{0., 0., 0.}, 0.1786]}, {Opacity[0.5], SphereBox[{-0.9071248098723489, 1.5710427630235084`, 1.1102230246251565`*^-16}, 0.5241]}, Text3DBox["6", {2.4980804414652984`, -9.373709089407713*^-17, 2.0128875867029624`*^-16}, {1, 0}], Text3DBox["12", {0., 0., 0.}, {1, 0}], Text3DBox["26", {-0.9071248098723489, 1.5710427630235084`, 1.1102230246251565`*^-16}, {1, 0}], TubeBox[{{2.4980804414652984`, -9.373709089407713*^-17, 2.0128875867029624`*^-16}, {0., 0., 0.}}, 0.02], TubeBox[{{2.4980804414652984`, -9.373709089407713*^-17, 2.0128875867029624`*^-16}, {-0.9071248098723489, 1.5710427630235084`, 1.1102230246251565`*^-16}}, 0.02], TubeBox[{{0., 0., 0.}, {-0.9071248098723489, 1.5710427630235084`, 1.1102230246251565`*^-16}}, 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", "\<\ eJzNWmlwW9d1/iyS2rzIjuMt7iR247TjNEvbaVN30nSZJFaacWK3Td1OJqnr etzacSzJkrzGm+zYIinbU0mOB5RIyuIKkbRILCRAECRFYuECcAVAgotIUSQI kAQlUtw3vZ773r3gA/RIO/3lN3Pw9nPP991zzzn3Pvzk8YNPPfns4weffuLx e3bvf3zfU08/ceCeB/fup0tJ1wEwk2TcA3Ys0SH/MUOSJHbz87N7iu2SmXU/ Ui48Le+SIBssyXaLW79KuMVkt3LrGY1bX5R/k7G4uIi6ujrY7XbMzs5+a+M3 bpF/t8lvjI2NIS0tDbt378ajjz6KPXv2oKKiAt9S2Y3kuNdpUzTsjLXJ3mQa 2traWNt46aWXYhrp/JsqzFvY+7vkC1uveZ9t9HwKNzoYDOKJJ56QVX5D0fGi vNsee1PYzmxmj7G7hGEb15Cfny/fYmd/omj425gVdF9Qr5zR9m1uGeOFvcws YybodDqmf6eK7OLiYvk9As1V/51Gp27R6IAd7Fe+9JUEOIIIAWd6epodXy8/ liITwm6FQqEYMV9Xmvp7/oi6HWHDDRo23L1BF7A9nd+qQeD9vx/KnRrX7uT4 E12PNTE0NCTfZZg9Hg+ECeycWcWc6/5r+jAlrg83Q3y7CrHoWhXiO3nXisuc 3xtifXWXov0HnxHqrRuMEbWnMmiHDh1i53fw5sUtZiE53Y0bkojvx0jQQnuz apAnNi/YTObv9ff3x9q9i18TzyhnInolb2zOIzFzbuauqB5DLCKwDhaOwpCL Jr/MoQuH4Mxfv3Fbj30GcPdxrew+OzcYDEzzJlp/oTEk2MYwkD1q08Wbf6TB 1o6NW/jrGEdfVg18rYHA2vT7/d/gutgjYsBvjyn5kqL1Ae0grR7hohvYxqDF EkSKbLbg7+jRo3Iz922q+M5PCVo8C4lQqvYuJpyrr27axm2bh6cHVH3BBxD+ cFOFt/K+EWSzRCecUgxF0Yt/pepVEQo2177RaBOEMvuSNFz/Oxqjnt6/N9Fd btrANTnlwjUFGCbfSwifrIl7FL0PbuJ8wh1I1fdVI0jkQdJyU8yqXeqIuKGj 7eZqRHHAU8rNGsNECWT4aizm3v0prsYGNbnajzWw7tLoKaF2u9LOfRom3LGB 4zEvo1Yf1o5VKTFOtsWOkjS0K3UJ/mDTgHobB72Zq1KCFKaIAMd5Tdb20K2f xS4tQr6wgWsLR2H7f03gn11L0rYjRfuyVgGxiVFaBeQGoZqxx85+xhsWpRvv uS3a9iTH6NoSO1LVi0oHbWjeDSq3ZVwkVqksJJKpP1f1ILvFe3ADk7Qy1zbV gFGVAvFjkfkO28if/p3fDnp7MEgSIpkguUSyEIpu4TlB3Y8CslYPraciJenx acOOTYseNmbZ8aO8J/3UdrHOhEqdGY26cvgzyjGYVY7waTOi+SZcqXZjKRxN 7Dj5bbltpbDj9b12UcDaZDT8nLdZY3RDbA5dLdpPOtCf40K4yIXLBgfmLTVY rrTihV/+IqaDV2SiDryfc6UepWyjrB0bYuq092/y742wl9XLzxXr6ghys3zc le/HxdIAopYuzNX6serqgNTYDKmpFjOBrhj36j5RAhWvQK6NkCLaMuQUOH7J x7JeZ5FbPKvrQPXJHvm4p+wiQrYRTDlGsNQ8jKvtg5ACvZC6OjBQbJDfTCD/ DpXffUra+0/5mVvhc7dC/6Fdaf3EIGpzR+Xjyf55zAwtYCm0gLWxeUjROUiD Ycz6++ArsWMmHIrNe3gNJ7DfkxAFWDdoRAHR+ezsMX7NTwzrPzjHPVsZ3AFP EI6cPhgPlsWi13hoEdUFZEm5E2NdHUkaHaGEa17Rbbtm5LGoLcLzk8LlHZ3Q pztQd1qxIP2pOmTmzCHnnITIrOIvo91z8FZOoiTjAvVaANXkmpGgDyI6sHZU GYhbsWPTMJ8UH9CSNsh1vMh6int4j6cXZalevPJYA6yFkzRgJzln2zHlimDE HkbQGEJzwRBsJ/rJs31kcQNMOTZBY0IHcmPXwwfPg8JWYWUSb0XcE5v6WeJW qGAUiwRJlDzJfb5UZ0XWy04c3d+Myopl+IcljDmb4CusxK/+pxNeZwTzdUFE bb0YKutBoKAb7kwfLLoWnNE5CYsVDVWNWzmFjHTR9ykxK5XorJidnJAtlLNr M0hyDKjyhpIbs7OzY2+xxRxlkO3EXHgCk+0Uq0kunDZiOMeIUK4REZLLVS7M d1IM9/U8wA0z6Kpw6rVGHH+xHZVVq/CN8okcxSD9++dQ/E4NQvVeLNocmDI3 IFzShP68JgqFbtTp6uX39RSO9RSax0LRWOJm/izSLZG8VcPNdnKU8QysZ9OU jbjQ5ExpWCQxwcq9fCiF24LwZRvQdcqIno+N6CdmBoiZIZIRYmY0jxgiGc83 UjYx4lKBEbPVLqyMTeDPOVUmXQ1OH/Lio1cDsNauoTPMe5aoOvxKF4poWK6M RzFVZMLlM2ZE8itwIduCQIaFMlaFnLlYBmNZhVG1lSNifsjo4l6/CVXb/r+0 qDfW1Fd4tJ0enUCwwoUWoqYj2wg/0dNN9PQSPf1EzSDJRaJnJE+haIyomSBq JkkuFRoxVWjAXI1C0zc5TRWUsXLfbYPuUB8s9VfRHpEgMPk8ITzztA9tw8LL tuFKCxUYRImfqGkiaaNjVngwikQxo15f0qqF1fxoLdpt24QfRr/YWFibnJzk /HwRzkwDGrMM8BA3rcRNJ0mA+AkSP73EzXmSC8TPxTyFozDxM1agcBQt5Bzp DZgmIY5EMVB5wonC9E6cODwEf7sEb0TUiUkoyvbjrWNTGJsTOeOawfRpDHC4 arBqZ0l0oNio49QyQpgvUvRSUuftaDU7UUdcuIiLJuLCSzy0MT6IiwBxEcwx oS/XhPMkF/JMuEgF2QhxMUo8REjGCxU+JomHyyRTCh9f4/bYTzaj6IMunHx/ lAojJbmJxbLDv+lGSb16bS4lNjdWr/xqJTI1KetRNGFRMjHkxui4j7dpO1GG mpMG1BMB7iwj6o8XojotE+WvH0PJ/lQUkxSRnHkuFXqSAhLza8fgPJKJgK4Q EQI+RjJBoKMkl0hmap338rTqo3qiNqsdb/6HGZkfTsDfLSE8KwnXZ0Pm18/Q kBkRq7HJccNBiivpf78QoYKZAgvBrCKYVccKZGiGA6n0gPFg6hY6TKMYV0a/ pSRn96cR7jQUPZeGQsKavy8VOXsPE94sRAjbGMmEvgzRM2W83FFA1n3chbf/ qxKZGZcR6KXSZU4S65ZFpwJ4+8NpjM1LfLkq5ZrF1/XZugJyuyagdaiq6wKi iSCaXzsK08HDKD+YSpJGr1QcTNtCh+kE0Uy/JhLDgXSCm05Q02WoZxjUfWnI 25sKI3VtIKMAYYIYIRELaH65LuzHu/9djZPZVxA4LyE0J+3iEFNfDeITZ/yq uqi+xahTL52o656EWbl89DWuoyOvlIw/DAvhsRAe6/NpqHw+PYkOGCLLwSME 8Ag9cgSmA0dkZKWE6hOSIhWq03sOo5NQjehL+crdVnQRIlf+ENKfroO1dB6B CxIuzly9OeaZo3h2jx/tIYnX2MoKJNuYd3IYu2Imf533ziJli6HCUtQfOkam kn/ZyOZbUEUG22Q5IksliZXMtnDzzWS+kUQ2/7l0nNmnmJ9L5p969jCm/N08 YqYgSMVow5kw3t/jhNW8KBdz4ktBMfnhb3+nONu93CQW71TLwopf4ruciBl/ ECHq6hESJxldRfbanyevsZO5u+j3CF1SjLaRoZXC6AOcczL4LBlcTHzryeB8 Mrjg5aMItgT5ukkKVZ8WNH0SxdGDTai0rsAXEt/skuTBk/paL866Jd7tSWp3 EUNfWDtH1o7JzmkgJzWg72ThurXXo5p+YxZzaxnNFWSpmSxl1paStSVkqYiN Zho48akiBWbK1Y0kXSRhs5stDPA8z6vK15tw/OV2WKtX5VLp9hiaMPbuC8hu IxbGxZSMdUEcmh1YJmdhkYRFz3EWXajkCFM07fggC+5DH6JKHsNVNGgpUtNv JTm4haScxMThVLx6HJWHs+Cg9MU2FuZYuBMhwl7mkPdNZHb/qRpMFNkxa7Bi 1mjC1OC4WO+QC8C3WvDR612wnFMqmzs5gjd+XYbffjSF8QUJf6xK2+wbHHeq 5Fga4kHrb+TdfSwZyElhkicIli1Z0mDZM0TCsmnLe9nwkjQfyUZjejZcJJ7f 6dFOGbiFMjHLym4OjyWrAfItpj0yHFYgZrTAn+dH2NSNudourDW0Q/K4UPqM DrmH26F7ux++VgktEekutdu93ofSRvFVNP4LQ2IZokL2PV4/TfNcL6NjKbBQ qY/CDBnVB8NUM7F6YYDqhj6qIYI5Sj3B6gpWX3gJVSNHVXfSsIVndX9DN4qP eeTLvaYxRF1RdGe1UHnWBm+uF00lnYjMSHerPG7f/i7yuBUORCm6xYKtTqdL ScDCRGlN+YpIwYPVuQzLZVbHFCo1noyFcITylBqQ1YKsJmT1M6sRWa3YQTha CYeH45iimjsGxDmAkqNdHMgsWivncKE+giH3NPpqLsJX0YDp8PCXuHVvPmtA xsczspN9m19TrzFoFYbXKSiUz7G3yJU6m9hc5lX8RL5S1YfzOIpcpeo/f1pB wWYDPkLQTjOEXpoprGfZnfKxr/Y8arM75eOrbYNoaKTA6ulAa+EgOqyD6Kxt UPtT2hv9KGuW8KeqIaJantgEwD/IuxuxEplg81dM212K8WxqkqvM4thsboBN Xcjoi1YXxtt6eE/GpU6qH9bqarBob0R9dQijjia4MxpwVleNYHtnbEj7PBE8 d7AbI5MS/ozH1oS5mvB7rVVPbvfPeEW+PBaV1ynHcs2ozm6A57geFpoRstmg aPHNPUaczKH+XZTwFyJZLi6q+1gGwJdBHuWPsKXZKnMPepyNbJn0DhXf6W8O wOCV8Jc8hLFVA/GhQHwRU4I2X3lMgmtAwvL8hKrgZqrGsP+FoEzFd7gqRoMo XtiyEKMjQZWDSqClhUvy2W0C414TMvNmZYzf5dfUH6SS41XU9ZGKpSk+BlXA 3hqEkeLVD+IfP9fDHp+Rz74Qe3wcB17qReiShB/GP15DtfbS8iwfG8q1Q3vN yCqYwwQZ+GD84/aAhMXleflsl8qYI29fgInmcT+Kf9xGU5nFlUX57CaVMc// pg+hyxL+Mf5xa6eEhZVl7ufcmH0VyNYrxvw4/vEKanBhdVU+u15lzHvvXIS5 Q8JD8Y+biaz51at86IrHJ/DCa/0YnZLwk/jHjZ71x8Wn6rees+BU8bxszE+V x/9Z3t2AHnLBAW8vHOTRHpJOXTkyPyLOPT0YPlWOcI4Z09UNWAz0sjWSJLW9 7w6jnKA/omh8mKcONv1nY6OUtFl0FajTWSk/29CRYUcwy07aBxBuO0+Vjh2T JVWYLq2knG3BvMmMBbMJq309pD6KF98YYPj+SdH+U66dfU3Qk+YiKrtMlPWr dbVw6+rRSjPzQJYb/TluFB8NYLQ2gMkyN66YXZi3OLBkO4cVezVWqytx6PF8 nMoaxnhkQqGBc3h7TLueNJfo6sh+F9nfhOYTHspRLejJa8OFonZU/W87QsY2 TFvbMFfViqVaL1brmxEpMqH0dTtqqwYgua1Yc5qwNhXlGB4SuZgYii/KbkWV rhXOkx2x65cCE5gOTsB0ZgKTvRNYGpjA6oVxrLr9iJQ2oeq9Wsy4vZBaG0jq IXltWG00Y+VyVHTIQzyA+al79RQi2VZMzbBtwDuuOe86U00TmjVpC3eftw5U 4nTpAiSK3dIgYQpQ8RFohuR3QOqwYW20N761ZNg/cVBrbnKBvsSUIyKFONbb JEytSrIzfZA2iuZ+SXzdlELnIfURvKADVzrqExDlp54m/b3XKFxvcOt6IxYJ jsZLeOXtQYSvSGJBS1qgWDPowWjN2XgEW5H/TgGk6dFE7euL6/S63izBOaD6 SsZULl5BR1GBfPawWmUK2kpKFTVT4QRDtT4sUngzBuEuLNFSFWp0QuqujTmK ND+rypDiD2wB7xj1QiuJC9ackjiE27Ey0oO1Nisk3znqzkaSViKDGI+MQ5qZ 28FpvhyaxXlyFIOuA2d0XlmZXmeXHeoR9cC5A8tuE7kgaWypJXd00Z6cxENa mzrIZX1YcgSwPDCOhf5xzPaOY7p7HJP+cfjyAvBk+1Cvo/mGroVSeRM14ZAH IBuIbKjENXU71sjDV+upOVc5jbEq2p/DVYeTKoNGLNc0Y77Ki2lLC6KmVoye bcWgvhXB3Ba0Z3pp2tOMGl0DTYEcFEFqqYlKuRmKVwlxZu0StdLqpnhhJrFg pcqGpcoazFecwxVTPSZLnYgUO3GxwIW+j53wZzrhpTjk1J2DjQZbmaxZWV6n qMLjjALlZqxFo1hqcGPeaKbYV47psxZMFltpjmTDcI4N57Nt6D5hQztpaaD4 WUvRrpy0lSjalNIE/8JTyGKgB/O+Xsx29mI4y4yBE2YEM8zoIGRBYwOGqL/O U2SLEplK6fH5+Nfs53eH6/4PzewSLA==\ \>"]], ",", Graphics3DBox[{ {RGBColor[1, NCache[ Rational[1, 3], 0.3333333333333333], NCache[ Rational[1, 3], 0.3333333333333333]], Opacity[0.5], SphereBox[{0.3810049479829933, -0.6600112150467423, 1.153125}, 1.125]}, {RGBColor[1, NCache[ Rational[1, 3], 0.3333333333333333], NCache[ Rational[1, 3], 0.3333333333333333]], Opacity[0.5], SphereBox[{0.3810049479829933, -0.6600112150467423, -1.153125}, 1.125]}, {Opacity[0.5], SphereBox[{-2.478676422175762, 3.029610116398616*^-17, 2.4639785809672344`*^-16}, 0.2572]}, {Opacity[0.5], SphereBox[{0., 0., 0.}, 0.1786]}, {Opacity[0.5], SphereBox[{0.9072237654885835, 1.5709230568231887`, 1.6653345369377348`*^-16}, 0.5241]}, Text3DBox["4", {-2.478676422175762, 3.029610116398616*^-17, 2.4639785809672344`*^-16}, {1, 0}], Text3DBox["10", {0., 0., 0.}, {1, 0}], Text3DBox["23", {0.9072237654885835, 1.5709230568231887`, 1.6653345369377348`*^-16}, {1, 0}], TubeBox[{{-2.478676422175762, 3.029610116398616*^-17, 2.4639785809672344`*^-16}, {0., 0., 0.}}, 0.02], TubeBox[{{-2.478676422175762, 3.029610116398616*^-17, 2.4639785809672344`*^-16}, {0.9072237654885835, 1.5709230568231887`, 1.6653345369377348`*^-16}}, 0.02], TubeBox[{{0., 0., 0.}, {0.9072237654885835, 1.5709230568231887`, 1.6653345369377348`*^-16}}, 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", "\<\ eJztWntsW9d9/mJZseMktpM1z3ZZtjRIli3bsK2PdcMSLMOybmuxYUU2YMAA L9vQFKjjJ5Z2S9oE2WzJadc4SUM9LMcPybJlvSiKIvWgHqRISpREUSQlknpY b4kPSZZt2bIti/vOvedS1zKppMWw/rML/HjPvZc85/t+5/c65/Ibuw58+1++ u+vAa6/uevLlfbv2fPu1V/c/+Wev7+OtrLsAmCh5T0K0k2zKDxOSyaR4+As5 7RWnLAHkRfXGPuWk3FFaQl74v3+k4NokHuxQbmzG8vIyWltbFbly5cpvqd/7 gXLaknr6yiuv4OWXX0ZZWZnSrbgnv/ofyune1FdzcnKUr5jNZtEhFhcXlZ+K 67ffflu597z60+/rRikuLlZGeeONN+D1epW2OG+SOMXPREsM8eqrr8oe/i7F 5wnlxt13IJYw7pE6EcOIx+LqN9Q+/jjVB58rd+ShaHCnHF+vTB6PZ1CQGG5q akpAxDb502g0mtIKochhX1g3S+LYlGbmdqQH8IiOr34AQXBsbGy78jhbwSbU WF1drWASanxO7eNF+RV9xxqQB9IP+pDS2HoH63UjPKBTtlCIuPr1/xXWD6aZ ZY01B87SDRwIBJSrnfKeUJKcAQ2Mbuazb5v5T1HDjnVqELrX2Zpyr7Gx8RH5 a82spXbuT8WGR9UO/zQN/50paNt1lDUnEYfgx94+v84/pM63p+lTxYOXUl3/ SobpXMfjCdmX8GTNLRV9KYrZnHmkXRl8UhycjqckdM3dpX7uy9zhCynVfUG5 cc9t5q9Bp/mnQoVo68cR11JFG4zzYppHj2UgI85E8FwaJd2beYSvbqi/h3Xs 0k2MeCoGWvNmNZCHQiFNi/ekZvmxzJx+aV0U02tRjOl0OmWYz07dE8+FBg0G A76YuWvVdbbdEdvFBOgpiPu897zUrlCb9liIVOVTmQfavkEkFgOLQb+imxwt Cv6azqQUPd2fIbYIpehiix7d7+sivDYu+5dd/6XOvdLZqEDz/vvv/6FUsDah Otr4VbWnZ1LWovmiHqSWu/TIXtQx1rLuk2pnz6YJwZ//DAanTc2f6IKs5rY7 UlpUY6MK/FPiQ2a7ExlUc6jl2Xjqd49LfWuwpJp2phlC9e5UL/pHn9OR3cg0 Rftp2VncG8aEpR1Dnxhx4YQRYyeNmKBMnzJi9rQRMUqi2Ihr/jBuzsYfTaP+ dClNC2dbM6N9YIMgrcu5z8i0MeMNoa/IiOBxI0IEO0iww5RRgh0n2EnKNMFG CTZOmSsxYoFy8Uw1rvtDD0sE+pi8JTW5d6daWWmQbtEZ651Jc2cG9xKa17mX oMSco1x9UQapxek4Oo9Vo6eoGj7y8lP6yS1MXkPkNUIZJa8JyhS5zRRLfiWS 3xkjFslvydYuS5jNyjhaMiCc7PSgsz8L4WdTX9r+GTx+9+7d6jQ/hIvk1V5Y jQ5y6+KcecmrjxIgtwFyi5xU+V0grzHymqBMFUt+JZLfGcGvGhdLVX7aBGqx VVje5vTkMtxOV45Jpl/eIAfy+nnp3PPk1VJQDTu5ucitk9y6yatXzB25Bckt dLIGgxR77jH4Pi7F+OkaTJLXNGWWvKLkFT+j8psvVfktB0Kp+RMQdEVDVnou Wamp2ZRq6ap8dbaUq9/7GVKuxrPL5ICNPFvJs5083eTpIcfmnELUvXUUFfsO o3w/hefzlHOUs3sPo5RSsvcQat88ivYjhSmuCXIUXBfOVqV4CixaKuM5A89t mefsdzaItcLLmYHwu3JeLflVaCChZhJqIyFBwnjg8CbUiA/jgRwmyer9Oaii VFDK9+WQWI5CTJAq3nMYp14/BCdJxUgkTkmUVsl4f7tRbkrPZK1uUZdssv64 W/GnNPXvl5THj6KW0K0FVag/WoLaA4dgPnAY5oM5POekzrUHcmGi1FCM+3NJ JReVFEGjbG8O5yYHZ/bk4PTrh3GCNAbySkijCjei8Yd1ZicWwdLs1qxKnS+5 pty4pPZ4PF+W3RmJ2vx+CeqI1nKQOrYezBEfuZt4mUtt1xGq+cARBXrNfhV2 FaViXy4h50rIh1XIuw8hmFcsQ0C2Eln1lZA4P6avAe4smoQxaAXS12Q3znNW WKnR+oOHKTlooGTxkxjrDx4hRis/LcRYp+A8AtP+I8R5BFXEWLE3V1Ut1Vry umodjccqJY7by2W5HHpaF2TSrGy18CQCuGAorv5A0hmrthIYRyDURsJsUiSX 7VzaWyNx7uDzIwru21ATbQ2lmogrKeeJ+hwRnyHi0u8fRTWnKT4VlwjvsAJZ 0z+VQana6lgQeEEqdZZmNVRQoiAVKG2UTfykUpsUmAKsApXwrBKmeb9ULiEK 5ZZTsWWEWU6IFtq+iTDD3aEUzHWxQ8J8MkMQFwf1/ZJEGCdCYfwjBWfgfucD BWHWGsLtaCSiBonOsl+iIyoFHRVYQWTmQ8dgYzCpZ1CpI7pId+jxNDOvWix+ eV0MXr+u1sfgl6Sy5xgrEzLUiJAzkl8K99saXDH5Amku9ZhLpLmoo/OYKSpS msfhIrgYt+0Mdy1E2kSkViJNTMW1alMzQjnb0tPXAlW60iDr9pyTJdHqg5h+ p2tubg4vy6xypdmBBTKZU4InWZ1Rs+EMs+JgXil63yuCl9JN8RwpQgfFlVuE dkofs6uX0sUs1EFWTrJqI6tmsupmttJ2C8RCUbMMLuQkpa1rOXLzbTlS46Jy 3Jp6ph3675KSlmZF75pC/kL5fBiLIr/JPDcn856oZQQ7UduIGmeMtcDIqRoM UcKsf/pPqDWRj9JDZh4yc5OZg8xayYz1hrYu0ixKNXENspoeVQ6b19UA6tWd dcHmFGv1F2qFWFRUlPqVKFP/SpZyN6NxXBJlCkuxeVm2iPIsKss1UZaOn1bL VFGuDlJCJ9Qy1i9Lo27SEqVgsLZdKQ2fkDjW7Y9sSWNuMleuo7VW+GRnIphW ESpVYZ/aIZLtN5W7D2CpqV2huSCr67istsWqYvK0usq4QHrDlAgpDpBigPR8 pCcq+KmekIxBmxVvFoWxXMhsQG3Lz0tDfwj3+8aaId+PZS7X5slBO5x7jqCb 4qP0v/kRBj8qxRA5hMmhnxyiXF09ncbUsj8FeLrt5S0bANc2K8UhF0hS//fd NoY4Sg01aH63WGkP/qgMUx+VIZbPyiX/E8y6+7Xl2Dor+jTEEp4enF7r62dC HPrIISZW7rf9dQbcZYZ2tOT7lPaMOYKrbSHc6vTjSpsLw1XNGm4t4MuN/0/D vea267Y41vt4CvG3MuCr+Kgf7aenlHbCOY8bfXO46J5GsHoA/lKLtlYXmUEz g7WAf+/PYbUbosl7y4szb40pbUftRSRqQpi3RNDfMAa/2fGsnBUtuWirsrWN BxXL1rTjriHS3VeR3K+0+z0h6mJUaf/g0CUEXHNKO94yA7clhoHWBGZDMUxY GrE6ekHuAWTftp0nJ1CDs5Zs1u0qKK2/lRE85AmncFqMywiMJ+FvHFdNbRsu 1/diqtLHVaUXjQY3zhoa4Buex/jYChbNLiRDI1jsCT0j50pzK5H61LW6bufq FYk57BlCx/kYfrLPDUvdDQQmk9Kot2Cp1YmLZSbMnq5DpNACl6EO1QYTbEYn tKXZzMUkuj2LWOmO4Eab82l5m+v+1P6W9hYA+Gc5aJWhHkVvuvHBv/XA2rAC /7S2Ms3GfFcYIxzAQUd38xzg9d3y2dSlJK5RZl2DuFjdiVvDQ9DeO1yeSiDG 7yYoC11h7RWYbpNY2yXbJXszGprwydtd+OjNACzNt+Cb0fa9s9HL9tTYDY7i QDIYQYImoU7ldtbGCUS6IpwCE1Ga4DHUwmcwcwFlxnChGePHzZg+WYtYcS3L GhOu90dwM5bQtgb1rwwlon+Uo5oMLTj1X158/E4Eta2r6JlNyryYDf/wTcQW k+jzzGOlcwDXGuzS7x5UdHSO+qoiEgsnqcVghZvG4SXDYIENg8dtGDtpw3SJ DfFzTVioaMSlKiuWjHW4ZjLhhtuJW4mE5hrCjsWmpJy8tbcf6hfwDxKSJc+O ktw+5B26gIAviehlbRcrGzNsdwWTiLUPYKbChZuRiJzGhxClAkUcLyXc8wYL aTdSmc1UZhs8+Q70FToR+sSFkWI3Js+6ES13Y77ahUssFa5aHLhe34qbjU1Y abJQTFidT6TKUmH02nyvj546Cn8vYTYU0I1+HEDBj6eY9mlZV5KpdwyBKK/H rmP+XCuSvqA6whcU61fR19EDG1FhaEUdo3szPdKV50FPYTeCJ3owWNKLsbJe zFT5kDD1YtHixVJjD643d2GlrROrDidW29uw6mQUcdRidSGRSiYioImdVNrI 3WlSwF0qiW/JsOGncdqO9eD80TAKPowhGEpiZin52xKwny49R8sJeuK42e6n jVYQvIlipbQoqana0AmroRut+b0spf3oPRlE3B/DQj8rvVAcVyJxXBuK4/oI +xiNsZ8gbrn7kPT0ItnVhWS3k+dm3qvVZkK/5FFIiL8vqNAl/r/R4W85HsA7 /1SHgrx5BAeTmF5Kfkl2FBhMwNqcQKK1T8btzRjuWisZoO2ecBSxfT4ygmSA KSrg5rTZCL9PM2xRfOnWNtlpUX1T9hUgKvvJCP7zXxuRd+wSgiNJTFxJflUG xwAjgKrBNnz4ow4FRsfHHRLfnXO2VWJILjFBTAwhGSa82AUNmohTQlNy9Zph v0ha79ckBuFIQ/T9NpqjlzJB01zsCWOZ97dJCw/KZHb4Oy2oq7yKwFgSfyTT rnBAYQGlhg6a9VDKSRYYY8OdM1hu6cV8lU27r71DTM4Mwl98Uru6Y7bXrwTl jsU2xXVEAhFHX14dRorqmFzMmD9rwuL5Gp5rcCOayJbQBwjddXYa7+22w2Ji OpxIpl6pl35oJGwXp2HmjiVpbCmZek2UHJ7GVX9IApAxYmoR7pKKtSJmXSmh xQ/V9dS3l4yyDZWt9BUrQ1Wr0vnQqQ7MlncwLLmwzGi8YmNIajbjqrUGyzHV mcOeQXSUx/GTAy5YrDdEplOV8QgqOWEtlA5KL6Wf6WPwWBPXgu0YP9eDyaog CvYU4/wPHYi1xRB3sQ7qugpnYUAZ3rTHiIYDRjS/UatctzECj/iXcGt8IsW0 lDGpietKPVN9lSJykHi1eRvTLJR8aNLVS2rxMd8YwbKdRWtHkN5O9/I60X7E gMLdtfjgez2wNK2IDKqudX4TNWQkzLKT4qMM5NdhsMiGC8UujJcxvxiZFywj iDZNIWaPI+5eRKL7Gopeq0D5d6tRu9eIxoNGtHzPDPsPm+DI5XBHe+DI76dX DqP5zCTqWbcYKy6is+kqEr6bSARXkQgnER9iLhpl8Ka9TE/Ra5nMRxnMf/ou cUxchi+mmrn1wrq3A+k9Njp1mZYbojLtFLO2bNNevEu3Fv18RRaRfe29KP1v mxoTSiaU84wtikvuKFZ6ZzBwsg3eAgc6C1sQru+A2RKQ65DnYKay7JQuSh8l lG/B0PEWjJa4MXHehymWwjPWUURt04g55hDvuIREzzJOfKcSFbuNMO8zokko 7t/rYH+HSfWIC+0feuEoHEDbqRHYSqdgPR9HVQWdoOmaqrh+Kk0obnhNcVOs ySZYf1yg4gapsH6Kl20n7w8tJLWyq6+8nD7mQfLq5ZTXr+2eaEEowHBdyvRS ylRTysJE5M/tep1lwW8fwNn3XHCXDUqbUzfIbJVhfPxuBB1lLE4rR2lALRgr tfJ8Fo6f+mA/FkIr41sTA0Vd+RzOl19W9JHoW1F5RRgQGLqjjHszkyqvcfIa IZ8IJUDpJi87DSU0typfjTAERRkP++2M08xu4yNK3Nbevoe6YmhmvCw1eCQl mxJLRR22jlZfaxhRF5PjWFDSolnFrmBlZglXx5dwcXgJg/Z52E5OotPoQ6/R +OfS+lYXGUO89Uj2EUUfVexjrh0ikuk4ny2p5nkPJr1x/uoCa5A+xpQe1iQd BOOgNAlzVXS943b7nBlJ4FaPhSmSwALqovQWFwJLjguINYxyQTqC7tODaMgL sq7sRKTDia8rv30UqwEuNDqJytNGYbvDg1WXFysOH/OFH5ebglyqBRE19WOi Moihc0EET/vRc9wHZ54XNppBLSGWG0QZ1SrNQYXJfLZDH4nuwyJj6arDzEKJ tQWXystNHiyYGRzLvfSiHhZcnQw1wi8tWJxLfF3G1luspVZaGffsdVi127Da 2oaVFieuN3Vgqd6Di+YuxI3dmC7vxujZbkROdcFf5EFXXgerUBcaqL8aJsZz rO9E12q5pACUr3YlwntxnZF+sbIGV2tMuFJtxkJ5PWZKGjFU1Igecmviz8vk okn9j8TncGuO8LqcuFlfixtWC5a5kFyqbcYlYyvmKu2YLbNjosSB4RN29Bfa 0ZvXxnq+Ba2cUgv7rGKfZ5XcXSNs7kF9VbAVS74wpo/VYKygBuE8tTIQicah rqbU+manKPix3O7C5Uom33Iz5s5ZED1jxeQpOtfxeoTz65mkrQxEFuqkjkRq Wamb0KZ2o/6vAB/IzHrVH8ZSXwSXeyMYLTAhkmdCgN/uoUyyVBqlsFSRu/K/ 2P+r/v9pwxPu+h+F5SiX\ \>"]]}], "}"}]], "Output", CellChangeTimes->{ 3.576421193913992*^9, 3.576422739845507*^9, 3.576422925922634*^9, 3.5764231385822077`*^9, 3.5764238280410185`*^9, 3.5764239977069163`*^9, 3.5764240584378233`*^9, 3.57642409079228*^9, 3.5764246797557144`*^9, 3.576425061316785*^9, 3.5764253674049225`*^9, 3.57642545186347*^9, 3.576425489053936*^9, {3.576426724104905*^9, 3.576426751404953*^9}, 3.576426920025649*^9, 3.576426965296929*^9, 3.576427001613793*^9, 3.5764282689288187`*^9, 3.5764664641454067`*^9, 3.5764666514081354`*^9, 3.5764674063870616`*^9, 3.576467494698817*^9, 3.576468216870885*^9, { 3.57646860690277*^9, 3.5764686351076193`*^9}, 3.5764687721382604`*^9}] }, Open ]], Cell[BoxData[{ StyleBox[ RowBox[{ RowBox[{"k", " ", "=", " ", "1"}], ";"}], "Input"], "\n", StyleBox[ RowBox[{ RowBox[{"Clear", "[", RowBox[{"conn", ",", "P", ",", "tpln"}], "]"}], ";"}], "Input"], "\n", StyleBox[ RowBox[{ RowBox[{"P", " ", "=", " ", "4"}], ";"}], "Input"], "\n", StyleBox[ RowBox[{ RowBox[{"tpln", " ", "=", " ", RowBox[{"{", RowBox[{"0.0", ",", " ", "0.0", ",", " ", "0.0"}], "}"}]}], ";"}], "Input"], "\n", StyleBox[ RowBox[{ RowBox[{"conn", " ", "=", " ", RowBox[{"{", RowBox[{"{", RowBox[{"7", ",", " ", "24", ",", " ", "25", ",", " ", "9"}], "}"}], "}"}]}], ";"}], "Input"], "\n", StyleBox[ RowBox[{ RowBox[{"rln", " ", "=", " ", "1.246"}], ";"}], "Input"]}], "Input", CellChangeTimes->{{3.5681154444347754`*^9, 3.568115497147268*^9}, { 3.568127214924899*^9, 3.568127265796589*^9}, {3.568128215276656*^9, 3.568128238536297*^9}, {3.568130718566253*^9, 3.5681307485339055`*^9}, 3.5681308175952272`*^9, {3.5681308916497574`*^9, 3.5681309458598523`*^9}, { 3.5681309983383446`*^9, 3.5681310118947687`*^9}, {3.5681310723448744`*^9, 3.568131074357278*^9}, {3.5681315215476637`*^9, 3.568131584509374*^9}, { 3.56813162789305*^9, 3.5681316427754765`*^9}, {3.5681317113063965`*^9, 3.568131715268804*^9}, {3.5681323203938665`*^9, 3.5681323260098763`*^9}, { 3.568132387567585*^9, 3.568132440014877*^9}, {3.5681325121026034`*^9, 3.568132590945142*^9}, {3.56813274298981*^9, 3.5681327548302307`*^9}, { 3.568132877867647*^9, 3.568132888335265*^9}, {3.568133052345154*^9, 3.568133072344389*^9}, {3.5681331740533676`*^9, 3.5681331951446047`*^9}, { 3.568133267793932*^9, 3.5681332684803333`*^9}, {3.5681335079111547`*^9, 3.568133536833606*^9}, {3.5681336272201643`*^9, 3.5681336314945717`*^9}, { 3.568133737994359*^9, 3.568133744000369*^9}, {3.568133978515581*^9, 3.5681339917912045`*^9}, {3.5681340324916763`*^9, 3.5681340418204927`*^9}, {3.568134244262048*^9, 3.5681342454944506`*^9}, { 3.5681343354754086`*^9, 3.568134336099409*^9}, {3.5681345828762426`*^9, 3.568134583952645*^9}, {3.5681348406666956`*^9, 3.5681348474683075`*^9}, 3.568134889151581*^9, {3.5681352914606876`*^9, 3.568135296265496*^9}, { 3.568135518877887*^9, 3.568135519595488*^9}, 3.5681357593679094`*^9, { 3.5681787035360527`*^9, 3.568178728449296*^9}, 3.5682779128076954`*^9, { 3.572714864038488*^9, 3.572714889419732*^9}, {3.5727149730514793`*^9, 3.57271500191153*^9}, {3.572715036933592*^9, 3.5727150664176435`*^9}, { 3.572715803191337*^9, 3.572715915183934*^9}, {3.5727159899548655`*^9, 3.572716037722149*^9}, {3.572767087700392*^9, 3.5727670990260115`*^9}, 3.5727756458897667`*^9, {3.5727757435615377`*^9, 3.5727758099084544`*^9}, { 3.576426369410282*^9, 3.5764264259759817`*^9}, {3.5764264953649035`*^9, 3.5764265148961377`*^9}}], 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["\n", "Input"], StyleBox[" ", "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["\n", "Input"], StyleBox[" ", "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["\n", "Input"], StyleBox[" ", "Input"], StyleBox[ RowBox[{"L", " ", "=", " ", RowBox[{"(", RowBox[{ RowBox[{"u2", "[", RowBox[{"[", RowBox[{"c", "[", RowBox[{"[", "2", "]"}], "]"}], "]"}], "]"}], " ", "+", " ", "rln"}], ")"}]}], "Input"], StyleBox[";", "Input"], StyleBox["\n", "Input"], StyleBox[" ", "Input"], StyleBox[ RowBox[{"\[Beta]", " ", "=", " ", RowBox[{"ArcSin", "[", RowBox[{"rln", "/", "L"}], "]"}]}], "Input"], StyleBox[";", "Input"], StyleBox["\n", "Input"], StyleBox[" ", "Input"], StyleBox[ RowBox[{"\[Gamma]", " ", "=", " ", RowBox[{ RowBox[{"\[Pi]", "/", "2"}], " ", "-", " ", RowBox[{"\[Alpha]", "/", "2"}]}]}], "Input"], StyleBox[";", "Input"], StyleBox[" ", "Input"], StyleBox[ RowBox[{"(*", RowBox[{ RowBox[{"\[Gamma]", "=", RowBox[{ RowBox[{"3", "*", RowBox[{"\[Pi]", "/", "2"}]}], "+", RowBox[{"\[Alpha]", "/", "2"}]}]}], ";"}], "*)"}], "Input"], StyleBox["\n", "Input"], StyleBox[" ", "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["\n", "Input"], StyleBox[" ", "Input"], StyleBox[ RowBox[{"x2", " ", "=", " ", RowBox[{"t", "[", RowBox[{"[", RowBox[{ RowBox[{"c", "[", RowBox[{"[", "2", "]"}], "]"}], ",", " ", "1"}], "]"}], "]"}]}], "Input"], StyleBox[";", "Input"], StyleBox["\n", "Input"], StyleBox[" ", "Input"], StyleBox[ RowBox[{"y2", " ", "=", " ", RowBox[{"t", "[", RowBox[{"[", RowBox[{ RowBox[{"c", "[", RowBox[{"[", "2", "]"}], "]"}], ",", " ", "2"}], "]"}], "]"}]}], "Input"], StyleBox[";", "Input"], StyleBox[" ", "Input"], StyleBox["\n", "Input"], StyleBox[" ", "Input"], StyleBox[ RowBox[{"z2", " ", "=", " ", RowBox[{"t", "[", RowBox[{"[", RowBox[{ RowBox[{"c", "[", RowBox[{"[", "2", "]"}], "]"}], ",", " ", "3"}], "]"}], "]"}]}], "Input"], StyleBox[";", "Input"], StyleBox["\n", "Input"], StyleBox[" ", "Input"], StyleBox[ RowBox[{"Q", " ", "=", " ", RowBox[{"{", RowBox[{ RowBox[{"{", RowBox[{"1", ",", " ", "0", ",", " ", "0", ",", " ", "0"}], "}"}], ",", "\n", " ", RowBox[{"{", RowBox[{"0", ",", " ", "1", ",", " ", "0", ",", " ", "0"}], "}"}], ",", "\n", " ", RowBox[{"{", RowBox[{"0", ",", " ", "0", ",", " ", "1", ",", " ", "0"}], "}"}], ",", "\n", " ", RowBox[{"{", RowBox[{ RowBox[{"-", "x2"}], ",", " ", RowBox[{"-", "y2"}], ",", " ", RowBox[{"-", "z2"}], ",", " ", "1"}], "}"}]}], "}"}]}], "Input"], StyleBox[";", "Input"], StyleBox["\n", "Input"], StyleBox[" ", "Input"], StyleBox[ RowBox[{"p", " ", "=", " ", RowBox[{"v", ".", "Q"}]}], "Input"], StyleBox[";", "Input"], StyleBox["\n", "Input"], StyleBox[" ", "Input"], StyleBox[ RowBox[{"p", " ", "=", " ", RowBox[{"Table", "[", RowBox[{ RowBox[{"Take", "[", RowBox[{ RowBox[{"p", "[", RowBox[{"[", "i", "]"}], "]"}], ",", " ", "3"}], "]"}], ",", " ", RowBox[{"{", RowBox[{"i", ",", " ", "1", ",", " ", "P"}], "}"}]}], "]"}]}], "Input"], StyleBox[";", "Input"], StyleBox["\n", "Input"], StyleBox[" ", "Input"], StyleBox[ RowBox[{"T1", " ", "=", " ", RowBox[{"ArcTan", "[", RowBox[{ RowBox[{"p", "[", RowBox[{"[", RowBox[{"1", ",", " ", "3"}], "]"}], "]"}], "/", RowBox[{"p", "[", RowBox[{"[", RowBox[{"1", ",", " ", "2"}], "]"}], "]"}]}], "]"}]}], "Input"], StyleBox[";", "Input"], StyleBox["\n", "Input"], StyleBox[" ", "Input"], StyleBox[ RowBox[{"U", " ", "=", " ", "p"}], "Input"], StyleBox[";", "Input"], StyleBox["\n", "Input"], StyleBox[" ", "Input"], StyleBox[ RowBox[{"T", " ", "=", " ", RowBox[{"RotationMatrix", "[", RowBox[{"T1", ",", " ", RowBox[{"{", RowBox[{"1", ",", " ", "0", ",", " ", "0"}], "}"}]}], "]"}]}], "Input"], StyleBox[";", "Input"], StyleBox["\n", "Input"], StyleBox[" ", "Input"], StyleBox[ RowBox[{"p", " ", "=", " ", RowBox[{"U", ".", "T"}]}], "Input"], StyleBox[";", "Input"], StyleBox["\n", "Input"], StyleBox[" ", "Input"], StyleBox[ RowBox[{"T2", " ", "=", " ", RowBox[{"ArcTan", "[", RowBox[{ RowBox[{"p", "[", RowBox[{"[", RowBox[{"1", ",", " ", "2"}], "]"}], "]"}], "/", RowBox[{"p", "[", RowBox[{"[", RowBox[{"1", ",", " ", "1"}], "]"}], "]"}]}], "]"}]}], "Input"], StyleBox[";", "Input"], StyleBox["\n", "Input"], StyleBox[" ", "Input"], StyleBox[ RowBox[{"U", " ", "=", " ", "p"}], "Input"], StyleBox[";", "Input"], StyleBox["\n", "Input"], StyleBox[" ", "Input"], StyleBox[ RowBox[{"T", " ", "=", " ", RowBox[{"RotationMatrix", "[", RowBox[{"T2", ",", " ", RowBox[{"{", RowBox[{"0", ",", " ", "0", ",", " ", "1"}], "}"}]}], "]"}]}], "Input"], StyleBox[";", "Input"], StyleBox["\n", "Input"], StyleBox[" ", "Input"], StyleBox[ RowBox[{"p", " ", "=", " ", RowBox[{"U", ".", "T"}]}], "Input"], StyleBox[";", "Input"], StyleBox["\n", "Input"], StyleBox[" ", "Input"], StyleBox[ RowBox[{"T3", " ", "=", " ", RowBox[{"ArcTan", "[", RowBox[{ RowBox[{"p", "[", RowBox[{"[", RowBox[{"3", ",", " ", "3"}], "]"}], "]"}], "/", RowBox[{"p", "[", RowBox[{"[", RowBox[{"3", ",", " ", "2"}], "]"}], "]"}]}], "]"}]}], "Input"], StyleBox[";", "Input"], StyleBox["\n", "Input"], StyleBox[" ", "Input"], StyleBox[ RowBox[{"U", " ", "=", " ", "p"}], "Input"], StyleBox[";", "Input"], StyleBox["\n", "Input"], StyleBox[" ", "Input"], StyleBox[ RowBox[{"T", " ", "=", " ", RowBox[{"RotationMatrix", "[", RowBox[{"T3", ",", " ", RowBox[{"{", RowBox[{"1", ",", " ", "0", ",", " ", "0"}], "}"}]}], "]"}]}], "Input"], StyleBox[";", "Input"], StyleBox["\n", "Input"], StyleBox[" ", "Input"], StyleBox[ RowBox[{"p", " ", "=", " ", RowBox[{"Chop", "[", RowBox[{"U", ".", "T"}], "]"}]}], "Input"], StyleBox[";", "Input"], StyleBox["\n", "Input"], StyleBox[" ", "Input"], StyleBox[ RowBox[{"nk", " ", "=", " ", "p"}], "Input"], StyleBox[";", "Input"], StyleBox["\n", "Input"], StyleBox[" ", "Input"], RowBox[{"(*", StyleBox[ RowBox[{ RowBox[{ RowBox[{"nk", "[", RowBox[{"[", RowBox[{"4", ",", "2"}], "]"}], "]"}], "=", RowBox[{"L", "*", RowBox[{"Cos", "[", "\[Gamma]", "]"}]}]}], ";", " ", RowBox[{ RowBox[{"nk", "[", RowBox[{"[", RowBox[{"4", ",", "1"}], "]"}], "]"}], "=", RowBox[{ RowBox[{"-", "L"}], "*", RowBox[{"Sin", "[", "\[Gamma]", "]"}]}]}], ";"}], "Input"], "*)"}], StyleBox["\n", "Input"], StyleBox[" ", "Input"], StyleBox[ RowBox[{ RowBox[{"nk", "[", RowBox[{"[", RowBox[{"4", ",", "3"}], "]"}], "]"}], " ", "=", " ", RowBox[{ RowBox[{"nk", "[", RowBox[{"[", RowBox[{"4", ",", "3"}], "]"}], "]"}], " ", "+", " ", RowBox[{"u2", "[", RowBox[{"[", RowBox[{"c", "[", RowBox[{"[", "4", "]"}], "]"}], "]"}], "]"}], " ", "+", " ", "rln"}]}], "Input"], StyleBox[";", "Input"], StyleBox[" ", "Input"], StyleBox["\n", "Input"], StyleBox[" ", "Input"], StyleBox[ RowBox[{"U", " ", "=", " ", "p"}], "Input"], StyleBox[";", "Input"], StyleBox["\n", "Input"], StyleBox[" ", "Input"], StyleBox[ RowBox[{"U1", " ", "=", " ", "nk"}], "Input"], StyleBox[";", "Input"], StyleBox["\n", "Input"], StyleBox[" ", "Input"], StyleBox[ RowBox[{"T", " ", "=", " ", RowBox[{"RotationMatrix", "[", RowBox[{ RowBox[{"-", "T3"}], ",", " ", RowBox[{"{", RowBox[{"1", ",", " ", "0", ",", " ", "0"}], "}"}]}], "]"}]}], "Input"], StyleBox[";", "Input"], StyleBox["\n", "Input"], StyleBox[" ", "Input"], StyleBox[ RowBox[{"p", " ", "=", " ", RowBox[{"U", ".", "T"}]}], "Input"], StyleBox[";", "Input"], StyleBox["\n", "Input"], StyleBox[" ", "Input"], StyleBox[ RowBox[{"nk", " ", "=", " ", RowBox[{"U1", ".", "T"}]}], "Input"], StyleBox[";", "Input"], StyleBox["\n", "Input"], StyleBox[" ", "Input"], StyleBox[ RowBox[{"U", " ", "=", " ", "p"}], "Input"], StyleBox[";", "Input"], StyleBox["\n", "Input"], StyleBox[" ", "Input"], StyleBox[ RowBox[{"U1", " ", "=", " ", "nk"}], "Input"], StyleBox[";", "Input"], StyleBox["\n", "Input"], StyleBox[" ", "Input"], StyleBox[ RowBox[{"T", " ", "=", " ", RowBox[{"RotationMatrix", "[", RowBox[{ RowBox[{"-", "T2"}], ",", " ", RowBox[{"{", RowBox[{"0", ",", " ", "0", ",", " ", "1"}], "}"}]}], "]"}]}], "Input"], StyleBox[";", "Input"], StyleBox["\n", "Input"], StyleBox[" ", "Input"], StyleBox[ RowBox[{"p", " ", "=", " ", RowBox[{"U", ".", "T"}]}], "Input"], StyleBox[";", "Input"], StyleBox["\n", "Input"], StyleBox[" ", "Input"], StyleBox[ RowBox[{"nk", " ", "=", " ", RowBox[{"U1", ".", "T"}]}], "Input"], StyleBox[";", "Input"], StyleBox["\n", "Input"], StyleBox[" ", "Input"], StyleBox[ RowBox[{"U", " ", "=", " ", "p"}], "Input"], StyleBox[";", "Input"], StyleBox["\n", "Input"], StyleBox[" ", "Input"], StyleBox[ RowBox[{"U1", " ", "=", " ", "nk"}], "Input"], StyleBox[";", "Input"], StyleBox["\n", "Input"], StyleBox[" ", "Input"], StyleBox[ RowBox[{"T", " ", "=", " ", RowBox[{"RotationMatrix", "[", RowBox[{ RowBox[{"-", "T1"}], ",", " ", RowBox[{"{", RowBox[{"1", ",", " ", "0", ",", " ", "0"}], "}"}]}], "]"}]}], "Input"], StyleBox[";", "Input"], StyleBox["\n", "Input"], StyleBox[" ", "Input"], StyleBox[ RowBox[{"p", " ", "=", " ", RowBox[{"U", ".", "T"}]}], "Input"], StyleBox[";", "Input"], StyleBox["\n", "Input"], StyleBox[" ", "Input"], StyleBox[ RowBox[{"nk", " ", "=", " ", RowBox[{"U1", ".", "T"}]}], "Input"], StyleBox[";", "Input"], StyleBox["\n", "Input"], StyleBox[" ", "Input"], StyleBox[ RowBox[{"Clear", "[", RowBox[{"v", ",", " ", "v1", ",", " ", "v2"}], "]"}], "Input"], StyleBox[";", "Input"], StyleBox["\n", "Input"], StyleBox[" ", "Input"], StyleBox[ RowBox[{"v", " ", "=", " ", RowBox[{"Table", "[", RowBox[{ RowBox[{"Join", "[", RowBox[{ RowBox[{"p", "[", RowBox[{"[", "i", "]"}], "]"}], ",", " ", RowBox[{"{", "1", "}"}]}], "]"}], ",", " ", RowBox[{"{", RowBox[{"i", ",", " ", "1", ",", " ", "P"}], "}"}]}], "]"}]}], "Input"], StyleBox[";", "Input"], StyleBox["\n", "Input"], StyleBox[" ", "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["\n", "Input"], StyleBox[" ", "Input"], StyleBox[ RowBox[{"Q", " ", "=", " ", RowBox[{"{", RowBox[{ RowBox[{"{", RowBox[{"1", ",", " ", "0", ",", " ", "0", ",", " ", "0"}], "}"}], ",", "\n", " ", RowBox[{"{", RowBox[{"0", ",", " ", "1", ",", " ", "0", ",", " ", "0"}], "}"}], ",", "\n", " ", RowBox[{"{", RowBox[{"0", ",", " ", "0", ",", " ", "1", ",", " ", "0"}], "}"}], ",", "\n", " ", RowBox[{"{", RowBox[{"x2", ",", " ", "y2", ",", " ", "z2", ",", " ", "1"}], "}"}]}], "}"}]}], "Input"], StyleBox[";", "Input"], StyleBox["\n", "Input"], StyleBox[" ", "Input"], StyleBox[ RowBox[{"p", " ", "=", " ", RowBox[{"v", ".", "Q"}]}], "Input"], StyleBox[";", "Input"], StyleBox["\n", "Input"], StyleBox[" ", "Input"], StyleBox[ RowBox[{"nk", " ", "=", " ", RowBox[{"v1", ".", "Q"}]}], "Input"], StyleBox[";", "Input"], StyleBox["\n", "Input"], StyleBox[" ", "Input"], StyleBox[ RowBox[{"p", " ", "=", " ", RowBox[{"Table", "[", RowBox[{ RowBox[{"Take", "[", RowBox[{ RowBox[{"p", "[", RowBox[{"[", "i", "]"}], "]"}], ",", " ", "3"}], "]"}], ",", " ", RowBox[{"{", RowBox[{"i", ",", " ", "1", ",", " ", "P"}], "}"}]}], "]"}]}], "Input"], StyleBox[";", "Input"], StyleBox["\n", "Input"], StyleBox[ RowBox[{ StyleBox[" ", "Input"], " "}]], StyleBox[ RowBox[{"nk", " ", "=", " ", RowBox[{"Table", "[", RowBox[{ RowBox[{"Take", "[", RowBox[{ RowBox[{"nk", "[", RowBox[{"[", "i", "]"}], "]"}], ",", " ", "3"}], "]"}], ",", " ", RowBox[{"{", RowBox[{"i", ",", " ", "1", ",", " ", "P"}], "}"}]}], "]"}]}], "Input"], StyleBox[";", "Input"], StyleBox["\n", "Input"], StyleBox[" ", "Input"], StyleBox[ RowBox[{"tpln", " ", "=", " ", RowBox[{"nk", "[", RowBox[{"[", "4", "]"}], "]"}]}], "Input"]}], StyleBox[")", "Input"]}], StyleBox[",", "Input"], StyleBox[" ", "Input"], StyleBox[ RowBox[{"{", RowBox[{"k", ",", " ", "1"}], "}"}], "Input"]}], StyleBox["]", "Input"]}], StyleBox[";", "Input"]}]], "Input", CellChangeTimes->{{3.5681154444347754`*^9, 3.568115497147268*^9}, { 3.568127214924899*^9, 3.568127265796589*^9}, {3.568128215276656*^9, 3.568128238536297*^9}, {3.568130718566253*^9, 3.5681307485339055`*^9}, 3.5681308175952272`*^9, {3.5681308916497574`*^9, 3.5681309458598523`*^9}, { 3.5681309983383446`*^9, 3.5681310118947687`*^9}, {3.5681310723448744`*^9, 3.568131074357278*^9}, {3.5681315215476637`*^9, 3.568131584509374*^9}, { 3.56813162789305*^9, 3.5681316427754765`*^9}, {3.5681317113063965`*^9, 3.568131715268804*^9}, {3.5681323203938665`*^9, 3.5681323260098763`*^9}, { 3.568132387567585*^9, 3.568132440014877*^9}, {3.5681325121026034`*^9, 3.568132590945142*^9}, {3.56813274298981*^9, 3.5681327548302307`*^9}, { 3.568132877867647*^9, 3.568132888335265*^9}, {3.568133052345154*^9, 3.568133072344389*^9}, {3.5681331740533676`*^9, 3.5681331951446047`*^9}, { 3.568133267793932*^9, 3.5681332684803333`*^9}, {3.5681335079111547`*^9, 3.568133536833606*^9}, {3.5681336272201643`*^9, 3.5681336314945717`*^9}, { 3.568133737994359*^9, 3.568133744000369*^9}, {3.568133978515581*^9, 3.5681339917912045`*^9}, {3.5681340324916763`*^9, 3.5681340418204927`*^9}, {3.568134244262048*^9, 3.5681342454944506`*^9}, { 3.5681343354754086`*^9, 3.568134336099409*^9}, {3.5681345828762426`*^9, 3.568134583952645*^9}, {3.5681348406666956`*^9, 3.5681348474683075`*^9}, 3.568134889151581*^9, {3.5681352914606876`*^9, 3.568135296265496*^9}, { 3.568135518877887*^9, 3.568135519595488*^9}, 3.5681357593679094`*^9, { 3.5681787035360527`*^9, 3.568178728449296*^9}, 3.5682779128076954`*^9, { 3.572714864038488*^9, 3.572714889419732*^9}, {3.5727149730514793`*^9, 3.57271500191153*^9}, {3.572715036933592*^9, 3.5727150664176435`*^9}, { 3.572715803191337*^9, 3.572715915183934*^9}, {3.5727159899548655`*^9, 3.572716037722149*^9}, {3.572767087700392*^9, 3.5727670990260115`*^9}, 3.5727756458897667`*^9, {3.5727757435615377`*^9, 3.5727758099084544`*^9}, { 3.576426369410282*^9, 3.5764264061171465`*^9}, {3.576426887951993*^9, 3.576426912397236*^9}, 3.576426992581377*^9}], Cell[CellGroupData[{ Cell[BoxData[{ RowBox[{"nk", "[", RowBox[{"[", "4", "]"}], "]"}], "\[IndentingNewLine]", "tpln"}], "Input", CellChangeTimes->{{3.5681154444347754`*^9, 3.568115497147268*^9}, { 3.568127214924899*^9, 3.568127265796589*^9}, {3.568128215276656*^9, 3.568128238536297*^9}, {3.568130718566253*^9, 3.5681307485339055`*^9}, 3.5681308175952272`*^9, {3.5681308916497574`*^9, 3.5681309458598523`*^9}, { 3.5681309983383446`*^9, 3.5681310118947687`*^9}, {3.5681310723448744`*^9, 3.568131074357278*^9}, {3.5681315215476637`*^9, 3.568131584509374*^9}, { 3.56813162789305*^9, 3.5681316427754765`*^9}, {3.5681317113063965`*^9, 3.568131715268804*^9}, {3.5681323203938665`*^9, 3.5681323260098763`*^9}, { 3.568132387567585*^9, 3.568132440014877*^9}, {3.5681325121026034`*^9, 3.568132590945142*^9}, {3.56813274298981*^9, 3.5681327548302307`*^9}, { 3.568132877867647*^9, 3.568132888335265*^9}, {3.568133052345154*^9, 3.568133072344389*^9}, {3.5681331740533676`*^9, 3.5681331951446047`*^9}, { 3.568133267793932*^9, 3.5681332684803333`*^9}, {3.5681335079111547`*^9, 3.568133536833606*^9}, {3.5681336272201643`*^9, 3.5681336314945717`*^9}, { 3.568133737994359*^9, 3.568133744000369*^9}, {3.568133978515581*^9, 3.5681339917912045`*^9}, {3.5681340324916763`*^9, 3.5681340418204927`*^9}, {3.568134244262048*^9, 3.5681342454944506`*^9}, { 3.5681343354754086`*^9, 3.568134336099409*^9}, {3.5681345828762426`*^9, 3.568134583952645*^9}, {3.5681348406666956`*^9, 3.5681348474683075`*^9}, 3.568134889151581*^9, {3.5681352914606876`*^9, 3.568135296265496*^9}, { 3.568135518877887*^9, 3.568135519595488*^9}, 3.5681357593679094`*^9, { 3.5681787035360527`*^9, 3.568178728449296*^9}, 3.5682779128076954`*^9, { 3.572714864038488*^9, 3.572714889419732*^9}, {3.5727149730514793`*^9, 3.57271500191153*^9}, {3.572715036933592*^9, 3.5727150664176435`*^9}, { 3.572715803191337*^9, 3.572715915183934*^9}, {3.5727159899548655`*^9, 3.572716037722149*^9}, {3.572767087700392*^9, 3.5727670990260115`*^9}, 3.5727756458897667`*^9, {3.5727757435615377`*^9, 3.5727758099084544`*^9}, { 3.576426369410282*^9, 3.5764264061171465`*^9}, {3.576426887951993*^9, 3.576426912397236*^9}, {3.5764269552037115`*^9, 3.5764269572473145`*^9}}], Cell[BoxData[ RowBox[{"{", RowBox[{"4.220364123875451`", ",", "4.100706202493104`", ",", RowBox[{"-", "1.0722210938493801`"}]}], "}"}]], "Output", CellChangeTimes->{ 3.5764269201972494`*^9, 3.576426965468529*^9, 3.5764270017853928`*^9, 3.576428268975619*^9, 3.576466464176607*^9, 3.576466651439336*^9, 3.5764674064182615`*^9, 3.5764674947300167`*^9, 3.5764682169176855`*^9, { 3.57646860694957*^9, 3.5764686351388197`*^9}, 3.5764687721694603`*^9}], Cell[BoxData[ RowBox[{"{", RowBox[{"4.220364123875451`", ",", "4.100706202493104`", ",", RowBox[{"-", "1.0722210938493801`"}]}], "}"}]], "Output", CellChangeTimes->{ 3.5764269201972494`*^9, 3.576426965468529*^9, 3.5764270017853928`*^9, 3.576428268975619*^9, 3.576466464176607*^9, 3.576466651439336*^9, 3.5764674064182615`*^9, 3.5764674947300167`*^9, 3.5764682169176855`*^9, { 3.57646860694957*^9, 3.5764686351388197`*^9}, 3.5764687721850605`*^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}, { 3.576426369410282*^9, 3.5764263775534964`*^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.1731147700574702`"}], "}"}], ",", RowBox[{"{", RowBox[{"3", ",", "2", ",", "1.1903999660013267`"}], "}"}], ",", RowBox[{"{", RowBox[{"4", ",", "1", ",", "1.1713514357662658`"}], "}"}], ",", RowBox[{"{", RowBox[{"6", ",", "3", ",", "1.1678154622534402`"}], "}"}], ",", RowBox[{"{", RowBox[{"7", ",", "5", ",", "1.154401338039264`"}], "}"}], ",", RowBox[{"{", RowBox[{"8", ",", "1", ",", "1.1523208669284228`"}], "}"}], ",", RowBox[{"{", RowBox[{"8", ",", "5", ",", "1.0500459005280012`"}], "}"}], ",", RowBox[{"{", RowBox[{"9", ",", "7", ",", "1.136889347768369`"}], "}"}], ",", RowBox[{"{", RowBox[{"10", ",", "4", ",", "1.021438211087881`"}], "}"}], ",", RowBox[{"{", RowBox[{"11", ",", "4", ",", "0.917404475888308`"}], "}"}], ",", RowBox[{"{", RowBox[{"12", ",", "6", ",", "1.0311402207326492`"}], "}"}], ",", RowBox[{"{", RowBox[{"13", ",", "5", ",", "0.916721034393009`"}], "}"}], ",", RowBox[{"{", RowBox[{"14", ",", "6", ",", "0.9225526969662281`"}], "}"}], ",", RowBox[{"{", RowBox[{"15", ",", "1", ",", "1.1747034695683691`"}], "}"}], ",", RowBox[{"{", RowBox[{"16", ",", "2", ",", "1.1747930182957855`"}], "}"}], ",", RowBox[{"{", RowBox[{"17", ",", "2", ",", "1.1748129292815404`"}], "}"}], ",", RowBox[{"{", RowBox[{"18", ",", "3", ",", "1.174802308406599`"}], "}"}], ",", RowBox[{"{", RowBox[{"19", ",", "3", ",", "1.1747422239831788`"}], "}"}], ",", RowBox[{"{", RowBox[{"20", ",", "8", ",", "1.1104200304075746`"}], "}"}], ",", RowBox[{"{", RowBox[{"21", ",", "7", ",", "1.1747369792010405`"}], "}"}], ",", RowBox[{"{", RowBox[{"22", ",", "7", ",", "1.1747986314651016`"}], "}"}], ",", RowBox[{"{", RowBox[{"23", ",", "10", ",", "1.1113711703585378`"}], "}"}], ",", RowBox[{"{", RowBox[{"24", ",", "9", ",", "1.1104066274834141`"}], "}"}], ",", RowBox[{"{", RowBox[{"25", ",", "9", ",", "1.1103050501249019`"}], "}"}], ",", RowBox[{"{", RowBox[{"26", ",", "12", ",", "1.1114253495650415`"}], "}"}]}], "}"}]], "Output", CellChangeTimes->{ 3.5764211939451923`*^9, 3.576422739876707*^9, 3.5764229259382343`*^9, 3.5764231386134076`*^9, 3.5764238280722184`*^9, 3.5764239977381163`*^9, 3.576424058484623*^9, 3.57642409083908*^9, 3.5764246797869143`*^9, 3.5764250613479843`*^9, 3.576425367451722*^9, 3.5764254518946705`*^9, 3.576425489085136*^9, {3.5764267241673055`*^9, 3.576426751467353*^9}, 3.57642692022845*^9, 3.576426965499729*^9, 3.576427001816593*^9, 3.576428269006819*^9, 3.576466464192207*^9, 3.576466651610936*^9, 3.576467406449462*^9, 3.576467494745617*^9, 3.576468216948885*^9, { 3.57646860698077*^9, 3.57646863515442*^9}, 3.5764687722006607`*^9}], Cell[BoxData["25"], "Output", CellChangeTimes->{ 3.5764211939451923`*^9, 3.576422739876707*^9, 3.5764229259382343`*^9, 3.5764231386134076`*^9, 3.5764238280722184`*^9, 3.5764239977381163`*^9, 3.576424058484623*^9, 3.57642409083908*^9, 3.5764246797869143`*^9, 3.5764250613479843`*^9, 3.576425367451722*^9, 3.5764254518946705`*^9, 3.576425489085136*^9, {3.5764267241673055`*^9, 3.576426751467353*^9}, 3.57642692022845*^9, 3.576426965499729*^9, 3.576427001816593*^9, 3.576428269006819*^9, 3.576466464192207*^9, 3.576466651610936*^9, 3.576467406449462*^9, 3.576467494745617*^9, 3.576468216948885*^9, { 3.57646860698077*^9, 3.57646863515442*^9}, 3.5764687722006607`*^9}], Cell[BoxData["13"], "Output", CellChangeTimes->{ 3.5764211939451923`*^9, 3.576422739876707*^9, 3.5764229259382343`*^9, 3.5764231386134076`*^9, 3.5764238280722184`*^9, 3.5764239977381163`*^9, 3.576424058484623*^9, 3.57642409083908*^9, 3.5764246797869143`*^9, 3.5764250613479843`*^9, 3.576425367451722*^9, 3.5764254518946705`*^9, 3.576425489085136*^9, {3.5764267241673055`*^9, 3.576426751467353*^9}, 3.57642692022845*^9, 3.576426965499729*^9, 3.576427001816593*^9, 3.576428269006819*^9, 3.576466464192207*^9, 3.576466651610936*^9, 3.576467406449462*^9, 3.576467494745617*^9, 3.576468216948885*^9, { 3.57646860698077*^9, 3.57646863515442*^9}, 3.5764687722162604`*^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.609]], {}, {RGBColor[0.798413061722744, 0.824719615472648, 0.968322270542458], EdgeForm[Opacity[0.609]], 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->{{9.189096209912577, 12.637376093294506`}, { 70.23564934386471, 98.9761860120801}}], 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.02, 0}, {1.022, 1}, "RoundingRadius" -> 0]}, ImageSizeCache->{{129.15481049562686`, 132.6030903790088}, { 70.23564934386471, 98.9761860120801}}], 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.03, 0}, {1.032, 1}, "RoundingRadius" -> 0]}, ImageSizeCache->{{141.3962099125365, 144.84448979591843`}, { 70.23564934386471, 98.9761860120801}}], 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->{{165.8790087463558, 169.32728862973772`}, { 70.23564934386471, 98.9761860120801}}], 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.11, 0}, {1.112, 5}, "RoundingRadius" -> 0]}, ImageSizeCache->{{239.32740524781366`, 242.7756851311956}, {-40.7264973289969, 98.9761860120801}}], StatusArea[#, 5]& , TagBoxNote->"5"], StyleBox["5", { GrayLevel[0]}, StripOnInput -> False]], Annotation[#, Style[5, { GrayLevel[0]}], "Tooltip"]& ], TagBox[ TooltipBox[ TagBox[ DynamicBox[{ FEPrivate`If[ CurrentValue["MouseOver"], EdgeForm[{ GrayLevel[0.5], AbsoluteThickness[1.5], Opacity[0.66]}], {}, {}], RectangleBox[{1.1360000000000001`, 0}, {1.1380000000000001`, 1}, "RoundingRadius" -> 0]}, ImageSizeCache->{{271.15504373177873`, 274.60332361516066`}, { 70.23564934386471, 98.9761860120801}}], 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.1520000000000001`, 0}, {1.1540000000000001`, 1}, "RoundingRadius" -> 0]}, ImageSizeCache->{{290.74128279883416`, 294.1895626822161}, { 70.23564934386471, 98.9761860120801}}], 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.1540000000000001`, 0}, {1.1560000000000001`, 1}, "RoundingRadius" -> 0]}, ImageSizeCache->{{293.1895626822161, 296.6378425655978}, { 70.23564934386471, 98.9761860120801}}], 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`, 1}, "RoundingRadius" -> 0]}, ImageSizeCache->{{307.8792419825072, 311.32752186588937`}, { 70.23564934386471, 98.9761860120801}}], 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.17, 0}, {1.1720000000000002`, 1}, "RoundingRadius" -> 0]}, ImageSizeCache->{{312.77580174927107`, 316.2240816326532}, { 70.23564934386471, 98.9761860120801}}], 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.1720000000000002`, 0}, {1.174, 1}, "RoundingRadius" -> 0]}, ImageSizeCache->{{315.2240816326532, 318.6723615160349}, { 70.23564934386471, 98.9761860120801}}], 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.174, 0}, {1.1760000000000002`, 7}, "RoundingRadius" -> 0]}, ImageSizeCache->{{317.6723615160349, 321.1206413994171}, {-96.2075706654277, 98.9761860120801}}], StatusArea[#, 7]& , TagBoxNote->"7"], StyleBox["7", { GrayLevel[0]}, StripOnInput -> False]], Annotation[#, Style[7, { GrayLevel[0]}], "Tooltip"]& ], TagBox[ TooltipBox[ TagBox[ DynamicBox[{ FEPrivate`If[ CurrentValue["MouseOver"], EdgeForm[{ GrayLevel[0.5], AbsoluteThickness[1.5], Opacity[0.66]}], {}, {}], RectangleBox[{1.19, 0}, {1.1920000000000002`, 1}, "RoundingRadius" -> 0]}, ImageSizeCache->{{337.25860058309036`, 340.7068804664725}, { 70.23564934386471, 98.9761860120801}}], StatusArea[#, 1]& , TagBoxNote->"1"], StyleBox["1", { GrayLevel[0]}, StripOnInput -> False]], Annotation[#, Style[1, { 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.576421194007592*^9, 3.576422739939107*^9, 3.576422926000634*^9, 3.576423138675808*^9, 3.5764238281346188`*^9, 3.5764239978005166`*^9, 3.576424058531423*^9, 3.57642409088588*^9, 3.5764246798493147`*^9, 3.576425061410385*^9, 3.5764253674985223`*^9, 3.576425451957071*^9, 3.5764254891475363`*^9, {3.576426724229706*^9, 3.5764267515141535`*^9}, 3.5764269202908497`*^9, 3.5764269655465293`*^9, 3.576427001878993*^9, 3.5764282690692186`*^9, 3.5764664647070074`*^9, 3.576466651673336*^9, 3.5764674064962616`*^9, 3.576467494808017*^9, 3.576468216995685*^9, { 3.576468607199171*^9, 3.57646863521682*^9}, 3.5764687722630606`*^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[{"Table", "[", RowBox[{ RowBox[{"Graphics3D", "[", RowBox[{"{", RowBox[{ RowBox[{"Opacity", "[", "0.4", "]"}], ",", RowBox[{"Lighter", "[", "Red", "]"}], ",", RowBox[{"Sphere", "[", RowBox[{ RowBox[{"tplo", "[", RowBox[{"[", "i", "]"}], "]"}], ",", "rlo"}], "]"}]}], "}"}], "]"}], ",", RowBox[{"{", RowBox[{"i", ",", "1", ",", "oj"}], "}"}]}], "]"}]}], ";"}], "\[IndentingNewLine]", RowBox[{ RowBox[{ RowBox[{"Plot8e", "=", RowBox[{"Table", "[", RowBox[{ RowBox[{"Graphics3D", "[", RowBox[{"{", RowBox[{ RowBox[{"Opacity", "[", "0.4", "]"}], ",", RowBox[{"Lighter", "[", "Red", "]"}], ",", RowBox[{"Sphere", "[", RowBox[{ RowBox[{"tplu", "[", RowBox[{"[", "i", "]"}], "]"}], ",", "rlo"}], "]"}]}], "}"}], "]"}], ",", RowBox[{"{", RowBox[{"i", ",", "1", ",", "oj"}], "}"}]}], "]"}]}], ";"}], "\[IndentingNewLine]", RowBox[{"(*", 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[{"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[{"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"}], "}"}]}], "]"}]}], ";"}], "*)"}]}], "\[IndentingNewLine]", RowBox[{ RowBox[{"Plot8i", "=", RowBox[{"Table", "[", RowBox[{ RowBox[{"Graphics3D", "[", RowBox[{"{", RowBox[{ RowBox[{"Opacity", "[", "0.4", "]"}], ",", RowBox[{"Lighter", "[", "Red", "]"}], ",", RowBox[{"Sphere", "[", RowBox[{ RowBox[{"tpso", "[", RowBox[{"[", "i", "]"}], "]"}], ",", "rlo"}], "]"}]}], "}"}], "]"}], ",", RowBox[{"{", RowBox[{"i", ",", "1", ",", "hj"}], "}"}]}], "]"}]}], ";"}], "\[IndentingNewLine]", RowBox[{ RowBox[{"Plot8j", "=", RowBox[{"Table", "[", RowBox[{ RowBox[{"Graphics3D", "[", RowBox[{"{", RowBox[{ RowBox[{"Opacity", "[", "0.4", "]"}], ",", RowBox[{"Lighter", "[", "Red", "]"}], ",", RowBox[{"Sphere", "[", RowBox[{ RowBox[{"tpsu", "[", RowBox[{"[", "i", "]"}], "]"}], ",", "rlo"}], "]"}]}], "}"}], "]"}], ",", RowBox[{"{", RowBox[{"i", ",", "1", ",", "hj"}], "}"}]}], "]"}]}], ";"}], "\[IndentingNewLine]", RowBox[{ RowBox[{"Plot8k", "=", RowBox[{"Graphics3D", "[", RowBox[{"{", RowBox[{ RowBox[{"Opacity", "[", "0.4", "]"}], ",", RowBox[{"Lighter", "[", "Blue", "]"}], ",", RowBox[{"Sphere", "[", RowBox[{"tpln", ",", "rln"}], "]"}]}], "}"}], "]"}]}], ";"}]}], "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}, {3.5764247651346645`*^9, 3.576424811139145*^9}, { 3.576424847502809*^9, 3.576424898436898*^9}, {3.5764249314621563`*^9, 3.576424956937001*^9}, {3.5764265747378426`*^9, 3.576426654325983*^9}, 3.576426739268132*^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", ",", RowBox[{"(*", RowBox[{"Plot2", ","}], "*)"}], "Plot7", ",", "Plot8", ",", "Plot8a", ",", "Plot8b", ",", "Plot8d", ",", "Plot8e", ",", "Plot8i", ",", "Plot8j", ",", "Plot8k", ",", "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}, { 3.576419664175305*^9, 3.5764196724433193`*^9}, {3.5764250192591105`*^9, 3.576425028385127*^9}, {3.576426683451234*^9, 3.5764266901436453`*^9}}], Cell[BoxData[ Graphics3DBox[{ {RGBColor[0.4, 0.2666666666666667, 0.13333333333333336`], Opacity[0.8], SphereBox[{-0.39676687095999996`, -1.6629966745199998`, 0.7892062693799999}, 0.255]}, {RGBColor[0.4, 0.2666666666666667, 0.13333333333333336`], Opacity[0.8], SphereBox[{-3.0252623534, -0.8296842003, 0.027758185214}, 0.255]}, {RGBColor[0.4, 0.2666666666666667, 0.13333333333333336`], Opacity[0.8], SphereBox[{-3.2669583087999996`, -0.25739957846, -2.8000070141999998`}, 0.255]}, {RGBColor[0.4, 0.2666666666666667, 0.13333333333333336`], Opacity[0.8], SphereBox[{-0.35848102219999994`, -3.208754748, 3.191747214}, 0.255]}, {RGBColor[0.4, 0.2666666666666667, 0.13333333333333336`], Opacity[0.8], SphereBox[{3.8648676152, 0.09607933901799999, 1.3578248227799998`}, 0.255]}, {RGBColor[0.4, 0.2666666666666667, 0.13333333333333336`], Opacity[0.8], SphereBox[{-5.893866421399999, 0.57818056696, -3.5237720722}, 0.255]}, {RGBColor[0.4, 0.2666666666666667, 0.13333333333333336`], Opacity[0.8], SphereBox[{5.600203001000001, 2.316804076, 1.52355379298}, 0.255]}, {RGBColor[ NCache[ Rational[1, 3], 0.3333333333333333], NCache[ Rational[1, 3], 0.3333333333333333], 1], Opacity[0.8], SphereBox[{1.3465242613, 0.50501037624, 0.9577131367999999}, 0.24]}, {RGBColor[ NCache[ Rational[1, 3], 0.3333333333333333], NCache[ Rational[1, 3], 0.3333333333333333], 1], Opacity[0.8], SphereBox[{5.616265672, 3.6819421383999997`, -0.87076684354}, 0.24]}, {RGBColor[1, NCache[ Rational[1, 3], 0.3333333333333333], NCache[ Rational[1, 3], 0.3333333333333333]], Opacity[0.8], SphereBox[{1.06809203246, -2.3014972954, 5.0043723932}, 0.178]}, {RGBColor[1, NCache[ Rational[1, 3], 0.3333333333333333], NCache[ Rational[1, 3], 0.3333333333333333]], Opacity[0.8], SphereBox[{-1.61078354514, -5.0950792412, 3.3625784444}, 0.178]}, {RGBColor[1, NCache[ Rational[1, 3], 0.3333333333333333], NCache[ Rational[1, 3], 0.3333333333333333]], Opacity[0.8], SphereBox[{-6.984427296, -0.7648477012399999, -5.3258147858}, 0.178]}, {RGBColor[1, NCache[ Rational[1, 3], 0.3333333333333333], NCache[ Rational[1, 3], 0.3333333333333333]], Opacity[0.8], SphereBox[{4.6528833571999995`, -2.018227368, 1.59906724394}, 0.178]}, {RGBColor[1, NCache[ Rational[1, 3], 0.3333333333333333], NCache[ Rational[1, 3], 0.3333333333333333]], Opacity[0.8], SphereBox[{-6.8846497632, 2.3502522262, -2.4842337996}, 0.178]}, {RGBColor[1, 1, 1], Opacity[0.8], SphereBox[{0.25222172921999997`, -2.8873123553999998`, -0.68319264078}, 0.12]}, {RGBColor[1, 1, 1], Opacity[0.8], SphereBox[{-4.282875006399999, -2.3581890754, 0.44072189772}, 0.12]}, {RGBColor[1, 1, 1], Opacity[0.8], SphereBox[{-3.4948592643999996`, 0.84185403574, 1.06408581334}, 0.12]}, {RGBColor[1, 1, 1], Opacity[0.8], SphereBox[{-1.9997080531999998`, 1.2582173653199997`, -3.2306755696}, 0.12]}, {RGBColor[1, 1, 1], Opacity[0.8], SphereBox[{-2.8083218086, -1.9288433281999997`, -3.8412460402}, 0.12]}, {RGBColor[1, 1, 1], Opacity[0.8], SphereBox[{0.6883326954999999, 2.2674822274, 0.77996550924}, 0.12]}, {RGBColor[1, 1, 1], Opacity[0.8], SphereBox[{4.9569402706, 3.553629743, 2.9880347512}, 0.12]}, {RGBColor[1, 1, 1], Opacity[0.8], SphereBox[{7.4715986588, 1.6746940784599997`, 1.940748602}, 0.12]}, {RGBColor[1, 1, 1], Opacity[0.8], SphereBox[{1.1602350722199999`, -3.157732146, 6.6010018906}, 0.12]}, {RGBColor[1, 1, 1], Opacity[0.8], SphereBox[{6.2088837456, 2.5314769496, -2.247829077}, 0.12]}, {RGBColor[1, 1, 1], Opacity[0.8], SphereBox[{6.7814707236, 5.1640542402, -0.74300246868}, 0.12]}, {RGBColor[1, 1, 1], Opacity[0.8], SphereBox[{-8.6617480936, -0.3492213648, -5.877992723}, 0.12]}, {RGBColor[0.36, 0.24, 0.12], Opacity[0.5], SphereBox[{-1.7110146121800003`, -1.2463404374099998`, 0.4084822272969999}, 1.1731147700574702`]}, {RGBColor[0.36, 0.24, 0.12], Opacity[0.5], SphereBox[{-3.1461103311, -0.5435418893799999, -1.3861244144929998`}, 1.1903999660013267`]}, {RGBColor[0.36, 0.24, 0.12], Opacity[0.5], SphereBox[{-0.37762394658, -2.43587571126, 1.9904767416899998`}, 1.1713514357662658`]}, {RGBColor[0.36, 0.24, 0.12], Opacity[0.5], SphereBox[{-4.5804123651, 0.16039049425000002`, -3.1618895432}, 1.1678154622534402`]}, {RGBColor[0.36, 0.24, 0.12], Opacity[0.5], SphereBox[{4.732535308100001, 1.2064417075090001`, 1.44068930788}, 1.154401338039264]}, {RGBColor[0.36, 0.24, 0.12], Opacity[0.5], SphereBox[{0.48488034847613715`, -0.5665548050873621, 0.8744264648869542}, 1.1523208669284228`]}, {RGBColor[0.36, 0.24, 0.12], Opacity[0.5], SphereBox[{2.590103246587412, 0.30307681402993725`, 1.1552916296937856`}, 1.0500459005280012`]}, {RGBColor[0.36, 0.24, 0.12], Opacity[0.5], SphereBox[{5.608327523580346, 3.0072929127108017`, 0.31250289889179395`}, 1.136889347768369]}, {RGBColor[0.36, 0.24, 0.12], Opacity[0.5], SphereBox[{0.3774241577893598, -2.74074124054495, 4.12679940385812}, 1.021438211087881]}, {RGBColor[0.36, 0.24, 0.12], Opacity[0.5], SphereBox[{-1.0063073013400543`, -4.1845657483736325`, 3.2801195987262837`}, 0.917404475888308]}, {RGBColor[0.36, 0.24, 0.12], Opacity[0.5], SphereBox[{-6.456303649034037, -0.11446219457094864`, -4.453143308158791}, 1.0311402207326492`]}, {RGBColor[0.36, 0.24, 0.12], Opacity[0.5], SphereBox[{4.272522782399284, -0.9976907574682088, 1.4826240041820637`}, 0.916721034393009]}, {RGBColor[0.36, 0.24, 0.12], Opacity[0.5], SphereBox[{-6.406329289306381, 1.4947491913172963`, -2.986091691434597}, 0.9225526969662281]}, {Opacity[0.5], SphereBox[{ 0.06284410567403453, -2.5300518518244237`, -0.25354039967679287`}, 1.1747034695683691`]}, {Opacity[0.5], SphereBox[{-3.915914557696087, -1.9121846292179419`, 0.320222673353787}, 1.1747930182957855`]}, {Opacity[0.5], SphereBox[{-3.3578363139144924`, 0.35411850003597345`, 0.761697390526307}, 1.1748129292815404`]}, {Opacity[0.5], SphereBox[{-2.369478971707602, 0.8159755374484636, -3.1050108032297605`}, 1.174802308406599]}, {Opacity[0.5], SphereBox[{-2.942151317627678, -1.4411183078461027`, -3.537413903923731}, 1.1747422239831788`]}, {Opacity[0.5], SphereBox[{0.8813242926199072, 1.750699158293331, 0.8320837682842104}, 1.1104200304075746`]}, {Opacity[0.5], SphereBox[{5.144643950210216, 3.192724753855211, 2.5607000843741217`}, 1.1747369792010405`]}, {Opacity[0.5], SphereBox[{6.925543176407327, 1.8620556783410522`, 1.8190151183608703`}, 1.1747986314651016`]}, {Opacity[0.5], SphereBox[{1.133614194314382, -2.9103588937638336`, 6.139722568564386}, 1.1113711703585378`]}, {Opacity[0.5], SphereBox[{6.035118043298891, 2.8688129175876105`, -1.8440510000744883`}, 1.1104066274834141`]}, {Opacity[0.5], SphereBox[{6.43979441112262, 4.729450393498721, -0.7804671710585203}, 1.1103050501249019`]}, {Opacity[0.5], SphereBox[{-8.17717086731686, -0.4692956270225257, -5.718468764550323}, 1.1114253495650415`]}, {RGBColor[ NCache[ Rational[1, 3], 0.3333333333333333], 1, 1], Opacity[0.3], SphereBox[{3.673683980650353, 0.17084231796033178`, 2.637564845151753}, 1.2961]}, {RGBColor[ NCache[ Rational[1, 3], 0.3333333333333333], 1, 1], Opacity[0.3], SphereBox[{4.486672923091926, -1.9632095274687296`, 2.672381447152126}, 1.0875]}, {RGBColor[ NCache[ Rational[1, 3], 0.3333333333333333], 1, 1], Opacity[0.3], SphereBox[{1.1560127154464706`, 0.568072204490325, 2.1879532786886577`}, 1.2465]}, {RGBColor[ NCache[ Rational[1, 3], 0.3333333333333333], 1, 1], Opacity[0.3], SphereBox[{0.6485344484232773, -3.887564384891784, 2.7389641215724847`}, 1.2961]}, {RGBColor[ NCache[ Rational[1, 3], 0.3333333333333333], 1, 1], Opacity[0.3], SphereBox[{-2.448559614326545, -4.514494801372602, 3.74166842861041}, 1.0875]}, {RGBColor[ NCache[ Rational[1, 3], 0.3333333333333333], 1, 1], Opacity[0.3], SphereBox[{-7.301877831962624, 1.6807675486290654`, -1.7356569798050292`}, 1.0875]}, {RGBColor[ NCache[ Rational[1, 3], 0.3333333333333333], 1, 1], Opacity[0.3], SphereBox[{-6.393322862049933, -0.22233726575014337`, \ -2.6351834871920925`}, 1.2961]}, {RGBColor[1, 1, NCache[ Rational[1, 3], 0.3333333333333333]], Opacity[0.3], SphereBox[{4.056051249749647, 0.021316360075668117`, 0.07808480040824672}, 1.2961]}, {RGBColor[1, 1, NCache[ Rational[1, 3], 0.3333333333333333]], Opacity[0.3], SphereBox[{4.819093791308073, -2.0732452085312696`, 0.5257530407278735}, 1.0875]}, {RGBColor[1, 1, NCache[ Rational[1, 3], 0.3333333333333333]], Opacity[0.3], SphereBox[{1.5370358071535293`, 0.4419485479896754, -0.2725270050886579}, 1.2465]}, {RGBColor[1, 1, NCache[ Rational[1, 3], 0.3333333333333333]], Opacity[0.3], SphereBox[{-1.3654964928232771`, -2.5299451111082156`, 3.644530306427515}, 1.2961]}, {RGBColor[1, 1, NCache[ Rational[1, 3], 0.3333333333333333]], Opacity[0.3], SphereBox[{-0.7730074759534564, -5.675663681027396, 2.9834884601895895`}, 1.0875]}, {RGBColor[1, 1, NCache[ Rational[1, 3], 0.3333333333333333]], Opacity[0.3], SphereBox[{-6.467421694437375, 3.0197369037709345`, -3.2328106193949706`}, 1.0875]}, {RGBColor[1, 1, NCache[ Rational[1, 3], 0.3333333333333333]], Opacity[0.3], SphereBox[{-5.3944099807500665`, 1.3786983996701434`, -4.412360657207907}, 1.2961]}, {RGBColor[1, NCache[ Rational[1, 3], 0.3333333333333333], NCache[ Rational[1, 3], 0.3333333333333333]], Opacity[0.4], SphereBox[{5.921950634101536, -2.2322085152300244`, 1.8065600759314722`}, 1.125]}, {RGBColor[1, NCache[ Rational[1, 3], 0.3333333333333333], NCache[ Rational[1, 3], 0.3333333333333333]], Opacity[0.4], SphereBox[{-2.3539705838358724`, -5.527803639872522, 2.3828868703278516`}, 1.125]}, {RGBColor[1, NCache[ Rational[1, 3], 0.3333333333333333], NCache[ Rational[1, 3], 0.3333333333333333]], Opacity[0.4], SphereBox[{-8.088488662013571, 2.685981665761866, -2.8549501454964332`}, 1.125]}, {RGBColor[1, NCache[ Rational[1, 3], 0.3333333333333333], NCache[ Rational[1, 3], 0.3333333333333333]], Opacity[0.4], SphereBox[{3.918036227549499, -3.0933686338372453`, 1.5403823690717122`}, 1.125]}, {RGBColor[1, NCache[ Rational[1, 3], 0.3333333333333333], NCache[ Rational[1, 3], 0.3333333333333333]], Opacity[0.4], SphereBox[{-1.5997330284199416`, -5.796542181504221, 4.461305248232498}, 1.125]}, {RGBColor[1, NCache[ Rational[1, 3], 0.3333333333333333], NCache[ Rational[1, 3], 0.3333333333333333]], Opacity[0.4], SphereBox[{-6.280232365377454, 3.0231961503612865`, -1.5455117725100678`}, 1.125]}, {RGBColor[1, NCache[ Rational[1, 3], 0.3333333333333333], NCache[ Rational[1, 3], 0.3333333333333333]], Opacity[0.4], SphereBox[{-7.050451518758962, -2.0603528014101578`, \ -4.8485473791586235`}, 1.125]}, {RGBColor[1, NCache[ Rational[1, 3], 0.3333333333333333], NCache[ Rational[1, 3], 0.3333333333333333]], Opacity[0.4], SphereBox[{2.356638817865696, -2.287849962651291, 4.504434624943295}, 1.125]}, {RGBColor[1, NCache[ Rational[1, 3], 0.3333333333333333], NCache[ Rational[1, 3], 0.3333333333333333]], Opacity[0.4], SphereBox[{-6.1745335068867435`, -0.6380151622172554, -6.438677040259561}, 1.125]}, {RGBColor[1, NCache[ Rational[1, 3], 0.3333333333333333], NCache[ Rational[1, 3], 0.3333333333333333]], Opacity[0.4], SphereBox[{0.5794325471182797, -1.0377186337916353`, 5.2774149573707465`}, 1.125]}, {RGBColor[ NCache[ Rational[1, 3], 0.3333333333333333], NCache[ Rational[1, 3], 0.3333333333333333], 1], Opacity[0.4], SphereBox[{4.220364123875451, 4.100706202493104, -1.0722210938493801`}, 1.246]}, {RGBColor[1., 0.75, 0.5], TubeBox[{{-3.0252623534, -0.8296842003, 0.027758185214}, {-0.39676687095999996`, -1.6629966745199998`, 0.7892062693799999}}, 0.1]}, {RGBColor[1., 0.75, 0.5], TubeBox[{{-3.2669583087999996`, -0.25739957846, -2.8000070141999998`}, \ {-3.0252623534, -0.8296842003, 0.027758185214}}, 0.1]}, {RGBColor[1., 0.75, 0.5], TubeBox[{{-0.35848102219999994`, -3.208754748, 3.191747214}, {-0.39676687095999996`, -1.6629966745199998`, 0.7892062693799999}}, 0.1]}, {RGBColor[1., 0.75, 0.5], TubeBox[{{-5.893866421399999, 0.57818056696, -3.5237720722}, {-3.2669583087999996`, -0.25739957846, \ -2.8000070141999998`}}, 0.1]}, {RGBColor[1., 0.75, 0.5], TubeBox[{{5.600203001000001, 2.316804076, 1.52355379298}, {3.8648676152, 0.09607933901799999, 1.3578248227799998`}}, 0.1]}, {RGBColor[1., 0.75, 0.5], TubeBox[{{1.3465242613, 0.50501037624, 0.9577131367999999}, {-0.39676687095999996`, -1.6629966745199998`, 0.7892062693799999}}, 0.1]}, {RGBColor[1., 0.75, 0.5], TubeBox[{{1.3465242613, 0.50501037624, 0.9577131367999999}, {3.8648676152, 0.09607933901799999, 1.3578248227799998`}}, 0.1]}, {RGBColor[1., 0.75, 0.5], TubeBox[{{5.616265672, 3.6819421383999997`, -0.87076684354}, { 5.600203001000001, 2.316804076, 1.52355379298}}, 0.1]}, {RGBColor[1., 0.75, 0.5], TubeBox[{{1.06809203246, -2.3014972954, 5.0043723932}, {-0.35848102219999994`, -3.208754748, 3.191747214}}, 0.1]}, {RGBColor[1., 0.75, 0.5], TubeBox[{{-1.61078354514, -5.0950792412, 3.3625784444}, {-0.35848102219999994`, -3.208754748, 3.191747214}}, 0.1]}, {RGBColor[1., 0.75, 0.5], TubeBox[{{-6.984427296, -0.7648477012399999, -5.3258147858}, \ {-5.893866421399999, 0.57818056696, -3.5237720722}}, 0.1]}, {RGBColor[1., 0.75, 0.5], TubeBox[{{4.6528833571999995`, -2.018227368, 1.59906724394}, { 3.8648676152, 0.09607933901799999, 1.3578248227799998`}}, 0.1]}, {RGBColor[1., 0.75, 0.5], TubeBox[{{-6.8846497632, 2.3502522262, -2.4842337996}, {-5.893866421399999, 0.57818056696, -3.5237720722}}, 0.1]}, {RGBColor[1., 0.75, 0.5], TubeBox[{{ 0.25222172921999997`, -2.8873123553999998`, -0.68319264078}, \ {-0.39676687095999996`, -1.6629966745199998`, 0.7892062693799999}}, 0.1]}, {RGBColor[1., 0.75, 0.5], TubeBox[{{-4.282875006399999, -2.3581890754, 0.44072189772}, {-3.0252623534, -0.8296842003, 0.027758185214}}, 0.1]}, {RGBColor[1., 0.75, 0.5], TubeBox[{{-3.4948592643999996`, 0.84185403574, 1.06408581334}, {-3.0252623534, -0.8296842003, 0.027758185214}}, 0.1]}, {RGBColor[1., 0.75, 0.5], TubeBox[{{-1.9997080531999998`, 1.2582173653199997`, -3.2306755696}, {-3.2669583087999996`, \ -0.25739957846, -2.8000070141999998`}}, 0.1]}, {RGBColor[1., 0.75, 0.5], TubeBox[{{-2.8083218086, -1.9288433281999997`, -3.8412460402}, \ {-3.2669583087999996`, -0.25739957846, -2.8000070141999998`}}, 0.1]}, {RGBColor[1., 0.75, 0.5], TubeBox[{{0.6883326954999999, 2.2674822274, 0.77996550924}, {1.3465242613, 0.50501037624, 0.9577131367999999}}, 0.1]}, {RGBColor[1., 0.75, 0.5], TubeBox[{{4.9569402706, 3.553629743, 2.9880347512}, {5.600203001000001, 2.316804076, 1.52355379298}}, 0.1]}, {RGBColor[1., 0.75, 0.5], TubeBox[{{7.4715986588, 1.6746940784599997`, 1.940748602}, { 5.600203001000001, 2.316804076, 1.52355379298}}, 0.1]}, {RGBColor[1., 0.75, 0.5], TubeBox[{{1.1602350722199999`, -3.157732146, 6.6010018906}, { 1.06809203246, -2.3014972954, 5.0043723932}}, 0.1]}, {RGBColor[1., 0.75, 0.5], TubeBox[{{6.2088837456, 2.5314769496, -2.247829077}, {5.616265672, 3.6819421383999997`, -0.87076684354}}, 0.1]}, {RGBColor[1., 0.75, 0.5], TubeBox[{{6.7814707236, 5.1640542402, -0.74300246868}, {5.616265672, 3.6819421383999997`, -0.87076684354}}, 0.1]}, {RGBColor[1., 0.75, 0.5], TubeBox[{{-8.6617480936, -0.3492213648, -5.877992723}, {-6.984427296, \ -0.7648477012399999, -5.3258147858}}, 0.1]}}, AspectRatio->Automatic, Boxed->False, SphericalRegion->True]], "Output", CellChangeTimes->{ 3.576421194069992*^9, 3.576422740235508*^9, 3.576422926063034*^9, 3.576423138738208*^9, 3.5764238281970186`*^9, 3.576423997862917*^9, 3.5764240585938234`*^9, 3.5764240909638805`*^9, 3.5764246799117146`*^9, 3.5764250614883847`*^9, 3.5764253675765224`*^9, 3.5764254520194707`*^9, 3.576425489209936*^9, {3.5764267247757063`*^9, 3.5764267516077538`*^9}, 3.57642692038445*^9, 3.5764269656557293`*^9, 3.5764270019725933`*^9, 3.5764282691472187`*^9, 3.576466464816208*^9, 3.576466651735736*^9, 3.5764674065742617`*^9, 3.576467494870417*^9, 3.5764682170736856`*^9, { 3.576468607261571*^9, 3.57646863527922*^9}, 3.576468772325461*^9},ImageCache->GraphicsData["CompressedBitmap", "\<\ eJzsvId3W3d2LbyfnEyS95K85L2Xl5lk3mQymck4426PbXXJVqUai9h7EXsT KfbeO8XeKfbeSbCTIAEWAOwFBHsXSZESVW2PM3nfWvk2QHpif//Bt1bW0r73 AiRx7++cvc/ZB7jQbQsPO2tnCw97K4ufX3O3uG9nb/Xg51dd3fnUW/8F+C92 SvwcyuN/B77b/Dv//bu9cqN85j+P//P4P4//8/g/j///evxAtfuv2F1Zx1RX PzozC1HmHoQq92DUuAWj+n4w+tMKMd/Rj4Pl9WdHf+Wm2v0lnqyuozurAFUe wWgk2jxC0EX0PgiBkOhz594tBN33Q9DhEoyR1EIcLq8fHL3KfdXur9Gb9QhV nkFo9AxGhyf/ghjwDMWwRxhkxMiDMIw+ONrL3Pk8X1HMV+znK06kFOBwaR1P jl7SRbX7b9hfXYOIL9vgFQiBVzB6vPiShNQrFGNeYZj0DMMMMUucgJzbP1Ed T3uEYoIXPsILl7gGQ+wUiBd8+b3vv/zfoNbDD0186XavIAj5skN8yVGvcEx5 RUBOzHtHYNE7EstK+CgRweNwPheOeV7CLFc4yXiNuQVB4hyIl8tr2D06hbNq 9xcYzMpDi1cA2nj1ylMMe4fxyiMwzZdUeEdh0ScaK77RWCc2/KKxSZzgNoor 2fCNxCpPucS/UfB0MzzVlHsgZC7+353G6fg0C929EHj6q1bSw18d5BWO8RQz PMU8T7HsE4M1v1hs+sdim9ghTmCX2z/jcQwe+0djiydd8+Mqfbk671CGMwgz 7gGYT83Dzg9P1+Lhiw4GrpunEjFgMq9ITHlHQ8HTLPvGYt0vDlv+cdgJiMce sR8Yz9MdcPtfuY3Dk0BeQkAMNgOiseofiQWeUuEdgjnPQEy7+eP1ytrjozNa qHZv/YHYM8RbkHf2439ghmRW/vQ7LHb1oN3DH12qWIdjkFc1yqua8YnFom8c FxePrYAE7AYm8goScRCUiGdBiSdwGJTAC3vG7UEQLzgoDtu8wHVe3DIvTuHL 8HsHY44vvZiee3xhpqrdr7HHC5vp7kfpgyDUPAhGE2nXSnQQnaRfJ1neTpa3 kIbD1M1Cex9aHnij0yOIFxqKPpJh2Csa496xkPMil3iRGwGJ2Al8iCdBD/GU OAx+iBdKhDzEy5BEPCeeBSdgPzgeO7zaTV7tSgAz7R/Bqw0lWZi5B74UkPIa /wzDw0uQEQnRzUiNakF6BBHWginREib6l7Cz9gxTR8syUe3+BbPdfajgJTYo ywFp3sNy0E9VDRBDxPCDUEiUIiYGucR+V5YLCrn8ugFarB+gyzOcS4uCxDsG Ez5xmOOylv0TeKkPscslHQQncVlJXFIyXikRmoTXxMtQLpfLOwhhnri8zeA4 rAbGYIHLU/iRJT5MhJcf3qyuUiFH5Wt7+xnqaoeRliRAHlH8UICKRAFq4gWo ixOgIVqA+kgBasMEqA4SoC9PwvUtThyt2Oi4dCprTT9rTR1p/12tERMSJmmU NWXCQ1Vv3mJxCcPPMMkqNs4giO89QM05DVSeIa6ZoN8zGlLmctI3HgoueCXg IbaCkrAXnIynxHMu9mVoMhebjDdKhHHxYUl4zoUfELtc+BYXvhZE0gZSUt/l 1CcA+z09f6y62v+Bx9tP0Vg3hMyUFjxKFaCMqE0RoIloZQw6GYPuBAF6uP7e WO6jBOiKEKA9hD/3F0CSPYxnK0/HjmJgeFxvDxiDWtL8qCgGM4OsWMr1K2st FTVLKIgF4gQWuf1rbsP4WFmhwjBsbIfWLzTRdEEL9We10KhmBimzP+mXAAVJ vRKoDEbyUTBCUvAiNIWLT+FrveH2z/FVmPIxg8SAPGUw9kITsc2ArJEFS0Ex fA3K0Y/n8g3EQW/vHx1f9u7jp8hObUReOpNPVBNNRHsaF87A9CcLMMCgDHF/ AhIe/QkkDNAwAzTAAPUzOH2hDJhvM5Y7FBj9flTeRT3bhLKGd1JW/SpGMPVc +wylq2CNWWRrWCHWfKJYx6NYt5X7SKyzdq/6hGPc1AHCS1ro/PIu2r64C8H5 u+g1dGVUErmih4xKElPOqDAiT0NS8SIslVFIxZvwVEaECGdUiOeMzFNGZo+R 2Q5NwPp3UQmkNgKYGb8gZVTeUl32/1ZFJS+tAYUZLSjPpBQIQWYrujLa0J/e jsH0DkjTOzFKjGd0YjKzE1NZ7UQbj1sxzgiOkE4SSmkoRgBxcDN/VzRyFByD 7zU4gZf/cQ9lUWCzGmffnGX3WVA2Nx9lc2OpJ7b9YrCjanA77Dd/zW0Un4vC rLkTBq5oo4/ovqSNLgaqgxSSOgZhThmgIGWAUlQBehZ6HCAG5zX3J1Rh+m9H AQpngIi9MGWAErEeEo+l4NijAAUyQP4MkFDIv1Fe+4+x9/gABWl1KMpoRgVX XM/Vt2Z2oSezB+JMISQZfRjNEmEyR4SZPDHk+SIoCpTox3yBEIpHPZjL78Js bgcmsxgx8m00sQXD4Y1Y756THUVKX7X7RzyjuASkUsd3PdrrP3r0AhvnCiM0 ah2AKZtAyG0DoSAWlLBhD+bzTwJi2UxjsOriB8k1XQxc1WXEdNDLqAkvKSOm yWglYZkC2ySddpV0YrSeM0ovjyN2FK1/Po4Wfx72H9Fa+y5aQUfRmgsIwhNh r+rqd7efoDC1CiUZjSjLbENtVjdas/oYKREjNQgpy8l4rgTT+TL0e9dgvngE S6UyrJQpIcVK+TAxiOVSMRZL+qEo7MFMPvnGqE8kNUEaUYuX6/vS70dMjb3U m04ygDaDDYbRklJsk2zoYy6hFJAHurRcIbrriuG79zFKTGjfxyT3U1rca97H mLoLpg08sO4WCtl1fQwRomv66GPk+pV8+1ILErP7FFEyNsivHUbsgBE7ZLRe hKfhJfFKhdQ/ROwg/IcRW1RGLJh1OigcckZsV9ijuvrOuh6UpteRV22ozupF c9YAPbYEomwZozWG8fwJzBROIvNmDsYti7HimY216mls1Exjs2YKW7UT2Kwd 4+MRrFVJsVQxiPnSfsgZudmcNkwl15Nn5bimOtuf4tnzPSytTGB5eQIrxOoS wR63skDMTfgcRVZPtfsFS/8qXb4f23QwelnOBhjZfudgCAweoFnLBT2M6iCj OaLjhkldN8wSCmKBjxeV0OZjRnpa0xXjd1ww+IUBJGqGEKsZoI9R7ic/xVfu ovtLDSxSvWuM7jZL2x6jexCWxginMZppbzHMSjoeMqjKwO4ysFvfBTaElS2E VAyinw8IUF34k+09lKZUoCK9BdWZvajPHEZb5iiEWZMYypnGWL4c00VzUJTN I8uQok0ax0GZEFsNC3jcuICdpnnsNim4l2O7cQabDZNYrRvDYrUUc+UDkBf1 Qp5DY5Rcje3B6UvHBuM5Y7uyNoH27lx0duehtysf/Z35ELXnQ9xGCIimPIjq iZpcTAkFeLm/5/n9mP93LHf1osMjkDEPZaWMQLcT7ZKGIxoY707GWsz4jui5 YVrPHQq9B1jSf4BVYp05OcGtOyvmij5jz9+Z1bkP6TUL9J7UgugK462Kux7E V7X5WIP6TcIKa8AmGb3DJvskTBn3VFZHZQ045PbX3KaoquU+W8oOA7/JlrIS EocFVeAjIQ8KxeKjfNXVd9V0oCK1DlXp3ajNGEJT5jg6s2YgylFA+mgBk8XL kJevMJCscREj6I8X4llKDnZbOHQJONe1rWG/bRV7bcvYaV3EtkCB9eZZLDMB itpRyMlueVEX5Nn1GH1YjC+PZ8qx8Rb09Oait5eR7c3HQE8+hgkZMzDCDIwy A6OtRAsfN+VDWk/U5kFamQtFdwteP9k9no2P03ALAnefI/NNGydwDESRuj1q tJzRqu0KIaktYegn9TygMPDEsoEX1o28sWXsjW0TL+yYeuGxqQc2TZgaY3cs GDIV+vfRd1YHnae10XuVxUWNReY66X9NCyMWrqrissZUbDEVj5mKXabhCX3O PnFwvH/CFOx+17SYhqXQWMyHREMeEoHJoGC8Xl9XXX3Zw1JUprYxDWKmYRQt GbMsKgsYyFvBSNE6pss3MV+9jZX6xxjNnEabTy2eZVXgWVE7Djp38LTrMbGN /a5N7HWt43HHKjbal7DCdMw3TUNeN8JUiFhkWjGTU45Xj3cvqE78v/DyxS76 hDkQ9TETffkYJKRCRl74COM9jzDZ/QjTXY84lBHtRCsfUxdTzfmYYGYmqI0J amO8jKyYGnf/YVLa3FmLODE1O/gj97YtSjWc0MD60qnzAGI9T4zqe2PGwAeL Rn5YN/HHtilHYHN/7Fn4YZ94YuGLHQtvbJp7YsX0AeaNqaXblug9r4O2M7Rb NwyoESbl+l3ILF1U+lAlJkSpkWQG/ig5O2HKBCVTM0l8TNdBq6VMyEpoHOZD YzBDXUwGh7H7F6qufHp4HBVJtahK6UVVmhS16VMQZCygN3cVg4WbGC3bwUz1 Hhbr97HadIAtwVNUuNbjSU4TntcO4lnPUxwKD4h9PBXu4UnvDnZ6trHZvYHV DuqpdR5zTZOQ10iorx5qpBZ745PnVSf/c7x6uQtxXw4GRLkYEuVBIqIM+hns vkcsQkwCEzNHKJic+a5HJzDf+Yi9Yp45UlA5ctauWeZolrVrpj4X01U5WOpo dvthbjo4kHdx0inUccSjO/aoYM1v1vZAj443hvR8MW7ojznjAMY9iPFnB7QM xp51OA6sQ/DsHo36vQDs3WPOrHyxZumNJXMPyE3dKBBjdF6gJSaEanrMz10M MzdTHBTmOCIq+4ayhilztBGSxDwRzMmGMiccEVdVQuGURbFMh3KCplgkrFkv jsUyOzyNyoctqEoWoyp1DHVpc2jLWoEwfwtDJXsYqzzAbN0zLDY9x7rgJbY7 XqIlpB8bOR14XdmOw75XeC56iReiF3gmOsS+6Cl2+vaxJdzBWs8mFjuXMdcq h7xxjPmhaCqasdTWfu57uRnsz8EwcyNhbmTMzRgx2c+89BVgTliA+d5CLPQU Yqm38I+wzAd/iqWeAix280esbor2PCgErGSNuZirycZKV9P97+fmXeYmAJWm 95F90xqF6k6o0noAgbYPhLr0iAaBmDQOhsI0FKsWoVizicO2QyKeOCXgmUsC XrjE4tAhHPu2Qdih59yw9sPyPR/MWXhikvnpvKiNVrrwzms6zM9diCxcMMKJ dpL5mQk8ytGCMk/BD7FMLCnBvCxwYFMwL7PMywQ1M8ImPhQcTn+3cWS8f4aS qHxUJXagKmkY1clTqE9dRFv2BoSFOxguP8B4zXPIG15hqeUN1tu/xuOub9CX oYA8sw9fV9TjufgbvBj4Gi8Gv8Lh4GvsD7zErvgQW6IDrDE9Sz3rUHQsQN5C 6TQOsa61Y7Kk6Kzq9H+HV6xlw33ZkIpyIBPnYkSch3ERJSMqwGx/ARR9RVgg logVYpVY6y/GuhKiIu75uK8Qq8JCZq0AS5TXIvO12JaHhaYcdrQsfH2w6/r9 XL2D9vsByLpuipxb9syVG6q1vNh0/CHUC4LUKARTpqwr5hFYtHmINcdU7Liw Z9+nf3en+/RIxmvPJBzYh2HXPgSbdkFYsfGHgvmasvDAsK4duq7pQXBRA11q nKDMnSH2TYCEg/eofyImmLPpwKO8zQYRwQmsZQmYotEaZ8+XsecPseH0B0dQ Pxt46zhRZVElqIrvRtVDGRMlR0P6MtrytiAsfoLhykOM172CvOkrLLX+Dhud /8ra9XsI+XtDqWJ8VdeFV91beDn0e7wY/haHw9/gYOgNdoeotYFnjCQdq3AL ii56h/ZZyAVSvlY3pivLfnQ82G9tP4NEsoSE+BakclDPInI5iuZzYH8UIUAe h/a2Aglr3RIHrOOhbvXoncIC9yCUuAejgvjubfCa+0dvhYvSCiHMTUVvOelJ fY6SAGPiIwLIRYVQMMGLfcVYZsLXRCVYF5dgU4mBkrewNViCP+NhMTbER3xY 7TviwTJdyXJbLpaaszFfm4m/PX5raZhLqKqSIJGXn8rLz+TlZ/Pyc3j5rbz8 aV7+3urTO9/ny29Qd88d2dctkXPTCQXqD8gXX7TqBKLPgFO2STimzCOZf/o1 xyysu2Zh1y0LBx5ZeO6Vhdc+mXjjm45D9wTsOoZj0z4UK+TMuIEzes9pQPTh RQycuYa2y1pop7abzJw4wcejyMYTCbqWSNazQjqRqW+FLH1L1Dl4QhYcj+Hg OIg58fRy4ukIisDh+sYffUeViDJUxQpRlTBKXSvQkLGGtvwdCEufYrj6Bcbr 31CP32Cp/V+x0f1v2BH+XzwR/T9oiRvAywYx3nTK8VLyf/FC+m84lP4rDiTf YFfyBttDLM8DB1jqfwxFzyrkXXOQd9CntPZiqrbi6PR/Bal0EclJzUhPZlyJ oiQByh8KUJ0oQF28AA2MfWM095EC1IcJUBssQI2/AH2cXPdXnv70+K3SfbKn hO6w3IOs8QhBPdHscfSWbjubYKd7KA208k3dv0SLgzdK9A1RqmeIOjcHDFSw OJJBMyoGFWOxvwQrZM+auBQbA6UkTilXU/YWHg+X8c8fD5cSJXyKxBokkwZY bfinsrJEtMcGoPS+A1J1DZFlbIVSkreMxC1zDTqBuY7+vzyeKR4/fob6OglS uWLVyrnqQq64NEGASq64miuuIdNqyLSaIK7aTwAxV/x05Rk7+/fo9jZaA+OQ fe0ecm64oOCOJ1uJHwS6wRAahkNiSttjEY1Z2xQsuORxoM7Hjkc+Drzz8dw3 D6/9c/EmMBvPWaJ2nSKx6RiBGWNX1Ttd7R9cxdRnVzB16gtIrt1G821NxKqp 4/qHH0L9w99C7+OTMCbMCMtPTsJKhc+h98HHiNY1Qa69GwvxwI+OadZTQopF E3HjrErzqMtcZwnYg7DsGYZqXmG88Wt6mt+xHv8r1lmNHvf/Hnvif0NFiBD7 DcN4IxDhhezfiN/jUEaayX6HXelX2B5+ifXBp1gS70IhXIe8dx7ybnb2jj5M NVQeda7/iZ3HT9FUP4zMVFafNAGKiUoe16cI0MwEtCnfe2UCukm5HuX7rjHH 772GC9ARwp8HCCDwauHlLeAnqtf8qYpzfVkFqOYwXuMZgkZCwCGxwyMUPZxS hET/gzCIiQF3wi0UAjNrNOgboc6A3OO+lkRpdXWCnLxbUPGuFGvk3OZgGbaG yvBYUoYdaRmXSv7tysqU75pKS/kUKSkpQW9qMDJNTZBtwoAbm6DQyAQlBsYo 40sL3ENI+VZS/o8hUH6S4RIMgXMQJCkFeLa8zvp2NKsp347OYjiy045CU8Sw lDMkNQxJA0PSzJC0MhxtDEc7w9FOFbZThR0MSYd3C2TpA7j5Q0420pJnXbFF jporHt32RqVWAFr0GBWjCAybRWPCMhYK63jMuxVizaMIj32KsO9XhMOAQrwK KsCOazxbZSjG1a0xomEDiaYNyj++g/bPNTBx/g7mLl5F08VLSDtD7mnfgdnN azD58ktok5cGH30OE8Ls489h/ony+Lew/OIizC9chP2dO2itqPzR8cpnRfOo iiQnY5ScXEBt5gbr+h56yw4xWPsKY01vMNP2NRZpY9Z7f4dt0bfYHfgWg+Wr WKuV4Nv2Fkb4+ci3bGKHI7/DwQhLn+wrbEleYW3okJzcw5xog8klJ4XjLIFC LA8Jj96ZIyFzUptU730XEOUZrHfctzADHcxAD4nZxwyIWQsHiSFmYjjx6L3v IWZkgCQVHb//3evfwrFx8Lhv/RWekpi1noGo9wpGoxczT3R4MfxeJKQniUhi Kj/dlSo/0VV+sktyDjv7ot3QEAIDvRNoMTCgExboG6BVzwAtOgaYKqehF5dh g7zcHi4nL8uxIyvH3kg5noxU4MloxQluyjlxPhkpgzgjBIVWJii6Z4JiK1OU WxmhysIEteRqHTnaYGiMdmsXCHnmPspCSH4KXUPQ43L0cVSPUxDGkh/hcGnt T44H2dbGYeQzSI+IAqJU+YEBA9XAQAkYqI5j9So/Nekj+pUgbftZSvtYSkWk rSiwGb0edXi+fKD2fcb+I51tKTIu2SHn+n3kk7FlWoFo0gtDl3EkBs1jMG4V hzmbBDK2ACveZZDbp2LRKZWGOxSz5mFs6Jz4td0wrueOMSM3yGjue3Wp9TOa aOegVHTqHIo++QDR507Blox10FaHE+FC3CfciBNwv6uOH8Fd+ZhH97X4c807 cFa/g2Rfv6OPkD7lEKJAZRjn1qgxmvEFVKTQpWQsozlvHZ3FWxBVPMZ022sO jm/odL/CpohGfPBr9BXOY7xCgm96e8jWr3E4+jWejXyFfWJX9pqsfUnWcq4a JGsHydoBsrZ/DLM9vdhbVnBQncLDyArEBpchmoJNJDK8i5DvVYxij2IIwutY G+ogSe2AjBhN68B4WjvG09swQYyntWKUyZIxWRKyeJjJGQhtxlTuAP5GtbZ/ UDFXedNAE5nbQrSRuV1EH9k7oPygiuwdIXPHPMMx4RGOSWKKjyW2rugyMkCn CoboIDrJ5h5CyFLbSyorqlKxpaSutAI7pOzeqIq2kHdyJiJOQMHtX6De2xoV tsaosDtCNdHAx83Wxmi7Z4QOCyO0kcM9FjYYVirHTXkTwzBZ/CMMkscD5PGg azAGWGtFjoF4ubT+x8cf7XRwpinKFKhQQlSQx7XprWhObUNbSju6kzrQ97AL 4qQuir4bw9xLVOgkOlgA2iCJb4U0pgXS8EYM+tXg5er+9R9yuTSiCo9s0pF1 1Q15t3xQQi7X64ehg1wWkcsDrMId19zRcdUJ3XdDITKOh9SCw4btQ0zbxmHK KggTFj5YsAvBnH0geR6BWccQjNv7I+XkeST89iwyP/0UCe+/DUcddTirOKwB dx0NPCA8iLfgqavBgHiqHqsfcVrrDlzJ51S/P3A537MeuV4dyPQTIidCgqKE cVSnTaM5W46uR3PoL5nHUPk8JuvXMN+2g20OjdPNG+guHMLrPhFekZ9PR18T r1h3XrIkvcCm5DlWh59icXgXc8N0BEMcQMUjGGltRW5KFSJ8chHtW4AENpw0 v2Lk+pWixLccVd6VrJhVtI01aPWsRTvRF9TEOqT8pKgP8jwh5Lm9RDdmcjox ndWOiYxWjJHTowlMSGQTZvJFNBtHluMZudzsFUDbcPTBdAd5rPz8qJ88HlJ9 KhJOHkeQx5GY9ozEDCEn5vjcoKU1hMbkrrExhCbG5Fcvtz9Gv7ERBohBE0Pu DbFUl4ZlTsNKDosrPTBU7QkJISVGqjxR4ayDR0Y3UWBMcF9qqoEaSx0I7EzQ QU532xijz9oI/ZZGEBqZnMAY28GfYYy0HqNjHnU/uhdHRhs7Qhsrcw2ExDkA r2gfjkbNv0Vn4wC53IzSLIEKlZltqMvoQHN6NxtZLxtZH/pT+jGYLEazSxlG aBdGMwYwlinGeIYS/RjLEGIsrQfjKZ2YYB0fj6mHNLgC/19ih9WgMmYAKV+6 IfuGDwo0A1FFWyEgsYUkdoNaGOqveaL1tg967vpBZOBP0lLdtlGYt4/Apmsi NmgtVl1iseQSjTlnFm2nEBRf10DS2fOIPXUGvh+dReinpxBz6iPc19HEA11N eBBeeprwJk7AR1+TGx7+iE9owEtXXcXwB6zqblq3yW7fI9N5EqtrE+jqyUVB UCGyXRqQ49uDvPBBFHPUqkmdQEv2FFk+A1HJLIbL5RitnsNErQLTdQrOpFuo Thfhad8Qp/BpsvsF8ZwN95AV7Bk2pAdYke5jQboDuWQV430T6KvvQGXGI0R7 ZyLeLx9J/kVI9y9Dvn8lylgqan3r0OzTiHbfJnT7tkDIOarNrQp1NyIhs0zG RFIvFouHiUFiAAtFIswXkvn5PZgm46cy2jCZ3IzR6HrMFgj/+viehqera2jx 9GexProlq8P7iOiiY6Ir7zIaV95p5BWFWWKOmPeKxoJ3NBa9oyAmyUUmJn8E samp8pNpMxNIzE0gMzfGoJEWOjSvYYBcHqr2grTWC6PEGDFB1NzXQbHJTWal xOQWiVvGbaXxLdQY3Ua94W3Wal3025piwNYEQ+T6kLkpf3faIwK/xAy30+wf yvtCJo9vPJtwD8aEG8vf/UCMOvvj9fLa0aeC9UKUZTSiIquFaEN5VidqMnvQ TPK2p4nRkzoEUaoEQ2ky5GjnoUsjE8tOyexto5jOG2VdGCFkPJbwuUFMZ4sw k9GDGdaOqfgaLJZ1Xfsh17sLxaiMpLR8upB23Ru5GoEo1QlFnSGLNy10i34M Wo2j0GNKqdpEY94pAUvOCVhxSSC/j/bLLvEc+2Ihd4nCpHM4O9Z9JJ67iLhz 5xF5+jTUP/4CVh9dQdxnnyP+5EfwJKm99LXgY6AFX+It+BloneBGExeVtCff 1VnXyXdy3Z1cHx3oRE9PDvr6cjHQl4fu6kfIdqhDmkszEtxaEeOuRCNSfJqR E8hBPmUArTSq4uJRjNfOYKp+FjMNs6jPHsBGjwRv+upZwp8SByT5PjalT7Au 3cOSbAcK2RYmRHPorOlBW0Uj0kIzkeibjRT/QqQHVCA3oAZl/o2o82tBi18r Ov3aIQzshDi4C0Nh3ci+XYRRpxYcxFVhKpK2I0GItYoxrFWOYLX86KPuxdIB zBX1Y/ZRD2az2zGd0oixmGq82tz/q+NPYCXZeST50U0lnazqXd7Ke8GUN61F kOhRJHoUpkluuVcMFN4xJHgMlpR3CRCrxKCJKYZMzTBkZs5RyIJ7C9VeYqF8 zKpuqAmx/g1CDULHu5Ap2V7njUliiqhz1WEVv3kC5aa3OAxWmN5Gtekd1Jmo o5EQGKnTxqujy+AOBlnYZfZmGLE2x4SD8sNIBS/ul6p7X+YI5a2SyrswZ0j+ GZJ/xj0I0/cDMOHih+V+KcrTWW5Z2avY6KqyulGd2Y+GjEG0pUvRnT6C/vRx DGVMQsYyFnWtCWL/Yezm9WG2cBZzxbNQFM8Q0zyehLyIRrJgBLP5Q5Bns4mm NWMmqQJvtveufp/4P6e9XaK9FaMqbgb5TlXIuB2A/LshKDMI4woj0WkRBdG9 aFq+WIzZ0604xGHWie7cOQ4KJVSEj8E0C/y4SyT7VRjnUE0674sIP3MONl9+ AYtLF3D73Utw+fQKHc1niPv8I5L+LvwM756Av+FdXEaA0V1CSwV/QyU0qQkN eOursxfQzLAq+VvdxkB/LoZFeRgVsd6G2sH5ii/8tPIRaFqGELtqRN+vRZJX PbICGlFAt1sa2YJKjia1Ca0QFogx2TiJZuVboe1SvJZ20r3sEbus7ztYkz7G 8sg25kc2MT6wyCokRntNFx49zMdDn3S6l0fI9FdSvwHF/sr3xdh2/bvRGShE XzBbbrgI0igxRmMHUGrRjOF4GZ4WtWMmUYyZBBEUqYPYogw3aiexXjOO5apR LFRIMVcyAHmB8iP1VlaoOshiSv778RR2yFrfzlrfyVqvvF9TeSdpL+kvJp+k KvpHk/4xkHvHYt47jtSPI/XjsOYbh3Viwy8OElNzSMwsITWzPAGpuRWLi8zS CsOszX0G6hAZkrqs30P0K0OGapBlOdL/eWOGkOQ6ocz0JirMWOfNbqPK/A6q zdTRYKaBZlNNtBIdJproNtakd9KgtdVgzb+LSUczzDh5/kGNSz5HrWdBeZ+t dwTlEE7vFYo5D1reB4GYdfNHq7UHKtPrUJXZSvSS/gM0NlK0pI+hK20Sfekz GMyUQ5qjwFj+AiK/CMWQUy6eRCVhvmwJC+VLWKxYxFLFAvfzmGeHnyubgbx4 jNEdUvlIeVYD1ho7rv6w9j9Ze4byIBGqYqZQk76CogcNyNAIQr5uKMqMwrla 9gDLSDq3aAzaRkNqH41RB9LdMRoTToSL8l6bKEidObyy7jdbuCPy3JcIOXMR Npcuw/zKJVhSAs6at6D3+S34nrqCzFOfIEzzOvyNtBFgrM1iEWis1EEQt4Eq HGvBiDow1KCxV4Oj2qewv/5bNJWE4WGYHe5e/hS6lz+D+aWb8FHLRoB+CYKs KhBBGSc8qCFfa5EbXI+i8AaURTeiKr4JtYlNqE9qQkVyG3oaJHg+0ofNgVks S7awLN3EomwDcyNrGOM02lY/hNa6fjRWtSHBMxFpPjmcHMqRw7JfQO6X+wvR 4C9Ce9AghKHDGIyUQhYrwzj91lTSKO1nA912Pl48TMN8ugzzaVLMp7LsZ0mx 3aTAZoMca/UzWKIeFFUjkJcNqu7bkec0YTqtHK+3947ewNUjKXOpAeU9y0e3 A/d4Ke+bjaTficII+T/pFYtZpQbI/SXfeKwQyvuYN4hN5f3M/vGQUQMjpP+I +T2MWlhDRogN9dDHctPPUIuV5GVNl5jchsz0BkYjzTBNEcgbfFBqfIMCuEUB sP6bq6PWXAP15lpoJtpI+E6zu+ghhISYjwfNlbdMafI8dyF39ub1UJe+sVgl lK1pmYJY8lHedM7e4B2huitU4REMBcUguGGAWtcoVGV0E4OozhhBQ/okWtNn 0ZOhgDhzEcM5yxh9tIrJonVEX43hOFyM/YRMLFZtYrl6Eys1G8Q6lmvWsFCz zPAuQF5BMZSOsjew3BS2c8Aqx5udHVz5/t1kNij2EaIyYgLVKYtoyN9EQ9II UjnS5uiFoMQ4DLVUg8AyAl3WnALo9EX2URhwjMKgYyRncI68dPlCNoEOp1B6 Mwt4nb8Mq0tXYHrlKiyoBJvrl/FA7y482QBMz95G2NnLyDvzESK0riPQRBtB RPAP9lQDEUBF+BnehMvtz+F88zM43fgUd8+9D50rn0L/ymcwvvI5zAjbK+rw 1ShEgEkFgm0rEXW/Eg85Z2YEVCMloAyZIWUojalDRXwdqhPrUPOQxzQiO7JB rHR1YqafoZKuYka2gsmRZXS2ytBUP4D6ml4UZFYg1SsNGT4lyPJr4CzbyU7Q j+qAYTQHj6ArbByiqElI46cx/nAG06mzkGfMQvCATp5/8zItF8u5U1jOmcBK zhiWMmmGWKO2BMtYb17AcuMc5uumIK9WqkHMNHWwbtGvNrT/hSo9+uwIq+j0 8KUKAlVv1XRRCb1UgohKGKYSxqiEaXaCOe94LPrSmBJrfgnY8E+gChKwTTwO SMCImRVGqYRxCxuMKd9a4TDQb6DNkVeb0wFZbKpFs6TJhqFOxdwi1DDb4Iue CAu6oJsqNVSzHdRYaKLOQgtNFtpotdChX9Ch8dVBHyHi6DtopQ0JMWKphTGq ZsrcEetUpPK7D8oOpdyv+sWqbutc9I1WKULhHX50n7SFC9puGaHlpgmqOJxV 0QVVp0+jMW2OY8AShJmrGMzZgPTRFsaLH2O6dAcxNx9C6l2Jpyn5WK7bw2r9 HtYalNjFasNjLNVvMsSrkNcwzZXTVIUM8nIh5CWNOJic/IEYfo6p7g2UBY2j UvkRSs4q2ko30FezhbrwJqTrByPPhC3CgqKwCkejTTgH/XC02RMO4Wh1DEOz I0cIx2BU2AfgwQ1NmFy5RqJeoxiuqNqCs9YdPNC/Cy9DbTjd0oDJb28i7uIl PDrzAQWhdgLBpjrsCsFm1ILpEYJMj/TgqX0a9++chCv1oPbhL3D+138PA+rA hBqwIO4RNldO4v4XQfDVLkWARSVCHCs5IFQi1qsMYZ75iOHUmhpSiOKYKpTS qJcnVCErg1PpkATr/S0YbpNgTLIEmXQJXV0TqK0bRFWNCGXFXciPKEe6Vx6y fGo5abcj368fpf4S1AWOozV0Gr3RcgzGKzCSvICp9EX2XvZolq02nx5MBVbh dXYRVgsXsFaowHrBLFbzp7BITaw3LGGjbQ0rAv4+u8RcvVIPUuqBk3FxC6Zz i4608DFWunvQpbo986grdNFh91IHYupASh2MUwez1ME8NbDsm0ieJVIHD6mD h9gOeIgdYpcYM7fEuLkNJixsVboQ6ZO7RrrUAfdmOhgw11bZGim5PmKpjjHL m5jKcUSpwXVq4daRLTLXRC110GCpjRZLXRoGXfRY6kFopUf/rMfpQA/D1roY sdHBmLU2Jqy0MGNshzkrtxPYpCh/yW38H+Sw7BeDBV/lV4WO5DBseR9td8zR dtuCM0k6quiIqlIVlMIyOjLW0Ze9jaH8XYwUPcFk2QFmKp4iViMDMv96PM0o wWrjIdabiOZDbDQ/w1rzPpabdzHfuMUGtwJ5nQLy2gnKgj24qh1r3Z1Xvn8H +8/RmbtAF6FAZcYSmgpX0F21hoGGDYy0baExrhFFnpnIMA9CnlUICq1DUGwT giLbYDyyC4I4pxnTTaNYp7s2Yi8wVsngKrl6BZZqV+HGfuDB4qOUgY+RDlw1 tGB96hZSvvwSj06/R/7rvIUQZuLSH6Tgb/QF3NVPw039FG589AtcIP2/+PVP YXKV9L96EvcI26un4HLtNDzUzsD7pg58dSsQYEUZOFEGDyoR51OGeP9iSqAM ORGVyIuuwKO4CmSkCiAV0qTIWtHd1I/e7nH0DS+htFqM4koxCgq7UUt7mu1X gEzPMmR7t1ACQuRzIisj/RtCZtEetYC++GUMJ69iPH0dM9kbUORtYqlgC+0B A5gKrceb/ApslK4TqwRbQPE8lgtnsFpLCXRtY7VjHYutS5hrlkNeP04ZMDmV nZgtrsDr3R38+fEHULLMHOoggDpgP+CE2eUZiR7PaOogljqIwwQ1IPdJIKES sUINrJP/mwFKDSRhJzDpBPYCk3AVy65+mKAMJi3sMKiniwEDPZoi0teUMOdj lvQhlnSp1V2MWNHcWN6G2FUbZSY3OCHcRiUlUE3DU0MJNFrpQkDqd1rpo/ee PvqtDTBga4BhW33I7PQxaqeHCVsdnssQcjN7yE3tsOEZwUtKJBJUWljzj6MO YrFALSh8o6iFCGrADG3qVtzfQ+P9bFSlzKImeRlNqZvozNxBf94+hgufYrT0 OaYqXmC2+hXitHMxEiLAs9wqrClvlRK8wWbra+Il1lsPsdx6gPmWXcibNyBv XIK8iV27kW2hgV60qvwHOvhH7C2/QmHgNEofLqI6dwktTFxP7QoGm1cx0r6O qR6+Sh+bjHgLS4NbWBnewird9RqxSoe9TIe9QIdtyMnA8PJVGFIHRlcuw56t wE1f+0gH1ICPsQ78THThdlcbLudvIevyReRe+xwhzATFYK6DL+mN7sBb5wwe aJzBTYrg4tsUwds/xaW3/w/MVSI4BYer7BNqZ+Fx4yy8b52F321CXRc++gnw sapCgHMVIjyqEO9XhaTgSiSHVSItqhIZsRWIjWlAs0CClZFeVJF4tQ19qBCM I6ukH2VZnbSnIs5oMqTez0CmRy2yvTqR5zOIAr8xVATNoDF8AZ2xqxA93IQ0 /TEmshnl/D0sFD7BSvE+OkOkmOKE/lVRLTYrd4nHxBbWy9foixaxUDyLzR42 8e5tLHasYa6VTbuZTbue/aCWE3NlPZ5MTfz5sTfqdPehDuiLPNgLPCLQ7RGF Xs8YDFADMq94TFADcmpg0e8hVvyTsEH+bxGPA5Opg2TsBSXjCbGl/AKFuS1k +kYY0tPDgKE+ewFhRljoQ8zaPkSCS+/R11hrQWaljjbtyxyVb6GCHqeKfaCa Qqnh7zSy9rfdM0AXIbQxhNjWEEN2hpA6GGCEGHfQx6S9LmbumUFh6YB5c3so KIbHyi83HothPYATDcWw4B8LhV+0SgxtdyzQpmFDMdii9Y41qpLmUZu8hqa0 x+jM3kf/o0NIil9irPw1pqq+YoH/BnH6RRiJ6MSzgnqstX6LjfbfYbP9a2y1 K+8ffImV9kMstO0zzI8hF6xB3sqm0Mq609LPkNde+f73vSiEtTcoCFegOHUJ 1Y8oBA7g3XVLELcsQ9q+jPHuFUwJVzErWsWceBWKQWKIx5IVmutlTMqWoEcR 6F+6yv0V2Giow4WNwM1AKQKdYxHoqkRw38wMulyt61Vd5F89h5yrnyHEQpdj 83dCUIOH5hnYXP3kDyL4kiK48vY/wEopgmtn4UoRPLh5Dl63z8P3znkEaJxH sNZ5hNw9Dz99N7hxdPZ0oSA4LIQFVCEqpAqR4ZWwMnGFo30gvPyTkRIeDG9H Z7i5BSEnpRyVKQ1sxRRHukQ1o6W55iPrQRNyvIQUghRFflOoDJlHU9QquhK2 IE7dhTRrH5P5TzFXeIilkudYLX+BzvAJTMV04KuyJmzVHhJPiSdYr36MVTba xYoFLDWtYa13F0vdm1B0LDMz7AotnOeaRBRDE/Znp38ohKOb95VCaHUJQqOd F62pD3rsfSF29IfEMQCjTgFYVQkhGdsUgFIIu8ci2FciOBljxpaQaNO86OlT CAYQmxhQCIQFj1ndh0hwiTW7gvVdyKw10KH5BYVwh0LQRCWHgmqKoIYdoJEC aLM2RBdF0GdnhAF7Iww7GEHmaMTrMMSEkwEmHfSguOeEBStHLFgSFvZYd/VX fct3O5DmLVD5TVEONhSDwp9dwS/qqBto2BEOPLZDFetybcoGmjL26Fmeor/w BSSlbzBW+Q2mar9lVf9XxBmXYSRGiGclzVhr/73qnszNzm+x1fkN1jvfYKXz BRY6mKJ21qsO1vNO1p3OScjbOTo3N1z5/ldi72F3/WvkRi6gkCNJJYXQRCF0 sIULm5cw0LYESecSRnqWMNZHiIlBPqadkNJZDxB3v7gMbcLqjvJGBS0462mr OoE5V69vZAcNQ2fc1bOFrp4d9Ikb1+7B8LoF7G6awUHTBE7G9xDM3uxnQIJr nsWtj/7pWAA/w2UK4Nq//JzCOANntXNwu3kenrcvwFf9AgI0LyDo7gWEal9A mM4FROhdQCQRYqQPv3sPoKdpj5MfncS5zy7gymVtXCMufXYR1z/8GBd+/jOc +fHf8LXfwb0bhvC3DKYQxlGfLke6czGy3FuR4ylGvs8YigPlqApbRnPsJrqS diHOOIAs9xBTBS+gKHmF5fI3WKt6g86oGUwl9OCrylZs178iXmCr/hk26p/Q Em1jqXqFU8EG1vqeYKn3MRRdHOM65pkV+tZWZqaxFQeKme9E0OXuizobZ1TQ zhQaWaLE6B4qjG1QR9fdYmKPTuX3Tc0cMUAMmzlBZuqEeedg7ASlUAQpeBKc QgGk4IAiWLB3/w8RGJH8Joa0RIYqEYisDOju9TFsw45gqw2ZrSaavzyJUjN1 lNMOVbATVNEK1VIAjRRAu60RumyN0WdvjAFHYww7GUPmbIwxZyOMOxtixs4K 89bOWCAWKYYllRjslU6NAqVzoxBWKYTFAOVXp9kR/KNJ/HtHAtBwUu1rA/to i7bQlPkEnfmH6C96BUn51xir+h2m6n7PUP0b4syrMJIgwrPyVqx1UgRdFEH3 t8TvsN79NaerV1joOsRc1xPIezgm9NIa9bL5dtOFtjUdi8BYtbPCzvpXaK7Y Rg5FUJy/hJqyJTTXLKGdhqqHHlZIEfTzFUT93FMEwoEldBIC8SIcuTqLW7dg q6UJc/ZcLSs33Lzng9u6ttDUt4U2oatvBwPCkDAmNG7cg8UNiuDsLZhf0oHx ZSOYXbwNew011RygrP6XSP6rJL/6R2/D4fp5uNy8gAckv5f6RfhpXkTg3YsI 0L8Af5Pz7CDsBKbnEca9m+ZnuHXyV7j52S9x+Tc/w1Xiyq9/hk9/8jc4/ZMf 48o//D1u/uOPce2n/xtq//BT3P71J7j5z59C8+MvEWKViHSnUmS5dSDHYwh5 3pMoClxAdcQ6muMfozt1H+KsQ8jyX2Kq6A0UZV9jueobrNV8Q6s0h8mkfnxV 24ntpq+I19hqeo6NxqdYbWDlr1/nDKDAmugAS8IdKJRWs5ulqYsjcscQe3Y7 9udnj/9DAwOsro2jyEAXxUbGZL8ZSqmCMhaLaqqgkR6jzdQePWS/yJwKMHfC iLkzZ2FnTJg5Y4pYcQn+ngpSMG/riBF9Ywzp0swbGqpU0G/Gck4Tr1TBAE3+ kC3bgR3bgb0WKj7/LVK0riLtrhoydG6h0ITDARXQYGMEgZ0xOqkAoaMJxE4m GKYCZC7GGHVhO6AKFLYuPJ8LFmxcsEglLFk7Eg7Y9onCdhBVEPQ9FQSwHQTE QMhC2aZJFWg6q5TQ4FKK6tTHaGTH7Xj0HP3FrzFc8TVGa36HyfpvMdv8LWLv VUGWJMLTaqqgS8n832Gj5xts9n6F9R62gp5XmO95DrnwgLZ+G/J+dt7+GT4e wmxH03fvnh79PxcWkA09Q0rqIrIogSJKoIISqG1aQgMl0NRBdPOYMqghSjsV mFnZR0tlJazV1aHHAnXdzh83rL1JfRtokPZ3SXUdA9Z9wtDQDmbX9WClpg/b z6/D7qNr8Pj4Kvw+ugSvjy/D/cPLcHrnImz/6bcw+cVvoPPLX7M+/wL6pz6E 440LuH/rIjxIfS/Weh8TysD6LAJsziHE9jwibCgB81Owvv0ebG++Bxs14tp7 uHf5XZieeRtXf/X3+PzHf4vzf/8TXCf91X/xd9D65d9B8xc/huU770DvVx9C 558+gu4vPkLonUAk6T9CplkTsq26kecwgBI3GWp8J9AawRKQvA1pxi4mc55g Ln8fi4X7WCk5QEf0JCZS+/GmoQtbnNO2Wl4RL7De/Ayrzaz5TVuYq1vEmvgZ lvr3oBBuMg3fFSUJ+0A7nizM4M9UuTDCixe7mJhoUX1cXmKoS/obo5wyqDCy QqWxNWpNbNFMGXSYsRFQAoOUgNTCCWMWlAAxZeGCGXMXzBJyU2c89lF+Lz8G 83aOmLGywaA2HZA+JaC8c4gy6KUM+igDEWXQbHgbJXcuokz9HFI+YEwun0X4 VfbYa18i6volxKpdQYbWTc7Kemh3MEEPJSByNsGQiwkkhFIKMw6OUNi58nyu WKAUFoklGzYEG0dsuAVQBkmUwUOsUgqLgfGYV8kgljO2N+nv+D0ZlKGGMmjI PkD7oxfoK3mNoco3GKn9ChMNX2Om+WvE2FZBmkYZ1LWy8H+FtR7Sv5djQe8r ms6XWBY+x3zfM8hFbAYDlMHACsG49w9ibVTynQzMj78fsPX4G0gmDzE6e4gk DnJp1UtIY+qmlg8xTuw8+/r4jqa7uMNKc93OD2qk/Q3S/raezVHVN7CFHilv rqYHu5PX4HzqOh6cUoMv4f+5GgI/uY7o315D/CeXEfHxFfj/hgPur07C45en 8eAfP4Dbzz+A48efwom0v0+b42F2Fj42ZxFodw5h9ucRQ8QTkZYckDXeh5v6 +3C/8z4e3Hof96++C5cv34XD+Xdge/od6L//z7jxTz+Dxs9I+3/6Ce7+y/8h fgqzTz6DwQcnYfD+KRh+cBr+t3wQrJGINKtm5LkOotB7HJXBs/T/C/T/qxhI XYcgZQFlSdOsTDNoSJtBc8Y00kNEKInpgjC/FaMVW9hsfUEcYl1wgFXBHhab Sf2GJawOHGKRKZgTsR+LlJWIKegdxmxnG3YXpvGnqph+ofoaar8wR/Vx+YAo DyXsAhWGxqg0MkcV6V9N+teR/i1mdugi/ftI/yFSf8SS1CemLEl9K1KfmFN+ EZRSUDBPy05epKMTaemEKSs7iHRJeeVNnyZG6KEfqtXTwKObl1F85xJKWWoq OWOlfPYJYi6eQfS1i6T9JcTduIK4m1eRdPsa0u9cR5HubQhsDNDnYooBV1MM upL+1haYs78PBTFvT/oTi3akvx07AbvQqrMHtoO/T/8EzFMCisBY1U1FSg90 QkX+n6D+uAso6d9WcIje0pcYqHwFae1rjDVyOm55jWiHKkgyRNinhVym71kh 5Vd7X2CVtF8Vck7rf4p58T7kgxwIhhj7IcZ+iF1XPID9teXv6O94TOmGiUUY 0aqp2ftDzdxNRes7ekozQxOjaQbrL+6Qztfgfvo6fE+rIfj0DUScuYEYIvbU DcR/dgPpnzM8n15B5DtnEfbrkwj59RkE/eo0gn/5CaLeOY3wT0/B1+I0/OzO IsThPKIcSWci2fEC4q3PwOvu+/DReh9ed96F1w3iGnGVj69+AM8rH8KDcD73 Dpw/ewdBv3kbaZ/8HLd+9RNo/uafYfLpOZievATtjy9A99Mv4PCFBYLUH3Ja yEeK0wDyAxQojVxFXuwSkuJm4BQxAPeYQXjHDSIgYQjBRFjiEO4HdsIvpAUJ 8Q2IjB9BWLQMOclTkFatY6X1MRZbNjDXuEBaP8PiAGk9wNDSFMrFpHXfEGa6 BMeUNlZ9G3GgLwdDoqM7QKSifHQk+qLS0AjVhuaoJq1rSesG0lpgZo8ucwf0 W9DYWJLWVqT1PRdMEzPWrObEHI8VxDzpPU1jNGtliznSS06Mk9q9eoboMTZC 6e2byCNlc9RvI1tHG/m6d5GveRtxnIQCT96E12VNxKgq+mXE37qKZPXryNC8 jlwtNRQQbbZH1B62scCsgxvkxJwDqU0s2N8/orY9rT4ltWDroKrqG8FKWiu/ 25sARRBpHaT8/0aiVfPtkcV3RFXsMqpStlGX9QSCR8/QXXIIUeVzDNc+x0jj C0ywc0Y6V2E4W4QnLa1Y6H7OqYlU7n3Gav4Uy/3svGJ20aEdyIdZ0SU0k5JF Hk9iViw+vkfC4fj/72oYn0dG3wQyRdO4aR+AG2buZLUdWe0AfQ1LOLFA3yeT PcnggDM3EX72JmLO3UICkUykEml8PvPkDTwi8x++dwoJ75xC7G9OI/pfLiD2 nfOIvnkSsXonEa9/ClGWZxHtdB6JzheQSjy0PQNvzXfhrf4ufG69Bz8W6YDb HyLozkcUerDGR3gHoeofIuT2+whUI8svvov4U++h4OLbuMNZWOvt92D2+XmY n7oMs9NXYX6WDeVLSwTfSUSoVj5C9SsR7SWDR9gI7COG4RIjwYN4KXwSZQh4 KENwkgxhSSMITx6Be0gPAsJakJREVifIEBEnRQR/PyKSrA8VQ1yhwGyTAitD B1gY2sPcMH3KECM7yIIhGsA4bePR1yxMVIV6UJgNiSgHUnEuZKqvWOajM8EX 1QZGqDEwQ62hFeqMlMy2UzG7m6zuJ6uHyeoRMnmCmLJxxSwhJ+YIBZ+bJ0Z0 9TFKuz5NRs+S2dO2ThDqmeDR1TtIvmuGeDbZJA7EqVRNgt49+J/RhPcHtxD+ rhq8T+rD+so9WF21hc8NfTwks9PI6Bza+UdEMR93sqlMk9EzxBG7j5g9rwIL twMtvAOZbU9mc5DeCFL+P0WJR8wOJrOP/18YlWdRt0erugOqYhZRlbSJ2sxd NOU/QUfJPnorDiCufQpJw1OMNj9FuGsVBvNE2G1rxVz3AS36PhZ6n2CBvnBB zNFo6DHZzLhLOTLJ6FVk85iVTGBpagrH1LY/fh+zYUxOao+S2lPIEskRVSvC TTMv3NBxgo66NVxOXmehvgEf0jeINI44R/Gfv4MkIo3IvKCOnPPqyONxDuld zKKe+eFppL93EinvnUHy+6Txl+fx0PAcUo34PJFFZJiyJ5qfRqThSVLYl+7j YwRokNJaHyNU+xNE6LJv6n2MGN2PEKv7IWJ1PkSM9geIoFcJIsXTLr2HUkrB 9bNfQ/s378Pi5AVYnr4CS1Lbitdkd0kPgTfiacdzYHavBAbuDbAOE8Mhagiu sUPwTBiG70MJApMkCEmWktqkMfEgtAtBES1ITmlEFH8elTjM4j2EiNhBRESJ SfE+ZKeMYKhtDfOSHcypCgen0KEJzIj6sbu69B275RPNrNPZqi8Pjxwze0r8 CLOiAlQpvw6qb4Y6AyvUk92Npqzb5qzbSnZbOWHoHtnN4W+crnfK1pXMJcMJ OTHH5xT8mUxPHyN6BpCR4ZNk+BB/VsA+m3jXGok6NnhIdqeQ3VG6ZPaXuvB8 /w4iP9RF0vs3kEJ4nzKEzRVbWKvZw07NgdXAEDm3r6PwGnGWYA8eNLE5Yrjj fzBcVb8d6cwdqTIHZ9oUR2zRjqyzbk+6R6PPJgy9NiHotQ0i/Hnsi4ZrXKNh CCoj51CZuIbqjC3U5z2GoGgHXeW76Kvew0D9HiRNTxDqVgXRIxEed7SyB+5i toc1WkhGi1inBzcxM7yOaekqZkdWiCXMyhSYGB5lj3z+HbvtVDsd7Lx4hcxe KbL6J1TszhYvIFe8DMvgfGjdslGx+wHZ7X3mFtl9m+y+g/jzGki+oImMC1rI vqiFfKLgCy0UKXFRHYVUQt7H51Hw2wvIfPcUMk6dRYrhWaRrn0O2xink3PkM eeqfM5SfI5rPBWmfQoDWRwjW+QRh+r9FtMEniDP6BInEQ+NPkGSkxMdUyMdI NPgIcbofIPzmB8i58T4qdN5D8OV34HHyQ1iR4ffOXIHVueuwv2IFZzVrOGkE wMw0D7oOpdBlUTALaIdj9ADuxw2Q4YNk+BAZPkSGDyMsZRgRhEd4J4KiW5CS 3ojolCFEJw8hKmkAkYliRMT3IzxaiIjofmIAIg7tctkqC8kcZoZGMdYnPC7e 97C9PgZZXzZGWbxHWbyV9J48prdCVAhRXBAdsSnqDSzRYHxE8RZSvNPSkYOi EwatnSEjjcdI5wklxTnozRCzSvA5OSHR1YOUNJeQ5m20NOn6jnioTWrrKCl+ D0m61gjSsIKfmhECzmrB/j1thJ235VSkjpSP78Dnc224njeFzSVb2F+yh9MF W/idMWUzVkfRmesoYOMuIiZJ72nHI5rPON6HnPSeU8KJVsnRCZP37CC1+X+5 es/oNvM7S/M58uzZs7NzZs5+mplOLrtcuRRKgTkTJEFkgAAYwAwCJMCcc6ZE KieKQRKVA5WpnHOOFVTlKrvL5Vwud7e7d2f27Oe9oFRtez5cvAAFUeT7/p/f vZcU/ljJMTWcWWs7B62tikYtHLA2SQ0csNRywCgjMa1nuPAWEx2fMrP6K45M f8PJXb/i3P5fc3n2N9w4/hvunPoNfc2z3Nh1i19dOsezS7/mxdVf8fHNX/Lx nW94ce9rnj/8R55Hfkuk5f3x46949vAl16895UHkB+fS43s/48md1z9Qf7U5 Z8pfrvz3OPX0MyavP2Hq5qdM3dKqv/WP7Lj1DTO3f0W/tZhmzerWOAvdCXaG E52sTnJp1ecwnuJmOtXDTJqHPele9hm8HDB4OJDu4kCqg10r0plZlsQORZgt jmVMGKOYNGmeZ2jFG6KYMcSwJyOO/eqcq7zLGdFqH9UKX1u4nPVFy9lYvILN JcvZIi1gq27fZ0vxcjYXLZtf/asVZnbLB6Y9ixgxf8BwxmIF9VQCCZnkxxhw rMjEme7hI2c59tJJnMFduGo031uP4e87T+XgBa3821r5d+jRqu7fdJchrfCR LfdoWamVv+YMW6a08sfvsmrrHVZtuc3KLTdZuek6Qxuuzn98ZNMdhtbc4Mal TzVoPuX53Uf89ptv/vfXL6x7dG2CJzeneKq5/lRZ/PmtGT7Rov/81h6+uhl5 ff5ejngjC7+MU4UVWvhBzpSFuFge5npFDbcDSi+R+a0F/kyL/YX0cah+AZ8o DNvEQB13te7vad3PFofZXlKv9R6cH+nrtd5HtfbbrWV0ZhXQpavTnpZD3kde QolBRtMKGVhhURh10xjrpS6hkGBKBeGUIA3JQVr0nIlEx/za360getFVyHOt 9xfSx9KnNRHV8yyo+pBfwSWXApi1g6Na87O2Ng7ZWjloa5YapXpxUMM+c4he 91kGvTqDZfcZDD1mbecL9m75klN7v+bcwV9w+cg3XD/xDd2ts1zZc4tfXDnH o8u/4PH1r2WP/8jjuz+f/6VQ5L9aPX70M+7c+ZyzZx+zf+/l+R1bp9afZWbd WfasPsv+0bMcGJEGpb6zHOw8w+dXv3q13RGVr9f/7/70b0xevS8GXoiBL5i+ 9XOt/1+yUyayuX0dW0qbWK/4PpCRT7/W/6okN+uTPWxN8TKVmsvOtDz2GPLY rz8/mJnH4Sxdjaxcjhl1P8XGnhVpmtCa9lnLmTJq7WfHqSglsMeUqImQpLOW wDH9+W53NKu17tdqjW8o0dovi2JreRTj0g+Y8Efpa50oX8F42XI2RRhwL+WA 5yN2FixmVJF/rWsJg5krSH/3PWJ+/CNil0SxwllGtKZgugzVVbETd3gvnvr9 FOjslnQcp6LrBDUD52jXNO/ThB/ccp/hrfdpHrtC34bzbJ45y8pJrf9JTf2J W9INhsevMrTtKqum5QL62PCWGwyuvcylC49UPO+8/nmVzP7lZxybPTx/jHzk t794wpPrE5pC0/MwRLbI+X5/i58Khu93R7m7dkBuUMZJ3ysg5kqrOFeuOF8h N5AT3Kms5YGAeKzV/1QcPAvV8UJ6Hjkquj8sKedAcYgd5Y1sLaxhnWhYJxoG PJW0mktpzyigI8VDu+ZYocmH116CMSqXsOJ+h+ZcY7yL5oQcmmJd1KcUqf74 qZcrtKQp3icHmEy0z1ezXdJTBZxnouG5SHgh3Y3A6y6XyrjgKuaITS5ga+ew iDhob+GQvUlkNEp1uvY1bCyZoLfhDr2ey3TlyY2LH9Fc+Zi+xseMds/RVbeR voZNDDZvIt/ZwO4xDQ4RcefKz1SHpFvSXVEgIq7d+pxTZ58we/wB+/ZfZ8eW s+zepFW/8c/blpwaO8vcqrOcHpYGpN6znOnUseU0P7v4UxL+Eo33mXv8Qmg8 Zur6Z0zLPLbf/EZo/Ibp2UcazY1MlLUy5e9gh7+L6YImNhlL2ZiSx7bUfLan F7DL4GNfpo+DWT4OG33MOQNc9jVws7iZIwpIe1LS2GGLZWd2NDPmeHbZktln T+OwI5UTjkROOxOY058fNyso5UezQUhsLo9mqz+aiYpopgIxTAdjFugmmh/r YRTb/CvYEiFE+elwwTJmSpYw4l5Ir/UDXfn38C55k8Q3f0SUo5BYdwVxWhXx 3kosRRvIqdyHt+YguQ1HcCta5jUfoazjBJU9c7SMXaNv6wMGtz2kac11ejdf ZvOei4xsV1baLifYfofh6ZsMTl1bwIgy6f/B8I6bDE3eYGDzFXrGTjM1uYeV fV0UumwUS6VOm4ytTLf/jXKHDXfScppK1Df7KgXJTp7d3CWr381nguNLOUVk 85dv5jd+OcDFpkaOq++eKFLfLa3ktAA5XxHmSkCQqLveEQj3IzAIisehugU8 CdWykCf60AF/PZPl9Uz7GxkTG2P67jucQZpN5bRkFtOSlEdrch6htHzcSky5 rgoyUvwEVEAanSU0JHlpSs0TD7lyCbeOPhoyAzSp/rYbgnSlVig12ZiJy+J6 cQWPlY6eiI3LBQHOio1zYuOcu5Q5fd7DYuOQ2DhgU0KyN0tNcgulJPGxy6KZ 23Qn8n9XGu/o6nbnXsWTNkxmrJ+YhakkLknFsCwNh1wtx5BDZnQm3jQLuUnx 1BaGGevdwFXxcUV8nLvxOfuOPmCvNLPvBjPjcgfxcWTzWU6KjzPi47z4uCQ+ Lss1rq6U5BxXhnQUJ9fEybWO0zzddjv+LxHZy8TF20LkOdPX5RzyqO03fs3O m79nS9t6tpW2MFnWwXZ/N7sq+jgQ6OdYYJC5yiFduA5NuUbm8ho5K3Sul3fz sGYlj6UnNSM8rOrnrLmI/YYM9jnTOeQ2SxZm3VaOSSel09I5r4VzrgzOu1L1 sVg2CY2tFTFMCI2pyli2V8WyI6JQRMKlSuiIk/EKceJbwdGI2xQu1gp4nx7n QnosHxBKeJs4g5lYTbB4XbEErZJEdyXJnirsJdvwho7gqp4lp/449po9mCvH sYX08bopClt20TB2gYZ1N+kZv8Gm/VcZ3CluZuT3M3cZmLnNgPLsyP57DO29 y+Du23Rtu0ztSn2+0n4cOSHKcuz4pYAUdNmplKqcdiosRnzJy6UVFCZH4UvS 99FXzSc39vDyxqsdkr6+/WqXmt/cj+xQc5CLLc0cVW0+XlLJCU3nOX+Y84Lk SrBmHpTbIuJuBBbx8WBeNVyRs2wLNMt5G9hcWk+/u4pWZxUNWeWSXwQU0phU RFV6MS5HJV53iDxvCKerltziFhr096uNxTRmFNJsLKJFo69FSaEto4gmo7KV UcSJmMEUH9NxmZxyFXBfFflcvrqPzvecdNpTKpVw1BkWFW3sV57aZ4+omf3S Pnsju631jIVOiZCh5vv8J0pdQyQvSSZpcQqJH6SQtDCNlMVpIsOOQ19rvqUM m1J7qaWAcE7uAtyJGfwX3Rroahll+vB9pg7eZ/f2i+zbdpZDguSYIDm9ObIR 0Tkurz/HtXXnubnmvCrbee5IC3R7jv+N25FdM2Qs94bPcK/vFJ9uv0XcK1KC 84cSfv8vf2Ly0gOmrn7K9LWvRIvM5MZvmbn1B+V6mUlpm+ZSt8yklz0VAxwK iJLgCGeqVnIptIpr4VFu14xyv3aUh9LjujGezr+acpS7xR1ctlSJDjNHPBaO em0c9dg44bEz53Fw1mvnYu6r159eyTNzPd8kZbM/lM24KJkUIdtDymXhOHZW xzFTHTkqs4mYSREzXilnKY5ig28xA/kf0uVdSJ9nMf3KXT3OxcQ5CohXAk50 +1+TEibVU0O6u44s3wbSfauJz+0hMb+XlII+0osGyShbidG/ClPFKrLKR8hr 3EL9qj307ZL/734kPaBn912GDz1h4KAeH3hA87ZLVIwcUI5bib24HXteMwU5 JVSKlJAUlqpFS40UMKZSmrICf2qULlN5SgzplCXHUJoYw+XdY3x1az9f3znA r17vm/Pto0N89+QQF9tamS0KckS565iKyCnZyjkRc0m0XJVuiJabouSWdNiZ x5aiMEN5IfpESWdOmHCWWkSGXwpQk1KmJl1KRXo5Dmc1Oe4avLl15BfU4cpp IKekg7qaVsKFVdRnltJoKqNZjaXFWkKzgkObUfdNQVpFTVtGOaPKbBOxBs6L 5gNWj1qFh12ZymKZmUylGFi3IoOx5ZmMp6m5S7tFzG7lrhmbMnzZLoZbntHk P4Iz1a9zkvpRKv+RNN2mL0nBsEhHKWNJGtkxdnLkhdZkN8XmAoJW5yta/is5 8em4kjSYygYZ7dtHc90e2jUEu8J76A3uYVf3CfYqNMwNKqZtuM79jdd5ID3a FNE16ap0mUcbLvJYND1ZfZrHwyf4YuY6sX9NzNOffcPkRcWvKy+Zvvpztl/7 FTvkLdtnnzBe0ixv6WSqvIcdomVvxRCHRcvJqlWcC41yOTzGjZrV3KldzYO6 NaJlDU/r1/AwMMBNdz1XzJVcN2suipgTouWE1yE5mZPOSRfznVwpcHK9yMGN Qiu3Cy3cLTJxOZTLmZYgB+sc7IhQUiNaauPYVRuvx6JImgzHsC0UzZpiNXp5 y6BvEX2+JQzkqqGorfeUJlKgz52YU06yaEnRqkj11JOQU0e0s0a+U0uip5uU vAFSCwZJKxwiK7ARU+VGrKHN2Ku3SJtxN2wlp3oMS3AU//AsnXtFzuFn9M8+ p/fQM8JbL1I2dlzPW4sj2IezvBNXUQvOvHqqRUqNVCvVSfUiJmRKIyBaAmnR Wh2BtBh0PzWWSqkqJZYb+9bwi3sH+LVo+W1klynR8t3TQ/zTs8Ocb1ffLark UGmIWVFzQm3ltDzmvIg56itnPMPO6jiDereFjhw/nWplzY4qKrOC+NMCVKQF 9S9W4Y8rxZlcjtFSjcMtQpQRvL4m8hWZXe4mnCU91NR3U1fdRLC0jnpLBY12 pS+X5Cyn2VJOW/YraprlVW1axeuWJzFhyGIqI4tp0TJpyFzAprg0PmLV8ixW SiMrMqUMRpanMxZnY42zl5G2z2gJnBQgaaQvjSgdg5Shx1lStmRSCDPLbkyL Xx0Nby3GoX8umLCMsiwTxfYKAoWDVBYNEdJlrNPlHKyeZm39XjbU7mNzeB9b K/crjuxnW9kBJor2c7rtrILWA55P3OfFZER3df8OzyZu8nz8Oh9vvsTH6+Z4 MXqEL1T7Y/6SmgJR8ysmLzxl+rIS2RUlsqu/kc98y+TGE0yUyGPKulVa+kTN EPsCIxypXMWp0Bjnwqu5ImJu1q7lXt1aHtWv40nDOh4Gh+ZpuWap5Ka1kouO fHmKVaQ4OJXrknI4q+OF/ByVmxxlXhc3ih3cLrGrD9p4UGbhVpWTy92VXOlQ VG/yMVMTL2ri58nZKW2vETU1MWwKRrGyeAmrixczUvoRA+r5gwU6Fq6guyqT ouIc0rwRYqpJEi1RoiXaWUesumGCq0lENZOW243BN0RGsXylZA2m4lGspWPY qzZir92Gp3GS3MYNWKvWYKlareS2hobpW3TOfkqV+n1B325c8lankqgrNERO oAd3WRvuokZK1ZHrI/sq5TgW0Jjj4D9QY05TEIqWYqgyxC7QnVhSCRviqJFq pTsH1/BrZbHI9lZ/EC/fiZd/en6Yf35xmJ+dmWBPSZB9ymb7lc1m5TSr0m30 a8oPxWlBxmfQZsmn2eUnFOFFTuDPqKQ4tYqS1DCepCBpCcqoqQFSMqvIstXg 9rUqh7WRX9Y+n8fsJf2Emgaoa+igorqNykATNblhGjR7GnQ2GyL3bQFaxE29 UfnOWEJ/dDpbxMxWMbNOAWltXLqUxmh0BkPLjQwImgE5zcDyDPoETe7CdEwf GHDHlpD6QZxAMWiGZOj2bTJ1a5RMHxkwS9Yl6djkMnbBk/zGCuL/2/tk/N0i ChJyCCsZ1JUPUV86pDI4RFvxEF0Cp69gSLDsYHvdAaWTA+wJHWRvpVRxkH3l hzhQIhUc4HLHBT7b+Vx6KkW2eXmkMHafTydv8dn4JT7bdIpP1h3gf/z62+j/ 1W3EzflnTF/8qdj5BTuu/lZu8wfG2zYyWdIubnrkNgPs9A+zP7CSo5Wj4mY1 56vXcEXM3Kpbx/369TxqWM+DymGuipcb1ipu20Lck645fZxRFjvjdXE6182Z XA/n8jxcKvRwtcTDzTI3t8pc3PE7uR+w8zhoFXsmbvQHuaFKfL0ryNmWglfc 1Mlt6uKYliZrY1lV9hGjJR+xpnQJw2r/g3KeocKl9FSl0VltIqzPma6rHOsK zztMjHiJczaJmRZx1EqKp400pel0UwiDJnKmKYzR0YLZ3YEtrxt7YT85ZQPk aj7Yqzeo9UjV6+VG6/ANHcLdvAF303pyGteSI3Y81SvxVA3gqejCU9aMp6iG xsheZO7IXmTO+b3IqtKjCBlilJNitVLCGXHKItWZokaKvBqvwSjpeH927Wty DvOdqPmnF4cX8C8fH8bGnz45zP3JVRxoqiW8PJWG6DRaYtLp0GLtVk4J2Eso N/spyaigWHD40sO4DLVkWFtJMOoUCJ7E9CpSsqsx2GoxexrJUawsqOimsLIb ixZjsHklTc3dVNR1EWjoJNjYobhWS61OZ11+iBqfyo7FT50KT42phNYkC2Op EXANjMSmMxIXURo9y4x0C5puQdMtaOoFRN4iwbAoE9vCTNJ++B6Jf/NDDAsT yFyWSZZkXJqJSbJIto8ysX+UgUPKeDuW+L+NIeu9LPyWeuqLB6mVwzSUDtIm eLrLhhgQPCP62JhG4Zr8IXZVzXC49hBHwjp9x0KH+c8cr5xVw5jlpF8qOczF 6pOKZPdlKp/x+Z5PeLn7OS9nHvJSZebl5EVejh/j6xMXo/8Xv/nq10yefc70 hS+ZvvSN/CbCzXdsLmwQN51MlvYyXT7IjH+E/cFVHK0aYy68hgs1a7lau45b Yua+mLkrZi5bglyPMGMPcd8W5pE9zA1nEWc9LnUYj3wmVy0xjwuFeVwpyeV6 eeRVs15uB9z6+zk8rHLxJGyXLNxZWcmdkUpuD1Vyqy+ohJLPTL24kabr49gU imK0fCljpUtZK35GylcwVLqcIbHTVW+mq85GR8gsb6ki2lEtZupfM9MqZtpJ tjeRrEmcZgi+Yia7kixTJdniPttejUm+ZHLVk5PXhE/9Lq9qEK++18L2bTir V5NV3EO25omnZROepg14lNK8tWN4w8PkVvaRG9D0Lq/VpPaKF+XvVsVSg4wl mmohUzOPSjw1WfHUSnXZ8TSY4mmSms2SKY7fPTnMH559j82sqJE+mRU3szw/ vZ6wK0FBMIFQRpLQSxZ2yfiSTDitRXhU6D259VIz2UVdpLo6SXWqwhl1CtLC JGbWkGKqw+BsxKhgZtLzvP5ufKE+zBrY5S2rae8cwN/YS6Cpl2BLN5UtnVTV tVBVVkOFKlB5XpiAN6Dg6SNkLaBd/HbGpNEVm0a31CpWmpdmSZk0ipdyHR1L snAuzsIhGX78nlrM37/B35Dyt2+QsTARozAzSZalRmyS/SMjTn0Kl5T1TjLG D5zU+vppka80l47QWjpMR+kAvaX9mpzDmqLDrC0eZqNvmC35w2wvWsepullO 189ytv7IAs7VHxE65+qOcL72KBfDR7gYPMzZ4r282PKEnx78ks8PvOTlvhfC 55HwucnLned4OSXL+e3vov4SnUyefil0Tgudc0Lnwmt0bn3HlsImJosj6PQx LZZnKkY48L+iU/caHUWZi6YA14TNTSFz117DQ3vt/Ls13XaWcs7j4bw3d37L 2POR/TeLC7ha7uNGIPIiw3zuVOVyP+zhUY2bp7UuntXauL9a+I3JtkYruSeE 7gxUcKzFxvaGeKaEzpqAio1/KavLlrJOCI34o3TyVjBYEUtno5WuBidtYSvR 9ipi9LXEOhqIdwgbV4ewkeUk+0lJ82PIDJORHSbLXI3RKmQi2DiqFyjFBPm/ MNuD2F1BLI4KCoOdFLdtweQfJLusH2NJHy5NDW/LZnJFT666XW7tKvLCg+SH usgLNhIsLJKztCmb/kfa81w02TKoFTa188gkUGtMEDYJNJgTaLQkqHkniDJr PMsYb8jn2+/Jkdf882tynv0FNTVufQp3ogJhoswtkXKfFVdFFe5gk9SJp7If r4ZasitCTx9J2XKd9BqSjPWkWBpJdzST5W3FVNCGtagdX80QjvIRilrW09q7 Cn/LIBWtAwTa+gi29ehxGwXhaqz+TrzF9RQUVlHoLVXHyCe0IoWaqBRqo1MI r0glsCSDoo+y8IqWH+D6KFu3Obq1L0wm7Y0f6bSk//AN3if9H94g7e/ewLgw BcsyE7ZlZuxLNQGknGXZkhF3tJN6OUm7BtbK0h56FIA6y1fRXzbIiKLl6qJ+ 1hUMsNk3wrhvlKnC1ezwreZkzSEutsxxuXWOK21zXG07JZ3gausJrrcc50bj Ua7rOZf9YmfiGV/M/oyXhz7n5QHZzv4HYijyDi0nItttRP215Tz5QlHt1DOm zvz0z9zIcraoKE5EuNHimCp/xc285ajezCmmXaj9MzeX5fWXNKqvi5lb8v77 9noea50+dzRyx+nngjuXC14xk+eT3RRypayIa4EiblQWcjvk4044nwe1uTyu 8/KsQew0OGQ5JdxdVSxuSsVQJfdXBrg1UM60uNkcjmZt5QrWqOKsLl/GOvGz siKaYf8K+qpT6Gp20NmUQyDgETNhSXajFZLobCPJ2kJicoWYCZKeGcJolrXY 6gRIPVZXAzYVZavqUJZs0+QMY8tRzvGGsUd+YO0Jkh9ow+LvxewfwiTLicCT o3OQ17yJvMZ15Cmy5dcMU1DTS364hcqSkggwkU01XSTTbM+UNcSrGyRIWvAm yaxFb00UU4m02BNpsyfQPq94XpzZOA/OH9Vv/umTV+Csacr9d2hqBEvdPDRJ SoRJ+H0O3BXVeIItUregUdKsXElGbh+pOQMkmdpJMNQLoEZSbS2ky4EzvW2Y CjuxlnThCvTiVhrPk5M2DayV1ch22oao6BigvK2b/NoGASlwgl1YKlp0Cmp1 Cip0OkrxZaygSMpPjpv3CocgieDiigAg/QC3kFhE9tsfkvHjH5Pxo4h+RMYP JcFj+LsfYV6YJWg8OJe5cS2zCBoz7uUm6r1NtMtX+kp6WOvvoU+toad8TKNy RKljFRuKx9hatIZJ3xq2569lp7S7aCN7izdxresyN3uucKvnMrcj+yX2XuRW 73lu95zhbucp7rUe5U7DQe51n+Knx77h5VHBMyvjmX0q3RFI5/nmyuWov/xt TT6Tx58yNfeFDOcXTF/5DdsFzbjO2kRRBJpedRzltAr1m8pVHAmNChr1m1r1 m7q1XKsa4aypQhktJGhq1GsaBE0TT9QTXjhbBI0yljtf0AiY/CIuFBcL7RKu V5Vyu6aM2+FC7tb41JEKeNyYx7MmL08aBc2Yn7ury7i3uoR7a0p5sDrIvZV+ 5vrcAmS5AFnGgIxmoGixstki+kqXMRyIoq8mla7WHNoEjUf/Voy1hlhbI/F2 GY2zk/ikAEmplaSmh8gw1pKtPzM7mgRMEzZPs9SE2VWH0angn1OLw1NLTn4N HiknP4yzoAZHUS2WwAjmigg4/Vo9w+TLcfLlOPkNayioX0lBXT++2na5Tnh+ t8IFdOo2hRZHJvXz1IiW7ESFsyS5jGRLEjFJtDqSaHcm0jGvBE5ubOQPz2f5 TlbzT9LhDY2ERUy1SIkQU+tJokFq8iQrDyYT8Dnx+GvxKCd6g73kBoeVMUdl JbIcUZPiHiY+s4FEUzMptlYMyqwZuZ0YCzoxlXRj04q0yW7cTZupH9xIVUsv hQpqZR1DctI2cqoacFS1YRaR2X6FQP1b2bI3S2UArzmJvHliskWMSbSYRYtW vVa/Z3lE1gV4V+gm6803+ZDMH79JVkSiJ+uNn5D1w7cwvrkMx7ISXMtLcK8o lhzUeerp1pDqVvBZKWo2ykJ7/GsYqVjNav8G1pdtYnPJFsYLtzBdPM6u4m3s Ld3GwbJtHC4f51LoAHc6LnC39xr3h2/zYPiWjjd4MHSVhwMXedR7mkedR7jf so97fcd4eeIXvDz+pY6RzSJkOcev8PLwob+i5kMmjjxm8sRL2c0/quH8mu03 vmVi/UkmCjsU03qYUjOe/2lacCWzouZU9RjnalfPU3Pe28g5U5BLijfXbfWi pokHikBPHG08d7bzia7KtMHOjkwnM9kudlly2OPysF8t52yFiKmVnTQU8bCp iMdN+TxtyeVRq4vbaxXL1gUkP/fWl3Gg3aUGE8eqitgFdBcukrd3+RbSXfAB 3fnv06Fju08KJtBaaxU0btxFJcRa64izNpOgLychq57ElEqS00KkZUQSmQCR A5mdkityvxGLqxFTTiPZSvx53hZF6WbyixuUR6SSOgpK1BgKa3CWKNOo9JkV 1UxlvSo368hv3khB01p8jaPSAD616YKaGvFS4KaRrgL3/DaHEZdpEDON2Unz L0NvtCXTZNeadybT6hIzOUl0SJ054iYnnm/lNH+Q03ynmBa0x4mZRDGTJGaS tJ6SaZSaPSm0SkGfC095Hd6KDvWrvnlm8hWqC6rXvmLGu5IkRy+J5laSdUrS cjpILRzGoKaQGVxDetU60oNrMddspKgzkjzXYA/142lciau6E1dYRUhr1iin McrNsoIy6XA9lrCSrM30ymGWvuZlmVUuYcWzwiZUbOSusJMXZce5MA7jT34i vfXq+GZEb2P88btk/0jHN97C8r4B14oyPNGllGjG9ZT30afZ1KsZvkZtZn1o 1fwrjEcrNrPBv42t5VOa7TvZWbaHXYpbeyp2sa9ihkOVuxSOZrjcfFxsXOZJ 9wUed5zhycA1Homdx2P3eLzqFk9G9GcDp3ncc5j7HTO82KuINvdzXp55vbfE 6Rvi5zh/BU4BT19+y+RRgTP3M6Yu/ort137H+LoTjBe0y3K61W/62SHc9wRH OBxayYnwKGdrVnO5bg2nLUHOmUNctNSq2zQqo7VwX5fkeLqf3UkFjMc4WL8i g41RmWyJyWI83shkopHpZCPbDSa2Wy2cLvdyoyafxy0+nrTm8Uhd5t6meu5v DnNeOW3IL2CCiawWFWsDcfQXL6avaBG9vg/pK5BETHeh5HufziotwUoTTUEL UeouceZ64iO5zNEhq6mU1YRIMVRjULrPMDWQaVYvtjUrj7Vgcbdhy23Hmt+G Q8ElpGO3RmtluB135MdjZU3kV7Sq7jfhLavHGVATKOvTKO/C7u+nQLm1oHU9 vpYxCluG8DV1y3rq5pHp8rkXzHOTqv6S9ooak1a9JXmenGaHnMiVQltOMu3u ZDrlIF2eRB0TeH5uI9+KnIPrG6hSqXlFTrLISRY5KSJHf9eTSps3VeTIZfWl 5fpFTkW/+tWIyFktgNcpf60lJXeUVOWYBFc/cbkjxBetJrl4lLSyUQyBMVKK B0kv7hMVY3ib12Kv7JOT9GNVX7PXj2BSysjS5c+q6pJayQrJrWubMFYqzqrI OJZmq5REqLGImj8TkxvlIC/aQb7kWhQv9zW99bZmtumtt8j+SUTvk/3me5hE j+nH72D80VvkRPvxxJTTpEvRp+XXo/k9oK9vg0rNmspNDJdvU16bZnP5TibK d2uJHmRP4Aj7q45xOHyM2erDHK05zPG6Q9IBpZUHPB29x8djd/h01U0+Gb7C 8/7zPBu5ypOVV3m6SvQMn+LR4H4erjnKy/PKaxdeb0hxPrJVyFzUX/6f5Hwm Dn0qxxE0euarnPZ7Nue1ynG65nPa9PzmaUMcVCY7Hl7FmZpRzgUGBE2IM6Zq LljquaKxfjitjM3RdiYFy84YJ/tjXeyJtrAjKotdMUZ2x2ezLymbgynZem42 swYpQ/ddVuZKnNys9/BgfRMPJ7rZ0+VhKJDAiIAZrUzSmUpgfWUcwyVLGBQ0 /bKbgcIP6S8SOMUf0Fv8Pr0qO21hCxUeE8vfdRIja4m3fp/PqmQ31YKmjrSs RgxmzUu7Ur1mrkU5xaac4tT361TKL8nroE0rr7G2E0dJC87SZhylTbj8bVIL OconLuUUR1Dg+Puwl3bhD/ZRFeiiLNhBcVU7ha2CprFewHjEi0crpafQw1t0 RraNNipXiZoma4q8RnJq5efIM9wptIuCTm8yXbnynNwETmxu5HfynJE6DyFX oqhJek1NilpNqqhJpUXEtOWlvfIb2aK3XNT4X1MTekVNXs02MorXE1+4idii DUR5BojLHyLBF3njkuTiIf6GpIIeUot65D89yl49yqLKbPo+bVXdWGtWkhla R6YyembtKjJqB8nS+YnQk1Feo0aSPV/jXcstf/YZ+UvuPC1O8rUeCiTzW2// APPbb/MBprffETgf6EPvY/7Je5jfFDSyHtvCDDyxFfTKzfv8KjGlQ6wU3JsC GzRDt7NK1rJBoIyX79PSPMSu4An2Vc1xqOY0R+vPcrxhjpONJ5lrPsnplpM8 XPcFj9a/5PGGj3m24Skfb3zEpxvu8ena63w2ep6PB47xbPiErGeWh6t28OKo LObKV5Ji2uXItiJn+CtifsiTT/8oq/mSyTNfM3XpV0xf/zWbGzcxnt8xbzVT GqczFYNqNsNyvJVqNqs4XdTBKUs1c6YajmZWykosjIuWHaJlb6yT2dgcTsTl cDzWzn4RcyhGdCRkczTZxIlUE3PpJk5nmHS1zmRlE8ucxcTJXAtnGsvZ1OBg MJDKcDCFlZXJjFUlsbYqkfVV8fM/dY40mcGihQwWf8hg6Qf0SwOl79EfXEZH OAOvycyK91ySh9g0hTRDE3HJtSSmN5BqbMFgbSPL2YHJow6c14XD141T36er uBuPHter0fXUd1OkleKu6MQb6MRe0oRbbcEdaJNasAd7sFZG2s0gVrUBX90I NR1rqG8dpL6+jRrN3kBFCSvTIzthmeZ5WUBvkQf1/uy/IEYe0+yS/+Skzqes dm8KHbmiJk9+k5fIcRHzm2eHKDfHyGcSCcmLwqKlWrTUiZZGbxotoqUtP416 X7baXA3e0shPv/vIC0SIGSOveh3uhp1ktZ8grmgzsYXrRc16onMHiM1TYivo U1LrI1ETI0XNIb28h0zRkl3ZjVmeYq0ewijyMpXPM0JKc6Fhec5GJbpRMivV jsqr5z3GtVweI1rcf0FLXswrWhaIFxeLBcs7WN55Ld03v/2+0PlQ2HyARehY 3npPegfH4kxCii598pc+/2p6ilayungd64MTDAmX0dK9bCw/yIR/Vv3hOHuq znGg5gKz9Zc43nyFky0XmGs9x5n2c5ztOMeLrb/kk/Ff8um2b/h04muebP2c x1tf6PiQj7fc5pON1/h081Web1bLWb+f5/sv8/K6UtqNT+b3IXl56ez32Lx6 UeMOtu3/gokTXzN57humrvySiQP32ZzbxjadxonSXllfP3uDwqa8l0PFnRzJ qed4dphdyT42rzCzLcrGduGyT6dnVlZ8SjovXdKpO7Ysg2PC5qSQmRMyZ9LM nDeYuZhl5nK2icumbC6ZjFx02jjpsbPVl87KslSGgqlCJkXIJAsZGU1QKa18 mVBZJJsWMiVCpkwq/5CB8vcVfBfTrufFL3UT86GH6A9yiVpYQKxwSchoJNkk XGwRXNoxuV/hYisQMhFzES52GU3A10lHKPLbiR4V6i4VaiFTqUDvb8Vd2YE7 KGyCbTgre+eRseicmDSQHfWryO/aSFnPWkI9w9R2dlDXWMkh4bA/M4qpmEWs FyYDDhNdeTKa7O9NJpWmCDJC4FXEiryVh5DJT6YjP5Gp4RqunNxBviGaEnM8 ZeZEyi1JlFuTCMucIsg0C5e2gnQ6CtNw+0LqX0qQuma5KgKushEyqneSEpQq tpOmoJ9cMU1s8UbiyzeSULaOxOIBklRfk0u7SSpR0SnrIF3fe0blwDwi6aG1 GKrXkKFwkdmwHkf7BM6WjTgbVmILaVyYvBQuTBEuFnJWyGB0zb3CJfd7c1HY KNAI9UkRVH6g23flMuZ35C7vLNSjD7G+84H0Pta3340YEU2eFuEyLK2jv3A1 60s3MxaYYajsIKtLDrO57BiTFSfZWXmGvdUXOVh/jSPNNzjZdotTbZc53XGF s11XON99hY8nfsenk7/lztgDPlWR+WT6G55P/5ynU1/wYNsz7o8/5vnMPZ5M XuLR+DGe7FQ0uy1cbn/Ky5uRXQXO/DUumfzuD/8v2w79nIm5b5i48Eumrv6S TfWb2JzfybiW0rivg/XmKrbZwux01LDfUM54rIOtURFUIrnLxl7hckTucuwj JxejXNyQ41zXx69GkFGhORmXxVySkXMpmVxOy+BqhoHrmZLRwLXsVG7mmNln SGBvdiIzyiiry5MYC0bymNxF2iCHWeVfzkDJYmnhPCr9QqWvbCF9pR/S5V+M KzGahGVe4pcJk8X5xC0tJOajQhIz6km3tJJpb8eYE9lnpUO4KIsJD4fKiEOu UiBHbVKe6VKe8sz/mqNzAd4qPUFFQLQoarkrIxItVaKlalhBfwBzsJdsRTFf j3pMzxiezmG8nV001AbZWpHHHr97/r0jjuVncNQWx77kj1ifoGiZsPwVLU5J tDSLltbc1Pkfg9XJTAKWGPrqK9i9aS05CcvIT4/BZ4il0BBHsUHkZCVQYUyk ViWoSX+vvSidYGEuJmstlkjFz+wkMX8TiUWTpPp3atXvJrNuH8bm/WQ27iKl ahvxfhFTvo6kinUiah3JgTWkVK4lOSgzqd9CSvV6UhXp0hQ4DO3byO6eJrNr Ekv3Fhxda3HKUMsdZaxLTdZSWEzXkmWEF8bP0/LKXCKkuBbgi4v4i1WYWN/9 syyS+V0B866AefcDbJL13ffmoerVFekrHaNHvjLs28DGsglliYMMlR5lXeAU W8rnmAqeY1foIvtqL3Oo8QZHW29xov0Wc503OdN9k/O9N7nQJ/Vc5ETTMS7U nuJP6y7wm5nHvNj5C57u+Ion21/yZPo5j3fcl67xaPscjyZ28vLuz19tWHD7 Hn/85uvvgXm1H8Q0v/vu/2P8yNdsOy1vufhLtu69x5i9iZXGECOZAdZkV7LF UsW0gBmPc7J5uXEelGnNk93RNg7r7JzU/DgSncvRxHzmEvM4n+jlsnQ+0cXJ JMWwNEWuDCvnjBZ5ijwmPY0rhlQe5ds5Y0nhcFa8FMehzFh25iexvjqZTdVJ bKlJZLxWhSawXKdsMf1li2TTC+n1L6HH/xHdOobsb5H1UTTpy0wkRRUKGml5 EfFSYnIV6SozmVpFRrdgyVVxkZfYCiMlRVJpCStidtZ3UhzuioCCR5x4qzrw htpVWFpEi6JYKKJWHJqp1qohLFUD83tnZOt5Bb2ipXdUxAzi69LnC5XTUuil uzSf7rICtlbls7cqsnOmg5PFRk6p3h8xLmMifSmjhuW0mOMIWBPwm2MJmKMJ mqMYqSni0IaVuOOXUpAWTaGIKRYxpRlx+DPjCRrjKUmOUr1eStYbH2J8J4m0 xFoy07tILthMctE2UgM7SK/eRWb9bpGyh+yW3Vha92Bpk1p2YVC5Sa3aTGJA tFSKmvB6jG3TGNunMDRvI7N9EmP3DrJ6p8nqmdRRZah7IxmdazDKg4vdAQIi ZnuBjd3uTPaYE9iR+BErV0TR/FEiBQIlAosv3sV/mIfkg9eYKH69txDrex9i e0+ovCdM3hMmhT30laylO3+MsYItbK7YoeE4y3DxCdZXnGU8eJ4NxUfZXnme /fU3ONR8i6NtdzjRcZe57nvymsPs1N+ZLt7CjKbEvurzXFnzDf/Phd/wb5c/ 58WuX/Jk5uc8nvkpT3Z9zOPdj3i05yaPdp/l0c59vLwf2TFFmNy5x//813/5 HpNXGwF18bs/RjD5hnFhsvbQxzRWbaIvyc9geoDRrCBrTCFWZ5axfnkG48uz mRQiM/KLA8LjYLyHg8LiaGIBx5N8nFU0u5CUz5WUAq5JZxOsnFX0Opdp5bTB xGxcMpcTkrmbnMyD7HSOajgezU7gyLzimc2OY6YwmXX1aWxsTGVzcwrDlVH0 lC8RGouFxSK6AxpiwSXUut9TQfzvZAsR07J4UoRIckwJCVHFJOgYH10kRFrI cEYQUbfPaxci7diEhdXXTonut8gs6pu7X8UsLXlPSHiE26XI7yBa/x0Pd6gF R7gbS3hQ6scUFiLCqKB/HQV9q4RKv6JYO51Fr/YC7i72aip6aVLX7yzLY6Ai n03hAl3KXI5VuZjzq735Ujlhj2Jv8kKG0/X9ZK8gaImi0pOLw9ZB4ltK9dEr /h0Ry+IlZLy9kJS/XyQ0orC/nYJ3iZHCeDv27Aay3CsVqTaTWr5NkWuSjLCM oG4HxoYZTM27FmAWJ38vQnZjbduNrX0P9s7dOLp3Ye8/QMOJL2g49QXGHhWd HtHRt52s/ilpQtombRIpSmSOIBlZxVjNZRTmlDCiabCtzMvuEgcH87M57ExW RFjOurhoOqOS8CxNVPqyvvcuETrenSfC8r5M5H1RoqPtA338fVHi65XG6Mtd xzrftvmCMlB0TJTMsTl8kcmaK0yHrrC77gb7G29zqPUu2/xH2FS0i7W5E2wq 3MNE4Bi7ms4yO6Q0tvk6Z3f9gs8vfccXx37H8z2/5smer3m890se7/+Uxwee 8OjgbR4dOM+jvQd5+fBLXj74mK8/e/n6P5nVvH6Dq4iPrJ56QW3tbhqa9tCW N0hXcoD29Co6MsMMR2exXl1jfLmJKXnHDmXQ7Qle9gqMWfnGSYFxJrmQ8ymF XEktXMCNtCI+1G0hZ5NsnEk3czIli+NxGdxU7vo4K4NPlLXum5I4lRXhI5Fj 5iSOmRLFRwJrytXsq1VT6lMYCMXQITbaxUZHxSIdF1Ltegf7u29gfvNvMOvk mpcmkL7CQ2pcGYmxUuQYV0JSRogMVytGTxvZeW1YfFKh1n1eK7WlrbQ3q4Ko euREAlVV+wI8guIHeKrbyFO5d4dbVUpzwi38n9iqezFX90u9mKo7MVa3kj+w hvz+EaHRR2lTHR2v0VgQgeMH9JR4+ZFuPTTrXld5LmvFx67aPGaq3IyXOZgo yKY18roai4OY9FoSnZN89F4qcR/GE/VWDDF/F0XqP8ST/Y5B7Tny2kMXhdm5 lOTkUaFK57dlkpwzSmreetI0OtMrtmGomiSzRmO/fgfZjTOYm3fpCzI37+aH 8/YxD0WX1KP7g4Li1E9pOCMo+l4BkTkgpganJH2ewQk93oKpRXXM5icruwSj wMjOKMSqS1+c7aHOk6c8XKAUlMv+ChdHis0c86Yya4piOm4RrUvexff+u/oa Imi8Ow+C9YN3BUVEEVDepFeVsTtvlCHvBjYUTgqIQwLjhGrpWTZXX2FKlrG9 9gajBYcZdM/QbZtiIGc/Y0UnNXMusr37BgfX3uH85Avu7P6KT/f+ic/2/bP0 HR/v+5Zn+34jIH4hGL7i0eHPeDT7lEdH7uh4UXAc5rNHX/LJgxf8j3/7v1+D UTt/yGCupYv+mgnq6/YQbt5Hkb7KuuRKOhJyWRltZP0KI1uXmdkop9ga72VH Qh775BRHBcQpAXE2pYhTKcWcTi7iRFKhmkcEFLmGdCHVo+dkiZBMbsk9PrFZ +cxp4rO8bC4okp+3JnLWFC9CojmZHcsuRyzDDemMNKYx1JhEU9kSGssXqy0s Iuh8F/s7P8T5/o+x/ORvsf7k7+apyF6RNU9Fcnw5SfGiIlH3M6swuFrIUhnM FglmUWHW0V/QSouWfrkClTMYcYfX4UlQuLXci1oHKGztf41ED04911zdh7lG SNR2k13TQVZNM3kDY+T1D5PX20u9v3gei3nXKH7lGt2iIcJG97w884S0qrwX ZGfjtVkoyPXMV4guBbG+gnwaTCYyFk1hX7GPqB9nE/OjBBFiJXGpk4y4HIxp +RQ4nJS5zARy0qjUuYq8rqbA6sVo9JPsXE2qbzNpZeMq4JMYQlrdNdsVhHZi EiGmpl3i41W4snaKim6pdw8lU1epP/Ml9ed+Smbf9DwZGYPSkDQcOU6S3bEa b2kD7sIajJZyss2lmEwixOjDo+bpVTvNlYrNIsWby2iwgO2hPA5Vujnut3LK l85xe4wcUtNt2XsUiQrrB29Lb0k/wfLBj+lS+G13DjKUs4FNxdt1To7QV3iK NcGLtLn2U2/aQVXaBHXGfbS7TjJQdom1TbeYGLrP/rUPObH+EedWPubB1O95 sedf+WTfn/h0/z9Lf+TFgW95euC3PDr0Sx4e+RkPj73k4fFnPDxxV8dLPJyd 5cWjL/jq5Vcxf2kZmdyb3M6FtlfvidjdsgF/2wz2lqPky5P7lmWwMiqbsWgL Y8pR62LdbI3LFR3KB4k+Dib4OJBQyP74QmalY4lFspAi5kTJmdRCzqX5VDNE iqlUmcvI5Uwj981mHjhMXMm1cNqVyWmngTlnCmccokSFds4Szc68aDYGYlhV Ha/4vhy/80Nyo35CzvtvkPPhW7gl61t/h02yfKjGtzwZQ2wBqckVJCWIkORy EpKLSXc1k+lpxpgnSqS83Gbq/C1UN7TjUAl3BltxKTvlKDdFWMipbqGsa4TS 7pEFuKqb+C9Ya7oERY/URXad/KKuTYuukdyBUXL7hihuaaJNC7xdYMwDUvwK kK6Sef/Q7cJ5OJqLc/G63OQ4Xbgll9ONxeYl2+TFbXaRHhUkNeoirpQbpH80 SuI7TgxaeIYYI2nJNtISbBikgtQkylPiBUYqVSkGLO4yLGYfJkuIFPcm0gon SCufIj2ohR1SLqrZMQ9IdqMkOMyR5iHbsAoM68AeinfcpO7cl9Se/ZyM/u2C YYeg2KGv3aDbeNIHJnCGusnVacvzN+rfi/y37QrZSClmayH2VDeeGLvgsJMX Zyc/3kFBQgSUHIHiYVVVATtq8pmtdnMyqGhdksEpdywH0xWNo9+hZOFPMLz1 X2k119Bl6afftpYe5xSVAqEwbgvu5ZspiN+lxnWMWs8FOitvsrLzPuNDD9mz 6iHH+h9zcugRp0cecUaPn+z+F57t/Wde7P8nPj7wRz4++B3PD33L48O/5cHR b7h//GfcP/k5908958HcPR6cuqyPH+GnX3zz/esqq1+/S2LknaHPyzciZBxp H6JNxau7d5yBvgk6atcqCXtZF2NjZLmZIQWp1VFu+UcuUyrhu2Py2RFbyExc kegoUbgq5VhyKSdTS1XESzljKOGcKcAFdz2X81s57wpzzl7KWaeXI2YDhy0G DlkzOGjP4JBD7SPyun1XMqdcCezJiWdjuxpOXRrby5PYn7GMnbGLGFn2Dq0i o/TDt+UfP8Tx/j/geO8fsC5PwRRrFh1BkiOEpJSRkFZCmrMRg6eJDG8TZncT AV8zTXWtKt5t2ANqESrezsoWXGoUrnAzuQ2dBAZWUyFf8DboOfKIf8eivl1J pY2sumZF9l48A6vw9A5Q4y+hVXi0Fb1GpPgVIgvoFBqJ85hUFBWIzFxyXC68 Zhv5BjPedCeFSw2ULE7VEkmh8AMfWR9O4Vi+DUfCRpLec5IgGZalk7bcQFqc g8w4J0b5iEtLsDItkwK7F6u3HKulEJulFIuziWTPBKmF20ktUzEP7CSjaieZ 1TP62mfIbpKEh7l7H+Z+aXAfNWe+kr6gWnjk7rhM+tBO0ocjmiGzayuO6gE8 gQ5ylT7zNE0KAk1kuyoxOSswO0uEST6eWBveOBu5wiNPDWgB+Ql2peoC3Xpj MsiJXi6vS2VEqGyvEyq1yhMhG6fLhIo3lpIP/p6urBB95n4GbOvxLd+AY+EE rpiD5BlPEyi4QlPNHUaExdaBB+ztuMf+rvsc6n3AUT0+PnyfUyvvc3XLlzzc /UfViu94uv8PPD/4rdD4PU9n5RtHf839E99w79TPuXf6c+6deS7d0/3L3Dk6 y7/+2//4Kzoy+PmVa1xq6Wa2bYDWzrV09Wyhr1eZT/lzdUk7m5VxN6Z41c0L GJZnjIqKjSu8TETns0V9d1tMKTuVZPYmlnMo2c/RVD/H0v2cttVzTonmoq+L y75OrhS1S21cLmrlakkLB9JskondqQZmUjPYHlFKGrs0GPemxrNDZW5VIJ8J ufOeKo8c2smRCmXZ4gxO5Kqf2FZwKHUxG2PfpXvpm1Qv/hBXrIGs5BIMSlQp hgoSDWWsyKxkRWoJycYAheYArRV1FMkjLOVNWCuasQWasVc24QhJ4Ub8/aO6 snZx8Z8p6hnGpBSVXfuaivpWMuvV7+uasHcPkdM3Qnl1WJ3bO/9jqtaieUIW 0F6smwgjH1JRXEBRSRGFhmwqVqTgjzIQXJFJtZJg3UfpNC5Oo32pif64AFVv hQi9W0XtohBVb5oo+MCIPd5JtqjPirNgTMohO9mLJUlmk+TEUhTEbPFhtZZi s1ZIQRz5vSS5p0gpnBEdM6QFd2EI71Iv301Wk6QiblQJN/bswrHuFOG5nxI6 LZ39KZ7tlxeQOrhLfpnROY47oAEQlCp7yK3qIq+qg3zZbK78wyT/MLv9mHMK cSU7/gxHfGSXmzw53AfCQ0Mg0Ypt0RJMqhkm1QtHzDIqzCn0VeYxWZfHGp8B 23s/oTHRQY95UGBsoiT1MD7zGcqKrtBYfYP+5ltsa749/x5au3sERf99DvTd 40DvXWYH73Js+C6n1z7l9sy33Nv9ex7s+z2P9v+OJwd/y5PDqhpHfzUPxd25 r7lz5mfcOfc5d84/1/EuDy5c5Xc//9n3u1dUv05T55tfvWfWqvaVtEf8omeC wb4ZRjtnWCfet+gKrErLY8hQxGhGGWtSQ2zJqGNDchUbUmrZll7PzowG9hkb OWBq5Li3l1P5fZz19XKhsJdLxb1cKe7hWkkXN8q7uVYmQko72J/pZH+6jT3x 2ezQTJlQ0d+2wsD25UnsXBbLjqXLqUuIpTwznVqnkRafndXhV/PmYJ2X47Uu zRzZc4USWVEyc+5otmQm0pZspzQzSG5agBj1oGXys2SlPEdKIY7MAhzeINkl uqxljZh1ebPKatVgq4jKKyWhuILk0gApZYEFpJQH+U8klpQTV1RKSjBMenU9 hvpm0msbcfaNktfcRn2Bh0afhyZB0VwoFlojVLQJiGrKBUSp10s4JpVwdBrV URnURWXRJCjalqbTuSSdnkVpOs1FjKcGmZAGF1cw+FEZm2NcdL6TSvvbyQSX G7Gl2DAlmjApvZjTcrGmeklX9DdbS7AICKutSlCEccoWvb5uzAXrSSraRUrF blJDe0hXjTQ07SFDdpGhqpGhEl68/xmVJ7+kck5S3Qie/hJDxyT26jHcwUHc lbKKkBTuJzfcS151NwXhDnzhVllHA+ZcQektxZ6Zg1tUeESFN94qMqQEq9iQ EiMS0KLCKCqMsnrjwrfJXqhAHL2YrEVvkPTue5SojvZZBhl0bmI4d7dO4zFG /GdZFbrEuvprbGm+yXTHbWZ67rB34A4Hh+9weF63pZtcGP8513f+llu7f8Md le57B37Ng8O/4sGRSIL6BXdP/eP8G5PdUnK8df4zbl14xpNrj+Y3cP+f//qn 76l49esNL//8j19zsbmL2RZ5hZpWp5yzr2envGIfa8MTbEzMYWNynrzCx7Ch lLHMCtYbwmw1NLA2s5PNpm6mrD3sdvRx0N3PsdwBTuQPMFfQz7nCflHRz+Wy Ia6UD3LD38+18l6u+nv0uIv92R72ZeeomVmUyLKYjM1kW3Qmk1Fp7FweN09G 94oVlCUvV7BeSkXqUvyJ/z9b7xnd9pmleT5H1b2zu90Temd3z9mZ02lcVa6q LpctS1YWFUkqM+ecc86ZAEkwZzAnMOdMggnMOScxgFkSRSrZku1yuebbPgCp arvOfLj4g5RIvnjv77n3uSDx4gtYXPwNnJ/cQKDuLcS60M15GqHaWx9Nntpo dXuMBEMdBBq6QWjmjXt3zPHgmhU07ljBnLOOC+l/omEMdXNP3DVzxRUDW1zQ tcAlA0tiZItbFna4bWmPO1YMCuOOjT3uMm5a2uC6uSWuUyIqVnZQ9wqEvncg v58u3Iz0fiIPDhSmemfga6aHm7A0NYLTnXvwvEpxUxluF1XhzQIQwFYRTBMV flaVSriLZJrT/NtOKLrjjBJub951G2RfM4eEZjDh83sQ/u4OBL+9Bd8vaEru aePhzYd4eFcPqhoWuGnmiVsPWbupjEdPXKgQN2jQQOqZhMPANBKGFgI8ssrA Xc4dKi5luOFZhlu+jIAy6GQMwLZeDlt6b9tGOaJkR8gYfYfgnF4qI4rKYDgx XITQcxFA35UKUbzGxjUEJmyjJm6cPRzd8dDIBvf0zKFz+TF0rjyGLkPvquJP 6CmN30Kf4tBXecRufgfqnL3VT8WhTnGoc8y4+q//HV/847/i9u++RMSDUMRq JSHisRhCw3JEW7cixqkL8e59SPPpR1bgAApCB1AcMYgyCqJKNIjauEEMlOxA mrOP7oID9Jbso790H4MVexiq3sVwPUXRtIXB1k30syv2d7Jd9K5ifmQFq+Pz WBoewtWfCkOIre4+dPuEIttXAP/AFAojFxEhEoh8S5DMyS2N7SLmJtvFHTNE 37VBPA1K+j0XJN31RYJaKIURjlyNSJRoC1CpL0S9URSaTIRoMRVCak5BWDJs otFnK0S/rYARiT67CPSyQzcaOqPskT4k6toovHYfuVfYMiiQrEt3kH/hGvIp jOCLFILKlxTGOdjfOg+7a2fhTHHYXfkNbC9/CjuG7YVfwe7eVfhxgBc46iPH 2xDh5qbw4s96zKlO67EbzPRcYaFpD3sTW+goRKBjjXNalvhKxxIX9Qi8KduE uT1uWzjgjqUDVK0ccNeaVxtHqNo6UhwOuGFuAxW2lOumNrip9hB6167CyUAX LkYn4nCnMDwZXhSHF3XhQlPlfFsdPlSF71U1eLIt+l5SR9B5VYR9SUWcVUPM 52pIOq+J4juuKL3rhgo1N1Qxqu+5oVDFBpVqNqi554DU808Q99ldxH52B1H/ dgvmdzTw6M5jqGkYURk+UHnkgruP2D+euFMdnlSHF3RZmPTMBDCwiIKhdQwM 7UQwcohlzY/FQ7csmMa2IFJ6jPShb/4GZbM/cBoqm/0jdBxiKIYY5dlNuq7R 0HWLgp47v417BAzdw2DsEQwTTlumnt4w9XDFEzNzaF16TOpPRKHDdqGrCGpC l4rQpSJ0Wfu0rtyGKqdDNSpClYq4+9knuHPuFs5+8ntc+uwcnO+y9j6OR/jj LEQZVyPKqhnRDp2IdWPL8O5BRkAvckL6UBAhQ4lQhrIYGYardjDfdozFjmPM NL3AmGKKaDjAYN0uuqvl6KnfxGTPNsb75Jjo3zg9Ol5xAvRTLE/M4ejg4OeK +H+oCBl6vMPg6xOFgIBMBNM4RYZUIM65ECluJRwrjCC4acTh2xIxd+2pAmcq wh3x9wOQdC8M6fSCOZrRKNaNRoVhDOpMRPSVLeYinEWnZQx6rEXotRWhzz4G /fbRkNkL0ecgQI9DBBqNXVHGgU1CVRTefITcq1QDVSHmeJCjUMT5cwi9QjWw VdionIfT7QtwU70Ep+tn4XP7LNxufAZ7KsKBYXPuE1h88c+w/FIR/wT7a5+y Vl3DlZueuPOIo4OOF4z03Th0k24NM1zUtMIFbWtc0LPBNSMO6vz8TTNHKsKJ iqBbsnKmIhRvw6Jq44zLUDWxgqq2PseVe7j91SWo/eoTqH3yCR5//gc4sl04 G+rBle3CzfhEGR5UhcttVfhdvc1Qgy+V7ndBTamG8C/VEPWlOkRfqCPlvBYk d91RoeqBGnUv1NOINtKINj30QulNO9Q9cEDzAys0cExTvraAvSWRziv2D7dg 9UAX6jrmHCG8OGj7QeWxF9QYD5/4UBWKA5XCoWtOnK1ioG8by6E5DoZO8TB0 jodLVCVKp39E6Qxj9keUzf0Zv+Dtj7jG2z8htX0LOk6x7BEiSoLhTnl4REHf g9LwjICRVyiM2SpNvH1h6uVBadjBSUcXhrc0oElpaFEaWpSF9jU2CDoobcpC 68ZDaLPHaVy9BfWzf8Dt3/8SapfUoHHPCSY6rhyy9RD8RB/5BtEQPCmFQL8e AosGCOzbEOXagTivTqT4S5EZ3IWc8G4UCLrRWybHZDNniNYXmGt/gYXOF1jq eo7lnmdY6T/AyuA+lkf2sDS2g6XTt25Vnjk/vcn7T7G1unntp4p4gm2lIsLh 5xOHAP9shARKqIhqxLuWINWzHEkqhsojAqM4PItUHZGo7oqM+56Ip2lKexKG jMdRVIQIRXqxKDeKQ61pPJos4tFmlYB2mwRI7eLRw0z0sTbJHKgMx2j0Okah 24k9hH61VNMUJTQzRapayLl2D2LSI75yF9mXqYivziPsyjnY3PwKdlSFE6/u qpfhdE2hiC/hf/dLBNy7DM9bX8DxyqewPPevsDj3z7A4/0+wPP+P0PvD/weT L87hEQft2498cV/PH7ee2EL/kT30Hlrjso49Lus54hp7lYqxM8lyxi1zZ9zW NMRdLUOoMtRuqzFUoX5HFWq36Fw4Keqc/cMZ3Pv1JxS9OoXx5Is/wIGicGSb cKYgXCgIn9t34HflJvyvqiLg6j0EKlrDOYUY1CmGe4g9+wCZl01RescLlare qL3nSyH4ofmRH9oe+6Ndwx+NFEUjS3+HhiPatL3RQkOUx7k7nd8nVWG8rtzD A1MHLtmXYg6BilYg7lAI95/44QG//rF+KLQtYqBjTbDt4qDnGA99pwQ4ieoh mf7TqRj+TNFTDryZV978yDJZNvcDHASl0HHlcOHOr/agJDxjoOcVBQMv2jGW UCPfYBj7+sPExxPGXk5/aY5OujqweqQFw7tPoEE5aFAOGpTDGWhQEP/MW3XO d3dhrqkPB67M1SYOntZxcDpL+Rv6Qmrpicj7ZYjSbmKnkCLKshdCxy5EebQh 3rcNKYHtqEybhqzmAEP1Bxht4uDQcoCptn3MdO5jrnsP8317WBjYxcIwO8jY NuYn5JiflHMNixTDL5Rn1M9OLOPb99/i2l97Jhmy3EPg55WEAN88hNJhRgbV It6tDKk+VYilHoQ3zRB125YdwhkJ6u70SV6IfxSGNM1I5OgIkaMdiwK9BJQa JaLaLBENlklosU5Cm20iOu0T0eWQiB4mopfVqZdVp9tZhC6XGHS4RKGWTrhY S/GeL9rIYZcQX1Nl3EXWtRv0TV8h9KpCDxdgz3C+xQ5x+yJcqA3v2+cRcPcs Au9fQdADRVAXd+mvzv8LLL76Z5hf+CfYXP2E8+kv4XTpEzjfuYhLKjo4p8qx WtUZJrcMoH9TG1fV9HH1viGuX1PHzevquKWijjtM2d2b6lC9pa7Uw/3rKnh0 8SsYcyb009OAr64GzFUu48Gnn+A+ZXHvV/9D2SnsKAp7isLrwX34XVaBP3Ud wK4XQDEEn1ejT1KH8MsHSLyoixwVB0jueNMT+VEMhP9BAFofB1EIQZBqBqNL Oxht1HAz/U+3jhvDG526fujQ80E99ZzJeT39PEWnooHbNiG4bR1JUQhwXTsU ak8CcE8zEA/ZITQtRdAiclr28bCPrERyyzYkU3+iIBTd4c8UxP8k/v9ToQTl zZ8VcqAoyub/dCKLmArl4Uo6ngwvysI7Gno+Qhj40kD5hcDILxDGft4w9HH7 S2f0VAQ9o6c5w0IRukTR01IX/wLTh6rQV73JvTJFXkY7CtPbkRRchFj3DHhT Em2UxIydNeUggvAR52z9DkSb9XDe7oPIsQ+Jvr1oKt5Ge9k2ummYZLU7GGzY wUjzDsbadjDRua00SdOyLUwPyjE9IsfUGK8TyqPrz2BGqYipyXV8+PC9UgR/ pQh5FwcWt1D4eaQgwKcAIf4ViAyuR5xHJVL9aiG6bgThDQtE3bLnFOFCRXhQ ET6IfxKBVG0hsvWiUWgoQjG7Q4lREirMUlBnmYIG6xQ026WgzSEZHU7J6HJO ohIS0e0SDykLT6drLNqoimbObUXs+wWqVMRdDWRevwvx9TsQq9xAHikMpiKs b1yAw82LVMQluN++BFeqw/P2VwhQO4fAh9cQ9Ogqgh4r4gp87p2H1cX/Acfr v0GM7g2I9FQQ9uQiHG/+Bo/+7b/h0e8/xaV/ewi1Lx7isfI0DlWoXFbFdZbb G+xQt64rfmd2D+pXb+LhpYvQOPcH6Hz+a5he/gIB+loMTfgzlMpgWKhcgu6X n7Fh/CuMHqjDiqoIZnfzu3wL/vy+Cp8UcOE+Qs7fR/RFbWTccUDBfR+U3PFF uao/J4RAtoJgtDwOYSsIRZdWGHp1wtGnF4Zu7SC0aviiV98H/Qa+6DYMhNTA H1J9X3Toe9JnGSnf8kjT0AO3bKNw00aEm2wJt41joGYgxAOLODx2SIN1RDUS OD+XjP8RkskfqIgfqYg/K9tD6dy/KwKXlJIoW/jzqSgomvkf+F++hz2Foe0Z T1HEQttHBB1fWjH/SOgHhMEgIBCGAd7Q9/WAK0XhRkG4URDuiqAo3CkKN4rC wUgD+mp3YKCuphREobgdpZntqKIw6tLa0ZTSjkCKopuiWKIoyr2KIHFhUdbt RJx5P5KdJ5DkMYF03wnapWnUZK+irVwOKaeF3no5ZM1yDLbLMdwl/1+eXj82 QUGMTykEMTq5ifnlbaUGrv9UEGfxZmsXYhdaJrdUBHgVINhXIYgGGrZqGrZ6 RF0zhkDlRBAxHP3i1D2R9tAHcRoCpOpEI0tfhAKKQUKrVGmegCqLZFRbpaLa Og31dmloZkJanVLR7pKCTpckRiLaXRPQSlE00aC2OYSi2tzrRBBqGsi6Q9t0 45ZSEDkXaZOuKp5vusgWcYmCuMwWwVAK4wL81SmKB4qTRQOfXMP/rTwpJEDj CvyeXEKy6UMIHl9DtI4KYo1uwPLKrwn2P0L3i3/Ek89+g9u/ugvr31BMv/oD gn75CfR+/wk0PvsUmn/4FFoM7c8/PQOdLz7F72B65SyCDLX+EoGGmggwUOhC A376io7xBD46j2GpfhtlkUKkahkg5qE+Yh4YQ/TAHGm6LsjmDCPmpJx33xvF 9/1RdjcA1erBaHgQSi2EoUMzgl0hEr26kZDpR2LAIBKDhpFo1/RHn6E/Bo2D 0Gccim7jYEiNAiAlNJ0Gnqh5QidLO6UfXEdP4lOG/wgNj2LYBlchomAShYPf oGj4A4pHv1PKoWTyTz9pEIw5BfM/4sQrXaQWTnRQtvAnZZM40cMfGd8hqEgG LS82G182Hf9o6AQIoBsYDr3AIOgH+kHH3wtO1IOzYnxShOKJBerBhVqwNdSA tuot6FMLQW5BkGS1o5x6qKUemqiHNupBSj2EnbVHPx/amr0VBuPbMRTbjvbg DiSYDiDRbhxJ7hNI8ZnghD2O7OAxVOeuorlKjvb6k/f77qEeeqkHGfXQTz30 Uw8yNgnZuMIvDUwoxNDP+998+EHJv8pPfyVxD+UKITinwN+dQvCpRASFIApq RHJgA2JNohF5nUK4yc5wKoRUCiFWMwopujEQG8Yi3zgeJWYJKLekV7JORK1V LOrYn2vZGerZGZoc6Z0cE9DC+aHTgR6J80OnbRi6bALRaeOPOgt/VGg5Ikf9 CbLuPUQmhZB5QwWZFILJ9UuwvHEZtjevwPHWFbjeuQKPu1fgTM/ke/8i/B9d hr/i2BxNhtY1+GpewVhaBHYrxGgMcoCAnwt4dAHaX/wTdM8q4p+hx9D8w2+h +itV2P5GBSGffoHgX/0SWp/9Gpqf/wZaDO0vfqPUgafGvb9BsJE2vuTtT4Wg QSE8YYN4TBE8Qp2dI8Smtsgyd2F4IcfcD/nmQWyaAcjmlhVyNpCoBaBCLRi1 98PQ+DiCRT8SUm0BenSjCL8QA4ZCDBkJMWwsRJduMMEPwrCJL/rNwtFjyqZh Qhtl4o9OIx80U1w5d01hLuiCubCX0QMzIW1F9ijEdNEFA18rFVBEBRSPf08F sClMsSnM/HCGHeEHAlFKJ6QAvWzhB4UQePsPvP0jBfA9P/+9Ev7SuW8hmX2P JOkmbBPLoRkQB81AAbSCIqEdHMlrCOdrZ9hzZLKnCBxMFa7IwUwX/xlW3CLN uzcpAjOkCLNRns0mQAHUUQDNFEAHBdCd1gFZSicE5xwxYhIAuaMtxpOk/B4T SZ0sbV0RnchxHUCc0zjivSaQ4D+O1JBxiCNGUVG0igYKoIkCaKUA2imADgqg gwLooAA6KIBONgUpY2rlBd69/+HmT7lXh1w6CB/7ZPi75CPQuwJhQfRmoc1I CmxEuGMWwq9aQKhizznBBSImMZncJ7F7J+mJkGEYh1yTeBSbJ6KUs0EVZ4Mq cl9lm4AauwTU2yeg0SEeLbYxaLVhkm1Y6WxCIbUNIftBaCb7daa+qNJzgkTH hFWS3N+9i/Qb1+F9+QKMrl1S+nHrG1dgf+sqvf5VuKnyqnqJXvwSfB59BR9N FfgoDr3RuY7xTCEOanOxX5ON3Woxtqoy4Hj7CyX3OuRd98t/gf65f4Ehr3pf /B7qv2Z7/t1NhP/2HGI+ofP5t09hwjndXlUFwcY65COEt5xVjLV57ySUAjD6 dwEEUABBj9WRocrmxSE2y8yd8Psg1zwAhWbBKDMPo6a9UMRZoIzup0o9FPUP I+j/BejQikK3bjT69KMJfjSGjKNJQDRGTaMIfzh6TUIwbBmMAQve5/fpMg+B 1Iz1wpTzgokX8tVMEcy9VsIfRfijOWZmjyBf9kYJf+Hwe8LPFjD+LYon2Qam vif8jNnvSRfNzhkl5L84wX2BqM9/p/iH+W/xd/znD4z3kMx9jZL5tyhZeM14 iYCKLtikFeFJiABPgoKh76g4/d3KWBd/CysTXYYOTPSeINA1gMhn8d8qc9o5 L1cT/fqsDrSIpejM7EJPeg/6U3sxnCJD9HkPjJtHYMfVBTPp/ZjN6Mdchgxz 6X2Y5f+rDpEhynUU0X4TEBH9xMgxpEaNoLRWjspGOapb5ajtlKOum9HHIP71 A7wObGJ9/x1u//yP+YR2ifBzzEOAZxlCAusgCG9GfHgLAvwqEXTZHJHX7CC8 7YxoNQ8kPvBGxhM/JNDspNHsZJsmoIC8S6wSUW4dj3LW+ArmoIq815L1ekea G1vWdrtoyBwUz5yysDkIILULRbNtMOr0PFBhYIsyQ0uUGZgh+9EDJKlchTkd uN7VyzC+fgUWN6/C5vZVONy9Bif1a3BUvwIXzsEejy/CQ0sF6U4GeFlfhMP6 Qjyvz8dBfS726rKxXSvm15yD413FJPE5zK7+DhZX6GIu/gqmF34Jg7OK19+o w/73txH5+6+QoHjJ18N7StZJ+hmEMncXEcbb0L8EsWcEGyuw11RiH2jwBMFq txD61UWITZyIvCfDD7lmQSg2C0W5WQSKHgWg5B5r/cNQ1NwPR8MjAVrZLjvp G3v0YmjyY2hsYoh7DHGPwZg57zP6aOoHrKPQb0lDZBmOLguWC4tgdFJOHZRV yUNrxHNIMBd2nyAfI0VY3hjy+14T+bcoHGLNHyH2Y8R+4gORZ0yzgM8oivi3 Suy/xX9VMl46/+En8Z7/8o2Sdsn8O0gWFMS/QcniMeMl44CxjeKFNRTNLaCm vQUNDbVoZJxRYvU/UJ5Zh6rsFlTntDHaSXwn6rK70JLVS+Jl6MkYwED6EEbS hzGePoK4SwGY4iCzHluGhewxLDKWckYZI4xhfjyIhax+9CX2oyZmAOGhirf6 HUVcyiRySH4eyc8n+QUdDNK/tPMOx1//cPensF9CV9MkvG1y6fIlCPSvRnhY A6IELYgIqYWTdgRCr9gh8qYThKpuiLvvhdTHvkjhWJZsFItMUxZ4i3gUWsWj iLCXEPZSO0JvH48qx3jU2otQz3Gsk5D3EvZeB14dFb8miEQriajRdUe5oRVK CXspW2CxviFyDQ1ZUM3w5DLHScJufOMqzAi7FWG3JexWapfh+PAKagLMqP9g HDWW4KipGC+bCHwTgW8i8I25GMwIg6Pq+TO8+YrW10H1PO8pfkFzFt4cCfxO jxA0OK8Kh8/vQPD5RST/7reIeHJfecBNqLJLh5nqKm4U1IfyNtT0r2jnHBdy /jx8z11AioY5sky8kWXqj1zTYBSbhqPCTIBKowiU3A9ExaNQ1D6KQOMTIdq0 oiGlMexl0eg3EmHQRIQRMxEpF2HcgldL0m7Fgq8g3VqAXis2RqswdFpyNLYM RJu5L8o07ZF7zxRmkVKYRXXBNKYDoaULyOs9Rn4/C/wgaR95R9JJ/MQ3LPDf kHbGNCmeea+0LBJl/f5GWdO/4SZJ5r8+IXyOhM9/JJx1fekVipdeonj5BWOP 97dQvPgUhbNz+BslR/+ElelVVGc1cBZtZXQwuhi9aMgaQLt4iHSPoj9jHCNp kxjPmMZ05gwSrodjxjEZW4m1WMmfxdMCRuEs1gpneJ3CasEEPz+G5dxhrGT3 YSWjA8spDVhIrMC3z46w/+qH+z99hcJFBHpWwsupBL7elQgOrkVERAOio5tg 6lYObzU/hKo4IoIWPeqeJxIe+SBdwxfJBhzMTEmzBcs3Sc6zjkOhTSyK7Di7 2sehnJa8iuW63k6oJFnqQO/pqAiB0qp0GHqgUt+JBFtBYmiBYpKcR5Kzff3Q HM5SL4yDTJSABFsbpDrYQuxsh0IPe2xkp1LnsTgsF+FVbQqOm0tx3CLBUUsJ XrYU4UVLIQ6a81AebA9Hta/Yhx3VLuDv4aR2Hi5qX9LaXIcfrY3iXL8gWnij i2pwOKsK4dnLSP3sdxBo3D8FmF7zPMJ5q7gXpgT5BOZgwhykgNmY86oC5PMX uT2ayDImyMYBdG8hKDGN4PguQL1lNEt2ICofhaHuSSQaNaLQqh0DKZ1er0Es +o1jMcRtHDGLxZhFLMatCDJjxDoGQzYE2UbxW3TaeetwdFqHosOaDs/CB/Um nH0JsmlkJ0yFnTCP60JE5TLyel4iT/YK+QMs3cNvUDj6BkXjb1m2CebUuzMk +R33RDJDVmffKZnlR3NvuUOSuTfkV+FHXikrdPHSEbn9yO8zxi5DjiIyvHB0 dILwP6Iqsxo1WY3Etp3RjVoW1/qsYVqSMUgzJyHLmMFQ5hx95AKmsxYxl7OM pNsxmHcXYyetBWvFK1gvWcGGZAWbkmXGItYl81grmcWK4mjzghGs5vZhNasN K5k12KrvwoOf8ntBebJMoG8DvNwr4MtqHBxagwhBHay9ymFllQv/K/YIueWK cDV3RD/wROITMqzliyQjAZJYPdItY5HFTc9h38i3E6GQFbjEPgZltkI0kt9W ewHaaDfayW6HLXunsSfajN1Rqu9Abq04i1kg18AEAg9PuiohmiNEkEbFoz82 EaOJSZhOTcZCZgpWs1OwkZuCoeRoPK+Mx+taEY5bJThuUwT5bSvGi9YiPGvN R3mIA9FVv8gC46h+gY7lK7g9uAAfbRX4a58er6d7HaG612B8SR0O5+jAzl1F +ue/h1BLceBNuJneGSW+504ANjsBOEQJsAJeTcL7FeG9THi1kcXZL5tzYZ5x KEpMFPAKlfA20DZXPiS8nCmb6DVadWLQyQrcw/FcZhKLQYI7QnBHLRXw8mot wrANfQjtmoz712Or0Hu4ct867IJQb+aDOtr5Mm1rmIR1wCSyHTZ0qzntB8jt OkRu70tW4iMUDB2zEr+i1WaMv2YlZky9hoLg17yZeY3/RISJqzKI7BxNxQKR XTxSlt2i5UPGcxStPGMcMHb5MZv6/PLfnJ5ItDK1hBoiVSNuJsJSxgBqiW2j eBJtmbOsvgv0FssYzVzFZNYaZnPXsVCwgRT1JCz45GNf3IXNMjnk5ZvYqlDE BmMdmxVPsVG+jKeKM/gkiiPGh4lxD1bzm1mRSxXHjOO0BLufItzc9wz+Qa1w Zyn2CaxCUFg1fIKrYOBcA0vbIviqOCPgrhtC73lA+NAb8UQ4hQgnG4YikY0v jY0v3ToaWdz2XLsY5WGXEtaNOjvWHHumTmEerNgEjTzQQnQbWT/yDayRRxOR bWiOOGsHhAhFxDfqFN849MclYDQ5EdPpfLjiZKzmJGMjP4UKTsBuRQLe1guU 2B63K6IYR4zDduLbVoDyUEc43btII3HvEhPleP8inO9fgMeTy/DRuQF/3RsI 1LuBYH0VhOoTY72rML76GA5f3UPUV9eQ8eVniNZ+QIDN9XCLtwTY/KQSh5qd QmxKiE0JMQ2z71dXEHGbEBv6IscwCPnGYazAkScQWynm5FjUakUqK3CT9gnE HXqx6CbEfYR4gBAPE+IRAjxGgEdYCIY4Xw9wN/tYALq5ix12EWjnvNFgGYBa VuBaC3fUmjnC2bsQJoIO2KcNIKd1Hzmdz5Db/ZxV+JBV+JAgvyTIRygcOyLI jAnyOcmYYkwfEWfGDGOWH8+y3M4f0hAzll78jN8zKFrdZ7EuXNlB4dIGjr7/ Iz6C3N/QjZqMWoLMGiyWEeox1GVOo4kAd2Qsoy/zKYYzNzCeLcd03jbmC3ew XLyLtEcZWAqU4CC3H1uV+9iu2sNOzR7n/F1ed7BVvYXN6g08rVw5OfO7lPVY MoTVEimhrsXrufmfg3wRh0d/hLhyGxHJw3D1oq8gzP5hVTB1qYK+eyPMHUrg dcMFvnTGQfc9EPnICyINLyRqeyNV1wepxsFINQ9HGptfBiHOtY7gOBiBaqsQ 1qNANBLgBka9kTtqjN1QZeJC92uFDAMLiKyd4B6bAnGQEFVBUWhSgBxNHxEf T5ATMJWRSO+fiJXcJKwXJFHPSVgrJ8jN0ThqFuO4o5hRhJcdhThkPGtnHQ5z VDLseF/xHiiO9y/hv8CJhdhT+zp89W6eHAtkcANBjFCD6wgzuEY09WB67Qns L95H1EUVZJ7/HLFqN5Qwh5mzLCtYPq8kOdhMWxlBpPmE5KsQ3NFFFsexbINA 5Bt9JDnqLyQr/mqiUTcKDVpsNbrRaGM5ltIQ99AQy2iIB2mGh9nOhkny0MdS bBeFHpIsVbQy+wjUWwej1ookW/qgxpJbaeGIsNoR2MXJYJfcj5ymXZbkPeRI WZZ7npHmZ8gffE6aX6Bg5AVpZnUdZ0wwJknr5OEZ4nyI/0CI6RfmnhNiwrtI eJcOULi8T3D3uYOFpxDvoWB5G+1b+/jbU4irUyWEmEYiQwHzMGMatRmLaE5f RWf6Bo3EFkaydjGZu4/ZwgMsljzHSukLdvJcrIRW4XnhKKE9xG7tIQd3Rv0L xjNs1+9hs24ba7UbWK0myJVzjHGGDKvlLVgsLPwIsYfyQnN5/AMyq3YQV7KE CPEIXAKq4OBbCU27Ouh4tsLYSQK3my7wIsR+hDjksSfLlS/iDQKQauiPVB0v pOt6I1vbA6W6HqjQU5hdD1QZKsKd4w1HOGNXSExcUWzsjDR9cwgsneEmSkN0 SAwkvuFKgBsj2Gxj2GgT4jCSEo/JjATMZSdgOS8RawWJWK8SY05CI9ESy0jC EaE96izEy84CvOgowLOOfNTHOCuxVQDs+EAxBvL+wwvKo0N9CK+fwU0EnJ5r FWqkgjDD6yeHMzBMrxPiSw8QdfkGxBe+QPKV8wqAlfyGMkLMFQTrIEhBsJkW 6b2kJDhLxwFiPR9SHIi8jwRb/JRgxd/8JKBFPxpNOlFo0YtGu2EMukhwLwnu J8GDJHjQ+oTefg4SvfYcHhhtrMX1dMI1VkGotvZn+LA4sBZT/CULG0jtnUVo 9gyy6nZODoFqPznXRnF2Wp5snxQzhg5I8TO6Y8YYY5wxSVSneJ2mV5hlzBPZ BcbivhLfAkUoES5QIlxAO9y+/VxJzEkd/he8evYSNSnlqElrQ00663D6BGMO tWmraE7bhDR9B/3ifYzmPsdUwSHmio+wVHrM2voKGXpFWBXU4wUNw279G+w1 vMF+42uO5ce8vsRO03PIG/ex1rCN1bp1xhJjmsF6XMN6XFF+SrGX8vIZGgeP kNmyjyzpPhL4vwOzR2EQ1A+jqCFYhjTDiXOHO71EgF4gy1YQolh6Y01DINLy RJqmO3K0OGPouKNA1x2Fem4oMmAYuqHA0JVZdUaOkRPERg6I9PSFW0wa/ELi UOQahBJvDvGBAjRERKEjhgN7AutQShwmMuIwmx2Ppbx4rEmSsdecj/GCdNre TLzuTGXJzefuHnbmQwcvpHk4kOZiW5rzM3odSK+L5jV46d+Cj8Et+BndQoAR 6TW+gRBjmgmj68oXin88WsTs+mPYXnkA4dVbEF86i9RrrLsk+C/0MoLMtRFo roXAGyqk9xpanMIg1uEsp89Zjv6q2CQSFXQSdfRZLXQGnaS3x4H23jEBXeax rMF0FAZRaDfimGsSjR7FU26kt5/0ykhvL2tvJ71YK1tZvVUYyQ1BFee4Sht/ VFp7o8HRG62uHnSu66SOE9LWMcQVWxCzcIkV+es4ITiHBOeS4LwBBcGMYRI5 yhgjoROMKcYMP55lkN4C0luwpCA2f3mfNysKbHkXbduHSkT+9hTb1bFZ1CRz jEvtZAwxphlLqEtZR0vaNroy9jGQ/QJj+UeYKXqFBclbLFe8w1rV18g0KsfT mFa8KJ/DXuM32G/+Ggct7/Cs5Q2vr7DT8hLy5udYb9rDauMWVptWsdpMK9HM CtzYS3xrT7H1Vl5u4PDtj2gYP0YGH7KYD9c1dR5WSQwOjzaFi3DwL4WLlj88 iK0fsY1UIKvjiYQnzkjSdKEtdkWajisydF2Rrs/7BvycAf/NwAkJ9izQ4loE JiTDJyYe+VbeKHAMRJFHOMoDIlAXLkBrdBS642n+UmIwmiHCdHYs5vNisVaR hp3mPAxLirArK8VhfwGed+TheWcunhPVZ1052OvKxlZXFjw0r8BBietl5fFn bnq34Kk4Es3wFnyNb8Hf5BaCTG7SKRBbk+t/ORFHeewHFEen6cL26kMEPrJC zAMDBPFxuVjGwc2CYRaHAHNX+Ju6IuCRLUTnr6PHU8BGEoAsXSJrEIIiEz4e IlvLCa6ZyHbY0ew6sOg6xmPAKR59tnFoJ6othpxujYXoMBGi00zxh/sCdFpE ot0iAi2MBssw2oQQYhqMCpsAVHP/ml0C0O7ui1ruX/HiGgpn55WZUzZNOj9x PfPWTGwVhZelJ6fnBNvcfqJLbPNGiC6RzSey+UQ2n8jmE9l8IptHZPOIbO6y Atu8ZQWxufy4deul8mf8b6fEPh2bQ01iHantYYwx+HHyKuqT5SR2D13i5xjI PcJ44WvMkNaFsq+xUvUeazUfIDarwdN4KQ6rlrDX8i32Wz9wZHnPILltb7Hb 9grytpdYb32G1dYdrLbRN7Sz2LbT/Lb1k+DGU2J9lRczvHj3I6Z23qOBI6hT 6gLMkhZgIV6EZf4iPKpWER5bB4F/FsIswxFhFoTgh04Ie+KECE1nCLQZOs6I 1HWC0DYQMb5xiM+oQQIjkZEUJUKDnzNKrVmMbQNQ4Mb53C8c1aEcZaKYrXgh +pKjMJweg4msGMzkxrBFZEPelIPtlhw+mhzstzM6cnDQmY19aRYpzcJOtxib 3ZkojrSDveK0C9LqrK0CNxZWD1LqxcLqQ0r9TVlgTVlgSWoArcFPDxoItLSG t10I3O1jSaYIwRbRiDKLRCwjyiYO0VZxiOFYFc1GIzQQIV47AbkmKai0ErLA +iNbPxiFxuEo4/+vsaTdYcFss6WZ5ffrIa0ypzgMOMdh2CUeMsXnSHKzsQAt tBNn0Mqv+ns0c1ZosGBRtQxFhVUw6lm8m1xD0e4ZwuDA6+GDypIKtvGnmH95 fPJrhf9LCWuj7CUyCKuiR4pZY7NYcLIVJ6wS1By6hFyCmktQcwlqHkHNJai5 BDWXoOYS1NzF/V8gZ1HB6OzxN8pv/FNGV0fJZEIDOe1j0AgkLqAmaQ0Nqdto TT9Ad/YhBvJfYbz4LWZKv8FCxQesVH+LtbrvIbZqwFpyLw5rn2Kv7XsctH/H aeRbGrr3OOj4GrsdbyHvOMZa+wuscumrUjmD3rZrBqudg+S0+ZTRQOXFHoev f+SD3UNm64khUDzQXDaSPDaRPDaRIGEZ8xgDL2cRfFxFCE+sgiC5ClEp1YhO q0EMQ5RajaKEEsz7B0DmaYV+b1tI7LyR5xSCQjb9smCO2AI2ulgBupKE6E8T YlQchVlJElbqxFhvzMJmcxa2WrOw3UYGOxhSMba7xNg65XGtKxMr0gzYcuay e3RFeQKxK5l0I5OerJze5NGPPPqbce4yuwFfwzvKV/f7W1rBzyEEfuQl0CUO obyGO8Yi0lKERFZBsXkksklMunWs8vm+dMXh2Bz9y+3yUWiYiXztVGQ8EHGa iEC+YRgkZKzKQvH0Ae2pTTQrKO2pA+2pI4csp1gMuMRiyOXk/d6H3WIxwqvi /Xe6FM932/HxOwnR48H7rMztnhFo9yKTXsG8zwrq7kNLqXwq6qQF/2dMP/0G 6Q17yGB6MjsZLJpZLJpZ5DCbKcpmirLHyeUkY5r3yWH2HGNeUSiz5hUQNsuP 8PK7H5Xf8X//COEIIYzlUBXfz5gikEsEcYOFchctGc/RlXOEgYI3GC/5GjPl H7BQ9R1War/H03qO8XYtWEsfwGHDOvbafyB4f2QJ+R7PpN/Sm73HrvQd5J2v sSZ9idXuA6z20Jn2PmVwwOoZJoitpxAGn74Yc3rjPdLb+OiotKw+rp6PLocq S25bhFdEGXyiKuArqkRgfBVCEqoQllSFiKQaZMeXYlRASMJTsMrhvsfNEn0e Nmh14ZxhzRnDPRxFbN+V4ZFoiOaGxwvQkyLEYJYIM1WZWKjNxHK9GE+bxFhr IYhthK2DQfjWCd8aY5XgLTMWOtOQE2FLi3Fy/LUz27Yr4XMnfJ6Ez4fg+Zkr ALxBC3IPftZswwQh2DUOIQwBQ8RIIoQpDrFIJoC5LIwKoEoZBVaxKCCADV5F 6A6pR7URC+JjAcruC5B7Jwp52uFs5RF0nIqiKGRRJIB0kR32CgBj0EMA+5zo LinUARfOSK6iM7yJYS0cdOOo5B6FXneOSn/hLgxtXiGMILR4+qNcUo2CReXT R/9BmZW/wxSz0jB+hDSWhXSWhQzWv0xmRszMiFn/xKx/YnInnlawljmjYG3m 5XscnrL2f36cfvZfoCaGrInIWixZi10mb5u0kXtoyXyBrtxXGCh8izHJN5iu +Bbz1d9hue6PeNpI1hzb8VQ8hBdNGyxu32OfnB1Iv8NBFxt01wfsdH0Nefcb rPUcYbXvOVb72Zj71xi0kjKy1t12ylqo8mKFqS0+quljpPedPJpMqiihbQlu EeVwF1bCM6YKPqIqFEXmQRrGvIewSIUkYy0sGRthir86tkS3mzWtlS2aPJ1Q 7EZrxSJXHMTCwCLXKGLzTY2hHczAeEUGpqszMVeXicVGMZbI2DIZWyFjK528 T84WO/kzpPw/HRlY7MnEq8UKxHsZwUn3JpxY4JzZcF3JmAcZ8yJjvgx3/evw s/MnW7EIdYtDhHschLzGM1LJWCYZy2Why2NzzDUXodQ8GrVmAtQbc942oSkI q8ZEfDs6HbPRqMuJTJeWUEMIiTo5JHMSxW+pLAS0eOTMhlaQk0qHfTSkLGTd itfiOEWjzzkaMkW48L5rFPrcqD8FYB6RLG4RBCsMrSxurSxuzV6BqPPwUz61 M3f0hmydTMeTzMUkDdLUHuPg/RlMPVPcPH9Pkg4//PiX1vkfPz4VJKC1i+b8 HE2KRCcU1abuoVl8CGneK/QXvcMoW+ZU5QfM1XyLpfpvacu+Q6YrKcolRS1r 2On8FnvSDzQ777Hf/Q32ur/GTs9bbPa9wdN+UjRAioZI0RBn6SFWrMFh5XnS pxhFfPR2X/+ISS57cv89+hcOEOeThSbvOHT6JkDmn4iRwCRMBiVhlujMM5ZC kzHkTYfsZI0Odxt0+NqhI8gehV7Exy8CRWHEJ5ZyzktHb3EGBssyMMoSNcES NdWQiZlmMWaJzyzxmW0XY7qDn2dMtGXg+bQEbxYrcUx0JloSYftEBY5Ex5Hl yZnouLEveiiwMboBb0sXhLIqhLM3CYhNNCOekUZ0solOPtEpdo5HKaeBMvt4 lLAf1pnHK1/f3mcQjhEiNMCy1eGUjkadEDRoBvIainqtMFQ9jkSxBvExi/wZ Pi3Ep82eCDlw4HWMYg/kJOXMcBGi25XIuFMyHid1qcUrnBGGZu9QNBGdeqJT 1D2KNvkBfnmKgaxkEDUCuifhJFEgBvEsJsSgiRh0EgNZ8RsMl73DRCWbVy0d VMM3WG56j0yPdqwWDNHRP8W29Btl8djtfsegu+99g+2+19jsp3saPMTqMF3+ CDEYXVM2y9WhEeUpyacYRCkv/w2vtg4wkFmJOu94tDD1Xf5J6Gfqh5n6caZ9 UpH2ANoFe2vaTxu00Bo1B9ihOcQedSGuKIkIQ0VaGuqz09FWkA5pSQZ6WTUG WDWGWDVGmPrRpswzGGnJxDUM83Z9qABvlirxmhlXFIsjxuFSOQYb42D56Drs mXUH45twZtbtdVXgoPOArkeASDfRXzKe4B7PjCcg2y0JBa7JKHFJQblzKiqd UlBln4hqm0RUmqeg3SwJY5YJWLaLw5wdm4p3DgWfgjaDQLQyWvSC0KxNcT8M QLFeBEqY+QpmvtqKxYaZb7Jl9u1ZQByEaHMUot2Z4SJAmxvnafdItLBYNDHr jcx6PbNez4JR4xkMSWwa5o6//tXHX8ixoteEdaMmgnZZSKcSt4Fado9G8QsK 5oiCeU3BvMFY1VtM1b7FXMNbLDa9RYZ3O1aKhmiTVyCXvuEIziR3v8ZO7ysm +xhbAy+xMXSIpyPUPDva6hidyjidCsfIk3Mj3n1MeMxpwpfJYjl1XuuXgJaA RHQy0T3BSehjm+gPTVL20ipHG1R72KLa1xatcT6YbMjA08FSbI6UYaAuH+1l WajNz0Azk91WnoGOqgx01mRAqrAj/YVY6i/4BVNbiUtKSR8tlisT/Hy5DPsr ZZA1xcLg7hUYql+F0f2rsNa8j2D7IESyEgspa6FbPOLck5DilgKxWxryXTNQ 4ipGuWsWKuzTUWWXiloHMueYhlarDBSpO2LykQN2XGKw7JaOycAiTAQU0LYm o8ssFJ2mweg0CUS7fgDqHwch56Y1ipnoMiZaMbLVMNF1tLcNTHIjk9zIJDcy yY1McgOTXMck1zDJ1Z7hqPIk7xzBikTpePn9j5+e/rFAZVAnqkNGmeB52oN1 zuw7qM98hra8Q3QXHaG/7Bgjlceshq8w0/AK802vkObbgWXJEPY6l7AuPcZm 1xHktAHyvpeQD7zA5tBzrI3Sfo7tYXWCSp7gLDTB5I7PYXFo6OMfC8QqL1o4 2nmGpb5xlPjHozIwAbVBjBBFxKPCywNtCZHol6RiupODTo8Ey7JSrA2dJHV7 vBy7kxXYn6rAs+lKvJitxCHj5RxjvhJHilhQRAVeMg6Z0RfM6DNm9GClFLuM 7VUJtlaL4e+kA717V9jv7RDuFM6sxkBAqUa5pbK/ZyDdLQu5rjkodslDmTPD Toxqh2zUOmWjzb0AEyG1aORwXXXHGtua1jj0jsBqQBHmwyowH1qGmRAJhj3F 6LGOQLdVKLrMA9Fl5Ieqh97MrA0KdCll+stSayEqKN9KyreKWa3m4FLNrFa5 ClDBrJYxq6UeEYxwlLiHYiCnGL89Tedy7zaqAoZQHTaL6uhVVCdtozZjH825 z9BR9By9pS8wUHmI0ZpDTNYfQla+hfSgecxLdrAvXcJT6SHWul9gvfc51vuf seQdMJVM4/guU0iNTm79+4v2mc7D/f2P6UxRXv4LPhwfYbSyEOMNxZhsK8G0 VIL5PqatvxRPh8qwOVqGLaZtZ6Ice0zbwTRTN1OB57MVTF/FGbyYq8BFvJjn pxaYKWbrgNnaY+wwW1vM1uZqCTZWirG+XISK/HAkB3K0dBIgwkXh9lMRTb0l uubSjRVSg8UsssUotctDpWMBOr2rMBBYj8mwFsxGtKBUNwR9953w2soR+xFJ eBrViFVhPVYEtViMrMZceAXGg4rRw7bcYxvCzAWh3TQUkttmKLxuzNE0UPl+ 44r35CuiFoupxRJmrJgZK2LGCtwike/GEdaNhdZfgN3BEfybcqv+O3qzF1ER PI1K4TIq6aiq0rbZjzgHFuxBKtlHX8UBBqsPMFr3DJONz5Ce8jWmBr/H1txr LEkP6I72sSLbw8rgLlbYMpdZRZcmtrA8Jf/Z68jlqxt4eJKl1NM/iN9fmMdI VRHGmkow3i7BdJciS6VYGihTZml9tBzysXJsM0s7k4pMlWN/mjHDdMwy5nh/ nkFB7S4xNUzPFtOzyVhnitaYoqdM0cpSEaT1uajOqEaNuAVFCU3IiqxDXmQL JBEdrDtdqA1oRZ1bDTp9mjAU3IGxsE5MKd4LTiDFYpQUBQ88sajlgW99vbAR 24nN2HZsiNqwJmrBCsebxag6zEZWYSpMQqcnplGO5dQfjkpNxfE2pihmdLFT tLBzVHuKUOPF8BaxS4hQ5RuDSkZ3eDymiyvxdu8Av1fu0f+Lo61vIPGZQHn4 EspZG8tTmCLxFhryttFavA1p2Q76qnYxWLuL0YZddNU/R0/PMWY6djHXtcP9 3MbCAGN4Cwuj8o+va/74suaF6Q3MTCzhw/sPH7OTdvqM+7y0A0PVxRhhdsaY ncmuUsz1lmGxv4zJLsfacDk2mKFN6miLGdpmhnaYnR1mZ4eZ2aZwtpgZOTOz ycysMyurjJUVCVaWS7DIrGzKO1CZWoKaDFr7TCmzM4B68TgHw1lIxYsYEK9A GipDd0AXBoO7MRrei8nIPsxGybAUI6OjyEedhj/2zf3wLjoR2wl92E7shTyh G5sJXViLZ5eIbcF8TANmhFWYDi/GVEgWhrj7nY6BSLttDPEdYxRoOaAxOBHN ighJ5EDbFJrA7WkIjcPmwBjeMCOfnx4IcrT9ASUB85AI1yChYMrS5ajKkaOh UI5WiRzScjl6q+UYqJdjuEmO0VY5JjrlmOyRY0om/9lLaqdOXlKLj6+pnZhc w4cP3yl/0mk60k/Tsbu0gIGaYgw2STDSXopxaSmmmY55WTmWmI4VpmOV6Vhj OtaZig2mYoOp2GAqNpiKNaZijalYZSqWlkuxuCzBAmN+sRhrmx04fvYS1Sll qElvYTporzNG0ZAxg9aMRXSLn0IaM4UO/170Bcs4QQ5gXKB4e9FhLIhGsBI3 QsufgkHWsXfuIXiR1Iq9lGHspgxhJ2UA8hQZ1pN7sJLYiYV41jxRPWaiKjAT WYDpsDSOSpGY9w5Bv70P6o2c0ZeQjSXZGK3QGI53n+G8cg/+K7f+OxQGL6Mo ehNFSXJIMuSozJWjvkiOllI5Oirl6K6To4/bPtAmx5CUKeiVY+TjizZHTl60 OTqh2PIx5as2hyc28f7DH5U/4dHJlmcoL1fxzetj9NQWQ9YswWBHKUa7yjDB LZ/pL8fcUDkWRrj13O4l0r/M2rTM7V5mXVpmTVpaKMPCYhnmFksxy5hZpILm i/Htd8fK777CxlWTUoOaNFKfPsSYRH36AtoVf9eQuIgmv15IgwYgCxvGSOQY JqMnMCeaxHL8FNYSp1GkJ8CyqQDfRUZhP20KB/z6g4wJ7KaPYTt9GBtpA3ia 2oulJNawhGbMxtZgJkbCbc/GdEQsZv1D8NQnDKvc9nnPIJwcwvwPeLnzHXJD V5EnkiM/RY7iLDnKC+SoIdmN3N5Wbm8Ht7erXY4ebm8ft7eP2yvj9vZxe/vG FFvbr3wNYM/oBr5+f7K1j0+2Vnz6TPv2+iK6mkvQ21mKge5SjPSVYYxlf5IU T7Pkz3BLZ7ils6R4lls6M1eGqXlu/zzJn5dgbK4Ez48Wf6H8dr9SvkVHTXIj d7QXNal0kqmzqE9bRnvmBtqiZ+nVB9AVMoL+iHGMRk1iWjSNhbhZAjnPZlxH 6EQ4cBThTWwpDmJ78CK+Gy9S6S7Fk9gRj0GeOYy1jH4sp/VgPrkdc4kNmE2o xExcPqZjFDN+BNY4x6/5hGLFOxhH3bLTw3v/AU1somLWiSzCmpvHHS2Ro6KC O1rLmsGdbCKoLdzJNtaHNtaHNtaH9uGTF5S1M8aXnkPzZPeylZf/hK3NRUxO dkHaLUEvnWg/x4uh4TIM09aMjPM6yZgqxeA0d3dGAtlUCfZfLv7t6W49HePU nNjKHetnTHKYWkBDylN0ZGyh1leG1qBh9qJxDAinMBYzy0c5j8XEBTxNXkKF QxGGzBLxNiiRMm/H88R+vOT3eZnSh8P0AexkT0GeNYZ18TBWMmRYIN9zqZR8 KvlLLsZ0QjoWwoVY84/kjoVjzTcEi96Bpwf0/R2eH/yRD+0dksVypJO7HMq6 kNVU0kAOWyj3DlbbLkavgrNqmYKztf13ePXNyWtNT3cq7/RX2W+/5miwu4St /SVsHzCeLfHLtp8v8cu2ePvzX8/8ml6Ucoxv5/ZQkpRZXfIymlI30JL4FHX+ g2jlmNIdOYmBqFmMi+YJwRIltkypraLQLA1Ldmn4kJCB/aQRvGAFPEobwnH6 II4y+7GfM4mt3Ems54xiJWsAC5k9mMtsx2wmq2E6S0SKGIuCGKwFKrZHAVQo Vn0D8d32zsn5Cv8HRqffYmzhHSaX3yGBDKWQoTTuzNzWO8wzXr77AbonO1B7 +oj6yjg507DUxI+gJmEWtUmraEojetHzqAscRmvYBLoFMxjgx+NxS5hNXMES YWgL7ESdlRh7NDPHqU04SJ1ggsf5SFiTxaM4zh7Gi9wRbOVPYz13HCs57AU5 fZjLYcHJacRsFlWbkYWlKBEfURRDgLUAJtw/GK96+/J+vsrV4VXUxHCVsVxl nOJXZE/RmEabE7OIuqBRtIZPcpWzGODH4/HLmE1+iqXUNdomKfocyvBKmMvy N8AyOIVD8RSOsiZxnDOO49wxHOUNY6tgFuv5k1jJG8FCfj/m8ollfhNmc9mF xNlYjOEqg6JP9j6Qex8Ygtd9f73KlUFOM0KuMpolhtmvSVxDQ/o2Sn0GuMox rnIaXcJ5DMQuYSxhhcCvoiViCrVug7QmI3iV18riPIX9zCm8oFCOcqdwnMeV 5k/gReEk5IVzWC+cwkrRKBaKBjBX1MVg8S5gqcnJxpxilcFcZTD3M5gCCgrF bl7eX63yeO8YVQpbK+BexswpV1nPVUp8BznX0lxxldKoOfTHzmOUrWY6ZQn1 4WtoT3mLF51f42hAjq3MSexlT+I5eX3J1R0XMAonsFc0B3nxHNZKpjl+j2FB wlVKuEoJV1lUgancbGyExGIthByHcJUhzHpwGJYD/E9XWXdahMqDqbKIYdRE nWS7nnNHCfexmtluZralUdOQxc5iJHEOk6ncUyqwovg7LIx9j3XJEovMOHaZ 4Wf54zgsIJdFvBZPYLtkDpuSGTwtncRS2Rjmy7nCcq6wjNkuKcdYjhgboVxh KPcylCsM5QpDuMKgAPzVEpdlHGRDWAgiZgjlCmoJZFnIOKoCR9AYPoZ24QR6 YqcwyEIxnjqD6YxZLGTNUQrcoNwZbGSzF+eNYb9gDM+Z0mfFk9jl0rZKKZmy SaxWTGCxYgTzlQSygkCWN2KaS1xITMd6WBzWwrjEMKY7jEsMDcObftnHJdYr L79EGWtSVdgMqkVcHkeDCqq4PGAQdbQNrcJRSEVjkCVMYDhlEpMkb5baWMyZ xmoel1Awjc3CaciLprFVPMWdY5ROYLN8HGsVY1iupFaqhjBfRVVXdWKmogHj JaWQc0xZC+fywrm8cC4v/GR5r/v7/2p1Sz0HKA/ibBm1jOokWmXWmRL/Pm5q PxojB9EWw0bDujSQPIpRGpepzHHMZY9jSVFPSN1TUrfOvG4UM0jbRvko1riq Fa5qqXoQ8zXMbQ3HgaoOTHJ18ynZytWt//XqwsJw3C87XV3D6YsIi73GUMax qiJ+g1Mv7Y5PD0qDaCDCZWiK6kdH7AB62QcGaQTGMoYxlTWC2RzuCWvIUj5X UcQWVzKM1bIhpnIQy1Ws6dUDXJUMs7WMGg4rXNlUHkfTiARsRnDfaL3WIriy CJIXIcBqWFj+z1d1tPUBxf4cL6LWUZa8idzAIRT696A8pAe1gl40i/rQES9D D5vuQFo/RjIHMMFuMp07wDrB/SjmCiT95J5RyVVUyzDDFU1xRZOM8ZoeDJa3 YC02A1tc1UYkVxXJVUVSsZGsfhGR2CkuPl1Vo/Lyr3ipcN4hqyiO3UShaBli 7x4UBvZw/7hfwl40xfahPbEPPbQBsnQZhrJkGM3lTyuUYaKEP7mUUcH7VTKM cUWjXNEIY5jZk1V2Yj0uC7uRiZBHJmA9Mu50Rcwe7e0qV/Td3h5Ol9R0aiFf 7nyPvPB1FMTLkeo3hAymL5/pK43oRXV0Lxri+tCa3IdOLqeHy+njcvq5nEEu Z5DLGSznx1WyM+jjev6OI5sM0ooerMVlK1eyHXm6NwKuRiBSrmaVq9kukaDg ZCXNp6/XO9z9HmLBOjKEy4hz70Eqx6Sc0F4UcWPKuTE1SX1sE31oEfehjavo KOCPKmZwFZ1cRQc3pp2pamP05TVjKTYbO5FJXEIiNhUbIojHUy7jKZexwmUs RAjx7d7+6SpaT39JNjX6DnGh0xB49yKB+5AeyVXE9KGIM3Fpah8qM/tQnSND bb4MdUUM7sMZ1HINf48qCVOWWkHxJEEekcSfmvj/t2cmOwkEQRj+9Rk8+Ipe NBpFBUbkIIRZEuJCxKCjbBdMUEFEBoTIIiKbAyc0CNGoBxNfwR8GvfkGc/jT NclMfel0TVdXF5dBIlGETrpOepv0Bumv+ULAICfGwyx/nhzWGBAOWwYupwaF c97mnH1eDf6dLA58lJ8ied+v4UqOoCso/DUVdEnrcK46aW2qRWKTxAaJD5su dNTgoUFLTm5E8t4QTufd8FqC2LOGENgI4cQZRpgFZXQrzJTHZGlVUB/13uwK miS1SGqS1CSpTkqNuiepSkqFofaoho4MyuV4mEEnxeS54EZs0YP4sojkioTr v/aOgiIJvy2eKglVEu5IqFAlei9y3W4ZPgV6/34ZqIb31CR2P3oDZHYjiCx5 eOIWEbdISK7KSK/LLLBJscm4scvICxTXJEdlHRIlQuM2UlMj+OoPjg2v6UlZ 8P405JZbYqL3IGoREVuTEOc5/dwq4cImIWHnKPBZEHEmeNDLl0Z3TUHDizZp y749D9HQWHxnuQlny9PQc2WelnXW4p/94filsPHF+Og8Z9qmbdqmbdr/2Zj6 Aeg+WVI=\ \>"]] }, 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", ",", "Plot8i", ",", "Plot8j", ",", "Plot8k", ",", 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, {3.576425043829154*^9, 3.576425050817966*^9}, {3.576426711141282*^9, 3.576426714510888*^9}}], Cell[BoxData[ Graphics3DBox[{ {RGBColor[0.4, 0.2666666666666667, 0.13333333333333336`], Opacity[0.8], SphereBox[{-0.39676687095999996`, -1.6629966745199998`, 0.7892062693799999}, 0.255]}, {RGBColor[0.4, 0.2666666666666667, 0.13333333333333336`], Opacity[0.8], SphereBox[{-3.0252623534, -0.8296842003, 0.027758185214}, 0.255]}, {RGBColor[0.4, 0.2666666666666667, 0.13333333333333336`], Opacity[0.8], SphereBox[{-3.2669583087999996`, -0.25739957846, -2.8000070141999998`}, 0.255]}, {RGBColor[0.4, 0.2666666666666667, 0.13333333333333336`], Opacity[0.8], SphereBox[{-0.35848102219999994`, -3.208754748, 3.191747214}, 0.255]}, {RGBColor[0.4, 0.2666666666666667, 0.13333333333333336`], Opacity[0.8], SphereBox[{3.8648676152, 0.09607933901799999, 1.3578248227799998`}, 0.255]}, {RGBColor[0.4, 0.2666666666666667, 0.13333333333333336`], Opacity[0.8], SphereBox[{-5.893866421399999, 0.57818056696, -3.5237720722}, 0.255]}, {RGBColor[0.4, 0.2666666666666667, 0.13333333333333336`], Opacity[0.8], SphereBox[{5.600203001000001, 2.316804076, 1.52355379298}, 0.255]}, {RGBColor[ NCache[ Rational[1, 3], 0.3333333333333333], NCache[ Rational[1, 3], 0.3333333333333333], 1], Opacity[0.8], SphereBox[{1.3465242613, 0.50501037624, 0.9577131367999999}, 0.24]}, {RGBColor[ NCache[ Rational[1, 3], 0.3333333333333333], NCache[ Rational[1, 3], 0.3333333333333333], 1], Opacity[0.8], SphereBox[{5.616265672, 3.6819421383999997`, -0.87076684354}, 0.24]}, {RGBColor[1, NCache[ Rational[1, 3], 0.3333333333333333], NCache[ Rational[1, 3], 0.3333333333333333]], Opacity[0.8], SphereBox[{1.06809203246, -2.3014972954, 5.0043723932}, 0.178]}, {RGBColor[1, NCache[ Rational[1, 3], 0.3333333333333333], NCache[ Rational[1, 3], 0.3333333333333333]], Opacity[0.8], SphereBox[{-1.61078354514, -5.0950792412, 3.3625784444}, 0.178]}, {RGBColor[1, NCache[ Rational[1, 3], 0.3333333333333333], NCache[ Rational[1, 3], 0.3333333333333333]], Opacity[0.8], SphereBox[{-6.984427296, -0.7648477012399999, -5.3258147858}, 0.178]}, {RGBColor[1, NCache[ Rational[1, 3], 0.3333333333333333], NCache[ Rational[1, 3], 0.3333333333333333]], Opacity[0.8], SphereBox[{4.6528833571999995`, -2.018227368, 1.59906724394}, 0.178]}, {RGBColor[1, NCache[ Rational[1, 3], 0.3333333333333333], NCache[ Rational[1, 3], 0.3333333333333333]], Opacity[0.8], SphereBox[{-6.8846497632, 2.3502522262, -2.4842337996}, 0.178]}, {RGBColor[1, 1, 1], Opacity[0.8], SphereBox[{0.25222172921999997`, -2.8873123553999998`, -0.68319264078}, 0.12]}, {RGBColor[1, 1, 1], Opacity[0.8], SphereBox[{-4.282875006399999, -2.3581890754, 0.44072189772}, 0.12]}, {RGBColor[1, 1, 1], Opacity[0.8], SphereBox[{-3.4948592643999996`, 0.84185403574, 1.06408581334}, 0.12]}, {RGBColor[1, 1, 1], Opacity[0.8], SphereBox[{-1.9997080531999998`, 1.2582173653199997`, -3.2306755696}, 0.12]}, {RGBColor[1, 1, 1], Opacity[0.8], SphereBox[{-2.8083218086, -1.9288433281999997`, -3.8412460402}, 0.12]}, {RGBColor[1, 1, 1], Opacity[0.8], SphereBox[{0.6883326954999999, 2.2674822274, 0.77996550924}, 0.12]}, {RGBColor[1, 1, 1], Opacity[0.8], SphereBox[{4.9569402706, 3.553629743, 2.9880347512}, 0.12]}, {RGBColor[1, 1, 1], Opacity[0.8], SphereBox[{7.4715986588, 1.6746940784599997`, 1.940748602}, 0.12]}, {RGBColor[1, 1, 1], Opacity[0.8], SphereBox[{1.1602350722199999`, -3.157732146, 6.6010018906}, 0.12]}, {RGBColor[1, 1, 1], Opacity[0.8], SphereBox[{6.2088837456, 2.5314769496, -2.247829077}, 0.12]}, {RGBColor[1, 1, 1], Opacity[0.8], SphereBox[{6.7814707236, 5.1640542402, -0.74300246868}, 0.12]}, {RGBColor[1, 1, 1], Opacity[0.8], SphereBox[{-8.6617480936, -0.3492213648, -5.877992723}, 0.12]}, Text3DBox["1", {-0.9967668709599999, -1.6629966745199998`, 0.7892062693799999}, {1, 0}], Text3DBox["2", {-3.6252623534, -0.8296842003, 0.027758185214}, {1, 0}], Text3DBox[ "3", {-3.8669583087999997`, -0.25739957846, -2.8000070141999998`}, {1, 0}], Text3DBox["4", {-0.9584810222, -3.208754748, 3.191747214}, {1, 0}], Text3DBox["5", {3.2648676152, 0.09607933901799999, 1.3578248227799998`}, { 1, 0}], Text3DBox["6", {-6.493866421399999, 0.57818056696, -3.5237720722}, {1, 0}], Text3DBox["7", {5.000203001000001, 2.316804076, 1.52355379298}, {1, 0}], Text3DBox["8", {0.7465242612999999, 0.50501037624, 0.9577131367999999}, {1, 0}], Text3DBox["9", {5.016265672, 3.6819421383999997`, -0.87076684354}, { 1, 0}], Text3DBox["10", {0.4680920324600001, -2.3014972954, 5.0043723932}, {1, 0}], Text3DBox["11", {-2.21078354514, -5.0950792412, 3.3625784444}, {1, 0}], Text3DBox["12", {-7.584427295999999, -0.7648477012399999, -5.3258147858}, { 1, 0}], Text3DBox["13", {4.0528833572, -2.018227368, 1.59906724394}, {1, 0}], Text3DBox["14", {-7.484649763199999, 2.3502522262, -2.4842337996}, { 1, 0}], Text3DBox[ "15", {-0.34777827078, -2.8873123553999998`, -0.68319264078}, {1, 0}], Text3DBox["16", {-4.882875006399999, -2.3581890754, 0.44072189772}, {1, 0}], Text3DBox["17", {-4.094859264399999, 0.84185403574, 1.06408581334}, { 1, 0}], Text3DBox["18", {-2.5997080531999996`, 1.2582173653199997`, -3.2306755696}, {1, 0}], Text3DBox[ "19", {-3.4083218086000002`, -1.9288433281999997`, -3.8412460402}, {1, 0}], Text3DBox["20", {0.08833269549999989, 2.2674822274, 0.77996550924}, { 1, 0}], Text3DBox["21", {4.3569402706, 3.553629743, 2.9880347512}, {1, 0}], Text3DBox["22", {6.8715986588, 1.6746940784599997`, 1.940748602}, {1, 0}], Text3DBox["23", {0.5602350722199999, -3.157732146, 6.6010018906}, {1, 0}], Text3DBox["24", {5.6088837456, 2.5314769496, -2.247829077}, {1, 0}], Text3DBox["25", {6.1814707236, 5.1640542402, -0.74300246868}, {1, 0}], Text3DBox["26", {-9.2617480936, -0.3492213648, -5.877992723}, {1, 0}], {RGBColor[1., 0.75, 0.5], TubeBox[{{-3.0252623534, -0.8296842003, 0.027758185214}, {-0.39676687095999996`, -1.6629966745199998`, 0.7892062693799999}}, 0.1]}, {RGBColor[1., 0.75, 0.5], TubeBox[{{-3.2669583087999996`, -0.25739957846, -2.8000070141999998`}, \ {-3.0252623534, -0.8296842003, 0.027758185214}}, 0.1]}, {RGBColor[1., 0.75, 0.5], TubeBox[{{-0.35848102219999994`, -3.208754748, 3.191747214}, {-0.39676687095999996`, -1.6629966745199998`, 0.7892062693799999}}, 0.1]}, {RGBColor[1., 0.75, 0.5], TubeBox[{{-5.893866421399999, 0.57818056696, -3.5237720722}, {-3.2669583087999996`, -0.25739957846, \ -2.8000070141999998`}}, 0.1]}, {RGBColor[1., 0.75, 0.5], TubeBox[{{5.600203001000001, 2.316804076, 1.52355379298}, {3.8648676152, 0.09607933901799999, 1.3578248227799998`}}, 0.1]}, {RGBColor[1., 0.75, 0.5], TubeBox[{{1.3465242613, 0.50501037624, 0.9577131367999999}, {-0.39676687095999996`, -1.6629966745199998`, 0.7892062693799999}}, 0.1]}, {RGBColor[1., 0.75, 0.5], TubeBox[{{1.3465242613, 0.50501037624, 0.9577131367999999}, {3.8648676152, 0.09607933901799999, 1.3578248227799998`}}, 0.1]}, {RGBColor[1., 0.75, 0.5], TubeBox[{{5.616265672, 3.6819421383999997`, -0.87076684354}, { 5.600203001000001, 2.316804076, 1.52355379298}}, 0.1]}, {RGBColor[1., 0.75, 0.5], TubeBox[{{1.06809203246, -2.3014972954, 5.0043723932}, {-0.35848102219999994`, -3.208754748, 3.191747214}}, 0.1]}, {RGBColor[1., 0.75, 0.5], TubeBox[{{-1.61078354514, -5.0950792412, 3.3625784444}, {-0.35848102219999994`, -3.208754748, 3.191747214}}, 0.1]}, {RGBColor[1., 0.75, 0.5], TubeBox[{{-6.984427296, -0.7648477012399999, -5.3258147858}, \ {-5.893866421399999, 0.57818056696, -3.5237720722}}, 0.1]}, {RGBColor[1., 0.75, 0.5], TubeBox[{{4.6528833571999995`, -2.018227368, 1.59906724394}, { 3.8648676152, 0.09607933901799999, 1.3578248227799998`}}, 0.1]}, {RGBColor[1., 0.75, 0.5], TubeBox[{{-6.8846497632, 2.3502522262, -2.4842337996}, {-5.893866421399999, 0.57818056696, -3.5237720722}}, 0.1]}, {RGBColor[1., 0.75, 0.5], TubeBox[{{ 0.25222172921999997`, -2.8873123553999998`, -0.68319264078}, \ {-0.39676687095999996`, -1.6629966745199998`, 0.7892062693799999}}, 0.1]}, {RGBColor[1., 0.75, 0.5], TubeBox[{{-4.282875006399999, -2.3581890754, 0.44072189772}, {-3.0252623534, -0.8296842003, 0.027758185214}}, 0.1]}, {RGBColor[1., 0.75, 0.5], TubeBox[{{-3.4948592643999996`, 0.84185403574, 1.06408581334}, {-3.0252623534, -0.8296842003, 0.027758185214}}, 0.1]}, {RGBColor[1., 0.75, 0.5], TubeBox[{{-1.9997080531999998`, 1.2582173653199997`, -3.2306755696}, {-3.2669583087999996`, \ -0.25739957846, -2.8000070141999998`}}, 0.1]}, {RGBColor[1., 0.75, 0.5], TubeBox[{{-2.8083218086, -1.9288433281999997`, -3.8412460402}, \ {-3.2669583087999996`, -0.25739957846, -2.8000070141999998`}}, 0.1]}, {RGBColor[1., 0.75, 0.5], TubeBox[{{0.6883326954999999, 2.2674822274, 0.77996550924}, {1.3465242613, 0.50501037624, 0.9577131367999999}}, 0.1]}, {RGBColor[1., 0.75, 0.5], TubeBox[{{4.9569402706, 3.553629743, 2.9880347512}, {5.600203001000001, 2.316804076, 1.52355379298}}, 0.1]}, {RGBColor[1., 0.75, 0.5], TubeBox[{{7.4715986588, 1.6746940784599997`, 1.940748602}, { 5.600203001000001, 2.316804076, 1.52355379298}}, 0.1]}, {RGBColor[1., 0.75, 0.5], TubeBox[{{1.1602350722199999`, -3.157732146, 6.6010018906}, { 1.06809203246, -2.3014972954, 5.0043723932}}, 0.1]}, {RGBColor[1., 0.75, 0.5], TubeBox[{{6.2088837456, 2.5314769496, -2.247829077}, {5.616265672, 3.6819421383999997`, -0.87076684354}}, 0.1]}, {RGBColor[1., 0.75, 0.5], TubeBox[{{6.7814707236, 5.1640542402, -0.74300246868}, {5.616265672, 3.6819421383999997`, -0.87076684354}}, 0.1]}, {RGBColor[1., 0.75, 0.5], TubeBox[{{-8.6617480936, -0.3492213648, -5.877992723}, {-6.984427296, \ -0.7648477012399999, -5.3258147858}}, 0.1]}}, AspectRatio->Automatic, Axes->Automatic, AxesLabel->{ FormBox["xl", TraditionalForm], FormBox["yl", TraditionalForm], FormBox["zl", TraditionalForm]}, Boxed->True, SphericalRegion->True]], "Output", CellChangeTimes->{ 3.5764211940855923`*^9, 3.576422740282308*^9, 3.5764229260942345`*^9, 3.5764231387850075`*^9, 3.5764238282438188`*^9, 3.5764239979097166`*^9, 3.576424058625024*^9, 3.5764240909794807`*^9, 3.576424679942915*^9, 3.576425061535185*^9, 3.5764253676233225`*^9, 3.5764254520506706`*^9, 3.5764254892411366`*^9, {3.5764267248381066`*^9, 3.5764267516701536`*^9}, 3.57642692043125*^9, 3.5764269656713295`*^9, 3.5764270019881935`*^9, 3.5764282692096195`*^9, 3.576466464847408*^9, 3.5764666519541364`*^9, 3.576467406761462*^9, 3.5764674949172173`*^9, 3.5764682171204853`*^9, { 3.576468607464371*^9, 3.5764686354820204`*^9}, 3.5764687724034605`*^9},ImageCache->GraphicsData["CompressedBitmap", "\<\ eJztfXdcFUff7/dVrDHlSWISe0PsUUEFRGyo2EWkKKCoSBWwKwgK9gaIiAXs JYoNe0uixhRFIJZYYg9qNDFqEnuHO7M7s8zZM2fB571/3D/u+Yhw9pz99Tpt ew0ZGxIYMWRsaMCQmq6jh4wMCQ0YU7PLiNHkUsn/Af4nhPwE1wT9uwDg/xWQ fwWh9D965f/xv0sof5fEy5cvcePGDeXdMOFzlML9+/exevVqJCYmIj4+Hjk5 Ofwrb5Rf5ZS76WX6cVRUFL7//ns8e/ZMeT9r1izl7wD1lpfKr9LKLRyycEtJ Rs/27duRmpqq3M3ufC7cKSK7ffs2vbOU8rGVcufly5eVjy9cuDBUvfmJhZsZ 2rKMV/qWfvzo0SON8CEqhEfsKxTCnj17FAiUQor+PfYZwad8Rt/R3xQcu/0f YwLeZx+LECgR9GsEw2AVyAOdSkRZf6R8VsYEAv25fv26xoq/CuYvC7TQW8nX PmY6oFgoh/QdtxMKmd5C3w1Sof0hQKMQdIRVZHdykYrQOIeUNgbttiBmThsX 8xcSUNxg6Hf5tYEqqJvGIq/C7gwKCtKExaEx41He+anQ8nT6p+5Af1PCqgu3 UV5EUKIpMVDXjAmrKYFmxa7Rr2zevFl556tCu2JgFHXYbVSC9HMRFBc+5ZOB umhsGHUF56QupuI1Z9NHhXbemM36EmilBTOjX6PvBqjQzhr4XyNBOtw6S+vY pIQxUKeNCWvC7hQ9qYzEzPqr0E4KhPE4yeXfTAKqrMTGvFVQOcaE2RpAo2ym p6crWBm0LONQ21Li5uUkZualQjtmHH7tJb5ZXsKppwrtB2NOWxtAEy2NQTtq YBttJW7OQYlm5qGCOmxMWHuJb4qE8esM2rcGvukiAfWexMz6qaAOGvtmZ4mn VxDY5PJ3V6HtMw7aXSW+WUFgk1sag7ZHQhuXP/ladwm09yWc9lWh7TRWQS+J s38gsTQ3Fdp2SdzmtLlJHOoDgU1uZgzUVmPC3CXQPpRYWh8V2mYD2/A0ACWa GQO10dg2vAVP57L+iF3j5QF911uFtt6YTR+Jb/5HYJPrRNUT1gry19vGQANQ opkxUKuMCRss8XQOTTSzniq0FZK4zRN6gMQ3PxaucRvroYJKNyYs0ACaaGYM 2lIDwwiRuPknEhtTXQ6LjA0jTOKYnwiEseqTQ0sxZjNCAu1TCZvdVGjJBkF7 pMTHKwps8mtqnEKiMWGjJd5UUccmJYxBm6eTv5jQx0lAfSaxMVcV1GxjwiZI oH0uMbMuKrQZAjSJcUyUeNPnEvkzaNMs0MaCdqwE2heCWnh5oCYexBtzGmcA TSxEGbTJBrYxTeLm+s6AstlJBRVjTNgMiW9WkjiUmq0RbeCbsw1AiWbGQI03 9s25gqdzb6ossbSOKrQxOmg64hIlvskbIPpVbmkdVGijDIJ2sgEoMWgzUJHG 8k+ReHpViZmphRfCdYYhBu1FEm+qJvGmdiqoUGPClhhAE82MQQs2MIx0CSje Moo2ppaqbHDFomEsl7hSdeEaNzMGbYgxm6sk0Gqwa2Jt4KxC8zdwzLUSUDUF Nrl626ig/IwJ+0ri5jUEDNzMGDQfgTB90M6QOCYnTHQlJxWUtzFhmyXQaknM TO1hWCdgMWhvk3hTLZ0gKRYGzd04aG+XQKstsTRHFVofY053GUATLY1B62Vg G3slbs4HJ8QRKgcVVHdjwvZLHMpaYmlqU8ryutw3vzYAJZoZA9XZ2De/lUDj oyaipbVSoXUUoEm6sCMSh7KRWJraybMQabELO2oATbQ0Bs3ZWAU/SqDVo/+X oN9gMJwk0ZpTlCXxb5EcXnu2UEE5GJOTLXHKehLm7FRorQws4mcJKD5WJRqX OhrDIFq0iFMSH6qvY5NiYdCaGbP5iwRaA4l9NVehfSnIX28R5wVQnKWGEuNS KWJDbBYJ+1Xi3w0FNrkbMWgNJNGap/HLEh8SB/h4RdBUBWVjTNhVA2hi4cmg qc5qhczMTBHKbxIojSXmpQpcCyB3795F48aN8dVXX+GGxGH4SKMYmpuIIKxw 6tQpLF26FJMmTcLIkSPzDKCI5mQCpbQCxdXVFfv27cOuXbsUgsjXrgt3cj/8 UmJOjUVoZbBy5UqcO3dOc1tKPpcAB0nBce/hIMVCs5GppESQ4lwDB3tN4pRf CtRz+9KBpSqkSlDfmYO9KgHbVGJrDU3BqvN8BUxF6rXDhw9rYK9I3LSZgIoL QXUDLRE+fPgQAQEBTGfmYC8bgBWtUAeWKp8KQlWeOdhLEt9tLrHM+uZgqR3R d2UlYC8agBVN1QBsOQlYHmlEV+QD42LBWk8EW1ozsBcvXuDo0aPw8vKiE54y eVyQYGjOdM2jDDVvgs0ESSlFypGRkZqrPXnyRMrDeQkGfazmaYnG6xL0WwyX 0mopJsinXigrlDWKrYIE2zlJzFD9pLwUG8tcyjcYhQw3bzNE+y8hufa+hIqz EirqM5vUU0H1z6mwktynxnx1DMeqUBSlTYigP9T3CcCPDOgR6w9rA3pYFaV5 kBgzbUTxmFPBTPo/Eip4QjdvJoypeE9yn5q71O65BKWBi050KRkRZyTAquuI ENMqJ+KDIojQWQUPwGKs/1hCzmkJ2CrFIIezJoZHRk41TSYyIj6RECGr274o BhF8wFOMeowI3jqJSelTCeqTEtQVmWlZQM3Hv8z7Dg2rqImKEqw/Swj/2Bhr leJh5SH3MwlWPgNzeOP3GnXREko+NKZEHP/gQYJRUotFbipx+mKxmQ+M8jJH G8pRaVbNhL94DE+N/ArHvBNxP3YKJkqYr2BMJReKecjRWn7RVStZIrEYEbg0 43p4z+O4lEFqzzO5eHrnerSE6HLGRPP2VfRGA6L1Q5SFI1FW+rioUFyGfTZ3 Sg727zqLV9nbUXDztEgon5wubUDos8L1BAaEik5fRUKos4RQ8pIJmC83ykjd g9XRiXi5eToKTm3ldJsvUbFIN+9GRHc3oJtHVrpai9Pdpvh087oybtgs/LN+ Lt7unc4crpwJ0ZaWdPGiW3ROHbVifKsmodbp3akN6x6LvOVJKFgfxKhVxUk9 SUchLzHNB3Q0AkUM1SUEKuNZhdmihBgCpo1KxYnk+SjYPN7iCD79ff/+/Rbv RkkNCSVduZUtPYht8Ul4syUeBdkbRjOFWVIS/ZS7AadCVC6jgo+BsipJeVdL oII3Va6MirNZF5AYORdPNs5GwdldI4ztmlcfoj9yYsQIWMeUGDGYiIONlBhK KFfYDwvSced4rvKOjxuN9pyKP1Yn4O0KPzZTYJE6XsaJXtdCQrEJdYXtOKWE /C0j8H0ttumyiGJHpVn0uJKVg9nWjjhYpxWuNHHAJf9AjY15E5bj7CJiY5tG FjVLUb4INvgcsY4NGlB4MiSarmOJDRKe9cUsf19YYJYhhpGLjJR0uFV1xNRq nXGhVS+86tAJd9s5M6assGnVIRycNR/5W2Lx4sjKQGO+eAchhpkWEl51xiMG yroSpnh7ZJ4+39eucWZifSPgZt0JbjYe6PdlIPrVH4L45v7I7jQUz9x88G9f F425jJSdWDY+AS82zUDB6cyhxsx9JDDHA0MLCcM65sS4aiNhTu0JPjFhTmUm jTATplx3q+sG98ZD4Wk/EgO6TsIgn5kIGD4PwQETMcreHxs7B2On9xjkDfLD o9jhGp6YwTPx97p5yN8/k80BWeSOV9Ni2JOFQh13ItXKR1bMxPhYAXupQw0f 4Pr5POV9RspyoqZ25Kcn3Bv6w6NFpHJ9oNd0DA2Zh6AJiUhalYG9PxzDpZvX SjD/279yK+aMX4HtvmNxZ6AXHkwI1SwmxDUa19JJtvkqVI37JQVrF17lmPa3 r/4Ga1xicHbQJDy6dL2dsXw+E2RhEhpKSiShlUfj07Gk42Rc9IvB06vXagkw eHnE5MnTiDiYpDJW1sR3+W8+HqXVYuUR02WN8pGH7XD07xCl/D0kcC4CxyYq f+/5/jgu38wry2gL7jwRXw8chbu+bni4Np2PXG7b8B1+SiJRbMsEvLqWW07C nYxjXrmO7L4TP8WdRP7e7/H80qk2glD55JIg1EpMrXwxo8ihkVwDO2/BjvFn 8GrfKTy8ekU/8yaRq5ifbCQxkr5Ek1UwlWCEDBuViMTlm7Hn6HFV53zl+Nnc qxjTMxY/DorE/QHd8eqXXIaYBJfFB7BpMk3+U1CQk/GugkyYeRP7t5LuNO8W 3l467GgsyKrsLlECYMWZVaH/WWHGiEPYPGUXXh7ajhdPHsl6m9qWJVdPJzn+ m6KlL2qRvPi7cvMlTt1+jHuPXrBla0Rep64jrm8Mcv3D8MCrE16czmXoaJly DrPD5uDxBlKmnNv9rvLatnQ/vhtDRL12At4cX9OKfUgtSyIvlTnT2lnvYvw3 pyRj4W5sDY7Dm1UTtWFPseYoUm4lTcBy4xKnM7g/nDt9HfM8YnCOlBf3+rbD 49xcraoa2Tcet1clomCVvxbKRIEUmJS+VtiqCCaeCWatnbFguPWKBsENqURx pMFLF500xBRvLaGa49CNwwnCqcTumhKejrT+0bjiPxiP4yK4WOaMS8fpVFp9 jWY0ltKLRXlfnotlyT4cYWJ5m7W2mbFYbASSub6LLRbziXhNLGJxUFcDZlUY fKwsiWHG6BXY4DMeNwb54mHMcD5ekrHiW+ydQeu1SXjz4+oyEpg8FGwhEjg8 mkhgDZXAusbMt/mKB4kUtElLIbFrw5XmcVouDbFUMpGGKt0HDx4oEnny5Ik4 U2TqIVak2F6JnX60CPDE/XGhvEI+m3UJi8ck4PmmmSg4s/1zzurifTiksBqF /BPrGxSD1cYCq1zjHxiwJdZIErboaD8FT9hqqmPr5MmTbIyylEJ/qGsMviWJ +S/fPvh7TbpWak3wm4H7a+eh4OBscMY2E8a+HcUYy/7KphiMcfSiVRoxJm40 YIzxZo7qifYidArD1oirn69hXK9Y/DQoAg8GdFPSJPeAwE7jcTmN+O2GMI2r TYSrbxhXBdlf1THgis832L4jV2Lg13ElBm47I65IMpviHouT/qF44OmC5ySZ VWefbVl3BEcTaBUVjcne/XD22DE2fEu4W7QPX4+k3EWTwmBDzWJwxzd9yBbP i9zxmU4xeteyzF0LA+42Lf8GSZ4TccF/GP5ya4t/c3LZIFYZ5B4/BttK1dHX uiFG2dVHeJPqGFivKi6cOMaGxkkgWrQXB0cwLnM3VBO4pIMU4kojzqWDxJWM uDSffdG4FNNNS4tcWmFqRDqW94/CVX9/PJ4coTRBSihTy4oKCPbyRPuateBe vxkmtGmGmNZ1Ma55DUQ2roSbi9JwlXRp58jPCfJzLSv3Q859qsp9vsL9xso6 7unckJ57p3fkXlxhasB9KwPuZ45dgQySQ24O8sHDiWF8fkGM5LzNpt3ol59V h32luuhdvzEiGltjhnNdJLg2wtzONngb54830X54NdYbzyP74WlIHwbpI9zq 2RFXOrfXMsbu1g54vH45/lm9DPeWpePOkjTcSE3DZYLjDPlJGDgVByI14X0u ER5fksSFx6uAy2xoif5UKkKg23QCNV/LpwlUTNP2BgJNiFqJ3X5j8MdAD/w1 NuRTlte5QNW2nja+HeFm443GFa1hX7cFejSoh8XNmmBap3qY6WWPaR62+Gdn Eh7tSMDT7XPxYttsvNoyE282TVdg5a+PQ/7aSSrcZRNQsHSs+ndyBAoSwlAw Kwj50wLwdhJRSpQvXo72wvoe/thPhbo6Gs93zGR+ajpdqZcqnyC/QugeX6cl vqrjgKM29rjgF6hJV0wPRtIVQ5dOuqK9OUik+zkPuCeuILxrDA4NHIl7vr3x +myuOnuolkp1iWyXsUEFd7g3DYF3x2gM9p2J7p180bJZCwy2tsOPzexwYXBz DO7YAFMnj8LXWT/i2MnjOPVLFi6cO4GrF7Jx42K2AvGvy9lYnjZH+fvIlgU4 kZmi/H155wLc2LUAd3Ym496u+Sa6Wj88GvsiVDk/2BzDpjeN5fyZFnYsjVaU xigi/7m1O2J/nba416oDfndsjxcnc2Wba83VEK2pQXQGAzU4GqmBZPOo3rE4 7h+OB/274tWZXDbR96ESJtys2yiw+jYeBi/n8RjkNR0hkYkYNTUJX/+UhWu/ 5yEtJRVBRBs5dnb4yq0poiMHas29rJkpxaR48PgP+Ilo6yTRVsrkNOyNiFMk XfBzBmPbWNKVJbxa7ipLY0xtF0TV7IUf2/jgRd/+eNirJx6uXf2uUhe3cDGp 8ykWcRTfyUjqpNqY5h6D0/4heOBBqo1TuWwYojwbKqTjnt3g1tAfno5j4Nd3 qsLRyLj5OPjDCSL1G7xSDyOCP9OKlDa707RmQNqLWZg7W7gHe8Lj8Hb1RCL3 Te9JxK5fk1LtHcU+ulZXxDf3w54eobjvH4x/+3vjxS9neMwRy5v3DcQuqkcn drEMamNR7KTAJv3UAq+J+NU/AHf7OJdlBPLBWTfrznCr5wuPliPg2zOOzx98 e6JwXtyK/U+D/0gi+V9bE8nvTftvBT+cCf7kprLFEHxNCZYCk5aVRveziPiy P1J6RSBn6HBciYvT/EQssWSS5mOvokZqipJW517oiCbrgCwL+2NMG7EMKwdE YX/v3hjZoCY6VKuCCZ4eSvVsnj+90M82HANcYzF08ByET5iPxeu34Nusn/jI B1VSFJH41XZE4vvTCnvhwvnBsoJod2ui3VzKgmjFtTx1JJqSaU9DkbIDQ/pG YueiOLw8mvSuEha/ZyJhtdyj1NHiqK1F8X6ASWGz0K5aHfhVr4GQWlUx0KYa PK3rm6dMv1kIG5OE1DVb8c3x4xUEccYTcd50sUP+12mfaaLbjV2K6GKo6EoU Q3Q2EjEZDfeezfoFfgGzsGfzQjzbEcFFJ+6mNBKdWNhJRMcr5XYS0X2gWQpv CNLnJ8GxagP42DTCwLp14G3jVJjpvEmmG5GI0dMTWab77QNBeHOJ8P7oaofX 36Z/xiM3IXdnGCU3Bk9/WmNJYvU1MhTxKlLia8k83eOxYV0qHu6L0txWtmVb kUxIsSUjlrztJZLhVqGLX6rnlINd1WpwrlUfvRvaYkDT5hjS1hVBwxMwMj4J B3+kornBSiNVNguJbO71ssPDI0w2ZbByzibsCFVl8828YJP1Ws6MIjeX8Viy LBV3D8S/M/NiRapjXmSqg4T594yYL4P0pAVwrlcfPZs1Q4CLE8b1cUBYpyYY 6lxbW7VGmV5W1w7/uNuZ1eIUzbA+I7A9tNAy2jOUsaMWYdaChcg7MBP5JzdV kjAjMp2pY1qs/wyY7igwTScqKdPljZnOPZaFljb14WLbHMO6OSPW2wGDOjTA llUpJkyvt7HDI287pv3ylhYwEfVnqNSvjKFLdDj/dIAzatYCnN83DwUXdsma PCP+xUqM8c+X5oiVWCcd/5SowjlFNS6VQk7WCQQGBKKfaxsMJsa7YeVCbWlg P2LQW+vb4amvHSsNLa7VKqlF0l3IDGYcny7kOHUvwiYmIXv3fLy9csAyx1YI 8U7FxM7jsD1oFE4dz5PVQTqmxTqosyWmLY3uElV8PW8B8vdM0tYmehG29zS0 w/PBdsxLLLLNZ24yUnYpIfu1ju2UzRgSPheHMhfg6Xp/Gdt84d5gn3VoVnUS +ljHIKzlRPRsmIizOXmy0bAaltnvYon9EoU6J0wv+wYH5i7A2z2TNaZ9CdPf NCZMB9qhrDHT5QSmt2pMb+NBpr/fdGzPWIinu0ZqQ91ih11gUreUweKUo/jS eg3sq2+Dx5fbMaLjdvjY74Wn/RLpMJmOfTH9uQrs8/0DfG1uRtrX2DuHMh2v MU2b6e+b2uFZmJ22kNsC0zxXDPcMxiSXvtg9zA2Z0cM40+49YrFmdSr+2T/R ZOe1/rAo85q4HJYsOIOmdbJgb30MgxqsRmTbE4jufgxRXTbi0dpluJ9VOHMm JgYTQZQy2xtDF79ygVBhcBvhp3nQlV27ZyWbCCSQCOSELbGC+cHaXJYFgfCA EOTdD05fVMeAmjYY16wuhjephmk+/bgLuLUbiQVLUvHHgal4c+OUrOssrAd4 gbIk+TKa1r2G/tQTSQDa7TET4/3+QIzfSRRMD8PLcA/c7NFBkc6DrNwaRQmn NN90oQTIOXPmKHslyHuZfLQmePEB7JhB5TOFyaes0naeammHV5mLLS7tEjgp S0qtRDjUqI5OVawxuEFjxDo1xliHOghsWh07FiW246607jCmJKbg2oHZKDiz hbuNbAZTZ0RWTKfZx++hbZ1pCKeNMaEwc2gi/HzvYsKIHFxel4J/V83B69RY mfhMdr3zBMzkV1Fz11LMzOiLSpNOmtDQQydOuknEqGWw1APInE7C/p6pLLGU xskfjit95HkHOxyI9ODie88if+WVvqnpF5XQ9JOa6Fi1Dvzr1kZsKxvMalcP 0xxqYmlQP/yVlcv3jtLh/bGD4zB6ajJ+2ZuAjOAOmOztwQc5xXhi2LH+R8n3 CYTWP3vYYdXwRRgVdU/55BtSHO/csR37Vy4mAl6oCngRE3CEB271LBSwLPAz AfO5Bl1FwuMFXztOpdxLIuUKmpT3YevU+XizZ5rZcB1ldmgvD0wgXFxxJn3k vjSmnU/1TXXhejprJ/Ljihaf26JV5S8xjhq+HZFAj4aY1aslEno1xXovezwL 6o28ru0UTs+mpLVmqGlQ6FirHYLGJeLYzmRsHdkdgxtWx6xB/bRhiWLrgPQH BHtmPZqc7JlnvafKnzj8PiL/S2sF+c8YbiZ/vvDJ/KiBouQvJtfeOvmLu2Ey Fu7Fpvj5eL1nOgsg8qqQ3kMtKo5wlNeRNKEH01RVfK5QoI7JhBDRt1WWlbnV HwR3u0h4d45Bp1ae6FdHDYiPfVpgf7ADRrs7YZKnA3ZH++Pp8hl4u4DUflND FAHcdXPBbyPDlCmexlpgKsMCE3UQu6rVYf95Lfj4jcWBrSlYOcQZY5rXQrBt Da4ksT81LSPU0aAQOgBKEkZ+Wng5ppivSWu0Q1DMP6vm6hTTUVPMJ/9XFNNH UAxfv8wrfToqsmFyEl7vnoGH3y0vb5DUnvFDQNV2bjZh7XYXO7z9Jk3VcjWm nlCFJjfrvnBrFIB+9qMxoHscBvvPRsjoJIyYloAZYyYjldx+q5Md3kxth/Fe DhjQoRGmjR2C3NwcLFm4ED+uWYy8dQvwaOVsNTDPisCbMT7416cL7o6LwN20 dNwhIuKL9M3HaN7XzKVdlUZo/HEdtK7cEF1JERfs4oApPWwxt3MjzOtgjXTH +ri/PB1/EHi8uBeTZXmB7RmE7t87kyjx/eoKgkbp1/eukGnUU9XoOlWjvNwS d+FWf2eNukk0Wlh27sa62CS8Ihp9fkxdHmJZo6UF1hYQ1u6SMP7yUHoZFv/4 KlU3a0d1yW1dL/T9Mlih0cdtCoYOm4uwCUlYuGYLDh47jmu3rin3jCGgfiZ2 /zrSHimBTlhPjH39ytSSTDFnL17HD1nZ2LdzBw6uIlIjCeLv1fPwcmk88ueN wtuJg/FkaE9c6dwW/65OVySn7iKpqKDmZLkTsrytXeBf3wOhtoEY2noobKs1 h3OjVujl0BpDuzghqrcTprs7YLa7LfKTxiJ/0lA8C+yFq13aEk2l456gFXOl q13eRtLFP/VvqQZXvvyV6Ye/SrC76NDH9szt2EOs4SKzhleLJqnWEOmJK24D cTtlPS8zxTBfPEMQC9m+7Jq4c6twNHIX1sQk4uXumXh1Yp2VsSFw81mRtADD SAFxtFMjvPgt14rFQ9PE1xVuNj7o22w4vDpEw89zOl/ptmj9Jnx9/CdGlQpx lm8QdpGg/Kh/C7zdNKY8S8wHSJGzacs2bF22GGfWpeLPNUl4vmw63s4fj/y4 ILwI64s7JEn9GhmKa6lp6lhsZc2nFQus2x3DGvsh0jEC43pORKz/DEwZmYQZ U1Lg2t4Vjs1s0a1Vc3g4NIFfpxYI6W2PmGF9cGrdIvy5lqBbPh35yRRdIJ6H 9MGNbmqm/jsrl1e5Ys3HRURlEUCs4ifSGr2a2Ja3jVxdhdYhi0plCONZyNQZ yK2071Fw+KjWfIiGyKyisNTkwMXxu65aBitcsFZSYhwqER/hyvnfEOcSjR89 Y/DvhvXKBP1ev9HY3HswTg8fiKwJ4ThARG3BWtSI/zECvUh3U+lz9P+kIoKr fopJXuqpOmaJuoE/3FuMgLdrLAb5zkTQiERExifhwPdZuHrrJt97sYnclkLH n0nqfxvfFi/unGOlWAVczruFkz/nYMXiVBwnyeHm2mQ8XjELbxZOJEXlcLwa 1R8PvDrj9phwyk1VQVmUmr7WDjRUqIZaBqM6jkG0ZzziQuZiWvQCzJy9EOu2 bMX3OVlMRoQ5v0FwatYIrg6N0bttI8SOUI9C3vHNDzj9cy7WpS1CztpFuLNu Pp6uINVFCq0ugkn/0E+xXLoA4uGJXF4DmW/tU0fLJhOGf2tvxxzedGeKsJ28 cNVkRup6hLcehyOu43F38doSjFPqULOnHMC+Q3/hr1v3DUypisQ6u8mDjgrc 1qwQFm2Kvt+0NBcbhh7B83XfIX/ZNLydNAhvo32VxSIvIvvhWWgfPB7aA/8M 7Ir7Xp3wnZMjNtRuhiPN7PFLOyccb+OIg472OBEeir9pVF6Wpi4aWZiGK2wB Tjb5meDZH041qqHzp5VJmKqCkLo14WHTnBhZB1ZyDCPuPgYDesZhyJA5CBmb hJRVW9iAdB4/TpxaxWhamzUnLhxuj1c5G1gSeB/nrubhWHY2vt69A4dWL8YV 0h4qQXzxZOTPGYm3Ewbh0aDuONehDR6sUBNIRaHioEsUPKydSXTqpkSnCIdw jOsxURGhEp3iUzAjMVlJgHm3b2qrqbOzT2BpeiqjUDX6i3k3lYpoOTX6tYtx a10ynqzkRh+GVyM88VdfF1wZEYqrqWllLZpaGZIr7bCG/Dwa0AL5v58xCVd8 74V4jf8uye6nrKmFHXHpBhGI6nEEVxeRNHTkay0iXfj9pWYhsgj639qfLJB+ YmKD29fcwZLFf+L+xbt4krsfj7V1NXPwaisR2GbinxlTkf9VPBa0bYsFNW1x uE4LnK5ri7NOTgzxx+qamsn+iu2+HtsfL0Yw2w3oif41ayO0fh30r2uN/vU6 kEIoBJ5tJsDXfSoCguZhePR8pK7bTBLgMT4cNpPkvh2kM3voRXqAjaM/Y2ql zdm2bZnYuXwxzq1NxV9rEvE8bSqrT4aRtpEmo/ZKMrqQkvYBu43Hskm+w0ks 64hB9dwR2nwYRnWgwSwOccFqMJsxSwlmSqz7lN17/voNZBE1pKYsxPe8tl41 Wy1UZ4Xj9WgSPj074dbo4bi5OK2UxJJ4YUHJoEODR0gp/WaMk2UVldZrk+WF YDUKl0bfhkPg5TAaA7vPR0T0HWT9dBcP//yzogQ5Mx0+AySO5Hc3Mh355mYC gVuO+lX6qoEZ86YjZc48rEuaj4s75uPmd6tx51I27l3ORlRNRyyv0Q6/NmmP 5w5O+Ne+Oe6MGKjcSVcJ0dff2iqheXieOQcvieW9VixvGvxa2iKybQv4kLI4 qE0LBA5PQATpvPYfPYFvsn5k/lJKEVEybX87kBw42Rmv7pxlAyQfY+e3P+DM yVysXapmnttr5+PJ8pl4kxJNMk+o0m3QcJA3KowqUbkrO+s3DPZZi5a1p6Nt rekY1X+t2B/Roq6fdRv4kKIuoLGvGq26RyN2EK2lEpVoNV2IVlW4LV7Jw48n spGYMF+JklfpINpq0vgsmYyCOZF4M85X6dX+GKukY24k4kh3YaGqTuJfdiJt 1bcrSsr1puroPWo+LA71QF9SVtDXQBLtQwLmYkx0MpZ9tQ37TvyGrKuPpQMb OkMS2yp+HLaIWcjA1toHNPLQDo5aIH3xLJiRkoGFo+bh2c65KDijnkp9IHkZ 4m16YlUTL/ze1RcFnl7kpxveDOmM50HdlPt/Hx2KtUMGYteSVJw8k4Xz507g ClulNtC1M7rZNYePsz3CuqozjaNcGyHAuc6HQjaj44XZzUg2C2uF19lfsSm/ yrhA/P4E8fuU5AU4Svz+OvH7hyvpWBBpSWYRPY2lenLFPFtftKs+BV3qLEHP hkvh1nAa+hKyvUhiHVSvL0KaB2BUexJnPGicmYNpUVqcoUVTHWYWR46fwJ6d 23GAd3Vr5uHV0jjkzyWJM4omzm64Nz4Sl1JSqEZ4ST2JxMl0wsE//ezoIQMl dfmosA11At804dlyBIkbkxE8dA5GT0hWLle2rG9lR9MnDJ24WfjYsWPddOjE iMXXK/HPRAMWgkxGynokj5iLp1TzZ7eplz/DxPp9ke4UgF+8huPpkGC8CvDF y82zkL8uDgVp41Sok8m1sB64594e2W3tlZriPGE2LSkFjg0boIttcwR0dUas pyNGdG9EZ1v5GuQZRGx04O9fDyK2DaOqa37CUyRVx64d27GX9N+/EnXcX52A F2lTsN5vFrwbbsCwZtvQp8k2DGo2HeH2wxXPjxk4XfH86TrPb8BUTJc90P5l F4F5njRuf6yci2MzxiEuLBhRwUGYFDQMe937KHz8mZVbipGSffwYOlapg68b EiONcDSpM6h+VZ9urf6u56dtFw0ePBujx89HzJwkHMk6QUj5TZvPFkdRqjGI pc0qGPabt9XiFmtiCF01oVmZ/iUoXUxEgtLPZp1EYsRcPNkxDwXntquXK+JK 9nnMcRyIfa6D8ZO7P/KOHsahA9vx7cZFuLRN3QL5fMscvCW1SMHyCShIHo6C KYPwOrI3/vbuiHPtHZHkYIuZLR0Q5u6IzKSR4K5OvSCJOMr1dqSgiG2D1yQ7 8GVYuvxnxfS15+gxnCNJY2P6IoT02g8Pp/Po3+YqvNtfxeDuF4gnJ4uerB5Q 97nJZoVRY8YiPDwcCdPikLMqBX+tTcT9xfFII3nmaUyANp7yL6nc6XQcHT1t Xr0KWlf6Al0/+RT9Pv0EG/o00fyYDxe41fOBh204fLvEatdiZs9XzDbvdp62 L0YcJGF6lmV3TcmmgySextrkbfJcujNxO9XkDjaGW7hj+9e8G8rfe/Zsw971 qTi3NRV3M5PxbOs8vN0wFQUrSAJOiUDBtMF4M7ovHvqRmtzFCY/XpSMvNQ1X s3ILd5SSvyOJCrOa2uFlSCu8PbGeBSkzbvg02eL5F/Bl/cto6/AH+va4i/79 7mJY/7/g0/caMtadF/d10VJbtidIldcXpIT4EWdI8/oVaV43zpuK+JHheLB0 Ct4uGI/8+EC8CHXDD50d0KlKZXT7rAq8K1VGaO1KxDUd1KWQNgPQr/lw+HSK IQ3yTIwcMx8TZyXjsKKyG7INcdwz9ZsjzZMtP3RKHNkopvZmhczGo+0JKDi/ Uy0shCGQ/+Dspev4MYck1XO52LImFae2krY9cwGebE3Am43TUbAqBgWpI0lG JOX/OA88GdwZea5tcCkyBLdJIXWb6IyfqZBDjDvIywNtqlWB82efYTQJajRv PUzoohqsMH1fGoMH3kHLVnfRvssfGDToLkIG3UDMxD8b6lTG1WV+wNpnZmnp Ut4tLF2ymAToyThBmsLbpCl8umImzowPwACb+ghpYAOP2nXgX98G/ZqFwadj NIb5zMSIUUmInklUdYyq6qaNoCreoDFV6YciVGcw15dHYWFW0kQ5JuNP04Nm 42FmAl3LwzT8OQ5nZeHi2RysXZGCE5sX4WZmCh5uS8TrjJnIX0NakiWjUTA3 EPnR3iS6dMWdHm1JVRuKu0vTsD95IVrWqIJONaqiFzHTwV98hsHVPsWUltXw 5vYvJpvyBGfi5aZ/4D00dboFF7c7GBHwo/6oO/0iJfFoORGiar8faIvG9h36 Dtnk/iWpCxHUrQeJay0R0roFvJvaYhj5HTF0AqKnE+n/pKRTvs9SPGqCSb+U BNvHkmv86SGiR/BOfMqwWfg3MxEFv+5mMbGislhqxYRE7FgyB2e/WU8oTVLg Xc9ciH8yk4TCZCwKEkJQEOtDwkF39K1STVlQOoTIe6x1VUy3q4Jhjb7Ar9nH LMlam4zY+B2SFtHlDdPw+tgao21+PFBZPgnkPZPTKdOTkmFXswHaNW4OT3sH BHd0RETXlgh1aYJA59raxJD5MfFCoudGLbaTyuRKyUIDLmSODWVYsUCe6hOE Od7jcT85FrfdO+KfEzlM1p9i8tBZ+Hs96QQWemledOXmTZw6nWNSC9zPnI8X m2fj7fp4+DRpguF2jRFl3xDRTetgZrvaCG1VG7vSkgrjijYXteQAxs9YgIv7 ScF5Yae4xZCvMNVL9kOJZFUWy5sctmVXvS5a2TREN9tWiOzqiPCuzeHfoQEy V6eIB/TyApsJlU/iiw1VX4u6LBQqyxRcqPHWLsho5o6HPT3wuLsr6VWWa0k9 tFssrqcnsXijKeg9XPjtBrJPZmP37m1YNjsW7q3sEdzeARHOLTDOvjGmONpg VBtr7F6RzHb90uLtPIJGJeD4rmS8OjSnmk6AsoAsc0I+QcKn4nJJHvzSugHa t2iFwO6tMbhbM2xenao/k/i/EBwPymJq5Y1SXL0+2NBmKP7xCcS/Xp54uH4t k1op7Nh4FMfmz1fuzs87qfzm09wtqlmjXYMGcHO0g2erVght0wJR7b/EN04O OOMfxA8w7t9/mrIy+/n2cNZjWVz3ZGHyirdRfHltRspaTOg8DneTppB+6QDf By4WelVNxWM+7VVOj8TkNxcT35yxwHciVjr741jvAORNnMLHmOgyry1x9AyP qRCm78sp7Zc9EY0r8Uh3x2YY0LYlJrkMwe6Ovjjp1A6/DgnSdpC7uYzEqlXq 8ja+tlm/DVb0xC+0EMPlwiNbKskQUV3+d3KxMHRS0kQs2gDfz+dw7dR5liLU a/Q4sQTS1zzeMAdCMUOX4i1Eqy8bwoX4VPc2jdDXORBxLqOww2Ugfm7TAZcD gljcJQFq7WHMJt///cAMvM3Z8LEkQOm3btVlFkuFMSpiJMZ3Z4I4d0A73k60 fp0kxKqxGJLgazd47T3KYyru0FM31gbQL73PXStiGWJcRmOriz9ynF1wdVgQ O3VaXT0xMj4Z5/cl0Ez7oYUYQtXOeWzAbk2Kn4fQgBDcna/wJ7Jn+rQVbZEo ffETO588edJH48dKxyszFr7pb9745fiFHpuxeYzWRk4OT8f4jmOwiRj0Cecu uBYUrJ0KP5T0QT/sWIBX3yVC3PllKWE34cJIWYdI33DsiR0rciQWOIwjvgGd noREX+KpzLyoMW/51JPKDtCTyrZORv7xdZyZScPTMbrjWGxwCcDxtl1xPThE RaGIxPwADw+3ydi+cSGe7RwBcYeVJW9tpjG4HlE9xyJmeCgu7F3NGRQLDBMG C8sKytgAdk1ctMgZy1i4E+nKKWUzUfDLjo9YUIgNS0Nkx3FY2ykQP7XrgZzm LfFPVi7fL6iPeBq3usTB13gM6DEBactS8eDAJNz/7riVwLqlzWV2DBVlfaLr ePw2bzLS50wW9G6a0nT8iylNxj830djBM/FgXQJeLfFm03CE+eDFCOswHis7 BeOHdr1wyq4VnU3lK690od8y3xUwpNsaxCcsxK3vV+PFnd+UqwbVPj9XiPN8 j3hoztalvDySZfL/ku1g14m4mk48c2O4dqLv2ZPXENRhApZ1CsHR9m443bIV HmXnfq7jz5jnsrhy8QWmrriJE2evymy6tcBjTFeVx4Jz+/mqcK5a0QmrmPIo pp3+EpHwxiBzw3f4MZHwuDUa+TdOiWwObT8BSzqF4XAHd5wmFdvj7NzPismm zHb1buvMvpOR8pXC4/3kqQqPPERSG5cdAaNjlIIsDqN0PXSGchjYNBSc3PIJ Z/Tna/BvNwEpnYbj2w4eOG3viMc5uVwOFioY3vDo0pdhddqeqZ7yG6vjV2ic ZKfa6lim65dpyBJZFse9Ocv0PK85JFs8InXC611TPxVY9msbhaROETjY0Run HZ3whLGs25zJ4q+BN7powZdw1U3jqoROE1QAPIGJM846zkR5cs7M90uVxAh6 AtfKJBSsG6ad8E1PguvvHIW5nSKxr+MAnGrtjF/8gyoWI4O4CkxMKmRCv0CH vmsgoYoxwWOA2KwOMGBizrhlOKUk/rGsKiVM5FyFl9N4zCAVK69kLw4JKs4R Bt01JjaITPARB/MHUhgyIYuR5kyQnM9Pu9oah4Ks9Tz3TRmxDFN0lef7OiZk TtJLYGJy9wmEiSkiE+I5VOLDgLh23pEJRawlLQWxMhotmViinGg1C08zk3l1 FB+5DLGk8NwmFJ5FHAneV8fdA5U78VHg/Ohg/TOYzLizMuGOlGoyf/mY0aqP U4XllhUObPwB8UMycS/jGPIPb+EH4E0mdXWUyxhsJiVotnNnpQQVw7olX/LQ 87hA4ZGvohEHMjiPYnSvbMojTWMLFizgW9c5j+Zn7Re9C5wPEo4Z/zvO5N7F g9t3GLYKSr09hpWoWaxENai7vAUe43poPHIMoqvZFMVjSc0HxCpUjP7FZZCv Ljpy8bF2rTL7ZBIpVUd0Hot5XoEYGzAMI4cNw/6Va3gU99EY2igwtE98ZAd3 OxsJhTqGRKL+Nwypu8bKm3U3wUFhCPWOxLKuQWLp6SswEV/IhOxB77INyP8V E8UqdNV68gPD+R/6jYz0gwg2ry1F5cT31Pji7ZLoUbIzZhhfvHQTs5OPhK/C 43xKatGxOINvpZil0coxgFWOm+y7YvYXNthZ0xb767SgzZG3wMwUwszfKQoz 4oPlTc+PNWRGDIGcGXHPBz88jhOuakhtyvnkAXuVYTzS6mhQqyAEV3bA2mqt cd6mFe62dMZdEhIsEC8+U4YOnhXarmn8LgbxYphoyiRq1NzD4kwr31iwI2kV fKt1xtw6Trho2wb53TrjVkcXkZWpvcxYET2+GKyI3YaMFf0MqKwfkK0rsuBQ fMXtwflrMKBua2VnBF2T/HiIK2726KFsIy4cXChZWMhaKUuApvaK4vxW0PEm nmQmMlCpaH7FDrKBjl+Zw5QuPr98/bUf4XNXPbp/yg5XBnng2dlz2h5ZsSUz OskjI3UHZrgm4N68xXi2ewXf5yg+ta5W0QIQx/JkAjB6uCBxPAsHGVjWtbqy Yizdxke3rYx1wJ1fzmsbN4uX+unTIC4gKfg87u+4hofHvuVLYMV8zYtzMSTq eBchy3ivLSjfUpX0/rsKwAqxvkFYyjZ1FRxa3oN9aFTaXT37GBPm/YHjv9zF 21fPOb+ic3N+xUxowO8AAYTpeQbGzYkyFmjh5B9/wtQBek7DoBZ4e/O0EWNV BfQ8l/Pt02KaYBxUZKB4zhOGZ6WNs6U8Jw4Q88aH2uNEQvlZup86ytHC+miZ J8oeoFO9aCZouqAvcTRWxkQlgQlLaYOf/0wXna+ku4O7E5s6sqK7REuy523r H+dtRq08uYnMFWcaxoZxzjf0HKKnWgxtgde3TmOkEKP4UyGrFk2WLHCLZH0i sWX9oCufIqAWMIUeJ+ZghxcxTqN03iWeuiZG0i/ejaKPDGySlzB8ztSDULO+ rh3u9SbqPLpytE4e9KtVi6ZIFtvNz/wozhHH6lr0YHpMRWMio6CWYxk4cUSF u4P5A+MgOw5VRlE5idb0FNkKWpvFVjO/TQsbJzFvvkxVjImMIj7VLT4kwlfy 9dIWtCYWACYP6+ARjr20k+HO/4ZhjdyR2Wog/vZyRv4Pq8BJFsN4ZYlUdCSL TzP1lci8pAWSRUOTnaIv20vHa5vpYcuwqMtq3I3fiPzlMyZIDFJ2uICEch5L fJnCOeVG8aOxhDKjBxhMj/wJyybfwN9HbuPFhZ+jJHFadgCIAbU+gkx5WtSn xmYSikweH3Dl3FNMTLqDI6f+xKtXL/iT0kSL/bxossQ4421B1fQ3BStOLcnS 8EyJBXLJiIHlc5GE0iaBhf7QdEyyGF8tYMnw6Ke8qeOPk9WlWZkNTheI5LXC 55aJVKKayX4+OuZEz8KnyuRHhhD6egnCs2R5skd4KaTrTpCbLTExXnaJvslo lK0QEts/oTToKQmJ+kRWRkIlf9i92IjzMCwGOBOKLD4/Vk+FLKbw1l8sob8X KOMdNTdkMVAUQQVzxa4CFZYS1gcGVIhmbkDF+5qCZc+P7aQThYyI/0iI+EES M2XnTohEWIh5NARwcjpY0IyYoGRo+N5xsV/82DI5hac3yrbHty2GeXB3EEvc Y5IQyIkQjVm9V+NDjD+tBdSWbKKyAWrRJoqBWlSHvcQ19ah54Sia2XFJQJOd jGCAukUxtF5TgjpLEqfEh7HxqMBQc4GIY422zEct6Fo2cnlCouYPJd/TYRW9 7stiBOt6BqhFNb8j6kYSNetzf0MJyGwdajE6iR5mglqdKaForl69SvdM1dNh l7WyfBmBqMEcSbh5v3jYafahKIgQirOQmD9vVDTdXHZN7A84dtG7KpqKXXRs 8SHgljQueyAif4yzaGwVikYtepf+0d+ynGtvgFo0tgqS7xmgLs5jvluz+8QB 8pMCaq5uPgYsmgVDzcON6Njiw70t6bqtBDV/ULgYU3gtIPqDDrXoYhUlAtej 5kccijrkD0oXdV3u3VDr10vKImknA9SirsvplCBBLWZNo2WMXNd8VFisJM4I aHj+KPtuqIuz3rCHBPUvEl2XlUjnU1PUol/LzlrXh9PeEtRnBV1zDmWFrw61 +Qissa7dJII8L6DhVSyfBxf9mqHmCVUcWzB6BDbRtQf7klihnBco4RbGsYou bYK1nDY8QDHl5eUp8oqJiUGdOnU01XpL0F2QRBDZ6QQm6Mrg4sWLCuhq1aop iYN+9fr16woJsqUav+osiL6zKhoNlSXt3egaAr5kiruxDM1FSWQoqePQzFpK K2h27typqI2iYSiMMIjqMcAgbomeMmWKwgzxRhnkSxL/5pBFS1dBavttdSKS LSO5rBN+4YZFKWResosS4aYjWuAVJj1R2PSH+QaTgLiYh9JJiht4SbyIQxMF S68wjAzaFzqu2cILDwnAq8z5xUKMS4VBqyzhlAuGaotz1FsC/hqjhCudNYUM chWGXOSaZ10ea8Rsep1d40cfUIifCuow2TDFmadHyRIByOD9JgmbTL18xM58 FMJUEPxcQ9FCeCKgVSq/l5/lTYeD6HU+3kKju+jOVoWDM/L+VpRVbwPk4vpJ 9d6yZshpTKIewYZTKlpm3UonVGZRPdlXzdNgeY0AipQqlc5JcaRUwQxpJcEB TFbIi1KWpdvTjCQOn+pZGXeiCEpqs0f0S1VNnUxkrJxErLIJys4SCvioBa3A 6f2qayp8UKJKmbDMh61KUKpqCn4q7KgrpZevQoJ4YDi30n3sGsXDyXlPYIVX cKLmKTVUSJwiSg0lneBRG1Nt2RMVPX1RNXHsYjrk2M2rpvJaYi8Co7qwUWtL RfF3LibGchLexAFCdvKxOkDOVlKaWbCLJBNwZBQIBayqxhSZ6EICMnWcW2t5 RRvuaBFTBROV0Z8isKitnba7VBQeDxNi7JE98m8f44c/NscCJvU5aWySobSZ ebLNM84SBBmChfIB7jKCEGVxiCFVn93DhjWsNCHS3EEs0giZJdM3QKauWNce V0q/Sb9FT2bhmMSElsHMnGMqArraHWm7d6i8aMpkZYiTBMEGHdmiVQuxWh3u 1Z5HymVEJd1aAjVdEBCFoDdpgwCtxnhtlRkXEDU2R4uYypp0z9ykBSyyMK3m Um38Tics5SoPtXxwQ8zm6UzIFAuVhQVM9EdpbJUArzbt7PGVpUzkyFUsw5XI rrFHCJtZt0Hkk6VX1RDYuImVJmNWB3MCxDTPCbCU5g0IkD2IhRHgILdTrnsx +SUyRxDTvAwpc4RalpFyexVlzysgfno9fddQQsU8HcsUsyQHKEN1JQR9c88T rVl2pKkMZ1wRvmQQuPVTy/RHjTLs6XBmoue1iKhnvj1DLAjGCERRPavK+a+y S2NNWIy0thLnUD5AYQ6S0SIm6/JCWNDnGyFejlABt9M5AlWPgEysDGTISgva MAjO6q3aI4+45FnCblhMZCWKh0xdFqBVAaIsZdttxqhKoGopY1SzI0aFy+sY nqGpxGQ7YILYNbFwFAOXQSJQ7Z4N+JmJq4QEcC0DAkQR8patGDliqkpEF6Zn vUkyqLUtIi6tIabIhLAhSxPqEgA2zljKRLY8SMgwBQry5A8ykcThuSr0rjp5 0hf5VPY0mQGC7LiT6yOPhaCfpCLroPk2Hx4UJVjLIs4K0kfXGMT7FFPf0i1l 4MhFicoWpQ5gzPEdMhYi1mJDZGV1AjYw2EoSGniPa9blFR3uC4/LnmZIIX/i gQVrlj2IkFMlxvYSxaPqCzkRUw1J5AeHiRrjJmGZvnLaKYcGkRFV/xuC+Om2 otsQh5Q977I9uyb2RMVMETUNSSv0Jj5tyjVIQcoeI8srKbYqSHnH54PMh5qK JM/akLx+Ei/7woAo0ZbKM/3RVxHDRlprLaeC75WjVNC7DNxPtjRERpwsYfGq T0hYTfTu56XzM24QLJhz9GIt00KC/h3S1V4VsbfEe3hFZxlraZMus4hcdVDF 1F8nbZZNOBKxmLETpLhlyxblq5LMcUgFzJekctlRFvhkjpj8eNEh5gsrAZNB jlJHWrR1m6KwZMsSVEzvmWAqIiuxlT3wE6QkjNFwmxQDhew483oCPxQT37yp w6aur1B7DcUMazEzEGXIx8tks8J8HTM/vkMmSwtBXp1u14YwRNesITBP72TU WCbgPZPuowjEbAaWYTYNCgWs6a4qFz8fixVPa6kisEtfFgLheQGpyUosET1v fEXx81NWxexOf1gF8J8iNGAQmwtnJL4rDnF8C4Jo9XxiVN/AmRBnrh2jXCtr /pmH8w5UF8Zlo+E1WBjWTwnSq3zUlN8n1lIfGmhTCNyFB+fIZkIO6d2q8HQd mB4XWVvibzxayMjjIwA8Jum1bdAc1bVMaEfJR7V1PshGejhRYiXF96Prw5xI jCz12GhSaSyTj/qOvBLUS4W1TF0D5XLCVKLKKYSI29dpq6OL6toYisi/ftW6 JUNTx3cQpvz6wESRYoVXRGJpqvHWhFmELiop79URLQxnrHHVtGvXzhJcDHk3 NsIFrfMRRgJmWKF+SpnoR0fZZcuQL2kg2HeDtOjDGAyV3Pzmf/NRsIayQLig +26++lGI9l12Qfk09P//jf/5P/HLS88=\ \>"]], Cell[BoxData[ Graphics3DBox[{ {RGBColor[0.4, 0.2666666666666667, 0.13333333333333336`], Opacity[0.8], SphereBox[{-0.39676687095999996`, -1.6629966745199998`, 0.7892062693799999}, 0.255]}, {RGBColor[0.4, 0.2666666666666667, 0.13333333333333336`], Opacity[0.8], SphereBox[{-3.0252623534, -0.8296842003, 0.027758185214}, 0.255]}, {RGBColor[0.4, 0.2666666666666667, 0.13333333333333336`], Opacity[0.8], SphereBox[{-3.2669583087999996`, -0.25739957846, -2.8000070141999998`}, 0.255]}, {RGBColor[0.4, 0.2666666666666667, 0.13333333333333336`], Opacity[0.8], SphereBox[{-0.35848102219999994`, -3.208754748, 3.191747214}, 0.255]}, {RGBColor[0.4, 0.2666666666666667, 0.13333333333333336`], Opacity[0.8], SphereBox[{3.8648676152, 0.09607933901799999, 1.3578248227799998`}, 0.255]}, {RGBColor[0.4, 0.2666666666666667, 0.13333333333333336`], Opacity[0.8], SphereBox[{-5.893866421399999, 0.57818056696, -3.5237720722}, 0.255]}, {RGBColor[0.4, 0.2666666666666667, 0.13333333333333336`], Opacity[0.8], SphereBox[{5.600203001000001, 2.316804076, 1.52355379298}, 0.255]}, {RGBColor[ NCache[ Rational[1, 3], 0.3333333333333333], NCache[ Rational[1, 3], 0.3333333333333333], 1], Opacity[0.8], SphereBox[{1.3465242613, 0.50501037624, 0.9577131367999999}, 0.24]}, {RGBColor[ NCache[ Rational[1, 3], 0.3333333333333333], NCache[ Rational[1, 3], 0.3333333333333333], 1], Opacity[0.8], SphereBox[{5.616265672, 3.6819421383999997`, -0.87076684354}, 0.24]}, {RGBColor[1, NCache[ Rational[1, 3], 0.3333333333333333], NCache[ Rational[1, 3], 0.3333333333333333]], Opacity[0.8], SphereBox[{1.06809203246, -2.3014972954, 5.0043723932}, 0.178]}, {RGBColor[1, NCache[ Rational[1, 3], 0.3333333333333333], NCache[ Rational[1, 3], 0.3333333333333333]], Opacity[0.8], SphereBox[{-1.61078354514, -5.0950792412, 3.3625784444}, 0.178]}, {RGBColor[1, NCache[ Rational[1, 3], 0.3333333333333333], NCache[ Rational[1, 3], 0.3333333333333333]], Opacity[0.8], SphereBox[{-6.984427296, -0.7648477012399999, -5.3258147858}, 0.178]}, {RGBColor[1, NCache[ Rational[1, 3], 0.3333333333333333], NCache[ Rational[1, 3], 0.3333333333333333]], Opacity[0.8], SphereBox[{4.6528833571999995`, -2.018227368, 1.59906724394}, 0.178]}, {RGBColor[1, NCache[ Rational[1, 3], 0.3333333333333333], NCache[ Rational[1, 3], 0.3333333333333333]], Opacity[0.8], SphereBox[{-6.8846497632, 2.3502522262, -2.4842337996}, 0.178]}, {RGBColor[1, 1, 1], Opacity[0.8], SphereBox[{0.25222172921999997`, -2.8873123553999998`, -0.68319264078}, 0.12]}, {RGBColor[1, 1, 1], Opacity[0.8], SphereBox[{-4.282875006399999, -2.3581890754, 0.44072189772}, 0.12]}, {RGBColor[1, 1, 1], Opacity[0.8], SphereBox[{-3.4948592643999996`, 0.84185403574, 1.06408581334}, 0.12]}, {RGBColor[1, 1, 1], Opacity[0.8], SphereBox[{-1.9997080531999998`, 1.2582173653199997`, -3.2306755696}, 0.12]}, {RGBColor[1, 1, 1], Opacity[0.8], SphereBox[{-2.8083218086, -1.9288433281999997`, -3.8412460402}, 0.12]}, {RGBColor[1, 1, 1], Opacity[0.8], SphereBox[{0.6883326954999999, 2.2674822274, 0.77996550924}, 0.12]}, {RGBColor[1, 1, 1], Opacity[0.8], SphereBox[{4.9569402706, 3.553629743, 2.9880347512}, 0.12]}, {RGBColor[1, 1, 1], Opacity[0.8], SphereBox[{7.4715986588, 1.6746940784599997`, 1.940748602}, 0.12]}, {RGBColor[1, 1, 1], Opacity[0.8], SphereBox[{1.1602350722199999`, -3.157732146, 6.6010018906}, 0.12]}, {RGBColor[1, 1, 1], Opacity[0.8], SphereBox[{6.2088837456, 2.5314769496, -2.247829077}, 0.12]}, {RGBColor[1, 1, 1], Opacity[0.8], SphereBox[{6.7814707236, 5.1640542402, -0.74300246868}, 0.12]}, {RGBColor[1, 1, 1], Opacity[0.8], SphereBox[{-8.6617480936, -0.3492213648, -5.877992723}, 0.12]}, Text3DBox["1", {-0.9967668709599999, -1.6629966745199998`, 0.7892062693799999}, {1, 0}], Text3DBox["2", {-3.6252623534, -0.8296842003, 0.027758185214}, {1, 0}], Text3DBox[ "3", {-3.8669583087999997`, -0.25739957846, -2.8000070141999998`}, {1, 0}], Text3DBox["4", {-0.9584810222, -3.208754748, 3.191747214}, {1, 0}], Text3DBox["5", {3.2648676152, 0.09607933901799999, 1.3578248227799998`}, { 1, 0}], Text3DBox["6", {-6.493866421399999, 0.57818056696, -3.5237720722}, {1, 0}], Text3DBox["7", {5.000203001000001, 2.316804076, 1.52355379298}, {1, 0}], Text3DBox["8", {0.7465242612999999, 0.50501037624, 0.9577131367999999}, {1, 0}], Text3DBox["9", {5.016265672, 3.6819421383999997`, -0.87076684354}, { 1, 0}], Text3DBox["10", {0.4680920324600001, -2.3014972954, 5.0043723932}, {1, 0}], Text3DBox["11", {-2.21078354514, -5.0950792412, 3.3625784444}, {1, 0}], Text3DBox["12", {-7.584427295999999, -0.7648477012399999, -5.3258147858}, { 1, 0}], Text3DBox["13", {4.0528833572, -2.018227368, 1.59906724394}, {1, 0}], Text3DBox["14", {-7.484649763199999, 2.3502522262, -2.4842337996}, { 1, 0}], Text3DBox[ "15", {-0.34777827078, -2.8873123553999998`, -0.68319264078}, {1, 0}], Text3DBox["16", {-4.882875006399999, -2.3581890754, 0.44072189772}, {1, 0}], Text3DBox["17", {-4.094859264399999, 0.84185403574, 1.06408581334}, { 1, 0}], Text3DBox["18", {-2.5997080531999996`, 1.2582173653199997`, -3.2306755696}, {1, 0}], Text3DBox[ "19", {-3.4083218086000002`, -1.9288433281999997`, -3.8412460402}, {1, 0}], Text3DBox["20", {0.08833269549999989, 2.2674822274, 0.77996550924}, { 1, 0}], Text3DBox["21", {4.3569402706, 3.553629743, 2.9880347512}, {1, 0}], Text3DBox["22", {6.8715986588, 1.6746940784599997`, 1.940748602}, {1, 0}], Text3DBox["23", {0.5602350722199999, -3.157732146, 6.6010018906}, {1, 0}], Text3DBox["24", {5.6088837456, 2.5314769496, -2.247829077}, {1, 0}], Text3DBox["25", {6.1814707236, 5.1640542402, -0.74300246868}, {1, 0}], Text3DBox["26", {-9.2617480936, -0.3492213648, -5.877992723}, {1, 0}], {RGBColor[0.36, 0.24, 0.12], Opacity[0.5], SphereBox[{-1.7110146121800003`, -1.2463404374099998`, 0.4084822272969999}, 1.1731147700574702`]}, {RGBColor[0.36, 0.24, 0.12], Opacity[0.5], SphereBox[{-3.1461103311, -0.5435418893799999, -1.3861244144929998`}, 1.1903999660013267`]}, {RGBColor[0.36, 0.24, 0.12], Opacity[0.5], SphereBox[{-0.37762394658, -2.43587571126, 1.9904767416899998`}, 1.1713514357662658`]}, {RGBColor[0.36, 0.24, 0.12], Opacity[0.5], SphereBox[{-4.5804123651, 0.16039049425000002`, -3.1618895432}, 1.1678154622534402`]}, {RGBColor[0.36, 0.24, 0.12], Opacity[0.5], SphereBox[{4.732535308100001, 1.2064417075090001`, 1.44068930788}, 1.154401338039264]}, {RGBColor[0.36, 0.24, 0.12], Opacity[0.5], SphereBox[{0.48488034847613715`, -0.5665548050873621, 0.8744264648869542}, 1.1523208669284228`]}, {RGBColor[0.36, 0.24, 0.12], Opacity[0.5], SphereBox[{2.590103246587412, 0.30307681402993725`, 1.1552916296937856`}, 1.0500459005280012`]}, {RGBColor[0.36, 0.24, 0.12], Opacity[0.5], SphereBox[{5.608327523580346, 3.0072929127108017`, 0.31250289889179395`}, 1.136889347768369]}, {RGBColor[0.36, 0.24, 0.12], Opacity[0.5], SphereBox[{0.3774241577893598, -2.74074124054495, 4.12679940385812}, 1.021438211087881]}, {RGBColor[0.36, 0.24, 0.12], Opacity[0.5], SphereBox[{-1.0063073013400543`, -4.1845657483736325`, 3.2801195987262837`}, 0.917404475888308]}, {RGBColor[0.36, 0.24, 0.12], Opacity[0.5], SphereBox[{-6.456303649034037, -0.11446219457094864`, -4.453143308158791}, 1.0311402207326492`]}, {RGBColor[0.36, 0.24, 0.12], Opacity[0.5], SphereBox[{4.272522782399284, -0.9976907574682088, 1.4826240041820637`}, 0.916721034393009]}, {RGBColor[0.36, 0.24, 0.12], Opacity[0.5], SphereBox[{-6.406329289306381, 1.4947491913172963`, -2.986091691434597}, 0.9225526969662281]}, {Opacity[0.5], SphereBox[{ 0.06284410567403453, -2.5300518518244237`, -0.25354039967679287`}, 1.1747034695683691`]}, {Opacity[0.5], SphereBox[{-3.915914557696087, -1.9121846292179419`, 0.320222673353787}, 1.1747930182957855`]}, {Opacity[0.5], SphereBox[{-3.3578363139144924`, 0.35411850003597345`, 0.761697390526307}, 1.1748129292815404`]}, {Opacity[0.5], SphereBox[{-2.369478971707602, 0.8159755374484636, -3.1050108032297605`}, 1.174802308406599]}, {Opacity[0.5], SphereBox[{-2.942151317627678, -1.4411183078461027`, -3.537413903923731}, 1.1747422239831788`]}, {Opacity[0.5], SphereBox[{0.8813242926199072, 1.750699158293331, 0.8320837682842104}, 1.1104200304075746`]}, {Opacity[0.5], SphereBox[{5.144643950210216, 3.192724753855211, 2.5607000843741217`}, 1.1747369792010405`]}, {Opacity[0.5], SphereBox[{6.925543176407327, 1.8620556783410522`, 1.8190151183608703`}, 1.1747986314651016`]}, {Opacity[0.5], SphereBox[{1.133614194314382, -2.9103588937638336`, 6.139722568564386}, 1.1113711703585378`]}, {Opacity[0.5], SphereBox[{6.035118043298891, 2.8688129175876105`, -1.8440510000744883`}, 1.1104066274834141`]}, {Opacity[0.5], SphereBox[{6.43979441112262, 4.729450393498721, -0.7804671710585203}, 1.1103050501249019`]}, {Opacity[0.5], SphereBox[{-8.17717086731686, -0.4692956270225257, -5.718468764550323}, 1.1114253495650415`]}, {RGBColor[1., 0.75, 0.5], TubeBox[{{-3.0252623534, -0.8296842003, 0.027758185214}, {-0.39676687095999996`, -1.6629966745199998`, 0.7892062693799999}}, 0.1]}, {RGBColor[1., 0.75, 0.5], TubeBox[{{-3.2669583087999996`, -0.25739957846, -2.8000070141999998`}, \ {-3.0252623534, -0.8296842003, 0.027758185214}}, 0.1]}, {RGBColor[1., 0.75, 0.5], TubeBox[{{-0.35848102219999994`, -3.208754748, 3.191747214}, {-0.39676687095999996`, -1.6629966745199998`, 0.7892062693799999}}, 0.1]}, {RGBColor[1., 0.75, 0.5], TubeBox[{{-5.893866421399999, 0.57818056696, -3.5237720722}, {-3.2669583087999996`, -0.25739957846, \ -2.8000070141999998`}}, 0.1]}, {RGBColor[1., 0.75, 0.5], TubeBox[{{5.600203001000001, 2.316804076, 1.52355379298}, {3.8648676152, 0.09607933901799999, 1.3578248227799998`}}, 0.1]}, {RGBColor[1., 0.75, 0.5], TubeBox[{{1.3465242613, 0.50501037624, 0.9577131367999999}, {-0.39676687095999996`, -1.6629966745199998`, 0.7892062693799999}}, 0.1]}, {RGBColor[1., 0.75, 0.5], TubeBox[{{1.3465242613, 0.50501037624, 0.9577131367999999}, {3.8648676152, 0.09607933901799999, 1.3578248227799998`}}, 0.1]}, {RGBColor[1., 0.75, 0.5], TubeBox[{{5.616265672, 3.6819421383999997`, -0.87076684354}, { 5.600203001000001, 2.316804076, 1.52355379298}}, 0.1]}, {RGBColor[1., 0.75, 0.5], TubeBox[{{1.06809203246, -2.3014972954, 5.0043723932}, {-0.35848102219999994`, -3.208754748, 3.191747214}}, 0.1]}, {RGBColor[1., 0.75, 0.5], TubeBox[{{-1.61078354514, -5.0950792412, 3.3625784444}, {-0.35848102219999994`, -3.208754748, 3.191747214}}, 0.1]}, {RGBColor[1., 0.75, 0.5], TubeBox[{{-6.984427296, -0.7648477012399999, -5.3258147858}, \ {-5.893866421399999, 0.57818056696, -3.5237720722}}, 0.1]}, {RGBColor[1., 0.75, 0.5], TubeBox[{{4.6528833571999995`, -2.018227368, 1.59906724394}, { 3.8648676152, 0.09607933901799999, 1.3578248227799998`}}, 0.1]}, {RGBColor[1., 0.75, 0.5], TubeBox[{{-6.8846497632, 2.3502522262, -2.4842337996}, {-5.893866421399999, 0.57818056696, -3.5237720722}}, 0.1]}, {RGBColor[1., 0.75, 0.5], TubeBox[{{ 0.25222172921999997`, -2.8873123553999998`, -0.68319264078}, \ {-0.39676687095999996`, -1.6629966745199998`, 0.7892062693799999}}, 0.1]}, {RGBColor[1., 0.75, 0.5], TubeBox[{{-4.282875006399999, -2.3581890754, 0.44072189772}, {-3.0252623534, -0.8296842003, 0.027758185214}}, 0.1]}, {RGBColor[1., 0.75, 0.5], TubeBox[{{-3.4948592643999996`, 0.84185403574, 1.06408581334}, {-3.0252623534, -0.8296842003, 0.027758185214}}, 0.1]}, {RGBColor[1., 0.75, 0.5], TubeBox[{{-1.9997080531999998`, 1.2582173653199997`, -3.2306755696}, {-3.2669583087999996`, \ -0.25739957846, -2.8000070141999998`}}, 0.1]}, {RGBColor[1., 0.75, 0.5], TubeBox[{{-2.8083218086, -1.9288433281999997`, -3.8412460402}, \ {-3.2669583087999996`, -0.25739957846, -2.8000070141999998`}}, 0.1]}, {RGBColor[1., 0.75, 0.5], TubeBox[{{0.6883326954999999, 2.2674822274, 0.77996550924}, {1.3465242613, 0.50501037624, 0.9577131367999999}}, 0.1]}, {RGBColor[1., 0.75, 0.5], TubeBox[{{4.9569402706, 3.553629743, 2.9880347512}, {5.600203001000001, 2.316804076, 1.52355379298}}, 0.1]}, {RGBColor[1., 0.75, 0.5], TubeBox[{{7.4715986588, 1.6746940784599997`, 1.940748602}, { 5.600203001000001, 2.316804076, 1.52355379298}}, 0.1]}, {RGBColor[1., 0.75, 0.5], TubeBox[{{1.1602350722199999`, -3.157732146, 6.6010018906}, { 1.06809203246, -2.3014972954, 5.0043723932}}, 0.1]}, {RGBColor[1., 0.75, 0.5], TubeBox[{{6.2088837456, 2.5314769496, -2.247829077}, {5.616265672, 3.6819421383999997`, -0.87076684354}}, 0.1]}, {RGBColor[1., 0.75, 0.5], TubeBox[{{6.7814707236, 5.1640542402, -0.74300246868}, {5.616265672, 3.6819421383999997`, -0.87076684354}}, 0.1]}, {RGBColor[1., 0.75, 0.5], TubeBox[{{-8.6617480936, -0.3492213648, -5.877992723}, {-6.984427296, \ -0.7648477012399999, -5.3258147858}}, 0.1]}}, AspectRatio->Automatic, Axes->Automatic, AxesLabel->{ FormBox["xl", TraditionalForm], FormBox["yl", TraditionalForm], FormBox["zl", TraditionalForm]}, Boxed->True, SphericalRegion->True]], "Output", CellChangeTimes->{ 3.5764211940855923`*^9, 3.576422740282308*^9, 3.5764229260942345`*^9, 3.5764231387850075`*^9, 3.5764238282438188`*^9, 3.5764239979097166`*^9, 3.576424058625024*^9, 3.5764240909794807`*^9, 3.576424679942915*^9, 3.576425061535185*^9, 3.5764253676233225`*^9, 3.5764254520506706`*^9, 3.5764254892411366`*^9, {3.5764267248381066`*^9, 3.5764267516701536`*^9}, 3.57642692043125*^9, 3.5764269656713295`*^9, 3.5764270019881935`*^9, 3.5764282692096195`*^9, 3.576466464847408*^9, 3.5764666519541364`*^9, 3.576467406761462*^9, 3.5764674949172173`*^9, 3.5764682171204853`*^9, { 3.576468607464371*^9, 3.5764686354820204`*^9}, 3.576468772434661*^9},ImageCache->GraphicsData["CompressedBitmap", "\<\ eJzMvWV0XFeW/v38naTT0zzd00EnZo6dxE7MbMssJjMzM0hmZhDLFjNjiZkZ S8xkS7LMcZx096w173OhlLK6XJP59mplq8CqfQ/8Np1z6kZ3w+HtW/ZsOLxj 04aBCw9u2L99x6ZDAxfsO8i33vt/wP/bLshACM//B1D9+h/+9z87hF/CO/// ev7f4sMH+Mc//oGCggKcPXsW3t7eePPmDbZJf/JP8eFDPHnyBG5ubrh16xbS 09PR3d2NrVu3is/lP/1JfPjNW9qOHz8u/gk19hP/+T3xU8I/PXz4EFulT/4o t0N1EbVP8V3h394XPyJc9MqVK8L7W6RPvnrHNauqqoS/+lDtw4IyhUIh/Jn8 4efaG/w7uVU2NjZiy169etWraLOk4amGART+XOjbH+V/Cw0NRV1dnfhK+Buh A/LHH2tvwJ/lf1bXIIjwZ+zgJklJl1obhP4JM6Rqw1/l2RMUChdQaRC6Ig8k NkpqHmpvy3/JsycMrHAV4ZU4o/2Ev5B1tGuZx4/fpYDvqUZWaPIGSVWL9uZ8 qkHbe2raVJ1bL2lr0tKw/n0+JhEjvSfzIr5aJ6mq107cl1q0qQMka6vR3s1B GrR9IL+nYkl4tVbSVqUFx2Fq5qfCQKVKBkp8tUZSpdTesBFqnxS6o65Nffxl bWVaGB2tQdVv5PeEqwUEBIivVkuqirU37Cv5kyqjVdemGn+hq7K2Qi1gfC1/ TN38PtTQx1WSqjztYHyrQdtvNWC2UtKWo6Vh36mNjupjv+3TR+HvZFWZ72iY MPj8s4kaTOk/NDC2QtKWpn38p2jQ9jsNmC2XtKVoIXa6FlXq4y+rStTesJka TOn3GjAzl7TFayF2jhZV6ozJqmK0N2yeBm1/0NBNM0lblBYwFmqwcZUqdcZM JVUR2oldrMEw/9Cnm8L7srYwLQ1bpkHVHzUwZiKpCtZOrJ4GG/+TBsaMJW0B 2sffUINh/knD+Mva/LQQa6JB1Z81MGYkqfLW3jAzDWb+5z7jL3RV1uapgVjh UWjYCg2m9BcNfZTGAm7aG7ZKg7b/1ICZgaTNRQsYa7WoUmdMVvVAO7HrNZjS XzVgpi9pc9TSsE0aVP1NA2MSi7DTTuwWLdrUx1/WZq19/HdoMHOVNnXMdCVt 97QQu1uDYf6tz/gLXZVV3dbesL0atP2Xhm5K7gA3tRB7QION/12NMeGKwqul kqpr2ht2SINh/r1PN4WGydpUiZYmMI5qUPWRBsaWSKouaif2uAYb/1htFFWY Sb4Y59S0aWicpQZr+ljD+MvazmiH9pQGbZ9owGyRpO2k9ik4q0WbOmmyNgst 0F7QYE2fauimFA5xTHvDLmnQ9pkG0hZI2o5ogfaqFlXqmMmqDmpv2A0NZq7S pk6ajqRtvxZob2swzM81YDZfUrVHO7R3tWhTH39Z207t0FprsHRVTaaOmZQn Ybt2aG01mGf/PlMgdEPWtkX7FDho0PaFhp7OlbRt6sOGOrQPNFi6qlhUx0xK LuXC9Z0Nc9ZgTV/26abQMFnbWrWGqVZxVNC6aVA1QANmsyVVq7Q3zEODtoEa SJslaVuhBVpvDdY0UMPgy6rMtEPrq0HbILU5UWEm1QlytvdOaAO0aFPHTNZm qB3aYA2W3rf0F3o6Q9Kmp30KwjSY52ANpEn1lRyMNUMbqUWVOmayqsXaGxal wdKHaCBtmqRtoRZoYzUY5lANmE2VVM3X3rB4LdqEbt6/f1/spqxtrhZokzSY +TC191SYSXWyzO47oU3RYE3D+oy/8G+ytulq2oS3+zQuXYO24Rowmyxpm6od 2kwN2lTLQuqYTZK0TdI+BTnyJ4UxVXEwok9PhbbJ2r7XAm2+BtscqQEzaeED 47U3rFCDtlEaSJNahG+0QFuqwcxHqqlXYSarGqu9YeUabFPVMHXSpNUijNEC baUWVeqYyapGaoe2WoOZj+4zisJVJkjapFl+H+Xl5TA3N8fSpUuRkZFRp8Em x2jAa/zbWlxcXIRtF3z11VdobW3VpkUdKw1aKioqxAt5e3vXqQ2ryqhVC43q RH2rruUDcUyELQvhlawJtRqsZqwGnL5RV/UbSFtJ/9MrsroaLdrUiXpL23tv aeunNqZCA4VXVRrUjtOAlrRC2utDhL4KfZbG8N/VqjBTt/Fxaq1V9b+P2pKS kl4VH2hQW6HBQr/u854wCOPerfY3GtQqNaj9RgOAY99Wq0JHePWhFrXqTuDr PoMgtPYttRKRAmqCGnKtSbMmh6BqsDqlX72t2czMDAsXLkR0dDRev3792z6a BU1lGjR/q/aeCtoxbw+FOma/U1OrmhCVP1R3FN+qDYWKXlmtKvAJmG3aJOXa f9CgtkSDzavUqtyyQHAfteo8/FGD2mINasf18YQqxyro4ee0XOFPGq5QpMHN jJFHT9MV5EAs/oWAE5+PfvcV/6zhiqrgpm7oI2V0tV1RZd3/HjB6L61uB3/R cOkCDZce9isu/aGGaehzaXW/q1pMTE5O7r10voZLD37HpYW5UF36d//bpT94 C/mff/4ZDQ0Nvb1Xb0KeBlc44Fc0QQWmOiIamiD0/tq1a712rWkUcjX4t/6/ ogl/0TB6chPE0li0+/flxggNEX6Ehggw0sH0ri+qNyZHQ2M+7dMY9fxH1Zi+ i6hqjRko22bf0CnbxMdaWqHum//+K1rx0btbIV7mfaENH2hvzyca2pOtwcz+ +iva85mGz43UPiqyuX6qoRULZBeUmVWD3Oxa3LkWAdtrkXC8Ggmny5SLkXhw LhJRLlkoSao9ouHif/4Vjf7i3Y0WVzb6/cLV295FU5vnyn6ntbUbuTk1uHcn Ag53IuFK8ab434pE8M1IhF6PRBj7EcZ+hF7ge2cjEXgyEimOWehu6DmoIUL9 4Vf0RbVMoe4p1PvSJziqTi6oO67PNPRqtkxAXk4VbO6Gw9EqEu4UX0rwvUhE UKLZu7jbkUhg75LYuyTOVBJ7mHCJ77OHMacjoTgRgQzbjAMaWvkfv6J3Q9Q+ p3JCcu8G9M7Uexr6+bmGPkkrJL9HeFA67luHw9mGM0QJokRSYq3ZfvYv9W4k MihZlH7I4e/fIod9zWZfM9nXdPYzhX1MYv+iD4XgSd3jfRr695tf0T9V/iK8 93ZU7F0VUO9Vfw29kpYwPkF7aycc7gbAySYM7racKbtIhNgpEGUbhQTbaKTa xCDTJha5tnEooBTZxaHYPg4lDjGUaJTYR6HIVoECjkIu+5zNnmZejEDyiRA8 re/eq9ZS1Uy8J/fzHT1UVWL/HvJ751U9j/9SQ+emymYXFZwCV5sQeNhFwN8u CmF2MYixi0eSXSLS7ZKRY5eCAodUFN9PQ5lTGpTOaah0SUOVawolGVUuiah0 jofSKRaljuwoB6aAncy9Fo60k0HsYJe8FP0fbzX3XXOnXvm8XfjLXXu/NyES YjM/oql3E3qDmDyzqh8360B42kbAxz4GofaJiLZPYVfTkGGXiVz6i6IHOSh1 zkX8sUBUe+ShxisP9d65lBxKNiUT9V7pqPVMRZV7IpQucew255iUF9wIRYVb imrhXeit0J4+Pfzm13VQFXA5RgM0dPCPsj9vaX2MbPrzQN8sWNOnC/78gezP 75+LQGlqLR419fSXkxN15B+1d9Lx+Irv+djFIohDobDPQKJ9DtId8jgchShy LkKZWwlsFtxD4VpHNJ3zRGNAKZopLYElaA0s4mMhX+ehyZ9D5JuJam9SwqEp F4jgUBfdCERbWjl2aGBaCNJCfsJxUR2IUQ8dI95mWj1gDNIwKFJu9ye0tT1G UGAm7BgwXMmiL11MECWMASPiBl0n3UzklUiEc5BCGCwCLCNQmVD7mTz86oMU FxQvYfQJwjkucfYFSLUvRvb9MhQ6K1HmXoEq7yo4rkxB9a18dLvFoTWkGm2h VegIo4RX8FGJ9rAytIaWoDG4EHWBuajkOCk9U2hNMSi3DUHBdR8pW/ntOw1D CF0MYd//34ZpsIZhkqrD/0RIYBrs7oXDlX7JnxJGDx1NSWAESuawpdIrp3PI 0gXPzCiUIkSgi1L0CT8agZ76Hnn3b2DvmHW2PRKf+1Kfn22K+DzSrhgJ9uXI uF+JPJdqlHjUocKnHrUBDfA9moX824l47OCFjohGPFI0ojOqAV1R9XysxcOo arQrKtEcUY76sBJUBxegwj+bg5dMl6NAmY0/HmaXbtTuL/ueKhReqXhTDyx9 BlI9lA/RMJBSNvhf6GjrQkRwGpwY+rzoCIIZJKIoiXyeZqNAlrUCeZQCPi8S hP9WJDgMDnbeXSn0pdJoE05GoC62+uM+YxrnHy0+97NOgL9tlvg8yq4CSY41 yHJuQIFHE8p9W1Ad0Ir6kDZEnUlB8slAPLHzxGNXBbpj2/E4ro3Siu64FjyK a0JHbD1aomvRyLGtDS9DZUgRlP5ZUHokcFxDUGjtvk77mP5Gy5iqh7I+Y6pu XEM1jKk0VR9xTDvheNefsSkUPhyvUMamWMamFAbXLNsE5NsnoMQxEWX3E1Hh lIgq5wTGong+xqLSKQrK+woG3kgx6AoBN+18OPJsUj6SnYeqGV63POSxTYO/ TYH4PMa+FilOjch2a0WRTweUAY9QG9KJpvAutCq6EXIsBN2OwXgakIaexG48 SeqidOJx0kN0JXXgYWIrWuOb0cQxrouqQRXZVQbnQ+lHx+gRxTDqhZcdD7Xu wnGAVZWqeiEzQUPglwdYZekvX77sXVkZrmGApbXCjxEVlAQ3m2C6fgUjYRxi 7ZPo2lKR45iOovsZKHPORKVbFmo8shjxMtHoLUg6JRUN3smo90xEjVssKpyj UOwQKQb9rEuheN70WDovImaQvHhnawd8bgXA724CpPc+Z5ZRjTjHRqS6tiHH 6xGK/btQEdyDuvAnaFY8Q3vMM3jsDUX7/Si89InEk5RneJryFM9Sn6AntQfd qd14lNKJtuQONCcQ+7gGVEVXQxleAmUQ3YMfMfYIxKOiIvlo4TuHWVWNqzvU XzHM6qsyI+QUUn2YFf6xjK4B8GLiF8RcKsY+HSn22chxyEWRE2FwK0S1ZxHq fYoZOYvESNoWVIh2Orj2oDw+z+Z7HHJCU+edhEr3WJQ94FBbhSPrYiCeNnb+ XfYTZZnF8L0ZBr87KfC7V4AAqwqE29Yj7kEr0twfIdf3MYqDnqEy9DnqIl/S 7n9AR/wPCDmXijqHRLz2DsDTtB/wLP0VnmW8xNOMF+jOeIZH6U/QntaN5pSH qE+kf4mrgzJKCWUYmx+cykEOR1dp6e/ksNnc0oOMtBpkptagpblnofZh/4uW YVd3KVqGfaRcjwjDfv70eTjfcoc3XXCAbRJjThaSGKyz7hczUJei3L0cNd4V aPCvREtwJdpDK/EwvBKdERXoilRSyvi8mO8VMlDnoTEoC7X+qajwTGAiw2G/ F4JyEq8a8/LMUvjeUMDvdgbHvRiBVtWIsG9CvEsH0rxYr/o/RXHIS1RGvEZ9 9I9oifuJfuFnJNtUodA2Da8Do/EirhnPs36ivMHTrB/xOOsHdGa+QHvGE7Sk daEhuR01CY2oiKmCMrKYcGcQ7igUuD+QnO8fkJVdAz+/LNxhVmNLcWSYdmaY dmV248pQ7Xqer09HoCy5Fp2NPbO1z4lqIUa9Uv5Azt1bWnuQmVWLHIqfVxZu soApSK9FIRPMQmrvaOx5a1fzV8zfKHn+3OzdcH7fdXjeiUYI41uMXRFSHZXI ca5irkD/6VuH+sAGtIQ29OYI3dEN6Impx5PYOvTE1jDGVaEzpgLtUWVojqRZ heaiKoDj5cX5exCOwjt+eNb8SD7JxvnLKIfftRj43czmHJYhyLoWEY6tiHd7 hDSfHuQGPkdx6A+oVLxBfezPaEn4Jx4m/wvldFQJdzLwkmXTDzFleJ79LzzP +See5vyMxzlv0JlN28p6jpaMHjSkPUJNUgsq4mqgjCmFUkHHFBbLmOIqLYH8 pXdZw47O04niwSzVh2lXQN+ljUu/LG0EnWS6diwCFfE107TPp2pJSz3FkeLr H5GbW4vbtyNwj1ez49Ue8GpuvJonr+bFXMSHV/Pm1XxOUY6HozK+5q3NeZXN Dn97ftVzz1FyRuvBGGtz2gNXDrgj8K6QRCuR7lSLfPdGlPk2v6eKE9HtvWWa FCd+j2dJzQytjehKrMdDtqA1liasKMXt+cvhN/h75M4zRtGJG+jILetdrAj2 80WIvy9C+fgewsTfVeXlvTH0tyoE0pXwvRILv+s58LtVTrdZj4j7bYhz70Ka 71PkBr1EcfiPqIj6GXVx/0RL0r/QkfovdKb/NwIvM/SHZOJleCqe5/43nuX9 C0/z/onHeT+jM/dHdOTQzWY9RUN6F2pS2lCRSNcZzzQgNocYxKPQ302Kw7+X 1oGYhdszGXSmeFL8KSHCWhCRiCISsZyg+BvCmkkiS5cPkUDzjqd5x56XsvEo CyJyMJQZ+WN5R/ydTEgLbX//t+8j5efWwIaXtaM48tIuFE9e2o98BMkkhpON CJIYwctGkI0IshF5go+Hw1BLJzX4f+PjfbEl4eHh4oZVWlraCNmRF2fkw/tW EHzvJcHubDTuHgxDtE0FMl2bUeDdDmXgI9SFdYlUPIzpRnf8Y3LxWHz9IlV6 /wXN7WlaBx6ntuJRchPT2TTcM9+FC/1noOSruXg9ZSaaDEyQZ+uKKmU5Lp22 wFojPWykbKZsNdLHNkEMKQb62GrA9/X0EOnrKyEzDuWpROZSHPyu5tJzVLBq akDYg3bEeXQj1e8ZcoJfoTiCyES/QV38z2hO/hkdaf9AZ8Y/4H4qVgzqPynC ics/8Cz/H3iaT69B6cx7Q4RfoSX7GRoyulGT2o6K5AYokxhtE3LpPeLRVSNt vYYHpcGRUe4BCwhXiq9QcFAimOjGqKo3TlwaJYOSeTuyH7JuCdhk3pAKuVTO YwrxST5DjI6Foz6mUusJCmLTX54/VWbf0f4YESFZ/XCfl/4LnPjbQyj5hEVM QhtOahSkJoZXiyOyCbxiIr1K4iWphEw8Ly3yJZ6ga7ZLG6TBUfVxLMKPvLsp B/4hTHxKmVnyqnczaL3FcLuQiQcWCUh1aUKRkFGG9qA+8qn42c6E5+hJfsEM 8gVepD8X3/uBFvoy6wny78cg9340fA9ehu+hazAcaIJzo1ZAOXcN/rnMGIUz J+OgiRHWG+thkwlJMdHHdmN97KTsFoTU9MMe/v4Ae0jPLtKzU18PO0iPwsdX Xq+cjM6mLvieZ9C5LOCjRIBNI0KdOhDj8RgpxCebCUNR5A+c7teoTfiR+LxB W9obPMr8iUlFPSr8cvAmPp7Y/IRnBT/hacEbPKZ05r1GuwqfzG5Up9Ni0ogP cVUm5aI8Ng6PaioQKdSoNmFwZT3laUc3QwkVa1UF4m2ikGIdhXTraGRbczys YpDPx0IbQaIpURRFb80qLNlmcXYzOKOpp8KQb5PSdyO1D0KqZSwhqfb28hNb 0g8uvP7fxGVVb0qAvAyhuKtA7J0oJN6OQvKtaKTdjEY6HzNEiULGTQUyhKuT q0y2IPNsGFKO+ONZfWfvuUf1IlQDTCrHp4KpPLOCGR3Dwe1cRqlyKOzrEHCz GF4Xs5hBdzKTe85M7pUEU/KPeJL2I55n/IhcO16GNZO46nHAAX5HXeF/yhtB V/zowwPgeNoWBydvQPTCbfDXXYUT347GxinfYoPuQmwnSDspuyl7KfsJ0wE+ vo8DxsLvfURqr6EedhOkuycsVBx5n4mC30VGretKuqBGhDzoQLRHF5L9niAz 5DkKIl+gPOYlk8dXaEz5Aa3pr9GR+RrJLhXI8MzGD0kpeJlciCcFryk/oJvy KP8VGXqB5uynqM8iQxlkKIMMMUoqU3JRGhcDTxsP2LOSs2LXrp5ww50T7rA/ 7gmX497wOuoLf85A0OEAJF1SkI84loXJKHVMZo2ezCQsiZJIYUJ2Pw6lDjEo Zk1fYK1APt1U3rUIZJ0NoTdIHK2dI2kSP2GtkYUzFlfgbhdBkYj2ZTEbZBuF cJIbbRWH+HsJdIaJSL+TjMy7ycixSkGudTLyREmiJCLPKp5Ek3ayln89AnkX g5Fh4aOO69sH7XrXHtXX2MVWvS/lLr3F7xhOUSKTiwLml5VQODYh2aODtUk1 gm4VojT0KQp8OsW/TGReZLv5Ph5sd4XbXj/4HA0V3w+5FYcwx3hEeMYhNTQd hXHFzC07kMyhvLvuGHRGzcDB72fg6vjR2DN/+i8kmRrgIOUQ5bAgZgY4wscj ZsJrfb6vT5fGv2Pg28dAZ2VhIaf6nyHBORe+ZzMZ5cro0OsRxKRI4d6JRL/H yAihu6RLLWWBXkWXWp9CZNJeoi3zJTqyXyLsfgaeJmfgRVYZXdNLCmtJysP8 52jLfYam7Ceoy+5CVVa7ann+wTUHqP9YWXrTi/vCwyIAfseDEHI8hFkG84ET EYiziEDYfl9ErLFG8VEPVLtlodo9EzXuGZR0vk4VdyUqXBJZLceJ2y/F9CmF LI9zzgfieVPX8F/hpX6ZR3wKN0dpjdzLnpmxvQI+dtGs6OMQbpOIaOsUJFil IcUqAxnWmfDf5YHIFfdQcI1pvmM2iikljlmUTD5PR5FDCqlPQol1LEqYfRdf DUSVe0LvDo0W2NQrJ2kx7ateP9b3sTy9WlrVulGEIKsaKB60IMmrE1kBTxDv 3AT/a8WwXp8oDfcOJnxH4iX/xcom+IG0wqhMaEJLZqfoJLryXzA/6WFK+wjx HnFYPnceDKbNhf5YHVh+Pw23vh6FI4t1cEAkzpC0GeKouSGOCbJcejxubtiP TwyI2REzfRHCg4yl+w0F+E7Im8JTUJpQB5+T6fC7VMy4XosAxxaEu3UgzpeF WXAXciIeozi6h9n0E9QkM8NOe4bmjGdoY+zzup2EjsRsvE4MQmf+M8pT+rWn 6Mh7gtbcx2jM6UZtDl15TiuU2bViNyPcgnD9+F3csHiA25YepE+abU/LUARY hCP8hALRFtGIPxmD5NNxSDsbBxczF6St8ULnKReUnfFDtXMOGnwK0OiTx0dh oygLtZ4ZqHRPhZIklt+PRRmjW/GtYORc8JWn750ISv884N9mNTY4CU63vcTX PvbRlDiG8CSE2aYxWc5EgnU2Uq3zkGmTj7iLibgzxwUFu0LRdN4HZc7FKHct htK1iFLA5/koc8lBmVMWyhxTUU6gy++FofSGDzrSS/7tCxL/C5BSZfintwJr L4xpMozXixnfaxHp3IYk7y5kBT1DUcQrKGwbVUuF929nIdKjHPmKFrkE/BCv i/6JV0X/wPOin9FT+AZdBa84oU+Z7HTxb1bMn4//wMp582A6fS5Wfr0AF8nj 7bEjcIgMHjE3In9GOL7CiH97gr9/Bwv+Fp5ZrDDkI7lcbkAs9UUoDxHIg4a6 iPb1UfHocSwFPucK4Xy+ADZnc/Dgaj7rokIE2BYj/EEpYlzLkOhZjkpWIzWp j5m+96ApqwfJwVWoislhjhnD5vZQHqM9r5scdqGZDDbkPkR1LtP83GYUppaJ nbW/aIdbJ+xxz8INNpZ+cDwpBQF/y2iEnYxDzKkEJJ5OQtq5ZGRdSkXulVR4 bEpA1vkcPPYgczaMuddSUO2Yg9bAUjQHFqMpoBAN/vmo9c1BpVcGlG4pUDpx su3C6YH80ZFRJmdM7+Sx74nTzrZOeZfsYwTYpSHYLgsKm1zEWxcg2aYYGXal yHEoR8EDJe6sSEfezTw0uuehwqMSVV6VqPaqoCj5vAyVniVQeghM5rFZ6VA6 xEFpE4zSO+6/hkH15QZp9em//s1sylJk/q6VkL86RJC/BO9uZAQx/Ea8YE3+ CkEPOpEQ3IZWhjNhGedp3k94UfgTwfupH14V/0Sn9az4DXqKfkRnIfmjc3G+ 7ECmVs3XwW+xmhSunzcHxt/NxdbxC3Bz0hTcnjYex0TWjPvBYqUxS31L/rZc ZYSTFMuVghjyXwQMiSAxPGquh8MmujhguExezZgqVqpOF3xgaeCM02t8cXZb MC7uD8PNY5GwOa3AgwvRcL8SC58bcQi4E48Y5yz6xwbUZXQhxqsUWeHZeJ6b hIeZVWjJeUT2HqEppwP1ZK82rxUVeayw06sQHZQsjtKdE3dx74QT+fOFg2UY XCylzadQy2REn0pF4tl0pF3MRPbVLOTfyEHRrRyE7gpE9r77eHrTFg1XOSP3 slFxJxNVtjloC6tEa6gSTcGlqAsqRjVZrPDJ5qTTNzrFkMNgFN326q8FwTdv 3kgnKL8UW5IQJAUrj3tB0rzaZTDny6UbLESMTQkSbcqRZl+JbMdq5DvVoti1 DveW3kXZUWc0O8SjxrcBtX6C1KPOv46PwhJjFSp9KqD0EnDME085KB9EE0c/ VldFmo41DfvfSHzvLRIld/YRc/dk+F2hJ7SqRZhTG+K9O5Ee1IP8iKcoi32O mqQXKAhpQrpnKdrTn+FJ/ms8K3yNF0Wv8bKYUsLXxT+gh9JZ+BLtRHHV/AX9 sFpnARFbqzMfG+bPxca5M0jjEhyYuABWUyfjzvTxsFgl4GdM/CirjdnAU/w9 ir9lJFcRxZUCivo4aiaguAyx/pKDvywslrD8FUrgQ8uu4JSZN85sCsT53SG4 djiULiscDmcj4MLU3+NaFHxZqAUwqQ5mGRnnmo5E33yE+2WiO5cuJYshMrsN dTltqM1tQRURVOY1Io8YKoLTERGYIA7WvWN2sDnhDTuLUHn4PkPAyQxEnM5G /Lk8pF4uQPb1QuTfKkLx3WKUWdMlHwhHzmE3PL/nhNY73qhxKECtfT5qCEiD RynaImvREl6FhrAK1ISUojKwEEpfAUdhPzkS5fY+eJhb8ol2HMepTbDPPU/4 2YTILfwUfrb5CKYXjCCG8bZVSLGrRaZjPXKZdxW6NaPUswVWBnYot/REi1Mq 6gLaUB/YhoagVkoL6oOaURPYiKqAOij9K6H0IZKeOVC6s4Wu4ShzcNJ4zK4P j+p716rFtz7RWbUTqHrbwyIRvhcKmHZVs6Rsoft4iNTATqZc3SiJ7UFVopRu lYQ3INO7mCVlDyPySzwtekkkBXmBp5THRc/xqPAZUv0yIHC5kFyuIZ3rdXSw kWzu1F2Ew8uNsWKKLiymLoDD9Im4tnAmmTQhiyZs/Ok1Jv34yxjzJTgpFmpw HjHTxeZFs7HOWBfrGbI3UrawmNlGObHMlZ/xx5ltQbiwPwg3jgXD6lQoHM+H weZ8AJyvhoor7P53IxEorFaxOnDlNDRnZeFRZjwqM5tQkd0IZW4DSvPqkc36 Nzw4A6FBqQjwjRUHy/qYG+xOBMPBIkZ87W2ZheBT+Yg6V4zEy6XIuF6OvDsV KLaqpH+jZ3Eg2EdjkXvMBy9s3fHQJggNzuWUUjQ8oE8kpC2hBDOqAY0KeqQI 5g6hZVAGFRBOxmym3EqXYBTYOP/914D5m74zDb973vCzVqgY9byXx46zImU6 lmDbgDTHZmQ7tyKfiXYxZ73c5xGsTZygPOuPNrds1Id0oTG0C02hnWgKe4TG sIeoC21HdQgtN4icBtB1+jGK+2RC6R1LVn16GVVf0+vDqHorh/RWze//Uj8P orvMZ/1ciUDHRig8WpEU0I4sXr0ophMVCUznUx6jiSlXCe06w7cA7cwKu4ue MlJTip+SxSfoKuxh/fkYrozYa0jjGp1FWLNgIXmcj406c7CXNfDhFcY4ttIE pt8sxvkZOnCaMQGXTBbj9FpTMnxmranwy4R57pm1xnzTGKfWSFyeIJfHV+hj +7K5mDFqoMjiZnGNUA87yOMuyj6DjThu4IWT64JwekcQLh4klyeCcI1V7iXW HDfOeMDpWhA8b5HNO6GcrVDct41DWWo2uvIiUZJZh6LsOhTk1Ir7NhEROQgI TIevb5I0Tu/D9pgf7I9HwfFEMlwtslQTHXOpAik3qpF1pxYF1vUos29Axf1G 1Dg3sqpJRq5lIF6yvu10jESTRy2a3avR5FaBepcy1Hkq0RrXhqaYZtRF1aMq sgrK0FIoA3NJJbNIz0iWFR7yYeZ3Ijn+l+kcAGVOCXsXCD+rePIoFZqed4oJ Yx3rgCYk2rch3ekhctw6UejZjVIfVnr+T2CzwgMVF0PR7lWIxvBnaIpg1ceI 2RL5BE2Rj1Ef0YnqcGbTYU1QhtQSynIK43gAnaZvCLpLC9/6Pvrb3+p8C0jh VGFaWpr8pY3BcD+eA5+rSvjb1iHMtZGFaDPSQ1qRp2hHafxDVCY/Ql067SKr C8VRVUhnot2S3YHOgm4G6G48KuhCB6Ut/xFObtnzC4GiR5yPzaybDy03wRHS d2yVCfbqG2LtxGW4Pmc+XGd+i8umS3BmnSmd/TpTLOBTk14GT5JBi9WG2Kk3 H7NGD8JsitGsSdhmSvZMVcuKBthPOWi4GceMfGCxIRindgXj/KFgXKcPu8gA e+mUB2wv0TeSQdcbQXC/HQSbuwokxzJ/K0hAXlIesrJqkcaaOTZZCS//dLj5 JMPHMQHOrGdtDtEfHg2Fw/EE3D+RATfLAvifKUP4xSrEXatD6p1G5Fi3oNih jVkV3YZLO+rcOxBzOgN5Z8LwyjkI3S5xaPFpoTSh2bseDZ7VqHVXMmesQ1N8 O+pjm1EdXYeKCLqaULqaQPpFP7oaTz88LMr/k3YIJ8kldZJ/NMNbGBlkFnYv F0f3X4TbdQZsq2ZE2XYg6X4nMlweI9fjCYp8nqHM/wUqgl7Clpl3xVUFOvzK yNsPaFb8QG/9Cq1RL9Ec/Qz1UT2oUdAlRbKHDI/KMNpKGFsZypImSIHuirJe /v79yzLyUfP33/qmRXR09BjZMxbHtsHjXBm879Yg4AEtxaseSUwRsiKYu8e0 oiyhDZUpzOczOtCQ9RCFinKkMG40ZLagLe8hWvM60JLXjsa8NqyaN18Myaso qxmQ1+rMw24hqVuhQtAUJ1abYr+RMbZOW4a78+bCbebXdIZLcHa9mZB0rDeF jsjh6XX0g+Rwt4GOyN6cMYMwl2I6a7LEn6kB9lL2mxriIEUoyYWloSNm1jhG Dk/sDMaZg8G4fDwYN08F4+75YNhcDoY9OXS4FYSbV+kpglnX5qWiKC0V8em1 iKa4B2XDzj0RnsICiG0aXC+EwvaQL+yP0AEeS4XT8Vy4W5Qi4FwVIq/UI+EW TdaqHXn2j1DyoAsVLt2o8WCt7vUYsUwkcy8o8Mo9nDV0CtoCOikcL/9WNPo2 os67BrUB9IxJnajnOFfHMT+IqoYygp4wlGlZcCI5DEZnaZF8/7B3QjhVhtD3 ujP8bivgdyedMBbh3DEHlv7JCLFqQ5R9J5KcepDh9hx5Xi9R5PcDygN/RGXI G9huCELFzTh0BFaiKfpntMT8hNaYN2iNfY3m2JdoiHmGmpjHbN5DKBUtFDrC KKYRkcxvw2PQXaX83yGU1nWE7x0JO23SaexBiHbkqF+tgrdtLYJdOQu+dUgK qUdmZAPyY5tQkshEIIWpfHorajNbmTIWI84rBVVp9ajPaWGa38w0vxErSN/K +QuwUkcQHWzWZYlC5yfRZ4pjJO/EGlNYrjXDQRMT7Ju1DHYM0Q8WT2YYJn/9 RPz+hDPrBfxMRPwMJo0VsZs7ZjDmUcxnT3kbPRV25kb9xOWg73F0xXbsXx+A w/SEx0ngGcETng7G1QvBuHElGLeuB+E2Cdy++xxun6dcvwf3iCL4JFThvl0o fK0imPQnk74c3N1tDdsDgbA/HAfHo5lwPlEEz1MVCLxIS73ejIS77ciw7UTe /ccocXmCSo9npOo56XqBuEvFyL0ch1deUejxyUJb8FPKY7QEd6KRRUGdfyOq WZvWx7ajIekhahJaUBHDhEuh5LTmc1oZh4PC0aUslc81vJO+GSr6rrnB72YM s6pMUliCc0cdSV8qQm06EOXYjSSXp8jweIk8n9coCniDsuCfURn2D9huCUfF 3WR0MLw2xf4TLXH/QGv8z5Q3aI5/jYa4F6iJY/diuqCMoRuMrYcyjs2MYboQ FY/umkqNt+nUQJ9qVVHKZv+KKJcmuN6sgacD6XOvRZRfLRLZjHTmyrm8TGFC PUqSG5gvCftVTGfD8hDhGY/itCqU5TJ3opjPndcP5vMW4I9YRe+6x8xYBs8U R1apwDMTwTu5zgxrZ+jh+LxleLBwFuGbJMC3wYzh9+wGU7JnitPkb6/hQpE7 gbn5Y4ZAh7Ji9lTsIXMSd0Y4bG6EI8tVq5DGLGGMYcFHYUHo2JodOLLpDPYc CMKWrXexavkhzJg0Gwt1TLFkoSmWLloO06Um0Pn6G8wcMRLLxk/AxiWmsNho weQpE/42Rbi30x52+0NhfyiJ8OXC2aIMXmdrEHS5CYpb7Ui0ZkBz6EG+0zOU ur1Aldcr1Pn+gMaA14i7Wobca4l45ReHnoA8tIe9QFvYM5YizKlDHrESbUUN q9BaRTMaUjpRk8QwE88hjmVVGsPgpmBwC4tEV2XZB9rZm61i7wrZux4LvxvZ ZLAM1y38cee0AiG2jxD1oAdJrs+R4fUD8vzeoCjwHygL/ScqI/4Fm+0KVNik oiOMyUDcP8kb2Usgewk/oTnhRzQkvEJN/DNUxHdDmdABZSILuES2MoEmEpuA 7rqqX8Oe+hrO13L6F+naAqdbtfCgBwwgexFkL47sJUeQv+haZMfVIi+xFvnJ zLDTyKUiH76eMcjMYCrIfMl49jyYzNHBcsbbHSZG2E3w9hO8gytV4JnhxNpf wDu93hwb5xng7IKlcF00HY4LJwrosfwgeX8WuTOcPJa8kbmvyNxXQ7FwzFCs Inf7TI1wgMwdEpkzppMz/oW5lcZyfjseu/UXYvqowZg5eghmjhmJWWPHYe64 cZgybDgmffox5nzxGRYN/BRzPvs75SMYTZgKwwkzYTB+Nk5tvI6728nc3gg4 HEyF45ECOFlUwOtcPYKutkJx5xESbR8j4/4z5Lu8RKnHD6jy+RH19CRNQW8Q d12JnJspeBWYgJ7gQrRHvEJbxAu0MJlvCu9GfWgHaoIZdqNb0ZDKMJ3cgYpE JvUJDLnxxZxNVpiRUeiqKuunnTlpF+U/EOwvHQdbaaiH1ZS1BnpYR1mrr4dw X19Ul5fL91djeugpnO2hXBM218tgcyYOF497ItiuCwqnp0h0e4kM79fI9X+D wuCfUBr2M1O+n2Gzm3zap7I3tWiMJ5OJP6El6Q3lRz7/AQ2JL1GT+Jw9YTmT zOicwh6lMEVMZoGfkCjyqWlNZ+i7+ZS+RrSbzPXAnr7Ryb4W3m70jz61iAyq RUw4S/socko+U8hnagofyWcIo4aDeyzCkqtw5vRNrF+2DNuMDLFdZnOfzOZh snl0jcSmxTqBTXOcIpun6Qa3LjTElUVL4Ll4Cu7ozxbRPE3Za7QQ85gHCs5w PsFcQFk0ZhgDMR0iwTxobiwu/IhgMtc8QbFgyWNJERZ/9hBMvUlfi5jOpo55 slNdSFAXUSZ9+hGmffoJdAb0h+6Qz6E/8BPoD/gIxnyt9+UYmIyeBOORk7Ft 6grcXucO281RsNueCvt9eXA6Wgrfi41Q3O1ilckQ5/QC+W6vUEp3U+X3GnVM shpDfkTsLSWy76TgZQgBDS1Am+Il5TkrzadojOxGXQSjcJiw7FGFhrTHqEl5 iIpkvk6ugTKphJBmQRkdhXZlkSYqh8pUhpLINUy7pTVVfWyibDbSFw+hbTUU Dp8JR4q2ktH3sEVXD5E+vvL2hkRqRZoSfpcYxa+Q1KvlJDVeItW+C5EkNcH9 JdJ9fkAO/XxB8I8oCf8R5ZFvYL1PAeX9VHapml7zNZoSmTsmsaBJfoWm5Beo T3qO6uSnqEh5DGUaSU1j1xhGlakkNSkBnXWVv4ZU9dVH6bYNOmhveY3ggDbY kNQHJNWTpPqR1CCSGkpSw2NrERbP56Q1kGIbkI0Ltx+gND8fW/SFYTHENlK6 i5TuJaUHSOkhmdLja2UvKpBKSk9tEEg1x4aZeri1ZBG8Fk/ElRVLSLAp1ulM k9ynQNdXw7CAhAqUSu7TmMW4MY4wHxWWg06skgldLRBqij0GizCLnxXoFH4E HQspi+mCFwz9EgsG9ceUTz7BrM8/w4IvP4X+oE9hPOwzmIz4HBu/HoKVYyZQ vseK0ROxc6qZ7JIHwmlPBtyP5EP1E89cO+1mLXLu1qHYhvmefT2q79ejxrke sTcKkXkvBS/CEkloDmvQ52iNfsp6tAeNii7URXagOpzpf0gN6tN7UK2axtQa FMfnI9U/HGG2Vrh5ppdKKQ7+J6oryrGORK4z0cMGE1JJ2UIyd02ehTOTZmEn 6dwlCAndLR9020VGd+npYccyXdTSl/5N3qrpbu6E33lWORez4HeZvvS05EuD SGiE0xPEezxHqs9LZAW8Ql7IKxSF/4AyltVWBxUod05ll5j2Jr5i2vsSjSSz MZkpM8msT3mC6lRWOenMM1nwKjPpSzMZ69PzUJ6coDpJ8e+3AeuFU33Z8Ts5 2GcXPEFu6RPcYYi38a2FA8F0YJi3Da1Gcd0T5NdIMKvuwbJ+yTLaqAG2Ghux 1GUJTCD3MZc8SCCPMKQfJYzH1wmu0xyWBFKA8iSBPGRmgu3z9GG1bAG8F0/A peVLWL+ME4HUIUQ6BHEBoVw1expdJnNU0WWa4OhKFZDM/wjiyTUSjLP5OWlx 7Vt+ji5z2JeYN+gLzPuyP93kl1g4aBCmff45ZvO1yRdf4NCIL2A04jMYjPwc 5t+Ng+k3kylTYf7tNGyfboZTupdFbZdW+uP+Een7UH6XqhF+s158nu7QjDzn FpS6t6LamzHarxXNga2Iu52LDOsUPI9MxNOoLNamT9Ec08M6tRuNUY9QF9WO 6sgmlHM86zMec6ZakBpWiHC3aIS7BiM1MAyFUSFqd5+QT4So/Uhbor9HmL8P 6ZSW/UVC5aX/PV+Og33/8UgbPAGlw7/FlYUL+Jl94rHMvaR1L6P+XtK6R1cX db2kfgHf02HwO5dBWkvgciEfR/ddQ4DdI4SzDo91f4pkn2fICHiOHOFoXfhz lChe4O5hBUpdU9nHCtQmsqBLeoZ6gc7kJyT0MWrTulGV0YmKTBKaxWoom3lz NquhzFw0FBf2HvhRX4yUMVUdPFP/Itds+XyF8KebV6zERhrbVkbtbURvpzlL Efqr/UTjENE7Qn94TMbvxHoiKFTNlgzbC8WKZ+8CfdjrzofXwm8wf8SXmM/A Ol9FHmUP3aBA3kG6wcMrJPKOy9RZytTNIXVzSduckQPFmZn55eeYQ9rmDxqM hUOHYsmIYdClrmUj6WK/GIAtnw+C47hB2Dn+C+jymivHT8G6KfMoOlg7dQHW TVuEU8uuiLrOmnri2g5pM9r9ahMC77SJzxMfPEKmeyfyvTtR5t+FYv82VAS3 QXEvD2m2yaQuEY9jc9FE6hpjSF1MJxqiO1AbxZI5nEVgUCliPXKg8ExHakQh ilPK6T+KUJ6Sitr8TC33dPjlWEtYgI9EnakeNpvKB4GF85tTZuFw/xnwHKKD rqmL8XTmXPjpzO+HgyYG+FA8aCcc6DxgJB24E8487dPXRT0h/KsMoTKpBn6n UuB3tggeF4twYPdpBNg+RIhTF6Lcu5Hg04PUgB5khTxBXvgTFCrorI4qUOKR ikaW2VVMLauFMyjJTJpTulCT1onqjIeozGpHRXYrlDl0kzmMJDllKMvMwatn zzSeOusDoXo5Lt2H9A8ihHPHfosNesK2mxG2m0n+by8D8gFScogAHlnb6wPf FykcI1Y9Rxbr4b7eHCwd9vlb4C2fPZ1ZIisjuruDhO7wSgE807fAmzliAGYM /QJTvvwMU7/8AjMHSl/j1CFsi0cPh+5Xw2E4djiMxw2HCR8Nhg3F7i8Gw3n8 YOiPHgiTr0aJ4G2YOh8bpi3AhukLsWHGYhxecFTUc87YDedWB8D+ZHnvZm60 wyMkOXch06Mb+T6PUcIZUAb3oCrsCSKti5Fin4wnMYl4FJOL+pguyiPURLFM jmhASXAlCgNLURBUxHStDVU57XQBLEyzGKwyC1CakoyOhhqtNxMRfoSgvMlE l20SkPs9tpoK0BlgJ2Xv5AXYO1AX3lPW4bHxRjw3NIG/7lJxuesws+5+4uHP 3+CQsANACg8yuB800sUBA5E+6ZZC/dHZ0A2fE/EEMBce5/MI3yn42bQh+H4H ItweIZY2l0SbSw/uQnZYN/KYCN88rkCRVyrq48pYw3SxtukU90IqUztQmU7o slpRntOM8lx2Oa+eUoOynFJ63gpNR2u1cDdXtsJAXz/M+3o81tF/byUsO+j4 dhOWvatU3LFsIXNH6PiOUo4JIji/Y8z6/pN5nz4sl+piGRlaNowhcvRQ6H7/ DXYR4b1CVU51B+V1yKNUuUd3CTbNnoVpDJ2Tv/gcUwYMkGfkGywia7pjBd5G kLcRMKGYfj0CZhSj4cNwcMAQuE0cAvNvhsNs3GisnjAFm6bNx6bpC7BpxiJs m2tOR7xVcniGLji3yk/aC7tGh3evRXye4NSBNPeHyPF5hEL/TpRy8JVhXQiz LkSSYzIexyWiLVpY2m1BSQjzROZ75cylKxSsRKKqOBnMF8UTZrT+XE5AdjnK MnKRnxQ/QMOBgN5dOuk+P5tNltG4dbGFzG0hcdtMBeIMsZuyV2cpDg7Tw+05 O1C6Zg+erVmFO8bCoREjjtBR4aCncM74ffGQ52H6y8PGAnJLJV/3OcriG+B9 PBO+50rEbzf7WjXB37EFIS50557tiPPtQHJgB9JDHyKb9dZ1CwWtLxXVcSUo ie9AaWI7ypLbUJbWSl/WjFJaVYm4X1+HsrxalOZWozCrGC+fv+gFSn3Z5y3W pNttODg4iLt+fC7hNlLEbfa4b7BWcHPkYwf91y7ysYds7CduB4jbobUCcpR1 TPvWSY+H15vgEGXtIgPoDBkIo2EDGRw/h+GkiTCZMkliTaiymS6unjELRkzB Fg/5nvXDREweOADThg7GjJFDGWQZkMnYMooeOetl7euRZG1kP8I1EqNY8A7H 8YFD4TF1KJZ/OwIrvh2F9d9Pw2bitpkubutcM6yZaQrjSQvF6bVYYo+TJu7i 8yt7Y+F3p0F8HiOcEXZrRYZXG3L92lEY1IGS0A4EW+Ui/n4yOuOTUB+ZitKw RpQrmlARzYASXY/y6GqURpcxjhK5vBaU5zHLy63hpJSiMD0bbU2NvZOgzpu0 fPMX8b0IZnQCbMKm+VYZth10WSJs4mqqEfYtMcTm8Sbw2LEf3msXEDNjYVW1 H44vN8JvxQVW4aixcOz4qLkBWSSPpro4YrwMcf7ef5WX8+LsSuF1shB7dx6F +41y+Ng1IMCpEaHuzVB4t/BPW5Ac3Iq0sFZcOalAjm8qKuJZyse1oDBROKrZ hKL0BuJVjwKG0/zcWhTmCVKD9NQShAQn4caNSNy5Hgnrq5GwvxwJh4uRcDxH OR2BUumLuH1v6K+BSmGxR9gHFErp1tbWeXLwFaic8+0ErGPxsYXFxDaStJMk 7SaVgiPcJ+zdrZHoPCAcWziwzoQhZh9/71lnjOlDhmJmfwbPTz/B7M8/xRwG 01lfDsbSsRMxZ+AE6AybhcXjWJNMN8Ssr8Zi+ihmeUKQFpZy6PSWiI5vBAzG joTRuJESjOTQ/JtRpE8QvjdqBE7xOl4zh/bDivEjmH5vIJArKXNHjsYk/tPU YSOhOvR7cNYdHFnqyNlyk9/7GNcPhsHjag7C7MqR7NGENK9GpHvXId2rGt63 0wlrMh4mJKExNpNFYxNKo2j90XUoIYzFMeUoiCkijAQxj3GYXqE4txIFWYzD peUay0DVt2KFn60EcRtBFEoKAcJdhHAPY0Tv+gDBWzxmPvYxTjzYsYRtFhZZ fycc9BSXWoXDxcdFUR1+N8AxmcZDJrITHIpHtU/hejALe3cchcuVUnhY1cLL oQ7+LPFDPesR6duA2IBGJAY34sIpBTL9UlESV4Ds+HrkJFFS65CTUYvsrFpk 5fCRJMYllMA/MBPuHvHiV4rvC3dLuxUJTxLpcy0Sflci4U8a/Umj/+lIBFrw 8Ug4KmOrVN8VVl/UGfJ2TFZf1JH+fwUfIjk+AQYLF2ENcdxIHLcwiG6nk9y5 0lSezP7YI1QNa01E2U3ZudYY29casXYdgQkffYaZn/UX15xnfTkQ0wdMZ1Wx EAsnGUBfxwxmRubYscIcc+RlRXHBhgwu/moEHeMIOsaRMCSHxl+PIoejYPbt qH5YPn4UxmPFhFEwHDQM54cNg/fcYVg5YSQMxg3BkvFjMXkw/Sx984yhQzB7 +CjMHTGKeeQoGIyZjYPz7XDEwJn5pxtObPaB5Q5fnNvri5tHA+F0IQYhtnlI 8qxChl8tfKwzEUkWWxOTUBuThsLIOhQw/hYw/haQw9zYYuQkFIkMCm6iIK8a eSwDM9LzkJ2R0bs4vYoVwRphcVpeoBYWp4VvLof5+n7UG5n7/VIb/ye20q+p KN1mIrhLITYzk1GVb/LCgZD1bDMzhf0uxuvlc6Q1V3Hd1RjSueQP+Z5E63H5 OPxxcz36z2VoqCiT65NhxPU5Du04B7tT2XC9WYuDW+/g8I470JkyH4um6mDJ NB0so8z6ehr2mq/D3ZOX4PVAgdSkWqSl1iKVqKYQ1biUCvgEZsE7kHo8k+Bk HQn3e5HwJq4Bt6VvvYfReUbSeSouRSLqAh+FGxMKX3O2jET00Qjk2magp667 939Lo4VZdSNfIHeF3hQbVq3GOUsLrOVQbSCzws8WDsu2VdLzbatNsHW1MTav Mcb1S6dQXaWEw/Xr+P7jTzH18y+xZNJS6E0zgtGiPVhpsB8bzfdj98p9OLRi H4sZYRl8cG9xs1D0mwKvI6FPVg3JqjFZNf12NMzHjyauo4VvMkwYjbEwGTwc VxjRvRcMx6xh/TFx0CfiYuN0wjpryCDMGUo7GD4CCwjropGjsJjJ5pbvDuPg ogc4ZOyKzWb3sXOdCw5scWFfLmGD4V7WZocRaJ2OFN8quN1LRyiBbUpKQkVM CtOrSmQplMhiBM+MKUZaTD5yMiuQR1hzcgXPUoXA4Dgc2btbXK8WVgc3COvV RtJ69Rbxq6/CivUH4pr1Fn3pS9M3LCxQw/JW+rr5nxnhvYmsyrEasIAxZDpp JDlWcZ3LRDoFRd+xfrYu1hma4t4uI9xdv0jAlLPyO3GbQFiIFdAVRMD2hHx8 XjiCd8xcF/GB3n+Tp9nRwZ4uaRt0vpsPnYk6WDhZB4un6MBIZyWWL9mA1bob YDjPHOsWG2PlvEUwmaFDmY8rp28jJr0WAdElcPXPhosgzvFwsYmEl7X85XzS GkFao0lrLGlNoHNNJLFJdLBJDPlJwk0MSW7y2UiknIxA0pFgPKvv7r3Vqfrq pBZipXuo/E4kVkgTilh5Bwf6i38TGuSPS+dPi8/Dgv0RGuz/nuyaL526w15u wAYzS+w0t8Q+ypHlp2Cx/DQurLuKi2soq67C0ugcwbHEmskGMPhmKkEdQVBH MsALoI5iZjoKJoTUdLwMKhFd8d1orKSYDxmBo8OGYPWYzzGZkM4Y8SXmCQuQ IwZjHkGdT1AXMJNdRECXUBbz9RLK5onHYDx5B+Z/q4+Jo77HtDGTMHPsJGba k7B4kg70piyE0fQlWDRhJk5uP414ZydG9CQkR5QiWVGCpKhiJEQXICWZwDLs pVEU8QW47xaI3Zs3yueBCSch3UrZRtkhQrrTSL+fuHL9G+wkqTsEIa3bSevt EyKt/yVvsVQqyxFE7yvcSeLYto0wmjFJ/L73dmOCa2wkgcsCdB8D3i/gmmI9 K7vlS01wY5cp7m7WlVYuVpu+J1L7IV+SWYHbVSpu9cmtHuzPHe+9g7tw6WD5 0u8hRPrt69t7A4sP5UTlyhkLbF6/jn5sOYznLcai7+fTJ+lg6eQFMJq/EuYE fNUyAs5Cc7PeKg7DGl7DdKYOPoEpIdefNBuWpx7gwg0FrlwKxs1z/rh7xh82 p/xhb+kPx+P+iL0tfAE7Gim3YpB2MwYZlExRoilRyOBnMwl+FoHPPh+GDMtA PG/sVv3P2tSXNmXGVUsd6l+cXSznuyrGBUeuCnZMHvqUqMjNqYbV3XA4MGbs WmHJKsqSUcwSZynn+fz6mvO4t/EqrNdT1l7FNaPTuKh7EucWn8RpnZPYO22r zDij/de/MG4mMD5hdD8R8HFMVon50BHQ+fJj4vwxpg7+BHNHDaKJDGXuMRQL h/G5gDdRF9BeTP8srLtP+vJTfPv5RzSJr2gSRHv0ZMwi4nOJ+LLpRjCYaQTT OYLDMcWK+azMFhhj1YyZMJ82AxePXEVUZAkUiiKEKfKRxHAZT3H0UODyPSfs 2LRePl6s37vyuEPYnZFvQ7DHSP897BUo3yv64z0kfDeTid2kfOcyPdY3PvKN nz8Skw7hBhirjejTKeuFG2HwUzOHD8BsmvDsEUyMRgwlK9OxYfGi3gWSA8tZ 4ApnZoTDWiw3jOcZ4eJ2czhuWySjvoY1h+UaE7o6kXfV0f1V9NErhZ2i2bgo X3eNeG19XlsfGwXh9TcJwjZvYps30jKvy3FEcm2jxcWw9eLuFMdh7WrG51W9 ewAr5i+GycxF0BNsgGNsvnAl9OeYY/0iE6ymgxfoX6W7CetMD2HTqgvYuvIc 66JrOH/ADZf3ueH6Hjfc3OmO29vccWezO+5t8IDLDj8EHQ5B9r0U5FqlIM86 BfnWyci3SkKeVQLy7sUh/04MCphhF1wJQe4ZP7xo6lTdq1t9hauPDaivcC2R 31PZgGQAvVawCG2tXXTyGbh9xRdXTzvBcvtlnN18AadWWtCTW+LGmpO4tfIk 7q44BSt6ekdagQutwMrYEvcMT+KO/kncWHYS1xaewqXZJ7Fq/AyJfpJvQvLN 6NnNCf5yygoB/YmjMXvA51g08GN68k8wc+jnvegvGT0Ei0cMxMJBA7F48CAs pRnMGtQfE774GN9RJlIm02ymDxyA+SO/Ywo0hWn7ZCxluqQ/wwhmc0ywQsB/ nhk2Ll2JnfpGWDl9JkymzsUO882wsvJHWFIlItJqcddFgRNnb2LHxg3inTdU Wz2qk/XiCWdjEr+P/P9eun+CuogL7vrYZyiInrgDJOz+3D1uId9BdZS4E79W zmyEnfiNxnLwkG8HM1tYvhk+GHOHD2WZMIwBbjh0Ro6A4ffjsXXZYjWLMKNF mEF/qh5Obl0Bzz0LaQdm4tK15Vppx058TtuwYFYpWIcFrWOfoQ5WThsL3a8H sg36b7Vhi3wioJ9wU5p+2G4gBK9t+mwYTWObrh5uSYFLMIv3RN8wAptXrcCW 9Ws1eoi1OktgNHkedIZ/h3WTJsF8+lLs2nQRezZdwu51tIa153GI6BxffQ5n 11+D9X532O31gONuDzjt8ITzVspmL7hu8ILbWspKT0QxIS92yEGJQzYli88z UGSfhmK7FJRYx6OUNWjJ9SDkX/DE/9Eslmo0CykAdrR3w9EqGKcP38XxnZdx hnJ15xXcptxYexr3KLarLWG36iQcVp/CgzWn+FlnPpuG+yssKCfhuPwk7MxO wtroFO7pnsJtxofjkzb1WoWpaBVjsPz7MVgxcQwrxf6YRrqXMN/RGfYp5o1k nkNLmDekP3SGfIGlIwZBfxSDAwPC1AGf4TtawfeUSZSpgkV8SUvio44QPEaM xSJaxtJv5ojImMw2hflcCq1iPa1il74UGEymzYXx1Dl8nAcrp0icveHCQLBZ tAZxC4qifhuRPUyu98ln/g9QpD2o98QdgEPyDSH68ZVA0kHRTPTe2pO6d+KE dEO/T6XTALzMevk0wEbVXquxRJVw+xvhNMAcWshcWsg8Wsg82UIWjBqBRaNH YsmYkVg3dxYO0zqO0DqE427LJizGoY0r4XZAlw2zXCtsT64VDvVarhVMwwQn aB6rZ3wDo/FDYTB+MHS/GSjldPJxhG3G0v13hLxOldX1Ew8jfMBx++VIwvq5 c7Fk7Ffsr7BhN4rjxc/TPLbSPFQ7KLuY0+2h7KVsXLCY8zsBMz8diw1Ld2D3 6rPYQ7M4sOkCDm84jxPrz+PUuvM4RxO5uOo8bq69Dre9XvDc7QWfnd7w3e4N v+0+8NvqA//NPgjcQFnjDcWOYOTeSIPSpQjlLgUoc85D2YMclDmmo9wuAUqr CJTd9sOjrNJ/+z/6ajAR9WNg0v/4zeAtExF+HlgF4tzhOzi56zLOU67vugKr XVfhsPMa7Ddeht2as3BafxbO7I4ru+ax8Ry8NlE2n4XbOgu4r7eknITr2lNw WsWAwqBib3wK1ksscWrqRhiL5jEGZjQPc5qHwTfDMXnAx8T7EyxjrrRg2GeY NbQ/FtBElrIONpA3S5YyeEzk300UzeITfuYTmgrLB8osyhzKIprHYsoSytIR rJtHj8PSr6dC7/s5MJjCOD5pJjbMmomVNA+j6fOwcu4CceqMJ3xHU5kofv1K Mg1iYqovTvNuE+k8+D7WnQdM5K8jmEqbZIfNDN/DETNh18JU2K49LJqJvmgk 4oaZoS72y9u1v5W3MATbUJ1B6JuTqW4LtYeyV7CPoXQRwwazbh9KdzGMQZH2 MXoEFtM2lsqp6PLJ34n2cXS1EBRZYqxdifsHjXB5nR76qduIBX9b0E5WzfwW RhOGUQQbGQLjKV/1RkfVval2yfem2iPmhGJ2aCjcVmiPcGcznXmin1owZJC0 TvcHaZuH5rGN5rFTXn3fI6zAGxvSnRiyvdOweKwudq08I0SKftjPcNEfRzac w8mNtApidIk4XaN13KJ13FlxAc6bbBC41wfBe30RtscX4bsF8UP4Lj9E7PSD YjtlM99b44Giu9mo8lSiwr0USvdiWotwS4AMKB1oIXahKLPywIvWh3/+vxmI 9D89nigayPkzF+Bw0xMXDt+iYVzChd2MFbuvw3r3TdzfdRtuu+7CdfNd+G27 S4O4Cs/N1+C99Rrt+hr8d15FIGOLz9bz8NlyFr4Un61naTSn4b7hFFwYWZzM T8Je9wQ2TZ4BExqGGQ3DdMIoGsJnmELgZ7M40BvyGY1gAP2StJCuL+/sqAxj MjOuKYwvUwd+gmmyYcwe8CnmUuZRlrDmXjp8CJZRdEcM6Qc9Zut/49NB0Bnw BYyGDcWGcUOw8uvhve5928J5WDx8EBaRQ9Npk+TtPCJiKtsF53Yf7eCA+DUd 4U4Zh82M+uGo+HUJc6P3xNu3fCjuqhwRbyMk3L1FT7xZxiEjmobBMrksHSCa xUYT3d7oJF6qN18zEKOT4GnFCMXHFdMnq5mGlFgtYNgQTWOsZBrCSsSKKd9J pqFjgA3LV8DmkBnubVkinky1lM/99RNt4w+0jPEw/I6j+t0wCq1jAodj3mQp GTJRK5ckry/kjv8fa28BXFWarvs/le5z5syduTPn3pkWGocEEtwtxN3d3YUQ XINbggZCEgIhxN3d3YEgCRYCBLeGpm166tSt/63/8621E9I9zDm3bt1UvXvt COy913p+r3zr+96PD+vlBysskDJG20VzpXMmGf2Q1Xy5204ws70gP18FG8ze aOtpG3jeTOeaItz9ADZ67scWgrDV+xC2ex/EHvrZA157EeVzECe8DiHa8zDO utMHux1BgmskCtako2JjAao2FaCaVrM5HzWbhOWhbkMe6tfR1mSjxi8NN2Iv 407WXdzKvIWBdAHKZblZwcUaDFzIw5sr1z7VWXfaWEB+vamdMLHm0VwRT3KS CrHFfydLDCJNOI6FnUJM2BlcCItFSlg8stYmIDM4AWXrLqB20znkhJxGXthp FISfRtG60yheH42i8BP8VASGkSc/7Ajy1hxCdsgBpAfsRZr3biSzUE+w2ALP JSwL5kyDkdpkrJz8pQSJjpg2yXLDYja9/xz51ufI3SbN6eNlQAjHKjHoNHUc S49x0JnyjQSIPo8GNDMZDliqKtOmw0qY2nQYTOXvJzJCMTmzI4g2076C41xl 6T61w5I5MBPRSnHFvYz1EaIgRKzoGCVEWk1kK/WW2apYUSTdhPycD4ITuZOH fAdyi4OldANccBK7a7uixdb80Tkd/g4jnFhKSI7lRISq9WPCVZCJgcwKEdef MQP6TLEMyYnxHMGKGizIiRVrOjG87GegBR9dM7jYOuHkRmecDrYancm9U8yV 9XIgJ4tlTpYKk1mxWjyNmY++4r7Xx8yIiIy+F5FRMmCKtPJfEGyiDzO1aTxz 06T0V5w9eQxTFUH+/nL8sJfv4ApGNru6Y5P3Xmz22kdwdyHKdxcifFnIMic5 RD6OkpuTHodwhnzEuh1FgsdJpu6ncImW6ZeAum2VaNhRiaadwirQFFHOYyma dxSjZVshWjfnoXVdFhqDU3Aj4Sru5N7HQPZtDGSKLgo9GEhrJjPl6E+89F9y Ii+jH1kPPLLF3vv3700VV/Fa13UkRF7ErqB92O7HnDA0GtFhcUgIO4/ksESi cgn5G5KRtzYZVZvT0L47BdXbU1C4/hxKiE7p5nMo3xKHss1nUbIhmuicJELH GW92Ic0njIlYEGPQDiITgWTnrThi5AmbRWrQUZ2MRRO/xKIJX2LF+K9gPO2b 0RtiVoobYgasS1YSlVVTv4I6UVlNTDQpfx2a3tTxGOm6azWLV55mO1uFV9Z2 jgq+4kWcxGDyNUyIifW0iXCaOREOM8bBevpXcF6kCstZzMnVhE2F+UwxADZF oVoZE3GxRxc/CUzEvXkx599ZLELZ4cKQstPFVklqv/Q7RQOmkTv2lthCLjbZ mmFooF8xB3QOju3dwRTr42wUkdoJOEdfVSExEb42CZkJQGm6yuRF+SMvBgpe TMmLOXmxJCvWC8gMbS1f097UAYfXueL8GhNpouMOiRVHuGmRlaWqsCYr1ktn 0FRoyrAgL6H2H99HuMyskgBFSSSYn0sZ5gLmyPNgwRBvoSab+BIx23yGPIlN sBIuYomCk42OdtgVsAV7gg9hm9cexo9dOBmwB/sCjmKvz3FEMj056X0MMZ4n mMufwnmPaCS5MX3xOEO5nGUeH4+abRVo2duEtn1NaN/fiI79DTzWon1fDTr3 VqJrVym6tuehc1MGmsOScKdgGAP5ouuIoptDTgfZqSU32SOsjL1voWDlq9H7 k/8yZlbRmM0o5cBiidToVERtPIr9IVE4EBKNA36nEROSiIthKUhfl4a8DZko 3pKFYh7rduSi+0A2mvbnovVALqp3pqByexKqdlxE5Y4LMjVbYlG86QxS/Tch NWADUvzX8nkoMgJ3YIuhHdPs2VgxdSLmf/NXLJ7wFZaM/xLLxn2Bld98gWXj ScTkCazcp7BEVZZKFynjGkOKtiBl2ngY0IymySPRlgwQ0lyvefJcLyeaHUkw Z/WvP2k8zKZOgAP/1mXGN3BXmwA3VfloozIJVrPFPMRpsBTk8NK7a6yU79Yq aBHzCqRlW7RtH5duSTdpPxO9o0iNq624XSvdqpVbRm0Tt2olaKRpLopx0umj M2oC7OUhArkWUgjVQQZmw8gaxbGo0tw1VkFPgkZlFBojQmMioCEwFjQrAmO9 UI1/MxmW2jbYFeaO9I0m/GATsdbGmFo2JSCqsFoqJnpYLZuJP/C5Cms4Zbjp rVJMqhgBRqF5Aa/i/ShJ+EplGR2DDcLMDcX/w0s1H5Z8tJwlM2TFk2nJ2CNN 3AgMpPuxkyZpCH52eAWz9qVbZgayy2s3jjLunA45iP0B0TjiF42TfjE4TVbO etJle8azHk5Ais95pPueR5b/eeQEJKB4bTrad9ai60gXuo90oieyg8c2dB9u oTWh52AteveWoTciD13bUtG5Px8DRY8wUHhPbkJRyCKmoIlMFePNzb7RDTzH 3hxRgPTlJybl4eMebGPvmVgoqv7rXX1IPHwB+4IOSUhFhibgRMhFRPsRqzUZ yNqYh4It+SjfUYiyrQVo3F2MK0cK0Xa4GJ2RxeiKKkb7kXw07MtENYNT+fZE 2nmUbj+HjLB9SFvD4BO2DVvMLWE8bzZM59GLzZ3Lqz4dKyYSGeZSqxiANMZ9 CW3ipTFhHDTGj8Pqb8Zh+ZdfYMU3X0J9ioyUBnHSYuDRnSqQmgBDmsl0GSsH BizH+czxeDVtZkxhoJkEawYVs2mTYDx1CkKmKSOBedq6JZPhPm8KbRJCma64 qU2Ci8p4ODBftFWeCCuVyVTglNGpOqMLziSk7D8uOpMXnn0mbil/JvXE+jep MdtOxR1lQdd2ZyuZLkdp2s7IDCF/OzNphlCgYu7FyDiSNFXNfgzNUooov7TI Ee3kgPvv0GP1r88Sx4BEGZMo0/kyVZYkyojuQYvnxGylGTYGu+PSViu6jMm0 iXBeTeUvVWXBR5j+yEfWjwTKnj9eMzIv0+FjojUKkwz2x3IOi+Cvqw5rRvoR E1iJL2tCZaMmwxTg64t1LHY2ONrTM9lTXrtxeM1BBiCa136c8j2Ek2uiERUc hxN+8Tjjdx7xfhdxwe8SLvmns45OR2pgCjKDUlgipLIcSEVhWDJ69zTgyu4a XNnL44EWXDl+BZeP9+LysS5cjmrFlcN1/HkpocpGV0QSrqddw0DJAwyU3qEx KJW0ETCpo8YIS/+4Bex/xdLYQWYLxXys2txKnI2Iw/6gEzgYEo+jIZdwmgyd Y+V1PjgTmRsLUbyzDJW7Rb99Zpz7K9F3vAKdRyvRfZx2rByd5KntcB4tF3X7 M1C1JxUVe3gCtpzCca9QeOvowmzRPJizurRZtBj2Cxcwa1aGhjQwzHqGvIgV t/oTvvwMuhPH8W2t+vqvWPUV7esvJIQ0iY8OTU9CaCKMGXlMaFJ0YtliMW0K LKdPk2a/21BqdnTeAi9nInScL5WrNwN79Bi9iJHTAqK0RA2uC1TgOm863OZM ZcQiUsrfwIGlWMCC2dhkbDw6MWOri72SYEiekPHZ6LpNYUri8TOpr9wcmSWp YddYlizozc0xdEveiVrMCAkgTEHSdLuRSUyK6XYOY6bbOcoMi9BIjOSwqJhq F2ZuzBRPRfrwerNmQp8f1pAJsDFTOzPB1QIx+DKJJ24i9BjNXI214LJMFfaz J8Fu7iQyxxMmmDInU7/n4wyYkSlfBpuwsbP+FAmZiNBKEtX/qph++tFEbuu2 YqGSWIIgHlTASzxHZXRA1pZo+5OpYEuiTZ52egexXthLpg5jNwufQ15HcCbg OJlKwPGgRJwiS7G+yUhg0Z8UkI3UoAJkhhYhJ6wIeeF5tFwUrM9B0YZstO1v xtWobtw42oH+yFbcPNSIq/tqcTWyBb1HGWiOk6uoWlw+UoLeg+noOZ6HgQom e5VipvgNWicGyqvx5u4A/t9ClXEiFcfWnSFUMTgYnIhjwek4G5qLxHVFSN1Q grQNhShkGVfFtLRqTw1aD9fjenQt2qKq+LwM7ZFl6D5RiSunq9EXU4PLZ6pQ e5D54EFCGX4U5ksWwWLJQljRbGkOS5awQllITzZDGgwQgwkiMBkwSBlN+koJ hpPHYRz0GLu0mBZq0jQImPoXfE7cdAmVPrViQDOcLMceKVNXoZMU9/xmq8kz DZn5iPlaTrNnYif1l7ZSBXGmzHZmMW7NngBrtYmimJo/g6fTat4MOPCZ8zxl uM6dBjf6c+cZE3BOexlO0xfsW74EOzU1yZXD6Oq+CLHCz13MoBR3DSdiNx93 e9iPmqAsQtw/dJMbkI3OJnFmvHJmJpgvX4bje7b/w0TB0E9MFJSWvDpLgI/G SSUpSk6RUA+zMJbOgy6zQV3GLh01FejOnA4dxmd9MY1SrDKcKt8FEreJrRdO p2+bBodFU+CzlEFltmBtGkwXKcOE5ZMPARuZViunwHajgG12UrwXZ+m9iNm1 wteMYG/L0/mZeOT5nTsD/0MqWe34mnazp8PP0xO+pgYSYAeDduBw6D4CFoVd nkdw1OsEzgafxQkGopOBqQxYaQxYWUgMyBntZlu4qRxjv+r3t6HzZD96Tl3H 9dPX0H/6Cvqju9F/opWw1aHvYCn6jlSi9zDBOlaAniOJuJZ7BQNip6xaZn+1 PRioqsWbe7fwqXHr/zOw/vF+j4q8qdqJHOz3P858Np6fNgXHQ7IRG1aIixvL kLGtGrk7a5C3owIV++pQuacObUdbcDOmGR3HG9B7uhl9Z1twLbYZ1+OacC2u EVfi6tFJwJI2nGKuvhw2y1dKixbsli2F47LlcF66DG5LGLVE5iJImcwCacLX MGbkMmWWpwQTBig1GEz6koR9Ad0JXxA+GgsujS//Cu2Jk6A3eQoMpkxn2JoB 05mqctoxb5Y0BUdMMROTdt1IlvMCVQQrz8C5BTNQYD0LIatVYSdC1OKZfP0p cOTPHWj2JMtuPtMYOlwbZoh2pMxx7lTEkIwLTua4ZGOAZGN1XFi9ECc1luGQ nqZEl0TWZwIsJUGU+NaOAogQHf3cR6CSp6xsdbFAXYEMVIAtA5adxWjmNzKN MUyKFHYKoOzlJbuKNeTbFevI5ag5aXQao/haxVOycsJErJo0hZF9OnRV5DFw nVlzsEplOrRmsQybOx0mC8RYgzL93DR4aM6DzZIZsF00HdbzJ2Mbg9127dVY s1ydQNmNeR/yDGAFTEoS2Z+P5sAKU+LpmyEeZmKetLxEAGY3VyyhY3LJM+rt 5AgXIz1sdXXHoaCdOMwKap9/FPZ5MFh5n8HJkCScDM1CNINUjF8OEvzzkRRU xNpBbhycu1Fu11u8tRal26pYX1SjYqf8uxvxT3Dz3BNcPjuI3rO30Bt7HX1x V3Ejtgv9Z5oxcKoKN08xzzpdSAbTcVU0wmwYwkDjLR5ZWdXWid4Z/2/Q0heP UpY+ZgcHeXeQm+3XkH28EPt9o3HAPxGHAjJYZ+UjLrwUSZurEBdUjpzQKpQw EBfvZijjse04P0NcJz9bF67GdeFafBdunOvEjYQOXE9ow9WEVvSea0KYmTNs lq2E7YpVsF+pDiceXUie27IV8CBxTqy7zJXFgNw46DNuGdBMSJvp9PEwmz5e ib/4kuXLCHA6jHY6ohwb9w30VVSlScJmc2bJn+b30lxjEblcF8vTON1o7qqq OEbR5Rio4qDxXNGzdYkqvuDjTFjMGA/HhTMkk3iTmFOROBM8WjBl9NFbjU1u Lojycka8tz2SPayQ4WyMLCstpOkvRdyyuTjOzGuvtVgssUcsStntaY/xdMv2 EncRHvJUGNHLUJoo5sZ00VVQlyWdfk8zIzjr6dMMaUYItrMZMwdzzORhZ3nV 6DbFylERTtdZmiBQW1OxGGESPGetgOucVSROGauVZ0JDTRXac2ZBb/4sGC2Z h1Uzp2GFClPGWVOgQ0eiO59hjaHMcMVcGCxVg73mYmy1MMAJGxOcMdXFGe0V OMEwvmcpf66ugY3O9h+p+xhOlWTWhAf4nCeQTmyBwubPlOhTgj3B+zfm6kTO 2RGuRC7C0x+Hg3YRuSjs9jqGQ+6nP1cM28b6FY5GqZENiou2t6J0RzPKdjag IqIBVbvlPso3z7/E5Zg7uH6gAbdiB3A98RG6zt1CZ3wfeqjKK/GduHmxHX1i G6TYPPReyMFA80MMtJCyZlLWUI/X929/arx86m/HAD9X/NE/rhX5J+2H5dtq /e03kH2sDPt9zuKA7yUc9s/GCWa78RsqEOldhgTbGnRvrkXf+hRcC4jDzcBY DATTQmNxMywGfeFn8CCqiFaAh1H5uB+ZhztHchDrGQ6nZcvgsHQp7AiV40oN uKxczUxdHR783mv5CoaaObCaybDEMGYkQtlkEc7GwXTaeJhKiSBzR/7McLLo PPO1EvT5R39i5JMn8pjQRYsbuA6KSaRjJ0kLupwZLXeozESq+kwkWM4hXEvV xIMqz4jlzPGMejNluhbSDQu8FkuA2c9XZgI5jXCpYzP1vNZZrO53xno3Zxz1 c6WbdUKary1yPM2Q56iLHPMVSNGYj9MW2jigr0nCHBR82f+aL3cxL8gMIRb6 2BSwFWdOlsN8qZhcsZpBXwPWSzVhvUSL2bQ23DQM4Geg6NDH1xdznAVfPkxX /bS0YKM8F44qS+AxW1O6iiGa5lhrzHrJ1pEOwQku+hq8yqtZlI2DFssynfmq 0GNgX8VUbYVo2Ld8DgxWzYXWohnQpNnrroKTpTXcrOwYWR2xm6953NkWsQ7m SLDSxwVDdcStXIDIVUuxR0tTXiE+hnXBlwPFJyiT+RKDj3xGwvjtbClbcJBM BZ62VnC3MsNmW1ccDmSeGHwSu9xO4Kh7LAuxi9IHOhlSIh3jAspxIViOWenr ZKoKtsvta0siWlC+u5UZViuq9rXIv1ufirw1JRhmAfYfafW4cekJ+pIe4srF e7icOIDOC324nNyF3sR69FwoRndcIgbaSFwbiWtlzthYNzpX7hO4jTTgGQvU fwqZ3OO7v60fOVGViN1SgAM+qTgSmMtysxTxm6oQ5d+NSzue42ryC9y+2IOh s1V4HF+FFwlVeJtYgQ8Xy/HTpVL8PbkY5zQskTR5Ebo0zPHt7kOKF/0TQtSX IGzVEqxdtRjrVi3Cel6qkKWzYKM6lQCNY9QiVFMFWJNo02CmrCwyRqaNJM1E uotlxF8L3gxENGNxJmZH2IkVCAul2dlwXjKbcM2Wpmc782dBjHDxC1WRZzMH 67TnwmPZLJoa3GluREwUHjJgo5Ax1RRhjIQxp7JbMB2+CsLEmm8xgXO7u6M0 3XmThzN2eDOsBbjhfLAzMoPske9rgSJ3QxTaqiNbfyHi9OXW5RJhHmLEzQIB xnrw1NGAh7Y6dgVtxckdsaRqFWyXrYYd6bJfqgVHmtNSbbgs02Gg12U6qw73 1ZoMBMtgMW0B7GasZJTShfcyUwTqWGONuQMLJWdFFPuTdP9WJlumO9TaGK76 q2G6chFWMYlTZ4QxN1iNyIN7sG/beriZ6jFvtVSSljD8SQqgIXa2cLKwxRoH R4Q5OeOAuxPOMC29wJQ32d4IKeYaSNJajGit5VLWTMA+E8XpvwisJKqYXDlI abgK3E0N4e1oj33ua3A44BD2eh/HXpdonPA4hxOBGTgaKO9kErumGqd9SnDC PROJoXL39Owtbcjb3i49L93dibSwHPlj/k9c9LuI1DVZKNhzH48LX+D/6x3G jZRn6Et+RH7u4/Kl2zxeR29KN60JPcll6ElMwUDHA5ro79GDh9f7RlAae/dK gdJIV8CxzVYM/zOUZOr6WweQfaR69C7qybAyxG2Wu8PLb345qqI70BDTgdKE drSmMsxmd+F2QTcelXTjrIETEqeq47rqany7cAUezp4DP6ZR4ivQQEM6hvG4 zpAZheFqbDZcha1GK7HdcDns6T1FbDKjmTMJlGYC0cdazmZJpcyf00ynEbdp LM2mMqZN+QrGU77k8Uv+jYrM06Lf8jQbbmpqiGI2lGU0CwdN55GhWb/maZkq nBYqSzwpMdSJlIUozecjYVqogEl/BCZ5rqeASfTV3DnSW5O2TvRH8nKi13XF +VAXZIY6ojDQCiXexihx0kS+2WKcV5+DvRqLEaKxAt66GvDWUYeveSjCnROh P3MpDGcuJ0SahEiLdak2TFWXwHzWUuhMmssPuhhWKhqsAw3hvsKC78kOQZZO CHFy4Ws7YbPoyaR4L5/x0QFTFLOyFTOzCfIODzlUbnOzRF2hnIaW52QiyJbF n60lgm2tJYrEciBB0hoWXmsd7KUlQcEOoiGPE8JdnXGEDiTexwHJXtbIcDVB lo020gyW4jRz4qNGWthpZSp4Yk64UEC1kCdV+Kg/yUQxr41wCmU2FIndDE0H nWMQ7XUBRwPySFQpw5Mcks6F1iExrBGp61uUFLlgfEC+9Oy4czxOu6dIz5PW lyNrXx1KoptQmdSL1oq3uF/1HNfT6PfTWIWlPkBv2l30pt9Eb0YvejNb0JNR SarSpe2yRAMJ0b/o1fCjEaLG3sZSECWVVr+T+f04MDhy58rwE6FL/k7eLfim 2GH1kOhr1yX99FBAIY6HVzBm1SIpQu4KlH+4C0VHOlEa2YGa4z1oPXOV+etV XLvQi6sX+7B9ih7OqZjjsZYd/re5Bf63mTbu2dODzZgh/fug+YsQaGiIECOa gS6C6d3Wmmhgvak6M7IprKwmwFxlAixUJsJyxgRYswC3UPmG1dY3FL7Z9HH4 d/6NDJg4mknPv4KF2pSPcIlp4wIugmVLsLbNUMOl1WqItxZgzf4M7stnQTzK XDkvGWXKgXj9d9iLdGgRuVpErhZOh4+BOjZJLUPlOaLbPRRceX7kSklqIDqJ pYLcAGqPnzP2BlJ/a12RsZaMhdig1N8EpW7aKLRailStOdivtRDLp7pAfcop LB+3COrjF0Jr8jxoT54P9W/mkacVMFHWgfV8Ezitsoa7AdM/a2f4OTtjjZ0d NnuM8i1NU8UM6a3skrJPeeHD2FndOxRobfcgWu4f0SoTaNlYECurX6NFrCS0 iNU60rDeyYEVloPUtncNn29gNrze3UXKiM8HOCHdzxa5zIjzRUZsuhyJ6vOw Y4kafOarfSYQoybteX4dJJsBdzMZsq02wTjsexQRjscR5RSH095JOBJQhKNB FTgVKrv1C+ubkRjezPwwBwccLo1svBDpXoDo4Eqc396I9Mg2+cf/jivpzzCQ /h3tHW5mvMH1jBe4mvGUXD0kV/fQm92Pnpwr6MltRU92FTnLxEDPPak90/W2 zhF0xo7CK/j6XDGHb4Sgsce/KCLXyFC8mLv04sULg9/8kzFBTRHVVHG9aQBZ Ym/awzJ4BwMLcYzgnd1C3xLRLP0sj9AVRrajJKoVddHdaI65jOtJl9GX2M3U 9gq2TGOevtQT92yD8L+8/PC/fRzRFeGLU9a6iDaRo1v0snmInD0Lu9RXYj1B 9F6+DP6aK6UGEgI8M2VCN3MSrFUnsioTQ+lTYK7MJNGcYe3P5FIEvAnS0Uz5 G/4TBripX8J2EbP7MfPRHcmhv4oazi5SQ7btXITrzBPjGstnK0nk/U5Bnho2 25vAcbEq2VOVZGEvRTf7xaIWF/CJUTZvBXybFfBt85AAVJLo+0xuOqkwicGR zYo2iZ6mDhaI8LZHzFoXpIY7Ii/MBkWBpjhjuZT1Uyw8ZyZjxbilWD1hGXQm rIKhsj5M55vDWt0WDoaOcCFsnqyHfM0tEaihh2Bh6np83zYjDkAGz04CT5oM qwBPTBPfIRnB8yR4ngTP05ofwRJDd/pHwQskeGLTawk80QrWVsQ0gucwAp4D 1hM60bBGgCfWckjxnRYuYGSivIF2PMgVF5koZwXaocDXHEWueiiwWoE0rfmI 4On2E71BxCleTPp4gp21V8DPyxN7ndczWTyCPfYnpXh13Efe4zAqsBKn1sij h3td5QZJ602Ssc1Gjm3HwpsQu6cDySe7UXCiF2W0qkhKMvV73Ez/gP6M79Cf Sf4y3+Ja5ktcznpG7h6RuUH05A+gu+AKrY3PyV92Fvp77+F61w28ePIU/wmA //Lp9HAse+JLzIBiaNT/9dCILI0V0t9m7qlC9kG5ijzoX4iotRU4Q9zOK+Jc 7pF25LOCLIpqkvZ2bDzbjWuXuhnjOtCb1IPyfXk4tcwN9UZ+GHD0Q42/L46E B2C3uwMi6WjFV5yLGc47GiLRWhtJJiuRqL0QsUvmYOccFYTNmAYH5clSRz4r tYmwnjVNuotiwdgn4p7FDDkOmimYMxMxUIWxbvpXo7w5CN5o9iqzcHjWLKQb z8YJxyWfwU2g5rZCoOYmrr3OYsYlBxmzxbIO7BYL1OyohD/wURk2CtQ2KlDb 8hE1efKqYgKrTJx8ASL4fwqTPJnYzOcrhkptBNmzsGeciQp1go+uN2yW9sJP +xa0VUKgOVUPFstNYUO6bJkWuhhZwVPfGH6a+vDX0kegFmslbVLGY4gwDV1p Et8OT3mOuaPYyU8x53ynl8PoiowdXvbY7mVHs6XZMARbYbO7xWijIwk1awVq NgrUGOOCGd9CmTKGEbVwBWobJNQcR1Gj11ESubSSxPxfsMnTGRGMeSdC3JC0 xhm5ofYoCrBAqac+iu1WIktvAXavUkMAT64T02g/H29sMffHFosI7LCMwl6b GER552C7Y9ZoHx4PjQsIMMjBWpvy0T480Ye6kXisi1LsRfHByyg73IuKyF60 xA6hL+07hrX3xIuIZX2L61lvcDX7FXpznqE7/xHRGkRX0QC6iolZcRu6i6rR nZuNaz13cHfg/mgvhLGj9mNzyDFZ4sdA9evMcSQNFcP4DQ0N0pYVltLPliNt Zxmy98llZfLhPkSGVSCaJdq5CHnf26wjLciNbERBVD1qz7ajnqXalUud6L3Y iq6kTvTwedGhHOSsj0b90RxmP/Igl6OeKbzMbaTnG1hNHPZxQoyfAxKZeqT4 WCLd0wSZznrItlFHpvESJDMFiVyiiq1zVeAjuifNEHRN5HGiTBjNdCSakS5j 5a9IwiwSMVtaYWWlNgubZ8zChdWzkOy2GK7LZvNcuC6fjf8G1xUs3ciYZKRs s4OpRFmwiaZM2WKJMkK2ZAZ+r1grNA1BVsaK7slU2EjHUEUXZSWh888kzmTC hMTDbUwVhBnqUMk+fPQTRtL89LSwRCUKq5e+gY3JGxgtT4CWijG01fRhPk8H Hur68NQwgI+mAfy0DBCgbaCEIB0D/u8huvoI1dFDqLYuQjW1pVfGH0cxl+eq O0hjHTJbMl/byNc28rWVfMUf3vmZQgkSWtZWxIto2chR7LdorVOgtZFYSR5m JKArMmoJL5nx+dJrB9uZY4OzJU6sccOlcBfkhtmjONgSZd7kzGElUk1Xwp9s uc/XwU7TXdhncRRbDE/CevYRpswxsFmeCme9Ivjb12BDUAt2bevEyf1dSDjQ gcxdXcjZ2438A90UWjdKjnShLKoLvanfMn18iz6mjdcyX5OrV7iW/RJXcp8z VD1BZ9EjdJbcQ2fpADrLrtLa0FVSjY68LHR23sSHD9//ii0xLfK3bI3cRhib QI6EvLFD9zJMX+JG/RAyI2SYck7dQdqJfpzYWI3YHbXSzzIONyD9YDUKjtWj KqYF1TFMa5PI/MVmtF9sQ8elNnQm832mtOJk2B44rdSEl46x7GamwN/IAoEm TP9NzRFgK2alsjzwccaJYBdcoAtPC7FHTpA18vzNUEAXV+SkgQImUFm683Fi +Uxsmz8dwYxeUpSaQZZmfGRptbh3pjIFWhO/gcWESYgmW+m286m8eXAmRS4i ULmskB5mUUeGrPbc9FdLw2mueurkR1WKVLZLhM0YXVZkSZDCqaX1rnLXZ6n1 rhjZkHQk6q9/kduSe421ka5Y3zBYaUsgeRvq8qhLtHQJFI96rLbUe7Fw3mus 1nwGV7c30CRQq6YZwWOlATxWG8JT0wg+WkaMqkYI0BU9/owQpGeEED1DhOoZ YI2uHtbo6GCDlZmS9Cb+MPrywrbTtpGmbcxLt3rb0Wyx1csam0mUSAxHkAqw Ek2uLYmVNbGyQZACqRAitYZIrVUgtV6BlORPxiC1TToVUqYs0J4nffJ1dqaw ZSZoy8zc3VibGaQ5jq5h5rjOGTlr7VEYbCFJNmyZMfaaRWCPxXEEa8bDbmk6 nPRL4OVUi+CQFuzc0o5jlOSlnR1I29OFjL1dSN/Vgay9HcglXgWHO1B0pAN1 Z29Tdq/Qk/4KlzNe4moWK7Hs57iay2qMOHUVDaND7GhZdg/tFQPoqLhCo2TL qtFS04zvPvz4xSeG4uUucor1oJ+OSuJLRCTxndXH5O8z5Jy4jby4IWSfuaWQ gxFSDtUi5UA5co/WoOxMI8rPNKEjSdDTgGZS1MLnrclNaJOsER7aBvBmKPLW N2PGYy4hFECEgsyIEFPPAEM9BFJe/vo0Kwtpe+udfs44HeaKZHGqwx1QyFqk JMQcpX6GKHPXRIndMuQZzcdFdTVsWzgVa9QmQ3faX7Dky79A78u/wvarL+E3 /guEzByHo45L4MRQ5ESEBEaWLKdXM6QtnjIOS2li5oKOMDVl6KoqY/W0SVg2 4Wvoq06G6bxpsCZGVsTInQmfuLcluumNRUkMLIi4tNVzBKfJUkfr7XKyhzAb E35uLem5Nz+rF83HUGzoSNPXY70Vhd6EG9jl9wDzlz+HjvlL6C0/Ddt5WvBY RYRWGxMjY3hrm8BP1wT+eiYI1DdBEDPBYFqIPlHS18caPQYnXW1eNfEefq9g R7at5GcL+dlCfrZ422AzGYqLjFCU6Mz4WFSILRwkfqxlfoIU/IQq+AlX8LNB 8DMSltwVGZ8AaIEUmUY2OBBf2xmYAoy1mCWowobeyWaJqrSQy9VoNUKZ5693 MpSmGnqsVidBu7DX8iT22ych1LUKa/1rsC2sDsfWNuD0xmbEb23FRVKUwjoq XQSlA+0kqRXZB1qRe7gVBZGtaL70Au0pz9GZ9hzdGc/Qk0Vycp6QnmEmdY/Q UfIAbeX30VZ5F21V/bTLfM4sqrIW371586nOggp6fjdKxV8+wZHEDFbjeu1j kn0FWVG3kBNzH0UXhpAf349LkU24uL8SiftKkBFZgcLoWhRF16ElsR5NF2pQ d6Ee9Rfr0ZBUjxtlN/C86yU86Sm9eKm9iI23oTn8jIkLo46vIb2p2JCMMvJn GeGvxwJAXH7KaS3Ndf48uOioY42ZJnYyqRdfqRudkbfREcXrbVAWZo6yIEOU emmiyGEpti2fCudvJsJt8gSsmToB++aNx6aFX8Np7mQ4EBuDOVOxZCpRoS2j rRSrGFWnij0AlGA0SzwQnD9DY+I4rCY2q2grv/kKxnOnwMfCCGucKR8XBTZE ZiMlMxabLRI2Ap5/pWuXkfHWZ9Bl1BFfnob6SmTGgDm+2JZ3u3MIuhNu42ri XdxIvoeCDRVI3JSO/tMp2GtqB/dVxpSTCYnhqdMxZU1lyszPlPWCKQIlM0Gw AakxMCQ5TOvoddZJ0z22ivEJ8Q5+R0Tspea4m4nMZiKzichsJDJDdwYURfWf EWBpiUBLsf+JDQIFLnZ2MjLEJczJXnYVUtR1pKtw/JjCukuf10MkbtsUDfCl Jvie8mcXuLqwELISTSCXfFzIZbNqLhwtTKWIY7J8JTYZhOKg9XEcsI7DPptE HPTMx6GgKtbmdTi1oQlntzbj/M4WJO1pQSoZyTjUihwyknWoGdmHmlAZN4j6 pKdoSnmC1rQnaMt4jI7sYXTmMmkrfIj24iG0lQ2ihay0VN1GS/UNWi86atpx o6UJI41hx96qUsAyXvGrsQtBzH89ZwkauLRJHr/LPHUXuecGUXLpPmozH6Ai uR+px+uQcaIGKQcLkH64EIXHC1FyogCNaW3oLerDo/ZnGO54iuHOp3DXpo/U pY/UZ7ljyBhjTDPhc15hyc8SFD9CEsirHaJvgDCqKJwWuFIDTnNYesyZDvt5 8vxnF/VFCDRdjS2uJji93hnJm5yQs8keBeut4L1CDAzNxcblc7CTTmz/kqlY u3QiPGZ/IcWTpdMICG0lbRVNX22qtFuL2HFFrNwyZYxRghkf/zuMZ0yF9sSv mep9Dc0Jwr5hDTJfahQudW4eA4xoGL5Rmgi4ScwBFE2cJ0vtm0Ns5Lmu4suD H9KdkHgY8mSIfVsZFMSeJj2JQ7iW/BADaY9wJ+sxzoZl4crZXLQfOge3FSZE xRQemmbw1KGX0TVjQKKnEUGaJzLAkNgYMtDw/wvmCQuhtwnWExMlxHv4TG4h 7SW3kFbCRm+xZHIjadlAWqqLc8izTMrxHTtJC0mxskagja1ESyBJEXef1ojO 6CQlXPGBN7gpaHGXaVGSfMR8iZetniMmkyJYFaS66KyAo6E2PBmk/P18EeDv Bzc7G2gtWwlfHx8mH+Y4ZBmFPWbR2Gd3EYe8inAosAJH1tTg2IZ6nN7agPid jbiwpxGX9jchjXRk0mPnHG1Cc9oQGpKfoPriMGqTH6E+9REaMx6iOfsBmvOH 0CI2WCu9h8aKO2isvIVGEVXqb6Kv/Qb6Oy/j1ePHo6SMvQX1G1L+cUb6jF8F GGEv738vO/OoO8iIGUTehUGUpQ6iNvs+0qKbUJ/Vj7w9Rag9VI5r0RXoP1Mq bRh/r2UYg63DuN/2CPc7HuHCgRi4Mx13Z3Dx4CX2MDKBG1NxD7LhxQDipc/0 nt8H6RtKuUUYL384g04gK6Gg5atGZiCLe0imMyfARHUCzJeqwpsFZojZClgs nQfX1SsQorUca5fJgzuhiyYxbvxVwmO5ApHVNAMiIhp1ib4r5pKJ3TiUeUIs Zon1c2aiZdGkr6FDTESDckPl6dCfNo2vZSRhEkbFiL0c1o00Olc0O98ojCrZ SIUEkRJ3fS24sWIRG3mKDT3FlrJu+kbIOFCN9guPcPnSE9xIe4bbWc8xmPsS J/2y0Xa2FK8TEtF6toVBxQzumuZMZc3paiwYnyyY0lkwhSMtJMVfIsVYulcX SBKDmO4pSe+ARJCQDd6yKWG9RMk6UhITuUu6rCN9Ev3NrUiJNQIYTwJISICI JyRExBNxAynMxWG0ipMokegQnHz2MZZKZcwWvu4s6SqF+3ogNMAXwQF+8PP2 gpOZEaxWL4AZU1o/e3s4Mf22I5F+zMG2m21EhGk0Djim4aBHPg76l+FQKOPJ +mqc3FKDGBbQ53bX4cL+Olw6VIfUI8xfsodwtfwlrlW8xI0q5l55jCGFw6hK H0R19j3U5N9FddEdNFXdRWcjTewk1zso7bDQ391PSrq//sTw9X8Jx6+zL1mR q5ByYhDpjGp5SQSD7yDxRAMq0q8jPaII5YfL0UUoLkeX4HrpdfQ3DWGgeQi3 WmntYqPiCrgwkLiyNnWlz3OSJnBSLYTCjcHDS9eAUBhKtWsok+4wphHh/Lv1 hMdv2SrpHaxVXygdbeaLbs/KMJ4pugrR1MZT6d9Ad8ZXmP/NJGjNmMaCYh48 RQegFXPgqDwVXlMnjZKhqTwBxqJ93RwVmNMs+NxSsfjNag4TLmv+4E/iKW06 zAmi4fSJfLnpjCs0len8fhq8CInot75GzMlzHe25roR1pONfsZ4qWS9yDd3V cGES5Mzw6KxvqMTS1YinPnl/NRoTeDmTnuNK6kvczHyDOzlvcT//W6RQDlUx 1XiZlocXFe/QHt8Jt9UWcNeypGexhIeeJaOxJfM1Cyl19SEevuJEUW7+Rvqs +rSl4LWOb0G0e1dCuLdYORFOONZ62eJ05G7WL+LS/hH3+gfgZ2HNytAG/pSq v50cPIKIhRQtFeml5AZcRRd5fswFUsAUu2xskjyBXI0EBQQgKDBAQYYbNvjw 93xJB62FMF3KGt/WF36u4fD1iuJH2Io9PuFIXLMBe0xTsd82FwdcirDfpwz7 g0txMLwcUZsqcWp7JWIiqhC/t5qOtRq16ffQVcLKo+wprlQ8RV/VU1yrfoLr dY9xo3GYmdMj3Gh7iOsdD3CtawjXe+7jBomQNoPovYu+rhv44fsf/g+o+MfW QTN/RcXIc/H14uFPSNx/B0mnBpEWP4jcS4M4xXdbmnEL5SnXkMG6pDyyFK2p HeitHcSVhkFcbR5EXyutnc87B3mm1sCJYcOBBNhq68NeVx+OOnpwY3nvxZ/7 MQULYkgJYRoWxkQ73MgM65mKeS9ehfVaGqMD9T4aK1iG07fPoy9XHc80aTz0 1FiGzxyP+ROmYIloHDJPGSYLVbBaeRo8VPnvVeYgZOpkWChPkVbtfCSDVAib K6+r+Fxazva5tL7CZfk8hJrow2HxPCUGqumUvIlY9EMyAp1F63cmUNTMGjdq JoxqUVV0f5c7wDvqavCT6tL4ScVYlWMois4Moip+GE2Jz9CZ/ApXM96iP/s9 7uZ/wFDR96iMvI68U/V4nFOJN1nteFXzAzrP98BF0xKu2jRdGrFwJxYehhas bMzgRSy8jY2YtBrA11iHuRF9C99DGLFYI5kdQolERXHuHxRjn0e3R5AIG/hZ 03EzUPiThgCHXxMRpiBCZt4R4Z4uCPX1HkUgzNdT9qEzFbGJr+LCd2amD287 Z2xZF4Nwvyhs8o3CWsOtOG21EZsCg7DZaQ8OmOfioCNjg0cNDvrW4wBjxMEN pYjaUoaTO8qQeaYH9bnDaC4YRlsR64kS1t7lj9BbyThb8xBX6h/iatMDXKXn vUrPe4XautJNjfVQa73C7uFKz23c6r+n6Mn96xsv/yUG/2SzGHlQ+fmjn3Hu 4F1cIAnJJGHftnIUMlaU5zBiFbAiKhlEc8UgWmsG0V4/iI4mWgutjd93DCIz vQJ2WoyiGvqw1NSDlaau1KXYRYt5t7YxfFluBuiZsSI3wxq6vrVG5lgnBru0 WHhojUzu/xIbzc2wQVRzzFutF6tBf9ZEEjAOK6h+9ZkzsIiZzpJZNGX+bLoy tFR04aaqjo0z5iFi8jQ4zFSWeg6JraSsaFLXOmmp2Tyx1EzsLGU3Xza3lQuw zVF0LZE7YnlrrYSZ2nSpEY6pCEUL58GfmglkQhVEzQRTM8FSvRHiYQ8VBBMH Wx0Nmi5sdPSxK+gY8qLvoDjmAaoTnqAp6SU6097iatZ79Od+j3uFP2Ko5Cdc vvgEyUyj7+U14R1D7uu6n/Gm/ifaj0jenUxnYskwawlnA0u4EAdX4uBmbAp3 Y1bwJjydJsxD7Yyl1w+SzA4nj+zBPRbhckvUP5CFXfC1tIEvI4MvEyY/iQX+ rZPMQiiL7xAvDwSzLFCS1M9k1MeTkcdJDoBSBJKj0DqCEOJiBXdzAzgYaMPf yQ2JMeVIOlOOhMM5iAyPwVajrUgy24TW4HVY67cG+yzO4aBVMQ45V+GQdx0O BdTjcEg9TmypQ1HKfaYh91GdNYS6vCE0FrJcEEV1+RA6qobQVXsf3XS03XS0 3ZRXN+XV1cUjYVBCD1H4DN09TJRuPZQ+7TcKxY/cJRE2+dcwjL0h8p/BIA+b r0BRxhPERdO3byxHKmNCdsYgCvIGUcqqpoK1f3UVywvGgzq+zTqSUEsSqhkT yvl29+49DeMVOrBYQQWv0oXdagM4a7Ks0KZHYzXpx6oriHlyKC9tmLEFwk0s EaDJskJTCxsVE0fXW5IOWrilKdZamjCf1oLV0qVw1TKBqw7LEsYU+1UaUBcr o1UmMx6oQlOFla6qBjbPWIh9U+jnZ6owOxKdt2aSgJmwFY1OhInJ9GLu75/g sWqh1PFqxOQePtbSSLO31gqGiLkwmTkVLkyPvUmCL0nwFYtg/NzsoQw/dzv4 0vysXbDTfw9yjncj58QNQnAPJbHDqD7/HE3Jr9GZ/g5Xs79Hf/6PuFf8M4bK fsFw5S9I2NOEa3mdeF/Sitf1v+BN49/wuvFnvGz8Ec8aP+DC3iRs9d0MO1YT 9oTA0cgUToTA2YRnlBB4MCb48PVLi3LF7g7y6pY/IWrHLvhY2cJnRPsODgjw 9EBggD+Nft7XByGe7ghzc5L23FkrdoUVIwhrxbqmtVT8DHjb8qWMmOry5fyd 3XAxthxpZ8uRTd3nU/fF0eU4434CaeabcCN4PY6vjcT6oHU45ZKLSKcaRHk3 40RYF05u6MKZLZ1IPNCLnHMDTCwGUUmXWpNPl1o8iMZyutXqQbTU0bUq9tlo pYhaqflWar6Nmm/rkXvkXx94PDLXeexA7K+kLst6pNkV/b/ZryevfHIHp2V4 +uRnBIUk43TCIM4lD+JSJisG6j2bbzGXes+n3gvo+fP5NnPp/bNo9Vefory6 lxHagXWuNixX6MFa3ZBe35g6NYWnjjm9vgUCGNWDDS0RamyFMBMrrDWluFZr Yx01vd5Unxq3wForc4TRQqn3yKBwtCfUwlnDBM5kxpl6XzV9ElZT5xoqU6hz mrIadJT14amqhW0zF+PgNBW4z6K3l/bmUIXtAlXqXJqOq0qfGGSwWrSrUpiN 1H5nh9glRWq/I3Y9s5T7vNmZY42thbRBgxKKCnL5UJjLCHnn9oB0prIPZSMn qgE5R3k5j/cj99R9FMc9RnXiSzSlvEVnxne4mvsD+gt/xt2SXzBU/ncMV/0d MSwM2nJ68V15NV41/h2vm36h/Q0vm3/Cs6bvMdz4HkMNb3C3/jnKkupwev9p nNl/nHYYZRfO4fXdm4qtUpahv+8afN3cEeAvy9nf0xP+ri50ywxVorehIoEL obRDKe1QZm+hnsLo9iluJzMD2LEWt2Pdf2J/PFLjypFBy6W8iyjvMsq7ivI+ R3lnUd63KO/mY+U4veUYLmw7g8zwShzzbMHx4C4cX0eJb6bEt3ciLqIDWecH UJTNKpPyrqR2qinvWsq7jrqpp7zr6dLrKO86yrue+U1Dp3zs7X88dkvqd+/e /TNpi45UohHozz//7Khw1mOToPbL79B1/R3yap8iOmsQZyni2EIei+5JmwBf pT3/Vr6h1995HdmnCuFj4gWzZfqwWGkEG3WWuBqMt2IDE6alvvpWCDC0QpCx NUJMrbHGzBpuq7QRaqDDBFBd6lUcamWJEIo3Mngj3tS9wMu6Z3hW8wSJEbGE QlMWLxN0DZWpFO9UaNN0p6tBT9kA3mo62KG2FEdUVOFFZ22zQCFe6tZDfTE2 WBsryY2jIlzFHmkj6pWUK1pyOFrKu1LZiW5rNz//ODNgInIiKdKjA6NDoVWJ r9CY+i06sj7gSt4PuFn0E+6U/oz7lX/Do+q/ofbCfVRm9DIfacbr6kd41fwz XrX8hBctdMctP2C4WWyQ+xZ3m15goPkx7R4Gmm5goKETAzWVeH7nuqL38Z/x H//xH9JlEjXa2P3T89Iz6LZt4cF8xIv5iNi4x5eRxZ+RRWzeEyitsg50Z4wJ ZJI1DfasVCz1tLFj7Q6knaNS48uRRbXm04qp2IqYCtScqUBDdCUSPaKRb7kV 99ZsRufJajQdLcbm0A3I35eEmv1VOOLTjKg1nYja2IVjVGz0rk6c3duOtKQB 5FEohVRsMb1dKb1dGaN7GaN7GRVb1jqoJIX2z/j0Ht59+Jv0KUcUO3agX6HY kZRk7EC/8ydydrl0mYW0IxeQc7IMOdHN2OETCdNlRpSjCWwpRSctC8Z7McHN Cj6G1vCjFANNbRBkZgNXTX34GeghxFgTgVZW0r2Xq6ldeNf4Dm8b3+JVwys8 o095zCr74q5omC1ayJxhCuU4lXKcRilOgx7laKg6D0ZqWvCerYedc5bjqKoa vOlLAww0sd7ahOKzxy43+8/5YIff89FW0WzJZrSV2WiDGAdz1OZlKm4H/UVS 3kDzbemYc6hXOuZGD6EwXt4UWCiyPes7XGaxeKP4B9wu+wGDlT/iQc2PqInt R3ZyN4Yb2vG+WWR/L6nD/0ZFfo+nLR/wqPkd7je/xZ3WlxhopSKZgg20UpHN HeivrfiTYhxRiFGML6ekpEhXIzY2VhpAEBFUjor/isLcXBzauwduLBg9nOzg 6UyBit4VPiLf8XETo5Nr/PyxLWwbMs6V8a1kUI1TkBMvtFjBfKcKFWdrUBtT h8bT9WiJbkCKZzyKrPdgaF0ELp9pxJWYRrSfqsSWNRvRSb1eialF9q5GHFzb jkNbunA4ohPH9nXg1ME2pOQyAtNxZZYyCrPuyqEXzaEXzaEmcxvl4+1H70Z2 whs7hP4bDY4dJRzRoHCw4ix81OA3yIhMYUyrog7bkHPqKmK2l8DPci0s1M1g Qw06sCxx0bdmhW4NL2Mb+FCDvtSgsy5zUj096lIbebuP47umH/Gh+QdesA94 2/wer+gynje9wuOGZ3DX0VOCB2ulP8BDWw8WixbBmpK0WzSf6bEGPHU1YLfU DD5zWU3NW4Xjs2djr6XYPirCzV5qT6SE3e5iI6ndTPtEC5VRJY50e5CUSJ9I JW60N5XvtEyShJa9twY5+7tlIZ4aQkHcE+l5feobtGW9Q2/+e1wr/g4DZd/h TtUH3K/5gGsF75CW8gAP+t7g+eX3eN7yHZ638tj6Dk9av8XD1rcYbHuNO9Iu 9sM0usT26xhoaUNfTekffiPAsZ7wxYsXkgDlv1HD7VsDKGDeUVCQi9uKdOPV s9fIiC1AVnwpsii6rHMVfF6JvPhqlMTVoTK2gYJrQtOZFrTGtKLzTDvSfZJQ 6nAIj7YcwLX4Tlw/1yE1LOg+W4+d4dvQe7aOPxPtQhpQf5ypzOFG7I5o53tr R+SJbsQyOz3Hgj+BBf95OsPzDOHXh96h7/63io4Mvx59+79S23hkHM5gcOIV Od5JxV1D4Zk7KI9/gPqLT3Fk3XmEuWyBjZ4VC05rJuI2cDGht6MlsUA+6L8f 3+c14MeKa/jQ8jM+tP6E960/4m3rBwYsBviWN3jMIOWuYwAPXQMIyRngj8xI 9eCjrQM/Sm1kG0jRFMthmTl85hti1wJ1nJg3F5GLF41qTQl7PCTBSX177BTC k0Un9exxVexc5myBzU5mv1NEBklkezrk40kmzrGPpee1qa/QmvUaXflvcLX4 LW6UfYtble9wr+Ydhup4lmve4xahedL8LT0cjQJ72sqP0/oaD9pf4l6H2A9c bEb/iHaHgutDP7P9lw/vK26Y/O6fxl6htr8qgKgvakJ2XBHdF4POuUoeq2l1 KIxrQnlsC2rOtqMxphOtZ7rRGdOD3tjLyArIQLnrcTzZeRT9iVcwQLt18Qpu X7yM9AMXEbFuOwYuduLmhXbcTGiR9kXoZ3i+eaoA145l4IcnL1XHCGhEEb8R 0NhxK+dP6E0W0Di+YgayI+soIrnoLDh9D+XnHqE+6Rla01+jJ/sdrhd8wO2S H5mG/4zHVX/D89pfGBL/jvwDzXib146/lTbjQ9svtL/hXftPeNv2A161fSDe 3+Jxyysxo1rHUNTJlI8nvZaPri78dCgeqeGS3FFNdIdwWmEBn0VG2LVYA6cW zMfxZYvlvjR7RIcaIaB/k8QjdcoY3U5JiIfCcWHt4WwuX7z/IYkka4dimubx u8zKH0nPq1OeoSnrBTryXqK36BX6yl6hv/I1bte8xr2617jfQIE0vmZIfE29 D/PN/x7DrS/wkJ5pqPMZ7nY9wa1ueqjuB7RbTH6voq+lWRGmfx0jT548+asY +aXiOr2mO8o6m4scSTgVtFrkxjcy/rUy/nWg+mw3Gs5eRsvZq+g4ew09cddx 5dwN5ITmo8rrDJ7tjcbtS/24k9yPuyk3cS9V2A0k7UtA9uFU3EoWndC7KKw2 DCTUYSC2jALKwVB+NUaUMzZ7+r9SzjeoS2mk16tnftyDnGM3Wc8zxUsYRt2l F1TOG/TkMBAUfo9bpT/hfgWVU/M3JlG/4GXjL0jdWYMnOd34e2k5vmv/Bd91 /IJ3HT/jbcdPeNn+PZ61vcel/eeEbuh1dI2EeHQNWUpQPHq68NfV+NU+iSNt TpxXUUCLjbF7qRaiFy3AyRWLP5PbrOzxlMVj/1E8I82NFPtxbXEx/1xxOn57 myNts7zqK1tMuzozJD2vuMRPmvEELTlP0Vn4DJdLnuNaxXPcrH6BW7UvWIK+ wL3GF7jfROE0P8eDlmcYanuK+52PKaJh3BabwfcMob93EP3dA7jeeRnPh4cV QwmfjnUjQhqnGKhuKCS3Z/MopFIagwC9Tl5cOwpju1F+9gpjWh+aYm6gnflf d/wtXE64jWuJd5AfXooa/3N4figOd9PuYTD9Hu5n0DLv0u7gRvIVbAvfiqrT ZRhIvYoB5o4DSS0YuFCLgfPF6I9Lw4/PXoxoaeyA4aRfa2nsgOF/piWxZXb2 AX6aw0JL/cg7cx+lCY9Rm/wSLRlv0Z1LLRV9wC1mtfeZ1Q7X/oin9aypmn5C azKThUxqqaYe7+sf4n3nT3hHe9P5I152UEvt75G0P4FaMpK19Gd46FFLegbw 0RezjDUUbT3kDe9HW+aw5nelnryXmmD3Mm2cXrII0epLIAmKXkEoavdv2vbs ULQV2e5GPblayF5hZK6rlIkMfUDa9sujGwLnxN9H0cUHqEp7iPrsR2jNH0Zn 8WP0lj1GX+UT3GD9219Ll1P/BHcaqZzmYdxtpXU8wu2uB5KCbvbKt/hu9N5D X3c/bvbdlFKFT8StiQrhZJ9Jp3DykRPLkBVLjOl18mN7WQn2ofLsTdSfHUBL 7B10xt9D7/n76Ls4hBuXHqBwYzVqQy7hZVQiBjMfYYhv+YGwnId4mMP8LmcI 19Ousyo8ij6xH0M6xZNCT5TcjIFLVQxruXhz9dqIcMYOv/1GOGMR/OfCmYMb jbeQtbcWOQcZvo7KwimhcGrohJoz3qAr91v0Fb2XstFBZqMPa7/HkwaKoukH NJ3vR3tyF36ub8GPDVcpmu/xLe1N5we86PgOT9vfoTGtRZrM4qFrTNUYycrR pxcy0EWIhYmsnDG7AG53l5Uj9juT1LPcFLtX6OD0siU4rbGUjshLFo+DLB5a hOeYhfbSamArSTzyHeoJqIq9hdTdN5B29K40Lyc3geV1shhjuI/63CG0FDyQ Jp72lD/ElaqHuFbzEDfqHuJm4wP0t1AfbbROaqR7ENcUm7T3dN5CZkYRjhw5 hl27do3ViBwNpqK/6xqdHbPLmBJqRTga1jNne5EXcx0lMQOoOnMXjWcH0Rb3 AF3nH+HKxWFcS6ZcU5+iaCuT4rXpeHUyFUM5z/Ew7xkeCct/SnuCh/mPGY0e oji6BBEbduFqGrWSyVQoo4PWgIG0EvQnJY1GKxFFR4YGFEIZuXU3tl2FyyeE 8kfFcF9GBEWyj0ly5A3knuYZZKSquvQcTRmv0Jn7BleK3uIms8i7Vcwga9/j UcN7PG36TipVys6147v6DnzPmvht53sK5D1edzJB7vgWTzreMjl4Lc94okjc dWWReBrow5siEduCjRXJVkkk8lLxCEUriA329vBaYYZdq/RwesVSnNFcKulE LGAaq5LRpatCJR5W2OxmIe9Q9jUq4wcZMG9Lc1TSYlnXJvIjpgyiMnMQdXmD aGIN3MZSpJNlSE/VIC6zBr7C+vdKC62d33cOoqP9FtIzSrB58zasW78RUUdP o/fyVSGKaQpRDAhRnM6hMOg4YpppxO5MH7EbQMmZe6iOeYDGuGG0JzxBz8Vn UhOdG6kveVFfoXhnGxo25uD1mSw8YN7+qOANhguZkxe9pr3EoyJGyqInuFf4 CBePJCPzeBYGclkE5vbSGH2y6UDSM0dFMXa86DeiGNtnweUTfy6JQnYyf2YR exeF5x5K3zWkP0d77gtcLnyF66WvWVO8wWDtGzyof4thFuCilsg80YgXtV34 paGYfvxV51vWcy873+BZJz9Hxys86HwBN21DhSLEPDhDeFANnvo6CBcr96mG jdLiYUWnnU80BtnoYA/PleaIUNfH6VXLEbd4Ng7YmmKXl73cReC3C5mpho1u 5rJX/AJl54eQePAuLrJkSokbRBbVUJjK9CxrENVUQ72YVSjm3lIJbVRCO5XQ 0kA3k1KCTZt49ddtREJSLooqOlDXfgfvP/wEZen/nobGXF766ALKgECdbqdd pt1E3um7KI0ZYskzjKb4Z+i4wAz70mv0pbzBzXSWZ1nvULKbme3WIryJy8ej wu8wXPwdHhezTCshSCWUQwlPX8kLDJY8we2ih9i6bhsqWKwPFDKOFHZiIJ/Z bE4+Xt24PPMTIzafUMFIDf1PVUDX8PLBO7le2H8N2SfuIC/2gVxkpj2W0rtu pndXS5naVbJorHmJwXq+y8ZXrBFeIZPp1WDNA/zc94jJxl26hJd4xuLySedz DHcx5et+ioRDZ+HGAsiNGay7vgFND37mpvKKcopBWuL6244Wnh87WojltUIQ fmbBCLffzAu9n+XObmzxPoytPlHY7kXziGTmEolNjkew1SUUtfkVf1SMHF5m SRN/6C4SogdxkW4iLYnuIX0QRTkURKEwhtCMNpYrl7Bh4zaEh29E3IVclDX2 o7pjEFV0D903n+Ltdz9CRSGC7GMXWY8zMJxqoBi6aH3IPXUL+aeYt515hJrY p2hOeImOi29wOeVbXEt/j/4s5m8536Nk3xU07izDm/MleFTyA4ZLf8CTMoZl huin5e/wuPwtHrAsGyx7jjulzIVyb2Lr+m1oy2jCQCkz0RIeC4vxZuDazE84 /F+JQF6ELuKDuI9Hl+D8CR3IN/v/p3TN03f1ITPqNh0bT9B5OdVvzHqEdiZm PUzM+soZ4aqe4nbdM9xroMNiel+c9hJdPT/j5dMf8Lj9mRK9wFNMxyOWikMs Fe/1PEJlVpU8/U9HTAHUh7uREUIc7KSJ/OGUgLxuTCz2dhjbV0GSwTZvH2z1 X4cNwVHYEBiJ9V5HGBkOIdJzP0667cZRn8OI8o3CMe9IHPWMRJRbJA47H0HS phzUJ3bh9YNvFVL/MwoyhxFDPx13fhDnk27hKK/hzl3RCFu7Edt3HkFCci3y KvpR1ECH0TSIgmYxRHoHtx6+xcyRax+VjJwTZTT6/5PM108yop68g4LoB3QA TL3in6P5wmt0XvoWl1OZt2d8QH/2D7id9yNKD1xH4+5qvE2qwKMy1oTlP+FJ BXP5ih9oHzBc+R4PKt5isOIlbpc/xS0xsafwOiI2R+BqSTsGKhgHSqmdOzdG rr1IdUcq2d84AFHJCgcglp59ygHIF36ldJEvbe5F2sFbyGA0yCEl4qsmfQhN ucyuCh+it/QRM/Jh3KwZZjb+GHcaHmOw6THuNzOVaX2MB23DeNA+jKHOR7jf /RB3ex7gVu+QNPFui28onLUN4MTy1VdstC56uTjKV36dtOJJrEB2GF00Ka7+ Vr9wbAmNwrY1UYig7aUdCI7EAZ8jOEnw47wO4ILbHsTz6sf5RPL7SMTSCST6 x6B8XzlKd5ejeHs5Ws91/v/tXWd0W8eV/iJLliw7sVPsXTvFiddxkk28m5Nk 0xPnxLtJfM46TuIkjuMSO+5qliVbkWXJ6qaaKUpUYxfFArBXsKGxN7GDFSDB XkGxSHJ+7533ZqDB0wCE/y/OeST4CMyd+e6de+9338x7mPXMYT0fseCVbxOi mzZvx+7DGTh+oRZn07oQnzeABAoLCcUDiLMQoyDHOH3lI35DItI8K20fK4b5 eBUd5PaPdyLjRD9p3ovC6DGU0Yx3xs+hLukKmlOW0Ja+jK6Ma+jJvo6Cw11w 7Ldi7mIZvEUfYbj4OkYtdJSQ9kvIC5QsYJByrwFWjLFMwFUyAleZB1kx2Xjv nXfhKq0m7Rdjtq9LaF6uYRg0L/NOoXmWRIororrm9WW1U55lJO7qwMUjfUg5 rWu+IGkAZRQsHZlu1OS60VDoodzaQ7n1IDorSLO2QfQ4BtFbSQfl1721HuJj buJjbk3jbU0szyZk0grxp0dovv/mMW3Rtb6BR8x7eZ+frv1/vLYL7246gl10 7Nl8BAfp91E6Ikn7Ua9FIPIFmqN/O4yLzx1A6l/fx8UXDiGRtJ9Ac790txmO Q0WwHShC+d4ilO0qQvH2Asx7fHJ1KlhJ87tcyemHErR7I5qPUL5/9DIp3EWK dpOSh1F4dgJlMTNwJsyjLnkBzWnLaDNdQ2fmR+jO+SfyI7phP+TAXIoV3uJ/ klI/wkgJKbmUpnkZ0fbSJQyWXUF/6ZwWSV0Vo3BZicbaehAXeQFp7O6PpRbM 9HepigtfDFQyc+liV2lwJT/q55JTg1f1qX5cz5HZK/8SBTjTAGxZA6gi868j 828k079cRkqkzKidMqMOypE7qumgYNhWr68kbKKjno66hn5U1bmw5YXX8PJv 9SXErzxJiibnvkHbe/JH/6r67c+/gJ1vHMR7myLwPil375YjOEy/j9NxipR8 lpQcQ1M+lhQdS9M8+fnDMD9/APnP7kXm8wdhevYgGk8UoeF4EeqOFaE6ogiV B4vgIGVbd+bDXdKjjTNUDfL7XMvdVaTVw6TlD0jLES2k7W5y6G7K4kZQcHYS ZbGzcCReQe2lJTSlXUUrTeOOrGvozr2O/KPdcEQ4MWuyYchyDV7S7jBpd6SM 4l/5MrzlixgsX0B/hQ89lCu57GNwOYbo6EVTSR12bNuO4uQEXPXNqCoBBi3L lYCnFR+/w19jWcU9AVuNLL9M8RTLSc/FpOdy0rOD9FxFeq6l7LeedNxIOm4k HTeRjhv5IrkaIsuVdDjovZUy4Pq2fq31Y+/uxktP6AtjX9GWifv1fAuv6TC1 HqBDvNj+2/ObjiJu41Ek0XFpwzGkvXEMl/5+FBkvHkP2MwdR/Je9qKS0rprm 9eVDJrREFaE5klR9gj1KhdS8Pw+J26Kx860dxmrgj7hGXc4OmGjqmw+RRg+T RmkusnmbeWoE+ecmURo7Bzs55pqURTSmL+FyxjLas5fhyl1G3vEu2I85MZNp Iye8jKGyJXjpGCZNDpMmvRVX4CFt9ttm0e2geVs5DlcVabSql442NJVZcWTv HtYdFTvjGhWLzuWr+X9VaFTfNf45THivIT+V8udIPXFNocQ1kxLXfEpciylx LSsg3dBctZcPwEkJi5OSFWcV6YwSVivpsZwOlsAWVvbCt3BNN49/Q1+nCy8+ rq/pfOlJaW0ze8zCK29rOtu3OcKvw+NbjuHU5uPa+/hN7Nm4J5G6IQqmjaeQ sekUsjefhvnVM8h+/gTsL5zA5ZeOofP1Y2jbHo3WM4WojszEhXeP4Z2NW7H1 jc1I3HES9vdMWBiaxc9EZN1LufT+SpgPkMM9rCsuixSXR4oriZuBLcmHasqh 603kdDMX0Ja9gE4iT7kfdsL2oRPT2Ta4Sxc05zpUTkfFPB0+DBFvddtn0EdU pbtqEq5qcrg1pDgyaVdNKymvBoWmVC2MEvxfW1l5MqkSypN9tL59+S401vhw 6iRlmhdIeRRNU9IokyTqmU2TL7+IlEKTr4gmXxEprogyzXxSXi5NwixHP3qH ecR6AL1dLhx5bw9e/P2T2iLEl4kHbf3b63h/w35NIQdoch3aoisnavNJnNt8 Snt/cfNZpG4+B/Pm88h68zxytl5A3lsXULjxLDIpQS58cgdaX9qP3E37ceL1 bfgHJcBvbdiCtP1n0BRdgLZotsmtAM1HclDzvknoyZZAhPd9O8x7m2A+2EXB 0Y0Mcpm5FBgtcdOoSJqFM2UOtSYfGjN9aMnxoT3Ph+zIdlijnJjKs1Hw88Fd NgdPOR0VrLYwAw/RyQHnJHqrJtBdM6ZfBK/z0NFN74n8VtdgesijBW7SlYr8 fkw93c2dZ13DPMyFY4hKHMA50lE86SgplwIkOcgUmlyXSE8XS2myNY+xfPA2 XgiKIJ387Q9P4tW/PIPdr+/GXr8+TuDQ5ijtfTThH7Ppgs6rNsXBtCUeWVsT kLstEflvJ8K2L4McXQWO/HUztr/8Kt6m7kVv2YnyfTHojrfDfbEKfUlO9CTY 0BVThs6zxeiIykXL0Ux0JZdD83zi/i3pu6ww79Z3/OrV9XuRfXYMhbEUzBKn YL80jer0adRnzqApewateTMU7NpQcdqJyQIrektplpSRFsrpsBLJt0+SRojk VRPZq6VctI5dKWYX/Qa0C3+uulZ0VFX5b8bEHFhbW5v211cVtNSgHvkim0o9 gr5Wdcyj1jWP+h7t0JfifBm9Lhd2b9iJPa/vIegPaeM9SL7og03ntffnNsUj fnOi9j7tzUvI2JaCnLdTYdmbRXZ7CTu3vKP5og+efg3OP7+Oq9s2wHU4FyPp LRhOb8ZQWiPcKXXoS67Ri/dx5eg6V4jOqCxcPp76Y24FIjazlzXmMtLfrYVp X5sedSMHkXmGXFjMKCyJY6i4NA5Hml5eq8+eRHPuJCJ3N6P89CDGLP3os/RS TkiUn5h1r20Mvc5Rmg4jBD4BX0cuq8Gjpdcuyrpcjd3orGvB1MioXwGMDTAl MNC/Kp0TDCGEAp5WfPxhjnTaqRQkHLmI6L0JuoFvPI+IjXE6yhsvUUTQb9F3 ccclRL0ThXc2vY1tG99C1hETepPbUfFuCooffxPjz7+JheMnMJHlwnhmF0Yz OzCc0YZBUwv605vQk1IL10VCOr4UrvO56IxOx2R9h470jUuS054rSHmnGmm7 W/Sa1YkBmAjBrPNeFMQPo+TiCKxpI3CaR1GTNYqG3DHERE2iKP8ahlxX0UW0 tbNsBF1EYV2OYS2Kd9UQqSFn09FA5IXQ1S5JEnnpaHShqarev+JZwMPi9IMr I6ziYPISlm/xc531bTCxCw3Ref47sLErmIVnWmA5fdm/sWvrhm04uP0DlESS LV50YTDdA69pkJAcRMxvd6DxD+9g8c13MJtWjSnyYBO5/RjL7cVoTjeGsjox kNmGXlOzfpHhop2QLoYrhlxQdCJ+wlNHAXN76Qgu/aNZ+zuVXXeJIpjPEgmK 9aAwaRClKUOwpg/BmelFTbYX9XleFBXPUDo5jpbSIbSWD6HNPoh2pwft1W60 1brRSqlkK8HbTvC2NzOO2Ifm+g4sLS6t4VAwX25EWPYKX5ARvrH1gt3clIiQ ap3Qt3jgsrKqbVQGzKfpd7QD6aeqcXpfOrZu3IEtG95C7D4zLCfrUB/TA1ey F32pw/CYRuDNGMUI2VH72UakP/keBp57D9f378FMwQgdw+Q6hzBRQErIH4A3 rw/uHBd6s9rQbW6EixThYs+pScpDZ1wylicmfsydm5zUs+tb7JV8qAfJJ/o1 Dm6irCGHbbO9SPQs1Y0KsxuOLDeqctyozXejvpg4eakbTdYBNFP20ExpXxOl fU1sEXSDTs9WoVnf49LQg6Wla5qsWzlEzCuz4KlnhDenoAqgxVOviT+rLkgK oFOOxSPmcBIO7fwQWzZux6Y3tiJyTwryT7bBdnYA1TFDaIwfQdvFMXSnUnwx TWIwYwrD2VNkrVMwb4xF+VP7ML1xH5YSizFbPEnHBKaLxzFRPIqxIi+8hR54 8vvQl9uF7mz2eOJ6uNIdZNlk0cnpmGpt+YHBRLiXvoWn1uyV8L4LiRH9SKT0 OpnosCmGsjPKAhgltqRTxM8gWpzDbj/AbtJBPZe3rBHeNYR3TZ1GlVahtpFB XU1seHHpOq823OyXBdRyfsmhFjcxYB6Dw+wPjDLO3+ARVia52zdvx443d+HM gVSkfEhZdFQrctklyjP9sJ8fRE3cCJqSxtGeMoWe9BkMZMxiKHsOI7k+jOf7 EP+XD9Dy3GEs7fkA87kuzJXMYY7ygemSaUyWTmCsZAzDFi88RW70FfQSCe6A K5s8SSYZeAYZeHo2Zjra9JuZ3tgAJe7dX3jejdi9vYg7QunVSX1fYGrcADLI uHNTycgJaAvnMxUEtI2AtlNa7CCg7QS0jYC21xHIjIzeAmtdPxY4yLdJIMfG xmr2+8DKIKuSQxnkh7SfX1cuQik05+BSRArMH5bCHMnWuDYj82Qn8k71ovSs B/aYYdQkjKM5eQodabPo0TZ1z8Obu0BeYgHWw3ZkPHsMg0SRrkZGwle2AB9R Fl/5PGbKZzFJSdgY5QHDpaPwWIbQXzyA7gIXXPlk6Hl1cOXYCPh8uCssv+Bc gxHFswd6ce74AM5HDyCOLDmZOEc6gZtJZDGHwM0ncAsJ3GIC10JWbCFwLcQ3 LNUELLvEQY6ia4x4og7s7QqP/BVF1v0xgX2ATw0GbJA1GhA8tbOaSPzRbOKC FTCfqCXAW5AVya6zEq09NwRH3BhqkyiRSplBR7oPvZlE0nOIsOezaynLMG0z w/bCSUz/4yQWTdXwVSxhvmIRPusCZqzzmCRuOFYxTQR/HJ6yYfSXeNBdTLyw iKy7iNx3AWUjuUSD0uPxS450E7G6qMh+nCJPdjaekE4mczYRU8gitInZmYnZ ZRJjyCRKnkkmnOlgjG4AVe3jmFv8SDyejNMYnmLdDJMBVVWyfPPa2cDFd0ZU 1whUq1pgisglZG3E3uoJ2TZkn+xB/mkPSi8Mw5EwgdrkaTSnzaHDfAW92Yvw 5C1juPAqRouvIe5v0Wh7NRqLEWcwZ70Gn+0a5m3LmLMtYca+gEmbD2O2WQxb J4nhjRKnGEJ3aT9cpV1wlZDPsFTBVWhBW0ai/pw14mC1DT7Ut8zjOCF6krzv GUL0PCEaS4jGEg+LoylQ0jQu6vHi9pQy5bhfkY+FgeLNpnzzyjNmz6J8uI6j 2OEkFA/nwRxBXPgoW7PVgczIPuRHD6GUEn5H4iRqL82iOX0eHZmL6M1Zooh1 Fd6i6ygj1DNfOo/BbeexkJCPWdt1+Ox0OK5hzrGMGccSJh1XMGafg9c2DY91 HH3llKpWUOJfQY6g4jJcZcRLLCXa4yT/rgg0YcAhp6cCDtll3ssThiCLzjXP q8fXB5B+IBfyKyOS7dz0ojR2DPakadSmzKHZdAUdWUvoyV2Gu/AavMXXce7V DNRszcPUoUT4cpoxSzDMOQgK5zXMOq9i2rmMCeciRh0+eO1sdeoE+iiDd9nd /Ml/LXBZCYrSEswMdL+kSNQFEiyNFNnN5wORkHMEFRJ3S4YR7OqBXmu/J4AR pu3NIbJp17armI92audyz3pREjtOqMygJtWHJppi2vLivCUMkNMqjSYus8MF bywFuZx6bQ/rjGN5FcGxTEJmK5cwXbmorcoZdc5jyDELt2NSI4vsditsh4zL SYHCTqCUWzA90I2XFa78S4qcj6MibtLHFhaJ0TyjQOUzCqdj3BXzaQMq1oRq 4sfkeA7SlDnCESE7sRAiNrKT6lS2bNan7Zdw5V1Bf9ECSqKniUcvY4gczcxl Skjsi5hyLJJtLKzCDOFwB6Yqr2C8ch4jlXMYqqT8popVkgiRag9/kBaZibMK nRXFWJqbfkWRBKs2YRkAkcu2AhD5csudQfyHvEvjbsnkOmx9RGNtEA+KMH/Y T7yPeFTMGKwU16pSp9FgnkUrZWqd+XPoKfJhwOIjHrCIGvITQ04atX2eJgjF Muc829Tko7g9Vakv9R9mS/2rp9BfM64XcGoJjFpyHzXkPiqriKIV4VWF65CR EK7RgIQc5VVIyPtVgk2Ye/nUEqaRsrMCJl6/Mp/oRRZNhMIYtgJ2HJUpE6gz T+Fy9jTa86Ypfsygz0LuoIzy2AoaKsWbUfssxmg2sE0bq+jnDPViomoao1VT 8NZQLKol11FHnEPb8UCetI49wqYZnZWVmBxy4zUDFKyPYps067OItQFQ3BoA BaOhbMt0VlaWYEjy/FqnmDDGy1M6Kg8aaYv2u6PCi9SddTDt1wtMbKln3gVy sonDsF8aRY1pDI1ZxL/zJtBZOEm5zCT6SqfgLp/CoJVQsBPLckxhxDmJ0Up2 TBA6lGiSgQzVjmGgfgQ9/qX9fdoDSLpqm9DqdLzBh+P1ev0uRNwTQU5EODha lU4z8jUcJhZ7T5065SeRfPutCibjTgLVAvAv+unFKr8o0lZ6RDdMRDByznlQ FD+IiuQhONOHUZtJ/CdnFK0Fo+gsJhsgPtNXRiOuoMzPNo5B+xh50jF4nXRU jpK9jGCwdhhuspW+BspfGgmRJlZ660VnQwfaahsx7h3ewHvvcDj8QfY+yYzE OY6KfDNgoVtRvBN5Bruc+wyfQ3Lhgx2hcuaHuBNrKxlG8s4WpBzsRtqJfpiI 1+ay/bhJHlhTB1FpHkRd9hCa8rxoLfSiw0L6Lh1GD+UXfVbKgW3DGLDTyJ1e uKuH4K4lAlI/iN4Gyo0b3VpprFMrjfWitb4dvZ3d2CS5U5GOqW4sEwYM8hXt Z/ikYTCESGz/nec2ljM9SNrThWS2iiFqQLvjZV4C8RvKJ63E5isz3ajNcaMx n91SzUNIedBZSnplqxmsHvQ46Kiko8aNnjq3Vufu5NWqNum2OXU1LVhcWNwk DVB4zvsU1nzfyoOWzz1tMH42eGMO+h+84WKi1Qn7adTscj6xPjOxvrxEGnEK 0WjKoJ2UQdfkDqCemF8TZdCXiZe0Ei9pJ17S7hxAB1HrdiJ+7XV0nkZ7mUbL KkZNdDQ09qG6lt1B/uoWaaSCYt8bfKR3+qemKJvKcfOpEEkl2Ym+BuNfURg7 hLiD/fr6TVaaiaVJTYS2iAhtmVlfrVBJ5KCGyEEdDauBhtVIw2qiYTXxUlgj DauehsUqMzWN+i0wHLU97C7eWxUZkajaygmAPCQYn1R2cyh8Uvu5PmTYY5/g 9cnvaX98GnnxXpw/PKDdMimReGUasaAs4pX5ZLWWTBow6dBKA3XQQCtpoFU0 0GoaaDUNtIoG6qxjtT47r40QU6rqwfziNWxTpDmqW2XyUd7lV5xqbL8L4pVv 3gMdWH/VB/lZjA9/hNMRvThD5D3mAmk1US9PZJE289giTDJSi4WIfRkN2EoH keayShpMNZ2nQRbTUUjvq9tG8LZi7omBydGID0zkXOLRIOyvx8PI1dYqmtSX j9yF+rp5nDjVj1NkmBcukt7S9RudpEs3OsmioWTTULJYHcCub7fuGZ7HzJXr OxTJxj3hjUAw2MfCyLFuVzT5Qx5dRsY/Qm3rPMyl44gkRbD9uuek/boX2H7d QbZfdx67DN5czmRlD2/orswwfxVG8vMpRXcdihj7uZVFy1P10TASik8rRDsV 80eIlh3fvcFFPyKJDha67w4hWrbwEKL1f63xe1qRiLJQ+hMF8MYuCN8ne4VK hdsXt2a/uUzg74L8zCuW5LEu/DCIAuSg9nlF01UKN/0ZRVcDuhDotn4QIt7Q PL9fIbVaoXaVeRikynPzu2HMTVWVukZSMROl+5qPJfrbYfjpr4YQLXuku6Rz Yp4ZRMtT/OEwfKq8oUmwxVqFd7lzZdHyPPtGGIB/SwJXzJ86hXe5U/E5fYL4 7V8ujXwtDMf2n4om6xVm9qmVRcvJ1INhOLbv8O/JZKJeAleYmhAt24RBtDyv vhyGY/u+QnSDwqt8UjGlQ4j+YhgO7UcK0Y0Kb3KHYnIZRMuT674wHNlPFJbb rNC1KjYbRLOmheh/Ce3IHuFfkVOvy5I1CV62XtG7AKmrNQ7GgsfRo0fZb7nM F2xq/TKEdNnIwpDOXtK9uYLV1OTZ9T8KJFsUPmW9hIeYXTqs/qgizy7jXX9U 7uw3CtGtBjtjf922smjZxNeHgfn/KkS3KexMPJZIntghRK81jFrlzp4IIVpW txAtT2yDaLFDRVf+yu7sDwrR7QqfosrdA0SvD5jYwo1lZWVhx44dMtB/Vgyi Q+FKbl1J4lqt1fLy8gCP9eyzz2pWp9qe0ympU1jSGmmw4pxBDJu4jz/+uB8z dlYUVlRiuhR+wrjk6SYxt2pBkJX02OYyUbOhl+oCSpfUmjCONZJU0UudAvEI vxoFBQVa6+w3YaVq2aWY56uDtyxybdZ3BsmFCxf8HZZTkm6Fgm9RiOfN3sM7 zJoVnZbWI8kd6VFMUVEIkk2Mtywyc9bq/v37UV9fz2so6mZlhEWzskXyZu+V Osxw4KXHP/FvyGGzl6tbnl3aeb1VbhT3qREQXWBdFw0+oRDSx21bxluolEv4 Av8Ic1asywwJNnGYpN8rmuznPRKThzfHW/uiAQA2ZwiE3ynM3s0/ygbPpgeH nSOptSeVum/xD5/FiCcU7QlVMcfOBnPDAlb71ccvVt4jgxu8/iTg+C0/J4fh HulzwtGK7/p8Pjz11FOaNXNRGtFZLQ9HFrpaQo2plE1/0rIqFOlyb/PfnoBR 0sHBQf8tZRk/ZLPvRuVDOcxbFaAKo+KPNNf++pWiC43S50R76/hP0R3m8AVd Ze6YU9Z7pdmnlcTWS05PwM3OcFh/rRAvUl35Bg1rDOJlNCTxhoWkMiDreTtC Baxl1grTraoXOgi3B7TBpLOpE0S6eDzovf7R3yFpQSRowYe8WhMg0kj6vUqT cIu/ffYhnbv4+aCMq9Cl7A4rJDNmE+eGbaw2DscojR26GE4Tb/JS/63w7NkK IxMpu5w5rAq/EzoBxTcNJs2G/GiIHsg56e26SlirtwSoUJbHU2deCuBi1wZA LLQg6PvPQ8iX7XfdyqMV0vXCLy8KrDFCrpnRI2FK5Y9LZ0LX+ke8ZcsW+Uqi VGjy023hG2VZcpTP4X0Tc4MJEKWzVdo3VxtF/FSX8G1D+ODx82dciByZs+TO sxf7vOEyqNZ5fTGfn7DLYP1U0W6SNEjWjN+9yECxsKaSpVs8r1MFBhHBX+VY msSHK5timJJ0hsStYa0xcmhn2cdZD1T1giRDGAklSg9DvJk1ASFDzFiViNP8 nByP10p+OoRIPV2AWGvMPLrQLkn7L96wHPyjJcQDw3FwYeyzJOyPurAfSqYn AgD993tBha2/qSwcRICeruLHipC7WtFtUU+Ts40PFF5znWJ4coWYS9cKAFqs 0/2/3xBlv6W6MiX6IQci0Q/ZYFeHB7MqC9HdM5+Ga5XMR/To4aC9uT3Ap63Q C/8CLUU3fm4wcAZMKPG7JKWIpmSlsBxI3CHE0I0HgvfiEYML5EYfqgM3p5I3 tME6r+jAg7qfuWEVv5DESi5SZQSb+Tk5XK/nqpAXGqzQBX+OIndfrzn5C18y PRPxXU5fRFdYs0yU7tRuIMBeQcQ/7EeAy3xUHXu+wUXIwVQldk14wOtzhsu8 NSAaCZ9N31ZdSdCF3hEwR8OAWX9YH1dzIM0TCgwubZ3/NjdBWt+nt/5rtdGq Gn6Rn2MkRYw6TOwOSaaqaU5Uo2SXKrY3yQnJixw62TrDgO5I4Iw0rB0TwkV0 YojKW34Cha/zJ+6yMObtuLATIYWtkwCW4rygbMwfi4GpnkEiChCy3YQCXepX VMh+Cf4ma4Cd4QmwWPMo5wV/lOKP8NqrwuvLmZB9uZ0PSw5sQuPBOxKYAwUR jAshJd9h0A57+elmoFBR2ZazolvDG/1n/XYfYZwI4tqaHLrElV85c3mMn5N9 iIw9s+Ug0u9RD12Pwf76sYy9asneYxxz1ijzACEE+mtfaon6oqC1NxEgMa/Z OVGWlFMpwSXEZ4wKCNGjL4Xs0J+4+anSB9VaBEFI5DkpKvtyfhWmfh4I2bk/ Gxw0r8uF6pfc0DquNlEYDKW2h0J25CmpI5LaPhdmR4yFniCd+KZxqoj6vBz+ PhtU5h0BMoVFhZBXpkv5qwFlnkLIhTXRoOoK6Xf44NhLJYwXPfSVVnjW4HqF 8XOXp7r6+5CEgqj2rIQoF6ovW8FzfIQyjoDyKvdDfJxymhgKSi5IX7WA59Uu 9ZNBBa3TBLFG5Ial8ptescMLBldppGEBnB+qdYuBviMUfpJ0/cKpTnU0wxSp gpw+CBomQxa8H3cY6wYrlT/1y2v+opRs41+RvKnEfrWzojeiZixnVvfx0Qt/ HkRytyz5pkf7aV253+A+2ThCSb5TwkrY8mqDLoL05nN+oVVSvwKWaMo9vN8w q3lyKzol51l6p24PUOBKVeHPK0Q6wunXl9WuVBiMnHV8in+U9UXaMqAqIGsh IeiVCt6xn6l9vGrltaC6clhcreiiOCfn6LdI3V6hCKxi1A7jnFvlf8ebFp8W K35UtVxm2k8//TQ3wlv9HQyjUzdYNje0RxW9fJC3a0xkmJ527dq12oABewUp DasI9bdUQ9b/ohcnHb/0f+jr0nwWtk6dCKcwfYNQP2zoRzDTOK7/V1BNAT57 KarQL3IHYQzN7PWh/u5l/8QWidSVK1f8inzp43XrNcW/NtxAc00AmoaOqL67 9eOJetMvirf5iv8ELxLfOGv4qvbzE/r/Xw38Fj+rvX/j/9/jE/8HJxwf3A== \ \>"]], Cell[BoxData[ Graphics3DBox[{ {RGBColor[0.4, 0.2666666666666667, 0.13333333333333336`], Opacity[0.8], SphereBox[{-0.39676687095999996`, -1.6629966745199998`, 0.7892062693799999}, 0.255]}, {RGBColor[0.4, 0.2666666666666667, 0.13333333333333336`], Opacity[0.8], SphereBox[{-3.0252623534, -0.8296842003, 0.027758185214}, 0.255]}, {RGBColor[0.4, 0.2666666666666667, 0.13333333333333336`], Opacity[0.8], SphereBox[{-3.2669583087999996`, -0.25739957846, -2.8000070141999998`}, 0.255]}, {RGBColor[0.4, 0.2666666666666667, 0.13333333333333336`], Opacity[0.8], SphereBox[{-0.35848102219999994`, -3.208754748, 3.191747214}, 0.255]}, {RGBColor[0.4, 0.2666666666666667, 0.13333333333333336`], Opacity[0.8], SphereBox[{3.8648676152, 0.09607933901799999, 1.3578248227799998`}, 0.255]}, {RGBColor[0.4, 0.2666666666666667, 0.13333333333333336`], Opacity[0.8], SphereBox[{-5.893866421399999, 0.57818056696, -3.5237720722}, 0.255]}, {RGBColor[0.4, 0.2666666666666667, 0.13333333333333336`], Opacity[0.8], SphereBox[{5.600203001000001, 2.316804076, 1.52355379298}, 0.255]}, {RGBColor[ NCache[ Rational[1, 3], 0.3333333333333333], NCache[ Rational[1, 3], 0.3333333333333333], 1], Opacity[0.8], SphereBox[{1.3465242613, 0.50501037624, 0.9577131367999999}, 0.24]}, {RGBColor[ NCache[ Rational[1, 3], 0.3333333333333333], NCache[ Rational[1, 3], 0.3333333333333333], 1], Opacity[0.8], SphereBox[{5.616265672, 3.6819421383999997`, -0.87076684354}, 0.24]}, {RGBColor[1, NCache[ Rational[1, 3], 0.3333333333333333], NCache[ Rational[1, 3], 0.3333333333333333]], Opacity[0.8], SphereBox[{1.06809203246, -2.3014972954, 5.0043723932}, 0.178]}, {RGBColor[1, NCache[ Rational[1, 3], 0.3333333333333333], NCache[ Rational[1, 3], 0.3333333333333333]], Opacity[0.8], SphereBox[{-1.61078354514, -5.0950792412, 3.3625784444}, 0.178]}, {RGBColor[1, NCache[ Rational[1, 3], 0.3333333333333333], NCache[ Rational[1, 3], 0.3333333333333333]], Opacity[0.8], SphereBox[{-6.984427296, -0.7648477012399999, -5.3258147858}, 0.178]}, {RGBColor[1, NCache[ Rational[1, 3], 0.3333333333333333], NCache[ Rational[1, 3], 0.3333333333333333]], Opacity[0.8], SphereBox[{4.6528833571999995`, -2.018227368, 1.59906724394}, 0.178]}, {RGBColor[1, NCache[ Rational[1, 3], 0.3333333333333333], NCache[ Rational[1, 3], 0.3333333333333333]], Opacity[0.8], SphereBox[{-6.8846497632, 2.3502522262, -2.4842337996}, 0.178]}, {RGBColor[1, 1, 1], Opacity[0.8], SphereBox[{0.25222172921999997`, -2.8873123553999998`, -0.68319264078}, 0.12]}, {RGBColor[1, 1, 1], Opacity[0.8], SphereBox[{-4.282875006399999, -2.3581890754, 0.44072189772}, 0.12]}, {RGBColor[1, 1, 1], Opacity[0.8], SphereBox[{-3.4948592643999996`, 0.84185403574, 1.06408581334}, 0.12]}, {RGBColor[1, 1, 1], Opacity[0.8], SphereBox[{-1.9997080531999998`, 1.2582173653199997`, -3.2306755696}, 0.12]}, {RGBColor[1, 1, 1], Opacity[0.8], SphereBox[{-2.8083218086, -1.9288433281999997`, -3.8412460402}, 0.12]}, {RGBColor[1, 1, 1], Opacity[0.8], SphereBox[{0.6883326954999999, 2.2674822274, 0.77996550924}, 0.12]}, {RGBColor[1, 1, 1], Opacity[0.8], SphereBox[{4.9569402706, 3.553629743, 2.9880347512}, 0.12]}, {RGBColor[1, 1, 1], Opacity[0.8], SphereBox[{7.4715986588, 1.6746940784599997`, 1.940748602}, 0.12]}, {RGBColor[1, 1, 1], Opacity[0.8], SphereBox[{1.1602350722199999`, -3.157732146, 6.6010018906}, 0.12]}, {RGBColor[1, 1, 1], Opacity[0.8], SphereBox[{6.2088837456, 2.5314769496, -2.247829077}, 0.12]}, {RGBColor[1, 1, 1], Opacity[0.8], SphereBox[{6.7814707236, 5.1640542402, -0.74300246868}, 0.12]}, {RGBColor[1, 1, 1], Opacity[0.8], SphereBox[{-8.6617480936, -0.3492213648, -5.877992723}, 0.12]}, Text3DBox["1", {-0.9967668709599999, -1.6629966745199998`, 0.7892062693799999}, {1, 0}], Text3DBox["2", {-3.6252623534, -0.8296842003, 0.027758185214}, {1, 0}], Text3DBox[ "3", {-3.8669583087999997`, -0.25739957846, -2.8000070141999998`}, {1, 0}], Text3DBox["4", {-0.9584810222, -3.208754748, 3.191747214}, {1, 0}], Text3DBox["5", {3.2648676152, 0.09607933901799999, 1.3578248227799998`}, { 1, 0}], Text3DBox["6", {-6.493866421399999, 0.57818056696, -3.5237720722}, {1, 0}], Text3DBox["7", {5.000203001000001, 2.316804076, 1.52355379298}, {1, 0}], Text3DBox["8", {0.7465242612999999, 0.50501037624, 0.9577131367999999}, {1, 0}], Text3DBox["9", {5.016265672, 3.6819421383999997`, -0.87076684354}, { 1, 0}], Text3DBox["10", {0.4680920324600001, -2.3014972954, 5.0043723932}, {1, 0}], Text3DBox["11", {-2.21078354514, -5.0950792412, 3.3625784444}, {1, 0}], Text3DBox["12", {-7.584427295999999, -0.7648477012399999, -5.3258147858}, { 1, 0}], Text3DBox["13", {4.0528833572, -2.018227368, 1.59906724394}, {1, 0}], Text3DBox["14", {-7.484649763199999, 2.3502522262, -2.4842337996}, { 1, 0}], Text3DBox[ "15", {-0.34777827078, -2.8873123553999998`, -0.68319264078}, {1, 0}], Text3DBox["16", {-4.882875006399999, -2.3581890754, 0.44072189772}, {1, 0}], Text3DBox["17", {-4.094859264399999, 0.84185403574, 1.06408581334}, { 1, 0}], Text3DBox["18", {-2.5997080531999996`, 1.2582173653199997`, -3.2306755696}, {1, 0}], Text3DBox[ "19", {-3.4083218086000002`, -1.9288433281999997`, -3.8412460402}, {1, 0}], Text3DBox["20", {0.08833269549999989, 2.2674822274, 0.77996550924}, { 1, 0}], Text3DBox["21", {4.3569402706, 3.553629743, 2.9880347512}, {1, 0}], Text3DBox["22", {6.8715986588, 1.6746940784599997`, 1.940748602}, {1, 0}], Text3DBox["23", {0.5602350722199999, -3.157732146, 6.6010018906}, {1, 0}], Text3DBox["24", {5.6088837456, 2.5314769496, -2.247829077}, {1, 0}], Text3DBox["25", {6.1814707236, 5.1640542402, -0.74300246868}, {1, 0}], Text3DBox["26", {-9.2617480936, -0.3492213648, -5.877992723}, {1, 0}], {RGBColor[ NCache[ Rational[1, 3], 0.3333333333333333], 1, 1], Opacity[0.3], SphereBox[{3.673683980650353, 0.17084231796033178`, 2.637564845151753}, 1.2961]}, {RGBColor[ NCache[ Rational[1, 3], 0.3333333333333333], 1, 1], Opacity[0.3], SphereBox[{4.486672923091926, -1.9632095274687296`, 2.672381447152126}, 1.0875]}, {RGBColor[ NCache[ Rational[1, 3], 0.3333333333333333], 1, 1], Opacity[0.3], SphereBox[{1.1560127154464706`, 0.568072204490325, 2.1879532786886577`}, 1.2465]}, {RGBColor[ NCache[ Rational[1, 3], 0.3333333333333333], 1, 1], Opacity[0.3], SphereBox[{0.6485344484232773, -3.887564384891784, 2.7389641215724847`}, 1.2961]}, {RGBColor[ NCache[ Rational[1, 3], 0.3333333333333333], 1, 1], Opacity[0.3], SphereBox[{-2.448559614326545, -4.514494801372602, 3.74166842861041}, 1.0875]}, {RGBColor[ NCache[ Rational[1, 3], 0.3333333333333333], 1, 1], Opacity[0.3], SphereBox[{-7.301877831962624, 1.6807675486290654`, -1.7356569798050292`}, 1.0875]}, {RGBColor[ NCache[ Rational[1, 3], 0.3333333333333333], 1, 1], Opacity[0.3], SphereBox[{-6.393322862049933, -0.22233726575014337`, \ -2.6351834871920925`}, 1.2961]}, {RGBColor[1, 1, NCache[ Rational[1, 3], 0.3333333333333333]], Opacity[0.3], SphereBox[{4.056051249749647, 0.021316360075668117`, 0.07808480040824672}, 1.2961]}, {RGBColor[1, 1, NCache[ Rational[1, 3], 0.3333333333333333]], Opacity[0.3], SphereBox[{4.819093791308073, -2.0732452085312696`, 0.5257530407278735}, 1.0875]}, {RGBColor[1, 1, NCache[ Rational[1, 3], 0.3333333333333333]], Opacity[0.3], SphereBox[{1.5370358071535293`, 0.4419485479896754, -0.2725270050886579}, 1.2465]}, {RGBColor[1, 1, NCache[ Rational[1, 3], 0.3333333333333333]], Opacity[0.3], SphereBox[{-1.3654964928232771`, -2.5299451111082156`, 3.644530306427515}, 1.2961]}, {RGBColor[1, 1, NCache[ Rational[1, 3], 0.3333333333333333]], Opacity[0.3], SphereBox[{-0.7730074759534564, -5.675663681027396, 2.9834884601895895`}, 1.0875]}, {RGBColor[1, 1, NCache[ Rational[1, 3], 0.3333333333333333]], Opacity[0.3], SphereBox[{-6.467421694437375, 3.0197369037709345`, -3.2328106193949706`}, 1.0875]}, {RGBColor[1, 1, NCache[ Rational[1, 3], 0.3333333333333333]], Opacity[0.3], SphereBox[{-5.3944099807500665`, 1.3786983996701434`, -4.412360657207907}, 1.2961]}, {RGBColor[1., 0.75, 0.5], TubeBox[{{-3.0252623534, -0.8296842003, 0.027758185214}, {-0.39676687095999996`, -1.6629966745199998`, 0.7892062693799999}}, 0.1]}, {RGBColor[1., 0.75, 0.5], TubeBox[{{-3.2669583087999996`, -0.25739957846, -2.8000070141999998`}, \ {-3.0252623534, -0.8296842003, 0.027758185214}}, 0.1]}, {RGBColor[1., 0.75, 0.5], TubeBox[{{-0.35848102219999994`, -3.208754748, 3.191747214}, {-0.39676687095999996`, -1.6629966745199998`, 0.7892062693799999}}, 0.1]}, {RGBColor[1., 0.75, 0.5], TubeBox[{{-5.893866421399999, 0.57818056696, -3.5237720722}, {-3.2669583087999996`, -0.25739957846, \ -2.8000070141999998`}}, 0.1]}, {RGBColor[1., 0.75, 0.5], TubeBox[{{5.600203001000001, 2.316804076, 1.52355379298}, {3.8648676152, 0.09607933901799999, 1.3578248227799998`}}, 0.1]}, {RGBColor[1., 0.75, 0.5], TubeBox[{{1.3465242613, 0.50501037624, 0.9577131367999999}, {-0.39676687095999996`, -1.6629966745199998`, 0.7892062693799999}}, 0.1]}, {RGBColor[1., 0.75, 0.5], TubeBox[{{1.3465242613, 0.50501037624, 0.9577131367999999}, {3.8648676152, 0.09607933901799999, 1.3578248227799998`}}, 0.1]}, {RGBColor[1., 0.75, 0.5], TubeBox[{{5.616265672, 3.6819421383999997`, -0.87076684354}, { 5.600203001000001, 2.316804076, 1.52355379298}}, 0.1]}, {RGBColor[1., 0.75, 0.5], TubeBox[{{1.06809203246, -2.3014972954, 5.0043723932}, {-0.35848102219999994`, -3.208754748, 3.191747214}}, 0.1]}, {RGBColor[1., 0.75, 0.5], TubeBox[{{-1.61078354514, -5.0950792412, 3.3625784444}, {-0.35848102219999994`, -3.208754748, 3.191747214}}, 0.1]}, {RGBColor[1., 0.75, 0.5], TubeBox[{{-6.984427296, -0.7648477012399999, -5.3258147858}, \ {-5.893866421399999, 0.57818056696, -3.5237720722}}, 0.1]}, {RGBColor[1., 0.75, 0.5], TubeBox[{{4.6528833571999995`, -2.018227368, 1.59906724394}, { 3.8648676152, 0.09607933901799999, 1.3578248227799998`}}, 0.1]}, {RGBColor[1., 0.75, 0.5], TubeBox[{{-6.8846497632, 2.3502522262, -2.4842337996}, {-5.893866421399999, 0.57818056696, -3.5237720722}}, 0.1]}, {RGBColor[1., 0.75, 0.5], TubeBox[{{ 0.25222172921999997`, -2.8873123553999998`, -0.68319264078}, \ {-0.39676687095999996`, -1.6629966745199998`, 0.7892062693799999}}, 0.1]}, {RGBColor[1., 0.75, 0.5], TubeBox[{{-4.282875006399999, -2.3581890754, 0.44072189772}, {-3.0252623534, -0.8296842003, 0.027758185214}}, 0.1]}, {RGBColor[1., 0.75, 0.5], TubeBox[{{-3.4948592643999996`, 0.84185403574, 1.06408581334}, {-3.0252623534, -0.8296842003, 0.027758185214}}, 0.1]}, {RGBColor[1., 0.75, 0.5], TubeBox[{{-1.9997080531999998`, 1.2582173653199997`, -3.2306755696}, {-3.2669583087999996`, \ -0.25739957846, -2.8000070141999998`}}, 0.1]}, {RGBColor[1., 0.75, 0.5], TubeBox[{{-2.8083218086, -1.9288433281999997`, -3.8412460402}, \ {-3.2669583087999996`, -0.25739957846, -2.8000070141999998`}}, 0.1]}, {RGBColor[1., 0.75, 0.5], TubeBox[{{0.6883326954999999, 2.2674822274, 0.77996550924}, {1.3465242613, 0.50501037624, 0.9577131367999999}}, 0.1]}, {RGBColor[1., 0.75, 0.5], TubeBox[{{4.9569402706, 3.553629743, 2.9880347512}, {5.600203001000001, 2.316804076, 1.52355379298}}, 0.1]}, {RGBColor[1., 0.75, 0.5], TubeBox[{{7.4715986588, 1.6746940784599997`, 1.940748602}, { 5.600203001000001, 2.316804076, 1.52355379298}}, 0.1]}, {RGBColor[1., 0.75, 0.5], TubeBox[{{1.1602350722199999`, -3.157732146, 6.6010018906}, { 1.06809203246, -2.3014972954, 5.0043723932}}, 0.1]}, {RGBColor[1., 0.75, 0.5], TubeBox[{{6.2088837456, 2.5314769496, -2.247829077}, {5.616265672, 3.6819421383999997`, -0.87076684354}}, 0.1]}, {RGBColor[1., 0.75, 0.5], TubeBox[{{6.7814707236, 5.1640542402, -0.74300246868}, {5.616265672, 3.6819421383999997`, -0.87076684354}}, 0.1]}, {RGBColor[1., 0.75, 0.5], TubeBox[{{-8.6617480936, -0.3492213648, -5.877992723}, {-6.984427296, \ -0.7648477012399999, -5.3258147858}}, 0.1]}}, AspectRatio->Automatic, Axes->Automatic, AxesLabel->{ FormBox["xl", TraditionalForm], FormBox["yl", TraditionalForm], FormBox["zl", TraditionalForm]}, Boxed->True, SphericalRegion->True]], "Output", CellChangeTimes->{ 3.5764211940855923`*^9, 3.576422740282308*^9, 3.5764229260942345`*^9, 3.5764231387850075`*^9, 3.5764238282438188`*^9, 3.5764239979097166`*^9, 3.576424058625024*^9, 3.5764240909794807`*^9, 3.576424679942915*^9, 3.576425061535185*^9, 3.5764253676233225`*^9, 3.5764254520506706`*^9, 3.5764254892411366`*^9, {3.5764267248381066`*^9, 3.5764267516701536`*^9}, 3.57642692043125*^9, 3.5764269656713295`*^9, 3.5764270019881935`*^9, 3.5764282692096195`*^9, 3.576466464847408*^9, 3.5764666519541364`*^9, 3.576467406761462*^9, 3.5764674949172173`*^9, 3.5764682171204853`*^9, { 3.576468607464371*^9, 3.5764686354820204`*^9}, 3.576468772450261*^9},ImageCache->GraphicsData["CompressedBitmap", "\<\ eJzEvXd8HMeVLXweJctyzutdr73ruM6Wbdmy17ZylixLokhKTBJzJohIJCYw IJDIeWaAyYhEzjnHGeScCBAkwUxJVLb83uo71QFsQEPYfu+PDz/ewUwPpqrr 3nNunVtdPXxuo/eOrXs3eu/cvPHbT3pudN+xc7PXt5/Y58lDd/wv4H/toG39 NsTzjwD14SP++2ineBBH/v9//lfp15344IMP0NjYiFWrViEpKWm3/O570q+7 pXevXLmCsLAwPPnkkygrK8PZs2exbds2OJ3OXfJfd4tfd4hhfl868JkFrYrP zc7O4p133pHefeutt6TP6/V6vPfee1BOqE/6JbUiPRP2H9LjXR9rTpwGm7tT GYNoMSQkRJyR+L1Eg9+UHj+xoEE/Pz/p/O5WWhPnJp4dOXIEIyMjO27f2r+5 OD3xk5aWJk7v00pnoiExUPU0xfPtcqs94tcy8ZlvSAc+KbUlPq89M/FaDPkz ixoUr0pKStDU1LSgwUWn+S9Le3GZ8pGbN2/Czc0NN27cwKeVj2h7EqcvXs/N zckOQu/82X9V41eBFdGO0jy+rIwsPz8fExMT86eldcdWucFzS5/pV5Uz1bak nr3wg4i/eLVFbu2sclKLASxO6uvKx4Tr1I+pTakDFSemNHVGEx3tifX29mLz 5s1Sk//qosk7lEcFmdKrzXKTE5qxujhD9WTESxF/8Uo9aaJSGq+MV/mYglbp 1Sa5h7HbeFMh4yeUT6q8vAUV1z1o46X0MLx0vL7jorVPaLyUnZ0tvdootza4 BDm/v+gktE2p8RLdbNSy9eMnFhQUJE7uv1y0dpeLYW7QkupT89wU6FZPTLwj mCN6EGj4gYumP6nBqBi3ePWa3LTzH8lwMjdVnKk9qHlq8cmr0FV68JwnqYJG 9UdKEs8vQdy7NRCsqamRXqlx0CYGdXhakL8qd+W1KB2Jn2WLjgl7dmk3/MpF r+rZmc3meeCvlzvxVgal7UHt/VkXSUH0Jnr9jdJkfHw8rl+/vqAb4Vl1xlr/ zw3uCQ18FicP4WcVPuL5vS5S3KdcUGbdx4L7iQXBVZ8/rnGs6G9RllHxJU5L zQO/dnEKn3aRZdbKnfi5GPHDS2eeP7rIlJ/W+Fmln9KD7/wgH1oaJg+4yDef ccG9NXK75S7yjSBZcnKyMgLXTWlJpjQVOX+K379NsFVSaYP9kItOPqscm56e nifTarmTCCUdaz3Nn+9ohrE4O2nzhxrfBzW9CqSLV5/TeEmNyCtL9vp3pNlT LtLg5zTHVCot3YlWri3OTs+66OHzLjLRy0v24ErCiWGIH/byFxe5Vu1Ey4VV S3bydSWTuBIi4h1F3y3VmZYWqxZj7mu3GYSSYFQRIkCgBvc5Fxn1Cy6oslLu y7p0Glm1RGtatiitmZdOD6+4SEBfXEQL0doKubXU27SmZPW1Llr7kgu4vyS3 ZnDB38VzvToTr1miaS3IlaaTl6aMytWpqal5ZKx2kSm/7ALky+UeEl2kAvFb nPxmF8nmKy6g/KLcVNzSJ7t1ida0WFVai1Fa0zIgJiZG9eR2F619VYY3R/6i Bu9LZFbxbmFhodSm2qCYxdUc91XN6Sl1DF6Qmw5X/OaKoKrKVIsw8WrropGK V19zMXpZXSFsaX6q+kktwG7XgyrOtaiVcwaCl+anqlS0meVri9whzldp7bj0 6+PVjupd4RZvF5RXT1CLTDnRIGhpOC3TOFmwTbzyctHD1zXHVMD+We7h8CLs a4mrymNtqeO5RPNa8irNH1h6AAddpAJtQajqNnnWQoCLk1WJemSJprSljtKU xA5Jfn1PmWZcnaIAuxK6I5rTUmH0by7A+4zc/grlrY+vy7jmizrbiDNQq4bD Lrr8hovZ5mm5S2lkd94StQs7//elIxHiIpd8Y5H7xPCevv3w/m2J4Z100fy/ u8C9LIDkxLzsdkpD/AiMsuFwF+1+UzmmLXGe1LS76LS/pkmQLpLAgjI1XOMR 9ZS/qTmmol/p7qX5YXxFg9zF86MrtXnKRUffckEMuUhS8t5tgxvvorX/cJET 5LJHmfNc54RkFznxW4uaFx5Qmtpwm5woTkzNiToXKUU9Oy3MH5ObfHXR2Wln azUhiq7UhJi8RPNaZCvNr13ala6Wf5KUY9oC+D+VY9qC5FG5h9VL8MTqIot9 W+MLNQ08Ije16jbsUApT+xKtaeH6iJbUrgW3ZhJTW9WmJXXNSsvlhzWZ9u/L bO0saXPB6u+6wKtcCSrz722ncVUoCJAMDQ1Jr6xL9KCFsdLDn5egb76Lpr7n Ar5yAakk0I8zQqPrUKBpUtVh39OcnarDlCafXIKvyzTuVRmRv2ig4pW6QqWt FOSFAYUY/xQj8lz08AONT1TY3C/38IhmAGrBqlK6ykXC+f4iX4iTVZp68DaM UC4u1LhoTT0xLXb/JLd2/xKM0JQ0aqvaFPNfmmMqXuUVHPzhH2OEtqKpXqIH LV6VHn6/RIppcZEUfigepapBaeC3tzlFpdZsu10bi8SWPFJlbcz1LCCet7W1 ocNFkz9yMcL/lpv85RKM1F6aEcfFpZl2F0nrxy5YKnsOP18a8+r1Ii3nf7xo /OJkldZ+ugRB+1009RMXiPyd3NSPbnNi4vfY2Nigi9Z+6gKJ98mtyRD61MeI p8JOeFAs/ovXA0oz2uLwp5oxq5OJ0rTMqjsXw2/MRWb4mSY2qrCRAagw/U4J yC+88IKKgnEXrfzcxTB/o23lE/PXne69914pA4jTVZvSZoSfLWpe/N2Cpu6S mlIJUVdXp/7ZmOYkVJ6qJ6aF2b3a1j4Jo9E4PzUJ07SI0SWa1GJtQZN3SPgS XhOvVEJomx1x0ewvXODu1wub1SrnO1w0O+yCxvcox7SC/Fe3b/ZOF80OLdGs FnxKs+pkKRygznp3uWhWpYs2K/xSc0x1wi8XNiuCr15d/KSLZgdcNKu9GKM6 4Z7bN3u3i2ZdpYpfaZyg/t2CZu9aAC41bZCJrvzR56IH9cKGFr6/+HgPgt+3 EV7aHnqX6EGLZqUHqUa841ZNe6cUTs1k+WkXffQs8sktwi3U4zKL5osBLQZd XZBSrzGo7BBddbvo6jcah6nRlzOKXGtqSvS7PnaxTUHsF1z01bVEX1oO/Ew7 rI/3oKDsi0v0oM2Fv1n0d+KVnPblylcqb1XKahHsqgP18r426fzWBTF+oung NklHi2p19VgkY7UrxxJdacmidPWt+bG46uDLLjroVI5pq777XHBF1gXz1YU2 L3/FRbOudNB9mvNWtf+iZrUu+qqLZttdNPs7F+740cebVXPG1zTNqlhThaA2 0/3eBf5lcaiUifJ0Ln6UZPEvmhMRLYu3W10kCrVl4W51/l7Q8h3z9Z92a4m2 2RYXzapi969//at0wsLFIkziM3ztogcV4//moofm22a4T32sB+E2EUzxrvr3 i7rTwvAbLrprctHdPbcZkOiOPrvTxUf+a2GvWpT++6JexccaXeSiny3d6ydd fGRRr1oQa5fV1NTQ4KKJHy/d6+IL5H+n128t0evHa8bb9qq92KkmH/kj8+sv Wmnyny56rXfR63eX7vVLf79XLXi/7aLXOhdN/KemVwGXRb262l62RK/fcdFr rYtev6n0KrjuoldXO9EW9HqnxBzxluiZZ+Cq4xoX5y5njU9Kw71N5/NE1DLI Re8aLfRdF71Liwwy/hbuMVJBOzt8FmMZMsPldclP4Or1ixgZ72axRxulDXfN KxPtML72DwzjW39vGAsTweJll/kx/APi6S7FLVPDF3HqUR1uHLfg/a4O+aL1 ZzEx1Y22zmKUlhtQQasuM6CmxIDaYlohn+fpUXNaj67aIrxx5eLdLgb8Zc2A xRSlHbA4UzFgLeQXrkvNv6U96R8sGnBPT4+ywrJws4Iaxk8q71WmTSPy0Dm8 2XUR70445FXaL6LTWYzKaj2qqzmo6hQ0VqWguTIFLRUpaCtLQXsprZjPC1PQ msfjOQa0ZunRbNdhtq9LFexayH9h0aBFiSXOVIgSddDfu/2g1cQjIiwKY/Fq 8TqOGPQfXAwarrdtqWe5c2seRquq8T+pryoLy1/FmTNdqK3V0wyoq01BE62V 1lGdCgetqzIV3eW0slT0lPB3UQq66QwnneHINcCZbYAjnTNQRRFuXppzNY99 VuMQ4SThkIiIiAUOUUeoTTffX+gQbcb6kQuH/Pc/75C8zEY4Y6LwUZaHsrXh M+jpLkJDnR6N9QY01dMZtI46DriWg69JRR+d0k+nDFSksu1BuuZTGCzlayKl n0jpo4N6CwzozdWjl0jpsSXj7Utz8xpW65lPufCM4IbWMz/55zyzeMlLeOb3 /6xn7kRmUiXyj0bi/5w+iPfrjC8qgezrKaJTCP8G0oDW3kAU0EHddXQMHTRA Bw1VGzFMG6kyLiPcxEOlkcXzCB02THcN0lGDzCGDBXoM5ujQn04HXZ5b5sI/ d93GP2Kwqn/UdRdt3lnkH5H3Vf/8xIV/JC1/q9CQnn1KccRgxzAi3U7ivcxg fNSXJ2+z+Bz6uwvpAB3aGvRoazSgk45wNqSit57oqKM8rDVhhDZWY8Y4baLW zMYm+cjEWmPCOB00WpVKp6RgpNSAkSJSKE+HwYwkvHNZVp/Kqt6dSzhBCFXh BO0CiZqHXDhBFa0/deGEJ5RjXiuP4qolHP9THqLs+vg8ZqedaKtPRgdH28HR djQqo20wYqDehOE6M0Y5tvE6CyZpU/UWnGmwLMN0gwX/gulGi/TsTIOZb5n5 J3QAkTJGB4xzZhkv1mEsLxlDmfK2H21WvJ0856jvdYGYRYPWTpU/czHox5Vj 4b4pGE1iIkjbpVy6+gLefH0ObbVJDK0OjkY9jYNuZBYUg+ZIhjmSMQ50ot6K qQYrR2nDTJMNZ2nUCc021sCzzVa+tvI4PdAoRm8iFIyYYBKZ5MgnOPLxvCTM 1OdL4RajXjzS3/39YaoMFmXh4nVIMUxVVJRH6zDT3qVp4k5kmWpRG8ahn/bD BxNdzymjH+oqQCdD7mDInQx5lzLyfmnkFoxy1BMc9RmOelqMutmO2RY7zrXa mVjOt9r50GYjU8632nCuhW5osdANdEGDAIARkyKP5sagJukAEt1W4qDnXklY iyH/wcX0uGDId85fQFJ2oLoa9efmRcAiLScRXM10B793Hyp/8HuM/vwPOB+n U92SGVsAo18EPsw+io+cmapbOmsS4aRbnEx+ggHddEkvRzQ47xIbpiSX2Dli 2R3n29JwoT2NJzHXkUY2zXXY+VqYDbNt9EyrFYOVSSg1+CM5cC2S/VajIsEf wwWxdGmemvnVvcba6kPWEcq6klzDawTuPbdzCrPJ4iUo9fUtb32Sua+LftDj 2Iqd8Pv3R9B375/x4UOP4fIDf5zXYQc3BuPNtDB8NFSiXJL9Ai6cccBB5jjr dXSSSBVGOsqEPjppiE4ak5xkx3SzcFIaztFB5+mguY50xuZiZzqF2SVHOi1N soudaZjkrFNrPQjj8ddgOPoaSlMD0F+ewJRKJlG8TVYmY6IsYbGztLPmAmct nDV/5cJTqoL/uIz+rHRM9c6BtXvwwvcfwwv/9RJe+sUWvPTDV+H7i1fR+ugm vPvCWrz5wqOqs3Y+FYDZlEj8j/E1xVlfREdlPLUFEVVHRHH2cDJFdDO19NdZ STQbxommKaJpRnJUOs7TSXN00UXhIGf6MlzuSqfPp5uo3dKOwB66SbI6+yEC UofpdmanVqZlUm+ScZjkTD1Zo8dkVSICfb01VyjlZTN1Cl3CWYvXhoWz5B3l X553luwcHZ2zm855VDq+/OebsfL3Hljz9EG8ti4Ym/eGY/uBU4jaFQbzo9uR 87IXZl5dh5uBu9UtRqKyGmVlNa4aq6vrVy+q17fz0hvgiBb6zVPx53fgqEqA s4bAo6B1MtU6OS91cU7qJ/BGCLwJ+vIMfXmWvjxHX04ywQ1WRsJRcBS1NncU JtCBISuQFrwCxXGb0GDehxabFwbLwtFfcgozHYwHWTvZIpxqwiQT4ySzwWRd MtJS4yQHqg7VapJFDtVOxxJP5ZR257xXlZ+7FcQF7zghvX7h+4/ghR+8gOU/ 24iVv3PHmqcOSMc376EzA0+huK4Dpa0t6g2FwV6pyF7rg7n1q3DNZ+fXlNZE bVdcrkdFBUufCip/zkX1rO8aKEUaqM3qWd/V5rHmy9ZjZqh7mZoUEyuQe0So wkP4a4Pp7lsJ9s4FCXZeP92BM6yXhzObbo0T38XNGxfgJP6cLLycNSlSmLoY pu4aKwbqbAyTHRPNaZhuTUNvWQTq071Rw9AUJG5GWthKZNLKkzajLc0DXdn7 0ZW1H85MH9YhPmize6PZ6oUGowda0g9gsCqeoSL2m4l9cmSyUQfDKT8Rlk/O u13V5lqqq2tjsT4GtPgk4J2xs/MFqVZmLYqrVnHIquzuBblV/a0SZ34m+hQq s0ew54EY6e3VTx7Aq6vlkG8PCJfCqpWl4X5GlK33xJW1L+CGWS8vM30N12/M odNRJJW0tTWMJb3bwrK2ndbJ0tbB0tZZTqMGd7BY6WQl157PIodlbXOmnsVN Eak7iFN7TuLdTE68/fnzkdQ6x5XD1KtBU0Oz8PtdOGY8U/FeXpYa9AsTnXBW JMlB59zvrDahq9qCHjXonBA6i8NRTr5lRK2HNXSlFOzSZAY6wxNdOb7oofUK O+2Lvmz+ZuC7GXgnAdLOwLdY5MDX6d3RagvAZCuD3sqgN+uQlXxIxOzuRWd+ u/Cr8qDytAOBj+XiYmQDPmipUhHw8Z1FC65ZqRfrf+VithU/WpLfpfQ3Nfj2 PHuKa8niFmm9XRIr6g24gx0T2PNUIBpf3Yfrq5/BhwNdynrDZ6RKvoaJr47V fBOTXxureAeti9ZLtd1Ppw/cKlzLROHaX8L3WLD2FBATucRDFms6ux6eLwXh CouAjypC/+n4V6aPImjnBK5UXcDNvu57lJlhTsS/nPGvZF6m8HdWKfGvtaI+ JwamUxuhO7Ycqcy7+YnMuyR352kSW8Q9l7Gm9ef63oEBHvgcBsj7viwfKfwO hr+NKbrZ7IlGozsaUtzQoNvDSjQak216ZOsPS3R1NRKJ/+oi0dTg6/D2mMWZ tjm8e27c1dKUi2CrTf16UbDV3+Lj4kfQ/V/VQHafgf9fAuF4bTeur3wM7/d2 KdLs6+juKkJ9nQ6NlDyt9awtRYFN669j4Uy5M0wbYTBHaWO0cXpzjIEdZWBH WGAPk9wDYiWC5O7JNeDQxqMYSeQsmb7rHw6mukLi8WIEZvKL8Vbc8vn0PTfO SJYxkpw4GvPiUJEeDkOYB8ID1iHm0AuwR29AGVncwNC0kKHtahRpfbl+GMjz wyBtiM+HGdUhHh8iowdPyyHtyvRGR7oXWu2eaLG6o9nihmbTXjSl7JLCXMlS nNxTOeEqu6rD9HrYC1cjg/DRYKnLhUYlmmp9pL0AcO8ir4gf9eZT9bLLrYje icHeaRx/KRCDr23DlRcelNXjv6G3qxBNDGaLKJ2losHAgoGBpI1Q7o1Rj02I coh2hvPgGf6eFs95/AwDPUXmTjB7jzNzjzBzD5YYELP/JKpDo/A/p/3x4VTX /P3+2gB+tGAd4w740BPXooLwTsKK+UDODLagwnIchuDdCPVag1DvdbBGeyE7 aTdKyKUKOruG3GpkINvINweDJNJwLwPXrwaRNpznjxHJ/DCSKwLriwEGsyeb qTmLqTmDwUznfJy2j0HdyzS9Cy2p25EduftWIBcL7cVRjJKjqF4yUK81yiNZ EEWtVv2lC9dAXfpaeCFeDSondzWm2SnViF0VgInXNuLtQ3s/rainPsa0mXKv lTHtpHWzPu5vTMEQC8IxauwJSvgztGnWPGcbTMsw28iHcxSLnxZPxTFW/EYp vpOcoceYEuP2BsCwP5z15jG8VRx59yJwaycP1V/eSkjfT1qlLG78YOFKe4AX QvetQF7SITSejkNzXixyk91QkOqOUoa30u6FOkqmZoa3nbOp87TgqJ/E0X7B Ux4bzPLFCEM5mkPLZ3iF5fE4Q9zHY10McWe2F+HhgbasfWjL3Is25pk2y3bk R/ogXZc4n11dxeDvxllbwC0R51/NN3bn/DNFlLqI6zE3A8yr/TD76lrcDNgt O/vzOHvGida6JLQ36KS4djGm/ZT3w41GxlVIfZO0inOWdq7ZgvMsAeZaLMsw 1yo9mBmaC9Sa55tNmGW0Z4iFKc6+4+Rv4Gusk+0ncSXzCC71O+9ycb6qNPF+ yFNKWh8mv6ws535jyYsJjnxK6SKqquJUlKb4I1/nhkIRYwtjbBMxpjLK3I8O xrPrtB9j7I/uLD+qJxFj0jVHpu1Ynt8yjBf4cSISYR7KFxMuWZzLEOd6oSPX A+057kzne9GetQvtadvQag5AoIcb3rkyJ4d5wdYTbcA/qQHt4hhry6QFMZYv 2Ylt2MptRdqFISWm8wk4xDsVOSx1Lq5fiaveO+UZ7At4g8VGa00iOuqTpaCK xaw+JajjDKhYjxLLc7NSQK0MoxUXWTRf6rCy0ct8/AwutVtwsc0shfgcgzvD z04xee94wg9nDZH4yLQBg9lJYhl7fkuGlxLFv+lXK1e3l74Ccocy/JGGfDjz dagxH0VB3B4UJCvRFIy1ebMY8pGjmSVHs4tR7MpkNLP9KY38OaP6kan+GCv0 xwRtsoivC5mkGdKBfIYzn0m5wBudBZ7oKHBHR54bOnIYzoxt6EwPxQFPNwxn JXxdE69rLuKllj+LOKkutQus/kkTLHX3jRqsSH8jKqT65Xn8bbBL1o5fxIAz Hx21iXDU69DFmbKHgRqks0fJuMlGOVBiMfFCmwiSjeGx4YrDjqvCnLZluOa0 MUFfddhoVlzuFHG08M/NmG0leVkE6k9EoiOKaohZa6wgiYk6/1bIPHAlIgj/ W79GUQZLX5q5S9EQ54ccaLadQkHEDhTEMGRJe1FoYMhMDBlr0Xo7Q5bBkDFM ToapM0MOWx/n74FchozhGmWoxooYsmJaiR8macOFnEdpvUUURUXecBR5smJj yAr2Mmy70Zq5jfNwAg56uWGcSeDaiGP+zkVXcRMBWHhnxXzctGWr+uUD4k/V /Povqm51TGLf04FoetUN1195Gh/2dynI/SLeJNPaqxNYdCTDSd3azemwjylw iKlzvNGCMwzeWSl4NlzssOOyFDQ7rnXZcb3bfidudNtJtuvdDF4XY+tkjDtJ ynbGncFL8g3G6cPy4sOVlN0YLUicJ5vng0rkDGsUnXe3FLncAjuCju2Ht88O xMacQG6OBc6OOrGG9CnFDcVR7ig4tR2F0btQmECusXYsSaX4MXujzsbZMY0K NsMXDgasI8OfgfNnDRpAFRuAoYIAjBYFYKw4AOMl1Aml5FuZP4aKmDqL96O3 hIEr8WJm9mS5vQ8dRUydDFxP0VFMUtAJETNZnEQcJszH7ZGPx+3jd8TMx02b Yh90ETf5Cvyn0D55GR2TV3C6fQrRJf0INDTh+TXRiNpwCFWr1qCltlcRRV/G +SmHtM7tYCHpZN0hL/ubWKFbMNFkxXSLDecWx7A7DTd60vC6sN40vNGXtgxv 8MlncaOX4e2x4wrjeqmL4ScxZzvMKDIcROjuMPSF7sOJR34Cz4fvw7Uxx1c1 Ib0shXStMtrP49LlsygsZkiP74CH9yqEhuxBpj0MxTmxqGPVU8eqp04sXeUb UJNDYVZfjOnBbpWnVaYDyA/dTp4y1LHkaNI+FBs8UGGizrX4oNG+n+LFF53k aUemP7kawNkvAP35ARgsDMAIwzzKMI+VMtwM81g5+VtCIVTKtFrGUJcx1KUM dQk5WryXgmuXcqkjBX4ee9hGAiZLydOxznnkuoq3tkJR4q1uvVLvcBGvHnYR b3mX03+gY+oScpxTiKkaQBwtXljlABIqBpBYPoAgYxPWvBaNI5uCEfaKJ+Jz BpBXN4XibMa9OllePa0T1zNNGKg3MwFbMNlsJRFtOM+4X2Tcr3SlkazpmGpK RlfFSdTmHJAB+TkUp7qhSO+GfE5etbYATjihuMDYl5kO4zff+lc89s0fY++v fw6f33wXG3/8Dfg/9dv5LZIeDzDw4UH4PynrlE09X5G4XFdfDj//TfD2XYlk fQDycyNRXZqE5qoUtJJMbRUpaC9LQQeB0EEgtLP8bcuXt2y0ZBvQnK7HbH+3 kq6+L1+lqElASawX8sN2oSBqLwoS9qFI54GyFC9UmzjZ2vajxe6LdiKinYjo PB2ALiKiNz8QA0WBGCoOZLkdiNEyIqOCKCljVi+jjC6nNC73hrPcC44yD57T PrSQ/MO1cZgUSpLK389jL6u5RExWJDHH5f1fAkIrgh9xAQh5Yf5PuPD624ip 7kVcDYFAS6glEPg7qXoAycIIkGQCREdw7DtRgC0bohC86Rhi3E8iMXcAASdS ERWTivK8VGkrRE+dSbroNcaEMMWEcFZc0BLXa5xpTBLJqMsNRKHNDaX2fSw0 9qHG7k5vuqOBBb34qTe6ozZlH6r1+1Ce6MYo7MXBdU/gwW9/B098+ydw++Nv cOzxn+HE77+L4/d9C2OPPYieh+9Hw/1/QL/7brxlT8HrJgOuGvSYS9LhbJwO 47E69NGaY3V3z4PJHZcEmFLXK/fE37/gkvL+/VthMPgjLy8C9XWa7S8sy6Tt L1Wp6K7kcMtpyhaYnmJ5C0xXvtgCk8L6x8ApXY92i05sgZF6GaGQcTKHNrHd nGM7kXdqD/JiWHsluKNY54nyVG8qPKYcAqw1XQZYB8HlJLh6OKv0cVYZYKoZ ZKoZJrAGmGp6S33RTWA5K3zgqPBGR4UX2ss90EpwtROA8hUJCiWWliEHmYoK CTZyebIywWW60d6+qZZY37k9uh5dhC7xEXkSvQ+5XeOIq+1HfB2RRUuiJdN0 RJleGJFmIMoMRJmBKchAlL3qbsHezZE4teUITm0NxMFTqTgYasaBY2bYKSN7 68yUDkRYs7jgQoQx7Qw3JKGWyCqyu6Esneih1We4oznDQ1phaE8j12weEsI6 zCxJTe5oSXFHyr6XEPLyU9j5x3ux4be/woZf/wI7fvFDBP3pBzj1wr20X+Aj cyA+SvHDRzoffJTgiY9i9snp7Iv4P4c34H8HrJtfnn1nx/O4uelZ9K9+EYUv rcbp517BwdVe8F/lCe+XPPDMiydhOhiJ9ghOBCNXvqIIJFd7GWqqLR/fblQv bzfqqVW2G8krt8swWJGKezBEHA6VUhiXsDwtktf5evPltb6eLJatdh3mervg qIonBkUu13Mqisbp43uQE+5GHIpLKR4o0XuhwuiNWst+aeqTcEiV08l60FkQ iG4muF4mtz5isKeUkpX4czK5OYjBDmKwnRhsIwZbRIKrPCBdapxk9TTZbJZK 5ZTIg6jNCOcUqMMkuXB9snM+yf8/4PAxDQ7VLfJ3Kbnuwus3kUcsxtf1IaGe Ga6BOKTpaHq+NhCTBuIxhXhchtSagTuQSlh+FZv3W+G9PQJR2w8ibHsgDkeZ cfiUBYeDLYiLMmGo0YoxprkzTHND9YkosO1FabobKjL2oS5zH5oz3dGW6QEH rSvTU15/+BF60zxRHbEF6ftX4dAzD9GewcG/rID/iy9i+6O/h/sj98Hw379F 3nO/gMezv4Tb0z9BTXY08u2RqM2KYc0dw6ItllW5fFlorjAaVwujpOc3C+ja 9HDpeURUAqIiExATGY/Y8DjEhcUgPiQa8ccj8ZcVpxDqz2NBRxGfTznAqT4u qx+dg5flFeev3W7zsvTurS1f+ltbvmg9BGkfFcIAQTpUo6xIKyvRYmPPMunZ zzEmrUqnYJhT8xARO1Bk4JD06Kc+68vQoYKa2ykUR41BAn1TbiyyTuzF6XB3 5MZ6EKleiI4+gvi4o0hKOIrAY0FYvTUA7q9sx8lVq2GMPIAS+0F0UnM7KMY6 iNL2cl+0VnDqJkqbidLGMk+0Vx3EbKcd09rrt0RqShRRmk1XNuqZOZNwY9qx JEq1ixWLUKq9pvu4C5TeqaL0xpuIq3Ygvr6XCO1HkoJSfcMgDLSU+iGkSjYs WuXjD2Hio5HHJKsbxPZAGwL3hCN2RwBCQuNxJNaCoEgrgk5akRRnxjiFWgXJ XGTbw0y5F1UEaX3WPrRmuXPC8kB3lid6aQO0htgtEopOvPAg7WkEr1yB0NfW IXzXJkT5bIXp+HYcXfsAfJ76DdKI2I6Xf4MND/0QVWZ/XJvuVK78fH3xAh8C bQXwtZdJz49klON4ZjlCaCf5PJx2IDkT7if1eGHVSZwMjEPisWNILCRridIE ao6EbFpGPxwDl5XFsdvus5dF3cJ9ee1iX14j52mitZe1aD/nxSHK8ZFaI8Zq jBivMUl78e7EFB8/wRwl70qSrqdUyMvt8gzwA5RGbIb2R1y9bM7hKQf5wO/4 Cew4HoFdwRHYGxoJ9zCS7s/bsfmPG3H0/k3QP7EJB9d7wTc4Cr4kpNFwDPkZ gUTlfjSU+9BYabJ0aKs8hAuUT7PU1jOdRKmUT4nSVjOyDcdRaAkhYonSRqJ0 ZmmUfvyLIOZRqi311U1/2lv1VFfmdY1wLu8mQvskhOoaB6FvHEZKwwhtFKkN YzA2jMPYOA5T4wRMTRMkvbl5XDyMUWCbm0ZxMrMVq7fHI2hfOOJ2+iE4LAFH 4604FmPD8XALIk8eJUR3ozRNQNQN9YRpa7Y7HIRoT7Yn6uK3IOfQywhe/hBC XnoaYatXSP6P3bcZiYHbkRm+C+VJu9GX7o5uysxOixuCnqEgofVs/C1O+7/C efIUrs10qtcnVZTmOicQW9OvLhXHC0FMSxJWM7BMUsWfg05oYiqW5S+fRPiB eOhOHIOumHwlTpOJ0yTiNOk0P5pBs/Zh7tLbigdvi9VPKJXaQFehtKuyXdpV qSdWDegmXvuI1QHW3MOsvUYpsycohMTO0TP8PV1nXoYZFmT3YEYsXNbLNi2u ONSaJAiLvYVjrIfET5vlIMqjNqMschta86MIW6N0PNJqRYDBhj2hsdhJ6O6W oBshQXf5T1/C7h+uhPUP61D/5FrkPvEyfDmX7Cd8fY7TgiIQfOoEay9vVBZ7 cUrU4SLLwAssB885Feh2ELoCvu1mVGVHwBR/iDA2MOkm48ZZLXS9PwZd7WrH AuguvBqi3gL3uFIiaiEsjuQ5BwlfB5LqewjfQcJ3mPAdhYFwTW2YIGwnCdkp 2hmYW2it07AIa5smjC1tZ3iSlrYp2iTfm8Bxaw3c1wYicfdBxO/0xZGwJBxP tOFEdDxCT+xAdspuVDLRCjXQwiRblrAZGYdX4diKBxG84ilW2SvkZPJ55LLS rEvdh8k8b4zTRnO8MEywD1A89KTtQ8jzv0PJC/dhYOdv0Ry/HfWntuJCf62M m/+UGsnrnqDI6ZeeS0KHJn6E6E6uVYQ3RY6eINYL0U0Yv/TKSUQejIch5Bj0 pTxeQiOUdUUylJMJ5eQswtneh5yiYZeK4JPqWt/rc2ivS5Y2x3ZKm2M5ezfK eXaABe4wbYx4nVB2A0/TZhotmKWOmm2yiqthVvxCuopyTiy+K1dVZvgxcQV0 goJC0vC2g6iI3oLy6O3E8A5Ys2T8BqRw9ku14ZDRjoAkIzyoefaERMAtLAKv /GgFtv1yA9PuTtS+tBW5T6+BT1gUvJmavUIi4ckU7H8iDoePJWKgJg1XejJw sYf4JYbPEcMzTL9TFAmTAsMdxG8O8ZtA/LYTv206jDXEfUVJJWKXm48E4SMC wv8gggVqtbdlP6H4VEXw1MXLSKhpZxHVpUiDUSJ3gsidQkrjGSJ3hqg9yyw7 S2TOEqHnYGk/twzWznNUClbHOT6bpZ2VzNIxjdiiZgREmOC/6SDS9nhjxwur sHz9HrjvXY7go5sRGboT1ZSyqYdXIHrXnxG08gmceGU5Tm5Yh2i3LUgK3InU 4B1S1d6f5YGzRfsxQ5su9MEUbSLfG2N5RPFpT77vjoiXfo+aVb/HgMd9aNPv QEvcVrQlBSoK6FvU6fKWiPj6fiQ0yNAVWj1JeS60ul7R6galdkwRRiivXHMS UUfikXLyOFII6xRm5xTWkwYF0lGZHfAKy8GqHVFYsekkwqLzJOh+WnFzG0uR hTubU5Q93QK28p7uSWkDu5WQFXC1Eac2nKf8v9BiuwMXWm3L+MxKTSLwO9sk sGuS9naLn860w6iM3krbLs8t35mH60GjDUcI2aOmNJyghdIOxOngF3AK63+9 gTPXHtiWb0WY/wEKowgExesp7PQIjjchMiEdkbFpiAy3UnOnKZBNkyHLtDvl IGQ7CdlOC6pyCdlEQraTkG1Pxrn+fKiYFbsyb2G2ZPE3LGkwK60ZaC7ofWJ+ f7H6RSlim9NTGvRuPngMEcX1zLl9RO0Iy65JCtppovYsjE2zRO155toLMLdd ICznCM+LhCvNeVF21b/C1jVHu0A7z8NEsmMWIeYcbNoahuVPv4iVD92P3St/ B6/Nf4Tnjmewb8vz8F77Zxx45Xkce20NTu7ZhDi/HdAf34GaFA9qXC8i1Q9n i3nKJb5MPCVi+xCfYqZkP84UEbyFMngHczwRu+oPaFzz3+gPexEdpp1o023F aF4yrgw55zcNiCJT/UmgfFeAq24OkVQ8VbqhbogfSakd5kdS+ZhaOyLZynWR iD6WhNSIEFGCDuFTiCvsxB4K99U+UXjFi6kqMgfRGR3Q5/ZDl9mDoopRZanl Szh/xoFO6RKZ2IWulzZYi13ofYTvEOE7Km5JaFDha5NuRDgnoMuCYK7Njott NsZTXDz7GV/bpEtp56kyZ1vM0sVtCcLphHDMVhwPCySVQqRjfkkpOED8HqYF EbfHTekIoYWZMnHKlIUIcxb27IrE2vWByIqnkE9ORow5E9HCTBmITk1HtIGW nI6oeDsiI83oq7XfSrsqhp3EsJMYzlMw7CCGO3W4cd65GMLXo/8ehL+6SPMp lYm640m7rCB/SeRPWJy9Aa9EM1YEcLYsdRDDEwwpMdxwDqmNF2BsnoOp9SLM 7ZeI4csE6BVYu67A1i3fP2/ruQJ7j/r8Mu0S37soATvYUgDvsHjc//AzWPPs 4/Dd9HsEbPk99m99Dn67VmK/22aE7t+K2KAdKEl2R0eaFybyfHGmkGgt9iVq /XCu1A/ny/yYgcrFlfrzZTxMmyndj6liH4wXeWM43wuJa/6I1tf+gIHI5eiw 70JbyjZMFCdjOC9xfhd7fE0nxUOPpPATGwliWjJVvq5hiEMeJnWp9Oup9OvG iNyxZSw8Ke6N9eP4Al5+LRYxJwwwxpyCW3Qm1h5IwNrAeMKkAHFFTqRWkQEV ZEIZM3NRPwz5fdBndhPKw0ot9wWW5PEL7hPoahD3mJjm7zEZV+6sEXfVzDbb xV0lhKsdc+1pHMOljrRluNwpPdgJ5kvisgTn7QvUnecI6hkW+OJH7Ho/HupH IJ+A98lQWph0XGiHw8Z0HDVmMhlnMRln46QpB+HmXERa8rDb34j1O09ClxCD xFQzYm25iLHnIMZ2GjGWbII6i6AmsPVpiEqwIjLKiJ4aninBPN1FMHcRzF0E c7cF/S06HPSn4usimB3UwOcdtwGzemeodjHs2/+XYP4i8ju7kVTdAc+k01gZ mIDoUrHCMEsgzzEhX4Kp5QqT8VUC+RqBfJ1Avk6w0npuiKaXwd53Hf8i9Wjv uyZb71UJ4wkV3djsdRAPPfkc1r/yFPZvexAH9jyMgwc4jwVtxqng3Tid6CZt 0BSbwUaJ48kCP0wzEZ8t9ce5Mn9iuIIPc5X+LGcuVBDXFb44W068E8wTJT4Y KfKCbt2f4GCyH4x9CR0Zu9CXF4TJch3GixNxddSB/K5hJEpKqZfWTxAPEsTD 1PsjBPEYhztO7k4gtX6S5aqwKSqoMyxZzyChfBDh+Q68vDEBMaEmlilR8E8p 49j65ZJWlLf1BH8dSVDD0rdySJIaKcUC0D0wZDlw8cpNZfnxS9LGdkd1gnw/ R71BunraVW9UrqJZMKLcIXRGuWFKAnS7gG0aLnWmCTSLXYiONPEF08406ZnY 3nCJNtcprrxZ1VmmrdIIr9AjkMMkywzvU+E4nJqJIGM2jhlzEGzMQ5g5H6eY diKshYiyFeFQTBZe8jTiUFImkvV6xGYUITa9kFaA2LQ8opsotxDhZEW0wU5k mxERrccspcZ0t51oJqp7iOoeM/pbieoAorpbRvW7N+c+JjP+n2GtXVRTc3Ri eQNh3cVKZxheSaV4OTAFMaWMceMl5uerhPR1QvoGIf06If0G8UrrfZP4fVPG 8sCbSBtQn79Bex32/hsS2lNappkiDHjo2RfgtuVhBLo9gSDvJ3HY83EEeLwE XdQ+ZCXsQ3eWj7QVWeyKE3tspkv8mYj9cb7cHxeI6LkqQvtilYD2XJUfD1F/ EN7T5YR2GaHN6jnl1fvRvf1PGEpYgfas3Rguj8JktZ7wTkJHVgQSazsppbol WCc3DtEoqRrH5GKAUE4hlFPrWRBwehJFQULFCOHcDfe4AqwPYvY6asQrW5IR S2lhTopjscCioWWGNs3i4YxU/hpFKcyMnlpLiFdRpZASKcW9SMnrYr5un4f2 hSkHoZ1IaOvkW5VYpXXVmaSrNIN18s1vk+LGN3EfoATrNOl2t0ud6bjsSCec xb1dV7vSWfVd4+M1ZsmrigmoiwvKFwjxWVZd020WygvK4sgwVm4h8Dl5ihaJ /SejcTApDUGpeThuLKD8KEKYpRinbCWIsJciKr2Msqkcf3ZPg29SLvR6jj2r jFaK2MwSWjHxXsgsXoBoSy6iifEoPTN3YgrMZh2me5i1e4jvXlYAvcR3W7K8 RaNbjwln0leXhvbHv9H1n4H200rGnrt+A0kVrUiu7oOuZpSF/Bl4J9dg9QEb 4itY+LVep/R4AxbHm4T2TVh73iK03yJ83yaM375Dzgdpg28xbacN3qS9KUO8 /3VE5LZh9dat2LvtEQS4P42jvs8iwPNJBB/ZCn2UB0zRe9GdvR8Dub4YKSSs i/0xTUjPlgfgfGUAcUyr9r8DF6uljF1NNUJoT1f6YqJiP0rC18C84X707yak k1fCKZoQd0fVMj1U62BP8GNNK1ZkelkdiCw9RjgLdTVFOJ8hnGfI4LOILx/F qfxe7IsrJozNhDHhkMV6uGaCde4FvLLNgNiIdFh0iXx9XtS+cg0swfssTM3T 0qqOyPaptYR2NYV3eT9Si7sJ6w50D59Tlqy/hJHOPDirKUFq9NLVB/WOsV5C epCQHmW2npTuvrNLtyle6EiXblC8TDhfIYwFoJfhWreAtdgLcZ1VmXglTOyP uNglLouTEoR2UXEKTlgMOJgQS1iHYX8YIR0WC9+T8awCbTiaUoQTxhKWO2UI s5bjlL0CkemVLGirEJ1VhWd2pcEzsRA6sxVxOVWIO11Jq0BsdjmhXYqY9BJC uxDR1hxJbUfpTQhPYioR21D7SM8+wrrPTDPKsO5hWh8t/Duw1q4k/2OwVv9T mFuw/jKcE9NIKu+QthnoqscJ7RkWSBfgq2/C2iOZSKhhVdj5JizOt2DtfoeQ fpeQpQ28RwjTht6Tu0gbflcge+gdGhFPnNsHbiKl9RzCEpIooFcgwGs5jh9Y iZNhe5AQvR/6GC+Y4vah0e6F/jwZ2RMqsisCcK4ykFAOJLIDmLBrAvBNzNUw hxPjs0T4dDXRXUV0R66BfeMDGNp3Pwb1KzHSECvfVEbh2pB7Eum6AKRk25Bc 3y+t2IjaV0dUG4jq2LJRHLG1YmtoNtYetmLbyRwcy+xEYs0ZovfSMk5Wl+hP a+clrN5uRGxkFiwG/TKpPv6sVClbOkTVzOqZA5Uw3jQjKxni28i0bSzrRWqR g6qkRYb2L9BZHg9nFYVINbN1DaFdw4xdI4ouK4bqbRgTN5YyW8+0puGcyNad 0g2lhG0GrnRnEMK0ngxCmtabgRu94jehTYhfoRq4RLtAeJ9j0RZsTkSwNYVm hU9IBPaHEtahifALS8bB2Awco6g6bixHiKUSYbZqnEqvRkRmLaKyaxF9ug7P bLdid3wJEm3ZyxCXW0tmxubWEOXViD1dhZisCkSnlyJaStynEcUaNCJVj5JS A6b6iex+IrvfRDPCz2cPBtoT8O5bc7gFbb0raGvX6b7tes1j4Q47NUk7J84S zQ4kUw/qqiahr56FoXaO2esK/IxtWHc8h5P2ZVi636b2eA+2vvcJ0w8I1w8I 278yPw9/IIu2ryNt5H2+FCZQTsQPEtb9byI5pxDH/LYj9vgupMfuRUyUnwzn WG+YEjxQbvagFhabRP0xTu1xpiwAZyU4M1lXB+ACkUxtzcfv4kItjxHTZ2v9 cKbWF+PVPiiOWoOsTQ9ixPN+nMnehzMdZvl+uaZUpBsPIC31IIw5acTzsFQD R5cNwltfjc0h2dgSchpbQnMRlOZAQiXFROtlovMKUUrrvErc0hw051Ws3sls FZ0Da2oqAe28wprV6rgsYd1CeFva52Rgt5yTFjVlUI/BWDkIY2kXtUgbusfO KuH4EhxlRHUlNUiVYf42wu5qyy1UM1lPMVmfZbIWt/fKt0lnSKi+qiB6mYTn n+NGn4zqG33pErKvEtkSqmlO1qEh1mSaiahOx6F4I/YHJ8A3hLokNAWHYk8T 1ZXUKdX8m1qEpdXhVEY9IrIaEHm6EdE5jdgbUY7NMRWSvk4yZyI2vwGxebTc esTk1CAmWyT2cmqWYkTZ8xBpzUCExYRTpjhMDhDWAwzJAEPSnwpfwrqnNUGB 9F1wdJzFj7/pgT99wwMbf+6LtfcchO9ao6slaAXa6hdkaW9yUutE5/gskuht HatzXeUUAX2O6fkiUpuuwtj6OgKsDrwamo+k5mtMzQR0vwDzX2Ef+pDA/ZCA HhEPox/iPj7+lS8/UIBNQDNX26lETOW1CD6wF7HHdsMQ7onoCAFoX+jifWBM 9ECZxRO94q4iAnq0RN5IO01AzxLQ56plUJ8nnM8LMNcxOdOm6ygxCOjRmv0o jl6D3M0PYmz/AzhTE4YznfRemwk9LMjSLIdhNwchMd0OL10RNgTbsDE4A5uC s3HY1oG4csqFpiuUDiweWq9RYV0jmFlEdF6X62LnDYK36wbdt3q3HXEx+bAZ LQSSjQUzAe28JmFdrAVZOi9L6dzcNsfy+pyUqU31FNk1IwR1H5VIBwxFDQqg vwxHKevFCgJa3JrLos5ZZb4FaKqPMaboKabos+3pOC/u+2eKvqSk6KsE87Xe TII3804JzT/BdWL5KrF8SVkeLi1LQahFT4wyS1uzEGLLg8/xJPieMMAvxEQc 5xHHNcRxHd+rR1h6I05lNiE8uxmROc2Iym3B3rAKrI+oQkR6OXSZrBcLmonl ZsTkNyKGWI7OYRbPFkJFaPACipZshKdZcdKWhLZWAyYUHE8Qx/qEAxjoa/v0 fJ6VF4M+iZ9/Lwz3fDMZj37Hhh1/zMHmB/Ox8ncWDHVPudwHuQjVrpbyJFSX dENXxrqp4oyC6ktE9TUJ1ebOmwhM68arp4qga72hoPpDBdV/I4Jpo39D+qj8 O23sQw2631OQ/RaRTd8dC8SpI+7Qn/JCzEkvQsQPyfH7kZrkKd2I0yVuXy1g uqbyGC8NwBlq6hki+2wVVccsYX0vZgnsswT1TL0/pgjssTpfDBPYRQR24dYH MeH3AM52W3HGwdmuw4TKvBDERLshNHgH9h48gJ2R2ThgaUJ0yZhE3pT6y5yR rhLU15Sy4QaR+ToRyvLB+QYRS+t+EzZhPW9i9Z4MxMUVwWa2yxVzz+t873UJ 92JhSKDc0nkFZgndF9jurLSKYqpjuq5huq5iui5vxMXrryta8CtwFBPdZTr5 pvMKortSg+5GV+jOuIVuIltCd18mwZ1Jtt3oz8RP+Ugh0pchw5x2oScNocYY wjyVME+nnSaUCwjtDOw/RkUQYsGBiGzCvB7HzY0ItjUhNL1F2ptw6nSbVBZF 5rVjb0g5Xg5lOk+vQTJ1dUxhG2IKWgnzFgnq0bl1iKIiiaTejswqYqrPQXhm GtO+HoWsIcYGTRgnzEf7U5BqCJGKQVdfIiILtLvxi+/m4tffbsYj/9WILb9p g++zHfB7ogDZ7ol4o6NLe7+q+p0vfxf0VNqjBH0RQV9C0JcR9FXnb4G+7Q2Y CHqL8x0EZvZhQ0QJdESEJpVLSZxgZzYf+5uc0p+eT+f24XckfWIur0dIUCCO B/oQ8N6ID3VDLAGfRMCnEPBF1CaOHD/05DOdF8npfIL6ZIrpfJpF5DTxPkO0 z9TxORE/RcSPE/EjTOUDNT4oIOJLifipwAcw0pyM8rRAWKO3IfT4OoRH7IFB dwCJmZksjqdos9CzkkipI9obOF01XWfeJbk5VnMHKwppvCyUu1god78lFcwn i0fwwIajeHzdCbyyNQQbdh3H8xuDEFk8LK0TCTZYu9+QkU/UmwXq2y+SRefl fE5tb6qj6q7tQWpVC3ompxXEfxWOIiK+lIgvE1+1QMRXmNFVRcTXCcTbZcRT nMxQnJynOJkTiCfaxWVoLeKvE+vE+zIJ7j/BNT5e7dMA3hRPwJtpmQR8Lq2I z0sREJbO3G7DoZgiAr4Rx8zNOMHSIySjDWGZ7QR8J8JzOxGR58ChlAYsP1pD GdeAJII7urCD1o5ogj6K+T2SWiWSYjwip4JWjPCcPH4+HSezU1FQq8NATwpy T4dgv4/81U1MzdJ2cwnu6pbMn3+nGQ/9MALHv38vWh9bB+/VZxG4fhzVe8Pw occruPj8o3gnLUUgfsF/gLTwq04VyN85v2Yitn/Mzc3NK/IRor6gC8nFMup1 AvX1RH2zQP3rEurNXe/A0vMuDmQT+VEl0HfeIKIFsj8QQP8ri8uxv+JnfOSx URXx78LGQtNUSsQfCcAxfyKe6T0pgmk+mgKGiNcR8cVGN9Ra96ApbS9qTRvR YN2IFvtG9Oe7YaDQDaNl3pgi4ieJ9gnamIR2P6J9P4YbglCR5IbKbQ/hzKEH kXLyNZSnB6KjIhwmywHY00OQZg9Dah5r/9pp6GvPKfn9CvP7NTm5/DtB+haB /rZEbqmE5lBFGf3KATMe3RiMZ147ifW7IrDVPQwv7zyBnUEmFiZvS6tHtp6b 84C3OK5JIkZK8S2z8iYZFrRGFrbG2nb0TM0oYP8yOgsI9mKCvUR8pwjBXm6W vtSht+5Wep9s/TjYLxPsVwj0qwT6NQHy6/JDBtO7QPoVgfQ+GelhxkSEmq2s HaleLPm0YiK9HGHWKgSGZ+NgVDGOGppwzNSK47Z2nEjvREhWJ8JOO3Aytwvh eV2IyO/C84HVCLQ1I9Wei6jCTloHjamfaiaioBHh+bVkRiVO5ZUg9PRpBBl1 8Ak+jF1uu+HhsRt223FcvTotjVz99hb161gWrYTI2P88Nrw8iOXEffoP7sV7 W36HVSuvwN2tH73WeOk79v6afAT/w9z5oecruCTxIBVvdnT9++1pIH27xFc0 XBD/PYi4JO90OueXEK++iaQ8J5ILKeZLyYVKeQZIUWSPqfNNmJ0ES8/bsPa9 gwM5vdgQXQS98zrx/h5pMPq+SP/iYfQ9PAX7yLtS6rdR6xhL6hB80B9Hfb2h D/OCIc4fBmMoYmI9EBmxGafjX0VBMgGcskEiQpN1E1rtm9CRvgmdwjL4PHMj eovcMEwCDNbQqg+iNdcfmTGbkezxNGq2P4jpIw9gpseKqW6KnW4T7JnHaaGw p51ESm4xtdwM7QLLbg6snmm/8QaMLW9IkTB3kAWOd5m63yOqaT3vE+XvI7J0 Bg+8FoqH1ofh2U2nsG5XOLZ7RmCLWxg27A1BctkUGfGOxAirxAiKJed1WfQw /cuLL2JxUex4HCAjHCjt6lHJMDfqhLOQZChiaVpCMpTJmV+QYZBkGBVkUDL/ OWqdCyTDRZLhUk+mRIYrggx9mXcIRuBHSsaXuXBRzfqpScz85IKZEsdSQCNW beSCrQrHDcz+4SUI0jfjqLENR60dOJbWiROZToRkOxGW04WT5EKguQ5/9qqA t6kFKVkl2B5ixhF+PoJcCC9soTXyb8mtOD3cDx3Bnv37sddvPw7qItleJHr7 UvH22xeXaeSJ+s3Drr6IApjfNLZBTAG/vBddu7bB3e86evvfxvjZc+jp6oI1 KR49pIX41pkPBC3C9pEWq3HphcfwbrpEC/W747UL7QotFMap/Wp+qzsNRcUr 5o1b/+Hyl5DIDJGUPwRd8STrA8qI2oswUDCnshYwdlA+OCkfuomDPuKh/y0c zO3GxphCEuUqOUEpNPquWGsffVc8vCPpJB4cYUodYkoVJW/TCIIDfRG030si S3KUFyJZ7sYle8Go24uy1J3IS3wVpYbXUGXcgHrLRjTbNqItbSPa02kZfE2r t61HPQlVELseObFb0J5/BGONcYjnjFEvyHKUZOklWXpIlh6SJesEyRIGK8mi L26lBjxLssyRLJeR0sAs0Pw6M4F8/cvcyVnRSbJ0vY/9Sa3wTW7Dn7ck47kt JvxhfRQe3RSDfdsScNAnBtt9Y7HLn+YbAdMJE2J9EmGwNMJQMk7CsKqQpo+r SoVwnkat1DJBG6IuY3VQUzt/t/CFEQcceclwFpAtRWRLqQldrA56WRkMsO4d IVsmOHVMszKY5dRxnnXvXJfYqsfpozdjmaDLMlyVqHJ1niriPUGXNJkuBtLF aJMu7YeYSRdzKUKtFQizVyEsrQYJZXMUTn04ktKGIHMHjtod8Lc64WHphpet B6ti23F/QAEe9q3Fuog6uCfW4jn/dKw4YISPtRmBCRbscvfCzr1u8Ag6gQMG I47nkppFWQguMONYdjTeevvSnRqqqFtUb/OlGPPfvxurgx/pMvPwvfioyfQJ RUyNzQi2OGEmW7oltkTgA12QxJa/ea3G5RcVtnR2zd/ypV3AV+iyzHXnKle0 h59VwlVQO4qknEFOKhPQlRNONYRTAyV3C3NvOyW34wbMVBAWymdrP23gJg5y EtoQmw991+Vl5MVbd5Axb5Em9pGbsA3TBsXfib+/AV1cBI54eUIX4on48L2I Ik3ikzxw2iTu7vJCZ5Y32tL3UVTt5hyyB11Ze9CTvYfPd6A+9VWUxaxAecRK tOg3od/ujsudetwYSsfVwTQkbH0ITTsfxJnjpEkfaSIugvQKmgSTJidhsYdy kmSpVDkLQw1zQN0V0uS6RBNTq7zZyyeuCRsCc/DsBh3nDgv+vO00/rKnGC/6 VuHJ3Ua8ui0R4W6JsEYmY31gEjYfSoZ7iAlGSzUshmLYYrNgCjEi0TcO0cF2 xCRWkHqkiVjYbz8LUxtLilbSpLmb81n9fAH95pUL6DydBGceaVKQKk8sLCmk r00TNGmyY5w0mWpnEc1J5ZxT7MTOwFz3PFVo8uRyh0SQT+MyZxSVJud77AjV kyapNoQYCV2jTJMQa4UMhH9lpngXwfYB7E3uxNp4J9YmdWGdrhvraX8OrcEf 9trwyK4MvBJWg32ncrB2Twi2bHfD1p1u2Hw4FTuiC3Egqw4niqpxoqQMJ4oL cJwMOVmWg7yuVvWrprT/Kc2t7xJRvzfkwNpt0JMQb635raK6PoNRsqGbbDAm xqPLomHDSXeyYQ2uLCcbMlJxk2xQ/7sY7cKoOnks/pKnj7NA/W8cxO3X6nH5 Cye/DsfABSRlDnAmGaOCmIauWpQelOfNZEfbVcqtazB1XYe5h8mx73WinTb4 BtnRSXbkQue8SDa8SVaw8JTsDb6mDb3Oc7EO3MDjsPRfh87Mqs7dA8nB7og/ tQdRcV6ISxRfDOKO1nQvODO90XfaB4M5PugXX8eTuhmV0StRHbMKHaYtGM3x wEThfozl+2A01wfDZNTFDh2uDKQhkcV2664HMRH6AKaliylEWFs8GXIcNjIk Na+ArBdS8hwnEpkhIelD8IyoxVNr5PvRnn7Vgme3nMZze0rwol8VVh5vwJqI ZrjZ+7HS04qDOxJhPJqIU7GpWO4dixd9onGsYBBHcvoQZG1CjK0eBnMFTPoC WGIzYArWI9kvAvEnUhGfmIfYvCaY2ll0t5IhDfXKAuoXMVxXCMdpvfT9dc5i uQaRlpjqlRqkRS64pym7zjoEQzK0DFnGkjqDob1Maohnl/rEBQIhuL6HORLk XK8dIcnxCDFQdqVwHkkVBCkhQcoRynkkhhVnarP81X070mew1TqOVw29ZIkD z4fW4umjFXjYzYrHN0ZhzZYD2LJtD7Zu34UNu49g9b5YrPZLx6bgCqyLrMH6 +HpsS6mG32nKuOJ8RNc3wOjoQc/5c/NE0P4/Rup/SbWGxKj+6b340OdPslvk 1P7FeUyrP4IxXeRZakI8nGTMZS1jvNfiykuPS4wZNObiYv9Z9f9M0f7/ggpp 5B5ufa+yLIFvLUupVxieU/iTYO/j/ME5pFigaJaFLLV74xxSWi9Ra12GyUmN 3X2V8werz75rxP11suQGgstYrMdkQ+c4z5Ztwzc4f1iHxHvib/i3/ZQbA2I7 WgsC9+xD0rF9iD+5C1ExHkhN2odGqyfllBfabftQm7wJxeErURa5Cu3GLRjJ 9cRUsS+mSmjF+zFJmyj0kRgykuONoUxPnGtLRjLZ0b6bzMh2x5n5S42pSMs8 Amv6MegKmqRFB7ej+dh3ogSPLz+JJ1bG4cnVJjy9MUvyzwt+lVh5rA6rIxtw qGAaR0pZa/R/iMjyWeyivErwSYA1MQX7bW3wtbchomZGXpYbZO0y8B4OF4/D P82BgNQanDJVIjG1GCnJ2TDGco4Ji4XuwDGE792PhCQDcsrL5y8v3Lwyh85M HRnC+aNwocwabJCLkgll/pjuVBjSRbnVJSoOSi7OIXM96XdIjPiBxIgLYtqg zfbZkZKWiGC9GcEGFuepLM5NxRIzgm2VHNoVbLdMSMN/Tc8kENmKh73z8YRP Pl52T8KGXYfJBjfaLryyPQjP7k3Eck8dXvFOxjrvBOw8ZIXniQLsOpyDzb7p 2Bich9ciS8gOJ0zdozA6uxcwQ1uJfF6jo/aRHSP/TR1Vk7r4f2G/daH3cwvy /cj0OWk+MpAnDksCLlki8b7EEw/M7grAlQNx+GDunPKVjQsvTCgEcfUfvn9J QxB13fY5JVAXLr+NxIwRTiNTSCqbQXI1C5L6czA0X+A0Mgdj50WShIKh+zLM vVdIkiucSq6SBFdxoqwbr0VnILnzLGeMwavLYCElvkxy8G8HLsE0cBFBRQXY 5xaI+MN7EReyE1GR7shJ2I3ciNeQdmw5TgevIEE2SzeFjhb4YrzIFxPF0hcR LZMY8jU+FYfJjwJvDOd5Yei0J6rjNyJ80++Qte0+tFt3z1+zHGeVaMs4iAOH 9+GVzRF49OnDePTZcDz6YjKeWGvHMzty8bxPibJ38dOsrSaY7sQl8/dh7f2A NdcH0vWY1VuZevfEw3IyEXZxk4t96INl0oX0L1E/ytyw9bN86Xubn7uJqPpZ hBYPwC2pWNojFmvMgk5vQmp8LFLDgtDu8Srm/vyItOQ4Ga9TZvsvYKiqiDzR syRJhUOZRXo4i0hfw63MIhOt9gU8mXXKXLkT57sFOc53Cz0lpgxqMZJjut+G gmIDgpNSEazLIElyEZxahBPmMvhau/Di8To8FVgqeeAxjxysciMp9gRh6w4K p92BWLffiOV+dvxpcwwe2hGLx3bH4Wm3OPzFPR7LveLhHlUCf9ajAdH52B1e jN2hOdgVZMVW3yR4J2Qjoqhy/rv1tP8b4ec05IgkOa6/QHKc77vLBWJdfTeo +vXww9OzcJAkurg4iSQdnPU+cMzg5vlpqDOH9svq/0OdOVRt9xUXdPiLcokk v3KG9fkkkoqmkVQxw/nirHIaj5IKF0iFuflZzdJ7iXSg9V/C8RIHXo20I6n9 jPTa3H8REVmdMD52BGdf9UTrEw+j+Pe/g23ta7C+thymzc/BsPFJWDc9jtNu z6HEfyXKD69G8dE18j44UmGsyA/jpMIE8S84MFlKapRQSRVznijkPJHvhayQ 5Ti68dcIWX8PEjfeg9jt90B35C/ITdmNI1v+CO99z+Phxw7gEXLg8RU6PL3J jufcc/HigSLsiG9CQOYgjG03Yep4G2bHOzB3vUsu0HreI7bfw9Yjp+G7LQaG Q7GwZRVJ2LcPibt1bYPv4Tt8fJdcoPW/I69XkAuWnteZLqg+mTJO1gzjaFEr DmaU4GCKGeGGBDTrQ/C3hAP4KHgv/ua5GjdWPYE5rz0YOXwYbXY9Ok6noLPA CAfnDHHhTnxV7wBV1XAT5w3yYbxN5sOZTnLCITbCnXWK76KfJSfELnjJyImz 5MRMr8wHsV1nfMCC4wl66fbJzW7R2OyZiD+to21LU/LBN7BlhwfNDWv3J2HF 0Ty8eKoSG5Nasd3kxN6MYWxMbMKftpzCIztO4Yk94XjCLRJb9S3Yyvc3G5qw LbkCW+KKsCW+GDtjcrErwoZdwcnw8gpG7zPPYMR9FybidercoS0+1Gt2K0mN gh/eqwidhXJn/pj6v7NoCZIZb4fnH3zR9qwPXi+um68oBkfex+HUS+g5c2Ne umnXeBWCqP+DoXZ76F+UFeULF99GvG0UCXlnkFgygyTSRFc3I3Wf0jKL1PZZ 6bnReR7G7gvSc3PPhWWcMi6Qb8eK2rE+woLEtgmY+s/jQHAv4gNa0J7RgOgo HWKCTiL2UCgi93ghassGxOzeiJh9G2HxWIciz5Vo8nkBA/7PYtDvGUUBfhe9 7o/D4f4YWt3+v/LeOzqO40z7fS6oYK3D2l5b17LltJ/tlb/1OsoSbStLVpYt iZIYRFKMIAIBMAcx50xkYAaYgAwGJBIAkXMaYAYzg0BEIgdmgqRIhd1r63uq uhtsQkMK99w/L86pATAYVHVX/d5UXfXW8yhe+hxOh72PppCZiFj0GPbO/wP2 L/g9Qrx/h51LnsTWJX/F5iVvYJPfO5g+fR1enhOKN3zNeGtVIlYbarEvvR0x JecRy+jbxOjbLB5Y2igVDdcRJ55tNLI4b+AgvaeFi4MRsjwYCWGRjKAHhCDc 9OLLDV5TYgutQfNHctZOSEKCa4zdQGlwUhqcNIhOahBnHyWjCxZHCz48ngHL 0WPIMkWiNSECF+PELCTt/YEV+Mf6D/DRvNfQ+tyTaFrli8qQnbDROoiFGs4S WohyxhmaRNBCdNeJ/aNSKrwoFsn4L/TaxZYQZQF9DwXhjDuRDmQC8lL3IGKD H959zRsvPLUSLz+3HS/Misa7S4KxcImSKGkWFf3fduRiWmgFZsfUw/9IO/xT TmMpwy8hCIFHWI6eRtAxUVqxTJTjfI+/B6bxM+mM3NObsDTdhdnWMsw05mJW 2FHMD0nA7s2RiArah5FNQTJgvvzeXzG4wh8DUcZx/0Ufb/yLCrvY97qE0tH4 KGMOS5CH8Pme296DPtsr/185GcIHb/7sGbz5yxXYNq0aI5ZWXCvKG5+E0s/y ThAMfQYD5YiilzF89iYiUroRmdmLqFwKRqEiFDEVfYitVn422/phbuhXBMQx wKh8ANsL27CDZXW6De8djMf67Hq8E1KIeSE12JFeh00RJuwIpw1n2Rcaiz0r 1+AAu+jwuqUI2RiALXOnYfdzTyH1pWeQ9epTcO+eJevviVUSRvTFzEe/cR76 DXPRHz0b/VGz0Bs1Ayc3vYRgv6k46P849vhPxdbls7Dtww+wY/sCbNwVgOW7 Y7EqOAuGjBYYxZwb78lYMIyY4nOUjgswVV6GueYKLHVj6gOda9T1Qudfxzv0 t7b7HIZ1VzDi8mqFJAjB+GiKfILzddoJSkSTmNe+yiLm7CgZrkuwui6wUDpc Qyy9sDg72E9NMNXb1GH9GboGhuBudMAaRc84IRIjCcG4GbsT/whZi39u8cYn vm9h8NVn0b5lKYqpYxtLlEi8mRJyukqRkoiDwSg4FoMuG6WlnqWBxZGILmci Itf7UyP5Y9rPnmBY+zIW/n42Fr8WiA/mrsWixUtl+DyTuv6tbbmYHlylEPVj +Ca1wo9SISTDnz/7J59GQEobAulRBx5to2SwUCqWpbFktCKIJZBdG5DZjKWZ bpZGFjv8M2zwT6vCYlM2Y49UrFpvgHlHGC7HH8Bnxq1UCMvwj7VzcPX9l3B2 dQDOGozjPpIWe4jfFLfrPkn6DkrKyEt0sWoSNIm4dc6Y6oxp0iI+L8NFIRk/ ewtv/9dizHhiDT74ewRWbD8Hp/M8zg8NTEZK9BbpTc18nP0Y4alnEJHZh8hc RSoMJX2IKVd+FpJyuKRT/rw4xQbvVBuWHLFp1u+PW5MwdXuKKtDi62HMjDiK Fz+Mw56QGATTE9y0+kNsWBGEDX4L4P/Ucwh57iWUvfkSXDP/Crv/q8hYP0P+ 54kYfxRYAlAWH4jqpADYUgJgPxIAx1F/pDJI37viaexf9TR2rnwKeza+hF3b 3kBC8gYvNZCKPmqXeTcMmZ0wZvfCmD9E2VDnbisvwlx9if7UZcrGFVoPan/H GNYaSrBs4QFErz2IhMTjYnaNUjBFzlUntFylXFyVM25XxR/G8FU5XRfvuow4 9yUWCof7HCxNjMXcAyxnKCBtMDvccI6MqPryZ2g504+6BjuKsrNQFheF3oRQ XLPsxf9EbMDnu/zx38um4+K0v6LJfwbqtgZi9/4wPPvOTsx6ewMWvLMB21fu RFzIFkSs9ceqv9FM/uw5zH3kbfg8vggB7wbAf0EA/LwDsNRvGXyX7cZ7a47g na05WBhuw6JoOxbFNsLb4sKSuCb4JjZPgR/F4adSIJYKYTjCcqydwsBCa7ss ow3Lsmg6smgqsigMJygMJ10sFIgTDvhn1cNPrAM86YTppBsmCsrq/WlIzyjC 0ZhINCVG4ELCIXwasx3/PLQS//hwHq3lq7i4NggXGG+0llWN+zhaLCIeiSf/ /A+4Of8xVXg8567n24qVeFqVhUXK2/diqf9BrN0WgpKqeuTVnkHvxc88Pu+4 i0i8pUro8LmPkVE6ivBMRQSiGGxEF/cpH34Ei5JsUhIoBfA5asNbhjz5l1ej 8igKSXg9Mg+vRyjvvbb/GD4ITcHMpZGIoCCHRYZjf0wSdm9kHDxnFtY9+yoi 35iB2oXvoy3gPXQFvoYuht2ta1+X/+86PAdle2fBkb0GDTmrYctZheqclQha 8BhW+z6G9UFPY9/6p7Bv7VQETP8V2px1ijh8B/aWEYpEE6I5pIaTZ2A4NQBj 4QhiSs8itoIiUXWBztRFWGziUc0l7D/Rijnz9uKA/z7EHTgk0vbQFFyR3Cc0 XREycYX6QjyZSXCLeetLclYuTpQmCkLTOZazFIZhln4KQxfMrtMwOZwYvX7t 1vQ9nZ+iGhvS0zNw0hyFCvpXJRHBOLQzDCGbDiBk5XYsmrMTf3r8MJ58KhZP vWjGC2/uwl//5Ie3/+iHwCcDEDRrBXy9/eCzxBfLglZjz8E9SEyLxKlyAxLK ixEUWoqF+yqwMLgWCyMbsMjowOJYJyMFF3yEECQ0wy+B5iFRmIY2SkE7TUK7 lILANEpBJssJmodsmowTdJZONlELLM124UH4ZzvhT0nwoxTs4M/mgg6Yc1tg poSYMhsQe7wWo+evoqt/CK5GO+IMEXDQKp5NOIyPTTvxz+DV+Oemhbi56A04 XvkrtgcFYqCiRnv4J/wo8VC86jd/wD8j/bXMS3pjoAmA+Hr7V4toDFZj/jvb b5OAvuGhccT1zzdU+rWc29rCbzVzjnLg6a9Rf1pZNRHOcGKplRcUqxw1tDDB dov+VEH+KbwakSP/9kp4Dp7YnYI3KAVvqPS/vSsZc7Ymkn4DIsONiDBE4pA1 GcFxydi79xBWvfAaDr79LnKWfAD7ynlo3DwbbmsQWs2+8v9bD8+Aa8ff0PDh iygNeg6V4TNx6sAMJFsWwNv7MQQsfQIfrnoK6+c+ijZ3/fhz5HPXEJXiRjQt fHRWNww5fXLFi7GY9IvHMJVnYao5x8joPOm/gMUfWrFxwW7EbtoDU8pRLyr4 S1Mk4FPkYxaBuSj8AzX+vxD580Rexb15lIXINw/C3NQLs7sTJlcrsjs6lSH9 7W0qRnzV95zHvqwaLDOkYfmBWGxYz6a37kHG1u2Y/wyjn98n4o1Hj+L1R1Mw 65l98J65HN6LfXnHvli8dBv2hYUg8WQE6pxxLFa0dJzCyJWriC6xYV9GLRZs J/37SX5oA+l3YJGhUaHfcot+3wSFfH+Sv5TkB5D6wAxBPUt2GwKyW6nvm0l7 kxf8c5p41/7ZbvhR5a8R0Jf0wFzUTfjbYT7VTPgbYc6yIaeiSRmEr43Plxoi wlGXEIXhxBDcNO/CP0LXomSFN3Z5L0LfK8/gWnwMLtsc2ooZe10tAt+dgekP /y8UPv6f+LzM4sETugX/dMIvvibArz+XXpuFncC+mGISX2rOnWl6G7Mrg5FR RB3mGm2YZ7Ypb/8Ci8n+m5G5eDX8JF6LVGbpBP9P7E7F3yLzMddQJN/7YE8q PuB7r/rHY+V2KyJNRhxOPIKQpCMISz6CjQFbsfrV6dg3802ELXhL/k/04UCk RgXKnyvMSnYGGyMFW9Rs1Ia+i6q9b6Bk81+RtexpZEyfipA/P47R/Yvxz37n PeqEZWZBJ6IZ/0Wnd8lJMkPeAAyFgzCWqg9WqkYZIJzFitBc+M7ZwTB+J0zB BxgknBdp2uhHknc6/HEu8dBFvCde75Vzy3Guc+RemTyzsnhJ6u+DWXDfzCCq 6QxM7g7ENjZT3V+fyP7w2A35c1hJM8JZRGq1HakFWBGRAN99MZjvH4E//zET f/vrScydFYJFC1di8aJALFqwHau2h2J9aCLWBSdi7YEE7DNY4W7Pw9j1s7Lu LEbr0aX1MJQ5sT/Tgfk7qrHggJ38O7EwwoXFBhe8Y9xYYmqCj7UJfvEt9IBO K+xT4wekd9DPYTkpCmXiZAth52dyWrz40kyvzy+7GWuo5K0VQ7CU0dMrYShU 1AVLfhssuW5YchpgOlGF0Ytjqtf3ben11dLrCz0Ugor4KPQnhiJ9yyqUb16G z3f44rOl0zDy+rP4KMmE/TNn4bEf/wDPPvg9vP+dBzHn4e9g44y5QtVru/vf ErD/hZp+2vbxQ4c0TX+L7rsQf/uk6rvqBzJFSj+Z8KMJHx5rxMZ0J+bG1GOe pQHvRBXj5ZATVO1EXlXp7wrnhlHQ0rgKBFgr5XvzDxxnScO0oFj47kjFprAk BKekI+xoGiJYIo8dpy4+Rm/kKA5EH8Yh42HlDv4Xth9Yjv0hyxATGwiTcSmO mv2RZfFBW/I6XIpfi8+Nq/D5QR/8c8NMfLLkFZx942kMrvDFBaMRHaey0d3d iMyTMdgRXIhdUeXYaarGrrhaROf3w1CsPC6J4aDtZmww692NOPDBJpi274S1 xC0fnVgdLI3iEcpZKQJnxYvYYWl1kXPXCP17FuHSNA8prLcMwNTSD1NzL0xN 3Yh1tVPXdz8wrj28EFHWjF8qKdhKleSBUQWN2ByRCL/l27BgwQosWhSEGTNi MGtaEWb+vQLvzc7CmvBErA5LxOboDOw2FSI6hf8X78TI6HU5VNHFNYzLGmAs c7O04QBD1aBwJxbsd2FBcBOd/SY6+80kvRlLzC3U9K109unjUCH4kXJ/uoH+ 9Gv8s9rgR1fPjxp+CnxzWnmzPvx5TW4b4qrZGyKZjUhqIzHvIeadxLwVljyq /dxaODv7lKcCtyf3rLDVI/PYUSwPWIqikJ24Zt2nTiT7I+m1J/HOD36ImSwz fvRDvPez31CH/51ILyTSqyTSE50XT9khfng7zvrJUOXs+mfR0DPEXmccWO6W eWtEdsrYijaZmTI4j3rAnMswqBA+CWXsHQXfBcZivL3nOALp3QQl1CueTkgW 9ccJTF9lwqpDKfA/cBS7ErIQlpaFiPQsRLFEp2fCkJYOw/E0ok28U48gKjEV kdYk7AzZh4NhO+VKispiMwpzYtFYZMJJxkataRE4nxGCj4/vwz+St+FzEzkP 9sfnW+ZQKbzOUPBZ1D01FYW+vgh6/yDW7DqGNfvTsfpQBuavN+Kl2Zvw2NNz 8cSTs/DOcx8gdrE/TBarfAZiaRgmgVb7MF8c4qVxGPerc5tUXW6WpkGWAam0 BcheiG0Rq7djm3sQS5/dSG2qRGVPyp4Q+dgidPnYIoobsdN8HEtXrIFf4HKs 2xWC/QnZeO1vOfj9o+V46vly/P3NCrzwYhF2xdAf1lIK0o82ZrKkMUI/0gRD ghMnqpsl18YSB41UC7nu4Pceln5siu/AvP1NmB/SggURrfRiWrHY1Apv62ks od/uk9LG6KsNvmksjFh9ybUPfXYfanAfejBLRDl5GmGVo4hjmBNXQ8NWTaeN RtBCjWAt66MWOANrUTsshU2wFFCF55bB0yMv7Ymg0K1bduzEMSqzHEsUOhLD Ees9F+//+jdY9OtfYcYj/4kPfvc05gmg/W4H+hf/74CeprpRw3TsokTmv7JG mSHBKPNVdslEH5byHqxKLmVYU0CHTgBdrVmGedFlmH7oFJYlu1Rr8VssjjiF xVTfM9bHY1t0MgLCMuRCrPCMXERm5dBVzoEhK5vlJIwZWTAwQosm21GpRxGZ kIIISzxCo8xorozHqDsJg85E9KprsZ0VIYiM2YjwneuQYg1D4/FIjGSE4kba Afw/KTvwuWU9Pg8LpOGbh7rFPoh4+0OYX12JkIBgvPynBXjsiXl4+ukP8Pdn Z2P2K7PxxqszEV3oYIBKUm0ktn6QHkeDeLGLVA0WB99zUkO56Hq4hfvRJzKr NfcR5+Y+enCx1M8x9EmMznaMXL/xFTWyyXR23iK5pFFxHQXJQcux3UCzlVaK 6DyxLLUFpiKWwlZso//wxMuJWLAoEWkhG2Aq4Pv5LeMZBiXhpDsmg+WYG8tD M3Ewq5xUu1hOs3TJTRrGEtqikhEczBxAkKEd80NbMT+qDQtj2rDI0obFCe2M rNrhTX/c+zgLNbY3NbZ3VrsXFme1E8AdxUOIt40ppe6yzGojkjVZBdiVVNzl gwS7F9bSTsJNpU1hNRdUYvTS5buA/dXbnnVt33sYj//it3j9j1Ox8MmpmPvE VPi9OBXLFsxBQU6aev7Y7fOME0AW6R602fhp6qRKpr2JtrBBJkMwivSVBNhU rk6q/Am+8WUMx2vgl2yX7wQmN2O+oRYzgkuw/MhprDh6Gr6mKngbSjBzbSw+ WGXG9v1WBG21wic4E1sSTyHyZD793nwYT+ax5FLl5FDlnCTIVNbH0hkTHkVE QiLCYi1ITorFiDsRA65EuKvCcSpjLY4n+SItyQchuxfg2J7FqAufDlNChLye gmPRqDkaif6McFxLP4T/PrIL6RtDYF4diaLNodgyay1ef3oh3n1hAWa/Oh++ 0+dj1vR5WHPQKqdQTbUS0DoCaq7vI8Fmex/MDv7ByeJicYsPxDaxR2KahUI2 Mpo0ENeR6zfHz4HLJM0RxXZsCIlRxfpX2GZMQiRFJaa8FbFlNHclbTCJ1D3F ooh9mB3y+wer4rB+XzSiGIRb5N9oFovUDFYiLZtAmYo6NsuNxcGp8D4sMKbD UdKh7qrrJ77DLGfZxgWYSy/RrF7GlmOD2JIxjHmxRNragQWJLMmdWHiE5Vgn FhzvJLejCKsS2Zc+8uKLeOIgN+GJ9B62K4gTq4VrzhPjUZkQ0lrRT4y7WdqI sot+CP2OMz0eEZ6iPobSHko5auvw6I9/jr/8x68w7bHHGWdNxfKXf41FzzyC DpdNo1c/JTiBXn3tb8vXNzB86Qr1UTUJdkrvS6GXeqd8SAqe+PK1FsMvoZpx tQNLk93yvSDK84IYB2aGVmLF8W6sTO9GQJILS2KqMGNZDPxWW7BrmwUfbk3A koMZ8DOcQlR2MaJzimBgMeYUwJCdD8OJUzBkUkcL30O41EkpCLdaERxrwDAx bq2JQHqyHzJS/ZCZ6ousZB9E7VqKxG2L4YicA1e88kiuhb5Ia5EZxZlGFKYZ cTI5CiWpkUgNM+HA5mTMnbEFf38jEO+/G4g5b/rAe8YivDdrMZZtC0dMZR9i q1hqWIizycbvZDmWJJtIcixJjiXJMSQ5RupjY5NQxQa+GvhedGOXgPk+VRVr 5xdGxSdTBa+WKnhrTBLCRRavilYqidPs5jYy3QET9ZmptIvMsZR0w1IqdlvS eJedwcrgIizcm4IwkxXWkzX8W5eSA4XcmmncTQVkPI+MU017hx7BktCTWBlT quScKeqVW8DlYwLxGK3kIsxll2lZx2CpvEYgr1O/fkRAbxBUlvqbXmIf0b1I sN8Uk6F2vtcgthZdU/ZQ2y5LZ8Nac05xpGWGU5FWq4NQ08koq4ezt//OHD9w 25K1xe+9j9+T49enTkXgG3/Gkld/g61Bc/C/PczsqRBrh/TpUzpM07T8mT6Z +s9QQj+CvRRTyoEjwJYKJe2f+PKLq6QeblCn37+OhSY3ZkXYsDJjAKuyWE4M MJC2Ye6WNPhsOopte49i++4k9mo2/M2F2J9RwoGPzi3Ft2DILZEQG7IJ8Yk8 RGVmI/J4BiKoh8MTEhBsNeL4sYM4keqPE0f8cZIl54gfsglvfvJeGNYtUK/j B+OnGneJUsCSb0ZlcghCli/HE0+vxrOvrsFrby7Du+8EYsEsPyyY442AtXux y1wAI8E1UgcbCW1MHQuhjSG0MYQ2ppHvE1wjwTWwREs1HO0SGjirc2TC8Hz7 C+c17j90GHsS0xFeWKtLynZaNXEi1yB9NaoyM91ac2kvCRCFVsBK7fEw4qjp Vh8swMztR3DAkgJrWh5BoQGnayfgFqDLhFWFVNj59HzD0lhy2N0F2EpTaZR7 3oYQU0ilXHSBAFMplxHeiquwVF0niDcI5E0C/DEB/VjA+4mY5bF/SnZZHJ+K x1uOT+hbJDg+ZrmpbBilitYrZ5HJRWY4rVa2u8VV07+oaqGM2OHqG1CXvHxh 94gyFXL/ONPCvbCExcP3pZk4vmI2ukoS8Z9fzrJ+3kJh+Y/IsrlgKGyEkVZM JESLpXNlLhfm4wJCC3sUluPr4J+ozPIFJCurTpcfG6CzdRrvRzeS5VGszmbJ GUXQsS4siqqmJsnB0l0ZWBpZBP94KvO4Umw9XorIUxWIYok+VS7pjs4pRtTJ AjrOuYhIoxN95DhCk5OwzxyBqJjlyDlKlo/5I5fl1BFf2AqD0VRuQvDSD+R1 dJiUxQDdpcqBzj0sU9DL12+jh6zHrZiHJb/7Od54bj6efX0NXnpnDebOXo+w uTsQO30Fdu2wYKelANFUyAYqZAO5NlAhGxpYyLbBQcaiG4X+jSLeUfwp0tGL hpErCsmveDyKQDvGUplSo7NW7lTyssnMzZ1q9mb2Nik2M4Ayl4n0PAOK38mg Kk5kc64SZVhmdX57/VEGi2nUy+V8b1DmJxcpfawVfZSCHurobmwTEUxYJnzC 8+ATVoQlIdTNBfQ1xNIGgXXxRer+yxxdRSdbqj+CVSLNYvuEnLI0fCqZjrd/ RoY/k1wnNIryiaRbsB0v9nrbb+nqOOpqax1959pbO9PixCIoseWm2oFcUicB 1u1dv2/cU06khxT63gbcMG7B502ZGsX62bcvpfhrpKmSFLspxh20QUr+M3MF bUf1JezIalIptpPiFixN6tSedS5Po7vFWHg+o4ZV2RewOlc8nFhz6iIV5VJ6 HL6JbvgmOVkcVOY2/nsVVqeUIeJUNUGuRlReJWEuR2QOwc4uQkRWHsLTsxFK J3l/ohXrw7Zj7eE1Et7cY37IO+qH0ow1aCbAp8vNsG4KRO0B7/F5yN5SK/pY +lmmYKDMSogHyiz8nZC++zwCnngEAS8+gRl/X4CX3wvBwvcjsW/uLphmEuSd ZuxgABtJkKMIchRBjiLIUVTSkQ2EOII0/wsiGgS8Y+PaxRO9IyMj2g6Q6OJa GErpSJSzcyW8IqlgD2IIbSyhNZVSXZTR9JUPE0ZhqKncqkblDFhcjUi/Rip+ hDeCUvBh7AmYzSbEU//F14xIrq1VwkkV3Pch5KQTS8JPwDc8n6UEvmFl2JrU RH5HEFt47ha/qkq+xe/HiNPYbfhMshsv2f2MKrnxM97FOMKNAl9VNdsV1Szw jbNdZDmn7Biz9bN0K/thahnBlpcqCwrvlWp1ecAKhE7fgJuS1wxMAlhP0xHR uTUw5DePpzgzlYjZFApRzWXsPNGquhBO+CecJrDdCiD/jhXpZ/G+oQneyb2E 9TJW513BWpY1+Vew4uRZ+CS0wocRn0+yixGgA/7JdQS3DGGnahF+qoalChG5 FYjIIcR0j8Oy8hGakcNwPRProw5ifeQurAtbp2hbAptPL6JZnOhMWDvLLcgK 2YziXT7a453B8jgMVShluCLOC8OVcRSdYfWtoXIrqqzbcGT7IhzfuRDHtwdh +us7sXDaQQS9vx/rZ27Ehp1x2HW0BmH0LcLoW4QR3VBZelE/PIbha59IRsU+ GXny+oRTM+5TQbX3DKiw0paViSkwatkyAWo/tcEgyaFGKGMnC9smNEPleRJ4 Xk5nxddeoCmnCvs+5u/Mw/LoXMQkpvKd8ywiW4NgeVQqY2vlIKvoo6I9SUVb RFDLCGoFfEIqYMwfoaJVQS27ogP1hgrqJwRVQPqpl6R0isJp439LTAmr8zPh P6iwSlClrr0uU5LGieU2BNUqEkjUi5yOBLWeoNYT1LpG5Da51G1J9yDQPwjb 5q7QKP2Vhzmzh78M0vsRnV0Hwyn2Zf4ZOkWiD0UOYF5B7RVVZf0n7bobS+Pb EZDYg8DUQfnuiozzeD+mBd4pfVh9inTmjWFtwVWsKRjDmkKSmn0WSxJbsSS5 CT4pVK8p9fBJqkBwbh1Cc2tZqlkqEUpKQ0lpyIl8BGfmYoslBhuNe7HJsAnr ItYrfgF9XXthiCS0o9wijwA9uX89sjb5oC9a8Q2GK+MxUhXPuxytjmcfneXr qCxxfJ/oVlrJqxUD/P8++hGFpnDMfHItDr0QgMJn34P78T8jadNeFNS1YujK J15q9+hd2IlYPqDOdEYXlMNQXE/XqomhQjvLGTkrG1MqEkeMEMmzLHQK1WRS cdWXlBTLdZfFY0ObyI1Wf5kytdZox+KwPPr8mUgoaUMCSRDICkipaGnplChJ RGW+YcUEs5zfq+gJVOFQ+hlq0fOIoVMbqwezRoD5sbT+cTrrz4Ydn3pJEL9F KDXdqerPxo9vYWknlg1iFRihsBNLO9W6nVjaiWUDsax3wDU0OI5lwqFk+C/2 gWvfmklhec/4cRjiYBd+f1v1WqNPkMxcxrZ5vLPCQZmPy1J1iUp7DDuz2uEX S4/V0kQyOxCQ1IvAI0NYlnYWK7Iu4P3YVninMlzIE0RexdrCa1hTxJ8LVTrp xXonMcZNcWFJagOWkMyD2TYczqnDYZIZnFPFn8txOLtEbgPZTWO/IfYQNsbu woaYLVgXtQ75GWthKwhFC4lqJ5FdVJQ9ZeIwk3gkrPLGmaglGMnYRAITcLYm AedqE0Ssydfv8jWev8fzfRLKMkJKh6pIZ4UFvaS8ICYM0/+8GnufD0LeczPg mvoX9MRFf8GSCx9J80O1dffRhZX09B3EsUWNMh6g6TlHBC9A+4rTMjyJVMi2 q+TvqljIRw30MNZG1mHW/nwcSjmFhFM2mQU8vv6yktBPI5E2fUkI1aOgkKpR obCa/qnI6HmO/tlFlcJrMKsUWqgerTaqyHrC1cBiF5CJMKtRvDg/lkb8JmEU WzduKIvVHddl9imRSsJqJ4R2sRn4nHhew0Lf2EEI7fRBG+xwDg1oDB5h5Hd4 1nrsDPTFx/VHNQb1s7ATGBRf2oFCN27cUBj8DqIzbYzIeU+5X2Rwh2DQSNtr boK/lQwmTmTwNBkckAyuLiB/hde8JIQ/4isVZuElrGYUGniiG4uI4NIj1dhz 0oZ9VMj7c2pYqlgqsD+7FHtPFGBTvAUbzAewwbSbbtZWbDHvgFMcyyeOOhNH xBO/M+JMswrlTKgY3/loD/fDaPS7RC0R5+sSvXDBlsi7ulifiIv86YItQZbz NtJYRxpJ5EhNHAZJYn+lBT3lIvu0Cevnbsf2F4MQ9e48rF64ECv9/DQfUpD3 DVUP2rt7YCiooYPuVELN4m7ZrzElQ/K7qVQB0FLBgaxW0mfE13GAbdeFYWz4 CD9moP0RnbqPkKiWd7bmY1dyMYzWXP7tGj81psJIPVpLEOhkrjaV0jYTxFAB YjXVYg3jfQ5agQpi6RWYqA7NVQyIaghjLZ1K2w2ZukPsFRIZn4S285LYfVvu kJAAOj9SSuN1BUSHSIJFbejg9TsYEDVO2A3h7IKlsUXCOHrtqh7G8BkbULVz FfZ8uEKDUT+pOsFO62cGFDv9KKKO0+/Jop3OOaNm56JEk0RL3RXsyGyDr6GW GtFNjdiOpcJOHxkkiaNYnnUe06PpKaYNYVX+GEkUWvCqog0FhkWXWS5idfE5 4jiM1YV92Jzfhq1Zddh+shY7s6uxK7sSuxiV7jxZjO1Eca05FOuI4rakcOw5 YsDOpGC4xBFQDGPaqAG7xPFPxLC/MkEe9FRq3InG4KU4Z54rCbxYnzQFlxrk SyK+gYt8PV9PDUkOR8nhEBkcqLbCmRsFK73RdSsCsMTbBytn+CPtpTlo/Msz aJvnrXTwv5G7XvrZdewWERzS/hb1SH9bfImULebSi/Jna9WYnKSU3CkTlORJ zXPkUHIdeSGRrw9h2kYnNqc0UPBbZOq7W+yJRJAXpL+446gdPsGF8A2hGQ6t ktyJvWjGgrNs/wK5u8TIgkqwkuxVX1P2p5F3kWksrkEwL9JI3aOw1ThevGTS nK/z9Sr/JMqYRC6ukcjJDTjn1RUXyjYDq6uD2DXDTOy+pUYxgrkIMvexcTNy jLslbJ4mj1TwHvQwEaqsEngM9tMjiE5vguFkl5LlR6bCusC7Ydid1gKfyGqq wUb4mxnFJJyhg9iPIMbcy7PO4r3oRvgeH8CqPOq6AoYyhZdV4BTdJ6ErpgQX D2IVoySD8wqSRZLE1hsIruhGSEUnQhiRBpe10uQXYe/xFOxNS+R3K/YcNSL6 eDjcjKBbxVGP4tyx8nj0EjrtwKai8K2o2L8U5+MW42L6GlyyJ+GyKA6yd8WR RItz2Z7It6kL7eIsJysacyKQHLEV61cFYGWQP47H7ERLgQHdRbFYM3sbPnx+ BTKe/wCOJ55D1wJvJWz8FuxdfTDk1SvnXRYwLCnslQYjpnBU8mYuu6QwSA7i ajUGb0pDmGBXJl6EN0bHM9H5CQEMK/8Ih6m0TDaR0f0jFULSQGscpyq/uJph LDlUQAjLqACFBa7BkogqDtMoARS+IJVf+WUOFyGsHqPyY6mjJaXFF5tevKRd /TdJmVBskjhZxpRkNII6h0hMc0nZCOkUG1zOw+JmjODWreN3tcPibIZzZFQl UOzcSEfETIXA67Up2jS9p9n4CRDq537eUX3BkfPX5fpsQ1Ynu7mPan2YKp22 uEZJELJEqP4oOzVgC/3BTgSk9iKI4C3LHMZboTUIyBzEyrxz1IAEjl7yqsLz BFDAdxarSkZYCGBxL1YWdiDp9EcE8LpMTSu2+iSKNd2uKzK1wqGcQuxNT2VJ IohW7D5qwLET0WgqseJ0mXL43ZmKBPRVEcIa5cSwlvQQnNzmj1GrLy7lbiJ3 ybjSKLZqjjUmsffHnEnyJ2GFS1MPIHrfeuzetAIHtq1CRfph+pUm9NXSuMts +bTIpSZ5zMnq97dhzXOrcOz5+bA/+QLOLPJW9w3/VmZYN5wijnni+FXiWMA+ E3nsis4qOJZf1uGoZN+IF36ZiqISn34mo9VEBgeJrk8llzJ5Nf0zkSAxQWQD dahECrVoE2neKMwxlfA5TJMcXCkjkyURFRyzYYoE1WIx1WIZqay4KK2XTBUm tpnYrqhbTa6IYEOAeYWaMW4cQBbHJb7tuIiv0vBeULXgOYVFsaekSSzX6WMh j+52mJ1NYm2lyuP9ksdIwWPMZnzuTr9tQ7f2nFM/v3MXKJXlgN9HVvEZRKd1 wJDTy5sb5I0py0YtdQTN3ACf8HqaZRedwzYsTe5G4FFCmT6Av4dUYGlGL1bk DhNKlnwCWMBSxFI8hJXFA1hZQhiLunCgbkjs2b+KXyOxZUxh0S02FVySK6t3 px8f53FPuhW7jkWjKC8WzSVxOF0aT6cwAT1UiP1UiEPi9DpbkjzuK3ntEgya l+LKcZbGFDKYgqssQguWHzmIjasDsXqZP/IS9sKWGUqWrTjrSMBIA7muj0df HWMdvtdNL7G7jDyWxqK72IBVM7dgOZlMeX4h6p96ET2Ll3xd05CdRDKHFlVM NpxSHjDE5A8jtnACkvTQrLU3VCQ/UZFUpqiV6ZOHieFnCpKyfCIPCUhw3lAV 5TWZnjmuQUXSNorQgnYsOVCCJYfLqSoqsYSBsyF3kGIxSm+BWJaKXYHnpV0T GbnMNRc5imK7h5iKueglgt8pZPKiIPACI604x3m5LdzqJIG0xRb3qLqZgxQ2 Uys2CxK7YXZTzXWeUTK7fGUChGnyXd1ykke+nEP9FI7C4UNK6osj7QyY6X/n 98uUvrGVQ7yLYWw70sy7rqWVpiU2i50cdA9TuxB4/Axe3V+AZSf6sDynjyz2 Y0UeuStgKeTPxXyvuIelGysK24Vf1HKFiiWx5bLMqZQglvo3KfljDHVdhO8o 9makYk9GInanWRCVboSTSrG5NI4uYTy6qBR7qhLRX5Moj+w6SwjF8VzZ+1aj 0xiIywlz6AIK+A4p8C33R0HiXnQQqqsuKkyWS1SUF1jONVKx2gkiYeyj0uyh cpRHiVRSOZYTxDIjw5YorJi+EQHPrUbi84tR99Qr6Fni8zXVP7J30FxnE8Yc wphLx+ZU3/gEvXiuLd22qqvQdtzG2T6WTwPj1eeAUj+KSRMCOEVi+H0FRNfH Mn79Aogiq1/DKMsgVhupEw+UYUlwObzDxNMxCkbeEAyF1JElo3LXRWzFWZkA y1QtkmDR4srdF2TOdn4KYTzvJadi7leX5dIXdJI/l7DIwzA3KatvveSyxXv4 2sv3umBynaZG/Ojb42FJOqJmjbOobbLX71fWeNTP3fzgdh71e4nfk6/fU3JP pFE3Ui8aGE7I6dkqsbl+EIv38ubDqBuNbvhaW5UdRUc78MqeHARldpHHbizL 6cbyU2ewPJ+lUBT+XtjJ0o59NX1eMnHRD5TsLU1KJheZqaXpLELKGojgEZYU 7M5IwK7jZqRmxcJZHEedqJ4gR33YQ304QH04bBOnwyXLQw9zI7fCsN4PGwO9 sTrIF/mJ+6gr43HNLVIzXGtKwXdxtSkZY26iSBzHUXRQtxLHfn62p06cAkK9 WEUUK6kXK2KIYzROF4SjxdkD32fXwPqCN2qefg29Pj64ZHOou8J/B3tbL0WY NvskmcwmkxTLmLxhZbpZY5KhhFSQdQxdpft4U86jaOGLSNWa4BLlY4VF+Z08 ykIFKcPZa0pMYb+kpI0S/Mjt3GfgvbcY3ofKsNnq4LX0ITp3ANH5gzCIx+Zi PVM5FXalMHMi9dQo2WSpEyaPxSZ3OtSPkksLWbfYyaNjWOZRsDBWMbvFrp8B ufSwny9yJa2puQcmwpnd2aM7+04h8xOFTE/7g//jy8nUB9HTVU0Zkdih7HCX CYL65BMuU1Uftia5sPiADd7Ukj4mkhlPTZncgpd2ZiIg/TQCs9oQmN2OZbnt CMrrQFA+S4H43oaNpR3E8BxN8jn53UvmUnlQ2fzRPMIyTCzrsDPjGJFMxq70 eESkW+AosMJVqJ7+RjPdRe3YKzLkVMUjL+kgIvd+iA3UhEF+PjB86IfheF9c zduokPgQrvNV/KR8J5Usl0jmBZJ5zpWEEZI5RIvd3xCvnE3D2EaeT1NNKqtI ZUU02ovDZccIMhc/sxaxL/ig8pm/wfn7x0TCWJXMbyM6g8F1VhOMJ9TNwtRW 0psbp1LEFgxuGdhoCVi0SRVtRo8EThEIUnpdH1FbijzyksRGLcIljY3CqrLL Gklj4xmEFHFY9hVjs8mOqIweRLNtmdupQNmwYCxlgFU+KI1dbNUQtSVLjcj3 xFInypBYQTgkgLQTvkYWJ/WQqx8mNwvdRbEAVmNR/BxL9zG7e0B39FE6omdt xCexZNE1zqJ+kYbGon528UtZfFBmXAinVxiR1TfOo1E8ca2kRY6wY/FhO7yj nFhidmERvclXdmXC/1gTPcdmBJxoIY8tCMhpRcCpVgSyfFjchjjXiNiHNCIs Fl/jaA3i6JVYm4eUPXctAzhcVqNe0L8iP8eCxgLl2G2BYTMNdlbcAaxbFYiV 9P4MBzeiOiMMg7Xx8mS2TEYxZxMDcLVou9SIqWTjenMqS4osV1nGyOOlJsFh ksKhU+OQWpfG+kwdOawlh7XUkDXksMqAjtJw7XDolsYezCeK0S/4ovyZN+F6 9HFcr3c8oD4BjDpWA0OGG8bMdupJkniKBNCJiym5ABNDbDMjXZHG2lJ7VSY+ iZOJT65rUyzCf7wuMLyOf1cSmzhFygcl4o1vvCIjXWWO5Zyyo4WoWJ3dclpv RUQx9prdiKTrFJVFJZLNgctTcsgYipU8MjHlNHUVLJWKyTPVsNSy1BE3G0tD v7KYtVFdzOruk+tYeeeSvhaFSLkg2y1WAN64BWIGDO9rIB73lBNXWzWvn1lU QdQ2d+sneGaq02cCRLGDW0tqIFJ/iKQGB9jHC3bZsCikUW4Lm29swEvbM+B7 xAW/4ywcB/8slpNNYusj1uW3iO0UjkH8htI7yH5jcbGIWYIm4RPz3nmDQtgO lVVja5qS2i//pFme9GDLNcnf16wIwIogfxyN3YP6HAM6K+IxTBstDle7oJ4R mLTGH32mzbiaGiQ5vCYp1L6rJDarJLqTb5FIrdhHW91Tr5wB020jiTZqxDqS WEMSyyPU1WsKinOfWofwF/xR8uw0uB8jig0OZXnxN2BvHUb0cScM6W1Ujmdo rgeUp8PF5xkJEscK4lh9WTk+QWYZEa7gVS8523K/ovfEORlacY0pOaCdV+RE 9GX8CHHOS0rKHXXOxSq2pLh7aU07YXG2kKYGZOT2IiK5CxHHe6UqiczRUSlU SomiVkSKitsWpdapC1IbWMSC1EZlUWqMIDKmSbzIldVicarRdQYjH91UKfoC i1qqG3GEvRa2/NzDPM8EFvUh9fuqgRabqcN4FxFUiJHkMJoytT+rE/P32rEg zImZwTV4eUc2vBPFczuWYy74pLGkOxFSQTnlHVl4RxbKmIV3ZeEdWVyUN3ef 3PZgkupeiNh3cKCkCpuPpkrmovZvZsgRgGWB/kiM2i3fa69IRBf9xF76iQO2 ZIVBceSqyuCRLaFoO27CxbJI8pbqJeATLyKF1xf4Yxmhvzio8SfOIGqgVW4g f/Xkr5781Row4M5Q1weSP0cPZj25FodfCEDRs+/C/fif8JFd5e9biD7SiOhj rVSHXQxlOEhiikXGsoxjRRb2qotqHEuVJpZviQzT9ityTkVM7Al1N4W4XRa0 XaI+jG+8SNouyB2sIlOHdXxmRchvD8nroPlUZvnEJdS7LtCAnSF5fQp52Yoh iyoQK2cVHSLIM1aQKlIXU6NbUdowYUUpx0csfTYK8MQPUxDtFNAprp0ePOMt 8LSlwfqY5WdfBt494+CpZ6DMlm//CrbOMYRS/4Xx2iN43Xvo7czd68C0XZV4 bUcBFtAQL4x3YfmxFmzJbhuXJFOdsrzb1KAs7dY2KcS6+6RqFxIU5ejCwaJa rAs3IjAoQHkGG7oD1ZnibCerTJUovtoYJgvmem5jThwYqTDXXZaE09SH5xxJ XgI6kaFUqL2WFFkEdlcEds0Kdmel2lOxoxHusRM7O7GzEzs7sWtgtGwz4NJg w73j1J3B9CfWYv/zgchXnzyTuvvVZ3xZRR0krwXRaZ0wnOxREmUUjCi5/8vE kwGR0/y8GrSq2ZsbLoq5E8jpOy85kyyeblyQe6llcZ6Te6atchZFnUmhvyIs hpjPM7vbYWpsGl9XLHKOhJG8sLQ+hJO88GxVYxTI3CNSa0RT3xn06z1JnZEj ZBTrPUmdwdl3j7Z0uWt03Dt78AukbcLnzmMaafoF5z/TvaepvQmkidka7cky LfJclbShy5/A1jMGW98Y6vvHsNFQi1lb87AuuV3JnyKkp1SRHKOQHLEW26ZK jV2RmhixUNXehZ1HcrD6QCiCNu/A8u17UOlwoSI1TDZrPyFO0jDDIQmLUwlL HCesXyPMrhAmjiaVR5W6U3GFVnWMaBGyKbjaksqxH1Ppukildr5JoWuYRlXS 1aidNUK6GkmXg3TZRY6qaFwcbBhfEtrS0IntQbHY9fwy5D43C64/P4nBKKPy 558o2SgSm6jY2pVMrnJuZJCKbVieUhVbPjq+M99Sq6Y+rmdpOKcuTjkn1wfE yaJtWVbmR8TuZEGWuUnswlc2dZqbhV3oph/WhsbRc/eqbmZ96xXC1YswhsDh VAnhHJQIDkokByWKYEXRkEZVs3BgosX6ywYxGELM5ephL0Q2CrDEIuKR65+o 0yK3wIqZvRGfKmDpk+9q09EaWPrkn9+/3XbqpwEXqlIhmExIzUZoBi+cXoA4 7jqS0hBFXRbNC46uviUJIoHhzpQcLF29Xp7AsCU+HbszS1DVqx5M8m84XZal QJQpDpgwy5+djFebShVV1Vl1C6IhQjRip5lrVE4BvehKkUfMibO3BEheAiUv CdC/SoQuU0FJjKikRgVGrkQMECV5ZI0zTp7C0e0kRo3EyBGDzvpo3Lg6rO7t uhfbAmOx7fnlOPncbDj/8jTaPvAeXyXYQNsVldxGFdWN6BOMGIVPK1JmFw8q GYErhsnQsJwelZmB61hsaobg+hEvmRtVTK0Nyx3B4um+mL4Qe4HN6l7gW7MX vXL2Iqe7T720b8LWPoYQNhtKhRRKhRTGIQgnNxEU5ggKcwQVUgSHIYLcRHAo wslOBEtG+1kMX//kBzpOYsc5OaptatNvPvS07XsCJ/rpuYXqBeot49ClT3C8 dhQh+eqFkpWw0i5siycbq8hG0EpstqRjX149wm29aBgeu5V/VlxOukiLbZaH VylR5VfQQTDO1HAs62h46hUwpA1zyqM1veQZm1MkG5epYK40Cz4IhTiqLQVf k1yccydJLobIRb8rAb0uRo4u5diJbhcjR6cJXQ4j2mxRWlLFLQGx2Cgfzs6F 44lnUTFnISpCYzBQ51Bdqm8gM78XkaldcjIhSptMoJtpLO4nGgNEg6VqEKZq jnXtoJyxtIisyZb6Qd6ZpWFQ2UzbOCA31GqbaU0yZOvT7w6PobM0ev2GOoXy gOzouu4xHCNkwdQkIXSOQqhJQimYIaQirUXkVKgfGvuRfvznqOPfeFTL/aV3 df5dN/5i6ayH8ddPPCjj/9Xbxl8UbeVt0rEsrFq3EctWroYlPQ8VneKSbANj Gtl1RwxoOBZDjWCS52g48q1wF8cpB71XJqJbc5brFbMy6hCnXOsG/qI79V66 xCm8iItunYfCQR50J8qzRXrcHOgm5ZD1brcY6FjlNm4lwLxPHfDNS2Ow9vmV 2P6bV7H7of9E0Q//C45HHsPNBm3Av4tw62lEHj0jJ/0i1XhdDLiI18Xkn0xv ySEwiV2nFEwzFbqZwim2nZoblE2nZt2mU1OTNlEkdp6KIL0bo4yMHh0ftUyY vjhqerdBGzX9dJE6alpWQiGxCxcq47VIvn5F/qvYSn+HxahfV41Ac+EJ2EQe 7nQTGk7eMv3N1NrCubyltRXhHLbfGqdz4mRylxyrezhAHDAxQl+jklaEUeyd HGxKQF+TOkbqkeHdbgqjMwZtDsP4SN3paJ77sMk/BrO//yQif/QUnI88gRvC A5j6Z8X0fgcZBUOIONqrzEaoEcXtMyye41iTXY1jb99Y6QWjukFYBBk9MqL4 48TBMonBOvIvHkyxdnKufkplwmDpw9gFKpp3W6b5TfVGr54bUbJEH4tFQ5YZ DepknLs4Hq2UqI5xiUpURqtBGa0RjtZoo3JCsRgxcRINzagXhy6ZKu6cSxEq KVgcuKEmWlYOWm9z/G0HYndx0Do4aGfaT0xi0M7YHJjz47/KrLX2307FP6a9 gKEXX7lPpS69cBjhHDSRBDCCgxapDppwxqUjW646svoQUNtUqG4oZAg4RW59 FaFfz3joJ52he8YvcYpiY24NoHnuRnwmBtBx5KsebKR2Cqxe6d1lAD+4wwCK 8RdSJwT2O6o6HHA3ojYlFrZ0M+rFCVx5yoS+ELXT5QnSDnbTDvbWKeI2wAEc 4gAOcwBHGjlgo43JjOPPOjmeLGcZp406hTZUJE0buL5mukQcuK5mK4sFnRy8 DncsAzWjNkp3Gr37VW9p3k+fwh5xGtYzf8D1BS/j/PoN0AK64fOfIOyYMnQy jqKGjKSBiipRYijhOepjKLlnztEnt8t5caTkeHH4xMY5sQdUe2aoXYriJ3zR Gmk5/I5EZHMMN+HTqB34vCFdW8Qsxur2EyGUY1S09yaMofCHi4uL5W/v68bw TjtKtKedeiWs1PUtVMTFoPaoGXWZFthyrGjIj4NLVaGnK26Naw/HtY/j2l9P 4bRT0ljE2A47kljzcGMSpVEcDzUofFsOaL8qhXIwW+Lkeccd8rxjM1pdsbhx fVTrsS8ZT5FZ/djP/4BrM/6Azn2b6DxpaWi+DlvbGEIZE4eJmQx6deHFymxG JC1dpBqyaFvGRNgSaRfjGOEQ45jZMSpcUFnTLz2MmaejnbRxXPCsBUlBTfg4 pwWfD7dpJ3toJ32K3zxl3fIwjlpcM0M3jmJ7gKdxvPeO4/hNjI2OojLRhOrj FtSesMKWGyfT8LuoYGUafo5lO8eyi2PZTZMox7NeGc+BhiQvDHBAv44BDucA B7Of4Uk/PZReDuMZcYoNh7KTw9jO0kbZPM2hbKFS7ezIvtP4eeo/bTewyGXp w3Gt+80f8N/Lpyr99zXYOsZgo98YzKEMpViGUpuGcSjDqpRtVGEczjCKZvrp s2Ir1a9VQvQtaFKoHbaakXQe+2LPsr/O4dObN/VnsGg+iiZx+gj0odtHSh9Z vDtBawpNKf4uzjzSzN5XPIyU4qX+EGNnR1GRbEZVmgXVJ+NQeyoODQXx8pC2 JnkMVQLaKsUhIonoFKNVxwjDRgmsZ2mghrWzOFg4RD2UtjMcpi4OUweHqI3l NCWulaWFQ9REp7KzM0fnT95KJj2uk8KM2Mex6H9GnHoTq53LVNc7htq+MQyN fYLf36Wjf6DrUc0OeTqaeUKP6qt6+y52SF11D83ciV7W3H9l+uoHskfL2KMV 6VZUnohDzal41LNHG4sS5Hmq4ug7kXS/TaQUZ4920MnoZK92sUe72Jtd7M1O 9mYne7ODvdnG3mwl9M3szSb2pJuun5MuekdnrrrC7h68xx47/gtaGGqlfw66 XvAsA55sgXYeu2a4FSq+yMttHXbfbVWoSVnF3o3X1T/foe88nRzxf6vVXzl3 FsUpFpSmWVHObqvKjUddfgIa2G2NpYlwsduaKhLRwm5rZZedZpedZpedZped ZpedZpe1srSwy5pYXOwyJz3lRjdVj8uC4VHneHcJgfdjl9l+S4FfMfVFDzxq faAP+h6+c7/cOjxcyyWgBRLCvRF5hnQ7XPDyJMzktz301UMqaA0lp1CUHodi Cmw5+6m6IAF1FNj6skTY2UeN7CMn0XKxj9zsIzcF1cU+cjXyfWcCHCwNDOvr WWxOIuqw4Nr1s7eWJxlxgN0zIE7wLDb5edBSWlfonXO1K7Tzc75ovZTpf11H 6PvhTjv9tHD6izNy/4bLF6h5K/OQnx2Horx4lBYmoLIkAdV0AWspYjYqLRtZ qafCqmc/1DckwGbn3xwJqGlkvzXGodJuxcCIa3zVwXTeeLoQpZl/wD8GXf66 m9ciE03J6B3bL735253dF++gZPTRyvc83LnS7/+KSxeFEXEjm4Y1j45vYUk8 SsriUVaZgLLqBJTXsNTxd7GwuZ5/s8XB0ZaH3mHX+Ay5kIKlvNsGRQoCJmgC cQnf1929ph0mcad6V+L5SajTH3i4UyV6YPB9xo2OXje6+tzo7mcZ4M+iDLpx 6epZbW5XHLJ5SDD7nGQ20IP4PnTnm/nauNxrXo3exj49CXH15GA9q17bDF5X BpH6aJZEKkgn2dqiqod072nS/j3dtXn0XJT3hEIRvz2hu8o7+Ww/9XCVvxGv iq24Z9yOql+a3yKOBVr3y5dQ+7uX8D8rpy6boBFE1Xe5g6+P9+49Hu7lTx6U wEQPRpuW15/m+NsJdd2pfu1c4sV/3oaCtyPx8Y79+J+aU8sndIVe4vQKXr0H TR3rV3E8Pgm0/8PDlf/Ow1V6ss3alS99w4a6qD78s6EDnw53r1A/qn/mr21f 0+vjCVeuVz+PqvXf4co9bVf6vUd51zFyaP8oEnPPw901wk69utKDBD7ood67 XOVvJyF3v77jpXp2ELdOQFf83yQuS6/R/ssDsNplacD+zkOVv1E7aoJX5onZ zR7g/O6E977kKv/3HeDUW5hHPVzlb8eF9dakz3b1c3rT8J0vu5x7xnWocBCp pX4xCXF53MMVFXogSWv9i57keOviS3O8qA//fRIw/cWDFBXq7lMD5i6tTzxu WWjin05CMz/lQfUU6ZrWfI9/8/C5CU3rRehHk1Cuz3qostjDiH/bQ+/cpekf TGK4X/DQdIluuDWwtPr1WExoWkxBaU1/7y7qjc2+7KHVUt2QapMm3/zyVvUS 951JEPaa+n/6wFFrWk/YN3Xv3a7jx5vWeyjfmtDXmkrSD/PfPDRd5kHP/OuX N61XVd+YhJ55y4O8lE8gTPzmKT588M5Nf3UShL3jocoKDwrlG3duWhsLven/ yiTGeob6f3qvtkLXudpYa03rcZzQtF6u7tU1fSdt8r6Hpis9aBNtAkov0ndp 2lNmlonaZK6Hpqs8aBPNrdUL121NPyCFS1ssZrPZPI7vPA+01ngY36/qmtP8 sNuau1dW/cgjj+CHP/wh3nzzTVn9ortUrx/Dr3r43ISOFFMkwh6J2NdbfU/v FdZOqFY/z6TvzO/qBeIeaWhEtaKjaGQXebjPOg9Srj1x0/Ou1vxtXc0nTpyQ sxiseaGHAbOp7+ldUe3Bq2j99tnG2x77bNu2DbW1teOO7+XLl8dvcbaHpuo9 DOqdJzbVb/dN7B7ljxin1FML+nHVWtALiNrCgyo2+m46c+aMxMhT9Q0eRuF+ D59Tq9cfhiFuwGAweKzW7kG27pvQlK7ahzxjM9vDfTo89Pi9d65ZC+J1yIx/ XNyE1vvTPAyaw0PXazch2NcIVQAan33S+kZwpLnRX0y0dXtTjR7UoHaZemFQ m/qh5/7SZjq+mEH89tacHkbnHg+fU1v7sdrJ+j5UiVVn+m//N5duiLTh0ARK P5Rq9T9Rb0brN9GMrma9Z+DWdYnmD2k3rcdPrfmnE7pJvfh37lKzfqzvUrO2 0krfJdN0F6eNV5Mq8HrxEu+ov6uQahMJenLe9qBkm9WB0HsnWs1qVT/3TMab HmprUWvTS5J27ept/oeH29R6RTO/orx6l+r1PTqh+kfUj+jvW/NnXvdQZat6 c5qUqA/g1dp+OeHW9+3bJy5Sc271yqFNJwCiAfH9O7qxmKIPgfU3r92o3kS2 qnehuT5apeJuJvTjnSZgtZt/xUP1CplfGXfq9D6l+IzqXanjL0Ore/Rzhl+c z/kCHS95AN2hfnRCs16y3SnjPp340PfufJP3euhD7cbVAFz+9qyHK7BN7gpE eVgHv276577bOleqJsVvfM5Dc9WTb+4nelm7/YYfUG9b9LBwJkJDQyWIQvl7 arVcuWTR6P23De1El1LREcqWLnmLX9V1rfgSnpynFoo9teDJaVWkcXz6RXgN Wtd5Gp78ydar5LcaX2Sl7xkO/9MeDEjOxKonPoLRqlbm4sbnZzTKxJ89TV2c 0InSXapVegBTPXSEpwf2Uz20lD65lpR/VSebb4dGc9r+7KH2o19Suxr1KHPv 4/NHGihC6LVa9SYweXK1PqPU+oSH3vmTh1rjJ1erMueCJz1Dog2w3rSaJ1Q8 MeJUK1amVfC0rhM0RB7zUKtxcrUq1gnP3AUR4Rpr6k17KqA3ZpGTa0mx3KoE 3juxY+SA/t5D7aGTq11xhdTHYbd65061Hppcrcocw/g8mr53tJ7QW+P9k6tV iQbw1wmIqGZFs9YikBVWWPz2Hx4a2z25xpQIHi9N6BiBjebK6n16Tw9Utt+l Jd08lBIbQ5v+00yzHiX9pJqnljZPriUfpaVXVNs4oQO1x3baej29rv9wcg0s VRp4bUKnia9feqh1ja7WiXNGulqV53rjDqG+gzxd64rJ1bpKqfUNzzT9wkPF gZOrWJmKw989kONpD6zf5GrdqNT65l0oEb9rgqqt19KHW96Ta0l5FqXOjt57 W8eIexDftQe2epu04EtqV/2nnUrt03S9I77EpzzVOndyte7VgadbuHV7P/3E Q/2z7lK/zrk+qNT/qgrLhGdl2iqxCQz9yEN7701o7w7OfMhd23tA13na/I7e qdY+qk3W6M3x25O7gIi7XsC/6DSIB+/6IQ/t/k3X7l2iGMNd2/2qjklhAMXN C7dXkODpSb9WzSRimNi7Nvx1XY+LL2FkPDX44uQaFMU6EVntMYO+Uz0ttnnu y9vQ3ONEpY05Oj51gdiDHip/SrmcLw9HUpWqP5iAol4faevKxG/f9NDWnz21 5cnLP660NU83+nrqxJf2IEZv6R+fWP+doohMpZr5HrrpDlX/YbJVZytVPzM+ yj/VdZj4Ejehdc4X15F8aQCRp9SvxX16bDUToO8ujTG9AfrV5Foq0rd0u4B8 rk6YPOyZs697aPSRL2lUtUVlukZvLYWccKM/VLWRnkHxjuqfPeCh+Z9Nrvmq yTT/Iw9Yaq6hp7Z/Mrm2lccj46u1JigkT3Hojyd0v/i6w/0/POEa7uAE2yfS e2uNtNoVWvvaHjb9GGhpK4SZEZZBu071Qh6a3DUo/zfuiOtvWGtU3/Narhb9 A0JRVEfou5NrVJm7xK0luIrndv9EtPVWz+MWkm9Orr12pb0gFSV9LwotKmyc p9q/Nrnau5Xal+n4EN0lCvnwVPFXJldxn1Lx8rt0jlbrvXepUed8KqexQ1mm 9Q1Zm/ZITu9NfEktysn2UFz8B8Zv+K233rrTf+Ci8i+rdX2Un5+v/Vk5OQkS Jd8v/rxsXAXe1F//7bRe///yp+XjJN7U9/ntn1WfyqwY/+yNu1/2/99+xv/1 fwAtTGXU\ \>"]], Cell[BoxData[ Graphics3DBox[{ {RGBColor[0.4, 0.2666666666666667, 0.13333333333333336`], Opacity[0.8], SphereBox[{-0.39676687095999996`, -1.6629966745199998`, 0.7892062693799999}, 0.255]}, {RGBColor[0.4, 0.2666666666666667, 0.13333333333333336`], Opacity[0.8], SphereBox[{-3.0252623534, -0.8296842003, 0.027758185214}, 0.255]}, {RGBColor[0.4, 0.2666666666666667, 0.13333333333333336`], Opacity[0.8], SphereBox[{-3.2669583087999996`, -0.25739957846, -2.8000070141999998`}, 0.255]}, {RGBColor[0.4, 0.2666666666666667, 0.13333333333333336`], Opacity[0.8], SphereBox[{-0.35848102219999994`, -3.208754748, 3.191747214}, 0.255]}, {RGBColor[0.4, 0.2666666666666667, 0.13333333333333336`], Opacity[0.8], SphereBox[{3.8648676152, 0.09607933901799999, 1.3578248227799998`}, 0.255]}, {RGBColor[0.4, 0.2666666666666667, 0.13333333333333336`], Opacity[0.8], SphereBox[{-5.893866421399999, 0.57818056696, -3.5237720722}, 0.255]}, {RGBColor[0.4, 0.2666666666666667, 0.13333333333333336`], Opacity[0.8], SphereBox[{5.600203001000001, 2.316804076, 1.52355379298}, 0.255]}, {RGBColor[ NCache[ Rational[1, 3], 0.3333333333333333], NCache[ Rational[1, 3], 0.3333333333333333], 1], Opacity[0.8], SphereBox[{1.3465242613, 0.50501037624, 0.9577131367999999}, 0.24]}, {RGBColor[ NCache[ Rational[1, 3], 0.3333333333333333], NCache[ Rational[1, 3], 0.3333333333333333], 1], Opacity[0.8], SphereBox[{5.616265672, 3.6819421383999997`, -0.87076684354}, 0.24]}, {RGBColor[1, NCache[ Rational[1, 3], 0.3333333333333333], NCache[ Rational[1, 3], 0.3333333333333333]], Opacity[0.8], SphereBox[{1.06809203246, -2.3014972954, 5.0043723932}, 0.178]}, {RGBColor[1, NCache[ Rational[1, 3], 0.3333333333333333], NCache[ Rational[1, 3], 0.3333333333333333]], Opacity[0.8], SphereBox[{-1.61078354514, -5.0950792412, 3.3625784444}, 0.178]}, {RGBColor[1, NCache[ Rational[1, 3], 0.3333333333333333], NCache[ Rational[1, 3], 0.3333333333333333]], Opacity[0.8], SphereBox[{-6.984427296, -0.7648477012399999, -5.3258147858}, 0.178]}, {RGBColor[1, NCache[ Rational[1, 3], 0.3333333333333333], NCache[ Rational[1, 3], 0.3333333333333333]], Opacity[0.8], SphereBox[{4.6528833571999995`, -2.018227368, 1.59906724394}, 0.178]}, {RGBColor[1, NCache[ Rational[1, 3], 0.3333333333333333], NCache[ Rational[1, 3], 0.3333333333333333]], Opacity[0.8], SphereBox[{-6.8846497632, 2.3502522262, -2.4842337996}, 0.178]}, {RGBColor[1, 1, 1], Opacity[0.8], SphereBox[{0.25222172921999997`, -2.8873123553999998`, -0.68319264078}, 0.12]}, {RGBColor[1, 1, 1], Opacity[0.8], SphereBox[{-4.282875006399999, -2.3581890754, 0.44072189772}, 0.12]}, {RGBColor[1, 1, 1], Opacity[0.8], SphereBox[{-3.4948592643999996`, 0.84185403574, 1.06408581334}, 0.12]}, {RGBColor[1, 1, 1], Opacity[0.8], SphereBox[{-1.9997080531999998`, 1.2582173653199997`, -3.2306755696}, 0.12]}, {RGBColor[1, 1, 1], Opacity[0.8], SphereBox[{-2.8083218086, -1.9288433281999997`, -3.8412460402}, 0.12]}, {RGBColor[1, 1, 1], Opacity[0.8], SphereBox[{0.6883326954999999, 2.2674822274, 0.77996550924}, 0.12]}, {RGBColor[1, 1, 1], Opacity[0.8], SphereBox[{4.9569402706, 3.553629743, 2.9880347512}, 0.12]}, {RGBColor[1, 1, 1], Opacity[0.8], SphereBox[{7.4715986588, 1.6746940784599997`, 1.940748602}, 0.12]}, {RGBColor[1, 1, 1], Opacity[0.8], SphereBox[{1.1602350722199999`, -3.157732146, 6.6010018906}, 0.12]}, {RGBColor[1, 1, 1], Opacity[0.8], SphereBox[{6.2088837456, 2.5314769496, -2.247829077}, 0.12]}, {RGBColor[1, 1, 1], Opacity[0.8], SphereBox[{6.7814707236, 5.1640542402, -0.74300246868}, 0.12]}, {RGBColor[1, 1, 1], Opacity[0.8], SphereBox[{-8.6617480936, -0.3492213648, -5.877992723}, 0.12]}, Text3DBox["1", {-0.9967668709599999, -1.6629966745199998`, 0.7892062693799999}, {1, 0}], Text3DBox["2", {-3.6252623534, -0.8296842003, 0.027758185214}, {1, 0}], Text3DBox[ "3", {-3.8669583087999997`, -0.25739957846, -2.8000070141999998`}, {1, 0}], Text3DBox["4", {-0.9584810222, -3.208754748, 3.191747214}, {1, 0}], Text3DBox["5", {3.2648676152, 0.09607933901799999, 1.3578248227799998`}, { 1, 0}], Text3DBox["6", {-6.493866421399999, 0.57818056696, -3.5237720722}, {1, 0}], Text3DBox["7", {5.000203001000001, 2.316804076, 1.52355379298}, {1, 0}], Text3DBox["8", {0.7465242612999999, 0.50501037624, 0.9577131367999999}, {1, 0}], Text3DBox["9", {5.016265672, 3.6819421383999997`, -0.87076684354}, { 1, 0}], Text3DBox["10", {0.4680920324600001, -2.3014972954, 5.0043723932}, {1, 0}], Text3DBox["11", {-2.21078354514, -5.0950792412, 3.3625784444}, {1, 0}], Text3DBox["12", {-7.584427295999999, -0.7648477012399999, -5.3258147858}, { 1, 0}], Text3DBox["13", {4.0528833572, -2.018227368, 1.59906724394}, {1, 0}], Text3DBox["14", {-7.484649763199999, 2.3502522262, -2.4842337996}, { 1, 0}], Text3DBox[ "15", {-0.34777827078, -2.8873123553999998`, -0.68319264078}, {1, 0}], Text3DBox["16", {-4.882875006399999, -2.3581890754, 0.44072189772}, {1, 0}], Text3DBox["17", {-4.094859264399999, 0.84185403574, 1.06408581334}, { 1, 0}], Text3DBox["18", {-2.5997080531999996`, 1.2582173653199997`, -3.2306755696}, {1, 0}], Text3DBox[ "19", {-3.4083218086000002`, -1.9288433281999997`, -3.8412460402}, {1, 0}], Text3DBox["20", {0.08833269549999989, 2.2674822274, 0.77996550924}, { 1, 0}], Text3DBox["21", {4.3569402706, 3.553629743, 2.9880347512}, {1, 0}], Text3DBox["22", {6.8715986588, 1.6746940784599997`, 1.940748602}, {1, 0}], Text3DBox["23", {0.5602350722199999, -3.157732146, 6.6010018906}, {1, 0}], Text3DBox["24", {5.6088837456, 2.5314769496, -2.247829077}, {1, 0}], Text3DBox["25", {6.1814707236, 5.1640542402, -0.74300246868}, {1, 0}], Text3DBox["26", {-9.2617480936, -0.3492213648, -5.877992723}, {1, 0}], {RGBColor[1, NCache[ Rational[1, 3], 0.3333333333333333], NCache[ Rational[1, 3], 0.3333333333333333]], Opacity[0.4], SphereBox[{5.921950634101536, -2.2322085152300244`, 1.8065600759314722`}, 1.125]}, {RGBColor[1, NCache[ Rational[1, 3], 0.3333333333333333], NCache[ Rational[1, 3], 0.3333333333333333]], Opacity[0.4], SphereBox[{-2.3539705838358724`, -5.527803639872522, 2.3828868703278516`}, 1.125]}, {RGBColor[1, NCache[ Rational[1, 3], 0.3333333333333333], NCache[ Rational[1, 3], 0.3333333333333333]], Opacity[0.4], SphereBox[{-8.088488662013571, 2.685981665761866, -2.8549501454964332`}, 1.125]}, {RGBColor[1, NCache[ Rational[1, 3], 0.3333333333333333], NCache[ Rational[1, 3], 0.3333333333333333]], Opacity[0.4], SphereBox[{3.918036227549499, -3.0933686338372453`, 1.5403823690717122`}, 1.125]}, {RGBColor[1, NCache[ Rational[1, 3], 0.3333333333333333], NCache[ Rational[1, 3], 0.3333333333333333]], Opacity[0.4], SphereBox[{-1.5997330284199416`, -5.796542181504221, 4.461305248232498}, 1.125]}, {RGBColor[1, NCache[ Rational[1, 3], 0.3333333333333333], NCache[ Rational[1, 3], 0.3333333333333333]], Opacity[0.4], SphereBox[{-6.280232365377454, 3.0231961503612865`, -1.5455117725100678`}, 1.125]}, {RGBColor[1., 0.75, 0.5], TubeBox[{{-3.0252623534, -0.8296842003, 0.027758185214}, {-0.39676687095999996`, -1.6629966745199998`, 0.7892062693799999}}, 0.1]}, {RGBColor[1., 0.75, 0.5], TubeBox[{{-3.2669583087999996`, -0.25739957846, -2.8000070141999998`}, \ {-3.0252623534, -0.8296842003, 0.027758185214}}, 0.1]}, {RGBColor[1., 0.75, 0.5], TubeBox[{{-0.35848102219999994`, -3.208754748, 3.191747214}, {-0.39676687095999996`, -1.6629966745199998`, 0.7892062693799999}}, 0.1]}, {RGBColor[1., 0.75, 0.5], TubeBox[{{-5.893866421399999, 0.57818056696, -3.5237720722}, {-3.2669583087999996`, -0.25739957846, \ -2.8000070141999998`}}, 0.1]}, {RGBColor[1., 0.75, 0.5], TubeBox[{{5.600203001000001, 2.316804076, 1.52355379298}, {3.8648676152, 0.09607933901799999, 1.3578248227799998`}}, 0.1]}, {RGBColor[1., 0.75, 0.5], TubeBox[{{1.3465242613, 0.50501037624, 0.9577131367999999}, {-0.39676687095999996`, -1.6629966745199998`, 0.7892062693799999}}, 0.1]}, {RGBColor[1., 0.75, 0.5], TubeBox[{{1.3465242613, 0.50501037624, 0.9577131367999999}, {3.8648676152, 0.09607933901799999, 1.3578248227799998`}}, 0.1]}, {RGBColor[1., 0.75, 0.5], TubeBox[{{5.616265672, 3.6819421383999997`, -0.87076684354}, { 5.600203001000001, 2.316804076, 1.52355379298}}, 0.1]}, {RGBColor[1., 0.75, 0.5], TubeBox[{{1.06809203246, -2.3014972954, 5.0043723932}, {-0.35848102219999994`, -3.208754748, 3.191747214}}, 0.1]}, {RGBColor[1., 0.75, 0.5], TubeBox[{{-1.61078354514, -5.0950792412, 3.3625784444}, {-0.35848102219999994`, -3.208754748, 3.191747214}}, 0.1]}, {RGBColor[1., 0.75, 0.5], TubeBox[{{-6.984427296, -0.7648477012399999, -5.3258147858}, \ {-5.893866421399999, 0.57818056696, -3.5237720722}}, 0.1]}, {RGBColor[1., 0.75, 0.5], TubeBox[{{4.6528833571999995`, -2.018227368, 1.59906724394}, { 3.8648676152, 0.09607933901799999, 1.3578248227799998`}}, 0.1]}, {RGBColor[1., 0.75, 0.5], TubeBox[{{-6.8846497632, 2.3502522262, -2.4842337996}, {-5.893866421399999, 0.57818056696, -3.5237720722}}, 0.1]}, {RGBColor[1., 0.75, 0.5], TubeBox[{{ 0.25222172921999997`, -2.8873123553999998`, -0.68319264078}, \ {-0.39676687095999996`, -1.6629966745199998`, 0.7892062693799999}}, 0.1]}, {RGBColor[1., 0.75, 0.5], TubeBox[{{-4.282875006399999, -2.3581890754, 0.44072189772}, {-3.0252623534, -0.8296842003, 0.027758185214}}, 0.1]}, {RGBColor[1., 0.75, 0.5], TubeBox[{{-3.4948592643999996`, 0.84185403574, 1.06408581334}, {-3.0252623534, -0.8296842003, 0.027758185214}}, 0.1]}, {RGBColor[1., 0.75, 0.5], TubeBox[{{-1.9997080531999998`, 1.2582173653199997`, -3.2306755696}, {-3.2669583087999996`, \ -0.25739957846, -2.8000070141999998`}}, 0.1]}, {RGBColor[1., 0.75, 0.5], TubeBox[{{-2.8083218086, -1.9288433281999997`, -3.8412460402}, \ {-3.2669583087999996`, -0.25739957846, -2.8000070141999998`}}, 0.1]}, {RGBColor[1., 0.75, 0.5], TubeBox[{{0.6883326954999999, 2.2674822274, 0.77996550924}, {1.3465242613, 0.50501037624, 0.9577131367999999}}, 0.1]}, {RGBColor[1., 0.75, 0.5], TubeBox[{{4.9569402706, 3.553629743, 2.9880347512}, {5.600203001000001, 2.316804076, 1.52355379298}}, 0.1]}, {RGBColor[1., 0.75, 0.5], TubeBox[{{7.4715986588, 1.6746940784599997`, 1.940748602}, { 5.600203001000001, 2.316804076, 1.52355379298}}, 0.1]}, {RGBColor[1., 0.75, 0.5], TubeBox[{{1.1602350722199999`, -3.157732146, 6.6010018906}, { 1.06809203246, -2.3014972954, 5.0043723932}}, 0.1]}, {RGBColor[1., 0.75, 0.5], TubeBox[{{6.2088837456, 2.5314769496, -2.247829077}, {5.616265672, 3.6819421383999997`, -0.87076684354}}, 0.1]}, {RGBColor[1., 0.75, 0.5], TubeBox[{{6.7814707236, 5.1640542402, -0.74300246868}, {5.616265672, 3.6819421383999997`, -0.87076684354}}, 0.1]}, {RGBColor[1., 0.75, 0.5], TubeBox[{{-8.6617480936, -0.3492213648, -5.877992723}, {-6.984427296, \ -0.7648477012399999, -5.3258147858}}, 0.1]}, {RGBColor[1, NCache[ Rational[1, 3], 0.3333333333333333], NCache[ Rational[1, 3], 0.3333333333333333]], Opacity[0.4], SphereBox[{-7.050451518758962, -2.0603528014101578`, \ -4.8485473791586235`}, 1.125]}, {RGBColor[1, NCache[ Rational[1, 3], 0.3333333333333333], NCache[ Rational[1, 3], 0.3333333333333333]], Opacity[0.4], SphereBox[{2.356638817865696, -2.287849962651291, 4.504434624943295}, 1.125]}, {RGBColor[1, NCache[ Rational[1, 3], 0.3333333333333333], NCache[ Rational[1, 3], 0.3333333333333333]], Opacity[0.4], SphereBox[{-6.1745335068867435`, -0.6380151622172554, -6.438677040259561}, 1.125]}, {RGBColor[1, NCache[ Rational[1, 3], 0.3333333333333333], NCache[ Rational[1, 3], 0.3333333333333333]], Opacity[0.4], SphereBox[{0.5794325471182797, -1.0377186337916353`, 5.2774149573707465`}, 1.125]}, {RGBColor[ NCache[ Rational[1, 3], 0.3333333333333333], NCache[ Rational[1, 3], 0.3333333333333333], 1], Opacity[0.4], SphereBox[{4.220364123875451, 4.100706202493104, -1.0722210938493801`}, 1.246]}}, AspectRatio->Automatic, Axes->Automatic, AxesLabel->{ FormBox["xl", TraditionalForm], FormBox["yl", TraditionalForm], FormBox["zl", TraditionalForm]}, Boxed->True, SphericalRegion->True]], "Output", CellChangeTimes->{ 3.5764211940855923`*^9, 3.576422740282308*^9, 3.5764229260942345`*^9, 3.5764231387850075`*^9, 3.5764238282438188`*^9, 3.5764239979097166`*^9, 3.576424058625024*^9, 3.5764240909794807`*^9, 3.576424679942915*^9, 3.576425061535185*^9, 3.5764253676233225`*^9, 3.5764254520506706`*^9, 3.5764254892411366`*^9, {3.5764267248381066`*^9, 3.5764267516701536`*^9}, 3.57642692043125*^9, 3.5764269656713295`*^9, 3.5764270019881935`*^9, 3.5764282692096195`*^9, 3.576466464847408*^9, 3.5764666519541364`*^9, 3.576467406761462*^9, 3.5764674949172173`*^9, 3.5764682171204853`*^9, { 3.576468607464371*^9, 3.5764686354820204`*^9}, 3.576468772481461*^9},ImageCache->GraphicsData["CompressedBitmap", "\<\ eJy0vQV4VNcaNbw+qN9eba/Ue+tChQYoWtzd3R3inslI3Ijj7sWdeIgTTwgx khDBvUXq7W351j4ynIRDbu/3P/88vDOTCdln73et/cre79kzfLbrovl2s10X z539+kDn2Y6LFs91eX2AgzM/avt/gP+zSMjrEO/vA+rTff67v1g8iU/+/33/ nfTSFj/++CNCQ0NRUFAAR/lX96SXJ6VfZWZmYsKECRg4cCDi4+Mxe/ZsVFdX w0H+r4Xipa3o/JvSB8/g+vXrUnvqH3z77bfSb+7du4cFCxZg3bp1+P777+3l vy9ReiEPX+ofXpGen9C9PFt7TPkT0VhWVhb27t2LVlp7SXp+XLdfT0q/eww+ Pj7S78UrB2f36Nb+9Yi+nTp1SrT4tHIx0RAHKQ06ODhYem8rt1okXtqINl9Q 1NyyZ5cvX4avr6/Uw2daNCh+On78OIqKipo12KKbf2+9m22UPxG/8vT0lH56 WvmTQ4cOoa6uzoqZcuWl8sWKrb1/rhW9/lWnLSGi11SH0lZj6518TumkthG1 4wpQ0k8Kn+tb6c8/lD8TdBF90DalhUhpqvYR/BcdU4H5p/LnohcCEPknSTm8 itLQmVb6pIfBPx7VqNJPMWzBjkVy85WPUOD58+fFJR5X/lKdgQ+I0fwKj+lo YqF8hdOaK4jRtxjE68pf3rp1CytWrFBGK3+mslT8tEBu7VTr/X2jRT+0rWmY qLZWrEFJ9E1rJsR78dlbOk0+oXymkFH6ab7GmvGa2g4KbEQHVbzu3r2LuXPn SlpVmxemSNWw2ryWovPk5p2tk0dBVX1Ik3d462ZP1cTOnTulj8RPb2qupVqH J1oMWXyuXN+lhaUQjzYtPhMypBU1PKVRg729/SO78aSGBmLaiZ/myld1VZrX XlLtzuDWlfBpK1fSTpC5/9uA++tcVQxY6HrNmjWf6VgiVQ+NjY1WNc95CObH m8Gsvu/X+iDVHqokFj99qtOFp3Vm2mz5Ip46g+zVCqoquQSq6v/XXlJt/mmN rhVHrl7Swzrqnq0Pr6uOMX5GZ07OktuN13Rb4KHtdg8da/YHnfk3U24qwtrF tx5h4bW244tWGtdOLqXxcMWWalXOx79b6b7WpKguQG9Iz+rMpRmtXvXV1iHo p7Hbqrqf1QxNnV6tX+TlFkMT5kC8iqEN1DG8f2wxZcRP01u9wgutD2OwzkX+ pDMpprV6kX9quKAdhjYMG6q0qjX0f9RcXZ0L01oS7VGBWIuprg0ChujYOHVU 2vkxVb7WNg0Kwj2L7qsxhuoLtBHAYJ3m/6wzZ6bIzW9ufQDjWmlNO0mU1ja2 6KxoTbyKDk7UMXF/0WH+ZLmpdYoZ1uuYgE78zGZba1VLdaXVNS06qI3Y1EhM TNfU1FTppwk6xuyvOjyfJDe/snVtztBp7W86hJYHheVKZ/XCy9k6duRvmnGr jFWaitbpmHgIUrK5uTqtPafprDpMWR2IVLB5VC4oWs/NzdVr9XkdKo6XW132 COUp+YIWHtWGz9GxEM+3+ExoQblCaCsKfVLTvDpVZ+s0/3cNXipl5VmCoNYH YNdKa1qqKq0FKK217Kxisxx1TJbamtaMjJVb85Venn5U36TfqlbKUYOROunV 1GXLli1W3MbITVta0apejmLfSvNa6irNGx+hVSWrUEMhkZ8Ifyd+UpM3dflA /DRabk1qVAqc3m7RbfEQfkF01VvHqvxLh7mj5EbHK7/Sep7XHmG/RLePHDmi 5hitXUnLYOVKw8TLYw9Cz+bXfFmjKp10Tp1B4vIqIAYdk/SCDsVHPnqkL2ps asuR+uuYgBc0w1M5oDQvkVVyrC+2GEoLSxqo0+6LOuwfoWm3Rbf/qcMrwX4F mGCdK7ykMwnktE6etFLPn3/ETNMaSMEzcZ3WLqKdCspFFuloumWIL96rQwzU NKVq5GWduTFMbn7+I2aa0vOoVlpTsRQDUVqb20pnY3WaekWH9XJcpqQK+rGA Zi4t1zGJaqtaLssRmBL96ndQO1XUWEDttNZuvdJi/OJzpfmprWtznU5rr+ow WI7nlPhFP8/YqGMCX9OxVoPkpiY8omPilT9v1rFIr+lgM0hDfIXuLTsmfqO6 axGzbdJpWl1j0vJRzi4Uk/1fF4rFFdRAfqOmNdWcvd4CI6EO5QojW2hVm+Ko KwD19fXWpjbozNd/6+hmgMZa60RdipvZo9OaukimDQfl5QuFV0891Fkxbs0s aK1VLU2VVge2rmQ9n7Fb+Uy7LKiuEWmpK6ehyoX0M5gjOoZAXXXTUrev3FSf 1jt7rJXWtPAorfXStKbtmCBTvLoG19ycvCWbedJLaUPO559p1dqrU4CsitOZ 9W+1AEfMFHmg6NZCddqWU3WaeltnsL3lpjq3rro0ndbe0eGirDN0UjqmjflE i6K1TJ1Z/k6LMYpLKE3ZaAyIXmSqjfczdJp+V4d58hIV2uv0UlWf1nqoQKXr NP+eDhvlpSN8/AiVKj3P17FF7+kApLTWrkVnNemZdQ9IO6ff1/FsMhuVXz3s L1WVKmvMrbWqJaPS6rsaMm7atOmRubM61kKd5j9QPtMuq3bXNt9W6mTPnj2R kZGBch1L86EOK7tpm3hMaiIiIkIKn6ia0zpm4UPNZ2qU1a35OMUYhe9X/4tQ cplOU+10CNhV29QTUlOVlfJ+jqY5tTWthVFb0/Kti7a1JyVWCJaof6Lt4Cmd edyuRafF512aK10bGLdpoRrRbKlOsx/pELDzo5ttq9NsSSvNak2F0uw7Cr5i 8MLbKbHGYzotF+tM5Y9bkE/89Lm25bbWrEm7uqZttkin2U90CNnp4WbFpJPx e7jZQk2zahOftPh/Qg8tmtXS6imdZgt0LJC67K9la8fmzWr51XJHQDSlGjbt xG6vQ9sOzZvVkuEZnWbzWmlWS91Wmv2DTrO5Os2qOz5a6sp+yOpChQLUdaCW S8HiT07qWILPNJ+p1G3RrJYJf9JpNkenWRsd3n6mbfYxa7PCNpO7ei1n67Tc QYe67Zu3LDgmAiNh7flf/txKy1ozZtPi/wlVtG+uCtW+PqgoaN5slo5xUDus XZT8tHmzWva2XBEVf5ap02xHHfZ+0rxZLc2e02k2o5VmtexVmlWDPi3N/q7T rF5I0kmHvR83b1ZLs5Zra+JP0lppVsveVpr9l04v1JhUa3A+1zE4HzVvVmvH 9BafUnSalXX7OH766SfpM9FjVcfNmn+8WfNCxCTR633yIy3FU80uI/ASfyMu pSiw2RWfsHJQDcCU9FTvokk6F/1EaeYRF22ro452zYcsHi1TkRd1rp6oc/V2 rV/9iUf+ibwa1Lbl6qQaXestxSToGKX3W7++6pG0m5vK9V9T/rJl5YEyyV7X 6UC8Tgfeab0Dz+r8idIBaapplmcf7ooyg/6t05U4nXbf1HRF/N8WXVF3urSW 98PWdaF04I1WOqBt7bXWO6BaQq3VUzogwS2tiKrxmXYe6l3/uE5jL7d+fdW2 ae2Y9vqPiEG1PuJNnZ6o2cGls40oSUxHGaUNTvO5La7WNVrb89HpsbqpLfip 0+MXND1WJ6/S41etGmur0/e3dPopx9nP4kp9IxJWbcIOFzP2uVhwiHLMxQfH nSlOPjjmaMERBwtyYjfjTHy6RWlKu2D4j9a7rV02Vme90u03dTr7tk5n5QH8 BVfZ2ZTVm7Db1YzDrhbEu/oghZLm6otMSrYLxZnixJ/Z+XRH/t7egkRbM+ri 0kw6kMt+/kmJJY8YgHUNU2u3lBGoZNQ643d1RiD/v6dRnnwCe9xMOOBuQRwl 1d0Hme6+OOnmiwJXPxRR2qCEz0+i1MUPJZQijiqPo8nhaDLtLCiN3qRsbTUf yp9/x1D0KumaDUUOCEWKJJIZ/qneaF5XyJO2agMOcDRH3c1I5GjSOZqTHE2h O3vu7o/Tbv6o4Gslpdrdvw2q+IsnUOHmx1/5cnA+KHS2IM/BjIqYjd4aoqj8 fvZ3jKnl0tUjxqTZ+XtPMyY1KHlV4XIVETrkZsQxdxOSOKYMjieP3S7mGMrc A1DpEYgzlDqPIJz1DEK9JIGUAH7mj1oPPw7TlwP0IYIWFDuZUBW70aDDoadb GZz4f2Jw6qqK1k580Jx7WuP4gc7I5An4L9yob8ARN28c58gEWhnsaR57XOIe iHKOptojGHWewWjwCkaTIRjnDCE4L0kwLkg/B6HRKxBnvfxR4+lHVH1QzplY KkYYs8FLZ4RP/I4RtvvfRvihzgjlja8/0iZ4cVYZpdGlEbNcjwAUc2TlHNkZ zxD2PBSNhlCOKAwXvcNwmdIWV4yhhOKSMYSfceTexNIQwP8vcPRBhasJpxy9 cbeuwVo893AVbutDVBNy7WxtMUQRcql+pZ3OEGXj/yJqklIR5+rNIZppPPyQ RUoWuAehjEOs9gzlEMM4hGW4QLlkDMdVUziuUa6bluEGRbxeNXHoHPQFDrnR Owh1HG61NFwLKl2MqFuxXh7pM81GKkYoJpDYwxQjFD5AGaGavmqnbosBam38 RzoDlDPlx3GZjrMsKR0VlOSVm7HVyUyLWEUH+hoqEtKtbQg56uKJRDcxT32J dwByqIhijxCUUxE1VESDdzgHGc7BUhHmCNyg3KTconwlXi3h/IwKMZMPplCc o0LOGoNwhgqp8vSlQswodzHg7tkGuYqROKvBo44WrFnbw+uW1r0eraP4REcN TytT9goveTo5Hdvpl/fSjBymrYyjJFKSKMn0z0l0Cgl0Csfon0/SP9ckpCKe 3U2ia0ymuUrnxM51D0EJ1VFJddRRHU3GCFwyRXDIkbhhiaQKIvGVJbINbvtE 4g/42ocaolyjZi5bluG8ORQNphDUkCZVBn9UefigijbkGmnoqmG+yguxdiqC QFUjnf+7RrSZ4ac6GnlS+aPy5DR8ycl4wM2C4zSuyW7C8fsgi47/JCWXrjKP kssAINdJBAEMABx8cGj8Qnw5aAqOzHdFklsADXow8j1CUUqNVBmWEfAIAh+J y9TIdUsUNRJFNURTIdG44xuNu75RuO1LTVFB16maKz4klSUMjVRNrSkYVd4k ixfJ4mFCmauHk9TdB2mfqhWVJ4IA5I9a66p1Wq0opr2OYuRE4Q9IW70R+zkL jnD6JtFiZSheuIAutpiutpTRRJlwuVJsUcbnv0qxRREVlTxpEfb2GIUvu45C 3HxP/m0IlROGU17LOLBwKieSHIjCFSrlhiUaXwnF+MqKaYN7fP4D30fhK8oN KukKFXTRZxmaqKA68qbaGEgl07R4WhgJeCkVPE8+UjuCM2oIq00mOv93dWmd xGc66mqjBBTX6Ab30oIephuMk6yoBdlUVz6lhBa17EHAgjMiaKnhm9dQQ29Z zV9XUqtxvUfiWK/ROPzFGBzoPgZxE+1Q4LkMpwzhHHEEzpqiqLVoai0aN3xi qJ0YaikGd/1icI/yjZ94H42vKTf8InGVmrtIWjVxxtWRVtWmIJlWBh9Uehqw 9HdoTXt3gepGu+h89r5Wa/IinWhSrDVwEn+mRJJaxQnJWr2B/DIingo7QX7l SFGeP07R6lZQ5IgoUIqE2qCRMdHraGKs0OgVgAZGRmc9/XGi72ik9B2D+N5j EddrLI72GIOsxUac8o6g1iJlrVFjV6gxWWuxuOMXS03FUmsUf2qNIrR20y8K V6m5i74RaCLfzlpCcUZMRiO15u1Lc+e9SEdpwvJqlfb0/5vSRDPq+giVJq9Y vmlVWtbqdThKIynYlUJlZZM6hQxFymiPqxiO1DLIqhdBlteD4OqSEG/59QID rfOGQBSOnYXM/uOQ2m8ckvuORZJQHCmXt9TMgVJhpJiqsJtU1teU24rCODn9 Yzk5JYX5C4VFt1BYGM6YQ1BlYp+MvqgweCtVPK1rTF3C0CaAqsa04c37zSen djVH9pJ/wt4NGxEyZBQ5ZaK7EnmQHwqoplMeQk3BqKV6GhixnWPEdklEa8Yw XDWGtcU1xi4vMWwLYQBHyGfb4+TACcgcMAEn+o/HCWortc9YpI2YxZFFSVo6 Ry1dFrSihr7yk7V0h/q56x8r6UnWErXoL7QUpWgpHHXUUrU5WBlA81tzZj5C W4IBqrb+rKMZVVvaWEnRlrrMJPZC1XipkxIqnCSplo+ZjKhh46XY9iRnXQnj nQrGOzXUUgNj2vPU0iUj4xmjCPQY21BuMr65RRGvNxjnXGOcc2auI/IGTUL2 wElIHzARaQPGI73/WJzoMxolzJfrqLImSwwu+cTiOlV200+obTlu+y+n2pZL qrtDdX1FuaFVmS9V5kO3aiEs5kBpDKXeBt1FCdVexXpsR+KIYFx1Myulivoq FdvJQqV/a0WlD29HW1UqnKkad3VU5uuNs/WMqbwYQpqxZuwMrBo2hQlREEqp 0ioRS1Ol5zRx9A1zuBw6WiLwNeU2g6SvKbdotq9TtY2OJuQPnoycQZORQUkb OBEZVG1mvzHIHD0TNXSkjWTiBTLxiq+s2ltU61dUZ1vyL5YB91dU53XO1Suc qxeo0kaysNYnFFU+VKklQFLh1bQTkjOTFKreqeo4JgulW8/j/ulS3Lt0dtjv UOXfdZj4O1Wp+gZ1LtcmpSDB1cgAy4cONQCbx87F5mEzUEY1VjPIqmcscZ5q vMLQ87pZDju/FmHnHUZVz+Muw4bblK842huUq5x3+YOnIJeSSUkjWdMHiTnO ed1vFB1kNOqpyXPU5CVq8arQpp9M1Fv+sW34FENTdZPP18nNy1TmeSqzgYZP VmYQKi3+kjLvNjao01rvBrDHFfXu2V6B/RtS8H3BYdy/UDa4hXq1axKqev+l o0pVvQ+vWrei3j8jb9U6JDL2TWLwluoWyHglGLvGL8CukbNwhqptYNBxwRQp RfU3hWp9oqjZKCl2FWFaFKfNXQYZX1MJNzlJr1ER1YyHc4dMQ/YQ6lfoePAk ZA4kWweMRqm9GbU0AoKt5yUdC8bG4JpfDFMYRi9P860gaRR/FYlzbPKsLx2K bwgqfQJRbvHDA4U+dF+NStmK/DIssw3D97uDcL/swIDfodOX/otO1ZixhU61 saGq0zhnL2ZSzJRc/ZHqGsSQJgRFnmE4NHERDo6ey7SH3pL6vCZyAiXsvUu5 5ydC32/5/CrfMzcguW5RCdephMvUazH/PnvIVKRRTgwWloC8HTQG+XMcyNso +pRoNCjcveAr6/YyVXqZbV9mq5d8hTEVSiVhfZehxpfZm28wTvsEoNjs04pe 1Y185zE+uLE1HL/GBSoFa60r9VUdpar5iTYKeq+5UrVL4apS450McnrqGoA0 NyqViVYxc4lyRsZxk5fg+Nh5uEiFXqNCb0l5xIOIWFbqc3TIVDYVe8tPKDWC iqFXcbYgk2QVSk0dQtM6eAIVOxa5c+xxmqFQFYGqZbv1lEa23UQ5J+Uo56nO J/k+kp8zMmdbZ8jUCjL1FK1AkY8/HqybS+/UmDDMfR2qV0fh/o5F1nq/R2hR XePQFhv9DgVq4VMVmODkTQUyMXMJpAKDHyiQQXINB5oy1RZJnPmyAplW+DVT IA3e3yQF3qHcohKvU4lXqMTzZOap+S44QQUmk5UpQyaSnWORxeipiG2fomGu IOOrqcgai2BpVFucpXF+khYzgjpjPki9lVFvxSRjAWd5hsnXesPU7o2pSAmh svZ6KkVfj1SW3nKtqqyHy+daUdZHiHekspjFJlFZJ4SyOH2LDYqyOJgGOtyM aXZIm7BQUZYcHH9DV/utJDFSViEpy19Rlh+VRZY0MI7JmrAASVRWEpWVQmWl zrZDjlc48mlyi42y0soZEFRQKoUwGKik+yqnssv498X0Nfk+Icgh09LMfviq sUnRmDB+NVjvHo6f9/rhfuGXXVpXmhotiW2l4sR0lErbSqekbaVTmlWxF1tR 7sPVhMrOxuPWsijNjrNSMPEU4hzo1p1kJadSydkeYSgiI09TyWdMUWponEWz pz7kW5yfwzcBsn5vU25JgY3wxbJ+CyYtoKmch7xpi5AweCJlLI7PtEOyxzKk U8c5tBh5vEQB9VxEPbeh8Qungoqo40LqN1fgQ92mWYJQvHm7up1omBGIOztD cb/imBI6/xed/lFabUxYvRlb6Ax2UnbTfu1z9sEBIU4URwv2C6FTzIzdhBt1 jdZaA+0ahV7o1EzPD/YhlI11mccf4Jg9eexIFTsLFYcgizwu5PjLRGZMHtfT FYuHcMH5MxyQM0nWtUhfxONeQKyi52hFz5FSzJPUl7lC+/441akPijr1RImj B1ImTMfe6UtxwC0Mx6nrJM9wnOC10snpTEZoWQx0M5krZFBOMKhNYpJ43MSk NS1LvT9uYX93nNsQiV83TleqdR6pY9nV/xXlyenY4WrGLlcL9rr64CDlqKtY 0vRFgouvZPLETE6mvpMdfZBISWAmkmBnQUHMJnxFncuRv7xleYqYbaRP2ErZ QbFfuBjbGH7vJk67HSzYRayqOS+u1zWqi7LaXf9msDQPuTop/6E2IQ2JDj7s VQBSSPtMGuJ88lKsVlSZRPIdJelepJUikC+Y+QAXNbUUOdIpGuziqUuxx2Yw dtoMxZcfD0F6p+Eo7zGE0genpjFKNhpx9ew5JK3cie2uIdjDax0kB454heEY k5BjzOuOMuk9xJR3rzEI1WnZ6vb1/h3pyI+i4d3jpKyePhKLpxS+X6f+djGY 3ONGLJh3H2LMftyNOFBSGGCeoKS7+CGTkuVMcRLrhlk0AY8jw0FeVE0nNmm2 ZpREb1SS3L/Iy9XEeAcx/pLYSjhzLh2hOBKfQ05mxBHfOGJ7XAjbOE58j9qa UBuXZqNjulrgpA3jZJxexk0yI85eLIb7MzwORjp1l0vzVEKcKugwaxWcLhKn q74xUpqQT6wSB0ySPj/UYRhlJA51Go/9XaZgX4/p2N13FnZ0m4D47mNR2Gsk SvoNRPHwIajduKGtouPL9edQkpKDU6k5OE0po5SmZr+gTPTdK+Owl670131m kS78l8KYZxRm3yAy+91NOOhuwSEic4QS705UmO+nuRERIpNDEUvd+S5+bVDA N0+jkCAVcPLkU7m5lJNU7kmxZ29nRsYSI76ubVTqG5+XwWe+u5vg7yHw+ylH XH1xnJLAppPZojPBSmA7aQQ+nbCnsb0TBD3VXogFqRLwnJS1jepCq9YOvtsc NDFOFTRpx+Mxawgr+4mXkBuzBQkOxM8liNljCLLJ/SLaJBHZ0cVI/ytzki1y Jtth12fDOJdGY19H+Y6YQ1/MwpH+c3F06HwcGTUfJ2bYI28pVctw++QMW+z4 YgwS+o1GXt9eqN+w1lpzELw4FN9JicfB/1Y39KyS5Gas3kBY5IX2o9IGPg0V 5QQhEotXJwlRHnVYyIyimFJCKXX1p33hh0+h1EXe8i5ylre9C2mrChxMyLU1 4k5tgxx3/gPpYjnf3SyVCBwQ05NynFdIZOtieqa5ylMzaqkT9tl7IYfon3QS 4ishn03JIlrZRCqbDMhcakLT8RPaMls1Hm2BlHJjvPTTp0pkoIZd2tc2ytQT j+N2/kig20q2mshlKKUrSZrqLf1+82fjsf3zadL7ff3m4eDQhdL7hPELUWLr LW2ZX1bWOh6kkcGoYIC5Z+RMxA0Zh5uTh+Ln8mI1ynYYYcG1LeH4LT74vxVc /UmJqm+S9WL5+hj1eox6jadOxZJjmrSD6o9cSoEb8yvKKddAnGaOXU6poLRF JT99mu/9+ZkfyjhTSgnjKYYKpTRpJXQ7BRwJIVQy2+eRtWYjcTPjMK8lJvEx ZSInt5zIlFjieMjBC4VSqYfYlpG3ZgpJEzGj850sjz1YfWweCKsV4WerzqFs 7UHcPXPOGjA/fKeLFWhtE+31c8k2SvvikR29FccdAumog2mK5OkpwhP1wKIt g+Zhx8gFyF5kVD77MzPYaGRw+iVNnC9ls2L5pVHCd5m0THDaNwilTL6SbF1h HOiAvJm2uDWhP34oK7YuGge7rkblSvq2nYvl3Fbu+WNWIiqPp5QhnK1qgqmf GXljvPBD04WnWufGXxS3dbO+gbNZrNabpO2NeA/BDV+JG9nkRZ57AIrcA1HK dLaMUuEehCpKNeWMR1Bb1HgEkR41HoH8KIC/8pcKXMrpTcvpCU87m1DmaERt 7HplzfPPyCY9jvJygorHNIZEbOhniMuSark0HgXMoosoK0iRYw7epGaAtIMn 6FjG3wu7UkKrUkw6ltCiiIego3hURK/XXdBSKbOgx0qctIvDD9t2tUYZdW1A u29t06LZB3x5xfpZTux2HHMKQjzDmVRmDNm0CwW0C8n2TCAZRok8s87C0NYn iqmWSNqFML+dsQTHJsyVEvVaKekMZdIZzEQ9EHkWDnnjZlSUNsBntDdOz1yI 66N7Wbdldq9LQWJQFH7b54Xva4uf0hm93iRSl/gObynH6ll5+GZPKb46tO7x 1unznDLg3DUbSBujVJCR6GFBkocvHYK/VJiRR9oUkSal7sE4zYlTSakW6/WU Ws8Q1ImaFEq9JMF8HyzVFNV6ihqjAGkbUuw3VpJHFeTRaUcDriSkKjPgL6hJ PiHVKYmNpjheO47UFbUQMo/8kSP6QONVSDNWQjlF+m63c6fb8CRHg9rwAoK6 le7C0gWQsv7SRrGwcKdJKfEoczKihNR77MFEa4upQ4qRuf8Kfmmsa3YXrppd tuCONrzW546VQM/iem0TDtgF4Igz8w7XUIk8WSRPvkHk3MyJpIUKxuDMt89Y ItqgxhLBjtUw7T42fTH2TphF2xKKEtqYfKbdOZYAlG7aoq6YVZQ1ImK8ATUz 5+Abs93r1mT8DFa7LsNPe/1xv2j3/8qc3SvSEbH0IO4dP4r7F8vatM4cedn9 VdQmpyLBXZTyyJVmyRJy/kQuACcJTCFZU0rGCOZU0bWeodmtpYgSn3pR3UJp FOU+hlC+ChH7ZaLKSeydiXousY/mjyoyqIpxeaWzEaedvNpq7N5xXj6Bl0/w MFOYcinBZoZUTBOIfBKmiFJK715GKWeX4mhgNtq6tiFDQ5hNCC6fEfVVHvIV K6UdYWEDBW9lEpU7eTcDXF1im/TRdBR4+eL+1iVWHmmz51Z49GlrbkvvrrRn cY3Myli+k3l9CHNPZrbuy5DuKa805DNbKDJGoNQkr+qUmcmsMotYcCj1WYY9 0xdi04SZyPIJRpolEIWbtj6mdMB38WpsmOSJczOm4Y5hqXVxdGoAbu8Iw/3K 4/jf6PQ0dsduRthoT3y7xoJfTh3UvXtA3lx4DXGuXhyIN8UsFX+kUPUn3MUO QRDyiVYJyVPmHopKTiOJQJxK9ZQGSpNhGc5RzgvxXiZtH4rSOEGoBoNMpBoS qcqTbs1DLoerYuJY6WKQCoBkxT6HvDXryRwjry8TOUmKdET9UQD7QbvNvhQJ MrsJMoeigmQWhE5wMmGTnRvNYBgllKYvlG0Ko/iUtEdeY6WUv1Q5Kh5VLiZU OBnaNKfRDIVGi5vdsq9mkS1opM0i21vTkMeav2PjqbE7sMcpBAfIlePu8kpJ Gl1XFvmSQ0uUaxQhUJ60KpVrXoZsSxgyLKHYMGsJYqbOxq3Gc08oJAl02oA9 U91xefoEXHddrMZh8/s6o3F9JH7bNNMaxGgJofZIjWR2RK1B6CgSY7UFieG2 KhnkRb+/4hZndKLEB5PEhSTqLIUYpLuL3Y1gFJALpyT9h6Hac5nEhbMcUCMH 1GSIIP5iQBf4/Bou8vkiB3hRqiUUNYU0OuRErSEY1c04YaGBMaLcRS6Qk/rg ZlD6YLZy4QT7kcl+5LIfheRBKftxWu2LxzLUsD9JDGE227uzD2RoG8m+Pc23 oRT6SpJRIoCnbNWk90xiq1yUoFPLhsLfywa5ACYmJkY9w6KHYh3Fckzyyp3Y SRe0zz0MR8jROOorkXMlmTpJMbK/pjAkUo6bQnHIxGgwLUutAVG3uJZ5bELc NGdcnzoKv1QUqxTcuy0dJyPFqo2zAq7+oZfa+lnVCtjOno8QkuAbkuB+xVGl vPevqKc7SXL1tmo9iRpP4ewT9W4nxd4WtV1GbVdS0zVE/axXBGd5BJEVyEcS 7Ugq8pIxsg0u0xK+Jm17X+Qwz1EavEX5IH0Q4a/yClTglyskq9y88E19PQpW r0OSm7eGfv5W+okNy3x2oER0gup8AHs4kQ2XqnSDl9grVBQ0FMbpMT7Tx1HO 0iTVeoWoZ2dKbo1jrHLj5V0NeAh/g4y/mklok953mlsDdVNcJL69lZlfmpSN 0yk52ES1bac52kkO7iQHU9fvROWJHFxrOGc14NpKKXW6LxlgYPLjgFuTBuOn 08WvqGHC8mPYRefyn30W/JSx+Qkd26Os0zzqnjHxu+CRD2OfwNmXpGy/i1mf RNxT6LczONNyqfIiqvs0VV1FVdcS83pDJHGPlOoeL1AuSdhfNhH7K6ZIYi/2 6S+ZwnGe0kj864zE3ptxiCFIxt9Lrumr8vDGjRSG3a6evKhRMf9+EvlSiXu6 IB87UUjMSynlxLyKHREEFLjXszMVNPvmxbY4JxFRrPQLQ/QHySWJUmZR2VJH /M94Ce61cEe8ZoWrx/8r+No5N0IH0MeV54riengM90bhzCW4Nb4fvj9VbL1L KGBhCL7dRdty+pBSHfXIyE+9nSloBCFcZZE2KWQI/4ZEF2pQ2uLn1GUgnkT4 pHVnwpdHzRVTcwLCak7bOsLXQPiajFGEL4qzNIrgRRG1qDa4apaeIjnIy0Tx PKXRJMpcGQAQxSpRMmUQCPrLZaueJmQsWsLr0nG4PZi5EoWIXibRO+kWRvMR RvOxjGixD54RnI0RnJURUj9EcbFAUJgR0qktnyIEgDQgDQTwLI3HGQJYpTUe oryaUWeVuxfu0Xg81QqADx8HYlW+euay+GnUIwFkgH+qEQFjvFExcwGujvhC nZF2w4y4uiUc9xMZmeTm/pcVAzV1DhzuiXvN4OuDJBeqj0G2qNBIYoKe7BqE VOa+mVRbHoOHEqqtnCo7Q+jOejPXpZwT8JmiOdGicVmUi1KuUq5JEiWQlKqS LzDVaeJEPEsYayQIORGlgmxRIko9GsxImz5Ttv60iEnM4USls0wh9sEtlFZA QLiMEIbTA7AfXpESjeoJWaNiCcQirkqni4pVuEgkz1MajaIYmNcnllUtDYEX DYGnZAhUGCfrwKjNEFvAqI3sR7cCY+XpRsRMMKBu5iymb7YvKXgV5+Wib7vO WD9rOlw+fQOT33oZloljH2sdTvUkgYDhHlY4X1IMal1iMiE1SAUiMqSBhDQY J6hKCVKqsYRqLKcKrZAao3GOUF4UkJpF7YEA9N+4ZpEhFcXlophEhpSzl7Ce ZdxYwxCiSsBqFPWrVKk3VeptRsqYcbJRZxaV5Opv7YNEKzeZVsXsx2n2o4pw 1rAfdexHA6VJ9IXitWgp+yb86SVhGy6ZRJH/BZPCJ2JaYxR4KpwSZkEU+Rto WL1MuJGaCi2gRS0A1aZqrQA6phVA/WzXYctkD5yfMRW3vZZIN/O3fRD5/BEd Xn0ZPV56GzM//hTGLz6E86evwaHdS8iNjUVB1CqsWOL0kJdUD10IGEZgV2qB fV4G1lkuUkly8Zd2tSVgXQWwy5DHeVrCeVpOhZ6hIpsBa44hsDEEMAZXLDG4 aolpI6H7Ed9yChPbCxYVV6qW07XapMHVSFyNFsQPGMjLtsQ1RO6ChCvjIWJ6 ml0QuNYa5G40sBsC1/MC18UC1wir6bhMU3HJHCUVgTWZRAW6gJa+1hj2wFx4 y7XRVYb/T9CKgxdUGMfqQCvPumcYRKXDdZgzfD4fjrWf98b6LwbjSycLdjpa kLp8MyoT0nGtrlE9cEIvY98duxaf/ONVdH/xXfayHby7fYjQPu8hvN+7yJja Az+5TMT3dmPx7aKRuDtnqNzIn9EwqDeq+/W0rg+XOy3FNzs24PaW9bi1YR2u rVmLiyvXooHNV1P8yZO7zXjSETfP1iNJ1OI4P+BJkgCJBiBL8EQYAIIjGQDB E4LSaIohT2I4uRWeWKw8IU1iJKo0I4ol0kqUKmEETEo9tslfIsrx/oN4XZO8 Oe4SIG2PJSt9yFT6oBKlmiSplfga/YAo7ItEFHHPj2SQBFWe1RBFFN2LUhlx 24LWCAXIZKURunHihJUnHz/Mk4dvfrfyRJtmj1OCHC1PxM28Sas3SdvFeyiH OB1C+07H+i7DcYh8iZ9rj0RqX+xExjv64Ki4l8fegpr4dDnMetPKGcET49Ql GPVWf4x6dwo+/Of76PF+B4z78F14dH4XgSM+QfCEjoj3mY67h8Px7cEwfH8g BD/uD8Yve+U65d92+uC37Wa5zY2euL/OXX6/3BH3o+xwf9kS3A9egN/85uJX 80z8x2sq/Ia6kzg+JM5xJRDogERRAeck6gZIGmcC5hJCJ/zAuBQTrNMkTTWB qjMKsGTSnG9JGh8Sxkd+lUkTTdKIAmLZupyh56gyEzRRxG8macwkjcmCxDHj ed3mpJGI6xqmIU2khjTREnkl0oh+ULY4eCDHI0D0pxlnKE1mLWcEb8kZceOF xFth4B7BmUW/hzPakkL5wNjnsGvDJoQusMVuRjbi3q8jzHHi3cSN3744OMsV 4Z+NwX5yJvXznsic44BsqWTBFxnKrnWyKCOxNeNsXLps8uRE602FMf3ImMkY 18EeU4aYMW9uGL74vA+6v/cxPN6ywfm+Nogc0w7Teslla8dPZiG7OBfFp/NJ 7gLUVRdKrV2qLcS1Wvn97bpC7NsWIb3P3R+DUwdjcOZQDBqPxODiEcYCR6Jw 60gkfIe0ZI8NEh0EeyxyNYOzjFwKfUIGkcsle4romk4TtWpOdcGeeqLVpLBH ck+WWDIllgyKlW4LuSqxifGIRdxbI9gT+YA9llC5Ut8SJLPHbMHBkROwa8hk uarOmexxDpYYnOom2BNO9kQo7ImiH4liOChYHCOxuEkxfyp72kp8flYyPVbq mGXqVEns5fXNwQp7SR0TqZOmSx1161ebyr3dnDpa/yGbm39IxQ7ibvuIybOx bOw0ads3VbpDzhc5YrNeBMpz3LG+wxgkdRmKkx2/QP5sBxSTQqKoIp80ku66 FxUvdhap6OFmbaO6/fLA7PSTLj/WSqJQ2FE5Ln6BWLtzs9Rj1ylzYSahrgy0 QVHkPCYkBepqwaNX/DhgwZEVWo78GfnL1yPJUeGIE92SC2NCWph0cuSkxJFI lPHyleRIDTlylpg0EIlzFFlPn5IPMdA+ZH5ESvyos5AfFoUf0m0Hgchf6ojt n3TCtnfa48s3O2L321147QCNhVM4Sn4UCX6I61POKPyop0ju0RyLzeRHPA2+ 4OtFcZcJ+XFRsW4yRxjLmh/NketajsyUObLld3DkwRKbOFxHmBnhikYrviRt tXyWwWGlRGDd5DlYOWwCsskXcWtgkbsfSqXNMZqXee7Y9fkY5HQbgtKBI1DB z8rFXZYu6qEGPsgjQjk0PelLTaJQRiHLYpKlLy3OJJLFDlMGy2QRD5ksW5rd ASn+JpikuT7MRnd9+BEbHuoROpbB7rjTjDx/Q13CCRoZ5oiOpL6jTJ5khTw5 JE8BDUwp3VMFyVNN8tQSNGFkGs0yeOJxQcS9F6Unn2i8Jn12juA10DXV+ZA8 PgROvWfFJwCpk2Zgx8fdsOH1Hjj6QVccbfcFjo+YJRs4YVzomtJpXE56yuQ5 ReJUGKIlF1lL4kgElvoQiwN0bXEkD/sgxVlt+E7chCpuUm1UDEzafF+kLqCH WGDmqxH5zsxPLb4Seb5pbICWPcXezdmjXWtQ2PN366xUt4TVcln11GLlhEx5 AeIVpK9ej0PuRmmLP55USqFkkkbbx87AlmGTUCqOxnCXj8aodpPuMkXS2KU4 1nUsSroPRm7foYgfMRlxwyche5YtTjMyErRKmWGLtR0Gwf+Vzpj21kiMtbHD 5MEmdiUUahmuyvwHkbhMoyjS6KtR/080Mg96QKNXlPw43o4Rhj19hKNiA6Sw NAxZjC7yCWMJKXSaFKokhc5Q6sQNO2aZRjJdBHTnBYfOSwmUeDRJ9QARqCWH qsVtZD4h0q06gkMpk2ZhxUf9caj7LBz9rA+OCxk5h0ZI5lCyxCFymAaogB0o pYMqJ4+qvEUHYjQ8jpX2IrY5ekoGkV2Q7g6sdGbitSAA+4Z5YjfzgZ3D3bFj uCu2M4PZPozGb5g9tg9dioMT7JASfx71dV9bSyn0eKRd7FB49Ly+6tWNxBa1 wbJdesp6ascxpTwl1YNk8vBFrnwmiRzM/B3V7oFSCcpZcRMupcEzEEf6zcbW dj2w5V0b7KDh3vL+Z9j4ng0SRkzHyne6I+adPoh+fzCiPh4Bvx4zYOcV1cwM Pa3hz5q3bXB3vI085hZ3TKjzyWQlSpxClOdQF5+OBDuGw6K8z0kOaEQwkeEh BzSFir0pJ1mqBFlMwubQaSlEaSQ+TZJEK7VFn0hOqsEn8oGt8aWt8SVXfANR 6eOPk3RWhg9HY9WAJTjyxSgctumHuJnOsr1zlrmSRq5kS2SNlEJy4TAryBXR hxqJsLLdEfupW8kVQdzc+YE4MMxA8cJ+8mTfcA/sJk++HO5GvriSL858daTY YQe5Ejl9Jbzss+Bll4n10afQUPu1dVJNsXJmoZUz2qT793BGb93sFQY9JIyr AceV27WTpaNeSBgPQRj5DkJR8XF83FzpfYNnMJoo57yCcYFSNt8Za97tjJ3v d8H+dp2w84Mu2PzBQGz6eDg2dhyLDT3GY2O/CdjYfzS+HDEJJeGrrHcFC6Zs eccG30yxsR4eaBzohtvLZVa8qkROx20Zk9v7IVH1QK6hRCQM2WREHhlRREac 8pZZUamwokYpgj9rjm4jVcT/W7rbR/qIZJDuUvGR71KpVG6ZqiQhTpMQtZu3 oK6oCovGeOCAlzsODR+jWK9AOcIVdSYiwpVIGUFSRpKUUZIFE6SopgGpMclG RJTwrV3ihoTJPjQWBpJy33AvPMNnT+wVhBjB2GCEK1XjQnGiOJAgdjQeSxCw YF8bGMkIasUuC95LM5AW12hF83dyQrLVUmXeH1pnhzYDl9nxKnJWr0Ocm1z1 kSQdk+OLk+R4kbt8f7p41HgESyVJ4nFo0EScdfHDRUMoLlMyx8zC5g+7YOfH PbD74+7Ya9MXe3tPxd7B07Bn6ETEMdQudfRChZs4OsWIYkdv3Klr+IOGILtp jr6b8YAg3gMeJsjNuiaSxBfxDgFIoNlIFCZehCkecpiSr5CklCQ5bSRKlCql UrhGbICIsu9n+CzuZoqUPq6mtaj0XYZyEqRcqUAs8wlEkcVP9n7/xvjRFuz7 cjkyF49Hop3vA6OlRLjCwcgUjZSvrnLEGG01XtmOQXCau5hOxIA9NBR7hgvx xJ4Rghse5AONxUjBD2eKo8SPHeTHmvE+sDhmEV0znx+H2SELZlLFbJuBTdEl aKy9ZfXSekTRZtUKUdq2CHu1r8+2Th1tIi6HNa/JBUOuXkikYUmWzi4TZc9y gaS4E12csiTNRlJH1COJR8bEhTjOfPKcqz+uGcNQNseRLqkbvvykBw5+3htx 3XvhUOdu2N2hI5oMgajz8reevFTJaLzc2Rs1K9Zbj+c1T12AQ+/b4Pu5D/hj EPyJlfkjV1Y8i+yoLThm5484ohHHGZ4g8mgaGJU/eQbOciJYQv6cElvesker NMm3EsohkezbKsib0+KGLvLmFA1LKblTQu4UMiq529TURtHOqD5u2LBpBeo3 OiLOVty94i+Zt0RePVG6+jKa4XBePULD3iiUkbnllDzHUGwa6S5x50vyZhcd zK7hQgRnGJDQruwgd3aMdCF/6GhGOvFnB2websuu+jpn0zX7OmfBR4gThSzy cciExT4d5qWJzbhTosMdtYJf4c5j+vz4L7QRD7WCXKbN0zi5ai3Vb5B2plKk ulp/JlXyqVWn3GmkSRf5L5/HJe9luGJkGjt5ERKHTkH+lEVIHjYFezr1x872 PXG4az8k9eqD/V26oXKpC855B6GetKkRm5nSgU2M9F2NKHP2wp2zDeoOz3gG vwntaHUWPmCNV39XfK2wRi4TeUEqdD5iH4ijnPPHOOfj6BeSyZo0sibLiwkK pYDMETdMivtLSsU9gJQyuWJMKhg7RbqUUopJmSJSppCUKaQvyqOpudOk1g18 BKPTCkSsXI6rib6oiUuntfOTrF28KJrltRNp7VLdwxTOyBZPZWy2Qwi2DPHE evLFkXzZPtQTO8iXHeTLDnJlO2Ub+bKVv9820o3iSnHBZtqb0CVH4edaQMmH n0seX3Ph63JSYpAveePrmAFf+1RsiZGPFp/y8SyFLwt0v871LY1T0q0J1jln W5NMNf+tzJnXEScO9lLqGUQ9YrpSEimqyE57hFpPOhOPixJn5FPOxIEXKcOm SmbmCqPgr83hSOo3CXs690XGoEE4Y+uOS6YQnDcGo4HcqfUOQLXYwZSOtTIx kTfgSlKqypvJ5M2Jj23wQ8QCK288+ym8qYxXVjT/iczobThE3hxyCsFhl1Ac o69I5HxPJXYZxC5bcIe8yVfuZywUQs4UkTOF5EwB+ZKn3NN4UpIQZDPxuU2+ yFPreekOW2MYE5jEYPxa9CVyaOGO0sIdo4U7ThsTRxuTQM6kSFWN9FPkSy4l 1S4Y6wbTNg3xwCaKmOdbhnm2wRaS5SlsGeFJWnhik5CRHtgsiTs2MoSJnRja BgFup/BHPpdSSuDvVgx/1yIKGeSSCz+yxs8pDX4OydgSm/c/seUxWNMIKwnU 0z205eajFJsutmQSpOPNxBa3Lz2yqJUNlErK1FPfzojyRhLinHe4bL8fIyfk A99Sh0/DNc+gNrhtiRB3fU50QunoubgxdzqumZfhsjkM50mNRlKjjtSoFpvr EjVoUty9Ub96rfXs+RnkRc6nNvj10ForLzz6khcxMi9ku/p3VMVnYZ99EPaL KkLy4jB5EScqCcmLVPJC3OeaSV5kkxc55EQOu5pDymaTE1mUDHIinXxIJx9S LUH4uvGcMm3+id0r4mDPIKc8Lhz3q+VvwxH26zB5eIScOCJVuYYintdM5jXT eM1MXm/LOC+sGuSGNYPdsW6oB2znLcJqgr6eccqG4QasHyFi2nV8fozPXlg3 0hNraU+iJ0W0QaB7lXiqpP4C3Sso5QhwP005RWaUIIA2JcAlC/5OJ7B06h70 e2MOoke74/iiBTidf053kUVhxJM61kA92l2b5YxSaFKXlMKg0Fs6605s0Ce7 BSDTLYjBCL0zLUQFrUONYZl0BKCoXxClMNfE6Rhm6bw7JDKuvSMOILnL3OGP OD3JGadGz8PNeTNx3UI2WMJwwRyKRpM4ETAYZ7yVihlPH+mgt9NunlY2zCUb Cm1s8NvR5mz4SmHDm0qXr9Wdw4nlO7CLbNhFNuwnMoeJzHHO1gQik2Sg8WJ3 U2nMUmnIUsmEZDIzicxMpCSY2Zf0bLW0cHfsXsxzpNE4EoVf6xJlY/snZERt wwFy4IBjMA4KzonqVbdlSKQPO7Q0EJEDXRBD/JcP9sAK+hCBf+xI2oNVw71p D1byecUII1ZKYuB7LyybsxuBHnUI8qhTSvWDPGuptCCPGn5eTamSqSCMBClg N+Mw3nstFB3/acGUj6Lh2CMYoz6JRWVRo24xiEKBB/Vwz7UC/NmkVAL/YPc8 xTUQWW5KdaFnGCoMokjlwZEoV8RBh2blWD9K4uBJxJwZwj2fKKqrfLIwA/Nx c/4sXKcZvkLwLxL8JoJ/1iSAD3pwwp+nGRUejCzq69WlkYXEvqyTDe4f12Lv YsVejqb+LJWTJq7cia307DtopXd7hGE/e3uQ9uowe3yENusI4+NDlIPGUBwQ Zy6m5eA6Z7x6ramzmInsj8WPGRFQi/ivk1O7ifYeor3HmZwi2oeJdvRoDwQT 6TAiHU6kI4YYsJRIh480IGqYkWJC5HBTGz4Z2Vj4pOUIsj2JQM8mCd0mzr0g ryYE8514BHs18tMGSj3/Tx0RP0MRBqAUPW1W48NX49H5lQOY2j4ZLn3jsaDH MRzeUKBbTqCgrZ7kok1SZYzfwDEnd+vGtzhJ5IRrEDEOUY5tXEaMw+m6I4hx pIKxOJ0wihM7Sjq2UZzZcJevAmJx+E35ZGeUWEGWj3C8SKAlkDmraozqeXu0 9waLdObe5ZRkVfG2BLm6C0GOX6ucmfQYivJyMemjIdg9bSwOeC95T0m1ipOy UZqcg7IU+bbgdcyJ2qD8RA6bOc3nqw3nHoRB/GzcCDP27lyO7w7ZKpb9OZQn ZGEHo8Ad5Mq6RX7w7ucA8wBn+A50R8AgTwQO9obzdHsYJ7gjaKgJgZQg4hlA XAPnHEKAxwWCdJEAXuIVgr0uyVb1Lwg2XOCP5xU06yk1nMPl6GWzF+1er8aw t4yIbu8L1+G1MI4vR9J0X1wY1gf3tq/HV/nW4mXtKSfNwGx+miAn70jFjB93 9ESSM722i7jBWMFTOWnSiiexbBR4KoVvNwWexPAaM8kkZpBtpdMm/4TTEpYL cGP+bOl0GOnESYt84qSEpUlTRSWw9PLGlZRkdd27Ir8YzsTz7Bc02Elr5fU1 uYLs89dewsB/vQm7D9/FknavYeK/X+yuDHlUb2es37gcd+I9reeRiim9LWwP 7PvYwam/M1yZhnoM9ITHEC/YER6XcW7wHGyEz6zD8F1aQCd5CQGelwnNVUIj 5BoRuY4QiniI1xDva8r7K/zdZQUxMQ/PEq1qTBx8Et3fCIY9R1DTzQZH7ZfD YfY1HLbswU+rLfgt2A4/O07EpRF9pYqXr/OLtV8K2vyb7ayoaY8zZPY2UrG0 EmpORM3ZTz5hxTWYqIUi31OgFo4KzsBaWllxUJKEmiWaqEVLhyVdMzBqGTVL HJjURgVuijOKBXAL5hA49ajQcAW40AfAGUX1C9N/g7eYhCpwYuXIi8M+14dx V8paaQJpKsWelCrFer3+Oka+9gHcOn0El8/fxvxPX8ORVRHK93O1hdEhGstW LMc1Jl1PKabZ4HIQRtdkSiZc7HfBdkk4Fi/0wKKFzliyyAyL61n4uV+Gv/tV 4ned+N0gdjcpYkEm2PAV9Rji/ZWMG18fvL8h4RnifUXBsZFSRywrMfZzP0SI HZmxHeA0PQ2e5lsoKS7CplXLUbJ1Ba5vjcCPa3zwW4g9fnaahCsj++LbnRtw h+zVO3rkzeY29eGU6g2cTTyBRIGmk598zogumpFEUy70kM8uldE8J47VnbiA aMYQzBjpCKzTU5xQOErAOVeG0zfCeoapdBqnumtrkuGs8PbGnYZ6LZw+1MDl gTb46cS6Z3V6Lvu4Z6QpuzkyBh8+9wq6/OsNjH3jDbh+9AaCer6H4K5vwKPj S2hYsbarYoJd5/rCO1ROlHZMao89kRGKaf2LVAnqbLdcwnbRQkfYLYmCm0M8 vF0qYXY9B0fbnXC1Y4Lsfh3+HjeJ91cI9PqaWN8mhncIt/ddNhPiLZ/PGMrX UKP6/mt+flOBXExdGlpDPSE/g7Ec6KF3OVD7rjhw8HJbxQVUN56XrOV6MrJo 60pcE6iv9cVvoQ742WUyro3uh+++3Ig7BcXW4EKbTCmoq2f+qLuS4qfRapgs tnsdZdSTiXqKq1JRTtRLDDLqNQrq4sRaUWV0XUI9Bk0u/jg5caE4o6uNdFwt w+QpjigYyWB+yjSUOVlwmaBfIOiNLUGXipF8UO5tUMIXGfFQsZk91AY/NhY/ q+S1WsTlPfKFGPVWD8pgjHp3Kj74RzuMfuMzHH3PBnEDP0LgsE8RNvIzfDm1 B35xmYrbkwbgqqsdrq1Zhwv5xR9a7YJsp1/Cgolj0efN3rAzysnSoSW9MPP9 l1FTKH+/V8vqYEfbaHg6HSInsmFyLafUUhrJjwswupzF4kXe8HLKh7/nbQR4 3SE/7iHI8A2p8S3tQYj3d4Igxu9IjG+hPgRJQo23KbQPRmEXrvL/XyRBmmCY fxjzqZfiDjYMcrywfV3WEwpBKhvOo4BdWy2KXUmQq1sj8cNaP/wW5ohfXKfi xtj++H7XRtwlQdSYWZtbtSDIw7tF/0ZN/AkkqPUA4qgbEiSDBMnVHKV1hgSp 1xBEnD0mDug9Y2tE0Qx71IgTKOa5Yu2AiYjtPBSxNoOwtdsgbOs3EVspm/tO wIbe47Fn1GwkzrKXCkpEMUelyYJSb69m+4wxyj61TI9/SZNfPEa91ZnShzIW o9rNw7jOLpg8zILZs0Iw4PMBCOPfXexng++D+2LxoA5wHdsFXxrmSpb0h3VU WYQLfvWejW/nDEdd/y9we/M6EdN8+Ei784oUE3zyL1F+/BHm2odJidaqyd3h 2L8H3BfMeqjsuOHsVZImDiaJOMWUSkqdZFjMrpdgcbsmvV+8yAhf92skzz0E Gr4leb4jGb4nMb4XBDL+QKcUyvehJiEkkukbikygEOMtynXJwoR4n4PtqBCp rOjyABtkBviRjIe0iyt/si6uqI+8wiKsiI5BHul0hXT6XuhmmTP+4zYNN8cP wA+7N+FeYfFf/jc2jVHX7ezJJAdfqTRI3AGRTiadlM4LC5fOC5OPeRYl0lFS yY8oUbtOOT5+HqK6DMaWgROxfeAk7KFs6zIcWzsMxqHug3G49xgc7j8Jh8im /X0nYk+fCdjZexy29hyL1JlLkGPnJE5F1RJprdiwHmejkOvVh2yLeIz5zBYT +hgwfWIA5i8Nhx27lpCRj5T8k1hAreZ9YoNfHDrDMKYDxvX8ECaH6VajvSIi CjlbVuLCtmh8szEI/4n1wn2/RfjRdhyujOiDWoclaFyx9j0lBNYSTHBadMc0 dSl6v9QO7Z57G1+8/RkmjRiFhTOnY+mcWbCfPQOm0f1x0d0eN9atw0X+TRsl YvF2jifJciillGpKPYl1ngS7QrkBX4+vYGG0uWSxP9/fJMm+Q5D3DwgmtdqS Pj+2IZ9+oDmXGfatwrA7CDEp5sl4hXIBM7vOwFbq8bvZnRBkzGZDR9HyxuUH y//PWj+rqG3CyYJCxIZH4SR1dGlrFInmj9/CXfAfj+lomDAHl1ftU0u/tWsB LUimftOflmS5MZuQYC+TTFS3pjGTECf/FTKTEKdzFdn7IX+eJ0rme6JsvhdO znTCYRJsbc+RWNN1CPYOIpEGTsaxQZMRz9d9HYYgucdgJH0xDMkkWRJJlkCJ I8mO9BmPg73HYm/PMfiyx0iUrNioJdm8l9/EN5NtlPjij1ZkjUTWaq0+orXq 4orJw+UDOha7RSJ2yz4k5eSj4VIT1NMCfKYuwA4q+zZJ+8teV2xYvxIlJQWP K7pNyy3AkUMHEb9xFWq3xdKAheHnVWYpRBS+4PbkgbjqZofra9fhUn7xW0rY Jx7GqYsw/q2emPr2MMz/eAbse9rDgdH4nDlzMG/ePEwbPx5zx42A++heCBjX GVvmDcCv0W74zTQX380fjhrFXobMWAWT80ny7ZTCuwbKBXLvKvkmePc1/Dzv wJUR1ZLFAaTLDwrvfhJ27SdBPtOPZNqPEv/aSPz7g8LAu/wdIyjjTf53OkfT RUzjDMz4yAZNbjPIvhxs35DXbKOpub3W++wJZOcXIuXYYWSRhRe3RaFuXR5+ yylWmaddl9BhnrouMcYaVNCQJLvIh/SpjwMDZ+D4oJlIHjIL6UNnY1+vsVjV sT/WdhyAtZ/1w+ZOA7Gv20jEdR+J+K7DkEg58kk/pHYegKxew5HZfzJlEtL7 T8SJfhOQ3Hc8EvuOwzHS7tjQ6UiztaA4etOTSgg7b8JYdHnhn5j83N+x6JXn 4TVurDV22h27XrFvQxg7TZPs28S+BsyYFIj5trRv5kjN1oucDHsrqeR/zD3+ oFCt4cJFVJQWY8eaFSjdtoJxKcMOTt9fI1zxm/ccfDt3OM6SE3e2rBMZplzq 867Sg3VWxcz5cBJsuy6G8whXOMxxZlK1BIsWLYabwYj5k2bg848+xkCbdhjb 5SNM7fMp5g5pD19vD+TQNV3YHo1vaVV/jfXEfd+F+HHJaJwf0guHpzJxmnGQ NFSo5yaod1Oh3l34e30DZ/tDcHdMJfW+l0xesOxXFa6pPlX2qyGSCO7Rt5pu kXfXsHR0OJyolZb7E/JPVnP38Bfk1VSeQ1PFOZWP6zZnYMvhazh38atmX9ja /Bv6rITTbrmP1QTH8fb+OEQzJh5b+k3B7gHyaVoJ5NyJwbOwiX5zbcd+2EjO bSHXttv0w9aPB+CQzQic6DYCGZ/3R3bHvsix6dMGJz/rzcD4ZPteyPm0JzI/ +QLpH/dA6kfdkdiuK45+2EUZ9fNoWL4WF1esRSNRraGUU1ZOnonO/3oJ/Z9/ EbNefgmL330N42iyVFM3+qP5GNfVFVNG+NC4hGKJeySWb6WpO5mvZgGhtHLJ H9jgh3kd8XPhzj8plFMj3bTj8lw9J3nVYHpVA73qYvxkNw5XR/TFWXrVppVr /9HC3gpPOpGdmPHeaCxqL9c1OU53heNCN4ZbS7Fo8WKs37gZqTkZ1qqINbEr 0OmTD9Cn84dwt5spKrIVW/w3ZNJsJBw9jNTNq9CwPRb3Nofgl5XeuB+4hEnc eFxjPn5sZiRWj4hoQb978PW8ymua4O1aynzRKL6hNpgWLkRlm1nIPYSaBevo c823Jb8bbKblM1/DjK4zpSD463EdpGEEmbOl15ZnPiuPB+fotVHGJelkxQ7Y tXdF6QRf3Ny0tdnXzj6Cfloyy/T7TPps3YCZWP2FfNbelr5TsKf/VIV+M7Cp 8yCs69AXm0i9bZRdpN9e0m9P+yE41n0CMhn4n6RXLegxBEVCuovXwSimFPUY iMLuA5DfvT9yu5KeXfsg54t+KBs2TGq/cKAco2Xys18ts/CrYRp+cZ+Mn5zG 43vb0Zjw7zex+IO3Mekdygf9MMbGTrZ1kwOxwC4c9pYIJGQWoP7iBbVMSjBl BVV7dbAN7m93eE7hXurJfBw8cADH6VnPbFuOr+hZf1otPKuDFBbfnjIQ19zs Jc96Ob/4z8qyhOznhWf9gp51qOxZu9nDfZQ3XOZ50dwtFeZOLS2prq+x6ldm /XNIZghw8OBB6co125fj9hb69NWKT3eZLB2IljVqAbaNiSG17sDfcBd+Xpdh v3QF31+nVySckvW6Kyyc+Q6nhMQnMz2pmbGc+ZbCq+sItlyR6iBEHv2zQ1cE WUqknjU13tIexvhHK7nUzoqHOs9GvdWVMhCjPjDAOKkEF3fV4+7JDKgnw2pX J974b/z6m8ypiYuwqrvMr819pmBXP5lfB/pMxFqb3jRrfbGV5m1XpwHYT34d aN8XcTYDkNBlNFK7j0Za52FtkNVlGC9U8MVwFPUegeL+4yhjUTRgDBJteuHY 252R9vbn/N0gnJw0GTmT5KM/s8dPQNZY/t9Fs3H7cATuHQrHdwfD8MOBEEzu 1AG2vTpiaqeOmDdgCJZ4RGKpozNNWd6fNBPNgRottaH3dOmCXy+XK8s0z+Ls +YsopwvdunoFSrbJmbuIgH+NZFhlZFg1bwTqB/TE3a2SC1Un96wp29DhjQDY TdqGsrxz6p6e6lnHvtUNk98agNkfTMTSjovhOtADhmm+cFtixOLFipnbtBmF p4oFDM8rOX5D3U1426fByX0vYoPisY+RZcX2Fbi5NRw/rfVh/ueEXz2n4860 QSgYtxh7x8fC0zkdSxf7kWZXEUTnGMzgLFiilEorITcUal0jna7Aa3GitCF2 qqMNsrwCJYoFmLMeuFF1S16bBI16q5v88RMY39EB0websHA2XYffVaQVX8ev P//YCrnU41a15QI//vjjGOXj7NUbpKbF+WgbB89Ujw/c3nM8Vn3WCxts+mBz x35q6fzR9v1Jl4GKWRWPl5D7+TBkdBqOUwzUTvcfg9NDp6Fs6FTk9RmDuPd6 IIdS2a47znzcTbJwNVLdmo/016ecTSh2MCJh5QakFOQgrzQPft4G9GnfHuO6 f45FA7vBOKYT5vd6D0c2xyjn6D4Gf7rIA+/a4N7kDqSix4vKOlbF2XPWMCRj yyo0bYvBPbrIX4SL9KdfspP9kuWTSfjiZQv6vbMBwz6Ixsj3bDHizSGYIPzj u7J/dOrtAs8JZngv8me45InFS5bCwcER67ZslFT8ghJsGuxSyJx8Sjm8nWrh 4VGEiOAT2KLQ+to2RobrmdhFMjI0zsY3s4di9dTJcJ5vi/CFafR/ppvkb7BJ IQr9W7D5qkSWIMtlBPlcxNIxYfATN0YNYrQfEo4AkiYz/YKVMwzaBE3EY9Rb 3aXQdvT7MzC+kyNmDDNj0dxQuBiiseHL/cgoyMc/dRYuWpBF/YJTcecGSSOv hH2MM9JhevJBZaK8URTZbx88RzZMvacxph+ANQyfNtr0xeYO/bGjo0yVYx3p 7NoPQIrNYGSRKuKR23k4CjqL2GsEynqPRMWAsSgfNh2nh01DZtcRSPxgAEra D8I5OtDzdH71X/RCdfeeKPisq/T3ecMn47SzEUUOUvWs1MPi3Hx0eOc9iT6z BvWAYUJnrPCcobJGzKdA6rGxF9NHv14vKetnLS25cDn79+7HkQ0rUS05u2XS ztHOKUGY/MFOTPhwH8Z8vBezPvOHfVd6sxHeMM4JgLu9mQxxgb2DAyy+vjiR eeLBl/t+iNT4BpLlJIlSCm/HM/BmfG5kfG50uwxXj1KEBqdhZWwscreuwiXG 9t9tDMSvMR6wLF6A/IVT0DCwpxRQxS5MZsRDdpjJDvMlsuQiAn3OU5owmqMT CfJ3czpJQ/G3FFqH9YAiIvsZKr2f0NkJMxmJLl4QBlcjKbJrHzIL86weSbvs 0Iwi8tqW+P5b8bWGsjF5EsdcvazzL136Uljx1akB+HLwXKi+c81nfbDepj/5 MRA7O8oBzPGOw3CcWKfYDEU2+SAe+V1GorDrSGR0HikO9Owzio6jfPgMnB4+ HVldRyPlk6Eo6jwaTb1G4UIfmVMNE8ehdsxI6X1l/94o69YVuZ92RMHMebi6 ei2ukQCip+tWr8TCcXNwwDQL98sPq/wQVSpZzKZ/WtwJ3xTtVvf+WvCjreJx 6s5dRFlJMTatXI5en2ZiQvczmNqrAVP6NmDxuHR4uPrA3t4BDo6OWLV2tfqF V3Ih5ctYH11BOhTD4FBJu1EHb5cmeLudg8mdKZvHRfh4XoKv1yUEBKZiXcwe pNOeVW0Mh8luCSoDXGjPFuNH27G4NEzcBx6BlYvjEEAKTBpuRPsXX0LP55/H iOeew5cD34e/T7kaY41iKDbqreEY/eEcqL5m6aJlcDNHY+Pu3cgsOqneLqrN /FuA/3DZ/L+lb99KcJMP1xJ1z+LQ4AJRMq98b+7+oRMR+0lPrGJ0svazAdhE Y7CjwxDFQAwnAQYjpcMwZHWWAczvOgqF3UYhvfMonOo7GqU9h6FsyFScmbIY N4xhONl/OvL5u/Ieo1A7chryZi1SRvQsyqZOQfnk8agcNwqVIwejdFBf3DdN xY+Lh+L6qF644roEuwZNRcHcmbifFPYnBel9nCKbOH1ujrTBb186PfiSdfXY wYtnG7EqqgofvVeP3l9cwtTJqVgw35viihlTNkhfFyMvK72Fhtrb8FpaCAMd g8GxBgbnszC4NhDkRoLcBLPnOVi8zsOH4ms4L/Xc5J+E8LCtcHWwR/nmKNzZ EopfVplwP8gWPztNxI0x/bDk3Tcw4O8vYMw/XsD8V1/A2Dc/IqI9KSMxut1c TOzmillj/KRNWnefaJzILkDTpYt6h0e2QFWbXsuovog4cWqVm0k5Ctpf+k61 YqmSXT6fdU/f4TjYbzS2dRuOlZ8N5NQegm02cn5ypOMIHGGek9xpBDK7jJLN drfRyKecYGxa3HcMyvqOwtlx89rgK9MyzvBb0nfwhuHsUoP07XUXjcFyBbN3 ILIWOiJ/kQPixk1C9sQJKJgwBo0WW/znS3/c3+SF+7F2nBUz8YvjKNye3BfV vbvi3rZ1aFq+9hlNPCruWa/83IbhXDf8fKVCue3zLw+5gbLkdGx2sWCbi/wd CmscvBCwxAkL5y7CgrkLMW+0PZaO2Ivpw/JRUfHdO2qqdPwiPG1PwcuhGl6M B7xcBOxn4e1eD5NHA2FvIOyN8DE0ylGUn7f43gZ352NYtMQVwQGbcJCOp4q5 zlci+FxjwWi6tLnvvoPZ77yJ6czlxnw0H5N6uGHOOH/Y2UbAw48o5wiUL6gF pdostgXK2nHKO99PKd9NJhegJyuHm4ojKcXXvFV6hqrh35H+E3BswGQc6T0R 6lls+zuNxL5PByPh81FIJajikUWAMz4fjqQek3Bl1lxc6j8cDQwL20jVxi/h spMFZzll8vhZLkPFHE7rrMGTkT5oElIGTkSC+I7C0TNwcvpCJM2Yh3QPd2Ql H0L27pVoOrgcdw5E4OfdQfhtqxH3Vznhfsg8/OoxHt/OGYDz9Pt1DotwddVa XLXuCDwpbVXZvPoSer/6Mgb+8x8Y/PxzKB7RDr/lbbfesike6tdwiIf4qpMY ezeYl9jDbuEiGBbbYpODJ46w/9HDjHD+eB4C/m91Xx5eZXX1uy441AH9bPXT qq1WatWqtQVBZIYgyBAyIDMkZAIChMxzTk6AECAhII7IqAjKJDOBJMwJISHz PIdRFLX9WmuffrfPbb2/tYeTfQ5vwul3/7rneXbEQ9j73b/f2mutvfd61xo2 j7ZOnEMHwlI574ZK13APfbSmiRLCaikBSz8hspUSWA5iWQ5aIQetkINWPJs9 sVWNuyS5lZaktFJk+FaKidpNS1JbKWVJMa3LzqVsWwqN/d2rFDAAu60+fShw wKu0eEYgJaSvpVPnL9LlL6+qcf9N5h9wihXMi11GZ2OXi6SolRxCnphJ5/wW iX93AJQcfGMa6J9BuWNmaXNSOnYOtpdeVDXWj/R7lq2egZT70ht08Q+e9NVg L7o5aCxdHu5FHdNDqWn6Aqqc4EcVos2mcrRSSEEJJOD82Bl0DhJwaswUOvEG 1/P0oVxY9oKZcxSLj1DjpStUVnGRdmWvo6Pb36OGvdij7VtLf9+ziv65PY1+ 3BBLP2aHCmX/d0PZBz37NL3x2OPk+cSTFPjEzynpN4/S7GcepvriIqUAZN0H zqChP+HzQwXr74bF0K7IFMqJhgqMloU/zkShRS6ltJc9actEQDLJk/IWA8Iw Ox2Tr7PLuMafU/7RGxQf1kDxEa0UHyUFITFGCkIKBMEGQUiFGPDHDiGwQwhs SdXYrSZQXFwe2e34+7RW+v2jT1PfZ16ksX36UdDQARQ1Hvsjj5cpeGhvVZ3B ef8nAwsdJfbM/Z+P0lVHouIpN1pmZMuPSadzsZxSeSVVJXA2uiw66j1bkT8F 5E+/Q7lw5eMC6CRc97oJgdToGUQtaG1egZT3Mlyy17DF8phCXw+dSDUDx1Hl G1OpdqI/CKzDz15UK1w4PwgByMfSvwjii7D0z70pC0GewQ7y1Cgvyh85jkrX baHvmjscSXST/ZarhMFHxUaGP59uXkfle96nL/eto7/uzXIyBrumeFDAs70p /IVnKP63T9Gyfk9RRP+n6eCHa5SHe58IbSjad4gyFkUIwheB8LcXR9PBWLtT KYICURmaq4rcSxdE3oultNN7AW3h0oBTfakgPI3OQgDOQABOQQBK125+Vu0v 2lr+SrEQgNiIFqh5CAHIT4AmSIIAJIH8FEW+DeTbmHwbvk+WApBsqyUbyA8N +YJeefo5GvJiXwryGEiJvv1o9ojfUmNViRvc3xrV0JdyIhMl99Fc2285FcSu oItY9NWJWeB+Ne0cIX3qA6Om0uE3Zog/54/2k64ZBKB8fKAQgnqQ3zQxiFon BlO7VzDVj/GjC/0nUcvgSVQ70JMqh/Debho1Qkc2ofF/GyAKdZ7+VAshqHII AteynEaFWP0FY96ic6Ph+o2aQPlTA0WCCK7Qwk8+9404urRxDf24LchhqnUy rPZr16i2upTO5O6ns7AVHV+8Sx+HB1DwgL4UM6wPRff9Ldn79abI13vT4U1v y43wg04FQKMXhYlFzzKwD8rgSJzMF68LmBSqAiYlMbIURQ8qFzLB1cL3TZhL m2Aez0ybQhfnBMhiMxF2KuJCM4tsVPX25t8oPZZ37FuKiWiGpm+lWMhDfJyU gUTIQ1KS/HMSZCGZG+QhQciDjRJSaikxtYV27zxDA18cRFNHvU7rQoZSXeVF VezbeV9/W0HoJesRwr9hQeCo0wIogIsJEAQoAC6cuWvERCUI0P5vzKSc0bOV qv8V1HYg1HgQvDkvqocANKG1QgjavYPpkmhBVDNiMoTAm6qHelMDBKHVKwBt DrWgNQuB8IcQ+QlhqMTmv4xfahs3nS6MnQKBeIvOv+lDBaMn0NmZQVQSnkoF i6QwcFmnojVr5QbtTuXIfLj2PRr4wivk3a8PzRw0gOa/3peShrxEHwx6nso+ ev9hpepdA5oYk50rsugL7F+OcKWAOKhxVQCFN7Jc/JyzCVwE+2UxnOVkmagu UY1WE7O0h0hvcg9tHD6VTk+bRlUhc0X9kzLAWgpf4SIeu3ixjWrWblK5le+g 3OPf0QcfXKdoaIKYuFZpne+ieCiB+JTOlrZ0L9lS0/V7Yn5/CKZK21JI/wLS gTnmJt2F71v3ab3oaERn9q0T0ZrvTCz81eA7G3x7Kb6n06FRs8C3n2PzXoJF fxEm/8wgX/AdQk1eIeAyBHyHCL6rBNc+VDXUh2rBd9OY6fi37WD8EViIAMG9 5rxuotzMV4DzUnBeMn4aFY+fTBfG+YJzTyqaHUSVUFBlETaqf2cz7Xwvh3ap F0//VbRN4SWdLXHw88xz5PHKi+TT/xWaMaQfRY/0oLwRU6jqtdfprxfLVFXB R7ss88l/y0VwZFIAG+XEQwbi7aI8OctAIfgvRisF9xWx6eA+XZSE4NI3DWiN sVx5pBGe8720ccAUOjl1FtX6zxBZ/jk9CRfDqYxKpQrMp3RxCl09evIFJQvH 876j4/l/pNwTovWg3JN/xKxa2//m8Nd4y8ZPyn/uFIJQhxCY27rbCsFP6HC4 EoJIfj0kQ4S5shBUiUWfLfl+jg54SBk4+oYf5b85Ryr/8UGQgQA6PWhSpwx4 SxlomTCHysF/JfivRqtDaxkzgzq8gugSPIQONPYUWA6a0BogC7WQg0pPrHtP GAHP6XRxArZ2432x9j3FWXEtLHF1tA24pdD1nJO0csEqkUxYPOPdWgCKS6jf i7+lUf1foomDX6KpwybTCo9wOjZyGlUOGER/LS1TLxTITOF8asVwuQao9VQ7 AfEit8oBwMUnuGxJnpMgLBOZIipFFaQMCIGsdtOE1ozWEp+BB2zFT+yQRgdQ 7uTZVD/TB38vi03UQiBE6RtMjOuHlC1OEqeYstTQXcKL52djWv36hFBVqqD7 tmzf4djEcwKnH374QSfcaeFafSojVj5W/Vms+hJB+GpqwKo/Am38BVbvgZHY 3nnMoiNgPA+Mnx0biG1aEF0Y40/nAGodGG/0mkst3nOpzWcuXRzsTeVDmXFf MO4Lxn2pdbw/2OYjP9b/P4VkwD/0DqRmZhzj1Hn5U9VEmP2JWPlgvNRzKlif REXjJlJrwjJqjF8CQO1UC3DKoa3CvbialRTK+9VOfsnijbTMI4KOjJxBla8P oR9A8N0GwdqeZ2dnizcxdLn5uxTBFz7cCGKTjST8sraQLHUlyxlxLRgmtx77 oUbg1YLdcCtaO7cElsAO/LyPTk1eTIe9odH8plLzwihqipfFGPiWow5bSZ5H dWQyNb+7gfqo52eCN2zYQHNed5DrWMvmFs6FXf7odEqQYW/lzHGFP64FmRux jPLA7hk8LccvV4DderB71i+C9g6fTPtHSHYPg91csHsGjtx5sFsEds8OnUK1 XpLdZrBbPWYmlQ5hdn0Vu5MEu+zksa6/rGx8h2K3BY3XNLNb7YXtndcsKvea gU32VCqdOIkKx3tSe1I6NSUYLxNHJ1OKTxzVcgmrz8OUlZEIpYVtpFSPSDo4 chZVDBxG17Gh7+nCsFWpZh0+z2UWjsUmqpzrqRK7x7C/kcWG9KcJPm8LWhtc ng60S4mr6DLaFdFW0jnfRbQPAl3jP4va582DgHIWIZVePTZNlo2JFmVj6PvW 9j5qdH66kACsj5Q0zgbaDbX6OoYXLdPKyQF0dMHhRXY6Hi7fRjjFWcbxoOX8 NhDH8C1Kpd3DOPZuOu0Hp4fA6TFwehK6uRB2+iz09tkRU6kGnNYzr9DPpVjh F6GfS8FjBfisQmsYMwv8hYBH5jREcRqM1R0kOfUOoHrvOVTtDT3tDS68Z4BX rFhwWhe8kDqSoe7Aa0OCehM4NoXWTU6gYyvA6d5k+tflCnm+ei+lLtpASR5R eFw/Kh42iooBkIUWvl+t0VYu1+AolCGr//DnjErRUxoraeSaUY3xMptGe4Ks +HMZ7WpSJnC9hp/3U+NCoDXKj8r9/Kll+jRqS5Q1pBqgbzqplIVbWt7/SNdg Cpo6l5JCF4gMiy9ZbLSedubQ9K81h805Z+goZ7qIlO8WFOBJOQ6zGmuzMSWb Phs6GWtzGu0bORMb7dl0FGsxHxyeHReEDdBMOg2nsgp+Na/NBvBzfpAXFYPD kiGTqGzoW1ib4HB8gMMGX/JhDsGnj+IQrdEnkOp8wKGPH1X5gEMfcOg9lUq8 sFGDhr0k3uheTo06SUS8jQ4HxND6mNX0v3el048VKhJVLr3o0OW0aOYiCg+a SxHBwbQreK5ARF6k/JSOiUPjZKO6CTbSKnPOhVhZcYc/DfGZorINfy4Bkitw Qa8CluvckrN60JfJWeCuaUEa7Ru1mMqDIqk90gYtgqcFf40iUf4yVWVDSl5t TLzmzr/PXIoLDaWKrHn/LncyO+Yf6MDCpfCXl9Px6BUihrZIvBPCIf+r6eTs SNo5dBrtHTEDT4f1N9qfjmP9ncKe6ITHTDoB3srBWxX0ZcU4fyqApTw/2Icu gLcSXnujZ8EahkDXhoj11y446+St2TeQGn0DqNYXvPmCN1/mbTqVeU+h8xN9 6ZoNisrp3evOehOJM9PpT3xSUn9UuT33Wu55YuevpIgx0bTTA379kFHUFjz3 AXVy+F1bmyxZIXJM2EXGfH6D/DQMYoFaeFyhRujQhCzoxSzx58tJikNA9CXa DbSvUtD4z5wdP3IV1QDSK8nQt2itILORS1YkcsUDZRqw4LnqwY3cPK1P5/Sd S8UpdliFuWzLtT4197oufN6aXPlJ+qb5Eh0MSxdl93KhT89AAC8kyvd8+DWO 7YOn0q7hM2gP9Ol+6NMjWIt5WIvHPWbQ8WHwSz2DqAx8Fr2BXf4gbzoHPgsH T6Lz4JTXaJ2wn5LTVp+QHiAymH5Grb6SznrQWQM6q3xnCzrLQWcJ6KybF07X U6G0bPqNapVlPhFYJKRQyKgYUQTpx23Byrx1bwJ1nNvOjXkUNjKWtnsEUfHQ MdQeMk+Z14epNTcf3KpUEVxQA1vZvBg2MxlUqGJ3K+MzHfy2YW3yh8uPXEPj Ajg30L5C+zoFztnXIPl+QfV10Hw1JVPSm7xSVsTR9TQS5Evi9fFJdDM/X7tD TG+tfSl9v3GesI88C32eYe5vu+FYJkP+PdUfPUv7wzPoUBRniMlUHGdRGTg+ NjOKPh0ynT6Hrt09ajYdwJo9ijV7GF7vYejhAs9AKpoYJIKNTwz0plN8kTHY l4qx563wDKZqxTHr4Sa0ZtDL+rUJBDeC4Domd5I/VU7CvnYS/Cff6XTOezJ9 ZQcq9iy6LF6ZByIpZq75FHrfP1kWO9ode4cbu5S7FWpc5XHBiDj6xCOEioaO hX8yn/RLY23Mr5H9gStu8Od0LJebWaX4lWu2GdxynSP+XOWU+YLbNSBzDX1t W0M3uerNTVs2V4izYVmjXbVlwWpkgt9V1CTqpahiG45iFymcQb+P2s9ofjnp CXOpONZnl+Z+xoVi81Jyivj5GtUdPUd7w1eIRDLHYmXyoUKReGg1bRo0jT4Z NpO2j5xNO7GE92EJ78bS3Q9X6OSEQDoNivNHTaNjr3tRLig+96YfXZiALS2W doVS17VodXCB6kFvA6itB7W1WLvVkyAGk/yoDPReBL3nfabRJeD7VVq2ojdT 0mszM8TbaJ13JH1u41LXaeK+qbsNyn0Gt3OHx9OWUfPo/LDx1DF/vvq7u6jk /Y9keQRVeoPXLXbxjksZrkODJculjOR3d9NlWXcGy3YtqF1LX9nWamrxO9+k rhHcZndyq+rhNKWs7KyHowtfJGHTGh+nuQ3oO4/q0iS3xlGFya1+F96FW/7o A46paisj0jVErKS90Zl0ODaL8uJlEphjoXbaMHgGbRkxiz6BI7cDS3froEm0 Ezv8I3B/jk0IwDKeSkcG+VI+TOtpbG3OwQ0u8pTclmFZV2BTWgVOq7Fkq8Fp FVrFpADwOQd8wicFr4W+M6h4Vgh9m7ZG8HrN3vn+teDVBl5tWLYpNvr65AlK nw97mJ1EaXERjjWquXxQIVRb3k6B4HLDqPlUMGwilfXpT/9VXHaP8nNzHLkc Ogsp8LvHp2Pg8YvSVFngk0tTcV2jbFGM5kqKLEcm+ASX0L/4+SDd5DwPIp8H lm4q+EzlHB+rJZ+2TFEcp4H5ZBOTvMxR7aImIV7tTe82CA0R35iHEc9bbGS6 YXW6+PkE1RwvpB1YrXuwWg/Fy2QuBxbY6f2hM+mjEbNp4yh/evd1X9oMR3g3 lO3ecXCkguPgDM+GU+UnHOKTvKnBCi4EmxfAZgk2nqU+3AKhaOHAoBWDTV3j omT2PPrjEpnw8IbBZAuYbEhdQVW2pVSEqW8KD6ekqCiaFzKfDi1Pom/XTqeH Deb8h8XTB6MW0Jnh3lTRtz+/SvoTpWSL3/tIVhLgXPCaOfiKZ6Bgz3M5ISfm 1ijmnKpRCd64lNFNzsmoFiJ+CuJSnYmTlScylG5ZIioJ1CTG6wrzAa/Oo3rm bWuwI7GY5o7FUXNnvhYvswE63p02bwlniZ8vUUVuIR1f/zltx8ZlF5ylbQtS KXvoLFoL3pYP8KFNkxbQUbjoZxNk+rd92MQcGuMHw4pViVWYP15q3bPgrAAr 8Dw4K+QGvs6hnYHRPA2jyZ/zs+cLzr5L6+SN355uTsVOHN7Q5ogYiodPHwlt uCMyUkxrRfT7VPMejOfOMPq+ucOkbtbQeHpn1EI6NcKXqvq9xq9t3q0WXdtx bC6xmegsRAEdalKXoKhL6iwmJqtRMXVvgzrOtstFi3jRydJF3L4S3K0R3HWk yopUjaICBFcuyTD0Ryp1bNIHQj0p8NX5DvJ6uiwynuVzFjsYF/LMHUyA+Pmc yKj02eIMWuU7n7YEJ4k8R7lxq+kUpnbUP5b2jPajL8bMoQNYYEdA1DG+vJ8I EwmiTmCBncDiyofpy0U7DqJyfOQVIOc8+BYkfbtkrVhY/HknLJKi5odSxqIw yolPoYpUTDM1jdq2bBZPs2tzFeWtzqN/niihvzTXq0Qxd4nScdOHxNOaUWGU P2IyVfUfwCf2+qiulZmKYKaWqKIPkqnTiqmLmIpmqhkstaesdTCli//0EFXD HhT1ZXSRKWbqOtoVrDTBVCqYcpQL4YIPYIqnYLNx0QVnppZIpvTLdqdOnXIp 2OG8N3Fi6g4HU3xIC6c9UHz9LGWEJdDm0DTaFZNJ+0HUEaiPg1hZn8CP2QGS dkIz7saK2gcteAAkHeLmHUgHvQPogPcc2u/tTydmLaDGaFn887o9m/JjUyk5 dCHFgBj+lMCI12J2jSJzOIxA2jKqAUlfYgb8FG1Nf6dNn92kjktf0d++/y/1 yCCptJWWhW+gTI/FlAtfqmrAQD5Vv1NvF1va6XgEXJKINAdJebxrBkmFTBLM eCW0YB2WUlOyrAbGtfmuGNXAuBbYDVUASBBkl3lurtslSe0gqUWQxFU5Vsqq HPZOkr4+ddLkqIE52hLkyKJoXqE8e3uOeG+xePFi0davXy856iV9tdIqqoJW /CRmFX2Gye3FFmOjTyh9hMW06U34JbBe28bPoU/hk+zw5OiV7RPn0H/QoRkL qRRSXAOneXtEguCDeTkEP70dE7ueJn3wjrRMahYZu1cIjmqhF8pS7b9UruHS 8I2U4RFBOdi1VA4YLM6+71SWOGcxOAiXJ8Fc+UJzUIDHLIFKqwAHtVgojcmq Eho4uGRTPKRKHr5UPNwA/jdEnhP4GmiXNQcwoo1mZRQ7/Ah7GtXabI5zMwf+ gQ78TTdC42/u7Vy0GZshTpLE56FB6hdM5cfty7YrVJlfSPuzNlL6yFm0CqZn NUxP9lg/2jIllA4GxdL+oBhREmHtokhKwEKIBuBfRMsgdq7ncVUlP74MM9Oe JjdEDUtWUt2SDKpJS6cKbFv+0nFJPZ68eVgC9A9jD1kxcChd/eAjpQYeoqJ3 NtFxPocPX+rInM01y84B/eJ4WeKwGujX61UA9DtszMDbInXEVaGqmINeopwQ 1xy5Lp4xG67LampDa4JwNDhKRywXRoPRb4e8OuDvN58al0r47zLg5xsHxu/X FvsuF/hNLy7IwvbIKd9H38DAcELYw5Er6Eh0Bm0OTwbECyhiXiitWRRFR/jq MxnybMsmvUFpY0HClNoAuX7jhPNNVwLyMkBeu+XjXym07WEbyeYRRQewnSsf NJzq/ecq8/g0dE4H5YTZgXhnlYV8+MxngHYR0C5NkDqH5b0BaDcD7Vag3W6T Mn85da0oisG5fLiyClccZIm4gkfrANKtkIZGR5EFWaiD1WUt0P6+o6MT7FAF doAjR6OxxyWrmEw3wDa9NAn2f4qN42asvvB5CygMAL8blghZXqbKkqym8mSY Qmzga7GBrwfgDQC6Ea3Bvlom98aMqpdkUgWUSxkAL0mDjG/d1luBzefziR7R 9IWHP5UNHkHNgRrsX1LR21vpWNgSOh7urFhYuZeISm8YGkDXAWjOYaHB5qwo QsRTJeCXVJmjSwJkKQPNWqRFhQJZzYKrFLRt/fhVhUYwQG5ikDcHOIopsOQ6 hzpagvyIhW8bLH4+6QRyVycu5QdO0J7wFbQvahUdhWU+EZclfN0ileq4TKc5 BuCVALvS3pneuBgzKxKpaldQ5dZPdUiYbeEGihkZQ7s9AuhQ3yG0/PEXaOsv +1DD9r2i8N823wW0Y3IY7QtKpOOGVJ+HVJeo8osMdq1KGML5iZptGvA1nPx/ Dfhsx9O0CUFmjLNExZAeUGwruU4ocK4FzpVQH993XHLCedlS+temOY6kMwxG RUWFE86mKvilM86mGxqstpSMsz7xYFzNEw99586u6g7gvFukgcUeMU6mgD2T tFqkfz0PjIuAcRFMUBFmVWgHD5jRKZiifJiiP126LENdxXrqfGFTKsBfi2p6 IaMTaMGAYIp8vB/t/8Wr1Pb8q9T+8quUG7CQPpm8gN5/fTJ9OGgKfTBkGn08 IYT2zowSxUzPw3SKBZYkpZwPi+tSpKQ32kAAGmfSbwbizZDqJruu8ZNJtSKb /ipHRv0KoN6w9ZN+Loj/c6O/A3HTVP6biAcoxM3zYUb/1ivSXlR1vIC2Ra+k z7Er3wfROsznLJhhbspqyuOGvctx+CU58IoPwytuOV2gomW7qI7zgtPX3L4G 6CfXb6WdsXbaHZtG4a/NpMAnR9DWXw+kP78+iv7sMZLKp86m/KiltHX0HFo/ cCp9NHgafTR0Om0cPoO2jphJuaF2QUAxHq8Uj1cBAljL1aRITVcHoahP5QYN Z2cttxqWG9u3NE5Hr1PSr8CCzADw26TzcYfjqYW4aJ0S0n8BNYON/7NhtiN7 rbkNsyq47MKGeSg9W/z8iWCDk0K66hbWSehaHsrf4/Bnak6cp48T4CQmoiWt opObPqd6kev0ihqtCwKed/q6Lu8U7YlLpS/i7LQvLo0Oob3zZqBItvY5J/+Z xrnGvKh6ZgAVRi+lQpCwbXQArR8EAobMAAkzaMvwmbRt+Cza6zVfFHbQWq80 yUjwrpK7m9qvnJO7gwCZ4J1NzQqq+/hTvY3VjykdglutoK781lbXTvP62anB toH+uTlOJwU17at+s8X0JbuhZIbLAmGV5HrArk9PzDyefbvD/UHH12fXb6b9 wPwgMD8IvHUA6ScBi0XCpPOv9KV/RA2gmrf86WK0DiItBfK96FNg/yGwXy+w n0mbgfu2EbNoB1oe9oEiYTlwv6CTpAuf6iJQv5tKgHsxcC8C7jJBOmwzMK/a ut0RHm4+ulXmeQfotVdpoVcZNXx2hf67olRnHjQ3UE9ZeJAuoHOcij65n2qh lfQlpLYDd/7PQC8A4FxGjCvS6bhNHbO3ynMGpfMbn8P6Un2oN1XELKXKaK5C x6BX4+cj4s9ng+PofWidDyDwHwL0jQD8Y+wntqHlLEyjUwD9DEA/B9ALAHoB ID+XqjKQwwydERnIsU6xK20/fU5F8tzp9Nha2rWOX/v+Tfrs9Nf0j3/8t6M4 kKn33UDY7P6tLhC+Ve87d+kGwkdUXS2OiMyNt6v6kGl0Hgg7VMnUvtSWHEW1 McuoDq0eSGMg/PwZ/iwD3g5PD6N1w2bQu9Dp64HsRo9ZtBntKHT6cSezgz8D 3WMwPcdgenKw3287XUjfdlxWF/nWyP7cBUWe8i+N77RfqFB8WCFm+oXc+FBG bzw9DVS7uo273wLVPg7vw3irvxfkM0WFFKYKJE8CxbOivNBS2h0QLhXE76Ag IgZQvSOmtDk2vQe1xKWjg5bYZdQct4yaYpfiL5cA6jQ6MCOMNk8MojUjp9M7 HtAcPvNoT1IW7UX7IjkLHexN4UCYc5s/p0YYEX6+F61Zt9LEj7kgyFP+Rdeo 3u8wqboUIHsn69evdyoFmJOTM95CD7tehj1oAe0A8fMhOhKbJOrs6Ag+HZ7J WJYAojWeM2kZ8Gwf2pe+jfMTYZmtaG3xGdSO1iFCNDvil8POt8enUxsAbokH tOijQYRo2qlGRO6l0K7poZSb+UEPqjhR+AcLanVWWfMYUGNk+m3yO8e0btXH t9S4G9fNstYo/dQCpdcUSi15J+i4iKFKUeE4zlWJyuKWizX8Gdbwn6f0pavJ sUBoBXBRJc9EnOMVEed4JSED/5+B75dTRwIX0mO0ZOxUHdCqA1o1kclUFpGo rmqdbcaT/xNEnI33GAMOK3+Ku/3PLuH4KeU4IpNkSJmutlMoqu0sp/0BkSLT aOHLnAJmAKBYiamuxLRX0VU4Y9dEW9mDrieuBCLXVEG4y4kZopxgS8IyaoiX tZnqY2VgYE2UCAxU8QnOOl4jYnqT/yYio1wExAoRrRhND6m/+PkzESZ5PCYR qKQIRNhXOaFeAT0fu5xKYzPo7QmzxVJqG9KX/hTnL+IkOT7yamImXU/KpC9F W4Xnu4Gf9+HPK+ka2pUkCBKgaU1cTo060C5Ohn7WxyRR6wcfOQTFPJ56wuJ5 FSy9HGtOuwtmgMCILlaLqVOsMO+vxKM1TwXF4AG5sA4HPZ0UZTOWy8A1NF4t O3i1TO5LX6YkAAgZaXgd6vZLtK+Ss+7Aj0yolevJwCh5JV0CDq3AoemWgLVk qJmEqeqJTKf2cQshNiFwkQyrpH9D3fAInuoGjJzoOICR7BQhdComnQpiMqgY QOwLiBZrpYDXyuLXRATfVQAggEiWEV9fJ2f1pJspHMXHtc2+BCzXAMplgNIG UJpEVJAR+BVvozoO/MrL06CYhzw/7xqUB5y1Mn7+5S9/ccAxyA210bsbKI5H cyCczSmY5qR6aa4kdiVsjZ/I0NIqFsgcEQR3LUkGwHFEFMdG3UxZ3ZO+EUFS X6fIGl7XAMllwNEOOJpFAI1lkNQ0Q2/qcxhXq2xAYZYG0X7NAAtj6wqA1b2V cLfuUEe02s9SH10SMDcqUYYvqHIjIoosRkaRHVqUTqH9w+jkyDD6Y+AU+ip9 PrRCZwQZR4/dRPuGGxzrb0UDWGg3bAohtPYUIJS8ghpEZJwqQ8FhRonJ9M2J fJpmwKGVq5sQ6YOTfl0sF3OLojdSrE9Yjvj/XnZZep1Y9XZ8lxuVpF62lHEC +dEM0QoB0eaAd2jZuBz6cl0R/ZizizoADwfZXU+WQVg6SucbtG9Fy6bv0CRE kDPAdNnGEK2iZsDUIMqx6OoOaSK+7JsTJ1QohrMf95ghWdoiP9k1RDripwuN 8rIFOr+zUEw9XdA5zq+icu0LEUWRTieAzmmFzpHQ98mWdJ2aLtykryGUlzQ6 QOaGTYaoOdBJXUPfiQJGQAdNorNaoNMGdDiWqUGET3SWUODwrG9OnlCnAs46 +NHbo2Na4t8ZAtTVXuH3Fl2+YmnpHQsM2ke8sWdXdQnSKS8qQ+Gzii7GZ9Kx lE8of8MxFRvE+HTGBnGc102biAnqKQC6X4QF3UC7lsrQZFGbTYV5cXSJTUMj I5wAzUwLT067WKaqcEHGNMsvWmgfV7Pct0tkrDd7GpxjAhxVtCFSg7PSAU6l CoRzgCMCp5zDb1TozVqYVh03dUOH36Sq8BsO4XBJ3V+fkkI3ITsaIVP5aIRM F8YJoc69l3pT6zk3zHV/1at5bfGSS3cKIKmCHnF8fXQxFlmEymKvcDrJOMWt ohKB02qqA07NwEnGusiAwesKJ76IV2FKwP6m3TVOqYOBwma9UURPGEClYnMA SfprR/ssF5x4RvoowzTpFjgZ7zz1dsOWD7TA6WWHh9B56iuF6GlZA0InZo/o BKdAgVMBIapNzIa/kk2tybIKj4jjEiEm8pZcA8SRCwyMDC+BwAEcvtxvSTVv zQGOfakAp9Zm87NQzQ8bwOjTMAWMWQFQvzH0jBsGfogFKlKiuJpwO+UwAovT ZOyAQGAFncMyKo7LpHIgUAPxaFBBNm1A4BKjAL0LFHpADtb2FJXE7lPKJZsu 88ztWdRs5+s98w51qSMuyF89k7lztkrF6jJ10yo95YbhHmbR5QClQS5wsnRH KWMZW3QWpqcI0y7jKDBMu06ETGRTi4ovkqEr8ur4Gl/Uswa5LmZ/XWsOLviR lkVN4q6eZ5/hmH1dqrhBpjkWuvVnFiw90fXsn+zeJnt0OfH/EG8NcgVpUYeX VQJnindIfZa40uW3wjmwqoknnyJ57wDnl/mW8YqwJ1dVDBW3y3YZRNHiFKSg b3SX8o1ugIW21HM2lb/LnE1L+5gblna0+nfmafLr4ucDdP7tj+lI2DLKwVI/ Jq5XVdxfPEeTZYliPzXq1clGNfFWLoHMdZx6iflfUkFjHCfQlmYwLa6wV4hr 7DpMukper1KgMWu9zdVTM62oy6x5RnrWj1gscdcDs7FdzppffukQLzQdXpxO R1QJXb5YPivCJTpnXi1u8flimQvfyAJWLXA4W7lh2q12DgGSN8oiPGLJKqrF tGsx7RpRMZzvNz8OtvCoHrr9jFnT6/rIP+3GJOoZT7AwIFL9Pyhe99mPHchB 9TpIji5i73SVvpoqxes/q8Ws6zHbBnGv0gh673EKnajBbDl8okrEqqwQNa4b t26jucYy1otMlwcxHQCXqZoW23y9riur5m0x1UFqQXzTfJn2hi2n/REr6EDU ShGokC/eflHVvDHNi7Bg5SCXK0BUYZrVmGZNKjeQjmlWibrMWPeYYploK0Vd 5vqPt883FqjeglodzqoZap7No/X7Xci0muEkiy4HK4+TXwzYFZZBeyJWilCM w5hhbqyq2ooZFmJ2XLO8JFlWDy7F7MpSZQXhUlVBuBizuwASL2ClcgXh6q3b Qy3U0YPGd5pPl5mZKvgeNwzQFIuZSXv8sKp6ukNUPd0TnUkHYrLoaNxq8erD SfB2GrM6h1kVOOrfGjVwMauzafIG6hRm1HG6YKGFN2GVXL+bGd3VxYxMX3S6 xYykmX2Iqo4V0CeQwu3gaDcW234OLkhQwQXJ8pYnn5uN67fybY+u4QrLs3WH uOkJs9AfDxhiqO3E487TMO1ED2MaXS2q2RbrdIQS2ButV6gy7zxthUHcAQ25 CxqSb1a+QNuXjJbCLZMKtnxOTacLIy2sea/bPfE9joqQ/NmzZ4+lXteOgqk4 3xA/76SS/EIqP1HIdxNUebKQbrRfoRgLqe5l0YfTo9wlgHn00UfFo/BjqeGD LP7laZcRzJswE0sXevhijT880lyLbs9YCK++9Dcl7fFbPSK2HEVFRRRi0e1Z 9Z3pZt7bdbd668FniEuWLKF169axUdI4mAcc5yxIv8dlEkbPer9z8OBBkWGZ V1NgN92aBHbTrd5u8gNrHPRBKCthbVH1VtUUxwIL1+Qei9+Tp6/qVORuMZSe he5eb/pnWfzzQov1/JOuh9GpqPUQPCN89HI1vePzFuZXB2KaQqB6ftwgl7Hi DyYwy6LnIguzp+NpTSFXPT9h9GxAM7Obnk1+dc+mQKqe9WWiKef6AoQXKnvB /H8+FiJSbLGk7ux6qF+6wMM2AZPQ0nRrkljn0UosaL7D4vfUaDp4x1wP+prL dAX1UKZje9Fi6bm+OmMMpUOK29raHBiKv8BnUjfdmxTpmZgCK3cjagfeqTP4 gxlZuTSlFrqzZ9c9/9oFI35wX4tuyyyI1lia60B1q2PwTZ3hY9FtuRJ7U3cK FSUXgEL3N9ay72XRYYUiwuRN/73q7XljygwmP5ueinppRvzf2G66N3lz6f4F NSUXGdc+0DiLJV6p5qe1pIrcUx3qeAo9czZzRkcm+lUuC4S1golhT/MSS693 jgaw6qzaWALcUeehvprjT245PHWxaW9a9KoVnZWrjhEeM5aukX3PuuSYubDH WIx1UT2m1ViGA/24OSnru8/b2b7h6jvTzBZ1M7qxy1SxLeKIVhwh6iwMPCYD aWUER1iMd8698Z4xxnOZra4S5WIXR1qoj1Mug7meCarBfmMsOTG5e10sgDKQ IyyGyHNvCJnKQV2x3aIjNDGmfTwqn4b7vbu7ntWtiwrwcDaQwyz6PejaL/dp tb2Rd13qrOwWa2jqIt31AIvhvlDf6R0Ij9hDjHeH64jyJFadXdzltG74G7Wv 0YOY9m23ekZzEAzRQ4zQ02lWsnd1auBsCvXGyWqEz4wR2NWwGIF75yajDtSu 3dkaYlHozk07u02tJavTPP4d7r0H9y1lXI3QqVl4Epp+87R8iyGbXfWLXqVS cgiLqUX6G71q67Khm15ZOFSvMrpN6ZxbJN4UH602XrEY7IPbDKYWgTSySgfc 5WQ0DdH5vcUA77infaUTQx5KbMzFwDVAWGysel/jXu8y1EPtZyWvSlwse810 r1fpdTvOga08Z4aUv+f/07rWtPkZ7mlreYehrNstm0ZtisyDCT2YaQiXujeY yno81gDL1W++3Uip7o00T440TkmVuTAMM/e8xQBJ7lkFeVBF4w2p0rZUmRyy 6j3WXdMQLvv3dJErnoDu17TNke72Gy37nehiGrhfPPNvLLrWZ1lumIF42bmX teLQPrtpg0PdV//JsnPt5Ztrwtx0aev1lMVoIbc3BXo0uxzN10Jr8K/wlPTr NKbNNN9gMka41R4sk/2/5cIv/55Vv+a7ON3Yg5WyVx2uaZrIpy16ne6ePVgt e50gZczhQXZqC0WwVWT1FPeGeNtcTrfEA9xjoKStpubc9JIftXgAX/fM0Hvd PsC9XegRpa10KJLpGUx0T9Ov73ZcnVDJXEnaaOlBTfMyzr1BN3U7aC8Dbb1/ sxpstHuDfdztYLp8kYuPahUHPdI91b/dVVofMuaj9zpWoRtD3et/p+x/jhIJ Uw/xN2ob/pDFAAPdMy175QABBvfaJKutOVn13t+93g/I3oMMUPhj9mq6EX9w 17DIhyB9c2quFH2daBrCl1377Wovc1z2O9xBZ29r5fOAxSB6x+2G6ZI16B1b UVNKn1FMm7tW/oYdYMB2r8XAz7pv1s6YAzsvjx/VgYrO3mBiyiqQO7Ma/Ve3 N3N6x1NojO4UgWw+x1MG4oa86KFNZ+EXLvavy/1QsTsDa0t4q/97l+O6Tzf1 FI+7ZyjluaA65ujiBTIrKehyM81fs3Dw/+nvTNfjEffsYLWrtBu1eztLlXeK 2K17bXVtreHUB2v8fw+5Zwrr5ThjLEB4Vkmi6Vjoe3JzRP37vdwzEc1yxNGO uT7vssaVxFkNcY97Q8gimxTlYgtMT8Ls9U73epUXF8qpdl6g2gfp6Z5VkeSp u8/7HEutd+/elJ6e3t2/JHmfQXHqIfif7dy50+lX/ih/Rcwt9NY/RzhUzd/M CTlz//3/y19FOqj9m/GFy+/+YHAkfveH7h/7//c/0//6vx2KsSo=\ \>"]] }, 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", ",", "tpso", ",", "tpsu", ",", RowBox[{"{", "tpln", "}"}]}], "]"}]}], ";"}], "\[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}, {3.5764272928195043`*^9, 3.5764273073119297`*^9}, { 3.576466419934929*^9, 3.5764664258317394`*^9}, {3.576466640956117*^9, 3.576466645230525*^9}, {3.5764673887122307`*^9, 3.576467398571448*^9}, { 3.576468571568708*^9, 3.576468628415208*^9}, 3.576468667602477*^9}], Cell[BoxData["64"], "Output", CellChangeTimes->{ 3.5764211941947927`*^9, 3.576422740391508*^9, 3.576422926219034*^9, 3.576423138925408*^9, 3.576423828384219*^9, 3.5764239980501175`*^9, 3.576424058765424*^9, 3.576424091135481*^9, 3.576424680083315*^9, 3.576425061691185*^9, 3.576425367763723*^9, 3.5764254521910715`*^9, 3.5764254893815365`*^9, {3.5764267251501074`*^9, 3.576426751779354*^9}, 3.57642692054045*^9, 3.57642696578053*^9, 3.5764270020973935`*^9, 3.57642826974002*^9, 3.5764664653154087`*^9, 3.576466652328537*^9, 3.576467407120263*^9, 3.576467495042017*^9, 3.576468217245286*^9, { 3.576468607776372*^9, 3.576468635856421*^9}, 3.576468772512661*^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["64"], "Output", CellChangeTimes->{ 3.5764211942103925`*^9, 3.5764227404227085`*^9, 3.5764229262346344`*^9, 3.576423138941008*^9, 3.576423828415419*^9, 3.576423998081317*^9, 3.5764240587966237`*^9, 3.5764240911510806`*^9, 3.5764246801145153`*^9, 3.5764250617223854`*^9, 3.576425367794923*^9, 3.576425452222271*^9, 3.5764254894127364`*^9, {3.5764267251813073`*^9, 3.576426751810554*^9}, 3.5764269205716505`*^9, 3.57642696581173*^9, 3.5764270021285934`*^9, 3.57642826977122*^9, 3.576466465362209*^9, 3.5764666523597374`*^9, 3.5764674071514626`*^9, 3.5764674950888176`*^9, 3.5764682172764854`*^9, { 3.576468607807572*^9, 3.576468635887621*^9}, 3.576468772528261*^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", ",", RowBox[{"2", "*", "cj"}]}], "}"}]}], "]"}]}], ";"}], " "}], "\[IndentingNewLine]", RowBox[{ RowBox[{"tv5", "=", RowBox[{"Table", "[", RowBox[{ RowBox[{"{", RowBox[{"0", ",", "0", ",", "0"}], "}"}], ",", RowBox[{"{", RowBox[{"i", ",", "1", ",", RowBox[{"2", "*", "oj"}]}], "}"}]}], "]"}]}], ";"}], "\[IndentingNewLine]", RowBox[{ RowBox[{"tv6", " ", "=", RowBox[{"Table", "[", RowBox[{ RowBox[{"{", RowBox[{"0", ",", "0", ",", "0"}], "}"}], ",", RowBox[{"{", RowBox[{"i", ",", "1", ",", RowBox[{"2", "*", "hj"}]}], "}"}]}], "]"}]}], ";"}], "\[IndentingNewLine]", RowBox[{ RowBox[{"tv7", "=", RowBox[{"{", RowBox[{"{", RowBox[{"0", ",", "0", ",", "0"}], "}"}], "}"}]}], ";"}], "\[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}, { 3.5764273345495777`*^9, 3.5764273436131935`*^9}, {3.576427376872452*^9, 3.5764274135325165`*^9}, {3.5764659773933516`*^9, 3.57646599338338*^9}, { 3.576466438639362*^9, 3.5764664431945696`*^9}, {3.576466548510355*^9, 3.5764665530655627`*^9}, {3.5764667751631527`*^9, 3.576466809873214*^9}, 3.576468682001302*^9}], Cell[BoxData["64"], "Output", CellChangeTimes->{ 3.5764211942571926`*^9, 3.5764227404383082`*^9, 3.5764229262502346`*^9, 3.576423138972208*^9, 3.5764238284310193`*^9, 3.576423998096917*^9, 3.576424058812224*^9, 3.5764240911822805`*^9, 3.5764246801301155`*^9, 3.576425061737985*^9, 3.576425367810523*^9, 3.576425452237871*^9, 3.576425489428336*^9, {3.576426725196907*^9, 3.5764267518261538`*^9}, 3.5764269205872507`*^9, 3.5764269658273296`*^9, 3.5764270021441936`*^9, 3.57642826978682*^9, 3.576466465362209*^9, 3.576466652375337*^9, 3.5764674071670628`*^9, 3.5764674951044173`*^9, 3.5764682172920856`*^9, { 3.5764686078231716`*^9, 3.576468635903221*^9}, 3.5764687725438614`*^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", "-", "5"}], ")"}]}]}], "}"}]}], "]"}], ",", RowBox[{"Table", "[", RowBox[{ RowBox[{"-", "1.0"}], ",", RowBox[{"{", RowBox[{"i", ",", "1", ",", "2"}], "}"}]}], "]"}], ",", RowBox[{"Table", "[", RowBox[{ RowBox[{"-", "0.5"}], ",", RowBox[{"{", RowBox[{"i", ",", "1", ",", RowBox[{"2", "*", RowBox[{"(", RowBox[{"cj", "-", "3"}], ")"}]}]}], "}"}]}], "]"}], ",", RowBox[{"Table", "[", RowBox[{ RowBox[{"-", "2.0"}], ",", RowBox[{"{", RowBox[{"i", ",", "1", ",", RowBox[{"2", "*", "oj"}]}], "}"}]}], "]"}], ",", RowBox[{"Table", "[", RowBox[{ RowBox[{"-", "2.0"}], ",", RowBox[{"{", RowBox[{"i", ",", "1", ",", RowBox[{"2", "*", "hj"}]}], "}"}]}], "]"}], ",", RowBox[{"{", RowBox[{"-", "2"}], "}"}]}], "]"}]}], ";"}], "\[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[{"2", "*", "hj"}]}], "}"}]}], "]"}], ",", RowBox[{"{", "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.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}, {3.5764274631562033`*^9, 3.576427662852154*^9}, {3.5764277145194445`*^9, 3.5764277187002525`*^9}, { 3.5764659837581625`*^9, 3.57646598781417*^9}}], Cell[BoxData[ RowBox[{"{", RowBox[{ RowBox[{"-", "2.`"}], ",", RowBox[{"-", "2.`"}], ",", RowBox[{"-", "2.`"}], ",", RowBox[{"-", "2.`"}], ",", RowBox[{"-", "2.`"}], ",", RowBox[{"-", "2.`"}], ",", RowBox[{"-", "2.`"}], ",", RowBox[{"-", "2.`"}], ",", RowBox[{"-", "2.`"}], ",", RowBox[{"-", "2.`"}], ",", RowBox[{"-", "2.`"}], ",", RowBox[{"-", "2.`"}], ",", RowBox[{"-", "2.`"}], ",", RowBox[{"-", "2.`"}], ",", RowBox[{"-", "2.`"}], ",", RowBox[{"-", "2.`"}], ",", RowBox[{"-", "2.`"}], ",", RowBox[{"-", "2.`"}], ",", RowBox[{"-", "2.`"}], ",", RowBox[{"-", "2.`"}], ",", RowBox[{"-", "2.`"}], ",", RowBox[{"-", "2.`"}], ",", RowBox[{"-", "2.`"}], ",", RowBox[{"-", "2.`"}], ",", RowBox[{"-", "2.`"}], ",", RowBox[{"-", "2.`"}], ",", RowBox[{"-", "2.`"}], ",", RowBox[{"-", "2.`"}], ",", RowBox[{"-", "2.`"}], ",", RowBox[{"-", "2.`"}], ",", RowBox[{"-", "2.`"}], ",", RowBox[{"-", "2.`"}], ",", RowBox[{"-", "2.`"}], ",", RowBox[{"-", "2.`"}], ",", RowBox[{"-", "2.`"}], ",", RowBox[{"-", "2.`"}], ",", RowBox[{"-", "2.`"}], ",", RowBox[{"-", "2.`"}], ",", RowBox[{"-", "2.`"}], ",", RowBox[{"-", "0.5`"}], ",", RowBox[{"-", "0.5`"}], ",", RowBox[{"-", "0.5`"}], ",", RowBox[{"-", "0.5`"}], ",", RowBox[{"-", "1.`"}], ",", RowBox[{"-", "1.`"}], ",", 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[{"-", "2.`"}], ",", RowBox[{"-", "2.`"}], ",", RowBox[{"-", "2.`"}], ",", RowBox[{"-", "2.`"}], ",", RowBox[{"-", "2.`"}], ",", RowBox[{"-", "2.`"}], ",", RowBox[{"-", "2.`"}], ",", RowBox[{"-", "2.`"}], ",", RowBox[{"-", "2.`"}], ",", RowBox[{"-", "2.`"}], ",", RowBox[{"-", "2"}]}], "}"}]], "Output", CellChangeTimes->{ 3.5764211942727923`*^9, 3.576422740453908*^9, 3.576422926265835*^9, 3.576423138972208*^9, 3.576423828446619*^9, 3.5764239981125174`*^9, 3.5764240588278236`*^9, 3.5764240911978807`*^9, 3.576424680145715*^9, 3.5764250617535853`*^9, 3.5764253678261228`*^9, 3.5764254522534714`*^9, 3.5764254894439363`*^9, {3.5764267252125072`*^9, 3.576426751841754*^9}, 3.5764269206028504`*^9, 3.57642696584293*^9, 3.576427002159794*^9, 3.57642826978682*^9, 3.5764664653778086`*^9, 3.576466652390937*^9, 3.576467407182663*^9, 3.576467495120017*^9, 3.576468217307686*^9, { 3.5764686078231716`*^9, 3.5764686359188213`*^9}, 3.576468772559461*^9}], Cell[BoxData[ RowBox[{"{", RowBox[{ "6.`", ",", "6.`", ",", "6.`", ",", "6.`", ",", "6.`", ",", "6.`", ",", "6.`", ",", "7.`", ",", "7.`", ",", "8.`", ",", "8.`", ",", "8.`", ",", "8.`", ",", "8.`", ",", "0.`", ",", "0.`", ",", "0.`", ",", "0.`", ",", "0.`", ",", "0.`", ",", "0.`", ",", "0.`", ",", "0.`", ",", "0.`", ",", "0.`", ",", "0.`", ",", "0.`", ",", "1.`", ",", "1.`", ",", "1.`", ",", "1.`", ",", "1.`", ",", "1.`", ",", "1.`", ",", "1.`", ",", "1.`", ",", "1.`", ",", "1.`", ",", "1.`", ",", "0.`", ",", "0.`", ",", "0.`", ",", "0.`", ",", "0.`", ",", "0.`", ",", "0.`", ",", "0.`", ",", "0.`", ",", "0.`", ",", "0.`", ",", "0.`", ",", "0.`", ",", "0.`", ",", "0.`", ",", "0.`", ",", "0.`", ",", "0.`", ",", "0.`", ",", "0.`", ",", "0.`", ",", "0.`", ",", "0.`", ",", "0.`", ",", "0.`"}], "}"}]], "Output", CellChangeTimes->{ 3.5764211942727923`*^9, 3.576422740453908*^9, 3.576422926265835*^9, 3.576423138972208*^9, 3.576423828446619*^9, 3.5764239981125174`*^9, 3.5764240588278236`*^9, 3.5764240911978807`*^9, 3.576424680145715*^9, 3.5764250617535853`*^9, 3.5764253678261228`*^9, 3.5764254522534714`*^9, 3.5764254894439363`*^9, {3.5764267252125072`*^9, 3.576426751841754*^9}, 3.5764269206028504`*^9, 3.57642696584293*^9, 3.576427002159794*^9, 3.57642826978682*^9, 3.5764664653778086`*^9, 3.576466652390937*^9, 3.576467407182663*^9, 3.576467495120017*^9, 3.576468217307686*^9, { 3.5764686078231716`*^9, 3.5764686359188213`*^9}, 3.576468772559461*^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["64"], "Output", CellChangeTimes->{ 3.5764211943039923`*^9, 3.5764227404851084`*^9, 3.5764229263126345`*^9, 3.5764231390190086`*^9, 3.576423828493419*^9, 3.5764239981437173`*^9, 3.576424058859024*^9, 3.576424091229081*^9, 3.5764246801925154`*^9, 3.5764250618003855`*^9, 3.5764253678573227`*^9, 3.576425452300271*^9, 3.5764254894751368`*^9, {3.576426725259307*^9, 3.576426751872954*^9}, 3.5764269206340504`*^9, 3.5764269658741302`*^9, 3.5764270021909933`*^9, 3.5764282700208206`*^9, 3.5764664656586094`*^9, 3.576466652609338*^9, 3.576467407416663*^9, 3.5764674951668177`*^9, 3.5764682173388863`*^9, { 3.5764686080571723`*^9, 3.5764686359500213`*^9}, 3.5764687726062613`*^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[{"-", "108.`"}]], "Output", CellChangeTimes->{ 3.5764211943195925`*^9, 3.5764227405007086`*^9, 3.5764229263126345`*^9, 3.5764231390190086`*^9, 3.576423828493419*^9, 3.576423998159317*^9, 3.5764240588746243`*^9, 3.576424091244681*^9, 3.576424680208115*^9, 3.5764250618159857`*^9, 3.576425367872923*^9, 3.5764254523158712`*^9, 3.5764254894907365`*^9, {3.576426725274907*^9, 3.576426751888554*^9}, 3.5764269206496506`*^9, 3.57642696588973*^9, 3.5764270022065935`*^9, 3.576428270036421*^9, 3.5764664656586094`*^9, 3.5764666526249375`*^9, 3.576467407416663*^9, 3.5764674951668177`*^9, 3.576468217354486*^9, { 3.576468608088372*^9, 3.576468635965621*^9}, 3.5764687726062613`*^9}], Cell[BoxData["64"], "Output", CellChangeTimes->{ 3.5764211943195925`*^9, 3.5764227405007086`*^9, 3.5764229263126345`*^9, 3.5764231390190086`*^9, 3.576423828493419*^9, 3.576423998159317*^9, 3.5764240588746243`*^9, 3.576424091244681*^9, 3.576424680208115*^9, 3.5764250618159857`*^9, 3.576425367872923*^9, 3.5764254523158712`*^9, 3.5764254894907365`*^9, {3.576426725274907*^9, 3.576426751888554*^9}, 3.5764269206496506`*^9, 3.57642696588973*^9, 3.5764270022065935`*^9, 3.576428270036421*^9, 3.5764664656586094`*^9, 3.5764666526249375`*^9, 3.576467407416663*^9, 3.5764674951668177`*^9, 3.576468217354486*^9, { 3.576468608088372*^9, 3.576468635965621*^9}, 3.5764687726218615`*^9}], Cell[BoxData["108.`"], "Output", CellChangeTimes->{ 3.5764211943195925`*^9, 3.5764227405007086`*^9, 3.5764229263126345`*^9, 3.5764231390190086`*^9, 3.576423828493419*^9, 3.576423998159317*^9, 3.5764240588746243`*^9, 3.576424091244681*^9, 3.576424680208115*^9, 3.5764250618159857`*^9, 3.576425367872923*^9, 3.5764254523158712`*^9, 3.5764254894907365`*^9, {3.576426725274907*^9, 3.576426751888554*^9}, 3.5764269206496506`*^9, 3.57642696588973*^9, 3.5764270022065935`*^9, 3.576428270036421*^9, 3.5764664656586094`*^9, 3.5764666526249375`*^9, 3.576467407416663*^9, 3.5764674951668177`*^9, 3.576468217354486*^9, { 3.576468608088372*^9, 3.576468635965621*^9}, 3.5764687726218615`*^9}], Cell[BoxData["64"], "Output", CellChangeTimes->{ 3.5764211943195925`*^9, 3.5764227405007086`*^9, 3.5764229263126345`*^9, 3.5764231390190086`*^9, 3.576423828493419*^9, 3.576423998159317*^9, 3.5764240588746243`*^9, 3.576424091244681*^9, 3.576424680208115*^9, 3.5764250618159857`*^9, 3.576425367872923*^9, 3.5764254523158712`*^9, 3.5764254894907365`*^9, {3.576426725274907*^9, 3.576426751888554*^9}, 3.5764269206496506`*^9, 3.57642696588973*^9, 3.5764270022065935`*^9, 3.576428270036421*^9, 3.5764664656586094`*^9, 3.5764666526249375`*^9, 3.576467407416663*^9, 3.5764674951668177`*^9, 3.576468217354486*^9, { 3.576468608088372*^9, 3.576468635965621*^9}, 3.5764687726218615`*^9}] }, Open ]], Cell[BoxData[ RowBox[{ RowBox[{"Vee", "=", "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}, 3.576427744658698*^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", "\[LessEqual]", "bt"}], ",", 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}, {3.5764684408872786`*^9, 3.576468450574896*^9}}], Cell[BoxData["1081.0488099822257`"], "Output", CellChangeTimes->{ 3.5764211943351927`*^9, 3.5764227407035084`*^9, 3.576422926343835*^9, 3.576423139050208*^9, 3.576423828524619*^9, 3.5764239981905174`*^9, 3.5764240589058237`*^9, 3.576424091275881*^9, 3.5764246802237153`*^9, 3.5764250618471856`*^9, 3.5764253679041233`*^9, 3.5764254523470716`*^9, 3.576425489521937*^9, {3.5764267253061075`*^9, 3.576426751919754*^9}, 3.5764269206808505`*^9, 3.57642696592093*^9, 3.576427002237794*^9, 3.5764282704888215`*^9, 3.57646646612661*^9, 3.5764666530617385`*^9, 3.5764674078690643`*^9, 3.5764674951980176`*^9, 3.576468217385686*^9, { 3.5764686083067727`*^9, 3.576468635981221*^9}, 3.576468772637461*^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", "*", "0.25", "*", RowBox[{"(", RowBox[{ RowBox[{"1", "/", RowBox[{"rpo", "[", RowBox[{"[", "1", "]"}], "]"}]}], "+", RowBox[{"1", "/", RowBox[{"rpo", "[", RowBox[{"[", "2", "]"}], "]"}]}], "+", RowBox[{"1", "/", RowBox[{"rpo", "[", RowBox[{"[", "4", "]"}], "]"}]}], "+", RowBox[{"1", "/", RowBox[{"rpo", "[", RowBox[{"[", "5", "]"}], "]"}]}], "+", RowBox[{"1", "/", RowBox[{"rpo", "[", RowBox[{"[", "6", "]"}], "]"}]}], "+", RowBox[{"1", "/", RowBox[{"rpo", "[", RowBox[{"[", "7", "]"}], "]"}]}]}], ")"}]}]}]}], ";"}], "\[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}, {3.5764277870751724`*^9, 3.5764278234076357`*^9}, {3.5764278678989143`*^9, 3.5764278932489586`*^9}, {3.576468357442732*^9, 3.576468387613185*^9}}], Cell[CellGroupData[{ Cell[BoxData[{ RowBox[{ RowBox[{ RowBox[{"sc", "=", "0.3873"}], ";"}], " ", RowBox[{"(*", " ", RowBox[{"core", " ", "clouds"}], " ", "*)"}]}], "\[IndentingNewLine]", RowBox[{"For", "[", RowBox[{ RowBox[{"i", "=", "1"}], " ", ",", RowBox[{"i", "\[LessEqual]", "bc"}], ",", RowBox[{"i", "++"}], ",", RowBox[{"Vee", "=", RowBox[{"Vee", "+", RowBox[{"3", "*", RowBox[{"sc", "/", RowBox[{"u2", "[", RowBox[{"[", "i", "]"}], "]"}]}]}]}]}]}], "]"}], "\[IndentingNewLine]", RowBox[{ RowBox[{"sw", "=", "0.3873"}], ";", " ", RowBox[{"(*", " ", RowBox[{"bonding", " ", "clouds"}], " ", "*)"}], "\[IndentingNewLine]", RowBox[{"For", "[", RowBox[{ RowBox[{"i", "=", "1"}], " ", ",", RowBox[{"i", "\[LessEqual]", "nb"}], ",", 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[{"2", "*", "oj"}]}], ",", RowBox[{"i", "++"}], ",", RowBox[{"Vee", "=", RowBox[{"Vee", "+", RowBox[{"3", "*", RowBox[{"sw", "/", "rlo"}]}]}]}]}], "]"}], "\[IndentingNewLine]", RowBox[{"For", "[", RowBox[{ RowBox[{"i", "=", "1"}], " ", ",", RowBox[{"i", "\[LessEqual]", RowBox[{"2", "*", "hj"}]}], ",", RowBox[{"i", "++"}], ",", RowBox[{"Vee", "=", RowBox[{"Vee", "+", RowBox[{"3", "*", RowBox[{"sw", "/", "rlo"}]}]}]}]}], "]"}], "\[IndentingNewLine]", RowBox[{ RowBox[{"Vee", "=", RowBox[{"Vee", "+", RowBox[{"3", "*", RowBox[{"sw", "/", "rln"}]}]}]}], ";"}], "\[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}, {3.5764279161029987`*^9, 3.5764279996879454`*^9}, {3.5764675995778008`*^9, 3.576467628266251*^9}}], Cell[BoxData["1192.451352787532`"], "Output", CellChangeTimes->{ 3.576421194350793*^9, 3.576422740828309*^9, 3.576422926359435*^9, 3.5764231390658083`*^9, 3.5764238285402193`*^9, 3.576423998206117*^9, 3.576424058921424*^9, 3.576424091291481*^9, 3.576424680239315*^9, 3.5764250618627853`*^9, 3.5764253679197235`*^9, 3.5764254523626714`*^9, 3.5764254895375366`*^9, {3.5764267253373075`*^9, 3.576426751935354*^9}, 3.5764269206964507`*^9, 3.57642696593653*^9, 3.576427002253394*^9, 3.5764282705356216`*^9, 3.57646646615781*^9, 3.576466653077338*^9, 3.5764674078846645`*^9, 3.5764674951980176`*^9, 3.576468217401286*^9, { 3.576468608322373*^9, 3.5764686359968214`*^9}, 3.576468772653061*^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[{"-", "2251.8313949308695`"}]], "Output", CellChangeTimes->{ 3.5764211943663926`*^9, 3.576422740890709*^9, 3.576422926375035*^9, 3.5764231390814085`*^9, 3.5764238285558195`*^9, 3.5764239982217174`*^9, 3.576424058937024*^9, 3.5764240913070807`*^9, 3.576424680254915*^9, 3.5764250618783855`*^9, 3.576425367935323*^9, 3.5764254523782716`*^9, 3.576425489553137*^9, {3.5764267253529077`*^9, 3.5764267519509544`*^9}, 3.5764269207120504`*^9, 3.5764269659521303`*^9, 3.576427002268994*^9, 3.576428271284423*^9, 3.5764664671250114`*^9, 3.5764666538261395`*^9, 3.5764674086178656`*^9, 3.5764674952136173`*^9, 3.576468217401286*^9, { 3.5764686088059735`*^9, 3.5764686359968214`*^9}, 3.576468772668661*^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", "\[LessEqual]", "bc"}], ",", 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, { 3.5764676569391017`*^9, 3.576467667952721*^9}}], Cell[BoxData[ RowBox[{"-", "3600.099353870955`"}]], "Output", CellChangeTimes->{ 3.576421194381993*^9, 3.5764227409531093`*^9, 3.576422926375035*^9, 3.5764231390970087`*^9, 3.5764238285714197`*^9, 3.576423998237317*^9, 3.5764240589526243`*^9, 3.5764240913226805`*^9, 3.5764246802705154`*^9, 3.5764250618939857`*^9, 3.576425367950923*^9, 3.5764254523938713`*^9, 3.576425489568737*^9, {3.5764267253841076`*^9, 3.576426751966554*^9}, 3.5764269207276506`*^9, 3.57642696596773*^9, 3.576427002284594*^9, 3.5764282717836237`*^9, 3.576466467686613*^9, 3.5764666543409405`*^9, 3.5764674091482663`*^9, 3.5764674952292175`*^9, 3.5764682174168863`*^9, { 3.5764686090711737`*^9, 3.576468636012421*^9}, 3.5764687726842613`*^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", "\[LessEqual]", "nb"}], ",", 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}, { 3.5764676737247314`*^9, 3.576467683724349*^9}}], Cell[BoxData[ RowBox[{"-", "3628.9032317701544`"}]], "Output", CellChangeTimes->{ 3.5764211943975925`*^9, 3.576422741031109*^9, 3.5764229263906345`*^9, 3.5764231391126084`*^9, 3.5764238285870194`*^9, 3.5764239982529173`*^9, 3.5764240589526243`*^9, 3.5764240913382807`*^9, 3.576424680286115*^9, 3.576425061909586*^9, 3.576425367966523*^9, 3.5764254524094715`*^9, 3.5764254895843368`*^9, {3.576426725399708*^9, 3.576426751982154*^9}, 3.576426920743251*^9, 3.57642696598333*^9, 3.576427002300194*^9, 3.576428272314025*^9, 3.576466468185814*^9, 3.5764666548401413`*^9, 3.576467409647467*^9, 3.5764674952292175`*^9, 3.576468217432486*^9, { 3.5764686093519745`*^9, 3.576468636028021*^9}, 3.5764687726998615`*^9}] }, Open ]], 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]", RowBox[{ RowBox[{"Vnn", "=", "Vn"}], ";"}]}]], "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, {3.5764096561174574`*^9, 3.5764096670530767`*^9}}], 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.2", "*", "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[{"[", "4", "]"}], "]"}], "^", "2"}]}], "+", RowBox[{"1", "/", RowBox[{ RowBox[{"rpi", "[", RowBox[{"[", "4", "]"}], "]"}], "^", "2"}]}], "+", RowBox[{"1", "/", RowBox[{ RowBox[{"rpo", "[", RowBox[{"[", "5", "]"}], "]"}], "^", "2"}]}], "+", RowBox[{"1", "/", RowBox[{ RowBox[{"rpi", "[", RowBox[{"[", "5", "]"}], "]"}], "^", "2"}]}], "+", RowBox[{"1", "/", RowBox[{ RowBox[{"rpo", "[", RowBox[{"[", "6", "]"}], "]"}], "^", "2"}]}], "+", RowBox[{"1", "/", RowBox[{ RowBox[{"rpi", "[", RowBox[{"[", "6", "]"}], "]"}], "^", "2"}]}]}], ")"}]}], " ", "+", RowBox[{"(", RowBox[{ RowBox[{"1", "/", RowBox[{ RowBox[{"rpo", "[", RowBox[{"[", "7", "]"}], "]"}], "^", "2"}]}], "+", RowBox[{"1", "/", RowBox[{ RowBox[{"rpi", "[", RowBox[{"[", "7", "]"}], "]"}], "^", "2"}]}]}], ")"}], "+", RowBox[{"1", "/", RowBox[{ RowBox[{"rpo", "[", RowBox[{"[", "3", "]"}], "]"}], "^", "2"}]}], "+", RowBox[{"1", "/", RowBox[{ RowBox[{"rpi", "[", RowBox[{"[", "3", "]"}], "]"}], "^", "2"}]}]}], ")"}]}]}], RowBox[{"(*", " ", RowBox[{"pi", " ", "kin", " ", "e", " ", "added"}], " ", "*)"}], "\[IndentingNewLine]", RowBox[{"Tlp", " ", "=", RowBox[{"2.25", "*", RowBox[{"(", RowBox[{ RowBox[{"2", "*", RowBox[{ RowBox[{"(", RowBox[{"hj", "+", "oj"}], ")"}], "/", RowBox[{"rlo", "^", "2"}]}]}], "+", RowBox[{"1", "/", RowBox[{"rln", "^", "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}, { 3.576405754238834*^9, 3.5764057825528836`*^9}, {3.5764280841776943`*^9, 3.5764281346905828`*^9}, {3.5764281737998514`*^9, 3.5764282448423767`*^9}, 3.5764677673092957`*^9, {3.5764679353371906`*^9, 3.576467952559621*^9}, { 3.5764679937592936`*^9, 3.576467997050899*^9}, {3.576468063117015*^9, 3.5764681503523684`*^9}, 3.576468201426858*^9}], Cell[BoxData["1192.451352787532`"], "Output", CellChangeTimes->{ 3.5764211944131927`*^9, 3.5764227411403093`*^9, 3.5764229264062347`*^9, 3.576423139128208*^9, 3.576423828602619*^9, 3.5764239982685175`*^9, 3.576424058968224*^9, 3.576424091353881*^9, 3.5764246803017154`*^9, 3.5764250619407854`*^9, 3.5764253679821234`*^9, 3.5764254524250717`*^9, 3.5764254895999365`*^9, {3.5764267254153075`*^9, 3.576426751997754*^9}, 3.576426920758851*^9, 3.57642696599893*^9, 3.576427002315794*^9, 3.5764282723296247`*^9, 3.576466468217014*^9, 3.5764666548713417`*^9, 3.576467409678667*^9, 3.5764674952448177`*^9, 3.576468217448086*^9, { 3.5764686093675747`*^9, 3.576468636028021*^9}, 3.5764687727154617`*^9}], Cell[BoxData["931.8967118509483`"], "Output", CellChangeTimes->{ 3.5764211944131927`*^9, 3.5764227411403093`*^9, 3.5764229264062347`*^9, 3.576423139128208*^9, 3.576423828602619*^9, 3.5764239982685175`*^9, 3.576424058968224*^9, 3.576424091353881*^9, 3.5764246803017154`*^9, 3.5764250619407854`*^9, 3.5764253679821234`*^9, 3.5764254524250717`*^9, 3.5764254895999365`*^9, {3.5764267254153075`*^9, 3.576426751997754*^9}, 3.576426920758851*^9, 3.57642696599893*^9, 3.576427002315794*^9, 3.5764282723296247`*^9, 3.576466468217014*^9, 3.5764666548713417`*^9, 3.576467409678667*^9, 3.5764674952448177`*^9, 3.576468217448086*^9, { 3.5764686093675747`*^9, 3.576468636028021*^9}, 3.5764687727310615`*^9}], Cell[BoxData[ RowBox[{"-", "3628.9032317701544`"}]], "Output", CellChangeTimes->{ 3.5764211944131927`*^9, 3.5764227411403093`*^9, 3.5764229264062347`*^9, 3.576423139128208*^9, 3.576423828602619*^9, 3.5764239982685175`*^9, 3.576424058968224*^9, 3.576424091353881*^9, 3.5764246803017154`*^9, 3.5764250619407854`*^9, 3.5764253679821234`*^9, 3.5764254524250717`*^9, 3.5764254895999365`*^9, {3.5764267254153075`*^9, 3.576426751997754*^9}, 3.576426920758851*^9, 3.57642696599893*^9, 3.576427002315794*^9, 3.5764282723296247`*^9, 3.576466468217014*^9, 3.5764666548713417`*^9, 3.576467409678667*^9, 3.5764674952448177`*^9, 3.576468217448086*^9, { 3.5764686093675747`*^9, 3.576468636028021*^9}, 3.5764687727310615`*^9}], Cell[BoxData["15.357350676161154`"], "Output", CellChangeTimes->{ 3.5764211944131927`*^9, 3.5764227411403093`*^9, 3.5764229264062347`*^9, 3.576423139128208*^9, 3.576423828602619*^9, 3.5764239982685175`*^9, 3.576424058968224*^9, 3.576424091353881*^9, 3.5764246803017154`*^9, 3.5764250619407854`*^9, 3.5764253679821234`*^9, 3.5764254524250717`*^9, 3.5764254895999365`*^9, {3.5764267254153075`*^9, 3.576426751997754*^9}, 3.576426920758851*^9, 3.57642696599893*^9, 3.576427002315794*^9, 3.5764282723296247`*^9, 3.576466468217014*^9, 3.5764666548713417`*^9, 3.576467409678667*^9, 3.5764674952448177`*^9, 3.576468217448086*^9, { 3.5764686093675747`*^9, 3.576468636028021*^9}, 3.5764687727310615`*^9}], Cell[BoxData["19.227038204079342`"], "Output", CellChangeTimes->{ 3.5764211944131927`*^9, 3.5764227411403093`*^9, 3.5764229264062347`*^9, 3.576423139128208*^9, 3.576423828602619*^9, 3.5764239982685175`*^9, 3.576424058968224*^9, 3.576424091353881*^9, 3.5764246803017154`*^9, 3.5764250619407854`*^9, 3.5764253679821234`*^9, 3.5764254524250717`*^9, 3.5764254895999365`*^9, {3.5764267254153075`*^9, 3.576426751997754*^9}, 3.576426920758851*^9, 3.57642696599893*^9, 3.576427002315794*^9, 3.5764282723296247`*^9, 3.576466468217014*^9, 3.5764666548713417`*^9, 3.576467409678667*^9, 3.5764674952448177`*^9, 3.576468217448086*^9, { 3.5764686093675747`*^9, 3.576468636028021*^9}, 3.5764687727310615`*^9}], Cell[BoxData[ RowBox[{"-", "1504.5551671316741`"}]], "Output", CellChangeTimes->{ 3.5764211944131927`*^9, 3.5764227411403093`*^9, 3.5764229264062347`*^9, 3.576423139128208*^9, 3.576423828602619*^9, 3.5764239982685175`*^9, 3.576424058968224*^9, 3.576424091353881*^9, 3.5764246803017154`*^9, 3.5764250619407854`*^9, 3.5764253679821234`*^9, 3.5764254524250717`*^9, 3.5764254895999365`*^9, {3.5764267254153075`*^9, 3.576426751997754*^9}, 3.576426920758851*^9, 3.57642696599893*^9, 3.576427002315794*^9, 3.5764282723296247`*^9, 3.576466468217014*^9, 3.5764666548713417`*^9, 3.576467409678667*^9, 3.5764674952448177`*^9, 3.576468217448086*^9, { 3.5764686093675747`*^9, 3.576468636028021*^9}, 3.5764687727310615`*^9}], Cell[BoxData["760.5494129366801`"], "Output", CellChangeTimes->{ 3.5764211944131927`*^9, 3.5764227411403093`*^9, 3.5764229264062347`*^9, 3.576423139128208*^9, 3.576423828602619*^9, 3.5764239982685175`*^9, 3.576424058968224*^9, 3.576424091353881*^9, 3.5764246803017154`*^9, 3.5764250619407854`*^9, 3.5764253679821234`*^9, 3.5764254524250717`*^9, 3.5764254895999365`*^9, {3.5764267254153075`*^9, 3.576426751997754*^9}, 3.576426920758851*^9, 3.57642696599893*^9, 3.576427002315794*^9, 3.5764282723296247`*^9, 3.576466468217014*^9, 3.5764666548713417`*^9, 3.576467409678667*^9, 3.5764674952448177`*^9, 3.576468217448086*^9, { 3.5764686093675747`*^9, 3.576468636028021*^9}, 3.5764687727310615`*^9}], Cell[BoxData["1.978247752926655`"], "Output", CellChangeTimes->{ 3.5764211944131927`*^9, 3.5764227411403093`*^9, 3.5764229264062347`*^9, 3.576423139128208*^9, 3.576423828602619*^9, 3.5764239982685175`*^9, 3.576424058968224*^9, 3.576424091353881*^9, 3.5764246803017154`*^9, 3.5764250619407854`*^9, 3.5764253679821234`*^9, 3.5764254524250717`*^9, 3.5764254895999365`*^9, {3.5764267254153075`*^9, 3.576426751997754*^9}, 3.576426920758851*^9, 3.57642696599893*^9, 3.576427002315794*^9, 3.5764282723296247`*^9, 3.576466468217014*^9, 3.5764666548713417`*^9, 3.576467409678667*^9, 3.5764674952448177`*^9, 3.576468217448086*^9, { 3.5764686093675747`*^9, 3.576468636028021*^9}, 3.5764687727310615`*^9}], Cell[BoxData[ RowBox[{"-", "744.005754194994`"}]], "Output", CellChangeTimes->{ 3.5764211944131927`*^9, 3.5764227411403093`*^9, 3.5764229264062347`*^9, 3.576423139128208*^9, 3.576423828602619*^9, 3.5764239982685175`*^9, 3.576424058968224*^9, 3.576424091353881*^9, 3.5764246803017154`*^9, 3.5764250619407854`*^9, 3.5764253679821234`*^9, 3.5764254524250717`*^9, 3.5764254895999365`*^9, {3.5764267254153075`*^9, 3.576426751997754*^9}, 3.576426920758851*^9, 3.57642696599893*^9, 3.576427002315794*^9, 3.5764282723296247`*^9, 3.576466468217014*^9, 3.5764666548713417`*^9, 3.576467409678667*^9, 3.5764674952448177`*^9, 3.576468217448086*^9, { 3.5764686093675747`*^9, 3.576468636028021*^9}, 3.5764687727310615`*^9}] }, Open ]] }, WindowSize->{902, 949}, WindowMargins->{{Automatic, 328}, {Automatic, 0}}, 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, 2316, 38, 52, "Input"], Cell[CellGroupData[{ Cell[2898, 62, 1519, 27, 52, "Input"], Cell[4420, 91, 4491, 79, 339, "Output"] }, Open ]], Cell[CellGroupData[{ Cell[8948, 175, 1007, 16, 31, "Input"], Cell[9958, 193, 1224, 18, 31, "Output"] }, Open ]], Cell[CellGroupData[{ Cell[11219, 216, 955, 14, 31, "Input"], Cell[12177, 232, 714, 10, 31, "Output"] }, Open ]], Cell[CellGroupData[{ Cell[12928, 247, 838, 19, 31, "Input"], Cell[13769, 268, 4233, 94, 416, "Output"] }, Open ]], Cell[CellGroupData[{ Cell[18039, 367, 997, 28, 72, "Input"], Cell[19039, 397, 17690, 262, 431, "Output"] }, Open ]], Cell[CellGroupData[{ Cell[36766, 664, 1477, 39, 92, "Input"], Cell[38246, 705, 1065, 17, 31, "Output"] }, Open ]], Cell[CellGroupData[{ Cell[39348, 727, 1125, 29, 92, "Input"], Cell[40476, 758, 730, 10, 31, "Output"] }, Open ]], Cell[CellGroupData[{ Cell[41243, 773, 1560, 29, 31, "Input"], Cell[42806, 804, 1232, 18, 31, "Output"] }, Open ]], Cell[44053, 825, 1592, 29, 31, "Input"], Cell[CellGroupData[{ Cell[45670, 858, 1234, 18, 31, "Input"], Cell[46907, 878, 2492, 64, 72, "Output"] }, Open ]], Cell[CellGroupData[{ Cell[49436, 947, 697, 14, 31, "Input"], Cell[50136, 963, 1026, 16, 31, "Output"] }, Open ]], Cell[51177, 982, 908, 24, 31, "Input"], Cell[CellGroupData[{ Cell[52110, 1010, 6690, 137, 172, "Input"], Cell[58803, 1149, 1133, 18, 52, "Output"], Cell[59939, 1169, 1139, 18, 52, "Output"] }, Open ]], Cell[CellGroupData[{ Cell[61115, 1192, 519, 12, 31, "Input"], Cell[61637, 1206, 1224, 18, 31, "Output"] }, Open ]], Cell[CellGroupData[{ Cell[62898, 1229, 1428, 39, 92, "Input"], Cell[64329, 1270, 1066, 17, 31, "Output"] }, Open ]], Cell[CellGroupData[{ Cell[65432, 1292, 827, 23, 92, "Input"], Cell[66262, 1317, 711, 10, 31, "Output"], Cell[66976, 1329, 711, 10, 31, "Output"] }, Open ]], Cell[67702, 1342, 1368, 19, 31, "Input"], Cell[CellGroupData[{ Cell[69095, 1365, 1669, 25, 31, "Input"], Cell[70767, 1392, 727, 10, 31, "Output"] }, Open ]], Cell[71509, 1405, 2301, 49, 112, "Input"], Cell[CellGroupData[{ Cell[73835, 1458, 1690, 24, 31, "Input"], Cell[75528, 1484, 18384, 439, 207, "Output"] }, Open ]], Cell[93927, 1926, 1442, 19, 30, "Text"], Cell[95372, 1947, 2177, 41, 52, "Input"], Cell[CellGroupData[{ Cell[97574, 1992, 4977, 90, 92, "Input"], Cell[102554, 2084, 6263, 107, 431, "Output"] }, Open ]], Cell[108832, 2194, 1027, 14, 31, "Input"], Cell[CellGroupData[{ Cell[109884, 2212, 3846, 83, 152, "Input"], Cell[113733, 2297, 1156, 18, 52, "Output"] }, Open ]], Cell[CellGroupData[{ Cell[114926, 2320, 2092, 46, 112, "Input"], Cell[117021, 2368, 8193, 133, 416, "Output"] }, Open ]], Cell[125229, 2504, 561, 12, 52, "Input"], Cell[CellGroupData[{ Cell[125815, 2520, 2143, 47, 92, "Input"], Cell[127961, 2569, 8136, 125, 416, "Output"] }, Open ]], Cell[CellGroupData[{ Cell[136134, 2699, 2558, 56, 112, "Input"], Cell[138695, 2757, 8130, 125, 416, "Output"] }, Open ]], Cell[CellGroupData[{ Cell[146862, 2887, 3673, 95, 172, "Input"], Cell[150538, 2984, 720, 10, 31, "Output"], Cell[151261, 2996, 719, 10, 31, "Output"], Cell[151983, 3008, 719, 10, 31, "Output"], Cell[152705, 3020, 719, 10, 31, "Output"], Cell[153427, 3032, 717, 10, 31, "Output"] }, Open ]], Cell[154159, 3045, 2075, 35, 72, "Input"], Cell[CellGroupData[{ Cell[156259, 3084, 3969, 94, 172, "Input"], Cell[160231, 3180, 822, 14, 31, "Output"], Cell[161056, 3196, 780, 12, 31, "Output"], Cell[161839, 3210, 941, 16, 31, "Output"], Cell[162783, 3228, 776, 12, 31, "Output"], Cell[163562, 3242, 1086, 18, 52, "Output"], Cell[164651, 3262, 780, 12, 31, "Output"] }, Open ]], Cell[CellGroupData[{ Cell[165468, 3279, 2672, 54, 132, "Input"], Cell[168143, 3335, 709, 10, 31, "Output"] }, Open ]], Cell[CellGroupData[{ Cell[168889, 3350, 739, 22, 92, "Input"], Cell[169631, 3374, 698, 10, 31, "Output"] }, Open ]], Cell[CellGroupData[{ Cell[170366, 3389, 2771, 55, 92, "Input"], Cell[173140, 3446, 808, 13, 31, "Output"] }, Open ]], Cell[173963, 3462, 4989, 137, 232, "Input"], Cell[CellGroupData[{ Cell[178977, 3603, 5267, 128, 252, "Input"], Cell[184247, 3733, 728, 11, 31, "Output"], Cell[184978, 3746, 711, 10, 31, "Output"], Cell[185692, 3758, 3403, 105, 416, "Output"] }, Open ]], Cell[CellGroupData[{ Cell[189132, 3868, 11929, 199, 232, "Input"], Cell[201064, 4069, 800, 13, 31, "Output"], Cell[201867, 4084, 1037, 20, 31, "Output"], Cell[202907, 4106, 709, 10, 31, "Output"], Cell[203619, 4118, 712, 10, 31, "Output"] }, Open ]], Cell[204346, 4131, 9439, 142, 112, "Input"], Cell[213788, 4275, 8269, 113, 49, "Text"], Cell[CellGroupData[{ Cell[222082, 4392, 4525, 99, 132, "Input"], Cell[226610, 4493, 707, 10, 31, "Output"] }, Open ]], Cell[227332, 4506, 228, 3, 31, "Input"], Cell[CellGroupData[{ Cell[227585, 4513, 3200, 70, 112, "Input"], Cell[230788, 4585, 4234, 94, 416, "Output"] }, Open ]], Cell[235037, 4682, 442, 7, 49, "Text"], Cell[235482, 4691, 1368, 20, 31, "Input"], Cell[236853, 4713, 2711, 54, 92, "Input"], Cell[CellGroupData[{ Cell[239589, 4771, 3447, 74, 132, "Input"], Cell[243039, 4847, 16886, 310, 177, "Output"] }, Open ]], Cell[259940, 5160, 2720, 38, 49, "Text"], Cell[CellGroupData[{ Cell[262685, 5202, 4884, 114, 332, "Input"], Cell[267572, 5318, 710, 10, 31, "Output"] }, Open ]], Cell[268297, 5331, 32056, 887, 1452, "Input"], Cell[CellGroupData[{ Cell[300378, 6222, 3302, 46, 31, "Input"], Cell[303683, 6270, 859, 14, 31, "Output"] }, Open ]], Cell[CellGroupData[{ Cell[304579, 6289, 4466, 82, 112, "Input"], Cell[309048, 6373, 729, 11, 31, "Output"] }, Open ]], Cell[309792, 6387, 2691, 37, 49, "Text"], Cell[CellGroupData[{ Cell[312508, 6428, 4108, 69, 112, "Input"], Cell[316619, 6499, 612, 9, 31, "Output"] }, Open ]], Cell[317246, 6511, 686, 16, 31, "Input"], Cell[CellGroupData[{ Cell[317957, 6531, 409, 6, 31, "Input"], Cell[318369, 6539, 17606, 317, 170, "Output"] }, Open ]], Cell[335990, 6859, 2894, 55, 132, "Input"], Cell[338887, 6916, 20368, 572, 1172, "Input"], Cell[CellGroupData[{ Cell[359280, 7492, 2276, 31, 52, "Input"], Cell[361559, 7525, 468, 8, 31, "Output"], Cell[362030, 7535, 468, 8, 31, "Output"] }, Open ]], Cell[362513, 7546, 3125, 59, 92, "Input"], Cell[CellGroupData[{ Cell[365663, 7609, 939, 17, 72, "Input"], Cell[366605, 7628, 2913, 63, 112, "Output"], Cell[369521, 7693, 698, 10, 31, "Output"], Cell[370222, 7705, 698, 10, 31, "Output"] }, Open ]], Cell[CellGroupData[{ Cell[370957, 7720, 862, 21, 72, "Input"], Cell[371822, 7743, 9862, 296, 247, "Output"] }, Open ]], Cell[381699, 8042, 3143, 85, 152, "Input"], Cell[384845, 8129, 10201, 233, 192, "Input"], Cell[395049, 8364, 6267, 98, 72, "Input"], Cell[401319, 8464, 10215, 234, 192, "Input"], Cell[411537, 8700, 5925, 93, 52, "Input"], Cell[417465, 8795, 15298, 297, 212, "Input"], Cell[CellGroupData[{ Cell[432788, 9096, 13651, 237, 232, "Input"], Cell[446442, 9335, 86283, 1533, 375, 16971, 396, "CachedBoxData", "BoxData", \ "Output"] }, Open ]], Cell[CellGroupData[{ Cell[532762, 10873, 12262, 190, 252, "Input"], Cell[545027, 11065, 32721, 576, 374, 10527, 212, "CachedBoxData", "BoxData", \ "Output"], Cell[577751, 11643, 76926, 1320, 375, 14018, 288, "CachedBoxData", "BoxData", \ "Output"], Cell[654680, 12965, 65745, 1145, 372, 13138, 282, "CachedBoxData", "BoxData", \ "Output"], Cell[720428, 14112, 58614, 1034, 375, 13161, 289, "CachedBoxData", "BoxData", \ "Output"] }, Open ]], Cell[779057, 15149, 9727, 131, 31, "Input"], Cell[CellGroupData[{ Cell[788809, 15284, 5287, 109, 152, "Input"], Cell[794099, 15395, 693, 10, 31, "Output"] }, Open ]], Cell[CellGroupData[{ Cell[794829, 15410, 2499, 47, 92, "Input"], Cell[797331, 15459, 710, 10, 31, "Output"] }, Open ]], Cell[798056, 15472, 1841, 29, 52, "Input"], Cell[CellGroupData[{ Cell[799922, 15505, 5781, 124, 212, "Input"], Cell[805706, 15631, 711, 10, 31, "Output"] }, Open ]], Cell[CellGroupData[{ Cell[806454, 15646, 7273, 144, 112, "Input"], Cell[813730, 15792, 2724, 76, 92, "Output"], Cell[816457, 15870, 1541, 23, 72, "Output"] }, Open ]], Cell[CellGroupData[{ Cell[818035, 15898, 4670, 80, 92, "Input"], Cell[822708, 15980, 720, 10, 31, "Output"] }, Open ]], Cell[CellGroupData[{ Cell[823465, 15995, 2695, 47, 112, "Input"], Cell[826163, 16044, 729, 11, 31, "Output"], Cell[826895, 16057, 709, 10, 31, "Output"], Cell[827607, 16069, 712, 10, 31, "Output"], Cell[828322, 16081, 709, 10, 31, "Output"] }, Open ]], Cell[829046, 16094, 2046, 29, 31, "Input"], Cell[CellGroupData[{ Cell[831117, 16127, 2997, 56, 112, "Input"], Cell[834117, 16185, 727, 10, 31, "Output"] }, Open ]], Cell[834859, 16198, 3263, 76, 92, "Input"], Cell[CellGroupData[{ Cell[838147, 16278, 4991, 102, 172, "Input"], Cell[843141, 16382, 720, 10, 31, "Output"] }, Open ]], Cell[CellGroupData[{ Cell[843898, 16397, 499, 15, 52, "Input"], Cell[844400, 16414, 750, 11, 31, "Output"] }, Open ]], Cell[845165, 16428, 1381, 21, 31, "Input"], Cell[CellGroupData[{ Cell[846571, 16453, 1747, 32, 52, "Input"], Cell[848321, 16487, 748, 11, 31, "Output"] }, Open ]], Cell[CellGroupData[{ Cell[849106, 16503, 1450, 43, 72, "Input"], Cell[850559, 16548, 741, 11, 31, "Output"] }, Open ]], Cell[851315, 16562, 2659, 53, 92, "Input"], Cell[CellGroupData[{ Cell[853999, 16619, 6441, 139, 312, "Input"], Cell[860443, 16760, 727, 10, 31, "Output"], Cell[861173, 16772, 727, 10, 31, "Output"], Cell[861903, 16784, 745, 11, 31, "Output"], Cell[862651, 16797, 728, 10, 31, "Output"], Cell[863382, 16809, 728, 10, 31, "Output"], Cell[864113, 16821, 745, 11, 31, "Output"], Cell[864861, 16834, 727, 10, 31, "Output"], Cell[865591, 16846, 727, 10, 31, "Output"], Cell[866321, 16858, 743, 11, 31, "Output"] }, Open ]] } ] *) (* End of internal cache information *)