(* 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[ 548198, 11272] NotebookOptionsPosition[ 540636, 11037] NotebookOutlinePosition[ 541137, 11057] CellTagsIndexPosition[ 541094, 11054] WindowFrame->Normal*) (* Beginning of Notebook Content *) Notebook[{ Cell[BoxData[ RowBox[{ RowBox[{"(*", " ", RowBox[{ RowBox[{ "Kimball", " ", "model", " ", "and", " ", "energy", " ", "derived", " ", "from", " ", "Orca", " ", "optimization"}], ",", " ", RowBox[{"ES", " ", "07", " ", "April", " ", "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.574069429922815*^9, 3.574069433479621*^9}, {3.5741328775223475`*^9, 3.57413289583678*^9}, {3.5741333767544246`*^9, 3.574133378220827*^9}, { 3.574341036190522*^9, 3.574341050277347*^9}}], Cell[CellGroupData[{ Cell[BoxData[{ RowBox[{ RowBox[{"t1", "=", RowBox[{"1.889726", "*", RowBox[{"{", RowBox[{ RowBox[{"{", RowBox[{ RowBox[{"-", "0.037839"}], ",", "0.048229", ",", RowBox[{"-", "0.520501"}]}], "}"}], ",", RowBox[{"{", RowBox[{ RowBox[{"-", "0.385716"}], ",", "1.478947", ",", RowBox[{"-", "0.169254"}]}], "}"}], ",", RowBox[{"{", RowBox[{ RowBox[{"-", "1.712592"}], ",", "1.926559", ",", RowBox[{"-", "0.146589"}]}], "}"}], ",", RowBox[{"{", RowBox[{ RowBox[{"-", "2.032182"}], ",", "3.272563", ",", "0.159247"}], "}"}], ",", RowBox[{"{", RowBox[{ RowBox[{"-", "3.328029"}], ",", "3.799751", ",", "0.143442"}], "}"}], ",", RowBox[{"{", RowBox[{ RowBox[{"-", "4.320293"}], ",", "2.968890", ",", "0.167729"}], "}"}], ",", RowBox[{"{", RowBox[{ RowBox[{"-", "5.583289"}], ",", "3.501694", ",", "0.033212"}], "}"}], ",", RowBox[{"{", RowBox[{ RowBox[{"-", "6.710448"}], ",", "2.592449", ",", "0.157787"}], "}"}], ",", RowBox[{"{", RowBox[{ RowBox[{"-", "8.044937"}], ",", "3.099564", ",", RowBox[{"-", "0.027910"}]}], "}"}], ",", RowBox[{"{", RowBox[{ RowBox[{"-", "8.225324"}], ",", "4.488175", ",", RowBox[{"-", "0.336400"}]}], "}"}], ",", RowBox[{"{", RowBox[{ RowBox[{"-", "7.155047"}], ",", "5.355681", ",", RowBox[{"-", "0.454908"}]}], "}"}], ",", RowBox[{"{", RowBox[{ RowBox[{"-", "5.821873"}], ",", "4.886626", ",", RowBox[{"-", "0.259411"}]}], "}"}], ",", RowBox[{"{", RowBox[{ RowBox[{"-", "4.807928"}], ",", "5.740227", ",", RowBox[{"-", "0.379239"}]}], "}"}], ",", RowBox[{"{", RowBox[{ RowBox[{"-", "3.950318"}], ",", "5.142526", ",", RowBox[{"-", "0.215014"}]}], "}"}], ",", RowBox[{"{", RowBox[{ RowBox[{"-", "7.291983"}], ",", "6.421524", ",", RowBox[{"-", "0.695862"}]}], "}"}], ",", RowBox[{"{", RowBox[{ RowBox[{"-", "9.252041"}], ",", "4.865202", ",", RowBox[{"-", "0.482921"}]}], "}"}], ",", RowBox[{"{", RowBox[{ RowBox[{"-", "9.153084"}], ",", "2.212922", ",", "0.097998"}], "}"}], ",", RowBox[{"{", RowBox[{ RowBox[{"-", "8.961118"}], ",", "0.868423", ",", "0.398428"}], "}"}], ",", RowBox[{"{", RowBox[{ RowBox[{"-", "7.644951"}], ",", "0.371161", ",", "0.582312"}], "}"}], ",", RowBox[{"{", RowBox[{ RowBox[{"-", "6.541972"}], ",", "1.214469", ",", "0.465264"}], "}"}], ",", RowBox[{"{", RowBox[{ RowBox[{"-", "5.521329"}], ",", "0.831831", ",", "0.614416"}], "}"}], ",", RowBox[{"{", RowBox[{ RowBox[{"-", "7.492382"}], ",", RowBox[{"-", "0.693985"}], ",", "0.825149"}], "}"}], ",", RowBox[{"{", RowBox[{ RowBox[{"-", "9.826105"}], ",", "0.191892", ",", "0.496160"}], "}"}], ",", RowBox[{"{", RowBox[{ RowBox[{"-", "10.170486"}], ",", "2.614299", ",", RowBox[{"-", "0.047397"}]}], "}"}], ",", RowBox[{"{", RowBox[{ RowBox[{"-", "0.987627"}], ",", "4.192952", ",", "0.471663"}], "}"}], ",", RowBox[{"{", RowBox[{ RowBox[{"-", "1.249503"}], ",", "5.480006", ",", "0.813937"}], "}"}], ",", RowBox[{"{", RowBox[{ RowBox[{"-", "2.230732"}], ",", "5.574941", ",", "0.881105"}], "}"}], ",", RowBox[{"{", RowBox[{"0.348877", ",", "3.749315", ",", "0.446229"}], "}"}], ",", RowBox[{"{", RowBox[{"0.638156", ",", "2.417910", ",", "0.129705"}], "}"}], ",", RowBox[{"{", RowBox[{"1.692381", ",", "2.090357", ",", "0.113220"}], "}"}], ",", RowBox[{"{", RowBox[{"1.144712", ",", "4.469593", ",", "0.691903"}], "}"}], ",", RowBox[{"{", RowBox[{ RowBox[{"-", "2.546172"}], ",", "1.249495", ",", RowBox[{"-", "0.389854"}]}], "}"}], ",", RowBox[{"{", RowBox[{"0.570101", ",", RowBox[{"-", "0.006697"}], ",", RowBox[{"-", "1.452911"}]}], "}"}], ",", RowBox[{"{", RowBox[{"0.561730", ",", RowBox[{"-", "0.435055"}], ",", "0.284793"}], "}"}], ",", RowBox[{"{", RowBox[{ RowBox[{"-", "0.950335"}], ",", RowBox[{"-", "0.565232"}], ",", RowBox[{"-", "0.676781"}]}], "}"}]}], "}"}]}]}], ";"}], "\n", RowBox[{"MatrixForm", "[", "t1", "]"}]}], "Input", CellChangeTimes->{ 3.57029749846047*^9, {3.570297893562364*^9, 3.5702979152152023`*^9}, { 3.5704535321223855`*^9, 3.570453555038826*^9}, {3.570558892227501*^9, 3.5705589112283344`*^9}, {3.5705589864360666`*^9, 3.5705590132681136`*^9}, {3.5705590525489826`*^9, 3.5705590747322216`*^9}, {3.570595322227199*^9, 3.5705953504632483`*^9}, 3.570855059411189*^9, 3.570856566545436*^9, 3.5709425310226765`*^9, 3.5730457924857635`*^9, 3.5738743957366743`*^9, {3.574067876130838*^9, 3.5740678963328733`*^9}, {3.5740679338997397`*^9, 3.5740679382521477`*^9}, 3.5740694160855904`*^9, {3.574335155023285*^9, 3.574335160249294*^9}}], Cell[BoxData[ TagBox[ RowBox[{"(", "\[NoBreak]", GridBox[{ { RowBox[{"-", "0.07150534211399999`"}], "0.091139595254`", RowBox[{"-", "0.983604272726`"}]}, { RowBox[{"-", "0.728897553816`"}], "2.794804598522`", RowBox[{"-", "0.31984368440399996`"}]}, { RowBox[{"-", "3.236329629792`"}], "3.6406686328339997`", RowBox[{"-", "0.277013044614`"}]}, { RowBox[{"-", "3.840267162132`"}], "6.184247387738`", "0.300933196322`"}, { RowBox[{"-", "6.2890629300539995`"}], "7.180488258226`", "0.27106607689199996`"}, { RowBox[{"-", "8.164170009718001`"}], "5.6103886241400005`", "0.316961852254`"}, { RowBox[{"-", "10.550886388814`"}], "6.617242195844001`", "0.062761579912`"}, { RowBox[{"-", "12.680908057248`"}], "4.899018278973999`", "0.29817419636200004`"}, { RowBox[{"-", "15.202726617261998`"}], "5.857326679464`", RowBox[{"-", "0.05274225266`"}]}, { RowBox[{"-", "15.543608621224001`"}], "8.48142099005`", RowBox[{"-", "0.6357038264`"}]}, { RowBox[{"-", "13.521078347122`"}], "10.120769633405999`", RowBox[{"-", "0.859651475208`"}]}, { RowBox[{"-", "11.001744776798`"}], "9.234384204476`", RowBox[{"-", "0.490215711386`"}]}, { RowBox[{"-", "9.085666547728001`"}], "10.847456207802`", RowBox[{"-", "0.716657798514`"}]}, { RowBox[{"-", "7.465018632868`"}], "9.717965087876001`", RowBox[{"-", "0.406317546164`"}]}, { RowBox[{"-", "13.779849866658001`"}], "12.134920862424`", RowBox[{"-", "1.3149885138119999`"}]}, { RowBox[{"-", "17.483822430766`"}], "9.193898714652`", RowBox[{"-", "0.912588369646`"}]}, { RowBox[{"-", "17.296820814984`"}], "4.181816239372`", "0.185189368548`"}, { RowBox[{"-", "16.934057673668`"}], "1.641081522098`", "0.752919750728`"}, { RowBox[{"-", "14.446862673426`"}], "0.701392591886`", "1.100410126512`"}, { RowBox[{"-", "12.362534579672001`"}], "2.295013645494`", "0.879221477664`"}, { RowBox[{"-", "10.433798965853999`"}], "1.571932668306`", "1.161077890016`"}, { RowBox[{"-", "14.158549067332`"}], RowBox[{"-", "1.31144149811`"}], "1.559305519174`"}, { RowBox[{"-", "18.56864609723`"}], "0.362623301592`", "0.9376064521599999`"}, { RowBox[{"-", "19.219431826836`"}], "4.940308792074`", RowBox[{"-", "0.08956734322200001`"}]}, { RowBox[{"-", "1.866344420202`"}], "7.923530411152`", "0.891313834338`"}, { RowBox[{"-", "2.361218306178`"}], "10.355709818356`", "1.538117911262`"}, { RowBox[{"-", "4.215472259432`"}], "10.535110956166`", "1.66504702723`"}, {"0.6592819377019999`", "7.08517803769`", "0.843250543254`"}, {"1.205939985256`", "4.56918739266`", "0.24510691082999997`"}, {"3.1981363776059997`", "3.950201972182`", "0.21395477772000002`"}, {"2.163192028912`", "8.446306101518`", "1.307507088578`"}, { RowBox[{"-", "4.811567428871999`"}], "2.36120318837`", RowBox[{"-", "0.736717240004`"}]}, {"1.077334682326`", RowBox[{"-", "0.012655495022`"}], RowBox[{"-", "2.745603692386`"}]}, {"1.06151578598`", RowBox[{"-", "0.82213474493`"}], "0.538180736718`"}, { RowBox[{"-", "1.79587275821`"}], RowBox[{"-", "1.068133606432`"}], RowBox[{"-", "1.278930652006`"}]} }, 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.5743352983095365`*^9, 3.5743387957925873`*^9, 3.57434007257683*^9, 3.5743410040544662`*^9, 3.574341088154214*^9, 3.574341165187149*^9, { 3.574341237430876*^9, 3.5743412651053247`*^9}, {3.574341297834182*^9, 3.5743413237926273`*^9}, 3.574341527809786*^9, 3.580058337942975*^9}] }, Open ]], Cell[BoxData[ RowBox[{ RowBox[{"u", "=", RowBox[{"{", 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.5738743957366743`*^9, 3.5740679502641687`*^9, 3.5740679862378316`*^9, 3.574068238587475*^9}], 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["35"], "Output", CellChangeTimes->{ 3.574335298325136*^9, 3.5743387958081875`*^9, 3.57434007259243*^9, 3.574341004070066*^9, 3.5743410881698136`*^9, 3.5743411652027493`*^9, { 3.574341237446476*^9, 3.5743412651209245`*^9}, {3.574341297849782*^9, 3.5743413238082275`*^9}, 3.5743415278409863`*^9, 3.580058337958976*^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[{"\<\"C\"\>", ",", "\<\"C\"\>", ",", "\<\"C\"\>", ",", "\<\"C\"\>", ",", "\<\"N\"\>", ",", "\<\"N\"\>", ",", "\<\"C\"\>", ",", "\<\"C\"\>", ",", "\<\"C\"\>", ",", "\<\"C\"\>", ",", "\<\"C\"\>", ",", "\<\"C\"\>", ",", "\<\"O\"\>", ",", "\<\"Z\"\>", ",", "\<\"Z\"\>", ",", "\<\"Z\"\>", ",", "\<\"C\"\>", ",", "\<\"C\"\>", ",", "\<\"C\"\>", ",", "\<\"C\"\>", ",", "\<\"Z\"\>", ",", "\<\"Z\"\>", ",", "\<\"Z\"\>", ",", "\<\"Z\"\>", ",", "\<\"C\"\>", ",", "\<\"O\"\>", ",", "\<\"Z\"\>", ",", "\<\"C\"\>", ",", "\<\"C\"\>", ",", "\<\"Z\"\>", ",", "\<\"Z\"\>", ",", "\<\"Z\"\>", ",", "\<\"Z\"\>", ",", "\<\"Z\"\>", ",", "\<\"Z\"\>"}], "}"}]], "Output", CellChangeTimes->{ 3.5743352983407364`*^9, 3.5743387958081875`*^9, 3.5743400726080303`*^9, 3.5743410040856657`*^9, 3.5743410881698136`*^9, 3.574341165218349*^9, { 3.574341237462076*^9, 3.574341265136524*^9}, {3.574341297865382*^9, 3.5743413238238277`*^9}, 3.5743415278409863`*^9, 3.580058337968976*^9}] }, Open ]], Cell[BoxData[ RowBox[{ RowBox[{"num1", "=", RowBox[{"Table", "[", RowBox[{"i", ",", RowBox[{"{", RowBox[{"i", ",", "1", ",", "n"}], "}"}]}], "]"}]}], ";"}]], "Input", CellChangeTimes->{{3.568807971988578*^9, 3.5688080897687845`*^9}, { 3.5688081769573374`*^9, 3.5688081865669546`*^9}, {3.568808274317109*^9, 3.5688082853151283`*^9}, {3.5688085365847692`*^9, 3.568808578330443*^9}, { 3.568808822704872*^9, 3.5688088761037655`*^9}, {3.56880890727262*^9, 3.568808937365073*^9}, {3.568809097608555*^9, 3.5688091594002633`*^9}, 3.5688092418308077`*^9, {3.5688092753552666`*^9, 3.568809302577315*^9}, { 3.5688096257786827`*^9, 3.568809703201618*^9}, {3.5688097456336927`*^9, 3.568809788268568*^9}, 3.568809850575077*^9, {3.568809946562046*^9, 3.5688099535664577`*^9}, {3.5688100003197403`*^9, 3.568810008556555*^9}, { 3.568810075371472*^9, 3.56881007981748*^9}, {3.568813431920168*^9, 3.568813533086345*^9}, {3.5688135960324554`*^9, 3.5688136045344706`*^9}, { 3.5688136407889347`*^9, 3.568813707494652*^9}, {3.568813812529636*^9, 3.5688138275524626`*^9}, {3.5688140611940727`*^9, 3.568814062738476*^9}, { 3.568814121113778*^9, 3.5688141965555105`*^9}, {3.568814326675339*^9, 3.568814331074547*^9}, 3.568814589473401*^9, {3.5688146762563534`*^9, 3.5688146829331646`*^9}, 3.5688147231032352`*^9, 3.5688216336189733`*^9, 3.5711137970191836`*^9}], Cell[BoxData[ RowBox[{ RowBox[{"um", "=", RowBox[{"Table", "[", RowBox[{ RowBox[{"{", RowBox[{ RowBox[{"un", "[", RowBox[{"[", "i", "]"}], "]"}], ",", RowBox[{"num1", "[", RowBox[{"[", "i", "]"}], "]"}]}], "}"}], ",", RowBox[{"{", RowBox[{"i", ",", "1", ",", "n"}], "}"}]}], "]"}]}], ";"}]], "Input", CellChangeTimes->{{3.568807971988578*^9, 3.5688080897687845`*^9}, { 3.5688081769573374`*^9, 3.5688081865669546`*^9}, {3.568808274317109*^9, 3.5688082853151283`*^9}, {3.5688085365847692`*^9, 3.568808578330443*^9}, { 3.568808822704872*^9, 3.5688088761037655`*^9}, {3.56880890727262*^9, 3.568808937365073*^9}, {3.568809097608555*^9, 3.5688091594002633`*^9}, 3.5688092418308077`*^9, {3.5688092753552666`*^9, 3.568809302577315*^9}, { 3.5688096257786827`*^9, 3.568809703201618*^9}, {3.5688097456336927`*^9, 3.568809788268568*^9}, 3.568809850575077*^9, {3.568809946562046*^9, 3.5688099535664577`*^9}, {3.5688100003197403`*^9, 3.568810008556555*^9}, { 3.568810075371472*^9, 3.56881007981748*^9}, {3.568813431920168*^9, 3.568813533086345*^9}, {3.5688135960324554`*^9, 3.5688136045344706`*^9}, { 3.5688136407889347`*^9, 3.568813707494652*^9}, {3.568813812529636*^9, 3.5688138275524626`*^9}, {3.5688140611940727`*^9, 3.568814062738476*^9}, { 3.568814121113778*^9, 3.5688141965555105`*^9}, {3.568814326675339*^9, 3.568814331074547*^9}, 3.568814589473401*^9, {3.5688146762563534`*^9, 3.5688146885023746`*^9}, 3.5688147203576307`*^9, 3.56882164316619*^9, 3.57111380070079*^9}], Cell[CellGroupData[{ Cell[BoxData[ RowBox[{"us", "=", RowBox[{"Sort", "[", "um", "]"}]}]], "Input", CellChangeTimes->{{3.568807971988578*^9, 3.5688080897687845`*^9}, { 3.5688081769573374`*^9, 3.5688081865669546`*^9}, {3.568808274317109*^9, 3.5688082853151283`*^9}, {3.5688085365847692`*^9, 3.568808578330443*^9}, { 3.568808822704872*^9, 3.5688088761037655`*^9}, {3.56880890727262*^9, 3.568808937365073*^9}, {3.568809097608555*^9, 3.5688091594002633`*^9}, 3.5688092418308077`*^9, {3.5688092753552666`*^9, 3.568809302577315*^9}, { 3.5688096257786827`*^9, 3.568809703201618*^9}, {3.5688097456336927`*^9, 3.568809788268568*^9}, 3.568809850575077*^9, {3.568809946562046*^9, 3.5688099535664577`*^9}, {3.5688100003197403`*^9, 3.568810008556555*^9}, { 3.568810075371472*^9, 3.56881007981748*^9}, {3.568813431920168*^9, 3.568813533086345*^9}, {3.5688135960324554`*^9, 3.5688136045344706`*^9}, { 3.5688136407889347`*^9, 3.568813707494652*^9}, {3.568813812529636*^9, 3.5688138275524626`*^9}, {3.5688140611940727`*^9, 3.568814062738476*^9}, { 3.568814121113778*^9, 3.5688141965555105`*^9}, {3.568814326675339*^9, 3.568814331074547*^9}, 3.568814589473401*^9, {3.5688146762563534`*^9, 3.5688146945707855`*^9}}], Cell[BoxData[ RowBox[{"{", RowBox[{ RowBox[{"{", RowBox[{"\<\"C\"\>", ",", "1"}], "}"}], ",", RowBox[{"{", RowBox[{"\<\"C\"\>", ",", "2"}], "}"}], ",", RowBox[{"{", RowBox[{"\<\"C\"\>", ",", "3"}], "}"}], ",", RowBox[{"{", RowBox[{"\<\"C\"\>", ",", "4"}], "}"}], ",", RowBox[{"{", RowBox[{"\<\"C\"\>", ",", "7"}], "}"}], ",", RowBox[{"{", RowBox[{"\<\"C\"\>", ",", "8"}], "}"}], ",", RowBox[{"{", RowBox[{"\<\"C\"\>", ",", "9"}], "}"}], ",", RowBox[{"{", RowBox[{"\<\"C\"\>", ",", "10"}], "}"}], ",", RowBox[{"{", RowBox[{"\<\"C\"\>", ",", "11"}], "}"}], ",", RowBox[{"{", RowBox[{"\<\"C\"\>", ",", "12"}], "}"}], ",", RowBox[{"{", RowBox[{"\<\"C\"\>", ",", "17"}], "}"}], ",", RowBox[{"{", RowBox[{"\<\"C\"\>", ",", "18"}], "}"}], ",", RowBox[{"{", RowBox[{"\<\"C\"\>", ",", "19"}], "}"}], ",", RowBox[{"{", RowBox[{"\<\"C\"\>", ",", "20"}], "}"}], ",", RowBox[{"{", RowBox[{"\<\"C\"\>", ",", "25"}], "}"}], ",", RowBox[{"{", RowBox[{"\<\"C\"\>", ",", "28"}], "}"}], ",", RowBox[{"{", RowBox[{"\<\"C\"\>", ",", "29"}], "}"}], ",", RowBox[{"{", RowBox[{"\<\"N\"\>", ",", "5"}], "}"}], ",", RowBox[{"{", RowBox[{"\<\"N\"\>", ",", "6"}], "}"}], ",", RowBox[{"{", RowBox[{"\<\"O\"\>", ",", "13"}], "}"}], ",", RowBox[{"{", RowBox[{"\<\"O\"\>", ",", "26"}], "}"}], ",", RowBox[{"{", RowBox[{"\<\"Z\"\>", ",", "14"}], "}"}], ",", RowBox[{"{", RowBox[{"\<\"Z\"\>", ",", "15"}], "}"}], ",", RowBox[{"{", RowBox[{"\<\"Z\"\>", ",", "16"}], "}"}], ",", RowBox[{"{", RowBox[{"\<\"Z\"\>", ",", "21"}], "}"}], ",", RowBox[{"{", RowBox[{"\<\"Z\"\>", ",", "22"}], "}"}], ",", RowBox[{"{", RowBox[{"\<\"Z\"\>", ",", "23"}], "}"}], ",", RowBox[{"{", RowBox[{"\<\"Z\"\>", ",", "24"}], "}"}], ",", RowBox[{"{", RowBox[{"\<\"Z\"\>", ",", "27"}], "}"}], ",", RowBox[{"{", RowBox[{"\<\"Z\"\>", ",", "30"}], "}"}], ",", RowBox[{"{", RowBox[{"\<\"Z\"\>", ",", "31"}], "}"}], ",", RowBox[{"{", RowBox[{"\<\"Z\"\>", ",", "32"}], "}"}], ",", RowBox[{"{", RowBox[{"\<\"Z\"\>", ",", "33"}], "}"}], ",", RowBox[{"{", RowBox[{"\<\"Z\"\>", ",", "34"}], "}"}], ",", RowBox[{"{", RowBox[{"\<\"Z\"\>", ",", "35"}], "}"}]}], "}"}]], "Output", CellChangeTimes->{ 3.5743352983563366`*^9, 3.5743387958237877`*^9, 3.57434007262363*^9, 3.574341004116866*^9, 3.5743410882010136`*^9, 3.574341165233949*^9, { 3.574341237477676*^9, 3.5743412651521244`*^9}, {3.574341297880982*^9, 3.574341323839428*^9}, 3.574341527856586*^9, 3.580058337986977*^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[{ "1", ",", "2", ",", "3", ",", "4", ",", "7", ",", "8", ",", "9", ",", "10", ",", "11", ",", "12", ",", "17", ",", "18", ",", "19", ",", "20", ",", "25", ",", "28", ",", "29", ",", "5", ",", "6", ",", "13", ",", "26", ",", "14", ",", "15", ",", "16", ",", "21", ",", "22", ",", "23", ",", "24", ",", "27", ",", "30", ",", "31", ",", "32", ",", "33", ",", "34", ",", "35"}], "}"}]], "Output", CellChangeTimes->{ 3.5743352983563366`*^9, 3.5743387958393874`*^9, 3.57434007263923*^9, 3.5743410041324663`*^9, 3.574341088216614*^9, 3.574341165249549*^9, { 3.5743412374932756`*^9, 3.5743412651677246`*^9}, {3.5743412978965816`*^9, 3.5743413238550277`*^9}, 3.5743415278721857`*^9, 3.580058337996978*^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]", "\"\\""}], ",", "0.255", ",", RowBox[{"If", "[", RowBox[{ RowBox[{ RowBox[{"us", "[", RowBox[{"[", RowBox[{"i", ",", "1"}], "]"}], "]"}], "\[Equal]", "\"\\""}], ",", "0.6", ",", RowBox[{"If", "[", RowBox[{ RowBox[{ RowBox[{"us", "[", RowBox[{"[", RowBox[{"i", ",", "1"}], "]"}], "]"}], "\[Equal]", "\"\\""}], ",", "0.22522", ",", RowBox[{"If", "[", RowBox[{ RowBox[{ RowBox[{"us", "[", RowBox[{"[", RowBox[{"i", ",", "1"}], "]"}], "]"}], "\[Equal]", "\"\\""}], ",", "0.178", ",", RowBox[{"If", "[", RowBox[{ RowBox[{ RowBox[{"us", "[", RowBox[{"[", RowBox[{"i", ",", "1"}], "]"}], "]"}], "\[Equal]", "\"\\""}], ",", "0.4507"}], "]"}]}], "]"}]}], "]"}]}], "]"}]}], "]"}], ",", 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.574340997689655*^9}], Cell[BoxData[ RowBox[{"{", RowBox[{ "0.255`", ",", "0.255`", ",", "0.255`", ",", "0.255`", ",", "0.255`", ",", "0.255`", ",", "0.255`", ",", "0.255`", ",", "0.255`", ",", "0.255`", ",", "0.255`", ",", "0.255`", ",", "0.255`", ",", "0.255`", ",", "0.255`", ",", "0.255`", ",", "0.255`", ",", "0.24`", ",", "0.24`", ",", "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`", ",", "0.12`", ",", "0.12`"}], "}"}]], "Output", CellChangeTimes->{ 3.5743352983719363`*^9, 3.5743387958549876`*^9, 3.57434007263923*^9, 3.574341004148066*^9, 3.574341088232214*^9, 3.574341165265149*^9, { 3.574341237508876*^9, 3.574341265183325*^9}, {3.574341297912182*^9, 3.5743413238706274`*^9}, 3.574341527887786*^9, 3.5800583380109787`*^9}], Cell[BoxData[ RowBox[{"{", RowBox[{ "0.255`", ",", "0.255`", ",", "0.255`", ",", "0.255`", ",", "0.255`", ",", "0.255`", ",", "0.255`", ",", "0.255`", ",", "0.255`", ",", "0.255`", ",", "0.255`", ",", "0.255`", ",", "0.255`", ",", "0.255`", ",", "0.255`", ",", "0.255`", ",", "0.255`", ",", "0.22522`", ",", "0.22522`", ",", "0.178`", ",", "0.178`", ",", "0.6`", ",", "0.6`", ",", "0.6`", ",", "0.6`", ",", "0.6`", ",", "0.6`", ",", "0.6`", ",", "0.6`", ",", "0.6`", ",", "0.6`", ",", "0.6`", ",", "0.6`", ",", "0.6`", ",", "0.6`"}], "}"}]], "Output", CellChangeTimes->{ 3.5743352983719363`*^9, 3.5743387958549876`*^9, 3.57434007263923*^9, 3.574341004148066*^9, 3.574341088232214*^9, 3.574341165265149*^9, { 3.574341237508876*^9, 3.574341265183325*^9}, {3.574341297912182*^9, 3.5743413238706274`*^9}, 3.574341527887786*^9, 3.5800583380119786`*^9}] }, Open ]], Cell[CellGroupData[{ Cell[BoxData[ RowBox[{"u", "=", RowBox[{"Table", "[", RowBox[{ RowBox[{"us", "[", RowBox[{"[", RowBox[{"i", ",", "1"}], "]"}], "]"}], ",", RowBox[{"{", RowBox[{"i", ",", "1", ",", "n"}], "}"}]}], "]"}]}]], "Input", CellChangeTimes->{{3.5679472243083935`*^9, 3.567947394894693*^9}, { 3.567947453425996*^9, 3.567947471241227*^9}, {3.5679475415037503`*^9, 3.5679475448733563`*^9}, {3.5679488138107853`*^9, 3.567948820877598*^9}, { 3.568820296244224*^9, 3.5688203477867146`*^9}}], Cell[BoxData[ RowBox[{"{", RowBox[{"\<\"C\"\>", ",", "\<\"C\"\>", ",", "\<\"C\"\>", ",", "\<\"C\"\>", ",", "\<\"C\"\>", ",", "\<\"C\"\>", ",", "\<\"C\"\>", ",", "\<\"C\"\>", ",", "\<\"C\"\>", ",", "\<\"C\"\>", ",", "\<\"C\"\>", ",", "\<\"C\"\>", ",", "\<\"C\"\>", ",", "\<\"C\"\>", ",", "\<\"C\"\>", ",", "\<\"C\"\>", ",", "\<\"C\"\>", ",", "\<\"N\"\>", ",", "\<\"N\"\>", ",", "\<\"O\"\>", ",", "\<\"O\"\>", ",", "\<\"H\"\>", ",", "\<\"H\"\>", ",", "\<\"H\"\>", ",", "\<\"H\"\>", ",", "\<\"H\"\>", ",", "\<\"H\"\>", ",", "\<\"H\"\>", ",", "\<\"H\"\>", ",", "\<\"H\"\>", ",", "\<\"H\"\>", ",", "\<\"H\"\>", ",", "\<\"H\"\>", ",", "\<\"H\"\>", ",", "\<\"H\"\>"}], "}"}]], "Output", CellChangeTimes->{ 3.574335298387536*^9, 3.5743387958705873`*^9, 3.57434007265483*^9, 3.5743410041636662`*^9, 3.574341088247814*^9, 3.5743411652807493`*^9, { 3.574341237524476*^9, 3.5743412651989245`*^9}, {3.574341297927782*^9, 3.5743413238862276`*^9}, 3.574341527903386*^9, 3.5800583380219793`*^9}] }, Open ]], Cell[CellGroupData[{ Cell[BoxData[ RowBox[{"cn", "=", RowBox[{"Table", "[", RowBox[{ RowBox[{"If", "[", RowBox[{ RowBox[{ RowBox[{"u", "[", RowBox[{"[", "i", "]"}], "]"}], "\[Equal]", "\"\\""}], ",", "6.0", ",", RowBox[{"If", "[", RowBox[{ RowBox[{ RowBox[{"u", "[", RowBox[{"[", "i", "]"}], "]"}], "\[Equal]", "\"\\""}], ",", "1.0", ",", RowBox[{"If", "[", RowBox[{ RowBox[{ RowBox[{"u", "[", RowBox[{"[", "i", "]"}], "]"}], "\[Equal]", "\"\\""}], ",", "7.0", ",", RowBox[{"If", "[", RowBox[{ RowBox[{ RowBox[{"u", "[", RowBox[{"[", "i", "]"}], "]"}], "\[Equal]", "\"\\""}], ",", "8.0", ",", RowBox[{"If", "[", RowBox[{ RowBox[{ RowBox[{"u", "[", RowBox[{"[", "i", "]"}], "]"}], "\[Equal]", "\"\\""}], ",", "17.0"}], "]"}]}], "]"}]}], "]"}]}], "]"}]}], "]"}], ",", RowBox[{"{", RowBox[{"i", ",", "1", ",", "n"}], "}"}]}], "]"}]}]], "Input", CellChangeTimes->{{3.5688224161787477`*^9, 3.5688224173799496`*^9}, { 3.5688224905908785`*^9, 3.568822500434496*^9}, 3.5692358293003073`*^9, 3.5692358676919746`*^9, {3.569344570581538*^9, 3.5693446110324097`*^9}}], Cell[BoxData[ RowBox[{"{", RowBox[{ "6.`", ",", "6.`", ",", "6.`", ",", "6.`", ",", "6.`", ",", "6.`", ",", "6.`", ",", "6.`", ",", "6.`", ",", "6.`", ",", "6.`", ",", "6.`", ",", "6.`", ",", "6.`", ",", "6.`", ",", "6.`", ",", "6.`", ",", "7.`", ",", "7.`", ",", "8.`", ",", "8.`", ",", "1.`", ",", "1.`", ",", "1.`", ",", "1.`", ",", "1.`", ",", "1.`", ",", "1.`", ",", "1.`", ",", "1.`", ",", "1.`", ",", "1.`", ",", "1.`", ",", "1.`", ",", "1.`"}], "}"}]], "Output", CellChangeTimes->{ 3.5743352984031363`*^9, 3.5743387958861876`*^9, 3.57434007267043*^9, 3.574341004179266*^9, 3.574341088263414*^9, 3.5743411652807493`*^9, { 3.5743412375400763`*^9, 3.5743412652145247`*^9}, {3.5743412979433823`*^9, 3.574341323901828*^9}, 3.5743415279189863`*^9, 3.58005833803298*^9}] }, Open ]], Cell[CellGroupData[{ Cell[BoxData[{ RowBox[{ RowBox[{"bc", "=", "0"}], ";"}], "\[IndentingNewLine]", RowBox[{ RowBox[{"For", "[", RowBox[{ RowBox[{"i", "=", "1"}], ",", " ", RowBox[{"i", "<", RowBox[{"n", "+", "1"}]}], ",", RowBox[{"i", "++"}], ",", RowBox[{"If", "[", RowBox[{ RowBox[{ RowBox[{"u", "[", RowBox[{"[", "i", "]"}], "]"}], "\[NotEqual]", "\"\\""}], ",", " ", RowBox[{"bc", "=", RowBox[{"bc", "+", "1"}]}]}], "]"}]}], "]"}], ";"}], "\[IndentingNewLine]", "bc", "\[IndentingNewLine]", RowBox[{"bh", "=", RowBox[{"n", "-", "bc"}]}]}], "Input", CellChangeTimes->{{3.5688281182607965`*^9, 3.5688281434392405`*^9}, { 3.5691376772313223`*^9, 3.569137733516221*^9}, {3.569234042049968*^9, 3.569234051519184*^9}, 3.5692372799312553`*^9}], Cell[BoxData["21"], "Output", CellChangeTimes->{ 3.5743352984187365`*^9, 3.5743387959017878`*^9, 3.57434007268603*^9, 3.574341004194866*^9, 3.574341088263414*^9, 3.5743411652963495`*^9, { 3.574341237555676*^9, 3.5743412652301245`*^9}, {3.5743412979589825`*^9, 3.574341323917428*^9}, 3.574341527934586*^9, 3.5800583380459805`*^9}], Cell[BoxData["14"], "Output", CellChangeTimes->{ 3.5743352984187365`*^9, 3.5743387959017878`*^9, 3.57434007268603*^9, 3.574341004194866*^9, 3.574341088263414*^9, 3.5743411652963495`*^9, { 3.574341237555676*^9, 3.5743412652301245`*^9}, {3.5743412979589825`*^9, 3.574341323917428*^9}, 3.574341527934586*^9, 3.580058338047981*^9}] }, Open ]], Cell[BoxData[{ RowBox[{ RowBox[{"DeleteFile", "[", " ", "\"\\"", "]"}], ";"}], "\[IndentingNewLine]", RowBox[{"For", "[", RowBox[{ RowBox[{"i", "=", "1"}], ",", RowBox[{"i", "<", RowBox[{"n", "+", "1"}]}], ",", RowBox[{"i", "++"}], ",", "\[IndentingNewLine]", RowBox[{ RowBox[{"{", RowBox[{ RowBox[{"u", "[", RowBox[{"[", "i", "]"}], "]"}], ",", RowBox[{"Extract", "[", RowBox[{"t1", ",", RowBox[{"{", "i", "}"}]}], "]"}]}], "}"}], ">>>", " ", "\"\\""}]}], "]"}]}], "Input", CellChangeTimes->{{3.567869377256353*^9, 3.5678694101568108`*^9}, { 3.5678695244894114`*^9, 3.56786953511303*^9}, 3.56786988243204*^9, 3.5678699252853155`*^9, {3.567870069179968*^9, 3.5678700766835814`*^9}, { 3.5678703216664114`*^9, 3.567870325738019*^9}, 3.5679271251072817`*^9, { 3.567942840466694*^9, 3.567942854381918*^9}, {3.567942932272855*^9, 3.567942950509287*^9}, 3.5679430681802936`*^9, {3.568278272060727*^9, 3.56827827391713*^9}, 3.5688732159559383`*^9, 3.568910867631465*^9, 3.5689997098549547`*^9, 3.5689998170427427`*^9, 3.5689998869620657`*^9, { 3.569059200815255*^9, 3.5690592031552596`*^9}, 3.5691460426137285`*^9, 3.569237204520723*^9, 3.569237465836782*^9, 3.56923802264856*^9, 3.5693403424181123`*^9, 3.569340450198702*^9, 3.569340738019207*^9, 3.569340852851009*^9, {3.5693411655067577`*^9, 3.5693411655067577`*^9}, 3.5693414976001415`*^9, {3.5693416978420925`*^9, 3.569341705314506*^9}, 3.569342614421703*^9, 3.5693435671777763`*^9, 3.569343662727944*^9, 3.5693437636289215`*^9, 3.5693440709750605`*^9, 3.5693442662562037`*^9, { 3.5702975520309644`*^9, 3.570297552764166*^9}, {3.5705591717487917`*^9, 3.5705591791432047`*^9}}], Cell[CellGroupData[{ Cell[BoxData[{ RowBox[{ RowBox[{"t", "=", RowBox[{"Table", "[", RowBox[{ RowBox[{"t1", "[", RowBox[{"[", RowBox[{"num", "[", RowBox[{"[", "i", "]"}], "]"}], "]"}], "]"}], ",", RowBox[{"{", RowBox[{"i", ",", "1", ",", "n"}], "}"}]}], "]"}]}], ";"}], "\[IndentingNewLine]", RowBox[{ RowBox[{"Plot1o", "=", RowBox[{"Table", "[", RowBox[{ RowBox[{"Graphics3D", "[", RowBox[{"{", RowBox[{ RowBox[{"Opacity", "[", "0.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"}], "}"}]}], "]"}]}], ";"}], "\[IndentingNewLine]", RowBox[{"Show", "[", RowBox[{"Plot1o", ",", "Plot2", ",", RowBox[{"{", RowBox[{ RowBox[{"AspectRatio", "\[Rule]", "Automatic"}], ",", RowBox[{"Boxed", "\[Rule]", "True"}], ",", " ", RowBox[{"Axes", "\[Rule]", "Automatic"}], ",", RowBox[{"AxesLabel", "\[Rule]", RowBox[{"{", RowBox[{"xl", ",", "yl", ",", "zl"}], "}"}]}], ",", RowBox[{"SphericalRegion", "\[Rule]", "True"}]}], "}"}]}], "]"}]}], "Input", CellChangeTimes->{{3.567869377256353*^9, 3.567869394073182*^9}, { 3.5678694248832364`*^9, 3.5678694526200852`*^9}, {3.5678694891241493`*^9, 3.5678694955045605`*^9}, {3.567869596046737*^9, 3.567869602645549*^9}, 3.56786971175214*^9, {3.5678697908910794`*^9, 3.567869798800293*^9}, { 3.5679434548425727`*^9, 3.5679434621121855`*^9}, 3.568011875875622*^9, 3.56811435956207*^9, {3.5682782821071444`*^9, 3.5682782839479475`*^9}, { 3.5688205455482616`*^9, 3.5688206262784038`*^9}, 3.5688208026055136`*^9, 3.5688732159559383`*^9, 3.568910867631465*^9, {3.5689830694736805`*^9, 3.568983072687286*^9}, {3.5725833074418383`*^9, 3.5725833223398647`*^9}, { 3.572583642982828*^9, 3.572583671421678*^9}, {3.572584036290719*^9, 3.5725840766323895`*^9}, {3.572584986320788*^9, 3.572585000719613*^9}, { 3.572585104865396*^9, 3.5725851158790154`*^9}, 3.5726667135591345`*^9, { 3.5727958552609696`*^9, 3.5727958810478153`*^9}, {3.5727959717619743`*^9, 3.5727959736963778`*^9}, {3.572796004615632*^9, 3.572796064270137*^9}}], Cell[BoxData[ Graphics3DBox[{ {RGBColor[0.4, 0.2666666666666667, 0.13333333333333336`], Opacity[0.8], SphereBox[{-0.07150534211399999, 0.091139595254, -0.983604272726}, 0.255]}, {RGBColor[0.4, 0.2666666666666667, 0.13333333333333336`], Opacity[0.8], SphereBox[{-0.728897553816, 2.794804598522, -0.31984368440399996`}, 0.255]}, {RGBColor[0.4, 0.2666666666666667, 0.13333333333333336`], Opacity[0.8], SphereBox[{-3.236329629792, 3.6406686328339997`, -0.277013044614}, 0.255]}, {RGBColor[0.4, 0.2666666666666667, 0.13333333333333336`], Opacity[0.8], SphereBox[{-3.840267162132, 6.184247387738, 0.300933196322}, 0.255]}, {RGBColor[0.4, 0.2666666666666667, 0.13333333333333336`], Opacity[0.8], SphereBox[{-10.550886388814, 6.617242195844001, 0.062761579912}, 0.255]}, {RGBColor[0.4, 0.2666666666666667, 0.13333333333333336`], Opacity[0.8], SphereBox[{-12.680908057248, 4.899018278973999, 0.29817419636200004`}, 0.255]}, {RGBColor[0.4, 0.2666666666666667, 0.13333333333333336`], Opacity[0.8], SphereBox[{-15.202726617261998`, 5.857326679464, -0.05274225266}, 0.255]}, {RGBColor[0.4, 0.2666666666666667, 0.13333333333333336`], Opacity[0.8], SphereBox[{-15.543608621224001`, 8.48142099005, -0.6357038264}, 0.255]}, {RGBColor[0.4, 0.2666666666666667, 0.13333333333333336`], Opacity[0.8], SphereBox[{-13.521078347122, 10.120769633405999`, -0.859651475208}, 0.255]}, {RGBColor[0.4, 0.2666666666666667, 0.13333333333333336`], Opacity[0.8], SphereBox[{-11.001744776798, 9.234384204476, -0.490215711386}, 0.255]}, {RGBColor[0.4, 0.2666666666666667, 0.13333333333333336`], Opacity[0.8], SphereBox[{-17.296820814984, 4.181816239372, 0.185189368548}, 0.255]}, {RGBColor[0.4, 0.2666666666666667, 0.13333333333333336`], Opacity[0.8], SphereBox[{-16.934057673668, 1.641081522098, 0.752919750728}, 0.255]}, {RGBColor[0.4, 0.2666666666666667, 0.13333333333333336`], Opacity[0.8], SphereBox[{-14.446862673426, 0.701392591886, 1.100410126512}, 0.255]}, {RGBColor[0.4, 0.2666666666666667, 0.13333333333333336`], Opacity[0.8], SphereBox[{-12.362534579672001`, 2.295013645494, 0.879221477664}, 0.255]}, {RGBColor[0.4, 0.2666666666666667, 0.13333333333333336`], Opacity[0.8], SphereBox[{-1.866344420202, 7.923530411152, 0.891313834338}, 0.255]}, {RGBColor[0.4, 0.2666666666666667, 0.13333333333333336`], Opacity[0.8], SphereBox[{0.6592819377019999, 7.08517803769, 0.843250543254}, 0.255]}, {RGBColor[0.4, 0.2666666666666667, 0.13333333333333336`], Opacity[0.8], SphereBox[{1.205939985256, 4.56918739266, 0.24510691082999997`}, 0.255]}, {RGBColor[ NCache[ Rational[1, 3], 0.3333333333333333], NCache[ Rational[1, 3], 0.3333333333333333], 1], Opacity[0.8], SphereBox[{-6.2890629300539995`, 7.180488258226, 0.27106607689199996`}, 0.24]}, {RGBColor[ NCache[ Rational[1, 3], 0.3333333333333333], NCache[ Rational[1, 3], 0.3333333333333333], 1], Opacity[0.8], SphereBox[{-8.164170009718001, 5.6103886241400005`, 0.316961852254}, 0.24]}, {RGBColor[1, NCache[ Rational[1, 3], 0.3333333333333333], NCache[ Rational[1, 3], 0.3333333333333333]], Opacity[0.8], SphereBox[{-9.085666547728001, 10.847456207802, -0.716657798514}, 0.178]}, {RGBColor[1, NCache[ Rational[1, 3], 0.3333333333333333], NCache[ Rational[1, 3], 0.3333333333333333]], Opacity[0.8], SphereBox[{-2.361218306178, 10.355709818356, 1.538117911262}, 0.178]}, {RGBColor[1, 1, 1], Opacity[0.8], SphereBox[{-7.465018632868, 9.717965087876001, -0.406317546164}, 0.12]}, {RGBColor[1, 1, 1], Opacity[0.8], SphereBox[{-13.779849866658001`, 12.134920862424, -1.3149885138119999`}, 0.12]}, {RGBColor[1, 1, 1], Opacity[0.8], SphereBox[{-17.483822430766, 9.193898714652, -0.912588369646}, 0.12]}, {RGBColor[1, 1, 1], Opacity[0.8], SphereBox[{-10.433798965853999`, 1.571932668306, 1.161077890016}, 0.12]}, {RGBColor[1, 1, 1], Opacity[0.8], SphereBox[{-14.158549067332, -1.31144149811, 1.559305519174}, 0.12]}, {RGBColor[1, 1, 1], Opacity[0.8], SphereBox[{-18.56864609723, 0.362623301592, 0.9376064521599999}, 0.12]}, {RGBColor[1, 1, 1], Opacity[0.8], SphereBox[{-19.219431826836, 4.940308792074, -0.08956734322200001}, 0.12]}, {RGBColor[1, 1, 1], Opacity[0.8], SphereBox[{-4.215472259432, 10.535110956166, 1.66504702723}, 0.12]}, {RGBColor[1, 1, 1], Opacity[0.8], SphereBox[{3.1981363776059997`, 3.950201972182, 0.21395477772000002`}, 0.12]}, {RGBColor[1, 1, 1], Opacity[0.8], SphereBox[{2.163192028912, 8.446306101518, 1.307507088578}, 0.12]}, {RGBColor[1, 1, 1], Opacity[0.8], SphereBox[{-4.811567428871999, 2.36120318837, -0.736717240004}, 0.12]}, {RGBColor[1, 1, 1], Opacity[0.8], SphereBox[{1.077334682326, -0.012655495022, -2.745603692386}, 0.12]}, {RGBColor[1, 1, 1], Opacity[0.8], SphereBox[{1.06151578598, -0.82213474493, 0.538180736718}, 0.12]}, {RGBColor[1, 1, 1], Opacity[0.8], SphereBox[{-1.79587275821, -1.068133606432, -1.278930652006}, 0.12]}, Text3DBox["1", {-0.6715053421139999, 0.091139595254, -0.983604272726}, {1, 0}], Text3DBox["2", {-1.328897553816, 2.794804598522, -0.31984368440399996`}, {1, 0}], Text3DBox["3", {-3.836329629792, 3.6406686328339997`, -0.277013044614}, {1, 0}], Text3DBox["4", {-4.440267162132, 6.184247387738, 0.300933196322}, { 1, 0}], Text3DBox["5", {-11.150886388814, 6.617242195844001, 0.062761579912}, {1, 0}], Text3DBox["6", {-13.280908057248, 4.899018278973999, 0.29817419636200004`}, {1, 0}], Text3DBox["7", {-15.802726617261998`, 5.857326679464, -0.05274225266}, {1, 0}], Text3DBox["8", {-16.143608621224, 8.48142099005, -0.6357038264}, {1, 0}], Text3DBox["9", {-14.121078347122, 10.120769633405999`, -0.859651475208}, {1, 0}], Text3DBox["10", {-11.601744776798, 9.234384204476, -0.490215711386}, {1, 0}], Text3DBox["11", {-17.896820814984, 4.181816239372, 0.185189368548}, { 1, 0}], Text3DBox["12", {-17.534057673668002`, 1.641081522098, 0.752919750728}, {1, 0}], Text3DBox["13", {-15.046862673426, 0.701392591886, 1.100410126512}, {1, 0}], Text3DBox["14", {-12.962534579672, 2.295013645494, 0.879221477664}, { 1, 0}], Text3DBox["15", {-2.466344420202, 7.923530411152, 0.891313834338}, {1, 0}], Text3DBox["16", {0.059281937701999965`, 7.08517803769, 0.843250543254}, {1, 0}], Text3DBox["17", {0.605939985256, 4.56918739266, 0.24510691082999997`}, {1, 0}], Text3DBox["18", {-6.889062930053999, 7.180488258226, 0.27106607689199996`}, {1, 0}], Text3DBox["19", {-8.764170009718, 5.6103886241400005`, 0.316961852254}, {1, 0}], Text3DBox["20", {-9.685666547728001, 10.847456207802, -0.716657798514}, {1, 0}], Text3DBox["21", {-2.961218306178, 10.355709818356, 1.538117911262}, {1, 0}], Text3DBox["22", {-8.065018632868, 9.717965087876001, -0.406317546164}, {1, 0}], Text3DBox["23", {-14.379849866658, 12.134920862424, -1.3149885138119999`}, {1, 0}], Text3DBox["24", {-18.083822430766002`, 9.193898714652, -0.912588369646}, { 1, 0}], Text3DBox["25", {-11.033798965853999`, 1.571932668306, 1.161077890016}, {1, 0}], Text3DBox["26", {-14.758549067332, -1.31144149811, 1.559305519174}, {1, 0}], Text3DBox["27", {-19.168646097230003`, 0.362623301592, 0.9376064521599999}, {1, 0}], Text3DBox["28", {-19.819431826836002`, 4.940308792074, -0.08956734322200001}, {1, 0}], Text3DBox["29", {-4.815472259432, 10.535110956166, 1.66504702723}, {1, 0}], Text3DBox["30", {2.5981363776059996`, 3.950201972182, 0.21395477772000002`}, {1, 0}], Text3DBox["31", {1.5631920289119998`, 8.446306101518, 1.307507088578}, {1, 0}], Text3DBox["32", {-5.411567428871999, 2.36120318837, -0.736717240004}, {1, 0}], Text3DBox["33", {0.47733468232599996`, -0.012655495022, -2.745603692386}, { 1, 0}], Text3DBox["34", {0.46151578598, -0.82213474493, 0.538180736718}, { 1, 0}], Text3DBox[ "35", {-2.39587275821, -1.068133606432, -1.278930652006}, {1, 0}]}, AspectRatio->Automatic, AutomaticImageSize->True, Axes->Automatic, AxesLabel->{ FormBox["xl", TraditionalForm], FormBox["yl", TraditionalForm], FormBox["zl", TraditionalForm]}, Boxed->True, ImageSize->{360., 334.65903407581675`}, SphericalRegion->True, ViewPoint->{0.8840755511477489, -2.007475607983704, 2.576519377612608}, ViewVertical->{-0.13715610422700272`, 0.3226210983688702, 4.835783930915565}]], "Output", CellChangeTimes->{ 3.5743352987931376`*^9, 3.5743387959485874`*^9, 3.57434007273283*^9, 3.574341004257266*^9, 3.5743410883258142`*^9, 3.5743411653587494`*^9, { 3.574341237602476*^9, 3.574341265276925*^9}, {3.574341298005782*^9, 3.5743413239642277`*^9}, 3.574341527981386*^9, 3.580058338094983*^9}] }, Open ]], Cell[CellGroupData[{ Cell[BoxData[ RowBox[{ StyleBox[ RowBox[{"(*", " ", RowBox[{"Distance", " ", "Matrix", " ", "Bohr"}], " ", "*)"}], "Text"], "\[IndentingNewLine]", RowBox[{ RowBox[{ RowBox[{"dc", "=", RowBox[{"Table", "[", RowBox[{ RowBox[{"Norm", "[", RowBox[{ RowBox[{"t", "[", RowBox[{"[", "i", "]"}], "]"}], "-", RowBox[{"t", "[", RowBox[{"[", "j", "]"}], "]"}]}], "]"}], ",", RowBox[{"{", RowBox[{"i", ",", "1", ",", "n"}], "}"}], ",", RowBox[{"{", RowBox[{"j", ",", "1", ",", "n"}], "}"}]}], "]"}]}], ";"}], "\[IndentingNewLine]", RowBox[{"MatrixForm", "[", RowBox[{"Prepend", "[", RowBox[{"dc", ",", "num1"}], "]"}], "]"}]}]}]], "Input", CellChangeTimes->{{3.5678630319943895`*^9, 3.5678630956269007`*^9}, { 3.5678632280087337`*^9, 3.567863228336334*^9}, {3.5678632621727934`*^9, 3.5678633509213495`*^9}, {3.5678644293824434`*^9, 3.567864451908883*^9}, { 3.567864923404111*^9, 3.56786494544695*^9}, {3.5678650143210707`*^9, 3.5678650845367947`*^9}, {3.567869231084096*^9, 3.5678692412397137`*^9}, 3.5678693168686466`*^9, {3.5678704450470285`*^9, 3.5678704621290584`*^9}, 3.5682783281584253`*^9, 3.5688732159715385`*^9, 3.568910867647065*^9, 3.5689997098549547`*^9, 3.5689998170427427`*^9, 3.5689998869620657`*^9, 3.5691460426137285`*^9, 3.569237204536323*^9, 3.5692374658523817`*^9, 3.56923802264856*^9, 3.5693403424181123`*^9, 3.5693404502143016`*^9, 3.569340738019207*^9, 3.569340852851009*^9, 3.5693411655067577`*^9, 3.5693414978029413`*^9, 3.5693426144373026`*^9, 3.5693435671777763`*^9, 3.569343662743544*^9, 3.569343763644521*^9, 3.569344071177861*^9, 3.569344266271804*^9, 3.570297558707776*^9, {3.5703416079688015`*^9, 3.570341617375618*^9}, {3.5705956885798426`*^9, 3.5705957106070814`*^9}, { 3.5705965150536942`*^9, 3.5705965239457097`*^9}, {3.5720162655168724`*^9, 3.5720163727202606`*^9}, {3.5720166425383344`*^9, 3.572016643427536*^9}, { 3.5723503054303513`*^9, 3.572350361964851*^9}}], Cell[BoxData[ TagBox[ RowBox[{"(", "\[NoBreak]", GridBox[{ {"1", "2", "3", "4", "5", "6", "7", "8", "9", "10", "11", "12", "13", "14", "15", "16", "17", "18", "19", "20", "21", "22", "23", "24", "25", "26", "27", "28", "29", "30", "31", "32", "33", "34", "35"}, {"0.`", "2.8605151788641447`", "4.8077583471036665`", "7.278706254290172`", "12.389605472852217`", "13.555651600480719`", "16.219410435277943`", "17.604085789493876`", "16.77795747447386`", "14.258768823290795`", "17.742919915349603`", "17.02244127012982`", "14.53844637982461`", "12.625235852218482`", "8.251249064074576`", "7.265536614819498`", "4.816067878764558`", "9.51268019596705`", "9.881538519410363`", "14.036549067711293`", "10.814955852707499`", "12.152080801682382`", "18.250512111452398`", "19.64825827497278`", "10.685014686418786`", "14.383268920847128`", "18.598628179701784`", "19.772628368404213`", "11.544018074662507`", "5.197794444152237`", "8.947171114791677`", "5.26140005227103`", "2.106003033569249`", "2.1056202202948175`", "2.098707938742201`"}, {"2.8605151788641447`", "0.`", "2.6466084039541444`", "4.6426616500198135`", "10.54651035407108`", "12.151552015610877`", "14.79669261791131`", "15.871768572672607`", "14.75130657236784`", "12.12553513028294`", "16.633548655184168`", "16.281557445001113`", "13.949267426635199`", "11.705941171430064`", "5.39115167382572`", "4.656944785006666`", "2.6853677174253843`", "7.106253198423585`", "7.97598339957704`", "11.611987228687676`", "7.955110311797972`", "9.659863150260914`", "16.07965924162512`", "17.945117982370864`", "9.893111537057994`", "14.168556684076753`", "18.04863747764143`", "18.616016575507892`", "8.718276023684748`", "4.1281326756496215`", "6.553771580640797`", "4.126740487713537`", "4.126574691441492`", "4.126019395103736`", "4.120749382516347`"}, {"4.8077583471036665`", "2.6466084039541444`", "0.`", "2.677415784442149`", "7.9043138571565`", "9.545383484516979`", "12.172038742361291`", "13.22991529201053`", "12.169931499274774`", "9.572710257753501`", "14.078490124003228`", "13.881169393834568`", "11.6710192082635`", "9.297057728264072`", "4.645939321897597`", "5.319344417429406`", "4.568207051787426`", "4.706367421512017`", "5.340057474624135`", "9.292244994611044`", "7.010870012983659`", "7.404867489788259`", "13.579231679287101`", "15.304684624297355`", "7.625702516539007`", "12.132202522975259`", "15.725800773674182`", "16.036949718560336`", "7.2293604531507905`", "6.460589221665131`", "7.399979032113803`", "2.08080126261184`", "6.168339871236235`", "6.249210358723454`", "5.025094369204066`"}, {"7.278706254290172`", "4.6426616500198135`", "2.677415784442149`", "0.`", "6.728790428318022`", "8.933574475566457`", "11.372662324283793`", "11.96338149435996`", "10.514811903684103`", "7.824066258688663`", "13.605218239693864`", "13.866939023738096`", "11.966650676547108`", "9.385605914069195`", "2.69629852286218`", "4.6207928153752205`", "5.298654728910247`", "2.6438586629860588`", "4.361846699934735`", "7.091912481602189`", "4.595575083407674`", "5.111378250689182`", "11.696880871229146`", "14.024166145227145`", "8.092463012697216`", "12.815451386959527`", "15.8499781037998`", "15.434331203043646`", "4.575106468683371`", "7.38496097161425`", "6.493968192383614`", "4.0787019487207`", "8.477369890079974`", "8.554130759743792`", "7.698866692094337`"}, {"12.389605472852217`", "10.54651035407108`", "7.9043138571565`", "6.728790428318022`", "0.`", "2.7467626101442204`", "4.714915719117473`", "5.3749690036857904`", "4.684825569773443`", "2.7126535834958982`", "7.173138743609621`", "8.123014773067018`", "7.159093675401255`", "4.757135227585711`", "8.821233300641705`", "11.24704409535258`", "11.935273129953107`", "4.303925659660953`", "2.602842094241786`", "4.5441252554417835`", "9.122690380187846`", "4.399670156600232`", "6.539814854385326`", "7.460299491428989`", "5.164799745423011`", "8.83848962679063`", "10.206374567138509`", "8.830571315184248`", "7.619349478043854`", "14.006126872523678`", "12.905140687511688`", "7.1897716612271`", "13.67691427820267`", "13.799211459744303`", "11.72669616471154`"}, {"13.555651600480719`", "12.151552015610877`", "9.545383484516979`", "8.933574475566457`", "2.7467626101442204`", "0.`", "2.7204900650939683`", "4.679828187520461`", "5.414160471323869`", "4.715564194988159`", "4.6726646492077055`", "5.376823141100416`", "4.624093381726305`", "2.6869718542473766`", "11.245188968067538`", "13.529119402826424`", "13.890865815562313`", "6.786864095177022`", "4.572452660662615`", "7.024212360309106`", "11.739205234189509`", "7.136109545801077`", "7.494548233692518`", "6.555908055133304`", "4.106531469970898`", "6.507202610249496`", "7.46010805739586`", "6.550140570511315`", "10.261456292778671`", "15.907589303806487`", "15.295401634191023`", "8.332948316446602`", "14.922411547039978`", "14.887693177563172`", "12.513119306853648`"}, {"16.219410435277943`", "14.79669261791131`", "12.172038742361291`", "11.372662324283793`", "4.714915719117473`", "2.7204900650939683`", "0.`", "2.7095969604227816`", "4.653599598097751`", "5.407785958988959`", "2.6924296091376103`", "4.628533430536215`", "5.3371103629801535`", "4.650303361827224`", "13.528471083692281`", "15.934670923680171`", "16.461845480352107`", "9.017150809787406`", "7.0525838276449235`", "7.922158825465741`", "13.699292778426964`", "8.654575047940655`", "6.5594231908861325`", "4.1322447170127745`", "6.52538367561622`", "7.421606427064859`", "6.519353473586525`", "4.120218275007654`", "12.064502645079063`", "18.50135159687101`", "17.61045777780042`", "10.984848225021292`", "17.514239617542334`", "17.592327186894806`", "15.139658799332`"}, {"17.604085789493876`", "15.871768572672607`", "13.22991529201053`", "11.96338149435996`", "5.3749690036857904`", "4.679828187520461`", "2.7095969604227816`", "0.`", "2.613091126145222`", "4.606153229669329`", "4.715317555150819`", "7.117012578548671`", "8.046476571005806`", "7.119400716879602`", "13.7735464154584`", "16.330047852779458`", "17.22291432354591`", "9.389423495625302`", "7.975369142702653`", "6.878204127668327`", "13.491251757241177`", "8.17589601030949`", "4.113433352844976`", "2.0853582869809375`", "8.779499309122134`", "10.130972890448179`", "8.805738632844735`", "5.133168309711666`", "11.74043314357519`", "19.30043707102544`", "17.813143770237268`", "12.354917150837915`", "18.784482134958218`", "19.06998455322206`", "16.751357410656933`"}, {"16.77795747447386`", "14.75130657236784`", "12.169931499274774`", "10.514811903684103`", "4.684825569773443`", "5.414160471323869`", "4.653599598097751`", "2.613091126145222`", "0.`", "2.696146055163116`", "7.1147094802883775`", "9.281913827826962`", "9.665587511976774`", "8.099898739469989`", "11.988601362225078`", "14.60127766422779`", "15.777377013606708`", "7.888334662054257`", "7.101015610914895`", "4.496820921404962`", "11.41695979911709`", "6.086347214523037`", "2.081129426874349`", "4.07004087046803`", "9.311136053207541`", "11.702699398658112`", "11.132362556192303`", "7.739601829466393`", "9.650911144509223`", "17.85387007513024`", "15.921581001544778`", "11.665400322159105`", "17.87055633093978`", "18.285325886537652`", "16.21258143667463`"}, {"14.258768823290795`", "12.12553513028294`", "9.572710257753501`", "7.824066258688663`", "2.7126535834958982`", "4.715564194988159`", "5.407785958988959`", "4.606153229669329`", "2.696146055163116`", "0.`", "8.100160331162547`", "9.715758730523543`", "9.338676230515036`", "7.202914053161066`", "9.331800535184763`", "11.932173458171706`", "13.089397537755746`", "5.196865277050808`", "4.672976582897433`", "2.514882320637105`", "8.94596032332989`", "3.570619160604434`", "4.1001501155479465`", "6.495950157552258`", "7.858911918729845`", "11.197338538803475`", "11.747544987860648`", "9.280624074633673`", "7.238131128612249`", "15.167566144276982`", "13.310463382625343`", "9.253090072108186`", "15.37851354093635`", "15.738914449215036`", "13.838786945547477`"}, {"17.742919915349603`", "16.633548655184168`", "14.078490124003228`", "13.605218239693864`", "7.173138743609621`", "4.6726646492077055`", "2.6924296091376103`", "4.715317555150819`", "7.1147094802883775`", "8.100160331162547`", "0.`", "2.628544804090106`", "4.590559792707276`", "5.328122112784034`", "15.893352021345622`", "18.20121370421779`", "18.50691232359333`", "11.409213046434557`", "9.244646763230572`", "10.614477796959473`", "16.21787901876698`", "11.298812267278594`", "8.824482504674272`", "5.134301929745495`", "7.40708576718867`", "6.474011532884987`", "4.09510753366257`", "2.085002471476146`", "14.61766097842759`", "20.496286076839077`", "19.953384944255365`", "12.650932605614173`", "19.07335133991865`", "19.031359675903186`", "16.431220632589962`"}, {"17.02244127012982`", "16.281557445001113`", "13.881169393834568`", "13.866939023738096`", "8.123014773067018`", "5.376823141100416`", "4.628533430536215`", "7.117012578548671`", "9.281913827826962`", "9.715758730523543`", "2.628544804090106`", "0.`", "2.681399600218938`", "4.61978384204012`", "16.325571954900354`", "18.416621438368114`", "18.381816910614496`", "12.009709531991989`", "9.636201938412526`", "12.186641715113367`", "16.997909569235652`", "12.499703180549322`", "11.151050873389885`", "7.75378656730491`", "6.513427507784174`", "4.131718554821422`", "2.0833732055750613`", "4.100929175491081`", "15.546644354387977`", "20.271353132272097`", "20.281114241933004`", "12.234883052713077`", "18.422398513911546`", "18.164641790133846`", "15.512346863268187`"}, {"14.53844637982461`", "13.949267426635199`", "11.6710192082635`", "11.966650676547108`", "7.159093675401255`", "4.624093381726305`", "5.3371103629801535`", "8.046476571005806`", "9.665587511976774`", "9.338676230515036`", "4.590559792707276`", "2.681399600218938`", "0.`", "2.6330545158226513`", "14.507668160651297`", "16.401660058714544`", "16.146256881497106`", "10.450654948814746`", "8.011507994736926`", "11.618380551547276`", "15.474502544047725`", "11.502823742965301`", "11.70489749588877`", "9.241101003584747`", "4.106848052121415`", "2.0845169202276486`", "4.138884905523979`", "6.493217480938973`", "14.202189320706806`", "17.96347842111381`", "18.328133883132725`", "9.948312551720896`", "16.009446914428644`", "15.593172860997273`", "12.993845902647504`"}, {"12.625235852218482`", "11.705941171430064`", "9.297057728264072`", "9.385605914069195`", "4.757135227585711`", "2.6869718542473766`", "4.650303361827224`", "7.119400716879602`", "8.099898739469989`", "7.202914053161066`", "5.328122112784034`", "4.61978384204012`", "2.6330545158226513`", "0.`", "11.910094670914166`", "13.874965737778929`", "13.772344373245547`", "7.818233372178823`", "5.379043799565421`", "9.29671815989322`", "12.86216523388874`", "8.985459428818604`", "10.180722673131235`", "8.776832400139087`", "2.0790166436960047`", "4.085914958271762`", "6.500258565227897`", "7.4130410797565816`", "11.614273543083483`", "15.66258946724754`", "15.780321953349969`", "7.722224025972397`", "14.110094973284786`", "13.78542894125785`", "11.297022709638112`"}, {"8.251249064074576`", "5.39115167382572`", "4.645939321897597`", "2.69629852286218`", "8.821233300641705`", "11.245188968067538`", "13.528471083692281`", "13.7735464154584`", "11.988601362225078`", "9.331800535184763`", "15.893352021345622`", "16.325571954900354`", "14.507668160651297`", "11.910094670914166`", "0.`", "2.661565945412328`", "4.594358708428861`", "4.527389748964538`", "6.733729448240957`", "7.95320858631022`", "2.564907863018416`", "6.0207139068605775`", "12.827127176700712`", "15.772555854981963`", "10.668497735130064`", "15.389256451914518`", "18.334021398381537`", "17.634947736109265`", "3.5968621883419267`", "6.472643967257596`", "4.084565489994106`", "6.501100513230359`", "9.212787986934634`", "9.229503095718945`", "9.250132387742637`"}, {"7.265536614819498`", "4.656944785006666`", "5.319344417429406`", "4.6207928153752205`", "11.24704409535258`", "13.529119402826424`", "15.934670923680171`", "16.330047852779458`", "14.60127766422779`", "11.932173458171706`", "18.20121370421779`", "18.416621438368114`", "16.401660058714544`", "13.874965737778929`", "2.661565945412328`", "0.`", "2.6432593046924864`", "6.972515722675405`", "8.961321770197934`", "10.561821436083036`", "4.505845149441758`", "8.631178819992254`", "15.448185190729625`", "18.349438937107138`", "12.391663837363513`", "17.046526627183173`", "20.369459043722863`", "20.01584058246247`", "6.028317765806245`", "4.0828752073566115`", "2.080853024232995`", "7.398812699675823`", "7.964539137957058`", "7.9234118344149005`", "8.775416136716784`"}, {"4.816067878764558`", "2.6853677174253843`", "4.568207051787426`", "5.298654728910247`", "11.935273129953107`", "13.890865815562313`", "16.461845480352107`", "17.22291432354591`", "15.777377013606708`", "13.089397537755746`", "18.50691232359333`", "18.381816910614496`", "16.146256881497106`", "13.772344373245547`", "4.594358708428861`", "2.6432593046924864`", "0.`", "7.936915949492836`", "9.428055178824218`", "12.093751101336718`", "6.919561944694709`", "10.10543363419614`", "16.859659491081803`", "19.288220040779965`", "12.054296394537538`", "16.503831009199914`", "20.228914745993023`", "20.431484322281403`", "8.185364049729928`", "2.0863748157639326`", "4.13244178366003`", "6.4845638549281395`", "5.473040606786365`", "5.401213290365893`", "6.566045863879843`"}, {"9.51268019596705`", "7.106253198423585`", "4.706367421512017`", "2.6438586629860588`", "4.303925659660953`", "6.786864095177022`", "9.017150809787406`", "9.389423495625302`", "7.888334662054257`", "5.196865277050808`", "11.409213046434557`", "12.009709531991989`", "10.450654948814746`", "7.818233372178823`", "4.527389748964538`", "6.972515722675405`", "7.936915949492836`", "0.`", "2.4460878650120335`", "4.716274397408614`", "5.207246460098308`", "2.877587365967515`", "9.119970423407665`", "11.435799044825696`", "7.030423432424412`", "11.649087685823575`", "14.061142250839813`", "13.127943491314227`", "4.182876355419804`", "10.022223400701137`", "8.609129960365708`", "5.140440521430425`", "10.728719743540896`", "10.869421908857323`", "9.520032061188871`"}, {"9.881538519410363`", "7.97598339957704`", "5.340057474624135`", "4.361846699934735`", "2.602842094241786`", "4.572452660662615`", "7.0525838276449235`", "7.975369142702653`", "7.101015610914895`", "4.672976582897433`", "9.244646763230572`", "9.636201938412526`", "8.011507994736926`", "5.379043799565421`", "6.733729448240957`", "8.961321770197934`", "9.428055178824218`", "2.4460878650120335`", "0.`", "5.417047380987314`", "7.594968323195649`", "4.228963246632099`", "8.761771691921208`", "10.060281286630186`", "4.7088081284916585`", "9.240548160925572`", "11.66950569885198`", "11.083008924165997`", "6.454644654019258`", "11.483415720776085`", "10.755371424578428`", "4.786166492149724`", "11.242924079363418`", "11.248980980045214`", "9.365080990197685`"}, {"14.036549067711293`", "11.611987228687676`", "9.292244994611044`", "7.091912481602189`", "4.5441252554417835`", "7.024212360309106`", "7.922158825465741`", "6.878204127668327`", "4.496820921404962`", "2.514882320637105`", "10.614477796959473`", "12.186641715113367`", "11.618380551547276`", "9.29671815989322`", "7.95320858631022`", "10.561821436083036`", "12.093751101336718`", "4.716274397408614`", "5.417047380987314`", "0.`", "7.109432619148588`", "1.9996401991759467`", "4.904173927736519`", "8.56163906081437`", "9.559220118007845`", "13.36985188788557`", "14.233594500985166`", "11.746524241762545`", "5.430365534560524`", "14.118426614402438`", "11.679023272529736`", "9.50183224272126`", "15.01150364354464`", "15.515130746052497`", "13.979932935337933`"}, {"10.814955852707499`", "7.955110311797972`", "7.010870012983659`", "4.595575083407674`", "9.122690380187846`", "11.739205234189509`", "13.699292778426964`", "13.491251757241177`", "11.41695979911709`", "8.94596032332989`", "16.21787901876698`", "16.997909569235652`", "15.474502544047725`", "12.86216523388874`", "2.564907863018416`", "4.505845149441758`", "6.919561944694709`", "5.207246460098308`", "7.594968323195649`", "7.109432619148588`", "0.`", "5.498756710754843`", "11.903400981489368`", "15.363883683007296`", "11.935805741814697`", "16.59216326595522`", "19.050015951337365`", "17.78131858640458`", "1.8672315046308614`", "8.584309131883563`", "4.916227495314163`", "8.665519144599058`", "11.733580728148185`", "11.73282540991888`", "11.779625494492157`"}, {"12.152080801682382`", "9.659863150260914`", "7.404867489788259`", "5.111378250689182`", "4.399670156600232`", "7.136109545801077`", "8.654575047940655`", "8.17589601030949`", "6.086347214523037`", "3.570619160604434`", "11.298812267278594`", "12.499703180549322`", "11.502823742965301`", "8.985459428818604`", "6.0207139068605775`", "8.631178819992254`", "10.10543363419614`", "2.877587365967515`", "4.228963246632099`", "1.9996401991759467`", "5.498756710754843`", "0.`", "6.822349423389058`", "10.045266808354505`", "8.81068835560354`", "13.050472533631721`", "14.581464073226554`", "12.692224387648105`", "3.939267723712896`", "12.138974581567151`", "9.861883795900644`", "7.827637759611806`", "13.157850765373134`", "13.58998052565506`", "12.216406739462785`"}, {"18.250512111452398`", "16.07965924162512`", "13.579231679287101`", "11.696880871229146`", "6.539814854385326`", "7.494548233692518`", "6.5594231908861325`", "4.113433352844976`", "2.081129426874349`", "4.1001501155479465`", "8.824482504674272`", "11.151050873389885`", "11.70489749588877`", "10.180722673131235`", "12.827127176700712`", "15.448185190729625`", "16.859659491081803`", "9.119970423407665`", "8.761771691921208`", "4.904173927736519`", "11.903400981489368`", "6.822349423389058`", "0.`", "4.746677775600007`", "11.353575694732177`", "13.755349504953902`", "12.907119867709993`", "9.10237066865825`", "10.14481752303317`", "18.909767523992002`", "16.572988472898565`", "13.277426133182889`", "19.244381098692582`", "19.788523459785388`", "17.830806342192773`"}, {"19.64825827497278`", "17.945117982370864`", "15.304684624297355`", "14.024166145227145`", "7.460299491428989`", "6.555908055133304`", "4.1322447170127745`", "2.0853582869809375`", "4.07004087046803`", "6.495950157552258`", "5.134301929745495`", "7.75378656730491`", "9.241101003584747`", "8.776832400139087`", "15.772555854981963`", "18.349438937107138`", "19.288220040779965`", "11.435799044825696`", "10.060281286630186`", "8.56163906081437`", "15.363883683007296`", "10.045266808354505`", "4.746677775600007`", "0.`", "10.587600720839529`", "11.292912614778514`", "9.087985953294393`", "4.667197319068437`", "13.58278950676753`", "21.366068312655564`", "19.786179412348304`", "14.398010475136596`", "20.799931225029365`", "21.127120647095904`", "18.74980743782366`"}, {"10.685014686418786`", "9.893111537057994`", "7.625702516539007`", "8.092463012697216`", "5.164799745423011`", "4.106531469970898`", "6.52538367561622`", "8.779499309122134`", "9.311136053207541`", "7.858911918729845`", "7.40708576718867`", "6.513427507784174`", "4.106848052121415`", "2.0790166436960047`", "10.668497735130064`", "12.391663837363513`", "12.054296394537538`", "7.030423432424412`", "4.7088081284916585`", "9.559220118007845`", "11.935805741814697`", "8.81068835560354`", "11.353575694732177`", "10.587600720839529`", "0.`", "4.727176233930818`", "8.227278193838835`", "9.491965864801562`", "10.92062896261155`", "13.870215149011855`", "14.351398319733802`", "5.986155842007849`", "12.25884490887702`", "11.758478680783394`", "9.356140271973926`"}, {"14.383268920847128`", "14.168556684076753`", "12.132202522975259`", "12.815451386959527`", "8.83848962679063`", "6.507202610249496`", "7.421606427064859`", "10.130972890448179`", "11.702699398658112`", "11.197338538803475`", "6.474011532884987`", "4.131718554821422`", "2.0845169202276486`", "4.085914958271762`", "15.389256451914518`", "17.046526627183173`", "16.503831009199914`", "11.649087685823575`", "9.240548160925572`", "13.36985188788557`", "16.59216326595522`", "13.050472533631721`", "13.755349504953902`", "11.292912614778514`", "4.727176233930818`", "0.`", "4.757936369545367`", "8.210706285856688`", "15.466633852465684`", "18.186516715977252`", "19.01778833304538`", "10.30175253311307`", "15.885567098302918`", "15.262126033389864`", "12.686628741224899`"}, {"18.598628179701784`", "18.04863747764143`", "15.725800773674182`", "15.8499781037998`", "10.206374567138509`", "7.46010805739586`", "6.519353473586525`", "8.805738632844735`", "11.132362556192303`", "11.747544987860648`", "4.09510753366257`", "2.0833732055750613`", "4.138884905523979`", "6.500258565227897`", "18.334021398381537`", "20.369459043722863`", "20.228914745993023`", "14.061142250839813`", "11.66950569885198`", "14.233594500985166`", "19.050015951337365`", "14.581464073226554`", "12.907119867709993`", "9.087985953294393`", "8.227278193838835`", "4.757936369545367`", "0.`", "4.736434579042309`", "17.60744939196951`", "22.072317770692315`", "22.255153699293945`", "14.001960394079324`", "19.991784110848098`", "19.66993767382057`", "16.978987824547826`"}, {"19.772628368404213`", "18.616016575507892`", "16.036949718560336`", "15.434331203043646`", "8.830571315184248`", "6.550140570511315`", "4.120218275007654`", "5.133168309711666`", "7.739601829466393`", "9.280624074633673`", "2.085002471476146`", "4.100929175491081`", "6.493217480938973`", "7.4130410797565816`", "17.634947736109265`", "20.01584058246247`", "20.431484322281403`", "13.127943491314227`", "11.083008924165997`", "11.746524241762545`", "17.78131858640458`", "12.692224387648105`", "9.10237066865825`", "4.667197319068437`", "9.491965864801562`", "8.210706285856688`", "4.736434579042309`", "0.`", "16.10898151791786`", "22.44147502713462`", "21.713139732848898`", "14.651182382800403`", "21.06051079733749`", "21.093047651840514`", "18.468794648117825`"}, {"11.544018074662507`", "8.718276023684748`", "7.2293604531507905`", "4.575106468683371`", "7.619349478043854`", "10.261456292778671`", "12.064502645079063`", "11.74043314357519`", "9.650911144509223`", "7.238131128612249`", "14.61766097842759`", "15.546644354387977`", "14.202189320706806`", "11.614273543083483`", "3.5968621883419267`", "6.028317765806245`", "8.185364049729928`", "4.182876355419804`", "6.454644654019258`", "5.430365534560524`", "1.8672315046308614`", "3.939267723712896`", "10.14481752303317`", "13.58278950676753`", "10.92062896261155`", "15.466633852465684`", "17.60744939196951`", "16.10898151791786`", "0.`", "10.021391523491417`", "6.721480389908714`", "8.54029093431995`", "12.59853254160888`", "12.573919849560717`", "12.212974686848964`"}, {"5.197794444152237`", "4.1281326756496215`", "6.460589221665131`", "7.38496097161425`", "14.006126872523678`", "15.907589303806487`", "18.50135159687101`", "19.30043707102544`", "17.85387007513024`", "15.167566144276982`", "20.496286076839077`", "20.271353132272097`", "17.96347842111381`", "15.66258946724754`", "6.472643967257596`", "4.0828752073566115`", "2.0863748157639326`", "10.022223400701137`", "11.483415720776085`", "14.118426614402438`", "8.584309131883563`", "12.138974581567151`", "18.909767523992002`", "21.366068312655564`", "13.870215149011855`", "18.186516715977252`", "22.072317770692315`", "22.44147502713462`", "10.021391523491417`", "0.`", "4.741510181715182`", "8.220951860201323`", "5.381544896593653`", "5.238842216229054`", "7.235504552861879`"}, {"8.947171114791677`", "6.553771580640797`", "7.399979032113803`", "6.493968192383614`", "12.905140687511688`", "15.295401634191023`", "17.61045777780042`", "17.813143770237268`", "15.921581001544778`", "13.310463382625343`", "19.953384944255365`", "20.281114241933004`", "18.328133883132725`", "15.780321953349969`", "4.084565489994106`", "2.080853024232995`", "4.13244178366003`", "8.609129960365708`", "10.755371424578428`", "11.679023272529736`", "4.916227495314163`", "9.861883795900644`", "16.572988472898565`", "19.786179412348304`", "14.351398319733802`", "19.01778833304538`", "22.255153699293945`", "21.713139732848898`", "6.721480389908714`", "4.741510181715182`", "0.`", "9.479166633365834`", "9.442500964873657`", "9.365337650293911`", "10.624896099763156`"}, {"5.26140005227103`", "4.126740487713537`", "2.08080126261184`", "4.0787019487207`", "7.1897716612271`", "8.332948316446602`", "10.984848225021292`", "12.354917150837915`", "11.665400322159105`", "9.253090072108186`", "12.650932605614173`", "12.234883052713077`", "9.948312551720896`", "7.722224025972397`", "6.501100513230359`", "7.398812699675823`", "6.4845638549281395`", "5.140440521430425`", "4.786166492149724`", "9.50183224272126`", "8.665519144599058`", "7.827637759611806`", "13.277426133182889`", "14.398010475136596`", "5.986155842007849`", "10.30175253311307`", "14.001960394079324`", "14.651182382800403`", "8.54029093431995`", "8.220951860201323`", "9.479166633365834`", "0.`", "6.659579408832947`", "6.800890507662423`", "4.598778161968339`"}, {"2.106003033569249`", "4.126574691441492`", "6.168339871236235`", "8.477369890079974`", "13.67691427820267`", "14.922411547039978`", "17.514239617542334`", "18.784482134958218`", "17.87055633093978`", "15.37851354093635`", "19.07335133991865`", "18.422398513911546`", "16.009446914428644`", "14.110094973284786`", "9.212787986934634`", "7.964539137957058`", "5.473040606786365`", "10.728719743540896`", "11.242924079363418`", "15.01150364354464`", "11.733580728148185`", "13.157850765373134`", "19.244381098692582`", "20.799931225029365`", "12.25884490887702`", "15.885567098302918`", "19.991784110848098`", "21.06051079733749`", "12.59853254160888`", "5.381544896593653`", "9.442500964873657`", "6.659579408832947`", "0.`", "3.382121681775969`", "3.3941839737107014`"}, {"2.1056202202948175`", "4.126019395103736`", "6.249210358723454`", "8.554130759743792`", "13.799211459744303`", "14.887693177563172`", "17.592327186894806`", "19.06998455322206`", "18.285325886537652`", "15.738914449215036`", "19.031359675903186`", "18.164641790133846`", "15.593172860997273`", "13.78542894125785`", "9.229503095718945`", "7.9234118344149005`", "5.401213290365893`", "10.869421908857323`", "11.248980980045214`", "15.515130746052497`", "11.73282540991888`", "13.58998052565506`", "19.788523459785388`", "21.127120647095904`", "11.758478680783394`", "15.262126033389864`", "19.66993767382057`", "21.093047651840514`", "12.573919849560717`", "5.238842216229054`", "9.365337650293911`", "6.800890507662423`", "3.382121681775969`", "0.`", "3.395155155712179`"}, {"2.098707938742201`", "4.120749382516347`", "5.025094369204066`", "7.698866692094337`", "11.72669616471154`", "12.513119306853648`", "15.139658799332`", "16.751357410656933`", "16.21258143667463`", "13.838786945547477`", "16.431220632589962`", "15.512346863268187`", "12.993845902647504`", "11.297022709638112`", "9.250132387742637`", "8.775416136716784`", "6.566045863879843`", "9.520032061188871`", "9.365080990197685`", "13.979932935337933`", "11.779625494492157`", "12.216406739462785`", "17.830806342192773`", "18.74980743782366`", "9.356140271973926`", "12.686628741224899`", "16.978987824547826`", "18.468794648117825`", "12.212974686848964`", "7.235504552861879`", "10.624896099763156`", "4.598778161968339`", "3.3941839737107014`", "3.395155155712179`", "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.574335298839937*^9, 3.5743387959953876`*^9, 3.5743400727640305`*^9, 3.5743410043664665`*^9, 3.5743410883570137`*^9, 3.574341165389949*^9, { 3.5743412376336765`*^9, 3.5743412653081245`*^9}, {3.5743412980369825`*^9, 3.574341323995428*^9}, 3.5743415280125866`*^9, 3.580058338124985*^9}] }, Open ]], Cell[BoxData[{ RowBox[{ RowBox[{"x", "=", RowBox[{"Table", "[", RowBox[{ RowBox[{"t", "[", RowBox[{"[", RowBox[{"i", ",", "1"}], "]"}], "]"}], ",", RowBox[{"{", RowBox[{"i", ",", "1", ",", "n"}], "}"}]}], "]"}]}], ";"}], "\[IndentingNewLine]", RowBox[{ RowBox[{"y", "=", RowBox[{"Table", "[", RowBox[{ RowBox[{"t", "[", RowBox[{"[", RowBox[{"i", ",", "2"}], "]"}], "]"}], ",", RowBox[{"{", RowBox[{"i", ",", "1", ",", "n"}], "}"}]}], "]"}]}], ";"}], "\[IndentingNewLine]", RowBox[{ RowBox[{"z", "=", RowBox[{"Table", "[", RowBox[{ RowBox[{"t", "[", RowBox[{"[", RowBox[{"i", ",", "3"}], "]"}], "]"}], ",", RowBox[{"{", RowBox[{"i", ",", "1", ",", "n"}], "}"}]}], "]"}]}], ";"}]}], "Input", CellChangeTimes->{{3.5678630319943895`*^9, 3.5678630956269007`*^9}, { 3.5678632280087337`*^9, 3.567863228336334*^9}, {3.5678632621727934`*^9, 3.5678633509213495`*^9}, {3.5678644293824434`*^9, 3.567864451908883*^9}, { 3.567864923404111*^9, 3.56786494544695*^9}, {3.5678650143210707`*^9, 3.5678650845367947`*^9}, {3.567869231084096*^9, 3.567869278118179*^9}, { 3.5682778102931156`*^9, 3.5682778156907253`*^9}, 3.571808490989086*^9, { 3.572601938592864*^9, 3.572601945722077*^9}}], Cell[CellGroupData[{ Cell[BoxData[ RowBox[{ RowBox[{"(*", " ", RowBox[{"connected", " ", RowBox[{"pairs", ":", " ", RowBox[{ RowBox[{"distance", " ", "criteria"}], " ", "<", " ", RowBox[{"3.0", " ", "bohr"}]}]}]}], " ", "*)"}], "\[IndentingNewLine]", RowBox[{ RowBox[{ RowBox[{"Dij", "=", RowBox[{"Table", "[", RowBox[{ RowBox[{"If", "[", RowBox[{ RowBox[{"(", RowBox[{ RowBox[{ RowBox[{"dc", "[", RowBox[{"[", RowBox[{"i", ",", "j"}], "]"}], "]"}], "<", "2.870"}], "||", 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, {3.5743387654349337`*^9, 3.574338770629743*^9}}], Cell[BoxData[ TagBox[ RowBox[{"(", "\[NoBreak]", GridBox[{ {"1", "2", "3", "4", "5", "6", "7", "8", "9", "10", "11", "12", "13", "14", "15", "16", "17", "18", "19", "20", "21", "22", "23", "24", "25", "26", "27", "28", "29", "30", "31", "32", "33", "34", "35"}, {"0.`", "2.8605151788641447`", "0", "0", "0", "0", "0", "0", "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.106003033569249`", "2.1056202202948175`", "2.098707938742201`"}, {"2.8605151788641447`", "0.`", "2.6466084039541444`", "0", "0", "0", "0", "0", "0", "0", "0", "0", "0", "0", "0", "0", "2.6853677174253843`", "0", "0", "0", "0", "0", "0", "0", "0", "0", "0", "0", "0", "0", "0", "0", "0", "0", "0"}, {"0", "2.6466084039541444`", "0.`", "2.677415784442149`", "0", "0", "0", "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.08080126261184`", "0", "0", "0"}, {"0", "0", "2.677415784442149`", "0.`", "0", "0", "0", "0", "0", "0", "0", "0", "0", "0", "2.69629852286218`", "0", "0", "2.6438586629860588`", "0", "0", "0", "0", "0", "0", "0", "0", "0", "0", "0", "0", "0", "0", "0", "0", "0"}, {"0", "0", "0", "0", "0.`", "2.7467626101442204`", "0", "0", "0", "2.7126535834958982`", "0", "0", "0", "0", "0", "0", "0", "0", "2.602842094241786`", "0", "0", "0", "0", "0", "0", "0", "0", "0", "0", "0", "0", "0", "0", "0", "0"}, {"0", "0", "0", "0", "2.7467626101442204`", "0.`", "2.7204900650939683`", "0", "0", "0", "0", "0", "0", "2.6869718542473766`", "0", "0", "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.7204900650939683`", "0.`", "2.7095969604227816`", "0", "0", "2.6924296091376103`", "0", "0", "0", "0", "0", "0", "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.7095969604227816`", "0.`", "2.613091126145222`", "0", "0", "0", "0", "0", "0", "0", "0", "0", "0", "0", "0", "0", "0", "2.0853582869809375`", "0", "0", "0", "0", "0", "0", "0", "0", "0", "0", "0"}, {"0", "0", "0", "0", "0", "0", "0", "2.613091126145222`", "0.`", "2.696146055163116`", "0", "0", "0", "0", "0", "0", "0", "0", "0", "0", "0", "0", "2.081129426874349`", "0", "0", "0", "0", "0", "0", "0", "0", "0", "0", "0", "0"}, {"0", "0", "0", "0", "2.7126535834958982`", "0", "0", "0", "2.696146055163116`", "0.`", "0", "0", "0", "0", "0", "0", "0", "0", "0", "2.514882320637105`", "0", "0", "0", "0", "0", "0", "0", "0", "0", "0", "0", "0", "0", "0", "0"}, {"0", "0", "0", "0", "0", "0", "2.6924296091376103`", "0", "0", "0", "0.`", "2.628544804090106`", "0", "0", "0", "0", "0", "0", "0", "0", "0", "0", "0", "0", "0", "0", "0", "2.085002471476146`", "0", "0", "0", "0", "0", "0", "0"}, {"0", "0", "0", "0", "0", "0", "0", "0", "0", "0", "2.628544804090106`", "0.`", "2.681399600218938`", "0", "0", "0", "0", "0", "0", "0", "0", "0", "0", "0", "0", "0", "2.0833732055750613`", "0", "0", "0", "0", "0", "0", "0", "0"}, {"0", "0", "0", "0", "0", "0", "0", "0", "0", "0", "0", "2.681399600218938`", "0.`", "2.6330545158226513`", "0", "0", "0", "0", "0", "0", "0", "0", "0", "0", "0", "2.0845169202276486`", "0", "0", "0", "0", "0", "0", "0", "0", "0"}, {"0", "0", "0", "0", "0", "2.6869718542473766`", "0", "0", "0", "0", "0", "0", "2.6330545158226513`", "0.`", "0", "0", "0", "0", "0", "0", "0", "0", "0", "0", "2.0790166436960047`", "0", "0", "0", "0", "0", "0", "0", "0", "0", "0"}, {"0", "0", "0", "2.69629852286218`", "0", "0", "0", "0", "0", "0", "0", "0", "0", "0", "0.`", "2.661565945412328`", "0", "0", "0", "0", "2.564907863018416`", "0", "0", "0", "0", "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.661565945412328`", "0.`", "2.6432593046924864`", "0", "0", "0", "0", "0", "0", "0", "0", "0", "0", "0", "0", "0", "2.080853024232995`", "0", "0", "0", "0"}, {"0", "2.6853677174253843`", "0", "0", "0", "0", "0", "0", "0", "0", "0", "0", "0", "0", "0", "2.6432593046924864`", "0.`", "0", "0", "0", "0", "0", "0", "0", "0", "0", "0", "0", "0", "2.0863748157639326`", "0", "0", "0", "0", "0"}, {"0", "0", "0", "2.6438586629860588`", "0", "0", "0", "0", "0", "0", "0", "0", "0", "0", "0", "0", "0", "0.`", "2.4460878650120335`", "0", "0", "0", "0", "0", "0", "0", "0", "0", "0", "0", "0", "0", "0", "0", "0"}, {"0", "0", "0", "0", "2.602842094241786`", "0", "0", "0", "0", "0", "0", "0", "0", "0", "0", "0", "0", "2.4460878650120335`", "0.`", "0", "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.514882320637105`", "0", "0", "0", "0", "0", "0", "0", "0", "0", "0.`", "0", "1.9996401991759467`", "0", "0", "0", "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.564907863018416`", "0", "0", "0", "0", "0", "0.`", "0", "0", "0", "0", "0", "0", "0", "1.8672315046308614`", "0", "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.9996401991759467`", "0", "0.`", "0", "0", "0", "0", "0", "0", "0", "0", "0", "0", "0", "0", "0"}, {"0", "0", "0", "0", "0", "0", "0", "0", "2.081129426874349`", "0", "0", "0", "0", "0", "0", "0", "0", "0", "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.0853582869809375`", "0", "0", "0", "0", "0", "0", "0", "0", "0", "0", "0", "0", "0", "0", "0", "0.`", "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.0790166436960047`", "0", "0", "0", "0", "0", "0", "0", "0", "0", "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.0845169202276486`", "0", "0", "0", "0", "0", "0", "0", "0", "0", "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.0833732055750613`", "0", "0", "0", "0", "0", "0", "0", "0", "0", "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.085002471476146`", "0", "0", "0", "0", "0", "0", "0", "0", "0", "0", "0", "0", "0", "0", "0", "0", "0.`", "0", "0", "0", "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.8672315046308614`", "0", "0", "0", "0", "0", "0", "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.0863748157639326`", "0", "0", "0", "0", "0", "0", "0", "0", "0", "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.080853024232995`", "0", "0", "0", "0", "0", "0", "0", "0", "0", "0", "0", "0", "0", "0", "0.`", "0", "0", "0", "0"}, {"0", "0", "2.08080126261184`", "0", "0", "0", "0", "0", "0", "0", "0", "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.106003033569249`", "0", "0", "0", "0", "0", "0", "0", "0", "0", "0", "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.1056202202948175`", "0", "0", "0", "0", "0", "0", "0", "0", "0", "0", "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.098707938742201`", "0", "0", "0", "0", "0", "0", "0", "0", "0", "0", "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.574335298871137*^9, 3.5743387960109878`*^9, 3.5743400727796307`*^9, 3.574341004397667*^9, 3.574341088372614*^9, 3.574341165405549*^9, { 3.5743412376648765`*^9, 3.574341265339325*^9}, {3.5743412980681825`*^9, 3.574341324026628*^9}, 3.574341528043786*^9, 3.5800583381529865`*^9}] }, Open ]], Cell[CellGroupData[{ Cell[BoxData[ RowBox[{ RowBox[{"(*", " ", RowBox[{"count", " ", "C", " ", "atoms"}], " ", "*)"}], "\[IndentingNewLine]", RowBox[{ RowBox[{ RowBox[{"nc", "=", "0"}], ";"}], " ", "\n", RowBox[{"For", "[", RowBox[{ RowBox[{"i", "=", "1"}], ",", RowBox[{"i", "<", RowBox[{"bc", "+", "1"}]}], ",", RowBox[{"i", "++"}], ",", RowBox[{"If", "[", RowBox[{ RowBox[{ RowBox[{"u", "[", RowBox[{"[", "i", "]"}], "]"}], "\[Equal]", "\"\\""}], ",", RowBox[{"nc", "=", RowBox[{"nc", "+", "1"}]}], ",", "nc"}], "]"}]}], "]"}], "\[IndentingNewLine]", RowBox[{ RowBox[{"cnt", "=", RowBox[{"Table", "[", RowBox[{"0", ",", RowBox[{"{", "nc", "}"}]}], "]"}]}], ";"}], "\[IndentingNewLine]", RowBox[{ RowBox[{"pri", "=", "cnt"}], ";", " ", RowBox[{"sec", "=", "cnt"}], ";", RowBox[{"ter", "=", "cnt"}], ";", " ", RowBox[{"qua", "=", "cnt"}], ";"}], "\[IndentingNewLine]", "nc"}]}]], "Input", CellChangeTimes->{{3.5688800293771057`*^9, 3.5688801774057655`*^9}, { 3.5688802290574565`*^9, 3.568880330208034*^9}, {3.5688803807053227`*^9, 3.5688804136525807`*^9}, 3.568880491434317*^9, 3.5688805648948464`*^9, { 3.5688806280437574`*^9, 3.568880655234605*^9}, {3.568880712424306*^9, 3.568880716324312*^9}, {3.5688808087544746`*^9, 3.568880827786508*^9}, 3.5688808733385878`*^9, {3.568881358936241*^9, 3.5688813959239063`*^9}, { 3.568881446561595*^9, 3.5688815849182377`*^9}, {3.5688816223739033`*^9, 3.568881642607139*^9}, 3.568881728953291*^9, {3.568881797624612*^9, 3.568881809870633*^9}, 3.568881863612727*^9, {3.568883098916497*^9, 3.5688831014749017`*^9}, {3.56888372124679*^9, 3.568883843239004*^9}, 3.568888211750622*^9, {3.5688882521546926`*^9, 3.5688885232519693`*^9}, { 3.5688885890840845`*^9, 3.5688885895052853`*^9}, {3.568888675773437*^9, 3.5688886914514647`*^9}, {3.568888736285943*^9, 3.5688887717760057`*^9}, { 3.5688888256429005`*^9, 3.5688888541441507`*^9}, {3.568892442649892*^9, 3.5688924499507046`*^9}, {3.568892758441247*^9, 3.5688927597360487`*^9}, { 3.5688928234309607`*^9, 3.5688928379389863`*^9}, {3.5708938149488974`*^9, 3.5708938463361526`*^9}, {3.570893920483083*^9, 3.5708939282050962`*^9}, { 3.570894700000852*^9, 3.5708947833985987`*^9}, {3.572528557136052*^9, 3.57252856181606*^9}, 3.57252899467002*^9, 3.572529147612689*^9, { 3.572529371395082*^9, 3.572529383875104*^9}, {3.572531374906601*^9, 3.5725313995390444`*^9}}], Cell[BoxData["17"], "Output", CellChangeTimes->{ 3.574335298886737*^9, 3.5743387960265875`*^9, 3.5743400727952304`*^9, 3.574341004397667*^9, 3.574341088388214*^9, 3.5743411654211493`*^9, { 3.574341237680476*^9, 3.574341265354925*^9}, {3.574341298083782*^9, 3.5743413240422277`*^9}, 3.5743415280749865`*^9, 3.5800583381659875`*^9}] }, Open ]], Cell[CellGroupData[{ Cell[BoxData[ RowBox[{ RowBox[{"(*", " ", RowBox[{ "count", " ", "H", " ", "atoms", " ", "bonded", " ", "to", " ", "each", " ", "C", " ", "atom"}], " ", "*)"}], "\[IndentingNewLine]", RowBox[{ RowBox[{ RowBox[{"For", "[", RowBox[{ RowBox[{"j", "=", "1"}], ",", RowBox[{"j", "\[LessEqual]", "nc"}], ",", RowBox[{"j", "++"}], ",", "\[IndentingNewLine]", RowBox[{"For", "[", RowBox[{ RowBox[{"i", "=", RowBox[{"bc", "+", "1"}]}], ",", RowBox[{"i", "\[LessEqual]", "n"}], ",", RowBox[{"i", "++"}], ",", RowBox[{"If", "[", " ", RowBox[{ RowBox[{ RowBox[{"Dij", "[", RowBox[{"[", RowBox[{"i", ",", "j"}], "]"}], "]"}], "\[NotEqual]", "0"}], " ", ",", RowBox[{ RowBox[{"cnt", "[", RowBox[{"[", "j", "]"}], "]"}], "=", RowBox[{ RowBox[{"cnt", "[", RowBox[{"[", "j", "]"}], "]"}], "+", "1"}]}], ",", "0"}], "]"}]}], "]"}]}], "]"}], ";"}], "\[IndentingNewLine]", "cnt"}]}]], "Input", CellChangeTimes->{{3.5688800293771057`*^9, 3.5688801774057655`*^9}, { 3.5688802290574565`*^9, 3.568880330208034*^9}, {3.5688803807053227`*^9, 3.5688804136525807`*^9}, 3.568880491434317*^9, 3.5688805648948464`*^9, { 3.5688806280437574`*^9, 3.568880655234605*^9}, {3.568880712424306*^9, 3.568880716324312*^9}, {3.5688808087544746`*^9, 3.568880827786508*^9}, 3.5688808733385878`*^9, {3.568881358936241*^9, 3.5688813959239063`*^9}, { 3.568881446561595*^9, 3.5688815849182377`*^9}, {3.5688816223739033`*^9, 3.568881642607139*^9}, 3.568881728953291*^9, {3.568881797624612*^9, 3.568881809870633*^9}, 3.568881863612727*^9, {3.568883098916497*^9, 3.5688831014749017`*^9}, {3.56888372124679*^9, 3.568883843239004*^9}, 3.568888211750622*^9, {3.5688882521546926`*^9, 3.5688885232519693`*^9}, { 3.5688885890840845`*^9, 3.5688885895052853`*^9}, {3.568888675773437*^9, 3.5688886914514647`*^9}, {3.568888736285943*^9, 3.5688887717760057`*^9}, { 3.5688888256429005`*^9, 3.5688888541441507`*^9}, {3.568892442649892*^9, 3.5688924499507046`*^9}, {3.568892758441247*^9, 3.5688927597360487`*^9}, { 3.5688928234309607`*^9, 3.5688928379389863`*^9}, {3.5708938149488974`*^9, 3.5708938463361526`*^9}, {3.570893920483083*^9, 3.5708939282050962`*^9}, { 3.570894700000852*^9, 3.570894821930666*^9}, 3.5709437180911617`*^9, { 3.57252947817727*^9, 3.572529509876525*^9}, {3.5725312638188057`*^9, 3.572531289964452*^9}}], Cell[BoxData[ RowBox[{"{", RowBox[{ "3", ",", "0", ",", "1", ",", "0", ",", "0", ",", "0", ",", "0", ",", "1", ",", "1", ",", "0", ",", "1", ",", "1", ",", "1", ",", "1", ",", "0", ",", "1", ",", "1"}], "}"}]], "Output", CellChangeTimes->{ 3.574335298902337*^9, 3.5743387960421877`*^9, 3.57434007281083*^9, 3.5743410044132667`*^9, 3.5743410884038143`*^9, 3.5743411654367495`*^9, { 3.5743412376960764`*^9, 3.574341265370525*^9}, {3.5743412980993824`*^9, 3.574341324057828*^9}, 3.5743415280905867`*^9, 3.5800583381789885`*^9}] }, Open ]], Cell[BoxData[ RowBox[{ RowBox[{"(*", " ", RowBox[{ RowBox[{"parse", " ", "into", " ", "prim"}], ",", " ", "sec", ",", " ", "tert", ",", " ", RowBox[{ "and", " ", "quart", " ", "C", " ", "cores", " ", "with", " ", "different", " ", "radii"}]}], " ", "*)"}], "\[IndentingNewLine]", RowBox[{ RowBox[{ RowBox[{"n1", "=", "0"}], ";", " ", RowBox[{"n2", "=", "0"}], ";", " ", RowBox[{"n3", "=", "0"}], ";", " ", RowBox[{"n4", "=", "0"}], ";"}], "\n", RowBox[{ RowBox[{"For", "[", RowBox[{ RowBox[{"i", "=", "1"}], ",", RowBox[{"i", "\[LessEqual]", "nc"}], ",", RowBox[{"i", "++"}], ",", "\[IndentingNewLine]", RowBox[{"If", "[", RowBox[{ RowBox[{ RowBox[{"cnt", "[", RowBox[{"[", "i", "]"}], "]"}], "\[Equal]", "3"}], ",", RowBox[{ RowBox[{"n1", "=", RowBox[{"n1", "+", "1"}]}], ";", RowBox[{ RowBox[{"pri", "[", RowBox[{"[", "n1", "]"}], "]"}], "=", "i"}]}], ",", "\[IndentingNewLine]", RowBox[{"If", "[", RowBox[{ RowBox[{ RowBox[{"cnt", "[", RowBox[{"[", "i", "]"}], "]"}], "\[Equal]", "2"}], ",", RowBox[{ RowBox[{"n2", "=", RowBox[{"n2", "+", "1"}]}], ";", RowBox[{ RowBox[{"sec", "[", RowBox[{"[", "n2", "]"}], "]"}], "=", "i"}]}], ",", "\[IndentingNewLine]", RowBox[{"If", "[", RowBox[{ RowBox[{ RowBox[{"cnt", "[", RowBox[{"[", "i", "]"}], "]"}], "\[Equal]", "1"}], ",", RowBox[{ RowBox[{"n3", "=", RowBox[{"n3", "+", "1"}]}], ";", RowBox[{ RowBox[{"ter", "[", RowBox[{"[", "n3", "]"}], "]"}], "=", "i"}]}], ",", "\[IndentingNewLine]", RowBox[{"If", "[", RowBox[{ RowBox[{ RowBox[{"cnt", "[", RowBox[{"[", "i", "]"}], "]"}], "=", "0"}], ",", RowBox[{ RowBox[{"n4", "=", RowBox[{"n4", "+", "1"}]}], ";", RowBox[{ RowBox[{"qua", "[", RowBox[{"[", "n4", "]"}], "]"}], "=", "i"}]}]}], "]"}]}], "]"}]}], "]"}]}], "]"}]}], "]"}], ";"}], "\[IndentingNewLine]", RowBox[{"For", " ", "[", RowBox[{ RowBox[{"i", "=", "1"}], ",", " ", RowBox[{"i", "\[LessEqual]", "nc"}], ",", RowBox[{"i", "++"}], ",", RowBox[{"If", "[", RowBox[{ RowBox[{ RowBox[{"pri", "[", RowBox[{"[", "i", "]"}], "]"}], "\[NotEqual]", "0"}], ",", RowBox[{ RowBox[{"u2", "[", RowBox[{"[", RowBox[{"pri", "[", RowBox[{"[", "i", "]"}], "]"}], "]"}], "]"}], "=", "0.2572"}]}], "]"}]}], "]"}], "\[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.2556"}]}], "]"}]}], "]"}], "\[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.257"}]}], "]"}]}], "]"}], "\[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.257"}]}], "]"}]}], "]"}]}]}]], "Input", CellChangeTimes->{{3.5688800293771057`*^9, 3.5688801774057655`*^9}, { 3.5688802290574565`*^9, 3.568880330208034*^9}, {3.5688803807053227`*^9, 3.5688804136525807`*^9}, 3.568880491434317*^9, 3.5688805648948464`*^9, { 3.5688806280437574`*^9, 3.568880655234605*^9}, {3.568880712424306*^9, 3.568880716324312*^9}, {3.5688808087544746`*^9, 3.568880827786508*^9}, 3.5688808733385878`*^9, {3.568881358936241*^9, 3.5688813959239063`*^9}, { 3.568881446561595*^9, 3.5688815849182377`*^9}, {3.5688816223739033`*^9, 3.568881642607139*^9}, 3.568881728953291*^9, {3.568881797624612*^9, 3.568881809870633*^9}, 3.568881863612727*^9, {3.568883098916497*^9, 3.5688831014749017`*^9}, {3.56888372124679*^9, 3.568883843239004*^9}, 3.568888211750622*^9, {3.5688882521546926`*^9, 3.5688885232519693`*^9}, { 3.5688885890840845`*^9, 3.5688885895052853`*^9}, {3.568888675773437*^9, 3.5688886914514647`*^9}, {3.568888736285943*^9, 3.5688887717760057`*^9}, { 3.5688888256429005`*^9, 3.5688888541441507`*^9}, {3.568892442649892*^9, 3.5688924499507046`*^9}, {3.568892758441247*^9, 3.5688927597360487`*^9}, { 3.5688928234309607`*^9, 3.5688928379389863`*^9}, {3.5708938149488974`*^9, 3.5708938463361526`*^9}, {3.570893920483083*^9, 3.5708939282050962`*^9}, { 3.570894700000852*^9, 3.5708948169698577`*^9}, {3.570894956839703*^9, 3.5708949736409326`*^9}, {3.5708961320833673`*^9, 3.570896139696181*^9}, 3.570896314088887*^9, {3.5708963602181683`*^9, 3.5708963666609793`*^9}, { 3.570896482038782*^9, 3.570896483645585*^9}, {3.5708965159376416`*^9, 3.570896521194851*^9}, {3.5709435995777535`*^9, 3.5709436285158043`*^9}, { 3.5709436695594764`*^9, 3.5709437026783347`*^9}, {3.57094471360691*^9, 3.5709447144805117`*^9}, {3.571117678992402*^9, 3.571117755775737*^9}, { 3.571117807801828*^9, 3.5711178311706696`*^9}, {3.5711179386236577`*^9, 3.5711179514468803`*^9}, {3.5711180538922606`*^9, 3.5711181329531994`*^9}, {3.571118284803866*^9, 3.5711183600895977`*^9}, 3.571118418542901*^9, {3.5711187358786583`*^9, 3.571118760152301*^9}, { 3.5711189251069903`*^9, 3.571118931175401*^9}, {3.571119065756838*^9, 3.571119069968845*^9}, {3.5711191828038435`*^9, 3.5711191858302484`*^9}, { 3.571119378740187*^9, 3.571119441873498*^9}, {3.571119489453582*^9, 3.5711194938839893`*^9}, {3.571119574255331*^9, 3.571119584660549*^9}, { 3.5711196943599415`*^9, 3.5711197163091803`*^9}, {3.5711198294561787`*^9, 3.5711198460078077`*^9}, {3.5711199544435987`*^9, 3.571119960418409*^9}, { 3.57112005791858*^9, 3.5711200601337843`*^9}, {3.571122132488224*^9, 3.5711221772447023`*^9}, {3.5711222335764017`*^9, 3.571122265696858*^9}, { 3.5711223339157777`*^9, 3.5711223418093915`*^9}, {3.5711223939602833`*^9, 3.5711223957542863`*^9}, {3.571122528292119*^9, 3.571122529087721*^9}, { 3.5711226076026583`*^9, 3.5711226245598884`*^9}, 3.5711226547927413`*^9, { 3.571122698566418*^9, 3.571122702404025*^9}, {3.5711227857393713`*^9, 3.5711228031646023`*^9}, {3.571122843085072*^9, 3.5711228432878723`*^9}, { 3.5711232359405622`*^9, 3.571123255206596*^9}, 3.571123320991912*^9, { 3.5711233774484105`*^9, 3.5711234457765303`*^9}, {3.571123624911645*^9, 3.571123633975261*^9}, {3.571123734751438*^9, 3.5711237424110518`*^9}, { 3.5711242010206575`*^9, 3.5711242671491733`*^9}, {3.5711245724573097`*^9, 3.5711245843601303`*^9}, {3.571124620583394*^9, 3.5711246628750687`*^9}, { 3.571124751951225*^9, 3.5711247552428303`*^9}, {3.5711248069569216`*^9, 3.5711248951750765`*^9}, {3.5711250701761837`*^9, 3.5711251099562535`*^9}, 3.571125196598806*^9, 3.571135972980551*^9, {3.5711360048826065`*^9, 3.571136013634222*^9}, {3.571760985057314*^9, 3.5717610088005557`*^9}, { 3.5717610576442413`*^9, 3.571761063431852*^9}, {3.5725287590472064`*^9, 3.5725287902628613`*^9}, {3.572529030674884*^9, 3.572529042343704*^9}, { 3.572529556645407*^9, 3.5725296188271165`*^9}, {3.572529678793622*^9, 3.5725297125832815`*^9}, 3.572529766184975*^9, 3.5725298594731393`*^9, { 3.572529901374813*^9, 3.5725299376604767`*^9}, {3.572531381084212*^9, 3.5725313843134174`*^9}, {3.572537228892798*^9, 3.572537235429209*^9}, { 3.572537287814101*^9, 3.5725373101221404`*^9}, {3.5725380504682407`*^9, 3.5725382242837462`*^9}, {3.572538261053011*^9, 3.572538276590638*^9}, { 3.5725383120339003`*^9, 3.5725383418611526`*^9}, {3.5725384271465025`*^9, 3.57253845404095*^9}, {3.572538956424232*^9, 3.5725390373103743`*^9}, { 3.572539306644847*^9, 3.5725394512103014`*^9}, {3.5725395463080683`*^9, 3.572539593981752*^9}, {3.5725398474041967`*^9, 3.5725398481529984`*^9}, { 3.572541676133009*^9, 3.572541712605873*^9}, {3.5725419267942495`*^9, 3.572541927823851*^9}, {3.5725420320164337`*^9, 3.572542068317698*^9}, { 3.572542098675351*^9, 3.5725421006877546`*^9}, {3.572542267561248*^9, 3.5725423059217153`*^9}, {3.5726066153250785`*^9, 3.5726066318455076`*^9}, {3.5726084389526815`*^9, 3.5726084422286873`*^9}, {3.5726211211499004`*^9, 3.5726211269999104`*^9}, 3.572624425506504*^9, 3.5726245538167295`*^9, {3.5740888464626713`*^9, 3.5740888580378923`*^9}, {3.5740889171463957`*^9, 3.5740889398288355`*^9}, {3.57408900495895*^9, 3.574089019732176*^9}, { 3.574089077031077*^9, 3.5740890848310905`*^9}, {3.574089123472358*^9, 3.57408913014917*^9}, {3.574089171302042*^9, 3.5740891719572434`*^9}, { 3.5740892687866135`*^9, 3.574089271391818*^9}, {3.574227108071917*^9, 3.574227115525343*^9}, {3.5742271744657145`*^9, 3.5742271817051287`*^9}, { 3.5743410750969906`*^9, 3.5743410822730036`*^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", ",", "nc"}], "}"}], ",", RowBox[{"{", RowBox[{"j", ",", "1", ",", "nc"}], "}"}]}], "]"}]}], ";"}], "\[IndentingNewLine]", RowBox[{"CD", "=", RowBox[{"Select", "[", RowBox[{ RowBox[{"Flatten", "[", "Eij", "]"}], ",", RowBox[{ RowBox[{"(", RowBox[{ RowBox[{"#", "\[GreaterEqual]", "2.4"}], " ", "&&", RowBox[{"#", "\[LessEqual]", "2.73"}]}], ")"}], " ", "&"}]}], "]"}]}], "\[IndentingNewLine]", RowBox[{ RowBox[{"Mean", "[", "CD", "]"}], " ", "\[PlusMinus]", " ", RowBox[{"StandardDeviation", "[", "CD", "]"}]}]}], "Input", CellChangeTimes->{{3.5711447475554733`*^9, 3.5711448173314643`*^9}, { 3.5711448756027975`*^9, 3.57114492740276*^9}, {3.5711449591545763`*^9, 3.5711450128426466`*^9}, 3.571145059034289*^9, {3.571145091643154*^9, 3.5711451544367456`*^9}, {3.5711457670857873`*^9, 3.571145777413378*^9}, { 3.571145816908637*^9, 3.5711458203728347`*^9}, {3.571145995427848*^9, 3.571146043099574*^9}, {3.571146121580063*^9, 3.571146129714528*^9}, { 3.5711468466695356`*^9, 3.571146852041843*^9}, {3.5711478420384674`*^9, 3.571147850085928*^9}, {3.57114788911016*^9, 3.571147906822173*^9}, 3.571148086181432*^9, {3.571148123252552*^9, 3.5711481317480383`*^9}, { 3.571148234499915*^9, 3.57114834630731*^9}, 3.571151990091008*^9, { 3.5712017864539623`*^9, 3.5712018128960094`*^9}, {3.5712024819499846`*^9, 3.5712024821527843`*^9}, {3.571202538780884*^9, 3.5712025389368844`*^9}, { 3.5712028115629635`*^9, 3.5712028346354036`*^9}, {3.574134565351712*^9, 3.574134566646515*^9}, {3.574134676891908*^9, 3.5741346826639185`*^9}}], Cell[BoxData[ RowBox[{"{", RowBox[{ "2.6466084039541444`", ",", "2.677415784442149`", ",", "2.7204900650939683`", ",", "2.7095969604227816`", ",", "2.613091126145222`", ",", "2.7126535834958982`", ",", "2.696146055163116`", ",", "2.6924296091376103`", ",", "2.628544804090106`", ",", "2.681399600218938`", ",", "2.6869718542473766`", ",", "2.6330545158226513`", ",", "2.69629852286218`", ",", "2.661565945412328`", ",", "2.6853677174253843`", ",", "2.6432593046924864`"}], "}"}]], "Output", CellChangeTimes->{ 3.5743352989179373`*^9, 3.574338796057788*^9, 3.5743400728264303`*^9, 3.5743410044288664`*^9, 3.5743410884194145`*^9, 3.5743411654523497`*^9, { 3.5743412377116766`*^9, 3.574341265386125*^9}, {3.5743412981149826`*^9, 3.574341324073428*^9}, 3.5743415281061864`*^9, 3.580058338194989*^9}], Cell[BoxData[ RowBox[{"2.674055865789146`", "\[PlusMinus]", "0.03257427552266358`"}]], "Output", CellChangeTimes->{ 3.5743352989179373`*^9, 3.574338796057788*^9, 3.5743400728264303`*^9, 3.5743410044288664`*^9, 3.5743410884194145`*^9, 3.5743411654523497`*^9, { 3.5743412377116766`*^9, 3.574341265386125*^9}, {3.5743412981149826`*^9, 3.574341324073428*^9}, 3.5743415281061864`*^9, 3.580058338196989*^9}] }, Open ]], Cell[CellGroupData[{ Cell[BoxData[{ RowBox[{"CC", "=", RowBox[{"Select", "[", RowBox[{ RowBox[{"Flatten", "[", "Eij", "]"}], ",", RowBox[{ RowBox[{"(", RowBox[{"#", "\[GreaterEqual]", "2.73"}], ")"}], " ", "&"}]}], "]"}]}], "\n", RowBox[{ RowBox[{"Mean", "[", "CC", "]"}], " ", "\[PlusMinus]", " ", RowBox[{"StandardDeviation", "[", "CC", "]"}], " "}]}], "Input", CellChangeTimes->{{3.571152083381344*^9, 3.571152103920519*^9}, { 3.571200806148241*^9, 3.571200809159046*^9}, 3.571201865936102*^9, { 3.5712028396274123`*^9, 3.57120285544584*^9}, {3.5741345719505243`*^9, 3.574134573026926*^9}}], Cell[BoxData[ RowBox[{"{", RowBox[{"2.8605151788641447`", ",", "2.7467626101442204`"}], "}"}]], "Output", CellChangeTimes->{ 3.5743352989491377`*^9, 3.574338796073388*^9, 3.5743400728420305`*^9, 3.5743410044444666`*^9, 3.5743410884350142`*^9, 3.57434116546795*^9, { 3.5743412377116766`*^9, 3.574341265401725*^9}, {3.5743412981305823`*^9, 3.574341324089028*^9}, 3.574341528121786*^9, 3.58005833820699*^9}], Cell[BoxData[ RowBox[{"2.8036388945041826`", "\[PlusMinus]", "0.08043521271924725`"}]], "Output", CellChangeTimes->{ 3.5743352989491377`*^9, 3.574338796073388*^9, 3.5743400728420305`*^9, 3.5743410044444666`*^9, 3.5743410884350142`*^9, 3.57434116546795*^9, { 3.5743412377116766`*^9, 3.574341265401725*^9}, {3.5743412981305823`*^9, 3.574341324089028*^9}, 3.574341528121786*^9, 3.5800583382079897`*^9}] }, Open ]], Cell[CellGroupData[{ Cell[BoxData[{ RowBox[{ RowBox[{"Eij", "=", RowBox[{"Table", "[", RowBox[{ RowBox[{"If", "[", RowBox[{ RowBox[{"i", "\[GreaterEqual]", "j"}], ",", RowBox[{"Dij", "[", RowBox[{"[", RowBox[{"i", ",", "j"}], "]"}], "]"}], ",", "0"}], "]"}], ",", RowBox[{"{", RowBox[{"i", ",", RowBox[{"bc", "+", "1"}], ",", "n"}], "}"}], ",", RowBox[{"{", RowBox[{"j", ",", "1", ",", "nc"}], "}"}]}], "]"}]}], ";"}], "\[IndentingNewLine]", RowBox[{"CH", "=", RowBox[{"Select", "[", RowBox[{ RowBox[{"Flatten", "[", "Eij", "]"}], ",", RowBox[{ RowBox[{"(", RowBox[{ RowBox[{"#", ">", "0"}], " ", "&&", RowBox[{"#", "\[LessEqual]", "2.1"}]}], ")"}], " ", "&"}]}], "]"}]}], "\[IndentingNewLine]", RowBox[{ RowBox[{"Mean", "[", "CH", "]"}], " ", "\[PlusMinus]", " ", RowBox[{"StandardDeviation", "[", "CH", "]"}]}]}], "Input", CellChangeTimes->{{3.5688800293771057`*^9, 3.5688801774057655`*^9}, { 3.5688802290574565`*^9, 3.568880330208034*^9}, {3.5688803807053227`*^9, 3.5688804136525807`*^9}, 3.568880491434317*^9, 3.5688805648948464`*^9, { 3.5688806280437574`*^9, 3.568880655234605*^9}, {3.568880712424306*^9, 3.568880716324312*^9}, {3.5688808087544746`*^9, 3.568880827786508*^9}, 3.5688808733385878`*^9, {3.568881358936241*^9, 3.5688813959239063`*^9}, { 3.568881446561595*^9, 3.5688815849182377`*^9}, {3.5688816223739033`*^9, 3.568881642607139*^9}, 3.568881728953291*^9, {3.568881797624612*^9, 3.568881809870633*^9}, 3.568881863612727*^9, {3.568883098916497*^9, 3.5688831014749017`*^9}, {3.56888372124679*^9, 3.568883843239004*^9}, 3.568888211750622*^9, {3.5688882521546926`*^9, 3.5688885232519693`*^9}, { 3.5688885890840845`*^9, 3.5688885895052853`*^9}, {3.568888675773437*^9, 3.5688886914514647`*^9}, {3.568888736285943*^9, 3.5688887717760057`*^9}, { 3.5688888256429005`*^9, 3.5688888541441507`*^9}, {3.568892442649892*^9, 3.5688924499507046`*^9}, {3.568892758441247*^9, 3.5688927597360487`*^9}, { 3.5688928234309607`*^9, 3.5688928379389863`*^9}, {3.5708938149488974`*^9, 3.5708938463361526`*^9}, {3.570893920483083*^9, 3.5708939282050962`*^9}, { 3.570894700000852*^9, 3.57089481264865*^9}, {3.570973331551669*^9, 3.570973355887712*^9}, {3.5709734060886*^9, 3.5709734077266035`*^9}, 3.5709737061863275`*^9, {3.5712013634748197`*^9, 3.5712013661736245`*^9}, { 3.571201966837079*^9, 3.571202078205675*^9}, {3.5712022379343557`*^9, 3.5712022402275596`*^9}, {3.571202304764873*^9, 3.5712023101312823`*^9}, 3.571202353748959*^9, {3.5712024254310846`*^9, 3.5712024257586856`*^9}, { 3.57120276994209*^9, 3.5712027833893137`*^9}, {3.574134646315854*^9, 3.574134648952259*^9}}], Cell[BoxData[ RowBox[{"{", RowBox[{ "2.081129426874349`", ",", "2.0853582869809375`", ",", "2.0790166436960047`", ",", "2.0845169202276486`", ",", "2.0833732055750613`", ",", "2.085002471476146`", ",", "2.0863748157639326`", ",", "2.080853024232995`", ",", "2.08080126261184`", ",", "2.098707938742201`"}], "}"}]], "Output", CellChangeTimes->{ 3.5743352989491377`*^9, 3.574338796073388*^9, 3.5743400728420305`*^9, 3.574341004460067*^9, 3.574341088450614*^9, 3.5743411654835496`*^9, { 3.5743412377272763`*^9, 3.574341265417325*^9}, {3.574341298146182*^9, 3.574341324104628*^9}, 3.5743415281529865`*^9, 3.5800583382189903`*^9}], Cell[BoxData[ RowBox[{"2.0845133996181113`", "\[PlusMinus]", "0.00553821870794165`"}]], "Output", CellChangeTimes->{ 3.5743352989491377`*^9, 3.574338796073388*^9, 3.5743400728420305`*^9, 3.574341004460067*^9, 3.574341088450614*^9, 3.5743411654835496`*^9, { 3.5743412377272763`*^9, 3.574341265417325*^9}, {3.574341298146182*^9, 3.574341324104628*^9}, 3.5743415281529865`*^9, 3.5800583382219906`*^9}] }, Open ]], Cell[CellGroupData[{ Cell[BoxData[{ RowBox[{"For", "[", RowBox[{ RowBox[{"i", "=", "1"}], " ", ",", RowBox[{"i", "<", RowBox[{"n", "+", "1"}]}], ",", RowBox[{"i", "++"}], ",", "\[IndentingNewLine]", RowBox[{"For", "[", RowBox[{ RowBox[{"j", "=", "1"}], ",", " ", RowBox[{"j", "<", RowBox[{"bc", "+", "1"}]}], ",", RowBox[{"j", "++"}], ",", "\[IndentingNewLine]", RowBox[{"If", "[", RowBox[{ RowBox[{"(", RowBox[{ RowBox[{ RowBox[{"Dij", "[", RowBox[{"[", RowBox[{"i", ",", "j"}], "]"}], "]"}], "\[NotEqual]", "0"}], " ", "&&", " ", RowBox[{ RowBox[{"u", "[", RowBox[{"[", "i", "]"}], "]"}], "\[Equal]", " ", "\"\\""}]}], ")"}], ",", RowBox[{"If", "[", RowBox[{ RowBox[{ RowBox[{"u", "[", RowBox[{"[", "j", "]"}], "]"}], "\[Equal]", "\"\\""}], ",", RowBox[{ RowBox[{"u2", "[", RowBox[{"[", "i", "]"}], "]"}], "=", "0.5693"}], ",", RowBox[{"If", "[", RowBox[{ RowBox[{ RowBox[{"u", "[", RowBox[{"[", "j", "]"}], "]"}], "\[Equal]", "\"\\""}], ",", RowBox[{ RowBox[{"u2", "[", RowBox[{"[", "i", "]"}], "]"}], "=", "0.5"}], ",", RowBox[{"If", "[", RowBox[{ RowBox[{ RowBox[{"u", "[", RowBox[{"[", "j", "]"}], "]"}], "\[Equal]", "\"\\""}], ",", RowBox[{ RowBox[{"u2", "[", RowBox[{"[", "i", "]"}], "]"}], "=", "0.5541"}], ",", RowBox[{"If", "[", RowBox[{ RowBox[{ RowBox[{"u", "[", RowBox[{"[", "j", "]"}], "]"}], "\[Equal]", "\"\\""}], ",", RowBox[{ RowBox[{"u2", "[", RowBox[{"[", "i", "]"}], "]"}], "=", "0.5241"}]}], "]"}]}], "]"}]}], "]"}]}], "]"}]}], "]"}]}], "]"}]}], "]"}], "\[IndentingNewLine]", "u2"}], "Input", CellChangeTimes->{{3.5688800293771057`*^9, 3.5688801774057655`*^9}, { 3.5688802290574565`*^9, 3.568880330208034*^9}, {3.5688803807053227`*^9, 3.5688804136525807`*^9}, 3.568880491434317*^9, 3.5688805648948464`*^9, { 3.5688806280437574`*^9, 3.568880655234605*^9}, {3.568880712424306*^9, 3.568880716324312*^9}, {3.5688808087544746`*^9, 3.568880827786508*^9}, 3.5688808733385878`*^9, {3.568881358936241*^9, 3.5688813959239063`*^9}, { 3.568881446561595*^9, 3.5688815849182377`*^9}, {3.5688816223739033`*^9, 3.568881642607139*^9}, 3.568881728953291*^9, {3.568881797624612*^9, 3.568881809870633*^9}, 3.568881863612727*^9, {3.568883098916497*^9, 3.5688831014749017`*^9}, {3.56888372124679*^9, 3.568883843239004*^9}, 3.568888211750622*^9, {3.5688882521546926`*^9, 3.5688885232519693`*^9}, { 3.5688885890840845`*^9, 3.5688885895052853`*^9}, {3.568888675773437*^9, 3.5688886914514647`*^9}, {3.568888736285943*^9, 3.5688887717760057`*^9}, { 3.5688888256429005`*^9, 3.5688888541441507`*^9}, {3.568892442649892*^9, 3.5688924499507046`*^9}, {3.568892758441247*^9, 3.5688927597360487`*^9}, { 3.5688928234309607`*^9, 3.5688928379389863`*^9}, {3.5708938149488974`*^9, 3.5708938463361526`*^9}, {3.570893920483083*^9, 3.5708939282050962`*^9}, { 3.570894700000852*^9, 3.57089481264865*^9}, {3.570973331551669*^9, 3.570973355887712*^9}, {3.5709734060886*^9, 3.5709734077266035`*^9}, 3.5709737061863275`*^9, {3.5712013634748197`*^9, 3.5712013661736245`*^9}, { 3.571201966837079*^9, 3.5712020689392586`*^9}}], Cell[BoxData[ RowBox[{"{", RowBox[{ "0.2572`", ",", "0.255`", ",", "0.257`", ",", "0.255`", ",", "0.255`", ",", "0.255`", ",", "0.255`", ",", "0.257`", ",", "0.257`", ",", "0.255`", ",", "0.257`", ",", "0.257`", ",", "0.257`", ",", "0.257`", ",", "0.255`", ",", "0.257`", ",", "0.257`", ",", "0.22522`", ",", "0.22522`", ",", "0.178`", ",", "0.178`", ",", "0.5241`", ",", "0.5693`", ",", "0.5693`", ",", "0.5693`", ",", "0.5693`", ",", "0.5693`", ",", "0.5693`", ",", "0.5241`", ",", "0.5693`", ",", "0.5693`", ",", "0.5693`", ",", "0.5693`", ",", "0.5693`", ",", "0.5693`"}], "}"}]], "Output", CellChangeTimes->{ 3.5743352989647374`*^9, 3.5743387960889883`*^9, 3.5743400728576307`*^9, 3.574341004460067*^9, 3.574341088466214*^9, 3.5743411654991493`*^9, { 3.574341237742876*^9, 3.574341265432925*^9}, {3.5743412981617823`*^9, 3.574341324120228*^9}, 3.5743415281685867`*^9, 3.580058338233991*^9}] }, Open ]], Cell[BoxData[ RowBox[{ RowBox[{"(*", " ", RowBox[{ "subtract", " ", "core", " ", "radii", " ", "from", " ", "pair", " ", "distances"}], " ", "*)"}], "\[IndentingNewLine]", RowBox[{ RowBox[{ RowBox[{"Fij", "=", RowBox[{"Dij", "-", "u2"}]}], ";"}], "\[IndentingNewLine]", RowBox[{"(*", RowBox[{ RowBox[{"MatrixForm", "[", "Fij", "]"}], ";"}], "*)"}], "\[IndentingNewLine]", RowBox[{ RowBox[{"Gij", "=", RowBox[{"Table", "[", RowBox[{ RowBox[{"If", "[", RowBox[{ RowBox[{"i", "\[GreaterEqual]", "j"}], ",", RowBox[{"If", "[", RowBox[{ RowBox[{ RowBox[{"Fij", "[", RowBox[{"[", RowBox[{"i", ",", "j"}], "]"}], "]"}], ">", "0"}], ",", RowBox[{"Fij", "[", RowBox[{"[", RowBox[{"i", ",", "j"}], "]"}], "]"}], ",", "0"}], "]"}], ",", "\"\< \>\""}], "]"}], ",", RowBox[{"{", RowBox[{"i", ",", "1", ",", "n"}], "}"}], ",", RowBox[{"{", RowBox[{"j", ",", "1", ",", "n"}], "}"}]}], "]"}]}], ";"}], "\[IndentingNewLine]", RowBox[{"(*", RowBox[{ RowBox[{"MatrixForm", "[", "Gij", "]"}], ";"}], "*)"}]}]}]], "Input", CellChangeTimes->{{3.567958596890297*^9, 3.567958603270708*^9}, { 3.5679587604565845`*^9, 3.5679587707682023`*^9}, {3.5679588272871017`*^9, 3.567958828254304*^9}, {3.567959580066424*^9, 3.5679595814704266`*^9}, { 3.567959624994503*^9, 3.5679596300177116`*^9}, {3.5679597079086485`*^9, 3.567959902877791*^9}, {3.5679599961659546`*^9, 3.5679600446196404`*^9}, { 3.5679609611992497`*^9, 3.567960974006872*^9}, 3.567961975154231*^9, { 3.5679622637079377`*^9, 3.5679622945179915`*^9}, 3.5681142413606625`*^9, 3.568121878697276*^9, {3.5681219332193723`*^9, 3.56812197189184*^9}, { 3.5682778370003624`*^9, 3.5682778397927675`*^9}, {3.569341165522358*^9, 3.569341165537958*^9}, {3.5693418217531104`*^9, 3.5693418217531104`*^9}, { 3.57059671735485*^9, 3.570596744467697*^9}}], Cell[BoxData[{ RowBox[{ RowBox[{"Hij", "=", RowBox[{"Transpose", "[", "Gij", "]"}]}], ";"}], "\[IndentingNewLine]", RowBox[{ RowBox[{"(*", RowBox[{ RowBox[{"MatrixForm", "[", "Hij", "]"}], ";"}], "*)"}]}]}], "Input", CellChangeTimes->{{3.5679601758938704`*^9, 3.5679601965327067`*^9}, { 3.567960427147912*^9, 3.567960432217921*^9}, {3.5679605764089737`*^9, 3.5679605968294096`*^9}, {3.5679607389456596`*^9, 3.5679607643581038`*^9}, 3.5681142501278777`*^9, 3.5681218877140923`*^9, 3.569341165537958*^9, 3.5693418217531104`*^9}], Cell[BoxData[{ RowBox[{ RowBox[{ RowBox[{"Kij", "=", RowBox[{"Hij", "-", "u2"}]}], ";"}], "\[IndentingNewLine]", RowBox[{"(*", RowBox[{ RowBox[{"MatrixForm", "[", "Kij", "]"}], ";"}], "*)"}]}], "\[IndentingNewLine]", RowBox[{ RowBox[{"Lij", "=", RowBox[{"Table", "[", RowBox[{ RowBox[{"If", "[", RowBox[{ RowBox[{"i", "\[LessEqual]", "j"}], ",", RowBox[{"If", "[", RowBox[{ RowBox[{ RowBox[{"Kij", "[", RowBox[{"[", RowBox[{"i", ",", "j"}], "]"}], "]"}], ">", "0"}], ",", RowBox[{"Kij", "[", RowBox[{"[", RowBox[{"i", ",", "j"}], "]"}], "]"}], ",", "0"}], "]"}], ",", "\"\< \>\""}], "]"}], ",", RowBox[{"{", RowBox[{"i", ",", "1", ",", "n"}], "}"}], ",", RowBox[{"{", RowBox[{"j", ",", "1", ",", "n"}], "}"}]}], "]"}]}], ";"}], "\[IndentingNewLine]", RowBox[{ RowBox[{"(*", RowBox[{ RowBox[{"MatrixForm", "[", "Lij", "]"}], ";"}], "*)"}]}]}], "Input", CellChangeTimes->{{3.5679602339571724`*^9, 3.567960257419614*^9}, { 3.567960343406965*^9, 3.567960353500182*^9}, {3.5679604155258913`*^9, 3.567960421422702*^9}, {3.567960854323462*^9, 3.567960874197897*^9}, { 3.5679611596939983`*^9, 3.567961170270817*^9}, {3.5679614000124207`*^9, 3.567961407016833*^9}, {3.5679615066074076`*^9, 3.567961509649413*^9}, 3.5679616124379935`*^9, 3.5679616766477065`*^9, {3.5679617424486217`*^9, 3.5679617456310277`*^9}, 3.567961801276325*^9, {3.5679618582788253`*^9, 3.5679618970760937`*^9}, {3.5679620279135237`*^9, 3.567962030113127*^9}, 3.567962107894864*^9, {3.567962149468937*^9, 3.5679621572533503`*^9}, 3.5679623389156694`*^9, {3.567962645815009*^9, 3.567962648888214*^9}, { 3.567962691647889*^9, 3.567962693020692*^9}, {3.568048161486014*^9, 3.568048162827616*^9}, 3.5680482096900983`*^9, 3.5681142588638926`*^9, 3.568121899632513*^9, 3.5681219958534822`*^9, {3.568277844675576*^9, 3.5682778463603787`*^9}, {3.569341165537958*^9, 3.569341165537958*^9}, { 3.5693418217531104`*^9, 3.5693418217531104`*^9}}], Cell[BoxData[ RowBox[{ RowBox[{"(*", " ", RowBox[{"determine", " ", "bond", " ", "cloud", " ", "radii"}], " ", "*)"}], "\[IndentingNewLine]", RowBox[{ RowBox[{ RowBox[{"Lij", "=", RowBox[{"Table", "[", RowBox[{ RowBox[{"If", "[", RowBox[{ RowBox[{"i", "\[LessEqual]", "j"}], ",", RowBox[{"If", "[", RowBox[{ RowBox[{ RowBox[{"Lij", "[", RowBox[{"[", RowBox[{"i", ",", "j"}], "]"}], "]"}], ">", "0"}], ",", RowBox[{"If", "[", RowBox[{ RowBox[{ RowBox[{"u", "[", RowBox[{"[", "j", "]"}], "]"}], "\[NotEqual]", "\"\\""}], ",", RowBox[{"0.5", "*", RowBox[{"Lij", "[", RowBox[{"[", RowBox[{"i", ",", "j"}], "]"}], "]"}]}], ",", RowBox[{"Lij", "[", RowBox[{"[", RowBox[{"i", ",", "j"}], "]"}], "]"}]}], "]"}], ",", "0"}], "]"}], ",", "\"\< \>\""}], "]"}], ",", RowBox[{"{", RowBox[{"i", ",", "1", ",", "n"}], "}"}], ",", RowBox[{"{", RowBox[{"j", ",", "1", ",", "n"}], "}"}]}], "]"}]}], ";"}], " ", "\[IndentingNewLine]", RowBox[{ RowBox[{"Qij", "=", "Lij"}], ";"}], "\[IndentingNewLine]", RowBox[{"(*", RowBox[{ RowBox[{"MatrixForm", "[", "Lij", "]"}], ";"}], "*)"}]}]}]], "Input", CellChangeTimes->{{3.5679627617388124`*^9, 3.567962837461345*^9}, { 3.567963118121438*^9, 3.567963118698639*^9}, {3.5679631520670977`*^9, 3.5679631541731014`*^9}, {3.5679631898191643`*^9, 3.5679632154656096`*^9}, {3.5679635823158536`*^9, 3.56796361468591*^9}, { 3.567963691516045*^9, 3.567963693590849*^9}, {3.567963737957327*^9, 3.567963807299449*^9}, {3.568048114904332*^9, 3.5680481161835346`*^9}, 3.5680482221389203`*^9, {3.5680485003498087`*^9, 3.5680485123618298`*^9}, 3.5681142659931054`*^9, 3.5681219084621286`*^9, {3.568277848107582*^9, 3.5682778496519847`*^9}, {3.5683793122399254`*^9, 3.568379313019926*^9}, { 3.568379456758579*^9, 3.56837947986222*^9}, 3.5683796000760307`*^9, { 3.5683796473285136`*^9, 3.5683796831617765`*^9}, {3.568381744939398*^9, 3.5683817743298492`*^9}, {3.56846523720809*^9, 3.568465240218895*^9}, 3.569341165537958*^9, 3.5693418217531104`*^9, {3.5705967846533675`*^9, 3.5705968020785985`*^9}}], Cell[BoxData[ RowBox[{ RowBox[{"(*", " ", RowBox[{"determine", " ", "kinetic", " ", "energy"}], " ", "*)"}], "\[IndentingNewLine]", RowBox[{ RowBox[{ RowBox[{"Nij", "=", RowBox[{"Table", "[", RowBox[{ RowBox[{"If", "[", RowBox[{ RowBox[{"i", "\[LessEqual]", "j"}], ",", RowBox[{"If", "[", RowBox[{ RowBox[{ RowBox[{"Lij", "[", RowBox[{"[", RowBox[{"i", ",", "j"}], "]"}], "]"}], ">", "0"}], ",", RowBox[{"2.25", "/", RowBox[{ RowBox[{"Lij", "[", RowBox[{"[", RowBox[{"i", ",", "j"}], "]"}], "]"}], "^", "2"}]}], ",", "0"}], "]"}], ",", "\"\< \>\""}], "]"}], ",", RowBox[{"{", RowBox[{"i", ",", "1", ",", "n"}], "}"}], ",", RowBox[{"{", RowBox[{"j", ",", "1", ",", "n"}], "}"}]}], "]"}]}], ";"}], "\[IndentingNewLine]", RowBox[{"(*", RowBox[{"MatrixForm", "[", "Nij", "]"}], "*)"}]}]}]], "Input", CellChangeTimes->{{3.5679628944794455`*^9, 3.5679629710755796`*^9}, { 3.567963889963994*^9, 3.567963933800071*^9}, {3.5680478391738477`*^9, 3.5680478414358516`*^9}, 3.568048231171336*^9, {3.5680482823550262`*^9, 3.56804828449223*^9}, 3.5680483349271183`*^9, 3.568114273059918*^9, 3.5681219175101447`*^9, {3.568277851305588*^9, 3.568277857295998*^9}, { 3.5688722635742655`*^9, 3.568872266616271*^9}, 3.5688723032763357`*^9, 3.5688725225503206`*^9, 3.5692365125035076`*^9, {3.5692366381461277`*^9, 3.5692366389105296`*^9}, {3.5692366963654304`*^9, 3.5692366986898346`*^9}, 3.5693411655535583`*^9, 3.5693418217687106`*^9, {3.5705968460394754`*^9, 3.5705968602823005`*^9}}], Cell[CellGroupData[{ Cell[BoxData[ RowBox[{"Tval", "=", RowBox[{"Sum", "[", RowBox[{ RowBox[{"If", "[", RowBox[{ RowBox[{"i", "\[LessEqual]", "j"}], ",", RowBox[{"Nij", "[", RowBox[{"[", RowBox[{"i", ",", "j"}], "]"}], "]"}], ",", "0"}], "]"}], ",", RowBox[{"{", RowBox[{"i", ",", "1", ",", "n"}], "}"}], ",", RowBox[{"{", RowBox[{"j", ",", "1", ",", "n"}], "}"}]}], "]"}]}]], "Input", CellChangeTimes->{{3.567963992456174*^9, 3.567964003890994*^9}, { 3.5679640974287586`*^9, 3.5679642038209453`*^9}, {3.56796433180357*^9, 3.567964353487608*^9}, {3.567964403641696*^9, 3.567964453046983*^9}, { 3.5679646160984693`*^9, 3.5679646168316708`*^9}, {3.567964688747797*^9, 3.567964762255126*^9}, {3.568277859480002*^9, 3.568277863598409*^9}, { 3.568379511358675*^9, 3.5683795129030776`*^9}, 3.5688214977895346`*^9, { 3.56882774467134*^9, 3.56882781892747*^9}}], Cell[BoxData["64.458582867475`"], "Output", CellChangeTimes->{ 3.5743352989959373`*^9, 3.5743387961201878`*^9, 3.57434007288883*^9, 3.5743410044912667`*^9, 3.5743410884974146`*^9, 3.5743411655303497`*^9, { 3.5743412377740765`*^9, 3.574341265464125*^9}, {3.5743412981929827`*^9, 3.574341324151428*^9}, 3.5743415281997867`*^9, 3.580058338260993*^9}] }, Open ]], Cell[CellGroupData[{ Cell[BoxData[ RowBox[{"Tcor", "=", RowBox[{"Sum", "[", RowBox[{ RowBox[{"If", "[", RowBox[{ RowBox[{ RowBox[{"u", "[", RowBox[{"[", "i", "]"}], "]"}], "\[NotEqual]", "\"\\""}], ",", RowBox[{"2.25", "/", RowBox[{ RowBox[{"u2", "[", RowBox[{"[", "i", "]"}], "]"}], "^", "2"}]}], ",", "0"}], "]"}], ",", RowBox[{"{", RowBox[{"i", ",", "1", ",", "n"}], "}"}]}], "]"}]}]], "Input", CellChangeTimes->{ 3.5688724058309155`*^9, {3.568872452646598*^9, 3.568872478480243*^9}, { 3.5688764461756124`*^9, 3.5688764647552447`*^9}, {3.5692363452556133`*^9, 3.5692363456924143`*^9}, 3.569236415892538*^9, 3.5692365043134933`*^9}], Cell[BoxData["813.5605919058871`"], "Output", CellChangeTimes->{ 3.5743352990115376`*^9, 3.574338796135788*^9, 3.5743400729044304`*^9, 3.5743410045068665`*^9, 3.5743410884974146`*^9, 3.57434116554595*^9, { 3.5743412377896767`*^9, 3.574341265479725*^9}, {3.574341298208583*^9, 3.574341324151428*^9}, 3.5743415282153864`*^9, 3.5800583382719936`*^9}] }, Open ]], Cell[CellGroupData[{ Cell[BoxData[ RowBox[{"Ttot", "=", RowBox[{"Tval", "+", "Tcor", " ", RowBox[{"(*", " ", RowBox[{"plus", " ", "\[Pi]", " ", "and", " ", "lone", " ", RowBox[{"pairs", ":", " ", RowBox[{"+", " ", "8.7616"}]}]}], " ", "*)"}]}]}]], "Input", CellChangeTimes->{ 3.5688724058309155`*^9, {3.568872452646598*^9, 3.568872478480243*^9}, { 3.5688764461756124`*^9, 3.568876459248435*^9}, {3.568876733122516*^9, 3.5688767685033784`*^9}, {3.568895188410715*^9, 3.5688952349923964`*^9}}], Cell[BoxData["878.0191747733621`"], "Output", CellChangeTimes->{ 3.5743352990115376`*^9, 3.574338796151388*^9, 3.5743400729044304`*^9, 3.5743410045068665`*^9, 3.5743410885130143`*^9, 3.5743411655615497`*^9, { 3.5743412378052764`*^9, 3.574341265479725*^9}, {3.574341298208583*^9, 3.5743413241670284`*^9}, 3.5743415282309866`*^9, 3.580058338280994*^9}] }, Open ]], Cell[CellGroupData[{ Cell[BoxData[ RowBox[{"TvalH", "=", RowBox[{"Sum", "[", RowBox[{ RowBox[{"If", "[", RowBox[{ RowBox[{"(", RowBox[{ RowBox[{"i", "\[LessEqual]", "j"}], " ", "&&", " ", RowBox[{ RowBox[{"u", "[", RowBox[{"[", "j", "]"}], "]"}], "\[Equal]", " ", "\"\\""}]}], ")"}], ",", RowBox[{"Nij", "[", RowBox[{"[", RowBox[{"i", ",", "j"}], "]"}], "]"}], ",", "0"}], "]"}], ",", RowBox[{"{", RowBox[{"i", ",", "1", ",", "n"}], "}"}], ",", RowBox[{"{", RowBox[{"j", ",", "1", ",", "n"}], "}"}]}], "]"}]}]], "Input", CellChangeTimes->{ 3.5688724058309155`*^9, {3.568872452646598*^9, 3.568872478480243*^9}, { 3.5688764461756124`*^9, 3.568876459248435*^9}, {3.568876733122516*^9, 3.5688767642445707`*^9}}], Cell[BoxData["19.957158010608254`"], "Output", CellChangeTimes->{ 3.5743352990271378`*^9, 3.574338796151388*^9, 3.5743400729200306`*^9, 3.5743410045224667`*^9, 3.574341088528614*^9, 3.5743411655615497`*^9, { 3.5743412378208766`*^9, 3.574341265495325*^9}, {3.574341298224183*^9, 3.574341324182628*^9}, 3.574341528262187*^9, 3.580058338291995*^9}] }, Open ]], Cell[CellGroupData[{ Cell[BoxData[ RowBox[{"TvalC", "=", RowBox[{"Tval", "-", "TvalH"}]}]], "Input", CellChangeTimes->{{3.5688726088808727`*^9, 3.568872610581275*^9}, { 3.5688726952426243`*^9, 3.5688727146490583`*^9}}], Cell[BoxData["44.50142485686675`"], "Output", CellChangeTimes->{ 3.5743352990427375`*^9, 3.574338796166988*^9, 3.5743400729356303`*^9, 3.574341004538067*^9, 3.5743410885442142`*^9, 3.5743411655771494`*^9, { 3.5743412378208766`*^9, 3.5743412655109253`*^9}, {3.574341298239783*^9, 3.5743413241982284`*^9}, 3.5743415282777867`*^9, 3.580058338303995*^9}] }, Open ]], Cell[BoxData[{ RowBox[{ RowBox[{"Mij", "=", RowBox[{"Prepend", "[", RowBox[{"Qij", ",", "u"}], "]"}]}], ";"}], "\[IndentingNewLine]", RowBox[{ RowBox[{"Oij", "=", RowBox[{"Transpose", "[", "Mij", "]"}]}], ";"}], "\[IndentingNewLine]", RowBox[{ RowBox[{"Pij", "=", RowBox[{"Prepend", "[", RowBox[{"Oij", ",", RowBox[{"Prepend", "[", RowBox[{"u", ",", "\"\< \>\""}], "]"}]}], "]"}]}], ";"}]}], "Input", CellChangeTimes->{{3.568045828002715*^9, 3.56804588761042*^9}, 3.5680459828797874`*^9, {3.568046033938677*^9, 3.5680460518787084`*^9}, { 3.568046989190755*^9, 3.5680470284404235`*^9}, {3.568047061028881*^9, 3.568047085567724*^9}, {3.5680471562982483`*^9, 3.568047169199471*^9}, { 3.568047223393966*^9, 3.568047364059413*^9}, {3.568047417286707*^9, 3.5680474225127163`*^9}, {3.5680474583459787`*^9, 3.568047487861231*^9}, { 3.5680475345521126`*^9, 3.5680475468605347`*^9}, {3.5680479168775845`*^9, 3.5680479311516094`*^9}, {3.568048066918648*^9, 3.568048067667449*^9}, { 3.5680483816336*^9, 3.5680483930216208`*^9}, {3.568048424159275*^9, 3.568048450211321*^9}, {3.5680486326224413`*^9, 3.5680486370996494`*^9}, { 3.5680487358166227`*^9, 3.5680487967191296`*^9}, 3.568048834377596*^9, 3.568048984418659*^9, {3.5680490255559316`*^9, 3.5680490790796256`*^9}, { 3.5680491274553103`*^9, 3.5680491280949116`*^9}, {3.5680491782333994`*^9, 3.568049231944294*^9}, {3.568049361533722*^9, 3.5680493691933355`*^9}, { 3.568049422171028*^9, 3.568049427490638*^9}, {3.568049476427923*^9, 3.5680495489368505`*^9}, {3.568049620634577*^9, 3.5680496274361887`*^9}, { 3.5680496655314555`*^9, 3.568049693876705*^9}, 3.568049746573598*^9, { 3.568049846460573*^9, 3.568049932759925*^9}, {3.568050009059659*^9, 3.5680500167348723`*^9}, {3.5680501572755194`*^9, 3.568050179911159*^9}, 3.5681087021497335`*^9, {3.5726244549749556`*^9, 3.5726244687341795`*^9}, 3.572624583643982*^9}], Cell[CellGroupData[{ Cell[BoxData[{ RowBox[{ RowBox[{"con", "=", RowBox[{"Table", "[", RowBox[{ RowBox[{"{", "i", "}"}], ",", RowBox[{"{", RowBox[{"i", ",", "1", ",", "n"}], "}"}]}], "]"}]}], ";", " ", RowBox[{"conj", "=", RowBox[{"Table", "[", RowBox[{"0", ",", RowBox[{"{", "nc", "}"}]}], "]"}]}], ";"}], "\[IndentingNewLine]", RowBox[{ RowBox[{"For", "[", RowBox[{ RowBox[{"i", "=", "1"}], ",", RowBox[{"i", "\[LessEqual]", "n"}], ",", RowBox[{"i", "++"}], ",", "\[IndentingNewLine]", RowBox[{"For", "[", RowBox[{ RowBox[{"j", "=", "1"}], ",", RowBox[{"j", "\[LessEqual]", "n"}], ",", RowBox[{"j", "++"}], ",", RowBox[{"If", "[", " ", RowBox[{ RowBox[{ RowBox[{"Dij", "[", RowBox[{"[", RowBox[{"i", ",", "j"}], "]"}], "]"}], "\[NotEqual]", "0"}], " ", ",", RowBox[{ RowBox[{"con", "[", RowBox[{"[", "i", "]"}], "]"}], "=", RowBox[{"{", RowBox[{ RowBox[{"con", "[", RowBox[{"[", "i", "]"}], "]"}], ",", "j"}], "}"}]}]}], "]"}]}], "]"}]}], "]"}], ";"}], "\[IndentingNewLine]", RowBox[{ RowBox[{ RowBox[{"conn", "=", RowBox[{"Table", "[", RowBox[{ RowBox[{"Flatten", "[", RowBox[{"con", "[", RowBox[{"[", "i", "]"}], "]"}], "]"}], ",", RowBox[{"{", RowBox[{"i", ",", "1", ",", "n"}], "}"}]}], "]"}]}], ";"}], "\[IndentingNewLine]", RowBox[{"(*", " ", RowBox[{ "identify", " ", "C", " ", "atoms", " ", "at", " ", "double", " ", "bonds"}], " ", "*)"}]}], "\[IndentingNewLine]", RowBox[{ RowBox[{"j", "=", "0"}], ";"}], "\[IndentingNewLine]", RowBox[{ RowBox[{"For", "[", RowBox[{ RowBox[{"i", "=", "1"}], ",", RowBox[{"i", "\[LessEqual]", "nc"}], ",", RowBox[{"i", "++"}], ",", RowBox[{"If", "[", RowBox[{ RowBox[{ RowBox[{"Length", "[", RowBox[{"conn", "[", RowBox[{"[", "i", "]"}], "]"}], "]"}], "\[Equal]", "4"}], ",", RowBox[{ RowBox[{"j", "=", RowBox[{"j", "+", "1"}]}], ";", RowBox[{ RowBox[{"conj", "[", RowBox[{"[", "j", "]"}], "]"}], "=", "i"}]}]}], "]"}]}], "]"}], ";"}], "\[IndentingNewLine]", RowBox[{"conj", "=", RowBox[{"Take", "[", RowBox[{"conj", ",", RowBox[{"{", RowBox[{"1", ",", "j"}], "}"}]}], "]"}]}], "\[IndentingNewLine]", RowBox[{ RowBox[{"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}}], Cell[BoxData[ RowBox[{"{", RowBox[{ "2", ",", "3", ",", "4", ",", "5", ",", "6", ",", "7", ",", "8", ",", "9", ",", "10", ",", "11", ",", "12", ",", "13", ",", "14", ",", "15", ",", "16", ",", "17"}], "}"}]], "Output", CellChangeTimes->{ 3.5743352990583377`*^9, 3.574338796182588*^9, 3.5743400729512305`*^9, 3.574341004553667*^9, 3.5743410885598145`*^9, 3.57434116560835*^9, { 3.5743412378520765`*^9, 3.5743412655265255`*^9}, {3.5743412982553825`*^9, 3.574341324213828*^9}, 3.5743415282933865`*^9, 3.5800583383199964`*^9}], Cell[BoxData[ TagBox[ RowBox[{"(", "\[NoBreak]", TagBox[GridBox[{ { RowBox[{"{", RowBox[{"1", ",", "2", ",", "33", ",", "34", ",", "35"}], "}"}]}, { RowBox[{"{", RowBox[{"2", ",", "1", ",", "3", ",", "17"}], "}"}]}, { RowBox[{"{", RowBox[{"3", ",", "2", ",", "4", ",", "32"}], "}"}]}, { RowBox[{"{", RowBox[{"4", ",", "3", ",", "15", ",", "18"}], "}"}]}, { RowBox[{"{", RowBox[{"5", ",", "6", ",", "10", ",", "19"}], "}"}]}, { RowBox[{"{", RowBox[{"6", ",", "5", ",", "7", ",", "14"}], "}"}]}, { RowBox[{"{", RowBox[{"7", ",", "6", ",", "8", ",", "11"}], "}"}]}, { RowBox[{"{", RowBox[{"8", ",", "7", ",", "9", ",", "24"}], "}"}]}, { RowBox[{"{", RowBox[{"9", ",", "8", ",", "10", ",", "23"}], "}"}]}, { RowBox[{"{", RowBox[{"10", ",", "5", ",", "9", ",", "20"}], "}"}]}, { RowBox[{"{", RowBox[{"11", ",", "7", ",", "12", ",", "28"}], "}"}]}, { RowBox[{"{", RowBox[{"12", ",", "11", ",", "13", ",", "27"}], "}"}]}, { RowBox[{"{", RowBox[{"13", ",", "12", ",", "14", ",", "26"}], "}"}]}, { RowBox[{"{", RowBox[{"14", ",", "6", ",", "13", ",", "25"}], "}"}]}, { RowBox[{"{", RowBox[{"15", ",", "4", ",", "16", ",", "21"}], "}"}]}, { RowBox[{"{", RowBox[{"16", ",", "15", ",", "17", ",", "31"}], "}"}]}, { RowBox[{"{", RowBox[{"17", ",", "2", ",", "16", ",", "30"}], "}"}]}, { RowBox[{"{", RowBox[{"18", ",", "4", ",", "19"}], "}"}]}, { RowBox[{"{", RowBox[{"19", ",", "5", ",", "18"}], "}"}]}, { RowBox[{"{", RowBox[{"20", ",", "10", ",", "22"}], "}"}]}, { RowBox[{"{", RowBox[{"21", ",", "15", ",", "29"}], "}"}]}, { RowBox[{"{", RowBox[{"22", ",", "20"}], "}"}]}, { RowBox[{"{", RowBox[{"23", ",", "9"}], "}"}]}, { RowBox[{"{", RowBox[{"24", ",", "8"}], "}"}]}, { RowBox[{"{", RowBox[{"25", ",", "14"}], "}"}]}, { RowBox[{"{", RowBox[{"26", ",", "13"}], "}"}]}, { RowBox[{"{", RowBox[{"27", ",", "12"}], "}"}]}, { RowBox[{"{", RowBox[{"28", ",", "11"}], "}"}]}, { RowBox[{"{", RowBox[{"29", ",", "21"}], "}"}]}, { RowBox[{"{", RowBox[{"30", ",", "17"}], "}"}]}, { RowBox[{"{", RowBox[{"31", ",", "16"}], "}"}]}, { RowBox[{"{", RowBox[{"32", ",", "3"}], "}"}]}, { RowBox[{"{", RowBox[{"33", ",", "1"}], "}"}]}, { RowBox[{"{", RowBox[{"34", ",", "1"}], "}"}]}, { RowBox[{"{", RowBox[{"35", ",", "1"}], "}"}]} }, 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.5743352990583377`*^9, 3.574338796182588*^9, 3.5743400729512305`*^9, 3.574341004553667*^9, 3.5743410885598145`*^9, 3.57434116560835*^9, { 3.5743412378520765`*^9, 3.5743412655265255`*^9}, {3.5743412982553825`*^9, 3.574341324213828*^9}, 3.5743415282933865`*^9, 3.5800583383219967`*^9}] }, Open ]], Cell[BoxData[{ RowBox[{ RowBox[{ RowBox[{"Clear", "[", RowBox[{ "c", ",", "v", ",", "p", ",", "Q", ",", "P", ",", "v1", ",", "v2", ",", "nk", ",", "nl"}], "]"}], ";"}], " ", RowBox[{"(*", RowBox[{ RowBox[{"c1", "=", "20"}], ";", " ", RowBox[{"c2", "=", "21"}], ";", " ", RowBox[{"c3", "=", "51"}], ";"}], "*)"}], " "}], "\[IndentingNewLine]", RowBox[{ RowBox[{"rpo", "=", "1.4"}], ";"}], "\[IndentingNewLine]", RowBox[{ RowBox[{"rpi", "=", "1.4"}], ";"}], "\[IndentingNewLine]", RowBox[{ RowBox[{"tpo", "=", RowBox[{"Table", "[", RowBox[{ RowBox[{"{", RowBox[{"0", ",", "0", ",", "0"}], "}"}], ",", RowBox[{"{", RowBox[{"nj", "+", "2"}], "}"}]}], "]"}]}], ";"}], "\[IndentingNewLine]", RowBox[{ RowBox[{"tpu", "=", RowBox[{"Table", "[", RowBox[{ RowBox[{"{", RowBox[{"0", ",", "0", ",", "0"}], "}"}], ",", RowBox[{"{", RowBox[{"nj", "+", "2"}], "}"}]}], "]"}]}], ";"}], "\[IndentingNewLine]", RowBox[{ RowBox[{ RowBox[{"P", "=", "3"}], ";", " ", RowBox[{"c", "=", RowBox[{"{", RowBox[{"0", ",", "0", ",", "0", ",", "0", ",", "0"}], "}"}]}], ";"}], " ", "\[IndentingNewLine]", RowBox[{"(*", RowBox[{"--", RowBox[{"--", RowBox[{"--", RowBox[{"--", RowBox[{"--", RowBox[{"--", RowBox[{"--", RowBox[{"--", RowBox[{"--", RowBox[{"--", RowBox[{"--", RowBox[{"--", RowBox[{"--", RowBox[{"--", RowBox[{"--", RowBox[{"--", RowBox[{"--", RowBox[{"--", RowBox[{"--", RowBox[{"--", RowBox[{"--", RowBox[{"--", RowBox[{"--", RowBox[{"--", RowBox[{"--", RowBox[{"--", RowBox[{"--", RowBox[{"--", RowBox[{"--", RowBox[{"--", RowBox[{"--", RowBox[{"--", RowBox[{"--", RowBox[{"--", RowBox[{"--", RowBox[{ "--", "--"}]}]}]}]}]}]}]}]}]}]}]}]}]}]}]}]}]}]}]}]}]}]}]}]\ }]}]}]}]}]}]}]}]}]}]}]}], "*)"}]}], "\[IndentingNewLine]", RowBox[{ RowBox[{"(*", " ", RowBox[{ "construct", " ", "the", " ", "\[Pi]", " ", "clouds", " ", "for", " ", "C", " ", "atoms"}], " ", "*)"}]}]}], "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.5740881383930283`*^9, 3.5740881415442333`*^9}, {3.574133050043051*^9, 3.5741330901351213`*^9}, {3.574133304276697*^9, 3.5741333056182995`*^9}, { 3.5741334325089226`*^9, 3.5741334353481274`*^9}}], Cell[BoxData[ RowBox[{ RowBox[{"Do", "[", RowBox[{ RowBox[{"(", RowBox[{ RowBox[{"c", "=", RowBox[{"conn", "[", RowBox[{"[", RowBox[{"conj", "[", RowBox[{"[", "k", "]"}], "]"}], "]"}], "]"}]}], ";", "\n", RowBox[{"c", "=", RowBox[{"Take", "[", RowBox[{"c", ",", "P"}], "]"}]}], ";", "\n", RowBox[{"v", "=", RowBox[{"Table", "[", RowBox[{ RowBox[{"Join", "[", RowBox[{ RowBox[{"t", "[", RowBox[{"[", RowBox[{"c", "[", RowBox[{"[", "i", "]"}], "]"}], "]"}], "]"}], ",", RowBox[{"{", "1", "}"}]}], "]"}], ",", RowBox[{"{", RowBox[{"i", ",", "1", ",", "P"}], "}"}]}], "]"}]}], ";", "\n", RowBox[{"x2", "=", RowBox[{"t", "[", RowBox[{"[", RowBox[{ RowBox[{"c", "[", RowBox[{"[", "2", "]"}], "]"}], ",", "1"}], "]"}], "]"}]}], ";", "\[IndentingNewLine]", RowBox[{"y2", "=", RowBox[{"t", "[", RowBox[{"[", RowBox[{ RowBox[{"c", "[", RowBox[{"[", "2", "]"}], "]"}], ",", "2"}], "]"}], "]"}]}], ";", " ", "\[IndentingNewLine]", RowBox[{"z2", "=", RowBox[{"t", "[", RowBox[{"[", RowBox[{ RowBox[{"c", "[", RowBox[{"[", "2", "]"}], "]"}], ",", "3"}], "]"}], "]"}]}], ";", "\[IndentingNewLine]", RowBox[{"Q", "=", RowBox[{"{", RowBox[{ RowBox[{"{", RowBox[{"1", ",", "0", ",", "0", ",", "0"}], "}"}], ",", "\[IndentingNewLine]", RowBox[{"{", RowBox[{"0", ",", "1", ",", "0", ",", "0"}], "}"}], ",", "\[IndentingNewLine]", RowBox[{"{", RowBox[{"0", ",", "0", ",", "1", ",", "0"}], "}"}], ",", "\[IndentingNewLine]", RowBox[{"{", RowBox[{ RowBox[{"-", "x2"}], ",", RowBox[{"-", "y2"}], ",", RowBox[{"-", "z2"}], ",", "1"}], "}"}]}], "}"}]}], ";", "\n", RowBox[{"p", "=", RowBox[{"v", ".", "Q"}]}], ";", "\[IndentingNewLine]", RowBox[{"p", "=", RowBox[{"Table", "[", RowBox[{ RowBox[{"Take", "[", RowBox[{ RowBox[{"p", "[", RowBox[{"[", "i", "]"}], "]"}], ",", "3"}], "]"}], ",", RowBox[{"{", RowBox[{"i", ",", "1", ",", "P"}], "}"}]}], "]"}]}], ";", "\n", RowBox[{"T1", "=", RowBox[{"ArcTan", "[", RowBox[{ RowBox[{"p", "[", RowBox[{"[", RowBox[{"1", ",", "3"}], "]"}], "]"}], "/", RowBox[{"p", "[", RowBox[{"[", RowBox[{"1", ",", "2"}], "]"}], "]"}]}], "]"}]}], ";", "\n", RowBox[{"U", "=", "p"}], ";", "\n", RowBox[{"T", "=", RowBox[{"RotationMatrix", "[", RowBox[{"T1", ",", RowBox[{"{", RowBox[{"1", ",", "0", ",", "0"}], "}"}]}], "]"}]}], ";", "\[IndentingNewLine]", RowBox[{"p", "=", RowBox[{"U", ".", "T"}]}], ";", "\n", RowBox[{"T2", "=", RowBox[{"ArcTan", "[", RowBox[{ RowBox[{"p", "[", RowBox[{"[", RowBox[{"1", ",", "2"}], "]"}], "]"}], "/", RowBox[{"p", "[", RowBox[{"[", RowBox[{"1", ",", "1"}], "]"}], "]"}]}], "]"}]}], ";", "\n", RowBox[{"U", "=", "p"}], ";", "\[IndentingNewLine]", RowBox[{"T", "=", RowBox[{"RotationMatrix", "[", RowBox[{"T2", ",", RowBox[{"{", RowBox[{"0", ",", "0", ",", "1"}], "}"}]}], "]"}]}], ";", "\[IndentingNewLine]", RowBox[{"p", "=", RowBox[{"U", ".", "T"}]}], ";", "\n", RowBox[{"T3", "=", RowBox[{"ArcTan", "[", RowBox[{ RowBox[{"p", "[", RowBox[{"[", RowBox[{"3", ",", "3"}], "]"}], "]"}], "/", RowBox[{"p", "[", RowBox[{"[", RowBox[{"3", ",", "2"}], "]"}], "]"}]}], "]"}]}], ";", "\n", RowBox[{"U", "=", "p"}], ";", "\n", RowBox[{"T", "=", RowBox[{"RotationMatrix", "[", RowBox[{"T3", ",", RowBox[{"{", RowBox[{"1", ",", "0", ",", "0"}], "}"}]}], "]"}]}], ";", "\[IndentingNewLine]", RowBox[{"p", "=", RowBox[{"Chop", "[", RowBox[{"U", ".", "T"}], "]"}]}], ";", "\n", RowBox[{"mk", "=", "p"}], ";", "\[IndentingNewLine]", RowBox[{"ml", "=", "p"}], ";", "\[IndentingNewLine]", RowBox[{ RowBox[{"mk", "[", RowBox[{"[", RowBox[{"1", ",", "3"}], "]"}], "]"}], "=", "rpo"}], ";", "\[IndentingNewLine]", RowBox[{ RowBox[{"ml", "[", RowBox[{"[", RowBox[{"1", ",", "3"}], "]"}], "]"}], "=", RowBox[{"-", "rpi"}]}], ";", "\n", RowBox[{"U", "=", "p"}], ";", "\n", RowBox[{"U1", "=", "mk"}], ";", "\[IndentingNewLine]", RowBox[{"U2", "=", "ml"}], ";", "\[IndentingNewLine]", RowBox[{"T", "=", RowBox[{"RotationMatrix", "[", RowBox[{ RowBox[{"-", "T3"}], ",", RowBox[{"{", RowBox[{"1", ",", "0", ",", "0"}], "}"}]}], "]"}]}], ";", "\[IndentingNewLine]", RowBox[{"p", "=", RowBox[{"U", ".", "T"}]}], ";", "\n", RowBox[{"mk", "=", RowBox[{"U1", ".", "T"}]}], ";", "\[IndentingNewLine]", RowBox[{"ml", "=", RowBox[{"U2", ".", "T"}]}], ";", "\n", RowBox[{"U", "=", "p"}], ";", "\n", RowBox[{"U1", "=", "mk"}], ";", "\[IndentingNewLine]", RowBox[{"U2", "=", "ml"}], ";", "\[IndentingNewLine]", RowBox[{"T", "=", RowBox[{"RotationMatrix", "[", RowBox[{ RowBox[{"-", "T2"}], ",", RowBox[{"{", RowBox[{"0", ",", "0", ",", "1"}], "}"}]}], "]"}]}], ";", "\[IndentingNewLine]", RowBox[{"p", "=", RowBox[{"U", ".", "T"}]}], ";", "\n", RowBox[{"mk", "=", RowBox[{"U1", ".", "T"}]}], ";", "\[IndentingNewLine]", RowBox[{"ml", "=", RowBox[{"U2", ".", "T"}]}], ";", "\n", RowBox[{"U", "=", "p"}], ";", "\n", RowBox[{"U1", "=", "mk"}], ";", "\[IndentingNewLine]", RowBox[{"U2", "=", "ml"}], ";", "\[IndentingNewLine]", RowBox[{"T", "=", RowBox[{"RotationMatrix", "[", RowBox[{ RowBox[{"-", "T1"}], ",", RowBox[{"{", RowBox[{"1", ",", "0", ",", "0"}], "}"}]}], "]"}]}], ";", "\[IndentingNewLine]", RowBox[{"p", "=", RowBox[{"U", ".", "T"}]}], ";", "\n", RowBox[{"mk", "=", RowBox[{"U1", ".", "T"}]}], ";", "\[IndentingNewLine]", RowBox[{"ml", "=", RowBox[{"U2", ".", "T"}]}], ";", "\n", RowBox[{"Clear", "[", RowBox[{"v", ",", "v1", ",", "v2"}], "]"}], ";", "\[IndentingNewLine]", RowBox[{"v", " ", "=", RowBox[{"Table", "[", RowBox[{ RowBox[{"Join", "[", RowBox[{ RowBox[{"p", "[", RowBox[{"[", "i", "]"}], "]"}], ",", RowBox[{"{", "1", "}"}]}], "]"}], ",", RowBox[{"{", RowBox[{"i", ",", "1", ",", "P"}], "}"}]}], "]"}]}], ";", "\[IndentingNewLine]", RowBox[{"v1", "=", RowBox[{"Table", "[", RowBox[{ RowBox[{"Join", "[", RowBox[{ RowBox[{"mk", "[", RowBox[{"[", "i", "]"}], "]"}], ",", RowBox[{"{", "1", "}"}]}], "]"}], ",", RowBox[{"{", RowBox[{"i", ",", "1", ",", "P"}], "}"}]}], "]"}]}], ";", "\[IndentingNewLine]", RowBox[{"v2", "=", RowBox[{"Table", "[", RowBox[{ RowBox[{"Join", "[", RowBox[{ RowBox[{"ml", "[", RowBox[{"[", "i", "]"}], "]"}], ",", RowBox[{"{", "1", "}"}]}], "]"}], ",", RowBox[{"{", RowBox[{"i", ",", "1", ",", "P"}], "}"}]}], "]"}]}], ";", "\n", RowBox[{"Q", "=", RowBox[{"{", RowBox[{ RowBox[{"{", RowBox[{"1", ",", "0", ",", "0", ",", "0"}], "}"}], ",", "\[IndentingNewLine]", RowBox[{"{", RowBox[{"0", ",", "1", ",", "0", ",", "0"}], "}"}], ",", "\[IndentingNewLine]", RowBox[{"{", RowBox[{"0", ",", "0", ",", "1", ",", "0"}], "}"}], ",", "\[IndentingNewLine]", RowBox[{"{", RowBox[{"x2", ",", "y2", ",", "z2", ",", "1"}], "}"}]}], "}"}]}], ";", "\[IndentingNewLine]", RowBox[{"p", "=", RowBox[{"v", ".", "Q"}]}], ";", "\[IndentingNewLine]", RowBox[{"mk", "=", RowBox[{"v1", ".", "Q"}]}], ";", "\[IndentingNewLine]", RowBox[{"ml", "=", RowBox[{"v2", ".", "Q"}]}], ";", "\[IndentingNewLine]", RowBox[{"p", "=", RowBox[{"Table", "[", RowBox[{ RowBox[{"Take", "[", RowBox[{ RowBox[{"p", "[", RowBox[{"[", "i", "]"}], "]"}], ",", "3"}], "]"}], ",", RowBox[{"{", RowBox[{"i", ",", "1", ",", "P"}], "}"}]}], "]"}]}], ";", "\[IndentingNewLine]", RowBox[{"mk", "=", RowBox[{"Table", "[", RowBox[{ RowBox[{"Take", "[", RowBox[{ RowBox[{"mk", "[", RowBox[{"[", "i", "]"}], "]"}], ",", "3"}], "]"}], ",", RowBox[{"{", RowBox[{"i", ",", "1", ",", "P"}], "}"}]}], "]"}]}], ";", "\[IndentingNewLine]", RowBox[{"ml", "=", RowBox[{"Table", "[", RowBox[{ RowBox[{"Take", "[", RowBox[{ RowBox[{"ml", "[", RowBox[{"[", "i", "]"}], "]"}], ",", "3"}], "]"}], ",", RowBox[{"{", RowBox[{"i", ",", "1", ",", "P"}], "}"}]}], "]"}]}], ";", "\[IndentingNewLine]", RowBox[{ RowBox[{"tpo", "[", RowBox[{"[", "k", "]"}], "]"}], "=", RowBox[{"mk", "[", RowBox[{"[", "1", "]"}], "]"}]}], ";", "\[IndentingNewLine]", RowBox[{ RowBox[{"tpu", "[", RowBox[{"[", "k", "]"}], "]"}], "=", RowBox[{"ml", "[", RowBox[{"[", "1", "]"}], "]"}]}]}], ")"}], ",", RowBox[{"{", RowBox[{"k", ",", "nj"}], "}"}]}], "]"}], ";"}]], "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}}], Cell[BoxData[ RowBox[{ RowBox[{"(*", RowBox[{"--", RowBox[{"--", RowBox[{"--", RowBox[{"--", RowBox[{"--", RowBox[{"--", RowBox[{"--", RowBox[{"--", RowBox[{"--", RowBox[{"--", RowBox[{"--", RowBox[{"--", RowBox[{"--", RowBox[{"--", RowBox[{"--", RowBox[{"--", RowBox[{"--", RowBox[{"--", RowBox[{"--", RowBox[{"--", RowBox[{"--", RowBox[{"--", RowBox[{"--", RowBox[{"--", RowBox[{"--", RowBox[{"--", RowBox[{"--", RowBox[{"--", RowBox[{"--", RowBox[{"--", RowBox[{"--", RowBox[{"--", RowBox[{"--", RowBox[{"--", RowBox[{"--", RowBox[{ "--", "-"}]}]}]}]}]}]}]}]}]}]}]}]}]}]}]}]}]}]}]}]}]}]}]}]}\ ]}]}]}]}]}]}]}]}]}]}]}], "*)"}], "\[IndentingNewLine]", RowBox[{"(*", " ", RowBox[{ "construct", " ", "the", " ", "\[Pi]", " ", "clouds", " ", "for", " ", "the", " ", "azo", " ", "N", " ", "atoms"}], " ", "*)"}]}]], "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.573148680368494*^9}, {3.574133119104372*^9, 3.574133144033216*^9}, { 3.574133281157457*^9, 3.574133289987072*^9}}], Cell[BoxData[{ RowBox[{ RowBox[{"k", "=", "1"}], ";"}], "\[IndentingNewLine]", RowBox[{ RowBox[{"Clear", "[", "conn", "]"}], ";"}], "\[IndentingNewLine]", RowBox[{ RowBox[{"conn", "=", RowBox[{"{", RowBox[{ RowBox[{"{", RowBox[{"18", ",", "2", ",", "5"}], "}"}], ",", RowBox[{"{", RowBox[{"19", ",", "4", ",", "3"}], "}"}]}], "}"}]}], ";"}]}], "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.573148784124276*^9}, {3.573148880017645*^9, 3.5731489260377254`*^9}, { 3.573148979499019*^9, 3.5731489938822446`*^9}, {3.5731506972804365`*^9, 3.5731506982476377`*^9}, {3.573150757387342*^9, 3.5731507583389435`*^9}, { 3.57315079601301*^9, 3.5731508056382265`*^9}, {3.573151607464035*^9, 3.5731516101004395`*^9}, {3.5731826853813925`*^9, 3.57318272377306*^9}, 3.573183074758076*^9, {3.573206537871501*^9, 3.5732065516931257`*^9}, 3.574070559848399*^9}], Cell[BoxData[ RowBox[{ RowBox[{"Do", "[", RowBox[{ RowBox[{"(", RowBox[{ RowBox[{"c", "=", RowBox[{"conn", "[", RowBox[{"[", "k", "]"}], "]"}]}], ";", "\n", RowBox[{"v", "=", RowBox[{"Table", "[", RowBox[{ RowBox[{"Join", "[", RowBox[{ RowBox[{"t", "[", RowBox[{"[", RowBox[{"c", "[", RowBox[{"[", "i", "]"}], "]"}], "]"}], "]"}], ",", RowBox[{"{", "1", "}"}]}], "]"}], ",", RowBox[{"{", RowBox[{"i", ",", "1", ",", "P"}], "}"}]}], "]"}]}], ";", "\n", RowBox[{"x2", "=", RowBox[{"t", "[", RowBox[{"[", RowBox[{ RowBox[{"c", "[", RowBox[{"[", "2", "]"}], "]"}], ",", "1"}], "]"}], "]"}]}], ";", "\[IndentingNewLine]", RowBox[{"y2", "=", RowBox[{"t", "[", RowBox[{"[", RowBox[{ RowBox[{"c", "[", RowBox[{"[", "2", "]"}], "]"}], ",", "2"}], "]"}], "]"}]}], ";", " ", "\[IndentingNewLine]", RowBox[{"z2", "=", RowBox[{"t", "[", RowBox[{"[", RowBox[{ RowBox[{"c", "[", RowBox[{"[", "2", "]"}], "]"}], ",", "3"}], "]"}], "]"}]}], ";", "\[IndentingNewLine]", RowBox[{"Q", "=", RowBox[{"{", RowBox[{ RowBox[{"{", RowBox[{"1", ",", "0", ",", "0", ",", "0"}], "}"}], ",", "\[IndentingNewLine]", RowBox[{"{", RowBox[{"0", ",", "1", ",", "0", ",", "0"}], "}"}], ",", "\[IndentingNewLine]", RowBox[{"{", RowBox[{"0", ",", "0", ",", "1", ",", "0"}], "}"}], ",", "\[IndentingNewLine]", RowBox[{"{", RowBox[{ RowBox[{"-", "x2"}], ",", RowBox[{"-", "y2"}], ",", RowBox[{"-", "z2"}], ",", "1"}], "}"}]}], "}"}]}], ";", "\n", RowBox[{"p", "=", RowBox[{"v", ".", "Q"}]}], ";", "\[IndentingNewLine]", RowBox[{"p", "=", RowBox[{"Table", "[", RowBox[{ RowBox[{"Take", "[", RowBox[{ RowBox[{"p", "[", RowBox[{"[", "i", "]"}], "]"}], ",", "3"}], "]"}], ",", RowBox[{"{", RowBox[{"i", ",", "1", ",", "P"}], "}"}]}], "]"}]}], ";", "\n", RowBox[{"T1", "=", RowBox[{"ArcTan", "[", RowBox[{ RowBox[{"p", "[", RowBox[{"[", RowBox[{"1", ",", "3"}], "]"}], "]"}], "/", RowBox[{"p", "[", RowBox[{"[", RowBox[{"1", ",", "2"}], "]"}], "]"}]}], "]"}]}], ";", "\n", RowBox[{"U", "=", "p"}], ";", "\n", RowBox[{"T", "=", RowBox[{"RotationMatrix", "[", RowBox[{"T1", ",", RowBox[{"{", RowBox[{"1", ",", "0", ",", "0"}], "}"}]}], "]"}]}], ";", "\[IndentingNewLine]", RowBox[{"p", "=", RowBox[{"U", ".", "T"}]}], ";", "\n", RowBox[{"T2", "=", RowBox[{"ArcTan", "[", RowBox[{ RowBox[{"p", "[", RowBox[{"[", RowBox[{"1", ",", "2"}], "]"}], "]"}], "/", RowBox[{"p", "[", RowBox[{"[", RowBox[{"1", ",", "1"}], "]"}], "]"}]}], "]"}]}], ";", "\n", RowBox[{"U", "=", "p"}], ";", "\[IndentingNewLine]", RowBox[{"T", "=", RowBox[{"RotationMatrix", "[", RowBox[{"T2", ",", RowBox[{"{", RowBox[{"0", ",", "0", ",", "1"}], "}"}]}], "]"}]}], ";", "\[IndentingNewLine]", RowBox[{"p", "=", RowBox[{"U", ".", "T"}]}], ";", "\n", RowBox[{"T3", "=", RowBox[{"ArcTan", "[", RowBox[{ RowBox[{"p", "[", RowBox[{"[", RowBox[{"3", ",", "3"}], "]"}], "]"}], "/", RowBox[{"p", "[", RowBox[{"[", RowBox[{"3", ",", "2"}], "]"}], "]"}]}], "]"}]}], ";", "\n", RowBox[{"U", "=", "p"}], ";", "\n", RowBox[{"T", "=", RowBox[{"RotationMatrix", "[", RowBox[{"T3", ",", RowBox[{"{", RowBox[{"1", ",", "0", ",", "0"}], "}"}]}], "]"}]}], ";", "\[IndentingNewLine]", RowBox[{"p", "=", RowBox[{"Chop", "[", RowBox[{"U", ".", "T"}], "]"}]}], ";", "\n", RowBox[{"nk", "=", "p"}], ";", "\[IndentingNewLine]", RowBox[{"nl", "=", "p"}], ";", "\[IndentingNewLine]", RowBox[{ RowBox[{"nk", "[", RowBox[{"[", RowBox[{"1", ",", "3"}], "]"}], "]"}], "=", "rpo"}], ";", "\[IndentingNewLine]", RowBox[{ RowBox[{"nl", "[", RowBox[{"[", RowBox[{"1", ",", "3"}], "]"}], "]"}], "=", RowBox[{"-", "rpi"}]}], ";", "\n", RowBox[{"U", "=", "p"}], ";", "\n", RowBox[{"U1", "=", "nk"}], ";", "\[IndentingNewLine]", RowBox[{"U2", "=", "nl"}], ";", "\[IndentingNewLine]", RowBox[{"T", "=", RowBox[{"RotationMatrix", "[", RowBox[{ RowBox[{"-", "T3"}], ",", RowBox[{"{", RowBox[{"1", ",", "0", ",", "0"}], "}"}]}], "]"}]}], ";", "\[IndentingNewLine]", RowBox[{"p", "=", RowBox[{"U", ".", "T"}]}], ";", "\n", RowBox[{"nk", "=", RowBox[{"U1", ".", "T"}]}], ";", "\[IndentingNewLine]", RowBox[{"nl", "=", RowBox[{"U2", ".", "T"}]}], ";", "\n", RowBox[{"U", "=", "p"}], ";", "\n", RowBox[{"U1", "=", "nk"}], ";", "\[IndentingNewLine]", RowBox[{"U2", "=", "nl"}], ";", "\[IndentingNewLine]", RowBox[{"T", "=", RowBox[{"RotationMatrix", "[", RowBox[{ RowBox[{"-", "T2"}], ",", RowBox[{"{", RowBox[{"0", ",", "0", ",", "1"}], "}"}]}], "]"}]}], ";", "\[IndentingNewLine]", RowBox[{"p", "=", RowBox[{"U", ".", "T"}]}], ";", "\n", RowBox[{"nk", "=", RowBox[{"U1", ".", "T"}]}], ";", "\[IndentingNewLine]", RowBox[{"nl", "=", RowBox[{"U2", ".", "T"}]}], ";", "\n", RowBox[{"U", "=", "p"}], ";", "\n", RowBox[{"U1", "=", "nk"}], ";", "\[IndentingNewLine]", RowBox[{"U2", "=", "nl"}], ";", "\[IndentingNewLine]", RowBox[{"T", "=", RowBox[{"RotationMatrix", "[", RowBox[{ RowBox[{"-", "T1"}], ",", RowBox[{"{", RowBox[{"1", ",", "0", ",", "0"}], "}"}]}], "]"}]}], ";", "\[IndentingNewLine]", RowBox[{"p", "=", RowBox[{"U", ".", "T"}]}], ";", "\n", RowBox[{"nk", "=", RowBox[{"U1", ".", "T"}]}], ";", "\[IndentingNewLine]", RowBox[{"nl", "=", RowBox[{"U2", ".", "T"}]}], ";", "\n", RowBox[{"Clear", "[", RowBox[{"v", ",", "v1", ",", "v2"}], "]"}], ";", "\[IndentingNewLine]", RowBox[{"v", " ", "=", RowBox[{"Table", "[", RowBox[{ RowBox[{"Join", "[", RowBox[{ RowBox[{"p", "[", RowBox[{"[", "i", "]"}], "]"}], ",", RowBox[{"{", "1", "}"}]}], "]"}], ",", RowBox[{"{", RowBox[{"i", ",", "1", ",", "P"}], "}"}]}], "]"}]}], ";", "\[IndentingNewLine]", RowBox[{"v1", "=", RowBox[{"Table", "[", RowBox[{ RowBox[{"Join", "[", RowBox[{ RowBox[{"nk", "[", RowBox[{"[", "i", "]"}], "]"}], ",", RowBox[{"{", "1", "}"}]}], "]"}], ",", RowBox[{"{", RowBox[{"i", ",", "1", ",", "P"}], "}"}]}], "]"}]}], ";", "\[IndentingNewLine]", RowBox[{"v2", "=", RowBox[{"Table", "[", RowBox[{ RowBox[{"Join", "[", RowBox[{ RowBox[{"nl", "[", RowBox[{"[", "i", "]"}], "]"}], ",", RowBox[{"{", "1", "}"}]}], "]"}], ",", RowBox[{"{", RowBox[{"i", ",", "1", ",", "P"}], "}"}]}], "]"}]}], ";", "\n", RowBox[{"Q", "=", RowBox[{"{", RowBox[{ RowBox[{"{", RowBox[{"1", ",", "0", ",", "0", ",", "0"}], "}"}], ",", "\[IndentingNewLine]", RowBox[{"{", RowBox[{"0", ",", "1", ",", "0", ",", "0"}], "}"}], ",", "\[IndentingNewLine]", RowBox[{"{", RowBox[{"0", ",", "0", ",", "1", ",", "0"}], "}"}], ",", "\[IndentingNewLine]", RowBox[{"{", RowBox[{"x2", ",", "y2", ",", "z2", ",", "1"}], "}"}]}], "}"}]}], ";", "\[IndentingNewLine]", RowBox[{"p", "=", RowBox[{"v", ".", "Q"}]}], ";", "\[IndentingNewLine]", RowBox[{"nk", "=", RowBox[{"v1", ".", "Q"}]}], ";", "\[IndentingNewLine]", RowBox[{"nl", "=", RowBox[{"v2", ".", "Q"}]}], ";", "\[IndentingNewLine]", RowBox[{"p", "=", RowBox[{"Table", "[", RowBox[{ RowBox[{"Take", "[", RowBox[{ RowBox[{"p", "[", RowBox[{"[", "i", "]"}], "]"}], ",", "3"}], "]"}], ",", RowBox[{"{", RowBox[{"i", ",", "1", ",", "P"}], "}"}]}], "]"}]}], ";", "\[IndentingNewLine]", RowBox[{"nk", "=", RowBox[{"Table", "[", RowBox[{ RowBox[{"Take", "[", RowBox[{ RowBox[{"nk", "[", RowBox[{"[", "i", "]"}], "]"}], ",", "3"}], "]"}], ",", RowBox[{"{", RowBox[{"i", ",", "1", ",", "P"}], "}"}]}], "]"}]}], ";", "\[IndentingNewLine]", RowBox[{"nl", "=", RowBox[{"Table", "[", RowBox[{ RowBox[{"Take", "[", RowBox[{ RowBox[{"nl", "[", RowBox[{"[", "i", "]"}], "]"}], ",", "3"}], "]"}], ",", RowBox[{"{", RowBox[{"i", ",", "1", ",", "P"}], "}"}]}], "]"}]}], ";", "\[IndentingNewLine]", RowBox[{ RowBox[{"tpo", "[", RowBox[{"[", RowBox[{"nj", "+", "k"}], "]"}], "]"}], "=", RowBox[{"nk", "[", RowBox[{"[", "1", "]"}], "]"}]}], ";", "\[IndentingNewLine]", RowBox[{ RowBox[{"tpu", "[", RowBox[{"[", RowBox[{"nj", "+", "k"}], "]"}], "]"}], "=", RowBox[{"nl", "[", RowBox[{"[", "1", "]"}], "]"}]}]}], ")"}], ",", RowBox[{"{", RowBox[{"k", ",", "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.573148784124276*^9}, {3.573148880017645*^9, 3.5731489260377254`*^9}, { 3.573148979499019*^9, 3.5731489938822446`*^9}, {3.5731506972804365`*^9, 3.5731506982476377`*^9}, {3.573150757387342*^9, 3.5731507583389435`*^9}, { 3.57315079601301*^9, 3.5731508056382265`*^9}, {3.573151607464035*^9, 3.5731516101004395`*^9}, {3.5731826853813925`*^9, 3.57318272377306*^9}, { 3.573183074758076*^9, 3.5731830995309196`*^9}, {3.573183400018647*^9, 3.573183403669054*^9}, {3.5740705690368156`*^9, 3.574070569988417*^9}, { 3.574075420473737*^9, 3.574075431518556*^9}}], Cell[BoxData[ RowBox[{ RowBox[{"(*", RowBox[{"--", RowBox[{"--", RowBox[{"--", RowBox[{"--", RowBox[{"--", RowBox[{"--", RowBox[{"--", RowBox[{"--", RowBox[{"--", RowBox[{"--", RowBox[{"--", RowBox[{"--", RowBox[{"--", RowBox[{"--", RowBox[{"--", RowBox[{"--", RowBox[{"--", RowBox[{"--", RowBox[{"--", RowBox[{"--", RowBox[{"--", RowBox[{"--", RowBox[{"--", RowBox[{"--", RowBox[{"--", RowBox[{"--", RowBox[{"--", RowBox[{"--", RowBox[{"--", RowBox[{"--", RowBox[{"--", RowBox[{ "--", "-"}]}]}]}]}]}]}]}]}]}]}]}]}]}]}]}]}]}]}]}]}]}]}]}]}\ ]}]}]}]}]}]}]}], "*)"}], "\[IndentingNewLine]", RowBox[{"(*", " ", RowBox[{"construct", " ", "the", " ", RowBox[{"LP", "'"}], "s", " ", "for", " ", "the", " ", "O", " ", "atoms"}], " ", "*)"}]}]], "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.573148784124276*^9}, {3.573148880017645*^9, 3.5731489260377254`*^9}, { 3.573148979499019*^9, 3.5731489938822446`*^9}, {3.5731506972804365`*^9, 3.5731506982476377`*^9}, {3.573150757387342*^9, 3.5731507583389435`*^9}, { 3.57315079601301*^9, 3.5731508056382265`*^9}, {3.573151607464035*^9, 3.5731516101004395`*^9}, {3.5731826853813925`*^9, 3.57318272377306*^9}, { 3.573183074758076*^9, 3.5731830995309196`*^9}, {3.573183400018647*^9, 3.573183403669054*^9}, {3.5740705690368156`*^9, 3.574070569988417*^9}, { 3.574075420473737*^9, 3.5740754582882032`*^9}, {3.574133164172851*^9, 3.5741331957785068`*^9}}], Cell[BoxData[{ RowBox[{ RowBox[{"k", "=", "1"}], ";"}], "\[IndentingNewLine]", RowBox[{ RowBox[{"Clear", "[", "conn", "]"}], ";"}], "\[IndentingNewLine]", RowBox[{ RowBox[{"conn", "=", RowBox[{"{", RowBox[{ RowBox[{"{", RowBox[{"10", ",", "20", ",", "22"}], "}"}], ",", RowBox[{"{", RowBox[{"29", ",", "21", ",", "15"}], "}"}]}], "}"}]}], ";"}], "\n", RowBox[{ RowBox[{"rlo", "=", "1.125"}], ";"}], "\[IndentingNewLine]", RowBox[{ RowBox[{"tlo", "=", RowBox[{"{", RowBox[{ RowBox[{"{", RowBox[{"0.0", ",", "0.0", ",", "0.0"}], "}"}], ",", RowBox[{"{", RowBox[{"0.0", ",", "0.0", ",", "0.0"}], "}"}]}], "}"}]}], ";"}], "\[IndentingNewLine]", RowBox[{ RowBox[{"tlu", "=", RowBox[{"{", RowBox[{ RowBox[{"{", RowBox[{"0.0", ",", "0.0", ",", "0.0"}], "}"}], ",", RowBox[{"{", RowBox[{"0.0", ",", "0.0", ",", "0.0"}], "}"}]}], "}"}]}], ";"}], "\[IndentingNewLine]", RowBox[{ RowBox[{"Do", "[", RowBox[{ RowBox[{"(", RowBox[{ RowBox[{"c", "=", RowBox[{"conn", "[", RowBox[{"[", "k", "]"}], "]"}]}], ";", "\[IndentingNewLine]", RowBox[{"a1", "=", RowBox[{"dc", "[", RowBox[{"[", RowBox[{ RowBox[{"c", "[", RowBox[{"[", "2", "]"}], "]"}], ",", RowBox[{"c", "[", RowBox[{"[", "1", "]"}], "]"}]}], "]"}], "]"}]}], ";", " ", RowBox[{"a2", "=", RowBox[{"dc", "[", RowBox[{"[", RowBox[{ RowBox[{"c", "[", RowBox[{"[", "2", "]"}], "]"}], ",", RowBox[{"c", "[", RowBox[{"[", "3", "]"}], "]"}]}], "]"}], "]"}]}], ";", " ", RowBox[{"d1", "=", RowBox[{"dc", "[", RowBox[{"[", RowBox[{ RowBox[{"c", "[", RowBox[{"[", "1", "]"}], "]"}], ",", RowBox[{"c", "[", RowBox[{"[", "3", "]"}], "]"}]}], "]"}], "]"}]}], ";", "\[IndentingNewLine]", RowBox[{"\[Alpha]", "=", RowBox[{"ArcCos", "[", RowBox[{ RowBox[{"(", RowBox[{ RowBox[{"a1", "^", "2"}], "+", RowBox[{"a2", "^", "2"}], "-", RowBox[{"d1", "^", "2"}]}], ")"}], "/", RowBox[{"(", RowBox[{"2", "*", "a1", "*", "a2"}], ")"}]}], "]"}]}], ";", "\[IndentingNewLine]", RowBox[{"L", "=", RowBox[{"(", RowBox[{ RowBox[{"u2", "[", RowBox[{"[", RowBox[{"c", "[", RowBox[{"[", "2", "]"}], "]"}], "]"}], "]"}], "+", "rlo"}], ")"}]}], ";", "\[IndentingNewLine]", RowBox[{"\[Beta]", "=", RowBox[{"ArcSin", "[", RowBox[{"rln", "/", "L"}], "]"}]}], ";", "\[IndentingNewLine]", RowBox[{"If", "[", RowBox[{ RowBox[{"k", "\[Equal]", "1"}], ",", RowBox[{"\[Gamma]", "=", RowBox[{ RowBox[{"-", "\[Alpha]"}], "/", "4"}]}], ",", RowBox[{"\[Gamma]", "=", RowBox[{ RowBox[{"3", "*", RowBox[{"\[Pi]", "/", "2"}]}], "+", RowBox[{"\[Alpha]", "/", "2"}]}]}]}], "]"}], ";", "\[IndentingNewLine]", RowBox[{"v", "=", RowBox[{"Table", "[", RowBox[{ RowBox[{"Join", "[", RowBox[{ RowBox[{"t", "[", RowBox[{"[", RowBox[{"c", "[", RowBox[{"[", "i", "]"}], "]"}], "]"}], "]"}], ",", RowBox[{"{", "1", "}"}]}], "]"}], ",", RowBox[{"{", RowBox[{"i", ",", "1", ",", "P"}], "}"}]}], "]"}]}], ";", "\n", RowBox[{"x2", "=", RowBox[{"t", "[", RowBox[{"[", RowBox[{ RowBox[{"c", "[", RowBox[{"[", "2", "]"}], "]"}], ",", "1"}], "]"}], "]"}]}], ";", "\[IndentingNewLine]", RowBox[{"y2", "=", RowBox[{"t", "[", RowBox[{"[", RowBox[{ RowBox[{"c", "[", RowBox[{"[", "2", "]"}], "]"}], ",", "2"}], "]"}], "]"}]}], ";", " ", "\[IndentingNewLine]", RowBox[{"z2", "=", RowBox[{"t", "[", RowBox[{"[", RowBox[{ RowBox[{"c", "[", RowBox[{"[", "2", "]"}], "]"}], ",", "3"}], "]"}], "]"}]}], ";", "\[IndentingNewLine]", RowBox[{"Q", "=", RowBox[{"{", RowBox[{ RowBox[{"{", RowBox[{"1", ",", "0", ",", "0", ",", "0"}], "}"}], ",", "\[IndentingNewLine]", RowBox[{"{", RowBox[{"0", ",", "1", ",", "0", ",", "0"}], "}"}], ",", "\[IndentingNewLine]", RowBox[{"{", RowBox[{"0", ",", "0", ",", "1", ",", "0"}], "}"}], ",", "\[IndentingNewLine]", RowBox[{"{", RowBox[{ RowBox[{"-", "x2"}], ",", RowBox[{"-", "y2"}], ",", RowBox[{"-", "z2"}], ",", "1"}], "}"}]}], "}"}]}], ";", "\n", RowBox[{"p", "=", RowBox[{"v", ".", "Q"}]}], ";", "\[IndentingNewLine]", RowBox[{"p", "=", RowBox[{"Table", "[", RowBox[{ RowBox[{"Take", "[", RowBox[{ RowBox[{"p", "[", RowBox[{"[", "i", "]"}], "]"}], ",", "3"}], "]"}], ",", RowBox[{"{", RowBox[{"i", ",", "1", ",", "P"}], "}"}]}], "]"}]}], ";", "\n", RowBox[{"T1", "=", RowBox[{"ArcTan", "[", RowBox[{ RowBox[{"p", "[", RowBox[{"[", RowBox[{"1", ",", "3"}], "]"}], "]"}], "/", RowBox[{"p", "[", RowBox[{"[", RowBox[{"1", ",", "2"}], "]"}], "]"}]}], "]"}]}], ";", "\n", RowBox[{"U", "=", "p"}], ";", "\n", RowBox[{"T", "=", RowBox[{"RotationMatrix", "[", RowBox[{"T1", ",", RowBox[{"{", RowBox[{"1", ",", "0", ",", "0"}], "}"}]}], "]"}]}], ";", "\[IndentingNewLine]", RowBox[{"p", "=", RowBox[{"U", ".", "T"}]}], ";", "\n", RowBox[{"T2", "=", RowBox[{"ArcTan", "[", RowBox[{ RowBox[{"p", "[", RowBox[{"[", RowBox[{"1", ",", "2"}], "]"}], "]"}], "/", RowBox[{"p", "[", RowBox[{"[", RowBox[{"1", ",", "1"}], "]"}], "]"}]}], "]"}]}], ";", "\n", RowBox[{"U", "=", "p"}], ";", "\[IndentingNewLine]", RowBox[{"T", "=", RowBox[{"RotationMatrix", "[", RowBox[{"T2", ",", RowBox[{"{", RowBox[{"0", ",", "0", ",", "1"}], "}"}]}], "]"}]}], ";", "\[IndentingNewLine]", RowBox[{"p", "=", RowBox[{"U", ".", "T"}]}], ";", "\n", RowBox[{"T3", "=", RowBox[{"ArcTan", "[", RowBox[{ RowBox[{"p", "[", RowBox[{"[", RowBox[{"3", ",", "3"}], "]"}], "]"}], "/", RowBox[{"p", "[", RowBox[{"[", RowBox[{"3", ",", "2"}], "]"}], "]"}]}], "]"}]}], ";", "\n", RowBox[{"U", "=", "p"}], ";", "\n", RowBox[{"T", "=", RowBox[{"RotationMatrix", "[", RowBox[{"T3", ",", RowBox[{"{", RowBox[{"1", ",", "0", ",", "0"}], "}"}]}], "]"}]}], ";", "\[IndentingNewLine]", RowBox[{"p", "=", RowBox[{"Chop", "[", RowBox[{"U", ".", "T"}], "]"}]}], ";", "\n", RowBox[{"nk", "=", "p"}], ";", "\[IndentingNewLine]", RowBox[{"nl", "=", "p"}], ";", "\[IndentingNewLine]", RowBox[{ RowBox[{"nk", "[", RowBox[{"[", RowBox[{"2", ",", "2"}], "]"}], "]"}], "=", RowBox[{"L", "*", RowBox[{"Cos", "[", "\[Gamma]", "]"}], "*", RowBox[{"Cos", "[", "\[Beta]", "]"}]}]}], ";", " ", RowBox[{ RowBox[{"nk", "[", RowBox[{"[", RowBox[{"2", ",", "1"}], "]"}], "]"}], "=", RowBox[{ RowBox[{"-", "L"}], "*", RowBox[{"Sin", "[", "\[Gamma]", "]"}], "*", RowBox[{"Cos", "[", "\[Beta]", "]"}]}]}], ";", " ", RowBox[{ RowBox[{"nk", "[", RowBox[{"[", RowBox[{"2", ",", "3"}], "]"}], "]"}], "=", "rlo"}], ";", " ", "\[IndentingNewLine]", RowBox[{ RowBox[{"nl", "[", RowBox[{"[", RowBox[{"2", ",", "2"}], "]"}], "]"}], "=", RowBox[{"nk", "[", RowBox[{"[", RowBox[{"2", ",", "2"}], "]"}], "]"}]}], ";", " ", RowBox[{ RowBox[{"nl", "[", RowBox[{"[", RowBox[{"2", ",", "1"}], "]"}], "]"}], "=", RowBox[{"nk", "[", RowBox[{"[", RowBox[{"2", ",", "1"}], "]"}], "]"}]}], ";", " ", RowBox[{ RowBox[{"nl", "[", RowBox[{"[", RowBox[{"2", ",", "3"}], "]"}], "]"}], "=", RowBox[{"-", "rlo"}]}], ";", "\n", RowBox[{"(*", RowBox[{ RowBox[{"Plota", " ", "=", " ", RowBox[{"Table", "[", RowBox[{ RowBox[{"Graphics3D", "[", RowBox[{"{", RowBox[{ RowBox[{"Opacity", "[", "0.5", "]"}], ",", RowBox[{"Sphere", "[", RowBox[{ RowBox[{"p", "[", RowBox[{"[", "i", "]"}], "]"}], ",", RowBox[{"u2", "[", RowBox[{"[", RowBox[{"c", "[", RowBox[{"[", "i", "]"}], "]"}], "]"}], "]"}]}], "]"}]}], "}"}], "]"}], ",", RowBox[{"{", RowBox[{"i", ",", "1", ",", "P"}], "}"}]}], "]"}]}], ";", "\[IndentingNewLine]", RowBox[{"Plotc", " ", "=", " ", RowBox[{"Table", "[", RowBox[{ RowBox[{"Graphics3D", "[", RowBox[{"{", RowBox[{"Tube", "[", RowBox[{ RowBox[{"{", RowBox[{ RowBox[{"p", "[", RowBox[{"[", "i", "]"}], "]"}], ",", RowBox[{"p", "[", RowBox[{"[", "j", "]"}], "]"}]}], "}"}], ",", "0.02"}], "]"}], "}"}], "]"}], ",", RowBox[{"{", RowBox[{"i", ",", "1", ",", RowBox[{"P", "-", "1"}]}], "}"}], ",", RowBox[{"{", RowBox[{"j", ",", RowBox[{"i", "+", "1"}], ",", "P"}], "}"}]}], "]"}]}], ";", "\[IndentingNewLine]", RowBox[{"Plotd", "=", RowBox[{"Graphics3D", "[", RowBox[{"{", RowBox[{ RowBox[{"Opacity", "[", "0.5", "]"}], ",", RowBox[{"Lighter", "[", "Red", "]"}], ",", RowBox[{"Sphere", "[", RowBox[{ RowBox[{"nk", "[", RowBox[{"[", "2", "]"}], "]"}], ",", "rlo"}], "]"}]}], "}"}], "]"}]}], ";", "\[IndentingNewLine]", RowBox[{"Plote", "=", RowBox[{"Graphics3D", "[", RowBox[{"{", RowBox[{ RowBox[{"Opacity", "[", "0.5", "]"}], ",", RowBox[{"Lighter", "[", "Red", "]"}], ",", RowBox[{"Sphere", "[", RowBox[{ RowBox[{"nl", "[", RowBox[{"[", "2", "]"}], "]"}], ",", "rlo"}], "]"}]}], "}"}], "]"}]}], ";", "\[IndentingNewLine]", RowBox[{"Plotb0", "=", RowBox[{"Table", "[", RowBox[{ RowBox[{"Graphics3D", "[", RowBox[{"Text", "[", RowBox[{ RowBox[{"c", "[", RowBox[{"[", "i", "]"}], "]"}], ",", RowBox[{"p", "[", RowBox[{"[", "i", "]"}], "]"}], ",", RowBox[{"{", RowBox[{"1", ",", "0"}], "}"}]}], "]"}], "]"}], ",", RowBox[{"{", RowBox[{"i", ",", "1", ",", "P"}], "}"}]}], "]"}]}], ";", "\[IndentingNewLine]", RowBox[{"Show", "[", RowBox[{"Plotd", ",", "Plote", ",", "Plota", ",", "Plotb0", ",", RowBox[{"(*", RowBox[{"Plotb1", ",", "Plotb2", ","}], "*)"}], "Plotc", ",", RowBox[{"{", RowBox[{ RowBox[{"Axes", "\[Rule]", "Automatic"}], ",", RowBox[{"AxesLabel", "\[Rule]", RowBox[{"{", RowBox[{"xl", ",", "yl", ",", "zl"}], "}"}]}], ",", RowBox[{"AspectRatio", "\[Rule]", "Automatic"}], ",", RowBox[{"Boxed", "\[Rule]", "False"}], ",", RowBox[{"PlotRange", "\[Rule]", "Automatic"}], ",", " ", RowBox[{"SphericalRegion", "\[Rule]", "True"}]}], "}"}]}], "]"}]}], "*)"}], "\n", RowBox[{"U", "=", "p"}], ";", "\n", RowBox[{"U1", "=", "nk"}], ";", "\[IndentingNewLine]", RowBox[{"U2", "=", "nl"}], ";", "\[IndentingNewLine]", RowBox[{"T", "=", RowBox[{"RotationMatrix", "[", RowBox[{ RowBox[{"-", "T3"}], ",", RowBox[{"{", RowBox[{"1", ",", "0", ",", "0"}], "}"}]}], "]"}]}], ";", "\[IndentingNewLine]", RowBox[{"p", "=", RowBox[{"U", ".", "T"}]}], ";", "\n", RowBox[{"nk", "=", RowBox[{"U1", ".", "T"}]}], ";", "\[IndentingNewLine]", RowBox[{"nl", "=", RowBox[{"U2", ".", "T"}]}], ";", "\n", RowBox[{"U", "=", "p"}], ";", "\n", RowBox[{"U1", "=", "nk"}], ";", "\[IndentingNewLine]", RowBox[{"U2", "=", "nl"}], ";", "\[IndentingNewLine]", RowBox[{"T", "=", RowBox[{"RotationMatrix", "[", RowBox[{ RowBox[{"-", "T2"}], ",", RowBox[{"{", RowBox[{"0", ",", "0", ",", "1"}], "}"}]}], "]"}]}], ";", "\[IndentingNewLine]", RowBox[{"p", "=", RowBox[{"U", ".", "T"}]}], ";", "\n", RowBox[{"nk", "=", RowBox[{"U1", ".", "T"}]}], ";", "\[IndentingNewLine]", RowBox[{"nl", "=", RowBox[{"U2", ".", "T"}]}], ";", "\n", RowBox[{"U", "=", "p"}], ";", "\n", RowBox[{"U1", "=", "nk"}], ";", "\[IndentingNewLine]", RowBox[{"U2", "=", "nl"}], ";", "\[IndentingNewLine]", RowBox[{"T", "=", RowBox[{"RotationMatrix", "[", RowBox[{ RowBox[{"-", "T1"}], ",", RowBox[{"{", RowBox[{"1", ",", "0", ",", "0"}], "}"}]}], "]"}]}], ";", "\[IndentingNewLine]", RowBox[{"p", "=", RowBox[{"U", ".", "T"}]}], ";", "\n", RowBox[{"nk", "=", RowBox[{"U1", ".", "T"}]}], ";", "\[IndentingNewLine]", RowBox[{"nl", "=", RowBox[{"U2", ".", "T"}]}], ";", "\n", RowBox[{"Clear", "[", RowBox[{"v", ",", "v1", ",", "v2"}], "]"}], ";", "\[IndentingNewLine]", RowBox[{"v", " ", "=", RowBox[{"Table", "[", RowBox[{ RowBox[{"Join", "[", RowBox[{ RowBox[{"p", "[", RowBox[{"[", "i", "]"}], "]"}], ",", RowBox[{"{", "1", "}"}]}], "]"}], ",", RowBox[{"{", RowBox[{"i", ",", "1", ",", "P"}], "}"}]}], "]"}]}], ";", "\[IndentingNewLine]", RowBox[{"v1", "=", RowBox[{"Table", "[", RowBox[{ RowBox[{"Join", "[", RowBox[{ RowBox[{"nk", "[", RowBox[{"[", "i", "]"}], "]"}], ",", RowBox[{"{", "1", "}"}]}], "]"}], ",", RowBox[{"{", RowBox[{"i", ",", "1", ",", "P"}], "}"}]}], "]"}]}], ";", "\[IndentingNewLine]", RowBox[{"v2", "=", RowBox[{"Table", "[", RowBox[{ RowBox[{"Join", "[", RowBox[{ RowBox[{"nl", "[", RowBox[{"[", "i", "]"}], "]"}], ",", RowBox[{"{", "1", "}"}]}], "]"}], ",", RowBox[{"{", RowBox[{"i", ",", "1", ",", "P"}], "}"}]}], "]"}]}], ";", "\n", RowBox[{"Q", "=", RowBox[{"{", RowBox[{ RowBox[{"{", RowBox[{"1", ",", "0", ",", "0", ",", "0"}], "}"}], ",", "\[IndentingNewLine]", RowBox[{"{", RowBox[{"0", ",", "1", ",", "0", ",", "0"}], "}"}], ",", "\[IndentingNewLine]", RowBox[{"{", RowBox[{"0", ",", "0", ",", "1", ",", "0"}], "}"}], ",", "\[IndentingNewLine]", RowBox[{"{", RowBox[{"x2", ",", "y2", ",", "z2", ",", "1"}], "}"}]}], "}"}]}], ";", "\[IndentingNewLine]", RowBox[{"p", "=", RowBox[{"v", ".", "Q"}]}], ";", "\[IndentingNewLine]", RowBox[{"nk", "=", RowBox[{"v1", ".", "Q"}]}], ";", "\[IndentingNewLine]", RowBox[{"nl", "=", RowBox[{"v2", ".", "Q"}]}], ";", "\[IndentingNewLine]", RowBox[{"p", "=", RowBox[{"Table", "[", RowBox[{ RowBox[{"Take", "[", RowBox[{ RowBox[{"p", "[", RowBox[{"[", "i", "]"}], "]"}], ",", "3"}], "]"}], ",", RowBox[{"{", RowBox[{"i", ",", "1", ",", "P"}], "}"}]}], "]"}]}], ";", "\[IndentingNewLine]", RowBox[{"nk", "=", RowBox[{"Table", "[", RowBox[{ RowBox[{"Take", "[", RowBox[{ RowBox[{"nk", "[", RowBox[{"[", "i", "]"}], "]"}], ",", "3"}], "]"}], ",", RowBox[{"{", RowBox[{"i", ",", "1", ",", "P"}], "}"}]}], "]"}]}], ";", "\[IndentingNewLine]", RowBox[{"nl", "=", RowBox[{"Table", "[", RowBox[{ RowBox[{"Take", "[", RowBox[{ RowBox[{"nl", "[", RowBox[{"[", "i", "]"}], "]"}], ",", "3"}], "]"}], ",", RowBox[{"{", RowBox[{"i", ",", "1", ",", "P"}], "}"}]}], "]"}]}], ";", "\[IndentingNewLine]", RowBox[{ RowBox[{"tlo", "[", RowBox[{"[", "k", "]"}], "]"}], "=", RowBox[{"nk", "[", RowBox[{"[", "2", "]"}], "]"}]}], ";", "\[IndentingNewLine]", RowBox[{ RowBox[{"tlu", "[", RowBox[{"[", "k", "]"}], "]"}], "=", RowBox[{"nl", "[", RowBox[{"[", "2", "]"}], "]"}]}]}], ")"}], ",", RowBox[{"{", RowBox[{"k", ",", "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.573148784124276*^9}, {3.573148880017645*^9, 3.5731489260377254`*^9}, { 3.573148979499019*^9, 3.5731489938822446`*^9}, {3.5731506972804365`*^9, 3.5731506982476377`*^9}, {3.573150757387342*^9, 3.5731507583389435`*^9}, { 3.57315079601301*^9, 3.5731508056382265`*^9}, {3.573151607464035*^9, 3.5731516101004395`*^9}, {3.5731826853813925`*^9, 3.57318272377306*^9}, 3.573183074758076*^9, {3.5740746292247467`*^9, 3.574074630301149*^9}, { 3.5740746649020095`*^9, 3.5740747139640956`*^9}, {3.5740747744610023`*^9, 3.574074848015131*^9}, {3.5740749399928927`*^9, 3.574075144556052*^9}, 3.574075176614108*^9, 3.5740754672894187`*^9, {3.574075548799562*^9, 3.574075581356819*^9}, 3.5740758787089415`*^9, 3.574135482290123*^9, 3.5741355446590323`*^9, {3.57434006146961*^9, 3.5743400666956196`*^9}}], Cell[BoxData[ RowBox[{ RowBox[{"(*", RowBox[{"--", RowBox[{"--", RowBox[{"--", RowBox[{"--", RowBox[{"--", RowBox[{"--", RowBox[{"--", RowBox[{"--", RowBox[{"--", RowBox[{"--", RowBox[{"--", RowBox[{"--", RowBox[{"--", RowBox[{"--", RowBox[{"--", RowBox[{"--", RowBox[{"--", RowBox[{"--", RowBox[{"--", RowBox[{"--", RowBox[{"--", RowBox[{"--", RowBox[{"--", RowBox[{"--", RowBox[{"--", RowBox[{"--", RowBox[{"--", RowBox[{"--", RowBox[{"--", RowBox[{"--", RowBox[{"--", RowBox[{"--", RowBox[{"--", RowBox[{"--", RowBox[{"--", RowBox[{ "--", "-"}]}]}]}]}]}]}]}]}]}]}]}]}]}]}]}]}]}]}]}]}]}]}]}]}\ ]}]}]}]}]}]}]}]}]}]}]}], "*)"}], "\[IndentingNewLine]", RowBox[{"(*", " ", RowBox[{ RowBox[{"next", ":", " ", "N18"}], ",", RowBox[{ RowBox[{ RowBox[{"N19", " ", "in", " ", "C"}], "-", "N"}], "=", "N"}], ",", " ", RowBox[{ RowBox[{"N", "=", RowBox[{"N", "-", "C"}]}], ";", " ", RowBox[{ "one", " ", "doubly", " ", "occ", " ", "LP", " ", "as", " ", "sp2", " ", "ligand"}]}]}], " ", "*)"}], "\n", RowBox[{ RowBox[{ RowBox[{"k", "=", "1"}], ";"}], "\[IndentingNewLine]", RowBox[{ RowBox[{"Clear", "[", "conn", "]"}], ";"}], "\[IndentingNewLine]", RowBox[{ RowBox[{"tpln", "=", RowBox[{"{", RowBox[{ RowBox[{"{", RowBox[{"0.0", ",", "0.0", ",", "0.0"}], "}"}], ",", RowBox[{"{", RowBox[{"0.0", ",", "0.0", ",", "0.0"}], "}"}]}], "}"}]}], ";"}], "\[IndentingNewLine]", RowBox[{ RowBox[{"conn", "=", RowBox[{"{", RowBox[{ RowBox[{"{", RowBox[{"18", ",", "19", ",", "5"}], "}"}], ",", RowBox[{"{", RowBox[{"19", ",", "18", ",", "4"}], "}"}]}], "}"}]}], ";"}], "\n", RowBox[{ RowBox[{"rln", "=", "1.246"}], ";"}], "\[IndentingNewLine]", RowBox[{ RowBox[{"Do", "[", RowBox[{ RowBox[{"(", RowBox[{ RowBox[{"c", "=", RowBox[{"conn", "[", RowBox[{"[", "k", "]"}], "]"}]}], ";", "\[IndentingNewLine]", RowBox[{"a1", "=", RowBox[{"dc", "[", RowBox[{"[", RowBox[{ RowBox[{"c", "[", RowBox[{"[", "2", "]"}], "]"}], ",", RowBox[{"c", "[", RowBox[{"[", "1", "]"}], "]"}]}], "]"}], "]"}]}], ";", " ", RowBox[{"a2", "=", RowBox[{"dc", "[", RowBox[{"[", RowBox[{ RowBox[{"c", "[", RowBox[{"[", "2", "]"}], "]"}], ",", RowBox[{"c", "[", RowBox[{"[", "3", "]"}], "]"}]}], "]"}], "]"}]}], ";", " ", RowBox[{"d1", "=", RowBox[{"dc", "[", RowBox[{"[", RowBox[{ RowBox[{"c", "[", RowBox[{"[", "1", "]"}], "]"}], ",", RowBox[{"c", "[", RowBox[{"[", "3", "]"}], "]"}]}], "]"}], "]"}]}], ";", "\[IndentingNewLine]", RowBox[{"\[Alpha]", "=", RowBox[{"ArcCos", "[", RowBox[{ RowBox[{"(", RowBox[{ RowBox[{"a1", "^", "2"}], "+", RowBox[{"a2", "^", "2"}], "-", RowBox[{"d1", "^", "2"}]}], ")"}], "/", RowBox[{"(", RowBox[{"2", "*", "a1", "*", "a2"}], ")"}]}], "]"}]}], ";", "\[IndentingNewLine]", RowBox[{"\[Beta]", "=", RowBox[{"ArcSin", "[", RowBox[{"rln", "/", RowBox[{"(", RowBox[{ RowBox[{"u2", "[", RowBox[{"[", RowBox[{"c", "[", RowBox[{"[", "2", "]"}], "]"}], "]"}], "]"}], "+", "rln"}], ")"}]}], "]"}]}], ";", "\[IndentingNewLine]", RowBox[{"If", "[", RowBox[{ RowBox[{"k", "\[Equal]", "1"}], ",", RowBox[{"\[Gamma]", "=", RowBox[{"\[Pi]", "-", RowBox[{"\[Alpha]", "/", "4"}]}]}], ",", RowBox[{"\[Gamma]", "=", RowBox[{ RowBox[{"3", "*", RowBox[{"\[Pi]", "/", "2"}]}], "+", RowBox[{"\[Alpha]", "/", "2"}]}]}]}], "]"}], ";", "\[IndentingNewLine]", RowBox[{"L", "=", RowBox[{"(", RowBox[{ RowBox[{"u2", "[", RowBox[{"[", RowBox[{"c", "[", RowBox[{"[", "2", "]"}], "]"}], "]"}], "]"}], "+", "rln"}], ")"}]}], ";", "\[IndentingNewLine]", RowBox[{"v", "=", RowBox[{"Table", "[", RowBox[{ RowBox[{"Join", "[", RowBox[{ RowBox[{"t", "[", RowBox[{"[", RowBox[{"c", "[", RowBox[{"[", "i", "]"}], "]"}], "]"}], "]"}], ",", RowBox[{"{", "1", "}"}]}], "]"}], ",", RowBox[{"{", RowBox[{"i", ",", "1", ",", "P"}], "}"}]}], "]"}]}], ";", "\n", RowBox[{"x2", "=", RowBox[{"t", "[", RowBox[{"[", RowBox[{ RowBox[{"c", "[", RowBox[{"[", "2", "]"}], "]"}], ",", "1"}], "]"}], "]"}]}], ";", "\[IndentingNewLine]", RowBox[{"y2", "=", RowBox[{"t", "[", RowBox[{"[", RowBox[{ RowBox[{"c", "[", RowBox[{"[", "2", "]"}], "]"}], ",", "2"}], "]"}], "]"}]}], ";", " ", "\[IndentingNewLine]", RowBox[{"z2", "=", RowBox[{"t", "[", RowBox[{"[", RowBox[{ RowBox[{"c", "[", RowBox[{"[", "2", "]"}], "]"}], ",", "3"}], "]"}], "]"}]}], ";", "\[IndentingNewLine]", RowBox[{"Q", "=", RowBox[{"{", RowBox[{ RowBox[{"{", RowBox[{"1", ",", "0", ",", "0", ",", "0"}], "}"}], ",", "\[IndentingNewLine]", RowBox[{"{", RowBox[{"0", ",", "1", ",", "0", ",", "0"}], "}"}], ",", "\[IndentingNewLine]", RowBox[{"{", RowBox[{"0", ",", "0", ",", "1", ",", "0"}], "}"}], ",", "\[IndentingNewLine]", RowBox[{"{", RowBox[{ RowBox[{"-", "x2"}], ",", RowBox[{"-", "y2"}], ",", RowBox[{"-", "z2"}], ",", "1"}], "}"}]}], "}"}]}], ";", "\n", RowBox[{"p", "=", RowBox[{"v", ".", "Q"}]}], ";", "\[IndentingNewLine]", RowBox[{"p", "=", RowBox[{"Table", "[", RowBox[{ RowBox[{"Take", "[", RowBox[{ RowBox[{"p", "[", RowBox[{"[", "i", "]"}], "]"}], ",", "3"}], "]"}], ",", RowBox[{"{", RowBox[{"i", ",", "1", ",", "P"}], "}"}]}], "]"}]}], ";", "\n", RowBox[{"T1", "=", RowBox[{"ArcTan", "[", RowBox[{ RowBox[{"p", "[", RowBox[{"[", RowBox[{"1", ",", "3"}], "]"}], "]"}], "/", RowBox[{"p", "[", RowBox[{"[", RowBox[{"1", ",", "2"}], "]"}], "]"}]}], "]"}]}], ";", "\n", RowBox[{"U", "=", "p"}], ";", "\n", RowBox[{"T", "=", RowBox[{"RotationMatrix", "[", RowBox[{"T1", ",", RowBox[{"{", RowBox[{"1", ",", "0", ",", "0"}], "}"}]}], "]"}]}], ";", "\[IndentingNewLine]", RowBox[{"p", "=", RowBox[{"U", ".", "T"}]}], ";", "\n", RowBox[{"T2", "=", RowBox[{"ArcTan", "[", RowBox[{ RowBox[{"p", "[", RowBox[{"[", RowBox[{"1", ",", "2"}], "]"}], "]"}], "/", RowBox[{"p", "[", RowBox[{"[", RowBox[{"1", ",", "1"}], "]"}], "]"}]}], "]"}]}], ";", "\n", RowBox[{"U", "=", "p"}], ";", "\[IndentingNewLine]", RowBox[{"T", "=", RowBox[{"RotationMatrix", "[", RowBox[{"T2", ",", RowBox[{"{", RowBox[{"0", ",", "0", ",", "1"}], "}"}]}], "]"}]}], ";", "\[IndentingNewLine]", RowBox[{"p", "=", RowBox[{"U", ".", "T"}]}], ";", "\n", RowBox[{"T3", "=", RowBox[{"ArcTan", "[", RowBox[{ RowBox[{"p", "[", RowBox[{"[", RowBox[{"3", ",", "3"}], "]"}], "]"}], "/", RowBox[{"p", "[", RowBox[{"[", RowBox[{"3", ",", "2"}], "]"}], "]"}]}], "]"}]}], ";", "\n", RowBox[{"U", "=", "p"}], ";", "\n", RowBox[{"T", "=", RowBox[{"RotationMatrix", "[", RowBox[{"T3", ",", RowBox[{"{", RowBox[{"1", ",", "0", ",", "0"}], "}"}]}], "]"}]}], ";", "\[IndentingNewLine]", RowBox[{"p", "=", RowBox[{"Chop", "[", RowBox[{"U", ".", "T"}], "]"}]}], ";", "\n", RowBox[{"nk", "=", "p"}], ";", "\[IndentingNewLine]", RowBox[{ RowBox[{"nk", "[", RowBox[{"[", RowBox[{"2", ",", "2"}], "]"}], "]"}], "=", RowBox[{"L", "*", RowBox[{"Cos", "[", "\[Gamma]", "]"}]}]}], ";", " ", RowBox[{ RowBox[{"nk", "[", RowBox[{"[", RowBox[{"2", ",", "1"}], "]"}], "]"}], "=", RowBox[{ RowBox[{"-", "L"}], "*", RowBox[{"Sin", "[", "\[Gamma]", "]"}]}]}], ";", " ", RowBox[{ RowBox[{"nk", "[", RowBox[{"[", RowBox[{"2", ",", "3"}], "]"}], "]"}], "=", "0"}], ";", " ", "\n", RowBox[{"(*", RowBox[{ RowBox[{"Plota", " ", "=", " ", RowBox[{"Table", "[", RowBox[{ RowBox[{"Graphics3D", "[", RowBox[{"{", RowBox[{ RowBox[{"Opacity", "[", "0.5", "]"}], ",", RowBox[{"Sphere", "[", RowBox[{ RowBox[{"p", "[", RowBox[{"[", "i", "]"}], "]"}], ",", RowBox[{"u2", "[", RowBox[{"[", RowBox[{"c", "[", RowBox[{"[", "i", "]"}], "]"}], "]"}], "]"}]}], "]"}]}], "}"}], "]"}], ",", RowBox[{"{", RowBox[{"i", ",", "1", ",", "P"}], "}"}]}], "]"}]}], ";", "\[IndentingNewLine]", RowBox[{"Plotc", " ", "=", " ", RowBox[{"Table", "[", RowBox[{ RowBox[{"Graphics3D", "[", RowBox[{"{", RowBox[{"Tube", "[", RowBox[{ RowBox[{"{", RowBox[{ RowBox[{"p", "[", RowBox[{"[", "i", "]"}], "]"}], ",", RowBox[{"p", "[", RowBox[{"[", "j", "]"}], "]"}]}], "}"}], ",", "0.02"}], "]"}], "}"}], "]"}], ",", RowBox[{"{", RowBox[{"i", ",", "1", ",", RowBox[{"P", "-", "1"}]}], "}"}], ",", RowBox[{"{", RowBox[{"j", ",", RowBox[{"i", "+", "1"}], ",", "P"}], "}"}]}], "]"}]}], ";", "\[IndentingNewLine]", RowBox[{"Plotd", "=", RowBox[{"Graphics3D", "[", RowBox[{"{", RowBox[{ RowBox[{"Opacity", "[", "0.5", "]"}], ",", RowBox[{"Lighter", "[", "Blue", "]"}], ",", RowBox[{"Sphere", "[", RowBox[{ RowBox[{"nk", "[", RowBox[{"[", "2", "]"}], "]"}], ",", "rln"}], "]"}]}], "}"}], "]"}]}], ";", "\[IndentingNewLine]", RowBox[{"Plotb0", "=", RowBox[{"Table", "[", RowBox[{ RowBox[{"Graphics3D", "[", RowBox[{"Text", "[", RowBox[{ RowBox[{"c", "[", RowBox[{"[", "i", "]"}], "]"}], ",", RowBox[{"p", "[", RowBox[{"[", "i", "]"}], "]"}], ",", RowBox[{"{", RowBox[{"1", ",", "0"}], "}"}]}], "]"}], "]"}], ",", RowBox[{"{", RowBox[{"i", ",", "1", ",", "P"}], "}"}]}], "]"}]}], ";", "\[IndentingNewLine]", RowBox[{"Show", "[", RowBox[{"Plotd", ",", RowBox[{"(*", RowBox[{"Plote", ","}], "*)"}], "Plota", ",", "Plotb0", ",", RowBox[{"(*", RowBox[{"Plotb1", ",", "Plotb2", ","}], "*)"}], "Plotc", ",", RowBox[{"{", RowBox[{ RowBox[{"Axes", "\[Rule]", "Automatic"}], ",", RowBox[{"AxesLabel", "\[Rule]", RowBox[{"{", RowBox[{"xl", ",", "yl", ",", "zl"}], "}"}]}], ",", RowBox[{"AspectRatio", "\[Rule]", "Automatic"}], ",", RowBox[{"Boxed", "\[Rule]", "False"}], ",", RowBox[{"PlotRange", "\[Rule]", "All"}], ",", " ", RowBox[{"SphericalRegion", "\[Rule]", "True"}]}], "}"}]}], "]"}]}], "*)"}], "\n", RowBox[{"U", "=", "p"}], ";", "\n", RowBox[{"U1", "=", "nk"}], ";", "\[IndentingNewLine]", RowBox[{"T", "=", RowBox[{"RotationMatrix", "[", RowBox[{ RowBox[{"-", "T3"}], ",", RowBox[{"{", RowBox[{"1", ",", "0", ",", "0"}], "}"}]}], "]"}]}], ";", "\[IndentingNewLine]", RowBox[{"p", "=", RowBox[{"U", ".", "T"}]}], ";", "\n", RowBox[{"nk", "=", RowBox[{"U1", ".", "T"}]}], ";", "\[IndentingNewLine]", RowBox[{"U", "=", "p"}], ";", "\n", RowBox[{"U1", "=", "nk"}], ";", "\[IndentingNewLine]", RowBox[{"T", "=", RowBox[{"RotationMatrix", "[", RowBox[{ RowBox[{"-", "T2"}], ",", RowBox[{"{", RowBox[{"0", ",", "0", ",", "1"}], "}"}]}], "]"}]}], ";", "\[IndentingNewLine]", RowBox[{"p", "=", RowBox[{"U", ".", "T"}]}], ";", "\n", RowBox[{"nk", "=", RowBox[{"U1", ".", "T"}]}], ";", "\n", RowBox[{"U", "=", "p"}], ";", "\n", RowBox[{"U1", "=", "nk"}], ";", "\[IndentingNewLine]", RowBox[{"T", "=", RowBox[{"RotationMatrix", "[", RowBox[{ RowBox[{"-", "T1"}], ",", RowBox[{"{", RowBox[{"1", ",", "0", ",", "0"}], "}"}]}], "]"}]}], ";", "\[IndentingNewLine]", RowBox[{"p", "=", RowBox[{"U", ".", "T"}]}], ";", "\n", RowBox[{"nk", "=", RowBox[{"U1", ".", "T"}]}], ";", "\n", RowBox[{"Clear", "[", RowBox[{"v", ",", "v1", ",", "v2"}], "]"}], ";", "\[IndentingNewLine]", RowBox[{"v", " ", "=", RowBox[{"Table", "[", RowBox[{ RowBox[{"Join", "[", RowBox[{ RowBox[{"p", "[", RowBox[{"[", "i", "]"}], "]"}], ",", RowBox[{"{", "1", "}"}]}], "]"}], ",", RowBox[{"{", RowBox[{"i", ",", "1", ",", "P"}], "}"}]}], "]"}]}], ";", "\[IndentingNewLine]", RowBox[{"v1", "=", RowBox[{"Table", "[", RowBox[{ RowBox[{"Join", "[", RowBox[{ RowBox[{"nk", "[", RowBox[{"[", "i", "]"}], "]"}], ",", RowBox[{"{", "1", "}"}]}], "]"}], ",", RowBox[{"{", RowBox[{"i", ",", "1", ",", "P"}], "}"}]}], "]"}]}], ";", "\[IndentingNewLine]", RowBox[{"Q", "=", RowBox[{"{", RowBox[{ RowBox[{"{", RowBox[{"1", ",", "0", ",", "0", ",", "0"}], "}"}], ",", "\[IndentingNewLine]", RowBox[{"{", RowBox[{"0", ",", "1", ",", "0", ",", "0"}], "}"}], ",", "\[IndentingNewLine]", RowBox[{"{", RowBox[{"0", ",", "0", ",", "1", ",", "0"}], "}"}], ",", "\[IndentingNewLine]", RowBox[{"{", RowBox[{"x2", ",", "y2", ",", "z2", ",", "1"}], "}"}]}], "}"}]}], ";", "\[IndentingNewLine]", RowBox[{"p", "=", RowBox[{"v", ".", "Q"}]}], ";", "\[IndentingNewLine]", RowBox[{"nk", "=", RowBox[{"v1", ".", "Q"}]}], ";", "\[IndentingNewLine]", RowBox[{"p", "=", RowBox[{"Table", "[", RowBox[{ RowBox[{"Take", "[", RowBox[{ RowBox[{"p", "[", RowBox[{"[", "i", "]"}], "]"}], ",", "3"}], "]"}], ",", RowBox[{"{", RowBox[{"i", ",", "1", ",", "P"}], "}"}]}], "]"}]}], ";", "\[IndentingNewLine]", RowBox[{"nk", "=", RowBox[{"Table", "[", RowBox[{ RowBox[{"Take", "[", RowBox[{ RowBox[{"nk", "[", RowBox[{"[", "i", "]"}], "]"}], ",", "3"}], "]"}], ",", RowBox[{"{", RowBox[{"i", ",", "1", ",", "P"}], "}"}]}], "]"}]}], ";", "\[IndentingNewLine]", RowBox[{ RowBox[{"tpln", "[", RowBox[{"[", "k", "]"}], "]"}], "=", RowBox[{"nk", "[", RowBox[{"[", "2", "]"}], "]"}]}]}], ")"}], ",", RowBox[{"{", RowBox[{"k", ",", "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.5740711445842266`*^9, 3.5740711934435124`*^9}, { 3.5740712484648085`*^9, 3.574071311114519*^9}, {3.574071353780594*^9, 3.5740714392063437`*^9}, {3.5740717257632475`*^9, 3.574071742283676*^9}, { 3.574071857115478*^9, 3.574071918189585*^9}, {3.5740720907414885`*^9, 3.5740720966694984`*^9}, {3.5740721676028233`*^9, 3.5740721835304513`*^9}, {3.5740722327953377`*^9, 3.574072381432399*^9}, { 3.57407241628286*^9, 3.5740725747635384`*^9}, {3.5740726677709017`*^9, 3.5740726864129343`*^9}, {3.5740729230809503`*^9, 3.574072923455351*^9}, { 3.5740729588050127`*^9, 3.574072990707069*^9}, {3.5740730904380445`*^9, 3.5740730958668537`*^9}, {3.574073130155714*^9, 3.57407314478854*^9}, { 3.574073269853959*^9, 3.5740733111160316`*^9}, {3.5740733441100893`*^9, 3.5740733480412965`*^9}, {3.5740733832037582`*^9, 3.5740734276482363`*^9}, 3.5740740818977857`*^9, 3.574074116810647*^9, {3.574074166481134*^9, 3.5740741666527348`*^9}, {3.57407419825839*^9, 3.5740742105668116`*^9}, { 3.574074252827286*^9, 3.5740742532484865`*^9}, {3.5740743137765927`*^9, 3.5740743140105934`*^9}, {3.574074358345871*^9, 3.5740743585954714`*^9}, 3.5740754073385134`*^9, {3.5741353517646933`*^9, 3.5741353928551655`*^9}, 3.574135465457693*^9}], Cell[BoxData[{ RowBox[{ RowBox[{"DeleteFile", "[", " ", "\"\\"", "]"}], ";"}], "\[IndentingNewLine]", RowBox[{"For", "[", RowBox[{ RowBox[{"i", "=", "2"}], ",", RowBox[{"i", "<", RowBox[{"n", "+", "2"}]}], ",", RowBox[{"i", "++"}], ",", "\[IndentingNewLine]", RowBox[{"For", "[", RowBox[{ RowBox[{"j", "=", "2"}], ",", RowBox[{"j", "\[LessEqual]", "i"}], ",", RowBox[{"j", "++"}], ",", "\[IndentingNewLine]", RowBox[{"If", "[", RowBox[{ RowBox[{ RowBox[{"Pij", "[", RowBox[{"[", RowBox[{"i", ",", "j"}], "]"}], "]"}], ">", "0"}], ",", RowBox[{ RowBox[{"{", RowBox[{ RowBox[{"i", "-", "1"}], ",", RowBox[{"j", "-", "1"}], ",", RowBox[{"Extract", "[", RowBox[{"Pij", ",", RowBox[{"{", RowBox[{"i", ",", "j"}], "}"}]}], "]"}]}], "}"}], ">>>", " ", "\"\\""}]}], "]"}]}], "]"}]}], "]"}]}], "Input", CellChangeTimes->{{3.5681154444347754`*^9, 3.568115497147268*^9}, { 3.568127214924899*^9, 3.568127265796589*^9}, {3.568128215276656*^9, 3.568128238536297*^9}, {3.568130718566253*^9, 3.5681307485339055`*^9}, 3.5681308175952272`*^9, {3.5681308916497574`*^9, 3.5681309458598523`*^9}, { 3.5681309983383446`*^9, 3.5681310118947687`*^9}, {3.5681310723448744`*^9, 3.568131074357278*^9}, {3.5681315215476637`*^9, 3.568131584509374*^9}, { 3.56813162789305*^9, 3.5681316427754765`*^9}, {3.5681317113063965`*^9, 3.568131715268804*^9}, {3.5681323203938665`*^9, 3.5681323260098763`*^9}, { 3.568132387567585*^9, 3.568132440014877*^9}, {3.5681325121026034`*^9, 3.568132590945142*^9}, {3.56813274298981*^9, 3.5681327548302307`*^9}, { 3.568132877867647*^9, 3.568132888335265*^9}, {3.568133052345154*^9, 3.568133072344389*^9}, {3.5681331740533676`*^9, 3.5681331951446047`*^9}, { 3.568133267793932*^9, 3.5681332684803333`*^9}, {3.5681335079111547`*^9, 3.568133536833606*^9}, {3.5681336272201643`*^9, 3.5681336314945717`*^9}, { 3.568133737994359*^9, 3.568133744000369*^9}, {3.568133978515581*^9, 3.5681339917912045`*^9}, {3.5681340324916763`*^9, 3.5681340418204927`*^9}, {3.568134244262048*^9, 3.5681342454944506`*^9}, { 3.5681343354754086`*^9, 3.568134336099409*^9}, {3.5681345828762426`*^9, 3.568134583952645*^9}, {3.5681348406666956`*^9, 3.5681348474683075`*^9}, 3.568134889151581*^9, {3.5681352914606876`*^9, 3.568135296265496*^9}, { 3.568135518877887*^9, 3.568135519595488*^9}, 3.5681357593679094`*^9, { 3.5681787035360527`*^9, 3.568178728449296*^9}, 3.5682779128076954`*^9, { 3.572714864038488*^9, 3.572714889419732*^9}, {3.5727149730514793`*^9, 3.57271500191153*^9}, {3.572715036933592*^9, 3.5727150664176435`*^9}, { 3.572715803191337*^9, 3.572715915183934*^9}, {3.5727159899548655`*^9, 3.572716037722149*^9}, {3.572767087700392*^9, 3.5727670990260115`*^9}, 3.5727756458897667`*^9, {3.5727757435615377`*^9, 3.5727758099084544`*^9}}], Cell[CellGroupData[{ Cell[BoxData[{ RowBox[{"a", "=", RowBox[{ "ReadList", "[", "\"\\"", "]"}]}], "\[IndentingNewLine]", RowBox[{"nb", "=", RowBox[{"Length", "[", "a", "]"}]}], "\[IndentingNewLine]", RowBox[{"cw", "=", RowBox[{"nb", "-", "bh"}]}]}], "Input", CellChangeTimes->{{3.5681343270045934`*^9, 3.568134331481801*^9}, 3.5681343823222904`*^9, {3.5681345934218616`*^9, 3.5681345986322703`*^9}, { 3.568134635479535*^9, 3.5681346521559644`*^9}, {3.5681351451792307`*^9, 3.568135145428831*^9}, {3.5681351781888885`*^9, 3.5681352349417877`*^9}, { 3.568135340163973*^9, 3.568135340335573*^9}, {3.568135523495495*^9, 3.5681355244314966`*^9}, {3.5681357674799232`*^9, 3.5681357771675406`*^9}, {3.568136284433632*^9, 3.5681362987700567`*^9}, { 3.568136395053426*^9, 3.5681363965510283`*^9}, {3.568381170343589*^9, 3.568381179844005*^9}, {3.5689533222924633`*^9, 3.568953376658559*^9}}], Cell[BoxData[ RowBox[{"{", RowBox[{ RowBox[{"{", RowBox[{"2", ",", "1", ",", "1.1741575894320724`"}], "}"}], ",", RowBox[{"{", RowBox[{"3", ",", "2", ",", "1.0673042019770722`"}], "}"}], ",", RowBox[{"{", RowBox[{"4", ",", "3", ",", "1.0827078922210744`"}], "}"}], ",", RowBox[{"{", RowBox[{"6", ",", "5", ",", "1.1183813050721103`"}], "}"}], ",", RowBox[{"{", RowBox[{"7", ",", "6", ",", "1.1052450325469843`"}], "}"}], ",", RowBox[{"{", RowBox[{"8", ",", "7", ",", "1.0987984802113908`"}], "}"}], ",", RowBox[{"{", RowBox[{"9", ",", "8", ",", "1.049545563072611`"}], "}"}], ",", RowBox[{"{", RowBox[{"10", ",", "5", ",", "1.1013267917479492`"}], "}"}], ",", RowBox[{"{", RowBox[{"10", ",", "9", ",", "1.092073027581558`"}], "}"}], ",", RowBox[{"{", RowBox[{"11", ",", "7", ",", "1.0902148045688052`"}], "}"}], ",", RowBox[{"{", RowBox[{"12", ",", "11", ",", "1.0572724020450528`"}], "}"}], ",", RowBox[{"{", RowBox[{"13", ",", "12", ",", "1.0836998001094689`"}], "}"}], ",", RowBox[{"{", RowBox[{"14", ",", "6", ",", "1.0874859271236883`"}], "}"}], ",", RowBox[{"{", RowBox[{"14", ",", "13", ",", "1.0595272579113255`"}], "}"}], ",", RowBox[{"{", RowBox[{"15", ",", "4", ",", "1.09314926143109`"}], "}"}], ",", RowBox[{"{", RowBox[{"16", ",", "15", ",", "1.074782972706164`"}], "}"}], ",", RowBox[{"{", RowBox[{"17", ",", "2", ",", "1.0866838587126921`"}], "}"}], ",", RowBox[{"{", RowBox[{"17", ",", "16", ",", "1.064629652346243`"}], "}"}], ",", RowBox[{"{", RowBox[{"18", ",", "4", ",", "1.0818193314930293`"}], "}"}], ",", RowBox[{"{", RowBox[{"19", ",", "5", ",", "1.0613110471208929`"}], "}"}], ",", RowBox[{"{", RowBox[{"19", ",", "18", ",", "0.9978239325060166`"}], "}"}], ",", RowBox[{"{", RowBox[{"20", ",", "10", ",", "1.0409411603185525`"}], "}"}], ",", RowBox[{"{", RowBox[{"21", ",", "15", ",", "1.0659539315092081`"}], "}"}], ",", RowBox[{"{", RowBox[{"22", ",", "20", ",", "1.2975401991759468`"}], "}"}], ",", RowBox[{"{", RowBox[{"23", ",", "9", ",", "1.2548294268743487`"}], "}"}], ",", RowBox[{"{", RowBox[{"24", ",", "8", ",", "1.2590582869809372`"}], "}"}], ",", RowBox[{"{", RowBox[{"25", ",", "14", ",", "1.2527166436960044`"}], "}"}], ",", RowBox[{"{", RowBox[{"26", ",", "13", ",", "1.2582169202276483`"}], "}"}], ",", RowBox[{"{", RowBox[{"27", ",", "12", ",", "1.257073205575061`"}], "}"}], ",", RowBox[{"{", RowBox[{"28", ",", "11", ",", "1.2587024714761457`"}], "}"}], ",", RowBox[{"{", RowBox[{"29", ",", "21", ",", "1.1651315046308615`"}], "}"}], ",", RowBox[{"{", RowBox[{"30", ",", "17", ",", "1.2600748157639323`"}], "}"}], ",", RowBox[{"{", RowBox[{"31", ",", "16", ",", "1.2545530242329948`"}], "}"}], ",", RowBox[{"{", RowBox[{"32", ",", "3", ",", "1.2545012626118397`"}], "}"}], ",", RowBox[{"{", RowBox[{"33", ",", "1", ",", "1.2795030335692488`"}], "}"}], ",", RowBox[{"{", RowBox[{"34", ",", "1", ",", "1.2791202202948173`"}], "}"}], ",", RowBox[{"{", RowBox[{"35", ",", "1", ",", "1.2722079387422007`"}], "}"}]}], "}"}]], "Output", CellChangeTimes->{ 3.5743352992143383`*^9, 3.5743387963229885`*^9, 3.5743400730760307`*^9, 3.5743410046784673`*^9, 3.5743410886846147`*^9, 3.57434116573315*^9, { 3.5743412379768767`*^9, 3.5743412656669254`*^9}, {3.574341298395783*^9, 3.5743413243386283`*^9}, 3.5743415284337873`*^9, 3.580058338457004*^9}], Cell[BoxData["37"], "Output", CellChangeTimes->{ 3.5743352992143383`*^9, 3.5743387963229885`*^9, 3.5743400730760307`*^9, 3.5743410046784673`*^9, 3.5743410886846147`*^9, 3.57434116573315*^9, { 3.5743412379768767`*^9, 3.5743412656669254`*^9}, {3.574341298395783*^9, 3.5743413243386283`*^9}, 3.5743415284337873`*^9, 3.5800583384600043`*^9}], Cell[BoxData["23"], "Output", CellChangeTimes->{ 3.5743352992143383`*^9, 3.5743387963229885`*^9, 3.5743400730760307`*^9, 3.5743410046784673`*^9, 3.5743410886846147`*^9, 3.57434116573315*^9, { 3.5743412379768767`*^9, 3.5743412656669254`*^9}, {3.574341298395783*^9, 3.5743413243386283`*^9}, 3.5743415284337873`*^9, 3.5800583384610043`*^9}] }, Open ]], Cell[BoxData[{ RowBox[{ RowBox[{"wxc", "=", RowBox[{"Table", "[", RowBox[{ RowBox[{ RowBox[{ RowBox[{ RowBox[{"(", RowBox[{ RowBox[{"a", "[", RowBox[{"[", RowBox[{"i", ",", "3"}], "]"}], "]"}], "+", RowBox[{"u2", "[", RowBox[{"[", RowBox[{"a", "[", RowBox[{"[", RowBox[{"i", ",", "1"}], "]"}], "]"}], "]"}], "]"}]}], ")"}], "/", RowBox[{"(", RowBox[{ RowBox[{"u2", "[", RowBox[{"[", RowBox[{"a", "[", RowBox[{"[", RowBox[{"i", ",", "1"}], "]"}], "]"}], "]"}], "]"}], "+", RowBox[{"2", "*", RowBox[{"a", "[", RowBox[{"[", RowBox[{"i", ",", "3"}], "]"}], "]"}]}], "+", RowBox[{"u2", "[", RowBox[{"[", RowBox[{"a", "[", RowBox[{"[", RowBox[{"i", ",", "2"}], "]"}], "]"}], "]"}], "]"}]}], ")"}]}], "*", RowBox[{"(", RowBox[{ RowBox[{"x", "[", RowBox[{"[", RowBox[{"a", "[", RowBox[{"[", RowBox[{"i", ",", "2"}], "]"}], "]"}], "]"}], "]"}], "-", RowBox[{"x", "[", RowBox[{"[", RowBox[{"a", "[", RowBox[{"[", RowBox[{"i", ",", "1"}], "]"}], "]"}], "]"}], "]"}]}], ")"}]}], "+", RowBox[{"x", "[", RowBox[{"[", RowBox[{"a", "[", RowBox[{"[", RowBox[{"i", ",", "1"}], "]"}], "]"}], "]"}], "]"}]}], ",", RowBox[{"{", RowBox[{"i", ",", "1", ",", "cw"}], "}"}]}], "]"}]}], ";"}], "\n", RowBox[{ RowBox[{ RowBox[{"wyc", "=", RowBox[{"Table", "[", RowBox[{ RowBox[{ RowBox[{ RowBox[{ RowBox[{"(", RowBox[{ RowBox[{"a", "[", RowBox[{"[", RowBox[{"i", ",", "3"}], "]"}], "]"}], "+", RowBox[{"u2", "[", RowBox[{"[", RowBox[{"a", "[", RowBox[{"[", RowBox[{"i", ",", "1"}], "]"}], "]"}], "]"}], "]"}]}], ")"}], "/", RowBox[{"(", RowBox[{ RowBox[{"u2", "[", RowBox[{"[", RowBox[{"a", "[", RowBox[{"[", RowBox[{"i", ",", "1"}], "]"}], "]"}], "]"}], "]"}], "+", RowBox[{"2", "*", RowBox[{"a", "[", RowBox[{"[", RowBox[{"i", ",", "3"}], "]"}], "]"}]}], "+", RowBox[{"u2", "[", RowBox[{"[", RowBox[{"a", "[", RowBox[{"[", RowBox[{"i", ",", "2"}], "]"}], "]"}], "]"}], "]"}]}], ")"}]}], "*", RowBox[{"(", RowBox[{ RowBox[{"y", "[", RowBox[{"[", RowBox[{"a", "[", RowBox[{"[", RowBox[{"i", ",", "2"}], "]"}], "]"}], "]"}], "]"}], "-", RowBox[{"y", "[", RowBox[{"[", RowBox[{"a", "[", RowBox[{"[", RowBox[{"i", ",", "1"}], "]"}], "]"}], "]"}], "]"}]}], ")"}]}], "+", RowBox[{"y", "[", RowBox[{"[", RowBox[{"a", "[", RowBox[{"[", RowBox[{"i", ",", "1"}], "]"}], "]"}], "]"}], "]"}]}], ",", RowBox[{"{", RowBox[{"i", ",", "1", ",", "cw"}], "}"}]}], "]"}]}], ";"}], " "}], "\n", RowBox[{ RowBox[{"wzc", "=", RowBox[{"Table", "[", RowBox[{ RowBox[{ RowBox[{ RowBox[{ RowBox[{"(", RowBox[{ RowBox[{"a", "[", RowBox[{"[", RowBox[{"i", ",", "3"}], "]"}], "]"}], "+", RowBox[{"u2", "[", RowBox[{"[", RowBox[{"a", "[", RowBox[{"[", RowBox[{"i", ",", "1"}], "]"}], "]"}], "]"}], "]"}]}], ")"}], "/", RowBox[{"(", RowBox[{ RowBox[{"u2", "[", RowBox[{"[", RowBox[{"a", "[", RowBox[{"[", RowBox[{"i", ",", "1"}], "]"}], "]"}], "]"}], "]"}], "+", RowBox[{"2", "*", RowBox[{"a", "[", RowBox[{"[", RowBox[{"i", ",", "3"}], "]"}], "]"}]}], "+", RowBox[{"u2", "[", RowBox[{"[", RowBox[{"a", "[", RowBox[{"[", RowBox[{"i", ",", "2"}], "]"}], "]"}], "]"}], "]"}]}], ")"}]}], "*", RowBox[{"(", RowBox[{ RowBox[{"z", "[", RowBox[{"[", RowBox[{"a", "[", RowBox[{"[", RowBox[{"i", ",", "2"}], "]"}], "]"}], "]"}], "]"}], "-", RowBox[{"z", "[", RowBox[{"[", RowBox[{"a", "[", RowBox[{"[", RowBox[{"i", ",", "1"}], "]"}], "]"}], "]"}], "]"}]}], ")"}]}], "+", RowBox[{"z", "[", RowBox[{"[", RowBox[{"a", "[", RowBox[{"[", RowBox[{"i", ",", "1"}], "]"}], "]"}], "]"}], "]"}]}], ",", RowBox[{"{", RowBox[{"i", ",", "1", ",", "cw"}], "}"}]}], "]"}]}], ";"}]}], "Input", CellChangeTimes->{{3.5681365021632137`*^9, 3.5681365171392403`*^9}, { 3.568136560351316*^9, 3.5681365863097615`*^9}, {3.5681369135895367`*^9, 3.5681369265999594`*^9}, {3.568137821916732*^9, 3.5681378378443604`*^9}, { 3.5682072492149415`*^9, 3.5682072529901485`*^9}, 3.568209802830227*^9, { 3.5682216503836985`*^9, 3.5682217583046885`*^9}, {3.5682217912831464`*^9, 3.568221843465238*^9}, {3.5682219760654707`*^9, 3.5682221133457117`*^9}, { 3.568222159615393*^9, 3.5682221693498106`*^9}, {3.5682222565227633`*^9, 3.5682222578487663`*^9}, 3.5682224736283445`*^9, 3.5682227227607822`*^9, 3.5682227558640404`*^9, {3.568222818810151*^9, 3.5682228486062036`*^9}, { 3.5682230057764797`*^9, 3.5682230079916835`*^9}, {3.568223041952943*^9, 3.5682230548229656`*^9}, 3.5682232619601297`*^9, 3.5682233000709963`*^9, { 3.568223536645412*^9, 3.5682235381118145`*^9}, {3.568223591151908*^9, 3.568223591526308*^9}, {3.5682236491528096`*^9, 3.568223657483224*^9}, { 3.568223713222122*^9, 3.5682237532361927`*^9}, {3.568223800379475*^9, 3.568223827648323*^9}, {3.5682238887380304`*^9, 3.5682238893152313`*^9}, { 3.5682240287170763`*^9, 3.5682240612431335`*^9}, 3.5682241088076167`*^9, { 3.568224198772975*^9, 3.5682242396450467`*^9}, {3.568224282170721*^9, 3.5682243185031853`*^9}, {3.568224437890195*^9, 3.568224439590598*^9}, { 3.568224572253231*^9, 3.5682245867144566`*^9}, {3.5682247081762695`*^9, 3.568224733557514*^9}, {3.56822480520844*^9, 3.5682248433505073`*^9}, { 3.568224884206979*^9, 3.5682248959069996`*^9}, {3.568224982830352*^9, 3.5682250047639904`*^9}, {3.56822503870965*^9, 3.5682250803305235`*^9}, { 3.5682251223413973`*^9, 3.568225141451431*^9}, {3.568225234177994*^9, 3.5682252929588966`*^9}, {3.5682253775890455`*^9, 3.568225482140429*^9}, { 3.56822551694409*^9, 3.5682255297205124`*^9}, {3.568225573197789*^9, 3.5682255809666023`*^9}, 3.568225660698343*^9, 3.5682257301964645`*^9, { 3.568225765078126*^9, 3.5682257828933573`*^9}, {3.568225927026843*^9, 3.568225927416844*^9}, {3.568267062420238*^9, 3.568267081358671*^9}, { 3.568267188328059*^9, 3.5682672830358257`*^9}, {3.5682676367040462`*^9, 3.568267747979042*^9}, 3.5682678404716043`*^9, 3.568267882030078*^9, { 3.5682679252577534`*^9, 3.568267996612279*^9}, {3.5682680488879704`*^9, 3.568268061133992*^9}, {3.568268100914062*^9, 3.5682681150944867`*^9}, { 3.5682681672609787`*^9, 3.5682681709113846`*^9}, {3.568268272904364*^9, 3.5682683182536435`*^9}, {3.5682685202739983`*^9, 3.568268599194537*^9}, { 3.5682686348873997`*^9, 3.568268637773405*^9}, {3.5682686944951043`*^9, 3.568268872273017*^9}, {3.5682689420207396`*^9, 3.568269016947671*^9}, { 3.5682695040741262`*^9, 3.568269601153097*^9}, {3.5682696652380095`*^9, 3.5682696728352227`*^9}, {3.5682697489633565`*^9, 3.5682698308635006`*^9}, {3.568271156491429*^9, 3.568271160063835*^9}, { 3.568271244927984*^9, 3.568271369010602*^9}, {3.5682716250070515`*^9, 3.5682717312276382`*^9}, {3.5682717843301315`*^9, 3.5682718576814604`*^9}, {3.568271940673606*^9, 3.5682720536490045`*^9}, { 3.5682722259669075`*^9, 3.5682723223126764`*^9}, {3.568272370813162*^9, 3.568272411466833*^9}, {3.5682725893539457`*^9, 3.568272622238803*^9}, { 3.5682726936713285`*^9, 3.5682726960113325`*^9}, {3.568272741079812*^9, 3.56827275143823*^9}, {3.5682729218373294`*^9, 3.568272991070251*^9}, { 3.5682734285574193`*^9, 3.5682734302890224`*^9}, {3.5682734898811274`*^9, 3.5682735111595645`*^9}, {3.5682736115925407`*^9, 3.5682736313577757`*^9}, {3.5682738601945777`*^9, 3.568273987272401*^9}, { 3.5682763944346285`*^9, 3.5682764313910933`*^9}, 3.5682765128232365`*^9, { 3.5682766527398825`*^9, 3.568276660976697*^9}, {3.5682774496048822`*^9, 3.568277461663703*^9}, {3.5683784032731285`*^9, 3.568378422991563*^9}, { 3.568378459308427*^9, 3.5683784812420654`*^9}, {3.568378513440522*^9, 3.568378867046343*^9}, {3.568378915468828*^9, 3.56837896203491*^9}, { 3.5683790764299107`*^9, 3.568379270041851*^9}, {3.568380233530743*^9, 3.568380234388745*^9}, 3.5683804214954734`*^9, 3.568380471867962*^9, 3.5683805399464817`*^9, {3.5683812396077104`*^9, 3.568381293537005*^9}, { 3.568381339541486*^9, 3.5683813935175805`*^9}, 3.5684646396646404`*^9, 3.5684646988823442`*^9, 3.568465086387025*^9, {3.5684655859935026`*^9, 3.568465605087936*^9}, 3.568821235038273*^9, 3.5688233741452303`*^9, 3.568823449742963*^9, 3.5688274593312387`*^9, {3.5688284679978104`*^9, 3.5688284689026117`*^9}, {3.5688285131598897`*^9, 3.5688285201487017`*^9}, 3.5688285866360188`*^9, {3.5688292397623663`*^9, 3.568829246688778*^9}, { 3.5688780328231993`*^9, 3.568878075458074*^9}, 3.5688953020257144`*^9, 3.5693395777359695`*^9, {3.569339615191635*^9, 3.569339617079238*^9}, { 3.5693396917877693`*^9, 3.56933969216217*^9}, 3.5693893483274703`*^9}], Cell[BoxData[ RowBox[{ RowBox[{"Plot7", "=", RowBox[{"Table", "[", RowBox[{ RowBox[{"Graphics3D", "[", RowBox[{"{", RowBox[{ RowBox[{"Darker", "[", RowBox[{"Brown", ",", "0.4"}], "]"}], ",", RowBox[{"Opacity", "[", "0.5", "]"}], ",", RowBox[{"If", "[", RowBox[{ RowBox[{ RowBox[{"wxc", "[", RowBox[{"[", "i", "]"}], "]"}], "\[NotEqual]", "0"}], ",", RowBox[{"Sphere", "[", RowBox[{ RowBox[{"{", RowBox[{ RowBox[{"wxc", "[", RowBox[{"[", "i", "]"}], "]"}], ",", RowBox[{"wyc", "[", RowBox[{"[", "i", "]"}], "]"}], ",", RowBox[{"wzc", "[", RowBox[{"[", "i", "]"}], "]"}]}], "}"}], ",", RowBox[{"a", "[", RowBox[{"[", RowBox[{"i", ",", "3"}], "]"}], "]"}]}], "]"}]}], "]"}]}], "}"}], "]"}], ",", RowBox[{"{", RowBox[{"i", ",", "1", ",", "cw"}], "}"}]}], "]"}]}], ";"}]], "Input", CellChangeTimes->{{3.5681365021632137`*^9, 3.5681365171392403`*^9}, { 3.568136560351316*^9, 3.5681365863097615`*^9}, {3.5681369135895367`*^9, 3.5681369265999594`*^9}, {3.568137821916732*^9, 3.5681378378443604`*^9}, { 3.5682072492149415`*^9, 3.5682072529901485`*^9}, 3.568209802830227*^9, { 3.5682216503836985`*^9, 3.5682217583046885`*^9}, {3.5682217912831464`*^9, 3.568221843465238*^9}, {3.5682219760654707`*^9, 3.5682221133457117`*^9}, { 3.568222159615393*^9, 3.5682221693498106`*^9}, {3.5682222565227633`*^9, 3.5682222578487663`*^9}, 3.5682224736283445`*^9, 3.5682227227607822`*^9, 3.5682227558640404`*^9, {3.568222818810151*^9, 3.5682228486062036`*^9}, { 3.5682230057764797`*^9, 3.5682230079916835`*^9}, {3.568223041952943*^9, 3.5682230548229656`*^9}, 3.5682232619601297`*^9, 3.5682233000709963`*^9, { 3.568223536645412*^9, 3.5682235381118145`*^9}, {3.568223591151908*^9, 3.568223591526308*^9}, {3.5682236491528096`*^9, 3.568223657483224*^9}, { 3.568223713222122*^9, 3.5682237532361927`*^9}, {3.568223800379475*^9, 3.568223827648323*^9}, {3.5682238887380304`*^9, 3.5682238893152313`*^9}, { 3.5682240287170763`*^9, 3.5682240612431335`*^9}, 3.5682241088076167`*^9, { 3.568224198772975*^9, 3.5682242396450467`*^9}, {3.568224282170721*^9, 3.5682243185031853`*^9}, {3.568224437890195*^9, 3.568224439590598*^9}, { 3.568224572253231*^9, 3.5682245867144566`*^9}, {3.5682247081762695`*^9, 3.568224733557514*^9}, {3.56822480520844*^9, 3.5682248433505073`*^9}, { 3.568224884206979*^9, 3.5682248959069996`*^9}, {3.568224982830352*^9, 3.5682250047639904`*^9}, {3.56822503870965*^9, 3.5682250803305235`*^9}, { 3.5682251223413973`*^9, 3.568225141451431*^9}, {3.568225234177994*^9, 3.5682252929588966`*^9}, {3.5682253775890455`*^9, 3.568225482140429*^9}, { 3.56822551694409*^9, 3.5682255297205124`*^9}, {3.568225573197789*^9, 3.5682255809666023`*^9}, 3.568225660698343*^9, 3.5682257301964645`*^9, { 3.568225765078126*^9, 3.5682257828933573`*^9}, {3.568225927026843*^9, 3.568225927416844*^9}, {3.568267062420238*^9, 3.568267081358671*^9}, { 3.568267188328059*^9, 3.5682672830358257`*^9}, {3.5682676367040462`*^9, 3.568267747979042*^9}, 3.5682678404716043`*^9, 3.568267882030078*^9, { 3.5682679252577534`*^9, 3.568267996612279*^9}, {3.5682680488879704`*^9, 3.568268061133992*^9}, {3.568268100914062*^9, 3.5682681150944867`*^9}, { 3.5682681672609787`*^9, 3.5682681709113846`*^9}, {3.568268272904364*^9, 3.5682683182536435`*^9}, {3.5682685202739983`*^9, 3.568268599194537*^9}, { 3.5682686348873997`*^9, 3.568268637773405*^9}, {3.5682686944951043`*^9, 3.568268872273017*^9}, {3.5682689420207396`*^9, 3.568269016947671*^9}, { 3.5682695040741262`*^9, 3.568269601153097*^9}, {3.5682696652380095`*^9, 3.5682696728352227`*^9}, {3.5682697489633565`*^9, 3.5682698308635006`*^9}, {3.568271156491429*^9, 3.568271160063835*^9}, { 3.568271244927984*^9, 3.568271369010602*^9}, {3.5682716250070515`*^9, 3.5682717312276382`*^9}, {3.5682717843301315`*^9, 3.5682718576814604`*^9}, {3.568271940673606*^9, 3.5682720536490045`*^9}, { 3.5682722259669075`*^9, 3.5682723223126764`*^9}, {3.568272370813162*^9, 3.568272411466833*^9}, {3.5682725893539457`*^9, 3.568272622238803*^9}, { 3.5682726936713285`*^9, 3.5682726960113325`*^9}, {3.568272741079812*^9, 3.56827275143823*^9}, {3.5682729218373294`*^9, 3.568272991070251*^9}, { 3.5682734285574193`*^9, 3.5682734302890224`*^9}, {3.5682734898811274`*^9, 3.5682735111595645`*^9}, {3.5682736115925407`*^9, 3.5682736313577757`*^9}, {3.5682738601945777`*^9, 3.568273987272401*^9}, { 3.5682763944346285`*^9, 3.5682764313910933`*^9}, 3.5682765128232365`*^9, { 3.5682766527398825`*^9, 3.568276660976697*^9}, {3.5682774496048822`*^9, 3.568277461663703*^9}, {3.5683784032731285`*^9, 3.568378422991563*^9}, { 3.568378459308427*^9, 3.5683784812420654`*^9}, {3.568378513440522*^9, 3.568378867046343*^9}, {3.568378915468828*^9, 3.56837896203491*^9}, { 3.5683790764299107`*^9, 3.568379270041851*^9}, {3.568380233530743*^9, 3.568380234388745*^9}, 3.5683804214954734`*^9, 3.568380471867962*^9, 3.5683805399464817`*^9, {3.5683812396077104`*^9, 3.568381293537005*^9}, { 3.568381339541486*^9, 3.5683813935175805`*^9}, 3.5684646396646404`*^9, 3.5684646988823442`*^9, 3.568465086387025*^9, {3.5684655859935026`*^9, 3.568465605087936*^9}, 3.568821235038273*^9, 3.5688233741452303`*^9, 3.568823449742963*^9, 3.5688274593312387`*^9, {3.5688284679978104`*^9, 3.5688284689026117`*^9}, {3.5688285131598897`*^9, 3.5688285201487017`*^9}, 3.5688285866360188`*^9, {3.5688292397623663`*^9, 3.568829246688778*^9}, { 3.5688780328231993`*^9, 3.56887811871695*^9}, {3.568895331556566*^9, 3.5688953367201753`*^9}, 3.568895995276532*^9, {3.5693397032225895`*^9, 3.56933970331619*^9}, 3.569339737137049*^9, 3.569340055299608*^9, 3.569389360947892*^9, {3.570298060155057*^9, 3.570298071589877*^9}, { 3.5704539766451664`*^9, 3.5704539773627677`*^9}, {3.5709509139026003`*^9, 3.570950950500265*^9}, {3.570950995397144*^9, 3.5709510449896307`*^9}, { 3.570974064815357*^9, 3.5709741190878525`*^9}, {3.5709742487084804`*^9, 3.570974273528124*^9}, {3.5713747544125347`*^9, 3.571374762618149*^9}, 3.5713830670175667`*^9}], Cell[BoxData[{ RowBox[{ RowBox[{"wxh", "=", RowBox[{"Table", "[", RowBox[{ RowBox[{ RowBox[{ RowBox[{ RowBox[{"(", RowBox[{ RowBox[{"a", "[", RowBox[{"[", RowBox[{"i", ",", "3"}], "]"}], "]"}], "+", RowBox[{"u2", "[", RowBox[{"[", RowBox[{"a", "[", RowBox[{"[", RowBox[{"i", ",", "2"}], "]"}], "]"}], "]"}], "]"}]}], ")"}], "/", RowBox[{"(", RowBox[{ RowBox[{"u2", "[", RowBox[{"[", RowBox[{"a", "[", RowBox[{"[", RowBox[{"i", ",", "1"}], "]"}], "]"}], "]"}], "]"}], "+", RowBox[{"a", "[", RowBox[{"[", RowBox[{"i", ",", "3"}], "]"}], "]"}], "+", RowBox[{"u2", "[", RowBox[{"[", RowBox[{"a", "[", RowBox[{"[", RowBox[{"i", ",", "2"}], "]"}], "]"}], "]"}], "]"}]}], ")"}]}], "*", RowBox[{"(", RowBox[{ RowBox[{"x", "[", RowBox[{"[", RowBox[{"a", "[", RowBox[{"[", RowBox[{"i", ",", "1"}], "]"}], "]"}], "]"}], "]"}], "-", RowBox[{"x", "[", RowBox[{"[", RowBox[{"a", "[", RowBox[{"[", RowBox[{"i", ",", "2"}], "]"}], "]"}], "]"}], "]"}]}], ")"}]}], "+", RowBox[{"x", "[", RowBox[{"[", RowBox[{"a", "[", RowBox[{"[", RowBox[{"i", ",", "2"}], "]"}], "]"}], "]"}], "]"}]}], ",", RowBox[{"{", RowBox[{"i", ",", RowBox[{"cw", "+", "1"}], ",", "nb"}], "}"}]}], "]"}]}], ";"}], "\n", RowBox[{ RowBox[{"wyh", "=", RowBox[{"Table", "[", RowBox[{ RowBox[{ RowBox[{ RowBox[{ RowBox[{"(", RowBox[{ RowBox[{"a", "[", RowBox[{"[", RowBox[{"i", ",", "3"}], "]"}], "]"}], "+", RowBox[{"u2", "[", RowBox[{"[", RowBox[{"a", "[", RowBox[{"[", RowBox[{"i", ",", "2"}], "]"}], "]"}], "]"}], "]"}]}], ")"}], "/", RowBox[{"(", RowBox[{ RowBox[{"u2", "[", RowBox[{"[", RowBox[{"a", "[", RowBox[{"[", RowBox[{"i", ",", "1"}], "]"}], "]"}], "]"}], "]"}], "+", RowBox[{"a", "[", RowBox[{"[", RowBox[{"i", ",", "3"}], "]"}], "]"}], "+", RowBox[{"u2", "[", RowBox[{"[", RowBox[{"a", "[", RowBox[{"[", RowBox[{"i", ",", "2"}], "]"}], "]"}], "]"}], "]"}]}], ")"}]}], "*", RowBox[{"(", RowBox[{ RowBox[{"y", "[", RowBox[{"[", RowBox[{"a", "[", RowBox[{"[", RowBox[{"i", ",", "1"}], "]"}], "]"}], "]"}], "]"}], "-", RowBox[{"y", "[", RowBox[{"[", RowBox[{"a", "[", RowBox[{"[", RowBox[{"i", ",", "2"}], "]"}], "]"}], "]"}], "]"}]}], ")"}]}], "+", RowBox[{"y", "[", RowBox[{"[", RowBox[{"a", "[", RowBox[{"[", RowBox[{"i", ",", "2"}], "]"}], "]"}], "]"}], "]"}]}], ",", RowBox[{"{", RowBox[{"i", ",", RowBox[{"cw", "+", "1"}], ",", "nb"}], "}"}]}], "]"}]}], ";"}], "\n", RowBox[{ RowBox[{"wzh", "=", RowBox[{"Table", "[", RowBox[{ RowBox[{ RowBox[{ RowBox[{ RowBox[{"(", RowBox[{ RowBox[{"a", "[", RowBox[{"[", RowBox[{"i", ",", "3"}], "]"}], "]"}], "+", RowBox[{"u2", "[", RowBox[{"[", RowBox[{"a", "[", RowBox[{"[", RowBox[{"i", ",", "2"}], "]"}], "]"}], "]"}], "]"}]}], ")"}], "/", RowBox[{"(", RowBox[{ RowBox[{"u2", "[", RowBox[{"[", RowBox[{"a", "[", RowBox[{"[", RowBox[{"i", ",", "1"}], "]"}], "]"}], "]"}], "]"}], "+", RowBox[{"a", "[", RowBox[{"[", RowBox[{"i", ",", "3"}], "]"}], "]"}], "+", RowBox[{"u2", "[", RowBox[{"[", RowBox[{"a", "[", RowBox[{"[", RowBox[{"i", ",", "2"}], "]"}], "]"}], "]"}], "]"}]}], ")"}]}], "*", RowBox[{"(", RowBox[{ RowBox[{"z", "[", RowBox[{"[", RowBox[{"a", "[", RowBox[{"[", RowBox[{"i", ",", "1"}], "]"}], "]"}], "]"}], "]"}], "-", RowBox[{"z", "[", RowBox[{"[", RowBox[{"a", "[", RowBox[{"[", RowBox[{"i", ",", "2"}], "]"}], "]"}], "]"}], "]"}]}], ")"}]}], "+", RowBox[{"z", "[", RowBox[{"[", RowBox[{"a", "[", RowBox[{"[", RowBox[{"i", ",", "2"}], "]"}], "]"}], "]"}], "]"}]}], ",", RowBox[{"{", RowBox[{"i", ",", RowBox[{"cw", "+", "1"}], ",", "nb"}], "}"}]}], "]"}]}], ";"}]}], "Input", CellChangeTimes->{{3.5681365021632137`*^9, 3.5681365171392403`*^9}, { 3.568136560351316*^9, 3.5681365863097615`*^9}, {3.5681369135895367`*^9, 3.5681369265999594`*^9}, {3.568137821916732*^9, 3.5681378378443604`*^9}, { 3.5682072492149415`*^9, 3.5682072529901485`*^9}, 3.568209802830227*^9, { 3.5682216503836985`*^9, 3.5682217583046885`*^9}, {3.5682217912831464`*^9, 3.568221843465238*^9}, {3.5682219760654707`*^9, 3.5682221133457117`*^9}, { 3.568222159615393*^9, 3.5682221693498106`*^9}, {3.5682222565227633`*^9, 3.5682222578487663`*^9}, 3.5682224736283445`*^9, 3.5682227227607822`*^9, 3.5682227558640404`*^9, {3.568222818810151*^9, 3.5682228486062036`*^9}, { 3.5682230057764797`*^9, 3.5682230079916835`*^9}, {3.568223041952943*^9, 3.5682230548229656`*^9}, 3.5682232619601297`*^9, 3.5682233000709963`*^9, { 3.568223536645412*^9, 3.5682235381118145`*^9}, {3.568223591151908*^9, 3.568223591526308*^9}, {3.5682236491528096`*^9, 3.568223657483224*^9}, { 3.568223713222122*^9, 3.5682237532361927`*^9}, {3.568223800379475*^9, 3.568223827648323*^9}, {3.5682238887380304`*^9, 3.5682238893152313`*^9}, { 3.5682240287170763`*^9, 3.5682240612431335`*^9}, 3.5682241088076167`*^9, { 3.568224198772975*^9, 3.5682242396450467`*^9}, {3.568224282170721*^9, 3.5682243185031853`*^9}, {3.568224437890195*^9, 3.568224439590598*^9}, { 3.568224572253231*^9, 3.5682245867144566`*^9}, {3.5682247081762695`*^9, 3.568224733557514*^9}, {3.56822480520844*^9, 3.5682248433505073`*^9}, { 3.568224884206979*^9, 3.5682248959069996`*^9}, {3.568224982830352*^9, 3.5682250047639904`*^9}, {3.56822503870965*^9, 3.5682250803305235`*^9}, { 3.5682251223413973`*^9, 3.568225141451431*^9}, {3.568225234177994*^9, 3.5682252929588966`*^9}, {3.5682253775890455`*^9, 3.568225482140429*^9}, { 3.56822551694409*^9, 3.5682255297205124`*^9}, {3.568225573197789*^9, 3.5682255809666023`*^9}, 3.568225660698343*^9, 3.5682257301964645`*^9, { 3.568225765078126*^9, 3.5682257828933573`*^9}, {3.568225927026843*^9, 3.568225927416844*^9}, {3.568267062420238*^9, 3.568267081358671*^9}, { 3.568267188328059*^9, 3.5682672830358257`*^9}, {3.5682676367040462`*^9, 3.568267747979042*^9}, 3.5682678404716043`*^9, 3.568267882030078*^9, { 3.5682679252577534`*^9, 3.568267996612279*^9}, {3.5682680488879704`*^9, 3.568268061133992*^9}, {3.568268100914062*^9, 3.5682681150944867`*^9}, { 3.5682681672609787`*^9, 3.5682681709113846`*^9}, {3.568268272904364*^9, 3.5682683182536435`*^9}, {3.5682685202739983`*^9, 3.568268599194537*^9}, { 3.5682686348873997`*^9, 3.568268637773405*^9}, {3.5682686944951043`*^9, 3.568268872273017*^9}, {3.5682689420207396`*^9, 3.568269016947671*^9}, { 3.5682695040741262`*^9, 3.568269601153097*^9}, {3.5682696652380095`*^9, 3.5682696728352227`*^9}, {3.5682697489633565`*^9, 3.5682698308635006`*^9}, {3.568271156491429*^9, 3.568271160063835*^9}, { 3.568271244927984*^9, 3.568271369010602*^9}, {3.5682716250070515`*^9, 3.5682717312276382`*^9}, {3.5682717843301315`*^9, 3.5682718576814604`*^9}, {3.568271940673606*^9, 3.5682720536490045`*^9}, { 3.5682722259669075`*^9, 3.5682723223126764`*^9}, {3.568272370813162*^9, 3.568272411466833*^9}, {3.5682725893539457`*^9, 3.568272622238803*^9}, { 3.5682726936713285`*^9, 3.5682726960113325`*^9}, {3.568272741079812*^9, 3.56827275143823*^9}, {3.5682729218373294`*^9, 3.568272991070251*^9}, { 3.5682734285574193`*^9, 3.5682734302890224`*^9}, {3.5682734898811274`*^9, 3.5682735111595645`*^9}, {3.5682736115925407`*^9, 3.5682736313577757`*^9}, {3.5682738601945777`*^9, 3.568273987272401*^9}, { 3.5682763944346285`*^9, 3.5682764313910933`*^9}, 3.5682765128232365`*^9, { 3.5682766527398825`*^9, 3.568276660976697*^9}, {3.5682774496048822`*^9, 3.568277461663703*^9}, {3.5683784032731285`*^9, 3.568378422991563*^9}, { 3.568378459308427*^9, 3.5683784812420654`*^9}, {3.568378513440522*^9, 3.568378867046343*^9}, {3.568378915468828*^9, 3.56837896203491*^9}, { 3.5683790764299107`*^9, 3.568379270041851*^9}, {3.568380233530743*^9, 3.568380234388745*^9}, 3.5683804214954734`*^9, 3.568380471867962*^9, 3.5683805399464817`*^9, {3.5683812396077104`*^9, 3.568381293537005*^9}, { 3.568381339541486*^9, 3.5683813935175805`*^9}, 3.5684646396646404`*^9, 3.5684646988823442`*^9, 3.568465086387025*^9, {3.5684655859935026`*^9, 3.568465605087936*^9}, 3.568821235038273*^9, 3.5688233741452303`*^9, 3.568823449742963*^9, 3.5688274593312387`*^9, {3.5688284679978104`*^9, 3.5688284689026117`*^9}, {3.5688285131598897`*^9, 3.5688285201487017`*^9}, 3.5688285866360188`*^9, {3.5688292397623663`*^9, 3.568829246688778*^9}, { 3.5688780328231993`*^9, 3.5688781280925665`*^9}, 3.568895312524533*^9, 3.5693395940691977`*^9, {3.5693396336776676`*^9, 3.5693396557829065`*^9}, { 3.569340069402033*^9, 3.569340092412073*^9}, {3.569389186383586*^9, 3.5693891947764006`*^9}, {3.569389263291721*^9, 3.569389289686967*^9}, 3.569389336315449*^9}], Cell[BoxData[ RowBox[{ RowBox[{"Plot8", "=", RowBox[{"Table", "[", RowBox[{ RowBox[{"Graphics3D", "[", RowBox[{"{", RowBox[{ RowBox[{"Opacity", "[", "0.5", "]"}], ",", RowBox[{"Sphere", "[", RowBox[{ RowBox[{"{", RowBox[{ RowBox[{"wxh", "[", RowBox[{"[", "i", "]"}], "]"}], ",", RowBox[{"wyh", "[", RowBox[{"[", "i", "]"}], "]"}], ",", RowBox[{"wzh", "[", RowBox[{"[", "i", "]"}], "]"}]}], "}"}], ",", RowBox[{"a", "[", RowBox[{"[", RowBox[{ RowBox[{"i", "+", "cw"}], ",", "3"}], "]"}], "]"}]}], "]"}]}], "}"}], "]"}], ",", RowBox[{"{", RowBox[{"i", ",", "1", ",", "bh"}], "}"}]}], "]"}]}], ";"}]], "Input", CellChangeTimes->{{3.5681365021632137`*^9, 3.5681365171392403`*^9}, { 3.568136560351316*^9, 3.5681365863097615`*^9}, {3.5681369135895367`*^9, 3.5681369265999594`*^9}, {3.568137821916732*^9, 3.5681378378443604`*^9}, { 3.5682072492149415`*^9, 3.5682072529901485`*^9}, 3.568209802830227*^9, { 3.5682216503836985`*^9, 3.5682217583046885`*^9}, {3.5682217912831464`*^9, 3.568221843465238*^9}, {3.5682219760654707`*^9, 3.5682221133457117`*^9}, { 3.568222159615393*^9, 3.5682221693498106`*^9}, {3.5682222565227633`*^9, 3.5682222578487663`*^9}, 3.5682224736283445`*^9, 3.5682227227607822`*^9, 3.5682227558640404`*^9, {3.568222818810151*^9, 3.5682228486062036`*^9}, { 3.5682230057764797`*^9, 3.5682230079916835`*^9}, {3.568223041952943*^9, 3.5682230548229656`*^9}, 3.5682232619601297`*^9, 3.5682233000709963`*^9, { 3.568223536645412*^9, 3.5682235381118145`*^9}, {3.568223591151908*^9, 3.568223591526308*^9}, {3.5682236491528096`*^9, 3.568223657483224*^9}, { 3.568223713222122*^9, 3.5682237532361927`*^9}, {3.568223800379475*^9, 3.568223827648323*^9}, {3.5682238887380304`*^9, 3.5682238893152313`*^9}, { 3.5682240287170763`*^9, 3.5682240612431335`*^9}, 3.5682241088076167`*^9, { 3.568224198772975*^9, 3.5682242396450467`*^9}, {3.568224282170721*^9, 3.5682243185031853`*^9}, {3.568224437890195*^9, 3.568224439590598*^9}, { 3.568224572253231*^9, 3.5682245867144566`*^9}, {3.5682247081762695`*^9, 3.568224733557514*^9}, {3.56822480520844*^9, 3.5682248433505073`*^9}, { 3.568224884206979*^9, 3.5682248959069996`*^9}, {3.568224982830352*^9, 3.5682250047639904`*^9}, {3.56822503870965*^9, 3.5682250803305235`*^9}, { 3.5682251223413973`*^9, 3.568225141451431*^9}, {3.568225234177994*^9, 3.5682252929588966`*^9}, {3.5682253775890455`*^9, 3.568225482140429*^9}, { 3.56822551694409*^9, 3.5682255297205124`*^9}, {3.568225573197789*^9, 3.5682255809666023`*^9}, 3.568225660698343*^9, 3.5682257301964645`*^9, { 3.568225765078126*^9, 3.5682257828933573`*^9}, {3.568225927026843*^9, 3.568225927416844*^9}, {3.568267062420238*^9, 3.568267081358671*^9}, { 3.568267188328059*^9, 3.5682672830358257`*^9}, {3.5682676367040462`*^9, 3.568267747979042*^9}, 3.5682678404716043`*^9, 3.568267882030078*^9, { 3.5682679252577534`*^9, 3.568267996612279*^9}, {3.5682680488879704`*^9, 3.568268061133992*^9}, {3.568268100914062*^9, 3.5682681150944867`*^9}, { 3.5682681672609787`*^9, 3.5682681709113846`*^9}, {3.568268272904364*^9, 3.5682683182536435`*^9}, {3.5682685202739983`*^9, 3.568268599194537*^9}, { 3.5682686348873997`*^9, 3.568268637773405*^9}, {3.5682686944951043`*^9, 3.568268872273017*^9}, {3.5682689420207396`*^9, 3.568269016947671*^9}, { 3.5682695040741262`*^9, 3.568269601153097*^9}, {3.5682696652380095`*^9, 3.5682696728352227`*^9}, {3.5682697489633565`*^9, 3.5682698308635006`*^9}, {3.568271156491429*^9, 3.568271160063835*^9}, { 3.568271244927984*^9, 3.568271369010602*^9}, {3.5682716250070515`*^9, 3.5682717312276382`*^9}, {3.5682717843301315`*^9, 3.5682718576814604`*^9}, {3.568271940673606*^9, 3.5682720536490045`*^9}, { 3.5682722259669075`*^9, 3.5682723223126764`*^9}, {3.568272370813162*^9, 3.568272411466833*^9}, {3.5682725893539457`*^9, 3.568272622238803*^9}, { 3.5682726936713285`*^9, 3.5682726960113325`*^9}, {3.568272741079812*^9, 3.56827275143823*^9}, {3.5682729218373294`*^9, 3.568272991070251*^9}, { 3.5682734285574193`*^9, 3.5682734302890224`*^9}, {3.5682734898811274`*^9, 3.5682735111595645`*^9}, {3.5682736115925407`*^9, 3.5682736313577757`*^9}, {3.5682738601945777`*^9, 3.568273987272401*^9}, { 3.5682763944346285`*^9, 3.5682764313910933`*^9}, 3.5682765128232365`*^9, { 3.5682766527398825`*^9, 3.568276660976697*^9}, {3.5682774496048822`*^9, 3.568277461663703*^9}, {3.5683784032731285`*^9, 3.568378422991563*^9}, { 3.568378459308427*^9, 3.5683784812420654`*^9}, {3.568378513440522*^9, 3.568378867046343*^9}, {3.568378915468828*^9, 3.56837896203491*^9}, { 3.5683790764299107`*^9, 3.568379270041851*^9}, {3.568380233530743*^9, 3.568380234388745*^9}, 3.5683804214954734`*^9, 3.568380471867962*^9, 3.5683805399464817`*^9, {3.5683812396077104`*^9, 3.568381293537005*^9}, { 3.568381339541486*^9, 3.5683813935175805`*^9}, 3.5684646396646404`*^9, 3.5684646988823442`*^9, 3.568465086387025*^9, {3.5684655859935026`*^9, 3.568465605087936*^9}, 3.568821235038273*^9, 3.5688233741452303`*^9, 3.568823449742963*^9, 3.5688274593312387`*^9, {3.5688284679978104`*^9, 3.5688284689026117`*^9}, {3.5688285131598897`*^9, 3.5688285201487017`*^9}, 3.5688285866360188`*^9, {3.5688292397623663`*^9, 3.568829246688778*^9}, { 3.5688780328231993`*^9, 3.568878147967001*^9}, {3.56889532230575*^9, 3.5688953242557535`*^9}, 3.56889600529175*^9, 3.5688961595292206`*^9, { 3.5693396821781526`*^9, 3.5693396825213532`*^9}, 3.5693893658151007`*^9, { 3.5693895413934093`*^9, 3.5693895427506113`*^9}, {3.5697651043452682`*^9, 3.5697651089940763`*^9}, {3.5704647001766*^9, 3.570464712141821*^9}}], Cell[BoxData[{ RowBox[{ RowBox[{"Plot8a", "=", RowBox[{"Table", "[", RowBox[{ RowBox[{"Graphics3D", "[", RowBox[{"{", RowBox[{ RowBox[{"Opacity", "[", "0.3", "]"}], ",", RowBox[{"Lighter", "[", "Cyan", "]"}], ",", RowBox[{"Sphere", "[", RowBox[{ RowBox[{"tpo", "[", RowBox[{"[", "i", "]"}], "]"}], ",", "rpo"}], "]"}]}], "}"}], "]"}], ",", RowBox[{"{", RowBox[{"i", ",", "1", ",", RowBox[{"nj", "+", "2"}]}], "}"}]}], "]"}]}], ";"}], "\[IndentingNewLine]", RowBox[{ RowBox[{"Plot8b", "=", RowBox[{"Table", "[", RowBox[{ RowBox[{"Graphics3D", "[", RowBox[{"{", RowBox[{ RowBox[{"Opacity", "[", "0.3", "]"}], ",", RowBox[{"Lighter", "[", "Yellow", "]"}], ",", RowBox[{"Sphere", "[", RowBox[{ RowBox[{"tpu", "[", RowBox[{"[", "i", "]"}], "]"}], ",", "rpi"}], "]"}]}], "}"}], "]"}], ",", RowBox[{"{", RowBox[{"i", ",", "1", ",", RowBox[{"nj", "+", "2"}]}], "}"}]}], "]"}]}], ";"}], "\[IndentingNewLine]", RowBox[{ RowBox[{"Plot8c", "=", RowBox[{"Table", "[", RowBox[{ RowBox[{"Graphics3D", "[", RowBox[{"{", RowBox[{ RowBox[{"Opacity", "[", "0.4", "]"}], ",", RowBox[{"Lighter", "[", "Red", "]"}], ",", RowBox[{"Sphere", "[", RowBox[{ RowBox[{"tlo", "[", RowBox[{"[", "i", "]"}], "]"}], ",", "rlo"}], "]"}]}], "}"}], "]"}], ",", RowBox[{"{", RowBox[{"i", ",", "1", ",", "2"}], "}"}]}], "]"}]}], ";"}], "\[IndentingNewLine]", RowBox[{ RowBox[{"Plot8d", "=", RowBox[{"Table", "[", RowBox[{ RowBox[{"Graphics3D", "[", RowBox[{"{", RowBox[{ RowBox[{"Opacity", "[", "0.4", "]"}], ",", RowBox[{"Lighter", "[", "Red", "]"}], ",", RowBox[{"Sphere", "[", RowBox[{ RowBox[{"tlu", "[", RowBox[{"[", "i", "]"}], "]"}], ",", "rlo"}], "]"}]}], "}"}], "]"}], ",", RowBox[{"{", RowBox[{"i", ",", "1", ",", "2"}], "}"}]}], "]"}]}], ";"}], "\[IndentingNewLine]", RowBox[{ RowBox[{"Plot8e", "=", RowBox[{"Table", "[", RowBox[{ RowBox[{"Graphics3D", "[", RowBox[{"{", RowBox[{ RowBox[{"Opacity", "[", "0.4", "]"}], ",", RowBox[{"Lighter", "[", "Blue", "]"}], ",", RowBox[{"Sphere", "[", RowBox[{ RowBox[{"tpln", "[", RowBox[{"[", "i", "]"}], "]"}], ",", "rln"}], "]"}]}], "}"}], "]"}], ",", RowBox[{"{", RowBox[{"i", ",", "1", ",", "2"}], "}"}]}], "]"}]}], ";"}]}], "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.5740702979395394`*^9, 3.5740703017771463`*^9}, {3.5740715898714085`*^9, 3.574071671631152*^9}, 3.5740719856597033`*^9, {3.5740752116205697`*^9, 3.5740752571102495`*^9}, {3.574075295283517*^9, 3.5740752956735177`*^9}, { 3.5740753389479933`*^9, 3.574075350632414*^9}, {3.5740757330202856`*^9, 3.574075745749908*^9}}], Cell[CellGroupData[{ Cell[BoxData[{ RowBox[{ 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[{ RowBox[{"Plot9a", "=", " ", RowBox[{"Graphics3D", "[", RowBox[{"Tube", "[", RowBox[{ RowBox[{"{", RowBox[{ RowBox[{"{", RowBox[{ RowBox[{"x", "[", RowBox[{"[", "21", "]"}], "]"}], ",", RowBox[{"y", "[", RowBox[{"[", "21", "]"}], "]"}], ",", RowBox[{"z", "[", RowBox[{"[", "21", "]"}], "]"}]}], "}"}], ",", RowBox[{"{", RowBox[{ RowBox[{"nk", "[", RowBox[{"[", RowBox[{"2", ",", "1"}], "]"}], "]"}], ",", RowBox[{"nk", "[", RowBox[{"[", RowBox[{"2", ",", "2"}], "]"}], "]"}], ",", RowBox[{"nk", "[", RowBox[{"[", RowBox[{"2", ",", "3"}], "]"}], "]"}]}], "}"}]}], "}"}], ",", "0.06"}], "]"}], "]"}]}], ";", "\[IndentingNewLine]", RowBox[{"Plot9b", "=", " ", RowBox[{"Graphics3D", "[", RowBox[{"Tube", "[", RowBox[{ RowBox[{"{", RowBox[{ RowBox[{"{", RowBox[{ RowBox[{"x", "[", RowBox[{"[", "21", "]"}], "]"}], ",", RowBox[{"y", "[", RowBox[{"[", "21", "]"}], "]"}], ",", RowBox[{"z", "[", RowBox[{"[", "21", "]"}], "]"}]}], "}"}], ",", RowBox[{"{", RowBox[{ RowBox[{"nl", "[", RowBox[{"[", RowBox[{"2", ",", "1"}], "]"}], "]"}], ",", RowBox[{"nl", "[", RowBox[{"[", RowBox[{"2", ",", "2"}], "]"}], "]"}], ",", RowBox[{"nl", "[", RowBox[{"[", RowBox[{"2", ",", "3"}], "]"}], "]"}]}], "}"}]}], "}"}], ",", "0.06"}], "]"}], "]"}]}], ";"}], "*)"}]}], "\[IndentingNewLine]", RowBox[{"Show", "[", RowBox[{"Plot1o", ",", RowBox[{"(*", RowBox[{"Plot2", ","}], "*)"}], "Plot7", ",", "Plot8", ",", "Plot8a", ",", "Plot8b", ",", "Plot8c", ",", "Plot8d", ",", "Plot8e", ",", "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]", 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]"}], "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.5740716827539716`*^9, 3.5740716897271843`*^9}, 3.574073190995821*^9, {3.5740743978919406`*^9, 3.574074401682747*^9}, {3.5740753037855315`*^9, 3.574075320758362*^9}, 3.5740757790247664`*^9, {3.574341432758819*^9, 3.5743414337884207`*^9}, { 3.57434147314729*^9, 3.5743415190269704`*^9}}], Cell[BoxData[ Graphics3DBox[{ {RGBColor[0.4, 0.2666666666666667, 0.13333333333333336`], Opacity[0.8], SphereBox[{-0.07150534211399999, 0.091139595254, -0.983604272726}, 0.255]}, {RGBColor[0.4, 0.2666666666666667, 0.13333333333333336`], Opacity[0.8], SphereBox[{-0.728897553816, 2.794804598522, -0.31984368440399996`}, 0.255]}, {RGBColor[0.4, 0.2666666666666667, 0.13333333333333336`], Opacity[0.8], SphereBox[{-3.236329629792, 3.6406686328339997`, -0.277013044614}, 0.255]}, {RGBColor[0.4, 0.2666666666666667, 0.13333333333333336`], Opacity[0.8], SphereBox[{-3.840267162132, 6.184247387738, 0.300933196322}, 0.255]}, {RGBColor[0.4, 0.2666666666666667, 0.13333333333333336`], Opacity[0.8], SphereBox[{-10.550886388814, 6.617242195844001, 0.062761579912}, 0.255]}, {RGBColor[0.4, 0.2666666666666667, 0.13333333333333336`], Opacity[0.8], SphereBox[{-12.680908057248, 4.899018278973999, 0.29817419636200004`}, 0.255]}, {RGBColor[0.4, 0.2666666666666667, 0.13333333333333336`], Opacity[0.8], SphereBox[{-15.202726617261998`, 5.857326679464, -0.05274225266}, 0.255]}, {RGBColor[0.4, 0.2666666666666667, 0.13333333333333336`], Opacity[0.8], SphereBox[{-15.543608621224001`, 8.48142099005, -0.6357038264}, 0.255]}, {RGBColor[0.4, 0.2666666666666667, 0.13333333333333336`], Opacity[0.8], SphereBox[{-13.521078347122, 10.120769633405999`, -0.859651475208}, 0.255]}, {RGBColor[0.4, 0.2666666666666667, 0.13333333333333336`], Opacity[0.8], SphereBox[{-11.001744776798, 9.234384204476, -0.490215711386}, 0.255]}, {RGBColor[0.4, 0.2666666666666667, 0.13333333333333336`], Opacity[0.8], SphereBox[{-17.296820814984, 4.181816239372, 0.185189368548}, 0.255]}, {RGBColor[0.4, 0.2666666666666667, 0.13333333333333336`], Opacity[0.8], SphereBox[{-16.934057673668, 1.641081522098, 0.752919750728}, 0.255]}, {RGBColor[0.4, 0.2666666666666667, 0.13333333333333336`], Opacity[0.8], SphereBox[{-14.446862673426, 0.701392591886, 1.100410126512}, 0.255]}, {RGBColor[0.4, 0.2666666666666667, 0.13333333333333336`], Opacity[0.8], SphereBox[{-12.362534579672001`, 2.295013645494, 0.879221477664}, 0.255]}, {RGBColor[0.4, 0.2666666666666667, 0.13333333333333336`], Opacity[0.8], SphereBox[{-1.866344420202, 7.923530411152, 0.891313834338}, 0.255]}, {RGBColor[0.4, 0.2666666666666667, 0.13333333333333336`], Opacity[0.8], SphereBox[{0.6592819377019999, 7.08517803769, 0.843250543254}, 0.255]}, {RGBColor[0.4, 0.2666666666666667, 0.13333333333333336`], Opacity[0.8], SphereBox[{1.205939985256, 4.56918739266, 0.24510691082999997`}, 0.255]}, {RGBColor[ NCache[ Rational[1, 3], 0.3333333333333333], NCache[ Rational[1, 3], 0.3333333333333333], 1], Opacity[0.8], SphereBox[{-6.2890629300539995`, 7.180488258226, 0.27106607689199996`}, 0.24]}, {RGBColor[ NCache[ Rational[1, 3], 0.3333333333333333], NCache[ Rational[1, 3], 0.3333333333333333], 1], Opacity[0.8], SphereBox[{-8.164170009718001, 5.6103886241400005`, 0.316961852254}, 0.24]}, {RGBColor[1, NCache[ Rational[1, 3], 0.3333333333333333], NCache[ Rational[1, 3], 0.3333333333333333]], Opacity[0.8], SphereBox[{-9.085666547728001, 10.847456207802, -0.716657798514}, 0.178]}, {RGBColor[1, NCache[ Rational[1, 3], 0.3333333333333333], NCache[ Rational[1, 3], 0.3333333333333333]], Opacity[0.8], SphereBox[{-2.361218306178, 10.355709818356, 1.538117911262}, 0.178]}, {RGBColor[1, 1, 1], Opacity[0.8], SphereBox[{-7.465018632868, 9.717965087876001, -0.406317546164}, 0.12]}, {RGBColor[1, 1, 1], Opacity[0.8], SphereBox[{-13.779849866658001`, 12.134920862424, -1.3149885138119999`}, 0.12]}, {RGBColor[1, 1, 1], Opacity[0.8], SphereBox[{-17.483822430766, 9.193898714652, -0.912588369646}, 0.12]}, {RGBColor[1, 1, 1], Opacity[0.8], SphereBox[{-10.433798965853999`, 1.571932668306, 1.161077890016}, 0.12]}, {RGBColor[1, 1, 1], Opacity[0.8], SphereBox[{-14.158549067332, -1.31144149811, 1.559305519174}, 0.12]}, {RGBColor[1, 1, 1], Opacity[0.8], SphereBox[{-18.56864609723, 0.362623301592, 0.9376064521599999}, 0.12]}, {RGBColor[1, 1, 1], Opacity[0.8], SphereBox[{-19.219431826836, 4.940308792074, -0.08956734322200001}, 0.12]}, {RGBColor[1, 1, 1], Opacity[0.8], SphereBox[{-4.215472259432, 10.535110956166, 1.66504702723}, 0.12]}, {RGBColor[1, 1, 1], Opacity[0.8], SphereBox[{3.1981363776059997`, 3.950201972182, 0.21395477772000002`}, 0.12]}, {RGBColor[1, 1, 1], Opacity[0.8], SphereBox[{2.163192028912, 8.446306101518, 1.307507088578}, 0.12]}, {RGBColor[1, 1, 1], Opacity[0.8], SphereBox[{-4.811567428871999, 2.36120318837, -0.736717240004}, 0.12]}, {RGBColor[1, 1, 1], Opacity[0.8], SphereBox[{1.077334682326, -0.012655495022, -2.745603692386}, 0.12]}, {RGBColor[1, 1, 1], Opacity[0.8], SphereBox[{1.06151578598, -0.82213474493, 0.538180736718}, 0.12]}, {RGBColor[1, 1, 1], Opacity[0.8], SphereBox[{-1.79587275821, -1.068133606432, -1.278930652006}, 0.12]}, {RGBColor[0.36, 0.24, 0.12], Opacity[0.5], SphereBox[{-0.40045424558628695`, 1.4440117807622788`, -0.6514687320092225}, 1.1741575894320724`]}, {RGBColor[0.36, 0.24, 0.12], Opacity[0.5], SphereBox[{-1.9816661784759726`, 3.2174170126596433`, -0.29844454772663276`}, 1.0673042019770722`]}, {RGBColor[0.36, 0.24, 0.12], Opacity[0.5], SphereBox[{-3.53852396329295, 4.913408022895055, 0.012175935581239361`}, 1.0827078922210744`]}, {RGBColor[0.36, 0.24, 0.12], Opacity[0.5], SphereBox[{-11.615897223031, 5.758130237409, 0.18046788813700002`}, 1.1183813050721103`]}, {RGBColor[0.36, 0.24, 0.12], Opacity[0.5], SphereBox[{-13.941817337255, 5.378172479219, 0.12271597185100001`}, 1.1052450325469843`]}, {RGBColor[0.36, 0.24, 0.12], Opacity[0.5], SphereBox[{-15.3730418138155, 7.168405390243327, -0.3440078925608179}, 1.0987984802113908`]}, {RGBColor[0.36, 0.24, 0.12], Opacity[0.5], SphereBox[{-14.532343484173001`, 9.301095311727998, -0.747677650804}, 1.049545563072611]}, {RGBColor[0.36, 0.24, 0.12], Opacity[0.5], SphereBox[{-10.776315582806, 7.92581320016, -0.213727065737}, 1.1013267917479492`]}, {RGBColor[0.36, 0.24, 0.12], Opacity[0.5], SphereBox[{-12.260477141673125`, 9.677248158773413, -0.6747965696505567}, 1.092073027581558]}, {RGBColor[0.36, 0.24, 0.12], Opacity[0.5], SphereBox[{-16.248995944926822`, 5.020193763687128, 0.06613518734355776}, 1.0902148045688052`]}, {RGBColor[0.36, 0.24, 0.12], Opacity[0.5], SphereBox[{-17.115439244325998`, 2.9114488807349996`, 0.4690545596380001}, 1.0572724020450528`]}, {RGBColor[0.36, 0.24, 0.12], Opacity[0.5], SphereBox[{-15.690460173547, 1.1712370569919999`, 0.9266649386200001}, 1.0836998001094689`]}, {RGBColor[0.36, 0.24, 0.12], Opacity[0.5], SphereBox[{-12.521839806294949`, 3.597985084641949, 0.5884815908768958}, 1.0874859271236883`]}, {RGBColor[0.36, 0.24, 0.12], Opacity[0.5], SphereBox[{-13.404698626549001`, 1.4982031186900002`, 0.989815802088}, 1.0595272579113255`]}, {RGBColor[0.36, 0.24, 0.12], Opacity[0.5], SphereBox[{-2.853305791167, 7.053888899445, 0.59612351533}, 1.09314926143109]}, {RGBColor[0.36, 0.24, 0.12], Opacity[0.5], SphereBox[{-0.6044801662098561, 7.504669209054354, 0.8673002470714926}, 1.074782972706164]}, {RGBColor[0.36, 0.24, 0.12], Opacity[0.5], SphereBox[{0.2378007045116034, 3.6813352358810265`, -0.03757876787990133}, 1.0866838587126921`]}, {RGBColor[0.36, 0.24, 0.12], Opacity[0.5], SphereBox[{0.932610961479, 5.827182715175, 0.5441787270419999}, 1.064629652346243]}, {RGBColor[0.36, 0.24, 0.12], Opacity[0.5], SphereBox[{-5.078456467508537, 6.6879785716839795`, 0.2858314273851763}, 1.0818193314930293`]}, {RGBColor[0.36, 0.24, 0.12], Opacity[0.5], SphereBox[{-9.343874583104128, 6.108055533234268, 0.19131591188824917`}, 1.0613110471208929`]}, {RGBColor[0.36, 0.24, 0.12], Opacity[0.5], SphereBox[{-7.226616469886, 6.395438441183, 0.294013964573}, 0.9978239325060166]}, {RGBColor[0.36, 0.24, 0.12], Opacity[0.5], SphereBox[{-10.01437267470575, 10.065614511561735`, -0.6069033268380315}, 1.0409411603185525`]}, {RGBColor[0.36, 0.24, 0.12], Opacity[0.5], SphereBox[{-2.121209561639068, 9.176127822702293, 1.2244245868324288`}, 1.0659539315092081`]}, {Opacity[0.5], SphereBox[{-7.889785834751698, 10.014001492923853`, -0.48765684226520006`}, 1.2975401991759468`]}, {Opacity[0.5], SphereBox[{-13.709062041465838`, 11.583942975189897`, -1.1904295254426003`}, 1.2548294268743487`]}, {Opacity[0.5], SphereBox[{-16.95414667736279, 8.999393256693914, -0.836999262750534}, 1.2590582869809372`]}, {Opacity[0.5], SphereBox[{-10.961947303807921`, 1.7699349313284407`, 1.0838967591969932`}, 1.2527166436960044`]}, {Opacity[0.5], SphereBox[{-14.237290062119124`, -0.7617187127897542, 1.4339771303720776`}, 1.2582169202276483`]}, {Opacity[0.5], SphereBox[{-18.121980474842395`, 0.7119732226653913, 0.8871391912564424}, 1.257073205575061]}, {Opacity[0.5], SphereBox[{-18.69447204188552, 4.733206011065048, -0.014546330944772784`}, 1.2587024714761457`]}, {Opacity[0.5], SphereBox[{-3.695014836509211, 10.484756120092896`, 1.6294201917177211`}, 1.1651315046308615`]}, {Opacity[0.5], SphereBox[{2.654534433412871, 4.119101825274359, 0.22245512446763333`}, 1.2600748157639323`]}, {Opacity[0.5], SphereBox[{1.7517376854504088`, 8.073915453205437, 1.1804912695004488`}, 1.2545530242329948`]}, {Opacity[0.5], SphereBox[{-4.380587836957202, 2.711260491112628, -0.6109437684389996}, 1.2545012626118397`]}, {Opacity[0.5], SphereBox[{0.7667773775697786, 0.015402653020636148`, -2.269295608483397}, 1.2795030335692488`]}, {Opacity[0.5], SphereBox[{0.7551790012137515, -0.5752112604120019, 0.12673322233424889`}, 1.2791202202948173`]}, {Opacity[0.5], SphereBox[{-1.3281171682769883`, -0.7536666805979193, \ -1.1988197873066138`}, 1.2722079387422007`]}, {RGBColor[ NCache[ Rational[1, 3], 0.3333333333333333], 1, 1], Opacity[0.3], SphereBox[{-0.8256266003314479, 2.4396707299980607`, 1.0309055251043504`}, 1.4]}, {RGBColor[ NCache[ Rational[1, 3], 0.3333333333333333], 1, 1], Opacity[0.3], SphereBox[{-3.324258027222699, 3.311263289171755, 1.0808384629125138`}, 1.4]}, {RGBColor[ NCache[ Rational[1, 3], 0.3333333333333333], 1, 1], Opacity[0.3], SphereBox[{-3.951070807169075, 5.850057326253179, 1.6559385671789826`}, 1.4]}, {RGBColor[ NCache[ Rational[1, 3], 0.3333333333333333], 1, 1], Opacity[0.3], SphereBox[{-10.622982505822625`, 6.894374898460468, 1.4331628405115264`}, 1.4]}, {RGBColor[ NCache[ Rational[1, 3], 0.3333333333333333], 1, 1], Opacity[0.3], SphereBox[{-12.76187631289798, 5.1867810368536515`, 1.6658864236797555`}, 1.4]}, {RGBColor[ NCache[ Rational[1, 3], 0.3333333333333333], 1, 1], Opacity[0.3], SphereBox[{-15.281408638294131`, 6.150716662973491, 1.3139074673277515`}, 1.4]}, {RGBColor[ NCache[ Rational[1, 3], 0.3333333333333333], 1, 1], Opacity[0.3], SphereBox[{-15.629333060002242`, 8.773847878629066, 0.7307286949606856}, 1.4]}, {RGBColor[ NCache[ Rational[1, 3], 0.3333333333333333], 1, 1], Opacity[0.3], SphereBox[{-13.614826982902402`, 10.422740400110971`, 0.5041758046720163}, 1.4]}, {RGBColor[ NCache[ Rational[1, 3], 0.3333333333333333], 1, 1], Opacity[0.3], SphereBox[{-11.10714484305785, 9.505574981798198, 0.8792171596696794}, 1.4]}, {RGBColor[ NCache[ Rational[1, 3], 0.3333333333333333], 1, 1], Opacity[0.3], SphereBox[{-17.37673778661751, 4.475743578207258, 1.5516519538865636`}, 1.4]}, {RGBColor[ NCache[ Rational[1, 3], 0.3333333333333333], 1, 1], Opacity[0.3], SphereBox[{-17.0139166135513, 1.935017489990404, 2.1193838726499297`}, 1.4]}, {RGBColor[ NCache[ Rational[1, 3], 0.3333333333333333], 1, 1], Opacity[0.3], SphereBox[{-14.526676568761737`, 0.9954398998615148, 2.4668529254551865`}, 1.4]}, {RGBColor[ NCache[ Rational[1, 3], 0.3333333333333333], 1, 1], Opacity[0.3], SphereBox[{-12.443100862700152`, 2.590010478426083, 2.245415439954519}, 1.4]}, {RGBColor[ NCache[ Rational[1, 3], 0.3333333333333333], 1, 1], Opacity[0.3], SphereBox[{-1.9582571818814491`, 7.5691632115751855`, 2.2426006033491315`}, 1.4]}, {RGBColor[ NCache[ Rational[1, 3], 0.3333333333333333], 1, 1], Opacity[0.3], SphereBox[{0.5718334956826561, 6.744048083388225, 2.1982350908656905`}, 1.4]}, {RGBColor[ NCache[ Rational[1, 3], 0.3333333333333333], 1, 1], Opacity[0.3], SphereBox[{1.1223414180257096`, 4.228792229502407, 1.6005191774322902`}, 1.4]}, {RGBColor[ NCache[ Rational[1, 3], 0.3333333333333333], 1, 1], Opacity[0.3], SphereBox[{-6.325788269714738, 6.947982744671836, 1.6511357981719497`}, 1.4]}, {RGBColor[ NCache[ Rational[1, 3], 0.3333333333333333], 1, 1], Opacity[0.3], SphereBox[{-8.119301385716575, 5.310488763350431, 1.6837269674360549`}, 1.4]}, {RGBColor[1, 1, NCache[ Rational[1, 3], 0.3333333333333333]], Opacity[0.3], SphereBox[{-0.6321685073005527, 3.14993846704594, -1.6705928939123502`}, 1.4]}, {RGBColor[1, 1, NCache[ Rational[1, 3], 0.3333333333333333]], Opacity[0.3], SphereBox[{-3.1484012323613007`, 3.970073976496244, -1.634864552140514}, 1.4]}, {RGBColor[1, 1, NCache[ Rational[1, 3], 0.3333333333333333]], Opacity[0.3], SphereBox[{-3.7294635170949246`, 6.518437449222821, -1.0540721745349828`}, 1.4]}, {RGBColor[1, 1, NCache[ Rational[1, 3], 0.3333333333333333]], Opacity[0.3], SphereBox[{-10.478790271805375`, 6.3401094932275335`, -1.3076396806875263`}, 1.4]}, {RGBColor[1, 1, NCache[ Rational[1, 3], 0.3333333333333333]], Opacity[0.3], SphereBox[{-12.59993980159802, 4.611255521094347, -1.0695380309557552`}, 1.4]}, {RGBColor[1, 1, NCache[ Rational[1, 3], 0.3333333333333333]], Opacity[0.3], SphereBox[{-15.124044596229865`, 5.563936695954508, -1.4193919726477513`}, 1.4]}, {RGBColor[1, 1, NCache[ Rational[1, 3], 0.3333333333333333]], Opacity[0.3], SphereBox[{-15.45788418244576, 8.188994101470932, -2.0021363477606857`}, 1.4]}, {RGBColor[1, 1, NCache[ Rational[1, 3], 0.3333333333333333]], Opacity[0.3], SphereBox[{-13.427329711341596`, 9.818798866701027, -2.223478755088016}, 1.4]}, {RGBColor[1, 1, NCache[ Rational[1, 3], 0.3333333333333333]], Opacity[0.3], SphereBox[{-10.89634471053815, 8.9631934271538, -1.8596485824416793`}, 1.4]}, {RGBColor[1, 1, NCache[ Rational[1, 3], 0.3333333333333333]], Opacity[0.3], SphereBox[{-17.216903843350487`, 3.8878889005367423`, -1.181273216790564}, 1.4]}, {RGBColor[1, 1, NCache[ Rational[1, 3], 0.3333333333333333]], Opacity[0.3], SphereBox[{-16.854198733784703`, 1.3471455542055972`, -0.6135443711939301}, 1.4]}, {RGBColor[1, 1, NCache[ Rational[1, 3], 0.3333333333333333]], Opacity[0.3], SphereBox[{-14.367048778090265`, 0.4073452839104845, -0.266032672431186}, 1.4]}, {RGBColor[1, 1, NCache[ Rational[1, 3], 0.3333333333333333]], Opacity[0.3], SphereBox[{-12.28196829664385, 2.0000168125619178`, -0.4869724846265189}, 1.4]}, {RGBColor[1, 1, NCache[ Rational[1, 3], 0.3333333333333333]], Opacity[0.3], SphereBox[{-1.7744316585225515`, 8.277897610728814, -0.4599729346731313}, 1.4]}, {RGBColor[1, 1, NCache[ Rational[1, 3], 0.3333333333333333]], Opacity[0.3], SphereBox[{0.746730379721344, 7.426307991991776, -0.5117340043576903}, 1.4]}, {RGBColor[1, 1, NCache[ Rational[1, 3], 0.3333333333333333]], Opacity[0.3], SphereBox[{1.2895385524862895`, 4.909582555817592, -1.1103053557722906`}, 1.4]}, {RGBColor[1, 1, NCache[ Rational[1, 3], 0.3333333333333333]], Opacity[0.3], SphereBox[{-6.252337590393263, 7.412993771780165, -1.1090036443879498`}, 1.4]}, {RGBColor[1, 1, NCache[ Rational[1, 3], 0.3333333333333333]], Opacity[0.3], SphereBox[{-8.209038633719427, 5.91028848492957, -1.0498032629280547`}, 1.4]}, {RGBColor[1, NCache[ Rational[1, 3], 0.3333333333333333], NCache[ Rational[1, 3], 0.3333333333333333]], Opacity[0.4], SphereBox[{-9.236095563847606, 11.43030660925996, 0.307341479136909}, 1.125]}, {RGBColor[1, NCache[ Rational[1, 3], 0.3333333333333333], NCache[ Rational[1, 3], 0.3333333333333333]], Opacity[0.4], SphereBox[{-2.0560480571625472`, 10.350361797942208`, 2.686055417310783}, 1.125]}, {RGBColor[1, NCache[ Rational[1, 3], 0.3333333333333333], NCache[ Rational[1, 3], 0.3333333333333333]], Opacity[0.4], SphereBox[{-9.12321803515391, 10.98696979517933, -1.8956590049295023`}, 1.125]}, {RGBColor[1, NCache[ Rational[1, 3], 0.3333333333333333], NCache[ Rational[1, 3], 0.3333333333333333]], Opacity[0.4], SphereBox[{-2.150933594006966, 10.910053916550169`, 0.5088458575150621}, 1.125]}, {RGBColor[ NCache[ Rational[1, 3], 0.3333333333333333], NCache[ Rational[1, 3], 0.3333333333333333], 1], Opacity[0.4], SphereBox[{-7.894329627933224, 4.173724113015806, 0.4833034863523942}, 1.246]}, {RGBColor[ NCache[ Rational[1, 3], 0.3333333333333333], NCache[ Rational[1, 3], 0.3333333333333333], 1], Opacity[0.4], SphereBox[{-6.516750630998421, 8.63335048970519, 0.22819492598659957`}, 1.246]}, {RGBColor[1., 0.75, 0.5], TubeBox[{{-0.728897553816, 2.794804598522, -0.31984368440399996`}, {-0.07150534211399999, 0.091139595254, -0.983604272726}}, 0.1]}, {RGBColor[1., 0.75, 0.5], TubeBox[{{-3.236329629792, 3.6406686328339997`, -0.277013044614}, {-0.728897553816, 2.794804598522, -0.31984368440399996`}}, 0.1]}, {RGBColor[1., 0.75, 0.5], TubeBox[{{-3.840267162132, 6.184247387738, 0.300933196322}, {-3.236329629792, 3.6406686328339997`, -0.277013044614}}, 0.1]}, {RGBColor[1., 0.75, 0.5], TubeBox[{{-12.680908057248, 4.899018278973999, 0.29817419636200004`}, {-10.550886388814, 6.617242195844001, 0.062761579912}}, 0.1]}, {RGBColor[1., 0.75, 0.5], TubeBox[{{-15.202726617261998`, 5.857326679464, -0.05274225266}, {-12.680908057248, 4.899018278973999, 0.29817419636200004`}}, 0.1]}, {RGBColor[1., 0.75, 0.5], TubeBox[{{-15.543608621224001`, 8.48142099005, -0.6357038264}, {-15.202726617261998`, 5.857326679464, -0.05274225266}}, 0.1]}, {RGBColor[1., 0.75, 0.5], TubeBox[{{-13.521078347122, 10.120769633405999`, -0.859651475208}, {-15.543608621224001`, 8.48142099005, -0.6357038264}}, 0.1]}, {RGBColor[1., 0.75, 0.5], TubeBox[{{-11.001744776798, 9.234384204476, -0.490215711386}, {-10.550886388814, 6.617242195844001, 0.062761579912}}, 0.1]}, {RGBColor[1., 0.75, 0.5], TubeBox[{{-11.001744776798, 9.234384204476, -0.490215711386}, {-13.521078347122, 10.120769633405999`, -0.859651475208}}, 0.1]}, {RGBColor[1., 0.75, 0.5], TubeBox[{{-17.296820814984, 4.181816239372, 0.185189368548}, {-15.202726617261998`, 5.857326679464, -0.05274225266}}, 0.1]}, {RGBColor[1., 0.75, 0.5], TubeBox[{{-16.934057673668, 1.641081522098, 0.752919750728}, {-17.296820814984, 4.181816239372, 0.185189368548}}, 0.1]}, {RGBColor[1., 0.75, 0.5], TubeBox[{{-14.446862673426, 0.701392591886, 1.100410126512}, {-16.934057673668, 1.641081522098, 0.752919750728}}, 0.1]}, {RGBColor[1., 0.75, 0.5], TubeBox[{{-12.362534579672001`, 2.295013645494, 0.879221477664}, {-12.680908057248, 4.899018278973999, 0.29817419636200004`}}, 0.1]}, {RGBColor[1., 0.75, 0.5], TubeBox[{{-12.362534579672001`, 2.295013645494, 0.879221477664}, {-14.446862673426, 0.701392591886, 1.100410126512}}, 0.1]}, {RGBColor[1., 0.75, 0.5], TubeBox[{{-1.866344420202, 7.923530411152, 0.891313834338}, {-3.840267162132, 6.184247387738, 0.300933196322}}, 0.1]}, {RGBColor[1., 0.75, 0.5], TubeBox[{{0.6592819377019999, 7.08517803769, 0.843250543254}, {-1.866344420202, 7.923530411152, 0.891313834338}}, 0.1]}, {RGBColor[1., 0.75, 0.5], TubeBox[{{1.205939985256, 4.56918739266, 0.24510691082999997`}, {-0.728897553816, 2.794804598522, -0.31984368440399996`}}, 0.1]}, {RGBColor[1., 0.75, 0.5], TubeBox[{{1.205939985256, 4.56918739266, 0.24510691082999997`}, { 0.6592819377019999, 7.08517803769, 0.843250543254}}, 0.1]}, {RGBColor[1., 0.75, 0.5], TubeBox[{{-6.2890629300539995`, 7.180488258226, 0.27106607689199996`}, {-3.840267162132, 6.184247387738, 0.300933196322}}, 0.1]}, {RGBColor[1., 0.75, 0.5], TubeBox[{{-8.164170009718001, 5.6103886241400005`, 0.316961852254}, {-10.550886388814, 6.617242195844001, 0.062761579912}}, 0.1]}, {RGBColor[1., 0.75, 0.5], TubeBox[{{-8.164170009718001, 5.6103886241400005`, 0.316961852254}, {-6.2890629300539995`, 7.180488258226, 0.27106607689199996`}}, 0.1]}, {RGBColor[1., 0.75, 0.5], TubeBox[{{-9.085666547728001, 10.847456207802, -0.716657798514}, {-11.001744776798, 9.234384204476, -0.490215711386}}, 0.1]}, {RGBColor[1., 0.75, 0.5], TubeBox[{{-2.361218306178, 10.355709818356, 1.538117911262}, {-1.866344420202, 7.923530411152, 0.891313834338}}, 0.1]}, {RGBColor[1., 0.75, 0.5], TubeBox[{{-7.465018632868, 9.717965087876001, -0.406317546164}, {-9.085666547728001, 10.847456207802, -0.716657798514}}, 0.1]}, {RGBColor[1., 0.75, 0.5], TubeBox[{{-13.779849866658001`, 12.134920862424, -1.3149885138119999`}, {-13.521078347122, 10.120769633405999`, -0.859651475208}}, 0.1]}, {RGBColor[1., 0.75, 0.5], TubeBox[{{-17.483822430766, 9.193898714652, -0.912588369646}, {-15.543608621224001`, 8.48142099005, -0.6357038264}}, 0.1]}, {RGBColor[1., 0.75, 0.5], TubeBox[{{-10.433798965853999`, 1.571932668306, 1.161077890016}, {-12.362534579672001`, 2.295013645494, 0.879221477664}}, 0.1]}, {RGBColor[1., 0.75, 0.5], TubeBox[{{-14.158549067332, -1.31144149811, 1.559305519174}, {-14.446862673426, 0.701392591886, 1.100410126512}}, 0.1]}, {RGBColor[1., 0.75, 0.5], TubeBox[{{-18.56864609723, 0.362623301592, 0.9376064521599999}, {-16.934057673668, 1.641081522098, 0.752919750728}}, 0.1]}, {RGBColor[1., 0.75, 0.5], TubeBox[{{-19.219431826836, 4.940308792074, -0.08956734322200001}, {-17.296820814984, 4.181816239372, 0.185189368548}}, 0.1]}, {RGBColor[1., 0.75, 0.5], TubeBox[{{-4.215472259432, 10.535110956166, 1.66504702723}, {-2.361218306178, 10.355709818356, 1.538117911262}}, 0.1]}, {RGBColor[1., 0.75, 0.5], TubeBox[{{3.1981363776059997`, 3.950201972182, 0.21395477772000002`}, { 1.205939985256, 4.56918739266, 0.24510691082999997`}}, 0.1]}, {RGBColor[1., 0.75, 0.5], TubeBox[{{2.163192028912, 8.446306101518, 1.307507088578}, { 0.6592819377019999, 7.08517803769, 0.843250543254}}, 0.1]}, {RGBColor[1., 0.75, 0.5], TubeBox[{{-4.811567428871999, 2.36120318837, -0.736717240004}, {-3.236329629792, 3.6406686328339997`, -0.277013044614}}, 0.1]}, {RGBColor[1., 0.75, 0.5], TubeBox[{{ 1.077334682326, -0.012655495022, -2.745603692386}, {-0.07150534211399999, 0.091139595254, -0.983604272726}}, 0.1]}, {RGBColor[1., 0.75, 0.5], TubeBox[{{1.06151578598, -0.82213474493, 0.538180736718}, {-0.07150534211399999, 0.091139595254, -0.983604272726}}, 0.1]}, {RGBColor[1., 0.75, 0.5], TubeBox[{{-1.79587275821, -1.068133606432, -1.278930652006}, \ {-0.07150534211399999, 0.091139595254, -0.983604272726}}, 0.1]}}, AspectRatio->Automatic, Boxed->False, SphericalRegion->True]], "Output", CellChangeTimes->{ 3.574335299276738*^9, 3.5743387964009886`*^9, 3.574340073154031*^9, 3.574341004756467*^9, 3.5743410887626147`*^9, 3.5743411657955503`*^9, { 3.5743412380548773`*^9, 3.5743412657449255`*^9}, {3.5743412984581833`*^9, 3.574341324416629*^9}, 3.574341528496187*^9, 3.5800583385200076`*^9},ImageCache->GraphicsData["CompressedBitmap", "\<\ eJzsvGlU23mWJXg7qvtMT/d0T8+c7tNnZk5X5fQ5U11dJ6syMzIjwrvDdni3 WcxuMDYGL4BZveAVDHjBBsy+75sQYpMQQmjfhRA7Yt9sdu+OxeGMjMyqniuB szLyc3+sc+LyEwJL//fue/fdJ6Q4HnLl4rmokCvhoSE/OxgfEnsxPPTyzw7E xPOuv/gXwL+46MTP4Lz9P4CPX/4H//sf4c4vznv++fY/3/7n2/8zb3/jOv5X PHv2CmbzNHoIu2kafcZp9BumMaAntFNYmX+J6I1/8tZ1/HssLr2EtWcamRkd yM2UojhDisp0KWofSVH/UArBfSkaU4m7Ugjv8Lwuwbhq6tLGo7xxHf8HWkQm 5GR3oCBbijKiJov/8okUzXzENj6i5LEU0jQpOvlonfd4O4VnInGLt69JMNM9 iYiNh3zlOv4TVpZfoiBHjKI8KUqIKkKQK0VLjhRiPkUnH17Oh1fyYtWEhk+h 5UVrnOCFa/hU2mSetzugiG/Bm5kXuLjxFC9dx39Gn22MDy1GWT5jJmoJIdGW 1wlprgzynC6osuXQZnfDkNUNE08zYcmRw5LdRchgftIJMyM0MzpzqgSGmy14 N/cCFzae6oXr+L+wxmjK89tRWSBFdaEUDYWdEBV0ob2gG7I8JZR5amhzNTDm 6mDJ16OnQI/eQj3sRXr0FesILfqKNOgrVKI3vxv23C7YGb09TQxrUjO+nn+B 8xtP+dx1/D98yheMqhU1hRKiE/WFXRAVKiAu1EBWoIMq3whdvgmmQgt6inrQ W9KD/jIbBsttGKq0YaSyh7ASZgxXGDFUpsdgqQZDvIQhZmcwvQ29KUJ8vbCO cz996urcJtQViFFfJCMUEPLK2wsNkBWaoSzoga6gF+aiPthKB9BXPojBqiEM 1wxhtHYIY8R4vRMDmKjrx1idHY5aG0arLRjhZYyWqjGaL8Pwkxb03qv7+NTr m5XY3apCfX6LK8GNRUo+tR6tRRZIC21QFPZDVzQIU8kIbGWj6Kscw1DNOEbq xjHWMIGJxglMCifwCaabxvFvMNPkwFTTCCYbeTmCATjqe+GoNsNRroGDJI5k C7FmGQ7buII11/GXWF9aR31uIwRMgJC5aioyooX5FfPZ5YVD0BSOwlg6jp6K SfRVT2OwbgajglmMCecw2TSH6eY50mxHT3g1lguUmG+bwWzrFKZbeHXNYxhr GoZD0M+kWOCoUMNRLMZwbu1PruKvoGjuRmOeCMICOa/CgKbCXrQWDjIPo1AW jUNXMg1L+Sx6q+cxUPcUI43P+MiLfIYlzLQuYa59CaLgciw86cf37O6nHc+w IFnArGQeU+0zGG+dhKPZAUdjHxx1Jjgqu+EobcJ67yBCf3opDdm1EOZJeCla ogdNBUNoKxhjEU5BXTwLY/kCeqoX0Ve/jGHhKhyiNUy0rmO6/TnmJM/RXz4E y/k8vM+txjtZPxZla3gqW8Fc5xKmpc8wIZmDo30KjpYRXg6rpV4HR00Hhksq Pl7Kquv4GUasA2jMaeTlMCv5Zl7OADGGtsJpdBUtQFO6CFPVCmx1axhofI6R 5peM9BWmxG8w2/EG851v0BCUhZXkGvy2rgHL3a+xrHiFxe4XmO9+jhn5KiZl SxiT8pLEE7ykITiayJOA2akRbF7NhOv4X2AyTcFKme7dlOo+SnU/pbqfUv2v Xb/z/8JhHYQwuxVCioMwz8arHkFT/jSFYwFdJcvQVKzBXPsCvYJXGBK9gaP1 HSbEXzMx32BO9i0UjygmUVX4tqQZr6UDWFF9gxX111hSvcNTFaNSvsRk9xrG up7BIZ3hVZPTNiaxRctktmJ9qA9nNy7b4Tr+HazWKWRkSJCTsTEuKqi+NVTf ekpgwwOOCAq8gMrbyHHRcEOCMdUU/tVmOGohE5/VAWGOgSH1E+NozpujOixB XrYOTTUnWP1b2Ju+xlDLt7yc95js+B4zsg9M8G9RH1KC5bQWfCtsw4rmt1jV fiC+x5L2OzzVMGT1W0ypXmCsewWOrgWGxDLtGOTjsERbOvBidPhjOCObimHr mUJOluSfZhfRyPnV/OTPZteDf5pd0iSCs0vC2TXF2fUXm+EJHldB+KSLjFkY 4jDDm0Jz/lOIi1chr3gJTe07mBu/hV30PYbaPmCs4wfWy+9YNz9CntGLnstC vKvsxDpDWNX9Hqv6H4nfYUn/WzzTv8ec9mtMaV5zAq/D0b3IEKcJln0na0zc hRfjox/DG3IdX7jmaH522x/naDXR6JyjhIShyhhqNyeJiqGqCe3mHNWmbcxR NUPWkE3VrQ7I41rwemZjpjWmsaszqe1ZPQx3lOHOQJS/BHHJc8ir3kBT/w3M wu9hb/kBw+If2RJ/wJT8HzGr+EfUnavFYmYnXot7saz/R6wY/hFrxn/AqvEP WDb+Ds8MHzCn/xbTurcY17yAQ7lMsKUULM5uG8NV4MXk2MdQB13HFqwy1JLc 9j/O8zoO2yaeYkKW2wlFjgwaznQ9YcySc5Z3wZrjhIzohDWbs5ysm5gGE0M3 pXRAd6MVbznPGx/WQZiuYsjswSdjDHuOj72M9tIX6Kp+B03DdzA1fUBv248Y kvwBY7I/sK/+gTZlAJbrrXhZ141VzSuG9w9YMf0Bqy78Hssmhmv6LeaM7zGt /xrj2ldwaCiCmnk41ONwqDhz5Eq8mBrfjHbAdWxltC9QntdGS9HB+c6WI5oL ZZBQ8eX5CqjyVNDnqmHK08Car0UvZ35fkRb9tBIDxRpCjQFOyL5C2on8LvQy A70sBNtDMcyJLRDeZC0/YsTpdggzGHH2PKV7BW3lLyGr+RoawXuYmn+L3vbf YUj6I+vw95hQ/B7VF+swz2yvS21YNPweS4xyxfwj8TviByxbWMvmDxsRG77B uP41HPo1gu2qo2ZqqD4KFZ5P/5HgftexjZbmOSrzmlFdIHGF3FDUxZAVkBSq Ied0URcYYCgwwkKf0cuh319qpZ3poX2xYrTSCQthJugjKvQYLtdisERFS9ON QYY/kN4OTVw5mm5zWj3qZejjJHqBTm2VYb9CZ+3XUAu+Q0X2COryxpB0tR0P rkqQEtGAR2GVyLtUjbyYFhpmIzRFYxhsXXWFu2z5QHzPsNnCpm8xZXyHcSOJ NjJs41M4DCRax7BVCqxPO34S9VZUcmDVFrTTwNHEFXXTUGgYsR5dhSZGbGXE NliL7bCX9mOgYgDDVQMYrRmkcxqkgxrAZL0TfYQdE/U2jNdaaWNMdFM6uikV RvJZ9nfK0RGWBeEDRv2IZD+Zp21YRRW7ujhjEInX23HvhhjpN8XIdeJKMzLD ylEVXY26y/WovSJGbbwYdTF0fZfE6EzSwZA/iCULddlCXTZTuExvMWZ+CYeZ 5W0m2SZGbaDRVMk/zum+TaKHbaOoy2+mi5O6XFwTXVxbkZkG0gYVjaO+eADW kmHYy0doHh0YqaUvqh/DhGAcU41jmBGOYbaJEDmIETq5IUwLaSgFTnvQw/CN dHH0ToUdUEbnoO1aO0N3sLvnkHu/B4kJrUi52YZHt9qRc7sdRUQlkRdZjZpL lWi5UoOWhBa0XhOj7aoYrQy/Na4dbdFERBsUd9T0DnOYNb/BpOUVxqwUMStH kpVdbaaIGVmYis7NqO2uYzvWltZQl9MAAReFRpZ1U5HB5Rw7GLGCzlFXNApz 6Rh6KyYwUD2FkfppjAlm6FlnMSOaxWzLLOZbZ7FAx/i0bZqYonucoHscw1Tz CP0dB6EzA7UchhVKGBMroIgtQGWiicRKkXK9GfdutuLx7Tbk3mlDKVF9px3V 15tQEV6O9svVkCXUo4tZkRPOs+smcaOd97eh6yoR2wbpRRHMuT2YtD7HWA/J 7qF898zCYRnGiNGE1flZ/CT0bRixDXO7a6K9kbHu9FxUbDRlg+hkyOricRhK p2iYZ9FfM4/hBtaO8CkmRc8w07KIubZFLIgX8UyyiEXa1EXpU2KBlnUe85IZ zNAbTrSx1po3/WGdEbYMEdqvFeFBXBkeJAiRdqMZGbdakHu71RV2TSIpSBSj IroOokt16LomgPK2GNqkThhT2S+cinque5pkMdR326FObIP6VivULApFjBCq Ox1w2Jbg6GV32yZdxrNfrw/7adT1WdWcxSy9fJo7dnJTwSDEtKNdhVPQlMzC XLGA3ppnGGxYwmjTCiZaVjHdtoY58ToWOtbxrHMdS7J1LHetEatY6VrBYtcS FmTPMMsMTHZwrWh32lCuDI02GIs7kR5fgCeXi/CIUWfeFCGXV13MyKqdy32i DI03OlB9XoiOy63ovsPoUlQw3FfBylFgz1BiIEsBY5qckEH/oAP6e+0wJLdC d7sJ6iv1UPP2SO8shnvGMGC2Y/np082oezejXl9chSC7geaIRolLqDC/j5E7 uCBNQ168AG35IizVK+hrWOM+wBJqeYGptldcPV5hQfoaz2SvsSR/jRWa7xXF a6zSgK8qX2BJ+RxPFcyOfBlTzMC4lCUnZu1U6chrGQpuVyDnagkyr9Uj90Yb iuloKm93of6OAs1s2Lo4CZqiaRVuy6BINUD30MjVnrWSZUB/ngFD3Mn7c7Ww PlHDTOdjTu+C+VEHTPdbYUgSQJtQDRuHXp91BCa9+dxPox51rh5ZzYyaIzWP nilvmH5pikq+gO7SJegq12Cpe4H+xleUjjcYb3uHacnX3HK+wdOub7hifINl 5TdYpYFfU3+DdZr4Nc1bLKvf4Jn6FeYZ/bRiFeNdrDjpNOofN6HobjVKkmtR cKMKOazgguudKL+pQO0t1tsdPZpuciOL70L7dRW6GLEyrQd6GhxLjo12wUZ7 0IMRztChYgt685iJPD2sXETMrAFLBrvgYQtMyXXQXC+Drk2Dd2+//knUW10t L6S5FuboGTl5zh2j35+FpGgRivI1ZAZr0erPvonvhvGODtq7esx0vse8nNNS 8YFrygeuKx+wRp+/Tp//XPc91nXfYUXHjGjfYZ5meEb1nMZjmW6zH8V3q1Ca Uo+yFCEqUkQooiyVXFNSwnRouGmCKNGK+ssamncduu4bIXs4QOc7QEs4CCu7 z14yQMcwgJGqfgyW9aGv2AZ7sRU9RSaYyb+Z7Lle8kkTwZhcifF62cfXXT4S rRawrDMpY1kmeiZubzmTaOG2JuEOoKh8idv+k1A+XoL6sgTG+Fb0xDXBTpmx R1TCHF6G2QI7Zlggo1yV1w0/4rnhdzx/oEn+Hov677Cge4cZ7UtMqNZQlFjG UGtRntpEiFFFxypM16Lmtgm117iD3KR3u2VD0zUjujnXNBn9UD4ZhYqG3cCW s5Q4YK9wYLB6FIOVnKUVw+ivYBrK+2Ert8Nc0gNTkRFGeknjkw4M5rdhJK8O 3yyt/ll5NzysoEvspnGwMvIRRj6NlvxFSErXoah+jYzEl6gqfUVySEKaBd0Z FpiyzBjINmI8W4vZbCWecSVYfszF7kEjlrhhL+XKsFprw0KVGdPiaczo36CH s6wsuQoVyY2ouNvCU4LqFCVE6RZu8A40JfajPFqO6sgudCVaoEwfgPrJJJ3w JMyUVVMxB0nZFOyVUxggBqsniQn0V4/Bziz0VA3DRBNlKLNx3hqYFT0clQo4 yprxvG/oz6Kuv1cJ4WMuQRls6Ez6h6xZNBcsQ1L2HN21b6ETfAtL8wf00yOP Sn8Pk+gtVA3LsIpWKPgWqKp60Vvfi3GK84LQgrVGI14JtHhb34231R14U96E F/nVaE1IQ+WNAlTdqkfFTXLN8VKdokVLeh+a0/qQGVKHojABai8I0ZnAMUUG VNlz0BXMM+J5RsxBUrmAPuerPRyhg7VzGKybRV/dDGx1U7DUTsDA6E01Qxhw vtLV2Lv5MoqUAlD9k6i3073QIKYx6sc0ixmMms8kKlyBmJtBNzdcbeN3sLR8 QJ/4B4x0/g4T3G5nlD+yWX+Pp9xql7gVrHArMEkWMMQtdkq1BENbD4ZkvZiW 9+JZtxVrcgOqb2ehLokGM7EJdRzMdfQaDdc7IIiSIC1YgLwwESoutEAUK4bk ugQdKXSHuYvQFvLxKKmWimXYqpdhr11mpEvor19Ef8Mz9DY8hbVhHjbhHEba 57mFc1C0Ow3C4OarNeS7Vojv1lYQ9mehGxjuA4aexjUwfWMpcobezuW+q45r oPBbmFu59Uo+YFj2W4x3/8DwfuDi/gOe6n/AovEHLHEJWrUQ1t9izYmeD7zN 5ra8h1U1g0HdLMqSylGc3MKm7kRligI1ySrUUxtFt41ID6UhDe9AWaQUycdz kemVB0FMM9R5E+jOGocydwKa4iWYq5/DWruOnvp1DIueY1L8EmNi54zkLO1+ zm18hWsqp0XHNMMfhaOV3qjZ+bJPO14MD/409P+IEd0wFxtq2wPW+iPHxgbM 0NsYuqzuLdTCb2Bq/Q69kvdk8nsu6t9jkvI9Q+me13/AU+MHLJo/uJahFev3 n2C15z3+P6z0fIdF6zeYt3zNdjCgIqkBFakqVNzj7XsWlCabUJVsR/5VI9Iu yFAQo8B9fwGu7n+CW0cycNc9E9leT9AQ24LOR1bIH/eg65EZ2lw7V4Qhmt45 kjqDEeEU/RCNqPgpphR0FXK6MxntuJT+SMKSb3e+QtSJF45R/JlNEyRRVVOo pg9GqW+zNKjLaC1/AWntG6iE72Bo/Ro2yTcYkH2LEcW3GFd/hyntd5ilWs8b uQCZGSIXoSXrt1juceIb3v4az6wcYJY3G2Gzxivu6Qgr0YvKVDvD7kPOFQMe nJMiO1qBsmt6pAS04tbxaiSfKMED33ykB+YhLzgfjdfovWnVlBzf6sweworh +imMcQsZFk1jQDiBXgEVnnvBkGR645UjGQ2xlMuguBsvJsZ+EvX/CVW5GcIk A4SpHOGZ09SrJTSXrUNS+xKKxtfQtbyBRfIWfbJ37OJ3GFV9jQnt165XMWaN X2OeK9+C5etPXGH+Nb++Jd5gwfoKc5aXUFUz6DvN5FrvCrjiHqf3bRuexGuR HqtGVpwWmdFKFF83QZBiRQvroOiSCg8CRUgPrkX22TLkny9GKcem6Y4Gjhwj tNm90GT3wFDYh1EuQ0PNU+jjGmgTDNFb9cJGmXUoWOly52tISgyJav4s6PX5 VxA43RFTL3w8Qc/yFKLSVbRXr6NL8Bya5pcwiV/B1vka/fSgw8o3cGjeYIKj acr4BjOmN4zuzSfk9TWDXuDuN89g5yw0Zz1rUFaT4ducWokqlCf3ID/BSGNm Qlq0ChkMOI9zuvRWD/W9H9LMCSge9aH1vh0SanzVDR1KYmTID29E1bVhzNQ8 xw+UCl2ujcVO1nMs0BXbMdw6g/6WcfQ2jaCH606PwARrvQrDnSxwuRpDrR// VtC3adKUJX1ovN2zUd/saiHNWUvlMqT1q1A2rdHarcPc8Ry9XbSnipcYUr/E KB3IuP4lJo0vudi/xLT5BWbMz4l1TFvWMGVdxYRtGfIqDS1nM8pvK9nCauRc 1iEjXod7lxSuM++6GUU3TCi9biHNA+hO74fkoQ0SzpbOjF7Is3ohTjOjLn0R fdr3eGri9eRbCQs0eWaKnZGrErfptknYW0Zha6FzaTbD1qRm5BJG3YUXMxP4 s5DXZ1+jnskWJA+iMWMSjfkcYWVP0V67iK7GJahaVqAXr8LcuQqbfA39yjUM qtcpguuuF6vGDGsYNzJEE2FewbhliavuIkZtT2GQ2lHGlbkkQY6c2G5ksaKT L3TiXpQS6Zf1yL6qR+ENZ/WbUJNkRxdNmSy9BxKik63bndXDsNjCNIEahqql UdAVUNFcMEKZb0BXrg6KEiNH7Ch6xQPobadDb1Ojt7kDtoZarI4PfQz548tI Q/IFTlA7Gh6MoYHurLF4FqKqeYjrF9DV9AwqrtG6Do4N2RJ6ujk1lcvoVy9j ULuMYd0ShvWL3N4J8zMMWxcw2DOPftss7L0zKL3SgOxLLciKkuNemBjJ5ztx P0qFNDbyk6saFN5kkycaWftWhmmHnOokoQOUPaETZN0q88gmGdUVmqGn1dbR c2rpvjSFeigLdJBzQZbmKWFu7oNdOkBYOWLVsLeJ0Sus5pKci/fPVz++qjCw +YJwV94oN/lh1D2eRF3eNBpKZyCqnoVYMAdZ8zyUbfPQdizAyClolj9Fj+Ip elULsGtolXTz6DMQ5jnYrbOw9czAapuGmci7VoUn4U14eFaE5OBmhstJHCnH A86mTBZ5Afeq8kQ9KpOMaH5kgyLbAjE3SWmWEXLqlJK7lJpMaguNLpOpL9YT OmiKtFC5XstUQlrQja5KNfq6+mGXWWDv5P4tbkdPUyW34WKMCQtCf/ryt6xw giPDgeqMadQUcAMso2jXTKNNMA2paAbythmoJDPQds7C0DULo2IGZjWhIwyM zDQNo2Uaeus0tISGt7PuVCPtdAWSfSuRHNSE5DAJ7l7swP3obmRcUSLvhhql iRpGqkX9A1rwHDNrWIuOLD1k3Pm685wE6qEuYnSMUFushbZEw5OjqkgJeVE3 pMVdEBdLYRab0Cc3MVoFejtaSG4FZqQlmG4vxKsJ+0/+rrGFHbmKsrtjqMiY QkX+NKoZraB6Gs0N0xA3MeLWaXRxaVB0TkPVPQ21ihFpeer5vZH3M1o50UVU ibSICT2LJI/HSPEqRcrJRtw904yk8xKkRsnw+DI7+boCxXeUdGMqQg8Juezg 4tKexdLM0bDWNOgu0DAqDVTFakIFdYmSUEBVKoesVIaO0g60l4qhESnRp9DD Lu+CVSLCuLwCs/JSzEqLMSUuwPuXKyEb0Q5//CvO/LeQ1DxFcfoUilnJZaWM mNEKGK2I472VY11MHyfhWO9QMHpG26HhfTryT7Rop6AbeIarkZE473Uc8R6X 6JwKyWsNkoIESAprQ0pkB9LiO/EkoQsFt+Vcs7pReleF5kw9eVWi9YkS4hyV qxFlrFB5oRLdRQooirupRXIoSrvQXd4JWTmjLGtHe3kLWsu43Cq0sMplsMkE mNVWYlZVvhGtrBCvp+34t64Y/zUmZwYwTcw4MT2A2SlikpgYwJuXa24bGRl1 HZ9h5dl7tDUtIjd/CvnkvpiVXsFKr2meRl07e53ZEMh4yvk9+a/pnkJ37yLW X793PcK5E0dxgZm44O2OO0dykOhZjqSAWiSFiHA3vA33YiRIvypFzs1OFCXJ UJwkp46o0ZGrRNMTOVqzu9GeK4ckX85eJb9FXZAVy9BVwgyUdaCzggtJZRta K1rQUtHE6SKARamGvlMCh7aW5rAKsxryruTKryjGtCx/84++/x4zcwPo7C5F V3cZFIRKXgZNVzm0snLopDwlZdC1l0HbWgpdUyknUwfePV87upGhMdfxb7C4 +C2sva9gHXiNx+UTyKydQhYzlN00hTbDEvqmXqN36tW/dP36X+P8iWNMiBsu enngkkcIbh7Mxx2vKiSeYnmcp8hdasWDy+3IvC5GHvfPQrri0vvdaGEinH8r bcrqRHNOJ1pzO9GeL4WksAOSYgkkLHhJOcuhshWtVc0QVTZBWNEIQVkDxI0i 2NWNmLXUYNZUjVkdy0PL8lCXMCmF+P7Nyr/adGbz8wNQqEqhVDMXrCAdYVSW w6woh7WbYH56Ognmp0fC79vLuYSWcdUmGksxpuzAN+urhzdytOg6/humHCM/ CTzM7SiidyfgxtFS3PKvw+0QIe6EU+W5Xz282oonN9uQn9SOnEQp6jNkEGRK UE8IssRoyhGjOa8dLYVEcRtaSlvRXOEMWARhVRMEVULUltO8ldSio6kGC711 mO1hJZgZuJHVYGA16NgXmiK8mbNv/lH5P+Ht2zWoNaXQaBi5phx6wkRY1eWw qSo4qCuoJhUYoIoMdBGdREc5BpiFfmahr5VoLkO/sBR99SVcxyU49NM0dAgb cN6TzXDC3ZWGkCNfIXDfVkTvuY0E9yrcCGzEzdAm3I7kCIhrQto1ETJvN+PJ nTaUPeRGntGKysetqMlsQV12CxryWiAobIagRISGMhHq2QB15L2WqCHKShqQ kZpK6xWFBXsd5mxMg7VmMxVMg5FNoS/Gcn8bPnFd4/+Ggf4O6LWlMOjKCKaA sLJWbGyiPmKAqRhiKoaZipHuik8wylz87xiVVWCUdTHCuhhmVobYO8PsHUF2 KdeaEiRzlqffbUHufSnyUjrQUU0zScUc1Exhz0aW5jbf2fPy9dqGSE1vCNQ0 BWqG4nT22MGNzJ3wZOb2uzJ3av92hH8VjqsetbgWJMT1sCbcZPaS4kV4kEAw g1kp7ahi1kofClGaIUJ5lgiVeUShCFXFPEt5X3nTJygtb8L/jeIyIdJS7iHO Ywvrjonrq8ecq4aYOCsTZ2HzmNk8phIu3fmuix4e6ICRNWXSl8KsZyfo2R2E nckbYNKGiBFVJRzKSnZIJcaVlf8SE4pK/AeMd1fAICxHSXoZHtwuxaNbpXhy oxR5CaUovFKCmhRyvPl2j8ZkKYRsiaabHRztZryYfblrI3fTrmOHS9KsvVJK WqlL0tQuSaOMdRJSgrT47vwMfju+QOCeXcSOP+bxzMEdOHfIF7HuNbjMXF45 J8K1SyLcYS5Tr4tcf6krSHOiCbmPRch/IkJBDpFPMJf5zGVuiRNNyCpsxMPo k4j32o5Yzy0wtz3C034mklU466zCHiayh4m0MpEWJtJQgOF+CU1SCSxMotVQ 5kpgL9Gvr2CpVGJEU8UlsIp7fxUmVNWYUlX/BabV1fiPmOFXa2slqrLLkZ5c hkwi524pihJLUXanFFU3S1GXUALhjSp0pEkhZRVKUwkmVLr5BsnOaxJY8414 Of1ix0ZSJ13HbsxRE7upiSrVhibqCRM10UJN7KEm2qiJNta+jbXvv+M3CNj5 BbEFfls/hfcXf4eA3Z/h9IGdCDm0G2eP7EWERzyi6QZizzchLlqEhCsiXLnc gof3KPsPRXiYJsKjdBEes1AfM8GPWKxpTPKDvCbcv3UV98/uxe3A3a7kRjO5 S4MN/5RcO5Pby+T2UulsbPGeEjhUabDqipnQUtgMTpShlyroTOyQvhKjuiqM aaoxQUxpajBNzGprMEd8gjldDdVRVl2O7FRm9V4ZcomCVOdL4mWouVuGBma5 iaXbwrJtu1aCDmZZ9UgKtfN9LSxdNbOtZrY1dzfeJ6q80oo3sy+wfSPN464j wCXAKk4kpwBrCSPF10LYKMB9VJ1+qs4gVWeQHTNE0RmiAOdfD8dJpvvkn6Tb Z+svmP7f4PRX213pPnd8H8I9vkKE32VEBycgIqoJF+OaceUON6j7LbieKsKN B8QjEa4/pn7czUJiwlWknt2P1NCvcC90H24F7Uac1zakx3lvpHugAXMUhtk+ pruP6e5juu2sZRsHSF0I67aEKS4lnKnm9TPNQ7Qio7pqjDGhk0zttNOe6Gox p6/FPLFgqMNTYx0EeaUouF+GwgflKCbKkvNRdTcPDUn5ECXmoyWpHOI7FZDe rkDXzQp0X6+APk0MU2YXzJkymDI6YUonSIGZ6TenSGB0vl92/gW2/al3+bcu sde5xL6U+lUGC/XKRvQz7YPUrGE1VZ2pdzDtn2CMif/PLhctL05F4M7PEcS0 +2/7FD6baffb/ksE7PgVpWQXwpj2C0x7pNd+xPgcQLzfAYTs3Ydzp6IpzXdx M+oyrp0PRtKZg0gOOYDkswf4HCmh++k6U8K+QmrYPsT57EAM096YHcO0C5h2 Vnk/q7yfqetnlfYz7X3UWEUStE0xsDPtdqa8jynvN1RikCkf0W+mnKme1vHf EvNM9QJT/dRUj2fmegjzS1D8sBQl94tRmpzDJToTtYlP0JiYjdY7Oei4nQf5 rXwob5VAkSSAyvl3yKQGoh69+VrYuTj35qkJJWw53ejN6oI9Qwr7Q26SSSJ8 Pf8cW3/69r4hqp2RauccGRb9htrZiQGmf1jLtDP94+pKTBCTHB1TxCeY5lc3 THGEbKT/i5+mfxvTv/1XCNz1a07IPfQa+xHB9Ecx/XH+B3Al4ABOHfNFafxJ 5F44gDunDyIx5CDN+EHcZfrvhjmxH8nnvsKNU7sR67MdUUz/yrAAfd1P0FRy GZFBpJbCc4H3XyTOuW3BiW1/g7hTB5GddIGV7lTsjdQPM/UOpn5Cu5l6PVNv rN9MewMWLQ0Y7qqhtylB+b0ClN99QmRTVHLRmFSA1qQidCSWQH6H5jyxArrE SpjuVsJ4TwTjg1ZWdyt6sxUYLLFgqMTE04gBLvkDhRoM5iswlN2JQU5+e6rA +f7pLX+62vy7n84bfZmrV51XP0RZHOW8GaMsTnDeTBMzxKy22imH/OqOeX6d 11ZBU/kAQbu+wKndW6k9Pyf+3sWEPxvhJBshaM9nCD2+h5naj0u+BxDjdxBn fd3gftAHCeeC8eTiUdwiC7fJwB0ykBhKkIGkc/txK2QvG2cHor23I+dWAJKi 9uM8v79AhBORZOcSfxbtvQ2X3D9FyL6/ZQP+PQI5bgJ3fU4DHUEWqjFCBsZY /FPM/qyhfoMBZv8Zs79odTJQjfIH+ahIzkYFs1+ZnIeq5EI0JJegJbkCHXer IE+qgTqpDrqUBpjuNcD6QAB7mgC2dAls1JteFrujqp/oI+wb72qvsGCk1IDR IjVGua2MZDZjRqDElj99Y+h/wNdvV2HROqdTiWs69bp6d4MGB4tonDRMUTZn COcsmtfT0xNPDYSx5hM8M9awJ5zf3jl9wsWE75ZfuJg4+Iu/gcfnP+c0cPbE p/A8uBceHh447uULD29fnPDxxdHj/gg4GYKYkJM46euLQCIs4ASigo7jNpm4 EbIPUb47cYkZP+/xKWKDvyQDOxHO+yJ9d/BnZMh3u6tX4n22IerYzxG2928R sudzhO75gtiC0C8JVom8Mg0T7INpPWWMLCyYnCwIsGQVYNkmQFthIarIRCVZ qEouoPcrQV1KJZqSayBOboAsuRHK1Cbo7jXD+LAFVmdtZ7RhIKsVgzkS9Oeq MMDFeaJ+DJP1Dp4jGK8bgqN2AKPVvXBUmOEoUcOR34GRHAHWLENfbJBh3fwA hdkyBat1GpmPO5D3WIoimqVSzpAyus8ymiVZlZXqNI21uZewcoGycXvoZf9s iC5nMkV3lKRNsO6mSJZrvhmcs62WPNVi0VTLHloy13EbWjLXYtlSC139Q5Sn XsKWv/xLbP2r/4KtPyP+619iy9/+d3z2xQ58tusAtu09iK+OuuE4WfMgayfI koenD2+fQVRoMM4F+CDQn+z5+SPIj7e9vRDofhSnj22D27b/ijPHP3MxFuFk kogma7FEHHGZ7F0hczHHf47w/X+P8/u+4DWe37eF13ie3vji3q0I37MV6ppH 9KnsH7L2lKwt9pA5WyNGu6vJWi5Ze0LW8lGdUo7alBoI2CstKU2Q0sErUtug eSCG8VEHLOwVG7f4/lwZhvJlGC1kbxSpMFxkwHgV952maUw7/4zWOIFxwRgc DcNk0NlXJjjKlHBw6R3OrcImdWbXsQ82m/MN1n/24aBMLgt8uhZS2Uoq2+jE WlP4fZIU1dFVEN4phq6phLLHvZX0DZK+EWfPOeljj82StnniqakOiyRtyVKP ZWs9VojVnnoYGx/h9nkv+B/YgsD9W+DN4bPtr/6S+C/4zc9/gV9sO4Rf7TyM 3+w+gs/3HMfWvR7YfcgHhz2D4OZzGp7Esa9O4fLpEIQGnYGf32n4egfDyyMI nm4n4XbYD/t2HYfnYTdc/FP6/HYilognrhBX/XbgivdvEOf2d7i4/zPu9Bf3 b8XfkM6tiCSiiOivtkFfl44FUvfM6qSOTdfbCEMj94PUJ6QvF1V0tNUpdahL FaKJtLWnitHFnKkeyKB/LIf5STd6cpSc90oMkrKRUhXGylUYL9ditNzmarq5 1qeYbVnAdMscJppn4GiagKNxBA7nJ2ycb4iskpNGNl9v3+cbDBo3P8GxsvyK C5XE9R7ycqI2l+se0ZYjRQfZlJHN7nQplDR2SnprJRtTwcYUxZVAdKkATedz 0H4jHwObZtNBFifJ4ozTYLrcDln8yGBPA1ZtDbyKBlQ/jGbBBx7cwk0q9MhW nCcuHqaMfrULv/71l2TxOH6x4zh+ucsNv97ths++dMfWfR7YTuwi9h3yhrvX KRzcH4jowDO4GRKAA3uOwO2I5yfwcPOmyB/48iscdgvDsROx8HIPQdiJw4jy 28V5uAtxxBX/XbjqvxMJxBXvz9mLv0L4gW2IOOjE9k8QeXA72zGKX2MObUfc oW2I449MgnS2YSOWyOOKXYjq1AxUJmWyDUvIZS25bCKXbRCldkCc2gX5QwU0 j9UwZGlgzdO5PvvVX2LAULkBjkoDJqoNmK7VY6x6EP3O9/3GUqAzujDTvoTJ tqcYa52Fo5l8Cimqgh62pgaOmna8GBzCJpkG13EQkhYDSvM6UJ4vRVUBW5Fn K9FBYuUkVMUW1T6RwkBSjTzNPJ2fcNPQq3ReyYQ07hGk0enoiEhHa2gGbMJS jJHMKbbj3KZ1dZFJIlc2iVy3NyDpoheCDnHeHN2KCDf6NyKWCPc+CLdzl+B+ PhZbdxzFL3+5B7/81R58+us9+Ow3e7Dls73Y/sU+7NyyH7u37ceerV9hO3/H c98xHPtiG/Z+tgV7t+2A+3E3HHX3wvHgOLj5hsHNm/CKgJvbJVzwPoxYfy6m xJWA3bh2chcSiCs+XyDy8BcuEiMP7WCxXeLXv0HUYc5OIvbIDsQfpQof2Y4n Eb5YpKou20lpHylNcVLKDSi5ipQ6v29HbWonRPe60fFAje7HOuiyDDDlmdBT ZIG9zIqBCitGqnswVtuDyYYeTAusUKaIUBPWgKG0EfyhfQCr7f2Y6ljBuPgZ HG1s0xYqbTMdjIgt2tiF0dqaTUb1m4x2tupRkS92sVlXyNYk2gs6IaOGK/O6 oM2Vw5jbDUuuAjbCTgfal99NyKFJzIPq5mOobqRDeT0diqsZUMRmQH7xEQab yjDNhWTe6YrJ6JKTUbK5ZhdgvU/gYvQM2zGcLEa4k1F3ZoyIIKPu5y/B82Is ToTHwfNCDI5wHm7deQyffrqXrfsVmd1PZjk/vziIndsOY8svd+GLv9+OHb/a jq8+J77YguM7tiEyIQmeYdEU5ZNw9wmAu3cAPE4EwPNEMDzdz+GizxHEB3yJ Kye/xLVAMhu4C7EeTjbpQQ87GY06vBP/nWzuQvQR/uwoxfkYe/n4Tlw7vgNX j29HT3MGWRXC2ECXwx27MonCm1xPRlvpdKSoT1Gg+b4WHY8MUGSaocvtgbmo Fz1ldvRV9mGwph+j9f2cif3oKVRDFF8LQUQ9XZEWFuEaXveuYE72CtOdzzEu XYZDsrDxgbV2zs82NmuLiswKPzaqznVcgaxFi+r8dtQUdqC+iGpaJIO4UI6u AiXUBWroudtZnFpRoEef861qxQYM09aOlOkxWqaDgau5IdmJHOhp3HTcG/W3 MmG4lg5NdBpGW8o5c2i1XY0qwKqL1kZYm9MRcngLwt2dtO6ghedM89iJy4TH +QhSGgOviDh4RcbBOzIe3oHn4E2zenS/F/bucGOzHsJnv9yHz39zEFu3HcWv fr4Tn/7dTuz4bB889h5C2OHDuOp2ENfcTsDvmD+8CI+AU/Dw52z1C4QXafbx 4v2eoYgnrZcDv8RVUnv15FeI8zjoalEnqU46o4/sRowTx3Yj7vhuXHbj77mz uXnN1z12IDfaF0t9TmqLXC9VVCZV8mSzJktIrRwNKRo0PzRCmsFGzOmFvrAP 5tJB2CqH0F8zjKGGEYw2jqImtg4lobVoSeiEjjnvE2gx37WGZ93fYF7+FtPy lxjvWoejcxEO5/uOpWzaDlojiQ6O1jZ893zlsw12ta7jMNaXn6MmvwX1hRKy 6/ywajfauZB0Feo2P8digrWQslHcg8FSG0bKaZMrezFOuzxRY8NQgQzWh+Ww ppURXBQfFnPtLIAlNRdWGj7rrcfoffQEC1ykljbZXSO7z/sbcfrgF7hwfIPd SLIa7bEL8Z67EBASTHajyGocfCIvw+d8DHzoevy86X7cTsGf8D52Gl7Hz8Db /QxPOqU9gdj396fIuhfcDvnBx90XZ2iEIwO8kBF9jSs+TbDnaQQfDULA0QA+ TgC8TgbBx/8kfH39uNb4IZ4MXz65H9cCvBHneeiP7H6CmKO78beIJbuxx79E nDt/z4NN7rkb10/swo0TZPnEjk2GOVkTi1CRWEvH1EKWO8mwCg33DWh+ZKVP 6YUifwD6kmFYKkbRWzOG/oZxiJJkyAyqQsUljsCHzDsXidHWQUzRKS0pP+CZ 8j3mld9gWvEGE90v4Oja/GShnNO2axAOGWVZIsG6o/8nDF9FDReZhoI2NBbK yK4KLUU6dHJ2qwp7oKd8WIv6YC8dwFDFIEarhjBeO0yfNoxp2upZwTBGSyjV mfVEHexPatH7pAY9GZWwPS5Db1oB+u5nwX73EYaq8+kzyDDZXR9oRF16DMKc Q9bF7i5EkdlYZizC9whOXIwku7Fk9wp8L/CkLPv5nEUAB+ZJ3/MIPHEOJ91D 4eceRm97Fu5fnUPQl2cRFXgVbvzZ7gPetEtccby8EfUgDx5BF+EVcAFhpy4g MDAGpwMiEcrBG3YsEKePk103L/hxBYo46UZ2fTh0fVhpHxne7eI39tiXZHeP i904jz24fIJS7vUlrnvtxg1vsuy9E61ZcTDWk+E7pWS4gX3cTobl7GPn+w7M aM6woSN3AIqiYejLHLBUj0OWZUV+RAsyQ9pRd1MPmfNzUk2U6Q7mWLyAuc43 WFL9gGfqD5hXfYdp1TtMKF9hTLEGh5LDV0mJVlKiuy3saylWHX3YpFizSfGI bQSCPBEaCzo4ddVoLjJRonvQTRnRFQ7CXDzMue/AYOUYRmsmuPdOYEowiVnh JOZFk1honsR4pR4DOc0YyHNChP48Iewsnd4c0p5dgf7MAgw+zkTPvVQssYlX +zdoTo3wokRz2pLiSNIb48n0MXUe58/DOyIKPpfi4XOBjewTykY7B3/fC6Q4 nFtoBIL9IxFwIhzu+8/jxKEYnDkRh6hTMbgQGo2gMzHwCInH4eBIPBAqkFBQ D7czkXALuYQjp6Nw7Ewcjpy6Ar/Tl3EmOBrnAy8gwucUwo+fQAQ34cQvKb+B Prjq646oIztdFMc4KT62h35vj4vi+BOk2WsPrnnvwXWfL3HDl1T77kJrdjwM daWovF2GijuNqEyUoCpJyUmsR12aFaIndkjyh9BdMgpd5TjKbyiQ6CdE7iUV BI960FlJYRQ7MCWbwKx8HJPtTzHX9QqLmt/iqYY0a95jWv0NJlRv4FA/h0ND udbQY2m4BqlIs7zz4xT+SHF9di0a81ohLFCgid3bWmhHB6lVFo7CUDxOEzCJ gappjNTN0gDMcUGex6xoHgvUj2dt81hsn8cU7d4wTdlQUQe3MwkGisSc2K2w F4lgL2xAf34lBnMKMPQkjVtZnotiS2sGzrqm8E528W5cIr0xTFuEn7OLw0lx LHwvXYMPO9eX1PqR1gD/Swj0j8Ip/xh4u0Vyg70EX48EnA6+g7NhN3E69DJO hlxGYGg8gi5eR0BCOm5UiXExNR/Hz8bALTQG7qGxGydN17GQaHjyticpDw6J wvkz5xAZGIiMo4dQtPNzZOzaitvbfk2KN+l1dfFeavheUryXC9NeXPMhxb57 uEUHEP54/DAJpU+KkRpdgpToRuRck7KbVai+Z0TtYxuE2f1soRHUPbAg2q0G d4NlKLhlQmN+L3TcbkakExiXkdruMU5d3pbMU5/f4Zn2PfEd5rXfYlrzDuMa UqwjxfolghNZT4q1pFgh/Uix2nVcw7BlAIKcBgjzZKRZj6aCXrQVDKOzYBzq oimYSmdhr1rAUN0zjDUuYlK0xEV6GQtty3gmXsFSxzJW6OtmBQMYLVXQgHVj uLwbg+Vd6CvvhL1cTDSjv7SeJq0cwwXZsGbexeqAEHWPY3DuKHdJUhxJii95 7kGM114EnKERCo/cGMMhHMO+F+HLrvX3j8bJAFLvFY3jB6M4cq8iwC8RIWHJ xE0EsStP8zx17jqCzl1D4AX+PP4hLmU34Ny9IhwllcfDLuP4OSfi4XaeJu4i f+diAk5e5FA4Fwt/bmO+IecQFxyILI7kEu/jqDy+DxV7vkDmzt8geednf6Q5 3OsQznq7w8M7CCe8A+HtfRJefmcQnpSBRA6qi2cKcT6kiqcIl0I1uBltxqPb NuTd0dHcNSHKoxWpkToUPexFS0U/DM3D6JeMY1hGAyV3YEIxSs88zRE7gwXn h/x132JB9zXmdO8wrXuDcb3zY7Q0XkbSbCTNRtKsN2NE0fFnLDt6htCY00KW VRDmW4lBtOWP007PQFO6AEvlIvrqVjAiWMOEaB3Trc8xL36BZx0vsNT5Eiuy F1iVv8BckwNjFbR1VTqMVGkxWK1Gf7US9pou2Ksl6K8SUe9rWQHFGClO+xOW t/8Ty2wOJ8ue52mdaad9IhPgRYZ9/C7Bj83r7x8H92MxOLiH29Px2wg8lYKz 55MRHHaD+pyAoLMJOBt5D6GXiKhUnI26i1OXH+FKaReis4Rs3pvwOOfELfiE 3+XjJ8Iv8g4CIm/hZCQrI+IKTlFAgsPD4R92GjEn/XHJzx/3TgUg/5QPKgPc UOf5FXL3c7YcOAb/Y37w9AmiNQ+Ct08gfLmN+RHRN+7ifrkA8cGZCCfL4SEC hJ9twaWLKgQFahmDAmF+GtxPsKIgywZ5/QhMzQ70tDvQJ3VgqGsUo4oRjHU7 MCKZYlOvYJ7szpPded1bsvwaUwZaa9PzzY8NU68t1GvzEBwGE54vzP2E5Z2o T6+ghHAa52584EyY6+Au7Pxg4VM8OiVHvWczjLFimG50Y7L1DWbFb7EgfYtF 2TusyN9htfsd1iknCy2UlmrKRS1rqc7E3jeiv14He4OK6OJtMQbrhLy/klWQ xfrM2WTZOZG/JMt7EUWWTwd6cv+9SJY5jc9dhbcve5oMe3iS3f0xOPzVdXh5 JyMo5D5CLtxFyPlbOBXKPnaCbIdGpSE0+iHCYoi4Bzh7JR0xOR24VSrnCEiF D/EJ+U3FF/CJSoEfKyEg6g4Co24hKCoBp6KoB1FROB0RhtjTJ3H9lB/Z9kWs vxfiAgMQceosZfk8Lp48i0jfUxw1fgijwTtNG+/HZczf9yRiyPLVjCJEXHiI i34FiDwjQEiAAAf3VuD48XacPGPCxZhBXLtuR12eBdJKC1QNNvayHZZ2Owbk wxhWDGFAPIlB9vaM9i1m2LuzZHdW/xIzhheYMq1j3EKGrdyPrU8Jmi8LjbHB iG/fvP6pZF+FIL0Owqzuzf/RxhBEOZMQ58/TGCzjumc/2pKewnzPDGtUPXrP l8FwOg8Tjw2Yrp7FiuI91lTv8Vz9Hi8032G8rhdj9b0Y4SUPCawYaDShr4lU NynRJ+zEgLAVQ8I6/rwAM7JCTin66yM7EE6aI0jxpRP7cDroBGmmtw6/Cq8z l+HtF43DRy7hy12xOHLkDnwC7pPSe2zgRJw5T7kOT+QUvkOZvoPgi3cRGvMY oXGPERZPsJHDLqchNleG2sEP9OsPaOYewDeKZ9R9+Ebfg19MCvxj7yIwJhFB MZT72GsIjokl1RcRHnoK14P9cIOI9veEuwd38xPB3LFDcYJ+/XRwOC4Gn6en P4tYUh5Dqi8c98bJU+HYttsDR7d5I3x/Evz2PIHbzmL4e5Du0HZeYxfibphx O8mOlBQbynPN6GJbKBuN0IoMMLYaYG7iXiMa4JRdxaT2Jaa0pJZTeMqwjknT KilewVgPpdrm/Fz0HEV5HKPWfsyODH/8s8FHihsfCyHMpFZn2Vz/g5Hm3Bka g2foLltDW94LiMteIidBheZkHXT3NRi4L8dkihiztwWYii/HcokNswVWvNT9 gPF6O8ac07mxH0O8xAGRFX0tJthbNDy7MdAiRm1pA+o5nZvrypB8i3p84CAp puFiJ0d6OSn2pl5zOeakPB4Qhz17I7F3z1Ucc6O+Bt1H4NlknDqbiOBzd3GG lJ4OZ1fzdtB5fh/1kPRmIvRyJsKuEFczEHo1HcmNA6gd/gEX79eT2jT4RBMx ROwD+MXdh39cCk7G8THib+NU/HUEx19GcGwkIs4FIcFJ7ylOW3avp99ZrmdB cOcU9qBGu/kGwzswFAEnzyGW39/yDsBdD2/c/soLh/7bDrj9fAdCt0Ug9lA6 17UaRF5oRGRcOy5dkyD2pgTXEuVIfmjDA3rqghwTuhv1UDUaoG4wQVNnhr7e Clszp7R8EePaNU5hUmtcxphlCaM9z7gXLWC0d46YwahtDENmO7559+6nFF9B Y5oIwgwtaba7/qcqopw5iIuW0V3xHLq6N7A2fk1q3sMh/gBZ+QIk9NxduT30 zhbMcJteye/Gi6w2vLhfi8XHTZihMI42DWGoeQADrb1QCQwQVXcjPUeETK5U j7LoJzMrcTe3GmEUyH37/HDw4EkcOuAH94NuOH4yGJ7nKMwnr2DH/njsO3Ad bhRnnyAKKz10YEgSToXdRfCFFJyh5AbxDCSCLnI8x2WTXuIKcS2LeIKQ2yW4 S89aO/wjblUZ4R39mPQSsY/gE58G3/gH8L98DwGXkxF4hZ18hZ185SqCL0ch /EIwVzLSG3geXqc4QAg37+BNik/BkxSf8D8Nb8KL95/0DUEId4CdPz+AY58e gvfnhxC8m0J/+AGNVgkuna1HaGQrh0grLl5vQ8ydNty834XUTCvSnlhQSJpl lQZ0Vxug4sAzNPTD1NAHk8COnhb6bsPGRz+GXB/9mMOQ8zP+vdM8pzDQM4qJ kfEtf8puDBofNEP4SAdhej8ZnkBTzgLExSvornoJXf1b7uLfor/1A0fnD1zY fsRc9494pvqRDv8tBtuWoK62wSGwYVlgwpt6Db6plOJdoQCmR9Uoz25FZmYL 0vPFyMxvQVY+N4n8GuTlFCOloBoPaUoO7GGxHwjAkcNBOEps9wnHF55Xsd3j Dg75JOO4XxK8Tt6Bb+At+J9OxMlQZ7Om0BSlIjjiHk5eSKUlvoegyIc4ezkX Z68S13IQmkBcz8aZO6XI1ayhduRHF8PeMelkNgM+1HEfarjPlTT4XbmPgKt8 nGt87AQ28TWO5KsxCL94Gic4ck8EXfgju97UZXfvM8RpshuCE2xqL/9QMhyG E9TviNsZ+NXPD2PXVne4f3kCoW4ncMk9khY6C9Fn6xAV0YRzcWJcuCJGxI12 RN9qQ0JyG1LT9ax8E4SlWkirNFDWWqGpt0En6IFeaIVBZIFJYke/eQ59Vq46 tmlaij5y+xe8PQmL6ePnaf6EXk8IUtm8D0nvI9KbMYmm3KdoK1mFvOoVtA3v YBF9h/627zHa8QGTXb/FrOIHLKh/wKL2B6zof8CakbqseImRrmcYlo5hUMwN gFtTRYEE1XnNqMmqR9WjchRn16EgowK5hXXIzy1BamEVEjIKsf9Ld+zZ5obD BwOwZ5c/PjtwEdt8krA7KA17TqbhiOcVuPtcZZMkML03udHcptdlk9Ex+Yal cOMhNeH3cZqNG3IlDyHXiARSfCOHyEZwSgNqR39Pen/vovhWNRuY9HrHE5dJ 8dVH8L32EH4JbODrbODrdxB0nd48IRYetAIebNwTp5z0hhMRpJfOLziK9IbB /cRZbkznmGZPfv0ZjvD7o5eSsHW7Nz7f7oEDX/ogxMcfZ309EXoiFZeC6xF1 oQmR0a0UmA6cvy5BxK12xCS2Ii6xCSmZajzONaCTItNda4Gy3ky9NkEtMkLT YoS6VQ9tp9X1DgoL6XV+kMl5GsyjePfu261/ymw0G4+s3qMsP/wTZktXIat+ BQ2ZNYu+QV/7d2zU95iQv8eM8nvMq7/n+v09lgzfY8X4PdbM32Pd/B5jqhco q+rDowI50ou7kF0mQ0m5FNVlbagvaoQgtxINj/NQ+SATsZx223e5Y+cv92DH X3+ObT8/iL2feuPQ0XPYezoZ+848wlen0/Hl8UTs90yC58kb8ArmhsOp6xua BO+zhPOkRPuyeU/FZeEMm/YMGzaErIbczMGZ2/lIElGSR35HdomRH9i8v8WF R40bzNJfe5NZn4SH8L3OCXwjGQE37+DkjevwTYjHkQtR8ODE9SCrnqciyXAU ryGG7MaR3XhWG3dyrwtk+SK+2u+Hw5EpOMwN7GjkXew6FIwvGN/ZkItIpB8/ ERKPUL9sRIQIERnRikuU5nMJEpznBI64046opGbEJjXi3v/P1nsGx5WlWWIn OLuS1kijlVZSKEJSSBGK3dXM9Mz0dHd1Fb0nQRKGAA2899577713aYBEIpEJ 77333gMESDgC9J4s0yPtL0nnvkxWVc/uj4+ZSALp7jnnO+e+9+4tGEG5fArd tZPo1U6ir3ECfc0T6G9jtY+jt2Mc/b2zpzA+Jzg7MrODT19+NFz296uR/Q5b 47uoTxrh6P5yeWsrOdtDSR7RfmI2+4LF9u+x3v0DHvX/iCdDP+JgVCTuH/Fs 8ie8mP4RL2d+xHz/c8hrFqFQL6GSbr+Qo1tQ0Y9cWS8Kq3pQpOxAXXkdOgsr 0ZuZg+grFrj978/g7m/O4sq/+x2u/d1F3De2g4m1Oy7asRE7puOqfS6u2uTi MvF+40EyzB1icZdN14x11ykeFhxZC7cE3Peg/fVKhSU9lUNkERyiC+EQUwDb 5FqO6H8kp2q3/h/mhdrN/xvqDVH/CI9sHSw4shb0XBYR9FdRtNHRbOox8bCM joJRRASMOLKmNp4cXR+OrD8riKMbwtENpX6Ec3SpI7ahNA1WuGIZguuuCbjm GI3rlv5sJ54wMnHHQws/JHp4Ma974oGtF5xsUuHt2gDfgA74hlGaY7rgFtcN z/h2+CQ0wT9Ri+TSIdSpJ9BGs9LeOIkOjmwHR7a9nY9xZNs4wl2Dy1jYfI4P n3888+cj+uboHXRxDEJJdMmZjxiGjtDMJtuleosh7XuK+0em7U9YZVPd7P+M XWZbMT0m5k+eTn7BydQXrA+/QiWbrUy9CHktR7V2AeXKCRRyRAvlA+RsH4oU PSgob0JZWR2yMspw9je0GX8wwoPvbuLBuWu48vff4vofzxLjD3DWKhLnrZNx wSoDl23zcOl+Ji7f5wg/SIExm62JGFUnjioDkIU77ZWXPsfe903GA5ZtRA5s E5UoGnsmjSJHdPMf8Xv++yeOJmv9J+QNHsI9uw7m4Vkwj8yERXQ67sUk4z5H 1CI+HlfYbO/Q/ZrYeMPE1h+mdsHkbChHNZyjysxtH0XORsPY3Ae3HRNwyy0F Nx3jcI0/37zvg1sPfWEsuGwShHDPULi6BMLS0Q/WTr6wd4mBu5cSXiFd8Irs 4qh2wC2hEx5stt6pjfClHc2Q9UNHruoaJlHfzFsqsK5N1Di0LWMYa2k89+uJ 5m8wrFhEfZxYZWBTWkekqeI52qvZT+veYLzxLWbb3mG56z3W+z4wXn3E7shH 7I2JBP0Ry4PPUa6aRUXNPCrV85DVzkOuWYCcsbZEPs5RHOYIsqr6UazsQpG8 GdGFKvyeo3jujCnMrtyFm7k5rK9dxaU/nGW2McLZe8E494CqxVG8SF5etC/A BWuq78N0XLdJwh37WJiIUaTaWtAAW3gn4x5H754fR9Q/kUqaB6+ijlNQb/5J /PMT/sDR+5H1A0fwB9Ssfc/6DLc8Le5G5eBudBrucgTNY5NxOyENF0OicMva A7dt/HHHJhjGtmEw4ciZspebUTPMbKMYSQtw2ykNxp5ZuOWcjBv3A2H0IIij F4Q7zGimNiG4YREJd48EhDCaWzsbJr9dg+DIW2f3BBpiNVwFLxMYcZNZaVTh jHr45tZDoZmEgryUM/vIyU1ZwziGO9tw0CPDflc52dMGwzUZpoar7j58eo29 g1UcsHp65ejvkWOgW4GBLgX62uU4erKKw91V16/8PfwIbdQU6pPX2GufoKGM iqx8ht7aFxhpeInJ1teY73yD5d632Bh4i232U7Ek5pPxd6jkKJeqZlCmnkMF R71Cs4hKJl1Z3TJktO9lqjmO/BjVeBiFyl5EZVbDJDiNOA/GN6eNcZWq7PjQ Et52Fow693Dx8h2cM/HEOYsYjnwaztvk4YJjIS66FOOiYz5RkIGb9vEwYZ+9 y2R7lyn3rncizH1ZQZnkIvttsgLZdeNQzL7Sj/bmD+SveuN78le9/gU1659Z n6Da+Mh6j5yRbbgUaWEam81KxZVU9njPYNy08oGRNUfSJpQVSRRE47YlEWER ipAsGtuKCdz1K+aok7f3+fsPQnDLMowRLpzOi+mdSDF5EAMb9zSEBDK2uUTC wS0Sju4RcPIIg7NHKFz4Ona+aXAMldEnlMMhthq2qQ2wTVMjqrgbfV1d6Onq xPxAA7tgNQ6GxIWrChz0VWK/u9Qw8MbSzV/i4HAVfYMyDA3JMTak+LOLE+f7 WX2836PEbJcS0+1KTLQqsD7ejadbK/jvDJc9fPj4Cnt8HvFcPX0ET68Cgz0s AmiwU8GOTwA9JoAereKaIWYNlK9BG7cMXeYO6ov30SQ7QkfNMQZ0zzDa/BxT 7S8w3/0Sy/0vsT70Clsjr9DZssU+PYlioqeEmlFK5S/TLKO8bhUV2jVU6Fj1 a/x5GfmKMSQzbj0IIseEm/GMwxULF6LlITx9oxHtZs+Q6gJTK1ecZ5A+Yx5D 7UjBOatsnHcoxAXXElxwL8VFz2Kcc8iAiWc6TL1Z7N9m/qzQfJiF5cG/QIfc hlHk6kaRrRkhZoiWjV8QU7P+kfWBqPmA6s13rLeo3nrN2+fIHllAmK4Vt3JL cNU9HFcf+uMqe/Q1q3BYBxYjIKsd6ZoVKMc/omriM8z9K2DqW0yURRM54TBi RrhNN2lClN2lttyj9zBnpzJ3TkdQSDq8faLh6BkDJ69ouHhHwdUnghUGV98I OPimshLg6BMFS7dAPHR2R3ywM05ma3E0rcbBlLiuVYWDEcOlz0MyHAyU4+P+ 4tcLjfQX7v730oVGg8MyjI7IMTmqkC4yWmQtjyixyj/9ennjxgBLutBIiTXC ablDiYVWpXSt6/ZIN75/+xr/jeEs9k98zsXlbgwSlqOE5eTQL9eISdAU1832 8n434crnmWpTYKJJjhNC7PPb11cMF6HWhMxCk7wFbd5j6Mr30Vx1gC7NIQYa nmK09RhTnSdE9wmW+p9hdegZcmSjyKOHKKieQSG9RZF6GcWaVZTUraFUu4FS 3QZ1oaxhEw+RRSS6xsjorcll52iquCe57kl36AlzU28kePnA1dmLIZ0h2dIR V6kBZyxS6DOycM4+D+dciSz3Epx1L8Q5zwJcdmFH8MuBcSArKAf2SZWIpSPN bR5BXhOrYYgoG0Rh26yEKhVRJSFr/T3RZUDW5mtUbb1ivWCdoGrzACnjswhp 7INseAOykceQjR6x6IRHXrOYc8Y+EWFfkNN6AIsAOW67ZFKb6CyFblnHsIux Y9qxYzowozglMI0m4I5tBnxCcuATlAQnn3g4+8bBxS8Wbv7RcPdn5/IPg2NA Oov/HxADO58QWAqHaXMXJ3MaPCXKDgTKJr9ePV1FraJGDVfgxVLbV4TdMgjM ykoXxkaJrjE5ZscUWBojglibrG3pwp4qGgvWkLiu6jGx9l8x4vFxom1bXEVL tK21668nXqyXY6u/618ZwPvp8yss8+lHCN4JvgNxifI8a4ngXSF418T1ub8G L0G3RtCtEHRLbfxdPuWsTo7nm6u4bEiir/e/QBW5AnX6LjSFe9BW7qFZtYdO 7T76mw4w0naIic5DzPQcQadbRqaMOVgxiZzqOeSplpCvXkWBZh2FdZso1G6h qH4bRY2PkEMtCKDS3wsuxm06wpsPfIk4f9y28qUG+OGOeQCCvULh60nX5+wL axdv8prdyCEPl+2KcMGpGGedC4i6Apz1KsAZ7zycccvGVZck+OXWIlbRSqQR Zc3DLN42DSKvcQC59UzB2j7Ipw+hWn0H1RqRtv5Gj7ZNgbaXUG4/Z51AufUU ys19JI1MI7dniqjbYu2xnkI+/IL1hqj7QNR9hnLiB0RUzhN1VTCyZ4d/GAMj q1h2znjcsUuACdOzuRPdsWsyLN1TYO6SAdfgfEQw4Tr5J9FHJcKVXdItKA7u QTHwDIqkL4qHU3AKi7dB4bD09sUDNxv2GV88JfIOfkYetW2CyBsn6saobcOl BtDdNFzP9PnTK6ytdBJ0MsyMy7EwocAqa3NCiUfjSjxm7RG3+2I5BNbhqADf EWH4L3DIfw+JnH0C8gnlaodytUXUrFOmVhvl2B3s4m+J1/kfcXS4jNFRmXTh 4DTfjXTBIGud4BZXrUkA53PtsgS0d4nEr+B+1Gt4XqJxhZ15uUGO+VoZfnj9 Sn8VuB9eH/wAZcwGqrOeQFW8B418D401e2jX7qG3cQ9DrXsY7dxDfEkPUipG kK6YRkbVAjJVK8hWryOndgs5dQSfbodAeIychscIyu4mCMtw1yOdMhHIJhRE AAazCYngGYI7D8Nh75GE0MAoWLvSrtC4OrkF4QEj1C2HEoZWFW76anAzoBZG QSrcCJbjekA5zBmr4iuakN84iPymAYKR4GtmNTGkN7LqeymB3bRqnaheZRNd I/g2XhKELwi851BsPdODcPuY94+g2NhD5cQcKgcWIRvchmxon3XCekkgvoV8 9COB+AXKyR8RIVuAmW8FjBgSblrG0cYl4ratCAwpMHVMJfhS8YC2zNIzjaBM g3VAIcJjc+FBCXQJToZrSBLcQhLgERoHz9BouIYmwik0Dc5hCXAOjYSNvz8e ejmgPtsPTxc0OJwTaygYFpCYIhCn2GQnCcSxcvwZEv9njA9VYHqsEnPiyiDW GlG4TRTuTlRhj3VIBT0ilo9ZJ6xnrOeiJvX3T/g7x0TqU4FUatoTNtFHfQps iUUFmuX8uQv/5df1CpY7MUHET4/rr+JbYq3xtbZYOwL1fJ49Ps8+EX4wUvUX EtT/xZ+BfZdgF6q70UGryKdfqZPhxzevDOsS/A1eEpHdKo4QEakkImuISB3l sYWI7CQie4nI2OIBImECifI5JCuXkVK9jtSaLaTV7CBN8xjp/F1xG69cwL2Q CtwLKIYxI9Yt61CG9TBGLQZmhwjcd4ykBEbinksKgkOT4OsdRiMdDmfPMLh4 hcDMPhO3nctg5FMHowANjIJrcCu0CjcCy3DHOxNOEXmnqIF9bEK5TX3IaepF TqOoHhKhGzn1nax2VM7soGqdCrhBAG6e4C8Iv2P8lv9S9TboOfZO0DY2gPS6 DgSXqBFa2oiwknZWN8JLBhBeOoTspl3ktOzR5SkJxErceBhHp5coAfI2QWhM EJrR2Zm7peOBZwasvDNgSzdq7lWI4LgiBESmE3SpcA1LgVtYEjzCE+AZzp4c kcyPkQ7nyEQ4R0TBLjgAD30c0ZDjh+OFOhzOG1RxVizGQFWc5cjOyAnGCnx8 uvD1GucbP1/m2YEZCYwyCYzrkxxt1hOxDsiEAKIKJxTXZzSQL4jtl9PiMs9X MzUE1+sZFV7xJV7x9sWUSgKoAOcRG+4+gfmYMWWnm/25RYa9wc5/blhYZm25 A1N8yRlxwT1LXF61IVSYf/qYtU/8H47xpXl7PP4zB05Jd/4lTsTDY+JV9PDf I/x3+UrbjCdbjCZr2kqBz99Kr/bPsbu/iieG9TLEWhlPmFz+tfR/v+EHfo+y rMcoL9mDnLBVi8WMdHvIVU4itHgQkWUziK5cRIx8jd5tE3HVO4hTPUZczT7S 6TnLh97CI6Md90PlFLtsdrtwZsRIQjcKZg7RsHCKxgNnMeMvPFcy/EMzEBQY DWdvOnhfOni/CLj5hdGLZdN3VsPIX0vIUkRDqnAzqJyQzWDGjUVefTdTCfHZ 2M0vP7uxi4You6GL1cGf2lmtKB6ehXKdNNxgbR7/BeQSZAsXNpE/0IEBuu4K bQkiSioRVapBNCEbQ8jGsE/EELJx5SOIqxhHXOUkjGgqbrkW4qY1rbB1Eoxs U3DbIRXGhKuZKyHqkYEHZJOVbyZsAzJx1ysPPrElCI3LhEs4YRuRRpimwD0y CZ5R8XCLYgOPImSjk1jRsAtjQPEjZHP9cbxIyC4Y1qCRlr0gZOc5snNs5DMV +HSy+BWy1w34WV9qZyipwPy4TLq6cn1SgUeE6xPCT/iAp3ShzwjTFwTpq1k1 3syp8XZe/c/wbkFN4r/lq7yZq8FrIvflDKFFtX46LiRQQb1jM++SYbupEj+9 e2VY/ea/lq7CnRnVs0RAdpUvuUmW7IiXFbaDLHnKOhYvLZgyJVgiuPKvJa68 FDWtZ8mzST2kj8b0+H08oMBujxyP2mRY11b+xvCSHxmZDo5W0cu3NCCWX2KN MsGPi+WXKMfjXfy5nY+3UpKZ4I+2V0kO8bd/jYW5DygofowixR7K1XtIkk3B u3AAAcVzCCpdQXD5BoIrHyFYRiyrD1HSSwc4/T1Usz/SCChwP6yKTTKFzi2K zi2Gzi0Wd53jpNnvB24JsPJIgIUrdYmZITIqGS7+cXANoDYR2x6BkSxi2jkH N1xpBrxoDvyUuBlYgWv++bjrEgv/tAoakE5kU29PIauhk3jObOxgtSOzuY3V goymJsiJZznxLNs8PoXKzWP8A+L7B5HZqZWWwRinzlRpixFdxGhVUkvP08Tq QEJJLxLKBpFITCdWjiNJPgn3xCbcFpi2TcP1h/EwsiOmKcF3GNNM3YXsEtM+ GbD0z4BNUAbu+2TDOaoEUSm5cKHcukYR01GpcI9OhkdMAlxjienYDBYjUSwx HREAO4+HaMgjppcMa+IsitVG1PrVRhY52gvE9Bwx/WzRAOlrBkh/+fQSM8Nl WBirkFR4VbRoYuuxsLWsY+LpOW3uSwr7azLl7UIt3i9qTuHDkoZ//nFZw6qV 6sMS/2tJjXeLhDmh/nKWEJ+mW+BT7vNL2yOeHndWYrOx4pRh0kh69ZFyEkp/ ufIK0b3BVxfo3iNaDydq9MgWpOK7eEWf85qkejOvJkNILbJK3H89Jwgn0K5H +fG4sNLCoJBZvXLstFXSX3Tir6TX/TfSrMDSSrd+NS3WBEPaDBkxN6TEAlV9 ke5jke5jUawew8w3T1s828rfaVJgiiHt2eaKYd02d0yvMEL3U6I1U0ioW0Wi 9hESKeV5nfSRjMVFvYzPU9+jeuZHqOb/hHuh1bDwKSW0CXPbONxhHDZ1SiQ8 k3DPLVk6dGfllcKgkkxvmIeIuCx4MYS4BSfAPSQOHiEMKCGR8AwOg4lLBaFe jRvedBps9df8imDmFAu/lAp62y5kEeqZhHpGo6gOQrsdGYR5Rgth3tKMyrVj VBLqFayC+S2Et7VA2VeLCRo0scjULKNDb0cF4grKkVBUi8SiJiQVtyOZOE8m zpPp81Nk40hl6PRMaqJ2F+CGTSquPYjBdSvh0el7XYlz+ntzb3H+FnEeSJwH C7yn42FoEcJS8+EfQ98bTZzHEOdxKfCIT4RjfA6c4tPhlED/Gx8FyzA/uDqZ ol7gfPlXq+oQctIyL8tVmO5VoKmKduOf4PwvsUXpXhghxmlJBcY32O53qIV7 xPjRlEAYMU4n/Yb4fkcGfRDAXtHg06qGQvF5tQ7/O77w/uc11ioBz/pA0L/l q79aIDrnyJVp4VrE8m0K7PfJsNtegXc7+jVXt5b5+mwdS+P6q7rXifBHROoT iWc1YsWEX3gmvQ+N9D7ei+InJd1O8U4tYfduUdBQbeAYAc+XfTqhB/z+oBx7 3TLstFbgT2wj/0F68X8rTXyMjsoxNkYAc1DnDFNrKzTda79eOYx5cLOX1cPH xGQHgb/cpsSSYcJjhw7/+9ev9HLvhY65NVT2r6CgYxEZDdMILe9AeGUvImWD iFaMIKZqHLHVk3BNbcRtr2LioBC37WhDGcqNHZNg6pxMm5GCex5pzDTMQr5p sPNPg4VnLoLj8xHA/u1Gt+3O7OMRxjwUFg2vMFqXsFhYE0fX3BS45i3DNd9i 6bCabVAWMjVdyNB2IZ24T6PApxH3aU2sljaktbYilbjPHZlB2eox8me3kNXZ gI7haml9sFmxPhhxv8QOKdYHS8grQVJBDVIKG1jtSC3uRmrZAFIrR5AmH0d6 1QS8khqI+zxWrh731rG4aReH2+SzCTPeXZ803BNYD0qHdUg6bMPoZfzyEJhS CP/EdLgQ867EvFs8OZCQCsfEHFY6i7hPZOoI94WzkzGer2gl3IuVoYaoZ0WZ eShIykdpYh4q43NREl0mLQehTOqGIr4Lm2N70nrOhlNHr0o3/4DvP76kzJVh iaZieUwOXZUczdVKpEbLkROtRCGrOFKJknAlmnKqMamqwWNKwuc1Lb6sa/H9 eh2+36jDDxv62y+sz+skC4nxfoXAXSaI2QGekRBH02JJPzHnS1T2VNJolON7 Sv78cDm/Yr7+uL7hbPIj7dLE7JMIT0kEsRqFIOPreQMJlr4Ssg6fRK3WneId DckgGs971juJh2qJhyfsAkeT+onAfTadva5KdpEO/DvDLOBneqr11S5pdaV6 nQIFufzIuVXo1IrJEoJfTJYM6ydLTmGXtPiX9Er6yZLdX02WbHSSIG2MtU2M Ehopm+rnYnzQMT6MsFIFwsvqEFnRjOiKTsRU9iFOPoQE5SiSVBNIrpmCR1oz jL1LGB2zmdEIHGs2BMdkmLqm0ten4x7NwUOaA2uaAzsC/qF/DryZ0aITDEY3 gvkskvksMhZekVE0CvHMZzS7EcwAAam44lWE27ZCiGOQVtuNNDaFVDaFFJIj hR4+hcRIbqagt7TythnZgzNsUquo6lb/vP7O1/XepDV4xvVfTxOjeEpuNVLz 6pGW34Z0EiONxEiXjSBDOYbM6nFk1kzgtls+brlk4aZ9Mq5Zx+AGPd0tx1gY eyQzm6ZK7/FBcBqsQtNgG57GPJMFj6RCRKWlwTkuFS7xKXBNTIZjUjbsk7Pg kJwGx+R42MSF4UG4D3KC7tMs1KCrrhQVuQUoSStAOUvJplKbkgddUi7q4orR lNGNZpKjmeRoju9GS3Q3msI6sTPwGL/XE0S/Yt9f4MNH/RHMfdYpHDLA/Rsc MsLNjWrQWpOFsvxKZCTIkZ/IXMOqYtUmKKGLV6IxjqSJZZFEjRFV0IVWQR3I r6+6Bv8MP25p8b/ghy2SZpMgJnE+kDhv2UlekTTPSZrjuWr9ApCU6YOBSjzp LqfnSMei1Lnk+uk8kkWsv/N4Qsz3qHEslmuZ0+C16Bj0fx+oER/Zrz6vagVp T0mspdEjb7+s8WVZH1YNXF3Sc7VNpUR7FUuuQHu5HDMc3cdd5fjTh1f/p2Hq aHf3NfJz5bC3rYKDXTWcbavhaquCu40KHtYqeFqxHqqgzqrGaC0zzbDIGPrJ ywPDnM7+4K/ndfTTRpstcpE98NPbV/gvDIf0xHGgldVuyOvLEFmiQHSZFrFl LYgv76Sr7keSYggp1WNIrZlEmnoa3unNMPEupaOm8beKwU0bqq99Akyck2Dm nop7JNBDOg/RMezEeadMkI5RxYhKzYU3CeTOLuPBhOgZHQ+v6Bi6kAQ4x4jE GMP0GAyHUBd4WdyC7X0rKOigkmq6kFjbSbfH0rLqOxDf0Ibyjga09qkxN9+D 2X+yrp+0hBib9AYJtDWmws6oCpMdVUjNViI9V4f0vFZkkEQZ5f3IpEhkVo0i SzWGLPU4fFJ1MHLKkIh0nZ3lul00bjqSSCLc+ybDPDAV94NT6ZBSYR0hSMUu GleA8KxsOqdkOEsE4mdPzoFdSgbsU1JgmxSLB9EhsPazR3VuJDSlBSjLKEQ5 S5FRAHV6AXRp+SRNHtqSc9GRVIkekkisutKX0o1esegQidQXw4rowkLZND7s v2ODkch0xnDK5MdPrzG/2IV++pKRIQYncWSYBnuaMJghDGYopUVJoUgKz0FG ZD6KYopIqErokhVoTlaiI6ES3bFlGAjPx3BEAUZZ4+EFGIkoxmBYOTqCqEW+ SjwbrMOfHulYWvy4zS7F+kyifdgkKUiy1yTZC5LseEGFQ7FQqLBpwzK2h3JM aqOwNMJuxHaxMi6GSIVHYqGdSTUO2YnEcaaXC3VkSx1ZoyW5tF+74Sm2QP7z w6Zg2Ndu+GikFkMNKmRRGAoSlShNoFDEKSCLUUAeIYc8RI7KABm6aaA3Rvf+ D8ORysPDL6io2CS7quBsT3ax3FmeLB87FXzJNn+yzd+6BgFWNfC3ZD2sQXag CtN1qlMMPSo2qmOC62isWppOFSTUE04/HSaC/qZOIpt+2eMgfPnymmlWTsdP JSPfYsi3+FItEktbkFTehWQ2rVTFMNLJtwzyLbN2GtGlA+RbCZ19jtSwbkoN Jh7Gzkwy4nQYOp4HARmwYpq1DSXewplwgwsRllaIQDYudzoeDzp+z9hEeMbF UugzWOQb06xTdBA8g2wQYn4aeYEWeMkv+vmq1uD4Dal2yZBqF0WqrcRCf+bP CzsuGRZ2FGtobgil5JeyMybWz6xhCFUjLUOO9Ow6ZOY1I7OI6ai8j3wbRFbV MLJVo8iuFYffR3HZNhmXmdSvOqXiok00LtlG4LpzFO54xsIsMBkWISkwD0uD eUQG7kVlwCQiD+5peXBKIg8TM/GQjcc2NZPFxpaahIfx0fy9YAR5W0KVXwhZ JiurEEreajIL0EjOtaXno4t86yXfBtJUGMnS70U7Tt6NiUoTy9DwZ3JvPLYL I6Gt+HzwDvoJR8PJjmekI5FLy4YjkYwiMyP6tTqXhvWH0dcYckebZFDmV5Bz OciNzkNZdD6qWHXRBWiKKkAnuTjAGuVjUzEFmI0twDwlZTG+AEsJvOX9eT42 HlGO3sAqTJCr/7ijw4+sH8jBz6yP5N878u/1Ot3cihonSzU4oj07EK6QzWy9 JQbd+Q5YHmEkEllktJqmVb/I1d5ULY5mNXhGB/hqSYu35N0HwuATe9mXDR2+ 3+TrbOnYrn/kv/+ttIphvawapallkLFULDUDhDaOnykqH+qwAmiC86Hxpy/w zoPGpxjaUB0bdAt2h/f+N+mr+19RWbGGsLBJeLjq4OpQDQ+WJ8vHQQU/exUC yMMguxoE29YghBVqwyIfQ0RZqRFCPubx6xDz1c/FzAmtyYmYoRMTy+JgB7/6 JwMKPO6RY5ceflNXYZjpC8Hx0bK08OSMYeFJta4U8UUyJBbXIamkGSllzDKy PqSTjZnVojNMEKlTyNHNkI1FzBr5MLKLh5F9LC1WHIxd4mDqnoC74gJIdgSr ELIxjGwUiA3KgX9qMbN3Otxi037O3O4JSczbGSzeErFOsYHwdr+LYLKxuTAA L9cFG+twTO99KC2x+kv2PliifPbHYbw1Rlrvc5lsXJaWWDWsZiuWnxsnE8fU 2B+rxeF4LTprq5GRqUZmbiPZ2I6ssh5kyQaQXTUIz6QaPAwpxQ23DFymfTzz MBZnreJwzjYBZ6zCcNYmBOedonDZLw1XQ7JxIywbRhHZuB2VhWuhObjPbHQ/ sRB34otwh5C9k5APM9rIu7SUd6MjYObliJzIaCiyiqAkE6uzyUTeNmYVoJ2s 7E4vxEBqIYZYk3n9mM7txwxvZ6XqxWxuL2Zy2OmzuzGbzkruwHR0M74cvsPf 6xmpv2TgNNnYiVGifOJXpx2ssjZG9UdmH1Grp2mEChJLUJRYyi6YC1lsHmpj 89FAlrXHFKLFPwXddMvDHMbZhCIsJRVhNbUIG3ybW2zaW3zL26xN3l+n0C7T RY+HyzCbpsRPu2TLLpmzQ1Zuk5Vk5usNdrU1drdlspJd8WBGHHYRi4PHoa/Y CcvDHD6+rxUalU0O2+5ELfanNdKx7+eL/PtlLd6RkR/XdfisZ+Qptl4d/gf8 xH9/YjNukrHxpYlUWiAtF6WJT4OOut9Cr9URlYRuBpUeepaO0Hx0kpydgXlo 981FW5AcTX7MZu5yNHqT+Acf8G8NExn/dJeE/Sf8eVd/hYascg0R4ZMICRyE u0MVvBzJXJavI5lLBgeRwaFkb5h9DcLt1IiwU59CpPiH95CKcBs1wq3VKAqp xqvZWmm2Uc9klXRI9FAcpKeQSpmyhxaZDD4abZde+/svrzAzrj+0Oj+pX7R0 hSYjgSKbXKhBalEz0ko7kV7BfqMckrxdTu0EcuumkFc/TQYXwNS3CLeckhmW YmDkHMv+GgcT9ziYeSfAwi8RlvR4NuHpsItMxwP2VpeEQkTT47kyKLklMAwm JsGF/ccxKZ2VCMeEKDjG+cPT3QxBZPBiR47E4GfsqU/J4Nn+HFQX+kFV6AtF rjcqMjwxXu+CJX6OZcPhMWmR71+t1iuxl8w9Yh1PaHAypUFVGRmcXY+sglZk lXYhMrMeV22TcM0xBTecU2DEMHvbPQ0XGHDPWEbjHIPgOYbc0+K0EZ9snPHN xHn/TFwOycINNiSj6FxcjSiBSXwlLFNKYRTPSijGzfhC3IjJx/XoHFwlblzc w8lcsje7iOwVFyAXoyG7FG1ZZejJLMdARgVG0ioxntmAuaJxLBSPY0msXiTV KGsES8VDWCoawHJBH1Zyu7Cc3ob5+AZ8f/Tm7/Qk1l+0Z4HVlV8OaP9nT+Ew nL5RkliAitRyZsNiKEhgDeN6c1wpOmNpV4Pz0BOcg6GwXExE5mKGn3QtvRzb uZXYJVKeFJZjv6iUVYy9oiI8KSjETq6e3DMxRFe6HD881uELyfyRZH5PMr9h i33JFvtsVY0jscK4yJDTSszrAtFX6oxlWm6xTPfqCEeRTmh3kkSe0eB4vg7P 2Vpfs7W+W9PhI0n8ZauebbWePK7HTzv1+BOrXV6JKkbqKqal6sR01FE/m5kq OuOS0RebjCEyepRsHo9OxHgUBYrtdjgyD8NiKTWO4mCkHD20vJ1kdItLJd7t vsRfSt9pjRQPpENNjAeDfJ8jgwqM0bBO9CsxyWgw2c37nUpE+MvgaKmEv0cH XKwrDMymF3akF3asRbCDBqEOdQh30CKSFeWoRTQrxrEOMU4a3tbyZzWiHFj2 LHrp8IdyvJkny+fErKuYfWWfJtMFyw/I8gOyfL+rEo9by/Fqb+mfrIXL8Z/U zyKXVcqQmkdnWShWgu9ABh1zFhmeoxpBrmYcedoJ5DdMIiC7AaY++dLJ2jft o5joYsjwGJh40FF6x8HcPwH3gxKk6+Xs+D060CVb8rsMy85DQHISXJOSWSlw SM6Go2EaxCEpHLaxvggSyw2bf0erpUOvOhxlqbbws7sAdz7uyfK+dxo+Ft/B 9fZvYfHdv8eDC79HUYKn1JulVSnH9Uug737tzWT208k6nEwTIzN1WOnRIDNd i6zcZjxwzsA1cUoB+/Btx0SYuIqUTTfsyfJIwiWrKHznko1vvYrxrY+oQpz2 L8TZwEKcDyrEpdBCXGP6vhZWiFtRRbBnd7hC1l8lF66x8V2LzsaV8DT6mUS4 ecsRElDOxliKmuxy6LIr0ZItR1eWEv2ZVRjOoktOp70tmcNS2by0Y+9a5TzW ZfPYkM2yZnh/CmsVE1grH8VGCSNXQRfWspqxmKwxMPwbwyYNYulvcXrMrOH0 mHXD6TGPWfrTY8TBrGo0FBZDnlqCqnQZVEkV0DCgNsfJ0BWnRHdUOdFeTAaU YDK2FHOJZVimhq2ll2K3iM9RTpRVVuGYvfFEJmNV4LiyFIdlZHwx2Z5XSMMt wyvq688sf0SWs2W/3DCwfMmwScMsGVLjgv4yFywzVC8PVdPgi5FUY3dKnIih kU7MeMFW/Zqt+h3R8XHTwPLt+lMSxf8ndCoqUM3oUZOWCxXbiC4xFa2Jaehh VBtMSMcYDeFkQiZmeDtHAVgUlZSBmcQiPlbA21LMJDNrJMgxHC3HAMne7VmB 2ZI2w/kOGn0mkQ64yTHGTDIpDrix5plHFmmKl8TbJ+mXSfr4oAq4WytY1XC8 VwZ7k1y4WJTCm2Y70LGeZG8k2ZsQ4dhMoreQ4C2IdW5BnHMz4lyaEe/SxGrg fR0fr0OsJABqRNsxH4Qr8GaRpF8Qk2bMJDN0P2LzGXHAkO/roF+G/e5yzLcx UrIN/nrhenFgcpvD31KnQGp2DdLzGpBZ3I7Mih5kKweRUzOCPM0Y8nVjKGgY R2HTBEx8cmHql0eyx+Imzeot12gYe8TA1DsGd/3jaMTjYRmWCBsS3i4mBffD sxCQlY/QDLZykt4hORN2KZnSlI19ShzsSHi7AAcEkNQlMVZI9LvGUHIBnj+v PX4WfvcpBvdPI/Ded/A1/jvYnP9b2F/8A+wvfAO7839Eebw3NtgItsf0i++L hfd/TfYXs1q8nNNirU+L+5aJuG4aids033dsGCoY803F9Q8i5nskwswnA9cj qnDBrxR/dM3BN+7Z+KNnDr7zEm09B+f8c3CBYeNiYAbO+aXgUkAGzKIz+fux fDwJVxhGrkSk05RXwjOwHN6+JfD2LoO7pxylSUo0ZqvQnl2L3qw6DGVpSXja luIJLNPqrcnXsKFcx1bVGrar1/CoehWPxFrn1Ut8bAFbyllsySawVT6ELUb9 jbx6vJ7ZwN/qWa9fy+zhn52HJFzPhnRSxy/nIQnGi/OQhmtKoUhhTkivRG1G DXRJKjTFVpH1atKkDn2RCgxGCRooMJdKKGcSMjn0B3l8rmI+R1U9nqv41dYw 0tbQWdZU44VKgWdVFXiqKMVBOc18Til9QSm+sMd/3DUwf5v9nWb9Gc36kdjS YpHMn1diSu2K/nJXLLNfLg9WY224RmL+Y5r0gzlmtEUtXrC3v2Zvf7dRj09k /Rf29R8eNZD4DeiUMSank/KC9qS8jpRuYz7qTcrFMLPTRBKpnVyABeqzWGtv NaMA64TmZlYuVumwljPKsZLFPphTg0Vq8WwqaU0JGIuQYcCnDJuNHYbTQurw 9GhFOvw4/vXw45jh8KPYg4chY4P+ZGuQNVCFqkz2d5tK0r2KpYbT3VI4mZbA xbQcriYy+D7UItSxA+GOnYhy6kKMczcSXFqQ4tqAdPc6ZHpokO6pRZpnAxLc WliUA9d6yoGQghrE2CvQUaLEmyUxrUdFnVfj6YxKf+7kmH5HsrWGWIyWOOhz rHRegpIu+Jcl1PcmxEwSs2uOjrmVrreiG9mKAeTWDFEChikBIyhsGEVh8xh8 MtS47paGS05JOGutz60X7ENx2SkMt7wicScwAaZ0s+Z09XfobG9F5MCcsuqa lokHiXnMsXmwZU4Xs0i2KTF4EBMMD7sbsLr0HxBod1Faf/vXi94HSEuo6xe9 D7n/Hfxu/zWcLvwDXC//Ea6XRH0L14vfIsnBAv1VmXgyrt9+QFq4eIaYIfVf zusokTri3B/WN2/g1p1w3LaIwW1LSoAtJYAycNc5nj06FVdCZbgaLseNKCUu BpfhO9L/G5c0fOuRjtNe6XT46ThH2p/zT6MsxOO0JzO8D8svDucD4nCRn92m QAtfpj8/yoWffwH8/YoRQAwFso0ok+rQmdWIvpxmDOe2YCSnAyvyR1iv2sGm agfbNTvYUe9gt3YHjzWPWNusLezUrmNbvUo5WMC2YhLblYPYLmvDRqHaoAD6 Az9WODlawozhtK4lw2ld+jNQ2K/F2STiDMNp/blU8qQcMqYcmgwVGpgrmpPp kOO06EtowGhyM/qiVBhLrMVMai2WKFbreRo8KqrDk9I6Mpz9WEFGalvxRteM t7pG3vKb1mrwok6FZ7UKPK0ux6GsEEt8jceNCqqADu/pAd7Q6b/cFCqg1qvA EtG6SBWodUVfhRuW+6gCAwYVIDp3hQrQ4R8v/bkKfBQq8IgqQAV4So+gSsuW Gr8yMQN1/GytZH1PMv1LUikmU8oxl1aBpcxKrNJ5beRVYqugAo+YUnaZUh4V ybFZQL/BfPuopIHfbB1W89VYyKIa0BBMRVVgkO5vb6jLsLefDmuGbczErlxi lmthQn+S+sa4/gqMR6OGE9TF1PVQFXxsS+hk5Sw1/Gzr4WxaJqmAm7ES7ndU 8DTm4+b1iHQeQIxLLxJpAFLcmpHu0YxMryZkezcix6cBub71yPPTItWrDYke bZIqJFAR4pyqEONQjuWOarxcqsVzmoOn4mzAGcNp/WLDoypnjFc4YUQbJx0E /bqO+6OvmylM1KJLU4MMNqisghZkl3ciR9GLXFU/8moHUaAdQnxlK2yiS3Cb bLjkGI/z9rE470AGODAPO0XgvDsboj//j7n+akgGjCIzYRyTRUVgxRXiYVoZ TBP1s1h3EnJhRhNmFhsHywBnWF3+v/i9fPPnGylIK/GfRdBDsZHCWYSJzRQs voHfLf1GCh5SfSttpODB8hKbKVz8DmPqLBoirbQNjNj+4qsSzDYaVkU2PgNn 41u4ZRxFRYiHsSXVi0ngjnMqm3slM7wMV8KoCOwC10PLcD2khM0+F2e9s/BH 91SmgjSc9s3At96p+IN7Ar7xTMBZv2RcDU6GOZOPb0Ak/MyC4GsXD0/3LPhT UQKCKhEcKEeYvwLR3gpoybP+vE4M5fVhWbGH9ep9bKoP8Kj2ELt1h3iiPcSe 7hD79QesfezVP8Fj3S52tNvY1tAsqKkIVRPYVvZhW9aAt0ur+nMf8TvpxuY/ OStOnLi+bTjR85Be4GRKf5Lna+bGidoSqOgLatOroMusR0tWO+1KH/NxCwaT OzCZ0YWhhHpMpjVgPrsJawVN2C5pwuOKJhzIm3Bc1Yhn1Q14U9+Jd81deNfS gbctrXjd0oSXTTo8b6jFsVaJI/qPnZJizPK1hDd4R1V4LVSB3uBEqMKK2O6q Wtruar45GJVxD7DcI2y1SAVCFWqxy9y/T1V4uijmcXVSXny3+VUVGiRVqErN hoqlpN2voQ9oTC5FVzKZnML+TV8zm1GFpRwV1vNrsFlUQ+YzN5ap8KSiGvuV zM1MN7tlOunz7ck7sEPkb5U1YpUquMi/m0+VYZpMGI/LF+dmG476ukjb/kwb tv2Zn9AfMf3lggEqwmiVYY5FzKVXQ5tXTuvLslch0L6e6K+FqxlVwVgFD5Na eJpo4W1SD1+TBvbCFkaCDiS7d9IXdCLTuxNZPh3I8etAnn878gNaWc0oCGhE mo/Y47cDie5UCNdaKoQMneUKvFrR4DkV4nhBjcM5/bUWu4P5mKx2xaTCBaP1 CVKeFj5BTJjuUBn2xA4PkxwfqnG1WDogtwk5Je3IkXUjt6oXeep+WIUWwMg9 GXe8UmDqm8rbJJy3icJF+xicETZaZOeAApwL1FvpSyHZ7Lc5uB6VA6O4Mubo EmmWzCSpCEaMZDfjxAxZNq6Fp+Lanfswu3r5F49AVfD7z+zRES5UwuL38L7+ B3hd+xanpB06LsP72mkWY4TYp4P3A66fkbZZEVsUvaAyiHXTXy/qkORpoV8G 34QRxPQcFfqOtAKrMRXChBHiinsRLvrJqG4yXA4qxxXvfFzxK8CNoGJcDy7B Fd5eoVKIz3KJn/WKdwnVIZOfPRsXQ7JwNSwL9rYOyPLyQZJdFKJt4ulxUuBl mgQ/x0L4elYiPFiNmKAaxPlXoz6tD4vKp1hVHWOj9hke1T3Dru45leA59huf 46DpOQ6bn7FOcNB8jCdNVI7GPWzXi21d6Bk0c9iuHaW36MSmTPln6mCLTelc wnLpXMKVcTELSMRz1PenxAxSDUOUGq/m9OfKKuLTUZtaibp0LRoz2tBOZRjI HWa47sQI3+VIWhdGUtswnd2OpcIObJR1kjGd2KvqxNOaDnqCDrysa8drqsP7 jkG87+zD284evOnsxMuOVjxva8RxswZH9QrsV5ViObcIOy2VeMfk8HqLvoLq sDSYjc7aIMT5XkCAzWm43fktbC/+LazPfwfrC6dhd+0CZKmBGG7I1asDPYM4 20xSB4Nn+Ex1mGuRoSY1S/pM1exFmqRytCQr0Jus4mdQYzpDg4UcBsdCHRWu HjsV9Xgiq8e+Qoejai29DZmgUvPnVhypeqlo/dir7sGOkp+7sgUr/JulvGom jjJMRedhWV4izoXXH6pukILar0+r0J8sTGGWrt6oxt64mLxTSft/iWPh4sBb oH0BghwUCHLUItixFb6WDXAX4mCqI3ga4G3WDF+zVvjfbUPoXQLIlkHCsw/p 3v3I9O1Htn8fcgP6kB/Yi4KgbhQGd7HaURTcgmSvPgJfCEUDAwZthHMxXq8y Q1MojikUhwYbsdmThIkaNwqFG/oUQVgep03je9xi/t5l/t4Xm94ZtoBZ7RXr izQgu7ANObQRucouWAWQ6OLQumcS7nonSatM3PdPgbFfBr7zyMV3tFjf+RUZ JtkoFEEFJE0BLoWRSBGi8nBJrP5CgXjIgHcxNB1Xo0iqiBTcMnsAIxM33DYL hLmpkyQSvg/P0z6cp0icR4i0/8t5hFudQwQr6O4fJUHwvn4aPqJunIGvKAqD /80zCGQF3zyNXI/70mY+Yvesl4v1kn1wvSX2yjgLbwqErxlfw+wCglhOd+1x yT4f5z0qcd5XhgseFAuPAlz2LqRIFOJqQAmuC9EILKOIFOOCTwmu+hTjVkgp bsVU4B98+D04R+C6uQ3snNzgRLvh5p4Nf9dcBLuVIsBZhmD7cgpdESJtSxHr UoGUiBYo0qawrHqJ9dpX2NK+wW79GzxpfIv95rc4FKvftr3F07Y3rNe8/xJ7 bc+x23qE7eYn2G6klahfYU1hW9dPS6H9JyIxN1SKxRH9OZbrwtwSoU+IyEMK xMmM/vxGMRP1flmDmsR8aFJVFIlmNGX0oCtrmOZmEgPpwxjj/dmCMYxm9WCm oBcjoTqsx9M+VPfjoLYfJ3X9eKHrw+uGXrxu7MHb9gG87xvF274hvOnrx6ue bjzvasdJRyOOWmgT6iuxXlKK1aoiSSTWRxj/8+2QGXkVke4X4CMi471v4WP8 W0bG3zI6fgeni6fhfPk0XK6egeedS8gKtsdUWz6erdAcMli83dDhgxCJ7XpU J2eiKlGIRD4/Vzl0SVVoT65Ff6oOY+JATF4TVopaaAlasStrw56yDQeqNhyp W3GiacHzuiZWCw5r+L7rJ3CsG8NB3TAe1w5gi2KxKm/DcqkWS7lyaWpipawQ W43l+qPobtL1MnNjYgM0meGKAqUkEuJcayES+xyCI3FVAevZpBrPp9SYY84K cihFiKOa1YRQxy4SoJUOop5gbYEPxcHXvBP+5l0IsmhF2D3mjQcNSHLrQ4bv CLL8R5ATMIK8ICb/4CEUhgyy+lEU2ovi0E5kUzySvXspFq1IcNcgzrUM7ZUV eLFKoVimUCzodzCeb3DHZK0HJtXuaC90xfKoikJhmKijkzgQ2wuJCbo5/R5R 6wM6ZGU3I6e4A9cexuKWHdO5cxxM3eJhTl99zzsRxsF5uB6jwPVYJc555+GP rvTeHhl0FkzkJM4FioiYnLsUzPuBqXwsHhcCEnHBN4a3zCdB8bjqFUSf785u 7gpjc5Yp67YH3O7dQoAlScwKsbqAMCv91kJhFIpAk2sUh9OSOPwF/G6epZv4 ZUuhswgV2wrdPo25hhxJJF4t1UOT5c/v/IwkEGLnBl8z/bL+weYXKdy3YOHp AyPPFFzxyGdmKsR5tyJc8CzGJQrCFX86B78SnBXLbHiVS07DKLQc1yPKYUJH ZeEeDVPXcCRr+pBS1wef8Ar4RqrgF6WDQ0A9HJgRXTwaEOhZj2iOUTIFPc2x FJnuMugCW7Ch/YBH9R+x2/QJey2fcND2GUftn/G04xOOOz/hpPMDnna+w37n K+x2PMN2G4Wi9TG2WzZY8xSNEWw3tODN+tLf6IVCf6acPZ4fLGJhiG5iRCbt 77ph2OJyb7JGWkDjGYXi1aIG7ygU03UlUJNUdalaaNM60Jw5gJ6ccYwUzWI0 fxrjuROYK57BWN4gGkOHsBC5gPeVY+y0fTjSjuKkYRQv+U7etA7jddsgXcQw 3g9N4e3QBN4M8f8GB/G8vwcnPSRkhw6HLUy6MvrxwixsjuYhK+o6sqKvIcSB PvIB/eCD7xB07zuO0B/hdvH3cKNYuF86DXcKhQdbgteNs/C9cwGh1jcw35GP lxSLNxSL98wce2PV0r5g8tgcikUZxaIKDYkadKY0UPhaMJFDl1XUibXybjyS 9+AJyX9Y24OndXx/OopDQxdeNnbgRX0ffx7j55rHs6YZHDVO0eeN4ZFmCOuq HrqIZiwXq+mMSjGVnI7HHRV4u7N0yiAYs8Plhpl+cbqKAmtill8SCzEBUCNt aXkihEKck07dFicGtBRXUChkCHXSsdoR5tRHInTSUQix6KBYdMPPohcB9/sR /KAN4ZatiLZqRaxNKzL8J5EVOInc4Enkh0ygIHQcRWFjKAofQXH4EErC+3jb hRSfAToMEUXqEe+hQIe8Ei/WxKk3jBTiJDi6i7kGT0zWsTSe6Chyx/IIYxnF Ytuwq+ihtHMVrbphH7K3yzpsDdfjvk0abt6LxW1xtrmY0XeJx123BNwIZLeN qMS1KBluxDDAxzHMR5ThrG82vvVkcPdJZ1gX03npuEDBOEfB+I6C8a1PHM76 s3yjcdfFAy4uIRQKG5iYW8LkriVMzaxgZmKJu7dt4UHRCLISG96IXavEtkZ0 F5bGCDK9Lm0j5yftQ+ZvdA5XEGCk37Eq6M45hBgzqtA9hFMgSgItpS0ChWg4 3/yWruIcReP8LxtF3BXbqFyCtbOdtBfIPXdf3Ltvj/sPnGFkGyudrHjHKREX 70bhjGUWblpnUDRzYO6dI101a2UdACtbf1jb++OhTyJ889RI1A1SMKrgQ8Hw iWmBb2wnfGN6EBAzCO+wEfgF9yE4sA2JIU3ICtEg31+GZQ85VkOasZE6gf22 n3DY8ROOun7CcfePOOn+njQTq69/xEH3OzzueoVHnSfY7tjHdidjSOcy709S RLrwbnsdf6Yaf4WZ3hIsDVVwyBXSlSqbo9XSzPQ++5lYFOX5ggavl+ukU3Rm tRXQJCqhTWliMupBS8Yo+vJmMFqyiDn5GsapHPNl85gunkRz4jrGla/xavg5 vldU4bhIS8swgpOmYbxoHsLz1kE8a6Pt6B7Gy4FxvBxijYzi+dAAjge6cNTb zI9Zi/XqagykxZxCTvR1kCmOYk/BMwh6eBohFI5QuowQi/PwunoenhfpC6+c hhcFw5v+0Y8two8tIpCjGWV/E+3lET9PVMw0lEMZn0PRKKJoKKBK0KAxqRGd aW0YzO7CVGEvFsv6saEYxK5qCPsUgSPdEE4ah/CseRAvWwfwurUfjxXdeBzX hHelbYxQy3jaukDfN4OdhnFsaAaxourEMqPLcqmCkSYL+z0VDPH6U32eHy1h YbT850u5Vg2nmu5MGESbaiH2vn0hqYUGb+Y0jIIaFEYVUy2qEe7UxOpGuPMg Ai17mEHaqRg9VIx++N8fYrAdoe/uRIRNJ6JtuxBnRzXwGEF20BxyQ+aQHzqL wvAZFEVMsyZQHDGGksgh3rK1+QzTavQg0asZ8Z4qlCWWGlRDg/mebNSXBaAo 8hb//hbqsqzQUeKOleEaukCDatBiHNJinIiDAAz2Yq+7t3R5Cy05sDG6ASPj aNy6T/ZYJ8DEPgF33NIY6CulKb9rEXJci5bjelQFrocVsf0W4UZIIS4H5uJS YI6kHqcDMvBH31T8nlnmtF8qrgSLlcPdEWx2A2UM+C43zGF58S7u3boHU+OH uGthDYu7VjA3tkEgVUPaEE2ohqUp88g96e+EYgRQL04h4NZ5qkag2FTJ+DyC Tc4jlKoQLjZEMzvLOiOpxsvlen0W4ePSjhRm+n1HAs0vI+TeZVh4eOK+j7+0 qtc9Ksb9h+54aOlJy+OGa+fdYHwtCA+pHA72sbCxCoKtbTgcnOLg6BIHe+dI 2LtGwto9Ch45tYjWDsM/Sgv/uE4EJ40gKGEMUakriElfQ3zGBlKyN5CZu47o 5HHEJvYhMa4RtfGtWEvtw5PEVhxEUumTO3FQMIPj3n/ESe9PeNb3A572fcFB 3wc87nmDR2JPvR7ajV7ajd513p+hevTi3e7mn6vG/4f5vjKqBmE7rPj5dNtd sZ8sm9vxvAYvlgjXlTq8X9NiTqtAXbwK2uQ21KcOoDVrAn2F8xivWMGcchNz slXMlZMKlYuYKh9Hf/k8esrpIagQ/1jPHl9STaWYwIv2MbzoGMUzeo1nvfQg DCdP+wZx0NuLo4E+HA/34bC/HU86G7CgVKI7LQq5MTfYVCkZlnSLlmcQQukI o2yEUTbCxJaHZrfhTZ/hc1XET0bKm4ykN75h/Q6e1/8evrd+RwqdQVupO6Nn GNRJUaiIzGaVQB5XQ9moR2NKK7oyuzGU34+p0iEsyUaxoRrHY804DkTwaJ7A Sat4/+N4VNWBnkg52sNm8F73GP/v+BxedG3S+a1S2Bex2zKNTXqrFbrL5eoW eo4aLJUwnKiy8aS3DD99eIm5wVIsjVZIF72tTPxyPFG6jkfsmz1VK23A/Ipy 8Wa+Dm8XOQ5LdfRaBfwuaikXrYhw7mONsoH202h0wdeij2FtCP4PxiglE6RG LyLs+hDt0Id4x34kOPUjO2QJuaFLyA9bRGHEAuk/h+LIaZREUTqiRnk7iBTf MST79iPRpw3x3hrG5XRUZ9sh3OUCPMSm8ia/g/utv4H7zb9hCPxrWPzhrxBp b4Huqkx6VQ2e0Ggc0micLBhkg0bj3arYae8baZMuscueuakvbt9PwE27NEb4 CqYOmf5oQYQCVwOLcY3m43pwMW6EluAWXfud6ArcpPm4GlqMi/4FuOiTjT/4 ZuEcnbzRPVs8MDUl/axhfc8Bng/s4H7fAQ5mjnC4ZQXby+awvn0P9+/cg42F GQLEFpkGyYi0vocQyoZII0IwAm9dkCQj6M5FBJlcQLAp/erdC4gw1++yF2lx Fu1FIZiWpjBOw1OSjYv8TJfgd/cyAi0uw9nuHiy8vCgbgbC4T8l44E7T447r V1kX/WF2h5JgFQ8Hh2hYPgyGlVUw7Byi4Ci2LXJPhLMHy5PllQD/nBbUzH9G ZEo/otKmEJW+yFpDVMYmYjIfISFnB6n5O8gq3EF+8TaKyjZQSh4qi5co55sY ZBZYL5vGUSl9fgHNQzrTYl4P8K/wrHIGTwd+wEH/Jzzuf49Hfa+w3U/PMbCH 7cFN3s5RQQbw7sn2V+X4rUE5vv/wAgt95VgepHoMKbE6QvQymz5moxOLvpyw wb2g33hDv/F+XaiHEnVxGmgTO9GQNoy2nGn0Fy9iXLaOedU2VuseYzhvFj1Z k+jIHEZ37hCGioYxrJrCi+5x/MfONnyqUmNLO8KcNYZnPWNUjnGcDI7zI4zg cGAAe71dZFcH9qgea8316CvIQ3dWDOLdb8KfyhFkSdvI2zBLMcMtFOQiIh6a I9LSHAE3LsFHHPu6TGRf+XtJNXxu/Ba+N38LP6O/ZwP5HRvwGfSUuaM8KBZl wdkoDStDRXg1qmMa0Zjaia6cfgwVD2OKCWupahKzsmFs1E7isHmWhmIWa8p+ tEWooPaqQXN0BwZKZ+nTXuHVzAFe9O7guGcTB10r2G2fx2bzJFbrB7Gs6cCy qo5qVIp1bR72B8tp9duwyJiyPMrvfkx/kZI4Y2973HCRktjEncrxUijHQp10 FeB7cRXgshahDsU0G3VUjXbWAKJcxhFkPUj1EIZjgIZjhMZsnM11CiG2Q4hw GESM0yDinYeQ6DqIzMB55IatID9iBQWRSzQxiyiKooJET7OoINHDSPGboHoM IsKFjfUuLfQVf/3JSPdo5li+pr+Dz+3fwNfoN/C/+Rs4nf8dnC+ehgsryek+ RjTZOJwT6qHDS8M+nfM0HG5iF0cz/VyAPxnpYW6Ka06pzPeVOO8vx8VgBS75 luCybxGuBlBBgkpwXVwxwHG6zrrgX4zzAWW4xsduU/nvuEXByMwe18wsYe7k gfCiKhjbuNLMsNHbusLYyh+WVj5wIHtdzR3gfucBXC+bwP+aMaJuG0m7N0ax om3uSwHlq3KIHRyDjGlOxP6cjB9h5sSZtHvjhV92bxTqYSTU44KkHmJbFbFz TsC9K7ByssE9Tx9YOHrDgq9tdMsNF895wuhGGCwsaDJs42Bn//9z9Z5RcWTp uuaz6s7P82fWmjWz7tyzzj3n9G1TvuUt3mdCQpKOJDGJ994bAQKEkbAS3nsn EF4CAbLIIiHkvSmVVFUq31XVfcxdd9Z8mVL1dM+PlwglKDMicu/ne9+I2LGz CArOlO3LwGjKwBxRSkiUKLqU0FhRXAlh8cUEZrXSe+VPYjKWhBoXhRrXyS2/ RU7FPfIOPqCw5iGl9Y+obHhITfN96lvv0tC+QVPbJe5M/bvEkP9gpf8Fp3vv crn3Ck8HLsA/8E3fKX7qmONl7Qo/jl/l/oJlosgvub30GbeXJbEs35L1y0KQ Rd48vPP/g8dn969wZV5K34Jk7MVO1k/+Co8++eL7eXFFGq/Yji/FdnyzIfAY 6KQ/b4DBwhmGS1Y4VrXKiYY1TrffZLb2IsPFS0yWneb4wfMs1pxjvnaZ5YYV zree4kTvKp8trvI/T87z08gwNztmpHMtid2Qcr50jmdLp3ly8iQPF+a5Nz/J 7ZkRltq7OS7leqIsj3iBRpKfrZRYCzxsSDdaLpNZAOJJjtFX7IcniQobIm0E Gg6bJMFsEtuxWaCxWV7fJCVlkzSMTaRJo69OUdCcVEhjSg0NUuqaMvvoyB1l YP8xhg7MMlAyyXjlDHO18ywdERvSssil9pMcKxylOaKPvow5pqtPc1qg8mhm nW8Wn/LV4mMJXvd5fuIOj+ducG/mKreOrXJ9bJm14VnWBka42tXCjdFaHi83 s7EgQXFJjv1K29tRVqe6rHf/3TnVK2nF8ozWt1ceXgs4vroq8F6zjHAc4rv1 oXfwGBJwSBoRIOSEnRF4nBR4zFttR7x2mXjdCgliPZJNy6QHnSDLvEB+2CJF kcuUJV7kUOa6wGOd2pzr1OVepT5PLEjeBQ7nnROtUJxwlpzwaQIVNeid9+O1 N54EgUeSKEUniVGzgyTPj0lRfiLQ/liOuQDbcTdRTnuIcZHE6LybM0OH/j94 XBtm4GDiu1kF384Nmigd0mzyRR0diyo6G0V8BU6hFdhEHMEutgGHhAYcBRRO KU2SVCy3MB1hb0Ir6tiDmKLzCQxMkHItMsfjl1yCf045UYXVeAVJKgiKQRUs y+AolIHR+ATF4muKI8gURYSfmRhfPxodbajfuolyKTr7VGJfVU5WeKQo7a22 I/XdvKCWcxYZGoGHzp7sv5kT9KXlPIfbLis8fp2TKV4j8NA5oY4IRxOdKPCK Zc8eM44OiXiqctD6F2AMzBV4ZMm2Z2MKzBZwiA2RpTmqnJAYUWw5ofGihDJC E8sIzOmg9+ovAg9JKWVXya24KbpHzsFH5FU/oaD+KSWNz6hsfkp1+xPqOx/Q IMW8qXuNM6OvuT/7FynKfxF/8Wex9n/m4sQzCzyuTNzmjrjkJxJc/te9r7m/ 9C23V77i9qmXUsOeiG7LusBjaZGv/gqPt9dTlnjx2TdcWH3IJdGV8w+ZHznB YH0La8elQS9IJXx3x/OD833WR9C9kOr3SlzIV+JCvrk5xIX+Lvolgg3um2VI dmyi+iLHG6/RJ3Gst2BBcsCyOJBTzB86w3LdeU43nGOpaZmz7ctc7F5hrksq +spF/ue5Rf5zvI+7gzOsjS1yZ26FpytnpZMt8+DkCe4uTHNh+CizTa0cqz7E SFmuwMT2LUxEaUaLLJfRpJr4a8jSe0lV3E2C527ipVHHOGwm1mWz5Jm3MElS bpbKslkayCbRH8nUb6cuKp8mqXRHUjtozBjgcOaI+Pkx2gsnGTgww0TVcY7X L7LStMRg3hjV5n6aE48zVH6O450XuTxwkc8mH/CdYPubped8dfIpr04+4sXC PYmTN7k3d41bUxe5PnGKtaPzrI2MsdbXxo2JOh6fbmGxIVDcX4v1rNPaytvB YRaY3D3Tx8NzlsfxDvBSsstr68lGy5DNIb4VkHx/4+9hkm2BSfhZyTYrRKqm 0NuPY3CawtduCuXuY3jZTODrOESEeoJozQS5IbMURS9RkXaF6mwBSu66wOQa dXkClPxLovMczFwlJ2KBIGULWqdD+NgVorKJJ1kvGVKULsq03Bfp9Qlpnp+S 7P4JMU47BCLvLmO675Gqvock0apU68/fwcTsut06C23su5OLidJJ/UIC8Y2J F7+fij4qVfx+BHpDNEa/WDyDi/AKKcFenY+nSyIGjXS4kDxCQtMJCEggJFx8 f0QmQRGSA+LzrLNgeUdbHvEey3sog+JQozIn4BuWjCFc/kaWOnMcfuYo9AEh 0pb8qdP70urjQYe7Ha27t1C+axP5u7dKO3EQFyJSv51gOEyrIkKnwts/EpW8 s6c5mf0tQzg46q3TsxgUnhg8FNYJ3hJ1ziiCQnHQxGDrloCLeyreujy0pjwM xkwrPExBuQTKvhiD8vATBYSXYI45iFmyWUjCQYGIKKmS0ORKivrX6F37N3JL V966EMkuuZUPya16Sl7dcwqOfEZJ82dUtr+gqusp9b2PaOi/S1P/deZHH3F3 7mceHP+ZRws/82TxJ+ss5M+WfuTOzA/cOvsjTy9+x71TX3P7jNiQs5bpT4Uk 54QkZy+JHVl8x493j/w6xcWLDzg6doGGmlnaRb3VswxWzTJ8UNYLBmmW3WiK qqIu4hBT9Y1vb6Ve/XukfGm9zjnE+d5O+jLFn+S9RcpRQUpd2jQtOXP0Fp5g pHSRqcpljlevsFRzirMNZ8WbnOFsxwqrPUvSDUVjp7h3+iL/eWWZ/7UwxL2j 01weX+DalASblVPcl124PnVCzNgo080tHK2qlC6eZUVKop+YTqPFo1iuzL/F SaZeJSiRJuy1R8KL1E3L0nkrcc5bBClbSFBskTq6RZqIyGuzdAPBitenVAZn 0Swmuja+k6KYbspThsTgj9Oxf5rBinkmahZoSR9lv7GPQ5HztBWc42jTZZYH znGjT3xH+yWutV7iVs91vl5+wZfLz3i1/JgXJ+/zeOG2eKx1bs5ckn05w9qx E4KVo1wdbGd9SpByrpXllqC3oXLJMkyti2vWYWq9fzPeVJBiuX6xNmg9E2nB yXeCkx82hplt6SbTPEhWyDQpAVNybI5hdBvBdUsPiu1DeO4cxXvPUXxsxgUt x/B1GMXgOoi/+yAGzzFCA8THRJ4iJeYcmSkSs9PWyE2Tupd6mbr8CxQnXSLQ sxutcwNqh4Oo7QsIUfiRZr1tSo69LLMtHtH7UzJUfyRFISHS5e0pqQSPvSRa zmLLd5JqkXIPVyZrrZNbm113vDv7+PbMY6TeA3VUFJrYREFKhnS5OHSGGAx+ 8YIUec03ATe7OFSKTPylrodaps0MFpwEpYonSSEsppCw2ELC4wpE+wjOasBP aro2Ivc9dBG5/B/oInPQR2bjFyU9OSodU2QyARFxBIZH4BcQQLK/HwkGAwcC /GiQ5tSlU9IrNOmy30qhw17MCm+8NQGotSY0OpO8rc6fPfgEx1LaNoSzgy+u Ln4SWUzWSefcXXS4OHmxUxmOoy4ThTEPH78sNH7p6Pwy0PuLGwkQd2KWeBOy D0PgPvyCZctjqgQm1ZgTqglJrBaQVBGaIko9RKGAoffav1M98lTcyXWrM8k9 +Jjc6ufkHXlJQdPnFLd+TnnXZ1T1Pqd24DGHh+7ROLzO7PgjKdg/cu/4jzxY +JFHJ3/g8dL3PFn6jifL30qB/4aHp95w76xlLuXX3D4vuUZi+u1VyTXnLorJ OP4rUP7w7q7xV59/w5HaKVoPC0BEI6Jj9bPM1s1yvHaWBYHMXOkII8LGkdgq hmKqGYyuoUeWoyX1b8Gy9vdg+f7OMD2pAwzkzDAkwacufYaa1GMClhl6CucF LCeYrFwUsJxkuX6JM0eWWW06xaXOM1zsWeHCwCJXRk5y4egy6wKXv6yf5v85 NyZwGeX0yLRogqsTi1ydXGCms4+jRxoZrSmnOEZHtHavdCA7MfN2EnpU1vNk mYa3UEnykoaskjoqSvfeS4Yo1W0bCW5bBSxbSfTcaj1jkqKySDyLahM5Gj31 kfWUmFvZH9tDWeqI1OtjtBXP0pQ7SXHIMPsCp6lKP0NnzWWmu1c5Nyghpvcs V9tXudZ+QerhdVlzZaPvCl+uPOPzlcc8X3rI48U73Dtxg5vzl7k2d5a1aQHL saOy723cWW7i8WorK23B4g9b/2ZkXA83VwQsZ/t5tDrAs0uDvLwy+O5c5dC7 gezD/HBzmJmWLgFLvxyLPkI8e3Ha3IjbtnY8dnSj2NaH545BAcsIatsxNPZH UbtO4uEzh6t+AYVhAU/jAiqRKfQ0wRFnCIk8R0T8ZSLiLmEOv4ROO4fGcwi1 42FRJT72+YQoDQIVOzIF8NlGO3L9bcnSbCHTR0Kl+w451jbW4JnkaSPgtpHv wuY965eRTG2iXvKzcMVlx19PMMSJTQkK0AhXYoQrYlHictDoY8SmJODnl4S7 cyyuDqmoffZhCt4vTMkXZRFgzpQSb3m49T5hSQnhCcWi/YQn7ic4pxn/BMvj +grQWRRt0T70MWIHYnLwj83CFJNGYEwSQdExYnHMZAXoyQnUiw3WkSZwSfEz UBRkJMVkJsovlFhtALFeekK9dATKUq//dW7tQsraB/E1RGC3ywuFkMXFwcjW T7Rssw1kty4dZ4vVEkui1iehMaSjNWahN+WKNcnHKDTRBRSgDy7AFFFOUGwN wQm1mJNqCUkWpYrS5LXsFuoWXtF7/T9oXvqG3F/JUvmU3NoX5B75nPyWV+zv eEVZz0sODjynZvgx9aP3aBi9wczEQ27Nfced42JHFr7jweK3PJT3ebT0NY9W 3vDo9Jc8OPsFd8+/4vaFl+9md34o2hDKXOSr50/fgeX31oU9U+PnaDk8Q3eD QEU0KTouWjoyy2mBzHmBzKoA5qIAZlYM11xCFbNJ1aIaphNrmBANpFZxa76L z9/B5etbw3wncJmtHKI/Y5qDkUMciBmmKmWcpuwpugtmGC6d41jlcearT7B0 eIEzjYucbxaYtIhb6Vrhat8prgwtSSgQ8Iyd5NLKBX66dZaXZ+c5PzrHVPci s11TnB+fZUIq81jDEQZrStkX7SudaAvResutQiqyBCwZBi/i/xYs0o7TfWyk sUujzpKVNNLct5Pgvk2KqMhrK0kqYYy38MV7k/BHQ7HxIIWmZgpDeiiJH6I4 eZhkg/RZyQv5MaeoKb1Ef/Mqx7uXONtzkosdZ7jUdo6rorX2c1zvtEjYIa9f 77sobHkkbLkvpeGOZLkbbJy4wrXj8vs5YcvUGBdHm3l8uYPHF8W0tJtZO9H2 d2Pvbp7q455koEeSgZ5b2GLND8KW9WG+Fa58L1yxjLz96mo7MeoaMRKNOG+q wmVLg7ClFeWOLrx29KDa0Yf3rn687Edx8ZzHWbskXFnCTX8Spf8CXqYTeIvU ImPIkrDltJUvoVFXpJyu4qmew015DDf3YZTOR/C2zyPdz164Yi9MtyfHZEee yZYc/Q453JtJdBWmuEtOVdq+vWwqxiTdx5YMtXwdVu3h8oSUZZedRMrvY8Sw xPk6SscyClwS0MZa5vxOFbjE4+2TgL1NHG4uFthYpnUXaITnCcdDInMJIDA0 RxxHjvVsZXhiGeFJouQDhKeUYs5plMxwAW20ZUq8/QIVWcYWoRdTY4iXDh0v diE+k4D4VILiEqRDRxAbYiQ78C1gcoP0xASYUPmY8DaEoZPMExQUTVRgJPH+ oSTpA0hU6Yn01BIaloCNMgDbTc7s+e12dn7gxp6PfHHZE4hSYZmUMQenoAKc jIV4atIEQrKPxhwBSp517glf/31ogwollxUJ7GoIjK8lKLGO4OQ6zKmidItq SaqVQHD9P61w6b3+75S0PCC33GJbBC51n5Hb8Ir81tcUdr2mtO8llUPPqRp9 TN3Rexw+us7UsQfcmLNMEvuGOwtvuLv4FfeXRMtfcv/Ua+6ffcW98y+5c+EF ty89E0kGuvzACpeNc6vvxrn99t1jaF69/IqWujE6G6bob5xlvEkcimhJdFb+ fUEgc1Ugc02W66IN0XJaOacyqljJqmYlp0ZUy1J2LcezapnIqRbkdfPFjUEB zJAVMKvdAzRHSVwI6KYkcoDKpDEasibo3DfJYMk0ExXymdVzLNbPs9J4nLMt J7jQviC9U9S5wOWeRZZHzjE3ssrE4HlmJ1Yk7Z1ipWeGqaYpxlvlPdonGWgc tI4A6SopIfP3n5Dzh0/Iff8T8j745D3yP/yYfyDvo4/I+fgj9u3cRKnjdsoc t1HmsI1yh60iCc32Wyi1+SNFez+m0Obj9yiw+Qhhh80HxNr+lhzfGlLU7WSY hsgOn0CvGCfcuEha6kWOVK8K3laYb1m0nis61bjCOfFhF1pPc7n9NFc7TrPW ZdEp0QoX25fZOHqFp8v3eHjyFndOrrOxKN5lQULR8XmuzIxwZbbFOnbn8aVW yhLdOJQTJb/rtI7qs47fOf2OLxKInl1+x5frf8+XL4Utt2bSyTHvx+njIpz/ eFDC0GHct7UIX9rx2tmJt3DGxWMaB58FHNUncNYsCFsWcTecROF3UrzLotW7 qIwn8dCcEl9zVvr1afyMpzD4L6MQtri7DYvN78HNqRmF837idJ5kCluyTfbk BtiTF2hHfqAEVOUOktyEKx6WWzIE/2JOUn3EX/rakaGxE39j8Th7Ga9NJth5 B+Hib6wnOIUvnuYwvMKSUEVk4x2Qjr1jFLa2ybh7St/zL5HYUERQaD5mCUMh YkKCxMAEWhSZT1hSpXBFlCJKrSBcWnFo9mGKBi8LX4qEK6ViiN5NuSnmxpBY iDFRokhiDgGJGdKXkwlKiCE2zESWhS/ClhBJSdqAKPnsCLx9A/AR46LWBVjn sfYzCYsMweJ5jRRKbUqwVeD62114fbAbh99sxvEPNqid/PFVCZvUJhyDMnEy F4uBKcfBKxdX7zx8jbn4mvIlJuWjFuPiK+bGGFWFKa6OwIR6ApPqCUqtJzhN JHwJym6gbvGtcXnPSpd/FAPznUSju8KXJ2/50viavLYvKOiRaNT/mXXqiINH H1E9cZe6iesMjVzn2uwXrM9/IfXuNbcWJfosveLOyufcOSNcOf+CWxeecVO4 cuvyY25dEbNz+T4bF2/wxWcv/44v/zttdSP0NBxjqGmaY8KU481zrDSJOWg6 wZWmBdabF7kpPeZO2yL3pM8/6DjB+qEeLuyr4UKhqLhG9uRCSS3+nN9fx6nC WuYKq8VKdfPmpjj029LK7w5T5NNCgaGT/aEDlMcPU58+SlveOH3Fxxgrn2Sq aprjdTOcFKadapnjbNscy10LTPSfYWxolemh80z1nhaWLDBSP8NE4wzTraK2 KabaxpnvHmesuYe+w81kx2Th7xZGpqeBep03jQZvmkVtYmQ6JSV1G73o8/ek XzTkr2TYX8Govwdj/u4cNbqJXDnq58K4wYmjekeq1e7kqn1J9NZR6FNJtEMT cZYxrPoRksNPkph+lsL8U5SUXKbiwGV6qs5wvGaB5SNiuoQ051uXrTS53LnM FYu6lkQn5d+LnBaWPlm+xYMlsZbL1yW0XuLaSSHQCWH8cCsNJcFkhu0lSr2D AMdP8bfb+Z782MWH5IToaS1J/quBsQLG+tgQAcyNt4D57uYIN6fTWWgLx+Ts gONHhTh/WiGAqRPANApgWlDtbMPJ7dhbsGgXcNYt4KI9jpvuOB6G4wIYCUea ebxEdrsWcNqxhMduAY3dEiqFmBvvCQHLgKSTToHLYVwdD+CtjMbXK1bCmKcU ewdpIrlB9mwT0DiLUXG3AibFcjXl10uwvvaka+zJ0NoRofEUKdEFhmFn742N nRpbO29cbd2w84/FOTANV1Mmu52TsHXIQOFdKB1xvxT7fEkTefiHFGCOLiRY ZIooJCCqEHN8GWEp1QKWKsLSqghPP0R4xkGCC3oEMFfJbz8pcLE87P4AukRR UgmG5P0YkwvxT84jICWLwJQ0gpLjiIkItAIm2PQWLu/Jlkbzr28hozG9BYwY F60hEJ1fAAZtIAHeBnxttXh86oJmizOa7Y44fbgNpY0TdnYK7N3U2Pin4iAG xSngAI6GMuwFmq6S9Dz1eQL2ffgEWuYKr8AYI50tvk7AV0eAmJfANJEFLpm1 JBw+YeHKv/Ff6V3/i6xZ9GeKmx+RXfGIHAlHOY2vyGl/RZ4Eo8LBF5SOPqV8 /CGHjt2h+tg1ZsXHXJ55ydW5l+KlX7K++Jm0yhdsnH4u/uQZN1afsH7xMeuX H8mub1yxzN994/I9rpy/amXKO8C8fQjxLebHl+k9cpShRgtgjnNCgHK6eYkL zSusNZ9mo/UMdzrO8qDrLI97zvK07wzP+k/zqG2ateLDrJU1slbZwNpBWT9U z9WDdVwur+P8gVoWSqt4stJtPQ1jMTLRCm9yvVspCOynJHqIqtRhmnJG6Soa Y+jAOOOHJpipPcbxI1OctBgT6YD9PQKYrmUmpENOCNyONs0xIds5VD/JaPO0 AGeSsbYJRtpGGe2forOxm8PV9ajd/fH0MKNyC8HHNYgEg540g5Iso5Jckyf7 AjwpCvSkJMiLA8FeVIiKQ9Tsj9RTFm3gYKyB6jgDxVFGIkMkVweaSfH3J8Xo R7q07kj7ZhJUfSQZR8kKm2BfzDjFmYscLJCYVHKGmrLz1FdeoKv6rABbkp9A +lz7Iqsdi2LKRALPi11i1LqOc6Z9jrWxM9xbuc7NlatcX17lzOQkM70tjLZW khK4h3jtLhJ8dxAsDivYbidmyxgiu92EOOwm1GkPUQp7Bqoy/mpjXr+jzDdC mfuLRdyaTacowoEIzz+i3Cq99JNyXDbV4Lb1MIrtjdi5jmCjEgujtsSj47hq 53FXz+LuPYOH5yQeikmUnlM4O85it+MszjvOo7I5h9rxtJThE2gVfSgcG3B3 LMfDuRSlQyoGZx16Rx0+DkEkCcyzgxxEYmVMOvIDdO8oI4SxUEYsSrivEqNG +/YOVZFWSr/GECSRIJ1duzXssfHDxl7Hbv9ktmuyRPtlm/fj5luISp+PSpuD 2pCPxlQgkaJQ4pREHYkT/pESm2JKCU2pJSxVlF5DWEYN4WLAw7OqCCrqpf/G v9EnXVIbXy6EEUmM0kmM0qeU4JcqpEnbR0CaWJn0DAJTE/FPiCA+QLbPFIkm MOo9tAKZf5GPjUInzsVHE4ivLlg23yygCUGjDSY2bT+b/+DA7m1KOXQqwry8 0Ts44rBpFw4CTwdHBXv1SdiIW7EzFGPvV46dugQ77/246wQ0RnEwIeXoo2rw i62V9CagSRbJLpkkGZlkl/zz2qW/C1MsmPmF/yY/f6bn2k9kHLhLVvVTsho+ I6v9Jdm9n5E3+JwiiUal4/cpP3aLkuFznDn2jPPTz7g4+4zLx59ydfEpaytP WDvzmLXzj7h64SFXL4kuP2TtikUPuHTxFj/+8CfePfvrN9aFC+uXNug9PMJA w6R02xPMC1JWms8KWs6z1nqBm+2XuNd1mUd9V3g2eIUXw1d4OXqZV6OXeD12 kY0DDWxUdbBR185GfQsbh5tEDazX1bNWJYg5WMul9sNWH3Nl6iARXrtJds0n V99LQdggBxKGqM0YoiV/mJ6SUYYrxhivPsqo4KWrdZGelgUGWgQl4qkGxdcM Nc4x2jLPROusIGWavsYx+pvH6G0RD9YxTmfXUY4cacfkF4HCzQ+lyMvNiLez ER9nE3onJfFeNpKIbUiWxG9x5RlqOzKtdz3aiZO1txRa8egzpGudMOtV6HUG NDojnl6+ODkrcJCC4+QTjO/WNKLcu4kTD5MedpS86DFKU6epyJ6jtmiBxtKT NB88TVPNOVpqz0vmXORU2zxn2+c51yH+sHOOc52SQTtnWOmY5kTbMe6cusxl SUdzQ6PMDPQKVhvJjlCJT9pFkuAlWfAS5e5EuODFMuoowjLqSNAS6bKHaFdB kNKW2vRgLk3W8PraEF+tD/H5pTY2ptI40RpOuPKPRHpuItpL3PmHJbh8Wo3b 5jr2Og2w2/MYNiI75QRO7hO4Kidxl9SjVEyIxnF3GcND5Gg3z97tF3G0uYTS 5Tze7itiVqYxqo7gpazHU1Ejf19GuDqISJ9A+SwT0e5+RDkaObDDhrqtmzi0 6VMqbHZS5rSb4j1bSXOwRe/hi4+3n/RJ67UW66UWC15UKgMumlR2fOzKjk8U 7NqlY6sygZ2+0gf9pcibDmGnElPmI4jR5aEWE6ORQq8JKsLHVIg6sAhtyH5M sYcISa0jVAp9aEYdYZLlwyTTh+xrIblxQfDy7/Td+Av54i+1iRWCFkFMiiAm 9QCGtGKM6WJkMvKkD2cKYpIFP9Hy/hH4ioHRCFm0VsWiC4oTxsQLY2Il9YSg 9hVpQlFpJNlJ6nIPSmXbNgVOjmqCfHXEiad2ctJgJ+nJ3kGBrWcANoZcbA3C Fb8K7I2HsNWVYetbgndwBb7h1ZLmqtHH1WBIEM4k12BMFWUexi+3jdqFZ4IT QYpgpff6T+/Jyk/8n/LSn0Q/0njyK9IrH5Bx5DmZbZ+R2fOC7MFn5I8+omj8 LiXHblDZd5al8UecmnzE2dlHnD/xiNWlh1w4JTorOv+QVaHMhUsPJblctviX 8xfv8cOPP1u58neQ+Qs9tX0MHhlnpPEEU02nxTdc4FzLFa60rrHReZ27ves8 Htjg+fAGL8c2eD2+wZfHNngzeYOvp67zrGOG23W93Gns45YElFstXaI2bjY3 caPxiMCmjnM1VdycaGLgUCIh7luloVtuISkhxzRIQdQQZclD1GUP01oooDkw TFfVOHWHT9DcME/7kRk66qfpqJuWIDdLv4SnofZZRjqmGO6aYlDU3z1Jd9cx 2nqnqG3qJ0Dir1JpkHrrh6fI29OIWuTjrhcZMbp4ifew/Stk0n+FjOUGSVGu Vhy7zolAgy8GgwGt3h+d3ig1XCX1WwrNjr14hiTi6RKK2b5GOtIAsaYxsuMm 2Z8+Q2XWJFX7ZqgvmaW5Yo726kXZhxXZlzP0N6yw3CZQaZ/mlIBlpXNKguAx lnrEu3WMcWZqgZnho0wNDTPW20ndgVwSDbtJEcikCmRSfG2IFchECmSi7HcT 7Siy3HPmtoc4j73WkUrJKjuyDM5cna7lS4HM7eNFApl08kPtrI/bjPTcTIzX VkKc3XH+6CC2u9rZ4TTCLsdh9jqPYOs6ioPLiOzrMO5Owyhk3VNec7Xrwnlv F672ndjbzGLvuIKzAMZFuYKr+BxXVSNu3o24eNeh9k/C2z8av6AY6ynPsMAo oiRBpPlF0RasoTtITX+AikEJqAU6X+J0gcRLuoj3NZLgrSfDxZM0Rw8S7d0E ogL2LUHs+BcdO//VjT3/w5293qk4m/bjLJ3OIbgKO99S8V4l4r3K8PIvks8u kFRRiE+ArAfuxzuo3NpBAy3XWqQzhmTVE5pdT0hOLcFFXRxeeUX/hgUy4mNu /Jmo8kG0KZVoU8vRppWhz5DElFmEMSsf/6xsTJkpqOJirZBRC2R8A2MENHGi BIFMokAmGUNgioAmSRJTNApFAG4BaSii9qOILMJZHYm9nQ6dOpgcs0DVPxKF tFVLWrJ107FXk4GNTvyZX6WAVPYvsAabgCpstMUC3DwUso+qUMs0TtUCwXr0 mQ3E1M5Qc+IJPWt/es+ClPesTBG6XP9B1r63qvvadxxZfkVBz3PSWp6T3vWC jAHxNSOPyDsqHqf/PA39l5kfe8jC5ENOzj5k+cRDTglhTgthTgthTglhVi4I XU5ftNBlefUB3//4ixUo754y/q/v5tqwnJQZqBth+Mg84w2nmGu8KG7+Ghda N7jWeZvbvXd4OHSP56P3+XziPl9M3ufN9H2+mb3Pt3P3+G7+rug2T1rHudsy zO32YW51DYp6udXZxUa72Jrmw6zXV7NcV07fwQQhzDbCFFuklW8jxadcHPMQ +TFDlKYMcjBzgMP5AxRXzlF5aIbqimPUiI5UTVmvb3U0z4q1maFH7Euv9M6e rmm6uqdp656iuWuSiroe4nMrSM7OwdPH7z281EaW8JZGq7ZIpcPXW8y3pz/+ bl4k/Xpu0QqYt3dgZ2vlNQtc/HzRGQQsfv7orTLi4qqUDuaAh1RVL99gcUjy fs6hRCjbiBHAxEdNkZk6Q2nuNFUFkxKUpjhSOUNLlWx63RxdDYsS4CSQNp0U RzHOQvsEJzrHOd59lNnuUY62DzHSPcj4sLi5vgFaG5tI9LMMgdxjHQKZZhk3 rVWQrvOxDoGMsNkqQW0bobafEuYg7sTxU6IsIxNECYrtAnBH7ixWc20ilXUB jNntEyvcIz23WAET77mdAKWObbu62W4zxE6HEXY7DWHj1Ie9bSdO9l24CExc 7Fqx39mM4952XB27BLTdAu9Oq9NxVs3gop1FGTgonaZV1CROPgGfYKnu5jBx DyESUoIxBJsJDIpEbwwjynJPmtqDLF8FoX4BAqFogkOiCQ+NJi0gmHyjif1y vEv1eg5otZSp1RQqD+DxcT27f6PC9g/e2KpTJEXkY2uSKh9Qg72hClufYhw0 ZTjpK3DXS0f2K8LTvxivQIFOUCWqkEq8QyswC1zM2XWE5NYRXNBKogRYK1w2 BC4bf7ECpm/9ZzRJ5WhSK9Ckl6HNLEWftR9D9j78crLRZaXhEZWAtwQkn4AY fALjxS0lCmiS0YpL0QamC2QyMARl4qOOQhmUhzKy9O1jXbWxKPVxqPzi8PaI JD9CAGyOlb+NFRiZcfHwYY9PGnu1hdjoy9grLmaP7OOe4Br2htRi61cqTkj2 UfbHI0z2KbGeyOpJuq58Lw68++oP8mPte0lHb6nynZUq3ZZJJ699Q/f613Td eEPXxlfk9N4nsUXUeZek3lskdl8gufsUo4MPmRDCTAlhZoQw80KY4ydFK6Iz 8u9zshTKHF99yOVbL/nm+59/ncbnLVrc6a3qYqhuitHDy0w2XOCEYOVMyy0u ddzjRu9D7g495snYUz479pQvJJC9kUD27fxTvj/xlB8XnvDj4mN+WHzEl1Nr 3LOgpfsYt/qOika42TfIRk83NzoFLy21XGyopDkvkiDnzYQqthIhaAlXbiFa TExywACZUQMUJg2Qkz9JbtE0BYXHKC6eorJylpraOUk9szQ2ztAseGlpE3WI MZB00dA1y6HmYxQc7CE8Ik4SaQZpJWWovDR4aQPw0pvwFvmKAVH7avDViuv2 Fb6ojIQqPayPqvl1dEemsCVZuGLyU6P183/PCpa8d2gx4WTjjOMuB5RieL08 Tbg4a3Fz1qFyjSBM3UZEUB9x8dNkZc1RWiRkLBW8VExSL2RsksPcJj6svem4 EPIEnc3zTLWNMNU5yjHBymjXMN0tfULLQfr6h2loaiczUm192F+a9WF/ghed vQQkJTEKO8LsthC++1PBiyDF/o8SPv5oHbMQ5yJy3USC2x9JksNbFmXP6U4z 41UmOeybrIc80nOrhJbtxKt2YDAb8AxKwVZRJWhpY7dDB3v2tmBr04rd3jZs draKOnCw6xG09uHu0SuhqUfw2o2Hulu68BBu/sN4BInf8W1F6Z8iXTlcunGk 9ZkB2vBojOHxBIgCQy230gbiq9ARuWc7vq5eeCn0qMRnenuK5HVvpRZvlV6+ IhMmrYlgkdlHz7ZPp8U7ncd+UzK2n+jYpUxijzpbgkOR1PgKbI3S5XRS47Xi ZeTfTtId3aULKkzlgr1KPM0VeAlWVGGWqXkrCBbPEpR/hIDiXupXPqPvpuBk 48/SNftu/CIluG/9J2qO3yeysh/fDPk/WeITsovR5RSgF7R45ObhFhaPlyka lSke74AkwUuq4CVd8JIpHiZbEJMtzS4JL3MRmoRa1OGlgqFsVJZJ6I3ifYxJ KLwSSAtPIi4i2RqsLOdytMZIPDQJ7FXvY5eEot1+5ewOOMRus+AlrFqWlTia SnANPkBYchsF+ybYVzBO0/EnghchyNVvLYT5xkKYb/i/hChfi97Qff0rocqX QpUv6Lz5WvQ59eefkDl0k+j2K0R3rrK/6xpd/Q/pG3nI0MRDRqYfMjb/kKOL IvEvR4Uu4+Jhjp56wN1n3/w6y97b2a5G+eLFKwaqxKzUnWDs8Dmmj6yx2HST c+33udLzhJuDz7k/9hlPj33O59Of89XcK7498YrvF1/xp6XP+Wn5JT/L1/Gn lRf8sPKML+ducKdrnJsDM2wMTXJj6Cg3Bga53tclZGlkveUgVYmBGPZ8hNlj Kxq7D/G1fR8/h/cJ8fAgIWiAxPijRKRPE5c+SVr+LHml8xQfnKesepaK2lkO 1gtBhC7VLfNUt8nv6ibIKB0gKe8wYdEpUvVCCYiOp3HyGOaIWFT6QPnqgsUe B+HrH4BaLw7DKEQRJ6K10MVLJ5XbkVRxLJaLFokaRwIMKvm9EY1gRCvVVG8M FAWh8/XDcbcLLi5q3NxNODoZRHrcXI1id/2tF0hC/XqICO0hLnGMzLx5Skrn OFQh7qVyipqaSSGj4EWo2Nx6XMg4R1/rKINtwwx0jtDeMsCRhl6a2gYpL68g LcKXJD+bt2MoDZY76PdYcRLlvotoUYy7RKE9nxJtu4kYh03EWpDiullwsplE 980keVjuWvsjiR4fMlaupiLajiCXjwn12GwlerS4lXCNPcpQM16RUfhEJ+Do W8b23W3s2tPBzh3tbN/Sye5dvdjZD+DkOoirRz8uij6JPv24qvtx04h08prp KKroBhQBsdKNo/C0DMMJTcBgudc1OgNTVBoBUdJt/IIFFwZ0Pr4ovQL+Bil+ +AhWfCS2ein9UcrxVChNlrvxFSb+K+52XmzfM83WvVdxUKwJ5rLYZRfBHt8c iQ7FEhPKpIoLUoIOi3upw8FUg4PxoHS9KokhUtWluitDBC+CFM/wMjwjBRFp NZj2dwtSngtOfrHgZMNSdvs2fqL3xp/oXf+RXkuUWP+OiKoBfAQr6pxifHML 0OTm45RXJO8dLRiNxVNij5fEHVVApuAlW/CSI1Epi/CUOiLyu9EkHkYTWy1I yUMdlI8meB/6kAL8Qguk4uVgkmVqvGBIJ3FKH4/eECdRPEbQsg9nv3ocApqw DT6Cbago4jC2kfVSLQsoyhulaN8YRQVj7C+0aJQmQUDX5TfvCV/eCFG6rgpJ 1iwSmlz/gq51IcqNV1aidNx8SeetF3TeFt16Tu3qfQrn1qRIP6C26yFHBh7S PPqQNqFLh9ClY04kbz9/+SU3Hn/768S2b4lyno3VdYaqJhmpXWG0/jIzRzZY arnH+a4nrA284NboKx5MfMHz6a94Nf+Grxe+5rulr/lx5Wt+OvWGX858xZ/P fslPZ7/gx7Ov+O7MS16duM2tfqHJyBzXR6a4PjzGtcEBoUob1ztrqY40ClE+ RbH5t3ju+cM7onxAoGWM/NaPxDsfwhA9Q2DqHFHSI5OK5kiXXpldMUeekGVf 9TyZB46Rsv8osfuGic1pITw2m5CwGMxSEM3hkQTEJdM4a5mJr02yj58UBbOE 7FD5JkPw8TfiGxCI1hSATsii0/lh8vYmWYiS4mtHsM4DjYU6BvE1UlC10gN0 xhC0+mDJTXrsd3vg6BmCjb0ROyd/6WUm6WUm6R1BqHzkbzRJ4vOPEB49QHRS P6n5xygqP0551SyV1eK5Dk9R1TRFrdCwtt2iWVpbhmhslvhX30t5bQ8psZHE CkV+HQuVbFnqdhPlsYNoj93EiuIUuyXjiNx2EiNEiXXcTJz4v7i/0mQzyYrN pIgxSXB9n7KIvVSIYfG3eZ9g508wSlYy2Mvx9rSXYheMQo6fV0QSKnOSZJsQ du8sZtPmXrbvGmKvwzB2LkM4uA3iqBjCyXMIZ2+RehhnzZAU5EMEJBfjn1qG JtJy70miHG/JBkHSM2JyMcr34x+bKZkgSigtx1M8o48YPxc/y1PRfqWJEZUY P6VnkGxTMK5uIXh4hAipzbg7GFBopSfGDGDnLmbFZw4P3byQJZ093jliVoQo mgpsjNVClDrswxqxj2jBIbQRh8BqHIOFKsHlkhfKJS+IoipRxNfhkXiEuuWn 9ApBLDSxXOLouyEUsWj9B9H3Vpp035DYIJHh0NIGYXW9qPLK8Cg6gH1WIW5+ 0bgbE/HwTxWSZqI0ZaP0y0ahSSOtYoKuM9/gm3BEaFIrx2UfPkGFkgvfnlX2 C9svBq4YU2Sx9URQclIRkaGpGMS8+Pkn4e8vRDakCLEP4RzQgnNIJ87hHThH t+Ec1YBHcBnRMYcpyR+hpGBY9qGkcJh/kJ9DQpV7dF4WfFwRfFh09TVd1wQj 66Ibn9O58Zng5AUdt168R8ft5/wXWX1G+81HfPGzxatZEPG/8fz1L5zd+JZz t77lxVd/3v23AFFyc/UWw4fmGKk5x9G6a8w13mGl7RGrvS+4Nvw5t8e/5OHU 17yY+47XC9/z9dIPfL/yIz+d+YFfzv3An89/L/qOn1e/5cdVgcv5L/n63Gs+ W7wrdmSKa2NzXB2b5MrICFcHurnW20BNtAm3T3+Hze//CaeP/hnVrt/ite33 OP7rVmylMzqb01AIir38UsQhH8QQcUgaYAe66GEMccP4h5RhCi/HP0JCrSYU k5S+0MhEQiTMhkTFExwdiykxXQ7gcRpm59jf1inI95fGHIZPSLg0bHHZwSH4 BgVJgxaICFB0OgNRPi5E+zpKgNXgYwlEBvk7vxBp8GHWB1y8h9rTnwzsVNHY eUZi6xSIvWsQzh7BuHmaUXgHo/IVSOnl741hkh4yCIprJjxjSEA3QqakncKa KYrrZyhqmGa/2JISi6USW1LaNE5xzQApGYX4u9ng7/QxMQZb4gQcCbKMFysS qbDAYw+xCsulnj2SYPb8daRNsuNW4h23EO+yRYCyRSzIFmvCSfbcIr8XoLh9 QLLXR2T4bUe76/cod/4Or11/QL33fVwCxE6FREiZTkAVmSZwSMDeLh43hTh0 QwH+wbm4KSvFhlTgravDx1CP2igy1RMSmYk52iLLDWRF+KcfJKO+X451Cj7m FLxDktHH78MvIV86TbyAOxKNvxyfADNu5khcgyLE5QcIQN6CwwIuT88wgUa4 WL4ISVRRuLtF4GrvL+nkKF7+fdLRBiQ99KM3D0oHFKDpD7HHp4Q9moPstSSd oAbsQpuxj2zGIbYNx/h2HGMacYyowzWqHre4BtziG/BO7yOweIXi8ceWm8lu /GD58T17hRrfCTW+FVmoIfFg4w1dN6WYSwHvuvlcIsJDIrr6CT3SReLBLunZ GdZrvMmHxkkSYpT1rtEhFbbz9LdkN50TL9KMb2SVkGM/anMJmpBSdGGl+EUc wD9KFFEsnrmA2KQDJMZZBgmlYTKlERSQglmik8mYjrsceDezfFa4ECS6HedI 8X5BBwgwH+BA3iAH9g1SWiDLwgFRv6z3SQe4TcclMR1XXtKxJsbjmhBjXXRD qCH70W7Rrefv0W6lR/vNp8w+evHujvy/wYSCxf4lhisXGam6wHjNDeaa7rPS +ZQLA/Kusec4EzvP1fg+Loc1cy2qiRuxzdxKbOJOShP30hq4n3mEu9n13Myt 5fvB03w7uMybgQW+7J/jde8UDxqbudvYwJ0jNdyuLed21T7OH4xn5+9+x/bf /p49f3gfuw/fZ8/7zrjv8MYpLBml1DoPb2m63oFSu8VRe4aiUoRJUwpDrYpA o44QPEhg1EVaH2elMUQQFC6YiJWjGptMcGwiua09NJ84SePxBY7MHZcmnIan 1DUPkzRPSTAe4juU/oHC/QBBhaQXfwNGrQo/jQIvrZ9gRX5nEE/iF4GPLvw9 +fBAMglJlfwpptReFStl14yDRyjOslnuPmEoLQ8T1YZLL4qUgCSbFxiJISQK Y1QWAZYZ77OaiTowSmLlIKnVY8RVDxMlodGccQhzaiVmxz+g2fZPeP3xvxHk tY0og52QQqTbQ4THzr8SwvI0uSTPvaSI0rz2ki7KEKU6bxNKbCXB/e0wpiTl 22FMyZ6bhBofkODxPqGeH+H4wT+h2PpbVLv/gJfTVlyFmh4h0ThLabP1yRHr JOXSJ09Il4deGqveLwmNVmyDT7xYrWQJg7nWG+BDokViIcyxOZilcQellGDK rKakb4bkCrF3IWl4h6WiE3ro4nLFyMe9u9YRiSI0FvewONxDpUTLcVMozXjI cVR6Cq28InEROrgqYoQU0bg4yFflXY2v2AqDfg6TYRZTwAz+5kkCw6bRmiek zA/K9vezx+8Ie4ObsQlrxTa6Ffs4sRrSXB2TmkVCDMtEzylCmdw5IipvEl55 jdS2G8KH9W//ixULu+TnGwHDV3RbwSBl+tYr0Wey/lRK8wNixmc4NH2e1qU7 tC4/Ej2nbflz2la+pF3g0HHqOzqlima3rKJNbhM4lOATLIEntMx6l5o+okLa RAWmmEo5xmLJ/Aqsw42zMvfjH5QlFjWT4OB0QoJTCQtOxltdIlamDXdzJy5h bThFNOAUXiWBPJuy3AHK8vsFEv2UCRjKCnopK+wRuzpJ++XnAggBwZroumhd tCHbetPChLZb1p83nzHz+HMrDBz+lgyp9OwfYLhiiZFDl5mov8Vc8yNWul9w Yeg1VdHPudr5hnvdN3h4ZJnnzcu8al/m664lvu9d4qf+k/zb0AL/PnKc/xCj 8B9HZ/iP8Un+Y2JcNCIakH93y+ttfDPUyL2OGo7WHOJoYS76bbZs+cffs/2f 32f3bz7Aaauj5GNx9EFx7NUnSoGOEqcbhYd7CEqPMOuD7HxUUajV0fhqY6zD wrR+sVL8Y9CZYtAHx2OOTyc4IZWghBQqxqZoXlzh4PgUqU3SJSsr0adk4+Ct wUFrwl4XiKNW0oNGLy7aF0+DRgyLLwpfHUr5vacuRPKiNFNVMEqlOGJpuqkl jWji9ksm3oe9j2yjezgOYiScvaNw840ShxyFlyEKH6Nso2yTVrqB3hyDIdyi KFGEGKFEEnIz2ZeXQFZCMF7GSPksafoa+UzH3ag2/SOKT/9vzD47CdcLFvTO hLnvJNLdci7DYhz2kmjBgtevjxe1JVNl+x5ZKhtUpLluF/+wTciwTf5sm3UA UqLyU6HCh4Q5/Q6z8gMc3/8nHD/8ZxQ7fi8mfy+ORjO26nhsfPNxCapEqReT 7JdhPbun1lgkrdMnCR9ZqnXJ4q2ShQj7BMT7hAgi8QbmxDwCMqvwz66jfu48 9bNnCc6sxDs8A22SlMcwoURwovSQOHzEp7hFpeAemYRbRDLO+mjxX+FChigh g/hGzzghQzwu7nE4O4SJd8mTbTmJn2FRSumSlNUVzMGnCA05TUT4GaJiV/EM mEYVuoQq+ixOkZM4xU7jlChKnsItexr3nGOicfSF5wiveCC6K1R4S4awylWB wvU37JafAoR10Y0v3kLhpnj1W+LVBQzW2H/zCR0b90kdlsy4eF3gcFf0mLal F6JXoq8EDt/Scfp7us7+KM6hDU18s+x2uVjXCnzDKtFGiCWOsljiKgziIrSW 8TmBouhDpOdUEBudQ1BIDiEh2bKLmYQLYCPFhnmJPXIztkpWFMCFCuzCalBp s8lOarUC4kCeuAYLJAQOBwQOB/Z30XBinbarAgOBQ5vAoVXg0Lrx/L/QaqVD i/ycfvTKigLHv+XCKgvdpxk6sMJI5VXG6+4w1/qElZ6XXBj+kuW+bzl77AfO Dj3hytFnbEw+5/7sC56eeMFnJ1/weuUFb06/4Ouzz/nm/FO+Xn3Mm9WHfHXh Hl9euMUXq+u8PneF5fkp+oeGaGlsYqD2IP0HiwnVmtny3z9i528+ZM/vP8Lp ww+xt3FgryFWGmkcNh6x2CtTcPTKxN0zCS+vaGmcsdJIpezopXQZE9CaRAEi Sb++whNTrHixpEziy2qonpono7WTmJo6Iist9/NVYsotR5uQg6ulI/jqsRdX 4KAz4qTV4uTrjYPeFxufQNw1wVLGQnATt+KmCMYUmkXT0SXCcuvl/5eiTyrD KXAfdsItB1WMcCUWN22chKE4Mb5x4kLiUAfGojHHoQ8RhYok9WuikyWdpuEj ncKcmk50cpw4lyTc/cTE68OlRGqECb9HJccj5l8/IFKUabOLjF1byNq9hexd m8mR9VxR/k6RZSmv54ly92whZ+9mMkQJOz4WEAgclCIvizYT6foBRtvfYLD5 F+w++e/Y/I9/xFGCnZ2tDTsU0djq83CXsKaKrUApkPD0ScDTO0m4KMfeW8Cg kaCgS0Xtl4avMQ2dlDZzfJEAQZRUSHByAaa8BqIre6g/fpH6eQsczhCcXYlv XBHK4BS8zPI+Znlf2X/XmAzcotNlmS1BIF06v1gHAYLlUoKbMhEn9wQc7SVc KPLlOz6FQbeEv/G0lNNVgkMuEhp2mYjIy0RGXyYmcY3w+EuozMt4x1zAO/ES ypSrKNOv4pF5Ba+iNbxLrqAqvoCq6Axh5fcIq7gt2hAwrMlylTrp3d3XvniP 7utfiGvoviEuYePtuUALFDpuv7Bmd0ty77gpIFi/Q/P8OVoX1gUQ90RPRJ/R dvIL2pfeCBzeuoauc39Ck9SOOuqw5KxKcQ2H8JVqr42qxhAjzTK+RrKWZcDe Pilt+8RllZOUU01c0n6Cw/IICcslLDxb+JdJVEQa4RHZ0hzFtfq34BTUhENI HV7qHGLCazmQLdFCAFEi7qFE3EPp/l5Ki7upbJigVZxDi8ChReDQInBovvFc slTzhoUOlvW1L7+3AsHpb+lwlZunHzBUfIqRijWO1t9lru0pK72fszryFdeO fcft2R94tPAnXiz/zOvTv/DNuV/44cKf+dOlv/Dzlb/w56uiNVlf+zM/rv3C d2t/4uur3/PF5a9ZP/2ExcUbdA2cpqFjnsa2SYqL6ygU4+QqVX/Tb7ay9Z8/ lFzxAbYffMguL4OUrijsNInYuMWIWU/EWZmGq082HpocVJpUKVmJ0kKTxLCL yQ2U3hYkMktpMydikNYWIM6gsH+cuPomYusb5ZuvJ6CwmsB9VQQKIQKzy/FL KRejmympLQYbnR5bnQF7rZDBHMROyTC7nHTsdTISk1XJvppeGkaXKJFt18RZ hlRUYEg5iEdYCQ7qFHEP8eI8pEUbElH4J0r5EuMdlGjdHt+QRLShCWhiMvGx GOrYLNQx6SgDo6wP7FIFhqIITMHDKMZaHyrlOgCvLR9jdPTB5BpCtKuJUqUn DWoFzaI2Xw861O50qV3pUbvQp3am38eJQW8HhrztGfKyZdjThmHlHoY9djHk voNB120MOG+hz2ETxba7ifFUsX2vN5v+6UM2/8vHbNnhYR3Mbh9UKL30AE4B Rbj4ZkuvTMBDmYRCJfXKNxWVTqhmSEftL3ZCUrZa5BeZL1QoJjhlP4EWy5Df SGbrMQ6fEDqcWBVCnKV2eoXQgmY8gtNQhKTiKfXPJU3sSWwurnE5OIgL2xuU i4tSCCmf5+6ZgrNLHHZ24sY8CtCFr6LTn8FoPE9AwEUx2lcIibhOePQGkbE3 iY6/SVzqHeIz7kqSP48qYhXvpDV8hAyemWsosoQQORdRlV59S4f9QpjSdULL bgol1kVXCK04R+HoOl1rgoRrn9O1/pKuG5Knb4pXsJ7Xe5fMt0tIfyae/CFf /PwLzXNCh+NChxP3hRJPRS9pW7TQ4WvaT/1Kh5+EDh2ooxvENhxCHS65KLIG bXQthjhRTJUUtkK0wYVSSIpQh5QRkVVHzr4ygiMkZ0TsIzwyT0CYTXRUJhGS 4UKj9xEWbWm+B7EPrhOI5xAdVktJ1hDFuYPs3zdAcWE/xUV90t16KC7tpFno 0CR0aLomEkI0Xn+7nHr4Ba9/+jeXv4XCZW6sPGCwSCxD+RpjdXeZaX3KUu8r zgsU1o59Y33iwMPF73m+/COvz/yJN+d/4ruLP/Hj5Z/56crP/LImuibroh+u /cS3AoU3V3/g0hl5n5V79AxfoLlnmabuEzR3TlFaWk9ayj7pHHniFwPY9cFe tv9uM9t//zG7VEHsFUtgp0vB1i0WB0USzl6pEjGycNflSecpQmXMwMc/RRql lC9JYWqzKDQV71ApSSFJFPWOEX+4lfgjrYQcaCBwfz1BRZYbdmoIFjAE5Vp0 BH18CfpYSb/R+eiistBFiLdNzkQZKSVR+GyQclg9MEedRKUjoyukHuxFk1CO LlmMYGo1/hk10oEKBQxJOIq/dvWTzm1Ksd65oJJt8pHt8RZTqIovxFs6gEo+ w0sSt2Wgqaf4aaX1SX7huP+/bL1nVFv7mub5rFOzprvnw0xNr+nV09M1a2Z6 ZvV0TYdV1VXnHp9zbJNFEhkkgUACkQUSAoQSyoEkkXPOweCcMM7ZGGOcwDbY Budjn3zuvVU1H+fZwueGtebDqy2wga29/7/3eZ69939vQS7ZSKKzGZ1oYeKi EpAqzNKJZswQKZAcnYvCZGnwrpAWWTxsmWIYciWw58vgK8pEU3EmWkoz0anO RG+ZDAPlMgyXSzHKmiiXoL8kA+58CSoVChizsmCVZCDsP9Oa/V/c5v/bX+OL z8O43YvwNRvcPqkN+zN9CMlpxv5EJyIThduYVgUnpidKapCUaQie7kuhXUhR GpkNjFBUeqGodkNu60WmtQcdS7dRd/g8rBNHYBpagHF4EdrGgygw9CCG5jg2 rxIR1U5ElLsQruHfKvfhy2w7wmMraBN0CA9XIyS0mELQgXQ2BEnxCqSZt5CV cwc5uWvILSDMxY9QWP4UxdpNlOo2UabfYjx7Aa3lefD/J5ausCncQ5LxLuJN q4i1LCPeeYvW4TqL9sN1g2PjPhvDKlT1y8irvwLH3CqG7zAs3GVRU4fuBw/V /YVwrA6fByP5wP3nWH3/bRCc3uNsCKfusSmwIZxmQ1hkQzjzzR8awhBzxMi1 Tw2hlA1B1cyGQHtQ3Ip0dRukmnZkFDUG594K5zQkKjfSc4VzQW0wOptRVOZA XrGDvc+GolIL45IRhWW1UJXZkV/GzV6q4bAvQ3pMEYpyW+GqmYHTPANH7TQc 9ik42BCc7nE4PaNoZZ7oYlPoYqboZB1+8h5vf/tPiP7TTqDHu+ffYtJ6EbNs n/OtGzjKTnB2/DWuzL3H7cMf8ODkt8G7sb6gG3pz+Ud8uPYTvr/5E35c/hk/ r/yM395hrf6MX1g/sb5f/Qm3r77EhcvPMDF/G/0TV9A3fp61iJZOuhubn3ux FqLEfIii5IiJoCX42zB89V++xp6UInyZqqGR1SMkkdJLAxmRRIOZxk4gNSNG bqOcshvkmCjBehpRlkqPxAI9CauGmHSXdwyhvGuIe7cXCk83lO4uKF0dUH7q Brm2buRSxrJ0lHlherbaDkmpmVWFGMpWRLEZqSoDd5MdxbWd7ARn0Tl/kaa0 jhGxERmVAcj0rcgytEMqPH1AYmJVIzJLj5gcSr+S68J1ii91QKx2IIHJW8zf Gc/uIi7UB4/6JxfpEK9i4KCtieT/j1IyWdNOhLEbiFKUiI2SsmSIDUtFPJcJ tCrpkakoiAmDlhZAuI14dVIIapJDYUwNhVmotFBY0kL/IjinJgXl6SIoJElU 2hiER8YhOiYJUfsj8Dd/vR9f/+e9+OL//Ft8+ZtI7IlV4asEHfamWumS3AjL rGeG8iE8zY1IaR3iJBYkSA1IyiL43OzJSjNljg2OUAt3zhCeOSu1dEHbPYvi lkGUtAwg19uDTOYsmaUHCcWN/Nh1/LhexBR7EG5oQaiuBfsq/NivrcdvMu34 KqwUMcwIMlkn8tXnkJJ/GenMBbKSNciy1yDPfQhFwWPklTxFQdkWiiteoKRq B2r9S5QbdqC1vUWF/TUqHC+RoV5j/mFWqL6LWFZMzTJiTNcRb78BseMSJM4b yPXc4zreQW7dTeTWX4LtwB0M/f8ekhOi998whb9gB/h+92bDQhc4ehn9J2gL TrILnHyBgVNvgl1gINgFfvyTLjCM9MpRJOc3I7mwhRaBXaCMXUDLLlDCIEE7 kJ5PMaLTlBZ6kKpuRpWrDZoaL/JKnSjg0Cwst6K43Iw8ZlaVhl1AY0SOcHeS 7AzomBNfW5txxNCHg+Y+dJpHUEt7UMvwYHWMw+ocxcSxG59h+c1PcX96weVf YtR4DtOuFcy1PMLh3mdYHHuJy3OvcevQW9w78R6Pz3zA8/Mf8eryt3h37Tt8 vPk9vlv+Hj/c/gE/3fnhM/y8+gNy8ePq91i5uo2LV55hcuEOBqeuY2CKPXLq AsFfQms7+5KpibJNQChtsbG5EDONJ8RmIfSLKHyZVo69UiPLghBZLUKSqhHO isygP820ECgbYnOdiGOfTOCoE+cRIvr6+IIaZJtbkGFoJuzDyG3oR45HAL6H wBNwdydyaQGUjg6oHLQElKk8aycyNdzSlGap4NWZI2JrHIikFUhTmbgnbMgs r4eheQrtAvAlBJ6jNKOyBdKaNmQZO5DDkZ5e1YpwuYVlQFSOATG5rBInYrjH YuiXRQVc70IL4gi9uJTyz5ScWMLmxOwSw94u4r9FFhj5dy0Q62yIlghHTaWI i5UgLjoVYr5PjMtCMu1ASoQExXHhu8B/mkFn/CPsnwVnt6SiOj0CRdJ45EjT kJaWjgiRGBFR8Qgn8JGxaQiLkeK//j978OV/+JzKH4M9MYX4igF9L33l/nQn QmWMBTlN7GMeQu9GlLwesdk+JMhNSFAIsJsZp/heZUS8Wrj+sB1pllaUtA6i tHUACncPnUAn5LXtyKwdQjKhTy6sJ8g+iBmnRKZOpLsnkV43h3TvLLL1h1Fm OA9NxTlUVV2htF2i+7rGRL2KTPUjZCo3kJ2/CWXJc0rfNgq1r1Bc+Qqlhvco M71DufkdKpwfUeH6BhVuvne/Rkb5PSSUrSJOewdRFbcgqrqKOOsNxNkuI86+ CIXrHpTeVSjrbkFB6GsJvXCorf/XQ233qPp9n8L0Nt797h+DqOye2v9PuPPk NfqO3UX/8cdkn8p/6jXjwPtPzO8q/zCZL2o4z73ez1EbYCJqYCJqDF5yKakg +6XcJHkOpAnMF7ogLaL6lzag1N4Oi7sOeUxK+RydhVobCisYDSrIPJeqCjKv KUdBWjwqyPwbWzN2aGq3rH48sTZio7ae5WO5sWGx4dvz58V/jvva0g5FfgUz TY+w0L2JkyPPcWFmBzcOvsLq8Td4tPgWm+feY/vSN3h99QPe3fiAD7c+4tvb H/H9ysfPGPo/4iReLb8LzhmZXriNwembrFsYmL5O3K+gf/I8GutGoGX0jkos ZbwsgDihAMlJhUhJUiE1WYn9Mj2+oo7vy3JiX7YXYbl1jOUmhKXqEUncRUo7 olUuRBd4EFvgRCzHWwo3gtLVgyxLB1L1TShuG4bc28eI1wclkVcS+VxqfK6r GyrXEFTOgWAczbN2QVHTBJnGCZm2FinVZkTrKWqldlovM3FnHivyQF7lR2B6 cVffKwJBvNOp66lcpla3IoPop+nbEJZTS302IKzQiTCuW5jKhogCG0TFNqJP X6KuRTzjrpiWTayuQQxTRlQJeSp2QiR4AXMzkgxsEVkqbhcZxIkSxIvTkJgk RXIyUU/cnWqSJpJAlyTgHkrcd/XdlLaLvPnTXDalLAk5sjSkS5kYktLZWsWI jIhB2Bf7IErIpHdIQ3x0OhLZUkL2xOM3ohJ8Ja7G3gQT9qU52Gq57XMaEJkX QBQtqkhZj2ilj4PWy5TC9c9jsaUJ9zGPKeN2sTSjtG0AhYE+yO1dyLazFdra kU1/lF07SHvLQV7YgNRC9gxdI2LYJsW2UaR455DmPUDej0FdfRHlFZdQXX0D 2qob5J2xv+QuW+4GMlWbyC7ahrLsFfK1b1FY+R6F1e9QVPUWWtMbaKzk3PM9 dN5vUeHjex8F3/cKRfaniKXYR2iWEaG7hijjVcTYriDGvoRs8p5Dkc+myGeT 975fj54xH/eS+d41Rv6eNYH33Yi8y/tf/Mr745foO3wH/UfX0X/sOXX+Fd2+ wPtHOCe2UNi4gmL/HeS5L0CU10Er14pImQdRWR5E53iDmzK5kKWy86NyyBU5 GVJctJVu5JhbYarzo1hHPdeSdy7zKn3IrfRwaWPVMCmooUqLgz8hFq9tLeS9 GVs2gfcmbFgbWOTdSt6tdnx74VfedyeC6jCsv4lJ3yPMtT/F0cEtnJ16hqvz L3D76A7unXqJjbOvsXXxDbavvMWr6+/w9uY7vF9+j29uv8fHYL3DhUsbOHT8 Loamb2Bw5hbrNgZmltFHjW9pOwaXe4QR2gORcOaPwCemlCIlTY0MCSu9EJHU bpGqgZA3Yp+iASF5TQjNb0QEB0qkiluq2AdReROiypsRq+tElmMYhXX9UHn6 kFbjRwphl/O93EttZykE4L3UeMKu8gwh3z2MfNcA8p19UNHU51F85IylMp2V EBsRXeMJgpmea6HDEra+l/rfiIqGQSQU1SG1ohliTQAJ2gC9QAshb4WMQpUl HCYwtiOysgNf0bV+zY4dQuDDCXIUNT6arixGbeXAo84zxoo0zYgqa0aEuhGx lX4kG/1IMDehqH+UgUWFhJRsiFMzIU7JQGKaDMnphJ2VlpqFjKQs5MQno4qw 64PzPoR5ZdR1E0n/F1CQ8+zMNGEKSHAGSEIyWY+MRcRXoUHWw8PSKFARfBUm OacjOiod+5L1+CJWT22vDRr6EGHKk4KbXeVHVCFZL21DdHknYjSdwUv64spp 8jV1EKm9iGcyV9V3knP2W1qnbEc7cuxtyLEKxZ5bO4D0kgYO5nqkcfclVpF1 cw/E9jEkuecgtswhv2oRat0llOuuolq/DLN5FalFZL10jZv/CbJKtpFd+hpK 7XvkV34DVfV77rZvUGL9iXz/AI2DjNf9CF3996iop8Y3vIe2/jVrGyWup0iu voMw7TVEGK4iiqxHkfUssp7luYMs3w1k1l1Ez/IOesh7N2NvN5nvYh15Goy/ /yxIyH9E7wJH8uGH6D+yRU1/CcfgQxR5r6Gk4SbKmpahDdxGVfNKkOtYVTtE wiMtBUtETRfODibn+YIPqEuiDKQVCbcrpcxwdKTp/Kiqb4a21gWVzgFVlROK qjooq93IZbyUV1YjQ1MKbcjf45bWhNeMpDt2ge0AHtvIto1s2+pYnl/Zxp/B fQPvn/2CUdsDTAae4EDvJk6MbeL87BauH3qGFVqT+4vb2Di3g81LL/H8yivs XH+FVzde482t13jLWru2heNn7tGoX0M/VXyAYPfPrKJv5g4CnWdQ7z8Ca/0B RjY3ohPKEZeiQVK6cAfUCkiECy2zKyBiCo+mtYkpauMI6oW4YgBxun6IdH1I MvYjjaMiyzaENM8ckt0LSHUtQEV4s6xU8ZpGJNAlZFG95fxeNitHKCp5nneE cI8i3yPAPbgLt51wU21yrQHI9XZI2R6jGZHi8oRLzS1IV+3CLS1rgIqxU4ib sRylsWX+XbirhKDAtG7ugMTQgcTqPojsh+hKpxFWPYT95a0I07QgTN2EiLIm RJa1IJJ0RDKmRWg6EK/vQaq1Hym1XUiubUEC23DR0DiSC4qRkJYDcYYC4vRM JEqzkSzMKpIJ91Pava2CJFWGgsTY4PSLml8BJ9v5dOuKzGSkkep0Gf+vMKuL ET18nwihe8Kxb08sQkMkiAyTIjpSxnCQhfj4LESkViKc6v1Vigtfp7uxX04H RQUP536IKGlBlJrFzyPStkFU0U7S6eTLvUhg8Emu8DCS+5Flb6WKt1LFW6ni LcgW6LaxwZJw4UBUBp1QOrtBYnUjok09jM6jdNDTEOmnGEtPoYxka3Q3UG1Y gbn2HrI1t/kz9xisHkNOp55d/h5K3Qc6rzdsxu+QY/qIQuePKHP/AK3vJ2gb fkJF04+s71gfoG2iyje9JH5PuB5r7DQ3IbNfQ5r7CsIsZ5Bhu8fYvgKJ+wb0 k/fQcX0H7Td2cHD9G9x++xPe/vJP7JW7WB+9uI7e+fsIjK5B33SVHeMCSnxX UFZ/nX/rJqr9t2BsXobGs4TYvBaIC9qRkNuExFwhrbCrMbEIB+bS8138muOL 7k44XpxW4UOpr4Wy7YSSSGdXNyBH74NCz/d6CoyuEll5cjQlxuMNt6uA9baA tT2ADTuxthNrO7G2E2ubHb/bfvEr1rs3n7qEE91PMep9jMmOTSwMbuLU5CYu zG/i+tFNrJzawr2lZ3h0/jkeX3qBrSsv8PzaC7y4vo3tG9s4eeE+eiYvo5fa 3EON7iHO3TNraO69grrm07A3n4Kx8yo/LodDciXEwnk2aTXSs/SQ5uiRpdQj nt0sJs+P2KIOmtk+iCuHkWgY47AfR5prmiaKu79+FFnuUYidM4i3TiGVgiCl OUwSnjFBrGWebmLN8nYjm3jneceIPXEm1kGk3Z+QdhBppp5cbp5cG1uB3gBR jZuJyYrUHAt3g4Nh0AsJkZbRUEYqadzzvBCV1FOsuLuqBKxbGUbbiHoPRO7D iHMfRKJvAck0nUmuWcQaxyCqHkaMfgSx+mFm/SEkWUY5lMaQ5qA5dQwi2dGD JO6uBGcARSPjcHQP0MfIkSDLg1iqQEJmLpLleUiV5yJNrkBGlhwSaSakKemo TPnjreBKMkTIplhnyKREOhtpmQqkZyoRui+WBjwK+z6PxN79UoSGyhAVIUdM dHbwSqXE5Fzui2KESxkU5AHE8bPEFLYhsqAFIcVsS/x8ERp+rSPKhj7EGQbY gqaRUtmEZK0bSQw3qfo6ZBJjOYebnC4x29oKha2PRa9kYxvWNyNDOK9Z5kF6 Odu2uZuheCSIdHz+FNKyD6Co4jI0VbdQbVqFmdJSVfuAyXQNEs06hzcFW/ee P8uQXfEOWcRZRZEucf5ApL+Hpv5H4kus/VwGvmd9hCbwjstXDGbryHGs0khc R17dVeT7r0DvXUGdcxM+5wN47Lews/0j/vtPTx1+9/EX+AdvoMRwBKW1p6F2 nkOZ5xINAc1E4zUY/ddhCdyArfkG2/0AxPnNu6fl6StThEvUi7zIoFeT0m1L i6nOBbVIK7UihZ4th/u4JtCAzOo6bhMf5PSHMr0t6BXTdDoUxIXjutZMdFvx ivi+YG1yfD52EF8H8XUQX4cb6zZ7wp/el/JvcXzgBYYbn2KCyfrgCNP1NAV5 YRNXSe6tU5tYPbOJe+c28fDCJjYubeLxlS1cvfgI/bNX0DFxFR1Tt9AxfQft 02toG7sLd/N52PynYWy7jNru22zKQ4hLrYFYYkRylgnpOWbIGGHl+Wak5DJS spHFFXUjvnyQ1I6S2nGO9AmkOKeR4J6FrHEKisZRNvJp7vkpxDmmkGIMQKzz IVVXzy3STBspjJNs5Bg6kVPTEaxslsLaQ2oZqZ29LFLrbEOu009yfVDSn4hr bOwklUiRm5Gat0ttRlk9EooF62lHSI4D4Wyo0SWkt4jiWsDuouF62mcg9h9G gmcKCS6WYxpidpQEyyQSa6eQxFGebOVI5/om2ydJ6zjSPeNIcQ/RUPSS8DaI Pc0oGhtH+9GTqHA1IIGuOj6L5MqFiQeFSFHkI02hQrpCAUl2FqSZUuSnxaOS 1FalhSBTmkChlgQFO1WmRGpmHqIik7H/y1js+yIW+8Pl2BciR2h4NqJECsTG 8XcnqtghVEiRFkAksSEyi7Za1UmjMQSJfhAZlYIBGkKKZYimgevKbZ3Mz5ZQ OxE0EsKJwXimEinNTKY1wM1u9TNu5lg7CWs3qwsKJmyFo5PAuZGuoRZp7ISW bt3KZsZNkpQzSWjnkVW4iPKqZVSa12CyP4TNsw5lJbWy/CEkFU/YIJ6z3kJq /AZ51g8ocnxHPfwOpUzRGv9PhJTVTE1u+Q6aFkLb8h5F/ufIdj+A3L0Cuesq lPWXoQpcQLV3GV7XE3id9zE+uvGXwZH/16gxzTDYH4bafBLlNOJapuFK32XU 1F+Fmbzamm7A2XwT7pZbiKPMJtOmpJV2sAK0GI3BkyySEgcy1Q5IyGlSkQmp 5bVIMrWiPMDwYXKST3KstfCjcPRrqoJBaCRBjkvUrJdkdUdg1dGMpw4/Npxk 1VnPYjp2urE9MoJPsP774KINR4dfYqBpE2OEdZ6wHiesS4T14pFNXDtBYBcp t2cJLWFdu7yJ0WM3ERi7hMA4l5N0yJNraKK7cHfegJlbpqb1Kkxdd2Drvc/2 co0BwQex8DSSHMZQ4ckjBTZkFdmQU2JDtIJyVUBHVT6A+OopxJtnEGun03Ye oKROsQgu5TXGPoUY2wT39igSGEvjtHUEdhQKQy8KjZ3QmNuhZelMbaxWVBpb UFkTQCUjs666nuVFBTebttICTUU1ysvUUOWWoCiuFEUJOhSlGVAotaBAweDC OB6RJ8zrrsNe7qJ9+X7sFw5gVg6yiXDE1c1RWifYOMYo+RMQ24T1niSo0wR1 Bkm2GQI6Q0BZtAmJBDWtjs3HN4wkXy8SPW3I6hmGbeEI2k+cQfvx0wSzEKIU GSKl+YjNLkJSXjGbRyG3lwoZyhzCKoMkMz34UM78tCikS9LYZIRpcEpW/u5N vPYmYv9XiQgRrvvn59ofpkRYVC4iY1WIEa5bTy5k3C4iqMVIytIhQhZAVB4d fWE/kqpHIDMOIkXfhwTTAFKsghUY47pPIsY0jGgj00wZ7UiJBZJa2hoLS7j4 0Nr+GS1qJ5VKwXiscLZD4WpFpomRWMvep7Uh1hBANNmPLedmkLBnyReQkXcc GiqrAKrR8QBW7zr0zodUpVXElNylm9lkP3gFhfk9VLYPKHB+RLH7I9QN35OC H4KQalr4vvVb1geUtu5AWbcBuUeIvbdYl9jfzyOv+RxqPffhcT6B27FGZf35 f/gkrGePXMZ0z1GoKw6izHCC8XQJlY4L0Hsuw+S7htqG63DQH7uab8HbtgyD b4nmoImgtiO9rB0ZzBPS8gCkaooms0RmhQuJ9MUJZXa2cyfzlQsZeishNRNW Qiw8ZahQi0HupblwGWaZY2aYZ04k5eOu1o4nTgHWxk+werFOYf3d9nbCnz6p 4iyWL32L7sAmBns2MU1WD5HVE7TES2T1PFm9TFavUlivXdyEf+IS6kauwTd2 m7UGT/9duHrvoqrhPBm9BkPnHdT2PICj7zF8g1vIrhqnULC1KOnu6fYlRS5k lbiQXeaCOK8ZMfm9EJWPIEo/w+5LBqyz5HMW8Y4JxDpoKV3jiCan0XZhSXtp 7IBY3057Rtts5VgiKxm2URTWDaK4fgCldQNQs8p9fdDU9bK6oa3vQEV9C+1N Ayp8LoqYGX1aOcoo8Jo8J0qKaFNKaN/KOyHR9iBO5ceXEgf2yl3Yr/Qw8fkR XdGC6Mp2RNH2ipi0o+2zZJXWzjqJeAt7ChlNtM3S5s4imeufTEOQ7J0ll/x3 1wiS6ri+XJ8EXxuUYzOoHBxDcWMLLbsfcrMPooxchCTIEJKeh9AMZfDCW3F2 LlN3LjJymVwVGShMi0RKeiISMpiCJUokygoQw7S6d28yKwVxmTUIyzAiVKxB SGQ+wmIKESkuRHRiEeJTS5CYUUquS6lqav49WmFFJ0SFPUziQ8G+l2kZQEIN +6ahm9t5ALG1Y4gxD0Jk7OXnr0N0kQHp5npITI3IsjDZ1rYHj0/nONoIKVOu qwU5btobTwBphDStwgoxI0uUsR+pyV1ITSesWQvsP8eRp7uCSht7ueM+an0P obHfRnzJTcSUrSG5+hHt9RZN0DZyHW+R73qPQs97lPq/g7r5W5S1sFo/svi9 tpdUz8fI8j1AVt0q6zoyfeeQ3XgWisAS3K5NuJzruHTp/a+Q3l9+iJmug5jr OYa+wEkG7ZPQGs+jykpFdVBR3ddhq7sJZ9MtekQO87bbqO9cQQM9orySbay0 hT2oFRIdi8FfUlGPdB3Df5kNCZpaxJSaIK6guqpr6Jr1SC3hZiuuwgCTyPHw TJxgHQ+T4WioFEcI66H96TiZkIsNeqt1Vx3WCerz0fHEXUj/OrhYxPyB1+js JaSjm5iaoage3MQROt/jJ+mE6Xxnj92Dte8irIM3UTvEfNG9CvfIQzTMPGQc p4Cy3Rg7ubF7HsPV/wx1wzuwdt1DYlErEpn5UgqZXUp89Ag+ZGt8Qd8QqhpA ROkoRLpxNmwOeOtMMJMmuuluXRRQ9zii7BOsUUQ7hyGyDQYHThwFLZ4lrqUv sLDMw5A7eplTepAXrG7kerqQ5+lErpdAePxQuOuYHRworKlAlTIVmTIdXaYH orwAIvNbEcWsJipqQVRZD/bI3ITTiX1KF8LZVCIKOZirOxHlmoSI8IkIYrR9 nqI/j7jaOUI6gwSCmeicCx5ATRKyax1hrZ9GjGsIiY2shh6IAz1Ibu9GSXMH 83QrB3mAcDZBVukLZpyQlCyEEM5QwhchyUakJJONjTk0TwqpLB5xaRmIy8hB fIYKsQkK7Pk6BaHCpWZKM0dKA8IkFoQmViIkughh8SWITCxFTIoacellSJCU ISVLmE5azixMQDNpGJQ9iCodRGTFGJIpmBnmPubsPgI5iCgTc7dpiHD1ILyK yaSsFhnGRmSaW7jezKnWFmQzqwrX7GY7Wa4ALSeL2zrTXo9U4WSdxoj4lGqk iDuQmjrKPH2An+UY4bwMnX0N1a41KPSXkWm8BVXjfUjNq0ivvE8H/oh/5zH3 43M2sGcobHiDYv9blDa/gbrlDZXzJUrankNRv04g7yOz/i4yG5Yha7gCKSVP 2XaFDXkFTudTjI4+x19+InOqfQpzXYdI5inWeTTZz6GikrbYyExqvQmLcxk2 3zLJvA1PywrJXCGZd0jmHTT1rqCU+zi+uB6JmkYkVQhLN+KC5xDMiCqq4VjR I7qgBsnFlE2SmU9JnaaBWYzIxBnWUrhQMpwJl+JUuAQnwzJwIjQdZxOVWK4w Yc3pwS/bO5/I/I/BhR837nyP+dNv0Dm5iYEDmxg5RNt7bBP1E8vQdlyhl7gJ 7+QDtB7ZwtCFN6ijta0OXIWhbZWWdh3W3i24h3ZQP/YG/qn3cAw8JpXNdPEN NAaNNASNlKUGfpo6ROZ2IqKAcqmhHFZPskVTgkhkgofZp24asZSdaCe/L8hO A+1u4wHEGChptbTCtF9iVoJQtSzzACTWLiiFqzg8HVB621ls5V62cU8jW7mX 1NpgKM6BSZkBeZYKEen1iBDu7KZoxt6cRuzN9iGCOfirvEZ8mUnJZA7dl+sg kU5EVrYgknY2kjISZeb6UiJjbFwf2yHE0Y6LHZR61xwSSGNiPauRe69+gvLK LlLXh7jGPqT2jKKgtTd4aVm2jRJjZVma2XO5TTRNwf4br9Rif4YcIVIFwqRZ tKASxCkktLxSiFIzaYEViIiVB++QEUHaUkuEozQNkGr8SCyoQ3i6BSGxaoQl lCMyWYPodA3iJFrGCy2S5Fra6Aok5VYjXjhDlT2EsMIxhBQIk7CHEKntI53d iKzqR4R+mNuCVdOLcH0bsgtdKCi2oZA5tIijsKhMeIJSUbmFxqtIw1igMSOf Jk7FUgrXG5XXwBEdAd3+REijqSlJw7Tks0hXHoGy7CwKKy8jW3cJ6fqbUDbc RXX3XXg6H0Bpvou0qntIr2EoNd7jPtvgftxEru8pigPPoap/grwGSqSXJNat QUYapQ23WTcgabgEKT1tTuslOJxbGBnd+UTj/4EPb77BbMcsiTyGue5zONB9 DYe6VjDZuILqyhswmlZgcTCSeVfh5Pp4Anfha10jkWto7GZ867sL/wBrmGrU sYQ8qkNkvhkRKgO7uZHd3IjwAgPiC81QcBsZK7yYIY1nIjNxPiILF7j8DBcj ZfhnfC/F2UgJKc1gpWMxLBXH9ifhl52XSPrTp9T/e9x5uoPekyvoO/0I/We2 MHD2JYYuvkX91EPoAzdhaL9P7J7A1v8CnuFXxPQ9ArMf0Tb/HTyjW0hWtzIy +JFS7qfnbkQCh1hCmQdhCu7aUoqdjkO0hoJoGUOcky6V+MUIB0LdxLBhHpKu U0hsoUOsbiN2vRTNPqa5vs+QYOuDj/T1IdHSAwmNk8LTukubrxk5NILZngbI XR6oaiqhU0ihUsiRpciHWMotJQ3gq4x6fC3z4uuceuwr60NIYRtCC/zYq3Bj f4GP710INXYjnLobWTuOSAM7hXGMSYmBi8Y6xkHyXAzCHpLHwClumAkSF1s/ ikjPAKIYJJO6xiHtGmFH6EaOvRMKOzuDsK7WDsgNnZBV+CHTsisxLEvZX5ML 9YjLKyMdhUjIz2UiK0eRoRZFNU4G937qBzdliYedrJ4Gm1pKIy2raEWE3IPQ JD3CEisQkaqDSFKJWFkl4uXC7CeOinz27QIrzbgpeG1aiHwQ+xQD/Jz9CCvt Q7iGlOkGEFY1grDqQYRRF8MMpLGqB0k06tmmZhTYAih0+FHi8qPU7Yfa04Qy bxPKvY3QCEXPMaSW42CeGIdz45Cf6IUscRgy6SxkuYdJ5xkU6S4i13gD2XUr qGlahrXlLhwdd+EmfWrPKlKrqIlmaqP1AWQ2lp2UOe4h08Xy3oXMR9rq7yCj 8TbrFus60houQhq4iDIa1gsMX//jJ/17dOs+5joOYK5zkXUVB+g6j9Czne7c wIJ/HUbhoba1a7Dxdzvq78MdeEDiHpC4B2jofYCmAdYwkylJNfjmUVrVyhja Dg33ndbZQZPdxkjajMKKBpSyg04lFZMmOc5HynExSo7LrCsiobJwOToTF0Uy nBNJcS4qA2cjUrFcUImnHUN/Btz/jTtPXqL3xB30nVpH/+IzDJ4TgHtH4B4R uNvUuYcEbgu2gR0C9hYNUx8QOPAd2g7+gK6jP1EPn9MJHmYMaYJI3cDy7Z4u J4ShqlGEl01QS+g0jZOIsh6g21yAyEG9aDpO2JY4Wk8ireMwonVN1ENGFysj jE04odbN/iF2dOMvkMBXsY2j1yUcg5V7A/hv2Q+bkMURoDIaYFRKkKfMEmj7 DDJFEQyIznDhyyQvvkxx4St5E/bmtrLttyG8mIOXaTEk34ew4jqEMC2FmocQ QZkLJ3ARNYRPMGe1E4h2MNUGewMh89Iw+1iELbphBOFeSnL7JJJ7JyATzs86 e6DgaiodlGRCl2sfQC5bZqauGTIdTZuugeB4d6+0Kq9l1UCqLkdMZRVsNK3+ 8QNonjhKCB2MHT5WA1LVAfazZqRr2pBa1oLwTIKUVImwtCpESasRk6lHrMKI mCI3YlQ2ROeaEZNnDkKXkM+mo+jA17mD2F/YjxB1H/ZrxxFSPYGQqmGE1gxh v2mU8PUgQkvzXdGJRENL8JCr1B5Aqp3gOwNIp+mUsKSE0FhWAF+RDPVFUjQU S2GQyZAaM4jUtBmk5hxi+FhEXsU5lOjPQWdhua+guo5WqekqLG034O5fhYUD Pc9LuaPspdfeZfq/C4ljlX/jDiTeFWTU3UZ6wy2kNd5EauMN1lUk+S7AvfAA L7Z//y8/ncKcaR7BXPtR8naBdQsH2u/hSPsGFjue4XLvNm4NvkaLm+7M+Qj2 ukdwkT9P2zrq6Njq+9ZhqjsHjXEKBscCk+MYys09KLezXANQ2/uhtnQEDyA6 6ACOhstxKiKbCpaDC1E5uCzKwZXoHFxlXYvOxpUYsheThYvRAm8S3C3R41GV DQ90tXi3eB6Jfwrcf8DKYwJ3jMCd2ED/6edUuFcYuiQAtwG9/w6BW2f8e0bg XsEz/p4R8CMC8z+g7fBP6Dr2M9XxtygaecS2dAHxpmlEVXZDRDMVrwtQ8Top KwcQqj3EPXsI4aaDENOypwQuIKPzEussMghcavtBZHipgsZ2SguhI2xxHLnx rq7P+NJJ/xDv7EQclSPTEwiWzN2IXJMJNWQtV5GFTCqbVFkEmbKYVYKklBx8 EW7DF2IPvsrqpJdsJ//tiCjqQKS6LXjSPaTIh/16AmccRpiZg88yjnAjYeLX EZZRRDnYJ+iFRT6hxsl6FHHbj/B6AulnamXCkPoGmIZ6mTZ7oSB0SqcAHVOp YwQqxzCUpi5kVXKdK5mmdL7gQbjMCivhMxA+LftMNWTqavhH5mFpnUAiE2i8 yof4ggYkFfuRxvWUaNv48x1ILm1BRA6VLl1PX8oEorTT/zCxKm2IVFohUlkR U2BDXFFtcPpCQokJkap67M0fxNfqCeyrnMXeygl8TZXba5rCXn7GEMFf6pgD qjqDqTeaXjOdSpdB6DIcu0ul3gabQvIZbDTu/yusinTUsiyKNBSmVSAxdgLJ knlIVSchKToJheYk8qtPocR8GuW2RVR6llDTcB7WjmtwD95G4+wjWIcfQEtr l2JbJtcsN8t7Cyl1NxmkWbSTiawS4ejguXv4nz6BNhuYwFwrA13bVdYqDrQ9 wtGOTSx17eBK/1ssj3yDtYmPuDD0Dgu9r+FofAKj9w6qHJdQXDGPKssxWOoX 4eg6C7WpH2W2YQI2xrA3yuUI7KZOjKv0OJmUjSMROTgVqcDZKCUuiJQUMSXh UuJqrFAKFuFjFFjNrcCGwYONGjc29A6sV1nxoNL856B5sLJOK3mEoB2jsp16 tgvaxfeonyRoTQStdQOm7uewDe2CVi+AtvA92o78iKYDH1HQvAY5M2p+9wOU DK+jcuwJynruQhW4jPzmi3TxlxHNfJvgEDzBMtJoT9Na+L7tMhXtHNI7T0HS yTzeu8hNTR9HdYtmj4lx9VBSCJ1HqC6+70QM9T3OymTENqswWGAhZYocGcVM FXxCkFRZylIjMYUejXq+76t0ktaCPals8Zmd2K/sQnhhF6JKuyASLlzTdZEy tviaYYRQzkJrJxFmm2ZN8D2Jc1CZPRMIZ+oMrxeKCa91DtEt84gkaSnCOXFn H0nrQw5LQeKUwjUJrnHWKFTOYdI2iGx9KzKrmkhLPcvN9zYujZQ8klbFnK7S ocrbheJarpvcvnvxrEBaSQBpZcIV3+wwJCG7ppuWvY0J2cfPY2UatWFfth2h SgdThzAfwIGYYv58iQ3xJbWIL7VAXGoKLkNLurBHM4d9xkPYo5/BlyTtS9r7 fYZehFZ2shF2spOE6TvpGqJIW4olwBxHj16gIlYSWJUkzRokrVZJylhGmRiV YV9AEuJFWtJBSBWLkBUuIkezSNIWoa5dQoXzLD/aWRgazsLUdBa1zWdh774E 7+QK6hcYpI6wjq2h7uRdDp/bqJm/A/fiXbgWV+E4dRvuMzfw7re//0Taf8Jc 0wzmmpcw13KDdQ8LLU9wtP0FlkjVlaFvcHvsO9yb+gHrcz/hWvdTTGnm4cmf Q0fNSTR4zsMUuARrz3VUN5xECc2WqWYQjdy0DVUdOFTqxolSO86WmHGpUIcr OXqcTynFaVJ2NjoXF2JycZF1iaQ9UNXgvqoaL8wNeGaqxxOTDxtG0mZwkTY7 Nqot+LB07tNZiN17lP8r9By8Q9geoe/kM/QvvcQgLWTdxAbX5g5qWmh+BUUb egn3BLPc7Af4F74laN8HQcvquw8VSz26jprpbdRMPIdx8gV3mnlqG9UwzzyH dpARuOkekn0rSKGRTwncQErrFaS0n0dqx2lkd5+GavgSVGOXEWXuoJT0QsSB K3L3ItrbAxFhE7k5CF2UI1sbckq1MCoyoMqRQJKTi4ycImQodm+7k5CSjxhh ZllUFkLDZYhJ02OvuJEBroeDsgdhql5EFPP3lwlH1nsQTsgi7QcQZp1DqG0W ++0zCKFvDPXya98MQgXIWo4isvM04rpPIaZ1ARGNU4gnPGmGNoLWCzlrV9YG kEe/qXKPI5+g5btGkO8chMrWD7m+mbAQNP3uRRmZeoJWpYWoUo80ZQUyiizI oF+MyhRA8xG0RiSVEjSCJdF1ILO6C9n0u2nl3D7FPfg6L4AvFQRO6UIIZS2c ATSy2AVRcKKOA7EcMbFq+koGP1G5cAFvgG6jHUVjK/SQg/TOffjK0I89VX34 mh5yL2UtvkSYyWdDWk4l8lJzgg+GFh4KLTS0WtZnfM3Avw5SZpIloDrsS5SF fI7Sr/8OReH0ydJFZOYuIbt0CXm6JRQbllBuXYLOtQQ9nYyhcQlmUlLbzmJ8 cM0uw32Ege44ySJpjtN3+TdsfP0LWE/dgfPMbVL2Dxyhwjj9d5hrmMOc/zzm Asush1ho3cSxzpdY6n+HKyMfcXviB0yZL2Oo5CgGFDM4Ql294L+MmyPX8fTI c7w98zu8O/MLzpoHcYhx56C6EfOsBb4/UubDqTI3zpXZcKW0htQ04anRT4oC pCmAHYsfL1mvLP7P+NKEf85vNeI5Qds012PjD6A5KW1WPNIb/wyyNHTPraD3 0EP0Hd9C/5mXGLjwFt6xdVTRNOubH8LYtYnawW24xl+jbuYdmha+QeuRj7Ad eI780UfQTm6ieuoZqieeoWZSgGwb5ukdWGZ2YJ7j+wMvYDqwhfyeB0isv42E pptIbLmKxPYLrFPI7j2HgslllB1+iLzxqwxNVB2qQoS7nyUsCYarm7ayDukl WhQp5NDkpEMmPPYup5BVinSFFgkZxYhmWo2mm06TGpBnZMDKMCNWXIHwFC8V oB/7c/sRxuASWdYPkbYf4dWCks1QuQ4h0ncMEUI1HEd04Chimw8jpu04RD3n Edl1DmFtZxDtGUFyRT3EmjqkGluQ6RQUrYeg9SHXPcZBouLr3wUhKwhCNoR8 Ov+8WubM6nrIhCufDDYuCZleuJeLFily4bhiNTKKAwjPsCFG4UV8YRMha0aa RoCMIaqkDSJlB2LUIxDZj9BDLwSvsBNu47a/uAmhpX6EE9IIghkpAFXeikht D4sZ1zCEBNMgkpwT0B28h5y2BcQYGhFd46K3FJ6CoWaDUgf9diZdgTy7CHJZ AXTyTJgUAlxmwTWaSdj/Qg1LgD78E137/x7ln/89+jPkCGRNQkrKsvKXkFO2 hPyqJTrHpeClKTrvEqpJWA0JM5Iwc/cSTH0kbf42rMfuovbEXZhJmYllPL6K 3mvr//rT8cZZ3wHMNe7eX2muaR3zLc9xrOs1lga+QXPpDfhTDqAj+xCm9edx wn8T1zhu1w5t49XiP+LNmX/E26V/wLuzv8NhdRMOlflxkA1nvjyAeY0fRzWN OK2twwWtC9fKjXhCqLb+AFUAr2oDeM36DG/4+i/4StBqm/CCdG1aGrBhriNd XtJFw2ikhBnM+DO0tFh59B6984/Qe/Qp+ha3MXD+NYYuv4fOc4up7B4MnY9h GXgG59g2vDOv0Dj/Bs2H36JodAXl4w+hm3hCtLZQNb4FvYAWdcw0KyBFtOZ3 YFrYhvEgv39oEzWH16Hou420zmuIa7mAOPprZS9N5fQaig+uo+TQI2SPX0MI DeN+Dsl9jn7EG4TJGCZklpQis7AAsrw8qORSJMvzgw9LER6UIgzPiMhsREYq kSw1w0gnkW+agzjbi9jEaiSk1vD7BsRkN2F//hDCSoeY/VlCPDHMYL9lHiH2 wwjznUB440nsbzyOiObjiGw9gbCW0whrOsUhzd9HKyUuF2ZCeBhXOiFhyZ39 UBKjXPco9YtRjLU7+WRoV7/4GYIXtDrakcVdITVYITEYINGXI7WgAPEZaoil 1ZBrW/B1Ug32ppkRLncgOr8eUblEJquVcasPiRWjiHMy1TrmkGSb/gxJFN3P kWw9wCTFQFs5gthK/hd+pLjqESSZJpDuPIBU5wxjzwRkLUegO/oAOuaCVB/l 2+RCUmEV0vMqIMnXQpZfjkyVGlm5xchWFEKeqYKBEmZUSIJ2wUi0DLJEVAtg hf4GJSF/D/Wez+GJisEyI8ldgxeHCgegyznF3XQW2dqzUBnOoth2FmXuJWjr l1AZIGRtlLNOVi+/N3AOVQSs+uhdVLFcJ+5hees9/udPZM24ZzFXdzF4G5K5 xg0caH2Bo91vsDT4EaasLRyse4XZxmWcHn6EtYMfsXXi93hx+vd4eeb3eE2i 3pz7Hd6e+y0Ol/txSNOCBXaqeW0r5itacFQXwGJlAy7oPLhWYcFTUvXM3Ixt SzMJaiZVLaRJeCL4W6aT/46vJM3qxzbp2qptxGMLdctM3TJTt8zULVMtPpw7 K/5TuP4d3n74BT0zD9F7eBN9p16gn0ls8NJbWNr5ievvQs9Qaep7AvvoM3im XqCB0PgPvUThyG2ox+6jYnwDlZNPUUm4qiefBU2ikXplEsA6yGIfMR5+AcNR /vuRdfbOO6hYuArN3CJqprjFx67De/7VZ/BeeIlkeM7zRw6vBU9ip9EHpmlq kMFAIFFrIC0thqQwD/FZSiTIi5GYTT+YSY8Vl4/QiFxklbSzO96EmVnY0XEf ifktiEsxQUz5Ss6qRXpOLaS5tfRezUikLIRpR/BF5Sy+NMzjK8th7HWdxF7f aexrOIMQ7zGIfIcQaxZOBk8hxjKJWCurrBFi+gmlphXFmgBKtAGUav1QB6sJ ao1QjSgtq0dJWR2K1F4UlDmRq7aimC0uv8qIvMoK/nwhNKIYSMSFyEjRIk5W g9/EVuHLFBu+lrixR9qCEAXDaNkQkg3DSBVO/DtmIDZPQhy8cm0WSbUHCNc8 ksyzSDbPMTzNfYZUMvcv+TqDNPccUj38tmcKubTfuhNshRSGwomTEFE9U/Np TQuomEVVkBbpyIQGWQVqyFVULqXw3Kqsz1CjEPSqhmhVhu9BKbEqomYV7fkN yj7/DY4XVRIrHx6yAz5mXde1Y7j0AKrUiyiuOgOl6SzyHUSMWUzdeBbl1C4N tauM7rCw5xwKBy+h6eQjHF7exocffvdvPlF1fpRa5aYR9JKqhl2qjvS8wSKp Gqr/DnMTv2D54M94cPhnbBz/BZsnf8HzxV+wvfQLXp79Ga/P/4Rb/iM4zB10 iDQtaNsxz1VboEE+VtWCM9VNuFjtxS2tne6uGc8tLdghSa9Yr2tbSVIrqXpn bSFV78jWa5K1TbK2SNbjWmpWLTXLQs2yMHZZrPj2/LlPVP1dcDGOI0vP0bPw FL3HX6Av6AZfoe3oM1R4VlDdfB+GnnXUDj2Ga+IpfLNbjFVrKBi+hdLRNWjG HqFi4jHJ2kQVHaF+9jlq6P6MB0mSQNORbRiOMYrRaVYefYiKwyvQHLwC9dxp jCytoufKC0w//Jn1E6Yf/Iip+99jau1bTN79Bi0nbqHQE0CKphKp5RXM+Wpi pkJkTgliM9WITi2BKJFRK78heOFZtf8GpWqVlv4hXF2PUWo/RZflhlhmR1K2 g9HGCWm+E1mFTmQXO6FgNEkvqKMcdCOydBBRFez7euJjnEJUzQhiTCPB03si 0yRE5lHEWKkFtObJNX1BPUg2jaHAMcR+PACNp5/bqx+Vnj5U0b1Wu3ugd3ez OqH3tLICfF8HvcuBarsJrupCHMoRIVdSjVSZE1EZdfhNghOfx9diT7Ide7Ma 6Vo7IFIzcmoGEGsZ3z3Lz3URm4mUZReppFoBKaLF9ynUrhTGx1RKWqpT4GmW 2jSH5LoplCysQneKTJ1kRzt2HbqZ09weWqQWG5FebEBGiR7SkkrI6LazikrJ VgEylbmoyslAFbGqTI6GJmwP8glUwZ4vUPj5HhwmUKsE6YGhnkDVY9PYgOem RuywXpkbccYwhknTPLzWRVicZ2CvW4SzaREmgqVvOYtJ/wGc9Pbjt89e4N9+ 6vAPLqxjzn4Wc67b1Cq+p/s7TI06PfgNLo5/i+sz32Fl4XvcO/IDHh3/AU9O /YCtxR/wfOkHbJ/7Hi/Pf4+b/oN/pIkkzVd24GB1B44xJp+p8eNiTR1WK710 dC2faGrFK1L0hvXW1op3tlYCZWuhAXxto4RZdyf/P6ZMbVjr/zgZuNb2pxMG f6Xp7Te/Q/f0E/Qcfo7eUzvUqB0MXHoJU+td6ITz9R0PYOx/CNvoOtxTG6ge uwPV4A0UDa2ibORBkCgtTWCFYAJnSdT8c+gPvUDNERYJ1Z98jspjG6g4eg+a I7dRdvAyvMdvofvCM8ys/571O0w/+u0uVQJR977H5NpHTNx5h/HbrzF2Yxv+ g+dh6B5Fob+DRqsN5Z4B9J97iv7zL1DhO4WqxquoDqxwnR/A1vEE7t7nqB/Y QWJBR/CpfUkKD1JVXgqch0bSCzmFI6vcB3FJPcIVXYiic4kuJz3VU4gzTdMd jSHaPIwo8wQiTeMQWfm1fRQifRdiDcLlnCOIN45CzErh/1M6e5Hr6oXM0YNs V0/wlhdKTzdyfV2sDuTVtbCaoPJ5aBJtUOUrkJspQ3xqFWIy3NifYMeeJPcu TRSpfRIH9gtXkRUxT5V0IsI2jQhSFMUcGGeeQQJpSqyd2yXKsoBkZq1k+wKd Hss1jxS3MLFyBsn1c5B2nYBu8Sl0p9nNTq1Ce/wGuq9to+XICt1ZW/A6vzS1 CRlq4cScQJQGsuJiyIpyUazIgpY0qaP3I3f/58j7Yg9MUfE4QFW7RZLWauqx bmCKNzFzmJvwkvWa+f4t651QtcKyEW9Yr+iYXljq6LQ+5ZEaBzb0tXjePYC/ Co7F/x3T5kXMWW9izvcQc83PcLD7FU4OvsO58fe4OvMNlhc+YJW5/sHxj1g/ 9S2eLH6LraWPeHbuI16c/4AHU8s4SLNwUNcS1KN5UnRQT5IMbThjbMaFSsGt teySRIp2SWrDG26Ht7sUtQpmjywFSfp0G43H1k8k2X6dVm/7k2n1u88WS8XK /W/RfeAZeigfvWd2du8zfnkHZa5lVDSvoar7HsyD92Efpw2nHOX2XkH+wC2U DK5BPXyfID2EdoogzW1Ct/AMlYefoeoYl8f5NQHSHnuAcmZR9ZFl6I8SoHNP MHL3R8xs/APr95gOgvRLUJqm7v+AyXvfYmL1G4yvvMXYrR2MXt/CyNVH8Bxa gnPuDPqXHhH2LXhGbkLnoxVvvAl94B5MbY9h76Ih7X+JhuE3sHU9QmJh++4s yIJ6Wpp6yEobIKULS6ILSy51Q5TDMK+iJKlHEa0bY3ifRBwlIKZ2HFGWKQI0 iWgnl07CZGFUMQwgzjhIeRiiPDD8G4UagNzW/RlJ6kL47l16hOu7PMK1Xa1Q ePzI8fBPO91IrmKoE26RkZiFmIR87I21Ir5kDv81xoovEh34IsmKL9OtCGMA FOU1IUrbHbyWK5JqFGmYQiQNXTRVKMGyy1Bi7QKSyE8S+Ul2CbMEWXX8vncK ifVTDKfshWe4a86QodOr0By7hslVbuI732Fi5SMsvQeDd/ZMKTNR9fXIKNNB UlYGSWk+cvKUKJGIId/798j5zRcIZChwjmnpCrv6ck0D7huYJsjPM7IjHCh7 zXrHNP+e9Y3V/xk+cAT+c1olosWOvl1L4SJGG2YBI1okms11vemvPh1Mf3CW XdV8HbPue5j1P8V85w6ODrzCmbHXuDj9Btfn3+L24Xe4e+wdHpx8j/XFd3h8 5h2enn2HzfNvg/d9WFB7qEHNmK9qwwE9nZ2BBJnacdrUjBtVJJ4EPbW04hnp 2SY9L1mvbZ8osu9q0ls7HR8xekGMNm1+ovPrNFciZCdCNhs+/gGhz4OLMRxe eo2uhW30nNhB7xIRurCD1qObKPOuQNvCzNRzF6ahNZT3XUd25yUoe66hoJ99 bJBYjKyhbOI+ymceQTNPXA6zjjxC+ZGHxOYB1Mfuo4Qps+jQDfgWH2N07RfM PP4n1j8GEZoOIkQdevQzpqhDk/e4b+9+wPgd4rP8EqM3n2Hk+jo8R84Rn7Po P7NOhJ7BO3Qbld5LxGcleCzS3L4JR882PIOv0Tj2Hs1TH+Hqf0otaiFGTXQw LHUT4op9iCui2yv1ECM3IrL7EVk8yrEqzEwlQtSWaIaRaOs0YoR5eV6OR/pu kWWQ+PQh1tSHeHMfA4tQ/Ujk+wRjL7Ls7VBSIxXu1iA3OV7hKq0Asr1NHN91 iLe5kZWTj/ikLIiT5YgXpSIkogIp6pMcs2cQnTeCsKx27JPWIyS7DpF5DYgU zlBRE6OMxFcvLOk4TbOI+cRQIp1couMgEt0HkeQVZtrOI8E3zZpAzthFVHBU Viw9JT/0CqfvoufWezrmn8nQj9T57zFx+yPGl9/D1DsHY+88CtzNdNEabpdK OPx+DLkdGCtUY0nvYLlxXu/DNWrPCrXngXCw2eyntgjHw5rxlvWeueID6yNH 37c2YUmWOArfEKIdNvMt4Z5IFo5EE/XARB0yWvDN2bN/9emCpqXeB5iy3cV0 w2PMtm9hoe85ToxsY2lqB5fmXuL6wVe4ffQV7p54hXunXuHhmVdYX3qJDabs DXb8OaUecwRotroVczWEyNiBw6YOnCA8a4ToIQF6QoC2CNALwrPDemX7I0TC HPE3hOgPANn9u/PEgxNN/wDQpyN5u0+i+7c4fO4tug7toPvkH+FpObqF0rpV lNPMVRKe4s5ryGw9D3nHFSi6byC//w4Kh/l9RqSSmXsoPXAfpQcfoPTwQ5QQ nGJGoMKj95HPGOQ+QwDWfktg/l8GOAGdvwnCMy3A80l7ph4SHEaiCRq4cRq4 sduvMLrMn7u5Ac+x83DOnkf/6Q30Lz6Hb+gO48dVRqFV1ATWCc4zOHpfwTv8 Do0TH9BM69w+/yO8I8+QXN6DmHyatXwfoorqEFtaD3F5XfBy6aTyAMI5aCPU bPA6Vs0MB+ssIi0ziHUvIL31NJJbj3HA8ncIc0S4jLP0IN7S8xnEtT34b5Bg 7eE47kSmcNW5p/kzwhJAXPCCqyQXUXUIk4c1SBfuzpRMbBIyER+RjAzatFTF MUhKlpClu4AM7XGEZAYQpgggNLcB4WVtwWurBAsZWT0avP4ymugI95aIoYUT CxMT7LNIcM1B7OXXXgamukmktCwgf+IqsdmC9uxTaIiN5dxjWuPf0Rr/NojO BOVngvIzfvsD1f0t1Z0t6uozjF7ZwMilVQydu8iQcR5L1VYi42J5iU0drlNy 7hia8NDkJzaB4AGv10RGCOTfsD5yzH0XLKJjbyY2AY5FP3bYwLesDUwVn+J5 8KCXFR/PnfsVm/dbP2Ks5jYmPOuYbH6Kme5NHBrcwonxZzg78/z/a+/LoqLK 1jS/1rz31u17s2p19V3dXbX6Vj3Uqnrp7rW6H2p19+rVnYP3ZpppZjplaqrp jBOKCgKKCsggM4IQQQTzjCggCuKEQEAwBDEPTAEEU0CAI+mU9mN9e5/DkHlr 1VM95sMfESDGOWfv7/v/79t7n7PRQWdgvOlD320fLHd8sBEE9ofjcLSPwdk5 itasKlzbdw7VZ66gJuIqrpE2dYdj0RmaDCtp4yJtBkmbEdJmjJSR1CFdphjT MdnqvdlZmGLtGY/JUO75jF11z2dsPNzLtPmf8u2v0PBoDrk3FdrkUbbpKdsy G0dx+LIFx1hz9mUa8XVqG7Zf6cSOHNYdnQn7SZkD5XYcrHYiqJZR50ZQgxsH bnqwn9TZQ71w/s4YiiRd3km6/H8kLNeb6iHWmsElyiyuUMY6h1IzKdNPyphY a5oeIVZQ5s6QXDKVyDoXGm9EWLIdEZlDOJ/jQ2z+DCkSQGrlE2Ree45kUueS juef2ENNcxsfHc/BOsq19SFp+OJ0Br4STyEKTcWXIZn4MKgGH4Y04MOwBnwU UUet8xBbrzySlNlIynyZWIFP6XnWnyNtzmvx+QXxdAANNsQwYnMJ3lweIxs7 xVqpRGW91Jdx6fjsUgq2Hj4p10lt3r5PJcxmfP7RFgQfKkXoqVZsO/gQO08y DUUyJZ1pYT0sxEf7eU4nNfgwvAQfn6vAOpLmD6yFgjh/pHb7Y1SVrIefxzLi RE2swmeXK3mu9ThY048D1UaEkDQhD4Zxnv6yyvmW8Ya1nKRhva+0Lcp6U07N VsZ6U9bDtu4eZwxRGttR1G5QSRPDiGckoi08maRJhfVsOkmTQfGVKcez/CRL gEl6gfGEqHsqg8QRpGH4icBJEmeU9WZ46Rl855efwYffq3dJiwf2lJx3ojR5 BOXZXlTrvKgv9qK50ov7tAJtdV50NnrR3exF7z0vTK1e9HcwurxkVDuqdpxG 1a4IVO0+h6o9UXhwiiSPzICZ5+ogY9z0OkNkjHeJNWTLRLTCnEn1DmnxMJKx 2Iw/ufFyMDYOjzs6luaM/pd8+4/oH1hELiuNhjJNS8roWkmb9knEVA3h22Qj y/8jbE4zYGt2N7Zp+7C9oB+7Sm3YXeXE7msu7Lnuxu4bbuy87sI+vmcbn7CC vJWV5BckyFvEKVWFFKn6KUVspIiVuc5CipgHEN/UitiaVujFoxdbxpFQYMXp uG5SxEE3M4yo3AnEFPiRWLqA1KqnyKx9gVPJ4ziexPO4akMQa/3JUi/2Zhiw P7MT68Py8XmYDhvCy/FFRCnWs6J8cuoRNlwU6zF7sDm1E1sy2rAl8x6+zGzC vtIufHI6G5+wsnzKqrI+Ok+uKvzsEqlySUOY5vJzDjaxtGyPz8BWxqdMSltI j217jzCOYtPXe/HZuq2Mb7BnVyoiIwy4GNWDc1G92BHchd3hdIsX+3Ao3oTP j5fg/57U4wPS4iPWko9ZSz6mJFsXQVkm6swFWpwYUoVu69N41pqkGuwqMeLA Naasa2bsr+7BCVLk+N0BaPufU+r+oNLktUoTpbaUm5+QIvOsLTMMH+Uv3WaP A0WGTozfJ0XCFIo8PHMZ7eEphJxKkajMVRTJUijCFLFMkVgRV1YoQm0zGk0L tPqxdReUR1v9jcTbf8bc+CsURHtQmOpFSY4Xlfle3GCf3aryomXpjt87XrTf 98LwiHQhPTpJD0OPFzVn0lC+4wzKd0WiOSSBNTAVnZHp6DubAQuLipP08PBc h3iuI4zRi1lrMC7GAsZJjF+RFpkYuZShPjyA5xiXJKnhJjXUdXf/W779B/if vEO9MYAcVpJc0kLLSqLrmETavWFsY/XYlNmFDawmX+X0YpOuH5sLzdhSasHm chs2VdiwscyKqPs+wp2Q97xClXAjg69/wXLxGjv4UfxK/BOFszAoTlZ/O6u/ ndXfNoUSG/29xU1GPEQqE6H+FnXWnXG5+vh0LBlx2YEzmcM4pyEj8v1IKA0g pYpF4/pTnNU/RUTFDA4VuRBWNooz5eOIqJzAWSreyLJxnC33MfheMYrIyhEa MBcFUx++iuvFV0lGbExr5+Xdx4aMJgSV92N/gQF/CM+h99fhk2g9PonV4dM4 siOeLInX8HMOf5eNr9myn14Uz4MVm/wcwdd7j+Hr747iy893YP26b7FVbP0a 1oGzZ3sRHW1BYqIDMfFOfHfKhL1RZhy8ZMHhJAtN/B18EtWID8Kr8eHZWnxM Y/JxVA3WUWGto3n68BI1YcotbMxpZZFwYf81B/bVsrjXmrGXjIhqnyIThK6t cr3DP/B1deEgI2xkBNVWWT8Z0e9nTFDXkhF9ZESXyohQMiKURSPsMouGYEQa ZYvKiAvKsO2MHK7NJvqz8Viwgm0gGPGEMU9W+MmKSbJidPlhb2REtPIgR9rl v1VvFvKTELfKp5CX7oWeKqu0iEBnvai7TlLcZO1grWhhrbjHWnGv3Yu7nfzZ 6MXN2g6UkQi3jl3CvbAkEjgFbRFpMJK4JtYLK+uFIISbpztIMkhS8JS90eJp N3T9JMOwJEM6PHGpGFDv/XWTEIEOg8qH/yPf/hL+p+9gGl1ENrmQQy5oyIV9 ul7sJ+4PEOu7Smz4hkpqW7kD2+jcj98cRvyjKaZ4SlsHAe5aJBe+Z58M8KV6 8Hvs5OtL0uF7+ZMI/hMqRXlw8f8IQjjmUerwo8QxQbMygmKLE4W9Pci7YYGO 6mxpBdHJaCNdux3h6UM4mzuO6IIpxJf6kVwVQMb1eWTVP0ZYxSBCSgcRWjbC z2J5g08u0YsUZKjwyaV6Z6v4c/UYImv4N1Ue7NGYsSHRiC9S2/FlBgmRfR/H atw4VuvGvqIufHxWQ1DqsS6Wbj9Ojz/E6/iuxbpLufiYzv3L4+FyS9Ytuw/T WgRjy65gbNpyEJs3B2HzFpKB3x1+pheR562IjnchMWUQ6VleJPA6dkdYsJ+2 NSjRhp1UiV/FttONM+ckGEg4Kiyqu8/THmJTThc25fXjK+agLYUWEoClsMaJ PSwRe2rMONngUHjwezb/O6VCkA+Vgg/OV6zCgg8vFD5YyAeLn9WYfDCTDyYH WtwujN4jH06v8OER+WAkHyyCD6wOIwSY72KWdL2z5EGAsUAuPGas4WsWfo2A 4AMBNyH4EPOnw0evfT51n4K/g3/6LerqZpBN8aRjZSiu8aKCwqnmthe1LQxW hlqSobaNosnux5MXbzHSYpAVoeX0ZbTQmd9nZWiPVMjQRzJYyFs7yeDkuXoo 9gYuZmKArmiAHB2gWHKTBC5WBReJ4CIRnCSCt6xi6ca+/yff/hz+5+/Q51tE 6aNxnC914HyNBxfqh3CRRSu6aQzFRiK2b4HNJ/T/UzYvw/lsDWH9HGuZ7V8Q 5EqwVwZfYJf683NUehgu6iIXge+kpHUFUOqcQYnTh2L7EIqsdtj8ftxqG4GO FkV/y0sbMYkTUQZqJAvC0jyIZD29oPfhUskUkipnkFbrx5X6WRwptuBksQen yoYJfq9cOhculs8JAlT55DqfyBofImvFBOoowmoHcLrWjlPXe2mR2vFp8n18 o6NmqRrAkWuM6x7sLjbiA1qJD6IL8EGsiHx8EEPrfSYWOw4dxOe792KjfDzT MWzcziqw+RC+2nwEB0KSEXpJPI+kD+ERZkRGuxB9eQiJGaNIowW6qptAXhH1 Z9Yw9sfbsY36b0M0CRjfxerECpVhwuZsgj2XQeBvJPC/YGzQ9+E7atLvqh08 Rwfi6p3QsRJUiuwvEO96KyvCG/w1Pyv6qGKpGrCrymzsOtsM9Sj1kYUWwmyD 3T8jO/7+yWgygOgPVdDfRWSZiX4XUTVMRI0T/UKCzxD5c4IBsZIBa/iShT+T 4J8m+H0Emjd21dAPPawnOlp5uNivYLQ+Qy+Vcf/AM1iHGCOM0WewMd6Tf/M7 GLPLcfvkZTTRRjcz4d9nwm+jAuoixnujMtB/nli/kAkbw06MO2JEZMDOQ1uJ cSsxbiXGrcT4cFnVJgXeyu6j70Nb7YGuQSxvmVCWt7TPsCLOoqSXWBQWy7LA hE5oOx4T1k+I6qds00rPU5HWn8pP2C5/W+F+QiTzL13UNC62rIvf4ppCsXOU RnoAhWarsmmZew66WrGoZkQeNZ5a5GRMP0KTnQjPGkQUc0Bs8RgSmaJTrk3i XLmbuqYfJ4rdVPqDOL2MaGXFWkQ1UXyNaL7O9F7nw5n6UZyuG8CpejtO1vUg 5HorgipuIa93Ggl3Z5Bwn+8PpxiTjAmcKm/HJ6EJylNtjofim+AT2HrsENYd PIwvdh3FZ1sP4bNNhxlHqbd6UNwxh5SyQaLZjIizdkReGkR0yigSsnxI004i u5CFvYwtWTWNktpp6rcRbLrQhvUxXTS8vSwtJnx1hek7x4yNWjO+0PZjvdaE T7W9OFTmwKX6EWTeGkbGTSeKmFjeI3Zf4e/5+pI9wHDQBNtfyDJbZqfKt7On 7ESxfZwachDFbGebf1rZCyqnBA9OxhHFiVT6yTBQ5ZuYHx1E8SBzo5co9lEg TKlIFrl8LlagmTpHxhVMEcbjxNHwsrG8LI3leEmJesvKX8KQXYGGk0m4GZqC 21TsdyPS0UoT20GMdvFYPawZfcSnifg0xYjIQB/x2cPv7SU+e6nMPWXVm3+M zZv3xpFHSaS7PQH9PTEjN4VCwzSKu5kjxZiZeQ5l1gBbIsBWmWfrLBCbFa4F kXwX8FtCcoHNtiB+xZgnNAlowq9UbjEsdgjzocg5gkKbG7a5gLIdwAZoK5lH 6ojOZh+PO4Xj53pwKsGGMLlUeRAXC4cQR1FxuZpqmj0WVNCH4CInTpR4FISW C4SOyAUqZ2rGEX6dUce4OY6whhGcopA5edOKkIYeHL/RinN3Lahmz1Y7KYjY u1Xs3UrbM1RaySgzT9s0i3O6GpzVXUMQmfxZ8HF8cDBEPrv0VFIJLlcYUNg2 LW9/Le5YgOb2NMLjbYiIdiMyfgQX0nyIvzqFVP00skpmoKn0I/8aL7/Oj/Kb Mzga9wDBl7twILkfO9Nt+C7bgd1aCgq9Ezvy7DiUZ8MhnRnnKl3IYA3KuOVB 9t0htvn3IhfwrN9nM1PIORdlVDhf8N+YYx3PGMyzDrHDM5vdSZfjoO+3eVBk tqjbL/wnPBudwN0QovS0gtL2iFT0EqVWZjehNoaYb0dVpE6qg4RisNAfK0JJ tBOUtaNE0pBE6YrHezUxoazm+7fw3O1CLUF6PSwV9QRpE0F6lzbyIQ/TxsN0 EKCGi5lrYCA630N7bDra+Y3tsamYNBi3KNj8WJUFmooh5DX4oKNZ1IslF+2T KOxitusm6+m5S810GWLqyTZLl8dwzLHGz61l48zxXMpd/JEJskyEmwLMQ0h7 xN62k3L7ykLnMPLNDuWB9b/H7MIbaGuGoWtUFnlkkhUnmDNPpdITXnUiSu9G DKt9PCXvUb0RB/Q9OJpvU1Ap8yarezmRWTmM0FpW+7oxItGL0w2DEo0hjS6c aLQiuKEbR+o7oKOYoWRnzfwvfKVvlchUUWlhJegnkZhPS42snJ0jVBPNCC64 jpjKduS3jqKAdqGwzY/i9gBKDOx94zPE5A4jIm4IkQljiMqYwqXcaSQX+JFJ 2Z5TPQvd9VkUNpDVt2aRWODEsYQuBKcy7+e4EJJHJVPI8yfDxFx7kN6KoPx+ HMzvQnrjIFIbhU2YE+x3POeL87lgvxhycoh4KmEoSljZ8kbj9BiuSUotegy7 G/a5wFp1GKA3uwx3TyZIg9XKyt95No3mKh02QsRNiAxRSwpDNUY0+ojCCfmQ 7yuYEOWeKBwTuTIubfnBSsJceUvL/lFNau77RlSEpaCaZfwGRUUjv7qJJfzO hQy0XOR7dDruxIggCUpq8GxiCltXY+99zM6/haZmDNpG6qa7K/gr6mL0TKK4 jxfWL8bYppkfGdQ4a1gnZtgo5XwtczCoM8tc7EGx07rYUFnsncqQOyS6aLJs A5h79fo9dXKqkZ5Le2NcWRzBVByRYsWJBErMDDvOaByIyqexL3ExdTzAHm0n gijPjhCAxwodOF7sUhZHVDLtXWNH3uB7vZugcxN0LgTfcuIowRdUZ0RC+7gA nvst/jtf3zBeU8C9VNPi8+WUWGbyy5VFpd1eHC+rJ9BvIkZsVKLuAV3YNitT YUnnU/7Nc2hbFnAmiQBMoPTNmEa0ZgaJhX6klc8hq2YOmhtz0DfOoaiJAGzx 48ilThxNZlrP4nXqSJAinjOv4XCBHQd5bQfyexkGpNxkSmwZoJx8wjLEYEEu Fws3HE/WSMCR6g7qIRFC3ZP2P93fvsjmQuDly7XqDWlPvJO4fSIBd2hr7jIZ tjIZdq2CoIsQFFZmmDAcEb5eTjAy5EBXOhNgmvT2S5bGEpugDvxSlY5Pw/6w G65HlDFnU1AalYqBth4MtIvo3qbAbJ2a4mYXfoCm1gft7UkFZq1iZZlIc4RK N2HWyzAJqDEsk4Qbwzq5hkpkkv6v1DmpUIwpTaY196TceK+A151Pay/uIfyl PNRf42arH9oGdeHA/Ul550LwZVbIKzbCy4ZzBTZ8m3EPu652YK+mG0F5ZhzO t+JokR3HWIGD6QCO1zpxvM6JYHbJMcJKzH0eJrQO1FOnPRhCtecdkeX5Af+V r29VZK1ObZSwFLtlJrHcRqwXGMVxysbgkttElhEFD3yMGRQ+ChBZj1HS9Qyl PYsszi+RSgSFp04gIt2PKM0sLhXOIonIyrg2h6t1cyTqHPKbZ1F01484sRdB Qi+OZJhxLNfOtOmQl7Gfxma/rhf78o0M8eAAK3RdEyTw/FrpVN4juAJS7clw zK2REvuXipJxK7VjaV/05pGxX6j+QQCqMSQRt+kf7tAjtzLpdAqPzLJnYeKx E1AuAspNIHmEN2b181CbuQgmB/OYTfUOJuq+7ycn8xSQ/EGdSxAgyb0+Ac0t BSQ65qL8dmXlVKFRyUdFfQpQis0MgqTYNin3Yyx2imIn92SUW7KJDdnyndR6 9lF579uvVH0wG3iLXGopjTrNJxASlsGkkWTDCSIkNNeGb5JbiJA27MzuxN5c Ew7oLDhYRN1SbsNhouMw0XG4zoVDDW4EMfEcZOylQwh/4F0roCFR8YOCDM8b VLlfqXmHUoZFr8JKZIiFWCKtmsZwvLIJwaXNLHg9KLjPlPlQIGMexYYnLHbP iZ7vJTIqzK/lYO2ZKzOIyAngfEGA0jGA5GsBZNQFcJXI0BAZeiJDoCv0igVB KWYcyrbisNaCvTkm7M7txe68buzWG7Bb9wB5HT6UmGbZ/Tyh90k7piwrT80q xpEZdr8yiiC2v12V2YtkZmd6pPr6larbH49OoY6SqIG6vSk8DQ/oK4VmNxIb fUw2/cSGhdiwxoggXogL0yrN3hWbhMXJKZ2CiT+qKWz28Q/IISZyiQktMZH3 gH3Wxr4lJgqIiQJiopCYKGTiKFy9NZ9DbMgpMDApN+sS+17f9s5KLPxane4V ta+hLSDnr7RqtkhvGENQErMBsbA3w4itKW3YltGJ7Ve7sYu02kMc7CuzY1+V E/trlTmrvSxA3zF2Ew/n2nzKSBlhIKDANDHwA/6bCggBBqUISW1rp6YVYBCr IywEg5lpouoOgsvuIKa8B/l3J9iRfhYggkEUH+MLBQz9r5he3hBIbxFdPIew HKYM3QLOly4grnoeSTfmqWTmkdUcQM49poyHVERtM9gX14cD6VbsSjfj2yt9 2HG1Bzs1XdihbcPh8g7yiz3MdFViYkXpn+a5l5inRVKw8nd2obeFyBGJYXJl I2SxAyqzmcOLAJPwn8mm/QssEAxtudWopT5uIBjuEAwPzgltnAEDgdBFIHRF 09ARCAYCoT02DW0Ux7bSauQrCFC2H/13MA0t4irLRi6lgpYZIY8ZQdfJXmXZ 0LNs5DMb5DMb5Kt7NumVPZuUvY2tEzDPvSCyFT1W36ZM8C/PVlJbXqwcwrYk I7643IaNaZ3YnNWNrZo+fE1NuL3Ehu0Vdmwn67+poYO54cLBW4NI6pqlSxG9 yfC8XSO5/o/s6jeyk6s9r1c6WrBedLTtsUIrq6hsozjb8Ijlppm5nOq8ZVVH G56ipHulo8tFR9veotL+A3SGVziV50dY0RyiKhcQe30BiY0LSGlmh98L4MrD OWRTKl+64cW26D58k9CPr9N4KVdER3fjWIUJxyo7ZdUt7F4ReMsJ1aomU8fy BrcEgdjbdq2SVGm45l6/xW9kc/4W82PTuJ9XgyrqihssA41R6Wg+T715MZ36 k5+pP5uiU9FD7fl0YrpA6djPVOlp8i4imwbkKjs1l52qYadqSWktz0rLs9Kq G/No5J608zDPLqpPdvv3y/NrV/n/c5kStEwJqS3D2JVjxLacHnxLXbWjyIot BRbsJFV31riwo5bVsmkY4ffHkdP7mD0jaPhSDOsxQ78n59nE6vMqJdbIybf/ oThR2YlLc2zMifYJOk8vEu4acbS0Cfm3lQ0+89mJBezEouVOXGSaf8lOZEfa xIodMXL4Ro6fp7Q8QUjxDM7Qr5yjX7lIvxJzi53XPIML9RM4Xz9Gr+XBt6kW fJ1splax4HCxFUfK+nDmWj/yKZ8K2JEF7MhC8qCQnVjIpiq0/iQDyk7Uy21K dXbf8oaFylYKv4T1oRGOVkXIudtEdGNhYrpY6awv1NHFvvFFmCYYU4zpRfTP 8H1G+azcV75emeQZW0QWmXqVzNqj6cXefDP2lVixv5L5stqNA7UehN4eRdyD KbYMaWGht7e9UCZ5REu7FuUkTpX7ezm7WeVZlHP+cjWZnOl8Lo2YEMZlcoJH bNDOImYfYm8YEFttoPgeJK3GlV3YKbGKWEiL6RpLe19QklFmmUkt6/fs0Zcq CF7JcTEh4fJ6XiD54QJSHy3gRPUEQq75cLFpGmmP/Eh5RP9jn0coneNBLcU7 wRVU3IvoBjFWzMwjshIBnL86K6kZSW+fXCuLkLKLnGgwEU1KK59Q06bFPS8X tZ6jvTlfO4R8IQU6aCW6aDN7aDdNTCLmJyuTA+IGCVpTMfIvZwnEyzNKqUrX UzkHJoZZlemAecUwsJCXOMfI8kEUWWxIoxrV1Q9Af3uM5WaKfocHo9cp7nrC A7LkmJ7xgGKI+4Wc6KmwL8phmsW1sqd+p/bJC2mTK340RiPmH6aRZRjB6Sor 9hX0Ioks0RAXWiJXS+Tmkeh5JLrckd4sd6Vfw5Qt2khswjX36p1sljtKG4Us jTJXuXnKXuibqe7uT5NvMyjqpEXr5uX18ahiXnZppFncPOIQ4w8VbIS/kWPK 4tNK8O+c86v8lLDyE1STXhTZPWgeHoHFMw/d9QHoGkehFzfFyERNVHWyT7pp C/t4tf1Eo1iBJ4S/CPuz5b6pcD5bK/vid8LJLY8clP1o5GCUPeLBHR6ub3QR dbyEbDqkqwRVDkGVQ1DlsLFy2FgNg8ubGd1b3TC/hZkXlFc7At0tH3SUSvn0 rgUd0wQPNX2Pf2WY0xIQQ51rhAcQxjJAT17B1/KlcM7JsaRS0RjSD1AWuFdG NwMvX8kj5qkdoWsSQ6rsCBqvQgOdSdcc/VyAx2PDmhd+3BmMtaJL1kgv+2s5 SbvU+quHUqWbtfNgr16hS7nOkyoAGpk6tHXjyGtSxg/EzRWFhFSRkefZow6Z 9TMs9PVWhs0vhiwoZ38jk3eZwy+HLEpdM3LIotijCluK2iJ6nkLHMKxz8+qQ 4vsr7drokwNm+gfKfYaFBp5qN9uol21lmlvdtvJ4onFtAbr2Mjv/wUFV7eQf uvz/vMnyjhtXXybVaeANNJWj0Agvu7SOV1yqQbHNxd3q6MySbTaLUZopZUUU M06pqtYEwKRnFiMy6qhMAVNAk3dCnRf6KzQ+VJtUHZLJb1VHgTqnaM/ZpL3M sia1WeVoJGugaFrrjBwRknMGZHup68cjQIpPGEcB0023cnmn1AouxHdu9fiK EVMvT44KdIreXKVP5OX9WJ8sGz73ikYR+2/f9irTFUtTXqIZxXONNfXqkMDS 5a06TnHPT5tSGYUoYTOWqMf6E9E7QTnklSMP6pWdXrIs8z+goT2grCRtVleS tqpWtvNfLthLO4qLoi1Ktt4xgVsjM8smS7aasK9LluXequ9WgSGVHb+/SFV1 RVbFJhetqLrlBpOHGJeirke5ijBVHPQPLiKnkeqKfaPhFeSJFUwGpcDp2V75 bK/8fkV2L22NrBdbpSpFLs/qW94q9ddqVyx5LaG+8+6pawWFl+tc5eWWGmXJ y61SMbJBhJezj4vv7lVO+Ix8+42UhEJSCkmYQ0mp4Tdr+c15/OY8NofOtFxl sFRmNGbhDxbVBKpe+AAv/OZPLpxg0XcpF65XL1zuEatU9tV7xDaOzC1Xd/UM I5c0FFO7yUd9JFJ7h5Lar/LsrnaLMxJJfa3co27pv//FklAeoVDm2eSQIrm8 Ko1hRSjnrRbKFkUsmwOLMCuHzlVFnv/Zu2UJ108Jl8XD17vmeVT/T4+q/k/5 w7GfP//8+efPP3/++fO/1mf8m38C5HBaLw==\ \>"]], Cell[BoxData[ Graphics3DBox[{ {RGBColor[0.4, 0.2666666666666667, 0.13333333333333336`], Opacity[0.8], SphereBox[{-0.07150534211399999, 0.091139595254, -0.983604272726}, 0.255]}, {RGBColor[0.4, 0.2666666666666667, 0.13333333333333336`], Opacity[0.8], SphereBox[{-0.728897553816, 2.794804598522, -0.31984368440399996`}, 0.255]}, {RGBColor[0.4, 0.2666666666666667, 0.13333333333333336`], Opacity[0.8], SphereBox[{-3.236329629792, 3.6406686328339997`, -0.277013044614}, 0.255]}, {RGBColor[0.4, 0.2666666666666667, 0.13333333333333336`], Opacity[0.8], SphereBox[{-3.840267162132, 6.184247387738, 0.300933196322}, 0.255]}, {RGBColor[0.4, 0.2666666666666667, 0.13333333333333336`], Opacity[0.8], SphereBox[{-10.550886388814, 6.617242195844001, 0.062761579912}, 0.255]}, {RGBColor[0.4, 0.2666666666666667, 0.13333333333333336`], Opacity[0.8], SphereBox[{-12.680908057248, 4.899018278973999, 0.29817419636200004`}, 0.255]}, {RGBColor[0.4, 0.2666666666666667, 0.13333333333333336`], Opacity[0.8], SphereBox[{-15.202726617261998`, 5.857326679464, -0.05274225266}, 0.255]}, {RGBColor[0.4, 0.2666666666666667, 0.13333333333333336`], Opacity[0.8], SphereBox[{-15.543608621224001`, 8.48142099005, -0.6357038264}, 0.255]}, {RGBColor[0.4, 0.2666666666666667, 0.13333333333333336`], Opacity[0.8], SphereBox[{-13.521078347122, 10.120769633405999`, -0.859651475208}, 0.255]}, {RGBColor[0.4, 0.2666666666666667, 0.13333333333333336`], Opacity[0.8], SphereBox[{-11.001744776798, 9.234384204476, -0.490215711386}, 0.255]}, {RGBColor[0.4, 0.2666666666666667, 0.13333333333333336`], Opacity[0.8], SphereBox[{-17.296820814984, 4.181816239372, 0.185189368548}, 0.255]}, {RGBColor[0.4, 0.2666666666666667, 0.13333333333333336`], Opacity[0.8], SphereBox[{-16.934057673668, 1.641081522098, 0.752919750728}, 0.255]}, {RGBColor[0.4, 0.2666666666666667, 0.13333333333333336`], Opacity[0.8], SphereBox[{-14.446862673426, 0.701392591886, 1.100410126512}, 0.255]}, {RGBColor[0.4, 0.2666666666666667, 0.13333333333333336`], Opacity[0.8], SphereBox[{-12.362534579672001`, 2.295013645494, 0.879221477664}, 0.255]}, {RGBColor[0.4, 0.2666666666666667, 0.13333333333333336`], Opacity[0.8], SphereBox[{-1.866344420202, 7.923530411152, 0.891313834338}, 0.255]}, {RGBColor[0.4, 0.2666666666666667, 0.13333333333333336`], Opacity[0.8], SphereBox[{0.6592819377019999, 7.08517803769, 0.843250543254}, 0.255]}, {RGBColor[0.4, 0.2666666666666667, 0.13333333333333336`], Opacity[0.8], SphereBox[{1.205939985256, 4.56918739266, 0.24510691082999997`}, 0.255]}, {RGBColor[ NCache[ Rational[1, 3], 0.3333333333333333], NCache[ Rational[1, 3], 0.3333333333333333], 1], Opacity[0.8], SphereBox[{-6.2890629300539995`, 7.180488258226, 0.27106607689199996`}, 0.24]}, {RGBColor[ NCache[ Rational[1, 3], 0.3333333333333333], NCache[ Rational[1, 3], 0.3333333333333333], 1], Opacity[0.8], SphereBox[{-8.164170009718001, 5.6103886241400005`, 0.316961852254}, 0.24]}, {RGBColor[1, NCache[ Rational[1, 3], 0.3333333333333333], NCache[ Rational[1, 3], 0.3333333333333333]], Opacity[0.8], SphereBox[{-9.085666547728001, 10.847456207802, -0.716657798514}, 0.178]}, {RGBColor[1, NCache[ Rational[1, 3], 0.3333333333333333], NCache[ Rational[1, 3], 0.3333333333333333]], Opacity[0.8], SphereBox[{-2.361218306178, 10.355709818356, 1.538117911262}, 0.178]}, {RGBColor[1, 1, 1], Opacity[0.8], SphereBox[{-7.465018632868, 9.717965087876001, -0.406317546164}, 0.12]}, {RGBColor[1, 1, 1], Opacity[0.8], SphereBox[{-13.779849866658001`, 12.134920862424, -1.3149885138119999`}, 0.12]}, {RGBColor[1, 1, 1], Opacity[0.8], SphereBox[{-17.483822430766, 9.193898714652, -0.912588369646}, 0.12]}, {RGBColor[1, 1, 1], Opacity[0.8], SphereBox[{-10.433798965853999`, 1.571932668306, 1.161077890016}, 0.12]}, {RGBColor[1, 1, 1], Opacity[0.8], SphereBox[{-14.158549067332, -1.31144149811, 1.559305519174}, 0.12]}, {RGBColor[1, 1, 1], Opacity[0.8], SphereBox[{-18.56864609723, 0.362623301592, 0.9376064521599999}, 0.12]}, {RGBColor[1, 1, 1], Opacity[0.8], SphereBox[{-19.219431826836, 4.940308792074, -0.08956734322200001}, 0.12]}, {RGBColor[1, 1, 1], Opacity[0.8], SphereBox[{-4.215472259432, 10.535110956166, 1.66504702723}, 0.12]}, {RGBColor[1, 1, 1], Opacity[0.8], SphereBox[{3.1981363776059997`, 3.950201972182, 0.21395477772000002`}, 0.12]}, {RGBColor[1, 1, 1], Opacity[0.8], SphereBox[{2.163192028912, 8.446306101518, 1.307507088578}, 0.12]}, {RGBColor[1, 1, 1], Opacity[0.8], SphereBox[{-4.811567428871999, 2.36120318837, -0.736717240004}, 0.12]}, {RGBColor[1, 1, 1], Opacity[0.8], SphereBox[{1.077334682326, -0.012655495022, -2.745603692386}, 0.12]}, {RGBColor[1, 1, 1], Opacity[0.8], SphereBox[{1.06151578598, -0.82213474493, 0.538180736718}, 0.12]}, {RGBColor[1, 1, 1], Opacity[0.8], SphereBox[{-1.79587275821, -1.068133606432, -1.278930652006}, 0.12]}, Text3DBox["1", {-0.6715053421139999, 0.091139595254, -0.983604272726}, {1, 0}], Text3DBox["2", {-1.328897553816, 2.794804598522, -0.31984368440399996`}, {1, 0}], Text3DBox["3", {-3.836329629792, 3.6406686328339997`, -0.277013044614}, {1, 0}], Text3DBox["4", {-4.440267162132, 6.184247387738, 0.300933196322}, { 1, 0}], Text3DBox["5", {-11.150886388814, 6.617242195844001, 0.062761579912}, {1, 0}], Text3DBox["6", {-13.280908057248, 4.899018278973999, 0.29817419636200004`}, {1, 0}], Text3DBox["7", {-15.802726617261998`, 5.857326679464, -0.05274225266}, {1, 0}], Text3DBox["8", {-16.143608621224, 8.48142099005, -0.6357038264}, {1, 0}], Text3DBox["9", {-14.121078347122, 10.120769633405999`, -0.859651475208}, {1, 0}], Text3DBox["10", {-11.601744776798, 9.234384204476, -0.490215711386}, {1, 0}], Text3DBox["11", {-17.896820814984, 4.181816239372, 0.185189368548}, { 1, 0}], Text3DBox["12", {-17.534057673668002`, 1.641081522098, 0.752919750728}, {1, 0}], Text3DBox["13", {-15.046862673426, 0.701392591886, 1.100410126512}, {1, 0}], Text3DBox["14", {-12.962534579672, 2.295013645494, 0.879221477664}, { 1, 0}], Text3DBox["15", {-2.466344420202, 7.923530411152, 0.891313834338}, {1, 0}], Text3DBox["16", {0.059281937701999965`, 7.08517803769, 0.843250543254}, {1, 0}], Text3DBox["17", {0.605939985256, 4.56918739266, 0.24510691082999997`}, {1, 0}], Text3DBox["18", {-6.889062930053999, 7.180488258226, 0.27106607689199996`}, {1, 0}], Text3DBox["19", {-8.764170009718, 5.6103886241400005`, 0.316961852254}, {1, 0}], Text3DBox["20", {-9.685666547728001, 10.847456207802, -0.716657798514}, {1, 0}], Text3DBox["21", {-2.961218306178, 10.355709818356, 1.538117911262}, {1, 0}], Text3DBox["22", {-8.065018632868, 9.717965087876001, -0.406317546164}, {1, 0}], Text3DBox["23", {-14.379849866658, 12.134920862424, -1.3149885138119999`}, {1, 0}], Text3DBox["24", {-18.083822430766002`, 9.193898714652, -0.912588369646}, { 1, 0}], Text3DBox["25", {-11.033798965853999`, 1.571932668306, 1.161077890016}, {1, 0}], Text3DBox["26", {-14.758549067332, -1.31144149811, 1.559305519174}, {1, 0}], Text3DBox["27", {-19.168646097230003`, 0.362623301592, 0.9376064521599999}, {1, 0}], Text3DBox["28", {-19.819431826836002`, 4.940308792074, -0.08956734322200001}, {1, 0}], Text3DBox["29", {-4.815472259432, 10.535110956166, 1.66504702723}, {1, 0}], Text3DBox["30", {2.5981363776059996`, 3.950201972182, 0.21395477772000002`}, {1, 0}], Text3DBox["31", {1.5631920289119998`, 8.446306101518, 1.307507088578}, {1, 0}], Text3DBox["32", {-5.411567428871999, 2.36120318837, -0.736717240004}, {1, 0}], Text3DBox["33", {0.47733468232599996`, -0.012655495022, -2.745603692386}, { 1, 0}], Text3DBox["34", {0.46151578598, -0.82213474493, 0.538180736718}, { 1, 0}], Text3DBox[ "35", {-2.39587275821, -1.068133606432, -1.278930652006}, {1, 0}], {RGBColor[1., 0.75, 0.5], TubeBox[{{-0.728897553816, 2.794804598522, -0.31984368440399996`}, {-0.07150534211399999, 0.091139595254, -0.983604272726}}, 0.1]}, {RGBColor[1., 0.75, 0.5], TubeBox[{{-3.236329629792, 3.6406686328339997`, -0.277013044614}, {-0.728897553816, 2.794804598522, -0.31984368440399996`}}, 0.1]}, {RGBColor[1., 0.75, 0.5], TubeBox[{{-3.840267162132, 6.184247387738, 0.300933196322}, {-3.236329629792, 3.6406686328339997`, -0.277013044614}}, 0.1]}, {RGBColor[1., 0.75, 0.5], TubeBox[{{-12.680908057248, 4.899018278973999, 0.29817419636200004`}, {-10.550886388814, 6.617242195844001, 0.062761579912}}, 0.1]}, {RGBColor[1., 0.75, 0.5], TubeBox[{{-15.202726617261998`, 5.857326679464, -0.05274225266}, {-12.680908057248, 4.899018278973999, 0.29817419636200004`}}, 0.1]}, {RGBColor[1., 0.75, 0.5], TubeBox[{{-15.543608621224001`, 8.48142099005, -0.6357038264}, {-15.202726617261998`, 5.857326679464, -0.05274225266}}, 0.1]}, {RGBColor[1., 0.75, 0.5], TubeBox[{{-13.521078347122, 10.120769633405999`, -0.859651475208}, {-15.543608621224001`, 8.48142099005, -0.6357038264}}, 0.1]}, {RGBColor[1., 0.75, 0.5], TubeBox[{{-11.001744776798, 9.234384204476, -0.490215711386}, {-10.550886388814, 6.617242195844001, 0.062761579912}}, 0.1]}, {RGBColor[1., 0.75, 0.5], TubeBox[{{-11.001744776798, 9.234384204476, -0.490215711386}, {-13.521078347122, 10.120769633405999`, -0.859651475208}}, 0.1]}, {RGBColor[1., 0.75, 0.5], TubeBox[{{-17.296820814984, 4.181816239372, 0.185189368548}, {-15.202726617261998`, 5.857326679464, -0.05274225266}}, 0.1]}, {RGBColor[1., 0.75, 0.5], TubeBox[{{-16.934057673668, 1.641081522098, 0.752919750728}, {-17.296820814984, 4.181816239372, 0.185189368548}}, 0.1]}, {RGBColor[1., 0.75, 0.5], TubeBox[{{-14.446862673426, 0.701392591886, 1.100410126512}, {-16.934057673668, 1.641081522098, 0.752919750728}}, 0.1]}, {RGBColor[1., 0.75, 0.5], TubeBox[{{-12.362534579672001`, 2.295013645494, 0.879221477664}, {-12.680908057248, 4.899018278973999, 0.29817419636200004`}}, 0.1]}, {RGBColor[1., 0.75, 0.5], TubeBox[{{-12.362534579672001`, 2.295013645494, 0.879221477664}, {-14.446862673426, 0.701392591886, 1.100410126512}}, 0.1]}, {RGBColor[1., 0.75, 0.5], TubeBox[{{-1.866344420202, 7.923530411152, 0.891313834338}, {-3.840267162132, 6.184247387738, 0.300933196322}}, 0.1]}, {RGBColor[1., 0.75, 0.5], TubeBox[{{0.6592819377019999, 7.08517803769, 0.843250543254}, {-1.866344420202, 7.923530411152, 0.891313834338}}, 0.1]}, {RGBColor[1., 0.75, 0.5], TubeBox[{{1.205939985256, 4.56918739266, 0.24510691082999997`}, {-0.728897553816, 2.794804598522, -0.31984368440399996`}}, 0.1]}, {RGBColor[1., 0.75, 0.5], TubeBox[{{1.205939985256, 4.56918739266, 0.24510691082999997`}, { 0.6592819377019999, 7.08517803769, 0.843250543254}}, 0.1]}, {RGBColor[1., 0.75, 0.5], TubeBox[{{-6.2890629300539995`, 7.180488258226, 0.27106607689199996`}, {-3.840267162132, 6.184247387738, 0.300933196322}}, 0.1]}, {RGBColor[1., 0.75, 0.5], TubeBox[{{-8.164170009718001, 5.6103886241400005`, 0.316961852254}, {-10.550886388814, 6.617242195844001, 0.062761579912}}, 0.1]}, {RGBColor[1., 0.75, 0.5], TubeBox[{{-8.164170009718001, 5.6103886241400005`, 0.316961852254}, {-6.2890629300539995`, 7.180488258226, 0.27106607689199996`}}, 0.1]}, {RGBColor[1., 0.75, 0.5], TubeBox[{{-9.085666547728001, 10.847456207802, -0.716657798514}, {-11.001744776798, 9.234384204476, -0.490215711386}}, 0.1]}, {RGBColor[1., 0.75, 0.5], TubeBox[{{-2.361218306178, 10.355709818356, 1.538117911262}, {-1.866344420202, 7.923530411152, 0.891313834338}}, 0.1]}, {RGBColor[1., 0.75, 0.5], TubeBox[{{-7.465018632868, 9.717965087876001, -0.406317546164}, {-9.085666547728001, 10.847456207802, -0.716657798514}}, 0.1]}, {RGBColor[1., 0.75, 0.5], TubeBox[{{-13.779849866658001`, 12.134920862424, -1.3149885138119999`}, {-13.521078347122, 10.120769633405999`, -0.859651475208}}, 0.1]}, {RGBColor[1., 0.75, 0.5], TubeBox[{{-17.483822430766, 9.193898714652, -0.912588369646}, {-15.543608621224001`, 8.48142099005, -0.6357038264}}, 0.1]}, {RGBColor[1., 0.75, 0.5], TubeBox[{{-10.433798965853999`, 1.571932668306, 1.161077890016}, {-12.362534579672001`, 2.295013645494, 0.879221477664}}, 0.1]}, {RGBColor[1., 0.75, 0.5], TubeBox[{{-14.158549067332, -1.31144149811, 1.559305519174}, {-14.446862673426, 0.701392591886, 1.100410126512}}, 0.1]}, {RGBColor[1., 0.75, 0.5], TubeBox[{{-18.56864609723, 0.362623301592, 0.9376064521599999}, {-16.934057673668, 1.641081522098, 0.752919750728}}, 0.1]}, {RGBColor[1., 0.75, 0.5], TubeBox[{{-19.219431826836, 4.940308792074, -0.08956734322200001}, {-17.296820814984, 4.181816239372, 0.185189368548}}, 0.1]}, {RGBColor[1., 0.75, 0.5], TubeBox[{{-4.215472259432, 10.535110956166, 1.66504702723}, {-2.361218306178, 10.355709818356, 1.538117911262}}, 0.1]}, {RGBColor[1., 0.75, 0.5], TubeBox[{{3.1981363776059997`, 3.950201972182, 0.21395477772000002`}, { 1.205939985256, 4.56918739266, 0.24510691082999997`}}, 0.1]}, {RGBColor[1., 0.75, 0.5], TubeBox[{{2.163192028912, 8.446306101518, 1.307507088578}, { 0.6592819377019999, 7.08517803769, 0.843250543254}}, 0.1]}, {RGBColor[1., 0.75, 0.5], TubeBox[{{-4.811567428871999, 2.36120318837, -0.736717240004}, {-3.236329629792, 3.6406686328339997`, -0.277013044614}}, 0.1]}, {RGBColor[1., 0.75, 0.5], TubeBox[{{ 1.077334682326, -0.012655495022, -2.745603692386}, {-0.07150534211399999, 0.091139595254, -0.983604272726}}, 0.1]}, {RGBColor[1., 0.75, 0.5], TubeBox[{{1.06151578598, -0.82213474493, 0.538180736718}, {-0.07150534211399999, 0.091139595254, -0.983604272726}}, 0.1]}, {RGBColor[1., 0.75, 0.5], TubeBox[{{-1.79587275821, -1.068133606432, -1.278930652006}, \ {-0.07150534211399999, 0.091139595254, -0.983604272726}}, 0.1]}}, AspectRatio->Automatic, Axes->Automatic, AxesLabel->{ FormBox["xl", TraditionalForm], FormBox["yl", TraditionalForm], FormBox["zl", TraditionalForm]}, Boxed->True, SphericalRegion->True]], "Output", CellChangeTimes->{ 3.574335299276738*^9, 3.5743387964009886`*^9, 3.574340073154031*^9, 3.574341004756467*^9, 3.5743410887626147`*^9, 3.5743411657955503`*^9, { 3.5743412380548773`*^9, 3.5743412657449255`*^9}, {3.5743412984581833`*^9, 3.574341324416629*^9}, 3.574341528496187*^9, 3.580058338770022*^9},ImageCache->GraphicsData["CompressedBitmap", "\<\ eJztfXdcFEcf9/eJPaabxBhrrLFjwYK9YhcFC2ABFZVepIlUQekdFFDsBUWx t1gSOyhq7L1ib4klJuZJ5J3ZndmbW/bO833fP5/9uHK3dzvzm19vOzfU0Xe6 k7ujr/Nkx3qWPo5e050nz6jX39OHXCr3H+A/08k5vB7o61KA/1dK/pU60//o lf+9/t/r/8fXtaTX5fHXX3/h0aNHiI2NxbVr1wYKX/leel1J+srKlSsxevRo WFpaIj8/H7Vr18apU6cwQPh+del1Ven7+/fvV76/fft2vH79Wvr05cuXcHBw wOTJk6VrlvL9v9E/H1FOry9dqGhokPIMbDpOdHS0dDkrK4sN85x9KotMqXwR qKMak66VjknHPnfuXCXp4wrSmFOnTpXe0Y/o+vobHVhGYmUFgR4eHggMDMTt 27el1dFRyN/KbILw8HC8efMGL168UBDQz+gENQxgg4JG7i4nfVxOoghZCKOX PFlISIiyWHoQLL1nsm+No/4L9rG7u3uZRRJ4KisktDA6SzWNWehBOYwMV40t YsOGDbhy5Ypyp4izitojd1bz0peMPGq60wVR6BctWkTR9jXDojjlR+wa4y+G U2PTSu//wxZHGYKLDMUVoxcflU0svavGrh04cADHjx9n7+T/ORfK8xqb/V/j tKvIBuRiSM+vjEwsYtv4xH8bn7gOG/DChQvYunWrsBIZt3QS3cSGJvlT0ETq Seh7iup6GjNV0MBjOTWfvhZWoCHInGb0fjoPfVeXXXv69CkyMjIEjimLCIbG HvJkL4VviTqVMUh5Af+UQ3WTVVVUHn1Hv66lXjlKewiiYJg4TQXFx0cmNkAa TQt13eRRnxoZlRwt2Z1clcpf1q0rIiJCmoGN9siAcmYwcvTTg6+yObvG9alO 7ZWThuBM1VWeIVOhOGMzfkijDhJEVkOHlxfwYGz+yhr46iLPNk9YAp/+I9U1 evY3zhuVjEBCmZAyowiJiGsGyXxGcHFWDlE/A1SlQxBoPhbEgN/GZxcVJ5+d opMOQWnxgXjoKf1fxagfwaWxkwYIFdn/lILivYw0FmW4ooIeV/DXkuoqZ8x/ YHaEs8ilS5cURdpRQ7lWZIxKCSMqYpFQTOEt0EBLXY1r3D9Q2xvGvD01dGJV DUGRsYgcBSXf0VfldbjRn9WQo0D/EkiasVuunL+FY1kFeHHxFrtFH5JPNERG xhv2asxazQS24LLxvUK7j5RXnDPj3TfhF7dd+HP1BqNgiWRhYO1WEKTlxZRx U8txp0Z6V0tjTVrszzE+u+UAPJwbjRc3bipwipr6Uw1CdhDgVA37uQAx13UC Ezc2ETruDUTZu+KI1QS8W+iN0ieXtQD8TIO+5jKAexREfqqh9CgHM33fWPmi zm5z9+9sYTFizAbhZYgbSvenVdcAoaoRpUZGZ9AUMs1liLOYN/TjB6Io2t4d xaMcULrYC/8+vvQd+6poFz9m8NEZRD5mNGXwHTaN2VJTU5WBm5gI60cCLpPa DsUfs93xz/7UGuyrooX7XIOc7WQADxgHsJWGNHJnOs7eA2fsHFG6zAtvH14w NrEokGzin5lKVftuVB4oF9GvdhWWOM/cCm/muKP04s7v2aii5fhCQ6Taihqp siHjLM1OZuzGRki298LFiWSEFV6oqTHTlxrIbCPP9JNxZIouOo376LsuwhIX dRqJv2I9yBJ3iBNzI/SlBjLZxDuMT9yX3Zk+zhvXpjihdJWXotNEM/cFA0Yc hiCTTbJVNQlXQ3QpBH/9hZWs6joKfyd6ovTSdj6PqKe5QqNmV5RWhlIzeb7N jG7cQqpDdEa3/mwCtyY9cduZCOhqT9TWmLSaBvpayzNtMIA+VazOJpTe9WWr zUtbgPU9x+CfVE+8u7hNa2IepIqs+b2iEuVYDuuMU7CiQRDKwfvHPrjvMQ3/ 5LmDB22iJv2GXaP04gzL+ausmcEaI5AQ8KsIaORxTh+GjDVpC7G1ry3+zSAa 4fwWY8CIVKjJblf5thJ0shlApL4ekjAnc1YVgzkC+imPhoezaQOa9cMjn+ko 3ZehhJ2iVufgadOqnAbWZDuAKI01GHCSqzMEG8g0iFqCC6YZu7ZtyU7s9svC jSUrZLDIjOvScrF7gD3+ne9FzPkVvipRDX+tkmt6kNlMWlgw/SOty0A2QWuJ Xxvn5qYaVqUyo6ZHz3zcTD2Ou75+uGQ9Cif7DMTuTr3wIHcxbmTk4ERatiJR Ic0t8dTfBaW/ZOAHjXVzV49ilk5PzSx9zRivojL556Yv7cPp/aURZJCjtcYt hp3Lz+HsdBWHjz7C3tQ0FCUm4Ux0DC6TRV8LCMANN3dcdXDEBStrFPeyxLaO PXF/4SJcT8/GA6KXP2VQFxCeOTB0PN7lUBfwihbuvmaTiuEOl4oqGuBVVZhJ J6FC0K585YNQ95lxPtK6paWJ6KzIVrnjzO84d+M29hwuwvGi41i3tgALUjKw IS0DP6ek4nhCIs5Gz8XlsDBc9/fDdRdXXJ0wAeeHjcCxHv1xxt0H93JycZWg +F5hcQWGNqfR1uhe83tYf/M9CoaSCH1/OkuQ63sT3LWkioAr50oa4H6lce3D WVF0qjWyJjx+KZMp+Ejn9+kP+CnTaBdu3sHPR4pwoqgYUdFJWJyagc0Eg/sJ BosTEnBu7lxcCQ3BdV9f3HB2xhX7cTg3eBiOduuHU65eKMlaCBerEehZqzaG 1qwDzyYNEGnRCDuyk4yijSpJHjlqoe1LBXo5NpQNiSoq+UTAioaD2EEDv/xW HjwV7DuI/UePQUa8POg2sv6Dyak4GR+PC1FRuBocjOs+PrCs2whj6jeBTf0f 4NCsBYLMW2Fqu7pcCN++fYslS5ZIup97uqI5Kq9MLiMG6YxptISEEpimqztr 88j3TKeIlzftP4JDhcfw67FiJCSkYVVqJno0bQ+b9h0xtFE7WDXsQM52GEvO dUQZ12bTU7gpzBT2xMREKbFFrT5VKHwdFLsURPldWXLJOECKaWIv5uLNFV2u w893GjOUZ3JQfOQIzOs2Ro+2bTGsbS9YNbIlq7IkZ2dpdSPIOdd+Ki4TrVmd SZvWCqmjx1UmdfiIO12DTUShp74xPXisJ8HFVpmoWqUqfcrFTcw5jTZoFz6F 0yg7dGzRDH07d4azdXfYdhmEYPsospqh5OxGzvbSyhzIuXvRdjw+c4uZJpl2 1GXSWhmPUakXRw0Evf6NEZbbtGmTxKtyHIt4tkqubvhXmRfvoFqRIkDl2bLo 4eEaiAhvZ7zbFCBdPVt0GcETY8hyrMnZG1ZNx2Lp0MV4HZ+Dvx7eY1pJXhbN rdJlUdDFZVUWlpWTkyNd434SVYncixT4TeTeRjK0MQYQQVUHL29MMmiRqqh1 ivQ+L2MzkqPS8cc24jLfO8MEpQIJNTbBqk0Glqfex58X7+L5nWvMBOhWSllQ vVKeFaOsy91wHqyL+pMtaY5pwicWVRwU1i6vQc5y7H+vaXG4vykVpRe2Kt+7 cuo37Dn9CreevmIUKbsWapz4WniYTz+j18S1iEqyoTz7bONrcVPg/ojNLcJN /9oN8MWJVZkoPZDB8GgcPh5kcmExpPwayLOEGVABFM49e/Z4GbE8DIV5y/Zh XeY8/LtlFs9IqWGjET6BgyfZbty4oehlLTZgoIVIfyobyk9Lr8ln3prMrXMX zhZexpzQNLzcFod3hSuUDL8BIGsK9KWXRFsv1iUYkEHG6ctNDINVeueubyjI zSLorhOicXtDGkov7SjHPqbk1oC0jorSlAOqM0kVweBUZ8Y6wDjEPM4XK0UB TFdEBOXi8LJ5KM2bbggoxVfiITe9xnP+6sIFm4NZI18jgAlhv5ip5GtZmb0T 8WGzEUZUtAAMz0tr6R1RVuWIFSMUwjDKCEcNhgIDGXBlSXTIcEFM6dQURd5e 3vD2CMaDDbEoPbkWTRkYnHAiaJRgdFz6Ti7cYKQGk2u5L2LY+57InkMthdeC b6EmKP3UaXQkrq0jbt7lnzjgotXSEmIGuFQhFYL39y/BWLBKBuYK1QC4fJZQ v3nYu4iw6npP8JoSZwMRZM4GFOQ6H4brzxiZjTUWRBiHthJTr3nzdyInPgNv t0Xin+vFHGBRB33LJJszIB2dHnQ2PcC1lbWJcaxoU0OMw85rgf5eSXi6JQml ZzYomBZVEhd+OhOf8d69e5xRaouwa1eXPxEQbahbivuqooqZaXwBvMTkMCwE 59dmoHRPglKVFrWXFqvUEjSGzu2QXlXWEEF6sHLeeziCp9jzVu/HthzCvxv9 0EKDHbR0hWy6MIHZTUMVKRa0hBkHhHui1BdMmZOON9vmorTkdHMNCmuJP4PF 3jTzKPagzTIOF7fFXtPj8XATidPOb1EQpKWTaIafU032gzBWBZRKl7+HQtxB sCeO2UnqmO1PU1I+WoZGpJB8jQVRZfOvLFYONw4At/t5y37G+nnE8do8E60E FuEpW64x1FV2igkGiLVg1TTKDtKnPMY1pg6IPP/A+IW6W3PD0vBqGzF098+1 VPGL6A4IAY5IJpnCsDLOOlzR856j9wk8AbERu8V1YjRKNhAv4uJ2BXFaPqlI OdmxwlANoAThNkY5AsCPDEfUjzq6fB7erXDCysTEVoxQonzvWrIDl1fsV9I7 omxVF0zr+zsUQ43D1Ix9XHz0CHq1GIgVqZm4kukCu8a1MWectWTGy8nhU6le Db2iQlPfSbOQ0H8pXiTm4XlhEQdZlDz5Guv4fW+Lo+gtBzHlL6Y+BPAlgjVQ nIwK7NtTR9ugU636GNqsDfx6tMHMjg0wtW09bJyXqOTp9QN+Qza/Iol6czC6 3VBMneSCuKgbeHb+AZ7cvVVdg0vkrITBdihVXqWsi112mXR0vkx1XV634Mpo W7MO2tdojMEt2mNG/06Y3as1ons2wU9ejriXlVPP4JqrljG5tHwaYu8Nh7aT ED5uNuYERcDXPwDnHrxkrFcms8TW/YNCB10G3lAXMuuf5kkQas85AL4m4KK5 QYJ9QgiWC/PqZjBv2A5WFl0weUBX+A7rgnCrDijyd8UTHxfctxuBu74+uJ+V U1OBlTc0iIMqlysj2N4VY5uNgt+QmUgLSsHyhamETe9yO8jVmljr4ako3oKn KiDKksRipgp61DHGmaZ0M3G1HWwAmWJ+Ri4Afa03B+WCYHs/TOnkAp+xM9Cl XWdYdmlPENoSY3sT5gqYiujIZGxNScfppHiURIXgyQyK2JEEsTMoYmsYQ6ec 6aCyZd14IFy6eSLOLQ5LMjJx7myRsmrRonN7Jrp4XPgqG5tKi0tkB+VDq4q8 jd2AJyraJB5eBWrgX53gbKuSxLy0RRjTbDT8rYIxb3Ya9u7ciG2b1iJ7fiaW LszE8kUZDLyPcfbSDew7eAxzZydhixYt/AgtsnOqq6bgfymZ6SELeyRyYjKw d1cBHj68oURsYtxkuOzxIchvaKIKFqMWjbpIqIBbQ8njtkxWVMAhZFwAnCzc EEO4btl8ynVHWC6T4PQiw2kEwWkyx2kowakrHtiPxD2C0wfZOV9q2EaCBr8h QUifRdVDCmGSEl4U0koomfBgwv8HLFZlaDIWqIZooFKdxu2gW2UFjG1hi0Dr UMwnscG+XRvISm8yclH8Xcdegr854UnYTPD3a1KCjD9fij9rjr+vBAMrKYHu ekqAJ3y0Qg3R6Bp4tMII4n5gE6t5wsidYlRnYvw8U0Cpocx4OX2jIC2iBZuK iubIRv0xjepGzwQsy87A2TMHq3EkX6BILsKmNRvKInkcQbK/hGReiZCtug8c 206WBH1BbDr2/lSABw+uK229YtSrFnTKFB+O6foKy+hERI1KVdVJ63ETPxNQ WcU4UbmSSvLPxRabGFwMjKfV8nqMhYLt3WDX0h5BY8KRHUNYmqCG5/z2ECxv zNuATZpY9qVYVmanPoIt9RGGciWQRJUAzzVQwNeuXSu9+8YASzGFUE4Ddcxf aM3uVJsgepA7QwxgSywTfMLWLWKLY4yXQfxG/owLCy7heWYObtuNwqmeffA4 NxfPCCvV1GPSAXDu6Y0En0SsWJCOx4/uylmdathzoAgbBNTdiQojqHOTUHef oO4hse008qD+eq86tTC0Tk0Ej7KFDVcH7nFYmplB1EGh0n0opky/YsKpbtfn zMP0hGy3mWSVzYyo+jCD2doM4O5ThRxa/QgVmHgmRF7Cqr2PsDohHYfjk3Ap cjZu+/mgZNIEXBo4EOfdPHAjI7u6wn/usG81ASF2s7EgLgP7dq9XN6ITBIgT 7Wao3UhQe4qidg5BrZ8bsnp2wSASDYyoUxdj69fDlNYDED5eJ/BigYi7Vry3 Q6z0irlirgBYg15T48pQq38s0ABOVWmvsipESw1XxcY9h1F85DiyyKL2JKTg zNxo3Jw1EyUuU3Fj5HDc9JG8Hjwk7MkTypRVrRsPhmtvXyT5JWHFwjTCqiW1 jEgCJybFdQHDtXPPfrBp2hr2zVrCsY0ZZvRqR6yWI5Vy3rsnpoG0TL2sDdBY A430YMmEUOMo+0aFHuPWvyrOXb+DQ4ePIyYyBRsT0nA8Nh5Xw0JR4u2O2/Zj cbpXXzxZvAin07JZ+ZpypQfGmzkibEIUFiYSrtyTrzR4inMY7hariHY/NEff 1uaw7WIBF0sLBAxpS0xaQx4+a7lFonWXQWHltvcmO7joGqhOfaNIlE6nfsVo vGt/EVatXI8V8ek4SAT2QlQkbgf4omSKA64MHoRL7p64lZlTgRmFrKRE5CbK HRRnC08QjTUUHv39kTIzGStyUyhnaT51YwxV00bbo0uzZhjYoTO8RnSD1xAz RHuOEx9O4Dk0tXmmKoyhins3H5BkCTSONnOmzTfsOohjROoyYtKwKyEVv0bH 4EZwEO66TsdNmxE40rUXHuQswA4Sh5jXrYn+dWpjZL1aGFG/IyYSvyPCcS4W pWQSNbS6TBbGOG4qEGkvhNOECejaoR3GD++OqAmdFW9QTN6JdRLOKFzuWAeW +pEslfp6T92js8JDRI73HzqGTas3oIBo+aLYBFyJCEeJjycye/aAVY06GF3/ B9g1aAD3XpORFpyCPds2Ec64U585IyY4UjwsyMvcirToDPy5LQr/3jjBly6K zzds6dQd4I2mXJTY0muz0VSd8+9Zcg/p40/04Nr+SyFWLF+PpURcejZujVEt 2mBiazNM69weAZbmiPW0a6DvwUjr4k69t0s8HtH0/dlNChlFR1+Lv6vqr4Ee dCsBpjKDjK+ht0ELUxHt6/1IVFQbjO1ugRlDu8BnQGs4dWvQnn3JbqA/Tq7O ROnPKUorhSFXmbMa64zkxoUKGsV3YWEhevfuLZElwDjAfRTs8Xzr1FF26NKi GQZ37gTPkd0QOKIN1i9J42DmLWWNGJtmKt31WpZI1K5VRDDl1BU9KAfRw9ra GidPnpxhHFJLg2JbHlnEQ+/QpgUG92qDglAbc3b5bOElRIak4uXWWJTeO8vB FV276hocoAduJekS5eRnz57RZhUSyzyQhiAgw9M4zIONwHy28AKiQlPxalsM /jm0zJx91XncXNwuSJPKBjUFNuAqWZ0bZaxQWYS5smSo6EG5gTtHfBQCt6sJ YOsJ0rQxs3GzQOoXAYc0LHABDiydh3crpypP2YhJHK4o6MBil4gukwa+xQcF l95K9SRBN8+QcueR3kVGnGocajsGw9q1B7B38TyU5rsrsOZl7yJ2NBP/3Rqu PDQjKjXe0UBpzAklsEQlfQYWV0TvoGALNm/fvn0KEiYZh3k8Z4ZjV4neTcdf 2yJRevtUe4VHTiHAJwnPtiTSfo5aKn4QVdjjx49VSR6IPqfamymvAesE47A6 sls8p8TigVQT3azg18EqFBdpdfvKTwp+ReX1tWponkOztbWlyXYGsPStMtlS wauoqAG1nXGop7BbZgctRNFKwgFLHHVcsXo/ti8gnFLgrTicYuz8BdNe6qEp P/IQlz9Xxpag5S/zxkaqnimJKC34M0GVNFY02siKCLKmKTy9E0tTKE+HgGu8 vIxNSIpKx5utc1B66yRflKjxPjE+OmeMsptUyAGFwS4bLrS8MMH8HK5BqPtM ZZmOO9I4CK7slkDvRDzfSjj/VL5CMo+pcTLzndus9xAYjzHF5ko6pVbzWCXD S6zO9Kc6TKOLoqRjXu7HwszcFAwzvigPdkvs7OWsDyReWVRkyBIcJ7xZ+kuq 4s2LNrW8sChD2X0RJH7fexZFtS5lZVpCJZSqqrGoQcYXxbsi85bsRcF8Ygo2 +euEa/Fe5KXTxoEg1vr2sZ7KNTCkkvvQXgtvGFH5tHxzFrok6pSyxtJPNJbU XwOZ6lLvDEX/nkdkcKrUZvDfQ8t0avkCwoNS8GJrHO0+qCOMSIME+qCdmud4 7oObcR1ZZZXxkaj1uI6htoUQRkQHN4e9TVhFALtv6qhw3ChI1zPe08ZGEYMu X6vJ+MOQzDC99LXhJdQULI3Y+E6dFDEpyTVcNwPQi7XXIHbfmjUHsGeRvjkP 9Z+Pn5eQa6unMwNovPT4kQAD5z+eoRIft2HL+Z5xPfUA6MFtPDWgZGj+tLeo szsbgYKvKISzT9EVpM5NJ0GWYOwrIG/+Dqk97++tEbRfA2eOHEE11bAawqLk B0WvQGvLpvKCBOmyEyyE5/640O32hcYyzU3QRBHsPnfHaMVPaKxMqitLV2LT Tx1jA1/PRKm9b3rzOhjXqCYuFB35TJjKQHKqjNITJa3sfk5ljLPabHEv/9q1 a9U0Ft/GhMVHsfsiZmajcAUxzosdWUfFBxQ0KiEnOREd6tRF99otML1zO/h3 /hFuZvWxJStZKbSJYKgRw4VOtCJfGkbMpyZbdh5UEOvO9QG37JSNWqrMrxaK ormBmL8di5Op/xL64SiqgvnxiWj9bQN0q98ak3t0Rki/dpjbuwUW9mmJ35Yt wm+FxaioQpWWAydqZu4jcdYXDZAJPKQKY74RRuGjN1VxtVYFNJ7d50+E4hnz fxqbjiD52tdSg8rQhpZoU7sN+pt3hn2vznAe1BVBVp1R4GKP+7N88WjqBFwd aInnSxfhOUGYET2jXo34mMr/BZ6EtOq3qpGplW5kQPpFPCUxxTlqoDPOrsnA RveBGFm3Js4fPVKmaq28k9nnK6XuObWLO2JcYjGiz0B069AWAzu0hHX3Foj0 nYzCw8eRGZuOX5JScDlmDh5IGBuPKwP641hYCO7vP8wzNWLgy7EiGspy78cK V72UOclfdT6WYuULRU51arQys94HSNh798RVQ/WkWI2Z+ZMhVNt0bdIZ0U5T ENilGSa1rAfH5jUbClad38L4jgFdnTXweGG8mQNCbGcjR6pqrpc+PX6sCAtz MrE4N0NPWfnNCsfs8DmYT1C7n6D2CkVt0Aw8chqHy5b98WyJXP3joa1otT83 jNuvFZSI0aMQinxnCKMf0BTFFTRdT17WHqRMCkOIiwv8vb0UvmykUKnsEx4T DZKhEszr1EbHGg1g3cYcQf3bIaJTYwR3rIfrGdlCiVvXA06fwPlxJLwHBiI1 KBm7t2yS6gEfCSAaUnq8r+fijTsoohWuuHQckEgRJZHi4ZRxuNS/H54tzsXT wmItTcYpIfpPjBI1GFJ5qpKnv3U9wXJuhxKW5XaM7kygnxOmp8jk7m5+yEnY gtcXz+Jl6ij891KxVg+jlmVTgt1jF7FwYBD+vnhR7lYWbGFVicc71GgG87pm GNmxM9wtuyB0cEfMGWyGh65TcGvEEFzzpHWbbKZ3PhXUi5ukXmh5+fzZo9Kn hpRsFYUoJVIBJEciSjKuRhOizCREmWyPi/364alMFLHEylUPt/tld8xUWiTF +JyqG2q2jxw5whWZ6PB8roHGj9gC6WHILaPfOHLxFTZsXYmXO4Px7/yReHfj hOaWT1r1Vx7N0XaJKRbLcDXlBP7csd7aIFU/l4yddVMbTOjjAou2FrAixm5M l5ZwHNAOIc6TsDUpDafjYnEnbBYeuk/DbethuOntjZJ5OSzk/kSny1pPJLos Ajm07Lsz31AeQVK8Opsiw1UZCwnVDkpUi8TDmT6Eana40K8vni5aiCeFxdwL 4+GQjE3GhoJnxqhWTaXUZPrR/V7FTjVC6poa9PtMk37yYKrF8ALYBaIQshYk 4fEu4sYvtcejOS5Gdur6uIxgUjpYNR4Ou64+mO68AzsPPcKDkrs2yjL4E8Ey sn0xvqMrwpzjsGh+OrZt2QCXKRPRq3MzrF6cqXxXKoyvLsDGxDScio/H7Yhg PPR0RsloK9yZ4UNbj1kI+rEEwOgfRxCtGCBpxfzlS7EoN0vthX72XttWBZdv lkjl/9z4dBxKTMY1StFAbzycZIvNvQNxL325nq3Xz7BpklPqR62qres416sS aHU0CPsxg1A1gsKl9ODCWIWt9Oz5m9i6cx1u7ZiLd2um4M8sd2hvqaegoKK0 7ZNVo8EY28kD7hOjETk3DUeKi0brbFBFRvaFsP7RGm5Dg5EyOw17dhXwNscd +wuxZlUB1iWmS1tk3Jodioc+rrhra43C7j3xIHsB7nMTU0WnOC3cEM0UZ1JC uLQcbr2+NEI8XuW+Qol39DgWE+JtiVyG45lX8eJgseix8pyhmCXiIsl3dKlY xitgfz8xTkQxEUUkVZ3Vo0q3imCn+aHWoh/p+KUClhbk4+y2OPyz0Q3vVvlI bSc/aIPBm8n55by0bFg17I/R7ZzhYhuF8IhUrN281pYhix7B9jMwztwFodPj kEuE8dHDu7zTcsvPR7FqxXrkERIeS0jEjcgwPPB1x71xo3CyZ288WrAAjwoZ buUmwCBbd0mPBlM9SnzC/NU5ugfHNR+hlyGRr63ZegmZmx/i77/fKmGrGMqq WwkFihnorn8Pubh/xFIf9YTxedKaM5aBOsNXjEgpuatxeFMC3m6dgdcRlvjr HCOSsAFVJaUhmh5TrSMQEpyKNRvX4+6DW7BlI3GZch0SjOQISabA2zI37TmM FUvWYnlCOo4mJuH6nAg88PfE/YljcbZPHzzJlYzNx4wNeDge5uInK8cBsnLc ubGAuozfapBCy/nVemqdk0J0yD9i6H1/29DHxslCpYc7j+TvD+we0YGnVwyQ 5Fu2+lt3S7BlTRL+2BGE/6YOw4nl6ehVuyYCRtng7JEj9QSaBNt7w7rFREwa GoqggGSsXl+Akgd3wAVF/o4P7Ns7I3RaLHLnSYLCd06hSucEUTqLmMW4OjcS 9wO88WAS9QFkz41ENuWZrpsXF4eVublSUOTm6ET0Xj89vXeOOIzcl9bSdWKl jePfCD1kNGvtVWWAADKteJWzAcMB9fo0UtySs2jgufbyjBKXbt3B4sVJeLYz DO9yR2OORUM4NK2NCT/WwvlC5oN+LG0q1atOTQyrUwvBY+2kBrGRzWzhYBmE AO8krFy7ASX3S+wUQVlABGUkXAbPQnJ4GnYTQflOB001NTTYT0hzmTjV94lT /WAKiedJ0Pk4dwEW+fqjzfffoleNbzH8+xqw+qEDxrWeoCgxGtjqBtY1d6k3 ABRTk2W37Nds6NRtK8Z5n1cLWdWWc6kWr3NZ0No8S8u/luGoRvguD0mJcbi7 Mwr7AgcivEN9RLSri2WdWuNI99442K03fu7aE7stemB75+7Y1LEb1nToiiXt u+Dp0iV4vHgxHhFD93BhLjiu78zLlgKhGyRopceV9GxcItbnAjnPkvNXcp4k Z5jNWHT/rhas69SBXYM6GNHEGuN7+cPXNQExySkoPHmI7WlcHscKb6FNgyh0 rx8FH9tldfWE0Rt27acjZCoRRiIyRBi/N4iFz6Rrhw4eRVpMGvaRePdizBzc m+WHrH59MPL7uhhbtx7sWSeVEFP31FB8vLAphlqKoJXqtf3pfDqqhIks1TZu S9TPJVHLZGrvqnxvE7jZ2KHNd00wftgQ+JJgNWpoe8QNa4vd3rb4PTMKv2fM xu9pEXiRGo6XKWF4mRyKl4kheBkfjFdxQXgVMxOvogPwco4/XkX6SnO8DPfB y1AvvAz2wIsgd+na7/4u+N13On7zmYbfvJzwzGMynrk5IodgdGzDHzG+aVM4 tG4FD9sZmBufisITR+XH6vh2OaJw8pLAscIbMGs4D72arMOIZsQMtl+OYKeV tQWBH9lkBJxJyJ5EBX5nAWt2+KqMnuQopgdH8/L8Tfj558NImpuCHk3MMKpl W0w0a4PpFu0RYT8MMZ5jegsk4L49p7jo1zOKfyfQWagTf2+czuJDO/oxd3n1 OgTVUEOJnQa3sEHbBmYY2q0rHC07wXVgO7gNNsPChCBcOluMK+S8RvyPG+S8 Rc7b54tRQs575LxPzgfkfHT+OB6T88C2ddKc+YtSsWlJGoOgKg6vyEAhOYtX puPUygycJn/jp0+BTadOcO5rgWn9LRA6whyBveubvCdheSaN81JPwazuLvRr 8gtcux+Ff7+fyJmJywMH4ESvPvjJojueL1uMhzkLcCtD1iEH07L5dpc8Xrdr N41wRwwWyvJfmxkbeqgRTyNAeih7eFREu7o/ok/rNrDtZgHfYRbw7NMM8e62 fVQyqGsuMMIAFfXKSLxkSAzoN8YZgRttY8G7bjL9dJhkHJvbY/KQEAQHpiA1 LQ3dzVtjmEULjOrRHMEe4/gDbiojz//yKknx0SJ0bdYMIzq0hMPAzgga2xnJ jh3w7zIv9lBDGbYUNhj6QqLHNOtVaFH/HCy7PcBUm0fwGX8ffuMP40FOHJ5m zsHvKUTdEPXycrYvXs5yx+8+RGVMH48H423kpVbEOS8vPF2ySFEKtFX8Ft9x srJkDMyYMfCzSyGKwArOA2YiMSyVKgK1aqWHkGTTa3V0GmUPi+bNMKhzZ3hb d4PHkFa4eKqIbzgsRhyVBHbg1xjpv1QhoqIU/NFiKi+osu6lr4wzgVZZ+VMN JignUHME0YLUavp7JCI+NZl6RVzgjhcXKbd8ZkSpVGJ4zUrLQJe2zTGgS3MM 7tsNRzYm4u8tPihdR4zASbZbjIFAs1kZtStz5Tg4WYWjldkt9B30EIMGPMbw YY8QFnMKB48X4fSvx3H1TDHuEDV1aHsBtiwiXvNSomKWpuPqkhSU5CZK4z7P IOYqKVRnggJdpNdPnOxwz3YErg8dhDN9+uFAt544QVDesU44+tfLwcDGORjb ZgZmTSG6IUPwDQwXlXVaVrs/Ois9Az6ugYid4YIz8aP5ntzUgefZHx7DanCK Yf9MjkCpwmA9H/xxEgO8olWeVu1My11x204e8JocS4xvGnGqjn5jhBV4omHb ll+wPT8Jf24PxJ8xg/H3xWJWuDRAf/Gh4oVS/m9cT3/M9E5E/voNuP/wDrJy X2Hx8lc4deYtc42rYfPBQ9J9534txvUzckC8NCsFuxbLSvrc0jTcWJyMewvj 8Xh+NJ6nzcaLhGAMbLoB48yPwqrjr3AbcwCz/dexMKmy0aJ4aZkKCn9cj24n kkhC7D+3zEHpnV/7qYy/2DQmxlX/eQ9ZP5L8gHKK50c/+NQ4YXnVTyyq81u4 2R9l5gTnMZGImJ2GdVvWfKu/MM0IuwKu3L6DFcuS8GJnCP6ZNxLvrhXjR2M0 5Vkhf4xu7wJPh2gkJKbhxK9HvtC4S99DqYLdR4+i+ORxXDxdjJuEtJ1aXcaQ fo8wdsQj2A//HWMG8y2bjNepeI+Bqx3x0+lmKue3gAudWHKt+H9BHbYE/kie 0gH33j15xPQDv4U+WSda4TUbCnD3we3mDPtnr95GxrxEPNo5G6WLbfHb+oXQ +uEQAhPXmpHhxBHblv+VMRppuVUV4DD+ATpZPIJl/0cYOuwhAmfeNKmRiPNe /rqDOLhkHv5dPgW8616MfHj8Koa2RpD9EbuJB7Rig1hlIxgnYNXVwDh/NIru bMunkKoOeqYwiZpC8D1vzp66hk3b1+H2zrl4t3oSfk90Ux4vVDRWLz9ZYxVI Gqua6Xjn+MjMeYmFy2Qd94WAb0N9qJyf8jI2Iismg1jbcAXfYtzBxxcjzffi u7zaFa1oHNW6J8MNPx9UDldO31Ku6epfqihO5uRP9VJ09Jw22hr96taUHtYa Wa8+rBoNkKyT5+QYbp3YRgrlsXhdPs5vi8W/Bc74O9eTP8Qoq0CmkhwVlaQr /etESasvUN2KxPnL2ykWjzclofT0Bj0KcPWi1RTNKKDbebu8gHd6sN1ZyhnH e0UVto0zWV3M91iOMw5xuDVxIn7t3Y/ESX1xrGcfHO1B8zW9pHzNTyxfs6FT N+R16CqNo8vX5Erv75OYih5XU9KxxnEKDgSFIX6ULfrVqIXR9epifKN6akOj dP+lLFqNwk0J+O9mL5Tm+aJrnZoYULsm1iTxfY8qKGGJrMrSiCpby4hrXOPz nT0jgxaieIXcEz1AUEL66X5NkvBsLH8yjQoA1XEGKPCxBrYNq9c6CJ54Cnf3 3MPr3ZvwPCcav2XPxW9ZJLSZF4UXmZF4kTEbL9Mj8DI1DK9SQvEqKUQa51V8 EF7HzsTrmAC8nusvG5/ZM/Aq3BuvwrzwKsQDi4YPhn2zFnBs1RKT27dBoHMg IkP9sWvLajOF0fj2U9t3HMBO4qb9tT0AryIGYsqPdeHYrDZm21uDp1KPs8fe exLy+NnYyAU9ou3GS9ouiWs7M+NMyuuEeVk7sCwpE/9sJl6YYHK57ysmrjih 9IiiezKpevXqGD58uHbrt3a6uyIjwJUbb3Hu/mucv3mTCP8x/Hr6GM6eOY4L Z4/jEjmvkFNJe5wn8cV52be8x1IeD1na48l5OTxckp2Itbkp2LgkFTOnTSGR cyc49bOA22ALRNq0g3+fH/DmbHFrbYsgU6M6+pAgctXyZJzOcUZ4j8aI6tgQ ER3q4JLlAJzr218S1uNEUGlilQrpLovu2EgE9Ji7hySc9KnoR7kLpUdb785f gNuZObhJQt+r5OS+/HHy+hA5d5PzYmExr/K1p0/B1qPPgdaBdaNuRDs6C9rx cCsTbBHfUzPQIwHPNyegtHiNInZiCuS9FK6A7Oxs+Pr66jVzq9usRLLyWKas g1a274c+n9uxSWMMatsE4/u0gesIc0TYd8DfycPw79XiVtokkiW3ibQFTPNq ddC1URuM79kJwcM7Yq5VB8wZboYni+LwbGEsni+QJfrF/Ci8zJyNVxkReJUa itfJIXidGIQ/4mbijxh//DHHl0ivD16He+F1iDteBbniVYAzXsyYit+9Jksg PHeegCdT7fHIcSweTLDBPbuRGFyrPhwbNsKYxk0x3dJO0Y1i56yhNnaeX4sJ W4rzeRl491OsIoZiskIi0n8ojf9D79Ojj74zxX+hSoUwY96Olvtv4KucP48X FSHIzwdTxo/CoqxEwiGJeLIzXPKE70e4tDQ2YlPF5lNrZNnWGt3MLTCqTydM 7NYCk3s1Q6S7LfYWHcGhE4U4dqoIp4hKOEfUwUWiBq4yNcAzn/eZ+NOM51Ny UtEvWJSKHSTU3Lc8HQdXpKNoZboEyhny98LKNFxZkYrr5Ly1PAVDzMwxuVtH TOnRCf5DOsCvX1NsXJjMxMe4e81/3Chv4R6sy8jEu43+yvM1ontNTxbHMMpp NS5+ru/ySIj/Uv+aEOJWkgSfdx4UbFuHGzui8W6tE/5a4CEn92TSyfEML3Pa tHKQDHhocArWblyHrLR0dG/XHIO6NsfaJRma7azc3zFv0AQD27SAXd9OmDmm M5z7NMC7mycaC5gy1D+mPGHqn4yXW6QdPhmf67aDpFilV1gQwjAldhcKT46a M0YUveqMpXk4vjlecmKe+ffBmzPFzdnX6CGjwFPyYSYNDsasgGSsKaAV+jvf KchVMqeFRXCd7IABnVtg9PDe2JXlgX8Jc/9ztVjYAk7TTa5ssIPu8rlbKM47 wJExaXgQruXTJ3Z2MrapoOej8uiAYUKrH0yNBspHtDi+WSqOz+RalPeoyyhw VwAO9EnC6vwNBAUl0CqyVWHIDwuOxp0dUfh7ng3+PF/MO7MEvVImO0sPpuW4 rz21SwzOehDybVkN5eHz5T9je/Y8vMv3xGA2Gxcd5giy5ddSLZ+yvdbyz1+/ g/nzE/B4Z4Skju6GuzRhnEb3xxvRZKQUVPq5J2BlnlR1rq1Qn6/37K/XEZuY QIJ7YipihtUUOJweal2gcxoqSCi2ajgQ46z34uS+R3hy7SJ0T5ldRExoKkGA tCfyIIG16ZDUQOjWy1sBqJjztcnrrVqmXSJ/yzpcF8Sftn8vT07CisREZVsP OSoeBvtuPvCZHoeYpBQUnTzcnMN28RbSspLxfGcoSjcHi6kcQ2lV3vSgNul0 WxOrxjYYPTQcEXEpuPTwLfuR2HKYPiYCdwrkn9Lgz9Lz1VCqssWrf6OALlTr Fz0JEwpKAekkjCkivs7fRAM89euDwJYNMKFxbUTaW4vuswtxn2eMspGeyZL7 4QbJYeskErbGpdKwlfsd567eRu7iZLzaEUR41O8rDZuulnRjdlO8RnthrZo7 YPz4aCzPLyAMfYv/gvPaNQfwyyJiUFZOU7BEp6SqkboPDEt1tXWj4aJdPb1r oiJZT6LzDXmy0sgd0QpBreohyKwm1nfsiqUduuDZMuLPLlmMxyTYfLhwoRRs Up/2DvFpb6Xn4Abza2ljwHlynmFNAUXMv6XH1rRsJdVDqGBRtxaG/1AHtj/U kjrZxrR3gdv4uYiam4ajxUXs4azyuHjzDtauTMaf2/zw91Lvz1Qk0Ao5xXyn QSdI9zFtObBq647pRCcUbF3Hf3LqbOEVpM1Jx9sts/H3lWJLdpcW7c+cOcNo wvenEZHbwiBBWpQRHn5f+twYWLTqCbfRQzFrSHtED2qHuCGtcSGCeKWS5zoL r2n8GReIP6Kp9+qH15G0Q80br0M98SpY58G+9JuGFz5O+N1zEp67OeAZ8WLp 8XiyLR46jKGlOsmTLRkzHLethyLNvANG1W6AcQ0aYmLzZnAeSzMGqThy/Fh7 hoRrd0qwbW0S3hJJe5HugaWytqlsgDii11RRw6dRFOcAWPcIwIyQFBrmyIjT pbDK6Sx0eal59eFG4k4sDMHvhcW9mYRxhaWenbGGuL+gikpaWwPLVGquoeKK 4TzQAYNbWKNdQzOM6N4Fk/u2h/ugtnAb1ArXiYd6U1Wfl2vzOk/1GTlXLUjC xsWyt7p3eRoOEI/1KPFYj0u1+XTisaZJc18m3upVct4gHuttcpYsS8K8qQ4Y 26EDpnXvSFyxTgh3HAyvEe1lz1X1ZCZvdYyNXYpfNiTivxtckd2rFcY1qo0o exvxGRhDLhwP+GTtbq1o93sPSpTd0EWHQKvoxvPZZw8VYorZCBzx9sNvfS3x yMUVPUxQrWzXjgaCaeTNnM0MUk+ruG4n9QMGz0qBl7cHupk1hVWXFrDp0Qzn TxUZDl8rIZsE4N2JSIzsZIbpQwjSbTsialRLlIS5wGhBVQuyzyQ9aOfgiWPE aO2eORRBbeohuE1tZLRtg+3jJ2CHhxtWj7PHUtouGUDcxZQM2ofFH0XaTzTr RqZdoYsM6E+/HSaRMd1UUrYwc5mFuanELGWh0bomu4xRxGV0bToE038YiR39 JuNPu/G4bWnJfgL6vTLH9jTiD/CJNr2pwZll71IpA/QOgL83cVbX0SLMHZHy WhELf/4qJz0DPdo3x9CuLTBiaA9c2h6Df/On4q9sD+PlzyaaEu9iPQatvmkM h3GO8B7YAXOGEJ081Ay7PWzwJjUEb5Jm4c8EWmH1x5s5M/BmthfehLnjj1mu 0nivZkyR/v7mOl76+8RxNB6Ot5ZeU71Ly960U+Zc//441acvCnv2RlaLzvCt 153YJzdun9gPkRt/1IFmRiY07ImZ7e2QOSoQq4MSEGTjiWUDpqJ48AT8dfYc OpkgcmzPwUYaxGuipcjLY2xnT3hNlR3Mkvt3y2ncaaAExh9sSM5cgSMbZTfu 3RqiIo4XG3+euLFyWY5wiIj/aI3xPXzRpr4ZiW0tYNu9DaZZtoXLwFa4fFaX QrjLFDNXyoe25WNdboqkkOlRSJTwSaaEL5G/11emSq/vLk/Cg2WJeLwkHk8X xeG3hTH4PWcufnJyx+Yu47B0YiB+9nNpr6GBOKXyiUPu1MQSkd2csHBSGPLn pODQ1o10z9JOpgmW3FKgPElMMSwYtO/0jafeHrpK4bnNVDjbz0FkdBoKTxRW NEQrSbx44flGSQk2rE7Cm+2BeMOaCYw+zSw3EwTZesGaaF7H/jPh75GAiKh4 JCTEo1PLphhEwuzh3Yn2/bVI6XcWjYm6KYGfV+7cxi/Hj5JApggLItKwtP8U nLFyxKPVa5j/+KkaJIVNIlkgnGBJpMJjLtYnp2P/TqolS1ifqnHJYD9e8KOG K/GdSkDLLkU7w3Ln/C2Ze1uMw+ThYQgNSUX+5rXqHa0pWeqyKc5dv42srESp AfvfbBvpqbxGGtiix4rkedKvTtLDifbD+yUhe9ESXL15tUw3qiFQeeny6skL uPXreeldW534l1MUT2A7O/BrBfMzcOmMXOfkMft7eJv9mgs3EPQqj/p5a6Ym r2khtgJszYIwoW8gAmckIa9AKuTrPXJCbQmdvB4beiMtLe+YQwKwiXg817WB uEAKeLx/KIkaLZUF0nTayvxVKCHj8s3+tfjOAJidGU4oW+aTgNSpSX9EdnXC Akc9taC1V4eaK9kvTKl/UYuyjNavygpJr3KIjLyH1Zv2SoV23rsmdrLWZfNn rVqDM1vj8M96Z7zN9URWciIJABJx+sgRFrnL5F27ZDmcrOwJpobArpM73MfP wezIVBw+dkyrvttUUViqvNrHAnoiSdTs3mI4kVoPtdS2M42z5FXo/WQXx1B1 FYYM0Ys/XiPKfA1lHdz72LnnIPatTyTx4wyc9u0O36YNYN+wFsLHWjNaVJXS EQsS4pAeEoJ5CQnwmeYK206DpDTVuG4+Uh17TmwKCYgLlTq2CJ2Wl82ridfO 30REz0gEtLNFhk2A5AJwSWxnAiuxn6rkjaJcTtiCee/jB7B5dQ208d0PVcPI OPwaeWvWYiWxta92zMI+124IaFWXnDXxfPlSPF1K8xHywwr3s2k+Ige3M7Nx MyMb19KzcZnlImi76QlyHk3LFti9qrT25YtyYV7zOwz8vjpG1/kOIxp0hHWz sXAgysLPLQHLVxXg6IlDGKQBZqleRFoBu1ZdRsqMKzi6dDeXWNkIfSRNVdEQ Q8q2UwmiROx8pSEmWnngb41hsRFcbWzRsVl3zPaajJmDzeVkwuBWeJ0SgtdJ wfgjIQh/xAbiNU0kRLEkQpgnXtMkwkwXvPSfjhcznKQy2G/ucgKBlsHo8XDi KNy3t0bJGCvcsh6GG8MH4+rggUhq0w7WNetjXH3C9U3bY8rgYAT5JmFV/npJ wQz9QIOzr+gV7jx9Jb1rbQL3yhqQfVU/bcyTz2JL3rf6mCZ8KSVMGw2GbWcP tG3YhvgnXeDQpz3cBraDy6CWSkGau5FyJeq44ko+J2chsSPrqTu5JA37lqXh EInvi0h8z0szUiWKxPO3liWjZGkS7i1NRJbTRNiam2Nylw5SXB82YSD2bluD 4SYirJ0JLCenCJVgUNSB7VXX6B1y095nZWRdRhFR7tTlnxQjaaqC9QXoYkZi LosWsOrelAbUn6jIRQ8OFD10DTkkwE5KQw8SYNtYmMHVqguCRprh5IxeeHuh mKVCP0jlmJnAKbKjyP4YRwa9Vo2ZGT4NRQI97C284DUlFnPjUugzMbIBLbvV pPDAgrIAXnXKIZ/1NG+BwV2aYcIoazzeGY5/5lnj32ts8SpV0NoQqYVkqLwE pQ1LlStup7FA3e+r5CommNqhufHJNDX+mYGFiTk+Y/zJf3Np/VbmYy2xR+mt UyEqSmnloOS4SKGKqAHFhfBDEGd9ECoJKxxBayJdveEzNRbRCUlkhUeM/V42 B0WXxeQPIucQU3VxWyze5U3Gkxi3mar1aOWp5QSKUh0tu57yynrY77YatvcV MS9gBVnNcMlv8JkWR1aTSFZz2JTdxT7RuV4GHvUsj+T5K1G0KR7/LXDFXzke 6l9b00KSnNNTij9iKau9sBBdUx50+d0AuyOIDFyC5SsLiDgd+NgEdH6hQo4O eu3+VVop3ZVPHTQf3J45Cn9cu8X2fzY+j5xrBq/WlFUYFZRliaDwhvPL19/i zJ1XgjAYbNMyXI7Xbn++fOuO5C79QULz0ruXXE2gkdx8zURLpx/oV8nHbYXJ OHsKPwxsvAWphibuBUxcuf0WD5+8xus/3mC6CYiXWwZgoSEvrYzYBjKc8DSE 8QZSYz/r4WECOmW3hkm2Boh6OokLN528kgnr57trqxapxeOmoFP+qVR0FcST p9O17MJ7+l51eyLoijXTTMCYjQxFN40ZeUQnXtMYItmEtY6RZ+lucBaZ9elj 8OyWJBNgl3+nmOk53RZYjOJceOignC7xJsAqb9uNXho8JHpsvDksxgRA5V3L 0Vs1JPV8uYdMLR2VBPpujglQOslD9tHAaCuNISNMgNJZHrKvxpC8qC12B4ea AKWbPGQ/lXpj7k9zjVHVvxyrBaiXPKqlBoWaaQyp/pVWLUDlHYqVFk2RQk01 hpxhApTytEpDoWh+edaSfpUP6WUClDJyWDisUQ6A/kMkbiZAKVNR6f5RUaiR xqjOJgAqs5sSZYoUaqgxpJMJgMpCwbYF1x+ygcaQk0yAUhZdJbTjGpiik5eo qfxQOaLvJphgdBPkIa00KMR7E8LDdc9U2ZsApaxf5V+tVw1ZT2PIMSZAmS4P aa2BS977I2pNGxOgnCcPaaMxZG2NIa1MgDJHHnKUIH9cJmtpDDnUBChz5SFH a+BS/Rsx9N2g90BJA66l8pBjNIbkHpioiC1NgHKFPORYbbtWXWPUPiYAmieP aqdBoW8FFHN91NMEQPPlIe01tOY3GkN2NQHKDfKQ4zTQ+bXGkOp9wsU4n0O5 WR5yvMaQ1TSGFEskhqAkw26TR52grTi1Noc29LiOCOsueVQHDSLx+ErUcq1M g3WPPKqjxqha2442NwHQX+QhJ2lYt880hmxiGqAH5VEna5DqU41RG5oAqLxH KKao6MQiLF6GEvV8PdNgPSYPPFUDqR9rjFrbBFjlflJM0xiSVyFFVV/DNEBP y6NOV5k5OinfgUPUo4aeIxYBlSuPzBXQp1MljSG/Mg3QS/KoLhqjVtQY9XMT AL0mD+mqrUrFSJDr/E9Mg/WmPLC7Bqm0numpYgKsJfKQcpxbUU+b0itM31c0 Db778mByQqWCHi65TipnAkyP5WFk51TX+kxjd/qrPkYAgPzLT/Bmy+GCx0N+ ZuVfyN+SKOr8v9f/e/2/1/8vr/Gf/wNI0VxO\ \>"]] }, Open ]], Cell[CellGroupData[{ Cell[BoxData[{ RowBox[{ RowBox[{ RowBox[{"tc", "=", RowBox[{"Table", "[", RowBox[{ RowBox[{"{", RowBox[{ RowBox[{"x", "[", RowBox[{"[", "i", "]"}], "]"}], ",", RowBox[{"y", "[", RowBox[{"[", "i", "]"}], "]"}], ",", RowBox[{"z", "[", RowBox[{"[", "i", "]"}], "]"}]}], "}"}], ",", RowBox[{"{", RowBox[{"i", ",", "1", ",", "bc"}], "}"}]}], "]"}]}], ";"}], " ", RowBox[{"(*", " ", RowBox[{"core", " ", "clouds"}], " ", "*)"}]}], "\[IndentingNewLine]", RowBox[{ RowBox[{ RowBox[{"twc", "=", RowBox[{"Table", "[", RowBox[{ RowBox[{"{", RowBox[{ RowBox[{"wxc", "[", RowBox[{"[", "i", "]"}], "]"}], ",", RowBox[{"wyc", "[", RowBox[{"[", "i", "]"}], "]"}], ",", RowBox[{"wzc", "[", RowBox[{"[", "i", "]"}], "]"}]}], "}"}], ",", RowBox[{"{", RowBox[{"i", ",", "1", ",", "cw"}], "}"}]}], "]"}]}], ";"}], " ", RowBox[{"(*", " ", RowBox[{"Bond", " ", "c\[ODoubleDot]ouds", " ", "between", " ", "cores"}], " ", "*)"}]}], "\[IndentingNewLine]", RowBox[{ RowBox[{ RowBox[{"twh", "=", RowBox[{"Table", "[", RowBox[{ RowBox[{"{", RowBox[{ RowBox[{"wxh", "[", RowBox[{"[", "i", "]"}], "]"}], ",", RowBox[{"wyh", "[", RowBox[{"[", "i", "]"}], "]"}], ",", RowBox[{"wzh", "[", RowBox[{"[", "i", "]"}], "]"}]}], "}"}], ",", RowBox[{"{", RowBox[{"i", ",", "1", ",", "bh"}], "}"}]}], "]"}]}], ";"}], " ", RowBox[{"(*", " ", RowBox[{"H", "-", RowBox[{"bonding", " ", "clouds"}]}], " ", "*)"}], " "}], "\[IndentingNewLine]", RowBox[{ RowBox[{"tw", "=", RowBox[{"Join", "[", RowBox[{ "tc", ",", "twc", ",", "twh", ",", "tpo", ",", "tpu", ",", "tlo", ",", "tlu", ",", "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.574076503349639*^9, 3.5740765293080845`*^9}, { 3.5740766389138765`*^9, 3.57407664084828*^9}, 3.574076909589952*^9}], Cell[BoxData["100"], "Output", CellChangeTimes->{ 3.574335299339138*^9, 3.5743387964477882`*^9, 3.574340073185231*^9, 3.5743410048032675`*^9, 3.574341088809415*^9, 3.574341166310351*^9, { 3.574341238600878*^9, 3.5743412662441263`*^9}, {3.5743412989729843`*^9, 3.57434132493143*^9}, 3.574341528542987*^9, 3.5800583389350314`*^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["100"], "Output", CellChangeTimes->{ 3.574335299401538*^9, 3.574338796494589*^9, 3.574340073247631*^9, 3.574341004850067*^9, 3.5743410888562145`*^9, 3.5743411663883514`*^9, { 3.574341238647678*^9, 3.5743412663221264`*^9}, {3.574341299066584*^9, 3.57434132500943*^9}, 3.574341528605387*^9, 3.5800583390200367`*^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[{"nj", "+", "2"}]}], "}"}]}], "]"}]}], ";"}], " "}], "\[IndentingNewLine]", RowBox[{ RowBox[{ RowBox[{"tv5", " ", "=", RowBox[{"Table", "[", RowBox[{ RowBox[{"{", RowBox[{"0", ",", "0", ",", "0"}], "}"}], ",", RowBox[{"{", RowBox[{"i", ",", "1", ",", RowBox[{"nj", "+", "2"}]}], "}"}]}], "]"}]}], ";"}], " "}], "\[IndentingNewLine]", RowBox[{ RowBox[{ RowBox[{"tv6", " ", "=", RowBox[{"Table", "[", RowBox[{ RowBox[{"{", RowBox[{"0", ",", "0", ",", "0"}], "}"}], ",", RowBox[{"{", RowBox[{"i", ",", "1", ",", "6"}], "}"}]}], "]"}]}], ";"}], " "}], "\[IndentingNewLine]", RowBox[{ RowBox[{"tv", " ", "=", " ", RowBox[{"Join", "[", RowBox[{ "tv1", ",", "tv2", ",", "tv3", ",", "tv4", ",", "tv5", ",", "tv6"}], "]"}]}], ";"}], "\[IndentingNewLine]", RowBox[{"MatrixForm", "[", "tv", "]"}], "\[IndentingNewLine]", RowBox[{"Length", "[", "tv", "]"}]}], "Input", CellChangeTimes->{{3.5688982251756487`*^9, 3.5688986440675845`*^9}, { 3.5688986873108606`*^9, 3.56889871560931*^9}, {3.5688987970414534`*^9, 3.5688988526711507`*^9}, {3.568898887147211*^9, 3.568898888644814*^9}, { 3.5688989206248703`*^9, 3.568899041759083*^9}, {3.5688990876855636`*^9, 3.568899258349863*^9}, 3.568899300267137*^9, {3.568899351326027*^9, 3.5688993831032825`*^9}, {3.5688994370481772`*^9, 3.568899468217032*^9}, { 3.5688995813016305`*^9, 3.5688997165538683`*^9}, {3.5688998495129013`*^9, 3.568899932364647*^9}, {3.568899967667509*^9, 3.568900024529609*^9}, { 3.5689000794261055`*^9, 3.568900136257005*^9}, {3.5689001767858763`*^9, 3.56890020149632*^9}, {3.568902068726*^9, 3.568902074139209*^9}, 3.56890216040736*^9, 3.568902344113283*^9, {3.5689024237982235`*^9, 3.56890243907065*^9}, 3.5689025770684924`*^9, 3.568910195129884*^9, 3.568910620995032*^9, {3.568912393532545*^9, 3.5689124022841606`*^9}, { 3.5691332074958715`*^9, 3.5691332081666727`*^9}, {3.5691352237838125`*^9, 3.5691352313342257`*^9}, {3.5691489965881166`*^9, 3.5691490103317413`*^9}, {3.5691490440122004`*^9, 3.5691491273631463`*^9}, {3.5691523435842266`*^9, 3.56915234531583*^9}, { 3.5691524837816734`*^9, 3.5691526041202846`*^9}, {3.5691595921324143`*^9, 3.5691596901941867`*^9}, {3.569159772406331*^9, 3.5691597832951508`*^9}, { 3.5691598700313025`*^9, 3.569159885147729*^9}, {3.569160485733184*^9, 3.569160486887586*^9}, {3.5691672792073207`*^9, 3.5691672793789206`*^9}, { 3.5691673418102303`*^9, 3.5691674875144863`*^9}, {3.569168259700243*^9, 3.569168260386644*^9}, {3.569168321257951*^9, 3.569168337466379*^9}, { 3.5691685152754917`*^9, 3.569168656096939*^9}, {3.5691687137702403`*^9, 3.569168772566744*^9}, {3.5691697249898825`*^9, 3.569169747063921*^9}, { 3.569169944981469*^9, 3.5691699696763124`*^9}, 3.569341165569158*^9, { 3.5693417833614435`*^9, 3.5693417874486504`*^9}, {3.5704552110753345`*^9, 3.5704552378605814`*^9}, {3.5704560776724567`*^9, 3.570456083070066*^9}, { 3.570855427306635*^9, 3.570855434529448*^9}, {3.57184030784344*^9, 3.5718403245666695`*^9}, {3.5723553440956435`*^9, 3.5723553601792717`*^9}, {3.5723567913257856`*^9, 3.572356801543803*^9}, { 3.5723587125159597`*^9, 3.572358735884801*^9}, {3.5726205042656164`*^9, 3.5726205078692226`*^9}, {3.5726209578956137`*^9, 3.5726209632776227`*^9}, {3.5726266468256054`*^9, 3.5726266628780336`*^9}, {3.57284236531176*^9, 3.57284238273699*^9}, { 3.572842728620798*^9, 3.572842734502008*^9}, 3.5731240921601086`*^9, { 3.573206599320009*^9, 3.573206611737631*^9}, {3.5740760016059575`*^9, 3.574076072196081*^9}, {3.574076952755228*^9, 3.574076991786496*^9}, { 3.574077057057011*^9, 3.5740770577434125`*^9}, {3.574080286699484*^9, 3.5740802892578883`*^9}}], Cell[BoxData[ TagBox[ RowBox[{"(", "\[NoBreak]", GridBox[{ { RowBox[{"-", "0.07150534211399999`"}], "0.091139595254`", RowBox[{"-", "0.983604272726`"}]}, { RowBox[{"-", "0.728897553816`"}], "2.794804598522`", RowBox[{"-", "0.31984368440399996`"}]}, { RowBox[{"-", "3.236329629792`"}], "3.6406686328339997`", RowBox[{"-", "0.277013044614`"}]}, { RowBox[{"-", "3.840267162132`"}], "6.184247387738`", "0.300933196322`"}, { RowBox[{"-", "10.550886388814`"}], "6.617242195844001`", "0.062761579912`"}, { RowBox[{"-", "12.680908057248`"}], "4.899018278973999`", "0.29817419636200004`"}, { RowBox[{"-", "15.202726617261998`"}], "5.857326679464`", RowBox[{"-", "0.05274225266`"}]}, { RowBox[{"-", "15.543608621224001`"}], "8.48142099005`", RowBox[{"-", "0.6357038264`"}]}, { RowBox[{"-", "13.521078347122`"}], "10.120769633405999`", RowBox[{"-", "0.859651475208`"}]}, { RowBox[{"-", "11.001744776798`"}], "9.234384204476`", RowBox[{"-", "0.490215711386`"}]}, { RowBox[{"-", "17.296820814984`"}], "4.181816239372`", "0.185189368548`"}, { RowBox[{"-", "16.934057673668`"}], "1.641081522098`", "0.752919750728`"}, { RowBox[{"-", "14.446862673426`"}], "0.701392591886`", "1.100410126512`"}, { RowBox[{"-", "12.362534579672001`"}], "2.295013645494`", "0.879221477664`"}, { RowBox[{"-", "1.866344420202`"}], "7.923530411152`", "0.891313834338`"}, {"0.6592819377019999`", "7.08517803769`", "0.843250543254`"}, {"1.205939985256`", "4.56918739266`", "0.24510691082999997`"}, { RowBox[{"-", "6.2890629300539995`"}], "7.180488258226`", "0.27106607689199996`"}, { RowBox[{"-", "8.164170009718001`"}], "5.6103886241400005`", "0.316961852254`"}, { RowBox[{"-", "9.085666547728001`"}], "10.847456207802`", RowBox[{"-", "0.716657798514`"}]}, { RowBox[{"-", "2.361218306178`"}], "10.355709818356`", "1.538117911262`"}, {"0", "0", "0"}, {"0", "0", "0"}, {"0", "0", "0"}, {"0", "0", "0"}, {"0", "0", "0"}, {"0", "0", "0"}, {"0", "0", "0"}, {"0", "0", "0"}, {"0", "0", "0"}, {"0", "0", "0"}, {"0", "0", "0"}, {"0", "0", "0"}, {"0", "0", "0"}, {"0", "0", "0"}, {"0", "0", "0"}, {"0", "0", "0"}, {"0", "0", "0"}, {"0", "0", "0"}, {"0", "0", "0"}, {"0", "0", "0"}, {"0", "0", "0"}, {"0", "0", "0"}, {"0", "0", "0"}, { RowBox[{"-", "7.465018632868`"}], "9.717965087876001`", RowBox[{"-", "0.406317546164`"}]}, { RowBox[{"-", "13.779849866658001`"}], "12.134920862424`", RowBox[{"-", "1.3149885138119999`"}]}, { RowBox[{"-", "17.483822430766`"}], "9.193898714652`", RowBox[{"-", "0.912588369646`"}]}, { RowBox[{"-", "10.433798965853999`"}], "1.571932668306`", "1.161077890016`"}, { RowBox[{"-", "14.158549067332`"}], RowBox[{"-", "1.31144149811`"}], "1.559305519174`"}, { RowBox[{"-", "18.56864609723`"}], "0.362623301592`", "0.9376064521599999`"}, { RowBox[{"-", "19.219431826836`"}], "4.940308792074`", RowBox[{"-", "0.08956734322200001`"}]}, { RowBox[{"-", "4.215472259432`"}], "10.535110956166`", "1.66504702723`"}, {"3.1981363776059997`", "3.950201972182`", "0.21395477772000002`"}, {"2.163192028912`", "8.446306101518`", "1.307507088578`"}, { RowBox[{"-", "4.811567428871999`"}], "2.36120318837`", RowBox[{"-", "0.736717240004`"}]}, {"1.077334682326`", RowBox[{"-", "0.012655495022`"}], RowBox[{"-", "2.745603692386`"}]}, {"1.06151578598`", RowBox[{"-", "0.82213474493`"}], "0.538180736718`"}, { RowBox[{"-", "1.79587275821`"}], RowBox[{"-", "1.068133606432`"}], RowBox[{"-", "1.278930652006`"}]}, {"0", "0", "0"}, {"0", "0", "0"}, {"0", "0", "0"}, {"0", "0", "0"}, {"0", "0", "0"}, {"0", "0", "0"}, {"0", "0", "0"}, {"0", "0", "0"}, {"0", "0", "0"}, {"0", "0", "0"}, {"0", "0", "0"}, {"0", "0", "0"}, {"0", "0", "0"}, {"0", "0", "0"}, {"0", "0", "0"}, {"0", "0", "0"}, {"0", "0", "0"}, {"0", "0", "0"}, {"0", "0", "0"}, {"0", "0", "0"}, {"0", "0", "0"}, {"0", "0", "0"}, {"0", "0", "0"}, {"0", "0", "0"}, {"0", "0", "0"}, {"0", "0", "0"}, {"0", "0", "0"}, {"0", "0", "0"}, {"0", "0", "0"}, {"0", "0", "0"}, {"0", "0", "0"}, {"0", "0", "0"}, {"0", "0", "0"}, {"0", "0", "0"}, {"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.574335299417138*^9, 3.5743387965101886`*^9, 3.574340073247631*^9, 3.5743410048656673`*^9, 3.5743410888718147`*^9, 3.5743411663883514`*^9, { 3.574341238663278*^9, 3.5743412663377266`*^9}, {3.574341299066584*^9, 3.5743413250250297`*^9}, 3.574341528620987*^9, 3.5800583390360374`*^9}], Cell[BoxData["100"], "Output", CellChangeTimes->{ 3.574335299417138*^9, 3.5743387965101886`*^9, 3.574340073247631*^9, 3.5743410048656673`*^9, 3.5743410888718147`*^9, 3.5743411663883514`*^9, { 3.574341238663278*^9, 3.5743412663377266`*^9}, {3.574341299066584*^9, 3.5743413250250297`*^9}, 3.574341528620987*^9, 3.580058339040037*^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", "*", "nj"}]}], "}"}]}], "]"}], ",", RowBox[{"Table", "[", RowBox[{ RowBox[{"-", "0.5"}], ",", RowBox[{"{", RowBox[{"i", ",", "1", ",", "4"}], "}"}]}], "]"}], ",", RowBox[{"Table", "[", RowBox[{ RowBox[{"-", "2.0"}], ",", RowBox[{"{", RowBox[{"i", ",", "1", ",", "2"}], "}"}]}], "]"}], ",", RowBox[{"Table", "[", RowBox[{ RowBox[{"-", "2.0"}], ",", RowBox[{"{", RowBox[{"i", ",", "1", ",", "4"}], "}"}]}], "]"}]}], "]"}]}], ";"}], "\[IndentingNewLine]", RowBox[{"lw", "=", RowBox[{"Length", "[", "ow", "]"}]}], "\[IndentingNewLine]", RowBox[{ RowBox[{"cnv", "=", RowBox[{"Join", "[", RowBox[{ RowBox[{"Table", "[", RowBox[{ RowBox[{"cn", "[", RowBox[{"[", "i", "]"}], "]"}], ",", RowBox[{"{", RowBox[{"i", ",", "1", ",", "bc"}], "}"}]}], "]"}], ",", RowBox[{"Table", "[", RowBox[{"0.0", ",", RowBox[{"{", RowBox[{"i", ",", "1", ",", "cw"}], "}"}]}], "]"}], ",", RowBox[{"Table", "[", RowBox[{ RowBox[{"cn", "[", RowBox[{"[", "i", "]"}], "]"}], ",", RowBox[{"{", RowBox[{"i", ",", RowBox[{"bc", "+", "1"}], ",", "n"}], "}"}]}], "]"}], ",", RowBox[{"Table", "[", RowBox[{"0.0", ",", RowBox[{"{", RowBox[{"i", ",", "1", ",", RowBox[{"2", "*", "nj"}]}], "}"}]}], "]"}], ",", RowBox[{"Table", "[", RowBox[{"0.0", ",", RowBox[{"{", RowBox[{"i", ",", "1", ",", "10"}], "}"}]}], "]"}]}], "]"}]}], ";"}], "\[IndentingNewLine]", RowBox[{"lc", "=", RowBox[{"Length", "[", "cnv", "]"}]}]}], "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.5732066718757367`*^9, 3.5732067228410263`*^9}, {3.573206842321636*^9, 3.5732068742548923`*^9}, { 3.57407070801746*^9, 3.574070708969061*^9}, 3.574070764099558*^9, { 3.574070877886158*^9, 3.5740708814273643`*^9}, {3.5740762086807213`*^9, 3.574076354884178*^9}, {3.574076421558695*^9, 3.5740764298579097`*^9}, { 3.5740771670372047`*^9, 3.5740771716548123`*^9}, 3.574077238048529*^9, { 3.57407728960662*^9, 3.574077313271861*^9}, 3.574077347825922*^9, { 3.5740802177941628`*^9, 3.5740802188549643`*^9}, {3.574080327977156*^9, 3.5740803298647594`*^9}, {3.5740876878174367`*^9, 3.5740877018106613`*^9}}], Cell[BoxData["100"], "Output", CellChangeTimes->{ 3.5743352994327383`*^9, 3.574338796525789*^9, 3.5743400732632313`*^9, 3.5743410048812675`*^9, 3.574341088887415*^9, 3.574341166403951*^9, { 3.574341238678878*^9, 3.5743412663377266`*^9}, {3.5743412990821843`*^9, 3.57434132504063*^9}, 3.574341528636587*^9, 3.580058339051038*^9}], Cell[BoxData["100"], "Output", CellChangeTimes->{ 3.5743352994327383`*^9, 3.574338796525789*^9, 3.5743400732632313`*^9, 3.5743410048812675`*^9, 3.574341088887415*^9, 3.574341166403951*^9, { 3.574341238678878*^9, 3.5743412663377266`*^9}, {3.5743412990821843`*^9, 3.57434132504063*^9}, 3.574341528636587*^9, 3.580058339054038*^9}] }, Open ]], Cell[CellGroupData[{ Cell[BoxData[{ RowBox[{"echarg", "=", RowBox[{"Sum", "[", RowBox[{ RowBox[{"ow", "[", RowBox[{"[", "i", "]"}], "]"}], ",", RowBox[{"{", RowBox[{"i", ",", "1", ",", "lw"}], "}"}]}], "]"}]}], "\[IndentingNewLine]", RowBox[{"pcharg", "=", RowBox[{"Sum", "[", RowBox[{ RowBox[{"cnv", "[", RowBox[{"[", "i", "]"}], "]"}], ",", RowBox[{"{", RowBox[{"i", ",", "1", ",", "lc"}], "}"}]}], "]"}]}]}], "Input", CellChangeTimes->{{3.574087724274701*^9, 3.5740878100592513`*^9}, { 3.5740878506505227`*^9, 3.5740878682629538`*^9}, {3.574087937043474*^9, 3.574087937995076*^9}}], Cell[BoxData[ RowBox[{"-", "146.`"}]], "Output", CellChangeTimes->{ 3.5743352994483385`*^9, 3.5743387965413885`*^9, 3.5743400732788315`*^9, 3.5743410048968678`*^9, 3.574341088903015*^9, 3.574341166419551*^9, { 3.574341238678878*^9, 3.574341266353327*^9}, {3.574341299097784*^9, 3.57434132504063*^9}, 3.574341528636587*^9, 3.5800583390640388`*^9}], Cell[BoxData["146.`"], "Output", CellChangeTimes->{ 3.5743352994483385`*^9, 3.5743387965413885`*^9, 3.5743400732788315`*^9, 3.5743410048968678`*^9, 3.574341088903015*^9, 3.574341166419551*^9, { 3.574341238678878*^9, 3.574341266353327*^9}, {3.574341299097784*^9, 3.57434132504063*^9}, 3.574341528636587*^9, 3.580058339066039*^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["100"], "Output", CellChangeTimes->{ 3.5743352995107384`*^9, 3.5743387966193886`*^9, 3.5743400733412313`*^9, 3.574341004974868*^9, 3.574341088981015*^9, 3.574341166481951*^9, { 3.574341238756878*^9, 3.5743412664157267`*^9}, {3.5743412991601844`*^9, 3.57434132511863*^9}, 3.5743415287145877`*^9, 3.5800583391440434`*^9}] }, Open ]], Cell[BoxData[ RowBox[{ RowBox[{"Vee", "=", "0.0"}], ";", " ", RowBox[{"Vnn", "=", "0.0"}], ";"}]], "Input", CellChangeTimes->{{3.5688982251756487`*^9, 3.5688986440675845`*^9}, { 3.5688986873108606`*^9, 3.56889871560931*^9}, {3.5688987970414534`*^9, 3.5688988526711507`*^9}, {3.568898887147211*^9, 3.568898888644814*^9}, { 3.5688989206248703`*^9, 3.568899041759083*^9}, {3.5688990876855636`*^9, 3.568899258349863*^9}, 3.568899300267137*^9, {3.568899351326027*^9, 3.5688993831032825`*^9}, {3.5688994370481772`*^9, 3.568899468217032*^9}, { 3.5688995813016305`*^9, 3.5688997165538683`*^9}, {3.5688998495129013`*^9, 3.568899932364647*^9}, {3.568899967667509*^9, 3.568900024529609*^9}, { 3.5689000794261055`*^9, 3.568900136257005*^9}, {3.5689001767858763`*^9, 3.56890020149632*^9}, {3.568902068726*^9, 3.568902074139209*^9}, 3.56890216040736*^9, 3.568902344113283*^9, {3.5689024237982235`*^9, 3.56890243907065*^9}, 3.5689025770684924`*^9, {3.568910195129884*^9, 3.568910199825492*^9}, 3.568910617609826*^9, {3.56891263539537*^9, 3.568912638842976*^9}, {3.568952611212014*^9, 3.5689526227248344`*^9}, { 3.5689527476498537`*^9, 3.5689527480086546`*^9}, {3.5689530637688093`*^9, 3.5689530642368097`*^9}, {3.569133363948546*^9, 3.569133373698563*^9}, { 3.5691350563331184`*^9, 3.56913505725352*^9}, 3.5691351502452836`*^9, { 3.569135237792637*^9, 3.5691352453118505`*^9}, {3.5691353071659594`*^9, 3.5691353166039753`*^9}, {3.5691447439722476`*^9, 3.5691448093675623`*^9}, {3.569146067386572*^9, 3.569146078244191*^9}, { 3.5691478509845047`*^9, 3.5691478547909117`*^9}, {3.569159874789311*^9, 3.56915988004652*^9}, {3.5691671967299757`*^9, 3.569167196901576*^9}, 3.5691672337020407`*^9, {3.5691672688489027`*^9, 3.5691672717661076`*^9}, 3.569171387282002*^9, 3.5692335989467897`*^9}], Cell[CellGroupData[{ Cell[BoxData[ RowBox[{ RowBox[{"(*", " ", RowBox[{"all", " ", "clouds", " ", "repulsion"}], " ", "*)"}], "\[IndentingNewLine]", RowBox[{ RowBox[{"For", "[", RowBox[{ RowBox[{"i", "=", "1"}], ",", RowBox[{"i", "<", "bt"}], ",", RowBox[{"i", "++"}], ",", "\[IndentingNewLine]", RowBox[{"For", "[", RowBox[{ RowBox[{"j", "=", RowBox[{"i", "+", "1"}]}], ",", RowBox[{"j", "<", RowBox[{"bt", "+", "1"}]}], ",", RowBox[{"j", "++"}], ",", "\[IndentingNewLine]", RowBox[{"Vee", "=", RowBox[{"Vee", "+", RowBox[{ RowBox[{"ow", "[", RowBox[{"[", "i", "]"}], "]"}], "*", RowBox[{ RowBox[{"ow", "[", RowBox[{"[", "j", "]"}], "]"}], "/", RowBox[{"dw", "[", RowBox[{"[", RowBox[{"i", ",", "j"}], "]"}], "]"}]}]}]}]}]}], "]"}]}], "]"}], "\[IndentingNewLine]", "Vee"}]}]], "Input", CellChangeTimes->{{3.5688982251756487`*^9, 3.5688986440675845`*^9}, { 3.5688986873108606`*^9, 3.56889871560931*^9}, {3.5688987970414534`*^9, 3.5688988526711507`*^9}, {3.568898887147211*^9, 3.568898888644814*^9}, { 3.5688989206248703`*^9, 3.568899041759083*^9}, {3.5688990876855636`*^9, 3.568899258349863*^9}, 3.568899300267137*^9, {3.568899351326027*^9, 3.5688993831032825`*^9}, {3.5688994370481772`*^9, 3.568899468217032*^9}, { 3.5688995813016305`*^9, 3.5688997165538683`*^9}, {3.5688998495129013`*^9, 3.568899932364647*^9}, {3.568899967667509*^9, 3.568900024529609*^9}, { 3.5689000794261055`*^9, 3.568900136257005*^9}, {3.5689001767858763`*^9, 3.56890020149632*^9}, {3.568902068726*^9, 3.568902074139209*^9}, 3.56890216040736*^9, 3.568902344113283*^9, {3.5689024237982235`*^9, 3.56890243907065*^9}, 3.5689025770684924`*^9, {3.568910195129884*^9, 3.568910199825492*^9}, 3.568910617609826*^9, {3.56891263539537*^9, 3.568912638842976*^9}, {3.568952611212014*^9, 3.5689526227248344`*^9}, { 3.5689527476498537`*^9, 3.5689527480086546`*^9}, {3.5689530637688093`*^9, 3.5689530642368097`*^9}, {3.569133363948546*^9, 3.569133373698563*^9}, { 3.5691350563331184`*^9, 3.56913505725352*^9}, 3.5691351502452836`*^9, { 3.569135237792637*^9, 3.5691352453118505`*^9}, {3.5691353071659594`*^9, 3.5691353166039753`*^9}, {3.5691447439722476`*^9, 3.5691448093675623`*^9}, {3.569146067386572*^9, 3.569146078244191*^9}, { 3.5691478509845047`*^9, 3.5691478969889855`*^9}, {3.569149270524598*^9, 3.569149283675421*^9}, {3.5691523005437512`*^9, 3.5691523013861527`*^9}, { 3.570457123841494*^9, 3.5704571330923104`*^9}, {3.570457176959587*^9, 3.570457191296013*^9}, {3.570463789649801*^9, 3.570463797637015*^9}, { 3.5704639300032473`*^9, 3.5704639472412777`*^9}, {3.570464099403945*^9, 3.5704641196371803`*^9}, {3.570464183737693*^9, 3.5704641855628963`*^9}, { 3.570855532092019*^9, 3.5708555433240385`*^9}}], Cell[BoxData["1704.0361444167731`"], "Output", CellChangeTimes->{ 3.5743352995419383`*^9, 3.574338796650589*^9, 3.5743400733724313`*^9, 3.5743410050060673`*^9, 3.574341089012215*^9, 3.574341166513151*^9, { 3.5743412387880783`*^9, 3.574341266446927*^9}, {3.5743412991913843`*^9, 3.57434132514983*^9}, 3.5743415287457876`*^9, 3.580058339174045*^9}] }, Open ]], Cell[CellGroupData[{ Cell[BoxData[ RowBox[{ RowBox[{"(*", " ", RowBox[{ "half", " ", "cloud", " ", "with", " ", "other", " ", "common", " ", RowBox[{"halfcloud", ":", " ", RowBox[{"subtract", " ", "WW"}]}]}], " ", "*)"}], "\[IndentingNewLine]", RowBox[{ RowBox[{ RowBox[{"For", " ", "[", RowBox[{ RowBox[{"i", "=", RowBox[{"nb", "+", "bc", "+", "1"}]}], ",", RowBox[{"i", "<", RowBox[{"nb", "+", "bc", "+", "nj", "+", "3"}]}], ",", RowBox[{"i", "++"}], ",", RowBox[{"Vee", "=", RowBox[{"Vee", "-", RowBox[{ RowBox[{"ow", "[", RowBox[{"[", "i", "]"}], "]"}], "*", RowBox[{ RowBox[{"ow", "[", RowBox[{"[", RowBox[{"i", "+", "nj"}], "]"}], "]"}], "/", RowBox[{"(", RowBox[{"rpo", "+", "rpi"}], ")"}]}]}]}]}]}], "]"}], ";"}], "\[IndentingNewLine]", "Vee", "\[IndentingNewLine]"}]}]], "Input", CellChangeTimes->{{3.571840548723463*^9, 3.571840579798718*^9}, { 3.5718477253093*^9, 3.5718477304573092`*^9}, {3.572620810756155*^9, 3.5726208298349886`*^9}, {3.5726208600522413`*^9, 3.5726208972739067`*^9}, {3.57279778559276*^9, 3.57279781975682*^9}, { 3.5732072289995155`*^9, 3.5732072309183187`*^9}, {3.5732072939268293`*^9, 3.573207467867135*^9}, {3.574088506132474*^9, 3.57408851499329*^9}, { 3.5740885486269484`*^9, 3.5740885498593507`*^9}, 3.5740886113234587`*^9}], Cell[BoxData["1702.4290015596291`"], "Output", CellChangeTimes->{ 3.5743352995575385`*^9, 3.5743387966661887`*^9, 3.574340073388031*^9, 3.5743410050060673`*^9, 3.574341089012215*^9, 3.574341166513151*^9, { 3.5743412387880783`*^9, 3.574341266462527*^9}, {3.5743412992069845`*^9, 3.57434132514983*^9}, 3.574341528761388*^9, 3.5800583391860456`*^9}] }, Open ]], Cell[CellGroupData[{ Cell[BoxData[{ RowBox[{ RowBox[{ RowBox[{"sc", "=", "0.372"}], ";"}], " ", RowBox[{"(*", " ", RowBox[{"core", " ", "clouds"}], " ", "*)"}]}], "\[IndentingNewLine]", RowBox[{"For", "[", RowBox[{ RowBox[{"i", "=", "1"}], " ", ",", RowBox[{"i", "<", RowBox[{"bc", "+", "1"}]}], ",", RowBox[{"i", "++"}], ",", RowBox[{"Vee", "=", RowBox[{"Vee", "+", RowBox[{"3", "*", RowBox[{"sc", "/", RowBox[{"u2", "[", RowBox[{"[", "i", "]"}], "]"}]}]}]}]}]}], "]"}], "\[IndentingNewLine]", RowBox[{ RowBox[{ RowBox[{"sw", "=", "0.378"}], ";"}], " ", RowBox[{"(*", " ", RowBox[{"bonding", " ", "clouds"}], " ", "*)"}]}], "\[IndentingNewLine]", RowBox[{"For", "[", RowBox[{ RowBox[{"i", "=", "1"}], " ", ",", RowBox[{"i", "<", RowBox[{"nb", "+", "1"}]}], ",", RowBox[{"i", "++"}], ",", RowBox[{"Vee", "=", RowBox[{"Vee", "+", RowBox[{"3", "*", RowBox[{"sw", "/", RowBox[{"a", "[", RowBox[{"[", RowBox[{"i", ",", "3"}], "]"}], "]"}]}]}]}]}]}], "]"}], "\[IndentingNewLine]", RowBox[{"For", "[", RowBox[{ RowBox[{"i", "=", "1"}], " ", ",", RowBox[{"i", "<", "5"}], ",", RowBox[{"i", "++"}], ",", RowBox[{"Vee", "=", RowBox[{"Vee", "+", RowBox[{"3", "*", RowBox[{"sw", "/", "rlo"}]}]}]}]}], "]"}], "\[IndentingNewLine]", RowBox[{"For", "[", RowBox[{ RowBox[{"i", "=", "1"}], " ", ",", RowBox[{"i", "<", "3"}], ",", RowBox[{"i", "++"}], ",", 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.5740886250202827`*^9, 3.574088677311575*^9}, { 3.574089214342518*^9, 3.5740892207541294`*^9}, {3.574089308987884*^9, 3.5740893677999873`*^9}, {3.574227207798621*^9, 3.5742272123888836`*^9}, { 3.574341156185933*^9, 3.574341159477539*^9}, {3.5743412228292503`*^9, 3.57434125707131*^9}, {3.5743412876941643`*^9, 3.574341318051818*^9}}], Cell[BoxData["1841.596066625077`"], "Output", CellChangeTimes->{ 3.574335299573138*^9, 3.5743387966661887`*^9, 3.574340073388031*^9, 3.5743410050216675`*^9, 3.574341089027815*^9, 3.5743411665287514`*^9, { 3.5743412388036785`*^9, 3.574341266462527*^9}, {3.5743412992069845`*^9, 3.57434132516543*^9}, 3.5743415287769876`*^9, 3.5800583391980467`*^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[{"-", "3492.074938034752`"}]], "Output", CellChangeTimes->{ 3.5743352995887384`*^9, 3.5743387966817884`*^9, 3.574340073403631*^9, 3.5743410050372677`*^9, 3.574341089043415*^9, 3.5743411665443516`*^9, { 3.5743412388036785`*^9, 3.5743412664781265`*^9}, {3.5743412992225847`*^9, 3.57434132516543*^9}, 3.5743415287769876`*^9, 3.5800583392100472`*^9}] }, Open ]], Cell[BoxData[ RowBox[{"(*", " ", RowBox[{ "core", " ", "nuclei", " ", "in", " ", "their", " ", "cloud", " ", "centers"}], " ", "*)"}]], "Input", CellChangeTimes->{{3.5688982251756487`*^9, 3.5688986440675845`*^9}, { 3.5688986873108606`*^9, 3.56889871560931*^9}, {3.5688987970414534`*^9, 3.5688988526711507`*^9}, {3.568898887147211*^9, 3.568898888644814*^9}, { 3.5688989206248703`*^9, 3.568899041759083*^9}, {3.5688990876855636`*^9, 3.568899258349863*^9}, 3.568899300267137*^9, {3.568899351326027*^9, 3.5688993831032825`*^9}, {3.5688994370481772`*^9, 3.568899468217032*^9}, { 3.5688995813016305`*^9, 3.5688997165538683`*^9}, {3.5688998495129013`*^9, 3.568899932364647*^9}, {3.568899967667509*^9, 3.568900024529609*^9}, { 3.5689000794261055`*^9, 3.568900136257005*^9}, {3.5689001767858763`*^9, 3.56890020149632*^9}, {3.568902068726*^9, 3.568902074139209*^9}, 3.56890216040736*^9, 3.568902344113283*^9, {3.5689024237982235`*^9, 3.56890243907065*^9}, 3.5689025770684924`*^9, {3.568910195129884*^9, 3.5689102262831383`*^9}, {3.5689126851126575`*^9, 3.5689126875306616`*^9}, {3.5690878255169816`*^9, 3.569087857185037*^9}, { 3.5691452963224173`*^9, 3.569145370484948*^9}, {3.5691454640695124`*^9, 3.5691454653799143`*^9}, {3.5691523784970884`*^9, 3.569152451988817*^9}, { 3.569152629610729*^9, 3.5691526609667845`*^9}}], Cell[CellGroupData[{ Cell[BoxData[{ RowBox[{"For", "[", RowBox[{ RowBox[{"i", "=", "1"}], ",", RowBox[{"i", "<", RowBox[{"bc", "+", "1"}]}], ",", RowBox[{"i", "++"}], ",", RowBox[{"Vne", "=", RowBox[{"Vne", "-", RowBox[{"3", "*", RowBox[{ RowBox[{"cn", "[", RowBox[{"[", "i", "]"}], "]"}], "/", RowBox[{"u2", "[", RowBox[{"[", "i", "]"}], "]"}]}]}]}]}]}], "]"}], "\[IndentingNewLine]", "Vne"}], "Input", CellChangeTimes->{{3.5688982251756487`*^9, 3.5688986440675845`*^9}, { 3.5688986873108606`*^9, 3.56889871560931*^9}, {3.5688987970414534`*^9, 3.5688988526711507`*^9}, {3.568898887147211*^9, 3.568898888644814*^9}, { 3.5688989206248703`*^9, 3.568899041759083*^9}, {3.5688990876855636`*^9, 3.568899258349863*^9}, 3.568899300267137*^9, {3.568899351326027*^9, 3.5688993831032825`*^9}, {3.5688994370481772`*^9, 3.568899468217032*^9}, { 3.5688995813016305`*^9, 3.5688997165538683`*^9}, {3.5688998495129013`*^9, 3.568899932364647*^9}, {3.568899967667509*^9, 3.568900024529609*^9}, { 3.5689000794261055`*^9, 3.568900136257005*^9}, {3.5689001767858763`*^9, 3.56890020149632*^9}, {3.568902068726*^9, 3.568902074139209*^9}, 3.56890216040736*^9, 3.568902344113283*^9, {3.5689024237982235`*^9, 3.56890243907065*^9}, 3.5689025770684924`*^9, {3.568910195129884*^9, 3.5689102262831383`*^9}, {3.5689126851126575`*^9, 3.5689126875306616`*^9}, {3.5690878255169816`*^9, 3.569087857185037*^9}, { 3.5691452963224173`*^9, 3.569145370484948*^9}, {3.5691454640695124`*^9, 3.5691454653799143`*^9}, {3.5691523784970884`*^9, 3.569152451988817*^9}, { 3.569152629610729*^9, 3.5691526649915915`*^9}, 3.569170044088443*^9}], Cell[BoxData[ RowBox[{"-", "5142.674475331259`"}]], "Output", CellChangeTimes->{ 3.5743352995887384`*^9, 3.5743387966973886`*^9, 3.574340073403631*^9, 3.574341005068468*^9, 3.5743410890590153`*^9, 3.5743411665443516`*^9, { 3.5743412388192787`*^9, 3.5743412664781265`*^9}, {3.5743412992225847`*^9, 3.5743413251810303`*^9}, 3.5743415288237877`*^9, 3.5800583392240477`*^9}] }, Open ]], Cell[CellGroupData[{ Cell[BoxData[ RowBox[{ RowBox[{"(*", " ", RowBox[{ RowBox[{ "protons", " ", "in", " ", "their", " ", "bonding", " ", "cloud"}], ",", " ", RowBox[{"distance", " ", RowBox[{"u2", "[", RowBox[{"[", RowBox[{"a", "[", RowBox[{"[", RowBox[{"i", ",", "1"}], "]"}], "]"}], "]"}], "]"}], " ", "to", " ", "cloud", " ", "center"}]}], " ", "*)"}], "\[IndentingNewLine]", RowBox[{ RowBox[{"For", "[", RowBox[{ RowBox[{"i", "=", RowBox[{"cw", "+", "1"}]}], ",", RowBox[{"i", "<", RowBox[{"nb", "+", "1"}]}], ",", RowBox[{"i", "++"}], ",", RowBox[{"Vne", "=", RowBox[{"Vne", "-", RowBox[{ RowBox[{"(", RowBox[{"3", "-", RowBox[{ RowBox[{"(", RowBox[{ RowBox[{"u2", "[", RowBox[{"[", RowBox[{"a", "[", RowBox[{"[", RowBox[{"i", ",", "1"}], "]"}], "]"}], "]"}], "]"}], "/", RowBox[{"a", "[", RowBox[{"[", RowBox[{"i", ",", "3"}], "]"}], "]"}]}], ")"}], "^", "2"}]}], ")"}], "/", RowBox[{"a", "[", RowBox[{"[", RowBox[{"i", ",", "3"}], "]"}], "]"}]}]}]}]}], "]"}], "\[IndentingNewLine]", "Vne"}]}]], "Input", CellChangeTimes->{{3.5692316245917215`*^9, 3.5692316336397376`*^9}}], Cell[BoxData[ RowBox[{"-", "5173.859148332285`"}]], "Output", CellChangeTimes->{ 3.5743352996043386`*^9, 3.574338796712989*^9, 3.5743400734192314`*^9, 3.574341005068468*^9, 3.5743410890746155`*^9, 3.5743411665599513`*^9, { 3.5743412388192787`*^9, 3.5743412664937267`*^9}, {3.5743412992381845`*^9, 3.5743413251810303`*^9}, 3.574341528839388*^9, 3.5800583392350483`*^9}] }, Open ]], Cell[CellGroupData[{ Cell[BoxData[ RowBox[{ RowBox[{"(*", " ", RowBox[{"nucleus", "-", "nucleus"}], " ", "*)"}], "\[IndentingNewLine]", RowBox[{ RowBox[{"For", "[", RowBox[{ RowBox[{"i", "=", "1"}], ",", RowBox[{"i", "<", "n"}], ",", RowBox[{"i", "++"}], ",", "\[IndentingNewLine]", RowBox[{"For", "[", RowBox[{ RowBox[{"j", "=", RowBox[{"i", "+", "1"}]}], ",", RowBox[{"j", "<", RowBox[{"n", "+", "1"}]}], ",", RowBox[{"j", "++"}], ",", RowBox[{"Vnn", "=", RowBox[{"Vnn", "+", RowBox[{ RowBox[{"cn", "[", RowBox[{"[", "i", "]"}], "]"}], "*", RowBox[{ RowBox[{"cn", "[", RowBox[{"[", "j", "]"}], "]"}], "/", RowBox[{"dc", "[", RowBox[{"[", RowBox[{"i", ",", "j"}], "]"}], "]"}]}]}]}]}]}], "]"}]}], "]"}], "\[IndentingNewLine]", "Vnn"}]}]], "Input", CellChangeTimes->{{3.5688982251756487`*^9, 3.5688986440675845`*^9}, { 3.5688986873108606`*^9, 3.56889871560931*^9}, {3.5688987970414534`*^9, 3.5688988526711507`*^9}, {3.568898887147211*^9, 3.568898888644814*^9}, { 3.5688989206248703`*^9, 3.568899041759083*^9}, {3.5688990876855636`*^9, 3.568899258349863*^9}, 3.568899300267137*^9, {3.568899351326027*^9, 3.5688993831032825`*^9}, {3.5688994370481772`*^9, 3.568899468217032*^9}, { 3.5688995813016305`*^9, 3.5688997165538683`*^9}, {3.5688998495129013`*^9, 3.568899932364647*^9}, {3.568899967667509*^9, 3.568900024529609*^9}, { 3.5689000794261055`*^9, 3.568900136257005*^9}, {3.5689001767858763`*^9, 3.56890020149632*^9}, {3.568902068726*^9, 3.568902074139209*^9}, 3.56890216040736*^9, 3.568902344113283*^9, {3.5689024237982235`*^9, 3.56890243907065*^9}, 3.5689025770684924`*^9, {3.568910195129884*^9, 3.5689102262831383`*^9}, {3.5689126851126575`*^9, 3.5689126875306616`*^9}, {3.5690878255169816`*^9, 3.569087857185037*^9}, { 3.5691452963224173`*^9, 3.569145370484948*^9}, {3.5691454640695124`*^9, 3.5691454653799143`*^9}, {3.5691523784970884`*^9, 3.569152451988817*^9}, { 3.569152629610729*^9, 3.5691526609667845`*^9}, 3.5691527650033674`*^9, { 3.5691528050174375`*^9, 3.5691528220994673`*^9}, {3.5691528694611506`*^9, 3.5691529180864363`*^9}, {3.5691531888249116`*^9, 3.569153192974519*^9}, 3.569153245359411*^9, {3.5691532970111017`*^9, 3.5691533046239147`*^9}, { 3.5691708905147295`*^9, 3.56917090235515*^9}, {3.5691714357512875`*^9, 3.569171449775712*^9}, 3.56917197825784*^9}], Cell[BoxData["1509.2198289689902`"], "Output", CellChangeTimes->{ 3.574335299619939*^9, 3.574338796728589*^9, 3.5743400734348316`*^9, 3.574341005084068*^9, 3.574341089090215*^9, 3.5743411665599513`*^9, { 3.5743412388348784`*^9, 3.5743412664937267`*^9}, {3.5743412992381845`*^9, 3.57434132519663*^9}, 3.5743415288549876`*^9, 3.580058339249049*^9}] }, Open ]], Cell[CellGroupData[{ Cell[BoxData[ RowBox[{"ratio", "=", RowBox[{ RowBox[{"-", RowBox[{"(", RowBox[{"Vne", "+", RowBox[{"2", "*", "Vnn"}]}], ")"}]}], "/", RowBox[{"(", RowBox[{"Vee", "-", "Vnn"}], ")"}]}]}]], "Input"], Cell[BoxData["6.48487841848833`"], "Output", CellChangeTimes->{3.5800583392620497`*^9}] }, Open ]], Cell[CellGroupData[{ Cell[BoxData[{"Vee", "\[IndentingNewLine]", "Vnn", "\[IndentingNewLine]", \ "Vne", "\[IndentingNewLine]", RowBox[{ RowBox[{"Tpi", " ", "=", " ", RowBox[{"2.296", "*", RowBox[{"(", RowBox[{"nj", "+", "2"}], ")"}], "*", "0.5", "*", "1.125", "*", RowBox[{"(", RowBox[{ RowBox[{"1", "/", RowBox[{"rpo", "^", "2"}]}], "+", RowBox[{"1", "/", RowBox[{"rpi", "^", "2"}]}]}], ")"}]}]}], " ", RowBox[{"(*", " ", RowBox[{"pi", " ", "kin", " ", "e", " ", "added"}], " ", "*)"}]}], "\[IndentingNewLine]", RowBox[{ RowBox[{"Tlo", " ", "=", " ", RowBox[{"4", "*", "2", "*", "1.125", "*", RowBox[{"(", RowBox[{"1", "/", RowBox[{"rlo", "^", "2"}]}], ")"}]}]}], " ", RowBox[{"(*", " ", RowBox[{ "lp", " ", "kin", " ", "e", " ", "of", " ", "2", " ", "O", " ", "added"}], " ", "*)"}]}], "\[IndentingNewLine]", RowBox[{ RowBox[{"Tln", " ", "=", " ", RowBox[{"2", "*", "2", "*", "1.125", "*", RowBox[{"(", RowBox[{"1", "/", RowBox[{"rln", "^", "2"}]}], ")"}]}]}], " ", RowBox[{"(*", " ", RowBox[{ "lp", " ", "kin", " ", "e", " ", "of", " ", "2", " ", "N", " ", "added"}], " ", "*)"}]}], "\[IndentingNewLine]", RowBox[{"Vtot", "=", RowBox[{"Vne", "+", "Vee", "+", "Vnn"}]}], "\[IndentingNewLine]", RowBox[{"Ttot", "=", RowBox[{ "Ttot", "+", "Tpi", "+", "Tlo", "+", "Tln"}]}], "\[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.5732069154233646`*^9, 3.5732069210393744`*^9}, {3.5732069747034683`*^9, 3.57320697542107*^9}, { 3.573207068038432*^9, 3.5732070690212345`*^9}, {3.574088216299565*^9, 3.5740882530844297`*^9}, {3.5740883007893133`*^9, 3.5740884434827642`*^9}}], Cell[BoxData["1841.596066625077`"], "Output", CellChangeTimes->{ 3.5743352996355386`*^9, 3.574338796728589*^9, 3.5743400734348316`*^9, 3.5743410050996675`*^9, 3.5743410891058154`*^9, 3.5743411665755515`*^9, { 3.5743412388348784`*^9, 3.574341266509327*^9}, {3.574341299253784*^9, 3.57434132519663*^9}, 3.574341528870588*^9, 3.5800583392740507`*^9}], Cell[BoxData["1509.2198289689902`"], "Output", CellChangeTimes->{ 3.5743352996355386`*^9, 3.574338796728589*^9, 3.5743400734348316`*^9, 3.5743410050996675`*^9, 3.5743410891058154`*^9, 3.5743411665755515`*^9, { 3.5743412388348784`*^9, 3.574341266509327*^9}, {3.574341299253784*^9, 3.57434132519663*^9}, 3.574341528870588*^9, 3.580058339275051*^9}], Cell[BoxData[ RowBox[{"-", "5173.859148332285`"}]], "Output", CellChangeTimes->{ 3.5743352996355386`*^9, 3.574338796728589*^9, 3.5743400734348316`*^9, 3.5743410050996675`*^9, 3.5743410891058154`*^9, 3.5743411665755515`*^9, { 3.5743412388348784`*^9, 3.574341266509327*^9}, {3.574341299253784*^9, 3.57434132519663*^9}, 3.574341528870588*^9, 3.5800583392760506`*^9}], Cell[BoxData["23.721428571428575`"], "Output", CellChangeTimes->{ 3.5743352996355386`*^9, 3.574338796728589*^9, 3.5743400734348316`*^9, 3.5743410050996675`*^9, 3.5743410891058154`*^9, 3.5743411665755515`*^9, { 3.5743412388348784`*^9, 3.574341266509327*^9}, {3.574341299253784*^9, 3.57434132519663*^9}, 3.574341528870588*^9, 3.580058339277051*^9}], Cell[BoxData["7.111111111111111`"], "Output", CellChangeTimes->{ 3.5743352996355386`*^9, 3.574338796728589*^9, 3.5743400734348316`*^9, 3.5743410050996675`*^9, 3.5743410891058154`*^9, 3.5743411665755515`*^9, { 3.5743412388348784`*^9, 3.574341266509327*^9}, {3.574341299253784*^9, 3.57434132519663*^9}, 3.574341528870588*^9, 3.5800583392780514`*^9}], Cell[BoxData["2.8985208526031294`"], "Output", CellChangeTimes->{ 3.5743352996355386`*^9, 3.574338796728589*^9, 3.5743400734348316`*^9, 3.5743410050996675`*^9, 3.5743410891058154`*^9, 3.5743411665755515`*^9, { 3.5743412388348784`*^9, 3.574341266509327*^9}, {3.574341299253784*^9, 3.57434132519663*^9}, 3.574341528870588*^9, 3.5800583392780514`*^9}], Cell[BoxData[ RowBox[{"-", "1823.0432527382184`"}]], "Output", CellChangeTimes->{ 3.5743352996355386`*^9, 3.574338796728589*^9, 3.5743400734348316`*^9, 3.5743410050996675`*^9, 3.5743410891058154`*^9, 3.5743411665755515`*^9, { 3.5743412388348784`*^9, 3.574341266509327*^9}, {3.574341299253784*^9, 3.57434132519663*^9}, 3.574341528870588*^9, 3.5800583392790513`*^9}], Cell[BoxData["911.7502353085049`"], "Output", CellChangeTimes->{ 3.5743352996355386`*^9, 3.574338796728589*^9, 3.5743400734348316`*^9, 3.5743410050996675`*^9, 3.5743410891058154`*^9, 3.5743411665755515`*^9, { 3.5743412388348784`*^9, 3.574341266509327*^9}, {3.574341299253784*^9, 3.57434132519663*^9}, 3.574341528870588*^9, 3.580058339280051*^9}], Cell[BoxData["1.9994985272708632`"], "Output", CellChangeTimes->{ 3.5743352996355386`*^9, 3.574338796728589*^9, 3.5743400734348316`*^9, 3.5743410050996675`*^9, 3.5743410891058154`*^9, 3.5743411665755515`*^9, { 3.5743412388348784`*^9, 3.574341266509327*^9}, {3.574341299253784*^9, 3.57434132519663*^9}, 3.574341528870588*^9, 3.580058339281051*^9}], Cell[BoxData[ RowBox[{"-", "911.2930174297135`"}]], "Output", CellChangeTimes->{ 3.5743352996355386`*^9, 3.574338796728589*^9, 3.5743400734348316`*^9, 3.5743410050996675`*^9, 3.5743410891058154`*^9, 3.5743411665755515`*^9, { 3.5743412388348784`*^9, 3.574341266509327*^9}, {3.574341299253784*^9, 3.57434132519663*^9}, 3.574341528870588*^9, 3.580058339282051*^9}] }, Open ]] }, WindowSize->{1122, 819}, WindowMargins->{{Automatic, 350}, {Automatic, 26}}, 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, 1855, 32, 52, "Input"], Cell[CellGroupData[{ Cell[2437, 56, 5443, 148, 272, "Input"], Cell[7883, 206, 4315, 110, 551, "Output"] }, Open ]], Cell[12213, 319, 1358, 23, 52, "Input"], Cell[CellGroupData[{ Cell[13596, 346, 955, 14, 31, "Input"], Cell[14554, 362, 343, 5, 31, "Output"] }, Open ]], Cell[CellGroupData[{ Cell[14934, 372, 1560, 29, 31, "Input"], Cell[16497, 403, 1032, 15, 31, "Output"] }, Open ]], Cell[17544, 421, 1419, 23, 31, "Input"], Cell[18966, 446, 1592, 29, 31, "Input"], Cell[CellGroupData[{ Cell[20583, 479, 1234, 18, 31, "Input"], Cell[21820, 499, 2734, 77, 72, "Output"] }, Open ]], Cell[CellGroupData[{ Cell[24591, 581, 697, 14, 31, "Input"], Cell[25291, 597, 770, 13, 31, "Output"] }, Open ]], Cell[26076, 613, 908, 24, 31, "Input"], Cell[CellGroupData[{ Cell[27009, 641, 5811, 124, 132, "Input"], Cell[32823, 767, 902, 15, 52, "Output"], Cell[33728, 784, 891, 14, 52, "Output"] }, Open ]], Cell[CellGroupData[{ Cell[34656, 803, 519, 12, 31, "Input"], Cell[35178, 817, 1029, 15, 31, "Output"] }, Open ]], Cell[CellGroupData[{ Cell[36244, 837, 1401, 38, 52, "Input"], Cell[37648, 877, 811, 13, 52, "Output"] }, Open ]], Cell[CellGroupData[{ Cell[38496, 895, 827, 23, 92, "Input"], Cell[39326, 920, 343, 5, 31, "Output"], Cell[39672, 927, 341, 5, 31, "Output"] }, Open ]], Cell[40028, 935, 1824, 35, 72, "Input"], Cell[CellGroupData[{ Cell[41877, 974, 4923, 122, 212, "Input"], Cell[46803, 1098, 9048, 167, 350, "Output"] }, Open ]], Cell[CellGroupData[{ Cell[55888, 1270, 2100, 42, 72, "Input"], Cell[57991, 1314, 30913, 443, 566, "Output"] }, Open ]], Cell[88919, 1760, 1331, 36, 72, "Input"], Cell[CellGroupData[{ Cell[90275, 1800, 5027, 90, 72, "Input"], Cell[95305, 1892, 9438, 146, 566, "Output"] }, Open ]], Cell[CellGroupData[{ Cell[104780, 2043, 2570, 53, 132, "Input"], Cell[107353, 2098, 344, 5, 31, "Output"] }, Open ]], Cell[CellGroupData[{ Cell[107734, 2108, 2598, 53, 92, "Input"], Cell[110335, 2163, 552, 10, 31, "Output"] }, Open ]], Cell[110902, 2176, 10233, 208, 232, "Input"], Cell[CellGroupData[{ Cell[121160, 2388, 1990, 42, 72, "Input"], Cell[123153, 2432, 843, 15, 52, "Output"], Cell[123999, 2449, 419, 7, 31, "Output"] }, Open ]], Cell[CellGroupData[{ Cell[124455, 2461, 623, 15, 52, "Input"], Cell[125081, 2478, 425, 8, 31, "Output"], Cell[125509, 2488, 417, 7, 31, "Output"] }, Open ]], Cell[CellGroupData[{ Cell[125963, 2500, 2789, 54, 72, "Input"], Cell[128755, 2556, 661, 12, 31, "Output"], Cell[129419, 2570, 416, 7, 31, "Output"] }, Open ]], Cell[CellGroupData[{ Cell[129872, 2582, 3698, 81, 132, "Input"], Cell[133573, 2665, 943, 15, 72, "Output"] }, Open ]], Cell[134531, 2683, 2072, 49, 112, "Input"], Cell[136606, 2734, 561, 12, 52, "Input"], Cell[137170, 2748, 2148, 49, 92, "Input"], Cell[139321, 2799, 2452, 56, 92, "Input"], Cell[141776, 2857, 1759, 41, 72, "Input"], Cell[CellGroupData[{ Cell[143560, 2902, 923, 20, 31, "Input"], Cell[144486, 2924, 361, 5, 31, "Output"] }, Open ]], Cell[CellGroupData[{ Cell[144884, 2934, 711, 18, 31, "Input"], Cell[145598, 2954, 361, 5, 31, "Output"] }, Open ]], Cell[CellGroupData[{ Cell[145996, 2964, 507, 10, 31, "Input"], Cell[146506, 2976, 364, 5, 31, "Output"] }, Open ]], Cell[CellGroupData[{ Cell[146907, 2986, 823, 23, 31, "Input"], Cell[147733, 3011, 359, 5, 31, "Output"] }, Open ]], Cell[CellGroupData[{ Cell[148129, 3021, 204, 4, 31, "Input"], Cell[148336, 3027, 364, 5, 31, "Output"] }, Open ]], Cell[148715, 3035, 1975, 34, 72, "Input"], Cell[CellGroupData[{ Cell[150715, 3073, 4534, 109, 212, "Input"], Cell[155252, 3184, 550, 10, 31, "Output"], Cell[155805, 3196, 3854, 127, 551, "Output"] }, Open ]], Cell[159674, 3326, 10708, 193, 172, "Input"], Cell[170385, 3521, 11008, 295, 1312, "Input"], Cell[181396, 3818, 3617, 73, 52, "Input"], Cell[185016, 3893, 2909, 46, 72, "Input"], Cell[187928, 3941, 12875, 318, 1292, "Input"], Cell[200806, 4261, 3970, 76, 52, "Input"], Cell[204779, 4339, 20870, 533, 1652, "Input"], Cell[225652, 4874, 21232, 524, 1412, "Input"], Cell[246887, 5400, 3073, 58, 92, "Input"], Cell[CellGroupData[{ Cell[249985, 5462, 939, 17, 72, "Input"], Cell[250927, 5481, 3634, 82, 132, "Output"], Cell[254564, 5565, 351, 5, 31, "Output"], Cell[254918, 5572, 351, 5, 31, "Output"] }, Open ]], Cell[255284, 5580, 10201, 233, 132, "Input"], Cell[265488, 5815, 6427, 103, 52, "Input"], Cell[271918, 5920, 10215, 234, 132, "Input"], Cell[282136, 6156, 5925, 93, 31, "Input"], Cell[288064, 6251, 11732, 207, 112, "Input"], Cell[CellGroupData[{ Cell[299821, 6462, 14115, 259, 272, "Input"], Cell[313939, 6723, 127913, 2265, 375, 25019, 577, "CachedBoxData", "BoxData", \ "Output"], Cell[441855, 8990, 36862, 662, 350, 14917, 301, "CachedBoxData", "BoxData", \ "Output"] }, Open ]], Cell[CellGroupData[{ Cell[478754, 9657, 4708, 101, 152, "Input"], Cell[483465, 9760, 342, 5, 31, "Output"] }, Open ]], Cell[CellGroupData[{ Cell[483844, 9770, 2499, 47, 92, "Input"], Cell[486346, 9819, 340, 5, 31, "Output"] }, Open ]], Cell[486701, 9827, 1841, 29, 52, "Input"], Cell[CellGroupData[{ Cell[488567, 9860, 4897, 108, 192, "Input"], Cell[493467, 9970, 5750, 175, 1526, "Output"], Cell[499220, 10147, 345, 5, 31, "Output"] }, Open ]], Cell[CellGroupData[{ Cell[499602, 10157, 6425, 124, 132, "Input"], Cell[506030, 10283, 342, 5, 31, "Output"], Cell[506375, 10290, 342, 5, 31, "Output"] }, Open ]], Cell[CellGroupData[{ Cell[506754, 10300, 632, 18, 52, "Input"], Cell[507389, 10320, 361, 6, 31, "Output"], Cell[507753, 10328, 342, 5, 31, "Output"] }, Open ]], Cell[CellGroupData[{ Cell[508132, 10338, 4670, 80, 92, "Input"], Cell[512805, 10420, 346, 5, 31, "Output"] }, Open ]], Cell[513166, 10428, 1863, 27, 31, "Input"], Cell[CellGroupData[{ Cell[515054, 10459, 2963, 56, 112, "Input"], Cell[518020, 10517, 360, 5, 31, "Output"] }, Open ]], Cell[CellGroupData[{ Cell[518417, 10527, 1451, 34, 92, "Input"], Cell[519871, 10563, 360, 5, 31, "Output"] }, Open ]], Cell[CellGroupData[{ Cell[520268, 10573, 3676, 83, 152, "Input"], Cell[523947, 10658, 361, 5, 31, "Output"] }, Open ]], Cell[CellGroupData[{ Cell[524345, 10668, 499, 15, 52, "Input"], Cell[524847, 10685, 382, 6, 31, "Output"] }, Open ]], Cell[525244, 10694, 1381, 21, 31, "Input"], Cell[CellGroupData[{ Cell[526650, 10719, 1709, 32, 52, "Input"], Cell[528362, 10753, 385, 6, 31, "Output"] }, Open ]], Cell[CellGroupData[{ Cell[528784, 10764, 1415, 43, 72, "Input"], Cell[530202, 10809, 383, 6, 31, "Output"] }, Open ]], Cell[CellGroupData[{ Cell[530622, 10820, 2550, 50, 92, "Input"], Cell[533175, 10872, 360, 5, 31, "Output"] }, Open ]], Cell[CellGroupData[{ Cell[533572, 10882, 230, 8, 31, "Input"], Cell[533805, 10892, 88, 1, 31, "Output"] }, Open ]], Cell[CellGroupData[{ Cell[533930, 10898, 3004, 63, 232, "Input"], Cell[536937, 10963, 361, 5, 31, "Output"], Cell[537301, 10970, 360, 5, 31, "Output"], Cell[537664, 10977, 378, 6, 31, "Output"], Cell[538045, 10985, 360, 5, 31, "Output"], Cell[538408, 10992, 361, 5, 31, "Output"], Cell[538772, 10999, 362, 5, 31, "Output"], Cell[539137, 11006, 379, 6, 31, "Output"], Cell[539519, 11014, 359, 5, 31, "Output"], Cell[539881, 11021, 360, 5, 31, "Output"], Cell[540244, 11028, 376, 6, 63, "Output"] }, Open ]] } ] *) (* End of internal cache information *)