(* 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[ 372067, 7425] NotebookOptionsPosition[ 366322, 7244] NotebookOutlinePosition[ 366822, 7264] CellTagsIndexPosition[ 366779, 7261] WindowFrame->Normal*) (* Beginning of Notebook Content *) Notebook[{ Cell[BoxData[ RowBox[{ RowBox[{"(*", " ", RowBox[{ RowBox[{ "Kimball", " ", "model", " ", "and", " ", "energy", " ", "derived", " ", "from", " ", "Facio", " ", "PDB", " ", "source"}], ",", " ", RowBox[{"ES", " ", "26", " ", "February", " ", "2013"}]}], " ", "*)"}], "\[IndentingNewLine]", RowBox[{"(*", " ", RowBox[{ "sec", " ", "and", " ", "tert", " ", "C", " ", "atoms", " ", "have", " ", "different", " ", "Cr"}], " ", "*)"}], " ", "\[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.570887379319643*^9, 3.5708874187409124`*^9}}], Cell[CellGroupData[{ Cell[BoxData[{ RowBox[{ RowBox[{ RowBox[{"t1", "=", RowBox[{"1.889726", "*", RowBox[{"{", RowBox[{ RowBox[{"{", RowBox[{ RowBox[{"-", "4.227"}], ",", RowBox[{"-", "1.717"}], ",", " ", "0.010"}], "}"}], ",", RowBox[{"{", RowBox[{ RowBox[{"-", "4.167"}], ",", RowBox[{"-", "0.231"}], ",", "0.330"}], "}"}], ",", RowBox[{"{", RowBox[{ RowBox[{"-", "2.920"}], ",", " ", "0.399", ",", RowBox[{"-", "0.264"}]}], "}"}], ",", RowBox[{"{", RowBox[{ RowBox[{"-", "1.660"}], ",", RowBox[{"-", "0.300"}], ",", " ", "0.251"}], "}"}], ",", RowBox[{"{", RowBox[{ RowBox[{"-", "1.718"}], ",", RowBox[{"-", "1.785"}], ",", RowBox[{"-", "0.142"}]}], "}"}], ",", RowBox[{"{", RowBox[{ RowBox[{"-", "2.963"}], ",", RowBox[{"-", "2.431"}], ",", "0.466"}], "}"}], ",", RowBox[{"{", RowBox[{ RowBox[{"-", "4.367"}], ",", RowBox[{"-", "1.861"}], ",", RowBox[{"-", "1.080"}]}], "}"}], ",", RowBox[{"{", RowBox[{ RowBox[{"-", "5.113"}], ",", RowBox[{"-", "2.174"}], ",", "0.491"}], "}"}], ",", RowBox[{"{", RowBox[{ RowBox[{"-", "4.182"}], ",", RowBox[{"-", "0.080"}], ",", "1.428"}], "}"}], ",", RowBox[{"{", RowBox[{ RowBox[{"-", "5.071"}], ",", "0.277", ",", RowBox[{"-", "0.058"}]}], "}"}], ",", RowBox[{"{", RowBox[{ RowBox[{"-", "2.863"}], ",", "1.484", ",", RowBox[{"-", "0.023"}]}], "}"}], ",", RowBox[{"{", RowBox[{ RowBox[{"-", "2.958"}], ",", "0.345", ",", RowBox[{"-", "1.371"}]}], "}"}], ",", RowBox[{"{", RowBox[{ RowBox[{"-", "1.636"}], ",", RowBox[{"-", "0.227"}], ",", "1.367"}], "}"}], ",", RowBox[{"{", RowBox[{ RowBox[{"-", "1.786"}], ",", RowBox[{"-", "1.854"}], ",", RowBox[{"-", "1.257"}]}], "}"}], ",", RowBox[{"{", RowBox[{ RowBox[{"-", "3.009"}], ",", RowBox[{"-", "3.500"}], ",", "0.182"}], "}"}], ",", RowBox[{"{", RowBox[{ RowBox[{"-", "2.896"}], ",", RowBox[{"-", "2.414"}], ",", "1.572"}], "}"}], ",", RowBox[{"{", RowBox[{ RowBox[{"-", "0.396"}], ",", "0.366", ",", RowBox[{"-", "0.310"}]}], "}"}], ",", RowBox[{"{", RowBox[{ RowBox[{"-", "0.456"}], ",", RowBox[{"-", "2.515"}], ",", "0.309"}], "}"}], ",", RowBox[{"{", RowBox[{"0.783", ",", RowBox[{"-", "1.859"}], ",", RowBox[{"-", "0.277"}]}], "}"}], ",", RowBox[{"{", RowBox[{ RowBox[{"-", "0.505"}], ",", RowBox[{"-", "3.578"}], ",", "0.001"}], "}"}], ",", RowBox[{"{", RowBox[{ RowBox[{"-", "0.395"}], ",", RowBox[{"-", "2.524"}], ",", "1.416"}], "}"}], ",", RowBox[{"{", RowBox[{ RowBox[{"-", "0.444"}], ",", "0.327", ",", RowBox[{"-", "1.427"}]}], "}"}], ",", RowBox[{"{", RowBox[{"0.865", ",", RowBox[{"-", "0.397"}], ",", "0.149"}], "}"}], ",", RowBox[{"{", RowBox[{"0.934", ",", RowBox[{"-", "0.356"}], ",", "1.265"}], "}"}], ",", RowBox[{"{", RowBox[{"0.771", ",", RowBox[{"-", "1.936"}], ",", RowBox[{"-", "1.384"}]}], "}"}], ",", RowBox[{"{", RowBox[{"1.695", ",", RowBox[{"-", "2.395"}], ",", "0.052"}], "}"}], ",", RowBox[{"{", RowBox[{"0.924", ",", "2.530", ",", RowBox[{"-", "0.418"}]}], "}"}], ",", RowBox[{"{", RowBox[{"2.139", ",", "1.755", ",", "0.059"}], "}"}], ",", RowBox[{"{", RowBox[{ RowBox[{"-", "0.325"}], ",", "1.837", ",", "0.118"}], "}"}], ",", RowBox[{"{", RowBox[{"0.899", ",", "2.583", ",", RowBox[{"-", "1.524"}]}], "}"}], ",", RowBox[{"{", RowBox[{"0.965", ",", "3.578", ",", RowBox[{"-", "0.065"}]}], "}"}], ",", RowBox[{"{", RowBox[{"3.516", ",", "2.227", ",", RowBox[{"-", "0.397"}]}], "}"}], ",", RowBox[{"{", RowBox[{"2.074", ",", "0.308", ",", RowBox[{"-", "0.459"}]}], "}"}], ",", RowBox[{"{", RowBox[{"2.126", ",", "1.747", ",", "1.178"}], "}"}], ",", RowBox[{"{", RowBox[{ RowBox[{"-", "1.247"}], ",", "2.356", ",", RowBox[{"-", "0.224"}]}], "}"}], ",", RowBox[{"{", RowBox[{ RowBox[{"-", "0.343"}], ",", "1.904", ",", "1.225"}], "}"}], ",", RowBox[{"{", RowBox[{"1.951", ",", "0.315", ",", RowBox[{"-", "1.572"}]}], "}"}], ",", RowBox[{"{", RowBox[{"3.467", ",", RowBox[{"-", "0.232"}], ",", RowBox[{"-", "0.138"}]}], "}"}], ",", RowBox[{"{", RowBox[{"3.478", ",", "2.623", ",", RowBox[{"-", "1.429"}]}], "}"}], ",", RowBox[{"{", RowBox[{"3.900", ",", "3.053", ",", "0.228"}], "}"}], ",", RowBox[{"{", RowBox[{"3.509", ",", RowBox[{"-", "0.629"}], ",", "0.894"}], "}"}], ",", RowBox[{"{", RowBox[{"4.401", ",", "0.975", ",", RowBox[{"-", "0.312"}]}], "}"}], ",", RowBox[{"{", RowBox[{"3.746", ",", RowBox[{"-", "1.074"}], ",", RowBox[{"-", "0.797"}]}], "}"}], ",", RowBox[{"{", RowBox[{"5.023", ",", "0.871", ",", RowBox[{"-", "1.220"}]}], "}"}], ",", RowBox[{"{", RowBox[{"5.113", ",", "1.045", ",", "0.530"}], "}"}]}], "}"}]}]}], ";"}], "\n"}], "\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.570859580181128*^9, 3.570859602941568*^9}, {3.5708598319343705`*^9, 3.570859861761623*^9}}], Cell[BoxData[ TagBox[ RowBox[{"(", "\[NoBreak]", GridBox[{ { RowBox[{"-", "7.987871802000001`"}], RowBox[{"-", "3.2446595420000004`"}], "0.01889726`"}, { RowBox[{"-", "7.874488242`"}], RowBox[{"-", "0.43652670600000004`"}], "0.62360958`"}, { RowBox[{"-", "5.51799992`"}], "0.754000674`", RowBox[{"-", "0.498887664`"}]}, { RowBox[{"-", "3.13694516`"}], RowBox[{"-", "0.5669178`"}], "0.474321226`"}, { RowBox[{"-", "3.246549268`"}], RowBox[{"-", "3.3731609099999997`"}], RowBox[{"-", "0.268341092`"}]}, { RowBox[{"-", "5.599258138000001`"}], RowBox[{"-", "4.593923906000001`"}], "0.880612316`"}, { RowBox[{"-", "8.252433442`"}], RowBox[{"-", "3.516780086`"}], RowBox[{"-", "2.0409040800000002`"}]}, { RowBox[{"-", "9.662169038`"}], RowBox[{"-", "4.108264324`"}], "0.927855466`"}, { RowBox[{"-", "7.902834132000001`"}], RowBox[{"-", "0.15117808`"}], "2.698528728`"}, { RowBox[{"-", "9.582800546`"}], "0.5234541020000001`", RowBox[{"-", "0.109604108`"}]}, { RowBox[{"-", "5.410285538`"}], "2.804353384`", RowBox[{"-", "0.043463698`"}]}, { RowBox[{"-", "5.589809508`"}], "0.65195547`", RowBox[{"-", "2.590814346`"}]}, { RowBox[{"-", "3.091591736`"}], RowBox[{"-", "0.428967802`"}], "2.583255442`"}, { RowBox[{"-", "3.375050636`"}], RowBox[{"-", "3.5035520040000003`"}], RowBox[{"-", "2.375385582`"}]}, { RowBox[{"-", "5.686185534`"}], RowBox[{"-", "6.614041`"}], "0.343930132`"}, { RowBox[{"-", "5.472646496`"}], RowBox[{"-", "4.561798564`"}], "2.970649272`"}, { RowBox[{"-", "0.748331496`"}], "0.691639716`", RowBox[{"-", "0.58581506`"}]}, { RowBox[{"-", "0.8617150560000001`"}], RowBox[{"-", "4.7526608900000005`"}], "0.583925334`"}, {"1.479655458`", RowBox[{"-", "3.513000634`"}], RowBox[{"-", "0.5234541020000001`"}]}, { RowBox[{"-", "0.95431163`"}], RowBox[{"-", "6.761439628`"}], "0.001889726`"}, { RowBox[{"-", "0.74644177`"}], RowBox[{"-", "4.769668424`"}], "2.675852016`"}, { RowBox[{"-", "0.839038344`"}], "0.617940402`", RowBox[{"-", "2.696639002`"}]}, {"1.63461299`", RowBox[{"-", "0.7502212220000001`"}], "0.281569174`"}, {"1.765004084`", RowBox[{"-", "0.6727424559999999`"}], "2.3905033899999997`"}, {"1.456978746`", RowBox[{"-", "3.658509536`"}], RowBox[{"-", "2.6153807839999996`"}]}, {"3.2030855700000003`", RowBox[{"-", "4.52589377`"}], "0.098265752`"}, {"1.7461068240000002`", "4.781006779999999`", RowBox[{"-", "0.7899054679999999`"}]}, {"4.042123913999999`", "3.3164691299999998`", "0.111493834`"}, { RowBox[{"-", "0.61416095`"}], "3.471426662`", "0.222987668`"}, {"1.698863674`", "4.881162258000001`", RowBox[{"-", "2.8799424240000002`"}]}, {"1.82358559`", "6.761439628`", RowBox[{"-", "0.12283219000000001`"}]}, {"6.644276616`", "4.208419802`", RowBox[{"-", "0.7502212220000001`"}]}, {"3.919291724`", "0.582035608`", RowBox[{"-", "0.8673842340000001`"}]}, {"4.0175574759999995`", "3.3013513220000004`", "2.226097228`"}, { RowBox[{"-", "2.356488322`"}], "4.452194456`", RowBox[{"-", "0.423298624`"}]}, { RowBox[{"-", "0.648176018`"}], "3.5980383039999997`", "2.31491435`"}, {"3.686855426`", "0.59526369`", RowBox[{"-", "2.970649272`"}]}, {"6.551680042`", RowBox[{"-", "0.438416432`"}], RowBox[{"-", "0.260782188`"}]}, {"6.572467028`", "4.956751298`", RowBox[{"-", "2.7004184540000002`"}]}, {"7.3699314`", "5.769333478`", "0.43085752800000005`"}, {"6.631048534`", RowBox[{"-", "1.188637654`"}], "1.689415044`"}, {"8.316684126`", "1.84248285`", RowBox[{"-", "0.589594512`"}]}, {"7.0789135960000005`", RowBox[{"-", "2.0295657240000002`"}], RowBox[{"-", "1.5061116220000001`"}]}, {"9.492093698`", "1.645951346`", RowBox[{"-", "2.30546572`"}]}, {"9.662169038`", "1.97476367`", "1.00155478`"} }, 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.570887232367385*^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.5708596852005124`*^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["45"], "Output", CellChangeTimes->{3.570887232398585*^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\"\>", ",", "\<\"C\"\>", ",", "\<\"C\"\>", ",", "\<\"Z\"\>", ",", "\<\"Z\"\>", ",", "\<\"Z\"\>", ",", "\<\"Z\"\>", ",", "\<\"Z\"\>", ",", "\<\"Z\"\>", ",", "\<\"Z\"\>", ",", "\<\"Z\"\>", ",", "\<\"Z\"\>", ",", "\<\"Z\"\>", ",", "\<\"C\"\>", ",", "\<\"C\"\>", ",", "\<\"C\"\>", ",", "\<\"Z\"\>", ",", "\<\"Z\"\>", ",", "\<\"Z\"\>", ",", "\<\"C\"\>", ",", "\<\"Z\"\>", ",", "\<\"Z\"\>", ",", "\<\"Z\"\>", ",", "\<\"C\"\>", ",", "\<\"C\"\>", ",", "\<\"C\"\>", ",", "\<\"Z\"\>", ",", "\<\"Z\"\>", ",", "\<\"C\"\>", ",", "\<\"C\"\>", ",", "\<\"Z\"\>", ",", "\<\"Z\"\>", ",", "\<\"Z\"\>", ",", "\<\"Z\"\>", ",", "\<\"C\"\>", ",", "\<\"Z\"\>", ",", "\<\"Z\"\>", ",", "\<\"Z\"\>", ",", "\<\"C\"\>", ",", "\<\"Z\"\>", ",", "\<\"Z\"\>", ",", "\<\"Z\"\>"}], "}"}]], "Output", CellChangeTimes->{3.570887232414185*^9}] }, Open ]], Cell[BoxData[ RowBox[{ RowBox[{"num", "=", 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}], Cell[BoxData[ RowBox[{ RowBox[{"um", "=", RowBox[{"Table", "[", RowBox[{ RowBox[{"{", RowBox[{ RowBox[{"un", "[", RowBox[{"[", "i", "]"}], "]"}], ",", RowBox[{"num", "[", 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}], 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\"\>", ",", "5"}], "}"}], ",", RowBox[{"{", RowBox[{"\<\"C\"\>", ",", "6"}], "}"}], ",", RowBox[{"{", RowBox[{"\<\"C\"\>", ",", "17"}], "}"}], ",", RowBox[{"{", RowBox[{"\<\"C\"\>", ",", "18"}], "}"}], ",", RowBox[{"{", RowBox[{"\<\"C\"\>", ",", "19"}], "}"}], ",", RowBox[{"{", RowBox[{"\<\"C\"\>", ",", "23"}], "}"}], ",", RowBox[{"{", RowBox[{"\<\"C\"\>", ",", "27"}], "}"}], ",", RowBox[{"{", RowBox[{"\<\"C\"\>", ",", "28"}], "}"}], ",", RowBox[{"{", RowBox[{"\<\"C\"\>", ",", "29"}], "}"}], ",", RowBox[{"{", RowBox[{"\<\"C\"\>", ",", "32"}], "}"}], ",", RowBox[{"{", RowBox[{"\<\"C\"\>", ",", "33"}], "}"}], ",", RowBox[{"{", RowBox[{"\<\"C\"\>", ",", "38"}], "}"}], ",", RowBox[{"{", RowBox[{"\<\"C\"\>", ",", "42"}], "}"}], ",", RowBox[{"{", RowBox[{"\<\"Z\"\>", ",", "7"}], "}"}], ",", RowBox[{"{", RowBox[{"\<\"Z\"\>", ",", "8"}], "}"}], ",", RowBox[{"{", RowBox[{"\<\"Z\"\>", ",", "9"}], "}"}], ",", RowBox[{"{", RowBox[{"\<\"Z\"\>", ",", "10"}], "}"}], ",", RowBox[{"{", RowBox[{"\<\"Z\"\>", ",", "11"}], "}"}], ",", RowBox[{"{", RowBox[{"\<\"Z\"\>", ",", "12"}], "}"}], ",", RowBox[{"{", RowBox[{"\<\"Z\"\>", ",", "13"}], "}"}], ",", RowBox[{"{", RowBox[{"\<\"Z\"\>", ",", "14"}], "}"}], ",", RowBox[{"{", RowBox[{"\<\"Z\"\>", ",", "15"}], "}"}], ",", RowBox[{"{", RowBox[{"\<\"Z\"\>", ",", "16"}], "}"}], ",", RowBox[{"{", RowBox[{"\<\"Z\"\>", ",", "20"}], "}"}], ",", RowBox[{"{", RowBox[{"\<\"Z\"\>", ",", "21"}], "}"}], ",", RowBox[{"{", RowBox[{"\<\"Z\"\>", ",", "22"}], "}"}], ",", RowBox[{"{", RowBox[{"\<\"Z\"\>", ",", "24"}], "}"}], ",", RowBox[{"{", RowBox[{"\<\"Z\"\>", ",", "25"}], "}"}], ",", RowBox[{"{", RowBox[{"\<\"Z\"\>", ",", "26"}], "}"}], ",", RowBox[{"{", RowBox[{"\<\"Z\"\>", ",", "30"}], "}"}], ",", RowBox[{"{", RowBox[{"\<\"Z\"\>", ",", "31"}], "}"}], ",", RowBox[{"{", RowBox[{"\<\"Z\"\>", ",", "34"}], "}"}], ",", RowBox[{"{", RowBox[{"\<\"Z\"\>", ",", "35"}], "}"}], ",", RowBox[{"{", RowBox[{"\<\"Z\"\>", ",", "36"}], "}"}], ",", RowBox[{"{", RowBox[{"\<\"Z\"\>", ",", "37"}], "}"}], ",", RowBox[{"{", RowBox[{"\<\"Z\"\>", ",", "39"}], "}"}], ",", RowBox[{"{", RowBox[{"\<\"Z\"\>", ",", "40"}], "}"}], ",", RowBox[{"{", RowBox[{"\<\"Z\"\>", ",", "41"}], "}"}], ",", RowBox[{"{", RowBox[{"\<\"Z\"\>", ",", "43"}], "}"}], ",", RowBox[{"{", RowBox[{"\<\"Z\"\>", ",", "44"}], "}"}], ",", RowBox[{"{", RowBox[{"\<\"Z\"\>", ",", "45"}], "}"}]}], "}"}]], "Output", CellChangeTimes->{3.570887232429785*^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", ",", "5", ",", "6", ",", "17", ",", "18", ",", "19", ",", "23", ",", "27", ",", "28", ",", "29", ",", "32", ",", "33", ",", "38", ",", "42", ",", "7", ",", "8", ",", "9", ",", "10", ",", "11", ",", "12", ",", "13", ",", "14", ",", "15", ",", "16", ",", "20", ",", "21", ",", "22", ",", "24", ",", "25", ",", "26", ",", "30", ",", "31", ",", "34", ",", "35", ",", "36", ",", "37", ",", "39", ",", "40", ",", "41", ",", "43", ",", "44", ",", "45"}], "}"}]], "Output", CellChangeTimes->{3.570887232445385*^9}] }, Open ]], Cell[BoxData[ RowBox[{ RowBox[{"For", "[", RowBox[{ RowBox[{"i", "=", "1"}], ",", RowBox[{"i", "<", RowBox[{"n", "+", "1"}]}], ",", RowBox[{"i", "++"}], ",", RowBox[{"If", "[", RowBox[{ RowBox[{ RowBox[{"us", "[", RowBox[{"[", RowBox[{"i", ",", "1"}], "]"}], "]"}], "\[Equal]", "\"\\""}], ",", RowBox[{ RowBox[{"us", "[", RowBox[{"[", RowBox[{"i", ",", "1"}], "]"}], "]"}], "=", "\"\\""}]}], "]"}]}], "]"}], ";"}]], "Input", CellChangeTimes->{{3.568277663590458*^9, 3.568277712652544*^9}, 3.5682785838808746`*^9, {3.56880682872497*^9, 3.568806862015428*^9}, 3.5688069650848093`*^9, 3.568807273668951*^9, 3.5688073087846127`*^9, { 3.568807384553946*^9, 3.5688073893119545`*^9}, {3.56881489654434*^9, 3.5688149048591547`*^9}, {3.568821714349115*^9, 3.568821718951123*^9}}], Cell[CellGroupData[{ Cell[BoxData[{ RowBox[{"u1", "=", RowBox[{"Table", "[", RowBox[{ RowBox[{"If", "[", RowBox[{ RowBox[{ RowBox[{"us", "[", RowBox[{"[", RowBox[{"i", ",", "1"}], "]"}], "]"}], "\[Equal]", "\"\\""}], ",", "0.255", ",", RowBox[{"If", "[", RowBox[{ RowBox[{ RowBox[{"us", "[", RowBox[{"[", RowBox[{"i", ",", "1"}], "]"}], "]"}], "\[Equal]", "\"\\""}], ",", "0.1", ",", RowBox[{"If", "[", RowBox[{ RowBox[{ RowBox[{"us", "[", RowBox[{"[", RowBox[{"i", ",", "1"}], "]"}], "]"}], "\[Equal]", "\"\\""}], ",", "0.24", ",", RowBox[{"If", "[", RowBox[{ RowBox[{ RowBox[{"us", "[", RowBox[{"[", RowBox[{"i", ",", "1"}], "]"}], "]"}], "\[Equal]", "\"\\""}], ",", "0.178", ",", RowBox[{"If", "[", RowBox[{ RowBox[{ RowBox[{"us", "[", RowBox[{"[", RowBox[{"i", ",", "1"}], "]"}], "]"}], "\[Equal]", "\"\\""}], ",", "0.5"}], "]"}]}], "]"}]}], "]"}]}], "]"}]}], "]"}], ",", RowBox[{"{", RowBox[{"i", ",", "1", ",", "n"}], "}"}]}], "]"}]}], "\[IndentingNewLine]", RowBox[{"u2", "=", RowBox[{"Table", "[", RowBox[{ RowBox[{"If", "[", RowBox[{ RowBox[{ RowBox[{"us", "[", RowBox[{"[", RowBox[{"i", ",", "1"}], "]"}], "]"}], "\[Equal]", "\"\\""}], ",", "0.2548", ",", RowBox[{"If", "[", RowBox[{ RowBox[{ RowBox[{"us", "[", RowBox[{"[", RowBox[{"i", ",", "1"}], "]"}], "]"}], "\[Equal]", "\"\\""}], ",", "0.6", ",", RowBox[{"If", "[", RowBox[{ RowBox[{ RowBox[{"us", "[", RowBox[{"[", RowBox[{"i", ",", "1"}], "]"}], "]"}], "\[Equal]", "\"\\""}], ",", "0.22522", ",", RowBox[{"If", "[", RowBox[{ RowBox[{ RowBox[{"us", "[", RowBox[{"[", RowBox[{"i", ",", "1"}], "]"}], "]"}], "\[Equal]", "\"\\""}], ",", "0.178", ",", RowBox[{"If", "[", RowBox[{ RowBox[{ RowBox[{"us", "[", RowBox[{"[", RowBox[{"i", ",", "1"}], "]"}], "]"}], "\[Equal]", "\"\\""}], ",", "0.5"}], "]"}]}], "]"}]}], "]"}]}], "]"}]}], "]"}], ",", RowBox[{"{", RowBox[{"i", ",", "1", ",", "n"}], "}"}]}], "]"}]}]}], "Input", CellChangeTimes->{{3.5679480369450207`*^9, 3.567948069112277*^9}, { 3.5679486805553513`*^9, 3.5679487948723516`*^9}, 3.567950206581231*^9, { 3.5681216077716007`*^9, 3.5681216839309344`*^9}, {3.568266380090639*^9, 3.5682664108850937`*^9}, {3.568266481350417*^9, 3.56826649971165*^9}, 3.5682795170433135`*^9, {3.5682795636873956`*^9, 3.5682797843809834`*^9}, { 3.568279837187076*^9, 3.5682798459854913`*^9}, {3.568279877201146*^9, 3.568279880711152*^9}, {3.5682799570264864`*^9, 3.5682799599124913`*^9}, { 3.5683770044498715`*^9, 3.5683771523693314`*^9}, 3.5688133425788107`*^9, { 3.568814931192001*^9, 3.5688150075073347`*^9}, {3.5688765350957685`*^9, 3.5688765981198792`*^9}, {3.568876634452343*^9, 3.5688766352167444`*^9}, { 3.568894358551657*^9, 3.5688944054453397`*^9}, {3.568894522929146*^9, 3.5688945259087515`*^9}, {3.5688946101644993`*^9, 3.5688946171221113`*^9}, {3.568894651067771*^9, 3.568894651956972*^9}, 3.5688946827982264`*^9, {3.568894734527918*^9, 3.568894735495119*^9}, { 3.5688947726699843`*^9, 3.568894773496786*^9}, {3.5688948078948464`*^9, 3.568895097914956*^9}, {3.5689558039020233`*^9, 3.568955804619624*^9}, { 3.5689559169086213`*^9, 3.5689559179070234`*^9}, {3.5689559496998787`*^9, 3.568955950589081*^9}, {3.568956090817727*^9, 3.568956118273775*^9}, 3.5689561556982408`*^9, {3.5690814230317364`*^9, 3.5690814238897376`*^9}, { 3.569232478412421*^9, 3.5692324795356236`*^9}, {3.5692325096124763`*^9, 3.5692325115780797`*^9}, {3.5692325933846235`*^9, 3.569232594289425*^9}, { 3.569235467676072*^9, 3.5692354683780737`*^9}, {3.5692358857568064`*^9, 3.5692358867552085`*^9}, {3.569236173312112*^9, 3.569236174060913*^9}, { 3.569344745239445*^9, 3.569344781213108*^9}, {3.5693896312339673`*^9, 3.5693896351495743`*^9}, {3.5693896840088596`*^9, 3.5693896981112843`*^9}, {3.5693897680462074`*^9, 3.5693897743798184`*^9}, 3.570595843597315*^9, 3.5705958765133724`*^9, {3.5706006955110383`*^9, 3.57060069660304*^9}, {3.570600739659116*^9, 3.5706007402207165`*^9}, { 3.5706007784563837`*^9, 3.5706008313872766`*^9}, {3.5706008641161346`*^9, 3.5706008892321787`*^9}, 3.5706010214580107`*^9, {3.5706011135917726`*^9, 3.570601115058175*^9}, {3.5706011509850388`*^9, 3.5706011750714808`*^9}, { 3.5706012352719865`*^9, 3.570601260746831*^9}, 3.570856110868636*^9, 3.570856144034294*^9, 3.5708561753903494`*^9, {3.5708562115824127`*^9, 3.570856236261656*^9}, 3.5708568877188005`*^9, 3.570856960992129*^9, { 3.5708570022854013`*^9, 3.570857003424204*^9}, 3.5708574863854513`*^9, 3.570857676003785*^9, {3.570857720697863*^9, 3.570857774736358*^9}, { 3.570857815015629*^9, 3.570857815265229*^9}, {3.5708578488052883`*^9, 3.5708579513754683`*^9}, {3.5708579844319267`*^9, 3.570858009937971*^9}, { 3.5708583084132957`*^9, 3.570858421435494*^9}, {3.5708600720343924`*^9, 3.570860124731284*^9}, 3.5708601661805573`*^9, {3.570860204104224*^9, 3.570860234446277*^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.1`", ",", "0.1`", ",", "0.1`", ",", "0.1`", ",", "0.1`", ",", "0.1`", ",", "0.1`", ",", "0.1`", ",", "0.1`", ",", "0.1`", ",", "0.1`", ",", "0.1`", ",", "0.1`", ",", "0.1`", ",", "0.1`", ",", "0.1`", ",", "0.1`", ",", "0.1`", ",", "0.1`", ",", "0.1`", ",", "0.1`", ",", "0.1`", ",", "0.1`", ",", "0.1`", ",", "0.1`", ",", "0.1`", ",", "0.1`", ",", "0.1`"}], "}"}]], "Output", CellChangeTimes->{3.5708872324765854`*^9}], Cell[BoxData[ RowBox[{"{", RowBox[{ "0.2548`", ",", "0.2548`", ",", "0.2548`", ",", "0.2548`", ",", "0.2548`", ",", "0.2548`", ",", "0.2548`", ",", "0.2548`", ",", "0.2548`", ",", "0.2548`", ",", "0.2548`", ",", "0.2548`", ",", "0.2548`", ",", "0.2548`", ",", "0.2548`", ",", "0.2548`", ",", "0.2548`", ",", "0.6`", ",", "0.6`", ",", "0.6`", ",", "0.6`", ",", "0.6`", ",", "0.6`", ",", "0.6`", ",", "0.6`", ",", "0.6`", ",", "0.6`", ",", "0.6`", ",", "0.6`", ",", "0.6`", ",", "0.6`", ",", "0.6`", ",", "0.6`", ",", "0.6`", ",", "0.6`", ",", "0.6`", ",", "0.6`", ",", "0.6`", ",", "0.6`", ",", "0.6`", ",", "0.6`", ",", "0.6`", ",", "0.6`", ",", "0.6`", ",", "0.6`"}], "}"}]], "Output", CellChangeTimes->{3.5708872324765854`*^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\"\>", ",", "\<\"H\"\>", ",", "\<\"H\"\>", ",", "\<\"H\"\>", ",", "\<\"H\"\>", ",", "\<\"H\"\>", ",", "\<\"H\"\>", ",", "\<\"H\"\>", ",", "\<\"H\"\>", ",", "\<\"H\"\>", ",", "\<\"H\"\>", ",", "\<\"H\"\>", ",", "\<\"H\"\>", ",", "\<\"H\"\>", ",", "\<\"H\"\>", ",", "\<\"H\"\>", ",", "\<\"H\"\>", ",", "\<\"H\"\>", ",", "\<\"H\"\>", ",", "\<\"H\"\>", ",", "\<\"H\"\>", ",", "\<\"H\"\>", ",", "\<\"H\"\>", ",", "\<\"H\"\>", ",", "\<\"H\"\>", ",", "\<\"H\"\>", ",", "\<\"H\"\>", ",", "\<\"H\"\>", ",", "\<\"H\"\>"}], "}"}]], "Output", CellChangeTimes->{3.570887232492185*^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.`", ",", "1.`", ",", "1.`", ",", "1.`", ",", "1.`", ",", "1.`", ",", "1.`", ",", "1.`", ",", "1.`", ",", "1.`", ",", "1.`", ",", "1.`", ",", "1.`", ",", "1.`", ",", "1.`", ",", "1.`", ",", "1.`", ",", "1.`", ",", "1.`", ",", "1.`", ",", "1.`", ",", "1.`", ",", "1.`", ",", "1.`", ",", "1.`", ",", "1.`", ",", "1.`", ",", "1.`", ",", "1.`"}], "}"}]], "Output", CellChangeTimes->{3.570887232523385*^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["17"], "Output", CellChangeTimes->{3.5708872325389853`*^9}], Cell[BoxData["28"], "Output", CellChangeTimes->{3.5708872325389853`*^9}] }, Open ]], Cell[BoxData[{ RowBox[{ RowBox[{"DeleteFile", "[", " ", "\"\\"", "]"}], ";"}], "\[IndentingNewLine]", RowBox[{"For", "[", RowBox[{ RowBox[{"i", "=", "1"}], ",", RowBox[{"i", "<", RowBox[{"n", "+", "1"}]}], ",", RowBox[{"i", "++"}], ",", "\[IndentingNewLine]", RowBox[{ RowBox[{"{", RowBox[{ RowBox[{"u", "[", RowBox[{"[", "i", "]"}], "]"}], ",", RowBox[{"Extract", "[", RowBox[{"t1", ",", RowBox[{"{", "i", "}"}]}], "]"}]}], "}"}], ">>>", " ", "\"\\""}]}], "]"}]}], "Input", CellChangeTimes->{{3.567869377256353*^9, 3.5678694101568108`*^9}, { 3.5678695244894114`*^9, 3.56786953511303*^9}, 3.56786988243204*^9, 3.5678699252853155`*^9, {3.567870069179968*^9, 3.5678700766835814`*^9}, { 3.5678703216664114`*^9, 3.567870325738019*^9}, 3.5679271251072817`*^9, { 3.567942840466694*^9, 3.567942854381918*^9}, {3.567942932272855*^9, 3.567942950509287*^9}, 3.5679430681802936`*^9, {3.568278272060727*^9, 3.56827827391713*^9}, 3.5688732159559383`*^9, 3.568910867631465*^9, 3.5689997098549547`*^9, 3.5689998170427427`*^9, 3.5689998869620657`*^9, { 3.569059200815255*^9, 3.5690592031552596`*^9}, 3.5691460426137285`*^9, 3.569237204520723*^9, 3.569237465836782*^9, 3.56923802264856*^9, 3.5693403424181123`*^9, 3.569340450198702*^9, 3.569340738019207*^9, 3.569340852851009*^9, {3.5693411655067577`*^9, 3.5693411655067577`*^9}, 3.5693414976001415`*^9, {3.5693416978420925`*^9, 3.569341705314506*^9}, 3.569342614421703*^9, 3.5693435671777763`*^9, 3.569343662727944*^9, 3.5693437636289215`*^9, 3.5693440709750605`*^9, 3.5693442662562037`*^9, { 3.5702975520309644`*^9, 3.570297552764166*^9}, {3.5705591717487917`*^9, 3.5705591791432047`*^9}}], Cell[BoxData[ RowBox[{ RowBox[{"t", "=", RowBox[{"Table", "[", RowBox[{ RowBox[{"t1", "[", RowBox[{"[", RowBox[{"num", "[", RowBox[{"[", "i", "]"}], "]"}], "]"}], "]"}], ",", RowBox[{"{", RowBox[{"i", ",", "1", ",", "n"}], "}"}]}], "]"}]}], ";"}]], "Input", CellChangeTimes->{{3.567869377256353*^9, 3.567869394073182*^9}, { 3.5678694248832364`*^9, 3.5678694526200852`*^9}, {3.5678694891241493`*^9, 3.5678694955045605`*^9}, {3.567869596046737*^9, 3.567869602645549*^9}, 3.56786971175214*^9, {3.5678697908910794`*^9, 3.567869798800293*^9}, { 3.5679434548425727`*^9, 3.5679434621121855`*^9}, 3.568011875875622*^9, 3.56811435956207*^9, {3.5682782821071444`*^9, 3.5682782839479475`*^9}, { 3.5688205455482616`*^9, 3.5688206262784038`*^9}, 3.5688208026055136`*^9, 3.5688732159559383`*^9, 3.568910867631465*^9, {3.5689830694736805`*^9, 3.568983072687286*^9}}], Cell[BoxData[ RowBox[{ RowBox[{"Plot1", "=", RowBox[{"Table", "[", RowBox[{ RowBox[{"Graphics3D", "[", RowBox[{"{", RowBox[{ RowBox[{"If", "[", RowBox[{ RowBox[{ RowBox[{"u", "[", RowBox[{"[", "i", "]"}], "]"}], "\[Equal]", "\"\\""}], ",", RowBox[{"Lighter", "[", "Blue", "]"}], ",", RowBox[{"If", "[", RowBox[{ RowBox[{ RowBox[{"u", "[", RowBox[{"[", "i", "]"}], "]"}], "\[Equal]", "\"\\""}], ",", RowBox[{"Lighter", "[", "Red", "]"}], ",", RowBox[{"If", "[", RowBox[{ RowBox[{ RowBox[{"u", "[", RowBox[{"[", "i", "]"}], "]"}], "\[Equal]", "\"\\""}], ",", RowBox[{"Lighter", "[", "Green", "]"}], ",", RowBox[{"If", "[", RowBox[{ RowBox[{ RowBox[{"u", "[", RowBox[{"[", "i", "]"}], "]"}], "\[Equal]", "\"\\""}], ",", RowBox[{"Lighter", "[", "Orange", "]"}], ",", RowBox[{"Lighter", "[", "Brown", "]"}]}], "]"}]}], "]"}]}], "]"}]}], "]"}], ",", RowBox[{"Sphere", "[", RowBox[{ RowBox[{"{", RowBox[{ RowBox[{"t", "[", RowBox[{"[", RowBox[{"i", ",", "1"}], "]"}], "]"}], ",", RowBox[{"t", "[", RowBox[{"[", RowBox[{"i", ",", "2"}], "]"}], "]"}], ",", RowBox[{"t", "[", RowBox[{"[", RowBox[{"i", ",", "3"}], "]"}], "]"}]}], "}"}], ",", RowBox[{"u1", "[", RowBox[{"[", "i", "]"}], "]"}]}], "]"}]}], "}"}], "]"}], ",", RowBox[{"{", RowBox[{"i", ",", "1", ",", "n"}], "}"}]}], "]"}]}], ";"}]], "Input", CellChangeTimes->{{3.5679440895764875`*^9, 3.5679441000441055`*^9}, { 3.5679441319773617`*^9, 3.5679441523041973`*^9}, {3.567944240210352*^9, 3.5679442813476243`*^9}, {3.567944323966899*^9, 3.567944345931738*^9}, { 3.567944397567828*^9, 3.567944456941533*^9}, {3.567944491557994*^9, 3.5679445468444905`*^9}, {3.5679446505690727`*^9, 3.567944683875131*^9}, { 3.567944736244423*^9, 3.5679448177233667`*^9}, {3.567945549707852*^9, 3.5679455499730525`*^9}, {3.5679456039959474`*^9, 3.567945606195551*^9}, { 3.567945704460124*^9, 3.5679457164877453`*^9}, {3.5679457857362666`*^9, 3.5679458050023003`*^9}, {3.567946353670864*^9, 3.5679464127169676`*^9}, { 3.5679466013368993`*^9, 3.5679466311173515`*^9}, {3.5679467590999765`*^9, 3.567946915739851*^9}, {3.5679469466123056`*^9, 3.567946946815106*^9}, { 3.5679471385082426`*^9, 3.5679471497870626`*^9}, {3.5679483907224417`*^9, 3.5679484036080647`*^9}, {3.567948441937332*^9, 3.5679484421869326`*^9}, { 3.567948496740228*^9, 3.56794849772303*^9}, {3.567948847912445*^9, 3.5679488949933276`*^9}, {3.568011728877214*^9, 3.5680117308213253`*^9}, { 3.568011766325356*^9, 3.568011773436763*^9}, {3.5681173314452896`*^9, 3.5681173370612993`*^9}, {3.568117919800323*^9, 3.5681179678952074`*^9}, { 3.56811809459863*^9, 3.568118105409449*^9}, {3.5681181818963833`*^9, 3.5681182389144835`*^9}, {3.568118274888147*^9, 3.5681182883977704`*^9}, { 3.568118518513775*^9, 3.56811852739019*^9}, {3.5681188250543127`*^9, 3.568118862634779*^9}, {3.568118972396572*^9, 3.5681189862493963`*^9}, { 3.568119020694257*^9, 3.568119047136303*^9}, {3.5681190903015785`*^9, 3.568119136930061*^9}, {3.5681191671005135`*^9, 3.568119202808976*^9}, { 3.5681194788046613`*^9, 3.568119487603077*^9}, {3.5681195353235607`*^9, 3.5681195410331707`*^9}, 3.56811959201406*^9, {3.5681196426985493`*^9, 3.568119659702579*^9}, {3.568119726813897*^9, 3.56811974027672*^9}, { 3.5682659184078283`*^9, 3.5682659267694435`*^9}, {3.568265972477524*^9, 3.568266002725977*^9}, 3.568277802649102*^9, {3.568820898608082*^9, 3.568820922429324*^9}, 3.5688217528499823`*^9, 3.568821789307246*^9, { 3.569406212748887*^9, 3.569406252544557*^9}, {3.569492717066082*^9, 3.5694927471737347`*^9}, {3.5694931324008117`*^9, 3.5694931369404197`*^9}}], Cell[BoxData[ RowBox[{ RowBox[{"Plot2", "=", RowBox[{"Table", "[", RowBox[{ RowBox[{"Graphics3D", "[", RowBox[{"Text", "[", RowBox[{"i", ",", RowBox[{"{", RowBox[{ RowBox[{ RowBox[{"t", "[", RowBox[{"[", RowBox[{"i", ",", "1"}], "]"}], "]"}], "-", "0.6"}], ",", RowBox[{"t", "[", RowBox[{"[", RowBox[{"i", ",", "2"}], "]"}], "]"}], ",", RowBox[{"t", "[", RowBox[{"[", RowBox[{"i", ",", "3"}], "]"}], "]"}]}], "}"}], " ", ",", RowBox[{"{", RowBox[{"1", ",", "0"}], "}"}]}], "]"}], "]"}], ",", RowBox[{"{", RowBox[{"i", ",", "1", ",", "n"}], "}"}]}], "]"}]}], ";"}]], "Input", CellChangeTimes->{{3.5679440895764875`*^9, 3.5679441000441055`*^9}, { 3.5679441319773617`*^9, 3.5679441523041973`*^9}, {3.567944240210352*^9, 3.5679442813476243`*^9}, {3.567944323966899*^9, 3.567944345931738*^9}, { 3.567944397567828*^9, 3.567944456941533*^9}, {3.567944491557994*^9, 3.5679445468444905`*^9}, {3.5679446505690727`*^9, 3.567944683875131*^9}, { 3.567944736244423*^9, 3.5679448177233667`*^9}, {3.567945549707852*^9, 3.5679455499730525`*^9}, {3.5679456039959474`*^9, 3.567945606195551*^9}, { 3.567945704460124*^9, 3.5679457164877453`*^9}, {3.5679457857362666`*^9, 3.5679458050023003`*^9}, {3.567946353670864*^9, 3.5679464127169676`*^9}, { 3.5679466013368993`*^9, 3.5679466311173515`*^9}, {3.5679467590999765`*^9, 3.567946915739851*^9}, {3.5679469466123056`*^9, 3.567946946815106*^9}, { 3.5679471385082426`*^9, 3.5679471497870626`*^9}, {3.5679483907224417`*^9, 3.5679484036080647`*^9}, {3.567948441937332*^9, 3.5679484421869326`*^9}, { 3.567948496740228*^9, 3.56794849772303*^9}, {3.567948847912445*^9, 3.5679488949933276`*^9}, {3.568011728877214*^9, 3.5680117308213253`*^9}, { 3.568011766325356*^9, 3.568011773436763*^9}, {3.5681173314452896`*^9, 3.5681173370612993`*^9}, {3.568117919800323*^9, 3.5681179678952074`*^9}, { 3.56811809459863*^9, 3.568118105409449*^9}, {3.5681181818963833`*^9, 3.5681182389144835`*^9}, {3.568118274888147*^9, 3.5681182883977704`*^9}, { 3.568118518513775*^9, 3.56811852739019*^9}, {3.5681188250543127`*^9, 3.568118862634779*^9}, {3.568118972396572*^9, 3.5681189862493963`*^9}, { 3.568119020694257*^9, 3.568119047136303*^9}, {3.5681190903015785`*^9, 3.568119136930061*^9}, {3.5681191671005135`*^9, 3.568119202808976*^9}, { 3.5681194788046613`*^9, 3.568119487603077*^9}, {3.5681195353235607`*^9, 3.5681195410331707`*^9}, 3.56811959201406*^9, {3.5681196426985493`*^9, 3.568119659702579*^9}, {3.568119726813897*^9, 3.56811974027672*^9}, { 3.5681199008322024`*^9, 3.568119920691037*^9}, {3.5681199536070952`*^9, 3.568119958521104*^9}, {3.568120000641178*^9, 3.568120067206495*^9}, { 3.5681211528280015`*^9, 3.5681211643408213`*^9}, 3.5681213201694956`*^9, { 3.568121503313817*^9, 3.568121508961027*^9}, {3.568266015439999*^9, 3.5682660461096525`*^9}, 3.568277806081108*^9, {3.568381589141924*^9, 3.568381589391525*^9}, 3.5688217602599955`*^9, {3.568821800305266*^9, 3.568821801397268*^9}, 3.5693901242572327`*^9, {3.570559203182847*^9, 3.5705592101248593`*^9}}], Cell[BoxData[ RowBox[{ StyleBox[ RowBox[{"(*", " ", RowBox[{"Distance", " ", "Matrix", " ", "Bohr"}], " ", "*)"}], "Text"], "\[IndentingNewLine]", RowBox[{ RowBox[{"dc", "=", RowBox[{"Table", "[", RowBox[{ RowBox[{"Sqrt", "[", RowBox[{ RowBox[{ RowBox[{"(", RowBox[{ RowBox[{"t", "[", RowBox[{"[", RowBox[{"i", ",", "1"}], "]"}], "]"}], "-", RowBox[{"t", "[", RowBox[{"[", RowBox[{"j", ",", "1"}], "]"}], "]"}]}], ")"}], "^", "2"}], "+", RowBox[{ RowBox[{"(", RowBox[{ RowBox[{"t", "[", RowBox[{"[", RowBox[{"i", ",", "2"}], "]"}], "]"}], "-", RowBox[{"t", "[", RowBox[{"[", RowBox[{"j", ",", "2"}], "]"}], "]"}]}], ")"}], "^", "2"}], "+", RowBox[{ RowBox[{"(", RowBox[{ RowBox[{"t", "[", RowBox[{"[", RowBox[{"i", ",", "3"}], "]"}], "]"}], "-", RowBox[{"t", "[", RowBox[{"[", RowBox[{"j", ",", "3"}], "]"}], "]"}]}], ")"}], "^", "2"}]}], "]"}], ",", RowBox[{"{", RowBox[{"i", ",", "1", ",", "n"}], "}"}], ",", RowBox[{"{", RowBox[{"j", ",", "1", ",", "n"}], "}"}]}], "]"}]}], ";"}]}]], "Input", CellChangeTimes->{{3.5678630319943895`*^9, 3.5678630956269007`*^9}, { 3.5678632280087337`*^9, 3.567863228336334*^9}, {3.5678632621727934`*^9, 3.5678633509213495`*^9}, {3.5678644293824434`*^9, 3.567864451908883*^9}, { 3.567864923404111*^9, 3.56786494544695*^9}, {3.5678650143210707`*^9, 3.5678650845367947`*^9}, {3.567869231084096*^9, 3.5678692412397137`*^9}, 3.5678693168686466`*^9, {3.5678704450470285`*^9, 3.5678704621290584`*^9}, 3.5682783281584253`*^9, 3.5688732159715385`*^9, 3.568910867647065*^9, 3.5689997098549547`*^9, 3.5689998170427427`*^9, 3.5689998869620657`*^9, 3.5691460426137285`*^9, 3.569237204536323*^9, 3.5692374658523817`*^9, 3.56923802264856*^9, 3.5693403424181123`*^9, 3.5693404502143016`*^9, 3.569340738019207*^9, 3.569340852851009*^9, 3.5693411655067577`*^9, 3.5693414978029413`*^9, 3.5693426144373026`*^9, 3.5693435671777763`*^9, 3.569343662743544*^9, 3.569343763644521*^9, 3.569344071177861*^9, 3.569344266271804*^9, 3.570297558707776*^9, {3.5703416079688015`*^9, 3.570341617375618*^9}, {3.5705956885798426`*^9, 3.5705957106070814`*^9}, { 3.5705965150536942`*^9, 3.5705965239457097`*^9}}], Cell[BoxData[{ RowBox[{ RowBox[{"x", "=", RowBox[{"Table", "[", RowBox[{ RowBox[{"t", "[", RowBox[{"[", RowBox[{"i", ",", "1"}], "]"}], "]"}], ",", RowBox[{"{", RowBox[{"i", ",", "1", ",", "n"}], "}"}]}], "]"}]}], ";"}], "\[IndentingNewLine]", RowBox[{ RowBox[{"y", "=", RowBox[{"Table", "[", RowBox[{ RowBox[{"t", "[", RowBox[{"[", RowBox[{"i", ",", "2"}], "]"}], "]"}], ",", RowBox[{"{", RowBox[{"i", ",", "1", ",", "n"}], "}"}]}], "]"}]}], ";"}], "\[IndentingNewLine]", RowBox[{ RowBox[{"z", "=", RowBox[{"Table", "[", RowBox[{ RowBox[{"t", "[", RowBox[{"[", RowBox[{"i", ",", "3"}], "]"}], "]"}], ",", RowBox[{"{", RowBox[{"i", ",", "1", ",", "n"}], "}"}]}], "]"}]}], ";"}]}], "Input", CellChangeTimes->{{3.5678630319943895`*^9, 3.5678630956269007`*^9}, { 3.5678632280087337`*^9, 3.567863228336334*^9}, {3.5678632621727934`*^9, 3.5678633509213495`*^9}, {3.5678644293824434`*^9, 3.567864451908883*^9}, { 3.567864923404111*^9, 3.56786494544695*^9}, {3.5678650143210707`*^9, 3.5678650845367947`*^9}, {3.567869231084096*^9, 3.567869278118179*^9}, { 3.5682778102931156`*^9, 3.5682778156907253`*^9}}], Cell[BoxData[ RowBox[{"(*", " ", RowBox[{"connected", " ", RowBox[{"pairs", ":", " ", RowBox[{ RowBox[{"distance", " ", "criteria"}], " ", "<", " ", RowBox[{"3.0", " ", "bohr"}]}]}]}], " ", "*)"}]], "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.5708811759041967`*^9, 3.570881176762198*^9}, 3.5708813006888156`*^9, 3.5708815630344763`*^9}], Cell[CellGroupData[{ Cell[BoxData[{ RowBox[{ RowBox[{"Dij", "=", RowBox[{"Table", "[", RowBox[{ RowBox[{"If", "[", RowBox[{ RowBox[{"i", "\[GreaterEqual]", "j"}], ",", RowBox[{"If", "[", RowBox[{ RowBox[{"(", RowBox[{ RowBox[{ RowBox[{"dc", "[", RowBox[{"[", RowBox[{"i", ",", "j"}], "]"}], "]"}], "<", "3.0"}], " ", "||", RowBox[{"(", RowBox[{ RowBox[{ RowBox[{"u", "[", RowBox[{"[", "i", "]"}], "]"}], "\[Equal]", "\"\\""}], " ", "&&", " ", RowBox[{"j", "\[Equal]", "10"}], " ", "&&", " ", RowBox[{"i", "\[Equal]", " ", "17"}]}], ")"}]}], ")"}], ",", RowBox[{"dc", "[", RowBox[{"[", RowBox[{"i", ",", "j"}], "]"}], "]"}], ",", "0"}], "]"}], ",", "0"}], "]"}], ",", RowBox[{"{", RowBox[{"i", ",", "1", ",", "n"}], "}"}], ",", RowBox[{"{", RowBox[{"j", ",", "1", ",", "n"}], "}"}]}], "]"}]}], ";"}], "\[IndentingNewLine]", RowBox[{"MatrixForm", "[", "Dij", "]"}], "\[IndentingNewLine]"}], "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.5708811759041967`*^9, 3.570881176762198*^9}, 3.5708813006888156`*^9, 3.5708815630344763`*^9}], Cell[BoxData[ TagBox[ RowBox[{"(", "\[NoBreak]", GridBox[{ {"0.`", "0", "0", "0", "0", "0", "0", "0", "0", "0", "0", "0", "0", "0", "0", "0", "0", "0", "0", "0", "0", "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.874742222575698`", "0.`", "0", "0", "0", "0", "0", "0", "0", "0", "0", "0", "0", "0", "0", "0", "0", "0", "0", "0", "0", "0", "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.8688661030169453`", "0.`", "0", "0", "0", "0", "0", "0", "0", "0", "0", "0", "0", "0", "0", "0", "0", "0", "0", "0", "0", "0", "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.8916055970080325`", "0.`", "0", "0", "0", "0", "0", "0", "0", "0", "0", "0", "0", "0", "0", "0", "0", "0", "0", "0", "0", "0", "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.9049200972643083`", "0.`", "0", "0", "0", "0", "0", "0", "0", "0", "0", "0", "0", "0", "0", "0", "0", "0", "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.8755073287239097`", "0", "0", "0", "2.8888743920659468`", "0.`", "0", "0", "0", "0", "0", "0", "0", "0", "0", "0", "0", "0", "0", "0", "0", "0", "0", "0", "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.900574288278352`", "0", "0", "0.`", "0", "0", "0", "0", "0", "0", "0", "0", "0", "0", "0", "0", "0", "0", "0", "0", "0", "0", "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.8838884296089673`", "0", "0", "0.`", "0", "0", "0", "0", "0", "0", "0", "0", "0", "0", "0", "0", "0", "0", "0", "0", "0", "0", "0", "0", "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.871421712220323`", "0.`", "0", "0", "0", "0", "0", "0", "0", "0", "0", "0", "0", "0", "0", "0", "0", "0", "0", "0", "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.9171463448513877`", "0", "2.881843922039563`", "0.`", "0", "0", "0", "0", "0", "0", "0", "0", "0", "0", "0", "0", "0", "0", "0", "0", "0", "0", "0", "0", "0", "0", "0", "0", "0", "0", "0", "0", "0", "0", "0", "0", "0", "0", "0"}, {"0", "0", "0", "0", "0", "0", "0", "0", "0", "0", "0.`", "0", "0", "0", "0", "0", "0", "0", "0", "0", "0", "0", "0", "0", "0", "0", "0", "0", "0", "0", "0", "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.8686383019623913`", "0.`", "0", "0", "0", "0", "0", "0", "0", "0", "0", "0", "0", "0", "0", "0", "0", "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.8981682237900177`", "0", "0", "0", "2.8830221219060603`", "0", "0.`", "0", "0", "0", "0", "0", "0", "0", "0", "0", "0", "0", "0", "0", "0", "0", "0", "0", "0", "0", "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.8825904189711444`", "0", "0.`", "0", "0", "0", "0", "0", "0", "0", "0", "0", "0", "0", "0", "0", "0", "0", "0", "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.8835324018343034`", "0", "2.906960045330677`", "0", "0", "0.`", "0", "0", "0", "0", "0", "0", "0", "0", "0", "0", "0", "0", "0", "0", "0", "0", "0", "0", "0", "0", "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.8876905417468848`", "0.`", "0", "0", "0", "0", "0", "0", "0", "0", "0", "0", "0", "0", "0", "0", "0", "0", "0", "0", "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.901793493739497`", "0", "2.902732935627919`", "0.`", "0", "0", "0", "0", "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.0944746386843986`", "0", "0", "0", "0", "0", "0", "0", "0", "0", "0", "0", "0", "0", "0", "0", "0", "0.`", "0", "0", "0", "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.091719262765738`", "0", "0", "0", "0", "0", "0", "0", "0", "0", "0", "0", "0", "0", "0", "0", "0", "0", "0.`", "0", "0", "0", "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.094640016465126`", "0", "0", "0", "0", "0", "0", "0", "0", "0", "0", "0", "0", "0", "0", "0", "0", "0", "0.`", "0", "0", "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.0922467330591488`", "0", "0", "0", "0", "0", "0", "0", "0", "0", "0", "0", "0", "0", "0", "0", "0", "0", "0", "0.`", "0", "0", "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.1030833583814874`", "0", "0", "0", "0", "0", "0", "0", "0", "0", "0", "0", "0", "0", "0", "0", "0", "0", "0", "0.`", "0", "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.0956447894267916`", "0", "0", "0", "0", "0", "0", "0", "0", "0", "0", "0", "0", "0", "0", "0", "0", "0", "0", "0", "0.`", "0", "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.113927780798639`", "0", "0", "0", "0", "0", "0", "0", "0", "0", "0", "0", "0", "0", "0", "0", "0", "0", "0", "0", "0.`", "0", "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.114982487353441`", "0", "0", "0", "0", "0", "0", "0", "0", "0", "0", "0", "0", "0", "0", "0", "0", "0", "0", "0", "0.`", "0", "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.0919983776928115`", "0", "0", "0", "0", "0", "0", "0", "0", "0", "0", "0", "0", "0", "0", "0", "0", "0", "0", "0", "0.`", "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.0941148542843346`", "0", "0", "0", "0", "0", "0", "0", "0", "0", "0", "0", "0", "0", "0", "0", "0", "0", "0", "0", "0", "0.`", "0", "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.0934496871760104`", "0", "0", "0", "0", "0", "0", "0", "0", "0", "0", "0", "0", "0", "0", "0", "0", "0", "0", "0", "0.`", "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.095169308085036`", "0", "0", "0", "0", "0", "0", "0", "0", "0", "0", "0", "0", "0", "0", "0", "0", "0", "0", "0", "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.1140570085214314`", "0", "0", "0", "0", "0", "0", "0", "0", "0", "0", "0", "0", "0", "0", "0", "0", "0", "0", "0", "0", "0", "0", "0.`", "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.1143813099795725`", "0", "0", "0", "0", "0", "0", "0", "0", "0", "0", "0", "0", "0", "0", "0", "0", "0", "0", "0", "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.097103792541491`", "0", "0", "0", "0", "0", "0", "0", "0", "0", "0", "0", "0", "0", "0", "0", "0", "0", "0", "0", "0", "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.093489773741928`", "0", "0", "0", "0", "0", "0", "0", "0", "0", "0", "0", "0", "0", "0", "0", "0", "0", "0", "0", "0", "0", "0", "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.0929685884984224`", "0", "0", "0", "0", "0", "0", "0", "0", "0", "0", "0", "0", "0", "0", "0", "0", "0", "0", "0", "0", "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.0911967824286504`", "0", "0", "0", "0", "0", "0", "0", "0", "0", "0", "0", "0", "0", "0", "0", "0", "0", "0", "0", "0", "0", "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.114800125759182`", "0", "0", "0", "0", "0", "0", "0", "0", "0", "0", "0", "0", "0", "0", "0", "0", "0", "0", "0", "0", "0", "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.101260599781751`", "0", "0", "0", "0", "0", "0", "0", "0", "0", "0", "0", "0", "0", "0", "0", "0", "0", "0", "0", "0", "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.096030719146194`", "0", "0", "0", "0", "0", "0", "0", "0", "0", "0", "0", "0", "0", "0", "0", "0", "0", "0", "0", "0", "0", "0", "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.1161109221528265`", "0", "0", "0", "0", "0", "0", "0", "0", "0", "0", "0", "0", "0", "0", "0", "0", "0", "0", "0", "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.090077962310208`", "0", "0", "0", "0", "0", "0", "0", "0", "0", "0", "0", "0", "0", "0", "0", "0", "0", "0", "0", "0", "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.0875759586581473`", "0", "0", "0", "0", "0", "0", "0", "0", "0", "0", "0", "0", "0", "0", "0", "0", "0", "0", "0", "0", "0", "0", "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.0910285706230773`", "0", "0", "0", "0", "0", "0", "0", "0", "0", "0", "0", "0", "0", "0", "0", "0", "0", "0", "0", "0", "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.0881993892064843`", "0", "0", "0", "0", "0", "0", "0", "0", "0", "0", "0", "0", "0", "0", "0", "0", "0", "0", "0", "0", "0", "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.0891209386861984`", "0", "0", "0", "0", "0", "0", "0", "0", "0", "0", "0", "0", "0", "0", "0", "0", "0", "0", "0", "0", "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.087961669473753`", "0", "0", "0", "0", "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.5708872326169853`*^9}] }, Open ]], Cell[CellGroupData[{ Cell[BoxData[{ RowBox[{ RowBox[{ RowBox[{"nc", "=", "0"}], ";"}], " "}], "\[IndentingNewLine]", RowBox[{"For", "[", RowBox[{ RowBox[{"i", "=", "1"}], ",", RowBox[{"i", "<", RowBox[{"bc", "+", "1"}]}], ",", RowBox[{"i", "++"}], ",", RowBox[{"If", "[", RowBox[{ RowBox[{ RowBox[{"u", "[", RowBox[{"[", "i", "]"}], "]"}], "\[Equal]", "\"\\""}], ",", RowBox[{"nc", "=", RowBox[{"nc", "+", "1"}]}], ",", "nc"}], "]"}]}], "]"}], "\n", RowBox[{ RowBox[{"cnt", "=", RowBox[{"Table", "[", RowBox[{"0", ",", RowBox[{"{", RowBox[{"i", ",", "1", ",", "nc"}], "}"}]}], "]"}]}], ";"}], "\[IndentingNewLine]", RowBox[{ RowBox[{"pri", "=", "cnt"}], ";", " ", RowBox[{"sec", "=", "cnt"}], ";", RowBox[{"ter", "=", "cnt"}], ";", " ", RowBox[{"qua", "=", "cnt"}], ";"}], "\[IndentingNewLine]", "nc", "\n", RowBox[{ RowBox[{"For", "[", RowBox[{ RowBox[{"j", "=", "1"}], ",", RowBox[{"j", "<", RowBox[{"nc", "+", "1"}]}], ",", RowBox[{"j", "++"}], ",", "\[IndentingNewLine]", RowBox[{"For", "[", RowBox[{ RowBox[{"i", "=", RowBox[{"bc", "+", "1"}]}], ",", RowBox[{"i", "<", RowBox[{"n", "+", "1"}]}], ",", RowBox[{"i", "++"}], ",", RowBox[{"If", "[", " ", RowBox[{ RowBox[{ RowBox[{"Dij", "[", RowBox[{"[", RowBox[{"i", ",", "j"}], "]"}], "]"}], "\[NotEqual]", "0"}], " ", ",", RowBox[{ RowBox[{"cnt", "[", RowBox[{"[", "j", "]"}], "]"}], "=", RowBox[{ RowBox[{"cnt", "[", RowBox[{"[", "j", "]"}], "]"}], "+", "1"}]}], ",", "0"}], "]"}]}], "]"}]}], "]"}], ";"}], "\[IndentingNewLine]", RowBox[{"cnt", ";"}], "\n", RowBox[{"{", RowBox[{ "2", ",", "2", ",", "2", ",", "1", ",", "1", ",", "2", ",", "1", ",", "2", ",", "2", ",", "1", ",", "2", ",", "1", ",", "2", ",", "2", ",", "1", ",", "2", ",", "2"}], "}"}], "\[IndentingNewLine]", RowBox[{ RowBox[{ RowBox[{"n1", "=", "0"}], ";", " ", RowBox[{"n2", "=", "0"}], ";", " ", RowBox[{"n3", "=", "0"}], ";", " ", RowBox[{"n4", "=", "0"}], ";"}], "\[IndentingNewLine]"}], "\n", RowBox[{ RowBox[{"For", "[", RowBox[{ RowBox[{"i", "=", "1"}], ",", RowBox[{"i", "<", RowBox[{"nc", "+", "1"}]}], ",", RowBox[{"i", "++"}], ",", RowBox[{"If", "[", RowBox[{ RowBox[{ RowBox[{"cnt", "[", RowBox[{"[", "i", "]"}], "]"}], "\[Equal]", "3"}], ",", RowBox[{ RowBox[{"n1", "=", RowBox[{"n1", "+", "1"}]}], ";", RowBox[{ RowBox[{"pri", "[", RowBox[{"[", "n1", "]"}], "]"}], "=", "i"}]}], ",", RowBox[{"If", "[", RowBox[{ RowBox[{ RowBox[{"cnt", "[", RowBox[{"[", "i", "]"}], "]"}], "\[Equal]", "2"}], ",", RowBox[{ RowBox[{"n2", "=", RowBox[{"n2", "+", "1"}]}], ";", RowBox[{ RowBox[{"sec", "[", RowBox[{"[", "n2", "]"}], "]"}], "=", "i"}]}], ",", RowBox[{"If", "[", RowBox[{ RowBox[{ RowBox[{"cnt", "[", RowBox[{"[", "i", "]"}], "]"}], "\[Equal]", "1"}], ",", RowBox[{ RowBox[{"n3", "=", RowBox[{"n3", "+", "1"}]}], ";", RowBox[{ RowBox[{"ter", "[", RowBox[{"[", "n3", "]"}], "]"}], "=", "i"}]}], ",", RowBox[{"If", "[", RowBox[{ RowBox[{ RowBox[{"cnt", "[", RowBox[{"[", "i", "]"}], "]"}], "=", "0"}], ",", RowBox[{ RowBox[{"n4", "=", RowBox[{"n4", "+", "1"}]}], ";", RowBox[{ RowBox[{"qua", "[", RowBox[{"[", "n4", "]"}], "]"}], "=", "i"}]}]}], "]"}]}], "]"}]}], "]"}]}], "]"}]}], "]"}], ";"}], "\[IndentingNewLine]", RowBox[{"n1", ";"}], "\[IndentingNewLine]", RowBox[{"n2", ";"}], "\[IndentingNewLine]", RowBox[{"n3", ";"}], "\[IndentingNewLine]", RowBox[{"n4", ";"}], "\[IndentingNewLine]", RowBox[{"pri", ";"}], "\[IndentingNewLine]", RowBox[{"sec", ";"}], "\[IndentingNewLine]", RowBox[{"ter", ";"}], "\[IndentingNewLine]", RowBox[{"qua", ";"}], "\n", RowBox[{"For", " ", "[", RowBox[{ RowBox[{"i", "=", "1"}], ",", " ", RowBox[{"i", "<", RowBox[{"nc", "+", "1"}]}], ",", RowBox[{"i", "++"}], ",", RowBox[{"If", "[", RowBox[{ RowBox[{ RowBox[{"sec", "[", RowBox[{"[", "i", "]"}], "]"}], "\[NotEqual]", "0"}], ",", RowBox[{ RowBox[{"u2", "[", RowBox[{"[", RowBox[{"sec", "[", RowBox[{"[", "i", "]"}], "]"}], "]"}], "]"}], "=", "0.2525"}]}], "]"}]}], "]"}], "\[IndentingNewLine]", RowBox[{"For", " ", "[", RowBox[{ RowBox[{"i", "=", "1"}], ",", " ", RowBox[{"i", "<", RowBox[{"nc", "+", "1"}]}], ",", RowBox[{"i", "++"}], ",", RowBox[{"If", "[", RowBox[{ RowBox[{ RowBox[{"ter", "[", RowBox[{"[", "i", "]"}], "]"}], "\[NotEqual]", "0"}], ",", RowBox[{ RowBox[{"u2", "[", RowBox[{"[", RowBox[{"ter", "[", RowBox[{"[", "i", "]"}], "]"}], "]"}], "]"}], "=", "0.2591"}]}], "]"}]}], "]"}], "\[IndentingNewLine]"}], "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.5708811759041967`*^9, 3.570881176762198*^9}, 3.5708813006888156`*^9, 3.5708815630344763`*^9, { 3.5708870380690436`*^9, 3.570887062888687*^9}, {3.5708871604200583`*^9, 3.5708871888433084`*^9}, {3.5708872886210833`*^9, 3.5708872892294846`*^9}}], Cell[BoxData["17"], "Output", CellChangeTimes->{3.5708872326481857`*^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", "<", "i"}], ",", 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}}], Cell[BoxData[ RowBox[{"{", RowBox[{ "0.2525`", ",", "0.2525`", ",", "0.2525`", ",", "0.2591`", ",", "0.2591`", ",", "0.2525`", ",", "0.2591`", ",", "0.2525`", ",", "0.2525`", ",", "0.2591`", ",", "0.2525`", ",", "0.2591`", ",", "0.2525`", ",", "0.2525`", ",", "0.2591`", ",", "0.2525`", ",", "0.2525`", ",", "0.5693`", ",", "0.5693`", ",", "0.5693`", ",", "0.5693`", ",", "0.5693`", ",", "0.5693`", ",", "0.5693`", ",", "0.5693`", ",", "0.5693`", ",", "0.5693`", ",", "0.5693`", ",", "0.5693`", ",", "0.5693`", ",", "0.5693`", ",", "0.5693`", ",", "0.5693`", ",", "0.5693`", ",", "0.5693`", ",", "0.5693`", ",", "0.5693`", ",", "0.5693`", ",", "0.5693`", ",", "0.5693`", ",", "0.5693`", ",", "0.5693`", ",", "0.5693`", ",", "0.5693`", ",", "0.5693`"}], "}"}]], "Output", CellChangeTimes->{3.570887232679385*^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["70.61661320987865`"], "Output", CellChangeTimes->{3.570887232726186*^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["589.2911567044464`"], "Output", CellChangeTimes->{3.5708872327417855`*^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["659.9077699143251`"], "Output", CellChangeTimes->{3.5708872327573853`*^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["38.777737307430286`"], "Output", CellChangeTimes->{3.5708872327729855`*^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["31.838875902448365`"], "Output", CellChangeTimes->{3.5708872327885857`*^9}] }, Open ]], Cell[BoxData[""], "Input", CellChangeTimes->{{3.5708747588485255`*^9, 3.5708748947559643`*^9}, { 3.57087537618841*^9, 3.5708753935356407`*^9}, {3.570875456871752*^9, 3.570875459601756*^9}, 3.570875514513853*^9, 3.570875547819911*^9, { 3.57087562684965*^9, 3.57087567258893*^9}, {3.5708758172323847`*^9, 3.5708758372004194`*^9}, {3.570876050749195*^9, 3.570876051107995*^9}, { 3.5708762095262737`*^9, 3.570876240055527*^9}, {3.570876291722818*^9, 3.5708762923780193`*^9}, {3.5708796204410644`*^9, 3.5708796215018663`*^9}, {3.5708812748551702`*^9, 3.5708812870075912`*^9}}], Cell[BoxData[ RowBox[{"\[IndentingNewLine]", RowBox[{ RowBox[{ RowBox[{"Mij", "=", RowBox[{"Prepend", "[", RowBox[{"Qij", ",", "u"}], "]"}]}], ";"}], "\[IndentingNewLine]", RowBox[{ RowBox[{"Oij", "=", RowBox[{"Transpose", "[", "Mij", "]"}]}], ";"}], "\[IndentingNewLine]", RowBox[{ RowBox[{"Pij", "=", RowBox[{"Prepend", "[", RowBox[{"Oij", ",", RowBox[{"Prepend", "[", RowBox[{"u", ",", "\"\< \>\""}], "]"}]}], "]"}]}], ";"}]}]}]], "Input", CellChangeTimes->{{3.568045828002715*^9, 3.56804588761042*^9}, 3.5680459828797874`*^9, {3.568046033938677*^9, 3.5680460518787084`*^9}, { 3.568046989190755*^9, 3.5680470284404235`*^9}, {3.568047061028881*^9, 3.568047085567724*^9}, {3.5680471562982483`*^9, 3.568047169199471*^9}, { 3.568047223393966*^9, 3.568047364059413*^9}, {3.568047417286707*^9, 3.5680474225127163`*^9}, {3.5680474583459787`*^9, 3.568047487861231*^9}, { 3.5680475345521126`*^9, 3.5680475468605347`*^9}, {3.5680479168775845`*^9, 3.5680479311516094`*^9}, {3.568048066918648*^9, 3.568048067667449*^9}, { 3.5680483816336*^9, 3.5680483930216208`*^9}, {3.568048424159275*^9, 3.568048450211321*^9}, {3.5680486326224413`*^9, 3.5680486370996494`*^9}, { 3.5680487358166227`*^9, 3.5680487967191296`*^9}, 3.568048834377596*^9, 3.568048984418659*^9, {3.5680490255559316`*^9, 3.5680490790796256`*^9}, { 3.5680491274553103`*^9, 3.5680491280949116`*^9}, {3.5680491782333994`*^9, 3.568049231944294*^9}, {3.568049361533722*^9, 3.5680493691933355`*^9}, { 3.568049422171028*^9, 3.568049427490638*^9}, {3.568049476427923*^9, 3.5680495489368505`*^9}, {3.568049620634577*^9, 3.5680496274361887`*^9}, { 3.5680496655314555`*^9, 3.568049693876705*^9}, 3.568049746573598*^9, { 3.568049846460573*^9, 3.568049932759925*^9}, {3.568050009059659*^9, 3.5680500167348723`*^9}, {3.5680501572755194`*^9, 3.568050179911159*^9}, 3.5681087021497335`*^9}], Cell[CellGroupData[{ Cell[BoxData[ RowBox[{"MatrixForm", "[", "Pij", "]"}]], "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.5681087223049684`*^9}, 3.568114284401138*^9, 3.5681220092695055`*^9, 3.5693411655535583`*^9, 3.5693418217687106`*^9, { 3.570340755052903*^9, 3.5703407609185133`*^9}, 3.570342272888769*^9, { 3.5703428806034365`*^9, 3.5703428850182447`*^9}}], Cell[BoxData[ TagBox[ RowBox[{"(", "\[NoBreak]", GridBox[{ {"\<\" \"\>", "\<\"C\"\>", "\<\"C\"\>", "\<\"C\"\>", "\<\"C\"\>", "\<\"C\ \"\>", "\<\"C\"\>", "\<\"C\"\>", "\<\"C\"\>", "\<\"C\"\>", "\<\"C\"\>", \ "\<\"C\"\>", "\<\"C\"\>", "\<\"C\"\>", "\<\"C\"\>", "\<\"C\"\>", "\<\"C\"\>", \ "\<\"C\"\>", "\<\"H\"\>", "\<\"H\"\>", "\<\"H\"\>", "\<\"H\"\>", "\<\"H\"\>", \ "\<\"H\"\>", "\<\"H\"\>", "\<\"H\"\>", "\<\"H\"\>", "\<\"H\"\>", "\<\"H\"\>", \ "\<\"H\"\>", "\<\"H\"\>", "\<\"H\"\>", "\<\"H\"\>", "\<\"H\"\>", "\<\"H\"\>", \ "\<\"H\"\>", "\<\"H\"\>", "\<\"H\"\>", "\<\"H\"\>", "\<\"H\"\>", "\<\"H\"\>", \ "\<\"H\"\>", "\<\"H\"\>", "\<\"H\"\>", "\<\"H\"\>", "\<\"H\"\>"}, {"\<\"C\"\>", "0", "\<\" \"\>", "\<\" \"\>", "\<\" \"\>", "\<\" \"\>", "\<\" \"\>", "\ \<\" \"\>", "\<\" \"\>", "\<\" \"\>", "\<\" \"\>", "\<\" \"\>", "\<\" \"\>", \ "\<\" \"\>", "\<\" \"\>", "\<\" \"\>", "\<\" \"\>", "\<\" \"\>", "\<\" \"\>", \ "\<\" \"\>", "\<\" \"\>", "\<\" \"\>", "\<\" \"\>", "\<\" \"\>", "\<\" \"\>", \ "\<\" \"\>", "\<\" \"\>", "\<\" \"\>", "\<\" \"\>", "\<\" \"\>", "\<\" \"\>", \ "\<\" \"\>", "\<\" \"\>", "\<\" \"\>", "\<\" \"\>", "\<\" \"\>", "\<\" \"\>", \ "\<\" \"\>", "\<\" \"\>", "\<\" \"\>", "\<\" \"\>", "\<\" \"\>", "\<\" \"\>", \ "\<\" \"\>", "\<\" \"\>", "\<\" \"\>"}, {"\<\"C\"\>", "1.184871111287849`", "0", "\<\" \"\>", "\<\" \"\>", "\<\" \"\>", "\<\" \"\>", "\<\" \"\>", "\ \<\" \"\>", "\<\" \"\>", "\<\" \"\>", "\<\" \"\>", "\<\" \"\>", "\<\" \"\>", \ "\<\" \"\>", "\<\" \"\>", "\<\" \"\>", "\<\" \"\>", "\<\" \"\>", "\<\" \"\>", \ "\<\" \"\>", "\<\" \"\>", "\<\" \"\>", "\<\" \"\>", "\<\" \"\>", "\<\" \"\>", \ "\<\" \"\>", "\<\" \"\>", "\<\" \"\>", "\<\" \"\>", "\<\" \"\>", "\<\" \"\>", \ "\<\" \"\>", "\<\" \"\>", "\<\" \"\>", "\<\" \"\>", "\<\" \"\>", "\<\" \"\>", \ "\<\" \"\>", "\<\" \"\>", "\<\" \"\>", "\<\" \"\>", "\<\" \"\>", "\<\" \"\>", \ "\<\" \"\>", "\<\" \"\>"}, {"\<\"C\"\>", "0", "1.1819330515084727`", "0", "\<\" \"\>", "\<\" \"\>", "\<\" \"\>", "\<\" \"\>", "\<\" \"\>", "\ \<\" \"\>", "\<\" \"\>", "\<\" \"\>", "\<\" \"\>", "\<\" \"\>", "\<\" \"\>", \ "\<\" \"\>", "\<\" \"\>", "\<\" \"\>", "\<\" \"\>", "\<\" \"\>", "\<\" \"\>", \ "\<\" \"\>", "\<\" \"\>", "\<\" \"\>", "\<\" \"\>", "\<\" \"\>", "\<\" \"\>", \ "\<\" \"\>", "\<\" \"\>", "\<\" \"\>", "\<\" \"\>", "\<\" \"\>", "\<\" \"\>", \ "\<\" \"\>", "\<\" \"\>", "\<\" \"\>", "\<\" \"\>", "\<\" \"\>", "\<\" \"\>", \ "\<\" \"\>", "\<\" \"\>", "\<\" \"\>", "\<\" \"\>", "\<\" \"\>", "\<\" \"\>", \ "\<\" \"\>"}, {"\<\"C\"\>", "0", "0", "1.1900027985040162`", "0", "\<\" \"\>", "\<\" \"\>", "\<\" \"\>", "\<\" \"\>", "\<\" \"\>", "\ \<\" \"\>", "\<\" \"\>", "\<\" \"\>", "\<\" \"\>", "\<\" \"\>", "\<\" \"\>", \ "\<\" \"\>", "\<\" \"\>", "\<\" \"\>", "\<\" \"\>", "\<\" \"\>", "\<\" \"\>", \ "\<\" \"\>", "\<\" \"\>", "\<\" \"\>", "\<\" \"\>", "\<\" \"\>", "\<\" \"\>", \ "\<\" \"\>", "\<\" \"\>", "\<\" \"\>", "\<\" \"\>", "\<\" \"\>", "\<\" \"\>", \ "\<\" \"\>", "\<\" \"\>", "\<\" \"\>", "\<\" \"\>", "\<\" \"\>", "\<\" \"\>", \ "\<\" \"\>", "\<\" \"\>", "\<\" \"\>", "\<\" \"\>", "\<\" \"\>", "\<\" \"\>"}, {"\<\"C\"\>", "0", "0", "0", "1.193360048632154`", "0", "\<\" \"\>", "\<\" \"\>", "\<\" \"\>", "\<\" \"\>", "\<\" \"\>", "\ \<\" \"\>", "\<\" \"\>", "\<\" \"\>", "\<\" \"\>", "\<\" \"\>", "\<\" \"\>", \ "\<\" \"\>", "\<\" \"\>", "\<\" \"\>", "\<\" \"\>", "\<\" \"\>", "\<\" \"\>", \ "\<\" \"\>", "\<\" \"\>", "\<\" \"\>", "\<\" \"\>", "\<\" \"\>", "\<\" \"\>", \ "\<\" \"\>", "\<\" \"\>", "\<\" \"\>", "\<\" \"\>", "\<\" \"\>", "\<\" \"\>", \ "\<\" \"\>", "\<\" \"\>", "\<\" \"\>", "\<\" \"\>", "\<\" \"\>", "\<\" \"\>", \ "\<\" \"\>", "\<\" \"\>", "\<\" \"\>", "\<\" \"\>", "\<\" \"\>"}, {"\<\"C\"\>", "1.185253664361955`", "0", "0", "0", "1.1886371960329734`", "0", "\<\" \"\>", "\<\" \"\>", "\<\" \"\>", "\<\" \"\>", "\<\" \"\>", \ "\<\" \"\>", "\<\" \"\>", "\<\" \"\>", "\<\" \"\>", "\<\" \"\>", "\<\" \"\>", \ "\<\" \"\>", "\<\" \"\>", "\<\" \"\>", "\<\" \"\>", "\<\" \"\>", "\<\" \"\>", \ "\<\" \"\>", "\<\" \"\>", "\<\" \"\>", "\<\" \"\>", "\<\" \"\>", "\<\" \"\>", \ "\<\" \"\>", "\<\" \"\>", "\<\" \"\>", "\<\" \"\>", "\<\" \"\>", "\<\" \"\>", \ "\<\" \"\>", "\<\" \"\>", "\<\" \"\>", "\<\" \"\>", "\<\" \"\>", "\<\" \"\>", \ "\<\" \"\>", "\<\" \"\>", "\<\" \"\>", "\<\" \"\>"}, {"\<\"C\"\>", "0", "0", "0", "1.191187144139176`", "0", "0", "0", "\<\" \"\>", "\<\" \"\>", "\<\" \"\>", "\<\" \"\>", "\<\" \"\>", "\ \<\" \"\>", "\<\" \"\>", "\<\" \"\>", "\<\" \"\>", "\<\" \"\>", "\<\" \"\>", \ "\<\" \"\>", "\<\" \"\>", "\<\" \"\>", "\<\" \"\>", "\<\" \"\>", "\<\" \"\>", \ "\<\" \"\>", "\<\" \"\>", "\<\" \"\>", "\<\" \"\>", "\<\" \"\>", "\<\" \"\>", \ "\<\" \"\>", "\<\" \"\>", "\<\" \"\>", "\<\" \"\>", "\<\" \"\>", "\<\" \"\>", \ "\<\" \"\>", "\<\" \"\>", "\<\" \"\>", "\<\" \"\>", "\<\" \"\>", "\<\" \"\>", \ "\<\" \"\>", "\<\" \"\>", "\<\" \"\>"}, {"\<\"C\"\>", "0", "0", "0", "0", "1.1861442148044836`", "0", "0", "0", "\<\" \"\>", "\<\" \"\>", "\<\" \"\>", "\<\" \"\>", "\<\" \"\>", "\ \<\" \"\>", "\<\" \"\>", "\<\" \"\>", "\<\" \"\>", "\<\" \"\>", "\<\" \"\>", \ "\<\" \"\>", "\<\" \"\>", "\<\" \"\>", "\<\" \"\>", "\<\" \"\>", "\<\" \"\>", \ "\<\" \"\>", "\<\" \"\>", "\<\" \"\>", "\<\" \"\>", "\<\" \"\>", "\<\" \"\>", \ "\<\" \"\>", "\<\" \"\>", "\<\" \"\>", "\<\" \"\>", "\<\" \"\>", "\<\" \"\>", \ "\<\" \"\>", "\<\" \"\>", "\<\" \"\>", "\<\" \"\>", "\<\" \"\>", "\<\" \"\>", \ "\<\" \"\>", "\<\" \"\>"}, {"\<\"C\"\>", "0", "0", "0", "0", "0", "0", "0", "1.1832108561101615`", "0", "\<\" \"\>", "\<\" \"\>", "\<\" \"\>", "\<\" \"\>", "\<\" \"\>", "\ \<\" \"\>", "\<\" \"\>", "\<\" \"\>", "\<\" \"\>", "\<\" \"\>", "\<\" \"\>", \ "\<\" \"\>", "\<\" \"\>", "\<\" \"\>", "\<\" \"\>", "\<\" \"\>", "\<\" \"\>", \ "\<\" \"\>", "\<\" \"\>", "\<\" \"\>", "\<\" \"\>", "\<\" \"\>", "\<\" \"\>", \ "\<\" \"\>", "\<\" \"\>", "\<\" \"\>", "\<\" \"\>", "\<\" \"\>", "\<\" \"\>", \ "\<\" \"\>", "\<\" \"\>", "\<\" \"\>", "\<\" \"\>", "\<\" \"\>", "\<\" \"\>", \ "\<\" \"\>"}, {"\<\"C\"\>", "0", "0", "0", "0", "0", "0", "1.1994731724256937`", "0", "1.1851219610197814`", "0", "\<\" \"\>", "\<\" \"\>", "\<\" \"\>", "\<\" \"\>", "\<\" \"\>", "\ \<\" \"\>", "\<\" \"\>", "\<\" \"\>", "\<\" \"\>", "\<\" \"\>", "\<\" \"\>", \ "\<\" \"\>", "\<\" \"\>", "\<\" \"\>", "\<\" \"\>", "\<\" \"\>", "\<\" \"\>", \ "\<\" \"\>", "\<\" \"\>", "\<\" \"\>", "\<\" \"\>", "\<\" \"\>", "\<\" \"\>", \ "\<\" \"\>", "\<\" \"\>", "\<\" \"\>", "\<\" \"\>", "\<\" \"\>", "\<\" \"\>", \ "\<\" \"\>", "\<\" \"\>", "\<\" \"\>", "\<\" \"\>", "\<\" \"\>", "\<\" \"\>"}, {"\<\"C\"\>", "0", "0", "0", "0", "0", "0", "0", "0", "0", "0", "0", "\<\" \"\>", "\<\" \"\>", "\<\" \"\>", "\<\" \"\>", "\<\" \"\>", "\ \<\" \"\>", "\<\" \"\>", "\<\" \"\>", "\<\" \"\>", "\<\" \"\>", "\<\" \"\>", \ "\<\" \"\>", "\<\" \"\>", "\<\" \"\>", "\<\" \"\>", "\<\" \"\>", "\<\" \"\>", \ "\<\" \"\>", "\<\" \"\>", "\<\" \"\>", "\<\" \"\>", "\<\" \"\>", "\<\" \"\>", \ "\<\" \"\>", "\<\" \"\>", "\<\" \"\>", "\<\" \"\>", "\<\" \"\>", "\<\" \"\>", \ "\<\" \"\>", "\<\" \"\>", "\<\" \"\>", "\<\" \"\>", "\<\" \"\>"}, {"\<\"C\"\>", "0", "0", "0", "0", "0", "0", "0", "0", "0", "0", "1.1785191509811956`", "0", "\<\" \"\>", "\<\" \"\>", "\<\" \"\>", "\<\" \"\>", "\<\" \"\>", "\ \<\" \"\>", "\<\" \"\>", "\<\" \"\>", "\<\" \"\>", "\<\" \"\>", "\<\" \"\>", \ "\<\" \"\>", "\<\" \"\>", "\<\" \"\>", "\<\" \"\>", "\<\" \"\>", "\<\" \"\>", \ "\<\" \"\>", "\<\" \"\>", "\<\" \"\>", "\<\" \"\>", "\<\" \"\>", "\<\" \"\>", \ "\<\" \"\>", "\<\" \"\>", "\<\" \"\>", "\<\" \"\>", "\<\" \"\>", "\<\" \"\>", \ "\<\" \"\>", "\<\" \"\>", "\<\" \"\>", "\<\" \"\>"}, {"\<\"C\"\>", "0", "0", "0", "0", "0", "0", "1.1932841118950088`", "0", "0", "0", "1.1890110609530302`", "0", "0", "\<\" \"\>", "\<\" \"\>", "\<\" \"\>", "\<\" \"\>", "\<\" \"\>", "\ \<\" \"\>", "\<\" \"\>", "\<\" \"\>", "\<\" \"\>", "\<\" \"\>", "\<\" \"\>", \ "\<\" \"\>", "\<\" \"\>", "\<\" \"\>", "\<\" \"\>", "\<\" \"\>", "\<\" \"\>", \ "\<\" \"\>", "\<\" \"\>", "\<\" \"\>", "\<\" \"\>", "\<\" \"\>", "\<\" \"\>", \ "\<\" \"\>", "\<\" \"\>", "\<\" \"\>", "\<\" \"\>", "\<\" \"\>", "\<\" \"\>", \ "\<\" \"\>", "\<\" \"\>", "\<\" \"\>"}, {"\<\"C\"\>", "0", "0", "0", "0", "0", "0", "0", "0", "0", "0", "0", "1.1854952094855722`", "0", "0", "\<\" \"\>", "\<\" \"\>", "\<\" \"\>", "\<\" \"\>", "\<\" \"\>", "\ \<\" \"\>", "\<\" \"\>", "\<\" \"\>", "\<\" \"\>", "\<\" \"\>", "\<\" \"\>", \ "\<\" \"\>", "\<\" \"\>", "\<\" \"\>", "\<\" \"\>", "\<\" \"\>", "\<\" \"\>", \ "\<\" \"\>", "\<\" \"\>", "\<\" \"\>", "\<\" \"\>", "\<\" \"\>", "\<\" \"\>", \ "\<\" \"\>", "\<\" \"\>", "\<\" \"\>", "\<\" \"\>", "\<\" \"\>", "\<\" \"\>", \ "\<\" \"\>", "\<\" \"\>"}, {"\<\"C\"\>", "0", "0", "0", "0", "0", "0", "0", "0", "0", "1.1826662009171516`", "0", "1.1943800226653385`", "0", "0", "0", "\<\" \"\>", "\<\" \"\>", "\<\" \"\>", "\<\" \"\>", "\<\" \"\>", "\ \<\" \"\>", "\<\" \"\>", "\<\" \"\>", "\<\" \"\>", "\<\" \"\>", "\<\" \"\>", \ "\<\" \"\>", "\<\" \"\>", "\<\" \"\>", "\<\" \"\>", "\<\" \"\>", "\<\" \"\>", \ "\<\" \"\>", "\<\" \"\>", "\<\" \"\>", "\<\" \"\>", "\<\" \"\>", "\<\" \"\>", \ "\<\" \"\>", "\<\" \"\>", "\<\" \"\>", "\<\" \"\>", "\<\" \"\>", "\<\" \"\>", \ "\<\" \"\>"}, {"\<\"C\"\>", "0", "0", "0", "0", "0", "0", "0", "0", "0", "0", "0", "0", "0", "0", "1.1880452708734424`", "0", "\<\" \"\>", "\<\" \"\>", "\<\" \"\>", "\<\" \"\>", "\<\" \"\>", "\ \<\" \"\>", "\<\" \"\>", "\<\" \"\>", "\<\" \"\>", "\<\" \"\>", "\<\" \"\>", \ "\<\" \"\>", "\<\" \"\>", "\<\" \"\>", "\<\" \"\>", "\<\" \"\>", "\<\" \"\>", \ "\<\" \"\>", "\<\" \"\>", "\<\" \"\>", "\<\" \"\>", "\<\" \"\>", "\<\" \"\>", \ "\<\" \"\>", "\<\" \"\>", "\<\" \"\>", "\<\" \"\>", "\<\" \"\>", "\<\" \"\>"}, {"\<\"C\"\>", "0", "0", "0", "0", "0", "0", "0", "0", "0", "0", "0", "0", "0", "1.1983967468697485`", "0", "1.1988664678139596`", "0", "\<\" \"\>", "\<\" \"\>", "\<\" \"\>", "\<\" \"\>", "\<\" \"\>", "\ \<\" \"\>", "\<\" \"\>", "\<\" \"\>", "\<\" \"\>", "\<\" \"\>", "\<\" \"\>", \ "\<\" \"\>", "\<\" \"\>", "\<\" \"\>", "\<\" \"\>", "\<\" \"\>", "\<\" \"\>", \ "\<\" \"\>", "\<\" \"\>", "\<\" \"\>", "\<\" \"\>", "\<\" \"\>", "\<\" \"\>", \ "\<\" \"\>", "\<\" \"\>", "\<\" \"\>", "\<\" \"\>", "\<\" \"\>"}, {"\<\"H\"\>", "1.2726746386843986`", "0", "0", "0", "0", "0", "0", "0", "0", "0", "0", "0", "0", "0", "0", "0", "0", "0", "\<\" \"\>", "\<\" \"\>", "\<\" \"\>", "\<\" \"\>", "\<\" \"\>", "\ \<\" \"\>", "\<\" \"\>", "\<\" \"\>", "\<\" \"\>", "\<\" \"\>", "\<\" \"\>", \ "\<\" \"\>", "\<\" \"\>", "\<\" \"\>", "\<\" \"\>", "\<\" \"\>", "\<\" \"\>", \ "\<\" \"\>", "\<\" \"\>", "\<\" \"\>", "\<\" \"\>", "\<\" \"\>", "\<\" \"\>", \ "\<\" \"\>", "\<\" \"\>", "\<\" \"\>", "\<\" \"\>"}, {"\<\"H\"\>", "1.2699192627657379`", "0", "0", "0", "0", "0", "0", "0", "0", "0", "0", "0", "0", "0", "0", "0", "0", "0", "0", "\<\" \"\>", "\<\" \"\>", "\<\" \"\>", "\<\" \"\>", "\<\" \"\>", "\ \<\" \"\>", "\<\" \"\>", "\<\" \"\>", "\<\" \"\>", "\<\" \"\>", "\<\" \"\>", \ "\<\" \"\>", "\<\" \"\>", "\<\" \"\>", "\<\" \"\>", "\<\" \"\>", "\<\" \"\>", \ "\<\" \"\>", "\<\" \"\>", "\<\" \"\>", "\<\" \"\>", "\<\" \"\>", "\<\" \"\>", \ "\<\" \"\>", "\<\" \"\>", "\<\" \"\>"}, {"\<\"H\"\>", "0", "1.2728400164651261`", "0", "0", "0", "0", "0", "0", "0", "0", "0", "0", "0", "0", "0", "0", "0", "0", "0", "0", "\<\" \"\>", "\<\" \"\>", "\<\" \"\>", "\<\" \"\>", "\<\" \"\>", "\ \<\" \"\>", "\<\" \"\>", "\<\" \"\>", "\<\" \"\>", "\<\" \"\>", "\<\" \"\>", \ "\<\" \"\>", "\<\" \"\>", "\<\" \"\>", "\<\" \"\>", "\<\" \"\>", "\<\" \"\>", \ "\<\" \"\>", "\<\" \"\>", "\<\" \"\>", "\<\" \"\>", "\<\" \"\>", "\<\" \"\>", \ "\<\" \"\>", "\<\" \"\>"}, {"\<\"H\"\>", "0", "1.2704467330591487`", "0", "0", "0", "0", "0", "0", "0", "0", "0", "0", "0", "0", "0", "0", "0", "0", "0", "0", "0", "\<\" \"\>", "\<\" \"\>", "\<\" \"\>", "\<\" \"\>", "\<\" \"\>", "\ \<\" \"\>", "\<\" \"\>", "\<\" \"\>", "\<\" \"\>", "\<\" \"\>", "\<\" \"\>", \ "\<\" \"\>", "\<\" \"\>", "\<\" \"\>", "\<\" \"\>", "\<\" \"\>", "\<\" \"\>", \ "\<\" \"\>", "\<\" \"\>", "\<\" \"\>", "\<\" \"\>", "\<\" \"\>", "\<\" \"\>", \ "\<\" \"\>"}, {"\<\"H\"\>", "0", "0", "1.2812833583814873`", "0", "0", "0", "0", "0", "0", "0", "0", "0", "0", "0", "0", "0", "0", "0", "0", "0", "0", "0", "\<\" \"\>", "\<\" \"\>", "\<\" \"\>", "\<\" \"\>", "\<\" \"\>", "\ \<\" \"\>", "\<\" \"\>", "\<\" \"\>", "\<\" \"\>", "\<\" \"\>", "\<\" \"\>", \ "\<\" \"\>", "\<\" \"\>", "\<\" \"\>", "\<\" \"\>", "\<\" \"\>", "\<\" \"\>", \ "\<\" \"\>", "\<\" \"\>", "\<\" \"\>", "\<\" \"\>", "\<\" \"\>", "\<\" \"\>"}, {"\<\"H\"\>", "0", "0", "1.2738447894267915`", "0", "0", "0", "0", "0", "0", "0", "0", "0", "0", "0", "0", "0", "0", "0", "0", "0", "0", "0", "0", "\<\" \"\>", "\<\" \"\>", "\<\" \"\>", "\<\" \"\>", "\<\" \"\>", "\ \<\" \"\>", "\<\" \"\>", "\<\" \"\>", "\<\" \"\>", "\<\" \"\>", "\<\" \"\>", \ "\<\" \"\>", "\<\" \"\>", "\<\" \"\>", "\<\" \"\>", "\<\" \"\>", "\<\" \"\>", \ "\<\" \"\>", "\<\" \"\>", "\<\" \"\>", "\<\" \"\>", "\<\" \"\>"}, {"\<\"H\"\>", "0", "0", "0", "1.2855277807986387`", "0", "0", "0", "0", "0", "0", "0", "0", "0", "0", "0", "0", "0", "0", "0", "0", "0", "0", "0", "0", "\<\" \"\>", "\<\" \"\>", "\<\" \"\>", "\<\" \"\>", "\<\" \ \"\>", "\<\" \"\>", "\<\" \"\>", "\<\" \"\>", "\<\" \"\>", "\<\" \"\>", "\<\" \ \"\>", "\<\" \"\>", "\<\" \"\>", "\<\" \"\>", "\<\" \"\>", "\<\" \"\>", "\<\" \ \"\>", "\<\" \"\>", "\<\" \"\>", "\<\" \"\>", "\<\" \"\>"}, {"\<\"H\"\>", "0", "0", "0", "0", "1.2865824873534408`", "0", "0", "0", "0", "0", "0", "0", "0", "0", "0", "0", "0", "0", "0", "0", "0", "0", "0", "0", "0", "\<\" \"\>", "\<\" \"\>", "\<\" \"\>", "\<\" \"\>", "\<\" \"\>", "\ \<\" \"\>", "\<\" \"\>", "\<\" \"\>", "\<\" \"\>", "\<\" \"\>", "\<\" \"\>", \ "\<\" \"\>", "\<\" \"\>", "\<\" \"\>", "\<\" \"\>", "\<\" \"\>", "\<\" \"\>", \ "\<\" \"\>", "\<\" \"\>", "\<\" \"\>"}, {"\<\"H\"\>", "0", "0", "0", "0", "0", "1.2701983776928114`", "0", "0", "0", "0", "0", "0", "0", "0", "0", "0", "0", "0", "0", "0", "0", "0", "0", "0", "0", "0", "\<\" \"\>", "\<\" \"\>", "\<\" \"\>", "\<\" \"\>", "\<\" \"\>", "\ \<\" \"\>", "\<\" \"\>", "\<\" \"\>", "\<\" \"\>", "\<\" \"\>", "\<\" \"\>", \ "\<\" \"\>", "\<\" \"\>", "\<\" \"\>", "\<\" \"\>", "\<\" \"\>", "\<\" \"\>", \ "\<\" \"\>", "\<\" \"\>"}, {"\<\"H\"\>", "0", "0", "0", "0", "0", "1.2723148542843346`", "0", "0", "0", "0", "0", "0", "0", "0", "0", "0", "0", "0", "0", "0", "0", "0", "0", "0", "0", "0", "0", "\<\" \"\>", "\<\" \"\>", "\<\" \"\>", "\<\" \"\>", "\<\" \"\>", "\ \<\" \"\>", "\<\" \"\>", "\<\" \"\>", "\<\" \"\>", "\<\" \"\>", "\<\" \"\>", \ "\<\" \"\>", "\<\" \"\>", "\<\" \"\>", "\<\" \"\>", "\<\" \"\>", "\<\" \"\>", \ "\<\" \"\>"}, {"\<\"H\"\>", "0", "0", "0", "0", "0", "0", "0", "1.2716496871760103`", "0", "0", "0", "0", "0", "0", "0", "0", "0", "0", "0", "0", "0", "0", "0", "0", "0", "0", "0", "0", "\<\" \"\>", "\<\" \"\>", "\<\" \"\>", "\<\" \"\>", "\<\" \"\>", "\ \<\" \"\>", "\<\" \"\>", "\<\" \"\>", "\<\" \"\>", "\<\" \"\>", "\<\" \"\>", \ "\<\" \"\>", "\<\" \"\>", "\<\" \"\>", "\<\" \"\>", "\<\" \"\>", "\<\" \"\>"}, {"\<\"H\"\>", "0", "0", "0", "0", "0", "0", "0", "1.273369308085036`", "0", "0", "0", "0", "0", "0", "0", "0", "0", "0", "0", "0", "0", "0", "0", "0", "0", "0", "0", "0", "0", "\<\" \"\>", "\<\" \"\>", "\<\" \"\>", "\<\" \"\>", "\<\" \"\>", "\ \<\" \"\>", "\<\" \"\>", "\<\" \"\>", "\<\" \"\>", "\<\" \"\>", "\<\" \"\>", \ "\<\" \"\>", "\<\" \"\>", "\<\" \"\>", "\<\" \"\>", "\<\" \"\>"}, {"\<\"H\"\>", "0", "0", "0", "0", "0", "0", "1.2856570085214312`", "0", "0", "0", "0", "0", "0", "0", "0", "0", "0", "0", "0", "0", "0", "0", "0", "0", "0", "0", "0", "0", "0", "0", "\<\" \"\>", "\<\" \"\>", "\<\" \"\>", "\<\" \"\>", "\<\" \"\>", "\ \<\" \"\>", "\<\" \"\>", "\<\" \"\>", "\<\" \"\>", "\<\" \"\>", "\<\" \"\>", \ "\<\" \"\>", "\<\" \"\>", "\<\" \"\>", "\<\" \"\>"}, {"\<\"H\"\>", "0", "0", "0", "0", "0", "0", "0", "0", "0", "1.2859813099795723`", "0", "0", "0", "0", "0", "0", "0", "0", "0", "0", "0", "0", "0", "0", "0", "0", "0", "0", "0", "0", "0", "\<\" \"\>", "\<\" \"\>", "\<\" \"\>", "\<\" \"\>", "\<\" \"\>", "\ \<\" \"\>", "\<\" \"\>", "\<\" \"\>", "\<\" \"\>", "\<\" \"\>", "\<\" \"\>", \ "\<\" \"\>", "\<\" \"\>", "\<\" \"\>"}, {"\<\"H\"\>", "0", "0", "0", "0", "0", "0", "0", "0", "1.2753037925414907`", "0", "0", "0", "0", "0", "0", "0", "0", "0", "0", "0", "0", "0", "0", "0", "0", "0", "0", "0", "0", "0", "0", "0", "\<\" \"\>", "\<\" \"\>", "\<\" \"\>", "\<\" \"\>", "\<\" \"\>", "\ \<\" \"\>", "\<\" \"\>", "\<\" \"\>", "\<\" \"\>", "\<\" \"\>", "\<\" \"\>", \ "\<\" \"\>", "\<\" \"\>"}, {"\<\"H\"\>", "0", "0", "0", "0", "0", "0", "0", "0", "1.2716897737419277`", "0", "0", "0", "0", "0", "0", "0", "0", "0", "0", "0", "0", "0", "0", "0", "0", "0", "0", "0", "0", "0", "0", "0", "0", "\<\" \"\>", "\<\" \"\>", "\<\" \"\>", "\<\" \"\>", "\<\" \"\>", "\ \<\" \"\>", "\<\" \"\>", "\<\" \"\>", "\<\" \"\>", "\<\" \"\>", "\<\" \"\>", \ "\<\" \"\>"}, {"\<\"H\"\>", "0", "0", "0", "0", "0", "0", "0", "0", "0", "0", "1.2711685884984223`", "0", "0", "0", "0", "0", "0", "0", "0", "0", "0", "0", "0", "0", "0", "0", "0", "0", "0", "0", "0", "0", "0", "0", "\<\" \"\>", "\<\" \"\>", "\<\" \"\>", "\<\" \"\>", "\<\" \"\>", "\ \<\" \"\>", "\<\" \"\>", "\<\" \"\>", "\<\" \"\>", "\<\" \"\>", "\<\" \"\>"}, {"\<\"H\"\>", "0", "0", "0", "0", "0", "0", "0", "0", "0", "0", "1.2693967824286503`", "0", "0", "0", "0", "0", "0", "0", "0", "0", "0", "0", "0", "0", "0", "0", "0", "0", "0", "0", "0", "0", "0", "0", "0", "\<\" \"\>", "\<\" \"\>", "\<\" \"\>", "\<\" \"\>", "\<\" \"\>", "\ \<\" \"\>", "\<\" \"\>", "\<\" \"\>", "\<\" \"\>", "\<\" \"\>"}, {"\<\"H\"\>", "0", "0", "0", "0", "0", "0", "0", "0", "0", "0", "0", "1.2864001257591817`", "0", "0", "0", "0", "0", "0", "0", "0", "0", "0", "0", "0", "0", "0", "0", "0", "0", "0", "0", "0", "0", "0", "0", "0", "\<\" \"\>", "\<\" \"\>", "\<\" \"\>", "\<\" \"\>", "\<\" \"\>", "\ \<\" \"\>", "\<\" \"\>", "\<\" \"\>", "\<\" \"\>"}, {"\<\"H\"\>", "0", "0", "0", "0", "0", "0", "0", "0", "0", "0", "0", "0", "1.2794605997817508`", "0", "0", "0", "0", "0", "0", "0", "0", "0", "0", "0", "0", "0", "0", "0", "0", "0", "0", "0", "0", "0", "0", "0", "0", "\<\" \"\>", "\<\" \"\>", "\<\" \"\>", "\<\" \"\>", "\<\" \"\>", "\ \<\" \"\>", "\<\" \"\>", "\<\" \"\>"}, {"\<\"H\"\>", "0", "0", "0", "0", "0", "0", "0", "0", "0", "0", "0", "0", "1.274230719146194`", "0", "0", "0", "0", "0", "0", "0", "0", "0", "0", "0", "0", "0", "0", "0", "0", "0", "0", "0", "0", "0", "0", "0", "0", "0", "\<\" \"\>", "\<\" \"\>", "\<\" \"\>", "\<\" \"\>", "\<\" \"\>", "\ \<\" \"\>", "\<\" \"\>"}, {"\<\"H\"\>", "0", "0", "0", "0", "0", "0", "0", "0", "0", "0", "0", "0", "0", "0", "1.2877109221528262`", "0", "0", "0", "0", "0", "0", "0", "0", "0", "0", "0", "0", "0", "0", "0", "0", "0", "0", "0", "0", "0", "0", "0", "0", "\<\" \"\>", "\<\" \"\>", "\<\" \"\>", "\<\" \"\>", "\<\" \"\>", "\ \<\" \"\>"}, {"\<\"H\"\>", "0", "0", "0", "0", "0", "0", "0", "0", "0", "0", "0", "0", "0", "1.2682779623102078`", "0", "0", "0", "0", "0", "0", "0", "0", "0", "0", "0", "0", "0", "0", "0", "0", "0", "0", "0", "0", "0", "0", "0", "0", "0", "0", "\<\" \"\>", "\<\" \"\>", "\<\" \"\>", "\<\" \"\>", "\<\" \"\>"}, {"\<\"H\"\>", "0", "0", "0", "0", "0", "0", "0", "0", "0", "0", "0", "0", "0", "1.2657759586581472`", "0", "0", "0", "0", "0", "0", "0", "0", "0", "0", "0", "0", "0", "0", "0", "0", "0", "0", "0", "0", "0", "0", "0", "0", "0", "0", "0", "\<\" \"\>", "\<\" \"\>", "\<\" \"\>", "\<\" \"\>"}, {"\<\"H\"\>", "0", "0", "0", "0", "0", "0", "0", "0", "0", "0", "0", "0", "0", "0", "0", "1.2692285706230773`", "0", "0", "0", "0", "0", "0", "0", "0", "0", "0", "0", "0", "0", "0", "0", "0", "0", "0", "0", "0", "0", "0", "0", "0", "0", "0", "\<\" \"\>", "\<\" \"\>", "\<\" \"\>"}, {"\<\"H\"\>", "0", "0", "0", "0", "0", "0", "0", "0", "0", "0", "0", "0", "0", "0", "0", "1.2663993892064842`", "0", "0", "0", "0", "0", "0", "0", "0", "0", "0", "0", "0", "0", "0", "0", "0", "0", "0", "0", "0", "0", "0", "0", "0", "0", "0", "0", "\<\" \"\>", "\<\" \"\>"}, {"\<\"H\"\>", "0", "0", "0", "0", "0", "0", "0", "0", "0", "0", "0", "0", "0", "0", "0", "0", "1.2673209386861983`", "0", "0", "0", "0", "0", "0", "0", "0", "0", "0", "0", "0", "0", "0", "0", "0", "0", "0", "0", "0", "0", "0", "0", "0", "0", "0", "0", "\<\" \"\>"}, {"\<\"H\"\>", "0", "0", "0", "0", "0", "0", "0", "0", "0", "0", "0", "0", "0", "0", "0", "0", "1.2661616694737527`", "0", "0", "0", "0", "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.5708872328197856`*^9}] }, Open ]], Cell[BoxData[ RowBox[{"(*", " ", RowBox[{"sigma", " ", "bond", " ", "cloud", " ", "radii"}], " ", "*)"}]], "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.5681087223049684`*^9}, {3.5681133837179556`*^9, 3.5681133888191648`*^9}}], Cell[BoxData[ RowBox[{"For", "[", RowBox[{ RowBox[{"i", "=", "2"}], ",", RowBox[{"i", "<", RowBox[{"n", "+", "2"}]}], ",", RowBox[{"i", "++"}], ",", "\[IndentingNewLine]", RowBox[{"For", "[", RowBox[{ RowBox[{"j", "=", "2"}], ",", RowBox[{"j", "\[LessEqual]", "i"}], ",", RowBox[{"j", "++"}], ",", "\[IndentingNewLine]", RowBox[{"If", "[", RowBox[{ RowBox[{"(", RowBox[{ RowBox[{ RowBox[{"Pij", "[", RowBox[{"[", RowBox[{"i", ",", "j"}], "]"}], "]"}], ">", "0"}], " ", "&&", " ", RowBox[{"(", " ", RowBox[{ RowBox[{ RowBox[{"u", "[", RowBox[{"[", RowBox[{"i", "-", "1"}], "]"}], "]"}], "\[Equal]", "\"\\""}], " ", "||", " ", RowBox[{ RowBox[{"u", "[", RowBox[{"[", RowBox[{"j", "-", "1"}], "]"}], "]"}], "\[Equal]", "\"\\""}]}], " ", ")"}]}], ")"}], " ", ",", RowBox[{"Print", "[", RowBox[{ RowBox[{"u", "[", RowBox[{"[", RowBox[{"i", "-", "1"}], "]"}], "]"}], ",", RowBox[{"i", "-", "1"}], ",", "\"\< \>\"", ",", RowBox[{"u", "[", RowBox[{"[", RowBox[{"j", "-", "1"}], "]"}], "]"}], ",", RowBox[{"j", "-", "1"}], ",", "\"\< \>\"", ",", RowBox[{"Extract", "[", RowBox[{"Pij", ",", RowBox[{"{", RowBox[{"i", ",", "j"}], "}"}]}], "]"}]}], "]"}]}], "]"}]}], "]"}]}], "]"}]], "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}}], Cell[BoxData[{ RowBox[{ RowBox[{"DeleteFile", "[", " ", "\"\\"", "]"}], ";"}], "\[IndentingNewLine]", RowBox[{"For", "[", RowBox[{ RowBox[{"i", "=", "2"}], ",", RowBox[{"i", "<", RowBox[{"n", "+", "2"}]}], ",", RowBox[{"i", "++"}], ",", "\[IndentingNewLine]", RowBox[{"For", "[", RowBox[{ RowBox[{"j", "=", "2"}], ",", RowBox[{"j", "\[LessEqual]", "i"}], ",", RowBox[{"j", "++"}], ",", "\[IndentingNewLine]", RowBox[{"If", "[", RowBox[{ RowBox[{ RowBox[{"Pij", "[", RowBox[{"[", RowBox[{"i", ",", "j"}], "]"}], "]"}], ">", "0"}], ",", RowBox[{ RowBox[{"{", RowBox[{ RowBox[{"i", "-", "1"}], ",", RowBox[{"j", "-", "1"}], ",", RowBox[{"Extract", "[", RowBox[{"Pij", ",", RowBox[{"{", RowBox[{"i", ",", "j"}], "}"}]}], "]"}]}], "}"}], ">>>", " ", "\"\\""}]}], "]"}]}], "]"}]}], "]"}]}], "Input", CellChangeTimes->{{3.5681154444347754`*^9, 3.568115497147268*^9}, { 3.568127214924899*^9, 3.568127265796589*^9}, {3.568128215276656*^9, 3.568128238536297*^9}, {3.568130718566253*^9, 3.5681307485339055`*^9}, 3.5681308175952272`*^9, {3.5681308916497574`*^9, 3.5681309458598523`*^9}, { 3.5681309983383446`*^9, 3.5681310118947687`*^9}, {3.5681310723448744`*^9, 3.568131074357278*^9}, {3.5681315215476637`*^9, 3.568131584509374*^9}, { 3.56813162789305*^9, 3.5681316427754765`*^9}, {3.5681317113063965`*^9, 3.568131715268804*^9}, {3.5681323203938665`*^9, 3.5681323260098763`*^9}, { 3.568132387567585*^9, 3.568132440014877*^9}, {3.5681325121026034`*^9, 3.568132590945142*^9}, {3.56813274298981*^9, 3.5681327548302307`*^9}, { 3.568132877867647*^9, 3.568132888335265*^9}, {3.568133052345154*^9, 3.568133072344389*^9}, {3.5681331740533676`*^9, 3.5681331951446047`*^9}, { 3.568133267793932*^9, 3.5681332684803333`*^9}, {3.5681335079111547`*^9, 3.568133536833606*^9}, {3.5681336272201643`*^9, 3.5681336314945717`*^9}, { 3.568133737994359*^9, 3.568133744000369*^9}, {3.568133978515581*^9, 3.5681339917912045`*^9}, {3.5681340324916763`*^9, 3.5681340418204927`*^9}, {3.568134244262048*^9, 3.5681342454944506`*^9}, { 3.5681343354754086`*^9, 3.568134336099409*^9}, {3.5681345828762426`*^9, 3.568134583952645*^9}, {3.5681348406666956`*^9, 3.5681348474683075`*^9}, 3.568134889151581*^9, {3.5681352914606876`*^9, 3.568135296265496*^9}, { 3.568135518877887*^9, 3.568135519595488*^9}, 3.5681357593679094`*^9, { 3.5681787035360527`*^9, 3.568178728449296*^9}, 3.5682779128076954`*^9}], Cell[CellGroupData[{ Cell[BoxData[{ RowBox[{"a", "=", RowBox[{ "ReadList", "[", "\"\\"", "]"}]}], "\[IndentingNewLine]", RowBox[{"nb", "=", RowBox[{"Length", "[", "a", "]"}]}], "\[IndentingNewLine]", RowBox[{"cw", "=", RowBox[{"nb", "-", "bh"}]}]}], "Input", CellChangeTimes->{{3.5681343270045934`*^9, 3.568134331481801*^9}, 3.5681343823222904`*^9, {3.5681345934218616`*^9, 3.5681345986322703`*^9}, { 3.568134635479535*^9, 3.5681346521559644`*^9}, {3.5681351451792307`*^9, 3.568135145428831*^9}, {3.5681351781888885`*^9, 3.5681352349417877`*^9}, { 3.568135340163973*^9, 3.568135340335573*^9}, {3.568135523495495*^9, 3.5681355244314966`*^9}, {3.5681357674799232`*^9, 3.5681357771675406`*^9}, {3.568136284433632*^9, 3.5681362987700567`*^9}, { 3.568136395053426*^9, 3.5681363965510283`*^9}, {3.568381170343589*^9, 3.568381179844005*^9}, {3.5689533222924633`*^9, 3.568953376658559*^9}}], Cell[BoxData[ RowBox[{"{", RowBox[{ RowBox[{"{", RowBox[{"2", ",", "1", ",", "1.184871111287849`"}], "}"}], ",", RowBox[{"{", RowBox[{"3", ",", "2", ",", "1.1819330515084727`"}], "}"}], ",", RowBox[{"{", RowBox[{"4", ",", "3", ",", "1.1900027985040162`"}], "}"}], ",", RowBox[{"{", RowBox[{"5", ",", "4", ",", "1.193360048632154`"}], "}"}], ",", RowBox[{"{", RowBox[{"6", ",", "1", ",", "1.185253664361955`"}], "}"}], ",", RowBox[{"{", RowBox[{"6", ",", "5", ",", "1.1886371960329734`"}], "}"}], ",", RowBox[{"{", RowBox[{"7", ",", "4", ",", "1.191187144139176`"}], "}"}], ",", RowBox[{"{", RowBox[{"8", ",", "5", ",", "1.1861442148044836`"}], "}"}], ",", RowBox[{"{", RowBox[{"9", ",", "8", ",", "1.1832108561101615`"}], "}"}], ",", RowBox[{"{", RowBox[{"10", ",", "7", ",", "1.1994731724256937`"}], "}"}], ",", RowBox[{"{", RowBox[{"10", ",", "9", ",", "1.1851219610197814`"}], "}"}], ",", RowBox[{"{", RowBox[{"12", ",", "11", ",", "1.1785191509811956`"}], "}"}], ",", RowBox[{"{", RowBox[{"13", ",", "7", ",", "1.1932841118950088`"}], "}"}], ",", RowBox[{"{", RowBox[{"13", ",", "11", ",", "1.1890110609530302`"}], "}"}], ",", RowBox[{"{", RowBox[{"14", ",", "12", ",", "1.1854952094855722`"}], "}"}], ",", RowBox[{"{", RowBox[{"15", ",", "10", ",", "1.1826662009171516`"}], "}"}], ",", RowBox[{"{", RowBox[{"15", ",", "12", ",", "1.1943800226653385`"}], "}"}], ",", RowBox[{"{", RowBox[{"16", ",", "15", ",", "1.1880452708734424`"}], "}"}], ",", RowBox[{"{", RowBox[{"17", ",", "14", ",", "1.1983967468697485`"}], "}"}], ",", RowBox[{"{", RowBox[{"17", ",", "16", ",", "1.1988664678139596`"}], "}"}], ",", RowBox[{"{", RowBox[{"18", ",", "1", ",", "1.2726746386843986`"}], "}"}], ",", RowBox[{"{", RowBox[{"19", ",", "1", ",", "1.2699192627657379`"}], "}"}], ",", RowBox[{"{", RowBox[{"20", ",", "2", ",", "1.2728400164651261`"}], "}"}], ",", RowBox[{"{", RowBox[{"21", ",", "2", ",", "1.2704467330591487`"}], "}"}], ",", RowBox[{"{", RowBox[{"22", ",", "3", ",", "1.2812833583814873`"}], "}"}], ",", RowBox[{"{", RowBox[{"23", ",", "3", ",", "1.2738447894267915`"}], "}"}], ",", RowBox[{"{", RowBox[{"24", ",", "4", ",", "1.2855277807986387`"}], "}"}], ",", RowBox[{"{", RowBox[{"25", ",", "5", ",", "1.2865824873534408`"}], "}"}], ",", RowBox[{"{", RowBox[{"26", ",", "6", ",", "1.2701983776928114`"}], "}"}], ",", RowBox[{"{", RowBox[{"27", ",", "6", ",", "1.2723148542843346`"}], "}"}], ",", RowBox[{"{", RowBox[{"28", ",", "8", ",", "1.2716496871760103`"}], "}"}], ",", RowBox[{"{", RowBox[{"29", ",", "8", ",", "1.273369308085036`"}], "}"}], ",", RowBox[{"{", RowBox[{"30", ",", "7", ",", "1.2856570085214312`"}], "}"}], ",", RowBox[{"{", RowBox[{"31", ",", "10", ",", "1.2859813099795723`"}], "}"}], ",", RowBox[{"{", RowBox[{"32", ",", "9", ",", "1.2753037925414907`"}], "}"}], ",", RowBox[{"{", RowBox[{"33", ",", "9", ",", "1.2716897737419277`"}], "}"}], ",", RowBox[{"{", RowBox[{"34", ",", "11", ",", "1.2711685884984223`"}], "}"}], ",", RowBox[{"{", RowBox[{"35", ",", "11", ",", "1.2693967824286503`"}], "}"}], ",", RowBox[{"{", RowBox[{"36", ",", "12", ",", "1.2864001257591817`"}], "}"}], ",", RowBox[{"{", RowBox[{"37", ",", "13", ",", "1.2794605997817508`"}], "}"}], ",", RowBox[{"{", RowBox[{"38", ",", "13", ",", "1.274230719146194`"}], "}"}], ",", RowBox[{"{", RowBox[{"39", ",", "15", ",", "1.2877109221528262`"}], "}"}], ",", RowBox[{"{", RowBox[{"40", ",", "14", ",", "1.2682779623102078`"}], "}"}], ",", RowBox[{"{", RowBox[{"41", ",", "14", ",", "1.2657759586581472`"}], "}"}], ",", RowBox[{"{", RowBox[{"42", ",", "16", ",", "1.2692285706230773`"}], "}"}], ",", RowBox[{"{", RowBox[{"43", ",", "16", ",", "1.2663993892064842`"}], "}"}], ",", RowBox[{"{", RowBox[{"44", ",", "17", ",", "1.2673209386861983`"}], "}"}], ",", RowBox[{"{", RowBox[{"45", ",", "17", ",", "1.2661616694737527`"}], "}"}]}], "}"}]], "Output", CellChangeTimes->{3.570887232882186*^9}], Cell[BoxData["48"], "Output", CellChangeTimes->{3.570887232882186*^9}], Cell[BoxData["20"], "Output", CellChangeTimes->{3.570887232882186*^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[{"Gray", ",", "0.6"}], "]"}], ",", RowBox[{"{", RowBox[{ RowBox[{"Opacity", "[", "0.4", "]"}], ",", 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}}], Cell[BoxData[{ RowBox[{ RowBox[{"wxh", "=", RowBox[{"Table", "[", RowBox[{ RowBox[{ RowBox[{ RowBox[{ RowBox[{"(", RowBox[{ RowBox[{"a", "[", RowBox[{"[", RowBox[{"i", ",", "3"}], "]"}], "]"}], "+", RowBox[{"u2", "[", RowBox[{"[", RowBox[{"a", "[", RowBox[{"[", RowBox[{"i", ",", "2"}], "]"}], "]"}], "]"}], "]"}]}], ")"}], "/", RowBox[{"(", RowBox[{ RowBox[{"u2", "[", RowBox[{"[", RowBox[{"a", "[", RowBox[{"[", RowBox[{"i", ",", "1"}], "]"}], "]"}], "]"}], "]"}], "+", RowBox[{"a", "[", RowBox[{"[", RowBox[{"i", ",", "3"}], "]"}], "]"}], "+", RowBox[{"u2", "[", RowBox[{"[", RowBox[{"a", "[", RowBox[{"[", RowBox[{"i", ",", "2"}], "]"}], "]"}], "]"}], "]"}]}], ")"}]}], "*", RowBox[{"(", RowBox[{ RowBox[{"x", "[", RowBox[{"[", RowBox[{"a", "[", RowBox[{"[", RowBox[{"i", ",", "1"}], "]"}], "]"}], "]"}], "]"}], "-", RowBox[{"x", "[", RowBox[{"[", RowBox[{"a", "[", RowBox[{"[", RowBox[{"i", ",", "2"}], "]"}], "]"}], "]"}], "]"}]}], ")"}]}], "+", RowBox[{"x", "[", RowBox[{"[", RowBox[{"a", "[", RowBox[{"[", RowBox[{"i", ",", "2"}], "]"}], "]"}], "]"}], "]"}]}], ",", RowBox[{"{", RowBox[{"i", ",", RowBox[{"cw", "+", "1"}], ",", "nb"}], "}"}]}], "]"}]}], ";"}], "\n", RowBox[{ RowBox[{"wyh", "=", RowBox[{"Table", "[", RowBox[{ RowBox[{ RowBox[{ RowBox[{ RowBox[{"(", RowBox[{ RowBox[{"a", "[", RowBox[{"[", RowBox[{"i", ",", "3"}], "]"}], "]"}], "+", RowBox[{"u2", "[", RowBox[{"[", RowBox[{"a", "[", RowBox[{"[", RowBox[{"i", ",", "2"}], "]"}], "]"}], "]"}], "]"}]}], ")"}], "/", RowBox[{"(", RowBox[{ RowBox[{"u2", "[", RowBox[{"[", RowBox[{"a", "[", RowBox[{"[", RowBox[{"i", ",", "1"}], "]"}], "]"}], "]"}], "]"}], "+", RowBox[{"a", "[", RowBox[{"[", RowBox[{"i", ",", "3"}], "]"}], "]"}], "+", RowBox[{"u2", "[", RowBox[{"[", RowBox[{"a", "[", RowBox[{"[", RowBox[{"i", ",", "2"}], "]"}], "]"}], "]"}], "]"}]}], ")"}]}], "*", RowBox[{"(", RowBox[{ RowBox[{"y", "[", RowBox[{"[", RowBox[{"a", "[", RowBox[{"[", RowBox[{"i", ",", "1"}], "]"}], "]"}], "]"}], "]"}], "-", RowBox[{"y", "[", RowBox[{"[", RowBox[{"a", "[", RowBox[{"[", RowBox[{"i", ",", "2"}], "]"}], "]"}], "]"}], "]"}]}], ")"}]}], "+", RowBox[{"y", "[", RowBox[{"[", RowBox[{"a", "[", RowBox[{"[", RowBox[{"i", ",", "2"}], "]"}], "]"}], "]"}], "]"}]}], ",", RowBox[{"{", RowBox[{"i", ",", RowBox[{"cw", "+", "1"}], ",", "nb"}], "}"}]}], "]"}]}], ";"}], "\n", RowBox[{ RowBox[{"wzh", "=", RowBox[{"Table", "[", RowBox[{ RowBox[{ RowBox[{ RowBox[{ RowBox[{"(", RowBox[{ RowBox[{"a", "[", RowBox[{"[", RowBox[{"i", ",", "3"}], "]"}], "]"}], "+", RowBox[{"u2", "[", RowBox[{"[", RowBox[{"a", "[", RowBox[{"[", RowBox[{"i", ",", "2"}], "]"}], "]"}], "]"}], "]"}]}], ")"}], "/", RowBox[{"(", RowBox[{ RowBox[{"u2", "[", RowBox[{"[", RowBox[{"a", "[", RowBox[{"[", RowBox[{"i", ",", "1"}], "]"}], "]"}], "]"}], "]"}], "+", RowBox[{"a", "[", RowBox[{"[", RowBox[{"i", ",", "3"}], "]"}], "]"}], "+", RowBox[{"u2", "[", RowBox[{"[", RowBox[{"a", "[", RowBox[{"[", RowBox[{"i", ",", "2"}], "]"}], "]"}], "]"}], "]"}]}], ")"}]}], "*", RowBox[{"(", RowBox[{ RowBox[{"z", "[", RowBox[{"[", RowBox[{"a", "[", RowBox[{"[", RowBox[{"i", ",", "1"}], "]"}], "]"}], "]"}], "]"}], "-", RowBox[{"z", "[", RowBox[{"[", RowBox[{"a", "[", RowBox[{"[", RowBox[{"i", ",", "2"}], "]"}], "]"}], "]"}], "]"}]}], ")"}]}], "+", RowBox[{"z", "[", RowBox[{"[", RowBox[{"a", "[", RowBox[{"[", RowBox[{"i", ",", "2"}], "]"}], "]"}], "]"}], "]"}]}], ",", RowBox[{"{", RowBox[{"i", ",", RowBox[{"cw", "+", "1"}], ",", "nb"}], "}"}]}], "]"}]}], ";"}]}], "Input", CellChangeTimes->{{3.5681365021632137`*^9, 3.5681365171392403`*^9}, { 3.568136560351316*^9, 3.5681365863097615`*^9}, {3.5681369135895367`*^9, 3.5681369265999594`*^9}, {3.568137821916732*^9, 3.5681378378443604`*^9}, { 3.5682072492149415`*^9, 3.5682072529901485`*^9}, 3.568209802830227*^9, { 3.5682216503836985`*^9, 3.5682217583046885`*^9}, {3.5682217912831464`*^9, 3.568221843465238*^9}, {3.5682219760654707`*^9, 3.5682221133457117`*^9}, { 3.568222159615393*^9, 3.5682221693498106`*^9}, {3.5682222565227633`*^9, 3.5682222578487663`*^9}, 3.5682224736283445`*^9, 3.5682227227607822`*^9, 3.5682227558640404`*^9, {3.568222818810151*^9, 3.5682228486062036`*^9}, { 3.5682230057764797`*^9, 3.5682230079916835`*^9}, {3.568223041952943*^9, 3.5682230548229656`*^9}, 3.5682232619601297`*^9, 3.5682233000709963`*^9, { 3.568223536645412*^9, 3.5682235381118145`*^9}, {3.568223591151908*^9, 3.568223591526308*^9}, {3.5682236491528096`*^9, 3.568223657483224*^9}, { 3.568223713222122*^9, 3.5682237532361927`*^9}, {3.568223800379475*^9, 3.568223827648323*^9}, {3.5682238887380304`*^9, 3.5682238893152313`*^9}, { 3.5682240287170763`*^9, 3.5682240612431335`*^9}, 3.5682241088076167`*^9, { 3.568224198772975*^9, 3.5682242396450467`*^9}, {3.568224282170721*^9, 3.5682243185031853`*^9}, {3.568224437890195*^9, 3.568224439590598*^9}, { 3.568224572253231*^9, 3.5682245867144566`*^9}, {3.5682247081762695`*^9, 3.568224733557514*^9}, {3.56822480520844*^9, 3.5682248433505073`*^9}, { 3.568224884206979*^9, 3.5682248959069996`*^9}, {3.568224982830352*^9, 3.5682250047639904`*^9}, {3.56822503870965*^9, 3.5682250803305235`*^9}, { 3.5682251223413973`*^9, 3.568225141451431*^9}, {3.568225234177994*^9, 3.5682252929588966`*^9}, {3.5682253775890455`*^9, 3.568225482140429*^9}, { 3.56822551694409*^9, 3.5682255297205124`*^9}, {3.568225573197789*^9, 3.5682255809666023`*^9}, 3.568225660698343*^9, 3.5682257301964645`*^9, { 3.568225765078126*^9, 3.5682257828933573`*^9}, {3.568225927026843*^9, 3.568225927416844*^9}, {3.568267062420238*^9, 3.568267081358671*^9}, { 3.568267188328059*^9, 3.5682672830358257`*^9}, {3.5682676367040462`*^9, 3.568267747979042*^9}, 3.5682678404716043`*^9, 3.568267882030078*^9, { 3.5682679252577534`*^9, 3.568267996612279*^9}, {3.5682680488879704`*^9, 3.568268061133992*^9}, {3.568268100914062*^9, 3.5682681150944867`*^9}, { 3.5682681672609787`*^9, 3.5682681709113846`*^9}, {3.568268272904364*^9, 3.5682683182536435`*^9}, {3.5682685202739983`*^9, 3.568268599194537*^9}, { 3.5682686348873997`*^9, 3.568268637773405*^9}, {3.5682686944951043`*^9, 3.568268872273017*^9}, {3.5682689420207396`*^9, 3.568269016947671*^9}, { 3.5682695040741262`*^9, 3.568269601153097*^9}, {3.5682696652380095`*^9, 3.5682696728352227`*^9}, {3.5682697489633565`*^9, 3.5682698308635006`*^9}, {3.568271156491429*^9, 3.568271160063835*^9}, { 3.568271244927984*^9, 3.568271369010602*^9}, {3.5682716250070515`*^9, 3.5682717312276382`*^9}, {3.5682717843301315`*^9, 3.5682718576814604`*^9}, {3.568271940673606*^9, 3.5682720536490045`*^9}, { 3.5682722259669075`*^9, 3.5682723223126764`*^9}, {3.568272370813162*^9, 3.568272411466833*^9}, {3.5682725893539457`*^9, 3.568272622238803*^9}, { 3.5682726936713285`*^9, 3.5682726960113325`*^9}, {3.568272741079812*^9, 3.56827275143823*^9}, {3.5682729218373294`*^9, 3.568272991070251*^9}, { 3.5682734285574193`*^9, 3.5682734302890224`*^9}, {3.5682734898811274`*^9, 3.5682735111595645`*^9}, {3.5682736115925407`*^9, 3.5682736313577757`*^9}, {3.5682738601945777`*^9, 3.568273987272401*^9}, { 3.5682763944346285`*^9, 3.5682764313910933`*^9}, 3.5682765128232365`*^9, { 3.5682766527398825`*^9, 3.568276660976697*^9}, {3.5682774496048822`*^9, 3.568277461663703*^9}, {3.5683784032731285`*^9, 3.568378422991563*^9}, { 3.568378459308427*^9, 3.5683784812420654`*^9}, {3.568378513440522*^9, 3.568378867046343*^9}, {3.568378915468828*^9, 3.56837896203491*^9}, { 3.5683790764299107`*^9, 3.568379270041851*^9}, {3.568380233530743*^9, 3.568380234388745*^9}, 3.5683804214954734`*^9, 3.568380471867962*^9, 3.5683805399464817`*^9, {3.5683812396077104`*^9, 3.568381293537005*^9}, { 3.568381339541486*^9, 3.5683813935175805`*^9}, 3.5684646396646404`*^9, 3.5684646988823442`*^9, 3.568465086387025*^9, {3.5684655859935026`*^9, 3.568465605087936*^9}, 3.568821235038273*^9, 3.5688233741452303`*^9, 3.568823449742963*^9, 3.5688274593312387`*^9, {3.5688284679978104`*^9, 3.5688284689026117`*^9}, {3.5688285131598897`*^9, 3.5688285201487017`*^9}, 3.5688285866360188`*^9, {3.5688292397623663`*^9, 3.568829246688778*^9}, { 3.5688780328231993`*^9, 3.5688781280925665`*^9}, 3.568895312524533*^9, 3.5693395940691977`*^9, {3.5693396336776676`*^9, 3.5693396557829065`*^9}, { 3.569340069402033*^9, 3.569340092412073*^9}, {3.569389186383586*^9, 3.5693891947764006`*^9}, {3.569389263291721*^9, 3.569389289686967*^9}, 3.569389336315449*^9}], Cell[BoxData[ RowBox[{ RowBox[{"Plot8", "=", RowBox[{"Table", "[", RowBox[{ RowBox[{"Graphics3D", "[", RowBox[{"{", RowBox[{ RowBox[{"Opacity", "[", "0.5", "]"}], ",", RowBox[{"Sphere", "[", RowBox[{ RowBox[{"{", RowBox[{ RowBox[{"wxh", "[", RowBox[{"[", "i", "]"}], "]"}], ",", RowBox[{"wyh", "[", RowBox[{"[", "i", "]"}], "]"}], ",", RowBox[{"wzh", "[", RowBox[{"[", "i", "]"}], "]"}]}], "}"}], ",", RowBox[{"a", "[", RowBox[{"[", RowBox[{ RowBox[{"i", "+", "cw"}], ",", "3"}], "]"}], "]"}]}], "]"}]}], "}"}], "]"}], ",", RowBox[{"{", RowBox[{"i", ",", "1", ",", "bh"}], "}"}]}], "]"}]}], ";"}]], "Input", CellChangeTimes->{{3.5681365021632137`*^9, 3.5681365171392403`*^9}, { 3.568136560351316*^9, 3.5681365863097615`*^9}, {3.5681369135895367`*^9, 3.5681369265999594`*^9}, {3.568137821916732*^9, 3.5681378378443604`*^9}, { 3.5682072492149415`*^9, 3.5682072529901485`*^9}, 3.568209802830227*^9, { 3.5682216503836985`*^9, 3.5682217583046885`*^9}, {3.5682217912831464`*^9, 3.568221843465238*^9}, {3.5682219760654707`*^9, 3.5682221133457117`*^9}, { 3.568222159615393*^9, 3.5682221693498106`*^9}, {3.5682222565227633`*^9, 3.5682222578487663`*^9}, 3.5682224736283445`*^9, 3.5682227227607822`*^9, 3.5682227558640404`*^9, {3.568222818810151*^9, 3.5682228486062036`*^9}, { 3.5682230057764797`*^9, 3.5682230079916835`*^9}, {3.568223041952943*^9, 3.5682230548229656`*^9}, 3.5682232619601297`*^9, 3.5682233000709963`*^9, { 3.568223536645412*^9, 3.5682235381118145`*^9}, {3.568223591151908*^9, 3.568223591526308*^9}, {3.5682236491528096`*^9, 3.568223657483224*^9}, { 3.568223713222122*^9, 3.5682237532361927`*^9}, {3.568223800379475*^9, 3.568223827648323*^9}, {3.5682238887380304`*^9, 3.5682238893152313`*^9}, { 3.5682240287170763`*^9, 3.5682240612431335`*^9}, 3.5682241088076167`*^9, { 3.568224198772975*^9, 3.5682242396450467`*^9}, {3.568224282170721*^9, 3.5682243185031853`*^9}, {3.568224437890195*^9, 3.568224439590598*^9}, { 3.568224572253231*^9, 3.5682245867144566`*^9}, {3.5682247081762695`*^9, 3.568224733557514*^9}, {3.56822480520844*^9, 3.5682248433505073`*^9}, { 3.568224884206979*^9, 3.5682248959069996`*^9}, {3.568224982830352*^9, 3.5682250047639904`*^9}, {3.56822503870965*^9, 3.5682250803305235`*^9}, { 3.5682251223413973`*^9, 3.568225141451431*^9}, {3.568225234177994*^9, 3.5682252929588966`*^9}, {3.5682253775890455`*^9, 3.568225482140429*^9}, { 3.56822551694409*^9, 3.5682255297205124`*^9}, {3.568225573197789*^9, 3.5682255809666023`*^9}, 3.568225660698343*^9, 3.5682257301964645`*^9, { 3.568225765078126*^9, 3.5682257828933573`*^9}, {3.568225927026843*^9, 3.568225927416844*^9}, {3.568267062420238*^9, 3.568267081358671*^9}, { 3.568267188328059*^9, 3.5682672830358257`*^9}, {3.5682676367040462`*^9, 3.568267747979042*^9}, 3.5682678404716043`*^9, 3.568267882030078*^9, { 3.5682679252577534`*^9, 3.568267996612279*^9}, {3.5682680488879704`*^9, 3.568268061133992*^9}, {3.568268100914062*^9, 3.5682681150944867`*^9}, { 3.5682681672609787`*^9, 3.5682681709113846`*^9}, {3.568268272904364*^9, 3.5682683182536435`*^9}, {3.5682685202739983`*^9, 3.568268599194537*^9}, { 3.5682686348873997`*^9, 3.568268637773405*^9}, {3.5682686944951043`*^9, 3.568268872273017*^9}, {3.5682689420207396`*^9, 3.568269016947671*^9}, { 3.5682695040741262`*^9, 3.568269601153097*^9}, {3.5682696652380095`*^9, 3.5682696728352227`*^9}, {3.5682697489633565`*^9, 3.5682698308635006`*^9}, {3.568271156491429*^9, 3.568271160063835*^9}, { 3.568271244927984*^9, 3.568271369010602*^9}, {3.5682716250070515`*^9, 3.5682717312276382`*^9}, {3.5682717843301315`*^9, 3.5682718576814604`*^9}, {3.568271940673606*^9, 3.5682720536490045`*^9}, { 3.5682722259669075`*^9, 3.5682723223126764`*^9}, {3.568272370813162*^9, 3.568272411466833*^9}, {3.5682725893539457`*^9, 3.568272622238803*^9}, { 3.5682726936713285`*^9, 3.5682726960113325`*^9}, {3.568272741079812*^9, 3.56827275143823*^9}, {3.5682729218373294`*^9, 3.568272991070251*^9}, { 3.5682734285574193`*^9, 3.5682734302890224`*^9}, {3.5682734898811274`*^9, 3.5682735111595645`*^9}, {3.5682736115925407`*^9, 3.5682736313577757`*^9}, {3.5682738601945777`*^9, 3.568273987272401*^9}, { 3.5682763944346285`*^9, 3.5682764313910933`*^9}, 3.5682765128232365`*^9, { 3.5682766527398825`*^9, 3.568276660976697*^9}, {3.5682774496048822`*^9, 3.568277461663703*^9}, {3.5683784032731285`*^9, 3.568378422991563*^9}, { 3.568378459308427*^9, 3.5683784812420654`*^9}, {3.568378513440522*^9, 3.568378867046343*^9}, {3.568378915468828*^9, 3.56837896203491*^9}, { 3.5683790764299107`*^9, 3.568379270041851*^9}, {3.568380233530743*^9, 3.568380234388745*^9}, 3.5683804214954734`*^9, 3.568380471867962*^9, 3.5683805399464817`*^9, {3.5683812396077104`*^9, 3.568381293537005*^9}, { 3.568381339541486*^9, 3.5683813935175805`*^9}, 3.5684646396646404`*^9, 3.5684646988823442`*^9, 3.568465086387025*^9, {3.5684655859935026`*^9, 3.568465605087936*^9}, 3.568821235038273*^9, 3.5688233741452303`*^9, 3.568823449742963*^9, 3.5688274593312387`*^9, {3.5688284679978104`*^9, 3.5688284689026117`*^9}, {3.5688285131598897`*^9, 3.5688285201487017`*^9}, 3.5688285866360188`*^9, {3.5688292397623663`*^9, 3.568829246688778*^9}, { 3.5688780328231993`*^9, 3.568878147967001*^9}, {3.56889532230575*^9, 3.5688953242557535`*^9}, 3.56889600529175*^9, 3.5688961595292206`*^9, { 3.5693396821781526`*^9, 3.5693396825213532`*^9}, 3.5693893658151007`*^9, { 3.5693895413934093`*^9, 3.5693895427506113`*^9}, {3.5697651043452682`*^9, 3.5697651089940763`*^9}, {3.5704647001766*^9, 3.570464712141821*^9}}], Cell[CellGroupData[{ Cell[BoxData[{ RowBox[{ RowBox[{"Plot9", "=", " ", RowBox[{"Table", "[", RowBox[{ RowBox[{"Graphics3D", "[", RowBox[{"{", RowBox[{"(*", RowBox[{ RowBox[{"Darker", "[", RowBox[{"Red", ",", "0.8"}], "]"}], ","}], "*)"}], RowBox[{"Tube", "[", RowBox[{ RowBox[{"{", RowBox[{ RowBox[{"{", RowBox[{ RowBox[{"x", "[", RowBox[{"[", RowBox[{"a", "[", RowBox[{"[", RowBox[{"i", ",", "1"}], "]"}], "]"}], "]"}], "]"}], ",", RowBox[{"y", "[", RowBox[{"[", RowBox[{"a", "[", RowBox[{"[", RowBox[{"i", ",", "1"}], "]"}], "]"}], "]"}], "]"}], ",", RowBox[{"z", "[", RowBox[{"[", RowBox[{"a", "[", RowBox[{"[", RowBox[{"i", ",", "1"}], "]"}], "]"}], "]"}], "]"}]}], "}"}], ",", RowBox[{"{", RowBox[{ RowBox[{"x", "[", RowBox[{"[", RowBox[{"a", "[", RowBox[{"[", RowBox[{"i", ",", "2"}], "]"}], "]"}], "]"}], "]"}], ",", RowBox[{"y", "[", RowBox[{"[", RowBox[{"a", "[", RowBox[{"[", RowBox[{"i", ",", "2"}], "]"}], "]"}], "]"}], "]"}], ",", RowBox[{"z", "[", RowBox[{"[", RowBox[{"a", "[", RowBox[{"[", RowBox[{"i", ",", "2"}], "]"}], "]"}], "]"}], "]"}]}], "}"}]}], "}"}], ",", "0.15"}], "]"}], "}"}], "]"}], ",", RowBox[{"{", RowBox[{"i", ",", "1", ",", "nb"}], "}"}]}], "]"}]}], ";"}], "\[IndentingNewLine]", RowBox[{"Show", "[", RowBox[{"Plot1", ",", "Plot7", ",", "Plot8", ",", "Plot9", ",", RowBox[{"{", RowBox[{ RowBox[{"AspectRatio", "\[Rule]", "Automatic"}], ",", RowBox[{"Boxed", "->", "False"}], ",", " ", RowBox[{"SphericalRegion", "\[Rule]", "True"}]}], "}"}]}], "]"}], "\[IndentingNewLine]", RowBox[{"Show", "[", RowBox[{"Plot1", ",", "Plot2", ",", "Plot9", ",", RowBox[{"{", RowBox[{ RowBox[{"AspectRatio", "\[Rule]", "Automatic"}], ",", RowBox[{"Boxed", "\[Rule]", "True"}], ",", " ", RowBox[{"SphericalRegion", "\[Rule]", "True"}]}], "}"}]}], "]"}]}], "Input", CellChangeTimes->{{3.5681365021632137`*^9, 3.5681365171392403`*^9}, { 3.568136560351316*^9, 3.5681365863097615`*^9}, {3.5681369135895367`*^9, 3.5681369265999594`*^9}, {3.568137821916732*^9, 3.5681378378443604`*^9}, { 3.5682072492149415`*^9, 3.5682072529901485`*^9}, 3.568209802830227*^9, { 3.5682216503836985`*^9, 3.5682217583046885`*^9}, {3.5682217912831464`*^9, 3.568221843465238*^9}, {3.5682219760654707`*^9, 3.5682221133457117`*^9}, { 3.568222159615393*^9, 3.5682221693498106`*^9}, {3.5682222565227633`*^9, 3.5682222578487663`*^9}, 3.5682224736283445`*^9, 3.5682227227607822`*^9, 3.5682227558640404`*^9, {3.568222818810151*^9, 3.5682228486062036`*^9}, { 3.5682230057764797`*^9, 3.5682230079916835`*^9}, {3.568223041952943*^9, 3.5682230548229656`*^9}, 3.5682232619601297`*^9, 3.5682233000709963`*^9, { 3.568223536645412*^9, 3.5682235381118145`*^9}, {3.568223591151908*^9, 3.568223591526308*^9}, {3.5682236491528096`*^9, 3.568223657483224*^9}, { 3.568223713222122*^9, 3.5682237532361927`*^9}, {3.568223800379475*^9, 3.568223827648323*^9}, {3.5682238887380304`*^9, 3.5682238893152313`*^9}, { 3.5682240287170763`*^9, 3.5682240612431335`*^9}, 3.5682241088076167`*^9, { 3.568224198772975*^9, 3.5682242396450467`*^9}, {3.568224282170721*^9, 3.5682243185031853`*^9}, {3.568224437890195*^9, 3.568224439590598*^9}, { 3.568224572253231*^9, 3.5682245867144566`*^9}, {3.5682247081762695`*^9, 3.568224733557514*^9}, {3.56822480520844*^9, 3.5682248433505073`*^9}, { 3.568224884206979*^9, 3.5682248959069996`*^9}, {3.568224982830352*^9, 3.5682250047639904`*^9}, {3.56822503870965*^9, 3.5682250803305235`*^9}, { 3.5682251223413973`*^9, 3.568225141451431*^9}, {3.568225234177994*^9, 3.5682252929588966`*^9}, {3.5682253775890455`*^9, 3.568225482140429*^9}, { 3.56822551694409*^9, 3.5682255297205124`*^9}, {3.568225573197789*^9, 3.5682255809666023`*^9}, 3.568225660698343*^9, 3.5682257301964645`*^9, { 3.568225765078126*^9, 3.5682257828933573`*^9}, {3.568225927026843*^9, 3.568225927416844*^9}, {3.568267062420238*^9, 3.568267081358671*^9}, { 3.568267188328059*^9, 3.5682672830358257`*^9}, {3.5682676367040462`*^9, 3.568267747979042*^9}, 3.5682678404716043`*^9, 3.568267882030078*^9, { 3.5682679252577534`*^9, 3.568267996612279*^9}, {3.5682680488879704`*^9, 3.568268061133992*^9}, {3.568268100914062*^9, 3.5682681150944867`*^9}, { 3.5682681672609787`*^9, 3.5682681709113846`*^9}, {3.568268272904364*^9, 3.5682683182536435`*^9}, {3.5682685202739983`*^9, 3.568268599194537*^9}, { 3.5682686348873997`*^9, 3.568268637773405*^9}, {3.5682686944951043`*^9, 3.568268872273017*^9}, {3.5682689420207396`*^9, 3.568269016947671*^9}, { 3.5682695040741262`*^9, 3.568269601153097*^9}, {3.5682696652380095`*^9, 3.5682696728352227`*^9}, {3.5682697489633565`*^9, 3.5682698308635006`*^9}, {3.568271156491429*^9, 3.568271160063835*^9}, { 3.568271244927984*^9, 3.568271369010602*^9}, {3.5682716250070515`*^9, 3.5682717312276382`*^9}, {3.5682717843301315`*^9, 3.5682718576814604`*^9}, {3.568271940673606*^9, 3.5682720536490045`*^9}, { 3.5682722259669075`*^9, 3.5682723223126764`*^9}, {3.568272370813162*^9, 3.568272411466833*^9}, {3.5682725893539457`*^9, 3.568272622238803*^9}, { 3.5682726936713285`*^9, 3.5682726960113325`*^9}, {3.568272741079812*^9, 3.56827275143823*^9}, {3.5682729218373294`*^9, 3.568272991070251*^9}, { 3.5682734285574193`*^9, 3.5682734302890224`*^9}, {3.5682734898811274`*^9, 3.5682735111595645`*^9}, {3.5682736115925407`*^9, 3.5682736313577757`*^9}, {3.5682738601945777`*^9, 3.568273987272401*^9}, { 3.5682763944346285`*^9, 3.5682764313910933`*^9}, 3.5682765128232365`*^9, { 3.5682766527398825`*^9, 3.568276660976697*^9}, {3.5682774496048822`*^9, 3.568277461663703*^9}, {3.5683784032731285`*^9, 3.568378422991563*^9}, { 3.568378459308427*^9, 3.5683784812420654`*^9}, {3.568378513440522*^9, 3.568378867046343*^9}, {3.568378915468828*^9, 3.56837896203491*^9}, { 3.5683790764299107`*^9, 3.568379270041851*^9}, {3.568380233530743*^9, 3.568380234388745*^9}, 3.5683804214954734`*^9, 3.568380471867962*^9, 3.5683805399464817`*^9, {3.5683812396077104`*^9, 3.568381293537005*^9}, { 3.568381339541486*^9, 3.568381420224828*^9}, {3.5684645223056345`*^9, 3.5684645572340956`*^9}, {3.5684651558539467`*^9, 3.5684651618911576`*^9}, {3.5688209923798466`*^9, 3.568820997683856*^9}, { 3.568821158754139*^9, 3.568821160750942*^9}, 3.56882222404881*^9, { 3.568822649274357*^9, 3.5688226508031597`*^9}, 3.568822723109287*^9, { 3.5693397221142225`*^9, 3.5693397223326235`*^9}, {3.5693899272912874`*^9, 3.5693899274472876`*^9}, {3.5693910617720795`*^9, 3.5693910848757205`*^9}, 3.5693911374166126`*^9, {3.569391214402748*^9, 3.5693912147147484`*^9}, 3.569391451944365*^9, {3.569391487793228*^9, 3.569391507620863*^9}, { 3.5693923162258854`*^9, 3.5693923173958874`*^9}, {3.569406068526634*^9, 3.569406086092265*^9}, 3.569690172138941*^9, 3.569780036185542*^9, { 3.570453906913044*^9, 3.5704539079894457`*^9}, {3.570454575670618*^9, 3.5704545899602437`*^9}, {3.570454765008151*^9, 3.570454772277764*^9}, 3.5708553779481487`*^9}], Cell[BoxData[ Graphics3DBox[{ {RGBColor[0.7333333333333333, 0.6, 0.4666666666666667], SphereBox[{-7.987871802000001, -3.2446595420000004`, 0.01889726}, 0.255]}, {RGBColor[0.7333333333333333, 0.6, 0.4666666666666667], SphereBox[{-7.874488242, -0.43652670600000004`, 0.62360958}, 0.255]}, {RGBColor[0.7333333333333333, 0.6, 0.4666666666666667], SphereBox[{-5.51799992, 0.754000674, -0.498887664}, 0.255]}, {RGBColor[0.7333333333333333, 0.6, 0.4666666666666667], SphereBox[{-3.13694516, -0.5669178, 0.474321226}, 0.255]}, {RGBColor[0.7333333333333333, 0.6, 0.4666666666666667], SphereBox[{-3.246549268, -3.3731609099999997`, -0.268341092}, 0.255]}, {RGBColor[0.7333333333333333, 0.6, 0.4666666666666667], SphereBox[{-5.599258138000001, -4.593923906000001, 0.880612316}, 0.255]}, {RGBColor[0.7333333333333333, 0.6, 0.4666666666666667], SphereBox[{-0.748331496, 0.691639716, -0.58581506}, 0.255]}, {RGBColor[0.7333333333333333, 0.6, 0.4666666666666667], SphereBox[{-0.8617150560000001, -4.7526608900000005`, 0.583925334}, 0.255]}, {RGBColor[0.7333333333333333, 0.6, 0.4666666666666667], SphereBox[{1.479655458, -3.513000634, -0.5234541020000001}, 0.255]}, {RGBColor[0.7333333333333333, 0.6, 0.4666666666666667], SphereBox[{1.63461299, -0.7502212220000001, 0.281569174}, 0.255]}, {RGBColor[0.7333333333333333, 0.6, 0.4666666666666667], SphereBox[{1.7461068240000002`, 4.781006779999999, -0.7899054679999999}, 0.255]}, {RGBColor[0.7333333333333333, 0.6, 0.4666666666666667], SphereBox[{4.042123913999999, 3.3164691299999998`, 0.111493834}, 0.255]}, {RGBColor[0.7333333333333333, 0.6, 0.4666666666666667], SphereBox[{-0.61416095, 3.471426662, 0.222987668}, 0.255]}, {RGBColor[0.7333333333333333, 0.6, 0.4666666666666667], SphereBox[{6.644276616, 4.208419802, -0.7502212220000001}, 0.255]}, {RGBColor[0.7333333333333333, 0.6, 0.4666666666666667], SphereBox[{3.919291724, 0.582035608, -0.8673842340000001}, 0.255]}, {RGBColor[0.7333333333333333, 0.6, 0.4666666666666667], SphereBox[{6.551680042, -0.438416432, -0.260782188}, 0.255]}, {RGBColor[0.7333333333333333, 0.6, 0.4666666666666667], SphereBox[{8.316684126, 1.84248285, -0.589594512}, 0.255]}, {RGBColor[0.7333333333333333, 0.6, 0.4666666666666667], SphereBox[{-8.252433442, -3.516780086, -2.0409040800000002`}, 0.1]}, {RGBColor[0.7333333333333333, 0.6, 0.4666666666666667], SphereBox[{-9.662169038, -4.108264324, 0.927855466}, 0.1]}, {RGBColor[0.7333333333333333, 0.6, 0.4666666666666667], SphereBox[{-7.902834132000001, -0.15117808, 2.698528728}, 0.1]}, {RGBColor[0.7333333333333333, 0.6, 0.4666666666666667], SphereBox[{-9.582800546, 0.5234541020000001, -0.109604108}, 0.1]}, {RGBColor[0.7333333333333333, 0.6, 0.4666666666666667], SphereBox[{-5.410285538, 2.804353384, -0.043463698}, 0.1]}, {RGBColor[0.7333333333333333, 0.6, 0.4666666666666667], SphereBox[{-5.589809508, 0.65195547, -2.590814346}, 0.1]}, {RGBColor[0.7333333333333333, 0.6, 0.4666666666666667], SphereBox[{-3.091591736, -0.428967802, 2.583255442}, 0.1]}, {RGBColor[0.7333333333333333, 0.6, 0.4666666666666667], SphereBox[{-3.375050636, -3.5035520040000003`, -2.375385582}, 0.1]}, {RGBColor[0.7333333333333333, 0.6, 0.4666666666666667], SphereBox[{-5.686185534, -6.614041, 0.343930132}, 0.1]}, {RGBColor[0.7333333333333333, 0.6, 0.4666666666666667], SphereBox[{-5.472646496, -4.561798564, 2.970649272}, 0.1]}, {RGBColor[0.7333333333333333, 0.6, 0.4666666666666667], SphereBox[{-0.95431163, -6.761439628, 0.001889726}, 0.1]}, {RGBColor[0.7333333333333333, 0.6, 0.4666666666666667], SphereBox[{-0.74644177, -4.769668424, 2.675852016}, 0.1]}, {RGBColor[0.7333333333333333, 0.6, 0.4666666666666667], SphereBox[{-0.839038344, 0.617940402, -2.696639002}, 0.1]}, {RGBColor[0.7333333333333333, 0.6, 0.4666666666666667], SphereBox[{1.765004084, -0.6727424559999999, 2.3905033899999997`}, 0.1]}, {RGBColor[0.7333333333333333, 0.6, 0.4666666666666667], SphereBox[{1.456978746, -3.658509536, -2.6153807839999996`}, 0.1]}, {RGBColor[0.7333333333333333, 0.6, 0.4666666666666667], SphereBox[{3.2030855700000003`, -4.52589377, 0.098265752}, 0.1]}, {RGBColor[0.7333333333333333, 0.6, 0.4666666666666667], SphereBox[{1.698863674, 4.881162258000001, -2.8799424240000002`}, 0.1]}, {RGBColor[0.7333333333333333, 0.6, 0.4666666666666667], SphereBox[{1.82358559, 6.761439628, -0.12283219000000001`}, 0.1]}, {RGBColor[0.7333333333333333, 0.6, 0.4666666666666667], SphereBox[{4.0175574759999995`, 3.3013513220000004`, 2.226097228}, 0.1]}, {RGBColor[0.7333333333333333, 0.6, 0.4666666666666667], SphereBox[{-2.356488322, 4.452194456, -0.423298624}, 0.1]}, {RGBColor[0.7333333333333333, 0.6, 0.4666666666666667], SphereBox[{-0.648176018, 3.5980383039999997`, 2.31491435}, 0.1]}, {RGBColor[0.7333333333333333, 0.6, 0.4666666666666667], SphereBox[{3.686855426, 0.59526369, -2.970649272}, 0.1]}, {RGBColor[0.7333333333333333, 0.6, 0.4666666666666667], SphereBox[{6.572467028, 4.956751298, -2.7004184540000002`}, 0.1]}, {RGBColor[0.7333333333333333, 0.6, 0.4666666666666667], SphereBox[{7.3699314, 5.769333478, 0.43085752800000005`}, 0.1]}, {RGBColor[0.7333333333333333, 0.6, 0.4666666666666667], SphereBox[{6.631048534, -1.188637654, 1.689415044}, 0.1]}, {RGBColor[0.7333333333333333, 0.6, 0.4666666666666667], SphereBox[{ 7.0789135960000005`, -2.0295657240000002`, -1.5061116220000001`}, 0.1]}, {RGBColor[0.7333333333333333, 0.6, 0.4666666666666667], SphereBox[{9.492093698, 1.645951346, -2.30546572}, 0.1]}, {RGBColor[0.7333333333333333, 0.6, 0.4666666666666667], SphereBox[{9.662169038, 1.97476367, 1.00155478}, 0.1]}, {RGBColor[0.2, 0.2, 0.2], {Opacity[0.4], SphereBox[{-7.931180022, -1.8405931240000002`, 0.32125342}, 1.184871111287849]}}, {RGBColor[0.2, 0.2, 0.2], {Opacity[0.4], SphereBox[{-6.696244081, 0.15873698400000003`, 0.06236095800000002}, 1.1819330515084727`]}}, {RGBColor[0.2, 0.2, 0.2], {Opacity[0.4], SphereBox[{-4.330189881782755, 0.09504891470329047, -0.01339387853818974}, 1.1900027985040162`]}}, {RGBColor[0.2, 0.2, 0.2], {Opacity[0.4], SphereBox[{-3.191747214, -1.970039355, 0.10299006700000002`}, 1.193360048632154]}}, {RGBColor[0.2, 0.2, 0.2], {Opacity[0.4], SphereBox[{-6.79356497, -3.9192917240000007`, 0.449754788}, 1.185253664361955]}}, {RGBColor[0.2, 0.2, 0.2], {Opacity[0.4], SphereBox[{-4.425591233926344, -3.984936901958569, 0.30744807690218234`}, 1.1886371960329734`]}}, {RGBColor[0.2, 0.2, 0.2], {Opacity[0.4], SphereBox[{-1.942638328, 0.062360957999999966`, -0.05574691700000001}, 1.191187144139176]}}, {RGBColor[0.2, 0.2, 0.2], {Opacity[0.4], SphereBox[{-2.051403223938874, -4.064489445788132, 0.15876735956225657`}, 1.1861442148044836`]}}, {RGBColor[0.2, 0.2, 0.2], {Opacity[0.4], SphereBox[{0.30897020099999994`, -4.132830762, 0.03023561599999991}, 1.1832108561101615`]}}, {RGBColor[0.2, 0.2, 0.2], {Opacity[0.4], SphereBox[{ 0.44314074700000017`, -0.02929075300000017, -0.1521229429999999}, 1.1994731724256937`]}}, {RGBColor[0.2, 0.2, 0.2], {Opacity[0.4], SphereBox[{ 1.5569567821018844`, -2.1347745872078683`, -0.12186429629996715`}, 1.1851219610197814`]}}, {RGBColor[0.2, 0.2, 0.2], {Opacity[0.4], SphereBox[{2.8914740961731615`, 4.050422717502715, -0.3402427611468327}, 1.1785191509811956`]}}, {RGBColor[0.2, 0.2, 0.2], {Opacity[0.4], SphereBox[{-0.6810934496729842, 2.0846983941273285`, -0.18049275256390454`}, 1.1932841118950088`]}}, {RGBColor[0.2, 0.2, 0.2], {Opacity[0.4], SphereBox[{0.5659729370000002, 4.126216721, -0.28345889999999996`}, 1.1890110609530302`]}}, {RGBColor[0.2, 0.2, 0.2], {Opacity[0.4], SphereBox[{5.3461792188812325`, 3.7634655743746857`, -0.320350188531476}, 1.1854952094855722`]}}, {RGBColor[0.2, 0.2, 0.2], {Opacity[0.4], SphereBox[{2.776952357, -0.08409280699999999, -0.29290753}, 1.1826662009171516`]}}, {RGBColor[0.2, 0.2, 0.2], {Opacity[0.4], SphereBox[{3.9807078189999996`, 1.9492523689999997`, -0.37794520000000015`}, 1.1943800226653385`]}}, {RGBColor[0.2, 0.2, 0.2], {Opacity[0.4], SphereBox[{5.238494128282455, 0.07064343404987383, -0.5633899972629807}, 1.1880452708734424`]}}, {RGBColor[0.2, 0.2, 0.2], {Opacity[0.4], SphereBox[{7.4804803710000005`, 3.0254513259999998`, -0.669907867}, 1.1983967468697485`]}}, {RGBColor[0.2, 0.2, 0.2], {Opacity[0.4], SphereBox[{7.434182084, 0.7020332089999999, -0.42518835}, 1.1988664678139596`]}}, {Opacity[0.5], SphereBox[{-8.180522835459255, -3.4428148907009493`, \ -1.4810286433613533`}, 1.2726746386843986`]}, {Opacity[0.5], SphereBox[{-9.20647814609968, -3.8732183447692483`, 0.68046571543109}, 1.2699192627657379`]}, {Opacity[0.5], SphereBox[{-7.895130032464925, -0.22873268198642904`, 2.134588642032456}, 1.2728400164651261`]}, {Opacity[0.5], SphereBox[{-9.117969042477846, 0.2622434783393202, 0.08990321873296014}, 1.2704467330591487`]}, {Opacity[0.5], SphereBox[{-5.439443582272574, 2.2493274535483816`, -0.1667459553629863}, 1.2812833583814873`]}, {Opacity[0.5], SphereBox[{-5.570301813444769, 0.6796769306837498, -2.0225244019831283`}, 1.2738447894267915`]}, {Opacity[0.5], SphereBox[{-3.103805826054413, -0.4661189925821729, 2.0153002544697953`}, 1.2855277807986387`]}, {Opacity[0.5], SphereBox[{-3.340461305242022, -3.468454006613228, -1.808222290894913}, 1.2865824873534408`]}, {Opacity[0.5], SphereBox[{-5.662529795510672, -6.064302207715395, 0.4899786044123742}, 1.2701983776928114`]}, {Opacity[0.5], SphereBox[{-5.507066770343183, -4.570532066445285, 2.402457877618513}, 1.2723148542843346`]}, {Opacity[0.5], SphereBox[{-0.9291305951267373, -6.215165340851464, 0.160170516631937}, 1.2716496871760103`]}, {Opacity[0.5], SphereBox[{-0.7777638600413919, -4.76504713202668, 2.1074331032816276`}, 1.273369308085036]}, {Opacity[0.5], SphereBox[{-0.8146116571328769, 0.6377870850795375, -2.1282096430296558`}, 1.2856570085214312`]}, {Opacity[0.5], SphereBox[{1.7298961072770516`, -0.6936037175310273, 1.8226700273505732`}, 1.2859813099795723`]}, {Opacity[0.5], SphereBox[{1.463134784717547, -3.619008287562407, -2.047486212306292}, 1.2753037925414907`]}, {Opacity[0.5], SphereBox[{2.734418956449802, -4.250449356773129, -0.07080367328291154}, 1.2716897737419277`]}, {Opacity[0.5], SphereBox[{1.7117140939455262`, 4.853919367715485, -2.31143984560992}, 1.2711685884984223`]}, {Opacity[0.5], SphereBox[{1.8024930453602872`, 6.22229360891661, -0.3044338548248441}, 1.2693967824286503`]}, {Opacity[0.5], SphereBox[{4.024170712391963, 3.3054210059335163`, 1.6568501877994335`}, 1.2864001257591817`]}, {Opacity[0.5], SphereBox[{-1.8844350350432917`, 4.186472486444108, -0.2481985978186613}, 1.2794605997817508`]}, {Opacity[0.5], SphereBox[{-0.6389372325015279, 3.563649491311242, 1.746729041843963}, 1.274230719146194]}, {Opacity[0.5], SphereBox[{3.749388057473202, 0.5917049223551837, -2.404805216474198}, 1.2877109221528262`]}, {Opacity[0.5], SphereBox[{6.592026680407996, 4.752919130800885, -2.1692194728144276`}, 1.2682779623102078`]}, {Opacity[0.5], SphereBox[{7.172039070948298, 5.343658832696079, 0.108767148684079}, 1.2657759586581472`]}, {Opacity[0.5], SphereBox[{6.609439798887339, -0.9843836578160388, 1.1584575526603322`}, 1.2692285706230773`]}, {Opacity[0.5], SphereBox[{6.935175376439339, -1.5957751115624497`, -1.1666009170162164`}, 1.2663993892064842`]}, {Opacity[0.5], SphereBox[{9.171786406570323, 1.6995075490686276`, -1.837878870131597}, 1.2673209386861983`]}, {Opacity[0.5], SphereBox[{9.295311460296164, 1.9386962115178812`, 0.5677147794007996}, 1.2661616694737527`]}, TubeBox[{{-7.874488242, -0.43652670600000004`, 0.62360958}, {-7.987871802000001, -3.2446595420000004`, 0.01889726}}, 0.15], TubeBox[{{-5.51799992, 0.754000674, -0.498887664}, {-7.874488242, -0.43652670600000004`, 0.62360958}}, 0.15], TubeBox[{{-3.13694516, -0.5669178, 0.474321226}, {-5.51799992, 0.754000674, -0.498887664}}, 0.15], TubeBox[{{-3.246549268, -3.3731609099999997`, -0.268341092}, {-3.13694516, \ -0.5669178, 0.474321226}}, 0.15], TubeBox[{{-5.599258138000001, -4.593923906000001, 0.880612316}, {-7.987871802000001, -3.2446595420000004`, 0.01889726}}, 0.15], TubeBox[{{-5.599258138000001, -4.593923906000001, 0.880612316}, {-3.246549268, -3.3731609099999997`, -0.268341092}}, 0.15], TubeBox[{{-0.748331496, 0.691639716, -0.58581506}, {-3.13694516, -0.5669178, 0.474321226}}, 0.15], TubeBox[{{-0.8617150560000001, -4.7526608900000005`, 0.583925334}, {-3.246549268, -3.3731609099999997`, -0.268341092}}, 0.15], TubeBox[{{ 1.479655458, -3.513000634, -0.5234541020000001}, {-0.8617150560000001, \ -4.7526608900000005`, 0.583925334}}, 0.15], TubeBox[{{1.63461299, -0.7502212220000001, 0.281569174}, {-0.748331496, 0.691639716, -0.58581506}}, 0.15], TubeBox[{{1.63461299, -0.7502212220000001, 0.281569174}, { 1.479655458, -3.513000634, -0.5234541020000001}}, 0.15], TubeBox[{{4.042123913999999, 3.3164691299999998`, 0.111493834}, { 1.7461068240000002`, 4.781006779999999, -0.7899054679999999}}, 0.15], TubeBox[{{-0.61416095, 3.471426662, 0.222987668}, {-0.748331496, 0.691639716, -0.58581506}}, 0.15], TubeBox[{{-0.61416095, 3.471426662, 0.222987668}, {1.7461068240000002`, 4.781006779999999, -0.7899054679999999}}, 0.15], TubeBox[{{6.644276616, 4.208419802, -0.7502212220000001}, { 4.042123913999999, 3.3164691299999998`, 0.111493834}}, 0.15], TubeBox[{{3.919291724, 0.582035608, -0.8673842340000001}, { 1.63461299, -0.7502212220000001, 0.281569174}}, 0.15], TubeBox[{{3.919291724, 0.582035608, -0.8673842340000001}, { 4.042123913999999, 3.3164691299999998`, 0.111493834}}, 0.15], TubeBox[{{6.551680042, -0.438416432, -0.260782188}, {3.919291724, 0.582035608, -0.8673842340000001}}, 0.15], TubeBox[{{8.316684126, 1.84248285, -0.589594512}, {6.644276616, 4.208419802, -0.7502212220000001}}, 0.15], TubeBox[{{8.316684126, 1.84248285, -0.589594512}, { 6.551680042, -0.438416432, -0.260782188}}, 0.15], TubeBox[{{-8.252433442, -3.516780086, -2.0409040800000002`}, \ {-7.987871802000001, -3.2446595420000004`, 0.01889726}}, 0.15], TubeBox[{{-9.662169038, -4.108264324, 0.927855466}, {-7.987871802000001, -3.2446595420000004`, 0.01889726}}, 0.15], TubeBox[{{-7.902834132000001, -0.15117808, 2.698528728}, {-7.874488242, -0.43652670600000004`, 0.62360958}}, 0.15], TubeBox[{{-9.582800546, 0.5234541020000001, -0.109604108}, {-7.874488242, -0.43652670600000004`, 0.62360958}}, 0.15], TubeBox[{{-5.410285538, 2.804353384, -0.043463698}, {-5.51799992, 0.754000674, -0.498887664}}, 0.15], TubeBox[{{-5.589809508, 0.65195547, -2.590814346}, {-5.51799992, 0.754000674, -0.498887664}}, 0.15], TubeBox[{{-3.091591736, -0.428967802, 2.583255442}, {-3.13694516, -0.5669178, 0.474321226}}, 0.15], TubeBox[{{-3.375050636, -3.5035520040000003`, -2.375385582}, \ {-3.246549268, -3.3731609099999997`, -0.268341092}}, 0.15], TubeBox[{{-5.686185534, -6.614041, 0.343930132}, {-5.599258138000001, -4.593923906000001, 0.880612316}}, 0.15], TubeBox[{{-5.472646496, -4.561798564, 2.970649272}, {-5.599258138000001, -4.593923906000001, 0.880612316}}, 0.15], TubeBox[{{-0.95431163, -6.761439628, 0.001889726}, {-0.8617150560000001, -4.7526608900000005`, 0.583925334}}, 0.15], TubeBox[{{-0.74644177, -4.769668424, 2.675852016}, {-0.8617150560000001, -4.7526608900000005`, 0.583925334}}, 0.15], TubeBox[{{-0.839038344, 0.617940402, -2.696639002}, {-0.748331496, 0.691639716, -0.58581506}}, 0.15], TubeBox[{{1.765004084, -0.6727424559999999, 2.3905033899999997`}, { 1.63461299, -0.7502212220000001, 0.281569174}}, 0.15], TubeBox[{{1.456978746, -3.658509536, -2.6153807839999996`}, { 1.479655458, -3.513000634, -0.5234541020000001}}, 0.15], TubeBox[{{3.2030855700000003`, -4.52589377, 0.098265752}, { 1.479655458, -3.513000634, -0.5234541020000001}}, 0.15], TubeBox[{{1.698863674, 4.881162258000001, -2.8799424240000002`}, { 1.7461068240000002`, 4.781006779999999, -0.7899054679999999}}, 0.15], TubeBox[{{1.82358559, 6.761439628, -0.12283219000000001`}, { 1.7461068240000002`, 4.781006779999999, -0.7899054679999999}}, 0.15], TubeBox[{{4.0175574759999995`, 3.3013513220000004`, 2.226097228}, { 4.042123913999999, 3.3164691299999998`, 0.111493834}}, 0.15], TubeBox[{{-2.356488322, 4.452194456, -0.423298624}, {-0.61416095, 3.471426662, 0.222987668}}, 0.15], TubeBox[{{-0.648176018, 3.5980383039999997`, 2.31491435}, {-0.61416095, 3.471426662, 0.222987668}}, 0.15], TubeBox[{{3.686855426, 0.59526369, -2.970649272}, {3.919291724, 0.582035608, -0.8673842340000001}}, 0.15], TubeBox[{{6.572467028, 4.956751298, -2.7004184540000002`}, {6.644276616, 4.208419802, -0.7502212220000001}}, 0.15], TubeBox[{{7.3699314, 5.769333478, 0.43085752800000005`}, {6.644276616, 4.208419802, -0.7502212220000001}}, 0.15], TubeBox[{{6.631048534, -1.188637654, 1.689415044}, { 6.551680042, -0.438416432, -0.260782188}}, 0.15], TubeBox[{{ 7.0789135960000005`, -2.0295657240000002`, -1.5061116220000001`}, { 6.551680042, -0.438416432, -0.260782188}}, 0.15], TubeBox[{{9.492093698, 1.645951346, -2.30546572}, {8.316684126, 1.84248285, -0.589594512}}, 0.15], TubeBox[{{9.662169038, 1.97476367, 1.00155478}, {8.316684126, 1.84248285, -0.589594512}}, 0.15]}, AspectRatio->Automatic, AutomaticImageSize->True, Boxed->False, ImageSize->{360., 360.}, SphericalRegion->True, ViewPoint->{0.11831593769486773`, 0.09000161885673565, 3.380517866761031}, ViewVertical->{-0.3008690488234793, 1.061057147298322, 1.6620686743390523`}]], "Output", CellChangeTimes->{ 3.570887232944586*^9},ImageCache->GraphicsData["CompressedBitmap", "\<\ eJzsvGd4W2l6JXhG1XY77czs2uNZe9zj7nK7227vjO317nhmPO7qqq6upApS KecskWLOmRKTRIpiJsAIEAQRCSKDAEiCBEiQIJgDmLNIkcqppErd1eYegFB1 df/ff36eOriXEAu49/vOe95z7v0uPzgTH3Ih4kx86Lkz33079kx0SOi5uO++ FRXLt175N8C/CfHju/DvbwMvX7b533ao/8X/zr/u/+v+v+7/6/7/v/v5gc0r yMvS4+YVfeCn5Z1/yglsfh8FNwwou2lGDSEuNENKyAvMUF43Q5VHZPPnK2bI 0oxY2PlfswKbf4/SYgMEpWaICBnRTOhKzDAVmWHhx1lvmGHLJ/hRrbnEVf5b hhmGZBOUUS2zO592JbD5Q5QVayAsN6GuwowmopkwlPP/KjOjjZ/cyU928pO7 iR4eZA+/oZtbF7+h85oZDh5oezp/P9GAmZ2Pzgxs/gBVpS2oqTBCXGmGQsCD JCzcb6uwoIvoKbOgj/CWtWKwonUXhipa8W0MVVowwCPw8gj6is1w83y6c03o SjNgeucbMgKb/4iasmaIKg2Q8JNVQh64sBVWoQ0OQRu6KzvQJ3BgQNCJ4apO jNZ0Yry2ExN1DkzWdWCyvp37dozXtGKkysqvNWOAJ9zPWXBf1eMHge/4HRQU mFDC94REDYe0nrNTn8Phv2pCfbpJsXNE6YHNn6CuTIWGSh0aBRxsoRX6qjbY hJ3oFDrhFnTDK3RjuLoXY3V9mBT3YUrSh5nGPsxKezHX5EcP5qQuzDZ2YbqB RykKHiGPbqjICE+OFq8Gvuvfopg/l3F6qgkxB6qJU6Tk9DRzerQ8Wh2PVkcC aDlF2kwzWlI5SgmGpp0jTgts/hNqi6WQVGjQJDBALmyDrqoL1qoeOKr64K7q h7dmAMN1Q5gQD2OqcQSzshEsKEawqBzBkmoYy+ohYhDLKi9/9vDf3JiTuTDd 6MCEyIbxKgtGSwzoz23Gnwe+8/8g6XSoLDOhhtPcQMg51RpCzzOx8EysPAs7 z6KdU9/Bs2jnmLdxzG1ZBM/EmmSEPkbb+M0z+TM0lishq9QHzqKFZ2Cp8qCj agA91cPw1o5hRDSOicZJTMt8mFdOYVE9hRXNFNa0hM6HW7pJrOsnsK4b4/4I VlsGsdTcj1lVL6abnPBxPnw1JoyVaNGXI/9O4Gv/CMIyPWlOQnCKmohmwsCf W3libTwpR4kFTqKn2AK3Hzct6OUJuokeP7dZSU5OU1emCe2JOsnOSaUGNt+B pKQRsooWKAV2qIXdJNQA7FUjcFaPw1Prw7B4GhPSWWS9UQjr+2IsXq7Bqm4B twwL2DAt4LZ5AZvmeWxaZrmd4c9TuGWcwLJ+FAvaIczwBKcU3fBJ2jBZbcRY qZJD6f/uP6Ym6FFfaQqUl5zQEmZBK+yVVnRWWNFdbkNvmR39FW0YIAYr7Swj QuDf2ljU/uK2wMNp9fBM+1jFrjRdwzfP8D9Tw+RQ8DeVAhc0wgGYhGNor5pC T+0sBsQLGJMuYUq5jPzdvegI6cdishX3MoS4bbmFLesa7tjWcNe+SqwQS9i0 LWDdOodVyzQWTZOY5ZlOaQbgC5ylnWfZgoHixj8NfP3/CREHt0FghIT6oRBa oGXVWsigNkEHnJWdcFc4eYIuDHLwR6q7MVbbTd0g6l3UECe3O5oyVtuG0Sob hitbMVRqwWCBAX1XNOKdk00JbP4cksI6KMp0UFU4oBJ40CIY5bdNw1GzALdo GYPSNUwo1zGj2UDu+6PQXJjAZHIf7uXocMe+hbvtW7jfsYUHjk1iA/cd67jT sYaN9hWstS1iyTaHOcsUpg1j8Gn64ZN1wSc2sQrlVCf/MfwpxOVq6pMeTUJq FJWvpaodZmEX2nmGToEbvcI+eKv7MVzjxVj9AHVqgDo1QJ0ipF5qFWtC6uE+ 66KRg9rQhfH6DoxX2zBG4o/c1KM/SyX69TOXFUmhpNKrKnqgqhxmN/BRqxfQ VbeKPskGhhSbmGy+gzndPSyb7kN4eg69iZPYyHXhSUEj7nc+xIOuB3jovE/c wwPXHdx1buF21wZuOW5hmSOwwKmf5tlP6UfgU/fy7Nt4dGrO8o5CiEtlLNEW yIRGyKnMzdQ6E5WiTehBF6nXWzWEgZoRjNSPYqJhDFPScczIxjGnGKdijGNR NUaMUuf8+jeEBeUA5uQciSY3v8fJvtKOSSr/OJuqJ6ep/psj8F0oipqhKu2A qryfozAOfeUcbNUrcIo34JHdxbD6Pnzah5gzPsZK6xMUHpmHJW4J83ljeFpi xUPXMzzqforHPU+Ix3jQ8wh3ex5gs/se1l1bWOlcxwJHYcY2jynzBHw6kl7N +ZfpMVgj+o/BQWiqULEdG0j2dqir/IrioeAPopOq4qaqeGsnqSpTlMppTMlm MKucxYJ6llI4i2XahxXtDFa108QUMYmVFg5M8yhm2QimFKSctAc+kX8gDBgt Vv7GIChJDlWJC6qyIQ7EFAyVS7DX3YKz8Q48yocY0TyBz/AM85bnWLG9ILE/ RUPEOoZzFnG/bAAvKtR43PspnvS9IJ7jYd8z3Ot7ii33I6z33Meq6y4Wu9Yx 274En3UaPiOpoOP0qFsx1ij546DoNFJWFex6fllVkfcaoZfCM8IamICregr9 tTMYEs9hXLqAKfkie8ASFjTLWNYuY1W/jDXDMkRHyzF4SYfn+Tp8VVKCNSMH SD+Fed0EpjWj8LEj+ppYH+yCvioNhkskdTuDkRzYfA8NORVQFlqgKnaTGWMc kFkYqlZgF23CKbuPfvVjjOg+gc/0Keatn2O1/QtsdH6Jsou30XFlE2ulc/i0 tgtPPF8iP8OIkkwjBBkG1KQbUJeqhyhZh/pELeriWlAdpUHlZRV8reP8PA8H pQ0TCjlejoi8TAYlW5dK4GSj8aKFMmwRTtEHzMJdu0ApXsKodAWTijXMqG+x eazzbDewatzAunkDG5YNKM/0YLJkFV+ZVrDd5cGt1mWsWBaxYJrDrIF1qR0L jgq7qciMiWrFb4yIJFsI1Q0bVEUejsoEabIAQ80t2BvuwCl/CI/mGUYML+Cz fI55+8+x6viKCvBLlIXMQJlyHznRShQnKVGV1ID6bBOkhCLLCPUVIzSZBmjS 9WhJ0UGTpIU6jvMf1QxZmArSi3LUnKjDRLMS/yFIVcmNGiqWhrXaTsXqg5pa rRNMB1Srs2YZvaI1DEnXMa68jenmLcxr72DJcBerJtZj6z3ctt5D3Rk7evLW cYv/9mJgC58MTWO9jaNmX8OidQWzbM/TBtK0hXxR9nFk2qkkLfCWV/8ocBi/ h4JCE4pphirZQWto6+ppiBpoiBpo6xro7SXpNFKJ2ou/MZBXa6HKJ7kLvRxM H6m1BH3tBmyN9+BUPoan5ROMGD9jjXyJ+bafUzy+wobrKxRkqJEa2YKCBC1q UpohT2uCOs9EI2mCKccECwfTetUAKwfTlq6DNU2L1pQWmBOaYYhTQRetgDZE CtXZ+q8HUl4k4kSSWmyjqspBwkfxm6cxXkFX/Qb6GjcxLL+LSQrgjPYBFg0P sWJ+hFvWx9iwP0b1WRVakzlY8kes/Uf4bOoBthz3seG4izU2wyUO6JxtldK/ QO2Y5GAOst5d8MkpxfXiHwYO49+hqEiHMjr8SqKWaKDTlNEzq2jENBxcLY2Y jpFGR6ep48DqGJr0Kfy3OD3Of1PFXoXqWhtUBRzZm1M8K45s3W3YpPfQpXqC Pu1zDJs+w6TtC8x1fInlri9RfLUZFbkGZMU0ozhRB0lqCz9eCUuGBDbOZTtH t5Nwkq6uHCNc2QY4mR67rrbAcaUZHRkq2FMVsCZKYY4UwcFYaArX/OFLUS2S UT842eV9PJxRgjpSuQx7zQacrBwPtWRY9QiT2ieYMzzFkvkZVq2fYN3+HLc7 nkMeOoPh2ue40/UJPp36BPfZae44n+C28xHWOu9j2XEH8+0bmLYts7PMwEdL 5dOyvzbbMNkk/0HQ1guYI6toAGoJSdDW+9OpPphOW8liGxncRga3caDbeOZ2 stjOwW7jYNsTjTBGNZ/95lj/BZQ5PLHrHOsbO2Ot5VhbpffRybHupTgOmV9g wv4pZjs+Q+lVFQS59OPXjGi4bkRFgg4yCqElU4vOK0p0XadrvU7Xmm+Dh+gv sBKt6Pe70wIj39fBfV3NvMnfvSpFe1o9+kiLnqtG2GPVPMeXXYytvIQWjh1J VTYJdTllSrgGe/0WO9kDdrIn7GTPOFDPMUfxXrJ+Rnv2OdY7Pofg4jCcxc+x bP0CTyc+x9bIKu73fIo7PS9wu/sT3HI9IWceYMGxhen2W/DR1PjMZLWRwqlz kNnN3w8cxv8GIRN2LQ16neBX8UPNwddz8M0cfBt9aAcjRycjh5N9ppvbXYzv Fvw2unnKLk5GNyejm4XtYv9wxLec+ebg/xCKq3RsufQrBZSQimW0cPAtHHwH O5Nb9xQDZNI4WVR6Rc6B16D6mh7ifPpKDlptgpGabIWd6MswYShDi5ECOuYi J4aKnRgu7cJImQPDZR0EI0NpKwaZFL036Z4K5CwEEYZ5JoNFJng4qR1xysBR hYZG4zLxCsJCY/gaHhJDRCPsUjTz+s4EqQrpsfkdqhLajNJpTtASDNUbsIvv wtn0CB41+4iWfcT4Of3yl1hiL1nr+AVKLzpguPqYlfIV7g1/hSfzv8CD3l/g fu/Pcdf9BW67X+BWzzOsuB5hgS50hh7c17a8YzVah9hZ2dm02r8IXqCoZfsQ 0RCKGS78AUPGidIQBoYEKxNUe5kNXSzc7tI2Jql2eAivH+X+RGXnlumqzAqP /8JEkSVwccJDHemhMp/+5kz9NWTpVLKsXor+JHVgERqKvYmS1K56gG7dI3jN T1CcLoEgW4WavBaIWR4yloC2oAOWgi4oYrsoMcw6Wcwz12yYKOvDdKUHc7SH E0wEk8JeTNIrT1Q5mSaYd4R2jPqvSpCDU0zGE3VWvke2hBah6XQ+wsNiEBFA LCIvE6Gx5F4UX38LUSGxRAwiLxEXoxFxIZrvBmeOZXgjSoeb0e0oinGjJGEI 1WkTkGTNQnltCbobqzAXrXOkv8Sc9SuK/y9ReIHlHrMFT+O/YK1vG4/nt3G/ 75d4EMAvcLfvS2z2fo5bvTSVdM8LrgeY6dqEr2MVvvZZziD1zEqnZjC8GryQ U1+mZu41oJGzJq2iljEaahgNjYI22Co70FHRBVeZE72l3YyHPRgQ9GCoys2I 6MZoTQ9GGRNHa1wYre7CcBUJTqM5zLw8XMxCuK6DJ1OFU98Mwn8JZSaTEb2+ qnQe6pp1GBq3YFeSr9r78JgeovJqE6pz1Ki7xkh+vR3N+V0w5vegNZfeJMEN a0Y/PNc8mLzZgxmK02ztMBZEw1huYMyvH8SMaADTIg+m6t2YqmNa8SdWnt6c vAeG9FpokwXQxpVCE3YDsjN5iArzz1g0X19BDGcwJnQHuwKvf4UYzmI0ZzDK D/8snosKnEnRTV3gulRRmBglkQaURTlQHtOHiqRh1GX40JQzB03+Mow3b1Gh bqOrYgs9grtYYv0VhTITVX7FutrG3Rmij3Xo+Qr3PazBfs6k5+fY9HAm+z7F ivsZFnoeYsZ5B77ONWKeM0qH2Ua7bza+Goy7UoEuEHVlnEUF424zc4+Rcdcq 6IajshcukrxX0I/kCBmuRMiREy7HtTAF8kPkyL/QRDvGGNVA7W1gIYh76Si6 dy4ksgDGy0wYvaFh0TSd/PXJlKVQfLIpPsWzUNHSaxs20MqI62i5g7J0Eaqy FKjNNUJ0rR3y6y6ajz600lHYrg3BWTAC85VR9N4YxWT5MBar+rDQMIkl6STW 5BOYb2QclY4Sw5iTDmC2kaXK+Dlaa0Nrnhym7Ebor4igTxVC55/Qy/mQnLzi n7iwOPwXxPI19nIc4i6/3MZyS4T6EcOJJSim7/3z/sAlOjFbSlmoCBXhBlRG OiCI9kCYPAJR5hQUefOUkBVYim+hvXwDLsFt9NVsIvcSrUjeCwwat3FrfBub C1/hDifvHqPK/f4vca//C9zt/xyb/Z/hloeT2fsJJ/MRZno4mS52PRcns4tR pcONyVYDHe3O5Uop859cqOdMWgi6MEZ4vZBFwAifEi1BRhxnME6BgnglStgw KonqGCXqGAzqI4lwJUSXiYvEWTmj+zBjvv8CByORqBuTNTTgFQaMF6nwa1P6 Q4hjrZCnD0Lp74WVi1DXr8LUdAttzRuozBCjOqsFdTk2mnMXFKxD/fUh2p1R 2PPH4SqehCXHh+6iGYwzVS3Wj2FZPIAVhuu15hksKaYJvq+cJEaxIB/EdFMv 2llLthstsOSrYMiVQX+V05omgD6+kHWajThOZVxYPCs0Pix+F+LD41iY8Xwz nmUbR3zwxj7iAD58fT/2vLYPakp2+aU6CC7rIQx3oIpzWZ0yCvGVacrrAnSF K2gtXWNl3EI3RSjzghlVCffgkG9j1ruNjUXOZd/nnMvPA/N31/sZ7hF3vJ/i tpfN0fMJlpnHF9wsTPdd+Nycyx7OpYuF2dmDcavuu8FLm42lTVAImMGoQUpK pKqqG1pOo1k4gOxEBXKZ424QZUkq5jkVk6waxaeEkMWroYxTQx2jRnMUEUEw wzVfUkF9QQnlSTkzO2O/1F+0PfBR53wCLcZKpDjxzUvGf4XGxD7IcyegLGFz qVmErnEZJUlCCOnNq+lK67I7Ic71M3kYBk6j/YYPbTdn4CqfQ3/VPBylSxip WWJFzmGdlbmiWcKSahHLzQtY1swT/usmPsyrx9jnLfz9VrSVmNB6Uw9TgQZ6 VquBU2pIKWel5jOGpnAOE5AQQYQnvBLY+Su+xvPHOOx5k5P4s4PY++ZBfPzm Aex/Yz8O/GQfKs5VoypEi+rLDtRwQmtTxiDOYiK+zlMqptJem4KdUaWrdAo5 IbTQVb/EUNc2lue2MUEGjzeuUFU/xVb/C2xxEu94n3P7CW73P8Na/1Msex5j vvcBpvu24Ouj0vbOcVLZM7ucGDQ3fzfo/+XlCiiptioqrIo12Sz0IjupCddS lChIUaGEEKSwgaWq0UgHU36mGpIzddBdqEVrWDVM8RpY4pp3wRLbjN+Fhdnc HKmG+bIaxnMKtByXwCejGEvYqeut8FUrX87nR4HNb+FanhE3mSxKcs0oZbK4 mWHg8AXnOm0EsoIZKJg8VaJ50opVkN6Cqit21Gb1oCGHyTR3nC11GvaiOdhL F+AULsFTv4KO8jV469cxI1vDrWbOr2ENyy2rWNGuYEW3TCxiSTeHYUk/FdCB zsp2tNO/2Tjf5iIDjDeYjvOaYLhSA0NqETSxGZzURCIJiZFEROIr3EnED7D3 rYPY9/Zh4hD2vXUYBzjfhznfR944hCOvHUD1eXr+Sw4KWj/qUsbRQF+kyKca 5c7wa2Z42DNIOD+I+vzP0WXextTENqbnPsek0n/tZhnjTQuBeb3tfYZN71Pi Cdb7H2PN8whLngeY89zHVD9F2ENv1Edv5B7CpLPzuy8vYN+sg7JCCZXASnRz ngeQlyxDfqoKN9LUKCGEac0QpWkgI5rTeLjnRFCcFcNySYTOyHq0J+vgSCVS 9NxqudXwPQ3aEjSws6ht7L6Ws5xseT98jf4L2AZMVItxfGeydwfTT8EN+gxm g2rm+IainSwfuP/FZKNh/tCQCGpmeUWWOeCO6xP12ElO30d1qAuSq5OQcqKb WMilDNaVqSYWficL38NRHSEZfBxRPxGWSIRVdNXcQp94HUNNG+gR3eFo3sGq agO3/YTQ3yYpNrBiWMeKcQ2L+kX01rgpod3oqnahQ9hJX9MOC828sVgPQ4Ff zxtgvFoBfUrOrgAL/gZJfE2KStrZEh+/dQAH3iEJ3jmCg+8cxcG3j+HI20dx 7GdHceLNozj5xhFUn2HbudiO+igPRH5CZM/w1Oagzp/nV80j4kwrChIfQk8F H6CCT1HBR5UkgnoJE+pFEmMet0iA9QAeEQ/58wOskAiL/Xcx27+FKS9jjneF pJjCpNuL4c42vGSEoriBgYNVT1fsv6VxPUVKJqhw08+G9GZUpWsgzmiBPEMP TbqRVpNZ6LwMzRcVaAtToidBAdcVG3qybHBnW9GbbeE+Q+lVA5yZOjjJoK6k ZnRGy9B2UQSfkvZObqMMyF8y4t3A5n9HcVELKkpNNO/Mwv6LD/57ioSZbtRG lrSRIe2FZnSQIe3MvXb/7XEyxJhphi7FBEWMDn8RvDEuDO+FOGcGBWFFKI1X oTzZisq0bggyBtgs6dLzZqC/uQhbOZlRtY6++k0MSbYwLruD3roHrDPWk/o+ bmtv03gtme7i32LZtMW9DfTXD/D3veip98BZ2wcHA4OdRqa1sg1GHq/xZgtl qAnGvGoYrxS8Qk6k4EdI5qt/LzkqmWw4jIPvHsWhd48TJ3H0nVM4Rpx4+yRO vXUSZ352HPv+7xOoO2+HKLIP4uQxknqaKrcA1Y1Ffs0i4i+sMZn+Cxyd2xih 2R5RzWGcZmSUrBhvnic7ZjGhmsYqZWG1/z6398gKGnUyYt67iZkBsmKA7cA7 j0nPOEZ7eCpm7UtiqNhvVeUWqCq6UZDcgMI0BYoCEtFM4dVBlMEEmtEKTYYd xox25pdOKC5poQs1cLIN8KYa4LnOeJXvgrfAiQGmVG+Bgz8zLF+zwp1rCtyp d5Ns3fGNcFyuga+5Ez6F9iUx3glOpqBUh5oKE93jzv1ZI2HlfgfdrZMD3sN8 3Vuys97Af7eyj0TpLdy5P+vM31nlYCdJzAnGoIS8ihuhApTEtDCgtqMsuZfy MQzRFR+t3zx0RSv8/HV00gm7xXcxIL2PMcUDHt5DDEqfoe6CHpPJLjwtacWi 5QEWzHfxuPcFvA2jlJgR/j/DcDKuOUiQNpLDWtUJUwWlo5S95KYSxoJ6kqMY 8qTYXUiOTvW/pNCiHnznEA6/d5Q4gcPvnsGR987i2LtnceKdszhFnHn7LM69 c5o4iZpTNjph9r3EYTRcnYIodxGKoiWcOTnGHvoltIZtuEe34Rx/jEHNAka0 cxhSz2OkeY4MmSZoVfvuEFvEJhY8tzFHnZgeuIXJgVVMDFBjvLMY6RtBv6s7 6OAZ8IvZPcraqEk1KEqVkg4qlLJTVFAbajOskGa2Q53ZBUNmN1qvuNGe1UeL 1wpjtB2uhDYMsV8P3Rxgkh7ASIkXoyUebvswVNyDwSIn+gs70H/dCk+OHn0Z KvQmiuGIrIBPw+QtKju2w4y3gve4K4oUzDg6iCtNgXvc/kUqrUSHwMJkaEGv /x424b+XPSJoxSjhv8wxxn8f5e+NkEWDZJGneIctLspJe4pxR0XeZ7SToShC j+KYThQn9KOMzqzu6gya6MxaildhZlxqr72DbskD9MseYVj1BBOap/A0voA6 +S5Wml7g084H+KLNhSeMT/47PQONk/BIJuCWjMHVMIxO5oj2+j5Ya1z0zgy3 JLqxtBnGIvaXgjKoMhL9HEFyTOrX28PvHgmQ5MhuP0nO49h7F3Di3Ys49d5F nOH2HH8+z/cv7D6LOdUyai90QxQ7hIYMNpg8Hw4ebkdS7BOIpNuw9m7DNfUv cKtolloWMahfQD+lY4BSMqj2kTTjGFQNY6Z3AzN965ju90vGKsZJkJGBJQwP kFj9U/C4B199yZEiLeWjC8XJIpSmylDGHlDOviFMb+MhOKHI7IEu0wPL1QG0 ZQ2jK28UPfljMCe60JPajdFcF0bLJzBeOYEJwTgmBWPcjvDnQc5YP4bK3Bgo dsJ7ww5vnh7eq03oS62GT2/DhKI+yJGfBZcIVN5sQn35zjIBf1jRCy2wCa3o FNrhFrTBy0H3X+MZq3FgstaBqXoHpkUdmBG1E22EHdP1rQwirRivNmOYvPH6 VaaA6pIZvOT0KuR5CkozmyjJfTNmAMVJE6hiI5fkL3Mw1mEQbsFWdw9dkkdw y55gQPUMIy2fYEz3HA0l/4JpxzaeTzOi9TJb1g1SaGYw0DQNj3QKbukEXI2j MPGQDTx8vcAAc7UDRtLZWKllO5BSWCqgzkqhlsSk0S/7aXKIenLkveMBmhzd fR5HSY/ju0Nw8r1QnN4dirPvh+L8+yG4+MEl4gJxFoKjbagNG4AoeQLi7Emc Or6BgtJtKG3bsI9to0O+AmfzCtw60sW4iB52mF6VD32qCXhUo8QgJnqpH54V jPUzX3lJqYEFeEmT/v5ZuHvH0e7o/poqNw2sLCErqwFlqQwVaRZUpDlQm94N aYYHzZmDdFkjsGVNwEHm9hRMs3PMwBLfzyn3YiqvH7MC5pnqOUzVzGKqdgbT tVPw1UzSdI5hRDiEgQoPvKXsQjdt8Oa3oD+nAb3pxZholvwaVf4E4vJmSCp1 gZUkeo61nbToYmfvFfpXkPRglJ5wsr4X0w29mGvsxQIz/qLMjSV5D+HCssyJ xaZOLEjbMSuxY0pEqamxYNi/Ou2mET1XdUEh3c3gqoIqv5OcYXApmgrc4ivP mEXd9VU0ldyGRnAHptoHaJM8Rhf54lZSV5qfwZw/iMqUh9C0b6PT8xmWhpdx SzaBVekgfHWT/L5RDFUNwVPpgTWfPMlrYVClX6VjMlazCQl15AzdSamALigt QJeUWILbI+8eJklOESTL7ktEKAkThlPEmQ/CcfbDMFz44DIufhSKkD0huLTn AtbM9yA41Y3a6FHs+XAKSem/gEC1DY1nG4bGVVjlq2gnYboYtNqbfHDIJ9Gl mIBTOQqXagiu5n50qSn+fYvw9s+jj3bETfRw39k3DavDE3R1ZMsNE71+Nd2c HOV0fOWpHRCkuVGf7qUXGUHLlQlYsqbQnjcL140FdLEp9hUswZpKYtL1Td8Y w4pgGMviFdxqXMaceAmz4gWW+BznlU2xdhKDNSOUhH54y+lXitk+ChXwXqvE hK4pyJY3gxezxKUKSCs1gYvLWqGDbd6Fzio3+qo8/JSd1Te+hkHMSoewKB/C snIIq+ohRtBBYgDrGi9uaTzc7+X7Pfx3JxZkDsw0Usbq/dfjzWyLBrizmoN2 /T3IsuRQXetENhN19kUjsiPbcCPBRXn1MAYPofH6GJSFE9CW+Gg5fBS6Kdxy fQlzwQg6SqdRJf0FjO6fwzd+l98/hdXmEUypVzGpYrkqqeayOXTV9tD6ONBR ZWVqcsJBsXRUaNDBqNCeXwxVYhgq/9fHKP6HPcj/mz3IIKL/rz1ky8UAY46R LSd2R+D0+xE482Ekzn0UiQvEpT3hCPk4DCF7L+FW6xPctj9B5GsahJ99ihuV 2xDZtyHr/xfIK6bQXOWDro4JTuyDRTKJVuk4bLJR2BXDsFNi2po9sDd3o6d3 Hq6+eVbCPDr6mPbc0zA6Br8fJExJTBHKE+tRnqQhaewkTQ8JQ3VLH4Mig19x dRbWvAU4CpYZJ1ZJmjU6yHXYrvrgyZvGTAmHiKRYZWhcV2ywsG9hXrqGOSnT lGQJY2I2P5EP3tpheKt64a303wHSwlskYgrKCRLmp8FLZqLiRkjL1XQqFjQz Upr5fziqvHBXU6RqRzAmGsNU4zjm5BMoeTOPkzOJ9ZZJ3NZNYlM/gS3jODGG LcMoNg3DuK0nibQerGjcmFc5MS3rwFQDu1SVCcPswZ3psuCizXeQeugKck5W I+eMEjkXjMjxEydxhzg12UOQXB+B4uYYWkrHSZwJEmcSHRRRWzH3BTMQVn4K Wecv4Z14yrg8jfmWYUzq1zBOjOpWMaRdpkwNwSHzokPq5j6tTZMbnY3ttDg6 FoYIzek10KRUQpNQjJaYfGgjstESko7mcwlQn4iE4tBFSPecgvjdQ6h5fQ8q /vuHKPyvHyDrv76PmP/yHkL2XcY/f+fvEP2d/4aKv/nvsNRuo7rpl2js2obw 2jTqi6bRWD4FeRXltNYHjXgSWo6nTjYGg2IEBhLHQLnRN7th75lHK2EmjK7Z HwQJUxZTjPIEKUljJGm6SJp+RoMxiNOmoMychz5nGbZ8ZsaiddbCbbiKN9Ff sQXBvgYMnGvGOu3qWsMc1lR3saGhvVbQXis2OaUbmJLdwph0GUONcxhomICX +uCtZV+qospUyqgV0t8gTGOpjNVgglrQyX7Ux0kZgpNdrZ+UHBEzzDfNYE4x i8q3JBi5qMPd1AZsmuZxxzyPu5Y53Gudxf3WGdy3TnF/EluWcWyYRrBmHMSS zoO55h5MyTsx2eBf6avHYKEK/zlImLCwaIQT2ceEJI4CuRcMyI1sp/HvRhlJ U509gIbrQyQNdbd0lD1ljArI5l5LsH+ZBD50Nc7SQzJe6tiZDT50tz4PmIdu zTJcLctwtiyhq2UeFiVJw0BiV7O61X1oU3WgQ6aHXSyGrJpmskoHjVCLFoEW 2gqCJaYrVkN3UwF9gZT9TQR9djX0meXQp9yEPiEP+ugr0F5OguZcJPZ/50Pk /OMhKD48gq6T+/D0022UxE2g7MoMyq7NQEDi1FZMQ0ziNNZPQsrZkUnHIKfi yBVDkKu8kCp7oemah7pzDjL75A+DhCmPLkd5nJKksZI0PSTNEIQpPohT56G8 ugLDtXXYC2/DWbqF9qJ76K64j2v7WqAImcNc2W08bJ7FGkmxpn3Ien6IJfUD LKnusZ7vYFq5iXHFLQzJlphBp+GVsDWJqTL19L3Vavjk6iBh3giG9oab9ZBz cJQV7TQQbhrGIbRXTaCnhmaSTW5MuogZyvwiJ6D2KD8txoPNTBMeXqnAfdsq HrSt4GH7Mh61LxELeNA+h7ttM9i0sY20TmDZPIJ5qs6Mppff3rmzOFXQjO7r jWyI/mP4DyROZIA4fkSGxyDrcCVyjzUh95weuRFtyGe7KknvQ1V2P8TXByC/ OQhN6RAMlcNorRqBNp/HTEs3Y/kEaz2fwN40gV24N/gJ/h598hFiFL1ED/ed VBkH22ubdACtjX0wNnYRNhgbOAZEU00tokt1SKGpy67WoaBWh5J6HQQiHWqp Sg3+3/H/rlgLtagFLfUath0N9NXNzJJq6CuU0BZLcezvL6FgTzTVKhZ9yeEY yzwZWFjwoO/nyE+bRAFJVFg8jRK2rnK2rkoaMYFoHFWSUQilw6hsGkAZDaPQ MIG/fik1kUKUxzAZxbWjPL6P7BlDVdIMGtIZGHIYGPK3YC++B2fFA7SXPUR3 1WNcO9QDSe5z+HQv8NDzAmuKdawZnuG2marc/ARLmkeYb36A6ea7GFdvMJCu wquYh5dj6JXS1Eg64OV5+pr1v8GcpiIZlGXWwOUeDXOWRUDDXT2L3volDEnp 55VrmNXsLBq8sW8CbZETWLnSg6f5Sjzq2MTjztt40rmBp13reNK1hoddK7jX uYQtxwLW22exavNh0TKGWcMQpig7vqY2TNbpmL6b8KfBu65hlyPImihEhPuZ E40osidzXxlyjzQi90wL8sKsuB7fhaI0dvGsXtRf90Ba2A91qRf6ygEo8lww FdNeimbRr5rFkG6OsWkI3WTInUFaaNkg3DRiPfJBuLjfxVnpaPKSYf2w0Mob ad2N0lYYGvwsEEFUdI3MS47NoGlPicvAoZ8dxNF3zuLouyFEGG1yJA5l6xDC XhtPWUqv5jGSQYUiDcoa1BA0qHApJBIHf5qMvHPZUKXm0GFkYrA0irP3Fc7u j8KZ/ZEEzdL+cJzeF4aTey/jrQ+T8daeJCSU9cPXPgqfjeNlMgaZ8z0oCqqh KmaDitKRQQ6Ux3rJoEnqzjwaMtegzNuEofAe7KUP4RQ8Rm/NU7hqP0F/w3MU Xv8CltYvMDvwJR63D2DV8gIb1hdYYhRdbHnKvv4I09r7mNBsYrj5Frwq2nLV FFk0CK+8C55GPdlnxm/QR17UAmVgdbSHCj0Kq3CGPpLuW7KGYRqnSc0W5nR3 scK0sGG9D9VldgU68seF7Xh6Q4Snrnt41n0Xz3ru4EnPFh5138Z91zruOFex 0bWEtY55LNmmMWemRdJ74VM74ZOaMV77cmX8DxAWGo6Ir+kTQ/rEIiY8johH 1oEG5J5sRl6oBXkxHShMcaLiKlNLnhuNN3pRlm1H1XU7KlLp4+mZXU1T8NAf OyRedjEvnFIvbg885Pv9pE5/YNtFOJo8TDV9sDIFmmUuGGXtMEhN0DUooayp QVJsup9BfEmJTccf4sjb50ihECatcEbzSBz9IBonPorFqb2xOP1xPCkRhwsH 43DpUAxCDkVxG443dl9FfEQhqvOKcOx/HELoj9/C+YNReIW/GYXfxfkD9Nik zxnS59TeUJzcc5E4hxMfnmJ6OwKf2RCkzqtQ5tcGVkyWRehRHkl/Ez1IAfJB mLwI8dVbUF7bguHmfdjLHsMpfIbeOnZs0afwSD9DYeYXUBp/ifGhr/DIu4oV 2+dY1H6KRd1z4hnm9I8xrb+Pcd0dDGvXMaBZgreZbYtdvV/lgs/aRxpb2c4E R3fY8/rLtbrXa6D0r+Us7Q4sLdeX+5PLApziVXhktzGivosp7QPMmx5htfUx brc9QcW5Jab4BWyxfXxWocMn7id43vsYn/Q+xNO+B3jUew/3e+/gjnsTt7vX catrFcsdC5hnK5tiG/O1sIUp7ZiQaF4+WhHBzhUZHvVr5IkleWLDE5DxYS2y j6iRR++cF9WG60kOlGR2oSrXBXFBN0qybexsrajO7YGsws14y4irGoG9oQ/t kj442J06pb1Y897dxZbVi9+j9LjRRlhl3bDIXTAw++lkNmileqjFMtSWlyIp Jv0VP3/wR0iOS8eRt86SQpdw+B3SZ3ckjrwfjWOkz8k9cTi1Lw5nDsSRGrG4 eCgalw5HYqXzc8a/L/BhyHW8/beFSHwzB8I9EWjY87Nd5FYUj+ISOXTxIBPa gYgAi87uCyUTL+H03nNk02mc+vAYTr738UsCKa7VMYazT9xk0YQ5SaIh6s8U tWcJ4qx1KNi1dEUPYK14Qs//DO76F+w6n2G4iQSKf44G7TYGh7Zxf/wh5nWf YUFPAhleEJ9gzviENvEhxg13Mcw+M6Bbhlc7g34tu34zCdTmIYnsGFbX/hqB vgcp/Yfypg2qkr7AUnxDxSzstTSZkg30K+5gVPOAn/wYC5ZnWLM/x2bHC5Sf mYUpeR2LN2fxoqobz8oVeNH/CZ73P8Mz71M87n+MB56HuNt3H5vuO7jVvYHl rmXM0xNNWyfgM1CGNP4bFnoa8lrsPKHx22RRBCLDooIdLBbRZFBMeMIuxJFG 3wncOL7ysRzZp+mn2dDy4u24mdaOiiwHaq93ITOqhT93orawB/LqHjgUozDX 96BV3ANbQw/skh60SboJF/eJRhesUhdaZU6YZF3Qyx1okXegWWaGUqJBQ42Y TSwxhhJEMaI/S2Yn8+8d/tkZHA5wKQyH3/VzKQZHP4rBCUrRqX2x5FIMzpFH F8ijC4fDsdT1gl0qDGcPhuO/fS8fZ/8pHzd2p6Bx3zF+QcihSPwBQkikS8RF kunCgTCc33+ZpLpEUp3HmY9P48zeozj1wceIvsixOR/1w+AiYUUOSVVAUt3o Q1mIk8QiqWKmIEhdgih7A/L8O7RhD9Ba+QQd1Z+gW/Scjeg5BuUvcCPsDoSq bbhJqq2ZT2lQtjBPMs0bn1EvnmLG9Jiq8xBjxrsYMmzAa1hBv2EWff6njDon 4XP0Q1teGViXGhoSzVO5HOJfnRp6cWc9nB/7f51tTddVUBY6oCryknGTMAgW YK9fY1PYpNjdZx5+TIl5hgUbHVr7Z9js/ILN7EuIYrYwcmMdj6on8HORGS8G PseLwc/wbOAFHg88xwPvM9wl6zY997Hu3sKK6xYWOhcwY/fBZxmCT88aaDZj UFIfZNufkGl+tr1k2k6z8+tVfHgimwY9REQyEiOTceWwFtkXrciJsuFash1F mW0Q5HagPIVuPMeFujIXpAyjmiondLVOGOpIJ5ETZnEXh8Qi7sTvc98Bk8RB j9QBfVMHWtjs1PI2KJpaGZcMaBApkRCdhoSY9B3KvRIg2qs49NPTpNsFHH7r MqkWgcPsekdIteN7Sbf90Th9IIq0iiLdqEGHLuMkg/5Lqv3j96LwLqUrhdJV S+mS7nkLoSRbKGkWcjCCdAunfoVT9ki1gyHcXiDlTpNyRwPL4WI5m/7lcNHn I38YnD/VtVao8qkUBeMoDRlk6J9CJfWrjvolJdU0pJqp8jHaa56w+T1FX+NT eGVPSbVxlEi30TG4jbWFX2BRv4kZ42PMsi3NmB9i2vwAEzQ4I6Y7GDTdhse0 ElhNo6u30U/qoKtpgq6yEuGBZZgRobF8CfGvgY64FIMIlkT4hSjs+3WuyfKa WRZd1Nshcm0KhqolxuJ1uOR34dU8xKjhKaYsz7HQ9hnWHF9g0/Vz3O/5BYTh t+HII4+qV2h4JMiPEaM804iqTP99OgPq04gUPeqSmITitKik7Cw4lzHTMUON ZWmY3fR5/mbdEHzI6K8QcTk8oGxRYf7+GEe+JQS4FvcNriVE+vmWguR3m5B5 0oSroTZkxZJzqdxG2lBxxQ0JVVpd64G6zgVFZQfUVZSrmg5oazs4TuRWfTv0 ojaaKBtaJHY0S+1QNdkgJ6SEpNGCOqaYuKhUxEelIX6HcwHKMUYkknNJQRz6 6XkyLxSH2DAPsmEe/igKR/dG4/i+KJykbzpNBp05FIYTH4fgFMXq9IHLZB2F i77rf3yvAOf/6QaKdqdBtu8EWReFy37mkaUhh8k8bi8e5u8eDsGFQ+fJvNNk 3pHAgsy4yzGIo6LEXopC9IWI4PPopF6OhfTrher6OKd1DqWRPpQnL6H26joa 2TpVDHyGyvuwVT9Ap4ihr/ERHdAjDCgfobhuG+b+bcwvbeOJdwBTJjY1833S 7h7l4Q7GzFsYNm+ipaoX6moXdGKWstgOHcOuvk4KvbA8sJb7lcA67t9GdGAd d+zXK4CjLtA3n4/a+xtil9PCYnHxaIdJwBkYqpdpam7DpbiH/pbHGKXOTlk/ xUL751jt/BKb3SQgo/Gj/l8gJaIFNwKPIqnQlCKhzpugzjai5aoR2isG6DL0 0KbpoEnWQpXQAkW0BpJwNWovKIJu0YYhVWOQgN/n0UeQfNGBtc1RYWyrYSRg WCIJ+JJ8KQHy+ZdZJEVz/30F0k+1IjPMhpizBmRFu+j03agvdUNaxW2xHQ1l dkgr7JAL7FBU2aCspo2oYy8SWaFsoLCJWyGVWCGRWlHfaEWtpBVCsQExkSm7 /Azc5affLvIvjdRLiE0jCXdw4PWzTH6XcJD99eDuCBz8kPTbS8u/LwLHD4Tj JGl24kAITuy7ROqF/op6FLP/+b1Y7P7bYqS/eQ31e6Mg2/suQtmHQ0m70COk 3xGK3pHLRAgpeIF0Pc30eAQJgQWlfvpF79AvJCpIvVehuqon/Xqgyh2l8s3R J62hLHEBVVfWIb62yQi3xeh2B5bqu2ir99+ovIeepnvwKO/hZvlXUPduw7e8 jcezS5gw3aXS3cGEZQtjlk2MWDagJ+00NT3QS9wEjYjEBn2DltXciBZBKaJJ vWi/5sWExr4SWH7+LVIwJrAI3e8Hoi9E/X7gUL+NvHwjCgrMKM5nUrlmRmWu GcIsEwSZJvz4N+iZpWFBkZ4FIzyjWehrVmGTbNJ/34dH+4Ra/Anz8wvMd3yG VefnuN3zBYqutqAsx4DsaC0E1D9FmgaGDBlMeUZYc42wk6JtWQa0k6LtpKg9 Qwer/ym5RA10cf4lqwx3ITKIT4oYbF7q4w9Jz6A2chaiSc2YIDXjg7oYoGeA msFb+dSt2A+UCPtQg9jjDmTEulFIelbedKMkz4bKAhuq6WprS2wQldvQIKD2 VZOKtUR9K/utBa7eedSIWiEQW1FBlNQZqc1JiOZ3xkSkIJbf59fJV0jTVHLB z9OEmNSvceD1CzjwVgj2776M/R9SJPfQDX4chqMUw2P7Q3B0zwUc//giWboj kGcO7DD0AoXzf33vJi79UxFKPsiE4sDpX7HzKMXxKBl6NIygOB5hSyZDEyMT Aoth/euc/Suc4wMiGYW4kIi/DJJUlsZ2d7UL2cdVyD5rQnZoO3Kiu3ElrAf1 uetoKtyAuuw2DMJNtNZuob1hC86mLfQotlB47QUkzm0MkaT31+5hsKyd03+b mriBIfM6DCSntrYbBj9BG7uhl3Zy20qiathuJJCWFiDGv6g+NG6Xf2X9Lv8e dfLrhfWBxfU7biLmYtS3Xy5bKzaipMSMCkJYbEYdg6yk0IwmEjghUoLECAnS wiW4elmCvEsSXD/fADEJLc4yoyGTSDXiH3+d1JL0FihznOwSO6TWktTWxi10 KR+gT/uYZ/QUk3YGJsdzrDhfoJRFUJmnh+iaEfLrxkBT1/Iz2q6o4MyUwMn3 u0lsNwneS+K7c/ToydGhO0uLrkwN2tPVsCUrYY6TQc9DVZyoCpL6D4Kkjv0V qcP9pE4mqVO+JnRi9NdrU3YFbiT/Kd75USbijrmQEd2L7Cu9yEyxIe+KDTdy bSxrG8qL6AVKbRBUWCEUWlFFXgtrW1FZ14qyOjOM3fMoqLYgT6Cn70hkqkr6 Fa9ZS7GRfm7z6+KiAxLsf4lJYZb4+LVz2PfmJXz8Tig+fj8U+z68jAN7Q3Fw L6X4A8bnPedxjPsnmHMDhKbPPEc5Pn/AT+hEfPh3pch8Ox/i/bFQ7NuNS8dI 5mMkM3Hh2GUiBOdI6FMHTgbW/PpJnehf4R0RR/n1k9ovvZFkSXjwb718n9ki CqF8/zLFIftQFXKOypHD/JcT0kZD7sL1BDfyuC2M70FZihvNlX62bqBVtIE2 6QYas9pQkH4XgrZt9Cxu4/bmc4zQoHsEVvSb1qBnt9fW0KyT1Qapk+ac8tvU RpjJbjVa6sXskwwGl+PZGuJfCTx08Dv+3cBTJHGBJ0p2SB4bNC2xF6O+FVxk VV6ih6Cc5CaqCVGZmbViRkqsCBnxElyJkyAn1m8xJSiKkqCMDKok2YUkezXJ Xn2mAdqsnb9io00jkkxQRbf8P9+8gvg9KFj1/oX6fo/RQr63Nm7CobqPXt1D Vu9jTNifYNbxFOXZalTl6SC6boAi3wA9IUnUw5hugPNKC0YyFRi9bsYAe8dg gQlDN0wYLCRuGDBQoEV/vgbua81wZSvReUVG3kt2ln0lGyiS/mP5ViALhlGc /AgPjaFBDzyq6DfrYX6wW337pScOCaOdoiXh+L352iG8/dpRvPuTY9j9kxN4 /3XiteMskVSWSFpA75NpUVOIN34UgpD3G1GY1gJJXQtSk9yIi7MjkT45/Sq9 MvU/j/qfzzopYJ3cYJ3cqLSiQNiKa1WtyBZYILXv/M2m8AtxCA9JQHiwTiJZ nv46iY6gRaFP4Rn520BsdBAxfDs2Jhl/hI+o/nuo/h+9R3xwCXs/vAizYgn7 PziDQx+dp/pfZLGEBIrlNEPZ2f3hgWLxq/8//0UxQn9cgtKPrkJ56Jy/QHbh wvFwDtR51sk5Cv+Zw+cZdPxLor/NQUjaqZXInachEsJj2AQo/qERwTUxrwbu OYaxRsJYR/4nD698XIacg43IPdGCXIbX3AgH8uKduJnazTDjRnGyCxXp3ai6 SjWvW4O5YQ3iqw6GJjdumrbRNr+N8U66YkkPBhvaGW67YGnoZoh1MsR2Qdfk gJ4hVi+zcp+eVKJCo1Dor4+EXYFHOX6Px5gQ2ItnycQxXAee2Qk+dhWwWbRY sZcidgVXm1VXMF9VmgPwP9TrX7OqZNFkJTUgJ0mCa4kSFCRIUMLCqWTR1ERL IGKXkLBLSFk0TSwa+YUGyE83oOmECK1XzLClEylmWOP0//DNovlLyNI76ekG GRum0cykZ5LcRofyDnq09zDANDpme4iyLAWEuRrUX6PTyddDx75kLWiFo8AK S5INfZlWTNCYT7MoZkrbMVfejomyNkyU24lWjLHcRygBQ8Ut8Baq0ZcvgzNb ggH/Grh8E5zpOgrbzsT5HxndxYxIl+cviG/7DV8gbQS233hu1J92fyt47+DN 1/bgndcPYPfrh/DB60ew541j2PfGcez/6QkaaD9OEqdw6A3i9dOBFUuv//Ve HP2flYyUWtRVaCGTa5FK850al4ZL4WZcTrIjMsOGuGwbEq/ZkMRSSi60IrHI itgiC8KvMz6Gh+NbQccZKJ/QRIT7yycsGZEsnyg/WD27EM3qoWVl7URHs/2w dPheTBL+EO+/cQEfvH0J7797AfK6ebQ0zmPf7tPsNOdwiMV0dM8lHGcBnfz4 cuD2TqDb0D79+Psp+OgfKnDl3RtoOBgP5cEP+JnnAtVz9lgYTh+5FFgU7F8a nMzjSwpUD7tN1I6FSoiIZQVFk5WRwSUe3+IERAVvvAae2w3MA//R/who1l4R co6okHPOhNywNuTGOlCQ1IWSdCcEWS7U5HUHrmILs7tQm0dccaDhuhvacg/s tf3olnjgaeqBTz2HjioHbOUm2icHFBIaDokBWv9laxaRRqqHXCRjkdAkcCj9 RZTEifZfHYgPhLSkwJWpBGKnwL7H1/ivn3mLD91pniwo1FcaIRaYA09fN3Db RGQn1uI6g2Q+UUAUU7wrWFE1rCgx25CUFaWIboQ6qhEaVlRLWCN0hJ5Vpb/I NnROhE56L2e2f+2mCV0perRFqvD3v15Wjckd7EdeqAp9UAuXYGhYh13BzNuy xX57F6WZjRDmqFCX14Km6ya05LOUCtrQUeCAi8Nn5tD2ZTkxyZ8XiluxIOzG ck03VupcmK12Yqa6E9PV7fBVsfSEJoyRwUMlKvQWSDBK06MML0HT+ZuoPXid kxjzjWd5/5yhgo067BuPfAa3ged7Xz7Ty+qKvLBz/bK81AghS/i91/fiwzcO YO8bh1ldR3Hgp8dw+KfHceTNEzj25kkcf/MUTrx5Gsd/6scZHH/jDN77mxwk nm5hENGiSarlMaTGpdMT+qssxY/Y1CBSWJX+YEOWRpOl0WRoFDU+itMZEf5b wSK7fCkeYSyyMDIjnGyIiNgptMhIf0FFRSXjPyGKdI/kx0QEwIKMiofoyhQa bs6TBfP44K2T2PPuGRbZeRz44CKL7BKLLIRdKjRw2fAU88kZFtjZw+F47Qdl uPx6Gcr3ZkNFy3bmeARO08adPBoasKs76+5/N1BiSX74iyxqx9IlRMYFi4wt KiwM3wlaOf/96XAWXjjbV0R4LHttbGB6oslg//O5Ke+W4ep+BbJP6WnvLLR3 duQmtKMwtQMZiSYqcSdq87sgutEVWA+tLZpHdX435BV9MNR50CbphUPmglns hbWhD1YxW1adBTpSRMUKUxNK2jqZpMVfYTsF9m2+Ju9cAQkiMWKn2PzbXYF7 Dq/udLHwnfiVcHnHqe796d7AQ/KNVebAVk5cS67FjVQJu2wjiomylEYIkqVM FVI0JjZBkSBDc7wc2lg5DDEKmAlLtBythC2GjiqqCdZIKVovi9Hr/9Mc+f4/ e8Dkkcm0Ea/8u2+ucWILS+2HMn8Cqop5aOtX0CpbQ6dmA0WpdcFn5pshvmZm FmqHMb8TbfkuOK654S7ohTWd22v9mCzuw1KlC2vCNqw19GO90YNFUR8WxG6i G3OiTszUtcFXY8G4UIu5Jvb81EpoE0rQHFkMxYUbqDmYHagt/yR+K9DlGZmD 5tjf63cFXv/9Tq2xi73344+x+8f7KVM7f7njw9f3sK4O4ADr6xDr6zDr6xhr 6wRx6mcncfqtUzjz1qldfDnNxvGTH0Xh8h45CjN1zPE61EsVgeJKIX5VXv5t sLyIJLacxBh/eZGf0VTMKPr1iPDgn834HUaMBHbiRFzmpIf5Eck6I8LI6ctR Cd8KPk5TnelDXeE83mPFf/D2WZbTBXy8+yJNXwjLKZQJidGfveoEe9VJltKp QCmlYe//y367+yYkhxOhOvwRjh25jJ3l5r9PSxt8QoEq8HU5Re/0q4Dj85dS RHSg5/5Z8EbZy6UeO4jZKaXw2J3n3P+Mr/GBnJL2rhhXDmtw9ZwZV8OsuBpL Z8z2npJgQGaqAYK8dhQntaIui1VU3A+nZhVVJU5IGYpU4k7IFcuQi3vR3NgL rdQNndQFncQObZ0h8AeiJOxhwqrGXYEaemUn1waz7bf8t05eCTzd9xd8IzH4 ZK/fwMZi38/2YT+x7829O3+dQGhBfnI1itLo7tKlKE1rQhkhTJWhPkUBabIK qiQNtIlaGBN0sMTrYeM5tCUa0JFkgCNZj85klkhyCzoT1XAkKNAe04jBUiuG iswYYtAZyGZ4SZHhb79ZQz9CQ1wvZDnjgQeh1bULMDUuo121ivIMMaqy1Kil vWviMLVcd6H1OgXmhgdd+QPoKxrEUPkwXAWjmKgYwXLtIG6Le7AuG8GGchir 0iGsNA1guYn1xKGbb2TvamjDGAO6NVcM89VaGNIF0CWWQRNZCPm5a5zhYM0E LvLE7aiNH2Fxu/w7uwLv/rtAu//gjf348KcH8BHrZs9r+6Gj+ljY5g++cRCH WUdHWUfH3jyOkz87jtNvn8TZt0/h3DunyLrz756m6r32owM49uMaZMfoUSvQ o1Gpx6mfnAoU0i5/Ke0K1NHvBJpU8m9UUULMyyqK/uOgEy3PGMM7PznNyjiH 3W9fwIfvXsKe3SHY90EoDrIq/BfGjjACHWX8OXaIOByBn/xVBcJ+WoGKfblQ H7v49Xr6wDYmLVAVKTEp36iMYJMJVAbHJZI5KCIiuHzuleAihJ0FULsCSxG+ FbzZEhcoiVh/NGE+wZ8Goknq7iZkHGclMB5lRhBxVuZIHVLIptxoI8rTOiHK dwfWJKjq3BCTTb1tC+hzLKCx1opGUSuqRT0QS3sglfVAQagau6Csb0V9sdh/ qWdXoCb+baAqEiO/gajf2Ppv/bz0qRE7xbL/Z/t34cBbB9g/97/1ceACu0rY geK0BpSlNzG8yVCZJkd12v9H13vHx3VeZ/7PB7K9TrLZ4jhlsxtvlNiypLW9 comtZoq9g+i99zaYGfQOovfee5lBb4NBG/TeQRQCpEiQEilSXbYkK5aV2JtY v+e9d1Bo5/fHwR0CJADeud/3nOfe8z6nHXWx3dDE6tARo0df9BAGokYwEmPA WMwoJuPGqDPGMJs4hrnro5i/bsDC9WHGIOYTdJiL7cIWxd122Th2iqlZ8nTY zOw44OSs8TmztIk853W0sZDoadhHflQFyhK01I861KeOojV9FrqMZRiy1jGT ewMzedtYLtnBZuVNzObtYrPiNu437OJd7Q2827KMd7pv4lH7Dt7q2MbDDvLT voZ7bbLf7GRuB8aymRUzmjGQUof+hAroIgvRo8xCs0eSsfx9ShgFSGcqkmEi PppIt5P+GyKNlgEW51i0nbPlOiOSizXsTlpjqsIAe8olx9MOLNYEIEwwhMOT WHhfdofPFQ8T+F71JCNX/k82orx0KOUpaW7RkRwPeJ/3gMcpV5kRatzDZCNh EktEoiVMIqTgchdCratWy8+cv0VBp8T51zxx4awPLl7wx5VLAbh2NRDm14Jg ZR4EGysFbKyDYUNMrG2VRCQBli9WIMW0AM2O0eh0tJDQ8PMrQmBACcVhCSL9 ixHrV4x4n2Jc9ypGokcREl2LkOBUhFjbAl6CSpmQPz1srlAe5gz5sXeI4uBp UCTRiHxKKo3+HlHX2hHrMog4XwPilCNICB9BtL8emWGTKEmZR03+PBor5lGR RxIKhzE9to/pyX3U1AyhhhRUNwwju2oehU3zqOQiWNM0hzKV8CApZiqMQOVJ 8ydvhqp4AsUdH/ko7n/E8D1ldfsVIx5RUi6xvWBnwg+2PKE2F2zQXkE5FltH YDUoj29lcdjO6EFNnJ7X7TDaY5myWEQOxE5hJG4GE/GzmE6cx1zyPBZS57GU No/ldBGzWMmYwUr6JFbSRrFMqbN0vQ+7NZRvlVPYLR3GbmEPtnNafnCcjr9F VdA8mlJuQVt4F63V+yiMquNv0oXK6yOopzBsT2WJmrGB0extzBTcxEzRLSyT iM3a17HbdAer1fdxl/r3nY7b+Kh7E4+6XsfjntuMW3jUcxNvdm9hv3PNBNNF fVyTxwu6YSAkg5la6FPqmUjKoIvIQ6ciVRSsAoPIryCKZ+pb/BghVeViR701 T5n1BTuuKnawO2dHAWMHpzOMk+ThlANcTgse3MiDB3ngxX7FCz6U476m3vC/ 5o0Tz7NKsupEbnI/Ghr7UdmkISoe8L3sAR8y5H7KRcKCUJhINFB9C20TytUt VPAgp45wwYRKZWzE+N8SFOJOh4o1oyowkoIgCmfP++HClSBcMlXgslkw9VCc dCMwSh0vOrtw6vkyKM6Wo8wmnZdnLkKCS/hfL0E8I1lRgoygYmQFFCOXcOTz cssnGAUEI59g5DkVIse+AN3RA8YOyP8sN4Mca2CT88aTZAhZLsAIFwu7kAr/ kyda7hGJJCVRfgYonPWIDpxCesw8CjLnUVo0j7zMERTkDqOIhJSUDKG4nFE1 jOKaYRTWjaCwnl/nMaF8Dk5BHYgK4xkO70SVugVNvuTeVo3yV6+JJY4nQeyJ F6chTjqaSLx8V3pkGyURFC1RYnPeVtrDaHeRJbXwULjggGivOJTGNjJrtBCP blTF9zN7DKOJ2aGNua4nbg76uAVKgyVMJK5gOnkN82nrWOKFu5K1gdXsdazl rmM9bw0beSvYyF3CRs4c1inVVzMMsl9U/SKlwhT2WNHtlnbiRm49vn98p+A/ oCZ0HY0Zd5GpLERhZAtKSWlF4gTqkxbQnrJGTrYxmreHmZLXsVx5F0vV93Cj 4T52tW9gqeYh9oQVSfeb+LD7Dh733cdj3T3GPt7SvY43+vYwzwV+vnwEM2VD mCgZwGghC8a8TgwQlv6UWv4Xi9EXniE7Tzx15DzB+Aqi+fE7Yn2RfAbsLlKM XHSC4wUnOJ93gutZxhkWVqfEkde7SAaXvOBFRe1z1Qd+13yRYB+OV59jbjld j+TwflRXkpW2fgSYe8HfzBN+ph7wu8I8w6JMdCdGi4JHJA4p+A4SlggBS6gA hcUgYQlRKY2wPE1QVAxepAHhDBmWEJbfYVxHw5WxEiiik+g4LCefT4K/azmi fJlJAglGYCZSVCXIYuQpS1BEYEoJTDmBqWQmqWImqfYqQrVnESrdClHuXIAR 1gsjMYMY4P9J/l3+C6EhuMZevePAHD69lYA5kNb8v8llkImEzN9JF6v35Q6o Xab4qy4gIXEBadnzSEweQXL6CF8PIyN/GFlFQ8goHUJmxTDSK4eRVsWvVY5A xR8Twh8RGhSNE65d8FZ3ISGyG0WMOrUGGt9saGwCUPJP5seBET0HUdIT3UNi +K7LtDgwnBguvAZcmFETUUYZXxHXjcq4QVSzlqqLn4Ymfh6dpEQXv4bhhA2M JW1iOnUb8xk3sZS9i9XcXazn7+JGAQufIkbxTcY2YxNbRWvYpOjeyJshUaPY o1DYayQ1dZMkR09yNN8/vlP/GVRGbiEnuAqF4V0ojjaQ31nUk8/2lE30Z+1i tOAOL/Z7WK5+EzfqH2BX8xA7bW/hfscj7Da/x/LqHXzQ+xC/6CMwAw/x1sCb eKC/j33dbSzXTGOhehKzVWNSZTRWyneZOWaA2UXP8kufVAF9bA7aQxJ4tqKN LhyiHI+R769+ix+jCAuXm0s8eZecYH/JFU6X3OBCteEqkoIw5TAac7idJTAX vOApdtlf9YWvmR/8zPyR6ByNK98vQKRPP0oK9Ghs1SPI0g+Blr7wt/CGn4DH 1B2+V1zhdd5ZAGMiEfM1iZkIiRmWLmQmjMyEhoTIzud/BqW/MbcIXJhbVBIu MRT/MQiTcIk14iJ0j4Dlr3g5FCDIrYq4VDGPlKFEkY/ckBIUE5dy4lLFHFNL ZOoDS9BInJqYY5pZkDX7M3wL0eBdgJnMQUynDWLq+gAmovvRH9DxzYNfKUi0 4hzvBQuX+sGkS5nUhBmpEZWRyDMSLzFSMURoLj7rA+XZEuQoO6gyOhARNw9F 5AiU8VQvBCeK4ERnDSOWNVlgUhsiCoYRXjAkNf2oqHpkaKIJDU8CT0R4cCwu +XZDEd6N1JgelEX1oCmkEa0+6dBYeCLne+ZilTyCRhRqNuetZWD4fgsTFju+ 17Ee0Uj0SSIwHRTug0wtE6iOn0ND/DJa4tfRE7+JgcQdjCbtYTLtNuay7mAp 5y5W8/exUXiPcNzDFi/jbSqM7fK72Cl/nXFLsjLYpsLeKFnFWuEM9lpvYk+7 jr0m4T0/RnC6sVla8T0ZmgvSwRTZ/rUoUPejMGJSMimpi9tAa8pN9GW/zgv8 PqbLH2Cp9hE2mt7GzZZ38HrHu7jX/R62mj/C/c6P8G7fe/iFnrAMvYOHQ49w r/8NfLL4IZbrF7BQN4e5mhlpp+94xSgMpcJppwf6nFbo05hhkgpZWyQfgIIY tfEYIl5HSzWr/SV7yWDA/rIbnC57wvmSJ9wYHhc94cnwvsgUwbPqdo5/pp72 uuILb1N/ef+4RSBefjYOAbbdyEnVo65Jj8KaGqR5RSPQ2h/+Vn7wt2Q6MveE 7zVSw58TGSKnmMhDXHihEZmw0HA5xajVxmkBX5eZ8Q/5A2aiD5gxkXLM/yI2 8RI2Map8xIcUQ+1RimifauQEVhKRYjQqslnDlKJOVYbG4DJoGC2KMrTx2K4s Q4cUpYxitCsKJGeI5XyW3DmDWEwfxFxCP0Z4lUvtxQEhJhQ8/BAktX0G+asR 6Ks2yprjXB21uKmMfUShxhQRJl3t8i0qCamnpOLpL4iUL5TnypCj6iRSnWjW dEqL3ZHkOP7kKASnf/Yznhf5wbU6kPCKcxQYJWFlIkH1EwmrcCVTMcNK0YvQ qF5kx/WiKroX2pBatHsloemaM1ccYzEnHWOlQs7ugq1Ueog0ZEdZasfrIcEz jnSlojxGh8rYcdJF+RW3igbq8rY4XtcJtzCcdAfjafcwmXgH86n7mApnkRa7 gt3i+9iueISdyke4WfUWblY/ZLyJXaqOm1V3sV11CzcqtrBWtoy9ztexR12+ 17rKSou0aQdY1DU+QdfTaMvpQ0f+FPJDZlAUsYrq2G1oU2+jJ2cfQ8UPMMmf tFD3DtY072O77UPc6voId3tIVv8vMOHXjnvKdqznzmA3bxq/Xv4Mny3/CmtN a1hpWsVi4zLmWEZO185igoQJw5Ghkn7o+c7osxuhTy9FX2Kq8RHEcyQqVrqH ehD2l2wlshwp5h0ve8GZucb1si/cGVLeueJDke/FIswTb3Q/IG2+pCsAPtcC 4UsJ/uKz/Hdnm3A9kgKnSo+aFj3SfBMQaBOEAJtA+FsHwI+E+Yq8ZEbxY+oC r8sOh2SFk6xwiSwqh1Dq65AQo8r4DoJ9g2Wy/EXxFvGHZCFcdVTAxalykRhS hOthJUhhxHlWI4+rWq2imgiVokFdDY2qFq1qXk3qOnSF1qEnrA694bXoi6hh VDMqscPUvs1q6QZr4g3Kj5YA8YQsH01OOSi7kiLaqQPFE0/ZoJgflf4iQg5b q/9E+uX/nL+s8rBHT+broPyKOmxrEpd9BP8jkSKM+iSO3/fis35Qni9Htqob tYVdaNJ0SaVYjNBQquM3v8TtHPH8KARnXnxR7g8JYI4MjJCXIiNmocYUfhwz ceJes+6Gc0gvYmL7UBDfh7qYXp6gSrR7xqLxso1c/onKTx1rrPiEixgLFdMQ Hr1kzLxzUB49gsqYWVTFrhKzbTTF7aEj7i76r9+HIfUBRhLfRLdqA1MRm1hP 3MKtnJu4V3ITd2vexm7t+9ite5/YvIsmvwYsBtYzST3ATt0+btTuYa36BlbL Z7HXfQt7XcaBLR1MZC0dT2B2Du3ZA+jIm0NHwQ10F99iWt1FU9odfu4N6Eve wlj1O5hteA/L2g9xo/0XuNn1S9zu+xiN/hu4m38fX3Tcwm87B7HHyvFR9QLu CTMWzRZWNDew2LyOuUaqPCY0fWk3RnmZiBvI+qJu6PM0RK0SutSMQ7xiQ+QH lrGh8p8dLjnKiBElR2GidNkP7lf84UGUvK76w0ckK1OWb9eYiEw98bb+HWIW SMyCiE4wLr9QjHC/fmmqWy0RC7JVIlCKYCa2IPgTN1+i5ssS0Id1iI+ZCxOg g7j5FyruB4nkFSohRs0REvY/jYQp/XjB+IfJdPFiUbOgCgkWTW+xh03v8cpM JIUUIDmsGKkkKyusDEmeNcj10bCm06LKPheN9qmocC1AV5gWvRFa9EW1QB+j xUCsFoNxGkYTowG3G2Zxq34afZGV6A4vR5e6GJ3BhejwzYPWJdP4/FklCFNL rePSg2ZjHGsf/5r0+3+TGAYeFYcSaBGUeEbQDmSedNEbQVPJoAnMLjwbgODz FchWEzK+jU3abrlo+4Z8f0Bt5OxYO1GkMhRnXnoZL//oJYkz6bQFyJypg4x9 sPxxYeSLnMmp/4XD1H/SrQ/eEX24ntCH0sQ+NMV0okNVina3cNSdteTfEdnM nvpA1IgecL0WTsy8EWgegkQvCsuoCWK2hKqYTdTE3kJz7D0KqwfU6Y+hS3iM buVNTETsYSXlNrYL7uE2s9d9Vmz7jR+h3KMF1d4tqPdvxZxyDp+WLOFLTR92 Gh9gs/Eu1urFSB8x7+UuQ0wFYkbrnSJuvU9g9o9ozxxGR84CsdpCV9HrGKh6 E+ONb2O+9QNi9xiDVe9hvOEDzGrEgIOPsd71KbZ6PoUm+TesC/8dX2z8G363 /QC/0OnwfkUv3tau4EPtLa66y9gon8dKyQwM6e0YSm3h/6wRg2nd6EkSPkKs F/OrocvINmYvcXtH9OJ8G/YXbYiVq1QbOjJjOV3xk82nrgbC0zQIXgIjs0Bm INlPyN/cB+8Mf4QPDB8RMQVeeiYRfnbdyEztR1VjP5LyM4mVStqJIfYAyft/ guBDfexj7QdvSy94m7vBy8wBrlesiBWvNyIWQsTUIWHyg8fnJNN6pd+Tckp9 kMB4KcYGpSBZnYOU0AKkhZUiPawKuUxKpWFNyPXsRJZVFaocK4hGEWq8y9Hg V47+2C4MJnRhKLELI9c7YUjqYLQzWnGvZYWfb8ZAfCP/Xh10UdVMcGXoVbHE 9stGq3uq9MwzVG4+lo5PSQ+af2hs6xBd8mqpS/7sS5bIY31ZlDeISkYt68wr J8xh+po1TE/YwfTnDjB91RFXX3Y05phjd1WMd1YiVbJUPP9sIIIvVBK1HtQU 9aBR2yP1KIoyTvRHRIlyW3WcOfKmIm+qMPL2El750StGWfoHvCkOeJOXKgFc /DHgItXU4dTi5/10CGIpmHad5SBDG9PKOjof7c4KVP7cksCxbKSccL0WgRhH rqhmkUj0LEV55Cwqo9dQHX0TNTF3oYl7gM7rb6NefQsditswRN3FfNobWC96 jJ2aD5Dp0I48lw4Ue3Si3IeCjpmlPmgfq2Wf4fPRX+PLzceSkfKm5j7Wm25h tYHCTH8fewPMbQM3+Hpe7Hl/ArhLaKdGlXaR5e4gTTGE/PBxlMfNoT6ZUjFj HV25W+gv3MFI6Z40EW+m+jY+mv8dKlJ+i8XpL/Hu3S9xd+MR3l3bwcezE3i3 ewufTnyKW+13cbPtFra0O/w3Y5iqHMJkeR/GStoxWdyHyYJWTDKvjaVkoMHU HbUXHFF1yhrlr5qj6CfmyP2BOdK+b46E75khlOHx/WvwN4uHwjIRatskAhIs 5S5/CwUCLAMZfnhv9FNc+rsXYP5ChlQ2JnA5LKnUoUzTT+BCGGr426mNW9KV 8JE23InGaX94WnvD09IdnuZOfKesoSZ06hBeESHhRjMZJjRfUY2FHZaLgraD hJakzEBqSC7SQktJWw2ySVlRWAsqQtsRZ1qFdKsmVDo2Qetei07vEjQp6jB0 XY+RZD1GKRzH0/oxnq7DRHovHnTuYCy1i5/v4Nfb+Pe4WCU0QRdbC11kOXSq PPQEZKDRJV5q6AjDXx9r6Dzw1Jc7oS+LlsSTDJJ19VVLNFPZtRUMoov0mb9m DqvXbGBF4qxOOMDq546wetUZ1q84w+plZxInJ7cDlSnuY55/NgiKC1XIUveS tl40aHulWzXiQXGU8UHxgXg6Ii7ykLgIVQhe+fErcmHgH/4fEhfKDBf2xxlO hLiNKvbHiR9prtQhNF6H7GQdaghea7QGXYpMtNl7o+BHFrC95IN4RxUS3LK4 6BlQHrGAysgbqI66ReDuQxP/CLXBe+gJv8N64j4mMh4jyqwD8dadSLHvQabz NPI8tlHs/SbKlR+hOuFzNOT9FhPdv8UHO7/Fb+5/xkv8HWy2PsC69g5Wm1lA Dj/A3sgdxjZfs5gcGH4CuJfQljqCFI9mpPr0IC14GPkRkyiPn0d9ygpaMjfQ lbeN/mICV7aLico9zNbsYbH+FlYab2Gq9Daah/4N02tfYO/mR3in/y4e9+/i l8v/gl3dQ+z0vclsuI8Z7SKmNHOYbJrErNiy3ziJqboBTFW1YbyoDF3J9ei+ Xo3u+HL0xBSjNzIfvWFZ6FOlojcoEb1+0ejxDkO3WzA6HPykbTEaZqOGS1ao OX0VZS9f5hm+iNkf+SLk70+j8qfnYKj/Eu4O4aho7uMF42sTSpniZyc28YsI gQ+h85Z2xorWtgB4WFMHWnvC3dIFrmY2UBK2YHW4sQ/0uwj2EXNZwliFRUAZ aASOsCUEJiJFlYE06rH00BpkhGqQS8hKQ7tQHdqLXLc6pFm0otS5HRrWJD0B DRhKNlAqGDCWbsBE5ggms0YwlT2M6exBTGUNYDJTz8/rMJbRi5G0LgyktFNe aNEfV4f+yFLoQnLQE5QkdU+LdgXx1FtMOuAf/xamZ2xx7awdrvFoxrDkKmZ1 0hq9wkSZtA2TNmuSZkvS7F6jziFpdiccYfdzZ9ifcIH9z13h8CqLspddZP3E i/7cswoEkbJMdR+qi/pQr+2T74h+4xA0OY6BJoXcVhWplrsWX/7Ry8Z+5fCj KpygqRWid56kfUWuJsXuU+Y25jcTibYfyLwZOZOPcbAP0yGKnOWn6FB/vQ/t UVS6AclosXZCvL0SCS45fBfGUB6+hMqIbVRF3kG61wYqA2+iLfx1eJ9pReCl DoRc60aU1TTi7baR4vwQmb6/RF7kv6I4/d9RVf7vaG75PboHfo/h2d/jdidT SSflVMd72Gx/C+vtTHitYr7KQ8Y+46ZsqDA8io22yv9z/Hb9K1IvcZITlYUb efPuJW8jMm8JC6hLXYU2i7zlb5K3LYyUb2O8ageztTex2ED2CjYwSRm51MxE 1nUP93T38ObAHWmU61LvW1jqe4hF8jbfew/DbcsYbp3HUMs0xtqWMNrKo3aY lWsnhirLoamh9K3uRQeju6oXPZW96GV12lfOKOuFrrgLusJ26PJboMtthi6r Hrr0KuhSyqBLLOTCn03lk4IvtTNIetUdrTZemPF1w4bSElPe/8SqUSgbb1sq G2/7EHwdXvYqeDLDiR5SN8LmauPL8ISLlTOcza0PdvQE+zCh+YVLfCmpbFRM aMmKZKSp8pFGqS5vuW5HPmV8WQjFYeggNBEjSLdpR5ELNYZvL2YSJ7GYPIix rEmpc3gqdxIzeROYyR/ncRSzUhj4+WFplrIhS4/BzD7oUzvRz8q7P74W/VHF 0IWmm0gd1V8xTiWQG0osztmbwOK8PVOcxTmmKYJme4YgnbaB/UkreTw4AbM7 YQaH12wZdnB8zYHhBMeTznA85QKnU65wPukG59d4JGhnJbiqkUG4qghXnbaP PzRK8pbgZf5NGasQI1YhIkSvldxnFaEWy5JS1ot+R+JWJWEl6oFYWeCKHCZx FScz9ZVDU4EIeWutiZRPn5X2L5517IF7lA4JTGXFKX1oTOxBR0QFCl1CUOic gUjLPFy3qkQGq4hs9xWU+m7B5hUtXE61w/v8BAKvbkFt8QCRzr9EvOJfkRz/ e+TkfYnSui9R3/0lOse+ZEX2G+L0OeOfcbvrV7jV/TEv7A+w2fUY653CH4ko Tb7FuMfYxd7ECvZGx753/JHxRblzOEiNRPtipDk3Ic2rB+lMY7kRUyhjGqtL XSZWa+jMX+dlfQPDYqBp9RZm6raw0LCNmZJb2Gh+A+/NfY7F9tu40XMbn21+ jl8x1tq3scJYbNvCXKtwXlzHONOXoVE4OIxBX6+HvpZLc0UNagtL4JbRh8D8 PoSX9CG+og+p1X3IrutDYX0vSht7KbZ6UdfUi6amHmibutHG6GjoQne92EzW gV5+r56qVvz+4ZdItYpEO+uPuYQIbGUEYCHxGj5b+S0+WfkX/GL5c7izfnRn 7ejGNObKNObCutHZ1h+O1j5wsHJjoh8Xgzv/0bihSmxmCvaPONz0l6pIQ5qy hFTVM9p47fWiQD3A8nAE9eFj0EZPUG1PoVm1zFpkFdNJi1hOn8ZE7jym8ucw UzCH2cI5vDv0DuYLpxlTmCucxHTBBFeqMYySsOGcIQwwi/ULn9ykZujjK/m9 ctEjtnMf66S2PO9gAivW238Oa360ucB8RMAcztrCifnLmWg5v2aJhSIx880A p5P83Cl7XmuOUleKCVzOuHCNcTnrCtezbnBjnHk2GIEXmIxDqIGKdajV6r76 HxElaIqQiDJ2LoYIouRnB0LPqnxFVRhxqGdlqmKOqFKJiBNbJeNF1xk/SlSp JXmmjntKoukZhIfG4KyPDn5xfUhO4eKV0oOm+Da0qtqQYF6ALItaxNv0wfxH DTB/cRg2J1bhfPYeJfeHCHD/gpX/7xGTwqui9EsUaL5EjZ789P4r7urFEJNf Y48M3er6DHvdTE89H2Ov5yPc7Hkfm91vY73nDexNv4+9mUcM6q8ZsjRNliYO WDp7rAs/2NgGFmtVgBSHRqR5diOdOiwnfBIl8XOoSV1Ec/YyOvJX0FeyhqHy dYxVb7Ccu4ERpq7FurvY6tjHLf0+bur2mAQ38enmZ/iEsdZ+A8ttN7BAlmZb +W+0qxjTLGKkeQYDTeSpoR/6ulb0VlYeuXv91bEG7ng4XnCD40UfOF0KgONl BZxNKbnsMhDslAX7tG745XcjtLQLMZWdSKpuR1pNK86djEGMVzoa47Mwmp+G xbIodKdaPQUv22D8KTxtFNIGIrETz9XCH85m3rgt1pwJnqexVabySRaynbL5 7U+h8A2X9jVd941BalAuUoOrSJKGOaoLWSo9ClUGVIZNoD5yGi1xs+i6Pg9t 6Aq6YzYxkXwDS5krWM+exnTRCmaLl/HeyIdYKF7EQomIecwzZkpmKUqZs4sm WK6NYiCPpVtWL/TpbVJTl/56CfSxyYhSyi1G1kTG5qITFYaTfGQ4XHTk2XKE 83kxFsUBbmfs4XbaFmulM9gomyE69nA948TPuwhkTOAm2uhFu+NXcfq7Svhf qEW6WoeKIqoZrU48Tj/g5y8kfiIlfmIkfiKO8RNu5CfYRyUrVL+DovkoK6mD D5SVUHMyQUxO35dNRw6CPyrcuKFeACRu7op2TetzLrig6IUioQepyV1oCO1H slkFcu201EqzMP/xTZiffAxrq3+Gk8/v4BP57wjJ/D3iK79EdtuXmNd+gZWO L7DZ8wVu9n+BnXbqps5fYbfrU+z2fCLNG9/rE3PH3+cbTz3V9xbWWG3tzRKi ucfYmydE87w4ZgnR5Bi+9+TWC0VQ8CFFwmtRrQhF0oFRXuAgsnhxFMXNoCpl Do1ZC2jLW0IPL4SBchaAeWPQ5SxgsnwPK9rXsd37Om4OvI7Vtg3JK3CN8csb n2ClbQ1LfD3fukZxtYpJ7QpGSdKwZhoDklNnH3T1WnRWliEqNE7yW4x/SqLo m3A4LzPkeFFmyMlUScWjhrtFCDytQuFFreTD9CKczIQBlb9dIF7+eRQ8/HMQ b/EGbF90QZ1NAGrNzlFJqQ4sz2S7MwW8hMWQ2Nlq4QdXc2+4XPMgS2vYM0xi U9cmexKcQBA5SvaNR2pgEbNRPTlqR6qyD1nKIRSpxlEVPo2GmHm0Ji6hm1q0 P30VHdG7GEnZw+2iN/GofIecbOA9w6d4f+wTLJTxlIjgaZwvJ1tl1JllCxgj SyPFkxgs4GnJY8LO6oI+QwN9WgU5ypQYErOlBDu2l1yk4TH2PDownC66woXh et4VbrzqRJ+K5zlHeJ61x07NitTw5XbWBe5n3eF+nnHBE5EWwYi2UuKUkaFU MlROhqq1/XA/5STZ6Ryr7r5+yJLEkdTdFSm1B0utkGqVibEL8VB/UjspAyJl nBQH6YihlHEKlVKStIVfPF0TQAmPCgGSHOIJdxhR+g4/RhEoJ1idc2d4wrv2 S0ReTEWKVQ3ynDoQ77QLc+tfwdrvCzjF/A7+Of+OyJrfY7DkY4xVfIKpmk8w 3/AJJcknWNN+ghutn3Dt/xjbnb/ETjdFknC87PsQu33vMxe8g53+R7jR/ybW 9Hext/Au9haZkRYJ1iIrvXmKpsnRA5hOGzf+KgKDD3v3BUwhhClUEYYEizqk OHUizV/PJD+K/JhJVCRNoz5jFi158+gqWkBtlnCe7EVD8jR6uLqudu5hs/8W FlpWsdS6ylS0asIPK/gvWGxdZlZaxpx2GdPaJUxoF2HQzmJQOyl5lwozi+7a RjSVFMh3l0R3XpiRqL+H/TlXOJ4/IsrRVAUXEuVmoYaHFamyCSFRakEL/OwV eDTzOd6d/w0+WPwNfvbdHASfzkKJRSQ0ttbwF4Y0RvLETUE/Jilfa4Vs+iY5 CPrw+3rAzcwFrqb2WNe1PGPcgtSe24rUgDKmpSYi1cnQI1thQFHIFCoj59AQ t4TWpDV0p4nJfZvojNvFaNoHGIybxmwCVySvNsz6tmGhfIvXyFLlFp7HcuUm FiqZryvXMVWxgvHyBRiYPgaLx6EvHCJSlE78ufrsWqanfKltQmr9kRpYXKUm FofL7kzYHnBluF30gDvDk+F1wR3eF1zhfdEZtxu3cKd5C+7nxIYuD3hc9JL6 J6O5GL32jAq+52uRQpTKiFKVpp//Rm73kpOF0aXqzySkIo13IiIPwDrW1yK3 gsl9LfLOrT85Up1SkjowxThKVKLYM5HY+soBXcIfQ/bICOMPeFbiKVSKKCks zzgwXNGRtIWOzDsIv5CMJOta5Dp3odR7GKlR9+GT86+oTXlMdfI+Rf8H0Jd8 iJHKjzBR+xFmGj7CQvNHWNZ+xDVfDCr/kLroA2yxptvufQ/bfe9iW/c2dvSP sDXwABuDrLgEUUtvY2+Zmml5n6+3SdkSNseHnoDqu8e8FEMO3e2kTfgKljU2 Yj9zP9KVI8iJGkNJ4gRq0igEcsTg6FlUZY2gJHYUWgqB3uoFrPTsYK5tHrOk Zr6F0coyRooFzLWIzy+QqHlM8vVoizBUnIK+ZRR9Gj16mjrQWlMnv2FSr6sx U8k7KJ6W9qk7nPOGw4UAXkQKODBTOZMrV3Llbk22JHc7ph2jZ9hbM5+xlBOO dUH42dOJsH8xD+lXktBk64vqq+cQZE9ZwL8reY3ZKuAnHiTbBJItf6YtH6Yt T3hYcD2/Zi/v9vVSQc5XV9Ge08Wid4InYRkpgT2MIWQrx1EUNoPKmEU0JK6i JWUDXRlb6M/ewVD+TXTHLWI8cQ3FPKGzoTfwUekmftM0jPkMrj7Vu1iq2cFC 9TZmqykuq9ak23OGinkMlfEkFRvk0VaFHdDnNxCwIjSFCac/Z54LAZaYUuQF J4bLZa4Jl3zgzvBkeF3yhg8/73NZNOC74W7LbdxrvS2B5Sl6LPl1z8u+OPEd FXwIVrJKJ/mRVBAsr6te0mYXb+Y/T9aPf3CXwHg0Wh39QV+L1GQZKhqTQw52 J0vC04/CkykrOFDYAMhOGsIGwETC6ynJTCNEJbsqmQgzDWGkIUZ3CTuNEH5v OSIRwhKzPXYKHQnr6Mi4hZf/rxrxVtXIdO5Eoc8QSvl+VMbeQ03yW2jKfBvt +e9QpLyLwYr3MFrzHibr38Ns0/tY0L7Hhf89rHW8i/Wud7DRw+h9zPLkETPE Q2wOvIkbQ/ewNvw6bi2x4hPTmVbeZNwhWtvYnV88aF0/ZdwseODiJzaWqyWX 2yPHSCF040y1SHLRsdwZQXqYAQVkqCJlHPWZE9DmTyEzoh+VqTNoKZ1DbwNl QNcNjDfNYVJDwa2l4G5hiCOz0rRmBhPUTOM8GlqmJab6WyfQrR1Bp6YXLfUt qCotk/u8pcVQtu2TyBKGt38p7UuyP+MF+/N+rHSCYH9VCUczZi0LFdysVXC3 UcKTmcfbLoiE+ZO2AP5ZJsvHToETz+ci/GwWqqzC0WpjLpFlgiBy9WckTMHs FcTMFcisJ7wjvVlTepIwkmVud+j2pPJWGQfHnUBHdjc68qYk888U/16kBAwh K3gcheEyXQvCra/jV9ju+TVu636De4P/gp74LeR79aHY7zGWq/4fPh37N3yx 9h4+bHkbN8t3sVO2hRvF61gtWMZoah+GkrrRf70DujQx32lcGngn2lv0xc0k rBTN0UopZTkIsq5w1bniC+fL4tk6s+4lf1LDVYKvva/6wVd0KF/1ltpXfK+6 4c3O+3jQfZ9pTdBHsr6thPe5WlwnWcXC6ae5H3GukfAy5ddNSdgVN1LmJN2E M5FY4suQmEOdw9LMRGoTe0rqWj6wTP2qMWUpfMOOzDVIVbDRYEMlkRUD9TGD DbU6RjbZkCo/NZF6RrLZUFOzqQiU+I7nf2qHiy8549IrbjB/oQl51j1oCZxD R8wqytU7qIi5g6rrb6Au4yHLq7fQVfwIuvLHGKp+jLG6x5hsesyV/jEW2h5j qeMRlrveYmZ4iNXeB1hjxbeufwNrBGqVQIlhubsrD7C3+gaDleDqbewub2Fj ZuYJpp45cmE1OgGEGnPU0ZTYaMRZdyOJGTVFaUBmFGudxFFUpo+iOLoP9clz 6C6lqqqcxQQV02DdtLTz39BEad08jXERmikeJ/nnCdxffYghzQQGWsbR1zIm uQK0aQegbexGTXWj3IIn3i/pbqnIWH9ttMSU85ftaU/YnfWF/cVA2F1lujIL hhPlgItVMNzEXQbC42kXABdRxjHleFJECYNVX8Ly8tOpcHspH7mm19Fq64OC sxcEUMTqPyOQJWMAw58pzleyxfRheDBtOTMV2iA0UHaYkqFSyvf8TiHFIxsp 3jVIZUmX6sulJ2AE2aopFEXMozJuBQ3X19GatomuzB305+5if+i36E6+hTzf XRQrP4ah9/d4tP0lPrz9OT4y/A67GrFp4CG2m+5jtmIJM+VzVFiTmCwxUG2J OxZjmOC1Pp7XirGsahiSc9AbpkLM8+ZwZjhIk4z8ma0C4cbwuBwktX15X+Up MA2E37UA+F/zh7+Zr7Qd5mHvI7zFFdnzgi9e+weuRWdrkEiFWFjAbNWkQ5x7 HDzNeBqv+clcXeUpuUqFdsnuUPaYSKLn65LskbmS2DL2N8stYmp1yMFe/yBm qyBmK8lPg1wJ45pgxaGfhrDTEEipiJOw1FBJnjXKELEx6MVXz+Bnr5xCoORw FSrZ0V550RlXX3bHq09HIMqiCgW27Sh270GcbQ/KI/ZQnngXVWn30Jh9H62F b/BifRP9lQ8wVPsAow0PMKF5gOnWNzHX/ibmO9/AAleYxb57WOrfx9LgXSwR p7nhm9heEWMl7+Pm2j3sru3z9W1sLm7AuBXxpLFDRxEQeOQ0G3Sw8fnA6DPK uNVY3skR56jHdT+D5AuQFWtAcbIB+eFjaMhcRFfFIgYal3gcZw04jv5aMlM3 jsGGcQyJaBzDUNMoBsWdCM0IeptH0aU1kCUDNJohNDb1o6q2lYU03xQRasGV XFJIcEl2swdN6XLHjM1pH9ie94ctLxi7a2TLQgEnS2GnINxJKLvMveFqJR7h +sHDxv+QK2H1f/77BYg7l406a2EJdA1p6jQEOQQzFAhk+DsaPT8dyJU9SyQb Z+btUITzPB23nH3aaN12YKiV4paNVE9KfO92pPn2Iy2Q50o9jaLIBVTGr6Ih 6QZa07fRnbWL/rw99CbvUnvdhqH4HooKvkB55+9wu5WVe8tNbLQ9NsFW+yP8 X+m54kzDJqYbNzDVuIqJhiVWLdvS66mGGUzXiQlinZgurUK3Kh3dAQno8gxH h3MQWqw80HjZHtWnLFH8UzNkft8MkT+4Bj8zVrvmQQiwCGT4SztnzkhDn16A 6wuV8DldhcTgHhTmM5826uBhFgQPczJqFsDwZ5Cva17kzI2c2R9poJBYSQKF hchsmUjy56nj/WE48B8VRjWBAcJMI0oyqxFmGsKsJlgyqgnmhfc1fpRNan72 Mml6+bTkWaYQrkvCuOzvRDuy1Btl+qIrLj5zHWnOdci2qEeBUwtiLTsQ69SP WA8Wgsm3UU3d1ZR/F23Fd9Fdvg9dzT4G6/cx0ryPsZZ9ZoS7mOq4i+nuO5jp ex2z+tuYHbqF6eEd3Fi+jxur97BJmPi28ONT2FjZO8zDxkT1gjEpZ2QOIDdz EAUZgyhKG0Re8qDxf/0cC18mscAn3XUPrZ2PASc61iVXA5dhxAcYcJ1FYiyr oLyYedTmLKC1YgGdtXNoKRlFe/koOitH0VM9it4ag2yF3WBAb9MIeppFETiE 9dV9NPN1PT9X0ziIspoultsHHa8xMnxG8KQKxEQq678tUShks9VrXrA+5web SwGwvhoAW14KDhYBcLLyh5O1r0SciyWFhxWJEwJKEGcbJFmHv/p0Nvx+Xogi 82S0O3gjNYTEOZI2RoBTEPyduNw7kThHH3iTOHcbJ7m3W9hbKA6cdoUFnPJb x56dH/lwET7nLKS51yDNk/B56wnfKLLEnoOoRcK3hobkTbRkbKOLWqyfWqwr cQ9L1Z+jr/gOJmv3sazZxxo10XzdLhbrqcUadlkIPMR0C9fctgcYbNpkMbDO WMF42w7G2tZ5XMAkC+0pbT+mG5rQXdKLniJGfjd6c1rRm9GIvpRq6BJKoIvK gS40BX1BMej1VqPL2RetVk5ovGQJ3x/8DD5/dxIFL5xH95kzWOv6EoU53Siu 72U2E5W0u5kwoHEnse7mgkCeYjNvhju/7njgOyjLpK9JMkncfTiSSlKf2H81 el/4B0bAn1ddgGQPFsji6asIVEYiQBlxeEYVUi+ygOxbksGZVHLJ1sL4+dMX YPdCFgp9G1mn1yPidCOizXoQ6ziIaBc9or0HUJp2E9XZe2gs3KOEuYXOqtvo rb0NfeNtDGpuY7j1FgwdtzDas4cx3S7GBnYxOrSN1aV9aT7l6uq+CdYkzlZX mNTmN6Rf3pjAvmfcZpCTK7L/ICrFdHtq5RYexYSTrrxBdOcMoieLr9P5udRB aK8Poj5mwGgp+T2cPmGOc6dscPGUHa6ccoDZKSfJE8/ytDOsTrvA6pQLLE+5 Hk4EFl23kWQxyL4XUX4zyKKWL89ZRH3pIqpyDKjLN6CxyIDmUgO0FQa0VjPB 1Y6gtX4ELY3D0FLnNzUNSXMUJ5fuoqRuEPmV3bII/iPLVZnHMLVgMubIePUv +TFaKlwsTvnA8qI/LFlAWbJIsjH3g62FL2xN3eFg7gVnCx/mP7mu9BK3NMSt DZIYp0iD6Q+LkXQ5B812TBJ2Yrd4gJOCF4E/E4afM6klid4k0dPeXeyC4GXx NXlTk0SjMJSUaVT7KuRm3wtPGHYdOEYkOWQgzaUaaW5tSPPql4jMJJGF0Yuo SFhDfcoGiWS9mbMFbfwG+rO4AFfcx77h19if+BSPZz/HO3OfY65+Gwv1O1ho 3MFi4zbmG8VM5y3mvk2MNWzAUL+KwcZFXlvT6GheQC/Ldb1Wx5KkEdnVzF+1 faiq70MDadIyOupIaG0vdNWMih7oqPmk7hbR2ZJZA11yCcKtnBH6Y1fUMMeN enpgXWmH93/3JTyvsGwnke5mSriaBzOCGAFw4+l3N/eBuwUXL3Nn6faFJLQO RdZXJJGlkiISSnXYXx5ot2OnTsHTJvmdHSBnVDomkmXy3+HE087wOVGIalUz OgtqcO2kN8LOtiDSqh9elp3wcuxEhK8eJVzoqnJ3UF+0A035TbRV3URn3U1W XjepZLgAduxA37ODAR2P/VtYWNjH/JI8DlaMhV0U42H5emp+x5jU8PyBEXN+ D0qLBlBXQt4YnQxd8SAGGQYyOEYGx8nfRC6D/I0xBw6Tv/4k8hg/iLYIvdEB 9gdktx/lRcI1zxLXTtuSP+Ga5/CEa57jGVfJOc/pjBscT7vBgSG630Xvu5+p AZF+i7geu4jcjEVkJo0iP53FabYBFeSxqtiAmnIDaivJZ/UIasljDaulKmHl XT+EwTmWATN30DG2aXyOe3RTSnVwt1fw+CST0l1e2dz1H6T6xowiz4wwXrvi B3Mqj0GWEzZX3WHPq0ey9rbwY1pk1WRFgUcYxdCWGEUqTny7AIpTxSi3Tkan kyfTYJAEoS8h9GF4EURPghgtmQ5ESjYdUqNqsGyOJbm7Bgp3V6Nty/k/svs6 eOIopiylOVayQmpFuqcO6UYYCwhjecIK6lLWoMlcR100VT7r0uGiu5ito6zQ 7mO8ahNT1Zt4e+4zzNTfwBzBm2vcJIh8zZhhYTrZuI6xxjUMN65goGke+uYp 6FlqiBmB+romtORkw+GSD8MfDhR6DpeC4ZzeB2VhH+IqepFBIAsbelHR2IM6 6msNo7Whk1dtB0J9ghF+ORx1PjEYj4nCjXQlVlOs8c7Er/Bo4mO4UVe7MkE6 m4sIhIuwAuVa6GrpCTcLFzibmptI+uwrkkIT+kxEsDrir4w67+ishRjjwHNQ 2HGHSWZpkls5/pckPUOvVEAj2nlLSmF6wgemp8ROaw1CLHup6jsR6qlHmL8e BZnbKM/bRk3xNuorttFcu40Wlu5tLdvo6GB0s4yfJmezTApkcHKRsSwP2hVJ wjB302ia+Zyx3aC8qA+1pQPQlDG1iRtWjBHGROkgZojiPDFcJFLLxHBFhNgl SxQXsgcxy5J0MoWYJvLfRQ2iuKAHFSVEmf+2hWF+2or42cKWGNqfcYTjWSe4 nHWWHmlK5nrnxNZ8N+mZjHjE6XraHaefZ21BGVuY2ouYiEXEXp9DdNwokpJH kZZhQHauAbkFBhQQxcIyRsUICqpGkMfIrhIGDcJh+dZTxsVQPAUOOnYTS2W8 NSxuYInbVyHSLeEQwWBISLTsD/s3uPSqO66QwabCfWiq9mF2wRVWlz0kf1j7 az6SP6y4KNwtA+BpFSglRB+7QOkZgfVPy5BumosWRyZDe1NyFwQvESxJPZz8 xC5ssX00ykQi8KtkMFx2FBM7fEUiDFQaRyuelB71y84wB7PxjuATN6tSbCuQ 7qBFunsf0gNGkEFxmBe1gLKEJdSmrLC2H0OWYgJV/PNoJeVH8+sYriBYVeuY qF5nnbqGqfo11prrVISMRhH8s1CFBG+0aVka0DmgIYAa8ahyiBB2ob++AfYX uB5d9IE9y3dpLt4lFZyuqOFvnQmFXTbUjjkId8mFj1U4/KzD4G8TBs/sLoSU dOB7z7wChWMqyiKyoM/OwG/icnHlxI/hbqWAm6UI0SoTYIIXnnuVp+iHz72C Hz7/Mn70/Iv44Q9ehcM1Sy75CpUQgkGqiEPV9FcHVlOK41ZTR3ZT6sN7EgeG bKxc/xon/zEOibZ16ExuIYDZUpvzlZNeuHrGB36nG6AghMHOegR76SkO9cjJ 3kZh4TZKy7ZRUU0YG7ZRp9nGkGEfw+MUgFM8zuxjaE6Iu+EFUXQOze8f/ppG Ar9rLDqLcrSoKelDfdkAWssHJTu9YcYEX88ylkjjatkQNkqHsMXjNo8m2OFn v8nXg9gipRskdDVfprLFvwGNbo0os65Bp9hVybAmiXan7Zjs7Jn4HCU3GXfR bHDeFV4XXeF9wQ3eF91MpL3/X8Wp5+3hea4eGZG9qK/qhaZNdpEVnpFB0aNQ JxoQlUb9mGVAPIFMJJDxhSOILRpBZOEwIlShCFeq8DWjZ2Sgf8QTt7uCj253 RUsrqYnkHvvXYgnlOxqOkuBl1KbdRR0BvMLVwfyip+wde9WXAPrBycyfALJM kkZOBcJTPEawV+Dkc8UIPV+MartkdLt4wNOZ5RXDzTFA2KaxgPrTQysEYR4S rWYSPDS7PLI3Dw1U/A9jA6j8IPP4YLiwQ/6EoV+iZTHS7JqR7tqDdL9hpKsm jSO651GdvIAEfi4/khqb9URr8SIrzC0MVqxgpIp8VVP71a6gL38Mk/UrmGxY YRW6zOMy+VuiXlyEQbOAQe0c9C3T0pxKvXYA/U2d6K6tg/15MQxOviEsTegS DF4Ngcu1UAQ55ELlnAdvy3D4WJNB8udvG4orL3ni6st+ePknIbB2z4Lzizu4 +oITCi8Hov7aOXhZKbmmBbO24KkT/tfiNJv7MryZGD3ww2d/ih89+xP88JkX RAvW3xrLuCN7N/WTRlaHA38ipNMVFhgp+UyHM649n4Ecz2Z0ZbWgLVMtm+vJ 2wz+Oy6d8+ba0Q0/KkA/lqABCj2ScreRztTX0rmP9r59dA7so3t4Hz2jPE4w SJ6Y9txN+jomXsdPjpP2jywxe9BU3o/2igEW6uJR6BCmK4axyFhlHtmsEAO1 Ddhj3KbculPLqBMxwtdDuF07iFvVQ7hZOYih6AbowhvRq2xCp08jGqyrMMHv Z3fammWlHZxZdgrKPM67wPOiC3wuuUmPSv2uuMH/ijDDFE5MX4XlD/MRH9CH StYt2tY+uL7meohaXJhsjR4r3GQlR1letUxQsmGzsT+bqIUpVcad8l9HgHCS VRidZI1uskGqQzdZ+QHPN1CRcReXmG6vnPPCNa7iFpd9YX3Vn3AFwJHvuLNo VmRV6Uaw3AVYzyTC6dUK5Fjkot0lDG32ZnB2DBJzQ6ThIcKQOSZE/vUEWFHH vTKNrudhQYojn48nxi3KbQIHFk68PEyk55onkWzZiDSnLqT7DCBdmkI9hcLY GUR49iIleArF1xdQn7cAbSllGoWzvnwRg5WLGK4mODULGK1l1C1gTEQ9o3FB GsVo0MxhWCuPXhRPNvtbhqGjxOtpakdjeTnszrvDToB1gWBdJFiX1XAkWM4E y808jGCEE5QICSxfafBrKPztVbhyIRiVvb8nPMH46dPJsPtRGpLORKL2mhO8 rVWMYP47Ma4ziN9D7mHzsPCmxPOAh5ncGKA+2pn9xNlSHJ0tJc/WoemVSGTi Lvt/kt17jPHaty3h8rNClCla0V3QbLST/u/SjoPjltKyh3sIArx1CFQOobB2 HyXN+6hs20dN1z7qiFmDnjG0j/oRHpnkjHNvnjGqroaSTjSX9RmxGmalMYqZ ynEsVUxio2Ia21Uz2KuZwZ36Wew3zuB+0wze1EzjgXaKMYkHmnG8oRnF/WYD ZlObMJ3ciPHERozENGEotAn9TGjzFWNwPCWatY0dccTKi0j5XHaH31UP+Jt6 IEDENQ8EMk4/H88KpAtF6To0N+tQXlcLb76pridcpD7fWGETSK5MJJvmryE6 VHhnRhq3PYRL2x7CVKoD78xzr7rg4mlvLkq+ML1IUXb5SXtZR2sFnGypFuyo QuyDceoH5Yi6VIo6x2T0uLpJ4jLG6F5wYL0u28seEB15uE83Qnlguhz8N8be kEN7GUXIk+6ACqNvpvEBS/zVKiTbdCDNo5+CjPVg6DgSffuRHTyLdOak0vQ5 1BbOoSxjhJXOHHrL5viOzWGgag5D1bMYrp1FR96AdByun6H4msFQ8zTzz5Q8 55ao9LWOGocG9KGlTiPtnLI7R1x4auzOBxKbYNgxDzlcCYHTtTBpyO3BjGRv 5iB5f5wYdKvCw4kvpDzjKbBgnHgmHapXElHCXNTMXOTDzwlkvImLlxhkQs3r aSn30XhacmE1szPOdwoxznfiOfJS/pWx+Jc94lTG03bgExdxNOUrSNywFNR8 XfaKY5z8th8Cz1WgPqId3WX1B7bsJtL5/U9HW3UUxnkoQQeKORivyVh8x3gH v6GoFZrSLrQz4/QJq6bKKWIxi6XKeWxULeJmzRJu1y/jbtMK3tCu4EHrCh61 r+BxxzLe7lxiLDLm8bhzFqu5bVjNaZOmeCxkaDCbrMF0vAbj4RoMEw/nUw7E wlmyK/dkCed9xRO+pp7EwguBZsL0wBsKrjOvPe9ObJqREaNDXY0ODW062dxM NORccDNmHqO17KGHebR0ncrWsgc92AIP5ZG1rEpyJFIFhuP8OX9cuhiAq5K1 bCAsLaiJJGtZho1sL3vq2Wx4nKxEgU0uOt1CoLE1lzpGDjCRjT5i5IxiLNUO EJEmFMjuy/KPf5Hvs+KPXM2OzDOPZljIU1VjkGCqRbKTDim+w0hVGhDtRU0Z vojq9BWUZM8gL4UaMn8KbUVT6CyZRk/ZNHr57vVXTUFfPYmB6gnoayiH6pk5 miagayYW2jH0tIyiq1WEAR0tg9IeHNlSJ14ahWJ71oeYcNU4r5AQsZdm94bC hYi4itm9RMTLNgTeYn6vnQo+XEncrQJNpAE+/40qMxgvMqk4MqmkMak0MKn4 WSvhS0J8Djo4beROs4N+GC8Le8kBP1T4V4VKI3JDfFVQewcbezrlckA+g0rj InNUuamP+ViFHXjtGEkRXlYnv8P62bIerdc70F1RIbsr/onRmjTq2Ma2A1pk jRsedEiL3KDzAuryG6EpaUdrmR5dXOyHKmYxWbmExcpVrNesY6duA7cbN3FP u4kHbVt41LGFt7u28G7PFt7v22TcwAe6DcYaNov6qIp02CzuxXphL1bzurCc 1YnFtFbMJbRgOrwZw3510n0Hzwse8LrsKTXbCL+YQJa6QRa+CLb0RSoLHat/ KkV8UD8qSvrR3NbPr3kigNna/5q7VMt5n3eRk4nA5esSMLIP89GmH8lKk8CE KI1XLBWq5KQpAyP8hQ59jA7nDR64EKvj+PaI+5MXf1yJeNNSNLkkodfd+Y95 CY39/0kp8ib08GAjrt/9A7eygxr9KJWEH3hmiqGcxsGc8VZduO4+hDA7HeJ8 Z5ATs4DKzEU0FC6iKnMM9TnjaC4YR0vRONpKxtFZNi69jz2V4hHiKOXKKHrq eWwaRafGgHYxGbaFQVa02hE0NfWjsKQa0lQ41inWp8QIIS+Gv8SL7SUl7K6q qf2ZVsQAYqsQuFmHGFs05TZNN8uDeVfycDjKWX78Bk49k4HQV66j7LIC2msX ZGAIkzwRUfTI+PHoxb/tBi9Le7kmkgZFMZhewvyl5/PfPObXe+STIz91VR/3 ypEM32RQwsXOY3Euv45zz6YixUWL7kyKt/IceaakcYNNlDJKNoX9mpGZo2lb xlEmJ47j8hKaC5vRWqpDR9kY+pnBR6koZytvYKV6G1t1N3GraRf7LXt40HEL j7pv493e23hfdxsf6m/hFwN7+MXgHn45dJOxI82z2WXsUP5slVEGlQxho0CP tZweLKV3YTGxFTMRjZLlrNclL/hcEXazfvA38yMO/lAwK6e5R7PmSoLapRcF mf1o1PQjr6KEX/NBkKUXAixEMhISyPUwuUQb7f0PPZpFh6e0MUHwcuAJ+CdH sEhbT2VYQoNlg5QIo2W3TMpfSO2IgpbTzxfC72wVSuxyEe6VjzCPTMmwPIoh GZb7FiPRuxgJHnztWoxopyIobAoOJVW48sD29k/+yHzs4H1+0izT6JMZi7+V /CCCz2gRbjWJ6wELyIxdQHHGAvISDShJNZAbA2pzDGjIH0VTIa//EnLAE9/G N6G9ZhjtdUPGx3wj0DTLQ2wbyUsDualrGkJBuUa0i0uDbPH3EjBibK3NaT/Y nAuEzaVg2F5lerkmT012slTDVfRcEhUPWzE9OciISoDczWwj4yI217z8dBqc f5SBjLMxrMBc5d0BdgqpJ9PHPpDhJ01N9rF1kzzwjb4A8vAV4wBlabSa8i+M NwZU/4E1onwGIw9JkewRFQcTPGQLN6sX8pHvxyIsv0O2mpZdSL8qM2P0mj6Y 7mEiPd1/SqqbwxVybvu5TMw/Gu+5NeTWorWI5VipgYXdLAbLVyjYN7FQtYv1 utvYab6D11v38UbnPTzquYd3dffxwcB9knIfvxy5h08M9/Dp6D6Df4/J//W6 adyqm8Eulc1ONVUO1c4maVwvGmbC6cdaZjuWr2tQJjLxJR/4XJX9ZoV5SxAj mGf+1eeYra+0ID2+H7W1etS26hFsS6JsSJa1L/8uyTF3JznO8L7khENncyM1 0lYeYdYs7ThghlGpjqjxVx25z4rzrTBSo4w5TDFH1Bi3nDC8XaoQ4VOFlIBS 5AZkIzW4BJlBJcgJLEa+0dG8wIfhWYw8tyLkOBch074IKVYFoiQ03oT9cwQL N7HAJ93EDkuJ45NIj9IdZMuwv8GZ5+IQaTGJJP9FpEcvIjHcgLQYA3KuG1CY YkAZARLPyGsKRlBXPIIGwtNYOYxGwtNIeOYXKFwbRF/KCKqaRlDJKKsfNO64 iDaRHsA9Kz9+44+1fM0dVqd8YM3azPoiy9UrLFMP5j5bquDMfOHCfCFuiEiP 3kR/pXj8Zm3MNSy+YgPSEB+YjjPPZCP81VRUXFGh1fwyfFnD+TgQHmnuM+Gx FyPH3Q5HbUQcaPEguR/sYBBpqF/wN4zmojJBIX9AUNQTuSbMaKdrIvHzNbz2 XWd4vFaBytAudJe2SmeX5/YpiaGvH/oeRiiN3ocHDyFYWEcEK08cR+claPKa WQsPsBaeomRcxkjZJqYr97BUewc3mu5ht/VN3O18iAe9b+Ft/Vt4f/ARfjHy CB+PPsKnY2/hs4m38M+TDxlvYr9xgYpnmbXcCvYalrFLBXSzdhHb1XPYrJjC OvFcy+/DWkY7FhIbeNn7UckEMNkIz6MgBFEKvvysNaxeqkCcsh/lpXqqGGJj FwSFHdFiPg9kERzAItjfkknHzJW1nZPR51z2OD9INrIBreTZbLTJ/N8yNv4H yeYPsDEa3h3vew8NZtJQlSDItYpJpRp5geWoCipAobIEpUSnQlGMKqJTTXRq iE6N8DeXvM2LUOZahGKHQhRaF6ArtP9wrKE0dPZgkKk0zDSUOMktnyZQyC60 fuo/6NpmYRIQJLWgXDhli0un7HHlpCNMTzrB7JQzzFlPWZx0hflrrkaHTGN1 +T9w6jlfir8GZEX1IN5zAkkhC4gKNiCW1CXHGpBB6nLTSJ4YAJwnBgCPoKKU VFUMo7JqGBW1Qxid28fI/L40VEAMFMitGTI++ZabxuWtGN96YiuGxUlvWIqZ vxeoElmaWZlSIZoHw85CAQdLBRyZnxyuecHZ3AeuxifeorzzMCIXQ+TiiNyr T2fA9cdZyDwfB42Fu4SbrzTIOtA4yNpbLq6+/sSQG3n073EJr/yGsTz/w3VL rJ8ycbL9p6CN1cdTEmxfxcnvqqG8Uo/G+B50VzZJp1V2H/1TI3jG4fbGrHXc HypSEKd8krifoIWKpaNojMQtQFe6gdGym5itvoOVxjew1fIQtzof417vO3io fxfvDL2HDw3v4eOx9/HpxHv4bOo9/PP0u/j1zDv4fPZt3NdsYJ+q6XXtFm5p trBVvsBSb54l3yz2qGg3qqZJ3Yg0KXQtswnDkeUkJgj+5gzLYNJEwf5cOlSu OuRl6VGnIW1c1RRSKBBE8gJtBXFMcFZe8LNgmUdp6nHZ1jhRQMwiIm5PScCF EjiVSn3oS6v0OwAu/HACxwFwonk3wjiGV5zUSFUhYtQlSAgtQSojybsaJQFV aFKUoC0oG3WErpGvm4OKoSF0WkKnDWAIh3TfIjR5F6HeoxBVzgUYTxjEcFi/ 9FscNNz+f4y9d3hj13Xu/T6Ur+yUL4mT+91UJ3FLJFtOxo7t2LLK9M5h772D AMHee+8NrGAB2AmwgADYQLD3PpXTOH1GGmmaNKp2bmJ77tr7HJAcO/d7vj8W D4ZFIg/Ob6+1dnlf0YNTMENlq/vidlAxrPgv+sqOOi37UStx+xfbelKtGMLx A7Y4ddAJZw66wPagG+wOuFNu8aDizBPOB73gctAbLge84XrABy77feD0jjf2 v2YHp59QQSrVoaFSsEVlskeRQaMEigkx8QRjqgkZWSbk5JlQQKmviFJfCaW+ Ukp9JQRiiXIY/VPb6J3ehnbyOl/4Fk5wCAvf8h17VH56Qzi88Q+wedufhoZg 2FLqsz0hhS298fZnKAXaSjGhvYfZ/vucQQ9x14m3vURYdKNh2JL6kmS5SJbn UoNTirh38qC0joLG4TSCmJG8h4yuEvi7BvDCLUHUtWYgct8kwsdizSbMDDAQ 2WyHkPvCJdKd2aVI6a4Yb6QoxiuSyKXbrLgU71f5lMv+19KR7NoBTY4OfQ3K HeMSocJ45SUkrXgq/MoeoURCMiJCRPJb4j5bdV4dukuN0FZMQ6tYhbHqPMx1 VzHXfBOr7fdwXvMervR/gJuGx7g//BQfmJ7iyfgzfDz5DJ9OP8Pns0/xxdxT fDn/BF8uPMKtrku40X0Z17qvYLNhA+cbN3CxeZ2S4iouqxe5uuu6chIbVYPY KOvGTLaSOi9C0kZOiTAc//7PYfCz1iCHWalQ7VjLnT7D3MLxJ3zzOT/UQQkx hJrbEEqGwfZ+CLb1hL+1886ZOouQbRQxGRkZ9Tficm1YkJzb/XIZLalYrjPj GcbkN/gxFZYGLeLrGURiXkwVSiny/BpQJ2lEp6wOA2EV6AyvRjcXWq9Gb0Q1 +ujaR+myN6ISPeGV0IZVoktawbeUzBcMocmzAnX2pTskWjauCT6qrwhej1LB N9WKf3yNy9pGhez1UI1EPd01ZfUQ93m0PmBHKDrBnpB0JCSdCUeXgx5wIyQ9 DnnDk8VBFj4UvvDY74sj389GtEcvtW2Ch2qSaJeSFCXMuEikQ5BSfgxPITwz TUgkLJOLTEgpHUVaxShSFCNIUgyjcfiaJasLi+CCj6o8bHdruuCjGk4P4l/j 9DuBsD4UAutjobA+KYH1qRDoW29ipOsWJnpuw9XaH+5nAgnHYNGgWFgD92Ob ULhJMTtOF4a3v1ME35+UoOh4GjppTA70CKMgZN0kEGrAPxA8NXbqP3HSga+B W0yKw6h9E0vQ0D3NhKgbKiCYtJsQuVZpiqie+BUc/0Ex8gK06C0hBGsLv8L5 +4NdsUSLAYq4mMncZ+Mjoxl5eAm919Ca3wJNyQi05fPoqdjEoGIL48ptzLfc wVrXe0g80YKeM20YcmjHoEsH9B4Evk8nPpn5FJ/NfYovFj7Bl4uf4JdLz3G7 ewu3tNu40XMT17Q3cbZ5C+dbLuFS20Vcpgx5pXMDVzuXqSWcw2b9GDar++nh bMTH059QHRqOH3zjHdj9XInECAMU1QY0dBqtiLcoTh2VbcQfP0rlwrbHUu3h RJ2fgx8C+WqFMz8bFL1DHd3MyOi/E1enw4OjuJaJoLYZv6ttKyZCQZS9AlmE WT5FGUV1TDUao2tRH6RGrXMR2j1yofFIQX+0EgMxShhi62GMo4ivo2stDHHV 0MdW0tcV1KwOoUtWgfbgCrT6lqPJpVjY4MBxi+IJMFoWs1dpU3BT/QaN0KKL MTuDtN8Rp/c74fS7jmirHYKWwpaSoCMR58xdVd2INA8izZNI84I30eZz2Fvc 9CVs/nr39XAa29pRlDyAlqYBNLd1Cm6M0buujELv+zXBkTHK8txYbFVj+Rxn TLj8q+IYJqG7aFkL3+OsasUXw/8Sx98NRFv+NbRVbKOtjlKmahv69m04nPSG 82k/Ai2Q8p6w08uDb/9joIXC10kqHLNzZTCF4dj3y5FwoAANtjHQOJ2Bn7t0 z2yFFYfsqzsS88zNIV6+66saFxYuIvb1PYjtURDfW3MyaV55yo7k/Duv2cPp 36tRIe9Db1Ufr5H2mKV8TZhfjKT6K3LvzWJLm9H/TXprz+uGpngc2tJl9Jaf x2DNVUw03cJC+32saz9Ak/M6NtMv4FbJOu6XreKDsiU8Jh6flU/j4/JxfEL1 yKdlRnxKtD8v0uKjwk48zm3Hw6xW3Kc+7lZGE66lK3EhowZr6ZWYTC8l/law 2TyJs0oDVhQqvPmNfZBQ/OhvPCD3HkBRoR71bQZKZTEEFnsqQwm0P4bELYIi nEtdBLmwLbDBCHAKQICDN/zsXPkZBcvp0/DImB0T6KBIUSwolusw7OqzJyE1 vBAZUWXIiq6kXFZNuayW4FKiMaYRLdHNyD1DrZxjNTo9KtDvW0DQlGI4iYrl 5BaMpqhhSlVhNLWZohEjKfW4phqDnmDrj6E8F1kBjbQcnQFlULsUCKLRbP8n kfUqnzz7Kz7dbHPIAbaHnIRg+YrIMtQNYZR7qzoJ3qpUTnocFLdRHvHiDkf+ bNGPeaxSvPO6M1zerEN6uB4N1Xq0d+nh8643Vz1gy9xRKTuuXxbj3wS275FJ /n1FWP2OihFXv+VCEfbXaE69BHXhNtSV22ilcVdDsNgdF7dEng6Ei3UQXG12 Hb29xM0j3nzziAw+bsyKuAR+PytD8ckMdDkF8mc0UZiUEF29WVL42m6fZHFl CN+ziUQe8XVxR0SEZK8VmVgTMkldISFZcVz+YBcW1uIeboIyYQC99Zodad2E KNGWS0xM8TySRM02QQUxXrTSjI38ncT0E7Tn9EBTOAltySp6Ky5iiEaSCdVd LHS+j/WeR2hN/RIXOn6F28Zf4cHQL/Hh6Jd4NvY5PhmnpDT5HP8x9Qy/nnqE 3049xIvp+3gxdYviGl5MbuHFxFm8MK/gt6Y5/HZ4HL81DuI3ul78l7YV/7u9 Dr9qLCbwkuDwjaPI/aENuo/ZYtL5JAL841Cu0lAGioHENZpAYRGFEPdIBBM0 rDsOdGWjGDvIGEDdNI3H9i7CKQL6c/9RTEdctUQSK2rRCrSkyHKQGVmEbCIl L7oaxUSIIqYZypgWoqQNld6VKLSpQY1LIzp8GqAPqsZgSDHG0jUwZ3ZjnGIi qxMT2e10baPPETnpTRhJbcBgElWM8dU8NfWFlUMTUAyVSw43k+Z7wl7ljcKf we6wI+yPOAtx2BmOhwV5TO6wWmuC2wFnjoknlXdMuY+5rDL3br4ufsLXiqtW fA3H3ihAjI8OiiI92jr0CDzmiwCWj/Z7MUwYMexD1I6TZFSiKOf3shTZn4v3 q54gaSRIGgkSFUFyhsi0Ox7Aty06WgfD+YwELraWI25SeLLJRCrVvGgQ86R6 3ctdTiVTJRIPFaLRPg5aF1tBzl0EJIGfG0oSaydLJ7W7bYTZKcSFU/cUJhO7 p/9FlISLergWe4U9OcViryDamDB9tHe+l4hI23a0ZejR29i+M9G1038Lv48V P7/3qqjMZtkVYDGcfTmz/BjtWX3Q5FPTVLROkGxhqP4GJlruYaHrIdb7niCv 8D8xPvRfWJv+NS7O/wbbK7/FvfXf4MNzv8VHF3+Lzy//Fr+6+hv81/Vf4zc3 /gu/vfmfeHHrPyh+iRe3P6f4lF5/hBc3HuHF9Qd4cfUmXmxdxovzG3ixNof/ mDHC91/8UW4thSFAhuXoIJxPdMG47OeUPWIIhmiCgkUUAqmEC6Ds4k9vih81 Tz4u1PI6B9BoRq0BQSKLiBX+rG9BzhR9JIKiTwSxkRGeh5zIYuREVRMbTSiP aUVdTAdU0d3oiNGi2q8ODQH1qHRtQ3tAG/ShKqykazFJHepUng7T+f2Yye/D TEEPvdZgMpc4yemAmRLoaIYKRmJEn1hHJV05+uUlxEe+sF0yjhsSx4cJM1s7 hsT4GyLFAY5HXUTfVdcd71X3w66URETv1f1u8DzgKZRlR3xF/1V/BJ4MQJJD BFIcw/H267EIttGgKE0PtcqAmuYmwXf1BFv/5smFTXUlinLoiXvEL+OjLN6r O37EwsLQn6AyaQ01xduorbaY2gfA5mQQ7E4Fw95aAgebUDjbSeHiIIMrweLq HAZXF7kV3FzllKv2v1YG/zfLUXo6E90uwVbcA4FqA4kCYSEKRFBEBykQF6hA gr8C8T6ViPOsRKxrhbAkHh5Jj77sVTGfSASjL+bzJYQkitt9SSX0+eBIK8su 1xCLidJev5LE3/NPiNkBKg8pnhpKEgb0NCr5ThCmg5sqiOF+TVS6sYgc7h1d 2P2KencvSt8jLnXQ5BJKhRvoqbyMQeVNjLc+wHz3h1jrf4oLxue4OvoZbo1/ jvvTX+DDuS/xdPGX+GT5V/hs9VfQT7/A9NoLrF94gYtXf4urN3+Dm3d/jbsP /hPvPfwVPvzwSzx59Bk+evwxPnn8BJ89eogvPriHX76/jf+4ewGfXV2A98E4 lPmlYyAxHYsFiThbKsNo2il8uvElPt74HL7OdLd8XSNo2PSlN8qH8r8X0411 pmLayY+rXZ4b6BNnOr8NWUD0jn5PmjQD2eEFhFEVcqMaURzdDkW0BsroXrTE 9KM7Vo++BAOaJGpUe3SiJUjLvcXXs4coejFbNIS54kHMFxsxX2LABwMXMVvY h+nCHkwQUiZCapjSjjFdBQOlGz0VZzp5ARVmmXx/kBWXi/0mEugj92YVw+mY s+jJytxs3eF6zAPuRz3gecRdkLg86E4cMbVY1towqT5/+J0IRMBJtuwXjBTn GPziNfq5dxqRHmmAstaAli4DQs4EcIEXthM4+IQ3seS5I3duxQf8r3Jrr901 C3owoneU+8Sltj/C0YM+OH4kACePB+HUyRBYn5LAxjoUdrZS2NvLYO8QBgdH ORyc5KKT75/zx+/EvyqQdKQYCYGVSA2hdCivonGkCskyBTKkCmQTS7nBCuQT Q/nEUIFvJQq8qEB2o3CuQLpN8SuWHf7iDKqU2kZ+pp7qWbk0+hW+bvHXkFMS ku/x9WI/xO2SQn7fFYELDobtcsRUpU/uq0B+SB91/3r01OTsuMzGiUlJUHaI 281KFp1DfscoUf8OSv8MdYoO3VmEUv4GtJVXYGy4BTOhNKd5hDXdM5wf/JhQ eo6bE5/i/sxn+GD+czxd+gLPV77Ap2tf4ov1L/ElPfJfbv4SN/vu4JbufdwY +BDXDB9ic+Ax/fxjXBx5hK3Rh7gydh9Xx25hvX8TG73z0M1eRJeqHadOZ1Ch XozWvBKMVufhRXkhn72x4sYBf8hfsxkdf9Z0OrLZnmB42gZga3oLW5Nr2Bqb xKZBVI79FkcpjFDKlGUhJ7wcORFK5Ee2oiRKg+ooHRqjDWiPoQ49YQQDKaMY zBjDaLYZ+oR5zGTOYT1/CucLh7BQZsZi+RiFCY8Gt7FYNoT5UiNmSvWYLNbB XNSH0XwtBik7GSgzGZJrYYwpRp88R9gqyZh5HYnidC87bOh81In7Qbsya0Em gEndg/txH3hRy+J91Ec8CeYFP+5yTAQx68njgaJZK1sBlCDNLZEKpFLE+Ouh ILpbOg2Q2IUgxJaZuQpSSSGnfSgrMRFNt12Jvh1n48QdEbFYQURM3OLxHUrk crGdiOEtxeHjEhw5GYpjp2UUUsFfTpzf2vXiSUGgRw0i/euRHFKNnNAypEZU 0QhWhfwwBYqJotJQBSooEykoEykCFKjyq0QVZSIFZaIKtvLnVA5j3CCyj+Xt WYQQ5Sj+Wpj9FNcgIsV1CG7exQ28KIKFGc83f/Amnz6KCNnthnakpPekpbe+ R2/BW0pURg1AW9PP/5RXOER/uCOQImQjQc1mV3ctlt+y6MjId/cuVH0dXRmE UO46tBWXoVfewhgTatJ8gBXdY5wbfIrLpo9wY+Jj3Jt5jofzn+DJ0qf4aOUz fLL2GT5b/wyfb35Oj/sXZz/HP+Cm7gG29e/jquEDXBn8EOeGn+GC6QkujX2A y+YH2Bi4hPWBdWz0z2JNMwgzJdRny5/BXVaMfM/3kGubhxZ3GZrtjlDnI0cI Cxc5F4wIIowCmcYYO8JuHwhvOz942XrhknkCK4ZucdPut9FW0oRsKaUgeS0x pEZ+RDfKIvtRGzmI5pgRdMSPoSdlAvqMSQxnT2GMClt90jJ1M6tYK1zCxdIp nCsawbJiCk9H71LcwXLlGBYqTZitGMVU+TDGiSUTcTRElZ6RGDJmNMGYXAl9 HP3+IYniOkkivTOJEUxMi5kFup5w56qxrid84U7lmSd1Ft7H/LkirP9RUeqS AXXIj5odAucEc5YMQSClgeAzofj5a0kItu9FQYYBzWojcnyTCJ5QhNhJEEwQ BdsGEmR+CD7Fjqq4C3XJS+AkiOp7sVyBLzoqamcvI2NHErln4kqcG7bMXwrs CNPCfyugE1GJpKgqRPgpKfHUoZgwqaK7XkLoVFASqiJ8aikB1VMCahAXzZsC KtHkX4lGSkIN3hXUSw6h1qUCNQ7lqDhdzI/Y7l0xEKYxI5n7HVsm+J/CMkGo uFTAvbmiuDfXWz94Cz99Y/+O8O2ODrsozcngeet7crotLWhINkDboGXyT1Z7 uIkVuYkVFdZiXtIr5JsM9r/MTXvKDDTZxE35FnRUxY223se05n0s6z7E2UFK G/Tcb088xZ2ZZ3hv/iM8WvoYT1ee4+O15/hk/RN8uvkJ/XWfnf2EuNnuv4vr xM4Vw/vYMr6PSxQXjfdx3ngbZ43XsW64iDX9KtZ1U1jSDODDxY/xZPk5JRkp fvFGOWKPl6LeJREdbk5crmhHDozSD9fYYzJijiHETiCxw/QIqKk+48IF7AVu vomu0hZKo0ZkyxqJnQ7khfeiPNyI2qgRqOLM6EyaQm/6LAzZcxjJn8d40QKm ShdhyjqLyxU38bB+C4vpg3hGrD8zP8Rq9TRWaqawWD2FueoJTDPtr8pRjFEu Gi7RwVigIXZaiZ16GFNK0Bubynlhqo6sS2YJx+2EG4U3hcCMB5VkXlQi+VD4 cRVLKs/oc8En/RF0kiWhYEGD7xT9vdQs/uyffeFyQI20GAPq6gxo7NQjOyAN EmpIQuylxBNjhyWfAGKHEs9pD/rvOnFuYvessMWITwFb+RZWvf9GAGbHqSb+ pa7cYkPFGgjGTEoklWfRwqp3lF890oLqURZag0ZpGaoo4dQRMQ1UtjVLq6AO rUJrSBXaJFVoD1FY0YdKekjbgiqgCqhAsy9dvejqVo56m6KXNCEsR9K/wtzs rPjc/p8jmp2soN/17X/9BcXb+Nm/HNjRsWV7OyJFUI5S6fvW99IQ7dSN1hwj NM1toudlskVthFWzDJBdibSXb8+BvYT8GVripyi7rENTegl9dTcw3HIXk133 sdj3HjaMD3FxlIqt8Ue4Nf0YD+ae4OHiUzxaeYanq8/w0fpHVni++REVRZ+c /QhXe2/imu4Orujv4ZLhPi4aHhAc93DOeBMbg1ewNngeq8YlrA6MY0bTg/cX nlLdFcrnltmGe993K1Fqn41O9xA0Wh8RdL2or5G6yBDqzJZYaZB1psHWiWp+ Rz9+NMXb1oWPMiw9ywMiLO1Od2k35cpRaBVz0FatU6GgQ7l8CHXRZqgSptCZ Noe+rEUY8pYxWrSC8ZJVyhlrNNrdgzndhNUMMy7mmXG92EQxirW6BazUL2Cp bh7ztbOYqZnGBPEypjBhpNwIY0kfsdIJY24zjJmVGEjO5NOuwpQrM1j9R7gd dyY+vAROqO1nsgqeJ0LgQyz4npTAn9qJQIpgtoPxdBBdmXbe+8QKs1uV4af/ ZI9jP6hAVKAe5aWUXzqMCHUIJ07kFDSGOMqIFbqd9nSLbIk5Wz8E2njSzzoz Tqz4k/DKnmWxGPEA/Hf+280hUTu99q5xcWpkGTKiFciMqeLrY2xzSLq/kmqv OqhCq9EVWoxmeQ1awmrRJqtDR1gduumqoX9r5SxqKKqh9MpBp7SCbxxh62Id /uVo8yqFyqFA5EPGtpkKy2GxPKz4x/+Xz+MLnxeM6Cyiie/se4vibT5XdOSA O44c9MSxQ544SXH6kBfeeaMQqb696KamVdNYC7sDPrCnYJu1BPnnr3L1s73y z7u3KtqCzXcss20pa+guuoSe6uswNt+EufMO5nrvYZU98yPv4QoNrjemPsDd uQ/xYOERHi49Imwe48naYzxdf4Jnm0/w0Sa7Muvsm7jUfxsXBu7gvP4OJZNb 2KSGYG1oCyuDG1g2zmGufwS3Zz+En1MI9SshnJkQ11Ac+SENWqdKoHaNR7eL DcJcpXx/npSubFuCxFVC38e+PwCBzr7wd6R+2saJ77ePFp0zwwMiviXmFw09 x9ryccoxSxRnUSDToyJ8FPWxE1AnzaAuahTNceMwFKxhpGQd9waf4/2RTzCS PoNZ4kkd1IkZSQe2oztwv34GH9as41zJDNaLprBcMI75XBMGk1uolmtCX2I9 +lKImRKt6PpdA31mHnf9ZmYrFlti7oBxwocigCKI2AmBFzEhPZMMv1MyzkYQ RbBFd/JMEO4bHuP9wSeUY8Lw0++mIcixF3mZeijV1Mw4REDiyCJcPNfDzvRQ 3Up5JsCeGiE7fwTYeiPAxmXnadhVLo79W8uWmeAIoTkIiX15IXGP2Xd6RAky oyvpT2L23n+JnJhqFEVXI8uvCZWBKpQ5FkLpnA2FRyE65Cp0h6vQE6FGb5Qa /dEq6JjZd0wTWoPLoA4sps/X0teroaFUpJVWQkuf7/YtRotzLj9hxxSfmNgC M5NjEbd7Fc57/4nIj+XQRST2fevfsO/b/4ZjxMzxgx44dcgD1sSMLTFz6t+q kS/ToUthsIITpZ5X4UgfnQ5483Mjju96WjTLrPgdemVHK5DdopeI+VOoopfR kXsJ3ZXX0d/I9PtuYEp7C0v01G8O3cNF1r1PPMDNmfdwZ/593F98iPeXP8CH qx/Q3/Zo/QMa1h/Tx8cbH+B891Wc793GWd0NbOpvYJ3Kr9XBLSwNncfC4Apm 9dMY6zHAxzGQiKESnZ08caFHg6j5xTcLEXqgEtUO2dC4B6L00DFOjYxC6haK UDcixi0YQa5EjIsP/bwHP1Bl2XdvUWgVkHkTmmIDskMakR3aiRxpP4rChqCI MkOZMI2WlHl0Zy6hP3cVg4UbMJWcxUT5OTw0fYHRzHXogrS4Ft6DS+FaPKzQ 4P3WNTwfeITLzZdwsfE8zjVsYqZ8CFNlekyU9MJc1IUp6sknCrSYyFVjPEsB M6Ua5SE31L7jiKqf26L8x7Yo/hdb5H3fBulv2CCeQv7GGXhSyGzTEeGQiQBr qrPPUMtmG8b3HzIpyQdDH++4nB74gQypMQOormOSxzqEOERZESeR+GMiKZwS sJzvSPPnnV4wr1j97dmisJuwKMyDLwwLi8L/JLbNMXvaZovPaRLS5PnIiiqj bKJALtvcRJQURtehLLoB1VHNSLamDt+e2hNnyhJueVBSZ98b3YX+2E4MxHfB wIy7EzswmNSODmk1/ZsGmHgVBuKa0B+jRH9UHXTySvRLStDjX4AW1wyuixAb Fs92xcULc/tfF20YY3CGLQwfduYLxD8iNH74nR/hFOFhTXjYEho//543XPc3 oiLWgK66frgcpIaRcHGhsOL/epUKWvr3fk84vO0mer5y8bBDe8+u/piej/Po KLmG7tptGNTbMHdtY7bvBlYoA5wduU1t811cnbyHGzP3cXv+Pu4tPcCD5Qd4 b+U9vL9KscbiAb1+gPVuqrD6rmJl4CqWjJcxP3gJ05Q9Jg3zGNOZ4UnDmo9D AHyZQL5zMJf0DiEmQokJ259UI/dMCbUmTFnuNFVexIM7ZRB3GlLdmb5jMALd AuDvwtZnXMVDU7vKqgITEf8oanmwKZbsgHLkBDcjJ0SDHIkexWGjqIqZQEPS LFrTF6krW4Eufx2DxWdhKjuPycqLmK26hKqgBSxn3cHz9rv41eAangzocb/7 Aj6a/AJbXTdxkW7Ruc6rmGmYw3TDNCaV4xivH4GZOoepujFM1QxgStFBmFSj N1lJWaYGfXH05seUQhdZSA9CDnSh6egLSuZqqz3eETQMhPLF8g7quFpOuaL5 iD2U754mnI5j7c1ghP3DQVT/+BiGGl7A1zUWyrYByhbRCHKIIh4onCKJiUgE MLV1YoMdWPB1YgcXqJNz9KVuzn1XQS4q7u/FqutlKxiL35+wWSI7ogg5xEQu 2yhBLDBL0hLKCIqoNigjO5ByWokiu0YoXevR6VmFpsA6DCT0wZDUh8GUPgyl 9mEkrRc9kc3QhDdgOLUbQ5RsB5PbYUhsJT6aMRBTjwFqbPShRegNzGEYJPDD PQn8lTBVzz5+Q9zMHW+xToQ9i6MufHHY4bAjHA/Zw3q/G2wOunM1xp99j+7K 6TbUpxrR2dAN18PeXBXO7QihQldXdj3iydXiPN2K4O1ahJL8IZTnDaEiawil 1KMe2MvKn6JWsoCW7Kt8K5GW8oexbRvj2m3M6baxMkR5YJQejvFbuDJ1G9dn 7+DG/B3cXryLO0t36c+4u3yX7vjd5Tu4s0KfX2VCzJcwo7uESf1FmA30EBpW MaybRU5BHtypdPayDyBeiBXKH+zkYjDnJRRvf5dK8CNVULpko8fLnxghTjyI EwpBgZHyjVsgfJx9uOhUgjxW1ESN5iqMMaIKY1SwoIlqxcU7jyDHvxI5gWrk Uk5gdjjF4SZUxU6hMXkerRnL0ORSvijcxFDpeYxVXMRU1RaGc9ZQJX2C5fbf 4Pnib/GrS5/iJt2Tm9otXB3/Eivdt7GsuYnFbsq36kWMtsxhRD2FEZUZ5tYF mNWTGFcNYaKpBxN1jeio16G7TgctRW+tDn01OuiqdBhQUFT2QV+uhb6kC/qi DugLWmDIbYI+uw76dHqKUsroCSzAi+5lJP3MF610/yYDfbER4Yy50F8gwC4K AcxEx1Ew0vF3iqDcyiwKmKo628kioQii8IWXgzvXKPrmDikvW7swSjLDspEb WYTcqAqRkGbKGq0oj+pETaQGTRE9KPFWIt+2DXWurej0acZkLJWaKUYMpQ1i hLlkZxphyjJQNmnFWOYATJk6jGYQOek99D0aGFI6iBb6O+PqYaD/zwBlKm1Q mhU/4v4VQWhbbgnxaOmfMiNE7oDI7Nwcj7nC8YgLnNjuicMOcD1oB9v9bL+6 B376OmVjly6ocg3oaFJx+yEruB31xv+DAJ9CBPsV8wilCq84ogVlMjV1Wiq0 FQ6hg2DpYPKomRRpQ2hLGrLsmvknMbkoY89BVXAdrdUETNM2BjsowfRQghnY xvLQNtZNNJKO38DFyRu4PHMD12Zv4vr8TWyzWKTXSzdwfeUGrq7ewNbaDZh6 z2Ow/xwGdBvo71tCV7cZztY+cLPxg7tdABcR9qVqIMCRteiSHWDcflGLYvtS rmejcT2NEE/qUT2kCCRg/AkWX1d/JEXEU7/MIk5QapMLW5E4MNJISjARQiXx 7kuafzlUCeT6tyA3sJeYGURRhBlVcTNoTFlEa9YqNHkb0BWdw1DZBYxVXsJU 9SWM5F7GQvVd9A28wNULL7DeQWNH11U8X/oV1lsuYbXlIpa4XOlZDNWPw1hv 4tvDBqgWMipNFAYY67SUs3uo+2uApGQA0ZUDSKbEk1k/gPwGHUqbdFA061Cr 0qFBrYOqpR+t6n50qJk6IrVYKhqZibneBg366rvw67svkGITh/bQJEylxONs fhiWshzwbO5LPJn7HB/OfcqPlloRHeFUXXg6hcGDmHGnbtDdMQBbo/PYGhz6 tnjWQ86TSpzgL8ZcQuW5hEoxRQ3h0oy8qA4UR2lQGdmL+gj69SLpAYwaRGPA OKrdtRiONmMqYQhDGSaMZI0JHtfUuekSejCeM4zxXBZDMOcMwpRtwHDWAAYz emFIo2IsSQ1DPNs/UQZ9ZCYnJY5vvSZaXuGT7t/cMToUQvAKdSZSXNmuCUop HpRSphQTmK2YhMdP5pDsq0Fr8QDa6svgctQHIX4FCAssQVgQkZHQhor4NlTH tqKeOG4iUlRhaqhCKMMVDEFPKcWQTe9fBkUqReIQFQNGvLVXtOp11CZeQlPR NtQ1wi5VQ+c2TETLFNEyT834yggRM0Ytx/g2zk9t4+LMNi7N0XWBYmkbF5bp ayvbXK97ia4azTl0aNeh6piGDdvEd8pX0DW0CYSHnXDSys+BqUgwkXthEuzA GzVIPFUDlUcWer19iBCpqGcYCm+3ID6TlIA/4HJqjBROS4R4pJCXY0zXkFKL RI6/tTwLIi4WTaNsL0LGlxmCUkcsGUJRpBmK+Fk0pC4RMmvQ5G9CV0LIVFCa UVygW7eJyXIqSZtu43zXbVzsuY1V9UWsqS7i4+UvsdZ6ASsUixRzree42v2E ahX6hhGMNE3D2DRGYYSxoYewUUFfWcI6/KgU0b2G7fR3P0ojyLFgwXfthAwe p6g1ccqnlqwQEZ5FcMnuQ3BpLyKrepBQo0VafTfe+UUCon1yqZ4sxHBJHn6d W0aDoR2suMrNH1LtFcZ1Dn0FjUN4sR3GdO+3Jq9ia+IstswL2BoWkflLhAVE cSlZZq6bIUkVkImgWxXRSNi0oSBSS2MwUR1hQEPkEFqiRtEVO4bmkHG0h83D GDuHqeRJLKQPw5Q7BXP+FHVpk5jIH6dfabJgnMb0yQIzfW4MY/mjGKGncjCH RpQswiad+pdUFYzJ1TAm5KNLFitoQnDRTKYM8d2d/ZrO3B7Uk3uzsdcuFHv3 SXhRYeZ50BHvUicn+8YPUf7dH6Hjh/twvn4ZZUmdqKAasJKiiqImqQNK6ptU Ce1oi21DF9GjjVCjR6aCSZQANlOOGWPao0SPifLMWDIhH2eEQd5HvS8n6DWR IEXiBdQXb6OJmpnO5m3o2rcxTMWImQq0aSMVasPbWKScszyxjVUiaG2WYp7I WqTPEUELFDMU5sXrGJm7jIqGKSirLMKEfoIwoXUQ3Jgwoa1wRor5GfkRPf7U vAdQ0+J/QIlK51L0+kajy8Ua3lScebgEc4Wb5Ci21scI+up/k2tEeWypXJwU PSH6Fb5sAJrtXoFcrxbk+RE9IUMojByHImGWK3+2ZK+iu4ByY8kmBivOojdz ASOFVzBffwMb7TdxoecmllXnsaI+j7WWc/ho+TOstp7FSts5oucc0SN4RUyo VzGmWsSwagZG1ZhoT02FS30z+hRFO5uLk8Sr21FfoieIu6u5nwiD+6lweFpH wkf0Ag1gnQr17iHUoUicmWOaFG/+JBquAUUIPXoDtj/2Qp2dHGq7I1yuI4hS jEURiomosUMv3ASUSfPaUp639YGXtTu2TENicf4dvh8iOzQNOWHFyAmvo6AR JlyDPEKmJHwQ1eGjhI0ZrdQBdiVMoTdlGm3hy9DFrWKCkvVC5jTGCth61Tzu DTzEVNEspotnMEMxXUxdXjEhVTSB0cIxDNKgbszT08hEIwrzo85ogDGtFPqE VOGEezg/f83UTVz4PggP0QyUqKGB2OWN0wimiHzjFBLfOIn0N07A/ds/ht03 jiH9X2zRftQB487WKA/LQnVaNxFYQx//nAbIbjSndKEtuQtdiZ3oie+gPNIO fVQrjOFqGGXNmKFfbTZPUOydoes0JckZomeG6JlJNmI8qu/nAjQWWe6qkm3U EjBqAkZDBZqOgBkkYEwEzDilnEkzpSACZnqagqkNU8oZJ2hG6GqYvY6+ycvi 2cg/Q0XeVRw75IuTxwJw5mQg7E4Hw5FgcbWVwN0+FJ7UljJ/cbZf3MdNhqP/ Vo8Mmxq0eWeiz9fzK0RIkhXH5GtIJkySWJqJjBOVO/cKDIb/tbi9Z9eCMOIl 1dx0J+LEXY08nx7KMoM0fI6jgjipT1uEmjr/roJV9JWsoTlrAvWx01SorWBR fR0bmuuYb96k15tYbtmkzLJBjGzg2fJzLLVtYIFitnUdUy1rGG9ZhqllAUOt lGVaiJMWZjvdTZmmEe2luUKWETZN/gU1nb7UfBIkR6kgPW6BJIIeaILEnhnm shY+AsFOzKpTRhCE4P7kZ3hv+nP89JsF8P9FIYpOJ6HVgclDMLmOP6LvFQSh WAiyaTQYMe8aKoZ97XwJQA94n3bkDsoCKD9FjiQDObIKAkVYwM2lcTRXbkSp fBTVEeNojJ5GK6VjDXV9fXSz2iOXoY07S9UgFeJFlzAaO4p7+ie4b3yCmZIl zJQtYbaMXRcxWTYPfU4vBnK06M/thKFwEIY80W46Vw1tZAH6ZfEIe80GsRQp 37NB9vdtUEhPfdlPHVH1tivqDnmh8UQAVDYStNIA0OFGA6l3PLT+KdCGpCP6 mAvcvu+P/BNS9PiGoTK6BLVxRVZQZmjpljSma6GmxqkjVYOeFA36kzTEpQZD cV0Yie6AKaodZirQRuXNdBuXS0dpLF4uHeHnEheLh7BE4CznDmIxfQAz8T34 mUCLxTiinIqzaiJFRaR0EClaIqWPSBkgUvSUWgxUnOmJlv5JoomunePXxVP7 X+fyNocPBODY0WCcOhECm9OiAwPf+0rhyPa+Cvtf9/9zKaTHGlDrXop+/wi6 E2eQwve+JUcn0Z9JoNArllKIkihB31YghekKiukkLBxRUosU5+s7Upwvi0vH cZXIbGcV8ry0yAseRD71MOX0BNSmzUOVvYjO/CXUpNPnaPhUZyyhp3wZgw3L WO66gFnVOhbUa1gkHJZa17DctkpBKLWuYr51BTMUk63L1OsvYbRtHoNt0zC0 UT/TSpWHugu6hvqdzeeWw18p+J9wPURt3eFAqsdD4XpcBjcqyDxEWnzsqW+n XoRNdgWxLT8uUtwaf85lbvy5zE0YTvxrCZKPZKPBToZW2yNW3KXzjygDhSGY bnMQ+zZmnObI5o4D4GfvCz87gsXakW8V2XUUtIa2rBvaylFkU/ObLdMQODpu ZF8mM1ObP4XGuDm0JS5Ck7qM/sxVGHLW0Bd/Dz0xZipUJrCQNIn1jAlsZo5j PoOyTSplljTKKmlTMMYQGLFUfMW3w5DQSr0LFT7pvRijgsycocJ4Rg19fz5a 3VPQ4ZuJrsA8aNhkWXg5+qKrqB+qw0ByI/QZauiz26jV6IC+sBuGkh4+VTJQ SQRUdcHl3TiqGtJRGl2BQv96pO8LQcG+YDRl9qCV+qYu+n/2pumgT9FhMHkA I4kDMMUPYCJeh6n4fkxT3zUT34WNqikKdlZ5nMKMNYUJ6xWj2CgdwkahAWvZ /Zin9CQKh/6reCK2iNqZCmpnaqmdqe/fRoOeroZt1Oivi7Yqf0h1r1QQgJLu 2htx2Ut5Ak6cluLUGRlO28qEtblX+bqczc8bkedYiy6/DOh8XZESnWxFH5IE SP6AJxJBq3Y3jezAIY9AtEwmbgx8jQvjhVv0n/Yor8eI1puZ9s2UT6ieCNQj Tz6GkrgpVKfOoCmL3v38eXoiqMZIoteFS+irXYKhaQkTjSuYbl7BrHoFc5Qr 5gmEBQJhsXWR/r2IWYppej3RtoCx9nkMM/XnjkkY2kcIkn7o1e3oqqthRmZf 4YR8izPiepBxIRE0a0/K4c7MbG2JDftwKkfl8HcSdpMyiUDW5O1yIcXPvlmI 4LcKUW6diE4HN8JChlAnGSQUIY7Md4ltA2IeTOJJO0dvAsSdL3RbxDcjg8Rd DoegLWWrtWZoKxYpNpEtFfRIS8MmUBM1i8b4BbSlrECTvob+7A1c6fkE3ZRg BuKWoPDqxkJQPx4ka3CFksedaupdi8/Ss7SJ9TLq+fJMGC8YpaprBGM0MpuK DZikdnyK7a6r1NO1G9NlSvQW6vjR495yCgVFjQ49bApR2Q9NUz+6moVpjzYK VUsvGlt6UEdRqdbANyScHq5MZIaXIcm/C577KhG+LwOp+6Qo3idBZ4YBvenU wqeNYCh1FKPJJpiTxjCZZMJ0yijmUkcwnzaIhbQBJtVev0hP3QXlPDU7czhX P4NztZM4X23GhcohnCvRYzNfi+lkNaVhzsfbohaNXEIPX2jkjlJglDRO0LMU py6EE55J/NHn1l4UB79XjahTjWjwKoYuMIye+xQGAFJiBJlAhgDLELtizaIC Oj8TEc0BiAkLEwF4dY/YXfQe/fw4QaD57/ksfJajBrl+9PzLRlBIo5uC2k1l xjSqYoapvppEffYCOioW0KNcQGfFGMyN9Gw3L2KKeokZ9QJmqFaabZmnmKPX NArSdaJ1Fub2WYx2TGOwgwk0j8HQMQh9Wy96VK1WOz6ZrAXd8eROgTMlUpdD wXChnsPlZBhcrQkEGzk87cPgzTpvepj9nKjkZIrmDhYZp1B6qNlWnyic+WEJ 0o9mQ0UJot3mKLLDsjkMIczdwSWUL9YGUd8W6CLIBTII+EKTuNjEJDaZwKaw CHsG2pIByhSTyJa0U/RRGJEvNVFZNYnqaCIhYZGTwKztL2o/xZW+z6GJXUGx Vy9ag67jcuVDPO+/g2t1Z/Gw5zOcVd7C2Yab2Gyg8ltBY0n1Asy1sxirm8Jo HbXxjQuYaJrEeNMwxht7Ya5rQk2zMOlXRlFIkd2gQ0q9DlHVOvgV6agBoftA 4AdaJ/H9C74UfqcIdirTA04H4s2jiUiLrEBKoBa2P1TDbV8NZPsKkbYvAZX7 ojFAWWwobRomGvfGKYNNps1iJn0W89Q7LWZPYTlnAiu5JqxkG3G5eQOXVWt0 XcWlpmVcpGfhknIGl2rHcalqCJfKe3G2uPP/C4TQuJ0k8BII4q4mCwhsDsfl 3WYUu9ZAG5AGnZ8DhyBF1MtMjhFgSOIwJPBskBApSjBzBUB2QChMPGTxGtcz 28kEHIY9XnsWg0v6fdJsOpDlqUcO8wKIpHc6YYwaNeoyoqiAphqgoWgO7dVz aC4ZxWDdLEaUszA10tPePIsJ1Swm1SzoLqqpu2yh7pJirI3e3fZJDHESzBjo HEF/hwHaFi1alE1sCxTbxk0f2L7db8P+bbYZIlgwtKSC2NmaykcbGdzpqeaH cx3ZId1gwdTLPnjXYo8+H0Tp4BffLobs7SJU0RPRTekgOzybKxpIXJnHiWhm 6SpuRXD2hZedi2hoGb1raClhS0lycankW8gJLEFOMHOL7aR7o6Og0UE6jrKI GdTELqApcQXtaWvQZm6iP+c8DPkXoIk/i2LfDTTn/BoX9b/G841f42rzFu6O /BJrLXewSrHcchMj9asYUi5DTyNMf8MsjfGT6GlYgrFmkIK68eoWGCsUwsEr dpDx+3A56kIVJOu+/SgCOQSux+nht05BkHUavE7K4HtKBn9rypDWdGusqSxK bUdRjBZVmf2w/XE7wdAD533tlBrqkLsvH/X7UqlMW8J4+jKmMijBZ61gPmcF S3nLWC1YwlrRAtaLZrBRNI5rbRcpLlCcx9XWs7jSso4t1Qq2muawpRzHVp0R F6t6sF6iwk9+h4YQKtgl4mEFqaiqR09gjNwiHpu0c2o0McqiWZKCg/+qRIJt I9S+RdAFhXJ7AZ4W9qSGJFHseUdBlisrxNATRu/oDg3fIxrDdtLCkQOuOH7A TdiKcMAiN+ZJVy8+PZjm1I/MgBEaS03IZ5piklEoEhfQWrhMWXkFenqnehWT 0NVMwVA/Re/kFEYa6YlvmoKpeRJjKgr1BEytZmwv38ZQm5nqIaZCbkIv5YWe jhFo2vVobe7cdZ4U3Cc5FcLBoL+Dw7uBcDwsgeNxZjgphdMZyhF2oXC3l8Cd CBC0xgLpaRaoYLmB7SRhusq/+GYKHH5UhuxjudRqh6Hd9gQkblKEcFm/UFFn LASBroHwY9qY8lgrvhvhKy9BESOJ+AdxZkomOiPm+JchJ6CZ+OhGTtAAcmnc KJBNoJzqpNq4RTQlr6I9fQParHPQ5V6AseASdGkP0Zt3FeU5/xum8RdYX/81 LrRcwWzNJczVUtRdxGzdBUxR1jAoJjCgMFO9PwpD3QzdYbZ0NETRB2NdK4xV jIuUXS5c+ekc1xP+dKVEelxCQUmTmGCTeN7UcfmeDoP/GaombYiNMyFQpXWh OEoLRcYgmvPG0ZE9AocfjsB9nx6x+zpQ8sNqqH+Uh96fFGA25xzm889jqfAc VqmsW6OybqN8HWfLV3CufA43Oq/jRtc1iivY7ryMqx0Xcbn9LLaoY9xSERuN Zmw1DFDCaLNw8c6OVlSkcDDz/wcTVpyIV7mCss8RFSo8qtEXnIw+X54luDcA axUsSEQL7QKzCIgTNTQYElGExKtiNyMcIRWOkcr2HCNlR0gt7hzHDtjh+EEn nDroAuuDrrA96A6Hgx5wOuRJZYunFd+u87dUyntD/u+1iD3Th4zgUUR7GZAl nYGCzVKVLKKrZhGtJWPoqqAam723NWboKPsblERGgxmDTWYMqcYw1GLCYOso Lq/cwMXVbfR2jEJD0UXEtLcNQk21rxXb1sEVMa04OX+14xIZI55oYLtPuT0k ZRO7k6H8cK6jTQicqIaa7LkJ1zN+VGMxi0jGjphN2AoSNRiJ0iy8890yRLxb ilrbFGid3a2YMJ8VgtxD8QoC3UPgT8wkyC16YK/uaOvHWlaOmFGrRC6ss9oL lqKit2GOTyly/JqQ688sIfXIpZuVHzaJ8ug51MYvoyllDe0Zm9Bkn4eOEkpH wlnos25io+1LGCqvYVLJpvWu4MH4l5ipvcChma2/gJn68/S1czDXb2K0fg1D 9dS6UWIxNFICptLK2EjwKAmemqpdLQnix+WoG/VfPkQMZZTjIUIZepySL5v+ pp7M6zTRc0YOPxuix1aGpiQ1VOlET7gOFWlmNObNoSN3Fh2Z63D/0Sz8940j 6Ud6VP6kBR1vlsH4bjkWi69gpfQKNdiXsanYwtmqi9RMnMOFqlXc0t6huE1x Eze027imuYrL3Zew1UEEtS0TRTPYUo9gq1nzEjx/LJzGlAin3yL/L/BwCQJh cl/g509x9KdNkPg2ICGoFhlBpYiXVCEpRIGUIAWSAxRI8lUgzksBqXOFqIcu wBMTEfGy3OXu4Td+iocZMYdLmeJXeCiX3GMHSEMIrOBI8ef+GLWKQdRXDxFM DjhzyBl2h1zhcMgNzofciSMPuB/2hOdhL3gd8obXYW8reB/ywTcQ9pYaYaf7 EOM2iYyIRZRnLEJJUNVSidpYaEJLiQkd5SZ0KUzQVlOKqTOhT2lCf9Mo+lUU LaPoaxvZWVRdoWhpG4WaPteg1vOF7fAwQfYySjR8tGKCl1bMU5foZlxFi1xF 0cBy5lAIzhyT4MxJCWyp5ta3Mh0iH6ra/PY4PgYLTTvlKn8HoVJ7+1tZcPlp JfJP5qHDWY42u1PEk1RYnSW6/CkfWQnS4szo8VWupRInuiALVo/cbu7vhN0+ bDH2f+24FeZ6FiPXh8jyJbL8GVkm5MmnUBY9j5oEIit1HW1Uqmlyz0FNbbs2 9QpGSm4SOTexPfo5xqvO4d74Z7g/8RkeTH5mRV84S+/ZtJI6eIqxhg2MNKxh sHEZBqp8Dc0EVvMwBYHVSGDVVrGzL8Ix+Tc4Vy7H/OgaSNcQOBNXzhauToXD i9o8H5tw+NnK4W8bhubkFspKvSiWGVGWMouG3BV05K2hLfECehMvwf/Hawj9 yRLS3jSj5t1eaA/VwXS8FmuV1FpV38DZmm2cr7uGi/WXcYnGgjt971O8h9v9 9/lp32u9N3FZexVbmovY6t7AVtcitjonsEVlyFZz84/3svU1flAqPERoXThb coEtQd4ySRBs+gtRO0Go1SLDqhDiWYu4gEYUSOpRLVWgNrgQJaIKczlTYQ5U oNRPgSKfSuR5VCLdpVI4Gh4RIS69/A9iK2Kn0mARzk/FRXAtPXbwx6KnJxyS +wt+SM5yupRtjZUHRaK6vAeN1YNQ1Q5xhS8bZutIvDkRb87Emxux5kmseR/x hC87xHvEG/58y5D/ER8c4xaPgT/XIs5tgQNXkL6I/CTTy3LoBJ26woTWKoKv 1oROJWWpRsHtuEt0O15c3sYcQTfNzSyvYWx+CzJJPCVbwVkuXPR2FCUud/wd o0Tf3CjiLZKH4Jt76lAwTtADxXZWdDdvw+6EDxxP+RN39JAx7S8bdtxaAh/m 9MiWUKgz8neWYv/rlYg5WA6lQwp6Xd3h7yGDHwtijy2FJ0ZYDj7Hiy6rcYKM kfz3dS7/RjwPJv8dy0I215jlVkAYNiDXq4sw1COPJ7cplBKC1YnLaEylB5oS RUP0LFqoUxrIuwZz9XXMNV/HqGIT5qpNjFdv4O7kc9ynmKpftyIA1/FzTBB6 Y42rGKEW3KhahIGaTkMLIdgyRK97ucOqrqbypXP2zkeIwaN+1FQGEYPUWB6j xvJ4GFzYXONpYvBM+A6DzFi8ObmVGDSgWDqE0qQl1Gdvoi3vPDoSr6IveRtD 6bcgfesiIt89h8xDC1AeH0bf6XZM2jbjbN09nFPexYXGW7jUdIO6oiu4O/AY 9wYe4c7AQ9wceIDruru43Edf6yUOey5QrFHMEpOU3zo68BKE3xXVv+ip5l2T oD/PIRTl9eIjBPknNosUE17JRZ1TI6u4GEWafyMUkgaoZTXokJZAGaZAI5HY RCQ2UbZrJBKVfpWoJRIricRSlwrk2ZeL2rKCr7x8zztrIe8VRPOPwpkH4eyD cPLuz6jiEc56n3rXHqffcURL3RA6KfooHIhAZyLQlQh0P+hG9Hlw+x9mNhdw lAlJeL+CoOM+NJ7vf12OoNMdyE/WIVW2iPSEBSTFjHFh58IME8op61UVmVDL 7I0rKQPWMHvjUW5v3Nw8iiYVZTUC0Ly4jVEKZmdpmLlsJU4PhkriIBVFLcN2 nR1fYc6O9FiHRyZyZ0duj0vpPyxScOtUZl9DY9k2TlK5e4bGdbsTTCgpCE7U ZbucEZTEPEUlMbYH08dFSmVkATx/XoUi63x0ucnRYmcNb2q/kph5ayK3duRe QSJ9u+S9LGsZI5NbFol/37NQXAGTxSDXrR657p3I8xkQwZtEMYFXlbiEhtQV lMSYkU05URHDdv8uY0J5BYMV6xipWoOpeg3m2jWM163i7tQzTNSvUNJboe9Z xjglPFPTEobVzGB8DoZWtvJFpTuV44aWHhhULfzgp3As/w1hkD3sy6lj0zlO RJ0TUedMfZgbZT1PbhxO5NnJsan9As1JXVClDEGdNo2S+DXUZV1Aa+4VdCTd QF8qNc/Z9zBR8B6ijlxFwvFryDl9Fk2209BTkz7j2oYLze/jkuoBVYl3cFm1 jXuGj3DP+BR3jY9wy/ABrusf4MrAHWwNbGNLt0WxSUHZr5/6Mm2PCN27lv2x wbsiYpFhYuYLT9wRdo6SFtIbVYGUqCpkRVehkKKCXhf4KlEX0oQuWT10YZXo CylEh0yBToKuK5SuElHUOagSagJP6V3BXYjLbMu597lcfEcjKaLoHY0O25Xc 4y05M3gRg8ktMPm9f+b4nTlgTwnOkQvw2ex3hI55PdYzAT62R9ZFwO2Qu4Ab JbuAY96it6MvQk4KnkD7X3eC29sNSI8YoAJ1AK1dAwiy00DqZ0BM3BiSU0zI yjIhP9+E4mJKhFRtVlC1qagZRSWxV0nsVTSOoLRpBLoZatumLOth/wMSGrZC X9a0hCBq+Qr3eGTfxeIVcbKoKucqjh/wxokj/rA+FigqLIXAkZo4FxsmRyaF O1Hm4cjkyChcZTj4A+pqjlagySkVfe7uvGlO4usMScI1YteWy5LkuAzZHmlL 5sLxVzucyX/Hk1dwmIoKE7x4s53qkEfPXp5XP/ICh5EnY6zNoZLGquwIE1Ko /iyQzaAudRFtRYvU8lI3VrmCwapljNQQT7XLGKtbwu2pxxSPqGtbhLmBuT/O Y1Q1h8EWym5tM9C3T8HQPkZhJO600DWp6D6x86M/4E+jwwEnOBFrTkcC4XQ0 hLPmeEIGJ2KNLSR4EGtexNpy16doiKlGc2IPVDSOqlLmaDzYRE3GFlpyt9GZ cht9mfcwnP8eJko+wFzlIyzVPkaa3R3kO16BypV+d88RLPhqsBmooa7sPi63 3MT9QUrUQx/j7tBT3Bp8hOuDD3HFeB9bhlvYMl7D1iBlucFV+vcUMTeAl2D7 J8pwUTub0X/P8SOsEMmR5UiLVvDDsSUUVRRKChUBVx/YhB5pI4bDamCSl6A/ vIpCAV2Egq4EoLwSPRQadjg2pAJq/3I0eFagxqmC3spIEbQoAo2ymGgrKTh+ xQjzYK8g3vIpCiuuvP8d2DMtv8NOPBwPOcGZ3oGJejNc6MpI8zroycVi/Y76 IOC4L5HGJCr8ITntj1Brf0gpTv2glMpk6pFL9Gjp1NPXBBKDjjNBPy+ERpsQ QcTFZZqQnGdCOhGXSdkuq3IUWVWjyCDq0mpGkFQ19Jeibl54qBxHD/jjGD0I J48Hw/pkCGxOsW0ZoVwZ3cle2Jbh4kTlD9+WUQLft2tQalsIjUc4Dag24inR pL3gWHFqXhV42eu6IeeuGwIuLv8X20KLjW480mwqkOPYSjV/D/ICBpEnNaMg agrlCbOI8e5DSqAZpXHzUOYuoL18AQ30R+sqqcirWsRg9QKGawmLOhZzuDFF xdTM+xhtnCVUZjDUMg1j2xShMgF9h5liBIYOAwYIl5aaauHAdfjOuX4+T+RE /bXj4UA4HgmG49FQOJxgFip0ZwgZNxvChgrCpe7nUEbSkBLfSylqjLBZgDp5 g+ISWlOuoSPtLvpy38NQ8QeYqHiMuZqnWGr4CGvqj5Dj9hBFnrfR4nsew4HT WJb045KsD/eGP8f9EWoxRz7B3ZGPcWv4Ca4PfYgrw+9ha+gutkYoRY1coljH 1vAMIWSwILPfUhRaNqRbzpYTMvGyPKRGlCIjqoKf/CuNUaA6pgqNRHxrdDUU 3plUgxShwbmY3ux8TFOBOBhbg6G4WgzH1WA4vhqDcZUwxiqgj65Ab0Q5NGEV aGfY+FWg0a2M5ySGSQx3fonle23YWb94QctPHoe/56OpcEYnlm6tA41KjhTE yBFXuB6mwo8Vf/td4bbflWtd+tDb4Mt1LgX1vpBTgZBQKxNKrYzMJoiyUiqk Tr0oytKjuUUPRWMDfc2X+z9KTlIGO+6NgEMeVlzf/Gvcmcti+xj/kuYl14YV UPlzQoUeVik9qNIYvkZ9+EgIjh0PxcnTUpw+I8MZ6gTO2LEIE70wUnB4Xy2S TlTSOJiKfk83tkDBjYR3zLlFFzuChVsdR+xxsuN2GREvO9n9vm+hBRWL03Sm jRo5zj3URhmQKxlFXsQ4SmIn6fUkMuUzKE+bQ0PxHKqyR1GfN4reilnoFLPQ V8/CWENY1FLUTeHa1ANcm72Pa/P3MKhm7o/jGGg3Y6BjDPpOEwY6h6Fr10Or 7oI4p8onftiU6vepbPekxtkfDoeD4SCC4kCgOBMormfCMN3+FAvdz1AfXoam uD40J5ihSlyk2IQ6iXJLynV0Z95Gb8FDDJU9pubuKWaVH2FJ9TFW259jrflj FPo/QXng+2iVXMOIbBmrEUZcidbj/ujnuDf6Ke6OPset0We4PvIYV0YfYst0 D1tjN7FlvkxBtdzYPAEzZAHlgKhbEUZ5RS6e2oiTZCI1vAiZ4tHYEi5EXkuA 1KMtRomu6EbUexeiya8QStcqaH0VmI9XYymhGubURooGCiXGUutgSqnGSBIB FF+JgVjKMzRGdMsoxwSWo9m9RABkDxzxfJ44QR7P57SseIX/XUrWDoLE2DEX aktZm+oO9yMevC9iAn3eBzwEcb4jvvA7FoCAE4HUFAXRox+MUJsQSG1D8Pbr EngfbUdWgh5KpR5NXQaE2QVBakcI2fgLmJyiYu+4545zXeKOLuzvMBJlca8T AbFIi3G7R9ElMEx0sOMudqIHVqTgg7X/9XIE7K9FuUMRtF7hO4AITttf4/nE QkfCXjoionfpePX3jApFMgS76G+K/nUJ3Mwz074b2WzVOmgE2fIxJPoakS+b Qy21OhU5VHqVzKAiexidJVPoLptCT+UU+hRTGKiahL5mgq8qGRqoBZi7ja1F atqXb6KvzYTeDhP6mFswX6sbQXdrP0GaJIgr8YlRNkPzAz4zyuZpbPd7wP6g H+wPUZl6hDLucSnsTxEmp2UYUX2IyfZHmOumcqrnMRqj+9AUO47meEIk/ixU CVtQp26jK+sO+gvuw1j5BOa6jzDT9BwLymdYbvoIq+qPsdH2McqkH6NK9hjt Ebdgit7EGpXl15IGcd/0Ge6OfYKbYx/juukJLps/wNY4lWATVIJNXqE4S68J EdOwBZGD/PKPfKt5GCGSGpaHzAgmBFtO/UwtdYgNVC02oyVGzU8y9MW0ERoV aKHepc5NCU1gA5ZStFhPZ9bX7ZjOpmt2C4UKk1mNGE+vJ1RqMZJSBWMClWPR QinWHVQGlVuhgAYHgtj4Pp/qTeQhSO8lif92IT5cjwkSfG7HvOBOjYvnUW8u j8zl96jM8j7IpPcC4H8iiFJIMIJPS+jZDyU+QvHWa46w+/c6JMgMqKo0QEV8 yB2Y+2MIZPbEEbEisRFcHkNOeVJj5CbwwcUrWcT/joDlHkYkexhhk6S/y0i4 6AvIfeIELWIm93r8x/VIPa1Ai3sa+r1drfhS9x8K2z+iBDx3kohoFSAsaDMF /Mi/FKdndxLIjpfn3gSSYMVNHv+Kg5p0TI10Fx0y/YYR49yPeJ8JFEQvoDaL ypnSRdTnmNGcb0ZL0TjaS8bRVT4ODfNxqjajt3ZsZx3h3PwNnFvcxtnlbWys bqO7fdQK3R2j9Ex1tBnR0NghzmYmIYL+9ogIYTYzUqQkkv4wm/2+1KQGwJaS ie0xCWxOSNBX/wCDze9hrO19THU9xHzPB2iI6CFSxtAUs4jm2E2iZQsqoqQz +w76Cuj7Sx9iTPEIU7VPMdfwDIuqZ1htfYZ1SkZnO59AEfUR6qKfoj3uLsaS zmM9dRLP68y4Y36Om2aiZPwpLk9+iK0pqrqmif6ZqxREyRRRYh4WITkk7gJJ Ds1ARvj/4evN4+JMrzPR56f2zdxJ7mTuvXGcyThO7CyOY2dmnMkkk9ix291t W71r31orEggJkFiEhJCE2IQAse9rUSxVVBW1L1AURVFAsRT7UhRQ7DtoV3c7 meTGse7zfVWo1bn53T8OH0hIfLzvc855nnc55z5SonJwL7oU2THVKKFTSGIa 0HBNDtV14Vy2EpZbKlgTmtCW2ARrnAW9iUaMpDZhjM7Rna6gydF1vwGbTb3o uFcDR0o1bIkVaEkohSm+GPrYPKiZRhuDH6D0cLJ4AVYs5ypI16s39wga1n9r 7dskVAdx4l0SKeHKkliY8hxOvhuE03uDxFKuYotgoTr43rOU/ELdsFB/PSSh rgvVQBjpzTt/loGrZ/TISjegqs6A9ODbiDgShojDlxF+WOj6KHgICVmgm2PI B5+81sXR38kx9lUnxxihk6PfOX7f7xyXvqhNGflvJZBXTRS/cI63vleA0HdK UXAkE3EhubgSXkjHKsCNywWIv+RvgZqw2wL1bD5uncrH9WN5gb3tyK/tlve7 HP5vdrv9opej2AXV3+X2t8X7YTffl+POJ0ZEHWyhGOlG2g0XClNdyLljRSFV WGmqFZXp1M2ZVkipxOrzrJAVtUBe2oLGClqVBQMuH9y9PvT3+8iI++gjX4G0 zoLSStXuYuMecbXxv+Eqf+TVSL+XiAuOzMgf/EhofXceH9NDFOleNObNQ1Gy BF3VMiy1K2iTraJDuYaKiEZURvJ1orpRFTNE75hEdcIs6lNJszLWYMjdhLVw m6J0B87KHbhqdtBXt4OBhh0My7cxothCyc0dVMQ/Qf2dNUw3PMc/u57hV6Nj mLc/JmF8iCknvaNz3Z8bu+kdXfSOTnpH26sc8k6AZjUUNCCZ8jslshiZUdXI j65HebQC0pgmNF7XQBOng+m2Hi13DWhLMcJxzwDLzTb0pNgwlm6BJ7MJvVk6 PNKP0UbgymhEd4YcTrpKe1odWplTmukmptt0EaH4xJUHkF1Ie1VycndlJz7S fyXtJsnVib3U4mKpozN0kSCcfO8CTr8bjLMkUWKVY5qgN4Sy+ud+fpFfX0bI R2F0D6GHXAR+8J0bOL9PhdQEA8qqjSiSNuLK0SuIoHCOOBqOcLrJZbrIpUMh CD1A3SJ0bPzoBM69dzhQfvKGWEzxtdKTgTJ6/+H/W4/7X/lGbKBr4/XIL4rY +y95/kdcPFuBGyFlSL5ciIzLmRz3QqRFFCCDPvKA/pFN/8gWttjO5yOL/pEh NjqlJjyUG7i78RVx6/qyUPZY7NYYs0ds0fgVf7PGSzFiq8bw0Kh/FyhiJR6a Cot81Xfb38jz+pebCUe85tGi3cKlH9bj2gEHEi724B7JTmaiC2k3rciiP+XT n4op8EszrKjItqIqvwU19CUpfam2ohm1gXaoXfSlTmabPeikR/07dPTOoMU5 Kr7Z5TChV06c2CsnXCyuESFsGkeQPXxPXFoMJ7+sjepAw61hyO5NQZY9S4ed g6piHvqaBTTXL6KtcQmll+roUWZUXO2kRw1Q7U+g+s4MpKkLUGSuQJe7DkvR BlrLNtBetYnOmk246jbRL9vEgHwDg41r8FmfkX09RXX+/4Pxzpf4XysvsWB/ iDnHDqadW5jq2oDHtSqyTE8PGZmLoqWrGwPNmi8zsm+hLkeCxoImKIuaoSp2 4EFkPQqjlKiM1lKoGKCMM0F3xwJLYjNsqS30kBZ0ZgjHudsxnDGBlYIh9MQ3 YOhWPZ5avHhq9qAvR4ueHDU6s5rgyFSgLV0G671amJOqYKBXGWKz0RSR/sqb viLK2a+JN3METiIkGqHY3idCsb13L+DUuyE4895Foj0U54WCrbSLH14U+9Ev a7foTWGUKhH0piv4mz89iyM/qaFAJwUrMaBc6D115ajQ8S3i2BWE06kuHxUO 7V9GKFnZxYMXcJH5JmT/Jzj/0ZFX1Xxfq0f59d0g/9rpj1c+dOV1HxL9yL8d /3WCM5+uVIjws+W4GVJB9ylBcXgusq8WIJ8uVBhegBKmmbJQWgjtAqluEO1M PopO56GAbmSKM5PKfrn/olg5PPyLOq7+EyBi58WrX+q8GBGye3zkN/Czn+zH z986gnffOor3ha6nb32CD988SYJEe/MU9r95Wux6ev2qv033LWFX7Dv7se/7 uYgPViMhpAspsT38GysSYq1IvWVFeqIV2a+1PC1+1fK0BeX0qvKqZvG2o7Ar 1kqz0busLt9vBpYlpNH9qEucRH3GDOrzfWgo8aGpygdD7RyaZXNoU8yh7BJ1 ZpiDvtKPiuujqEzwoiZ1DrJM8rLcFRiKVtBctgpb1Soc0jV01q3BJVtDr3wF 082PqU4ew9f6CHO2h9D0vmS22RYL+/k6N+HtXsdUD32kdxkeKjFPH8V9L/2k 27V7aO7twA6NLKceigIjlIV2qItcMBUPoK1kjMnQiPob9JvbrdAn2tCcYoft vh0dme3oymqnD9jRdovZ5o4aE0ka+NKasEBi5kmVo7/AjJ58E7ryDOigvwgV wlqZiSzMQMakCn+x49gMyMMTX+0pCL5xKyr+DdFRvkrXOBmorXderK136t1Q nH3/EoI+EGpOCgnmslgUXOhDf/GjYGyan9BNruKv/+Qg9v63AkSG6PEgmwmn wcgkE8VgdixKaNF2LBJhx67STSIQyrxz8UgoQg4HI+RgEEIOULT8Wy3aIqO/ HkjPwkEOsbTepdfKUQbK6vn3kW+96lcaH5UvbmsJlVuTaHcuVCD3UhmqSMPq wzJQfqWAnxdAwnQjZbqR0ldqAz1KpUw5kvN5qDybC3uiGcVH6TP7cgKnOPz+ 8YaQRsQCx5TP0YEC4dGBTeOoV+0Qo8V2iMLrC91JSwrNeO+tA/jg7cP46O1j 2PeWv0PpQfrK4bdO4chbp3H0J4KdwVH6zLE3GXF+dEZsp3nlaBNyU7Sor9Ui 8qyFP9PKEGJFXBz9JsGKlBT/jlZmFjNTrhU5hS3ILaGVNyO3shl6Jx2gywd9 J52hfSbQpObbqL4+jJqUaUgf+FBTSGcp80FV7ROPQVlkPhRd0DCQtKIsogfl FDAVtz2oSp1FbSYpXe4CNEWLMJYvoblqCbaaJbTXLcNZv4QJ8w48zTvwWrcx Ixil/Kx9E7OODcySjs10r9FJVugcS/D0M5kwL3r6vaKjjHY6v+Qn76MxRwVl Pn+zWC3y6BcVcXbUx3eiKaEXpmQ3fWMYzsxR9GSPwZ07juH8CTw0b+BJM6XY Xebks6VoPl+KqZASrBeZsVKkxXaJUCzciMF0HfroP66URjjv1tGvqtASW4zm q1mwXEqGLug6kv50HxK+sw+3aNf/bB+ivrsPYbSg7+3Dke99LAqWT5hLPnlX cIhblOx3EHkoARc+CkfIvjCyqjCyMSaGfSFin7Ug2vd/7wSCqWJTkvUorjGQ icUwidCOkdEcjcZlessleotQRP2icPf46CUEH6EAOnyedhpBB48FilAKBSiF XmuBZoa/wSAdSW8RNn9fb2gY91pBcD8xuxOVx6B8l/7xf4gbwOmCtwSVI/9i BaRhJVAxq0hJzOoiCiGj58iFTr9hhVCEFezhh3wyGfmlPPRlmSG9kAfJuTxU n8xD2cFscZdxj99JvjhrERPm71r4hvjxP4qnLPz9Q6Px/puH8QGtsviLvqH7 An1DD9FRDgttfGnH6Sgn3hJK6p186ww//OQs+eCb3wnD2Z9Lyc+0kJTTamXw 96T5Dwi71IJwespVcrbYu1bEU/8kMLPczW5Bcp5/FyqpuBlJpc1oaKMXtEzj twLxuTxuDJVEe1W2D1VFPtSV+6Cs8UFT74NRIXiHFSWXuijRB1B2axxlyV5U pTPt5PigoDdpyuZgIE2zSOZhlc5j2LCJUfMmxi0bmGwhlWpdh7eN1r4Gr3OV qWOZXrGEyT6Klf45eMQiSzN8ejDRO/TXry8Lv4e69ApkRVUh55oKedeNKLlh gzTOCdWdHhjoFa1pw8wYY+jNmcRg/hTGCulfxdPwlk5jumwaVUHVlOhVGAit wtqNSmxJnFiT2PBUu4DJil6MlbswXCqUWpCjPbMWXTl6ODIUlPuU/HeL0HYz DapLSVCF3oWKklt1/iZU565DdSYGylNCAb1wNB4LFYvoyQ6eQ/2+06j98ARq 3jsqFtOrfPtjlP/4fRT/7bsI+tO/woFv/BjJf7YX9W/uxZGPriOvTI88qRqX j1xjzoihRwgWjUvHoxF6PBIXj19FyLEIBB+7LNYuPH/0AoKOnMG5Q8dedSD8 g132HxL9pfaDkV+qyRqPhKgcsSZr8rUCpF6jJqHl0h2KY4pwd38G8o6ko/p4 CuqP34TyailUNHVkCTRRJdAKFl3MZxG/zoNSWB8Mz4Psch7qg/NQdzYHkqOZ Yl9PfxVjfxHjXxOPQFwLe710cQxF85E9IvJ/Cx//5DDkgY6eh5g0Dr91DEfp C8d+8gn9gDmafnDq7dM487a/s+eZt8/ix8JK4f8oQvwlHUrzdKiX63aFFz/+ hv+cY+CmlnB98dzNFoRSxlwm4QpLb8FlmtCBUOgE+7VA5i281ovS+7MozfWR hPnLUjTU0RUafcg+bUZBsBOFkf0oihtBEZlXSRqTRJYXdQXTaCTg1GUz0FXO oFe7Crd+FUPGVYyYVzHWvILx1hVM2Jcx0cGkQY0+4VrAeO8cxgOn5icHBJvF WP8k+jp7dm9p+vcQf4T8bBUyI3KQG12H/GtaFMY2o/J6O2Q3u6G52w9L6hDa M8bQnT2JgTwvRovoTaWzmKEnz1fOYaFqDtUhdWinePKF1+JJgRQbMjdWGrrw iKRuvGEMo3XDGKp1w0HW316sQVuhAh0MUY58NRzZ/LfpxVDladCUpyV5VEOT 0wRNthLarEZo6Ts6oS5eRp1YG0+fJoE+tQL6lDL6aDHZXQH0d3Khv/UAurj7 0MQmI+jPTiF37wXoT19Ab8RpHP8ff4WQQzHkS9cQelTYvw+lJ/w68R+NkONR CKYfCN1qgugH545RzRy7gLP0gzP0gytR1/31N/89IoJfKyz5Wl9BobDk3UhK 8Ohc/tepdICvI/1aEXKvFRP+pUg/fQ93P+QQH2SIP5pNt+ZrRtdAf01CwSWB 8UY1TDeqqCkq+RTa3paQYNId6D7qyAKoIvKhvJQLeVAWpMfuv2prK269hgX6 C+IPcZ0fhYMJ18P9Jxj2C0cTfnYUB/g88I6QCQQPOEySbGYmOIxj9IYT9IZP 6Akn3xLaDQqN1E7j3E9319TP4iffTcXVExrkpulRV6/HubfO4syPTom+sFve IC761qu+yDf+dTvOV90n/QuCv8f/yYP8Ah8KCKAyqQ8SkqQ6lQ8PztiRE9aH 3NgR5N4eQ07qOIopYysYfKUFHtgaF+FQLqJLvYge3SL6DYsYMC9iqGURw7YF jDjmMeKkdc9hmIJmuI/m9u3B6ICwBjfsnoG7dyxQL+S1kyfvoaxAw4xpRHZE MQqi5Ciiriu51oqa604obvcSZoNoTR+FM2sSvXSBYbrABL14molpvnoBSzWL qLjYCN3lRoxFyLGZJsczrQJLyhG86H6CjhoPOqQTcNSOwlDaCkOZBfpSA3Sl apjLWmAu0cNSKIclpwyK5BTkVdENaSXVWpRLtKiiSWq0kEpJX2s0kNEahXJ3 DO0qPpskTVBXq6CpFg4FKaCraISmtAEXfhKN/DPxMMbGoz/1GkYzgvGi5x9I fqJJnGIIedpx4RmN80wHQXSDc3SDM8fCcJpucPrYeZw6choT+ibs9g2MCI7x 9w58rWRkQsQ9JAu9A2NycS+mgKG/GNkx5RzHKlRES/DgdDbyTlNfHyhjCiiF 8kwBOvh3ppsyWOJlaL7VgJbbDbDersOc1IXmeAn/XPj7cuivl0FLX9LQD9SX s6E8n4Ga4ylviPW3f02sxH094nWLxaGfHd0jNg78T/z0GA4Lhw7eEfrPHsaJ nxwSD+cIhw6ElmdC60B/27MzYjdn8aDO3nP4u+9E4dx7Dbh3U4/qKj3KJNW4 8LOzOC+0GfzxSRH5ccKGZqBX8ZfaBb7eUTJa6HT29QDy08tm8aDGXzSimIi/ F9SN+1eGkH5jFPcTxiAr9etsUTo0UJo3zqFdNQen1odugw89Zh/6rHPob5uD u8MHN+WI2+VDf2Ch2c1oP0Cwuxnte/o8f/P6CeL3UVmgQk0xvbjUhFxy0+Kr CpRGmVAWY0ftjW5KgX6YUofRRp/rypmCu3AGo6VzmKqch0+yiEUp80v2CBxh OqwnarB6twlPalUYl01iidTsRe9zDNS40Sfpg6vahc6qTpgKm2AooGfk18NU oIYxTwZjdiUMGTmov33j1d1O4R7brWuBZ8ytQOU6QQ5con4mGj+MwKk0NUKz 1bha0ITrxSrEl/or1h27EIFjHydyJDOgSM1Ae0EyXmbeINJ/gfQEAzJp2Qkk Qnf0jG4R5MXnxbX1D98MQkq4Eh7HBDztbrEd2ZhR9Ue7QA+59qqz39WwOCRf vY/UqCzci84nyMtI9auRFyNFaXQ9qqNkaIhuROHZYmQdkKDyZA3arunQHadA yx01WjlUtkRakgpLsiG0Jcr5tQytCfX8+1pYbjER3Kwk2Bn4yX+04Q+gDL4n FCl4Q6ikje+81iDzBlF9BEf2HhfPCojPn9OI9BO0k+8cJaqP4vvf/Et88iYR Tjl8mqzmjNjYLwjn91L8vHseP/zOCXE/ND5cj5ICPWrlBgS/FyR2YQr+uXCU 5rS/KkGgRZ3Yiux1mO/uh4rnBaK/FTh6Vh0/Dsm9WdRkMbALaljg+yQ7OkLa RNi3KH1o0/jQTjh3WHzobPWhy054E87dhPPuWm834exy+5/O3pm/ff0K8Z+i Kl+B2mItGkqNUJaZkX+5DKVXVCiLpLKN7kD9zV6oE4dguT+O9qwpuApmMVhC SlSxCK9kGXO1K1huWEH5ZQ8mC3bw9/pN/JN9BFsdndhUrGBNvsTvoZNJB9En dcNV04tOSTfaqzpgIPRaSixMojoYCxthzK+GISsPDYl+OItXy94QkfwH+ISj /snPiOO9xPH74ThFHJ/9WLhkEIkLByNJSihNj/gXc1baXuAHH9yl1MpByYVV pF1tgOJsEko+vIiyFD0ktNokPX+QHrIEHeS3tZDFa1B/Q40aCpiqSPpzuBye NjuGTAr88SsgxyJCKL8YloQUgvheVK64d5lGBpIV3YBCArciSoXaKDXkMVo0 xepQF2pC01UbbDescN0yoe+OUtywaU81YFUxSQGjgSOVlqKGPUUFWzKBTlCb CWjDLQ7IDQKZbEh75T7kIXeFutd7As31rsThm+Je5tG9x8SWlMf2foKjQkG5 vSdx4udkIj8T+oMLrSk/wdm3j1OgEsEC63gniBL1vHgCRmiuF/x+MNlJOq6c 0iEn3QBpvQEhH15AyAfCZs458VhzyN7TjNuffAnB1wWGInRY/EoAxLG7/fT+ MFDSqvz2BCrTfOIR/6pispMKilHGbTVjsp4ANhPAzUbGZwK4jQC2E8B2Atgu FJEjgO29wkZFe59AO6zd068ONQcC8t8FUFySKUFdkQqyEh2UDMr6smYUXKxE WZgGFVdaURndhYZ4NzTJo2jO8MCRy7BeNI+h8iUM55OFl8zAVzGD4fQhlNz6 e4zpX+Lz0Zf4p5kX2NasYVu9io2mFawoFsVib0Ilq25pH5w1PWiv7oSt0o5m /kwjVaKxREE0Mwrl5ImU7itiWP6WCGPhQN2JdwjknwaLQD7xfpgI5DP7SBf2 X8X5Q0JRwwgCOUwsTrzc9hRrjmcMvAqcelOG9ENSKE7nwHIqHPJ7OjSl6qBN 0UGfRA9KpN0RyjNpoL+phvaGCuprCiiEiBpWh6Ybu8UQ/xDhF2MZsIXmkFlI jSymVeN+VAOyo5QoitKgMorJLZoRIdYM7U0LDLdbqDQ70BLXge4EO1Yy2+C4 b8W62ocN9Syc94WKgiZ03jfCQXrblqaDNZWUjGA2JhLItwnkuGIYr2VCczVJ LI8RJ1w2FrYbv+bHsNCSmFFYOJUilGMQCiEKe/An957F6Z/7eUXQT/2NIf/7 t/6K+pIY/tkFRuJgBL0bggvvX8Tf/ul1nP2wEam3DKisMuzBxY8u4jf5MSQA 5yBcfP80Qt49SVJ+7Ismh19qcBjYeo+59se7BRDvjKEkw4eSfB9KyxiMJT7U 1wv1c8kxiF8tA7CB+DVaGZjbaA5aJ40YNnf7n3/3Ol6/RjEqh7y4CUqqOE2p ldhxIP9CNcpDtagMb0N1TA8abg9xbifQ8mAaHflz6C1ZQj+foyXzIpFwpw9g qmAGKyT+TeaXGPe83IMd3RrfeFu3ik0tg6+a/6SsH711g+imaBTgapd0obW6 HZbKFhgrhILRnKISoeptrl+FxNz+EmyFBeATbxOuPwvFCfKHTz5k7N3H2Lv/ CoIORZABhyNY6At3JBQLbY+Qn6RE8T0tDv5FDW5/QOh9Ugb72btoJlTbaB2p WnTT2pK0sN+lJWhgu9OE1ngVrDcVsNyQQR9ZK17iMMeZoAjfbRH8VdRnVUJB DpRyJZ/QrSRs65EeqUROJBl+pBHV0c1oiLVCFWeD/nYbTIl2qKI7Yb/txUTa BGwxanTHquG63oQt/dIedD9oxW+g64EVHZktsGeaKU4MsKRpYExVwCCU7rxT CWN8ntiSUSim7q8P/W1xV2/3EJXYjpHJ/riw8ro3CKdIDITwKpKEn5/DBZEK C0sjhCtTWNDeizj/fij+5tunsP8HlbgZYUBRkYHyzYjQfUKbxksI+TiURtx+ dJ64Zfh9/xQhfvxLDTn/dd+0mOgYf2X130ROxhTyinzIZ7wtJUCq5D5IyZPr dT7ITD40NtMYbxuJV0U7iQWtwTbjZwX4YaDSTU2OFHImZgW5rrKkFcZSJ2yl Pcg5I0F5iAFVYXZIrvWi4c4ItPc8aCFV6ShYQGfuAtzFixgjSZimohvOmcac ZAEbqgU8Ns3jkd6HHcMqHhpWsG1YxqZ+CWvaRSyp59FTN4QuYrVD2gt7TRes knaYq4lVagdDpUKsMaspyBGw+lr5zD8WQ+vNgB19KxjHf+ov43Lig3Cc/Dgc pw+E4+yhMLHG0/kjl+Bt2UIhw1PpPQ3K72tRQwt/S47qwzVoP5OF/pOX0EUc 99LctME0LVxJGnQnEUMpTegizjsTG+FIoNq6WYtuhsCOFDPabpmhv6rZFXmN ORIo8zVQFrbSupB6pZH0WoPcK0aURrZAEtMGWVw7mm47oL/rZMTsRMu9Tmij DWiJNcIVZ8FIghmeZCMmkvXoyemgOdCd0w5nth3t2a1ozWpBc6YRxnQBt+RR yVJG3RJi9wHU1+OF+sx7xPor3/Sf/XtXiLK7kD2PE2QAJxlBT1MlnKWd3xtM XhvMrE/ovXcOs/XzhG0oYXtJ7PD25vceIPyMDlkZBlSTKQgbCqH7w3GRz5D9 lxC87yKCCd3gj8iBPzqD4A9PkNcKrf5edXjbRa3QCPG7gcv/aaUzyCA1yCY1 KCA1KNQI9f8YdkkP3voyLhvy6qAo1EJZbIW2xAlLSS/aSwbhKhtF6Xkjqi47 iMs+1CeMQpPmRTPZh4PpvrNwCW6m/DESVxfJ7GTlEhYVS9gyLmLbPIOHxOa2 iZg0LdOWsGlcwJp+DsvaWbgqqMNq++CQ9sAm7UJLTTtM0hYYJMRldSMM5VVo zHsg7Pi9IQZSxggxlH4By8M/Pk/5HCremT32AaH58WWcPHBZLBMtliA7HIIC apnSVBVJkwaS+xrIOadBf1mLgo/kaGUoHT6bQEjqMEAbJmTHM/n5fVq6Du4M DU2F/vRG9NyTYbTQjKE8s7gn4iI8nXeNsFxt2q3DpMiuRda1GmTHNiEn1oS8 WBuKY52QxPYQkgNoujUMw90xNCdPwivfxpxyB4vqh9DFtqHghASlpyRoPyeB L7sD87k2rOf2Y/heGwZSWtGT1IzOBBNM1yphjW+CMU4O7XUpVNfKYbzHkJqc C93tu8IZ5z1iG8JvMppSdol1mM7yKdScCebzorjhe2YvR4cC9rxw4I6R8+IH IbQLmGtcJTEgNN8Nw1//SRxOf6RA8m09yqsMhGOE2D3qIi2E8AzeH4YLhOeF /RdxYd8FGqPyxycR9OFhf3+wmFfNB6MZTIUxivHD7geB+qg1meWcYiX92AJV kQO64l5Yi4fgLB1HX/kUis+aURnqpIToRx2hpyb0LDmzaC+aQ2fJMvqrVmB/ MAE3M/m0jGyS4W+jheHPsoTtlkVsEnabZsLOvIB1QnHNOIslHUOnxgMnw2F7 rQuttZ2w1NphrG2GQaol/GTQlFegLD1JbEArFv7yt4z/YwJQuMUcL54vPPyT EBwRro2+fxlHP7qE4/tCCT4O78EQ6vkalCbLUXFPheo0NRruq9GYTFpJnZT0 ThN0R2QYPlOIqdNRGM60YDzbAk8eA1OOGaO5JpoBI7k6DOU0oT9TBm9FMyYp JkeLzBgkAN2ZJsZN3R8EFgkL8ozi/nNOVBF1f724Vl4QKzRfcqDimgt11/uh CoCvheCz35siu5xBTwbHQ/sU+rheFJ6uh+RcPXqC67GRVYelMhceN25gongE Y0VDGC7ohyNdDzt/lbY0BToyzLDTp+wpDbAnVaAtIZuS7DbK3jqMoh8cQN5f 7UfWf92HtP+yD4nf24cbtLA//xhHaaeZRs4KlY/I1i98IJzCEY4chCL044uY V23j7W98H3/+uz/FAebyG1d0yC/Uo6xOixCy+osHriLkAFn9wQgEMwWdp7+f PxBKY6A9EISgA6cQtO+oWP5jt4VfVDQ56OvQ+y9kPhIo8piFC9rQVOiCsWgQ tuJxdJVNwV09i9wTWpQHd0IS7UYt+aoqbQqm7Gm0FZGcl63CdH8UjrwFDNeu YVaziqXmVaxYVrBuXcGmjdnXvEhjtDMLlw99WDZOY1E/hTntODxNI2irZcSr Z3qqa4OhzgxDrRo6SR0ay0r8V3ijAkeDxHXreFEhviF+9kevOkcfYug7RCc+ 9AFRSHpzjI54bP8FFN2tRRnRV5mqRC2zrDLNAFWyGcaUFkT9lR71H5vQf1oG X0gmkWbHZKEd3tI2TBTSimyc8lY+LRgtMGChzoE5aRtmJTZ4q5oxRlE2QqgN ZjF1JjfhGwEIVhCZu7u7+ZFlonIX1qqLY2woiekUWY08bhCaO6MwJ02gjRB0 ChB84IM7m8IxZwGGO8OoCGqE+6ICw5cUeChtxIJkENuW5xiXTGNUMoWhaqGl SztDgA1thS1oLTCKXzsYQhwFajjIsByZeWi6WcJUXQB1TDYFUjrUYSlQhyZA feEmVGejofgkAvKjIajffzbQ/2s/yn78MQr/5wfI/ov3Yf9L5txv/BDZ330T qtxfITOdeKjVM8hFMfBFEnqRuEAoXjh4BecJxaCD4WIFmSCxIw6p6sEzOHfg +KseYMJ25fXXIfhdyLPkUOY2k810oqnADXPhKOwlU+iumMWAdAHjsmUUn3Gi 6uogam6NQ57qgT57CtbCaTjLZ2DI9KGrYg2jynXMmNcwZ1rDUssqVm2rWLev YJnQWzYz2Zrp5aYZLBinMG+YgE8/Co92EIvuVTTXt8FY3wJdvRG6WuqnKikq KFxeK/a2R7yJ+B0/IqN37Yve5R//6AL2kc3sf++SWH7+4EfByL9VhZK7dShP bkQF5XRdqhlN96xQJ7WRkLUzgHQg/z07HGfM8IVJsXT5Ljzl3ZgWSvSVdWGq vJPWgcnyNqw19mG1sQfL8i4sNjjhY7CekrRissKMcZL84WwNOpNkuy0cKgp1 qC4xoabUjFqasMVaeKUCxZQ1Qqv50qg2lEd3QRrbD0X8MDniOFpSp9B+f4bq xYf+HIIxfxHddyeQG6SH5cok1gtn8LlyAN5aD/pKRuCsnBNLgXRJZtBZMwVz aSfMYnk9SiQ6iLXSidaqVrRVGmAvl8NeVIqGEi0ai+mMRVqoSbW0+bRcOn22 CroHSugzKNPu10KfWg19UjkMCYXQx+dQJ6VDF5WMf6loRez3T6CK2qj19EkM XD6AA//1ezi/LxLn90cx9kURfJGUkFcJwCvkP+E4c4hc6PBF2gXaWfKiE2Kt iLgvp+HGB2ooc/w1hdX5Q7AUTKK9bBY9VBhD9SuYUBBg6i2UXRpA9Y0J1CZP oSmTv3aBF41J/WSDXrjq1zGqX4enmd9rWcecdQ2L9lXMkWzOmWYxTwDOm6bh IwhnDZO0MXgNQ5gw9GF+YBEzA3PQ1jdDXaeHokYBaXk1oq7cFG8yxYjHCwU4 /tqrCmqxuz3hd3mwQDa+hQ9+fAEfEowfkn6nCzdKb1WjOEGO0kQtqpItaEix Q5PSAUtqF8ypLrSl9yLhTSf0p53wUEGsxxbDI3FjqtINb3U/rY/mwpZ6lDaC DfUQ1lVuLCv52vJuzBCQU1IbiS+TOGd2MEsROEH9HqoKNaglEuuIwnomb4XY UcqM4vAqlF5VoeyqBeWR7aiIYoa+MQDV7VEYmJ1b06apnn1UJfMYIBK7Ekcx eH8BucHzsOb/Elstv8TnQ7/Ao/ZfoK90DH0k6b1lI+guJ3MqG4Axn0ymgD+L 4VvDdzAWW2hamhzGwkqmu3JcztLiGhF4h3+eWqbFgwqtuLUnbOtV0CTVGtTR ZNUkLlVqqCqboC5XQVOmhLZYgZezv8LNd6MhPX8d7ddjMJpyGf2J+7Fje4Ht 1mc4K1bHphGNp4nGU0TjKQrFk0cu4iTRePLQaXh0Wtx8HYnfgyLTAGW2g2js p3OQKRd54aiYR690GcOydUyqtjCrfYiC0z0oj5pE9Z0pcqsplMV1Q54yLn5/ Z+003MppjBk3/Gi0rWFKN4Np/TSmDV5ME4HTRg+8xgl4jGOYNA1j3OzGiKkH 0wM+TNBG3dOQ12ohrZbjyqv6R1/crYsW2/TECPfOhXJj3xZ74kZHxwUKIPnD vfArld734cG1MuTdrEPhHTWK71pQlWhHQ1IncdgDy71+2NMHYHswhLs/tkBy YgADVzuxQYq/eSMLUzWj8EqFGqZDeMhf4KFhik8PtvUT2NCNYUU7jAX1AGYV vfDKiGFpKzwVeoxzjroyan4nsL8mKVShvsSABiEgEorCxoQAxWZa6eVKlIer URHRgsorHaiMps6LG0ITA6OJgdFGktiWOEbtPoHWWIrl1DmMF6zCV7WG+tqX mHS/xNLUP+Oh4+8JRcKxfAy9FWNMY8NwVgyhvdwNfRFTTBHVS1k7DGUtMJbp aBTWxVUwUOPtXqwR1smEZngn9l7gM1Tsb3N8bzhOvncFpz9gYPuIwS5Tjch8 NeJLmpBESN6vUODN/xmL6E+SURGbhub0VPQWxkORdABplC73aRm3dHgQr0V2 nBY51zXIjlHjQaQK6eEKeFoH4Wnh0Jn0ATT6d3S+j+rEYijSOVoPOonKQWjz JtFSMouO6kX01q1hWLEJj+YhE+pjLJmfoujiCMpvTDHQeEm/RyFLn4apdBqO umm4ar3ol01hUOHFSJMXY5opjOs8GNdPYoKTOW4cx5hpFCPmYQybBzFo6Uef uVs8IDDgnkF/P4mBawSXQ4WqQP6qXFeIyqtCVa5/dY8tKkqsxrVHJB9v4Crx eCVQHWhPoHbJg+hK5NxQIi/ehKI7NlTe7URDYi80yQMwp41QVXHC8ybQXzSJ jAP8OmIYi3fa8SS5BlO1U3hEgf/YRCPFfUKO8djsww4F/4bJi1WG90XdKHwa ofx8LzwNHcQlBUylBkNFtdgFZUMx1XipkZRXAKQFOlpzaQs5UCtKL1ah4pIG lWGtqIroQnWMGw3xVIBJHmjix2FJZIoSuvpletEWP0S1PgUvudMC09V0zQpm apbhY9AQNocfdnxGQI6ip3IUXZUj6CAoxSpdFb1oruiCsZKgrCIoK/UwVggL YlXQ5wdAGe0HptCn8cTPg3FcAOXPwwjKCJx83w/KswRl0D4/JQxhzAtlvAs9 HI4f/OAGTp/PxP27uWgL6YH0aCoajl5EfhJpcSI1dYIeVXd0kNzSouamBjU3 1KTJKlRFK+mIJE6XGxjADF8KkX8MRRoZY0Y3QTlMQE6hpWwOHfxtexvWMUzt 5NE+YpJ9SkHyHButn6IwYhLJwUPIjZuGNHMGmtIZmKu9sEu8cNYxccu86FNQ 9Kg8GNRMYlBLI0scZGh0E5B9BGSvZRDdzdR/Zpd4X8zVTydwTUBn7Xxj97pO 4JJLxBWacAvwinhD40okv4yKE+vnhEde/0rgQm8dhb8yj6yjwIqsG1bkxHeg /HYP6u4OoCllFMb0CdjIKpwFVAj0uPQPKWBDvfDcGcKTdAseJpXiCVnG0+Y1 PCXlfUrV9ZjCf0cQ/c0U+haB8lJt6ccwrRmAR9lNGLbBU2vAeFXD1wLEp6FI 6OmoY2Y2QkUUasqs5HJ22Eod6CzpRMn5alReJHMItaE6vBuS2EE03B6Hmg6u S/CiOXWGYmMWZiKwO41OXTSD2RoKPaG6bu0SZuoW4atbwFztPNHIcSPyXJVD ROEgOmh2sgxrVR8sVd0wSohCCVEo0b9qaaTKyxDWx4m/bwZa6F7w96EIIPCT 96/i1IeROEv0nSMHFLZtgw8J7e2viE1XFiyfY7nlc+z/iyrEvlOJ4gM5UB+P RXWyHnVJesiIQkWCDsrbWqjiNRRNzPQ3qAKuKaGIakRjRANkl6TQXjd/iTL+ IRpTW6C83wNl5giZrBct5fPokK6gV7ZJFD5kbn8Cn/kZ9cgLbNg+Q8ElK5LO TCL7xizKmFDqC2ehKWJ4LJ+GlUi0E4kd8il0Khnm1B64iMJuhsUuhsVOorDD Mgw7UWhjWDSbXLtFCn8rgCdZZjWllJFSql0sYdRUMEx2Oomq2yOQpUxCm+GF JZd5rHAezpIFps0dFJ3zoffWNLYye/FZjgLPrDt41rqD57ZtPG/bwhPbBh6S O2y2LmPNukCHEhishzyC8knTT0wxrMktmKxV/Lb4Gt9AXV49Ob4KSnHXlH5K LOlLnWJJGEdJL3qK+zFQMoDKYGqUizZIIlyouT6E+juTkN+agS7Zh5b0OWji BtCWPC3uTk1KfPDJZ4mlGXjrFzHdsIDZhjn4Gmbhq59hRO8min6dmoT+WdUP W3UvWiQumGu6YJASU1JiSsp0K5HDUFGx54uK1H+IY++cIa4u+Jf2fybU0434 ou+PgClGtPPEU/AhoetVOGZNL5B3twnFKXrs/34ezv9AgqwPitF0NBlmMrum ZB20iToY7n6xc2oSulPHNcHEbGO61ghDdAO0V6VojTejJc4I/VXtl3TxtyBP IrZSia2MUWgKphmjF+GoXUNv4xaG1Y8wqX+KWfNzLFlfUOd+SsKygS4SkbQo D/LSfChl2pXmTUNRMg1tpZcjwMlvIEYbp9Da5IGNUa6V2LIaSBiNo7CQABpM TO/Gfih13TA4vfjq7rtk1jP1cyZzSQHyBqDJZ+6h7Gln1HVVL2GQNGBcvolp 1Q4WGHlXDY+Re8IL8/VlzGd48HlhOx5l1uK5/QletD/G8/ZHeNK+g4ftm9hq W8OabRnLrfOYb57GjImEVEcyomGwaiKPa1Qzb5UE3uW7aCyQQSnucTJfltih LumGqaRPrIfXWTyEfirTYeqBiiCiK7gNNRHMOdeH/ehKmIPu3jxksW4qSwbW HEq7ygV4ZPOYrJsjd/SRQxJhsjlMy4g22TRmGcVmGiaIrF5GK2Ff3oVWIqtZ yp9b64Shzk6j1iBRNtTIoK0oF25KvyGeaPgjHH3rFI69fZ4gC8Wxn4WJ4Dou gouSYJ9QVu8qxeoVAkzY8wxDYaIKpak6lN+jpelwiEEr6aeVaDyYDcfxGLFR s53mpLUmaGG7o0HbbTXTv4pPJZ9ytMY1iPtGXalmfp8ZHbeNsEZpvrz49000 JFihTPYjTE2EWYiwdiKsp3EbQ+qHFKWPKWKfYLH1KbLCpmAq+hdM2F9iY+Yl lr1PkHnXixwyjzJGvpoyL1WSF0oSvCaOmEbhgbZpEhrNBNTacSgZLuR6zoJ+ EDXqPvTr6n87AK7GDCWUWa1UOy4a03muhwpmFu18nZ6aVQw2bFJ771B7P8IC Qb9meoYtpvXqqxsYSV/G05JR/GO5Fi8cz/Gi4xmedzzFk47HZOI72HJsYs2+ huW2Jcy3+jDTPEWGOwIP9bZH106A6eCWlgUuQ/w5arOroBAAVkQFVtxG66LQ 64elmIG3mGy+ZBIDpVMYo0OVnNKg6jwBFuaCNHYIdQmTdFg6W/oiZDenYMlY RHfZIoYZrkaY/sblQknfeUw3+TDJUOaRE2hyKjH5JG0MjsoutFd1oU3SCavU CYvQskwoKMeMbai3EGRq6GsaUFdc4L9yHPUayIIIshAC7JJYtfjYBxGB2o1X cOaAsAoitIQVwNWIshSKnHtaVKZR39KOfb8QUT+shuTDYrQzgnUdDiVodHAx inXcJdDu+sHWmaRBZ3ITnwr+WT0GcszozzKjL9OM3jQTXMyijtgmXHsdZH+A 2ngrGu8SZOkjzEdMdZxVO0HW3biJQfU2xg07mLY8xL3LTtTf+wV6DC+xMP4S 64u/wtMezmbfM7zof4ZP3c+QTqKXR3pbXDmFcikVRr0HVRy9ysYJlCvHUawc RZ6MoaPDhXFbc+BsPxF2n+Eik7OZ1ccwNkrCSNJSMs9EsYKe2g0MybcxoSLY tU+xaHxO3vQCWy2foThkFe0pO1hjrvxHuvx6tgovOl/geedzPHE+xcPOx9jq 4N87NrBsX8G8bQEz1mnS1TF4LG4ijblRZ8SArCKAsB9CnlvD3EzOV8jwXuRE U1EfNeEwWoom4Cj2oqd0FoOVc5ioWcA0iVPFmTZILvVCem0ItSRd8hT+7tcm 6LgLsBYuw0XSOyBfxFDDEkYVi5hQL2BKO4cx+TQR58WkUJy9cZw2wj9zMzE6 0Cp1oLmuHab6ttdqsBmhq9dAJan70k1DYfNn93n4zXM48lYwjv70ImF2GUc+ INQ+IgHbF4FTQucXoePwoUsoSyZ1T9UwKVfd0wjHUgi3hkQtzv93KfJ/VoPm gwUYOh4HV6oF/fcsGCSXdfHZk0Yo3TeiL13Pp4Z/piCZbMEIx2o434IhQm4w w4j+FA3ab8hiXt+9/X3IbvVSFoyQLjLZlc3DRiLWJV+DW72BMcMmvJYtpFx5 hBaZX62vLL7Ew24mop7HeNr3GM/6mZjcfNKeuB/hYf8jbPU/xHrvNpZ7N7DQ u4qZXvpwD2OIawiTzi4M2cyvQMZfVZnuINCYP7PGyQdn0Ez3d0hW0VO/iSEF I6r6CWb0z7BIBrHW/Bm2Wj/Hw7bPIb/9FFOF2/icoP5lnQkvuj7Ds64XeNL1 DA+7nmCz8xHWnFtYcqxh3k5GbWP4sE0ERHun0AEdA4rKAMi+B0VOHUkgiWAB iWBhD1SFQzAUTqC1kDmvxIc+OuGwZIU5b5X5bQ2FxyxkY72QRI6gJn4SOWHd qLoxBnXWMlorl9HVQKDVLaNfvowh1RJluwA4L4bJVUfogKME2FjjKMaUgxil 1vX1LMJSa4OxvpXgaoVOrFwmtBQyMUOoxBtJ4tq6uKQpQO3bIsBiA4vrh968 gMNMmIf3XsKh98Nw5CMy/X1h+ORAGE4evISSxAaUiyBTo5rjLiXAau4a0Jho Qsj3JUj8OyU0H9Vi4FgOho5cxyCdfzi7Df18DmTZMJjdSmvh52Z4K52YqnBg styO8VIbxoqbMZZvwsgDYTdc9a9AVnujhy44yhGm9imdQwvdtEO2hL6mFYzo 1+Axr2PWuoEG00uMTjOMdW5jq3sbOz3beNS7g8d9O3jSLxi/pu30b2Gzbwtr fZtY6l/HXD+Ve58Pnl66rWsAY84OdFp0X9tl+MkEWRpBdt9NoE2QGM6iuXwJ jpp19DRsY1D5CBOap5gxvMCi5TOsWj/Hlu0X2Gn/BcqjH8OV+xzb0jX8s2IA L7o/xzPXZ3jc/QI73c+w2fUYa3zdpQ6+hmMJ0+18jXYPPPYhAq1L6Bn+1cC2 oZJCQZnn37NR5ruhKqBYzZ+CrciHTmK+v3oVI7Xr5FVb8Cm2sdj0ECUnu1AZ PoKMs07iawTVCR6osj0cwRWmvBU465fRo1imuy6ht86DvvpJuGUTcMvHMcjg NagaIivpZ9Jwwds7J96m1TZYxZYjTcSXStYCRb0BNVUysSvCLsZiIv17OP4a eX8iNkfY/6MgHHz7Ig4yXx54LwyHPrzsb9azLxSFtyQoI74qkhWoTGlCVaoB UhKp2rsM2Ik2GJLsiPxLPWre1aL7eC2mg9IwlNeFsUKGg9wuBqoujHBcRvKF LUM3FW8f1XAvpiXd8FY5MVlhx2RpCyYL9RjPaYL7fgOiXwfZ/4WKqx3iGRP5 Ay9UZELmah/s9fNwKRcwoKX7mZYxRb3voy5baF/DinMd610b2HRtYLuHxmi1 Bzt9GxREO33r2KKt9/H7+lex4F7GrJs5ws081TeGcVc/3B3tv7PLCe8SYCmM Gvf8AFMTYJaKZbTXbMAl2+EsPMG49hmmmSYXml8QYJ9is+1TbDs+w6OOz0h+ PoVP8gj/oJrBr5oseCoArIcAcz3DRvdjrHbtYLFzA3POZXidnEUnAeYgwOxd mGwxvQJY1u5eDDlh3hCa8iZhyptBGzNxV+UK3MT7aMMWphofYk71CEuaJ1gl Nyw5P4C0k4PIj5xCRZIXjTmkojRjIYFW6kFbxSQc1ZNwSicplsbhahiDSz6K HuUwetWD6NP2o4fiZ4wuOOL2YWjABzkBJqPVk4NVSZoQGe5vvfH6KnjMl1fC /wgf/zgY+356Cfv3Xsb+94UtwVDoqWGLb9eglOypPElFhBlQmdyC2mQbahMc UCU6YUzuQjTRlfO2FdZjekwFV2I06B6GCvoxXOjGKMnoKNXOaHE3Fvnyiw0j WGgYxlz9AGZq+zFV44KnisS2vBmTxTpGMvkuuv4ucMdFIkjte17I82ehKafU rvWho9HH338OgwbyVMsivNYlzNqXseCgMOtc4bStYN1F61nFRs8KNnr5OW2t bxkr7iUsDixiboCMZWAWE24vx28UA929aG027yJLSgWsSGToSvUjq6nABzOR ZZduoJvIGuA0jukew2t8Qh34lHrwGXXtc1L453jofI6qO0/hLn+Ox6pV/Iuh n2n7OR6RIG67nmLD9QQr3UQWncDHV53qIrK6iKxO5keHE+NW428F7nnWpuRD +UBPHkiQ55AP5lD85FKqFsyhrYyprnod7totjMoekq0/xpz6KZb05ITGFyg8 50L6iREURk8z/UyjOnMKsgdTROcU9EUemIkwa+UkbDUTsNeNo11GVs+02KEa hlMzCKeuHx16F9xEl7CAuAc9/PjvIalrQZlEh4iwOFwhuv6tymx7xDXtb4uV 2aICfSY++EkIPmQI+3BvKOoYenOvl4oAK0loJMj0DGMtqGK4qktyQpXkIsB6 YUzpR2vaAG79qAOqI3aMXNRgJTIfw8WjGC1lCi8bwWjZEFYU0zQvlhVTtEks MMXPykbgbSCvrSXIJARZhRmeMiWGC6RRr1//+M+QMLjXZdF3SDb0jF7WBh+c SmJMS58y+jDWPCcWBZ2xLzDXLGDBucDJW8RS9yKWXbSeBSz18c/65zE/MI/Z gTlM0RfHBwS/nIK7ZwQdjs7fDYgM2W1OZhJ5V8Y4cTUrVmuw1ayhi/nHrdrG qG4HU6aH8DUzVLQyCtmfYMPxBNvOJyTxT2Aq/BSL5Gf/aPISW2Y8JCXc6nlE yD/k62xhgYF1tke4t87XdjEzdw1QZDgw2KJ7tUaiJDFVPuhg6HKL/E+TOwNz 8QLsFavortmEu36HHIn4bnqGOd1zLBk+Rc65VjTF7WC44Z+QGzGB4oQZFCd6 qc28qM/yQsGcqinxQF/pgUkySUk4gWbZOFoUo7A2DcOqHYRV348WfQ+c4pUG oXXJb8Dey6jdOemvvXT5BsLC/VslEVd2Gyh8UdBsj1DSbA+uRMfRO4QNkvKb E6hK86E614e862UojK9D0W01X85CVNlRebcLdUI77sQBhqshWFP5Mg/GcOvN DpQf6EF3iB2L1xoxXDaF0QrBJrGqWsRa0wJtnjaHlaZZLKq88Kkm4aWHTAmo qifHkNqILB2TZB2+BKnfRXGYG9UpM5DytRrLfDBIfWiVM3RRTvfofBgwERrN PkxQ5k/ZfaQvc5jt8MHXSeum9fgwy9GZpstNBTY4h8VtpWn0km11dLoDzVJ+ H3Vx7WhMIJ7uj0FFHq8vW4K1ZhVOcuU+1QaGtZuYNG5hpnkb8607WLILIvAh NpwPsdX5EJL7zyj7n+EXHY/wLxNzZH87TM7bWOshh+/ZxFzvGlmeUDqHPL6X PJ5JeMLZ/tuBUKm8T5qcQWqVOUhITUKdx1BZsgR7JXWzlJBmbBpTPoFX8xxz +k9JqfSojlhHV8UvMe/4JR5N/Qse2X+BvPhp5Kd4UZrpRTVjVF3xFOTlHigJ JTWhpCGUdMoxaJtGoNMOQatzQ6Pv2SP24HgDpq7ZVxdj/Bsc/xsuiZW8bojd AcL+f7oD7Al4RdGtMZRlMDRdK0deXCMK4o0ovG1D8R0nyhN6UZcwSCCNwpAy AWu6Bw6ivitvGvc+GIL5Qj+mY1uxfacKQxUzWFWTxmjXsaFdozER6ZiYtItY pNyd00xjmmDyKIbhkfeReVJ6U9Z6pIpdIPlvWf4OCqKGUCHgmwmoscJ/l7OF QGonkLoJpD4CaZBAGiGQxgikCYcPkwTRJEE0SScbJ4jG3OLNZbE1lxDDu/qm 0dY5gt8LLIE33OynIByDInca2pJ5NFdTCFJE9ShXMMjXHzOsY8rCoNJKXdlG 6t++hdWOLcqFLWx0baHL+hLPF17il8/+WWR162R1K73rWCSL81EiePuF4hkC gxvHpKsPg442/Pbu+dtUoieN6Lk/RARNoimf6CldRlvVBrrqtkmoH1OkPcOU 9gXmDJ8hJ4Tvl/dL0q+X2Jx4iR0i56HjF3jk+Bz3b0zgQaoXOZyW4gJyKma4 6qpJSKUTqK0fR33jGOqVI6hTD6FW44ZU3YMmOl2d1fPVAJizoyTIvq5GTlwz AelAwa0elN0eQO0dqqikSehJRVoyZ9GeMwdnwTxSPiQ9OTuOoZg+bCYasKal BGf83tDThwzbtE1sGNexalhlDF1iLJ3DtMYLj5p+pGK+VzE5KRlG5FqMVJdH vl5L4asoTfehUrj1WOmDhhHEzIm3ceIdnPhuMxNUCye1jVGBkz7ISR/kpA/0 +CtF9gbaQzn4bOuZgalj7BsBTiWN6YEsaZyMfRpKMnZjFf/bunl0Ni6ij4Jm SL+McfOKyNpnbYKIXxPF/IpzDauda1jrWsPAKuViNz93rWKV3Gqpfxnz5FYz 7nl/kRS3B5PkVSOu3l052JjEnJPKqb7Hqc6gnsqfg6l0BbZqYap30N/4BKNN wlQ/R0rQGL/vf6Ff9xJLwy+xMPk5tts/xY7jUzzs+BSPnC/Is14wJz5HYsYU UhkwMpl7ckho8mrGkV83hjyyzTzZEJ9ujDerd1dw5Rml5FFk7Hk2PLhmQ9aN LmTH9aP45jAktycgT/ZCc38Wpqx5tOZRrRZS7hWvIOfENNqjJrCY1I2n6TJO 6xNsmp5gy/yIxnBqpleYN7BkEk5QLWJaL7SEmaIJR/fo5Bo6eZMREw0SRL5e N+b/RsEDcu1iH6QkH4p6H8OcDyYNiQjJRxud20HndtK5nQSrk/PcwXluZ9Rr pVloxs4Z1Fvc/qPFXyd5HUH9/WlyZh/U5MyWGioy2Ry6VPMc0HkMG/28eYq8 eaaNoGzn3HUsY5EyZ6mT1rWEJRd5ci/DVT85DxXYjMhp5piIZjFOTjPcO4zu jk680vp3OLlkbsrUwVeTa+DktlZvopOT29f4CCPqx7h9jsL65nO0y1/C2/cS yzMvsWGnnm8nOe54hh3nM07sU+x0PmVyeoJ152Ny+kdYoNaf7WIc6l6Cp5uJ qHuchLmfhLkNfcbGV8vz6RXkM3qxybifMI/QSHiZh1uKGNbK1tDDVxqUbnMi HjGdP2Faf4rM4zNQR8xhMnEMT7JsnMzn2LTwlcjtt5s50c0Pscr8uSQck6Nr TJuEHiQMaeKBJPqxkXRARxWjrNud3Hd2byFxYks4sTVklTKVDyo6r5ZR28CJ NXJijZxYIx1Yz8lV01QOISJNfStATsvCelCTOCUS1AbSZi2dtbmO808R1KVm AuB/N2SaI0mdxyRJqtcmEFWSUMc8fE4a1YWPTHC2bw4z/XPw7h6XEsgpJ3Ow 3wNX98DvBMipcKBBcYfEMGmA8zgJFbO5nvHYSqXRUbeF3sZtDKt3kHz5EQyV v8JQx0vMeTmPNoGoPiZRfYzNDhJSp2D0DM7dJknGGqX0UhcJSPcGZnqEUmNC ZfQZ2hjnsg+THW2vVsDlaZXMBcwLWQGCms1gkD0Nfd48rPTEjooN9Ei2MVT3 CBNyMgvlM/jUL7Cg/RQlF1fgSpjHRvYgPivSYKvlBbasFGYtlPRW6u6Wh1hq 2cJc8zqmm4kli9AVg+KrmanYwmBssmJSI9udxJ+Lj/8dDxh9Czni5RzxKo64 hBNYzX9aSSs3z/qvlP4nlEUPozp1FjWEm1B9QUsRbaFD2xU+dPKf9jImuPlP hzn3o1ZOBIP3JOfbQ6f20Kk9DN6TDNjjbmFyGNAD1Rf6mD07XaO/G4gXspsd UCRwYO6PQ5k7y6S9xKS9iva6dfQ0bmCgaRM3E34Fo+klJpkk56w7WLDtYJnM b7Wd7K+DGcq5s4cftvHrWGcOX+3exCJzt49kz9snlIEjwPuE8m+MXq5eDLe3 vpqe1CoohSNWmbukb4LTNAt9/iJaSlfRUbWFHulDDDU8xoTiGTXEC/g4NQv6 z5AbvArTzXXM8vs/Le3CVquwrvwpTTj58hSr1DuL5Khz1g1MW5cDvRj4Gja+ RmsvPC02TBoad6cnNnCVtPjGOCrvc2oY8WSk2xpGPLNQ8YLj7mAg7eK49zJh upkwBznmQxzzYY75MMd8iGM+yDF3M1n2BkoEdJLqtrs8/zlAkKRME/J4NxT3 ON4501AXz8NcuYi22mV0ylfIstcwRKI0zkzvIVGaadnAXOtmgCxtYtlBQtSx gVUnrZNsgAl0iYlzgYlzlsx6SiBI7kC9vb4RjHf3BIrBk16ncaTvd3HE/VlT mU2HLFxCCyOZo5ojXfsIQ7KnGFc8x5T6U8zqPsO84XMsmX+B6pgdDGSs4WHZ BP6h2owtG0fb9gIbbc+w0vYEizaqTNsmvK9K+jOitdMh7RzpVhsmjIrAQPu5 8m+JV4DLSUVrmVZU9Am9jABnULPRJxwEtpMD3G3zwdVOqunkM1CDobPX36jS 3idUCZ2FuXMqQD9/D3WxfQE6Qg3J/1tXLqxUz6O9YRHdyiX0a5ZJSVYwZiIs m1eJC2ExkUnWvor59lUsOmgdK5TkTGEuprLeJdJOJmCBigz467VNMmWNc2Td nV2vBjaFEeYeBzaNEL7vH1hd4TJaytfhkOygp+4xBuXPMKZ6gSnNC8xQu8wZ Kb3Nn6Lo6haV5DYWS+bw97UubLa9wKb9OdYDA7tgfwQfWbKXrMnTwYF1MtI5 ObAd5AF2G4YMssDA+s/o/J/IJwUoZKaoqvLfq1YRuToi10QKYGGQsTJTtDJT 2IjcVg5sCwfWItyr7hZKSM7+QcARauNH0ZA2DRkDkLKESUZYzqibg6NxDi7K 2X7tAn/4AsbMi6TQpACtHCfbImbaF5kxFqk/F6g/FzDbwyzCjOH1F/zaI6aM NzDKZOF2DQainT9jKBKZ+ZOZ+VM4jmmT4jhqi5bRXL6Bdo6jq/7/be9cftsq ojB+2AISK8QGVFXin2MDAsSjEaVSFzxKqtKQJmkbJ46dhx+JazuWm/jtazuO 7cR5OJad67ycR5uQCMQCUbGg/ObO5MF/wCKLq3s3njtz5pzvfN/M+NxTqShq R5pdn/4NXgRaR9X3iX6Xvk9h5LdPpN63L2djq/JqIioHyTPZJ5Pspsj6yNQ2 GLUB69T1wrFjHjvmcNDU/LlYuuXc3paf4MoPMOAQoT8Ch/LOwKcwoA8DBoDb AJ7px4iTeOd4YvOmEetPPi7LKCnWfa8tYzQRwLkjIMgczaSZB0ul2We2VCO2 LMdsWY3Dg2iqQVONjK0X8ApcOPdaWeutZSPYawj2cmnViPUbMt4DOfk2rfOr sdY01prFWknXC7E8JxDhE1ny/yqrM6eyoY41RE/Fjp3KVvxUHn39EvHxQvZG bfkrYGEpiEma3Joht2YR+flD2SgQKAVVD5pwLgKcwMl6+sJat406/g4362V4 DxjeQ+K3N9g2tRHek6HPl2X4LonsPu7Yr8sIRZCez4n3pE8nsyKgWibmKySz JcyxjFXruGYdl1wu6oJZVVNGqFzRi4gWKeV9s24x2YMZ1LqFQtXetgRBtejQ vsy7DiXrOXLODlXUetjMMZh/LE31DbgYuSF+LP09zOL3J9IJ/SGvamfydy0n u5kjvVpvkdoLV8v9Xkljybixgs+5vSsDX605AvsJEeMmYnyqYBL8KnZFa+UY pQWylRjlAqNcYJRlRrnAKNVneFXKUFpL1RJPl1rmD1YfiOfLhEzegoWqPTjE lv/hloQHgRgnV++LNXEgZf+h1KYPZeWZWqVRG79H0o4fyebzIxke/kca1dfy 58vXoByCmjDoWHvO6l7zok6r2l1CZiC21phos34eMFRBAfYAoOrCpydMzZEw gB2buZQXKYaVYVgZhpXOa2mRMGWcVTnnWL51w2C194uSTNypyySaaxJqGHzU kejTbZlz70hmfFcKvj1ZDHalFurKSqQr67Nd2QCzW2B2aw7cTuzJZpoLqbEJ lW9DA5tqjsodnQEhO05tTYXV2awZTNC5vSP3f2jJz3DgAfTwCHM0DiPz44nT YeZs9rL4xCwgGcnq2rqqxm6I55tGHLk+yYkHgaQLt+NFilM/thFJtiS8HclO bUkxsA1SboOU21KP7iCWsDVo2QAtm0kuIL2Zh2sXOrKBkdaZ9/+URiTbVIrV 87/Ohpzbm3KPbvfR7SG67QLb3XTbQ7e9uNYY+O5hHtxzmx8aWBr5rCLuOw0Z U2cvITY+CGUIPI8RhwniMDsFpgdtJJ0tlbAtS7O21IGmlQQQlebKceGlq/Sw braINOtX0NSSxYW18/Mv2ybs1Tb6yF1dbsmNYXx4jdoIitHreQIijefk6XmR npcB1QoGr4KCVXRLDUPX8JxqSXMpFfaLF9XDmufnuXZM3A31NJyiOE9BmFH1 yWmMM4ODRnHQ+JSu6pTmNTleY2GcIq8p8poirynwGstUdbIWzWewiTtzKHHX kJVfvlmXAfx/EOO5YIVeRuJX8npKy+t4+LLmTormUzSfwmWSxv9V3Z0EV7zQ MgRIusYTz9P1oPJEt/ZEH2gxDSaGmNJw3JRBSWlPDNNsxFR7NofDD5zbW/Ij GacX0OmnZ4/p2YjxDK/xDO+8k6yce4/+qbNq+dH18/Xz9fP18///Wd74F1kq FNo=\ \>"]], Cell[BoxData[ Graphics3DBox[{ {RGBColor[0.7333333333333333, 0.6, 0.4666666666666667], SphereBox[{-7.987871802000001, -3.2446595420000004`, 0.01889726}, 0.255]}, {RGBColor[0.7333333333333333, 0.6, 0.4666666666666667], SphereBox[{-7.874488242, -0.43652670600000004`, 0.62360958}, 0.255]}, {RGBColor[0.7333333333333333, 0.6, 0.4666666666666667], SphereBox[{-5.51799992, 0.754000674, -0.498887664}, 0.255]}, {RGBColor[0.7333333333333333, 0.6, 0.4666666666666667], SphereBox[{-3.13694516, -0.5669178, 0.474321226}, 0.255]}, {RGBColor[0.7333333333333333, 0.6, 0.4666666666666667], SphereBox[{-3.246549268, -3.3731609099999997`, -0.268341092}, 0.255]}, {RGBColor[0.7333333333333333, 0.6, 0.4666666666666667], SphereBox[{-5.599258138000001, -4.593923906000001, 0.880612316}, 0.255]}, {RGBColor[0.7333333333333333, 0.6, 0.4666666666666667], SphereBox[{-0.748331496, 0.691639716, -0.58581506}, 0.255]}, {RGBColor[0.7333333333333333, 0.6, 0.4666666666666667], SphereBox[{-0.8617150560000001, -4.7526608900000005`, 0.583925334}, 0.255]}, {RGBColor[0.7333333333333333, 0.6, 0.4666666666666667], SphereBox[{1.479655458, -3.513000634, -0.5234541020000001}, 0.255]}, {RGBColor[0.7333333333333333, 0.6, 0.4666666666666667], SphereBox[{1.63461299, -0.7502212220000001, 0.281569174}, 0.255]}, {RGBColor[0.7333333333333333, 0.6, 0.4666666666666667], SphereBox[{1.7461068240000002`, 4.781006779999999, -0.7899054679999999}, 0.255]}, {RGBColor[0.7333333333333333, 0.6, 0.4666666666666667], SphereBox[{4.042123913999999, 3.3164691299999998`, 0.111493834}, 0.255]}, {RGBColor[0.7333333333333333, 0.6, 0.4666666666666667], SphereBox[{-0.61416095, 3.471426662, 0.222987668}, 0.255]}, {RGBColor[0.7333333333333333, 0.6, 0.4666666666666667], SphereBox[{6.644276616, 4.208419802, -0.7502212220000001}, 0.255]}, {RGBColor[0.7333333333333333, 0.6, 0.4666666666666667], SphereBox[{3.919291724, 0.582035608, -0.8673842340000001}, 0.255]}, {RGBColor[0.7333333333333333, 0.6, 0.4666666666666667], SphereBox[{6.551680042, -0.438416432, -0.260782188}, 0.255]}, {RGBColor[0.7333333333333333, 0.6, 0.4666666666666667], SphereBox[{8.316684126, 1.84248285, -0.589594512}, 0.255]}, {RGBColor[0.7333333333333333, 0.6, 0.4666666666666667], SphereBox[{-8.252433442, -3.516780086, -2.0409040800000002`}, 0.1]}, {RGBColor[0.7333333333333333, 0.6, 0.4666666666666667], SphereBox[{-9.662169038, -4.108264324, 0.927855466}, 0.1]}, {RGBColor[0.7333333333333333, 0.6, 0.4666666666666667], SphereBox[{-7.902834132000001, -0.15117808, 2.698528728}, 0.1]}, {RGBColor[0.7333333333333333, 0.6, 0.4666666666666667], SphereBox[{-9.582800546, 0.5234541020000001, -0.109604108}, 0.1]}, {RGBColor[0.7333333333333333, 0.6, 0.4666666666666667], SphereBox[{-5.410285538, 2.804353384, -0.043463698}, 0.1]}, {RGBColor[0.7333333333333333, 0.6, 0.4666666666666667], SphereBox[{-5.589809508, 0.65195547, -2.590814346}, 0.1]}, {RGBColor[0.7333333333333333, 0.6, 0.4666666666666667], SphereBox[{-3.091591736, -0.428967802, 2.583255442}, 0.1]}, {RGBColor[0.7333333333333333, 0.6, 0.4666666666666667], SphereBox[{-3.375050636, -3.5035520040000003`, -2.375385582}, 0.1]}, {RGBColor[0.7333333333333333, 0.6, 0.4666666666666667], SphereBox[{-5.686185534, -6.614041, 0.343930132}, 0.1]}, {RGBColor[0.7333333333333333, 0.6, 0.4666666666666667], SphereBox[{-5.472646496, -4.561798564, 2.970649272}, 0.1]}, {RGBColor[0.7333333333333333, 0.6, 0.4666666666666667], SphereBox[{-0.95431163, -6.761439628, 0.001889726}, 0.1]}, {RGBColor[0.7333333333333333, 0.6, 0.4666666666666667], SphereBox[{-0.74644177, -4.769668424, 2.675852016}, 0.1]}, {RGBColor[0.7333333333333333, 0.6, 0.4666666666666667], SphereBox[{-0.839038344, 0.617940402, -2.696639002}, 0.1]}, {RGBColor[0.7333333333333333, 0.6, 0.4666666666666667], SphereBox[{1.765004084, -0.6727424559999999, 2.3905033899999997`}, 0.1]}, {RGBColor[0.7333333333333333, 0.6, 0.4666666666666667], SphereBox[{1.456978746, -3.658509536, -2.6153807839999996`}, 0.1]}, {RGBColor[0.7333333333333333, 0.6, 0.4666666666666667], SphereBox[{3.2030855700000003`, -4.52589377, 0.098265752}, 0.1]}, {RGBColor[0.7333333333333333, 0.6, 0.4666666666666667], SphereBox[{1.698863674, 4.881162258000001, -2.8799424240000002`}, 0.1]}, {RGBColor[0.7333333333333333, 0.6, 0.4666666666666667], SphereBox[{1.82358559, 6.761439628, -0.12283219000000001`}, 0.1]}, {RGBColor[0.7333333333333333, 0.6, 0.4666666666666667], SphereBox[{4.0175574759999995`, 3.3013513220000004`, 2.226097228}, 0.1]}, {RGBColor[0.7333333333333333, 0.6, 0.4666666666666667], SphereBox[{-2.356488322, 4.452194456, -0.423298624}, 0.1]}, {RGBColor[0.7333333333333333, 0.6, 0.4666666666666667], SphereBox[{-0.648176018, 3.5980383039999997`, 2.31491435}, 0.1]}, {RGBColor[0.7333333333333333, 0.6, 0.4666666666666667], SphereBox[{3.686855426, 0.59526369, -2.970649272}, 0.1]}, {RGBColor[0.7333333333333333, 0.6, 0.4666666666666667], SphereBox[{6.572467028, 4.956751298, -2.7004184540000002`}, 0.1]}, {RGBColor[0.7333333333333333, 0.6, 0.4666666666666667], SphereBox[{7.3699314, 5.769333478, 0.43085752800000005`}, 0.1]}, {RGBColor[0.7333333333333333, 0.6, 0.4666666666666667], SphereBox[{6.631048534, -1.188637654, 1.689415044}, 0.1]}, {RGBColor[0.7333333333333333, 0.6, 0.4666666666666667], SphereBox[{ 7.0789135960000005`, -2.0295657240000002`, -1.5061116220000001`}, 0.1]}, {RGBColor[0.7333333333333333, 0.6, 0.4666666666666667], SphereBox[{9.492093698, 1.645951346, -2.30546572}, 0.1]}, {RGBColor[0.7333333333333333, 0.6, 0.4666666666666667], SphereBox[{9.662169038, 1.97476367, 1.00155478}, 0.1]}, Text3DBox["1", {-8.587871802, -3.2446595420000004`, 0.01889726}, {1, 0}], Text3DBox["2", {-8.474488242, -0.43652670600000004`, 0.62360958}, {1, 0}], Text3DBox["3", {-6.11799992, 0.754000674, -0.498887664}, {1, 0}], Text3DBox["4", {-3.73694516, -0.5669178, 0.474321226}, {1, 0}], Text3DBox["5", {-3.846549268, -3.3731609099999997`, -0.268341092}, {1, 0}], Text3DBox["6", {-6.199258138, -4.593923906000001, 0.880612316}, {1, 0}], Text3DBox["7", {-1.3483314960000001`, 0.691639716, -0.58581506}, {1, 0}], Text3DBox["8", {-1.461715056, -4.7526608900000005`, 0.583925334}, {1, 0}], Text3DBox["9", {0.8796554580000001, -3.513000634, -0.5234541020000001}, {1, 0}], Text3DBox["10", {1.0346129899999998`, -0.7502212220000001, 0.281569174}, {1, 0}], Text3DBox["11", {1.1461068240000003`, 4.781006779999999, -0.7899054679999999}, {1, 0}], Text3DBox["12", {3.4421239139999993`, 3.3164691299999998`, 0.111493834}, { 1, 0}], Text3DBox["13", {-1.2141609500000001`, 3.471426662, 0.222987668}, {1, 0}], Text3DBox["14", {6.044276616, 4.208419802, -0.7502212220000001}, {1, 0}], Text3DBox["15", {3.3192917239999997`, 0.582035608, -0.8673842340000001}, { 1, 0}], Text3DBox["16", { 5.9516800420000004`, -0.438416432, -0.260782188}, {1, 0}], Text3DBox["17", {7.7166841260000005`, 1.84248285, -0.589594512}, {1, 0}], Text3DBox["18", {-8.852433441999999, -3.516780086, -2.0409040800000002`}, { 1, 0}], Text3DBox["19", {-10.262169038, -4.108264324, 0.927855466}, {1, 0}], Text3DBox["20", {-8.502834132, -0.15117808, 2.698528728}, {1, 0}], Text3DBox["21", {-10.182800546, 0.5234541020000001, -0.109604108}, {1, 0}], Text3DBox["22", {-6.010285538, 2.804353384, -0.043463698}, {1, 0}], Text3DBox["23", {-6.189809508, 0.65195547, -2.590814346}, {1, 0}], Text3DBox["24", {-3.691591736, -0.428967802, 2.583255442}, {1, 0}], Text3DBox["25", {-3.975050636, -3.5035520040000003`, -2.375385582}, {1, 0}], Text3DBox["26", {-6.2861855339999995`, -6.614041, 0.343930132}, {1, 0}], Text3DBox["27", {-6.072646496, -4.561798564, 2.970649272}, {1, 0}], Text3DBox["28", {-1.55431163, -6.761439628, 0.001889726}, {1, 0}], Text3DBox["29", {-1.34644177, -4.769668424, 2.675852016}, {1, 0}], Text3DBox["30", {-1.439038344, 0.617940402, -2.696639002}, {1, 0}], Text3DBox["31", {1.165004084, -0.6727424559999999, 2.3905033899999997`}, { 1, 0}], Text3DBox["32", { 0.8569787460000001, -3.658509536, -2.6153807839999996`}, {1, 0}], Text3DBox["33", {2.60308557, -4.52589377, 0.098265752}, {1, 0}], Text3DBox["34", {1.098863674, 4.881162258000001, -2.8799424240000002`}, {1, 0}], Text3DBox["35", {1.22358559, 6.761439628, -0.12283219000000001`}, { 1, 0}], Text3DBox["36", {3.4175574759999994`, 3.3013513220000004`, 2.226097228}, {1, 0}], Text3DBox["37", {-2.9564883220000002`, 4.452194456, -0.423298624}, {1, 0}], Text3DBox["38", {-1.248176018, 3.5980383039999997`, 2.31491435}, {1, 0}], Text3DBox["39", {3.086855426, 0.59526369, -2.970649272}, {1, 0}], Text3DBox["40", {5.9724670280000005`, 4.956751298, -2.7004184540000002`}, { 1, 0}], Text3DBox["41", {6.7699314, 5.769333478, 0.43085752800000005`}, { 1, 0}], Text3DBox["42", {6.031048534, -1.188637654, 1.689415044}, {1, 0}], Text3DBox["43", { 6.478913596000001, -2.0295657240000002`, -1.5061116220000001`}, {1, 0}], Text3DBox["44", {8.892093698, 1.645951346, -2.30546572}, {1, 0}], Text3DBox["45", {9.062169038, 1.97476367, 1.00155478}, {1, 0}], TubeBox[{{-7.874488242, -0.43652670600000004`, 0.62360958}, {-7.987871802000001, -3.2446595420000004`, 0.01889726}}, 0.15], TubeBox[{{-5.51799992, 0.754000674, -0.498887664}, {-7.874488242, -0.43652670600000004`, 0.62360958}}, 0.15], TubeBox[{{-3.13694516, -0.5669178, 0.474321226}, {-5.51799992, 0.754000674, -0.498887664}}, 0.15], TubeBox[{{-3.246549268, -3.3731609099999997`, -0.268341092}, {-3.13694516, \ -0.5669178, 0.474321226}}, 0.15], TubeBox[{{-5.599258138000001, -4.593923906000001, 0.880612316}, {-7.987871802000001, -3.2446595420000004`, 0.01889726}}, 0.15], TubeBox[{{-5.599258138000001, -4.593923906000001, 0.880612316}, {-3.246549268, -3.3731609099999997`, -0.268341092}}, 0.15], TubeBox[{{-0.748331496, 0.691639716, -0.58581506}, {-3.13694516, -0.5669178, 0.474321226}}, 0.15], TubeBox[{{-0.8617150560000001, -4.7526608900000005`, 0.583925334}, {-3.246549268, -3.3731609099999997`, -0.268341092}}, 0.15], TubeBox[{{ 1.479655458, -3.513000634, -0.5234541020000001}, {-0.8617150560000001, \ -4.7526608900000005`, 0.583925334}}, 0.15], TubeBox[{{1.63461299, -0.7502212220000001, 0.281569174}, {-0.748331496, 0.691639716, -0.58581506}}, 0.15], TubeBox[{{1.63461299, -0.7502212220000001, 0.281569174}, { 1.479655458, -3.513000634, -0.5234541020000001}}, 0.15], TubeBox[{{4.042123913999999, 3.3164691299999998`, 0.111493834}, { 1.7461068240000002`, 4.781006779999999, -0.7899054679999999}}, 0.15], TubeBox[{{-0.61416095, 3.471426662, 0.222987668}, {-0.748331496, 0.691639716, -0.58581506}}, 0.15], TubeBox[{{-0.61416095, 3.471426662, 0.222987668}, {1.7461068240000002`, 4.781006779999999, -0.7899054679999999}}, 0.15], TubeBox[{{6.644276616, 4.208419802, -0.7502212220000001}, { 4.042123913999999, 3.3164691299999998`, 0.111493834}}, 0.15], TubeBox[{{3.919291724, 0.582035608, -0.8673842340000001}, { 1.63461299, -0.7502212220000001, 0.281569174}}, 0.15], TubeBox[{{3.919291724, 0.582035608, -0.8673842340000001}, { 4.042123913999999, 3.3164691299999998`, 0.111493834}}, 0.15], TubeBox[{{6.551680042, -0.438416432, -0.260782188}, {3.919291724, 0.582035608, -0.8673842340000001}}, 0.15], TubeBox[{{8.316684126, 1.84248285, -0.589594512}, {6.644276616, 4.208419802, -0.7502212220000001}}, 0.15], TubeBox[{{8.316684126, 1.84248285, -0.589594512}, { 6.551680042, -0.438416432, -0.260782188}}, 0.15], TubeBox[{{-8.252433442, -3.516780086, -2.0409040800000002`}, \ {-7.987871802000001, -3.2446595420000004`, 0.01889726}}, 0.15], TubeBox[{{-9.662169038, -4.108264324, 0.927855466}, {-7.987871802000001, -3.2446595420000004`, 0.01889726}}, 0.15], TubeBox[{{-7.902834132000001, -0.15117808, 2.698528728}, {-7.874488242, -0.43652670600000004`, 0.62360958}}, 0.15], TubeBox[{{-9.582800546, 0.5234541020000001, -0.109604108}, {-7.874488242, -0.43652670600000004`, 0.62360958}}, 0.15], TubeBox[{{-5.410285538, 2.804353384, -0.043463698}, {-5.51799992, 0.754000674, -0.498887664}}, 0.15], TubeBox[{{-5.589809508, 0.65195547, -2.590814346}, {-5.51799992, 0.754000674, -0.498887664}}, 0.15], TubeBox[{{-3.091591736, -0.428967802, 2.583255442}, {-3.13694516, -0.5669178, 0.474321226}}, 0.15], TubeBox[{{-3.375050636, -3.5035520040000003`, -2.375385582}, \ {-3.246549268, -3.3731609099999997`, -0.268341092}}, 0.15], TubeBox[{{-5.686185534, -6.614041, 0.343930132}, {-5.599258138000001, -4.593923906000001, 0.880612316}}, 0.15], TubeBox[{{-5.472646496, -4.561798564, 2.970649272}, {-5.599258138000001, -4.593923906000001, 0.880612316}}, 0.15], TubeBox[{{-0.95431163, -6.761439628, 0.001889726}, {-0.8617150560000001, -4.7526608900000005`, 0.583925334}}, 0.15], TubeBox[{{-0.74644177, -4.769668424, 2.675852016}, {-0.8617150560000001, -4.7526608900000005`, 0.583925334}}, 0.15], TubeBox[{{-0.839038344, 0.617940402, -2.696639002}, {-0.748331496, 0.691639716, -0.58581506}}, 0.15], TubeBox[{{1.765004084, -0.6727424559999999, 2.3905033899999997`}, { 1.63461299, -0.7502212220000001, 0.281569174}}, 0.15], TubeBox[{{1.456978746, -3.658509536, -2.6153807839999996`}, { 1.479655458, -3.513000634, -0.5234541020000001}}, 0.15], TubeBox[{{3.2030855700000003`, -4.52589377, 0.098265752}, { 1.479655458, -3.513000634, -0.5234541020000001}}, 0.15], TubeBox[{{1.698863674, 4.881162258000001, -2.8799424240000002`}, { 1.7461068240000002`, 4.781006779999999, -0.7899054679999999}}, 0.15], TubeBox[{{1.82358559, 6.761439628, -0.12283219000000001`}, { 1.7461068240000002`, 4.781006779999999, -0.7899054679999999}}, 0.15], TubeBox[{{4.0175574759999995`, 3.3013513220000004`, 2.226097228}, { 4.042123913999999, 3.3164691299999998`, 0.111493834}}, 0.15], TubeBox[{{-2.356488322, 4.452194456, -0.423298624}, {-0.61416095, 3.471426662, 0.222987668}}, 0.15], TubeBox[{{-0.648176018, 3.5980383039999997`, 2.31491435}, {-0.61416095, 3.471426662, 0.222987668}}, 0.15], TubeBox[{{3.686855426, 0.59526369, -2.970649272}, {3.919291724, 0.582035608, -0.8673842340000001}}, 0.15], TubeBox[{{6.572467028, 4.956751298, -2.7004184540000002`}, {6.644276616, 4.208419802, -0.7502212220000001}}, 0.15], TubeBox[{{7.3699314, 5.769333478, 0.43085752800000005`}, {6.644276616, 4.208419802, -0.7502212220000001}}, 0.15], TubeBox[{{6.631048534, -1.188637654, 1.689415044}, { 6.551680042, -0.438416432, -0.260782188}}, 0.15], TubeBox[{{ 7.0789135960000005`, -2.0295657240000002`, -1.5061116220000001`}, { 6.551680042, -0.438416432, -0.260782188}}, 0.15], TubeBox[{{9.492093698, 1.645951346, -2.30546572}, {8.316684126, 1.84248285, -0.589594512}}, 0.15], TubeBox[{{9.662169038, 1.97476367, 1.00155478}, {8.316684126, 1.84248285, -0.589594512}}, 0.15]}, AspectRatio->Automatic, AutomaticImageSize->True, Boxed->True, ImageSize->{360., 360.}, SphericalRegion->True, ViewPoint->{0.900026504103579, -0.28276128034210535`, 3.249615108016699}, ViewVertical->{-0.18844687534504362`, 0.9616437254111103, 2.3327339113648646`}]], "Output", CellChangeTimes->{3.5708872331629868`*^9}] }, Open ]], Cell[CellGroupData[{ Cell[BoxData[{ RowBox[{ RowBox[{ RowBox[{"tc", "=", RowBox[{"Table", "[", RowBox[{ RowBox[{"{", RowBox[{ RowBox[{"x", "[", RowBox[{"[", "i", "]"}], "]"}], ",", RowBox[{"y", "[", RowBox[{"[", "i", "]"}], "]"}], ",", RowBox[{"z", "[", RowBox[{"[", "i", "]"}], "]"}]}], "}"}], ",", RowBox[{"{", RowBox[{"i", ",", "1", ",", "bc"}], "}"}]}], "]"}]}], ";"}], " ", RowBox[{"(*", " ", RowBox[{"core", " ", "clouds"}], " ", "*)"}]}], "\[IndentingNewLine]", RowBox[{ RowBox[{ RowBox[{"twc", "=", RowBox[{"Table", "[", RowBox[{ RowBox[{"{", RowBox[{ RowBox[{"wxc", "[", RowBox[{"[", "i", "]"}], "]"}], ",", RowBox[{"wyc", "[", RowBox[{"[", "i", "]"}], "]"}], ",", RowBox[{"wzc", "[", RowBox[{"[", "i", "]"}], "]"}]}], "}"}], ",", RowBox[{"{", RowBox[{"i", ",", "1", ",", "cw"}], "}"}]}], "]"}]}], ";"}], " ", RowBox[{"(*", " ", RowBox[{"Bond", " ", "c\[ODoubleDot]ouds", " ", "between", " ", "cores"}], " ", "*)"}]}], "\[IndentingNewLine]", RowBox[{ RowBox[{ RowBox[{"twh", "=", RowBox[{"Table", "[", RowBox[{ RowBox[{"{", RowBox[{ RowBox[{"wxh", "[", RowBox[{"[", "i", "]"}], "]"}], ",", RowBox[{"wyh", "[", RowBox[{"[", "i", "]"}], "]"}], ",", RowBox[{"wzh", "[", RowBox[{"[", "i", "]"}], "]"}]}], "}"}], ",", RowBox[{"{", RowBox[{"i", ",", "1", ",", "bh"}], "}"}]}], "]"}]}], ";"}], " ", RowBox[{"(*", " ", RowBox[{"H", "-", RowBox[{"bonding", " ", "clouds"}]}], " ", "*)"}], " "}], "\[IndentingNewLine]", RowBox[{ RowBox[{"tw", "=", RowBox[{"Join", "[", RowBox[{"tc", ",", "twc", ",", "twh"}], "]"}]}], ";"}], "\[IndentingNewLine]", RowBox[{"bt", "=", RowBox[{"Length", "[", "tw", "]"}]}], "\[IndentingNewLine]", RowBox[{"MatrixForm", "[", "tw", "]"}], "\[IndentingNewLine]", RowBox[{ RowBox[{"(*", " ", RowBox[{"coordinates", " ", "of", " ", "clouds"}], " ", "*)"}]}]}], "Input", CellChangeTimes->{{3.568895397419882*^9, 3.5688955157148895`*^9}, { 3.568895549629349*^9, 3.5688955855718126`*^9}, {3.568895617317868*^9, 3.568895845234268*^9}, {3.5688960797194805`*^9, 3.5688961015127187`*^9}, { 3.568896219074525*^9, 3.5688962276233397`*^9}, {3.568896262910602*^9, 3.5688962903198504`*^9}, 3.5688964250728865`*^9, 3.568896456912543*^9, { 3.5688981540863237`*^9, 3.5688981869399815`*^9}, {3.5689021233572955`*^9, 3.5689021341525145`*^9}, {3.5689111169043026`*^9, 3.5689111218495116`*^9}, {3.568911235261711*^9, 3.568911242437723*^9}, 3.5689112948850155`*^9, {3.5689116510180407`*^9, 3.568911800419503*^9}, { 3.568911871820829*^9, 3.5689119012892804`*^9}, {3.5689119993042526`*^9, 3.5689120006770554`*^9}, {3.568912144306507*^9, 3.568912165085744*^9}, { 3.5689528310632005`*^9, 3.5689528569592457`*^9}, {3.5689534065794115`*^9, 3.5689534297298517`*^9}, {3.568954496214126*^9, 3.5689545054337425`*^9}, 3.5689569073699613`*^9, {3.56913308739126*^9, 3.5691332012870607`*^9}, { 3.569135511323518*^9, 3.5691355127119203`*^9}, {3.569136204167535*^9, 3.569136290747687*^9}, {3.5691598050571885`*^9, 3.569159843199256*^9}, { 3.5692215417755947`*^9, 3.569221597186892*^9}, {3.5692216819730406`*^9, 3.5692217090546885`*^9}, {3.5692217693019943`*^9, 3.5692218260704937`*^9}, {3.5692219780303607`*^9, 3.569221989433981*^9}, { 3.569222055468897*^9, 3.5692220728005276`*^9}, {3.5693401536421804`*^9, 3.5693401889450426`*^9}, 3.5693411655535583`*^9, {3.569341634303181*^9, 3.569341638733589*^9}, {3.5704549882757435`*^9, 3.5704550487414494`*^9}, { 3.570455928146194*^9, 3.5704559415310173`*^9}, {3.5708553973857827`*^9, 3.5708554057785974`*^9}}], Cell[BoxData["65"], "Output", CellChangeTimes->{3.5708872332409863`*^9}], Cell[BoxData[ TagBox[ RowBox[{"(", "\[NoBreak]", GridBox[{ { RowBox[{"-", "7.987871802000001`"}], RowBox[{"-", "3.2446595420000004`"}], "0.01889726`"}, { RowBox[{"-", "7.874488242`"}], RowBox[{"-", "0.43652670600000004`"}], "0.62360958`"}, { RowBox[{"-", "5.51799992`"}], "0.754000674`", RowBox[{"-", "0.498887664`"}]}, { RowBox[{"-", "3.13694516`"}], RowBox[{"-", "0.5669178`"}], "0.474321226`"}, { RowBox[{"-", "3.246549268`"}], RowBox[{"-", "3.3731609099999997`"}], RowBox[{"-", "0.268341092`"}]}, { RowBox[{"-", "5.599258138000001`"}], RowBox[{"-", "4.593923906000001`"}], "0.880612316`"}, { RowBox[{"-", "0.748331496`"}], "0.691639716`", RowBox[{"-", "0.58581506`"}]}, { RowBox[{"-", "0.8617150560000001`"}], RowBox[{"-", "4.7526608900000005`"}], "0.583925334`"}, {"1.479655458`", RowBox[{"-", "3.513000634`"}], RowBox[{"-", "0.5234541020000001`"}]}, {"1.63461299`", RowBox[{"-", "0.7502212220000001`"}], "0.281569174`"}, {"1.7461068240000002`", "4.781006779999999`", RowBox[{"-", "0.7899054679999999`"}]}, {"4.042123913999999`", "3.3164691299999998`", "0.111493834`"}, { RowBox[{"-", "0.61416095`"}], "3.471426662`", "0.222987668`"}, {"6.644276616`", "4.208419802`", RowBox[{"-", "0.7502212220000001`"}]}, {"3.919291724`", "0.582035608`", RowBox[{"-", "0.8673842340000001`"}]}, {"6.551680042`", RowBox[{"-", "0.438416432`"}], RowBox[{"-", "0.260782188`"}]}, {"8.316684126`", "1.84248285`", RowBox[{"-", "0.589594512`"}]}, { RowBox[{"-", "7.931180022`"}], RowBox[{"-", "1.8405931240000002`"}], "0.32125342`"}, { RowBox[{"-", "6.696244081`"}], "0.15873698400000003`", "0.06236095800000002`"}, { RowBox[{"-", "4.330189881782755`"}], "0.09504891470329047`", RowBox[{"-", "0.01339387853818974`"}]}, { RowBox[{"-", "3.191747214`"}], RowBox[{"-", "1.970039355`"}], "0.10299006700000002`"}, { RowBox[{"-", "6.79356497`"}], RowBox[{"-", "3.9192917240000007`"}], "0.449754788`"}, { RowBox[{"-", "4.425591233926344`"}], RowBox[{"-", "3.984936901958569`"}], "0.30744807690218234`"}, { RowBox[{"-", "1.942638328`"}], "0.062360957999999966`", RowBox[{"-", "0.05574691700000001`"}]}, { RowBox[{"-", "2.051403223938874`"}], RowBox[{"-", "4.064489445788132`"}], "0.15876735956225657`"}, {"0.30897020099999994`", RowBox[{"-", "4.132830762`"}], "0.03023561599999991`"}, {"0.44314074700000017`", RowBox[{"-", "0.02929075300000017`"}], RowBox[{"-", "0.1521229429999999`"}]}, {"1.5569567821018844`", RowBox[{"-", "2.1347745872078683`"}], RowBox[{"-", "0.12186429629996715`"}]}, {"2.8914740961731615`", "4.050422717502715`", RowBox[{"-", "0.3402427611468327`"}]}, { RowBox[{"-", "0.6810934496729842`"}], "2.0846983941273285`", RowBox[{"-", "0.18049275256390454`"}]}, {"0.5659729370000002`", "4.126216721`", RowBox[{"-", "0.28345889999999996`"}]}, {"5.3461792188812325`", "3.7634655743746857`", RowBox[{"-", "0.320350188531476`"}]}, {"2.776952357`", RowBox[{"-", "0.08409280699999999`"}], RowBox[{"-", "0.29290753`"}]}, {"3.9807078189999996`", "1.9492523689999997`", RowBox[{"-", "0.37794520000000015`"}]}, {"5.238494128282455`", "0.07064343404987383`", RowBox[{"-", "0.5633899972629807`"}]}, {"7.4804803710000005`", "3.0254513259999998`", RowBox[{"-", "0.669907867`"}]}, {"7.434182084`", "0.7020332089999999`", RowBox[{"-", "0.42518835`"}]}, { RowBox[{"-", "8.180522835459255`"}], RowBox[{"-", "3.4428148907009493`"}], RowBox[{"-", "1.4810286433613533`"}]}, { RowBox[{"-", "9.20647814609968`"}], RowBox[{"-", "3.8732183447692483`"}], "0.68046571543109`"}, { RowBox[{"-", "7.895130032464925`"}], RowBox[{"-", "0.22873268198642904`"}], "2.134588642032456`"}, { RowBox[{"-", "9.117969042477846`"}], "0.2622434783393202`", "0.08990321873296014`"}, { RowBox[{"-", "5.439443582272574`"}], "2.2493274535483816`", RowBox[{"-", "0.1667459553629863`"}]}, { RowBox[{"-", "5.570301813444769`"}], "0.6796769306837498`", RowBox[{"-", "2.0225244019831283`"}]}, { RowBox[{"-", "3.103805826054413`"}], RowBox[{"-", "0.4661189925821729`"}], "2.0153002544697953`"}, { RowBox[{"-", "3.340461305242022`"}], RowBox[{"-", "3.468454006613228`"}], RowBox[{"-", "1.808222290894913`"}]}, { RowBox[{"-", "5.662529795510672`"}], RowBox[{"-", "6.064302207715395`"}], "0.4899786044123742`"}, { RowBox[{"-", "5.507066770343183`"}], RowBox[{"-", "4.570532066445285`"}], "2.402457877618513`"}, { RowBox[{"-", "0.9291305951267373`"}], RowBox[{"-", "6.215165340851464`"}], "0.160170516631937`"}, { RowBox[{"-", "0.7777638600413919`"}], RowBox[{"-", "4.76504713202668`"}], "2.1074331032816276`"}, { RowBox[{"-", "0.8146116571328769`"}], "0.6377870850795375`", RowBox[{"-", "2.1282096430296558`"}]}, {"1.7298961072770516`", RowBox[{"-", "0.6936037175310273`"}], "1.8226700273505732`"}, {"1.463134784717547`", RowBox[{"-", "3.619008287562407`"}], RowBox[{"-", "2.047486212306292`"}]}, {"2.734418956449802`", RowBox[{"-", "4.250449356773129`"}], RowBox[{"-", "0.07080367328291154`"}]}, {"1.7117140939455262`", "4.853919367715485`", RowBox[{"-", "2.31143984560992`"}]}, {"1.8024930453602872`", "6.22229360891661`", RowBox[{"-", "0.3044338548248441`"}]}, {"4.024170712391963`", "3.3054210059335163`", "1.6568501877994335`"}, { RowBox[{"-", "1.8844350350432917`"}], "4.186472486444108`", RowBox[{"-", "0.2481985978186613`"}]}, { RowBox[{"-", "0.6389372325015279`"}], "3.563649491311242`", "1.746729041843963`"}, {"3.749388057473202`", "0.5917049223551837`", RowBox[{"-", "2.404805216474198`"}]}, {"6.592026680407996`", "4.752919130800885`", RowBox[{"-", "2.1692194728144276`"}]}, {"7.172039070948298`", "5.343658832696079`", "0.108767148684079`"}, {"6.609439798887339`", RowBox[{"-", "0.9843836578160388`"}], "1.1584575526603322`"}, {"6.935175376439339`", RowBox[{"-", "1.5957751115624497`"}], RowBox[{"-", "1.1666009170162164`"}]}, {"9.171786406570323`", "1.6995075490686276`", RowBox[{"-", "1.837878870131597`"}]}, {"9.295311460296164`", "1.9386962115178812`", "0.5677147794007996`"} }, 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.5708872332409863`*^9}] }, Open ]], Cell[BoxData[ RowBox[{ RowBox[{"(*", " ", RowBox[{"cloud", "-", RowBox[{"cloud", " ", "distances"}]}], " ", "*)"}], "\[IndentingNewLine]", RowBox[{ RowBox[{ RowBox[{"dw", "=", RowBox[{"Table", "[", RowBox[{ RowBox[{"Sqrt", "[", RowBox[{ RowBox[{ RowBox[{"(", RowBox[{ RowBox[{"tw", "[", RowBox[{"[", RowBox[{"i", ",", "1"}], "]"}], "]"}], "-", RowBox[{"tw", "[", RowBox[{"[", RowBox[{"j", ",", "1"}], "]"}], "]"}]}], ")"}], "^", "2"}], "+", RowBox[{ RowBox[{"(", RowBox[{ RowBox[{"tw", "[", RowBox[{"[", RowBox[{"i", ",", "2"}], "]"}], "]"}], "-", RowBox[{"tw", "[", RowBox[{"[", RowBox[{"j", ",", "2"}], "]"}], "]"}]}], ")"}], "^", "2"}], "+", RowBox[{ RowBox[{"(", RowBox[{ RowBox[{"tw", "[", RowBox[{"[", RowBox[{"i", ",", "3"}], "]"}], "]"}], "-", RowBox[{"tw", "[", RowBox[{"[", RowBox[{"j", ",", "3"}], "]"}], "]"}]}], ")"}], "^", "2"}]}], "]"}], ",", RowBox[{"{", RowBox[{"i", ",", "1", ",", "bt"}], "}"}], ",", RowBox[{"{", RowBox[{"j", ",", "1", ",", "bt"}], "}"}]}], "]"}]}], ";"}], "\[IndentingNewLine]", RowBox[{"(*", RowBox[{"MatrixForm", "[", "dw", "]"}], "*)"}]}]}]], "Input", CellChangeTimes->{{3.5688982251756487`*^9, 3.5688986440675845`*^9}, { 3.5688986873108606`*^9, 3.56889871560931*^9}, {3.5688987970414534`*^9, 3.5688988526711507`*^9}, {3.568898887147211*^9, 3.568898888644814*^9}, { 3.5688989206248703`*^9, 3.568899041759083*^9}, {3.5688990876855636`*^9, 3.568899258349863*^9}, 3.568899300267137*^9, {3.568899351326027*^9, 3.5688993831032825`*^9}, {3.5688994370481772`*^9, 3.568899468217032*^9}, { 3.5688995813016305`*^9, 3.5688997165538683`*^9}, {3.5688998495129013`*^9, 3.568899932364647*^9}, {3.568899967667509*^9, 3.568900024529609*^9}, { 3.5689000794261055`*^9, 3.568900136257005*^9}, {3.5689001767858763`*^9, 3.56890020149632*^9}, {3.568902068726*^9, 3.568902074139209*^9}, 3.56890216040736*^9, 3.568902344113283*^9, {3.5689024237982235`*^9, 3.56890243907065*^9}, 3.5689025770684924`*^9, 3.568910195129884*^9, 3.568910620995032*^9, {3.568912393532545*^9, 3.5689124022841606`*^9}, { 3.5691332074958715`*^9, 3.5691332081666727`*^9}, {3.5691352237838125`*^9, 3.5691352313342257`*^9}, {3.5691489965881166`*^9, 3.5691490103317413`*^9}, {3.5691490440122004`*^9, 3.5691491351943607`*^9}, {3.569149201666077*^9, 3.5691492026956787`*^9}, { 3.5691494320784817`*^9, 3.5691494680989447`*^9}, {3.569152288984131*^9, 3.5691522953957424`*^9}, {3.5691595058486633`*^9, 3.569159537672719*^9}, 3.569237911685565*^9, 3.5693411655535583`*^9, 3.5693418217687106`*^9, { 3.5703410302061863`*^9, 3.570341063621445*^9}}], Cell[BoxData[ RowBox[{ RowBox[{"(*", " ", RowBox[{"nucleus", "-", RowBox[{"nucleus", " ", "distances"}]}], " ", "*)"}], "\[IndentingNewLine]", RowBox[{"(*", RowBox[{"MatrixForm", "[", "dc", "]"}], " ", "*)"}], " "}]], "Input", CellChangeTimes->{{3.5688982251756487`*^9, 3.5688986440675845`*^9}, { 3.5688986873108606`*^9, 3.56889871560931*^9}, {3.5688987970414534`*^9, 3.5688988526711507`*^9}, {3.568898887147211*^9, 3.568898888644814*^9}, { 3.5688989206248703`*^9, 3.568899041759083*^9}, {3.5688990876855636`*^9, 3.568899258349863*^9}, 3.568899300267137*^9, {3.568899351326027*^9, 3.5688993831032825`*^9}, {3.5688994370481772`*^9, 3.568899468217032*^9}, { 3.5688995813016305`*^9, 3.5688997165538683`*^9}, {3.5688998495129013`*^9, 3.568899932364647*^9}, {3.568899967667509*^9, 3.568900024529609*^9}, { 3.5689000794261055`*^9, 3.568900136257005*^9}, {3.5689001767858763`*^9, 3.56890020149632*^9}, {3.568902068726*^9, 3.568902074139209*^9}, 3.56890216040736*^9, 3.568902344113283*^9, {3.5689024237982235`*^9, 3.56890243907065*^9}, 3.5689025770684924`*^9, 3.568910195129884*^9, 3.568910620995032*^9, {3.568912393532545*^9, 3.5689124022841606`*^9}, { 3.5691332074958715`*^9, 3.5691332081666727`*^9}, {3.5691352237838125`*^9, 3.5691352313342257`*^9}, {3.5691489965881166`*^9, 3.5691490103317413`*^9}, {3.5691490440122004`*^9, 3.5691491273631463`*^9}, {3.5691523435842266`*^9, 3.56915234531583*^9}, { 3.5691524837816734`*^9, 3.569152599175076*^9}, {3.569159470889002*^9, 3.569159489874235*^9}, {3.569160442895509*^9, 3.5691604484335184`*^9}, 3.569237923385586*^9, 3.569341165569158*^9, 3.5693418217843103`*^9, { 3.570341048161818*^9, 3.570341058286236*^9}, {3.57034131095988*^9, 3.570341315156287*^9}, 3.5703415891395683`*^9, 3.570341976207448*^9}], Cell[CellGroupData[{ Cell[BoxData[{ RowBox[{ RowBox[{"tv1", "=", RowBox[{"Table", "[", RowBox[{ RowBox[{"{", RowBox[{ RowBox[{"x", "[", RowBox[{"[", "i", "]"}], "]"}], ",", RowBox[{"y", "[", RowBox[{"[", "i", "]"}], "]"}], ",", RowBox[{"z", "[", RowBox[{"[", "i", "]"}], "]"}]}], "}"}], ",", RowBox[{"{", RowBox[{"i", ",", "1", ",", "bc"}], "}"}]}], "]"}]}], ";"}], "\[IndentingNewLine]", RowBox[{ RowBox[{"tv2", "=", RowBox[{"Table", "[", RowBox[{ RowBox[{"{", RowBox[{"0", ",", "0", ",", "0"}], "}"}], ",", RowBox[{"{", RowBox[{"i", ",", "1", ",", "cw"}], "}"}]}], "]"}]}], ";"}], "\[IndentingNewLine]", RowBox[{ RowBox[{"tv3", "=", " ", RowBox[{"Table", "[", RowBox[{ RowBox[{"{", RowBox[{ RowBox[{"x", "[", RowBox[{"[", "i", "]"}], "]"}], ",", RowBox[{"y", "[", RowBox[{"[", "i", "]"}], "]"}], ",", RowBox[{"z", "[", RowBox[{"[", "i", "]"}], "]"}]}], "}"}], ",", RowBox[{"{", RowBox[{"i", ",", RowBox[{"bc", "+", "1"}], ",", "n"}], "}"}]}], "]"}]}], ";"}], "\[IndentingNewLine]", RowBox[{ RowBox[{"tv", " ", "=", " ", RowBox[{"Join", "[", RowBox[{"tv1", ",", "tv2", ",", "tv3"}], "]"}]}], ";"}], "\[IndentingNewLine]", RowBox[{"MatrixForm", "[", "tv", "]"}]}], "Input", CellChangeTimes->{{3.5688982251756487`*^9, 3.5688986440675845`*^9}, { 3.5688986873108606`*^9, 3.56889871560931*^9}, {3.5688987970414534`*^9, 3.5688988526711507`*^9}, {3.568898887147211*^9, 3.568898888644814*^9}, { 3.5688989206248703`*^9, 3.568899041759083*^9}, {3.5688990876855636`*^9, 3.568899258349863*^9}, 3.568899300267137*^9, {3.568899351326027*^9, 3.5688993831032825`*^9}, {3.5688994370481772`*^9, 3.568899468217032*^9}, { 3.5688995813016305`*^9, 3.5688997165538683`*^9}, {3.5688998495129013`*^9, 3.568899932364647*^9}, {3.568899967667509*^9, 3.568900024529609*^9}, { 3.5689000794261055`*^9, 3.568900136257005*^9}, {3.5689001767858763`*^9, 3.56890020149632*^9}, {3.568902068726*^9, 3.568902074139209*^9}, 3.56890216040736*^9, 3.568902344113283*^9, {3.5689024237982235`*^9, 3.56890243907065*^9}, 3.5689025770684924`*^9, 3.568910195129884*^9, 3.568910620995032*^9, {3.568912393532545*^9, 3.5689124022841606`*^9}, { 3.5691332074958715`*^9, 3.5691332081666727`*^9}, {3.5691352237838125`*^9, 3.5691352313342257`*^9}, {3.5691489965881166`*^9, 3.5691490103317413`*^9}, {3.5691490440122004`*^9, 3.5691491273631463`*^9}, {3.5691523435842266`*^9, 3.56915234531583*^9}, { 3.5691524837816734`*^9, 3.5691526041202846`*^9}, {3.5691595921324143`*^9, 3.5691596901941867`*^9}, {3.569159772406331*^9, 3.5691597832951508`*^9}, { 3.5691598700313025`*^9, 3.569159885147729*^9}, {3.569160485733184*^9, 3.569160486887586*^9}, {3.5691672792073207`*^9, 3.5691672793789206`*^9}, { 3.5691673418102303`*^9, 3.5691674875144863`*^9}, {3.569168259700243*^9, 3.569168260386644*^9}, {3.569168321257951*^9, 3.569168337466379*^9}, { 3.5691685152754917`*^9, 3.569168656096939*^9}, {3.5691687137702403`*^9, 3.569168772566744*^9}, {3.5691697249898825`*^9, 3.569169747063921*^9}, { 3.569169944981469*^9, 3.5691699696763124`*^9}, 3.569341165569158*^9, { 3.5693417833614435`*^9, 3.5693417874486504`*^9}, {3.5704552110753345`*^9, 3.5704552378605814`*^9}, {3.5704560776724567`*^9, 3.570456083070066*^9}, { 3.570855427306635*^9, 3.570855434529448*^9}}], Cell[BoxData[ TagBox[ RowBox[{"(", "\[NoBreak]", GridBox[{ { RowBox[{"-", "7.987871802000001`"}], RowBox[{"-", "3.2446595420000004`"}], "0.01889726`"}, { RowBox[{"-", "7.874488242`"}], RowBox[{"-", "0.43652670600000004`"}], "0.62360958`"}, { RowBox[{"-", "5.51799992`"}], "0.754000674`", RowBox[{"-", "0.498887664`"}]}, { RowBox[{"-", "3.13694516`"}], RowBox[{"-", "0.5669178`"}], "0.474321226`"}, { RowBox[{"-", "3.246549268`"}], RowBox[{"-", "3.3731609099999997`"}], RowBox[{"-", "0.268341092`"}]}, { RowBox[{"-", "5.599258138000001`"}], RowBox[{"-", "4.593923906000001`"}], "0.880612316`"}, { RowBox[{"-", "0.748331496`"}], "0.691639716`", RowBox[{"-", "0.58581506`"}]}, { RowBox[{"-", "0.8617150560000001`"}], RowBox[{"-", "4.7526608900000005`"}], "0.583925334`"}, {"1.479655458`", RowBox[{"-", "3.513000634`"}], RowBox[{"-", "0.5234541020000001`"}]}, {"1.63461299`", RowBox[{"-", "0.7502212220000001`"}], "0.281569174`"}, {"1.7461068240000002`", "4.781006779999999`", RowBox[{"-", "0.7899054679999999`"}]}, {"4.042123913999999`", "3.3164691299999998`", "0.111493834`"}, { RowBox[{"-", "0.61416095`"}], "3.471426662`", "0.222987668`"}, {"6.644276616`", "4.208419802`", RowBox[{"-", "0.7502212220000001`"}]}, {"3.919291724`", "0.582035608`", RowBox[{"-", "0.8673842340000001`"}]}, {"6.551680042`", RowBox[{"-", "0.438416432`"}], RowBox[{"-", "0.260782188`"}]}, {"8.316684126`", "1.84248285`", RowBox[{"-", "0.589594512`"}]}, {"0", "0", "0"}, {"0", "0", "0"}, {"0", "0", "0"}, {"0", "0", "0"}, {"0", "0", "0"}, {"0", "0", "0"}, {"0", "0", "0"}, {"0", "0", "0"}, {"0", "0", "0"}, {"0", "0", "0"}, {"0", "0", "0"}, {"0", "0", "0"}, {"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[{"-", "8.252433442`"}], RowBox[{"-", "3.516780086`"}], RowBox[{"-", "2.0409040800000002`"}]}, { RowBox[{"-", "9.662169038`"}], RowBox[{"-", "4.108264324`"}], "0.927855466`"}, { RowBox[{"-", "7.902834132000001`"}], RowBox[{"-", "0.15117808`"}], "2.698528728`"}, { RowBox[{"-", "9.582800546`"}], "0.5234541020000001`", RowBox[{"-", "0.109604108`"}]}, { RowBox[{"-", "5.410285538`"}], "2.804353384`", RowBox[{"-", "0.043463698`"}]}, { RowBox[{"-", "5.589809508`"}], "0.65195547`", RowBox[{"-", "2.590814346`"}]}, { RowBox[{"-", "3.091591736`"}], RowBox[{"-", "0.428967802`"}], "2.583255442`"}, { RowBox[{"-", "3.375050636`"}], RowBox[{"-", "3.5035520040000003`"}], RowBox[{"-", "2.375385582`"}]}, { RowBox[{"-", "5.686185534`"}], RowBox[{"-", "6.614041`"}], "0.343930132`"}, { RowBox[{"-", "5.472646496`"}], RowBox[{"-", "4.561798564`"}], "2.970649272`"}, { RowBox[{"-", "0.95431163`"}], RowBox[{"-", "6.761439628`"}], "0.001889726`"}, { RowBox[{"-", "0.74644177`"}], RowBox[{"-", "4.769668424`"}], "2.675852016`"}, { RowBox[{"-", "0.839038344`"}], "0.617940402`", RowBox[{"-", "2.696639002`"}]}, {"1.765004084`", RowBox[{"-", "0.6727424559999999`"}], "2.3905033899999997`"}, {"1.456978746`", RowBox[{"-", "3.658509536`"}], RowBox[{"-", "2.6153807839999996`"}]}, {"3.2030855700000003`", RowBox[{"-", "4.52589377`"}], "0.098265752`"}, {"1.698863674`", "4.881162258000001`", RowBox[{"-", "2.8799424240000002`"}]}, {"1.82358559`", "6.761439628`", RowBox[{"-", "0.12283219000000001`"}]}, {"4.0175574759999995`", "3.3013513220000004`", "2.226097228`"}, { RowBox[{"-", "2.356488322`"}], "4.452194456`", RowBox[{"-", "0.423298624`"}]}, { RowBox[{"-", "0.648176018`"}], "3.5980383039999997`", "2.31491435`"}, {"3.686855426`", "0.59526369`", RowBox[{"-", "2.970649272`"}]}, {"6.572467028`", "4.956751298`", RowBox[{"-", "2.7004184540000002`"}]}, {"7.3699314`", "5.769333478`", "0.43085752800000005`"}, {"6.631048534`", RowBox[{"-", "1.188637654`"}], "1.689415044`"}, {"7.0789135960000005`", RowBox[{"-", "2.0295657240000002`"}], RowBox[{"-", "1.5061116220000001`"}]}, {"9.492093698`", "1.645951346`", RowBox[{"-", "2.30546572`"}]}, {"9.662169038`", "1.97476367`", "1.00155478`"} }, 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.5708872332877865`*^9}] }, Open ]], Cell[CellGroupData[{ Cell[BoxData[ RowBox[{"\[IndentingNewLine]", RowBox[{ RowBox[{"ow", "=", RowBox[{"Join", "[", RowBox[{"Table", "[", RowBox[{ RowBox[{"-", "2.0"}], ",", RowBox[{"{", RowBox[{"i", ",", "1", ",", RowBox[{"bc", "+", "nb"}]}], "}"}]}], "]"}], "]"}]}], RowBox[{"(*", " ", RowBox[{"nucleus", "-", RowBox[{"cloud", " ", "distances"}]}], " ", "*)"}], "\[IndentingNewLine]", RowBox[{"cnv", "=", RowBox[{"Join", "[", RowBox[{ RowBox[{"Table", "[", RowBox[{ RowBox[{"cn", "[", RowBox[{"[", "i", "]"}], "]"}], ",", RowBox[{"{", RowBox[{"i", ",", "1", ",", "bc"}], "}"}]}], "]"}], ",", RowBox[{"Table", "[", RowBox[{"0.0", ",", RowBox[{"{", RowBox[{"i", ",", "1", ",", "cw"}], "}"}]}], "]"}], ",", RowBox[{"Table", "[", RowBox[{ RowBox[{"cn", "[", RowBox[{"[", "i", "]"}], "]"}], ",", RowBox[{"{", RowBox[{"i", ",", RowBox[{"bc", "+", "1"}], ",", "n"}], "}"}]}], "]"}]}], "]"}]}], "\[IndentingNewLine]", RowBox[{ RowBox[{"dcw", "=", RowBox[{"Table", "[", RowBox[{ RowBox[{ RowBox[{"sq", "=", RowBox[{"Sqrt", "[", RowBox[{ RowBox[{ RowBox[{"(", RowBox[{ RowBox[{"tw", "[", RowBox[{"[", RowBox[{"i", ",", "1"}], "]"}], "]"}], "-", RowBox[{"tv", "[", RowBox[{"[", RowBox[{"j", ",", "1"}], "]"}], "]"}]}], ")"}], "^", "2"}], "+", RowBox[{ RowBox[{"(", RowBox[{ RowBox[{"tw", "[", RowBox[{"[", RowBox[{"i", ",", "2"}], "]"}], "]"}], "-", RowBox[{"tv", "[", RowBox[{"[", RowBox[{"j", ",", "2"}], "]"}], "]"}]}], ")"}], "^", "2"}], "+", RowBox[{ RowBox[{"(", RowBox[{ RowBox[{"tw", "[", RowBox[{"[", RowBox[{"i", ",", "3"}], "]"}], "]"}], "-", RowBox[{"tv", "[", RowBox[{"[", RowBox[{"j", ",", "3"}], "]"}], "]"}]}], ")"}], "^", "2"}]}], "]"}]}], ";", RowBox[{"If", "[", RowBox[{ RowBox[{"sq", ">", " ", "0.1"}], ",", StyleBox[ RowBox[{"1", "/", "sq"}], FontColor->RGBColor[1, 0, 0]], ",", "0"}], "]"}]}], ",", RowBox[{"{", RowBox[{"i", ",", "1", ",", "bt"}], "}"}], ",", RowBox[{"{", RowBox[{"j", ",", "1", ",", "bt"}], "}"}]}], "]"}]}], ";"}], "\[IndentingNewLine]", RowBox[{ RowBox[{"dcw", "=", RowBox[{"Table", "[", RowBox[{ RowBox[{"If", "[", RowBox[{ RowBox[{"i", "\[Equal]", " ", "j"}], ",", RowBox[{ RowBox[{"dcw", "[", RowBox[{"[", RowBox[{"i", ",", "j"}], "]"}], "]"}], "=", "0.0"}], ",", RowBox[{"dcw", "[", RowBox[{"[", RowBox[{"i", ",", "j"}], "]"}], "]"}]}], "]"}], ",", RowBox[{"{", RowBox[{"i", ",", "1", ",", "bt"}], "}"}], ",", RowBox[{"{", RowBox[{"j", ",", "1", ",", "bt"}], "}"}]}], "]"}]}], ";"}], "\[IndentingNewLine]", RowBox[{"(*", RowBox[{"MatrixForm", "[", "dcw", "]"}], "*)"}], " "}]}]], "Input", CellChangeTimes->{{3.5688982251756487`*^9, 3.5688986440675845`*^9}, { 3.5688986873108606`*^9, 3.56889871560931*^9}, {3.5688987970414534`*^9, 3.5688988526711507`*^9}, {3.568898887147211*^9, 3.568898888644814*^9}, { 3.5688989206248703`*^9, 3.568899041759083*^9}, {3.5688990876855636`*^9, 3.568899258349863*^9}, 3.568899300267137*^9, {3.568899351326027*^9, 3.5688993831032825`*^9}, {3.5688994370481772`*^9, 3.568899468217032*^9}, { 3.5688995813016305`*^9, 3.5688997165538683`*^9}, {3.5688998495129013`*^9, 3.568899932364647*^9}, {3.568899967667509*^9, 3.568900024529609*^9}, { 3.5689000794261055`*^9, 3.568900136257005*^9}, {3.5689001767858763`*^9, 3.56890020149632*^9}, {3.568902068726*^9, 3.568902074139209*^9}, 3.56890216040736*^9, 3.568902344113283*^9, {3.5689024237982235`*^9, 3.56890243907065*^9}, 3.5689025770684924`*^9, 3.568910195129884*^9, 3.568910620995032*^9, {3.568912393532545*^9, 3.5689124022841606`*^9}, { 3.5691332074958715`*^9, 3.5691332081666727`*^9}, {3.5691352237838125`*^9, 3.5691352313342257`*^9}, {3.5691489965881166`*^9, 3.5691490103317413`*^9}, {3.5691490440122004`*^9, 3.5691491273631463`*^9}, {3.5691523435842266`*^9, 3.56915234531583*^9}, { 3.5691524837816734`*^9, 3.5691526041202846`*^9}, {3.5691595921324143`*^9, 3.5691596901941867`*^9}, {3.569159772406331*^9, 3.5691597832951508`*^9}, { 3.5691598700313025`*^9, 3.569159885147729*^9}, {3.569160485733184*^9, 3.569160486887586*^9}, {3.5691672792073207`*^9, 3.5691672793789206`*^9}, { 3.5691673418102303`*^9, 3.5691674875144863`*^9}, {3.569168259700243*^9, 3.569168260386644*^9}, {3.569168321257951*^9, 3.569168337466379*^9}, { 3.5691685152754917`*^9, 3.569168656096939*^9}, {3.5691687137702403`*^9, 3.569168772566744*^9}, {3.5691697249898825`*^9, 3.569169747063921*^9}, { 3.569169944981469*^9, 3.5691699655579047`*^9}, {3.56921753575448*^9, 3.569217541807291*^9}, {3.569217576283351*^9, 3.5692176436130695`*^9}, { 3.5692176921603546`*^9, 3.569217692768756*^9}, {3.5692177389136367`*^9, 3.569217740192839*^9}, {3.5692222042775583`*^9, 3.5692222070231633`*^9}, { 3.569230669979245*^9, 3.5692306709620466`*^9}, {3.5692308816872168`*^9, 3.5692309970650196`*^9}, {3.5692310297158766`*^9, 3.569231090602784*^9}, { 3.5692311251880445`*^9, 3.569231148868886*^9}, 3.56923793753481*^9, 3.569341165569158*^9, 3.5693418217375107`*^9, {3.5703412254249296`*^9, 3.5703412423509593`*^9}, {3.5704553045038986`*^9, 3.570455320681127*^9}, { 3.57045550485505*^9, 3.5704555063370533`*^9}, {3.5704556421508913`*^9, 3.5704556424784923`*^9}, 3.5704557137862177`*^9, {3.5704564711051474`*^9, 3.5704564908079824`*^9}, {3.570456521602436*^9, 3.5704565228348384`*^9}, { 3.5704569127419233`*^9, 3.5704569202767363`*^9}, 3.5704636205455036`*^9, 3.570596993178934*^9, {3.570855461377095*^9, 3.5708554743563175`*^9}, 3.570855611589759*^9}], Cell[BoxData[ RowBox[{"{", RowBox[{ RowBox[{"-", "2.`"}], ",", RowBox[{"-", "2.`"}], ",", RowBox[{"-", "2.`"}], ",", RowBox[{"-", "2.`"}], ",", RowBox[{"-", "2.`"}], ",", RowBox[{"-", "2.`"}], ",", RowBox[{"-", "2.`"}], ",", RowBox[{"-", "2.`"}], ",", RowBox[{"-", "2.`"}], ",", RowBox[{"-", "2.`"}], ",", RowBox[{"-", "2.`"}], ",", RowBox[{"-", "2.`"}], ",", RowBox[{"-", "2.`"}], ",", RowBox[{"-", "2.`"}], ",", RowBox[{"-", "2.`"}], ",", RowBox[{"-", "2.`"}], ",", RowBox[{"-", "2.`"}], ",", RowBox[{"-", "2.`"}], ",", RowBox[{"-", "2.`"}], ",", RowBox[{"-", "2.`"}], ",", RowBox[{"-", "2.`"}], ",", RowBox[{"-", "2.`"}], ",", RowBox[{"-", "2.`"}], ",", RowBox[{"-", "2.`"}], ",", RowBox[{"-", "2.`"}], ",", RowBox[{"-", "2.`"}], ",", RowBox[{"-", "2.`"}], ",", RowBox[{"-", "2.`"}], ",", RowBox[{"-", "2.`"}], ",", RowBox[{"-", "2.`"}], ",", RowBox[{"-", "2.`"}], ",", RowBox[{"-", "2.`"}], ",", RowBox[{"-", "2.`"}], ",", RowBox[{"-", "2.`"}], ",", RowBox[{"-", "2.`"}], ",", RowBox[{"-", "2.`"}], ",", RowBox[{"-", "2.`"}], ",", RowBox[{"-", "2.`"}], ",", RowBox[{"-", "2.`"}], ",", RowBox[{"-", "2.`"}], ",", RowBox[{"-", "2.`"}], ",", RowBox[{"-", "2.`"}], ",", RowBox[{"-", "2.`"}], ",", RowBox[{"-", "2.`"}], ",", RowBox[{"-", "2.`"}], ",", RowBox[{"-", "2.`"}], ",", RowBox[{"-", "2.`"}], ",", RowBox[{"-", "2.`"}], ",", RowBox[{"-", "2.`"}], ",", RowBox[{"-", "2.`"}], ",", RowBox[{"-", "2.`"}], ",", RowBox[{"-", "2.`"}], ",", RowBox[{"-", "2.`"}], ",", RowBox[{"-", "2.`"}], ",", RowBox[{"-", "2.`"}], ",", RowBox[{"-", "2.`"}], ",", RowBox[{"-", "2.`"}], ",", RowBox[{"-", "2.`"}], ",", RowBox[{"-", "2.`"}], ",", RowBox[{"-", "2.`"}], ",", RowBox[{"-", "2.`"}], ",", RowBox[{"-", "2.`"}], ",", RowBox[{"-", "2.`"}], ",", RowBox[{"-", "2.`"}], ",", RowBox[{"-", "2.`"}]}], "}"}]], "Output", CellChangeTimes->{3.5708872332877865`*^9}], Cell[BoxData[ RowBox[{"{", RowBox[{ "6.`", ",", "6.`", ",", "6.`", ",", "6.`", ",", "6.`", ",", "6.`", ",", "6.`", ",", "6.`", ",", "6.`", ",", "6.`", ",", "6.`", ",", "6.`", ",", "6.`", ",", "6.`", ",", "6.`", ",", "6.`", ",", "6.`", ",", "0.`", ",", "0.`", ",", "0.`", ",", "0.`", ",", "0.`", ",", "0.`", ",", "0.`", ",", "0.`", ",", "0.`", ",", "0.`", ",", "0.`", ",", "0.`", ",", "0.`", ",", "0.`", ",", "0.`", ",", "0.`", ",", "0.`", ",", "0.`", ",", "0.`", ",", "0.`", ",", "1.`", ",", "1.`", ",", "1.`", ",", "1.`", ",", "1.`", ",", "1.`", ",", "1.`", ",", "1.`", ",", "1.`", ",", "1.`", ",", "1.`", ",", "1.`", ",", "1.`", ",", "1.`", ",", "1.`", ",", "1.`", ",", "1.`", ",", "1.`", ",", "1.`", ",", "1.`", ",", "1.`", ",", "1.`", ",", "1.`", ",", "1.`", ",", "1.`", ",", "1.`", ",", "1.`", ",", "1.`"}], "}"}]], "Output", CellChangeTimes->{3.5708872333033867`*^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["1467.1360793649694`"], "Output", CellChangeTimes->{3.5708872333345866`*^9}] }, Open ]], Cell[CellGroupData[{ Cell[BoxData[{ RowBox[{ RowBox[{"sc", "=", "0.43"}], ";", " ", RowBox[{"(*", " ", RowBox[{"core", " ", "clouds"}], " ", "*)"}], "\[IndentingNewLine]", RowBox[{"For", "[", RowBox[{ RowBox[{"i", "=", "1"}], " ", ",", RowBox[{"i", "<", RowBox[{"bc", "+", "1"}]}], ",", RowBox[{"i", "++"}], ",", RowBox[{"Vee", "=", RowBox[{"Vee", "+", RowBox[{"3", "*", RowBox[{"sc", "/", RowBox[{"u2", "[", RowBox[{"[", "i", "]"}], "]"}]}]}]}]}]}], "]"}]}], "\[IndentingNewLine]", RowBox[{ RowBox[{"sw", "=", "0.43"}], ";", " ", RowBox[{"(*", " ", RowBox[{"bonding", " ", "clouds"}], " ", "*)"}], "\[IndentingNewLine]", RowBox[{"For", "[", RowBox[{ RowBox[{"i", "=", "1"}], " ", ",", RowBox[{"i", "<", RowBox[{"nb", "+", "1"}]}], ",", RowBox[{"i", "++"}], ",", RowBox[{"Vee", "=", RowBox[{"Vee", "+", RowBox[{"3", "*", RowBox[{"sw", "/", RowBox[{"a", "[", RowBox[{"[", RowBox[{"i", ",", "3"}], "]"}], "]"}]}]}]}]}]}], "]"}]}], "\[IndentingNewLine]", "Vee"}], "Input", CellChangeTimes->{{3.5689548890696163`*^9, 3.568955116299615*^9}, { 3.5689552553894596`*^9, 3.5689552575266633`*^9}, {3.5689552936875267`*^9, 3.5689553203323736`*^9}, {3.568955404229321*^9, 3.568955433245372*^9}, 3.5689554882822685`*^9, 3.5689562157115464`*^9, {3.568956283961666*^9, 3.5689562858180695`*^9}, {3.5689566111878405`*^9, 3.5689566291278725`*^9}, {3.5689566695319433`*^9, 3.5689567220104356`*^9}, {3.5690810958835616`*^9, 3.569081104525977*^9}, { 3.5691717160681796`*^9, 3.569171751714242*^9}, {3.5691717855663013`*^9, 3.5691719006789036`*^9}, 3.569234247377528*^9, {3.569235622381544*^9, 3.569235625142749*^9}, {3.5692356799612455`*^9, 3.569235740536152*^9}, { 3.57045575500149*^9, 3.5704557604770994`*^9}, {3.57046440981329*^9, 3.5704644333849316`*^9}, {3.5705963024877205`*^9, 3.5705963300061693`*^9}, {3.5706010463712544`*^9, 3.570601069225295*^9}, { 3.5706012097659416`*^9, 3.5706012109983435`*^9}, {3.570601290948484*^9, 3.570601291619285*^9}, {3.570601333099758*^9, 3.570601444951955*^9}, 3.5706014761208096`*^9, {3.570601526633698*^9, 3.570601615179454*^9}, { 3.5708576202336864`*^9, 3.5708576267544985`*^9}, {3.5708577990100007`*^9, 3.5708578016152053`*^9}, {3.5708580423548284`*^9, 3.570858044429632*^9}, { 3.570858075754487*^9, 3.5708581072821426`*^9}, {3.570858449889944*^9, 3.5708585756105647`*^9}}], Cell[BoxData["1603.2456542000489`"], "Output", CellChangeTimes->{3.5708872333657866`*^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[{"-", "2987.64652485516`"}]], "Output", CellChangeTimes->{3.5708872333813868`*^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[{"-", "4188.632420434299`"}]], "Output", CellChangeTimes->{3.570887233396987*^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[{"-", "4250.151185560384`"}]], "Output", CellChangeTimes->{3.5708872334125867`*^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["1327.124776363648`"], "Output", CellChangeTimes->{3.5708872334125867`*^9}] }, Open ]], Cell[CellGroupData[{ Cell[BoxData[{"Vee", "\[IndentingNewLine]", "Vnn", "\[IndentingNewLine]", \ "Vne", "\[IndentingNewLine]", RowBox[{"Vtot", "=", RowBox[{ "Vne", "+", "Vee", "+", "Vnn"}]}], "\[IndentingNewLine]", "Ttot", "\[IndentingNewLine]", RowBox[{"Vir", " ", "=", RowBox[{ RowBox[{"-", "Vtot"}], "/", "Ttot"}]}], "\[IndentingNewLine]", RowBox[{"Etot", "=", RowBox[{"Ttot", "+", "Vtot"}]}], "\[IndentingNewLine]"}], "Input", CellChangeTimes->{{3.5689074950860367`*^9, 3.5689075109980645`*^9}, { 3.568910298074465*^9, 3.5689103015064707`*^9}, {3.568910724064413*^9, 3.5689107693044925`*^9}, {3.568955368910859*^9, 3.568955378629676*^9}, { 3.568955601366867*^9, 3.568955616218093*^9}, {3.5704638504275074`*^9, 3.570463876370353*^9}, {3.570464305074706*^9, 3.5704643133895206`*^9}, { 3.570464352171189*^9, 3.570464353231991*^9}, {3.570712404698539*^9, 3.5707124150569572`*^9}, {3.570809962851386*^9, 3.5708101493809137`*^9}, { 3.5708102160710306`*^9, 3.570810245165082*^9}, {3.5708102767551374`*^9, 3.5708103693413*^9}, {3.570810404207361*^9, 3.5708104232081947`*^9}, { 3.5708104788690925`*^9, 3.5708104825818987`*^9}, {3.5708105169643593`*^9, 3.570810517884761*^9}, {3.570810561767638*^9, 3.5708105625476394`*^9}, { 3.5708106179589367`*^9, 3.570810645648985*^9}, {3.5708552812279787`*^9, 3.570855300572013*^9}}], Cell[BoxData["1603.2456542000489`"], "Output", CellChangeTimes->{3.570887233428187*^9}], Cell[BoxData["1327.124776363648`"], "Output", CellChangeTimes->{3.5708872334437866`*^9}], Cell[BoxData[ RowBox[{"-", "4250.151185560384`"}]], "Output", CellChangeTimes->{3.5708872334437866`*^9}], Cell[BoxData[ RowBox[{"-", "1319.780754996687`"}]], "Output", CellChangeTimes->{3.5708872334437866`*^9}], Cell[BoxData["659.9077699143251`"], "Output", CellChangeTimes->{3.5708872334437866`*^9}], Cell[BoxData["1.999947288343085`"], "Output", CellChangeTimes->{3.5708872334437866`*^9}], Cell[BoxData[ RowBox[{"-", "659.8729850823619`"}]], "Output", CellChangeTimes->{3.570887233459387*^9}] }, Open ]] }, WindowSize->{981, 939}, WindowMargins->{{194, Automatic}, {Automatic, 21}}, 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, 1695, 31, 72, "Input"], Cell[CellGroupData[{ Cell[2277, 55, 6475, 176, 292, "Input"], Cell[8755, 233, 4830, 131, 701, "Output"] }, Open ]], Cell[13600, 367, 1427, 23, 72, "Input"], Cell[CellGroupData[{ Cell[15052, 394, 955, 14, 31, "Input"], Cell[16010, 410, 71, 1, 31, "Output"] }, Open ]], Cell[CellGroupData[{ Cell[16118, 416, 1560, 29, 31, "Input"], Cell[17681, 447, 949, 14, 52, "Output"] }, Open ]], Cell[18645, 464, 1390, 22, 31, "Input"], Cell[20038, 488, 1566, 28, 31, "Input"], Cell[CellGroupData[{ Cell[21629, 520, 1234, 18, 31, "Input"], Cell[22866, 540, 3146, 93, 92, "Output"] }, Open ]], Cell[CellGroupData[{ Cell[26049, 638, 697, 14, 31, "Input"], Cell[26749, 654, 608, 10, 52, "Output"] }, Open ]], Cell[27372, 667, 908, 24, 31, "Input"], Cell[CellGroupData[{ Cell[28305, 695, 5761, 124, 172, "Input"], Cell[34069, 821, 751, 12, 72, "Output"], Cell[34823, 835, 768, 12, 72, "Output"] }, Open ]], Cell[CellGroupData[{ Cell[35628, 852, 519, 12, 31, "Input"], Cell[36150, 866, 949, 14, 52, "Output"] }, Open ]], Cell[CellGroupData[{ Cell[37136, 885, 1401, 38, 92, "Input"], Cell[38540, 925, 666, 11, 52, "Output"] }, Open ]], Cell[CellGroupData[{ Cell[39243, 941, 827, 23, 92, "Input"], Cell[40073, 966, 73, 1, 31, "Output"], Cell[40149, 969, 73, 1, 31, "Output"] }, Open ]], Cell[40237, 973, 1824, 35, 72, "Input"], Cell[42064, 1010, 935, 19, 31, "Input"], Cell[43002, 1031, 4271, 83, 132, "Input"], Cell[47276, 1116, 3292, 57, 31, "Input"], Cell[50571, 1175, 2567, 59, 72, "Input"], Cell[53141, 1236, 1254, 35, 72, "Input"], Cell[54398, 1273, 3068, 44, 31, "Input"], Cell[CellGroupData[{ Cell[57491, 1321, 4020, 71, 92, "Input"], Cell[61514, 1394, 12915, 196, 701, "Output"] }, Open ]], Cell[CellGroupData[{ Cell[74466, 1595, 8382, 202, 512, "Input"], Cell[82851, 1799, 73, 1, 31, "Output"] }, Open ]], Cell[CellGroupData[{ Cell[82961, 1805, 3292, 75, 132, "Input"], Cell[86256, 1882, 857, 14, 92, "Output"] }, Open ]], Cell[87128, 1899, 2072, 49, 112, "Input"], Cell[89203, 1950, 561, 12, 52, "Input"], Cell[89767, 1964, 2148, 49, 92, "Input"], Cell[91918, 2015, 2452, 56, 112, "Input"], Cell[94373, 2073, 1759, 41, 72, "Input"], Cell[CellGroupData[{ Cell[96157, 2118, 923, 20, 31, "Input"], Cell[97083, 2140, 87, 1, 31, "Output"] }, Open ]], Cell[CellGroupData[{ Cell[97207, 2146, 711, 18, 31, "Input"], Cell[97921, 2166, 89, 1, 31, "Output"] }, Open ]], Cell[CellGroupData[{ Cell[98047, 2172, 507, 10, 31, "Input"], Cell[98557, 2184, 89, 1, 31, "Output"] }, Open ]], Cell[CellGroupData[{ Cell[98683, 2190, 823, 23, 31, "Input"], Cell[99509, 2215, 90, 1, 31, "Output"] }, Open ]], Cell[CellGroupData[{ Cell[99636, 2221, 204, 4, 31, "Input"], Cell[99843, 2227, 90, 1, 31, "Output"] }, Open ]], Cell[99948, 2231, 597, 8, 31, InheritFromParent], Cell[100548, 2241, 1971, 35, 92, "Input"], Cell[CellGroupData[{ Cell[102544, 2280, 1770, 24, 31, "Input"], Cell[104317, 2306, 22039, 320, 716, "Output"] }, Open ]], Cell[126371, 2629, 1655, 24, 31, "Input"], Cell[128029, 2655, 3421, 71, 92, "Input"], Cell[131453, 2728, 2696, 53, 92, "Input"], Cell[CellGroupData[{ Cell[134174, 2785, 939, 17, 72, "Input"], Cell[135116, 2804, 4328, 100, 212, "Output"], Cell[139447, 2906, 71, 1, 31, "Output"], Cell[139521, 2909, 71, 1, 31, "Output"] }, Open ]], Cell[139607, 2913, 10201, 233, 192, "Input"], Cell[149811, 3148, 6235, 101, 112, "Input"], Cell[156049, 3251, 10215, 234, 192, "Input"], Cell[166267, 3487, 5925, 93, 31, "Input"], Cell[CellGroupData[{ Cell[172217, 3584, 7732, 140, 152, "Input"], Cell[179952, 3726, 118157, 1999, 375, 18804, 368, "CachedBoxData", "BoxData", \ "Output"], Cell[298112, 5727, 15758, 255, 407, "Output"] }, Open ]], Cell[CellGroupData[{ Cell[313907, 5987, 3879, 89, 152, "Input"], Cell[317789, 6078, 73, 1, 31, "Output"], Cell[317865, 6081, 7383, 185, 1001, "Output"] }, Open ]], Cell[325263, 6269, 3049, 67, 92, "Input"], Cell[328315, 6338, 1841, 29, 52, "Input"], Cell[CellGroupData[{ Cell[330181, 6371, 3517, 75, 112, "Input"], Cell[333701, 6448, 5272, 151, 1001, "Output"] }, Open ]], Cell[CellGroupData[{ Cell[339010, 6604, 6437, 145, 152, "Input"], Cell[345450, 6751, 2112, 68, 72, "Output"], Cell[347565, 6821, 920, 14, 72, "Output"] }, Open ]], Cell[348500, 6838, 1863, 27, 31, "Input"], Cell[CellGroupData[{ Cell[350388, 6869, 2963, 56, 112, "Input"], Cell[353354, 6927, 90, 1, 31, "Output"] }, Open ]], Cell[CellGroupData[{ Cell[353481, 6933, 2531, 55, 112, "Input"], Cell[356015, 6990, 90, 1, 31, "Output"] }, Open ]], Cell[CellGroupData[{ Cell[356142, 6996, 499, 15, 52, "Input"], Cell[356644, 7013, 105, 2, 31, "Output"] }, Open ]], Cell[356764, 7018, 1381, 21, 31, "Input"], Cell[CellGroupData[{ Cell[358170, 7043, 1709, 32, 52, "Input"], Cell[359882, 7077, 104, 2, 31, "Output"] }, Open ]], Cell[CellGroupData[{ Cell[360023, 7084, 1415, 43, 72, "Input"], Cell[361441, 7129, 106, 2, 31, "Output"] }, Open ]], Cell[CellGroupData[{ Cell[361584, 7136, 2550, 50, 92, "Input"], Cell[364137, 7188, 89, 1, 31, "Output"] }, Open ]], Cell[CellGroupData[{ Cell[364263, 7194, 1351, 23, 172, "Input"], Cell[365617, 7219, 88, 1, 31, "Output"], Cell[365708, 7222, 89, 1, 31, "Output"], Cell[365800, 7225, 106, 2, 31, "Output"], Cell[365909, 7229, 106, 2, 31, "Output"], Cell[366018, 7233, 89, 1, 31, "Output"], Cell[366110, 7236, 89, 1, 31, "Output"], Cell[366202, 7239, 104, 2, 31, "Output"] }, Open ]] } ] *) (* End of internal cache information *)